'
'  © 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