{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}


uses dos;             {unit‚ utilis‚e}

var f:file;           {F est d‚clar‚e en FILE : "fichier"}
    heure:longint;    {HEURE est un nombre de type LONGINT}
    dt:datetime;      {DT est du type DATETIME}

function format(w:word):string; {fonction, renvoit en valeur intrinsŠque}
var s:string;                   {variable chaŚne locale}
begin                           {d‚but de la fonction}
str(w:0,s);                     {convertie une chaŚne STRING nombre en WORD}
if length(s)=1 then s:='0'+s;
{si la chaŚne possŠde un seul caractŠre, alors on lui rajoute un z‚ro devant}
format:=s;                      {la fonction FORMAT prend la valeur de S}
end;                            {fin de la fonction}


BEGIN                 {d‚but du programme}
assign(f,'c:\autoexec.bat'); {la variable F est assing‚e au fichier indiqu‚}
getftime(f,heure);
{lecture de l'heure de derniŠre modification du fichier, l'information
correspondante est consign‚e dans la variable HEURE}
writeln(heure);       {‚criture … l'‚cran de la valeur de cette variable}
unpacktime(heure,dt); {convertion de l'information vers DT}
writeln(format(dt.hour),':',format(dt.min),':',format(dt.sec));
{affichage correctement format‚ de l'heure, des minutes et des secondes}
END.                  {fin du programme}