home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TSC.ZIP / CRT.TDL next >
Encoding:
Text File  |  1987-11-05  |  1.6 KB  |  76 lines
  1. {*CRT.TDL of TSC - Copyright 1986-88 by Supratech Inc.}
  2. {** A special format file for providing CRT unit definitions to the
  3.     TSC program. It is needed if CRT unit will be used.
  4. **}
  5.  
  6. UNIT CRT;
  7. INTERFACE
  8. CONST
  9.   BW40          = 0;
  10.   CO40          = 1;
  11.   BW80          = 2;
  12.   CO80          = 3;
  13.   MONO          = 7;
  14.   FONT8X8       = 256;
  15.  
  16.   C40           = CO40;
  17.   C80           = CO80;
  18.  
  19.   BLACK         = 0;
  20.   BLUE          = 1;
  21.   GREEN         = 2;
  22.   CYAN          = 3;
  23.   RED           = 4;
  24.   MAGENTA       = 5;
  25.   BROWN         = 6;
  26.   LIGHTGRAY     = 7;
  27.  
  28.   DARKGRAY      = 8;
  29.   LIGHTBLUE     = 9;
  30.   LIGHTGREEN    = 10;
  31.   LIGHTCYAN     = 11;
  32.   LIGHTRED      = 12;
  33.   LIGHTMAGENTA  = 13;
  34.   YELLOW        = 14;
  35.   WHITE         = 15;
  36.  
  37.   BLINK         = 128;
  38. VAR
  39.   CHECKBREAK: BOOLEAN;
  40.   CHECKEOF: BOOLEAN;
  41.   DIRECTVIDEO: BOOLEAN;
  42.   CHECKSNOW: BOOLEAN;
  43.   LASTMODE: WORD;
  44.   TEXTATTR: BYTE;
  45.   WINDMIN: WORD;
  46.   WINDMAX: WORD;
  47.   SAVEINT1B: POINTER;
  48.  
  49. PROCEDURE ASSIGNCRT(VAR F: TEXT);
  50. FUNCTION KEYPRESSED: BOOLEAN;
  51. FUNCTION READKEY: CHAR;
  52. PROCEDURE TEXTMODE(MODE: WORD);
  53. PROCEDURE WINDOW(X1,Y1,X2,Y2: BYTE);
  54. PROCEDURE GOTOXY(X,Y: BYTE);
  55. FUNCTION WHEREX: BYTE;
  56. FUNCTION WHEREY: BYTE;
  57. PROCEDURE CLRSCR;
  58. PROCEDURE CLREOL;
  59. PROCEDURE INSLINE;
  60. PROCEDURE DELLINE;
  61. PROCEDURE TEXTCOLOR(COLOR: BYTE);
  62. PROCEDURE TEXTBACKGROUND(COLOR: BYTE);
  63. PROCEDURE LOWVIDEO;
  64. PROCEDURE HIGHVIDEO;
  65. PROCEDURE NORMVIDEO;
  66. PROCEDURE DELAY(MS: WORD);
  67. PROCEDURE SOUND(HZ: WORD);
  68. PROCEDURE NOSOUND;
  69.  
  70. IMPLEMENTATION
  71. END.
  72.  
  73. ENDLIB    {must be the last legal symbol read}
  74.  
  75. {*----- end of CRT.TDL -----}
  76.