x = 1 ? decpos( x ) x = 1.1 ? decpos( x ) x = 1.12 ? decpos( x ) x = 1.123 ? decpos( x ) x = 1.1234 ? decpos( x ) x = 1.12345 ? decpos( x ) x = 1.123456 ? decpos( x ) func decpos lparameters lnX lnI = 0 llMatch = .F. do while NOT llMatch if ( lnX * ( 10 ^ lnI )) - int( lnX * (10 ^ lnI )) = 0 llMatch = .T. else lnI = lnI + 1 endif enddo return( lnI )