program timecmos;
type
  regpack = record
              ax,bx,cx,dx,bp,si,di,ds,es,flags: integer;
            end;

var
  recpack          : regpack;             {assign record}
  ah,al,ch,cl,dh   : byte;
  hour,min,sec     : string[2];
  hundr            : string[2];
  i                : byte;

begin {timecmos}
  for i := 1 to 1 do begin
  ah := $2c; al:=0;                            {initialize correct registers}
  with recpack do  ax := ah shl 8 + al;
  intr($21,recpack);                     {call interrupt}
  with recpack do
  begin
    str(cx shr 8,hour);                  {convert to string}
    str(cx mod 256,min);                       { " }
    str(dx shr 8,sec);                         { " }
    str(dx mod 256,hundr)
  end;
  writeln('Time: ', hour+':'+min+':'+sec+'/'+hundr,'    ');
  delay(50) end;
  writeln
end {timecmos}.