CONN {QV}1.3K>NEXT> LOAD[LISTEN.DCOM] LOAD[LISP>GIVE-AND-TAKE.DCOM] (SETQ NC.LOADFLG NIL) LOAD[NOTECARDS.DCOM] (SETQ NC.FILES NC.Files) (SETQ NC.DCOMS (FOR FILE IN (REMOVE 'POSTRELEASEPATCHES NC.FILES) COLLECT (MKATOM (CONCAT FILE ".DCOM")))) (FOR FILE IN NC.DCOMS DO (LOAD? FILE)) (FOR FILE IN NC.FILES DO (LOAD? FILE 'PROP)) TAKE[PATCHLOADER] LOAD[PATCHLOADER] DC PATCHLOADER (FOR PATCH IN '() DO (LOAD PATCH 'PROP)) FILES?] (MAKEFILES '(RC ST) NC.FILES) DC PATCHLOADER MAKEFILE[PATCHLOADER] FB PATCHLOADER* , delete older versions> GIVE[PATCHLOADER] (COPYFILES NC.FILES '{QV}1.3K>) (COPYFILES NC.DCOMS '{QV}1.3K>) (COPYFILES '{QV}1.3K>NEXT>LIBRARY>* '{QV}1.3K>LIBRARY>) (COPYFILE '{QV}1.3K>NEXT>POSTRELEASEPATCHES '{QV}1.3K>POSTRELEASEPATCHES) Alpha>Loops.sysout> FTP CF RET/S CURRENT>INIT-NOGREET.DCOM INIT.NOGREET RENAME INIT.LISP INIT.GREET RENAME INIT.NOGREET INIT.LISP LISP []LOOPS.SYSOUT SHH LOAD[{QV}1.3K>NOTECARDS.DCOM SYSLOAD] SHH (SETTOPVAL 'LISPXHISTORY '(NIL 99 100 100)) SHH (MAKESYS '{QV}1.3K>NOTECARDS.SYSOUT "Koto / Loops / NoteCards 1.3k"] GACHA GACHA ?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8)) œ 6'a''I£[; ½D zº