' © 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$ = ""