2710 FOR S=1 TO 31