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)