Listing of file='KFAM407U' on disk='vmedia/701-2427C.wvd.zip'
# Sector 655, program filename = 'KFAM407U' 0010 REM KFAM407U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC. 0022 IF H=4THEN LOAD T"KFAM230S"10,0BEG 24 0024 %THIS MUST BE LINE 24 0049 COM Z9$8,R9$(16),Q6$64 : COM F0$3,K0$3,F1$8,K1$8,A2,E2,C2,A3,E3,F9,O2,O4,E,A1,E1 0053 COM T0$16,V7$16,V8,T8,V3$2,V2$2,Q3$2,Q2$2,V8$1,V6$1 0056 COM V7$(3)8,V0$(3)21,T5$(3)58 0058 COM Q2,Q3,Q$1,T6$1,T0,T2$2,T8$1,T$(3)48,T3$3,T7$30,V,T2 : COM V7,Q,V1,V4$4,S2,V6,T1,V0$2,T$8,T2$(8)2,T9,T1$30,T9$2 : COM V0,T6,T4$3,T0$(4)60,T4,T3,T5,V9$2,T 0130 GOTO 4000 4000 % THIS MUST BE STATEMENT 4000 4005 DIM I$1,P$,A$4,K2$9 : DIM Z$(3)83,Q5$64 : S1$="ISS.200SISS.254SISS.050S" : LOAD T<LEN(S1$)/8>S1$10,0BEG 4090 4090 IF H<>4THEN SELECT @PART"KFAM" : F9=4 : GOSUB '50(18) : $UNPACK(F=HEX(A008A003A003A010A001A009))Z$(Z1)TO F1$,F0$,K0$,P$,I$,K2$ : GOSUB '60("REALLOCATE FILE SPACE",6) : GOSUB '61("USER FILE NAME",F1$,"80"," ") : GOSUB '61("USER FILE ADDRESS",F0$,"81","DISK") : GOSUB '61("PASSWORD",P$,"82"," ") 4145 GOSUB '61("KEY FILE NUMBER",I$,"83"," ") : GOSUB '61("KEY FILE ADDRESS",K0$,"84","DISK") : GOSUB '61("KEY FILE TYPE",K2$,"85"," ") 4165 GOSUB '70 : SELECT #1<K0$> : SELECT #2<F0$> : GOSUB 4280 : GOSUB 4465 4210 LOAD T"KFAM417U" : ERRORGOTO 4215 4215 PRINT AT(1,0);"RE-MOUNT ISS DISK AT ";S$;TAB(S0) : GOSUB '254 : F9$="M" : GOTO 4210 4240 DEFFN'15 : RETURN CLEAR ALL 4250 PRINT AT(1,0,3*S0); : GOTO 4165 4280 K1$=F1$ : STR(K1$,5,2)="K"&I$ : CONVERT I$TO K9 4300 PRINT AT(1,0,S0);"MOUNT PLATTERS AT INDICATED ADDRESSES" : GOSUB '254 : LIMITS T#1,K1$,A1,E1,C1,D1 : ERRORGOTO 4300 4315 LIMITS T#2,F1$,A2,E2,C2,D2 : ERRORGOTO 4300 4325 A$="USER" : L=D2 : L1=2 4345 Q5$="NOT A DATA FILE" : IF ABS(L)=1THEN 4435 : Q5$="NOT FOUND" : IF L<>2THEN 4435 : IF L1=1THEN RETURN : Q6$="WRONG PASSWORD" : DATA LOAD BA T#2,(E2)R9$() : IF STR(R9$(),4,4)=HEX(FD4D5558)AND R9$(2)<>P$THEN 4440 : A$="KEY" : L=D1 : L1=1 : GOTO 4345 4435 Q6$=A$&" FILE IS "&Q5$ 4440 GOSUB '113(Q6$,3) 4465 GOSUB '230(1,1,2,K9,F1$,4,P$,K0$,F0$) : IF Q$="P"THEN GOSUB '113("WRONG PASSWORD",3) : IF Q$="A"THEN GOSUB '113("FILE NOT AVAILABLE",3) : IF Q$<>" "THEN GOSUB '113("ERROR OPENING FILES",3) : IF K2$="PRIMARY"THEN O2=2 : ELSE O2=3 : RETURN 4515 DEFFN'81 : GOSUB '40("ENTER USER FILE ADDRESS") : Z$,F0$=Z1$ : RETURN 4540 DEFFN'84 : GOSUB '40("ENTER KEY FILE ADDRESS") : Z$,K0$=Z1$ : RETURN 4565 DEFFN'80 4570 GOSUB '200(" "," ",8,0,"ENTER USER FILE NAME (SSSSFJNN)",2) : IF STR(Q6$,5,1)<>"F"OR STR(Q6$,6,1)<"0"OR STR(Q6$,6,1)>"9"THEN GOSUB '113 (", NOT A KFAM FILE",1) : Z$,F1$=Q6$ : RETURN 4595 DEFFN'82 : GOSUB '200(" "," ",16,0,"ENTER PASSWORD",2) : Z$,P$=Q6$ : RETURN 4620 DEFFN'83 : Q6$="1" : GOSUB '200("1","9",1,0,"ENTER KEY FILE NUMBER (NORMAL = 1)",3) : Z$,I$=Q6$ : RETURN 4650 DEFFN'85 : IF K2$="PRIMARY"THEN K2$="SECONDARY" : ELSE K2$="PRIMARY" : Z$=K2$ : RETURN 4675 DEFFN'113(Q6$,E1) : RETURN CLEAR 4685 IF E1=3THEN 4705 : PRINT HEX(07);AT(3,0,S0);"RE-ENTER";Q6$ : ON E1GOTO 4570 4705 RETURN CLEAR 4710 PRINT HEX(07);AT(1,0,3*S0);Q6$;AT(2,0); : Q6$=" " : INPUT "KEY RETURN(EXEC) TO RESUME",Q6$ : GOTO 4165 4745 DEFFN'51 : $PACK(F=HEX(A008A003A003A010A001A009))Z$(Z1)FROMF1$,F0$,K0$,P$,I$,K2$ : RETURN 4775 DEFFN'31 4780 LOAD T"KFAM997U" : ERRORGOTO 4785 4785 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$ : GOSUB '254 : GOTO 4780