home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / utilsa / del / DEL.OPL next >
Text File  |  1993-01-04  |  575b  |  31 lines
  1. PROC del:
  2.     local file$(128),d%,len%
  3.     position pos%
  4.     if mid$(d.n$,4,1)<>"0"
  5.         file$=mid$(d.n$,3,1)
  6.         len%=val(mid$(d.n$,4,1))
  7.         file$=file$+":\note\expand\"+mid$(d.n$,5,len%)+".exp"
  8.         dinit "Delete LinkFile"
  9.         dtext "",file$
  10.         dbuttons "Yes",%y,"Cancel",27
  11.         d%=dialog
  12.         if d%=%y or d%=%Y
  13.             delete file$
  14.             erase
  15.             rem redraw%:
  16.             compress:(1)
  17.             c:
  18.         endif
  19.     else
  20.         dinit "Delete this entry"
  21.         dtext "",right$(d.n$,len(d.n$)-12)
  22.         dbuttons "Yes",%y,"Cancel",27
  23.         d%=dialog
  24.         if d%=%y or d%=%Y
  25.             erase
  26.             compress:(1)
  27.             c:
  28.         endif
  29.     endif
  30. ENDP
  31.