paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-25 06:40:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* added scrrenHeight and ScreenWidth

Browse Source
This commit is contained in:
armin 2003-02-20 14:05:55 +00:00
parent 487408c8da
commit 872a9b1d1e
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/netware/crt.pp
View File

@ -73,6 +73,13 @@ var
WindMin: Word; { Window upper left coordinates }
WindMax: Word; { Window lower right coordinates }
Const
ScreenHeight : longint=25;
ScreenWidth : longint=80;
ConsoleMaxX=80;
ConsoleMaxY=25;
{ Interface procedures }
procedure AssignCrt(var F: Text);
function KeyPressed: Boolean;