99 Bottles of Beer

Voting

Please select* Bad as Hell** Nothing new*** Good**** Nice Coding***** TOP GEEK

Category

real language

Bookmarking

' Rapid-Q version of 99 Bottles of beer (Bottles.rqb)
' http://www.basicguru.com/rapidq/
' Philipp Winterberg, http://www.winterbergs.de 

$APPTYPE CONSOLE : $OPTIMIZE ON : $ESCAPECHARS ON : a$ = " _
\98\111\116\116\108\101\40\115\41 \111\102\32\98\101\101\11_
4" : b = 99 : while (b > 0) : print b, a$, " \111\110\32\11_
6\104\101\32\119\97\108\108," : print b, a$, ".\r\n\84\97\1_
07\101 \111\110\101 \100\111\119\110, \112\97\115\115 \105\_
116\32\97\114\111\117\110\100," : b = b - 1 : print b, a$, _
"\32\111\110\32\116\104\101\32\119\97\108\108\46\r\n" : wend

Alternative Versions

Comments

 diakin said on 01/24/06 06:49:35

Rapid-Q Home planet http://www.basicguru.com/rapidq/ is dead.
You can download last version of Rapid-Q from http://mira.xeno.ru/rqbeta.zip

WBR, Andrew
http://mira.xeno.ru

 Todd said on 02/18/07 15:40:01

The code doesn't work. RapidQ just outputs:
--
Exception EInOutError in module $noname.exe at 000E4F2E
I/O error 103.
--

 barrym said on 03/29/10 08:01:32

More lazy-ass "bottle(s)" code. C'mon Phil, give us a conditional
expression or two. Geez Louise..........

 Bette23Barrett said on 08/22/10 08:45:31

It is perfect that people can get the <a href="http://bestfinance-blog.com">loan</a> and this opens up new chances.

Add Comment

Please provide a value for the fields Name, Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.

Please don't post large portions of code here! Use the form to submit new examples or updates instead!

Name:

eMail:

URL:

Security Code:
  
Comment: