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 "mind reading posebility"
call newline
call txt "please respond corectly ." notice text$ call cleartxt call txt "Take 4 glasses and a ball" call newline call txt "and aline them like this :" call newline call txt "|o| |_| |_| |_|"
notice text$
call cleartxt
call txt "Think of a number"
call newline
call txt "between 3 an 9 1 and 127 ."
notice text$
while som = 0
for m = 0 to 6
call cleartxt
call txt "Is your number with these ?"
call newline
for i = 1 to 127
tel = 0
if i and 2 ^ m then
call txt str$( i ) + " "
tel = tel + 1
if tel >= 10 then
tel = 0
call newline
end if
end if
next i
confirm text$ ; YN$ <>
if YN$ = "yes" tel = tel + 1 call cleartxt call txt "Press the NO button" call newline call txt "every time you move" 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 then
som = som + 2 ^ m
end if
next m
notice "Your number is corect ." call newline call txt " + str$( tel ) confirm text$ ; YN$ wend if tel and 1 then call cleartxt call txt "Remove the leftmost glass ." notice text$ else call cleartxt call txt "Remove the rightmost glass ." notice text$ end if call cleartxt call txt "Move the ball to the glass" call newline call txt "next to where its in ." notice text$ call cleartxt call txt "And now i show you" call newline call txt "where i think" call newline call txt "the bal is :" call newline call txt "|_| |o| |_|" notice text$ 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