%(SIZE) 6399
%(TITLE_STRING) "Installing HIV Case Study"
%(DISK_TOTAL) 1
%(EXENAME) "HIV Case Study.exe"
%(ITEMNAME) "HIV Case Study"
%(DESTINATION) "C:\Program Files\HIV Case Study"
%(GROUPNAME) "HIV Case Study"
%(EXIT) FALSE
%(NOPREVDIR) TRUE
TITLE   %(TITLE_STRING)
GETPATH %(START_PATH)

EDITBOX C C
	BEGIN
		TITLE "Installation"
		STRING %(DESTINATION) "Install in directory:"
	END
IFSTATUS FALSE
	GOTO EXIT

FILEEXIST %(DESTINATION)
IFSTATUS
	BEGIN
		EDITBOX C C
			BEGIN
				TITLE WARNING
				TEXT "This directory already exists:" L
				TEXT %(DESTINATION) C
				TEXT "If you continue, existing files will be OVERWRITTEN." L
				TEXT ""
				TEXT "Press CANCEL to abort installation or OK to continue." L
			END
		IFSTATUS FALSE
			%(EXIT) TRUE
		ELSE
			%(NOPREVDIR) FALSE
	END

IF %(EXIT) = TRUE
	GOTO EXIT

SETPATH %(DESTINATION)
IFSTATUS FALSE
	BEGIN
		EDITBOX C C
			BEGIN
				TITLE "Error"
					TEXT "Could not create %(DESTINATION)."
			END
		%(EXIT) TRUE
	END
IF %(EXIT) = TRUE
	GOTO END

AVAILABLE %(SIZE)
IFSTATUS FALSE
	BEGIN
		EDITBOX C C
			BEGIN
				TITLE "Insufficient space"
					TEXT "There is insufficient disk space to complete installation."
					TEXT ""
					TEXT "The full installation requires %(SIZE) Kbytes of free"
					TEXT "disk space."
			END
		IF %(NOPREVDIR) = TRUE
			FILEDELETE %(DESTINATION)
		%(EXIT) TRUE
	END

IF %(EXIT) = TRUE
	GOTO EXIT

GOTO GOFORIT

WAITFORDISK:
CLEARSCREEN
EDITBOX C C
	BEGIN
		TITLE "Loading Diskette %(DISKETTE)"
		TEXT " Press OK when Diskette #%(DISKETTE) is in drive %(SOURCE) " L
		TEXT ""
		TEXT "(Press CANCEL to stop installation.)" C
	END
IFSTATUS FALSE
	GOTO EXIT

WRONGDISK:
%(CONTINUE) LOADINGDISK
FILEEXIST "%(DISKID)"
IFSTATUS FALSE
	BEGIN
		BEEP
		EDITBOX C C
			BEGIN
				TITLE "WRONG DISKETTE"
				TEXT " Press OK when Diskette #%(DISKETTE) is in drive %(SOURCE)" L
				TEXT "" 
				TEXT "(Press CANCEL to stop installation.)" C
			END
		IFSTATUS FALSE
			%(CONTINUE) EXIT
		ELSE
			%(CONTINUE) WRONGDISK
	END

GOTO %(CONTINUE)
LOADINGDISK:
CLEARSCREEN
INFOBOX C C
	BEGIN
		TITLE "Loading Disk"
		TEXT "Installing..." C
		TEXT "Please wait." C
	END
FILECOPY *.* /s  /m
GOTO %(RETURN)


COPYFROMNET:
CLEARSCREEN
INFOBOX C C
	BEGIN
		TITLE "Copying"
		TEXT "Copying files" C
		TEXT "Please wait." C
	END
FILECOPY *.* /s /m
GOTO %(RETURN)


GOFORIT:
%(DISKETTE) 1
%(RETURN) DISKETTE1
%(DISKID) QUEST001
GOTO LOADINGDISK

DISKETTE1:
ICON %(GROUPNAME) %(DESTINATION)\%(EXENAME) %(ITEMNAME)
EXIT: