Add word FILL

blk/050

@@ -10,7 +10,7 @@ C!       c a --          Store byte c in address a
 CURRENT  -- a            Set a to wordref of last added entry.
 CURRENT* -- a            A pointer to active CURRENT*. Useful
                          when we have multiple active dicts.
+FILL     a n b --        Fill n bytes at addr a with val b.
 HERE     -- a            Push HERE's address
 H@       -- a            HERE @
-MOVE     a1 a2 u --      Copy u bytes from a1 to a2, starting
+                                                        (cont.)
-                         with a1, going up.

blk/051

@@ -0,0 +1,2 @@
+MOVE     a1 a2 u --      Copy u bytes from a1 to a2, starting
+                         with a1, going up.

blk/434

@@ -1,5 +1,4 @@
-( a1 a2 u -- )
+: MOVE ( a1 a2 u -- )
-: MOVE
     ( u ) 0 DO
         SWAP DUP I + C@   ( a2 a1 x )
         ROT SWAP OVER I + ( a1 a2 x a2 )
@@ -7,10 +6,10 @@
     LOOP
     2DROP
 ;
-
+: FILL ( a n b -- )
-: DELW 1- 0 SWAP C! ;
+    SWAP 2 PICK + ( a b a+n ) ROT ( b a+n a ) DO ( b )
-
+        DUP I C!
-: PREV
+    LOOP
-    3 - DUP @                   ( a o )
-    -                           ( a-o )
 ;
+: DELW 1- 0 SWAP C! ;
+: PREV 3 - DUP @ - ;