Listing of file='IDS2PR07' on disk='vmedia/701-2716B.wvd.zip'
# Sector 124, program filename = 'IDS2PR07'
1000 REM "IDS2PR07" - Release 2.1 - REPORT GENERATOR FIELD EDIT SET-UP MODULE
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: MAT REDIM E$(24)83,E3$(24)83
: DATA LOAD DA T#3,(E4)E$()
: DATA LOAD DA T#3,(E4+17)E3$()
: MAT REDIM E$(E8)1,F$(E9)1,E3$(249)8
: IF E$(1)="\F2"THEN GOSUB '32("IDS2sR01")
: ELSE GOSUB '32("IDS2sB01")
: FOR I=1TO 16
: GOSUB '37(I)
: NEXT I
: IF E3$<>" "AND E$(1)="\E2"THEN 1065
1050 IF E$(1)="\F2"THEN E3$=" "
: MAT SEARCHE3$(),=STR(E3$,1,8)TO F9$STEP 8
: IF F9$=HEX(0000)THEN F6=250
: ELSE F6=1+INT(VAL(F9$,2)/8)
: IF E$(1)="\F2"THEN 1070
1065 IF E3$=" "THEN 2020
: S=F6
: GOTO 1120
1070 IF F6=1THEN 2040
: S=0
: FOR I=0TO F6-1
: Y=I*9+5
: IF VAL(F$(Y+3))<>F4OR VAL(F$(Y))>C1OR VAL(F$(Y))+VAL(F$(Y+4))-1<C1THEN 11
10
: F6,S=I+1
: I=249
1110 NEXT I
1120 IF S=0THEN 2020
: E8$=STR(F$(),S*9-8)
: X=MOD(VAL(STR(E8$,6)),8)
: IF N=0THEN GOSUB '45(17," ")
: ELSE GOSUB '55(17,X)
: IF X=0THEN GOSUB '45(18," ")
: ELSE GOSUB '45(18,STR(E$(),8*X+70,8))
: GOSUB '45(19,E3$(S))
: GOSUB '55(20,VAL(STR(E8$,8)))
: GOSUB '55(21,VAL(STR(E8$,5)))
: GOSUB '55(22,VAL(E8$))
: GOSUB '55(23,VAL(STR(E8$,9)))
: GOSUB '55(24,INT(VAL(STR(E8$,2),2)/16))
: E6$=STR(E8$,6)AND HEX(50)
1240 IF VAL(E6$)>3THEN D7=2
: IF E6$=HEX(10)THEN D7=1
: IF E6$=HEX(00)THEN D7=0
: GOSUB '55(25,D7)
: IF MOD(VAL(STR(E8$,3)),4)>1THEN GOSUB '45(26,"Y")
: ELSE GOSUB '45(26,"N")
: IF MOD(VAL(STR(E8$,3)),2)=1THEN GOSUB '45(27,"Y")
: ELSE GOSUB '45(27,"N")
: GOSUB '55(28,MOD(VAL(STR(E8$,4)),8))
: E$=" 0123456789ABCDEFRP"
: GOSUB '45(29,STR(E$,INT(VAL(STR(E8$,7))/8),1))
1330 IF D7=2OR D7=0THEN GOSUB '45(30," ")
: ELSE GOSUB '55(30,INT(MOD(VAL(STR(E8$,3)),16)/4))
: IF MOD(VAL(STR(E8$,7)),8)>3THEN GOSUB '45(31,"Y")
: ELSE GOSUB '45(31,"N")
: IF MOD(VAL(STR(E8$,7)),4)>1THEN GOSUB '45(32,"Y")
: ELSE GOSUB '45(32,"N")
: IF MOD(VAL(STR(E8$,7)),2)=1THEN GOSUB '45(33,"Y")
: ELSE GOSUB '45(33,"N")
: GOSUB '43(19)
: E7$=E$
: GOSUB '43(17)
: F1=Q
: IF Q=0THEN 2240
: GOSUB '43(18)
: F5$=E$OR ALL(20)
1375 GOSUB '39(F5$,5)
: IF A=0THEN 1520
: MAT REDIM E3$(6)83
: DATA LOAD DA T#P,(A)E3$()
: IF STR(E3$(),10,1)<"5"THEN 1380
: F5$=STR(E3$(),82)OR ALL(20)
: GOTO 1375
1380 MAT REDIM E3$(24)83
: DATA LOAD DA T#P,(A+8)E3$()
: MAT REDIM E3$(249)8
: MAT SEARCHE3$(),=STR(E7$,1,8)TO F9$STEP 8
: IF F9$=HEX(0000)THEN 2240
: MAT REDIM E3$(24)83
: DATA LOAD DA T#P,(A)E3$()
: X=INT(VAL(F9$,2)/8)
: E7$=STR(E3$(),499+X*6)
: GOSUB '55(22,VAL(STR(E7$,3)))
: GOSUB '55(24,(F1(F1)-1+INT(VAL(E7$,2)/16)))
: GOTO 2240
1520 F0$="Control file "&F5$&" not found"
: GOSUB '35(F0$)
: GOTO 2240
2020 IF F6<250THEN 2040
: GOSUB '35("249 Fields specified - No more allowed")
: LOAD T#2,"IDS2PR03"1000,
2030 F5=0
: LOAD T#2,"IDS2PR03"1000,
2040 GOSUB '45(17," ")
: GOSUB '45(18," ")
: F5$="FIELD"
: CONVERT F6TO STR(F5$,6),(###)
: GOSUB '45(19,F5$)
: GOSUB '55(20,F4)
: GOSUB '55(21,C1)
: GOSUB '55(22,0)
: GOSUB '55(23,0)
: X=0
: IF F6=1THEN 2140
: FOR I=0TO F6-1
: X=MAX(X,VAL(F$(I*9+1))-1+INT(VAL(STR(F$(),I*9+2),2)/16))
: NEXT I
2140 GOSUB '55(24,MAX(X+1,F1(8)))
: GOSUB '55(25,2)
: GOSUB '45(26,"N")
: GOSUB '45(27,"N")
: GOSUB '55(28,0)
: GOSUB '45(29," ")
: GOSUB '45(30," ")
: GOSUB '45(31,"N")
: GOSUB '45(32,"N")
: GOSUB '45(33,"N")
2240 E$(E8)=BIN(F6)
: MAT REDIM E3$(24)83
: DATA LOAD DA T#3,(E4+17)E3$()
: LOAD T#2,"IDS2PR10"1000,
2250 STOP #
: ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PR07"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"