added copyright headers

changes to loadfilename & co. to make savesystem transparent to
 assertions and ~~

32bit.h

 /*
-  Copyright 1992 by the ANSI figForth Development Group
-
   This is a generic file for 32-bit machines with IEEE FP arithmetic (no VMS).
   It only supports indirect threading.
+
+  Copyright (C) 1995 Free Software Foundation, Inc.
+
+  This file is part of Gforth.
+
+  Gforth is free software; you can redistribute it and/or
+  modify it under the terms of the GNU General Public License
+  as published by the Free Software Foundation; either version 2
+  of the License, or (at your option) any later version.
+
+  This program is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with this program; if not, write to the Free Software
+  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */
 
 /* Cell and UCell must be the same size as a pointer */

386.h

 /*
-  Copyright 1992 by the ANSI figForth Development Group
-
   This is the machine-specific part for Intel 386 compatible processors
+
+  Copyright (C) 1995 Free Software Foundation, Inc.
+
+  This file is part of Gforth.
+
+  Gforth is free software; you can redistribute it and/or
+  modify it under the terms of the GNU General Public License
+  as published by the Free Software Foundation; either version 2
+  of the License, or (at your option) any later version.
+
+  This program is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with this program; if not, write to the Free Software
+  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */
 
 #include "32bit.h"

INSTALL

@@ -67,19 +67,19 @@ You need to read this only if you see a message like
 "gforth: Cannot load nonrelocatable image (compiled for address 0x1234) at address 0x5678
 The Gforth installer should look into the INSTALL file"
 
-Gforth supports relocatable and fixed-address images. If you load
+Gforth supports both relocatable and fixed-address images. If you load
 normal Forth code and save the image, you get a fixed-address
 image. Producing a relocatable image is more difficult.
 
-Consequently, Gforth has only a relocatable image of the kernel
+Therefore, Gforth has only a relocatable image of the kernel
 (kernal.fi), which is powerful enough to load the rest of
 Gforth. However, loading the rest takes a noticable amount of time. To
-avoid this delay on every startup,the installation procedure produces
-an image fixed at an address determined at the Gforth run that
-produced the image. This fixed-address image is loaded by default. On
-most OSs this works, because the first chunk of memory is always
-allocated at the same address. If the address changes, you get the
-message above.
+avoid this delay (which would occur on every startup), the
+installation procedure produces an image fixed at an address
+determined at the Gforth run that produced the image. This
+fixed-address image is loaded by default. On most OSs this works,
+because the first chunk of memory is always allocated at the same
+address. If the address changes, you get the message above.
 
 An image address change can be caused by a change of the gforth
 executable, or by a change (upgrade) of the OS; in these cases you

Makefile.in

-#Copyright 1992 by the ANSI figForth Development Group
+#Makefile for Gforth
+
+#Copyright (C) 1995 Free Software Foundation, Inc.
+
+#This file is part of Gforth.
+
+#Gforth is free software; you can redistribute it and/or
+#modify it under the terms of the GNU General Public License
+#as published by the Free Software Foundation; either version 2
+#of the License, or (at your option) any later version.
+
+#This program is distributed in the hope that it will be useful,
+#but WITHOUT ANY WARRANTY; without even the implied warranty of
+#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.#See the
+#GNU General Public License for more details.
+
+#You should have received a copy of the GNU General Public License
+#along with this program; if not, write to the Free Software
+#Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
 # To change the values of `make' variables: instead of editing Makefiles,
 # (1) if the variable is set in `config.status', edit `config.status'
 #     (which will cause the Makefiles to be regenerated when you run `make');
@@ -21,7 +40,7 @@ FORTH	= ./gforth
 FORTHK	= $(FORTH) -p . -i kernal.fi
 STRIP	= strip
 TEXI2DVI = texi2dvi
-DVI2PS	= dvips
+DVI2PS	= dvips -D300
 #you can get texi2html from http://asis01.cern.ch/infohtml/texi2html.html
 TEXI2HTML = texi2html
 MAKEINFO = makeinfo
@@ -50,7 +69,7 @@ infodir = $(prefix)/info
 mandir = $(prefix)/man/man1
 
 
-INCLUDES = forth.h threading.h io.h
+INCLUDES = forth.h threading.h io.h io-dos.h
 
 KERN_SRC = main.fs search-order.fs cross.fs aliases.fs vars.fs add.fs \
 	errore.fs kernal.fs version.fs extend.fs tools.fs toolsext.fs
