image of READY prompt

Wang2200.org

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"