READ <pcim> lang100;
TIME #per1 #per1 ;
GENR JCpuxh = JCpuxh + 1000*pcpuxh $;
TIME #per1 #per2;
SIM ;
