* purge.sig  08/18/83
STORE CHR(PEEK (063)) TO dr
STORE 'N' TO command
ERASE
@ 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'
    * give the user something to read while file is packed
    @ 10,05 SAY 'Records which have been marked for deletion'
    @ 11,05 SAY 'are being removed from the file'
    @ 13,05 SAY 'When that is completed, all records will'
    @ 14,05 SAY 'be re-indexed, so please be patient....'
    *pack the file to remove deleted records
    *but let us know how many records are deleted
    SET INDEX TO
    GOTO bottom
    STORE # to before
    PACK
    GOTO bottom
    STORE # to after
    @ 18,15 SAY  STR(before-after,4)+ ' Deleted Records Removed'
    INDEX ON !(lname) TO &dr.:orders
    SET INDEX TO &dr.:orders
    @ 23,00 SAY 'Hit any key to Continue '
    SET CONSOLE OFF
    WAIT
    SET CONSOLE ON
ENDIF command = Y
RELEASE ALL
STORE t TO more