*DECK CMFMFL
          IDENT  CMF.MFL
  
 ERRCK    EQU    0
*CALL MFL 
          END 
