Tektronix DC 5010 Anleitung Seite 77

Operating Instructions-DC 501 0
Talker Listener Program For 4040-Series Controllers
100 Rem DC5010 TALKER/LISTENER PROGRAM
-
110 Rem PRIMARY ADDRESS
=
20
120 Init all
130 On srq then gosub srqhdl
140 Enable srq
150 Dim respons$ to 200
160 Input prompt "ENTER MESSAGE(S)
: :message$
170 Print #20:message$
180 Rem CHECK FOR QUERIES
190 If pos(message$
,"?",
1) then goto 260
200 Rem CHECK FOR lSEND1 COMMAND
210 If pos(mes~age$,~SEND~,l) then goto 260
220 R e m CHECK FOR 'TEST1 COMMAND
230 If pos(message$, "TESTn, 1 ) then goto 260
240 Goto 160
250 Rem INPUT FROM DEVICE
260 Input #20:respons$
270 Print llRESPONSE: u;respons$
280 Goto 160
290 Rem SEfiIAL POLL ROUTINE
300 Srqhdl: poll stb,pri
310 Print llSTATUS BYTE: ";stb
320 Resume
330 End
REV DEC 1982