By registering with us, you'll be able to discuss, share and private message with other members of our community.
SignUp Now!@echo off
call %@path[%comspec]..\DAT\JPStart.BTM
@echo off
REM Abort if transient
if %_transient EQ 1 goto end
REM Set paths for JPSoft and root folders
set /e JPPath=%@full[%@path[%_cmdspec]..\]
set /e RootPath=%@full[%JPPath\..\]
REM Log start of TCC
if not direxist %JPPath\Log md %JPPath\Log
echo %_date %_time PID:%@format[5,%_pid]-Start(1) SHRALIAS:%_shralias Ver:%_4ver.%_build Title:%_wintitle) >> %JPPath\Log\tcc.log
color bright green on black
REM If shalias not loaded, load it now along with aliases and functions
iff %_shralias eq 0 then
shralias
alias /R %JPPath\DAT\alias.dat
iff %_cmdproc NE TCCLE then
function /R %JPPath\DAT\function.dat
endiff
endiff
prompt $+$P$G%%@if[%%@len[%%_cwd] GT 25,$_,``]
@echo off
iff "%_transient" == "0" then
CHCP 1252
REM CHCP 65001
function substituted=`%@if["%@left[3,%@truename[%1\]]"=="%1\",0,1]`
unsetarray /Q COLORES_DE_DISCOS
setarray COLORES_DE_DISCOS[26]
call %HOMEDRIVE%%HOMEPATH%\TCMD\colores_de_discos_para_%_host.btm
function colorDeDisco=`%@if["%@substituted[%1]"=="1",36;2,%COLORES_DE_DISCOS[%@eval[%@ascii[%@instr[0,1,%1]]-65]]]`
REM if "%_DOS" == "WINXP" ALTENTER /D
set PATH=%PATH%;C:\LDC
alias /R "%HOMEDRIVE%%HOMEPATH%\TCMD\alias.txt"
REM history /R "%HOMEDRIVE%%HOMEPATH%\TCMD\historia.txt"
set ncmd=0
alias post_exec=`set ncmd=%@inc[%ncmd] & title %ncmd`
set TCMD_OFICIAL=21.0
prompt `%@exec[@pwd]`$e[37;1m$d$s$t$e[0m$s%_dos%:%_dosver%.%_osbuild%$s%_cmdproc%:$e[`%@if["%_version" eq "%TCMD_OFICIAL",37,33;41];1m`%_4ver%.%_build%$e[0m$s$e[36;2m$u@%%_ip%%$e[0m$s%_pid%$s$e[33;2m$z$e[31;1m$+$e[0m$_{%%ncmd}$s$e[36;2m%_host%$e[0m$s$e[32;1m$r$e[0m%@if["%_elevated" eq "1",$s$e[43;5;30;2mELEVATED$e[0m,]$s$P$g
echo I am ready, Master.
echo.
endiff
pwd=for %A in (%_ready) do ( echo ^e[%@colorDeDisco[%A]m%@format[-12,%@label[%A]] %@if["%@substituted[%A]"=="1",*, ]%@cwds[%A]^e[0m )