'**************************************************************************
'*           MSSetup Toolkit - Corel Professional Photos Setup            *
'**************************************************************************

'$DEFINE DEBUG  ''Define for script development/debugging

'$INCLUDE 'setupapi.inc'
'$INCLUDE 'msdetect.inc'

CONST WS_VISIBLE=&H10000000
CONST WS_BORDER =&H00800000
CONST WS_CLIPCHILDREN =&H02000000
CONST GWL_STYLE =-16
CONST SW_SHOWMAXIMIZED=3

DECLARE FUNCTION ShowWindow LIB "user.exe" (hWnd%,iShow%) AS INTEGER
DECLARE FUNCTION SetWindowLong LIB "user.exe" (hWnd%,offset%,style&) AS LONG

hWnd%=HwndFrame()

sti&=SetWindowLong(hWnd%,GWL_STYLE,WS_VISIBLE+WS_BORDER+WS_CLIPCHILDREN)
stj%=ShowWindow(hWnd%,SW_SHOWMAXIMIZED)

''Dialog ID's
CONST WELCOME      = 100
CONST ASKQUIT      = 200
CONST DESTPATH     = 300
CONST EXITFAILURE  = 400
CONST EXITQUIT     = 600
CONST EXITSUCCESS  = 700
CONST APPHELP      = 900
CONST CUSTINST     = 6200
CONST TOOBIG       = 6300
CONST BADPATH      = 6400
CONST MOSAIC       = 7100
CONST PCDSCSI      = 7200
CONST CDAUDIO      = 7300

''Bitmap ID
CONST LOGO         = 1

''File Types
CONST PCDLABFILES    = 1
CONST PCDMOSFILES    = 2
CONST PCDAUDFILES    = 3
CONST PCDSCRFILES    = 4
CONST PCDWALFILES    = 5

GLOBAL DEST$        ''Default destination directory.
GLOBAL WINDRIVE$    ''Windows drive letter.
GLOBAL OPT1OPT$     ''Option selection from OptFiles1 option dialog.
GLOBAL OPT2OPT$     ''Option selection from OptFiles2 option dialog.
GLOBAL OPT3OPT$     ''Option selection from OptFiles3 option dialog.
GLOBAL OPT4OPT$     ''Option selection from OptFiles4 option dialog.
GLOBAL MosDir$      ''Location of old mosaic program, if found.
GLOBAL MosFlag$      ''Flag for old mosaic program, if found.

FLAG1$          ="No"      '' Copy flags for
FLAG2$          ="No"      '' DLL files that go
FLAG3$          ="No"      '' into WindowsDir and WindowsSysDir

''CustInst list symbol names
GLOBAL PCDLABNEEDS$    ''Option list costs per drive
GLOBAL PCDMOSNEEDS$
GLOBAL PCDAUDNEEDS$
GLOBAL PCDSCRNEEDS$
GLOBAL PCDWALNEEDS$

GLOBAL EXTRACOSTS$  ''List of extra costs to add per drive
GLOBAL BIGLIST$     ''List of option files cost calc results (boolean)

''Dialog list symbol names
GLOBAL CHECKSTATES$
GLOBAL STATUSTEXT$
GLOBAL DRIVETEXT$


DECLARE SUB AddOptFilesToCopyList (ftype%)
DECLARE SUB RecalcOptFiles (ftype%)
DECLARE SUB RecalcPath
DECLARE SUB SetDriveStatus
DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING



