PROGRAM Prova_PulMou;
USES Crt, giobe;
VAR tasto:char;
    col:integer;
BEGIN
  Viacur;
                   {************************************}
  Riempi1(7,1,'');{* Clearscreen  con il carattere ''*}
                   {* con colore Blu(1) su  Bianco (7) *}
                   {************************************}
  Cornice1 ( 6,27,25,5,15,1,1,1);
  Riempi3 (25,25,15,1,' ');
  textbackground(1);textcolor(15); gotoxy (14,25);
  write('Prova Pulsanti del Mouse ');
  write('- Premi un tasto per terminare');
  IF Mouse THEN
  begin

    REPEAT
     IF (pulMou=1)OR(pulMou=3)OR(pulMou=5)OR(pulMou=7)
        THEN col:=0;
     IF (pulMou=4)OR(pulMou=5)OR(pulMou=6)OR(pulMou=7)
        THEN col:=6;
     IF (pulMou=2)OR(pulMou=3)OR(pulMou=6)OR(pulMou=7)
        THEN col:=12;
     IF pulMou<>0 THEN
     begin
       gotoxy (32+col,8); write('');
       REPEAT UNTIL pulMou=0;
       gotoxy (32+col,8); write('   ');
     end;
    UNTIL keypressed;
  end
  ELSE
  begin
    gotoxy (27,13); write('Il MOUSE NON è presente !!!');
  end;
  tasto:=readkey;{**************************************}
  GotoXY (1,25); {* Aspetta un tasto e poi torna a DOS *}
  RipCur;        {**************************************}
END.