1610 KA=3 : KB=50 : GOSUB 695