.key Newfile/a,Oldfile/a
.bra (
.ket )


if exists (Oldfile)
; {
   if exists (Newfile)
;   {
      fileCompare >nil: (Oldfile) (Newfile)
      if WARN
;      {
         delete (Oldfile) quiet
	 failat 25
         rename >nil: (Newfile) (Oldfile)
	 if FAIL
;	  {
           copy (Newfile) (Oldfile) clone
	   failat 10
           delete (Newfile) quiet
	   endif
;          }
           
;       }
      else
;      {
         delete (Newfile) quiet
         endif
;       }
      endif
;    }
 else
; {
    echo "(Newfile) doesn't exist"
    endif 
;    }
else
; {
   echo "(Oldfile) doesn't exist"
;  }
 endif
;}