將數字轉換為字串

   由於符式沒有將數字轉換為字串的詞，所以我們必須先自己創建它。

因此我們會創造一個詞 >string，它將一個數字轉換成字串並儲存指定位置。

定義如下

: >string ( n a -- )

  >r dup >r abs s>d <# #s r> sign #>

  r@ char+ swap dup >r cmove r> r> c!

在應用時,先創建一個指定儲存的字串位置

create num$ 16 chars allot <cr> ok

再將要轉換的數字如-1024,轉換成字串並儲存指定num$位置裏

-1024 num$ >string <cr> ok

將num$位置裏的字串顯示到螢幕上

num$ count type cr <cr> -1024

Ok