READ <pcim> lang13;
TIME 2013 2073   ;
GENR fIbo1 = fIbo1 + 1000/kfibo1ny $;
SIM;