PROGRAM   GetTime_ ;
USES   DOS ;

VAR
   G_Hour   : Word ;                   { 0..23 }
   G_Minute : Word ;                   { 0..59 }
   G_Second : Word ;                   { 0..59 }
   G_Sec100 : Word ;                   { 0..99 }
BEGIN
   GetTime ( G_Hour , G_Minute , G_Second , G_Sec100 );

   WriteLn ;
   WriteLn ( 'Time : ' );
   WriteLn ( 'Hour   = ' , G_Hour   );
   WriteLn ( 'Minute = ' , G_Minute );
   WriteLn ( 'Second = ' , G_Second );
   WriteLn ( 'Sec100 = ' , G_Sec100 );
END.
