99 Bottles of Beer

Voting

Bookmarking

Language VP

Date:	04/20/05
Author:	David Given
URL:	n/a
Comments:	1
Info:	http://www.cowlark.com
Score:	(2.93 in 14 votes)

; VP is the high-level portable assembly language used by 
; Tao's intent operating system.
; David Given, http://www.cowlark.com

.include "tao"

tool "app/stdio/bottles", VP, F_MAIN, 4096, 0
ent (- : -)
	regdef int number

	cpy.i 99, number
	while (number > 0)
		gos bottle, (number : -)
		printf " of beer on the wall,\n"
		gos bottle, (number : -)
		printf " of beer.\n"
		printf "Take one down and pass it around,\n"
		dec.i number
		gos bottle, (number : -)
		printf " of beer on the wall.\n\n"
	endwhile

	ret ()
entend

bottle:
ent (int number : -)
	if (number == 0)
		printf "No bottles"
	elseif (number == 1)
		printf "One bottle"
	else
		printf "%d bottles", number
	endif
	ret ()
entend
toolend

Download Source | Write Comment

Alternative Versions

Comments

TriciaWoodward35 said on 06/01/10 14:52:43

I propose not to hold off until you earn enough cash to buy goods! You should get the <a href="http://lowest-rate-loans.com/topics/credit-loans">credit loans</a> or sba loan and feel yourself free

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