; PC-Task v4.2 to v4.3 Updater
; 12/10/97	Copyright 1997 Quasar Distribution
; Translated by:

(set @default-dest "SYS:")

; English language

(set #pctask-location
(cat "Please select location of PC-Task program(s):"
))

(set #help-askbool
(cat "Please select Yes to install the file(s) "
	 "or select No so they are not installed. "
))

(set #help-askloc
(cat "Your PC-Task programs "
	 "must be in the directory you select in "
	 "order for it to be updated.  The programs "
	 "must not have their files names changed. "
))


;--------------------------------------------------

(set dest2	(askdir	(prompt #pctask-location)
			(default @default-dest)
			(help #help-askloc)
			)
)

; update the PC-Task program if it exists
(if	(= (exists (tackon dest2 "PC-Task_Dynamic")) 1)
	(
		(run (cat "PCTPatch \"" (tackon dest2 "PC-Task_Dynamic") "\" PC-Task_Dynamic.pch ram:PC-Task_Dynamic"))

		(if (= (exists "ram:PC-Task_Dynamic") 1)
			(
				(copyfiles
					(source "ram:PC-Task_Dynamic")
					(dest dest2)
					(help @copyfiles-help)
				)
	
				(delete "ram:PC-Task_Dynamic")
			)
		)
	)
)

(if	(= (exists (tackon dest2 "PC-Task_Interpretive")) 1)
	(
		(run (cat "PCTPatch \"" (tackon dest2 "PC-Task_Interpretive") "\" PC-Task_Interpretive.pch ram:PC-Task_Interpretive"))

		(if (= (exists "ram:PC-Task_Interpretive") 1)
			(
				(copyfiles
					(source "ram:PC-Task_Interpretive")
					(dest dest2)
					(help @copyfiles-help)
				)
	
				(delete "ram:PC-Task_Interpretive")
			)
		)
	)
)



(
	(copyfiles
		(source "README")
		(dest dest2)
		(newname "README_FIRST!")
		(help @copyfiles-help)
	)
)

(set @default-dest dest2)