; AChash Professional V1.00 Installer
; All Rights reserved by the Markovic&Hexel GnbR
;

(welcome "AChash Professional V1.00 Installer")

(message
   "\nAChash Professional V1.00 Installer\n\n"
   "All Rights reserved by Markovic&Hexel GnbR\n"
   "\n"
   "Vertrieb:\n"
   "Stefan Ossowskis Schatztruhe\n"
   "Gesellschaft fuer Software mbH\n"
   "Veronikastr. 33 - 45131 Essen\n"
   "Germany\n\n"
   "Tel. ++49-201-788778\n"
   "Fax  ++49-201-798447\n"
   
)

(complete 0)

(set osversion (/ (getversion) 65536))

(set dirname
   (askdir
      (prompt "In welches Verzeichnis wollen Sie ACashPro installieren?")
      (disk)
      (newpath)
      (help @askdir-help)
      (default "WORK:")
    )
)

(set outdir      (tackon dirname "ACash"   ))
(set outdir_cata (tackon outdir  "Catalogs"))
(set outdir_mod  (tackon outdir  "Module"  ))
(set outdir_ids  (tackon outdir  "IDS"     ))
(set outdir_rexx (tackon outdir  "Rexx"    ))

(makedir outdir
   (prompt "Das Verzeichnis " outdir " wird erzeugt...")
   (help @makedir-help)
   (infos)
)

(makedir outdir_cata
   (prompt "Das Verzeichnis " outdir_cata " wird erzeugt...")
   (help @makedir-help)
)

(makedir outdir_mod
   (prompt "Das Verzeichnis " outdir_mod " wird erzeugt...")
   (help @makedir-help)
)

(makedir outdir_ids
   (prompt "Das Verzeichnis " outdir_ids " wird erzeugt...")
   (help @makedir-help)
)

(makedir outdir_rexx
   (prompt "Das Verzeichnis " outdir_rexx " wird erzeugt...")
   (help @makedir-help)
   (infos)
)

(askdisk
   (prompt "Bitte legen Sie Diskette 1 des Programmpakets ein!")
   (help @askdisk-help)
   (dest "ACash1")
)

(complete 5)

(copyfiles
   (prompt "Kopiere Dateien nach " outdir_cata ".")
   (help @copyfiles-help)
   (source "ACash1:catalogs")
   (dest outdir_cata)
   (all)
)

(complete 15)

(copyfiles
   (prompt "Kopiere Dateien nach " outdir_ids ".")
   (help @copyfiles-help)
   (source "ACash1:IDS")
   (dest outdir_ids)
   (all)
)

(complete 20)

(copyfiles
   (prompt "Kopiere Dateien nach " outdir_mod ".")
   (help @copyfiles-help)
   (source "ACash1:Module")
   (dest outdir_mod)
   (all)
)

(complete 35)

(copyfiles
   (prompt "Kopiere Dateien nach " outdir_rexx ".")
   (help @copyfiles-help)
   (source "ACash1:Rexx")
   (dest outdir_rexx)
   (all)
)

(complete 40)

(copyfiles
   (prompt "Kopiere Dateien nach " outdir ".")
   (help @copyfiles-help)
   (source "ACash1:")
   (pattern "ACash.ReadMe#?")
   (dest outdir)
)

(complete 45)

(copyfiles
   (prompt "Kopiere Dateien nach ENV")
   (help @copyfiles-help)
   (source "ACash1:ENVARC")
   (dest "ENV:")
   (all)
   (files)
)

(complete 47)

(copyfiles
   (prompt "Kopiere Dateien nach ENVARC")
   (help @copyfiles-help)
   (source "ACash1:ENVARC")
   (dest "ENVARC:")
   (all)
   (files)
)

(complete 50)

(if (>= osversion 39)
   (
      (copyfiles
         (prompt "Kopiere Dateien nach " outdir ".")
         (help @copyfiles-help)
         (source "ACash1:")
         (pattern "ACashPro#?")
         (dest outdir)
      )

      (askdisk
         (prompt "Bitte legen Sie Diskette 2 des Programmpakets ein!")
         (help @askdisk-help)
         (dest "ACash2")
      )
   )
   (
      (askdisk
         (prompt "Bitte legen Sie Diskette 2 des Programmpakets ein!")
         (help @askdisk-help)
         (dest "ACash2")
      )

      (copyfiles
         (prompt "Kopiere Dateien nach " outdir ".")
         (help @copyfiles-help)
         (source "ACash2:AmigaOS2")
         (pattern "ACashPro#?")
         (dest outdir)
      )
   )
)

(complete 85)

(copyfiles
   (prompt "Kopiere Dateien nach " outdir ".")
   (help @copyfiles-help)
   (source "ACash2:")
   (pattern "ACash.guide#?")
   (dest outdir)
)

(complete 100)

(message
   "\nInstallation erfolgreich beendet!!\n\n"
   "Kontaktadresse:\n"
   "Markovic&Hexel GnbR\n"
   "Canongasse 14/9\n"
   "A-1180 Wien\n"
   "Austria\n\n"
   "Copyright 1994 by Markovic&Hexel GnbR\n"
   "Individuelle Softwarelösungen\n"
)

(exit (quiet))

(abort "Installation von ACashPro V1.0 beendet!")