READ <pcim> lang15;
UPD <2015 2075> Upef + -10;
TIME 2015 2075 ;
GENR tsysp1 = @tsysp1*.9676 $;
GENR tsysp2 = @tsysp2*.9676 $;
SIM ;