program Eprom_EMULATOR_test;
uses crt,dos;

var serial   :text;
    crka     :char;
    n        :word;

begin
  assign(serial,'31tst');
  rewrite(serial);
{  write(serial,'RESET'); }
      write(       ($74):8,($FC):8,($F5):8,($90):8,
                   ($23):8,($79):8,($FF):8,($7A):8,
                   ($FF):8,($DA):8,($FE):8,($D9):8,
                   ($FA):8,($80):8,($F3):8 );

      write(serial,chr($74),chr($FC),chr($F5),chr($90),
                   chr($23),chr($79),chr($FF),chr($7A),
                   chr($FF),chr($DA),chr($FE),chr($D9),
                   chr($FA),chr($80),chr($F3) );
  close(serial);
end.