Program Clock;
uses DOS, CRT, Graph;
var
   Hour, Min, Sec, sec2, ms, kx, ky:Word;
   x, y, px, py, driver, mode:integer;
   key:char;

 {Procedure EGAVGA;external;}


 Procedure Paint;
 var txt:string[10];
 Function str_2(t:integer):string;
 var s:string;
 begin
   str(t, s);
   If t<10 then s:='0'+s;
   If t=0 then s:='00';
   str_2:=s;
 end;
  begin
     txt:=(str_2(hour)+':'+str_2(min))+(':'+str_2(sec));
     SetColor(15);
     SetTextStyle(4, 0, 1);
     SetTextJustify(1, 2);
     OutTextXY(px, py+15, txt);
     SetLineStyle(2, 0, 1);
     SetColor(6);
     Circle(px+1, py+1, py+50);
     SetColor(2);
     SetTextStyle(9, 0, 2);
     SetTextJustify(1, 2);
     OutTextXY(px, 0, 'XII');
     SetTextJustify(1, 0);
     OutTextXY(px, GetMaxY-2, 'VI');
     SetTextJustify(0, 1);
     OutTextXY(px-py-45, py, 'IX');
     SetTextJustify(2, 1);
     OutTextXY(px+py+45, py, 'III');
     {hour}
     x:=round(sin(hour*(Pi/6))*px/3)+px;
     y:=round(-1*cos(hour*(pi/6))*py/3)+py;
     SetLineStyle(0, 0, 3);
     SetColor(7);
     Line(px, py, x, y);
     {Minut}
     x:=round(sin(min*(Pi/30))*px*1/2)+px;
     y:=(round(-1*cos(min*(pi/30))*py*1/1.2)+py);
     SetLineStyle(0, 0, 3);
     SetColor(7);
     Line(px, py, x, y);
     {second}
     x:=round(sin(sec*(Pi/30))*px/1.5)+px ;
     y:=round(-1*cos(sec*(pi/30))*py/1.1)+py;
     SetLineStyle(0, 0, 1);
     SetColor(4);
     Line(px, py, x, y);
  end;

 begin
  driver:=3{(RegisterBGIDriver(@egavga))};
  mode:=1;
  InitGraph(driver, mode, '..\bgi');
  SetWriteMode(0);
  GetAspectRatio(kx, ky);
  SetAspectRatio(kx, ky);
  Px:=round(GetMaxX/2);
  Py:=round(GetMaxY/2);
  Repeat
     GetTime(hour, min, sec, ms);
     SetActivePage(0);
     ClearDevice;
     Paint;
     SetVisualPage(0);
     repeat
       GetTime(hour, min, sec2, ms);
     until sec2<>sec;
     sec:=sec2;
     SetActivePage(1);
     ClearDevice;
     Paint;
     SetVisualPage(1);
     repeat
       GetTime(hour, min, sec2, ms);
     until sec2<>sec;
     If KeyPressed then key:=ReadKey;
  until ord(key)=27;
  CloseGraph;
end.