3110 KX=1 : GOSUB 730