Voting
Category
real language
Bookmarking
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
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