56 lines
1.4 KiB
Text
56 lines
1.4 KiB
Text
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
|