Basic - Raiz cuadrada (Programa)

'Programa raiz cuadrada

'lrcvs

'12 Jan 2010

'Este programa esta basado en el algoritmo de la division aritmetica.

cls

'a$ = numero para la raiz cuadrada

a$ = "25521342100008787"

la = INT(LEN(a$) / 2) + 1
c$ = STRING$(la, "0")
FOR r = 1 TO la
FOR s = 0 TO 9
MID$(c$, r) = LTRIM$(STR$(s))
v$ = LTRIM$(STR$(VAL(c$) * VAL(c$)))
'IF VAL(v$) = VAL(a$) THEN PRINT v$
IF VAL(a$) > VAL(v$) THEN MID$(c$, r) = LTRIM$(STR$(s))
IF VAL(a$) < VAL(v$) THEN MID$(c$, r) = LTRIM$(STR$(s - 1)): EXIT FOR
NEXT s
NEXT r

t$ = LTRIM$(STR$(VAL(a$) - (VAL(c$) * VAL(c$))))
d$ = LTRIM$(STR$(VAL(t$) / (VAL(c$)) / 2))

PRINT "Raiz cuadrada de = "; a$
PRINT
PRINT "Programa = "; LTRIM$(STR$(VAL(c$))) + " . " + RIGHT$(d$, LEN(d$) - 1)
PRINT
PRINT "Resto = "; t$
PRINT
PRINT "Ordenador = "; SQR(VAL(a$))
SLEEP
END

necesito hacer 3 raices cuadradas para la recuperacion de matematicas como la hago ayudaa