BODY> BLOCK-FILE BOUNDS
BODY> ( pfa -- cfa )  
<FORTH-83>
converts a pointer to the parameter-field (PFA) to point then to the corresponding code-field (CFA)
 implementation-specific simulation:
   : BODY> CELL - ;

reference: p4_body_from in ../src/forth-83.c:0392, export CO BODY>