gforth/filedump.fs - diff

Return to filedump.fs CVS log

Up to [gforth] / gforth

version 1.9, 2003/03/09 15:16:49	version 1.11, 2004/01/25 19:35:13
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 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]