home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Today (UK) 6
/
CDRT6.iso
/
pc
/
install1.scr
< prev
next >
Wrap
Text File
|
1994-08-19
|
2KB
|
73 lines
indestdir
set _text insteng.txl
err_handler %_text%\errhand.txt
getOpt -T
if %_err% eq 0
set _option "-T"
endif
rem determine which menu item to highlight
set _next 0
getOpt -N:
if %_err% eq 0
set _next %_1%
endif
:loop
textbox 1 1 80 25 blue
color back blue
type %_text%\cpyrght.txt 11 22 60 4
color back cyan
type %_text%\install.txt 3 2 77 4 -border
menu %_text%\shell.mnu 20 10 40 7 %_text%\shell.tit %_text%\updown.leg -default %_next%
set _product "%_2%"
switch %_1%
case escape:
textbox 1 1 80 25 black
case quit:
textbox 1 1 80 25 black
case readme:
set _next "%_3%"
goto doc_top
case default:
rem --------- Check for windows and warn if present ---------
rem getenv's argument is case sensitive; usually always uppercase,
rem but windir is lowercase. That way you can't set it from commandline!
getenv windir
if "%_1%" ne ""
rem by golly they're in windows;
textbox 1 1 80 25 blue
color back blue
beep 1
type %_text%\nowin.txt 10 11 60 7
rem Don't let them install from within windows.
waitkey_noesc
goto loop
endif
chain -curoff %_product%\install %_option% -N %_3%
endswitch
rem exit with status 99 to signal batch file to not rerun us.
quit 99
rem
rem readme menu
:doc_top
set _line 0
:doc_loop
set _doctext %_product%\doceng.txl
textbox 1 1 80 25 blue
color back blue
type %_doctext%\readme0.txt 5 19 70 7
color back cyan
menu %_doctext%\readme.mnu 15 3 50 15 %_doctext%\readme.tit %_doctext%\updown.leg -default %_line%
set _choice "%_1%"
switch %_choice%
case default:
textbox 1 1 80 25 black
spawn %_product%\more.com %_product%\doc\readme%_choice%.txt
type %_doctext%\anykey.txt 1 25 80 1
waitkey_noesc
set _line %_choice%
goto doc_loop
case escape:
case quit:
endswitch
goto loop