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."