Tektronix DC 5010 Anleitung Seite 129

Instructions d'utilisation-DC 5010
Programme de Transmission et de Reception pour
Contr6leurs de la serie 4040
4
9 0 R E M P R O G R A M M E D E
TRANSMISSION/RECEPTlON DC5O 10
95 REM ADRESSE PRIMAIRE DU DC 501 0
§
20
OPEN #1:"GPIB(PR1§20,EOM§< >):"
ON SRQ THEN GOSUB 240
ENABLE SRQ
DIM A$ TO (200)
P R I N T " E N T R E R L A ( O U L E S )
COMMANDE(S)/INTERROGATlON"
INPUT C$
IF C$§ "EX" THEN GOT0 230
PRlN T
.#
1 :C$
REM RECHERCHER LES INTERROGATIONS
IF POS(C$, "?", 1)<
>
0 THEN GOT0 200
IF POS(C$,"SEND", 1)§O THEN GOT0 130
REM ENTREE ISSUE DE L'INSTRUMENT
INPUT #?:A$
PRINTLA$
GOT0 130
STOP
POLL SB,P,S;20
PRINT "SRQ VUE, MOT D'ETAT:",SB
RETURN
--
-
ADD DEC 1982 French 2-47