// 8Questions.yab
// Trent Logan, 2010.02.08

continue$="y"

while (continue$="y")
  runningtotal=0
  bit=128

  print ""
  print "Pick a number from 0 to 255." 
  print "and I will guess your number" 
  print "after asking you eight yes/no"
  print "questions."
  print ""

  for turn=1 to 8

    print "Is your number less than " + str$(runningtotal + bit) + "? (y or n)" 
    input answer$

    if answer$="n" then
      runningtotal=runningtotal + bit
    fi

    bit = bit/2

  next turn

  print "Your number is " + str$(runningtotal) + "."
  print "Would you like to continue? y or n"
  input continue$
wend

end