(FILECREATED "11-MAR-73  2:56:55")
  (LISPXPRINT (QUOTE COLLECTVARS)
              T)
  [RPAQQ COLLECTVARS ((FNS COLLECT LISPXUSERFN RAISE LISTFILE SPOOL 
                           NOTE)
          (VARS (CURRENTFILE)
                (LISPXUSERFN T))
          (ADVISE DEFINE LOAD UNBREAK0)
          [P (RELINK (QUOTE (UNBREAK LISPXBLOCK]
          [P (COND ((NOT (GETD (QUOTE FILECREATED)))
                    (/PUTD (QUOTE FILECREATED)
                           (QUOTE (LAMBDA (STR)
                                          (LISPXPRIN1 "FILE CREATED " T)
                                          (LISPXPRIN1 STR T)
                                          (LISPXTERPRI T]
          (P (MOVD (QUOTE LISPXPRINT)
                   (QUOTE LISPXPRINTDEF]
(DEFINEQ

(COLLECT
  [LAMBDA (FILE)
    (/SET (QUOTE CURRENTFILE)
          FILE)
    (AND FILE
         (PROGN (AND (NOT (FMEMB FILE FILELST))
                     (/SET (QUOTE FILELST)
                           (CONS FILE FILELST)))
                [OR (EQ (CAAAR (SETQ FILE (FILEVARS FILE)))
                        (QUOTE FNS))
                    (/SET FILE (CONS (LIST (QUOTE FNS))
                                     (COND
                                       [(EQ (CAR FILE)
                                            (QUOTE NOBIND))
                                         (LIST (LIST (QUOTE VARS]
                                       (T (CAR FILE]
                CURRENTFILE])

(LISPXUSERFN
  [LAMBDA NIL
    (CONTROL 1)
    (CONTROL NIL)
    (COND
      ((NOT (EQ (RADIX 10)
                10))
        (LISPXPRIN1 "RADIX RESET
")))
    (COND
      ((NOT (EQ (PRINTLEVEL 1000)
                1000))
        (LISPXPRIN1 "PRINTLEVEL RESET
")))
    NIL])

(RAISE
  [LAMBDA NIL NIL])

(LISTFILE
  [LAMBDA (FIL HOST LOGIN)
    (BKSYSBUF (CONCAT "FTP
" (OR HOST (SETQ HOST (QUOTE ISI)))
                      "
LOG "
                      [OR LOGIN (GETP HOST (QUOTE LOGIN))
                          (PUT HOST (QUOTE LOGIN)
                               (PROGN (PRIN1 "LOGIN? " T)
                                      (READ T]
                      "
TE
SE " FIL "≠
≠QUI
QUI
"))
    (KFORK (SUBSYS])

(SPOOL
  [LAMBDA (FIL)
    (BKSYSBUF (CONCAT "FTP
SAIL
LO 1,LMM
TE
SE " FIL "≠
≠QUI
TELNET
SAIL
L 1/LMM
SPOOL " FIL "
K
~QUIT
QUIT
"))
    (KFORK (SUBSYS])

(NOTE
  [NLAMBDA L
    (IOFILE (QUOTE NOTES))
    (SFPTR (QUOTE NOTES)
           -1)
    (PRINT L (QUOTE NOTES))
    (CLOSEF (QUOTE NOTES])
)
  (RPAQ CURRENTFILE)
  (RPAQ LISPXUSERFN T)
(DEFLIST(QUOTE(
  [DEFINE
    (NIL (AFTER NIL
                (AND CURRENTFILE
                     (MAPC !VALUE
                           (FUNCTION
                             (LAMBDA (X)
                                     (/NCONC1
                                       (/DREMOVE X (CAAR (FILEVARS
                                                           CURRENTFILE))
                                                 )
                                       X]
  [LOAD (NIL (BIND NIL ((CURRENTFILE]
  [UNBREAK0 (NIL (AFTER NIL (SETQ LASTWORD FN]
))(QUOTE READVICE))

  (READVISE DEFINE LOAD UNBREAK0)
  (RELINK (QUOTE (UNBREAK LISPXBLOCK)))
  [COND ((NOT (GETD (QUOTE FILECREATED)))
         (/PUTD (QUOTE FILECREATED)
                (QUOTE (LAMBDA (STR)
                               (LISPXPRIN1 "FILE CREATED " T)
                               (LISPXPRIN1 STR T)
                               (LISPXTERPRI T]
  (MOVD (QUOTE LISPXPRINT)
        (QUOTE LISPXPRINTDEF))
STOP