READ <pcim> lang13;
TIME 2013 2013 ;
GENR JCpuxh = JCpuxh + 1000*pcpuxh $;
TIME 2013 2073;
SIM ;