home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / members.zip / MDRECALL.PRG < prev    next >
Text File  |  1986-10-16  |  768b  |  28 lines
  1. *----------------------------------------------------------------------
  2. * Program : Membership Database Package
  3. * File    : MDRECALL
  4. * Function: Recall all deleted members
  5. * Author  : J. North        
  6. * Version : (AT contest)
  7. * Date    : 10/15/86
  8. *----------------------------------------------------------------------
  9. *
  10. clear
  11. do dialog with 10,"Are you sure you want to recall ALL deleted members (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 clwait
  19.     @ 0,0 say "Recalling ALL Deleted Members ---"
  20.     set deleted off
  21.     select 1
  22.     use members
  23.     recall all    
  24.     use
  25.     set deleted on
  26. endif
  27. return
  28.