SET SAFETY OFF
RESTORE FROM MBACKUP
CLEAR
IF HARDDRIVE = 'TAMMY' .AND. .NOT. FILE("A:TAMMY")
 RETURN
ENDIF
IF HARDDRIVE = 'SCOTT' .AND. .NOT. FILE("A:SCOTT")
 RETURN
ENDIF
IF HARDDRIVE = 'JOE' .AND. .NOT. FILE("A:JOE")
 RETURN
ENDIF
SET TALK OFF
IF DOW(BDATE) = 1
 STORE 'Sunday  ' to topday
ENDIF
IF DOW(BDATE) = 2
 STORE 'Monday  ' to topday
ENDIF
IF DOW(BDATE) = 3
 STORE 'Tuesday ' to topday
ENDIF
IF DOW(BDATE) = 4
 STORE 'Wednesday' to topday
ENDIF
IF DOW(BDATE) = 5
 STORE 'Thursday' to topday
ENDIF
IF DOW(BDATE) = 6
 STORE 'Friday  ' to topday
ENDIF
IF DOW(BDATE) = 7
 STORE 'Saturday' to topday
ENDIF
STORE TRIM(TOPDAY) + ' ' + TRIM(CMONTH(BDATE)) + ' ' + STR(DAY(BDATE),2,0) + ', ' + STR(YEAR(BDATE),4,0) TO TOPGUN
CLEAR
@ 1,30 SAY 'FILE BACKUPS'
@ 5,0 SAY 'FILES NEED TO BE BACKED UP !!! '
@ 7,0 SAY 'LEAVE COMPUTER ON FOR FILE BACKUPS '
@ 9,0 SAY 'PRESS  C  TO CONTINUE - ' GET CON PICTURE '!'
READ
IF CON <> 'C'
 QUIT
ENDIF 
@ 20,0 CLEAR
*SET CONSOLE OFF
STORE 'N' TO MOK
SAVE TO MBACKUP
RUN F:
RUN CD \ACCT
RUN MAP DELETE C:
IF FILE("C:\PUBLIC\SYSCON.EXE")
 @ 20,0 CLEAR
 @ 20,0 SAY 'ERROR..DRIVE C IS STILL MAPPED TO NETWORK !!!'
 ?
 WAIT
 QUIT
ENDIF
CLEAR
@ 20,0 CLEAR
@ 20,0 SAY 'CHECKING DATABASE - '
STORE 'F:\ACCT\CUSTOMER' TO DNET
DO CHKDATA
STORE 'F:\ACCT\INVOICE' TO DNET
DO CHKDATA
STORE 'F:\ACCT\INVPURGE' TO DNET
DO CHKDATA
STORE 'F:\ACCT\INVMAINP' TO DNET
DO CHKDATA
STORE 'F:\ACCT\INVMAIN' TO DNET
DO CHKDATA
STORE 'F:\ACCT\PO' TO DNET
DO CHKDATA
STORE 'F:\ACCT\POMAIN' TO DNET
DO CHKDATA
STORE 'F:\ACCT\PAYABLE' TO DNET
DO CHKDATA
STORE 'F:\ACCT\PHONE' TO DNET
DO CHKDATA
STORE 'F:\ACCT\RENTAL' TO DNET
DO CHKDATA
STORE 'F:\ACCT\RTRANS' TO DNET
DO CHKDATA
STORE 'F:\ACCT\VENDOR' TO DNET
DO CHKDATA
STORE 'F:\ACCT\INVENTORY' TO DNET
DO CHKDATA
STORE 'F:\ACCT\SCOTT' TO DNET
DO CHKDATA
STORE 'F:\ACCT\SCOTT1' TO DNET
DO CHKDATA
STORE 'F:\ACCT\JOE' TO DNET
DO CHKDATA
STORE 'F:\ACCT\JOE1' TO DNET
DO CHKDATA
STORE 'F:\ACCT\TAMMY' TO DNET
DO CHKDATA
STORE 'F:\ACCT\TAMMY1' TO DNET
DO CHKDATA
STORE 'F:\ACCT\CASGL89' TO DNET
DO CHKDATA
STORE 'F:\ACCT\CASGL88' TO DNET
DO CHKDATA
STORE 'F:\ACCT\CASGL87' TO DNET
DO CHKDATA
STORE 'F:\ACCT\ACCTCODE' TO DNET
DO CHKDATA
STORE 'F:\ACCT\RENTCODE' TO DNET
DO CHKDATA
run c:
run cd \ 
run md acct
run md util
run cd\acct
run md 123files
run cd\
RUN COPY F:\*.* C:\
RUN COPY F:\ACCT\*.PRG C:\ACCT
RUN COPY F:\ACCT\*.DBF C:\ACCT
RUN COPY F:\ACCT\*.NTX C:\ACCT
RUN COPY F:\ACCT\*.MEM C:\ACCT
RUN COPY F:\ACCT\*.EXE C:\ACCT
RUN COPY F:\UTIL\*.* C:\UTIL
RUN COPY F:\WP\*.* C:\WP
RUN COPY F:\123FILES\*.* C:\ACCT\123FILES
CLEAR
@ 1,30 SAY 'BACKUP DATA FILES' 
@ 8,0 SAY 'Backup session complete ...'
STORE DATE() TO BDATE
DO WHILE .T.
IF HARDDRIVE = 'JOE'
 STORE 'SCOTT' TO HARDDRIVE
 EXIT
ENDIF
IF HARDDRIVE = 'TAMMY'
 STORE 'JOE' TO HARDDRIVE
 EXIT
ENDIF
IF HARDDRIVE = 'SCOTT'
 STORE 'TAMMY' TO HARDDRIVE
 EXIT
ENDIF
ENDDO
STORE 'Y' TO MOK
SAVE TO F:\ACCT\MBACKUP
RUN LOGOUT