home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / ovladace / xdiag / mvdxdiag.exe / TCDVO.DAT < prev    next >
Encoding:
Text File  |  1995-03-10  |  6.1 KB  |  209 lines
  1. include tcdglb.dat
  2.  
  3. # menu VerifyCDROMOperation"${var_CDROMReady}" - 
  4. # use $var_CDROMReady in {"Unknown", "Unavailable", "" }
  5.  
  6. menu VerifyCDROMOperation dims 25,80 bc bla tc wh bo do na " Verify CDROM Operation "
  7.     text "This action will attempt to verify the operation of your CDROM subsystem."
  8.     text
  9.     text "You should have a CD (AUDIO OR DATA) in the CDROM Drive at this time. If"
  10.     text "you do not already have a CD in the drive, please make it so, now."
  11.     text
  12.     text "If it is an AUDIO CD, the program will first RESET the CDROM Drive, then"
  13.     text "PLAY, PAUSE, RESUME, and STOP the Audio playback."
  14.     text
  15.     text "If it is a DATA CD, the program will display the directory listing."
  16.     text
  17.     text "Any failure in these operations will terminate the test.  Press any key to"
  18.     text "terminate the test early."
  19.     text
  20.     text "If this test fails, you should use 'Read CDROM Configuration' from the Main"
  21.     text "Screen to determine the reason for such."
  22.     text
  23.     text "Select 'Test Audio or Data' when ready."
  24.     text
  25.     box at ,-1 dims 5,40 bc bla tc wh bo do  
  26.     item at ,-1 " Test Audio or Data " menu TestCDROMOperation
  27.     item at ,-1 " Audio CD Information " menu AudioCDInformation
  28.     item at ,-1 " Return To Previous Menu " return 1
  29.  
  30. menu VerifyCDROMOperationUnknown at -1,-1 bc red tc wh na " Whoops! "
  31.     text
  32.     text "Please run 'Read CDROM Configuration' first!"
  33.     text
  34.     
  35. menu VerifyCDROMOperationUnavailable at -1,-1 bc red tc btwh na " Sorry! "
  36.     text
  37.     text "The CDROM Drivers are not completely loaded.!"
  38.     text
  39.     
  40. menu TestCDROMOperation at 0,0 dims 25,80 bc bla tc wh bo do na " Test CDROM Operation "
  41.     item "" script TestCDROMOperation 
  42.  
  43. script TestCDROMOperation
  44.     local t 0
  45.     set status type int 0
  46.     set doVerifyCDROMOperation type int 1
  47.     set nodiskerror 1
  48.  
  49.     :discputin
  50.     if $doVerifyCDROMOperation == 0        goto break
  51.     display "Reset CDROM" at 4,5 bc bla tc wh 
  52.     cursorat 4,30
  53.     execute -eo $prg_CDRESET
  54.     set status $errorlevel 
  55.     if isequal $status  2     runmenu PutinCDROMDisc
  56.     if isequal $status  2     goto discputin
  57.     set status $status + $errorlevel
  58.  
  59.         display "Please Wait. Testing CDROM..." at 2,5 bc bla tc gr
  60.  
  61.     runscript doevalCDROMAction 
  62.  
  63.     display "Play CDROM" at 5,5 bc bla tc wh
  64.     cursorat 5,30
  65.     execute -eo $prg_CDPLAY
  66. ##AS
  67.         if iskey flushkeys
  68.  
  69.     set status $errorlevel
  70.  
  71.     if not isequal $status 0        then
  72.      display "Not an Audio CD" at 5,25 bc bla tc wh 
  73.      goto datadisc
  74.     endif
  75.  
  76.     set status $status + $errorlevel
  77.     runscript doevalCDROMAction 
  78.  
  79.     set t $tics + 91
  80.  
  81.         :wait1 
  82. ##AS        if iskey goto break
  83.  
  84.         if $tics < $t goto wait1
  85.  
  86.     display "Pause CDROM" at 6,5 bc bla tc wh
  87.     cursorat 6,30
  88.     execute -eo $prg_CDPAUSE
  89.     set status $status + $errorlevel
  90.     runscript doevalCDROMAction 
  91.  
  92.     set t $tics + 91
  93.     :wait2 
  94. ##AS    if iskey goto break
  95.     if $tics < $t goto wait2
  96.  
  97.     display "Resume CDROM" at 7,5 bc bla tc wh
  98.     cursorat 7,30
  99.     execute -eo $prg_CDRESUME
  100.     set status $status + $errorlevel
  101.     runscript doevalCDROMAction 
  102.  
  103.     set t $tics + 91
  104.     :wait3 
  105. ##AS    if iskey goto break
  106.     if $tics < $t goto wait3
  107.  
  108.     display "Stop CDROM" at 8,5 bc bla tc wh
  109.     cursorat 8,30
  110.     execute -eo $prg_CDSTOP
  111.     set status $status + $errorlevel
  112.     runscript doevalCDROMAction 
  113.     goto return
  114.  
  115.     :datadisc
  116.     display "Data CDROM" at 4,45 bc bla tc wh
  117.     execute -eo $prg_CDDRIVE
  118.     set status $errorlevel
  119.     if isequal $status 0            goto unknowndisc
  120.     if isequal $status 3            set nam_LETTERCDROM "d:"
  121.     if isequal $status 4            set nam_LETTERCDROM "e:"
  122.     if isequal $status 5            set nam_LETTERCDROM "f:"
  123.     if isequal $status 6            set nam_LETTERCDROM "g:"
  124.     if isequal $status 7            set nam_LETTERCDROM "h:"
  125.     if isequal $status 8            set nam_LETTERCDROM "i:"
  126.     if isequal $status 9            set nam_LETTERCDROM "j:"
  127.     if isequal $status 10            set nam_LETTERCDROM "k:"
  128.     if isgreater $status 10            goto toomanydrives
  129.  
  130.     set status 0
  131.     if isdir ${nam_LETTERCDROM}\         runmenu DIRCDROM
  132.     goto return
  133.  
  134.     :break
  135.     :return
  136.  
  137. ##AS    if iskey getchar x
  138. ##AS
  139.         if iskey flushkeys
  140.  
  141.     if isequal $status 0    then
  142.         runmenu VerifyCDROMSuccess
  143.     else
  144.         runmenu VerifyCDROMFailed
  145.     endif
  146.  
  147.     set nodiskerror 0
  148.     return
  149.  
  150. menu DIRCDROM at 0,0 dims 25,80 bc bla tc wh bo no
  151.     item at 0,0 script DIRCDROM
  152.     
  153. script DIRCDROM
  154.         
  155.     execute %comspec% /c tree ${nam_LETTERCDROM}\ 
  156.  
  157.         if iskey flushkeys
  158.  
  159.         :askagain
  160.         display "Press any key to Continue..." at 24,0 bc bla tc wh 
  161. ##AS    getchar
  162.         if iskey return
  163.         goto askagain
  164. ##AS    return
  165.  
  166. menu VerifyCDROMSuccess at -1,-1 bc wh tc bla bo do sh na " Success! "
  167.     text "The CDROM Operation was Successful."
  168.  
  169. menu VerifyCDROMFailed at -1,-1 bc re tc wh bo do sh na " Failure! "
  170.     text "The CDROM Operation Failed."
  171.  
  172.  
  173. menu AudioCDInformation at 0,0 dims 25,80 bc bla tc wh na " Audio CD Information "
  174.     text
  175.     text "This program uses several EXTERNAL programs to control your CDROM Drive."
  176.     text
  177.     text "CDRESET.EXE  - reset the CDROM drives."
  178.     text "CDPLAY.EXE   - begin Audio Playback ."
  179.     text "CDPAUSE.EXE  - pause Audio Playback."
  180.     text "CDRESUME.EXE - resume paused Audio Playback."
  181.     text "CDSTOP.EXE   - stop Audio Playback"
  182.     text
  183.     text "These DOS Command Line Utilities require the presence of the MSCDEX "
  184.     text "interface."
  185.     text
  186.     text "The programs optionally require a first 'argument', specifying the 'Drive #'"
  187.     text "to control;  this is a number, like 4, which depends on the drive letter"
  188.     text "assigned to the drive (A=0, B=1, C=2, D=3, E=4, etc.).  The default is to"
  189.     text "control the 'first CDROM drive found'."
  190.     text
  191.     text "Use the CDRESET program to learn this 'Drive #', as it is displayed as:"
  192.     text 
  193.     text "          C:> cdreset"
  194.     text "          reset drive: 4 = 100"
  195.     text
  196.     text "The number following 'drive:' is the Drive #;  the '100' indicates Success."
  197.     text
  198.  
  199. menu PutInCDROMDisc at -1,-1 bc wh tc bla bo do sh na " Whoops! "
  200.     text
  201.     text "You have to put a Disc into the CDROM Drive in order to"
  202.     text "verify its operation!"
  203.     text
  204.     item at ,-1 " Okay, I just put a Disc In! "         return 1
  205.     item at ,-1 " Never mind, let's just skip it! "      return 1 set "doVerifyCDROMOperation 0" 
  206.     text
  207. include tcda.dat
  208.  
  209.