home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Painting / DPAINT4-1.DMS / in.adf / install-hd < prev    next >
Encoding:
Text File  |  1993-01-11  |  18.0 KB  |  626 lines
  1. ; $Id: Install-HD,v 1.12 92/11/09 13:24:14 djh Stable $
  2. ; This is the hard-disk install script for DeluxePaint AGA -djh
  3. ;
  4.  
  5. (set osversion (/ (getversion) 65536))
  6. (if (< osversion 37)
  7.     (abort    "DeluxePaint benötigt AmigaDOS 2.04 oder höher.")
  8. )
  9.  
  10. (set localized (> osversion 38))
  11.  
  12. ;(if (not localized)
  13.     (askbool (prompt 
  14.              (cat "Gewisse Installationsoptionen wurden nicht "
  15.                   "übersetzt.\n\n"
  16.  
  17.              "Für Übersetzungen der englischen Optionen klicken "
  18.              "Sie auf die Hilfe-Schaltfläche weiter unten.\n\n"
  19.  
  20.              "Möchten Sie weiterfahren?"
  21.              ))
  22.              (help "")
  23.              (default 1)
  24.              )
  25. ;)
  26.  
  27. ;(if (not localized)
  28.   (welcome "Willkommen beim DPaint Installations-Utility. "
  29.          "Wählen Sie das Verfahren je nachem, wie "
  30.          "gut Sie den Amiga kennen.\n\n"
  31.  
  32.          "Hilfe zum Installationsverfahren\n\n"
  33.          "    Sie müssen eine Benutzerebene wählen, um mit der "
  34.          "Installation fortzufahren. Die Ebenen sind:\n\n"
  35.  
  36.          "    \"NOVICE\" = NEULING: Bei diesem Verfahren erfolgt die "
  37.          "Installation vollautomatisch. Der Benutzer braucht keine "
  38.          "Entscheidungen zu treffen. Es empfiehlt sich jedoch "
  39.          "nur für Amiga-Rechner, die nicht in irgendeiner Weise "
  40.          "modifiziert wurden, also nur für Rechner in Grundausstattung. "
  41.          "Möglicherweise müssen Disketten ausgetauscht und ein paar Eingaben "
  42.          "gemacht werden.\n\n"
  43.  
  44.          "    \"INTERMEDIATE\" = FORTGESCHRITTEN: Hier kann der Benutzer die wichtigen "
  45.          "Entscheidungen treffen, z.B. wo die Anwendung installiert werden soll. "
  46.          "Details wie das Kopieren von Dateien, das Anlegen von Verzeichnissen, "
  47.          "besorgt das Installations-Utility jedoch selbst.\n\n"
  48.  
  49.          "    \"EXPERT\" = EXPERTE: Hier werden Sie bei jedem Schritt um "
  50.          "Bestätigung gebeten (in manchen Fällen sind mehrere "
  51.          "Schritte zu einem Schritt zusammengefaßt). Außerdem "
  52.          "können Sie bestimmen, wo die einzelnen Komponenten "
  53.          "installiert werden, und im unteren Bereich gibt es "
  54.          "mehrere Schaltflächen:\n\n"
  55.  
  56.          "    \"Proceed\" = \"Weiter\" bedeutet, daß eine Benutzerebene gewählt "
  57.          "wurde und mit der Installation weitergefahren werden "
  58.          "kann.\n"
  59.          "    \"About\" = \"Über\" liefert Informationen über das "
  60.          "Installationsprogramm, Copyright und Versions-Nr., "
  61.          "Verfasser u.ä.\n"
  62.          "    \"Abort\" = \"Abbrechen\" bedeutet, daß Sie Ihre Meinung geändert "
  63.          "haben und die Anwendung im Moment nicht durchführen wollen. "
  64.          "    \"Help...\" = \"Hilfe....\" blendet diesen Text ein.\n\n"
  65. ;
  66. ; Note the following should really be assigned to @asksettings-help 
  67. ; or some other such variable; unfortunately such a variable does not
  68. ; seem to exist.
  69. ;
  70.  
  71.          (cat  
  72.            "Hilfe mit weiteren Einstellungen\n\n"
  73.            "Erläuterungen:\n"
  74.            "    \"Install For Real\" = \"Richtige Installation:\" "
  75.            "Das Installationsprogramm nimmt die Installation vor.\n"
  76.            "    \"Pretend to Install\" = \"Probe-Installation:\" "
  77.            "Das Installatinsprogramm durchläuft alle Schritte, macht "
  78.            "jedoch keine endgültigen Änderungen. Auf diese Weise können "
  79.            "Sie sich eine "Vorschau" der Installation geben lassen. "
  80.            "Sie können diese Option auch zusammen mit der \"Log-Datei\" "
  81.            "benutzen, um ein Protokoll der "Probe" zu bekommen.\n"
  82.            "    \"Printer\" = \"Drucker\" - dadurch werden alle "
  83.            "Installationsschritte über den Drucker ausgegeben.\n"
  84.            "    \"Log File\" = \"Log-Datei\" - dadurch werden alle "
  85.            "Installationsschritte in eine Log-Datei geschrieben. "
  86.            "Zum Schluß werden Sie informiert, wo sich diese Datei "
  87.            "befindet. Sie kann mit einem Texteditor gelesen werden. "
  88.            "    \"None\" = \"Nein\" - es werden keinerlei Aufzeichnungen "
  89.            "vorgenommen.\n\n\n"
  90.          )
  91.    )
  92. ;)
  93.  
  94.  
  95.  
  96. (if (not localized)
  97.   (set @askdisk-help 
  98.      "Zum Weiterfahren richtige Disk einlegen"
  99.   )
  100. )
  101.  
  102. (if (not localized)
  103.   (set @askdir-help
  104.      (cat "Zum Wechseln des Verzeichnisses können Sie entweder "
  105.           "einen anderen Namen in das Textfeld eingeben oder "
  106.           "einen Namen in der Liste klicken.\n"
  107.           "    Mit der Schaltfläche \"Oberverzeichnis\" können Sie "
  108.           "sich das Verzeichnis oberhalb des aktuellen ansehen.\n"
  109.           "    Die Schaltfläche \"Verzeichnis zeigen\" zeigt eine "
  110.           "Liste aller Laufwerke Ihres Systems. Durch Anklicken "
  111.           "eines Namens können Sie sich den Inhalt des "
  112.           "betreffenden Laufwerks anzeigen.\n"
  113.           "    Die Schaltfläche \"Neues Verzeichnis\" erstellt ein "
  114.           "neues Verzeichnis. Es wird im aktuell angezeigten "
  115.           "Verzeichnis abgelegt. "
  116.           "    Die Schaltfläche \"Weiter\" bedeutet, daß Sie mit dem "
  117.           "ausgewählten Verzeichnis einverstanden sind. Die "
  118.           "Schaltfläche "Abbrechen" stoppt die Installation. "
  119.           "Es werden keine weiteren Änderungen vorgenommen. "
  120.           "Hilfe blendet diesen Text ein.\n\n "
  121.      )
  122.   )
  123. )
  124.  
  125.  
  126. (if (not localized)
  127.   (set @makedir-help 
  128.      (cat "Neues Verzeichnis...\n\n"
  129.           "Geben Sie den vollständigen Pfad des neuen "
  130.           "Verzeichnisses ein. Wenn Sie nichts anderes "
  131.           "vorsehen, wird automatisch ein Icon dafür erstellt."
  132.  
  133.           "\"Create Icon for drawer\" = \"Verzeichnis-Icon\"\n\n"
  134.      )
  135.   )
  136. )
  137.  
  138. (if (not localized)
  139.     (set ASKBOOL-HELP "JA = YES, NEIN = NO")
  140.     (set ASKBOOL-HELP "")
  141. )
  142.  
  143. (set DISKPROMPT   "Bitte die Diskette einlegen mit dem Namen \"%s\"." )
  144. ;
  145.  
  146. (set @default-dest "Work:")
  147.  
  148. (set DISK_1n "DPaintIV Installationsdisk 1")
  149. (set DISK_2n "DPaintIV Installationsdisk 2")
  150.  
  151. (set DISK_1 (cat DISK_1n ":"))
  152. (set DISK_2 (cat DISK_2n ":"))
  153.  
  154. (set ASSIGN "DPaintIV")
  155. (set ASSIGNSIG "BootSig")
  156. (set PROGNAME "DPaint")
  157. (set UNPACKER "lharc")
  158. (set PACKWIN "NIL:")
  159.  
  160. (set FONTDEF_n "Fonts")
  161. (set FONTDEF (cat FONTDEF_n ":"))
  162.  
  163. (set RUNHELP
  164.   (cat
  165.     "Die Dekomprimierung erfolgt mit LHARC. Bei dieser Methode "
  166.       "werden viele Dateien aus einer Datei entnommen."
  167.   )
  168. )
  169.  
  170. ;Standard file expansion procedure.
  171. ;  DiskE : The disk containing the file to be expanded ("Disk1:")
  172. ;  DestE : The expansion volue or directory            ("Work:DPaintIV")
  173. ;  FileE : The basename of the archive file            ("DPaint")
  174. (procedure expand_module
  175.     (set tmp (cat FileE ".LZH"))
  176.     (working ("Dekomprimierung der Datei \"%s\"" tmp))
  177.  
  178.     (run
  179.         ("%s -mn x \"%s%s\" \"%s/\" > %s" UNPACKER DiskE tmp DestE PACKWIN)
  180.         (help RUNHELP)
  181.         (prompt ("Dekomprimierung der Datei \"%s\"" tmp))
  182.         (confirm)
  183.     )
  184.  
  185. ; If we were only expanding single files at a time,
  186. ; we could have a sanity check such as this:
  187. ;    (if
  188. ;        (= 0 (exists (tackon DestE FileE)))
  189. ;            (abort ("Bei der Dateidekomprimierung ist ein Fehler aufgetreten. \%s.LZH\"! Die Installation kann nicht fortegeführt werden." FileE))
  190. ;    )
  191. )
  192.  
  193. ;Standard packed directory creation/expansion procedure (with packed icons)
  194. ;  DiskE        : The disk containing the file to be expanded ("Disk1:")
  195. ;  DestE        : Where directory should go ("Work:DPaintIV")
  196. ;  FileE        : Name of new directory and base archive name ("Colors")
  197. (procedure expand_icondir
  198. ;    (debug ("DiskE=%s, DestE=%s, FileE=%s\n" DiskE DestE FileE))
  199.  
  200.     (set basename FileE)                    ; basename = "Colors"
  201.     (set FileE (cat FileE "_dir"))        ; FileE    = "Colors_dir"
  202.     (expand_module)
  203.  
  204.         (set tmp2 (tackon DestE FileE))        ; tmp2=Work:DPaintIV/Colors_dir
  205.         (set tmp3 (tackon tmp2 basename))       ; tmp3=Work:DPaintIV/Colors_dir/Colors
  206.         (set tmp4 (tackon DestE basename))    ; tmp4=Work:DPaintIV/Colors
  207.         (set tmp5 (cat tmp4 ".info"))        ; tmp5=Work:DPaintIV/Colors.info
  208.         (set tmp6 (cat tmp3 ".info"))        ; tmp6=Work:DPaintIV/Colors_dir/Colors.info
  209.  
  210. ;       (debug ("tmp2=%s, tmp3=%s, tmp4=%s" tmp2 tmp3 tmp4))
  211.  
  212. ; Installer can't copy a directory tree to a directory
  213. ; with a different name. #@$!
  214.         (if (exists tmp3)
  215.         (run
  216.             ("copy \"%s\" \"%s\" all quiet" tmp3 tmp4)
  217.         )
  218.     )
  219.  
  220. ; Copy over the destination directory's .info file
  221.         (if (exists tmp6)
  222.         (run
  223.             ("copy \"%s\" \"%s\" quiet" tmp6 tmp5)
  224.         )
  225.     )
  226.  
  227. ; Delete the temporary directory. (Installer can't delete directory trees)
  228.     (run
  229.         ("delete \"%s\" all quiet" tmp2)
  230.     )
  231.  
  232. )
  233.  
  234. ;Fonts expansion procedure. Creates fonts in the DPaint install
  235. ;  directory, and optionally copies them over to FONTS: as well.
  236. (procedure expand_fonts
  237.     (set DiskE DISK_1)          ; e.g, "DPaintIV Install Disk 1:"
  238.     (set FileE "Fonts")        ; basename of "Fonts_dir.LZH"
  239.         (set DestE @default-dest)    ; ex, "Work:DPaintIV" (initially)
  240.  
  241.     (expand_icondir)
  242.  
  243. ;It's almost impossible to able to handle all the variations between
  244. ;decompressing something into a directory, and an assignment (like FONTS:)
  245. ;that ends in a colon given the Installer's limited string-handling
  246. ;ability. It makes life much easier to just install fonts into the
  247. ;DPaint directory and then copy them over into FONTS: if needed.
  248.  
  249.     (set tmp (tackon @default-dest "Fonts"))
  250.  
  251.     (if (= font_dir FONTDEF)
  252.         (copyfiles
  253.             (prompt "")
  254.             (help "")
  255.             (source tmp)
  256.             (dest font_dir)
  257.             (all)
  258.         )
  259.  
  260.         ;We could even delete the default_dir's duplicate
  261.         ;copy of the fonts here, but the Installer's delete
  262.         ;can't delete directory trees. Punt.
  263.     )
  264. )
  265.  
  266. (procedure copy_readme
  267.     (askdisk
  268.         (prompt (DISKPROMPT DISK_1n))
  269.         (help @askdisk-help)
  270.         (dest DISK_1n)
  271.     )
  272.  
  273.     (copyfiles
  274.         (prompt "")
  275.         (help "")
  276.         (source DISK_1
  277.         (pattern "Liesmich#?"))
  278.         (dest @default-dest)
  279.     )
  280. )
  281.  
  282. ; Make sure the user isn't booting from the Install disk. This
  283. ; would screw up fonts: assignments, and prevent some users
  284. ; from seeing their partitions
  285.  
  286. (if (getassign ASSIGNSIG "a")
  287.     (abort
  288.         "Booten von der Installationsdiskette und Starten von "
  289.             "HD-Install ist nicht gestattet. Bitte vor dem Betrieb von "
  290.             "HD-Install von der Festplatte booten."
  291.     )
  292. )
  293.  
  294. (set loadchoices
  295.     (askoptions
  296.         (prompt "Welche <options> möchten Sie installieren?")
  297.                 (help "Hilfe bei der Optionsauswahl\n\n"
  298.  
  299.                       "  Für die Installation des gesamten Programmpakets sind "
  300.                       "rund 2MB erforderlich.\n\n"
  301.  
  302.                       "    Das Programm installiert das Minimum an empfohlenen "
  303.                       "Dateien zum Betrieb von DeluxePaint, d.h. das "
  304.                       "Programm selbst, die Schriften und verschiedene "
  305.                       "Schablonen.\n\n"
  306.  
  307.                       "    Der \"Player\" ist ein autonomes Utility zum Abspielen "
  308.                       "von DeluxePaint-Grafiken und Animationen, das für "
  309.                       "nicht-gewerbliche Zwecke frei vergeben werden kann.\n\n"
  310.  
  311.                       "    \"Karafonts\" sind Farbschriften zur Benutzung mit "
  312.                       "Amiga Farbschriftprogrammen wie DeluxePaint.\n\n"
  313.  
  314.                       "    \"Pictures\" sind ladbare Grafiken in vielen Farben und "
  315.                       "Auflösungen, eigens zu Ihrem Vergnügen.\n\n"
  316.  
  317.                       "    \"Brushes\" sind Bildkomponenten, die als Ausgangspunkt "
  318.                       "für eigene Bilder nützlich sind. In den obigen Bildern "
  319.                       "wurden mehrere davon verwendet.\n\n"
  320.  
  321.                       "    \"Animations\" sind ladbare Animatinen, wie oben.\n\n"
  322.  
  323.                       "    \"Anim Brushes\" sind Animationskomponenten, die als "
  324.                       "Ausgangspunkt für eigene Animationen nützlich sind."
  325.         )
  326.         (choices
  327.             "Program      (438K)"
  328.             "Player       (52K)"
  329.             "KaraFonts    (195K)"
  330.             "Brushes      (171K)"
  331.             "Anim Brushes (141K)"
  332.             "Animations   (562K)"
  333.             "Pictures     (566K)"
  334.         )
  335.         (default 127)
  336.     )
  337. )
  338.  
  339. ; see if this is really an update
  340.  
  341. (set dpaint_dest (getassign ASSIGN "a"))
  342.  
  343. ; if update, be sure they want program in same place
  344.  
  345. (if dpaint_dest
  346.     (if    (not
  347.             (askbool
  348.                 (prompt "Die Kopie von DeluxePaint IV befindet sich offenbar in der Schublade mit dem Namen \""
  349.                     dpaint_dest
  350.                     "\". Soll das Update in dieser Schublade installiert werden?"
  351.                 )
  352.                 (help
  353.                                        "Das Installationsprogramm hat festgestellt, daß "
  354.                                        "DeluxePaint bereits auf Ihrem System installiert "
  355.                                        "ist. Wenn dies nicht richtig ist oder Sie die "
  356.                                        "neueste Version woanders installieren möchten, "
  357.                                        "wählen Sie NEIN . Andernfalls JA.\n\n"
  358.                                        ASKBOOL-HELP
  359.                 )
  360.                 (default 1)
  361.             )
  362.         )
  363.  
  364.         (set dpaint_dest        ; if user wants in different place
  365.             (tackon
  366.                 (askdir
  367.                     (prompt "Wo soll DeluxePaint installiert werden?")
  368.                     (help @askdir-help)
  369.                     (default @default-dest)
  370.                 )
  371.                 ASSIGN
  372.             )
  373.         )
  374.     )
  375.  
  376. ; Update not found, so get a location for program
  377.  
  378.     (set dpaint_dest
  379.         (tackon
  380.             (askdir
  381.                 (prompt "Bitte das gewünschte Verzeichnis auswählen, "
  382.                     "in dem DeluxePaint und/oder die Dateien der "
  383.                     "Unterstützungssoftware installiert werden soll(en)."
  384.                 )
  385.                 (help    "Das Installatiosprogramm erstellt automatisch ein "
  386.                         "neues Unterverzeichnis DPaintIV am gewählten Ort. "
  387.                         "Das Verzeichnis enthält evtl. weitere Verzeichnisse "
  388.                         "wie eta \"Brush\", \"Colors\", oder \"KaraFonts\"."
  389.                 )
  390.                 (default @default-dest)
  391.             )
  392.             ASSIGN
  393.         )
  394.     )
  395. )
  396.  
  397. ; Exit if user didn't choose anything
  398. (if (= loadchoices 0) (exit))
  399.  
  400. ; OK, we know where we'll be installing, so let's make it permanent
  401.  
  402. (set @default-dest dpaint_dest)
  403.  
  404. ; make sure DPaint drawer & icon are there if we're to copy
  405. ; anything, and cache lharc to RAM: while we're at it
  406.  
  407. (askdisk
  408.     (prompt (DISKPROMPT DISK_1n))
  409.     (help @askdisk-help)
  410.     (dest DISK_1n)
  411. )
  412.  
  413. (copyfiles
  414.     (prompt "")
  415.     (help "")
  416.     (source (tackon DISK_1 UNPACKER))
  417.     (dest "ram:")
  418. )
  419.  
  420. (set UNPACKER (tackon "ram:" UNPACKER))
  421.  
  422. ; Create the DPaintIV directory, but use our supplied icon
  423. ; whose window limits are suitably set. Use copy instead of
  424. ; copyfiles, because copyfiles won't perform a file-file copy
  425. ; without making a directory for the destination first!
  426.  
  427. (makedir @default-dest)    ;OK if already present
  428.  
  429. (run
  430.     ("copy \"%st/%s.info\" \"%s.info\"" DISK_1 ASSIGN @default-dest)
  431. )
  432.  
  433. ; If fonts are being installed, asked where the user would like 'em
  434.  
  435. (if    (IN loadchoices 0 1)
  436.     (
  437.         (set answer1
  438.             (askchoice
  439.                 (prompt "Wo sollen die Fonts von DeluxePaint installiert werden?")
  440.                 (help    "Dieses Font ist für den problemlosen Betrieb von "
  441.                                         "DeluxePaint erforderlich."
  442.                 )
  443.                 (choices "FONTS: drawer" "DeluxePaint's drawer")
  444.                 (default 0)
  445.             )
  446.         )
  447.  
  448.         (if (= answer1 0)
  449.             (set font_dir FONTDEF)
  450.             (set font_dir @default-dest)
  451.         )
  452.     )
  453. )
  454.  
  455. ; copy over the program files
  456.  
  457. (if    (IN loadchoices 0)
  458.         (
  459.                         (copy_readme)
  460.                         (expand_fonts)
  461.  
  462.                         (set DiskE DISK_1)
  463.                         (set DestE @default-dest)
  464.                         (set FileE "DPaint")
  465.                         (expand_module)
  466.  
  467.             (set FileE "Colors")
  468.             (expand_icondir)
  469.  
  470.             (set FileE "Move")
  471.             (expand_icondir)
  472.  
  473.             (set FileE "2.0Icons")
  474.             (expand_icondir)
  475.         )
  476. )
  477.  
  478. ; copy over the Player utility
  479.  
  480. (if    (IN loadchoices 1)
  481.         (
  482.                         (copy_readme)
  483.             (expand_fonts)
  484.  
  485.                         (set DestE @default-dest)
  486.                         (set FileE "Player")
  487.                         (expand_module)
  488.  
  489.             (set FileE "2.0Icons")
  490.             (expand_icondir)
  491.         )
  492. )
  493.  
  494. ; copy over the KaraFonts files
  495.  
  496. (if    (IN loadchoices 2)
  497.         (
  498.             (askdisk
  499.                 (prompt (DISKPROMPT DISK_1n))
  500.                 (help @askdisk-help)
  501.                 (dest DISK_1n)
  502.             )
  503.  
  504.                         (set DiskE DISK_1)
  505.                         (set FileE "KaraFonts")
  506.                         (expand_icondir)
  507.         )
  508. )
  509.  
  510. ; copy over the Brush files
  511.  
  512. (if    (IN loadchoices 3)
  513.         (
  514.             (askdisk
  515.                 (prompt (DISKPROMPT DISK_2n))
  516.                 (help @askdisk-help)
  517.                 (dest DISK_1n)
  518.             )
  519.  
  520.                         (set DiskE DISK_1)
  521.                         (set FileE "Brush")
  522.                         (expand_icondir)
  523.         )
  524. )
  525.  
  526.  
  527. ; copy over the AnimBrush files
  528.  
  529. (if    (IN loadchoices 4)
  530.         (
  531.             (askdisk
  532.                 (prompt (DISKPROMPT DISK_2n))
  533.                 (help @askdisk-help)
  534.                 (dest DISK_1n)
  535.             )
  536.  
  537.                         (set DiskE DISK_1)
  538.                         (set FileE "AnimBrush")
  539.                         (expand_icondir)
  540.         )
  541. )
  542.  
  543. ; copy over the Anim files
  544.  
  545. (if    (IN loadchoices 5)
  546.         (
  547.             (askdisk
  548.                 (prompt (DISKPROMPT DISK_2n))
  549.                 (help @askdisk-help)
  550.                 (dest DISK_2n)
  551.             )
  552.  
  553.                         (set DiskE DISK_2)
  554.                         (set FileE "Anim")
  555.                         (expand_icondir)
  556.         )
  557. )
  558.  
  559. ; copy over the Picture files
  560.  
  561. (if    (IN loadchoices 6)
  562.         (
  563.             (askdisk
  564.                 (prompt (DISKPROMPT DISK_2n))
  565.                 (help @askdisk-help)
  566.                 (dest DISK_2n)
  567.             )
  568.  
  569.                         (set DiskE DISK_2)
  570.                         (set FileE "Picture")
  571.                         (expand_icondir)
  572.  
  573.                         (set FileE "Picture2")
  574.                         (expand_icondir)
  575.         )
  576. )
  577.  
  578. ; Install "DPaintIV:" to the user's startup
  579.  
  580. (if (exists "S:User-Startup")
  581.     (
  582.         (startup
  583.             "DeluxePaint"
  584.             (prompt ("Ergänzen einer %s:-Zuweisung zu \"S:user-startup\"?" ASSIGN))
  585.             (help
  586.                 ("JA wählen, um eine %s-Zuweisung zur " ASSIGN)
  587.                 "User-startup-Datei hinzuzufügen, wodurch für DPaint "
  588.                 "eine Alternative zum Auffinden von Unterstützungsdateien "
  589.                 "wie etwa Fonts erstellt wird.\n\n"
  590.                 @startup-help
  591.                 )
  592.             (command ("Assign %s: %s" ASSIGN @default-dest))
  593.         )
  594.     )
  595. )
  596.  
  597. ;remove the cached LHARC program
  598. (delete UNPACKER)
  599.  
  600. ; Ask if the user would like to register
  601. ; his/herself by running the main program
  602.  
  603. (if    (IN loadchoices 0)
  604.     (if    (askbool
  605.             (prompt "Wollen Sie DeluxePaint jetzt starten und Ihre "
  606.                                 "Kopie mit Ihren persönlichen Daten versehen?")
  607.             (help
  608.                 "DeluxePaint muß bei der ersten Verwendung mit den persönlichen "
  609.                 "Daten des Anwenders versehen werden. Sie können DeluxePaint auch "
  610.                 "später laufen lassen, müssen dann aber erst die Daten eingeben.\n\n"
  611.                                 ASKBOOL-HELP
  612.             )
  613.             (default 1)
  614.         )
  615.  
  616.         (run
  617.             ("run >NIL: <NIL: \"%s\"" (tackon @default-dest PROGNAME))
  618.             (help RUNHELP)
  619.             (prompt "Starten von DeluxePaint")
  620.             (confirm)
  621.         )
  622.     )
  623. )
  624.  
  625. (exit)
  626.