' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SOL Y MAR SCREEN 12 PALETTE 4, 63 PAINT (1, 1), 11 LINE (0, 300)-(640, 480), 9, BF FOR A = 10 TO 630 STEP 20 CIRCLE (A, 290), 20, 11 PAINT (A, 308), 11, 11 NEXT CIRCLE (100, 100), 50, 14 PAINT (100, 100), 14, 14 l = 4 FOR s = 0 TO 359 IF l = 4 THEN : nn = 3 IF l = 22 THEN : nn = -3 l = l + nn DRAW "bm100,100 c4 ta" + STR$(s) + "br51r" + STR$(l) NEXT DIM SHARED m1(0 TO 350) DIM SHARED m2(0 TO 3) DO GET (0, 308)-(638, 310), m1 GET (639, 308)-(639, 310), m2 PUT (0, 308), m2, PSET PUT (1, 308), m1, PSET FOR delay = 1 TO 70: NEXT LOOP WHILE INKEY$ = ""