Voting
Category
real language
Bookmarking
Language WinBatch
| Date: | 04/20/05 |
| Author: | Philipp Winterberg |
| URL: | http://www.winterbergs.de/ |
| Comments: | 0 |
| Info: | http://www.winbatch.com/winware/winbatch.html |
| Score: |  (3.35 in 26 votes) |
; WinBatch version of 99 Bottles of beer (Bottles.wbt)
; See http://www.winbatch.com/winware/winbatch.html
; Philipp Winterberg, http://www.winterbergs.de
a=" bottle(s) of beer"
b=99
c=" on the wall"
d="Take one down, pass it around,"
BoxOpen("99 Bottles of Beer", "")
while b>0
BoxText (StrCat(b,a,c,",",@CRLF,b,a,".",@CRLF,d,@CRLF,b-1,a,c,"."))
TimeDelay(2)
b=b-1
endwhile
BoxShut()
Exit
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