Unit FakeCrt;

Interface

Function ReadKey : Char;
Function Keypressed : Boolean;
Procedure Delay (ms : Word);
Procedure Sound (Hz : Word);
Procedure NoSound;
Function RKey : Word;
Function RKeyPressed : Boolean;
Function SReadKey : Char;

Implementation

Uses
	Dos;

Const
	ExtraKey : Char = #0;

{$L FAKECRT.OBJ}
Function ReadKey; external;
Function KeyPressed; external;
Procedure Delay; external;
Procedure Sound; external;
Procedure NoSound; external;
Function RKey; external;
Function RKeyPressed; external;
Function SReadKey; external;

End.