home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 03 / grdlagen / crtvar.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-12-18  |  932 b   |  25 lines
  1. (* -----------------------------------------------------  *)
  2. (*                      CRTVAR.PAS                        *)
  3. (* ------------------------------------------------------ *)
  4. UNIT CRTVar;
  5. INTERFACE USES ExtVSM2;
  6.  
  7. TYPE   VSMCrtPtr  = ExtVSM2.VSMCrtPtr;
  8.        VSMCrt     = ExtVSM2.VSMCrt;
  9.  
  10. CONST On          = TRUE;   Off          = FALSE;
  11.       Black       =   0;    DarkGray     =   8;
  12.       Blue        =   1;    LightBlue    =   9;
  13.       Green       =   2;    LightGreen   =  10;
  14.       Cyan        =   3;    LightCyan    =  11;
  15.       Red         =   4;    LightRed     =  12;
  16.       Magenta     =   5;    LightMagenta =  13;
  17.       Brown       =   6;    Yellow       =  14;
  18.       LightGray   =   7;    White        =  15;
  19.       Blink       = 128;
  20. VAR   Crt : VSMCrtPtr;
  21.  
  22. END.
  23. (* ------------------------------------------------------ *)
  24. (*                   Ende von CRTVAR.PAS                  *)
  25.