僕のソースを写したのなら、オリジナルの21行目のIF D THENが抜けてますね〜。それ以外はちゃんと見てないのでわからないですが、とりあえずそんな感じです。