Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : CANS_101.ZIP
Filename : BACKPROG.PRG

*------------------------------------------------------------------
*
* System Name: Beer Cans Inventory System
*
* Program Name: BACKPROG.PRG
*
* Programmer: Eric L. Poole
* Date: 18 February 1988
*
* Purpose: To create a backup of the DBASE III Plus programs
* associated with the database for backup and
* recovery purposes. The program prompts for drive
* b:, but if you only have drive a:, it will work
* also.
*
*------------------------------------------------------------------

set color to w+/ ,gr+/
clear

set color to g/gr+
@ 8,21 to 12,58 double
set color to w+/b

@ 9,22 say " "
@ 10,22 say " BACKUP DBASE III PLUS PROGRAMS "
@ 11,22 say " "

set color to w+/
@ 15,1 say " "
wait " Press any key to begin ....."

set color to g+/
clear

?
? 'Place a formatted backup floppy diskette for the'
? ' DBASE III Plus Programs in drive b: and close the latch.'
?
wait 'Then press any key to begin the backup process.'
?
set color to bg+/
?
?
? 'Copying DBASE III Plus Programs .... Please wait ....'
?
close databases
run copy *.prg b:
run copy *.frm b:
run copy *.doc b:
?
set color to r+/
? 'Backup finished ....'
?
set color to w+/

? 'Ready to print directory of backup diskette.'
?
? 'Make sure your printer is turned on, and paper is set to top of form'
?
wait
?
set color to g+/
set print on
? chr(15)
run dir b:*.prg > prn
run dir b:*.frm > prn
run dir b:*.doc > prn
?
? chr(18)
set print off
?
set color to gr+/
? 'Remove backup diskette and store in a safe place.'
?
set color to w+/
wait

return