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"