; Dieser Installer wurde mit freundliche Genehmigung von Angela
; Schmidt von der "Meeting Pearls II" entnommen und auf die "Gateway"
; angepaßt. Danke Angela!

; Dies ist das Install-Programm für die Meeting Pearls Volume 2
; Es ist Copyright (C) 1995 by Angela Schmidt, Neu-Ulm, Germany und
; darf AUSSCHLIESSLICH in Verbindung mit der Meeting Pearls CD oder
; privat benutzt werden. Weitergehende Nutzung, insbesondere Nutzung
; und Verbreitung auf anderen CD-ROMs, ist NICHT gestattet.
; Es ist NICHT gestattet, geänderte Versionen dieses Skripts in
; irgendeiner Art zu verbreiten.
; Für Sondergenehmigungen setzen Sie sich bitte mit
;    Angela Schmidt
;    Klosterweg 28/I501
;    D-76131 Karlsruhe
;    Germany
; in Verbindung.

(set osversion (/ (getversion) 65536))
(set volname (expandpath (":")))
(set metaprefs "S:MetaTool.prefs")

(if (<= osversion 34)
	(
		(set oldlevel @user-level)
		(user 2)
	)
)

(set langnum
	(askchoice
		(prompt "")
		(help "Please select your favourite language.\n\n" "Bitte wählen Sie ihre bevorzugte Sprache.")
		(choices
			"Deutsch"
			"English"
;			"Français"
		)
		(default
			(if (patmatch @language "Deutsch")
				0
				(if (patmatch @language "English")
					1
;					(if (patmatch @language "Français")
;						2
;						0
;					)
					0
				)
			)
		)
	)
)

(if (<= osversion 34)
	(user oldlevel)
)

(if (= langnum 0) (set langstring "Deutsch"))
(if (= langnum 1) (set langstring "English"))
(if (= langnum 2) (set langstring "Français"))

; Hier folgen die Strings, die für die deutsche Übersetzung benötigt
; werden. Bei Übersetzungen in andere Sprachen einfach den folgenden
; Block komplett kopieren und die Texte ändern. Die Steuerzeichen
; sollten unverändert bleiben. Wer irgendwo eine Zeile hinzufügen oder
; löschen möchte, muß dir Anzahl der "%s" entsprechend anpassen - für
; jede Zeile steht ein "%s".

