(message "Handy Link v2.0 Installation  \n"
   "\n"
   "This version of HLink 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 HLink
(set vc-dest
   (askdir
     (prompt "Please select the Directory where you would like to "
             "install HLink 2.0. I won't make a new directory ! "
     )
     (help @askdir-help)
     (default @default-dest)
   )
)
(set @default-dest vc-dest)



(
   (working "Installing HLink 2.0 Program")
   (copyfiles
     (prompt "")
     (help @copyfiles-help)
     (source "HLink")
     (dest @default-dest)
     (infos)
   )
)


(copyfiles
   (prompt "Would you like to install the AmigaGuide documentation?")
   (help @copyfiles-help)
   (source "HLink.Guide")
   (dest @default-dest)
   (infos)
   (confirm)
)





; ask where to install the NetScripts examples
(set nt-dest
   (askdir
     (prompt "Please select the Directory where you would like to "
             "install the Netscript examples. "
     )
     (help @askdir-help)
     (default @default-dest)
   )
)
(set @script-dest nt-dest)


(
  (working "Installing NetScripts examples")
  (copyfiles
    (source "NetScripts")
    (dest @script-dest)
    (all)
  )
)





(
   (working "Copying HLink configuration to S:")
   (run "c:copy HLink.Config S:HLink.Config")
)




(
   (working "Adding lines to S:User-startup sequence")
   (run "c:type HLink.User-startup >> S:User-startup")
)



(
   (working "Adding lines to S:Shell-startup sequence")
   (run "c:type HLink.Shell-Startup >> S:Shell-startup")
)


(
   (working "Copying Join command to C:Join")
   (run "c:copy Join C:Join")
)



(message "Handy Link v2.0 Installation complete\n"
   "\n"
   "Make sure that the Serial.device exists\n"
   "in the Devs: directory.\n\n"

   "Now check the S:User-Startup file for the\n"
   "right assigns.\n\n"

   "Now reboot or execute the user-startup file\n"
   "and open a new shell.\n\n"

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



(exit)