PROCEDURE tetonDeVenus;
   
VAR
   s:INTEGER; (*s sets the side of the oval*)

BEGIN

   MOVETO (10,10); 

   PenFore (254); (*makes the large circles second*)
   PenSize (56);
   FOR s:=1 to 20 DO BEGIN
   oval(10,10,(-s*.5),(-s*.5));
   END;

   MOVETO (0,0);

   PenFore (79); (*makes the small circles first*)
   PenSize (28);
   FOR s:=1 to 10 DO BEGIN
   oval(0,0,s,s);
   END;   
   
END;

RUN(tetonDeVenus);

PROCEDURE taTami;

VAR
   v,h:INTEGER;         (*sets the vertical value, h sets the horizontal value*)
                  (*w sets the width of column*)
BEGIN

   PenFore (165);       (*draws the orange lines*)
   PenSize (48);
   For v:=10 to 200 DO BEGIN
   MoveTo (-h,-v);
   Line (10,10);
   END;

   PenFore (77);        (*draws the violet lines*)
   PenSize (24);
   For v:=10 to 200 DO BEGIN
   MoveTo (-h+10,-v+10);
   Line (10+3,-10+3);
   END;

   PenFore (249);        (*draws the tealblue lines*)
   PenSize (48);
   For v:=10 to 200 DO BEGIN
   MoveTo (-h+23,-v); (*changes the beginning position of the column*)
   Line (10+6,10+6);     (* the + makes the diagonal longer*)
   END;
   
END;

RUN(taTami);

PROCEDURE squares;
   
VAR
   s:INTEGER; (*s sets the side of the square*)

BEGIN

   MOVETO (0,0);

   PenFore (79);
   PenSize (28);
   FOR s:=1 to 10 DO BEGIN
   rect(0,0,s,s);
   END;   

   MOVETO (10,10);

   PenFore (254);
   PenSize (56);
   FOR s:=1 to 20 DO BEGIN
   rect(10,10,(-s*.5),(-s*.5));
   END;
   
END;

RUN(squares);