home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / ovladace / xdiag / mvdxdiag.exe / QCFG.DAT < prev    next >
Encoding:
Text File  |  1995-03-30  |  54.8 KB  |  1,631 lines
  1. include qcfgglb.dat
  2. set DEBUGMODE type int 1
  3.  
  4. ## special global variables
  5. set v_Board    type str ""
  6. set s_BoardStr    type str ""
  7.  
  8. set prg_this    type str "diag.exe"    # the name of the script engine
  9.  
  10. set v_WEREDONE    0
  11.  
  12. set TPD_NAME    type str "Third Party Driver Name"
  13. set TPD_DESC    type str "Third Party Driver Description"
  14. set TPD_LINE    type str "Third Party Driver System Config Line"
  15. set TPD_FILE    type str "System Config File"
  16. set TPD_SECTION    type str "System Config Section"
  17.  
  18. ## global options
  19. set c_vollvl    type str "50"        # master volume level
  20. set c_joyon    type str "1"
  21. set c_unload    type str ""
  22.  
  23. # other global variables
  24. set v_bootfil    type str "config.sys"
  25.  
  26. # our .ini file stuff
  27. set i_pcmport    type str ""
  28. set i_pcmdma    type str ""
  29. set i_pcmirq    type str ""
  30. set i_pcmhdma    type str ""
  31. set i_mpuport    type str ""
  32. set i_mpuirq    type str ""
  33. set i_cdrport    type str ""
  34. set i_cdrtype    type str ""
  35. set i_icsport    type str ""
  36.  
  37. # for Manual 
  38. set nam_CONFIGJAZZ    "PROS.SYS"
  39. set nam_AUTOEXVBEAI    "vbeai.com"
  40. set nam_AUTOEXBLASTER    "BLASTER"
  41. set lin_CONFIGJAZZ    ""
  42. set lin_AUTOEXVBEAI    ""
  43. set lin_AUTOEXBLASTER    ""
  44.  
  45. # for hints line
  46. set fun_qcfgsecs type long $secs 
  47. set fun_qcfgdialog type str ""
  48.  
  49. menu QCFG dims 25,80 bc blue tc white bo no noescape
  50.     runscript FigureBoard
  51.     runscript ReadINSTALLINIFILE
  52.     runscript ReadINIFILE
  53.  
  54.     text at ,2 "Quick Configure"
  55.     box dims 0,15
  56.     text
  57.     text "Welcome to the Media Vision 'Quick Config' program."
  58.     text
  59.     text "You can select Automatic for the easiest configuration possible."
  60.     text "Or, you can select Custom for a more informative procedure."
  61.     text
  62.     text
  63.     box at 10,-1 dims 7,40 bo do sh
  64.     item at ,-1 "               Automatic              "     menu PWAutoQuickConfig return v_WEREDONE
  65.     item at ,-1 "                 Custom               "     menu CustomQuickConfig return v_WEREDONE
  66.     item at ,-1 "            Update INI File           "    menu EditINIFILE
  67.     item at ,-1 "     Simulate First-Time Install      "    script FirstTimeInstall    return v_WEREDONE
  68.     item at ,-1 "          Interrogate System          "    menu InterrogateSystem 
  69.     text
  70.  
  71.     box at 22,0 dims 3,80 border single
  72.     hotkey F1 QCFGHelp
  73.     hotkey F2 QCFGAbout
  74.     hotkey F3 QCFGExit
  75.     hotkey F4 QCFGReset
  76.     hotkey F5 doSetGlobals
  77.     hotkey F10 ManualJAZZ
  78.  
  79.     box at 22,0 dims 3,80 border single
  80.     item script qcfgfun everytime 
  81.  
  82. script qcfgfun
  83.     local cursecs type long $secs
  84.     if isless $cursecs $fun_qcfgsecs return
  85.  
  86.     set fun_qcfgdialog "$fun_qcfgdialog" - "*\n"
  87.     if ! $_strop            then
  88.         display " " at 23,2 dims 1,77    background blue textcolor white
  89.         set fun_qcfgdialog    type str `file qcfg.dlg
  90.         if $fun_qcfgsecs display fun_qcfgdialog at 23,2 dims 1,77    background blue textcolor white
  91.         set fun_qcfgsecs $cursecs + 4
  92.     else
  93.         set fun_qcfgsecs $cursecs + 4
  94.         display fun_qcfgdialog at 23,2 dims 1,77    background blue textcolor white
  95.     endif
  96.     return
  97.  
  98. menu InterrogateSystem at -1,-1 bc wh tc bla bo do sh 
  99.     text "This procedure has the potential to cause your computer to 'lock-up'."
  100.     text
  101.     text "During the normal course of this program, this situation is detected"
  102.     text "and prevented from happening again."
  103.     text
  104.     text "Select 'Continue...' to execute the interrogation program."
  105.     text "Press ESCAPE, otherwise."
  106.     text
  107.     box  at ,-1 dims 4,20
  108.     item at ,-1 " Continue... " script InterrogateSystem
  109.     item at ,-1 " Exit " return 1
  110.     text
  111.     text at ,2
  112.     text "The procedure takes only a few seconds, unless there is a problem,"
  113.     text "in which case you should wait a minute after all drive lights to go off."
  114.     text
  115.     text "This program is perfectly safe, and should execute without error."
  116.  
  117. script InterrogateSystem 
  118.     execute $prg_qainfo -t204 -t205 -f$v_qafile
  119.     runmenu DisplayInterrogateSystem
  120.     return
  121. menu DisplayInterrogateSystem at 0,0 dims 25,80 bc bla tc whi bo none item execute "pg $v_qafile"
  122.  
  123. ## AutoQuickConfig(menu) - called by MAIN
  124. menu PWAutoQuickConfig dims 25,80 bc blue tc white bo no 
  125.     text at ,2 "Automatic Quick Config"
  126.     box dims 0,22
  127.     text
  128.     text "This program will quickly configure your sound board for use with"
  129.     text "your computer system."
  130.     text
  131.     text "If any changes need to be made to your configuration files, this"
  132.     text "this program will make them and then restart your computer."
  133.     text
  134.     box  at ,-1 dims 6,30 border double shadow
  135.     text
  136.     item at ,-1 " Yes, go ahead, please... " script AutoQuickConfig return 1
  137.     item at ,-1 " No, never mind! "                    return 1
  138.     text
  139.  
  140.  
  141. script AutoQuickConfig
  142.     display " Locating Media Vision Hardware"     at 23,1 dims 1,78 background white textcolor black
  143.     runscript FigureBoard
  144.  
  145.     if issame "${v_Board}" ""        goto noboard
  146.     if issame "${v_Board}" "Unknown"    goto unknown
  147.  
  148.     display " " at 1,1 dims 7,78 bc blu tc wh
  149.  
  150.     display    " Analyze $v_bootfil"             at 23,1 dims 1,78 background white textcolor black
  151.     runscript    AnalyzeConfig${v_Board}
  152.     runmenu       DisplayConfig${v_Board}
  153.  
  154.     display " Analyze $v_namconfig"             at 23,1 dims 1,78 background white textcolor black
  155.     runscript     AnalyzeDriver${v_Board}
  156.     runmenu        DisplayDriver${v_Board}
  157.  
  158.     display " Analyze $v_BoardStr"             at 23,1 dims 1,78 background white textcolor black
  159.     runscript    AnalyzeBoard${v_Board}
  160.     runmenu        DisplayBoard${v_Board}
  161.  
  162.     display " Comparing Configurations"        at 23,1 dims 1,78 background white textcolor black
  163.     runscript     CompareConfigDriver${v_Board}
  164.     runmenu        DisplayCompare${v_Board}
  165.  
  166.     display " Configuring Board"            at 23,1 dims 1,78 background white textcolor black
  167.     runscript    Config${v_Board}
  168.  
  169.     display " Testing Board"            at 23,1 dims 1,78 background white textcolor black
  170.     runscript     Test${v_Board}
  171.  
  172.     display " Update Configuration Files, Reboot if Changed "
  173.     runscript UpdateDOSWINConfig        
  174.  
  175.     set v_WEREDONE 1
  176.     return
  177.  
  178.     :noboard
  179.     runmenu NoBoard
  180.     return
  181.  
  182.     :unknown
  183.     runmenu NoBoard
  184.     return
  185.  
  186. menu NoBoard at -1,-1 bc re tc btw bo do sh text " No Media Vision Board Found! "
  187.  
  188. menu WereDone at -1,-1 bc wh tc bla bo do sh text " Configuration Complete!"
  189.  
  190. menu PleaseWait at -1,-1 dims 3,40 bc gr tc bla bo do sh item " $PWText " dims 1,36 background white textcolor black script $PWScript
  191.     
  192.  
  193. ## CustomQuickConfig(menu) - called by MAIN
  194. menu CustomQuickConfig dims 25,80 bc blu tc wh bo no 
  195.     set v_WEREDONE 0
  196.     runscript FigureBoard
  197.  
  198.     text at ,2 "Custom Quick Config"
  199.     box dims 0,19
  200.  
  201.     text at 4
  202.     box at ,-1 dims 14,42 border shadow
  203.     item at ,-1 dims 1,40 " Analyze CONFIG Configuration "             return v_WEREDONE    script AnalyzeDisplayConfig${v_Board}     # menu PWAnalyzeDisplayConfig${v_Board}     
  204.     item at ,-1 dims 1,40 " Analyze DRIVER Configuration "             return v_WEREDONE    script AnalyzeDisplayDriver${v_Board}    # menu PWAnalyzeDisplayDriver${v_Board}    
  205.     item at ,-1 dims 1,40 " Analyze BOARD Configuration "             return v_WEREDONE    script AnalyzeDisplayBoard${v_Board}        # menu PWAnalyzeDisplayBoard${v_Board}    
  206.     separator at ,-1 dims 1,40
  207.     item at ,-1 dims 1,40 " Test using INI Settings "            menu PWTest${v_Board}             return v_WEREDONE
  208.     item at ,-1 dims 1,40 " Reset to CONFIG.SYS Settings "            menu PWResetConfig${v_Board}         return v_WEREDONE
  209.     separator at ,-1 dims 1,40
  210.     item at ,-1 dims 1,40 " Update Configuration and reboot"    menu PWUpdateDOSWINConfig        return v_WEREDONE
  211.     separator at ,-1 dims 1,40
  212.     item at ,-1 dims 1,40 " Remove Drivers from System Files "        menu YNClearCONFIGFiles
  213.     item at ,-1 dims 1,40 " Remove Third-Party Drivers "            menu YNClearThirdParty
  214.     item at ,-1 dims 1,40 " Uninstall Software "                    menu YNUninstallSoftware
  215.     text
  216.  
  217.     text at 21,2 "Press F5 to set Global Variables"
  218.     hotkey F5 doSetGlobals
  219.     box at 22,0 dims 3,80 border single
  220.  
  221.  
  222. ## HelpQCFG(menu) - called by CustomQuickConfig
  223. menu HelpQCFG dims 25,80 bc bla tc wh bo no name " Help with 'Quick Config' "
  224.     text
  225.     text "Use the Arrow Keys to move the highlighted cursor."
  226.     text
  227.     text "Press ESCAPE to exit most menues."
  228.     text
  229.     text "Press Shift-1 (!) to obtain a 'command shell' (enter EXIT to return)."
  230.     text "Press Shift-2 (@) to refresh the screen."
  231.     text
  232.     text "Start this program with '-w' to run in a Windows DOS Box."
  233.     text
  234.     text "Start this program with '-d' to generate debug output."
  235.     text "Edit the .DAT files to modify the program behavior."
  236.     text
  237.     text "Examine the .INI file to determine start-up and lock-up conditions."
  238.  
  239.  
  240. script FigureBoard
  241.     if issame "${v_Board}" ""        goto figureboard
  242.     if issame "${v_Board}" "Unknown"    goto figureboard
  243.     return
  244.  
  245.     :figureboard
  246.     local gotboard 0
  247.     set v_Board "Unknown"
  248.  
  249. #    :tryPAS
  250. #    execute -eo proas.exe
  251. #    set gotboard $gotboard + $errorlevel
  252. #    if $errorlevel     runscript setv_PAS
  253.  
  254.     :tryJAZZ
  255.     local ourdir type str ""
  256.     set ourdir `pwd
  257.     if issame "${prg_board}" ""        then
  258.         if isfile ${ourdir}:h\pros.exe     set prg_board "${ourdir}:h\pros.exe"
  259.         if isfile ${ourdir}:h\jazz.exe    set prg_board "${ourdir}:h\jazz.exe"
  260.         if isfile pros.exe        set prg_board "pros.exe"
  261.         if isfile jazz.exe        set prg_board "jazz.exe"
  262.     else
  263.         if isfile ${ourdir}:h\${prg_board}     set prg_board "${ourdir}:h\${prg_board}"
  264.     endif
  265.  
  266.     if not isfile ${prg_board}    runmenu BadPRG_BOARD
  267.  
  268.     execute -eo $prg_board
  269. ##    if $DEBUGMODE    set errorlevel 6
  270.     set gotboard $gotboard + $errorlevel
  271.     if $errorlevel runscript setv_JAZZ 
  272.     if $gotboard return
  273.  
  274.     execute -eo $prg_board
  275.     set gotboard $gotboard + $errorlevel
  276.     if $errorlevel runscript setv_JAZZ 
  277.     if $gotboard return
  278.  
  279.     set gotboard $gotboard + $errorlevel
  280.     if $errorlevel runscript setv_JAZZ 
  281.     if $gotboard return
  282.  
  283.     return
  284.  
  285. script setv_PAS
  286.     set v_Board     "PAS"
  287.     set v_namconfig "mvsound.sys"
  288.     set prg_board     "proas.exe"
  289. #    set c_pasport    "388"
  290. #    set c_pasdma    "5"
  291. #    set c_pasirq    "15"
  292. #    set c_mpuport    "320"
  293. #    set c_mpuirq    "2"
  294. #    set c_pcmport    "220"
  295. #    set c_pcmdma    "1"
  296. #    set c_pcmirq    "5"
  297.     set c_verbose    "x"
  298.     set c_altclk    "0"
  299.     set c_noboot    "0"
  300.     set c_unload    ""
  301.     return
  302.  
  303. script setv_JAZZ
  304.     set v_Board     "JAZZ"
  305.     if issame "${v_bootdrv}" ""    set v_bootdrv "C:"
  306.     if issame "${v_bootdir}" ""    set v_bootdir "\"
  307.     if issame "${v_namconfig}" ""    then
  308.         sedit -C ${v_bootdrv}${v_bootdir} config.sys device=+pros.sys d locate
  309.         if $errorlevel    set v_namconfig "pros.sys"
  310.         sedit -C ${v_bootdrv}${v_bootdir} config.sys device=+jazz.sys d locate
  311.         if $errorlevel    set v_namconfig "jazz.sys"
  312.     endif
  313.     if issame "${v_namconfig}" ""    then
  314.         if isfile ${cwd}:h\pros.sys    set v_namconfig "pros.sys"
  315.         if isfile ${cwd}:h\jazz.sys    set v_namconfig "jazz.sys"
  316.     endif
  317. #    set c_pcmport     "220"
  318. #    set c_pcmdma     "1"
  319. #    set c_pcmirq     "5"
  320. #    set c_pcmhdma     "1"
  321. #    set c_mpuport     "320"
  322. #    set c_mpuirq     "2"
  323. #    set c_cdrport    "390"
  324. #    set c_cdrtype    "P"
  325.     set c_verbose     "v"
  326.     set c_mixcompat    "0"
  327.     set c_lopt    ""
  328.     set c_mixtype    ""
  329.  
  330.     if issame "${v_namcdrom}" ""    then
  331.         if isfile ${cwd}:h\cdrom.sys     set v_namcdrom "cdrom.sys"
  332.         if isfile ${cwd}:h\sjcd.sys     set v_namcdrom "sjcd.sys"
  333.         if isfile ${cwd}:h\fdcd.sys     set v_namcdrom "fdcd.sys"
  334.         if isfile cdrom.sys         set v_namcdrom "cdrom.sys"
  335.         if isfile sjcd.sys         set v_namcdrom "sjcd.sys"
  336.         if isfile fdcd.sys         set v_namcdrom "fdcd.sys"
  337.  
  338.                 if isfile ${cwd}:h\FDATACD.sys  set v_namcdrom "FDATACD.SYS"
  339.         if isfile FDATACD.SYS           set v_namcdrom "FDATACD.SYS"
  340.  
  341.     endif
  342.     return
  343.  
  344. script FirstTimeInstall
  345.     runscript CreateINIFILE
  346.     runscript QuietTestPCM
  347.     return
  348.  
  349. script QuietTestPCM
  350.     local testbuf type str ""
  351.     
  352.     set testbuf "Media Vision Diagnostics version 2.3"
  353.     display testbuf at 23,1 using " %-77s" background blue textcolor white
  354.     runscript FigureBoard
  355.  
  356.         runscript    AnalyzeConfig${v_Board}
  357.         runscript    AnalyzeDriver${v_Board}
  358.  
  359.  
  360.     set testbuf "Product: $v_Board "
  361.     display testbuf at 23,1 using " %-77s" background blue textcolor white
  362.     if issame "${v_Board}" "Unknown"    return
  363.  
  364.     set testbuf "Reading install.ini "
  365.     display testbuf at 23,1 using " %-77s" background blue textcolor white
  366.     runscript ReadINSTALLINIFILE
  367.  
  368.     set testbuf "Reading $v_inifile "
  369.     display testbuf at 23,1 using " %-77s" background blue textcolor white
  370.     runscript ReadINIFILE
  371.  
  372.     set testbuf "Analyzing System "
  373.     display testbuf at 23,1 using " %-77s" background blue textcolor white
  374.     runscript RunQAINFO
  375.  
  376.     set testbuf "Testing Digital Audio "
  377.     display testbuf at 23,1 using " %-77s" background blue textcolor white
  378.     runscript Test${v_Board}
  379.  
  380.     set testbuf "Removing Automatic Test Hook "
  381.     display testbuf at 23,1 using " %-77s" background blue textcolor white
  382.     runscript RemoveThisFromAutoexec
  383.  
  384.     set testbuf "Updating CONFIG.SYS with Audio Driver "
  385.     display testbuf at 23,1 using " %-77s" background blue textcolor white
  386.     runscript UpdateCONFIGSYS
  387.  
  388.     if $v_dotestcd    runscript InsertTESTCD
  389.  
  390.     set testbuf "Updating CONFIG.SYS and AUTOEXEC.BAT with CDROM Driver "
  391.     display testbuf at 23,1 using " %-77s" background blue textcolor white
  392.     runscript AddCDROMDriver
  393.  
  394.     set testbuf "Updating AUTOEXEC.BAT with DOS Drivers "
  395.     display testbuf at 23,1 using " %-77s" background blue textcolor white
  396.     runscript UpdateAUTOEXECBAT
  397.  
  398.     set testbuf "Updating SYSTEM.INI with Windows Drivers "
  399.     display testbuf at 23,1 using " %-77s" background blue textcolor white
  400.     runscript UpdateSYSTEMINI
  401.  
  402.     runscript ClearThirdpartyAuto
  403.  
  404.     set testbuf "Checking Configuration... "
  405.     flushkeys
  406.     display testbuf at 23,1 using " %-77s" background blue textcolor white
  407.     runscript WarmbootSystem
  408.     return
  409.  
  410. script InsertTESTCD
  411.     sedit -wnqB ${v_bootdrv}${v_bootdir} autoexec.bat diag "${cwd}\diag.exe -e tcd -s=quiettestcd" modify
  412.     return
  413.  
  414. menu PWUpdateDOSWINConfig at -1,-1 item " Please Wait... " script UpdateDOSWinConfig
  415.  
  416. script UpdateDOSWINConfig
  417.     runscript UpdateCONFIGSYS
  418.     runscript AddCDROMDriver
  419.     runscript UpdateAUTOEXECBAT
  420.     runscript UpdateSYSTEMINI
  421.  
  422.     runscript WarmbootSystem
  423.     return
  424.  
  425. script RemoveThisFromAutoexec
  426.     sedit -B ${v_bootdrv}${v_bootdir} autoexec.bat $prg_this d locate
  427.     if $errorlevel    sedit -wnqB ${v_bootdrv}${v_bootdir} autoexec.bat $prg_this d erase
  428.     interrupt 2Fh ax 4A10h bx 1        # flush SMARTDRV
  429.     return
  430.  
  431. script RemoveThisFromAutoexecDuringBoot
  432.     local buf type str "                                                                               "
  433.     nullit buf
  434.     local ptr type ptr &buf
  435.     sedit -B ${v_bootdrv}${v_bootdir} autoexec.bat $prg_this dummy put $ptr
  436.     trim buf
  437.     set x `length "${buf}"
  438.     if isequal $x 0                return
  439.  
  440.     set buf ""
  441.     local y 1
  442.     :next
  443.     set buf "${buf} "
  444.     set y ++
  445.     if isless $y $x    goto next
  446.  
  447.     sedit -wqnB ${v_bootdrv}${v_bootdir} autoexec.bat $prg_this "${buf}" substitute
  448.     interrupt 2Fh ax 4A10h bx 1        # flush SMARTDRV
  449.     return
  450.  
  451. menu YNClearThirdParty dims 25,80 bc wh tc bla bo do sh na " Clear Third Party Files "
  452.     text
  453.     text "This procedure will remove the drivers that conflict with the sound board."
  454.     text
  455.     text "Each driver to be removed will be displayed and you will be asked to"
  456.     text "confirm the action."
  457.     text
  458.     text "If no conflicting drivers are found, then nothing will happen."
  459.     text 
  460.     text
  461.     text at ,-1 "Do you like to continue?"
  462.     text
  463.     box at ,-1 dims 4,20 bo do sh
  464.     item at ,-1 " No, I Don't! " return 1
  465.     item at ,-1 "  Yes, I Do.  " menu PWClearThirdParty return 1
  466.     text
  467.  
  468. menu PWClearThirdParty at -1,-1 item " Please Wait... " script ClearThirdParty
  469. script ClearThirdParty
  470.     set TPD_FILE    "SYSTEM.INI"
  471.     set TPD_SECTION    "386Enh"
  472.  
  473.     set TPD_NAME    "VAD.386"
  474.     set TPD_DESC    "AFTERDARK - The Screen Saver"
  475.     set TPD_LINE    "device=+${TPD_NAME}"
  476.     runscript FindClearThirdPartyDriver
  477.  
  478.     set TPD_NAME    "VADLIBD.386"
  479.     set TPD_DESC    "AdLib Sound Card (or SB Emulation)"
  480.     set TPD_LINE    "device=+${TPD_NAME}"
  481.     runscript FindClearThirdPartyDriver
  482.  
  483.     set TPD_NAME    "VSBD.386"
  484.     set TPD_DESC    "Creative Labs Sound Blaster"
  485.     set TPD_LINE    "device=+${TPD_NAME}"
  486.     runscript FindClearThirdPartyDriver
  487.  
  488.     set TPD_NAME    "VSBPD.386"
  489.     set TPD_LINE    "device=+${TPD_NAME}"
  490.     runscript FindClearThirdPartyDriver
  491.     
  492.     set TPD_NAME    "VSND16D.386"
  493.     set TPD_LINE    "device=+${TPD_NAME}"
  494.     runscript FindClearThirdPartyDriver
  495.  
  496.     set TPD_NAME    "WIN400I.386"
  497.     set TPD_DESC     "HP ScanJet"
  498.     set TPD_LINE    "device=+${TPD_NAME}"
  499.     runscript FindClearThirdPartyDriver
  500.  
  501.     set TPD_NAME    "HPSCANR.386"
  502.     set TPD_LINE    "device=+${TPD_NAME}"
  503.     runscript FindClearThirdPartyDriver
  504.  
  505.     set TPD_NAME    "VSGLX16.386"
  506.     set TPD_DESC     "Sound Galaxy Card"
  507.     set TPD_LINE    "device=+${TPD_NAME}"
  508.     runscript FindClearThirdPartyDriver
  509.  
  510.     set TPD_NAME    "VSGLD.386"
  511.     set TPD_LINE    "device=+${TPD_NAME}"
  512.     runscript FindClearThirdPartyDriver
  513.  
  514.     set TPD_NAME    "VSGD.386"
  515.     set TPD_LINE    "device=+${TPD_NAME}"
  516.     runscript FindClearThirdPartyDriver
  517.  
  518.     set TPD_NAME    "VSGLX.386"
  519.     set TPD_LINE    "device=+${TPD_NAME}"
  520.     runscript FindClearThirdPartyDriver
  521.  
  522.     set TPD_NAME    "VSNDSYS.386"
  523.     set TPD_DESC    "Stereo FX Kit"
  524.     set TPD_LINE    "device=+${TPD_NAME}"
  525.     runscript FindClearThirdPartyDriver
  526.  
  527.     set TPD_NAME    "OPTI16D.386"
  528.     set TPD_DESC    "Opti Sound Card"
  529.     set TPD_LINE    "device=+${TPD_NAME}"
  530.     runscript FindClearThirdPartyDriver
  531.  
  532.     set TPD_NAME    "VSNDSYS.386"
  533.     set TPD_DESC    "Reveal"
  534.     set TPD_LINE    "device=+${TPD_NAME}"
  535.  
  536.     # Conflicting Media Vision drivers
  537.     set TPD_NAME    "VTBD.386"
  538.     set TPD_DESC    "Media Vision Thunder Board Driver"
  539.     set TPD_LINE    "device=+${TPD_NAME}"
  540.     runscript FindClearThirdPartyDriver
  541.  
  542.     set TPD_NAME    "VSB2AP.386"
  543.     set TPD_DESC    "Media Vision AudioPort Driver"
  544.     set TPD_LINE    "device=+${TPD_NAME}"
  545.     runscript FindClearThirdPartyDriver
  546.  
  547.     set TPD_NAME    "VPASD.386"
  548.     set TPD_DESC    "Media Vision Pro Audio Drivers"
  549.     set TPD_LINE    "device=+${TPD_NAME}"
  550.     runscript FindClearThirdPartyDriver
  551.  
  552.     set TPD_NAME    "VPA3DD.386"
  553.     set TPD_DESC    "Media Vision Premium 3D Driver"
  554.     set TPD_LINE    "device=+${TPD_NAME}"
  555.     if not issame "$win_386" "$TPD_NAME"     runscript FindClearThirdPartyDriver
  556.  
  557. ##AS     set TPD_NAME    "VMVID.386"
  558. ##AS    set TPD_DESC    "Media Vision Pro Deluxe Driver"
  559. ##AS    set TPD_LINE    "device=+${TPD_NAME}"
  560. ##AS    if not issame "$win_386" "$TPD_NAME"     runscript FindClearThirdPartyDriver
  561.  
  562.     set TPD_NAME    "VPROSD.386"
  563.     set TPD_DESC    "Media Vision Prosonic Driver"
  564.     set TPD_LINE    "device=+${TPD_NAME}"
  565.     if not issame "$win_386" "$TPD_NAME"     then
  566.         runscript FindClearThirdPartyDriver
  567.  
  568.         set TPD_NAME    "VPROSFMD.386"
  569.         set TPD_DESC    "Media Vision ProSonic Driver"
  570.         set TPD_LINE    "device=+${TPD_NAME}"
  571.         runscript FindClearThirdPartyDriver
  572.     endif
  573.  
  574.     # non-sound board wave driver
  575.     set TPD_SECTION    "drivers"
  576.     set TPD_NAME    "SPEAKER.DRV"
  577.     set TPD_DESC    "PC Speaker Waveform Driver"
  578.     set TPD_LINE    "wave=${TPD_NAME}"
  579.     runscript FindClearThirdPartyDriver
  580.  
  581.     return
  582.  
  583. script FindClearThirdPartyDriver
  584.     local buf type str "                                                                                                     "
  585.     local ptr type ptr &buf
  586.  
  587.         sedit -I ${v_winpath} $TPD_FILE $TPD_SECTION $TPD_LINE    d locate
  588.     if $errorlevel     then
  589.         nullit buf
  590.         sedit -I ${v_winpath} $TPD_FILE $TPD_SECTION $TPD_LINE    d put $ptr
  591.         set TPD_LINE "$TPD_FILE [$TPD_SECTION] $buf"
  592.         trim TPD_LINE
  593.         runmenu YNClearThirdPartyDriver
  594.     endif
  595.     return
  596.  
  597. menu YNClearThirdPartyDriver at -1,-1 dims 10,70 bc bla tc wh bo do sh na " Clear Third Party Driver "
  598.     text
  599.     display TPD_DESC bc bla tc btw
  600.     display TPD_LINE bc bla tc btw
  601.     text
  602.     box at ,-1 dims 4,30 bo single
  603.     item at ,-1 "  Yes, Remove this line! " script ClearThirdPartyDriver return 1
  604.     item at ,-1 " No, let me check it out! " return 1
  605.     text
  606.     text
  607.  
  608. script ClearThirdPartyDriver
  609.     sedit -wnqI ${v_winpath} system.ini 386Enh device=+${TPD_NAME} d disable
  610.     return
  611.     
  612. menu YNClearCONFIGFiles dims 25,80 bc wh tc bla bo do na " Clear Configuration Files "
  613.     text
  614.     text "This procedure will remove the device driver files from CONFIG.SYS, "
  615.     text "AUTOEXEC.BAT and SYSTEM.INI."
  616.     text
  617.     text "After rmoving the device driver files, the system will be rebooted."
  618.     text
  619.     text "This feature is provided to simplify reconfiguration."
  620.     text
  621.     text "Please confirm this action, by selecting 'Yes, I Do', below."
  622.     text
  623.     text
  624.     box at 15,-1 dims 4,20 
  625.     item at ,-1 " No, I Don't! " return 1
  626.     item at ,-1 "  Yes, I Do.  " menu PWClearCONFIGFiles return 1
  627.     text
  628.     text
  629.  
  630. menu PWClearCONFIGFiles at -1,-1 item " Please Wait... " script ClearCONFIGFiles
  631. script ClearCONFIGFiles
  632.     runscript ClearCONFIGSYS
  633.     runscript ClearCDROM
  634.     runscript ClearAUTOEXECBAT
  635.     runscript ClearSYSTEMINI
  636.     runscript doWarmBootSystem
  637.     return
  638. script ClearCONFIGSYS
  639.     sedit -C ${v_bootdrv}${v_bootdir} config.sys device=+${v_namconfig} d locate
  640.     if $errorlevel    sedit -wnqC ${v_bootdrv}${v_bootdir} config.sys device=+${v_namconfig} d erase
  641.     return
  642. script ClearCDROM
  643.     local buf type str "                                                                                     "
  644.     local ptr type ptr &buf
  645.     local tmp type str ""
  646.  
  647.     sedit -B ${v_bootdrv}${v_bootdir} autoexec.bat mscdex d locate
  648.     if $errorlevel then
  649.         sedit -B ${v_bootdrv}${v_bootdir} autoexec.bat mscdex d put $ptr
  650.         trim buf
  651.         set buf "$buf" + " " - "/d:${c_devcdrom}\w"
  652.         set tmp "$buf" - "*/d:*"
  653.         if   $_strop sedit -wnqB ${v_bootdrv}${v_bootdir} autoexec.bat mscdex "$buf" substitute
  654.         if ! $_strop sedit -wnqB ${v_bootdrv}${v_bootdir} autoexec.bat mscdex d erase
  655.     endif
  656.  
  657.     if issame "${v_namcdrom}" "fdcd.sys"    then
  658.         sedit -C ${v_bootdrv}${v_bootdir} config.sys device=+mcam950.sys d locate
  659.         if $errorlevel sedit -wnqC ${v_bootdrv}${v_bootdir} config.sys device=+mcam950.sys d erase
  660.         sedit -I ${v_winpath} system.ini 386enh emmexclude=ca00-cbff d locate
  661.         if $errorlevel sedit -wnqI ${v_winpath} system.ini 386enh emmexclude=ca00-cbff d erase
  662.     endif
  663.  
  664.     if issame "${v_namcdrom}" "cdrom.sys"    then
  665.         sedit -C ${v_bootdrv}${v_bootdir} config.sys device=+mini406a.sys d locate
  666.         if $errorlevel sedit -wnqC ${v_bootdrv}${v_bootdir} config.sys device=+mini406a.sys d erase
  667.     endif
  668.  
  669.     sedit -C ${v_bootdrv}${v_bootdir} config.sys device=+${v_namcdrom} d locate
  670.     if $errorlevel    sedit -wnqC ${v_bootdrv}${v_bootdir} config.sys device=+${v_namcdrom} d erase
  671.     sedit -C ${v_bootdrv}${v_bootdir} config.sys device=+${v_mcamname} d locate
  672.     if $errorlevel    sedit -wnqC ${v_bootdrv}${v_bootdir} config.sys device=+${v_mcamname} d erase
  673.     return
  674.  
  675. script ClearAUTOEXECBAT
  676.     sedit -rB ${v_bootdrv}${v_bootdir} autoexec.bat vbeai d locate
  677.     if $errorlevel    sedit -wrnqB ${v_bootdrv}${v_bootdir} autoexec.bat vbeai d erase
  678.     sedit -B ${v_bootdrv}${v_bootdir} autoexec.bat set+blaster d locate
  679.     if $errorlevel    sedit -wnqB ${v_bootdrv}${v_bootdir} autoexec.bat set+blaster d erase
  680.     sedit -rB ${v_bootdrv}${v_bootdir} autoexec.bat mvlite d locate
  681.     if $errorlevel    sedit -wrnqB ${v_bootdrv}${v_bootdir} autoexec.bat mvlite d erase
  682.     return
  683.  
  684. script ClearSYSTEMINI
  685.     sedit -I ${v_winpath} system.ini drivers wave=+${win_drvwav}     d locate
  686.     if $errorlevel sedit -wnqI ${v_winpath} system.ini drivers wave=+${win_drvwav}     d erase
  687.     sedit -I ${v_winpath} system.ini drivers mixer=+${win_drvmix}     d locate
  688.     if $errorlevel sedit -wnqI ${v_winpath} system.ini drivers mixer=+${win_drvmix}     d erase
  689.     sedit -I ${v_winpath} system.ini drivers midi=+${win_drvfms}     d locate
  690.     if $errorlevel sedit -wnqI ${v_winpath} system.ini drivers midi=+${win_drvfms}     d erase
  691.     sedit -I ${v_winpath} system.ini drivers midi1=+${win_drvmpu}    d locate
  692.     if $errorlevel sedit -wnqI ${v_winpath} system.ini drivers midi1=+${win_drvmpu}    d erase
  693.     sedit -I ${v_winpath} system.ini drivers midi2=+${win_drvwft}    d locate
  694.     if $errorlevel sedit -wnqI ${v_winpath} system.ini drivers midi2=+${win_drvwft}    d erase
  695.     sedit -I ${v_winpath} system.ini 386Enh  device=+${win_386}      d locate
  696.     if $errorlevel sedit -wnqI ${v_winpath} system.ini 386Enh  device=+${win_386}      d erase
  697.     sedit -I ${v_winpath} system.ini ${win_drvwav} port        d locate
  698.     if $errorlevel sedit -wnqI ${v_winpath} system.ini ${win_drvwav} port        d erase
  699.     sedit -I ${v_winpath} system.ini ${win_drvwav} int        d locate
  700.     if $errorlevel sedit -wnqI ${v_winpath} system.ini ${win_drvwav} int        d erase
  701.     sedit -I ${v_winpath} system.ini ${win_drvwav} dmachannel    d locate
  702.     if $errorlevel sedit -wnqI ${v_winpath} system.ini ${win_drvwav} dmachannel    d erase
  703.     sedit -I ${v_winpath} system.ini ${win_drvwav} dmachannel2    d locate
  704.     if $errorlevel sedit -wnqI ${v_winpath} system.ini ${win_drvwav} dmachannel2    d erase
  705.     sedit -I ${v_winpath} system.ini ${win_drvwft} IOAddress    d locate
  706.     if $errorlevel sedit -wnqI ${v_winpath} system.ini ${win_drvwft} IOAddress    d erase
  707.  
  708.     local buf type str "                                                                                                    "
  709.     local ptr type ptr &buf
  710.     sedit -I ${v_winpath} system.ini boot drivers=+$win_mixdll dummy put $ptr
  711.     trim buf
  712.     set buf "$buf" - "*=" - "$win_mixdll"
  713.     if $_strop    sedit -wnqI ${v_winpath} system.ini boot drivers=+$win_mixdll "$buf" substitute
  714.  
  715.     sedit -I ${v_winpath} system.ini ${win_drvmpu}    int    d locate
  716.     if $errorlevel sedit -wnqI ${v_winpath} system.ini ${win_drvmpu}    int    d erase
  717.     sedit -I ${v_winpath} system.ini ${win_drvmpu}    port    d locate
  718.     if $errorlevel sedit -wnqI ${v_winpath} system.ini ${win_drvmpu}    port    d erase
  719.     interrupt 2Fh ax 4A10h bx 1        # flush SMARTDRV
  720.     return
  721.  
  722.  
  723. script WarmbootSystem
  724.     if not issame "${c_pcmport}" "${i_pcmport}"    goto reboot
  725.     if not issame "${c_pcmdma}"  "${i_pcmdma}"    goto reboot
  726.     if not issame "${c_pcmirq}"  "${i_pcmirq}"    goto reboot
  727.     if not issame "${c_pcmhdma}" "${i_pcmhdma}"    goto reboot
  728.     if not issame "${d_pcmport}" "${i_pcmport}"    goto reboot
  729.     if not issame "${d_pcmdma}"  "${i_pcmdma}"    goto reboot
  730.     if not issame "${d_pcmirq}"  "${i_pcmirq}"    goto reboot
  731.  
  732.         if not issame "${d_pcmhdma}" "${i_pcmhdma}"    goto reboot
  733.  
  734.         runmenu NoRebootNeeded
  735.     return
  736.  
  737.     :reboot
  738.     runscript doWarmbootSystem
  739.     return
  740.  
  741. script doWarmbootSystem
  742.     outp 381h 0
  743.     outp 305h 4Dh
  744.     outp 306h 00h
  745.     outp 300h FFh
  746.  
  747.     cursorat 0,0
  748.     local x type long 0
  749.     local reboottime type long $secs 
  750. #    display x using " Waiting to Reboot:%5ld" at 23,1 dims 1,78 background red textcolor btwhite
  751.  
  752.     set reboottime $reboottime + 3
  753.     :delay
  754.     set x $reboottime - $secs
  755. #    display x using "%5ld" at 23,20 background red textcolor btwhite
  756.     if iskey    goto return
  757.     if isgreater $x 0    goto delay
  758.     warmboot
  759.  
  760.     :return
  761.     return
  762.  
  763. menu NoRebootNeeded at -1,-1 bc wh tc red bo do sh name " Okay "
  764.     text
  765.     text "No Reboot is Required..."
  766.     text
  767.  
  768.  
  769. script setglobalstype
  770.     set GlobalsScreen type str "SetGlobals${v_namcdrom}:r"
  771.     return
  772.  
  773. #menu doSetGlobals at 0,0 dims 25,80 bc black tc wh bo no na " Set Global Variables "
  774. menu doSetGlobals at -1,-1 bc wh tc blu
  775.     runscript setglobalstype
  776.     item " Please Wait... " menu $GlobalsScreen
  777.  
  778. menu SetGlobals at 0,0 dims 25,80 bc black tc wh bo no na " Set Global Variables "
  779.     set tmpFilename type str ""
  780.     set 
  781.  
  782.     text " Press ESC to Quit " at 2,59 background 3 textcolor btwhite
  783.     text " Press F1 for Help " at 3,59 background 3 textcolor btwhite
  784.  
  785.     text at 1,2
  786.     text using "%25s" "QCFG .ini file:"
  787.     text
  788.     text using "%25s" "CONFIG.SYS driver:"
  789.     text using "%25s" "BOARD Configurator:"
  790.     text
  791.     text using "%25s" "MV Product Type:"
  792.     text using "%25s" "Boot Drive:"
  793.     text using "%25s" "Boot Directory:"
  794.     text using "%25s" "Windows Path:"
  795.     text
  796.     text using "%25s" "CDROM driver:"
  797.     text using "%25s" "CDROM '/D:' name:"
  798.     text using "%25s" "CDROM '/B:' port:"
  799.     text
  800.     text using "%25s" "QAINFO File:"
  801.     text 
  802.     text using "%25s"  "Do TESTCD:"
  803.  
  804.     text at 1,28
  805.     item $v_inifile     dims 1,13 script "getFilename v_inifile"    background blue textcolor white
  806.     text
  807.     item $v_namconfig    dims 1,40 script "getFilenameExisting v_namconfig"    background blue textcolor white
  808.     item $prg_board        dims 1,40 script "getFilenameExisting prg_board"    background blue textcolor white
  809.     text
  810.     item $v_Board        dims 1,13 script "getFilename v_Board"        background blue textcolor white
  811.     item $v_bootdrv        dims 1,3  script "getDriveLetter v_bootdrv"    background blue textcolor white
  812.     item $v_bootdir        dims 1,40 script "getPathExisting v_bootdir"    background blue textcolor white
  813.     item $v_winpath        dims 1,40 script "getPathExisting v_winpath"    background blue textcolor white
  814.     text
  815.     item $v_namcdrom    dims 1,13 script "getFilename v_namcdrom"    background blue textcolor white
  816.     item $c_devcdrom    dims 1,13 script "getFilename c_devcdrom"    background blue textcolor white
  817.     item $c_cdrport        dims 1,4  script "getCDROMPORT c_cdrport"    background blue textcolor white
  818.     text
  819.     item $v_qafile        dims 1,13 script "getFilename v_qafile"        background blue textcolor white
  820.     text
  821.     item $v_dotestcd    dims 1,4  set "arg1 $v_dotestcd" script "toggleint v_dotestcd"    background blue textcolor white
  822.  
  823.     text
  824.     box at ,-1 dims 5,40    background blue textcolor white
  825.     item at ,-1 "       Update GLOBALS       " script UpdateGlobals     return 1
  826.     item at ,-1 " Use GLOBALS this time only "                return 1
  827.     item at ,-1 " Reset GLOBALS to defaults  " script DefaultGlobals    return 1
  828.  
  829.     hotkey F1 helpSetGlobals
  830.  
  831. menu SetGlobalsCDROM at 0,0 dims 25,80 bc black tc wh bo no na " Set Global Variables for CDROM "
  832.     set tmpFilename type str ""
  833.     set 
  834.  
  835.     text " Press ESC to Quit " at 2,59 background 3 textcolor btwhite
  836.     text " Press F1 for Help " at 3,59 background 3 textcolor btwhite
  837.  
  838.     text at 1,2
  839.     text using "%25s" "QCFG .ini file:"
  840.     text
  841.     text using "%25s" "CONFIG.SYS driver:"
  842.     text using "%25s" "BOARD Configurator:"
  843.     text
  844.     text using "%25s" "MV Product Type:"
  845.     text using "%25s" "Boot Drive:"
  846.     text using "%25s" "Boot Directory:"
  847.     text using "%25s" "Windows Path:"
  848.     text
  849.     text using "%25s" "CDROM driver:"
  850.     text using "%25s" "CDROM '/D:' name:"
  851.     text
  852.     text using "%25s" "QAINFO File:"
  853.     text 
  854.     text using "%25s"  "Do TESTCD:"
  855.  
  856.     text at 1,28
  857.     item $v_inifile     dims 1,13 script "getFilename v_inifile"    background blue textcolor white
  858.     text
  859.     item $v_namconfig    dims 1,40 script "getFilenameExisting v_namconfig"    background blue textcolor white
  860.     item $prg_board        dims 1,40 script "getFilenameExisting prg_board"    background blue textcolor white
  861.     text
  862.     item $v_Board        dims 1,13 script "getFilename v_Board"        background blue textcolor white
  863.     item $v_bootdrv        dims 1,3  script "getDriveLetter v_bootdrv"    background blue textcolor white
  864.     item $v_bootdir        dims 1,40 script "getPathExisting v_bootdir"    background blue textcolor white
  865.     item $v_winpath        dims 1,40 script "getPathExisting v_winpath"    background blue textcolor white
  866.     text
  867.     item $v_namcdrom    dims 1,13 script "getFilename v_namcdrom"    background blue textcolor white
  868.     item $c_devcdrom    dims 1,13 script "getFilename c_devcdrom"    background blue textcolor white
  869.     text
  870.     item $v_qafile        dims 1,13 script "getFilename v_qafile"        background blue textcolor white
  871.     text
  872.     item $v_dotestcd    dims 1,4  set "arg1 $v_dotestcd" script "toggleint v_dotestcd"    background blue textcolor white
  873.  
  874.     text
  875.     box at ,-1 dims 5,40    background blue textcolor white
  876.     item at ,-1 "       Update GLOBALS       " script UpdateGlobals     return 1
  877.     item at ,-1 " Use GLOBALS this time only "                return 1
  878.     item at ,-1 " Reset GLOBALS to defaults  " script DefaultGlobals    return 1
  879.  
  880.     hotkey F1 helpSetGlobals
  881.  
  882. menu SetGlobalsFDCD at 0,0 dims 25,80 bc black tc wh bo no na " Set Global Variables for FDCD "
  883.     set tmpFilename type str ""
  884.     set 
  885.  
  886.     text " Press ESC to Quit " at 2,59 background 3 textcolor btwhite
  887.     text " Press F1 for Help " at 3,59 background 3 textcolor btwhite
  888.  
  889.     text at 1,2
  890.     text using "%25s" "QCFG .ini file:"
  891.     text
  892.     text using "%25s" "CONFIG.SYS driver:"
  893.     text using "%25s" "BOARD Configurator:"
  894.     text
  895.     text using "%25s" "MV Product Type:"
  896.     text using "%25s" "Boot Drive:"
  897.     text using "%25s" "Boot Directory:"
  898.     text using "%25s" "Windows Path:"
  899.     text
  900.     text using "%25s" "CDROM driver:"
  901.     text using "%25s" "CDROM '/D:' name:"
  902.     text
  903.     text using "%25s" "QAINFO File:"
  904.     text 
  905.     text using "%25s"  "Do TESTCD:"
  906.  
  907.     text at 1,28
  908.     item $v_inifile     dims 1,13 script "getFilename v_inifile"    background blue textcolor white
  909.     text
  910.     item $v_namconfig    dims 1,40 script "getFilenameExisting v_namconfig"    background blue textcolor white
  911.     item $prg_board        dims 1,40 script "getFilenameExisting prg_board"    background blue textcolor white
  912.     text
  913.     item $v_Board        dims 1,13 script "getFilename v_Board"        background blue textcolor white
  914.     item $v_bootdrv        dims 1,3  script "getDriveLetter v_bootdrv"    background blue textcolor white
  915.     item $v_bootdir        dims 1,40 script "getPathExisting v_bootdir"    background blue textcolor white
  916.     item $v_winpath        dims 1,40 script "getPathExisting v_winpath"    background blue textcolor white
  917.     text
  918.     item $v_namcdrom    dims 1,13 script "getFilename v_namcdrom"    background blue textcolor white
  919.     item $c_devcdrom    dims 1,13 script "getFilename c_devcdrom"    background blue textcolor white
  920.     text
  921.     item $v_qafile        dims 1,13 script "getFilename v_qafile"        background blue textcolor white
  922.     text
  923.     item $v_dotestcd    dims 1,4  set "arg1 $v_dotestcd" script "toggleint v_dotestcd"    background blue textcolor white
  924.  
  925.     text
  926.     box at ,-1 dims 5,40    background blue textcolor white
  927.     item at ,-1 "       Update GLOBALS       " script UpdateGlobals     return 1
  928.     item at ,-1 " Use GLOBALS this time only "                return 1
  929.     item at ,-1 " Reset GLOBALS to defaults  " script DefaultGlobals    return 1
  930.  
  931.     hotkey F1 helpSetGlobals
  932.  
  933. menu SetGlobalsSJCD at 0,0 dims 25,80 bc black tc wh bo no na " Set Global Variables for SJCD "
  934.     set tmpFilename type str ""
  935.     set 
  936.  
  937.     text " Press ESC to Quit " at 2,59 background 3 textcolor btwhite
  938.     text " Press F1 for Help " at 3,59 background 3 textcolor btwhite
  939.  
  940.     text at 1,2
  941.     text using "%25s" "QCFG .ini file:"
  942.     text
  943.     text using "%25s" "CONFIG.SYS driver:"
  944.     text using "%25s" "BOARD Configurator:"
  945.     text
  946.     text using "%25s" "MV Product Type:"
  947.     text using "%25s" "Boot Drive:"
  948.     text using "%25s" "Boot Directory:"
  949.     text using "%25s" "Windows Path:"
  950.     text
  951.     text using "%25s" "CDROM driver:"
  952.     text using "%25s" "CDROM '/D:' name:"
  953.     text using "%25s" "CDROM '/B:' port:"
  954.     text
  955.     text using "%25s" "QAINFO File:"
  956.     text 
  957.     text using "%25s"  "Do TESTCD:"
  958.  
  959.     text at 1,28
  960.     item $v_inifile     dims 1,13 script "getFilename v_inifile"    background blue textcolor white
  961.     text
  962.     item $v_namconfig    dims 1,40 script "getFilenameExisting v_namconfig"    background blue textcolor white
  963.     item $prg_board        dims 1,40 script "getFilenameExisting prg_board"    background blue textcolor white
  964.     text
  965.     item $v_Board        dims 1,13 script "getFilename v_Board"        background blue textcolor white
  966.     item $v_bootdrv        dims 1,3  script "getDriveLetter v_bootdrv"    background blue textcolor white
  967.     item $v_bootdir        dims 1,40 script "getPathExisting v_bootdir"    background blue textcolor white
  968.     item $v_winpath        dims 1,40 script "getPathExisting v_winpath"    background blue textcolor white
  969.     text
  970.     item $v_namcdrom    dims 1,13 script "getFilename v_namcdrom"    background blue textcolor white
  971.     item $c_devcdrom    dims 1,13 script "getFilename c_devcdrom"    background blue textcolor white
  972.     item $c_cdrport        dims 1,4  script "getCDROMPORT c_cdrport"    background blue textcolor white
  973.     text
  974.     item $v_qafile        dims 1,13 script "getFilename v_qafile"        background blue textcolor white
  975.     text
  976.     item $v_dotestcd    dims 1,4  set "arg1 $v_dotestcd" script "toggleint v_dotestcd"    background blue textcolor white
  977.  
  978.     text
  979.     box at ,-1 dims 5,40    background blue textcolor white
  980.     item at ,-1 "       Update GLOBALS       " script UpdateGlobals     return 1
  981.     item at ,-1 " Use GLOBALS this time only "                return 1
  982.     item at ,-1 " Reset GLOBALS to defaults  " script DefaultGlobals    return 1
  983.  
  984.     hotkey F1 helpSetGlobals
  985.  
  986. menu SetGlobalsFDATACD at 0,0 dims 25,80 bc black tc wh bo no na " Set Global Variables for FDATACD "
  987.     set tmpFilename type str ""
  988.     set 
  989.  
  990.     text " Press ESC to Quit " at 2,59 background 3 textcolor btwhite
  991.     text " Press F1 for Help " at 3,59 background 3 textcolor btwhite
  992.  
  993.     text at 1,2
  994.     text using "%25s" "QCFG .ini file:"
  995.     text
  996.     text using "%25s" "CONFIG.SYS driver:"
  997.     text using "%25s" "BOARD Configurator:"
  998.     text
  999.     text using "%25s" "MV Product Type:"
  1000.     text using "%25s" "Boot Drive:"
  1001.     text using "%25s" "Boot Directory:"
  1002.     text using "%25s" "Windows Path:"
  1003.     text
  1004.     text using "%25s" "CDROM driver:"
  1005.     text using "%25s" "CDROM '/D:' name:"
  1006.     text using "%25s" "CDROM '/B:' port:"
  1007.     text
  1008.     text using "%25s" "QAINFO File:"
  1009.     text 
  1010.     text using "%25s"  "Do TESTCD:"
  1011.  
  1012.     text at 1,28
  1013.     item $v_inifile     dims 1,13 script "getFilename v_inifile"    background blue textcolor white
  1014.     text
  1015.     item $v_namconfig    dims 1,40 script "getFilenameExisting v_namconfig"    background blue textcolor white
  1016.     item $prg_board        dims 1,40 script "getFilenameExisting prg_board"    background blue textcolor white
  1017.     text
  1018.     item $v_Board        dims 1,13 script "getFilename v_Board"        background blue textcolor white
  1019.     item $v_bootdrv        dims 1,3  script "getDriveLetter v_bootdrv"    background blue textcolor white
  1020.     item $v_bootdir        dims 1,40 script "getPathExisting v_bootdir"    background blue textcolor white
  1021.     item $v_winpath        dims 1,40 script "getPathExisting v_winpath"    background blue textcolor white
  1022.     text
  1023.     item $v_namcdrom    dims 1,13 script "getFilename v_namcdrom"    background blue textcolor white
  1024.     item $c_devcdrom    dims 1,13 script "getFilename c_devcdrom"    background blue textcolor white
  1025.     item $c_cdrport        dims 1,4  script "getCDROMPORT c_cdrport"    background blue textcolor white
  1026.     text
  1027.     item $v_qafile        dims 1,13 script "getFilename v_qafile"        background blue textcolor white
  1028.     text
  1029.     item $v_dotestcd    dims 1,4  set "arg1 $v_dotestcd" script "toggleint v_dotestcd"    background blue textcolor white
  1030.  
  1031.     text
  1032.     box at ,-1 dims 5,40    background blue textcolor white
  1033.     item at ,-1 "       Update GLOBALS       " script UpdateGlobals     return 1
  1034.     item at ,-1 " Use GLOBALS this time only "                return 1
  1035.     item at ,-1 " Reset GLOBALS to defaults  " script DefaultGlobals    return 1
  1036.  
  1037.     hotkey F1 helpSetGlobals
  1038.  
  1039.  
  1040. script DefaultGlobals
  1041. set v_inifile type str qcfg.ini
  1042. set v_namconfig type str PROS.SYS
  1043. set prg_board type str pros.exe
  1044. set v_bootdrv   type str C:             ## change to "C:"
  1045. set v_bootdir   type str \              ## change to "\"
  1046. set v_winpath    type str C:\WINDOWS    # path to Windows 
  1047. set v_namcdrom    type str FDATACD.SYS    # pick your cdrom driver name
  1048.  
  1049. set c_devcdrom type str mvcd005
  1050. set c_cdrtype type str T
  1051.  
  1052. set v_qafile    type str scandos.txt
  1053.     return
  1054.  
  1055. script UpdateGlobals
  1056.     local buf type str "                                                                                                 "
  1057.     local ptr type ptr &buf
  1058.     local new type str ""
  1059.  
  1060.     nullit buf
  1061.     sedit -B . qcfgglb.dat set+v_inifile     dummy put $ptr
  1062.     set new "$buf" - "^*#"
  1063.     if ! $_strop    set new ""
  1064.     trim new
  1065.     sedit -wnqB . qcfgglb.dat set+v_inifile     "set v_inifile    type str $v_inifile    #$new" substitute
  1066.  
  1067.     nullit buf
  1068.     sedit -B . qcfgglb.dat set+v_namconfig     dummy put $ptr
  1069.     set new "$buf" - "^*#"
  1070.     if ! $_strop    set new ""
  1071.     trim new
  1072.     sedit -wnqB . qcfgglb.dat set+v_namconfig     "set v_namconfig    type str $v_namconfig    #$new" substitute
  1073.  
  1074.     nullit buf
  1075.     sedit -B . qcfgglb.dat set+prg_board     dummy put $ptr
  1076.     set new "$buf" - "^*#"
  1077.     if ! $_strop    set new ""
  1078.     trim new
  1079.     sedit -wnqB . qcfgglb.dat set+prg_board     "set prg_board    type str $prg_board    #$new" substitute
  1080.  
  1081.     nullit buf
  1082.     sedit -B . qcfgglb.dat set+v_bootdrv     dummy put $ptr
  1083.     set new "$buf" - "^*#"
  1084.     if ! $_strop    set new ""
  1085.     trim new
  1086.     sedit -wnqB . qcfgglb.dat set+v_bootdrv     "set v_bootdrv    type str $v_bootdrv    #$new" substitute
  1087.  
  1088.     nullit buf
  1089.     sedit -B . qcfgglb.dat set+v_bootdir     dummy put $ptr
  1090.     set new "$buf" - "^*#"
  1091.     if ! $_strop    set new ""
  1092.     trim new
  1093.     sedit -wnqB . qcfgglb.dat set+v_bootdir     "set v_bootdir    type str $v_bootdir    #$new" substitute
  1094.  
  1095.     nullit buf
  1096.     sedit -B . qcfgglb.dat set+v_winpath     dummy put $ptr
  1097.     set new "$buf" - "^*#"
  1098.     if ! $_strop    set new ""
  1099.     trim new
  1100.     sedit -wnqB . qcfgglb.dat set+v_winpath     "set v_winpath    type str $v_winpath    #$new" substitute
  1101.  
  1102.     if isfile install.ini then
  1103.         nullit buf
  1104.         sedit -I . install.ini setup windir dummy put $ptr
  1105.         set new "$buf" - "^*#"
  1106.         if ! $_strop    set new ""
  1107.         trim new
  1108.         sedit -wnqI . install.ini setup windir "${v_winpath}\"    substitute
  1109.     endif
  1110.  
  1111.     nullit buf
  1112.     sedit -B . qcfgglb.dat set+v_namcdrom     dummy put $ptr
  1113.     set new "$buf" - "^*#"
  1114.     if ! $_strop    set new ""
  1115.     trim new
  1116.     sedit -wnqB . qcfgglb.dat set+v_namcdrom     "set v_namcdrom    type str $v_namcdrom    #$new" substitute
  1117.  
  1118.     nullit buf
  1119.     sedit -B . qcfgglb.dat set+c_devcdrom     dummy put $ptr
  1120.     set new "$buf" - "^*#"
  1121.     if ! $_strop    set new ""
  1122.     trim new
  1123.     sedit -wnqB . qcfgglb.dat set+c_devcdrom     "set c_devcdrom    type str $c_devcdrom    #$new" substitute
  1124.  
  1125.     if issame "${v_namcdrom}" "sjcd.sys"     then
  1126.         nullit buf
  1127.         sedit -B . qcfgglb.dat set+c_cdrport     dummy put $ptr
  1128.         set new "$buf" - "^*#"
  1129.         if ! $_strop    set new ""
  1130.         trim new
  1131.         sedit -wnqB . qcfgglb.dat set+c_cdrport     "set c_cdrport    type str $c_cdrport    #$new" substitute
  1132.  
  1133.         nullit buf
  1134.         sedit -B . qcfgglb.dat set+c_cdrtype     dummy put $ptr
  1135.         set new "$buf" - "^*#"
  1136.         if ! $_strop    set new ""
  1137.         trim new
  1138.         sedit -wnqB . qcfgglb.dat set+c_cdrtype     "set c_cdrtype    type str $c_cdrtype    #$new" substitute
  1139.     endif
  1140.  
  1141.     nullit buf
  1142.     sedit -B . qcfgglb.dat set+v_qafile     dummy put $ptr
  1143.     set new "$buf" - "^*#"
  1144.     if ! $_strop    set new ""
  1145.     trim new
  1146.     sedit -wnqB . qcfgglb.dat set+v_qafile     "set v_qafile    type str $v_qafile    #$new" substitute
  1147.  
  1148.            nullit buf
  1149.     sedit -B . qcfgglb.dat set+v_dotestcd     dummy put $ptr
  1150.     set new "$buf" - "^*#"
  1151.     if ! $_strop    set new ""
  1152.     trim new
  1153.     sedit -wnqB . qcfgglb.dat set+v_dotestcd     "set v_dotestcd    type int $v_dotestcd    #$new" substitute
  1154.  
  1155.     return
  1156.  
  1157. script toggleint
  1158.     if $arg1    return 0
  1159.     return 1
  1160.  
  1161. include get.dat
  1162. include qcfgini.dat
  1163. include qcfgjazz.dat
  1164. #include qcfgpas.dat
  1165.  
  1166. script ReadINSTALLINIFILE
  1167.     local buf type str "windir=c:\windows                                           "
  1168.     local ptr type ptr &buf
  1169.     if isfile install.ini then
  1170.         sedit -I . install.ini setup windir d put $ptr
  1171.         trim buf
  1172.             set v_winpath "$buf" - "*=" 
  1173.         set v_winpath "${v_winpath}:h"
  1174.         set g_domestic 1
  1175.         sedit -I . install.ini setup language d locate
  1176.         if $errorlevel set g_domestic 0
  1177.     endif
  1178.  
  1179.     return
  1180.  
  1181. menu AboutQuickConfig dims 25,80 bc whi tc blue border no na " About Quick Config "
  1182.     text at ,2 
  1183.     text "'Quick Config' is a utility program to be used by the Customer,"
  1184.     text "especially when in contact with Media Vision Technical Support."
  1185.     text
  1186.  
  1187. script AnalyzeDisplayBoardUNKNOWN
  1188.     return
  1189. script AnalyzeDisplayDriverUNKNOWN
  1190.     return
  1191. script AnalyzeDisplayConfigUNKNOWN
  1192.     return
  1193. script AnalyzeConfigUNKNOWN
  1194.     return
  1195. menu DisplayConfigUNKNOWN at 1,0 dims 10,38 bc wh tc bla bo do sh nosave name " System Configuration "
  1196.     text "No CONFIG.SYS for UNKNOWN."
  1197. script ClearConfigUNKNOWN
  1198.     return
  1199. script AnalyzeDriverUNKNOWN
  1200.     return
  1201. menu DisplayDriverUNKNOWN at 1,40 dims 10,38 bc wh tc bla bo do sh nosave name " Driver Configuration "
  1202.     text "No DRIVER for UNKNOWN."
  1203. script CompareConfigDriverUNKNOWN
  1204.     return
  1205. menu DisplayCompareUNKNOWN at 12,40 dims 10,38 bc wh tc bla bo do sh nosave name " Compare Configurations "
  1206.     text "UNKNOWN what to Compare."
  1207. script AnalyzeBoardUNKNOWN
  1208.     return
  1209. menu DisplayBoardUNKNOWN at 12,0 dims 10,20 bc wh tc bla bo do sh nosave name " Board "
  1210.     text "No BOARD for UNKNOWN."
  1211. script ConfigUNKNOWN
  1212.     return
  1213. script ConfigUNKNOWNTest08
  1214.     return
  1215. script ConfigUNKNOWNTest16
  1216.     return
  1217. script ConfigUNKNOWNTestMIDI
  1218.     return
  1219. script TestUNKNOWN
  1220.     return
  1221.  
  1222. menu ManualJAZZ at 0,0 dims 25,80 bc bla tc wh bo do na " Manually Modify Drivers "
  1223.     runscript FindJAZZConfig
  1224.     runscript BuildCONFIGJAZZline
  1225.     runscript FindJAZZAutoex
  1226.     runscript BuildAUTOEXJAZZline
  1227.  
  1228.     text at ,2
  1229.     text "Displayed below are either the actual lines from CONFIG.SYS and "
  1230.     text "AUTOEXEC.BAT for your Sound Board drivers, or default lines built"
  1231.     text "by this program."
  1232.     text
  1233.     text "Highlight these lines and press ENTER to edit the line."
  1234.     text "Then highlight 'Update ... now' and press ENTER to save the changes."
  1235.     text
  1236.     text "This operation is provided here to expedite Tech Support activities."
  1237.     text "Try the 'Quick Config Automatic' feature for hands-free configuration."
  1238.     text
  1239.     box  at ,-1 dims 9,74 border single shadow
  1240.     text at ,-1 dims 1,72 " CONFIG.SYS: "
  1241.     item at ,-1 dims 1,70     $lin_CONFIGJAZZ     script "getTextLine lin_CONFIGJAZZ"    hotkey F5 PWaddCONFIGJAZZ
  1242.     text
  1243.     text at ,-1 dims 1,72 " AUTOEXEC.BAT: "
  1244.     item at ,-1 dims 1,70     $lin_AUTOEXVBEAI     script "getTextLine lin_AUTOEXVBEAI"    hotkey F5 PWaddAUTOEXVBEAI
  1245.     item at ,-1 dims 1,70     $lin_AUTOEXBLASTER     script "getTextLine lin_AUTOEXBLASTER"    hotkey F5 PWaddAUTOEXBLASTER
  1246.     text
  1247.     box  at ,-1 dims 5,40 border single shadow
  1248.     item at ,-1    " Return to Previous Screen "    return 1
  1249.     item at ,-1    " Update CONFIG.SYS, now "    script addCONFIGJAZZ
  1250.     item at ,-1    " Update AUTOEXEC.BAT, now "    script addAUTOEXJAZZ
  1251.  
  1252.     text at 23,2    "Press F1 for Help"
  1253.     hotkey F1 helpManualJAZZ
  1254.  
  1255.  
  1256. menu PWaddCONFIGJAZZ     at -1,-1 bc wh tc blu bo do sh item " Updating CONFIG.SYS "      script addCONFIGJAZZ
  1257. menu PWaddAUTOEXVBEAI     at -1,-1 bc wh tc blu bo do sh item " Updating AUTOEXEC.BAT " script addAUTOEXVBEAI
  1258. menu PWaddAUTOEXBLASTER    at -1,-1 bc wh tc blu bo do sh item " Updating AUTOEXEC.BAT " script addAUTOEXBLASTER
  1259.  
  1260. script addCONFIGJAZZ
  1261.     local tmp type str "$lin_CONFIGJAZZ"
  1262.     set tmp "$tmp" - "*="
  1263.     sedit -wnqC ${v_bootdrv}${v_bootdir} config.sys device=+$nam_CONFIGJAZZ "$tmp" substitute
  1264.     return
  1265.  
  1266. script addAUTOEXJAZZ
  1267.     runscript addAUTOEXVBEAI
  1268.     runscript addAUTOEXBLASTER
  1269.     return
  1270.  
  1271. script unremAUTOEXVBEAI
  1272.     sedit -wnqB ${v_bootdrv}${v_bootdir} autoexec.bat $nam_AUTOEXVBEAI d locate
  1273.     if $errorlevel    return
  1274.  
  1275.     :checkforrem
  1276.     sedit -wnqBr ${v_bootdrv}${v_bootdir} autoexec.bat $nam_AUTOEXVBEAI d locate
  1277.     if ! $errorlevel    goto addactive
  1278.  
  1279.     local buf type str "                                                                 "
  1280.     local ptr type ptr &buf
  1281.     sedit -wnqBr ${v_bootdrv}${v_bootdir} autoexec.bat $nam_AUTOEXVBEAI p $ptr
  1282.     set buf "$buf" - "*rem\w"
  1283.     sedit -wnqB ${v_bootdrv}${v_bootdir} autoexec.bat $nam_AUTOEXVBEAI "$buf" substitute
  1284.     return
  1285.  
  1286.     :addactive
  1287.     sedit -wnqB ${v_bootdrv}${v_bootdir} autoexec.bat $nam_AUTOEXVBEAI "${cwd}\$nam_AUTOEXVBEAI" modify
  1288.     return
  1289.  
  1290.  
  1291.  
  1292. script addAUTOEXVBEAI
  1293.     sedit -wrnqB ${v_bootdrv}${v_bootdir} autoexec.bat $nam_AUTOEXVBEAI     "$lin_AUTOEXVBEAI"     modify
  1294.     return
  1295.  
  1296. script addAUTOEXBLASTER
  1297.     sedit -wnqB ${v_bootdrv}${v_bootdir} autoexec.bat $nam_AUTOEXBLASTER     "$lin_AUTOEXBLASTER"     modify
  1298.     return
  1299.  
  1300. script getTextLine
  1301.     set xxx type str ""
  1302.     getstring xxx length 65
  1303.     return "${xxx}"
  1304.  
  1305.  
  1306. script FindJAZZConfig
  1307.     local buf type str "                                                                                                     "
  1308.     local ptr type ptr &buf
  1309.     local name type str $nam_CONFIGJAZZ
  1310.     set name "${name}" - ".*$$"
  1311.  
  1312.     sedit -C ${v_bootdrv}${v_bootdir} config.sys device=+$name dummy put $ptr
  1313.     trim buf
  1314.  
  1315.     set var_CONFIGJAZZfound 0
  1316.     set lin_CONFIGJAZZ ""
  1317.     if issame "${buf}" ""            return
  1318.  
  1319.     set var_CONFIGJAZZfound 1
  1320.     set lin_CONFIGJAZZ "${buf}"
  1321.     set var_CONFIGJAZZfound 1
  1322.  
  1323.     local x type str "${buf}"
  1324.     local y type str ""
  1325.     local c type int 0
  1326.  
  1327.     return
  1328.  
  1329. script FindJAZZAutoexBLASTER
  1330.     local count type int 0
  1331.     local blaster type str ""
  1332.  
  1333.     sedit -B ${v_bootdrv}${v_bootdir} autoexec.bat set+blaster dummy locate
  1334.     if $errorlevel set blaster "BLASTER"    set count ++
  1335.  
  1336.     return "$blaster"
  1337.  
  1338. script GetJAZZAutoexBLASTER
  1339.     local buf type str "                                                                                                     "
  1340.     local ptr type ptr &buf
  1341.     
  1342.     sedit -B ${v_bootdrv}${v_bootdir} autoexec.bat set+blaster dummy put $ptr
  1343.     trim buf
  1344.     return "$buf"
  1345.  
  1346.  
  1347. script FindJAZZAutoexVBEAI
  1348.     local count type int 0
  1349.     local vbeai type str ""
  1350.  
  1351.     sedit -B ${v_bootdrv}${v_bootdir} autoexec.bat VBEAI.COM dummy locate
  1352.     if $errorlevel then
  1353.         set vbeai "vbeai.com"    
  1354.         set count ++
  1355.     else
  1356.         sedit -B ${v_bootdrv}${v_bootdir} autoexec.bat VBEAI dummy locate
  1357.         if $errorlevel set vbeai "vbeai"    set count ++
  1358.     endif
  1359.     sedit -B ${v_bootdrv}${v_bootdir} autoexec.bat SBWAVE.COM dummy locate
  1360.     if $errorlevel then
  1361.         set vbeai "sbwave.com"    
  1362.         set count ++
  1363.     else
  1364.         sedit -B ${v_bootdrv}${v_bootdir} autoexec.bat SBWAVE dummy locate
  1365.         if $errorlevel set vbeai "sbwave"    set count ++
  1366.     endif
  1367.  
  1368.     if  $count > 1    runmenu MultipleAutoexVBEAI
  1369.  
  1370.     return "$vbeai"
  1371.  
  1372. script GetJAZZAutoexVBEAI
  1373.     local buf type str "                                                                                                     "
  1374.     local ptr type ptr &buf
  1375.     
  1376.     sedit -B ${v_bootdrv}${v_bootdir} autoexec.bat "$arg1" dummy put $ptr
  1377.     trim buf
  1378.     return "$buf"
  1379.  
  1380.  
  1381. ###############################################3
  1382. ### FindJAZZAutoex - finds VBEAI and BLASTER and sets nam_AUTOEXE...
  1383. script FindJAZZAutoex
  1384.     runscript FindJAZZAutoexVBEAI nam_AUTOEXVBEAI
  1385.     if ! issame "${nam_AUTOEXVBEAI}" ""    then
  1386.         set var_AUTOEXVBEAIfound 1
  1387.         set arg1 "${nam_AUTOEXVBEAI}" runscript GetJAZZAutoexVBEAI lin_AUTOEXVBEAI
  1388.     endif
  1389.  
  1390.     runscript FindJAZZAutoexBLASTER nam_AUTOEXBLASTER
  1391.     if ! issame "${nam_AUTOEXBLASTER}" ""    then
  1392.         set var_AUTOEXBLASTERfound 1
  1393.         set arg1 "${nam_AUTOEXBLASTER}" runscript GetJAZZAutoexBLASTER lin_AUTOEXBLASTER
  1394.     endif
  1395.  
  1396.     return
  1397.  
  1398. script buildCONFIGJAZZline
  1399.     if issame "${nam_CONFIGJAZZ}" ""    set nam_CONFIGJAZZ "PROS.SYS"
  1400.     if isequal $var_CONFIGJAZZfound 0    then 
  1401.         set sedit_CONFIGJAZZ "modify"
  1402.     else
  1403.         set sedit_CONFIGJAZZ "substitute"
  1404.     endif
  1405.     if issame "${lin_CONFIGJAZZ}" "" then
  1406.         set lin_CONFIGJAZZ `pwd
  1407.         set lin_CONFIGJAZZ ${lin_CONFIGJAZZ}:h
  1408.         set lin_CONFIGJAZZ "device=${lin_CONFIGJAZZ}\${nam_CONFIGJAZZ} A$i_pcmport I$i_pcmirq D$i_pcmdma H$i_pcmhdma P$i_mpuport Q$i_mpuirq V"
  1409.     endif
  1410.     return
  1411.  
  1412.  
  1413. script buildAUTOEXJAZZline
  1414.     if issame "${nam_AUTOEXVBEAI}" ""    set nam_AUTOEXVBEAI "vbeai.com"
  1415.     if issame "${lin_AUTOEXVBEAI}" "" then
  1416.         set lin_AUTOEXVBEAI `pwd
  1417.         set lin_AUTOEXVBEAI ${lin_AUTOEXVBEAI}:h
  1418.         set lin_AUTOEXVBEAI "${lin_AUTOEXVBEAI}\${nam_AUTOEXVBEAI} "
  1419.     endif
  1420.  
  1421.     if issame "${nam_AUTOEXBLASTER}" ""    set nam_AUTOEXBLASTER "BLASTER"
  1422.     if issame "${lin_AUTOEXBLASTER}" "" then
  1423.         set lin_AUTOEXBLASTER "set BLASTER=A$i_pcmport I$i_pcmirq D$i_pcmdma H$i_pcmhdma P$i_mpuport Q$i_mpuirq T4"
  1424.     endif
  1425.  
  1426.     return
  1427.  
  1428.  
  1429. menu QCFGHelp dims 25,80 bc bla tc wh bo do na " Media Vision Diagnostics Help "
  1430.     runscript loadQCFGHelp
  1431.     display at ,2 dims 20,70 textQCFGHelp
  1432.     item at 23,1 " Press ENTER to Return To Main Program " set "textQCFGHelp" return 1
  1433.     item "" Return 1
  1434.  
  1435. script loadQCFGHelp
  1436.     if isfile QCFG.hlp then
  1437.         set textQCFGHelp type str `file QCFG.HLP
  1438.     else
  1439.         set textQCFGHelp type str "Sorry: missing QCFG.HLP, can not provide help."
  1440.     endif
  1441.     return
  1442.  
  1443. menu QCFGAbout dims 25,80 bc bla tc wh bo do na " About Media Vision Diagnostics "
  1444.     runscript loadQCFGAbout
  1445.     display at ,2 dims 20,70 textQCFGAbout
  1446.     item at 23,1 " Press ENTER to Return To Main Program " set "textQCFGHelp" return 1
  1447.     item "" Return 1
  1448. script loadQCFGAbout
  1449.     if isfile QCFG.hlp then
  1450.         set textQCFGAbout type str `file QCFG.ABT
  1451.     else
  1452.         set textQCFGAbout type str "Sorry: missing QCFG.ABT, can not provide help."
  1453.     endif
  1454.     return
  1455.  
  1456. menu QCFGExit 
  1457.     item "" return 2
  1458.  
  1459. menu QCFGReset
  1460.     item script FigureBoard return 1
  1461.  
  1462.  
  1463. menu helpSetGlobals at 3,48 dims 15,30 bc wh tc bla bo do sh nosave na " Help for Set Globals " 
  1464.     item return 1
  1465.     text at ,-1 dims 3,24 "Move the Up/Down Arrow Keys to highlight an item, and press ENTER."
  1466.     text
  1467.     text at ,-1 dims 3,24 "Type in the new value, using the Left and Right Arrow Keys and INSERT."
  1468.     text
  1469.     text at ,-1 dims 3,24 "Press ESCAPE to cancel the entry, or ENTER to accept it."
  1470.  
  1471. menu MultipleAutoexVBEAI at -1,-1 bc bla tc wh bo do sh name " Whoa! "
  1472.     text
  1473.     text "Multiple potential VESA Audio Drivers detected!"
  1474.     text
  1475.  
  1476. menu helpManualJAZZ dims 25,80 bc bla tc wh bo do na " About Media Vision Diagnostics "
  1477.     runscript loadManualJAZZhelp
  1478.     display at ,2 dims 20,70 textManualJAZZhelp
  1479.     item at 23,1 " Press ENTER to Return To Main Program " set "textQCFGHelp" return 1
  1480.     item "" Return 1
  1481.  
  1482. script loadManualJAZZhelp
  1483.     if isfile qcfgmj.hlp then
  1484.         set textManualJAZZhelp type str `file qcfgmj.hlp
  1485.     else
  1486.         set textManualJAZZhelp type str "Sorry: missing QCFGMJ.HLP, can not provide help."
  1487.     endif
  1488.     return
  1489.  
  1490. menu BadPRG_BOARD    at -1,-1 bc re tc btw bo do sh na " Uh, oh! "
  1491.     text
  1492.     text "Unable to locate the Sound Board Configuration Program."
  1493.     text
  1494.     text "Typically, this program is named PROS.EXE or JAZZ.EXE, and "
  1495.     text "is usually located in the directory above this, or this directory"
  1496.     text "if updates to this program have been distributed."
  1497.     text
  1498.     text "Use the 'F5 Edit Globals' screen to change the name of this"
  1499.     text "program, or if this program is in your PATH, then never mind."
  1500.     text
  1501.  
  1502. script ClearThirdPartyAuto
  1503.     set TPD_FILE    "SYSTEM.INI"
  1504.     set TPD_SECTION    "386Enh"
  1505.  
  1506.     set TPD_NAME    "VAD.386"
  1507.     set TPD_LINE    "device=+${TPD_NAME}"
  1508.     runscript FindClearThirdPartyDriverAuto
  1509.  
  1510.     set TPD_NAME    "AD.386"
  1511.     set TPD_LINE    "device=+${TPD_NAME}"
  1512.     runscript FindClearThirdPartyDriverAuto
  1513.  
  1514.     set TPD_NAME    "VADLIBD.386"
  1515.     set TPD_LINE    "device=+${TPD_NAME}"
  1516.     runscript FindClearThirdPartyDriverAuto
  1517.  
  1518.     set TPD_NAME    "VADLIB.386"
  1519.     set TPD_LINE    "device=+${TPD_NAME}"
  1520.     runscript FindClearThirdPartyDriverAuto
  1521.  
  1522.     set TPD_NAME    "VSBD.386"
  1523.     set TPD_LINE    "device=+${TPD_NAME}"
  1524.     runscript FindClearThirdPartyDriverAuto
  1525.  
  1526.     set TPD_NAME    "VSBPD.386"
  1527.     set TPD_LINE    "device=+${TPD_NAME}"
  1528.     runscript FindClearThirdPartyDriverAuto
  1529.     
  1530.     set TPD_NAME    "VSND16D.386"
  1531.     set TPD_LINE    "device=+${TPD_NAME}"
  1532.     runscript FindClearThirdPartyDriverAuto
  1533.  
  1534.     set TPD_NAME    "VSND16.386"
  1535.     set TPD_LINE    "device=+${TPD_NAME}"
  1536.     runscript FindClearThirdPartyDriverAuto
  1537.  
  1538.     set TPD_NAME    "VPA3DD.386"
  1539.     set TPD_LINE    "device=+${TPD_NAME}"
  1540.     runscript FindClearThirdPartyDriverAuto
  1541.  
  1542.     set TPD_NAME    "WIN400I.386"
  1543.     set TPD_LINE    "device=+${TPD_NAME}"
  1544.     runscript FindClearThirdPartyDriverAuto
  1545.  
  1546.     set TPD_NAME    "HPSCANR.386"
  1547.     set TPD_LINE    "device=+${TPD_NAME}"
  1548.     runscript FindClearThirdPartyDriverAuto
  1549.  
  1550.     set TPD_NAME    "VSGLX16.386"
  1551.     set TPD_LINE    "device=+${TPD_NAME}"
  1552.     runscript FindClearThirdPartyDriverAuto
  1553.  
  1554.     set TPD_NAME    "VSGLD.386"
  1555.     set TPD_LINE    "device=+${TPD_NAME}"
  1556.     runscript FindClearThirdPartyDriverAuto
  1557.  
  1558.     set TPD_NAME    "VSGD.386"
  1559.     set TPD_LINE    "device=+${TPD_NAME}"
  1560.     runscript FindClearThirdPartyDriverAuto
  1561.  
  1562.     set TPD_NAME    "VSGLX.386"
  1563.     set TPD_LINE    "device=+${TPD_NAME}"
  1564.     runscript FindClearThirdPartyDriverAuto
  1565.  
  1566.     set TPD_NAME    "VSNDSYS.386"
  1567.     set TPD_LINE    "device=+${TPD_NAME}"
  1568.     runscript FindClearThirdPartyDriverAuto
  1569.  
  1570.     set TPD_NAME    "OPTI16D.386"
  1571.     set TPD_LINE    "device=+${TPD_NAME}"
  1572.     runscript FindClearThirdPartyDriverAuto
  1573.  
  1574.     # Conflicting Media Vision drivers
  1575.     set TPD_NAME    "VTBD.386"
  1576.     set TPD_LINE    "device=+${TPD_NAME}"
  1577.     runscript FindClearThirdPartyDriverAuto
  1578.  
  1579.     set TPD_NAME    "VSB2AP.386"
  1580.     set TPD_LINE    "device=+${TPD_NAME}"
  1581.     runscript FindClearThirdPartyDriverAuto
  1582.  
  1583.     set TPD_NAME    "VPASD.386"
  1584.     set TPD_LINE    "device=+${TPD_NAME}"
  1585.     runscript FindClearThirdPartyDriverAuto
  1586.  
  1587.     set TPD_NAME    "ES1488.386"
  1588.     set TPD_LINE    "device=+${TPD_NAME}"
  1589.     runscript FindClearThirdPartyDriverAuto
  1590.  
  1591.  
  1592.     set TPD_NAME    "VPROSD.386"
  1593.     set TPD_LINE    "device=+${TPD_NAME}"
  1594.     if not issame "$win_386" "$TPD_NAME"     then
  1595.         runscript FindClearThirdPartyDriverAuto
  1596.  
  1597.     set TPD_NAME    "VPROSFMD.386"
  1598.     set TPD_LINE    "device=+${TPD_NAME}"
  1599.     runscript FindClearThirdPartyDriverAuto
  1600.  
  1601.     endif
  1602.  
  1603.     # non-sound board wave driver
  1604.     set TPD_SECTION    "drivers"
  1605.     set TPD_NAME    "SPEAKER.DRV"
  1606.     set TPD_LINE    "wave=${TPD_NAME}"
  1607.     runscript FindClearThirdPartyDriverAuto
  1608.  
  1609.     return
  1610.  
  1611. script FindClearThirdPartyDriverAuto
  1612.     local buf type str "                                                                                                     "
  1613.     local ptr type ptr &buf
  1614.  
  1615.         sedit -I ${v_winpath} $TPD_FILE $TPD_SECTION $TPD_LINE    d locate
  1616.     if $errorlevel     then
  1617.         nullit buf
  1618.         sedit -I ${v_winpath} $TPD_FILE $TPD_SECTION $TPD_LINE    d put $ptr
  1619.         set TPD_LINE "$TPD_FILE [$TPD_SECTION] $buf"
  1620.         trim TPD_LINE
  1621.     endif
  1622.         runscript ClearThirdPartyDriver
  1623.     return
  1624.  
  1625.  
  1626.  
  1627. include qcfgup.dat
  1628. include uninstal.dat
  1629.  
  1630. 
  1631.