Sorry your browser is not supported!

Float# = 145.67
Print Rounding_To_Fifty(Float#, 1)
Wait key
end



Function Rounding_To_Fifty(Float#, RoundUp)
   rem Get the two fifties around Float#
   OldTest# = Int(Float#/50)*50
   Test# = OldTest# + 50.0

   rem If the input is a multiple of 50.0, return the original number
   If (Float# = OldTest#) or (Float# = Test#) then ExitFunction Float#

   rem Round to nearest 50
   If Float#>OldTest# and Float#<(OldTest#+25.0)
      Float# = OldTest#
      ExitFunction Float#
   endif

   If Float#<Test# and Float#>(Test#-25.0)
      Float# = Test#
      ExitFunction Float#
   endif

   rem If Float# is exactly between the two test values
   If Float# = Test#-25.0
      If RoundUp = 1
         Float#  = Test#
      else
         Float#  = OldTest#
      endif
   endif
EndFunction FLoat#

function round(n#)
   n = int(n#+n#)-int(n#)
endfunction n

function round(n#,r)
   n#= n#/r
   n= int(n#+n#)-int(n#)
   n= n*r
endfunction n

print round(75.0,50)
print round(33.554,12)
print round(160.61,90)

end
function round(n#,r)
   n#= n#/r
   n= int(n#+n#)-int(n#)
   n= n*r
endfunction n