//
PROC main;
	$1 = 0;
	loop 1;
		try;
			if %1 == '0';
				$1 = %1/0;
				print $1;
			elseif %1 == 'b';
				break;
			elseif %1 == 'c';
				continue;
			elseif %1 == 'r';
				return ERROR;
			elseif %1 == 'e';
				exit;
			else;
				try;
					$2 = 2/0;
//				catch ALL_EXCEPTION | MATH_EXCEPTION;
//				catch ALL_EXCEPTION + 0;
				catch ALL_EXCEPTION;
//				catch ALL_ERROR_EXCEPTION;
					print 'tt:catch' ERRMSG /x EXCEPTION;
					$1 = x;
				finally;
					print 'tt:Finally' /x EXCEPTION;
				end try;
				print 'else';
			endif;
			print $1++;
		catch;
			print 'catch' ERRMSG /x EXCEPTION;
		finally;
			print 'Finally' /x EXCEPTION;
		end try;
		print 'loop';
	end loop;
	print /x EXCEPTION;
	RETURN $ERROR;
END PROC;
