home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 20 / AACD20.BIN / AACD / Utilities / ICS / Install-ICS < prev    next >
Text File  |  2001-03-17  |  36KB  |  1,180 lines
  1. ; $VER: ICS 2.01b (16.03.01)
  2. ; Copyright (C)1999-2001 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6.  
  7. (set icsvernew 2)  ; Set to the version/revision of ICS library!!!
  8. (set icsrevnew 11)
  9. (set irwvernew 1)  ; Set to the version/revision of IRW library!!!
  10. (set irwrevnew 4)
  11.  
  12. ;**** English text
  13. ;-------
  14. (set #welcome-pirate
  15. (cat "\nWelcome to the ICS for Scanners.\n\n"
  16.     "ICS is Copyright (C)2000 by Wolf Faust\n\n"
  17. ))
  18. ;-------
  19. (set #waitmsg
  20. (cat "\n\n\n\nWorking. Please wait..."
  21. ))
  22. (set #register
  23. (cat "\nPlease remember:\nYou can use ICS for free as long as you return the registration form within 48 hours after start using ICS\n"
  24. ))
  25. ;-------
  26. (set #bad-kick
  27. (cat    "\nYour system software is very old. "
  28.     "You must use at least Kickstart 2.04 for all ICS programs."
  29. ))
  30. ;--------------
  31. (set #foundicsver
  32. (cat "\nI found an exisiting ICS installation\n(Library Ver. %ld Rev. %ld).\nPlease select the type of action you want to perform:\n"
  33. ))
  34. (set #foundics
  35. (cat "I found an exisiting ICS installation. Please select the type of action you want to perform:"
  36. ))
  37. (set #foundicshelp
  38. (cat "When selecting update, the ICS software will be updated in the ICS: location found.\n\n"
  39.     "When selecting complete installation, you will continue to do a complete ICS installation.\n\n"
  40.     @askoptions-help
  41. ))
  42. (set #foundics-choices0
  43. (cat "Remove ICS from your system"
  44. ))
  45. (set #foundics-choices1
  46. (cat "Update existing ICS software"
  47. ))
  48. (set #foundics-choices2
  49. (cat "Do a complete new ICS installation"
  50. ))
  51.  
  52. (set #yes
  53. (cat "YES"
  54. ))
  55. (set #yesupdate
  56. (cat "Yes, overwrite"
  57. ))
  58. (set #nodrawer
  59. (cat "No, continue"
  60. ))
  61. ;--------------
  62. (set #ask-ics
  63. (cat "Select the disk or drawer the 'ICS' application drawer should be created in?"
  64. ))
  65. (set #ask-ics-help
  66. (cat "\nThis section lets you choose in which drawer or on which disk the "
  67.     "ICS programs should be installed. "
  68.     "The program can be installed to any disk/drawer you like. "
  69.     "The selected disk should have at least 3 MByte free space.\n\n"
  70.     @askdir-help
  71. ))
  72. ;--------------
  73. (set #abortunpack
  74. (cat "\nError occured while running the installation decompression program. "
  75.     "The error occured during decompressing of the file:\n\n\"%s\"\n\n"
  76. ))
  77. ;--------------
  78. (set #cputype
  79. (cat "\nPlease select for what type of CPU/FPU hardware ICS should be installed for.\n"
  80. ))
  81. (set #cputype-help
  82. (cat "\nICS was written for various CPU's (Central Processor Unit) supported by the Amiga OS. "
  83.     "For instance, if you own a normal Amiga 4000 choose the 68040 FPU ICS library (FPU=Floating Point Unit).\n"
  84.     "Older Amigas like the A500, A600, A1000, A2000 were build with the 68000 CPU.\n"
  85.     "The Amiga 1200 has a 68020 CPU (no FPU!).\n"
  86.     "The Amiga 3000(T) has a 68030 with FPU\n"
  87.     "If your Amiga has accelerator board fitted, please choose the correct "
  88.     "library.\n\nThere can be major speed differences between different versions of the library!!!\n"
  89.     "Note: the 68000 version works with all Amigas but is the slowest.\n\n"
  90.     @askoptions-help
  91. ))
  92. ;--------------
  93. (set #userstartup
  94. (cat "Can I add/remove an ICS: and ICS_Profiles: assign to/from your user-startup sequence?" 
  95. ))
  96. ;--------------
  97. (set #foundnewerics
  98. (cat "A newer ICS library Ver. %ld Rev. %ld is already installed on your system. Shall I install the Ver. %ld Rev. %ld library? Select NO to use the already installed library.\n"
  99. ))
  100. (set #foundnewhelp
  101. (cat "When selecting yes, the ICS library stored in LIBS: will be overwritten.\n\n"
  102.     "When selecting no, the ICS programs will be installed and use the existing library.\n\n"
  103. ))
  104. ;--------------
  105. (set #icsremoved
  106. (cat "\nICS was removed from your system.\nYou may now delete the ICS drawer from your system.\n"
  107. ))
  108. ;--------------
  109. (set #manual
  110. (cat "manualE"
  111. ))
  112. ;--------------
  113. (set #manualpath
  114. (cat "Pages"
  115. ))
  116. ;--------------
  117. (set #warnfpu
  118. (cat "\nThis is just a note and NOT an error message:\n\n"
  119.     "Make sure that your system has a correctly working "
  120.     "680x0.library installed. Otherwise FPU errors can "
  121.     "cause ICS to generate faulty/random images. "
  122.     "Especialy older PowerPC board owners might need "
  123.     "to update their system before their FPU is working correctly.\n"
  124.     "\nYou can always install the slower 68000 version in order to "
  125.     "avoid the rare CPU/FPU problems. But first go ahead with the FPU version..."
  126. ))
  127. ;--------------
  128. (set #removeirw
  129. (cat "There is an irw.library Ver. %ld Rev. %ld installed.\n"
  130.     "The ICS software installed version Ver. %ld Rev. %ld.\n"
  131.     "Removing the irw library might cause problems with other applications "
  132.     "also using the IRW library (PGS Universal filter,...).\n"
  133.     "Delete IRW if ICS was the only software using it.\n"
  134.     "When in doubt, keep IRW.\n"
  135. ))
  136. (set #removeirwhelp
  137. (cat "The IRW library is installed in your LIBS: drawer. The library is used "
  138.     "by various applications to read or write images. "
  139. ))
  140. (set #delirw
  141. (cat "Delete IRW"
  142. ))
  143. (set #keepirw
  144. (cat "Keep IRW"
  145. ))
  146. ;--------------
  147. (set #foundnewerirw
  148. (cat "A newer IRW library Ver. %ld Rev. %ld is already installed on your system. Shall I install the Ver. %ld Rev. %ld library? Select NO to use the already installed library.\n"
  149. ))
  150. (set #foundnewirwhelp
  151. (cat "When selecting yes, the IRW library stored in LIBS: will be overwritten.\n\n"
  152.     "When selecting no, the ICS programs will be installed and use the IRW existing library.\n\n"
  153. ))
  154.  
  155.  
  156. ;*** German
  157. (if (= @language "deutsch")
  158. (
  159.     (set #welcome-pirate
  160.     (cat "\nWillkommen zur Installation der ICS Software!\n\n"
  161.         "Copyright (C)2000 Wolf Faust\n\n"
  162.     ))
  163.     ;-------
  164.     (set #waitmsg
  165.     (cat "\n\n\n\nIch arbeite! Bitte warten..."
  166.     ))
  167.     ;-------
  168.     (set #register
  169.     (cat "\n\nNicht vergessen:\n\nSie können ICS kostenlos benutzen, solange Sie binnen 48 Stunden nach der ersten Nutzung die Software kostenlos registrieren."
  170.     ))
  171.     ;-------
  172.     (set #bad-kick
  173.     (cat    "\nIhre System-Software ist sehr alt. "
  174.         "Sie brauchen mindestens Kickstart 2.04 für alle ICS-Programme."
  175.     ))
  176.     ;--------------
  177.     (set #foundicsver
  178.     (cat "\nIch habe eine installierte ICS Software gefunden\n(Library Ver. %ld Rev. %ld).\nBitte wählen Sie eine gewünschte Aktion:\n"
  179.     ))
  180.     (set #foundics
  181.     (cat "\nIch habe eine installierte ICS Software gefunden. Bitte wählen Sie eine gewünschte Aktion:\n"
  182.     ))
  183.     (set #foundicshelp
  184.     (cat "Wählen Sie entfernen, und die ICS Library sowie Assigns in S:User-Startup werden entfernt.\n\n"
  185.         "Wählen Sie erneuern, dann wird die ICS Software in der ICS: Schublade upgedated.\n\n"
  186.         "Wählen Sie komplette Installation, können Sie mit der normalen ICS Installation fortfahren.\n\n"
  187.         @askoptions-help
  188.     ))
  189.     (set #foundics-choices0
  190.     (cat "ICS aus dem System entfernen"
  191.     ))
  192.     (set #foundics-choices1
  193.     (cat "Vorhandene ICS Software erneuern"
  194.     ))
  195.     (set #foundics-choices2
  196.     (cat "ICS komplett neu installieren"
  197.     ))
  198.     (set #yes
  199.     (cat "JA"
  200.     ))
  201.     (set #yesupdate
  202.     (cat "Ja, überschreiben"
  203.     ))
  204.     (set #nodrawer
  205.     (cat "Nein, weiter"
  206.     ))
  207.     ;--------------
  208.     (set #ask-ics
  209.     (cat "\nWählen Sie eine Disk/Verzeichnis, in dem das ICS-Verzeichnis angelegt werden soll."
  210.     ))
  211.     (set #ask-ics-help
  212.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
  213.         "Schublade die ICS-Schublade mit den Programmen kopiert werden soll. Normalerweise sollten "
  214.         "Sie hierzu die Schublade wählen, in der Sie auch Ihre anderen "
  215.         "Grafikprogramme speichern. Die gewählte Disk sollte mindestens 3 MByte "
  216.         "an freien Speicherplatz besitzen.\n\n"
  217.         @askdir-help
  218.     ))
  219.     ;--------------
  220.     (set #abortunpack
  221.     (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
  222.         "Das zu entpackende Archiv lautete:\n\n\"%s\"\n\n"
  223.     ))
  224.     ;--------------
  225.     (set #cputype
  226.     (cat "\nBitte wählen Sie, für welchen Prozessor ICS installiert werden soll.\n"
  227.     ))
  228.     (set #cputype-help
  229.     (cat "\nICS wurde für verschiedene Prozessoren erstellt. Bitte wählen Sie den Prozessor (CPU) "
  230.         "und falls vorhanden, die Fließkomma-Einheit (FPU) Ihrer Hardware. "
  231.         "Sollten Sie Ihren Amiga nicht mit einem schnelleren Prozessor erweitert haben, "
  232.         "finden Sie folgende Prozessoren in Ihren Amiga:\n"
  233.         "Amiga 500, 600, 1200, 2000:  CPU 68000\n"
  234.         "Amiga 1200:     CPU 68020 ohne FPU\n"
  235.         "Amiga 3000 (T): CPU 68030 mit FPU\n"
  236.         "Amiga 4000:     CPU 68040 mit FPU\n\n"
  237.         "Die ICS Geschwindigkeitsunterschiede können zwischen den verschiedenen CPU Versionen enorm sein.\n\n"
  238.         @askoptions-help
  239.     ))
  240.     ;--------------
  241.     (set #userstartup
  242.     (cat "Kann ich einen ICS: und ICS_Profiles: Verweis in Ihrer User-Startup-Sequenz hinzufügen oder löschen?" 
  243.     ))
  244.     ;--------------
  245.     (set #foundnewerics
  246.     (cat "Eine neuere Version %ld Revision %ld der 'ics.ibrary' ist bereits auf Ihrem System installiert.\nSoll ich trotzdem die Ver. %ld Rev. %ld der Library installieren?\nWählen Sie Nein um die vorhandene Library zu benutzen.\n"
  247.     ))
  248.     (set #foundnewhelp
  249.     (cat "Wählen Sie ja, dann wird die 'ics.library' in der LIBS: Schublade mit einer älteren Version überschrieben.\n\n"
  250.         "Wählen Sie Nein, werden die ICS Programme installiert, wobei die schon installierte 'ics.library' benutzt wird.\n\n"
  251.     ))
  252.     ;--------------
  253.     (set #icsremoved
  254.     (cat "\nICS wurde von Ihrem System entfernt.\nSie können jetzt die ICS Schublade löschen.\n"
  255.     ))
  256.     ;--------------
  257.     (set #manual
  258.     (cat "manual"
  259.     ))
  260.     ;--------------
  261.     (set #manualpath
  262.     (cat "Seiten"
  263.     ))
  264.     ;--------------
  265.     (set #warnfpu
  266.     (cat "\nDies ist ein Hinweis und keine Fehlermeldung:\n\n"
  267.         "Damit die FPU-Version von ICS korrekt arbeitet, "
  268.         "muß eine funktionierende 680x0.library in "
  269.         "Ihrem System installiert sein. Besonders Besitzer "
  270.         "älterer Systemsoftware sollten bei Fehlern in Bildern "
  271.         "Ihr System updaten."
  272.         "\n\nSollten die seltenen CPU/FPU Probleme auftauchen, "
  273.         "können Sie bis zum Systemupdate die langsamere 68000er Version "
  274.         "von ICS ausprobieren."
  275.         "\nAber jetzt erst mal weiter... "
  276.     ))
  277.  
  278.     ;--------------
  279.     (set #removeirw
  280.     (cat "\nAchtung!\nSoll die IRW Library wirklich gelöscht werden?\n"
  281.         "Ich habe eine installierte IRW Library V.%ld R.%ld gefunden. "
  282.         "Ursprünglich wurde V.%ld R.%ld von ICS installiert.\n"
  283.         "Die IRW Library kann auch von anderen Anwendungen "
  284.         "in Gebrauch sein (z.B. vom PGS Universal Filter) und sollte dann nicht entfernt werden.\n"
  285.         "Soll die IRW Library wirklich gelöscht werden?\n"
  286.         "Im Zweifel bitte die IRW Library nicht löschen.\n"
  287.     ))
  288.  
  289.     (set #removeirwhelp
  290.     (cat "Die IRW Library wird von Anwendungen zum Lesen und Schreiben von Bilddaten "
  291.         "verwendet. Sie befindet sich normal in der LIBS: Systemschublade."
  292.     ))
  293.     (set #delirw
  294.     (cat "Lösche IRW"
  295.     ))
  296.     (set #keepirw
  297.     (cat "Behalte IRW"
  298.     ))
  299.     ;--------------
  300.     (set #foundnewerirw
  301.     (cat "Eine neuere Version %ld Revision %ld der 'irw.ibrary' ist bereits auf Ihrem System installiert.\nSoll ich trotzdem die Ver. %ld Rev. %ld der Library installieren?\nWählen Sie Nein um die vorhandene Library zu benutzen.\n"
  302.     ))
  303.     (set #foundnewirwhelp
  304.     (cat "Wählen Sie ja, dann wird die 'irw.library' in der LIBS: Schublade mit einer älteren Version überschrieben.\n\n"
  305.         "Wählen Sie Nein, werden die ICS Programme installiert, wobei die schon installierte 'irw.library' benutzt wird.\n\n"
  306.         "Die IRW Library wird zum Lesen und Schreiben von Bilddateien verwendet.\n"
  307.     ))
  308. ))
  309.  
  310. (if (= @language "español")
  311. (
  312. ;-------
  313.     (set #welcome-pirate
  314.     (cat "\nBienvenido al programa ICS para escáneres.\n\n"
  315.         "ICS es propiedad de: Copyright (C)2000 Wolf Faust\n\n"
  316.     ))
  317.     ;-------
  318.     (set #waitmsg
  319.     (cat "\n\n\n\nEstoy trabajando. Por favor, aguarde..."
  320.     ))
  321.     (set #register
  322.     (cat "\nPor favor, recuerde:\nPuede utilizar ICS libremente siempre que devuelva debidamente cubierto el impreso de registro en como máximo 48 horas después de haber comenzado a utilizar ICS\n"
  323.     ))
  324.     ;-------
  325.     (set #bad-kick
  326.     (cat    "\nSu sistema operativo es demasiado antiguo: "
  327.         "se requiere al menos Kickstart 2.04 para todos los programas del paquete ICS."
  328.     ))
  329.     ;--------------
  330.     (set #foundicsver
  331.     (cat "\nHe encontrado una instalación de ICS previa\n(versión de la biblioteca %ld, revisión %ld).\nPor favor, elija el tipo de acción a realizar:\n"
  332.     ))
  333.     (set #foundics
  334.     (cat "He encontrado una instalación de ICS previa. Por favor, elija el tipo de acción a realizar:"
  335.     ))
  336.     (set #foundicshelp
  337.     (cat "Cuando seleccione actualizar, ICS será actualizado en la localización `ICS:' detectada.\n\n"
  338.         "Cuando seleccione una instalación completa, se realizar una instalación completa del paquete.\n\n"
  339.         @askoptions-help
  340.     ))
  341.     (set #foundics-choices0
  342.     (cat "Desinstalar"
  343.     ))
  344.     (set #foundics-choices1
  345.     (cat "Actualizar la versión existente"
  346.     ))
  347.     (set #foundics-choices2
  348.     (cat "Nueva instalación completa"
  349.     ))
  350.  
  351.     (set #yes
  352.     (cat "Sí"
  353.     ))
  354.     (set #yesupdate
  355.     (cat "Sí, sobreescribir"
  356.     ))
  357.     (set #nodrawer
  358.     (cat "No, continuar"
  359.     ))
  360.     ;--------------
  361.     (set #ask-ics
  362.     (cat "Elija la localización en la que el cajón de `ICS' debe ser creado"
  363.     ))
  364.     (set #ask-ics-help
  365.     (cat "\nEsta sección le permite elegir en qué cajón o en qué disco "
  366.         "los programas del paquete ICS deben ser instalados. "
  367.         "El programa puede ser instalado en cualquier disco/cajón que desee, "
  368.         "siempre que disponga de al menos 3 Mo de espacio libre.\n\n"
  369.         @askdir-help
  370.     ))
  371.     ;--------------
  372.     (set #abortunpack
  373.     (cat "\nSe ha producido un error en la instalación al ejecutar el programa descompresor. "
  374.         "El error se ha producido descomprimiendo el fichero:\n\n\"%s\"\n\n"
  375.     ))
  376.     ;--------------
  377.     (set #cputype
  378.     (cat "\nPor favor, elija qué tipo de microprocesador y unidad de coma flotante dispone en su equipo.\n"
  379.     ))
  380.     (set #cputype-help
  381.     (cat "\nICS ha sido escrito para soportar varios modelos de unidades centrales de proceso (CPU). "
  382.         "Por ejemplo, si posee un Amiga 4000 normal, elija la biblioteca ICS 68040 FPU (FPU significa unidad de coma flotante ;).\n"
  383.         "Los modelos más antiguos como el A500, A600, A1000 y A2000 han sido construidos con un microprocesador 68000.\n"
  384.         "El Amiga 1200 básico dispone de un microprocesador 68020 (¡no dispone de FPU!).\n"
  385.         "El Amiga 3000(T) dispone de un 68030 con unidad de coma flotante\n"
  386.         "Si su Amiga tiene conectada una tarjeta aceleradora, por favor, elija la biblioteca correcta. "
  387.         "\n\n¡¡¡Hay una gran diferencia de velocidad entre versiones diferentes de la biblioteca!!!\n"
  388.         "Nota: la versión 68000 funciona con todos los Amiga pero es la más lenta.\n\n"
  389.         @askoptions-help
  390.     ))
  391.     ;--------------
  392.     (set #userstartup
  393.     (cat "¿Desea que añada/elimine las asignaciones `ICS:' e `ICS_Profiles:' en su fichero `user-startup'?"
  394.     ))
  395.     ;--------------
  396.     (set #foundnewerics
  397.     (cat "Una versión más moderna de la biblioteca ICS (versión. %ld, revisión %ld) ya está instalada en su sistema. ¿Debería instalar la versión %ld, revisión %ld?  Reponda NEGATIVAMENTE para utilizar la ya instalada.\n"
  398.     ))
  399.     (set #foundnewhelp
  400.     (cat "Si responde afirmativamente, la biblioteca ICS almacenada en `LIBS:' será sobreescrita con la versión incluida en el paquete.\n\n"
  401.         "Si responde NEGATIVAMENTE, los programas del paquete ICS serán instalados y utilizarán la biblioteca ya existente en su sistema.\n\n"
  402.     ))
  403.     ;--------------
  404.     (set #icsremoved
  405.     (cat "\nICS ha sido eliminado de su sistema.\nAhora puede borrar el cajón ICS de su sistema.\n"
  406.     ))
  407.     ;--------------
  408.     ; Instalación del manual inglés a falta de manual español 
  409.  
  410.     (set #manual
  411.     (cat "manualE"
  412.     ))
  413.  
  414.     (set #manualpath
  415.     (cat "Pages"
  416.     ))
  417.     ;--------------
  418.     (set #warnfpu
  419.     (cat "\nEsto es sólo una nota y NO un mensaje de error:\n\n"
  420.         "Asegúrese de que su sistema tiene una biblioteca "
  421.         "\"680x0.library\" correcta y operativa. De otra forma, "
  422.         "ICS podría sufrir errores de coma flotante generándose "
  423.         "imágenes defectuosas/aleatorias. "
  424.         "Los usuarios de viejas tarjetas PowerPC, especialmente, podrían "
  425.         "tener que actualizar su sistema para que su unidad "
  426.         "de coma flotante funcione correctamente. "
  427.         "\nRecuerde que siempre dispone de la alternativa de instalar "
  428.         "la versión 68000 más lenta para evitar extraños problemas "
  429.         "de microprocesador o unidad de coma flotante, pero primero "
  430.         "inténtelo con la versión de coma flotante..."
  431.     ))
  432.     ;--------------
  433.     (set #removeirw
  434.     (cat "La biblioteca "irw.library" versión %ld, revisión %ld ya está instalada.\n"
  435.         "El paquete ICS instalado es la versión %ld, revisión %ld.\n"
  436.         "Eliminando la biblioteca IRW podría causar problemas con otras aplicaciones "
  437.         "que la usen (filtro PGS universal,...).\n"
  438.         "Borre IRW si ICS es el único paquete que la utiliza.\n"
  439.         "Ante la duda, conserve IRW.\n"
  440.     ))
  441.     (set #removeirwhelp
  442.     (cat "La biblioteca IRW está instalada en su cajón `LIBS:': ésta es utilizada "
  443.         "por diversas aplicaciones para leer o escribir (ficheros de) imágenes."
  444.     ))
  445.     (set #delirw
  446.     (cat "Borrar IRW"
  447.     ))
  448.     (set #keepirw
  449.     (cat "Conservar IRW"
  450.     ))
  451.     ;--------------
  452.     (set #foundnewerirw
  453.     (cat "Una versión más moderna de la biblioteca IRW (versión. %ld, revisión %ld) ya está instalada en su sistema. ¿Debería instalar la versión %ld, revisión %ld?  Reponda NEGATIVAMENTE para utilizar la ya instalada.\n"
  454.     ))
  455.     (set #foundnewirwhelp
  456.     (cat "Si responde afirmativamente, la biblioteca IRW almacenada en `LIBS:' será sobreescrita con la versión incluida en el paquete.\n\n"
  457.         "Si responde NEGATIVAMENTE, los programas del paquete ICS serán instalados y utilizarán la biblioteca IRW ya existente en su sistema.\n\n"
  458.     ))
  459. ))
  460.  
  461. ;*** French translation by Frédéric Nicolas
  462. (if (= @language "français")
  463. (
  464.     (set #welcome-pirate
  465.     (cat "\nBienvenue à ICS, un correcteur\n\n"
  466.         "d'image numérisée à partir de scanners.\n\n"
  467.         "ICS est copyright © 2000 par Wolf Faust\n\n"
  468.     ))
  469.     ;-------
  470.     (set #waitmsg
  471.     (cat "\n\n\n\nTravail en cours. Veuillez patienter..."
  472.     ))
  473.     (set #register
  474.     (cat "\nVeuillez noter les informations suivantes :\nvous pouvez utiliser ICS gratuitement en renvoyant le formulaire d'enregistrement dans les 48 heures après avoir lancé ICS.\n"
  475.     ))
  476.     ;-------
  477.     (set #bad-kick
  478.     (cat    "\nVotre système d'exploitation est très ancien. "
  479.         "Les programmes d'ICS ne fonctionneront qu'avec au moins la version 2.04 du système d'exploitation de l'Amiga."
  480.     ))
  481.     ;--------------
  482.     (set #foundicsver
  483.     (cat "\nUne installation d'ICS a été détectée sur votre système (bibliothèque version %ld révision %ld).\n\nVeuillez choisir l'action à entreprendre :\n"
  484.     ))
  485.     (set #foundics
  486.     (cat "\nUne installation d'ICS a été détectée sur votre système.\n\nVeuillez choisir l'action à entreprendre :\n"
  487.     ))
  488.     (set #foundicshelp
  489.     (cat "\nEn sélectionnant 'Mise à jour d'ICS', ICS sera mis à jour à l'assignation nommée « ICS: ».\n\n"
  490.         "En sélectionnant 'Installation complète d'ICS', tous les fichiers d'ICS seront installés.\n\n"
  491.         @askoptions-help
  492.     ))
  493.     (set #foundics-choices0
  494.     (cat "Désinstallation d'ICS"
  495.     ))
  496.     (set #foundics-choices1
  497.     (cat "Mise à jour d'ICS"
  498.     ))
  499.     (set #foundics-choices2
  500.     (cat "Installation complète d'ICS"
  501.     ))
  502.     (set #yes
  503.     (cat "Oui"
  504.     ))
  505.     (set #yesupdate
  506.     (cat "Oui, mettre à jour"
  507.     ))
  508.     (set #nodrawer
  509.     (cat "Non, continuer"
  510.     ))
  511.     ;--------------
  512.     (set #ask-ics
  513.     (cat "\nVeuillez sélectionner le disque et le chemin dans lequel un répertoire nommé « ICS » sera créé :\n"
  514.     ))
  515.     (set #ask-ics-help
  516.     (cat "\nVous pouvez choisir dans quel répertoire ou sur quel disque "
  517.         "les fichiers d'ICS seront installés. "
  518.         "Ceux-ci peuvent être installés sur/dans n'importe quel disque/répertoire. "
  519.         "3 Mo d'espace libre seront nécessaires sur le disque sélectionné.\n\n"
  520.         @askdir-help
  521.     ))
  522.     ;--------------
  523.     (set #abortunpack
  524.     (cat "\nUne erreur est survenue lors de la décompression. "
  525.         "Le fichier qui était en cours de décompression est :\n\n\« "%s\" »\n\n"
  526.     ))
  527.     ;--------------
  528.     (set #cputype
  529.     (cat "\nVeuillez sélectionner pour quel processeur (CPU) ICS doit être installé :\n"
  530.     ))
  531.     (set #cputype-help
  532.     (cat "\nICS a été développé pour les divers processeurs reconnus par le système d'exploitation de l'Amiga. "
  533.         "Si vous possédez par exemple un Amiga 4000 de série, choisissez la version 68040 FPU (FPU = unité de calcul à virgule flottante) de la bibliothèque « ics.library ».\n"
  534.         "Les anciens modèles d'Amiga (A500, A600, A1000, A2000 de série) ont été commercialisés avec un processeur 68000.\n"
  535.         "L'Amiga 1200 possède un processeur 68020 sans FPU.\n"
  536.         "L'Amiga 3000(T) contient un 68030 avec FPU.\n"
  537.         "Si vous possédez une carte accélératrice, veuillez utiliser la bonne version de "
  538.         "bibliothèque.\n\nIl peut y avoir des différences de vitesse notables suivant la version utilisée.\n"
  539.         "Note : la version 68000 fonctionne avec tous les Amiga mais est la plus lente.\n\n"
  540.         @askoptions-help
  541.     ))
  542.     ;--------------
  543.     (set #userstartup
  544.     (cat "\nFaut-il ajouter/retirer les assignations « ICS: » et « ICS_Profiles: » du fichier « user-startup » ?" 
  545.     ))
  546.     ;--------------
  547.     (set #foundnewerics
  548.     (cat "\nUne version plus récente de la bibliothèque « ics.library » (ver. %ld rév. %ld) est déjà présente sur votre système. Faut-il installer la ver. %ld rév. %ld de cette bibliothèque ? Sélectionner 'Non' pour conserver la version déjà installée.\n"
  549.     ))
  550.     (set #foundnewhelp
  551.     (cat "\nEn sélectionnant 'Oui', la bibliothèque « ics.library » stockée dans « libs: » sera remplacée.\n\n"
  552.         "En sélectionnant 'Non', les applications d'ICS seront installées et utiliseront la bibliothèque existante.\n\n"
  553.     ))
  554.     ;--------------
  555.     (set #icsremoved
  556.     (cat "\nICS a été désintallé de votre système.\nVous pouvez maintenant effacer le répertoire d'ICS.\n"
  557.     ))
  558.     ;--------------
  559.     (set #manual
  560.     (cat "manualE"
  561.     ))
  562.     ;--------------
  563.     (set #manualpath
  564.     (cat "Pages"
  565.     ))
  566.     ;--------------
  567.     (set #warnfpu
  568.     (cat "\nCeci est une note et non un message d'erreur :\n\n"
  569.         "assurez-vous que votre système possède une(des) bibliothèque(s) "
  570.         "« 680x0.library » correctement installée(s). Sinon, des erreurs "
  571.         "FPU pourrait conduire ICS à générer des images corrompues ou aléatoires. "
  572.         "Les possesseurs de cartes PowerPC devront peut-être mettre à jour "
  573.         "leur système pour que leur version FPU fonctionne correctement. "
  574.         "\nVous pouvez toujours installer la version 68000 "
  575.         "afin d'éviter les rares problèmes liés au processeur. Mais essayons "
  576.         "d'abord avec la version FPU...\n"
  577.     ))
  578.     ;--------------
  579.     (set #removeirw
  580.     (cat "\nUne bibliothèque nommée « irw.library »\n"
  581.         "(version %ld révision %ld) est installée.\n"
  582.         "ICS installe une version %ld rév. %ld de celle-ci.\n\n"
  583.         "Effacer la bibliothèque « irw.library » pourrait perturber le fonctionnement d'autres applications "
  584.         "qui en ont besoin (PGS Universal filter, ...).\n\n"
  585.         "N'effacez cette bibliothèque que si ICS était le seul programme l'utilisant.\n"
  586.         "Dans le doute, conservez-la.\n"
  587.     ))
  588.     (set #removeirwhelp
  589.     (cat "\nLa bibliothèque « irw.library » est installée dans le répertoire « libs: ». Elle est utilisée "
  590.         "par d'autres applications pour lire ou écrire différents formats d'images. "
  591.     ))
  592.     (set #delirw
  593.     (cat "Effacer"
  594.     ))
  595.     (set #keepirw
  596.     (cat "Conserver"
  597.     ))
  598.     ;--------------
  599.     (set #foundnewerirw
  600.     (cat "\nUne version plus récente de la bibliothèque « irw.library » (ver. %ld rév. %ld) est déjà présente dans votre système. Faut-il installer la ver. %ld rév. %ld ? Sélectionnez 'Non' pour conserver la version déjà installée.\n"
  601.     ))
  602.     (set #foundnewirwhelp
  603.     (cat "\nEn sélectionnant 'Oui', la bibliothèque « irw.library » stockée dans « libs: » sera écrasée.\n\n"
  604.         "En sélectionnant 'Non', les applications d'ICS seront installées et utiliseront la bibliothèque « irw.library » déjà présente.\n\n"
  605.     ))
  606. ))
  607.  
  608.  
  609. (procedure Meter
  610. (
  611.     (set accum    (+ accum addmeter))
  612.     (complete (/ (* accum 100) total))
  613. ))
  614.  
  615. (complete 0)
  616. ; (message #welcome-pirate)
  617. (working #waitmsg)
  618. (set @default-dest "")
  619.  
  620. (set total        100)
  621. (set accum        0)
  622. (set addmeter        0)
  623. (set firstdisk "")
  624. (set studiodefault "Default_Setting")
  625. ; **** sure we are running under a 2.04 or higher ROM???
  626. (if (< (/ (getversion) 65536) 37)
  627.     (abort #bad-kick)
  628. )
  629.  
  630. (set icsvervalid 0)
  631. (set icsver 0)
  632. (set icsrev 0)
  633. (if (= (exists "LIBS:ics.library") 1)
  634. (
  635.     (set vernum (getversion "LIBS:ics.library"))
  636.     (set icsver (/ vernum 65536))
  637.     (set icsrev (- vernum (* icsver 65536) ) )
  638.     (if (OR (<> icsver 0) (<> icsrev 0))
  639.     (
  640.         (set icsvervalid 1)
  641.     ))
  642. ))
  643.  
  644. (set irwvervalid 0)
  645. (set irwver 0)
  646. (set irwrev 0)
  647. (if (= (exists "LIBS:irw.library") 1)
  648. (
  649.     (set vernum (getversion "LIBS:irw.library"))
  650.     (set irwver (/ vernum 65536))
  651.     (set irwrev (- vernum (* irwver 65536) ) )
  652.     (if (OR (<> irwver 0) (<> irwrev 0))
  653.     (
  654.         (set irwvervalid 1)
  655.     ))
  656. ))
  657.  
  658. (set addmeter    10)
  659. (Meter)
  660. (set guessdrawer "")
  661. (if (= guessdrawer "")
  662. (
  663.     (set guessdrawer (getassign "WORK" "d"))
  664.     (if (= guessdrawer "")
  665.     (
  666.         (set guessdrawer (getassign "DH0" "d"))
  667.         (if (= guessdrawer "")
  668.         (
  669.             (set guessdrawer (getassign "DH2" "d"))
  670.             (if (= guessdrawer "")
  671.             (
  672.                 (set guessdrawer "SYS:")
  673.             ))
  674.         ))
  675.     ))
  676. ))
  677.  
  678. (set inschoice 2)
  679. (set icsassign "")
  680. (set proassign "")
  681. (set icsguessdrawer (getassign "ICS" "a"))
  682. (if (<> icsguessdrawer "")
  683. (
  684.     (set proguessdrawer (getassign "ICS_Profiles" "a"))
  685.     (if (<> proguessdrawer "")
  686.     (
  687.         (set icsassign "ICS:/")
  688.         (set proassign "ICS_Profiles:/")
  689.         (set icspath (expandpath "ICS:"))
  690.         (set propath (expandpath "ICS_Profiles:"))
  691.  
  692.         (if (<> icsvervalid 0)
  693.         (
  694.             (set inschoice (askchoice (prompt (#foundicsver icsver icsrev))
  695.                 (help #foundicshelp)
  696.                 (choices #foundics-choices0 #foundics-choices1 #foundics-choices2)
  697.                 (default 1)
  698.                 )
  699.             )
  700.         )
  701.         (
  702.             (set inschoice (askchoice (prompt #foundics)
  703.                 (help #foundicshelp)
  704.                 (choices #foundics-choices0 #foundics-choices1 #foundics-choices2)
  705.                 (default 1)
  706.                 )
  707.             )
  708.         ))
  709.     ))
  710. ))
  711. (working #waitmsg)
  712. (set addmeter    10)
  713. (Meter)
  714.  
  715. (if (= inschoice 0)
  716. (
  717.     (set n 0)
  718.     (while (set thisfile (select n  "LIBS:ics.library"
  719.         "ENV:sys/ICSConvert_def_project.info"
  720.         "ENVARC:sys/ICSConvert_def_project.info"
  721.         "ENV:sys/ScanTarget_def_project.info"
  722.         "ENVARC:sys/ScanTarget_def_project.info"
  723.         "ENV:sys/ICS_def_project.info"
  724.         "ENVARC:sys/ICS_def_project.info"
  725.         "LOCALE:catalogs/deutsch/ICS_Library.catalog"
  726.         "LOCALE:catalogs/deutsch/ICS_Convert.catalog"
  727.         "LOCALE:catalogs/deutsch/ICS_ScanTarget.catalog"
  728.         "LOCALE:catalogs/deutsch/ICS_ExtractICC.catalog"
  729.         "LOCALE:catalogs/deutsch/ICS_ExtractIPTC.catalog"
  730.         "LOCALE:catalogs/español/ICS_Library.catalog"
  731.         "LOCALE:catalogs/español/ICS_Convert.catalog"
  732.         "LOCALE:catalogs/español/ICS_ScanTarget.catalog"
  733.         "LOCALE:catalogs/español/ICS_ExtractICC.catalog"
  734.         "LOCALE:catalogs/español/ICS_ExtractIPTC.catalog"
  735.         "LOCALE:catalogs/français/ICS_Library.catalog"
  736.         "LOCALE:catalogs/français/ICS_Convert.catalog"
  737.         "LOCALE:catalogs/français/ICS_ScanTarget.catalog"
  738.         "LOCALE:catalogs/français/ICS_ExtractICC.catalog"
  739.         "LOCALE:catalogs/français/ICS_ExtractIPTC.catalog"
  740.         "ENV:ICS.prefs"
  741.         "ENVARC:ICS.prefs"
  742.         "" ))
  743.     (
  744.         (set n (+ n 1))
  745.         (if (exists thisfile)
  746.         (
  747.             (delete thisfile)
  748.         ))
  749.     ))
  750.     (set addmeter    20)
  751.     (makeassign "ICS")
  752.     (makeassign "ICS_Profiles")
  753.     (set addmeter    20)
  754.     (startup "ICS"
  755.         (prompt (#userstartup))
  756.         (help @startup-help)
  757.     )
  758.     (if (exists "LIBS:irw.library")
  759.     (
  760.         (if (askbool (prompt (#removeirw irwver irwrev irwvernew irwrevnew))
  761.             (choices #delirw #keepirw)
  762.             (help (#removeirwhelp ))
  763.             (default 0))
  764.         (
  765.             (delete "libs:irw.library")
  766.         ))
  767.     ))
  768.     (set addmeter    35)
  769.     (message (#icsremoved))
  770.     (exit (quiet))
  771. )
  772. (
  773.     (set asknewver 0)
  774.     (if (<> icsvervalid 0)
  775.     (
  776.         (if (> icsver icsvernew)
  777.         (
  778.             (set asknewver 1)
  779.         )
  780.         (
  781.             (if (= icsver icsvernew)
  782.             (
  783.                 (if (> icsrev icsrevnew)
  784.                 (
  785.                     (set asknewver 1)
  786.                 ))
  787.             ))
  788.         ))
  789.         (if (<> asknewver 0)
  790.         (
  791.             (if (askbool (prompt (#foundnewerics icsver icsrev icsvernew icsrevnew))
  792.                 (choices #yesupdate #nodrawer)
  793.                 (help (#foundnewhelp ))
  794.                 (default 0))
  795.             (
  796.                 (set asknewver 0)
  797.             ))
  798.         ))
  799.     ))
  800.  
  801.     (set asknewirwver 0)
  802.     (if (<> irwvervalid 0)
  803.     (
  804.         (if (> irwver irwvernew)
  805.         (
  806.             (set asknewirwver 1)
  807.         )
  808.         (
  809.             (if (= irwver irwvernew)
  810.             (
  811.                 (if (> irwrev irwrevnew)
  812.                 (
  813.                     (set asknewirwver 1)
  814.                 ))
  815.             ))
  816.         ))
  817.         (if (<> asknewirwver 0)
  818.         (
  819.             (if (askbool (prompt (#foundnewerirw irwver irwrev irwvernew irwrevnew))
  820.                 (choices #yesupdate #nodrawer)
  821.                 (help (#foundnewirwhelp ))
  822.                 (default 0))
  823.             (
  824.                 (set asknewirwver 0)
  825.             ))
  826.         ))
  827.     
  828.     ))
  829.  
  830.     (set addmeter    5)
  831.     (Meter)
  832.     
  833.     (if (= inschoice 2)
  834.     (
  835.         (set icsassign (askdir (prompt #ask-ics)
  836.             (default guessdrawer)
  837.             (help #ask-ics-help))
  838.         )
  839.         (set proassign (tackon icsassign "ICS"))
  840.         (set icspath proassign) 
  841.         (set propath (tackon proassign "ICS_Profiles"))
  842.         (if (= (exists "ENV:ICS.prefs") 1)
  843.         (
  844.             (delete "ENV:ICS.prefs")
  845.         ))
  846.         (if (= (exists "ENVARC:ICS.prefs") 1)
  847.         (
  848.             (delete "ENVARC:ICS.prefs")
  849.         ))
  850.         (message #register)
  851.     ))
  852.     (working #waitmsg)
  853.     (set addmeter    5)
  854.     (Meter)
  855.     (set deflibtype 0)
  856.     (set CPUStr (database "cpu"))
  857.     (set FPUStr (database "fpu"))
  858.     (if (OR (= CPUStr "68000") (= CPUStr "68010"))
  859.         (set deflibtype    0)
  860.     )
  861.     (if (OR (= CPUStr "68020") (= CPUStr "68030"))
  862.     (
  863.         (set deflibtype    2)
  864.         (if (= FPUStr "NOFPU")
  865.             (set deflibtype    1)
  866.         )
  867.     ))
  868.     (if (OR (= CPUStr "68040") (= CPUStr "68060"))
  869.     (
  870.         (set deflibtype    3)
  871.         (if (= FPUStr "NOFPU")
  872.             (set deflibtype    1)
  873.         )
  874.     ))
  875.     (set libtype  (askchoice (prompt #cputype)
  876.         (help #cputype-help)
  877.         (choices "CPU 68000/10"             ;0
  878.                  "CPU 68020/30/40"          ;1
  879.                  "CPU 68020/30 + FPU"       ;2
  880.                  "CPU 68040/60 + FPU"       ;3
  881.         )
  882.         (default deflibtype)
  883.     ))
  884.     (set libname (select libtype  "Software/lib000.lzh"   ;0
  885.         "Software/lib020.lzh"                         ;1
  886.         "Software/lib030fpu.lzh"                      ;2
  887.         "Software/lib060.lzh"                         ;3
  888.     ))
  889.  
  890.     (set libirwname (select libtype  "Software/irw000.lzh"   ;0
  891.         "Software/irw020.lzh"                            ;1
  892.         "Software/irw020.lzh"                            ;2
  893.         "Software/irw060.lzh"                            ;3
  894.     ))
  895.  
  896.     (if (= inschoice 2)
  897.     (
  898.         (if (> libtype 2)
  899.         (
  900.             (message #warnfpu)
  901.         ))
  902.     ))
  903.  
  904.     
  905.     (set addmeter    5)
  906.     (Meter)
  907.     (working #waitmsg)
  908.     (copyfiles (source "lx")
  909.         (dest "T:")
  910.         (nogauge)
  911.     )
  912.     
  913.     (makeassign "ICSPARENT" icsassign)
  914.     (set exerr (run (cat "T:lx x Software/ics.lzh \"ICSPARENT:\"")))
  915.     (if (> exerr 0)
  916.     (
  917.         (abort (#abortunpack "Software/ics.lzh"))
  918.     ))
  919.     
  920.     (set addmeter    15)
  921.     (Meter)
  922.     (makeassign "PROPARENT" proassign)
  923.     (set exerr (run (cat "T:lx x Software/profiles.lzh \"PROPARENT:\"")))
  924.     (if (> exerr 0)
  925.     (
  926.         (abort (#abortunpack "Software/profiles.lzh"))
  927.     ))
  928.     
  929.     (set addmeter    10)
  930.     (Meter)
  931.     (if (= asknewver 0) ; Are we allowed to install the library?
  932.     (
  933.         (set exerr (run (cat "T:lx x " libname " \"LIBS:\"")))
  934.         (if (> exerr 0)
  935.         (
  936.             (abort (#abortunpack libname))
  937.         ))
  938.     ))
  939.     (if (= asknewirwver 0) ; Are we allowed to install the library?
  940.     (
  941.         (set exerr (run (cat "T:lx x " libirwname " \"LIBS:\"")))
  942.         (if (> exerr 0)
  943.         (
  944.             (abort (#abortunpack libirwname))
  945.         ))
  946.     ))
  947.  
  948.     (set addmeter    5)
  949.     (Meter)
  950.     (if (OR (= inschoice 2) (<> (exists "ENVARC:sys/ICSConvert_def_project.info") 1) ) ; Update default icon if not already available....
  951.     (
  952.         (copyfiles (source "Software/ICSConvert_def_project.info")
  953.             (dest "ENVARC:sys")
  954.             (nogauge)
  955.         )
  956.         (copyfiles (source "Software/ICSConvert_def_project.info")
  957.             (dest "ENV:sys")
  958.             (nogauge)
  959.         )
  960.     ))
  961.  
  962.     (set addmeter    5)
  963.     (Meter)
  964.  
  965.     (if (OR (= inschoice 2) (<> (exists "ENVARC:sys/ScanTarget_def_project.info") 1) ) ; Update default icon if not already available....
  966.     (
  967.         (copyfiles (source "Software/ScanTarget_def_project.info")
  968.             (dest "ENVARC:sys")
  969.             (nogauge)
  970.         )
  971.         (copyfiles (source "Software/ScanTarget_def_project.info")
  972.             (dest "ENV:sys")
  973.             (nogauge)
  974.         )
  975.     ))
  976.  
  977.  
  978.     (set addmeter    5)
  979.     (Meter)
  980.     (makeassign "ICS" icspath)
  981.     (if (= (exists (cat "ICS:" #manualpath)) 2)
  982.     (
  983.         (set n 0)
  984.         (while (< n 35)
  985.         (
  986.             (set n (+ n 1))
  987.             (if (exists (cat "ICS:" #manualpath "/page." n))
  988.             (
  989.                 (delete (cat "ICS:" #manualpath "/page." n ))
  990.             ))
  991.             (if (exists (cat "ICS:" #manualpath "/page." n "L"))
  992.             (
  993.                 (delete (cat "ICS:" #manualpath "/page." n "L"))
  994.             ))
  995.         ))
  996.     ))
  997.     (set exerr (run (cat "T:lx x Software/" #manual ".lzh \"ICS:\"")))
  998.     (if (> exerr 0)
  999.     (
  1000.         (abort (#abortunpack (cat "Software/" #manual ".lzh")))
  1001.     ))
  1002.     (if (= (exists (cat "Software/" #manual "L.lzh")) 1)
  1003.     (
  1004.         (set exerr (run (cat "T:lx x Software/" #manual "L.lzh \"ICS:\"")))
  1005.         (if (> exerr 0)
  1006.         (
  1007.             (abort (#abortunpack (cat "Software/" #manual "L.lzh")))
  1008.         ))
  1009.     ))
  1010.     (set addmeter    10)
  1011.     (Meter)
  1012.  
  1013.     (if (= inschoice 1) ; Update ?
  1014.     (
  1015.         (if (<> @language "deutsch")
  1016.         (
  1017.             (if (= (exists (cat "ICS:Seiten")) 2)
  1018.             (
  1019.                 (set n 0)
  1020.                 (while (< n 35)
  1021.                 (
  1022.                     (set n (+ n 1))
  1023.                     (if (exists (cat "ICS:Seiten/page." n))
  1024.                     (
  1025.                         (delete (cat "ICS:Seiten/page." n ))
  1026.                     ))
  1027.                     (if (exists (cat "ICS:Seiten/page." n "L"))
  1028.                     (
  1029.                         (delete (cat "ICS:Seiten/page." n "L"))
  1030.                     ))
  1031.                 ))
  1032.  
  1033.                 (set exerr (run (cat "T:lx x Software/manual.lzh \"ICS:\"")))
  1034.                 (if (> exerr 0)
  1035.                 (
  1036.                     (abort (#abortunpack (cat "Software/manual.lzh")))
  1037.                 ))
  1038.                 (if (= (exists (cat "Software/manualL.lzh")) 1)
  1039.                 (
  1040.                     (set exerr (run (cat "T:lx x Software/manualL.lzh \"ICS:\"")))
  1041.                     (if (> exerr 0)
  1042.                     (
  1043.                         (abort (#abortunpack (cat "Software/manualL.lzh")))
  1044.                     ))
  1045.                 ))
  1046.             ))
  1047.         ))
  1048.         (if (<> @language "english")
  1049.         (
  1050.             (if (= (exists (cat "ICS:Pages")) 2)
  1051.             (
  1052.                 (set n 0)
  1053.                 (while (< n 35)
  1054.                 (
  1055.                     (set n (+ n 1))
  1056.                     (if (exists (cat "ICS:Pages/page." n))
  1057.                     (
  1058.                         (delete (cat "ICS:Pages/page." n ))
  1059.                     ))
  1060.                     (if (exists (cat "ICS:Pages/page." n "L"))
  1061.                     (
  1062.                         (delete (cat "ICS:Pages/page." n "L"))
  1063.                     ))
  1064.                 ))
  1065.                 (set exerr (run (cat "T:lx x Software/manualE.lzh \"ICS:\"")))
  1066.                 (if (> exerr 0)
  1067.                 (
  1068.                     (abort (#abortunpack (cat "Software/manualE.lzh")))
  1069.                 ))
  1070.                 (if (= (exists (cat "Software/manualEL.lzh")) 1)
  1071.                 (
  1072.                     (set exerr (run (cat "T:lx x Software/manualEL.lzh \"ICS:\"")))
  1073.                     (if (> exerr 0)
  1074.                     (
  1075.                         (abort (#abortunpack (cat "Software/manualEL.lzh")))
  1076.                     ))
  1077.                 ))
  1078.             ))
  1079.         ))
  1080.  
  1081.     ))
  1082.  
  1083.     (copyfiles (source "VER")
  1084.         (dest icspath)
  1085.         (nogauge)
  1086.     )
  1087.  
  1088.     (set addmeter    10)
  1089.     (Meter)
  1090.     (startup "ICS"
  1091.         (prompt (#userstartup))
  1092.         (help @startup-help)
  1093.         (command "Assign ICS: \"" icspath "\"\n"
  1094.             "Assign ICS_Profiles: \"" propath "\"\n"
  1095.                 )
  1096.     )
  1097.  
  1098.     (if (= (exists "LOCALE:catalogs/deutsch") 2)
  1099.     (
  1100.         (copyfiles (source (tackon icspath "catalogs/deutsch/ICS_Library.catalog"))
  1101.             (dest "LOCALE:catalogs/deutsch")
  1102.             (nogauge)
  1103.         )
  1104.         (copyfiles (source (tackon icspath "catalogs/deutsch/ICS_Convert.catalog"))
  1105.             (dest "LOCALE:catalogs/deutsch")
  1106.             (nogauge)
  1107.         )
  1108.         (copyfiles (source (tackon icspath "catalogs/deutsch/ICS_ScanTarget.catalog"))
  1109.             (dest "LOCALE:catalogs/deutsch")
  1110.             (nogauge)
  1111.         )
  1112.         (copyfiles (source (tackon icspath "catalogs/deutsch/ICS_ExtractICC.catalog"))
  1113.             (dest "LOCALE:catalogs/deutsch")
  1114.             (nogauge)
  1115.         )
  1116.         (copyfiles (source (tackon icspath "catalogs/deutsch/ICS_ExtractIPTC.catalog"))
  1117.             (dest "LOCALE:catalogs/deutsch")
  1118.             (nogauge)
  1119.         )
  1120.     ))
  1121.  
  1122.     (if (= (exists "LOCALE:catalogs/français") 2)
  1123.     (
  1124.         (copyfiles (source (tackon icspath "catalogs/français/ICS_Library.catalog"))
  1125.             (dest "LOCALE:catalogs/français")
  1126.             (nogauge)
  1127.         )
  1128.         (copyfiles (source (tackon icspath "catalogs/français/ICS_Convert.catalog"))
  1129.             (dest "LOCALE:catalogs/français")
  1130.             (nogauge)
  1131.         )
  1132.         (copyfiles (source (tackon icspath "catalogs/français/ICS_ScanTarget.catalog"))
  1133.             (dest "LOCALE:catalogs/français")
  1134.             (nogauge)
  1135.         )
  1136.         (copyfiles (source (tackon icspath "catalogs/français/ICS_ExtractICC.catalog"))
  1137.             (dest "LOCALE:catalogs/français")
  1138.             (nogauge)
  1139.         )
  1140.         (copyfiles (source (tackon icspath "catalogs/français/ICS_ExtractIPTC.catalog"))
  1141.             (dest "LOCALE:catalogs/français")
  1142.             (nogauge)
  1143.         )
  1144.     ))
  1145.  
  1146.     (if (= (exists "LOCALE:catalogs/español") 2)
  1147.     (
  1148.         (copyfiles (source (tackon icspath "catalogs/español/ICS_Library.catalog"))
  1149.             (dest "LOCALE:catalogs/español")
  1150.             (nogauge)
  1151.         )
  1152.         (copyfiles (source (tackon icspath "catalogs/español/ICS_Convert.catalog"))
  1153.             (dest "LOCALE:catalogs/español")
  1154.             (nogauge)
  1155.         )
  1156.         (copyfiles (source (tackon icspath "catalogs/español/ICS_ScanTarget.catalog"))
  1157.             (dest "LOCALE:catalogs/español")
  1158.             (nogauge)
  1159.         )
  1160.         (copyfiles (source (tackon icspath "catalogs/español/ICS_ExtractICC.catalog"))
  1161.             (dest "LOCALE:catalogs/español")
  1162.             (nogauge)
  1163.         )
  1164.         (copyfiles (source (tackon icspath "catalogs/español/ICS_ExtractIPTC.catalog"))
  1165.             (dest "LOCALE:catalogs/español")
  1166.             (nogauge)
  1167.         )
  1168.     ))
  1169.  
  1170.     (makeassign "ICS" icspath)
  1171.     (makeassign "ICS_Profiles" propath)
  1172.     (makeassign "ICSPARENT")
  1173.     (makeassign "PROPARENT")
  1174.     (delete "t:lx")
  1175.     (set @default-dest icspath)
  1176.     (run "mylibflush")
  1177. ))
  1178.  
  1179. (complete 100)
  1180.