あ、いっぱいレスしてくれてたんですねthx
えっと、できるだけサブルーチンにしたくないんです
皆さんのを参考に色々やってみます