; 
(message
   "\nXLabProcess V1.24a\n"
   "© Xavier NUEL, 1997\n"
   "BadDolls Production\n"
   "Ce programme est désormais NetWare\n"
   "---\n"
   "Pensez à vous enregistrer...\n\n"
)
(set @default-dest (pathonly (expandpath "Work:"))
)
(if (= @language "français")

(
(set #where_install "Où voulez-vous installer\nle répertoire 'XLabProcess' ?")
(set #copyingxlp "Copie de XLabProcess vers ")
(set #instlocdir "Installation des fichiers 'Catalogs'. Le repertoire 'XLabProcess_cd' contient les fichiers de description du 'Catalog'.")
)

; ---- English ----
(
(set #where_install "Where do you want to put\nthe 'XLabProcess' directory ?")
(set #copyingxlp "Copying XLabProcess to ")
(set #instlocdir "Copying 'Catalogs' ... ( English build-in ) . The 'XLabProcess_cd' directory contain the catalog's descriptor files.")
)

)

(set InstallDir
   (askdir
      (prompt #where_install)
      (help @askdir-help)
      (default @default-dest)
   )
)

(set DestDir 
	(tackon InstallDir "XLabProcess")
)


(makedir DestDir
   (infos)
)

(copyfiles
   (prompt #copyingxlp DestDir)
   (help @copyfiles-help)
   (source "/XLabProcess")
   (dest DestDir)
   (choices "XLabProcess"
            "XLabProcess.guide"
            "XLabProcess.readme"
            "BadDolls.IFF"
            "Convolutions" )
   (infos)
   (confirm)
)


(copyfiles
	(prompt #instlocdir)
    	(help @copyfiles-help)
	(source "Catalogs")
	(dest "Locale:catalogs")
	(all)
     (confirm)
)


(message
   "\nXLabProcess V1.24a\n"
   "© Xavier NUEL, 1997\n\n"
   "Ce programme est NetWare\n"
   "Pensez à vous enregistrer...\n\n"
   "E_Mail: xn.baddolls@a2points.com\n"
   "---\n"
   "Visitez le site de BadDolls Production\n"
   "http://www.a2points.com/homepage/3698138/\n"
)