4540 KL=7 : GOSUB 980