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

TriciaWoodward35 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