home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / nvdc87 / units / crt.hdr < prev    next >
Text File  |  1987-08-18  |  2KB  |  76 lines
  1. UNIT Crt;
  2.  
  3. INTERFACE
  4.  
  5. CONST
  6.  
  7. { CRT modes }
  8.  
  9.   BW40 = 0;             { 40x25 B/W on Color Adapter }
  10.   C40  = 1;             { 40x25 Color on Color Adapter }
  11.   BW80 = 2;             { 80x25 B/W on Color Adapter }
  12.   C80  = 3;             { 80x25 Color on Color Adapter }
  13.   Mono = 7;             { 80x25 B/W on Monochrome Adapter }
  14.   Last = -1;            { Last active text mode }
  15.  
  16. { Foreground and background color constants }
  17.  
  18.   Black        = 0;
  19.   Blue         = 1;
  20.   Green        = 2;
  21.   Cyan         = 3;
  22.   Red          = 4;
  23.   Magenta      = 5;
  24.   Brown        = 6;
  25.   LightGray    = 7;
  26.  
  27. { Foreground color constants }
  28.  
  29.   DarkGray     = 8;
  30.   LightBlue    = 9;
  31.   LightGreen   = 10;
  32.   LightCyan    = 11;
  33.   LightRed     = 12;
  34.   LightMagenta = 13;
  35.   Yellow       = 14;
  36.   White        = 15;
  37.  
  38. { Add-in for blinking }
  39.  
  40.   Blink        = 128;
  41.  
  42. VAR 
  43.  
  44. { Interface variables }
  45.  
  46.   CheckBreak: Boolean;    { Enable Ctrl-Break }
  47.   CheckEOF: Boolean;      { Enable Ctrl-Z }
  48.   DirectVideo: Boolean;   { Enable direct video addressing }
  49.   CheckSnow: Boolean;     { Enable snow filtering }
  50.   TextAttr: Byte;         { Current text attribute }
  51.   WindMin: Word;          { Window upper left coordinates }
  52.   WindMax: Word;          { Window lower right coordinates }
  53.  
  54. { Interface PROCEDUREs }
  55.  
  56. PROCEDURE AssignCrt(var F: Text);
  57. FUNCTION  KeyPressed: Boolean;
  58. FUNCTION  ReadKey: Char;
  59. PROCEDURE TextMode(Mode: Integer);
  60. PROCEDURE Window(X1,Y1,X2,Y2: Integer);
  61. PROCEDURE GotoXY(X,Y: Integer);
  62. FUNCTION  WhereX: Integer;
  63. FUNCTION  WhereY: Integer;
  64. PROCEDURE ClrScr;
  65. PROCEDURE ClrEol;
  66. PROCEDURE InsLine;
  67. PROCEDURE DelLine;
  68. PROCEDURE TextColor(Color: Integer);
  69. PROCEDURE TextBackground(Color: Integer);
  70. PROCEDURE LowVideo;
  71. PROCEDURE HighVideo;
  72. PROCEDURE NormVideo;
  73. PROCEDURE Delay(MS: Integer);
  74. PROCEDURE Sound(Hz: Integer);
  75. PROCEDURE NoSound;
  76.