' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' DECLARE SUB pieza (h!, v!, pico$, c!, t!) SCREEN 12 v = 25 hh = 400 DO FOR h = hh TO 200 + hh STEP 74 pieza h, v, "1111", 1, 1 pieza h + 37, v, "0000", 14, 3 NEXT v = v + 25 hh = hh - 25 FOR h = hh TO 200 + hh STEP 74 pieza h + 37, v, "1111", 1, 3 pieza h, v, "0000", 14, 1 NEXT v = v + 25 hh = hh - 25 LOOP UNTIL v > 410 ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SUB pieza (h, v, pico$, c, t) STATIC DRAW "s16c0" SELECT CASE VAL(MID$(pico$, 1, 1)) CASE 0: a$ = "s16 c15 rrr c7 e c15 rrrgrrr": aa$ = "s16 rrr e rrrgrrr" CASE 1: a$ = "s16 c15 rrr g rrrc7ec15rrr": aa$ = "s16 rrr g rrrerrr" END SELECT SELECT CASE VAL(MID$(pico$, 1, 1)) CASE 0: b$ = "c7eelleec15rrc7ee": bb$ = "eelleerree" CASE 1: b$ = "c7eec15rrc7eellc7ee": bb$ = "eerreellee" END SELECT SELECT CASE VAL(MID$(pico$, 3, 1)) CASE 0: c$ = "s16 bl3 bg bl3 e bl3": cc$ = "s16 lll g lll e lll" CASE 1: c$ = "s16 bl3 e bl3 bg bl3": cc$ = "s16 lll e lll g lll" END SELECT SELECT CASE VAL(MID$(pico$, 4, 1)) CASE 0: d$ = "s16bg2rrggbl2gg": dd$ = "s16ggrrggllgg" CASE 1: d$ = "s16bg2bl2ggbr2gg": dd$ = "s16ggllggrrgg" END SELECT SELECT CASE t CASE 0: cad$ = "" CASE 1: cad$ = "bg6" + a$ CASE 2: cad$ = "bg6 br9" + b$ CASE 3: cad$ = "bg6" + a$ + b$ CASE 4: cad$ = d$ + a$ + b$ + c$ END SELECT borde$ = "c" + STR$(c) + dd$ + aa$ + bb$ + cc$ FOR p = v TO v + 10 PSET (h, p) DRAW cad$ NEXT PSET (h, v) DRAW borde$ PAINT (h + 10, v + 13), c, c END SUB