snippet to translate single-character codes to words

[tsh73]

Suppose we have colors coded in a string, a color coded by particular letter
Simple setup, could easily be implemented like this
select case c$
case "|": color$="yellow"
case "-": color$="red"
case "#": color$="black"
end select
A bit lengthy though.

Now, word$ and instr together:
color$ = word$("yellow red black", instr("|-#", c$))

Nice?

[B+]

Yes! This would go perfectly with Tile Maker 2!

[bluatigro]

I sugest :
color$ = word$( "black-red-green-yellow-blue" , instr( "brgyB" , in$ ) "-"  )
or even
color$ = word$ "0 127 255-255 127 0" , instr("01" , in$ ) , "-"  ) )
or a combination of that
we have +-100 char's at our fingertips
that shoot be enaug
you get the point I think