::::::::::::::::::::::::::::::::::::::::::::::
::   This MoFo is "Some" Super-Workhorse!   ::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: Made Generic Enough to Handle all instances of folders to backup. ::
:: v7.9.7.73 20221108210854 by -JpE- for Global Access Computers!    ::
:: Backs up Documents, Pictures, Favorites, DLs and Desktop.         ::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

::: RC4
:copies
@echo off
set /a exit2=0
set /a w=0
set ttl1= ***** %oper% Backups Ultra Pro Deluxe 9
set ttl2= *****
title %ttl1%%ttl2%

set default=Documents
::set vers=7.9.8.92 20221203232425 by -JpE-
set getw="%bats%\get_wipe_prefs.bat"

set ext0=just_externals.bat
set ext1="%bats%\%ext0%"
:: Those ^ 2 used in...
set ext2="%bats%\copy_externals.bat"

set notonline="%bats%\not_online.bat"
set status="%bats%\status_report.bat"
set spcn= 

if %oper% NEQ %default% goto skip

echo %l2%
echo .
echo %sl%
echo          **  "Copier"  Backup-Pro Ultra Deluxe   **
echo          **  %vers%   **
echo %sl%
echo .
echo %l2%
echo .
echo %sl%
echo                   %date% @ %time%
echo %sl%
echo .


:skip
echo %l2%
echo .
echo %sl%

:: restore Swaps source & destination & skips externals.
if %r3v3rs3% neq 2 goto backup
:: else swapfest
set txt=%src%
set src=%cps%
set cps=%txt%

:: Source C: not found exception.
if not exist %src% set /a w=5
if %w% equ 5 call %notonline%
if %w% equ 5 goto return
:: So source not exist is HANDLED!


:backup
set nop=is NOT Online.
set ol1=is now Online.

:: src is doc source folder on C: (w==5 if not found)
set fld=%src%
if exist %status% call %status%
:: if not exist src already handled above.

:: cps is copies folder on D: (w==4 if not found)
set fld=%cps%
if exist %status% call %status%

::::::::::::::::::::::::::::::::::
:: GET STATUS OF EXTERNAL DRIVES
::::::::::::::::::::::::::::::::::
:: bk1 is I: (w==1 if not found)
set fld=%bk1%
if exist %status% call %status%
REM if not exist %fld% set /a w=1

:: bk2 is X: (w==2 if not found)
set fld=%bk2%
if exist %status% call %status%
REM if not exist %fld% set /a w=2

:: bk3 is H: (w==3 if not found)
set fld=%bk3%
set spcn=        
if exist %status% call %status%
REM if not exist %fld% set /a w=3

:: bk4 is U: NEW not sure about w yet.
set fld=%bk4%
set spcn= 
if exist %status% call %status%
rem end construction

echo %sl%
echo .

if not exist %cps% set /a w=4
if %w% equ 4 call %notonline%

set txt=Backup
if %r3v3rs3% equ 2 set txt=Restore
echo %l1%
echo .
echo %sl%
echo            ***  %oper% %txt% Underway...   ***
echo %sl%
echo .
echo %l1%
time /t
echo .

if not exist %getw% echo .
if not exist %getw% echo %sl%
if not exist %getw% echo           *** Get-Wipe Program NOT Found. ***
if not exist %getw% echo %sl%
if not exist %getw% echo .
if exist %getw% call %getw%

title %ttl1%%ttl2%
:: 
if %wipe% equ 4 if %exit2% equ 4 goto return
:: ^ Cancel was chosen.
:: 
if %w% equ 4 goto externals
:: ^^^ cps isn't available.

if %wipe% GTR 0 if %wipe% neq 2 del /f /s /q %cps%"\"*.*
xcopy %src%"\"*.* %cps% /D /E /V /C /F /G /R /K /Y /Z /B /J
echo .
time /t
if %errorlevel% neq 0 set /a exit2=3
if %errorlevel% neq 0 goto externals

set txt=Backed up
if %r3v3rs3% equ 2 set txt=Restored
echo %l1%
echo       ** %oper% Successfully %txt% Onboard!  **


:externals
if exist %ext2% call %ext2%


:return



:: 100% -JpE-