home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / members.zip / MDPACK.PRG < prev    next >
Text File  |  1986-10-16  |  896b  |  33 lines
  1. *----------------------------------------------------------------------
  2. * Program : Membership Database Package
  3. * File    : MDPACK
  4. * Function: Pack Membership Database
  5. * Author  : J. North        
  6. * Version : (AT contest)
  7. * Date    : 10/15/86
  8. *----------------------------------------------------------------------
  9. *
  10. clear
  11. do dialog with 10,"WARNING >> Once members are removed, they are gone forever!!! Proceed(Y/N)?"
  12. set console off
  13. clear typeahead
  14. wait "" to yn
  15. set console on
  16. if upper(yn)="Y"
  17.     clear
  18.     do dialog with 10,"This is your last chance to cancel!!!  Proceed(Y/N)?"
  19.     set console off
  20.     clear typeahead
  21.     wait "" to yn
  22.     set console on
  23.     if upper(yn)="Y"
  24.         do clwait
  25.         @ 0,0 say "Removing Deleted Members ---"
  26.         select 1
  27.         use members index name,zip
  28.         pack    
  29.         use
  30.     endif
  31. endif
  32. return
  33.