      COMMON /MAICOM/ ENTRY
      BYTE ENTRY (14,40)
      DATA NENTRY /40/
      DO 1000 I=1,NENTRY
      DO 1000 J=1,14
1000  ENTRY(J,I)=0
      CALL EXIT
      END