'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'               PARA SALIR PULSAR <ESCAPE> Y ESPERAR A QUE TERMINE
'
'
'
DECLARE SUB giro (h!, v!)
DECLARE SUB ilumina (h!, v!)
RANDOMIZE TIMER
SCREEN 13
FOR h = 0 TO 300 STEP 20
   FOR v = 0 TO 175 STEP 25
      LINE (h, v)-STEP(18, 23), 3, BF
      LINE (h, v)-STEP(0, 23), 11
      LINE (h + 18, v)-STEP(0, 23), 8
   NEXT
NEXT


DO

   FOR h = 0 TO 300 STEP 20
      FOR v = 0 TO 175 STEP 25
         a = RND
         IF a > .7 THEN : ilumina h, v
      NEXT
   NEXT

   FOR h = 0 TO 300 STEP 20
      FOR v = 0 TO 175 STEP 25
         a = POINT(h + 2, v)
         IF a = 92 THEN : giro h, v
      NEXT
   NEXT

LOOP WHILE INKEY$ = ""

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
SUB giro (h, v)

delay = 2000

cf = POINT(h, v)
cff = POINT(h + 18, v)

FOR n = 0 TO 9
   LINE (h + n, v)-(h + n, v + 23), cf
   LINE (h + 18 - n, v)-(h + 18 - n, v + 23), cff
   FOR del = 1 TO delay: NEXT
   LINE (h + n, v)-(h + n, v + 23), 0
   LINE (h + 18 - n, v)-(h + 18 - n, v + 23), 0
NEXT

FOR n = 9 TO 1 STEP -1
   LINE (h + n, v)-(h + n, v + 23), 31
   LINE (h + 18 - n, v)-(h + 18 - n, v + 23), 26
   FOR del = 1 TO delay: NEXT
   LINE (h + n, v)-(h + n, v + 23), 29
   LINE (h + 18 - n, v)-(h + 18 - n, v + 23), 29
NEXT
LINE (h + n, v)-(h + n, v + 23), 31
LINE (h + 18 - n, v)-(h + 18 - n, v + 23), 26

END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB ilumina (h, v)
SOUND (h * 6) + (v * 6) + 500, 2
LINE (h + 1, v)-STEP(16, 23), 92, BF
END SUB