home *** CD-ROM | disk | FTP | other *** search
- 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
-
-