C-FOCAL,1969 01.01 E 01.10 C CUBE ROOT FINDER; T !! 03.01 A ?X? 03.03 S Y=FABS(X) 03.05 S A=FSQT(Y)/2 03.07 F I=1,10; D 4 03.08 G 3.13 03.13 T "CUBE ROOT OF X",FSGN(X)*A; T !! 03.14 G 3.01 04.05 S B=Y/A^2 04.06 S A=(2*A+B)/3 04.07 R *