Language CUPL
Date: | 04/20/05 |
Author: | Anonymous |
URL: | n/a |
Comments: | 0 |
Info: | n/a |
Score: | (2.98 in 95 votes) |
CUPL is the Cornell University Programming Language (c. 1966) COMMENT 99 BOTTLES IN CUPL (CORNELL UNIVERSITY PROGRAMMING LANGUAGE, C. 1966) COMMENT DAVE PLONKA - PLONKA@DOIT.WISC.EDU COMMENT FEB 17 1998 LET N = 99 PERFORM SONG WHILE N GT 2 LINES BLOCK WRITE /N, ' BOTTLES OF BEER ON THE WALL,' WRITE /N, ' BOTTLES OF BEER,' LINES END LINE BLOCK WRITE 'TAKE ONE DOWN, PASS IT AROUND,' LINE END SONG BLOCK PERFORM LINES PERFORM LINE LET N = N - 1 WRITE /N, ' BOTTLES OF BEER ON THE WALL.' WRITE '' SONG END PERFORM LINES PERFORM LINE WRITE '1 BOTTLE OF BEER ON THE WALL.' WRITE '' WRITE '1 BOTTLE OF BEER ON THE WALL,' WRITE '1 BOTTLE OF BEER,' PERFORM LINE WRITE 'NO BOTTLES OF BEER ON THE WALL.' STOP
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