Advantech PCL-848A/B Manual de usuario descargar pdf (Pagina 46)

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

1 2 ... 41 42 43 44 45 46 47 48 49 50 51 ... 83 84

Sin comentarios

Advantech PCL-848A/B Manual de usuario Pagina 46