2100 KL=2 : GOSUB 980