READ <pcim> lang13;
UPD <2013 2073> Upef + -10;
TIME 2013 2073 ;
GENR tsysp1 = @tsysp1*.9681 $;
GENR tsysp2 = @tsysp2*.9681 $;
SIM ;