/*Programa: Rectángulo

      Autores: Lidia y Pablo

      Descripción: Este programa dibuja un rectángulo*/

 

Program Rectangulo

 

      Method Main()

 

            Define x As Integer=100

            Define y As Integer=100

            Define contador As Integer

           

            Pen(False)

            MoveTo(x,y)

            Pen (True)

            Color(green)

            PenWidth(5)

           

            For contador=1 To 100

                  x=x

                  y=y+1

                  MoveTo(x,y)

                  Delay(3)

            Next

           

            For contador=1 To 200

                  x=x+1

                  y=y

                  MoveTo(x,y)

                  Delay(3)

            Next

           

            For contador=1 To 100

                  x=x

                  y=y-1

                  MoveTo(x,y)

                  Delay(3)

            Next

           

            For contador=1 To 200

                  x=x-1

                  y=y

                  MoveTo(x,y)

                  Delay(3)

            Next

 

      End Method

 

End Program