Agilent Technologies 4294A Programming Manual page 118

Saving/Recalling a Measurement Result/Measurement Setup
Sample Program for Save/Recall
620 CALL Inp_file_name(File$)
630 GOTO Save_file
640 END IF
650 IF UPC$(Inp_char$)="P" THEN
660 OUTPUT @Hp4294a;"PURG """&File$&Extension$&""""
670 GOTO Save_file
680 END IF
690 PRINT "Save NOT Complete"
700 ELSE
710 PRINT "Save Complete"
720 PRINT " Save File Name: "&File$&Extension$
730 END IF
740 !
750 END
760 !
770 ! File Name Input Function
780 !
790 SUB Inp_file_name(Inp_name$)
800 DIM Inp_char$[30]
810 ON ERROR GOTO Inp_start
820 Inp_start: !
830 PRINT "Input Save File Name (without Extension)"
840 INPUT "Name?",Inp_char$
850 Inp_name$=UPC$(Inp_char$)
860 IF LEN(Inp_name$)>8 THEN Inp_start
870 PRINT "Input Name: "&Inp_name$
880 INPUT "OK? [Y/N]",Inp_char$
890 IF UPC$(Inp_char$)<>"Y" THEN Inp_start
900 OFF ERROR
910 SUBEND
920 !
930 ! Save Array Select Function
940 !
950 SUB Select_array(@Hp4294a,Array_name$,Com$)
960 DIM Inp_char$[9]
970 PRINT " Save "&Array_name$&" Array?"
980 INPUT "[Y]es or [N]o? Input [Y/N]",Inp_char$
990 IF UPC$(Inp_char$)="Y" THEN
1000 OUTPUT @Hp4294a;Com$&" ON"
1010 ELSE
1020 OUTPUT @Hp4294a;Com$&" OFF"
1030 END IF
1040 SUBEND
118 Chapter 8