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"