I don't often work with numbers, but when I do....

[bplus]

This works with unsimplified too:

Code: QB64: [Select]

1. _ScreenMove 100, 0: Width 80, 42
2. Dim As Double a, b
3. a = .01
4. b = 32767
5. For j = 1 To 120
6.     b = b + a
7.     r = Round##(b, 2)
8.     Print j; r
9.     ' IF j MOD 40 = 0 THEN SLEEP
10. Next
11.  
12.  
13. Function Round## (num As Double, digits As Long) 'unsimplified
14.     Round## = Int((num + .5 * 10 ^ -digits) * 10 ^ digits) / 10 ^ digits
15. End Function
16.