program Time_Demo;

{$ITIME.INC}

var dummy  : char;
    t1, t2 : Strg_8;
    x, y,
    h, m   : byte;
    c      : integer;



begin
 Clock_Init;
 clrscr;

 writeln ('Anfangswerte eingeben:');
 write ('Stunde: '); readln (h);
 write ('Minute: '); readln (m);
 write ('Spalte: '); readln (x);
 write ('Zeile: '); readln (y);
 Clock_XY (x,y);
 Set_Clock (h,m);
 Clock_On;
 delay(200);
 t1:=TimeString;

 writeln ('Durch Dr}cken von ENTER werden andere (feste) Zeiten');
 writeln ('eingestellt. Die Demo endet um Mitternacht...');
 readln (dummy);

 Set_Clock(12,12);
 readln(dummy);
 Set_Clock(0,0);
 readln(Dummy);
 Set_Clock(1,45);
 readln(Dummy);;

 Set_Clock(23,59);
 c:=0;
 repeat
  gotoxy(0,10);
  writeln (c);
  c:=succ(c);
 until TimeString='00:00:00';
 write(^G);

 t2:=TimeString;
 Clock_Off;
 writeln ('Start um ',t1);
 writeln ('Ende um  ',t2)
end.