3420 KL=6 : GOSUB 980