home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / GFXFX2.ZIP / UNITINT.ZIP / U_KB.INT < prev    next >
Text File  |  1995-02-14  |  586b  |  32 lines

  1.  
  2. (*
  3. ** Keyboard unit
  4. ** By Bas van Gaalen
  5. *)
  6.  
  7. unit u_kb;
  8.  
  9. interface
  10.  
  11. type
  12.   scrsavetype=procedure;
  13.   getkeytype=record
  14.     clockon:boolean;
  15.     scrsavetime:word;
  16.     colattr,xpos,ypos:byte;
  17.   end;
  18.  
  19. var
  20.   scrsaveproc:scrsavetype;
  21.   keybehave:getkeytype;
  22.  
  23. function keypressed:boolean;
  24. function readkey:char;
  25. procedure clearkeybuf;
  26. function getinskey:boolean;
  27. procedure setinskey;
  28. procedure clearinskey;
  29. procedure waitkey(stoptime:word); { wait for a key or atleast stoptime seconds }
  30. function getekey:word; { get extended key, see misc-unit for keycodes }
  31.  
  32.