home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / 30TURUTL.ZIP / READ.ME < prev    next >
Encoding:
Text File  |  1985-02-18  |  1.9 KB  |  56 lines
  1.                       WRITELIN and WRITEXY
  2.  
  3.                                by
  4.  
  5.                       Jim Everingham 1984
  6.  
  7.     ***********************************************************
  8.     *  These Procedures are Public Domain and are free to be  *
  9.     *  copied, modified, and distributed.                     *
  10.     ***********************************************************
  11.  
  12.  
  13. VARS     - These variable must be Global and be used at the very top
  14.            of your program.
  15.  
  16.  
  17. WRITELIN - To call this procedure first initialize LINE_POS ar the beginning
  18.            of your program to 0 by the statement LINE_POS:=0;. If this is not
  19.            done, no telling what may happen. Next use the procedure by the
  20.            following Syntax:
  21.  
  22.                    WRITELN(<Character String>,<Color -Integer between
  23.                            0 and 255>);
  24.  
  25.            Example:
  26.  
  27.                    WRITELN('Hello',12);
  28.  
  29. WRITEXY -  It is not necessary to initialize LINE_POS or any other variables
  30.            to use this procedure. Here is the Syntax:
  31.  
  32.                    WRITEXY(<Character String>,<X-Coordinate>,<Y-Coor-
  33.                            dinate>,<Color -Integer between 0 and 255>);
  34.  
  35.            Example:
  36.  
  37.                    WRITEXY('Hello',40,20,(12+128));
  38.  
  39.                    Note: Adding 128 to color adds Blinking,
  40.                    (ie, to add blinking to red (12), add 128
  41.                    or 140 for blinking).
  42.  
  43. These Routines are generally more responsive than the regular Turbo Pascal
  44. procedure and much faster.  If you have any questions about them, please
  45. contact:
  46.                    Jim Everingham
  47.                    215 West Fairmount Avenue
  48.                    Apt 306 Fairmount Hills
  49.                    State College, Pa 16801
  50.                    814-238-9655
  51.  
  52.                    Compuserve: 75116,433
  53.  
  54.  
  55.  
  56.