image of READY prompt

Wang2200.org

Listing of file='IDS2PR14' on disk='vmedia/701-2716B.wvd.zip'

# Sector 215, program filename = 'IDS2PR14'
1000 REM "IDS2PR14" - Release 2.1 - REPORT GENERATOR - RETURN FROM SPECIAL EDI
     TS
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : MAT REDIM E$(24)83,F$(27)83
   : DATA LOAD DA T#3,(E4)E$()
   : DATA LOAD DA T#3,(E4+25)F$()
   : MAT REDIM E$(E8)1,F$(E9)1
   : E1=VAL(E6$)
   : GOSUB '32("IDS2sR05")
   : PRINT AT(16,1,37);"Copy edits from a Report/Oper. FN '24"
   : GOSUB '43(4)
   : Y=Q
   : E$(1614)=BIN(E1)
   : GOSUB '55(11,E1)
   : GOSUB '36
   : GOTO 1100
1100 MAT REDIM E$(24)83,F$(27)83
   : DATA SAVE DA T#3,(E4)E$()
   : MAT REDIM E$(E8)1,F$(E9)1
   : COM CLEAR C9$
   : F6$(14)="Y"
   : R3$(1)="IDS2MR13"
   : COM CLEAR C9$
   : LOAD T#2,"IDS2PR16"1000,
1130 STOP #
   : ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PR14"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"