CRESET CREATE-FILE CS-PICK
CRESET ( n addr -- )  
<FORTH-83-L&P>
reset bits in byte at given address 
 simulate:
   : CRESET  TUCK @ SWAP NOT AND SWAP ! ;

reference: p4_c_reset in ../src/lpf83.c:0132, export CO CRESET