home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / ovladace / xdiag / mvdxdiag.exe / TCD.DAT < prev    next >
Encoding:
Text File  |  1995-03-01  |  13.6 KB  |  346 lines
  1. include tcdglb.dat
  2. set buf_scratch type str ""
  3. set fun_testcdsecs type long $secs 
  4. set fun_testcddialog type str ""
  5.  
  6. menu TESTCD dims 25,80 bc blu tc wh bo no na " Media Vision Diagnostics, version 2.4 " 
  7.     text at ,2 " CDROM Interface and Operation Test "
  8.     box  at ,2 dims 0,35 border double 
  9.     text "    Welcome to the automated CD-ROM drive operation test.  The Installation"        
  10.     text "program will automatically add this program to your AUTOEXEC.BAT to test the"        
  11.     text "CD-ROM drive's current status.  If you have found yourself in this program"        
  12.     text "it is because of two reasons. You have just installed a new kit and it ran"
  13.     text "automatically and found a problem, or you ran this program directly."        
  14.     text "    If you have found yourself in this program and don't need to know the"        
  15.     text "current status of your CD-ROM, select 'Exit this Screen' below, and your"
  16.     text "system will continue to boot normally.  However, your CD-ROM drive may not"        
  17.     text "be working at this time. "        
  18.     text
  19.     text "Highlight 'Read CDROM Configuration' and press ENTER to begin the procedure."
  20.     text 
  21.     box at ,C dims 7,50 bo do bc cy tc btwhi
  22.     item at ,20 " Additional Information on this program" execute "$prg_lookat tcd_hint.hlp"  textcolor btwhi background cy
  23.     item at ,C " Read CDROM Configuration " menu ReadCDROMConfiguration background cy textcolor btwhi
  24.     item at ,C " Verify CDROM Operation "   menu VerifyCDROMOperation$var_CDROMReady background cy textcolor btwhi
  25.     item at ,C " CDROM Information "        menu DisplayCDROMInformation background cy textcolor btwhi
  26.     item at ,C " Exit this Screen "      Return 1  background cy textcolor btwhi
  27.     item script testcdfun everytime 
  28.  
  29.     box at 22,0 dims 3,80 border single
  30.  
  31.     hotkey F1 TESTCDHelp
  32.     hotkey F2 TESTCDAbout
  33.     hotkey F3 TESTCDExit
  34.     hotkey F4 TESTCDReset
  35.     hotkey F5 TESTCDSetGlobals
  36.     hotkey F10 ManualCDROM
  37.  
  38. script testcdfun
  39.     local cursecs type long $secs
  40.     if isless $cursecs $fun_testcdsecs return
  41.  
  42.     set fun_testcddialog "$fun_testcddialog" - "*\n"
  43.     if ! $_strop                    then
  44.         display " " at 23,2 dims 1,77   background blue textcolor white
  45.         set fun_testcddialog    type str `file tcd.dlg
  46.         if $fun_testcdsecs display fun_testcddialog at 23,2 dims 1,77   background blue textcolor white
  47.         set fun_testcdsecs $cursecs + 4
  48.     else
  49.         set fun_testcdsecs $cursecs + 4
  50.         display fun_testcddialog at 23,2 dims 1,77      background blue textcolor white
  51.     endif
  52.     return
  53.  
  54. script quietTESTCD
  55.     runscript FindCDROMConfig
  56.     runscript FindCDROMAutoex
  57.     if issame "${lin_CONFIGCDROM}" ""       goto gointeractive
  58.     if issame "${v_namcdromd1}" ""          goto gointeractive
  59.  
  60.     if not isfile ${v_namcdromd1}   if isequal $v_usemcam 1         if issame "${lin_CONFIGMCAM}" "" goto addmcamreboot
  61.     if not isfile ${v_namcdromd1}           goto gointeractive
  62.     if issame "${lin_AUTOEXCDROM}" ""       goto gointeractive
  63.     set var_mscdexstatus type int 0
  64.     interrupt 2Fh ax 1500h bx 0 return bx var_mscdexstatus
  65.     if isequal $var_mscdexstatus 0          goto gointeractive
  66.  
  67.     set buf_scratch "                                                                            "
  68.     local ptr type ptr &buf_scratch
  69.  
  70.     sedit -B C:\ autoexec.bat testcd dummy put $ptr
  71.  
  72.     set x `length "${buf_scratch}"
  73.     if isequal $x 0  goto autoexremovedone
  74.  
  75.     local buf type str ""
  76.     local y 1
  77.     :next
  78.     set buf "${buf} "
  79.     set y ++
  80.     if isless $y $x goto next
  81.  
  82.     sedit -wqnB ${v_bootdrv}${v_bootdir} autoexec.bat testcd "${buf}" substitute
  83.     :autoexremovedone
  84.  
  85.     runscript DoInternationalStuff
  86.     return
  87.  
  88.     :gointeractive
  89.     runmenu TESTCD
  90.     return
  91.  
  92.     :addmcamreboot
  93.     runscript InsertCONFIGMCAM
  94.     runscript delay5Warmboot
  95.     goto gointeractive
  96.     return
  97.  
  98. menu ManualCDROM at 0,0 dims 25,80 bc bla tc wh bo do na " Manually Modify Drivers "
  99.     runscript FindCDROMConfig
  100.     runscript BuildCONFIGCDROMline
  101.     runscript FindCDROMAutoex
  102.     runscript BuildAUTOEXCDROMline
  103.  
  104.     text "Displayed below are either the actual lines from CONFIG.SYS and AUTOEXEC.BAT"
  105.     text "for your CDROM Drivers, or default lines built by this program."
  106.     text
  107.     text "Edit the lines as desired, then highlight 'Update ..., now' to update either"
  108.     text "CONFIG.SYS or AUTOEXEC.BAT with the new lines."
  109.     text
  110.     text "This operation is provided here to expedite Tech Support activities;  you"
  111.     text "should use the Main Menu's 'Read CDROM Configuration' item, as it does this"
  112.     text "same sort of action, but only when it determines that there is a problem."
  113.     text
  114.     text
  115.     box at 12,-1 dims 3,74 border single shadow
  116.     text at 12,5 " CONFIG.SYS "
  117.     item    $lin_CONFIGCDROM dims 1,70 script "getTextLine lin_CONFIGCDROM"
  118.     text
  119.     box at 15,-1 dims 3,74 border single shadow
  120.     text at 15,5 " AUTOEXEC.BAT "
  121.     item    $lin_AUTOEXCDROM dims 1,70 script "getTextLine lin_AUTOEXCDROM"
  122.     text
  123.     box at ,-1 dims 5,40 border single shadow
  124.     item at ,-1     " Return to Previous Screen "   return 1
  125.     item at ,-1     " Update CONFIG.SYS, now "      script addCONFIGCDROM
  126.     item at ,-1     " Update AUTOEXEC.BAT, now "    script addAUTOEXCDROM
  127.  
  128. menu TESTCDSetGlobals at 0,0 dims 25,80 bc bla tc wh bo no na " Set Global Variables "
  129.     set tmpFilename type str ""
  130.  
  131.     text at 1,2
  132.     text using "%30s" "QCFG .ini file:"
  133.     text
  134.     text using "%30s" "CONFIG.SYS driver:"
  135.     text using "%30s" "Boot Drive:"
  136.     text using "%30s" "Boot Directory:"
  137.     text using "%30s" "Windows Path:"
  138.     text
  139.     text using "%30s" "CONFIG.SYS CDROM driver:"
  140.     text using "%30s" "CDROM '/D:' name:"
  141.     text using "%30s" "CDROM '/B:' port:"
  142.     text using "%30s" "AUTOEXEC.BAT CDROM driver:"
  143.     text
  144.     text using "%30s" "Resource Allocation File:"
  145.     text
  146.     text using "%30s" "FDCD Pre-Initializer:"
  147.     text using "%30s" "Use FDCD Pre-Initializer:"
  148.  
  149.     text at 1,34 
  150.     item $v_inifile         dims 1,13 script "getFilename v_inifile"        background blue textcolor white
  151.     text
  152.     item $v_namconfig       dims 1,13 script "getFilename v_namconfig"      background blue textcolor white
  153.     item $v_bootdrv         dims 1,3  script "getDriveLetter v_bootdrv"     background blue textcolor white
  154.     item $v_bootdir         dims 1,40 script "getPathExisting v_bootdir"    background blue textcolor white
  155.     item $v_winpath         dims 1,40 script "getPathExisting v_winpath"    background blue textcolor white
  156.     text
  157.     item $v_namcdrom        dims 1,13 script "getFilename v_namcdrom"       background blue textcolor white
  158.     item $c_devcdrom        dims 1,13 script "getFilename c_devcdrom"       background blue textcolor white
  159.     item $c_cdrport         dims 1,4  script "getCDROMPORT c_cdrport"       background blue textcolor white
  160.     item $v_mscdex          dims 1,13 script "getFilename v_mscdex"         background blue textcolor white
  161.     text
  162.     item $v_qafile          dims 1,13 script "getFilename v_qafile"         background blue textcolor white
  163.     text
  164.     item $v_mcamname        dims 1,13 script "getFilename v_mcamname"       background blue textcolor white
  165.     item $v_usemcam         dims 1,4  set "arg1 $v_usemcam" script "toggleint v_usemcam"    background blue textcolor white
  166.  
  167.     text
  168.     box at ,-1 dims 5,40
  169.     item at ,-1 " Update GLOBALS " script TESTCDUpdateGlobals       return 1
  170.     item at ,-1 " Use GLOBALS this time only"               return 1
  171.     item at ,-1 " Reset GLOBALS to defaults" script TESTCDDefaultGlobals    return 1
  172.  
  173. script TESTCDDefaultGlobals
  174.     set v_inifile type str qcfg.ini
  175.     set v_bootdrv   type str C:             ## change to "C:"
  176.     set v_bootdir   type str \              ## change to "\"
  177.     set v_winpath   type str C:\WINDOWS     # path to Windows 
  178.     set v_namcdrom  type str $def_namcdrom  # pick your cdrom driver name
  179.     set c_devcdrom  type str $def_devcdrom
  180.     set c_cdrport   type str $def_cdrport
  181.     set v_qafile    type str scandos.txt
  182.     return
  183.  
  184. script TESTCDUpdateGlobals
  185.     local buf type str "                                                                                                 "
  186.     local ptr type ptr &buf
  187.     local new type str ""
  188.  
  189.     nullit buf
  190.     sedit -B . tcdglb.dat set+v_inifile     dummy put $ptr
  191.     set new "$buf" - "^*#"
  192.     if ! $_strop    set new ""
  193.     trim new
  194.     sedit -wnqB . tcdglb.dat set+v_inifile  "set v_inifile type str $v_inifile    #$new" substitute
  195.  
  196.     nullit buf
  197.     sedit -B . tcdglb.dat set+v_bootdrv     dummy put $ptr
  198.     set new "$buf" - "^*#"
  199.     if ! $_strop    set new ""
  200.     trim new
  201.     sedit -wnqB . tcdglb.dat set+v_bootdrv  "set v_bootdrv type str $v_bootdrv    #$new" substitute
  202.  
  203.     nullit buf
  204.     sedit -B . tcdglb.dat set+v_bootdir     dummy put $ptr
  205.     set new "$buf" - "^*#"
  206.     if ! $_strop    set new ""
  207.     trim new
  208.     sedit -wnqB . tcdglb.dat set+v_bootdir  "set v_bootdir type str $v_bootdir    #$new" substitute
  209.  
  210.     nullit buf
  211.     sedit -B . tcdglb.dat set+v_winpath     dummy put $ptr
  212.     set new "$buf" - "^*#"
  213.     if ! $_strop    set new ""
  214.     trim new
  215.     sedit -wnqB . tcdglb.dat set+v_winpath  "set v_winpath type str $v_winpath    #$new" substitute
  216.  
  217.     if isfile install.ini then
  218.         nullit buf
  219.         sedit -I . install.ini setup windir dummy put $ptr
  220.         set new "$buf" - "^*#"
  221.         if ! $_strop    set new ""
  222.         trim new
  223.         sedit -wnqI . install.ini setup windir "${v_winpath}\"  substitute
  224.     endif
  225.  
  226.     nullit buf
  227.     sedit -B . tcdglb.dat set+v_namcdrom    dummy put $ptr
  228.     set new "$buf" - "^*#"
  229.     if ! $_strop    set new ""
  230.     trim new
  231.     sedit -wnqB . tcdglb.dat set+v_namcdrom         "set v_namcdrom type str $v_namcdrom    #$new" substitute
  232.  
  233.     nullit buf
  234.     sedit -B . tcdglb.dat set+c_devcdrom    dummy put $ptr
  235.     set new "$buf" - "^*#"
  236.     if ! $_strop    set new ""
  237.     trim new
  238.     sedit -wnqB . tcdglb.dat set+c_devcdrom         "set c_devcdrom type str $c_devcdrom    #$new" substitute
  239.  
  240.     if issame "${v_namcdrom}" "sjcd.sys"    then
  241.         nullit buf
  242.         sedit -B . tcdglb.dat set+c_cdrport     dummy put $ptr
  243.         set new "$buf" - "^*#"
  244.         if ! $_strop    set new ""
  245.         trim new
  246.         sedit -wnqB . tcdglb.dat set+c_cdrport  "set c_cdrport type str $c_cdrport    #$new" substitute
  247.  
  248.         nullit buf
  249.         sedit -B . tcdglb.dat set+c_cdrtype     dummy put $ptr
  250.         set new "$buf" - "^*#"
  251.         if ! $_strop    set new ""
  252.         trim new
  253.         sedit -wnqB . tcdglb.dat set+c_cdrtype  "set c_cdrtype type str $c_cdrtype    #$new" substitute
  254.     endif
  255.  
  256.     nullit buf
  257.     sedit -B . tcdglb.dat set+v_qafile      dummy put $ptr
  258.     set new "$buf" - "^*#"
  259.     if ! $_strop    set new ""
  260.     trim new
  261.     sedit -wnqB . tcdglb.dat set+v_qafile   "set v_qafile type str $v_qafile    #$new" substitute
  262.  
  263.     return
  264.  
  265.  
  266. script DoInternationalStuff
  267.     local intlwindir        type str "                                                                  "
  268.     local intlwindirptr     type ptr &intlwindir
  269.     local intllanguage      type str "                                                                  "
  270.     local intllanguageptr   type ptr &intllanguage
  271.  
  272.     # do Windows stuff?
  273.     sedit -I . install.ini setup windir d put $intlwindirptr
  274.     trim intlwindir
  275.     if issame "$intlwindir" ""      return          # no Windows directory
  276.     set intlwindir "$intlwindir" - "^*="
  277.     :trimspacewindir
  278.     set intlwindir "$intlwindir" - "^\w"            if $$_strop     goto trimspacewindir
  279.  
  280.     # do International stuff?
  281.     sedit -I . install.ini setup language d locate  # is there a "[setup] language=xxx"?
  282.     if ! $errorlevel        return
  283.  
  284.     sedit -I . install.ini setup language d put $intllanguageptr
  285.     trim intllanguage
  286.     if issame "$intllanguage" ""    return          # no language specified
  287.  
  288.     set intllanguage "$intllanguage" - "^*="
  289.     :trimspace
  290.     set intllanguage "$intllanguage" - "^\w"        if $$_strop     goto trimspace
  291.  
  292.     # find CDROM setup program
  293.     set nodiskerror 1
  294.  
  295.     :findcdromdrive
  296.     local cdromdrive type str ""
  297.     if issame "$cdromdrive" ""      if isfile d:\$intllanguage\setup.exe    set cdromdrive "d:"
  298.     if issame "$cdromdrive" ""      if isfile e:\$intllanguage\setup.exe    set cdromdrive "e:"
  299.     if issame "$cdromdrive" ""      if isfile f:\$intllanguage\setup.exe    set cdromdrive "f:"
  300.     if issame "$cdromdrive" ""      if isfile g:\$intllanguage\setup.exe    set cdromdrive "g:"
  301.     if issame "$cdromdrive" ""      if isfile h:\$intllanguage\setup.exe    set cdromdrive "h:"
  302.     if issame "$cdromdrive" ""      if isfile i:\$intllanguage\setup.exe    set cdromdrive "i:"
  303.     if issame "$cdromdrive" ""      if isfile j:\$intllanguage\setup.exe    set cdromdrive "j:"
  304.     if issame "$cdromdrive" ""      if isfile k:\$intllanguage\setup.exe    set cdromdrive "k:"
  305.     if issame "$cdromdrive" ""      runmenu PutWindowsCDInDrive
  306.     if ! $errorlevel  goto findcdromdrive
  307.     if issame "$cdromdrive" ""      runmenu NoWindowsCDInDrive      return
  308.     set nodiskerror 0
  309.  
  310.     sedit -wnqI $intlwindir win.ini windows run $cdromdrive\$intllanguage\setup.exe replace
  311.     execute $comspec /c echo ${v_winpath}\win.com >> ${v_bootdrv}${v_bootdir}autoexec.bat
  312.     return
  313.  
  314. menu PutWindowsCDInDrive at -1,-1 bc wh tc bla bo do sh name " Need CD " noescape
  315.     text
  316.     text at ,-1 "Can not find the Install CD!"
  317.     text
  318.     text at ,-1 "Please make sure the Install CD is in the CDROM Drive.  This CD is"
  319.     text at ,-1 "required to continue the installation with Windows!"
  320.     text
  321.     box  at ,-1 dims 4,60 bo do sh
  322.     item at ,-1 " Whoops!  I just put the CD in the CDROM Drive! "  set "errorlevel 0"      return 1
  323.     item at ,-1 "     The Install CD is in the CDROM Drive!      "  set "errorlevel 1"      return 1
  324.     text
  325.     text
  326.  
  327. menu NoWindowsCDInDrive at -1,-1 bc re tc wh bo do sh name " Incomplete Install "
  328.     text
  329.     text at ,-1 "Can not find the Install CD!"
  330.     text 
  331.     text at ,-1 "If you are sure the Install CD is in the CDROM Drive,"
  332.     text at ,-1 "and this program can not find it, then there is "
  333.     text at ,-1 "something wrong that is beyond this program's ability"
  334.     text at ,-1 "to correct!"
  335.     text 
  336.     text at ,-1 "Please try to use your new CDROM Drive, and then run"
  337.     text at ,-1 "this program again."
  338.     text
  339.     text
  340.  
  341. include get.dat
  342. include tcdhk.dat
  343. include tcdrc.dat
  344. include tcdvo.dat
  345. include tcdi.dat
  346.