4210 KX=1 : GOSUB 730