.k ""


set sour dh0:         ;default source directory !
set dest hd0:         ;default destination directory!


echo "source ?        (for $sour press ENTER)"
set >nil: sour ?

echo "destination ?   (for $dest press ENTER)"
set >nil: dest ?

set e ""

set s ""
echo "all     (n/y) ? (for y press ENTER)"
set >nil: s ?
if "$s" eq "$e"
 set a all
else
 set a ""
endif

ask "deep    (y/n) ? (for n press ENTER)*N"
if warn
 set d deep
else
 set d ""
endif

set s ""
 echo "force   (n/y) ? (for y press ENTER)"
set >nil: s ?
if "$s" eq "$e"
 set f force
else
 set f ""
endif

set s ""
echo "quiet   (n/y) ? (for y press ENTER)"
set >nil: s ?
if "$s" eq "$e"
 set q quiet
else
 set q ""
endif

ask "PRINT         (y/n) ? (for n press ENTER)*N"
if warn
 set p print
else
 set p ""
endif

set s ""
echo "OK TO CONTINUE  (n/y) ? (for y press ENTER)"
set >nil: s ?
if "$s" not eq "$e"
 echo "*N*N                    Abort!*N*N"
 skip exit
endif

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

echo "*NExecution of the:"
echo "      updatecopy " $sour $dest $a $d $f $q $p
echo "(abort pressing CTRL+C !)*N"

if $p eq print
 updatecopy $sour $dest $a $d $f $q >prt:
else
 updatecopy $sour $dest $a $d $f $q
endif

                 if $q not eq quiet
                  echo "*N          start:" $start
                 endif

                 date >env:stop
                 echo "*N           stop:" $stop


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

 if exists $dest$b1
  set s ""
  echo "*NRENAME $dest$b1 AS $dest$b2  (n/y) ? (for y press ENTER)"
  set >nil: s ?
  if "$s" eq "$e"
                                   if exists $dest$b2
                                     delete $dest$b2 forced quiet
                                    endif
     rename $dest$b1 $dest$b2

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

  else
   set q ""
  endif

 endif


lab exit
echo "*N*N   For exit click to the close gadget!"