image of READY prompt

Wang2200.org

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"