16 lines
434 B
Plaintext
16 lines
434 B
Plaintext
dim as ubyte heap=12, take
|
|
|
|
while heap > 0
|
|
print using "There are ## tokens remaining. How many would you like to take?"; heap
|
|
input take
|
|
while take=0 orelse take>3
|
|
print "You must take 1, 2, or 3 tokens. How many would you like to take?"
|
|
input take
|
|
wend
|
|
|
|
print using "On my turn I will take ## tokens."; 4-take
|
|
heap = heap - 4
|
|
wend
|
|
|
|
print "I got the last token. I win! Better luck next time."
|