home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / textfile.swg / 0006_PTYPES.INC.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  530 b   |  22 lines
  1. {--PTYPES.INC-----------------------------------------------------------
  2. }
  3. { Type and Constant decalarations }
  4.  
  5. CONST
  6.    MAX_FILENAME_LEN   = 32;
  7.    MAX_SOURCELINE_LEN = 246;
  8.    MAX_PRINTLINE_LEN  = 80;
  9.    MAX_LINES_PER_PAGE = 50;
  10.    DATE_STRING_LENGTH = 26;
  11.    F_FEED             = #12;
  12.  
  13. VAR
  14.    line_num, page_num,
  15.    level, line_count   :word;
  16.  
  17.    source_buffer :string[MAX_SOURCELINE_LEN];
  18.    source_name   :string[MAX_FILENAME_LEN];
  19.    date          :string[DATE_STRING_LENGTH];
  20.    F1            :text;
  21.  
  22.