(if (patmatch langstring "Deutsch")
	(
		(set ja_antwort
			"Ja"
		)
		(set nein_antwort
			"Nein"
		)
		(set warning_old_os
			(
				"%s%s"
				"Bitte bringen Sie Ihr Betriebssystem auf den neuesten Stand, denn ansonsten haben Sie mit Problemen zu rechnen! "
				"Diese CD läuft zwar prinzipiell auch unter Kickstart 1.2/1.3, aber mit dem Anzeigen von Bildern und einigen anderen Dingen werden Sie Ihre "
			)
		)
		(set intro_msg
			("%s%s%s%s%s"
				"Willkommen zur Gateway! CD-ROM!\n\n"
				"Sie sollten dieses Script vor jeder Benutzung der Gateway! CD-ROM "
				"starten - in erster Linie, um ein paar Assigns zu aktivieren. Starten Sie hierzu "
				"das Skript einfach im Novice-Modus. Es werden dann keine dauerhaften Änderungen an Ihrem System vorgenommen.\n\n"
				"Wenn Sie möchten, können Sie im Expert-Modus auch Ihre bevorzugten Anzeigeprogramme für einige Datentypen einstellen oder alle dauerhaften Änderungen wieder de-installieren."
			)
		)
		(set ask_install
			"Bitte wählen Sie, ob Sie Dinge für die Gateway! installieren oder de-installieren möchten."
		)
		(set ask_install_help
			("%s%s"
				"Beim Installieren werden nur dann dauerhafte Änderungen an Ihrem System vorgenommen, wenn Sie zugestimmt haben.\n\n"
				"Beim De-Installieren werden alle bisher vorgenommenen dauerhaften Änderungen wieder beseitigt."
			)
		)
		(set install_it
			"Installieren"
		)
		(set de_install_it
			"Entfernen (De-Installieren)"
		)
		(set activate_assigns
			("%s%s%s%s%s"
				"Sollen Ihrem System ein paar Assigns hinzugefügt werden, damit einige "
				"auf der CD installierte Programme direkt startbar werden? (Diese Assigns "
				"werden nicht in S:user-startup eingefügt - nach dem Booten merken Sie also "
				"nichts mehr davon.)\n\n"
				"Empfehlung: Ja"
			)
		)
		(set activate_assigns_help
			("%s%s"
				"Ich empfehle Ihnen \"Ja\" - es kann nichts kaputtgehen und spätestens "
				"nach einem Reset ist alles wieder beim Alten."
			)
		)
		(set choose_viewer
			("%s%s%s%s%s%s%s"
				"Möchten Sie nun noch einstellen, welche Programme zum Ansehen von Texten, "
				"AmigaGuides, Bildern etc. verwendet werden sollen?\n\n"
				"Dadurch wird die Dateie \""
				metaprefs
				"\" erzeugt.\n\n"
				"Diese Einstellungen sind dann auch automatisch nach jedem Reset aktiv.\n\n"
				"Lesen Sie UNBEDINGT die Hilfe-Seite!"
			)
		)
		(set choose_viewer_help1
			("%s%s%s%s"
				"Wir haben bereits geeignete Programme für Sie vorausgewählt. Es ist also "
				"nicht unbedingt nötig, diese selber zu konfigurieren. Falls Sie Power-User "
				"sind, werden Sie es sowieso bevorzugen, unser MetaTool von Hand an Ihre persönliche "
				"Umgebung anzupassen.\n\n"
			)
		)
		(set choose_viewer_help2
			("%s%s%s%s"
				"Selbst wenn Sie alle Vorschläge dieses Installier-Programmes direkt übernehmen, "
				"werden an manchen Stellen danach andere Anzeigeprogramme verwendet als zuvor. "
				"Dies liegt daran, daß dieses Installier-Programm versucht, möglichst gute "
				"Vorschläge zu machen, die für unser MetaTool passend sind. "
			)
		)
		(set choose_viewer_help4
			("%s%s%s%s%s%s"
				"Falls Sie nach der Installation irgendwelche Probleme beim Anklicken einiger Piktogramme "
				"haben, oder falls Ihnen die ursprüngliche Konfiguration besser gefallen hat, sollten Sie "
				"entweder \"S:MetaTool.prefs\" von Hand nachbearbeiten (als Vorlage hierfür schlage ich Ihnen \""
				(expandpath
					(if (<= osversion 36)
						(
							":MetaTool/MetaTool33.config"
						)
						(
							(if (< osversion 39)
								(
									":MetaTool/MetaTool37.config"
								)
								(
									":MetaTool/MetaTool39.config"
								)
							)
						)
					)
				)
				"\" vor) oder dieses Skript nochmals im Export-Modus verwenden, dann allerdings "
				"\"de-installieren\" anwählen."
			)
		)
		(set change_which_filetypes_help5
			(
				"%s%s"
				"\n\nNOTIZ: Voreinstellungen, die mit dem Schlüsselwort CLI anfangen sind Programme, "
				"die in einer CLI-Umgebung gestartet werden."
			)
		)
		(set change_which_filetypes
			"Zu welchen Filetypen sollen die Anzeigeprogramme konfiguriert werden? Lesen Sie die Hilfe-Seite!"
		)
		(set change_which_filetypes_help1
			(
				"%s%s%s%s%s"
				"Folgende Bedeutung haben die verschiedenen Filetypen:\n\n"
				"TEXT  - normale Texte\n"
				"GUIDE - AmigaGuide-Dokumente\n"
				"HTML  - html-Seiten\n"
			)
		)
		(set change_which_filetypes_help2
			(
				"%s%s%s%s"
				"REXX  - Rexx-Scripten\n"
				"PS    - PostScript-Dateien\n"
			)
		)
		(set change_which_filetypes_help3
			(
				"%s%s%s%s%s"
				"DVI   - DVI-Dokumente\n"
				"TEX   - TeX-Sourcecodes\n"
				"\nVoreinstellungen:\n"
			)
		)
		(set sel_text
			"Bitte wählen Sie ein Programm zum Anzeigen von Textdateien."
		)
		(set sel_guide
			"Bitte wählen Sie ein Programm zum Betrachten von AmigaGuide-Dateien."
		)
		(set sel_html
			"Bitte wählen Sie ein Programm zum Betrachten von HTML-Dateien."
		)
		(set sel_rexx
			"Bitte wählen Sie ein Programm zum Starten von Rexx-Skripten."
		)
		(set sel_ps
			"Bitte wählen Sie ein Programm zum Betrachten von Postscript-Dateien."
		)
		(set sel_dvi
			"Bitte wählen Sie ein Programm zum Anzeigen von DVI-Dateien."
		)
		(set sel_tex
			"Bitte wählen Sie ein Programm für TeX-Dateien."
		)
		(set start_from_wb1
			"\n\nWählen Sie zunächst, ob das Programm von der Workbench oder vom CLI aus gestartet werden soll.\n\nEmpfehlung: "
		)
		(set start_from_wb2
			"\nEmpfohlenes Programm: "
		)
		(set start_from_wb_help_1
			("%s%s%s%s%s%s"
				"Es gibt zwei Möglichkeiten, das Anzeigeprogramm zu starten:\n\n"
				"1) Von der Workbench aus. Das ist dann (fast) so, als hätten Sie das entsprechende "
				"Programm als DefaultTool in das Project-Icon eingetragen.\n\n"
				"2) Vom CLI aus. Das ist dann etwa so, als würden Sie im CLI einen Programmnamen, "
				"eventuell ein paar Parameter und auch irgendwo den Namen des anzuzeigenden bzw. "
				"abzuspielenden Objekts eingeben.\n\n"
			)
		)
		(set start_from_wb_help_2
			("%s%s%s%s"
				"Wenn Sie das Programm von der Workbench aus starten wollen, können Sie Ihr "
				"Lieblings-Anzeige- oder -Abspiel-Programm mit Hilfe eines Dateiauswahlrequesters "
				"wählen. Wollen Sie das Programm vom CLI aus starten, müssen Sie die Kommandozeile "
				"von Hand eingeben.\n\n"
			)
		)
		(set choosewbprg_help
			("%s%s"
				"Das Programm, das Sie hier wählen, wird - (fast) als hätten Sie es direkt im DefaulTool "
				"der Project-Icons eingetragen - zum Anzeigen des entsprechenden Datentyps benutzt, wenn Sie auf ein entsprechendes Icon klicken."
			)
		)
		(set enter_cmdline
			"\n\nGeben Sie die gesamte Kommandozeile mit allen Optionen ein. Wählen Sie ggf. die Hilfe-Seite!"
		)
		(set enter_cmdline_help
			("%s%s%s"
				"Geben Sie den Befehl so ein, als würden Sie das Programm vom CLI aus starten. "
				"Markieren Sie die Stelle, an der der Dateiname eingefügt werden soll, mit \"[]\".\n\n"
				"Beispiel: \"ZeigeDatei NAME=[] OPTIONEN=meine_optionen\""
			)
		)
		(set wanna_copy_to_envarc
			("%s%s%s"
				"Wollen Sie einige Umgebungsvariablen nach ENVARC: kopieren? "
				"Dieses Install-Skript macht Gebrauch von diesen Variablen, falls "
				"sie existieren und läuft dann deutlich komfortabler."
			)
		)
		(set wanna_copy_to_envarc_help
			("%s%s%s%s%s"
				"Wenn Sie die Umgebungsvariablen nicht kopieren, wird dieses "
				"Install-Skript nach einem Reset Ihre bereits getroffenen "
				"Entscheidungen nicht mehr kennen und daher nicht mehr voreinstellen "
				"können. Andererseits verlängert das Kopieren die Bootzeit ein "
				"klitzekleinwenig..."
			)
		)
	)
)
(if (patmatch langstring "English")
	(
		(set ja_antwort
			"Yes"
		)
		(set nein_antwort
			"No"
		)
		(set warning_old_os
			(
				"%s%s"
				"Please update the operating system, because otherwise there will be some problems using this CD. "
				"In principle this CD is still usable under Kickstart 1.2/1.3, BUT you will find it difficult to view all pictures and several other things will not work either. "
			)
		)
		(set intro_msg
			("%s%s%s%s%s"
				"Welcome at the Gateway! CD-ROM!\n\n"
				"You should start this script before you use the CD-ROM to "
				"add some assigns to your system. Therefore, simply run the script in novice mode. "
				"In this case, no lasting changes will be done to your system.\n\n"
				"If you want, you also can specify your preferred viewing programs for some data types using the expert mode. Additionally, you might want to de-install things."
			)
		)
		(set ask_install
			"Please choose, if you want to install or de-install things for Gateway!."
		)
		(set ask_install_help
			("%s%s"
				"If you want to install things, we'll only do lasting changes to your system, if you agreed before.\n\n"
				"If you want to de-install things, we'll remove any lasting changes from your system."
			)
		)
		(set install_it
			"install"
		)
		(set de_install_it
			"de-install"
		)
		(set ask_babel
			("%s%s"
				"If you use BabelCDROMFS: shall we switch to caseinsensitive filenames and create a FSSM? "
				"Suggestion: Yes"
			)
		)
		(set ask_babel_help
			("%s%s%s%s%s%s"
				"This CD-ROM uses RockRidge extentions which are normally dealed in a casesensitive "
				"way if you use BabelCDROMFS. This means, if any program wants to load the file "
				"\"test\", which however is saved as \"Test\" on this CD-ROM, this file won't "
				"be found. If you use BabeCDROMFS, you should select \"Yes\" here and so allow "
				"switching to caseinsensitive filename mode.\n\n"
				"As a little extra feature, you'll get a FSSM, which makes some problems with some programs disappear."
			)
		)
		(set activate_assigns
			("%s%s%s%s%s"
				"Shall some Assigns be activated, to make some of the programs "
				"on this CD ready for instant startup? (These Assigns will not be installed "
				"in the s:user-startup file - so after the next reset everything will be back "
				"as normal.)\n\n"
				"Suggestion: Yes"
			)
		)
		(set activate_assigns_help
			("%s%s"
				"I suppose the selection of \"Yes\" - nothing will be broken in your system and "
				"everything returns to its original state after the next reset."
			)
		)
		(set choose_viewer
			("%s%s%s%s%s%s%s"
				"Do you want to choose now your preferred programs to view texts, amigaguides, "
				"pictures etc.?\n\n"
				"This creates the file \""
				metaprefs
				"\".\n\n"
				"These settings then will be also automatically active after a reset.\n\n"
				"You REALLY should read the help page now!"
			)
		)
		(set choose_viewer_help1
			("%s%s%s%s"
				"We already have choosen some viewing programs for you. So it is "
				"not necessary to configure them here. If you are poweruser, you "
				"probably will prefer to configure our MetaTool for your personal use "
				"using any text editor.\n\n"
			)
		)
		(set choose_viewer_help2
			("%s%s%s%s"
				"Even if you confirm the suggestions of this installer program, afterwards, "
				"we will use some other viewing programs than before. The reason for this "
				"behaviour is, that this installer program tries to find programs that are "
				"suitable for our MetaTool. "
			)
		)
		(set choose_viewer_help4
			("%s%s%s%s%s%s"
				"If you have any problems after this installation while double-clicking on some "
				"icons or if you prefer the original configuration, you either should edit \""
				"S:MetaTool.prefs\" using your editor (I suggest to use \""
				(expandpath
					(if (<= osversion 36)
						(
							":MetaTool/MetaTool33.config"
						)
						(
							(if (< osversion 39)
								(
									":MetaTool/MetaTool37.config"
								)
								(
									":MetaTool/MetaTool39.config"
								)
							)
						)
					)
				)
				"\" as model) or you should run this script once more using the expert mode, but "
				"then you should choose \"de-install\"."
			)
		)
		(set change_which_filetypes
			"Which viewing programs do you want to customize? Read the help-page!"
		)
		(set change_which_filetypes_help1
			(
				"%s%s%s%s%s"
				"The following list describes the meaning of the filetypes:\n\n"
				"TEXT  - normal text documents\n"
				"GUIDE - AmigaGuide documents\n"
				"HTML  - html pages\n"
			)
		)
		(set change_which_filetypes_help2
			(
				"%s%s%s%s"
				"REXX  - Rexx scrips\n"
				"PS    - PostScript files\n"
			)
		)
		(set change_which_filetypes_help3
			(
				"%s%s%s%s%s"
				"DVI   - DVI documents\n"
				"TEX   - TeX source codes\n"
				"\nDefaults:\n"
			)
		)
		(set change_which_filetypes_help4
			(
				"%s%s"
				"\n\nNOTE: Defaults that begin with the keyword CLI are programs that will be "
				"run from a CLI environment."
			)
		)
		(set sel_text
			"Please choose a program to show text files."
		)
		(set sel_guide
			"Please choose a program to view AmigaGuide files."
		)
		(set sel_html
			"Please choose a program to view HTML-files."
		)
		(set sel_rexx
			"Please choose a program to start rexx scripts."
		)
		(set sel_ps
			"Please choose a program to view postscript files."
		)
		(set sel_dvi
			"Please choose a program to show DVI files."
		)
		(set sel_tex
			"Please choose a program for TeX files."
		)
		(set start_from_wb1
			"\n\nPlease choose first, if the program should be started from Workbench or CLI.\n\n Suggestion: "
		)
		(set start_from_wb2
			"\nSuggested program: "
		)
		(set start_from_wb_help_1
			("%s%s%s%s%s%s"
				"There are two possibilities to start the viewing program:\n\n"
				"1) Using the Workbench. This behaves (nearly) as to change the defaulttool "
				"of the project-icon.\n\n"
				"2) Using the CLI. This is about the same as to enter a program name "
				"and maybe some parameters and anywhere the name of the project you want to "
				"show in the CLI.\n\n"
			)
		)
		(set start_from_wb_help_2
			("%s%s%s%s"
				"If you want to start the program using the Workbench, you can choose your "
				"favourite viewing program using a filerequester. "
				"If you want to start the program using the CLI, you have to enter the "
				"command line into a string gadget without filerequester support.\n\n"
			)
		)
		(set choosewbprg_help
			("%s%s"
				"The program you choose here will be executed if you click on a project icon "
				"that represents such a data type - just as if you changed the default tool."
			)
		)
		(set enter_cmdline
			"\n\nPlease enter the whole command line with all options. Choose the help page if you don't know how to do this!"
		)
		(set enter_cmdline_help
			("%s%s%s"
				"Enter the command as if you would start the program using the CLI. "
				"Put \"[]\" at the place where the filename you want to view should be added.\n\n"
				"Example: \"ShowStuff NAME=[] OPTIONS=myoptions\""
			)
		)
		(set wanna_copy_to_envarc
			("%s%s%s"
				"Do you want to copy some enviroment variables to the ENVARC: drawer? "
				"This install script makes use of these variables and will work "
				"more comfortably when they exist."
			)
		)
		(set wanna_copy_to_envarc_help
			("%s%s%s%s%s"
				"If you choose not to copy the enviroment variables then this install "
				"script will not remember your previous decisions after the next "
				"reset and will therefore not be able to declare these decisions as "
				"defaults. On the other hand the copying will slow down the startup "
				"process a teeny-weeny bit..."
			)
		)
	)
)
;(if (patmatch langstring "Français")
;	(abort "Français n'est pas encore traduiré, je regrette!")
;)

