Wang 2200 Virtual Media

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"