1710 FOR K=1 TO 4