the following will print the digits from the least significant to the most significant digit, for example 108.00 will be printed as 0,0,8,0,1

`dim as string s, digit`

dim as double xmin, xmax, dx, y

dim as long length, i

xmin=87.5#

xmax=108#

dx=.01#

for y=xmin to xmax+dx step dx

s=using$("######.##", y)

'print "the digits from the least to the most significant are"

length=len(s)

for i=length to 1 step -1

digit=mid$(s, i, 1)

if digit<>"." then

print digit;

if i>1 then

print ",";

else

print

end if

end if

next i

next y

pause