real language

Bookmarking Digg Diigo DZone Earthlink Google
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

Language Zim

Author:Rodrigo Euzébio Nunes
Score: (2.97 in 29 votes)
%% Zim Version 7.11
%% Rodrigo Euzébio Nunes
Procedure BeerSong() Local(b)
  out '99 bottles of beer on the wall'
  out '99 bottles of beer'
  out 'You take one down and pass it around'
  let b= 98
  While b > 2
    Out $Concat($Trim(b), ' bottles of beer on the wall.')
    Out ''
    Out $Concat($Trim(b), ' bottles of beer on the wall')
    Out $Concat($Trim(b), ' bottles of beer')
    Out 'You take one down and pass it around'
    let b= b-1
  let b= 1
  out $Concat( $Trim(b), ' bottle of beer on the wall')
  out ''
  out $Concat( $Trim(b), ' bottle of beer')
  out 'You take one down and pass it around'
  out 'No bottles of beer on the wall!'

Download Source | Write Comment

Alternative Versions


>>  Dan Davis said on 07/20/06 19:19:45

Dan Davis Hello, I'm a zim contractor looking for other customers/companies using ZIM. Do you know of anyone using ZIM that needs some ZIM 7.11 or other help.????

Dan Davis
North American 905-855-5151 (Toronto, Canada ).

>>  Rodrigo E. Nunes said on 05/08/07 23:25:44

Rodrigo E. Nunes No, I don't know.
Rodrigo E. Nunes
South American, Brazil

>>  Dan Davis said on 12/17/08 21:07:31

Dan Davis Hi again, the ZIM help is still available, but use 905-855-3316 as the old number for Ironwood has been changed, effective 2008-12-01.

Thanks everyone,
Dan Davis

>>  Dan Davis said on 08/12/09 22:51:12

Dan Davis Ironwood's phone number has been changed to 416-948-2978
and there are new websites are and

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!




Security Code: