2-48
Sample Programs
Listings of the Sample Programs
380 COM /Variables/Max_length
390 Max_length=14000
400 ASSIGN @Scope TO 707
410 Interface=7
420 RESET Interface
430 CLEAR @Scope
440 OUTPUT @Scope;"*RST"
450 OUTPUT @Scope;"*CLS"
460 OUTPUT @Scope;":SYSTem:HEADer ON"
470 OUTPUT @Scope;":AUToscale"
480 SUBEND
490 !
500 !
510 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
520 !
530 !
540 ! Subprogram name: Store_lrnstr
550 ! Parameters: none
560 ! Return value: none
570 ! Description: This routine creates a file in which to store the learnstring
580 ! configuration (Filename:Lrn_strg). It requests the learnstring
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