BCPL(00)
OCODE(!1)   
SEND TO(!)  
BIN 
CHAIN(FIND#CGMX)
LIST
TRACE   
INCLUDE(%BLIB0,%BSTART,%BTRACE,%BDEBUG,%BEDSFILES)  
*   
****
