FUNCTION DATE : datestr;
TYPE
  regpack=record
          ax,bx,cx,dx,bp,di,si,ds,es,flags:integer;
          end;

var
  recpack:          regpack;             {assign record}
  ah,al,ch,cl,dh:   byte;
  month,day:        string[2];
  year:             string[4];
  dx,cx,D,M,U:      integer;
  begin
  with recpack do ax:= $2A00;
  msdos(recpack);
  with recpack do
    begin
      str(cx,year);
      str(dx mod 256,day);
      str(dx shr 8,month);
      SYSDATE := 100*(DX SHR 8) + DX MOD 256;
    end;
  IF length(month) < 2 THEN MONTH := '0' + MONTH;
  IF length(day) < 2 THEN DAY := '0' + DAY;
  date := month+ '/' +day + '/' +year;
end;

FUNCTION TIME : TimeString;
TYPE
  regpack=record
          ax,bx,cx,dx,bp,di,si,ds,es,flags:integer;
          end;

var
  recpack:          regpack;             {assign record}
  ah,al,ch,cl,dh:   byte;
  hour,min,sec :    string[2];
  H,M,U       :    integer;

begin
  recpack.ax := $2C00
  intr($21,recpack);
  with recpack do
    begin
      str(cx shr 8, hour);
      str(cx mod 256,min);
      SYSTIME := 100* (CX SHR 8) + CX MOD 256;
    end;
     IF length(hour) < 2 THEN HOUR := '0' + HOUR;
     IF length(min) < 2 THEN MIN := '0' + MIN;
   time:=hour+':'+min;
end;