home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / MOUSEBUG / MOUSEON.PAS < prev   
Pascal/Delphi Source File  |  1980-01-01  |  438b  |  27 lines
  1. {$M 1024, 0, 1024}
  2. uses
  3.   dos;
  4.  
  5. var
  6.   regs : registers;
  7.  
  8. procedure test_key(flags,cs,ip,ax,bx,cx,dx,si,di,ds,es,bp : word);
  9.  
  10. interrupt;
  11.  
  12. begin
  13.   if mem[$0040:$0017] and $0C = $0C then
  14.   begin
  15.     regs.ax := 1;
  16.     intr($33,regs);
  17.   end;
  18. end;
  19.  
  20. begin
  21.   setintvec($1C, @test_key);
  22.   writeln('Mouse on utility');
  23.   writeln('(c) 1991 R.F. Lens');
  24.   writeln('use [ctrl - alt] to turn mousecursor on');
  25.   keep(0);
  26. end.
  27.