READ <pcim> lang100;
UPD <#per1 #per2> iwdm  + -.01;
UPD <#per1 #per2> iuwsd + -.01;
UPD <#per1 #per2> iuwse + -.01;
UPD <#per1 #per2> iwbud + -.01;
upd <#per1 #per2> diwlo = 1    ;
upd <#per1 #per2> ziwlo + -.01;
Time #per1 #per2 ;
SIM ;

