;
; $VER: Script di Installazione di TurboCommesseDEMO v2.0 (05.07.00)
;

(set @default-dest "Work:")
(set #wrongOS   (cat "TurboCommesseDEMO necessita\n"
                     "dell'OS2.0 o superiore!\n"))
(set #TGest_dir (cat "Scegli il cassetto o la partizione\n"
                     "dove installare il cassetto TGest.\n"
                     "Se il cassetto esiste già, allora seleziona\n"
                     "il cassetto o la partizione che lo contiene."))
(set #done      (cat "TurboCommesseDEMO è stato installato\n"
                     "con successo nel cassetto.\n\n"))

(set OS_ver (getversion "exec.library" (resident)))
(if (< OS_ver (* 37 65536)) (abort #wrongOS))

(complete 0)
(set TGest_def_dir @default-dest)
(set TGest_dir
        (askdir
                (default TGest_def_dir)
                (prompt  #TGest_dir)
                (help    @askdir-help)
        )
)

(set TGest_dir (tackon TGest_dir "TGest"))
(set Doc_dir   (tackon TGest_dir "Doc"))

(if (NOT (exists TGest_dir)) (makedir TGest_dir (infos)))
(if (NOT (exists Doc_dir))   (makedir Doc_dir   (infos)))

(complete 10)
(copyfiles (source "TCom2DEMO") (dest TGest_dir) (infos) (help @copyfiles-help))
(complete 80)
(copyfiles (source "AggCom")    (dest TGest_dir) (infos) (help @copyfiles-help))
(complete 90)

(copyfiles (source "Doc/")      (dest Doc_dir)   (all)   (help @copyfiles-help))
(complete 100)

(message #done "\"" TGest_dir "\"")

(exit)