ON OF_MAGIC OPEN-FILE
ON ( addr -- )  
<FORTH-83-L&P>
simulate:
   : ON  TRUE SWAP ! ;

reference: p4_on in ../src/lpf83.c:0162, export CO ON