(procedure check-amiwin-version
 (set amiwin-version (getversion (tackon @default-dest "bin/AmiWin")))
 (if (not(= amiwin-version 131088))
  (abort "You do not have AmiWin 2.16 installed.\n");
 )
 (if (not (exists (tackon @default-dest "bin/AWDecrypt")))
  (abort "You do not have AmiWin 2.16 installed.\n");
 )
)

(procedure select-destination-directory
 (set @default-dest
  (askdir
   (prompt "Select the directory where you have "
    "installed AmiWin 2.11demo. The default is "
    "probably correct.")
   (help "Please specify the directory where you have "
    "installed AmiWin 2.11demo. The default is "
    "the X11: directory, i.e. the likely place of "
    "your AmiWin installation.")
   (default "X11:")
  )
 )
)  

;;;; Start

(set app-name "AmiWinSASC 2.16")

(complete 0)

(set source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
 (expandpath @icon))
)

(select-destination-directory)

(check-amiwin-version)

(complete 5)

(working)
(run (cat "\"" (tackon @default-dest "bin/AWDecrypt") "\" \"" (tackon source-dir "AmiWinSASC.awea") "\" \"" source-dir "\""))

(complete 20)

(if (not (exists (tackon @default-dest "sasc")))
 (makedir (tackon @default-dest "sasc"))
)

(complete 30)

(if (not (exists (tackon @default-dest "sasc/lib")))
 (makedir (tackon @default-dest "sasc/lib"))
)

(complete 40)

(copyfiles
 (source (tackon source-dir "x11.lib"))
 (dest (tackon @default-dest "sasc/lib"))
)

(delete (tackon source-dir "x11.lib"))

(complete 50)

(working)
(run (cat "\"" (tackon source-dir "bin/unzip") "\" -o -qq \"" (tackon source-dir "AmiWinSASC.zip") "\" -d \"" @default-dest "\""))

(complete 90)
(delete (tackon source-dir "AmiWinSASC.zip"))

(complete 100)
(exit "Installation of the AmiWin 2.16 developer kit for SAS/C"
 "is finished.")