Agilent Technologies 86100A, Programmer'S Manual, Page: 92 / 366

2-38
Sample Programs
BASIC Programming Examples
590 ! and inputs the configuration to the PC. Finally, it stores the
600 ! configuration to the file.
610 !
620 SUB Store_lrnstr
630 COM /Io/@Scope,@Path,Interface
640 COM /Variables/Max_length
650 ON ERROR GOTO Cont
660 PURGE "Lrn_strg"
670 Cont: OFF ERROR
680 CREATE BDAT "Lrn_strg",1,14000
690 DIM Setup$[14000]
700 ASSIGN @Path TO "Lrn_strg"
710 OUTPUT @Scope;":SYSTem:SETup?"
720 ENTER @Scope USING "-K";Setup$
730 OUTPUT @Path,1;Setup$
740 CLEAR SCREEN
750 PRINT "Learn string stored in file: Lrn_strg"
760 SUBEND
770 !
780 !
790 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
800 !
810 ! Subprogram name: Change_setup
820 ! Parameters: none
830 ! Return value: none
840 ! Description: This subprogram requests that the user change the
850 ! scope setup, then press a key to continue.
860 !
870 !
880 SUB Change_setup
890 COM /Io/@Scope,@Path,Interface
900
910 PRINT
920 PRINT "Please adjust setup and press Continue to resume."
930 PAUSE
940 SUBEND
950 !
960 !
970 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
980 !
990 ! Subprogram name: Get_lrnstr
1000 ! Parameters: none
1010 ! Return value: none
1020 ! Description: This subprogram loads a learnstring from the
1030 ! file "Lrn_strg" to the scope.
1040 !
1050 !
1060 SUB Get_lrnstr
1070 COM /Io/@Scope,@Path,Interface
1080 COM /Variables/Max_length
1090 DIM Setup$[14000]
1100 ENTER @Path,1;Setup$
1110 OUTPUT @Scope USING "#,-K";Setup$
1120 OUTPUT @Scope;":RUN"
1130 SUBEND
1140 !