; $VER: YamExpansion-Install 1.0 (28.07.97) by Dx0

(complete 0)

(set InstallDir
   (askdir
      (prompt "Where do you want to install YamExpansion v1.0 ?"
              " (a drawer called 'yamexpansion' will be created there)")
      (help @askdir-help)
      (default "Work:")
   )
)

(Set DestDir 
   (tackon InstallDir "yamexpansion")
)

(set @default-dest 
   DestDir
)

(makedir
   DestDir 
   (infos)
)

(complete 10)

(copyfiles
  (source "")
  (dest DestDir)
  (pattern "~(Install)#?")
  (infos)
  (noposition)
)

(copyfiles
  (source "data/yamexpansion.info")
  (dest InstallDir)
)

(complete 50)

(startup "yamexpansion"
  (prompt "Editing your S:User-Startup")
  (help "The Installer will add some assigns needed by YamExpansion")
  (command (cat "  Assign yamexpansion: \"" DestDir "\" >NIL:"))
)

(makeassign "yamexpansion:" DestDir)

(complete 100)