Listing of file='KFAM337U' on disk='vmedia/701-2427C.wvd.zip'
# Sector 562, program filename = 'KFAM337U' 4000 REM KFAM337U, RELEASE 5-1, (10/15/79) - COPYRIGHT WANG LABS. INC. 4310 DIM L$8,P2$(8)2,B7$30,B4$3 : DIM B8$2,K$30,B$2,B5$2,B9$2,B6$1 4380 LOAD DA T#0,(F6$)4400,4459 4400 DIM A0$(4)64,E0$(4)64,I0$(4)64 4451 IF F9$=" "THEN 4460 4454 PRINT AT(1,0,3*S0);"MOUNT PLATTERS AT THE INDICATED ADDRESSES" : INPUT "KEY RETURN(EXEC) TO RESUME",Q6$ : PRINT AT(1,0,3*S0) : DATA LOAD BA T#1,(0)R9$() : ERRORGOTO 4454 4458 DATA LOAD BA T#2,(0)R9$() : ERRORGOTO 4454 4460 PRINT HEX(03);AT(4,0);"REORGANIZE KFAM FILE (KFAM337U) (STATION # =";S2 ;")" : IF H<>4THEN SELECT @PART"KFAM" : GOSUB '219("KFAMWORK",0,S2,S$,0) : O4=0 4530 GOSUB '235(1,0) : IF Q$<>" "THEN 8110 : GOSUB 5790 : B$=HEX(0000) : B1=1 4600 GOSUB 5700 : IF B2$>"C"THEN 5410 4650 B9$=B4$ADDCB1$ 4720 Z=1 4770 Z=2 4810 B9$=B4$ADDCB1$ 4890 GOSUB '66 : IF VAL(K$)=255THEN 5100 : GOSUB '232(1,0,K$) : IF Q$="N"THEN 5100 : IF Q$<>" "THEN 8110 : IF STR(T4$,1,2)<>B$THEN 5100 : IF Q<>B1THEN 5100 : $PACK(F=V4$)T0$()<T>FROMT7$,B4$ : GOSUB 7970 5100 B5$=B4$ : GOSUB 5890 : GOSUB '237(1,0) : IF Q$="E"THEN 5350 : IF Q$<>" "THEN 8110 : GOSUB 5790 : IF B2$>"C"THEN 5300 : B1=B1+1 : IF B1>B0THEN 5270 : IF B5$=B$THEN 4600 : GOTO 4650 5270 GOSUB 5620 : B1=1 5300 ADDC(B$,V6$) : GOTO 4600 5350 GOSUB 5620 : GOTO 6740 5410 IF B$=STR(B4$,1,2)THEN 5100 : B8$=B$ADDCB1$ : B9$=B4$ADDCB1$ : FOR X=1TO B9 : DATA LOAD BA T#2,(B9$,B9$)E0$() : DATA SAVE BA T$#2,(B8$,B8$)E0$() : NEXT X : B9$=B4$ : ADDC(B9$,B1$) 5590 GOTO 4890 5620 B9$=B$ADDCB1$ 5670 RETURN 5700 B9$=B$ADDCB1$ 5760 RETURN 5790 L$=T$ : P2$()=T2$() : B4$=T4$ : B7$=T7$ : B2=Q : RETURN 5890 T$=L$ : T2$()=P2$() : T4$=B4$ : T7$=B7$ : RETURN 6200 DEFFN'65 : P8=K7+(B1-1)*B : P2=K7+(B2-1)*B : IF Z=2THEN 6430 : MAT COPY E0$()<P2,B>TO I0$()<P8,B> : RETURN 6430 MAT COPY A0$()<P8,B>TO E0$()<P2,B> : RETURN 6520 DEFFN'66 : IF B2$="A"THEN 6670 : P8=B3+(B1-1)*B 6580 K$=STR(A0$(),P8,B5) 6590 RETURN 6670 K$=STR(A0$(B1),B3,B5) 6680 RETURN 6740 Q2$=BIN(B9-1,2)XOR ALL(FF) : FOR X=1TO 16 : STR(T$(3),3*X-2)=STR(Q3$)&V8$ : NEXT X : V2$=HEX(0001) : T2$=HEX(0001) : T0=1 : T=1 : T$=HEX(01) : INIT(5A)T$(1) : INIT(FF)STR(T$(1),17) : INIT(00)T7$ : INIT(FF)T0$() : INIT(00)STR(T0$(1),1,B5) : T2$(1),T9$=T2$ : GOSUB 7970 : B1=B0 : B$=Q2$ : T8=0 6960 T8=T8+1 : B1=B1+1 : IF B1<=B0THEN 7090 : ADDC(B$,V6$) : IF B$<=Q3$THEN 7060 : GOSUB '70("LAST KEY NOT FOUND") 7060 GOSUB 5700 : B1=1 7090 GOSUB '66 : IF K$<=T7$THEN 8080 : T7$=K$ : IF VAL(K$)=255THEN 8090 : V9$=T2$(1) : IF V9$=T9$THEN 7450 : GOSUB 7957 7450 T3$=STR(B$)&BIN(B1) : T4$=T3$ : T3=1 7500 T=VAL(STR(T$,T3))+T5 : IF T<193THEN 7800 : INIT(FF)T0$() : $PACK(F=V4$)T0$()FROMK$,T3$ : ADDC(V2$,01) : IF V2$>V3$THEN 8100 : T9$,T2$(T3),T3$=V2$ : STR(T$,T3,1)=HEX(01) : GOSUB 7970 : T3=T3+1 : IF T3>T0THEN 7690 : V9$=T2$(T3) : GOSUB 7957 : GOTO 7500 7690 T0=T0+1 : IF T0>8THEN 8100 : INIT(FF)T0$() : INIT(00)STR(T0$(1),1,T5) : STR(T0$(1),T4+1,2)=T2$ : ADDC(V2$,01) : IF V2$>V3$THEN 8100 : T9$,T2$,T2$(T3)=V2$ : STR(T$,T3,1)=HEX(01) : GOTO 7500 7800 $PACK(F=V4$)T0$()<T>FROMK$,T3$ : BIN(STR(T$,T3))=T : GOSUB 7970 : IF K$<>B7$THEN 6960 : Q2$=B$ : STR(T$(3),,3)=STR(Q2$)&BIN(B1) : $PACK(F=H1$)T$(2)FROMT0,T2$,Q2$,V2$,T8 : DATA SAVE DA T$#1,(V0$)0,T$() : T0$(1)=HEX(A0FDFDFD) : V9$=V2$ADDCV0$ADDCHEX(01) : DATA SAVE BA T$#1,(V9$)T0$() : STR(T0$(1),2,2)=V2$ADDCHEX(03) : DATA SAVE BA T$#1,(E1)T0$() : GOTO 8040 7957 V9$=ADDCV0$ : DATA LOAD DA T#T1,(V9$)T9$,T0$() : RETURN 7970 V9$=T9$ADDCV0$ : DATA SAVE DA T$#T1,(V9$)T9$,T0$() : RETURN 8000 DEFFN'70(Q6$) : PRINT "RESTORE BOTH USER FILE AND KEY FILE FROM BACKUP" : PRINT "COPIES BEFORE ATTEMPTING TO RE-RUN THIS PROGRAM" : PRINT HEX(0A) : PRINT Q6$ : E=1 : RETURN CLEAR 8035 DEFFN'31 8040 COM CLEAR B : LOAD T"KFAM997U" 8080 GOSUB '70("SEQUENCE ERROR") 8090 GOSUB '70("INVALID KEY") 8100 GOSUB '70("KEY FILE SPACE EXCEEDED") 8110 GOSUB '70("ACCESS ERROR")