Embedded Strings in your Code Space

[mister_e]

Got it..

StringOut:  ' Send the string out via Hserout
    Readcode Addr, TwoChars       ' Get the 14 bit packed characters
    IF TwoChars then
        Char = TwoChars >> 7      ' Separate first char
        if Char then              ' Look for Null char, Don't send if found
           hserout [Char]         ' Send first char
        endif

        Char = TwoChars & $7F     ' Separate second char
        if Char then              ' Look for Null char, Don't send if found
           hserout [Char]         ' Send the second char
       endif
       Addr = Addr + 1            ' Point to next two characters
       goto StringOut	          ' Continue with rest of the string
    ELSE
        Addr=Addr+1
        Goto StringOut
    ENDIF
return