FOR TO ~NEXTと、 DATA文を使い分ければもっとスマートに出来ると思います。