99 Bottles of Beer

Voting

Bookmarking

Language Action!

Date:	11/22/07
Author:	Michal Kaczmarczyk
URL:	n/a
Comments:	2
Info:	http://en.wikipedia.org/wiki/Action!
Score:	(2.83 in 23 votes)

; 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

Alternative Versions

Comments

Michal Kaczmarczyk said on 11/23/07 15:01:51

If you want to load this program into Atari you must change the newlines to ATASCII ones (code 155 decimal, or 9B hexadecimal).

Igor mc rams said on 05/28/08 12:36:11

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.

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