INIT:
    CUIDLL$ = "mscuistf.dll"            ''custom user interface dll
    HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure

    SetBitmap CUIDLL$, LOGO
    SetTitle "Corel Professional Photos Setup"

    szInf$ = GetSymbolValue("STF_SRCINFPATH")
    IF szInf$ = "" THEN
	szInf$ = GetSymbolValue("STF_CWDDIR") + "CORELCD.INF"
    END IF
    ReadInfFile szInf$

    WINDRIVE$ = MID$(GetWindowsDir, 1, 1)
    WINDIR$ = GetWindowsDir()
    DEST$ = WINDRIVE$ + ":\CORELCD"

    ''CustInst list symbols
    CHECKSTATES$ = "CheckItemsState"
    STATUSTEXT$  = "StatusItemsText"
    DRIVETEXT$   = "DriveStatusText"
    FOR i% = 1 TO 8 STEP 1
	AddListItem CHECKSTATES$, "ON"
    NEXT i%
    FOR i% = 1 TO 8 STEP 1
	AddListItem STATUSTEXT$, ""
    NEXT i%
    FOR i% = 1 TO 7 STEP 1
	AddListItem DRIVETEXT$, ""
    NEXT i%
    ReplaceListItem DRIVETEXT$, 7, DEST$

    ''Disk cost list symbols
    PCDLABNEEDS$  = "PcdLabNeeds"
    PCDMOSNEEDS$  = "PcdMosNeeds"
    PCDAUDNEEDS$  = "PcdAudNeeds"
    PCDSCRNEEDS$  = "PcdScrNeeds"
    PCDWALNEEDS$  = "PcdWalNeeds"
    EXTRACOSTS$ = "ExtraCosts"
    BIGLIST$    = "BigList"
    FOR i% = 1 TO 5 STEP 1
	AddListItem BIGLIST$, ""
    NEXT i%
    FOR i% = 1 TO 26 STEP 1
	AddListItem EXTRACOSTS$, "0"
    NEXT i%

    ''File Option Variables
    OPT1OPT$ = "1"
    OPT2OPT$ = "1"
    OPT3OPT$ = "1"
    OPT4OPT$ = "1"

    RecalcPath
    SetDriveStatus

'$IFDEF DEBUG
    i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
'$ENDIF ''DEBUG


WELCOME:
    sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
    IF sz$ = "CONTINUE" THEN
	UIPop 1
    ELSE
	GOSUB ASKQUIT
	GOTO WELCOME
    END IF


CUSTINST:
    sz$ = UIStartDlg(CUIDLL$, CUSTINST, "FCustInstDlgProc", APPHELP, HELPPROC$)

    IF sz$ = "CONTINUE" THEN
	''Install only if it will fit.
	FOR i% = 1 TO 5 STEP 1
	    IF GetListItem(BIGLIST$, i%) <> "" THEN
		GOSUB TOOBIG
		GOTO CUSTINST
	    END IF
	NEXT i%
	UIPop 1
	GOTO INSTALL
    ELSEIF sz$ = "PATH" THEN
	GOTO GETPATH
    ELSEIF sz$ = "CHK1" THEN
	RecalcOptFiles PCDLABFILES
	SetDriveStatus
	GOTO CUSTINST
    ELSEIF sz$ = "CHK2" THEN
	RecalcOptFiles PCDMOSFILES
	SetDriveStatus
	GOTO CUSTINST
    ELSEIF sz$ = "CHK3" THEN
	RecalcOptFiles PCDAUDFILES
	SetDriveStatus
	GOTO CUSTINST
    ELSEIF sz$ = "CHK4" THEN
	RecalcOptFiles PCDSCRFILES
	SetDriveStatus
	GOTO CUSTINST
    ELSEIF sz$ = "CHK5" THEN
	RecalcOptFiles PCDWALFILES
	SetDriveStatus
	GOTO CUSTINST
    ELSEIF sz$ = "BTN2" THEN
	GOTO PCDMOSFILES
    ELSEIF sz$ = "BTN3" THEN
	GOTO PCDAUDFILES
    ELSEIF sz$ = "BTN4" THEN
	GOTO PCDSCRFILES
    ELSEIF sz$ = "BTN5" THEN
	GOTO PCDWALFILES
    ELSEIF sz$ = "REACTIVATE" THEN
	RecalcPath
	SetDriveStatus
	GOTO CUSTINST
    ELSE
	GOSUB ASKQUIT
	GOTO CUSTINST
    END IF



