'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                                                GUSANO   
SCREEN 12
PAINT (1, 1), 15
FOR n = 1 TO 10
   PALETTE n, (n * 5) + 10
NEXT
PSET (320, 200), 15
FOR n = 0 TO 9
   l$ = STR$((n) * 20)
   l2$ = STR$(((n) * 20) / 2)
   ang$ = STR$((-45 * n) + 45)
   DRAW "bu" + l$ + "br" + l2$
   CIRCLE STEP(0, 0), n * 13, n
   PAINT STEP(0, 0), n, n
   DRAW "bl" + l2$ + "ta" + ang$
NEXT
SLEEP