(FILECREATED "28-OCT-73 14:54:27" S-LOADUP)


  (LISPXPRINT (QUOTE LOADUPVARS)
              T)
  (RPAQQ LOADUPVARS ((FNS STARTUP STARTLOAD)
          (VARS S-STRGENFILES)))
(DEFINEQ

(STARTUP
  [LAMBDA (NOTCOMFLG NOTSOURCEFLG)              (* Used to create the 
                                                system)
    [AND (OR (NULL NOTCOMFLG)
             (NULL NOTSOURCEFLG))
         (MAPC S-STRGENFILES
               (FUNCTION (LAMBDA (FILE COMFILE GOTCOM)
                   (SETQ COMFILE (PACK (LIST FILE ".COM")))
                   [SETQ GOTCOM (OR (MEMB COMFILE FILELST)
                                    (AND (NOT NOTCOMFLG)
                                         (INFILEP COMFILE)
                                         (STARTLOAD COMFILE]
                   [OR NOTSOURCEFLG (STARTLOAD FILE
                                               (AND GOTCOM
                                                    (QUOTE PROP]
                   (/PUT FILE (QUOTE FILE)
                         (LIST NIL (PACK (LIST (MKATOM (SUBSTRING
                                                         FILE 3))
                                               "VARS"]
    (COND
      ((EQ (Y/N ((N . o)
                 (Y . es))
                "Turn on and off? ")
           (QUOTE Y))
        [TURNOFF (FIXFN (QUOTE MOLECULES)
                        (QUOTE L)
                        (QUOTE N)
                        (QUOTE (NIL]
        (TURNON (LIST (FIXFN (QUOTE ATTACHFVS)
                             (QUOTE L)
                             2
                             (QUOTE (NIL)))
                      (FIXFN (QUOTE ATTACHBIVS&LOOPS)
                             (QUOTE L)
                             3
                             (QUOTE (NIL)))
                      (FIXFN (QUOTE ATTACHBIVALENTS)
                             (QUOTE L)
                             2
                             (QUOTE (NIL)))
                      (FIXFN (QUOTE STRUCTURESWITHATOMS)
                             (QUOTE L)
                             2
                             (QUOTE (NIL)))
                      [FIXFN (QUOTE PERMRADS)
                             (QUOTE L)
                             1
                             (QUOTE ((STRUCINCL CLRADS]
                      (FIXFN (QUOTE GENMOL)
                             (QUOTE L)
                             (QUOTE N)
                             (QUOTE ((STRUCINCL CL])

(STARTLOAD
  [LAMBDA (FILE FLG)
    (COND
      ((MEMB FILE FILELST)
        (LISPXPRINT (CONS FILE (QUOTE (already loaded)))
                    T))
      ((EQ FLG (QUOTE PROP))
        (LISPXPRINT (LIST (QUOTE loading)
                          FILE)
                    T)
        (LOADFNS T FILE FLG)
        (SAVESETQ FILELST (CONS FILE FILELST)))
      (T (LOAD FILE FLG)))
    FILE])
)
  (RPAQQ S-STRGENFILES
         (S-LOADUP S-TOTAL S-GENLISP S-BACKTRACK S-CL S-CYCLIC S-DICT 
                   S-DRAW S-EXAMPLE S-EXPAND S-EXPLAIN S-GROUP S-INIT 
                   S-LABELER S-NEWGEN S-STRUCTURE S-TOPLEVEL S-TREE))
STOP