Listing of file='LPDELETE' on disk='vmedia/701-2721C.wvd.zip'
# Sector 150, program filename = 'LPDELETE' 0100 REM % LP DELETE MODULE 0500 DIM X1$16,U1$(8),U2$(8)4,V1$(3)82,V0$(1)2,R1$1 : IF Q2$=" "THEN PRINT AT(23,0,);HEX(060E);"Deleting Selected Records Docum ent";HEX(0F); : GOSUB '246(1) : GOSUB '211(L0$(3),B9$,B4$,HEX(FF)) : IF R1$<>HEX(00)AND Q2$=" "THEN GOSUB '99(9,"Opened") : GOSUB '214(V3) : IF R1$<>HEX(00)AND Q2$=" "THEN GOSUB '99(9,"Deleted") 0860 IF L0$(4)=" "THEN GOTO 891 : GOSUB '211(L0$(4),B9$,B4$,HEX(FF)) : IF R1$<>HEX(00)AND Q2$=" "THEN GOSUB '99(13,"Opened") : GOSUB '214(V3) : IF R1$<>HEX(00)AND Q2$=" "THEN GOSUB '99(13,"Deleted") 0891 COM CLEAR A0$() : IF Q2$=" "THEN GOTO 1700 : LOAD TR3$(1) 1200 DEFFN'99(E,E$) : L0$=BIN(E) : STR(L0$,2)=E$ : IF E$="Deleted"THEN GOSUB '212(V3) : LOAD T"LPERROR" 1700 A5$=STR(R3$(),,9) : R3$()=STR(R3$(),10) : COM CLEAR A0$() : LOAD TA5$ 9000 DEFFN'0"SCRATCH T ";HEX(22);"LPDELETE";HEX(22) 9010 DEFFN'1"SAVE T () ";HEX(22);"LPDELETE";HEX(22)