2795 KL=5 : GOSUB 980