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