SET WINDOW -5,5,-5,5
DRAW GRID
SET LINE COLOR 3
FOR n=1 TO 200
   FOR T=-PI TO PI STEP 0.002
      PLOT LINES: n*SIN(T)/100-2,n*COS(T)/200+1;
   NEXT T
NEXT n
PLOT LINES
SET LINE COLOR 5
FOR n=1 TO 400
   FOR T=0 TO PI/2 STEP 0.002
      PLOT LINES: n*SIN(T)/100,n*COS(T)/100;
   NEXT T
NEXT n
SET AREA COLOR 6
PLOT AREA:-4,-4;0,-4;-2,0
SET AREA COLOR 15
PLOT AREA:0,-4;4,-4;4,0;0,O
END



#####################################################################



SET WINDOW -5,5,-5,5
DRAW GRID
SET LINE COLOR 3
SET AREA COLOR 3
DRAW CIRCLE WITH SCALE(2,1)*SHIFT(-2,1)
PAINT -2,1
PLOT LINES
SET LINE COLOR 5
FOR n=1 TO 400
   FOR T=0 TO PI/2 STEP 0.002
      PLOT LINES: n*SIN(T)/100,n*COS(T)/100;
   NEXT T
NEXT n
SET AREA COLOR 6
PLOT AREA:-4,-4;0,-4;-2,0
SET AREA COLOR 15
PLOT AREA:0,-4;4,-4;4,0;0,O
END