On Hand/On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso/00018/s/msp2.ms_/msp2.bin

Text File | 1993-06-28 | 62KB | 2,045 lines

''INTL Remove one ' from line below
''$DEFINE INTL

GLOBAL hSetup AS INTEGER
GLOBAL fFrameInit AS INTEGER
GLOBAL fInstallInit AS INTEGER

CONST WF_STANDARD =   16
CONST WF_ENHANCED =   32
CONST WF_WINNT = 16384

CONST MB_OK    = 0
CONST MB_ICONHAND = 16
CONST MB_TASKMODAL   = 8192

DECLARE FUNCTION GetWindowsDirectory LIB "kernel" (szBuf$, cbBuf%) AS INTEGER
DECLARE FUNCTION GetSystemDirectory LIB "kernel" (szBuf$, cbBuf%) AS INTEGER
DECLARE FUNCTION GetVersion LIB "kernel" AS INTEGER
DECLARE FUNCTION GetWinFlags LIB "kernel" AS LONG

CONST cmoCopy  = 2
CONST cmoOverwrite   = 1024
CONST cmoNone  = 0

CONST femExists  = 0

CONST grcOkay    = 0
CONST grcNotOkay = 1
CONST grcUserQuit   = 48

CONST cbSymValMax = 512

CONST STFERR   = 1024
CONST STFQUIT  = 1025

DECLARE FUNCTION FOpenInf LIB "mscomstf.dll" (szFile$, fCheck%, fCheckSyms%) AS INTEGER
DECLARE FUNCTION HShowWaitCursor LIB "msshlstf.dll" AS INTEGER
DECLARE FUNCTION FRestoreCursor  LIB "msshlstf.dll" (hPrev%) AS INTEGER
DECLARE FUNCTION FMakeListInfSectionField LIB "mscomstf.dll" (szSym$, szSect$, iField%) AS INTEGER

DECLARE FUNCTION FSetBitmap LIB "msshlstf.dll" (szDll$, Bitmap%) AS INTEGER
DECLARE FUNCTION FDoDialogExt LIB "msuilstf.dll" (hwnd%, szDll$, Dlg%, szDlgProc$, szHelpDll$, HelpDlg%, szHelpProc$) AS INTEGER
DECLARE FUNCTION FKillNDialogs LIB "msuilstf.dll" (n%) AS INTEGER
DECLARE SUB SetWindowText LIB "User" (hwnd%, lpString$)
DECLARE FUNCTION FSetSymbolValue LIB "msshlstf.dll" (szSymbol$, szValue$) AS INTEGER
DECLARE FUNCTION FRemoveSymbol LIB "mscomstf.dll" (szSym$) AS INTEGER
DECLARE FUNCTION CbGetSymbolValue LIB "mscomstf.dll" (szSymbol$, szValue$, Length%) AS INTEGER
DECLARE FUNCTION UsGetListLength LIB "mscomstf.dll" (szSymbol$) AS INTEGER
DECLARE FUNCTION CbGetListItem LIB "mscomstf.dll" (szListSymbol$, n%, szListItem$, cbMax%) AS INTEGER
DECLARE FUNCTION FAddListItem LIB "mscomstf.dll" (szListSymbol$, szListItem$) AS INTEGER
DECLARE FUNCTION FReplaceListItem LIB "mscomstf.dll" (szListSymbol$, n%, szListItem$) AS INTEGER

DECLARE FUNCTION InitializeFrame LIB "msshlstf.dll" (szCmdLine$) AS INTEGER
DECLARE FUNCTION HwndFrame LIB "msshlstf.dll" AS INTEGER
DECLARE FUNCTION HinstFrame LIB "msshlstf.dll" AS INTEGER

DECLARE SUB   ProSetPos LIB "msinsstf.dll" (x%, y%)
DECLARE FUNCTION FAddSectionFilesToCopyList LIB "mscomstf.dll" (szSect$, szSrc$, szDest$) AS INTEGER
DECLARE FUNCTION FAddSectionKeyFileToCopyList LIB "mscomstf.dll" (szSect$, szKey$, szSrc$, szDest$) AS INTEGER
DECLARE FUNCTION GrcCopyFilesInCopyList LIB "msinsstf.dll" (hInstance%) AS INTEGER
DECLARE FUNCTION FRemoveIniSection LIB "msinsstf.dll" (szFile$, szSect$, cmo%) AS INTEGER
DECLARE FUNCTION FCreateIniKeyValue LIB "msinsstf.dll" (szFile$, szSect$, szKey$, szValue$, cmo%) AS INTEGER
DECLARE FUNCTION FRemoveIniKey LIB "msinsstf.dll" (szFile$, szSect$, szKey$, cmo%) AS INTEGER
DECLARE FUNCTION FCreateProgManGroup LIB "msinsstf.dll" (szGroup$, szPath$, cmo%) AS INTEGER
DECLARE FUNCTION FCreateProgManItem LIB "msinsstf.dll" (szGroup$, szItem$, szCmd$, cmo%) AS INTEGER
DECLARE FUNCTION FShowProgManGroup LIB "msinsstf.dll" (szGroup$, szCmd$, cmo%) AS INTEGER
DECLARE SUB   ResetCopyList LIB "msinsstf.dll"
DECLARE FUNCTION LcbGetCopyListCost LIB "msinsstf.dll" (szExtraList$, szCostList$, szNeedList$) AS LONG
DECLARE FUNCTION FInitializeInstall LIB "msinsstf.dll" (hinst%, hwndFrame%) AS INTEGER
DECLARE FUNCTION FIsDirWritable LIB "msinsstf.dll" (szDir$) AS INTEGER
DECLARE FUNCTION FAddToBillboardList LIB "msinsstf.dll" (szDll$, idDlg%, szProc$, lTicks&) AS INTEGER
DECLARE FUNCTION SetDecompMode LIB "msinsstf.dll" (fMode%) AS INTEGER

DECLARE SUB SetBitmap(szDll$, Bitmap%)
DECLARE FUNCTION UIStartDlg(szDll$, Dlg%, szDlgProc$, HelpDlg%, szHelpProc$) AS STRING
DECLARE SUB UIPop (n%)
DECLARE SUB UIPopAll
DECLARE SUB SetTitle (sz$)
DECLARE SUB ReadInfFile (szFile$)
DECLARE SUB SetSymbolValue (szSymbol$, szValue$)
DECLARE SUB RemoveSymbol (szSym$)
DECLARE FUNCTION GetSymbolValue (szSymbol$) AS STRING
DECLARE FUNCTION GetListLength(szSymbol$) AS INTEGER
DECLARE FUNCTION GetListItem(szSymbol$, n%) AS STRING
DECLARE SUB AddListItem(szSymbol$, szItem$)
DECLARE SUB ReplaceListItem(szSymbol$, n%, szItem$)

DECLARE FUNCTION InitFrame (szCmdLine$) AS INTEGER
DECLARE FUNCTION InitSetup (szCmdLine$) AS INTEGER

DECLARE FUNCTION ShowWaitCursor AS INTEGER
DECLARE SUB RestoreCursor (hPrev%)
DECLARE SUB MakeListFromSectionFilename (szSym$, szSect$)

DECLARE SUB AddSectionFilesToCopyList (szSect$, szSrc$, szDest$)
DECLARE SUB AddSectionKeyFileToCopyList (szSect$, szKey$, szSrc$, szDest$)
DECLARE SUB CopyFilesInCopyList
DECLARE SUB RemoveIniSection (szFile$, szSect$, cmo%)
DECLARE SUB CreateIniKeyValue (szFile$, szSect$, szKey$, szValue$, cmo%)
DECLARE SUB RemoveIniKey (szFile$, szSect$, szKey$, cmo%)
DECLARE SUB CreateProgmanGroup (szGroup$, szPath$, cmo%)
DECLARE SUB CreateProgmanItem (szGroup$, szItem$, szCmd$, szOther$, cmo%)
DECLARE SUB ShowProgmanGroup (szGroup$, Cmd%, cmo%)
DECLARE SUB ClearCopyList
DECLARE FUNCTION GetCopyListCost (szExtraList$, szCostList$, szNeedList$) AS LONG
DECLARE SUB InitInstall
DECLARE SUB AddToBillboardList (szDll$, idDlg%, szProc$, lTicks&)
DECLARE SUB SetCopyGaugePosition (x%, y%)
DECLARE FUNCTION IsDirWritable (szDir$) AS INTEGER

DECLARE FUNCTION GetWindowsMajorVersion AS INTEGER
DECLARE FUNCTION GetWindowsMinorVersion AS INTEGER
DECLARE FUNCTION GetWindowsMode AS INTEGER
DECLARE FUNCTION GetWindowsDir  AS STRING
DECLARE FUNCTION GetWindowsSysDir AS STRING

FUNCTION InitSetup(szCmdLine$) STATIC AS INTEGER
 fFrameInit = 0
 fInstallInit = 0

 IF hSetup > 0 THEN
 END IF

 i% = InitFrame(szCmdLine$)
 fFrameInit = 1

 InitInstall
 fInstallInit = 1

 InitSetup = i%
END FUNCTION

FUNCTION InitFrame(szCmdLine$) STATIC AS INTEGER
 IF hSetup > 0 THEN
 ELSE
  i% = InitializeFrame(szCmdLine$)
  IF i% = -1 THEN
   END
  ELSEIF i% = 0 THEN
   END
  ELSE
   InitFrame = i%
  END IF
 END IF
END FUNCTION

SUB SetBitmap(szDll$, Bitmap%) STATIC
 IF FSetBitmap(szDll$, Bitmap%) = 0 THEN
  ERROR STFERR
 END IF
END SUB

SUB SetTitle(sz$) STATIC
 SetWindowText HwndFrame(), sz$
END SUB

SUB ReadInfFile (szFile$) STATIC
 IF FOpenInf(szFile$, 1, 0) = 0 THEN
  ERROR STFERR
 END IF
END SUB

FUNCTION UIStartDlg(szDll$, Dlg%, szDlgProc$, HelpDlg%, szHelpProc$) STATIC AS STRING
 IF FDoDialogExt(HwndFrame(), szDll$, Dlg%, szDlgProc$, szDll$, HelpDlg%, szHelpProc$) = 0 THEN
  ERROR STFERR
 ELSE
  UIStartDlg = GetSymbolValue("DLGEVENT")
 END IF
END FUNCTION

SUB UIPop (n%) STATIC
 IF FKillNDialogs(n%) = 0 THEN
  ERROR STFERR
 END IF
END SUB

SUB UIPopAll STATIC
 IF FKillNDialogs(65535) = 0 THEN
  ERROR STFERR
 END IF
END SUB

FUNCTION GetSymbolValue(szSymbol$) STATIC AS STRING
 szValue$ = string$(cbSymValMax,32)
 Length% = CbGetSymbolValue(szSymbol$, szValue$, cbSymValMax)
 GetSymbolValue = szValue$
 IF Length% >= cbSymValMax THEN
  ERROR STFERR
 END IF
 IF szSymbol$ = "" THEN
  ERROR STFERR
 END IF
 szValue$ = ""
END FUNCTION

FUNCTION GetListLength(szSymbol$) STATIC AS INTEGER
 GetListLength = UsGetListLength(szSymbol$)
 IF szSymbol$ = "" THEN
  ERROR STFERR
 END IF
END FUNCTION

FUNCTION GetListItem(szListSymbol$, nItem%) STATIC AS STRING
 szListItem$ = string$(cbSymValMax,32)
 Length% = CbGetListItem(szListSymbol$, nItem%, szListItem$, cbSymValMax)
 GetListItem = szListItem$
 IF Length% >= cbSymValMax THEN
  ERROR STFERR
 END IF
 IF szListSymbol$ = "" THEN
  ERROR STFERR
 END IF
 if nItem% <= 0 or nItem% > GetListLength(szListSymbol$) then
  ERROR STFERR
 end if
 szListItem$ = ""
END FUNCTION

