Embedded Strings in your Code Space

[mister_e]

mmm, another solution...

String1 da "My string",13,10,"blah blah",13,10,125,126,127,0

Just modify a little bit the StringOut Sub

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

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

that way it works. BUT it don't take all the advantage of the 14 BIT pack stuff. It's just more readable the the previous.