(if (= x 1) (welcome))

(complete 0)


(run "C/Play16 >nil: InstallSnd")

(message 
  "\n\nWelcome to the UNIT installation utility"
  "\n\nUNIT ® 1998 Andrew Edmonds"
    

  "\n\nUNIT v2 is Freeware!"

;  (ALL)
)

(message
  "\nPlease note that during the installation of UNIT any old UNIT prefs will be deleted "
  "due to incompatibility problems with the new version"
;  (ALL)
)
(set #DEST0
  (askdir
    (prompt "Where do you want to install UNIT? A drawer will be created there.")
    (help (cat @askdir-help)
    )
    (default "Sys:")
  )
)



(message
  "\n\nThe installer will now copy the main UNIT files to the selected "
  "directory and the default settings to ENVARC:"
;  (ALL)
)
(set #DEST (tackon #DEST0 "UNIT"))
(set @default-dest (tackon #DEST0 "UNIT"))
(makedir #DEST (infos))

(copyfiles (dest #DEST) (source "UNITv2"))
(copyfiles (dest #DEST) (source "UNIT"))
(copyfiles (dest #DEST) (source "UNIT.info"))
(copyfiles (dest #DEST) (source "Online"))
(copyfiles (dest #DEST) (source "Offline"))
(copyfiles (dest #DEST) (source "US1"))
(copyfiles (dest #DEST) (source "US2"))
(set #DESTD (tackon #DEST "Docs"))
(makedir #DESTD)
(copyfiles (dest #DEST) (source "Docs.info"))
(copyfiles (dest #DESTD) (source "Docs/UNIT_Readme"))
(copyfiles (dest #DESTD) (source "Docs/UNIT_Readme.info"))
(copyfiles (dest #DESTD) (source "Docs/Latest_News!"))
(copyfiles (dest #DESTD) (source "Docs/Latest_News!.info"))
(copyfiles (dest #DESTD) (source "Docs/Want_Source_Code?"))
(copyfiles (dest #DESTD) (source "Docs/Want_Source_Code?.info"))
(set #DESTC (tackon #DEST "HTML"))
(makedir #DESTC)
(set #DESTE (tackon #DEST "C"))
(makedir #DESTE)
(set #DESTB (tackon #DEST "HTML"))
(copyfiles (dest #DESTB) (source "html/UNITRem.html"))
(copyfiles (dest #DESTB) (source "html/UNIT.html"))
(copyfiles (dest #DESTB) (source "html/Warning.gif"))
(run "c:delete >nil: ENVARC:UNIT ALL")
(run "c:makedir >nil: ENVARC:UNIT")
(copyfiles (dest "ENVARC:UNIT") (Source "Defaults/OPR"))
(copyfiles (dest "ENVARC:UNIT") (Source "Defaults/WER"))
(copyfiles (dest "ENVARC:UNIT") (Source "Defaults/PR"))

(message

  "\nThe Play16 and WBRun commands are required for UNIT to fully operate."
  "  These commands are copied to the destination that you selected for the installation"
  " and placed in a directory called C.  They do not need to be placed in C:"
  "\n\nThe installer will now copy these files to the correct location for you."

)
(copyfiles (dest #DESTE) (source "C/Play16"))
(copyfiles (dest #DESTE) (source "C/Play16.doc"))
(copyfiles (dest #DESTE) (source "C/WBRun"))
(copyfiles (dest #DESTE) (source "C/WBRun.doc"))

(message
  "\nBug Reports/Suggestions should go to:"
  "\n"  
  "\nArgonauts@sea.abel.co.uk"
  "\n\n"
  "\n- Unit v2.4 May 1998 -"

  "\n\n\nThank you for installing UNIT, Enjoy!"
)