*
* $Id: tublow1.inc,v 1.1.1.1 1996/02/15 17:55:03 mclareni Exp $
*
* $Log: tublow1.inc,v $
* Revision 1.1.1.1  1996/02/15 17:55:03  mclareni
* Kernlib
*
*
*
* 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