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
Version | Author | Date | Comments | Rate |
---|---|---|---|---|
This one has spirit it sings it! | Rick Bielawski | 07/16/05 | 0 |
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