anchor.diff:  : CHAR+  ( c-addr1 -- c-addr2 )  1+ ;
   : CHAR  ( "<spaces>name" -- char )
       BL WORD DUP C@ IF CHAR+ C@ THEN ;
  +
  +: [CHAR]  ( "<spaces>name" -- )    \ compile time
  +          ( -- char )              \ run-time
  +    BL DUP SKIP PARSE DROP C@ LIT, ; IMMEDIATE
   
   : VARIABLE  ( "<spaces>name"-- )
       CREATE [ 1 CELLS ] LITERAL ALLOT ;
  
positive.code: : J  ( -- n )
      R> R> R@ SWAP >R SWAP >R ;
  
  : ENVIRONMENT?  ( c-addr u -- false | i*x true )
      2DROP FALSE ;  ( we treat everything as unknown )
  
negative.code:     BL WORD FIND
      IF LIT, ['] COMPILE, COMPILE, ELSE ABORT THEN ; IMMEDIATE
  
  : S"  ( "ccc<quote> -- )   \ compile time
        ( -- c-addr u )      \ run-time
      34 PARSE STRING, ; IMMEDIATE
  
  : ABORT"
      34 PARSE STRING, POSTPONE TYPE POSTPONE ABORT ; IMMEDIATE
  
  