1840 K=1 : KX=0 : GOSUB 6010