PROGRAM Prova_Riempi2;
USES Crt, giobe;
VAR tasto: char;
BEGIN
  Viacur;
                  {**************************************}
                  {* Riempie la pagina video con il ca- *}
  Riempi2(7,1,1);{* rattere predeterminato n°1 in colo-*}
                  {* re Blu(1) su  Bianco (7)           *}
                  {**************************************}

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