home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (UK) 6 / CDRT6.iso / pc / install1.scr < prev    next >
Encoding:
Text File  |  1994-08-19  |  2.0 KB  |  73 lines
  1. indestdir
  2. set _text insteng.txl
  3. err_handler %_text%\errhand.txt
  4. getOpt -T
  5. if %_err% eq 0
  6.     set _option "-T"
  7. endif
  8. rem determine which menu item to highlight
  9. set _next 0
  10. getOpt -N:
  11. if %_err% eq 0
  12.     set _next %_1%
  13. endif
  14. :loop
  15. textbox 1 1 80 25 blue
  16. color back blue
  17. type %_text%\cpyrght.txt 11 22 60 4
  18. color back cyan
  19. type %_text%\install.txt 3 2 77 4 -border
  20. menu %_text%\shell.mnu 20 10 40 7 %_text%\shell.tit %_text%\updown.leg -default %_next%
  21. set _product "%_2%"
  22. switch %_1%
  23. case escape:
  24.         textbox 1 1 80 25 black
  25. case quit:
  26.         textbox 1 1 80 25 black
  27. case readme:
  28.         set _next "%_3%"
  29.         goto doc_top
  30. case default:
  31.         rem --------- Check for windows and warn if present ---------
  32.         rem getenv's argument is case sensitive; usually always uppercase,
  33.         rem but windir is lowercase.  That way you can't set it from commandline!
  34.         getenv windir
  35.         if "%_1%" ne ""
  36.                 rem by golly they're in windows;
  37.                 textbox 1 1 80 25 blue
  38.                 color back blue
  39.                 beep 1
  40.                 type %_text%\nowin.txt 10 11 60 7
  41.                 rem Don't let them install from within windows.
  42.                 waitkey_noesc
  43.                 goto loop
  44.         endif
  45.         chain  -curoff %_product%\install %_option% -N %_3%
  46. endswitch
  47. rem exit with status 99 to signal batch file to not rerun us.
  48. quit 99
  49. rem 
  50. rem readme menu
  51. :doc_top
  52. set _line 0
  53. :doc_loop
  54. set _doctext %_product%\doceng.txl
  55. textbox 1 1 80 25 blue
  56. color back blue
  57. type %_doctext%\readme0.txt 5 19 70 7
  58. color back cyan
  59. menu %_doctext%\readme.mnu 15 3 50 15 %_doctext%\readme.tit %_doctext%\updown.leg -default %_line%
  60. set _choice "%_1%"
  61. switch %_choice%
  62. case default:
  63.         textbox 1 1 80 25 black
  64.         spawn %_product%\more.com %_product%\doc\readme%_choice%.txt
  65.         type %_doctext%\anykey.txt 1 25 80 1
  66.         waitkey_noesc
  67.         set _line %_choice%
  68.         goto doc_loop
  69. case escape:
  70. case quit:
  71. endswitch
  72. goto loop
  73.