Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!ames!haven!purdue!decwrl!sun!pitstop!sundc!seismo!uunet!mcvax!hafro!krafla!binni
From: binni@rhi.hi.is (Brynjolfur Thorsson)
Newsgroups: comp.lang.pascal
Subject: Mouse problems
Keywords: Hercules graphics
Message-ID: <744@krafla.rhi.hi.is>
Date: 7 Feb 89 17:45:48 GMT
Organization: University of Iceland
Lines: 46

I am currently developing a measurement program for use in one of our
laboratorys using Turbo Pascal 5.0.  My computer is equipped with a
Hercules card and I use entirely graphics mode.  Now I am
trying to incorporate a mouse in the program.  Below is a listing of my
sample program.

Program MouseTst;
Uses Dos,Graph;

Var Regs:Registers;

Function GraphInit:Boolean
Var GD,GM:Integer;
Begin
   GD := Detect;
   InitGraph(GD,GM,'c:\tp\drivers4);
   GraphInit:=GraphResult=GrOk;
End;

Begin
   If Not GraphInit Then Halt;
   With Regs Do Begin
      Ax:=0;
      Intr($33,Regs);
      If Ax <> $FFFF Then Halt;
      Ax:=1;
      Intr($33,Regs);
      ReadLn;
      Ax:=2;
      Intr($33,Regs);
   End;
   RestoreCrtMode;
End.

This Program works fine in Text Mode (If I skip GraphInit), but if I try it
like it is above I get strange results.  It is as though the mousedriver
thinks that the screen is in text mode.  I sholud also mention that I have
tried it wiht different combinations of hardware, different computers,
mouse drivers and different mouses.  The above program works fine on a
computer with an EGA monitor and driver.
If someone understands my problem and knows what I am doing I would
appreciate a mailed answer.

                           Sincerely 
                            
                           Brynjolfur Thorsson.