Add word WIPE

blk/064

@@ -5,7 +5,7 @@ LIST  n --      Prints the contents of the block n on screen
                 in the form of 16 lines of 64 columns.
 LOAD  n --      Interprets Forth code from block n
 LOADR n1 n2 --  Load block range between n1 and n2, inclusive.
-
+WIPE  --        Empties current block
 
 
 

blk/151

@@ -3,9 +3,9 @@
   and ABORT on mismatch. )
 : AT28! ( n a -- )
     2DUP C!
-    ( as long as writing operation is running, IO/6 will toggle at each
-      read attempt. We know that write is finished when we read the same
-      value twice. )
+    ( as long as writing operation is running, IO/6 will toggle
+      at each read attempt. We know that write is finished when
+      we read the same value twice. )
     BEGIN ( n1 a )
         DUP C@      ( n1 a n2 )
         OVER C@     ( n1 a n2 n3 )

blk/470

@@ -1,2 +1,4 @@
 ( b1 b2 -- )
 : LOADR 1+ SWAP DO I DUP . CRLF LOAD LOOP ;
+
+: WIPE BLK( 1024 0 FILL BLK!! ;