Voting
Category
real language
Bookmarking
Language SCIL
(ABB MicroSCADA)
| Date: | 01/07/10 |
| Author: | Ruben Scheja |
| URL: | n/a |
| Comments: | 0 |
| Info: | search for 1MRS751849-MEN on http://search.abb.com/ |
| Score: |  (4.33 in 3 votes) |
; ----------------------------------
; SCIL version of 99 Bottles of beer
; by Ruben Scheja
; email: 'myfirstname'(at)scram.de
;
; SCIL is an Application Programming Language for ABB MicroSCADA system
; The technical description can be found at http://search.abb.com/
; document id: 1MRS751849-MEN
;
; The text is printed to the Notification window
; ----------------------------------
#LOCAL out_return
#LOCAL no_of_bottles
#LOCAL bottle_string
no_of_bottles = 99
bottle_string = "'no_of_bottles' bottles"
#LOOP no_of_bottles > -1
out_return = Console_Output("'bottle_string' of beer on the wall,")
out_return = Console_Output("'bottle_string' of beer.")
no_of_bottles = no_of_bottles - 1
#CASE no_of_bottles
#WHEN 2..99 bottle_string = "'no_of_bottles' bottles"
#WHEN 1 bottle_string = "1 bottle"
#WHEN 0 bottle_string = "no more bottles"
#WHEN -1 #BLOCK
no_of_bottles = 99
bottle_string = "'no_of_bottles' bottles"
#LOOP_EXIT
#BLOCK_END
#CASE_END
out_return = Console_Output("Take one down and pass it around,")
out_return = Console_Output("'bottle_string' of beer on the wall.")
#LOOP_END
out_return = Console_Output("Go to the store and buy some more,")
out_return = Console_Output("'bottle_string' of beer on the wall.")
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