99 Bottles of Beer

Voting

Bookmarking

Language ScriptBasic

Date:	04/20/05
Author:	Philipp Winterberg
URL:	http://www.winterbergs.de/
Comments:	2
Info:	http://script.basic.hu/html/index.html
Score:	(1.80 in 10 votes)

' ScriptBasic version of 99 Bottles of beer (Bottles.bas)
' See http://script.basic.hu/html/index.html
' Philipp Winterberg, http://www.winterbergs.de

a$ = " \98\111\116\116\108\101\40\115\41\32\111\102\32\98\101\101\114"
c$ = " \111\110\32\116\104\101\32\119\97\108\108\99\32\32\8\8\8\8\108"
for b = 99 to 1 step -1
  print "\13\10",b,a$,c$,"\44\n",b,a$,"\46\n\84\97\107\101\32\111\110"
  print "\101\32\100\111\119\110", ",\32\112\97\115\115\32\105\116\32"
  print "\97\114\111\117\110\100\44\13\10",(b-1),a$,c$,"\46\32 \13\10" 
next b
end

Download Source | Write Comment

Alternative Versions

Comments

John Spikowski said on 08/22/09 07:14:42

The ScriptBasic open source project resources can be found here.

http://www.scriptbasic.org

http://www.scriptbasic.org/forum

http://www.scriptbasic.org/wiki

John Spikowski
ScriptBasic Project Manager
support@scriptbasic.org

barrym said on 03/29/10 08:22:42

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

Download Source | Write Comment

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!

one program in 1500 variations