3695 KA=1 : KB=20 : GOSUB 695