' 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