first of all, thanks Dave this looks pretty interesting!
Is there any easy method for reading a whole string, or should i just do like this:

CHARACTER = "H"
gosub CHARTABL
CHARACTER = "E"
gosub CHARTABL
CHARACTER = "L"
gosub CHARTABL
CHARACTER = "L"
gosub CHARTABL
CHARACTER = "O"
gosub CHARTABL

Or perhaps you got a better alternative?