(* ----------------------------------------------------------------------- *)
(* Pascal Unit : PortHelp                                                  *)
(*          - In dieser Unit werden alle weiteren hilfreichen Funktionen   *)
(*            des Portfolio eingebaut.                                     *)
(*          - Die Funktionen benutzen den Interrupt $61.                   *)
(* letzte Žnderung : 10. April 1996                                        *)
(* ----------------------------------------------------------------------- *)
Unit PortHelp;

Interface

     (* Es wird der aktuelle Modus des Cursors zurckgeliefert. M”gliche *)
     (* Werte sind : 0 - Cursor ausschalten                              *)
     (*              1 - Cursor als Unterstrich                          *)
     (*              2 - Cursor als Block                                *)
     Function  GetCursorMode : Byte;

     (* Setzt den Cursormodus. Werte fr mode wie in GetCursorMode *)
     Function  SetCursorMode ( mode : Byte ) : Byte;

     (* Aktiviert die System-Status-Leiste (Urzeit/Datum/Keyboardstate) *)
     (* Zeile wird ab xPos und yPos dargestellet                        *)
     Procedure EnableSystemStatusLine ( xPos, yPos : Byte );

     (* L”scht dei System-Status-Leiste wieder vom Bildschirm *)
     Procedure DisableSystemStatusLine;

Implementation

Uses Dos, PortCRT;

Function GetCursorMode : Byte;
    Var reg : Registers;
Begin
     reg.ah := $0F;
     reg.al := 0;
     Intr ( $61, reg );
     GetCursorMode := reg.bl;
End;

Function SetCursorMode ( mode : Byte ) : Byte;
    Var reg : Registers;
Begin
     reg.ah := $0F;
     reg.al := 1;
     reg.bl := mode;
     Intr ( $61, reg );
     SetCursorMode := reg.bl;
End;

Procedure EnableSystemStatusLine ( xPos, yPos : Byte );
    Var reg : Registers;
Begin
     reg.ah := $2E;
     reg.al := 1;
     reg.dl := xPos;
     reg.dh := yPos;
     Intr ( $61, reg );
End;

Procedure DisableSystemStatusLine;
    Var reg : Registers;
Begin
     reg.ah := $2E;
     reg.al := 0;
     Intr ( $61, reg );
End;

Begin
End.