3200 !パスを判定する
3210 let pass=0 !passの値を初期化
3215 let pass=pass+1 !passの値を1増やす
3220 for i=0 to 7
3230 for j=0 to 7
3240 if check(i,j,0)=1 then
3250 let pass=0
3259 end if
3269 next j
3279 next i
3300 !パスだった場合の処理
3310 select case pass
3320 case 0
3330 !何もしない
3400 case 1
3410 let p=-p !駒の色を逆転
3420 goto 3215 !一旦戻る
3500 case 2
3510 stop !ゲーム終了
3599 end select