9724 FOR IX=0 TO XX