Voting
Category
assembly language
Bookmarking
Language click.EXE / instant.EXE
| Date: | 03/28/06 |
| Author: | delirium |
| URL: | n/a |
| Comments: | 1 |
| Info: | http://www.clickexe.de / http://www.instantexe.com |
| Score: |  (1.80 in 5 votes) |
*** 99 Bottles of Beer written in Click.EXE (www.clickexe.de). English equivalent can be found on
http://instantexe.com
*** Click.EXE / Instant.EXE is an easy to use drag&drop language
Anzeigefenster '99 Bottles of Beer' (ID='info-window', zentriert, Max. möglich)
Schleife Ab ([beer_counter] von 99 bis 1 Schrittweite -1)
Setze in [beer_left]: '[beer_counter]-1' (berechnen)
Wenn Wahr: '[beer_counter]>2'
Setze in [beer]: '[beer_counter] bottles of beer on the wall, [beer_counter] bottles of
beer.^MTake one down and pass it around, [beer_left] bottles of beer on the wall.^M^M' (Anhängen)
Sonst wenn Wahr: '[beer_counter]=2'
Setze in [beer]: '[beer_counter] bottles of beer on the wall, [beer_counter] bottles of
beer.^MTake one down and pass it around, [beer_left] bottle of beer on the wall.^M^M' (Anhängen)
Sonst wenn Wahr: '[beer_counter]=1'
Setze in [beer]: '[beer_counter] bottle of beer on the wall, [beer_counter] bottle of
beer.^MTake one down and pass it around, no more bottles of beer on the wall.^M^M' (Anhängen)
Setze in [beer]: 'No more bottles of beer on the wall, no more bottles of beer.^MGo to the
store and buy some more, 99 bottles of beer on the wall.' (Anhängen)
Ende Wenn
Anzeige-Element Eingabe: '[beer]' (ID='beer', mehrzeilig, Schieber, Zielfenster-ID:
'info-window')
Schleife Bis
Warte endlos...
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