@echo off

:rexx
if "%rexlog%"=="" set rexlog=1
if "%rexlog%"=="1" goto rexlog1
:rexlog2
if "%befcm%"=="" set befcm=1

if "%1"=="Rxc" goto rxcolor%rxcolorjtl%


if "%rxcolor%"=="" set rxcolor=0':31':40m
if "%rxcolor%"=="none" goto rxcolor8
:rxcolor7
if not "%rxcolor%"=="" call c:\rexx Rxc %rxcolor%
:rxcolor8

if not "%nrexc%"=="1" echo C:%rxcolor% B:%befcm%L:%grexxjtl%-Ch/a:%rexxch%'%rexxauch%[##REX##] %1 %2 %3 %4 %5 %6 %7 %8 %9
if "%nalgvrx%"=="" set nalgvrx=2
if "%ggbsout%"=="" set ggbsout=nul
if "%echoon%"=="1" echo on
:rexxpd
:rexxpd0
if "%1"=="-" goto rexxpd7
if "%1"=="l" goto rexxpd6
if "%1"=="s" goto rexxpds
if "%1"=="r" goto rexxpdr
if "%1"=="v" goto rexxpdv
if "%1"=="Rpv" goto rexxpdx
if "%1"=="Bi" goto rexxpdb1
if "%1"=="b" goto rexxpdbk
if "%1"=="rpt" goto rexxpdrp
if "%1"=="eb" goto rexxpdeb
if "%1"=="}" goto rexxpdt1
if "%1"=="{" goto rexxpdt2
if "%1"=="run" goto rexxpdrn
if "%1"=="sb" goto rexxpdsb
if "%1"=="sr" goto rexxpdsr
if "%1"=="sa" goto rexxpdsa
if "%1"=="none" goto rxxend
if "%1"=="echo" goto rexxpdec
if "%1"=="demo" goto rexxpdem
if "%1"=="channel" goto rexxpd22
%nonnrx%%nonrx1%if "%1"=="%ehn1%'n'n%ehna2%" goto rexxpd8
if "%1"=="var" goto rexxvvvv
if "%1"=="dos" goto rexxdddd
rem -- freeze if "%1"=="Rxc" goto rxcolor%rxcolorjtl%
if "%1"==".go" goto %2

rem if "%1"=="dos" goto rexxdddd


