Konu: Digital Saat Kodu Perş. Mart 26, 2009 11:57 pm
uses crt,dos; type datetimetype=string[8]; var reg:registers; h,m,s,w,time:datetimetype; i:integer; begin clrscr; repeat reg.ax:=$2c00; intr($21,reg); str(hi(reg.cx):2,h); str(lo(reg.cx):2,m); str(hi(reg.dx):2,s); w:=h+':'+m+':'+s; for i:=1 to length(w) do if w[i]=' ' then w[i]:='0'; gotoxy(30,10); write(w); delay(500); clrscr; until keypressed; readkey; end.