home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 01 / praxis / utility.inc < prev   
Encoding:
Text File  |  1988-10-20  |  751 b   |  17 lines
  1. (* ------------------------------------------------------------------------- *)
  2. (*         UTILITY.INC  -  Utility-Routinen für BROWSE und MEMVIEW           *)
  3. (* ------------------------------------------------------------------------- *)
  4.  
  5. FUNCTION Aborted : BOOLEAN;
  6.                   (* Programmabbruch durch Benutzer mit ^C, ^Break oder Esc? *)
  7. BEGIN
  8.   Aborted := (Key = 0) OR (Lo(Key) IN [3, 27])
  9. END;
  10.  
  11. FUNCTION GetKey : WORD;
  12.                    (* wartet auf Tastendruck und liefert Scan-Code der Taste *)
  13. INLINE($31/$C0/$CD/$16);
  14.  
  15. PROCEDURE CursorOff;                          (* macht den Cursor unsichtbar *)
  16. INLINE($B4/$01/$B9/$00/$F0/$CD/$10);
  17. (* ------------------------------------------------------------------------- *)