Important Notice

The pages on this site contain documentation for very old MS-DOS software, purely for historical purposes. If you're looking for up-to-date documentation, particularly for programming, you should not rely on the information found here, as it will be woefully out of date.

  ◄Standard Units► ◄Contents► ◄Index►                             ◄Back►
 
  {──────────────────────────────────────────────────────────────────────
 
                            Crt Unit Interface
 
                   Microsoft QuickPascal Version 1.00
                Copyright (C) 1989, Microsoft Corporation
                           All rights reserved.
 
  ──────────────────────────────────────────────────────────────────────}
 
  UNIT Crt;
 
  {$D-,I-,S-}
 
  INTERFACE
 
  CONST
      { display modes }
      BW40    = 0;      { 40 x 25, Color Adapter, B/W   }
      CO40    = 1;      { 40 x 25, Color Adapter, Color }
      BW80    = 2;      { 80 x 25, Color Adapter, B/W   }
      CO80    = 3;      { 80 x 25, Color Adapter, Color }
      Mono    = 7;      { 80 x 25, Monochrome Adapter   }
 
      Font8x8 = 256;    { 43- or 50-line display mode   }
 
      { alternate display mode constants }
      C40     = CO40;
      C80     = CO80;
 
      { foreground and background colors }
      Black        = 0;
      Blue         = 1;
      Green        = 2;
      Cyan         = 3;
      Red          = 4;
      Magenta      = 5;
      Brown        = 6;
      LightGray    = 7;
 
      { foreground colors }
      DarkGray     = 8;
      LightBlue    = 9;
      LightGreen   = 10;
      LightCyan    = 11;
      LightRed     = 12;
      LightMagenta = 13;
      Yellow       = 14;
      White        = 15;
 
      { add for blinking characters }
      Blink        = 128;
 
  VAR
      CheckBreak  : Boolean;    { state of CTRL+BREAK checking }
      CheckEOF    : Boolean;    { state of CTRL+Z checking on input }
      DirectVideo : Boolean;    { state of direct video addressing }
      CheckSnow   : Boolean;    { state of snow filtering }
      LastMode    : Word;       { current text mode }
      TextAttr    : Byte;       { current text attribute }
      WindMin     : Word;       { upper-left window coordinates }
      WindMax     : Word;       { lower-right window coordinates }
 
  {──────────────────────────────────────────────────────────────────
                    Crt Procedures and Functions
  ───────────────────────────────────────────────────────────────────}
 
  PROCEDURE AssignCrt( VAR file_variable : Text );
  PROCEDURE ClrEol;
  PROCEDURE ClrScr;
  PROCEDURE Delay( time : Word );
  PROCEDURE DelLine;
  PROCEDURE GotoXY( x, y : Byte );
  PROCEDURE HighVideo;
  PROCEDURE InsLine;
  FUNCTION KeyPressed : Boolean;
  PROCEDURE LowVideo;
  PROCEDURE NormVideo;
  PROCEDURE NoSound;
  FUNCTION ReadKey : Char;
  PROCEDURE Sound( frequency : Word );
  PROCEDURE TextBackground( color : Byte );
  PROCEDURE TextColor( color : Byte );
  PROCEDURE TextMode( mode : <integer type> );
  FUNCTION WhereX : Byte;
  FUNCTION WhereY : Byte;
  PROCEDURE Window( x1, y1, x2, y2 : Byte );