[Back to TEXTFILE SWAG index]  [Back to Main SWAG index]  [Original]

{--PTYPES.INC-----------------------------------------------------------
}
{ Type and Constant decalarations }

CONST
   MAX_FILENAME_LEN   = 32;
   MAX_SOURCELINE_LEN = 246;
   MAX_PRINTLINE_LEN  = 80;
   MAX_LINES_PER_PAGE = 50;
   DATE_STRING_LENGTH = 26;
   F_FEED             = #12;

VAR
   line_num, page_num,
   level, line_count   :word;

   source_buffer :string[MAX_SOURCELINE_LEN];
   source_name   :string[MAX_FILENAME_LEN];
   date          :string[DATE_STRING_LENGTH];
   F1            :text;


[Back to TEXTFILE SWAG index]  [Back to Main SWAG index]  [Original]