;*****************************************************************
;*  HighSpeed MathLibs UnInstaller Version 2.0  12 October 2002  *
;*                                                               *
;*           Copyright © 1998/2002 by Matthias Henze             *
;*                                                               *
;*         catalan translation written by Llorenç Grau           *
;*         english translation written by Niels Bache            *
;*                                    and Sönke Tesch            *
;*         finnish translation written by Timo Sievänen          *
;*         french translation written by Philippe Bovier         *
;*         greek translation written by Dimitris Panokostas      *
;*         italian translation written by Massimo Gais           *
;*         italian update written by Massimo Mascia              *
;*         polish translation written by Mariusz Danilewicz      *
;*         russian translation written by Andrew Boyarintsev     *
;*                                    and Oleg Sergeev           *
;*         slovenian translation written by Damir Arh            *
;*         spanish translation written by David Rey              *
;*         swedish translation written by Linus Silvander        *
;*                                    and David Erman            *
;*                                                               *
;*****************************************************************
;
; $VER: HSML-UnInstaller 2.0 (12.10.02)

;================================================================
; strings
;================================================================

(if (= @language "català")
  (
    (set #uninstall_method (cat
    "\nSi us plau, seleccioni el mode de desinstal.lació:\n\n"
    "Si us plau, consulti el manual - Desinstal.lació, secció 2.0.0 - per ajuda.\n"))

    (set #backup "Restaurar còpia de seguretat")
    (set #remove "Eliminar")

    (set #bak_list (cat
    "\nSi us plau, seleccioni la unitat o el directori que conté el directori \"HSML-BAK\".\n"))

    (set #no_bak_dir (cat
    "\nAtenció!\n\n\n"
    "No s'ha pogut restaurar la còpia de seguretat, perque la unitat o el directori indicat no conté cap directori anomenat \"HSML-BAK\".\n"))

    (set #doc_selection (cat
    "\nVol esborrar el manual de \"HSMathLibs\"?\n"))

    (set #yes "sí")
    (set #no  "no")

    (set #doc_list (cat
    "\nSi us plau, seleccioni el manual.\n"))

    (set #no_doc_file (cat
    "\nAtenció!\n\n\n"
    "No s'ha pogut esborrar el manual, perque no s'ha pogut trobar a la unitat o el directori indicat.\n"))

    (set #bak_selection (cat
    "\nVol esborrar la còpia de seguretat de \"HSMathLibs\"?\n"))

    (set #no_bak_dir2 (cat
    "\nAtenció!\n\n\n"
    "No s'ha pogut esborrar la còpia de seguretat, perque la unitat o el directori indicat no conté cap directori anomenat \"HSML-BAK\".\n"))

    (set #org_list (cat
    "\nSi us plau, seleccioni el directori que conté les llibreries matemàtiques originals.\n\n"
    "Si us plau, consulti el manual - Desinstal.lació, secció 3.0.0 - per ajuda.\n"))

    (set #org_list2 (cat
    "\nSi us plau, seleccioni el directori que conté la \"mathtrans.library\" original.\n\n"
    "Si us plau, consulti el manual - Desinstal.lació, secció 3.1.0 - per ajuda.\n"))

    (set #no_mathieeedoubbas (cat
    "\nAtenció!\n\n\n"
    "No s'ha pogut copiar la \"mathieeedoubbas.library\", perque no s'ha trobat al directori o unitat indicada.\n"))

    (set #no_mathieeedoubtrans (cat
    "\nAtenció!\n\n\n"
    "No s'ha pogut copiar la \"mathieeedoubtrans.library\", perque no s'ha trobat al directori o unitat indicada.\n"))

    (set #no_mathieeesingtrans (cat
    "\nAtenció!\n\n\n"
    "No s'ha pogut copiar la \"mathieeesingtrans.library\", perque no s'ha trobat al directori o unitat indicada.\n"))

    (set #no_mathtrans (cat
    "\nAtenció!\n\n\n"
    "No s'ha pogut copiar la \"mathtrans.library\", perque no s'ha trobat al directori o unitat indicada.\n"))
  )
)
(if (= @language "deutsch")
  (
    (set #uninstall_method (cat
    "\nWie soll die Deinstallation durchgeführt werden?\n\n"
    "Bitte die Hinweise in der Anleitung - Uninstall Punkt 1.0.0 - beachten!\n"))

    (set #backup "Backup restaurieren (zurückschreiben)")
    (set #remove "Deinstallation")

    (set #bak_list (cat
    "\nBitte wählen Sie das Laufwerk oder Verzeichnis aus, wo sich das Verzeichnis \"HSML-BAK\" befindet.\n"))

    (set #no_bak_dir (cat
    "\nWarnung!\n\n\n"
    "Das Backup konnte nicht restauriert (zurückschreiben) werden, da sich das Verzeichnis \"HSML-BAK\" nicht im angegebenen Verzeichnis bzw. Laufwerk befindet.\n"))

    (set #doc_selection (cat
    "\nMöchten Sie die Anleitung der \"HSMathLibs\" löschen?\n"))

    (set #yes "ja")
    (set #no  "nein")

    (set #doc_list (cat
    "\nBitte wählen Sie die Anleitung aus.\n"))

    (set #no_doc_file (cat
    "\nWarnung!\n\n\n"
    "Die Anleitung konnte nicht gelöscht werden, da sie sich nicht im angegebenen Verzeichnis bzw. Laufwerk befindet.\n"))

    (set #bak_selection (cat
    "\nMöchten Sie das Backup der \"HSMathLibs\" löschen?\n"))

    (set #no_bak_dir2 (cat
    "\nWarnung!\n\n\n"
    "Das Backup konnte nicht gelöscht werden, da sich das Verzeichnis \"HSML-BAK\" nicht im angegebenen Verzeichnis bzw. Laufwerk befindet.\n"))

    (set #org_list (cat
    "\nBitte wählen Sie das Verzeichnis aus, in dem sich die original Mathebibliotheken befinden.\n\n"
    "Bitte die Hinweise in der Anleitung - Uninstall Punkt 3.0.0 - beachten!\n"))

    (set #org_list2 (cat
    "\nBitte wählen Sie das Verzeichnis aus, in dem sich die original \"mathtrans.library\" befindet.\n\n"
    "Bitte die Hinweise in der Anleitung - Uninstall Punkt 3.1.0 - beachten!\n"))

    (set #no_mathieeedoubbas (cat
    "\nWarnung!\n\n\n"
    "Die \"mathieeedoubbas.library\" konnte nicht kopiert werden, da sie sich nicht im angegebenen Verzeichnis bzw. Laufwerk befindet.\n"))

    (set #no_mathieeedoubtrans (cat
    "\nWarnung!\n\n\n"
    "Die \"mathieeedoubtrans.library\" konnte nicht kopiert werden, da sie sich nicht im angegebenen Verzeichnis bzw. Laufwerk befindet.\n"))

    (set #no_mathieeesingtrans (cat
    "\nWarnung!\n\n\n"
    "Die \"mathieeesingtrans.library\" konnte nicht kopiert werden, da sie sich nicht im angegebenen Verzeichnis bzw. Laufwerk befindet.\n"))

    (set #no_mathtrans (cat
    "\nWarnung!\n\n\n"
    "Die \"mathtrans.library\" konnte nicht kopiert werden, da sie sich nicht im angegebenen Verzeichnis bzw. Laufwerk befindet.\n"))
  )
)
(if (= @language "english")
  (
    (set #uninstall_method (cat
    "\nPlease select uninstallation mode:\n\n"
    "Please consult the manual - Uninstallation, item 1.0.0 - for advice!\n"))

    (set #backup "Restore (write back) backup")
    (set #remove "Removal")

    (set #bak_list (cat
    "\nPlease select the drive or directory containing the \"HSML-BAK\" directory.\n"))

    (set #no_bak_dir (cat
    "\nWarning!\n\n\n"
    "The backup could not be restored (written back), because the designated directory or drive does not contain any \"HSML-BAK\" directory.\n"))

    (set #doc_selection (cat
    "\nWould you like to delete the \"HSMathLibs\" manual?\n"))

    (set #yes "yes")
    (set #no  "no")

    (set #doc_list (cat
    "\nPlease select the manual.\n"))

    (set #no_doc_file (cat
    "\nWarning!\n\n\n"
    "The manual could not be deleted, because it was not found in the designated directory or drive.\n"))

    (set #bak_selection (cat
    "\nWould you like to delete the backup of \"HSMathLibs\"?\n"))

    (set #no_bak_dir2 (cat
    "\nWarning!\n\n\n"
    "The backup could not be deleted, because the designated directory or drive does not contain any \"HSML-BAK\" directory.\n"))

    (set #org_list (cat
    "\nPlease select the directory containing the original math libraries.\n\n"
    "Please consult the manual - Uninstallation, item 3.0.0 - for advice!\n"))

    (set #org_list2 (cat
    "\nPlease select the directory containing the original \"mathtrans.library\".\n\n"
    "Please consult the manual - Uninstallation, item 3.1.0 - for advice!\n"))

    (set #no_mathieeedoubbas (cat
    "\nWarning!\n\n\n"
    "The \"mathieeedoubbas.library\" could not be copied, because it was not found in the designated directory or drive.\n"))

    (set #no_mathieeedoubtrans (cat
    "\nWarning!\n\n\n"
    "The \"mathieeedoubtrans.library\" could not be copied, because it was not found in the designated directory or drive.\n"))

    (set #no_mathieeesingtrans (cat
    "\nWarning!\n\n\n"
    "The \"mathieeesingtrans.library\" could not be copied, because it was not found in the designated directory or drive.\n"))

    (set #no_mathtrans (cat
    "\nWarning!\n\n\n"
    "The \"mathtrans.library\" could not be copied, because it was not found in the designated directory or drive.\n"))
  )
)
(if (= @language "español")
  (
    (set #uninstall_method (cat
    "\nElija modo de des-instalación:\n\n"
    "Por favor, consulte el manual (Des-instalación, paso 1.0.0) para más información.\n"))

    (set #backup "Reinstaurar copia de seguridad")
    (set #remove "Quitar")

    (set #bak_list (cat
    "\nPor favor, elija el volumen o directorio donde se encuentra el subdirectorio \"HSML-BAK\".\n"))

    (set #no_bak_dir (cat
    "\n¡Aviso!\n\n\n"
    "La copia de seguridad no ha podido reinstaurarse, pues no ha podido encontrarse el subdirectorio \"HSML-BAK\" en el volumen o directorio indicado.\n"))

    (set #doc_selection (cat
    "\n¿Desea borrar el manual de las \"HSMathLibs\"?\n"))

    (set #yes "Sí")
    (set #no  "No")

    (set #doc_list (cat
    "\nPor favor, elija el manual.\n"))

    (set #no_doc_file (cat
    "\n¡Aviso!\n\n\n"
    "El manual no ha podido borrarse, pues no ha podido encontrarse en el volumen o directorio indicado.\n"))

    (set #bak_selection (cat
    "\n¿Desea borrar la copia de seguridad de las \"HSMathLibs\"?\n"))

    (set #no_bak_dir2 (cat
    "\n¡Aviso!\n\n\n"
    "La copia no ha podido borrarse, pues no ha podido encontrarse el subdirectorio \"HSML-BAK\" en el volumen o directorio indicado.\n"))

    (set #org_list (cat
    "\nElija el directorio donde se encuentran las librerías matemáticas originales.\n\n"
    "Por favor, consulte el manual (Des-instalación, paso 3.0.0) para más información.\n"))

    (set #org_list2 (cat
    "\nElija el directorio donde se encuentra la \"mathtrans.library\" original.\n\n"
    "Por favor, consulte el manual (Des-instalación, paso 3.1.0) para más información.\n"))

    (set #no_mathieeedoubbas (cat
    "\n¡Aviso!\n\n\n"
    "La \"mathieeedoubbas.library\" no ha podido copiarse, pues no ha podido encontrarse en el volumen o directorio indicado.\n"))

    (set #no_mathieeedoubtrans (cat
    "\n¡Aviso!\n\n\n"
    "La \"mathieeedoubtrans.library\" no ha podido copiarse, pues no ha podido encontrarse en el volumen o directorio indicado.\n"))

    (set #no_mathieeesingtrans (cat
    "\n¡Aviso!\n\n\n"
    "La \"mathieeesingtrans.library\" no ha podido copiarse, pues no ha podido encontrarse en el volumen o directorio indicado.\n"))

    (set #no_mathtrans (cat
    "\n¡Aviso!\n\n\n"
    "La \"mathtrans.library\" no ha podido copiarse, pues no ha podido encontrarse en el volumen o directorio indicado.\n"))
  )
)
(if (= @language "français")
  (
    (set #uninstall_method (cat
    "\nChoississez la méthode pour la désinstallation:\n\n"
    "S.V.P, regardez la documentation - Désinstallation, Item 1.0.0 - pour les conseils!\n"))

    (set #backup "Désinstallation avec sauvegarde")
    (set #remove "Désinstallation complète")

    (set #bak_list (cat
    "\nS.V.P, sélectionnez le volume ou le tiroir contenant \"HSML-BAK\".\n"))

    (set #no_bak_dir (cat
    "\nWarning!\n\n\n"
    "La désinstallation avec sauvegarde ne pourra pas étre restaurée par la suite, parce que le tiroir ou le volume désigné ne contiend pas de tiroir \"HSML-BAK\".\n"))

    (set #doc_selection (cat
    "\nVoulez-vous supprimer la documentation pour \"HSMathLibs\"?\n"))

    (set #yes "Oui")
    (set #no  "Non")

    (set #doc_list (cat
    "\nS.V.P, sélectionnez la documentation.\n"))

    (set #no_doc_file (cat
    "\nWarning!\n\n\n"
    "La documentation n'a pas été supprimée, car elle n'a pas été trouvée dans le volume ou le tiroir désigné.\n"))

    (set #bak_selection (cat
    "\nDésirez-vous effacer la désinstallation avec la sauvegarde de \"HSMathLibs\"?\n"))

    (set #no_bak_dir2 (cat
    "\nATTENTION!\n\n\n"
    "La désinstallation avec la sauvegarde n'a pas été supprimée car le volume ou le tiroir désigné ne contiend pas de tiroir \"HSML-BAK\".\n"))

    (set #org_list (cat
    "\nS.V.P, sélectionnez le tiroir contenant les librairies mathématique originales.\n\n"
    "S.V.P, regardez la documentation - Désinstallation, Item 3.0.0 - pour les conseils!\n"))

    (set #org_list2 (cat
    "\nS.V.P, sélectionnez le tiroir contenant la librairie \"mathtrans.library\" originale.\n\n"
    "S.V.P, regardez la documentation - Désinstallation, Item 3.1.0 - pour les conseils!\n"))

    (set #no_mathieeedoubbas (cat
    "\nATTENTION!\n\n\n"
    "La \"mathieeedoubbas.library\" ne peut étre copiée, car elle n'a pas été trouvée dans le volume ou le tiroir précédemment désigné.\n"))

    (set #no_mathieeedoubtrans (cat
    "\nATTENTION!\n\n\n"
    "La \"mathieeedoubtrans.library\" ne peut étre copiée, car elle n'a pas été trouvée dans le volume ou le tiroir précédemment désigné.\n"))

    (set #no_mathieeesingtrans (cat
    "\nATTENTION!\n\n\n"
    "La \"mathieeesingtrans.library\" ne peut étre copiée, car elle n'a pas été trouvée dans le volume ou le tiroir précédemment désigné.\n"))

    (set #no_mathtrans (cat
    "\nATTENTION!\n\n\n"
    "La \"mathtrans.library\" ne peut étre copiée, car elle n'a pas été trouvée dans le volume ou le tiroir précédemment désigné.\n"))
  )
)
(if (= @language "greek")
  (
    (set #uninstall_method (cat
    "\nÐáñáêáëþ åðéëÝîôå ìÝèïäï áðåãêáôÜóôáóçò:\n\n"
    "Ðáñáêáëþ áíáôñÝîôå óôï manual - ÁðåãêáôÜóôáóç, áíôéêåßìåíï 1.0.0 - ãéá óõìâïõëÝò!\n"))

    (set #backup "ÅðáíáöïñÜ (åðáíåããñáöÞ) áíôéãñÜöïõ áóöáëåßáò")
    (set #remove "Áöáßñåóç")

    (set #bak_list (cat
    "\nÐáñáêáëþ åðéëÝîôå ôç ìïíÜäá äßóêïõ Þ ôï êáôÜëïãï ðïõ ðåñéÝ÷åé ôïí êáôÜëïãï \"HSML-BAK\".\n"))

    (set #no_bak_dir (cat
    "\nÐñïóï÷Þ!\n\n\n"
    "Áäýíáôç ç åðáíáöïñÜ ôïõ áíôéãñÜöïõ (åðáíåããñöáöÞ), ãéáôß ï ïñéóìÝíïò êáôÜëïãïò Þ ìïíÜäá äßóêïõ äåí ðåñéÝ÷åé êáôÜëïãï ìå ôï üíïìá \"HSML-BAK\".\n"))

    (set #doc_selection (cat
    "\nÈÝëåôå íá äéáãñáöåß ôï \"HSMathLibs\" manual;\n"))

    (set #yes "íáé")
    (set #no  "ü÷é")

    (set #doc_list (cat
    "\nÐáñáêáëþ åðéëÝîôå ôï manual.\n"))

    (set #no_doc_file (cat
    "\nÐñïóï÷Þ!\n\n\n"
    "Ôï manual Þôáí áäýíáôï íá äéáãñáöåß, ãéáôß äåí âñÝèçêå óôïí ïñéóìÝíï êáôÜëïãï Þ ìïíÜäá äßóêïõ.\n"))

    (set #bak_selection (cat
    "\nÈÝëåôå íá äéáãñáöåß ôï áíôßãñáöï ôùí \"HSMathLibs\";\n"))

    (set #no_bak_dir2 (cat
    "\nÐñïóï÷Þ!\n\n\n"
    "Ôï áíôßãñáöï Þôáí áäýíáôï íá äéáãñáöåß, ãéáôß ï ïñéóìÝíïò êáôÜëïãïò Þ ìïíÜäá äßóêïõ äåí ðåñéÝ÷åé êáôÜëïãï ìå ôï üíïìá \"HSML-BAK\".\n"))

    (set #org_list (cat
    "\nÐáñáêáëþ åðéëÝîôå ôïí êáôÜëïãï ðïõ ðåñéÝ÷åé ôéò áñ÷éêÝò math libraries.\n\n"
    "Ðáñáêáëþ áíáôñÝîôå óôï manual - ÁðåãêáôÜóôáóç, áíôéêåßìåíï 3.0.0 - ãéá óõìâïõëÝò!\n"))

    (set #org_list2 (cat
    "\nÐáñáêáëþ åðéëÝîôå ôïí êáôÜëïãï ðïõ ðåñéÝ÷åé ôçí áñ÷éêÞ \"mathtrans.library\".\n\n"
    "Ðáñáêáëþ áíáôñÝîôå óôï manual - ÁðåãêáôÜóôáóç, áíôéêåßìåíï 3.1.0 - ãéá óõìâïõëÝò!\n"))

    (set #no_mathieeedoubbas (cat
    "\nÐñïóï÷Þ!\n\n\n"
    "Ç \"mathieeedoubbas.library\" Þôáí áäýíáôï íá áíôéãñáöåß, ãéáôß äåí âñÝèçêå óôïí ïñéóìÝíï êáôÜëïãï Þ ìïíÜäá äßóêïõ.\n"))

    (set #no_mathieeedoubtrans (cat
    "\nÐñïóï÷Þ!\n\n\n"
    "Ç \"mathieeedoubtrans.library\" Þôáí áäýíáôï íá áíôéãñáöåß, ãéáôß äåí âñÝèçêå óôïí ïñéóìÝíï êáôÜëïãï Þ ìïíÜäá äßóêïõ.\n"))

    (set #no_mathieeesingtrans (cat
    "\nÐñïóï÷Þ!\n\n\n"
    "Ç \"mathieeesingtrans.library\" Þôáí áäýíáôï íá áíôéãñáöåß, ãéáôß äåí âñÝèçêå óôïí ïñéóìÝíï êáôÜëïãï Þ ìïíÜäá äßóêïõ.\n"))

    (set #no_mathtrans (cat
    "\nÐñïóï÷Þ!\n\n\n"
    "Ç \"mathtrans.library\" Þôáí áäýíáôï íá áíôéãñáöåß, ãéáôß äåí âñÝèçêå óôïí ïñéóìÝíï êáôÜëïãï Þ ìïíÜäá äßóêïõ.\n"))
  )
)
(if (= @language "italiano")
  (
    (set #uninstall_method (cat
    "\nScegli la modalità di disinstallazione:\n\n"
    "Prego, consulta il manuale alla voce "Disinstallazione", par. 1.0.0, per saperne di più.\n"))

    (set #backup "Ripristina copia di sicurezza")
    (set #remove "Rimozione")

    (set #bak_list (cat
    "\nSeleziona il disco o la directory contenente la directory \"HSML-BAK\".\n"))

    (set #no_bak_dir (cat
    "\nAttenzione!\n\n\n"
    "La copia di sicurezza non è stata ripristinata perchè il disco o la directory che hai indicato non contengono la directory \"HSML-BAK\".\n"))

    (set #doc_selection (cat
    "\nVuoi cancellare il manuale di \"HSMathLibs\"?\n"))

    (set #yes "sí")
    (set #no  "no")

    (set #doc_list (cat
    "\nPrego seleziona il manuale.\n"))

    (set #no_doc_file (cat
    "\nAttenzione!\n\n\n"
    "Il manuale non è stato cancellato perché non si trova nella directory o nel disco da te indicato.\n"))

    (set #bak_selection (cat
    "\nVuoi cancellare la copia di sicurezza di \"HSMathLibs\"?\n"))

    (set #no_bak_dir2 (cat
    "\nAttenzione!\n\n\n"
    "La copia di sicurezza non è stata cancellata perché la directory o il disco da te indicato non contiene la directory \"HSML-BAK\".\n"))

    (set #org_list (cat
    "\nSeleziona la directory che contiene le librerie matematiche (math libraries) originali.\n\n"
    "Prego, consulta il manuale alla voce "Disinstallazione", par. 3.0.0, per saperne di più.\n"))

    (set #org_list2 (cat
    "\nSeleziona la directory che contiene la \"mathtrans.library\" originale.\n\n"
    "Prego, consulta il manuale alla voce "Disinstallazione", par. 3.1.0, per saperne di più.\n"))

    (set #no_mathieeedoubbas (cat
    "\nAttenzione!\n\n\n"
    "La \"mathieeedoubbas.library\" non è stata copiata perché non si trova nel disco o nella directory da te indicata.\n"))

    (set #no_mathieeedoubtrans (cat
    "\nAttenzione!\n\n\n"
    "La \"mathieeedoubtrans.library\" non è stata copiata perché non si trova nel disco o nella directory da te indicata.\n"))

    (set #no_mathieeesingtrans (cat
    "\nAttenzione!\n\n\n"
    "La \"mathieeesingtrans.library\" non è stata copiata perché non si trova nel disco o nella directory da te indicata.\n"))

    (set #no_mathtrans (cat
    "\nAttenzione!\n\n\n"
    "La \"mathtrans.library\" non è stata copiata perché non si trova nel disco o nella directory da te indicata.\n"))
  )
)
(if (= @language "polski")
  (
    (set #uninstall_method (cat
    "\nProszë wybraê tryb deinstalacji:\n\n"
    "Podpowiedzi znajdziesz w dokumentacji w dziale deinstalacja, punkt 1.0.0!\n"))

    (set #backup "Odtworzenie (zapisanie ponownie) kopii bezpieczeïstwa")
    (set #remove "Usuniëcie")

    (set #bak_list (cat
    "\nProszë wybraê napëd lub katalog zawierajâcy podkatalog \"HSML-BAK\".\n"))

    (set #no_bak_dir (cat
    "\nUwaga!\n\n\n"
    "Kopia bezpieczeïstwa nie moûe zostaê odtworzona (zapisana ponownie), poniewaû wybrany katalog lub napëd nie zawiera podkatalogu \"HSML-BAK\".\n"))

    (set #doc_selection (cat
    "\nCzy chcesz skasowaê dokumentacjë pakietu \"HSMathLibs\"?\n"))

    (set #yes "tak")
    (set #no  "nie")

    (set #doc_list (cat
    "\nProszë wybraê plik z dokumentacjâ.\n"))

    (set #no_doc_file (cat
    "\nUwaga!\n\n\n"
    "Dokumentacja nie moûe zostaê skasowana, poniewaû nie zostaîa znaleziona w wybranym katalogu lub napëdzie.\n"))

    (set #bak_selection (cat
    "\nCzy chcesz skasowaê kopië bezpieczeïstwa \"HSMathLibs\"?\n"))

    (set #no_bak_dir2 (cat
    "\nUwaga!\n\n\n"
    "Kopia bezpeiczeïstwa nie moûe zostaê skasowana, poniewaû wybrany katalog lub napëd nie zawiera podkatalogu \"HSML-BAK\".\n"))

    (set #org_list (cat
    "\nProszë wybraê katalog zawierajâcy oryginalne biblioteki matematyczne.\n\n"
    "Podpowiedzi znajdziesz w dokumentacji w dziale deinstalacja, punkt 3.0.0!\n"))

    (set #org_list2 (cat
    "\nProszë wybraê katalog zawierajâcy oryginalnâ bibliotekë \"mathtrans.library\".\n\n"
    "Podpowiedzi znajdziesz w dokumentacji w dziale deinstalacja, punkt 3.1.0!\n"))

    (set #no_mathieeedoubbas (cat
    "\nUwaga!\n\n\n"
    "Biblioteka \"mathieeedoubbas.library\" nie moûe zostaê skopiowana, poniewaû nie zostaîa znaleziona w wybranym katalogu lub napëdzie.\n"))

    (set #no_mathieeedoubtrans (cat
    "\nUwaga!\n\n\n"
    "Biblioteka \"mathieeedoubtrans.library\" nie moûe zostaê skopiowana, poniewaû nie zostaîa znaleziona w wybranym katalogu lub napëdzie.\n"))

    (set #no_mathieeesingtrans (cat
    "\nUwaga!\n\n\n"
    "Biblioteka \"mathieeesingtrans.library\" nie moûe zostaê skopiowana, poniewaû nie zostaîa znaleziona w wybranym katalogu lub napëdzie.\n"))

    (set #no_mathtrans (cat
    "\nUwaga!\n\n\n"
    "Biblioteka \"mathtrans.library\" nie moûe zostaê skopiowana, poniewaû nie zostaîa znaleziona w wybranym katalogu lub napëdzie.\n"))
  )
)
(if (= @language "russian")
  (
    (set #uninstall_method (cat
    "\nÊàê áóäåì óäàëÿòü:\n\n"
    "Îïèñàíèå ïðèâåäåíî â äîêóìåíòàöèè - ðàçäåë Óäàëåíèå, ïóíêò 1.0.0 !\n"))

    (set #backup "Âîññòàíîâëåíèå ðåçåðâíûõ êîïèé")
    (set #remove "Óäàëåíèå")

    (set #bak_list (cat
    "\nÂûáåðèòå ðàçäåë èëè êàòàëîã, ñîäåðæàùèé êàòàëîã \"HSML-BAK\".\n"))

    (set #no_bak_dir (cat
    "\nÂíèìàíèå!\n\n\n"
    "Ðåçåðâíàÿ êîïèÿ íå ìîæåò áûòü âîññòàíîâëåíà, òàê êàê â óêàçàííîì êàòàëîãå èëè ðàçäåëå íåò êàòàëîãà \"HSML-BAK\" .\n"))

    (set #doc_selection (cat
    "\nÓäàëèòü äîêóìåíòàöèþ äëÿ \"HSMathLibs\" ?\n"))

    (set #yes "äà")
    (set #no  "íåò")

    (set #doc_list (cat
    "\nÂûáåðèòå äîêóìåíòàöèþ.\n"))

    (set #no_doc_file (cat
    "\nÂíèìàíèå!\n\n\n"
    "Íåâîçìîæíî óäàëèòü äîêóìåíòàöèþ, òàê êàê îíà íå íàéäåíà â óêàçàííîì êàòàëîãå.\n"))

    (set #bak_selection (cat
    "\nÓäàëèòü ïðåäûäóùóþ êîïèþ \"HSMathLibs\"?\n"))

    (set #no_bak_dir2 (cat
    "\nÂíèìàíèå!\n\n\n"
    "Íåâîçìîæíî óäàëèòü ïðåäûäóùóþ êîïèþ, òàê êàê â óêàçàííîì êàòàëîãå èëè ðàçäåëå íåò êàòàëîãà \"HSML-BAK\" .\n"))

    (set #org_list (cat
    "\nÂûáåðèòå êàòàëîã, ñîäåðæàùèé îðèãèíàëüíûå áèáëèîòåêè.\n\n"
    "Îïèñàíèå ïðèâåäåíî â äîêóìåíòàöèè - ðàçäåë Óäàëåíèå, ïóíêò 3.0.0 !\n"))

    (set #org_list2 (cat
    "\nÂûáåðèòå êàòàëîã, ñîäåðæàùèé îðèãèíàëüíóþ \"mathtrans.library\".\n\n"
    "Îïèñàíèå ïðèâåäåíî â äîêóìåíòàöèè - ðàçäåë Óäàëåíèå, ïóíêò 3.1.0 !\n"))

    (set #no_mathieeedoubbas (cat
    "\nÂíèìàíèå!\n\n\n"
    "Íåâîçìîæíî ñêîïèðîâàòü \"mathieeedoubbas.library\", òàê êàê ôàéë íå íàéäåí â óêàçàííîì êàòàëîãå.\n"))

    (set #no_mathieeedoubtrans (cat
    "\nÂíèìàíèå!\n\n\n"
    "Íåâîçìîæíî ñêîïèðîâàòü \"mathieeedoubtrans.library\", òàê êàê ôàéë íå íàéäåí â óêàçàííîì êàòàëîãå.\n"))

    (set #no_mathieeesingtrans (cat
    "\nÂíèìàíèå!\n\n\n"
    "Íåâîçìîæíî ñêîïèðîâàòü \"mathieeesingtrans.library\", òàê êàê ôàéë íå íàéäåí â óêàçàííîì êàòàëîãå.\n"))

    (set #no_mathtrans (cat
    "\nÂíèìàíèå!\n\n\n"
    "Íåâîçìîæíî ñêîïèðîâàòü \"mathtrans.library\", òàê êàê ôàéë íå íàéäåí â óêàçàííîì êàòàëîãå.\n"))
  )
)
(if (= @language "slovensko")
  (
    (set #uninstall_method (cat
    "\nIzberite prosim naèin odstranitve:\n\n"
    "Nasvete prosim poi¹èite v priroèniku - Odstranitev, toèka 1.0.0!\n"))

    (set #backup "povrnitev varnostne kopije")
    (set #remove "odstranitev")

    (set #bak_list (cat
    "\nIzberite prosim imenik, ki vsebuje imenik \"HSML-BAK\".\n"))

    (set #no_bak_dir (cat
    "\nOpozorilo!\n\n\n"
    "Varnostne kopije nisem mogel povrniti, ker izbrani imenik ali pogon ne vsebuje imenika \"HSML-BAK\".\n"))

    (set #doc_selection (cat
    "\nAli ¾elite izbrisati priroènik knji¾nic \"HSMathLibs\"?\n"))

    (set #yes "da")
    (set #no  "ne")

    (set #doc_list (cat
    "\nIzberite prosim priroènik.\n"))

    (set #no_doc_file (cat
    "\nOpozorilo!\n\n\n"
    "Priroènika nisem mogel izbrisati, ker ga nisem na¹el v izbranem imeniku ali pogonu.\n"))

    (set #bak_selection (cat
    "\nAli ¾elite izbrisati varnostno kopijo knji¾nic \"HSMathLibs\"?\n"))

    (set #no_bak_dir2 (cat
    "\nOpozorilo!\n\n\n"
    "Varnostne kopije nisem mogel izbrisati, ker izbrani imenik ali pogon ne vsebuje imenika \"HSML-BAK\".\n"))

    (set #org_list (cat
    "\nIzberite prosim imenik, ki vsebuje izvirne matematiène knji¾nice.\n\n"
    "Nasvete prosim poi¹èite v priroèniku - Odstranitev, toèka 3.0.0!\n"))

    (set #org_list2 (cat
    "\nIzberite prosim imenik, ki vsebuje izvirno knji¾nico \"mathtrans.library\".\n\n"
    "Nasvete prosim poi¹èite v priroèniku - Odstranitev, toèka 3.1.0!\n"))

    (set #no_mathieeedoubbas (cat
    "\nOpozorilo!\n\n\n"
    "Knji¾nice \"mathieeedoubbas.library\" nisem mogel prekopirati, ker je nisem na¹el v izbranem imeniku ali pogonu.\n"))

    (set #no_mathieeedoubtrans (cat
    "\nOpozorilo!\n\n\n"
    "Knji¾nice \"mathieeedoubtrans.library\" nisem mogel prekopirati, ker je nisem na¹el v izbranem imeniku ali pogonu.\n"))

    (set #no_mathieeesingtrans (cat
    "\nOpozorilo!\n\n\n"
    "Knji¾nice \"mathieeesingtrans.library\" nisem mogel prekopirati, ker je nisem na¹el v izbranem imeniku ali pogonu.\n"))

    (set #no_mathtrans (cat
    "\nOpozorilo!\n\n\n"
    "Knji¾nice \"mathtrans.library\" nisem mogel prekopirati, ker je nisem na¹el v izbranem imeniku ali pogonu.\n"))
  )
)
(if (= @language "suomi")
  (
    (set #uninstall_method (cat
    "\nValitse sovelluksen poistotapa:\n\n"
    "Ks. neuvoja käyttöohjeesta, kohdasta Sovelluksen poisto 1.0.0 !\n"))

    (set #backup "Palauta (kirjoita takaisin) varmuuskopio")
    (set #remove "Poista")

    (set #bak_list (cat
    "\nValitse asema tai hakemisto, jossa \"HSML-BAK\"-hakemisto sijaitsee.\n"))

    (set #no_bak_dir (cat
    "\nVaroitus!\n\n\n"
    "Varmuuskopiota ei voitu palauttaa (kirjoittaa takaisin), koska määrätyssä asemassa tai hakemistossa ei ole \"HSML-BAK\"-hakemistoa.\n"))

    (set #doc_selection (cat
    "\nTahdotko poistaa \"HSMathLibs\"-käyttöohjeen?\n"))

    (set #yes "kyllä")
    (set #no  "ei")

    (set #doc_list (cat
    "\nValitse käyttöohje.\n"))

    (set #no_doc_file (cat
    "\nVaroitus!\n\n\n"
    "Käyttöohjetta ei voitu poistaa, koska se ei löytynyt määrätystä asemasta tai hakemistosta.\n"))

    (set #bak_selection (cat
    "\nTahdotko poistaa \"HSMathLibs\":n varmuuskopion?\n"))

    (set #no_bak_dir2 (cat
    "\nVaroitus!\n\n\n"
    "Varmuuskopiota ei voitu poistaa, koska määrätyssä asemassa tai hakemistossa ei ole \"HSML-BAK\"-hakemistoa.\n"))

    (set #org_list (cat
    "\nValitse hakemisto, jossa ovat alkuperäiset matematiikkakirjastot.\n\n"
    "Ks. neuvoja käyttöohjeesta - kohdasta Sovelluksen poisto 3.0.0 !\n"))

    (set #org_list2 (cat
    "\nValitse hakemisto, jossa on alkuperäinen \"mathtrans.library\".\n\n"
    "Ks. neuvoja käyttöohjeesta - kohdasta Sovelluksen poisto 3.1.0 !\n"))

    (set #no_mathieeedoubbas (cat
    "\nVaroitus!\n\n\n"
    "\"mathieeedoubbas.library\" ei kopioitunut, koska se ei löytynyt määrätystä asemasta tai hakemistosta.\n"))

    (set #no_mathieeedoubtrans (cat
    "\nVaroitus!\n\n\n"
    "\"mathieeedoubtrans.library\" ei kopioitunut, koska se ei löytynyt määrätystä asemasta tai hakemistosta.\n"))

    (set #no_mathieeesingtrans (cat
    "\nVaroitus!\n\n\n"
    "\"mathieeesingtrans.library\" ei kopioitunut, koska se ei löytynyt määrätystä asemasta tai hakemistosta.\n"))

    (set #no_mathtrans (cat
    "\nVaroitus!\n\n\n"
    "\"mathtrans.library\" ei kopioitunut, koska se ei löytynyt määrätystä asemasta tai hakemistosta.\n"))
  )
)
(if (= @language "svenska")
  (
    (set #uninstall_method (cat
    "\nVänligen välj avinstallationssätt:\n\n"
    "Vänligen läs manualen, Avinstallation - punkt 1.0.0, för råd!\n"))

    (set #backup "Återskapa (skriv tillbaka) från säkerhetskopia")
    (set #remove "Ta bort")

    (set #bak_list (cat
    "\nVänligen välj enheten eller katalogen som innehåller \"HSML-BAK\" katalogen.\n"))

    (set #no_bak_dir (cat
    "\nVarning!\n\n\n"
    "Säkerhetskopian kunde inte återskapas (bli skriven tillbaka) p.g.a. att den valda katalogen eller enheten inte innehåller någon \"HSML-BAK\" katalog.\n"))

    (set #doc_selection (cat
    "\nVill du radera \"HSMathLibs\" manualen?\n"))

    (set #yes "ja")
    (set #no  "nej")

    (set #doc_list (cat
    "\nVänligen välj manualen.\n"))

    (set #no_doc_file (cat
    "\nVarning!\n\n\n"
    "Manualen kunde inte raderas p.g.a. att den inte kunde hittas i den valda katalogen eller enheten.\n"))

    (set #bak_selection (cat
    "\nVill du radera säkerhetskopian av \"HSMathLibs\"?\n"))

    (set #no_bak_dir2 (cat
    "\nVarning!\n\n\n"
    "Säkerhetskopian kunde inte raderas p.g.a. att den valda katalogen eller enheten inte innehåller \"HSML-BAK\" katalogen.\n"))

    (set #org_list (cat
    "\nVänligen välj katalogen innehållande originalversionen av matematikbiblioteken.\n\n"
    "Vänligen läs manualen, Avinstallation - punkt 3.0.0, för råd!\n"))

    (set #org_list2 (cat
    "\nVänligen välj katalogen som innehåller originalversionen av \"mathtrans.library\".\n\n"
    "Vänligen läs manualen, Avinstallation - punkt 3.1.0, för råd!\n"))

    (set #no_mathieeedoubbas (cat
    "\nVarning!\n\n\n"
    "\"mathieeedoubbas.library\" kunde inte kopieras p.g.a. att den inte kunde hittas i katalogen eller enhet.\n"))

    (set #no_mathieeedoubtrans (cat
    "\nVarning!\n\n\n"
    "\"mathieeedoubtrans.library\" kunde inte kopieras p.g.a. att den inte kunde hittas i katalogen eller enhet.\n"))

    (set #no_mathieeesingtrans (cat
    "\nVarning!\n\n\n"
    "\"mathieeesingtrans.library\" kunde inte kopieras p.g.a. att den inte kunde hittas i katalogen eller enhet.\n"))

    (set #no_mathtrans (cat
    "\nVarning!\n\n\n"
    "\"mathtrans.library\" kunde inte kopieras p.g.a. att den inte kunde hittas i katalogen eller enhet.\n"))
  )
)

