home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / p / prok345.zip / PROVIS.INT < prev    next >
Text File  |  1991-02-19  |  2KB  |  47 lines
  1.  
  2. (*
  3.  * Copyright 1987, 1991 Samuel H. Smith;  All rights reserved
  4.  *
  5.  * This is a component of the ProDoor System.
  6.  * Do not distribute modified versions without my permission.
  7.  * Do not remove or alter this notice or any other copyright notice.
  8.  * If you use this in your own program you must distribute source code.
  9.  * Do not use any of this in a commercial product.
  10.  *
  11.  *  NOTICE: ALL MODIFIED VERSIONS OF THIS PROGRAM _MUST_ BE DISTRIBUTED
  12.  *          WITH SOURCE CODE.  I STRICTLY FORBID THE USE OF ANY NON-
  13.  *          PUBLIC INFORMATION IN MODIFICATIONS.  FOR EXAMPLE, YOU
  14.  *          CANNOT USE CDC PROVIDED INFORMATION FOR PCBOARD 14.5
  15.  *          COMPATIBILITY, SINCE SUCH A VERSION CANNOT BE RELEASED IN
  16.  *          SOURCE CODE.
  17.  *)
  18.  
  19. (*
  20.  * PCB ProDoor visual message entry/edit module for ProMail unit (3-1-89)
  21.  *
  22.  *)
  23.  
  24. const
  25.    leftmargin = 0;      {4; spaces to skip at left margin}
  26.    topscreen = 7;       {first screen line for text entry}
  27.    maxscrlines = 40;    {maximum number of display lines}
  28.    vismaxlen = 79;      {maximum display line length}
  29.    viswraplen = 71;     {visual word wrap line length}
  30.  
  31.    insert_mode: boolean = true;
  32.  
  33. var
  34.    statline:    integer;        {line for statue messages}
  35.    scrlines:    integer;        {number of screen lines for text entry}
  36.    scrollsiz:   integer;        {number of lines to scroll by}
  37.    topline:     integer;        {message line number at top of screen}
  38.    cline:       integer;        {current message line number}
  39.    ccol:        integer;        {current column number}
  40.  
  41.    phyline:     array[1..maxscrlines] of string[vismaxlen];
  42.                                 {physical display text}
  43.  
  44.    pleft:       integer;        {previous value of minutes_left}
  45.  
  46. procedure visual_edit;
  47.