SUB InitDefaultPaths STATIC
EXE_PATH$ = "EXE_PATH"
PREV_INSTALL$ = "PREV"
SetSymbolValue PREV_INSTALL$, "NO"
	
WINDRIVE$ = MID$ (WinDir$, 1, 1)
nWinDrive% = ASC (ucase$ (WINDRIVE$)) - ASC ("A") + 1

ini$ = MakePath (GetWindowsDir, "POWERUP.INI")

'' Pick up Calendar's Event List Path

DEST$ = LCASE$ (GetIniKeyString (ini$, "Calendar Creator Windows", "ProgramPath"))
IF DEST$ = "" THEN
  DEST$ = LCASE$ (GetIniKeyString (ini$, "POWERALBUM", "Path"))
ENDIF
IF DEST$ = "" THEN
  DEST$ = LCASE$ (MakePath(WinDir$, "CCWIN"))
ELSE
  ii% = DoesFileExist (MakePath (DEST$,"CCWIN.EXE"), femExists)
  szVerStr$ = GetVersionOfFile (MakePath (DEST$, "CCWIN.EXE"))
  ver& = GetVersionNthField (szVerStr$, 1)
  if (ii% = 1) AND (ver& >= 2 ) then
    SetSymbolValue PREV_INSTALL$, "YES"
  endif
ENDIF

'' Pick up the art directory from POWERUP.INI

DEST_ART$ = LCASE$ (GetIniKeyString (ini$, "ART", "Path"))
IF DEST_ART$ = "" THEN
  DEST_ART$ = LCASE$ (MakePath(WinDir$, "POWERUP\ART"))
ENDIF

'' Pick up the graphics filters directory from POWERUP.INI

DEST_FILTERS$ = LCASE$ (GetIniKeyString (ini$, "GRAPHICS FILTERS", "NewPath"))
IF DEST_FILTERS$ = "" THEN
  DEST_FILTERS$ = LCASE$ (GetIniKeyString (ini$, "GRAPHICS FILTERS", "Path"))
  if DEST_FILTERS$ = "" then
    DEST_FILTERS$ = LCASE$ (MakePath( WinDir$, "POWERUP\FILTERS"))
ENDIF
ENDIF
SetSymbolValue EXE_PATH$, DEST$
	
PROGDRIVE$ = MID$ (DEST$, 1, 1)
ARTDRIVE$ = MID$ (DEST_ART$, 1, 1)
FILTERSDRIVE$ = MID$ (DEST_FILTERS$, 1, 1)
END SUB

SUB InitMainDialogSymbols STATIC
STR_REQ$ = "StrSelReq"
STR_AVAIL$ = "StrSelAvail"
DIALOG_LIST$ = "DialogList"
CHK_PROG_FILES$ = "ChkProgFiles"
CHK_CLIP_ART$ = "ChkClipArt"
STR_PROG_PATH$ = "StrProgPath"
STR_CLIP_ART_PATH$ = "StrClipArtPath"
STR_FILTERS_PATH$ = "StrFiltersPath"
STR_REQ_PROG$ = "StrReqProg"
STR_REQ_CLIP_ART$ = "StrReqClipArt"
STR_REQ_FILTERS$ = "StrReqFilters"
STR_AVAIL_PROG$ = "StrAvailProg"
STR_AVAIL_ART$ = "StrAvailArt"
STR_AVAIL_FILTERS$ = "StrAvailFilters"
STR_REQ_PROG2$ = "StrReqProg2"
STR_REQ_CLIP_ART2$ = "StrReqClipArt2"
STR_REQ_ART_DLG$ = "STR_REQ_ART_DLG$"
STR_AVAIL_ART_DLG$ = "STR_AVAIL_ART_DLG$"
STR_REQ_GEN$ = "STR_REQ_GEN$"
STR_AVAIL_GEN$ = "STR_AVAIL_GEN$"

SetSymbolValue STR_REQ_ART_DLG$, "0"
SetSymbolValue STR_AVAIL_ART_DLG$, "0"
SetSymbolValue CHK_PROG_FILES$, "ON"
SetSymbolValue CHK_CLIP_ART$, "ON"
SetSymbolValue STR_PROG_PATH$, DEST$
SetSymbolValue STR_CLIP_ART_PATH$, DEST_ART$
SetSymbolValue STR_FILTERS_PATH$, DEST_FILTERS$
SetSymbolValue STR_REQ_PROG$, "0"
SetSymbolValue STR_REQ_CLIP_ART$, "0"
SetSymbolValue STR_REQ_FILTERS$, "0"
SetSymbolValue STR_AVAIL_PROG$, "0"
SetSymbolValue STR_AVAIL_ART$, "0"
SetSymbolValue STR_AVAIL_FILTERS$, "0"
SetSymbolValue STR_REQ_PROG2$, "0"
SetSymbolValue STR_REQ_CLIP_ART2$, "0"
END SUB

SUB InitArtDialogSymbols STATIC
DIA_ART$="DiaArtChk"
AddListItem DIALOG_LIST$, DIA_ART$