@@ -61,7 +80,7 @@ FORTH_SRC = anslocal.fs add.fs assert.fs ansi.fs answords.fs blocks.fs bufio.fs
 	float.fs glocals.fs glosgen.fs gray.fs hash.fs history.fs \
 	kernal.fs locals-test.fs look.fs main.fs makedoc.fs \
  	mach16b.fs mach16l.fs mach32b.fs mach32l.fs mach64b.fs mach64l.fs \
-	other.fs prims2x.fs random.fs search-order.fs see.fs sieve.fs \
+	other.fs prims2x.fs random.fs search-order.fs see.fs sieve.fs source.fs \
 	startup.fs struct.fs tools.fs toolsext.fs tt.fs vars.fs vt100.fs \
 	vt100key.fs wordinfo.fs wordsets.fs \
 	tester.fs coretest.fs	
@@ -90,6 +109,8 @@ FORTH_GEN =  $(FORTH_GEN0) @KERNAL@ gforth.fi
 # this is used for antidependences,
 FORTH_GEN1 = $(FORTH_GEN0) @kernal_fi@ 
 
+#distributed documentation
+DOCDIST = gforth.texi gforth.fns gforth.ps gforth.info*
 
 KERNLS = kernl16b.fi+ kernl16l.fi+ \
 	 kernl32b.fi+ kernl32l.fi+ \
@@ -129,10 +150,10 @@ distclean:	clean
 realclean:	distclean
 		-$(RM) $(GEN_PRECIOUS)
 
-dist:		$(SOURCES) $(FORTH_GEN)
+dist:		$(SOURCES) $(FORTH_GEN) $(DOCDIST)
 		-rm -rf gforth-$(VERSION)
 		mkdir gforth-$(VERSION)
-		cp -p $(SOURCES) $(FORTH_GEN) gforth-$(VERSION)
+		cp -p $(SOURCES) $(FORTH_GEN0) @KERNAL@ $(DOCDIST) gforth-$(VERSION)
 		tar cvf - gforth-$(VERSION)|gzip -9 >gforth-$(VERSION).tar.gz
 		-rm -rf gforth-$(VERSION)
 
@@ -183,7 +204,7 @@ test:		gforth
 		@echo 'Expect to see INCORRECT RESULT: { GS1 -> <TRUE> <TRUE> }'
 		@echo 'This is a bug of the testing program'
 		$(FORTH) tester.fs coretest.fs -e bye
-		$(FORTH) startup.fs blocks.fs code.fs checkans.fs -e bye
+		$(FORTH) code.fs checkans.fs -e bye
 		@echo 'Expect no differences'
 		$(FORTH) prims2x.fs -e "s\" primitives.b\" ' output-c process-file bye"| diff -c - primitives.i
 
@@ -242,7 +263,7 @@ kernl64l.fi:	$(KERNLS)
 		-$(CP) kernl64l.fi+ kernl64l.fi
 		@LINK_KERNL64L@
 
-gforth.fi:	@kernal_fi@ gforth startup.fs glocals.fs search-order.fs hash.fs float.fs debugging.fs environ.fs wordinfo.fs look.fs vt100.fs see.fs bufio.fs debug.fs history.fs vt100key.fs assert.fs blocks.fs struct.fs dumpimage.fs
+gforth.fi:	@kernal_fi@ gforth startup.fs glocals.fs search-order.fs hash.fs float.fs debugging.fs environ.fs wordinfo.fs look.fs vt100.fs see.fs bufio.fs debug.fs history.fs vt100key.fs assert.fs source.fs blocks.fs struct.fs dumpimage.fs
 		$(FORTHK) startup.fs dumpimage.fs -e "savesystem gforth.fi bye"
 
 engine.s:	engine.c primitives.i prim_labels.i machine.h threading.h $(INCLUDES)

add.fs

 \ ADD.FS       Kernal additional things                20may93jaw
+\ Copyright (C) 1995 Free Software Foundation, Inc.
+
+\ This file is part of Gforth.
+
+\ Gforth is free software; you can redistribute it and/or
+\ modify it under the terms of the GNU General Public License
+\ as published by the Free Software Foundation; either version 2
+\ of the License, or (at your option) any later version.
+
+\ This program is distributed in the hope that it will be useful,
+\ but WITHOUT ANY WARRANTY; without even the implied warranty of
+\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+\ GNU General Public License for more details.
+
+\ You should have received a copy of the GNU General Public License
+\ along with this program; if not, write to the Free Software
+\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
 \ linked list primitive
 : linked        here over @ a, swap ! ;

alpha.h

-/* preliminary machine file for DEC Alpha */
-/* Be carefully: long long on Alpha are 64 bit :-(( */
+/* preliminary machine file for DEC Alpha
+
+  Copyright (C) 1995 Free Software Foundation, Inc.
+
+  This file is part of Gforth.
+
+  Gforth is free software; you can redistribute it and/or
+  modify it under the terms of the GNU General Public License
+  as published by the Free Software Foundation; either version 2
+  of the License, or (at your option) any later version.
+
+  This program is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with this program; if not, write to the Free Software
+  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+*/
+
+/* Be careful: long long on Alpha are 64 bit :-(( */
 
 #ifdef DIRECT_THREADED
 #undefine DIRECT_THREADED

ansi.fs

 \ ANSI.STR      Define terminal attributes              20may93jaw
 
+\ Copyright (C) 1995 Free Software Foundation, Inc.
+
+\ This file is part of Gforth.
+
+\ Gforth is free software; you can redistribute it and/or
+\ modify it under the terms of the GNU General Public License
+\ as published by the Free Software Foundation; either version 2
+\ of the License, or (at your option) any later version.
+
+\ This program is distributed in the hope that it will be useful,
+\ but WITHOUT ANY WARRANTY; without even the implied warranty of
+\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+\ GNU General Public License for more details.
+
+\ You should have received a copy of the GNU General Public License
+\ along with this program; if not, write to the Free Software
+\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+
 \ If you want another terminal you can redefine
 \ the colours.
 

anslocal.fs

 \ This implements a subset of the gforth locals syntax in pure ANS Forth
 
+\ This file is in the public domain. NO WARRANTY.
+
 \ This implementation technique has been described by John Hayes in
 \ the SigForth Newsletter 4(2), Fall '92. He did not do the complete
 \ job, but left some more mundane parts as an exercise to the reader.

assert.fs

 \ assertions
 
-\ !! factor out line number printing, share with debugging.fs
+\ Copyright (C) 1995 Free Software Foundation, Inc.
+
+\ This file is part of Gforth.
+
+\ Gforth is free software; you can redistribute it and/or
+\ modify it under the terms of the GNU General Public License
+\ as published by the Free Software Foundation; either version 2
+\ of the License, or (at your option) any later version.
+
+\ This program is distributed in the hope that it will be useful,
+\ but WITHOUT ANY WARRANTY; without even the implied warranty of
+\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+\ GNU General Public License for more details.
+
+\ You should have received a copy of the GNU General Public License
+\ along with this program; if not, write to the Free Software
+\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+require source.fs
 
 variable assert-level ( -- a-addr ) \ gforth
 \G all assertions above this level are turned off
@@ -31,16 +49,14 @@ variable assert-level ( -- a-addr ) \ gforth
     POSTPONE assert1( ; immediate
 
 : (endassert) ( flag -- ) \ gforth-internal
-    \ three inline arguments
+    \ inline argument sourcepos
     if
-	r> 3 cells + >r EXIT
+	r> sourcepos drop + >r EXIT
     else
-	r>
-	dup 2@ type ." :" cell+ cell+
-	@ 0 .r ." : failed assertion"
+	r> print-sourcepos ." : failed assertion"
 	true abort" assertion failed" \ !! or use a new throw code?
     then ;
 
 : ) ( -- ) \ gforth	close-paren
     \G end an assertion
-    POSTPONE (endassert) loadfilename 2@ 2, loadline @ , ; immediate
+    POSTPONE (endassert) sourcepos, ; immediate

blocks.fs

 \ A less simple implementation of the blocks wordset. 
 
-\ An more efficient implementation would use mmap on OSs that
+\ Copyright (C) 1995 Free Software Foundation, Inc.
+
+\ This file is part of Gforth.
+
+\ Gforth is free software; you can redistribute it and/or
+\ modify it under the terms of the GNU General Public License
+\ as published by the Free Software Foundation; either version 2
+\ of the License, or (at your option) any later version.
+
+\ This program is distributed in the hope that it will be useful,
+\ but WITHOUT ANY WARRANTY; without even the implied warranty of
+\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+\ GNU General Public License for more details.
+
+\ You should have received a copy of the GNU General Public License
+\ along with this program; if not, write to the Free Software
+\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+
+\ A more efficient implementation would use mmap on OSs that
 \ provide it and many buffers on OSs that do not provide mmap.
 
 \ Now, the replacement algorithm is "direct mapped"; change to LRU

bufio.fs

 \ BUFOUT.STR    Buffered output for Debug               13jun93jaw
 
+\ Copyright (C) 1995 Free Software Foundation, Inc.
+
+\ This file is part of Gforth.
+
+\ Gforth is free software; you can redistribute it and/or
+\ modify it under the terms of the GNU General Public License
+\ as published by the Free Software Foundation; either version 2
+\ of the License, or (at your option) any later version.
+
+\ This program is distributed in the hope that it will be useful,
+\ but WITHOUT ANY WARRANTY; without even the implied warranty of
+\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+\ GNU General Public License for more details.
+
+\ You should have received a copy of the GNU General Public License
+\ along with this program; if not, write to the Free Software
+\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
 CREATE O-Buffer 4000 chars allot align
 VARIABLE O-PNT
 

cache.c

+/* cache flushing for the HP-PA architecture
+
+  Copyright (C) 1995 Free Software Foundation, Inc.
+
+  This file is part of Gforth.
+
+  Gforth is free software; you can redistribute it and/or
+  modify it under the terms of the GNU General Public License
+  as published by the Free Software Foundation; either version 2
+  of the License, or (at your option) any later version.
+
+  This program is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with this program; if not, write to the Free Software
+  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+*/
+
 void cacheflush(void * address, int size, int linewidth)
 {
   int i;

code.fs

 \ ASSEMBLER, CODE etc.
 
+\ Copyright (C) 1995 Free Software Foundation, Inc.
+
+\ This file is part of Gforth.
+
+\ Gforth is free software; you can redistribute it and/or
+\ modify it under the terms of the GNU General Public License
+\ as published by the Free Software Foundation; either version 2
+\ of the License, or (at your option) any later version.
+
+\ This program is distributed in the hope that it will be useful,
+\ but WITHOUT ANY WARRANTY; without even the implied warranty of
+\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+\ GNU General Public License for more details.
+
+\ You should have received a copy of the GNU General Public License
+\ along with this program; if not, write to the Free Software
+\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
 \ does not include the actual assembler (which is machine-dependent),
 \ only words like CODE that are implementation-dependent, but can be
 \ defined for all machines.

colorize.fs

 \ COLORIZE.STR  Coloured .NAME and WORDS                20may93jaw
 
+\ Copyright (C) 1995 Free Software Foundation, Inc.
+
+\ This file is part of Gforth.
+
+\ Gforth is free software; you can redistribute it and/or
+\ modify it under the terms of the GNU General Public License
+\ as published by the Free Software Foundation; either version 2
+\ of the License, or (at your option) any later version.
+
+\ This program is distributed in the hope that it will be useful,
+\ but WITHOUT ANY WARRANTY; without even the implied warranty of
+\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+\ GNU General Public License for more details.
+
+\ You should have received a copy of the GNU General Public License
+\ along with this program; if not, write to the Free Software
+\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
 include ansi.fs
 
 decimal

cross.fs

 \ CROSS.FS     The Cross-Compiler                      06oct92py
-\ $Id: cross.fs,v 1.29 1995-10-07 17:38:11 anton Exp $
 \ Idea and implementation: Bernd Paysan (py)
-\ Copyright 1992-94 by the GNU Forth Development Group
+
+\ Copyright (C) 1995 Free Software Foundation, Inc.
+
+\ This file is part of Gforth.
+
+\ Gforth is free software; you can redistribute it and/or
+\ modify it under the terms of the GNU General Public License
+\ as published by the Free Software Foundation; either version 2
+\ of the License, or (at your option) any later version.
+
+\ This program is distributed in the hope that it will be useful,
+\ but WITHOUT ANY WARRANTY; without even the implied warranty of
+\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+\ GNU General Public License for more details.
+
+\ You should have received a copy of the GNU General Public License
+\ along with this program; if not, write to the Free Software
+\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
 \ Log:
 \       changed in ; [ to state off           12may93jaw

debug.fs

 \ DEBUG.FS     Debugger                                12jun93jaw
 
+\ Copyright (C) 1995 Free Software Foundation, Inc.
+
+\ This file is part of Gforth.
+
+\ Gforth is free software; you can redistribute it and/or
+\ modify it under the terms of the GNU General Public License
+\ as published by the Free Software Foundation; either version 2
+\ of the License, or (at your option) any later version.
+
+\ This program is distributed in the hope that it will be useful,
+\ but WITHOUT ANY WARRANTY; without even the implied warranty of
+\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+\ GNU General Public License for more details.
+
+\ You should have received a copy of the GNU General Public License
+\ along with this program; if not, write to the Free Software
+\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
 decimal
 
 VARIABLE IP     \ istruction pointer for debugger

debugging.fs

 \ Simple debugging aids
 
+\ Copyright (C) 1995 Free Software Foundation, Inc.
+
+\ This file is part of Gforth.
+
+\ Gforth is free software; you can redistribute it and/or
+\ modify it under the terms of the GNU General Public License
+\ as published by the Free Software Foundation; either version 2
+\ of the License, or (at your option) any later version.
+
+\ This program is distributed in the hope that it will be useful,
+\ but WITHOUT ANY WARRANTY; without even the implied warranty of
+\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+\ GNU General Public License for more details.
+
+\ You should have received a copy of the GNU General Public License
+\ along with this program; if not, write to the Free Software
+\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+
 \ They are meant to support a different style of debugging than the
 \ tracing/stepping debuggers used in languages with long turn-around
 \ times.
@@ -15,15 +34,14 @@
 \ of the pictured numeric output string (i.e., don't use ~~ between <#
 \ and #>).
 
+require source.fs
 
 defer printdebugdata ( -- ) \ gforth
 ' .s IS printdebugdata
 defer printdebugline ( addr -- ) \ gforth
 
 : (printdebugline) ( addr -- )
-    cr
-    dup 2@ type ." :" cell+ cell+
-    @ 0 .r ." :"
+    cr print-sourcepos ." :"
     \ it would be nice to print the name of the following word,
     \ but that's not easily possible for primitives
     printdebugdata
@@ -33,8 +51,8 @@ defer printdebugline ( addr -- ) \ gforth
 
 : (~~) ( -- )
     r@ printdebugline
-    r> 3 cells + >r ;
+    r> sourcepos drop + >r ;
 
 : ~~ ( compilation  -- ; run-time  -- ) \ gforth tilde-tilde
-    POSTPONE (~~) loadfilename 2@ 2, loadline @ , ; immediate
+    POSTPONE (~~) sourcepos, ; immediate
 

doskey.fs

 \ MS-DOS key interpreter                               17oct94py
 
+\ Copyright (C) 1995 Free Software Foundation, Inc.
+
+\ This file is part of Gforth.
+
+\ Gforth is free software; you can redistribute it and/or
+\ modify it under the terms of the GNU General Public License
+\ as published by the Free Software Foundation; either version 2
+\ of the License, or (at your option) any later version.
+
+\ This program is distributed in the hope that it will be useful,
+\ but WITHOUT ANY WARRANTY; without even the implied warranty of
+\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+\ GNU General Public License for more details.
+
+\ You should have received a copy of the GNU General Public License
+\ along with this program; if not, write to the Free Software
+\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
 Create translate $100 allot
 translate $100 erase
 

ds2texi.fs

 \ documentation source to texi format converter
 
+\ Copyright (C) 1995 Free Software Foundation, Inc.
+
+\ This file is part of Gforth.
+
+\ Gforth is free software; you can redistribute it and/or
+\ modify it under the terms of the GNU General Public License
+\ as published by the Free Software Foundation; either version 2
+\ of the License, or (at your option) any later version.
+
+\ This program is distributed in the hope that it will be useful,
+\ but WITHOUT ANY WARRANTY; without even the implied warranty of
+\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+\ GNU General Public License for more details.
+
+\ You should have received a copy of the GNU General Public License
+\ along with this program; if not, write to the Free Software
+\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
 \ documentation source can contain lines in the form `doc-word' and
 \ `short-word'. These are converted to appropriate full or short
 \ (without the description) glossary entries for word.

dumpimage.fs

 \ image dump                                           15nov94py
 
+\ Copyright (C) 1995 Free Software Foundation, Inc.
+
+\ This file is part of Gforth.
+
+\ Gforth is free software; you can redistribute it and/or
+\ modify it under the terms of the GNU General Public License
+\ as published by the Free Software Foundation; either version 2
+\ of the License, or (at your option) any later version.
+
+\ This program is distributed in the hope that it will be useful,
+\ but WITHOUT ANY WARRANTY; without even the implied warranty of
+\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+\ GNU General Public License for more details.
+
+\ You should have received a copy of the GNU General Public License
+\ along with this program; if not, write to the Free Software
+\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
 Create magic  s" gforth00" here over allot swap move
 
 '1 1 cells + 0 pad ! -1 pad c! pad @ 0< +  magic 7 chars + c!

engine.c

-/*
-  Copyright 1992 by the ANSI figForth Development Group
+/* Gforth virtual machine (aka inner interpreter)
+
+  Copyright (C) 1995 Free Software Foundation, Inc.
+
+  This file is part of Gforth.