ところで他の言語ではキーワードを行のはじめに置いて字下げをしますが、
ＦＯＲＴＨではキーワードを行の終わりに置いて字上げ（地上げじゃありませんよ）をするのがいいと思うのですがどうでしょう。

＿＿＿＿＿＿＿＿＿＿＿＿＿（ｃｏｎｄｉｔｏｉｎ１）　ＩＦ
＿＿＿＿＿＿（ｃｏｎｄｉｔｏｉｎ２）　ＩＦ
（ｐｒｏｃｅｄｕｒｅ１．１）　ＥＬＳＥ
（ｐｒｏｃｅｄｕｒｅ１．２）　ＴＨＥＮ　　　ＥＬＳＥ
＿＿＿＿＿＿（ｃｏｎｄｉｔｏｉｎ３）　ＩＦ
（ｐｒｏｃｅｄｕｒｅ２．１）　ＥＬＳＥ
（ｐｒｏｃｅｄｕｒｅ２．２）　ＴＨＥＮ　　　ＴＨＥＮ

＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ＢＩＧＩＮ
（ｃｏｎｄｉｔｉｏｎ）　ＷＨＩＬＥ
＿（ｐｒｏｃｅｄｕｒｅ）　ＬＯＯＰ

ＩＦ文が何重にもネストした場合ＴＨＥＮがいくつも並ぶことがありますが、
これが一行に詰め込めます。