1230 KX=0 : GOSUB 6010