CydandClaude Fable 5
db7745fcd0
Un-ignored: the dev drive is the ground truth the restoration and emulator work constantly reference (DPL3/LIBDPL + VRENDER i860 renderer source, BT/RP live+dev game trees, VGL_LABS pod boot, scene/audio content). Kept in-repo for the pod-owner community. Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
108 lines
2.5 KiB
Batchfile
108 lines
2.5 KiB
Batchfile
@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
|
|
|