sync on
randomize timer()
dim position(6)
cls
ink rgb(255,0,0),0
for a = 1 to 6
ink rgb(255,0,0),0
box 0,0,64,64
ink rgb(255,255,255),0
set text size 30
center text 32,17,str$(a)
get image a,0,0,64,64
next a
do
repeat
cls
ink rgb(255,10,10),0
line 613,0,613,600
for a = 1 to 6
sprite a,position(a),a*72-32,a
if position(a)>550 then victor=a
next a
sync
x=rnd(5)+1
position(x)=position(x)+2
until victor>0
repeat
cls
ink rgb(255,255,255),0
set text size 24
center Text 100,100,str$(victor)+" is the winner."
sync
until spacekey()=1
for a = 1 to 6:position(a)=0:next a:victor=0
loop
 
suspend for key
sync on
dim position(6)
cls
ink rgb(255,0,0),0
for a = 1 to 6
ink rgb(255,0,0),0
box 0,0,64,64
ink rgb(255,255,255),0
set text size 30
center text 32,17,str$(a)
get image a,0,0,64,64
next a
do
repeat
cls
ink rgb(255,10,10),0
line 613,0,613,600
for a = 1 to 6
sprite a,position(a),a*72-32,a
if position(a)>550 then victor=a
next a
sync
x=rnd(5)+1
position(x)=position(x)+2
until victor>0
repeat
cls
ink rgb(255,255,255),0
set text size 24
center Text 100,100,str$(victor)+" is the winner."
sync
until spacekey()=1
for a = 1 to 6:position(a)=0:next a:victor=0
loop
 
suspend for key