READ <pcim> lang13;
UPD <2013 2073> fimo1 + 1000 ;
TIME 2013 2073;
SIM;