PROGRAM Prova_DestroMou;
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 Destro del Mouse ');
  write('- Premi un tasto per terminare');
  IF Mouse THEN
  begin

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