3940 KL=6 : GOSUB 980