(if (<= osversion 34)
	(if (= 0 @user-level)
		(
			(user 1)
			(message
				warning_old_os
			)
			(user 0)
		)
		(message
			warning_old_os
		)
	)
)

(complete 10)

(message
	intro_msg
)

(complete 11)

(set installit
	(askchoice
		(prompt ask_install)
		(choices install_it de_install_it)
		(help ask_install_help)
		(default 0)
	)
)

(complete 12)

(if (= installit 0)
	(								; install it
		(complete 13)

		(set configviewer
			(askbool
				(prompt choose_viewer)
				(help choose_viewer_help1 choose_viewer_help2 choose_viewer_help3 choose_viewer_help4)
				(choices ja_antwort nein_antwort)
				(default 0)
			)
		)

		(if (= 1 configviewer)
			(
				(if (AND (= 2 (exists "ENV:" (noreq))) (= 0 (exists "ENV:Gateway" (noreq))))
					(makedir "ENV:Gateway")
				)

				(set i 0)
				(while
					(set envvarname
						(select i
							"VIEW_TEXT"
							"VIEW_GUIDE"
							"VIEW_HTML"
							"VIEW_REXX"
							"VIEW_PS"
							"VIEW_DVI"
							"VIEW_TEX"
							""
						)
					)

					(
						(set wbprograms							; set default for KS 1.2/1.3
							(select i
								"SYS:Utilities/More"				; TEXT
								"SYS:Utilities/AmigaGuide"		; GUIDE
								"SYS:Utilities/More"				; HTML
								"SYS:Rexxc/rx"						; REXX
								"SYS:Utilities/More"				; PS
								"TeX:bin/showdvi"					; DVI
								"SYS:Utilities/More"				; TEX
							)
						)

						(set cliprograms							; set default for KS 1.2/1.3
							(select i
								""													; TEXT
								""													; GUIDE
								""													; HTML
								""													; REXX
								""													; PS
								""													; DVI
								""													; TEX
							)
						)

						(if (< osversion 39)
							(							; overwrite for OS 2.04
								(set wbprograms
									(select i
										"SYS:Utilities/More"								; TEXT
										"SYS:Utilities/AmigaGuide"						; GUIDE
										""														; HTML
										"SYS:Rexxc/rx"										; REXX
										""														; PS
										"TeX:bin/showdvi"									; DVI
										"SYS:Utilities/More"								; TEX
									)
								)
								(set cliprograms
									(select i
										""														; TEXT
										""														; GUIDE
										"Execute :Mosaic []"								; HTML
										""														; REXX
										":Amiga/Contrib/HWGPOST/Post [] SCREEN"		; PS
										""														; DVI
										""														; TEX
									)
								)
							)
							(							; overwrite for OS 3.0
								(set wbprograms
									(select i
										"SYS:Utilities/More"								; TEXT
										"SYS:Utilities/MultiView"						; GUIDE
										""														; HTML
										"SYS:Rexxc/rx"										; REXX
										"SYS:Utilities/MultiView"						; PS
										"TeX:Bin/showdvi"									; DVI
										"SYS:Utilities/More"								; TEX
									)
								)
								(set cliprograms
									(select i
										""														; TEXT
										""														; GUIDE
										"Execute :Mosaic []"								; HTML
										""														; REXX
										""														; PS
										""														; DVI
										""														; TEX
									)
								)
							)
						)

						(if (<> "" wbprograms)
							(
								(set suggestion wbprograms)
								(set suggwb 1)
								(set suggcli 0)
							)
							(
								(if (<> "" cliprograms)
									(
										(set suggestion cliprograms)
										(set suggcli 1)
										(set suggwb 0)
									)
									(
										(set suggestion "")
										(set suggcli 0)
										(set suggwb 0)
									)
								)
							)
						)


						(if (NOT (exists ("ENV:Gateway/%s" envvarname) (noreq)))
							(
								(run ("SetEnv Gateway/%s \"%s\"" envvarname suggestion))		; set default
								(if (= 1 suggcli)
									(run ("SetEnv Gateway/%s \"CLI %s\"" envvarname suggestion))
								)
							)
						)

						(set i (+ i 1))
					)
				)

				(complete 20)

				(onerror
					(run "delete S:MetaTool.prefs")
					(run "delete ENV:Gateway/VIEW_#?")
				)

				(textfile
					(dest metaprefs)
					(append ";MetaTool Configuration File")
					(append "\n\n")
				)

				(set viewerbits
					(askoptions
						(prompt change_which_filetypes)
						(help
							change_which_filetypes_help1
							change_which_filetypes_help2
							change_which_filetypes_help3
							change_which_filetypes_help4
							"\nTEXT  - " (getenv "Gateway/VIEW_TEXT")
							"\nGUIDE - " (getenv "Gateway/VIEW_GUIDE")
							"\nHTML  - " (getenv "Gateway/VIEW_HTML")
							"\nREXX  - " (getenv "Gateway/VIEW_REXX")
							"\nPS    - " (getenv "Gateway/VIEW_PS")
							"\nDVI   - " (getenv "Gateway/VIEW_DVI")
							"\nTEX   - " (getenv "Gateway/VIEW_TEX")
							change_which_filetypes_help5
						)
						(choices
							"TEXT"
							"GUIDE"
							"HTML"
							"REXX"
							"PS"
							"DVI"
							"TEX"
						)
					)
				)

				(set i 0)
				(while
					(set mytext
						(select i
							sel_text
							sel_guide
							sel_html
							sel_rexx
							sel_ps
							sel_dvi
							sel_tex
							""
						)
					)
					(
						(set thisname
							(select i
								"VIEW_TEXT"
								"VIEW_GUIDE"
								"VIEW_HTML"
								"VIEW_REXX"
								"VIEW_PS"
								"VIEW_DVI"
								"VIEW_TEX"
							)
						)

						(set suggestion (getenv  ("Gateway/%s" thisname)))
						(if (= (substr suggestion 0 4) "CLI ")
							(
								(set useenvironment 1)
								(set suggestion (substr suggestion 4))
								(set suggestiontype "CLI")
							)
							(
								(set useenvironment 0)
								(set suggestiontype "Workbench")
							)
						)

						(if (IN viewerbits i)
							(
								(complete (+ 20 (* 4 i)))

								(set useenvironment
									(askchoice
										(prompt ("%s%s%s%s%s" mytext start_from_wb1 suggestiontype start_from_wb2 suggestion))
										(help start_from_wb_help_1 start_from_wb_help_2 start_from_wb_help_3)
										(choices "Workbench" "CLI")
										(default useenvironment)
									)
								)

								(complete (+ 22 (* 4 i)))

								(if (= useenvironment 0)
									(												; use Workbench
										(set varval
											(expandpath
												(askfile
													(prompt mytext)
													(help choosewbprg_help)
													(default (expandpath suggestion))
												)
											)
										)

										(run ("SetEnv Gateway/%s \"%s\"" thisname varval))

										(set vartype (substr thisname 5))
										(set metaline ("%s\t%s" vartype varval))
									)
									(												; use CLI
										(set varval
											(askstring
												(prompt mytext enter_cmdline)
												(help enter_cmdline_help)
												(default suggestion)
											)
										)

										(run ("SetEnv Gateway/%s \"CLI %s\"" thisname varval))

										(set vartype (substr thisname 5))
										(set metaline ("%s\tCLI %s" vartype varval))
									)
								)
							)
							(
								(complete (+ 22 (* 4 i)))
								(set vartype (substr thisname 5))
								(if (= useenvironment 0)
									(												; use Workbench
										(set metaline ("%s\t%s" vartype (expandpath suggestion)))
									)
									(												; use CLI
										(set metaline ("%s\tCLI %s" vartype suggestion))
									)
								)
							)
						)

						(textfile
							(dest "RAM:MP2_tmptextfile1")
							(include metaprefs)
						)
						(textfile
							(dest "RAM:MP2_tmptextfile2")
							(append metaline)
							(append "\n")
						)
						(run ("Join RAM:MP2_tmptextfile1 RAM:MP2_tmptextfile2 TO \"%s\"" metaprefs))
						(delete "RAM:MP2_tmptextfile1")
						(delete "RAM:MP2_tmptextfile2")

						(set i (+ i 1))
					)
				)
				(run ("SetEnv METACONFIG \"%s\"" metaprefs))

				(onerror)

				(complete 95)

				(if (AND (exists "ENV:" (noreq)) (exists "ENVARC:" (noreq)))
					(
						(set copyenvarc
							(askbool
								(prompt wanna_copy_to_envarc)
								(help wanna_copy_to_envarc_help)
								(choices ja_antwort nein_antwort)
								(default 0)
							)
						)
						(if (= 1 copyenvarc)
							(
								(copyfiles
									(source "ENV:Gateway")
									(dest "ENVARC:Gateway")
									(all)
									(delopts fail)
									(optional nofail force)
								)
								(copyfiles
									(source "ENV:")
									(dest "ENVARC:")
									(pattern "METACONFIG")
									(delopts fail)
									(optional nofail force)
								)
							)
						)
					)
				)
			)
		)

		(complete 97)

	)

	(								; de-install it
		(run "delete ENV:METACONFIG")
		(run "delete S:MetaTool.prefs")
		(run "delete ENV:Gateway/VIEW_#?")
		(run "delete ENVARC:Gateway/VIEW_#?")

		(complete 97)

	)
)

(complete 100)

(set @default-dest "")