Voting

Category

real language

Bookmarking

Del.icio.us Digg Diigo DZone Earthlink Google Kick.ie
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

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

Michal Kaczmarczyk 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

Igor mc rams
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!

Name:

eMail:

URL:

Security Code:
  
Comment: