home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / df_may.inc < prev    next >
Text File  |  1987-06-10  |  1KB  |  62 lines
  1. (*---------------------------------------------------------------------------*)
  2. (*                           DF-MY.INC                                       *)
  3. (*            Dieses Programmmodul enthaelt Routinen, die fuer               *)
  4. (*           verschiedene Dialekte ggf. angepasst werden muessen.            *)
  5.  
  6. PROCEDURE ClearKeyBuf;
  7.  
  8. BEGIN
  9.   WHILE KeyPressed DO
  10.     IF Eoln(Kbd) THEN
  11.       ReadLn(Kbd)
  12.     ELSE
  13.       Read(Kbd)
  14. END;
  15.  
  16.  
  17.  
  18. FUNCTION GetKey : CHAR;
  19.   (* Ein Zeichen direkt von der Tastatur lesen OHNE Echo auf dem Bildschirm. *)
  20.  
  21. VAR Zeichen : CHAR;
  22.  
  23. BEGIN
  24.   Read(Kbd,Zeichen);
  25.   GetKey := Zeichen
  26. END;
  27.  
  28.  
  29.  
  30. FUNCTION Hi(Wert : INTEGER) : INTEGER;
  31.   (* Liefert das HighByte eines Wertes *)
  32.  
  33. BEGIN
  34.   Hi := Wert DIV 256
  35. END;
  36.  
  37.  
  38.  
  39. FUNCTION Lo(Wert : INTEGER) : INTEGER;
  40.   (* Liefert das LowByte eines Wertes *)
  41.  
  42. BEGIN
  43.   Lo := Wert MOD 256
  44. END;
  45.  
  46. (*-- Routinen um gewisse Zeit zu warten --*)
  47. PROCEDURE Turbo_Delay(milli_sec : INTEGER);
  48.   (* Alte Turbo-Prozedur weiterverwenden. *)
  49.  
  50. BEGIN
  51.   Delay(milli_sec)
  52. END;
  53.  
  54. PROCEDURE Delay(milli_sec  : INTEGER);
  55.   (* Diese Routine wird vonm Programm verwendet. *)
  56.  
  57. BEGIN
  58.   Turbo_Delay(milli_sec)
  59. END;
  60.  
  61. (*                           Ende DF-MY.INC                                  *)
  62. (*---------------------------------------------------------------------------*)