home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April (Special) / Chip-Special_1997-04_cd.bin / mediavis / xdiag / mvdxdiag.exe / TCDHK.DAT < prev    next >
Text File  |  1995-03-10  |  3KB  |  99 lines
  1. include tcdglb.dat
  2.  
  3. menu TESTCDHelp dims 25,80 bc bla tc wh bo do na " Media Vision Diagnostics Help "
  4.     runscript loadTESTCDHelp
  5.     display at ,2 dims 20,70 textTESTCDHelp
  6.     item at 23,1 " Press ENTER to Return To Main Program " set "textTESTCDHelp" return 1
  7.     item "" Return 1
  8. script loadTESTCDHelp
  9.     if isfile tcd.hlp then
  10.         set textTESTCDHelp type str `file tcd.hlp
  11.     else
  12.         set textTESTCDHelp type str "Sorry: missing testcd.hlp, can not provide help."
  13.     endif
  14.     return
  15.  
  16. menu TESTCDAbout dims 25,80 bc bla tc wh bo do na " About Media Vision Diagnostics "
  17.     runscript loadTESTCDAbout
  18.     display at ,2 dims 20,70 textTESTCDAbout
  19.     item at 23,1 " Press ENTER to Return To Main Program " set "textTESTCDHelp" return 1
  20.     item "" Return 1
  21. script loadTESTCDAbout
  22.     if isfile tcd.hlp then
  23.         set textTESTCDAbout type str `file tcd.abt
  24.     else
  25.         set textTESTCDAbout type str "Sorry: missing testcd.abt, can not provide help."
  26.     endif
  27.     return
  28.  
  29. menu TESTCDExit 
  30.     item "" return 2
  31.  
  32. menu TESTCDReset dims 25,80 bc bla tc wh bo do na " Reset "
  33.     set var_CDROMReady "Unknown"
  34.     text at 2,2
  35.     text "CDRESET program:"
  36.     text "CDPLAY program:"
  37.     text "CDSTOP program:"
  38.     text "CDPAUSE program:"
  39.     text "CDRESUME program:"
  40.     text
  41.     text "CDROM CONFIG.SYS driver:"
  42.     text "CDROM AUTOEXEC.BAT driver:"
  43.     text "CDROM Drive Letter:"
  44.     text
  45.     text "CDROM Config Device 1 Name: "
  46.     text
  47.     text "CDROM Autoexec Device 1 Name: "
  48. ###    text "CDROM Autoexec Device 2 Name: "
  49. ###    text "CDROM Autoexec Device 3 Name: "
  50. ###    text "CDROM Autoexec Device 4 Name: "
  51.     
  52.     text at 2,34
  53.     item $prg_CDRESET  dims 1,13 onkey script "getFILNAME prg_CDRESET"
  54.     item $prg_CDPLAY   dims 1,13 onkey script "getFILNAME prg_CDPLAY "
  55.     item $prg_CDSTOP   dims 1,13 onkey script "getFILNAME prg_CDSTOP "
  56.     item $prg_CDPAUSE  dims 1,13 onkey script "getFILNAME prg_CDPAUSE"
  57.     item $prg_CDRESUME dims 1,13 onkey script "getFILNAME prg_CDRESUME"
  58.     text
  59.     item $v_namcdrom    dims 1,13 onkey script "getFILNAME v_namcdrom"
  60.     item $v_mscdex        dims 1,13 onkey script "getFILNAME v_mscdex"
  61.     item $nam_LETTERCDROM dims 1,2  onkey script "getDLETTER nam_LETTERCDROM"
  62.     text
  63.     item $v_namcdromd1 dims 1,8  onkey script "getDEVNAME v_namcdromd1"
  64.     text
  65.     item $nam_AUTOEXcddev1 dims 1,8  onkey script "getDEVNAME nam_AUTOEXcddev1"
  66.     item $nam_AUTOEXcddev2 dims 1,8  onkey script "getDEVNAME nam_AUTOEXcddev2"
  67.     item $nam_AUTOEXcddev3 dims 1,8  onkey script "getDEVNAME nam_AUTOEXcddev3"
  68.     item $nam_AUTOEXcddev4 dims 1,8  onkey script "getDEVNAME nam_AUTOEXcddev4"
  69.  
  70.     item at 9,45 $opt_CONFIGCDROMslashe dims 1,2 set "SLASHCHAR type str /E" script "togSLASHCHAR opt_CONFIGCDROMslashe"
  71.  
  72. script getFILNAME
  73.     set x1 type str ""
  74.     getstring x1 length 12 wordonly
  75.     return $x1 unset x1
  76. script getDEVNAME
  77.     set x2 type str ""
  78.     getstring x2 length 8 wordonly
  79.     return $x2 unset x2
  80. script getDLETTER
  81.     set x3 type str ""
  82.     getstring x3 length 1 wordonly
  83.     set x3 "${x3}" + ":"
  84.     return $x3 unset x3
  85. script togSLASHCHAR
  86.     set togslashchar 0
  87.     runmenu togSLASHCHAR
  88.     if isequal $togslashchar 0 return ""
  89.     if isequal $togslashchar 1 return $SLASHCHAR
  90.     return
  91.  
  92. menu togSLASHCHAR at -1,-1 
  93.     text
  94.     text
  95.     item at ,-1 " Add $SLASHCHAR "             set "togslashchar 1" return 1
  96.     item at ,-1 " Do not include $SLASHCHAR "    set "togslashchar 0" return 1
  97.     text
  98.     text
  99.