LeCroy 9400A Manual page 154

III. Example of a Typical Program
A short BASICA interactive program showing how to initialize
communication between a 9400A and an IBM PC-AT is given below:
I00 'SAMPLE PROGRAM FOR LINKING THE LECROY 9400A DSO TO AN IBM PC-AT'
105 'VIA THE RS232C ASYNCHRONOUS COMMUNICATIONS INTERFACE'
II0 '
115 'AUTHOR : M. SCHUMACHER
120 '
125 CLS: ON ERROR GOTO 575
130 TRUE = I: FALSE = 0: LOOP = TRUE: EXIT = FALSE: ECHO = TRUE: STORE =FALSE
135 CPRM$="Z"
140 '
145 OPEN "COMI:9600,N,8,1" AS #i
150 OPEN "SCRN:" FOR OUTPUT AS #2
155 PRINT #2,"SAMPLE INTERACTIVE PROGRAM FOR LINKING THE LECROY 9400A DSO TO AN"
160 PRINT #2,"IBM PC-AT VIA THE RS232C ASYNCHRONOUS COMMUNICATIONS INTERFACE"
165 PRINT #2, "":PRINT #2, "Settings : 9600 Bd, no parity, 8 bits, 1 stop bit"
170 PRINT #2, "": PRINT #2, "Commands :" : X$=STRING$(15,32)
175 PRINT #2, X$"REM : Remote, LOC : Local"
180 PRINT #2, X$"STORE : Store to disk, RECALL : Retrieve from disk"
185 PRINT #2, X$"Any valid command described in the User's Manual"
190 PRINT #i, CHR$(27);"["
195 PRINT #i, "CHLP PPO"
200 PRINT #i, "CTRL OFF"
205 PRINT #i, "CFMT,L,BYTE,UNSIGNED_SHORT"
210 PRINT #i, "CBLS 70"
215 PRINT #I, "MASK 6,1" 'Enable STB 1
220 PRINT #I, "RS CONF 6,13,0,0,0" '<ACK>,<CR>
225 PRINT #I, "CPRM "+CHR$(34)+CPRM$+CHR$(34)
230 '
235 WHILE LOOP
240 PRINT #2,""
245 LINE INPUT "Enter command (EX --> exit) : ",
250 IF LEN(C$) < 2 THEN 245
255 IF C$ = "EX" THEN LOOP=FALSE: GOTO 285
260 IF C$ = "REM" THEN C$ = CHR$(27)+"R"
265 IF C$ = "LOC" THEN C$ = CHR$(27)+"L"
270 IF C$ = "STORE" THEN GOSUB 380: GOTO 285
275 IF C$ = "RECALL" THEN GOSUB 460: GOTO 285
280 IF C$<>"" THEN PRINT #I,C$: GOSUB 300
285 VEND
290 CLOSE
295 SYSTEM
300 '
305 'SUBROUTINE GET STRING FROM DS0
310 '
315 ON TIMER(2) GOSUB 595: TIMER
320 CYCLE=TRUE
325 WHILE CYCLE
330 PRINT #1,CHR$(6);
8-16
Basic 9400A Waveform Measurements
and Operating Procedures