Listing of file='KFAM3807' on disk='vmedia/701-2427C.wvd.zip'
# Sector 632, program filename = 'KFAM3807'
0010 REM KFAM3807, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0022 SELECT @PART"KFAM"
: ERRORLOAD T"KFAM234S"10,0BEG 24
0024 % THIS MUST BE LINE 24
0130 GOTO 4000
4000 %THIS MUST BE LINE 4000
4350 DIM E2$2,E4$3,L2$2,P1,R9$(4)64,Z$2,Z
: DIM K$30,K2$30,K3$30,K$(16)3
: PRINT AT(0,0);"REORGANIZE -- BUILD KEY FILE ( STATION ";S2;")"
: T$(1)=ALL(5A)
: STR(T$(1),17)=ALL(FF)
: T0=1
: T2$,V2$=HEX(0001)
: L2$,Q2$=BIN(VAL(V6$)-1,2)XOR ALL(FF)
: T8=0
: $PACK(F=H1$)T$(2)FROMT0,T2$,Q2$,V2$,T8,V6$,F4$,F3$
4490 T$(3)=STR(F3$)&V8$&STR(T$(3))
: T0$()=ALL(FF)
: STR(T0$(1),1,B5)=ALL(00)
: T9$,T2$(1)=T2$
: T$=HEX(01)
: T6$=HEX(01)
: V9$=T9$ADDCV0$
: DATA SAVE DA T$#T1,(V9$)T9$,T0$()
: IF Q$="N"THEN 5460
: PRINT AT(9,0);
: PRINT "USER FILE ";N1$;TAB(30);"DEVICE = ";P1$
: PRINT "KEY FILE ";N2$;TAB(30);"DEVICE = ";P2$
4650 %SECTOR ##### RECORD NUMBER ######
4660 %KEY ################################
4680 K3$,K$=" "
: E4$=STR(E1$)&V8$
: E2$=BIN(E1-2,2)ADDCB1$
: DATA LOAD BA T#1,(M1$)R9$()
: K$()=STR(R9$(),99)
: FOR X=1TO 16
: V9$=STR(K$(X),,2)ADDCB1$
: IF V9$>=E2$THEN 4870
: Y=VAL(STR(K$(X),3))+1
: IF Y>B0THEN 4870
: DATA LOAD BA T#1,(V9$)R9$()
: FOR Y=YTO B0
: STR(R9$(),B3+(Y-1)*I,1)=HEX(FF)
: NEXT Y
: DATA SAVE BA T$#1,(V9$)R9$()
4870 NEXT X
: V5=B0
4910 P1=P1+I
: V5=V5+1
: IF V5<=B0THEN 5040
4950 L2$,Q2$=L2$ADDCV6$
: V9$=B1$ADDCL2$ADDCB7$
4990 DATA LOAD BA T#2,(V9$)R9$()
: ERRORGOTO 5660
5010 V5=1
: P1=B3
5040 T4$=STR(L2$)&BIN(V5)
: IF O8$="D"THEN K$=STR(R9$(),P1,T4-3)&T4$
: ELSE K$=STR(R9$(),P1,T4)
: IF VAL(K$)<255THEN 5280
: K$="DELETED"
: GOSUB 5140
: GOTO 5440
5140 PRINT AT(4,0);HEX(06);
: PRINTUSING 4650,VAL(L2$,2),V5
5160 X=POS(K$<20)
: IF X=0THEN 5200
: STR(K$,X,1)="-"
: GOTO 5160
5200 X=POS(K$>7A)
: IF X=0THEN 5240
: STR(K$,X,1)="-"
: GOTO 5200
5240 PRINTUSING 4660,K$
: RETURN
5280 GOSUB '234(1,0,K$,0)
: IF Q$="X"THEN 5500
: IF Q$="S"THEN 5510
: GOSUB 5140
: IF Q$<>"D"THEN 5400
: T4$=T3$
: GOSUB '44(0)
: GOTO 5440
5400 V8=.004+.98*V8
: IF K$<=K3$THEN V8=V8+.012
: K3$=K$
5440 IF T4$<E4$THEN 4910
5460 O2=3
5470 LOAD T"KFAM3907"
5500 GOSUB '51("INVALID POINTER")
5510 GOSUB '51("NO SPACE")
5540 DEFFN'51(Q6$)
: RETURN CLEAR
5560 PRINT AT(1,0);Q6$
: E=1
: GOTO 5470
5610 DEFFN'31
: E=2
: GOTO 5470
5660 GOSUB '44(1)
: IF L2$<STR(E4$,1,2)THEN 4950
: GOTO 5460
5700 DEFFN'44(Z)
: PRINT AT(1,0);
: IF Z=1THEN 5750
: PRINT "DUPLICATE KEY"
: GOTO 5770
5750 PRINT "DISK READ ERROR IN ";
: PRINTUSING 4650,VAL(L2$,2),V5
5770 INPUT "KEY RETURN TO CONTINUE",Z$
: PRINT AT(1,0);TAB(80);TAB(80)
: RETURN