Language Michigan Algorithm Decoder
Date: | 04/20/05 |
Author: | Eric S. Raymond |
URL: | n/a |
Comments: | 2 |
Info: | n/a |
Score: | ![]() |
By: Eric S. Raymond (http://www.catb.org/~esr/) THROUGH TAKEN,FOR I=100,-1,I.GE.2 PRINT FORMAT WALL,I,I PRINT FORMAT DOWN TAKEN PRINT FORMAT LEFT,I PRINT FORMAT WALL1 PRINT FORMAT DOWN PRINT FORMAT LEFT0 VECTOR VALUES WALL=$1H0,I2,30H BOTTLES OF BEER ON THE WALL, ,I2, 1 17H BOTTLES OF BEER,*$ VECTOR VALUES DOWN=$34H0TAKE ONE DOWN AND PASS IT AROUND,*$ VECTOR VALUES LEFT=$1H0,I2,17H BOTTLES OF BEER./*$ VECTOR VALUES WALL1=$33H01 BOTTLE OF BEER ON THE WALL,, 1 1 15H BOTTLE OF BEER*$ VECTOR VALUES LEFT0=$19H00 BOTTLES OF BEER.*$ END OF PROGRAM This is Michigan Algorithm Decoder, commonly known as MAD, an Algol 58 variant dating from 1962 on the IBM 709 and now long extinct. I'm working on a retrocompiler for it, and this code has been tested and works.
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
I still sometimes use the THROUGH-loop box when I'm flowcharting.