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