; installation script for XTR Ed V1.0
;
; script version 1.0
;
; 1.0 initial release
;
(set #Swosname
(cat "/XTRedv1"
))


(set my_help
   (cat
      "Performing this installation will create a new drawer named \"XTRED\" in the specified path.\n\n"
      @askdir-help
   )
)

(message
   "You will now be asked to give a path in which to install XTR Edv1.0.\n\n"
   "The installation utility will create a new drawer named \"XTRED\""
   "in the specified path.\n\n"
   "It will then copy all of its required files into this new drawer.\n\n"
)

; Get the path from the user

(set dest_pp
   (askdir
      (prompt "Where should the XTRED drawer be created/installed?")
      (help my_help)
      (default @default-dest)
   )
)

; Tell the Installer program where the user wants the data

(set @default-dest dest_pp)


(set dest_pp
   (tackon dest_pp "XTRED")
)

(makedir dest_pp
   (infos)
)

(working)

(copyfiles
   (infos)
   (help @copyfiles-help)
   (source #swosname)
   (pattern "#?")
   (files)
   (dest dest_pp)
)