Pascal/Turbo Pascal - usar mouse, free pascal

{A qui tienes un ejemplo para free pascal 2.6 funcionando bien free pascal dispone de la unidad

mouse}

program pruemous;

uses

    crt, mouse;

 var

   x, y : word;

   pres : byte;

   estado : tmouseevent;

  begin

     clrscr;

     initmouse;

     pres := detectmouse;

     if pres = 0 then

     writeln(';;;;; Mouse No Presente :::::')

   else

      begin

         x := getmousex;

         y := getmousey;

         gotoxy(10,2);write('Posicion x : ',x);

         gotoxy(30,2);write('Posicion y : ',y);

         gotoxy(2,47);write('**** Salir Pulse Boton Gerecho *****');

       repeat

            if (x <> getmousex) or (y <> getmousey) then

            begin

               gotoxy(10,2);clreol;

               x := getmousex;

               y := getmousey;

               gotoxy(10,2);write('Posicion x : ',x);

               gotoxy(30,2);write('Posicion y : ',y);

            end;

            getmouseevent(estado);

       until (estado.buttons = mouserightbutton) or (keypressed);

      end;

        donemouse;

  end.