99 Bottles of Beer

Voting

Bookmarking

Support Us

Language Michigan Algorithmic Decoder (MAD)

(This version really works.)

Date:	09/28/10
Author:	Dave Pitts
URL:	n/a
Comments:	0
Info:	n/a
Score:	(2.00 in 1 votes)

            INTEGER I
            THROUGH TAKEN, FOR I = 99, -1, I .L. 2
            PRINT FORMAT WALL, I, I
            PRINT FORMAT DOWN
            WHENEVER I - 1 .L. 2, TRANSFER TO ONE
            PRINT FORMAT LEFT, I - 1
            TRANSFER TO TAKEN
ONE         PRINT FORMAT LEFT1, 1
TAKEN       CONTINUE
            PRINT FORMAT WALL1, 1, 1
            PRINT FORMAT DOWN
            PRINT FORMAT LEFT0
            VECTOR VALUES WALL=$1H ,I2,30H BOTTLES OF BEER ON THE WALL,
          1 ,I2,17H BOTTLES OF BEER,*$
            VECTOR VALUES WALL1=$1H ,I2,29H BOTTLE OF BEER ON THE WALL,
          1 ,I2,16H BOTTLE OF BEER,*$
            VECTOR VALUES DOWN=$34H TAKE ONE DOWN AND PASS IT AROUND,*$
            VECTOR VALUES LEFT=$1H ,I2,17H BOTTLES OF BEER./*$
            VECTOR VALUES LEFT1=$1H ,I2,16H BOTTLE OF BEER./*$
            VECTOR VALUES LEFT0=$20H NO BOTTLES OF BEER./*$
            END OF PROGRAM

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 1442 variations