2190 X=CHI : GOSUB 8704