Listing of file='LPQCLOSE' on disk='vmedia/701-2721C.wvd.zip'
# Sector 517, program filename = 'LPQCLOSE' 0100 REM % LPQCLOSE 0140 IF B3$=" "THEN GOTO 200 : GOSUB '212(A4) : IF R1$<>HEX(00)THEN GOTO 500 0200 GOSUB '217(1,1,L0$(3),B9$) : IF R1$<>HEX(00)THEN GOTO 600 : STR(U1$(),107,1)=STR(U1$(),107,1)ADDCHEX(01) : GOSUB '235(L8(2),U1$()) : GOSUB '212(L8(2)) : IF R1$<>HEX(00)THEN GOTO 600 : IF Q2$="0"THEN GOTO 240 : Q2$=" " : LOAD T"LPOVER02" 0240 COM CLEAR A0$() : LOAD T"LPINIT" 0500 L0$=BIN(5) : STR(L0$,2)=B3$ : LOAD T"LPERROR" 0600 L0$=BIN(9) : STR(L0$,2)="Closed" : LOAD T"LPERROR" 9000 DEFFN'0"SCRATCH T";HEX(22);"LPQCLOSE";HEX(22) 9100 DEFFN'1"SAVE T ()";HEX(22);"LPQCLOSE";HEX(22)