home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / ovladace / xdiag / mvdxdiag.exe / DIAG.DAT < prev    next >
Encoding:
Text File  |  1995-03-10  |  3.5 KB  |  107 lines
  1. set v_bootdrv "C:"
  2. set v_bootdir "\"
  3. set v_qafile  "SCANDOS.TXT"
  4.  
  5. set fun_diagsecs type long $secs 
  6. set fun_diagdlg type str ""
  7.  
  8. menu MAIN at 0,0 dims 25,80 bc blue tc whi bo no na " Media Vision Diagnostics Program "
  9.     runscript ReadINSTALLINIFILE
  10.     text at ,2 "MV DIAG"
  11.     box  at ,2 dims 0,7 bo do
  12.     text 
  13.     text "Use this program to diagnose troubles with the configuration of "
  14.     text "the Media Vision sound card with your system."
  15.  
  16.     box at 10,-1 dims 11,36 bo do sh
  17.     item at ,-1      dims 1,32 " Quick Config "         menu QCFG
  18.     item at ,-1      dims 1,32 " Quick Config CDROM "     menu TESTCD
  19.     box at ,-1 dims 0,32 border single
  20.     item at ,-1      dims 1,32 " Look at ${v_bootdrv}${v_bootdir}CONFIG.SYS "       execute "pg ${v_bootdrv}${v_bootdir}config.sys"
  21.     item at ,-1      dims 1,32 " Look at ${v_bootdrv}${v_bootdir}AUTOEXEC.BAT "     execute "pg ${v_bootdrv}${v_bootdir}autoexec.bat"
  22.     item at ,-1      dims 1,32 " Look at $v_winpath\SYSTEM.INI "             execute "pg $v_winpath\system.ini"
  23.     item at ,-1       dims 1,32 " More Interesting Information "            script MoreInterestingInformation
  24.     box at ,-1 dims 0,32 border single
  25.     item at ,-1      dims 1,32 " Return To DOS " return 1
  26.  
  27.     hotkey F1 DIAGHelp
  28.     hotkey F2 DIAGAbout
  29.     hotkey F3 DIAGExit
  30.  
  31.     box at 22,0 dims 3,80 border single
  32.     item script diagfun everytime 
  33.  
  34. include qcfg.dat
  35. include tcd.dat
  36.  
  37.  
  38. script diagfun
  39.     local cursecs type long $secs
  40.     if isless $cursecs $fun_diagsecs return
  41.  
  42.     set fun_diagdlg "$fun_diagdlg" - "*\n"
  43.     if ! $_strop            then
  44.         display " " at 23,2 dims 1,77    background blue textcolor white
  45.         set fun_diagdlg    type str `file diag.dlg
  46.         if $fun_diagsecs display fun_diagdlg at 23,2 dims 1,77    background blue textcolor white
  47.         set fun_diagsecs $cursecs + 4
  48.     else
  49.         set fun_diagsecs $cursecs + 4
  50.         display fun_diagdlg at 23,2 dims 1,77    background blue textcolor white
  51.     endif
  52.     return
  53.  
  54.  
  55.  
  56. script MoreInterestingInformation 
  57.     if not isfile $v_qafile        runmenu RunQuickConfigFirst return
  58.  
  59.     set x4 type str `file $v_qafile
  60.     set x4 "$x4" - "*Interrupt Assignments" - "Hardware Configuration*$$"
  61.     set x4 "Interrupt Assignments  ${x4}"
  62.     display x4 at 1,1 dims 18,22 background white textcolor black
  63.  
  64.     set x4 type str `file $v_qafile
  65.     set x4 "$x4" - "*DMA Channel Usage" - "Interrupt Assignments*$$"
  66.     set x4 "DMA Channel Usage ${x4}"
  67.     display x4 at 1,28 dims 9,26 background white textcolor black
  68.     return
  69.  
  70. menu RunQuickConfigFirst at -1,-1 bc re tc wh bo do sh name " Whoops! "
  71.     text " Run 'Quick Config' first, in order to analyze the system."
  72.     text
  73.     text " This creates the 'XXXXXXXX.XXX' file, which is not found."
  74.     display v_qafile at 3,21 using "%-12s"
  75.  
  76.  
  77.  
  78. menu DIAGHelp dims 25,80 bc bla tc wh bo do na " Media Vision Diagnostics Help "
  79.     runscript loadDIAGHelp
  80.     display at ,2 dims 20,70 textDIAGHelp
  81.     item at 23,1 " Press ENTER to Return To Main Program " set "textDIAGHelp" return 1
  82.     item "" Return 1
  83. script loadDIAGHelp
  84.     if isfile DIAG.hlp then
  85.         set textDIAGHelp type str `file DIAG.HLP
  86.     else
  87.         set textDIAGHelp type str "Sorry: missing DIAG.HLP, can not provide help."
  88.     endif
  89.     return
  90.  
  91. menu DIAGAbout dims 25,80 bc bla tc wh bo do na " About Media Vision Diagnostics "
  92.     runscript loadDIAGAbout
  93.     display at ,2 dims 20,70 textDIAGAbout
  94.     item at 23,1 " Press ENTER to Return To Main Program " set "textDIAGHelp" return 1
  95.     item "" Return 1
  96. script loadDIAGAbout
  97.     if isfile DIAG.hlp then
  98.         set textDIAGAbout type str `file DIAG.ABT
  99.     else
  100.         set textDIAGAbout type str "Sorry: missing DIAG.ABT, can not provide help."
  101.     endif
  102.     return
  103.  
  104. menu DIAGExit 
  105.     item "" return 2
  106.  
  107.