*DECK CPUCIO                                                            000640
*IF DEF,DEBUG                                                           000650
          IDENT  CPUCIO                                                 000660
*CALL COMCPUIO                                                          000670
*ENDIF                                                                  000680
