--- gforth/Attic/vars.fs	1994/08/31 19:42:54	1.6
+++ gforth/Attic/vars.fs	1997/02/08 22:58:16	1.14
@@ -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
@@ -12,8 +30,9 @@ hex \ everything now hex!
   0 Constant false
 
 1 cells Constant cell
+1 floats Constant float
 
-20 Constant bl
+20 Constant bl \ used by docon:, must be constant
 
 FF Constant /line
 
@@ -25,17 +44,17 @@ FF Constant /line
 
 \ User variables                                       13feb93py
 
-\ doesn't produce real user variables now, but normal variables
+\ initialized by COLD
 
 Create main-task  100 cells allot
 main-task tup H ! minimal
 
-Variable udp
+Variable udp \ used by dovar:, must be variable
 
 AUser next-task        main-task next-task !
 AUser prev-task        main-task prev-task !
 AUser save-task        0 save-task !
-AUser s0
+AUser s0 \ used by douser:, must be user
 AUser r0
 AUser f0
 AUser l0
@@ -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