Revision 3 of 5, by WikiArchive on 11-4-2026. The page as it is now.

Crt

CRT is a unit providing subroutines for programming in text mode. It is similar to ncurses C library. It's intention is to be compatible with the Borland Pascal / Turbo Pascal 7 CRT unit.

Procedures and Functions

Keyboard:

pascal

Function KeyPressed: Boolean;          
Function ReadKey: Char;

Display:

pascal

Procedure TextMode (Mode: word);        
Procedure Window(X1,Y1,X2,Y2: Byte);    
Procedure Window32(X1,Y1,X2,Y2: DWord); 
Procedure ClrScr;                       
Procedure ClrEol;                       
Procedure InsLine;                      
Procedure DelLine;                      
Procedure TextColor(Color: Byte);       
Procedure TextBackground(Color: Byte);  
Procedure LowVideo;                     
Procedure HighVideo;                    
Procedure NormVideo;

Cursor Control:

pascal

Procedure cursoron;                     
Procedure cursoroff;                    
Procedure cursorbig;                    
Procedure GotoXY(X,Y: tcrtcoord);       
Procedure GotoXY32(X,Y: DWord);         
Function WhereX: tcrtcoord;            
Function WhereY: tcrtcoord;            
Function WhereX32: DWord;              
Function WhereY32: DWord;

Sound:

pascal

Procedure Sound(Hz: Word);              
Procedure NoSound;

Delay: (Typically used with sound)

pascal

Procedure Delay(MS: Word);

===File:===

pascal

Procedure AssignCrt(var F: Text);

Variables and Constants

Color Constants:

pascal

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;

From the Free Pascal wiki, page "Crt", as it stood on 2019-12-27 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.