SUB AddListItem(szSymbol$, szItem$) STATIC
 IF FAddListItem(szSymbol$, szItem$) = 0 THEN
  ERROR STFERR
 END IF
END SUB

SUB ReplaceListItem(szSymbol$, n%, szItem$) STATIC
 IF FReplaceListItem(szSymbol$, n%, szItem$) = 0 THEN
  ERROR STFERR
 END IF
END SUB

SUB SetSymbolValue(szSymbol$, szValue$) STATIC
 IF FSetSymbolValue(szSymbol$, szValue$) = 0 THEN
  ERROR STFERR
 END IF
END SUB

SUB RemoveSymbol(szSym$) STATIC
 IF FRemoveSymbol(szSym$) = 0 THEN
  ERROR STFERR
 END IF
END SUB

FUNCTION ShowWaitCursor STATIC AS INTEGER
 ShowWaitCursor = HShowWaitCursor
END FUNCTION

SUB RestoreCursor (hPrev%) STATIC
 i% = FRestoreCursor(hPrev%)
 IF i% = 0 THEN
  ERROR STFERR
 END IF
END SUB

SUB MakeListFromSectionFilename (szSym$, szSect$) STATIC
 IF FMakeListInfSectionField(szSym$, szSect$, 1) = 0 THEN
  ERROR STFERR
 END IF
END SUB

SUB InitInstall STATIC
 IF hSetup > 0 THEN
 ELSEIF FInitializeInstall(HinstFrame(), HwndFrame()) = 0 THEN
  END
 END IF
END SUB

SUB RemoveIniSection (szFile$, szSect$, cmo%) STATIC
 IF FRemoveIniSection(szFile$, szSect$, cmo%) = 0 THEN
  ERROR STFERR
 END IF
END SUB


SUB CreateIniKeyValue (szFile$, szSect$, szKey$, szValue$, cmo%) STATIC
 IF FCreateIniKeyValue(szFile$, szSect$, szKey$, szValue$, cmo%) = 0 THEN
  ERROR STFERR
 END IF
END SUB

SUB RemoveIniKey (szFile$, szSect$, szKey$, cmo%) STATIC
 IF FRemoveIniKey(szFile$, szSect$, szKey$, cmo%) = 0 THEN
  ERROR STFERR
 END IF
END SUB

SUB CreateProgmanGroup (szGroup$, szPath$, cmo%) STATIC
 IF FCreateProgManGroup(szGroup$, szPath$, cmo%) = 0 THEN
  ERROR STFERR
 END IF
END SUB

SUB ShowProgmanGroup (szGroup$, Cmd%, cmo%) STATIC
 IF FShowProgManGroup(szGroup$, STR$(Cmd%), cmo%) = 0 THEN
  ERROR STFERR
 END IF
END SUB

SUB ClearCopyList STATIC
 ResetCopyList
END SUB

FUNCTION GetCopyListCost (szExtraList$, szCostList$, szNeedList$) STATIC AS LONG
 lNeed& = LcbGetCopyListCost (szExtraList$, szCostList$, szNeedList$)
 IF lNeed& < 0 THEN
  ERROR STFERR
 END IF
 GetCopyListCost = lNeed&
END FUNCTION

SUB CreateProgmanItem (szGroup$, szItem$, szCmd$, szOther$, cmo%) STATIC
 szItemNew$ = szItem$
 IF szOther$ <> "" THEN
  szItemNew$ = szItem$ + "," + szOther$
 END IF

 IF FCreateProgManItem(szGroup$, szItemNew$, szCmd$, cmo%) = 0 THEN
  ERROR STFERR
 END IF
 szItemNew$ = ""
END SUB

SUB CopyFilesInCopyList STATIC
 grc% = GrcCopyFilesInCopyList (HinstFrame())

 IF grc% = grcUserQuit THEN
  ERROR STFQUIT
 ELSEIF grc% > 0 THEN
  ERROR STFERR
 END IF
END SUB

SUB AddSectionFilesToCopyList (szSect$, szSrc$, szDest$) STATIC
 IF FAddSectionFilesToCopyList (szSect$, szSrc$, szDest$) = 0 THEN
  ERROR STFERR
 END IF
END SUB

SUB AddSectionKeyFileToCopyList (szSect$, szKey$, szSrc$, szDest$) STATIC
 IF FAddSectionKeyFileToCopyList (szSect$, szKey$, szSrc$, szDest$) = 0 THEN
  ERROR STFERR
 END IF
END SUB

SUB AddToBillboardList (szDll$, idDlg%, szProc$, lTicks&) STATIC
 IF FAddToBillboardList(szDll$, idDlg%, szProc$, lTicks&) = 0 THEN
  ERROR STFERR
 END IF
END SUB

SUB SetCopyGaugePosition (x%, y%) STATIC
 ProSetPos x%, y%
END SUB

FUNCTION IsDirWritable (szDir$) STATIC AS INTEGER
 IsDirWritable = FIsDirWritable(szDir$)
END FUNCTION

FUNCTION GetWindowsMajorVersion STATIC AS INTEGER
 GetWindowsMajorVersion = GetVersion() MOD 256
END FUNCTION

FUNCTION GetWindowsMinorVersion STATIC AS INTEGER
 GetWindowsMinorVersion = GetVersion() / 256
END FUNCTION

FUNCTION GetWindowsMode STATIC AS INTEGER
 GetWindowsMode = 0
 longTmp& = GetWinFlags()
 IF longTmp& AND WF_WINNT THEN
  GetWindowsMode = 3
 ELSEIF longTmp& AND WF_STANDARD THEN
  GetWindowsMode = 1
 ELSEIF longTmp& AND WF_ENHANCED THEN
  GetWindowsMode = 2
 END IF
END FUNCTION

FUNCTION GetWindowsDir STATIC AS STRING
 szBuf$ = string$(256, 32)
 cbBuf% = GetWindowsDirectory(szBuf$, 256)

 IF cbBuf% = 0 THEN
  GetWindowsDir = ""
  ERROR STFERR
 ELSE
  IF cbBuf% > 255 THEN
   ERROR STFERR
  END IF
  szBuf$ = RTRIM$(szBuf$)
  IF MID$(szBuf$, 1, 1) = "\" THEN
   szBuf$ = MID$(GetWindowsSysDir, 1, 2) + szBuf$
  ELSEIF MID$(szBuf$, 2, 1) <> ":" THEN
   szBuf$ = MID$(GetWindowsSysDir, 1, 3) + szBuf$
  END IF
  GetWindowsDir = szBuf$
 END IF

 szBuf$ = ""
END FUNCTION

FUNCTION GetWindowsSysDir STATIC AS STRING
 szBuf$ = string$(256, 32)
 cbBuf% = GetSystemDirectory(szBuf$, 256)

 IF cbBuf% = 0 THEN
  ERROR STFERR
 ELSE
  IF cbBuf% > 255 THEN
   ERROR STFERR
  END IF
  szBuf$ = RTRIM$(szBuf$)
  IF MID$(szBuf$, 1, 1) = "\" THEN
   szBuf$ = MID$(CURDIR$, 1, 2) + szBuf$
  ELSEIF MID$(szBuf$, 2, 1) <> ":" THEN
   szBuf$ = MID$(CURDIR$, 1, 3) + szBuf$
  END IF
  GetWindowsSysDir = szBuf$
 END IF

 szBuf$ = ""
END FUNCTION

DECLARE FUNCTION LcbFreeDrive LIB "msdetstf.dll" (nDrive%) AS LONG
DECLARE FUNCTION FDoesFileExist LIB "msdetstf.dll" (szFileName$, mode%) AS INTEGER
DECLARE FUNCTION FDoesIniKeyExist LIB "msdetstf.dll" (szFile$, szSect$, szKey$) AS INTEGER
DECLARE FUNCTION GetTypeFaceNameFromTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
DECLARE FUNCTION GetExistingFOTFileForTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER

DECLARE FUNCTION GetFreeSpaceForDrive (szDrive$) AS LONG
DECLARE FUNCTION DoesFileExist (szFile$, mode%) AS INTEGER
DECLARE FUNCTION DoesIniKeyExist (szFile$, szSect$, szKey$) AS INTEGER

FUNCTION GetFreeSpaceForDrive (szDrive$) STATIC  AS LONG
 GetFreeSpaceForDrive = LcbFreeDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
END FUNCTION

FUNCTION DoesFileExist (szFileName$, mode%) STATIC  AS INTEGER
 DoesFileExist = FDoesFileExist(szFileName$, mode%)
END FUNCTION

FUNCTION DoesIniKeyExist (szFile$, szSect$, szKey$) STATIC  AS INTEGER
 DoesIniKeyExist = FDoesIniKeyExist(szFile$, szSect$, szKey$)
END FUNCTION

TRAP CleanupTrap From "MSSHLSTF.DLL"

End Trap

hSetup = InitSetup(COMMAND$)

ON ERROR GOTO QUIT

CONST CDALREADYUSED  = 7100
CONST CDBADFILE   = 7200
CONST CDCONFIRMINFO  = 7300
CONST CDGETNAME   = 7400
CONST CDGETNAMEORG   = 7500
CONST CDGETORG    = 7600
CONST CDBADNAME   = 7700
CONST CDBADORG    = 7800

DECLARE FUNCTION FInitSystem1 LIB "mscpydis.dll" (did%, sz$, fNet%) AS INTEGER
DECLARE FUNCTION FInitSystem3 LIB "mscpydis.dll" (did%, sz$, fAlways%) AS INTEGER
DECLARE FUNCTION FCloseSystem LIB "mscpydis.dll" (szSect$, szKey$, szDst$, wResType%, wResId%) AS INTEGER

DECLARE FUNCTION InitSystemRead  (did%, sz$, fNet%) AS INTEGER
DECLARE FUNCTION InitSystemWrite (did%, sz$, fAlways%) AS INTEGER
DECLARE SUB CloseSystem (szSect$, szKey$, szDst$, wResType%, wResId%)

DECLARE FUNCTION InitSystem (did%, sz$, fNet%) AS INTEGER
DECLARE FUNCTION InitSystemDlgs  (fNet%) AS INTEGER
DECLARE SUB BadNameOrg(dlg%)
DECLARE FUNCTION NameOrgOkay (dlg%, szName$, szOrg$) AS INTEGER

FUNCTION InitSystemRead (did%, sz$, fNet%) STATIC AS INTEGER
 InitSystemRead = FInitSystem1(did%, sz$, fNet%)
END FUNCTION

FUNCTION InitSystemWrite (did%, sz$, fAlways%) STATIC AS INTEGER
 InitSystemWrite = FInitSystem3(did%, sz$, fAlways%)
END FUNCTION

SUB CloseSystem (szSect$, szKey$, szDst$, wResType%, wResId%) STATIC
 IF FCloseSystem (szSect$, szKey$, szDst$, wResType%, wResId%) = 0 THEN
  ERROR STFERR
 END IF
END SUB

FUNCTION InitSystem (did%, sz$, fNet%) STATIC AS INTEGER
 IF InitSystemRead(did%, sz$, fNet%) = 0 THEN
  InitSystem = 0
 ELSEIF InitSystemDlgs(fNet%) = 0 THEN
  InitSystem = 0
 ELSEIF InitSystemWrite(did%, sz$, 0) = 0 THEN
  InitSystem = 0
 ELSE
  InitSystem = 1
 END IF
END FUNCTION

FUNCTION InitSystemDlgs (fNet%) STATIC AS INTEGER

 fOkay%  = 0
 CDDLL$  = "mscuistf.dll"
 szName$ = GetSymbolValue("STF_CD_NAME")
 szOrg$  = GetSymbolValue("STF_CD_ORG")
 sz$ = MID$(GetSymbolValue("STF_CD_TYPE"), 1, 1)

 IF sz$ = "N" THEN
  IF fNet <> 0 THEN
   GOTO ISDN1
  ELSE
   GOTO ISDN2
  END IF
 ELSEIF (sz$ = "U") OR (sz$ = "O") THEN
  GOTO ISDU
 ELSEIF sz$ = "W" THEN
  GOTO ISDA
 ELSE
  GOTO ISDB
 END IF

