PROGRAM Prova_CentroMou;
USES Crt, giobe;
VAR tasto:char;
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 (9,25);
  write('Prova Pulsante Centrale del Mouse ');
  write('- Premi un tasto per terminare');
  IF Mouse THEN
  begin

    REPEAT
      IF CentroMou THEN
      begin
        gotoxy (38,8); write('');
        REPEAT UNTIL pulMou=0;
        gotoxy (38,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.