10 '*ROULETTE 20 N=RND(10) 30 BEEP 10,2:GOSUB 100 40 IF BTN()=0 THEN GOTO 20 50 FOR I=0 TO 4 55 N=RND(10) 60 BEEP 10,2:GOSUB 100:WAIT 20 70 NEXT 90 IF BTN()=0 THEN GOTO 90 ELSE RUN 100 IF N=0 THEN A=1:B=1:C=1:D=1:E=1:F=1:G=0 110 IF N=1 THEN A=0:B=1:C=1:D=0:E=0:F=0:G=0 120 IF N=2 THEN A=1:B=1:C=0:D=1:E=1:F=0:G=1 130 IF N=3 THEN A=1:B=1:C=1:D=1:E=0:F=0:G=1 140 IF N=4 THEN A=0:B=1:C=1:D=0:E=0:F=1:G=1 150 IF N=5 THEN A=1:B=0:C=1:D=1:E=0:F=1:G=1 160 IF N=6 THEN A=1:B=0:C=1:D=1:E=1:F=1:G=1 170 IF N=7 THEN A=1:B=1:C=1:D=0:E=0:F=1:G=0 180 IF N=8 THEN A=1:B=1:C=1:D=1:E=1:F=1:G=1 190 IF N=9 THEN A=1:B=1:C=1:D=1:E=0:F=1:G=1 200 OUT 1,A 210 OUT 2,B 220 OUT 3,C 230 OUT 4,D 240 OUT 5,E 250 OUT 6,F 260 OUT 7,G 270 RETURN