Dec 242017
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
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(
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(
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