' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SCREEN 13 DIM mat(1 TO 800) CLS PAINT (1, 1), 255 RANDOMIZE TIMER PSET (21, 21), 16 FOR C = 16 TO 62 LOCATE 1, 35: COLOR 92: PRINT C FOR h = 1 TO 40 FOR v = 1 TO 40 P = 0 IF RND > .4 AND POINT(h, v) > C THEN IF POINT(h + 1, v) <= C OR POINT(h - 1, v) <= C OR POINT(h, v + 1) <= C OR POINT(h, v - 1) <= C THEN P = 1 IF P = 1 THEN PSET (h, v), C + 1 END IF NEXT NEXT NEXT SOUND 3000, .5 FOR N = 0 TO 63 PALETTE N, N LINE (N + 100, 100)-STEP(0, 30), N NEXT GET (1, 1)-(40, 40), mat FOR h = 0 TO 280 STEP 40 FOR v = 0 TO 160 STEP 40 PUT (h, v), mat, PSET NEXT NEXT SLEEP