Question

Napisz program w TurboPascalu który wykrywa wciśnięcie dowolnego klawisza myszy podłączonej na USB i z każdowazowym wciśnięciem go wyświetla tekst "Hello World".

Answer 1

program mycha;

uses dos,crt;

var
   x,y : word;
   r : registers;

begin
  clrscr;
  r.ax := 1;
  Intr($33,r);
  repeat
    repeat
      asm
        mov ax, 3;
        int 33h;
        mov x, cx;
        mov y, dx;
      end;
    until keypressed;
    clrscr;
    textcolor(4);
    gotoxy(20,10);
    write(x,'   ',y,' Hello World'); {Pozycja myszki i hello world :)}
    textcolor(7);
  until readkey = #27;

end.

 

Licze na najleszy ze względu na szybkość :)