home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / turbo5 / doc / crt.doc next >
Text File  |  1988-10-09  |  3KB  |  93 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Turbo Pascal Version 5.0                        }
  5. {       Interface-Dokumentation zum Unit CRT            }
  6. {                                                       }
  7. {       Copyright (C) 1987,88 Borland International     }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit Crt;
  12.  
  13. {$D-,I-,S-}
  14.  
  15. interface
  16.  
  17. const
  18.  
  19.   { Text-Videomodi }
  20.   BW40          = 0;            { 40x25 S/W für Farbgrafik-Adapter }
  21.   CO40          = 1;            { 40x25 farbig }
  22.   BW80          = 2;            { 80x25 S/W für Farbgrafik-Adapter }
  23.   CO80          = 3;            { 80x25 farbig }
  24.   Mono          = 7;            { 80x25 für Monochrom-Adapter }
  25.   Font8x8       = 256;          { Additionsfaktor für 8x8-Zeichensatz und
  26.                                   43 (EGA) bzw. 50 Textzeilen (VGA) }
  27.  
  28.   C40           = CO40;         { Konstanten für die Kompatibilität zur }
  29.   C80           = CO80;         { Version 3.0 }
  30.  
  31. { Farben für Vorder- und Hintergrund }
  32.  
  33.   Black         = 0;
  34.   Blue          = 1;
  35.   Green         = 2;
  36.   Cyan          = 3;
  37.   Red           = 4;
  38.   Magenta       = 5;
  39.   Brown         = 6;
  40.   LightGray     = 7;
  41.  
  42. { nur für Vordergrund }
  43.  
  44.   DarkGray      = 8;
  45.   LightBlue     = 9;
  46.   LightGreen    = 10;
  47.   LightCyan     = 11;
  48.   LightRed      = 12;
  49.   LightMagenta  = 13;
  50.   Yellow        = 14;
  51.   White         = 15;
  52.  
  53.   { Additionsfaktor für blinkenden Text }
  54.  
  55.   Blink         = 128;
  56.  
  57. var
  58.  
  59. { ------------- Variablen ------------------------- }
  60.  
  61.   CheckBreak: Boolean;    { Prüfung auf Ctrl-Break }
  62.   CheckEOF: Boolean;      { Prüfung auf Ctrl-Z }
  63.   DirectVideo: Boolean;   { direkter Zugriff auf den Bildspeicher }
  64.   CheckSnow: Boolean;     { Synchronisationsroutine für CGA-Karten }
  65.   LastMode: Word;         { "letzter" (Text-)Videomodus }
  66.   TextAttr: Byte;         { momentanes Zeichenattribut }
  67.   WindMin: Word;          { linke obere Ecke des Textfensters }
  68.   WindMax: Word;          { rechte untere Ecke des Textfensters }
  69.  
  70. { ------------- Routinen ------------------------ }
  71.  
  72. procedure AssignCrt(var F: Text);
  73. function KeyPressed: Boolean;
  74. function ReadKey: Char;
  75. procedure TextMode(Mode: Integer);
  76. procedure Window(X1,Y1,X2,Y2: Byte);
  77. procedure GotoXY(X,Y: Byte);
  78. function WhereX: Byte;
  79. function WhereY: Byte;
  80. procedure ClrScr;
  81. procedure ClrEol;
  82. procedure InsLine;
  83. procedure DelLine;
  84. procedure TextColor(Color: Byte);
  85. procedure TextBackground(Color: Byte);
  86. procedure LowVideo;
  87. procedure HighVideo;
  88. procedure NormVideo;
  89. procedure Delay(MS: Word);
  90. procedure Sound(Hz: Word);
  91. procedure NoSound;
  92.  
  93.