* Program   : BACKUP.PRG
* Version   : V4.2
* Author(s) : Joe Tomas 
* Date      : 07/30/86
* Notice    : 
* Called by : SYSMGR1.PRG, FMAINT.PRG
* Call(s)   :   
* Notes     : UTILITY ROUTINE TO BACKUP DATABASE FILES TO FLOPPY
*           : 
CLEAR
CALL PAINT WITH "BACKUP.IMG"
SET COLOR TO
?? VBELL1
@ 23,27 SAY 'PRESS ANY KEY TO CONTINUE'

DO WHILE INKEY() = 0
   SET COLOR TO +
   @ 23,33 SAY 'ANY KEY'
   SET COLOR TO
   @ 23,33 SAY 'ANY KEY'
ENDDO

@ 05,00 CLEAR
STORE ' ' TO INSELECT
SET COLOR TO +
@ 10,20 SAY ' INSERT AN MS-DOS FORMATTED DISK INTO DISK '
@ 11,20 SAY '  DRIVE A: AND PRESS ANY KEY TO CONTINUE. '
SET COLOR TO
?? VBELL1

DO WHILE INKEY() = 0
   SET COLOR TO +
   @ 11,41 SAY 'ANY KEY'
   SET COLOR TO
   @ 11,41 SAY 'ANY KEY'
ENDDO

@ 04,00 CLEAR
SET COLOR TO +
@ 10,21 SAY '***   NOW BACKING-UP DATAFILES   *** '
SET COLOR TO +*I
@ 11,21 SAY '   D O   N O T   I N T E R R U P T   '
SET COLOR TO
COPY FILE PRODUC.DBF TO A:PRODUC.DBF
COPY FILE PRODUC.NDX TO A:PRODUC.NDX
COPY FILE ORDERS.DBF TO A:ORDERS.DBF
@ 04,00 CLEAR
?? VBELL3
SET COLOR TO +
@ 10,17 SAY '            DATAFILE BACKUP COMPLETED  '
@ 12,17 SAY ' PLEASE LABEL THE DISK WITH THE APPROPRIATE DATE'
@ 13,17 SAY '                AND SYSTEM NUMBER.'
SET COLOR TO

?? VBELL1
@ 23,30 SAY 'PRESS ANY KEY TO CONTINUE'

DO WHILE INKEY() = 0
   SET COLOR TO +
   @ 23,36 SAY 'ANY KEY'
   SET COLOR TO
   @ 23,36 SAY 'ANY KEY'
ENDDO
CLEAR
RETURN