![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to bubble.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to bubble.fs CVS log | Up to [gforth] / gforth |
| version 1.1, 1995/11/13 18:38:35 | version 1.2, 1999/05/17 13:51:31 |
|---|---|
| Line 9 | Line 9 |
| \ MM forth2c doesn't have it ! | \ MM forth2c doesn't have it ! |
| : mybounds over + swap ; | : mybounds over + swap ; |
| 1 cells Constant cell | |
| variable seed ( -- addr) | variable seed ( -- addr) |
| : initiate-seed ( -- ) 74755 seed ! ; | : initiate-seed ( -- ) 74755 seed ! ; |