{ MYS.PAS                   Copyright (c) TrSek alias Zdeno Sekerak }
{ Ukazkovy program pre pracu s mysou.                               }
{ Zobrazi suradnice mysi a stlacene tlacidiel.                      }
{                                                                   }
{ Datum:08.06.1996                             http://www.trsek.com }

program pohyb_mysou;
uses crt,dos;
var xm,ym,but:integer;

function gminit:boolean;
var reg:registers;
begin
 reg.ax:=$0000;
 intr($33,reg);
 if reg.ax=$0000 then gminit:=false
                 else gminit:=true;
 but:=reg.bx;
end;

procedure zobraz_mys;
var reg:registers;
begin
 reg.ax:=$0001;
 intr($33,reg);
end;

procedure test_mys(var x,y,but:integer);
var reg:registers;
begin
 reg.ax:=$0003;
 intr($33,reg);
 x:=reg.cx;
 y:=reg.dx;
 but:=reg.bx;
end;


Begin
 clrscr;
 if not(gminit) then writeln('Nemas nainstalovany ovladac na mys.');
 zobraz_mys;
 repeat
  test_mys(xm,ym,but);
  gotoxy(1,1);
  write('X=',xm:2,'  Y=',ym:2);
  gotoxy(1,2);
  write('But=',but:2);
 until keypressed;
end.

{
Popis:
------

0 -inicializuje mys a zisti kolko ma tlacidiel
1 -zobrazi
2 -zrusi zobrazenie
3 -cita poziciu a stav tlacidiel
4 -nastavi poziciu
5 -vracia suradnicu stavu tlacidla
6 -vracia suradnicu kde si tlacidlo pustil
7 -vymedzi interval suradnic poohybu
8 -ako 7 ale vertikalne
9 -graficky kurzor
10 -textovy kurzor
11 -cita nastavenie kroku citaca mysy
12 -definuje uzivatelsku rutinu pre mys
13,14 -zap/vyp emulace svetelneho pera
15 -nastavenie kroku mysy
}