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

FOR n = 192 TO 255
   PALETTE n, n - 192
NEXT
RANDOMIZE TIMER
                 c = 242
FOR v = 0 TO 319
   c = c + INT(RND * 3) - 1
   IF c > 255 THEN c = 255
   IF c < 192 THEN c = 192
   PSET (0, v), c
   PSET (v, 0), c
   PSET (319, v), c
   PSET (v, 199), c
NEXT

FOR vv = 1 TO 199 STEP 25
   FOR h = 1 TO 319
      FOR v = vv TO vv + 24
         c = ((POINT(h - 1, v) + POINT(h, v - 1)) / 2) + INT(RND * 3) - 1
         IF c > 255 THEN c = 255
         IF c < 192 THEN c = 192
         PSET (h, v), c
      NEXT
   NEXT
NEXT
SOUND 1000, 1


FOR hh = 0 TO 310 STEP 40
FOR vv = 0 TO 190 STEP 40
FOR h = hh TO hh + 19
FOR v = vv TO vv + 19
PSET (h, v), POINT(h, v) - 15
PSET (h + 20, v + 20), POINT(h + 20, v + 20) - 15
NEXT
NEXT
NEXT
NEXT
SLEEP