--- gforth/Attic/vars.fs	1994/07/21 10:52:53	1.5
+++ gforth/Attic/vars.fs	1997/01/14 16:30:52	1.13
@@ -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,25 +30,35 @@ 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
 
+40 Constant c/l
+10 Constant l/s
+400 Constant chars/block
+
 \ that's enough so long
 
 \ 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
 
-Variable udp
+Variable udp \ used by dovar:, must be variable
 
-AUser s0
+AUser next-task        main-task next-task !
+AUser prev-task        main-task prev-task !
+AUser save-task        0 save-task !
+AUser s0 \ used by douser:, must be user
 AUser r0
 AUser f0
+AUser l0
 AUser handler
 \ AUser output
 \ AUser input
@@ -39,13 +67,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