READ <pcim> lang14;
() upd <2014 2014> jdfvmo + 1000
TIME 2014 2014;
Genr jrfvo1 = @jrfvo1 + 1000*(1+@jrfvo1)/@fvo1 $;
TIME 2014 2074;
SIM ;
