READ <pcim> lang14;
TIME 2014 2074   ;
GENR fIbo1 = fIbo1 + 1000/kfibo1ny $;
SIM;