CHK_ART00$ = "ChkArt00"
AddListItem DIA_ART$, CHK_ART00$ '' Add checkbox to dialog list
AddListItem CHK_ART00$, "ON" '' Status
AddListItem CHK_ART00$, "ON" '' Temp Status -- used for dialogs
AddListItem CHK_ART00$, "artBusiness" '' File Section -- tied in with .INF
AddListItem CHK_ART00$, "300" '' Dialog Template ID
AddListItem CHK_ART00$, "0" '' Disk cost of checked item
AddListItem CHK_ART00$, "BUS.ALB"
AddListItem CHK_ART00$, "artBusinessAlb"
AddListItem CHK_ART00$, "0"

CHK_ART04$ = "ChkArt04"
AddListItem DIA_ART$, CHK_ART04$
AddListItem CHK_ART04$, "ON"
AddListItem CHK_ART04$, "ON"
AddListItem CHK_ART04$, "artEducation"
AddListItem CHK_ART04$, "304"
AddListItem CHK_ART04$, "0"
AddListItem CHK_ART04$, "EDU.ALB"
AddListItem CHK_ART04$, "artEducationAlb"
AddListItem CHK_ART04$, "0"

CHK_ART05$ = "ChkArt05"
AddListItem DIA_ART$, CHK_ART05$
AddListItem CHK_ART05$, "ON"
AddListItem CHK_ART05$, "ON"
AddListItem CHK_ART05$, "artGovernment"
AddListItem CHK_ART05$, "305"
AddListItem CHK_ART05$, "0"
AddListItem CHK_ART05$, "GOV.ALB"
AddListItem CHK_ART05$, "artGovernmentAlb"
AddListItem CHK_ART05$, "0"

CHK_ART01$ = "ChkArt01"
AddListItem DIA_ART$, CHK_ART01$
AddListItem CHK_ART01$, "ON"
AddListItem CHK_ART01$, "ON"
AddListItem CHK_ART01$, "artHolidays"
AddListItem CHK_ART01$, "301"
AddListItem CHK_ART01$, "0"
AddListItem CHK_ART01$, "HOL.ALB"
AddListItem CHK_ART01$, "artHolidaysAlb"
AddListItem CHK_ART01$, "0"
	
CHK_ART02$ = "ChkArt02"
AddListItem DIA_ART$, CHK_ART02$
AddListItem CHK_ART02$, "ON"
AddListItem CHK_ART02$, "ON"
AddListItem CHK_ART02$, "artPersonal"
AddListItem CHK_ART02$, "302"
AddListItem CHK_ART02$, "0"
AddListItem CHK_ART02$, "PER.ALB"
AddListItem CHK_ART02$, "artPersonalAlb"
AddListItem CHK_ART02$, "0"

CHK_ART06$ = "ChkArt06"
AddListItem DIA_ART$, CHK_ART06$
AddListItem CHK_ART06$, "ON"
AddListItem CHK_ART06$, "ON"
AddListItem CHK_ART06$, "artPresidents"
AddListItem CHK_ART06$, "306"
AddListItem CHK_ART06$, "0"
AddListItem CHK_ART06$, "PRE.ALB"
AddListItem CHK_ART06$, "artPresidentsAlb"
AddListItem CHK_ART06$, "0"

CHK_ART07$ = "ChkArt07"
AddListItem DIA_ART$, CHK_ART07$
AddListItem CHK_ART07$, "ON"
AddListItem CHK_ART07$, "ON"
AddListItem CHK_ART07$, "artReligion"
AddListItem CHK_ART07$, "307"
AddListItem CHK_ART07$, "0"
AddListItem CHK_ART07$, "REL.ALB"
AddListItem CHK_ART07$, "artReligionAlb"
AddListItem CHK_ART07$, "0"

CHK_ART03$ = "ChkArt03"
AddListItem DIA_ART$, CHK_ART03$
AddListItem CHK_ART03$, "ON"
AddListItem CHK_ART03$, "ON"
AddListItem CHK_ART03$, "artSports"
AddListItem CHK_ART03$, "303"
AddListItem CHK_ART03$, "0"
AddListItem CHK_ART03$, "SPO.ALB"
AddListItem CHK_ART03$, "artSportsAlb"
AddListItem CHK_ART03$, "0"
	
CHK_ART08$ = "ChkArt08"
AddListItem DIA_ART$, CHK_ART08$
AddListItem CHK_ART08$, "ON"
AddListItem CHK_ART08$, "ON"
AddListItem CHK_ART08$, "artSymbols"
AddListItem CHK_ART08$, "308"
AddListItem CHK_ART08$, "0"
AddListItem CHK_ART08$, "SYM.ALB"
AddListItem CHK_ART08$, "artSymbolsAlb"
AddListItem CHK_ART08$, "0"
END SUB

SUB ReInitArtDialogSymbols STATIC
'' Get the cost of the CLIP ART
j% = GetListLength (DIA_ART$)

FOR i% = 1 to j% STEP 1
   szChkSym$ = GetListItem (DIA_ART$, i%)
   ReplaceListItem szChkSym$, STATUS, "ON"
   NEXT i%
END SUB
