'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
RANDOMIZE TIMER
SCREEN 12
DO
   n = n + 1
   IF n > 680 THEN
      n = -50
      xx1 = INT(RND * 100)
      xx2 = INT(RND * 100)
      xx3 = INT(RND * 50)
      xx4 = INT(RND * 50)
   END IF

   ax1 = x1
   ax2 = x2
   ax3 = x3
   ax4 = x4
   ay1 = y1
   ay2 = y2
   ay3 = y3
   ay4 = y4

   x1 = n
   x2 = n
   x3 = n + 50
   x4 = n + 80
   y1 = SIN(n / 100) * xx1 + 350
   y2 = SIN(n / 80) * xx2 + 200
   y3 = SIN((n + 50) / 100) * xx3 + 350
   y4 = SIN((n + 60) / 90) * xx4 + 200


   LINE (x1, y1)-(x2, y2), n / 80 + 8
   LINE STEP(0, 0)-(x4, y4), n / 80 + 8
   LINE STEP(0, 0)-(x3, y3), n / 80 + 8
   LINE STEP(0, 0)-(x1, y1), n / 80 + 8

   FOR delay = 1 TO 300: NEXT

   LINE (ax1, ay1)-(ax2, ay2), 0
   LINE STEP(0, 0)-(ax4, ay4), 0
   LINE STEP(0, 0)-(ax3, ay3), 0
   LINE STEP(0, 0)-(ax1, ay1), 0


LOOP WHILE INKEY$ = ""