DouKaku?

あみだ="A B C D E
| | |-| |
|-| | |-|
| |-| |-|
|-| |-| |
|-| | | |"

Amida=あみだ
AmidaFooter=Amida[0]を" "で区切る

Amidaの0を配列削除
Iで0から(Amidaの要素数)-1まで繰り返す
    AmidaLine = Amida[I]
    // 処理しやすいように整形
    AmidaLineの1から1バイト削除
    AmidaLineから1バイト右端削除
    AmidaLine = AmidaLineを"|"で区切る
    Jで0から(AmidaLineの要素数)-1まで繰り返す
        もし(AmidaLine[J]="-")ならば
            AmidaFooter = AmidaFooterのJを(J+1)に配列入替え

あみだ&改行&(AmidaFooterを" "で配列結合)を表示

●配列入替え(ArrayのAをBに)
    tmpAとは文字列=Array[A]
    tmpBとは文字列=Array[B]
    Array[A]=tmpB
    Array[B]=tmpA
    Arrayで戻る