diff --git a/Makefile b/Makefile
index 1655edcf..e6dbd086 100644
--- a/Makefile
+++ b/Makefile
@@ -45,7 +45,7 @@ SRC = syseng sysen1 sysen2 sysen3 sysnet kshack dragon channa	\
       lars drnil radia gjd maint bolio cent shrdlu vis cbf digest prs jsf \
       decus bsg muds54 hello rrs 2500 minsky danny survey librm3 librm4 \
       klotz atlogo clusys cprog r eb cpm mini nova sits nlogo bee gld mprog2 \
-      cfs libmud librm1 librm2 mprog mprog1 mudbug mudsav
+      cfs libmud librm1 librm2 mprog mprog1 mudbug mudsav _batch combat
 DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
       chprog sail draw wl pc tj6 share _glpr_ _xgpr_ inquir mudman system \
       xfont maxout ucode moon acount alan channa fonts games graphs humor \
@@ -53,12 +53,13 @@ DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
       aplogo _temp_ pdp11 chsncp cbf rug bawden llogo eak clib teach pcnet \
       combat pdl minits mits_s chaos hal -pics- imlac maint cent ksc klh \
       digest prs decus bsg madman hur lmdoc rrs danny netwrk klotz hello \
-      clu r mini nova sits jay rjl nlogo mprog2 mudbug cfs
+      clu r mini nova sits jay rjl nlogo mprog2 mudbug cfs hudini
 BIN = sys sys1 sys2 emacs _teco_ lisp liblsp alan inquir sail comlap \
       c decsys graphs draw datdrw fonts fonts1 fonts2 games macsym \
       maint _www_ gt40 llogo bawden sysbin -pics- lmman shrdlu imlac \
       pdp10 madman survey rrs clu clucmp rws mini mudsav mudsys libmud \
-      librm1 librm2 librm3 librm4 mbprog mprog1 mprog mprog2 mudbug mudtmp
+      librm1 librm2 librm3 librm4 mbprog mprog1 mprog mprog2 mudbug mudtmp \
+      _batch
 MINSRC = midas system $(DDT) $(SALV) $(KSFEDR) $(DUMP)
 
 # These are not included on the tape.
diff --git a/bin/_batch/arc.info b/bin/_batch/arc.info
new file mode 100644
index 00000000..a848b261
Binary files /dev/null and b/bin/_batch/arc.info differ
diff --git a/build/muddle.tcl b/build/muddle.tcl
index 6ce06305..b41b1fee 100644
--- a/build/muddle.tcl
+++ b/build/muddle.tcl
@@ -86,3 +86,88 @@ respond "Type Y if you wish to have Save File directly restored:" "y\r"
 respond "Type Second Name of Save File:" "55save\r"
 respond "Type Sname of Save File:" "mudsav\r"
 expect ":KILL"
+
+# Build DM Daemons (COMBAT ZONE, BATCHN). GUNNER is already built in dm.tcl
+
+# Build COMBAT ZONE (ZONE)
+respond "*" ":assem \"combat;privat >\" \"combat;privat nbin\"\r"
+expect ":KILL"
+
+respond "*" ":ecomp\r"
+respond "T" "<FILE-COMPILE \"combat;master >\" \"combat;master nbin\">\033"
+respond "Job ECOMP wants the TTY" "\033p"
+respond "I'm done anyway." "<QUIT>\033"
+expect ":KILL"
+
+respond "*" ":ecomp\r"
+respond "T" "<FLOAD \"combat;master nbin\">\033"
+respond "\"DONE\"" "<SNAME \"\">\033"
+respond "\"\"" "<PROG () \n\i<SAVE \"mudsav;zone 55save\">\r"
+type "\i<BATCH-COMPIL>\r>\033"
+respond "#FALSE ()" "<QUIT>\033"
+expect ":KILL"
+
+respond "*" ":midas sys;atsign zone_mudsys;subsys maker\r"
+respond "Type in Subsystem (Save File) name:" "zone\r"
+respond "Type Y if you wish to have Save File directly restored:" "y\r"
+respond "Type Second Name of Save File:" "55save\r"
+respond "Type Sname of Save File:" "mudsav\r"
+expect ":KILL"
+
+# Build BATCHN daemon
+
+respond "*" ":ecomp\r"
+respond "T" "<SNAME \".batch\">\033"
+respond "\".batch\"" "<FILE-COMPILE \"templt >\" \"templt nbin\">\033"
+respond "Job ECOMP wants the TTY" "\033p"
+respond "I'm done anyway." "<FILE-COMPILE \"tcheck >\" \"tcheck nbin\">\033"
+respond "Job ECOMP wants the TTY" "\033p"
+respond "I'm done anyway." "<FILE-COMPILE \"taskm >\" \"taskm nbin\">\033"
+expect -timeout 600 "Job ECOMP wants the TTY"
+type "\033p"
+respond "I'm done anyway." "<FILE-COMPILE \"batchq >\" \"batchq nbin\">\033"
+respond "Job ECOMP wants the TTY" "\033p"
+respond "I'm done anyway." "<FILE-COMPILE \"batchn >\" \"batchn nbin\">\033"
+expect -timeout 600 "Job ECOMP wants the TTY"
+type "\033p"
+respond "I'm done anyway." "<QUIT>\033"
+expect ":KILL"
+
+respond "*" ":mud55\r"
+respond "LISTENING-AT-LEVEL 1 PROCESS 1" "<SNAME \".batch\">\033"
+respond "\".batch\"" "<FLOAD \"batchn maker\">\033"
+respond "\"DONE\"" "<SAVER T>\033"
+respond "TO CREATE SAVE FILE\"" "<QUIT>\033"
+expect ":KILL"
+
+respond "*" ":midas sys;atsign batchn_mudsys;subsys maker\r"
+respond "Type in Subsystem (Save File) name:" "batchn\r"
+respond "Type Y if you wish to have Save File directly restored:" "y\r"
+respond "Type Second Name of Save File:" "save\r"
+respond "Type Sname of Save File:" ".batch\r"
+expect ":KILL"
+
+# Now build BATCH user program (interfaces with BATCHN daemon)
+
+respond "*" ":link libmud;pmap fbin,mbprog;pmap fbin\r"
+
+respond "*" ":ecomp\r"
+respond "T" "<SNAME \".batch\">\033"
+respond "\".batch\"" "<FILE-COMPILE \"nbatch >\" \"nbatch nbin\">\033"
+expect -timeout 600 "Job ECOMP wants the TTY"
+type "\033p"
+respond "I'm done anyway." "<QUIT>\033"
+expect ":KILL"
+
+respond "*" ":mud55\r"
+respond "LISTENING-AT-LEVEL 1 PROCESS 1" "<FLOAD \".batch;nbatch nbin\">\033"
+respond "\"DONE\"" "<DUMPCAL!-MUDCAL!-PACKAGE B11 \".batch;nbatch 55save\">\033"
+respond "\"SAVED\"" "<QUIT>\033"
+expect ":KILL"
+
+respond "*" ":midas sys3;ts batch_mudsys;subsys maker\r"
+respond "Type in Subsystem (Save File) name:" "nbatch\r"
+respond "Type Y if you wish to have Save File directly restored:" "y\r"
+respond "Type Second Name of Save File:" "55save\r"
+respond "Type Sname of Save File:" ".batch\r"
+expect ":KILL"
diff --git a/build/timestamps.txt b/build/timestamps.txt
index 2fc32724..0adc1da4 100644
--- a/build/timestamps.txt
+++ b/build/timestamps.txt
@@ -81,6 +81,14 @@ bsg/oonl.3 198003302233.12
 bsg/qcolor.73 198202021016.05
 bsg/qqc.54 198202021013.59
 _/bt.rp06 199008150059.29
+_batch/arc.info 197909261015.35
+_batch/batchn.maker 197811030814.47
+_batch/batchq.ujhm12 197812141034.57
+_batch/batchn.ujm150 198102120911.01
+_batch/nbatch.usg140 198002111120.26
+_batch/taskm.ujm127 202303040702.17
+_batch/tcheck.ujhm26 198102121111.34
+_batch/templt.ujhm09 197811030724.35
 budd/live.palx 198912270303.37
 cbf/imgout.27 198403100100.51
 cbf/rug.featur 198001140355.59
@@ -208,6 +216,12 @@ c/}lp.bin 198101151907.52
 c/}m.bin 198007161811.50
 c/nc.insert 197904081640.44
 c/nm.insert 197704110809.48
+combat/privat.undr15 197810171735.19
+combat/master.undr78 197810280734.16
+combat/master.xplan 202302031511.31
+combat/gunner.down 202211101513.31
+combat/crowd.contrl 202211101511.22
+combat/-read-.-this- 202108262240.30
 comlap/ccload.193 198202172211.07
 comlap/cd_fas.40 198107041832.40
 comlap/cdmacs.40 198107041832.05
@@ -2185,6 +2199,7 @@ mudbug/unlink.nbin 197901202019.07
 mudbug/unlink.utaa08 197805231636.43
 mudbug/unpure.nbin 197901202010.19
 mudbug/unpure.utaa05 197901202010.05
+mudman/ncomba.info 197704280957.59
 muds54/agc.84 197705311231.24
 muds54/agcmrk.1 197607201900.21
 muds54/bufmod.4 197701051727.04
@@ -2697,14 +2712,14 @@ sysen2/bitprt.19 198105250311.55
 sysen2/calprt.23 198105231559.39
 sysen2/cftp.475 198601232312.22
 sysen2/demst.19 198104301431.59
-sysen2/demstr.49 198305080554.36
+sysen2/demstr.51 202303021310.13
 sysen2/dmarcd.30 197707041902.17
 sysen2/fcdev.74 198204181031.52
 sysen2/fed.134 198201011658.37
 sysen2/fnr.10 197409042300.00
 sysen2/fretty.62 198309301742.43
 sysen2/hostat.24 197802190817.56
-sysen2/gunner.mta381 198210061542.42
+sysen2/gunner.mta382 202302260721.43
 sysen2/iec.32 197810122101.03
 sysen2/instal.24 198605160728.36
 sysen2/ipljob.47 197509161146.19
@@ -2858,6 +2873,7 @@ sys/ts.fail 197306211035.33
 sys/ts.gas 197104182237.38
 sys/ts.ksfedr 198603250624.15
 sys/twxdfs.8 198103242152.07
+taa/gunner.init 197909171950.08
 teach/apropo.10 198208150134.52
 teach/compla.19 198208290040.39
 teach/databa.45 198408041040.48
diff --git a/doc/hudini/-read-.-me- b/doc/hudini/-read-.-me-
new file mode 100644
index 00000000..f39d06ae
--- /dev/null
+++ b/doc/hudini/-read-.-me-
@@ -0,0 +1,2 @@
+This directory is required by GUNNER and other DM programs.
+Gunner writes a log here.
diff --git a/doc/mudman/ncomba.info b/doc/mudman/ncomba.info
new file mode 100755
index 00000000..ab6f56b9
--- /dev/null
+++ b/doc/mudman/ncomba.info
@@ -0,0 +1,300 @@
+NCOMBAT		(TAA, 3/8/77)
+
+	NCOMBAT is intended to replace both the old, MUDDLE version of
+NCOMBAT and the standard COMBAT.  It has all the features of NCOMBAT,
+including user-tailorable compilation types (see below), a 'Short'
+compilation type which asks only the bare minimum of questions, and a
+'backup' character which allows one to back up in the question sequence,
+in the event that a mistake was made.  Although the interface is rather
+different from that of COMBAT, the NCOMBAT features are as unobtrusive
+as possible for those who don't want to use them, and it is considerably
+faster than either COMBAT or the old NCOMBAT.
+
+User interface
+	NCOMBAT's user interface is patterned after, though not
+identical to, a CALICO interface like that used in the MUDDLE version of
+NCOMBAT.  In particular, it expects in response to any given prompt a
+particular type of input from the user, which may be a file name, a
+'symbol', or text.  Ordinarily, the type of input expected is indicated
+by the 'syntactic prompt' which follows the normal prompt; this is one
+of '(FILESPEC)', '(SYM)', and '(TEXT)'.  The 'Toggle verbosity'
+compilation type turns the printing of the syntactic prompt on and off,
+and causes a tailor file to be written out when used.
+	A number of special characters are defined for any of these
+types of input:
+  ctrl-@:  Clears the input buffer, just as in MUDDLE.
+  ctrl-D:  Redisplays the input buffer.
+  ctrl-G:  When given as the first character of an answer, allows one to
+	   get the answer from a user-defined type.  See the section on
+	   tailoring. 
+  ctrl-L:  Clears the screen and redisplays the input buffer.
+  ctrl-Q:  Has special effects when a compilation is being made.  (See
+	   below.)  See also the section on file name input.
+  ctrl-R:  Causes NCOMBAT to 'back up'.  Typically this means go to the
+	   previous question asked, but in certain modes it may have a
+	   slightly different effect.  When a MUDCOM is running, this
+	   kills it and pretends that ctrl-R has been typed at the
+	   'Compare' question.
+  ctrl-S:  Abnormally ends whatever is being done, and returns to
+	   'toplevel':  the 'Type of compilation' question.  If a MUDCOM
+	   is running, it will be killed.  When a long compilation
+	   (How to run is 'Many') is being made, the portions already
+	   made will be saved.  See the 'Flush many' compilation type.
+  ?:	   When given as the first character of an answer, this causes a
+	   more detailed description of what is expected to be printed,
+	   along with the current default and how to obtain it.
+  \:	   This quotes whatever character follows it, including
+	   <rubout>, <altmode>, &c.  It does NOT have the effect of
+	   quoting strange characters in file names; see the section on
+	   file name input.  \, used as a quote character, never echoes,
+	   and cannot be rubbed out.
+In addition, when the syntactic prompt is (SYM), ctrl-F is useful.
+
+Symbolic input
+	If you are familiar with CALICO, this can probably be skipped. 
+When entering symbolic input, one need only type the characters required
+to uniquely specify the desired choice:  the interface will complete the
+response, and in addition can display the available choices at any
+point.  In particular, <space> requests the interface to complete the
+response as far as it can.  If the response is uniquely specified, it
+will be displayed in its entirety, followed by '!'; if more than one
+choice is still possible, then the interface will display the portion of
+those choices which is unambiguously specified, followed by '&'.  For
+instance, if 'Expand floads' and 'Expand splices' are among the choices,
+and 'Ex<space>' has been typed, 'Expand &' will be displayed since the
+'Ex' reduces the choices to those two.
+	In some cases, if <space> is the first character typed it will
+select the default (first) choice and terminate.
+	When ctrl-F is typed, the interface will display all remaining
+choices. 
+	To terminate responses in this mode, either <altmode> or <crlf>
+may be used.  In either case, the interface first completes the current
+response as far as it can.  If only one choice then remains, the answer
+is terminated and can be used.  If more than one choice is possible, it
+is just as if <space> had been typed.
+	Typing <altmode> or <crlf> before any other characters have been
+entered causes the default answer to be used.
+
+File names
+	File names are expected in the standard dev:sname;fname1 fname2
+format.  Typically, typing simply <alt> or <crlf> answers 'no' to the
+question, while <space><alt> says 'Use the default'.  In certain special
+cases (input file and output file), when some answer to the question is
+imperative, the default will be used in either case.  File names should
+NOT be surrounded by quotes in this mode.
+	It is rather painful to get funny characters (such as <space>)
+into file names.  When the file-name parser sees a ctrl-Q, it uses the
+following character in the name being generated regardless. 
+Unfortunately, the ctrl-Q must be quoted to get it past the reader,
+since it has special effects in the normal case.  Thus, the file
+'TAA; FOO >' has to be entered as 'TAA;\ FOO >'.
+
+Text
+	Text is just that:  [relatively] arbitrary characters,
+terminated by <altmode>.  Since <crlf> is allowed in text, it does not
+terminate input.  Text type input is used in a number of cases where it
+isn't quite appropriate, such as the redo list and package mode
+questions.  If it is known that the expected response is a list or
+string, as in those cases, the appropriate brackets should NOT be
+supplied.  Assuming, of course, that winnage is desired.
+
+
+Submitting compilations
+	The first question asked by NCOMBAT is 'Type of compilation'. 
+In addition to a number of special possibilities described later, there
+are two (in addition to any provided by the user through the tailoring
+facility) answers to this question which cause a compilation to be
+submitted:  'Verbose' (the default) and 'Short'.  The only distinction
+is that 'Verbose' causes all the normal questions to be asked:  new
+compiler, input file, precompilation, 97 switches, things to do, and so
+on; 'Short', on the other hand, defaults the answers to all questions
+except new compiler, input file, and how to run.
+	If 'Many' was given as 'How to run' for a previous compilation,
+and the resulting plan has not yet been written out, all subsequent
+plans will be appended to it.  The ONLY way to get rid of this plan is
+to answer 'Many flush' to the 'Type' question.  Typing ctrl-S or
+answering 'Abort' to the 'How to run' question will abort the current
+portion of the moby compilation, but not the whole thing.
+	If  'Many' was mistakenly given as 'How to run', and you don't
+wish to destroy the plan you have generated, it is possible to (in
+essence) go back to the 'How to run' question by answering 'Many print'
+for the compilation type.  In this case, you are NOT!!! back in the
+plan-making loop; ctrl-R acts just like ctrl-S.
+	When submitting a compilation, one may type ctrl-Q at any time. 
+This has the same immediate effect as an altmode, but in addition causes
+all questions between the one just answered and the 'things to do'
+question to be defaulted.  This is particularly useful in the 'Verbose'
+sequence of questions.
+	Ctrl-R, here, backs up to the last question asked.  There are
+two qualifications.  First, if ctrl-Q has been typed, then it backs up
+to the last question that would have been asked if ctrl-Q had not been
+typed.  Second, the four questions 'Precompilation to load', 'Compare',
+'Redo', and 'Package mode' are treated as a group:  if the package mode
+question has not yet been answered, it is possible to back up normally;
+but once that question has been answered, backing up to it will go to
+the first member of the group, 'Precompilation'.
+	Ctrl-G allows one to obtain the answer to the current question
+from any user-defined group.  It requests a group name, and uses the
+answer/default supplied therein, printing the information so obtained. 
+The ctrl-G must be typed as the first character of the answer for this
+to occur.  This allows one to use parts of a defined group without
+either using the group itself or altering it for the occasion.  For
+(TEXT) type input (such as things to do), the string is placed in the
+input buffer but not completed, so it may be edited before an altmode is
+typed.   See also the 'Xerox group' command.
+	Note that there is a distinction made between 'Compare' and
+'Redo'; the former causes a MUDCOM to be run, and the latter asks for
+the names of functions to be recompiled.  It is possible to do both, in
+which case the two groups of functions are appended to form the redo
+list for the compilation.  Note also that if a MUDCOM has been run, the
+'Package mode' question will not be asked, since the answer is supplied
+by the MUDCOM.  Either ctrl-R or ctrl-S may be used to kill a running
+MUDCOM. 
+
+	One of the responses to the 'How to run' question is 'Abort',
+which returns directly to the 'Type of compilation' question without
+writing out a plan, starting up a pcomp, or anything else.  Its effect
+is exactly that of a control-S.  In particular, if you are making a long
+compilation, only the portion just completed, NOT the entire
+compilation, will be aborted.
+
+	It is also possible at the 'How to run' question to supply an
+answer to any of the compilation questions (Input file, etc.).  The
+'Question' response asks for the name of a question, then asks that
+question.  Any number of questions can be asked in this manner, one at a
+time.  This is particularly useful for filling in the blanks left by a
+'Short' type compilation, or by a user-defined types.
+
+	When a compilation has been finished, NCOMBAT normally loops
+back to the 'Type of compilation' question, but changes the default from
+'Verbose' to 'None' (==Quit), unless another compilation may reasonably
+be expected.  This enables one to leave by typing a single <altmode>. 
+It is possible to modify its behavior such that it either kills itself
+after finishing the compilation, or loops back with 'Verbose' as the
+default for the 'Type of compilation' question.  NCOMBAT first decides
+whether a long compilation is being made; if so, the default remains
+'Verbose.'  It then examines the current compilation type:  if 'Another
+compilation?' has been set to 'Yes', the question will be asked with
+default 'Verbose'; if to 'No', NCOMBAT will kill itself; if to 'ASK',
+further consideration is required.  If the user is in 'Multiple' mode
+(the 'Multiple' compilation type), the type of compilation will be asked
+with the 'Verbose' default.  Otherwise, NCOMBAT examines the state of
+two tailorable switches, set by the 'Another compilation?' compilation
+type.  If this has been set to 'No', the job will die; if to 'yes', the
+type question will be asked with default 'Verbose'; if to 'ask', the
+type questio will be asked with default 'None'.  Normally this is 'ask'.
+Note that this switch is like 'Toggle verbosity' in that it will have no
+effect unless user-defined compilation types exist.
+
+
+User tailoring
+	It is often the case that a particular file is compiled quite
+often, or that some sequence of actions must be performed as the 'Things
+to do' before many compilations.  NCOMBAT allows the user to define his
+own 'compilation types', each of which specifies exactly those questions
+which should be asked and the answers for those which should not.  For
+example, one could have a type named 'Esign', which says that the input
+file is always SEND;ESIGN > and in addition provides for the floading of
+two files in 'Things to do'.  Further, since most questions are
+defaulted, one might choose to answer only those questions which are
+interesting, such as precompilation.  It is also possible to supply a
+default answer for a question which will be asked.
+	In addition, there are some questions which are not asked by the
+verbose compilation type, but which nevertheless are available to
+user-defined types.  These are:  Macro compile, Macro flush, Max space,
+Expand splices, Special mode, and Glue.   It is a restriction of the
+compiler that the logical 'AND' of macro compile and max space must be
+false.
+	One can select any of one's defined compilation types as an
+answer to the 'Type of compilation' question, just like 'Verbose' and
+'Short'.  Except that the questions asked may differ, user-defined types
+are identical to the predefined types.
+
+Tailor files
+	User-defined types are saved (and loaded) from the file
+<sname>;%combt tailor.  It is possible to load other tailor files, but
+the %combt file in <sname> is loaded during startup.  Tailor files are
+quite similar to gc-dumped files, and thus cannot be edited using TECO.
+
+Create type
+	This special compilation type requests a name for the type
+being made, then enters a loop with the prompt 'Question'.  One may
+choose any of the available questions, and either supply an answer or
+(the default) request that the question be asked when a compilation of
+this type is being submitted.  Note that only the 'How to run' and
+'Another compilation?' questions will be asked unless others are
+explicitly supplied; but one may supply answers to 'How to run' and
+'Another compilation' when creating a type.
+	In this mode, ctrl-R will return to the 'Question' loop if one
+has just supplied an answer; otherwise, it returns to the 'Type of
+compilation' loop, aborting the type.
+	Ctrl-G behaves exactly as it does in the normal loop.
+	To indicate that one is finished, one should answer 'Finis' to
+the 'question' prompt.  It is possible to supply several different
+versions of the answer to particular question:  the last one given will
+be used.  One may wish to default a particular question, after
+specifying that it was to be asked or after supplying some different
+default.  This may be done by answering 'Delete question' to the
+'Question' prompt, whereupon one will be asked for a particular question
+to ignore.  This question will then be completely ignored.  Note that
+ALL interesting questions are initially in this state.
+	There is also a 'Set question default' "question."  This
+requests a question name, then asks the user to supply an answer.  The
+question will be asked, with the default supplied.  Thus default
+settings of switches can be changed, and one can supply a file name for
+the precompilation while still being asked whether precompilation is
+desired.  Unfortunately, user-supplied defaults for TEXT-type questions
+are used if <altmode> is answered; to get rid of the default, type
+<space><altmode>.  Note that this is exactly the inverse of the
+convention for defaulting file names.
+
+	When 'Finis' has been typed, a new copy of one's tailor file is
+written out.  This may, in combination with 'Load tailor' and
+'Replace tailor', have undesirable side effects.
+
+Print type
+	This requests the name of one of the types currently loaded,
+and prints out for it all questions which either will be asked when a
+compilation is being submitted or which have user-supplied defaults.  If
+a particular question has been globally 'turned off' (such as the new
+compiler question, when there is no new compiler), an asterisk will be
+printed on the appropriate line to indicate that the information there
+is currently not used.
+
+Delete type
+	This requests the name of one of the currently-loaded types,
+and deletes it.  A new copy of the tailor file is written out, so all
+trace of the type will vanish when this command is used.
+
+Alter type
+	This requests a type name, then becomes identical to
+Create type, except that some questions already have answers.  Again,
+'Finis' must be typed to leave the loop and cause the modifications to
+be filed; typing ctrl-R or ctrl-S will leave the loop, but the
+modifications will be forgotten.
+
+Load tailor, Replace tailor
+	Both of these request a file name, defaulting to the last one
+used for either a load tailor or replace tailor command.  Initially this
+is <sname>;%combt tailor.  Load tailor appends the types defined in the
+specified file to those already loaded, while Replace tailor throws away
+those already loaded first.  The types defined in this way are not
+distinguished from those loaded from one's own combat tailor; in
+particular, using 'Toggle.verbosity' or any of create, alter, and delete
+type will cause all the types currently loaded to be written out to
+the combat tailor.  If, therefore, one has done a replace tailor, one
+can easily lose all of one's own types in this manner.  I.e., it is
+very easy to screw oneself.
+
+Xerox tailor
+	This requests the name of an existing user-defined type, and a
+new type name.  The new type becomes an exact copy of the
+previously-existing type.  This is particularly useful when one has
+several different types which do almost the same thing.
+
+
+Unimplemented features
+	An SNAME question will be installed, though not in the normal
+'Verbose' sequence.  This would cause the setting of the sname default,
+which would alleviate some of the problems with NCOMBAT's habit of
+printing out entire file names.    
\ No newline at end of file
diff --git a/src/_batch/batchn.maker b/src/_batch/batchn.maker
new file mode 100644
index 00000000..6a1da938
--- /dev/null
+++ b/src/_batch/batchn.maker
@@ -0,0 +1,8 @@
+
+<PRINT "Don't let me finish loading without the TTY! 
+">
+<SNAME ".BATCH">
+<USE "BATCHN">
+<BLOAT 7000 2000 2 3 1 1000 600		;"from BLOAT? thru QUEUE-START  -- SWG"
+       10240 32 64 16 4096>		;"change some GC params for demon -- JHM"
+<PRINT "INVOKE <SAVER <-permanent>-> TO CREATE SAVE FILE (permanent DEFAULTS TO <>)">
diff --git a/src/_batch/batchn.ujm150 b/src/_batch/batchn.ujm150
new file mode 100644
index 00000000..6859f42f
--- /dev/null
+++ b/src/_batch/batchn.ujm150
@@ -0,0 +1,709 @@
+<PACKAGE "BATCHN">
+
+<ENTRY	QUEUE
+	NAME-OF-SCRIPT BATCH-SCRIPT-LEVEL
+
+	BATCHN SAVER
+	BATCH-SCRIPT NIGHT? NEXT-NIGHT
+	UPDATE-QUEUE DELETE-FROM-DISK-Q
+	REMOVE-TASK SOONEST-TIME READ-TASK-ACT
+	TASK-DESCRIPTOR INSERT-TASK
+	WRITE-TASK WRITE-QUEUE FIND-NEXT-TASK BATCHQ-OBL>
+
+<USE	"BATCHQ"	;"task descriptor atoms"
+	"TASKM"		;"ACKNOWLEDGE DEBUG-MODE NORMAL-MODE NQUEUES
+			   SETUP-ERROR-INTERRUPT-HANDLER SETUP-INTERRUPT-HANDLERS
+			   SETUP-SYSTEM-LOCATIONS START-RUNNING TASK-ABORT"
+	"TCHECK"	;"TASK-CHECK"
+	"TEMPLT"	;"INDIRECT-MOD TASK-FIELDNAMES TASK-TEMPLATE"
+
+	"CHARAP"	;"CHARAPPEND CR"
+	"DATIME"	;"RTIME"
+	"DIR"		;"GET-DIRECTORY PARSE-DIRECTORY"
+	"DOW"		;"DOW"
+	"ITS"		;"ITS-CALL"
+	"NOW"		;"NOW"
+	"QPUT"		;"READ-PUTAWAY UNPUTAWAY-WRITE MAKE-TEMPLATE"
+	"STR"		;"STRTOX"
+	"TIMFCN"	;"BEFORE? DATE-DOW DTADD DTDIFF DTNORM DTNOW HOLIDAY? PAST?">
+
+<GDECL	(QUEUE) <VECTOR LIST [REST LIST]>
+	(TASKS-IN-QUEUE) <LIST [REST FIX]>
+	(NAME-OF-SCRIPT) <OR <VECTOR [REST STRING]> STRING>
+	(BATCH-SCRIPT-LEVEL) FIX
+	(START-TIME) <LIST LIST LIST STRING>>
+
+<SETG BATCHQ-OBL (<GET INITIAL!- OBLIST>
+		  <MOBLIST BATCHQ!-PACKAGE!- >
+		  <ROOT>)>
+<GDECL (BATCHQ-OBL) LIST>
+
+;"<PACKAGE \"AB-QUE\">"
+
+;<USE "BATCHQ" "QPUT">
+
+;<ENTRY	AB-FIELDS AB-TEMPLATE AB-T-LENGTH>
+
+;<MANIFEST AB-TEMPLATE AB-FIELDS AB-T-LENGTH>
+
+<GDECL (AB-TEMPLATE) VECTOR (AB-FIELDS) UVECTOR>
+
+<SETG AB-TEMPLATE
+      <MAKE-TEMPLATE
+ '[TASK-ID-NUMBER		0
+   ORIGINATOR			<>
+   TASK-NAME			<>
+   TASK-STATE			<>
+   TIME-OF-NEXT-RUN		<>
+   NIGHT-RUN-SWITCH		<>]>>
+
+<SETG AB-FIELDS
+ '![TASK-ID-NUMBER
+   ORIGINATOR
+   TASK-NAME
+   TASK-STATE
+   TIME-OF-NEXT-RUN
+   NIGHT-RUN-SWITCH]>
+
+<SETG AB-T-LENGTH <LENGTH ,AB-TEMPLATE>>
+
+;"<ENDPACKAGE>"
+
+
+<DEFINE TASK-TORDER (TSK1 TSK2
+		     "AUX" (TIME1 <TIME-OF-NEXT-RUN .TSK1>)
+			   (TIME2 <TIME-OF-NEXT-RUN .TSK2>))
+    #DECL ((TSK1 TSK2) VECTOR (TIME1 TIME2) <OR STRING LIST>
+	   (VALUE) <OR ATOM FALSE>)
+    <COND (<TYPE? .TIME1 STRING> <SET TIME1 <DTNOW>>)>
+    <COND (<TYPE? .TIME2 STRING> <SET TIME2 <DTNOW>>)>
+    <BEFORE? .TIME1 .TIME2>>
+
+<DEFINE BATCH-SCRIPT ("TUPLE" MSGS
+		      "AUX" (OLD-INT-LEVEL <INT-LEVEL 1000>) (LEV <1 .MSGS>))
+    #DECL ((MSGS) TUPLE
+	   (OLD-INT-LEVEL VALUE) FIX
+	   (LEV) ANY)
+    <COND (<NOT <TYPE? .LEV FIX>>
+	   <B-SCRIPT !.MSGS>)
+	  (<L? .LEV ,BATCH-SCRIPT-LEVEL>)
+	  (<G=? .LEV 300>
+	   <B-SCRIPT CR CR !<REST .MSGS> CR CR>)
+	  (ELSE <B-SCRIPT !<REST .MSGS>>)>
+    <INT-LEVEL .OLD-INT-LEVEL> >
+
+<DEFINE B-SCRIPT ("TUPLE" MSGS "AUX" NOS)
+    #DECL ((MSGS) TUPLE (NOS) <OR STRING <VECTOR [REST STRING]>> (VALUE) ANY)
+    <COND (<GASSIGNED? NAME-OF-SCRIPT>
+	   <COND (<TYPE? <SET NOS ,NAME-OF-SCRIPT> STRING>
+		  <CHARAPPEND .NOS 0 T <LOGTIME> !.MSGS CR>)
+		 (<TYPE? .NOS VECTOR>
+		  <MAPF <>
+			#FUNCTION ((A) #DECL ((A) STRING)
+				   <CHARAPPEND .A 0 T <LOGTIME> !.MSGS CR>)
+			.NOS>)>)>>
+
+<DEFINE LOGTIME ()
+	<MAPR ,STRING
+	      <FUNCTION (T)
+		#DECL ((T) <LIST FIX>)
+		<MAPRET <REST <UNPARSE <+ <1 .T> 100>>>
+			<COND (<LENGTH? .T 1> !\ ) (T !\:)>>>
+	      <RTIME>>>
+
+<DEFINE WHICH-QUEUE (TSK "AUX" (TTYPE <TASK-TYPE .TSK>))
+    #DECL ((TSK) VECTOR (TTYPE) <OR FALSE STRING> (VALUE) FIX)
+    <COND (<1? ,NQUEUES> 1)
+	  (<OR <NOT .TTYPE> <=? "SHORT" .TTYPE>> 1)
+	  (ELSE 2)>>
+
+
+
+<DEFINE TASK-DESCRIPTOR (ID "OPTIONAL" (UPDATED-ALREADY? <>) "AUX" GT)
+   #DECL ((VALUE GT) <OR FALSE VECTOR>
+	  (ID) <OR FIX <LIST STRING STRING>> (UPDATED-ALREADY?) <OR ATOM FALSE>)
+
+   <COND (<SET GT <GET-TASK .ID>>)
+	 (<=? .GT #FALSE ("FAKE TASK")> <>)
+	 (.UPDATED-ALREADY? <>)
+	 (<UPDATE-QUEUE> <GET-TASK .ID>)>>
+
+
+<DEFINE GET-TASK (ID "AUX" A-TASK Q-TASK)
+   #DECL ((VALUE A-TASK) <OR FALSE VECTOR> (Q-TASK) VECTOR
+	  (ID) <OR <LIST STRING STRING> FIX>)
+   <MAPF <>
+	 #FUNCTION ((SQ)
+	     #DECL ((SQ) LIST)
+	     <REPEAT ()
+		 <COND (<LENGTH? .SQ 1> <RETURN <>>)
+		       (<T-MATCH .ID <SET Q-TASK <2 .SQ>>>	;"THAT'S THE GUY"
+			<COND (<==? <LENGTH .Q-TASK> ,AB-T-LENGTH>
+						;"IN ABBREVIATED FORM"
+						;"SPLICE OUT THE SHORT AND .."
+			       <PUTREST .SQ <REST .SQ 2>>
+			       <AND <SET A-TASK <READ-TASK <TASK-ID-NUMBER .Q-TASK>>>
+				    <INSERT-TASK .A-TASK>
+				    <MAPLEAVE .A-TASK>>
+			       <MAPLEAVE #FALSE ("FAKE TASK")>)
+			      (<MAPLEAVE .Q-TASK>	;"IN FULL LENGTH FORM")> )>
+		 <SET SQ <REST .SQ>>>)
+	 ,QUEUE>>
+
+<DEFINE T-MATCH (IDN P-TASK)
+   #DECL ((VALUE) ANY (IDN) <OR <LIST STRING STRING> FIX> (P-TASK) VECTOR)
+   <COND (<TYPE? .IDN FIX>
+	  <==? <TASK-ID-NUMBER .P-TASK> .IDN>)
+	 (<AND <=? <ORIGINATOR .P-TASK> <1 .IDN>>
+	       <=? <TASK-NAME .P-TASK> <2 .IDN>>>)>>
+
+
+<DEFINE UPDATE-QUEUE ("AUX" (S <PROCESS-SPECS>)
+			    (M <PROCESS-MODS>))
+   #DECL ((S) <OR ATOM FALSE> (M) <OR UVECTOR FALSE>)
+   <AND .S <NOT .M> <WRITE-QUEUE>>
+   <OR .S .M>>
+
+<DEFINE PROCESS-SPECS ("AUX" (NEWS <>) (SPEC-NOS <GET-TASK-NUMS>))
+    #DECL ((VALUE NEWS) <OR ATOM FALSE> (SPEC-NOS) <OR <UVECTOR [REST FIX]> FALSE>)
+
+   <COND (.SPEC-NOS
+	  <MAPF <>
+		#FUNCTION ((N "AUX" TSK)
+		      #DECL ((N) FIX (TSK) ANY)
+		      <COND (<NOT <MEMQ .N ,TASKS-IN-QUEUE>>
+			     <SETG TASKS-IN-QUEUE (.N !,TASKS-IN-QUEUE)>
+			     <AND <SET TSK <READ-TASK .N>>
+				  <SET NEWS T>
+				  <INSERT-TASK .TSK>>)>)
+		.SPEC-NOS>)
+	 (ELSE
+	  <BATCH-SCRIPT "*** ERROR from GET-TASK-NUMS: " .SPEC-NOS " ***">)>
+    .NEWS>
+
+<DEFINE GET-TASK-NUMS ("AUX" D)
+ #DECL ((VALUE D) <OR FALSE UVECTOR>)
+ <COND (<SET D <GET-DIRECTORY ".BATCH">>
+	<MAPF ,UVECTOR
+	      <FUNCTION (V "AUX" N (TAGS <8 .V>))
+			#DECL ((V) VECTOR (N) ANY (TAGS) LIST)
+			<COND (<AND <=? <1 .V> "SPECS">
+				    <TYPE? <SET N <PARSE <2 .V>>> FIX>
+				    <NOT <MEMQ !\C .TAGS>>
+				    <NOT <MEMQ !\W .TAGS>>>
+			       <MAPRET .N>)
+			      (T <MAPRET>)>>
+	      <PARSE-DIRECTORY .D>>)>>
+
+<SETG MODIFIER-TABLE
+     '![TASK-STATE		CHANGE-STATE
+	TIME-OF-NEXT-RUN	CHANGE-TIME-OF-NEXT-RUN
+	TASK-TYPE		CHANGE-TASK-TYPE
+	TASK-ID-NUMBER		DUMMY-FCN
+	BY-WHOM-MODIFIED	DUMMY-FCN
+	WHEN-MODIFIED		DUMMY-FCN]>
+<GDECL (MODIFIER-TABLE) <UVECTOR [REST ATOM]>>
+;<MANIFEST MODIFIER-TABLE>
+
+<DEFINE PROCESS-MODS ("AUX" C D X TASK MOD-USER FIELD F NEW WQ?
+			    (ACKN IF-MODIFIED) (REWRITE-Q? <>) (OBLIST ,BATCHQ-OBL))
+    #DECL ((VALUE REWRITE-Q? WQ?) <OR FALSE UVECTOR> (D X FIELD NEW) ANY (F) FIX
+	   (C) <OR FALSE CHANNEL> (MOD-USER) STRING
+	   (TASK) <OR FALSE VECTOR>
+	   (ACKN) <SPECIAL <OR ATOM FALSE>> (OBLIST) <SPECIAL LIST>)
+
+    <REPEAT ()
+	<COND (<NOT <SET C <OPEN "READ" "DSK:.BATCH;MODS <">>>	;"OPEN MODS FILE"
+	       <RETURN .REWRITE-Q?>)				;"NONE (LEFT)"
+	      (<AOSED? <8 .C>>			;"DELETE MODS OPEN WHEN ITS CRASHED"
+	       <BATCH-SCRIPT "Deleting AOSed MODS file on channel " .C>
+	       <CLOSE .C>
+	       <RENAME "MODS" <QUOTED <8 .C>> "DSK" ".BATCH">)
+	      (<AND <SET D <READ .C <>>>		;"VALID MODS FILE?"
+		    <CLOSE .C>
+		    <TYPE? .D VECTOR>
+		    <SET X <MEMQ TASK-ID-NUMBER .D>>	;"GET TASK DESCRIPTOR"
+		    <G=? <LENGTH .X> 2>
+		    <DECL? <SET X <2 .X>> '<OR <LIST STRING STRING> FIX>>
+		    <SET TASK <TASK-DESCRIPTOR .X T>>>
+
+	       <SET WQ? <>>
+	       <COND (<AND <SET X <MEMQ BY-WHOM-MODIFIED .D>> ;"NAME OF USER"
+			   <G=? <LENGTH .X> 2>
+			   <TYPE? <SET X <2 .X>> STRING>>
+		      <SET MOD-USER .X>)
+		     (ELSE <SET MOD-USER "UNKNOWN">)>
+
+	       <BATCH-SCRIPT 100 "Modifying task " <TASK-ID-NUMBER .TASK>
+			     " for " .MOD-USER>
+
+	       <REPEAT	()				;"MODIFY THE TASK"
+		   <COND (<L? <LENGTH .D> 2> <RETURN T>)>
+		   <BATCH-SCRIPT 0 "    " <SET FIELD <1 .D>> "  " <SET NEW <2 .D>>>
+		   <COND (<AND <MEMQ .FIELD ,TASK-FIELDNAMES>
+			       <NOT <MEMQ .FIELD ,INDIRECT-MOD>>>
+			  <SET F ,.FIELD>
+			  <PUT .TASK .F .NEW>
+			  <SET WQ? <OR .WQ? <MEMQ .FIELD ,AB-FIELDS>>>)
+			 (<SET X <MEMQ .FIELD ,MODIFIER-TABLE>>
+			  <APPLY ,<2 .X> .NEW .TASK .MOD-USER>
+			  <SET WQ? <OR .WQ? <MEMQ .FIELD ,AB-FIELDS>>>)
+			 (ELSE
+			  <BATCH-SCRIPT 200 "BUM MODS REQUEST:  "
+					.FIELD " " .NEW
+					", PUNTING REST OF MODS FILE">
+			  <RETURN <>>)>
+		   <SET D <REST .D 2>> >
+
+	       <SET REWRITE-Q? <OR .REWRITE-Q? .WQ?>>
+	       <COND (.ACKN
+		      <ACKNOWLEDGE .TASK
+				   .ACKN
+				   <STRING "By " .MOD-USER>>)>
+	       <WRITE-TASK .TASK .WQ?>
+	       <RENAME "MODS" <8 .C> "DSK" ".BATCH"> )
+
+	      (ELSE			;"FILE HAD BAD STUFF IN IT"
+	       <BATCH-SCRIPT "Deleting bad MODS file containing " .D " on channel " .C>
+	       <CLOSE .C>		;"DELETE IT! "
+	       <RENAME "MODS" <8 .C> "DSK" ".BATCH">)> >>
+
+
+<DEFINE AOSED? (FNAME2)				;"OK IS DIGITS FOLLOWED BY SPACES"
+   #DECL ((VALUE) <OR ATOM FALSE> (FNAME2) STRING)
+   <PROG ()
+	 <COND (<EMPTY? .FNAME2> <>)		;"EMPTY NOW IF ALL WERE DIGITS"
+	       (<MEMQ <1 .FNAME2> "0123456789">	;"FIRST CHAR A(NOTHER) DIGIT?"
+		<SET FNAME2 <REST .FNAME2>>	;"YEP, SKIP IT"
+		<AGAIN>)
+	       (<==? <1 .FNAME2> !\ >		;"A SPACE -- "
+		<REPEAT ()			;"CHECK REST FOR SPACES ONLY"
+		   <COND (<EMPTY? <SET FNAME2 <REST .FNAME2>>>	;"GOOD, ONLY SPACES"
+			  <RETURN <>>)
+			 (<N==? <1 .FNAME2> !\ >	;"NOPE, SOMETHING ELSE HERE"
+			  <RETURN T>)> >)
+	       (T)> >>				;"OTHER GARBAGE IN FILE NAME ..."
+
+<DEFINE QUOTED (FNAME)
+   #DECL ((VALUE FNAME) STRING)
+   <MAPF ,STRING
+	 #FUNCTION ((CHR)
+		    #DECL ((CHR VALUE) CHARACTER)
+		    <COND (<MEMQ .CHR " :;"> <MAPRET !\ .CHR>)>
+		    .CHR)
+	 .FNAME> >
+
+
+<DEFINE READ-TASK (IDNUM
+		   "AUX" (TASK %<>) C
+			 (FILE <STRING "DSK:.BATCH;SPECS " <UNPARSE .IDNUM>>))
+    #DECL ((IDNUM) FIX (TASK VALUE) <OR FALSE VECTOR>
+	   (C) <OR CHANNEL FALSE> (FILE) STRING)
+    <COND (<AND <SET C <OPEN "READ" .FILE>>
+		<BATCH-SCRIPT 1 "Reading in task " .IDNUM>
+		<SET TASK <READ-TASK-WITH-ACT .C>>
+		<PUT .TASK ,TASK-ID-NUMBER .IDNUM>
+		<CLOSE .C>>)
+	  (<RENAME .FILE TO <STRING "DSK:.BATCH;BADDIE " <UNPARSE .IDNUM>>>
+	   <AND .C <CLOSE .C>>)>
+    <COND (.TASK <TASK-CHECK .TASK>)>>
+
+<DEFINE READ-TASK-WITH-ACT READ-TASK-ACT (C)
+	#DECL ((VALUE) <OR VECTOR FALSE> (C) CHANNEL
+	       (READ-TASK-ACT) <SPECIAL ACTIVATION>)
+	<READ-PUTAWAY ,TASK-TEMPLATE .C ,BQERR ,BATCHQ-OBL>>
+
+<DEFINE BQERR ("TUPLE" STUFF)
+   #DECL ((VALUE) ANY (STUFF) TUPLE)
+   <BATCH-SCRIPT 100 "*   Bad specs/mods field: " !.STUFF>
+   T>
+
+<DEFINE INSERT-TASK (TSK "OPTIONAL" (SQ-N <WHICH-QUEUE .TSK>)
+				    (SQ <NTH ,QUEUE .SQ-N>))
+    #DECL ((TSK) VECTOR (SQ) LIST (VALUE) ANY (SQ-N) FIX)
+    <REPEAT ()
+	    <COND (<OR <L? <LENGTH .SQ> 2>
+		       <TASK-TORDER .TSK <2 .SQ>>>
+		   <PUTREST .SQ (.TSK !<REST .SQ>)>
+		   <RETURN .TSK>)
+		  (ELSE <SET SQ <REST .SQ>>)> >
+    .TSK>
+
+
+<DEFINE REMOVE-TASK (TSK "AUX" (Q ,QUEUE))
+    #DECL ((TSK) VECTOR (Q) <VECTOR [REST LIST]>
+	   (VALUE) ANY)
+
+   <PROG ()
+	 <COND (<EMPTY? .Q> <>)
+	       (<REPEAT ((SQ <1 .Q>))
+			#DECL ((SQ) LIST)
+		        <COND (<L? <LENGTH .SQ> 2>
+			       <RETURN <>>)
+			      (<==? .TSK <2 .SQ>>
+			       <PUTREST .SQ <REST .SQ 2>>
+			       <RETURN T>)>
+			<SET SQ <REST .SQ>>>)
+	       (ELSE
+		<SET Q <REST .Q>>
+		<AGAIN>)> >>
+
+
+<DEFINE FIND-NEXT-TASK (QN "AUX" (SUB-Q <REST <NTH ,QUEUE .QN>>) BT)
+    #DECL ((VALUE BT) <OR FALSE VECTOR> (QN) FIX (SUB-Q) <LIST [REST VECTOR]>)
+
+    <REPEAT ()
+	<COND (<OR <EMPTY? .SUB-Q>	;"END OF Q OR TIME NOT RIPE FOR FIRST JOB?"
+		   <NOT <TIME-YET? <SET BT <1 .SUB-Q>>>>>
+					;"THEN ABANDON SEARCH IN THIS SUB-Q"
+	       <COND (<1? .QN> <RETURN <>>)	;"TRY SUB-Q 1 (IF NOT ALREADY)"
+		     (ELSE <RETURN <FIND-NEXT-TASK 1>>)>)
+	      (<RUNNABLE-NOW? .BT>
+	       <COND (<N==? <LENGTH .BT> ,AB-T-LENGTH>
+		      <RETURN .BT>)
+		     (<SET BT <TASK-DESCRIPTOR <TASK-ID-NUMBER .BT>>>
+		      <RETURN .BT>)
+		     (ELSE <SET SUB-Q <REST .SUB-Q>>)>)
+	      (ELSE <SET SUB-Q <REST .SUB-Q>>)> >>
+
+<DEFINE TIME-YET? (B-TASK "AUX" (RT <TIME-OF-NEXT-RUN .B-TASK>))
+   #DECL ((VALUE) ANY (B-TASK) VECTOR (RT) <OR STRING LIST>)
+   <OR <TYPE? .RT STRING> <PAST? .RT>>>
+
+
+<DEFINE SOONEST-TIME ("OPTIONAL" (WHEN <NEXT-NIGHT>)
+		      "AUX" (Q ,QUEUE)
+			    TASK TASK-TIME)
+   #DECL ((VALUE WHEN) LIST (Q) VECTOR
+	  (TASK) <OR VECTOR FALSE> (TASK-TIME) <OR LIST STRING>)
+
+   <REPEAT ()
+	 <COND (<EMPTY? .Q> <RETURN .WHEN>)
+	       (<SET TASK <FIRST-TASK-TO-RUN <1 .Q>>>
+		<COND (<TYPE? <SET TASK-TIME <TIME-OF-NEXT-RUN .TASK>>
+			      STRING>
+		       <RETURN <DTNOW>>)
+		      (<BEFORE? .TASK-TIME .WHEN>
+		       <SET WHEN .TASK-TIME>)>)>
+	 <SET Q <REST .Q>> >>
+
+<DEFINE FIRST-TASK-TO-RUN (SUB-Q)
+   #DECL ((VALUE) <OR FALSE VECTOR> (SUB-Q) LIST)
+   <MAPF <>
+	 #FUNCTION ((TSK) #DECL ((TSK) VECTOR)
+		    <AND <RUNNABLE-THEN? .TSK> <MAPLEAVE .TSK>>)
+	 <REST .SUB-Q>>>
+
+<DEFINE RUNNABLE-THEN? (TSK "AUX" (TIME-OF-RUN <TIME-OF-NEXT-RUN .TSK>))
+    #DECL ((VALUE) ANY (TSK) VECTOR
+	   (TIME-OF-RUN) <OR <LIST LIST LIST STRING> STRING>)
+    <AND <=? <TASK-STATE .TSK> "RUNNABLE">
+	 <OR <NOT <NIGHT-RUN-SWITCH .TSK>>
+	     <NIGHT? <COND (<TYPE? .TIME-OF-RUN STRING> <DTNOW>)
+			   (<PAST? .TIME-OF-RUN> <DTNOW>)
+			   (.TIME-OF-RUN)>> > >>
+
+<DEFINE RUNNABLE-NOW? (TSK)
+    #DECL ((VALUE) <OR ATOM FALSE> (TSK) VECTOR)
+    <AND <=? <TASK-STATE .TSK> "RUNNABLE">
+	 <OR <NOT <NIGHT-RUN-SWITCH .TSK>>
+	     <NIGHT?>> >>
+
+<DEFINE QUEUE-START ("AUX" (DSK-Q <OPEN "READ" ".BATCH;BATCHN QUEUE">)
+			   (TSKS-IN-Q '()) (RUNNG '())
+			   Q N QDATE)
+    #DECL ((VALUE) <OR FALSE 'T> (Q QDATE) ANY (DSK-Q) <OR CHANNEL FALSE>
+	   (N) FIX (TSKS-IN-Q RUNNG) LIST)
+    <BATCH-SCRIPT 200 "Initializing queue">
+    <PROG ()
+    <COND (<AND .DSK-Q
+		<SET Q <READ .DSK-Q <>>>
+		<KEEP-IT? <SET QDATE <READ .DSK-Q <>>>>
+		<TYPE? .Q VECTOR>
+		<DECL? .Q '<VECTOR LIST [REST LIST]>>
+		<==? <LENGTH .Q> ,NQUEUES>>
+	   <CLOSE .DSK-Q>
+	   <SETG QUEUE .Q>
+	   <MAPF <>
+		 #FUNCTION ((SQ)
+		     #DECL ((SQ) LIST)
+		     <MAPF <>
+			   #FUNCTION ((TK) #DECL ((TK) VECTOR)
+			     <SET TSKS-IN-Q (<TASK-ID-NUMBER .TK> !.TSKS-IN-Q)>
+			     <AND <=? <TASK-STATE .TK> "RUNNING">
+				  <SET RUNNG (<TASK-ID-NUMBER .TK> !.RUNNG)>>)
+			   <REST .SQ>>)
+		 .Q>
+	   <SETG TASKS-IN-QUEUE .TSKS-IN-Q>
+	   <RETURN>)>
+    <COND (.DSK-Q
+	   <CLOSE .DSK-Q>
+	   <RENAME ".BATCH;BATCHN LOG" TO "OLDLOG >">)>
+    <COND (<1? ,NQUEUES>
+	   <SETG QUEUE [("All jobs")]>
+	   <SETG TASKS-IN-QUEUE '()> )
+	  (<==? ,NQUEUES 2>
+	   <SETG QUEUE [("Short jobs") ("Unlimited jobs")]>
+	   <SETG TASKS-IN-QUEUE '()> )
+	  (ELSE
+	   <SET N 0>
+	   <SETG QUEUE
+		 <IVECTOR ,NQUEUES
+			  '(<STRING "Sub queue " <UNPARSE <SET N <+ .N 1>>>>)>>
+	   <SETG TASKS-IN-QUEUE '()>)>>
+    <MAPF <>
+	  #FUNCTION ((ID) #DECL ((ID) FIX)
+	      <TASK-DESCRIPTOR .ID T>)
+	  .RUNNG>
+    <UPDATE-QUEUE>
+    <BATCH-SCRIPT "Queue contains tasks:  " ,TASKS-IN-QUEUE>
+    <OR <NOT <ASSIGNED? QDATE>> <G? <DTDIFF (.QDATE ())> <* -30 24 60.0>>>;"
+If no queue update in a month, system clock must be wrong => DON'T RUN TASKS.">
+
+<DEFINE KEEP-IT? (CDATE)
+   #DECL ((VALUE CDATE) ANY)
+   <OR <N==? <DOW> 0>
+       <NOT .CDATE>
+       <NOT <DECL? .CDATE '<LIST FIX FIX FIX>>>
+       <=? <1 <DTNOW>> .CDATE>>>
+
+<DEFINE WRITE-TASK (TSK
+		    "OPTIONAL" (Q-TOO? T)
+		    "AUX" (TN <UNPARSE <TASK-ID-NUMBER .TSK>>)
+			  (FN <STRING "DSK:.BATCH;_TASK_ " .TN>)
+			  (FFN <STRING "DSK:.BATCH;SPECS " .TN>)
+			  C)
+    #DECL ((TSK) VECTOR (C) <OR FALSE CHANNEL>
+	   (TN FN FFN) STRING
+	   (VALUE Q-TOO?) ANY)
+
+    <BATCH-SCRIPT 1 "Writing out task " <TASK-ID-NUMBER .TSK>>
+
+    <RENAME .FN>
+    <COND (<=? <TASK-STATE .TSK> "REMOVED">
+	   <DELETE-FROM-DISK-Q .TSK>
+	   <REMOVE-TASK .TSK>
+	   <WRITE-QUEUE>
+	   T)
+	  (<SET C <OPEN "PRINT" .FN>>
+	   <UNPUTAWAY-WRITE <REST ,TASK-FIELDNAMES> .TSK .C ,BQERR ,BATCHQ-OBL>
+	   <RENAME .C .FFN>
+	   <ITS-CALL "SAUTH" '![] .C <STRTOX <ORIGINATOR .TSK>>>
+	   <CLOSE .C>
+	   <AND .Q-TOO? <WRITE-QUEUE>>
+	   T)
+	  (ELSE
+	   <BATCH-SCRIPT 200 "WRITE-TASK:  Can't open output file: "
+			 <CHTYPE .C LIST>>
+	   .C)>>
+
+
+<DEFINE WRITE-QUEUE ("OPTIONAL" (Q2 <>)
+		     "AUX" (OUTCHAN <OR .Q2 <OPEN "PRINT" "DSK:.BATCH;BATCHN _QUE_">>))
+   #DECL ((VALUE) ANY (Q2 OUTCHAN) <OR CHANNEL FALSE>)
+
+   <BATCH-SCRIPT 1 "Writing queue">
+   <COND (.OUTCHAN
+	  <PRINC !\[>
+	  <MAPF <>
+		#FUNCTION ((SQ)
+		   #DECL ((SQ) LIST)
+		   <TERPRI> <PRINC !\(> <PRIN1 <1 .SQ>>
+		   <MAPF <>
+			 #FUNCTION ((T-TSK)
+			     #DECL ((T-TSK) VECTOR)
+			     <COND (<==? <LENGTH .T-TSK> ,AB-T-LENGTH>
+				    <TERPRI> <PRINC "  "> <PRIN1 .T-TSK>)
+				   (ELSE
+				    <TERPRI> <PRINC "  [">
+				    <MAPF <>
+					  #FUNCTION ((X)
+					      #DECL ((X) ATOM)
+					      <PRIN1 <NTH .T-TSK ,.X>>
+					      <PRINC !\ >)
+					  ,AB-FIELDS>
+				    <PRINC !\]>)>)
+			 <REST .SQ>>
+		   <PRINC !\)>)
+		,QUEUE>
+	 <PRINC !\]>			<TERPRI>
+	 <PRINC <1 ,START-TIME>>	<TERPRI>
+	 <COND (<NOT .Q2>
+		<RENAME .OUTCHAN "BATCHN QUEUE">
+		<CLOSE .OUTCHAN>)>
+	 T)
+	(ELSE
+	 <BATCH-SCRIPT 200 "WRITE-QUEUE --  Can't open output file: "
+		       <CHTYPE .OUTCHAN LIST>>)>>
+
+
+<DEFINE NIGHT? ("OPTIONAL" (DATE-TIME <DTNOW>)
+		"AUX" (HOUR <1 <2 .DATE-TIME>>)
+		      (DAY <DATE-DOW <1 .DATE-TIME>>))
+    #DECL ((VALUE) ANY (DATE-TIME) <LIST LIST LIST STRING> (HOUR DAY) FIX)
+    <OR <AND <L? .HOUR 8> <G=? .HOUR 1>> ;"Night is: between 1 am and 8 am"
+	<==? .DAY 0>			 ;"  and Sundays"
+	<AND <==? .DAY 1>		 ;"  and Mondays before 8 am"
+	     <L? .HOUR 8>>
+	<AND <HOLIDAY? <1 .DATE-TIME>> <G=? .HOUR 1>>	 ;"   and MIT holidays"
+	<AND <HOLIDAY? <1 <DTADD .DATE-TIME ;"   and before 8, days after holidays"
+				 '((1) ())> >>
+	     <L? .HOUR 8>> >>
+
+
+<DEFINE NEXT-NIGHT ("AUX" (DAY <DOW>))	 ;"returns the time of the next NIGHT?"
+   #DECL ((VALUE) LIST (DAY) FIX)
+   <COND (<OR <==? .DAY 6>		 ;"which starts at 0:00 on sundays"
+	      <==? .DAY 0>		 ;"  and mondays"
+	      <HOLIDAY?>		 ;"  and day after holidays"
+	      <HOLIDAY? <1 <DTADD <DTNOW> '((1) ())>>> >
+					 ;"  and holidays"
+	  <DTADD '(() ()) '((1) ())>)
+	 (ELSE <DTADD '(() ()) '((1) (1))>)>>	;"else at 1:00 tomorrow"
+
+
+
+<DEFINE BATCHN ("OPTIONAL" (LOCAL-Q T) "AUX" C OLD (U '![0 0 0 0 0]))
+   #DECL ((VALUE LOCAL-Q) ANY (C) <OR CHANNEL FALSE> (OLD) FIX (U) <UVECTOR [REST FIX]>)
+    <COND (<OR <LOGGED-IN> <ITS-CALL "LOGIN" '![] <STRTOX ".BATCH"> 0>>	;"LOGIN IF DEMON"
+	   <SETUP-ERROR-INTERRUPT-HANDLER>
+	   <SNAME ".BATCH">
+	   <COND (<NOT <GASSIGNED? BATCH-SCRIPT-LEVEL>>
+		  <SETG BATCH-SCRIPT-LEVEL 2>)>
+	   <COND (<NOT <GASSIGNED? NAME-OF-SCRIPT>>
+		  <SETG NAME-OF-SCRIPT '[".BATCH;BATCHN LOG"]>)>
+	   <COND (<TTY?> <DEBUG-MODE .LOCAL-Q>)
+		 (ELSE <SETG L-NOISY <>> <NORMAL-MODE>)>
+	   <ITS-CALL "SSTATU" .U>
+	   <BATCH-SCRIPT CR "[ ******  Batch daemon up " <NOW> "  ******" CR
+		"	ITS has been up for " </ <5 .U> 30> " seconds.">
+	   <SETG START-TIME <DTNOW>>
+	   <SETUP-SYSTEM-LOCATIONS>
+	   <COND (<QUEUE-START>
+		  <SETUP-INTERRUPT-HANDLERS>
+		  <START-RUNNING>)
+		 (T
+		  <BATCH-SCRIPT "System clock must be wrong; no tasks will run.">)>
+	   <BATCH-SCRIPT CR "Batch going down " <NOW> " ******* ]" CR>
+	   <COND (<MEMBER ".BATCH;BATCHN LOG" ,NAME-OF-SCRIPT>
+		  <SET OLD <INT-LEVEL 1000>>
+		  <SET C <OPEN "READ" ".BATCH;BATCHN LOG">>
+		  <ITS-CALL "SDMPBT" '![!] .C 1> ;"Don't tape-dump LOG, just OLDLOG.
+					    (Also can tell whether daemon went down OK.)"
+		  <CLOSE .C>
+		  <INT-LEVEL .OLD>)>)
+	  (ELSE				;"MUST BE AN EXTRA DEMON, SHOULD NOT BE HERE"
+	   <COND (<SET C <OPEN "PRINT" "CLI:TAA HACTRN">>
+		  <PRINC "Here I am, your extra daemon. You have
+10 minutes to own me." .C>
+		  <CLOSE .C>)>
+	   <SLEEP <* 10 60>>)>	;"HANG AROUND FOR SOMEONE TO SEE (& NOT BURN CPU)"
+
+   <COND (<TTY?>
+	  "That's All, Folks")
+	 (ELSE
+	  <LOGOUT>
+	  <PRINT "Logout failed -- hanging">
+	  <HANG>)> >
+
+
+<DEFINE LOGGED-IN ("AUX" (U <UNAME>))
+   #DECL ((VALUE) ANY (U) STRING)
+   <OR	<L? <LENGTH .U> 3>
+	<N==? <1 .U> !\_>
+	<N==? <2 .U> !\_>
+	<N==? <3 .U> !\_>>>
+
+
+<DEFINE SAVER ("OPTIONAL" (PERMANENT <>)
+	       "AUX" (SAVVY <SAVE ".BATCH;BATCHN NSAVE" <>>))
+	#DECL ((SAVVY) STRING (PERMANENT) ANY)
+	<COND (<=? .SAVVY "SAVED">
+	       <COND (.PERMANENT
+			<RENAME ".BATCH;BATCHN SAVE">
+			<RENAME ".BATCH;BATCHN NSAVE" TO ".BATCH;BATCHN SAVE">)>
+"BATCH READY --	INVOKE <BATCHN> TO START
+		<SAVER permanent?> TO CREATE SAVE FILE")
+	      (<=? .SAVVY "RESTORED">
+	       <COND (<TTY?> "BATCH READY -- INVOKE <BATCHN> TO START")
+		     (ELSE
+		      <SETG L-NOISY <>>
+		      <BATCHN>)>)
+	      (ELSE .SAVVY)>>
+
+
+<DEFINE DELETE-FROM-DISK-Q (TASK
+			    "AUX" (ID <TASK-ID-NUMBER .TASK>)
+			    CH
+			    (LAST1 <OPEN "READ" "DSK:.BATCH;SPECS >">)
+			    (U '![0]) (LASTL <AND .LAST1 <ITS-CALL "FILLEN" .U .LAST1>>)
+			    (LAST <AND .LAST1 <PARSE <8 <CLOSE .LAST1>>>>))
+   #DECL ((VALUE) ANY (LAST) <OR FALSE FIX> (TASK) VECTOR (ID) FIX
+	  (CH LAST1) <OR CHANNEL FALSE> (U) <UVECTOR FIX> (LASTL) <OR FALSE ATOM>)
+
+   <COND (<OR <NOT .LAST> <==? .ID .LAST>>
+	  <AND .LASTL
+	       <G? <1 .U> 9>
+	       <SET CH <OPEN "PRINT" "SPECS" <UNPARSE .ID> "DSK" ".BATCH">>
+	       <PRIN1 '[] .CH>
+	       <CLOSE .CH>>)
+	 (ELSE
+	  <RENAME "SPECS" <UNPARSE .ID> "DSK" ".BATCH">)>>
+
+<DEFINE CHANGE-TASK-TYPE (NEW-TYPE TASK HUMAN "AUX" OLDQN NEWQN)
+    #DECL ((VALUE) ANY (NEW-TYPE HUMAN) STRING
+	   (TASK) VECTOR (OLDQN NEWQN) FIX)
+
+    <COND (<N=? <TASK-TYPE .TASK> .NEW-TYPE>
+	   <SET OLDQN <WHICH-QUEUE .TASK>>
+	   <PUT .TASK ,TASK-TYPE .NEW-TYPE>
+	   <SET NEWQN <WHICH-QUEUE .TASK>>
+	   <COND (<N==? .OLDQN .NEWQN>
+		  <REMOVE-TASK .TASK>
+		  <INSERT-TASK .TASK .NEWQN>)>)>
+    T>
+
+<DEFINE CHANGE-STATE (NEWSTATE TASK HUMAN
+		      "AUX" ACKN (OLD-STATE <TASK-STATE .TASK>))
+    #DECL ((NEWSTATE OLD-STATE HUMAN) STRING
+	   (ACKN) ATOM (TASK) VECTOR (VALUE) ANY)
+
+   <COND (<=? .OLD-STATE .NEWSTATE>)
+	 (<=? .NEWSTATE "REMOVED">
+	  <PUT .TASK ,TASK-STATE "REMOVED">
+	  <SET ACKN IF-REMOVED-FROM-QUEUE>)
+	 (<=? .NEWSTATE "RUNNING">
+	  <BATCH-SCRIPT "Modification to running state attempted on task "
+			<TASK-ID-NUMBER .TASK>
+			" by " .HUMAN>)
+	 (<AND <=? .OLD-STATE "RUNNING">
+	       <N=? .NEWSTATE "RUNNABLE">>
+	  <TASK-ABORT .TASK .HUMAN .NEWSTATE>)
+	 (ELSE
+	  <PUT .TASK ,TASK-STATE .NEWSTATE>
+	  <COND (<=? .NEWSTATE "RUNNABLE">
+		 <SET ACKN IF-MADE-RUNNABLE>)
+		(<SET ACKN IF-MADE-UNRUNNABLE>)> )> >
+
+
+<DEFINE CHANGE-TIME-OF-NEXT-RUN (NEWTIME TASK HUMAN
+				 "AUX" (OLD-TIME <TIME-OF-NEXT-RUN .TASK>))
+    #DECL ((TASK) VECTOR
+	   (VALUE) ANY (HUMAN) STRING
+	   (OLD-TIME NEWTIME) <OR STRING LIST>)
+
+   <COND (<N=? .NEWTIME .OLD-TIME>
+	  <PUT .TASK
+	       ,TIME-OF-NEXT-RUN
+	       <COND (<TYPE? .NEWTIME STRING> <DTNOW>)
+		     (ELSE <DTNORM .NEWTIME>)> >
+	  <REMOVE-TASK .TASK>
+	  <INSERT-TASK .TASK>)> >
+
+<SETG DUMMY-FCN ,TIME>
+
+<DEFINE TTY? ()
+   #DECL ((VALUE) <OR FALSE ATOM>)
+   <G=? <CHTYPE <USET %<> *2*> FIX> 0>>		;"SUSET .RTTY "
+
+<ENDPACKAGE>
diff --git a/src/_batch/batchq.ujhm12 b/src/_batch/batchq.ujhm12
new file mode 100644
index 00000000..8304812f
--- /dev/null
+++ b/src/_batch/batchq.ujhm12
@@ -0,0 +1,44 @@
+<PACKAGE "BATCHQ">
+
+<ENTRY	TASK-ID-NUMBER TASK-NAME TASK-STATE ORIGINATOR	; "TASK DESCRIPTOR PARTS"
+	WHEN-ORIGINATED TASK-TYPE TIME-OF-NEXT-RUN
+	SCHEDULER RESCHEDULE-INFO WHEN-TO-STOP-RESCHEDULING
+	MAXIMUM-NUMBER-OF-RUNS FILE-TO-RUN
+	INPUT-STREAM OUTPUT-FILE JCL-LINE DELIMITER-STRING
+	WORKING-DIRECTORY TIME-LIMIT ACKNOWLEDGEMENT-INFO
+	RESTART-SWITCH RUN-TEST RUN-TEST-INFO NIGHT-RUN-SWITCH
+	BATCH-QUEUE-CHECK-SWITCH HANG-LIMIT LAST-STARTING-TIME
+	LAST-COMPLETION-TIME LAST-CPU-TIME-USED
+	ACCUMULATED-CPU-TIME NUMBER-OF-TIMES-RUN
+
+	WHEN-MODIFIED BY-WHOM-MODIFIED			; "MOD DESCRIPTOR PARTS"
+
+	MY-TASK INFO-FIELD ;FILE-EXISTS? FILES-EXIST? HOST-EXISTS?
+							; "FOR RUN-TEST AND RESCHEDULER"
+
+	IF-MADE-UNRUNNABLE IF-MODIFIED IF-ABORTED	; "ACKNOWLEDGEMENT CONDITIONS"
+	IF-MADE-RUNNABLE IF-REMOVED-FROM-QUEUE
+	ON-VALRET ON-DELAY ON-ANY-OTHER
+	ON-COMPLETION:ERROR-IN-STARTING ON-COMPLETION:RUN-TEST-FALSE
+	ON-COMPLETION:TIME-LIMIT-EXPIRED ON-COMPLETION:JOB-HUNG
+	ON-COMPLETION:NORMAL ON-COMPLETION:NOT-CONTINUABLE
+	ON-COMPLETION:CONTINUABLE-INTERRUPT ON-COMPLETION:OUT-OF-INPUT
+	ON-COMPLETION:SYSTEM-CRASH ON-COMPLETION>
+
+<USE "ITS" "HOSTS">
+
+<DEFINE FILES-EXIST? ("TUPLE" FILES)
+   #DECL ((VALUE) ANY (FILES) <TUPLE [REST STRING]>)
+   <MAPF ,AND? ,FILE-EXISTS? .FILES>>
+
+;<DEFINE FILE-EXISTS? (FILE "AUX" (CH <OPEN "READ" .FILE>))
+   #DECL ((VALUE) ANY (FILE) STRING)
+   <COND (.CH <CLOSE .CH> "FILE EXISTS")>>
+
+<DEFINE HOST-EXISTS? (HST "AUX" (U ![0!])) 
+	<AND <OR <TYPE? .HST FIX>
+		 <AND <TYPE? .HST STRING> <SET HST <HOST .HST>>>>
+	     <ITS-CALL "NETHST" .U .HST>
+	     <==? #WORD 2 <GETBITS <1 .U> %<BITS 2 27>>>>>
+
+<ENDPACKAGE>
diff --git a/src/_batch/nbatch.usg140 b/src/_batch/nbatch.usg140
new file mode 100644
index 00000000..dceb4f69
--- /dev/null
+++ b/src/_batch/nbatch.usg140
@@ -0,0 +1,1562 @@
+<PACKAGE "NBATCH">
+;"NEW BATCH INTERFACE (MUDCAL) by S. W. Galley (SWG) and Jerry Morrison (JHM)
+-- TALKS DIRECTLY TO DISK QUEUE, BY WRITING OUT SPECS AND MODS FILES IN .BATCH
+DIRECTORY, AND IPC'S THE DEMON OR MODIFIES ITS SCHEDULED AWAKENING TIME."   
+ 
+<ENTRY SIGNAL-BATCH-DEMON>    
+ 
+;<USE-DEFER "HOSTS"			 ;"to prevent BATCHQ from loading it"> 
+ 
+<FLOAD "DSK:.BATCH;BATCHQ NBIN">   
+ 
+<FLOAD "DSK:.BATCH;TEMPLT >"> 
+ 
+<USE "BATCHQ"					        ;"TASK-ID-NUMBER etc."
+     "CALCOM"							   ;"ADDTABLE"
+     "CALRDR"						    ;"READER READARGS"
+     "CALSYM"					     ;"MAKEMST MAKESST SYMBOL"
+     "CALUTL"							  ;"FSP-PARSE"
+     "COMMAND"						     ;"CALICO-COMMAND"
+     "DEMCLS"				 ;"READ-DEMON-STATUS SET-DEMON-STATUS"
+     "DIRHAK"							   ;"DIR-DIFF"
+     "DOW"							        ;"DOW"
+     "FP"							     ;"FPRINT"
+     "MUDCAL"							    ;"DUMPCAL"
+     "QPUT"			   ;"READ-PUTAWAY UNPUTAWAY-WRITE FALSE-PRIME"
+     "STR"						   ;"STRTOX UPPERCASE"
+     "TEMPLT"	  ;"TASK-TEMPLATE TASK-FIELDNAMES MOD-TEMPLATE MOD-FIELDNAMES"
+     "TIMFCN"   ;"DATE-DOW DTNORM DTNOW DTADD TIMEST SPDATE PTIME REL-TIMEST">    
+ 
+<MANIFEST SPECS-NAME MODS-NAME>    
+
+<GDECL (DEFAULT-ID)
+       FIX
+       (QUEUE Q-HANDLE PURELIST)
+       LIST
+       (BATCHQ-OBL)
+       <LIST [REST OBLIST]>
+       (CTL-R-MSG FORMAT)
+       STRING
+       (BATCH-COMMANDS
+	MAIN-TASK-ELEMENTS
+	TASK-CREATION-COMMANDS
+	TASK-IDS
+	TASK-IDS-NULL
+	TASK-MOD.TION-COMMANDS
+	YES-NO
+	SWITCH-SETTINGS
+	TASK-STATES
+	TASK-TYPES)
+       SYMTABLE
+       (TASK-BUILD MODS-BUILD CC-ARGS)
+       VECTOR
+       (SPECS-HEADINGS
+	MODS-HEADINGS
+	DEFAULT-INPUT-FILE
+	DEFAULT-FILE-TO-RUN
+	DEFAULT-OUTPUT-FILE)
+       <VECTOR [REST STRING]>
+       (SPECS-PRINTERS)
+       <UVECTOR ATOM>
+       (R-ARGS)
+       <UVECTOR VECTOR>
+       (DISK-DIR NEW-DIR TASK-MODS CONFRIM-V)
+       <UVECTOR [REST FIX]>>    
+ 
+<SETG PURELIST ()		      ;"LIST of objects that can be purified">
+ 
+<PROG ()			        ;"PROG just to make comments colinear"
+      <SETG TASK-BUILD <EVAL ,TASK-TEMPLATE>>		 ;"sample description"
+      <SETG MODS-BUILD <EVAL ,MOD-TEMPLATE>>	        ;"sample modification"
+      <SETG BATCHQ-OBL (<MOBLIST BATCHQ!-PACKAGE> <ROOT>)>
+				      ;"for un/parsing field names and values"
+      <SETG SPECS-NAME <STRTOX "SPECS ">>
+				  ;"for finding SPECS files in disk directory"
+      <SETG MODS-NAME <STRTOX "MODS  ">>	       ;"ditto for MODS files"
+      <SETG QUEUE ()>			       ;"internal queue of task specs"
+      <SETG Q-HANDLE ([])>		  ;"for splicing new specs into QUEUE"
+      <SETG DISK-DIR <IUVECTOR 1024 0>>	  ;"stores old disk dir in image mode"
+      <SETG NEW-DIR <IUVECTOR 1024 0>>			 ;"ditto new disk dir"
+      <SETG TASK-MODS <IUVECTOR 99 0>>	 ;"maps MODS numbers to SPECS numbers"
+      <SETG CONFRIM-V <IUVECTOR
+	      <MAX ,INPUT-STREAM ,OUTPUT-FILE ,FILE-TO-RUN ,WORKING-DIRECTORY>
+		       0>>     ;"records whether those field values confirmed"
+      <SETG DEFAULT-ID 0>		 ;"for defaulting task identification"
+      <SETG CTL-R-MSG
+	    "
+(1) To abort field/value specification, use the ABORT... command, and
+(2) to modify a previously-typed value, just name the field again
+-- next time you are asked for a field name.">	    ;"msg when user types ^R">    
+
+<ADDTABLE <SETG BATCH-COMMANDS	  ;"top-level commands in Batch command table"
+		<1 <SETG PURELIST
+			 (<MAKESST "Batch commands"
+				   '["create.task"
+				     <CREATE-TASK>
+				     "short.create.task"
+				     <AND <INITZ ,TASK-BUILD T>
+					  <PRINC <SHORT-CREATE-TASK>>>
+				     "long.create.task"
+				     <PRINC <LONG-CREATE-TASK>>
+				     "copy.task"
+				     <COPY-TASK>
+				     "modify.nascent.task"
+				     <PRINC <SHORT-CREATE-TASK>>
+				     "modify.task"
+				     <AND <INITZ ,MODS-BUILD>
+					  <PRINC <MODIFY-TASK>>>
+		     ;"modify.existing.task"
+		     ;<PRINC "	This command is now named MODIFY.TASK.">
+				     "modify.similarly"
+				     <PRINC <MODIFY-TASK>>
+		     ;"modify.existing.similarly"
+		     ;<PRINC "	This command is now named MODIFY.SIMILARLY.">
+				     "abort.task"
+				     <ABORT-TASK>
+				     "print.task.description"
+				     <PRINT-TASK-DESCRIPTION>
+				     "print.task.status"
+				     <PRINT-TASK-STATUS>
+				     "print.queue.status"
+				     <PRINT-QUEUE-STATUS>
+				     "signal.daemon"
+				     <SIGNAL-BATCH-DEMON>
+				     "revise.task.identification.symbols"
+				     <AND <MAKE-TASK-IDS> ,NULL>
+				     "remove.task.identification.symbols"
+				     <AND <SETG TASK-IDS ,TASK-IDS-NULL>
+					  ,NULL>]>
+			  !,PURELIST)>>>>    
+
+<SETG MAIN-TASK-ELEMENTS
+ ;"fields that a user can specify
+(the FORM returns a FALSE in order to continue the specification loop)"
+      <1 <SETG PURELIST
+	       (<MAKESST "main.task.elements"
+			 '["originated-by"
+			   <AND <RDR %,ORIGINATOR> <>>
+			   "name"
+			   <AND <RDR %,TASK-NAME> <>>
+			   "state"
+			   <AND <RDR %,TASK-STATE> <>>
+			   "to-run-at"
+			   <AND <RDR %,TIME-OF-NEXT-RUN> <>>
+			   "night-run-switch"
+			   <AND <RDR %,NIGHT-RUN-SWITCH> <>>
+			   "type"
+			   <AND <RDR %,TASK-TYPE> <>>
+			   "scheduler"
+			   <AND <RDR %,SCHEDULER> <>>
+			   "reschedule-info"
+			   <AND <RDR %,RESCHEDULE-INFO> <>>
+			   "stop-running-after"
+			   <AND <RDR %,WHEN-TO-STOP-RESCHEDULING> <>>
+			   "maximum-times-to-run"
+			   <AND <RDR %,MAXIMUM-NUMBER-OF-RUNS> <>>
+			   "file-to-run"
+			   <AND <RDR %,FILE-TO-RUN> <>>
+			   "input-stream"
+			   <AND <RDR %,INPUT-STREAM> <>>
+			   "output-file"
+			   <AND <RDR %,OUTPUT-FILE> <>>
+			   "job-control-line"
+			   <AND <RDR %,JCL-LINE> <>>
+			   "delimiter-string"
+			   <AND <RDR %,DELIMITER-STRING> <>>
+			   "working-directory"
+			   <AND <RDR %,WORKING-DIRECTORY> <>>
+			   "cpu-time-limit"
+			   <AND <RDR %,TIME-LIMIT> <>>
+			   "acknowledgement-info"
+			   <AND <RDR %,ACKNOWLEDGEMENT-INFO> <>>
+			   "run-test"
+			   <AND <RDR %,RUN-TEST> <>>
+			   "run-test-info"
+			   <AND <RDR %,RUN-TEST-INFO> <>>
+			   "hang-time-limit"
+			   <AND <RDR %,HANG-LIMIT> <>>
+			   "restart-switch"
+			   <AND <RDR %,RESTART-SWITCH> <>>
+			   "batch-queue-check-switch"
+			   <AND <RDR %,BATCH-QUEUE-CHECK-SWITCH> <>>]>
+		!,PURELIST)>>>
+
+<SETG TASK-CREATION-COMMANDS
+ ;"field-name symbol table while creating a task, including meta-names
+for controlling specification loop"
+      <1 <SETG PURELIST
+	       (<MAKEMST "creation.commands"
+			 [<MAKESST "extra.creation.specs"
+				   '["print.specifications"
+				     <PRINT-SPECS .BUILD>
+				     "end.specifications"
+				     END-SPECS
+				     "quit.specifications"
+				     END-SPECS
+				     "abort.specifications"
+				     T]>
+			  ,MAIN-TASK-ELEMENTS]>
+		!,PURELIST)>>> 
+ 
+<SETG TASK-MOD.TION-COMMANDS			 ;"ditto for modifying a task"
+      <1 <SETG PURELIST
+	       (<MAKEMST "modification.commands"
+			 [<MAKESST "extra.modification.specs"
+				   '["print.modifications"
+				     <PRINT-SPECS .BUILD <>>
+				     "end.modifications"
+				     END-SPECS
+				     "quit.modifications"
+				     END-SPECS
+				     "abort.modifications"
+				     T]>
+			  ,MAIN-TASK-ELEMENTS]>
+		!,PURELIST)>>>
+ 
+<SETG TASK-STATES
+      <1 <SETG PURELIST
+	       (<MAKESST "task.states"
+			 '["runnable"
+			   "RUNNABLE"
+			   "unrunnable"
+			   "UNRUNNABLE"
+			   "aborted.while.running"
+			   "ABORTED"
+			   "removed.permanently.from.queue"
+			   "REMOVED"]>
+		!,PURELIST)>>>    
+ 
+<SETG TASK-TYPES
+      <1 <SETG PURELIST
+	       (<MAKESST "task.types" '["short" "SHORT" "long" "LONG"]>
+		!,PURELIST)>>>
+
+<SETG YES-NO			       ;"symbol table for answering questions"
+      <1 <SETG PURELIST
+	       (<MAKESST "yes/no"
+			 '["y"
+			   T
+			   "yes"
+			   T
+			   "true"
+			   T
+			   "n"
+			   #FALSE ()
+			   "no"
+			   #FALSE ()
+			   "false"
+			   #FALSE ()]>
+		!,PURELIST)>>>  
+ 
+<SETG SWITCH-SETTINGS
+ ;"symbol table for setting switch-type fields
+(FALSE-PRIME means 'turn it off' but FALSE means 'no change' or 'default it')"
+      <1 <SETG PURELIST
+	       (<MAKESST "switch.settings"
+			 '["y"
+			   T
+			   "yes"
+			   T
+			   "true"
+			   T
+			   "n"
+			   <CHTYPE () FALSE-PRIME>
+			   "no"
+			   <CHTYPE () FALSE-PRIME>
+			   "false"
+			   <CHTYPE () FALSE-PRIME>]>
+		!,PURELIST)>>> 
+ 
+<SETG TASK-IDS-NULL
+	   ;"empty symtab for task ID's, used if tasks not identified by name"
+      <1 <SETG PURELIST (<MAKESST "Task identifications" '[]> !,PURELIST)>>>
+ 
+<DEFINE UN-SYM (ITM)			       ;"fcn to get value from symbol"
+	#DECL ((ITM) ANY) <COND (<TYPE? .ITM SYMBOL> <2 .ITM>) (T .ITM)>>   
+ 
+\   
+ 
+<DEFINE CREATE-TASK			        ;"Perform CREATE.TASK command"
+	("AUX" (BUILD <INITZ ,TASK-BUILD T>) HUM) 
+	#DECL ((BUILD) <SPECIAL VECTOR>)
+	<COND (<AND <SET HUM <RDR %,TASK-NAME>> <N=? .HUM "">>
+						     ;"First get viable name,"
+	       <MAPF <>
+		     ,RDR		      ;"then some 'important' fields,"
+		     '![%,FILE-TO-RUN
+			%,INPUT-STREAM
+			%,OUTPUT-FILE
+			%,TASK-TYPE
+			%,TIME-OF-NEXT-RUN
+			%,RESCHEDULE-INFO!]>
+	       <PRINC <SHORT-CREATE-TASK>>)>  ;"then enter field/value loop.">    
+ 
+<DEFINE SHORT-CREATE-TASK       ;"do field-name/value loop for sample descr'n"
+	("AUX" OLD F (BUILD ,TASK-BUILD) BLAH) 
+	#DECL ((VALUE) STRING (OLD) <OR FALSE STRING> (BUILD) <SPECIAL VECTOR>
+	       (F) <OR FALSE STRING VECTOR>)
+	<PROG ()
+	      <OR <SET OLD <TASK-NAME .BUILD>>
+			    ;"OLD = is there a real task already (M.N.T cmd)?"
+		  <COND (<OR <NOT <SET BLAH <RDR %,TASK-NAME>>> <=? .BLAH "">>
+			 <RETURN ,NULL>)>>	      ;"get name for new task"
+	      <PUT .BUILD ,WHEN-ORIGINATED <DTNOW>>     ;"put in current time"
+	      <AND <TYPE? <SET F <FILE-TO-RUN .BUILD>> VECTOR>
+		   <SETG DEFAULT-FILE-TO-RUN .F>>	 ;"establish defaults"
+	      <AND <TYPE? <SET F <INPUT-STREAM .BUILD>> VECTOR>
+		   <SETG DEFAULT-INPUT-STREAM .F>>
+	      <AND <TYPE? <SET F <OUTPUT-FILE .BUILD>> STRING>
+		   <SET F <UPPERCASE .F>>
+		   <OR <MEMBER "MSG:" .F>
+		       <SETG DEFAULT-OUTPUT-FILE <FSP-PARSE .F>>>>
+	      <COND (<==? END-SPECS
+			  <SPECLOOP ,TASK-CREATION-COMMANDS
+				    <COND (.OLD
+					   '["Type '?' for more help."
+					     "ARC:.BATCH;INFO CREATO"])
+					  ('["Type '?' for more help."
+					     "ARC:.BATCH;INFO CREATE"])>>>
+		     <OUTPUT-TASK>)
+		    ("
+Task creation was aborted.")>>>    
+
+<DEFINE LONG-CREATE-TASK		   ;"Perform LONG.CREATE.TASK command"
+	("AUX" (BUILD <INITZ ,TASK-BUILD T>) TNAME) 
+   #DECL ((VALUE) STRING (BUILD) <SPECIAL VECTOR>)
+   <COND
+    (<OR <NOT <SET TNAME <RDR %,TASK-NAME>>> <=? .TNAME "">> "")
+						      ;"Get viable task name."
+    (<PROG ()
+	   <SETG DEFAULT-FILE-TO-RUN ["SYS" <SNAME> "TS" .TNAME]>
+	   <SETG DEFAULT-INPUT-FILE ["DSK" <SNAME> .TNAME "INPUT"]>
+	   <SETG DEFAULT-OUTPUT-FILE ["DSK" <SNAME> .TNAME "OUTPUT"]>
+	   <NOT <CALICO-COMMAND ,PUT-TASK-BUILD ,CC-ARGS>>>
+						    ;"^R typed at first field"
+     "")
+    (T
+     <COND (<UN-SYM <READER ,YES-NO
+			    "Print task description?"
+			    '[
+"You now have the option of looking at the task description you have
+just created, before adding the new task to the queue."
+			      ""]
+			    '["SYM"]>>
+	    <PRINT-SPECS .BUILD>)>
+     <COND
+      (<UN-SYM <READER ,YES-NO
+		       "Put task in queue?"
+		       '[
+"Last chance to abort submission of the task!  If you don't like the
+current description, say No now and use the MODIFY.NASCENT.TASK command
+to fix it."
+			 ""]
+		       '["SYM"]>>
+       <OUTPUT-TASK>)
+      ("Task creation was aborted.  If you wish, use the MODIFY.NASCENT.TASK
+command to fix the task description.")>)>>   
+
+<DEFINE PUT-TASK-BUILD	   ;"mungs tuple of field values for LONG-CREATE-TASK"
+	("TUPLE" CC-RESULT "AUX" FTR (T ,TASK-BUILD) OUTF) 
+	#DECL ((CC-RESULT) TUPLE (FTR T) VECTOR (OUTF) STRING)
+     ;"Move CC results (from TONR to BQCS) into sample description,
+       compensating for no WHEN-ORIGINATED args but double INPUT-STREAM args:"
+	<SUBSTRUC .CC-RESULT
+		  0
+		  <- ,WHEN-ORIGINATED ,TIME-OF-NEXT-RUN>	;3
+		  <REST .T <- ,TIME-OF-NEXT-RUN 1>>>	;4
+	<PUT .T ,WHEN-ORIGINATED <DTNOW>>
+	<SUBSTRUC .CC-RESULT
+		  <- ,WHEN-ORIGINATED ,TIME-OF-NEXT-RUN>	;3
+		  <- ,INPUT-STREAM ,WHEN-ORIGINATED 1>	;5
+		  <REST .T ,WHEN-ORIGINATED>>		;8
+	<SUBSTRUC .CC-RESULT
+		  <- ,INPUT-STREAM ,TIME-OF-NEXT-RUN>	;9
+		  <- ,BATCH-QUEUE-CHECK-SWITCH ,INPUT-STREAM -1>	;12
+		  <REST .T <- ,INPUT-STREAM 1>>>	;13
+     ;"Here on is equivalent to RDR actions:"
+	<MAPF <>
+	      #FUNCTION ((F) #DECL ((F) FIX)
+			 <PUT .T .F <UN-SYM <NTH .T .F>>>)
+	      '![%,TASK-STATE %,TASK-TYPE!]>
+	<MAPF <>
+	      #FUNCTION ((F) #DECL ((F) FIX)
+			 <PUT .T .F <EVAL <UN-SYM <NTH .T .F>>>>)
+	  '![%,RESTART-SWITCH %,NIGHT-RUN-SWITCH %,BATCH-QUEUE-CHECK-SWITCH!]>
+	<PUT .T ,RESCHEDULE-INFO <EVAL <RESCHEDULE-INFO .T>>>
+	<COND (<=? "LONG" <TASK-TYPE .T>> <PUT .T ,NIGHT-RUN-SWITCH T>)>
+	<PUT .T ,FILE-TO-RUN <SET FTR <FSP-PARSE <FILE-TO-RUN .T>>>>
+	'<AND <DECL? .FTR '<VECTOR [4 LOSE]>>
+	      <PUT .T
+		   ,FILE-TO-RUN
+		   <SET FTR ["SYS" <ORIGINATOR .T> "TS" <TASK-NAME .T>]>>>
+	<SETG DEFAULT-FILE-TO-RUN .FTR>
+	<COND (.FILE?
+	       <PUT .T
+		    ,INPUT-STREAM
+		    <SETG DEFAULT-INPUT-FILE <FSP-PARSE <INPUT-STREAM .T>>>>)>
+	<UNASSIGN FILE?>
+	<OR <MEMBER "MSG:" <UPPERCASE <SET OUTF <OUTPUT-FILE .T>>>>
+	    <SETG DEFAULT-OUTPUT-FILE <FSP-PARSE .OUTF>>>>   
+ 
+<DEFINE INITZ		 ;"wipes clean the sample description or modification"
+	(V "OPTIONAL" (T? <>))			   ;"T? = is V a description?"
+	#DECL ((VALUE V) VECTOR (T?) <OR 'T FALSE>)
+	<MAPR <> #FUNCTION ((VV) #DECL ((VV) VECTOR) <PUT .VV 1 <>>) .V>
+	;<REPEAT ((VV .V)) #DECL ((VV) VECTOR)
+		<COND (<EMPTY? .VV> <RETURN>)
+		      (T <PUT .VV 1 <>> <SET VV <REST .VV>>)>>
+						;"compiler likes this better"
+	<PUT .V <COND (.T? ,ORIGINATOR) (,BY-WHOM-MODIFIED)> <XUNAME>>
+	<COND (.T?
+	       <SETG DEFAULT-FILE-TO-RUN ["SYS" <XUNAME> "TS" "MDL"]>
+	       <SETG DEFAULT-OUTPUT-FILE ["DSK" <XUNAME> "MDL" "OUTPUT"]>)>
+	<MAPF <>
+	      #FUNCTION ((F) #DECL ((F) FIX) <PUT ,CONFRIM-V .F 0>)
+	  '![%,OUTPUT-FILE %,FILE-TO-RUN %,INPUT-STREAM %,WORKING-DIRECTORY!]>
+					   ;"remember none of these confirmed"
+	.V>    
+
+<DEFINE CONFRIM (F)	 ;"Confirm or get new field F. (not CONFIRM!-COMMAND)"
+	#DECL ((F) FIX (VALUE) <OR FALSE ANY>)
+	<COND (<1? <NTH ,CONFRIM-V .F>>)		 ;"Already confirmed."
+	      (<=? <>
+		   <UN-SYM <READER ,YES-NO
+				   "Are you sure?"
+				   '["" ""]
+				   '["SYM"]>>>
+	       <RDR .F>
+	       <>)		        ;"No => get another and check it too."
+	      (T <PUT ,CONFRIM-V .F 1>)>
+			      ;"anything else => OK, note already confirmed.">
+
+<DEFINE FSP-FIXUP (INP "AUX" FSPV);"borrowed and modified from CALRDR package"
+	#DECL ((INP VALUE) STRING (FSPV) VECTOR)
+	<SET FSPV <FSP-PARSE .INP>>
+	<MAPR ,STRING
+	      <FUNCTION (A B C)
+			#DECL ((A B) VECTOR (C) STRING)
+			<AND <TYPE? <1 .A> STRING> <PUT .B 1 <1 .A>>>
+			<MAPRET <1 .B> <1 .C>>>
+	      .FSPV
+	      ,DEFAULT-OUTPUT-FILE
+	      ":;  ">>
+
+<DEFINE RDR	      ;"gets a field value from terminal into sample = .BUILD"
+	(FIELD "AUX" E V (RDR-ARGS <NTH ,R-ARGS .FIELD>) (OBLIST ,BATCHQ-OBL)
+	 (BUILD .BUILD) (OUTCHAN .OUTCHAN)) 
+	#DECL ((VALUE E) ANY (FIELD) FIX (V RDR-ARGS) VECTOR
+	       (OBLIST) <SPECIAL LIST> (BUILD) VECTOR)
+	<COND
+	 (<MEMQ .FIELD '![%,FILE-TO-RUN %,INPUT-STREAM %,OUTPUT-FILE!]>
+				     ;"LVALs in args needed for these fields."
+	  <COND (<SET E <READARGS !.RDR-ARGS>>
+		 <COND (<==? .FIELD %,INPUT-STREAM>
+			<SET V .E>	;"for compiler"
+			<COND (.FILE?
+			       <SET E <FSP-PARSE <2 .V>>>
+			       <SETG DEFAULT-INPUT-FILE .E>)
+			      (T <SET E <2 .V>>)>
+				        ;"Get filename Vector or text String."
+			<UNASSIGN FILE?>)
+		       (<AND <TYPE? .E VECTOR> <SET E <1 .E>> <>>)
+		       (<==? .FIELD %,OUTPUT-FILE>
+			<OR <MEMBER "MSG:" <UPPERCASE .E>>
+			    <SET E <FSP-FIXUP .E>>>)
+		       (<==? .FIELD %,FILE-TO-RUN>
+			<SETG DEFAULT-FILE-TO-RUN <SET E <FSP-PARSE .E>>>)>
+		 <PUT .BUILD .FIELD .E>
+		 <PUT ,CONFRIM-V .FIELD 0>	      ;"not confirmed by user"
+		 .E)
+		(T <PRINC ,CTL-R-MSG> <>)>)
+	 (T
+	  <COND (<OR <SET E <READER !.RDR-ARGS>>
+		     <EMPTY? .E>
+		     <TYPE? <1 .E> STRING>>	      ;"anything typed but ^R"
+		 <COND (<==? .FIELD %,TASK-NAME>
+			<SETG DEFAULT-FILE-TO-RUN ["SYS" <SNAME> "TS" .E]>
+			<SETG DEFAULT-INPUT-FILE ["DSK" <SNAME> .E "INPUT"]>
+			<SETG DEFAULT-OUTPUT-FILE
+			      ["DSK" <SNAME> .E "OUTPUT"]>)   ;"Fix defaults."
+		       (<==? .FIELD %,TASK-STATE> <SET E <UN-SYM .E>>)
+						        ;"remove nasty symbol"
+		       (<==? .FIELD %,TASK-TYPE>
+			<SET E <UN-SYM .E>>	        ;"remove nasty symbol"
+			<AND <=? "LONG" .E> <PUT .BUILD ,NIGHT-RUN-SWITCH T>>)
+					        ;"Don't bug prime-time users."
+		       (<==? .FIELD %,TIME-OF-NEXT-RUN>
+			<PUT .BUILD ,TASK-STATE "RUNNABLE">)
+							 ;"handy if modifying"
+		       (<MEMQ .FIELD
+			      '![%,RESTART-SWITCH
+				 %,NIGHT-RUN-SWITCH
+				 %,BATCH-QUEUE-CHECK-SWITCH!]>
+			<SET E <EVAL <UN-SYM .E>>>)    ;"remove nasty symbols"
+		       (<==? .FIELD %,RESCHEDULE-INFO>	 ;"ALLOW TIMFCN CALLS"
+			<SET E <EVAL .E>>)
+		       (<==? .FIELD %,WORKING-DIRECTORY>
+			<PUT ,DEFAULT-FILE-TO-RUN 2 .E>
+			<PUT ,DEFAULT-INPUT-FILE 2 .E>
+			<PUT ,DEFAULT-OUTPUT-FILE 2 .E>	      ;"Fix defaults."
+			<PUT ,CONFRIM-V .FIELD 0>)   ;"not confirmed by user">
+		 <PUT .BUILD .FIELD .E>	     ;"Put field into sample."
+		 .E)
+		(T <PRINC ,CTL-R-MSG> <>)		      ;"^R typed.">)>>    
+
+\   
+ 
+<SETG R-ARGS
+	  ;"contains vectors of READER/READARGS arguments, one for each field"
+      <1 <SETG PURELIST
+	       (<IUVECTOR ,BATCH-QUEUE-CHECK-SWITCH '[]> !,PURELIST)>>>    
+ 
+"<PUT ,R-ARGS ,TASK-ID-NUMBER <>>"
+;"JUST TO TABULATE ALL FIELDS IN PROPER ORDER"   
+ 
+<PUT ,R-ARGS
+     ,ORIGINATOR
+     '[[]
+       ""
+       ["the user ID of the person to be responsible for this task" ""]
+       ["LINE"]]>    
+ 
+<PUT ,R-ARGS
+     ,TASK-NAME
+     '[[]
+       "named"
+       ["Type '?' for more help." "ARC:.BATCH;INFO T-NAME"]
+       ["LINE"]]>    
+ 
+<PUT ,R-ARGS
+     ,TASK-STATE
+     [,TASK-STATES "" '["the desired state for the task" ""] '["SYM"]]>  
+ 
+<PUT ,R-ARGS
+     ,TIME-OF-NEXT-RUN
+     '[[]
+       "run at"
+       ["When should this task be run for the first (or only) time?
+Please type either a date/time in standard MDL format, or an atom: N for
+now, T for tonight.  [More info follows.]"
+	"ARC:.BATCH;INFO DAYTIM"]
+       ["LIST" "ATOM"]]>    
+ 
+<PUT ,R-ARGS
+     ,NIGHT-RUN-SWITCH
+     [,SWITCH-SETTINGS
+      "Run only at night?"
+      '["Type '?' for more help." "ARC:.BATCH;INFO NIGHT"]
+      '["SYM"]]>    
+ 
+<PUT ,R-ARGS
+     ,TASK-TYPE
+     [,TASK-TYPES
+      "type"
+      '["In which Batch queue should this task be?  Type '?' for more help."
+	"ARC:.BATCH;INFO T-TYPE"]
+      '["SYM"]]>    
+ 
+"<PUT ,R-ARGS ,WHEN-ORIGINATED <>>"
+;"PUT-TASK-BUILD RELIES ON THIS FIELD NOT BEING REQUESTED DURING LONG-CREATE-TASK."
+
+<PUT ,R-ARGS
+     ,SCHEDULER
+     '[[]
+       "scheduler"
+       ["A scheduler can compute arbitrarily the time-of-next-run after
+each run of the task.  Almost all tasks will use the standard scheduler,
+which can step thru a sequence of times or increment by a constant each
+time (see the Reschedule-info field, next).
+[More info follows.]"
+	"ARC:.BATCH;INFO USRFRM"]
+       ["OBJECT"]]>    
+ 
+<PUT ,R-ARGS
+     ,RESCHEDULE-INFO
+     '[[]
+       "rescheduling interval or sequence"
+       ["Type '?' for more help." "ARC:.BATCH;INFO RESCHE"]
+       ["LIST" "VECTOR" "OBJECT"]]>  
+ 
+<PUT ,R-ARGS
+     ,WHEN-TO-STOP-RESCHEDULING
+     '[[]
+       "stop rescheduling after"
+       [
+"A date/time in standard MDL format, after which the task will be removed
+from the queue (if rescheduled).  By default (on creation of a task)
+the task can run at any future time.
+[More help follows.]"
+	"ARC:.BATCH;INFO DAYTIM"]
+       ["LIST"]]>  
+ 
+<PUT ,R-ARGS
+     ,MAXIMUM-NUMBER-OF-RUNS
+     '[[]
+       "number of runs (IF it needs a limit)"
+       [
+"By default (on creation of a task) there is no limit, that is,
+the task can run an unlimited number of times."
+	""]
+       ["FIX"]]>   
+ 
+<SETG DEFAULT-FILE-TO-RUN '["SYS" "SYS" "TS" "MDL"]>   
+ 
+<PUT ,R-ARGS
+     ,FILE-TO-RUN
+     '[,DEFAULT-FILE-TO-RUN
+       "system program"
+       ["Type the name of the program file to run, for example, TS MDL.
+('SYS:' will work for any 'SYSn;' directory.)"
+	""]
+       ["FILE"]]>    
+ 
+<SETG DEFAULT-INPUT-FILE ["DSK" <SNAME> "BATCH" "INPUT"]>   
+
+<PUT ,R-ARGS
+     ,INPUT-STREAM
+     '[FILE?
+       ,YES-NO
+       "terminal input from a file?"
+       ["Type '?' for more help." "ARC:.BATCH;INFO INPUT"]
+       ["SYM"]
+       <COND (<SET FILE? <UN-SYM .FILE?>> ,DEFAULT-INPUT-FILE) (T '[])>
+       <COND (.FILE? "which file? (without \"s)") (T "terminal input")>
+      <COND (.FILE?
+       '["Type the name of a file that will contain simulated terminal input."
+	 ""])
+	     (T
+       '["Type the characters that will be used for simulated terminal input."
+	 ""])>
+       <COND (.FILE? '["FILE"]) (T '["TEXT"])>]>   
+ 
+<SETG DEFAULT-OUTPUT-FILE ["DSK" <SNAME> "BATCH" "OUTPUT"]> 
+ 
+<PUT ,R-ARGS
+     ,OUTPUT-FILE
+     '[[]
+       "terminal output to file named (without \"s)"
+       ["Type '?' for more help." "ARC:.BATCH;INFO OUTPUT"]
+       ["LINE"]]>   
+ 
+<PUT ,R-ARGS
+     ,JCL-LINE
+     '[[] "jcl" ["Type '?' for more help." "ARC:.BATCH;INFO JCL"] ["LINE"]]>    
+ 
+<PUT ,R-ARGS
+     ,DELIMITER-STRING
+     '[[]
+       "break input after"
+       ["Type '?' for more help." "ARC:.BATCH;INFO DELIM"]
+       ["STRING"]]>    
+ 
+<PUT ,R-ARGS
+     ,WORKING-DIRECTORY
+     '[[]
+       "working directory"
+       [
+"Please type the initial SNAME (disk file directory, without a ';') for
+the task to use.  By default (on creation of a task) it is your directory."
+	""]
+       ["LINE"]]>   
+ 
+<PUT ,R-ARGS
+     ,TIME-LIMIT
+     '[[]
+       "cpu time limit"
+       ["Type '?' for more help." "ARC:.BATCH;INFO CPUTIM"]
+       ["FLOAT"]]>   
+
+<PUT ,R-ARGS
+     ,ACKNOWLEDGEMENT-INFO
+     '[[]
+       "acknowledgements?"
+       ["Type '?' for more help." "ARC:.BATCH;INFO ACKNOW"]
+       ["OBJECT"]]>    
+ 
+<PUT ,R-ARGS
+     ,RUN-TEST
+     '[[]
+       "run test"
+       ["Something to EVALuate before running the task.  By default
+(on creation of a task) the task will run unconditionally.
+[More help follows.]"
+	"ARC:.BATCH;INFO USRFRM"]
+       ["OBJECT"]]>
+ 
+<PUT ,R-ARGS
+     ,RUN-TEST-INFO
+     '[[]
+       "run test info"
+       ["information for the run test  [More help follows.]"
+	"ARC:.BATCH;INFO USRFRM"]
+       ["OBJECT"]]> 
+ 
+<PUT ,R-ARGS
+     ,HANG-LIMIT
+     '[[]
+       "maximum hang time"
+       ["Type '?' for more help." "ARC:.BATCH;INFO HANG"]
+       ["FIX"]]>    
+ 
+<PUT ,R-ARGS
+     ,RESTART-SWITCH
+     [,SWITCH-SETTINGS
+      "Restart on crash?"
+      '["Type '?' for more help." "ARC:.BATCH;INFO RESTAR"]
+      '["SYM"]]> 
+ 
+<PUT ,R-ARGS
+     ,BATCH-QUEUE-CHECK-SWITCH
+     [,SWITCH-SETTINGS
+      "Check queue afterwards?"
+      '["Type '?' for more help." "ARC:.BATCH;INFO BQCS"]
+      '["SYM"]]>  
+ 
+<SETG CC-ARGS   ;"a vector of all args for CALICO-COMMAND in LONG-CREATE-TASK"
+      <1 <SETG PURELIST
+	       (<MAPF ,VECTOR
+		      #FUNCTION ((V) <MAPRET !.V>)
+		      <REST ,R-ARGS <- ,TIME-OF-NEXT-RUN 1>>>
+					    ;"only TIME-OF-NEXT-RUN and later"
+		!,PURELIST)>>>   
+ 
+\   
+ 
+<DEFINE SPECLOOP (CMDS HELP "AUX" BLAH (FIRST T) (OUTCHAN .OUTCHAN)) 
+	#DECL ((VALUE) ATOM (CMDS) SYMTABLE (HELP) VECTOR
+	       (BLAH) <OR FALSE SYMBOL ATOM> (FIRST) <OR 'T FALSE>
+	       (OUTCHAN) CHANNEL)
+	<REPEAT ()
+		<COND (<=? <SET BLAH
+				<READER .CMDS "field name" .HELP '["SYM"]>>
+			   #FALSE (#FALSE ())>			   ;"^R typed"
+		       <COND (.FIRST <RETURN ,NULL>)>	 ;"If first ^R, quit."
+		       <PRINC ,CTL-R-MSG>)	     ;"Else type helpful msg."
+		      (<NOT .BLAH>			    ;"null line typed"
+		       <PRINC
+   "To stop specification, either ABORT the loop or QUIT or END specifying.">)
+		      (<SET BLAH <EVAL <UN-SYM .BLAH>>> <RETURN .BLAH>)>
+				      ;"get field value: True => quit looping"
+		<SET FIRST <>>>>
+ 
+<DEFINE OUTPUT-TASK				      ;"file new task on disk"
+	("AUX" CHNL (OUTCHAN .OUTCHAN) (BUILD .BUILD))
+	#DECL ((VALUE) STRING (CHNL) <OR FALSE CHANNEL> (OUTCHAN) CHANNEL)
+	<COND (<NOT <SET CHNL <OPEN "PRINT" "DSK:.BATCH;SPECS >">>>
+	       <TERPRI>					        ;"can't do it"
+	       <PRINC "The new task could not be filed because: ">
+	       <PRINC <1 .CHNL>>
+	       <TERPRI>
+	       "Use MODIFY.NASCENT.TASK to try again.")
+						       ;"CALICO prints value."
+	      (T
+	       <UNPUTAWAY-WRITE ,TASK-FIELDNAMES
+				<TASK-CHECK .BUILD>
+				.CHNL
+				,ERROR
+				,BATCHQ-OBL>			    ;"put out"
+	       <CLOSE .CHNL>
+	       <SIGNAL-BATCH-DEMON <> .BUILD>
+	       <SETG DEFAULT-ID <PARSE <8 .CHNL>>>
+	       <STRING "
+The new task ID number is " <8 .CHNL> !\.>)>>   
+ 
+\   
+ 
+<DEFINE SIGNAL-BATCH-DEMON ("OPTIONAL" (MODS <>) (SPECS <>)
+			    "AUX" STATUS TSTAT)
+	#DECL ((VALUE) ANY (MODS SPECS) <OR FALSE VECTOR>
+	       (STATUS) <OR <VECTOR [4 FIX]> FALSE> (TSTAT) ANY)
+	<COND (<SEND ".BATCH" "BATCHN" "">)	       ;"IPC SEND IF POSSIBLE"
+	      (<NOT <SET STATUS <READ-DEMON-STATUS "BATCHN">>>
+						     ;"ASSUME DEMON IS NOT UP"
+	       <DEMSIG "BATCHN">)	 ;"NOT IN DEMON TABLE -- SO DEMSIG IT"
+	      (.MODS				        ;"FOR A MODS FILE ..."
+	       <COND (<=? <SET TSTAT <TASK-STATE .MODS>> "RUNNABLE">
+		      <COME-UP-BY <T-MINUS .MODS> <4 .STATUS>>)
+		     (.TSTAT)		   ;"NO LONGER RUNNABLE ==> NO DEMSIG"
+		     (<OR <TIME-OF-NEXT-RUN .MODS> <NIGHT-RUN-SWITCH .MODS>>
+		      <COME-UP-BY <T-MINUS .MODS> <4 .STATUS>>)>)
+	      (.SPECS <COME-UP-BY <T-MINUS .SPECS> <4 .STATUS>>)
+						       ;"FOR A SPECS FILE ..."
+	      (<DEMSIG "BATCHN">)>>  
+ 
+<DEFINE T-MINUS (SPECS-OR-MODS	    ;"COULD EVEN GO READ THAT TASK DESCRIPTOR"
+		 "AUX" (R-TIME <TIME-OF-NEXT-RUN .SPECS-OR-MODS>)
+		       (N-SWITCH <NIGHT-RUN-SWITCH .SPECS-OR-MODS>))
+	#DECL ((VALUE) FLOAT ;"COMPUTES MINUTES UNTIL DEMON NEED BE SIGNALLED"
+	       (SPECS-OR-MODS) VECTOR (R-TIME) <OR LIST FALSE> (N-SWITCH) ANY)
+	<COND (<TYPE? .N-SWITCH FALSE-PRIME>	 ;"NO LONGER A NIGHT-RUN TASK"
+	       <COND (.R-TIME <MAX <DTDIFF .R-TIME> 0>) (0)>)
+	      (.N-SWITCH <TILL-NEXT-NIGHT>)	    ;"IS NOW A NIGHT-RUN TASK"
+	      (.R-TIME <MAX <DTDIFF .R-TIME> 0>)	 ;"SOME 'FUTURE' DATE"
+	      (<TILL-NEXT-NIGHT>)>			  ;"ELSE AT NIGHT...">   
+ 
+<DEFINE COME-UP-BY (NEW-MINS OLD-MINS) 
+     #DECL ((VALUE) ANY (NEW-MINS) FLOAT ;<OR FALSE FIX FLOAT> (OLD-MINS) FIX)
+	<COND ;(<NOT .NEW-MINS>)
+	      (<L=? .NEW-MINS 3> <DEMSIG "BATCHN">)
+	      (<L? .NEW-MINS .OLD-MINS>
+	       <SET-DEMON-STATUS "BATCHN"
+				 <FIX .NEW-MINS>
+				 0
+				 <FIX .NEW-MINS>>)>>    
+ 
+<DEFINE TILL-NEXT-NIGHT ("AUX" (DAY <DOW>))
+				        ;"returns the time of the next NIGHT?"
+	#DECL ((VALUE) FLOAT (DAY) FIX)
+	<COND (<NIGHT?> 0)
+	      (<OR <==? .DAY 6> <==? .DAY 0> <HOLIDAY?>>
+		   ;"i.e. 0:00 on sundays and mondays and days after holidays"
+	       <DTDIFF <DTNORM '(() (24))>>)
+	      (T <DTDIFF <DTNORM '(() (25))>>)>	     ;"else at 1:00 tomorrow"> 
+
+<DEFINE NIGHT? ("OPTIONAL" (DATE-TIME <DTNOW>)
+		"AUX" (HOUR <1 <2 .DATE-TIME>>)
+		      (DAY <DATE-DOW <1 .DATE-TIME>>))
+	#DECL ((VALUE) ANY (DATE-TIME) <LIST LIST LIST STRING> (HOUR DAY) FIX)
+	<OR <AND <L? .HOUR 8> <G=? .HOUR 1>>
+					    ;"Night is: between 1 am and 8 am"
+	    <==? .DAY 0>				        ;"and Sundays"
+	    <AND <==? .DAY 1> <L? .HOUR 8>>	    ;"and Mondays before 8 am"
+	    <AND <HOLIDAY? <1 .DATE-TIME>> <G=? .HOUR 1>>  ;"and MIT holidays"
+	    <AND <HOLIDAY? <1 <DTADD .DATE-TIME '((1) ())>>> <L? .HOUR 8>>>
+					 ;"and before 8, days after holidays">   
+ 
+<DEFINE MODIFY-TASK		  ;"do field-name/value loop for sample mod'n"
+	("AUX" N L (BUILD ,MODS-BUILD)) 
+	#DECL ((BUILD) <SPECIAL VECTOR> (N) <OR FALSE <VECTOR LIST>>
+	       (L) <OR FIX LIST>)
+	<SET N
+	     <READARGS <GET-TASK-IDS>
+		       "ID(s)"
+		       '[
+	"Please type the identification(s) of the task(s) you want to modify."
+			 ""]
+		       '["MULT" "SYM" "FIX"]>>
+	<PROG ()
+	      <COND (<TYPE? .N FALSE> ;<=? .N #FALSE (#FALSE ())>
+		     <RETURN ,NULL>)>   ;"^R typed"
+	      <SET L <MAPF ,LIST ,UN-SYM <1 .N>>>
+	      <COND (<EMPTY? .L> <RETURN ,NULL>)	       ;"no IDs typed"
+		    (<1? <LENGTH .L>> <SETG DEFAULT-ID <SET L <1 .L>>>)>
+							       ;"one ID typed"
+	      <PUT .BUILD ,TASK-ID-NUMBER .L>
+	      <PUT .BUILD ,WHEN-MODIFIED <DTNOW>>
+	      <COND (<==? END-SPECS
+			  <SPECLOOP ,TASK-MOD.TION-COMMANDS
+				    '["Type '?' for more help."
+				      "ARC:.BATCH;INFO MODIFY"]>>
+		     <TASK-CHECK .BUILD T>
+		     <COND (<STRUCTURED? .L>    ;"If modifying more than one,"
+			    <AND <MAPF ,OR? ,OUTPUT-MODS .L>
+				 <SIGNAL-BATCH-DEMON .BUILD>>
+						      ;"signal if any output."
+			    <PUT .BUILD ,TASK-ID-NUMBER .L>)
+				      ;"Replace LIST that OUTPUT-MODS munged."
+			   (<OUTPUT-MODS .L> <SIGNAL-BATCH-DEMON .BUILD>)>
+		     ,NULL)
+		    ("
+Task modification was aborted.")>>>    
+ 
+<DEFINE GET-TASK-IDS	        ;"fcn to supply task-ID symtab a la USE-DATUM"
+	() 
+	#DECL ((VALUE) SYMTABLE)
+	<COND (<GASSIGNED? TASK-IDS> ,TASK-IDS) (T <MAKE-TASK-IDS>)>>   
+
+<DEFINE MAKE-TASK-IDS
+	        ;"fcn to construct task-ID symtab from abbreviated disk queue"
+	("AUX" V (U <XUNAME>) (C <OPEN "READ" ".BATCH;BATCH QUEUE">)) 
+   #DECL ((V) VECTOR (VALUE) SYMTABLE (U) STRING (C) <OR FALSE CHANNEL>)
+   <COND (.C <SET V <READ .C>> <CLOSE .C> ;"V = entire contents of disk file")
+	 (T  <SET V '[]>)>
+   <SET V
+    <MAPF ,VECTOR
+     <FUNCTION (L) 
+	#DECL ((L) LIST)	     ;"L = short or long queue from disk file"
+	<MAPF ,VECTOR
+	      <FUNCTION (V) 
+		      #DECL ((V) VECTOR)     ;"V = line from abb'd disk queue"
+		      <COND (<=? .U <2 .V>>
+			     <MAPRET <STRING <3 .V> !\. <UNPARSE <1 .V>>>
+				     <1 .V>>   ;"Return user's name.numbers.")
+			    (T <MAPRET>)>>
+	      <REST .L>			  ;"REST .L to remove name of queue">>
+     .V>>
+   <SET V <MAPF ,VECTOR		   ;"Make one vector out of 2 returned above."
+		<FUNCTION (V) #DECL ((V) VECTOR) <MAPRET !.V>> .V>>
+   <SETG TASK-IDS
+	 <COND (<EMPTY? .V> ,TASK-IDS-NULL)
+		  ;"If file OPEN fails or all queues empty, use empty symtab."
+	       (T <MAKESST "Task identifications" .V>)
+					      ;"Make symtab out of vector.">>>   
+ 
+<DEFINE OUTPUT-MODS				  ;"file modification on disk"
+	(ID "AUX" CHNL (OUTCHAN .OUTCHAN))
+	#DECL ((ID) FIX (CHNL) <OR FALSE CHANNEL> (BUILD) <SPECIAL VECTOR>
+	       (OUTCHAN) CHANNEL)
+	<COND (<NOT <SET CHNL <OPEN "PRINT" ".BATCH;MODS >">>>
+	       <TERPRI>
+	       <PRINC "The modification to task ">
+	       <PRINC .ID>
+	       <PRINC " could not be filed because: ">
+	       <PRINC <1 .CHNL>>
+	       <TERPRI>
+	       <PRINC "Use MODIFY.SIMILARLY to try again.">
+	       <>)
+	      (T
+	       <UNPUTAWAY-WRITE ,MOD-FIELDNAMES
+				<PUT .BUILD ,TASK-ID-NUMBER .ID>
+						       ;"maybe LIST in .BUILD"
+				.CHNL
+				,ERROR
+				,BATCHQ-OBL>
+	       <CLOSE .CHNL>
+	       <TERPRI>
+	       <PRINC "The modification to task ">
+	       <PRINC .ID>
+	       <PRINC " has been filed.">
+	       T)>>    
+
+<DEFINE TASK-CHECK
+ ;"Bless task descr'n or mod'n: MOD? = is this a mod'n?  Generally acceptable:
+   False = default/no change; canonical value from last CHECK."
+	(TASK "OPTIONAL" (MOD? <>) "AUX" F ICH FLT (OUTCHAN .OUTCHAN))
+					;"F=field  ICH=test channel"
+	#DECL ((TASK VALUE) VECTOR (MOD?) <OR 'T FALSE> (F) ANY (FLT) FLOAT
+	       (ICH) <OR CHANNEL FALSE> (OUTCHAN) CHANNEL)
+	<COND							  ;"TASK-NAME"
+	      (<OR <NOT <TYPE? <SET F <TASK-NAME .TASK>> STRING>> <EMPTY? .F>>
+							  ;"not usable string"
+	       <COND (.MOD? <AND .F <PUT .TASK ,TASK-NAME <>>>)
+		     (<FILE-TO-RUN .TASK> <PUT .TASK ,TASK-NAME "nameless">)
+		     (<PUT .TASK ,TASK-NAME "NULL">
+		      <PUT .TASK ,TASK-STATE "REMOVED">)>)>
+						      ;"no file-to-run either"
+	<COND							 ;"TASK-STATE"
+	      (<NOT <SET F <TASK-STATE .TASK>>>			      ;"false"
+	       <COND (<NOT .MOD?> <PUT .TASK ,TASK-STATE "RUNNABLE">)>)
+	      (<NOT <TYPE? .F STRING>>			  ;"not string either"
+	       <COND (.MOD? <PUT .TASK ,TASK-STATE <>>)
+		     (T <PUT .TASK ,TASK-STATE "UNRUNNABLE">)>)>
+	<COND							 ;"ORIGINATOR"
+	      (<AND .MOD?
+		    <TYPE? <SET F <ORIGINATOR .TASK>> STRING>
+		    <EMPTY? .F>>			  ;"not usable string"
+	       <PUT .TASK ,ORIGINATOR <>>)>
+	<PROG (TO)
+	      #DECL ((TO) <OR FALSE STRING>)
+	      <COND					        ;"OUTPUT-FILE"
+		    (<TYPE? <SET F <OUTPUT-FILE .TASK>> STRING>
+		     <SET F <UPPERCASE .F>>
+		     <COND (<=? .F "">)			   ;"no output wanted"
+			   (<=? .F "NUL:"> <PUT .TASK ,OUTPUT-FILE "">)
+								      ;"ditto"
+			   (<=? <1 <FSP-PARSE .F>> "NUL">
+			    <PUT .TASK ,OUTPUT-FILE "">)	      ;"ditto"
+			   (<SET ICH <OR <OPEN "READ" .F> <OPEN "PRINT" .F>>>
+			    <CLOSE .ICH>)		        ;"viable file"
+			   (<SET TO <MEMBER "MSG:" .F>>
+			    <PUT .TASK ,OUTPUT-FILE .TO>)
+			   (T
+			    <CRLF>
+			    <PRINC "*** WARNING: the file ">
+			    <PRINC .F>
+			 <PRINC " given as OUTPUT-FILE cannot be opened now.">
+			    <CRLF>
+			    <OR <CONFRIM %,OUTPUT-FILE> <AGAIN>>)>)
+		    (.F <PUT .TASK ,OUTPUT-FILE <>>)>>
+	<COND						   ;"TIME-OF-NEXT-RUN"
+	      (<TYPE? <SET F <TIME-OF-NEXT-RUN .TASK>> LIST>	  ;"canonical"
+	       <PUT .TASK ,TIME-OF-NEXT-RUN <DTNORM .F>>)
+	      (<AND <TYPE? .F ATOM> <MEMQ <1 <SPNAME .F>> '![!\N !\n!]>>
+								       ;"now!"
+	       <PUT .TASK ,TIME-OF-NEXT-RUN <DTNOW>>)
+	      (<OR <TYPE? .F ATOM> <NOT .MOD?>>
+	       <PUT .TASK ,TIME-OF-NEXT-RUN <DTNORM '(() (25))>>)>
+							        ;"else tonite"
+	<COND					     ;"TASK-TYPE & TIME-LIMIT"
+	      (<TYPE? <SET F <TIME-LIMIT .TASK>> FLOAT>)	  ;"canonical"
+	      (<TYPE? .F FIX> <PUT .TASK ,TIME-LIMIT <FLOAT .F>>)       ;"fix"
+	      (<AND .F <PUT .TASK ,TIME-LIMIT <>>>)>		    ;"default"
+	<COND (<NOT <SET F <TASK-TYPE .TASK>>>			    ;"default"
+	       <OR .MOD? <PUT .TASK ,TASK-TYPE "SHORT">>)
+	      (<AND <N=? .F "LONG"> <N=? .F "SHORT">>  ;"not canonical either"
+	       <PUT .TASK ,TASK-TYPE "LONG">)>
+	<COND (<NOT <SET F <TIME-LIMIT .TASK>>>		        ;"not default"
+	       <OR .MOD?			    ;"Let daemon handle MODS."
+		   <PUT .TASK
+			,TIME-LIMIT				  ;"canonical"
+			<COND (<=? <TASK-TYPE .TASK> "SHORT"> 5.0) (30.0)>>>)
+	      (<G? <SET FLT .F> 5.0>
+	       <PUT .TASK ,TASK-TYPE "LONG">)>			 ;"constraint"
+	<COND							 ;"HANG-LIMIT"
+	      (<NOT <SET F <HANG-LIMIT .TASK>>>)		    ;"default"
+	      (<TYPE? .F FLOAT> <PUT .TASK ,HANG-LIMIT <SET F <FIX .F>>>)
+								      ;"float"
+	      (<NOT <TYPE? .F FIX>> <PUT .TASK ,HANG-LIMIT <SET F <>>>)>
+								     ;"random"
+	<AND .F <G? .F 5> <PUT .TASK ,TASK-TYPE "LONG">>	 ;"constraint"
+	<AND .F <G? .F 25> <PUT .TASK ,HANG-LIMIT 25>>		 ;"constraint"
+	<COND						    ;"RESCHEDULE-INFO"
+	      (<NOT <SCHEDULER .TASK>>	     ;"Ignore if there's a scheduler."
+	       <COND (<TYPE? <SET F <RESCHEDULE-INFO .TASK>> LIST> ;"interval"
+		      <PUT .TASK ,RESCHEDULE-INFO <DTADD-2NORM .F>>)
+							       ;"canonicalize"
+		     (<TYPE? .F VECTOR>				   ;"sequence"
+		      <PUT .TASK ,RESCHEDULE-INFO <MAPF ,VECTOR ,DTNORM .F>>)
+							       ;"canonicalize"
+		     (.F <PUT .TASK ,RESCHEDULE-INFO <>>)>)>
+							 ;"Else must be null."
+	<COND					  ;"WHEN-TO-STOP-RESCHEDULING"
+	      (<TYPE? <SET F <WHEN-TO-STOP-RESCHEDULING .TASK>> LIST>
+								  ;"date/time"
+	       <PUT .TASK ,WHEN-TO-STOP-RESCHEDULING <DTNORM .F>>)
+							       ;"canonicalize"
+	      (.F <PUT .TASK ,WHEN-TO-STOP-RESCHEDULING <>>)>
+							  ;"else must be null"
+	<COND					     ;"MAXIMUM-NUMBER-OF-RUNS"
+	      (<NOT <TYPE? <MAXIMUM-NUMBER-OF-RUNS .TASK> FIX>>
+							  ;"Only FIX allowed."
+	       <AND .F <PUT .TASK ,MAXIMUM-NUMBER-OF-RUNS <>>>)>
+	<PROG ()
+	      <COND					        ;"FILE-TO-RUN"
+		    (<TYPE? <SET F <FILE-TO-RUN .TASK>> STRING>
+		     <PUT .TASK ,FILE-TO-RUN <SET F <FSP-PARSE .F>>>)
+							   ;"string -> vector"
+		    (<AND .MOD? <NOT .F>>)			  ;"no change"
+		    (<NOT <TYPE? .F VECTOR>>			    ;"default"
+		     <PUT .TASK
+			  ,FILE-TO-RUN
+			  ["SYS"
+			   <OR <ORIGINATOR .TASK> <XUNAME>>
+			   "TS"
+			   <OR <TASK-NAME .TASK> "MDL">]>)>
+	      <AND <TYPE? <SET F <FILE-TO-RUN .TASK>> VECTOR>
+							    ;"EXISTENCE CHECK"
+		   <COND (<OR <SET ICH
+				   <OPEN "READB" <3 .F> <4 .F> <1 .F> <2 .F>>>
+								    ;"literal"
+			      <AND
+			       <=? <1 .F> "SYS">	    ;"or any SYSn dir"
+			       <OR
+				<SET ICH
+				 <OPEN "READB" <3 .F> <4 .F> "DSK" "SYS1">>
+				<SET ICH
+				 <OPEN "READB" <3 .F> <4 .F> "DSK" "SYS2">>>>>
+			  <CLOSE .ICH>)
+			 (T				 ;"not there anywhere"
+			  <CRLF>
+			  <PRINC "*** WARNING: the file ">
+			  <FNV-PRINT .F>
+			  <PRINC " given as FILE-TO-RUN does not exist now.">
+			  <CRLF>
+			  <OR <CONFRIM %,FILE-TO-RUN> <AGAIN>>)>>>
+	<PROG ()
+	      <COND					       ;"INPUT-STREAM"
+		    (<DECL? <INPUT-STREAM .TASK> '<VECTOR [4 LOSE]>>
+							     ;"from FSP-PARSE"
+		     <PUT .TASK
+			  ,INPUT-STREAM
+			  ["DSK"
+			   <OR <ORIGINATOR .TASK> <XUNAME>>
+			   <OR <TASK-NAME .TASK> "MDL">
+			   "INPUT"]>)>
+	      <AND <TYPE? <SET F <INPUT-STREAM .TASK>> VECTOR>
+							    ;"EXISTENCE CHECK"
+		   <COND (<SET ICH <OPEN "READ" <3 .F> <4 .F> <1 .F> <2 .F>>>
+			  <CLOSE .ICH>)
+			 (T
+			  <CRLF>
+			  <PRINC "*** WARNING: the file ">
+			  <FNV-PRINT .F>
+			  <PRINC " given as INPUT-STREAM does not exist now.">
+			  <CRLF>
+			  <OR <CONFRIM %,INPUT-STREAM> <AGAIN>>)>>>
+	<COND							   ;"JCL-LINE"
+	      (<OR <NOT <TYPE? <SET F <JCL-LINE .TASK>> STRING>> <EMPTY? .F>>
+					      ;"either usable string or false"
+	       <AND .F <PUT .TASK ,JCL-LINE <>>>)>
+	<PROG ()
+	      <COND					  ;"WORKING-DIRECTORY"
+		    (<OR <NOT <TYPE? <SET F <WORKING-DIRECTORY .TASK>>
+				     STRING>>
+			 <EMPTY? .F>>	      ;"either usable string or false"
+		     <AND .F <PUT .TASK ,WORKING-DIRECTORY <>>>)
+		    (<MEMQ !\; .F>
+		     <PUT .TASK
+			  ,WORKING-DIRECTORY
+			  <MAPF ,STRING
+				<FUNCTION (C) 
+					#DECL ((C) CHARACTER)
+					<COND (<==? !\; .C> <MAPRET>) (T .C)>>
+				.F>>)>		       ;"Remove unwanted ';'."
+	      <AND <TYPE? <SET F <WORKING-DIRECTORY .TASK>> STRING>
+							    ;"EXISTENCE CHECK"
+		   <COND (<SET ICH <OPEN "READ" ".FILE." "(DIR)" "DSK" .F>>
+			  <CLOSE .ICH>)
+			 (T
+			  <TERPRI>
+			  <PRINC "*** WARNING: the disk directory ">
+			  <PRINC .F>
+		     <PRINC " given as WORKING-DIRECTORY does not exist now.">
+			  <TERPRI>
+			  <OR <CONFRIM %,WORKING-DIRECTORY> <AGAIN>>)>>>
+	<COND							   ;"SWITCHES"
+	      (<NOT .MOD?>				       ;"On new task,"
+	       <MAPF <>
+		     #FUNCTION ((SW "AUX" (E <NTH .TASK .SW>)) 
+				#DECL ((SW) FIX (E) ANY)
+				<COND (<TYPE? .E FALSE-PRIME>
+				       <PUT .TASK .SW <>>)>) ;"user said no."
+		     '![%,RESTART-SWITCH
+			%,NIGHT-RUN-SWITCH
+			%,BATCH-QUEUE-CHECK-SWITCH!]>)>
+	<COND						   ;"DELIMITER-STRING"
+	      (<TYPE? <DELIMITER-STRING .TASK> STRING>)	      ;"any string OK"
+	      (<AND <SET F <FILE-TO-RUN .TASK>>
+		    <TYPE? .F VECTOR>
+		    <=? <1 .F> "SYS">
+		    <=? <3 .F> "TS">
+		    <MEMBER <4 .F> '["TECO" "NTECO" "T" "NT"]>>
+							    ;"LOOKS LIKE TECO"
+	       <PUT .TASK ,DELIMITER-STRING "">)      ;"AN ALTMODE FOR TECO"
+	      (<PUT .TASK ,DELIMITER-STRING <>>)>	  ;"let daemon decide"
+	<COND					       ;"ACKNOWLEDGEMENT-INFO"
+	      (<DECL? <SET F <ACKNOWLEDGEMENT-INFO .TASK>>
+		      '<VECTOR [REST
+				<OR ATOM <VECTOR [REST <OR FIX STRING>]>>]>>)
+	      (.F <PUT .TASK ,ACKNOWLEDGEMENT-INFO <>>)>	    ;"default"
+	.TASK>
+
+<DEFINE ABORT-TASK		       ;"Performs ABORT.TASK command quickly."
+	("AUX" T-NUM CHNL (SYM? <GASSIGNED? TASK-IDS>)) 
+	#DECL ((T-NUM) <OR FALSE FIX> (CHNL) <OR FALSE CHANNEL>
+	       (SYM?) <OR FALSE 'T>)
+	<PROG ()
+	      <SET T-NUM		     ;"get ID without building symtab"
+		   <UN-SYM <READER <COND (.SYM? ,TASK-IDS) (T '[])>
+				   "ID"
+				   '[
+"Please type the identification of the task you want aborted immediately.
+The task will remain in the queue in the 'ABORTED' state."
+				     ""]
+				   <COND (.SYM? '["SYM" "FIX"])
+					 (T '["FIX"])>>>>
+	      <COND (<AND .T-NUM <N==? .T-NUM 0>> <SETG DEFAULT-ID .T-NUM>)
+								  ;"actual ID"
+		    (<=? .T-NUM #FALSE (#FALSE ())> <RETURN <>>)   ;"^R typed"
+		    (<N==? <SET T-NUM ,DEFAULT-ID> 0>)	 ;"use default if any"
+		    (<RETURN <>>)>	 ;"done -- return false for debugging"
+	      <COND (<SEND ".BATCH" "BATCHN" ![.T-NUM!] 2>)
+						    ;"DIRECT IPC MSG TO ABORT"
+		    (T
+		     <SET CHNL <OPEN "PRINT" ".BATCH;MODS >">> ;"DEMON NOT UP"
+		     <PRINC [TASK-ID-NUMBER	 ;"SO JUST WRITE OUT THE MODS"
+			     .T-NUM
+			     BY-WHOM-MODIFIED
+			     <STRING !\" <XUNAME> !\">
+			     TASK-STATE
+			     "\"ABORTED\""]
+			    .CHNL>
+		     <CLOSE .CHNL>)>>>    
+ 
+<DEFINE COPY-TASK	        ;"Gets task from disk into sample description"
+	("AUX" BT) 
+	#DECL ((BT) <OR FALSE VECTOR>)
+	<COND (<NOT <SET BT <PRINT-TASK-STATUS>>>)
+	      (<SETG TASK-BUILD .BT>
+	       <PRINC "
+This task was copied into core.">)>>    
+ 
+\   
+ 
+<SETG FORMAT			       ;"FPRINT format for PRINT.QUEUE.STATUS"
+      <1 <SETG PURELIST
+	       (<STRING "(/I6 2X A8 A15 PPRINC, 43G 'at ' P"
+			<PROG ((OBLIST ()))
+			      <UNPARSE DTP>>    ;"could be local but for this"
+			", X A13)">
+		!,PURELIST)>>>  
+ 
+<DEFINE PRINT-QUEUE-STATUS		        ;"Performs PRINT.QUEUE.STATUS"
+	("AUX" V (C <OPEN "READ" ".BATCH;BATCH QUEUE">) (OUTCHAN .OUTCHAN))
+	#DECL ((V) VECTOR (C) <OR FALSE CHANNEL> (OUTCHAN) CHANNEL)
+	<TERPRI>
+	<TERPRI>
+	<COND (.C		 ;"either (1) from daemon's abbreviated queue"
+	       <PRINC "  ID #  ORIG'R  NAME           STATE">
+	       <MAPF <>
+		     <FUNCTION (L)			        ;"L = a queue"
+			     #DECL ((L) LIST)
+			     <PRINT <1 .L>>
+			     <MAPF <>
+				   <FUNCTION (V)     ;"V = abb'd task descr'n"
+					   #DECL ((V) VECTOR)
+					   <COND (<6 .V>
+						  <PUT .V 6 "only at night">)
+						 (T
+						  <PUT .V 6 "             ">)>
+					   <FPRINT ,FORMAT .OUTCHAN .V>>
+				   <REST .L>>>
+		     <SET V <READ .C>>>			     ;"V = whole file"
+	       <CLOSE .C>)
+	      (T				  ;"or (2) from in-core queue"
+	       <PRINC "  ID #  TYPE	NAME        ORIG'R  STATE">
+	       <TERPRI>
+	       <UPDATE-QUEUE>
+	       <MAPF <> ,TASK-STATUS ,QUEUE>)>>    
+ 
+<DEFINE PRINT-TASK-STATUS			 ;"Performs PRINT.TASK.STATUS"
+	("OPTIONAL" N "AUX" TMPL) 
+	#DECL ((N) FIX (TMPL VALUE) <OR FALSE VECTOR>)
+	<COND (<COND (<ASSIGNED? N> <SET TMPL <GET-ID-FROM-USER .N>>)
+		     (T <SET TMPL <GET-ID-FROM-USER>>)>
+	       <TASK-STATUS .TMPL>)>>
+
+<DEFINE TASK-STATUS	     ;"prints one-line status from in-core descriptor"
+	(TMPL
+	 "AUX" DT (S <TASK-STATE .TMPL>) (OUTCHAN .OUTCHAN)
+	       (TUP
+		<TUPLE <TASK-ID-NUMBER .TMPL>
+		       <TASK-TYPE .TMPL>
+		       <TASK-NAME .TMPL>
+		       <ORIGINATOR .TMPL>
+		       .S>))
+	#DECL ((VALUE TMPL) VECTOR (S) <OR FALSE STRING> (TUP) TUPLE
+	       (DT) <OR FALSE <LIST <LIST [3 FIX]>>> (OUTCHAN) CHANNEL)
+	<FPRINT "(/I6 2X PPRINC, T A11 X A8 PPRINC, X)" .OUTCHAN .TUP>
+					      ;"ID type name originator state"
+	<COND (<=? .S "RUNNABLE">	       ;"line up columns and get time"
+	       <PRINC "  ">
+	       <SET DT <TIME-OF-NEXT-RUN .TMPL>>)
+	      (<=? .S "RUNNING">
+	       <PRINC "   ">
+	       <SET DT <LAST-STARTING-TIME .TMPL>>)
+	      (<SET DT <LAST-COMPLETION-TIME .TMPL>>
+	       <AND <MEMBER .S '["ABORTED" "REMOVED"]> <PRINC "   ">>)>
+	<COND (.DT <PRINC "AT "> <DTP .DT>)>			 ;"print time"
+	.TMPL>  
+ 
+<DEFINE PRINT-TASK-DESCRIPTION		    ;"Performs PRINT.TASK.DESCRIPTION"
+	("AUX" TMPL (OUTCHAN .OUTCHAN))
+	#DECL ((TMPL) <OR FALSE VECTOR> (OUTCHAN) CHANNEL)
+	<COND (<SET TMPL <GET-ID-FROM-USER>>
+	       <TERPRI>
+	       <PRINT-SPECS .TMPL T <>>)>
+	<TERPRI>>    
+ 
+<DEFINE GET-ID-FROM-USER ("OPTIONAL" T-NUM "AUX" TMPL (OUTCHAN .OUTCHAN)) 
+	#DECL ((T-NUM) <OR FALSE FIX> (TMPL VALUE) <OR FALSE VECTOR>
+	       (OUTCHAN) CHANNEL)
+	<OR <ASSIGNED? T-NUM>
+	    <SET T-NUM
+		 <UN-SYM <READER <GET-TASK-IDS>
+				 "ID"
+				 '[
+	     "Please type the identification of the task you want to inspect."
+				   ""]
+				 '["SYM" "FIX"]>>>>
+	<COND (<=? .T-NUM #FALSE (#FALSE ())> <>)		   ;"^R typed"
+	      (<==? <OR .T-NUM <SET T-NUM ,DEFAULT-ID>> 0> <>)
+							   ;"number defaulted"
+	      (<SET TMPL <GET-TASK .T-NUM>> <SETG DEFAULT-ID .T-NUM> .TMPL)
+	      (T <TERPRI> <PRINC <1 .TMPL>> <>)>	   ;"GET-TASK failed">    
+ 
+<DEFINE GET-TASK (N) 
+	#DECL ((VALUE) <OR FALSE VECTOR> (N) FIX)
+	<UPDATE-QUEUE .N>
+	<OR <FIND-TASK .N>
+	    <CHTYPE (<STRING "Task "
+			     <UNPARSE .N>
+			     " is not in the Batch queue.">)
+		    FALSE>>>    
+
+<DEFINE FIND-TASK			        ;"Finds task in in-core queue"
+	(N) 
+	#DECL ((VALUE) <OR FALSE VECTOR> (N) FIX)
+	<MAPF <>
+	      #FUNCTION ((BT) 
+			 #DECL ((BT) VECTOR)
+			 <AND <==? .N <TASK-ID-NUMBER .BT>>
+			      <TASK-NAME .BT>	        ;"ensure task is real"
+			      <MAPLEAVE .BT>>
+			 <>			       ;"make compiler happy")
+	      ,QUEUE>>    
+ 
+<DEFINE UPDATE-QUEUE
+ ;"Updates in-core specs (for task N or all) from disk
+(I know there are possible timing errors if daemon is up, but I'm not picky.)"
+	("OPTIONAL" N "AUX" C DIFF (TEMP 'T) (OBLIST ,BATCHQ-OBL)) 
+	#DECL ((C) <OR FALSE CHANNEL> (DIFF) <UVECTOR LIST LIST> (TEMP) ANY (N) FIX
+	       (OBLIST) <SPECIAL LIST>)
+	<COND (<NOT <SET C <OPEN "READB" "DSK:.BATCH;.FILE. (DIR)">>>)
+						       ;"can't open directory"
+	      (<AND <READB ,NEW-DIR .C> <CLOSE .C> <=? ,NEW-DIR ,DISK-DIR>>)
+						     ;"no change in directory"
+	      (T
+	       <SET DIFF <DIR-DIFF ,SPECS-NAME ,DISK-DIR ,NEW-DIR>>
+						 ;"compare new&old SPECS no.s"
+	       <COND (<NOT <ASSIGNED? N>>		   ;"update all tasks"
+		      <MAPF <> ,INSERT-SPECS <1 .DIFF>>	  ;"new SPECS numbers"
+		      <MAPF <> ,REMOVE-SPECS <2 .DIFF>>) ;"gone SPECS numbers"
+		     (<MEMQ .N <1 .DIFF>>
+		      <INSERT-SPECS .N>			       ;"get new task"
+		      <COND (<OR <NOT <LENGTH? <1 .DIFF> 1>>
+				 <NOT <EMPTY? <2 .DIFF>>>>
+			     <SET TEMP <>>)>)
+				        ;"don't remember dir if other changes"
+		     (<MEMQ .N <2 .DIFF>>
+		      <REMOVE-SPECS .N>			   ;"remove gone task"
+		      <COND (<OR <NOT <LENGTH? <2 .DIFF> 1>>
+				 <NOT <EMPTY? <1 .DIFF>>>>
+			     <SET TEMP <>>)>)
+				        ;"don't remember dir if other changes"
+		     (<NOT <FIND-TASK .N>> <SET TEMP <>>)>
+						        ;"CHECK FOR BOGUS NO."
+	       <SET DIFF <DIR-DIFF ,MODS-NAME ,DISK-DIR ,NEW-DIR>>
+						  ;"compare new&old MODS no.s"
+	       <MAPF <> ,UPDATE-SPECS <1 .DIFF>>
+					     ;"Update specs for all new MODS."
+	       <MAPF <>	      ;"Read daemon-modified specs for all gone MODS."
+		     #FUNCTION ((M) 
+				#DECL ((M) FIX)
+				<INSERT-SPECS <NTH ,TASK-MODS .M>>
+				<PUT ,TASK-MODS .M 0>)
+					       ;"Forget modified-task number."
+		     <2 .DIFF>>
+	       <COND (.TEMP	     ;"If in-core queue is really up-to-date,"
+		      <SET TEMP ,DISK-DIR>
+		      <SETG DISK-DIR ,NEW-DIR>  ;"remember how dir looks now."
+		      <SETG NEW-DIR .TEMP>)>)>>
+
+<DEFINE INSERT-SPECS		  ;"insert or update in-core specs for task N"
+	(N "AUX" TMPL (C <OPEN "READ" "SPECS" <UNPARSE .N> "DSK" ".BATCH">)) 
+   #DECL ((N) FIX (TMPL) VECTOR (C) <OR FALSE CHANNEL>)
+   <COND
+    (.C
+     <COND (<TASK-NAME <PUT <SET TMPL <READ-PUTAWAY ,TASK-TEMPLATE .C>>
+			    ,TASK-ID-NUMBER		       ;"Make vector."
+			    .N>>	     ;"If it's real, i.e. has a name,"
+	    <REPEAT ((I 0) (Q ,QUEUE) HOLD ID)	   ;"put it in in-core queue."
+		    #DECL ((I ID) FIX (Q HOLD) <LIST VECTOR>)
+		    <COND (<OR <EMPTY? .Q>
+			       <G? .N <SET ID <TASK-ID-NUMBER <1 .Q>>>>>
+			   <PUTREST ,Q-HANDLE ,QUEUE>
+			   <SET HOLD <REST ,Q-HANDLE .I>>
+			   <PUTREST .HOLD <PUTREST <LIST .TMPL> <REST .HOLD>>>
+			   <SETG QUEUE <REST ,Q-HANDLE>>   ;"splice a la EDIT"
+			   <RETURN>)
+			  (<==? .N <TASK-ID-NUMBER <1 .Q>>>
+			   <PUT .Q 1 .TMPL>		   ;"replace previous"
+			   <RETURN>)
+			  (<SET Q <REST .Q>> <SET I <+ .I 1>>)>>)>
+     <CLOSE .C>)>>   
+ 
+<DEFINE REMOVE-SPECS			    ;"Remove in-core specs for task N"
+	(N "AUX" (I 0)) 
+	#DECL ((N I) FIX)
+	<MAPR <>
+	      #FUNCTION ((Q) 
+			 #DECL ((Q) <LIST VECTOR>)
+			 <COND (<==? .N <TASK-ID-NUMBER <1 .Q>>>
+				<PUTREST ,Q-HANDLE ,QUEUE>
+				<PUTREST <REST ,Q-HANDLE .I> <REST .Q>>
+				<SETG QUEUE <REST ,Q-HANDLE>>
+							 ;"unsplice a la EDIT"
+				<MAPLEAVE>)
+			       (T <SET I <+ .I 1>>)>)
+	      ,QUEUE>>  
+
+<DEFINE UPDATE-SPECS (M				        ;"M = new MODS number"
+		      "AUX" N MODS TASK X
+			 (C <OPEN "READ" "MODS" <UNPARSE .M> "DSK" ".BATCH">))
+	#DECL ((VALUE X) ANY (M N) FIX (MODS) VECTOR (TASK) <OR FALSE VECTOR>
+	       (C) <OR FALSE CHANNEL>)
+	<AND .C
+	     <PROG ((OBLIST ,BATCHQ-OBL))
+		   #DECL ((OBLIST) <SPECIAL LIST>)
+		   <SET MODS <READ .C>>>
+			    ;"read MODS myself (makes smaller garbage vector)"
+	     <CLOSE .C>
+	     <SET X <MEMQ TASK-ID-NUMBER .MODS>>
+					        ;"Find task number to modify."
+	     <G=? <LENGTH .X> 2>
+	     <PUT ,TASK-MODS .M <SET N <2 .X>>>		        ;"remember it"
+	     <SET TASK <FIND-TASK .N>>			 ;"Find task in core."
+	     <REPEAT (N) #DECL ((N) FIX)	      ;"Update in-core specs."
+		     <COND (<LENGTH? .MODS 1> <RETURN>)
+			   (<MEMQ <1 .MODS> ,TASK-FIELDNAMES>
+			    <PUT .TASK <SET N ,<1 .MODS>> <2 .MODS>>)>
+		     <SET MODS <REST .MODS 2>>>>> 
+ 
+\   
+ 
+<DEFINE PRINT-SPECS		    ;"print descr'n or mod'n in pretty format"
+	(TMPL "OPTIONAL" (T? T) (CHK? T)
+	      "AUX" (OBLIST ,BATCHQ-OBL) (OUTCHAN .OUTCHAN))
+	#DECL ((VALUE) FALSE (T? CHK?) <OR 'T FALSE> (TMPL) <SPECIAL VECTOR>
+	       (OBLIST) <SPECIAL LIST> (OUTCHAN) CHANNEL)
+	<TERPRI>
+	<MAPF <>
+	      #FUNCTION ((HDG FCN FLD) 
+			 #DECL ((HDG) STRING (FCN) ATOM (FLD) ANY)
+			 <COND (.FLD
+				<PRINC .HDG>
+				<APPLY ,.FCN .FLD>
+				<TERPRI>)>)
+	      <COND (.T? ,SPECS-HEADINGS) (T ,MODS-HEADINGS)>
+	      ,SPECS-PRINTERS
+	      <COND (.CHK? <TASK-CHECK .TMPL <NOT .T?>>) (T .TMPL)>>> 
+ 
+<DEFINE DTP (DT "OPTIONAL" (OUTCHAN .OUTCHAN))		    ;"date/time print"
+	#DECL ((DT) <OR FALSE STRING <LIST <LIST [3 FIX]>>> (OUTCHAN) CHANNEL)
+	<COND (<TYPE? .DT STRING> <PRIN1 .DT>)
+	      (<TYPE? .DT LIST>
+	       <PTIME <2 .DT>>
+	       <PRINC " on ">
+	       <PRINC <NTH '![SUN MON TUE WED THU FRI SAT!]
+			   <+ 1 <DATE-DOW <1 .DT>>>>>
+	       <PRINC !\ >
+	       <COND (<G? 10 <3 <1 .DT>>> <PRINC !\ >)>
+	       <SPDATE <1 .DT>>)
+	      (T <PRINC "[never]">)>>    
+
+<DEFINE RESCHEDULE-PRINT (FLD "AUX" (OUTCHAN .OUTCHAN))
+	#DECL ((VALUE) ANY (FLD) <OR LIST VECTOR ANY> (OUTCHAN) CHANNEL
+	       (TMPL) VECTOR)
+	<COND (<SCHEDULER .TMPL> <EPRINT .FLD>)
+	      (<TYPE? .FLD LIST>
+	       <PRINC "intervals of ">
+	       <PRINC <REL-TIMEST .FLD>>)
+	      (<TYPE? .FLD VECTOR>
+	       <MAPF <>
+		     #FUNCTION ((DT) #DECL ((DT) <OR STRING LIST>)
+			        <DTP .DT> <TERPRI>
+				<PRINC "				">)
+		     .FLD>)
+	      (T <EPRINT .FLD>	      ;"PPRINT to right of current column.")>>
+ 
+<DEFINE FNV-PRINT (FLD "AUX" (OUTCHAN .OUTCHAN))      ;"filename-vector print"
+	#DECL ((FLD) VECTOR (OUTCHAN) CHANNEL)
+	<PRINC <1 .FLD>>
+	<PRINC !\:>
+	<PRINC <2 .FLD>>
+	<PRINC !\;>
+	<PRINC <3 .FLD>>
+	<PRINC !\ >
+	<PRINC <4 .FLD>>> 
+
+<DEFINE INPUT-PRINT (FLD "AUX" (OUTCHAN .OUTCHAN))
+	#DECL ((FLD) ANY ;<OR STRING VECTOR> (OUTCHAN) CHANNEL)
+	<COND (<TYPE? .FLD VECTOR> <PRINC "the file "> <FNV-PRINT .FLD>)
+	      (<=? .FLD ""> <PRINC "-- none --">)
+	      (<TYPE? .FLD STRING> <PRINC .FLD>)
+	      (T <PRINC "-- none --">)>> 
+
+<DEFINE DELIM-PRINT ("TUPLE" FLD) 
+	#DECL ((FLD) <TUPLE STRING>)
+	<FPRINT "(RA41)" .OUTCHAN .FLD>>
+ 
+<DEFINE F3-PRINT ("TUPLE" FLD "AUX" (OUTCHAN .OUTCHAN))
+						     ;"floating 3-place print"
+	#DECL ((FLD) <TUPLE <OR FIX FLOAT>> (OUTCHAN) CHANNEL)
+	<FPRINT "(F9.3)" .OUTCHAN .FLD>
+	<PRINC " min">> 
+ 
+<DEFINE O-F-P (FIL "AUX" (OUTCHAN .OUTCHAN))		  ;"output-file print"
+	#DECL ((FIL) <OR STRING FALSE> (OUTCHAN) CHANNEL)
+	<COND (<=? .FIL ""> <PRINC "-- none --">)
+	      (.FIL <PRINC .FIL>)
+	      (<PRINC "-- none --">)>>
+ 
+<DEFINE RS-PT (SWITCH "AUX" (OUTCHAN .OUTCHAN))	       ;"restart-switch print"
+	#DECL ((SWITCH) ANY (OUTCHAN) CHANNEL)
+	<COND (<TYPE? .SWITCH FALSE-PRIME>
+	      <PRINC "The task will not be restarted after ITS/Batch crash.">)
+	      (.SWITCH
+	       <PRINC "The task can be restarted after ITS/Batch crash.">)>>
+ 
+<DEFINE NRS-PT (SWITCH "AUX" (OUTCHAN .OUTCHAN))     ;"night-run-switch print"
+	#DECL ((SWITCH) ANY (OUTCHAN) CHANNEL)
+	<COND (<TYPE? .SWITCH FALSE-PRIME>
+	       <PRINC "The task can run during night and day.">)
+	      (.SWITCH <PRINC "The task can run only at night.">)>>
+ 
+<DEFINE BQCS-PT (SWITCH "AUX" (OUTCHAN .OUTCHAN))
+					     ;"batch-queue-check-switch print"
+	#DECL ((SWITCH) ANY (OUTCHAN) CHANNEL)
+	<COND (<TYPE? .SWITCH FALSE-PRIME>
+	       <PRINC
+      "The Batch processor will not check the queue after running the task.">)
+	      (.SWITCH
+	       <PRINC
+	"The Batch processor will check the queue after running the task.">)>> 
+ 
+\   
+ 
+<SETG SPECS-PRINTERS		  ;"fcns for printing fields in pretty format"
+      <1 <SETG PURELIST (<IUVECTOR ,NUMBER-OF-TIMES-RUN PRINC> !,PURELIST)>>>   
+ 
+<PROG ((T ,SPECS-PRINTERS))			    ;"save parsing and lookup"
+      <PUT .T ,WHEN-ORIGINATED DTP>
+      <PUT .T ,TIME-OF-NEXT-RUN DTP>
+      <PUT .T ,SCHEDULER EPRINT>
+      <PUT .T ,RESCHEDULE-INFO RESCHEDULE-PRINT>
+      <PUT .T ,WHEN-TO-STOP-RESCHEDULING DTP>
+      <PUT .T ,FILE-TO-RUN FNV-PRINT>
+      <PUT .T ,INPUT-STREAM INPUT-PRINT>
+      <PUT .T ,OUTPUT-FILE O-F-P>
+      <PUT .T ,DELIMITER-STRING DELIM-PRINT>
+      <PUT .T ,ACKNOWLEDGEMENT-INFO EPRINT>
+      <PUT .T ,RUN-TEST EPRINT>
+      <PUT .T ,RUN-TEST-INFO EPRINT>
+      <PUT .T ,LAST-STARTING-TIME DTP>
+      <PUT .T ,LAST-COMPLETION-TIME DTP>
+      <PUT .T ,LAST-CPU-TIME-USED F3-PRINT>
+      <PUT .T ,ACCUMULATED-CPU-TIME F3-PRINT>
+      <PUT .T ,NIGHT-RUN-SWITCH NRS-PT>
+      <PUT .T ,RESTART-SWITCH RS-PT>
+      <PUT .T ,BATCH-QUEUE-CHECK-SWITCH BQCS-PT>>  
+ 
+<SETG SPECS-HEADINGS	      ;"headings for printing fields in pretty format"
+      <1 <SETG PURELIST (<IVECTOR ,NUMBER-OF-TIMES-RUN ""> !,PURELIST)>>>
+ 
+<PROG ((T ,SPECS-HEADINGS))			    ;"save parsing and lookup"
+      <PUT .T ,TASK-ID-NUMBER "ID number:			">
+      <PUT .T ,TASK-NAME "Name:				">
+      <PUT .T ,TASK-STATE "State:				">
+      <PUT .T ,ORIGINATOR "Originated by:			">
+      <PUT .T ,WHEN-ORIGINATED "Originated at:			">
+      <PUT .T ,TASK-TYPE "Type:				">
+      <PUT .T ,TIME-OF-NEXT-RUN "To run at:			">
+      <PUT .T ,SCHEDULER "Scheduler:			">
+      <PUT .T ,RESCHEDULE-INFO "Reschedule with:		">
+      <PUT .T ,WHEN-TO-STOP-RESCHEDULING "Stop running after:		">
+      <PUT .T ,MAXIMUM-NUMBER-OF-RUNS "Maximum times to run:		">
+      <PUT .T ,FILE-TO-RUN "File to run:			">
+      <PUT .T ,INPUT-STREAM "Input:				">
+      <PUT .T ,OUTPUT-FILE "Output file:			">
+      <PUT .T ,JCL-LINE "Job-control line:		">
+      <PUT .T ,DELIMITER-STRING "Delimiters:			">
+      <PUT .T ,WORKING-DIRECTORY "Working directory:		">
+      <PUT .T ,TIME-LIMIT "CPU time limit (minutes):	">
+      <PUT .T ,ACKNOWLEDGEMENT-INFO "Acknowledgements:		">
+      <PUT .T ,RUN-TEST "Run test:			">
+      <PUT .T ,RUN-TEST-INFO "Run test info:			">
+      <PUT .T ,HANG-LIMIT "Hang time limit (minutes):	">
+      <PUT .T ,LAST-STARTING-TIME "Last started:			">
+      <PUT .T ,LAST-COMPLETION-TIME "Last completed:			">
+      <PUT .T ,LAST-CPU-TIME-USED "CPU time used on last run:	">
+      <PUT .T ,ACCUMULATED-CPU-TIME "CPU time used on all runs:	">
+      <PUT .T ,NUMBER-OF-TIMES-RUN "Number of times run so far:	">>    
+
+<SETG MODS-HEADINGS		   ;"only slightly different for sample mod'n"
+      <PUT <PUT <1 <SETG PURELIST (<EVAL ,SPECS-HEADINGS> !,PURELIST)>>
+		,WHEN-ORIGINATED
+		"Modified at:			">
+	   ,BY-WHOM-MODIFIED
+	   "Modified by:			">>
+ 
+<ENDPACKAGE>   
+ 
diff --git a/src/_batch/taskm.ujm127 b/src/_batch/taskm.ujm127
new file mode 100644
index 00000000..58da5c3a
--- /dev/null
+++ b/src/_batch/taskm.ujm127
@@ -0,0 +1,2294 @@
+<PACKAGE "TASKM">
+
+<ENTRY	ACKNOWLEDGE DEBUG-MODE NORMAL-MODE LIGHT-MODE
+	RESCHEDULE-DEMON SETUP-INTERRUPT-HANDLERS
+	SETUP-ERROR-INTERRUPT-HANDLER SETUP-SYSTEM-LOCATIONS
+	START-RUNNING TASK-ABORT
+
+	HELP-BOXES IN-DEBUG-MODE MY-USER-INDEX NQUEUES>
+
+<USE	"BATCHN"	;"BATCH-SCRIPT BATCHQ-OBL FIND-NEXT-TASK INSERT-TASK
+			  NAME-OF-SCRIPT READ-TASK-ACT REMOVE-TASK SOONEST-TIME
+			  TASK-DESCRIPTOR UPDATE-QUEUE WRITE-TASK"
+	"BATCHQ"	;"task descriptor atom names"
+
+	"CHARAP"	;"CHARAPPEND CR"
+	"DEMCLS"	;"SET-DEMON-STATUS"
+	"DIR"		;"DISK-DATE"
+	"ITS"		;"ITS-CALL ITS-EVAL ITS-GETLOC USET"
+	"JOBASS"	;"JOB-GET-NUM"
+	"JOBS"		;"JOB-KILL JOB-LOAD JOB-START JOB-STATUS JOB-STOP PASS-JCL-DOWN"
+	"LSRHIL"	;"FULLNAME"
+	"NOW"		;"NOW"
+	"SQUOZE"	;"SQUOZE"
+	"STR"		;"SIXTOS STRTOX"
+	"TIMFCN"	;"BEFORE? DTADD DTDIFF DTNORM DTNOW HOLIDAY? PAST?"
+	"TRANSL"	;"TRANSLATE TRANSLATE-CLEAR TRANSLATE-STY">
+
+<GDECL	(HELP-BOXES) <VECTOR [REST STRING]>
+	(OUR-PGFLTS SYS-PGFLTS LAST-CHECKED-TIME MY-USER-INDEX T-INF-PAGES
+	 MY-INIT-PAGES SYS-INIT-PAGES N-RUNS				) FIX
+	(*L *USIPRQ *USRTIM *USRTM1 *NSWXFR *NSRXFR *AUSOPG
+	 *NFSTTY *NSTTYS *JNAME						) <OR FIX FALSE>
+	(LAST-CHECK LOAD-REF1 LOAD-REF2 LOAD-REF3 LOAD-REF4 LOAD-REF5
+	 T-INF-CPU T-INF-REAL MY-INIT-CPU-TIME SYS-INIT-CPU-TIME	) FLOAT
+	(MY-INIT-REAL-TIME) LIST
+	(STY-OPEN-FAIL) <OR FALSE <LIST FIX LIST>>>
+
+<COND (<NOT <GASSIGNED? HELP-BOXES>>
+       <SETG HELP-BOXES '[".BATCH"]>)>
+
+;<'PACKAGE "TASKV">
+
+;<ENTRY	INPUT-STRINGS OUTPUT-SCRIPTS OUTPUT-FILES
+	JOB-CHANNELS JOB-ID-NUMBERS INFERIOR-NUMBERS
+	JOB-SYSTEM-INDEXES STY-NUMBERS STY-INPUT-CHANNELS
+	STY-OUTPUT-CHANNELS STY-INPUT-IHEADERS STY-OUTPUT-IHEADERS
+	JCL-LINES DELIMITER-STRINGS SLEEP-INTERVAL
+	SPECS-OF-JOBS HANG-COUNTS LAST-CPU-CHECKS
+	OVERHD-REFS>
+
+<GDECL	(INPUT-STRINGS)		<VECTOR [REST <OR FALSE STRING>]>
+	(DELIMITER-STRINGS
+	 JCL-LINES)		<VECTOR [REST STRING]>
+	(HANG-COUNTS
+	 STY-NUMBERS)		<UVECTOR [REST FIX]>
+	(JOB-CHANNELS
+	 STY-INPUT-CHANNELS
+	 STY-OUTPUT-CHANNELS)	<VECTOR [REST <OR FALSE CHANNEL>]>
+	(INFERIOR-NUMBERS
+	 JOB-ID-NUMBERS
+	 JOB-SYSTEM-INDEXES)	<VECTOR [REST <OR FALSE FIX>]>
+	(LAST-CPU-CHECKS
+	 OVERHD-REFS)		<UVECTOR [REST FLOAT]>
+	(OUTPUT-FILES)		<VECTOR [REST <OR FALSE STRING CHANNEL>]>
+	(OUTPUT-SCRIPTS)	<UVECTOR [REST <LIST FIX STRING STRING>]>
+	(SPECS-OF-JOBS)		<VECTOR [REST <OR FALSE VECTOR>]>
+	(STY-INPUT-IHEADERS
+	 STY-OUTPUT-IHEADERS)	<VECTOR [REST <OR FALSE IHEADER>]>>
+
+<GDECL (SLEEP-INTERVAL) FIX>
+
+<SETG NQUEUES 2>
+<MANIFEST NQUEUES>
+
+<SETG INPUT-STRINGS
+   <IVECTOR ,NQUEUES <>>>
+
+<SETG OUTPUT-SCRIPTS
+      <IUVECTOR ,NQUEUES
+		'<LIST 0		;"count of output (script) chars"
+		       <ISTRING 640 !\_>;"buffer of 640 chars (dump every 320)"
+		       <ISTRING 0>	;"overflow string buffer">>>
+
+<SETG OUTPUT-FILES
+   <IVECTOR ,NQUEUES <>>>
+
+<SETG JOB-CHANNELS
+   <IVECTOR ,NQUEUES <>>>
+
+<SETG JOB-ID-NUMBERS
+   <IVECTOR ,NQUEUES <>>>
+
+<SETG INFERIOR-NUMBERS
+   <IVECTOR ,NQUEUES <> >>
+
+<SETG JOB-SYSTEM-INDEXES
+   <IVECTOR ,NQUEUES 0>>
+
+<SETG STY-NUMBERS
+   <IUVECTOR ,NQUEUES 0>>
+
+<SETG STY-INPUT-CHANNELS
+   <IVECTOR ,NQUEUES <>>>
+
+<SETG STY-OUTPUT-CHANNELS
+   <IVECTOR ,NQUEUES <>>>
+
+<SETG STY-INPUT-IHEADERS
+   <IVECTOR ,NQUEUES <>>>
+
+<SETG STY-OUTPUT-IHEADERS
+   <IVECTOR ,NQUEUES <>>>
+
+<SETG JCL-LINES
+   <IVECTOR ,NQUEUES "">>
+
+<SETG DELIMITER-STRINGS
+   <IVECTOR ,NQUEUES "">>
+
+<SETG SLEEP-INTERVAL 60>
+
+<SETG SPECS-OF-JOBS
+   <IVECTOR ,NQUEUES <>>>
+
+<SETG HANG-COUNTS
+   <IUVECTOR ,NQUEUES 0>>
+
+<SETG LAST-CPU-CHECKS
+   <IUVECTOR ,NQUEUES 0.0>>
+
+<SETG OVERHD-REFS
+   <IUVECTOR ,NQUEUES 0.0>>
+
+;<ENDPACKAGE>
+
+
+;"This is the main entry to the task manager (top level function).  After
+initializing the queue, batch calls START-RUNNING, which handles all task-
+managing, then resets the wakeup time for the demon, and returns.
+
+START-RUNNING initializes some data bases, starts jobs running in each
+run-slot, then enters a loop, seeing that all run-slots are checked on
+once per minute.  When there is nothing left to do, it waits for a short
+time (in case something comes along) and quits."
+
+<DEFINE START-RUNNING ("AUX" NEXT-TIME TDIFF TIME-TILL-SYSDOWN
+			     C (U '![0]))
+	#DECL ((VALUE) ANY
+	       (NEXT-TIME) LIST (TDIFF) FLOAT (C) CHANNEL
+	       ;(STY-OPEN-FAIL) ;<SPECIAL <OR FALSE <LIST FIX LIST>>>
+	       (TIME-TILL-SYSDOWN) FIX (U) <UVECTOR FIX>)
+
+	<SCRIPT-START-STATS>
+	<ITS-CALL "SSTATU" .U>
+	<COND (<G? <SET TIME-TILL-SYSDOWN <1 .U>> 0>	;"SYSTEM GOING DOWN?"
+	       <BATCH-SCRIPT "At " <NOW>
+			     " initializing, but system going down at "
+			     <SETG SYSTEM-GOING-DOWN
+				   <DTADD <DTNOW>
+					  ('(0 0 0) (0 0 </ .TIME-TILL-SYSDOWN 30>)) >>
+			     CR "     No jobs will be started." CR>)
+	      (ELSE <SETG SYSTEM-GOING-DOWN %<>>)>
+
+	<BATCH-SCRIPT 50 "Initializing " ,NQUEUES " run slots." >
+	<MAPR <> <FUNCTION (V) #DECL ((V) VECTOR) <PUT .V 1 <>>> ,JOB-CHANNELS>
+	<MAPR <> <FUNCTION (V) #DECL ((V)UVECTOR) <PUT .V 1 0 >> ,STY-NUMBERS>
+	<MAPR <> <FUNCTION (V) #DECL ((V) VECTOR) <PUT .V 1 <>>> ,INFERIOR-NUMBERS>
+	<MAPR <> <FUNCTION (V) #DECL ((V) VECTOR) <PUT .V 1 <>>> ,JOB-ID-NUMBERS>
+					;"STD FOR 'THERE IS A JOB IN THIS Q SLOT NOW'"
+	<SETG STY-OPEN-FAIL %<>>			;"RECORD OF LAST STY HASSLE"
+	<KILL-OLD-MARKERS>		;"KILL MARKERS LEFT FROM BATCH/SYSTEM CRASH"
+	<ALLOW-A-SYS-LOAD>
+
+	<PROG () 					;"OUTER LOOP"
+					;"NO JOBS CURRENTLY RUNNING"
+	      <COND (,SYSTEM-GOING-DOWN
+		     <SET NEXT-TIME <DTADD ,SYSTEM-GOING-DOWN
+					   '((0 0 0) (0 2 0))>>
+		     <SET TDIFF <DTDIFF .NEXT-TIME <DTNOW>>>
+		     <RETURN T>)>
+	      <START-RUN-SLOTS>
+
+			;"MAIN LOOP, CHECKS ON ALL RUN SLOTS AND WATCHES SYSTEM LOAD"
+	      <PROG ()
+		    <CHECK-RUN-SLOTS>
+		    <COND (<ANY-JOBS-AROUND?>		;"ANYBODY HERE?"
+			   <SLEEP <* <COND (<G? ,OLD-LOAD ,LOAD-REF5> 5) (T 1)>
+				  ,SLEEP-INTERVAL>>	;"YES, SLEEP A BIT &"
+			   <AGAIN>)>>			;"   GO CHECK AGAIN"
+
+							;"NO JOBS NOW - START MORE?"
+	      <COND (,SYSTEM-GOING-DOWN			;"NOT IF SYSTEM GOING DOWN"
+		     <SET NEXT-TIME <DTADD ,SYSTEM-GOING-DOWN
+					   '((0 0 0) (0 2 0))>>
+		     <SET TDIFF <DTDIFF .NEXT-TIME <DTNOW>>>)
+
+							;"YES, IF ANYTHING TO RUN"
+		    (<AND <SET NEXT-TIME <SOONEST-TIME>>
+			  <L=? <SET TDIFF <DTDIFF .NEXT-TIME <DTNOW>>>
+			       5.0>>			;" (IN NEXT 5 MINS)"
+					;"NOTE THAT THIS IS NEGATIVE IF
+					   THERE IS ALREADY SOMETHING WAITING,
+					   E.G., IF THE SYSTEM IS LOADED"
+		     <SLEEP <MAX <* 60.0 .TDIFF> 60.0>>	;"SLEEP TILL THEN"
+		     <AGAIN>)>>				;"OUTER LOOP AGAIN"
+
+	<SCRIPT-END-STATS>
+	<COND (<N=? <UNAME> ".BATCH">)
+	      (<RESCHEDULE-DEMON .TDIFF>
+	       <BATCH-SCRIPT 100 "Demon rescheduled for " .NEXT-TIME>
+	       <SET C <OPEN "PRINT" "BATCHN NEXTUP">>	;"just public info"
+	       <ITS-CALL "SFDATE" '![] .C <DISK-DATE .NEXT-TIME>>
+	       <ITS-CALL "SDMPBT" '![] .C 1>
+	       <CLOSE .C>)
+	      (<AND <DEMSIG "BATCHN"> <RESCHEDULE-DEMON .TDIFF>>
+	       <BATCH-SCRIPT 200
+			"Entry in demon table was deleted, has been corrected."
+			CR "Rescheduled for " .NEXT-TIME>)
+	      (ELSE <BATCH-SCRIPT 300 "**** Cannot reschedule ****">)>>
+
+
+;"START-RUN-SLOTS simply starts a job running in each possible run-slot"
+
+<DEFINE START-RUN-SLOTS ("AUX" THE-JOB (THE-Q ,NQUEUES))
+   #DECL ((VALUE) ANY (THE-JOB) <OR VECTOR FALSE> (THE-Q) FIX)
+   <REPEAT ()
+	   <COND (<L=? .THE-Q 0> <RETURN T>)
+		 (<AND <SET THE-JOB <FIND-NEXT-TASK .THE-Q>>
+		       <OK-TO-LOAD-A-JOB? .THE-JOB>>
+		  <START-Q-SLOT .THE-Q .THE-JOB>)>
+	   <SET THE-Q <- .THE-Q 1>> >>
+
+;"CHECK-RUN-SLOTS is called upon once per minute while the task manager is
+running to see that all run-slots are running smoothly.  Running jobs are
+checked for cpu usage over their limit and for no cpu usage,  empty run-slots
+are checked to see if they can start running jobs"
+
+<DEFINE CHECK-RUN-SLOTS ("AUX" (SLOT ,NQUEUES))
+   #DECL ((VALUE) ANY (SLOT) FIX)
+   <REPEAT ()
+	<COND (<L=? .SLOT 0> <RETURN T>)>
+	<CHECK-Q-SLOT .SLOT>
+	<SET SLOT <- .SLOT 1>> >>
+
+;"SCRIPT-START-STATS makes some statistical notes in the batch log about
+starting up the demon (from login to start of task manager)"
+
+<DEFINE SCRIPT-START-STATS ("AUX" (Q-CPU-T ,MY-INIT-CPU-TIME)
+				  (Q-PAGES ,MY-INIT-PAGES)
+				  (Q-REAL-T ,MY-INIT-REAL-TIME))
+   #DECL ((VALUE) ANY (Q-CPU-T) FLOAT (Q-PAGES) FIX (Q-REAL-T) LIST)
+   <BATCH-SCRIPT 50
+		 "Login used" <FIX3-FMT .Q-CPU-T>
+		 " cpu mins, " .Q-PAGES " pages" CR
+		 "Queue start used"
+		 <FIX3-FMT <- <SETG MY-INIT-CPU-TIME <RUN-TIME>>
+			      .Q-CPU-T>>
+		 " cpu mins in"
+		 <FIX3-FMT <DTDIFF <SETG MY-INIT-REAL-TIME <DTNOW>>
+				   .Q-REAL-T>>
+		 " mins, "
+		 <- <SETG MY-INIT-PAGES
+			  <ITS-GETLOC <+ ,MY-USER-INDEX ,*USIPRQ>>>
+		    .Q-PAGES>
+		 " pages">
+   <SETG SYS-INIT-CPU-TIME </ <+ <ITS-GETLOC ,*USRTIM>
+				 <* <ITS-GETLOC ,*USRTM1> 4.0E-6>>
+			      60.0>>
+   <SETG SYS-INIT-PAGES <+ <ITS-GETLOC ,*NSWXFR> <ITS-GETLOC ,*NSRXFR>>>>
+
+
+;"SCRIPT-END-STATS does the analogous thing when the task manager
+finishes everything, and the demon is ready to logout"
+
+
+<DEFINE SCRIPT-END-STATS ("AUX" CPU PAGES REAL PCT-CPU PCT-USER-CPU
+				PCT-PGFLTS PCT-OVERHD)
+   #DECL ((VALUE) ANY
+	  (CPU REAL PCT-CPU PCT-USER-CPU PCT-PGFLTS PCT-OVERHD) FLOAT
+	  (PAGES) FIX)
+
+   <SET REAL <DTDIFF <DTNOW> ,MY-INIT-REAL-TIME>>			;"REAL MINUTES"
+   <SET CPU <- <RUN-TIME> ,MY-INIT-CPU-TIME>>				;"RUN TIME"
+   <SET PAGES <- <ITS-GETLOC <+ ,MY-USER-INDEX ,*USIPRQ>>	;"PAGE FAULTS"
+		 ,MY-INIT-PAGES>>
+   <SET PCT-CPU </ .CPU <MAX .REAL 0.001> 0.01>>			;"AVG % OF CPU"
+   <SET PCT-USER-CPU </ .CPU				;"AVG % OF USER CPU TIME"
+			<MAX <- </ <+ <ITS-GETLOC ,*USRTIM>
+				      <* <ITS-GETLOC ,*USRTM1> 4.0E-6>>
+				   60.0>
+				,SYS-INIT-CPU-TIME>
+			     0.001>
+			%</ 1.0 6000.0>>>		;"SYS IN SECS, MINE IN MINS"
+   <SET PCT-PGFLTS </ <FLOAT .PAGES>			;"% OF PGFLTS"
+		      <MAX <FLOAT <- <+ <ITS-GETLOC ,*NSWXFR> <ITS-GETLOC ,*NSRXFR>>
+				     ,SYS-INIT-PAGES>>
+			   0.001>
+		      0.01>>
+   <SET PCT-OVERHD </ .CPU <+ .CPU ,T-INF-CPU> 0.01>>
+				;"% TOTAL DEMON CPU TIME TO TASK MANAGER"
+				;"  (AS OPPOSED TO INFERIORS)  "
+
+   <BATCH-SCRIPT  200 CR "**** STATS FOR TASK MANAGER ****" CR
+							;"WRITE OUT SOME STATISTICS"
+	"  real mins" <FIX3-FMT .REAL> ", inferiors" <FIX3-FMT ,T-INF-REAL>
+	" in " ,N-RUNS " runs" CR
+	"  cpu mins" <FIX3-FMT .CPU> "," <FIX3-FMT .PCT-CPU>
+	"%," <FIX3-FMT .PCT-USER-CPU>
+	"% of user time, inferiors" <FIX3-FMT ,T-INF-CPU> CR
+	"  page faults " .PAGES "," <FIX3-FMT .PCT-PGFLTS>
+	"%, inferiors " ,T-INF-PAGES CR
+	"  cpu overhead" <FIX3-FMT .PCT-OVERHD> "%" CR
+	"********************************" CR>>
+
+
+;"ALLOW-A-SYS-LOAD causes a normal demon to sleep long enough to get
+a measurement of the system load (only really measured once per minute).
+When debugging, the measurement is punted for speed"
+
+<DEFINE ALLOW-A-SYS-LOAD ("AUX" (SINCE <- <SYS-SECS> ,LAST-CHECKED-TIME>))
+   #DECL ((VALUE) ANY (SINCE) FIX)
+   <COND (,IN-DEBUG-MODE)			;"PUNT IF DEBUGGING"
+	 (<L? .SINCE 60>	;"SLEEP ENOUGH SO SYS-LOAD WILL DO SOMETHING"
+	  <SLEEP <- 60 .SINCE>>)>>
+
+
+;"SETUP-INPUT-STRING sets up the input to be given to a task.
+This must be gotten from the task descriptor, or read from a file
+before the job is started"
+
+<DEFINE SETUP-INPUT-STRING (INPUT QN)
+   #DECL ((VALUE INPUT) ANY (QN) FIX)
+   <COND (<DECL? .INPUT
+		 '<VECTOR STRING STRING STRING [REST STRING]>>
+          <COND (<SET INPUT <OPEN "READ" !<FN-REORDER .INPUT>>>
+                 <PUT ,INPUT-STRINGS
+                      .QN
+                      <NO-LFS <READ-FILE .INPUT>>>)
+                (ELSE				;"RETURN FALSE FROM OPEN"
+		 <PUT ,INPUT-STRINGS .QN "">
+		 .INPUT)>)
+         (<TYPE? .INPUT STRING>
+          <PUT ,INPUT-STRINGS .QN <NO-LFS .INPUT>>)
+         (<TYPE? .INPUT CHARACTER>
+          <PUT ,INPUT-STRINGS .QN <STRING .INPUT>>)
+         (ELSE <PUT ,INPUT-STRINGS .QN "">)> >
+
+<DEFINE READ-FILE (CHAN "AUX" (S <ISTRING <FILE-LENGTH .CHAN>>))
+   #DECL ((VALUE S) STRING (CHAN) CHANNEL)
+   <SET S <SUBSTRUC .S 0 <READSTRING .S .CHAN>>>
+   <CLOSE .CHAN>
+   .S>
+
+;"NO-LFS punts line feeds immediately following carriage returns"
+
+<DEFINE NO-LFS (CSTRING "AUX" (CHR %<ASCII 0>))
+   #DECL((VALUE CSTRING) STRING (CHR) CHARACTER)
+
+   <COND (<NOT <MEMQ %<ASCII 10> .CSTRING>> .CSTRING)
+	 (ELSE
+	  <MAPF ,STRING
+		#FUNCTION ((C)
+			   #DECL ((VALUE C) CHARACTER)
+			   <COND (<AND <==? .C %<ASCII 10>>
+				       <==? .CHR %<ASCII 13>>>
+				  <SET CHR .C>
+				  <MAPRET>)>
+			   <SET CHR .C>)
+		.CSTRING>)>>
+
+;"ANY-JOBS-AROUND? decides if there are any jobs considered
+'RUNNING', ie, if any of the run-slots are non-empty"
+
+<DEFINE ANY-JOBS-AROUND? ()
+   #DECL ((VALUE) ANY)
+   <G? <NUMBER-OF-NON-FALSES ,JOB-ID-NUMBERS> 0>>
+
+;"RESCHEDULE-DEMON is an auxilliary function for setting the restart
+time for the batch demon"
+
+<DEFINE RESCHEDULE-DEMON (MINUTES "AUX" (MINS <FIX .MINUTES>))
+   #DECL ((VALUE) ANY (MINUTES) <OR FIX FLOAT> (MINS) FIX)
+   <SET-DEMON-STATUS "BATCHN" 30 0 .MINS>>
+
+;"SETUP-SYSTEM-LOCATIONS does an ITS-EVAL on several needed symbols in
+ITS' symbol table.  This must be done every login, since new versions of
+ITS will affect these locations.  This function will report on any symbols
+that have been outdated and removed from ITS"
+
+<DEFINE SETUP-SYSTEM-LOCATIONS ("AUX" BADDIES)	;"LOCATES SOME SYSTEM VARIABLES"
+   #DECL ((VALUE) FLOAT (BADDIES) LIST)
+
+   <SETG *L      <ITS-EVAL <SQUOZE "L">>>	;"LENGTH OF SYSTEM USER TABLE"
+   <SETG *USIPRQ <ITS-EVAL <SQUOZE "USIPRQ">>>	;"PAGE FAULTS FOR ONE USER"
+   <SETG *USRTIM <ITS-EVAL <SQUOZE "USRTIM">>>	;"CPU SECS____ FOR ALL USERS"
+   <SETG *USRTM1 <ITS-EVAL <SQUOZE "USRTM1">>>	;"EXTRA 4.0uSECS FOR USRTIM"
+   <SETG *AUSOPG <ITS-EVAL <SQUOZE "AUSOPG">>>	;"ACTIVE JOB SWAPPED OUT PAGES"
+   <SETG *NSWXFR <ITS-EVAL <SQUOZE "NSWXFR">>>	;"SYSTEM WRITE PAGE FAULTS"
+   <SETG *NSRXFR <ITS-EVAL <SQUOZE "NSRXFR">>>	;"SYSTEM READ PAGE FAULTS"
+   <SETG *NFSTTY <ITS-EVAL <SQUOZE "NFSTTY">>>	;"NO. OF FIRST PSEUDO-TTY"
+   <SETG *NSTTYS <ITS-EVAL <SQUOZE "NSTTYS">>>	;"NO. OF PSEUDO-TTYS"
+   <SETG *JNAME  <ITS-EVAL <SQUOZE "JNAME">>>	;"LOCN OF JNAME FOR JOB 0"
+
+   <SET BADDIES <MAPF ,LIST
+		      #FUNCTION ((A) #DECL ((A) ATOM)
+			  <COND (,.A <MAPRET>)
+				(<SETG .A 0>
+				 <BATCH-SCRIPT 300 "*** ERROR *** " .A
+					       " is no longer an ITS symbol">
+				 <SPNAME .A>)>)
+		      '![*L *USIPRQ *USRTIM *USRTM1 *AUSOPG *NSWXFR *NSRXFR]>>
+
+   <COND (<NOT <EMPTY? .BADDIES>>
+	  <HELP-ME ,HELP-BOXES
+	    " I'm getting old." ,CR
+	    " The ITS symbols " !.BADDIES
+	    " no longer exist" ,CR>
+	  <SETG CANT-MEASURE-SYS-LOAD T>)
+	 (T <SETG CANT-MEASURE-SYS-LOAD %<>>)>
+
+
+   <SETG OUR-PGFLTS <SETG SYS-PGFLTS <SETG T-INF-PAGES <SETG N-RUNS 0>>>>
+   <SETG LAST-CHECK <SETG T-INF-REAL <SETG T-INF-CPU 0.0>>>
+   <SETG LAST-CHECKED-TIME -61>
+   <SETG MY-USER-INDEX <* <CHTYPE <USET %<> "UIND"> FIX> ,*L>>
+
+   <SETG MY-INIT-REAL-TIME <DTNOW>>
+   <SETG MY-INIT-PAGES <ITS-GETLOC <+ ,MY-USER-INDEX ,*USIPRQ>>>
+   <SETG MY-INIT-CPU-TIME <RUN-TIME>>
+   <SYS-LOAD>>
+
+;"SYS-LOAD returns the 'loadage' of the system, by the current algorithm.
+This is measured no more often than once per minute."
+
+<DEFINE SYS-LOAD ("AUX" ;(OUR-PGFLTS-LAST ,OUR-PGFLTS)
+			;(SYS-PGFLTS-LAST ,SYS-PGFLTS)
+			(OLD-INT-LEVEL <INT-LEVEL 100>)
+			;(PGFLTS <ITS-GETLOC <+ ,MY-USER-INDEX ,*USIPRQ>>)
+			CHECK SS)
+
+   #DECL  ((VALUE CHECK) FLOAT
+	   (OLD-INT-LEVEL ;OUR-PGFLTS-LAST ;SYS-PGFLTS-LAST
+	    ;PGFLTS SS) FIX)
+
+   <COND (,CANT-MEASURE-SYS-LOAD 0)
+	 (<L? <SET SS <SYS-SECS>> <+ ,LAST-CHECKED-TIME 60>>	;"ONLY CHECK SYS 1/MIN"
+	  <INT-LEVEL .OLD-INT-LEVEL>
+	  ,LAST-CHECK)
+
+	 (ELSE
+	  ;<REPEAT ((Q ,NQUEUES))	;"SUM PAGE FAULTS FOR ENTIRE DEMON"
+		  #DECL ((Q) FIX)
+		  <COND (<0? .Q>
+			 <RETURN T>)
+		        (<NTH ,JOB-ID-NUMBERS .Q>
+			 <SET PGFLTS <+ <ITS-GETLOC <+ <NTH ,JOB-SYSTEM-INDEXES .Q>
+						       ,*USIPRQ>>
+					.PGFLTS>>)>
+		  <SET Q <- .Q 1>> >
+
+	  ;<SETG OUR-PGFLTS .PGFLTS>
+	  ;<SETG SYS-PGFLTS <+ <ITS-GETLOC ,*NSWXFR> <ITS-GETLOC ,*NSRXFR>>>
+
+	  ;<SET CHECK </ <FLOAT <- <- ,SYS-PGFLTS .SYS-PGFLTS-LAST>
+				  <- ,OUR-PGFLTS .OUR-PGFLTS-LAST>>>
+			<FLOAT <- .SS ,LAST-CHECKED-TIME>> > >
+
+	  <SET CHECK <FLOAT <ITS-GETLOC ,*AUSOPG>>>
+	  <SETG LAST-CHECKED-TIME .SS>
+	  <INT-LEVEL .OLD-INT-LEVEL>
+	  <SETG LAST-CHECK .CHECK>)> >
+
+;"RUN-TIME computes the cpu time useage for some job -- either an
+inferior or 'myself'"
+
+<DEFINE RUN-TIME ("OPTIONAL" (JB %<>))
+   #DECL ((VALUE) FLOAT (JB) <OR FALSE CHANNEL FIX>)
+   <* <CHTYPE <USET .JB "RUNT"> FIX>
+      %</ 4.0E-6 60.0>>>
+
+;"SCRIPTOR-INTERRUPT-ROUTINE is signalled (by <INTERRUPT \"SCRIPTOR\">)
+to happen at level 5; to output the internal buffer for a job; whenever
+it fills up, and a few other times.  This must happen at INT-LEVEL 5,
+due to channel utilization problems"
+
+<DEFINE SCRIPTOR-INTERRUPT-ROUTINE (Q-SLOT "AUX"
+				    (FILE <NTH ,OUTPUT-FILES .Q-SLOT>)
+				    (JOB-CH <NTH ,JOB-CHANNELS .Q-SLOT>)
+				    (CLOSE-SW <MAKE-SURE-OPEN .JOB-CH>))
+   #DECL ((VALUE) ANY (Q-SLOT) FIX (FILE) <OR FALSE STRING CHANNEL>
+	  (JOB-CH) <OR FALSE CHANNEL> (CLOSE-SW) <OR CHANNEL FALSE>)
+
+   <COND (.FILE
+	  <COND (.JOB-CH
+		 <JOB-STOP .JOB-CH>)>
+	  <SCRIPT-OUTPUT-BUFFER <NTH ,OUTPUT-SCRIPTS .Q-SLOT> .FILE>
+	  <COND (.JOB-CH
+		 <JOB-RESTART .JOB-CH .Q-SLOT>
+		 <COND (.CLOSE-SW
+			<CLOSE .JOB-CH>)> )>  )> >
+
+;"SCRIPT-OUTPUT-BUFFER does the dirty work for the SCRIPTOR-INTERRUPT-ROUTINE.
+It can be called directly at INT-LEVEL 5, or thru the \"SCRIPTOR\" interrupt"
+
+<DEFINE SCRIPT-OUTPUT-BUFFER (SCRIPT FILE "AUX"		;"CALLED FROM INT LEVEL 5"
+			      (LEN <1 .SCRIPT>) (OLD-INT-LEV <INT-LEVEL 15>))
+   #DECL ((VALUE FILE) ANY
+	  (SCRIPT) <LIST FIX STRING STRING>
+	  (LEN OLD-INT-LEV) FIX)
+
+   <COND (<L? .LEN 1>)
+	 (<NOT .FILE>
+	  <PUT .SCRIPT 1 0>
+	  <PUT .SCRIPT 3 "">)
+	 (<SCRIPTOR-WITH-ACT .FILE
+			     <COND (<L? .LEN 640> <SUBSTRUC <2 .SCRIPT> 0 .LEN>)
+				   (ELSE <2 .SCRIPT>)>
+			     <3 .SCRIPT>>
+	  <PUT .SCRIPT 1 0>
+	  <PUT .SCRIPT 3 "">)
+	(<G? .LEN 640> <PUT .SCRIPT 3 "
+>>>DEVICE FULL: THIS PART OF TRANSCRIPT LOST!<<<
+">)>
+   <INT-LEVEL .OLD-INT-LEV> >
+
+<DEFINE SCRIPTOR-WITH-ACT SCRIPTOR-ACT (X Y Z)
+	#DECL ((SCRIPTOR-ACT) <SPECIAL ACTIVATION> (X) ANY (Y Z) STRING)
+	<CHARAPPEND .X 0 T .Y .Z>>
+
+;"SETUP-STYS (trys to) open the needed STY channels for a job in-loading.
+If there is a free STY, it must open 2 channels to it, translate the
+inferiors job into the other end of it, etc."
+
+<DEFINE SETUP-STYS (JOB-CH Q "AUX" (WIDTH 88)		;"CALLED AT INT LEVEL 5"
+		    IN-CH OUT-CH STY-NAME INT-HEADER)
+   #DECL ((VALUE) ANY (JOB-CH IN-CH OUT-CH) <OR CHANNEL FALSE>
+	  (Q WIDTH) FIX (STY-NAME) STRING (INT-HEADER) IHEADER
+	  ;(STY-OPEN-FAIL) ;<OR FALSE <LIST FIX LIST>>)
+
+   <REPEAT ((N ,NQUEUES))	;"ZERO AND CLOSE UNUSED STY CHANNELS (JUST IN CASE)"
+	#DECL ((N) FIX)
+	<COND (<0? .N>
+	       <RETURN T>)
+	      (<OR <NOT <NTH ,JOB-ID-NUMBERS .N>>
+		   <==? .N .Q>>
+	       <PUT ,STY-NUMBERS .N 0>
+	       <COND (<AND <TYPE? <SET IN-CH <NTH ,STY-INPUT-CHANNELS .Q>> CHANNEL>
+			   <G? <1 .IN-CH> 0>>
+			<OFF <NTH ,STY-INPUT-IHEADERS .Q>>
+			<CLOSE .IN-CH>)>
+	       <COND (<AND <TYPE? <SET OUT-CH <NTH ,STY-OUTPUT-CHANNELS .Q>> CHANNEL>
+			   <G? <1 .OUT-CH> 0>>
+			<OFF <NTH ,STY-OUTPUT-IHEADERS .Q>>
+			<CLOSE .OUT-CH>)> )>
+	<SET N <- .N 1>> >
+
+   <PROG ((N 1))			;"FIND FIRST AVAILABLE STY NUMBER"
+	 #DECL ((N) FIX)
+	 <COND (<G? .N <OR ,*NSTTYS 8>>
+		<NOTIFY-STY-USERS>
+		<SETG STY-OPEN-FAIL (<- <NUMBER-OF-NON-FALSES ,JOB-ID-NUMBERS>
+					1>
+				     <DTNOW>)>
+		<RETURN #FALSE ("NO FREE STYS")>)
+	       (<MEMQ .N ,STY-NUMBERS>
+		<SET N <+ .N 1>>
+		<AGAIN>)
+	       (<NOT <SET OUT-CH <OPEN "PRINT"
+				       <SET STY-NAME <STRING "ST"
+							     <UNPARSE .N>
+							     ":">> >>>
+		<SET N <+ .N 1>>
+		<AGAIN>)>			;"TRY FOR ANOTHER STY NUMBER"
+
+	 <PUT ,STY-NUMBERS .Q .N>
+	 <PUT ,STY-OUTPUT-CHANNELS .Q .OUT-CH>
+	 <HANDLER <SET INT-HEADER <EVENT "CHAR" 10 .OUT-CH>>	;"GOT AN OUTPUT STY"
+		  ,STY-OUTPUT-INTERRUPT-ROUTINE			;"GET IHEADER"
+		  <MAIN>>					;"SAVE RELEVENT INFO"
+	 <PUT ,STY-OUTPUT-IHEADERS .Q .INT-HEADER>
+	 <SETG STY-OPEN-FAIL %<>>
+	 <COND (<NOT <SET IN-CH <OPEN "READ" .STY-NAME>>>	;"OPEN INPUT; FAILED?"
+		<PUT ,STY-NUMBERS .Q 0>		;"YEP, SO RESET CRAP AND NOTE FAILRURE"
+		<OFF .INT-HEADER>
+		<CLOSE .OUT-CH>
+		<SETG STY-OPEN-FAIL (<- <NUMBER-OF-NON-FALSES ,JOB-ID-NUMBERS> 1>
+				     <DTNOW>)>
+		<RETURN .IN-CH>)>			;"RETURN FALSE FROM OPEN"
+
+	 <PUT ,STY-INPUT-CHANNELS .Q .IN-CH>
+	 <HANDLER <SET INT-HEADER <EVENT "CHAR" 15 .IN-CH>>
+		  ,STY-INPUT-INTERRUPT-ROUTINE
+		  <MAIN>>
+	 <PUT ,STY-INPUT-IHEADERS .Q .INT-HEADER>
+
+	 <COND (<TRANSLATE-STY .OUT-CH .JOB-CH>)	;"NOW TRANSLATE STY TO LOOK LIKE"
+							;"    A TTY FOR THE JOB"
+	       (ELSE
+		<OFF <NTH ,STY-INPUT-IHEADERS .Q>>
+		<OFF <NTH ,STY-OUTPUT-IHEADERS .Q>>
+		<CLOSE .IN-CH>
+		<CLOSE .OUT-CH>
+		<SETG STY-OPEN-FAIL (<- <NUMBER-OF-NON-FALSES ,JOB-ID-NUMBERS> 1>
+				     <DTNOW>)>
+		<RETURN #FALSE ("Couldn't translate STYs for job.")> )>
+	 <ITS-CALL "CNSSET" '![] .OUT-CH -1 .WIDTH>
+	 <TERPRI .OUT-CH>			;"FLUSH ANYTHING SITTING IN STY NOW"
+	 <REPEAT ()
+		 <COND (<==? <READCHR .IN-CH> -1>
+			<RETURN T>)>>
+	 T>>
+
+<DEFINE NOTIFY-STY-USERS ("AUX" C FI)
+   #DECL ((C) <OR FALSE CHANNEL> (FI) FIX)
+   <COND
+    (<AND <MAPF ,AND? ,0? ,STY-NUMBERS>
+	  <SET C <OPEN "READ" "TTY:.FILE. (DIR)">>>
+     <REPEAT (TTY UNM JNM CLI (FIRSTY <UNPARSE <OR ,*NFSTTY *21*> 8>)
+	      (LASTY <UNPARSE <+ <OR ,*NFSTTY *21*> <OR ,*NSTTYS 6> -1> 8>)
+	      (CR <STRING <ASCII 13>>) (TBUF <ISTRING 41>))
+       #DECL ((TTY UNM JNM FIRSTY LASTY CR TBUF) STRING (CLI) <OR CHANNEL FALSE>)
+       <READCHR .C '<RETURN>>					 ;"GOBBLE UP CR"
+       <COND
+	(<0? <SET FI <READSTRING .TBUF .C .CR>>> <RETURN>)
+	(<AND <G=? <STRCOMP <SET TTY <SUBSTRUC .TBUF 2 2>> .FIRSTY> 0>
+	      <L=? <STRCOMP .TTY .LASTY> 0>>
+	 <SET UNM <SUBSTRUC .TBUF 5 6>>
+	 <SET JNM
+	      <COND ;(,*JNAME
+		  <SIXTOS <ITS-GETLOC <+ ,*JNAME
+					 <* ,*L
+					    <SET FI <PARSE <SUBSTRUC .TBUF 30 2> 8>>>>>>)
+		    (T "HACTRN")>>
+	 <COND (<SET CLI <OPEN "PRINT" .UNM .JNM "CLI">>
+		<PRINC 
+"
+Please excuse the interruption, but the Batch system needs a pseudo-terminal,
+and all of them are in use, including yours.  If you are not doing sponsored
+research for M.I.T., please finish up and log out.  Thank you.
+"
+		       .CLI>
+		<BATCH-SCRIPT "Requested " .UNM " " .JNM " to leave.">
+		<CLOSE .CLI>)>)>>)>>
+
+;"STY-INPUT-INTERRUPT-ROUTINE gets signalled every time an inferior
+outputs something to its TTY.  It does a GET-OUTPUT-OF-TASK"
+
+<DEFINE STY-INPUT-INTERRUPT-ROUTINE (CHAN "AUX" Q)	;"INT LEVEL 15"
+   	#DECL ((VALUE) ANY (CHAN) CHANNEL
+	       (Q) <OR FALSE FIX>)
+
+	 <COND (<SET Q <INDEX .CHAN ,STY-INPUT-CHANNELS>>
+		<GET-OUTPUT-OF-TASK .Q .CHAN>)
+	       (ELSE <BATCH-SCRIPT 200 "Input interrupt from channel "
+				   "not in STY-INPUT-CHANNELS:  " CR .CHAN CR
+				   "closing offending channel if not to a tty">
+		<COND (<N=? <9 .CHAN> "TTY">
+			<CLOSE .CHAN>)>)>>
+
+;"GET-OUTPUT-OF-TASK soaks up any characters an inferior has output to
+its TTY"
+
+<DEFINE GET-OUTPUT-OF-TASK (Q
+			    "OPTIONAL" (CHAN <NTH ,STY-INPUT-CHANNELS .Q>)
+			    "AUX" (SCRIPT <NTH ,OUTPUT-SCRIPTS .Q>)
+				  (SOFAR <1 .SCRIPT>)
+				  (ALREADY <G=? .SOFAR 320>) INF SW)
+   #DECL ((VALUE) ANY (Q SOFAR) FIX
+	  (CHAN INF SW) <OR CHANNEL FALSE>
+	  (SCRIPT) <LIST FIX STRING STRING> (ALREADY) <OR ATOM FALSE>)
+
+   <COND (.CHAN
+	  <COND (<L? .SOFAR 640>
+		 <PUT .SCRIPT 1 <SET SOFAR <+ <READSTRING <REST <2 .SCRIPT> .SOFAR>
+							  .CHAN
+							  <- 640 .SOFAR> >
+					      .SOFAR>> >)>
+	  <COND (<AND <G=? .SOFAR 600>			;"THIS GUY IS OUTPUTTING A LOT"
+		      <SET INF <NTH ,JOB-CHANNELS .Q>>>	;"STOP HIM TEMPORARILY"
+		 <SET SW <MAKE-SURE-OPEN .INF>>
+		 <JOB-STOP .INF>
+		 <AND .SW <CLOSE .INF>>)>
+
+	  <COND (<G=? .SOFAR 640>
+		 <PUT .SCRIPT
+		      3
+		      <STRING <3 .SCRIPT>
+			      <MAPF ,STRING
+				    <FUNCTION ()
+				     <COND (<TYPE? <NEXTCHR .CHAN -1> CHARACTER>
+					    <READCHR .CHAN>)
+					   (T <MAPSTOP>)>>>>>
+		 <PUT .SCRIPT 1 <SET SOFAR <+ <LENGTH <3 .SCRIPT>> 640>>>)>
+
+	  <COND (.ALREADY
+		 <AND <G=? .SOFAR 640> <INTERRUPT "SCRIPTOR" .Q>>)
+		(<G=? .SOFAR 320>
+		 <INTERRUPT "SCRIPTOR" .Q>)>  )>  >
+
+;"TERMINATE-TASK is called at INT-LEVEL 5 to end a task's execution, for
+any reason except (sometimes) early abort in START-RUNNING"
+
+<DEFINE TERMINATE-TASK (Q TASK
+			"OPTIONAL" (ACKN1 %<>)	;"CALLED AT INT LEVEL 5"
+				   (ACKN2 "unknown")
+			"AUX" (REAL 0.0) (CPU 0.0) (PAGES 0) (OVERHD 0.0)
+			      (JOB-CH <NTH ,JOB-CHANNELS .Q>)
+			      (OLD-INT-LEVEL <INT-LEVEL 5>) TEMP FI FL OF F L)
+
+   #DECL ((Q OLD-INT-LEVEL PAGES FI) FIX
+	  (ACKN1 TEMP VALUE) ANY
+	  (CPU REAL OVERHD FL) FLOAT
+	  (JOB-CH) <OR CHANNEL FALSE>
+	  (ACKN2 OF) STRING
+	  (F) <OR STRING FALSE>
+	  (TASK) <OR VECTOR FALSE> (L) LIST)
+
+   <PROG ()
+	<COND (<NOT .TASK> <RETURN %<>>)      ;"MAKE SURE THERE IS A TASK HERE"
+	      (<N=? .TASK <NTH ,SPECS-OF-JOBS .Q>>   ;"AND IT IS THE RIGHT ONE"
+	       <RETURN %<>>)>
+
+	<COND (.JOB-CH
+	       <MAKE-SURE-OPEN .JOB-CH>
+	       <JOB-STOP .JOB-CH>
+	       <GET-OUTPUT-OF-TASK .Q>)>
+
+	<COND (<SET TEMP <NTH ,STY-INPUT-IHEADERS .Q>>
+	       <OFF .TEMP>)>
+	<COND (<TYPE? <SET TEMP <NTH ,STY-INPUT-CHANNELS .Q>> CHANNEL>
+	       <CLOSE .TEMP>
+	       <PUT ,STY-INPUT-CHANNELS .Q %<>>)>
+	<COND (<SET TEMP <NTH ,STY-OUTPUT-IHEADERS .Q>>
+	       <OFF .TEMP>)>
+	<COND (<TYPE? <SET TEMP <NTH ,STY-OUTPUT-CHANNELS .Q>> CHANNEL>
+	       <CLOSE .TEMP>
+	       <PUT ,STY-OUTPUT-CHANNELS .Q %<>>)>
+	<PUT ,STY-NUMBERS .Q 0>
+
+	<COND (.JOB-CH
+	       <COND (<N==? <1 .JOB-CH> 0>
+		    <SET CPU <RUN-TIME .JOB-CH>>		 ;"CPU MINS"
+		    <SET PAGES <ITS-GETLOC <+ <SET FI
+						  <NTH ,JOB-SYSTEM-INDEXES .Q>>
+					      ,*USIPRQ>>>;"PAGE FAULTS FOR JOB"
+		    <CLOSE <JOB-KILL .JOB-CH>>)>
+	       <COND (<==? .ACKN1 ON-DELAY>)
+		     (<OR <==? .ACKN1 ON-COMPLETION:ERROR-IN-STARTING>
+			  <==? .ACKN1 ON-COMPLETION:RUN-TEST-FALSE>
+			  <AND <==? .ACKN1 IF-MADE-UNRUNNABLE>
+			       <=? .ACKN2 "ERROR in run test" >> >
+		      <JOB-SCRIPT .Q ,CR "Task terminated because:  "
+				  .ACKN2 ,CR>)
+		     (ELSE
+		      <SET FL <- <RUN-TIME> <SET FL <NTH ,OVERHD-REFS .Q>>>>
+		      <JOB-SCRIPT .Q ,CR
+		 "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
+				,CR ,CR "Task terminated at " <TIME-NOW> ,CR
+				"Reason:  " .ACKN2
+				<FIX3-FMT .CPU> "/"
+				<FIX3-FMT <SET REAL
+				  <DTDIFF <DTNOW> <LAST-STARTING-TIME .TASK>>>>
+				" CPU/Real minutes used ("
+				<FIX3-FMT </ .CPU <MAX .REAL 0.001> 0.01>>
+				"%), " <UNPARSE .PAGES> " Page faults" ,CR
+				" Uncompensated cpu overhead "
+				<FIX3-FMT <SET OVERHD </ .FL
+						       <MAX <+ .FL .CPU> 0.001>
+						       0.01>>>
+				"%" ,CR>)> )
+	      (ELSE
+	       <JOB-SCRIPT .Q ,CR "Task terminated because:  " .ACKN2 ,CR>)>
+
+	<BATCH-SCRIPT "Done with " <ORIGINATOR .TASK> !\. <TASK-NAME .TASK> !\.
+		      <TASK-ID-NUMBER .TASK> ", reason:  " .ACKN2
+		      "     used" <FIX3-FMT .CPU>
+		      " in" <FIX3-FMT .REAL> ", pages " .PAGES
+		      ", comp. ovrhd=" <FIX3-FMT .OVERHD> "%">
+	<SETG T-INF-CPU <+ ,T-INF-CPU .CPU>>
+	<SETG T-INF-REAL <+ ,T-INF-REAL .REAL>>
+	<SETG T-INF-PAGES <+ ,T-INF-PAGES .PAGES>>
+	<PUT ,JOB-ID-NUMBERS .Q %<>>
+	<PUT ,JOB-CHANNELS .Q %<>>
+	<PUT ,INFERIOR-NUMBERS .Q %<>>
+	<PUT ,SPECS-OF-JOBS .Q %<>>
+	<COND (<N==? .ACKN1 ON-DELAY>
+	       <PUT .TASK ,LAST-COMPLETION-TIME <DTNOW>>
+	       <PUT .TASK ,LAST-CPU-TIME-USED .CPU>
+	       <PUT .TASK ,ACCUMULATED-CPU-TIME
+		    <+ <SET FL <ACCUMULATED-CPU-TIME .TASK>> .CPU>>
+	       <PUT .TASK ,NUMBER-OF-TIMES-RUN
+					;"STATE 'UNRUNNABLE' IF UNFORGIVABLE"
+		    <+ <SET FI <NUMBER-OF-TIMES-RUN .TASK>> 1>>)>
+					;"   ERROR"
+	<COND (.ACKN1			;"STATE MAY BE MADE 'UNRUNNABLE' (IF"
+	       <ACKNOWLEDGE .TASK .ACKN1 .ACKN2>)>
+					;"   ACKNOWLEDGEMENT REQUESTED"
+
+	<COND (<N==? .ACKN1 ON-DELAY>
+	       <COND (<NOT <LENGTH? <SET L <WHEN-ORIGINATED .TASK>> 3>>
+		      <PUT .TASK ,TIME-OF-NEXT-RUN <REST .L 3>>
+		      <PUTREST <REST .L 2> ()>)>
+	       <RESCHEDULE-TASK .TASK .Q>)	;"STATE MAY BECOME 'REMOVED'"
+					;"RESCHEDULE-TASK UPDATES DISK Q"
+	      (T
+	       <OR <NOT <LENGTH? <SET L <WHEN-ORIGINATED .TASK>> 3>>
+		   <PUTREST <REST .L 2> <TIME-OF-NEXT-RUN .TASK>>>
+	       <RESCHEDULE-TASK .TASK .Q 20>)>
+	<JOB-SCRIPT .Q %<STRING <ASCII 12>>>
+	<SCRIPT-OUTPUT-BUFFER <NTH ,OUTPUT-SCRIPTS .Q>
+			      <SET TEMP <NTH ,OUTPUT-FILES .Q>> >
+	<COND (<TYPE? .TEMP CHANNEL>
+	       <CLOSE .TEMP>)>
+	<COND (<=? <NTH ,OUTPUT-FILES .Q>
+		   <SET OF <STRING "DSK:.BATCH;_MSG "
+				   <UNPARSE <TASK-ID-NUMBER .TASK>>>>>
+	       <COND (<AND <TYPE? <SET TEMP <OPEN "READ" .OF>> CHANNEL>
+			   <SET F <MEMBER "MSG:" <OUTPUT-FILE .TASK>>>>
+		      <MAIL <REST .F 4> <READ-FILE .TEMP>>
+		      <RENAME .OF>)>)>
+	<PUT ,OUTPUT-FILES .Q %<>>
+	<COND (<AND <==? .ACKN1 ON-DELAY>
+		    <=? .ACKN2 "user device full">>
+	       <STOP-ALL-JOBS>
+	       <BATCH-SCRIPT "USER DEVICE FULL, AT " <NOW>
+			     " SLEEPING FOR 30 MINS">
+	       <SLEEP %<* 30 60>>)>
+	<COND (<BATCH-QUEUE-CHECK-SWITCH .TASK>
+	       <UPDATE-QUEUE>)>
+	<RENAME <STRING ".BATCH;#Q" <UNPARSE .Q> " >">>
+	<INT-LEVEL .OLD-INT-LEVEL>>>
+
+;"KILLER-INTERRUPT-ROUTINE is TERMINATE-TASK's alias, for the
+\"KILLER\" interrupt; which is signalled when a task's termination
+is determined at some other interrupt level"
+
+<SETG KILLER-INTERRUPT-ROUTINE ,TERMINATE-TASK>		;"AT INT-LEVEL 5"
+
+;"STOP-ALL-JOBS will put any running inferiors into 10!0 mode"
+
+<DEFINE STOP-ALL-JOBS ("AUX" (QN ,NQUEUES) JC)
+   #DECL ((VALUE) ANY (JC) <OR FALSE CHANNEL> (QN) FIX)
+   <REPEAT ()
+	   <COND (<0? .QN> <RETURN T>)
+		 (<AND <NTH ,JOB-ID-NUMBERS .QN>
+		       <SET JC <NTH ,JOB-CHANNELS .QN>> >
+		  <JOB-STOP .JC>)> >>
+
+;"IPC-INTERRUPT-ROUTINE handles any info coming in on the IPC
+device.  Possible (understood) are the following message types:
+	(1) 'send this back to me' -- tells you that the demon
+		is alive and well
+	(2) 'immediate task abort' -- the message itself must be
+		a uvector of 1 fix, that task will be aborted
+	(10) 'evaluate this' -- will batch-script and then evaluate
+		a random form
+	(else) 'look at the disk queue' -- someone says they have
+		written new data out on the disk"
+
+<DEFINE IPC-INTERRUPT-ROUTINE (MSG MSG-TYPE "TUPLE"		;"AT INT LEVEL 20"
+			       TUP "AUX" (BORROWED <GRAB-A-CHANNEL>))
+   #DECL ((VALUE MSG MSG-TYPE) ANY (TUP) TUPLE
+	  (BORROWED) <OR FALSE <VECTOR CHANNEL IHEADER>>)
+
+   <COND (<AND	<==? .MSG-TYPE 1>			;"SOME PROTECTION AGAINST"
+		<TYPE? .MSG STRING>		;"  IPC MESSAGES 'TO EVAL' "
+		<G? <LENGTH .TUP> 1> >
+	  <SEND <1 .TUP> <2 .TUP>
+		<STRING "<AND <PRINC \"SAME TO YOU!\"> "
+			      .MSG " >">		      
+		1>
+	  <BATCH-SCRIPT 200 "IPC MSG TYPE 1 FROM " .TUP
+			CR "     MSG: '" .MSG "'; (MSG returned)">)
+
+	 (<AND <==? .MSG-TYPE 2>
+	       <TYPE? .MSG UVECTOR>>
+	  <BATCH-SCRIPT 100 "Immediate abort of task " <1 .MSG>
+			" by " .TUP>
+	  <TASK-ABORT <TASK-DESCRIPTOR <1 .MSG>> <1 .TUP>>)
+
+	 (<AND <==? .MSG-TYPE 10>
+	       <TYPE? .MSG STRING>>
+	  <BATCH-SCRIPT 100 "IPC MSG TYPE 10 FROM " .TUP
+			CR "MSG:  '" .MSG "'; EVALling now">
+	  <EVAL <PARSE .MSG>>)
+
+	 (ELSE
+	  <BATCH-SCRIPT 20 "UPDATING QUEUE AT REQUEST OF " .TUP>
+						;"READ IN ANY NEW TASK SPECS FROM DISK"
+	  <UPDATE-QUEUE>)>			;"MODS -- MIGHT CALL TASK-ABORT"
+   <RETURN-CHANNEL .BORROWED> >			;"GIVE THE CHANNEL BACK"
+
+
+;"GRAB-A-CHANNEL is a hack to allow 3 jobs to be run simultaneously.
+It is supposed to temporarily close a channel not needed at a lower
+interrupt level (stopping the appropriate job) so that the IPC interrupt
+can have an extra channel to play with"
+
+<DEFINE GRAB-A-CHANNEL ()				;"CALLED AT INT LEVEL 20"
+   #DECL ((VALUE) <OR FALSE <VECTOR CHANNEL IHEADER>>)
+		;"CLOSES A CHANNEL NOT NEEDED BY STY-OUTPUT-INTERRUPT-ROUTINE"
+
+   <NOT <L? <NUMBER-OF-NON-FALSES ,JOB-CHANNELS> 3>>	;"NO NEED TO IF < 3 JOBS GOING">
+
+;"RETURN-CHANNEL resets the mischief of GRAB-A-CHANNEL"
+
+<DEFINE RETURN-CHANNEL (BORROWED)			;"CALLED AT INT LEVEL 20"
+   #DECL ((BORROWED) <OR FALSE <VECTOR CHANNEL IHEADER>>
+	  (VALUE) ANY)
+   <COND (.BORROWED
+	  <RESET <1 .BORROWED>>			;"RESET CHANNEL AND INTERRUPT HANDLER"
+	  <EVENT <2 .BORROWED>>)>>
+
+;"TASK-ABORT is called during disk-queue update, to cause a running
+task to be aborted.  This is called at INT-LEVEL 20 during IPC-driven
+queue update, at INT-LEVEL 0 during initial queue starting"
+
+<DEFINE TASK-ABORT (TASK "OPTIONAL" (USER "UNKNOWN")	;"CALLED AT INT LEVEL 20"
+				    (NEW-STATE "ABORTED")
+		    "AUX" (Q <INDEX <TASK-ID-NUMBER .TASK>
+				    ,JOB-ID-NUMBERS>))
+   #DECL ((VALUE) ANY (TASK) VECTOR
+	  (Q) <OR FIX FALSE> (USER NEW-STATE) STRING)
+
+   <PUT .TASK ,TASK-STATE .NEW-STATE>
+   <COND (.Q
+	  <INTERRUPT "KILLER"
+		     .Q
+		     .TASK
+		     IF-ABORTED
+		     <COND (<=? .USER "UNKNOWN">
+			    "Manual abort
+"					 )
+			   (ELSE <STRING "Manual abort by "
+					 .USER ,CR>)> >)> >
+							;"GET LEVEL 5 TO KILL THE JOB"
+
+;"SYSDOWN-INTERRUPT-ROUTINE gets signalled whenever the system tells
+everyone that it has been set to go down.  A note is put in the batch log
+as well as the output script of every running job"
+
+<DEFINE SYSDOWN-INTERRUPT-ROUTINE (TIME-LEFT "AUX"	;"AT INT LEVEL 25"
+				   (TIME-NOW <NOW>) LEFT)
+   #DECL ((VALUE) ANY (TIME-LEFT) FIX
+	  (TIME-NOW LEFT) STRING (Q) FIX)
+
+   <COND (<=? .TIME-LEFT -1>
+	  T)
+	 (T 
+	   <SETG SYSTEM-GOING-DOWN				;"CONVERT TO ABSOLUTE TIME"
+		 <DTADD <DTNOW>
+			('(0 0 0) (0 0 <SET TIME-LEFT <FIX </ .TIME-LEFT 30.0>>>))>>
+	   <SET LEFT <FIX3-FMT </ .TIME-LEFT 60.0>>>
+	   <BATCH-SCRIPT " ITS is going down in " .LEFT " mins.">
+	   <REPEAT ((Q ,NQUEUES))
+		   #DECL ((Q) FIX)
+		   <COND (<0? .Q>
+			  <RETURN T>)
+			 (<NTH ,JOB-ID-NUMBERS .Q>		;"TELL ALL THE CURRENT JOBS"
+			  <JOB-SCRIPT .Q ,CR "**** FROM BATCH: At " .TIME-NOW ,CR
+				      "     ITS is going down in "
+				      .LEFT " minutes. ****" ,CR>
+			  <INTERRUPT "SCRIPTOR" .Q>)>		;"AND SPEED MSGS TO OUTPUT FILE"
+		<SET Q <- .Q 1>> >)>>
+
+;"CLOSE-A-CHANNEL is part of the ERROR handling scheme.  The idea is to
+get a channel from somewhere to allow scripting of error messages, and
+to FSAVE the losing demon"
+
+<DEFINE CLOSE-A-CHANNEL ("AUX" (C-LIST <CHANLIST>))
+   #DECL ((VALUE) <OR FALSE CHANNEL> (C-LIST) LIST)
+   <MAPF <>
+	 <FUNCTION (CHAN)
+		   #DECL ((CHAN) CHANNEL)
+		   <AND <G?  <1 .CHAN> 0>
+			<N=? <9 .CHAN> "TTY">
+			<MAPLEAVE <CLOSE .CHAN>>>>
+	 .C-LIST>>
+
+;"ERROR-INTERRUPT-ROUTINE happens at INT-LEVEL 50 whenever an error occurs.
+It tries to be smart about a few types of errors, especially errors happening
+while evaluating a user form (run-test or rescheduler).  It also tries to
+signal some help."
+
+<DEFINE ERROR-INTERRUPT-ROUTINE ("TUPLE" TUP
+				 "AUX" SAVED JHM X NOMORE (OUTCHAN .OUTCHAN))
+							     ;"AT INT LEVEL 50"
+   #DECL ((VALUE SAVED) ANY (TUP) TUPLE (NOMORE OUTCHAN) CHANNEL
+	  (JHM) <OR CHANNEL FALSE> (X) STRING)
+
+ <PROG ACT () #DECL ((ACT) ACTIVATION)
+   <COND (<AND	<ASSIGNED? user-test-activation> ;"ERROR IN A USER TEST?"
+		<LEGAL? .user-test-activation>>
+	   <DISMISS <CHTYPE ("***ERROR CAUSED***" !<REST .TUP>) FALSE>
+		    .user-test-activation>)
+
+	 (<AND <ASSIGNED? READ-TASK-ACT> <LEGAL? .READ-TASK-ACT>>
+		<BATCH-SCRIPT "ERROR in READ-TASK: flushing task.">
+		<DISMISS %<> .READ-TASK-ACT>)
+	 (<AND <ASSIGNED? SCRIPTOR-ACT> <LEGAL? .SCRIPTOR-ACT>>
+		;<BATCH-SCRIPT "ERROR in SCRIPTOR: flushing script.">
+		<DISMISS %<> .SCRIPTOR-ACT>)
+	(<TTY?>	;"IF DEBUGGING, LET ,ERROR DO ITS THING"
+	  <PRINC %<ASCII 7>>
+	  <SLEEP 0.4>
+	  <PRINC %<ASCII 7>>
+	  <RETURN T>)
+
+	(<==? <2 .TUP> READER-SYNTAX-ERROR-ERRET-ANYTHING-TO-GO-ON!-ERRORS!- >
+	  <BATCH-SCRIPT CR "***ERROR*** " <NOW> CR
+			<UNPARSE .TUP> CR "ERRETting T" CR>
+	  <DISMISS T>)
+	 (<==? <2 .TUP> END-OF-FILE!-ERRORS!- >
+	  <BATCH-SCRIPT CR "***ERROR*** " <NOW> CR
+			<UNPARSE .TUP> CR "ERRETting []" CR>
+	  <DISMISS '[]>)
+	 (<==? <2 .TUP> NO-ITS-CHANNELS-FREE!-ERRORS!- >
+	  <SET NOMORE <CLOSE-A-CHANNEL>>
+	  <BATCH-SCRIPT CR "***ERROR*** " <NOW> CR
+			<UNPARSE .TUP> CR
+			"channel " .NOMORE " closed (in .NOMORE)" CR>)
+	 (ELSE
+	  <BATCH-SCRIPT CR "***ERROR*** " <NOW> CR
+			<UNPARSE .TUP> CR>)>
+
+   <COND (<SET JHM <OPEN "PRINT" "CLI:SWG HACTRN">> ;"TRY AND FLAG SOME HELP"
+	  <PRINC "Uh, help?" .JHM>			;"AHA! "
+	  <CLOSE .JHM>)>
+
+   <COND (<NOT <RESCHEDULE-DEMON <* 60 3>>>		;"three hours from now"
+	   <DEMSIG "BATCHN">
+	   <COND (<RESCHEDULE-DEMON <* 60 3>>
+		  <BATCH-SCRIPT 200
+			     "Trouble rescheduling --- wasn't in demon table">)
+		 (ELSE <BATCH-SCRIPT 300 "Cannot reschedule!! ">)>)>
+  <PROG ()
+   <COND (<OR <==? <2 .TUP> NO-ITS-CHANNELS-FREE!-ERRORS!- >
+	      <AND <==? <2 .TUP> DANGEROUS-INTERRUPT-NOT-HANDLED!-ERRORS!->
+		   <==? <3 .TUP> PARITY!-INTERRUPTS!->> 
+	      <AND <G=? <LENGTH .TUP> 4>
+		   <==? <2 .TUP> FILE-SYSTEM-ERROR!-ERRORS!- >
+		   <==? <4 .TUP> #FALSE ("DEVICE FULL")>>>
+	  <RETURN <BATCH-SCRIPT "No attempt to save">>)>
+   <BATCH-SCRIPT "Saving into .BATCH;SKROD nnn">
+   <COND (<=? <SET SAVED <FSAVE ".BATCH;SKROD >" T>> "RESTORED">
+	  <DEBUG-MODE>
+	  <PRINC "
+**** RESTORED AMIDST TURMOIL ****">
+	  <RETURN T .ACT>)			;"LET ,ERROR HANDLE IT NOW"
+
+	 (<AND .JHM <SLEEP <* 10 60>> <TTY?>>
+					;"GIVE SOMEONE A CHANCE TO GRAB ME"
+	  <DEBUG-MODE>
+	  <RESET .OUTCHAN>
+	  <PRINC "
+**** YOU PICKED ME UP FAST ****">
+	  <RETURN T .ACT>)				;"MAKE WAY FOR ,ERROR"
+	 (<=? .SAVED "SAVED">
+	  <COND (<SET JHM <OPEN "READ" ".BATCH;SKROD >">>
+		 <SET X <8 .JHM>>
+	         <BATCH-SCRIPT "SKROD file " .X " created">
+		 <HELP-ME ,HELP-BOXES
+			  " Batch demon died!! Save file is  .BATCH;SKROD "
+			  .X ,CR
+			  "Demon may try again in three hours if no signals"
+			  ,CR>)
+		(T
+		 <SET X <1 .JHM>>
+		 <BATCH-SCRIPT "Can't find save file: " .X>
+		 <HELP-ME ,HELP-BOXES
+			  " Batch demon died!! Save won but: " .X ,CR>)>)
+
+	 (ELSE
+	  <CLOSE-A-CHANNEL>
+	  <BATCH-SCRIPT "Save failed!!! ">
+	  <HELP-ME ,HELP-BOXES
+		   " Batch demon died!!
+Save also failed!!!
+Demon may try again in three hours if no signals." ,CR>)>>
+
+   <COND (<N=? .SAVED "RESTORED">
+	  <BATCH-SCRIPT CR "Dying demon going down at " <NOW> " ]" CR>
+	  <ITS-CALL "LOGOUT" '![] 0>	;"MUDDLE LOGOUT MAY GET ANOTHER ERROR."
+	  <PRINT "hanging ...  ">
+	  <HANG>)> >>
+
+
+;"HELP-ME sends mail to everyone listed in .BOXES"
+
+<DEFINE HELP-ME (BOXES "TUPLE" MSGS "AUX" (M <STRING !.MSGS>))
+   #DECL ((VALUE) ANY (BOXES) <VECTOR [REST STRING]> (MSGS) <TUPLE [REST STRING]>
+	  (M) STRING)
+   <MAPF <> <FUNCTION (B) <MAIL .B .M>> .BOXES>>
+
+;"DEBUG-MODE sets things up for debugging the demon.  Usually debugging
+is done with a local (not the main system) queue of tasks, and with less
+discriminating system load allowances."
+
+<DEFINE DEBUG-MODE ("OPTIONAL" (TRANS? T))
+   #DECL ((VALUE TRANS?) ANY)
+   <COND (<OR <NOT <GASSIGNED? NAME-OF-SCRIPT>>
+	      <NOT <MEMBER "TTY:" ,NAME-OF-SCRIPT>>>
+	  <SETG NAME-OF-SCRIPT ["TTY:" !,NAME-OF-SCRIPT]>)>
+   <COND (.TRANS?
+	  <TRANSLATE-DEVICE %<>
+			    '["DSK" "*" "*" ".BATCH"]
+			     ["DSK" "*" "*" <MSNAME>]
+			    "INPUT" "OUTPUT" %<> %<>  >)>
+   <SETG LOAD-REF1 400.0>
+   <SETG LOAD-REF2 430.0>
+   <SETG LOAD-REF3 470.0>
+   <SETG LOAD-REF4 500.0>
+   <SETG LOAD-REF5 560.0>
+   <SETG IN-DEBUG-MODE T>>
+
+;"NORMAL-MODE is just the opposite of DEBUG-MODE"
+
+<DEFINE NORMAL-MODE ()
+   #DECL ((VALUE) ANY)
+   <COND (<OR <NOT <GASSIGNED? NAME-OF-SCRIPT>>
+	      <MEMBER "TTY:" ,NAME-OF-SCRIPT>>
+	  <SETG NAME-OF-SCRIPT '[".BATCH;NBATCH LOG"]>)>
+   <TRANSLATE-CLEAR %<> "ME" %<>>
+   <SETG LOAD-REF1 300.0>
+   <SETG LOAD-REF2 330.0>
+   <SETG LOAD-REF3 370.0>
+   <SETG LOAD-REF4 400.0>
+   <SETG LOAD-REF5 460.0>
+   <SETG IN-DEBUG-MODE %<>>>
+
+;"LIGHT-MODE is special -- intended to get the demon to work
+slower should it be bothering online users"
+
+<DEFINE LIGHT-MODE ()
+   #DECL ((VALUE) ANY)
+   <SETG LOAD-REF1 200.0>
+   <SETG LOAD-REF2 230.0>
+   <SETG LOAD-REF3 270.0>
+   <SETG LOAD-REF4 300.0>
+   <SETG LOAD-REF5 360.0>>
+
+;"MSNAME tries to decide the debugger's master sname; like DDT"
+
+<DEFINE MSNAME ("AUX" (U <UNAME>))
+   #DECL ((U) STRING)
+   <MAPF ,STRING
+	 #FUNCTION ((C)
+		    #DECL ((C) CHARACTER)
+		    <COND (<MEMQ .C "0123456789"> <MAPSTOP> T)
+			  (.C)>)
+	 .U>>
+
+;"STY-OUTPUT-INTERRUPT-ROUTINE feeds characters to a
+task that asks for some"
+
+<DEFINE STY-OUTPUT-INTERRUPT-ROUTINE (CHAN	;"AT INT LEVEL 10"
+				      "AUX" (Q-SLOT <INDEX .CHAN ,STY-OUTPUT-CHANNELS>)
+					    FEED NUMBER
+					    JOB-CH CLOSE-SW)	;"SEND CHARS TO A JOB"
+   #DECL ((VALUE) ANY (CHAN) CHANNEL
+	  (Q-SLOT) <OR FALSE FIX> (FEED) STRING (NUMBER) FIX
+	  (JOB-CH CLOSE-SW) <OR CHANNEL FALSE>)
+
+   <COND (<NOT .Q-SLOT>
+	  <BATCH-SCRIPT 200
+			"STY output interrupt on a channel not in STY-OUTPUT-CHANNELS: "
+			CR .CHAN CR "closing the offending channel if not to a tty">
+	  <COND (<N=? <9 .CHAN> "TTY">
+		      <CLOSE .CHAN>)>  )
+	 (<EMPTY? <SET FEED <NTH ,INPUT-STRINGS .Q-SLOT>>>
+	  <INTERRUPT "KILLER"			;"JOB HAS RUN OUT OF INPUT -- KILL IT"
+		     .Q-SLOT
+		     <NTH ,SPECS-OF-JOBS .Q-SLOT>
+		     ON-COMPLETION:OUT-OF-INPUT
+		     "Input requested when none was left
+"							>
+	  T)
+	 (<SET JOB-CH <NTH ,JOB-CHANNELS .Q-SLOT>>
+	  <SET CLOSE-SW <MAKE-SURE-OPEN .JOB-CH>>
+	  <JOB-STOP .JOB-CH>
+	  <SET NUMBER <MIN 51 <FIRST-INDEX <NTH ,DELIMITER-STRINGS .Q-SLOT> .FEED>>>
+	  ;<SET NUMBER 1>
+	  <PRINTSTRING .FEED .CHAN <- .NUMBER 1>>
+	  <PRINC <CHTYPE <+ *20000* <ASCII <NTH .FEED .NUMBER>>>
+			 CHARACTER> .CHAN>	;"FORCE LAST TO BE AN ACTIVATION CHAR"
+	  <PUT ,INPUT-STRINGS .Q-SLOT <REST .FEED .NUMBER>>
+	  <COND (<OK-TO-START-RUNNING? <NTH ,SPECS-OF-JOBS .Q-SLOT>>
+		 <JOB-RESTART .JOB-CH .Q-SLOT>)>
+	  <COND (.CLOSE-SW <CLOSE .JOB-CH>)> )> >
+
+<DEFINE FIRST-INDEX (THINGS OBJECT "AUX" (LEN <LENGTH .OBJECT>))
+   #DECL ((VALUE LEN) FIX (THINGS OBJECT) STRING
+			 ;(THINGS) ;ANY ;(OBJECT) ;STRUCTURED)
+   ;<COND (<NOT .OBJECT>
+	  <SET OBJECT <CHTYPE .OBJECT LIST>>)>
+   <COND ;(<MONAD? .THINGS>
+	  <INDEX .THINGS .OBJECT .LEN>)
+	 (ELSE
+	  <MAPF ,MIN
+		#FUNCTION ((X "AUX" MEM)
+			   #DECL ((VALUE) FIX (X) CHARACTER (MEM) <OR STRING FALSE>)
+			   <COND (<SET MEM <MEMQ .X .OBJECT>>
+				  <- <LENGTH .OBJECT> <LENGTH .MEM> -1>)
+				 (T .LEN)>)
+		.THINGS>)>>
+
+<DEFINE LOAD-SCRIPT (LD STR)
+	#DECL ((VALUE) FALSE (LD) FLOAT (STR) STRING)
+	<BATCH-SCRIPT 9 "AUSOPG=" <FIX .LD> ": " .STR>
+	%<>>
+
+;"OK-TO-LOAD-A-JOB? decides if the system is lightly loaded enough to
+support another batch task.  It also watches for STY-OPEN-FAIL, which gets
+set whenever the system was known to run out of STYs."
+
+<DEFINE OK-TO-LOAD-A-JOB? ("OPTIONAL" (TASK %<>) "AUX" TLIM LD STOF)
+   #DECL ((VALUE) ANY
+	  ;(STY-OPEN-FAIL) ;<OR FALSE <LIST FIX LIST>> (STOF) <LIST FIX LIST>
+	  (TASK) <OR FALSE VECTOR>
+	  (TLIM) <OR FALSE FLOAT> (LD) FLOAT)
+
+   <COND (,SYSTEM-GOING-DOWN %<>)
+	 (<AND .TASK
+	       <SET TLIM <COND (<SET TLIM <TIME-LIMIT .TASK>> <FLOAT .TLIM>)>>
+	       <OR <L=? .TLIM %</ 2.0 60.0>>	;"QUICKIE OR TLIM < 5*EXP(1-LOAD/REF)"
+		   <L=? .TLIM <* 5 <EXP <- 1 </ <SET LD <SYS-LOAD>> ,LOAD-REF1>>>>>>>)
+	 (<L=? <SET LD <SYS-LOAD>> ,LOAD-REF1>
+	  <OR <NOT ,STY-OPEN-FAIL>
+	      <L? <NUMBER-OF-NON-FALSES ,JOB-ID-NUMBERS>
+		  <1 <SET STOF ,STY-OPEN-FAIL>>>
+	      <G? <DTDIFF <DTNOW> <2 .STOF>>
+		    20.0> >)
+	 (T <LOAD-SCRIPT .LD "not loading another task"> %<>)> >
+
+<SETG OLD-LOAD 0.0>	;"initial value to remember"
+<GDECL (OLD-LOAD) FLOAT>
+
+;"OK-TO-START-RUNNING? decides if the system is lightly loaded enough to
+support one more active job"
+
+<DEFINE OK-TO-START-RUNNING? (TASK)
+	#DECL ((VALUE) ANY (TASK) VECTOR)
+	<OK-TO-X-RUNNING? .TASK ,LOAD-REF3 "not (re)starting any job"
+				,LOAD-REF2 "(re)starting all jobs"
+				"(re)starting short job" "not (re)starting long job">>
+
+;"OK-TO-KEEP-RUNNING? decides if a task should be left running 
+now, or stopped temporarily"
+
+<DEFINE OK-TO-KEEP-RUNNING? (TASK)
+	#DECL ((VALUE) ANY (TASK) VECTOR)
+	<OK-TO-X-RUNNING? .TASK ,LOAD-REF5 "all jobs stopped"
+				,LOAD-REF4 "all jobs started"
+				"short job started" "long job stopped">>
+
+;"Here is common code for previous 2 functions."
+
+<DEFINE OK-TO-X-RUNNING? (TASK LR3/5 S3/5 LR2/4 S2/4 SS SL "AUX" TLIM QN CH SW LD)
+   #DECL ((VALUE) ANY (TASK) VECTOR (LR3/5 LR2/4) FLOAT (S3/5 S2/4 SS SL) STRING
+	  (TLIM) <OR FALSE FLOAT> (QN) FIX (CH SW) <OR CHANNEL FALSE>
+	  (LD) FLOAT)
+   <SET TLIM <COND (<SET TLIM <TIME-LIMIT .TASK>> <FLOAT .TLIM>)>>
+   <PROG ()
+	  <AND .TLIM
+	       <L=? .TLIM %</ 2.0 60.0>>
+	       <RETURN T>>
+	  <SET QN <INDEX .TASK ,SPECS-OF-JOBS>>
+	  <SET CH <NTH ,JOB-CHANNELS .QN>>
+	  <SET SW <MAKE-SURE-OPEN .CH>>
+	  <COND (<NOT .CH> <RETURN T>)
+		(<G? <* <RUN-TIME .CH> 0.95> .TLIM>
+		 <INTERRUPT "KILLER"
+			    .QN
+			    .TASK
+			    ON-COMPLETION:TIME-LIMIT-EXPIRED
+			    "Time limit expired
+"					>
+		 <RETURN %<>>)
+		(.SW <CLOSE .CH>)>
+	 <COND
+	 (<G? <SET LD <SYS-LOAD>> .LR3/5>
+	  <COND (<L=? ,OLD-LOAD .LR3/5>
+		 <SETG OLD-LOAD .LD> <LOAD-SCRIPT .LD .S3/5>)>
+	  %<>)
+	 (<L=? .LD .LR2/4>
+	  <COND (<G? ,OLD-LOAD .LR2/4>
+		 <SETG OLD-LOAD .LD> <LOAD-SCRIPT .LD .S2/4>)>
+	  T)
+	 (<=? <TASK-TYPE .TASK> "SHORT">
+	  <COND (<G? ,OLD-LOAD .LR3/5>
+		 <SETG OLD-LOAD .LD> <LOAD-SCRIPT .LD .SS>)>
+	  T)
+	 (<L=? ,OLD-LOAD .LR2/4>
+	  <SETG OLD-LOAD .LD> <LOAD-SCRIPT .LD .SL>
+	  %<>)>>>
+
+;"CHECK-Q-SLOT checks up on a q-slot (run-slot).  Sees if there is a task
+in that slot (if not, ok to start one?), and decides if it should be started/
+stopped/killed..."
+
+<DEFINE CHECK-Q-SLOT (Q "AUX" (OLD-INT-LEVEL <INT-LEVEL 5>)	;"ASSURED INT LEVEL 5"
+			      (TASK <NTH ,SPECS-OF-JOBS .Q>)
+			      (CLOSE-SW %<>)
+			      CH STATUS JCODE RUNT JOB2 TSK FL FI)
+   #DECL ((VALUE) ANY (CLOSE-SW) <OR CHANNEL FALSE>
+	  (Q OLD-INT-LEVEL JCODE FI) FIX
+	  (CH) <OR CHANNEL FALSE> (TASK JOB2) <OR FALSE VECTOR> (TSK) VECTOR
+	  (STATUS) <VECTOR FIX ANY [REST ANY]>
+	  (RUNT FL) FLOAT)
+
+   <COND (<NOT <NTH ,JOB-ID-NUMBERS .Q>>
+	  <COND (<OK-TO-LOAD-A-JOB? <SET JOB2 <FIND-NEXT-TASK .Q>>>
+		 <START-Q-SLOT .Q .JOB2>)> )
+	 (<COND (<SET CH <NTH ,JOB-CHANNELS .Q>>
+		 <SET CLOSE-SW <MAKE-SURE-OPEN .CH>>
+		 <SET JCODE <1 <SET STATUS <JOB-STATUS .CH>>>>
+		 <SET TSK .TASK>
+		 %<>)
+		(T)>)
+	 (<G? <* <SET RUNT <RUN-TIME .CH>> .95>	;"5% LEEWAY AT THESE ONCE/MIN CHECKS"
+	      <SET FL <COND (<TIME-LIMIT .TSK>)
+			    (<=? <TASK-TYPE .TSK> "SHORT">
+			     5.0)
+			    (30.0)>>>
+
+	  <TERMINATE-TASK .Q .TSK ON-COMPLETION:TIME-LIMIT-EXPIRED
+			  "Time limit expired.
+"					>
+	  <START-Q-SLOT .Q>)
+								;"SEE IF IDLE"
+	 (<COND (<OR <==? 5 .JCODE>		;"STOPPED (BY ME?), DON'T COUNT"
+		     <==? 8 .JCODE>>		;"   OR NEVER STARTED"
+		 %<>)
+		(<==? <NTH ,LAST-CPU-CHECKS .Q> .RUNT>		;"HASN'T USED ANY TIME"
+		 <PUT ,HANG-COUNTS .Q <+ <NTH ,HANG-COUNTS .Q> 1>>
+		 <COND (<G=? <NTH ,HANG-COUNTS .Q>
+			     <* <SET FI <COND (<HANG-LIMIT .TSK>)
+					      (3)>>
+				%<FIX <+ </ 60.0 ,SLEEP-INTERVAL> 0.5>> >>
+			<TERMINATE-TASK .Q .TSK ON-COMPLETION:JOB-HUNG
+				<STRING <UNPARSE <COND (<HANG-LIMIT .TSK>)
+						       (3)>>
+				       " minutes elapsed with no CPU time used.
+"						>>
+			<START-Q-SLOT .Q>
+			T)> )
+		 (ELSE
+		  <PUT ,HANG-COUNTS .Q 0>
+		  <PUT ,LAST-CPU-CHECKS .Q .RUNT>
+		  %<>)> )
+
+	 (<L=? .JCODE 4>			;"SHOULD HAVE GENERATED AN INTERRUPT"
+	  ;<INTERRUPT "INFERIOR" <NTH ,INFERIOR-NUMBERS .Q>>	;"QUESTIONABLE"
+	  <COND (<AND .CLOSE-SW .CH>
+		 <CLOSE .CH>)> )
+	 (<==? 5 .JCODE>		;"IF JOB STOPPED (SUPPOSEDLY BY ME)"
+	  ;"ASSUMES HERE THAT NOBODY WILL WANT INPUT WITHOUT INTERRUPTING FOR IT"
+	  <COND (<OK-TO-START-RUNNING? .TSK>
+		 <JOB-RESTART .CH .Q>)>
+	  <COND (.CLOSE-SW <CLOSE .CH>)> )
+	 (<==? 6 .JCODE>			;"JOB MAY BE .HANGing FOR INPUT"
+	  <COND (.CLOSE-SW <CLOSE .CH>)> )
+	 (<==? 7 .JCODE>				;"JOB IS RUNNING"
+	  <COND (<NOT <OK-TO-KEEP-RUNNING? .TSK>>
+		 <JOB-STOP .CH>)>
+	  <COND (.CLOSE-SW <CLOSE .CH>)> )
+	 (.CLOSE-SW <CLOSE .CH>)>
+   <INT-LEVEL .OLD-INT-LEVEL>>
+
+;"JOB-RESTART simply continues a job, while resetting the HANG-COUNTS
+(count of how long the job has been considered 'dead')"
+
+<DEFINE JOB-RESTART (JOB-CHA "OPTIONAL" (R-Q <INDEX .JOB-CHA ,JOB-CHANNELS>))
+   #DECL ((VALUE) ANY (JOB-CHA) CHANNEL (R-Q) <OR FALSE FIX>)
+   <AND <N==? <1 .JOB-CHA> 0> <JOB-START .JOB-CHA>>
+   <AND .R-Q <PUT ,HANG-COUNTS .R-Q 0>>>
+
+;"JOB-SCRIPT puts batch messages in a job's output script file, as if
+they were output by the job itself"
+
+<DEFINE JOB-SCRIPT (Q-SLOT "TUPLE" THINGS "AUX" (OLD-INT-LEVEL <INT-LEVEL 15>))
+   #DECL ((VALUE) ANY (Q-SLOT OLD-INT-LEVEL) FIX (THINGS) <TUPLE [REST STRING]>)
+   <COND (<G? <LENGTH .THINGS> 1>
+	  <JOB-SCRIPT-1 .Q-SLOT <STRING !.THINGS>>)
+	 (ELSE <JOB-SCRIPT-1 .Q-SLOT <1 .THINGS>>)>
+   <INT-LEVEL .OLD-INT-LEVEL>>
+
+;"JOB-SCRIPT-1 does the dirty work for the previous fcn"
+
+<DEFINE JOB-SCRIPT-1 (Q-SLOT MSG-STRING
+		      "AUX" (SCRIPT <NTH ,OUTPUT-SCRIPTS .Q-SLOT>)
+			    (COUNT <1 .SCRIPT>)
+			    (C <+ .COUNT <LENGTH .MSG-STRING>>))
+   #DECL ((VALUE) ANY (MSG-STRING) STRING (Q-SLOT COUNT C) FIX
+	  (SCRIPT) <LIST FIX STRING STRING>)
+
+   <COND (<L=? .C 640>
+	  <COPY-STRING <REST <2 .SCRIPT> .COUNT> .MSG-STRING>)
+	 (<==? .COUNT 640>
+	  <PUT .SCRIPT 3 .MSG-STRING>)
+	 (<L? .COUNT 640>
+	  <COPY-STRING <REST <2 .SCRIPT> .COUNT> .MSG-STRING>
+	  <PUT .SCRIPT 3 <REST .MSG-STRING <- 640 .COUNT>> >)
+	 (ELSE
+	  <PUT .SCRIPT 3 <STRING <3 .SCRIPT> .MSG-STRING> >)>
+   <PUT .SCRIPT 1 .C>
+   <COND (<AND <G=? .C 320>
+	       <NTH ,JOB-ID-NUMBERS .Q-SLOT>	;"MAKE SURE THERE IS A JOB"
+	       <NTH ,JOB-CHANNELS .Q-SLOT>>	;"   AND JOB HAS BEEN LOADED"
+	  <INTERRUPT "SCRIPTOR" .Q-SLOT>)> >	;"   BEFORE ASKING FOR SCRIPT
+					TO OUTPUT FILE (WHICH HAPPENS AT INT-LEVEL 5)"
+
+<DEFINE COPY-STRING (TARGET SOURCE "OPTIONAL" (MOST %<>))
+   #DECL ((VALUE TARGET SOURCE) STRING
+	  (MOST) <OR FIX FALSE>)
+   <REPEAT ()
+	<COND (<AND .MOST <L=? .MOST 0>>
+	       <RETURN .TARGET>)
+	      (<OR <EMPTY? .TARGET> <EMPTY? .SOURCE>>
+	       <RETURN .TARGET>)>
+	<PUT .TARGET 1 <1 .SOURCE>>
+	<SET TARGET <REST .TARGET>>
+	<SET SOURCE <REST .SOURCE>>
+	<AND .MOST <SET MOST <- .MOST 1>>> >>
+
+;"START-Q-SLOT starts something running in a given run-slot, assuming
+there is nothing already running in that slot"
+
+<DEFINE START-Q-SLOT (Q "OPTIONAL" (TASK <FIND-NEXT-TASK .Q>)	;"ASSURED INT LEVEL 5"
+			"AUX" ID TEMP NUM JOB-CH H STR (OLD-INT-LEVEL <INT-LEVEL 5>) S V)
+		;"RETURNS FALSE IF CALLER SHOULD TRY ANOTHER IN THIS
+			SLOT IMMEDIATELY (I.E., THIS ONE LOST)"
+
+   #DECL ((VALUE TEMP) ANY
+	  (CR STR) STRING (H) <OR STRING FALSE>
+	  (Q ID NUM OLD-INT-LEVEL) FIX
+	  (JOB-CH) <OR CHANNEL FALSE>
+	  (TASK) <OR VECTOR FALSE>
+	  (S) <OR FALSE STRING>
+	  (V) VECTOR)
+  <PROG ()
+   <COND (<OR <NTH ,JOB-ID-NUMBERS .Q>	;"DO NOTHING IF THAT SUB-QUEUE IN USE"
+	      <NOT .TASK>>		;"OR NOTHING TO START"
+	  <RETURN T>)>
+   <INT-LEVEL 4>		;"ALLOW ANY INFERIOR INTERRUPTS (ETC) TO RUN"
+   <INT-LEVEL 5>
+   <PUT ,OVERHD-REFS .Q <RUN-TIME>>			;"MY CPU TIME"
+   <PUT ,SPECS-OF-JOBS .Q .TASK>
+   <PUT ,JOB-ID-NUMBERS .Q <SET ID <TASK-ID-NUMBER .TASK>>>
+   <NOTE <STRING ".BATCH;#Q" <UNPARSE .Q> " " <TASK-NAME .TASK>>
+	 <ORIGINATOR .TASK>		;"LEAVE A NOTE IN .BATCH DIR"
+	 " task # "				;"FOR EASY CHECK ON HAPPENINGS"
+	 .ID>
+   <SETG N-RUNS <+ ,N-RUNS 1>>
+   <PUT <NTH ,OUTPUT-SCRIPTS .Q> 1 0>
+   <PUT <NTH ,OUTPUT-SCRIPTS .Q> 3 "">
+   <BATCH-SCRIPT "Ready for " <ORIGINATOR .TASK> !\. <TASK-NAME .TASK> !\. .ID
+		 ", run " <SET NUM <+ <NUMBER-OF-TIMES-RUN .TASK> 1>> 
+		 ", run-slot " .Q>
+   <PUT .TASK ,LAST-STARTING-TIME <DTNOW>>
+   <SETUP-OUTPUT-FILE .TASK .Q>
+   <JOB-SCRIPT .Q ,CR ,CR	;"START THE BULLSHIT IN THE OUTPUT FILE"
+	       "Task " <TASK-NAME .TASK>
+	       " for " <ORIGINATOR .TASK>
+	       ", ID " <UNPARSE .ID> ", ready for run " <UNPARSE .NUM> ,CR
+	       "It is now " <NOW>
+	       <COND (<SET H <HOLIDAY?>> <STRING ", " .H ,CR>) (,CR)>>
+   <PUT .TASK ,TASK-STATE "RUNNING">
+   <WRITE-TASK .TASK>
+   <COND (<NOT <SET TEMP <EVAL-RUN-TEST .TASK .Q>>>
+	  <COND (<=? .TEMP #FALSE ("ERROR in run test")>
+		 <PUT .TASK ,TASK-STATE "UNRUNNABLE">
+		 <TERMINATE-TASK .Q .TASK IF-MADE-UNRUNNABLE "ERROR in run test
+"			>)
+		(ELSE
+		 <TERMINATE-TASK .Q .TASK ON-COMPLETION:RUN-TEST-FALSE
+				 "Run test returned a FALSE.
+"					>)>
+	   %<>)
+
+	 (<NOT <SET JOB-CH <JOB-LOAD !<FN-REORDER <FILE-TO-RUN .TASK>> >>>
+	  <COND (<=? .JOB-CH #FALSE ("DEVICE FULL")>
+		 <BATCH-SCRIPT "USER DEVICE FULL! ">
+		 <JOB-SCRIPT .Q "**** Cannot load file into job -- USR device is full."
+			     ,CR "Will try again later. ****">
+		 <TERMINATE-TASK .Q .TASK ON-DELAY "Batch daemon could not create a process.
+"			>
+		 T)
+		(ELSE
+		 <JOB-SCRIPT .Q "**** ERROR in loading file "
+			     <UNPARSE <FILE-TO-RUN .TASK>>
+			     " into job:" ,CR "  "
+			     <UNPARSE <CHTYPE .JOB-CH LIST>>
+			     "  ****">
+		  <TERMINATE-TASK .Q .TASK ON-COMPLETION:ERROR-IN-STARTING
+				  "Error occurred in loading program file into a process.
+"					>
+		  %<>)>)
+
+	 (<NOT <SET TEMP <SETUP-INPUT-STRING <INPUT-STREAM .TASK> .Q>>>
+	  <JOB-SCRIPT .Q "*** ERROR in reading input file:  "
+		<UNPARSE <CHTYPE .TEMP LIST>>
+		"  ***">
+	  <TERMINATE-TASK .Q .TASK ON-COMPLETION:ERROR-IN-STARTING
+			  "Error occurred in reading input file.
+"				>
+	  %<>)
+
+	 (<AND <OR <AND <SET S <NTH ,INPUT-STRINGS .Q>>
+			<NOT <EMPTY? .S>>>
+		   <NTH ,OUTPUT-FILES .Q>>
+	       <=? <SET TEMP <SETUP-STYS .JOB-CH .Q>>	;"NO STYS, AND SOME NEEDED"
+		   #FALSE ("NO FREE STYS")>>
+	  <BATCH-SCRIPT 200 "STY LOSSAGE on Q " .Q ", task " .ID
+			": " <CHTYPE .TEMP LIST>>
+	  <JOB-SCRIPT .Q "**** STY LOSSAGE:  "
+		      <UNPARSE <CHTYPE .TEMP LIST>> ,CR
+		      "Will try again in 20 minutes****">
+	  <TERMINATE-TASK .Q .TASK ON-DELAY "No pseudo-terminals (STYs) were available.
+"			>)
+
+	 (ELSE
+	  <PUT ,JOB-CHANNELS .Q .JOB-CH>
+	  <PUT ,INFERIOR-NUMBERS .Q
+		<JOB-GET-NUM .JOB-CH>>
+	  <PUT ,JOB-SYSTEM-INDEXES .Q
+		<* <CHTYPE <USET .JOB-CH "UIND"> FIX> ,*L>>
+	  <USET .JOB-CH "XUNAME" <STRTOX <ORIGINATOR .TASK>>>
+	  <USET .JOB-CH "XJNAME" <STRTOX <4 <SET V <FILE-TO-RUN .TASK>>>>>
+	  <USET .JOB-CH "SNAME"
+		<STRTOX <COND (<WORKING-DIRECTORY .TASK>)
+			      (ELSE <ORIGINATOR .TASK>)>> >
+	  <PUT ,JCL-LINES .Q
+		<COND (<JCL-LINE .TASK>)
+		      (ELSE "")> >
+	  <COND (<NOT <EMPTY? <SET STR <NTH ,JCL-LINES .Q>>>>
+		 <USET .JOB-CH "OPTIO" *040000000000*>		;"TELL IT THERE IS JCL"
+		 <JOB-SCRIPT .Q "Job control line: "
+			     .STR ,CR>)>
+	  <PUT ,DELIMITER-STRINGS .Q
+		<DELIMITER-STRING .TASK>>
+	  <TRANSLATE-DEVICE .JOB-CH
+			    '["TPL"]
+			    ["DSK" ">" <ORIGINATOR .TASK> ".LPTR."]
+			    %<> "OUTPUT" "INFERIORS">
+	  <PUT ,HANG-COUNTS .Q 0>
+	  <PUT ,LAST-CPU-CHECKS .Q 0.0>
+	  <JOB-SCRIPT .Q ,CR
+		    "vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv"
+		    ,CR>
+	  <COND (<OK-TO-START-RUNNING? .TASK>
+	         <JOB-RESTART .JOB-CH .Q>)>
+	  <CLOSE .JOB-CH>
+	  T)>>
+   <INT-LEVEL .OLD-INT-LEVEL> >
+
+;"EVAL-RUN-TEST will evaluate the RUN-TEST for a task"
+
+<DEFINE EVAL-RUN-TEST (TASK Q "AUX" (TEST <RUN-TEST .TASK>)
+				    (R-T-INFO <RUN-TEST-INFO .TASK>)
+				    (OLD-CHANLIST <CHANLIST>)
+				    CHANNELS-LEFT-OPEN FILE
+				    (WHO <ORIGINATOR .TASK>)
+				    ANSWER
+				    (MY-TASK .TASK)
+				    (INFO-FIELD .R-T-INFO))
+   #DECL ((VALUE TEST ANSWER R-T-INFO) ANY (INFO-FIELD) <SPECIAL ANY>
+	  (TASK) VECTOR (MY-TASK) <SPECIAL VECTOR> (OLD-CHANLIST) LIST
+	  (Q CHANNELS-LEFT-OPEN) FIX
+	  (CR WHO FILE) STRING)
+   <PROG ()
+	 <COND (<NOT .TEST> <RETURN T>)>
+	 <JOB-SCRIPT .Q ,CR "EVALing run test." ,CR>
+	 <BATCH-SCRIPT 100 "EVALing run test for " .WHO
+		       ", task " <TASK-ID-NUMBER .TASK>>
+	 <NOTE <SET FILE <STRING ".BATCH;#Q" <UNPARSE .Q> " " <TASK-NAME .TASK> >>
+	       "EVALing RUN TEST for "
+	       .WHO
+	       " task # "
+	       <TASK-ID-NUMBER .TASK>>
+	 <SET ANSWER <EVAL-WITH-ACT .TEST>>
+	 <SET CHANNELS-LEFT-OPEN <CLOSE-LITTERED-CHANNELS .OLD-CHANLIST>>
+	 <COND (<N==? .INFO-FIELD .R-T-INFO>
+		<PUT .TASK ,RUN-TEST-INFO .INFO-FIELD>)>
+	 <NOTE .FILE
+	       .WHO
+	       " task # "
+	       <TASK-ID-NUMBER .TASK>>
+	 <COND
+	  (<AND	<TYPE? .ANSWER FALSE>
+		<G=? <LENGTH .ANSWER> 1>
+		<=? <1 .ANSWER> "***ERROR CAUSED***">>
+	   <PUT .TASK ,TASK-STATE "UNRUNNABLE">
+	   <JOB-SCRIPT .Q "
+	***          HOLD EVERYTHING!           ***
+	*** your run-test just caused an error! ***
+	***      Fix it and try again, ok?      ***
+
+	Args to error routine were these: " ,CR
+		      <PROG ((OBLIST ())) #DECL ((OBLIST) <SPECIAL LIST>)
+			    <UNPARSE <CHTYPE <REST .ANSWER> LIST>>>
+		      ,CR
+		      <COND (<G? .CHANNELS-LEFT-OPEN 0>
+			     <STRING "You also left "
+				     <UNPARSE .CHANNELS-LEFT-OPEN>
+				     " channel(s) open! "
+				     ,CR>)
+			    (ELSE "")>>
+	   <BATCH-SCRIPT <MAPF ,LIST
+			       <FUNCTION (O) #DECL ((O) ATOM) <GET .O OBLIST>>
+			       ,BATCHQ-OBL>>
+	   <MAIL .WHO <STRING
+"  Uh, excuse the interruption, " <FULLNAME <ORIGINATOR .TASK>> ",
+but your run-test for task " <TASK-NAME .TASK> ", ID " <TASK-ID-NUMBER .TASK> ",
+caused an error when evaluated.  The task has been made
+unrunnable.  Please be more careful when you try again.
+"
+!<COND (<G? .CHANNELS-LEFT-OPEN 0>
+	("You also left " <UNPARSE .CHANNELS-LEFT-OPEN> " channel(s) open."))
+       (T '(""))>
+"
+		Love and kisses,
+		Batch N. Demon">>
+	   <BATCH-SCRIPT .WHO "'s RUN TEST for task " <TASK-ID-NUMBER .TASK>
+			 " " <TASK-NAME .TASK> " returned:"
+			 CR .ANSWER>
+	   #FALSE ("ERROR in run test") )
+	 (<G? .CHANNELS-LEFT-OPEN 0>
+	  <JOB-SCRIPT	.Q "Run test returned:  "
+			<UNPARSE .ANSWER>
+			,CR
+			<COND (.ANSWER "and left ")
+			      (ELSE "Task not started.  Run test left ")>
+			<UNPARSE .CHANNELS-LEFT-OPEN>
+			" channel(s) open.  PLEASE DON'T DO IT AGAIN! " ,CR>
+	  .ANSWER)
+	 (.ANSWER
+	  <JOB-SCRIPT	.Q "Run test returned:  "
+			<UNPARSE .ANSWER> ,CR>
+	  .ANSWER)
+	 (ELSE
+	  <JOB-SCRIPT	.Q "Run test returned:  "
+			<UNPARSE .ANSWER> ,CR
+			"Task not started" ,CR>
+	  .ANSWER)>>>
+
+<DEFINE EVAL-WITH-ACT user-test-activation (TEST)      ;"Let compiler reset stack model."
+	#DECL ((VALUE TEST) ANY (user-test-activation) <SPECIAL ACTIVATION>)
+	<EVAL .TEST>>
+
+;"SETUP-OUTPUT-FILE sets-up the output-file for a task, just
+before the run.  If it is impossible to open one, It is assumed
+that this will remain the case, and information will be kept such
+that the job-output will be (partly) ignored"
+
+<DEFINE SETUP-OUTPUT-FILE (TASK Q "AUX" (FILE <OUTPUT-FILE .TASK>) C F R N)
+   #DECL ((VALUE FILE) ANY (TASK) VECTOR (Q N) FIX
+	  (C) <OR CHANNEL FALSE> (F R) <OR STRING FALSE>)
+	<SET F <COND (<=? .FILE ""> %<>)
+		     (<TYPE? .FILE VECTOR>
+		      <STRING	<1 .FILE>
+				!\:
+				<2 .FILE>
+				!\;
+				<3 .FILE>
+				!\  
+				<4 .FILE> >)
+		     (<TYPE? .FILE STRING>
+		      .FILE)
+		     (ELSE
+		      <STRING	<ORIGINATOR .TASK>
+				";DSK:"
+				<TASK-NAME .TASK>
+				" OUTPUT">)> >
+   <COND (.F
+	  <COND (<SET R <MEMBER "RUN_#" .F>>
+		 <SUBSTRUC <UNPARSE <+ 100001
+				       <SET N <NUMBER-OF-TIMES-RUN .TASK>>>>
+			   1 5 .R>)
+		(<SET R <MEMBER "MSG:" .F>>
+		 <SET F <STRING "DSK:.BATCH;_MSG "
+				<UNPARSE <TASK-ID-NUMBER .TASK>>>>)>)>
+   <PUT ,OUTPUT-FILES .Q .F>
+   <COND (<NOT .F> %<>)
+	 (<AND <MEMQ !\> .F> <SET C <OPEN "PRINT" .F>>>
+	  <PRINC !\  .C>	;"So CHARAPPEND will use it."
+	  <CLOSE .C>
+	  T)
+	 (<SET C <OR <OPEN "READ" .F> <OPEN "PRINT" .F>>>
+	  <CLOSE .C>
+	  T)
+	 (ELSE
+	  <PUT ,OUTPUT-FILES .Q %<>>
+	  %<>)>>
+
+;"RESCHEDULE-TASK determines when a task should next be run (if ever).
+This may involve evaluating an arbitrary form"
+
+<DEFINE RESCHEDULE-TASK (TASK JOB-Q "OPTIONAL" (DELAY <>)
+			 "AUX" (RESCHEDULER <SCHEDULER .TASK>)
+			       (RESCHED-INFO <RESCHEDULE-INFO .TASK>)
+			       (THIS-TIME <TIME-OF-NEXT-RUN .TASK>)
+			       NEXT-TIME F)
+   #DECL ((VALUE RESCHEDULER RESCHED-INFO) ANY
+	  (TASK) VECTOR
+	  (JOB-Q F) FIX
+	  (DELAY) <OR FALSE FIX>
+	  (THIS-TIME NEXT-TIME) <OR LIST FALSE>)
+
+   <SET NEXT-TIME
+	<COND (.DELAY <DTADD <DTNOW> (()(0 .DELAY))>)
+	      (.RESCHEDULER
+		<EVAL-RESCHEDULER .TASK .JOB-Q .RESCHEDULER>)
+	      (<TYPE? .RESCHED-INFO LIST>
+		<REL-RESCHED <TIME-OF-NEXT-RUN .TASK> .RESCHED-INFO>)
+	      (<TYPE? .RESCHED-INFO VECTOR>
+		<COND (<EMPTY? .RESCHED-INFO> %<>)
+		      (ELSE
+			<PUT .TASK ,RESCHEDULE-INFO <REST .RESCHED-INFO>>
+			<1 .RESCHED-INFO>)>)
+	      (<MEMBER <TASK-STATE .TASK> '["UNRUNNABLE" "ABORTED"]>
+	       .THIS-TIME)> >
+
+   <COND (<=? .NEXT-TIME #FALSE ("ERROR in rescheduler")>
+	  <WRITE-TASK .TASK>)
+	 (<NOT .NEXT-TIME>				;"NOT RESCHEDULED"
+	  <PUT .TASK ,TASK-STATE "REMOVED">
+	  <WRITE-TASK .TASK>
+	  <ACKNOWLEDGE .TASK IF-REMOVED-FROM-QUEUE
+		"Not rescheduled">)
+	 (<AND <WHEN-TO-STOP-RESCHEDULING .TASK>;"IF PAST LAST RESCHEDULE DATE"
+	       <G? <DTDIFF .NEXT-TIME <WHEN-TO-STOP-RESCHEDULING .TASK>> 0.0>>
+	  <PUT .TASK ,TASK-STATE "REMOVED">
+	  <WRITE-TASK .TASK>
+	  <ACKNOWLEDGE .TASK IF-REMOVED-FROM-QUEUE
+		"Rescheduled past last possible date">)
+	 (<AND <MAXIMUM-NUMBER-OF-RUNS .TASK>
+					;"ALREADY UPDATED BY TERMINATE-TASK"
+	       <G=? <SET F <NUMBER-OF-TIMES-RUN .TASK>>
+		    <SET F <MAXIMUM-NUMBER-OF-RUNS .TASK>>>>
+	  <PUT .TASK ,TASK-STATE "REMOVED">
+	  <WRITE-TASK .TASK>
+	  <ACKNOWLEDGE .TASK IF-REMOVED-FROM-QUEUE
+		"Maximum number of runs reached">)
+
+	 (<MEMBER <TASK-STATE .TASK>
+		  '["RUNNING" "UNRUNNABLE"]>
+	  <AND <=? <TASK-STATE .TASK> "RUNNING">
+	       <PUT .TASK ,TASK-STATE "RUNNABLE">>
+	  <PUT .TASK ,TIME-OF-NEXT-RUN .NEXT-TIME>
+	  <COND (<N=? .THIS-TIME .NEXT-TIME>
+		 <REMOVE-TASK .TASK>   ;"PUT INTO THE RIGHT PLACE IN THE QUEUE"
+		 <INSERT-TASK .TASK>)>
+	  <WRITE-TASK .TASK>)
+	 (ELSE
+	  <WRITE-TASK .TASK>)> >
+
+;"REL-RESCHED determines new time-of-next-run by 'add increment' method;
+increment is added until the new time computed has past."
+
+<DEFINE REL-RESCHED (OLD-TIME RESCHED-INC)
+   #DECL ((VALUE OLD-TIME RESCHED-INC) LIST)
+   <REPEAT ()
+	<COND (<NOT <BEFORE? .OLD-TIME <SET OLD-TIME <DTADD .OLD-TIME .RESCHED-INC>>>>
+	       <RETURN '((199 9 9) (9 9 9) "EST")>)
+	      (<PAST? .OLD-TIME>)
+	      (<RETURN .OLD-TIME>)> >>
+
+;"EVAL-RESCHEDULER will evaluate a user's rescheduler form.  It tries
+to protect the demon against nastiness, but the protection is quite limited"
+
+<DEFINE EVAL-RESCHEDULER (TASK JOB-Q
+			  "OPTIONAL" (RESCHEDULER <SCHEDULER .TASK>)
+			  "AUX" (OLD-CHANLIST <CHANLIST>)
+				CHANNELS-LEFT-OPEN RESULT
+				(R-INFO <RESCHEDULE-INFO .TASK>)
+				(WHO <ORIGINATOR .TASK>)
+				(MY-TASK .TASK)
+				(INFO-FIELD .R-INFO)
+				FILE)
+   #DECL ((VALUE RESULT RESCHEDULER R-INFO) ANY (INFO-FIELD) <SPECIAL ANY>
+	  (TASK) VECTOR (MY-TASK) <SPECIAL VECTOR>
+	  (JOB-Q CHANNELS-LEFT-OPEN) FIX
+	  (CR WHO FILE) STRING
+	  (OLD-CHANLIST) LIST)
+   
+   <BATCH-SCRIPT 100 "EVALing rescheduler for " .WHO ", task " <TASK-ID-NUMBER .TASK>>
+   <NOTE <SET FILE <STRING ".BATCH;#Q" <UNPARSE .JOB-Q> " " <TASK-NAME .TASK> >>
+	 "EVALing RESCHEDULER for " .WHO " task # " <TASK-ID-NUMBER .TASK>>
+   <SET RESULT
+	<COND (<TYPE? <SET RESULT <EVAL-WITH-ACT .RESCHEDULER>> LIST>
+	       <DTNORM .RESULT>)
+	      (<OR <TYPE? .RESULT FIX> <TYPE? .RESULT FLOAT>>
+	       <DTADD <DTNOW> ('(0 0 0) (0 <FIX .RESULT> 0))>)
+	      (<NOT .RESULT>
+	       .RESULT)>>
+
+   <SET CHANNELS-LEFT-OPEN <CLOSE-LITTERED-CHANNELS .OLD-CHANLIST>>
+
+   <COND (<N==? .R-INFO .INFO-FIELD>
+	  <PUT .TASK ,RESCHEDULE-INFO .INFO-FIELD>)>
+
+   <COND (<ASSIGNED? FILE>
+	  <NOTE .FILE
+		.WHO
+		" task # "
+		<TASK-ID-NUMBER .TASK>>)>
+
+   <COND (<AND	<NOT .RESULT>
+		<G? <LENGTH .RESULT> 1>
+		<=? <1 .RESULT> "***ERROR CAUSED***">>
+
+	  <PUT .TASK ,TASK-STATE "UNRUNNABLE">
+	  <JOB-SCRIPT .JOB-Q "
+	***		        OOUCH!!				***
+	***   THE RESCHEDULER JUST GAVE THE DAEMON HEARTBURN!	***
+	***		TIME TO FIX IT AND TRY AGAIN.		***
+	***		YOUR TASK IS NOW \"UNRUNNABLE\".		***
+"		<COND (<G? .CHANNELS-LEFT-OPEN 0>
+		       <STRING "IT ALSO LEFT "
+				<UNPARSE .CHANNELS-LEFT-OPEN>
+				" CHANNEL(S) OPEN! " ,CR>)
+		      (ELSE "")>>
+	  <MAIL <ORIGINATOR .TASK> <STRING
+"  Hello there," <FULLNAME <ORIGINATOR .TASK>> ".
+Your rescheduler for task " <TASK-NAME .TASK> ", ID " <TASK-ID-NUMBER .TASK> ",
+is faulty.  Please repair it.
+"
+!<COND (<G? .CHANNELS-LEFT-OPEN 0>
+	("It also left " <UNPARSE .CHANNELS-LEFT-OPEN> " channel(s) open."))
+       (T '(""))>
+"
+		Sincerely,
+		Your loving Batch Daemon">>
+
+	  <ACKNOWLEDGE .TASK IF-MADE-UNRUNNABLE "ERROR in rescheduler">
+	  #FALSE ("ERROR in rescheduler"))
+	 (<G? .CHANNELS-LEFT-OPEN 0>
+	  <JOB-SCRIPT .JOB-Q ,CR "RESCHEDULER LEFT "
+		      <UNPARSE .CHANNELS-LEFT-OPEN>
+		      " CHANNEL(S) OPEN! " ,CR>
+	  .RESULT)
+	 (ELSE .RESULT)>>
+
+;"CLOSE-LITTERED-CHANNELS closes any channels a user form may have left open"
+
+<DEFINE CLOSE-LITTERED-CHANNELS (OLD-CHANLIST "AUX" (CHANNELS-LEFT-OPEN 0)
+				 (CLIST <CHANLIST>))
+   #DECL ((VALUE CHANNELS-LEFT-OPEN) FIX
+	  (CLIST OLD-CHANLIST) <LIST [REST CHANNEL]>)
+
+   <REPEAT ()
+	<COND (<EMPTY? .CLIST>
+	       <RETURN .CHANNELS-LEFT-OPEN>)
+	      (<MEMQ <1 .CLIST> .OLD-CHANLIST>
+	       <SET CLIST <REST .CLIST>>)
+	      (ELSE <CLOSE <1 .CLIST>>
+	       <SET CHANNELS-LEFT-OPEN <+ .CHANNELS-LEFT-OPEN 1>>
+	       <SET CLIST <CHANLIST>>)>>>
+
+;"ACKNOWLEDGE handles acknowledgements for all tasks."
+
+;<'PACKAGE "ACKN">
+
+;<ENTRY ACKNOWLEDGE>
+
+;<USE	;"TASKV"			; "STATES-AFTER-RUN"
+	"BATCHQ"			; "task descriptor names"
+	"BATCHN"			; "TASK-DESCRIPTOR"
+	"CHARAP"			; "CHARAPPEND"
+	"NOW"				; "NOW">
+
+; "ACKNOWLEDGE will modify task STATEs and send messages to users
+   according to the ACKNOWLEDGEMENT-INFO field of a task at any
+   predefined condition"
+
+;<SET A-NOTES ()>	;"added by SWG 10/26/78 -- what's it for?"
+
+<DEFINE ACKNOWLEDGE (TASK-D CONDITION
+		     "OPTIONAL" (REASON %<>)
+		     "AUX" (A-INFO <ACKNOWLEDGEMENT-INFO .TASK-D>)
+			   A-GUTS NOTICE)
+   #DECL ((VALUE) ANY (TASK-D) VECTOR
+	  (CONDITION) ATOM (REASON) <OR FALSE STRING>
+	  (A-INFO A-GUTS) <OR FALSE VECTOR>
+	  (NOTICE) STRING)
+
+   <COND (<AND .A-INFO
+	       <SET A-GUTS <DIRECT-ACKNS .A-INFO .CONDITION>>>
+	  <BATCH-SCRIPT 100
+			"ACKNOWLEDGEMENT for "
+			<ORIGINATOR .TASK-D> !\.
+			<TASK-NAME .TASK-D> !\.
+			<UNPARSE <TASK-ID-NUMBER .TASK-D>>
+			" condition:  "
+			.CONDITION !\, CR
+			"      reason:  "
+			.REASON
+			"      to do: "
+			.A-GUTS>
+
+	 <SET NOTICE <STRING "
+As requested, this message acknowledges that DM Batch task #"
+	<UNPARSE <TASK-ID-NUMBER .TASK-D>> " (named
+'" <TASK-NAME .TASK-D> "' for user '" <ORIGINATOR .TASK-D>
+"') encountered the condition " <SPNAME .CONDITION> "
+on run #" <UNPARSE <NUMBER-OF-TIMES-RUN .TASK-D>> " on " <NOW>
+	!<COND (.REASON (", because:
+" .REASON))
+	       (T '("."))>>>
+
+	 <MAPF	%<>
+		#FUNCTION ((P)
+			   #DECL ((P VALUE) ANY)
+			   <COND (<TYPE? .P STRING>
+				  <MAIL .P .NOTICE>)
+				 (<TYPE? .P FIX>
+				  <ACKN-TO-TASK .P .NOTICE>)
+				 ;(ELSE
+				  <SET A-NOTES
+			      ("Invalid acknowledgement element" !.A-NOTES)>)>)
+		.A-GUTS>)>>
+
+; "DIRECT-ACKNS looks in the ACKNOWLEDGEMENT-INFO field of a task
+   and determines what actions (or, if any) are to be performed given
+   the current 'condition'.  There are 3 'catch-alls' for ease in use"
+
+<DEFINE DIRECT-ACKNS (ACKN-INFO CONDIT "AUX" X)
+   #DECL ((VALUE X) <OR FALSE VECTOR> (ACKN-INFO) VECTOR (CONDIT) ATOM)
+  <AND <SET X
+   <COND (<SET X <MEMQ .CONDIT .ACKN-INFO>>	;"LOOK FOR THIS CONDITION"
+	  <REST .X>)
+	 (<AND <MEMQ .CONDIT			;"OR 'IF-MODIFIED' GROUP"
+		     '![IF-MADE-UNRUNNABLE
+			IF-MADE-RUNNABLE
+			IF-ABORTED
+			IF-REMOVED-FROM-QUEUE]>
+	       <SET X <MEMQ IF-MODIFIED .ACKN-INFO>>>
+	  <REST .X>)
+	 (<AND <MEMQ .CONDIT				; "OR 'ON-COMPLETION' GROUP"
+		     '![ON-COMPLETION:ERROR-IN-STARTING
+			ON-COMPLETION:RUN-TEST-FALSE
+			ON-COMPLETION:TIME-LIMIT-EXPIRED
+			ON-COMPLETION:JOB-HUNG
+			ON-COMPLETION:NORMAL
+			ON-COMPLETION:NOT-CONTINUABLE
+			ON-COMPLETION:CONTINUABLE-INTERRUPT
+			ON-COMPLETION:OUT-OF-INPUT
+			ON-COMPLETION:SYSTEM-CRASH]>
+	       <SET X <MEMQ ON-COMPLETION .ACKN-INFO>>>
+	  <REST .X>)
+	 (<SET X <MEMQ ON-ANY-OTHER .ACKN-INFO>>	; "OR 'ON-ANY-OTHER'"
+	  <REST .X>)
+	 (ELSE %<>)>>
+   <MAPF <>
+	 <FUNCTION (Y) #DECL ((Y) <OR ATOM VECTOR>)
+		   <COND (<TYPE? .Y VECTOR> <MAPLEAVE .Y>)>>
+	 .X>>>
+
+
+; "ACKN-TO-TASK changes a task's state when requested by
+   an acknowledgement.  For the sake of timing problems,
+   changes to 'UNRUNNABLE' will not abort 'RUNNING' tasks,
+   but changes to 'ABORTED' will."
+
+<DEFINE ACKN-TO-TASK (NUM NOTICE "AUX" (TASK <TASK-DESCRIPTOR <ABS .NUM>>))
+   #DECL ((VALUE) ANY (NUM) FIX (NOTICE) STRING (TASK) <OR FALSE VECTOR>)
+   <COND (.TASK
+	  <COND (<G? .NUM 0> <C-STATE .TASK   "RUNNABLE" .NOTICE>)
+		(T	     <C-STATE .TASK "UNRUNNABLE" .NOTICE>)>)>>
+
+;"<DEFINE ACKN-TO-TASK (TASKS-AND-STATE NOTICE \"AUX\" NEW-STATE)
+   #DECL ((VALUE TASKS-AND-STATE NEW-STATE) ANY
+	  (NOTICE) STRING)
+
+   <COND (<NOT <TYPE? .TASKS-AND-STATE LIST VECTOR>>)
+	 (<EMPTY? .TASKS-AND-STATE>)
+	 (<NOT <TYPE? <SET NEW-STATE <1 .TASKS-AND-STATE>> STRING>>)
+	 (ELSE
+	  <MAPF	%<>
+		#FUNCTION ((TID \"AUX\" TASKO)
+			   #DECL ((VALUE TID) ANY (TASKO) <OR FALSE VECTOR>)
+			   <AND <DECL? .TID '<OR <LIST STRING STRING> FIX>>
+				<SET TASKO <TASK-DESCRIPTOR .TID>>
+				<C-STATE .TASKO .NEW-STATE .NOTICE>>)
+		<REST .TASKS-AND-STATE>>)>>"
+
+; "C-STATE changes the STATE of a single task.  Only a change to
+   'ABORTED' is allowed to stop a running task"
+
+<DEFINE C-STATE (THE-TASK TO-STATE NOTICE)
+   #DECL ((VALUE) ANY (THE-TASK) VECTOR (TO-STATE NOTICE) STRING)
+   <COND (<=? .TO-STATE "RUNNING">)
+	 (<=? .TO-STATE <TASK-STATE .THE-TASK>>)
+	 (<=? <TASK-STATE .THE-TASK> "RUNNING">
+	  <AND <=? .TO-STATE "ABORTED">
+	       <TASK-ABORT .THE-TASK .NOTICE>>)
+	 (<PUT .THE-TASK ,TASK-STATE .TO-STATE>
+	  <NOTIFY-TASK .THE-TASK .TO-STATE .NOTICE>)> >
+
+; "NOTIFY-TASK puts a note in a task's output-file if
+   an acknowledgement changes its state"
+
+<DEFINE NOTIFY-TASK (TTASK NSTATE NOTE "AUX" (OUTF <OUTPUT-FILE .TTASK>))
+   #DECL ((VALUE OUTF) ANY (TTASK) VECTOR (NSTATE NOTE) STRING)
+   <COND (<NOT .OUTF>
+	  <SET OUTF <STRING <ORIGINATOR .TTASK>
+			    ";DSK:"
+			    <TASK-NAME .TTASK>
+			    " OUTPUT">>)
+	 (<TYPE? .OUTF VECTOR>
+	  <SET OUTF <STRING <1 .OUTF> !\:
+			    <2 .OUTF> !\;
+			    <3 .OUTF> !\ 
+			    <4 .OUTF>>>)
+	 (ELSE <SET OUTF %<>>)>
+
+   <AND .OUTF
+	<CHARAPPEND .OUTF 0 T CR CR <NOW> CR
+		    "Task state changed to "
+		    .NSTATE
+		    " by "
+		    .NOTE>>>
+
+
+; "ACKN-TO-USER sends a note to some luser about a task.  It tries
+   a :SEND first; if that fails, sends DDT style mail."
+
+;<DEFINE ACKN-TO-USER (PERSON NOTICE "AUX" OUTCHAN)
+   #DECL ((VALUE) ANY (NOTICE PERSON) STRING (OUTCHAN) <OR CHANNEL FALSE>)
+   <COND (<SET OUTCHAN <OPEN "READ" .PERSON "HACTRN" "CLI">>
+	  <PRINC ".BATCH ">
+	  <PRINC <NOW>>
+	  <PRINC ,CR>
+	  <PRINC .NOTICE>
+	  <PRINC ,CR>
+	  <CLOSE .OUTCHAN>)
+	 (T <MAIL .PERSON .NOTICE>)>>
+
+;<ENDPACKAGE>
+
+;"INFERIOR-INTERRUPT-ROUTINE catches inferior interrupts: requests for
+JCL, suicide, valrets, etc."
+
+<DEFINE INFERIOR-INTERRUPT-ROUTINE (JOB-NUM		;"AT INT LEVEL 5"
+				    "AUX" (Q <INDEX .JOB-NUM ,INFERIOR-NUMBERS>)
+					  ITASK JOB-CH CLOSE-SW STATUS JCODE)
+   #DECL ((VALUE) ANY
+	  (JOB-NUM JCODE) FIX
+	  (Q) <OR FIX FALSE>
+	  (JOB-CH) <OR CHANNEL FALSE> (CLOSE-SW) <OR CHANNEL FALSE>
+	  (STATUS) <VECTOR FIX ANY [REST ANY]>
+	  (ITASK) <OR FALSE VECTOR>
+	  (CR) STRING)
+
+   <COND (<AND .Q <NTH ,JOB-ID-NUMBERS .Q> <SET ITASK <NTH ,SPECS-OF-JOBS .Q>>>
+	  <SET JOB-CH <NTH ,JOB-CHANNELS .Q>>
+	  <SET CLOSE-SW <MAKE-SURE-OPEN .JOB-CH>>
+	  <SET STATUS <JOB-STATUS .JOB-CH>>
+	  <SET JCODE <1 .STATUS>>
+	  <COND (<L=? .JCODE 0>			;"JOB-STATUS PROBLEM, BAD CHANNEL/JOB"
+		 <BATCH-SCRIPT 300 "For task " <NTH ,JOB-ID-NUMBERS .Q>
+			", inferior " .JOB-NUM
+			" JOB-STATUS reports:  " .STATUS CR
+			"     for channel " .JOB-CH>
+		 <TERMINATE-TASK .Q .ITASK ON-COMPLETION:NOT-CONTINUABLE <2 .STATUS>>)
+		(<==? 1 .JCODE>			;"SUICIDE REQUESTED"
+		 <TERMINATE-TASK .Q .ITASK ON-COMPLETION:NORMAL <2 .STATUS>>)
+		(<==? 2 .JCODE>			;"NOT CONTINUABLE"
+		 <TERMINATE-TASK .Q .ITASK ON-COMPLETION:NOT-CONTINUABLE <2 .STATUS>>)
+		(<==? 3 .JCODE>			;".VALRET"
+		 <TERMINATE-TASK .Q .ITASK ON-VALRET
+				    <STRING !\' <2 .STATUS> "'
+ was .VALUEd.
+"> >)
+		(<==? 4 .JCODE>			;".BREAK 12,"
+		 <BREAK-12-CHECKER .Q <2 .STATUS> .JOB-CH>
+		 <COND (.CLOSE-SW
+			<CLOSE .JOB-CH>)> )
+		(<==? 5 .JCODE>
+		 <TERMINATE-TASK .Q .ITASK ON-COMPLETION:CONTINUABLE-INTERRUPT
+				 <2 .STATUS>>)
+		(.CLOSE-SW <CLOSE .JOB-CH>)> )> >
+
+;"VALRET-CHECKER is a questionable processor for handleing valrets from
+an inferior.  Currently, all valrets will cause scripting and termination
+of the run, as the demon cannot parse arbitrary ddt-like commands"
+
+;<DEFINE VALRET-CHECKER (Q VALRET-STRING JOB-CH "AUX" TSK)
+   #DECL ((VALUE) ANY (Q) FIX
+	  (VALRET-STRING CR) STRING (JOB-CH) CHANNEL
+	  (TSK) VECTOR)
+
+   <JOB-STOP .JOB-CH>
+   <JOB-SCRIPT .Q ,CR "**** FROM BATCH:  '"  .VALRET-STRING
+		 "' was valretted, run continues ****" ,CR>
+   <ACKNOWLEDGE <SET TSK <NTH ,SPECS-OF-JOBS .Q>> ON-VALRET .VALRET-STRING>
+   <USET .JOB-CH "APIRQ" *200*>
+   <COND (<OK-TO-START-RUNNING? .TSK>
+	  <JOB-RESTART .JOB-CH .Q>)> >
+
+;"PROCED-DISOWN decides if a job has valretted something equivalent.
+This may be caught specially in the future -- the demon could actually
+disown the inferior"
+
+;<DEFINE PROCED-DISOWN (VALRETTED "AUX" V)
+   #DECL ((VALRETTED) STRING (V) <OR STRING FALSE>)
+   <AND <SET V <MEMBER ":PROCED" .VALRETTED>>
+	<MEMBER ":DISOWN" .V>>>
+
+;"BREAK-12-CHECKER handles all .BREAK 12, 's from inferiors.  Only
+cases usefully handled are requests to pass/clear JCL"
+
+<DEFINE BREAK-12-CHECKER (Q REQUESTS JOB-CH
+			  "AUX" REQ P
+				(THE-LINE <NTH ,JCL-LINES .Q>))
+   #DECL ((VALUE) ANY (Q) FIX
+	  (REQUESTS) <UVECTOR [REST WORD]>
+	  (JOB-CH) CHANNEL (REQ) WORD
+	  (THE-LINE) STRING
+	  (P) <OR FALSE FIX>)
+   <MAPF <>
+	 <FUNCTION (REQ) #DECL ((REQ) WORD)
+	 <COND (<==? <GETBITS .REQ %<BITS 18 18>>
+		     #WORD *5*>			;"JOB WANTS A JCL-LINE"
+
+		<COND (<=? .THE-LINE "">)	;"OOPS -- NONE THERE"
+		      (<SET P <PASS-JCL-DOWN .THE-LINE .JOB-CH
+				      <CHTYPE <GETBITS .REQ %<BITS 18>>
+					      FIX>> >)
+		      (ELSE
+		       <JOB-SCRIPT .Q ,CR
+				   "****FROM BATCH: JCL LINE LOSSAGE -- "
+				   <2 .P>
+				   " ****" ,CR>)>)
+	       (<==? <GETBITS .REQ %<BITS 18 18>>
+		     #WORD *400005*>
+		<PUT ,JCL-LINES .Q "">)>>
+	 .REQUESTS>
+   <USET .JOB-CH "APIRQ" *2000*>				;"CLEAR THE .BREAK"
+   <COND (<OK-TO-START-RUNNING? <NTH ,SPECS-OF-JOBS .Q>>	;"& MAYBE RESTART JOB"
+	  <JOB-RESTART .JOB-CH .Q>)> >
+
+;"GC-INTERRUPT-ROUTINE makes a log note of Garbage Collections"
+
+<DEFINE GC-INTERRUPT-ROUTINE (TIM CODE NAME)
+   #DECL ((TIM) FLOAT (CODE) FIX (NAME) ATOM)
+   <BATCH-SCRIPT 30 "GC:" <FIX3-FMT .TIM> " sec, "
+		 <NTH '["Call to GC from "
+			"Free space for "
+			"Control stack for "
+			"Top-level LVALs for "
+			"Global vector for "
+			"TYPE vector for "
+			"Immovable impure storage for "
+			"Internal stack for "
+			"Control and internal stacks for "
+			"Pure storage for "
+			"Second, exhaustive GC from "]
+		      <+ .CODE 1>>
+		 .NAME>>
+
+;"TIME-NOW returns a string for the current time, like HH:MM ZONE "
+
+<DEFINE TIME-NOW ("AUX" (TN <DTNOW>) (TN2 <2 .TN>))
+   #DECL ((VALUE) STRING (TN) <LIST LIST LIST STRING>
+	  (TN2) <LIST FIX FIX FIX>)
+   <STRING <UNPARSE <1 .TN2>> !\:
+	   <REST <UNPARSE <+ <2 .TN2> 100>>> !\ 
+	   <3 .TN>>>
+
+
+;"KILL-OLD-MARKERS wipes out old .BATCH;#Qn xxxxxx  files.  It should also
+check for any that might point to jobs that have killed the demon with a
+bad rescheduler/run-test."
+
+<DEFINE KILL-OLD-MARKERS ("AUX" (QN ,NQUEUES))
+   #DECL ((VALUE) ANY (QN) FIX)
+
+   ;"SHOULD CHECK FOR FILES STARTING WITH 'EVALing run test' OR
+	'EVALing rescheduler'; IF ANY, BATCH-SCRIPT, MAKE IT UNRUNNABLE,
+	SEND MAIL, AND ACKNOWLEDGE IT"
+
+   <PROG ()
+	<COND (<RENAME <STRING ".BATCH;#Q"
+			       <UNPARSE .QN>
+			       " >" >>
+	       <AGAIN>)
+	      (<G? <SET QN <- .QN 1>> 0>
+	       <AGAIN>)>> >
+
+<SETG INTS-SETUP <SETG ERROR-INT-SETUP %<>>>
+
+
+;"SETUP-ERROR-INTERRUPT-HANDLER ON's the error handler, ONCE."
+
+<DEFINE SETUP-ERROR-INTERRUPT-HANDLER ()
+   <COND (<NOT ,ERROR-INT-SETUP>
+	  <ON "ERROR" ,ERROR-INTERRUPT-ROUTINE 50>	;"SETUP THE INTERRUPT HANDLER"
+	  <IPC-OFF>					;"RESET IPC WITH PROPER NAMES"
+	  <OFF "IPC">					;"GET RID OF DEFAULT HANDLER"
+	  <SETG ERROR-INT-SETUP T>)>>
+
+
+;"SETUP-INTERRUPT-HANDLERS ON's all the appropriate handlers, ONCE."
+
+<DEFINE SETUP-INTERRUPT-HANDLERS ()
+   <COND (<NOT ,INTS-SETUP>				;"IF NOT ALREADY ..."
+	  <ON "SYSDOWN" ,SYSDOWN-INTERRUPT-ROUTINE 25>	;"SETUP THE OTHER HANDLERS"
+	  <ON "IPC" ,IPC-INTERRUPT-ROUTINE 20>
+	  <IPC-ON>
+	  <ON "INFERIOR" ,INFERIOR-INTERRUPT-ROUTINE 5>
+	  <ON "KILLER" ,KILLER-INTERRUPT-ROUTINE 5>
+	  <ON "SCRIPTOR" ,SCRIPTOR-INTERRUPT-ROUTINE 5>
+	  <ON "GC" ,GC-INTERRUPT-ROUTINE 16>
+	  <SETG INTS-SETUP T>)
+	 (T <IPC-OFF> <IPC-ON>)>>
+
+<DEFINE FIX3-FMT (NUM "AUX" (LEFT <FIX1 .NUM>)
+			    (RIGHT <FIX <+ <* <ABS <- .NUM .LEFT>> 1000> 1000.5>>))
+   #DECL ((VALUE) STRING (LEFT RIGHT) FIX (NUM) FLOAT)
+   <STRING !\  <UNPARSE .LEFT> !\. <REST <UNPARSE .RIGHT>>>>
+
+;<DEFINE $-FMT (NUM "AUX" (LEFT <FIX1 .NUM>)
+			 (RIGHT <FIX <+ <* <ABS <- .NUM .LEFT>> 100> 100.5>>))
+   #DECL ((VALUE) STRING (LEFT RIGHT) FIX (NUM) FLOAT)
+   <STRING !\$ <UNPARSE .LEFT> !\. <REST <UNPARSE .RIGHT>>>>
+
+<DEFINE FIX1 (X "AUX" (FX <FIX .X>))
+   #DECL ((VALUE FX) FIX (X) FLOAT)
+   <COND (<G=? .X 0.0> .FX)
+	 (<=? .X .FX> .FX)
+	 (<FIX <+ .X 1.0>>)>>
+
+<DEFINE MAKE-SURE-OPEN (CH)
+   #DECL ((VALUE) ANY (CH) <OR CHANNEL FALSE>)
+   <AND .CH <0? <1 .CH>> <RESET .CH>>>
+
+<DEFINE NUMBER-OF-NON-FALSES (OBJECT)
+   #DECL ((VALUE) FIX (OBJECT) VECTOR)
+   <MAPF ,+
+	 <FUNCTION (X) #DECL ((X) ANY) <COND (.X 1) (0)>>
+	 .OBJECT>>
+
+<DEFINE INDEX (THING OBJECT "OPTIONAL" (ELSE %<>)
+	"AUX" (MEM <MEMBER .THING .OBJECT>))
+   #DECL ((VALUE ELSE THING) ANY (OBJECT) VECTOR (MEM) <OR VECTOR FALSE>)
+   <COND (.MEM
+	  <- <LENGTH .OBJECT> <LENGTH .MEM> -1>)
+	 (ELSE .ELSE)>>
+
+<DEFINE NOTE (FILE "TUPLE" THINGS "AUX" (CH <OPEN "PRINT" .FILE>))
+   #DECL ((VALUE) ANY (FILE) STRING (THINGS) TUPLE (CH) <OR CHANNEL FALSE>)
+   <COND (.CH
+	  <MAPF	%<>
+		#FUNCTION ((YOU) #DECL ((YOU) ANY) <PRINC .YOU .CH>)
+		.THINGS>
+	  <CLOSE .CH>)>>
+
+<DEFINE SYS-SECS ("AUX" (U '![0 0 0 0 0]))
+   #DECL ((VALUE) FIX (U) <UVECTOR [REST FIX]>)
+   <ITS-CALL "SSTATU" .U>
+   </ <5 .U> 30>>
+
+<DEFINE TTY? ("AUX" TTYSTATUS)
+   #DECL ((VALUE) <OR FALSE FIX> (TTYSTATUS) FIX)
+   <SET TTYSTATUS <CHTYPE <USET %<> *2*> FIX>>		;"SUSET .RTTY "
+   <COND (<G=? .TTYSTATUS 0>
+	  .TTYSTATUS)>>
+
+<DEFINE FN-REORDER (FILESPEC)
+   #DECL ((VALUE FILESPEC) <VECTOR STRING STRING STRING [REST STRING]>)
+   <COND (<G=? <LENGTH .FILESPEC> 4>
+	  [<3 .FILESPEC> <4 .FILESPEC> <1 .FILESPEC> <2 .FILESPEC>])
+	 (ELSE
+	  [<3 .FILESPEC> "COMMON" <1 .FILESPEC> <2 .FILESPEC>])>>
+
+<DEFINE MAIL (TO MSG "AUX" C OUTCHAN)
+   	  #DECL ((TO MSG) STRING
+		 (C) <OR FALSE CHANNEL> (OUTCHAN) <SPECIAL CHANNEL>)
+	  <COND (<SET C <OPEN "PRINT" ".MAIL.;MAIL >">>
+		 <SET OUTCHAN .C>
+		 <MAPF <>
+		       ,PRINTSTRING
+		       (
+"FROM-JOB:"	<JNAME> "
+SENT-BY:"	<UNAME> "
+RCPT:("		  .TO   ")
+RCPT:(.BATCH (R-OPTION CC))
+TEXT;-1
+"		  .MSG)>
+		  <CLOSE .C>)>>
+
+<ENDPACKAGE>
diff --git a/src/_batch/tcheck.ujhm26 b/src/_batch/tcheck.ujhm26
new file mode 100644
index 00000000..729a9755
--- /dev/null
+++ b/src/_batch/tcheck.ujhm26
@@ -0,0 +1,202 @@
+
+<PACKAGE "TCHECK">
+
+<ENTRY TASK-CHECK>
+
+<USE	"BATCHN"		;"DELETE-FROM-DISK-Q NIGHT? WRITE-TASK"
+	"BATCHQ"		;"task descriptor field names"
+	"TASKM"			;"ACKNOWLEDGE"
+	"TIMFCN"		;"DTADD DTADD-2NORM DTNORM DTNOW">
+
+
+<DEFINE TASK-CHECK (TSK "AUX" FIELD H-LIM T-LIM C)
+    #DECL ((VALUE) <OR FALSE VECTOR> (TSK) VECTOR
+	   (FIELD H-LIM T-LIM) ANY (C) <OR CHANNEL FALSE>)
+
+  <PROG ()
+
+    <COND (<DECL? <FILE-TO-RUN .TSK>		     ;"FILE-TO-RUN & TASK-NAME"
+		  '<VECTOR STRING STRING STRING [REST STRING]>>
+	   <COND (<NOT <TYPE? <TASK-NAME .TSK> STRING>>
+		  <PUT .TSK ,TASK-NAME "NAME">)>)
+	  (<TYPE? <SET FIELD <TASK-NAME .TSK>> STRING>
+	   <PUT .TSK ,FILE-TO-RUN ["SYS" <ORIGINATOR .TSK> "TS" .FIELD]>)
+	  (ELSE
+	   <PUT .TSK ,TASK-NAME "NULL">
+	   <PUT .TSK ,TASK-STATE "REMOVED">
+	   <DELETE-FROM-DISK-Q .TSK>
+	   <RETURN %<>>)>
+
+
+    <COND (<NOT <SET FIELD <TASK-STATE .TSK>>>		;"TASK-STATE"
+	   <PUT .TSK ,TASK-STATE "RUNNABLE">)
+	  (<NOT <TYPE? .FIELD STRING>>
+	   <PUT .TSK ,TASK-STATE "UNRUNNABLE">)
+	  (<=? .FIELD "RUNNING">
+	    <COND (<RESTART-SWITCH .TSK>
+		   <PUT .TSK ,TASK-STATE "RUNNABLE">
+		   <ACKNOWLEDGE	.TSK
+				ON-COMPLETION:SYSTEM-CRASH
+				"System or batch crash while job was running">
+		   <WRITE-TASK .TSK>)
+		  (ELSE
+		   <PUT .TSK ,TASK-STATE "UNRUNNABLE">
+		   <ACKNOWLEDGE	.TSK
+				ON-COMPLETION:SYSTEM-CRASH
+				"System or batch crash while job was running">
+		  <WRITE-TASK .TSK>)>)
+	  (<=? .FIELD "REMOVED">
+	    <DELETE-FROM-DISK-Q .TSK>)>
+
+    <COND (<TYPE? <SET FIELD <TIME-OF-NEXT-RUN .TSK>> LIST> ;"TIME-OF-NEXT-RUN"
+	   <PUT .TSK ,TIME-OF-NEXT-RUN <DTNORM .FIELD>>)
+	  (<MEMBER .FIELD '["NOW" "ASAP" "now" "asap"]>
+	   <PUT .TSK ,TIME-OF-NEXT-RUN <DTNOW>>)
+	  (<NIGHT?>
+	   <PUT .TSK ,TIME-OF-NEXT-RUN <DTNOW>>)
+	  (ELSE						;"USE 1:00 TOMORROW"
+	   <PUT .TSK
+		,TIME-OF-NEXT-RUN
+		<DTADD '(() ()) '((0 0 1) (1 0 0))>>)>
+
+
+    <COND (<TYPE? <SET H-LIM <HANG-LIMIT .TSK>> FIX>)		;"HANG-LIMIT"
+	  (<TYPE? .H-LIM FLOAT>
+	   <PUT .TSK ,HANG-LIMIT <SET H-LIM <FIX .H-LIM>>>)
+	  (.H-LIM
+	   <PUT .TSK ,HANG-LIMIT <SET H-LIM %<>>>)>
+    ;<COND (<AND .H-LIM <G? .H-LIM 25>>
+	   <PUT .TSK ,HANG-LIMIT <SET H-LIM 25>>)>
+
+    <COND (<TYPE? <SET T-LIM <TIME-LIMIT .TSK>>FLOAT>);"TASK-TYPE & TIME-LIMIT"
+	  (<TYPE? .T-LIM FIX>
+	   <PUT .TSK ,TIME-LIMIT <SET T-LIM <FLOAT .T-LIM>>>)
+	  (.T-LIM
+	   <PUT .TSK ,TIME-LIMIT <SET T-LIM %<>>>)>
+
+    <COND (<NOT <TYPE? <TASK-TYPE .TSK> STRING>>	;"NEEDS A TASK TYPE"
+	   <COND (<NOT .T-LIM>
+		  <COND (<OR <NOT .H-LIM> <L=? .H-LIM 5>>
+			 <PUT .TSK ,TIME-LIMIT 5.0>
+			 <PUT .TSK ,TASK-TYPE "SHORT">)
+			(ELSE
+			 <PUT .TSK ,TIME-LIMIT 5.0>
+			 <PUT .TSK ,TASK-TYPE "LONG">)>)
+		 (<OR <G? .T-LIM 5.0> <G? .H-LIM 5>>
+		  <PUT .TSK ,TASK-TYPE "LONG">)
+		 (ELSE
+		  <PUT .TSK ,TASK-TYPE "SHORT">)>)
+	  (<NOT .T-LIM>					;"NEEDS A TIME-LIMIT"
+	   <PUT .TSK
+		,TIME-LIMIT
+		<COND (<=? <TASK-TYPE .TSK> "SHORT">
+			   5.0)
+		      (ELSE 30.0)>  >)>
+
+    <COND (<NOT <TYPE? <WHEN-ORIGINATED .TSK> LIST>>	;"WHEN-ORIGINATED"
+	   <PUT .TSK ,WHEN-ORIGINATED <DTNOW>>)>
+
+
+    <COND (<TYPE? <SET FIELD <ORIGINATOR .TSK>> STRING>)	;"ORIGINATOR"
+	  (<TYPE? .FIELD ATOM>
+	   <PUT .TSK ,ORIGINATOR <PNAME .FIELD>>)
+	  (ELSE
+	   <PUT .TSK ,ORIGINATOR "GUEST">)>
+
+
+    <COND (<TYPE? <SET FIELD <OUTPUT-FILE .TSK>> VECTOR>	;"OUTPUT-FILE"
+	   <PUT .TSK
+		,OUTPUT-FILE
+		<OUTPUT-FILE-FIXUP .FIELD .TSK>>)
+	  (<=? .FIELD "NUL:">
+	   <PUT .TSK ,OUTPUT-FILE "">)
+	  (<TYPE? .FIELD STRING>
+	   <AND <SET C <CHANNEL "PRINT" .FIELD>>
+		<=? <5 .C> "NUL">
+		<PUT .TSK ,OUTPUT-FILE "">>)
+	  (.FIELD
+	   <PUT .TSK ,OUTPUT-FILE %<>>)>
+
+    <COND (<NOT <TYPE? <DELIMITER-STRING .TSK> STRING>>	;"DELIMITER-STRING"
+	    <PUT .TSK ,DELIMITER-STRING %<STRING !\ <ASCII 13>> >)>
+				;"DEFAULT DELIMITER STRING IS [ESC] [CR] "
+
+    <COND (<TYPE? <SET FIELD <WHEN-ORIGINATED .TSK>> LIST>   ;"WHEN-ORIGINATED"
+	   <COND (<LENGTH? .FIELD 3>
+		  <PUT .TSK ,WHEN-ORIGINATED <DTNORM .FIELD>>)>)
+	  (ELSE
+	   <PUT .TSK ,WHEN-ORIGINATED <DTNOW>>)>
+
+
+    <COND (<NOT <SCHEDULER .TSK>>			;"RESCHEDULE-INFO"
+	   <COND (<TYPE? <SET FIELD <RESCHEDULE-INFO .TSK>> LIST>
+		  <PUT .TSK ,RESCHEDULE-INFO <DTADD-2NORM .FIELD>>)
+		 (<TYPE? .FIELD VECTOR>
+		  <PUT .TSK
+		       ,RESCHEDULE-INFO
+		       <MAPF ,VECTOR ,DTNORM .FIELD>>)
+		 (.FIELD
+		  <PUT .TSK ,RESCHEDULE-INFO %<>>) > )>
+
+						;"WHEN-TO-STOP-RESCHEDULING"
+    <COND (<TYPE? <SET FIELD <WHEN-TO-STOP-RESCHEDULING .TSK>> LIST>
+	   <PUT .TSK ,WHEN-TO-STOP-RESCHEDULING <DTNORM .FIELD>>)
+	  (.FIELD
+	   <PUT .TSK ,WHEN-TO-STOP-RESCHEDULING %<>>)>
+
+    <COND (<AND <SET FIELD <MAXIMUM-NUMBER-OF-RUNS .TSK>>
+						;"MAXIMUM-NUMBER-OF-RUNS"
+		<NOT <TYPE? .FIELD FIX>> >
+	   <PUT .TSK ,MAXIMUM-NUMBER-OF-RUNS %<>>)>
+
+    <COND (<AND <SET FIELD <JCL-LINE .TSK>>		;"JCL-LINE"
+		<NOT <TYPE? .FIELD STRING>> >
+	   <PUT .TSK ,JCL-LINE %<>>)>
+
+    <COND (<AND <SET FIELD <WORKING-DIRECTORY .TSK>>
+		<NOT <TYPE? .FIELD STRING>> >
+	   <PUT .TSK ,WORKING-DIRECTORY %<>>)>
+
+						;"ACKNOWLEDGEMENT-INFO"
+    <COND (<NOT <DECL? <ACKNOWLEDGEMENT-INFO .TSK>
+		   '<VECTOR [REST <OR ATOM <VECTOR [REST <OR FIX STRING>]>>]>>>
+	   <PUT .TSK ,ACKNOWLEDGEMENT-INFO %<>>)>
+    .TSK>>
+
+<DEFINE OUTPUT-FILE-FIXUP (FSPEC TSK)
+   #DECL ((VALUE) <OR STRING FALSE VECTOR>
+	  (TSK FSPEC) VECTOR)
+   <COND (<=? .FSPEC '["NUL:"]>
+	  "")
+	 (<NOT <DECL? .FSPEC '<VECTOR STRING [REST STRING]>>>
+	  %<>)
+	 (<SHITS-IN .FSPEC>
+	  <MAPF ,STRING
+		#FUNCTION ((S) #DECL ((S) STRING) <MAPRET .S !\ >)
+		.FSPEC>)
+	 (<G=? <LENGTH .FSPEC> 4>
+	  .FSPEC)
+	 (<==? <LENGTH .FSPEC> 1>
+	  ["DSK" <ORIGINATOR .TSK> <1 .FSPEC> "OUTPUT"])
+	 (<==? <LENGTH .FSPEC> 2>
+	  ["DSK" <ORIGINATOR .TSK> <1 .FSPEC> <2 .FSPEC>])
+	 (<==? <LENGTH .FSPEC> 3>
+	  ["DSK" <1 .FSPEC> <2 .FSPEC> <3 .FSPEC>])> >
+
+<DEFINE SHITS-IN (FIL)
+   #DECL ((VALUE) ANY (FIL) <VECTOR STRING [REST STRING]>)
+   <MAPF ,OR? ;OR1
+	 #FUNCTION ((S) #DECL ((S) STRING)
+		    <OR <MEMQ !\; .S> <MEMQ !\: .S>>)
+	 .FIL> >
+
+;<DEFINE OR1 ("TUPLE" PQR)
+   #DECL ((VALUE) ANY (PQR) TUPLE)
+   <PROG ()
+	<COND (<EMPTY? .PQR> %<>)
+	      (<1 .PQR>)
+	      (ELSE
+	       <SET PQR <REST .PQR>>
+	       <AGAIN>)>>>
+
+<ENDPACKAGE>
diff --git a/src/_batch/templt.ujhm09 b/src/_batch/templt.ujhm09
new file mode 100644
index 00000000..cf59a393
--- /dev/null
+++ b/src/_batch/templt.ujhm09
@@ -0,0 +1,106 @@
+
+<PACKAGE "TEMPLT">
+
+<ENTRY	TASK-TEMPLATE TASK-FIELDNAMES MOD-TEMPLATE MOD-FIELDNAMES
+	INDIRECT-MOD>
+
+<USE	"QPUT"	;"MAKE-TEMPLATE"
+	"BATCHQ"
+	;"NBATCH">
+
+<GDECL	(TASK-TEMPLATE MOD-TEMPLATE) VECTOR
+	(TASK-FIELDNAMES MOD-FIELDNAMES) <VECTOR [REST ATOM]>
+	(INDIRECT-MOD) <UVECTOR [REST ATOM]>>
+
+<SETG	TASK-TEMPLATE <MAKE-TEMPLATE
+[	TASK-ID-NUMBER		0
+	ORIGINATOR		<>
+	TASK-NAME		<>
+	TASK-STATE		<>
+	TIME-OF-NEXT-RUN	<>
+	NIGHT-RUN-SWITCH	<>
+	TASK-TYPE		<>
+	WHEN-ORIGINATED		<>
+	SCHEDULER		<>
+	RESCHEDULE-INFO		<>
+	WHEN-TO-STOP-RESCHEDULING	<>
+	MAXIMUM-NUMBER-OF-RUNS	<>
+	FILE-TO-RUN		<>
+	INPUT-STREAM		<>
+	OUTPUT-FILE		<>
+	JCL-LINE		<>
+	DELIMITER-STRING	<>
+	WORKING-DIRECTORY	<>
+	TIME-LIMIT		<>
+	ACKNOWLEDGEMENT-INFO	<>
+	RUN-TEST		<>
+	RUN-TEST-INFO		<>
+	HANG-LIMIT		<>
+	RESTART-SWITCH		<>
+	BATCH-QUEUE-CHECK-SWITCH	<>
+	LAST-STARTING-TIME	<>
+	LAST-COMPLETION-TIME	<>
+	LAST-CPU-TIME-USED	<>
+	ACCUMULATED-CPU-TIME	0
+	NUMBER-OF-TIMES-RUN	0
+]    >>
+
+<SETG	MOD-TEMPLATE <MAKE-TEMPLATE
+[	TASK-ID-NUMBER		0
+	ORIGINATOR		<>
+	TASK-NAME		<>
+	TASK-STATE		<>
+	TIME-OF-NEXT-RUN	<>
+	NIGHT-RUN-SWITCH	<>
+	TASK-TYPE		<>
+	WHEN-MODIFIED		<>
+	SCHEDULER		<>
+	RESCHEDULE-INFO		<>
+	WHEN-TO-STOP-RESCHEDULING	<>
+	MAXIMUM-NUMBER-OF-RUNS	<>
+	FILE-TO-RUN		<>
+	INPUT-STREAM		<>
+	OUTPUT-FILE		<>
+	JCL-LINE		<>
+	DELIMITER-STRING	<>
+	WORKING-DIRECTORY	<>
+	TIME-LIMIT		<>
+	ACKNOWLEDGEMENT-INFO	<>
+	RUN-TEST		<>
+	RUN-TEST-INFO		<>
+	HANG-LIMIT		<>
+	RESTART-SWITCH		<>
+	BATCH-QUEUE-CHECK-SWITCH	<>
+	BY-WHOM-MODIFIED	<>
+]    >>
+
+<SETG	TASK-FIELDNAMES				;"must be VECTOR for UNPUTAWAY-WRITE"
+'[	TASK-ID-NUMBER ORIGINATOR TASK-NAME TASK-STATE
+	TIME-OF-NEXT-RUN NIGHT-RUN-SWITCH TASK-TYPE
+	WHEN-ORIGINATED
+	SCHEDULER RESCHEDULE-INFO WHEN-TO-STOP-RESCHEDULING
+	MAXIMUM-NUMBER-OF-RUNS FILE-TO-RUN
+	INPUT-STREAM OUTPUT-FILE JCL-LINE DELIMITER-STRING
+	WORKING-DIRECTORY TIME-LIMIT ACKNOWLEDGEMENT-INFO
+	RUN-TEST RUN-TEST-INFO RESTART-SWITCH
+	BATCH-QUEUE-CHECK-SWITCH HANG-LIMIT LAST-STARTING-TIME
+	LAST-COMPLETION-TIME LAST-CPU-TIME-USED
+	ACCUMULATED-CPU-TIME NUMBER-OF-TIMES-RUN
+]>
+
+<SETG	INDIRECT-MOD
+'![	TASK-ID-NUMBER TASK-STATE TASK-TYPE TIME-OF-NEXT-RUN WHEN-ORIGINATED]>
+
+<SETG	MOD-FIELDNAMES
+'[	TASK-ID-NUMBER ORIGINATOR TASK-NAME TASK-STATE
+	TIME-OF-NEXT-RUN NIGHT-RUN-SWITCH TASK-TYPE
+	WHEN-MODIFIED
+	SCHEDULER RESCHEDULE-INFO WHEN-TO-STOP-RESCHEDULING
+	MAXIMUM-NUMBER-OF-RUNS FILE-TO-RUN
+	INPUT-STREAM OUTPUT-FILE JCL-LINE DELIMITER-STRING
+	WORKING-DIRECTORY TIME-LIMIT ACKNOWLEDGEMENT-INFO
+	RUN-TEST RUN-TEST-INFO RESTART-SWITCH
+	BATCH-QUEUE-CHECK-SWITCH HANG-LIMIT BY-WHOM-MODIFIED
+]>
+
+<ENDPACKAGE>
diff --git a/src/combat/crowd.contrl b/src/combat/crowd.contrl
new file mode 100644
index 00000000..9939a122
--- /dev/null
+++ b/src/combat/crowd.contrl
@@ -0,0 +1,4 @@
+<SNAME "CLR">
+
+<OVALRET!-COMBAT " ">
+
\ No newline at end of file
diff --git a/src/combat/gunner.down b/src/combat/gunner.down
new file mode 100644
index 00000000..953693c0
Binary files /dev/null and b/src/combat/gunner.down differ
diff --git a/src/combat/master.undr78 b/src/combat/master.undr78
new file mode 100644
index 00000000..f3aa747e
--- /dev/null
+++ b/src/combat/master.undr78
@@ -0,0 +1,330 @@
+<BLOCK (<ROOT>)>
+
+WARNS NOTES INCONS ERRS BATCH-COMPIL	;"For communication with COMFIL"
+
+<ENDBLOCK>
+
+<BLOCK (<MOBLIST COMBAT!- 17> <ROOT>)>
+
+<GDECL (COMBAT THIS-PLAN PLANNED) STRING>
+
+<FLOAD "COMBAT;PRIVAT NBIN">
+
+
+;"PERFORM THE COMBAT"
+
+<DEFINE BATCH-COMPIL ("EXTRA" TP CH TIM (ERRS <>) (NOTES <>) (WARNS <>) (INCONS <>))
+	#DECL ((CH) <OR FALSE CHANNEL> (TIM) <LIST FIX FIX FIX>
+	       (ERRS NOTES WARNS INCONS) <SPECIAL <OR ATOM FALSE>>
+	       (TP) <OR FALSE STRING>)
+    <COMBAT-OK?>
+    <COND (<SET CH <OPEN "READ" ,PLANNED "<" "DSK" "COMBAT">>
+	   <LGN "COMBAT">	;"LOG IN"
+	   <DEMSIG "GUNNER">
+	   <SETG RUNT-H <ON "RUNT" ,RUNT-F 2>>
+	   <COND (<=? ,PLANNED "RIOT"> <RUNTIMER <* 15 60>>)
+		 (ELSE <RUNTIMER <* 60 60 2>>)>
+	   <SNAME "COMBAT">
+	   <COND (<=? <10 .CH> <6 .CH>> ;"If directory not same, have to hack link"
+		  <SET TP <8 .CH>>)
+		 (<SET TP <GET-NAME-TWO .CH>>)
+		 (<STOP <>> ;"Huh?")>
+	   <SETG THIS-PLAN .TP>
+	   <SETG BLOCKED-H <ON "BLOCKED" ,BLOCKED-F 200>>
+	   <SETG IOC-H <ON "IOC" ,IOC-F 150>>
+	   <SET REDEFINE T>
+	   <IPC-OFF>
+	   <IPC-ON "COMBAT" "ZONE">
+	   <SETG IPC-H <ON "IPC" ,ILO 1>>
+	   <IPC-ENABLE>		; "IPC hack"
+	   <SETG VALRET ,NVALRET>
+	   <SETG LOGOUT ,NLOGOUT>
+	   <SETG QUIT ,NQUIT>
+	   <SETG ERROR-H <ON "ERROR" ,ERROR-F 100>>
+	   <SETG ERRET ,NERRET>
+	   <LOAD .CH>		;"Run the PLAN"
+	   <WON>)
+	  ("NO MORE FUNCTIONS NOW GO AWAY FOR 60 MINUTES, THEN CHECK"
+	   <SET TIM <RTIM>>
+	   <RENAME "COMBAT;PERMIT WASTES">	; "Flush permission file"
+	   <SDS "ZONE" 10000 0 <- <* 20 60> <* <COND (<G=? <1 .TIM> 20>
+							  <- 44 <1 .TIM>>)
+							 (ELSE <1 .TIM>)> 60>
+					        <2 .TIM> -5>>
+	   <OLOGOUT>)>>
+
+'<AND? ,BATCH-COMPIL		;"DEAR GLUE: Let these Survive"
+      ,RUNT-F ,BLOCKED-F ,IOC-F ,ERROR-F
+      ,NVALRET ,NLOGOUT ,NQUIT ,NERRET>
+
+\
+
+
+<DEFINE WON ("AUX" (OUTCHAN <MALE "COMBAT" <STRING <SNAME> " MAIL">>) NN)
+	#DECL ((OUTCHAN) <SPECIAL CHANNEL> (NN) FIX)
+	<COND (<=? ,PLANNED "RWASTE">
+	       <PRINC "WASTE # ">)
+	      (<PRINC ,PLANNED>
+	       <PRINC " # ">)>
+	<PRINC ,THIS-PLAN>
+	<COMBAT-PRINT .OUTCHAN>
+	<PRINC " WON IN ">
+	<PRINC <TIME>>
+	<PRINC " SECONDS">
+	<TERPRI>
+	<COND (<OR .ERRS .INCONS .WARNS .NOTES>
+	       <PRINC "**** See Record File for: ">
+	       <SET NN <MAPF ,+ <FUNCTION (A) #DECL ((A) ATOM) <OR <AND ..A 1> 0>>
+			     '(ERRS INCONS WARNS NOTES)>>
+	       <MAPF <>
+		     <FUNCTION (REASON ATM)
+			       #DECL ((REASON ATM) ATOM)
+			       <COND (..ATM <PRINC .REASON>
+				      <COND (<1? <SET NN <- .NN 1>>>
+					     <PRINC " and ">)
+					    (<G? .NN 0> <PRINC ", ">)>)>>
+		     '(ERRORS NOTES WARNINGS COMPILER-PROBLEMS)
+		     '(ERRS NOTES WARNS INCONS)>)>
+	<TERPRI> <CLOSE .OUTCHAN>
+	<RENAME ,PLANNED ,THIS-PLAN "DSK" "COMBAT">
+	<STOP T>>
+
+<DEFINE LOST (MES "OPTIONAL" FT
+	      "EXTRA" (OUTCHAN <MALE "COMBAT" <STRING <SNAME> " MAIL">>))
+	#DECL ((MES) STRING (OUTCHAN) <SPECIAL CHANNEL> (FT) TUPLE)
+	<COND (<=? ,PLANNED "RWASTE">
+	       <PRINC "WASTE # ">)
+	      (<PRINC ,PLANNED>
+	       <PRINC " # ">)>
+	<PRINC ,THIS-PLAN>
+	<COMBAT-PRINT .OUTCHAN>
+	<PRINC " LOST IN ">
+	<PRINC <TIME>>
+	<PRINC " SECONDS">
+	<CRLF> <PRINC "	BECAUSE ">
+	<PRINC .MES> <PRINC !\.>
+	<COND (<ASSIGNED? FT>
+	       <MAPF <> ,& .FT>)>
+	<TERPRI> <TERPRI>
+	<FR&> <CLOSE .OUTCHAN>
+	<RENAME ,PLANNED ,THIS-PLAN "DSK" "COMBAT"
+		TO "DSK:COMBAT;LOST >">
+	<STOP <>>>
+
+<DEFINE STOP (GOOD?)
+	#DECL ((GOOD?) <OR FALSE ATOM>)
+	<COM-MESS <SNAME> ,PLANNED <TIME> <SWAPS> .GOOD?>
+	<OLOGOUT>	;"Should work, unless debugging Combat"
+	<MAPF <> <FUNCTION (H)
+			   #DECL ((H) ATOM)
+			   <COND (<AND <GASSIGNED? .H>
+				       <TYPE? ,.H HANDLER>>
+				  <OFF ,.H>)>>
+	      '(BLOCKED-H RUNT-H IOC-H ERROR-H)>	;"Turn Off Handlers"
+	T		;"Debugging, just return T">
+
+\
+
+<AND? <SETG ERRCNT <SETG BLKCNT <SETG IOCCNT 0>>>	;"Occurences for each Problem"
+      <GDECL (ERRCNT BLKCNT IOCCNT) FIX>>
+
+<DEFINE ERROR-F (FRM "TUPLE" FT "AUX" (LERR\ !-INTERRUPTS .FRM))
+	#DECL ((LERR\ !-INTERRUPTS) <SPECIAL ANY> (FT) TUPLE)
+	<COND (<1? <SETG ERRCNT <+ ,ERRCNT 1>>>		;"Initial Error Interrupt"
+	       <INT-LEVEL 0>
+	       <LOST "AN ERROR HAPPENED" .FT>)
+	      (<L? ,ERRCNT 5>				;"Secondary Error"
+	       <DISMISS T .FRM>	;"Try to continue")
+	      (<==? ,ERRCNT 5>					;"Obviously losing"
+	       <RENAME ,PLANNED ,THIS-PLAN "DSK" "COMBAT"
+			    TO "DSK:COMBAT;CONFUS >">
+	       <OLOGOUT>)
+	      (ELSE <OLOGOUT>)>>
+
+<DEFINE BLOCKED-F ("TUPLE" FOO)
+	.FOO	;"Unused Variable"
+	<COND (<N=? ,IOCCNT 0> <ELOGOUT>		;"Obviously IOC's losing")>
+	<COND (<N=? ,ERRCNT 0> <OLOGOUT>		;"Obviously ERR's losing")>
+	<COND (<N=? ,BLKCNT 0> <OLOGOUT>		;"Obviously I'm losing")>
+	<SETG BLKCNT 1>
+	<INT-LEVEL 0>
+	<LOST "COMBAT WENT BLOCKED">>
+
+<DEFINE IOC-F ("TUPLE" FOO)
+	.FOO	;"Unused Variable"
+	<SETG IOCCNT 1>
+	<RENAME ,PLANNED ,THIS-PLAN "DSK" "COMBAT"
+		       TO "DSK:COMBAT;IOC >">
+	<ELOGOUT>	;"Emergency LOGOUT-- doesn't do Bufout">
+
+<DEFINE RUNT-F ()
+	<LOST "TIME WAS EXHAUSTED">>
+
+<OVERFLOW <>>
+<DEFINE ILO (BODY TYPE NM1 NM2 "OPTIONAL" M1 M2 "AUX" P
+	     (OUTCHAN <AND <GASSIGNED? COMPCHAN!-CFC>
+			   ,COMPCHAN!-CFC>))
+	#DECL ((BODY NM1 NM2 M1 M2) STRING (TYPE) FIX (P) ANY
+	       (OUTCHAN) <OR <CHANNEL FIX> FALSE>)
+	<COND (<==? .TYPE *400000000000*>
+	       <SET P <PARSE .BODY>>
+	       <COND (<AND .OUTCHAN <NOT <0? <1 .OUTCHAN>>>>
+		      <CRLF>
+		      <PRINC "!!!! Eval Inquiry from ">
+		      <PRINC .NM1>
+		      <PRINC " ">
+		      <PRINC .NM2>
+		      <PRINC " !!!!">
+		      <PLO .P .OUTCHAN>
+		      <BUFOUT .OUTCHAN>)>
+	       <INT-LEVEL 0>
+	       <EVAL .P>)>
+	<DISMISS T>>
+
+<DEFINE PLO (F OUTCHAN) 
+	#DECL ((F) <PRIMTYPE LIST> (OUTCHAN) CHANNEL)
+	<MAPR <>
+	      <FUNCTION (FF "AUX" (F <1 .FF>)) 
+			#DECL ((FF) LIST (F) ANY)
+			<COND (<AND <TYPE? .F FORM>
+				    <NOT <LENGTH? .F 1>>
+				    <==? <1 .F> PARSE>>
+			       <PPRINT <PARSE <2 .F>> .OUTCHAN>
+			       <PRINC "!!!! Ends !!!!">
+			       <CRLF>)
+			      (<TYPE? .F FORM LIST> <PLO .F .OUTCHAN>)
+			      (ELSE T)>>
+	      .F>>
+
+\
+
+<DEFINE COMBAT-OK? ("EXTRA" (TIM <RTIM>) (TMP <>) TMP1 J ST)
+	#DECL ((TMP TMP1) <OR FALSE CHANNEL>
+	       (TIM) <LIST FIX FIX FIX> (J) FIX)
+;"Check that it is not the middle of the day and non-holiday weekday,
+if so reschedule for eight P.M."
+	<COND (<SET TMP <OPEN "READ" "COMBAT;RWASTE >">>
+	       ; "Clean up if an rwaste exists"
+	       <COND (<=? <10 .TMP> <6 .TMP>>
+		      <SET ST <8 .TMP>>)
+		     (<SET ST <GET-NAME-TWO .TMP>>)>
+	       <COND (<SET TMP1 <OPEN "READ" "WASTE" .ST "DSK" "COMBAT">>
+		      <CLOSE .TMP1>
+		      <COND (<AND <SET TMP1 <OPEN "READ" "COMBAT;WASTE <">>
+				  <N=? <GET-NAME-TWO .TMP1> "1">>
+			     <CLOSE .TMP1>
+			     <SET ST "1">)
+			    (T
+			     <COND (.TMP1 <CLOSE .TMP1>)>
+			     <SET ST ">">)>)>
+	       <CLOSE .TMP>
+	       <RENAME "COMBAT;RWASTE >" TO <STRING "COMBAT;WASTE " .ST>>)>
+	<COND (<SET TMP <OPEN "READ" "COMBAT;RIOT <">>
+	       <CLOSE .TMP>
+	       <SETG PLANNED "RIOT">)
+	      (<SET TMP <OPEN "READ" "COMBAT;PLAN <">>
+	       <CLOSE .TMP>
+	       <SETG PLANNED "PLAN">
+	       <COND (<AND <G=? <1 .TIM> 8>
+			   <L? <1 .TIM> 20>
+			   <G? <SET J <JONES>> 0>
+			   <L? .J 6>
+			   <NOT <HOLIDAY? <DAT>>>>
+		      <SDS "ZONE" 10000 0
+			   <- <* 20 60> <* <1 .TIM> 60> <2 .TIM> -5>>
+		      <OLOGOUT>)>)
+	      (T
+	       <COND (<AND <OR <L? <1 .TIM> 1>
+			       <G? <1 .TIM> 7>>
+			   <OR <AND <NOT <SET TMP <OPEN "READ" "COMBAT;PERMIT WASTES">>>
+				    <N==? <3 .TMP> *47000000*>
+				    <N==? <3 .TMP> *27000000*>>
+			       <NOT <OR <G=? <1 .TIM> 20>
+					<L=? <1 .TIM> 8>>>>>
+		      <SDS "ZONE" 10000 0
+			   <COND (<L? <1 .TIM> 1>
+				  <- 60 <* <1 .TIM> 60> <2 .TIM> -5>)
+				 (ELSE
+				  <- <* 25 60> <* <1 .TIM> 60> <2 .TIM> -5>)>>
+		      <OLOGOUT>)>	; "Should we run?"
+	       <COND (.TMP <CLOSE .TMP>)>
+	       <COND (<SET TMP <OPEN "READ" "COMBAT;WASTE <">>
+		      <RENAME "WASTE" <SET ST
+					   <COND (<=? <10 .TMP> "COMBAT">
+						  <8 .TMP>)
+						 (T <GET-NAME-TWO .TMP>)>>
+			      "DSK" "COMBAT"
+			      TO <STRING "COMBAT;RWASTE " .ST>>
+		      <CLOSE .TMP>)>
+	       <SETG PLANNED "RWASTE">
+	       ; "To prevent lossage with plans and wastes existing simultaneously.")>>
+
+<DEFINE HOLIDAY? (DAT "EXTRA" STR CHN)
+	#DECL ((DAT) <LIST FIX FIX FIX> (STR) STRING (CHN) <OR FALSE CHANNEL>)
+	<SET STR <MAPF ,STRING
+		<FUNCTION (NUM)
+			#DECL ((NUM) FIX (VALUE) STRING)
+			<COND	(<G=? .NUM 10> <UNPARSE .NUM>)
+				(<STRING !\0 <UNPARSE .NUM>>)>>
+	.DAT>>
+	<COND (<SET CHN <OPEN "READ" "HLIDAY" .STR "DSK" "COMBAT">>
+	       <CLOSE .CHN>
+	       T)>>
+\
+
+<DEFINE NVALRET (FOO) .FOO	;"Unused Variable" <>>
+
+<COND (<TYPE? ,VALRET SUBR> <SETG OVALRET ,VALRET>)
+      (<NOT <GASSIGNED? OVALRET>> <ERROR COMBAT VALRET>)>
+
+<DEFINE NLOGOUT () <>>
+
+<COND (<TYPE? ,LOGOUT SUBR> <SETG OLOGOUT ,LOGOUT>)
+      (<NOT <GASSIGNED? OLOGOUT>> <ERROR COMBAT LOGOUT>)>
+
+<DEFINE NERRET ("TUPLE" X)
+	#DECL ((X) TUPLE)
+	<COND (<EMPTY? .X> <ERROR COMBAT ERRET>)
+	      (T <OERRET !.X>)>>
+
+<COND (<TYPE? ,ERRET SUBR> <SETG OERRET ,ERRET>)
+      (<NOT <GASSIGNED? OERRET>> <ERROR COMBAT ERRET>)>
+
+<DEFINE NQUIT ()
+	<ERROR COMBAT QUIT>
+	<>>
+
+<COND (<TYPE? ,QUIT SUBR> <SETG OQUIT ,QUIT>)
+      (<NOT <GASSIGNED? OQUIT>> <ERROR COMBAT QUIT>)>
+
+\
+
+<DEFINE COMBAT-PRINT (OUTCHAN)
+	#DECL ((OUTCHAN) CHANNEL)
+	<COND (<GASSIGNED? COMBAT>
+	       <PRINC " (">
+	       <PRINC ,COMBAT>
+	       <PRINC ")">)>>
+
+<DEFINE COM-MESS (SN PL TI SW W
+		  "AUX" (OUTCHAN <AP-TO-FIL "COMPIL;COMPIL MAIL">))
+	#DECL ((SN PL) STRING (W) <OR FALSE ATOM>
+	       (SW) FIX (OUTCHAN) <OR FALSE CHANNEL>)
+	<COND (.OUTCHAN
+		<PRINC !\[>
+		<PRIN1 (<DAT><RTIM>)>
+		<PRINC !\ >
+		<PRINC .SN>
+		<PRINC !\ >
+		<PRINC .PL>
+		<PRINC !\ >
+		<COND (.W <PRINC "WON">)
+		      (ELSE <PRINC "LOST">)>
+		<PRINC !\ >
+		<PRIN1 .TI>
+		<PRINC !\ >
+		<PRIN1 .SW>
+		<PRINC !\]>
+		<TERPRI>)>>
+
+<ENDBLOCK>
\ No newline at end of file
diff --git a/src/combat/master.xplan b/src/combat/master.xplan
new file mode 100644
index 00000000..e69de29b
diff --git a/src/combat/privat.undr15 b/src/combat/privat.undr15
new file mode 100644
index 00000000..afcc5df4
--- /dev/null
+++ b/src/combat/privat.undr15
@@ -0,0 +1,362 @@
+<DEFINE AP-TO-FIL (FILE "AUX" (STR <ISTRING 10>) OUTCHAN SC FL) 
+	#DECL ((FILE) STRING (STR) STRING (OUTCHAN) <OR FALSE CHANNEL>
+	       (SC FL) FIX (VALUE) <OR FALSE CHANNEL>)
+	<COND (<SET OUTCHAN <OPEN "READB" .FILE>>
+	       <ACCESS .OUTCHAN <SET FL <MAX 0 <- <FILE-LENGTH .OUTCHAN> 2>>>>
+	       <SET SC
+		    <COND (<0? <FILE-LENGTH .OUTCHAN>> 0)
+			  (T <READSTRING .STR .OUTCHAN>)>>
+	       <CLOSE .OUTCHAN>
+	       <SET OUTCHAN <OPEN "PRINTO" .FILE>>
+	       <ACCESS .OUTCHAN .FL>
+	       <PRINTSTRING .STR .OUTCHAN .SC>
+	       .OUTCHAN)
+	      (<OPEN "PRINTB" .FILE>)>>
+
+<DEFINE MALE (ME FILE "AUX" (CT 0) OUTCHAN) 
+	#DECL ((ME) STRING (FILE) STRING (CT) FIX
+	       (OUTCHAN) <OR FALSE CHANNEL> (VALUE) CHANNEL)
+	<PROG ()
+	  <COND (<SET OUTCHAN <AP-TO-FIL .FILE>>
+	         <TERPRI>
+	         <PRINC "FROM ">
+	         <PRINC .ME>
+	         <PDT <DAT> !\/ .OUTCHAN>
+	         <PDT <RTIM> !\: .OUTCHAN>
+	         <TERPRI>
+	         .OUTCHAN)
+	        (<G? <SET CT <+ .CT 1>> 5> <ERROR .OUTCHAN MALE>)
+		(T
+		 <SLEEP 7>
+		 <AGAIN>)>>>
+
+<DEFINE PDT (LST SEP OUTCHAN) 
+	#DECL ((LST) <LIST [REST FIX]> (SEP) CHARACTER (OUTCHAN) CHANNEL)
+	<PRINC "  ">
+	<REPEAT ()
+		<PRINC <1 .LST>>
+		<COND (<EMPTY? <SET LST <REST .LST>>> <RETURN>)>
+		<PRINC .SEP>>>
+
+
+<TITLE IPC-ENABLE>	;"Allow user evaluation of SETZ inquiries"
+	<DECLARE ("VALUE" FIX)>
+	<PUSHJ	P* IENABLE>
+	<JRST	FINIS>
+
+<INTERNAL-ENTRY IENABLE 0>
+	<SUBM	M* (P)>
+	<MOVNI	A* 1>
+	<*SUSET	[<(*400021*) A>]>
+	<MOVSI	A* <TYPE-CODE FIX>>
+	<MOVEI	B* 0>
+	<JRST	MPOPJ>
+
+<TITLE GET-NAME-TWO>	;"Get second name of link"
+	<DECLARE ("VALUE" <OR FALSE STRING> CHANNEL)>
+	<DPUSH	TP* (AB)>
+	<PUSHJ	P* GETT1>
+	<JRST	FINIS>
+
+<INTERNAL-ENTRY GETT1 1>
+	<SUBM	M* (P)>
+	<MOVE	B* (TP)>
+	<DPUSH	TP* 4(B)>	; "First file name"
+	<MCALL	1 STSB>		; "-->sixbit"
+	<PUSH	P* B>
+	<MOVE	B* (TP)>
+	<DPUSH	TP* 6(B)>	; "Second file name"
+	<MCALL	1 STSB>
+	<PUSH	P* B>
+	<MOVE	B* (TP)>
+	<DPUSH	TP* 8(B)>	; "Device name"
+	<MCALL	1 STSB>
+	<PUSH	P* B>
+	<MOVE	B* (TP)>
+	<DPUSH	TP* 10(B)>	; "Directory"
+	<MCALL	1 STSB>
+	<PUSH	P* B>
+	<MOVE	B* (TP)>
+	<MOVE	A* 1(B)>	; "Channel number"
+	<LSH	A* *27*>
+	<IOR	A* [<*IOPUS>]>
+	<XCT	A>		; "Do iopush"
+	<*CALL	[<SETZ>
+		 <SIXBIT "OPEN">
+		 <MOVSI	*20*>	; "Don't chase links"
+		 <1(B)>		; "Channel number"
+		 <-1(P)>
+		 <-3(P)>
+		 <-2(P)>
+		 <SETZM (P)>]>
+	 <JRST	LOSOUT>
+	<*CALL	[<SETZ>
+		 <SIXBIT "RFNAME">
+		 <1(B)>
+		 <MOVEM>
+		 <MOVEM>
+		 <SETZM C>]>
+	 <*VALUE>
+	<MOVE	B* [<(*440600*) C>]>
+	<MOVEI	A* 0>
+STRLOP	<ILDB	O* B>
+	<JUMPE	O* MAKSTR>
+	<ADDI	O* *40*>
+	<ADDI	A* 1>
+	<PUSH	TP* <TYPE-WORD CHARACTER>>
+	<PUSH	TP* O>
+	<CAIGE	A* 6>
+	 <JRST	STRLOP>
+MAKSTR	<PUSHJ	P* CISTNG>	;"Cons string"
+OUT	<MOVE	C* (TP)>
+	<MOVE	C* (C)>
+	<LSH	C* *27*>
+	<IOR	C* [<*IOPOP>]>
+	<XCT	C>		;"Do iopop"
+	<SUB	TP* [<(2) 2>]>
+	<SUB	P* [<(4) 4>]>
+	<JRST	MPOPJ>
+LOSOUT	<MOVSI	A* <TYPE-CODE FALSE>>
+	<MOVEI	B* 0>
+	<JRST	OUT>
+
+
+<TITLE STSB>		;"String to Sixbit word Converter"
+	<DECLARE ("VALUE" WORD STRING)>
+	<DPUSH	TP* (AB)>
+	<PUSHJ	P* STSB1>
+	<JRST	FINIS>
+
+<INTERNAL-ENTRY STSB1 1>
+	<SUBM	M* (P)>
+	<POP	TP* D>
+	<POP	TP* O>
+	<HRRZ	O* O>
+	<CAILE	O* 6>
+	<MOVEI	O* 6>
+	<MOVSI	A* <TYPE-CODE WORD>>
+	<MOVEI	B* 0>
+	<MOVE	C* [<(*440600*) B>]>
+STLOOP	<JUMPE	O* MPOPJ>
+	<ILDB	E* D>
+	<SUBI	E* *40*>
+	<CAIL	E* *100*>
+	<SUBI	E* *40*>
+	<IDPB	E* C>
+	<SOJA	O* STLOOP>
+<END>
+
+<TITLE SDS>		;"Set Demon's Schedule"
+	<DECLARE ("VALUE" <OR ATOM FALSE> <OR STRING FIX> FIX FIX FIX)>
+	<DPUSH	TP* (AB)>
+	<DPUSH	TP* (AB) 2>
+	<DPUSH	TP* (AB) 4>
+	<DPUSH	TP* (AB) 6>
+	<PUSHJ	P* SDS4>
+	<JRST	FINIS>
+
+<INTERNAL-ENTRY SDS4 4>
+	<SUBM	M* (P)>
+	<GETYP	A* (TP) -7>		;"First Arg: DEMON Identity"
+	<CAIE	A* <TYPE-CODE STRING>>
+	<JRST	SDSFIX>
+	<PUSH	TP* (TP) -7>		;"First Arg: DEMON Name"
+	<PUSH	TP* (TP) -7>
+	<MCALL	1 STSB>
+	<MOVE	C* (TP) -4>		;"Second Arg: Sched Increment (minutes)"
+	<ASH	C* -1>			;"To (Two Minute)s from Minutes"
+	<MOVE	D* (TP) -2>		;"Third Arg: Pending Requests"
+	<HRL	D* C>
+	<MOVE	E* (TP)>		;"Fourth Arg: Time (minutes) to next Sched"
+	<JUMPE	E* DO-SDS>
+	<TRNN	E* 1>			;"Be Conservative"
+	<SOS	E>
+	<ASH	E* -1>			;"To (Two Minute)s from Minutes"
+	<JRST	DO-SDS>
+
+SDSFIX	<MOVE	B* (TP) -6>		;"First Arg"
+	<MOVE	D* (TP) -2>		;"Third Arg"
+	<HRL	D* (TP) -4>		;"Second Arg"
+	<MOVE	E* (TP)>		;"Fourth Arg"
+DO-SDS	<SUB	TP* [<8 (8)>]>
+	<*CALL	STDMST>
+	<JRST	NO-SDS>
+	<MOVSI	A* <TYPE-CODE ATOM>>
+	<MOVE	B* <MQUOTE T>>
+	<JRST	MPOPJ>
+NO-SDS	<MOVE	A* <TYPE-WORD FALSE>>
+	<SETZ	B*>
+	<JRST	MPOPJ>
+STDMST	<SETZ>
+	<SIXBIT	"STDMST">
+	<B>
+	<D>
+	<SETZ	E>
+<END>
+
+<TITLE RDS>		;"Read Demon's Schedule"
+	<DECLARE ("VALUE" <OR <VECTOR [4 FIX]> FALSE> <OR STRING FIX>)>
+	<DPUSH	TP* (AB)>
+	<PUSHJ	P* RDS1>
+	<JRST	FINIS>
+
+<INTERNAL-ENTRY RDS1 1>
+	<SUBM	M* (P)>
+	<GETYP	A* (TP) -1>
+	<CAIE	A* <TYPE-CODE STRING>>
+	<JRST	RDSFIX>
+	<MCALL	1 STSB>
+	<JRST	DO-RDS>
+RDSFIX	<MOVE	B* (TP)>
+	<SUB	TP* [<2 (2)>]>
+DO-RDS	<*CALL	RDDMST>
+	<JRST	NO-DEM>
+	<PUSH	TP* <TYPE-WORD FIX>>
+	<PUSH	TP* A>			;"DEMON's User Index"
+	<HLRZ	O* C>			;"Sched Increment in (two minute)s"
+	<ASH	O* A>			;"To minutes"
+	<PUSH	TP* <TYPE-WORD FIX>>
+	<PUSH	TP* O>
+	<HRRZ	O* C>			;"Pending Requests"
+	<PUSH	TP* <TYPE-WORD FIX>>
+	<PUSH	TP* O>
+	<PUSH	TP* <TYPE-WORD FIX>>
+	<ASH	D* A>			;"Time to Next Sched"
+	<PUSH	TP* D>
+	<MOVEI	A* 4>
+	<PUSHJ	P* CIVEC>
+	<JRST	MPOPJ>
+NO-DEM	<DMOVE	A* <PQUOTE #FALSE ("Demon not in the system table")>>
+	<JRST	MPOPJ>
+RDDMST	<SETZ>
+	<SIXBIT "RDDMST">
+	<B>
+	<(*2000*) A>
+	<(*2000*) C>
+	<SETZM	D>
+<END>
+
+<TITLE RTIM>		;"Real Time:  (Hour Minute Second)"
+	<DECLARE ("VALUE" <LIST FIX FIX FIX>)>
+	<PUSHJ	P* RTIM0>
+	<JRST	FINIS>
+
+<INTERNAL-ENTRY RTIM0 0>
+	<SUBM	M* (P)>
+	<(*42000*) B* *45*>		;".RTIME"
+	<MOVEI	C* 3>
+RTLOOP	<SETZ	A*>
+	<LSHC	A* 6>
+	<MOVEI	D* (A) -16>
+	<IMULI	D* *12*>
+	<SETZ	A*>
+	<LSHC	A* 6>
+	<ADDI	D* (A) -16>
+	<PUSH	TP* <TYPE-WORD FIX>>
+	<PUSH	TP* D>
+	<SOJG	C* RTLOOP>
+	<MOVEI	A* 3>
+	<PUSHJ	P* IILIST>
+	<JRST	MPOPJ>
+<END>
+
+<TITLE JONES>		;"DOW - Day Of Week (0 = Sunday, 1 = Monday, etc.)"
+	<DECLARE ("VALUE" FIX)>
+	<PUSHJ	P* JONES0>
+	<JRST	FINIS>
+
+<INTERNAL-ENTRY JONES0 0>
+	<SUBM	M* (P)>
+	<(*42000*) *101*>		;".RLPDT"
+	<LDB	B* [<(*320300*) A>]>
+	<MOVSI	A* <TYPE-CODE FIX>>
+	<JRST	MPOPJ>
+<END>
+
+<TITLE DAT>		;"Date:  (Year Month Day)"
+	<DECLARE ("VALUE" <LIST FIX FIX FIX>)>
+	<PUSHJ	P* DAT0>
+	<JRST	FINIS>
+
+<INTERNAL-ENTRY DAT0 0>
+	<SUBM	M* (P)>
+	<(*42000*) B* *46*>		;".RDATE"
+	<MOVEI	C* 3>
+DALOOP	<SETZ	A*>
+	<LSHC	A* 6>
+	<MOVEI	D* (A) -16>
+	<IMULI	D* 10>
+	<SETZ	A*>
+	<LSHC	A* 6>
+	<ADDI	D* (A) -16>
+	<PUSH	TP* <TYPE-WORD FIX>>
+	<PUSH	TP* D>
+	<SOJG	C* DALOOP>
+	<MOVEI	A* 3>
+	<PUSHJ	P* IILIST>
+	<JRST	MPOPJ>
+<END>
+
+<TITLE SWAPS>		;"# swaps for this job"
+	<DECLARE ("VALUE" FIX)>
+	<PUSHJ	P* ISWAPS>
+	<JRST	FINIS>
+	<INTERNAL-ENTRY ISWAPS 0>
+	<SUBM	M* (P)>
+	<MOVE	A* [<SQUOZE "L" 0>]>
+	<*EVAL	A*>
+	 <JRST	LOSS>
+	<MOVE	B* [<SQUOZE "USIPRQ" 0>]>
+	<*EVAL	B*>
+	 <JRST	LOSS>
+	<*SUSET	[<(*23*) C>]>	; ".RUIND"
+	<IMULI	A* (C)>
+	<ADDI	A* (B)>
+	<HRLI	A* (A)>
+	<HRRI	A* B>
+	<*GETLO	A*>
+	<MOVSI	A* <TYPE-CODE FIX>>
+	<JRST	MPOPJ>
+LOSS	<MOVSI	A* <TYPE-CODE FIX>>
+	<MOVEI	B* 0>
+	<JRST	MPOPJ>
+
+<TITLE LGN>		;"Login"
+	<DECLARE ("VALUE" <OR ATOM FALSE> STRING)>
+	<DPUSH	TP* (AB)>
+	<PUSHJ	P* LGN1>
+	<JRST	FINIS>
+
+<INTERNAL-ENTRY LGN1 1>
+	<SUBM	M* (P)>
+	<MCALL	1 STSB>
+	<MOVEI	C* 0>
+	<*CALL	CLOGIN>
+	<JRST	NO-LGN>
+	<MOVSI	A* <TYPE-CODE ATOM>>
+	<MOVE	B* <MQUOTE T>>
+	<JRST	MPOPJ>
+
+NO-LGN	<MOVSI	A* <TYPE-CODE FALSE>>
+	<SETZ	B*>
+	<JRST	MPOPJ>
+
+CLOGIN	<SETZ>
+	<SIXBIT "LOGIN">
+	<B>
+	<SETZ	C>
+<END>
+
+
+<TITLE ELOGOUT>		;"Emergency Logout"
+	<DECLARE ("VALUE" ANY)>
+	<PUSHJ	P* ELOG0>
+	<JRST	FINIS>
+
+<INTERNAL-ENTRY ELOG0 0>
+	<SUBM	M* (P)>
+	<(*42000*) *33*>		;".LOGOUT"
+	<MOVSI	A* <TYPE-CODE FALSE>>
+	<MOVEI	B* 0>
+	<JRST	MPOPJ>
+<END>
diff --git a/src/sysen2/demstr.50 b/src/sysen2/demstr.51
similarity index 66%
rename from src/sysen2/demstr.50
rename to src/sysen2/demstr.51
index 6a6343e2..9026b10a 100755
--- a/src/sysen2/demstr.50
+++ b/src/sysen2/demstr.51
@@ -19,15 +19,15 @@ TERMIN
 START:	.DEMON		; I HAVE ARRIVED
 	JFCL		; SOMETHING IS WRONG, BUT OK ANYWAY
 
-	DEMSIG	EGG,-1,10.		; PFTHMG DRAGON
-	DEMSIG	PAPSAV,0,10.		; SPYER ON T00; SWG 3/31/81
-	DEMSIG	UNSPOO,0,10.		; PRINTER UNSPOOLER
-	DEMSIG	SURVEY,10.,15.		; ARPANET HOST SURVEY; SWG
-	DEMSIG	COMSAT,0,10.		; MAIL DEMON; SWG 1/26/83
+;	DEMSIG	EGG,-1,10.		; PFTHMG DRAGON
+;	DEMSIG	PAPSAV,0,10.		; SPYER ON T00; SWG 3/31/81
+;	DEMSIG	UNSPOO,0,10.		; PRINTER UNSPOOLER
+;	DEMSIG	SURVEY,10.,15.		; ARPANET HOST SURVEY; SWG
+;	DEMSIG	COMSAT,0,10.		; MAIL DEMON; SWG 1/26/83
 	DEMSIG	ZONE,0,60.		; MUDDLE COMPILE BATCHER
 	DEMSIG	BATCHN,0,60.		; NEW BATCH MONITOR; SWG
-;	DEMSIG	GUNNER,0,10.		; GARBAGE MAN; TAA 12/8/77
-	DEMSIG  EXPIRE,-1,10.		; GMSGS CLEANER; CSTACY 4/8/83
+	DEMSIG	GUNNER,0,10.		; GARBAGE MAN; TAA 12/8/77
+;	DEMSIG  EXPIRE,-1,10.		; GMSGS CLEANER; CSTACY 4/8/83
 
 	.LOGOUT
 	.VALUE
diff --git a/src/taa/gunner.init b/src/taa/gunner.init
new file mode 100644
index 00000000..2d2caba9
--- /dev/null
+++ b/src/taa/gunner.init
@@ -0,0 +1,16 @@
+CPUFDG:	125000
+; ALLOWED IDLE TIMES
+NLCTIM:	20		; NOT LOGGED IN
+LOCTIM:	120		; TWO HOURS FOR LOCAL USERS
+; LOGGED-IN NET USERS
+CHNLGD:	30
+	60		; THIRTY MINUTES IF SHORT ON RESOURCES, ELSE SIXTY
+; NON-LOGGED-IN NET USERS
+CHNNLD:	10
+	10
+; HACTRN-ONLY TREES
+HACTIM:	20
+; MIN # OF STYS AND NET SOCKETS.  IF LE THIS, USE SHORTER TIMES BEFORE
+; FLUSHING NET USERS
+STYMIN:	3			; SINCE TWO CURRENTLY PATCHED OUT
+SOCMIN:	3