![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to saccept.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to saccept.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.3, 1998/12/08 22:03:13 | version 1.4, 1999/05/17 15:07:05 |
|---|---|
| Line 18 | Line 18 |
| \ along with this program; if not, write to the Free Software | \ along with this program; if not, write to the Free Software |
| \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. | \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
| require ./io.fs | |
| : accept ( adr len -- len ) | : accept ( adr len -- len ) |
| over + over ( start end pnt ) | over + over ( start end pnt ) |
| BEGIN | BEGIN |