//
PROC main;
	try;
		$1 = 1;
		print $1;
		try;
			fopen('xxxxx');
//		catch FILE_OPEN_EXCEPTION;
//			print 'open' "EXCEPTION to 'x'";
		catch ;
			a();
			print 'catch';
		finally;
			print 'pp:Finally';
		end try;
	catch -1,-3;
		print EXCEPTION;
	catch -2;
		print EXCEPTION;
	catch ;
		if -EXCEPTION & 1;
			print "(-EXCEPTION & 1)";
		end if;
		if -EXCEPTION & 2;
			print "(-EXCEPTION & 2)";
		end if;
//	finally;
	finally;
		print 'Finally';
	end try;
	print EXCEPTION;
	RETURN $ERROR;
END PROC;
