home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBOWHL.ZIP / MONITOR.LIB < prev    next >
Encoding:
Text File  |  1985-06-28  |  700 b   |  22 lines
  1. {@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
  2. The purchaser of these procedures and functions may include them in COMPILED
  3. programs freely, but may not sell or give away the source text.}
  4.  
  5.   var
  6.     ScreenSeg : integer;
  7.     color     : boolean;
  8.   {oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo}
  9.   procedure CheckColor;
  10.   begin
  11.     if (Mem[0000:1040] and 48) <> 48 then
  12.       begin
  13.         ScreenSeg := $B800;
  14.         color     := true;
  15.       end
  16.     else
  17.       begin
  18.         ScreenSeg := $B000;
  19.         color     := false;
  20.       end;
  21.     end;
  22.   {oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo}