Tektronix DC 5010 Anleitung Seite 233

9 0 HEM DCSOID TALKER/LISTENEW PROGRAPI
--"
9 5 REfl DCSOlO PRIMR? A D D R E S S
=
2 0
1 0 0 OPEN #l:"GPIB(PKI=20~EOM=<>~):"
1 1 0 ON SRU THEN GOSUB 2 4 0
1 1 5 ENABLE SRQ
1 2 0 D I M A * TO ( 2 0 0 )
1 3 0 P R I N T "ENTER COflfiAND(S) / QUERY
"
1 4 0 I N P U T C$
145 I F C $ = " E X U THEN GOT0 2 3 0
1 9 0 P R I N T # l : C $
1 6 0 REfl CHECK FOR QUERIES
170 I F P O S ( C S r " ? " r l ) . < > O THEN GOT0 2 0 0
1 8 0 I F P O S ( C $ ? " S E N D " r l ) ~ O THEN GOT0 1 3 0
1 9 U REfl I N P U T FROM D E V I C E
200 I N f W T # l :A$
2 1 0 P R I N T A9
220 GOT0 1 3 0
Z J U STOP
2 4 0 POLL S B , P r S ; 2 0
250 P R I N T "SRR SEEN? STATUS BYTE WAS:"rSB
2 6 U RETURN
ADD DEC 1982
Japanese 2-47