6100 BSC Programming Manual

BSC Example
FOR TERM^READ^COUNT & ETX -> @SP; !WE CAN SEND
CALL WRITE^COMM(@SP - @s^cpline^text^buffer); !THE MESSAGE
END
ELSE
BEGIN ! error <> operation^timed^out (162)
CALL clip^status^handler(term^buff);
s^cpline^buffer.clip^req^hdr.func ':=' clip^read^req for 2;
reqid := (reqid '+' 1);
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);
END;
END ! of checking read request with error <> 0
ELSE
BEGIN ! requests completed with no errors
s^term^buff ':=' "TRANSMISSION ABORTED" -> @SP; !THE READ END
CALL WRITE^TERM(term^buff,0); ! **** CR LF to terminal ! !NORMALLY WIT
CALL WRITE^TERM(term^buff,@SP - @s^term^buff); !TEXT, WE WON
CALL COMM^COMPLETE(COUNT); !SEND NOW JUS
END; !DO THE READ
END; !PROC TERM^COMPLETE
B-17