Message("Think of a number","Any number between 0 and 1023")
start = 0
stop = 1023
for i = 1 to 10
   guess = (start+stop+1) /2
   if AskYesNo("Hmmmm","Is your number smaller than %guess%")
      stop = guess - 1
   else
      start = guess
   endif
next
guess = (start+stop+1) /2
;
;

if guess==0 || guess==1023 
    Message("Hmmm","%guess% eh?  Testing the limits again I assume")
else
    if guess==13
        Message("Hmmm","%guess% seems rather unlucky to me")
     else
        a = guess mod 2
        if a==0 then Message("Hmmm","Even I can figure %guess%")
                else Message("Hmmm","It must be %guess%, oddly enough")
     endif
endif

