Listing of file='IDS2PRX1' on disk='vmedia/701-2725B.wvd.zip'
# Sector 37, program filename = 'IDS2PRX1' 1000 REM "IDS2PRX1" 1017 COM C$13,C1$13,C2$13,D$2 : C$=ALL(FF) : IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : MAT REDIM E3$(100)12,E2$(100)9,E0$(100)2,F$(100)2 : E3$()=ALL(FF) : CONVERT STR(E$(),152,3)TO F : CONVERT STR(E$(),157,3)TO O : CONVERT STR(E$(),155,2)TO L : D=VAL(E$(860)) : S=VAL(STR(E$(),861),2) : CONVERT STR(E$(),845,3)TO M 1032 T=S+6+MAX(1,ABS(INT(-F*9/249)))+MAX(1,ABS(INT(-F*8/249)))+MAX(1,ABS(INT(- O*9/249))) : C=0 : N=INT(256/(M+5)) : F$()=ALL(FF) : FOR I=TTO T+ABS(INT(L/N)) : DATA LOAD BA T#D,(I)E4$() : FOR J=1TO (N-1)*(M+5)+1STEP M+5 : C=C+1 : IF C>LTHEN 1500 : E0$()=STR(E4$(),J,M+5) : E$=STR(E0$(),3,3)&ALL(00) : FOR K=1TO 4 : ROTATEC(STR(E$,K),-2) : NEXT K : ADD(E$,20) 1070 $TRAN(E$<,2>,"XBYTZN")R : UNPACK(##)E0$()TO A : STR(E$,5)=BIN(A)&STR(E0$(),2,1)&BIN(J+5)&BIN(I,2) : E3$(C)=STR(E$,,2)&BIN(C)&E$ 1500 NEXT J,I : MAT SORTE3$()TO E0$(),F$() : MAT MOVE E3$()(4,9),F$()TO E2$() : IF O=0THEN 1510 : GOSUB '50(S+6+MAX(1,ABS(INT(-F*9/249)))+MAX(1,ABS(INT(-F*8/249))),3*ABS(I NT(-O*9/249))," ") : MAT REDIM E3$(1992)1 : FOR I=O*9-8TO 1STEP -9 : E$=STR(E3$(),I,9)&ALL(00) : FOR J=1TO 12 : ROTATEC(STR(E$,J),-2) : NEXT J : STR(E$,,11)=ADDALL(20) 1508 STR(C$,POS(" 0123456789RP"=STR(E$,9)),1)=BIN(I/9) : NEXT I 1510 MAT REDIM E3$(100)9 : E3$()=E2$() : FOR I=1TO L : IF STR(E3$(I),,1)="H"THEN STR(C1$,POS(" 0123456789RP"=STR(E3$(I),2)),1)=" Y" : IF STR(E3$(I),,1)="F"THEN STR(C2$,POS(" 0123456789RP"=STR(E3$(I),2)),1)=" Y" : IF STR(E3$(I),,1)="D"THEN STR(C2$,,1)="Y" : NEXT I : FOR I=0TO 9 : IF E$(I*10+682)="Y"THEN STR(C2$,I+2,1)="T" : NEXT I 1540 MAT REDIM E2$(250)9 : E2$()=ALL(00) : MAT REDIM E2$(3*ABS(INT(-F*9/249)))83 : DATA LOAD DA T#D,(S+6)E2$() : MAT REDIM E2$(250)9 : MAT SEARCHE3$(),>"D"TO F9$STEP 9 : X=INT(VAL(F9$,2)/9) : Y=X+1 : MAT SEARCHE3$(),>"F"TO F9$STEP 9 : Z=INT(VAL(F9$,2)/9)+1 : MAT SEARCHE3$(),>"H"TO F9$STEP 9 : W=INT(VAL(F9$,2)/9)+1 : Q=INT((2250-F*9)/M) : P=F*9+1 : IF Q=0THEN 1800 : IF X=0THEN 1600 1577 FOR J=1TO MIN(X,Q) : GOSUB '77(J) : NEXT J 1600 IF W=YOR Q=0THEN 1620 : FOR J=0TO MIN(Q,(W-Y)/2)-1 : V=J+Y : IF STR(E3$(V),7,1)<>HEX(FF)AND Q>0THEN GOSUB '77(V) : V=J+Z : IF STR(E3$(V),7,1)<>HEX(FF)AND Q>0THEN GOSUB '77(V) : NEXT J 1620 IF W>LOR Q=0THEN 1800 : FOR J=0TO MIN(Q-1,L-W) : IF STR(E3$(W+J),7,1)<>HEX(FF)THEN GOSUB '77(W+J) : NEXT J 1800 LOAD T#2,"IDS2PRX2"1000,1994 1850 DEFFN'77(V) : U=I : I=VAL(STR(E3$(V),8),2) : IF U<>ITHEN DATA LOAD BA T#D,(I)E4$() : STR(E2$(),P)=STR(E4$(),VAL(STR(E3$(V),7)),M)AND ALL(7F) : STR(E3$(V),7)=HEX(FF)&BIN(P,2) : P=P+M : Q=Q-1 : RETURN 1980 STOP # 1990 LOAD T#2,"IDS2PRX2"1000,1994 : GOTO 1990 1994 % 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PRX1" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"