if not "%grexxjtl%"=="" goto %grexxjtl%
goto rexxpd8
:rexxpdec
echo [%1'Rex_says]: %2 %3 %4 %5 %6 %7 %8 %9
goto rxxend
:rexxdddd
%2 %3 %4 %5 %6 %7 %8 %9
goto rxxend
:rexlog1
echo>>c:\rxlog%rxlogalt%.txt C:%rxcolor% B:%befcm%L:%grexxjtl%-Ch/a:%rexxch%'%rexxauch%[##REX##] %1 %2 %3 %4 %5 %6 %7 %8 %9
goto rexlog2
:rexxvvvv
set %2=%3
if not "%4"=="" set %2=%3 %4
if not "%5"=="" set %2=%3 %4 %5
if not "%6"=="" set %2=%3 %4 %5 %6
if not "%7"=="" set %2=%3 %4 %5 %6 %7
if not "%8"=="" set %2=%3 %4 %5 %6 %7 %8
if not "%9"=="" set %2=%3 %4 %5 %6 %7 %8 %9
goto rxxend

:rexxpd22
set rexxch=%2
goto rxxend
:rexxpdem
c:\rexx say's'qBlahblahblah'q's%2
goto errxend
[q] [fv] [s] [v] [yugo]

[.rexxdos]O~{.cr#}~ [q][rexxdos][q] [q][dosrexx][q]
|
[.dosrexx]O~{.cr#}~ [q][dosrexx][q] [q].fbrun[s]call'sc:'brexx[fv]odrxv[fv]'s'[*'y[s][q]

:rexxpdt1
copy c:\rexx\bin\rext%rexxch%.r c:\rexx\bin\rexb%2.r
goto rxxend
:rexxpdsr
type c:\rexx\bin\rext%2.r
goto ttlend
:rexxpdsb
type c:\rexx\bin\rexb%2.r
goto ttlend
:rexxpdsa
type c:\rexx\bin\%2.r
goto ttlend



:rexxpdrn
cd c:\rexx\bin
rexx16 %prexxpdrn% %2.r
cd \
goto ttlend
:rexxpdt2
copy c:\rexx\bin\rexb%2.r c:\rexx\bin\rext%rexxch%.r
goto rxxend

:rexxpdeb
cd \rexx\bin
if "%3"=="ooo" call c:\edit rexb%4.r
if "%2"=="..." goto rexxpdvv
:rexxpduu
rexx16 %rexxrptp% rexb%2.r
:rexxpdtt
cd \
cd ttlend
:rexxpdvv
rexx16 %rexxrptp% rexb%2.r
goto rexxpdtt

:rexxpdrp
cd \rexx\bin
if "%2"=="ooo" call c:\edit rext%rexxch%.r
rexx16 %rexxrptp% rext%rexxch%.r
cd \
goto rxxend
:rexxpd7
set rxxco%2=%3
goto rxxend
- rexx Bi
:rexxpdbk
:rexxpdb0
if not "%2"=="..." copy c:\rexx.bat c:\rexx%2.txt
if "%2"=="..." copy c:\rexx.bat c:\rexx.txt
if "%2"=="..." goto rexxpdb2
if "%3"=="..." goto rxxend
:rexxpdb1
binsub c:\rexx%2.txt "c:/092" "c:/092users/092tom/092"
binsub c:\rexx%2.txt "cd /092rexx/092bin" "cd c:/092users/092tom/092rexx/092bin"
binsub c:\rexx%2.txt "cd /092" "cd c:/092users/092tom/092"
binsub c:\rexx%2.txt "/0371 /0372" "%nloutrxoh3%"
binsub c:\rexx%2.txt "/0372." "/0374."
binsub c:\rexx%2.txt "]/0372[" "]/0374["

binsub c:\rexx%2.txt "/044/0373/044" "/044/0375/044"
binsub c:\rexx%2.txt "/044/0372/044" "/044/0374/044"
binsub c:\rexx%2.txt "/044/0371/044" "/044/0373/044"


goto rxxend
:erxxend
echo Error: c:\rexx.bat not where it's supposed to be [%1'%2]
goto rxxend
:rexxpdb2
c:\Rexx Bi
goto erxxend
:zuubcii
binsub c:\rexx%2.txt "c:/092" "c:/092users/092tom/092"
binsub c:\rexx%2.txt "cd /092rexx/092bin" "cd c:/092users/092tom/092rexx/092bin"
binsub c:\rexx%2.txt "cd /092" "cd c:/092users/092tom/092"
goto rxxend

:rexxpdx

if "%dbgrevpv%"=="1" echo REVPV[%2]
echo>c:\revpv.bat c:\binsub c:\rexx\bin\rext%rexxch%.r "[-v]%2[-c]" "[vv]%2[vv]"[sgt]
c:\binsub c:\revpv.bat "[vv]" "/037">%ggbsout%
c:\binsub c:\revpv.bat "[sgt]" "/062/037ggbsout/037">%ggbsout%

call c:\revpv.bat
goto rxxend

%ggbsout%

:rexxpds
echo>c:\rexsv%2.bat rem Bandit's dome expandz
echo>>c:\rexsv%2.bat set rxxco1=%rxxco1%
echo>>c:\rexsv%2.bat set rxxco2=%rxxco2%
echo>>c:\rexsv%2.bat set rxxco3=%rxxco3%
echo>>c:\rexsv%2.bat set rxxco4=%rxxco4%
echo>>c:\rexsv%2.bat set rxxco5=%rxxco5%
echo>>c:\rexsv%2.bat set rxxco6=%rxxco6%
echo>>c:\rexsv%2.bat set rxxco7=%rxxco7%
echo>>c:\rexsv%2.bat set rxxco8=%rxxco8%
echo>>c:\rexsv%2.bat set rxxco9=%rxxco9%
echo>>c:\rexsv%2.bat set rxxco0=%rxxco0%
goto rexxpd9
:rexxpdr
call c:\rexsv%2.bat
goto rexxpd9
:dosme3
copy rext%rexxch%.r c:\dosm%rexxch%.bat
%nonnrx%%nonrx4%if "%2"=="%ehn1%'n'n%ehnc2%" goto dosme5
%comspec% /c call c:\dosm%rexxch% %1 %2 %3 %4 %5 %6 %7 %8 %9>c:\rex.out
goto dosme4
:dosme5
%nonnrx%%nonrx2%if "%3"=="%ehn1%'n'n%ehnb2%" goto dosme6
echo.>c:\rex.out
:dosme6
call c:\dosm%rexxch% %1 %2 %3 %4 %5 %6 %7 %8 %9
goto dosme4
:out
if exist c:\rexx.out type c:\rexx.out
goto rxxend
:rdebug
command /c c:\rexx %3 %4 %5 %6 %7 %8 %9>c:\rexdbg.txt
goto rxxend

:ttlend
goto rxxend

:rexxpdo
cd \rexx\bin
%nonnrx%%nonrx5%if "%1"=="%ehn2%'n%ehnad1%" goto dosme3
rexx16 rext%rexxch%.r>c:\rex.out
:dosme4

if "%nout%"=="1" goto rexlog4
if "%nout%"=="2" goto rexlog3
if not "%rexlog%%rexlog2%"=="1" goto rexlog4
:rexlog3
echo>>c:\rxlog%rxlogalt%.txt ==== LAST .out:
type c:\rex.out>>c:\rxlog%rxlogalt%.txt
:rexlog4
if not "%krexxch%%krexxch1%"=="1" set rexxch=
type c:\rex.out
if not "%navrex%"=="1" goto rexxpdv
goto rexxpdd
:rexxpdv
echo rem zoot>c:\rexv.bat
type c:\rex.out>>c:\rexv.bat
c:\binsub c:\rexv.bat "/013/010" "/013/010rem ">%ggbsout%

c:\binsub c:\rexv.bat "[v]" "/013/010set rexvo=">%ggbsout%

rem ===========================
if "%dlvee%%dlvee3%"=="1" set rexxvch=%rexxch%
if "%dlvee%%dlvee1%"=="1" binsub c:\rexx\bin\rext%rexxvch%.bat "[v]" "%nloutrxve1%">%ggbsout%
if "%dlvee%%dlvee2%"=="1" binsub c:\rexx\bin\rext%rexxvch%.bat "[c]" "%nloutrxve2%">%ggbsout%
rem ===========================

c:\binsub c:\rexv.bat "[c]" "/013/010rem">%ggbsout%
c:\binsub c:\rexv.bat "[u]" "/013/010set ">%ggbsout%

c:\binsub c:\rexv.bat "[e]" "=">%ggbsout%
c:\binsub c:\rexv.bat "[n]" "%nloutnrexx%">%ggbsout%
c:\binsub c:\rexv.bat "[x]" "[">%ggbsout%
c:\binsub c:\rexx\bin\rext%rexxch%.r "[x]" "[">%ggbsout%

call c:\rexv.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
goto rexxpd9



:rexxpd6
echo ====rxxco1-9'0 for '# function use - (num) 'symboled with 's to set
echo s/r (opt.num) - save or restore this
echo v - load variable file
echo during work 'say' [v](sum) to save number to rexvo var. [c] to cut line [u] and [e] to defined env var [n]/[x] suppt'd
echo [-v]/[-c] is used in normal rexx cmd to get num from env. variable
echo 1 - %rxxco1%
echo 2 - %rxxco2%
echo 3 - %rxxco3%
echo 4 - %rxxco4%
echo 5 - %rxxco5%
echo 6 - %rxxco6%
echo 7 - %rxxco7%
echo 8 - %rxxco8%
echo 9 - %rxxco9%
echo 0 - %rxxco0%
echo rexvo:%rexvo% 'r to use rexvo Nalgvrx:[%nalgvrx%]
echo ===============================
goto rexxpd9
:bef1
type c:\rexgev.bat>c:\rexgep.bat
c:\binsub c:\rexgep.bat "[cm]" "/013/010call c:/092rexx ">%ggbsout%
if "%vjarj%"=="1" echo Jarj
c:\binsub c:\rexgep.bat "[ce]" "/013/010rem ">%ggbsout%
c:\binsub c:\rexgev.bat "[cm]" "/013/010rem ">%ggbsout%
c:\binsub c:\rexgep.bat "[s]" "/032">%ggbsout%
call c:\rexgep %1 %2 %3 %4 %5 %6 %7 %8 %9
goto bef2
:dosme1
copy rext%rexxch%.r c:\dosm%rexxch%.bat
call c:\dosm%rexxch% %1 %2 %3 %4 %5 %6 %7 %8 %9
goto dosme2
:dumplog
:dumplog0
if "%3"=="e" goto dumplog2
if "%3"=="m" goto dumplog3
if "%3"=="ma" goto dumplog4

:dumplog1
type c:\rxlog.txt
goto rxxend

if not "%rxcolor%"=="" call c:\rexx Rxc %rxcolor%

~#~

:rxc
:rxc0
if "%3"=="-" goto rxcolor4
:rxc1
echo>c:\rxcol.dat - 'e[%3
goto rxcolor1

:rxcolor
:rxcolor0
if "%2"=="-" goto rxcolor4
:rxcolor3
echo>c:\rxcol.dat - 'e[%2
:rxcolor1
binsub c:\rxcol.dat "'e" "/027">%ggbsout%
:rxcolor2
binsub c:\rxcol.dat "':" "/059"
:rxcolor4
if exist c:\rxcol.dat type c:\rxcol.dat
goto rxxendt
---

:dumplog2
call edit c:\rxlog.txt
goto rxxend
:dumplog3
type c:\rxlog.txt | more
goto rxxend
:dumplog4
more<c:\rxlog.txt
goto rxxend



:rexxpd8
cd \rexx\bin
:rexxpd1
rem rexx16
goto vvk


echo>c:\rexx\bin\rext%rexxch%.r /* filler */
:vvk
echo.>c:\rexx\bin\rext%rexxch%.r %1 %2 %3 %4 %5 %6 %7 %8 %9
:rexxpd3
if "%nalgvrx%"=="1" goto rexpdzz
rem put by call rexgev.bat
if "%nalgvrx%"=="2" goto rexpdzz

:rexpdyy
%nrejrexch%if not "%rexxch%"=="" goto zarph

echo>c:\rexgev.bat rem
type c:\rexx\bin\rext%rexxch%.r>>c:\rexgev.bat

c:\binsub c:\rexgev.bat "/013/010" "/013/010rem ">%ggbsout%

c:\binsub c:\rexgev.bat "[_v]" "/037">%ggbsout%


if "%befcm%"=="1" goto bef1
:bef2


c:\binsub c:\rexgev.bat "[-v]">%ggbsout% "/013/010call c:\rexx.bat Rpv ">%ggbsout%


if "%rexxauch%"=="1" c:\binsub c:\rexgev.bat "[cm]" "/013/010set rexxch=aut/013/010call c:/092rexx ">%ggbsout%


c:\binsub c:\rexgev.bat "[cm]" "/013/010call c:/092rexx ">%ggbsout%
c:\binsub c:\rexx\bin\rext%rexxch%.r "[cm]" "/013/010/047* ">%ggbsout% c:\binsub c:\rexgev.bat "[ce]" "/013/010rem ">%ggbsout%
%nonnrx%%nonrx3%if "%1"=="%ehn2%'n%ehnc1%" c:\binsub c:\rexx\bin\rext%rexxch%.r "[ce]" "/013/010rem ">%ggbsout%
c:\binsub c:\rexx\bin\rext%rexxch%.r "[ce]" " */047 ">%ggbsout%
c:\binsub c:\rexgev.bat "[s]" "/032">%ggbsout%
c:\binsub c:\rexgev.bat "[cv]" "/037">%ggbsout%
c:\binsub c:\rexgev.bat "[dos]" "/013/010">%ggbsout%
c:\binsub c:\rexx\bin\rext%rexxch%.r "[dos]" " /013/010*/047 ">%ggbsout%

c:\binsub c:\rexgev.bat "[ch]" "/013/010set rexxch=">%ggbsout% " %nonnrx%%nonrx7%if "%1"=="%ehn2%'n%ehnb1%" c:\binsub c:\rexx\bin\rext%rexxch%.r "[ch]" "/013/010rem ">%ggbsout%
c:\binsub c:\rexx\bin\rext%rexxch%.r "[ch]" "/013/010/047* ">%ggbsout% "


c:\binsub c:\rexgev.bat "[ca]" "/013/010set rexxch=cac/013/010rem ">%ggbsout% "
c:\binsub c:\rexx\bin\rext%rexxch%.r "[ca]" "/013/010/047* channeled */047 ">%ggbsout% "

c:\binsub c:\rexgev.bat "[-c]" "/013/010rem>%ggbsout% "
c:\binsub c:\rexgev.bat "[-x]" "[">%ggbsout%
c:\binsub c:\rexx\bin\rext%rexxch%.r "[-x]" "[">%ggbsout%


rem if "%nalgvrx%"=="1" goto rexpdzz


call c:\rexgev.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
if not "%krexxch%%krexxch3%"=="1" set rexxch=


:zarph
rem put by call rexgev.bat
if "%nalgvrx%"=="2" goto rexpdzy

:rexpdzz
cd \rexx\bin
c:\binsub rext%rexxch%.r "'1" "%rxxco1%">%ggbsout%
c:\binsub rext%rexxch%.r "'2" "%rxxco2%">%ggbsout%
c:\binsub rext%rexxch%.r "'3" "%rxxco3%">%ggbsout%
c:\binsub rext%rexxch%.r "'4" "%rxxco4%">%ggbsout%
c:\binsub rext%rexxch%.r "'5" "%rxxco5%">%ggbsout%
c:\binsub rext%rexxch%.r "'6" "%rxxco6%">%ggbsout%
c:\binsub rext%rexxch%.r "'7" "%rxxco7%">%ggbsout%
c:\binsub rext%rexxch%.r "'8" "%rxxco8%">%ggbsout%
c:\binsub rext%rexxch%.r "'9" "%rxxco9%">%ggbsout%
c:\binsub rext%rexxch%.r "'0" "%rxxco0%">%ggbsout%

rem put by echo voom
if "%nalgvrx%"=="2" goto rexpdyy
:rexpdzy

cd \rexx\bin
rem echo VOOM
c:\binsub rext%rexxch%.r "'q" "/034">%ggbsout%
c:\binsub rext%rexxch%.r "'{" "/060">%ggbsout%
c:\binsub rext%rexxch%.r "'}" "/062">%ggbsout%
c:\binsub rext%rexxch%.r "'p" "/124">%ggbsout%
c:\binsub rext%rexxch%.r "'l" "/013/010">%ggbsout%
rem c:\binsub rext%rexxch%.r "'n" "%nloutrexx%"
c:\binsub rext%rexxch%.r "'v" "/037">%ggbsout%
c:\binsub rext%rexxch%.r "'c" "/044">%ggbsout%
c:\binsub rext%rexxch%.r "'e" "=">%ggbsout%
c:\binsub rext%rexxch%.r "'s" "/032">%ggbsout%
c:\binsub rext%rexxch%.r "'f" "/047">%ggbsout%
if "%nobell%"=="1" c:\binsub rext%rexxch%.r "'#" "%nloutbell%">%ggbsout% c:\binsub rext%rexxch%.r "'#" "/007">%ggbsout%
c:\binsub rext%rexxch%.r "'b" "/092">%ggbsout%
c:\binsub rext%rexxch%.r "':" "/059">%ggbsout%
c:\binsub rext%rexxch%.r "'r" "%rexvo%">%ggbsout%


%nocutyz%%nocutyz3%c:\binsub rext%rexxch%.r "''y'y" "/047* ">%ggbsout% %nocutyz%%nocutyz1%if "%1"=="'n" c:\binsub rext%rexxch%.r "'y" "/013/010rem ">%ggbsout%

%nocutyz%%nocutyz2%c:\binsub rext%rexxch%.r "'y" "/047* */047">%ggbsout%


c:\binsub rext%rexxch%.r "'n" "%nloutrexx%">%ggbsout%
c:\binsub rext%rexxch%.r "'x" "'">%ggbsout%

:rexxpd4
if not "%oorex%"=="1" goto rexxpdo

%nonnrx%%nonrx6%if "%1"=="%ehn2%'n%ehne1%" goto dosme1

rexx16 rext%rexxch%.r
:dosme2
if not "%krexxch%%krexxch2%"=="1" set rexxch=
:rexxpdd
:rexxpd5
cd \
:rexxpd9
:rxxend
%noceedbrx%cd \
:rxxendf
:rxxendt

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)