program Rom_Date; { finds and reports the ROM System Date }

var Rom_Date_str : string[8] absolute $f000:$fff4;
    date_of_rom  : string[8];

begin
  date_of_rom := copy(rom_date_str,1,8);
  writeln(date_of_rom);
end.