ISDN1:
 SetSymbolValue "EditTextIn", ""
 SetSymbolValue "EditFocus", ""
ISDN1L1:
 sz$ = UIStartDlg(CDDLL$, CDGETORG, "FEditDlgProc", 0, "")

 IF sz$ = "CONTINUE" THEN
  szOrg$ = RTRIM$(LTRIM$(GetSymbolValue("EditTextOut")))
  IF szOrg$ = "" THEN
   BadNameOrg CDBADORG
   GOTO ISDN1L1
  END IF
  IF NameOrgOkay(CDCONFIRMINFO, "", szOrg$) = 0 THEN
   GOTO ISDN1L1
  END IF
  SetSymbolValue "STF_CD_ORG", szOrg$
  fOkay% = 1
 ELSEIF sz$ = "REACTIVATE" THEN
  GOTO ISDN1L1
 ELSE
  SetSymbolValue "STF_CD_TYPE", "ERROR"
 END IF
 UIPop 1
 GOTO ISDEND

ISDN2:
 sz$ = UIStartDlg(CDDLL$, CDGETNAMEORG, "FNameOrgDlgProc", 0, "")

 IF sz$ = "CONTINUE" THEN
  szName$ = RTRIM$(LTRIM$(GetSymbolValue("NameOut")))
  szOrg$  = RTRIM$(LTRIM$(GetSymbolValue("OrgOut")))
  IF szName$ = "" THEN
   BadNameOrg CDBADNAME
   GOTO ISDN2
  END IF
  IF szOrg$ = "" THEN
   szOrg$ = " "
  END IF
  IF NameOrgOkay(CDCONFIRMINFO, szName$, szOrg$) = 0 THEN
   GOTO ISDN2
  END IF
  SetSymbolValue "STF_CD_NAME", szName$
  SetSymbolValue "STF_CD_ORG", szOrg$
  fOkay% = 1
 ELSE
  SetSymbolValue "STF_CD_TYPE", "ERROR"
 END IF
 UIPop 1
 GOTO ISDEND

ISDU:
 fOkay% = NameOrgOkay(CDALREADYUSED, szName$, szOrg$)
 GOTO ISDEND

ISDA:
 SetSymbolValue "EditTextIn", ""
 SetSymbolValue "EditFocus", ""
ISDAL1:
 sz$ = UIStartDlg(CDDLL$, CDGETNAME, "FEditDlgProc", 0, "")

 IF sz$ = "CONTINUE" THEN
  szName$ = RTRIM$(LTRIM$(GetSymbolValue("EditTextOut")))
  IF szName$ = "" THEN
   BadNameOrg CDBADNAME
   GOTO ISDAL1
  END IF
  IF NameOrgOkay(CDCONFIRMINFO, szName$, "") = 0 THEN
   GOTO ISDAL1
  END IF
  SetSymbolValue "STF_CD_NAME", szName$
  fOkay% = 1
 ELSEIF sz$ = "REACTIVATE" THEN
  GOTO ISDAL1
 ELSE
  SetSymbolValue "STF_CD_TYPE", "ERROR"
 END IF
 UIPop 1
 GOTO ISDEND

ISDB:
 sz$ = UIStartDlg(CDDLL$, CDBADFILE, "FInfoDlgProc", 0, "")

 IF sz$ = "CONTINUE" THEN
  fOkay% = 1
 END IF
 UIPop 1
 GOTO ISDEND

ISDEND:
 InitSystemDlgs = fOkay%
 CDDLL$  = ""
 szName$ = ""
 szOrg$  = ""
 sz$  = ""
END FUNCTION

SUB BadNameOrg(dlg%) STATIC
BNOL1:
 sz$ = UIStartDlg("mscuistf.dll", dlg%, "FInfoDlgProc", 0, "")
 UIPop 1
 sz$ = ""
END SUB

FUNCTION NameOrgOkay (dlg%, szName$, szOrg$) STATIC AS INTEGER
 RemoveSymbol "ConfirmTextIn"
 AddListItem "ConfirmTextIn", szName$
 AddListItem "ConfirmTextIn", szOrg$
ILOL1:
 sz$ = UIStartDlg("mscuistf.dll", dlg%, "FConfirmDlgProc", 0, "")

 IF sz$ = "CONTINUE" THEN
  NameOrgOkay = 1
 ELSE
  NameOrgOkay = 0
 END IF
 UIPop 1
 sz$ = ""
END FUNCTION

CONST MaxSectionLen = 32
CONST MaxPathLen = 64
CONST MaxListLen = 12

TYPE FILEGRP
 OptionId As INTEGER
 Section AS STRING * MaxSectionLen
 Needs   AS STRING * MaxListLen
 ExtraNeeds AS INTEGER

 SourcePath AS STRING * MaxPathLen
 DestPath AS STRING * MaxPathLen

 InList  AS POINTER TO STRING * MaxListLen
 OutList AS POINTER TO STRING * MaxListLen

END TYPE

CONST APPFILES = 0
CONST PUBCONVFILES = 1
CONST PUBFLTFILES = 2
CONST BDRFILES = 3
CONST WINFILES = 4
CONST WINSYSFILES = 5
CONST WORDARTFILES = 6
CONST NOTEITFILES = 7
CONST MSDRAWFILES = 8
CONST ARTGALRYFILES = 9
CONST MSINFOFILES = 10
CONST SETUPFILES = 11
CONST MSPHELPFILES  = 12
CONST NOTEITHLPFILES= 13
CONST WORDARTHLPFILES = 14
CONST MSDRAWHLPFILES = 15
CONST ARTHLPFILES = 16
CONST SPELLFILES = 17
CONST CONFILES = 18
CONST FLTDEPFILES = 19
CONST FLTFILES = 20
CONST PUBFILES = 21
CONST PAPERFILES = 22
CONST WIZFILES = 23
CONST WIZCGMFILES = 24
CONST CGMWIZFILES = 25
CONST CGMFILES = 26
CONST TTFFILES = 27

CONST MAXFILEGROUP = 28

CONST APPOPTION = 1
CONST HELPOPTION = 2
CONST SPELLOPTION = 3
CONST COVOPTION  = 4
CONST FLTOPTION  = 5
CONST TEMPOPTION = 6
CONST ARTSOPTION = 7
CONST FONTOPTION = 8

CONST MAXOPTIONGROUP = 9

GLOBAL FileGrp(MAXFILEGROUP) AS FILEGRP

DECLARE FUNCTION GetListFromStringTable LIB "mscuistf.dll" as INTEGER

DECLARE SUB AddListOptFiles(FileID%)
DECLARE SUB AddFileGrpToCopyList(FileID%)
DECLARE SUB ChangeDestPath (FileID%, DestPath$)
DECLARE SUB InitFileGroup(FileID%, OptionID%, ExtraNeeds%, Section$, SourcePath$, ListID%)
DECLARE SUB AddOptionGrpToCopyList(SectionId%)
DECLARE FUNCTION WasFileCopied(FileID%, nID%) AS INTEGER

SUB InitFileGroup(FileID%, OptionID%, ExtraNeeds%, Section$, SourcePath$, ListID%) STATIC

 FileGrp(FileID%).OptionId = OptionID%
 FileGrp(FileID%).Section = Section$
 FileGrp(FileID%).Needs = MID$(Section$,1,3) + MID$(STR$(FileID%),2) + "Needs"
 FileGrp(FileID%).ExtraNeeds = ExtraNeeds
 FileGrp(FileID%).SourcePath = SourcePath$
 FileGrp(FileID%).DestPath = ""

 IF ListID% <> 0 THEN
  ALLOCATE FileGrp(FileID%).InList , 1
  ALLOCATE FileGrp(FileID%).OutList, 1

  FileGrp(FileID%).InList[0] = MID$(Section$,1,3) + MID$(STR$(FileID%),2) + "In"
  FileGrp(FileID%).OutList[0] = MID$(Section$,1,3) + MID$(STR$(FileID%),2) + "Out"

  SetSymbolValue "ListSymbol", FileGrp(FileID%).InList[0]
  SetSymbolValue "ListID", STR$(ListID)
  i% = GetListFromStringTable()
  SetSymbolValue "ListSymbol", FileGrp(FileID%).OutList[0]
  i% = GetListFromStringTable()
  RemoveSymbol "ListSymbol"
  RemoveSymbol "ListID"
 END IF

END SUB

STATIC SUB AddFileGrpToCopyList(FileID%)
 AddSectionFilesToCopyList RTRIM$(FileGrp(FileID%).Section), RTRIM$(FileGrp(FileID%).SourcePath), RTRIM$(FileGrp(FileID%).DestPath)
END SUB

SUB AddOptionGrpToCopyList(OptionId%) STATIC
 FOR cCount% = 0 TO (MAXFILEGROUP-1) STEP 1
  IF FileGrp(cCount%).OptionId = OptionId% THEN
   AddSectionFilesToCopyList RTRIM$(FileGrp(cCount%).Section), RTRIM$(FileGrp(cCount%).SourcePath), RTRIM$(FileGrp(cCount%).DestPath)
  END IF
 NEXT cCount%
END SUB

STATIC SUB AddListOptFiles(FileID%)

 InputList$ = FileGrp(FileID%).InList[0]
 OutputList$ = FileGrp(FileID%).OutList[0]
 Section$ = RTRIM$(FileGrp(FileID%).Section)

 NoOfInput% = GetListLength(InputList$)
 NoOfOutput% = GetListLength(OutputList$)

 j% = 1
 FOR i% = 1 To NoOfOutput% STEP 1

  WHILE (GetListItem(OutputList$, i%) <> GetListItem(InputList$, j%))
   j% = j% + 1
   IF (j% > NoOfInput%) THEN
    EXIT FOR
   END IF
  WEND

  szKey$ = RTRIM$(FileGrp(FileID%).Section) + MID$(STR$(j%), 2)

  AddSectionKeyFileToCopyList RTRIM$(FileGrp(FileID%).Section), szKey$, RTRIM$(FileGrp(FileID%).SourcePath), RTRIM$(FileGrp(FileID%).DestPath)

 NEXT i%

 InputList$ = ""
 OutputList$ = ""
 Section$ = ""
END SUB

FUNCTION WasFileCopied(FileID%, nID AS INTEGER) STATIC AS INTEGER

 WasFileCopied = 0

 InputList$ = FileGrp(FileID%).InList[0]
 OutputList$ = FileGrp(FileID%).OutList[0]

 NoOfInput% = GetListLength(InputList$)
 NoOfOutput% = GetListLength(OutputList$)

 j% = 1
 FOR i% = 1 To NoOfOutput% STEP 1

  WHILE (GetListItem(OutputList$, i%) <> GetListItem(InputList$, j%))
   j% = j% + 1
   IF (j% > NoOfInput%) THEN
    EXIT FOR
   END IF
  WEND

  IF j% = nID% THEN
   WasFileCopied = 1
  END IF

 NEXT i%

 InputList$ = ""
 OutputList$ = ""

END FUNCTION

SUB ChangeDestPath (FileID%, DestPath$) STATIC
 FileGrp(FileID%).DestPath = DestPath$
END SUB

TYPE DRIVESTAT
 Drive AS STRING * 1
 DriveNo AS INTEGER
 Cost AS LONG
 Free AS LONG
END TYPE

GLOBAL EXTRACOSTS$

DECLARE SUB InitSizeCalLib
DECLARE SUB InitDriveStat(DriveStat AS POINTER TO DRIVESTAT, Drive$)
DECLARE SUB RecalcPath
DECLARE SUB SetDriveStatus(DriveStat AS POINTER TO DRIVESTAT, NoOfDrive%)
DECLARE SUB AddOptFilesToCopyList(OptionId%, fForce%)
DECLARE SUB RecalcOptFiles(OptionID%)

