2085 KL=3 : GOSUB 980