字元的顯示

: FR ( color R -- ) FG@ 4 + c! ;

: FG ( color G -- ) FG@ 5 + c! ;

: FB ( color B -- ) FG@ 6 + c! ;

: BR ( color R -- ) BG@ 4 + c! ;

: BG ( color G -- ) BG@ 5 + c! ;

: BB ( color B -- ) BG@ 6 + c! ;

: 設定字體顏色 ( R G B -- )

  FB FG FR 

  ;

defer FRGB

' 設定字體顏色 is FRGB

: 設定背景顏色 ( R G B -- )

  BB BG BR 

  ;  

defer BRGB

' 設定背景顏色 is BRGB  

255 0 0 FRGB

0 255 0 BRGB