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


 {Cornice2 (rig,col,lar,alt,txt,sfo,ombP,ombS,tipo);}
  Cornice2 ( 10, 16, 49, 9 , 10, 4 ,  7 ,  0 ,  2 );

 {Cornice1 (rig,col,lar,alt,txt,sfo,tipo,modo);}
  Cornice1 ( 11,18 ,45 , 7 , 10, 4 ,  2 ,  1 );

  TextColor (15);     {**********************************}
  TextBackground (4); {* Stampa la  Data corrente sulla *}
  GotoXY (27,14);     {* riga14  colonna34,  in  Bianco *}
  write ('Oggi è ');  {* Brillante (15) su Rosso (4) in *}
  Data(14,34,15,4,0);{* modo0, cioè:                   *}
                      {*    "nomeGiorno gg/mm/aa"       *}
                      {**********************************}
  GotoXY (27,25); 
  write ('Premi un tasto per continuare');

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