Table of Contents
Advertisement
SERVICE REQUESTS
1 0
DIM A(l001)
20
DIM A$[201
ENABLE INTR 7;2
PRINT "Pressing S on the controller stops program when data is received."
718
LOCAL
70
80
ON INTR 7 GOSUB Which-inst
ON KBD ALL GOSUB Stop
90
100
UNTIL Idle
llo stop:STOP
120
!
140 Which inst:OFF INTR 7
160
170
IF BITtAnalyzer
180
END IF
200
RETURN
210
!
250
OUTPUT 718;Y3V1;EM;01;KSm;KSo;A4;DT:n
260
OUTPUT 718;"D3;PU;PA64,544;LBOPERATOR NO.?:"
270
REPEAT
280
OUTPUT 718;"EE;OA;"
290
ENTER 718;Operator
300
UNTIL Operator>0
OUTPUT 718;nD3PU;PA512,544;LB";Operator;n:11
330
OUTPUT 718;"D3PU;PA64,512;LBTEST DEVICE SERIAL NO?:"
340
OUTPUT 718;"Dj PU;PA64,490;LBPress Hz key when
350
OUTPUT 718;"Rl;R4;EE;"
REPEAT
370
380
UNTIL BIT(Hz-key-pressed,l)>B
390
OUTPUT 718; ,IOA"
400
ENTER 718;Serial-number
410
OUTPUT 718;~PU;PA512,512;LB";Serial_number;":"
420
!
430
OUTPUT 718 USING "K,B,K,B,B1';PU;PA64,312;LB":17;"DATA TRANSFER IN
440
OUTPUT 718;"TB;'
450
1001
FOR
TO
460
ENTER 718:A(N)
470
NEXT N
480
OUTPUT 718;"EM;RC1;KSn;KSp;HD;f'
LOCAL 718
500
RETURN
510
END
4 0 A p p e n d i x
THEN
ready.:"
APPENDIX D
Advertisement
Table of Contents
