(message "Handy Boot v1.0 Installation  \n"
   "\n"
   "This version of HBoot is FREEWARE !\n\n"
   "<< Keep The Amiga Spirit Alive >>\n\n"
   " Greatings from : \n"
   "\n"
   "       Michael D.P. de Clerck\n"
   "       Increased Development.\n"
   "       August 1995 Rotterdam \n"
   "\n"
)



; ask where to install HBoot
(set vc-dest
   (askdir
     (prompt "Please select the Directory where you would like to "
             "install HBoot 1.0 and it's files."
             "I won't make a new directory ! "
     )
     (help @askdir-help)
     (default @default-dest)
   )
)
(set @default-dest vc-dest)


(Set DestDir @default-dest)

(Set UserDir
  (tackon DestDir "Users")
)





(
   (working "Installing HBoot 1.0 Program")
   (copyfiles
     (prompt "")
     (source "")
     (help @copyfiles-help)
     (dest @default-dest)
     (infos)
     (choices "HBoot" "Bootmail" "HBStartup" "HBoot.Guide")
     (confirm)
   )
)


(
  (working "Copying screen map")
  (copyfiles
    (source "Buttons.Abk")
    (dest @default-dest)
  )
)


(
  (working "Copying the USer scripts")
  (copyfiles
    (prompt "")
    (help @copyfiles-help)
    (source "Users")
    (dest UserDir)
    (all)
  )
)



(message "Handy Boot v1.0 Installation complete\n"
   "\n"
   "Now add a HBoot: assign in your S:User-startup.\n\n"

   "Now reboot or execute the S:user-startup.\n\n"

   "HBoot can now be started, see documentation\n"
   "for further support !\n"
   "\n"
)



(exit)