Listing of file='KFAM0004' on disk='vmedia/701-2086B.wvd.zip'
# Sector 454, program filename = 'KFAM0004' 0010 REM KFAM0004,VER.11/08/76 0200 RETURN 0205 COM T0$7,V9,V7$8 0208 COM V7$(3)8,Q0$(4)60,Q9$2,Q4$2,Q3,T5$(3)30 0212 COM V0(3),T2(3),T1(3),V0$(3)2,T$(3)8,T6$(3)16,T4$(3)3,T7$(3)30,V3$(3)1,V8 (3) : COM V6,T3$3,T6$1,T7$30,V,T2,V7,Q6,V1 0220 COM V3$2,V2$2,Q3$2,V1$8,V2$(4)2,V8$1,V6$1,Q2$2,V5$(4)1,Q0$4,T2$2,T0,T8$(4 )1,V4$(4)2 : COM Q,T1,V0$2,T$8,T2$(8)2,Q2,Q$1,T9,T1$30,T9$2,V0 0226 COM T1$(1)2,T6,T4$3,T0$(4)60,T4,T3$(1)33,T3,T5,V9$2,T 0510 V9$=T9$ : ADDC(V9$,V0$) : DATA SAVE DA T$#T1,(V9$,V9$)T9$,T0$() : RETURN 0545 ADDC(V9$,V0$) : DATA LOAD DA T#T1,(V9$,V9$)T9$,T0$() : RETURN 0570 V9$=Q9$ : ADDC(V9$,V0$) : DATA SAVE DA T$#T1,(V9$,V9$)Q9$,Q0$() : RETURN 0645 Q2=99 0655 V9$=T2$ : FOR T3=T0TO 1STEP -1 : GOSUB 545 : T2$(T3)=T9$ : MAT SEARCHT0$()<1,V7>,>STR(T1$,1,T4)TO T1$()STEP T5 : T=VAL(STR(T1$(1),2))-T5 : IF T>0THEN 720 : T=V1 0720 MAT COPY T0$()<T,T5>TO T3$() : V9$=STR(T3$(1),T4+1,2) : IF Q2<99THEN 785 0735 BIN(STR(T$,T3))=T : NEXT T3 : T7$=T1$ : V=2 : IF STR(T1$,1,T4)=STR(T3$(1),1,T4)THEN 770 : V=3 0770 RETURN 0785 MAT COPY T0$()<V1,1>TO T1$() : IF T1$(1)=HEX(FF)THEN 810 : Q2=Q2+1 : GOTO 735 0810 Q2=0 : GOTO 735 0830 T4=VAL(STR(V1$,5)) : T5=T4+3 : V6=VAL(STR(V1$,6)) : V7=T5*V6 : V1=V7-T5+1 : RETURN 0870 Q$=" " : IF T6<1THEN 914 : IF T6=T9THEN 922 0876 IF T6>3THEN 914 : IF V9=0THEN 914 : IF V0$(T6)>HEX(FF)THEN 914 : IF T9=0THEN 890 : GOSUB 944 : IF V3$(T9)="A"THEN 890 : GOSUB 1015 0890 T9=T6 : GOSUB 960 : IF V3$(T9)="X"THEN 900 : GOSUB '210(T9) 0900 GOSUB 1045 : GOSUB 830 : T9$=HEX(FF) : GOTO 930 0914 RETURN CLEAR 0916 Q$="X" : RETURN 0922 IF STR(Q0$,V0,1)="X"THEN 200 : GOSUB '210(T9) : GOSUB 1045 0930 INIT(FF)V4$(V0) : RETURN 0944 T4$(T9)=T4$ : T7$(T9)=T7$ : MAT COPY T2$()TO T6$()<16*(T9-1)+1,16> : T$(T9)=T$ : RETURN 0960 T4$=T4$(T9) : T7$=T7$(T9) : MAT COPY T6$()<16*(T9-1)+1,16>TO T2$() : T$=T$(T9) : V0$=V0$(T9) : T1=T1(T9) : T2=T2(T9) : V0=V0(T9) : RETURN 0982 IF V3$(T9)="X"THEN 200 0984 GOSUB '211(T9) : GOSUB 1015 : RETURN 1015 DATA SAVE DA T$#T1,(V0$,V9$)Q2$,Q3$,V5$(),V8$,V1$,V2$,V3$,V6$,T2$,T0,T8$( ),Q0$,V4$(),V2$() : RETURN 1045 DATA LOAD DA T#T1,(V0$,V9$)Q2$,Q3$,V5$(),V8$,V1$,V2$,V3$,V6$,T2$,T0,T8$() ,Q0$,V4$(),V2$() : RETURN 1070 T6=VAL(T4$)*256+VAL(STR(T4$,2)) : DBACKSPACE #T2,BEG : IF T6=0THEN 200 : DSKIP #T2,T6S : RETURN 1082 Q=VAL(STR(T4$,3)) : Q$,T8$(V0)=" " : IF Q6=0THEN 200 : IF V3$(T9)="X"THEN 200 : V4$(V0)=T4$ : RETURN 1098 MAT SEARCHV4$(),=STR(T4$,1,2)TO T1$()STEP 2 : IF T1$(1)=HEX(0000)THEN 200 : Q$="B" : T8$(V0)="9" : RETURN CLEAR 1108 GOTO 982 1120 DEFFN'232(T6,Q6,T1$) : GOSUB 870 : GOSUB 645 : T4$=STR(T3$(1),T4+1,3) : T8$(V0)="2" : IF V<>2THEN 3005 : IF T4$>HEX(FF)THEN 3005 : GOSUB 1098 : GOSUB 1082 : GOSUB 982 : GOTO 1070 1175 DEFFN'235(T6,Q6) : GOSUB 870 : INIT(00)T1$ : Q$="5" : GOTO 1265 1215 DEFFN'237(T6,Q6) : GOSUB 870 : T=VAL(STR(T$,1)) : IF T8$(V0)=" "THEN 1275 : IF T8$(V0)>HEX(40)THEN 3035 : T1$=T7$ 1265 GOSUB 645 1275 T=T+T5 : IF T2$(1)=T9$THEN 1305 : V9$=T2$(1) : GOSUB 545 1305 IF T>V1THEN 1365 : MAT COPY T0$()<T,T5>TO T3$() : IF T3$(1)>HEX(FF)THEN 1365 1325 T4$=STR(T3$(1),T4+1,3) : IF T4$>HEX(FF)THEN 3000 : GOSUB 1098 : T7$=STR(T3$(1),1,T4) : BIN(STR(T$,1))=T : T2$(1)=T9$ : GOSUB 1082 : GOSUB 982 : GOTO 1070 1365 T3=1 1370 T3=T3+1 : IF T3>T0THEN 3060 : V9$=T2$(T3) : GOSUB 545 : T=VAL(STR(T$,T3)) : T=T+T5 : IF T>V1THEN 1370 : MAT COPY T0$()<T,T5>TO T3$() : IF T3$(1)>HEX(FF)THEN 1370 1420 BIN(STR(T$,T3))=T : IF T3=1THEN 1325 : V9$=STR(T3$(1),T4+1,2) : GOSUB 545 : MAT COPY T0$()<1,T5>TO T3$() : T3=T3-1 : T=1 : T2$(T3)=T9$ : GOTO 1420 1480 DEFFN'236(T6,Q6) : GOSUB 870 : T1$=HEX(FF) : GOSUB 645 : GOTO 1325 1526 DEFFN'238(T6) : Q6=0 : GOSUB 870 : GOTO 982 1545 GOSUB 1640 : IF T=V1THEN 1580 : T6=V1-T : MAT COPY -T0$()<T,T6>TO -T0$()<T+T5,T6> 1580 T3$(1)=T1$ : STR(T3$(1),T4+1,3)=T3$ : MAT COPY T3$()<1,T5>TO T0$()<T,T5> : RETURN 1598 T8$(V0)="3" : FOR V=1TO 4 : IF T8$(V)>"9"THEN 1606 : T8$(V)="3" 1606 NEXT V : RETURN 1640 IF T3>1THEN 1750 : IF Q$="4"THEN 1720 : ADD(V5$(V0),01) : IF V5$(V0)<=V8$THEN 1690 : ADDC(Q2$,V6$) : V2$(V0)=Q2$ : V5$(V0)=HEX(01) 1690 T3$=V2$(V0) : STR(T3$,3)=V5$(V0) : T4$=T3$ : RETURN 1720 T3$=T4$ : RETURN 1750 T3$=Q4$ : RETURN 1770 DEFFN'234(T6,Q6,T1$,Q) : GOSUB 870 : Q$="4" : IF STR(T4$,1,2)>Q3$THEN 3035 : IF STR(T4$,3,1)>V8$THEN 3035 : GOSUB 1098 : GOTO 1870 1830 DEFFN'233(T6,Q6,T1$,Q) : GOSUB 870 1870 Q2=1 : T6$=T1$ : IF T6$=HEX(FF)THEN 3035 : GOSUB 655 : IF V=2THEN 2980 : V8(T9)=.004+.98*V8(T9) : IF T1$>T5$(T9)THEN 1930 : V8(T9)=V8(T9)+.012 1930 T5$(T9)=T1$ : V=INT(V8(T9)*V6+.6) : T=T+T5 : IF Q$="4"THEN 1975 : IF V5$(V0)<V8$THEN 1975 : V9$=Q2$ : T6$=V6$ : ADD(T6$,FF) : ADDC(V9$,T6$) : ADDC(V9$,V6$) : IF V9$>Q3$THEN 2960 1975 IF Q2=0THEN 2300 : IF Q2>8THEN 2960 : V9$=V2$ : BIN(T6$)=Q2 : ADDC(V9$,T6$) : IF V3$<V9$THEN 2960 2040 ADDC(V2$,01) : Q9$=V2$ : INIT(FF)Q0$() : Q2,T6=V*T5 : IF T<V7-Q2+T5THEN 2100 : Q2=Q2-T5 2100 Q3=V7-Q2+1 : MAT COPY T0$()<Q3,Q2>TO Q0$()<1,Q2> : MAT COPY Q0$()<Q2+1,1>TO T0$()<Q3,1> : MAT COPY T0$()<Q3,Q2-1>TO T0$()<Q3+1,Q2-1> : IF Q2=T6THEN 2205 : T=T-(V7-Q2) : IF T=Q2+1THEN 2175 2155 MAT COPY -Q0$()<T,Q2+1-T>TO -Q0$()<T+T5,Q2+1-T> 2175 T3$(1)=T1$ : GOSUB 1640 : STR(T3$(1),T4+1,3)=T3$ : MAT COPY T3$()<1,T5>TO Q0$()<T,T5> : GOTO 2215 2205 GOSUB 1545 2215 GOSUB 570 : GOSUB 510 : T1$=STR(Q0$(1),1,T4) : Q4$=Q9$ : T3=T3+1 : IF T3>T0THEN 2345 : V9$=T2$(T3) : GOSUB 545 : T=VAL(STR(T$,T3))+T5 : MAT COPY T0$()<V1,T5>TO T3$() : IF T3$(1)>HEX(FF)THEN 2300 : GOTO 2040 2300 GOSUB 1545 : GOSUB 510 2315 GOSUB 1082 : GOSUB 1598 : GOSUB 984 : GOTO 1070 2345 ADDC(V2$,01) : Q9$=V2$ : INIT(FF)Q0$() : INIT(00)T3$(1) : STR(T3$(1),T4+1,2)=T2$ : MAT COPY T3$()<1,T5>TO Q0$()<1,T5> : T3$(1)=T1$ : STR(T3$(1),T4+1,2)=Q4$ : MAT COPY T3$()<1,T5>TO Q0$()<T5+1,T5> : GOSUB 570 : T0=T3 : T2$=Q9$ : GOTO 2315 2420 DEFFN'231(T6,Q6,T1$) : GOSUB 870 : Q$=T1$ : IF Q$=HEX(FF)THEN 3035 : GOSUB 645 : IF V<>2THEN 3000 : T4$=STR(T3$(1),T4+1,3) : IF T4$>HEX(FF)THEN 3035 : GOSUB 1098 2480 IF T=V1THEN 2510 : T6=V7-T+1-T5 : MAT COPY T0$()<T+T5,T6>TO T0$()<T,T6> 2510 INIT(FF)T3$(1) : MAT COPY T3$()<1,T5>TO T0$()<V1,T5> 2515 GOSUB 510 : IF T=1THEN 2555 : GOSUB 1082 : GOSUB 1598 : GOSUB 982 : GOTO 1070 2555 T3$(1),Q$=T0$(1) : T3=T3+1 : V9$=T2$(T3) : GOSUB 545 : T=VAL(STR(T$,T3)) : IF Q$=HEX(FF)THEN 2480 : MAT COPY T3$()<1,T4>TO T0$()<T,T4> : GOTO 2515 2620 DEFFN'230(T6,T7,Q2,Q3,V7$,T6$) : IF T6<1THEN 916 : IF T6>3THEN 916 : IF V9>0THEN 2840 : INIT(FF)V0$() : INIT(00)T0$ 2695 IF STR(T0$,T7+1,1)>HEX(00)THEN 916 : IF STR(T0$,Q2+1,1)>HEX(00)THEN 916 : IF Q2=T7THEN 916 2715 V7$(T6)=V7$ 2718 DATA LOAD DC OPEN T#Q2,V7$ : STR(V7$,5,1)="K" : CONVERT Q3TO STR(V7$,6,1),(#) : GOSUB '211(T6) : LIMITS T#T7,V7$,T,V,T3 : V=INT(T/256) : BIN(V0$)=V : BIN(STR(V0$,2))=T-256*V : T1(T6),T1=T7 : T2(T6),T2=Q2 : GOSUB '210(T6) : GOSUB 1045 : T9=T6 : T=POS(Q0$>41) 2780 IF T>0THEN 2826 : IF T6$="A"THEN 2792 : IF T6$<>"X"THEN 2832 : IF Q0$<>" "THEN 2826 2792 V0,V0(T6)=POS(Q0$=20) : IF V0=0THEN 2832 : V3$(T6),STR(Q0$,V0,1)=T6$ : INIT(FF)V4$(V0) : T8$(V0)="O" : V8(T6)=.5 : V0$(T6)=V0$ : T9=T6 : GOSUB 830 : STR(T0$,T1+1,1)=HEX(01) : STR(T0$,T2+1,1)=HEX(01) : V9=V9+1 : Q$=" " : GOTO 984 2826 Q$="C" : GOTO 2864 2832 Q$="X" : GOTO 2864 2840 IF V0$(T6)<HEX(FF)THEN 916 : IF T9=0THEN 2695 : GOSUB 944 : IF V3$(T9)="A"THEN 2855 : GOSUB 1015 2855 T9=0 : GOTO 2695 2864 GOSUB 984 : T9=0 : RETURN 2875 DEFFN'239(T6) : GOSUB 870 : STR(T0$,T1+1,1),STR(T0$,T2+1,1)=HEX(00) : V9=V9-1 : INIT(FF)V0$(T9) : STR(Q0$,V0,1)=" " : T8$(V0)="Z" : GOSUB 984 2906 LIMITS T#T2,V7$(T9),T,V,T3 : V=V-1 : V9$=HEX(A0FD) : T1$=HEX(A002A002A001A001A008A001A002) : $PACK(F=T1$)T0$()FROMV9$,Q2$,V5$(),V8$,V1$,V6$,V2$() : DATA SAVE BA T$#T2,(V,V)T0$() 2918 T9=0 : RETURN 2960 T8$(V0),Q$="S" : GOTO 982 2980 T8$(V0),Q$="D" : GOTO 982 3000 T8$(V0)="N" 3005 Q$="N" : GOTO 982 3035 T8$(V0)="X" : Q$="X" : GOTO 982 3060 IF Q$="5"THEN 3000 : T8$(V0),Q$="E" : GOTO 982 3072 %#