Listing of file='DFA.IFE' on disk='vmedia/701-2720C.wvd.zip'
# Sector 664, program filename = 'DFA.IFE' 6200 REM DFA.IFE, RELEASE X03, (OCT 10, 81) IDEAS2 Fetch Operation 6201 MAT N4=ZER : N7$(4)="FE" : IF N7$(2)="P"THEN J9=.5 : ELSE J9=-.5 : IF N7$(1)<>"NP"THEN 6203 : GOSUB '96 : IF Q=0THEN 6294 : ELSE GOTO 6296 6203 IF N7$(1)<>"FP"THEN 6204 : DIM E$(24)83,F$(1000)1,F1$(256)1,E1$3,E$82,F3$3,F9$2,W$(249)2,L$(249)2 : GOSUB '95(STR(N8$(N5(2)),21,8),STR(N8$(N5(2)),48,3),4,5) : IF Q=0THEN 6294 : ELSE GOTO 6296 6204 SELECT @PART"IDS2SUBM" : MAT COPY K8$()TO F$() : IF N7$(1)<>"KE"THEN 6205 : GOSUB '41(N3$,K$,J9) : IF Q=0THEN 6294 : ELSE GOTO 6296 6205 IF N7$(1)<>"CU"THEN 6206 : GOSUB '41(N3$,STR(N8$(N5(2)),N5(4)),J9) : IF Q=0THEN 6294 : ELSE GOTO 6296 6206 IF N7$(1)<>"NE"THEN 6295 6207 %GOSUB '061(V,STR(N8$(N5(2)),N5(4)),0): IF Q<=0THEN 6262 6208 GOSUB '062(N3$,1,J9) : IF Q=0THEN 6294 : GOTO 6296 6209 %-------------------- 6212 DEFFN'95(E$,E1$,E0,F0) 6217 DEFFN1(E)=VAL(STR(E$(),E+392)) 6222 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) 6227 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 6232 C3=ROUND((1/F6+5E-11,10) : C5=3*C2 : C6=C1+1 : C7=ROUND((1/F4+5E-11,10) : C8=FN1(45) : MAT REDIM E$(24)83,F1$(E7)E6 : F1$()=ALL(FF) : Q=1 : RETURN 6237 DEFFN'96 : Q,F9=F9+1 : IF F9>E7OR F1$(F9)=F3$THEN GOSUB 6252 : 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=ABS(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) 6242 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) 6247 STR(F$(),C+C5,J)=STR(E$(),B)OR STR(E$(),Y)OR STR(E$(),Y+J)ADDALL(20) : RETURN 6252 Q,F8,F9=0 : F1$()=ALL(FF) : M=128 : IF E8>=E2THEN 6272 6257 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$()(E5+1),MTO F1$(129-M) : C9=C9+M : MAT SEARCHF1$(),=F3$TO F9$STEP E6 6262 M=128-INT(VAL(F9$,2)/2) : IF F9$=HEX(0000)THEN 6267 : E9=E9+8 : E8=E8+INT(E9/C8) : C9=0 6267 E9=MOD(E9,C8) : IF M<128AND E8<E2THEN 6257 : MAT SORTF1$()TO W$(),L$() : MAT MOVE F1$(),L$(1)TO W$(1) : MAT MOVE W$()TO F1$() : Q,F9=1 : MAT REDIM E$(3*F2)83 : RETURN 6272 RETURN CLEAR 6277 RETURN 6293 N4(1)=0 : N4(2)=9006 : GOTO 6297 6294 N4(1)=2 : N4(2)=Q : GOTO 6297 6295 N4(1)=0 : N4(2)=9009 : GOTO 6297 6296 N4(1)=1 : N4(2)=0000 : IF N7$(1)<>"FP"THEN K8$()=F$() 6297 GOTO 6196 6299 %A$="DFA.IFE": SCRATCH TA$: SAVE T()A$6200,6299: PRINT A$;" UPDATED"