READ <pcim> lang14;
TIME 2014 2014 ;
GENR JCpuxh = JCpuxh + 1000*pcpuxh $;
TIME 2014 2074;
SIM ;