   1 CLS : LET P=CODE "b": LET N=INT SQR P: LET E=SGN N: FOR Y=-N-E TO N: PRINT : FOR X=P-CODE "r" TO N: LET H=Y*Y+X*X: LET R=N+E+E
   2 IF R AND H<P THEN IF CODE "EBW7b6i-m'o"(R)-CODE "%"<>H AND X*Y THEN LET R=R-E: GO TO E+E
   3 PRINT " *"(E+(R>=E AND H<=P));: NEXT X: NEXT Y: PAUSE E-E
