' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' DECLARE SUB ladrillo (h!, v!) SCREEN 13 FOR v = 201 TO 0 STEP -17 FOR h = -40 + (v MOD 36) TO 320 STEP 42 ladrillo h, v FOR dealy = 1 TO 30000: NEXT NEXT FOR h = -10 TO 330 LINE (h, v - 16)-STEP(4, -4), 23 LINE (h, v - 17)-STEP(4, -4), 25 FOR dealy = 1 TO 500: NEXT NEXT NEXT SLEEP 'otra cosa CLS FOR v = 30 TO 190 STEP 30 FOR h = -20 TO 330 - v - 40 FOR g = 0 TO 15 LINE (h, v - g)-STEP(16, -16), 16 + g NEXT NEXT NEXT SUB ladrillo (h, v) LINE (h, v)-STEP(40, -14), 64, BF FOR n = 1 TO 7 LINE (h + n, v - 14 - n)-STEP(40, 0), 65 LINE STEP(0, 0)-STEP(0, 14), 66 NEXT PSET (h + 42, v - 4), 6 DRAW "ebebeeugbgbgguebebee" PSET (h + 42, v - 8), 6 DRAW "ebebeeugbgbgguebebee" PSET (h + 42, v - 12), 6 DRAW "ebebeeugbgbgguebebee" END SUB