100 REM CIRCLE DEMONSTRATION›110 REM PROGRAM #2›120 REM ›130 REM ›140 REM THIS METHOD TAKES APPROXIMATELY 11 SECONDS›200 DEG ›210 GRAPHICS 8›220 COLOR 1›230 SETCOLOR 2,0,0›240 A=160›250 B=80›260 R=50›270 PLOT A+R,B›300 FOR ALPHA=0 TO 45›310 X1=INT(R*COS(ALPHA)+0.5)›320 Y1=INT(R*SIN(ALPHA)+0.5)›330 PLOT A+X1,B+Y1›340 PLOT A-X1,B+Y1›350 PLOT A+X1,B-Y1›360 PLOT A-X1,B-Y1›370 PLOT A+Y1,B+X1›380 PLOT A-Y1,B+X1›390 PLOT A+Y1,B-X1›400 PLOT A-Y1,B-X1›410 NEXT ALPHA›