FUNCTION Logical_Screen : Long_Integer;
  XBIOS($3);

FUNCTION Screen_Rez : integer;
  XBIOS($4);

PROCEDURE Set_Screen( Log_Scn, Phy_Scn : Long_Integer ; Rez : Integer );
   XBIOS($5);

FUNCTION Set_Col( AI,BI : Integer ): Integer ; {read and set color reg.}
   XBIOS( 7 );

PROCEDURE Save_Kolors; { saves color values into globle array Kolor_Reg }
VAR  I  :Integer;
BEGIN
   FOR I := 0 TO 15 DO  Kolor_Reg[ I ] := Set_Col( I, -1 );
END; { of Save_Kolors }

PROCEDURE Restore_Kolors; { restores color values from globle array Kolor_Reg }
VAR  I, Junk  :Integer;
BEGIN
   FOR I := 0 TO 15 DO  Junk := Set_Col( I, ( Kolor_Reg[ I ] ) );
END; { of Restore_Kolors }