Listing of file='IDS2AX01' on disk='vmedia/701-2717B.wvd.zip'
# Sector 293, program filename = 'IDS2AX01' 1000 REM "IDS2AX01" - APPLICATION EXECUTION 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : GOSUB '32("IDS2sSC0") : PRINT HEX(06020402000E);AT(0,7);"- Application Execution Module";AT(11,42 );HEX(0F);"application to be run." : F6$(12)="N" : E$()=E9$(3) 1060 GOSUB '34(1) 1070 F6$(12)="Y" : P=4 : IF STR(E$,,4)="IDS2"THEN P=2 : LIMITS T#P,E$,A,B,C,D : ERRORF0$="Disk error on device # - check disk or FN '31 to cancel" : CONVERT PTO STR(F0$,POS(F0$=23)+1,1),(#) : GOSUB '35(F0$) : GOSUB '34(250) : IF Q=31THEN LOAD T#2,R3$(1)1000, : GOSUB '43(1) : GOTO 1070 1085 IF D=1THEN 1140 : IF D<0THEN 1120 : IF D=2THEN 1130 : GOSUB '35("File specified is not found on application program device #4." ) : GOTO 1060 1120 GOSUB '35("File specified is scratched.") : GOTO 1060 1130 GOSUB '35("File specified is a data file, not a program file.") : GOTO 1060 1140 DATA LOAD BA T#P,(A+1)F$() : J5$=HEX(00FF1000A2E92022)&STR(E$,,8) : IF STR(F$(),,16)=J5$THEN LOAD T#P,E$ : GOSUB '35("File specified is not an IDEAS2 START module") : GOTO 1060 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2AX01" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"