READ <pcim> lang100;
UPD <#per1 #per2> Upef + -10;
TIME #per1 #per2 ;
GENR tsysp1 = @tsysp1*.9681 $;
GENR tsysp2 = @tsysp2*.9681 $;
SIM ;

