Wang 2200 Virtual Media

Listing of file='LPACTID2' on disk='vmedia/701-2721C.wvd.zip'

# Sector 128, program filename = 'LPACTID2'
0100 REM %  ACTIVATE FILES FOR IDEAS2 DATA ACCESS
0400 COM K2$(1)20
   : DIM R6$(1008)1
   : IF R6$()<>" "THEN GOTO 800
   : K2$(1)=L0$(1)
   : R8$()="LPOVER03"
   : R1=1
   : PRINT AT(21,0,)
   : PRINT AT(23,0);HEX(0E);"Activating ";L0$(1);" File";HEX(0F);
   : LOAD T"DFA.ACT1"
0800 A0$()="LPPRESEL"&"LPID2OPN"
   : LOAD T<2>A0$()
9000 DEFFN'0"SCRATCH T ";HEX(22);"LPACTID2";HEX(22);
9100 DEFFN'1"SAVE T () ";HEX(22);"LPACTID2";HEX(22);