>>157のソースを
わかりやすく整形してみました。
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1027870433&res=295
基本的にオリジナルアルゴリズムに忠実な形での整形ですが
以下の2点で手を加えています。

・ワーニングを完全に排除するために
メインループからのエスケープにgoto文を追加。
・画面クリアのためのsystem("CLS")を追加。