global [winner number]

to initialize
setnumber 100
printnumber
end

to number+10
setnumber number + 10
printnumber
end

to number-10
setnumber number - 10
printnumber
end

to printnumber
type "number= print number
end

to break-beam-red
a, on when [(sensor 0) > number] [if winner = 0 [setwinner 1]]
end

to break-beam-blue
b, on when[(sensor 1) > number] [if winner = 0 [setwinner 2]]
end

to blue-dance
repeat 8 [c, onfor 10 rd]
end

to red-dance
repeat 8 [d, onfor 10 rd]
end

to finish-line
break-beam-red
break-beam-blue
waituntil [winner > 0]
stoprules
if winner = 1 [red-dance]
if winner = 2 [blue-dance]
setwinner 0 wait 10 finish-line
end

to pop-out-all
launch [pop-out 1]
launch [pop-out 2]
launch [pop-out 3]
launch [pop-out 4]
end

to pop-out :motor
if (:motor = 1) [loop [a, onfor 4 wait random 10 rd]]
if (:motor = 2) [loop [b, onfor 4 wait random 10 rd]]
if (:motor = 3) [loop [c, onfor 4 wait random 10 rd]]
if (:motor = 4) [loop [d, onfor 4 wait random 10 rd]]
end