2307 FOR K=0 TO 2