READ <pcim> lang100;
UPD <#per1 #per2> Uq + -10;
TIME #per1 #per2 ;
GENR tsysp1 = @tsysp1*.977 $;
GENR tsysp2 = @tsysp2*.977 $;
SIM ;
