Return to colorize.fs CVS log | Up to [gforth] / gforth |
version 1.2, 1995/11/07 18:06:34 | version 1.3, 1996/01/07 17:22:08 |
---|---|
Line 45 Color: Hig# | Line 45 Color: Hig# |
<A Green >f bold A> Com# CT! | <A Green >f bold A> Com# CT! |
<A Red >b A> Hig# CT! | <A Red >b A> Hig# CT! |
: (.name) ( lfa -- ) | : (.name) ( nfa -- ) |
cell+ dup | dup wordinfo cells ct + @ attr! |
wordinfo cells ct + @ attr! | .name blackspace ; |
count $1f and type blackspace ; | |
: .name (.name) ct @ attr! ; | : .name (.name) ct @ attr! ; |