lparam n2Square, nDPs
local nResult

if !type('n2Square')='N' or n2Square < 0
	wait window 'The Number 2 Square is invalid'
	return -1
endif

if !type('nDPs')='N' or nDPs < 0
	nDPs = 2
endif

set decimal to iif(nDPs > 10, 10, int(nDPs))

nResult = 0
for nDP = 0 to -1*nDPs step -1
	do while (nResult + 10^ndp)^2 =< n2Square		
		nResult = nResult + 10^nDP
	enddo
endfor
return nResult