home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / cursorou.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  458 b   |  27 lines
  1. unit CursorOU;
  2.  
  3. interface
  4. uses DOS,FastWr;
  5. procedure CursorOn(TurnOn: boolean);
  6.  
  7. implementation
  8.  
  9. procedure CursorOn;
  10. var       reg:      registers;
  11. begin
  12. if TurnOn then
  13.    if mem[0:$449] = 7 then
  14.       reg.cx := $0c0d
  15.      else
  16.       reg.cx := $0607
  17.   else
  18.    if CurrentDisplay = EGA then
  19.       reg.cx := $0c0d
  20.      else
  21.       reg.cx := $2000;           (* this number = $0c0d for ega *)
  22. reg.ax := $0100;
  23. intr($10,reg);
  24. end;
  25.  
  26. end.
  27.