Syntax10.Scn.Fnt
Syntax10i.Scn.Fnt
StampElems
Alloc
12 May 96
Syntax10b.Scn.Fnt
FoldElems
Syntax10.Scn.Fnt
Syntax10i.Scn.Fnt
	(*<RD*)
		VAR res: INTEGER;
	BEGIN
		Cmd.Call("XE.Open", "Welcome.Text", res);
	END Help;
Syntax10.Scn.Fnt
Syntax10i.Scn.Fnt
	(*<RD*)
		VAR res: INTEGER;
	BEGIN
		Cmd.Call("Clipboard.Show", "", res);
	END F6;
Syntax10.Scn.Fnt
Syntax10i.Scn.Fnt
	(*<RD*)
		VAR res: INTEGER;
	BEGIN
		Cmd.Call("Clipboard.SnapShot", "", res);
	END F7;
Syntax10.Scn.Fnt
Syntax10i.Scn.Fnt
	(*<RD*)
		VAR res: INTEGER;
	BEGIN
		Cmd.Call("Doc.Open", "Prog.Guide.Text", res);
	END F8;
Syntax10.Scn.Fnt
Syntax10i.Scn.Fnt
	(*<RD*)
		VAR res: INTEGER;
	BEGIN
		Cmd.Call("ObTris.Open", "", res);
	END F9;
Syntax10.Scn.Fnt
Syntax10i.Scn.Fnt
	(*<RD*)
		VAR res: INTEGER;
	BEGIN
		Cmd.Call("Mines.Open", "", res);
	END F10;
MODULE Configuration;	(** SHML/CN/RD, 
	IMPORT Display, Input, Viewers, Cmd, Kernel, System;
	PROCEDURE Break(): BOOLEAN;
		VAR keys: SET; x, y: INTEGER;
	BEGIN
		Input.Mouse(keys, x, y);
		RETURN keys # {}
	END Break;
	PROCEDURE Help;
	PROCEDURE F6;
	PROCEDURE F7;
	PROCEDURE F8;
	PROCEDURE F9;
	PROCEDURE F10;
	PROCEDURE Init*;	(* Do initialization script *)
		VAR res: INTEGER;
	BEGIN
		Cmd.Call("System.AmigaLoop", "20", res);
		Cmd.Call("StatusViewer.Open", "", res);
		Cmd.Mark(Cmd.STrack,Cmd.Top-Viewers.minH);
		Cmd.Call("TextLoc.Install", "", res);
		Cmd.Call("Log.Open", "", res);
		IF Break() THEN RETURN END;
		Cmd.Call("XE.SysOpen", "System.Tool", res);
		Cmd.Call("XE.SysOpen", "My.Tool", res);
		Cmd.Call("XEInstaller.Start", "", res);
		System.UseQuitRequester;	(* delete this line if you do not want to see the Requester bevor quiting O4A *)
		(* Set Procedures for F Keys 6-10 and HELP *)	(*<RD*)
		Kernel.FKey[6]:=F6;
		Kernel.FKey[7]:=F7;
		Kernel.FKey[8]:=F8;
		Kernel.FKey[9]:=F9;
		Kernel.FKey[10]:=F10;
		Kernel.FKey[11]:=Help;
	END Init;
BEGIN Init
END Configuration.
Cmd.Pick *