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/400

Date:04/20/05
Author:Anonymous
URL:n/a
Comments:4
Info:n/a
Score: (3.02 in 105 votes)
     H*
     H* RPG/400 VERSION OF THE BOTTLES PROGRAM *
     H*
     FSCREEN  O   F      80            WORKSTN
     C                     MOVE 100       X       30
     C           X         DOWGE0
     C                     EXCPT
     C                     SUB  1         X
     C                     END
     C                     SETON                     LR
     OSCREEN  E
     O                         X          3
     O                                   26 'BOTTLES OF BEER ON THE'
     O                                   31 'WALL,'
     O                         X         36
     O                                   53 'BOTTLES OF BEER'
     O        E
     O                                   22 'TAKE ONE DOWN AND PASS'
     O                                   32 'IT AROUND'

Download Source | Write Comment

Alternative Versions

Comments

>>  Bhanu Sharma said on 08/24/05 14:02:34

Bhanu Sharma hi
please send me the code in rpg hardcoded of a printer file not via dds.

>>  syed said on 01/16/08 06:27:23

syed hi guys

i need RPG400 coding. please send if any web site or programming skills softcopy to my mail id bashasalmen@gmail.com

>>  DANIEL said on 10/28/08 11:57:28

DANIEL no anda.

>>  matteo said on 04/14/09 23:47:20

matteo nice! but, in this program there isn't the last sentence of the song:
No more bottles of beer on the wall, no more bottles of beer.
Go to the store and buy some more, 99 bottles of beer on the wall.

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: