' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' DECLARE SUB CUADRO (H!, V!, D!, f!) SCREEN 13 DIM mat(1 TO 1000) hh = 5 vv = 15 CUADRO hh, vv, 2, 0 CUADRO hh + 17, vv, 0, 0 CUADRO hh, vv + 17, 0, 0 CUADRO hh + 17, vv + 17, 2, 0 GET (5, 15)-STEP(34, 34), mat FOR hh = 5 TO 300 STEP 34 FOR vv = 15 TO 170 STEP 34 PUT (hh, vv), mat, PSET NEXT NEXT SLEEP CLS CUADRO 40, 55, 0, 0 CUADRO 40, 70, 1, 0 CUADRO 40, 85, 0, 0 CUADRO 40, 100, 1, 0 CUADRO 40, 115, 0, 0 CUADRO 55, 85, 1, 0 CUADRO 70, 55, 0, 0 CUADRO 70, 70, 1, 0 CUADRO 70, 85, 0, 0 CUADRO 70, 100, 1, 0 CUADRO 70, 115, 0, 0 CUADRO 100, 55, 0, 0 CUADRO 100, 70, 1, 0 CUADRO 100, 85, 0, 0 CUADRO 100, 100, 1, 0 CUADRO 100, 115, 0, 0 CUADRO 115, 55, 1, 0 CUADRO 115, 115, 1, 0 CUADRO 130, 55, 0, 0 CUADRO 130, 70, 1, 0 CUADRO 130, 85, 0, 0 CUADRO 130, 100, 1, 0 CUADRO 130, 115, 0, 0 CUADRO 160, 55, 0, 0 CUADRO 160, 70, 1, 0 CUADRO 160, 85, 0, 0 CUADRO 160, 100, 1, 0 CUADRO 160, 115, 0, 0 CUADRO 175, 115, 1, 0 CUADRO 190, 115, 0, 0 CUADRO 220, 55, 0, 0 CUADRO 220, 70, 1, 0 CUADRO 220, 85, 0, 0 CUADRO 220, 100, 1, 0 CUADRO 220, 115, 0, 0 CUADRO 235, 55, 1, 0 CUADRO 235, 100, 0, 0 CUADRO 250, 55, 0, 0 CUADRO 250, 70, 1, 0 CUADRO 250, 85, 0, 0 CUADRO 250, 100, 1, 0 CUADRO 250, 115, 0, 0 FOR N = 33 TO 270 STEP 30 CUADRO N, 140, 0, 0 CUADRO N + 15, 140, 1, 0 NEXT SLEEP PALETTE 176, 35 SLEEP FOR N = 0 TO 15 PALETTE 16 + N, N * 3 + 10 NEXT SLEEP ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SUB CUADRO (H, V, D, f) COL = 176 LINE (H + 1, V + 1)-STEP(14, 14), COL, BF SELECT CASE D CASE 0 FOR N = 0 TO 15 IF POINT(H + N + 1, V) = f THEN PSET (H + N + 1, V), 16 + N IF POINT(H + N, V + 16) = f THEN PSET (H + N, V + 16), 31 - N IF POINT(H, V + N) = f THEN PSET (H, V + N), 16 + N IF POINT(H + 16, V + N + 1) = f THEN PSET (H + 16, V + N + 1), 31 - N NEXT CASE ELSE FOR N = 0 TO 15 IF POINT(H + N + 1, V) = f THEN PSET (H + N + 1, V), 31 - N IF POINT(H + N, V + 16) = f THEN PSET (H + N, V + 16), 16 + N IF POINT(H, V + N) = f THEN PSET (H, V + N), 31 - N IF POINT(H + 16, V + N + 1) = f THEN PSET (H + 16, V + N + 1), 16 + N NEXT END SELECT END SUB