n=10

answer=false

while (!answer)
  print "May I start?"

  input start$

  if (lower$(start$)="y" or lower$(start$)="yes") then
    myturn =true
    answer = true
  elsif (lower$(start$)="n" or lower$(start$)="no") then
    myturn =false
    answer = true
  else
    print "Invalid input. Please enter \"y\" or \"n\"."
    answer = false
  fi
wend

laysticks()
wait 1

while (n>0)

clear screen
laysticks(n)

if (myturn) then
  take=mod(n,4)
  
  if (take=0) then
    take=1
  fi

  if (take > 1) then
    print "I will take " + str$(take) + " sticks."
  else
    print "I will take " + str$(take) + " stick."
  fi

  n=n-take
  myturn=false
  if n=0 then
    iwin=true
  fi
else
  print "How many sticks do you wish to take?"
  input take
  n=n-take
  myturn=true

  if n=0 then
    iwin=false
  fi

fi

wait 1
wend

clear screen

if iwin=true then
  print "I win!"
else
  print "Congratulations! You win!"
  congrats()
fi


sub laysticks(n)
for x=1 to n
  print "| ";
  wait .1
next x
print ""
end sub

sub congrats()
for x=1 to 10
  beep
  wait .05
next x
end sub