できた！と思ったプログラムを見直したところ、現時点で60行減りましたw おそらく巧い方が配列などでデータをまとめると、さらに数十行減るものと思われます。 自分のまだまださ加減も感じますが、がんばります～。 (read dataだか配列だかの練習でさらに削減を進めるか、どつぼにはまる前に他に移るか思案中～。)