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