image of READY prompt

Wang2200.org

Listing of file='KFAM607U' on disk='vmedia/701-2427C.wvd.zip'

# Sector 704, program filename = 'KFAM607U'
0010 REM  KFAM607U, 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)
   : COM F0$3,K0$3,F1$8,K1$8,O$7,A1,E2,F9,O2
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,A$4
   : DIM Z$(3)83,Q5$64,Q6$64
   : S1$="ISS.200SISS.254SISS.050S"
   : LOAD T<LEN(S1$)/8>S1$10,0BEG 4090
4090 IF H<>4THEN SELECT @PART"KFAM"
   : F9=6
   : GOSUB '50(21)
   : $UNPACK(F=HEX(A008A003A003A010A001A007))Z$(Z1)TO F1$,F0$,K0$,P1$,I$,O$
   : GOSUB '60("PRINT KEY FILE",6)
   : GOSUB '61("USER FILE NAME",F1$,"80"," ")
   : GOSUB '61("USER FILE ADDRESS",F0$,"81","DISK")
   : GOSUB '61("PASSWORD",P1$,"82"," ")
4145 GOSUB '61("KEY FILE NUMBER",I$,"83"," ")
   : GOSUB '61("KEY FILE ADDRESS",K0$,"84","DISK")
   : GOSUB '61("OUTPUT DEVICE",O$,"85"," ")
4165 GOSUB '70
   : SELECT #1<K0$>
   : SELECT #2<F0$>
   : GOSUB 4285
   : IF O$="PRINTER"THEN GOSUB 4465
   : GOSUB 4500
4220 LOAD T"KFAM617U"
   : ERRORGOTO 4225
4225 PRINT AT(1,0);"RE-MOUNT ISS DISK AT ";S$;TAB(S0)
   : GOSUB '254
   : F9$="M"
   : GOTO 4220
4250 DEFFN'15
   : RETURN CLEAR ALL
4256 PRINT AT(1,0,3*S0);
   : GOTO 4165
4285 K1$=F1$
   : STR(K1$,5,2)="K"&I$
   : CONVERT I$TO K9
4305 PRINT AT(1,0,S0);"MOUNT PLATTERS AT INDICATED ADDRESSES"
   : GOSUB '254
   : LIMITS T#1,K1$,A1,E1,C1,D1
   : ERRORGOTO 4305
4320 LIMITS T#2,F1$,A2,E2,C2,D2
   : ERRORGOTO 4305
4330 A$="USER"
   : L=D2
   : L1=2
4350 Q5$="NOT A DATA FILE"
   : IF ABS(L)=1THEN 4440
   : Q5$="NOT FOUND"
   : IF L<>2THEN 4440
   : IF L1=1THEN RETURN
   : Q6$="WRONG PASSWORD"
   : DATA LOAD BA T#2,(E2)R9$()
   : IF STR(R9$(),4,4)=HEX(FD4D5558)AND R9$(2)<>P1$THEN 4445
   : A$="KEY"
   : L=D1
   : L1=1
   : GOTO 4350
4440 Q6$=A$&" FILE IS "&Q5$
4445 GOSUB '113(Q6$,3)
4465 GOSUB '44
   : IF P$=" "THEN RETURN
   : GOSUB '113("PRINTER REQUIRED",3)
4500 GOSUB '230(1,1,2,K9,F1$,2,P1$,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)
   : O2=3
   : RETURN
4550 DEFFN'81
   : GOSUB '40("ENTER USER FILE ADDRESS")
   : Z$,F0$=Z1$
   : RETURN
4575 DEFFN'84
   : GOSUB '40("ENTER KEY FILE ADDRESS")
   : Z$,K0$=Z1$
   : RETURN
4600 DEFFN'80
4605 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
4630 DEFFN'82
   : GOSUB '200(" "," ",16,0,"ENTER PASSWORD",2)
   : Z$,P1$=Q6$
   : RETURN
4655 DEFFN'83
   : Q6$="1"
   : GOSUB '200("1","9",1,0,"ENTER KEY FILE NUMBER (NORMAL = 1)",3)
   : Z$,I$=Q6$
   : RETURN
4685 DEFFN'85
   : IF O$="CRT"THEN O$="PRINTER"
   : ELSE O$="CRT"
   : Z$=O$
   : RETURN
4710 DEFFN'113(Q6$,E1)
   : RETURN CLEAR
4720 IF E1=3THEN 4740
   : PRINT HEX(07);AT(3,0,S0);"RE-ENTER";Q6$
   : GOTO 4605
4740 RETURN CLEAR ALL
4745 PRINT HEX(07);AT(1,0,3*S0);Q6$;AT(2,0);
   : Q6$=" "
   : INPUT "KEY RETURN(EXEC) TO RESUME",Q6$
   : GOTO 4165
4780 DEFFN'51
   : $PACK(F=HEX(A008A003A003A010A001A007))Z$(Z1)FROMF1$,F0$,K0$,P1$,I$,O$
   : RETURN
4810 DEFFN'31
4815 LOAD T"KFAM997U"
   : ERRORGOTO 4820
4820 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
   : GOSUB '254
   : GOTO 4815