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 TACL

Date:04/20/05
Author:Dirk Grabenkamp
URL:n/a
Comments:0
Info:n/a
Score: (2.00 in 7 votes)
?TACL ROUTINE
== TACL (Tandem Advanced Command Language)
== This is one 'Shell' scripting language of HP/Compaq NonStop Systems
==   formerly known as Tandem
==
== Dirk Grabenkamp, 25. Sep 2002 (Dirk.Grabenkamp@GMX.DE)
== 
#FRAME
   #PUSH #OUTFORMAT
   #SET  #OUTFORMAT PRETTY
   
   #PUSH NrOfBottles Bottles
   #SET  NrOfBottles 99
   #SET  Bottles bottles
   
   [#LOOP |DO|
      #OUTPUT [NrOfBottles] [Bottles] of beer on the wall, [NrOfBottles] [Bottles] of beer
      #OUTPUT /HOLD/ Take one down and pass it around,
      
      #SET NrOfBottles [#COMPUTE NrOfBottles - 1]
      [#CASE [NrOfBottles]
         |1| #SET Bottles bottle
         |0| #SET Bottles bottles
             #SET NrOfBottles no more
         |OTHERWISE|
      ]
      
      #OUTPUT ~_[NrOfBottles] [Bottles] of beer on the wall.
      |UNTIL| (NrOfBottles '=' "no more")
   ]
#UNFRAME

Download Source | Write Comment

Alternative Versions

VersionAuthorDateCommentsRate
This one has spirit it sings it!Rick Bielawski07/16/050

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: