notice & cofirm : BLIND VISION

Geef hier je beste Liberty BASIC tips door. (Hier geen hulp vragen)

Moderators: anthonio, Abcott

notice & cofirm : BLIND VISION

Berichtdoor bluatigro » di jan 19, 2010 11:32 am

nog n gochel-show act
Code: Selecteer alles
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

nu nog n graphics-versie maken
bluatigro
 
Berichten: 306
Geregistreerd: za sep 27, 2008 6:01 pm

Keer terug naar Tips en informatie

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron