gforth/filedump.fs - diff

Return to filedump.fs CVS log

Up to [gforth] / gforth

version 1.8, 2002/12/28 17:18:27	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 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]