*DECK CPUCIO
*IF DEF,DEBUG 
          IDENT  CPUCIO 
*CALL COMCPUIO
*ENDIF
