--- gforth/Attic/vars.fs	1994/05/07 14:56:07	1.3
+++ gforth/Attic/vars.fs	1995/10/07 17:38:21	1.7
@@ -13,10 +13,14 @@ hex \ everything now hex!
 
 1 cells Constant cell
 
-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
@@ -26,11 +30,15 @@ FF Constant /line
 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
@@ -44,13 +52,14 @@ AUser "error            0 "error !
  User >in               0 >in !
  User blk               0 blk !
  User loadfile          0 loadfile !
-
+ 2User loadfilename	0 0 loadfilename 2!
+ 
  User loadline          \ number of the currently interpreted
                         \ (in TIB) line if the interpretation
                         \ is in a textfile
                         \ the first line is 1
 
- 2User linestart        \ starting file postition of
+2User linestart         \ starting file postition of
                         \ the current interpreted line (in TIB)
 
  User base              A base !
@@ -65,4 +74,7 @@ AUser dpp		normal-dp dpp !
 AUser LastCFA
 AUser Last
 
+User locals-size \ this is the current size of the locals stack
+		 \ frame of the current word
+