C                                           *--> FROM UCOMMON.UIO
C  LINE PRINTER, CARD READER, DEBUG, ERROR UNIT AND CARD PUNCH
C  COMMON BLOCK
      COMMON /UIO/ LP,ICD,LPD,LPE,ICDPUN
C