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

var racers : array 1 .. 6 of int
put "Name", "           ", "Cash Amount", "           ", "Bet Amount", "           ", "Racer Betting On"
names (name)
amount (amounts)
spend (spends)
bet (bets)