100 REM CIRCLE DEMONSTRATION›110 REM PROGRAM #5›120 REM ›130 REM ›140 REM THIS METHOD TAKES APPROXIMATELY 3 SECONDS›210 GRAPHICS 8›220 COLOR 1›230 SETCOLOR 2,0,0›240 A=160›250 B=80›260 R=50›270 PHI=0›280 Y1=0›290 X1=R›300 PHIY=PHI+Y1+Y1+1›310 PHIXY=PHIY-X1-X1+1›400 PLOT A+X1,B+Y1›410 PLOT A-X1,B+Y1›420 PLOT A+X1,B-Y1›430 PLOT A-X1,B-Y1›440 PLOT A+Y1,B+X1›450 PLOT A-Y1,B+X1›460 PLOT A+Y1,B-X1›470 PLOT A-Y1,B-X1›500 PHI=PHIY›510 Y1=Y1+1›520 IF ABS(PHIXY)=Y1 THEN 300›