home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_07 / PURE_P_2.LZH / PURE_P_2.MSA / INTRFACE / CRT.INT next >
Text File  |  1992-05-21  |  2KB  |  127 lines
  1. unit    crt;
  2.  
  3. interface
  4.  
  5. uses    gem, tos;
  6.  
  7.  
  8. (* -------------------------------------------------------------------- *)
  9. (*        constants, types & variables                                    *)
  10. (* -------------------------------------------------------------------- *)
  11.  
  12. const
  13.  
  14.         BW40            = 0;
  15.         CO40            = 1;
  16.         BW80            = 2;
  17.         CO80            = 3;
  18.         Mono            = 7;
  19.         Font8x8            = 256;
  20.  
  21.         C40                = 1;
  22.         C80                = 3;
  23.  
  24.  
  25.         Black            = 0;
  26.         Blue            = 1;
  27.         Green            = 2;
  28.         Cyan            = 3;
  29.         Red                = 4;
  30.         Magenta            = 5;
  31.         Brown            = 6;
  32.         LightGray        = 7;
  33.  
  34.         DarkGray        = 8;
  35.         LightBlue        = 9;
  36.         LightGreen        = 10;
  37.         LightCyan        = 11;
  38.         LightRed        = 12;
  39.         LightMagenta    = 13;
  40.         Yellow            = 14;
  41.         White            = 15;
  42.  
  43.         Blink            = 128;
  44.  
  45.  
  46. var
  47.  
  48.         CheckBreak : Boolean;
  49.         CheckEof : Boolean;
  50.         CheckSnow : Boolean;
  51.  
  52.         DirectVideo : Boolean;
  53.         LastMode : Word;
  54.         TextAttr : Byte;
  55.  
  56.         WindMin, WindMax : Word;
  57.  
  58.  
  59. (* -------------------------------------------------------------------- *)
  60. (*        functions & procedures                                            *)
  61. (* -------------------------------------------------------------------- *)
  62.  
  63.  
  64.     procedure    AssignCrt( var f : Text );
  65.     external;
  66.  
  67.     procedure    ClrEol;
  68.     external;
  69.  
  70.     procedure    ClrScr;
  71.     external;
  72.  
  73.     procedure    Delay( ms : Word );
  74.     external;
  75.  
  76.     procedure    DelLine;
  77.     external;
  78.  
  79.     procedure    GotoXY( X, Y: Byte );
  80.     external;
  81.  
  82.     procedure    HighVideo;
  83.     external;
  84.  
  85.     procedure    InsLine;
  86.     external;
  87.  
  88.     function    KeyPressed : Boolean;
  89.     external;
  90.  
  91.     procedure    LowVideo;
  92.     external;
  93.  
  94.     procedure    NormVideo;
  95.     external;
  96.  
  97.     procedure    NoSound;
  98.     external;
  99.  
  100.     function    ReadKey : Char;
  101.     external;
  102.  
  103.     procedure    Sound( Hz : Word );
  104.     external;
  105.  
  106.     procedure    TextBackground( Color : Byte );
  107.     external;
  108.  
  109.     procedure    TextColor( Color : Byte );
  110.     external;
  111.  
  112.     procedure    TextMode( Mode : Word );
  113.     external;
  114.  
  115.     function    WhereX : Byte;
  116.     external;
  117.  
  118.     function    WhereY : Byte;
  119.     external;
  120.  
  121.     procedure    Window( x1, y1, x2, y2 : Byte );
  122.     external;
  123.  
  124.  
  125. (* =================================================================== *)
  126.  
  127.