10 '*Saikoro
20 [1]=`1000000
30 [2]=`0001001
40 [3]=`1001001
50 [4]=`0101101
60 [5]=`1101101
70 [6]=`0111111
80 FOR I=1 TO 10
90 R=RND(6)+1
100 OUT [R]
110 BEEP 10,2
120 WAIT 6
130 NEXT
140 IF !BTN(32) CONT
150 RUN