READ <pcim> lang100;
upd <#per1 #per1> jdfvmo + 1000
TIME #per1 #per1 ;
genr Sk_h_o  = 1.68*@Sk_h_o  $ ;
TIME #per1 #per2 ;
GENR tsysp1 = @tsysp1*1.011 $;
GENR tsysp2 = @tsysp2*1.011 $;
SIM ;