CLRHOME
CLRDRAW
INPUT "HOW MANY:",A
ABS IPART A -> A
2A -> XMAX
-2A -> XMIN
A -> YMAX
-A -> YMIN
1 -> XSCL
1 -> YSCL
FOR(B,1,A)
DRAWF squareroot(B^2-X^2)
DRAWF -squareroot(B^2-X^2)
END
LINE(-A,A,-2,2)
LINE(A,A,2,2)
LINE(-A,-A,-2,-2)
LINE(A,-A,2,-2)
LINE(2A,0,2,0)
LINE(-2A,0,-2,0)
