// LoadFullFromDLInit.cm, edited 15 Sept, Kaplan

FTP/-E ERIS Login/C Lisp.Auto WN11XS Directory/C Lisp>Harmony>Basics Ret/<>A Lisp.run DoradoLispMc.eb DolphinLispMc.eb;

Lisp [ERIS]<Lisp>Harmony>Basics>Init.dlinit ;" (* FOO IS AN ATOM NOW)
LOADUP(HUGE]
(SETQ MAKESYSNAME (QUOTE HARMONY))
(HARDRESET] 
SHH(ENDLOADUP] 
SHH(SPECVARS . T]
SHH(MAKESYS '{ERIS}<LISP>Harmony>Basics>LISP.SYSOUT]  
SHH(SETQQ DISPLAYFONTDIRECTORIES ({ERIS}<LISP>FONTS> {INDIGO}<ALTOFONTS> {INDIGO}<ALTOFONTS>ORIGINAL>))
SHH(SETQQ DISPLAYFONTEXTENSIONS (DISPLAYFONT STRIKE AC))
SHH(SETQQ PRESSFONTWIDTHSFILES ({ERIS}<LISP>FONTS>FONTS.WIDTHS {INDIGO}<FONTS>FONTS.WIDTHS))
SHH(SETQQ INTERPRESSFONTDIRECTORIES ({ERIS}<LISP>FONTS> {INDIGO}<ALTOFONTS> {INDIGO}<ALTOFONTS>ORIGINAL>))
LOADUP((DPUPFTP TEDIT READNUMBER EDITBITMAP MAILCLIENT GRAPEVINE LAFITE MTP FILEBROWSER READSYS RDSYS REMOTEVMEM GRAPHER SPY SINGLEFILEINDEX AREDIT WHEREIS]
ENDLOADUP]
SHH(MAKESYS '{ERIS}<LISP>Harmony>Basics>FULL.SYSOUT]
SHH(LOGOUT] "