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'