Return to savesys.fs CVS log | Up to [gforth] / gforth |
version 1.12, 2010/12/27 13:16:47 | version 1.14, 2010/12/31 18:09:02 |
---|---|
Line 1 | Line 1 |
\ image dump 15nov94py | \ image dump 15nov94py |
\ Copyright (C) 1995,1997,2003,2006,2007 Free Software Foundation, Inc. | \ Copyright (C) 1995,1997,2003,2006,2007,2010 Free Software Foundation, Inc. |
\ This file is part of Gforth. | \ This file is part of Gforth. |
Line 60 | Line 60 |
r> close-file throw ; | r> close-file throw ; |
: savesystem ( "name" -- ) \ gforth | : savesystem ( "name" -- ) \ gforth |
ofile 256 chars erase | |
tfile 256 chars erase | |
name dump-fi ; | name dump-fi ; |