SQRT for Color Basic

Issue: Microcomputer NEWS, April 1981 V3N04 Pag.11

The Square Root function in standard Color BASIC (or should I say the lack of one). The RSC-4 catalog claimed a SQR function was available in standard Color BASIC, but it is only available in Extended Color BASIC. This being the case, here is a short subroutine you can use to figure square roots in your programs:

A = your number 
B = square root (A)

10 B=A/3
20 B=.5*(B+A/B)
30 C=B*B
35 C=INT(C*10000+.5)/10000
40 IF C<>A THEN GOTO 20