home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPEGA.ZIP / DPCONTR.P < prev    next >
Encoding:
Text File  |  1986-01-15  |  701 b   |  15 lines
  1. {                                                                              }
  2. {                                                                              }
  3. {                                                                              }
  4.  
  5. procedure DP_Contr(Black,White: Integer);
  6. begin
  7.   Black := Black and $3F;               { Black must be in 0 - 63 range }
  8.   White := White and $3F;               { White must be in 0 - 63 range }
  9.   if Black < White                      { Black must be less than White }
  10.     begin
  11.       port[DD_PORT+ 9] := Black;        { Set the black contrast        }
  12.       port[DD_PORT+10] := White;        { Set the white contrast        }
  13.     end;
  14. end;
  15.