DECLARE FUNCTION PriceFraction! (price AS SINGLE)

RANDOMIZE TIMER
DIM x AS SINGLE
x = RND
PRINT x, PriceFraction(x)

FUNCTION PriceFraction! (price AS SINGLE)
    'returns price unchanged if invalid value
    SELECT CASE price
        CASE IS < 0!
            PriceFraction! = price
        CASE IS < .06
            PriceFraction! = .1
        CASE IS < .11
            PriceFraction! = .18
        CASE IS < .16
            PriceFraction! = .26
        CASE IS < .21
            PriceFraction! = .32
        CASE IS < .26
            PriceFraction! = .38
        CASE IS < .31
            PriceFraction! = .44
        CASE IS < .36
            PriceFraction! = .5
        CASE IS < .41
            PriceFraction! = .54
        CASE IS < .46
            PriceFraction! = .58
        CASE IS < .51
            PriceFraction! = .62
        CASE IS < .56
            PriceFraction! = .66
        CASE IS < .61
            PriceFraction! = .7
        CASE IS < .66
            PriceFraction! = .74
        CASE IS < .71
            PriceFraction! = .78
        CASE IS < .76
            PriceFraction! = .82
        CASE IS < .81
            PriceFraction! = .86
        CASE IS < .86
            PriceFraction! = .9
        CASE IS < .91
            PriceFraction! = .94
        CASE IS < .96
            PriceFraction! = .98
        CASE IS < 1.01
            PriceFraction! = 1!
        CASE ELSE
            PriceFraction! = price
    END SELECT
END FUNCTION