PROGRAM Prova_Ora;
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 l'Ora corrente sulla*}
  GotoXY (27,14);         {* riga14  colonna43 in  Giallo*}
  write ('Sono le ore: ');{* Brillante (14) su Rosso (4)*}
  REPEAT                  {* in modo0, cioè             *}
    Ora (14,43,14,4,0);   {*    "hh:mm:ss"             *}
  UNTIL keypressed;       {******************************}

  RIPcur;
  Riempi3 (25,25,15,0,' ');
   textbackground(0);
  textcolor(15); gotoxy(1,24)
END.