home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / T_REF.ZIP / PRINTDOC.LIB < prev    next >
Encoding:
Text File  |  1987-01-15  |  435 b   |  17 lines
  1.   const
  2.     file_name  : array [1..8] of string[13]
  3.                = ( 'T-REFHDR.DOC',
  4.                    'T-REFCH1.DOC',
  5.                    'T-REFCH2.DOC',
  6.                    'T-REFCH3.DOC',
  7.                    'T-REFCH4.DOC',
  8.                    'T-REFCH5.DOC',
  9.                    'T-REFCH6.DOC',
  10.                    'T-REFAPX.DOC' );
  11.  
  12.   var
  13.     print_file : text;
  14.     out_line   : string [100];
  15.     i          : byte;
  16.  
  17.