SUB InitSizeCalLib STATIC
 EXTRACOSTS$  = "ExtraCosts"
 FOR i% = 1 TO 26 STEP 1
  AddListItem EXTRACOSTS$, "0"
 NEXT i%
END SUB

SUB InitDriveStat(DriveStat AS POINTER TO DRIVESTAT, Drive$) STATIC
 DriveStat[0].Drive = MID$(Drive$, 1, 1)
 DriveStat[0].DriveNo = ASC(UCASE$(DriveStat[0].Drive)) - ASC("A") + 1
 DriveStat[0].Cost = 0
 DriveStat[0].Free = 0
END SUB

SUB SetDriveStatus(DriveStat AS POINTER TO DRIVESTAT, NoOfDrive%) STATIC
 FOR cCount% = 0 TO (NoOfDrive-1) STEP 1
  cost& = 0
  OptionID% = 1
  FOR cCount2% = 0 TO (MAXFILEGROUP-1) STEP 1
   IF FileGrp(cCount2%).OptionId = OptionID% THEN
    IF GetListItem("CheckItemsState", OptionID%) = "ON" THEN
     cost& = cost& + VAL(GetListItem(FileGrp(cCount2%).Needs, DriveStat[cCount%].DriveNo))
    END IF
    OptionID = OptionID + 1
   END IF
  NEXT cCount2%
  DriveStat[cCount%].Cost = cost&

  DriveStat[cCount%].Free = GetFreeSpaceForDrive(DriveStat[cCount%].Drive)
 NEXT cCount%
END SUB

SUB RecalcPath STATIC
 FOR cCount% = 1 TO (MAXOPTIONGROUP - 1)
  RecalcOptFiles cCount%
 NEXT cCount%
END SUB

SUB RecalcOptFiles(OptionID%) STATIC

 ClearCopyList
 AddOptFilesToCopyList OptionId%, 1

 FOR cCount% = 0 TO (MAXFILEGROUP-1) STEP 1

  IF FileGrp(cCount%).OptionId = OptionId% THEN
   ListSym$ = FileGrp(cCount%).Needs

   fExtra% = 0
   ndrive% = ASC(ucase$(MID$(FileGrp(cCount%).DestPath,1,1))) - ASC("A") + 1
   ExtraNeeds% =0
   FOR cCount2% = 0 TO (MAXFILEGROUP-1) STEP 1
    IF (FileGrp(cCount2%).OptionId = OptionId%) AND (FileGrp(cCount2%).ExtraNeeds <> 0) THEN
     ExtraNeeds% = ExtraNeeds% + FileGrp(cCount2%).ExtraNeeds
     fExtra% = 1
    END IF
   NEXT cCount2%

   IF ExtraNeeds% <> 0 THEN
    ReplaceListItem EXTRACOSTS$, ndrive%, STR$(ExtraNeeds% * 1024)
   ELSE
    ReplaceListItem EXTRACOSTS$, ndrive%, STR$(0)
   END IF

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

   EXIT FOR
  END IF
 NEXT cCount%

 IF fExtra% THEN
  ReplaceListItem EXTRACOSTS$, ndrive%, "0"
 END IF

 ListSym$ = ""
END SUB

DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
DECLARE FUNCTION FilePath (FileID%, szFile$) AS STRING
DECLARE FUNCTION InstallTTFont (szTTFontFile$) AS INTEGER
DECLARE FUNCTION WinVersion(MajorVer%, MinorVer%) AS INTEGER
DECLARE FUNCTION InstallTTF LIB "mscuistf.dll" as INTEGER
DECLARE SUB SetIniKeyValue(szFile$, szSect$, szKey$, szValue$)

FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
 IF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  MakePath = szDir$ + szFile$
 ELSE
  MakePath = szDir$ + "\" + szFile$
 END IF
END FUNCTION

FUNCTION FilePath (FileID%, szFile$) STATIC AS STRING
 szDir$ = RTRIM$(FileGrp(FileID%).DestPath)
 IF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  FilePath = szDir$ + szFile$
 ELSE
  FilePath = szDir$ + "\" + szFile$
 END IF
 szDir$ = ""
END FUNCTION

FUNCTION InstallTTFont (szTTFontFile$) STATIC AS INTEGER
 MaxNameLen% = 64
 szTTFontName$ = string$(64,32)

 FileNameLen% = LEN(szTTFontFile$)
 szTTFontFile$ = MID$(szTTFontFile$, 1, FileNameLen%-4)

 SetSymbolValue "FontPath", FilePath(TTFFILES,szTTFontFile$)

 InstallTTFont = 0
 i% = InstallTTF()
 IF (i% = 1) THEN
  i% = GetTypeFaceNameFromTTF (FilePath(TTFFILES,szTTFontFile$)+".TTF", szTTFontName$, MaxNameLen)
  IF (i% > 0 AND i% <= MaxNameLen) THEN
   SetIniKeyValue "WIN.INI", "fonts", szTTFontName$ + " (TrueType)", szTTFontFile$ + ".FOT"
   InstallTTFont = 1
  ENDIF
 ENDIF

 RemoveSymbol "FontPath"

 szTTFontFile$ = ""
END FUNCTION

FUNCTION WinVersion(MajorVer%, MinorVer%) STATIC AS INTEGER
 i% = GetWindowsMajorVersion()
 j% = GetWindowsMinorVersion()

 IF (i% > MajorVer%) OR ((i% = MajorVer%) AND (j% >= MinorVer%)) THEN
  WinVersion = 1
 ELSE
  WinVersion = 0
 END IF
END FUNCTION

SUB SetIniKeyValue(szFile$, szSect$, szKey$, szValue$) STATIC
 IF DoesIniKeyExist(szFile$, szSect$, szKey$) THEN
   RemoveIniKey szFile$, szSect$, szKey$, cmoNone
 END IF

 CreateIniKeyValue szFile$, szSect$, szKey$, szValue$, cmoNone
END SUB

CONST WELCOME = 100
CONST ASKQUIT = 200
CONST DESTPATHN = 300
CONST EXITFAILURE = 400
CONST BILLBOARD = 4545
CONST EXITSUCCESS = 700
CONST OPTIONS = 800
CONST APPHELP = 900
CONST SETUPOPTIONS = 1000
CONST PREVPUB = 1100
CONST HELPPATH = 1200
CONST HELPCUST = 1300
CONST CALCFILE = 1400
CONST WRITEINI = 1500
CONST EXITREBOOT = 1600
CONST MULTILIST = 5200
CONST CUSTINST = 6200
CONST TOOBIG = 6300
CONST BADPATH = 6400

CONST STFVERERR = 124
CONST STFPUBRUN = 125
CONST STFSHARE  = 126
CONST STFNODE   = 127
CONST STFNONODE = 128

CONST SCOK      = 0
CONST SCREBOOT  = 1
CONST SCERROR   = 2

CONST NORMAL_MODE = 0
CONST ADMIN_MODE = 1
CONST NETWORK_MODE = 2

CONST COVLIST = 265
CONST FLTLIST = 285

CONST MSPNODISK = 17

CONST NoOfSTATUS = 7
CONST ALL = 0

CONST LOGO = 1

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

GLOBAL CUIDLL$
GLOBAL WINDRIVE$
GLOBAL SOURCE$
GLOBAL DEST$
GLOBAL DLG$

CONST  MaxDrive  = 2
GLOBAL DriveStat(MaxDrive) AS DRIVESTAT
CONST WindowsDrive  = 0
CONST DestDrive  = 1

GLOBAL CHECKSTATES$
GLOBAL STATUSTEXT$
GLOBAL DRIVETEXT$
GLOBAL HELPPROC$

GLOBAL SETUP_MODE%
GLOBAL FINCUST%
GLOBAL RB%

DECLARE SUB CallDlg(DlgIDNo%, DlgProc$, HelpIDNo%)
DECLARE SUB QuitProc
DECLARE SUB DoConvOptions(ConvFiles%, ConvOpt%)
DECLARE SUB WriteConvIni(Conv%, szKey$, szName$, szFileExt$)
DECLARE SUB WriteFltIni(Conv%, szKey$, szFileExt$)
DECLARE SUB InstallFiles
DECLARE SUB SetDriveText(DriveStat AS POINTER TO DRIVESTAT)
DECLARE SUB ChangeFileDestPath
DECLARE SUB SetStatusText(OptionID%)
DECLARE SUB SetAllStatusText
DECLARE SUB UpdateSizeCal(OptionNo%, fRecalc%)
DECLARE SUB UpdateScreenStatus(OptionNo%)
DECLARE SUB CalcFileSizes
DECLARE SUB UpdatePubIni
DECLARE SUB UpdatePapersIni
DECLARE SUB UpdateWinIni
DECLARE SUB UpdateRegDat
DECLARE SUB MakeReg(Load$, FileID%, szApp$, szName$, szVb0N$, szVb1N$, szExe$, szCls$, fOle2%)

DECLARE FUNCTION GETPATH(DefaultPath$, DlgTextID%) AS STRING
DECLARE FUNCTION BitmapCntrlInit LIB "mscuistf.dll" as INTEGER
DECLARE FUNCTION DARBitmapInit LIB "mscuistf.dll" as INTEGER
DECLARE FUNCTION DoMessageBox LIB "mscuistf.dll" as INTEGER
DECLARE FUNCTION IsPubRunning LIB "mscuistf.dll" as INTEGER
DECLARE FUNCTION RunPub LIB "mscuistf.dll" as INTEGER
DECLARE FUNCTION ScAddShare LIB "mscuistf.dll" as INTEGER
DECLARE FUNCTION ShowWindow LIB "user.exe" (hWnd%,iShow%) AS INTEGER
DECLARE FUNCTION SetWindowLong LIB "user.exe" (hWnd%, offset%, style&) AS LONG
DECLARE FUNCTION WritePrivateProfileString LIB "Kernel" (lpstr$, lpstr$, lpstr$, lpstr$) as INTEGER

