home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 167 / pascal / rezcolor.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-08-19  |  685 b   |  24 lines
  1. FUNCTION Logical_Screen : Long_Integer;
  2.   XBIOS($3);
  3.  
  4. FUNCTION Screen_Rez : integer;
  5.   XBIOS($4);
  6.  
  7. PROCEDURE Set_Screen( Log_Scn, Phy_Scn : Long_Integer ; Rez : Integer );
  8.    XBIOS($5);
  9.  
  10. FUNCTION Set_Col( AI,BI : Integer ): Integer ; {read and set color reg.}
  11.    XBIOS( 7 );
  12.  
  13. PROCEDURE Save_Kolors; { saves color values into globle array Kolor_Reg }
  14. VAR  I  :Integer;
  15. BEGIN
  16.    FOR I := 0 TO 15 DO  Kolor_Reg[ I ] := Set_Col( I, -1 );
  17. END; { of Save_Kolors }
  18.  
  19. PROCEDURE Restore_Kolors; { restores color values from globle array Kolor_Reg }
  20. VAR  I, Junk  :Integer;
  21. BEGIN
  22.    FOR I := 0 TO 15 DO  Junk := Set_Col( I, ( Kolor_Reg[ I ] ) );
  23. END; { of Restore_Kolors }
  24.