FUNCTION ceil (x AS _FLOAT)
DIM decimal AS _FLOAT
decimal = x - FIX(x)
ceil = FIX(x)
IF decimal > 0 THEN ceil = ceil + 1
END FUNCTION