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"