2860 KA=3 : KB=12*(K+1)+2 : GOSUB 695