home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
propmgr2.zip
/
PURGE.ACG
< prev
next >
Wrap
Text File
|
1986-09-03
|
1KB
|
45 lines
* DATE 08/27/84 12:46
* purge.cmd
STOR CHR(PEEK (063)) TO dr
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
CLEA GETS
IF command = 'Y'
ERAS
TEXT
Records which have been marked for deletion are being removed from the file.
When that is completed, all records will be reindexed.
We will keep you posted as we go along..........but please be patient.
ENDT
SET INDEX TO
GO bottom
STOR # to before
@ 08,00 SAY 'The data base contains ' + STR(before,4) + ' files before deletions'
@ 09,00 SAY ' '
SET INDEX TO &dr.:lastname
SET TALK ON
PACK
SET TALK OFF
@ 19,00
@ 20,00
@ 21,00
@ 22,00
@ 23,00
@ 21,00 SAY '***************************************************************************'
@ 23,20 SAY 'Hit any key to Continue '
SET CONSOLE OFF
WAIT
SET CONSOLE ON
ENDI command = Y
RELE ALL
STOR t TO more