home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / jobhunt.zip / JOBMAINT.PRG < prev    next >
Text File  |  1987-03-24  |  1KB  |  34 lines
  1. * Program..: JOBMAINT.PRG
  2. * Author...: DENNIS W. CHRISTENSEN
  3. * ADDRESS..: 5799 RAYBURN AVE., APT 261, ALEXANDRIA, VA 22311
  4. * Notice...: Copyright 1986, All Rights Reserved
  5. * DATE.....: MAR 24, 1987
  6. * Reserved.: select, selectnum
  7. *
  8. ERASE
  9. USE EMPLOYER
  10. STORE ' ' TO ANS
  11. STORE 0 TO mREC
  12. @ 2, 10 SAY "** DELETE RECORDS/PACK DATABASE **"
  13. @ 5, 15 SAY "ENTER RECORD NUMBER TO DELETE-->";
  14.         GET mREC PICTURE '999'
  15.         READ
  16. IF mREC > 0
  17.    GOTO mREC
  18.    DELETE
  19. ENDIF
  20. @ 7, 15 SAY "DO YOU WISH TO PACK THE DATABASE NOW? (Y/N)";
  21.         GET ANS PICTURE 'X'
  22.         READ
  23.         IF ANS = 'Y'
  24.         @ 10,25 SAY "PACKING EMPLOYER DATABASE..."
  25.         PACK
  26.         ENDIF
  27. @ 3, 0 ERASE
  28. RETURN
  29. * EOF: JOBMAINT.PRG
  30.  
  31.  
  32.  
  33.  
  34.                                                                                                                                                                              Rent-A-Consultant