' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SCREEN 12 PALETTE 12, 63 PALETTE 8, 0 CONST PI = 3.141592654# PAINT (1, 1), 15 PSET (95, 240) FOR A = 1 TO 100 CIRCLE STEP(1, 0), 50, 8, 3 * (PI / 2), (PI / 2) CIRCLE STEP(0, 0), 25, 14, (PI / 2), 3 * (PI / 2) NEXT PSET (525, 240) FOR A = 1 TO 100 CIRCLE STEP(-1, 0), 50, 8, (PI / 2), 3 * (PI / 2) CIRCLE STEP(0, 0), 25, 12, 3 * (PI / 2), (PI / 2) NEXT PSET (320, 35) FOR A = 1 TO 100 CIRCLE STEP(0, 1), 50, 8, PI, 0 CIRCLE STEP(0, 0), 25, 9, 0, PI NEXT PSET (320, 445) FOR A = 1 TO 100 CIRCLE STEP(0, -1), 50, 8, 0, PI CIRCLE STEP(0, 0), 25, 10, PI, 0 NEXT SLEEP