pround Example
10 Number=656576.2346516
20 CLEAR SCREEN
30 PRINT "Rounding the number:";Number
40 FOR Roundto=-6 TO 6
50 PRINT Roundto,PROUND(Number,Roundto)
60 NEXT Roundto
70 END