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"