>>141氏へ。140の中の人です。参考までに書き直してみました。
判定部分は>>149さんのパクらさせていただきました＞＜
http://dream.my-sv.net/upload/src/up0100.c