用VFP计算平方根(例如sqtr(2))到6万5千位小数的程序.

				* spaceto0.prg
				* 将字符串中的空格换为0
				parameters h
				private except eachlen,alllen
				l=len(h)
				for j=1 to l
				   *@ 9,10 say "spaceto0"+str(j)
				   k=substr(h,j,1)
				   k=iif(k=" ","0",k)
				   h=left(h,j-1)+k+substr(h,j+1,l)
				next j
				return h