ON ON OPEN-BLOCKFILE
ON
* ON ( addr -- )

Store -1 at _addr_. See `OFF`. 
  : ON  ( addr -- )  -1 SWAP ! ;

FORTH/DEF toolbelt ordinary primitive