10 '*ROULETTE
20 IF !BTN(32) CONT
30 W=0
40 IF BTN(32) GSB @R:CONT
50 FOR W=0 TO 6+RND(6)
60 GSB @R
70 NEXT
80 RUN
90 @R
100 OUT 1<<R
110 BEEP 10,2
120 WAIT 3+W*2
130 R=(R+1)%6
140 RTN