Dec 242017
 
Fast Write routines for TP3.0+.
File TBVIDEO.ZIP from The Programmer’s Corner in
Category Pascal Source Code
Fast Write routines for TP3.0+.
File Name File Size Zip Size Zip Type
DEMO.PAS 1920 617 deflated
READ.ME 1920 739 deflated
VARS.INC 128 53 deflated
WRITELIN.INC 768 295 deflated
WRITEXY.INC 768 294 deflated

Download File TBVIDEO.ZIP Here

Contents of the READ.ME file


WRITELIN and WRITEXY

by

Jim Everingham 1984

***********************************************************
* These Procedures are Public Domain and are free to be *
* copied, modified, and distributed. *
***********************************************************


VARS - These variable must be Global and be used at the very top
of your program.


WRITELIN - To call this procedure first initialize LINE_POS ar the beginning
of your program to 0 by the statement LINE_POS:=0;. If this is not
done, no telling what may happen. Next use the procedure by the
following Syntax:

WRITELN(, 0 and 255>);

Example:

WRITELN('Hello',12);

WRITEXY - It is not necessary to initialize LINE_POS or any other variables
to use this procedure. Here is the Syntax:

WRITEXY(,, dinate>,);

Example:

WRITEXY('Hello',40,20,(12+128));

Note: Adding 128 to color adds Blinking,
(ie, to add blinking to red (12), add 128
or 140 for blinking).

These Routines are generally more responsive than the regular Turbo Pascal
procedure and much faster. If you have any questions about them, please
contact:
Jim Everingham
215 West Fairmount Avenue
Apt 306 Fairmount Hills
State College, Pa 16801
814-238-9655

Compuserve: 75116,433





 December 24, 2017  Add comments

Leave a Reply