home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / OUT18.ZIP / OUTOPT.INC < prev    next >
Encoding:
Text File  |  1986-01-17  |  1.7 KB  |  65 lines
  1.  
  2.  
  3. (*
  4.  * outline - a simple "outline" oriented document generator
  5.  *
  6.  * outopt.inc - this file contains the handlers for the
  7.  *              option selection screen.
  8.  *
  9.  * Author:  Samuel H. Smith,  11-Jan-86
  10.  *
  11.  *)
  12.  
  13. const
  14.  
  15.    default_print_width = 80;  {the length of print lines}
  16.  
  17.    default_max_text =  10;    {the number of text lines in a section}
  18.  
  19.    default_max_subsects = 10; {max number of subsections in a section.
  20.                                note that max_text+max_subsects should
  21.                                be less than 21. otherwise the screen
  22.                                formatting won't work}
  23.  
  24.    default_pagelen =   60;    {max number of lines to print on a page}
  25.  
  26.    default_minlines =  20;    {minimum number of lines on a page before
  27.                                a new page can be started}
  28.  
  29.    default_indentation = 4;   {amount of indentation for each level of
  30.                                subsection nesting in printouts}
  31.  
  32.    default_right_margin = 77; {right margin for reformatted print file
  33.                                outputs}
  34.  
  35.    default_underline_character = '─';
  36.                               {characters printed to underline section
  37.                                titles in detail format printouts}
  38.  
  39.    default_paragraph_reformat = true;
  40.                               {should paragraphs of text be reformatted?}
  41.  
  42.    default_break_into_pages = true;
  43.                               {should output be divided into pages?}
  44.  
  45.  
  46. begin
  47.  
  48.    show display
  49.  
  50.    set initial field
  51.  
  52.    repeat
  53.  
  54.       CONVERT TO STRING
  55.  
  56.       EDIT STRING
  57.  
  58.       CONVERT TO BIN
  59.  
  60.       SELECT NEXT FIELD
  61.  
  62.    until exit key
  63.  
  64. end;
  65.