PROGRAM Prova_AspettaKeyClick;
USES Crt, giobe;
VAR  tasto:char; puls:word;
BEGIN
  VIAcur;
  VediMouse;
  Riempi1 (15,1,'');
  AspettaKeyClick (tasto,puls);
  textbackground(4);textcolor(15);
  IF puls=0 THEN gotoxy (25,12) ELSE gotoxy (15,12);
  write(' E'' stato premuto il ');
  IF puls=0 THEN
   begin
    if tasto=char(0) THEN readkey; {controllo tasti 
    write ('tasto "');                       funzionali}
    IF tasto=char(13) THEN write ('Enter')
    ELSE write (tasto);
    write ('" ')
   end
  ELSE
   begin
    IF (puls=3) OR (puls=5) OR (puls=6) OR (puls=7) THEN
     begin
      gotoxy (33,12); write ('pi— di un ');
     end;
    write ('pulsante ');
    IF puls=1 THEN write ('sinistro ');
    IF puls=2 THEN write (' destro ');
    IF puls=4 THEN write ('centrale ');
    write ('del mouse ');
   end;
  AspettaKeyClick (tasto,puls);
END.