INSTALL:
    ClearCopyList
    AddOptFilesToCopyList PCDLABFILES
    AddOptFilesToCopyList PCDMOSFILES
    AddOptFilesToCopyList PCDAUDFILES
    AddOptFilesToCopyList PCDSCRFILES
    AddOptFilesToCopyList PCDWALFILES
    CreateDir DEST$, cmoNone
    
    IF GetListItem(CHECKSTATES$, PCDLABFILES) = "ON" THEN
	 IF DoesIniKeyExist("WIN.INI", "PhotoCD Lab", "Dir") = 1 THEN
	     PcdDir$ = GetIniKeyString("WIN.INI", "PhotoCD Lab", "Dir")
	     IF DoesFileExist(PcdDir$ + "\PCDSCSI.EXE", femExists) = 1 THEN
		 SetSymbolValue "ConfirmTextIn", PcdDir$
		 SetSymbolValue "EditFocus", "END"
		 sz$ = UIStartDlg(CUIDLL$, PCDSCSI, "FConfirmDlgProc", APPHELP, HELPPROC$)
		 IF sz$ = "BACK" THEN
		     UIPop 1
		     GOTO CUSTINST
		 ELSEIF sz$ = "CONTINUE" THEN
		     UIPop 1
		 END IF
	     END IF
	 END IF
	 IF PcdDir$ <> "" THEN
	     CreateIniKeyValue "WIN.INI", "PhotoCD Lab", "Dir", PcdDir$, cmoOverwrite
	 ELSE
	     CreateIniKeyValue "WIN.INI", "PhotoCD Lab", "Dir", DEST$ + "\PCDLAB", cmoOverwrite
	 END IF
    END IF

    IF GetListItem(CHECKSTATES$, PCDMOSFILES) = "ON" THEN
	 IF MosFlag$ <> "" THEN
	     SetSymbolValue "ConfirmTextIn", MosDir$
	     SetSymbolValue "EditFocus", "END"
	     sz$ = UIStartDlg(CUIDLL$, MOSAIC, "FConfirmDlgProc", APPHELP, HELPPROC$)
		 IF sz$ = "BACK" THEN
		     UIPop 1
		     GOTO CUSTINST
		 ELSEIF sz$ = "CONTINUE" THEN
		     UIPop 1
		 END IF
	 ELSEIF MosFlag$ = "" AND MOSDIR$ <> "" THEN
	     '' Just sit there for now
	 ELSE
	     CreateIniKeyValue "WIN.INI", "CorelGraphics4", "Dir", DEST$ + "\MOSAIC\CONFIG", cmoOverwrite
	     CreateDir DEST$ + "\MOSAIC\CONFIG", cmoNone
	     CreateIniKeyValue DEST$ + "\MOSAIC\CONFIG\CORELAPP.INI", "Config", "ProgramsDir", DEST$ + "\MOSAIC\PROGRAMS", cmoOverwrite
	     CreateIniKeyValue DEST$ + "\MOSAIC\CONFIG\CORELAPP.INI", "Config", "CustomDir", DEST$ + "\MOSAIC\CUSTOM", cmoOverwrite
	     CreateIniKeyValue DEST$ + "\MOSAIC\CONFIG\CORELAPP.INI", "Config", "MosaicDir", DEST$ + "\MOSAIC\PROGRAMS", cmoOverwrite
	     CreateIniKeyValue DEST$ + "\MOSAIC\CONFIG\CORELAPP.INI", "Config", "FiltersDir", DEST$ + "\MOSAIC\PROGRAMS", cmoOverwrite
	     CreateIniKeyValue DEST$ + "\MOSAIC\CONFIG\CORELAPP.INI", "Config", "DataDir", DEST$ + "\MOSAIC\PROGRAMS\DATA", cmoOverwrite
	 END IF
     END IF
    
    IF GetListItem(CHECKSTATES$, PCDAUDFILES) = "ON" THEN
	 IF DoesIniKeyExist("WIN.INI", "CorelSCSI", "CD-Audio") = 1 THEN
	     CDAudioDir$ = GetIniKeyString("WIN.INI", "CorelSCSI", "CD-Audio")
	     IF DoesFileExist(CDAudioDir$ + "\CD_AUDIO.EXE", femExists) = 1 THEN
		 SetSymbolValue "ConfirmTextIn", CDAudioDir$
		 SetSymbolValue "EditFocus", "END"
		 sz$ = UIStartDlg(CUIDLL$, CDAUDIO, "FConfirmDlgProc", APPHELP, HELPPROC$)
		 IF sz$ = "BACK" THEN
		     UIPop 1
		     GOTO CUSTINST
		 ELSEIF sz$ = "CONTINUE" THEN
		     UIPop 1
		 END IF
	     END IF
	 END IF
	 CreateIniKeyValue "WIN.INI", "CorelSCSI", "CD-Audio", DEST$ + "\PCDAUDIO", cmoOverwrite
    END IF

    
    CopyFilesInCopyList

    InstDrive$=MID$(DEST$,1,2)
    IF GetListItem(CHECKSTATES$, PCDLABFILES) = "ON" THEN
	CreateProgmanGroup "Professional Photos", "", cmoNone
	ShowProgmanGroup "Professional Photos", 1, cmoNone
	CreateProgmanItem "Professional Photos", "PhotoCD Lab", MakePath(DEST$, "pcdlab\pcdscsi.exe "), "", cmoOverwrite
    END IF

    IF GetListItem(CHECKSTATES$, PCDMOSFILES) = "ON" THEN
	ShowProgmanGroup "Professional Photos", 1, cmoNone
	IF MosDir$ <> "" THEN
	    CreateProgmanItem "Professional Photos", "CorelMOSAIC!", MosDir$ + "\CORELMOS.EXE", "", cmoOverwrite
	ELSE
	    CreateProgmanItem "Professional Photos", "CorelMOSAIC!", MakePath(DEST$, "mosaic\programs\corelmos.exe "), "", cmoOverwrite
	    CreateIniKeyValue DEST$ + "\MOSAIC\CONFIG\CORELFLT.INI", "ColorPath", "CircuitPath", DEST$ + "\MOSAIC\CUSTOM", cmoOverwrite
	    CreateIniKeyValue DEST$ + "\MOSAIC\CONFIG\CORELFLT.INI", "ColorPath", "CurvePath", DEST$ + "\MOSAIC\CUSTOM", cmoOverwrite
	    CreateIniKeyValue DEST$ + "\MOSAIC\CONFIG\CORELPRN.INI", "ColorPath", "CircuitPath", DEST$ + "\MOSAIC\CUSTOM", cmoOverwrite
	END IF
    END IF

    IF GetListItem(CHECKSTATES$, PCDAUDFILES) = "ON" THEN
	ShowProgmanGroup "Professional Photos", 1, cmoNone
	CreateProgmanItem "Professional Photos", "CD Audio", MakePath(DEST$, "pcdaudio\cd_audio.exe "), "", cmoOverwrite
    END IF

    IF GetListItem(CHECKSTATES$, PCDSCRFILES) = "ON" THEN
	ShowProgmanGroup "Professional Photos", 1, cmoNone
    END IF

    IF GetListItem(CHECKSTATES$, PCDWALFILES) = "ON" THEN
	ShowProgmanGroup "Professional Photos", 1, cmoNone
	CreateProgmanItem "Professional Photos", "Wallpaper Flipper Configuration", MakePath(GetWindowsDir, "wflipcnf.exe"), "", cmoOverwrite
    END IF

	CreateProgmanItem "Professional Photos", "Professional Photos ReadMe", "notepad.exe "+MakePath(DEST$,"readme.txt"), "", cmoOverwrite 

