image of READY prompt

Wang2200.org

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"