home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 04 / tricks / cheapcrt.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-01-08  |  1.3 KB  |  45 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     CHEAPCRT.PAS                       *)
  3. (*            "Clone" der Original-Crt-Unit               *)
  4. (*       (c) 1991 Hanno-Ekkehard Müller & TOOLBOX         *)
  5. (* ------------------------------------------------------ *)
  6. UNIT CheapCrt;
  7.  
  8. INTERFACE
  9.  
  10. CONST
  11.   BW40 = 0;
  12.   Co40 = 1;
  13.   BW80 = 2;
  14.   Co80 = 3;
  15.   Mono = 7;
  16.   C40  = Co40;
  17.   C80  = Co80;
  18.  
  19.   PROCEDURE TextMode(Mode : BYTE);
  20.   PROCEDURE GotoXY(X, Y : BYTE);
  21.   FUNCTION  WhereX : BYTE;
  22.   FUNCTION  WhereY : BYTE;
  23.   PROCEDURE ClrScr;
  24.   FUNCTION  KeyPressed : BOOLEAN;
  25.   FUNCTION  ReadKey : CHAR;
  26.   PROCEDURE Sound(Hz : WORD);
  27.   PROCEDURE NoSound;
  28.  
  29. IMPLEMENTATION
  30.  
  31.   PROCEDURE TextMode(Mode : BYTE);  EXTERNAL;
  32.   PROCEDURE GotoXY(X, Y : BYTE);    EXTERNAL;
  33.   FUNCTION  WhereX : BYTE;          EXTERNAL;
  34.   FUNCTION  WhereY : BYTE;          EXTERNAL;
  35.   PROCEDURE ClrScr;                 EXTERNAL;
  36.   FUNCTION  KeyPressed : BOOLEAN;   EXTERNAL;
  37.   FUNCTION  ReadKey : CHAR;         EXTERNAL;
  38.   PROCEDURE Sound(Hz : WORD);       EXTERNAL;
  39.   PROCEDURE NoSound;                EXTERNAL;
  40.  
  41. {$L CHEAPCRT}
  42.  
  43. END.
  44. (* ------------------------------------------------------ *)
  45. (*               Ende von CHEAPCRT.PAS                    *)