Agilent Technologies Infiniium 8000A Programmer's Reference Manual page 147

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:
850 !
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:
1030 !
1040 !
1050 !
1060 SUB Get_lrnstr
1070 COM /Io/@Scope,@Path,Interface
1080 COM /Variables/Max_length
1090 DIM Setup$[40000]
1100 ENTER @Path,1;Setup$
1110 OUTPUT @Scope USING "#,-K";Setup$
1120 OUTPUT @Scope;":RUN"
1130 SUBEND
1140 !
1150 !
This subprogram requests that the user change the
oscilloscope setup, then press a key to continue.
This subprogram loads a learnstring from the
file "Lrn_strg" to the oscilloscope.
Sample Programs
lrn_str.bas Sample Program
6-53