*
*
*
*  Cobbled together by ;
*
*  Ralph L. Smotherman
*  4068 Port Cleburne Lane
*  Hermitage, Tn.  37076
*
* fast file backup for dBaseII
* this short command file will hopefully minimize the problems
* associated with the inevitable dbaseII lost file problem and
* at least allow recovery of the data entered in all previous
* data entry sessions.
* no provision is made for recovery of the index files as they can be
* reconstructed from the data file
set talk off
use FILENAME
go bott
store # to M:PREVLAST
save to DB2BAKUP
*
* YOUR PROGRAM SHOULD BE INSERTED HERE *******
*
restore from DB2BAKUP
use FILENAME
go bott
store # to M:THISLAST
go M:PREVLAST
skip
store str((M:THISLAST-M:PREVLAST),5) to M:NUMBER
copy next &M:NUMBER to TEMP1
*
* if disk drive capacity allows, I suggest assigning the *.BKP
* file to a drive other than that of the data file(*.DBF).
*
use FILENAME.BKP
appe from TEMP1
dele file TEMP1
clear
return
*
*  Hopefully this file will be of more value to you than your cost for
*  the file.
*
*
