home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
db3plsar.zip
/
BACKUP.PRG
< prev
next >
Wrap
Text File
|
1986-08-04
|
772b
|
35 lines
********************(BACKUP.PRG)
CLEA
@ 15,20 SAY 'Please install backup floppy disk in drive A:'
WAIT ' '
@ 18,20 SAY 'Are you ready to back up your data files?'
STORE ' ' TO OPTION
WAIT ' ' TO OPTION
IF OPTION<>'Y'
CLEA
? ' Press F9 to return to menu...'
RETURN
ENDIF
USE
SET TALK ON
SET ECHO ON
CLEA
DELE FILE TEMP.DBF
COPY FILE CUST.DBF TO A:CUST.DBF
COPY FILE INV.DBF TO A:INV.DBF
COPY FILE SALES.DBF TO A:SALES.DBF
COPY FILE ACCTS.NDX TO A:ACCTS.NDX
COPY FILE ACCT.NDX TO A:ACCT.NDX
SET TALK OFF
SET ECHO OFF
?
?
STORE ' ' TO OPTION
? 'Want to exit? '
WAIT ' ' TO OPTION
IF OPTION='Y'
CLEA
CALL CAPSOFF.BIN
QUIT
ENDIF