home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol199 / purge.acg < prev    next >
Encoding:
Text File  |  1985-02-10  |  1.3 KB  |  45 lines
  1. * DATE 08/27/84  12:46
  2. * purge.cmd
  3. STOR CHR(PEEK (063)) TO dr
  4. STOR 'N' TO command
  5. ERAS
  6. @ 02,05 SAY '*****   WARNING!   *****   WARNING!   *****   WARNING!   ****'
  7. @ 04,05 SAY 'This will PERMANENTLY remove any deleted records.'
  8. @ 06,05 SAY 'Type Y to continue, any other key to cancel this operation'
  9. @ 06,64 GET command PICTURE '!'
  10. READ
  11. CLEA GETS
  12. IF command = 'Y'
  13.  ERAS
  14. TEXT
  15.  
  16. Records which have been marked for deletion are being removed from the file.
  17.  
  18. When that is completed, all records will be reindexed. 
  19.  
  20. We will keep you posted as we go along..........but please be patient.
  21.  
  22. ENDT
  23.  SET INDEX TO
  24.  GO bottom
  25.  STOR # to before
  26.  @ 08,00 SAY 'The data base contains ' + STR(before,4) + ' files before deletions'
  27.  @ 09,00 SAY ' '
  28.  SET INDEX TO &dr.:lastname
  29.  SET TALK ON
  30.  PACK
  31.  SET TALK OFF
  32.  @ 19,00
  33.  @ 20,00
  34.  @ 21,00
  35.  @ 22,00
  36.  @ 23,00
  37.  @ 21,00 SAY '***************************************************************************'
  38.  @ 23,20 SAY 'Hit any key to Continue '
  39.  SET CONSOLE OFF
  40.  WAIT
  41.  SET CONSOLE ON
  42. ENDI command = Y
  43. RELE ALL
  44. STOR t TO more
  45.