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"