Listing of file='KFAM7004' on disk='vmedia/701-2086B.wvd.zip'
# Sector 283, program filename = 'KFAM7004' 0010 REM KFAM7004,VER.09/26/75 0012 COM Q6$64 0300 DIM Q2$2,Q3$2,V5$1,V5$(4)1,V8$1,V0$2,V1$8 : DIM V2$2,V3$2,V6$1,T2$2,T4$3,T5$30,T7$30 : DIM T2$(8)2,T(8),T8$1,T8$(4)1,Q0$4,V4$(4)2,V2$(4)2 : DIM U1$8,X$64,K1$8 0500 PRINT HEX(030A0A0A0A) : PRINT "RESET ACCESS TABLE" 0510 GOSUB '243("ENTER USER FILE NAME (SSSSFJNN)",8) : U1$=Q6$ : IF STR(U1$,5,1)<>"F"THEN 560 : IF STR(U1$,6,1)<"0"THEN 560 : IF STR(U1$,6,1)<="9"THEN 590 0560 GOSUB '60("NOT KFAM FILE NAME") : GOTO 510 0590 GOSUB '245("ENTER KEY FILE NUMBER (NORMAL = 1)",1,0) : K9=Q9 : IF K9>0THEN 650 : GOSUB '60("INVALID") : GOTO 590 0650 GOSUB '125("ENTER THE NO. OF THE KEY FILE DEVICE ADDRESS") : D1=X : GOSUB '210(1) : K1$=U1$ : STR(K1$,5,1)="K" : CONVERT K9TO STR(K1$,6,1),(#) : DATA LOAD DC OPEN T#1,K1$ 0760 DATA LOAD DC #1,Q2$,Q3$,V5$(),V8$,V1$,V2$,V3$,V6$,T2$,T0,T8$(),Q0$,V4$(), V2$() : INIT(5A)T8$() : Q0$=" " : INIT(FF)V4$() : DBACKSPACE #1,1S : GOSUB '211(1) 0910 DATA SAVE DC $#1,Q2$,Q3$,V5$(),V8$,V1$,V2$,V3$,V6$,T2$,T0,T8$(),Q0$,V4$() ,V2$() 0940 GOSUB '243("DO YOU WISH TO DO ANOTHER FILE? (Y OR N)",1) : IF Q6$=" "THEN 500 : IF Q6$="Y"THEN 500 : IF Q6$="N"THEN 1010 : GOSUB '60("RE-ENTER") : GOTO 940 1010 COM CLEAR Q6$ : LOAD DC T#0,"START065" 1040 DEFFN'60(X$) : PRINT HEX(010A0A0A) : PRINT X$ : RETURN 2040 DEFFN'125(X$) : GOSUB '248(5,0,5) : PRINT ,"1. 310 5. B10" : PRINT ,"2. 320 6. B20" : PRINT ,"3. 330 7. B30" : PRINT ,"4. 350" 2100 GOSUB '245(X$,1,0) : X=Q9 : IF X<1THEN 2160 : IF X>7THEN 2160 : GOSUB '248(5,0,5) : RETURN 2160 PRINT HEX(010A0A0A) : PRINT "INVALID DEVICE ADDRESS" : GOTO 2100 2230 DEFFN'210(T6) : IF M$="X"THEN 2430 : ON D1GOTO 2260,2280,2300,2320,2340,2360,2380 2260 SELECT #1390 : RETURN 2280 SELECT #13A0 : RETURN 2300 SELECT #13B0 : RETURN 2320 SELECT #13D0 : RETURN 2340 SELECT #1B90 : RETURN 2360 SELECT #1BA0 : RETURN 2380 SELECT #1BB0 : RETURN 2420 DEFFN'211(T6) 2430 ON D1GOTO 2440,2460,2480,2500,2520,2540,2560 2440 SELECT #1310 : RETURN 2460 SELECT #1320 : RETURN 2480 SELECT #1330 : RETURN 2500 SELECT #1350 : RETURN 2520 SELECT #1B10 : RETURN 2540 SELECT #1B20 : RETURN 2560 SELECT #1B30 : RETURN 8710 Q6=3 : GOTO 9289 8975 DEFFN'242(W0,Q6$) : IF W0<=0THEN 9405 : IF W0=1THEN 8990 : STR(Q6$,2)=STR(Q6$,1,W0-1) 8990 PRINT Q6$; : RETURN 9010 DEFFN'243(Q6$,Q0) : GOSUB 9200 9022 SELECT CO 205 : Q6$=" " : INPUT Q6$ : IF Q0=0THEN 9231 : IF LEN(Q6$)<=Q0THEN 9231 : GOSUB 9150 9032 DEFFN'244(Q0) : GOSUB 9220 : GOSUB 9210 : GOTO 9022 9038 DEFFN'245(Q6$,Q2,Q3) : Q0=ABS(Q2)+Q3+1 : GOSUB 9200 9044 GOSUB '242(ABS(Q2)+2,HEX(09)) : PRINT "/" : GOSUB 9220 : SELECT CO 205 : Q9,W0=-1E-99 : INPUT Q9 : IF W0=Q9THEN 9058 : IF Q9>=0THEN 9070 : IF Q2<=0THEN 9070 9058 GOSUB 9150 9060 DEFFN'246(Q2,Q3) : Q0=ABS(Q2)+Q3+1 : GOSUB 9220 : GOSUB 9210 : GOTO 9044 9070 IF ABS(Q9)>=10^ABS(Q2)THEN 9058 : W0=ABS(Q9*10^Q3) : IF INT(W0)<>W0THEN 9058 : GOTO 8710 9150 GOSUB 8710 : PRINT "RE-ENTER" : RETURN 9200 GOSUB 9405 : PRINT HEX(010A);STR(Q6$,1); 9210 GOSUB 9405 : GOSUB '242(Q0+2,"-") : PRINT TAB(64) 9220 PRINT HEX(010A0A) : RETURN 9231 PRINT HEX(0A);TAB(64) : GOTO 9405 : Q6=0 9289 Q7=0 : Q8=1 9290 DEFFN'248(Q6,Q7,Q8) : GOSUB 9405 : IF Q8<1THEN 9350 : GOSUB 9350 : SELECT PRINT 205 : Q6$=" " : PRINT STR(Q6$,Q7+1) : IF Q8<2THEN 9350 : FOR W0=2TO Q8 : PRINT HEX(0A);STR(Q6$,1) : NEXT W0 9350 PRINT HEX(01) : GOSUB '242(Q7,HEX(09)) : GOSUB '242(Q6,HEX(0A)) 9405 SELECT PRINT 005(64),CO 005 : RETURN