Listing of file='KFAM0000' on disk='vmedia/701-2049C.wvd.zip'
# Sector 303, program filename = 'KFAM0000' 0010 REM KFAM0000, VER.09/23/75 0200 RETURN 0205 COM Q3$(3)8 : COM Q8$(3)60 : COM Q0(3,20) : COM Q7(3) : COM Q7$(3)8 : COM V7(6),V8(6) : COM T9$5 : COM T(20) : COM T0$(4)60 : COM T0(6) : COM T1(6) : COM T0$8 : COM T2$15 : COM T3$15 : COM Q$1 : COM T5$12 : COM T6$1 : COM T1$15 : COM T9$(3,4)60 0442 COM T,T0,T1,T2,T3,T4,T5,Q,T7,T8,T9,V,V0,V1,V2,V3,V4,V5,V6,V7,V8,V9 0605 Q$=" " : V2=T1 : GOTO 755 0610 T3=T3+V7(T8) : GOTO 740 0615 T3=T9+1 : T0=V0 : Q=V6 : GOTO 760 0620 V2=1 : Q$=" " : GOTO 670 0625 IF T(4)<>0THEN 630 : Q$="N" : RETURN 0630 Q$="L" : V2=T(4) : FOR T7=1TO T(5) : STR(T1$,1,T(6))=STR(Q8$(T),T(6)*(T7-1)+1,T(6)) : IF STR(T5$,1,T(6)-3)<STR(T1$,4,T(6)-3)THEN 670 : IF STR(T5$,1,T(6)-3)=STR(T1$,4,T(6)-3)THEN 620 : NEXT T7 : V2=0 : Q$="H" 0670 T3,T1(1)=T7 : GOSUB 940 : IF T(4)<2THEN 200 : FOR T1=2TO T(4) : T0(T1)=T0 : GOSUB 1745 : IF Q$=" "THEN 615 : T3=32 : FOR T8=1TO 6 : IF T3>T9THEN 735 : T5=INT((T3-1)/T(7)) : STR(T1$,1,T(6))=STR(T0$(T5+1),T(6)*(T3-T(7)*T5-1)+1,T(6)) 0725 IF STR(T5$,1,T(6)-3)>STR(T1$,4,T(6)-3)THEN 610 : IF STR(T5$,1,T(6)-3)=STR(T1$,4,T(6)-3)THEN 605 0735 T3=T3-V8(T8) 0740 NEXT T8 : IF T3>T9THEN 615 : T5=INT((T3-1)/T(7)) : STR(T1$,1,T(6))=STR(T0$(T5+1),T(6)*(T3-T(7)*T5-1)+1,T(6)) 0755 GOSUB 940 0760 T1(T1)=T3 : NEXT T1 : RETURN 0790 STR(T1$,1,T(6))=STR(Q8$(T),T(6)*(T7-1)+1,T(6)) : RETURN 0820 STR(Q8$(T),T(6)*(T5-1)+1,T(6))=STR(T1$,1,T(6)) : RETURN 0865 DBACKSPACE #T(2),BEG : DSKIP #T(2),T2-1S : IF END THEN 900 : T(3)=T3+1 : T(16)=T2 : T(17)=Q : RETURN 0900 Q$="X" : RETURN 0940 T0=VAL(STR(T1$,1,1))*256+VAL(STR(T1$,2,1)) : Q=VAL(STR(T1$,3,1)) : RETURN 0990 T5=INT((T3-1)/T(7)) : STR(T0$(T5+1),T(6)*(T3-T(7)*T5-1)+1,T(6))=STR(T1$,1,T(6)) : RETURN 1045 T5=INT((T3-1)/T(7)) : STR(T1$,1,T(6))=STR(T0$(T5+1),T(6)*(T3-T(7)*T5-1)+1,T(6)) : RETURN 1095 DEFFN'235(T) : T6$="1" : INIT(00)T5$ : GOTO 1265 1140 DEFFN'236(T) : BIN(T5$)=255 : T6$="L" : GOTO 1265 1200 DEFFN'232(T,T8,T5$) : T6$="F" : GOTO 1265 1255 DEFFN'231(T,T8,T5$) : T6$="D" 1265 GOSUB 1610 : IF Q$="X"THEN 200 : GOSUB 625 : IF Q$="N"THEN 200 : T2=T0 : T(17)=Q : IF T6$<>"D"THEN 1350 : IF Q$<>" "THEN 1350 : IF T(4)>1THEN 1360 1305 IF T(5)=T3THEN 1335 : FOR T7=T3+1TO T(5) : GOSUB 790 : T5=T7-1 : GOSUB 820 : NEXT T7 1335 T(5)=T(5)-1 : T3=T3-1 : IF T(5)<>0THEN 1350 : T(4),T(5)=0 1350 Q=T(17) : GOSUB 865 : RETURN 1360 T1=T(4) 1365 IF T9=0THEN 1460 : IF V2=T1THEN 1400 : T3=T9 : GOSUB 1045 : T2$=T1$ : GOSUB 2950 : T0=T0(T1) : GOSUB 1745 : GOSUB 1045 : STR(T0$,6,3)=STR(T1$,1,3) 1400 IF T9=T3THEN 1440 : T8=T3 : FOR T7=T8TO T9-1 : T3=T7+1 : GOSUB 1045 : T3=T7 : GOSUB 990 : NEXT T7 : T3=T8 1440 T9=T9-1 : T3=T3-1 : T0=T0(T1) : GOSUB 1830 : GOTO 1350 1460 T9=255 : T0=T0(T1) : GOSUB 1830 : T1=T1-1 : T3=T1(T1) : IF T1<2THEN 1305 : T0=T0(T1) : GOSUB 1745 : GOTO 1365 1520 IF T0>9790THEN 900 : BIN(STR(T1$,3,1))=Q : BIN(STR(T1$,1,1))=INT(T0/256) : BIN(STR(T1$,2,1))=T0-INT(T0/256)*256 : RETURN 1610 Q$="X" : IF T<1THEN 200 : IF T>3THEN 200 : IF T6$="O"THEN 1627 : IF Q0(T,1)=0THEN 200 : GOTO 1630 1627 IF Q0(T,1)<>0THEN 200 1630 Q$=" " : IF T=VTHEN 200 : IF V=0THEN 1675 : GOSUB 3575 1675 IF T6$="O"THEN 1680 : GOSUB 3640 1680 V=T : RETURN 1745 DBACKSPACE #T(1),BEG : DSKIP #T(1),T0S : IF END THEN 900 : DATA LOAD DC #T(1),T0$,T0$() : IF END THEN 900 : Q7(T)=T0 : T9=VAL(STR(T0$,3,1)) : V6=VAL(STR(T0$,8,1)) : STR(T1$,1,2)=STR(T0$,6,2) : GOSUB 940 : V0=T0 : RETURN 1830 DBACKSPACE #T(1),BEG : DSKIP #T(1),T0S : IF END THEN 900 : STR(T0$,1,2)="B1" : BIN(STR(T0$,3,1))=T9 : DATA SAVE DC #T(1),T0$,T0$() : RETURN 1910 DEFFN'233(T,T8,T5$,Q) : T6$="N" : GOTO 1995 1975 DEFFN'234(T,T8,T5$,Q) : T6$="H" 1995 GOSUB 1610 : IF Q$="X"THEN 200 : IF T6$<>"N"THEN 2005 : IF T(15)>0THEN 2004 : V4=T(14) : GOTO 2005 2004 V4=1/T(15) 2005 Q$="S" : IF T(9)+T(4)>=T(8)THEN 200 : IF T6$="H"THEN 2020 : IF T(11)+V4>T(10)THEN 200 2020 GOSUB 625 : IF Q$="N"THEN 2150 : IF Q$=" "THEN 2160 2040 IF T6$<>"H"THEN 2050 : T0,T2=T(16) : Q,Q8=T(17) : GOTO 2085 2050 IF T(15)<>0THEN 2055 : Q=0 : GOTO 2080 2055 V8=T(11)-INT(T(11)) : IF V8>.99999THEN 2065 : GOTO 2070 2065 T(11)=INT(T(11))+1 : V8=0 2070 Q=V8*T(15)+1 : Q=INT(Q+.5) : Q8=Q 2080 T0,T2=INT(T(11)) : T(11)=T(11)+V4 2085 GOSUB 1520 : STR(T2$,1,3)=STR(T1$,1,3) : STR(T2$,4,12)=STR(T5$,1,12) : IF T(4)=1THEN 2415 : IF V2<>0THEN 2115 : GOSUB 2950 2115 V5=T0(T(4)) : IF T9>=T(7)*4THEN 2175 2125 GOSUB 2525 : T0=V5 : GOSUB 1830 2135 Q=Q8 : GOSUB 865 : Q$=" " : RETURN 2150 T3,T(4),V2=1 : GOTO 2040 2160 Q$="D" : RETURN 2175 T1=T(4) 2180 GOSUB 2655 : T1=T1-1 : T3=T1(T1) : IF T1<2THEN 2430 : V5,T0=T0(T1) : GOSUB 1745 : IF T9<T(7)*4THEN 2125 : GOTO 2180 2225 Q7(T),T0=T(9) : T(9)=T(9)+1 : V7=T0 : T8=INT(T(5)/2) : FOR T7=T8+1TO T(5)-1 : GOSUB 790 : T3=T7-T8 : GOSUB 990 : NEXT T7 : T7=T(5) : GOSUB 790 : STR(T0$,6,3)=STR(T1$,1,3) : BIN(STR(T0$,4,1))=0 : BIN(STR(T0$,5,1))=0 : T9=T(5)-T8-1 : T0=V7 : GOSUB 1830 2300 Q7(T),T0=T(9) : T(9)=T(9)+1 : V3=T0 : T9=T8-1 : FOR T7=1TO T9 : GOSUB 790 : T3=T7 : GOSUB 990 : NEXT T7 : T7=T8 : GOSUB 790 : STR(T0$,6,3)=STR(T1$,1,3) : T0=V7 : GOSUB 1520 : STR(T0$,4,2)=STR(T1$,1,2) : T0=V3 : GOSUB 1830 : GOSUB 1520 : T2$=T1$ : T7=T(5) : GOSUB 790 2385 T0=V7 : GOSUB 1520 : T(5)=1 : T3=1 : T(4)=T(4)+1 : T5=1 : GOSUB 820 : GOTO 2435 2415 IF V2<>0THEN 2430 : T3=T3+1 2430 IF T3>T(5)THEN 2455 2435 FOR T7=T(5)TO T3STEP -1 : GOSUB 790 : T5=T7+1 : GOSUB 820 : NEXT T7 2455 T1$=T2$ : T(5)=T(5)+1 : T5=T3 : GOSUB 820 : IF T(7)=T(5)THEN 2225 : GOTO 2135 2525 T8=T3 : IF T3>T9THEN 2565 : FOR T7=T9TO T8STEP -1 : T3=T7 : T5=INT((T3-1)/T(7)) : STR(T1$,1,T(6))=STR(T0$(T5+1),T(6)*(T3-T(7)*T5-1)+1,T(6)) : T3=T7+1 : T5=INT((T3-1)/T(7)) 2555 STR(T0$(T5+1),T(6)*(T3-T(7)*T5-1)+1,T(6))=STR(T1$,1,T(6)) : NEXT T7 2565 T9=T9+1 : T1$=T2$ : T3=T8 : GOSUB 990 : RETURN 2655 IF T1(T1)>T9THEN 2885 : T3=T9 : GOSUB 1045 : T3$=T1$ : T9=T9-1 : T3=T1(T1) : GOSUB 2525 2680 T8=T9 : T9=INT((T9+2)/V9)-1 : Q7(T),T0=T(9) : T(9)=T(9)+1 : V3=T0 : T3=T9+1 : GOSUB 1045 : STR(T9$,1,5)=STR(T0$,4,5) : STR(T0$,6,3)=STR(T1$,1,3) : GOSUB 1520 : STR(T0$,4,2)=STR(T1$,1,2) : T0=T0(T1) : GOSUB 1520 : T2$=T1$ : GOSUB 1830 : T8=T8-T9 2755 STR(T0$,4,5)=STR(T9$,1,5) : FOR T7=1TO T8-1 : T3=T7+T9+1 : GOSUB 1045 : T3=T7 : GOSUB 990 : NEXT T7 : T3,T9=T8 : T1$=T3$ : GOSUB 990 : T0=V3 : GOSUB 1830 : IF T1<3THEN 2860 : T0=T0(T1-1) : GOSUB 1745 : T3=T1(T1-1) : T0=V3 : IF T3>T9THEN 2845 : GOSUB 1045 : GOSUB 1520 : GOSUB 990 2835 T0=T0(T1-1) : GOSUB 1830 : RETURN 2845 GOSUB 1520 : STR(T0$,6,3)=STR(T1$,1,3) : GOTO 2835 2860 T5,T7=T1(1) : GOSUB 790 : GOSUB 1520 : GOSUB 820 : RETURN 2885 T3$=T2$ : GOTO 2680 2950 T3$=T0$ : STR(T0$,6,3)=STR(T2$,1,3) : STR(T2$,1,3)=STR(T3$,6,3) : IF V2<2THEN 3020 : V3=T3 : T3=T1(V2) : T8=T0 : T0=T0(V2) : GOSUB 1745 : GOSUB 1045 : STR(T3$,1,12)=STR(T2$,4,12) : STR(T2$,4,12)=STR(T1$,4,12) : STR(T1$,4,12)=STR(T3$,1,12) : GOSUB 990 3005 T0=T0(V2) : GOSUB 1830 : T0=T8 : T3=V3 : RETURN 3020 T5,T7=T1(1) : GOSUB 790 : STR(T3$,1,12)=STR(T2$,4,12) : STR(T2$,4,12)=STR(T1$,4,12) : STR(T1$,4,12)=STR(T3$,1,12) : GOSUB 820 : RETURN 3100 DEFFN'230(T,T4,T5,T8,T2$) : T6$="O" : GOSUB 1610 : IF Q$="X"THEN 200 : Q$="X" : IF T<1THEN 3280 : IF T>3THEN 3280 : IF Q0(T,1)<>0THEN 3280 : IF T4+T5<2THEN 3280 : IF T4>6THEN 3280 : IF T5>6THEN 3280 : FOR T7=1TO 3 : IF T4=Q0(T7,1)THEN 3280 : IF T5=Q0(T7,2)THEN 3280 : NEXT T7 3160 IF T8<1THEN 3280 : IF T8>9THEN 3280 : Q$=" " : FOR T7=1TO 5 : V7(T7),V8(T7)=INT(16/(2^(T7-1))) : NEXT T7 : V7(6)=1 : V8(6)=0 : T1$=T2$ : STR(T1$,5,1)="K" : CONVERT T8TO STR(T1$,6,1),(#) : DATA LOAD DC OPEN T#T4,T1$ : DATA LOAD DC OPEN T#T5,T2$ : Q0(T,1)=T4 3220 Q0(T,2)=T5 : DATA LOAD DC #Q0(T,1),Q3$(T),T(),Q8$(T) : FOR T7=3TO 20 : Q0(T,T7)=T(T7) : NEXT T7 : GOSUB 3640 : T0,T3=1 : T(3),T(16),Q7(T)=0 : V9=2 3280 RETURN 3310 DEFFN'239(T) : T6$="C" : GOSUB 1610 : IF Q$="X"THEN 200 : DBACKSPACE #T(1),BEG : DATA SAVE DC #T(1),Q3$(T),T(),Q8$(T) : DATA SAVE DC CLOSE#T(1) : DATA SAVE DC CLOSE#T(2) : Q0(T,1),Q0(T,2),V=0 : RETURN 3415 DEFFN'237(T) : GOSUB 1610 : IF Q$="X"THEN 3535 : IF T(3)=0THEN 3540 : IF T(4)>1THEN 3465 : IF T(4)=0THEN 3550 : IF T(5)<2THEN 3540 : IF T(3)>T(5)THEN 3540 : T3,T7=T(3) : GOSUB 790 : GOTO 3525 3465 IF T9+2>T(3)THEN 3500 3475 STR(T1$,1,2)=STR(T0$,4,2) : GOSUB 940 : IF T0=0THEN 3540 : GOSUB 1745 : IF T9=255THEN 3475 : T(3)=1 3500 T3=T(3) : IF T(3)<>T9+1THEN 3520 : T0=V0 : Q=V6 : GOTO 3530 3520 GOSUB 1045 3525 GOSUB 940 3530 T2=T0 : GOSUB 865 3535 RETURN 3540 Q$="E" : RETURN 3550 Q$="N" : RETURN 3575 FOR T7=1TO 4 : T9$(V,T7)=T0$(T7) : NEXT T7 : Q7$(V)=T0$ : T0=V1 : GOSUB 1520 : STR(T0$,4,2)=STR(T1$,1,2) : T0=V0 : Q=V6 : GOSUB 1520 : STR(T0$,6,3)=STR(T1$,1,3) : BIN(STR(T0$,1,1))=T9 : FOR T7=1TO 20 : Q0(V,T7)=T(T7) : NEXT T7 : RETURN 3640 FOR T7=1TO 20 : T(T7)=Q0(T,T7) : NEXT T7 : T0$=Q7$(T) : FOR T7=1TO 4 : T0$(T7)=T9$(T,T7) : NEXT T7 : T9=VAL(STR(T0$,3,1)) : STR(T1$,1,2)=STR(T0$,4,2) : GOSUB 940 : V1=T3 : STR(T1$,1,3)=STR(T0$,6,3) : GOSUB 940 : V0=T0 : V6=Q : RETURN 3688 %#