' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' PARA SALIR PULSAR 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