LeCroy 9400A Manual page 155

335
340
345
350
355
IF EOF(1) THEN 335
TIMER STOP
AS = INPUT$(LOC(1),#1) : C$=MID$(A$,I,LEN(A$))
L=INSTR(C$,CPRM$): IF L>0 THEN L=L-I: C$=MID$(A$,I,L): CYCLE=FALSE
IF ECHO THEN PRINT #2,C$;
360
365 WEND
370 TIMER OFF
375 RETURN
380 '
385 'SUBROUTINE OPEN DISK FILE
390 '
395 CLOSE #3
IF STORE THEN FOR I=l TO LEN(C$): PRINT #3, MID$(C$,I,I); : NEXT
400 LINE INPUT "Specify dir and disk file name : ",AS
405 OPEN AS FOR OUTPUT AS #3
410 STORE=TRUE
415 LINE INPUT "Enter READ command (A --> abort) : "
P
420 IF C$="A" THEN 450
425 IF INSTR(C$,"R")<>I THEN PRINT #2,"Wrong syntax" : GOTO 450 ELSE PRINT #3,C$:
PRINT #i,C$
430 L=INSTR(C$,"."): IF L=0 THEN PRINT #3,"" ELSE PRINT #3,MID$(C$,L)
435 LINE INPUT "Echo data to screen (Y/N) : ",AS
440 IF A$="N" THEN ECHO=FALSE: PRINT #2,"Uploading ..." ELSE ECHO=TRUE
445 GOSUB 300
450 STORE=FALSE: ECHO=TRUE: CLOSE #3
455 RETURN
460 '
465 'SUBROUTINE READ DISK FILE
470 '
475 CLOSE #3
480 LINE INPUT "Specify dir. and disk file name : ",AS
485 OPEN AS FOR INPUT AS #3
490 A$=CHR$(27)+"R": PRINT #1,AS
495 LINE INPUT "Specify target memory (C/D) : ",B$'. IF B$<>"D" THEN B$="C"
500 LINE INPUT #3,C$: PRINT #2,"Read command was :";C$
505 LINE INPUT #3,C$
510 A$="WT M"+B$+C$+CHR$(13): PRINT #1,AS;
515 LINE INPUT "Echo data to screen (Y/N) : ",AS
520 IF A$="N" THEN ECHO=FALSE: PRINT #2,"Downloading ..." ELSE ECHO=TRUE
525 WHILE NOT EOF(3)
530
AS=INPUTS(I,#3)
535 IF ECHO THEN PRINT #2,A$;
540
PRINT #1,AS;
545 WEND
550 CLOSE #3
555 GOSUB 300
560 A$=CHR$(27)+"L": PRINT #1,AS: GOSUB 300
565 ECHO=TRUE
570 RETURN
575 '
580 'DOS ERROR AND TIMEOUT HANDLER
585 '
590 PRINT #2, "Error no. "; ERR: GOTO 235
595 PRINT #2, "Timeout": TIMER OFF: GOTO 235
Basic 9400A Waveform Measurements
and Operating Procedures
8-17