99 Bottles of Beer

Voting

Bookmarking

Language RNF2

(text formatter)

Date:	10/05/08
Author:	Dave Anderson
URL:	n/a
Comments:	0
Info:	n/a
Score:	(2.00 in 1 votes)

.TITLE The Bottles of Beer Song in RNF2

.REM This was a Runoff-style text formatter for the CDC Cyber mainframes
.REM Author: Dave Anderson, former UMass Amherst computing center employee

.NOJ .NOF               .REM turn off justification & fill
.P +0 1 4               .REM set pp, need at least 4 lines
.VAR $BTLS = 99         .REM the count of bottles

.MACRO BWORD bottle .IF $BTLS.NE.1 .X s      .REM generate bottle(s)

.MACRO TXT $BTLS .BWORD of beer              .REM # bottles of beer

.MACRO ONWALL 1 .TXT on the wall .X .ONWALL1 .REM put'em on the wall, with punct

.MACRO FIRST .ONWALL _,  .BR
.MACRO SECOND $TXT .X _, .BR                 .REM just the beer
.MACRO THIRD Take one down and pass it around, .BR
.MACRO FOURTH .ONWALL _. .PP

.MACRO LAST 1 No .BWORD of beer on the wall .X .LAST1  .REM special case for 0

.MACRO SONG .FIRST .SECOND .THIRD .FOURTH  $BTLS=$BTLS-1 .IF $BTLS.NE.0 .AGAIN

.SONG
.LAST _, .BR No .BWORD of beer, .BR
Go to the store and buy some more, .BR $BTLS=99 .ONWALL _.

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!

one program in 1500 variations