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.