Listing of file='KFAM3203' on disk='vmedia/701-2049C.wvd.zip'
# Sector 249, program filename = 'KFAM3203'
4000 REM KFAM3203,VER.02/11/76
4310 DIM R(8),R2$(8)2,R7$30,R4$3
: DIM R8$2,K$30,R$2,R5$2,R9$2
4380 LOAD DA T#4,(R6$,R6$)4400,4459
4400 DIM A0$(4)64,E0$(4)64,I0$(4)64
4460 PRINT HEX(030A0A0A0A)
: PRINT "REORGANIZE KFAM FILE (KFAM3203)"
4530 GOSUB '235(1)
: IF Q$<>" "THEN 7130
: GOSUB 5790
: R$=HEX(0000)
: R1=1
4600 GOSUB 5700
: IF R2$>"C"THEN 5410
4650 R9$=R4$
: ADDC(R9$,R1$)
4720 Z=1
4770 Z=2
4810 R9$=R4$
: ADDC(R9$,R1$)
4890 GOSUB '66
: IF STR(K$,1,1)=HEX(FF)THEN 5100
: GOSUB '232(1,0,K$)
: IF Q$="N"THEN 5100
: IF Q$<>" "THEN 7130
: IF STR(T4$,1,2)<>R$THEN 5100
: IF Q<>R1THEN 5100
: STR(T3$(1),T4+1,3)=STR(R4$,1,3)
: MAT COPY T3$()<1,T5>TO T0$()<T,T5>
: GOSUB 510
5100 R5$=R4$
: GOSUB 5890
: GOSUB '237(1)
: IF Q$="E"THEN 5350
: IF Q$<>" "THEN 7130
: GOSUB 5790
: IF R2$>"C"THEN 5300
: R1=R1+1
: IF R1>R0THEN 5270
: IF R5$=R$THEN 4600
: GOTO 4650
5270 GOSUB 5620
: R1=1
5300 ADDC(R$,V6$)
: GOTO 4600
5350 GOSUB 5620
: GOTO 6740
5410 IF R$=STR(R4$,1,2)THEN 5100
: R8$=R$
: ADDC(R8$,R1$)
: R9$=R4$
: ADDC(R9$,R1$)
: FOR X=1TO S9
: DATA LOAD BA T#2,(R9$,R9$)E0$()
: DATA SAVE BA T$#2,(R8$,R8$)E0$()
: NEXT X
: R9$=R4$
: ADDC(R9$,R1$)
5590 GOTO 4890
5620 R9$=R$
: ADDC(R9$,R1$)
5670 RETURN
5700 R9$=R$
: ADDC(R9$,R1$)
5760 RETURN
5790 FOR X=1TO 8
: R(X)=T(X)
: R2$(X)=T2$(X)
: NEXT X
: R4$=T4$
: R7$=T7$
: R2=Q
: RETURN
5890 FOR X=1TO 8
: T(X)=R(X)
: T2$(X)=R2$(X)
: NEXT X
: T4$=R4$
: T7$=R7$
: RETURN
6200 DEFFN'65
: S8=3+(R1-1)*R
: S2=3+(R2-1)*R
: IF Z=2THEN 6430
: MAT COPY E0$()<S2,R>TO I0$()<S8,R>
: RETURN
6430 MAT COPY A0$()<S8,R>TO E0$()<S2,R>
: RETURN
6520 DEFFN'66
: IF R2$="A"THEN 6670
: S8=R3+(R1-1)*R
6580 MAT COPY A0$()<S8,R5>TO T3$()
6590 K$=STR(T3$(1),1,R5)
: RETURN
6670 K$=STR(A0$(R1),R3,R5)
6680 RETURN
6740 Q2$=HEX(0000)
: BIN(STR(Q2$,2))=S9-1
: XOR (Q2$,FF)
: V5$=V8$
: V2$=HEX(0001)
: T2$=HEX(0001)
: T0=1
: V8=.2
: T8$="X"
: INIT(00)T5$
: INIT(FF)Q0$()
: INIT(00)STR(Q0$(1),1,R5)
: Q9$=T2$
: GOSUB 570
: R1=R0
: R$=Q2$
: C1=0
6960 C1=C1+1
: R1=R1+1
: IF R1<=R0THEN 7090
: ADDC(R$,V6$)
: IF R$<=Q3$THEN 7060
: GOSUB '70("LAST KEY NOT FOUND")
7060 GOSUB 5700
: R1=1
7090 GOSUB '66
: IF K$>T5$THEN 7110
: GOSUB '70("SEQUENCE ERROR")
7110 GOSUB '233(1,0,K$,0)
: IF Q$=" "THEN 7140
7130 GOSUB '70("PROGRAM ERROR")
7140 IF K$<>R7$THEN 6960
: V8=.5
: GOSUB '239(1)
: PRINT "RECORD COUNT ";C1
: COM CLEAR R
: LOAD DC T#0,"START050"
7220 DEFFN'70(Q6$)
7230 PRINT "RESTORE BOTH USER FILE AND KEY FILE FROM BACKUP"
: PRINT "COPIES BEFORE ATTEMPTING TO RE-RUN THIS PROGRAM"
: PRINT HEX(0A)
: PRINT Q6$
: STOP
: GOTO 7230