home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Painting / XiPaint3.2-Aminet11.lzx / XiPaint / Install < prev    next >
Encoding:
Text File  |  1995-11-15  |  18.2 KB  |  717 lines
  1. ; $VER: XiPaint (12.9.95)
  2. ; Script to install Xipaint 3.2
  3.  
  4. (complete 0)
  5. ;=============================================================================
  6. ; English strings
  7.  
  8. (if (= @language "english")
  9. (
  10. (set default_lang 2)
  11.  
  12.  
  13.  
  14. (set #unpack
  15. (cat "Working on unpacking the help files ... "
  16. ))
  17.  
  18. (set #unpack2
  19. (cat "Working on unpacking the XiPaint Libraries ... "
  20. ))
  21.  
  22. (set #multipic
  23. (cat "Copying multipic.library to libs: ... "
  24. ))
  25.  
  26.  
  27. (set #nohelp
  28. (cat "No help available at this moment."
  29. ))
  30.  
  31.  
  32. (set #bad-kick
  33. (cat "You must be using Kickstart 2.0 or higher to install XiPaint 3.2"
  34. ))
  35.  
  36. (set #introduction
  37. (cat "\n\nThis program lets you install XiPaint 3.2 on a hard drive."
  38. ))
  39.  
  40. (set #ask-function
  41. (cat "\n\nSelect \"XiPaint  3.2\" to do a complete installation of "
  42.      "XiPaint 3.2, or select \"Update Help-Files\" to modify which languages "
  43.      "are available on a hard drive with XiPaint 3.2 already installed."
  44. ))
  45.  
  46. (set #ask-function-1
  47. (cat "Install XiPaint 3.2"
  48. ))
  49.  
  50. (set #ask-function-2
  51. (cat "Update Help-Files"
  52. ))
  53.  
  54. (set #ask-function-help
  55. (cat "\nYou must choose which operation you would like to "
  56.      "perform.\n\n"
  57.      "Selecting the \"XiPaint 3.2\" gadget lets you perform a complete "
  58.      "installation of XiPaint 3.2 software. \n\n"
  59.      "The Amiga can be operated in many different "
  60.      "languages. Several files must be copied to your "
  61.      "hard drive for each language supported. Selecting the "
  62.      "\"Update Languages\" gadget lets you control which "
  63.      "languages are installed and available for use on your hard drive. "
  64.      "This option should only be chosen when XiPaint 3.2 has already "
  65.      "been installed.\n\n"
  66. ))
  67.  
  68. (set #confirm-target
  69. (cat "\nXiPaint 3.2 will now be installed on your hard drive. "
  70.      "Do you want XiPaint 3.2 installed in the \"%s\" partition?"
  71. ))
  72.  
  73. (set #confirm-target-help
  74. (cat "Choose Yes to install the new XiPaint-files to the "
  75.      "displayed directory."
  76. ))
  77.  
  78.  
  79. (set #confirm-target-lang
  80. (cat "\n\nThe available XiPaint 3.2 help-files on your hard drive will now be "
  81.      "updated. Your XiPaint 3.2 files appear "
  82.      "to be located in the \"%s\" "
  83.      "partition.\n\n"
  84.      "Is this correct?"
  85. ))
  86.  
  87. (set #confirm-target-lang-help
  88. (cat "\nThe installer has determined that your current copy of "
  89.      "Workbench is in the partition named \"%s\". Proceeding with the "
  90.      "installation will cause the XiPaint help files to be copied there. "
  91. ))
  92.  
  93. (set #which-disk-lang
  94. (cat "Where is XiPaint installed (to install the help files)? "
  95. ))
  96.  
  97.  
  98. (set #reboot-lang
  99. (cat "\nThe update of XiPaint 3.2 help files is now complete.\n\n"
  100. ))
  101.  
  102. (set #which-disk
  103. (cat "Where should the XiPaint drawer be located?"
  104. ))
  105.  
  106. (set #which-disk-help
  107. (cat "\nThis section lets you choose on which hard drive partition the "
  108.      "XiPaint 3.2 files will be installed.  "
  109.      @askdir-help
  110. ))
  111.  
  112.  
  113. (set #checking-target
  114. (cat "\n\nChecking \"%s\" for obsolete files..."
  115. ))
  116.  
  117. (set #delete-old-1
  118. (cat "Delete Automatically"
  119. ))
  120.  
  121. (set #delete-old-2
  122. (cat "Ask Before Deleting"
  123. ))
  124.  
  125. (set #deleting-obsolete
  126. (cat "\n\nDeleting obsolete files..."
  127. ))
  128.  
  129. (set #confirm-delete
  130. (cat "\n\nShould the file \"%s\" be deleted?"
  131. ))
  132.  
  133. (set #confirm-delete-help
  134. (cat "\nThe file \"%s\" is no longer "
  135.      "useful under XiPaint 3.2. You can delete the file by selecting "
  136.      "the \"Yes\" gadget, or preserve the file by selecting the \"No\" "
  137.      "gadget."
  138. ))
  139.  
  140.  
  141. (set #confirm-delete-1
  142. (cat "Yes"
  143. ))
  144.  
  145. (set #confirm-delete-2
  146. (cat "No"
  147. ))
  148.  
  149. (set #ask-xipaint
  150. (cat "\n\nPlease insert the \"XiPaint\" disk in any floppy drive."
  151. ))
  152.  
  153. (set #ask-extras
  154. (cat "\n\nPlease insert the \"XiExtras\" disk in any floppy drive."
  155. ))
  156.  
  157. (set #ask-libs
  158. (cat "\n\nPlease insert the \"XiLibs\" disk in any floppy drive."
  159. ))
  160.  
  161.  
  162. (set #which-driver
  163. (cat "Which Graphicadapter should be installed?"
  164. ))
  165.  
  166. (set #which-driver-help
  167. (cat "\nXiPaint can control many different graphicadapters. "
  168.      "These drivers are libraries that let XiPaint adapt to a given "
  169.      "graphicadapter. "
  170.      "Check the boxes of the drivers you wish "
  171.      "to have available on your system.\n\n"
  172.      @askoptions-help
  173. ))
  174.  
  175.  
  176. (set #which-language
  177. (cat "\nWhich help files should be installed?"
  178. ))
  179.  
  180. (set #which-language-help
  181. (cat "\nThe Amiga can be operated in many different "
  182.      "languages. Several files must be copied to your "
  183.      "hard drive for each language supported.\n\n"
  184.      "To reduce the amount of space consumed by the "
  185.      "language files, you can select only the "
  186.      "files of specific languages to be copied.\n\n"
  187.      "Check the boxes of the languages you wish "
  188.      "to have available on your system.\n\n"
  189.      @askoptions-help
  190. ))
  191.  
  192.  
  193. (set #xiprefs-start
  194. (cat "\nThe installation of XiPaint 3.2 is now complete.\n\n "
  195.      "XiPrefs will be startet to choose your graphic-adapter. "
  196.      "Select the \"Proceed\" to start XiPrefs.\n\n"
  197. ))
  198. (set #xiprefs-start-help
  199. (cat "XiPaint doesn't know, which display you want to "
  200.      "use. So please set the undo-memory and the display-type. "
  201.      "You can change this settings whenever you want."
  202. ))
  203.  
  204. ))
  205.  
  206.  
  207.  
  208.  
  209. ;=============================================================================
  210. ; German strings
  211.  
  212. (if (= @language "deutsch")
  213. (
  214. (set default_lang 1)
  215.  
  216.  
  217. (set #unpack
  218. (cat "Entpacke die Hilfe-Dateien ... "
  219. ))
  220.  
  221. (set #unpack2
  222. (cat "Entpacke die Xi-Libraries ... "
  223. ))
  224.  
  225. (set #multipic
  226. (cat "Kopiere die multipic.library nach libs: ... "
  227. ))
  228.  
  229. (set #vlablib
  230. (cat "Kopiere die vlab.library nach libs: ... "
  231. ))
  232.  
  233. (set #nohelp
  234. (cat "Es ist derzeit keine Hilfe vorhanden (sniff)"
  235. ))
  236.  
  237. (set #bad-kick
  238. (cat "Sie müssen Kickstart 2.0 oder höher zum Installieren von XiPaint 3.2 benutzen."
  239. ))
  240.  
  241. (set #introduction
  242. (cat "\n\nHiermit können Sie XiPaint 3.2 auf einer "
  243.      "Festplatte installieren. "
  244.      "Sie können von Grund auf neu installieren oder nachträglich "
  245.      "wählen, welche Hilfedateien auf der Festplatte zur "
  246.      "Verfügung stehen sollen."
  247. ))
  248.  
  249. (set #ask-function
  250. (cat "\n\nWählen Sie \"XiPaint 3.2 installieren\", um eine komplette "
  251.      "Installation durchzuführen, oder \"Hilfedateien aktualisieren\", um "
  252.      "andere Sprachen auf der Festplatte zur Verfügung zu stellen, "
  253.      "auf der bereits XiPaint 3.2 installiert ist."
  254. ))
  255.  
  256. (set #ask-function-1
  257. (cat "XiPaint 3.2 installieren"
  258. ))
  259.  
  260. (set #ask-function-2
  261. (cat "Hilfedateien aktualisieren"
  262. ))
  263.  
  264. (set #ask-function-help
  265. (cat "\nSie müssen auswählen, was installiert werden soll.\n\n"
  266.      "Mit \"XiPaint 3.2 installieren\" wird eine komplette Installation "
  267.      "der XiPaint 3.2 Software durchgeführt. \n "
  268.      "Der Amiga kann in vielen verschiedenen Sprachen betrieben werden. "
  269.      "Für jede verwendete Sprache müssen mehrere Dateien auf Ihre "
  270.      "Festplatte kopiert werden. Mit \"Sprachen aktualisieren\" können "
  271.      "Sie auswählen, welche Sprachen auf der Festplatte installiert "
  272.      "werden sollen, um dort zur Verfügung zu stehen. Dies dürfen Sie "
  273.      "nur wählen, wenn XiPaint 3.2 schon installiert wurde.\n\n"
  274. ))
  275.  
  276. (set #confirm-target
  277. (cat "\n\nDieses Programm installiert XiPaint 3.2 auf Ihrer Festplatte. "
  278.      "Wollen Sie die XiPaint 3.2 auf der Partition \"%s\" installiert "
  279.      "bekommen?"
  280. ))
  281.  
  282. (set #confirm-target-help
  283. (cat "Wenn Sie im angegebenen Verzeichnis XiPaint-Files updaten möchten, "
  284.      "so bejahen sie diesen Requester. "
  285. ))
  286.  
  287.  
  288. (set #confirm-target-lang
  289. (cat "\n\nDie unter XiPaint 3.2 verfügbaren Sprachen werden jetzt auf Ihrer "
  290.      "Festplatte aktualisiert. Ihre XiPaint 3.2 Datein sind "
  291.      "offenbar auf der Partition \"%s\" installiert.\n\n"
  292.      "Ist das korrekt?"
  293. ))
  294.  
  295. (set #confirm-target-lang-help
  296. (cat "\nDer Installer hat herausgefunden, daß die aktuellen "
  297.      "XiPaint-Dateien offenbar in der Partition namens \"%s\" liegen. "
  298.      "Wenn Sie die Installation einfach weiterlaufen lassen, werden die "
  299.      "Sprachendateien dorthin kopiert."
  300. ))
  301.  
  302. (set #which-disk-lang
  303. (cat "Wo ist XiPaint installiert (um die Hilfedateien zu ergänzen)? "
  304. ))
  305.  
  306.  
  307. (set #reboot-lang
  308. (cat "\nDie Aktualisierung der XiPaint 3.2 ist nun abgeschlossen.\n\n"
  309. ))
  310.  
  311. (set #which-disk
  312. (cat "Wo soll die XiPaint Schublade installiert werden?"
  313. ))
  314.  
  315. (set #which-disk-help
  316. (cat "\nHier können Sie wählen, auf welcher Festplattenpartition "
  317.      "die Dateien von XiPaint 3.2 installiert werden sollen. "
  318.      @askdir-help
  319. ))
  320.  
  321.  
  322. (set #checking-target
  323. (cat "\n\nÜberprüfen von \"%s\" auf überholte Dateien ..."
  324. ))
  325.  
  326.  
  327. (set #delete-old-1
  328. (cat "Automatisch löschen"
  329. ))
  330.  
  331. (set #delete-old-2
  332. (cat "Löschen bestätigen"
  333. ))
  334.  
  335. (set #deleting-obsolete
  336. (cat "\n\nLöschen überholter Dateien"
  337. ))
  338.  
  339. (set #confirm-delete
  340. (cat "\n\nKann die Datei \"%s\" gelöscht werden?"
  341. ))
  342.  
  343. (set #confirm-delete-help
  344. (cat "\nDie Datei "
  345.      "\"%s\" ist unter XiPaint 3.2 überholt. Sie können die Datei "
  346.      "durch Anklicken von \"Ja\" löschen oder durch Anklicken von \"Nein\" "
  347.      "erhalten."
  348. ))
  349.  
  350.  
  351.  
  352. (set #confirm-delete-1
  353. (cat "Ja"
  354. ))
  355.  
  356. (set #confirm-delete-2
  357. (cat "Nein"
  358. ))
  359.  
  360.  
  361. (set #ask-xipaint
  362. (cat "\n\nBitte legen Sie die Diskette \"XiPaint\"  "
  363.      "in ein beliebiges Diskettenlaufwerk ein."
  364. ))
  365.  
  366. (set #ask-extras
  367. (cat "\n\nBitte legen Sie die Diskette \"XiExtras\" in "
  368.      "ein beliebiges Diskettenlaufwerk ein."
  369. ))
  370.  
  371. (set #ask-libs
  372. (cat "\n\nBitte legen Sie die Diskette \"XiLibs\" in "
  373.      "ein beliebiges Diskettenlaufwerk ein."
  374. ))
  375.  
  376. (set #which-driver
  377. (cat "Welche Grafikkarten - Treiber sollen installiert werden? "
  378. ))
  379.  
  380. (set #which-driver-help
  381. (cat "\nXiPaint kann viele verschiedene Grapfikkarten ansteuern. "
  382.      "Diese dazugehörigen Treiber sind Libraries, die die jeweilige "
  383.      "Grafikkarte ansteuert. "
  384.      "Um den Platz in Grenzen zu halten, den die Treiberdateien einnehmen, "
  385.      "können Sie wählen, nur diejenigen Treiber zu installieren, die Sie "
  386.      "überhaupt verwenden können.\n\n"
  387.      "Klicken Sie einfach die Felder derjenigen Treiber an, die Sie in "
  388.      "Ihrem System verfügbar haben wollen, so daß diese Libraries mit "
  389.      "einem Häkchen markiert sind.\n\n"
  390.      @askoptions-help
  391. ))
  392.  
  393. (set #which-keymap
  394. (cat "Welche Tastaturbelegung (Keymap) soll installiert werden?"
  395. ))
  396.  
  397.  
  398. (set #which-language
  399. (cat "\nWelche Sprachen sollen installiert werden?"
  400. ))
  401.  
  402. (set #which-language-help
  403. (cat "\nDer Amiga kann in vielen verschiedenen Sprachen betrieben werden. "
  404.      "Für jede verwendete Sprache müssen mehrere Dateien auf Ihre "
  405.      "Festplatte kopiert werden.\n\n"
  406.      "Um den Platz in Grenzen zu halten, den die Sprachentreiberdateien "
  407.      "einnehmen, können Sie wählen, nur die Treiber für bestimmte "
  408.      "Sprachen zu installieren.\n\n"
  409.      "Klicken Sie einfach die Felder derjenigen Sprachen an, die Sie in "
  410.      "Ihrem System verfügbar haben wollen, so daß diese Sprachen mit "
  411.      "einem Häkchen markiert sind.\n\n"
  412.      @askoptions-help
  413. ))
  414.  
  415.  
  416. (set #xiprefs-start
  417. (cat "Die Installation der XiPaint 3.2 ist nun abgeschlossen.\n\n"
  418.      "Um die richtigen Treiber für Ihre Grafikkarte einstellen zu können "
  419.      "wird nun XiPrefs gestartet. Wählen Sie die gewünschte Grafikkarte und "
  420.      "Displaymodus aus.\n"
  421. ))
  422. (set #xiprefs-start-help
  423. (cat "XiPaint benötigt noch die Display-Einstellungen Ihrer Grafikkarte. "
  424.      "Daher wird nun XiPrefs gestartet. Stellen Sie die gewünschte Auflösung "
  425.      "und den gewünschten Undo-Speicher ein. Sie können jederzeit Änderungen "
  426.      "mit XiPrefs vornehmen.\n"
  427. ))
  428.  
  429. ))
  430.  
  431.  
  432.  
  433.  
  434. ;=============================================================================
  435. ; procedure to copy the language drivers and catalogs
  436.  
  437. (procedure DOLOCALE
  438. (
  439.     (set #xiprefs "XiPrefs")    ; for initialisation
  440.     (set n 0)
  441.     (while (set language (select n "deutsch"
  442.                                    "english"
  443.                                    "italiano"
  444.                                    ""
  445.                          )
  446.            )
  447.     (
  448.         (if (IN lang n)
  449.         (
  450.           (if (= language "deutsch")
  451.           (
  452.             (set #xiprefs "XiPrefs") 
  453.             (makedir (tackon target "hilfe"))
  454.             (set mycbx (cat "lhx x 68040/hilfe/hilfe.lha \"" (tackon target "hilfe/") "\""))
  455.           ))
  456.           (if (= language "english")
  457.           (
  458.             (set #xiprefs "XiPrefs_E")
  459.             (makedir (tackon target "help"))
  460.             (set mycbx (cat "lhx x 68040/help/help.lha \"" (tackon target "help/") "\""))
  461.           ))
  462.           (if (= language "italiano")
  463.           (
  464.             (set #xiprefs "XiPrefs_E")
  465.             (makedir (tackon target "aiuto"))
  466.             (set mycbx (cat "lhx x 68040/aiuto/aiuto.lha \"" (tackon target "aiuto/") "\""))
  467.           ))
  468.             (debug mycbx)
  469.             (working #unpack)
  470.             ( run mycbx)
  471.             (set mycbx "")
  472.  
  473.         )
  474.         )
  475.         (set n (+ n 1))
  476.     ))
  477. ))
  478.  
  479.  
  480. ;=============================================================================
  481. ; Check whether this system is operating with at least Kickstart 2.04 (V37).
  482. ; Otherwise refuse any further action! For lature usage this will remember
  483. ; the Kickstart and the Workbench Versions in the variables kickVersion and
  484. ; wbVersion.
  485.  
  486. (set kickVersion (shiftright (getversion) 16))
  487. (if (< kickVersion 37)
  488.    (
  489.    (message #bad-kick)
  490.    (exit (quiet))
  491.    )
  492. )
  493.  
  494. ;
  495.  
  496. ;=============================================================================
  497. ; do a bit of set up...
  498.  
  499. (set sourcePath (expandpath (pathonly @icon)))
  500.  
  501. ; copy readme to ram for later
  502. ;
  503. ;(copyfiles (source (cat (tackon sourcePath "readme"))) (dest "ram:"))
  504.  
  505. (set sourcePath (tackon sourcePath "XiPaint"))  ; XiPaint - Things will be in the XiPaint Drawer
  506. (set old_xipaint (@default-dest))
  507. ;=============================================================================
  508. ; what do you want to do?
  509.  
  510. (user 2)
  511.  
  512. (message #introduction)
  513.  
  514. (if (askbool (prompt #ask-function)
  515.              (help #ask-function-help)
  516.              (choices #ask-function-1 #ask-function-2)
  517.              (default 0)
  518.     )
  519. (
  520.  
  521. ;******************************************************************
  522. ;******************* FULL INSTALL *********************************
  523. ;******************************************************************
  524.  
  525. ;=============================================================================
  526. ; say hi!
  527.  
  528. (user 0)
  529. (welcome)
  530. (set old_level @user-level)
  531.  
  532. ;=============================================================================
  533. ; get target directory where update is to be installed
  534. (user 2)
  535. (if (= (strlen old_xipaint) 0)
  536. (
  537.     (user 2)
  538.     (set target (askdir (prompt #which-disk)
  539.                         (help #which-disk-help)
  540.                         (default "")
  541.                         (disk)
  542.                 )
  543.     )
  544.     (user old_level)
  545. )
  546. (
  547.     (if (askbool (prompt (#confirm-target old_xipaint))
  548.                  (help (#confirm-target-help old_xipaint))
  549.                  (default 1)
  550.         )
  551.     (
  552.         (set target old_xipaint)
  553.     )
  554.     (
  555.         (set target (askdir (prompt #which-disk)
  556.                             (help #which-disk-help)
  557.                             (default old_xipaint)
  558.                             (disk)
  559.                     )
  560.         )
  561.     ))
  562. ))
  563.  
  564. (set @default-dest target)
  565. (user old_level)
  566. ;=============================================================================
  567. ; make some new drawers
  568.  
  569. (set target (tackon target "XiPaint"))
  570. (set @default-dest target)
  571. (makedir target (infos))
  572.  
  573. ;=============================================================================
  574. ; looking for multipic.library  (Very important)
  575. (copylib (prompt #multipic) (source (set sourcePath "libs/multipic.library")) (dest "libs:") (confirm)
  576.          (help #nohelp))
  577. (rename "libs:multipic.library" "libs:multipic.library")
  578.  
  579.  
  580. ;=============================================================================
  581. ; look for the cpu
  582.  
  583. (set mycpu (database "cpu"))
  584.  
  585. (if (= mycpu "68000")
  586. (
  587.   ((set sourcePath "68000"))
  588. )
  589. )
  590.  
  591. (if (= mycpu "68010")
  592. (
  593.   ((set sourcePath "68000"))
  594. )
  595. )
  596.  
  597. (if (= mycpu "68040")
  598. (
  599.   ((set sourcePath "68040"))
  600. )
  601. )
  602.  
  603. (if (= mycpu "68020")
  604. (
  605.   ((set sourcePath "68020+"))
  606. )
  607. )
  608.  
  609. (if (= mycpu "68030")
  610. (
  611.   ((set sourcePath "68020+"))
  612. )
  613. )
  614.  
  615. (complete 2)
  616.  
  617. (makedir (tackon target "languages"))
  618. (makedir (tackon target "makros"))
  619. (makedir (tackon target "pictures"))
  620. (makedir (tackon target "brush"))
  621. (makedir (tackon target "modules"))
  622. (makedir (tackon target "libs"))
  623.  
  624. (complete 5)
  625. (copyfiles (source sourcePath) (dest target )(pattern "#?")(files) )
  626. (copyfiles (source sourcePath) (dest target )(pattern "#?.info") )
  627.  
  628. (complete 20)
  629. (copyfiles (source (tackon sourcePath "modules"))   (dest (tackon target "modules"))(all) )
  630. (complete 25)
  631. (copyfiles (source (tackon sourcePath "pictures"))  (dest (tackon target "pictures"))(all) )
  632. (complete 30)
  633. ; (copyfiles (source (tackon sourcePath "libs"))      (dest (tackon target "libs"))(all) )
  634.   (set mycbx (cat "lhx x " sourcePath "/libs/libs.lha " target "/libs/" ))
  635.   (run mycbx)
  636.  
  637. (complete 60)
  638. (copyfiles (source (tackon sourcePath "brush"))     (dest (tackon target "brush"))(all) )
  639. (complete 70)
  640. (copyfiles (source (tackon sourcePath "languages")) (dest (tackon target "languages"))(all) )
  641. (complete 75)
  642. (copyfiles (source (tackon sourcePath "makros"))    (dest (tackon target "makros"))(all) )
  643. (complete 80)
  644.  
  645.  
  646.  
  647.  
  648. ;=============================================================================
  649. ; now look for the languages 
  650. (user 2)
  651. (set lang (askoptions (prompt #which-language)
  652.                       (help #which-language-help)
  653.                       (choices "Deutsch" "English" "Italiano")
  654.                       (default default_lang)
  655.           )
  656. )
  657. (DOLOCALE)
  658. (user old_level)
  659. (complete 90)
  660.  
  661. (debug "Prefs-Starten")
  662.  
  663. (user 2)
  664. (if (askbool (prompt (#xiprefs-start))
  665.              (help (#xiprefs-start-help))
  666.              (default 1)
  667.     )
  668. (
  669.     (run (cat "\"" (tackon target #xiprefs) "\""))
  670. )
  671. )
  672. (complete 100)
  673. (user old_level)
  674.  
  675. )
  676. (
  677. ;******************************************************************
  678. ;******************** LANGUAGE UPDATE *****************************
  679. ;******************************************************************
  680.  
  681. ;=============================================================================
  682. ; get target directory where update is to be installed
  683.  
  684.  
  685. (if (askbool (prompt (#confirm-target-lang old_xipaint))
  686.              (help (#confirm-target-lang-help old_xipaint))
  687.              (default 1)
  688.     )
  689. (
  690.     (set target old_xipaint)
  691. )
  692. (
  693.     (set target (askdir (prompt #which-disk-lang)
  694.                         (help #which-disk-lang-help)
  695.                         (default old_xipaint)
  696.                         (disk)
  697.                 )
  698.     )
  699. ))
  700.  
  701. (set @default-dest target)
  702.  
  703. (set lang (askoptions (prompt #which-language)
  704.                       (help #which-language-help)
  705.                       (choices "Deutsch" "English" "Italiano")
  706.                       (default default_lang)
  707.           )
  708. )
  709.  
  710. (DOLOCALE)
  711.  
  712. (complete 100)
  713.  
  714.  
  715. ))
  716.  
  717.