Older Version
Newer Version
bluatigro
Apr 4, 2010
global text$ , tel nomainwin call cleartxt call txt "This is a demonstration" call newline call txt "of the computers" call newline call txt "see whit no camara 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