INIT:
 CUIDLL$ = "mscuistf.dll"
 HELPPROC$ = "FHelpDlgProc"

 hWnd% = HwndFrame()
 j& = SetWindowLong(hWnd%,GWL_STYLE,WS_VISIBLE + WS_BORDER + WS_CLIPCHILDREN)
 i% = ShowWindow(hWnd%,SW_SHOWMAXIMIZED)

 SetBitmap CUIDLL$, LOGO

 ''INTL
 SetTitle "Microsoft Publisher Setup"

 i% = DARBitmapInit()
 i% = SetDecompMode(1)

 IF WinVersion(3,10) THEN
 ELSE
  ERR = VERERR
  GOTO QUIT
 END IF

 IF GetSymbolValue("STF_MODE") = "ADMIN" THEN
  SETUP_MODE = ADMIN_MODE
 ELSEIF GetSymbolValue("STF_MODE") = "NETWORK" THEN
  SETUP_MODE = NETWORK_MODE
 ELSE
  SETUP_MODE = NORMAL_MODE
 END IF

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

 SOURCE$  = GetSymbolValue("STF_SRCDIR")

 IF SETUP_MODE = NETWORK_MODE THEN
  SourceDll$ = MakePath(SOURCE$,"DLL")
  DEST$ = SOURCE$
 ELSE
  SourceDll$ = SOURCE$
  DEST$ = mid$(GetWindowsDir,1,1) + ":\MSPUB"
 END IF

 InitDriveStat VARPTR(DriveStat(WindowsDrive)), DEST$
 InitDriveStat VARPTR(DriveStat(DestDrive)), DEST$

 InitFileGroup APPFILES, APPOPTION, 0, "APP-MSPUB", SOURCE$, 0
 InitFileGroup BDRFILES, APPOPTION, 0, "ARTS-BDR", SOURCE$, 0
 InitFileGroup PUBCONVFILES, APPOPTION, 0, "COV-PUB", SOURCE$, 0
 InitFileGroup PUBFLTFILES, APPOPTION, 0, "FLT-PUB", SOURCE$, 0
 InitFileGroup WINFILES, APPOPTION, 10, "APP-WIN", SourceDll$, 0
 InitFileGroup WINSYSFILES, APPOPTION, 0, "APP-WINSYS", SourceDll$, 0
 InitFileGroup WORDARTFILES, APPOPTION, 0, "WORDART", SOURCE$, 0
 InitFileGroup NOTEITFILES, APPOPTION, 0, "NOTE-IT", SOURCE$, 0
 InitFileGroup MSDRAWFILES, APPOPTION, 0, "MSDRAW", SOURCE$, 0
 InitFileGroup ARTGALRYFILES, APPOPTION, 0, "ARTGALRY", SOURCE$, 0
 InitFileGroup MSINFOFILES, APPOPTION, 0, "MSINFO", SOURCE$, 0
 InitFileGroup SETUPFILES, APPOPTION, 0, "SETUP", SOURCE$, 0
 InitFileGroup WIZFILES, APPOPTION, 0, "TEMP-WIZ", SOURCE$, 0
 InitFileGroup WIZCGMFILES, APPOPTION, 0, "CGM-WIZ", SOURCE$, 0
 InitFileGroup MSPHELPFILES, HELPOPTION, 0, "MSPHELP", SOURCE$, 0
 InitFileGroup NOTEITHLPFILES, HELPOPTION, 0, "NOTE-ITHLP", SOURCE$, 0
 InitFileGroup WORDARTHLPFILES, HELPOPTION, 0, "WORDARTHLP", SOURCE$, 0
 InitFileGroup MSDRAWHLPFILES, HELPOPTION, 0, "MSDRAWHLP", SOURCE$, 0
 InitFileGroup ARTHLPFILES, HELPOPTION, 0, "ART-HELP", SOURCE$, 0
 InitFileGroup SPELLFILES, SPELLOPTION, 0, "SPELL", SOURCE$, 0
 InitFileGroup CONFILES, COVOPTION, 0, "COV", SOURCE$, COVLIST
 InitFileGroup FLTDEPFILES, FLTOPTION, 0, "FLT-DEP", SOURCE$, 0
 InitFileGroup FLTFILES, FLTOPTION, 0, "FLT", SOURCE$, FLTLIST
 InitFileGroup PUBFILES, TEMPOPTION, 0, "TEMP-PUB", SOURCE$, 0
 '$IFDEF INTL
 '$ELSE
 InitFileGroup PAPERFILES, TEMPOPTION, 0, "APP-PAPERS", SOURCE$, 0
 '$ENDIF
 InitFileGroup CGMWIZFILES, ARTSOPTION, 0, "CGM-WIZ", SOURCE$, 0
 InitFileGroup CGMFILES, ARTSOPTION, 0, "ARTS-CGM", SOURCE$, 0
 InitFileGroup TTFFILES, FONTOPTION, 0, "ARTS-TTF", SourceDll$, 0

 SourceDll$ = ""

 CHECKSTATES$ = "CheckItemsState"
 STATUSTEXT$  = "StatusItemsText"
 DRIVETEXT$   = "DriveStatusText"

 FOR i% = 1 TO (MAXOPTIONGROUP-1) STEP 1
  AddListItem CHECKSTATES$, "ON"
  AddListItem STATUSTEXT$, ""
 NEXT i%

 FOR i% = 1 TO NoOfSTATUS STEP 1
  AddListItem DRIVETEXT$, ""
 NEXT i%

 InitSizeCalLib

 FINCUST% = 0

WHILE 1
 SetSymbolValue "SetupMode", STR$(SETUP_MODE%)
 CallDlg WELCOME, "FInfoDlgProc", APPHELP
 RemoveSymbol "SetupMode"

 IF DLG$ = "CONTINUE" THEN
  UIPop 1

  IF IsPubRunning THEN
   ERROR STFPUBRUN
  END IF

  IF SETUP_MODE = NETWORK_MODE THEN
   IF DoesFileExist(MakePath(SOURCE$,"DLL\PUBOLE.DLL"), femExists) = 0 THEN
    ERROR STFNODE
   ENDIF
  ELSE
   IF DoesFileExist(MakePath(SOURCE$,"DLL\PUBOLE.DLL"), femExists) THEN
    ERROR STFNONODE
   ENDIF
  ENDIF

  WHILE InitSystem(1, "SETUP.INI", (SETUP_MODE% = ADMIN_MODE)) = 0
   QuitProc
  WEND
  EXIT WHILE
 ELSE
  ERROR STFQUIT
 END IF
WEND

 IF SETUP_MODE% = NETWORK_MODE THEN
  IF DoesFileExist(MakePath(SOURCE$,"DLL\ALGER.TTF"), femExists) = 0 THEN
   ReplaceListItem CHECKSTATES$, FONTOPTION,  ""
  END IF
  GOTO TRYINST
 END IF

 DEST$ = GETPATH(DEST$, DESTPATHN)

WHILE 1
 CallDlg SETUPOPTIONS, "SetoptionDProc", APPHELP

 SELECT CASE DLG$
  CASE "BTN3"
   FOR i% = 2 TO (MAXOPTIONGROUP-1) STEP 1
    ReplaceListItem CHECKSTATES$, i%,  ""
   NEXT i%

   GOTO TRYINST

  CASE "BTN1"
TRYINST:
   CalcFileSizes

   IF (DriveStat(DestDrive).Cost > DriveStat(DestDrive).Free) OR (DriveStat(WindowsDrive).Cost > DriveStat(WindowsDrive).Free) THEN
    SetSymbolValue "MsgBoxID", STR$(MSPNODISK)
    SetSymbolValue "MsgBoxStyle", STR$(MB_OK+MB_ICONHAND)
    i% = DoMessageBox()
    RemoveSymbol "MsgBoxID"
    RemoveSymbol "MsgBoxStyle"
    IF SETUP_MODE% = NETWORK_MODE THEN
        UIPop 1
    ELSE
        UIPop 2
    END IF
    GOTO CUSTINST
   END IF
   UIPop 1
   InstallFiles
   GOTO QUIT

  CASE "BTN2"
   UIPop 1
   EXIT WHILE

  CASE ELSE
   QuitProc
 END SELECT

WEND

CalcFileSizes

CUSTINST:
FINCUST% = 1
WHILE 1
 CallDlg CUSTINST, "FCustInstDlgProc", HELPCUST

 SELECT CASE DLG$
  CASE "CONTINUE"
   IF (DriveStat(DestDrive).Cost > DriveStat(DestDrive).Free) OR (DriveStat(WindowsDrive).Cost > DriveStat(WindowsDrive).Free) THEN
    WHILE 1
     CallDlg TOOBIG, "FInfo0DlgProc", APPHELP
     IF DLG$ <> "REACTIVATE" THEN
      EXIT WHILE
     END IF
    WEND
    UIPop 1
    GOTO CUSTINST
   END IF

   UIPop 1
   InstallFiles
   EXIT WHILE
  CASE "PATH"
   DEST$ = GETPATH(DEST$, DESTPATHN)
   CalcFileSizes
  CASE "CHK1", "CHK2", "CHK3", "CHK4", "CHK5", "CHK6", "CHK7", "CHK8"
   IF (DLG$ = "CHK4") AND (GetListItem(CHECKSTATES$, COVOPTION) = "ON") THEN
    SetSymbolValue "ListID", STR$(COVLIST)
    SetSymbolValue "ListSymbol", FileGrp(CONFILES).OutList[0]
    i% = GetListFromStringTable()
    RemoveSymbol "ListSymbol"
    RemoveSymbol "ListID"
   ELSEIF (DLG$ = "CHK5") AND (GetListItem(CHECKSTATES$, FLTOPTION) = "ON") THEN
    SetSymbolValue "ListID", STR$(FLTLIST)
    SetSymbolValue "ListSymbol", FileGrp(FLTFILES).OutList[0]
    i% = GetListFromStringTable()
    RemoveSymbol "ListSymbol"
    RemoveSymbol "ListID"
   END IF
   UpdateSizeCal ASC(MID$(DLG$,4)) - ASC("0"), 0
   UpdateScreenStatus (ASC(MID$(DLG$,4)) - ASC("0"))
  CASE "BTN2"
   DoConvOptions CONFILES, COVOPTION
  CASE "BTN3"
   DoConvOptions FLTFILES, FLTOPTION
  CASE "REACTIVATE"
  CASE ELSE
   QuitProc
 END SELECT

WEND

QUIT:
 ON ERROR GOTO ERRQUIT

 IF ERR = 0 THEN
  IF RB% = 0 THEN
   dlgerr% = EXITSUCCESS
  ELSE
   dlgerr% = EXITREBOOT
  END IF
 ELSE
  dlgerr% = EXITFAILURE
 END IF

 DLG$ = ""

 IF ERR <> STFQUIT THEN
  WHILE 1
   SetSymbolValue "ErrMsg", STR$(ERR)
   CallDlg dlgerr%, "FInfo0DlgProc", APPHELP
   IF DLG$ <> "REACTIVATE" THEN
    EXIT WHILE
   END IF
  WEND

  UIPop 1
 END IF

 IF DLG$ = "CONTINUE" THEN
   SetSymbolValue "PubPath", FilePath(APPFILES,"MSPUB.EXE")
   i% = RunPub()
 END IF

ERRQUIT:
 END

SUB DoConvOptions(ConvFiles%, ConvOpt%) STATIC
 SetSymbolValue "InListSymbol", FileGrp(ConvFiles%).InList[0]
 SetSymbolValue "OutListSymbol", FileGrp(ConvFiles%).OutList[0]
 WHILE 1
  CallDlg MULTILIST, "FMultiDlgProc", APPHELP
  IF DLG$ = "CONTINUE" OR DLG$ = "CANCEL" THEN
     EXIT WHILE
  END IF
 WEND
 UIPop 1
 IF DLG$ = "CONTINUE" THEN
  UpdateSizeCal ConvOpt%, 1
  UpdateScreenStatus ConvOpt%
 END IF
 RemoveSymbol "InListSymbol"
 RemoveSymbol "OutListSymbol"
END SUB

SUB CallDlg(DlgIDNo%, DlgProc$, HelpIDNo%) STATIC
 SetSymbolValue "DlgID", STR$(DlgIDNo%)
 DLG$ = UIStartDlg(CUIDLL$, DlgIDNo%, DlgProc$, HelpIDNo%, HELPPROC$)
 RemoveSymbol "DlgID"
END SUB

SUB AddOptFilesToCopyList (OptionId%, fForce%) STATIC
 IF fForce% OR (GetListItem(CHECKSTATES$, OptionId%) = "ON") THEN
  SELECT CASE OptionId%
   CASE APPOPTION
    IF SETUP_MODE% <> NETWORK_MODE THEN
     AddFileGrpToCopyList APPFILES
     AddFileGrpToCopyList BDRFILES
     AddFileGrpToCopyList PUBCONVFILES
     AddFileGrpToCopyList PUBFLTFILES
     AddFileGrpToCopyList WORDARTFILES
     AddFileGrpToCopyList MSDRAWFILES
     AddFileGrpToCopyList NOTEITFILES
     AddFileGrpToCopyList ARTGALRYFILES
     AddFileGrpToCopyList MSINFOFILES
     AddFileGrpToCopyList WIZFILES
     AddFileGrpToCopyList WIZCGMFILES
    END IF

    AddFileGrpToCopyList WINFILES
    AddFileGrpToCopyList WINSYSFILES

    IF SETUP_MODE% = ADMIN_MODE THEN
     AddFileGrpToCopyList SETUPFILES
    END IF
   CASE HELPOPTION
    IF SETUP_MODE% <> NETWORK_MODE THEN
     AddOptionGrpToCopyList OptionId%
    END IF
   CASE SPELLOPTION
    IF SETUP_MODE% <> NETWORK_MODE THEN
     AddOptionGrpToCopyList OptionId%
    END IF
   CASE COVOPTION
    IF SETUP_MODE% <> NETWORK_MODE THEN
     AddListOptFiles CONFILES
    END IF
   CASE FLTOPTION
    IF SETUP_MODE% <> NETWORK_MODE THEN
     AddListOptFiles FLTFILES
     AddFileGrpToCopyList FLTDEPFILES
    END IF
   CASE TEMPOPTION
    IF SETUP_MODE% <> NETWORK_MODE THEN
     AddFileGrpToCopyList PUBFILES
