99 Bottles of Beer

Voting

Bookmarking

Language RPF

(programming language of CA-Roscoe)

Date:	11/24/05
Author:	Guenter Laudenklos
URL:	http://www.laudenklos.de
Comments:	1
Info:	http://www.purdue.edu/sas/sasdoc/Roscoe/ros60UserGuide.pdf
Score:	(2.33 in 6 votes)

<<99bottles>>                                                           
                                                                        
   trap                                                                 
   delete                                                               
                                                                        
   let l1 = 99                                                          
   let l2 = ' bottles'                                                  
                                                                        
   loop 99 times                                                        
                                                                        
        write aws * l1 | l2 | ' of beer on the wall,' | l2 | ' of beer' 
        let l1 = l1 - 1                                                 
                                                                        
        select any                                                      
        when l2 eq 9                                                    
             let l2 = 'bottle'                                          
        when l2 gt 0                                                    
             write aws * 'Take one down and pass it around,'            
        when none                                                       
             let l2 = 'No more ' | l2                                   
             write aws * l2 | ' of beer on the wall,' | l2 | 's of beer'
        endsel                                                          
                                                                        
   endloop                                                              

   return
      
: RPF version of 99 bottles of beer     
: programmer: Günter Laudenklos         
:
: Roscoe Programming Facility is a high-level interactive structured
: programming language of CA-Roscoe a MVS program development system
: Links for more Infos about this Product:
:               
: http://www.ca.com/products/roscoe.htm
: http://www.purdue.edu/sas/sasdoc/Roscoe/ros60UserGuide.pdf

Download Source | Write Comment

Alternative Versions

Comments

Willian said on 01/04/07 11:56:27

Where I can get more help about RPF Language and script creation?
I have got ros60UserGuide.pdf, but it dosn't say much about development.

Thanks!

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!

one program in 1200 variations