delay(600)
cls
for i : 1 .. 6
    amounts (i) := amounts (i) - spends (i)
    if bets (i) = die then
        amounts (i) := amounts (i) + spends (i) * 2
    end if
end for
 
put "name", "           ", "cash amount", "           ", "bet amount", "           ", "horse beting on"
for i : 1 .. 6
    locate (1 + i, 1)
    put name (i)
    locate (1 + i, 16)
    put amounts (i)
    locate (1 + i, 37)
    put spends (i)
    locate (1 + i, 59)
    put bets (i)
end for