Add word MOVE,

blk/051

@@ -7,3 +7,4 @@ MOVE     a1 a2 u --      Copy u bytes from a1 to a2, starting
                          with a1, going up.
 MOVE-    a1 a2 u --      Copy u bytes from a1 to a2, starting
                          with a1+u, going down.
+MOVE,    a u --          Copy u bytes from a to HERE.

blk/371

@@ -10,4 +10,5 @@
         C@- ( a2 a1-1 x )
         ROT C!- ( a1-1 a2-1 ) SWAP ( a2 a1 )
     LOOP 2DROP ;
+: MOVE, ( a u -- ) H@ OVER ALLOT SWAP MOVE ;
 : PREV 3 - DUP @ - ;