Listing of file='KFAM0104' on disk='vmedia/701-2086B.wvd.zip'
# Sector 350, program filename = 'KFAM0104' 0010 REM KFAM0104,VER.11/08/76 0200 RETURN 0205 COM T0$7,V9,V7$8 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 0545 ADDC(V9$,V0$) : DATA LOAD DA T#T1,(V9$,V9$)T9$,T0$() : RETURN 0645 Q2=99 : 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 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 : 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 2764 T1(T6),T1=T7 : T2(T6),T2=Q2 : GOSUB '210(T6) : GOSUB 1045 : T9=T6 : T=POS(Q0$>41) : 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 2898 2832 Q$="X" : GOTO 2898 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 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" 2898 GOSUB 984 : T9=0 : RETURN 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 %#