'$IFDEF INTL
'$ELSE
     AddFileGrpToCopyList PAPERFILES
'$ENDIF
    END IF
   CASE ARTSOPTION
    IF SETUP_MODE% <> NETWORK_MODE THEN
     AddOptionGrpToCopyList OptionId%
    END IF
   CASE FONTOPTION
    AddOptionGrpToCopyList OptionId%
   CASE ELSE
  END SELECT
 END IF

END SUB

STATIC SUB InstallFiles
 ClearCopyList

 FOR Opt% = 1 TO MAXOPTIONGROUP-1 STEP 1
  AddOptFilesToCopyList Opt%, 0
 NEXT Opt%

 i% = BitmapCntrlInit()
 AddToBillboardList CUIDLL$, BILLBOARD, "FModelessDlgProc", 1
 SetCopyGaugePosition 140, 160
 CopyFilesInCopyList
 ClearCopyList

 IF GetListItem(CHECKSTATES$, APPOPTION) = "ON" THEN
  IF SETUP_MODE% <> NETWORK_MODE THEN
   CloseSystem RTRIM$(FileGrp(APPFILES).Section), "APP-MSPUB1", RTRIM$(FileGrp(APPFILES).DestPath), 291, 290
  END IF

  IF SETUP_MODE% = ADMIN_MODE THEN
   NAME FilePath(SETUPFILES, "network.in_") AS FilePath(SETUPFILES, "mspub.in_")
  END IF
 END IF

 IF GetListItem(CHECKSTATES$, TEMPOPTION) = "ON" THEN
  IF SETUP_MODE% <> NETWORK_MODE THEN
'$IFDEF INTL
'$ELSE
   UpdatePapersIni
'$ENDIF
  END IF
 END IF

 IF SETUP_MODE% = ADMIN_MODE THEN
  EXIT SUB
 END IF

 IF DoesFileExist(FilePath(WINFILES, "ctl3d.dll"), femExists) THEN
  KILL FilePath(WINFILES, "ctl3d.dll")
 END IF

 CallDlg WRITEINI, "FModelessDlgProc2", APPHELP

 IF GetListItem(CHECKSTATES$, FONTOPTION) = "ON" THEN
  MakeListFromSectionFilename "TTFileList", RTRIM$(FileGrp(TTFFiles).Section)
  NoOfTTFFiles% = GetListLength("TTFileList")
  FOR cCount% = 1 TO NoOfTTFFiles% STEP 1
   Result% = InstallTTFont(GetListItem("TTFileList", cCount%))
  NEXT cCount%
 END IF

 UpdateWinIni

 IF GetListItem(CHECKSTATES$, APPOPTION) = "ON" THEN
  UpdatePubIni
  UpdateRegDat
 END IF

 IF GetListItem(CHECKSTATES$, ARTSOPTION) = "ON" THEN
  szValue$ = RTRIM$(FileGrp(CGMFILES).DestPath)+", PUB20ART.IDX, PUB20ART.THM, Microsoft Publisher 2.0"
  SetIniKeyValue FilePath(WINFILES,"ARTGALRY.INI"), "Import", "File1", szValue$
  i% = WritePrivateProfileString(FilePath(WINFILES, "ARTGALRY.INI"), "", "", "")
 END IF

 UIPop 1

 IF GetListItem(CHECKSTATES$, APPOPTION) = "ON" THEN
  ''INTL Localize everything in quotes down to END IF
  MSSol$ = "Microsoft Publisher 2.0"
  szOpt$ = ""
  IF SETUP_MODE = NETWORK_MODE THEN
   szOpt$ = ",0,,," + GetWindowsDir + ","
  END IF
  CreateProgmanGroup MSSol$, "", cmoNone
  ShowProgmanGroup MSSol$, 1, cmoNone
  CreateProgmanItem MSSol$, "Microsoft Publisher", FilePath(APPFILES, "mspub.exe"), szOpt$, cmoOverwrite
  CreateProgmanItem MSSol$, "Read Me", FilePath(APPFILES, "readme.hlp"), "", cmoOverwrite
  IF SETUP_MODE = NETWORK_MODE THEN
   CreateProgmanItem MSSol$, "Network Information", FilePath(APPFILES, "network.txt"), "", cmoOverwrite
  END IF
  MSSol$ = ""
  szOpt$ = ""
 END IF

 i% = ScAddShare
 SELECT CASE i%
  CASE SCERROR
   ERROR STFSHARE
  CASE SCOK
   RB% = 0
  CASE SCREBOOT
   RB% = 1
 END SELECT
END SUB

SUB UpdateRegDat STATIC
 Load$ = FilePath(WINFILES, "REGEDIT.EXE /s ")
 ''INTL strings 3&4 where applicable (Read & Edit)
 MakeReg Load$, WORDARTFILES, "MSWordArt.2", "WordArt 2.0", "&Edit", "", "WordArt2", "", 1
 MakeReg Load$, MSDRAWFILES, "MSDraw", "Drawing", "", "", "msdraw", "", 0
 MakeReg Load$, ARTGALRYFILES, "MS_ClipArt_Gallery", "ClipArt Gallery", "&Edit", "", "artgalry", "26", 0
 MakeReg Load$, NOTEITFILES, "Note-It", "Note-It", "&Read", "&Edit", "Note-It", "08", 0

 HKey$ = "HKEY_CLASSES_ROOT\"

 IF SETUP_MODE% = NETWORK_MODE THEN
  Reg$ = FilePath(WINFILES, "MSPUB.REG")
 ELSE
  Reg$ = FilePath(FileID, "MSPUB.REG")
 END IF

 OPEN Reg$ FOR OUTPUT AS 1
 PRINT #1, "REGEDIT"
 ''INTL Microsoft Publisher Document and the /p on the next line
 PRINT #1, HKey$; "MSPublisher = Microsoft Publisher Document"
 PRINT #1, HKey$; "MSPublisher\shell\print\command = "; FilePath(FileID, "mspub.exe"); " /p %1"
 PRINT #1, HKey$; "MSPublisher\shell\open\command = "; FilePath(FileID, "mspub.exe"); " %1"
 PRINT #1, HKey$; ".pub = MSPublisher"
 CLOSE #1
 i% = RUN(Load$ + Reg$)
 HKey$ = ""
 Reg$ = ""

 i% = RUN(Load$ + FilePath(WINFILES, "OLE2.REG"))
 i% = RUN(Load$ + FilePath(APPFILES, "OLE1.REG"))
 Load$ = ""
END SUB

SUB MakeReg(Load$, FileID%, szApp$, szName$, szVb0N$, szVb1N$, szExe$, szCls$, fOle2%) STATIC
 HKey$ = "HKEY_CLASSES_ROOT\"
 Std$ = "\protocol\StdFileEditing\"

 IF SETUP_MODE% = NETWORK_MODE THEN
  Reg$ = FilePath(WINFILES, szExe$) + ".REG"
 ELSE
  Reg$ = FilePath(FileID, szExe$) + ".REG"
 END IF

 OPEN Reg$ FOR OUTPUT AS 1
 PRINT #1, "REGEDIT"
 PRINT #1, HKey$; szApp$; " = Microsoft "; szName$
 IF szVb0N$ <> "" THEN
  PRINT #1, HKey$; szApp$; Std$; "verb\0 = "; szVb0N$
 END IF
 IF szVb1N$ <> "" THEN
  PRINT #1, HKey$; szApp$; Std$; "verb\1 = "; szVb1N$
 END IF
 PRINT #1, HKey$; szApp$; Std$; "server = "; FilePath(FileID, szExe$); ".exe"
 IF szCls$ <> "" THEN
  HKeyCls$ = HKey$+"CLSID\{000300"+szCls$+"-0000-0000-C000-000000000046}"
  PRINT #1, HKeyCls$; " = Microsoft "; szName$
  PRINT #1, HKeyCls$; "\MiscStatus = 512"
  HKeyCls$ = ""
 END IF
 IF fOle2% THEN
  Cls$ = "{000212F0-0000-0000-C000-000000000046}"
  HKeyCls$ = HKey$+"CLSID\"+Cls$
  PRINT #1, HKey$; szApp$; "\Insertable"
  PRINT #1, HKey$; szApp$; "\CLSID = "; Cls$
  PRINT #1, HKeyCls$; " = Microsoft "; szName$
  PRINT #1, HKeyCls$; "\LocalServer = "; FilePath(FileID, szExe$); ".exe"
  PRINT #1, HKeyCls$; "\InprocHandler = ole2.dll"
  PRINT #1, HKeyCls$; "\AuxUserType\2 = WordArt 2.0"
  PRINT #1, HKeyCls$; "\AuxUserType\3 = Microsoft WordArt"
  PRINT #1, HKeyCls$; "\MiscStatus = 0"
  PRINT #1, HKeyCls$; "\MiscStatus\1 = 1"
  PRINT #1, HKeyCls$; "\Conversion\Readable\Main = WordArt"
  PRINT #1, HKeyCls$; "\DataFormats\GetSet\2 = MSWordArt.2, -1, 1, 3"
  PRINT #1, HKeyCls$; "\DataFormats\GetSet\1 = 1, -1, 1, 3"
  PRINT #1, HKeyCls$; "\DataFormats\GetSet\0 = 3, -1, 32, 1"
  PRINT #1, HKeyCls$; "\Verb\1 = &Open,0,2"
  PRINT #1, HKeyCls$; "\Verb\0 = &Edit,0,2"
  PRINT #1, HKeyCls$; "\Verb\-1 = Show,0,1"
  PRINT #1, HKeyCls$; "\Verb\-2 = Open,0,1"
  PRINT #1, HKeyCls$; "\Verb\-3 = Hide,0,1"
  PRINT #1, HKeyCls$; "\Insertable"
  PRINT #1, HKeyCls$; "\ProgId = "; szApp$
  PRINT #1, HKey$; "MSWordArt = Microsoft WordArt"
  PRINT #1, HKey$; "MSWordArt\CurVer = MSWordArt.2"
  PRINT #1, HKey$; "MSWordArt\CLSID = "; Cls$
  HKeyCls$ = HKey$+"CLSID\{00030009-0000-0000-C000-000000000046}"
  PRINT #1, HKeyCls$; " = Microsoft WordArt 1.0"
  PRINT #1, HKeyCls$; "\MiscStatus = 512"
  PRINT #1, HKeyCls$; "\MiscStatus\1 = 513"
  PRINT #1, HKeyCls$; "\Ole1Class = WordArt"
  PRINT #1, HKeyCls$; "\ProgID = WordArt"
  Cls$ = ""
  HKeyCls$ = ""
 END IF
 CLOSE #1

 i% = RUN(Load$ + Reg$)

 HKey$ = ""
 Std$ = ""
 Reg$ = ""
END SUB

