; Install SDMS

(set @default-dest "T:")

(transcript "Getting Location of SDMS Directory")

(set sdms_dir "Work:")

(if (NOT (exists sdms_dir (noreq)))
   (set sdms_dir "Sys:")
)

(set sdms_dir
   (askdir
      (prompt
      "SDMS requires 800K of free space on your disk. "
      "Where would you like the SDMS directory installed?")
      (help @askdir-help)
      (default sdms_dir)
   )
)

(if (NOT (exists (tackon sdms_dir "SDMS")(noreq)))
   (
   (copyfiles
      (source "SDMS:disk.info")
      (dest sdms_dir))
   (tooltype
      (dest (tackon sdms_dir "SDMS"))
      (noposition))
   (makedir (tackon sdms_dir "SDMS"))
   )
)

(set sdms_dir (tackon sdms_dir "SDMS"))

(set @default-dest sdms_dir)

(transcript "Installing SDMS Program")

(copyfiles
   (prompt "Installing SDMS program.")
   (help @copyfiles-help)
   (source "SDMS:SDMS")
   (infos)
   (dest sdms_dir)
)

(transcript "Installing SDMS ReadMe Files")
(copyfiles
   (prompt "Installing SDMS ReadMe Files.")
   (help @copyfiles-help)
   (source "SDMS:SDMS.guide")
   (infos)
   (dest sdms_dir)
)

(transcript "Installing SDMS ReadMe Files")
(copyfiles
   (prompt "Installing SDMS ReadMe Files.")
   (help @copyfiles-help)
   (source "SDMS:DMS.TXT")
   (infos)
   (dest sdms_dir)
)

(transcript "Installing SDMS data files.")
   (copyfiles
   (prompt "Installing SDMS data files.")
   (help @copyfiles-help)
   (source "SDMS:Assigner")
   (infos)
   (dest sdms_dir)
)

(transcript "Installing SDMS data files.")
   (copyfiles
   (prompt "Installing SDMS data files.")
   (help @copyfiles-help)
   (source "SDMS:DMS")
   (infos)
   (dest sdms_dir)
)

(transcript "Installation Completed")
(exit "SDMS installation completed")