アルゴリズムの実装開始

アルゴリズムを思い付いたので実装を始めた。しかし、BASICで書くとなると一苦労。関数や構造体が使いたい…。