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