;================================================================
; variables for installation
;================================================================

(set @default-dest "")
(set @execute-dir "/Install/")

(set installer-V44 1)
(set mathieeedoubbas 0)
(set mathieeedoubtrans 0)
(set mathieeesingtrans 0)
(set mathtrans 0)

;================================================================
; beginning of installation
;================================================================

(set OS-Version (/ (getversion "Libs:version.library") 65536))

(if (< (/ @installer-version 65536) 44)
  (set installer-V44 0))

(if (= (exists "ENV:HSML-bakdir" (noreq)) 1)
  ((set bakdir (getenv "HSML-bakdir")))
  ((set bakdir "LIBS:"))
)

(welcome)

(set uninstall_method
  (askchoice
    (prompt #uninstall_method)
    (help   @askchoice-help)
    (default 0)
    (choices
      #backup
      #remove
    )
  )
)
(if (= uninstall_method 0)
  (
    (if (= installer-V44 1)
      (
	(trace)
	(set bak_dir
	  (askdir
	    (prompt #bak_list)
	    (help @askdir-help)
	    (default bakdir)
	    (disk)
	  )
	)

	(if (<> (exists (tackon bak_dir "HSML-BAK") (noreq)) 2)
	  ((trace) (message #no_bak_dir (back (retrace)))))
      )
      (
	(set bak_dir
	  (askdir
	    (prompt #bak_list)
	    (help @askdir-help)
	    (default bakdir)
	    (disk)
	  )
	)

	(if (<> (exists (tackon bak_dir "HSML-BAK") (noreq)) 2)
	  (message #no_bak_dir))
      )
    )

    (if (= (exists (tackon bak_dir "HSML-BAK") (noreq)) 2)
      (
	(if (= (exists (tackon bak_dir "HSML-BAK/S/Startup-Sequence") (noreq)) 1)
	  (copyfiles (source (tackon bak_dir "HSML-BAK/S/Startup-Sequence")) (dest "S:") (optional "force"))
	)
	(if (= (exists (tackon bak_dir "HSML-BAK/S/User-Startup") (noreq)) 1)
	  (copyfiles (source (tackon bak_dir "HSML-BAK/S/User-Startup")) (dest "S:") (optional "force"))
	)
	(if (= (exists (tackon bak_dir "HSML-BAK/S/Draco-Startup") (noreq)) 1)
	  (copyfiles (source (tackon bak_dir "HSML-BAK/S/Draco-Startup")) (dest "S:") (optional "force"))
	)
	(if (= (exists (tackon bak_dir "HSML-BAK/Libs/mathieeedoubbas.library") (noreq)) 1)
	  (copyfiles (source (tackon bak_dir "HSML-BAK/Libs/mathieeedoubbas.library")) (dest "SYS:Libs") (optional "force"))
	)
	(if (= (exists (tackon bak_dir "HSML-BAK/Libs/mathieeedoubtrans.library") (noreq)) 1)
	  (copyfiles (source (tackon bak_dir "HSML-BAK/Libs/mathieeedoubtrans.library")) (dest "SYS:Libs") (optional "force"))
	)
	(if (= (exists (tackon bak_dir "HSML-BAK/Libs/mathieeesingtrans.library") (noreq)) 1)
	  (copyfiles (source (tackon bak_dir "HSML-BAK/Libs/mathieeesingtrans.library")) (dest "SYS:Libs") (optional "force"))
	)
	(if (= (exists (tackon bak_dir "HSML-BAK/Libs/mathtrans.library") (noreq)) 1)
	  (copyfiles (source (tackon bak_dir "HSML-BAK/Libs/mathtrans.library")) (dest "SYS:Libs") (optional "force"))
	)
	(if (= (exists (tackon bak_dir "HSML-BAK/Libs/mathffp.library") (noreq)) 1)
	  (
	    (copyfiles (source (tackon bak_dir "HSML-BAK/Libs/mathffp.library")) (dest "SYS:Libs") (optional "force"))
	  )
	  (
	    (if (= (exists "SYS:Libs/mathffp.library" (noreq)) 1)
	      (
		(delete "SYS:Libs/mathffp.library" (optional "force"))
	      )
	    )
	  )
	)
	(if (= (exists (tackon bak_dir "HSML-BAK/Libs/mathieeesingbas.library") (noreq)) 1)
	  (
	    (copyfiles (source (tackon bak_dir "HSML-BAK/Libs/mathieeesingbas.library")) (dest "SYS:Libs") (optional "force"))
	  )
	  (
	    (if (= (exists "SYS:Libs/mathieeesingbas.library" (noreq)) 1)
	      (
		(delete "SYS:Libs/mathieeesingbas.library" (optional "force"))
	      )
	    )
	  )
	)
	(if (= (exists (tackon bak_dir "HSML-BAK/C/Load-mathffp") (noreq)) 1)
	  (
	    (copyfiles (source (tackon bak_dir "HSML-BAK/C/Load-mathffp")) (dest "C:") (optional "force"))
	  )
	  (
	    (if (= (exists "C:Load-mathffp" (noreq)) 1)
	      (
		(delete "C:Load-mathffp" (optional "force"))
	      )
	    )
	  )
	)
	(if (= (exists (tackon bak_dir "HSML-BAK/C/mathffp-Patch") (noreq)) 1)
	  (
	    (copyfiles (source (tackon bak_dir "HSML-BAK/C/mathffp-Patch")) (dest "C:") (optional "force"))
	  )
	  (
	    (if (= (exists "C:mathffp-Patch" (noreq)) 1)
	      (
		(delete "C:mathffp-Patch" (optional "force"))
	      )
	    )
	  )
	)
	(if (= (exists (tackon bak_dir "HSML-BAK/C/mathieeesingbas-Patch") (noreq)) 1)
	  (
	    (copyfiles (source (tackon bak_dir "HSML-BAK/C/mathieeesingbas-Patch")) (dest "C:") (optional "force"))
	  )
	  (
	    (if (= (exists "C:mathieeesingbas-Patch" (noreq)) 1)
	      (
		(delete "C:mathieeesingbas-Patch" (optional "force"))
	      )
	    )
	  )
	)
	(if (= (exists (tackon bak_dir "HSML-BAK/S/HSMathLibs") (noreq)) 1)
	  (
	    (copyfiles (source (tackon bak_dir "HSML-BAK/S/HSMathLibs")) (dest "S:") (optional "force"))
	  )
	  (
	    (if (= (exists "S:HSMathLibs" (noreq)) 1)
	      (
		(delete "S:HSMathLibs" (optional "force"))
	      )
	    )
	  )
	)
	(if (= (exists (tackon bak_dir "HSML-BAK/ENVARC/HSML-mathffp") (noreq)) 1)
	  (
	    (copyfiles (source (tackon bak_dir "HSML-BAK/ENVARC/HSML-mathffp")) (dest "ENVARC:") (optional "force"))
	    (copyfiles (source (tackon bak_dir "HSML-BAK/ENVARC/HSML-mathffp")) (dest "ENV:") (optional "force"))
	  )
	  (
	    (if (= (exists "ENVARC:HSML-mathffp" (noreq)) 1)
	      (
		(delete "ENVARC:HSML-mathffp" (optional "force"))
	      )
	    )
	    (if (= (exists "ENV:HSML-mathffp" (noreq)) 1)
	      (
		(delete "ENV:HSML-mathffp" (optional "force"))
	      )
	    )
	  )
	)
	(if (= (exists (tackon bak_dir "HSML-BAK/ENVARC/HSML-mathieeesingbas") (noreq)) 1)
	  (
	    (copyfiles (source (tackon bak_dir "HSML-BAK/ENVARC/HSML-mathieeesingbas")) (dest "ENVARC:") (optional "force"))
	    (copyfiles (source (tackon bak_dir "HSML-BAK/ENVARC/HSML-mathieeesingbas")) (dest "ENV:") (optional "force"))
	  )
	  (
	    (if (= (exists "ENVARC:HSML-mathieeesingbas" (noreq)) 1)
	      (
		(delete "ENVARC:HSML-mathieeesingbas" (optional "force"))
	      )
	    )
	    (if (= (exists "ENV:HSML-mathieeesingbas" (noreq)) 1)
	      (
		(delete "ENV:HSML-mathieeesingbas" (optional "force"))
	      )
	    )
	  )
	)
	(if (= (exists (tackon bak_dir "HSML-BAK/ENVARC/HSML-bakdir") (noreq)) 1)
	  (
	    (copyfiles (source (tackon bak_dir "HSML-BAK/ENVARC/HSML-bakdir")) (dest "ENVARC:") (optional "force"))
	    (copyfiles (source (tackon bak_dir "HSML-BAK/ENVARC/HSML-bakdir")) (dest "ENV:") (optional "force"))
	  )
	  (
	    (if (= (exists "ENVARC:HSML-bakdir" (noreq)) 1)
	      (
		(delete "ENVARC:HSML-bakdir" (optional "force"))
	      )
	    )
	    (if (= (exists "ENV:HSML-bakdir" (noreq)) 1)
	      (
		(delete "ENV:HSML-bakdir" (optional "force"))
	      )
	    )
	  )
	)
      )
    )
  )
  (
    (if (= (run "search S:Startup-Sequence \";$VER: startup-sequence 44.20 (10.06.98)\"") 0)
      (run "HSML-Remove S:Startup-Sequence \";$VER: startup-sequence 44.20 (10.06.98)\" \"0\"")
    )
    (if (= (run "search S:Startup-Sequence \";$VER: startup-sequence 44.20 (17.07.98)\"") 0)
      (run "HSML-Remove S:Startup-Sequence \";$VER: startup-sequence 44.20 (17.07.98)\" \"0\"")
    )
    (if (= (run "search S:Startup-Sequence \";$VER: startup-sequence 44.30 (05.09.98)\"") 0)
      (run "HSML-Remove S:Startup-Sequence \";$VER: startup-sequence 44.30 (05.09.98)\" \"0\"")
    )
    (if (= (run "search S:Startup-Sequence \";$VER: startup-sequence 44.40 (30.01.99)\"") 0)
      (run "HSML-Remove S:Startup-Sequence \";$VER: startup-sequence 44.40 (30.01.99)\" \"0\"")
    )
    (if (= (run "search S:Startup-Sequence Load-mathffp") 0)
      (run "HSML-Remove S:Startup-Sequence Load-mathffp 1")
    )
    (if (= (run "search S:Startup-Sequence mathffp-Patch") 0)
      (run "HSML-Remove S:Startup-Sequence mathffp-Patch 1")
    )
    (if (= (run "search S:Startup-Sequence mathieeesingbas-Patch") 0)
      (run "HSML-Remove S:Startup-Sequence mathieeesingbas-Patch 1")
    )
    (if (= (run "search S:Startup-Sequence Libs:mathffp.library") 0)
      (run "HSML-Remove S:Startup-Sequence all Libs:mathffp.library")
    )
    (if (= (run "search S:Startup-Sequence Libs:mathieeesingbas.library") 0)
      (run "HSML-Remove S:Startup-Sequence all Libs:mathieeesingbas.library")
    )
    (if (= (exists "S:User-Startup" (noreq)) 1)
      (
	(if (= (run "search S:User-Startup mathffp-Patch") 0)
	  (run "HSML-Remove S:User-Startup mathffp-Patch 1")
	)
	(if (= (run "search S:User-Startup mathieeesingbas-Patch") 0)
	  (run "HSML-Remove S:User-Startup mathieeesingbas-Patch 1")
	)
      )
    )
    (if (= (exists "S:Draco-Startup" (noreq)) 1)
      (
	(if (= (run "search S:DraCo-Startup mathffp-Patch") 0)
	  (run "HSML-Remove S:DraCo-Startup mathffp-Patch 1")
	)
	(if (= (run "search S:DraCo-Startup mathieeesingbas-Patch") 0)
	  (run "HSML-Remove S:DraCo-Startup mathieeesingbas-Patch 1")
	)
      )
    )
    (if (= (exists "S:Startup-Sequence.HSM-bak" (noreq)) 1)
      (delete "S:Startup-Sequence.HSM-bak" (optional "force"))
    )
    (if (= (exists "S:DraCo-Startup.HSM-bak" (noreq)) 1)
      (delete "S:DraCo-Startup.HSM-bak" (optional "force"))
    )
    (if (= (exists "ENVARC:HSML-mathffp" (noreq)) 1)
      (delete "ENVARC:HSML-mathffp" (optional "force"))
    )
    (if (= (exists "ENV:HSML-mathffp" (noreq)) 1)
      (delete "ENV:HSML-mathffp" (optional "force"))
    )
    (if (= (exists "ENVARC:HSML-mathieeesingbas" (noreq)) 1)
      (delete "ENVARC:HSML-mathieeesingbas" (optional "force"))
    )
    (if (= (exists "ENV:HSML-mathieeesingbas" (noreq)) 1)
      (delete "ENV:HSML-mathieeesingbas" (optional "force"))
    )
    (if (= (exists "S:HSMathLibs" (noreq)) 1)
      (delete "S:HSMathLibs" (optional "force"))
    )
    (if (= (exists "C:Load-mathffp" (noreq)) 1)
      (delete "C:Load-mathffp" (optional "force"))
    )
    (if (= (exists "C:mathffp-Patch" (noreq)) 1)
      (delete "C:mathffp-Patch" (optional "force"))
    )
    (if (= (exists "C:mathieeesingbas-Patch" (noreq)) 1)
      (delete "C:mathieeesingbas-Patch" (optional "force"))
    )
    (if (= (exists "SYS:Libs/mathffp.library" (noreq)) 1)
      (delete "SYS:Libs/mathffp.library" (optional "force"))
    )
    (if (= (exists "SYS:Libs/mathieeesingbas.library" (noreq)) 1)
      (delete "SYS:Libs/mathieeesingbas.library" (optional "force"))
    )
    (
      (set del_doc
	(askchoice
	  (prompt #doc_selection)
	  (help   @askchoice-help)
	  (default 0)
	  (choices
	    #yes
	    #no
	  )
	)
      )
      (if (= del_doc 0)
	(
	  (if (= installer-V44 1)
	    (
	      (trace)
	      (set doc_file
		(askfile
		  (prompt #doc_list)
		  (help @askfile-help)
		  (if (= @language "català") (default "HELP:català/HSML_Català.guide"))
		  (if (= @language "deutsch") (default "HELP:deutsch/HSML_Deutsch.guide"))
		  (if (= @language "english") (default "HELP:english/HSML_English.guide"))
		  (if (= @language "español") (default "HELP:español/HSML_Español.guide"))
		  (if (= @language "français") (default "HELP:français/HSML_Français.guide"))
		  (if (= @language "greek") (default "HELP:greek/HSML_Greek.guide"))
		  (if (= @language "italiano") (default "HELP:italiano/HSML_Italiano.guide"))
		  (if (= @language "polski") (default "HELP:polski/HSML_Polski.guide"))
		  (if (= @language "russian") (default "HELP:russian/HSML_Russian.guide"))
		  (if (= @language "slovensko") (default "HELP:slovensko/HSML_Slovensko.guide"))
		  (if (= @language "suomi") (default "HELP:suomi/HSML_Suomi.guide"))
		  (if (= @language "svenska") (default "HELP:svenska/HSML_Svenska.guide"))
		)
	      )
	      (if (= (exists doc_file (noreq)) 1)
		((delete doc_file (infos) (optional "force")))
		((trace) (message #no_doc_file (back (retrace))))
	      )
	    )
	    (
	      (set doc_file
		(askfile
		  (prompt #doc_list)
		  (help @askfile-help)
		  (if (= @language "català") (default "HELP:català/HSML_Català.guide"))
		  (if (= @language "deutsch") (default "HELP:deutsch/HSML_Deutsch.guide"))
		  (if (= @language "english") (default "HELP:english/HSML_English.guide"))
		  (if (= @language "español") (default "HELP:español/HSML_Español.guide"))
		  (if (= @language "français") (default "HELP:français/HSML_Français.guide"))
		  (if (= @language "greek") (default "HELP:greek/HSML_Greek.guide"))
		  (if (= @language "italiano") (default "HELP:italiano/HSML_Italiano.guide"))
		  (if (= @language "polski") (default "HELP:polski/HSML_Polski.guide"))
		  (if (= @language "russian") (default "HELP:russian/HSML_Russian.guide"))
		  (if (= @language "slovensko") (default "HELP:slovensko/HSML_Slovensko.guide"))
		  (if (= @language "suomi") (default "HELP:suomi/HSML_Suomi.guide"))
		  (if (= @language "svenska") (default "HELP:svenska/HSML_Svenska.guide"))
		)
	      )
	      (if (= (exists doc_file (noreq)) 1)
		((delete doc_file (infos) (optional "force")))
		((message #no_doc_file))
	      )
	    )
	  )
	)
      )
    )
    (
      (if (= installer-V44 1)
	(
	  (trace)
	  (set org_dir
	    (askdir
	      (prompt #org_list)
	      (help @askdir-help)
	      (if (= OS-Version 37) (default "Workbench2.0:Libs"))
	      (if (= OS-Version 38) (default "Workbench2.1:Libs"))
	      (if (= OS-Version 39) (default "Workbench3.0:Libs"))
	      (if (= OS-Version 40) (default "Workbench3.1:Libs"))
	      (if (= OS-Version 44) (default "AmigaOS3.5:OS-Version3.1/Workbench3.1/Libs"))
	      (if (= OS-Version 45) (default "AmigaOS3.9:OS-Version3.9/Workbench3.9/Libs"))
	      (if (> OS-Version 45) (default ""))
	      (disk)
	    )
	  )

	  (if (= mathieeedoubbas 0)
	    (
	      (if (= (exists (tackon org_dir "mathieeedoubbas.library") (noreq)) 1)
		(
		  (copyfiles (source (tackon org_dir "mathieeedoubbas.library")) (dest "SYS:Libs") (optional "force"))
		  (set mathieeedoubbas 1)
		)
		((trace) (message #no_mathieeedoubbas (back (retrace))))
	      )
	    )
	  )
	  (if (= mathieeedoubtrans 0)
	    (
	      (if (= (exists (tackon org_dir "mathieeedoubtrans.library") (noreq)) 1)
		(
		  (copyfiles (source (tackon org_dir "mathieeedoubtrans.library")) (dest "SYS:Libs") (optional "force"))
		  (set mathieeedoubtrans 1)
		)
		((trace) (message #no_mathieeedoubtrans (back (retrace))))
	      )
	    )
	  )
	  (if (= mathieeesingtrans 0)
	    (
	      (if (= (exists (tackon org_dir "mathieeesingtrans.library") (noreq)) 1)
		(
		  (copyfiles (source (tackon org_dir "mathieeesingtrans.library")) (dest "SYS:Libs") (optional "force"))
		  (set mathieeesingtrans 1)
		)
		((trace) (message #no_mathieeesingtrans (back (retrace))))
	      )
	    )
	  )
	  (if (= (exists (tackon org_dir "mathtrans.library") (noreq)) 1)
	    ((copyfiles (source (tackon org_dir "mathtrans.library")) (dest "SYS:Libs") (optional "force")))
	    (
	      (if (= OS-Version 45)
		(
		  (trace)
		  (set org_dir2
		    (askdir
		      (prompt #org_list2)
		      (help @askdir-help)
		      (default "AmigaOS3.9:OS-Version3.9/Workbench3.5/Libs")
		      (disk)
		    )
		  )
		  (if (= (exists (tackon org_dir2 "mathtrans.library") (noreq)) 1)
		    ((copyfiles (source (tackon org_dir2 "mathtrans.library")) (dest "SYS:Libs") (optional "force")))
		    ((trace) (message #no_mathtrans (back (retrace))))
		  )
		)
		((trace) (message #no_mathtrans (back (retrace))))
	      )
	    )
	  )
	)
	(
	  (set org_dir
	    (askdir
	      (prompt #org_list)
	      (help @askdir-help)
	      (if (= OS-Version 37) (default "Workbench2.0:Libs"))
	      (if (= OS-Version 38) (default "Workbench2.1:Libs"))
	      (if (= OS-Version 39) (default "Workbench3.0:Libs"))
	      (if (= OS-Version 40) (default "Workbench3.1:Libs"))
	      (if (= OS-Version 44) (default "AmigaOS3.5:OS-Version3.1/Workbench3.1/Libs"))
	      (if (= OS-Version 45) (default "AmigaOS3.9:OS-Version3.9/Workbench3.9/Libs"))
	      (if (> OS-Version 45) (default ""))
	      (disk)
	    )
	  )

	  (if (= (exists (tackon org_dir "mathieeedoubbas.library") (noreq)) 1)
	    ((copyfiles (source (tackon org_dir "mathieeedoubbas.library")) (dest "SYS:Libs") (optional "force")))
	    ((message #no_mathieeedoubbas))
	  )
	  (if (= (exists (tackon org_dir "mathieeedoubtrans.library") (noreq)) 1)
	    ((copyfiles (source (tackon org_dir "mathieeedoubtrans.library")) (dest "SYS:Libs") (optional "force")))
	    ((message #no_mathieeedoubtrans))
	  )
	  (if (= (exists (tackon org_dir "mathieeesingtrans.library") (noreq)) 1)
	    ((copyfiles (source (tackon org_dir "mathieeesingtrans.library")) (dest "SYS:Libs") (optional "force")))
	    ((message #no_mathieeesingtrans))
	  )
	  (if (= (exists (tackon org_dir "mathtrans.library") (noreq)) 1)
	    ((copyfiles (source (tackon org_dir "mathtrans.library")) (dest "SYS:Libs") (optional "force")))
	    (
	      (if (= OS-Version 45)
		(
		  (set org_dir2
		    (askdir
		      (prompt #org_list2)
		      (help @askdir-help)
		      (default "AmigaOS3.9:OS-Version3.9/Workbench3.5/Libs")
		      (disk)
		    )
		  )
		  (if (= (exists (tackon org_dir2 "mathtrans.library") (noreq)) 1)
		    ((copyfiles (source (tackon org_dir2 "mathtrans.library")) (dest "SYS:Libs") (optional "force")))
		    ((message #no_mathtrans))
		  )
		)
		((message #no_mathtrans))
	      )
	    )
	  )
	)
      )
    )
    (
      (set del_bak
	(askchoice
	  (prompt #bak_selection)
	  (help   @askchoice-help)
	  (default 0)
	  (choices
	    #yes
	    #no
	  )
	)
      )
      (if (= del_bak 0)
	(
	  (if (= installer-V44 1)
	    (
	      (trace)
	      (set bak_dir
		(askdir
		  (prompt #bak_list)
		  (help @askdir-help)
		  (default bakdir)
		  (disk)
		)
	      )

	      (if (<> (exists (tackon bak_dir "HSML-BAK") (noreq)) 2)
		((trace) (message #no_bak_dir2 (back (retrace)))))
	    )
	    (
	      (set bak_dir
		(askdir
		  (prompt #bak_list)
		  (help @askdir-help)
		  (default bakdir)
		  (disk)
		)
	      )

	      (if (<> (exists (tackon bak_dir "HSML-BAK") (noreq)) 2)
		(message #no_bak_dir2))
	    )
	  )

	  (if (= (exists (tackon bak_dir "HSML-BAK") (noreq)) 2)
	    (
	      (delete (tackon bak_dir "HSML-BAK") (all) (optional "force"))
	      (if (= (exists "ENVARC:HSML-bakdir" (noreq)) 1)
		(delete "ENVARC:HSML-bakdir" (optional "force"))
	      )
	      (if (= (exists "ENV:HSML-bakdir" (noreq)) 1)
		(delete "ENV:HSML-bakdir" (optional "force"))
	      )
	    )
	  )
	)
      )
    )
  )
)