Return to savesys.fs CVS log | Up to [gforth] / gforth |
version 1.3, 2000/09/23 15:46:58 | version 1.4, 2002/09/14 08:20:20 |
---|---|
Line 45 | Line 45 |
forthstart | forthstart |
begin \ search for start of file ("#! " at a multiple of 8) | begin \ search for start of file ("#! " at a multiple of 8) |
8 - | 8 - |
dup 3 s" #! " compare 0= | dup 3 s" #! " str= |
until ( imagestart ) | until ( imagestart ) |
here over - r@ write-file throw | here over - r@ write-file throw |
r> close-file throw ; | r> close-file throw ; |