2-49
Sample Programs
Listings of the Sample Programs
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 !
1150 !
1160 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1170 !
1180 !
1190 ! Subprogram name: Close
1200 ! Parameters: none
1210 ! Return value: none
1220 ! Description: This routine resets the interface, and closes all I/O paths.
1230 !
1240 !
1250 !
1260 SUB Close
1270 COM /Io/@Scope,@Path,Interface
1280
1290 RESET Interface
1300 ASSIGN @Path TO *
1310 SUBEND
1320 !
1330 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!