6100 BSC Programming Manual

BSC Example
?page "Check Term Error - CHECK^TERM^ERROR"
!*******************************************************************
!
! Function: Check if the BREAK key or CONTROL^Y (END^OF^FILE) is
! received from the terminal. Stop this process when
! required or re-promt the terminal with "?".
!
!*******************************************************************
PROC CHECK^TERM^ERROR(ERROR); INT ERROR;
BEGIN
IF ERROR = BREAK^ACCESS^ONLY OR ERROR = BREAK^HIT THEN
BEGIN
CALL DELAY(100D);
s^term^buff := "?";
CALL WRITEREAD(term^file,term^buff, 1,max^term^read);
END
ELSE
IF ERROR = END^OF^FILE THEN CALL STOP
ELSE
CALL DEBUG;
END; !PROC CHECK^TERM^ERROR
B-21