SUB UpdateWinIni STATIC
 Ini$ = "WIN.INI"
 IF SETUP_MODE = NORMAL_MODE THEN
  MsApps$ = MakePath(GetWindowsDir,"MSAPPS")
 ELSE
  MsApps$ = DEST$
 END IF

 IF GetListItem(CHECKSTATES$, APPOPTION) = "ON" THEN
  szValue$ = FilePath(APPFILES, "MSPUB.EXE ^.pub")
  SetIniKeyValue Ini$, "Extensions", "pub", szValue$

  szValue$ = "Microsoft Publisher 2.0," + FilePath(PUBCONVFILES,"MSWPUB2.CNV,pub")
  SetIniKeyValue Ini$, "MS Text Converters", "MSPub2", szValue$

  szValue$ = FilePath(PUBFLTFILES, "cgmimp.flt,CGM")
  SetIniKeyValue "WIN.INI", "MS Graphic Import Filters", "Computer Graphics MetaFile(.CGM)", szValue$
  szValue$ = FilePath(PUBFLTFILES, "wmfimp.flt,WMF")
  SetIniKeyValue "WIN.INI", "MS Graphic Import Filters", "Windows Metafile(.WMF)", szValue$

  szValue$ = FilePath(MSINFOFILES,"MSINFO.EXE")
  SetIniKeyValue Ini$, "Microsoft System Info", "MSINFO", szValue$

  SetIniKeyValue Ini$, "MSAPPS", "MSAPPS", MsApps$
  SetIniKeyValue Ini$, "MSAPPS", "MSINFO", MakePath(MsApps$, "MSINFO")
  SetIniKeyValue Ini$, "MSAPPS", "WORDART", MakePath(MsApps$, "WORDART")
  SetIniKeyValue Ini$, "MSAPPS", "NOTE-IT", MakePath(MsApps$, "NOTE-IT")
  SetIniKeyValue Ini$, "MSAPPS", "MSDRAW", MakePath(MsApps$, "MSDRAW")
  SetIniKeyValue Ini$, "MSAPPS", "TEXTCONV", MakePath(MsApps$, "TEXTCONV")
  SetIniKeyValue Ini$, "MSAPPS", "ARTGALRY", MakePath(MsApps$, "ARTGALRY")
 END IF

 IF GetListItem(CHECKSTATES$, SPELLOPTION) = "ON" THEN
 '' INTL  Need to change "mssp_am.lex" to localized dictionary name.
 ''       Need to change "1033,0" to localized numeric setting as per INTLSPEC.DOC
  szValue$ = FilePath(SPELLFILES,"msspell.dll,") + FilePath(SPELLFILES,"mssp_am.lex")
  SetIniKeyValue Ini$, "MS Proofing Tools", "Spelling 1033,0", szValue$

  '' INTL  Localize "custom.dic" to the custom dictionary for localized
  ''       language versions.
  IF SETUP_MODE% = NETWORK_MODE THEN
   szValue$ = FilePath(WINFILES,"custom.dic")
  ELSE
   szValue$ = FilePath(SPELLFILES,"custom.dic")
  END IF
  SetIniKeyValue Ini$, "MS Proofing Tools", "Custom Dict 1", szValue$
  SetIniKeyValue Ini$, "MSAPPS", "PROOF", MakePath(MsApps$, "PROOF")
 END IF

 ''INTL Localize only the second string - ex: "Word for Windows 2.x"
 IF GetListItem(CHECKSTATES$, COVOPTION) = "ON" THEN
  WriteConvIni 3, "WordWin2", "Word for Windows 2.x", "wordwin2.cnv,doc"
  WriteConvIni 2, "MSWordWin", "Word for Windows 1.x", "wordwin1.cnv,doc"
  WriteConvIni 1, "MSWordDos", "Word for DOS", "worddos.cnv,doc"
  WriteConvIni 4, "WrdPrfctDOS", "WordPerfect 5.x", "wpft5.cnv,doc"
  WriteConvIni 7, "MSWorksWin", "MS Works for Windows 2.0", "wrkswin.cnv,wps"
  WriteConvIni 6, "MSWorksDos", "MS Works for DOS", "wrksdos.cnv,wps"
  WriteConvIni 7, "Windows Write", "Windows Write", "writwin.cnv,wri"
  SetIniKeyValue Ini$, "MSAPPS", "TEXTCONV", MakePath(MsApps$, "TEXTCONV")

  ''INTL Not this though
  IF WasFileCopied(CONFILES,4) THEN
   IF DoesIniKeyExist ("WIN.INI", "MS Text Converters", "WrdPrfctDOS50") THEN
    RemoveIniKey "WIN.INI", "MS Text Converters", "WrdPrfctDOS50", cmoNone
   END IF
  END IF
 END IF

 IF GetListItem(CHECKSTATES$, FLTOPTION) = "ON" THEN
  WriteFltIni 4, "Tagged Image Format(.TIF)", "tiffimp.flt,TIF"
  WriteFltIni 1, "Micrografx Designer/Draw(.DRW)", "drwimp.flt,DRW"
  WriteFltIni 2, "Encapsulated PostScript(.EPS)", "epsimp.flt,EPS"
  WriteFltIni 3, "PC Paintbrush(.PCX)", "pcximp.flt,PCX"
  WriteFltIni 5, "DrawPerfect(.WPG)", "wpgimp.flt,WPG"
  WriteFltIni 6, "Kodak Photo CD(.PCD)", "pcdimp.flt,PCD"
  SetIniKeyValue Ini$, "MSAPPS", "GRPHFLT", MakePath(MsApps$, "GRPHFLT")
 END IF

 i% = WritePrivateProfileString(Ini$, "", "", "")
 szValue$ = ""
 Ini$ = ""
 MsApps$ = ""
END SUB

SUB WriteConvIni(Conv%, szKey$, szName$, szFileExt$) STATIC
 IF WasFileCopied(CONFILES,Conv%) THEN
  SetIniKeyValue "WIN.INI", "MS Text Converters", szKey$, szName$ + "," + FilePath(CONFILES,szFileExt$)
 END IF
END SUB

SUB WriteFltIni(Conv%, szKey$, szFileExt$) STATIC
 IF WasFileCopied(FLTFILES,Conv%) THEN
  SetIniKeyValue "WIN.INI", "MS Graphic Import Filters", szKey$, FilePath(FLTFILES,szFileExt$)
 END IF
END SUB

SUB UpdatePubIni STATIC
 Ini$ = FilePath(WINFILES,"MSPUB.INI")

 RemoveIniSection Ini$, "Help", cmoNone
 RemoveIniSection Ini$, "Clipart", cmoNone
 IF DoesIniKeyExist(Ini$, "Preferences", "ShowIntroductionToPublisher") THEN
  RemoveIniKey Ini$, "Preferences", "ShowIntroductionToPublisher", cmoNone
 END IF

 SetIniKeyValue Ini$, "Justification", "Default", "75,100,250,5,85,100,150,5"
 szValue$ = "75,100,250,0,85,100,150,0"
 SetIniKeyValue Ini$, "Justification", "Brush Script MT", szValue$
 SetIniKeyValue Ini$, "Justification", "Lucida Handwriting", szValue$
 SetIniKeyValue Ini$, "Justification", "Mistral", szValue$
 SetIniKeyValue Ini$, "Justification", "Vivaldi", szValue$

 SetIniKeyValue Ini$, "Spelling Info", "Speller", "Spelling 1033,0"
 SetIniKeyValue Ini$, "Spelling Info", "Custom", "Custom Dict 1"

 IF GetListItem(CHECKSTATES$, APPOPTION) = "ON" THEN
  szValue$ = FilePath(APPFILES,"hyph.dat")
  SetIniKeyValue Ini$, "Hyphenation", "Dictionary", szValue$
 END IF

 ''INTL Localize down to the end of the Wizard section
 ''     Localize only the Wizard names - ex: "Ad"
 szValue$ = "PageWizard 2.0"
 SetIniKeyValue Ini$, szValue$, "Ad", "mspgad.wiz,AREA"
 SetIniKeyValue Ini$, szValue$, "Banner", "mspgban.wiz,NEW"
 SetIniKeyValue Ini$, szValue$, "Three-Panel Brochure", "mspgbchr.wiz,NEW"
 SetIniKeyValue Ini$, szValue$, "Business Card & Paper", "mspgbusi.wiz,NEW"
 SetIniKeyValue Ini$, szValue$, "Calendar", "mspgcal.wiz,NEW,AREA"
 SetIniKeyValue Ini$, szValue$, "Coupon", "mspgcoup.wiz,AREA"
 SetIniKeyValue Ini$, szValue$, "Envelope", "mspgenv.wiz,NEW"
 SetIniKeyValue Ini$, szValue$, "Fancy First Letter", "mspgcap.wiz,AREA"
 SetIniKeyValue Ini$, szValue$, "Flyer", "mspgflyr.wiz,NEW"
 SetIniKeyValue Ini$, szValue$, "Greeting Card & Invitation", "mspgcard.wiz,NEW"
 SetIniKeyValue Ini$, szValue$, "Newsletter Banner", "mspgmast.wiz,AREA"
 SetIniKeyValue Ini$, szValue$, "Paper Aeroplane", "mspgaero.wiz,NEW"
 SetIniKeyValue Ini$, szValue$, "Seven Business Forms", "mspgform.wiz,NEW"
 SetIniKeyValue Ini$, szValue$, "Newsletter", "mspgnews.wiz,NEW"
 SetIniKeyValue Ini$, szValue$, "Logo Creator Plus", "mspglogo.wiz,AREA"
 SetIniKeyValue Ini$, szValue$, "Origami", "mspgorgm.wiz,NEW"
 SetIniKeyValue Ini$, szValue$, "Tape Cassette Cover", "mspgtape.wiz,NEW"

 Demo$ =  "DEMO.CCD "
 SetIniKeyValue Ini$, "Demo", "Gotobackground", Demo$ + "-p background1"
 SetIniKeyValue Ini$, "Demo", "Grouping", Demo$ + "-p grouping1"
 SetIniKeyValue Ini$, "Demo", "Layering", Demo$ + "-p layer1"
 SetIniKeyValue Ini$, "Demo", "FlowButton", Demo$ + "-p linking1"
 SetIniKeyValue Ini$, "Demo", "Style", Demo$ + "-p style1"
 SetIniKeyValue Ini$, "Demo", "Table", Demo$ + "-p tables1"
 SetIniKeyValue Ini$, "Demo", "startup", "intropub.ccd"

 SetIniKeyValue Ini$, "Cue Cards", "Blank Page", "blankcc.ccd -h %h"
 SetIniKeyValue Ini$, "Cue Cards", "Blank Page_Menu", "blankcc.ccd -p bmmenu -h %h"
 SetIniKeyValue Ini$, "Cue Cards", "Template", "tempcc.ccd -h %h"
 SetIniKeyValue Ini$, "Cue Cards", "Template_Menu", "tempcc.ccd -p tmainmenu -h %h"
 SetIniKeyValue Ini$, "Cue Cards", "Template_Wizard", "tempcc.ccd -p tmpwizmain1 -h %h"
 SetIniKeyValue Ini$, "Cue Cards", "Newsletter", "newscc.ccd -h %h"
 SetIniKeyValue Ini$, "Cue Cards", "Newsletter_Menu", "newscc.ccd -p nmainmenu -h %h"

 i% = WritePrivateProfileString(Ini$, "", "", "")
 Ini$ = ""
 Demo$ = ""
 szValue$ = ""
END SUB

