Compressed2TXT and WinXP about compressed2txt HOT 4 OPEN

:_Decode
REM 	There's a documented powershell bug that changes font of cmd window to raster/grid font.
REM 	It seems to depend on the codepage setting and predefined font for cmd.exe in the registry [partic. Consolas].
REM	So, run it in a separate process if cp UTF8 is selected.
REM     https://github.com/microsoft/terminal/issues/367
	SETLOCAL
	FOR /F "tokens=2 delims=:." %%a IN ('CHCP') DO (SET /A _tmpCP=%%a)
REM     This variable replaces the path in the decode section - here in :bat2file:[sed_exe - maybe left out
	SET "0=%_HERE%\%~nx0"
	SET _Cmd=POWERSHELL -nop -c "$f=[IO.File]::ReadAllText($env:0)-split':bat2file\:.*';iex($f[1]); X 1"

	IF "%_tmpCP%"=="65001" (START /WAIT /MIN CMD /C %_CMD%) ELSE (%_cmd% >NUL)
	ENDLOCAL & EXIT /B
EXIT /B
GOTO :EOF

:bat2file: Compressed2TXT v6.1
$k='.,;{-}[+](/)_|^=?O123456789ABCDeFGHyIdJKLMoN0PQRSTYUWXVZabcfghijklmnpqrstuvwxz!@#$&~E<*`%\>'; Add-Type -Ty @'
using System.IO; public class BAT91 {public static void Dec (ref string[] f, int x, string fo, string key) { unchecked {
byte[] b91=new byte[256]; int n=0,c=255,v=91,q=0,z=f[x].Length; while (c>0) b91[c--]=91; while(c<91) b91[key[c]]=(byte)c++;
using (FileStream o=new FileStream(fo,FileMode.Create)) { for (int i=0; i != z; i++) { c=b91[ f[x][i] ]; if (c == 91) continue;
if (v == 91) {v = c;} else {v += c * 91; q |= v << n; if ((v & 8191) > 88) {n += 13;} else {n += 14;} v = 91;
do {o.WriteByte((byte)q); q >>= 8; n -= 8;} while (n>7);} } if (v != 91) o.WriteByte((byte)(q | v << n)); } }}}
'@; cd -lit (Split-Path $env:0); function X([int]$x=1) {[BAT91]::Dec([ref]$f,$x+1,$x,$k); expand -R $x -F:* .; del $x -force}

:bat2file:[ sed_exe
... ... ...