Wang 2200 Virtual Media

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

# Sector 427, program filename = 'LPOVER03'
0200 IF N4(1)<>1 THEN GOTO 500
0250 PRINT AT(23,0);
   : A0$()="LPPRESEL"&"LPID2OPN"
   : LOAD T<2>A0$()
0500 L0$=BIN(14)
   : STR(L0$,2)=L0$(1)
   : LOAD T"LPERROR"
9000 DEFFN'0"SCRATCH T";HEX(22);"LPOVER03";HEX(22);
9010 DEFFN'1"SAVE T ()";HEX(22);"LPOVER03";HEX(22);