version 1.9, 2003/03/09 15:16:49
|
version 1.12, 2004/12/31 13:23:57
|
Line 1
|
Line 1
|
#! /usr/local/lib/gforth/0.2.0/kernel.fi |
#! /usr/local/lib/gforth/0.2.0/kernel.fi |
\ file hex dump |
\ file hex dump |
|
|
\ Copyright (C) 1997,2002 Free Software Foundation, Inc. |
\ Copyright (C) 1997,2002,2003,2004 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 32 Create buf $10 allot
|
Line 32 Create buf $10 allot
|
r> close-file throw ; |
r> close-file throw ; |
|
|
script? [IF] |
script? [IF] |
: alldump argc @ 2 ?DO I arg 2dup type ." :" filedump LOOP ; |
: alldump argc @ 1 ?DO I arg 2dup type ." :" filedump LOOP ; |
alldump bye |
alldump bye |
[THEN] |
[THEN] |