FUNCTION FormatPrice( Price, Denom, Precision)
	IF ( Denom = 1 )
		RETURN STRING( Price, Precision )
	ELSE
		IntPrice = INT( Price )
		Numer = ( Price - IntPrice ) * Denom

		IF ( Numer = 0 )
			RETURN STR( IntPrice ) & "      "
		ELSE
			WHILE( 1 )
				IF ( MOD( Numer, 2 ) = 0 )
					Numer = Numer / 2
					Denom = Denom / 2
				ELSE
					EXIT WHILE
				END IF
			END WHILE

			IF( IntPrice = 0 )
				RETURN "   " & STRING(Numer,0) &
					"/" & STRING(Denom,0)
			ELSE
				RETURN STR( IntPrice ) & " " &
					STRING( ABS( Numer ) ,0 ) &
					"/" & STRING( Denom, 0 )
			END IF
		END IF
	END IF
END FUNCTION