Sorry your browser is not supported!

Type Horse
  Speed As Integer
  Name As String
EndType

#Constant MaxHorses = 5
Global Dim Horses(MaxHorses) As Horse
Global Performance As Integer
Global WinnerScore As Integer
Global WinnerID As Integer

Horses(1).Speed = 100 : Horses(1).Name = "Daisy"
Horses(2).Speed = 70  : Horses(2).Name = "George"
Horses(3).Speed = 50  : Horses(3).Name = "Daniel"
Horses(4).Speed = 20  : Horses(4).Name = "Jane"
Horses(5).Speed = 1   : Horses(5).Name = "Pixie"
WinnerScore = 0

For i = 1 to MaxHorses
  Performance = RND(100)
  If Performance + Horses(i).Speed > WinnerScore
     WinnerScore = Performance + Horses(i).Speed
     WinnerID = i
  EndIf
Next i

Print "Winner is: " + Horses(WinnerID).Name
wait mouse

Type Horse
  Speed As Integer
  Name As String
EndType

#Constant MaxHorses = 5
Global Dim Horses(MaxHorses) As Horse
Global Performance As Integer
Global WinnerScore As Integer
Global WinnerID As Integer

rem get horse names and speed
for t=1 to 5
   input "Enter Name of Horse "+str$(t)+" : ",Horses(t).Name
   input "Enter Speed of Horse "+str$(t)+" : ",Horses(t).Speed
next t

WinnerScore = 0

For i = 1 to MaxHorses
  Performance = RND(100)
  If Performance + Horses(i).Speed > WinnerScore
     WinnerScore = Performance + Horses(i).Speed
     WinnerID = i
  EndIf
Next i

Print "Winner is: " + Horses(WinnerID).Name
wait mouse