'
'  © 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