--- gforth/Attic/vars.fs	1995/10/07 17:38:21	1.7
+++ gforth/Attic/vars.fs	1996/02/09 17:34:13	1.12
@@ -1,5 +1,23 @@
 \ VARS.FS      Kernal variables
 
+\ 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.
+
 hex \ everything now hex!                               11may93jaw
 
 \ important constants                                  17dec92py
@@ -25,7 +43,8 @@ FF Constant /line
 
 \ User variables                                       13feb93py
 
-\ doesn't produce real user variables now, but normal variables
+0 Value outfile-id ( -- file-id ) \ gforth
+\ initialized by COLD
 
 Create main-task  100 cells allot
 main-task tup H ! minimal
@@ -47,13 +66,15 @@ AUser errorhandler
 
 AUser "error            0 "error !
 
+ User tibstack
  User >tib
  User #tib
  User >in               0 >in !
  User blk               0 blk !
  User loadfile          0 loadfile !
- 2User loadfilename	0 0 loadfilename 2!
- 
+
+ User loadfilename#	0 loadfilename# !
+
  User loadline          \ number of the currently interpreted
                         \ (in TIB) line if the interpretation
                         \ is in a textfile