CLRDRAW
GRIDOFF
1 -> Ymax
-1 -> Ymin
1.5 -> Xmax
-1.5 -> Xmin
1 -> Yscl
1 -> Xscl
CLRHOME
INPUT "HOW MANY:",A
FOR(X,1,A)
LBL A
RAND -> B
RAND -> C
IF B^2+C^2 <= 1:GOTO E
END
GOTO F
LBL E
PT-ON(B^2,C^2
PT-ON(-B^2,-C^2
PT-ON(-B^2,C^2
PT-ON(B^2,-C^2
PT-ON(C^2,B^2
PT-ON(C^2,-B^2
PT-ON(-C^2,B^2
PT-ON(-C^2,-B^2
GOTO A
LBL F
PAUSE
CLRHOME