PROGRAM Prova_DataIN;
USES Crt, giobe;
VAR tasto:char;
    s:string;
    Anno,Mese,Giorno,NomeGiorn:word;
    gsett:array [1..7] of string[9];
BEGIN
  gsett[1]:=' Domenica';
  gsett[2]:=' Luned�' ;
  gsett[3]:=' Marted�' ;
  gsett[4]:=' Mercoled�';
  gsett[5]:=' Gioved�' ;
  gsett[6]:=' Venerd�' ;
  gsett[7]:=' Sabato' ;  
  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 (13,25);
  write('Prova della Funzione DataIN ');
  write('- Premi un tasto per terminare'); 
  textbackground(4);
  REPEAT
    gotoxy(30,8);
    DataIN(Anno, Mese, Giorno, NomeGiorn);
    write(gsett[NomeGiorn],' ');
    str(Giorno,s); IF length(s)=1 THEN s:='0'+s; 
    write(s,'/');
    str(Mese,s); IF length(s)=1 THEN s:='0'+s; 
    write(s,'/');
    str(Anno,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.