; Install script for ModePro

(set path_wbstartup       ( expandpath "Sys:WBStartup") )
(set path_commodities     ( expandpath "Sys:Tools/Commodities") )
(set path_prefs           ( expandpath "Sys:Prefs") )
(set path_modepro         path_commodities)

( set ModePro "ModePro")
( set ModeProPrefs "ModeProPrefs" )

( set file_modepro_src       "ModePro")
( set file_modeproprefs_src  "ModeProPrefs" )
( set file_screentab         (tackon path_wbstartup "ScreenTab"))


(set catalog_1   "ĂeÓtina")
(set catalog_2   "dansk")
(set catalog_3   "deutsch")
(set catalog_4   "espańol")
(set catalog_5   "français")
(set catalog_6   "Hrvatski") 
(set catalog_7   "íslenska")
(set catalog_8   "italiano") 
(set catalog_9   "magyar") 
(set catalog_10   "norsk")
(set catalog_11  "polski")
(set catalog_12  "portuguęs-brasil")
(set catalog_13  "russian")
(set catalog_14  "srpski")
(set catalog_15  "svenska") 
(set catalog_16  "türkçe")

(set catalogs 16)

;#######################################################################
; If you want to translate this installer script, simply 
; translate the file "english.strings", then send me the 
; new file with the native language name as the file title.
;
; You don't need to do anything to the file other than 
; translate it and rename it.  I have a script compiler
; that handles all the logic needed (if (= language 'your language') ... 
;########################################################################

(set lang_1 "english")
(set lang_2 "magyar")
(set lang_3 "russian")
(set lang_4 "espańol")
(set lang_5 "hrvatski")
(set lang_6 "italiano")
(set lang (askchoice (prompt "Select a language.\nElija un idioma.\nÎíĺaęňčđńa, ňéaĺçńä ţćúé.\nKérlek válassz egy nyelvet.")
                         (help   "Select a language.\nElija un idioma.\nÎíĺaęňčđńa, ňéaĺçńä ţćúé.\nKérlek válassz egy nyelvet!")
                         (choices  lang_1 lang_2 lang_3 lang_4 lang_5 lang_6)
                         (default 0)
)         )
(set @language (select lang  lang_1 lang_2 lang_3 lang_4 lang_5 lang_6))
;==============================================================================
;
; English
;
; english text by mrivers@gte.net
;
; Translate this string to!
; "Please select a language."


( set Yes "Yes")
( set No  "No")

(set startup_prompt       "When your computer boots up, how would you like ModePro started?")
(set startup_choice0      "Never")
(set startup_choice1      "Start from the User-Startup file")
(set startup_choice2      "Start from the WBStartup Drawer")
(set startup_help         "Selecting 'Never' will cause ModePro to not be started when the system boots.\n\nSelecting the 'Start from the User-Startup file' will add an entry in the the S:User-Startup file which will start ModePro.\n\nSelecting the 'Start from the WBStartup Drawer' put ModePro in the WBStartup drawer on Workbench.\n\nThe only difference in the latter two is that if you want to use ModePro to affect the Workbench screen, you must select 'Start from the User-Startup file'")
(set startup_screentab    "\nYou appear to be running ScreenTab.\nModePro should not be started from the User-StartUp")

(set path_modepro_prompt  "Please select where you want to put ModePro.\n'%s' is the normal location")
(set path_modepro_help    "This is the directory where the ModePro executable will be placed")
(set path_mpprefs_prompt  "Please select where you want to put ModeProPrefs.\n'%s' is the normal location")
(set path_mpprefs_help    "This is the directory where the ModeProPrefs executable will be placed")

( set oldmodepro_prompt   "There appears to be another copy ModePro installed.\nDelete it?")
( set oldmodepro_help     "Another, unneeded copy of ModePro appears to be installed, deleting it is recommended")
( set oldmodepro_deleting "Deleting extra copy and .info file")

( set tt_cxpopkey_prompt  "Enter the hotkey that pops up the preferences interface." )
( set tt_cxpri_prompt     "Enter the value of ModePro's commodity priority." )
( set tt_cxpopup_prompt   "Would you like ModePro to popup the interface each time it is started.")
( set tt_cx_help          "Please see the Commodities section of the Workbench manual for information." )
( set tt_wbpromote_prompt "Would you like to be able to promote the Workbench screen?\nI recommend that you select NO, promoting the WB can be dangerous!" )
( set tt_wbpromote_help   "Select NO\n.This option allows you to promote the WB screen, however, the OS may lockup depending on your set-up." )

(set installing_modepro       "Installing ModePro")
(set installing_modeproprefs  "Installing ModeProPrefs")
(set installing_catalogs      "Installing catalogs for the language %s")

(set usmodify_prompt      "The options you have chosen require the s:user-startup file to be modified." )
(set usmodify_help        "If you don't do this part, ModePro may not work correctly" )

(set copycat_prompt       "ModePro has been translated into many languages.\nMany thanks go to the ATO for suppling most of the translations.")
(set copycat_help         "You should only select those catalogs that you need.")

(set quickupdate_prompt   "You currently have ModePro installed.")
(set quickupdate_choice0  "Quick Update")
(set quickupdate_choice1  "Full Update")
(set quickupdate_help     "Quick Update only updates the executables.\nFull Update, allows you to change the location and tooltypes of ModePro")

(if (= @language "magyar")
  (
    ;==============================================================================
    ;
    ; Magyar
    ;
    ; Magyar fordítás: Kovács "Smith" Péter - smit@mail.matav.hu
    ;
    ; Translate this string to!
    ; "Kérlek válassz egy nyelvet!"
    
    
    ( set Yes "Igen")
    ( set No  "Nem")
    
    (set startup_prompt       "Boot-olásnál hogyan akarod indítani a ModePro-t?")
    (set startup_choice0      "Sehogyan :)")
    (set startup_choice1      "User-Startup állományból")
    (set startup_choice2      "WBStartup fiókból")
    (set startup_help         "Válaszd a 'Sehogyan'-t ha egyáltalán nem akarod a rendszer indításakor használni a ModePro-t.\n\nVálaszd a 'User-Startup állományból'-t, így a megfelelő sorok beleíródnak a Te User-Startup állományodba, és onnét indul a ModePro.\n\nVálaszd a 'WBStartup fiókból'-t, és a ModePro bekerül a Te WBStartup fiókodba.\n\nHa a Workbench képernyőt is szeretnéd promot-olni, akkor mindenképpen a 'User-Startup állományból'-t válaszd!")
    (set startup_screentab    "\nTe futtattad a ScreenTab-et.\nModePro-t nem kell a User-Startup állományból indítani.")
    
    (set path_modepro_prompt  "Kérlek válaszd ki a ModePro leendő helyét.\nJelenleg: '%s'")
    (set path_modepro_help    "Ebben a könyvtárban fog helyet foglalni a ModePro futtatható állomány.")
    (set path_mpprefs_prompt  "Kérlek válaszd ki a ModeProPrefs leendő helyét.\n'%s' logikus helynek tűnik...")
    (set path_mpprefs_help    "Ebben a könyvtárban fog helyet foglalni a ModeProPrefs futtatható állomány.")
    
    ( set oldmodepro_prompt   "Az adott helyen van már egy másik ModePro telepítve.\nTörölni?")
    ( set oldmodepro_help     "Másik, szükségtelen másolat van teleítve, ennek törlése ajánlott.")
    ( set oldmodepro_deleting "A másolat és a hozzá tartozó .info állomány törlése")
    
    ( set tt_cxpopkey_prompt  "Add meg a billentyüzet-kombinációt, amivel gyorsan el akarod érni a beállításokat.")
    ( set tt_cxpri_prompt     "Add meg a commodity prioritásának értékét.")
    ( set tt_cxpopup_prompt   "Szeretnéd hogy indításkor a felhasználói felület is láthatóvá váljon?")
    ( set tt_cx_help          "Kérlek nézd meg a 'Commodities' részt a Workbench kézikönyvben.")
    ( set tt_wbpromote_prompt "Szeretnéd a Workbench képernyőt promotolni?\nAjánlom hogy válaszd a 'Nem'-et, a WB promotolása veszélyes!")
    ( set tt_wbpromote_help   "Válaszd a 'Nem'-et.\nEz az opció megengedi a WB képernyő promotolását, bár ez függ az OS beállításaitól is.")
    
    (set installing_modepro       "ModePro telepítés")
    (set installing_modeproprefs  "ModeProPrefs telepítés")
    (set installing_catalogs      "Catalog-ok teleítése %s nyelvhez")
    
    (set usmodify_prompt      "A választott lehetőségek alapján szükséges a User-Startup állomány módosítása.")
    (set usmodify_help        "Ha kihagyod ezt a részt, akkor a ModePro nem fog hibátlanul működni!")
    
    (set copycat_prompt       "A ModePro le van fordítva sok nyelvre.\nKöszönet az ATO-nak a legtöbb fordításért.")
    (set copycat_help         "Válaszd ki azokat a catalog-okat amelyekre szükséged van.")
    
) )
(if (= @language "russian")
  (
    ;==============================================================================
    ;
    ; Russian
    ;
    ; russian text by bigblack@neworder.spb.ru
    ;
    ; Translate this string to!
    ; "Îíĺaęňčđńa, ňéaĺçńä ţćúé."
    
    
    ( set Yes "Ăa")
    ( set No  "Ěäń")
    
    (set startup_prompt       "Éaé ćaîňđéańű ModePro îďç đńaďńä đçđńäëú?")
    (set startup_choice0      "Ěä ěaăí")
    (set startup_choice1      "Ćaîňđńçńű çć óačęa User-Startup")
    (set startup_choice2      "Ćaîňđńçńű çć éańaęíâa WBStartup")
    (set startup_help         "Áúŕíď 'Ěä ěaăí' íńéęýöçń ćaîňđé ModePro îďç đńaďńä đçđńäëú.\n\nÁúŕíď 'Ćaîňđńçńű çć óačęa User-Startup' ăíŕaáçń đńďíöéň á óačę S:User-Startup, éíńíďaţ ćaîňđńçń ModePro.\n\nÁúŕíď 'Ćaîňđńçńű çć éańaęíâa WBStartup' îíëäđńçń ModePro á éańaęíâ WBStartup Workbench-a.\n\nĎaćěçőa ëäĺăň ăáňëţ îíđęäăěçëç đîíđíŕaëç á ńíë, öńí äđęç Áú ôíńçńä çđîíęűćíáańű ModePro ăęţ ňîďaáęäěçţ üéďaěíë Workbench, ńí ěaăí ňéaćańű 'Ćaîňđńçńű çć óačęa User-Startup'")
    (set startup_screentab    "\nÎíôíĺä, Áú çđîíęűćňäńä ScreenTab.\nModePro ěä ëíĺäń ŕúńű ćaîňůäě çć óačęa User-StartUp")
    
    (set path_modepro_prompt  "Ňéaĺçńä, éňăa îíëäđńçńű ModePro.\n'%s' - đńaěăaďńěíä ďađîíęíĺäěçä")
    (set path_modepro_help    "Üńí éańaęíâ, éňăa ŕňăäń îíëäů˝ě ćaîňđéaäëúč óačę ModePro")
    (set path_mpprefs_prompt  "Ňéaĺçńä, éňăa îíëäđńçńű ModeProPrefs.\n'%s' - đńaěăaďńěíä ďađîíęíĺäěçä")
    (set path_mpprefs_help    "Üńí éańaęíâ, éňăa ŕňăäń îíëäů˝ě ćaîňđéaäëúč óačę ModeProPrefs")
    
    ( set oldmodepro_prompt   "Îíôíĺä, ň Áađ ňĺä îďíçěđńaęęçďíáaěa îďíâďaëëa ModePro.\nŇăaęçńű ä˝?")
    ( set oldmodepro_help     "Á Áařäč đçđńäëä ěačăäěa ěäěňĺěaţ éíîçţ ModePro; ä˝ ďäéíëäěăňäńđţ ňăaęçńű")
    ( set oldmodepro_deleting "Ňăaęäěçä éíîçç ç .info óačęa")
    
    ( set tt_cxpopkey_prompt  "Ňéaĺçńä âíďţöňý éęaáçřň áúćíáa îďäăňđńaěíáíé." )
    ( set tt_cxpri_prompt     "Ňéaĺçńä îďçíďçńäń đçđńäëěíâí ďađřçďçńäęţ ModePro." )
    ( set tt_cxpopup_prompt   "Ěäíŕôíăçëí ęç íńéďúáańű îďäăňđńaěíáéç ModePro îďç éaĺăíë ćaîňđéä?")
    ( set tt_cx_help          "Íŕďańçńäđű é íîçđaěçý Đçđńäëěúô ďađřçďçńäęäč á ďňéíáíăđńáä îí ďaŕíńä đ Workbench ća îíăďíŕěíđńţëç." )
    ( set tt_wbpromote_prompt "Ěäíŕôíăçëí ęç éíďďäéńçďíáańű üéďaě Workbench?\nŢ ěä ďäéíëäěăňý üńíâí ăäęańű, ńaé éaé üńí ěäŕäćíîađěí!" )
    ( set tt_wbpromote_help   "Áúŕíď ĚÄŃ\n.Üńa íîőçţ ćaîďäńçń éíďďäéńçďíáéň üéďaěa WB, ńaé éaé íě ëíĺäń ŕúńű ćaů˝ęéěňń OS." )
    
    (set installing_modepro       "Çěđńaęęţőçţ ModePro")
    (set installing_modeproprefs  "Çěđńaęęţőçţ ModeProPrefs")
    (set installing_catalogs      "Çěđńaęęţőçţ éańaęíâíá ăęţ ţćúéa %s")
    
    (set usmodify_prompt      "Áúŕďaěěúä íîőçç ëíăçóçőçďňýń óačę s:user-startup." )
    (set usmodify_help        "Äđęç üńíâí ěä đăäęańű, ďaŕíńa ModePro ŕňăäń ěäéíďďäéńěíč" )
    
    (set copycat_prompt       "ModePro îäďäáäă˝ě ěa ëěíâçä ţćúéç.\nÍâďíëěíä đîađçŕí ATO ća îíăăäďĺéň ŕíęűřçěđńáa îäďäáíăíá.")
    (set copycat_help         "Ňéaĺçńä ěäíŕôíăçëúä Áaë éańaęíâç.")
    
    
) )
(if (= @language "espańol")
  (
        ;==============================================================================
        ; Spanish strings by Dámaso D. Estévez <amidde@arrakis.es>
        ; 4.62 (26.2.99)
        ;-------------------------------------------------------------
    
        ( set Yes "Sí")
        ( set No  "No")
    
        (set startup_prompt   "żQuiere ejecutar automáticamente ModePro al arrancar su equipo?")
        (set startup_choice0  "No, no quiero ejecutarlo")
        (set startup_choice1  "Sí, desde el fichero `user-startup'")
        (set startup_choice2  "Sí, desde el cajón WBStartup")
        (set startup_help   (cat "\nEligiendo 'No, no quiero ejecutarlo' hará que ModePro no se ejecute durante el arranque del sistema.\n\n" "Eligiendo 'Sí, desde el fichero user-startup' se ańadirá una entrada en el fichero `s:user-startup' que se encargará de ejecutar ModePro.\n\n" "Seleccionando 'Sí, desde el cajón WBStartup', ModePro será copiado en el cajón WBStartup de su disco de arranque.\n\n" "La única diferencia entre las dos últimas opciones es que si quiere que ModePro pueda afectar a la pantalla del Workbench, deberá seleccionar 'Sí, desde el fichero user-startup'"))
        (set startup_screentab "\nParece que está ejecutándose ScreenTab:\nModePro no debería ser ejecutado desde el fichero `user-startup'.")
    
        (set path_modepro_prompt  "Por favor, elija dónde desea instalar ModePro\n('%s' es el lugar normal)")
        (set path_modepro_help    "\nEste es el directorio donde el ejecutable ModePro será instalado.")
        (set path_mpprefs_prompt  "Por favor, elija dónde desea instalar ModeProPrefs'\n('%s' es el lugar normal)")
        (set path_mpprefs_help    "\nEste es el directorio donde el ejecutable ModeProPrefs será instalado.")
    
        (set oldmodepro_prompt   "Parece que otra copia de ModePro está instalada.\nżDesea borrarla?")
        (set oldmodepro_help     "\nParece que una copia innecesaria de ModePro está instalada: se recomienda su borrado.")
        (set oldmodepro_deleting "Borrando copia extra y fichero '.info'" )
    
        (set tt_cxpopkey_prompt    "Introduzca la combinación de teclas que invocará al programa de preferencias.")
        (set tt_cxpri_prompt       "Introduzca el valor de la prioridad de ModePro como comodidad.")
        (set tt_cxpopup_prompt     "żDesea que ModePro muestre su interfaz cada vez que es puesto en marcha?")
        (set tt_cx_help            "\nPor favor, consulte en el manual del Workbench ,la sección sobre 'Commodities'/'Comodidades' para más información.")
        (set tt_wbpromote_prompt   "żDesea ser capaz de promocionar la pantalla del Workbench?\nRecomiendo que elija la opción NO, pues promocionar dicha pantalla ˇpuede ser peligroso!")
        (set tt_wbpromote_help     "\nElija NO.\nEsta opción le permite promocionar la pantalla del Workbench... sin embargo, el S.O. podría bloquearse con algunas configuraciones.")
    
        (set installing_modepro       "Instalando ModePro")
        (set installing_modeproprefs  "Instalando ModeProPrefs")
        (set installing_catalogs      "Instalando catálogos para el idioma %s")
    
        (set usmodify_prompt  "Las opciones elegidas requieren que el fichero `s:user-startup' sea modificado.")
        (set usmodify_help    "\nSi se salta este paso, ModePro podría no funcionar correctamente.")
    
        (set copycat_prompt   "ModePro ha sido traducido a varios idiomas.\nAgradezco a la ATO que me haya suministrado la mayoría de las traducciones.")
        (set copycat_help     "\nDebe seleccionar sólo aquellos catálogos que necesite.")
    
        (set quickupdate_prompt   "Tiene instalado actualmente ModePro.")
        (set quickupdate_choice0  "Actualización rápida")
        (set quickupdate_choice1  "Actualización completa")
        (set quickupdate_help     "\nLa actualización rápida sólo actualiza los ejecutables.\nLa actualización completa, le permite cambiar la localización y los tipos de herramientas de ModePro.")
    
) )
(if (= @language "hrvatski")
  (
    ;=============================================================
    ; Hrvatski
    ;-------------------------------------------------------------
    
    ( set Yes "Yes")
    ( set No  "No")
    
    ( set startup_prompt            "Kako ľelite pokretati ModePro?\nPritisni 'Pomoć' za viąe informacija.")
    ( set startup_choice0           "No")
    ( set startup_choice2           "Pokreni ModePro iz User-Startup")
    ( set startup_choice1           "Stavi ModePro u WBStartup imenik")
    
    ( set path_modepro_prompt      "Preporućen imenik za ModePro.  Promjeni ga po volji." ) 
    ( set path_mpprefs_prompt      "ModeProPrefs dopuąta prepravljanje ModePro-ove opcije unaprijeđenja.  Gdje ľelite staviti editor postavki?\nOpćenito bi trebao biti u %s imeniku.")
    
    ( set tt_cxpopkey_prompt   "Upiąi vruću tipku koja će aktivirati editor postavki." )
    ( set tt_cxpri_prompt      "Upiąite vrijednost ModePro-ove vaľnosti rada." )  
    ( set tt_cxpopup_prompt    "Da li ľelite da se ModePro pojavi svaki put kada se pokrene.")
    
    ( set oldmodepro_prompt   "Izgleda da postoji druga kopija ModePro instalirana, da ju obriąem?")
    
    ( set installing_modepro          "Instaliram ModePro...")
    ( set installing_modeproprefs     "Instaliram ModeProPrefs...")
    
    ( set copycat_prompt   "ModePro podrľava a lokalizaciju.  Koje jezike ľelite instalirati, neki katalozi nisu gotovi.")
    
    ( set usmodify_prompt     "Opcija koju ste izabrali zahtjeva promjene u datoteci s:user-startup." )
    
    
) )
(if (= @language "italiano")
  (
    ;==============================================================================
    ; Italiano strings :)
    ;-------------------------------------------------------------
    
    ( set Yes "Si")
    ( set No  "No")
    
    ( set startup_prompt               "Come vuoi che sia lanciato ModePro?\nPremi 'Aiuto' per altre informazioni")
    ( set startup_choice1       "Avvia ModePro dalla Startup-Sequence")
    ( set startup_choice2         "Metti ModePro nel cassetto WBStartup")
    
    ( set path_modepro_prompt     "Questo č il percorso suggerito per ModePro.\nSe vuoi puoi cambiarlo." ) 
    ( set path_mpprefs_prompt      "ModeProPrefs ti permette di modificare i parametri di promozione di ModePro.\nDove vuoi mettere il programma di impostazioni?\nNormalmente dovrebbe essere il cassetto %s." )
    
    ( set tt_cxpopkey_prompt    "Immetti la hotkey che richiama il programma di impostazioni." )
    ( set tt_cxpri_prompt       "Immetti il valore della prioritŕ da assegnare alla commodity ModePro." )  
    ( set tt_cxpopup_prompt     "Vuoi che ModePro visualizzi la sua interfaccia ogni volta che viene lanciato?")
    
    ( set oldmodepro_prompt   "Sembra che ci sia un'altra copia di ModePro installata. La cancello?")
    
    ( set installing_modepro        "Sto installando ModePro...")
    ( set installing_modeproprefs        "Sto installando ModeProPrefs...")
    
    ( set copycat_prompt   "ModePro mette a disposizione una interfaccia localizzata.\nChe linguaggi vuoi installare?\nAlcuni cataloghi non sono completi.")
    
    ( set usmodify_prompt     "Le opzioni che hai scelto richiedono la modifica del file s:user-startup." )
    
    
) )

