(FILECREATED "24-AUG-73 18:56:11" STRGEN)


  (LISPXPRINT (QUOTE STRGENVARS)
              T)
  (RPAQQ STRGENVARS ((FNS STARTUP)
          (VARS STRGENFILES)))
(DEFINEQ

(STARTUP
  [LAMBDA NIL
    (for X in STRGENFILES do (if (INFILEP (PACK <X ".COM" >))
                                 then (LOAD (PACK <X ".COM" >))
                                      (LOAD X 'PROP)
                               else LOAD X))
    (TST)
    (TST2)
    (TST3)
    LPPFIXED←MBDFIXED←MBFIXED←NIL
    (FIXLPP)
    (FIXMBD)
    NO1LPFLG←NIL
    NOMBFLG←NIL
    (TURNOFF (FIXFN 'MOLECULES 'L 'N '(NIL)))
    (TURNON <(FIXFN 'ATTACHFVS 'L 2 '(NIL))
              (FIXFN 'ATTACHBIVS&LOOPS 'L 3 '(NIL))
              (FIXFN 'ATTACHBIVALENTS 'L 2 '(NIL))
              (FIXFN 'STRUCTURESWITHATOMS 'L 2 '(NIL))
              (FIXFN 'PERMRADS 'L 1 '((STRUCINCL CLRADS)))
              (FIXFN 'GENMOL 'L 'N '((STRUCINCL CL)))>])
)
  (RPAQQ STRGENFILES
         (CL CYCLIC DRAW EXAMPLE EXPAND GENLISP GROUP INIT IO LABELER 
             LAYOUT MORETOT NEWGEN STRUCTURE TOP-LEVEL TREE KLOOP 
             EXPLAIN))
STOP