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