String literal

: S" ASCII " PARSE 
  HERE 2DUP ! 1+ 
  OVER 1+ ALLOT     
  2DUP 4 ROLL SWAP ROT           
  1+ MOVE SWAP ;