9604 FOR IX=0 TO XX