Sample program for the 488 project language, demonstrating all loop exit constructs

A1c.488

% a program using all forms of loop building and exit constructs including multi-level exit.

begin
	integer sum(integer start, integer end)
	begin
		integer i, sum
		i := start
		sum := 0
		loop
			if i > end then exit fi
			sum := i
			i := i + 1
		pool
		result sum
	end

	integer factorial(integer n)
	begin
		integer f
		f := 1
		loop
			f := f * n
			n := n - 1
			exit when n <= 1
		pool
		result f
	end

	proc hello_world()
	begin
		loop
			put "h"
			loop
				put "e"
				loop
					put "l"
					loop
						put "l"
						loop
							put "o"
							exit 5
						pool
					pool
				pool
			pool
		pool
		put " world", skip
		return
	end

	proc count_to_100()
	begin
		integer tens, ones
		tens:= 0
		loop
			ones := 0
			loop
				ones := ones + 1
				put tens * 10 + ones, skip
				exit 2 when tens * 10 + ones = 99
				exit when ones = 9
			pool
			tens := tens + 1
		pool
		put "one hundred!", skip
		return
	end
	
	hello_world()
	put "sum from 1 to 100 = ", sum(1, 100), skip
	put "and 10 factorial = ", factorial(10), skip
	put "now counting to 100...", skip
	count_to_100()
end