home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April (Special) / Chip-Special_1997-04_cd.bin / mediavis / xdiag / mvdxdiag.exe / CUS.DAT < prev    next >
Text File  |  1995-03-23  |  31KB  |  813 lines
  1. # changed by DA 11:02am 03-23-1995 Ver 2.8 for JAZZ based Sound boards. 
  2. include tcdglb.dat
  3. include qcfgglb.dat
  4. menu main at 0,0 dims 25,80
  5.     runscript main
  6.     item AT 1,2 dims 5,73 return 2
  7.     script main
  8.         runmenu intro   
  9. ####  USER ADJUSTABLE SYSTEM VARABLES
  10.         set v_bootdrv "C:"
  11.         set v_bootdir "\"
  12.         set v_winpath "C:\WINDOWS"
  13.         set v_editpathedit "C:\DOS\EDIT.COM"
  14. ####  END OF USER ADJUSTABLE VARABLES
  15.     set srcdir      type str `pwd
  16.     set baseport    type str "   "
  17.     set gotjazz     type int 0
  18.     set recexe      type str trec.exe
  19.     set playexe     type str tplay.exe
  20.     set loadedfm    type int 0
  21.     set recrate     type str "11025"
  22.     set recchan     type str "Mono"
  23.     set recdsiz     type str "8-bit"
  24.     set recfile     type str "XXX"
  25.     set exedir  type str ${srcdir}:h
  26.     if isfile $exedir\jazz.exe  set prg_board "$exedir\jazz.exe"
  27.     if isfile jazz.exe          set prg_board "jazz.exe" 
  28.     if isfile $exedir\pros.exe  set prg_board "$exedir\pros.exe"
  29.     if isfile pros.exe          set prg_board "pros.exe" 
  30.     if isfile $exedir\mixer.exe set prg_mixer "$exedir\mixer.exe"
  31.     if isfile mixer.exe         set prg_mixer "mixer.exe"
  32.     if isfile $exedir\pg.exe    set prg_lookat "$exedir\pg.exe"
  33.     if isfile pg.exe            set prg_lookat "pg.exe"
  34.     if isfile $exedir\fm.com    set prg_fmopl2 "$exedir\fm.com"
  35.     if isfile fm.com            set prg_fmopl2 "fm.com"
  36.     if isfile $exedir\joy.exe   set prg_joytest "$exedir\joy.exe"
  37.     if isfile joy.exe           set prg_joytest "joy.exe"
  38.         runscript gettmpbaseport
  39.         :getboardaddress
  40.         if issame "${baseport}" "   "   runmenu getboardaddress
  41.         if issame $gotjazz 0             return
  42.         if issame $gotjazz 2     goto getboardaddress
  43.         runscript setproductcode
  44.         if issame $productcode 0        return
  45.         runmenu showproduct
  46.         execute $prg_board a$baseport g70 
  47.         runmenu demo_mainscreen
  48.         runscript shutdown
  49.         runmenu intro
  50.         return
  51. menu intro at 1,2 dims 5,73 bc blu tc whi
  52.     text at ,6 " Media Vision Customer Demonstration Facility for Sound Cards"
  53.     text at ,6 "        Brought to you by Media Vision Product Support"
  54.     text at ,6 "                 Press ENTER to continue"  
  55. menu demo_mainscreen at 0,0 dims 25,80 bc blu tc whi
  56.     text "Media Vision Hardware Demonstration Facility -- Version 2.8"
  57.     text "For Media Vision Jazz Based Sound Cards"
  58.     text ""
  59.     text "For other hardware diagnostics, run the Diag program"
  60.     display exedir using "in the %s\DIAG directory."        
  61.     text "" 
  62.     text "Select an item to test" at ,10
  63.     text ""
  64.     box at ,8 dims 12,30 bc cy
  65.     item "Digital Audio Playback"           at ,10 menu digaudplay textcolor btwhi background cy
  66.     item "Digital Audio Recording"          at ,10 menu digaudrec textcolor btwhi background cy
  67.     item "FM Synthesizer"                   at ,10 menu fmsynth2op textcolor btwhi background cy
  68.     item "CD Audio"                         at ,10 menu cdaudio textcolor btwhi background cy
  69.     item "Joystick Tracking"                at ,10 execute "$prg_joytest" textcolor btwhi background cy
  70.     item "Mixer Program"                    at ,10 execute "$prg_mixer *" textcolor btwhi background cy
  71.     item "Set Volume"                       at ,10 menu setvolume textcolor btwhi background cy
  72.     item "Configuration Details"            at ,10 menu systemconfigarea textcolor btwhi background cy
  73.     text ""
  74.     item "Return To DOS"                    at ,10 return 2 textcolor btwhi background cy
  75. script shutdown
  76.     if issame $loadedfm 1   execute $prg_fmopl2 -qu
  77.     execute -eo cdstop
  78.     return 
  79. menu digaudplay at 2,0 dims 20,80
  80.     set playstatus type int 0
  81.     text "Digital Audio Playback"
  82.     text ""
  83.     text "This test will verify the ability of your sound card"
  84.     text "to playback various types of digital audio."
  85.     text ""
  86.     box at ,3 dims 9,30 bc gr 
  87.     item "Play  8-bit, 11025 Mono"          at ,5 menu dap0811m background gr textcolor btwhi
  88.     item "Play  8-bit, 22050 Stereo"        at ,5 menu dap0822s background gr textcolor btwhi
  89.     item "Play 16-bit, 11025 Mono"          at ,5 menu dap1611m  background gr textcolor btwhi
  90.     text ""
  91.     item "Play User Recorded File"          at ,5 menu dapusers background gr textcolor btwhi
  92.     text ""
  93.     item "Return To Previous Screen"        at ,5 return 1 background gr textcolor btwhi
  94. menu dap0811m at 0,0 dims 25,80 bc whi tc blu
  95. text at -1,-1 " Currently playing a 8-bit, 11025 mono wave file... " background blu textcolor btwhi
  96. item "" script dap0811m
  97. menu dap0822s at 0,0 dims 25,80 bc whi tc blu
  98. text at -1,-1 " Currently playing a 8-bit, 22050 stereo wave file... " background blu textcolor btwhi
  99. item "" script dap0822s
  100. menu dap1611m at 0,0 dims 25,80 bc whi tc blu
  101. text at -1,-1 " Currently playing a 16-bit, 11025 mono wave file... " background blu textcolor btwhi
  102. item "" script dap1611m
  103. #menu dapusers at 0,0 dims 25,80 bc whi tc blu
  104. #text at -1,-1 " Press ESCAPE to stop playback... " background blu textcolor btwhi
  105. #item "" script dapusers 
  106. script dap0811m
  107.     execute $playexe pcm0811m.wav q b$baseport
  108.     set playstatus 0
  109.     if not isless $errorlevel 18    set playstatus 2
  110.     if issame $playstatus 2         runmenu dapfailed
  111.     if issame $playstatus 1         runmenu dapinterrupted
  112.     if issame $playstatus 0         runmenu dapsuccess
  113.     return 1
  114. script dap0822s
  115.     execute $playexe pcm0822s.wav q b$baseport
  116.     set playstatus 0
  117.     if not isless $errorlevel 18    set playstatus 2
  118.     if issame $playstatus 2         runmenu dapfailed
  119.     if issame $playstatus 1         runmenu dapinterrupted
  120.     if issame $playstatus 0         runmenu dapsuccess
  121.     return 1
  122. script dap1611m
  123.     execute $playexe pcm1611m.wav q b$baseport 
  124.     set playstatus 0
  125.     if not isless $errorlevel 18    set playstatus 2
  126.     if issame $playstatus 2         runmenu dapfailed
  127.     if issame $playstatus 1         runmenu dapinterrupted
  128.     if issame $playstatus 0         runmenu dapsuccess
  129.     return 1
  130. script sbc0811m
  131.     if issame "%blaster%" ""        goto needblaster
  132.     if issame $productcode 1        goto nosbconcard
  133.     execute $playexe pcm0811m.wav q b$baseport 
  134.     set playstatus 0
  135.     if not isless $errorlevel 18    set playstatus 2
  136.     if issame $playstatus 2         runmenu dapfailed
  137.     if issame $playstatus 1         runmenu dapinterrupted
  138.     if issame $playstatus 0         runmenu dapsuccess
  139.     return 1
  140.     :needblaster
  141.     runmenu needblaster
  142.     return
  143.     :nosbconcard
  144.     runmenu nosbconcard
  145.     return
  146. script sbc0822m
  147.     if issame "%blaster%" ""        goto needblaster
  148.     if issame $productcode 1        goto nosbconcard
  149.     execute $playexe pcm0822m.wav q b$baseport 
  150.     set playstatus 0
  151.     if not isless $errorlevel 18    set playstatus 2
  152.     if issame $playstatus 2         runmenu dapfailed
  153.     if issame $playstatus 1         runmenu dapinterrupted
  154.     if issame $playstatus 0         runmenu dapsuccess
  155.     return 1
  156.     :needblaster
  157.     runmenu needblaster
  158.     return
  159.     :nosbconcard
  160.     runmenu nosbconcard
  161.     return
  162.     menu needblaster at 10,5 bc r tc btwhi
  163.         text "Sorry!" 
  164.         text ""
  165.         text "There should be a 'SET BLASTER=' statement in the environment!"
  166.     menu nosbconcard at 10,5 bc r tc btwhi
  167.         text "Sorry!"
  168.         text ""
  169.         text "There is not a Sound Blaster compatible sound device!"
  170. menu dapusers at 5,0 dims 15,80 bc mag tc btwhi
  171.     text "Play User Recorded File"
  172.     text ""
  173.     text "Enter the name of an existing file, or use the name you specified" 
  174.     text "during Digital Audio Recording."
  175.     box at 6,8 dims 5,30 bc gr
  176.     item $recfile at ,10 script dapusers background gr textcolor btwhi
  177.     text ""
  178.     item "Return to Previous Screen" at ,10 return 1 background gr textcolor btwhi
  179.     script dapusers
  180.         runscript dapfile
  181.         if issame "${recfile}" ""       return
  182.         if issame "${recfile}" "XXX"    return
  183.         if not isfile $recfile          return
  184.         runmenu playtpcm
  185.         return
  186.     script dapfile
  187.         set tmpfile "$recfile"
  188.         runmenu gettmpfileplay
  189.         if issame "${tmpfile}" "" set tmpfile "XXX."
  190.         set recfile "$tmpfile"
  191.         return
  192.     menu gettmpfileplay at 9,13 bc cy tc btwhi
  193.         text "Enter the name of the file"
  194.         text ""
  195.         text "The default name is that specified during the"
  196.         text "recording process.  If you know about another "
  197.         text "file in this directory, you can enter that name" 
  198.         text "instead."
  199.         text ""
  200.         text "For example enter 'TEST.WAV'.  You must add the"
  201.         text ".WAV extention to your file name."
  202.         item $tmpfile at ,5 onkey script gettmpfileplay return 1
  203.     script gettmpfileplay
  204.         :again
  205.         getstring tmpfile length 13 uppercase wordonly
  206.         if isfile $tmpfile      return
  207.         if isfile ${tmpfile}.wav        set tmpfile ${tmpfile}.wav
  208.         if not isfile $tmpfile  goto fileexistsnot
  209.         if isdir $tmpfile       goto notafilename
  210.         return                                          
  211.         :fileexistsnot
  212.         runmenu fileexistsnot
  213.         goto again
  214.         :notafile
  215.         runmenu notafile
  216.         goto again
  217.         menu fileexistsnot at 10,10 bc r tc btwhi
  218.             text "File does not exist!"
  219.             text ""
  220.             text "The filename you entered does not exist!"
  221. menu playtpcm at 0,0 dims 25,80 bc whi tc blu
  222. text at -1,0 "Executing playback of your wave file." background whi textcolor blu 
  223. text ""
  224. item "" script usrwavefile
  225. script usrwavefile
  226.     execute $playexe $recfile b$baseport >null
  227.     set playstatus 0
  228.     if not isless $errorlevel 18    set playstatus 2
  229.     if issame $playstatus 2         runmenu dapfailed
  230.     if issame $playstatus 1         runmenu dapinterrupted
  231.     if issame $playstatus 0         runmenu dapsuccess
  232.     return 1
  233.  
  234. menu dapfailed at 5,10 bc r tc btwhi
  235.     text "Digital audio failure" background cy textcolor btwhi
  236.     text "The diagnostic routine detected a failure."
  237.     text ""
  238.     text "If you pressed ESCAPE to terminate the playback,"
  239.     text "then ignore this message."
  240.     text ""
  241.     text "If the sound 'looped', or did not play, then there"
  242.     text "may be an IRQ or DMA conflict."
  243.     text "If there was no sound, then you may need to adjust"
  244.     text "the mixer settings (volume). Or, make sure the 'SET"
  245.     text "BLASTER line in the AUTOEXEC.BAT matches the sound
  246.     text "boards settings displayed via the menu selection:"
  247.     text "'Configuration Details'."
  248.     text "To check the SET BLASTER settings, while at the DOS"
  249.     text "prompt, exter the command 'SET' then press enter."
  250. menu dapsuccess at 10,20 bc g tc btwhi
  251.     text "Digital audio success" background cy textcolor btwhi
  252.     text ""
  253.     text "The diagnostic routine detected no failure."
  254.     text ""
  255.     text "Your sound card is operating correctly."
  256. menu dapinterrupted at 10,20 bc r tc btwhi
  257.     text "Digital audio interrupted" background cy textcolor btwhi
  258.     text ""
  259.     text "The diagnostic routine was unable to determine the status."
  260.     text ""
  261.     text "The playback routine was interrupted by you pressing ESCAPE!"
  262. menu digaudrec at 2,0 dims 20,80
  263.     text "Digital audio recording"
  264.     text ""
  265.     text "These tests will verify the ability for you to record"
  266.     text "digital audio using your sound card."
  267.     box at ,3 dims 9,30 bc gr
  268.     item "Set Mixer Parameters"             at ,5 execute "$prg_mixer *" background gr textcolor btwhi
  269.     item "Set Record Parameters"            at ,5 menu darsetparms background gr textcolor btwhi
  270.     item "Specify Filename to Save"         at ,5 script darfile background gr textcolor btwhi
  271.     text ""
  272.     item "Start Recording"                  at ,5 script darstart background gr textcolor btwhi
  273.     text ""
  274.     item "Return to Previous Screen"        at ,5   return 1 background gr textcolor btwhi
  275.     display nul using "Current Configuration: " at 6,40 textcolor btwhi background magenta
  276.     display recrate using "Sample Rate: %10s" at 7,40 textcolor btwhi background magenta
  277.     display recchan using "Channels:    %10s" at 8,40 textcolor btwhi background magenta
  278.     display recdsiz using "Data Size:   %10s" at 9,40 textcolor btwhi background magenta
  279.     display recfile using "Filename: %13s" at 10,40   textcolor btwhi background magenta
  280.     menu darsetparms at 11,10 dims 11,65 bc cy
  281.         text "Set Record Parameters" textcolor btwhi background cy
  282.         text ""
  283.         text "Move the cursor, and press ENTER to select parameter." textcolor btwhi background cy
  284.         box at ,3 dims 5,30 bc gr
  285.         item "11025"    at 5,5  script setrate11 textcolor btwhi background gr 
  286.         item "22050"    at 6,5  script setrate22 textcolor btwhi background gr
  287.         item "44100"    at 7,5  script setrate44 textcolor btwhi background gr 
  288.         item "Mono"     at 6,15 script setchanm textcolor btwhi background gr
  289.         item "Stereo"   at 7,15 script setchans textcolor btwhi background gr
  290.         item "8-bit"    at 6,25 script setdsiz08 textcolor btwhi background gr
  291.         item "16-bit"   at 7,25 script setdsiz16 textcolor btwhi background gr
  292.         text ""
  293.         text "Press ESCAPE when parameters are correct." at ,2 textcolor btwhi background cy
  294.         display recrate using "Sample Rate: %10s" at 5,40       textcolor btwhi background magenta
  295.         display recchan using "Channels:    %10s" at 6,40       textcolor btwhi background magenta
  296.         display recdsiz using "Data Size:   %10s" at 7,40       textcolor btwhi background magenta
  297.         script setrate11
  298.             set recrate "11025"
  299.             return
  300.         script setrate22
  301.             set recrate "22050"
  302.             return
  303.         script setrate44
  304.             set recrate "44100"
  305.             return
  306.         script setchanm
  307.             set recchan "Mono"
  308.             return
  309.         script setchans
  310.             set recchan "Stereo"
  311.             return
  312.         script setdsiz08
  313.             set recdsiz "8-bit"
  314.             return
  315.         script setdsiz16
  316.             set recdsiz "16-bit"
  317.             return
  318.     script darstart
  319.         set chanparm type str "1"
  320.         set dsizparm type str "8"
  321.         set rateparm type str $recrate
  322.         set fileparm type str "XXX."
  323.         if isfile $recfile      goto fileexists
  324.         :dorecord
  325.         if issame $recchan "Stereo" set chanparm "s"
  326.         if issame $recdsiz "16-bit" set dsizparm "16"
  327.         if not issame "${recfile}" "" set fileparm $recfile
  328.         runmenu rectpcm 
  329.         return 
  330.         :fileexists
  331.         if issame $recfile XXX  goto dorecord
  332.         if issame $recfile XXX. goto dorecord
  333.         set clobber type int 0
  334.         runmenu fileexists
  335.         if issame $clobber 0 return
  336.         goto dorecord
  337.         menu fileexists at 10,10 bc r tc btwhi
  338.             text "File exists!"
  339.             text ""
  340.             text "The filename you entered already exists!"
  341.             text ""
  342.             text "If you continue, you will overwrite it!"
  343.             text ""
  344.             item "Overwrite"                at 7,5  script clobber return 1
  345.             item "Enter another name"       at 7,20 script darfile return 1
  346.             script clobber
  347.                 set clobber 1
  348.                 return 
  349. script darfile
  350.     set tmpfile "$recfile"
  351.     runmenu gettmpfile
  352.     if issame "${tmpfile}" "" set tmpfile "XXX"
  353.     set recfile "$tmpfile"
  354.     return
  355.     menu gettmpfile at 5,0 dims 15,80 bc mag tc btwhi  
  356.         text "Enter the name of the file"
  357.         text ""
  358.         box at 3,3 dims 3,20 bc gr  
  359.         item $tmpfile at ,5 onkey script gettmpfile return 1
  360.         text ""
  361.         text ""
  362.         text "The default name is 'XXX', which indicates that the recording will 
  363.         text "not be saved to any file.  This is useful for testing purposes."
  364.     script gettmpfile
  365.         :again
  366.         getstring tmpfile length 13 uppercase
  367.         if isdir $tmpfile       goto notafilename
  368.         return
  369.         :notafile
  370.         runmenu notafile
  371.         goto again
  372.         menu notafile at 10,10 bc r tc btwhi
  373.             text "Sorry!"
  374.             text ""
  375.             text "The name you entered is not a valid filename!"
  376.             text ""
  377.             text "It appears to be a directory name!"
  378.             text ""
  379.             text "Please try again!"
  380. menu rectpcm at 0,0 dims 25,80 bc whi tc blu
  381. text at -1,-1 " Press ESCAPE to stop recording... "background blu textcolor btwhi
  382. item "" script rectpcm
  383. script rectpcm
  384.     execute $recexe $fileparm q a$baseport r$rateparm $dsizparm $chanparm m 
  385.     return
  386. ### cdaudio() - check the audio playback on the CD-ROM drive
  387. menu cdaudio at 2,0 dims 20,80
  388.     text "CD Audio Diagnostic Routines"
  389.     text ""
  390.     display v_namcdrom using "These tests require that the CD-ROM device driver, %s"
  391.     text "be installed in your CONFIG.SYS file, and that the MSCDEX.EXE"
  392.     text "program has been run (usually from AUTOEXEC.BAT)."
  393.     text ""
  394.     text "If you are not sure, select 'Verify Drivers'."
  395.     text ""
  396.     text "Otherwise, put an AUDIO CD-ROM disc in the Drive, and select"
  397.     text "'Play Track 1' or 'Play Entire Disc'"
  398.     box at ,3 dims 8,30 background gr
  399.     item "Play Track 1"             at ,5 script cdtrak1 background gr textcolor btwhi
  400.     item "Play Entire Disc"         at ,5 script cddisc background gr textcolor btwhi
  401.     item "Stop CD Play"             at ,5 script cdstop background gr textcolor btwhi
  402.     item "Verify Drivers..."        at ,5 menu PWcdverify background gr textcolor btwhi
  403.     text ""
  404.     item "Return to Previous Screen" at ,5 return 1 background gr textcolor btwhi
  405. menu PWcdverify at -1,-1 background wh textcolor blu bo do sh item " Please wait... " script cdverify
  406. script cdverify 
  407.     set havecddrvr     type str "was"
  408.     set havemscdex      type str "was"
  409.     set havecddrvrinconfig    type str "was"
  410.     set havemscdexinautoex  type str "was"
  411.     set trycount        type int 0
  412.     set cddrivers       type str "are"
  413.     if not isfile mvcd005   set havecddrvr "was not"
  414.     :again
  415.     execute -eo cdstatus
  416.     if issame $errorlevel 0         goto showdrivers
  417.     if issame $errorlevel 1         goto tryagain
  418.     if issame $errorlevel 2         goto tryagain
  419.     if issame $errorlevel 11        set havemscdex "was not"
  420.     if issame $errorlevel 12        set havecddrvr "was not"
  421.     if issame $errorlevel 14        set havecddrvr "was not"
  422.     set cddrivers "are not"
  423.     goto showdrivers
  424.     :cdfailed
  425.     runmenu showcdstatus
  426.     return
  427.     :tryagain
  428.     set trycount $trycount + 1
  429.     if issame $trycount 50          goto showdrivers
  430.     goto again
  431.     return
  432.     :showdrivers
  433.     sedit -C c:\ config.sys device=+$v_namcdrom dummy locate
  434.     if isequal $errorlevel 0  set havecddrvrinconfig "was not"
  435.     sedit -B c:\ autoexec.bat mscdex dummy locate
  436.     if isequal $errorlevel 0  set havemscdexinautoex "was not"
  437.     set suggestion1 type str "Your system is ready to use the CD-ROM drive."
  438.     set suggestion2 type str "If you can not play CD Audio, check that it is an AUDIO Disc!"
  439.     if issame "${havecddrvrinconfig}"     "was not" set suggestion1 "Add 'device=${v_namcdrom} /d:mvcd005' to CONFIG.SYS"
  440.     if issame "${havemscdexinautoex}"   "was not" set suggestion2 "Add 'mscdex.exe /d:mvcd005' to AUTOEXEC.BAT"
  441.     if issame "${havecddrvrinconfig}"     "was"   if issame "${havecddrvr}"   "was not"     set suggestion1 "Check the 'pathname' for ${v_namcdrom} in CONFIG.SYS"
  442.     runmenu showcdstatus
  443.     return 1
  444. menu showcdstatus at 10,0 dims 10,80 bc r tc btwhi
  445.     display cddrivers using "CD-ROM Drivers %s loaded" background cy textcolor btwhi
  446.     text ""
  447.     display havecddrvr using "The xxxxxxxx.xxx  driver %s found in memory."
  448.     display havemscdex using "The MSCDEX.EXE  driver %s found in memory."
  449.     text ""
  450.     display suggestion1 using "%s" at ,5 
  451.     display suggestion2 using "%s" at ,5
  452.     display v_namcdrom dims 1,13 at 3,6
  453. script cdstop
  454.     execute -eo cdstop
  455.     return
  456. script cdtrak1
  457.     set cddrive "."
  458.     set cdstrk "1"
  459.     set cdftrk "1"
  460.     runscript cdtraks
  461.     return
  462. script cdtrak2
  463.     set cddrive "."
  464.     set cdstrk "2"
  465.     set cdftrk "2"
  466.     runscript cdtraks
  467.     return
  468. script cddisc
  469.     set cddrive "."
  470.     set cdstrk "1"
  471.     set cdftrk "-1"
  472.     runscript cdtraks
  473.     return
  474. script cdtraks
  475.     set trycount type int 0
  476.     :again
  477.     execute -eo cdplay $cddrive $cdstrk $cdftrk
  478.     if issame ${errorlevel} 0       goto okay
  479.     if issame ${errorlevel} 1       goto tryagain
  480.     if issame ${errorlevel} 2       goto tryagain
  481.     :cdfailed
  482.     runscript cdshowstatus
  483.     :okay
  484.     return
  485.     :tryagain
  486.     set trycount $trycount + 1
  487.     if issame $trycount 50          goto cdfailed
  488.     goto again
  489.     return
  490. script cdshowstatus
  491.     if issame ${errorlevel} 11      goto nomscdex
  492.     if issame ${errorlevel} 12      goto nodrives
  493.     if issame ${errorlevel} 13      goto badsyntax
  494.     if issame ${errorlevel} 14      goto nodrives
  495.     if issame ${errorlevel} 15      goto badsyntax
  496.     :cdfailed
  497.     runmenu cdfailed
  498.     return
  499.     :nomscdex
  500.     runmenu nomscdex
  501.     return
  502.     :nodrives
  503.     runmenu nodrives
  504.     return
  505.     :badsyntax
  506.     runmenu badsyntax
  507.     return
  508.     menu cdfailed at 10,10 bc r tc btwhi
  509.     text "CD-ROM playback failure!" background cy textcolor btwhi
  510.     text ""
  511.     text "It may be that the DISC is not an AUDIO DISC!"
  512.     text ""
  513.     text "Check that the disc in the drive is an audio disc,"
  514.     text "or 'Verify Drivers...'. Try DIAG to test the CD ROM."
  515.     item "" script cdeject return 1
  516.     script cdeject
  517.         execute -eo cdeject .
  518.         runmenu pressreturn
  519.         return
  520.          menu pressreturn at 19,40 bc cy
  521.         text "Press ENTER to return" 
  522.     menu nomscdex at 10,10 bc r tc btwhi
  523.     text "MSCDEX not detected!" background cy textcolor btwhi
  524.     text ""
  525.     text "MSCDEX.EXE is not loaded!"
  526.     menu nodrives at 10,10 bc r tc btwhi
  527.     text "No CD-ROM drives found!" background cy textcolor btwhi
  528.     text ""
  529.     text "There are no CD-ROM drives attached!"
  530.     menu badsyntax at 10,10 bc r tc btwhi
  531.     text "Command syntax error!" background cy textcolor btwhi
  532.     text ""
  533.     text "Syntax error in command line!"
  534.     text ""
  535.     text "This is an internal error, and should not occur!"
  536.     text ""
  537.     text "Contact Technical Support for assistance!"
  538. ### getboardaddress() - find the board at the specified address
  539. script gettmpbaseport
  540.     set x       type str " %blaster% " 
  541.     set y       type str "${x}" - "*=" 
  542.     set z       type str "${y}" - "^*A" 
  543.     set tmpbaseport type str "${z}" - "\w*$$"
  544.     if not issame "${tmpbaseport}" ""   runscript checkbaseport
  545.     return
  546. menu getboardaddress at -1,-1 dims 15,50 bc gra
  547.     set gotjazz 0
  548.     text "Select the base port address for the JAZZ" 
  549.     text "based sound card"
  550.     text ""
  551.     display baseport using "JAZZ based sound card address: %s"
  552.     text ""
  553.     box at ,2 dims 8,35 bc magenta tc btwhi
  554.     item "Port 220h - Default Address"      at 7,5 script sba220 return 1 textcolor btwhi background magenta
  555.     item "Port 210h - Alternate Address 1"  at 8,5 script sba210 return 1 textcolor btwhi background magenta
  556.     item "Port 230h - Alternate Address 2"  at 9,5 script sba230 return 1 textcolor btwhi background magenta
  557.     item "Port 240h - Alternate Address 3"  at  10,5 script sba240 return 1 textcolor btwhi background magenta
  558.     text ""
  559.     item "Return to Previous Screen"   at 12,5 return 1 textcolor btwhi background magenta
  560.     script sba220
  561.         set tmpbaseport "220"
  562.         runscript checkbaseport
  563.         return
  564.     script sba210
  565.         set tmpbaseport "210"
  566.         runscript checkbaseport
  567.         return
  568.     script sba230
  569.         set tmpbaseport "230"
  570.         runscript checkbaseport
  571.         return
  572.     script sba240
  573.         set tmpbaseport "240"
  574.         runscript checkbaseport
  575.         return
  576.     script getsba
  577.         getstring tmpbaseport length 3 uppercase
  578.         runscript checkbaseport
  579.         return
  580.     script checkbaseport
  581.         execute -eo $prg_board a$tmpbaseport l
  582.         if issame $errorlevel 0         runmenu badbaseport
  583.         if not issame $errorlevel 0     runmenu gotbaseport
  584.         return
  585.         menu badbaseport at 6,5 dims 7,65 bc r tc btwhi
  586.             set gotjazz 2
  587.             text "Sorry!"
  588.             text ""
  589.             display tmpbaseport using "There is not a JAZZ based sound card at port address '%s'!"
  590.             text ""
  591.             text "Press Return to Continue"
  592.         menu gotbaseport at 6,5 dims 7,60 bc magenta tc btwhi
  593.             set gotjazz 1
  594.             set baseport "$tmpbaseport"
  595.             text "Yes!"
  596.             text ""
  597.             display tmpbaseport using "There is a JAZZ based sound card at port address '%s'!"
  598.             text ""
  599.             text "Press Return to Continue"
  600. ### setproductcode() - set up for the type of JAZZ found
  601. script setproductcode
  602.     set mvdriverloaded "NO"
  603.     set sbdma  type int 0
  604.     set sbirq  type int 0
  605.     set sbhdma type int 0
  606.     if isfile thndrii$      set mvdriverloaded Yes
  607.     if not issame $mvdriverloaded Yes        goto skipgetdmairq
  608.     interrupt 2Fh ax BC04h return bx sbdma cx sbirq dx sbhdma
  609.     :skipgetdmairq
  610.     execute -eo $prg_board a$baseport
  611.     set productcode $errorlevel
  612.     set mvdriverinconfig "No"
  613.     sedit -C c:\ config.sys device=+pros.sys dummy locate 
  614.     if $errorlevel set mvdriverinconfig "Yes"
  615.     set cddrvrinconfig "No"
  616.     sedit -C c:\ config.sys device=+$v_namcdrom dummy locate 
  617.     if $errorlevel set cddrvrinconfig "Yes"
  618.     set mscdexinautoex "No"
  619.     sedit -B c:\ autoexec.bat mscdex dummy locate
  620.     if $errorlevel set mscdexinautoex "Yes"
  621.     set productname "<MV Sound Card>"
  622.     if issame $productcode 1        runscript setupflounder
  623.     if issame $productcode 2        runscript setupashante
  624.     if issame $productcode 3        runscript setupbls
  625.     if issame $productcode 6        runscript setupIDEA  
  626.     if issame $productcode 7        runscript setupIDEA        
  627.     return
  628. script setupflounder
  629.     set productname "Pro Audio 3-D"
  630.     return
  631. script setupashante
  632.     set productname "MultiCD"
  633.     return
  634. script setupbls
  635.     set productname "DLX94A"
  636.     return
  637. script setupIDEA
  638.     set productname "Pro Audio Wavetable"
  639.     return
  640. menu systemconfigarea at -1,-1 dims 25,80 bc blu tc whi
  641.     text "System configuration settings for JAZZ based sound card"
  642.     text ""
  643.     text "Select a option to view or change" at ,10
  644.     text ""
  645.     box at ,8 dims 17,40 bc cy
  646.     item "Show System Configuration"       at ,10 menu showproduct textcolor btwhi background cy
  647.     text ""
  648.     item at ,10 "Display ${v_bootdrv}${v_bootdir}AUTOEXEC.BAT File" execute "$prg_lookat ${v_bootdrv}${v_bootdir}autoexec.bat" textcolor btwhi background cy
  649.     item at ,10 "Display ${v_bootdrv}${v_bootdir}CONFIG.SYS File" execute "$prg_lookat ${v_bootdrv}${v_bootdir}config.sys" textcolor btwhi background cy
  650.     item at ,10 "Display $v_winpath\SYSTEM.INI File" execute "$prg_lookat $v_winpath\system.ini" textcolor btwhi background cy      
  651.     text ""
  652.     item at ,10 "Edit AUTOEXEC.BAT File" execute "$v_editpathedit ${v_bootdrv}${v_bootdir}autoexec.bat" textcolor btwhi background cy
  653.     item at ,10 "Edit CONFIG.SYS File"  execute "$v_editpathedit ${v_bootdrv}${v_bootdir}config.sys" textcolor btwhi background cy      
  654.     item at ,10 "Edit SYSTEM.INI File"  execute "$v_editpathedit $v_winpath\system.ini" textcolor btwhi background cy
  655.     text ""
  656.     item at ,10 "If the above options fail to work..."  at ,10 menu assumption textcolor btwhi background cy
  657.     text ""
  658.     item at ,10 "Return to Previous Screen"        at ,10 return 1 textcolor btwhi background cy
  659. menu showproduct at 10,10 dims 13,60 bc magenta tc btwhi
  660.     display productname using "Product is a %s" 
  661.     display mvdriverloaded   using "PROS.SYS is loaded:          %s"
  662.     display mvdriverinconfig using "PROS.SYS is in CONFIG.SYS:   %s"
  663.     display cddrvrinconfig    using "xxxxxxxx.xxx is in CONFIG.SYS:   %s"
  664.     display mscdexinautoex  using "MSCDEX   is in AUTOEXEC.BAT: %s"
  665.     display sbdma  using "PCM  DMA: %u"
  666.     display sbirq  using "PCM  IRQ: %u"
  667.     display sbhdma using "PCM HDMA: %u"
  668.     display v_namcdrom dims 1,13 at 4,2 
  669. menu assumption at 1,1 dims 22,78
  670.     text "Some assumptions of your configuration were used:"
  671.     text ""
  672.     text "CONFIG.SYS and AUTOEXEC.BAT are located in C:\."
  673.     text "SYSTEM.INI is located in C:\WINDOWS."
  674.     text "EDIT.COM is located in C:\DOS."
  675.     text ""
  676.     text "Editing of CUS.DAT file can quickly fix this."
  677.     text ""
  678.     text "If you're trying to display one of the files listed above, and" 
  679.     text "nothing happens or the screen just flashes: The file could be" 
  680.     text "missing or is spelled differently."
  681.     text ""
  682.     text "If you're trying to edit the file and nothing happens or the screen"
  683.     text "just flashes: You may also need more memory (at least 553K), or"
  684.     text "the file is missing or is spelled differently."
  685.     text ""
  686.     text "Press Return to Continue"
  687. ### fmsynth2op() - test the 3812 chip
  688. menu fmsynth2op at 2,0 dims 20,80
  689.     set fmstatus type int 0
  690.     text "FM Synthesis - 2 Operator mode"
  691.     text ""
  692.     text "This test will verify the operation of the FM Synthesizer chip."
  693.     text ""
  694.     box at ,3 dims 6,30 bc gr 
  695.     item "Play Random FM Sounds" at ,5 script fm2opsong1 background gr textcolor btwhi
  696.     item "Stop Random FM Sounds" at ,5 script fm2opstop background gr textcolor btwhi
  697.     text ""
  698.     item "Return to Previous Screen" return 1 background gr textcolor btwhi
  699.     script fm2opsong1
  700.         runscript loadfm
  701.         if not issame $havefm 1         goto nofmdriver
  702.         execute i65
  703.         execute bo
  704.         return 1
  705.         :nofmdriver
  706.         runmenu nofmdriver
  707.         return
  708.     script fm2opsong2
  709.         runscript loadfm
  710.         if not issame $havefm 1         goto nofmdriver
  711.         execute i65
  712.         execute bo
  713.         return 1
  714.         :nofmdriver
  715.         runmenu nofmdriver
  716.         return
  717.     script loadfm
  718.         execute $prg_fmopl2 -qs
  719.         if not issame $errorlevel 0     goto skipfmload
  720.         execute $prg_fmopl2 -qi
  721.         execute $prg_fmopl2 -qs
  722.         if issame $errorlevel 0         goto fmloadfailed
  723.         set loadedfm 1
  724.         :skipfmload
  725.         set havefm type int 1
  726.         return
  727.         :fmloadfailed
  728.         runmenu fmloadfailed
  729.         return
  730.     script fm2opstop
  731.         execute $prg_fmopl2 -qs
  732.         if issame $errorlevel 0         goto skipunload
  733.         execute bf
  734.         if issame ${loadedfm} 1         execute $prg_fmopl2 -qu
  735.         execute $prg_fmopl2 -qs
  736.         if not issame $errorlevel 0     goto fmunloadfailed
  737.         set loadedfm 0
  738.         :skipunload
  739.         return
  740.         :fmunloadfailed
  741.         runmenu fmunloadfailed
  742.         return
  743.     menu fmunloadfailed at 10,10 bc r tc btwhi
  744.         text "FM.COM unload failure!"
  745.         text ""
  746.         text "Unable to unload the FM driver!"
  747.     menu nofmdriver at 10,10 bc r tc btwhi
  748.         text "No FM driver!"
  749.         text ""
  750.         text "Unable to test FM Synthesizer."
  751.         text ""
  752.         text "There was a problem loading the FM.COM driver!"
  753.         text ""
  754.         text "Contact Technical Support for assistance."
  755. menu setvolume at 2,1 dims 20,78
  756.     text "Set Volume"
  757.     text ""
  758.     text "Select a predefined volume level below"
  759.     text "or enter your own volume level."
  760.     text ""
  761.     text "NOTE: You can also use the CTRL-ALT-U and -D keys to"
  762.     text "control the volume."
  763.     text ""
  764.     box at ,3 dims 8,30 bc gr
  765.     item "Maximum Volume (100%)"   at ,5 script setvol100 background gr textcolor btwhi
  766.     item "Medium Volume  (50%)"    at ,5 script setvol50 background gr textcolor btwhi
  767.     item "Minimum Volume (20%)"    at ,5 script setvol20 background gr textcolor btwhi 
  768.     item "Enter Volume Level"      at ,5 menu entervolume background gr textcolor btwhi
  769.     text ""
  770.     item "Return to Previous Screen" at ,5 return 1 background gr textcolor btwhi
  771.     script setvol100
  772.         execute $prg_board g100
  773.         runmenu volumeisset
  774.         return
  775.     script setvol50
  776.         execute $prg_board g50
  777.         runmenu volumeisset
  778.         return
  779.     script setvol20
  780.         execute $prg_board g20
  781.         runmenu volumeisset
  782.         return          
  783.     menu volumeisset at 12,36 bc magenta tc btwhi
  784.         text "The Volume has been changed!-Press Enter"
  785.     menu entervolume at 15,20 bc magenta tc btwhi
  786.         set volumelevel type int 0
  787.         text "Enter a Volume Level from 0 to 100"
  788.         text "A Level of 0 will produce no sound!"
  789.         text "A Level of 100 will probably be annoying!"
  790.         box at ,9 dims 3,5
  791.         item $volumelevel at ,10 script getvolume return 1
  792.     script getvolume
  793.     :again
  794.             getstring tmpvolumelevel length 3 allownull numberonly
  795.             if issame "${tmpvolumelevel}" "" return
  796.             set t type int 0
  797.             :check
  798.             if issame $t $tmpvolumelevel    goto gotit
  799.             set t $t + 1
  800.             if issame $t 101                goto outofrange
  801.             goto check
  802.             :gotit
  803.             set volumelevel $tmpvolumelevel
  804.             execute $prg_board a$baseport g$volumelevel
  805.             return
  806.             :outofrange
  807.             runmenu outofrange
  808.             goto again
  809.             menu outofrange at 16,20 bc r tc btwhi
  810.             text "Sorry!"
  811.             text "The number entered is not valid!"
  812.             text "Please enter a number between 0 to 100."
  813.