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 Saul

Date:04/20/05
Author:Anonymous
URL:n/a
Comments:0
Info:http://keaggy.intmed.mcw.edu/saul.html
Score: (3.00 in 3 votes)
;
; 99 Bottles of Beer in SAUL
;    (http://keaggy.intmed.mcw.edu/saul.html)
;
; RTK, rkneusel@post.its.mcw.edu, 10-Apr-97
;

       fixn(0)
       setn(n,99)
:loop, putn(n)
       disp(` bottles of beer on the wall, `)
       putn(n)
       disp(` bottles of beer.`)
       putc(13)
       disp(`Take one down, pass it around, `)
       subt(n,1,m)
       putn(m)
       comp(m,1)
       brne(:here)
       disp(` bottle of beer on the wall.`)
       jump(:there) 
:here, disp(` bottles of beer on the wall.`)
:there,putc(13)
       putc(13)
       comp(n,2)
       breq(:last)
       subt(n,1,n)
       jump(:loop)
:last, disp(`1 bottle of beer on the wall, 1 bottle of beer.`)
       putc(13)
       disp(`Take one down, pass it around, `)
       disp(`no more bottles of beer on the wall.`)  
       endp

Download Source | Write Comment

Alternative Versions

Comments

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: