1730 KA=3 : KB=79 : GOSUB 695