Tektronix 7D20 Operator's Manual page 262

9 . Query Functions . This program permits the user to query a number of 7D20
functions, such as front-panel settings, cursor status, events, and acquire modes . A
routine is included in the program that ensures that the query is legal .
REMARKS :
St3t3 N,EM ~ THIS PROGF .RM Its A GENEA .RL PL)P .POSE CICtEP,Y P,Di)7INE
11t3 P,EM + IT DETEP .MINES THE S7RTCr ;: . OF VRRIOU~. PAP .RMETERS OF
1213 HEM ~ THE 7D2t3 RND PRINTS' THE P .ESPiN~E OF THE INSTP .L%MENJ
13(3 REM +~ TO ANY ONE Gf A NllMHER OF tIUERIES ON THE 4t3, ° ,t3
14t3 P,EM + GA .RPHIC DIS"FLAY WHEN R fLLL S7P .ING IS INPC)T, THE
SSt3 P .EM + fRCiGP .RM WILL TERMINATE .
.Y5t3 REM + R= 7D2i3 GPID DEVICE RUDRES :s
PROGRAM :
ve A=ze
180 ON SRQ THEN 338
190 PRINT "WHICH OF THE FOLLOWING QUERIES WOULD YOU LIKE TO MAKE?"
200 PRINT ""
210 PRINT "CHI,CH2,TRIG,HORIZ,DISP,CSW,AQR,CURS,COpRD,DT,SRQ,EVENT,"
220 PRINT "ALLEV,ENQTY,ID,SET,HELP."
230 INPUT Qf
240 IF LEN(Qf)<1 THEN 320
250 Cf=CHR(63)
260 Qf=Q4&Cf
270 PRINT ~A :Qf
280 INPUT a`IA:RS
290 PRINT R4
300 PRINT "NE)(T QUERV"
310 GO TO 230
328 END
330 POLL D,S ;A
340 IF S<>96 THEN 370
350 PRINT "ILLEGAL CND"
360 GO TO 300
370 RETURN
COMMENTS :
17k3 SET 7D2k1 GFIE DEVICE ADDRESS
iSkl ENAELE SRO HANDLER AT LINE 330
190-220 LIST AVAILABLE QUERIES UN L .'RAFHIC DISPLAY
23u1 INFIJT~ DESIRED QUERY
24k1 IF NU QUERV REQUESTED, GU TU END
25u1 LUAU STRING Cf WITH R~QUESTIDN MARY
2661 ADD STRING Cf TD STRING Qf
276:1 SEND THE QUERV TU THE 7D20
280 IWFUT THE RESfUNSE TO THE QUERY
2913 PRINT THE RESFUNSE CODE ON THE GRAPHICS UISFLAY
3k1k1 PROMFT THE USER FUR THE NEXT QUERY
31kt DU IT AGAIN
320 STUf
~ " 3k1 SERIAL FULL THE 7ll2k1 : S=STATUS EYTE
34kv CHECK: FOR ILLEGAL QUERY CUMMAMll
350 FRINT~ ERRUR MESSAGE
~ . =6k1 LE"C THE IJSER ENTER A NEW QUERY
.'.7v1 RETLJRN FROM SRQ HANDLER ROUTINE
G PI B-7D 20