.k ""

set empty ""
set dummy ""

set src dh0:          ;default source directory !
set dest hd0:         ;default destination directory!
set optall   ""
set optdeep  ""
set optquiet ""
set optforce ""
set optredir ""

echo "Executing BackUpUp. To accept default values press RETURN*N"

echo "  source (Default: $src )? " NOLINE
set >nil: src ?

echo "  destination (Default: $dest)? " NOLINE
set >nil: dest ?

echo "  Options"
set dummy ""
echo "    ALL (Default: y)? " NOLINE
set >nil: dummy ?
if "$dummy" eq "$empty"
 set optall all
endif

ask "    DEEP (Default: n)? "
if warn
 set optdeep deep
endif

set dummy ""
echo "    FORCE (Default: y)? " NOLINE
set >nil: dummy ?
if "$dummy" eq "$empty"
 set optforce force
endif

set dummy ""
echo "    QUIET (Default: y)? " NOLINE
set >nil: dummy ?
if "$dummy" eq "$empty"
 set optquiet quiet
endif

ask "    PRINT (Default: n)? "
if warn
 set optredir ">prt:"
endif

set dummy ""
echo "*N*N  OK TO CONTINUE (Default: y)? " NOLINE
set >nil: dummy ?
if "$dummy" not eq "$empty"
 echo "*N*NAbort!*N*N"
 skip exit
endif

date >env:start
echo "*N          Started:" $start

echo "*N  Execution of the:"
echo "      updatecopy " $src $dest $optall $optdeep $optforce $optquiet $optredir
echo "  (abort pressing CTRL+C !)*N"

updatecopy $src $dest $optall $optdeep $optforce $optquiet $optredir

if $optquiet not eq quiet
  echo "*N          Started:" $start
endif
date >env:stop
echo "          Stopped:" $stop

unsetenv start
unsetenv stop

set b1 .backdrop
set b2 .backdrop-
set b3 .backdrop.info
set b4 .backdrop-.info

if exists $dest$b1
  set dummy ""
  echo "*N  Rename $dest$b1 as $dest$b2 (Default: y)? " NOLINE
  set >nil: dummy ?
  if "$dummy" eq "$empty"

    if exists $dest$b2
      delete $dest$b2 force quiet
    endif
    rename $dest$b1 $dest$b2

    if exists $dest$b3
      if exists $dest$b4
        delete $dest$b4 force quiet
      endif
      rename $dest$b3 $dest$b4
    endif

  endif
endif

lab exit
echo "*N*NFinished. Press close gadget for exit!"