\ 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