home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 2
/
BUGCD1997_01.iso
/
utils
/
winbatch
/
binguess.wb_
next >
Wrap
Text File
|
1994-04-02
|
682b
|
28 lines
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