4650 KA=1 : KB=50 : GOSUB 695