BLOCK DATA
      COMMON /MAICOM/ ENTRY
      BYTE ENTRY (14,40)
      END