; DiskLabel-Installerscript 20.12.94 © by PackMAN

(set #notV37
(cat "» DiskLabel « benötigt OS2 (V37.175) oder höher..."))

(set #msg
(cat "\n\n"
     " » DiskLabel «  Installer script.\n\n"
     "Dieses Script installiert » DiskLabel 1.8 « auf Ihrem Amiga.\n\n"
     "DiskLabel © 1994 Falk Zühlsdorff\n"
     "All rights reserved."))

(set #0
(cat "Ziellaufwerk auswählen..."))
(set #1
(cat "Verzeichnis: DiskLabel anlegen ?"))

;=============================================================================
; OS2 ?

(if (< (/ (getversion) 65536) 37)
(
    (abort #notV37)
))

;=============================================================================

(message #msg)
(welcome)

(set name
    (askdir
        (prompt "\n" #0)
        (help @askdir-help)
        (default "SYS:")
    )
)
(makedir (tackon name "DiskLabel")
    (prompt "\n\n\n\n\n" #1)
    (help "Ist bei Erstinstallation sinnvoll / notwendig.")
    (infos)
    (confirm)
)
(copyfiles
    (prompt "DiskLabel Hauptdatei")
    (help "Die Datei ist wohl nötig !!")
    (source ":DiskLabel/DiskLabel")
    (dest (tackon name "DiskLabel"))
    (infos)
    (confirm)
)
(copyfiles
    (prompt "DiskLabel Dokumentation")
    (help "Würde ich auch installieren...")
    (source ":DiskLabel/DiskLabel.dok")
    (dest (tackon name "DiskLabel"))
    (infos)
    (confirm)
)
(copyfiles
    (prompt "PURITY-Pascal-PD-Serie INTERESSANT !!!!!")
    (help "the best of PASCAL...")
    (source ":DiskLabel/PURITY-PD")
    (dest (tackon name "DiskLabel"))
    (infos)
    (confirm)
)
(copyfiles
    (prompt "Reqtools.library installieren ?")
    (help "Version: 38.1266")
    (source ":DiskLabel/Libs/reqtools.library")
    (dest "Libs:")
    (confirm)
)
(copyfiles
    (prompt "Textanzeiger ZMore")
    (help "Installieren oder Defaulttools der Icons ändern...")
    (source ":DiskLabel/C/ZMore")
    (dest "C:" )
    (confirm)
)