![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to wf.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to wf.fs CVS log | Up to [gforth] / gforth |
| version 1.46, 2006/03/20 00:14:56 | version 1.50, 2006/12/31 13:39:14 |
|---|---|
| Line 1 | Line 1 |
| \ wiki forth | \ wiki forth |
| \ Copyright (C) 2003,2004,2005 Free Software Foundation, Inc. | \ Copyright (C) 2003,2004,2005,2006 Free Software Foundation, Inc. |
| \ This file is part of Gforth. | \ This file is part of Gforth. |
| Line 43 require string.fs | Line 43 require string.fs |
| case | case |
| '& of ." &" endof | '& of ." &" endof |
| '< of ." <" endof | '< of ." <" endof |
| \ '¤ of ." €" endof | \ &164 of ." €" endof |
| dup emit | dup emit |
| endcase | endcase |
| LOOP ; | LOOP ; |