*DECK XZFN
          IDENT  XZFN 
*CALL COMXZFN 
