DIRECTORYCommander,CommandTool,IO,Process,Rope,TerminalIO,UserProfile;CDStarter: CEDAR PROGRAM IMPORTS Commander, CommandTool, IO, Rope, TerminalIO, UserProfile, Process = BEGINStartPrograms: PROC[] =BEGINrunList: LIST OF Rope.ROPE = UserProfile.ListOfTokens[key: "ChipNDale.RunPrograms"];FOR l: LIST OF Rope.ROPE _ runList, l.rest WHILE l#NIL DOIF NOT Rope.IsEmpty[l.first] THEN {msg: Rope.ROPE = CommandTool.Run[bcdName: l.first].errMsg;IF msg#NIL THEN TerminalIO.WriteRope[msg];}ENDLOOP;END;TrojanHorse: PROC[] =BEGINEND;Load: Commander.CommandProc = {IO.PutRope[cmd.out, "ChipNDale loaded\n"];};Quiet: Commander.CommandProc = {};BeQuiet: Commander.CommandProc = BEGINFOR ls: LIST OF Rope.ROPE _ CommandTool.ParseToList[cmd].list, ls.rest WHILE ls#NIL DOIF ~Rope.IsEmpty[ls.first] AND Commander.Lookup[ls.first]=NIL THEN {Commander.Register[key: ls.first, proc: Quiet, doc: "command made quiet"];IF Rope.Fetch[ls.first, 0]#'/ AND Rope.Fetch[ls.first, 0]#'[ THEN {r: Rope.ROPE _ Rope.Concat["///Commands/", ls.first];IF Commander.Lookup[r]=NIL THEN Commander.Register[key: r, proc: Quiet, doc: "command made quiet"];};};ENDLOOP;END;StartPrograms[];TRUSTED {Process.Detach[FORK TrojanHorse[]]};Commander.Register[  key: "///Commands/ChipNDale", proc: Load,doc: "loads technology independent ChipNDale"];Commander.Register[  key: "///Commands/BeQuiet", proc: BeQuiet,doc: "makes this load file beeing quiet"];END.   Ü  CDStarter.mesa   (part of ChipNDale)Copyright c 1983, 1986 by Xerox Corporation.  All rights reserved.by Christian Jacobi,  November 7, 1983 5:39 pm Last Edited by: Jacobi July 24, 1986 10:32:07 am PDT-- This is typically commented out in released versions-- but active in private or pre-released versionstrojanHorse: Rope.ROPE = "/ivy/jacobi/cd23/CDTroja23";TRUSTED {Process.SetPriority[Process.priorityBackground]};[] _ CommandTool.Run[bcdName: trojanHorse];Ê›  ˜ codešœ$™$Kšœ
Ïmœ7™BKšœ/™/K™4K˜ —šÏk	˜	Kšœ
˜
Kšœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ˜—K˜ šÐbl	œžœžœ˜KšžœF˜M—Kšž˜K˜ šÏnœžœ˜Kšž˜Kšœ	žœžœžœ:˜Tšžœžœžœžœžœžœž˜9šžœžœžœ˜#Kšœ
žœ,˜:Kšžœžœžœ˜*Kšœ˜—Kšžœ˜—Kšžœ˜—K˜ š œžœ˜Kšž˜K™7K™1Kšœžœ ™6Kšžœ3™:Kšœ+™+Kšžœ˜—K™ š œ˜Jšžœ(˜*Jšœ˜J˜ —š œ˜"J˜ —šÏbœ˜!Jšž˜šžœžœžœžœ.žœžœž˜Všžœžœžœžœ˜DJšœJ˜Jšžœžœž˜CJšœžœ)˜5šžœžœžœ˜ JšœC˜C—J˜—J˜—Jšžœ˜—Jšžœ˜J˜ —Kšœ˜Kšžœžœ˜-šœ˜J˜J˜J˜-Jšœ˜—šœ˜Jšœ˜Jšœ˜J˜(Jšœ˜—Kšžœ˜K˜ K˜ — …—    Æ  
=  