RosettaCodeData/Task/Nim-game/BASIC256/nim-game.basic

19 lines
453 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
monton = 12
llevar = 0
while monton > 0
print "There are "; monton; " tokens remaining. How many would you like to take? ";
input integer llevar
while llevar = 0 or llevar > 3
print "You must take 1, 2, or 3 tokens. How many would you like to take ";
input integer llevar
end while
print "On my turn I will take "; 4 - llevar; " token(s)."
monton = monton - 4
end while
print
print "I got the last token. I win! Better luck next time."
end