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 %#