home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / extra18 / toolbox / newkey_p.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-21  |  1.1 KB  |  33 lines
  1. (* ------------------------------------------------- *)
  2. (*                 NEWKEY-P.PAS                      *)
  3. (*      (c) 1990, 1992 Michael Lauer & DMV-Verlag    *)
  4. (* ------------------------------------------------- *)
  5. PROGRAM New_KEY_puffer;
  6.  
  7.   PROCEDURE Change_TastPuffer;
  8.   CONST
  9.     Tast_puffer_Start : BYTE = $A0;
  10.                                  { Originalwert : $1E }
  11.     Tast_puffer_Ende  : BYTE = $FE;
  12.                                  { Originalwert : $3E }
  13.   VAR
  14.     Zeiger1 : BYTE ABSOLUTE $0040:$001A;
  15.     Zeiger2 : BYTE ABSOLUTE $0040:$001C;
  16.     Zeiger3 : BYTE ABSOLUTE $0040:$0080;
  17.     Zeiger4 : BYTE ABSOLUTE $0040:$0082;
  18.   BEGIN
  19.     Zeiger1 := Tast_puffer_Start;
  20.     Zeiger2 := Tast_puffer_Start;
  21.     Zeiger3 := Tast_puffer_Start;
  22.     Zeiger4 := Tast_puffer_Ende;
  23.   END {Change_TastPuffer};
  24.  
  25. BEGIN
  26.   Change_TastPuffer;
  27.   WriteLn('Der Tastaturpuffer ist jetzt 47 Zeichen ',
  28.           'groß');
  29.   WriteLn('Er beginnt ab Speicherstelle $0000:$04A0');
  30. END {New_KEY_puffer}.
  31. (* ------------------------------------------------- *)
  32. (*             Ende von NEWKEY-P.PAS                 *)
  33.