PROGRAM Prova_OraIN;
USES Crt, giobe;
VAR tasto:char;
    s:string;
    Ora,Minuti,Secondi,Centesimi:Word;
BEGIN
  Viacur;
                    {************************************}
  Riempi1(7,1,''); {* Clearscreen  con il carattere ''*}
                    {* con colore Blu(1) su  Bianco (7) *}
                    {************************************}
  Cornice1 ( 6,27,25,5,15,4,1,1);
  Riempi3 (25,25,15,1,' ');
  textbackground(1);textcolor(15); gotoxy (14,25);
  write('Prova della Funzione OraIN ');
  write('- Premi un tasto per terminare');

  textbackground(4);
  REPEAT
    gotoxy(35,7);
    OraIN (Ora,Minuti,Secondi,Centesimi);
    str(Ora,s); IF length(s)=1 THEN s:='0'+s; 
    write(s,':');
    str(Minuti,s); IF length(s)=1 THEN s:='0'+s; 
    write(s );
    str(Secondi,s); IF length(s)=1 THEN s:='0'+s; 
    write(':',s);

    gotoxy(33,9);
    OraIN (Ora,Minuti,Secondi,Centesimi);
    str(Ora,s); IF length(s)=1 THEN s:='0'+s; 
    write(s,':');
    str(Minuti,s); IF length(s)=1 THEN s:='0'+s; 
    write(s );
    str(Secondi,s); IF length(s)=1 THEN s:='0'+s; 
    write(':',s);
    str(Centesimi,s); IF length(s)=1 THEN s:='0'+s;
    write('.',s);
  UNTIL keypressed;
  tasto:=readkey; {**************************************}
  GotoXY (1,25);  {* Aspetta un tasto e poi torna a DOS *}
  RipCur;         {**************************************}
END.