600 KA=1 : KB=79 : GOSUB 695