二番目の while と repeat は i=0:while i<1:i=i+1:wend i=0:repeat:i=i+1:until i>=1 くらいにしないと。あるいは for も break で終了するようにするとか。 if 文をプチコンに評価させたらそりゃ遅くもなりますよね。