PROGRAM Prova_Read;
USES Crt, giobe;
VAR tasto:char;
    n:integer;
BEGIN               {************************************}
  Viacur;           {* Clearscreen  con il carattere ''*}
  Riempi1(7,1, '); {* con colore Blu(1) su  Bianco (7) *}
                    {************************************}

  tasto:=readkey; {**************************************}
  GotoXY (1,25);  {* Aspetta un tasto e poi torna a DOS *}
  RipCur;         {**************************************}
END.