Download Computer Link Book

/
10550
10560
10570
10580
10590
10600
10610
10620
10630
10640
10650
10660
10665
10670
10680
10690
10700
10710
10720
10730
10740
10750
10755
10760
10770
10780
10790
10800
10810
10820
10825
10830
10840
10850
10860
10870
10880
10890
10900
10910
10920
9: SAMPLE PROGRAM — READ N BYTES (DR)
PRINT USING "#####"; DAT;
PRINT "
";
O$ = STR$(VAL(O$) + 1)
'Increment data register number by 1
O$=RIGHT$("000"+RIGHT$(O$,LEN(O$)-1),4) 'Convert DR number to character string
NEXT J
GOTO 10250
'----------------------------------------- [Display Timeout Error]
'TOVERR
CLS : 'BEEP
LOCATE 10, 10
PRINT "
Receive Timeout Error !
"
FOR WAITB = 1 TO 5000: NEXT WAITB
TOV = TOV + 1
CLS : GOTO 10250
'----------------------------------------- [Display NAK Receive Error]
'NAKERR
CLS : BEEP
LOCATE 10, 10
PRINT "
NAK Receive Error !
"
LOCATE 14, 12
PRINT "ERROR CODE="; MID$(REPLY$, 5, 2)
FOR WAITC = 1 TO 5000: NEXT WAITC
NR = NR + 1
CLS : GOTO 10250
'----------------------------------------- [Display Communication Error
'COMERR
CLS : BEEP
LOCATE 10, 10
PRINT "
Communication Error !
"
FOR WAITD = 1 TO 5000: NEXT WAITD
TR = TR + 1
CLS : GOTO 10250
'----------------------------------------- [Display NG Reply Error]
'NGERR
CLS : BEEP
LOCATE 10, 10
PRINT "
NG Reply Error !
"
LOCATE 14, 12
PRINT "ERROR CODE="; MID$(REPLY$, 5, 2)
FOR WAITE = 1 TO 5000: NEXT WAITE
CLS : GOTO 10250
COMPUTER LINK SYSTEM USER’S MANUAL
9-5