Listing of file='DFA.ACT1' on disk='vmedia/701-2720C.wvd.zip'
# Sector 642, program filename = 'DFA.ACT1' 5010 REM DFA.ACT1, RELEASE X03, (OCT 10, 81) 5102 COM R9$(19)8 : COM K2,K3,K4,K5,K6 : K2=1+INT(LEN(K2$())/8) : K3=K2*4 5150 R9$()="DFA.VAR1"&"DFA.ACT2DDA.VARCDDA.DAT" : LOAD T#0,<4>R9$() 5199 DEFFN'5"LISTSHEX(03)";HEX(0D) 5200 %A$="DFA.ACT1":SCRATCHTA$:SAVET()A$5000,5200:PRINTA$;" UPDATED"