Listing of file='KFAM0002' on disk='vmedia/701-2049C.wvd.zip'
# Sector 382, program filename = 'KFAM0002'
0010 REM KFAM0002,VER.02/17/76
0200 RETURN
0205 COM V7$8,T0$7,V9(3),V9,V0$(3)2,T1(3)
: COM V0$2,V1$8,V2$2,V3$2,V4$2,V6$1
: COM Q2$2,Q3$2,V5$1,V8$1,T5$12,T7$12
: COM T0,T9,T2$2,T4$3,T2,V8,T8,T1,T8$1,T2$(6)2,T(6)
: COM Q,Q$1,T9$2,T0$(15)15
0240 DIM T6$1,Q4$2,T3$3
: DIM Q9$2,Q0$(15)15,V9$2,T1$12
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
0600 V=2
: T=8
: IF T1$=STR(T0$(8),1,12)THEN 200
: IF T1$<T0$(8)THEN 725
: T=12
0645 IF T1$=STR(T0$(T),1,12)THEN 200
: IF T1$<T0$(T)THEN 740
: T=T+2
0665 IF T1$=STR(T0$(T),1,12)THEN 200
: IF T1$<T0$(T)THEN 755
: T=T+1
0685 IF T1$=STR(T0$(T),1,12)THEN 200
: IF T1$<T0$(T)THEN 710
: V=3
: RETURN
0710 V=1
: RETURN
0725 T=4
: GOTO 645
0740 T=T-2
: GOTO 665
0755 T=T-1
: GOTO 685
0795 Q2=9
0805 V9$=T2$
: FOR T3=T0TO 1STEP -1
: GOSUB 545
: GOSUB 600
: T2$(T3)=T9$
: IF V>1THEN 850
: T=T-1
0850 V9$=STR(T0$(T),13)
: IF Q2<9THEN 885
0860 T(T3)=T
: NEXT T3
: T7$=T1$
: RETURN
0885 IF T0$(15)>HEX(FF)THEN 900
: Q2=Q2+1
: GOTO 860
0900 Q2=0
: GOTO 860
0920 Q$=" "
: IF T6<1THEN 3040
: IF T6=T9THEN 200
: IF T6>3THEN 3040
: IF V9=0THEN 3040
: IF V0$(T6)>HEX(FF)THEN 3040
: IF T9=0THEN 970
: GOSUB 1015
0970 T9=T6
: GOSUB 1045
: T9$=HEX(FF)
: RETURN
1015 DATA SAVE DA T$#T1,(V0$,V9$)Q2$,Q3$,V5$,V8$,V0$,V1$,V2$,V3$,V6$,T2$,T0,T1
,T2,V8,T4$,T5$,T7$,T2$(),T(),T8$
: RETURN
1045 DATA LOAD DA T#T1(T9),(V0$(T9),V9$)Q2$,Q3$,V5$,V8$,V0$,V1$,V2$,V3$,V6$,T2
$,T0,T1,T2,V8,T4$,T5$,T7$,T2$(),T(),T8$
: RETURN
1070 T6=VAL(T4$)*256+VAL(STR(T4$,2))
: DBACKSPACE #T2,BEG
: IF T6=0THEN 1095
: DSKIP #T2,T6S
1095 Q=VAL(STR(T4$,3))
: Q$,T8$=" "
: RETURN
1120 DEFFN'232(T6,T7,T1$)
: GOSUB 920
: IF Q$>" "THEN 200
: GOSUB 795
: T4$=STR(T0$(T),13)
: T8$="2"
: IF V<>2THEN 3005
: IF T4$>HEX(FF)THEN 3005
: GOSUB 1070
: RETURN
1175 DEFFN'235(T6)
: GOSUB 920
: IF Q$>" "THEN 200
: INIT(00)T1$
: Q$,T8$="5"
: GOTO 1265
1215 DEFFN'237(T6)
: GOSUB 920
: IF Q$>" "THEN 200
: T=T(1)
: IF T8$=" "THEN 1275
: IF T8$>HEX(40)THEN 3035
: T1$=T7$
1265 GOSUB 795
1275 T=T+1
: IF T2$(1)=T9$THEN 1305
: V9$=T2$(1)
: GOSUB 545
1305 IF T>15THEN 1365
: IF T0$(T)>HEX(FF)THEN 1365
1325 T7$=T0$(T)
: T4$=STR(T0$(T),13)
: IF T4$>HEX(FF)THEN 3000
: T(1)=T
: T2$(1)=T9$
: GOSUB 1070
: RETURN
1365 T3=1
1370 T3=T3+1
: IF T3>T0THEN 3060
: V9$=T2$(T3)
: GOSUB 545
: T=T(T3)
: T=T+1
: IF T>15THEN 1370
: IF T0$(T)>HEX(FF)THEN 1370
1420 T(T3)=T
: IF T3=1THEN 1325
: V9$=STR(T0$(T),13)
: GOSUB 545
: T3=T3-1
: T=1
: T2$(T3)=T9$
: GOTO 1420
1480 DEFFN'236(T6)
: GOSUB 920
: IF Q$>" "THEN 200
: T1$=HEX(FF)
: GOSUB 795
: GOTO 1325
1545 GOSUB 1640
: IF T=15THEN 1580
: FOR T6=14TO TSTEP -1
: T0$(T6+1)=T0$(T6)
: NEXT T6
1580 T0$(T)=T1$
: STR(T0$(T),13)=STR(T3$,1,3)
: RETURN
1640 IF T3>1THEN 1750
: IF Q$="4"THEN 1720
: ADD(V5$,01)
: IF V5$<=V8$THEN 1690
: ADDC(Q2$,V6$)
: V5$=HEX(01)
1690 T3$=Q2$
: STR(T3$,3)=V5$
: T4$=T3$
: RETURN
1720 T3$=T4$
: RETURN
1750 T3$=Q4$
: RETURN
1770 DEFFN'234(T6,T7,T1$,Q)
: GOSUB 920
: IF Q$>" "THEN 200
: Q$="4"
: IF T8$<>"1"THEN 3035
: IF STR(T4$,1,2)>Q3$THEN 3035
: IF STR(T4$,3,1)>V8$THEN 3035
: GOTO 1870
1830 DEFFN'233(T6,T7,T1$,Q)
: GOSUB 920
: IF Q$>" "THEN 200
1870 Q2=1
: T6$=T1$
: IF T6$=HEX(FF)THEN 3035
: GOSUB 805
: IF V=2THEN 2980
: V8=.08+.98*V8
: IF T1$>T5$THEN 1930
: V8=V8+.18
1930 T5$=T1$
: T8=INT(V8)
: T=T+1
: IF Q$="4"THEN 1975
: IF V5$<V8$THEN 1975
: V9$=Q2$
: T6$=V6$
: ADD(T6$,FF)
: ADDC(V9$,T6$)
: ADDC(V9$,V6$)
: IF V9$>Q3$THEN 1995
1975 IF Q2=0THEN 2300
: IF Q2<7THEN 2010
1995 T8$,Q$="S"
: RETURN
2010 V9$=V2$
: BIN(T6$)=Q2
: ADDC(V9$,T6$)
: IF V3$<V9$THEN 1995
2040 ADDC(V2$,01)
: Q9$=V2$
: INIT(FF)Q0$()
: Q2=T8
: IF T<17-T8THEN 2100
: Q2=Q2-1
2100 Q3=15-Q2
: FOR T6=1TO Q2
: Q0$(T6)=T0$(T6+Q3)
: INIT(FF)T0$(T6+Q3)
: NEXT T6
: IF Q2=T8THEN 2205
: T=T-(16-T8)
: IF T=T8THEN 2175
: FOR T6=T8-1TO TSTEP -1
: Q0$(T6+1)=Q0$(T6)
: NEXT T6
2175 Q0$(T)=T1$
: GOSUB 1640
: STR(Q0$(T),13)=STR(T3$,1,3)
: GOTO 2215
2205 GOSUB 1545
2215 GOSUB 570
: GOSUB 510
: T1$=Q0$(1)
: Q4$=Q9$
: T3=T3+1
: IF T3>T0THEN 2345
: V9$=T2$(T3)
: GOSUB 545
: T=T(T3)+1
: IF T0$(15)>HEX(FF)THEN 2300
: GOTO 2040
2300 GOSUB 1545
: GOSUB 510
2315 GOSUB 1070
: T8$="3"
: GOSUB 1015
: RETURN
2345 ADDC(V2$,01)
: Q9$=V2$
: INIT(FF)Q0$()
: INIT(00)Q0$(1)
: STR(Q0$(1),13)=STR(T2$,1,2)
: Q0$(2)=T1$
: STR(Q0$(2),13)=Q4$
: GOSUB 570
: T0=T3
: T2$=Q9$
: GOTO 2315
2420 DEFFN'231(T6,T7,T1$)
: GOSUB 920
: IF Q$>" "THEN 200
: Q$=T1$
: IF Q$=HEX(FF)THEN 3035
: GOSUB 795
: IF V<>2THEN 3000
: T4$=STR(T0$(T),13)
: IF T4$>HEX(FF)THEN 3035
2480 IF T=15THEN 2510
: FOR T6=TTO 14
: T0$(T6)=T0$(T6+1)
: NEXT T6
2510 INIT(FF)T0$(15)
2515 GOSUB 510
: IF T=1THEN 2555
: GOSUB 1070
: T8$="1"
: RETURN
2555 T1$,Q$=T0$(1)
: T3=T3+1
: V9$=T2$(T3)
: GOSUB 545
: T=T(T3)
: IF Q$=HEX(FF)THEN 2480
: STR(T0$(T),1,12)=STR(T1$,1,12)
: GOTO 2515
2620 DEFFN'230(T6,T7,Q2,Q3,V7$)
: IF T6<1THEN 3035
: IF T6>3THEN 3035
: IF V9>0THEN 2840
: INIT(FF)V0$()
: INIT(00)T0$
2695 IF STR(T0$,T7+1,1)>HEX(00)THEN 3035
: IF STR(T0$,Q2+1,1)>HEX(00)THEN 3035
: IF Q2=T7THEN 3035
: LIMITS T#Q2,V7$,T,V,T3
: V9(T6)=V-1
: DATA LOAD DC OPEN T#Q2,V7$
: STR(V7$,5,1)="K"
: CONVERT Q3TO STR(V7$,6,1),(#)
: LIMITS T#T7,V7$,T,V,T3
: V=INT(T/256)
: BIN(V0$)=V
2760 BIN(STR(V0$,2))=T-256*V
: T9=T6
: V0$(T9)=V0$
: T1(T9)=T7
: GOSUB 1045
: V0$=V0$(T9)
: T1=T7
: T2=Q2
: STR(T0$,T7+1,1)=HEX(01)
: STR(T0$,Q2+1,1)=HEX(01)
: V9=V9+1
: Q$=" "
: T8$="O"
: RETURN
2840 IF V0$(T6)<HEX(FF)THEN 3035
: IF T9=0THEN 2695
: GOSUB 1015
: T9=0
: GOTO 2695
2875 DEFFN'239(T6)
: IF T9=0THEN 2900
: GOSUB 1015
: T9=0
2900 IF V9=0THEN 3035
: IF V0$(T6)>HEX(FF)THEN 3035
: T9=T6
: GOSUB 1045
2914 T0$(1)=HEX(A0FD)
: STR(T0$(1),3)=Q2$
: STR(T0$(1),5)=V5$
: STR(T0$(1),6)=V8$
: STR(T0$(1),7)=V1$
: STR(T0$(1),15)=V6$
: DATA SAVE BA T$#T2,(V9(T9),V)T0$()
2935 T9=0
: INIT(FF)V0$(T6)
: STR(T0$,T1+1,1),STR(T0$,T2+1,1)=HEX(00)
: V9=V9-1
: Q$=" "
: RETURN
2980 T8$,Q$="D"
: RETURN
3000 T8$="N"
3005 Q$="N"
: RETURN
3035 T8$="X"
3040 Q$="X"
: RETURN
3060 IF Q$="5"THEN 3000
: T8$,Q$="E"
: RETURN
3072 %#