1650 KX=0 : GOSUB 6010