LeCroy 9450 - Page 207

Appendix A
1-99 <DECL.BAS>
I00
CLS
II0
PRINT "Control of the 9450 via GPIB and IBM PC"
115 PRINT ""
120 PRINT "Options :EX to exit LC local mode"
125 PRINT " ST store dataRC recall data"
130 PRINT ""
140
LINE INPUT "GPIB-address of oscilloscope (1...16)9 :",ADDR$
145 DEV$ = "DEV" + ADDR$
150 CALL IBFIND(DEV$,SCOPE%)
155 IF SCOPE% < 0 THEN GOTO 830
160 TMO% = i0 "timeout = 300 msec (rather than default I0 sec)
165 CALL IBTMO(SCOPE%,TMO%)
170
"
200 LOOP% = 1
205
WHILE LOOP%
210 LINE INPUT "Enter command (EX --> Exit) : ",CMD$
220 IF CMD$ = "ex" OR CMD$ = "EX" THEN LOOP% = 0 : GOTO 310
230 IF CMD$ = "st" OR CMD$ = "ST" THEN GOSUB 600 : GOTO 300
240 IF CMD$ = "rc" OR CMD$ = "RC" THEN GOSUB 700 : GOTO 300
250 IF CMD$ = "ic" OR CMD$ = "LC" THEN GOSUB 400 : GOTO 300
260 IF CMD$ = "" THEN OOTO 300
270 CALL IBWRT(SCOPE%,CMD$)
275 IF IBSTA% < 0 THEN GOTO 840
280 GOSUB 500
300 WEND
310 GOSUB 400
320 END
400
"
405
"SUBROUTINE LOCAL MODE
410
"
420 CALL IBLOC(SCOPE%)
425 PRINT ""
430 RETURN
500
"
505 "SUBROUTINE GET DATA
510
"If there are no data to read, simply wait until timeout occurs
515
"
520 CALL IBRD(SCOPE%,RD$)
525
I = IBCNT% "IBCNT% is the number of characters read
530
FOR J = 1 TO I
535
PRINT MIDS(RD$,J,I);
540 NEXT J
545 PRINT ""
550 RETURN
600
"
201