home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CODE4-1.ZIP / SOURCE.ZIP / I4TYPE.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-10-14  |  251 b   |  15 lines
  1.  
  2. /* i4type.c   (c)Copyright Sequiter Software Inc., 1987, 1988, 1989.  All rights reserved.
  3. */
  4.  
  5. #include "d4base.h"
  6.  
  7. extern  INDEX  *v4index ;
  8.  
  9. char  i4type( index_ref )
  10. int     index_ref ;
  11. {
  12.    return( v4index[index_ref].i_type ) ;
  13. }
  14.  
  15.