5090 K=1 : GOSUB 6010