2540 KL=3 : GOSUB 980