' ' © JM. :: Hecho en Ronda ' '______________________________________________________________________ ' DECLARE SUB loseta (hh!, v!, c$) SCREEN 12 loseta 100, 0, "000000000000000" loseta 100, 15, "00000022000000" loseta 100, 30, "00000200200000" loseta 100, 45, "00002000020000" loseta 100, 60, "00020000002000" loseta 100, 75, "00200000000200" loseta 100, 90, "00200011000200" loseta 100, 105, "00200000000200" loseta 100, 120, "00020000002000" loseta 100, 135, "00002000020000" loseta 100, 150, "00000200200000" loseta 100, 165, "00000022000000" loseta 100, 180, "00000000000000" SLEEP ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SUB loseta (hh, v, c$) FOR h = hh TO hh + 200 STEP 15 p = ((h - hh) / 15) + 1 SELECT CASE (MID$(c$, p, 1)) CASE "0": c = 15 CASE "1": c = 11 CASE "2": c = 13 END SELECT LINE (h, v)-(h + 14, v + 14), c, BF LINE (h, v + 10)-(h + 10, v), 7 LINE STEP(0, 0)-(h + 15, v + 5), 7 LINE (h + 5, v)-(h, v + 5), 7 LINE (h + 5, v + 15)-(h + 10, v + 10), 7 LINE STEP(0, 0)-(h + 15, v + 15), 7 LINE (h, v + 15)-(h + 10, v + 5), 7 LINE STEP(0, 0)-(h + 15, v + 10), 7 LINE (h, v)-(h + 15, v + 15), 8, B NEXT END SUB