USR EVEN
evenNumber& = USR EVEN(number&)
現在のアドレスより大きく最も近い偶数アドレスを返します。