READ <pcim> lang100;
upd <#per1 #per1> jdfvmo + 1000
TIME #per1 #per2;
SIM ;
