ERASE ENVIRONMENT? EVALUATE
ERASE
* ERASE ( ptr len -- )

fill an area will zeros. 
 2000 CREATE DUP ALLOT ERASE

core ordinary primitive