Listing of file='DFA.ACT2' on disk='vmedia/701-2720C.wvd.zip'
# Sector 646, program filename = 'DFA.ACT2'
6100 REM DFA.ACT2 (JUL 30, 81) Activate file.names for data access
6120 COM K8$(300)1
: COM R9$(19)8,R9$1,R9,I9,I9$24,I9(5),I9$(7)8,I8$3
6128 %PRINT "@START DFA.ACT2"
6160 N4(1)=1
: N4(2)=0
: K5,K6=0
: N4(1)=1
: MAT N5=ZER
: N5(2)=1
: N5(4)=51
: N5(5)=82
: N5(6)=K2
: N5(7)=K3
: N5(8)=00
: N5(9)=49
: N8$(),N9$()=ALL(FF)
: N7$()=" "
6180 IF K2$()=" "THEN 6730
: N9(9)=INT(LEN(K2$())/8)+1
6220 GOSUB '140(3,"150152156")
: LOAD T<R9>R9$()7050,7999BEG 6230
6230 GOSUB '150("1 2 3 4 2324")
: IF M=0THEN 6250
: N5(2),N4(1)=0
: N4(2)=M
: GOTO 6710
6250 N9(8)=0
6260 N9(8)=N9(8)+1
6265 %PRINT "@DICTIONARY OPENED"
6270 IF N9(8)>N9(9)THEN 6710
: N3$=K2$(N9(8))
6310 MAT SEARCHN8$(),=N3$TO N6$()STEP N5(5)
: IF N6$(1)=HEX(0000)THEN 6330
: IF N6$(1)>HEX(0000)THEN 6260
6330 J1=0
6340 J1=J1+1
: IF POS(N8$(J1)<>HEX(FF))>0THEN 6340
: N9(1)=J1
6390 GOSUB '152("KY","2"," ",N3$," "," "," ")
: N9(5)=2
: IF M=0THEN 6420
: IF M<>52THEN 6410
: N5(2),N4(1)=0
: N4(2)=8009
: GOTO 6710
6410 N5(2),N4(1)=0
: N4(2)=M
: GOTO 6710
6420 MAT COPY N3$TO N8$(N9(1))<1,20>
6422 %PRINT "@ AFTER GET RECORD DEFN"
6425 N4$=STR(K8$(),41,20)
: J=VAL(STR(K8$(),61),2)
: IF J>K6THEN K6=J
6450 GOSUB '152("KY","1"," ",N4$," "," "," ")
6455 %PRINT "@ AFTER GET FILE DESCR "
6460 IF M=0THEN 6480
: IF M<>52THEN 6470
: N5(2),N4(1)=0
: N4(2)=8008
: GOTO 6710
6470 N5(2),N4(1)=0
: N4(2)=M
: GOTO 6710
6480 STR(N8$(N9(1)),21,20)=STR(K8$(),43,20)
: STR(N8$(N9(1)),42,01),N7$(10)=STR(K8$(),41,01)
: STR(N8$(N9(1)),48,03)=STR(K8$(),63,03)
6505 IF R1>0THEN 6670
6530 GOSUB '152("NX","2","4"," "," "," "," ")
: IF M=0THEN 6550
: IF M=64THEN 6710
: STOP "WARNING-READ NEXT FAILS"#
6550 J1=0
6560 J1=J1+1
: IF J1>N5(7)THEN 6680
: IF POS(N9$(J1)<>HEX(FF))>0THEN 6560
: MAT COPY M5$TO N9$(J1)<3,20>
: GOSUB '152("KY","4"," ",M5$," "," "," ")
: IF M=0THEN 6610
: STOP "WARNING-READ NDEX REC FAILS"#
6610 STR(N9$(J1),25,3)=STR(K8$(),86,3)
: STR(N9$(J1),30,20)=STR(K8$(),66,20)
: STR(N9$(J1),,2)=BIN(N9(1),2)
: IF VAL(STR(K8$(),61))=1THEN STR(N8$(N9(1)),46,2)=BIN(J1,2)
: IF N7$(10)="I"THEN K5=K5+1
6670 GOTO 6530
6680 STOP "WARNING: Key path table not large enough"
6710 GOSUB '156("ALL")
6730 COM CLEAR N
: IF R1>0THEN 6780
: IF N5(2)>1OR K5=0THEN 6780
: K2=20+3
: K3=30+1
: K4=K2+7
: N5(2)=2
: MAT SEARCHR8$(),=HEX(2020202020202020)TO J$STEP 8
: R8$((VAL(J$,2)-1)/8+1)="DFA.IVAR"
6780 LOAD T#0,<INT((LEN(R8$())+7)/8)>R8$()
6999 %A$="DFA.ACT2": SCRATCH TA$: SAVE T()A$6100,6999: PRINT A$;" UPDATED"