home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
pascal
/
bp7os2
/
bpos2r.001
/
CRT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-12-02
|
909b
|
45 lines
Unit Crt; {$R-,I-,S-,Q-}
Interface
Const
Black = 0;
Blue = 1;
Green = 2;
Cyan = 3;
Red = 4;
Magenta = 5;
Brown = 6;
LightGray = 7;
DarkGray = 8;
LightBlue = 9;
LightGreen = 10;
LightCyan = 11;
LightRed = 12;
LightMagenta = 13;
Yellow = 14;
White = 15;
Blink = 128;
Var
TextAttr : Byte;
Function KeyPressed : Boolean;
Function ReadKey : Char;
Procedure ClrScr;
Procedure GotoXY(x,y : Byte);
Function WhereX : Byte;
Function WhereY : Byte;
Procedure TextMode(Mode : Integer);
Procedure TextColor(Color : Byte);
Procedure TextBackground(Color : Byte);
Procedure LowVideo;
Procedure NormVideo;
Procedure HighVideo;
Procedure Delay(ms : Word);
Procedure AssignCrt(Var f : Text);