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 RPG II

(RPG on the System/34,36,or 370)

Date:02/06/08
Author:Jesse McKay
URL:n/a
Comments:0
Info:http://wiki.midrange.com/index.php/RPG_II
Score: (2.93 in 14 votes)
     H                                                                    BOTTLE
     F*
     F* RPG II VERSION OF THE BOTTLES PROGRAM 
     F*
     FWORKSTN CD  F     128            WORKSTN
     IWORKSTN NS  01   1 CA
     I        NS
     C                     READ WORKSTN                  01
     C                     DO   99        W       30
     C           100       SUB  W         X       30
     C           X         COMP 1                        13
     C           X         SUB  1         Y              15
     C           Y         COMP 1                        14
     C                     EXCPTWRTFMT
     C                     END
     C                     SETON                     LR
     OWORKSTN E                WRTFMT
     O                                   K4 'FMT1'
     O                         X     1    3
     O                      N13          11 'BOTTLES'
     O                       13          10 'BOTTLE'
     O                                   26 'OF BEER ON THE'
     O                                   31 'WALL,'
     O                         X     1   36
     O                      N13          46 'BOTTLES'
     O                       13          45 'BOTTLE'
     O                                   54 'OF BEER,'
     O                                   76 'TAKE ONE DOWN AND PASS'
     O                                   87 'IT AROUND,'
     O                       15Y     1   93
     O                      N15          93 'NO'
     O                      N14         101 'BOTTLES'
     O                       14         100 'BOTTLE'
     O                                  116 'OF BEER ON THE'
     O                                  121 'WALL.'
     O        DR       LR

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: