*
* $Id$
*
* $Log$
* Revision 1.1  1996/02/15 17:55:02  mclareni
* Initial revision
*
*
*
* tublow1.inc
*
#if 0
      DIMENSION    MCHECK(5)
#endif
#if 0
      EQUIVALENCE (MCHECK,CHECK)
#endif
#if 0
      DATA MCHECK  /8H 0123456, 8H789ABCDE, 8HFGHIJKLM
#endif
#if 0
     +,             8HNOPQRSTU, 8HVWXYZ   /
#endif
#if 0
      DATA NCH     /37/
#endif
