FTP PHYLUM DIR LISPCORE>FUGUE RET/'# LISP.RUN LISP.SYMS DORADOLISPMC.EB DOLPHINLISPMC.EB; LISP [PHYLUM]<LISPCORE>FUGUE>NONET.SYSOUT;(PROGN(CNDIR '{PHYLUM}<JLISP>)(MOVD 'NILL '\CREATEPRESSFONT)(LOAD 'LOADJDEMO)(LOADJDEMO 'CORE) (CNDIR '{PHYLUM}<LFG>PARSER>) (LOAD 'LOADLFG.DCOM 'SYSLOAD) (LOADLFGDEMO) (MOVD 'NILL '\ETHEREVENTFN) (MOVD 'NILL 'CHANGEHOST?)(CNDIR '{PHYLUM}<JLISP>) (SETQ SYSOUTGAG T)(SYSOUT 'COREJLFGDEMO.SYSOUT)(TURN.OFF.ETHER)(HARDRESET)(CLEARW (TTYDISPLAYSTREAM)) (PACK]