; ED-Startup installations Script
; © 1997 Ralf Stecher All rights reserved.
; 
; Written by Ralf Stecher Cheruskerstr. 19 38112 Braunschweig
; Date: 05/Dezember/97

(set flasekickmsg "Du benötigst mindestens OS 2.04 !")

(set OS_VER (/ (getversion) 65536) )

(if
 (< OS_VER 37)
 (abort falsekickmsg)
)

(set #msg
 (cat "\n\n >  ED-Startup  <  Installer script.\n\n"
      "Dieses Script installiert ED-Startup auf Deinem\n\n Amiga.\n\n"
      "Hinweise: ED-Startup.guide\n\n"
      "ED-Startup © 1995 Ralf Stecher\n\n"
      "All rights reserved."
 )
)
(message #msg)
(welcome)

(set #address
 (cat "\n"
      "Ralf Stecher\n"
      "Cheruskerstr. 19\n"
      "38112 Braunschweig (Deutschland)\n"
      "e-Mail: Ralf.Stecher@t-online.de\n\n"
      "Verbesserungsvorschläge werden\n"
      "dankend entgegengenommen\n\n"
      "Auch weitere ARexx Scripts sind immer Wilkommen.\n\n"
      "Und nun geht´s weiter !!!"
 )
)
(message #address)



(Set #WhatInstall
 (cat "Welche Teile von ED-Startup sollen kopiert werden ?\n"
 )
)

(set #InstallParts
 (askoptions
  (prompt #WhatInstall)
  (help @askoptions-help)
  (choices
   ("Alte ED-Startup Umbenennen [ED-Startup-alt]  ") ;Bit 0
   ("Neue ED-Startup Kopieren                     ") ;Bit 1
   ("Rexx Prog. Week Day  [Wochentag     ] {WD.ed}") ;Bit 2
   ("REXX Prog. Date      [Datum         ] {DA.ed}") ;Bit 3
   ("REXX Prog. Time      [Zeit          ] {TI.ed}") ;Bit 4
   ("REXX Prog. Uper Line [Großbuchstaben] {UL.ed}") ;Bit 5
  )
  (default 63)
 )
)

(if
 (IN #InstallParts 0)
  (copyfiles
   (prompt "Nun benenne ich die alte ED-Startup nach ED-Startup-alt um")
   (help @copylib-help)
   (source "SYS:S/ED-Startup")
   (dest "S:")
   (newname "ED-Startup-alt")
   (confirm)
   (optional "nofail")
  )
)

(if
 (IN #InstallParts 1)
  (copyfiles
   (prompt "Kopiere die neue ED-Startup.")
   (help @copylib-help)
   (source "ED-Startup")
   (dest "S:")
   (confirm)
   (optional "nofail")
  )
)

(if
 (IN #InstallParts 2)
  (
   (copyfiles
    (prompt "Kopiere ARexx Befehl Week Day [Wochentag].")
    (help @copylib-help)
    (source "AREXX/WD.ed")
    (dest "REXX:")
    (confirm)
    (optional "nofail")
   )
  )
)

(if
 (IN #InstallParts 3)
  (
   (copyfiles
    (prompt "Kopiere ARexx Befehl Date [Datum].")
    (help @copylib-help)
    (source "AREXX/DA.ed")
    (dest "REXX:")
    (confirm)
    (optional "nofail")
   )
  )
)

(if
 (IN #InstallParts 4)
  (
   (copyfiles
    (prompt "Kopiere ARexx Befehl Time [Zeit].")
    (help @copylib-help)
    (source "AREXX/TI.ed")
    (dest "REXX:")
    (confirm)
    (optional "nofail")
   )
  )
)

(if
 (IN #InstallParts 5)
  (
   (copyfiles
    (prompt "Kopiere ARexx Befehl Uper Line [Großbuchstaben].")
    (help @copylib-help)
    (source "AREXX/UL.ed")
    (dest "REXX:")
    (confirm)
    (optional "nofail")
   )
  )
)

(set #end
 (cat "\n\nDie Installation ist nun beendet.\n\n\n\n"
      "Ich wünsche Dir viel Spaß mit dem Neuen\n\n"
      "ED-Startup\n\n"
      "Ralf Stecher"
 )
)

(message #end)
(abort
 "Dieses ist natürlich kein Fehler, sondern nur eingebaut damit Euch kein dummes"
 " kram Erzählt wird, denn auch Ich binn nicht Perfekt, und weiß nicht wie Ich"
 " die Falschmeldung die anstelle dieser kommen würde Verhindern kann."
 " Kann mir jemand helfen und mir auf DEUTSCH erklären ( Schriftlich währe sehr"
 " nett ) wie ich den Installer zu Programieren habe ???\n\nRalf Stecher\ne-Mail: Ralf.Stecher@t-online.de"
 
)