* DATE 02/24/85  15:09
* purge.ref
STOR 'N' TO command
ERAS
@ 02,05 SAY '*****   WARNING!   *****   WARNING!   *****   WARNING!   ****'
@ 04,05 SAY 'This will PERMANENTLY remove any deleted records.'
@ 06,05 SAY 'Type Y to continue, any other key to cancel this operation'
@ 06,64 GET command PICTURE '!'
READ
IF command = 'Y'
 ERAS
 @ 06,00 SAY 'Records which have been marked for deletion'
 @ 07,00 SAY 'are being removed from the file'
 @ 08,00 SAY 'When that is completed, all records will'
 @ 09,00 SAY 'be re-indexed, so please be patient....'
 @ 11,00 SAY 'I will keep you posted as we go along'
 REST from rdata additive
 STOR CHR(PEEK(063)) TO dr
 SET INDEX TO
 SET echo on
 SET talk on
 PACK
 INDE on !($(author,1,12)) TO &dr.:&aindex
 INDE on !($(title1,1,12)) TO &dr.:&tindex
 INDE on code TO &dr.:&cindex
 SET INDEX TO &dr.:&tindex
 SET ECHO OFF
 SET TALK OFF
 ERAS
 @ 17,10 SAY 'Hit any key to Continue '
 SET CONSOLE OFF
 WAIT
 SET CONSOLE ON
ENDI
RELE ALL
STOR t TO more