附錄C 書中提到的一些字

───────────────────────────────────────

這個附錄是用來幫助你定義一些書中曾經提到過，而在你的符式系統中可能沒有的字。在此處，它們都以83標準的方式來定義。

第四章

      : ASCII   ( --c)   \ compile:  c  ( -- )
      \ interpret:   c  ( --c )
         BL WORD  1+ C@
         STATE @ IF  [COMPILE] LITERAL  THEN ;   IMMEDIATE

第五章

      : \   ( skip rest of line, for screen file version )
         >IN @  64 /  1+ 64 *  >IN ! ;   IMMEDIATE
      : \S   1024 >IN ! ;
      : FH   \ ( offset -- offset-block )
         BLK @ + ;
      : WITHIN   ( n lo hi+1 -- f)
         OVER - >R  - R>  U< ;

第八章

『LEAP』的實現方式得依你的符式系統是如何實現 DO LOOP 而定。如果 DO 會在返回堆疊上保有二個值（limit 和 index），那麼 LEAP 就需要丟掉這二項，再加上 LEAP這個高階字本身所留下的地址。

      : LEAP   R> R> 2DROP  R> DROP ;

如果 DO 在返回堆疊上保有三個值，那麼就是

      : LEAP   R> R> 2DROP  R> R> 2DROP ;