Jump to content

Magic 8-ball: Difference between revisions

m
imported>Maxima enthusiast
No edit summary
imported>Thebeez
Line 2,735:
=={{header|uBasic/4tH}}==
{{works with|version 3.64.0}}
<syntaxhighlight lang="basic">Push Dup("It is certain"), Dup("It is decidedly so"), Dup("Without a doubt")
Push Dup("Yes, definitely"), Dup("You may rely on it")
Push Dup("As I see it, yes"), Dup("Most likely"), Dup("Outlook good")
Push Dup("Signs point to yes"), Dup("Yes"), Dup("Reply hazy, try again")
Push Dup("Ask again later"), Dup("Better not tell you now")
Push Dup("Cannot predict now"), Dup("Concentrate and ask again")
Push Dup("Don't bet on it"), Dup("My reply is no"), Dup("My sources say no")
Push Dup("Outlook not so good"), Dup("Very doubtful")
' read the replies
For x = 0 to Used() - 1 : @(x) = Pop(): Next
Line 2,752:
Print Show(@(Rnd(x))) : Print ' show the reply
Loop</syntaxhighlight>
 
=={{header|UNIX Shell}}==
{{works with|Bourne Again Shell}}
Anonymous user
Cookies help us deliver our services. By using our services, you agree to our use of cookies.