home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG107.ARC / REFERENC.LBR / PURGE.REF < prev    next >
Text File  |  1979-12-31  |  1KB  |  37 lines
  1. * DATE 02/24/85  15:09
  2. * purge.ref
  3. STOR 'N' TO command
  4. ERAS
  5. @ 02,05 SAY '*****   WARNING!   *****   WARNING!   *****   WARNING!   ****'
  6. @ 04,05 SAY 'This will PERMANENTLY remove any deleted records.'
  7. @ 06,05 SAY 'Type Y to continue, any other key to cancel this operation'
  8. @ 06,64 GET command PICTURE '!'
  9. READ
  10. IF command = 'Y'
  11.  ERAS
  12.  @ 06,00 SAY 'Records which have been marked for deletion'
  13.  @ 07,00 SAY 'are being removed from the file'
  14.  @ 08,00 SAY 'When that is completed, all records will'
  15.  @ 09,00 SAY 'be re-indexed, so please be patient....'
  16.  @ 11,00 SAY 'I will keep you posted as we go along'
  17.  REST from rdata additive
  18.  STOR CHR(PEEK(063)) TO dr
  19.  SET INDEX TO
  20.  SET echo on
  21.  SET talk on
  22.  PACK
  23.  INDE on !($(author,1,12)) TO &dr.:&aindex
  24.  INDE on !($(title1,1,12)) TO &dr.:&tindex
  25.  INDE on code TO &dr.:&cindex
  26.  SET INDEX TO &dr.:&tindex
  27.  SET ECHO OFF
  28.  SET TALK OFF
  29.  ERAS
  30.  @ 17,10 SAY 'Hit any key to Continue '
  31.  SET CONSOLE OFF
  32.  WAIT
  33.  SET CONSOLE ON
  34. ENDI
  35. RELE ALL
  36. STOR t TO more
  37.