1565 KX=1 : GOSUB 730