image of READY prompt

Wang2200.org

Listing of file='IDS2SUB9' on disk='vmedia/701-2715B.wvd.zip'

# Sector 844, program filename = 'IDS2SUB9'
3500 REM 'IDS2SUB9'- COMPRESSED FAST PHYSICAL SEQUENTIAL PROCESSING
3510 DEFFN'75(E$,E1$,E0,F0)
3520 DEFFN1(E)=VAL(STR(E$(),E+392))
3530 DEFFN2(E)=VAL(STR(E$(),E+392),2)
   : SELECT #F0<E1$>
   : OR (E$,20)
   : LIMITS T#F0,E$,A,B,C,Q
   : IF Q=0THEN RETURN
   : MAT REDIM E$(6)83
   : DATA LOAD DA T#F0,(A)E$()
   : SELECT #E0<STR(E$(),105,3)>
   : E$=STR(E$(),82,8)OR ALL(20)
   : LIMITS T#F0,E$,F1,B,C,Q
   : IF Q=0THEN RETURN
   : LIMITS T#E0,STR(E$(),2,8),E1,B,C,Q
   : E2=FN2(43)
   : E3=FN2(46)
   : E4=FN1(27)
   : E5=FN1(24)
   : E6=FN1(25)
   : E7=INT(256/E6)
3540 E8=0
   : E9=0
   : F3$=" "
   : STR(F3$,,E6)=ALL(FF)
   : DATA LOAD DA T#F0,(F1)E$()
   : SELECT #F0<STR(E$(),105,3)>
   : LIMITS T#F0,STR(E$(),2,8),F1,B,C,Q
   : IF Q=0THEN RETURN
   : F1=F1+FN1(45)
   : F2=FN1(50)
   : F3=FN2(46)
   : F4=FN2(48)
   : F6=FN1(51)
   : F5=INT(249*F2/F6)
   : F9=0
   : F7=INT(1992/E4)
   : F8=0
   : C9=0
   : UNPACK(####)STR(E$(),407,6)TO C1,C2
   : C3=1/F6
   : C5=3*C2
   : C6=C1+1
3550 C7=1/F4
   : C8=FN1(45)
   : MAT REDIM E$(24)83,F1$(E7)E6
   : F1$()=ALL(FF)
   : Q=1
   : RETURN
3560 DEFFN'76
   : Q,F9=F9+1
   : IF F9>E7OR F1$(F9)=F3$THEN GOSUB 3590
   : R=VAL(F1$(F9),2)
   : IF E6=3THEN R=R+MOD(VAL(STR(F1$(F9),3)),32)*65536
   : B=INT(R*C7)
   : R=R-B*F4
   : Q=INT(R*C3)
   : S=F1+B*F3+F2*Q
   : IF S<>F8THEN DATA LOAD DA T#F0,(S)E$()
   : F8=S
   : R=1+(R-Q*F6)*F5
   : Q=VAL(STR(E$(),R))
   : IF Q<255AND Q<>#PARTTHEN Q=-Q
   : J=C2
   : STR(F$(),C6+J)=STR(E$(),R+1,F5-1)
3570 IF C6>1THEN HEXUNPACKSTR(F$(),C6+J,C1)TO F$()
   : $TRAN(F$()<,C1+C1>," 0$1+2,3-4.5061728394A5B6C7D8E9F")R
   : IF J=0THEN RETURN
   : C=C6+C1
   : B=R+C6
   : Y=B+J
   : STR(F$(),C,C5)=STR(F$(),C+J,C5)AND ALL(3F)ADDALL(20)
   : AND (STR(E$(),B,C5),C0)
   : ROTATE(STR(E$(),B,J),6)
   : ROTATE(STR(E$(),Y,J),4)
   : ROTATE(STR(E$(),Y+J,J),2)
3580 STR(F$(),C+C5,J)=STR(E$(),B)OR STR(E$(),Y)OR STR(E$(),Y+J)ADDALL(20)
   : RETURN
3590 Q,F8,F9=0
   : F1$()=ALL(FF)
   : M=128
   : IF E8>=E2THEN 3630
3600 MAT REDIM E$(24)83
   : DATA LOAD DA T#E0,(E8*E3+E1+E9)E$()
   : E$=ALL(FF)
   : X=VAL(STR(E$(),3))
   : MAT SEARCHE$()<X>,=STR(E$,,E5)TO F9$STEP E4
   : IF F9$=HEX(0000)THEN F9$=STR(E$(),4)SUBCBIN(X)ADDCBIN(E4)
   : E$()=STR(E$(),X+C9*E4)
   : STR(E$(),VAL(F9$,2)-C9*E4+1)=ALL(FF)
   : MAT REDIM E$(F7)E4
   : MAT MOVE E$()(12),MTO F1$(129-M)
   : C9=C9+M
   : MAT SEARCHF1$(),=F3$TO F9$STEP E6
3610 M=128-INT(VAL(F9$,2)/2)
   : IF F9$=HEX(0000)THEN 3620
   : E9=E9+8
   : E8=E8+INT(E9/C8)
   : C9=0
3620 E9=MOD(E9,C8)
   : IF M<128AND E8<E2THEN 3600
   : Q,F9=1
   : MAT REDIM E$(3*F2)83
   : RETURN
3630 RETURN CLEAR
3640 RETURN