@echo off

rem ** TOOLS.BAT **
rem ** DIVISION flavour
rem ** Wed 3rd Oct 90

cls
be window 0,0,24,79 bright yellow on red explode
be window 4,11,20,68 bright yellow on blue explode shadow
be rowcol 7,20 "DIVISION Tool environment facilitator" bright yellow
be rowcol 9,24  "1  = D705B and Turbo C" bright yellow
be rowcol 10,24 "2  = Tenset TCP/IP" bright yellow
be rowcol 11,24 "3  = TC2v1 3L Parallel C" bright yellow
be rowcol 12,24 "4  = TF2V0 3L Parallel FORTRAN" bright yellow
be rowcol 13,24 "5  = TCOFF C Toolset" bright yellow
be rowcol 14,24 "6  = TCOFF Occam Toolset " bright yellow
be rowcol 15,24 "7  = Lotus" bright yellow
be rowcol 16,24 "8  = PRODUCT TCOFF C Toolset" bright yellow
be rowcol 17,24 "9 = Continue" bright yellow

:wot
be rowcol 18,40 ""
be ask "" 123456789
IF errorlevel 9 goto quit
IF errorlevel 8 goto prodoff
IF errorlevel 7 goto lotus
IF errorlevel 6 goto ioctools
IF errorlevel 5 goto tcoffB
IF errorlevel 4 goto tf2v0
IF errorlevel 3 goto tc2v1
IF errorlevel 2 goto tenset
IF errorlevel 1 goto d705b
goto quit

:lotus
be rowcol 15,20 "*"
PATH=%PATH%;s:\bin\123
goto wot

:d705b
be rowcol 9,20 "*"
PATH=%PATH%;s:\bin\itools\tools;s:\bin\tc
set isearch=s:\bin\itools\libs\;s:\bin\itools\interf\
set iboardsize=#200000
set iterm=s:\bin\itools\iterms\ibmpc.itm
set transputer=150
goto wot

:tc2v1
be rowcol 11,20 "*"
PATH=%PATH%;u:\tc2v1
goto wot

:tf2v0
be rowcol 12,20 "*"
PATH=%PATH%;u:\tf2v0
goto wot

:tenset
be rowcol 10,20 "*"
PATH=%PATH%;u:\tcpip\tenset
set resources=u:\tcpip\tenset\tenset
set hosts=u:\tcpip\tenset
goto wot

:prodoff
be rowcol 16,20 "*"
PATH=%PATH%;u:\ictools\itools
set iserver=u:\ictools\iserver\iserver.exe
set isearch=u:\ictools\libs\
set iterm=u:\ictools\iterms\pcbansi.itm
set iboardsize=#200000
set idebugsize=#200000
set transputer=150
goto wot


:tcoffB
be rowcol 13,20 "*"
PATH=%PATH%;s:\bin\ictools\itools;s:\bin\tc
set isearch=s:\bin\ictools\libs\
set iterm=s:\bin\ictools\iterms\pcbansi.itm
set iboardsize=#200000
set idebugsize=#200000
set transputer=150
goto wot



:ioctools
be rowcol 14,20 "*"
PATH=%PATH%;u:\ioctools\itools
set isearch=u:\ioctools\libs\
set iterm=u:\ioctools\iterms\pcbansi.itm
set iserver=u:\ioctools\iserver\iserver.exe
set iboardsize=#200000
set idebugsize=#200000
set transputer=150
goto wot

:quit
cls
be window 1,0,9,79 bright yellow on red explode
be window 4,11,6,68 bright yellow on blue explode shadow
be rowcol 5,27 "Your current environments : " bright yellow
be rowcol 10,0 ""
set