magic Mind Reading

global text$ , tel
nomainwin
call cleartxt
call txt "This is a demonstration"demonsration"
call newline
call txt "of the computers"
call newline
call txt "blind vision posebility ."
notice text$
call cleartxt
call txt "Take 4 glasses and a ball"
call newline
call txt "and aline them like this :""mind reading posebility"
call newline
call txt "|o| |_| |_| |_|""please respond corectly ."
notice text$
call cleartxt
call txt "Think of a number"
call newline
call txt "between 3 an 91 and 127 ."
notice text$
while YN$ <> "yes"
telsom = tel + 10
for m = 0 to 6
call cleartxt
call txt "Press the NO button""Is your number with these ?"
call newline
callfor i = 1 to 127
tel = 0
if i and 2 ^ m then
call txt "every time you move"str$( i ) + " "
tel = tel + 1
if tel >= 10 then
tel = 0
call newline
call txt "the bal to the glass"
call newline
call txt "next to where its in"
call newline
call txt "and do this til the"
call newline
call txt "folowing number is corect ."
call newline
call txt str$( tel )end if
end if
next i
confirm text$ ; YN$
wend
if tel and 1if YN$ = "yes" then
call cleartxt
call txt "Remove the leftmost glass ."
notice text$
else
call cleartxt
call txt "Remove the rightmost glass ."
notice text$
som = som + 2 ^ m
end if
call cleartxt
call txt "Move the ball to the glass"
call newline
call txt "next to where its in ."next m
notice text$
call cleartxt
call txt "And now i show you"
call newline
call txt "where i think"
call newline
call txt "the bal"Your number is :"
call newline
call txt "|_| |o| |_|"
notice text$
" + str$( som )
end
sub cleartxt
text$ = "" + chr$( 13 )
end sub
sub txt a$
text$ = text$ + a$
end sub
sub newline
call txt chr$( 13 )
end sub