100 cls
110 monton = 12
120 llevar = 0
130 do while monton > 0
140   print using "There are ## tokens remaining. How many would you like to take";monton;
150   input llevar
160   do while llevar = 0 or llevar > 3
170     input "You must take 1, 2, or 3 tokens. How many would you like to take";llevar
180   loop
190   print "On my turn I will take";4-llevar;" token(s)."
200   monton = monton-4
210 loop
220 print
230 print "I got the last token. I win! Better luck next time."
240 end