Language Action!
Date: | 11/22/07 |
Author: | Michal Kaczmarczyk |
URL: | n/a |
Comments: | 2 |
Info: | http://en.wikipedia.org/wiki/Action! |
Score: | ![]() |
; 99 bottles of beer ; Action! version ; by Michal Kaczmarczyk ; (this is an Atari 8-bit ; programming language) PROC Main() CARD i i=99 WHILE i>0 DO PrintC(i) Print(" bottle") IF i<>1 THEN Print("s") FI PrintE(" of beer on the wall,") PrintC(i) Print(" bottle") IF i<>1 THEN Print("s") FI PrintE(" of beer,") PrintE("Take one down, pass it around,") i==-1 IF i=0 THEN Print("No") ELSE PrintC(i) FI Print(" bottle") IF i<>1 THEN Print("s") FI PrintE(" of beer on the wall.") PrintE() OD RETURN
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
Michal,
hello, I'm looking for one Michal Kaczmarczyk. Are you this person ? Are you the son of Olga ? Thank you for your answer. Igor.