home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FA41.ZIP / SUBS.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1988-03-17  |  810 b   |  56 lines
  1. unit subs;
  2.  
  3.                                 interface
  4.  
  5. uses dos;
  6.  
  7. function keypressed : boolean;
  8.  
  9. function readkey : char;
  10.  
  11. procedure purgeKbd;
  12.  
  13. procedure anykey;
  14.  
  15.                               implementation
  16.  
  17. var
  18.    regs : registers;
  19.  
  20. function readkey;
  21.  
  22.    begin
  23.       with regs do
  24.          begin
  25.             ah := 0;
  26.             intr($16,regs);
  27.             readkey := char(al);
  28.          end;
  29.    end;
  30.  
  31. function keypressed;
  32.  
  33.    begin
  34.       with regs do
  35.          begin
  36.             ah := 1;
  37.             intr($16,regs);
  38.             keypressed := (fzero and flags) = 0;
  39.          end;
  40.    end;
  41.  
  42. procedure anykey;
  43.  
  44.    begin
  45.       regs.ah := 0;
  46.       intr($16,regs);
  47.    end;
  48.  
  49. procedure purgeKbd;
  50.  
  51.    begin
  52.       while keypressed do
  53.          anykey;
  54.    end;
  55.  
  56. end.