\ file 98.9.11 9:13 pm NAB create buffer 80 allot : S" ( <ccc"> -- c-addr u ) [char] " parse state @ if postpone sliteral else tuck buffer swap move buffer swap then ; immediate