magic Mind Reading

global text$ , tel
nomainwin
call cleartxt
call txt "This is a demonstration"
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 :"
call newline
call txt "|o| |_| |_| |_|"
notice text$
call cleartxt
call txt "Think of a number"
call newline
call txt "between 3 an 9 ."
notice text$
while 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 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$

end
sub cleartxt
text$ = "" + chr$( 13 )
end sub
sub txt a$
text$ = text$ + a$
end sub
sub newline
call txt chr$( 13 )
end sub