home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
dbadv.zip
/
ROUND.PRG
< prev
next >
Wrap
Text File
|
1986-02-25
|
370b
|
10 lines
****create number for rounding up*******
***** subroutine *********
STORE "." + $( "000000000" ,1,digits) + "5" TO rounder
* create the number for shifting the decimal place
STORE "1" + $( "000000000" ,1,digits) + "." +;
$( "000000000" ,1,digits) TO shift
* perform the rounding
STORE (int((number+&rounder)*&shift))/&shift TO newnumber
RELEASE rounder, shift