1 LET R, 1.0
2 LET DIV, 1.0
3 LET N, 0
4 CLEAR(); .MAIN
5 LET DELTA, 2.0 - R*R
6 (ABS(DELTA) < 0.00001):GOTO END
7 R = R + DIV * SIGN(DELTA)
8 DIV = DIV * 0.99
9 PRINTM("*", N / 10, (R-1.0) * 20)
10 LET N, N+1
11 GOTO MAIN
12 .END; PRINT R
