home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / bp7os2 / crt.pas < prev    next >
Pascal/Delphi Source File  |  1993-12-02  |  909b  |  45 lines

  1. Unit Crt;  {$R-,I-,S-,Q-}
  2.  
  3. Interface
  4.  
  5. Const
  6.   Black         =  0;
  7.   Blue          =  1;
  8.   Green         =  2;
  9.   Cyan          =  3;
  10.   Red           =  4;
  11.   Magenta       =  5;
  12.   Brown         =  6;
  13.   LightGray     =  7;
  14.   DarkGray      =  8;
  15.   LightBlue     =  9;
  16.   LightGreen    = 10;
  17.   LightCyan     = 11;
  18.   LightRed      = 12;
  19.   LightMagenta  = 13;
  20.   Yellow        = 14;
  21.   White         = 15;
  22.   Blink         = 128;
  23.  
  24. Var
  25.   TextAttr : Byte;
  26.  
  27.   Function KeyPressed : Boolean;
  28.   Function ReadKey : Char;
  29.  
  30.   Procedure ClrScr;
  31.   Procedure GotoXY(x,y : Byte);
  32.   Function WhereX : Byte;
  33.   Function WhereY : Byte;
  34.   Procedure TextMode(Mode : Integer);
  35.   Procedure TextColor(Color : Byte);
  36.   Procedure TextBackground(Color : Byte);
  37.   Procedure LowVideo;
  38.   Procedure NormVideo;
  39.   Procedure HighVideo;
  40.  
  41.   Procedure Delay(ms : Word);
  42.  
  43.   Procedure AssignCrt(Var f : Text);
  44.  
  45.