Wang 2200 Virtual Media

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

# Sector 436, program filename = 'LPOVER06'
0005 IF Q2$=" " THEN GOTO 50
0010 A0$()="LPQCLOSE"&"JCAT"
   : LOAD T<2>A0$()
0050 A0$()="LPUNQ   "&"JCAT    "&"RECMGR  "&"609Open"
   : LOAD T<4>A0$()
9000 DEFFN'0"SCRATCH T";HEX(22);"LPOVER06";HEX(22)
9100 DEFFN'1"SAVE T ()";HEX(22);"LPOVER06";HEX(22)