home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FAKECRT.ZIP / FAKECRT.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1991-07-20  |  581 b   |  33 lines
  1. Unit FakeCrt;
  2.  
  3. Interface
  4.  
  5. Function ReadKey : Char;
  6. Function Keypressed : Boolean;
  7. Procedure Delay (ms : Word);
  8. Procedure Sound (Hz : Word);
  9. Procedure NoSound;
  10. Function RKey : Word;
  11. Function RKeyPressed : Boolean;
  12. Function SReadKey : Char;
  13.  
  14. Implementation
  15.  
  16. Uses
  17.     Dos;
  18.  
  19. Const
  20.     ExtraKey : Char = #0;
  21.  
  22. {$L FAKECRT.OBJ}
  23. Function ReadKey; external;
  24. Function KeyPressed; external;
  25. Procedure Delay; external;
  26. Procedure Sound; external;
  27. Procedure NoSound; external;
  28. Function RKey; external;
  29. Function RKeyPressed; external;
  30. Function SReadKey; external;
  31.  
  32. End.
  33.