blitz3d and floats - strange problem

Notice what happens if you do this instead:

value# = 1000 

For loop = 1 To 25 
	Print value# 
	If value# >=0.1
		;value# = value# - 0.1 
		value# = value# * 10
		value# = value# - 1
		value# = value# / 10.0
	End If 
Next 

WaitKey