' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' >>>>Esperar a que termine<<<< la = 400 po = 400 am = 200 lo = 100 c1 = 9 c2 = 14 c3 = 10 c4 = 12 fo = 0 go = 200 SCREEN 12 PALETTE 12, 63 PAINT (1, 1), fo DO FOR a = 1 TO 640 + la B = a - la c = 640 - a d = 640 - B CIRCLE (B + 0, ((SIN(B / lo)) * am) + po), go, fo CIRCLE (a + 0, ((SIN(a / lo)) * am) + po), go, c1 CIRCLE (B + 0, ((SIN(B / lo)) * -am) + po), go, fo CIRCLE (a + 0, ((SIN(a / lo)) * -am) + po), go, c2 CIRCLE (d + 0, ((SIN(d / lo)) * am) + (479 - po)), go, fo CIRCLE (c + 0, ((SIN(c / lo)) * am) + (479 - po)), go, c3 CIRCLE (d + 0, ((SIN(d / lo)) * -am) + (479 - po)), go, fo CIRCLE (c + 0, ((SIN(c / lo)) * -am) + (479 - po)), go, c4 NEXT LOOP WHILE INKEY$ = ""