6100 BSC Programming Manual

BSC Example

?page "write^term"

!*********************************************************************

! Function: Got data from line and ready to write to the terminal.

!*********************************************************************

PROC WRITE^TERM(buffer,count); INT .buffer, count;

BEGIN

INT ERROR := 0;

BEGIN

CALL CANCEL(term^file);

CALL WRITE(term^file,buffer,count);

CALL AWAITIO(term^file);

CALL FILEINFO(term^file,error);

IF ERROR = BREAK^ACCESS^ONLY OR

ERROR = BREAK^HIT THEN CALL DELAY(100D)

ELSE

IF ERROR THEN CALL DEBUG;

END

UNTIL NOT ERROR;

END;

B-8