Language WebBasic
(WebBasic is a BASIC lanquage interpreter)
Date: | 04/13/08 |
Author: | Michael Ranks |
URL: | http://checkip.lwd.cc |
Comments: | 1 |
Info: | http://www.ddginc-usa.com/webbas.htm |
Score: | (2.80 in 10 votes) |
REM Display 99 bottles of beer song REM Written by Michael Ranks REM WebBasic is a BASIC lanquage interpreter that makes it extremely easy REM to do server-side web programming. REM Yo get WebBasic - http://www.ddginc-usa.com/webbas.htm print "Content-type: text/html" print beer = 99 DO UNTIL beer < 2 print beer," bottles of beer on the wall, ",beer," bottles of beer.<br>" beer = beer - 1 if beer > 1 then print "Take one down and pass it around, ",beer," bottles of beer on the wall.<p>" else print "Take one down and pass it around, ",beer," bottle of beer on the wall.<p>" endif LOOP print "1 bottle of beer on the wall, 1 bottle of beer.<br>" print "Take one down and pass it around, no more bottles of beer on the wall.<p>" print "No more bottles of beer on the wall, no more bottles of beer.<br>" print "Go to the store and buy some more, 99 bottles of beer on the wall." end
Download Source | Write Comment
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!
Comments
Dan said on 06/12/08 03:05:52
Could have used a for loop "for beer = 99 to 2 step -1"