;
; $VER: IOBlix parallel port zip installation 1.4 (9.11.98)
;
; Copyright (c) 1998 Thore Böckelmann and RBM Computertechnik
;

;****************************************************************************
;
; English texts
;
(if (not (= @language "deutsch"))
    (
        (set #bad-kick      "You must have AmigaOS 2.0 (V37) or newer to be able to use the IOBlix I/O board.")
        (set #bad-cpu       "You must have at least an MC68020 to use the IOBlix software.")
        (set #noparmodule   (cat "You have no IOBlix1200 parallel module installed! "
                                 "Please install the module first, before you install the software!"))
        (set #intro         (cat "\n"
                                 "Now you can install the necessary drivers for a ZIP drive connected to IOBlix' parallel port."
                                 "Drivers for FFS- and PC-formatted ZIP disks will be installed."
                                 "\n"
                                 "\n"
                                 "Do you want to install the drivers now?"))
        (set #selectdevs    "\nWhere to install the device drivers?\n")
        (set #copyzipdev    "\nCopying ioblixzip.device...\n")
        (set #copydosdriver "\nCopying DOSDrivers...\n")
        (set #zipquery      (cat "Do want to install drivers for a "
                                 "parallel port ZIP drive?"))
        (set #zipstart      "Do you want the ZIP driver to be started on bootup?")
        (set #zipinfo       (cat "The driver PZIP0: is meant for FFS formatted ZIP disks with 512 bytes blocksize,\n"
                                 "and the driver PZIPC: is meant for PC formatted ZIP disks. This requires CrossDOS to be installed."))
    )
)

;****************************************************************************
;
; Deutsche Texte
;
(if (= @language "deutsch")
    (
        (set #bad-kick      "Sie müssen AmigaOS 2.0 (V37) oder höher installieren, um die IOBlix-Karte zu benutzen.")
        (set #bad-cpu       "Sie brauchen mindestens einen MC68020, um die IOBlix-Software zu benutzen.")
        (set #noparmodule   (cat "Sie haben kein IOBlix1200 Parallel-Modul in Ihrem Rechner installiert! "
                                 "Bitte bauen Sie erst das Modul ein, bevor Sie die Software installieren!"))
        (set #intro         (cat "\n"
                                 "Sie können jetzt die nötigen Treiber für ein ZIP Laufwerk am Parallelport der IOBlix-Karte "
                                 "installieren. Es werden Treiber für FFS- und PC-formatierte Medien installiert."
                                 "\n"
                                 "\n"
                                 "Wollen Sie die Treiber jetzt installieren?"))
        (set #selectdevs    "\nWohin sollen die Gerätetreiber kopiert werden?\n")
        (set #copyzipdev    "\nKopiere ioblixzip.device...\n")
        (set #copydosdriver "\nKopiere DOSDrivers...\n")
        (set #zipquery      (cat "\n"
                                 "Wollen Sie Treiber für ein Parallel-Port ZIP Laufwerk installieren?"))
        (set #zipstart      "Soll der ZIP Treiber gleich beim Booten gestartet werden?")
        (set #zipinfo       (cat "Der Treiber PZIP0: ist für FFS-formatierte ZIP-Medien mit einer Blockgröße von 512 Bytes gedacht,\n"
                                 "und der Treiber PZIPC: for PC-formatierte ZIP-Medien. Dafür muß CrossDOS installiert sein.\n"))
    )
)

;****************************************************************************
;
; Setup
;

(complete 0)

(if (< (/ (getversion) 65536) 37)
    (abort #bad-kick)
)

(if (patmatch "68000|68010" (database "cpu"))
    (abort #bad-cpu)
)

;****************************************************************************
;
; Welcome
;

(welcome)

(complete 10)

;****************************************************************************
;
; Check for IOBlix module
;

(run "IOBlix-Install:C/english/SetupIOBlix reinit" (safe))
(if
    (= 0
        (run "IOBlix-Install:C/Look4IOBlix a1200 par" (safe))
    )
    (abort #noparmodule)
)

(complete 20)

;****************************************************************************
;
;
;

(set #doit
    (askbool
        (prompt #intro)
        (help @askbool-help)
        (default 1)
    )
)

(if (= 0 #doit)
    (
        exit (quiet)
    )
)

;****************************************************************************
;
; Setup directory
;

(complete 30)

(set #destdevs
    (askdir
        (prompt #selectdevs)
        (help @askdir-help)
        (default "DEVS:")
    )
)

;****************************************************************************
;
; Install devices
;

(copylib
    (help @copylib-help)
    (prompt #copyzipdev)
    (source "devs/ioblix12zip.device")
    (dest #destdevs)
    (confirm)
)

(complete 60)

(copyfiles
    (help @copyfiles-help)
    (prompt #copydosdriver)
    (source "DEVS/DOSDrivers")
    (choices "PZIP0" "PZIPC")
    (dest "SYS:Storage/DOSDrivers")
    (infos)
    (confirm)
)

;****************************************************************************
;
;
;

(startup "IOBlix1200 ZIP driver"
    (help @startup-help)
    (prompt #zipstart)
    (command "mount PZIP0: >nil:")
)

(complete 90)

(message #zipinfo)

;****************************************************************************
;
; Exit
;

(complete 100)
(exit)