BODY> ( pfa -- cfa )
implementation-specific simulation: : BODY> CELL - ;
reference: p4_body_from in ../src/forth-83.c:0392, export CO BODY>