2679 KA=3 : KB=M : GOSUB 695