このプログラムだったら1つ火がランダムで動くんだけど 1つの火を10っこに増やすのってそのぶん　このプログラムを増やさないのいけない？誰か教えてください

こうゆうプログラムです

確かに行数は増えますが、FOR〜NEXT文でSPSETなどを繰り返せば大幅に短縮できます。管理番号0のままだと1つのままなので、SPSET I,1347 のように改変するといいと思います。