QUIT:
    ON ERROR GOTO ERRQUIT

    IF ERR = 0 THEN
	dlg% = EXITSUCCESS
    ELSEIF ERR = STFQUIT THEN
	dlg% = EXITQUIT
    ELSE
	dlg% = EXITFAILURE
    END IF
QUITL1:
    sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
    IF sz$ = "REACTIVATE" THEN
	GOTO QUITL1
    END IF
    UIPop 1

    END

ERRQUIT:
    i% = DoMsgBox("Setup sources were corrupted, call Corel Tech Support", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
    END



GETPATH:
    SetSymbolValue "EditTextIn", DEST$
    SetSymbolValue "EditFocus", "END"
GETPATHL1:
    sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)

    IF sz$ = "CONTINUE" THEN
	olddest$ = DEST$
	DEST$ = GetSymbolValue("EditTextOut")

	''Validate new path.
	IF IsDirWritable(DEST$) = 0 THEN
	    GOSUB BADPATH
	    GOTO GETPATHL1
	END IF
	UIPop 1

	''Truncate display if too long.
	IF LEN(DEST$) > 23 THEN
	    ReplaceListItem DRIVETEXT$, 7, MID$(DEST$, 1, 23)+"..."
	ELSE
	    ReplaceListItem DRIVETEXT$, 7, DEST$
	END IF

	''Recalc if path changed.
	IF (olddest$ <> DEST$) AND (olddest$ <> DEST$+"\") AND (olddest$+"\" <> DEST$) THEN
	    RecalcPath
	    SetDriveStatus
	END IF

	olddest$ = ""
	GOTO CUSTINST
    ELSEIF sz$ = "REACTIVATE" THEN
	RecalcPath
	SetDriveStatus
	GOTO GETPATHL1
    ELSEIF sz$ = "EXIT" THEN
	GOSUB ASKQUIT
	GOTO GETPATHL1
    ELSE
	UIPop 1
	GOTO CUSTINST
    END IF



PCDMOSFILES:
    SetSymbolValue "RadioDefault", OPT1OPT$
OPT1L1:
    sz$ = UIStartDlg(CUIDLL$, OPTIONS, "FRadioDlgProc", APPHELP, HELPPROC$)
    newopt$ = GetSymbolValue("ButtonChecked")

    IF sz$ = "CONTINUE" THEN
	UIPop 1
	IF newopt$ <> OPT1OPT$ THEN
	    OPT1OPT$ = newopt$
	    RecalcOptFiles PCDMOSFILES
	    SetDriveStatus
	END IF
	newopt$ = ""
	GOTO CUSTINST
    ELSEIF sz$ = "REACTIVATE" THEN
	RecalcPath
	SetDriveStatus
	GOTO OPT1L1
    ELSEIF sz$ = "EXIT" THEN
	GOSUB ASKQUIT
	GOTO OPT1L1
    ELSE
	UIPop 1
	newopt$ = ""
	GOTO CUSTINST
    END IF



PCDAUDFILES:
    SetSymbolValue "RadioDefault", OPT2OPT$
OPT2L1:
    sz$ = UIStartDlg(CUIDLL$, OPTIONS, "FRadioDlgProc", APPHELP, HELPPROC$)
    newopt$ = GetSymbolValue("ButtonChecked")

    IF sz$ = "CONTINUE" THEN
	UIPop 1
	IF newopt$ <> OPT2OPT$ THEN
	    OPT2OPT$ = newopt$
	    RecalcOptFiles PCDAUDFILES
	    SetDriveStatus
	END IF
	newopt$ = ""
	GOTO CUSTINST
    ELSEIF sz$ = "REACTIVATE" THEN
	RecalcPath
	SetDriveStatus
	GOTO OPT2L1
    ELSEIF sz$ = "EXIT" THEN
	GOSUB ASKQUIT
	GOTO OPT2L1
    ELSE
	UIPop 1
	newopt$ = ""
	GOTO CUSTINST
    END IF



PCDSCRFILES:
    SetSymbolValue "RadioDefault", OPT3OPT$
OPT3L1:
    sz$ = UIStartDlg(CUIDLL$, OPTIONS, "FRadioDlgProc", APPHELP, HELPPROC$)
    newopt$ = GetSymbolValue("ButtonChecked")

    IF sz$ = "CONTINUE" THEN
	UIPop 1
	IF newopt$ <> OPT1OPT$ THEN
	    OPT3OPT$ = newopt$
	    RecalcOptFiles PCDSCRFILES
	    SetDriveStatus
	END IF
	newopt$ = ""
	GOTO CUSTINST
    ELSEIF sz$ = "REACTIVATE" THEN
	RecalcPath
	SetDriveStatus
	GOTO OPT3L1
    ELSEIF sz$ = "EXIT" THEN
	GOSUB ASKQUIT
	GOTO OPT3L1
    ELSE
	UIPop 1
	newopt$ = ""
	GOTO CUSTINST
    END IF



PCDWALFILES:
    SetSymbolValue "RadioDefault", OPT4OPT$
OPT4L1:
    sz$ = UIStartDlg(CUIDLL$, OPTIONS, "FRadioDlgProc", APPHELP, HELPPROC$)
    newopt$ = GetSymbolValue("ButtonChecked")

    IF sz$ = "CONTINUE" THEN
	UIPop 1
	IF newopt$ <> OPT4OPT$ THEN
	    OPT4OPT$ = newopt$
	    RecalcOptFiles PCDWALFILES
	    SetDriveStatus
	END IF
	newopt$ = ""
	GOTO CUSTINST
    ELSEIF sz$ = "REACTIVATE" THEN
	RecalcPath
	SetDriveStatus
	GOTO OPT4L1
    ELSEIF sz$ = "EXIT" THEN
	GOSUB ASKQUIT
	GOTO OPT4L1
    ELSE
	UIPop 1
	newopt$ = ""
	GOTO CUSTINST
    END IF



TOOBIG:
    sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FInfo0DlgProc", 0, "")
    IF sz$ = "REACTIVATE" THEN
	RecalcPath
	SetDriveStatus
	GOTO TOOBIG
    END IF
    UIPop 1
    RETURN



BADPATH:
    sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
    IF sz$ = "REACTIVATE" THEN
	RecalcPath
	SetDriveStatus
	GOTO BADPATH
    END IF
    UIPop 1
    RETURN



ASKQUIT:
    sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")

    IF sz$ = "EXIT" THEN
	UIPopAll
	ERROR STFQUIT
    ELSEIF sz$ = "REACTIVATE" THEN
	GOTO ASKQUIT
    ELSE
	UIPop 1
    END IF
    RETURN



'**
'** Purpose:
'**     Adds the specified option files to the copy list.
'** Arguments:
'**     ftype%  - type of files to add, one of the following:
'**             PCDLABFILES, PCDAUDFILES, PCDMOSFILES, PCDSCRFILES, PCDWALFILES
'** Returns:
'**     none.
'*************************************************************************
SUB AddOptFilesToCopyList (ftype%) STATIC

    IF GetListItem(CHECKSTATES$, ftype%) = "ON" THEN
	SrcDir$ = GetSymbolValue("STF_SRCDIR")
	WinDirLen = LEN(GetWindowsDir)-1
	WinDir$ = MID$(GetWindowsDir,1,WinDirLen)
	InstDrive$ = MID$(DEST$,1,2)
	IF ftype% = PCDLABFILES THEN
	    AddSectionFilesToCopyList "PcdLabFiles", SrcDir$, DEST$ + "\PCDLAB"
	    FLAG1$="Yes"
	    FLAG2$="Yes"
	    FLAG3$="Yes"
	ELSEIF ftype% = PCDMOSFILES THEN
	 IF DoesIniKeyExist("WIN.INI", "CorelGraphics4", "Dir") = 1 THEN
	     CorelAppDir$ = GetIniKeyString("WIN.INI", "CorelGraphics4", "Dir")
	     MosDir$ = GetIniKeyString(CorelAppDir$ + "\CORELAPP.INI", "Config", "ProgramsDir")
	     IF MosDir$ <> "" THEN
	       IF DoesFileExist(MosDir$ + "\CORELMOS.EXE", femExists) = 1 THEN
		 MosFlag$ = "Yes"
	       ELSE
		 MosFlag$ = ""
	       END IF
	       AddSectionFilesToCopyList "PcdMosFiles", SrcDir$, MosDir$
	       AddSectionFilesToCopyList "PcdMosUtils", SrcDir$, MosDir$
	     ELSE
	      AddSectionFilesToCopyList "PcdMosFiles", SrcDir$, DEST$ + "\MOSAIC\PROGRAMS"
	      AddSectionFilesToCopyList "PcdMosUtils", SrcDir$, DEST$ + "\MOSAIC\CUSTOM"
	      AddSectionFilesToCopyList "PcdMosInis", SrcDir$, DEST$ + "\MOSAIC\CONFIG"
	      AddSectionFilesToCopyList "PcdMosData", SrcDir$, DEST$ + "\MOSAIC\PROGRAMS\DATA"
	     END IF 
	 ELSE 
	      AddSectionFilesToCopyList "PcdMosFiles", SrcDir$, DEST$ + "\MOSAIC\PROGRAMS"
	      AddSectionFilesToCopyList "PcdMosUtils", SrcDir$, DEST$ + "\MOSAIC\CUSTOM"
	      AddSectionFilesToCopyList "PcdMosInis", SrcDir$, DEST$ + "\MOSAIC\CONFIG"
	      AddSectionFilesToCopyList "PcdMosData", SrcDir$, DEST$ + "\MOSAIC\PROGRAMS\DATA"
	 END IF
	    FLAG1$="Yes"
	    FLAG3$="Yes"
	ELSEIF ftype% = PCDAUDFILES THEN
	    AddSectionFilesToCopyList "PcdAudFiles", SrcDir$, DEST$ + "\PCDAUDIO"
	ELSEIF ftype% = PCDSCRFILES THEN
	    AddSectionFilesToCopyList "PcdScrFiles", SrcDir$, GetWindowsDir
	    FLAG3$="Yes"
	ELSEIF ftype% = PCDWALFILES THEN
	    AddSectionFilesToCopyList "PcdWalFiles", SrcDir$, GetWindowsDir
	END IF
	IF FLAG1$="Yes" THEN
	    CreateIniKeyValue "WIN.INI", "Extensions", "PCD", DEST$ + "\PCDLAB\PCDSCSI.EXE ^.PCD", cmoNone
	    AddSectionFilesToCopyList "PcdDllFiles", SrcDir$, GetWindowsSysDir
	    IF DoesFileExist(GetWindowsDir + "PCDLIB.DLL", femExists) =1 THEN
		RemoveFile GetWindowsDir + "PCDLIB.DLL", cmoNone
	    END IF
	    IF DoesFileExist(GetWindowsDir + "PCDXTIF.DLL", femExists) =1 THEN
		RemoveFile GetWindowsDir + "PCDXTIF.DLL", cmoNone
	    END IF
	    IF DoesFileExist(GetWindowsDir + "PCDXEPS.DLL", femExists) =1 THEN
		RemoveFile GetWindowsDir + "PCDXEPS.DLL", cmoNone
	    END IF
	    IF DoesFileExist(GetWindowsDir + "PCDXPCX.DLL", femExists) =1 THEN
		RemoveFile GetWindowsDir + "PCDXPCX.DLL", cmoNone
	    END IF
	    IF DoesFileExist(GetWindowsDir + "PCDXBMP.DLL", femExists) =1 THEN
		RemoveFile GetWindowsDir + "PCDXBMP.DLL", cmoNone
	    END IF
	END IF
	IF FLAG2$="Yes" THEN
	    AddSectionFilesToCopyList "PcdCtlFile", SrcDir$, GetWindowsSysDir
	END IF
	IF FLAG3$="Yes" THEN
	    AddSectionFilesToCopyList "PcdDllFile", SrcDir$, GetWindowsSysDir
	END IF
	    AddSectionFilesToCopyList "PcdReadMe", SrcDir$, DEST$
	FLAG1$="No"
	FLAG2$="No"
	FLAG3$="No"
	SrcDir$ = ""
    END IF
END SUB

'**
'** Purpose:
'**     Recalculates disk space for the given option files and sets
'**     the status info symbol "StatusItemsText".
'** Arguments:
'**     ftype% - type of files to add, one of the following:
'**             PCDLABFILES, PCDMOSFILES, PCDAUDFILES, PCDSCRFILES, PCDWALFILES
'** Returns:
'**     none.
'*************************************************************************
SUB RecalcOptFiles (ftype%) STATIC
    CursorSave% = ShowWaitCursor()
    ClearCopyList
    AddOptFilesToCopyList ftype%

    fExtra% = 0
    IF ftype% = PCDLABFILES THEN
	ListSym$ = PCDLABNEEDS$
       IF GetListItem(CHECKSTATES$, PCDLABFILES) = "ON" THEN
	   ''Add extra cost to Windows drive for ini/progman, etc.
	   ndrive% = ASC(ucase$(WINDRIVE$)) - ASC("A") + 1
	   ReplaceListItem EXTRACOSTS$, ndrive%, "0"
	   fExtra% = 1
       END IF
    ELSEIF ftype% = PCDMOSFILES THEN
	ListSym$ = PCDMOSNEEDS$
    ELSEIF ftype% = PCDAUDFILES THEN
	ListSym$ = PCDAUDNEEDS$
    ELSEIF ftype% = PCDSCRFILES THEN
	ListSym$ = PCDSCRNEEDS$
    ELSEIF ftype% = PCDWALFILES THEN
	ListSym$ = PCDWALNEEDS$
    END IF

    StillNeed& = GetCopyListCost(EXTRACOSTS$, ListSym$, "")

    cost& = 0
    FOR i% = 1 TO 26 STEP 1
	cost&  = cost& + VAL(GetListItem(ListSym$, i%))
    NEXT i%
    ReplaceListItem STATUSTEXT$, ftype%, STR$(cost& / 1024) + " K"

    IF StillNeed& > 0 THEN
	ReplaceListItem BIGLIST$, ftype%, "YES"
    ELSE
	ReplaceListItem BIGLIST$, ftype%, ""
    END IF

'    IF fExtra% THEN
'        ReplaceListItem EXTRACOSTS$, ndrive%, "10240"
'    END IF
    RestoreCursor CursorSave%
    ListSym$ = ""
END SUB


'**
'** Purpose:
'**     Recalculates disk space and sets option status info according
'**     to the current destination path.
'** Arguments:
'**     none.
'** Returns:
'**     none.
'*************************************************************************
SUB RecalcPath STATIC

    CursorSave% = ShowWaitCursor()

    RecalcOptFiles PCDLABFILES
    RecalcOptFiles PCDMOSFILES
    RecalcOptFiles PCDAUDFILES
    RecalcOptFiles PCDSCRFILES
    RecalcOptFiles PCDWALFILES

    RestoreCursor CursorSave%
END SUB


'**
'** Purpose:
'**     Sets drive status info according to latest disk space calcs.
'** Arguments:
'**     none.
'** Returns:
'**     none.
'*************************************************************************
SUB SetDriveStatus STATIC

    drive$ = MID$(DEST$, 1, 1)
    ndrive% = ASC(ucase$(drive$)) - ASC("A") + 1
    cost& = VAL(GetListItem(PCDLABNEEDS$, ndrive%)) + VAL(GetListItem(PCDMOSNEEDS$, ndrive%)) + VAL(GetListItem(PCDAUDNEEDS$, ndrive%)) + VAL(GetListItem(PCDSCRNEEDS$, ndrive%)) + VAL(GetListItem(PCDWALNEEDS$, ndrive%))
    free& = GetFreeSpaceForDrive(drive$)
    ReplaceListItem DRIVETEXT$, 1, drive$ + ":"
    ReplaceListItem DRIVETEXT$, 2, STR$(cost& / 1024) + " K"
    ReplaceListItem DRIVETEXT$, 3, STR$(free& / 1024) + " K"

    IF drive$ = WINDRIVE$ THEN
	ReplaceListItem DRIVETEXT$, 4, ""
	ReplaceListItem DRIVETEXT$, 5, ""
	ReplaceListItem DRIVETEXT$, 6, ""
    ELSE
	ndrive% = ASC(ucase$(WINDRIVE$)) - ASC("A") + 1
	cost& = VAL(GetListItem(PCDLABNEEDS$, ndrive%)) + VAL(GetListItem(PCDMOSNEEDS$, ndrive%)) + VAL(GetListItem(PCDAUDNEEDS$, ndrive%)) + VAL(GetListItem(PCDSCRNEEDS$, ndrive%)) + VAL(GetListItem(PCDWALNEEDS$, ndrive%))
	IF cost& = 0 THEN
	    ReplaceListItem DRIVETEXT$, 4, ""
	    ReplaceListItem DRIVETEXT$, 5, ""
	    ReplaceListItem DRIVETEXT$, 6, ""
	ELSE
	    free& = GetFreeSpaceForDrive(WINDRIVE$)
	    ReplaceListItem DRIVETEXT$, 4, WINDRIVE$ + ":"
	    ReplaceListItem DRIVETEXT$, 5, STR$(cost& / 1024) + " K"
	    ReplaceListItem DRIVETEXT$, 6, STR$(free& / 1024) + " K"
	END IF
    END IF
END SUB


'**
'** Purpose:
'**     Appends a file name to the end of a directory path,
'**     inserting a backslash character as needed.
'** Arguments:
'**     szDir$  - full directory path (with optional ending "\")
'**     szFile$ - filename to append to directory
'** Returns:
'**     Resulting fully qualified path name.
'*************************************************************************
FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
    IF szDir$ = "" THEN
	MakePath = szFile$
    ELSEIF szFile$ = "" THEN
	MakePath = szDir$
    ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
	MakePath = szDir$ + szFile$
    ELSE
	MakePath = szDir$ + "\" + szFile$
    END IF
END FUNCTION