notice & confirm : MIND READING

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

Moderators: anthonio, Abcott

notice & confirm : MIND READING

Berichtdoor bluatigro » di jan 19, 2010 10:42 am

gebruik dit programma in n gochel-show
[ waarom zou programmeren niet LEUK zijn ? ]
Code: Selecteer alles
global text$
nomainwin
call cleartxt
call txt "This is a demonsration"
call newline
call txt "of the computers"
call newline
call txt "mind reading posebility"
call newline
call txt "please respond corectly ."
notice text$
call cleartxt
call txt "Think of a number"
call newline
call txt "between 1 and 127 ."
notice text$
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" then
    som = som + 2 ^ m
  end if
next m
notice "Your number is " + 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
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