1685 N=IP : KI=1 : GOSUB 11000 : IP=N