6100 BSC Programming Manual

BSC Example
?page "Global declarations"
INT file, !FILE number WAITED ON
comm^file, !CPLINE FILE NUMBER
term^file, !TERMINAL FILE NUMBER
term^buff[0:39], !TERMINAL I/O BUFFER
error,
reqid := 0; ! req ID may be used to identify
! different functions, terminals etc.
! 0 is NOT valid, it must be incremented
STRING
.SP, !GENERAL PURPOSE STRING PTR
.s^term^buff := @term^buff '<<' 1;
!
! File level error codes
!
LITERAL
END^OF^FILE = 1,
BREAK^ACCESS^ONLY = 110,
BREAK^HIT = 111,
INVALID^PARAMETER = 22,
REQUEST^ABORTED = 122,
MODEM^ERROR = 140,
IMPOSSIBLE^EVENT^OCCURRED = 161, !CLIP SOFTWARE ERROR
OPERATION^TIMED^OUT = 162,
EOT^RECEIVED = 163,
DLE^EOT^RECEIVED = 164,
EOT^ON^LINE^BID = 167;
DEFINE
STX = [2]#, !CONSTANT FOR STX
ETX = [3]#; !CONSTANT FOR ETX
B-4