From: no.email@nospam.invalid   
      
   anton@mips.complang.tuwien.ac.at (Anton Ertl) writes:   
   > : :=: ( addr1 addr2 -- )   
   >     OVER @ >R  DUP @   ROT !   R> SWAP ! ;   
      
   : ex ( a1 a2 -- ) 2>r 2r@ @ swap  @ r> !  r> ! ;   
      
   looks a little simpler.   
      
   The effort of implementing special native words for this though are   
   probably better spent on locals.   
      
   : ex {: x y -- :} x @ y @ x ! y ! ;   
      
   --- SoupGate-DOS v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)