/*Programa: Estrella6puntas

      Autores: Lidia y Pablo

      Descripción: Este programa dibuja una estrella de 6 puntas*/

 

Program Estrella6Puntas

 

      Method Main()

 

            Define x As Integer=40

            Define y As Integer=10

            Define contador As Integer

           

            Pen(False)

            Moveto(x,y)

            Pen(True)

            Color(blue)

            PenWidth(3)

           

            While x<=70

                  y=y+1

                  x=x+1

                  MoveTo(x,y)

                  Delay(10)

            End While

           

            While x>=10

                  y=y

                  x=x-1

                  MoveTo(x,y)

                  Delay(10)

            End While

           

            While x<40

                  y=y-1

                  x=x+1

                  MoveTo(x,y)

                  Delay(10)

            End While

           

            Pen(False)

            While y<=50

                  y=y+1

                  x=x

                  MoveTo(x,y)

                  Delay(10)

            End While

            Pen(True)

           

            While x>=10

                  y=y-1

                  x=x-1

                  MoveTo(x,y)

                  Delay(10)

            End While

           

            While x<=70

                  y=y

                  x=x+1

                  MoveTo(x,y)

                  Delay(10)

            End While

           

            While x>40

                  y=y+1

                  x=x-1

                  MoveTo(x,y)

                  Delay(10)

            End While

 

      End Method

 

End Program