Untitled

program GAME
implicit none 
real :: balance = 100 , gameb , BMYANA
print*, "Your balance is",balance,"$ ."
print* , "Rules : I will choose a number between 0 to 9 and if you guess it correct you will win a prize (×2 balance)"
print* , "Do you want to play this game now?"
print*, "Choose 1 or 2"
print*, "1.YES"
print*, "2.NO"
read * , BMYANA
if (BMYANA . eq . 1) then
print*, "OK ;)"
GOTO 17
end if
print*, "GoodBye"
STOP
CONTINUE 
print*, "How much money do you want to put?"
print*, "you have now" , balance,"$ in your pocket !"
read*, gameb
if (gameb . eq . 0) then
print *, "haha!! you can't put nothing!"
STOP
else
GOTO 26
CONTINUE
end if
balance = balance - gameb
print*, "Well , You have put",gameb,"$ in!"
print *, "Your current balance is :",balance,"$ now!"
end program GAME