' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SCREEN 12 LINE (0, 451)-(640, 480), 7, BF CIRCLE (100, 100), 50, 9 CIRCLE (100, 100), 50, 9, , , 2.5 PAINT (75, 100), 2, 9 PAINT (100, 100), 14, 9 PAINT (125, 100), 12, 9 DIM pelota(1 TO 1350) GET (50, 50)-(150, 150), pelota PUT (50, 50), pelota, XOR c = -1 DO SELECT CASE c CASE 1: c = -1: ini = 538: fin = 0 CASE -1: c = 1: ini = 0: fin = 538 END SELECT FOR a = ini TO fin STEP (20 * c) PUT (a, (SIN(a / 20) * (150 - (a / 5))) + 200 + (a / 5)), pelota, XOR FOR DELAY = 1 TO 5000: NEXT PUT (a, (SIN(a / 20) * (150 - (a / 5))) + 200 + (a / 5)), pelota, XOR NEXT LOOP WHILE INKEY$ = ""