while 1 if !i then bgmplay 0:beep 2 print str$(i) beep 2 i=(i+1) mod 10 wend