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

'ADAPTANDO PALETA

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

'PRIMER DIBUJO
LINE (0, 0)-(319, 199), 15, BF

FOR n = 0 TO 63
   LINE (96, 69)-(96 - n, 132), 255 - n
   LINE (96, 69)-(96 + n, 132), 255 - n
   LINE (96, 195)-(96 - n, 132), 255 - n
   LINE (96, 195)-(96 + n, 132), 255 - n
   LINE (160, 5)-(160 - n, 68), 255 - n
   LINE (160, 5)-(160 + n, 68), 255 - n
   LINE (160, 131)-(160 - n, 68), 255 - n
   LINE (160, 131)-(160 + n, 68), 255 - n
   LINE (224, 69)-(224 - n, 132), 255 - n
   LINE (224, 69)-(224 + n, 132), 255 - n
   LINE (224, 195)-(224 - n, 132), 255 - n
   LINE (224, 195)-(224 + n, 132), 255 - n
NEXT

SLEEP

'SEGUNDO DIBUJO

LINE (0, 0)-(319, 199), 15, BF

FOR n = 0 TO 63
   LINE (80, 37)-(80 - n, 100), 255 - n
   LINE (80, 37)-(80 + n, 100), 255 - n
   LINE (80, 163)-(80 - n, 100), 255 - n
   LINE (80, 163)-(80 + n, 100), 255 - n
   LINE (160, 37)-(160 - n, 100), 255 - n
   LINE (160, 37)-(160 + n, 100), 255 - n
   LINE (160, 163)-(160 - n, 100), 255 - n
   LINE (160, 163)-(160 + n, 100), 255 - n
   LINE (240, 37)-(240 - n, 100), 255 - n
   LINE (240, 37)-(240 + n, 100), 255 - n
   LINE (240, 163)-(240 - n, 100), 255 - n
   LINE (240, 163)-(240 + n, 100), 255 - n
NEXT

SLEEP