-----------------------------------

bball_mvp88

Tue May 25, 2004 6:51 pm


can someone fix my problem

-----------------------------------

can some tell me why the program will not sum up the cards??? please

drawfillbox (0,0,640,400,7)
colourback(7)

colour (0)
var name:string
locate (12,35)
put "Enter Your Name:"
locate (13,35)
get name

cls
drawfillbox (10,10,630,400,7)
colourback(7)

colour (0)
var money:real
locate (11,26)
put "You have 20 dollars to bet" 
locate (12,19)
put "How much do you what to bet on this game?"
locate (13,35)
get money
cls
loop
if money >= 20 then
locate (11,21)
put "You do not have enough money to bet!!!"
locate (12,19)
put "How much do you what to bet on this game?"
locate (13,35)
get money
cls
end if
exit when money = 280 and x4 = 80 and y4 = 280 and x5 = 80 and y5 = 280 and x6 = 80 and y6 = 280 and x7 = 30 and y7