6100 BSC Programming Manual

BSC Example
cpline^buffer.clip^req^hdr.reqid := reqid;
cpline^buffer.clip^req^hdr.txtout^len := 0;
cpline^buffer.clip^req^hdr.txtin^len := cpline^text^len;
CALL WRITEREAD (comm^file, cpline^buffer,clip^req^hdr^len,
max^comm^read,cpline^cnt^recvd);
! *********** one AWAITIO owed to this WRITEREAD
END ! **** of CLIP status error
ELSE
BEGIN ! ***** COMM I/O completed with NO error
CALL COMM^COMPLETE(COUNT);
term^buff ':=' "? ";
CALL WRITEREAD(term^file, term^buff, 1, max^term^read);
IF < THEN CALL DEBUG;
END;
END ! **** of COMM I/O completed
ELSE ! ***** any other files ????????
CALL DEBUG;
END; ! ***** of do forever
END; ! CP6100^EXAMPLE MAIN
B-23