[Amforth] Compiling Label

[craig a. h. <ca...@gm...>]

I'm trying to create a label defining word which I would like to work as
follows:

xPos  yPos  s" this is the labels text"  label:  labelName

I tried this code:

\ Define a label that places itself
: label:            ( x y addr count --- )
    create
    , , , ,
    does>
        dup over over
        3 + @i swap 2 + @i moveCursor
        1+ @i @i
;

which at run time I want to return the addr and count of the labels text in
flash.

The problem is, I think, that s" doesn't compile to flash outside of a
definition.

How can I change this code to force the label's text to be stored in flash?

-- 
Craig Lindley