READ <pcim> lang100;
UPD <#per1 #per2> fimo1 + 1000 ;
TIME #per1 #per2;
SIM;