Wie füttert man das Display auf dem AVR Butterfly?

Ich habe amforth 1.2 mit dem r@ bug-fix benutzt. download LCD Demo

\ how it is done:

\ include lcd_init.fs       
\ include look_up_table.fs  
\ include lcd_emit.fs       
\ include lcd_write.fs      
\ include testing.fs  \ if you like

\ intended use:
\  initlcd          Set controle once.
\  keyin            Fill cbuf with characters in some way.
\  cbuf n + wlcd    Display cbuf, add n to srcoll through cbuf.
\  segon / segoff   Show/hide characters in display.
\  lcdoff           Turn off lcd finaly.

\ finis