//  Make IDL production sysout.  At start, must be logged in with read access to <Lisp>
FTP Eris DIR/C <Lisp>KOTO>Basics RET/'#A Lisp.run lisp.syms DoradoLispMc.eb DolphinLispMc.eb RET/s Init.NOGREET init.lisp
LISP {DSK2}Full.sysout;"
SHH (DELFILE '{Dsk}INIT.LISP)
SHH (RENAMEFILE '{Dsk}INIT.SAVE '{Dsk}INIT.LISP)
SHH (CNDIR '{Qv}<PEDERSEN>LISP>)
SHH (SETQ DIRECTORIES
    (LIST '{Qv}<PEDERSEN>LISP> '{ERIS}<Lisp>KOTO>Library>NEW> '{ERIS}<Lisp>KOTO>Library> '{Eris}<Lispusers>KOTO>  '{Eris}<lisp>KOTO>Lispusers> '{ERIS}<Lispusers>))
SHH (SETQ LISPUSERSDIRECTORIES (COPY DIRECTORIES))
SHH (LOAD 'LOADIDL.DCOM)
SHH (RESETVARS (USERRECLST) (ENDLOADUP))
SHH [MAKESYS '{Qv}<IDL>SYSOUTS>DEMO.SYSOUT]
SHH (DELFILE (SELECTQ (MACHINETYPE)
		        (DORADO  '{Dsk}Dolphinlispmc.eb)
                  (DOLPHIN '{Dsk}Doradolispmc.eb)
                  NIL))
SHH (LOGOUT T)"