home *** CD-ROM | disk | FTP | other *** search
/ Computer Club Elmshorn Atari PD / CCE_PD.iso / pc / 0300 / CCE_0367.ZIP / CCE_0367.PD / INTRFACE / CRT.INT next >
Text File  |  1992-09-25  |  2KB  |  107 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.  
  66.     procedure    ClrEol;
  67.  
  68.     procedure    ClrScr;
  69.  
  70.     procedure    Delay( ms : Word );
  71.  
  72.     procedure    DelLine;
  73.  
  74.     procedure    GotoXY( X, Y: Byte );
  75.  
  76.     procedure    HighVideo;
  77.  
  78.     procedure    InsLine;
  79.  
  80.     function    KeyPressed : Boolean;
  81.  
  82.     procedure    LowVideo;
  83.  
  84.     procedure    NormVideo;
  85.  
  86.     procedure    NoSound;
  87.  
  88.     function    ReadKey : Char;
  89.  
  90.     procedure    Sound( Hz : Word );
  91.  
  92.     procedure    TextBackground( Color : Byte );
  93.  
  94.     procedure    TextColor( Color : Byte );
  95.  
  96.     procedure    TextMode( Mode : Word );
  97.  
  98.     function    WhereX : Byte;
  99.  
  100.     function    WhereY : Byte;
  101.  
  102.     procedure    Window( x1, y1, x2, y2 : Byte );
  103.  
  104.  
  105. (* =================================================================== *)
  106.  
  107.