1615 K=1 : KX=1 : GOSUB 6010