PROGRAM   SetTime_ ;
USES   DOS ;

VAR
   G_Hour   : Word ;                   { 0..23 }
   G_Minute : Word ;                   { 0..59 }
   G_Second : Word ;                   { 0..59 }
   G_Sec100 : Word ;                   { 0..99 }
BEGIN
   WriteLn ;

   {----- Show Time first }
   GetTime ( G_Hour , G_Minute , G_Second , G_Sec100 );
   WriteLn ( 'Time : ' );
   WriteLn ( 'Hour   = ' , G_Hour   );
   WriteLn ( 'Minute = ' , G_Minute );
   WriteLn ( 'Second = ' , G_Second );
   WriteLn ( 'Sec100 = ' , G_Sec100 );

   {----- Ask NEW Time }
   WriteLn ;
   WriteLn ( 'Press ([Ctrl-C] or [Ctrl-Pause] key to quit without changing the Time.' );
   WriteLn ( 'Enter new Time :' );

   Write ( 'Hour   = ' );
   ReadLn ( G_Hour   );

   Write ( 'Minute = ' );
   ReadLn ( G_Minute );

   Write ( 'Second = ' );
   ReadLn ( G_Second );

   Write ( 'Sec100 = ' );
   ReadLn ( G_Sec100 );

   SetTime ( G_Hour , G_Minute , G_Second , G_Sec100 );

   WriteLn ;

   {----- Show Time again }
   GetTime ( G_Hour , G_Minute , G_Second , G_Sec100 );
   WriteLn ( 'New Time : ' );
   WriteLn ( 'Hour   = ' , G_Hour   );
   WriteLn ( 'Minute = ' , G_Minute );
   WriteLn ( 'Second = ' , G_Second );
   WriteLn ( 'Sec100 = ' , G_Sec100 );
END.
