(* ----------------------------------------------------------------------- *)
(* Pascal Unit : PortCRT                                                   *)
(*          - Die Unit soll die orginal CRT-Unit von Pascal ersetzen.      *)
(*          - Die Funktionen dieser Unit sind aufrufkompatiebel zur        *)
(*            normalen Unit.                                               *)
(* letzte �nderung : 10. April 1996                                        *)
(* ----------------------------------------------------------------------- *)
Unit PortCRT;

Interface

(* Konstanten f�r die Textmode Prozedur *)
Const portfolio = 1;
      statisch  = 0;
      dynamisch = 2;

     Procedure Textmode ( mode : Byte );

	 Procedure ClrScr;

	 Procedure GotoXY ( column, row : Byte );
	
	 Function  WhereX : Byte;
	
	 Function  WhereY : Byte;
	
	 Function  KeyPressed : Boolean;
	
	 Function  ReadKey : Char;

     Function  eXtendedReadKey : Char;