multi-line-string.fs

: """s  s\" \"\"\"s" ;

: s""" ( -- caddr u )
   begin
      refill 0= if exit then
      source """s compare 0= if
         refill drop   ( ignore the line )
         0 c,  ( put zero terminator )
         exit
      then
      source s, \n,
   again
;

( example )

create sample-string

s"""
This is a
multi line string
"""s

\ Print zero terminated string
: ztype ( addr -- ) begin dup c@ emit 1+ dup c@ 0= until drop ;

sample-string ztype