READ <pcim> lang100;
TIME #per1 #per2   ;
GENR fIbo1 = fIbo1 + 1000/kfibo1ny $;
SIM;