18 lines
443 B
Plaintext
18 lines
443 B
Plaintext
monton = 12
|
|
llevar = 0
|
|
|
|
DO WHILE monton > 0
|
|
PRINT USING "There are ## tokens remaining. How many would you like to take"; monton;
|
|
INPUT llevar
|
|
DO WHILE llevar = 0 OR llevar > 3
|
|
INPUT "You must take 1, 2, or 3 tokens. How many would you like to take"; llevar
|
|
LOOP
|
|
|
|
PRINT "On my turn I will take"; 4 - llevar; " token(s)."
|
|
monton = monton - 4
|
|
LOOP
|
|
|
|
PRINT
|
|
PRINT "I got the last token. I win! Better luck next time."
|
|
END
|