Func _RIM_to_HEX($RIM)
	If $RIM = "I" Then $RIM = 1
	If $RIM = "II" Then $RIM = 2
	If $RIM = "I-II" Then $RIM = 1 + 2
	If $RIM = "III" Then $RIM = 4
	If $RIM = "II-III" Then $RIM = 2 + 4
	If $RIM = "I-III" Then $RIM = 1 + 2 + 4
	If $RIM = "IV" Then $RIM = 8
	If $RIM = "III-IV" Then $RIM = 4 + 8
	If $RIM = "II-IV" Then $RIM = 2 + 4 + 8
	If $RIM = "I-IV" Then $RIM = 1 + 2 + 4 + 8
	Return $RIM
EndFunc   ;==>_RIM_to_HEX