というか、よく動くな。行番号ベーシックでさえ、サブルーチン作って構造化するのに。