'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SCREEN 13

FOR p = 0 TO 63
   PALETTE 255 - p, p
NEXT

c = 257
FOR h = 0 TO 300 STEP 20
   c = c - 2
   FOR v = 0 TO 180 STEP 20
      LINE (h, v)-STEP(9, 9), c - 10, BF
      LINE (h + 10, v + 10)-STEP(9, 9), c - 10, BF
      LINE (h + 10, v)-STEP(9, 9), c - 32, BF
      LINE (h, v + 10)-STEP(9, 9), c - 32, BF
   NEXT
NEXT
SLEEP