; $VER: AHI Install 4.7 (11.7.97)
; Description: Installer script for the AHI audio system (© 1996, 1997 Martin Blom).
; Done my Martin Blom, partly based on Teemu Suikki's install script.
; Public domain.

;** DELFINA **
;**
;** Small delfina-specific changes by Teemu Suikki. Delfina version generated
;** like this:
;**
;** replace "User/" references with "ram:delftemp/User/"
;** replace "Developer/" references with "ram:delftemp/Developer/"
;**
;** there are some other changes, they are inside
;**   ;** DELFINA ** and ;** /DELFINA ** pair, like this comment is.
;**
;** /DELFINA **

(set #complete 0)
(set #completeadd (/ 1000 35))	; There are 35 complete statements!

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

(set #osversion (/ (getversion "exec.library" (resident)) 65536))

;**
;** All the strings
;**

	(set #t_welcome		(cat
		" Welcome to the AHI installation. AHI is a retargetable"
		" audio systems that can be used with both the built-in"
		" sound chip (Paula) and several sound cards. This is version"
		" 4."
	))
	(set #t_oldinstaller	(cat
		" You have an old version of the Installer. I'll probably"
		" need version 43.3 or greater. You can continue anyway"
		" but there is no guarantee it will work as it's supposed"
		" to do.\n"
		" Do you wish to continue anyway?"
	))
	(set #t_oldinstallerhelp (cat
		" The version of Installer you use is too old. You can"
		" find a more recent version on the Internet, for example"
		" on Aminet, in the util/misc directory. The current"
		" file name is \"Installer-43_3.lha\":\n"
		" <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
	
	))
	(set #t_installaborted	"Installation aborted.")

	(set #t_installing	"Installing ")
	(set #t_installingdocs	"Installing developer documentation")
	(set #t_installingincs	"Installing include files")
	(set #t_installingsrc	"Installing example source code")
	(set #t_nofiles		"No files to install.")

	(set #t_nohelp		"No help available.")

	(set #t_parts		"Which parts of AHI do you wish to install?")
	(set #t_system		"System files")
	(set #t_prefs		"Preferences program")
	(set #t_audio		"The AUDIO handler");
	(set #t_userdoc		"User's documentation")
	(set #t_a-developer	"Application developer files")
	(set #t_d-developer	"Driver developer files")
	(set #t_userhelp	(cat
		"System files:\n"
		" The system files. This is the heart of AHI and must be"
		" if for any of the other components to work.\n\n"
		"Preferences program:\n"
		" The preference program. Can be used to change many options"
		" in AHI. This part of AHI requires BGUI or MUI to be installed.\n\n"
		"The AUDIO handler:\n"
		" Allows you to play and record samples with the 'copy'"
		" command.\n\n"
		"User's documentation:\n"
		" An AmigaGuide® file descibing the AHI audio system and"
		" its components.\n\n"
	))
	(set #t_devhelp		(cat
		"Application developer files:\n"
		" Autodocs, include files, example source code etc."
		" Required if you wish to use AHI in your own applications.\n\n"
		"Driver developer files:\n"
		" Autodocs, example source code etc. Only required"
		" if you plan to write hardware drivers for sound"
		" cards.\n\n"
	))

	(set #t_gui		(cat
		" Which version of the preferences program would you like"
		" to install?"
	))
	(set #t_guihelp		(cat
		" Please select which GUI system you prefer.\n\n"
	))
	(set #t_guibgui		"BGUI version")
	(set #t_guimui		"MUI version")

	(set #t_icon 		"Which icon do you want to install?")
	(set #t_iconstd		"Plain 4 colour icon")
	(set #t_iconmwb		"8 colour MagicWB icon")
	(set #t_iconhelp	(cat
		" Select which icon you would like to use for the prefernces"
		" program. The MagicWB icon was designed by Erol Ismael.\n\n"
	))

	(set #t_languages	(cat
		"Which languages do you want to install?"
		" The built-in language is English."))
	(set #t_languageshelp	(cat
		" If your language is not in the list, the author of AHI"
		" would be very happy if you made a translation. Edit the files"
		" User/Catalogs/ahi.ct and User/Catalogs/ahiprefs.ct"
		" and send it to this address:\n"
		" lcs@lysator.liu.se\n"
		" It may be a wise move to ask first, just to make sure nobody"
		" else is working on a translation to your language.\n\n"
	))

	(set #t_drivers		(cat
		"Which AHI drivers you want to install?"
		" Do not install drivers for sound cards you don't have."))
	(set #t_drivershelp	(cat
		"Delfina:\n"
		" Delfina DSP sound card.\n\n"
		"Filesave:\n"
		" Read/Write sample data to a file.\n\n"
		"Paula:\n"
		" Regular Amiga sound hardware.\n\n"
		"Prelude:\n"
		" Prelude sound card.\n\n"
		"Toccata:\n"
		" Toccata sound card.\n\n"
		"Wavetools:\n"
		" Wavetools sound card.\n\n"
	))

	(set #t_020ver		"Do you want to install the 68020-optimized binaries?")
	(set #t_020verhelp	(cat
		" 68020-optimized binaries are much faster, and often also"
		" smaller than plain 68000 versions. In the case of AHI,"
		" the 68000 versions have less features and reduced sound"
		" quality. It is strongly suggested that you use the"
		" 68020 versions of the binaries.\n\n"
	))

	(set #t_devfiles	"Which developer files do you wish to install?")
	(set #t_devdocs		"Autodocs and AHI Developer's Guide")
	(set #t_source		"Example source code")
	(set #t_asm		"Assembler include files")
	(set #t_cgen		"Generic C include files")
	(set #t_e		"E module files")
	(set #t_fd		"FD files")
	(set #t_ade		"Extra ADE gcc include files")
	(set #t_sas		"Extra SAS/C (and DICE) include files")
	(set #t_storm		"Extra StormC include files")
	(set #t_devfileshelp	(cat
		"Autodocs and AHI Developer's Guide:\n"
		" The autodocs and rules for programming AHI.\n\n"
		"Example source code:\n"
		" Some example programs, most of them are written in C, but"
		" there are some assembler sources too.\n\n"
		"Assembler include files:\n"
		" Include files needed if you program in assembler.\n\n"
		"Generic C include files:\n"
		" Include files needed if you program in C.\n\n"
		"E module files:\n"
		" The module files to use with AmigaE.\n\n"
		"FD files:\n"
		" Can be used with the 'lvo' tool, or when you build a"
		" hardware driver written in C.\n\n"
		"Extra ADE gcc include files:\n"
		" The special include files for gcc (inline, proto etc).\n\n" 
		"Extra SAS/C (and DICE) include files:\n"
		" The special include files for SAS/C (pragmas, proto etc)."
		" They work with DCC too, but with no tag calls.\n\n"
		"Extra StormC include files:\n"
		" The special include files for StormC (pragma, proto etc).\n\n"
	))


	(set #t_nodevs
		"Cannot find the Devs: assign. Try a higher userlevel instead.")
	(set #t_noc
		"Cannot find the C: assign. Try a higher userlevel instead.")
	(set #t_noprefs
		"Cannot find the Sys:Prefs directory. Try a higher userlevel instead.")
	(set #t_nol
		"Cannot find the L: assign. Try a higher userlevel instead.")
	(set #t_devspath	"Where do you want to install the system files?")
	(set #t_devspathhelp	(cat
		" The directory you select must be a part of your Devs: assign."
		" The installer will copy ahi.device, the hardware drivers"
		" and the audio mode description files to this directory."
		" Subdirectories for the drivers and mode files will be"
		" created.\n\n"
	))
	(set #t_cpath		"Where do you want to install AddAudioModes?")
	(set #t_cpathhelp	(cat
		" AddAudioModes is a small command line utility that can"
		" be used to manipulate the database which contains the"
		" audio modes (much like the screenmode database)."
		" CLI programs are normally located in the C: directory.\n\n"
	))


	(set #t_localepath	"Where do you want to install the catalogs?")
	(set #t_localepathhelp	(cat
		" The directory you select must be a part of your Locale: assign."
		" The installer will copy the catalogs you have selected to"
		" subdirectories in this directory.\n\n"
	))

	(set #t_prefspath	"Where do you want to install the preferences program?")
	(set #t_prefspathhelp	(cat
		" The preferences program lets you configure AHI for your particular"
		" configuration. You can select which sound hardware you prefer"
		" to use, which physical inputs and outputs you wish to use"
		" etc. Preferences programs are normally located in the"
		" Sys:Prefs/ directory.\n"
		" This program requires BGUI or MUI, depending on which version"
		" you are installing.\n\n"
	))

	(set #t_audiohelp	(cat
		" The AUDIO handler is used to mount a device called AUDIO:. By"
		" copying files to and from this device, you can play and record"
		" raw sample data, IFF-AIFF or IFF-AIFC files.\n\n"
	))

	(set #t_lpath		"Where do you want to install the AUDIO handler?")
	(set #t_lpathhelp	(cat
		#t_audiohelp
		" Handlers are normally located in the L: directory.\n\n"
	))

	(set #t_dosdevpath	"Where do you want to install the AUDIO mount entry?")
	(set #t_dosdevpathhelp	(cat
		#t_audiohelp
		" Mount entries are normally located in the Devs:DOSDrivers"
		" directory if they are to be mounted at boot time. If not, they"
		" probably are in the SYS:Storage/DOSDrivers directory.\n\n"
	))

	(set #t_dosdriver	"Do you want the handler to be activated at boot time?")
	(set #t_dosdriverhelp	(cat
		" If you want, the AUDIO: device can be made avaliable as soon as"
		" your system has been started. This saves you the effort of"
		" having to mount it manually when you want to use it. It does"
		" not require much memory to mount the device and it is therefor"
		" suggested that you select 'Yes'.\n\n"
	))

	(set #t_userdocpath	"Where do you want to install the user documentation?")
	(set #t_userdocpathhelp	(cat
		" This is an AmigaGuide® file descibing the AHI audio system"
		" and its components.\n\n"
	))

	(set #t_srcpath		(cat
		" Where do you want to install the example source code?"
		" A directory called AHI will be created there."
	))
	(set #t_srcpathhelp	(cat
		" The example sources, in both C and assembler, will be"
		" stored in a subdirectory called AHI. Any files currently"
		" present in the AHI directory will be deleted!\n\n"
	))
	(set #t_oldsrc		(cat
		" There is already a directory called AHI here."
		" All files in it will be deleted."
	))

	(set #t_devdocspath	" Where do you want to store the developer documentation?")
	(set #t_devdocspathhelp	(cat
		" The installer will place the autodoc files and the"
		" AHI Developer's Guide in the directory you select.\n\n"
	))

	(set #t_aincpath	" Where are your assembler include files located?")
	(set #t_aincpathhelp	(cat
		" The installer will place the assembler include files"
		" in subdirectories (lvo, devices and libraries)"
		" of the one you select.\n\n"
	))

	(set #t_fdpath		" Where do you keep your FD-files?")
	(set #t_fdpathhelp	(cat
		" FD-files are files describing a library's or a device's"
		" functions. They can be used with the 'lvo' program, and"
		" can also be useful if you write hardware drivers.\n\n"
	))

	(set #t_cincpath	" Where are your C include files located?")
	(set #t_cincpathhelp	(cat
		" The installer will place the generic C include files"
		" in subdirectories (clib, devices and libraries)"
		" of the one you select.\n\n"
	))

	(set #t_emodpath	" Where are your E module files located?")
	(set #t_emodpathhhelp	(cat
		" The installer will place the E module files in the directory"
		" and in subdirectories (devices and libraries)"
		" of the one you select.\n\n"
	))

	(set #t_adeincpath	" Where do you want to place the ADE gcc include files?")
	(set #t_adeincpathhelp	(cat
		" gcc needs some extra files to find out which registers"
		" to use when calling AHI functions. That information is"
		" located in these files, which will be copied to the"
		" inline, pragmas and proto directories.\n\n"
	))

	(set #t_sasincpath	" Where do you want to place the SAS/C (and DICE) include files?")
	(set #t_sasincpathhelp	(cat
		" SAS/C (and DICE) needs some extra files to find out which registers"
		" to use when calling AHI functions. That information is"
		" located in these files, which will be copied to the"
		" pragmas and proto directories.\n\n"
	))

	(set #t_stormincpath	" Where do you want to place the StormC include files?")
	(set #t_stormincpathhelp (cat
		" StormC needs some extra files to find out which registers"
		" to use when calling AHI functions. That information is"
		" located in these files, which will be copied to the"
		" pragma and proto directories.\n\n"
	))

	(set #t_ahidevhelp	(cat
		" ahi.device is the heart of the AHI"
		" audio system. This is the only part"
		" that other programs knows anything about.\n\n"
	))

	(set #t_runaddmodes	(cat
		" About to run AddAudioModes to recreate"
		" the audio modes database."
	))


	(set #t_overwritemode1
		" There is already a copy of the audio mode descriptor ")
	(set #t_overwritemode2 " present in ")
	(set #t_overwritemode3	(cat
		".\n\n"
		" Do you want to overwrite it?"
		" All changes you have done to to it will be lost!"
	))


(if (= @language "srpski")
(
	(set #t_welcome		(cat
		" Dobrodoãli u AHI instalaciju. AHI je retargetable"
		" audio sistem koji moäe biti koriãáen sa ugraâenim"
		" zvuànim àipom (Paula) i viãe zvuànih kartica."
		" Ovo je verzija 4."
	))
	(set #t_oldinstaller	(cat
		" Vi imate staru verziju Installer-a. Verovatno áe mi"
		" trebati verzija 43.3 ili viãa. Moäete nastaviti, ali"
		" nema garancije da áe sve raditi kako je predviâeno.\n"
		" Da li stvarno äelite da nastavite?"
	))
	(set #t_oldinstallerhelp (cat
		" Verzija Installer-a koju koristite previãe stara. Moäete"
		" naái najnoviju verziju na Internetu, na primer"
		" na Aminet-u, u direktorijumu util/misc. Trenutno ime"
		" fajla je \"Installer-43_3.lha\":\n"
		" <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"

	))
	(set #t_installaborted	"Instalacija prekinuta.")

	(set #t_installing	"Instaliram ")
	(set #t_installingdocs	"Instaliram dokumentaciju za programere")
	(set #t_installingincs	"Instaliram include fajlove")
	(set #t_installingsrc	"Instaliram primere izvornog koda")
	(set #t_nofiles		"Nema fajlova za instaliranje.")

	(set #t_nohelp		"Pomoá nije dostupna.")

	(set #t_parts		"Koje delove AHI-ja äelite de instalirate?")
	(set #t_system		"Sistemske fajlove")
	(set #t_prefs		"Program za podeãavanja")
	(set #t_audio		"AUDIO hendler");
	(set #t_userdoc		"Korisniàka dokumentacija")
	(set #t_a-developer	"Fajlovi za razvoj aplikacija")
	(set #t_d-developer	"Fajlovi za razvoj drajvera")
	(set #t_userhelp	(cat
		"Sistemski fajlovi:\n"
		" Ovo je srce AHI-ja i mora postojati"
		" da bi radile ostale komponente.\n\n"
		"Program za podeãavanja:\n"
		" Moäe se koristiti za podeãavanje mnogih opcija"
		" AHI-ja. Ovaj deo AHI-ja zahteva da se instalira BGUI.\n\n"
		"AUDIO hendler:\n"
		" Omoguáava Vam da puãtate i snimate semplove komandom"
		" 'copy'.\n\n"
		"Korisniàka dokumentacija:\n"
		" AmigaGuide® fajl koji opisuje AHI audio sistem i"
		" njegove komponente.\n\n"
	))
	(set #t_devhelp		(cat
		"Fajlovi za razvoj aplikacija:\n"
		" Autodokovi, include fajlovi, primeri izvornog koda itd."
		" Oni su neophodni ako äelite da koritite AHI u svoji aplikacijama.\n\n"
		"Fajlovi za razvoj drajvera:\n"
		" Autodokovi, primeri izvornog koda itd. Potrebni su"
		" samo ako planirate da razvijate hardverske drajvere za"
		" zvuàne kartice.\n\n"
	))


	(set #t_languages	(cat
		"Koje jezike äelite da instalirate?"
		" Ugraâeni jezik je Engleski."))
	(set #t_languageshelp	(cat
		" Ako se Vaã jezik ne nalazi na listi, autor AHI-ja"
		" bi bio veoma sreáan, ako bi napravili prevod. Promenite fajlove"
		" User/Catalogs/NewCatalog.ct i User/Catalogs/NewPrefsCatalog.ct"
		" i poãaljite na ovu adresu:\n"
		" lcs@lysator.liu.se\n\n"
	))

	(set #t_drivers		(cat
		"Koje AHI drajvere äelite da instalirate?"
		" Najbolje je da instalirate samo drajvere koji su Vam potrebni."))
	(set #t_drivershelp	(cat
		"Delfina:\n"
		" Delfina DSP zvuàna kartica.\n\n"
		"Filesave:\n"
		" Àitanje/zapis zvuànih podataka u fajl.\n\n"
		"Paula:\n"
		" Obiàan Amigin zvuàni hardver.\n\n"
		"Prelude:\n"
		" Prelude zvuàna kartica.\n\n"
		"Toccata:\n"
		" Toccata zvuàna kartica.\n\n"
		"Wavetools:\n"
		" Wavetools zvuàna kartica.\n\n"
	))

	(set #t_020ver		"Da li äelite da instalirate verzije fajlova optimizovane za 68020 ?")
	(set #t_020verhelp	(cat
		" Fajlovi optimizovani za 68020 su bräi, i obiàno"
		" manji nego njihove 68000 verzije. U sluàaju AHI-ja,"
		" verzije za 68000 imaju manje moguánosti i smanjen"
		" kvalitet zvuka. Zaista Vam preporuàujem da instalirate"
		" verzije fajlova za 68020.\n\n"
	))

	(set #t_devfiles	"Koje programerske fajlove äelite da instalirate?")
	(set #t_devdocs		"Autodokove i AHI Vodià za programere")
	(set #t_source		"Primeri izvornog koda")
	(set #t_asm		"Include fajlove za asembler")
	(set #t_cgen		"Opãte include fajlove za C")
	(set #t_e		"E module")
	(set #t_fd		"FD fajlove")
	(set #t_ade		"Dodatne ADE gcc include fajlove")
	(set #t_sas		"Dodatne SAS/C (i DICE) include fajlove")
	(set #t_storm		"Dodatne StormC include fajlove")
	(set #t_devfileshelp	(cat
		"Autodokovi i AHI Vodià za programere:\n"
		" Autodokovi i pravila za programiranje AHI-ja.\n\n"
		"Primeri izvornog koda:\n"
		" Neki programi za primer, veáina napisan u C-u, ali ima"
		" i neãto izvornog koda u asembleru.\n\n"
		"Include fajlovi za asembler:\n"
		" Include fajlovi koji su potrebni ako programirate u asembleru.\n\n"
		"Opãti include fajlovi za C:\n"
		" Include fajlovi koji su potrebni ako programirate u C-u.\n\n"
		"E moduli:\n"
		" Moduli za koriãáenje u Amiga E-u.\n\n"
		"FD fajlovi:\n"
		" Mogu se koristiti sa programom 'lvo', ili kada pravite"
		" hardverski drajver napisan u C-u.\n\n"
		"Dodatni ADE gcc include fajlovi:\n"
		" Specijalni include fajlovi za gcc (inline, proto itd.).\n\n"
		"Dodatni SAS/C (i DICE) include fajlovi:\n"
		" Specijalni include fajlovi za SAS/C (pragma, proto itd.)."
		" Rade i sa DCC-om, ali bez poziva tag-ova.\n\n"
		"Dodatni StormC include fajlovi:\n"
		" Specijalni include fajlovi za StormC (pragma, proto itd.).\n\n"
	))


	(set #t_nodevs
		"Ne mogu da naâem Devs: asajn. Pokuãajte viãi korisniàki nivo.")
	(set #t_noc
		"Ne mogu da naâem C: asajn. Pokuãajte viãi korisniàki nivo.")
	(set #t_noprefs
		"Ne mogu da naâem Sys:Prefs directory. Pokuãajte viãi korisniàki nivo.")
	(set #t_nol
		"Ne mogu da naâem L: asajn. Pokuãajte viãi korisniàki nivo.")
	(set #t_devspath	"Gde äelite da instalirate sistemske fajlove?")
	(set #t_devspathhelp	(cat
		" Direktorijum koji odaberete mora biti deo Vaãeg Devs: asajna."
		" Installer áe kopirati ahi.device, hardverske drajvere"
		" i fajlove sa opisima audio modova u ovaj direktorijum."
		" Poddirektorijumi za drajvere i fajlove sa opisima modova"
		" áe biti napravljeni.\n\n"
	))
	(set #t_cpath		"Gde äelite da instalirate AddAudioModes?")
	(set #t_cpathhelp	(cat
		" AddAudioModes je mali CLI program koji se moäe koristiti"
		" za manipulaciju baze podataka koja sadräi audio modove"
		" (vrlo sliàno bazi podataka sa moguáim rezolucijama ekrana)."
		" CLI programi se obiàno nalaze u C: direktorijumu.\n\n"
	))


	(set #t_localepath	"Gde äelite da instalirate kataloge?")
	(set #t_localepathhelp	(cat
		" Direktorijum koji odaberete mora biti deo Locale: asajna."
		" Installer áe kopirati kataloge koje odaberete u"
		" poddirektorijume u ovom direktorijumu.\n\n"
	))

	(set #t_prefspath	"Gde äelite da instalirate program za podeãavanja?")
	(set #t_prefspathhelp	(cat
		" Program za podeãavanja Vam omoguáava da podesite AHI vaãoj"
		" konkretnoj konfiguraciji. Moäete odabrati koji zvuàni hardver"
		" äelite da koristite, koje fiziàke ulaze i izlaze äelite da"
		" koritite itd. Programi za podeãavanja se obiàno nalaze u"
		" Sys:Prefs/ direktorijumu.\n"
		" Ovaj program zahteva BGUI biblioteku.\n\n"
	))

	(set #t_audiohelp	(cat
		" AUDIO hendler se koristi za mount-ovanje AUDIO: ureâaja. Kopirajuái"
		" fajlove na i sa ureâaja, moäete puãtati i snimati sirove zvuàne"
		" podatke, IFF-AIFF ili IFF-AIFC fajlove.\n\n"
	))

	(set #t_lpath		"Gde äelite da instalirate AUDIO hendler?")
	(set #t_lpathhelp	(cat
		#t_audiohelp
		" Hendleri se obiàno nalaze u L: direktorijumu.\n\n"
	))

	(set #t_dosdevpath	"Gde äelite da instalirate fajl za mount-ovanje AUDIO hendlera?")
	(set #t_dosdevpathhelp	(cat
		#t_audiohelp
		" Mount fajlovi se nalaze u direktorijumu Devs:DOSDrivers"
		" ako treba da se mount-uju pri dizanju sistema. Ako ne, onda"
		" se verovatno nalaze u SYS:Storage/DOSDrivers direktorijumu.\n\n"
	))

	(set #t_dosdriver	"Da li äelite da hendler bude instaliran pri dizanju sistema?")
	(set #t_dosdriverhelp	(cat
		" Ako äelite, AUDIO: ureâaj moäe biti dostupan àim se digne sistem."
		" Ovo vam omoguáava da ne morate da mount-ujete ureâaj svaki put"
		" kada äelite da ga koristite. Ureâaj ne zahteva mnogo memorije"
		" i zato preporuàujem da da odaberete 'Da'.\n\n"
	))

	(set #t_userdocpath	"Gde äelite da instalirate korisniàku dokumentaciju?")
	(set #t_userdocpathhelp	(cat
		" Ovo je AmigaGuide® fajl koji opisuje AHI audio sistem"
		" i njegove komponente.\n\n"
	))

	(set #t_srcpath		(cat
		" Gde äelite da instalirate primere izvornog koda?"
		" Direktorijum sa imenom AHI biáe napravljen tamo."
	))
	(set #t_srcpathhelp	(cat
		" Primeri izvornog koda, i u C-u i asembleru, áe biti"
		" stavljeni u poddirektorijum imena AHI. Svi fajlovi koji"
		" se nalaze u AHI direktorijumu áe biti obrisani!\n\n"
	))
	(set #t_oldsrc		(cat
		" Ovde veá postoji direktorijum imena AHI."
		" Svi fajlovi u njemu áe biti obrisani."
	))

	(set #t_devdocspath	" Gde äelite da stavite dokumentaciju za programere?")
	(set #t_devdocspathhelp	(cat
		" Installer áe staviti autodok fajlove i dokumentaciju za"
		" razvoj AHI-ja direktorijum koji odaberete.\n\n"
	))

	(set #t_aincpath	" Gde se nalaze Vaãi include fajlovi za asembler?")
	(set #t_aincpathhelp	(cat
		" Installer áe smestiti include fajlove za asembler"
		" u poddirektorijume (lvo, devices i libraries)"
		" direktorijuma koji odaberete.\n\n"
	))

	(set #t_fdpath		" Gde dräite Vaãe FD fajlove?")
	(set #t_fdpathhelp	(cat
		" FD fajlovi su fajlovi koji opisuju funkcije biblioteke"
		" i ureâaja. Mogu se koristiti sa programom 'lvo', i"
		" i mogu biti korisni ako piãete hardverske drajvere.\n\n"
	))

	(set #t_cincpath	" Gde se nalaze Vaãi C include fajlovi?")
	(set #t_cincpathhelp	(cat
		" Installer áe smestiti opãte include fajlove za C"
		" u poddirektorijume (clib, devices i libraries)"
		" direktorijuma koji odaberete.\n\n"
	))

	(set #t_emodpath	"  Gde se nalaze Vaãi E modul fajlovi?")
	(set #t_emodpathhhelp	(cat
		" Installer áe smestiti E modul fajlove u direktorijum"
		" i poddirektorijume (devices i libraries)"
		" direktorijuma koji odaberete.\n\n"
	))

	(set #t_adeincpath	" Gde äelite da smestite ADE gcc include fajlove?")
	(set #t_adeincpathhelp	(cat
		" gcc-u trebaju neki dodatni fajlovi da bi naãao koje registre"
		" da koristi pri pozivu AHI funkcija. Te informacije se nalaze"
		" u ovim fajlovima, koji áe biti kopirani u direktorijume "
		" inline, pragmas i proto.\n\n"
	))

	(set #t_sasincpath	" Gde äelite da smestite SAS/C (i DICE) include fajlove?")
	(set #t_sasincpathhelp	(cat
		" SAS/C-u (i DICE-u) trebaju neki dodatni fajlovi da bi naãao"
		" koje registre da koristi pri pozivu AHI funkcija. Te informacije"
		" se nalaze u ovim fajlovima, koji áe biti kopirani u pragmas"
		" i proto direktorijume.\n\n"
	))

	(set #t_stormincpath	" Gde äelite da smestite StormC include fajlove?")
	(set #t_stormincpathhelp (cat
		" StormC-u neki dodatni fajlovi da bi naãao koje registre"
		" da koristi pri pozivu AHI funkcija. Te informacije se nalaze"
		" u ovim fajlovima, koji áe biti kopirani u pragma i proto"
		" direktorijume.\n\n"
	))

	(set #t_ahidevhelp	(cat
		" ahi.device je srce AHI audio"
		" sistema. Ovo je jedini deo za koga"
		" drugi programi znaju.\n\n"
	))

	(set #t_runaddmodes	(cat
		" Upravo startujem AddAudioModes da bih"
		" osveäio bazu audio modova."
	))


	(set #t_overwritemode1
		" Veá postoji fajl sa opisom audio moda ")
	(set #t_overwritemode2 " prisutan u ")
	(set #t_overwritemode3	(cat
		".\n\n"
		" Da li äelite da zapiãem preko njega?"
		" Sve promene koje ste naàinili na njemu biáe izgubljene!"
	))
))

(if (= @language "suomi")
(
	(set #t_welcome		(cat
		" Tervetuloa AHI-asennukseen. AHI on äänijärjestelmä,"
		" jonka avulla saat käyttöösi Amigan standardin äänipiirin"
		" (Paula) lisäksi myös useita varsinaisia äänikortteja."
		" Tämä on AHI:n neljäs (4.) versio."
	))
	(set #t_oldinstaller	(cat
		" Käytössäsi on Installer-ohjelman vahentunut versio."
		" Voit jatkaa asennusta, mutta asennuksessa saattaa"
		" mennä jotain pieleen. Todennäköisesti tarvitsen"
		" Installer-ohjelman version 43.3 tai uudemman."
		" Haluaisitko kuitenkin jatkaa asennusta?"
	))
	(set #t_oldinstallerhelp (cat
		" Käyttämäsi Installer-ohjelma on liian vanha versio."
		" Löydät uudemman version vaikkapa Internetistä, esim."
		" Aminetistä, hakemistosta util/misc. Tuoreimman"
		" Installer-ohjelman nimi on  \"Installer-43_3.lha\":\n"
		" <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
	
	))
	(set #t_installaborted	"Asennus keskeytetty.")

	(set #t_installing	"Asennan... ")
	(set #t_installingdocs	"Asennan kehitysympäristön ohjetiedostoja")
	(set #t_installingincs	"Asennan include-tiedostoja")
	(set #t_installingsrc	"Asennan esimerkkilähdekoodeja")
	(set #t_nofiles		"Ei asennettavia tiedostoja.")

	(set #t_nohelp		"Ohjeita ei ole saatavissa.")

	(set #t_parts		"Mitkä osat AHI:sta haluat asentaa?")
	(set #t_system		"Järjestelmätiedostot")
	(set #t_prefs		"Asetusohjelma")
	(set #t_audio		"AUDIO-käsittelijä");
	(set #t_userdoc		"Käyttäjän ohjeet")
	(set #t_a-developer	"Sovellusten kehitysympäristön tiedostot")
	(set #t_d-developer	"Ajurien kehitysympäristön tiedostot")
	(set #t_userhelp	(cat
		"Järjestelmätiedostot:\n"
		" Tämä on AHI-äänijärjestelmän sydän."
		" Se täytyy olla asennettuna, ennen kuin AHI:n muut"
		" osat toimivat.\n\n"
		"Asetusohjelma:\n"
		" Asetusohjelmaa käytetään muokkaamaan AHI:n lukuisia asetuksia.\n"
		" Asetusohjelma vaatii, että BGUI on asennettu.\n\n"
		"AUDIO-käsittelijä:\n"
		" Mahdollistaa äänitiedostojen toiston ja tallennuksen"
		" 'copy'-komennon avulla.\n\n"
		"Käyttäjän ohjeet:\n"
		" AmigaGuide®-muotoinen tiedosto, jossa selvitetään"
		" AHI-äänijärjestelmä ja sen eri osat.\n\n"
	))
	(set #t_devhelp		(cat
		"Sovellusten kehitysympäristön tiedostot:\n"
		" Autodocit, include-tiedostot, esimerkkilähdekoodit jne."
		" Tarpeellisia jos haluat käyttää AHI-äänijärjestelmää"
		" omissa sovellusohjelmissasi.\n\n"
		"Ajurien kehitysympäristön tiedostot:\n"
		" Autodocit, esimerkkilähdekoodit jne. Tarpeellisia ainoastaan"
		" jos aiot tehdä uusia äänikorttiajureita.\n\n"
	))


	(set #t_languages	(cat
		"Mille kielille haluat tehdä asennuksen?"
		" Valmiskielenä on englanti."))
	(set #t_languageshelp	(cat
		" Jos oma kielesi ei ole listassa, AHI:n tekijä olisi"
		" mielissään, jos sinä voisit tehdä käännöksen omalle"
		" kielellesi. Käännä tiedostot User/Catalogs/NewCatalog.ct"
		" ja User/Catalogs/NewPrefsCatalog.ct, ja lähetä ne"
		" tähän osoitteeseen:\n"
		" lcs@lysator.liu.se\n\n"
	))

	(set #t_drivers		(cat
		"Mitkä AHI-ajurit haluat asentaa?"
		" Asenna ainoastaan tarvitsemasi ajurit."))
	(set #t_drivershelp	(cat
		"Delfina:\n"
		" Delfina DSP -äänikortti.\n\n"
		"Filesave:\n"
		" Kirjoita/lue äänitiedosto tiedostoon.\n\n"
		"Paula:\n"
		" Amigan perusäänijärjestelmä.\n\n"
		"Prelude:\n"
		" Prelude-äänikortti.\n\n"
		"Toccata:\n"
		" Toccata-äänikortti.\n\n"
		"Wavetools:\n"
		" Wavetools-äänikortti.\n\n"
	))

	(set #t_020ver		"Haluatko asentaa 68020-prosessorille optimoidut versiot?")
	(set #t_020verhelp	(cat
		" 68020-prosessorille optimoidut versiot ovat nopeampia ja"
		" usein pienikokoisempia kuin 68000-prosessorille tehdyt"
		" perusversiot. AHI-äänijärjestelmän 68000-versioissa on"
		" vähemmän ominaisuuksia ja huonompi äänenlaatu."
		" 68020-versiot kannattaa asentaa, jos käytössäsi"
		" on vähintään 68020-prosessorilla varustettu kone.\n\n"
	))

	(set #t_devfiles	"Mitkä kehitysympäristön tiedostot haluat asentaa?")
	(set #t_devdocs		"Autodocit ja AHI-kehitysympäristön ohjeet")
	(set #t_source		"Esimerkkilähdekoodit")
	(set #t_asm		"Assemblerin include-tiedostot")
	(set #t_cgen		"Yleiset C include-tiedostot")
	(set #t_e		"E moduletiedostot")
	(set #t_fd		"FD-tiedostot")
	(set #t_ade		"Ylimääräiset ADE gcc include-tiedostot")
	(set #t_sas		"Ylimääräiset SAS/C (ja DICE) include-tiedostot")
	(set #t_storm		"Ylimääräiset StormC include-tiedostot")
	(set #t_devfileshelp	(cat
		"Autodocit ja AHI-kehitysympäristön ohjeet:\n"
		" AHI:n autodocit ja ohjelmointisäännöt.\n\n"
		"Esimerkkilähdekoodit:\n"
		" Joitain esimerkkiohjelmia, suurin osa C-kielellä, mutta"
		" mukana on myös muutamia assembler-lähdekoodeja.\n\n"
		"Assemblerin include-tiedostot:\n"
		" Include-tiedostot, jotka tarvitset ohjelmoidessasi assemblerilla.\n\n"
		"Yleiset C include-tiedostot:\n"
		" Include-tiedostot, jotka tarvitset ohjelmoidessasi C-kielellä.\n\n"
		"E moduletiedostot:\n"
		" Moduletiedostot, AmigaE-ohjelmointia varten.\n\n"
		"FD-tiedostot:\n"
		" Voidaan käyttää 'lvo'-työkalun kanssa, tai jos teet"
		" laitteistoajurin C-kielellä.\n\n"
		"Ylimääräiset ADE gcc include-tiedostot:\n"
		" Gcc:n erikoisinclude-tiedostot (inline, proto jne).\n\n"
		"Ylimääräiset SAS/C (ja DICE) include-tiedostot:\n"
		" SAS/C:n erikoisinclude-tiedostot (pragma, proto jne)."
		" Toimivat osin myös DCC:n kanssa.\n\n"
		"Ylimääräiset StormC include-tiedostot:\n"
		" StormC:n erikoisinclude-tiedostot (pragma, proto jne).\n\n"
	))


	(set #t_nodevs
		"Viitettä Devs: ei löytynyt. Kokeile ylempää käyttäjän tasoluokitusta.")
	(set #t_noc
		"Viitettä C: ei löytynyt. Kokeile ylempää kättäjän tasoluokitusta.")
	(set #t_noprefs
		"Hakemistoa Sys:Prefs ei löytynyt. Kokeile ylempää käyttäjän tasoluokitusta.")
	(set #t_nol
		"Viitettä L: ei löytynyt. Kokeile ylempää käyttäjän tasoluokitusta.")
	(set #t_devspath	"Minne haluat asentaa järjestelmätiedostot?")
	(set #t_devspathhelp	(cat
		" Valitsemaasi hakemistoon tulee olla viite Devs:."
		" Asennusohjelma kopioi ahi.device-tiedoston, laitteistoajurit"
		" ja audiotilojen kuvaustiedostot tähän hakemistoon."
		" Ajureille ja audiotilatiedostoille luodaan alihakemistot.\n\n"
	))
	(set #t_cpath		"Minne haluat asentaa ohjelman 'AddAudioModes'?")
	(set #t_cpathhelp	(cat
		" AddAudioModes on pieni komentoriviohjelma, jonka avulla"
		" voit muokata audiotiloja sisältävää tietokantaa"
		" (aivan kuten näyttötilojen tietokanta).\n"
		" Komentoriviohjelmat sijaitsevat yleensä hakemistossa C:.\n\n"
	))


	(set #t_localepath	"Minne haluat asentaa sanastot?")
	(set #t_localepathhelp	(cat
		" Valitsemaasi hakemistoon tulee olla viite Locale:."
		" Asennusohjelma kopioi valitsemasi sanastot tässä"
		" hakemistossa oleviin alihakemistoihin.\n\n"
	))

	(set #t_prefspath	"Minne haluat asentaa asetusohjelman?")
	(set #t_prefspathhelp	(cat
		" Asetusohjelman avulla voit määrittää AHI-äänijärjestelmän"
		" asetukset. Voit valita haluamasi laitteiston, fyysiset"
		" ulostulot ja sisäänmenot jne. Asetusohjelmat sijaitsevat"
		" normaalisti hakemistossa Sys:Prefs/.\n"
		" Tämä ohjelma vaatii toimiakseen BGUI:n.\n\n"
	))

	(set #t_audiohelp	(cat
		" AUDIO-käsittelijää käytetään kiinnitettäessä laitetta AUDIO:."
		" Kopioimalla tiedostoja tälle laitteelle tai tältä laitteelta"
		" voit toistaa ja tallentaa raakaa äänitietoa, IFF-AIFF- tai"
		" IFF-AIFC-tiedostoja.\n\n"
	))

	(set #t_lpath		"Minne haluat asentaa AUDIO-käsittelijän?")
	(set #t_lpathhelp	(cat
		#t_audiohelp
		" Käsittelijät sijaitsevat yleensä hakemistossa L:.\n\n"
	))

	(set #t_dosdevpath	"Minne haluat asentaa AUDIO-kiinnitystiedoston?")
	(set #t_dosdevpathhelp	(cat
		#t_audiohelp
		" Kiinnitystiedostot sijaitsevat yleensä hakemistossa"
		" Devs:DOSDrivers, jos laitteet kiinnitetään käynnistyksen"
		" yhteydessä. Muutoin kiinnitystiedostot sijaitsevat"
		" varmaankin hakemistossa SYS:Storage/DOSDrivers.\n\n"
	))

	(set #t_dosdriver	"Haluatko kiinnittää laitteen AUDIO: käynnistyksen yhteydessä?")
	(set #t_dosdriverhelp	(cat
		" Jos haluat, laite AUDIO: voidaan kiinnittää käynnistyksen"
		" yhteydessä. Tämä poistaa tarpeen kiinnittää laite erikseen"
		" aina kun haluat käyttää sitä. Kiinnitys ei vie paljoakaan"
		" muistia, joten on suositeltavaa, että valitset 'Kyllä'.\n\n"
	))

	(set #t_userdocpath	"Minne haluat asentaa käyttäjän ohjeet?")
	(set #t_userdocpathhelp	(cat
		" Ohjeet ovat AmigaGuide®-tiedostona, jossa kuvataan"
		" AHI-äänijärjestelmää ja sen osia.\n\n"
	))

	(set #t_srcpath		(cat
		" Minne haluat asentaa esimerkkilähdekoodit?"
		" Valitsemaasi hakemistoon luodaan alihakemisto AHI."
	))
	(set #t_srcpathhelp	(cat
		" Esimerkkilähdekoodit, sekä C- että assembler-kieliset,"
		" tallennetaan alihakemistoon AHI. Kaikki entiset tiedostot"
		" hakemistossa AHI tuhotaan!\n\n"
	))
	(set #t_oldsrc		(cat
		" Siellä on jo alihakemisto AHI."
		" Kaikki tiedostot alihakemistossa AHI poistetaan."
	))

	(set #t_devdocspath	" Minne haluat asentaa kehitysympäristön ohjeet?")
	(set #t_devdocspathhelp	(cat
		" Asennusohjelma sijoittaa autodocit ja AHI-kehitysympäristön"
		" ohjeet valitsemaasi hakemistoon.\n\n"
	))

	(set #t_aincpath	" Missä sijaitsevat assemblerisi include-tiedostot?")
	(set #t_aincpathhelp	(cat
		" Asennusohjelma sijoittaa assemblerin include-tiedostot"
		" valitsemasi hakemiston alihakemistoihin (lvo, devices ja"
		" libraries).\n\n"
	))

	(set #t_fdpath		" Missä sijaitsevat FD-tiedostosi?")
	(set #t_fdpathhelp	(cat
		" FD-tiedostot kuvaavat kirjaston tai laitteen toimintoja."
		" Niitä voidaan käyttää 'lvo'-ohjelman kanssa, ja niistä"
		" voi olla hyötyä kirjoittaessasi laitteistoajureita.\n\n"
	))

	(set #t_cincpath	" Missä sijaitsevat C-kääntäjäsi include-tiedostot?")
	(set #t_cincpathhelp	(cat
		" Asennusohjelma sijoittaa yleiset C-kääntäjän include-tiedostot"
		" valitsemasi hakemiston alihakemistoihin (clib, devices"
		" ja libraries).\n\n"
	))

	(set #t_emodpath	" Missä sijaitsevat E moduletiedostosi?")
	(set #t_emodpathhhelp	(cat
		" Asennusohjelma sijoittaa E moduletiedostot valitsemasi"
		" hakemiston alihakemistoihin (devices ja libraries).\n\n"
	))

	(set #t_adeincpath	" Minne haluat sijoittaa ADE gcc include-tiedostot?")
	(set #t_adeincpathhelp	(cat
		" Gcc tarvitsee muutamia ylimääräisiä tiedostoja"
		" tietääkseen mitä rekistereitä voidaan käyttää"
		" kutsuttaessa AHI-funktioita. Tämä tieto on"
		" tiedostoissa, jotka kopioidaan alihakemistoihin"
		" inline, pragmas ja proto.\n\n"
	))

	(set #t_sasincpath	" Minne haluat sijoitta SAS/C (ja DICE) include-tiedostot?")
	(set #t_sasincpathhelp	(cat
		" SAS/C (ja DICE) tarvitsevat muutamia ylimääräisiä"
		" tiedostoja tietääkseen mitä rekistereitä voidaan"
		" käyttää kutsuttaessa AHI-funktioita. Tämä tieto on"
		" tiedostoissa, jotka kopioidaan alihakemistoihin"
		" pragmas ja proto.\n\n"
	))

	(set #t_stormincpath	" Minne haluat sijoittaa StormC include-tiedostot?")
	(set #t_stormincpathhelp (cat
		" StormC tarvitsee muutamia ylimääräisiä tiedostoja"
		" tietääkseen mitä rekistereitä voidaan käyttää"
		" kutsuttaessa AHI-funktioita. Tämä tieto on tiedostoissa,"
		" jotka kopioidaan alihakemistoihin pragma ja proto.\n\n"
	))

	(set #t_ahidevhelp	(cat
		" Ahi.device on AHI-äänijärjestelmän sydän."
		" Tämä on ainoa osa, joka näkyy muille ohjelmille.\n\n"
	))

	(set #t_runaddmodes	(cat
		" Ajan komennon AddAudioModes luodakseni"
		" audiotilatietokannan."
	))


	(set #t_overwritemode1
		" Audiotilakuvauksesta on jo olemassa kopio ")
	(set #t_overwritemode2 " tiedostossa ")
	(set #t_overwritemode3	(cat
		".\n\n"
		" Kirjoitetaanko päälle?"
		" Kaikki audiotilaan tekemäsi muutokset tulevat katoamaan!"
	))

))

(if (= @language "ÃeÓtina")
(	; Tranlated by Vit Sindlar <sindlarv@hotmail.com>

	(set #t_welcome		(cat
		" VÉtejte pÒi instalaci AHI. AHI je pÒesmÅrovatelnÙ"
		" audio syst×m, kterÙ je moÚno pouÚÉvat jak s vestavÅnÙm"
		" zvukovÙm Ãipem (Paula), tak i nÅkolika zvukovÙmi kartami."
		" AktuÁlnÉ verze tohoto software je 4."
	))
	(set #t_oldinstaller	(cat
		" VlastnÉte starou verzi programu Installer. Tento"
		" instalaÃnÉ skript pravdÅpodobnÅ vyÚaduje verzi 43.3"
		" a vyÓÓÉ. Instalace bude pokraÃovat, ale nelze zaruÃit,"
		" Úe vÓe bude fungovat, tak jak mÁ.\n"
		" Opravdu si pÒejete pokraÃovat?"
	))
	(set #t_oldinstallerhelp (cat
		" Verze programu Installer, kterÙ pouÚÉvÁte je pÒÉliÓ"
          " starÁ. NejnovÅjÓÉ verzi naleznete vÚdy na Internetu,"
		" napÒ. na Aminetu, v adresÁÒi util/misc. NÁzev archÉvu"
		" je \"Installer-43_3.lha\":\n"
		" <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"

	))
	(set #t_installaborted	"Instalace byla pÒeruÓena.")

	(set #t_installing		"ProbÉhÁ instalace ")
	(set #t_installingdocs	"Instaluje se dokumentace pro vÙvojÁÒe")
	(set #t_installingincs	"InstalujÉ se includes")
	(set #t_installingsrc	"InstalujÉ se pÒÉklady zdrojovÙch kÏdÊ")
	(set #t_nofiles		"Soubory pro instalaci chybÉ.")

	(set #t_nohelp		"Pro tuto poloÚku nenÉ dostupnÁ nÁpovÅda.")

	(set #t_parts		"Kter× ÃÁsti AHI si pÒejete nainstalovat?")
	(set #t_system		"Syst×mov× soubory")
	(set #t_prefs		"Program pro nastavenÉ")
	(set #t_audio		"AUDIO handler");
	(set #t_userdoc		"UÚivatelskÁ dokumentace")
	(set #t_a-developer	"Soubory pro vÙvojÁÒe programÊ")
	(set #t_d-developer	"Soubory pro vÙvojÁÒe ovladaÃÊ")
	(set #t_userhelp	(cat
		"Syst×mov× soubory:\n"
		" Syst×mov× soubory - to je vlastnÅ jÁdro cel×ho AHI a musÉ"
		" bÙt vÚdy nainstalovÁny. Jsou nutn× pro sprÁvnou funkci"
		" vÓech ostatnÉch komponent.\n\n"
		"Program pro nastavenÉ:\n"
		" Program pro nastavenÉ - je pouÚÉvÁn pro pohodln× nastavenÉ"
		" mnoha voleb AHI. Tato ÃÁst AHI vyÚaduje ke sv× Ãinnosti"
		" nainstalovanou knihovnu BGUI.library.\n\n"
		"AUDIO handler:\n"
		" UmoÚÎuje pÒehrÁvat a zaznamenÁvat samply velice jednoduÓe"
		" pomocÉ pÒÉkazu 'copy'.\n\n"
		"UÚivatelskÁ dokumentace:\n"
		" Dokumentace napsanÁ ve standardnÉm formÁtu AmigaGuide®,"
		" kterÁ popisuje AHI a ostatnÉ ÃÁsti syst×mu.\n\n"
	))
	(set #t_devhelp		(cat
		"Soubory pro vÙvojÁÒe programÊ:\n"
		" Autodocs, includes, pÒÉkladov× zdrojov× kÏdy atd."
		" Je nutn× nainstalovat pouze v pÒÉpadÅ, Úe budete vyvÉjet"
		" svÊj vlastnÉ program s podporou AHI.\n\n"
		"Soubory pro vÙvojÁÒe ovladaÃÊ:\n"
		" Autodocs, pÒÉkladovÙ zdrojovÙ kÏd atd. Je nutn× pouze"
		" v pÒÉpadÅ, Úe budete vyvÉjet ovladaÃe pro zvukov× karty.\n\n"
	))

	(set #t_gui		(cat
		" Kterou z verzÉ programÊ pro nastavenÉ byste si pÒÁli"
		" nainstalovat?"
	))
	(set #t_guihelp		(cat
		" Zvolte typ GUI, kter×mu dÁvÁte pÒednost, prosÉm.\n\n"
	))
	(set #t_guibgui		"Verze v BGUI")
	(set #t_guimui		"Verze v MUI")

	(set #t_icon 		"Kter× ikony si pÒejete nainstalovat?")
	(set #t_iconstd		"StandardnÉ 4-barevn×")
	(set #t_iconmwb		"8-barevn× typu MagicWB")
	(set #t_iconhelp	(cat
		" Zde si zvolÉte druh ikony, kterou si pÒejete pouÚÉvat pro"
		" program pro nastavenÉ. Autorem ikony typu MagicWB je Erol Ismael.\n\n"
	))

	(set #t_languages	(cat
		"KterÙ z jazykÊ si pÒejete nainstalovat?"
		" StandardnÉ je angliÃtina."))
	(set #t_languageshelp	(cat
		" JestliÚe chybÉ zrovna pÒeklad do VaÓeho jazyka, autor AHI"
		" by VÁs velmi rÁd poÚÁdal o pÒeklad. Upravte a pÒeloÚte"
		" soubory User/Catalogs/NewCatalog.ct a User/Catalogs/NewPrefsCatalog.ct"
		" a poÓlete je na tuto adresu:\n"
		" lcs@lysator.liu.se\n\n"
		" Je dobr× se nejdÒÉve zeptat autora, zda jiÚ nÅkdo pÒeklad"
		" do VaÓeho jazyka nedÅlÁ.\n\n"

	))

	(set #t_drivers		(cat
		"Kter× z ovladaÃÊ AHI si pÒejete nainstalovat?"
		" Je lepÓÉ si nainstalovat pouze ovladaÃe, kter× skuteÃnÅ potÒebujete."))
	(set #t_drivershelp	(cat
		"Delfina:\n"
		" ZvukovÁ karta Delfina s DSP.\n\n"
		"Filesave:\n"
		" UmoÚnÉ ÃtenÉ/zÁpis samplÊ do souboru.\n\n"
		"Paula:\n"
		" StandardnÉ zvukovÙ Ãip Amigy.\n\n"
		"Prelude:\n"
		" ZvukovÁ karta Prelude.\n\n"
		"Toccata:\n"
		" ZvukovÁ karta Toccata.\n\n"
		"Wavetools:\n"
		" ZvukovÁ karta Wavetools.\n\n"
	))

	(set #t_020ver		"PÒejete si nainstalovat programy optimalizovan× pro 68020?")
	(set #t_020verhelp		(cat
		" Programy optimalizovan× pro 68020 a vyÓÓÉ jsou mnohem"
		" rychlejÓÉ a Ãasto tak× menÓÉ neÚ verze pro obyÃejnou 68000."
		" NavÉc, v pÒÉpadÅ AHI, majÉ verze pro 68000 m×nÅ funkcÉ"
		" a pracujÉ s omezenou kvalitou zvuku. SkuteÃnÅ VÁm doporuÃuji"
		" zvolit pÒi instalaci verze programÊ optimalizovan× pro 68020.\n\n"
	))

	(set #t_devfiles	"Kter× ze souborÊ pro vÙvojÁÒe si pÒejete nainstalovat?")
	(set #t_devdocs	"Autodocs a dokumentaci pro vÙvojÁÒe k AHI")
	(set #t_source		"PÒÉkladov× zdrojov× kÏdy")
	(set #t_asm		"Includes pro assembler")
	(set #t_cgen		"Includes pro obecn× C")
	(set #t_e			"Moduly pro E")
	(set #t_fd		"Soubory FD")
	(set #t_ade		"Dodatkov× includes pro ADE gcc")
	(set #t_sas		"Dodatkov× includes pro SAS/C (a DICE)")
	(set #t_storm		"Dodatkov× includes pro StormC")
	(set #t_devfileshelp	(cat
		"Autodocs a dokumentaci pro vÙvojÁÒe k AHI:\n"
		" Autodocs a pravidla pro programovÁnÉ AHI.\n\n"
		"PÒÉkladov× zdrojov× kÏdy:\n"
		" NÅkolik pÒÉkladovÙch programÊ, nejÃastÅji jsou napsÁny v C,"
		" ale je tam i nÅkolik kouskÊ v assembleru.\n\n"
		"Includes pro assembler:\n"
		" Includes, kter× jsou tÒeba pro programovÁnÉ v assembleru.\n\n"
		"Includes pro obecn× C:\n"
		" Includes, kter× jsou tÒeba pro programovÁnÉ v C.\n\n"
		"Moduly pro E:\n"
		" Moduly, kter× jsou nutn× pro AmigaE.\n\n"
		"Soubory FD:\n"
		" Pro pouÚitÉ s programem 'lvo', nebo v pÒÉpadÅ, Úe budete"
		" psÁt ovladaà pro zvukovou kartu v C.\n\n"
		"Dodatkov× includes pro ADE gcc:\n"
		" SpeciÁlnÉ includes pro gcc (inline, proto atd).\n\n"
		"Dodatkov× includes pro SAS/C (a DICE):\n"
		" SpeciÁlnÉ includes pro SAS/C (pragmas, proto atd)."
		" Budou fungovat tak× s DCC, ale bez volÁnÉ tagÊ.\n\n"
		"Dodatkov× includes pro StormC:\n"
		" SpeciÁlnÉ includes pro StormC (pragmas, proto atd).\n\n"
	))


	(set #t_nodevs			(cat
		"Nelze nal×zt pÒiÒazenÉ Devs:. PouÚijte vyÓÓÉ mÏd instalace"
		" (pro zkuÓenÅjÓÉ uÚivatele)."
	))
	(set #t_noc			(cat
		"Nelze nal×zt pÒiÒazenÉ C:. PouÚijte vyÓÓÉ mÏd instalace"
		" (pro zkuÓenÅjÓÉ uÚivatele)."
	))
	(set #t_noprefs		(cat
		"Nelze nal×zt adresÁÒ Sys:Prefs. PouÚijte vyÓÓÉ mÏd instalace"
		" (pro zkuÓenÅjÓÉ uÚivatele)."
	))
	(set #t_nol			(cat
		"Nelze nal×zt pÒiÒazenÉ L:. PouÚijte vyÓÓÉ mÏd instalace"
		" (pro zkuÓenÅjÓÉ uÚivatele)."
	))
	(set #t_devspath	"Kam si pÒejete nainstalovat syst×mov× soubory?")
	(set #t_devspathhelp	(cat
		" AdresÁÒ, kterÙ zvolÉte musÉ bÙt souÃÁstÉ pÒiÒazenÉ Devs:."
		" PÒi instalaci se tam nakopÉruje ahi.device, ovladaÃe pro"
		" hardware a soubory pro jednotliv× audio mÏdy."
		" Pro ovladaÃe a soubory s jednotlivÙmi audio mÏdy budou"
		" vytvoÒeny podadresÁÒe.\n\n"
	))
	(set #t_cpath		"Kam si pÒejete nainstalovat AddAudioModes?")
	(set #t_cpathhelp		(cat
		" AddAudioModes je pÒÉkaz, kterÙ slouÚÉ ke sprÁvÅ databÁze"
		" audio mÏdÊ (podobnost s databÁzÉ rozliÓovacÉch mÏdÊ je"
		" ÃistÅ nÁhodnÁ :-). PÒÉkaz by mÅl bÙt normÁlnÅ umÉstÅn"
		" v pÒiÒazenÉ C:.\n\n"
	))


	(set #t_localepath	"Kam si pÒejete nainstalovat lokalizaÃnÉ katalogy?")
	(set #t_localepathhelp	(cat
		" AdresÁÒ, kterÙ zvolÉte musÉ bÙt souÃÁstÉ pÒiÒazenÉ Locale:."
		" PÒi instalaci se tam nakopÉrujÉ lokalizaÃnÉ katalogy, kter×"
		" jste si vybrali. PochopitelnÅ budou jednotliv× katalogy"
		" nakopÉrovÁny do pÒÉsluÓnÙch adresÁÒÊ s danÙm jazykem.\n\n"
	))

	(set #t_prefspath	"Kam si pÒejete nainstalovat program pro nastavenÉ?")
	(set #t_prefspathhelp	(cat
		" Program pro nastavenÉ VÁm umoÚnÉ nakonfigurovat AHI pÒesnÅ"
		" dle moÚnostÉ poÃÉtaÃe. Je zde moÚno nastavit, kterou z ÃÁstÉ"
		" zvukov×ho hardware si pÒejete pouÚÉvat, jak× vstupy a vÙstupy"
		" atd. Programy pro nastavenÉ se obvykle nachÁzÉ v adresÁÒi"
		" SYS:Prefs/.\n"
		" Tento program vyÚaduje balÉk BGUI nebo MUI, coÚ zÁleÚÉ na"
		" volbÅ verze programu pro nastavenÉ.\n\n"
	))

	(set #t_audiohelp		(cat
		" AUDIO handler se pouÚÉvÁ k pÒipojenÉ zaÒÉzenÉ AUDIO:. PouhÙm"
		" kopÉrovÁnÉm souborÊ z a do tohoto zaÒÉzenÉ je moÚno pÒehrÁvat"
		" a zaznamenÁvat soubory v RAW, IFF-AIFF nebo IFF-AIFC.\n\n"
	))

	(set #t_lpath		"Kam si pÒejete nainstalovat AUDIO handler?")
	(set #t_lpathhelp		(cat
		#t_audiohelp
		" Handlery jsou obvykle umÉstÅny v pÒiÒazenÉ L:.\n\n"
	))

	(set #t_dosdevpath	"Kam si pÒejete nainstalovat pÒipojovacÉ soubor AUDIO (mount)?")
	(set #t_dosdevpathhelp	(cat
		#t_audiohelp
		" PÒipojovacÉ soubory (mount) jsou obvykle umÉstÅny v adresÁÒi"
		" Devs:DOSDrivers, v pÒÉpadÅ, Úe si je pÒejete pÒipojovat hned"
		" po startu. Pokud si to nepÒejete pak by mÅly bÙt pÒesunuty"
		" do adresÁÒe SYS:Storage/DOSDrivers.\n\n"
	))

	(set #t_dosdriver	"PÒejete si mÉt aktivovÁn AUDIO handler ihned startu?")
	(set #t_dosdriverhelp	(cat
		" V pÒÉpadÅ, Úe si to pÒejete, je moÚno nainstalovat AHI tak,"
		" Úe zaÒÉzenÉ AUDIO: bude aktivnÉ ihned po startu. Tento zpÊsob"
		" ÓetÒÉ Ãas, kterÙ jinak musÉte vynaloÚit na proklikÁnÉ se do"
		" SYS:Storage/DOSDrivers, a nevyÚaduje mnoho pamÅti. Z tohoto"
		" dÊvodu se doporuÃuje odpovÅdÅt 'Ano'.\n\n"
	))

	(set #t_userdocpath	"Kam si pÒejete nainstalovat uÚivatelskou dokumentaci?")
	(set #t_userdocpathhelp	(cat
		" Toto je soubor v formÁtu AmigaGuide®, kterÙ popisuje vlastnosti"
		" audio syst×mu AHI.\n\n"
	))

	(set #t_srcpath		(cat
		" Kam si pÒejete nainstalovat pÒÉkladov× zdrojov× kÏdy?"
		" Na tomto mÉstÅ bude vytvoÒen adresÁÒ s nÁzvem AHI."
	))
	(set #t_srcpathhelp		(cat
		" PÒÉkladov× zdrojov× kÏdy (v jazyce C i assembleru) budou"
		" uloÚeny v podadresÁÒi nazvan×m AHI. Jak×koliv soubory, kter×"
		" jsou aktuÁlnÅ uloÚeny v adresÁÒi AHI, budou smazÁny!\n\n"
	))
	(set #t_oldsrc			(cat
		" Na tomto mÉstÅ jiÚ adresÁÒ AHI existuje."
		" VÓechny soubory v nÅm budou smazÁny."
	))

	(set #t_devdocspath	" Kam si pÒejete nainstalovat dokumentaci pro vÙvojÁÒe?")
	(set #t_devdocspathhelp	(cat
		" Autodocs a dokumentace pro vÙvojÁÒe budou uloÚeny"
		" do adresÁÒe, kterÙ si zvolÉte.\n\n"
	))

	(set #t_aincpath	" Kde mÁte uloÚen× sv× includes pro assembler?")
	(set #t_aincpathhelp	(cat
		" Includes pro assembler budou uloÚeny do svÙch podadresÁÒÊ"
		" (lvo, devices a libraries) na disku, kterÙ si zvolÉte.\n\n"
	))

	(set #t_fdpath		" Kam si pÒejete uloÚit soubory FD?")
	(set #t_fdpathhelp		(cat
		" FD jsou soubory popisujÉcÉ funkce knihoven a zaÒÉzenÉ"
		" PouÚÉvajÉ se s programem 'lvo' a jsou tak× uÚiteÃn×"
		" pÒi vytvÁÒenÉ ovladaÃÊ pro hardware.\n\n"
	))

	(set #t_cincpath	" Kde mÁte uloÚen× sv× includes pro C?")
	(set #t_cincpathhelp	(cat
		" Includes pro obecn× C budou uloÚeny do svÙch"
		" podadresÁÒÊ (clib, devices a libraries) na disku, kterÙ"
		" si zvolÉte.\n\n"
	))

	(set #t_emodpath	" Kde mÁte uloÚen× sv× moduly pro E?")
	(set #t_emodpathhhelp	(cat
		" Moduly pro E budou uloÚeny do sv×ho adresÁÒe a jeho"
		" podadresÁÒÊ (devices a libraries) na disku, kterÙ si"
		" zvolÉte.\n\n"
	))

	(set #t_adeincpath	" Kam si pÒejete uloÚit includes pro ADE gcc?")
	(set #t_adeincpathhelp	(cat
		" gcc potÒebuje extra soubory k tomu, aby si zjistil, kter×"
		" registry vyuÚÉvat pÒi volÁnÉ funkcÉ AHI. Tato informace"
		" je obsaÚena v souborech, kter× budou kopÉrovÁny do adresÁÒÊ"
		" inline, pragmas a proto.\n\n"
	))

	(set #t_sasincpath	" Kam si pÒejete uloÚit includes pro SAS/C (a DICE)?")
	(set #t_sasincpathhelp	(cat
		" SAS/C (a DICE) potÒebuje extra soubory k tomu, aby si zjistil,"
		" kter× registry vyuÚÉvat pÒi volÁnÉ funkcÉ AHI. Tato informace"
		" je obsaÚena v souborech, kter× budou kopÉrovÁny do adresÁÒÊ"
		" inline, pragmas a proto.\n\n"
	))

	(set #t_stormincpath	" Kam si pÒejete uloÚit includes pro StormC?")
	(set #t_stormincpathhelp (cat
		" StormC potÒebuje extra soubory k tomu, aby si zjistil, kter×"
		" registry vyuÚÉvat pÒi volÁnÉ funkcÉ AHI. Tato informace"
		" je obsaÚena v souborech, kter× budou kopÉrovÁny do adresÁÒÊ"
		" inline, pragmas a proto.\n\n"
	))

	(set #t_ahidevhelp		(cat
		" ahi.device je jÁdrem cel×ho audio"
		" syst×mu AHI. Toto je jedinÁ ÃÁst tohoto"
		" syst×mu, o kter× 'vÉ' ostatnÉ programy.\n\n"
	))

	(set #t_runaddmodes		(cat
		" Bude spuÓtÅn pÒÉkaz AddAudioModes k tomu,"
		" aby se obnovila databÁze audio mÏdÊ."
	))


	(set #t_overwritemode1
		" V tomto adresÁÒi jiÚ soubor s popisem audio mÏdu existuje ")
	(set #t_overwritemode2 " v ")
	(set #t_overwritemode3	(cat
		".\n\n"
		" SkuteÃnÅ si to pÒejete pÒepsat?"
		" VeÓkerÁ zmÅnÅnÁ nastavenÉ budou ztracena!"
	))
))

;(if (= @language "svenska")
;(
;))


;**
;** Procedures
;**

(procedure P_INSTDRIVER #pi_audioname #pi_modename
(
	(set #pi_drvpath (tackon #devspath "AHI/"))
	(set #pi_modepath (tackon #devspath "AudioModes/"))
	(if (not (exists #pi_drvpath))
		(makedir #pi_drvpath)
	)
	(if (not (exists #pi_modepath))
		(makedir #pi_modepath)
	)

	(if (exists (tackon "ram:delftemp/User/Devs/AHI" (cat #pi_audioname #ver68k)))
	(
		(set #pi_audionamesrc (cat #pi_audioname #ver68k))
	)
	(
		(set #pi_audionamesrc #pi_audioname)
	))

	(copylib
		(help (cat #t_drivershelp @copylib-help))
		(prompt (cat #t_installing #pi_drvpath #pi_audionamesrc))
		(source (tackon "ram:delftemp/User/Devs/AHI" #pi_audionamesrc))
		(dest #pi_drvpath)
		(newname #pi_audioname)
		(confirm)
	)

	(set #pt_copymode 0)
	(if (exists (tackon #pi_modepath #pi_modename))
	(if (exists (tackon #pi_modepath #pi_modename))
	(
;		(if (askbool
;			(prompt	(cat #t_overwritemode1
;				#pi_modename
;				#t_overwritemode2
;				#pi_drvpath
;				#t_overwritemode3
;			))
;			(default 1)
;			(help #t_drivershelp)
;		)
;		(
			(set #pt_copymode 1)
;		))
	))
	( ; else (exists)
		(set #pt_copymode 1)
	))
	(if (= #pt_copymode 1)
	(
		(copyfiles 
			(prompt (cat #t_installing #pi_modepath #pi_modename))
			(source (tackon "ram:delftemp/User/Devs/AudioModes" #pi_modename))
			(dest #pi_modepath)
		)
	))
))

(procedure P_INSTCATALOG #pi_language
(
	(set #pi_dest (tackon (tackon #localepath "Catalogs") #pi_language))
	(copyfiles 
		(prompt (cat #t_installing (tackon #pi_dest #pi_language)))
		(source (tackon "ram:delftemp/User/Catalogs" #pi_language))
		(dest #pi_dest)
		(all)
	)
))

;** 
;** Main installation procedure starts here...
;**

(set	#system		1	;System files
	#prefs		2	;Preferences program
	#audio		4	;The AHI handler
	#userdoc	8	;User documentation
	#a-developer	16	;App. programmers developer files
	#d-developer	32	;Drv. programmers developer files
)
(set	#delfina	1	;Sound card drivers
	#filesave	2
	#paula		4
	#prelude	8
	#toccata	16
	#wavetools	32
)

(set	#devdocs	1	;Autodocs and programming guidelines
	#source		2	;Example source code
	#asm		4	;Assembler include files
	#cgen		8	;Generic C include files
	#e		16	;E module files
	#fd		32	;FD-files
	#ade		64	;ADE gcc include files
	#sas		128	;SAS/C include files
	#storm		256	;StormC include files
)

;**
;** Make sure we're using a recent version of the installer
;**

(if (< @installer-version (+ (* 43 65536) 3))
(
	(if (not (askbool
		(prompt #t_oldinstaller)
		(help #t_oldinstallerhelp)
	))
	(
		(abort (cat #t_installaborted "\n\n" #t_oldinstallerhelp))
	))
))

;**
;** Welcome!
;**

(welcome #t_welcome)

;**
;** Find out which parts should be installed
;**

(set #default 0 #helptext "")
(set #parts 0)

;** DELFINA **

(set #helptext (cat #t_userhelp #t_devhelp))
(set #default (bitor #default #system #prefs #audio #userdoc #a-developer))

;**
;** these commented out
;**(if (exists "User")
;**(
;**	(set #helptext (cat #helptext #t_userhelp))
;**	(set #default (bitor #default #system #prefs #audio #userdoc))
;**)
;**( ; else
;**	(set #t_system "")
;**	(set #t_prefs "")
;**	(set #t_audio "")
;**	(set #t_userdoc "")
;**
;**))
;**
;**(if (exists "Developer")
;**(
;**	(set #helptext (cat #helptext #t_devhelp))
;**	(set #default (bitor #default #a-developer))
;**)
;**( ; else
;**	(set #t_a-developer "")
;**	(set #t_d-developer "")
;**))
;** /DELFINA **

(if (= #default 0)
	(abort #t_nofiles)
)

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

;**
;**  Ask which parts should be installed
;**

(if (= @user-level 0)
(
	(set #parts #default)
)
( ; Average or Expert
	(set #parts (askoptions
		(prompt #t_parts)
		(help (cat #helptext @askoptions-help))
		(choices #t_system #t_prefs #t_audio #t_userdoc #t_a-developer #t_d-developer)
		(default #default)
	))
))

;**
;**  Which GUI system?
;**

(set	#gui_bgui	0	;Use BGUI
	#gui_mui	1	;Use MUI
)

(set #gui #gui_mui)

(if (bitand #parts #prefs)
	(set #gui (askchoice
		(prompt #t_gui)
		(help (cat #t_guihelp @askchoice-help))
		(choices #t_guibgui #t_guimui)
		(default #gui))
	)
)	

(if (= #gui #gui_bgui)
	(set #prefssrc "AHI_BGUI")
)
(if (= #gui #gui_mui)
	(set #prefssrc "AHI_MUI")
)


;**
;**  Which icon?
;**

(set	#icon_std	0
	#icon_mwb	1
)

(set #icon #icon_mwb)

(if (<> (getenv "MagicWB") "")
	(set #icon #icon_mwb)
)

(if (bitand #parts (bitor #prefs #audio))
	(set #icon (askchoice
		(prompt #t_icon)
		(help (cat #t_iconhelp @askchoice-help))
		(choices #t_iconstd #t_iconmwb)
		(default #icon))
	)
)	


;**
;**  Activate the AUDIO handler at boot time?
;**

(set #dosdevpath	"Devs:DOSDrivers")

(if (and (bitand #parts #audio) (>= @user-level 1))
	(if (not (askbool
		(prompt #t_dosdriver)
		(help (cat #t_dosdriverhelp @askbool-help))
		(default 1)))
	(
		(set #dosdevpath "SYS:Storage/DOSDrivers")
	))
)

;**
;**  Ask which languages should be installed
;**

(set	#dansk		1
	#deutsch	2
	#español	4
	#français	8
	#greek		16
	#íslenska	32
	#italiano	64
	#nederlands	128
	#norsk		256
	#polski		512
	#português	1024
	#srpski		2048
	#suomi		4096
	#svenska	8192
	#ÃeÓtina	16384

)

(set	#t_dansk	"Dansk"
	#t_deutsch	"Deutsch"
	#t_español	"Español"
	#t_français	"Français"
	#t_greek	"Greek"
	#t_íslenska	"Íslenska"
	#t_italiano	"Italiano"
	#t_nederlands	"Nederlands"
	#t_norsk	"Norsk"
	#t_polski	"Polski"
	#t_português	"Português"
	#t_srpski	"Srpski"
	#t_suomi	"Suomi"
	#t_svenska	"Svenska"
	#t_ÃeÓtina	"ãeÓtina"
)


(set	#default 0)

;** DELFINA **
;**
;** can't detect in this stage, they are still in archive.. commented out
;**(if (not (exists "User/Catalogs/dansk"))	(set #t_dansk ""))
;**(if (not (exists "User/Catalogs/deutsch"))	(set #t_deutsch ""))
;**(if (not (exists "User/Catalogs/español"))	(set #t_español ""))
;**(if (not (exists "User/Catalogs/français"))	(set #t_français ""))
;**(if (not (exists "User/Catalogs/greek"))	(set #t_greek ""))
;**(if (not (exists "User/Catalogs/íslenska"))	(set #t_íslenska ""))
;**(if (not (exists "User/Catalogs/italiano"))	(set #t_italiano ""))
;**(if (not (exists "User/Catalogs/nederlands")) (set #t_nederlands ""))
;**(if (not (exists "User/Catalogs/norsk"))	(set #t_norsk ""))
;**(if (not (exists "User/Catalogs/polski"))	(set #t_polski ""))
;**(if (not (exists "User/Catalogs/português"))	(set #t_português ""))
;**(if (not (exists "User/Catalogs/srpski"))	(set #t_srpski ""))
;**(if (not (exists "User/Catalogs/suomi"))	(set #t_suomi ""))
;**(if (not (exists "User/Catalogs/svenska"))	(set #t_svenska ""))
;**(if (not (exists "User/Catalogs/ÃeÓtina"))	(set #t_ÃeÓtina ""))
(set #t_greek "")
(set #t_islenska "")
;** /DELFINA **

(if (and (exists "LOCALE:Languages/dansk.language" (noreq)) (not (= #t_dansk "")))
	(set #default (bitor #default #dansk))
)
(if (and (exists "LOCALE:Languages/deutsch.language" (noreq)) (not (= #t_deutsch "")))
	(set #default (bitor #default #deutsch))
)
(if (and (exists "LOCALE:Languages/español.language" (noreq)) (not (= #t_español "")))
	(set #default (bitor #default #español))
)
(if (and (exists "LOCALE:Languages/français.language" (noreq)) (not (= #t_français "")))
	(set #default (bitor #default #français))
)
(if (and (exists "LOCALE:Languages/greek.language" (noreq)) (not (= #t_greek "")))
	(set #default (bitor #default #greek))
)
(if (and (exists "LOCALE:Languages/íslenska.language" (noreq)) (not (= #t_íslenska "")))
	(set #default (bitor #default #íslenska))
)
(if (and (exists "LOCALE:Languages/italiano.language" (noreq)) (not (= #t_italiano "")))
	(set #default (bitor #default #italiano))
)
(if (and (exists "LOCALE:Languages/nederlands.language" (noreq)) (not (= #t_nederlands "")))
	(set #default (bitor #default #nederlands))
)
(if (and (exists "LOCALE:Languages/norsk.language" (noreq)) (not (= #t_norsk "")))
	(set #default (bitor #default #norsk))
)
(if (and (exists "LOCALE:Languages/polski.language" (noreq)) (not (= #t_polski "")))
	(set #default (bitor #default #polski))
)
(if (and (exists "LOCALE:Languages/português.language" (noreq)) (not (= #t_portugues "")))
	(set #default (bitor #default #portugues))
)
(if (and (exists "LOCALE:Languages/srpski.language" (noreq)) (not (= #t_srpski "")))
	(set #default (bitor #default #srpski))
)
(if (and (exists "LOCALE:Languages/suomi.language" (noreq)) (not (= #t_suomi "")))
	(set #default (bitor #default #suomi))
)
(if (and (exists "LOCALE:Languages/svenska.language" (noreq)) (not (= #t_svenska "")))
	(set #default (bitor #default #svenska))
)
(if (and (exists "LOCALE:Languages/ÃeÓtina.language" (noreq)) (not (= #t_ÃeÓtina "")))
	(set #default (bitor #default #ÃeÓtina))
)

(if (bitand #parts (bitor #system #prefs))
	(if (= @user-level 0)
	(
		(set #languages #default)
	)
	( ; Average or Expert
		(set #languages (askoptions
			(prompt #t_languages)
			(help (cat #t_languageshelp @askoptions-help))
			(choices #t_dansk #t_deutsch  #t_español #t_français
			         #t_greek #t_íslenska #t_italiano #t_nederlands
			         #t_norsk #t_polski #t_português #t_srpski
			         #t_suomi #t_svenska #t_ÃeÓtina)
			(default #default)
		))
	))
)


;**
;** Find out which drivers should be installed (if any)
;**

(set	#default #filesave)
(set	#drivers 0)

(if (exists "Libs:delfina.library" (noreq))
	(set #default (bitor #default #delfina))
)
(if (<> (database "graphics-mem") 0)			; Test for not Draco...
	(set #default (bitor #default #paula))
)
(if (exists "Libs:prelude.library" (noreq))
	(set #default (bitor #default #prelude))
)

(if (exists "Libs:toccata.library" (noreq))
	(if (< (bitand (getversion "Libs:toccata.library") 65535) 1000)
		(set #default (bitor #default #toccata))
	)
)
(if (exists "Devs:dad_audio.device" (noreq)) 
	(set #default (bitor #default #wavetools))
)

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

(if (bitand #parts #system)
	(if (= @user-level 0)
	(
		(set #drivers #default)
	)
	( ; Average or Expert
		(set #drivers (askoptions
			(prompt #t_drivers)
			(help (cat #t_drivershelp @askoptions-help))
			(choices "Delfina" "Filesave" "Paula" "Prelude" "Toccata" "Wavetools")
			(default #default)
		))
	))
)

;**
;**  Install 020-versions of the binaries?
;**

(set #ver68k	"")
(set #default	1)

(if (patmatch "68000|68010" (database "cpu"))
(
	(set #default 0)
))

(if (patmatch "68060" (database "cpu"))
(
	(set #default 2)
))

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

(if (and (bitand #parts #system) (>= @user-level 1))
	(set #default (askchoice
		(prompt #t_020ver)
		(help (cat #t_020verhelp @askbool-help))
		(choices "68000" "68020-68040" "68060")
		(default #default)))
)

(if (= #default 0)
(
	(set #ver68k ".000")
))
(if (= #default 2)
(
	(set #ver68k ".060")
))


;**
;** Find out which developer files should be installed
;**

(set	#default (bitor #devdocs #source #asm #cgen #fd))
(set	#devfiles 0)

(if (exists "ADE:" (noreq))
	(set #default (bitor #default #ade))
)

(if (exists "SC:" (noreq))
	(set #default (bitor #default #sas))
)

(if (exists "STORMC:" (noreq))
	(set #default (bitor #default #storm))
)

(if (exists "EMODULES:" (noreq))
	(set #default (bitor #default #e))
)

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

(if (bitand #parts (bitor #a-developer #d-developer))
(
	(if (= @user-level 0)
	(
		(set #devfiles #default)
	)
	( ; Average or Expert
		(set #devfiles (askoptions
			(prompt #t_devfiles)
			(help (cat #t_devfileshelp @askoptions-help))
			(choices #t_devdocs #t_source #t_asm #t_cgen #t_e #t_fd #t_ade #t_sas #t_storm )
			(default #default)
		))
	))
))

;**
;** Find out where the files should be installed
;**

(set #devspath		"Devs:")
(set #cpath		"C:")
(set #prefspath		"SYS:Prefs/")
(set #lpath		"L:")
(set #localepath	"Locale:")

(set #incpath		@default-dest)
(set #adeincpath	"ADE:include/")
(set #sasincpath	"Include:")
(set #stormincpath	"StormC:Include")
(set #fdpath		"FD:")
(set #emodpath		"EMODULES:")

(if (exists #devspath (noreq)) (set #devspath (expandpath #devspath)))
(if (exists #cpath (noreq)) (set #cpath (expandpath #cpath)))
(if (exists #prefspath (noreq)) (set #prefspath (expandpath #prefspath)))
(if (exists #lpath (noreq)) (set #lpath (expandpath #lpath)))
(if (exists #localepath (noreq)) (set #localepath (expandpath #localepath)))

;** DELFINA **
;**
;** I prefer AHI stuff here.. 
(if (exists "ENV:DelfinaDir") (
	(set @default-dest (tackon (getenv "DelfinaDir") "Delfina/"))
	(set #userdocpath (cat @default-dest "AHI/"))
)
;** /DELFINA **

(if (not (exists "Help:" (noreq)))
(
	(if (bitand #parts #prefs)
		(set #userdocpath #prefspath)
		(set #userdocpath @default-dest)
	)
)
(
	(if (>= #osversion 38)
		(set #userdocpath "Help:")
		(set #userdocpath @default-dest)
	)
))

;** DELFINA **
)
;** /DELFINA **

(if (bitand #devfiles #ade)
(
	(set #incpath "ADE:os-include/")
))
(if (exists "Include:" (noreq))
(
	(set #incpath "Include:")
))

(if (= @user-level 0)
(
	(if (and (bitand #parts #system) (not (exists #devspath (noreq))))
	(
		(abort #t_nodevs)
	))
	(if (and (bitand #parts #system) (not (exists #cpath (noreq))))
	(
		(abort #t_noc)
	))
	(if (and (bitand #parts #prefs) (not (exists #prefspath (noreq))))
		(
		(abort #t_noprefs)
	))
	(if (and (bitand #parts #audio) (not (exists #lpath (noreq))))
	(
		(abort #t_nol)
	))

	(set #srcpath (tackon @default-dest "AHI/"))
	(if (exists #srcpath)
	(
		(delete #srcpath
			(all)
			(optional "force")
		)
	))

	(set #devdocspath (tackon #srcpath "docs/"))
	(if (= 	#userdocpath @default-dest)
	(
		(set #userdocpath #devdocspath)
	))
	(if (= #incpath @default-dest)
	(
		(set #incpath (tackon #srcpath "include/"))
	))
	(set #aincpath #incpath)
	(set #cincpath #incpath)
	(if (not (exists #sasincpath (noreq)))
	(
		(set #sasincpath #cincpath)
	))
	(if (not (exists #stormincpath (noreq)))
	(
		(set #stormincpath #cincpath)
	))
	(if (not (exists #fdpath (noreq)))
	(
		(set #fdpath (tackon #aincpath "fd/"))
	))
	(if (not (exists #emodpath (noreq)))
	(
		(set #emodpath #cincpath)
	))

	(makedir #srcpath (infos))
	(set @default-dest #srcpath)

; Match the number of completes in the 'else' section...
	(complete (/ #complete 10)) (set #complete (+ #complete (* 15 #completeadd)))

)
( ; Average or Expert

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (and (bitand #parts #system)
	         (or (not (exists #devspath (noreq))) (= @user-level 2) ))
	(
		(set #devspath (askdir 
			(prompt #t_devspath)
			(help (cat #t_devspathhelp @askdir-help))
			(default #devspath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (and (bitand #parts #system)
	         (or (not (exists #cpath (noreq))) (= @user-level 2) ))
	(
		(set #cpath (askdir 
			(prompt #t_cpath)
			(help (cat #t_cpathhelp @askdir-help))
			(default #cpath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (and (<> #languages 0)
	         (or (not (exists #localepath (noreq))) (= @user-level 2) ))
	(
		(set #localepath (askdir 
			(prompt #t_localepath)
			(help (cat #t_localepathhelp @askdir-help))
			(default #localepath)
		))
	))



	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (and (bitand #parts #prefs)
	         (or (not (exists #prefspath (noreq))) (= @user-level 2) ))
	(
		(set #prefspath (askdir 
			(prompt #t_prefspath)
			(help (cat #t_prefspathhelp @askdir-help))
			(default #prefspath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (and (bitand #parts #audio)
	         (or (not (exists #lpath (noreq))) (= @user-level 2) ))
	(
		(set #lpath (askdir 
			(prompt #t_lpath)
			(help (cat #t_lpathhelp @askdir-help))
			(default #lpath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (and (bitand #parts #audio)
	         (or (not (exists #dosdevpath (noreq))) (= @user-level 2) ))
	(
		(set #dosdevpath (askdir 
			(prompt #t_dosdevpath)
			(help (cat #t_dosdevpathhelp @askdir-help))
			(default #dosdevpath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (bitand #devfiles #source)
	(
		(set #srcpath (askdir 
			(prompt #t_srcpath)
			(help (cat #t_srcpathhelp @askdir-help))
			(default @default-dest)
		))
		(set #srcpath (tackon #srcpath "AHI/"))
		(if (exists #srcpath)
		(
			(delete #srcpath
				(all)
				(confirm average)
				(optional "force")
				(prompt #t_oldsrc)
				(help #t_nohelp)
			)
		))
		(makedir #srcpath (infos))
		(set @default-dest #srcpath)
	))

;** DELFINA **
;**
;** the following section is moved here so #srcpath is available
	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (and (bitand #parts #userdoc)
	         (or (= #userdocpath @default-dest) (= @user-level 2) ))
	(
		(set #userdocpath (askdir 
			(prompt #t_userdocpath)
			(help (cat #t_userdocpathhelp @askdir-help))
			(default #userdocpath)
		))
	))
;** /DELFINA **

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (bitand #devfiles #devdocs)
	(
		(set #devdocspath (askdir 
			(prompt #t_devdocspath)
			(help (cat #t_devdocspathhelp @askdir-help))
			(default (tackon @default-dest "docs/"))
			(newpath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (bitand #devfiles #asm)
	(
		(set #aincpath (askdir 
			(prompt #t_aincpath)
			(help (cat #t_aincpathhelp @askdir-help))
			(default #incpath)
		))

	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (bitand #devfiles #fd)
	(
		(if (not (exists #fdpath (noreq)))
		(
			(set #fdpath (tackon #aincpath "fd/"))
		))
		(set #fdpath (askdir 
			(prompt #t_fdpath)
			(help (cat #t_fdpathhelp @askdir-help))
			(default #fdpath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (bitand #devfiles #cgen)
	(
		(set #cincpath (askdir 
			(prompt #t_cincpath)
			(help (cat #t_cincpathhelp @askdir-help))
			(default #incpath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (bitand #devfiles #e)
	(
		(set #emodpath (askdir 
			(prompt #t_emodpath)
			(help (cat #t_emodpathhelp @askdir-help))
			(default #emodpath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (bitand #devfiles #ade)
	(
		(set #adeincpath (askdir 
			(prompt #t_adeincpath)
			(help (cat #t_adeincpathhelp @askdir-help))
			(default #adeincpath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (bitand #devfiles #sas)
	(
		(set #sasincpath (askdir 
			(prompt #t_sasincpath)
			(help (cat #t_sasincpathhelp @askdir-help))
			(default #sasincpath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (bitand #devfiles #storm)
	(
		(set #stormincpath (askdir 
			(prompt #t_stormincpath)
			(help (cat #t_stormincpathhelp @askdir-help))
			(default #stormincpath)
		))
	))
))


;******************************************************************************
;**** Install *****************************************************************
;******************************************************************************

;** DELFINA **

;**
;** Extract & install bgui.library, if using BGUI prefs
;** 
(if (= #gui #gui_bgui) (
(run "c/unlzx -m x data/bgui.lzx ram:delftemp/")

(copylib
	(prompt #t_copylib)
	(help #t_copylibhelp)
	(source "ram:delftemp/bgui.library")
	(dest "Libs:")
	(confirm average)
)
(delete "ram:delftemp" (all))))

;**
;** Extract the user archive
;**
(run "c/unlzx -m x data/ahiusr.lzx User/#?  ram:delftemp/")
;** /DELFINA **

;**
;** Install the prefs program
;**

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #parts #prefs)
(

; No version checking, so user can change gui version

	(copyfiles
		(help (cat #t_prefspathhelp @copylib-help))
		(prompt #t_installing "AHI")
		(source (tackon "ram:delftemp/User/Prefs" #prefssrc))
		(dest #prefspath)
		(newname "AHI")
		(confirm)
	)
	(protect (tackon #prefspath "AHI") "+e")


	(if (= #icon #icon_std)
		(set #iconsrc "AHI.info")
	)
	(if (= #icon #icon_mwb)
		(set #iconsrc "AHI.MWB.info")
	)

	(copyfiles
		(help (cat #t_prefspathhelp @copylib-help))
		(prompt #t_installing "AHI")
		(source (tackon "ram:delftemp/User/Prefs" #iconsrc))
		(dest #prefspath)
		(newname "AHI.info")
		(confirm)
		(noposition)
	)

	(set @default-dest #prefspath)
))

;**
;** Install the audio handler
;**

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #parts #audio)
(
	(copylib
		(help (cat #t_lpathhelp @copylib-help))
		(prompt #t_installing "AHI-Handler")
		(source "ram:delftemp/User/L/AHI-Handler")
		(dest #lpath)
		(confirm)
	)
	(protect (tackon #lpath "AHI-Handler") "+e")

	(copylib
		(help (cat #t_dosdevpathhelp @copylib-help))
		(prompt #t_installing "AUDIO")
		(source "ram:delftemp/User/Devs/DOSDrivers/AUDIO")
		(dest #dosdevpath)
		(confirm)
	)

	(if (= #icon #icon_std)
		(set #iconsrc "AUDIO.info")
	)
	(if (= #icon #icon_mwb)
		(set #iconsrc "AUDIO.MWB.info")
	)

	(copyfiles
		(help (cat #t_dosdevpathhelp @copylib-help))
		(prompt #t_installing "AUDIO")
		(source (tackon "ram:delftemp/User/Devs/DOSDrivers" #iconsrc))
		(dest #dosdevpath)
		(newname "AUDIO.info")
		(confirm)
		(noposition)
	)

	(set @default-dest #lpath)
))

;**
;** Install the user documentation
;**

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #parts #userdoc)
(
	(copyfiles
		(help (cat #t_userdocpathhelp @copylib-help))
		(prompt #t_installing "ahi.guide")
		(source "ram:delftemp/User/Help/ahi.guide")
		(dest #userdocpath)
		(infos)
		(noposition)
	)

	(set @default-dest #userdocpath)
))


;**
;** Install ahi.device, AddAudioModes and drivers
;**

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #parts #system)
(

;** ahi.device
	(copylib
		(help (cat #t_ahidevhelp @copylib-help))
		(prompt (cat #t_installing "ahi.device" #ver68k))
		(source (cat "ram:delftemp/User/Devs/ahi.device" #ver68k))
		(dest #devspath)
		(newname "ahi.device")
		(confirm)
	)

;** AddAudioModes
	(copylib
		(help (cat #t_cpathhelp @copylib-help))
		(prompt #t_installing "AddAudioModes")
		(source "ram:delftemp/User/C/AddAudioModes")
		(dest #cpath)
		(confirm)
	)
	(protect (tackon #cpath "AddAudioModes") "+e")

;** Drivers

	(if (bitand #drivers #delfina)
		(P_INSTDRIVER "delfina.audio" "DELFINA")
	)
	(if (bitand #drivers #filesave)
		(P_INSTDRIVER "filesave.audio" "FILESAVE")
	)
	(if (bitand #drivers #paula)
		(P_INSTDRIVER "paula.audio" "PAULA")
	)
	(if (bitand #drivers #prelude)
		(P_INSTDRIVER "prelude.audio" "PRELUDE")
	)
	(if (bitand #drivers #toccata)
		(P_INSTDRIVER "toccata.audio" "TOCCATA")
	)
	(if (bitand #drivers #wavetools)
		(P_INSTDRIVER "wavetools.audio" "WAVETOOLS")
	)

	(run (cat (tackon #cpath "AddAudioModes") " REMOVE")
		(prompt #t_runaddmodes)
		(help #t_nohelp)
		(confirm)
	)

	(set @default-dest #devspath)
))


;**
;** Install the catalogs
;**

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #parts (bitor #system #prefs))
(
;** Catalogs
	(if (bitand #languages #dansk)
		(P_INSTCATALOG #t_dansk)
	)
	(if (bitand #languages #deutsch)
		(P_INSTCATALOG #t_deutsch)
	)
	(if (bitand #languages #español)
		(P_INSTCATALOG #t_español)
	)
	(if (bitand #languages #français)
		(P_INSTCATALOG #t_français)
	)
	(if (bitand #languages #greek)
		(P_INSTCATALOG #t_greek)
	)
	(if (bitand #languages #íslenska)
		(P_INSTCATALOG #t_íslenska)
	)
	(if (bitand #languages #italiano)
		(P_INSTCATALOG #t_italiano)
	)
	(if (bitand #languages #nederlands)
		(P_INSTCATALOG #t_nederlands)
	)
	(if (bitand #languages #norsk)
		(P_INSTCATALOG #t_norsk)
	)
	(if (bitand #languages #polski)
		(P_INSTCATALOG #polski)
	)
	(if (bitand #languages #português)
		(P_INSTCATALOG #t_português)
	)
	(if (bitand #languages #srpski)
		(P_INSTCATALOG #t_srpski)
	)
	(if (bitand #languages #suomi)
		(P_INSTCATALOG #t_suomi)
	)
	(if (bitand #languages #svenska)
		(P_INSTCATALOG #t_svenska)
	)
	(if (bitand #languages #ÃeÓtina)
		(P_INSTCATALOG #t_ÃeÓtina)
	)
))

;** DELFINA **
;**
;** clear tempdir

(delete "ram:delftemp" (all))

;**
;** Extract developer archive, part1
;**

(working (cat #t_installing "ahidev.lzx"))
(run "c/unlzx -m x data/ahidev.lzx Developer/include/#? Developer/docs/#? ram:Delftemp/")

;** /DELFINA **

;**
;** Install the autodocs
;**

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #devfiles #devdocs)
(
	(if (bitand #parts #a-developer)
		(set #pattern "~(#?sub#?)"))

	(if (bitand #parts #d-developer)
		(set #pattern "(#?sub#?)"))

	(if (and (bitand #parts #a-developer) (bitand #parts #d-developer))
		(set #pattern "#?"))

	(makedir #devdocspath)
	(copyfiles
		(help @copylib-help)
		(prompt #t_installingdocs )
		(source "ram:delftemp/Developer/docs/")
		(dest #devdocspath)
		(pattern #pattern)
		(confirm average)
		(infos)
		(noposition)
	)

	(set @default-dest #devdocspath)
))

;**
;** Install the include files
;**

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #devfiles #fd)
(
	(copyfiles
		(help @copylib-help)
		(prompt #t_installingincs)
		(source "ram:delftemp/Developer/Include/FD")
		(dest #fdpath)
		(all)
	)

	(set @default-dest #fdpath)
))

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #devfiles #asm)
(
	(copyfiles
		(help @copylib-help)
		(prompt #t_installingincs)
		(source "ram:delftemp/Developer/include/Asm")
		(dest #aincpath)
		(all)
	)
	(set @default-dest #aincpath)
))

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #devfiles #cgen)
(
	(copyfiles
		(help @copylib-help)
		(prompt #t_installingincs)
		(source "ram:delftemp/Developer/Include/C")
		(dest #cincpath)
		(all)
	)

	(set @default-dest #cincpath)
))

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #devfiles #e)
(
	(copyfiles
		(help @copylib-help)
		(prompt #t_installingincs)
		(source "ram:delftemp/Developer/Include/E")
		(dest #emodpath)
		(all)
	)

	(set @default-dest #emodpath)
))

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #devfiles #ade)
(
	(copyfiles
		(help @copylib-help)
		(prompt #t_installingincs)
		(source "ram:delftemp/Developer/Include/ADE")
		(dest #adeincpath)
		(all)
	)

	(set @default-dest #adeincpath)
))

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #devfiles #sas)
(
	(copyfiles
		(help @copylib-help)
		(prompt #t_installingincs)
		(source "ram:delftemp/Developer/Include/SAS")
		(dest #sasincpath)
		(all)
	)

	(set @default-dest #sasincpath)
))

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #devfiles #storm)
(
	(copyfiles
		(help @copylib-help)
		(prompt #t_installingincs)
		(source "ram:delftemp/Developer/Include/Storm")
		(dest #stormincpath)
		(all)
	)

	(set @default-dest #stormincpath)
))

;** DELFINA **
;**
;** clear tempdir
;**

(delete "ram:delftemp" (all))

;**
;** Extract developer archive, part1
;**

(working (cat #t_installing "ahidev.lzx"))
(run "c/unlzx -m x data/ahidev.lzx Developer/support/#? Developer/examples/#? Developer/drivers/#? ram:delftemp/")

;** /DELFINA **

;** 
;** Install the examples
;**

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #devfiles #source)
(
	(if (bitand #parts #a-developer)
	(
		(makedir (tackon #srcpath "examples/"))
		(copyfiles
			(help @copylib-help)
			(prompt #t_installingsrc)
			(source "ram:delftemp/Developer/examples")
			(dest (tackon #srcpath "examples/"))
			(all)
		)
	))
	(if (bitand #parts #d-developer)
	(
		(makedir (tackon #srcpath "drivers/"))
		(copyfiles
			(help @copylib-help)
			(prompt #t_installingsrc)
			(source "ram:delftemp/Developer/drivers")
			(dest (tackon #srcpath "drivers/"))
			(all)
		)
		(makedir (tackon #srcpath "support/"))
		(copyfiles
			(help @copylib-help)
			(prompt #t_installingsrc)
			(source "ram:delftemp/Developer/support")
			(dest (tackon #srcpath "support/"))
			(all)
		)
	))
	(if (bitand #parts (bitor #a-developer #d-developer))
	(
		(copyfiles
			(help @copylib-help)
			(prompt #t_installingsrc)
			(source "")
			(dest #srcpath)
			(pattern "(COPYRIGHT|HISTORY|VERSION|ahi.readme)#?")
		)
	))

	(set @default-dest #srcpath)
))

;** DELFINA **
;**
;** clear tempdir
;**

(delete "ram:delftemp" (all))

;** /DELFINA


(complete 100)
(exit)