かなり蟻の数は減りますが、 55行目をNKR=31 128行目をFOR I=0 TO 30 にしていただくと一応動きます。 50匹ぐらいでも動くかもです。（31を51、30を50に変える）