2
$Id: crth.inc,v 1.1 2004/02/08 16:23:10 michael Exp $
3
This file is part of the Free Pascal run time library.
4
Copyright (c) 1999-2000 by the Free Pascal development team.
6
Borland Pascal 7 Compatible CRT Unit - Interface section
8
See the file COPYING.FPC, included in this distribution,
9
for details about the copyright.
11
This program is distributed in the hope that it will be useful,
12
but WITHOUT ANY WARRANTY; without even the implied warranty of
13
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
15
**********************************************************************}
19
BW40 = 0; { 40x25 B/W on Color Adapter }
20
CO40 = 1; { 40x25 Color on Color Adapter }
21
BW80 = 2; { 80x25 B/W on Color Adapter }
22
CO80 = 3; { 80x25 Color on Color Adapter }
23
Mono = 7; { 80x25 on Monochrome Adapter }
24
Font8x8 = 256; { Add-in for ROM font }
26
{ Mode constants for 3.0 compatibility }
30
{ Foreground and background color constants }
40
{ Foreground color constants }
50
{ Add-in for blinking }
55
{ Interface variables }
56
CheckBreak: Boolean; { Enable Ctrl-Break }
57
CheckEOF: Boolean; { Enable Ctrl-Z }
58
DirectVideo: Boolean; { Enable direct video addressing }
59
CheckSnow: Boolean; { Enable snow filtering }
60
LastMode: Word; { Current text mode }
61
TextAttr: Byte; { Current text attribute }
62
WindMin: Word; { Window upper left coordinates }
63
WindMax: Word; { Window lower right coordinates }
64
{ FPC Specific for large screen support }
70
{ Interface procedures }
71
procedure AssignCrt(var F: Text);
72
function KeyPressed: Boolean;
73
function ReadKey: Char;
74
procedure TextMode(Mode: Integer);
75
procedure Window(X1,Y1,X2,Y2: Byte);
76
procedure GotoXY(X,Y: Byte);
77
function WhereX: Byte;
78
function WhereY: Byte;
83
procedure TextColor(Color: Byte);
84
procedure TextBackground(Color: Byte);
88
procedure Delay(MS: Word);
89
procedure Sound(Hz: Word);
99
Revision 1.1 2004/02/08 16:23:10 michael
100
+ Moved CRT interface to common include file