4900 K=1 : GOSUB 6010