Listing of file='IDS2PR02' on disk='vmedia/701-2716B.wvd.zip'
# Sector 51, program filename = 'IDS2PR02' 1000 REM "IDS2PR02" - Release 2.1 - REPORT GENERATOR COPY SPECS TO WORK FILE 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : COM E3,E4,E6,R,C,X,Y,F4,C1 : DIM F2$(16),C6$4 : CONVERT R0TO F9$,(##) : F5$="IDS2wS"&F9$ : LIMITS T#3,F5$,A,B,C,D : IF D=0THEN 1100 : IF B-A>=185THEN 1200 : SCRATCH T#3,F5$ : E7$="JUNK" : X=-1 1092 X=X+1 : CONVERT XTO STR(E7$,5),(####) : LIMITS T#3,E7$,A,B,C,D : IF D<>0THEN 1092 : SAVE T#3,(F5$)E7$1000,1000 : SCRATCH T#3,E7$ 1100 DATA SAVE DC OPEN T#3,(186)F5$ : DSKIP #3,184S : DATA SAVE DC #3,END : LIMITS T#3,F5$,A,B,C,D 1200 E3,E4=A : MAT REDIM E$(24)83,F$(27)83,E3$(24)83,E2$(27)83 : DATA SAVE DA T#3,(A+8,A)F$() : DATA SAVE DA T#3,(A,A)E3$() : DATA SAVE DA T#3,(A,E6)E2$() : MAT REDIM F$(E9)1,E3$(249)8,E2$(250)9 : GOSUB '39(STR(E$(),10,8),3) : CONVERT STR(E$(),152,3)TO X : Z,N,O=3 : L=0 1256 Z=3*MAX(1,ABS(INT(-9*X/249))) : N=3*MAX(1,ABS(INT(-8*X/249))) : CONVERT STR(E$(),157,3)TO O : O=3*MAX(1,ABS(INT(-9*O/249))) : C4=0 : A=A+6+(Z+N+O)/3 : CONVERT STR(E$(),155,2)TO X : CONVERT STR(E$(),854,2)TO C : ERRORC=0 1257 CONVERT STR(E$(),845,3)TO M : M=M+5 : Y=INT(256/M) 1259 DATA LOAD BA T#P,(A)F2$() : IF F2$()<>" "THEN 1260 : A=A+1 : GOTO 1259 1260 FOR I=1TO 99 : E4$()=" " : IF L>=XTHEN 1300 : PACK(##)E6$FROMI : S=A+INT((L)/Y) : IF S=C4THEN 1274 : DATA LOAD BA T#P,(S,S)F2$() : C4=S-1 1274 MAT SEARCHF2$()<,M*Y>,=E6$TO F9$STEP M : IF F9$=HEX(0000)THEN 1300 : HEXUNPACKSTR(F2$(),VAL(F9$,2),2)TO E4$() : $TRAN(STR(E4$(),3,2)," 0")R : C6$=STR(F2$(),VAL(F9$,2)+2,3)&HEX(00) : FOR Q=1TO 4 : ROTATEC(STR(C6$,Q),-2) : NEXT Q : ADD(C6$,20) : STR(E4$(),5)=STR(C6$,,4)&STR(F2$(),VAL(F9$,2)+5,M-5) : L=L+1 : C=I 1300 CONVERT ITO STR(E4$(),1,2),(##) : DATA SAVE BA T#3,(E6,E6)E4$() : NEXT I : CONVERT CTO STR(E$(),854,2),(##) : DATA SAVE DA T#3,(E3)E$() : MAT REDIM E$(E8)1 : FOR I=8TO 2STEP -1 : F1(I)=F1(I-1) : NEXT I : F1(1)=1 : FOR I=2TO 8 : F1(I)=F1(I)+F1(I-1) : NEXT I : X,Y,R,C=0 : F4,C1=1 : IF E$(865)=" "THEN LOAD T#2,"IDS2PR04"1000, : ELSE LOAD T#2,"IDS2PR05"1000, : STOP # 1810 FOR I=8TO 2STEP -1 : F1(I)=F1(I-1) : NEXT I : F1(1)=1 : FOR I=2TO 8 : F1(I)=F1(I)+F1(I-1) : NEXT I : ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PR02" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"