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

fill an area will zeros. 
 2000 CREATE DUP ALLOT ERASE

FORTH/ANS core (dpANS.6.2.1350) ordinary primitive