proc loadracer (var racer : array 1 .. 6 of int)
for i : 1 .. upper (racer)
racer (i) := Pic.FileNew ("racer" + intstr (i) + ".jpg")
end for
end loadracer
var racer : array 1 .. 6 of int
fork playmusic
proc names (var name : array 1 .. 6 of string)
for i : 1 .. upper (name)
get name (i)
end for
end names
proc bet (var bets : array 1 .. 6 of int)
for i : 1 .. upper (bets)
locate (1 + i, 59)
get bets (i)
end for
end bet
proc amount (var amounts : array 1 .. 6 of int)
for i : 1 .. upper (amounts)
end for
end amount
proc spend (var spends : array 1 .. 6 of int)
for i : 1 .. upper (spends)
locate (1 + i, 37)
get spends (i)
end for
end spend