Voting

Category

real language

Bookmarking

Del.icio.us Digg Diigo DZone Earthlink Google Kick.ie
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

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

Alternative Versions

Comments

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!

Name:

eMail:

URL:

Security Code:
  
Comment: