4350 X=I : GOSUB 4550