dosub.prg

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

* dosub
public eachlen,alllen
eachlen=10
a="20"+replicate("0",18)
b="15"+replicate("0",18)
alllen=len(a)
c=longsub(a,b)
? time()
wait
? a
? b
? c
return