User`s manual

40 PCL-848AB User's Manual
Example :
10 DEF SEG=&HD000
20 INIT%=0:OUTPUT%=3:ENTER%=6:ERRPTR%=60
30 ADDR%=23
40 CALL ERRPTR%(IOERR%,IOCOUNT%)
50 TMPS=”FlRAT3NS”
60 CALL OUTPUT%(ADDR%,TMP$):GOSUB 100
70 ANs$=sPACE$(40)
80 CALL ENTER%(ADDR%,ANS$):GOSUH 100
85 PRINT ANS$
90 STOP
100 ‘Error number and string counts check routine
110 PRINT “TBE COUNT OF STRING BYTES = “;IOCOUNT%
120 IF IOERR%=0 TEEN PRINT “NO ERROR”
130 IF IOERR%=1 TREN PRINT “3ANDSBAKE TIMEOUT”
160 RETURN
170 END