あと、46行目のBSZ[I]=RND(120)+1の後に、 　continue を、入れるといいですよ！ これで、奥の方で、チカチカするのを改善できます！