ð¤Syntax10.Scn.FntSyntax10i.Scn.Fnt õÿÿÿð+ÀÔStampElemsAlloc23 Nov 97³Syntax10b.Scn.FntKJMODULE Configuration; (** SHML/CN,  **) IMPORT Cmd,Console,Display,Input,Modules; PROCEDURE Break(): BOOLEAN; VAR keys: SET; x,y: INTEGER; BEGIN Input.Mouse(keys,x,y); RETURN keys # {} END Break; PROCEDURE preload(name:ARRAY OF CHAR); VAR dummy:Modules.Module; BEGIN Console.Str("Preload "); Console.Str(name); dummy:=Modules.ThisMod(name); IF dummy#NIL THEN Console.Str(" succeded."); ELSE Console.Str(" failed."); END; Console.Ln; END preload; PROCEDURE Init*; (* Do initialization script *) VAR res:INTEGER; BEGIN IF Break() THEN Console.Str("Mouse press detected, opening only log."); Console.Ln; Cmd.Call("System.OpenLog","",res); (* This should always work. *) ELSE Console.Str("Open log"); Console.Ln; Cmd.Call("System.OpenLog","",res); Console.Str("Open Claudio.Tool"); Console.Ln; Cmd.Call("System.Open","Claudio.Tool",res); Console.Str("Install LocElems"); Console.Ln; Cmd.Call("LocElems.Install","",res); Console.Str("Install TextLoc"); Console.Ln; Cmd.Call("TextLoc.Install","",res); END; END Init; BEGIN Init; END Configuration. Cmd.Pick *