;-------- BEGIN ----------

; Fix these strings
(set path_modepro_prompt  (path_modepro_prompt path_commodities))
(set path_mpprefs_prompt  (path_mpprefs_prompt path_prefs))


(if (exists file_screentab)
  (
    (set startup_prompt (cat startup_prompt startup_screentab))
    (set startup_help   (cat startup_help startup_screentab))
  )
)


;### Check to see if a previous version is installed ###

(if (exists (tackon path_commodities file_modepro_src))
  (
    (set path_mp_location path_commodities)
    (set found_install 1)
  )

  (if (exists (tackon path_wbstartup file_modepro_src))
    (
      (set path_mp_location path_wbstartup)
      (set found_install 1)
    )
  )
)

(if (exists (tackon path_prefs file_modeproprefs_src))
  (
    (set path_mpprefs_location path_prefs)
    (set found_install (+ found_install 1))
  )
)

(set quickupdate 1)

(debug path_mp_location path_mpprefs_location)

(if (= found_install 2)
  (
    (set quickupdate (askchoice (prompt quickupdate_prompt) 
                                (help quickupdate_help)
                                (default 0) 
                                (choices quickupdate_choice0 quickupdate_choice1) 
) ) )                )

(if (= quickupdate 1)
  ( ;### Full update ###
    (set startup_method (askchoice (prompt  startup_prompt)
                                   (help    startup_help)
                                   (choices startup_choice0 startup_choice1 startup_choice2)
                                   (default 2)
    )                   )
    
    
    (if (= startup_method 2) 
      (
        ( set path_delmodepro path_commodities)
        ( set path_modepro    path_wbstartup)
      )
      (
        ( set path_delmodepro path_wbstartup)
        ( set path_modepro (askdir (prompt  path_modepro_prompt)
                                   (help    path_modepro_help)
                                   (default path_commodities)
        )                  )
      )
    )
    
    ( set path_mpprefs (askdir (prompt  path_mpprefs_prompt)
                               (help    path_mpprefs_help)
                               (default path_prefs)
    )                  )
    
    
    
    ( set ModeProPrefsCommand (tackon ( path_mpprefs) 
                                       ( "ModeProPrefs") 
                              ) 
    )
    
    ( set tt_cxpopkey ( askstring (prompt tt_cxpopkey_prompt)
                                  (help tt_cxhelp)
                                  (default "lamiga p")
                   
    )                 )
    
    ( set tt_cxpri ("%ld" (asknumber (prompt tt_cxpri_prompt)
                                     (help tt_cxhelp)
                                     (default 5)
    )              )      ) 
    
    ( set tt_cxpopup (askchoice (prompt tt_cxpopup_prompt) 
                                (help tt_cxhelp)
                                (default 0) 
                                (choices No Yes) 
    )             )
    
    ( set tt_wbpromote (askchoice (prompt tt_wbpromote_prompt) 
                                (help tt_wbpromote_help)
                                (default 0) 
                                (choices No Yes) 
    )             )
    
    ( set tt_wbpromotable (select tt_wbpromote "(WBPROMOTABLE)" "WBPROMOTABLE") )
    
    
    ;**** ASK WHICH CATALOGS TO COPY ****
    (set  copy_catalogs (askoptions  (prompt  copycat_prompt)
                 (help    copycat_help)
                 (choices catalog_1 catalog_2 catalog_3 catalog_4 catalog_5 catalog_6 catalog_7 catalog_8 catalog_9 catalog_10 catalog_11 catalog_12 catalog_13 catalog_14 catalog_15)
                 (default 0)
    )                   )
    
    ;**** COPY CATALOGS ****
    (set optnumber 0)
    ( while ( < optnumber catalogs )
      (set flag (BITAND (shiftright copy_catalogs optnumber) 1) )
      (if flag
        (
          (set cat_name  ( select optnumber catalog_1 catalog_2 catalog_3 catalog_4 catalog_5 catalog_6 catalog_7 catalog_8 catalog_9 catalog_10 catalog_11 catalog_12 catalog_13 catalog_14 catalog_15) )
          (set srcpath (cat "catalogs/" cat_name ) )
          (set dstpath (cat "locale:catalogs/" cat_name ) )
          (makedir dstpath)
          (copyfiles  (prompt (installing_catalogs cat_name)) (help (installing_catalogs cat_name)) (source srcpath) (dest dstpath) (all))
        )
      )
      (set optnumber (+ optnumber 1) )
    )
    
    
    ;(copyfiles (prompt  copycat_prompt)
    ;           (help    copycat_help)
    ;           (source  "catalogs/")
    ;           (dest    "locale:catalogs/")
    ;           (infos)
    ;           (confirm)
    ;           (all)
    ;)
    
    ;**** DELETE THE ANY EXTRA COPY OF MODEPRO ****
    
    (set oldmodepro_file ( tackon (path_delmodepro) 
                         ("ModePro")
    )          )
    
    (if (exists oldmodepro_file)
      (
        (if (askchoice (prompt  (cat oldmodepro_prompt "\n" oldmodepro_file)) 
                       (help    oldmodepro_help) 
                       (default 1) 
                       (choices No Yes) 
            )
          (
            (delete oldmodepro_file (prompt oldmodepro_deleting))
            (delete (cat (oldmodepro_file) (".info") ) (prompt oldmodepro_deleting) )
          )
        ) 
      )
    )
    
    ;**** SET THE TOOLTYPES ****
    
    (tooltype (dest file_modepro_src)
              (settooltype "CX_POPKEY"    tt_cxpopkey)
              (settooltype "CX_POPUP"     (select tt_cxpopup No Yes) )
              (settooltype "CX_PRIORITY"  tt_cxpri )
              (settooltype "PREFSCOMMAND" ModeProPrefsCommand)
              (settooltype tt_wbpromotable "")
    )
    
    
    ;**** COPY FILES ****
        
    (copyfiles (prompt installing_modepro)
               (help   installing_modepro)
               (source file_modepro_src)
               (infos)
               (dest path_modepro)
    )
    
    (set @default-dest path_modepro)
    
    (copyfiles (prompt installing_modeproprefs)
               (help   installing_modeproprefs)
               (source file_modeproprefs_src)
               (infos)
               (dest path_mpprefs)
    )
    
    
    
    
    ;**** PROMPT TO MODIFY THE U-S FILE ****
    (if (= startup_method 1)
        ( 
            (startup "ModePro"
                     (prompt  usmodify_prompt )
                     (help    usmodify_help )
                     (command (cat "  If EXISTS "      (tackon path_modepro "ModePro")
                                   "\n    Run <>NIL: " (tackon path_modepro "ModePro")
                                   "\n  ENDIF\n" ) )
            )
        )
        (
           (startup "ModePro"
                     (prompt  usmodify_prompt )
                     (help    usmodify_help )
                     (command ";Don't run ModePro from User-Startup")
      
            )
        )
    )
  )   
  ; else quick update 
  (
    (copyfiles (prompt installing_modepro)
               (help   installing_modepro)
               (source file_modepro_src)
               (dest path_mp_location)
    )
    
    (copyfiles (prompt installing_modeproprefs)
               (help   installing_modeproprefs)
               (source file_modeproprefs_src)
               (dest path_mpprefs_location)
    )
     
  )
)