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

{Cornice3(rig,col,lar,alt,txt,sfo,ombP,ombS,tipo,numPAG)}
  Cornice3( 5, 20, 40, 15, 15, 1 ,  7 ,  0 ,  1 ,  3  );

                  {**************************************}
  tasto:=readkey; {* Aspetta la pressione di un tasto   *}
                  {**************************************}

 {RECUPcorn (rig,col,lar,alt,numPAG);}
  RECUPcorn ( 5 , 20, 40, 15,   3  ); 

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