SUB UpdatePapersIni STATIC
 Ini$ = FilePath(PAPERFILES,"PAPERS.INI")
 SetIniKeyValue Ini$, "LETTER", "PaperFrame - Blue Carrara", "pdir19p.wmf, pdir19l.wmf, Blue Carrara PaperFrame - PaperDirect #DT1441"
 SetIniKeyValue Ini$, "LETTER", "Letterhead - Blue Carrara", "pdir20p.wmf, pdir20l.wmf, Blue Carrara Letterhead - PaperDirect #DT1351"
 SetIniKeyValue Ini$, "LETTER", "Brochure - Blue Carrara", "pdir13p.wmf, pdir13l.wmf, Blue Carrara Brochure - PaperDirect #BMT232"
 SetIniKeyValue Ini$, "LETTER", "PaperFrame - Florentine", "pdir11p.wmf, pdir11l.wmf, Florentine PaperFrame - PaperDirect #DT1131"
 SetIniKeyValue Ini$, "LETTER", "Letterhead - Florentine", "pdir17p.wmf, pdir17l.wmf, Florentine Letterhead - PaperDirect #DT1431"
 SetIniKeyValue Ini$, "LETTER", "Brochure - Florentine", "pdir12p.wmf, pdir12l.wmf, Florentine Brochure - PaperDirect #BT1021"
 SetIniKeyValue Ini$, "LETTER", "PaperFrame - Marble", "pdir18p.wmf, pdir18l.wmf, Marble PaperFrame - PaperDirect #DT1141"
 SetIniKeyValue Ini$, "LETTER", "Letterhead - Marble", "pdir15p.wmf, pdir15l.wmf, Marble Letterhead - PaperDirect #DT1341"
 SetIniKeyValue Ini$, "LETTER", "Brochure - Marble", "pdir14p.wmf, pdir14l.wmf, Marble Brochure - PaperDirect #BM4011"
 SetIniKeyValue Ini$, "LETTER", "Brochure - Two Tone Purple/Green", "pdir7p.wmf, pdir7l.wmf, Two tone gradient brochure with purple and green - PaperDirect #BT1001"
 SetIniKeyValue Ini$, "LETTER", "Design Paper - News", "pdir4p.wmf, pdir4l.wmf, News text design paper - PaperDirect #DT1101"
 SetIniKeyValue Ini$, "LETTER", "Letterhead - Acropolis", "pdir3p.wmf, pdir3l.wmf, Acropolis letterhead - PaperDirect #DT1271"
 SetIniKeyValue Ini$, "LETTER", "PaperFrame - Water Colors", "pdir5p.wmf, pdir5l.wmf, Water colors PaperFrame - PaperDirect #DT1291"
 SetIniKeyValue Ini$, "LETTER", "Design Paper - Vision", "pdir6p.wmf, pdir6l.wmf, Vision design paper - PaperDirect #DT1121"
 SetIniKeyValue Ini$, "LETTER", "Brochure - Modern Art With Rotary Card", "pdir10p.wmf, pdir10l.wmf, Modern art brochure with rotary card - PaperDirect #BMT1031"
 SetIniKeyValue Ini$, "LETTER", "Brochure - Odyssey", "pdir8p.wmf, pdir8l.wmf, Odyssey brochure - PaperDirect #BM4151"
 SetIniKeyValue Ini$, "LETTER", "Brochure - Bright Ideas", "pdir1p.wmf, pdir1l.wmf, Bright ideas brochure - PaperDirect #BM9011"
 SetIniKeyValue Ini$, "LETTER", "Design Paper - PineNotes", "pdir2p.wmf, pdir2l.wmf, PineNotes design paper - PaperDirect #DT1211"
 SetIniKeyValue Ini$, "LETTER", "Design Paper - PaperTree", "pdir16p.wmf, pdir16l.wmf, PaperTree design paper - PaperDirect #DT1241"

 i% = WritePrivateProfileString(Ini$, "", "", "")
 Ini$ = ""
END SUB

SUB CalcFileSizes STATIC
 CallDlg CALCFILE, "FModelessDlgProc2", APPHELP
 ChangeFileDestPath
 UpdateSizeCal ALL, 1
 UpdateScreenStatus ALL
 UIPop 1
END SUB

SUB SetDriveText(DriveStat AS POINTER TO DRIVESTAT) STATIC

 WinDriveNo% = ASC(ucase$(MID$(GetWindowsDir,1,1))) - ASC("A") + 1

 ReplaceListItem DRIVETEXT$, 1, DriveStat[DestDrive].Drive + ":"
 ReplaceListItem DRIVETEXT$, 2, STR$(DriveStat[DestDrive].Cost / 1024) + " K"
 ReplaceListItem DRIVETEXT$, 3, STR$(DriveStat[DestDrive].Free / 1024) + " K"

 IF DriveStat[DestDrive].DriveNo = WinDriveNo% THEN
  ReplaceListItem DRIVETEXT$, 4, ""
  ReplaceListItem DRIVETEXT$, 5, ""
  ReplaceListItem DRIVETEXT$, 6, ""
 ELSE
  IF DriveStat[WindowsDrive].Cost = 0 THEN
   ReplaceListItem DRIVETEXT$, 4, ""
   ReplaceListItem DRIVETEXT$, 5, ""
   ReplaceListItem DRIVETEXT$, 6, ""
  ELSE
   ReplaceListItem DRIVETEXT$, 4, DriveStat[WindowsDrive].Drive + ":"
   ReplaceListItem DRIVETEXT$, 5, STR$(DriveStat[WindowsDrive].Cost / 1024) + " K"
   ReplaceListItem DRIVETEXT$, 6, STR$(DriveStat[WindowsDrive].Free / 1024) + " K"
  END IF
 END IF

END SUB

SUB SetStatusText(OptionID%) STATIC
 FOR cCount% = 0 TO (MAXFILEGROUP-1) STEP 1
  IF (FileGrp(cCount%).OptionId = OptionID%) THEN
   cost& = 0

   IF GetListItem(CHECKSTATES$, OptionID%) = "ON" THEN
    FOR i% = 1 TO 26 STEP 1
     cost& = cost& + VAL(GetListItem(FileGrp(cCount%).Needs, i%))
    NEXT i%
   END IF

   ReplaceListItem STATUSTEXT$, OptionId%, STR$(cost& / 1024) + " K"
   EXIT FOR
  END IF
 NEXT cCount%
END SUB

SUB SetAllStatusText STATIC
 IF LEN(NewPath$) > 23 THEN
  ReplaceListItem DRIVETEXT$, 7, MID$(DEST$, 1, 23)+"..."
 ELSE
  ReplaceListItem DRIVETEXT$, 7, DEST$
 END IF

 FOR cCount% = 1 to MAXOPTIONGROUP-1 STEP 1
  SetStatusText cCount%
 NEXT cCount%

END SUB

SUB ChangeFileDestPath STATIC

 IF SETUP_MODE = ADMIN_MODE THEN
  Win$ = MakePath(DEST$,"DLL")
  Sys$ = Win$
 ELSE
  Win$ = GetWindowsDir
  Sys$ = GetWindowsSysDir
 END IF

 IF SETUP_MODE = NORMAL_MODE THEN
  MsApps$ = MakePath(GetWindowsDir,"MSAPPS")
 ELSE
  MsApps$ = DEST$
 END IF

 InitDriveStat VARPTR(DriveStat(DestDrive)), DEST$
 ReplaceListItem DRIVETEXT$, 7, DEST$

 ChangeDestPath APPFILES, DEST$
 ChangeDestPath MSPHELPFILES, DEST$
 ChangeDestPath SETUPFILES, DEST$

 '' INTL Localize the directory names in the following lines.
 ''      Stop at the first blank line.
 ChangeDestPath PUBFILES, MakePath(DEST$,"TEMPLATE")
 ChangeDestPath WIZFILES, MakePath(DEST$,"PAGEWIZ")
 ChangeDestPath WIZCGMFILES, MakePath(DEST$,"PAGEWIZ")
 ChangeDestPath BDRFILES, MakePath(DEST$,"BORDERS")
 ChangeDestPath CGMFILES, MakePath(DEST$,"CLIPART")
 ChangeDestPath CGMWIZFILES, MakePath(DEST$,"CLIPART")
 '$IFDEF INTL
 '$ELSE
 ChangeDestPath PAPERFILES, MakePath(DEST$,"PAPERS")
 '$ENDIF

 ChangeDestPath TTFFILES, Sys$
 ChangeDestPath WINFILES, Win$
 ChangeDestPath WINSYSFILES, Sys$
 ChangeDestPath WORDARTFILES, MakePath(MsApps$,"WORDART")
 ChangeDestPath NOTEITFILES, MakePath(MsApps$,"NOTE-IT")
 ChangeDestPath MSDRAWFILES, MakePath(MsApps$,"MSDRAW")
 ChangeDestPath ARTGALRYFILES, MakePath(MsApps$,"ARTGALRY")
 ChangeDestPath MSINFOFILES, MakePath(MsApps$,"MSINFO")
 ChangeDestPath SPELLFILES, MakePath(MsApps$,"PROOF")
 ChangeDestPath CONFILES, MakePath(MsApps$,"TEXTCONV")
 ChangeDestPath PUBCONVFILES, MakePath(MsApps$,"TEXTCONV")
 ChangeDestPath PUBFLTFILES, MakePath(MsApps$,"GRPHFLT")
 ChangeDestPath FLTFILES, MakePath(MsApps$,"GRPHFLT")
 ChangeDestPath FLTDEPFILES, MakePath(MsApps$,"GRPHFLT")
 ChangeDestPath NOTEITHLPFILES, MakePath(MsApps$,"NOTE-IT")
 ChangeDestPath WORDARTHLPFILES, MakePath(MsApps$,"WORDART")
 ChangeDestPath MSDRAWHLPFILES, MakePath(MsApps$,"MSDRAW")
 ChangeDestPath ARTHLPFILES, MakePath(MsApps$,"ARTGALRY")

 Win$ = ""
 Sys$ = ""
 MsApps$ = ""

END SUB

SUB UpdateSizeCal(OptionNo%, fRecalc%) STATIC
 CursorSave% = ShowWaitCursor()
 IF fRecalc% <> 0 THEN
  IF OptionNo% = 0 THEN
   RecalcPath
  ELSE
   RecalcOptFiles OptionNo%
  END IF
 END IF
 SetDriveStatus VARPTR(DriveStat(0)), MaxDrive
 RestoreCursor CursorSave%
END SUB

SUB UpdateScreenStatus(OptionNo%) STATIC
 CursorSave% = ShowWaitCursor()
 IF OptionNo% = 0 THEN
  SetAllStatusText
 ELSE
  SetStatusText OptionNo%
 END IF
 SetDriveText VARPTR(DriveStat(0))
 RestoreCursor CursorSave%
END SUB

STATIC FUNCTION GETPATH(DefaultPath$, DlgTextID%) AS STRING
 SetSymbolValue "EditTextIn", DefaultPath$
 SetSymbolValue "EditFocus", "END"
 NewPath$ = DefaultPath$

 WHILE 1
  SetSymbolValue "FInCust", STR$(FINCUST%)
  CallDlg DESTPATHN, "FEditDlgProc", HELPPATH
  RemoveSymbol "FInCust"

  SELECT CASE DLG$
   CASE "CONTINUE"
    NewPath$ = GetSymbolValue("EditTextOut")

    IF IsDirWritable(NewPath$) = 0 THEN
     WHILE 1
      CallDlg BADPATH, "FInfo0DlgProc", APPHELP
      IF DLG$ <> "REACTIVATE" THEN
       EXIT WHILE
      END IF
     WEND
     UIPop 1
    ELSEIF DoesFileExist(MakePath(NewPath$,"MSPUB.EXE"), femExists) THEN
     WHILE 1
      CallDlg PREVPUB, "FInfo0DlgProc", APPHELP
      SELECT CASE DLG$
       CASE "CONTINUE"
        UIPOP 1
        GOTO GOTPATH
       CASE "REACTIVATE"
       CASE ELSE
        UIPOP 1
        EXIT WHILE
      END SELECT
     WEND
    ELSE
GOTPATH:
     UIPop 1

     GETPATH = NewPath$
     EXIT WHILE
    END IF

   CASE "REACTIVATE"
   CASE ELSE
    IF FINCUST% = 1 THEN
     UIPop 1
     GETPATH = DefaultPath$
     EXIT WHILE
    END IF

    QuitProc
  END SELECT
 WEND

 RemoveSymbol "EditTextIn"
 RemoveSymbol "EditFocus"
 DefaultPath$ = ""
 NewPath$ = ""

END FUNCTION

SUB QuitProc STATIC
 WHILE 1
  CallDlg ASKQUIT, "FQuitDlgProc", APPHELP

  IF DLG$ = "EXIT" THEN
   UIPopAll
   ERROR STFQUIT
  ELSE
   UIPop 1
   EXIT WHILE
  END IF
 WEND
END SUB