![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to nio.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to nio.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.23, 2007/12/31 19:02:25 | version 1.24, 2010/02/14 18:04:16 |
|---|---|
| Line 100 has? EC [IF] | Line 100 has? EC [IF] |
| # 2dup or 0= | # 2dup or 0= |
| UNTIL ; | UNTIL ; |
| : holds ( addr u -- ) | |
| BEGIN dup WHILE 1- 2dup + c@ hold REPEAT 2drop ; | |
| \ print numbers 07jun92py | \ print numbers 07jun92py |
| : d.r ( d n -- ) \ double d-dot-r | : d.r ( d n -- ) \ double d-dot-r |