image of READY prompt

Wang2200.org

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")