@echo off

:rexx
if "%echoon%"=="1" echo on
:afekkon
%igzpath%if not "%zpath%"=="" goto zeep


@rem [.batman]O~{.cr#}~[X-0] [mq][batman][mq] [mq][deh]batman[-s][mq]
@rem [.caldera]O~{.cr#}~ [mq][caldera][mq] [mq][hexf]caldera.wad[wp]02's[-s][mq]
@rem [.eternal]O~{.cr#}~ [mq][eternal][mq] [mq][doom]eternall[-s][mq]
@rem [.school]O~{.cr#}~[X-0] [mq][school][mq] [mq][doom]schoold2[-s][mq]
@rem l
@rem l
@rem [.doom]O~{.cr#}~ [mq][doom][mq] [mq]'n[-s]cd's'bdoomiido'lboom's'[*'lcd's'b'y[-s][mq]
@rem [.deh]O~{.cr#}~[X-0] [mq][deh][mq] [mq]'n[-s]cd's'bdoomiido'lboom's-file's'[3.wad[mv]deho[mv]'s[nodeh]-deh's'[3.deh's'[!'lcd's'b'y[-s][mq]
|
@rem [.nodeh]X~{.cr#}~ [mq][nodeh]-deh[mq] [mq]'[!'hh'y[mq]
@rem [.yesdeh]O~{.cr#}~ [mq][nodeh]-deh[mq] [mq][mv]nloutndeh[mv][mq]

@rem [.hexf]O~{.cr#}~ [mq][hexf][mq] [mq]'n[-s]'hh'nhexen'lhexen's-file's'[*'hh'y[-s][mq]
@rem [.wp]O~{.cr#}~ [mq][wp][mq] [mq]'s-warp's[mq]


:zeap
set zpath=C:\;%path%
set path=%zpath%
:zeep

if "%xxog%"=="" set xxog=1

if "%arxname%"=="" set arxname=1
if "%rxmail%"=="" set rxmail=3
if "%rexggn%"=="" set rexggn=1
if "%softy%"=="" set softy=1
if "%autoya%"=="" set autoya=1

if "%noprelok%"=="" set noprelok=1
if "%prelok%"=="" set prelok=scr
if "%noprelok%"=="1" set prelok=
if "%eagn%"=="" set eagn=1
if "%ggbsout%"=="" set ggbsout=nul
if "%rexlog%"=="" set rexlog=1
:rook
%lgrxc%if "%1"=="Rxc" goto rexlog2
:reeq
if "%rexlog%"=="1" goto rexlog1
:rexlog2
if "%befcm%"=="" set befcm=2

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

@rem [.marioed]O~{.cr#}~[X-0] [mq][marioed][mq] [mq]'n[-s]'hh'lm3i's'[*'hh'y[-s][mq]

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

:automc0
%nfaum%%nfaum2%if "%automc%"=="2" goto automc2
:automc3
%nfaum%%nfaum1%if "%automc%"=="1" goto automc%automcjtl%
:automc2

if "%nalgvrx%"=="" set nalgvrx=2
rem if "%ggbsout%"=="" set ggbsout=nul
rem if "%echoon%"=="1" echo on

:rxmail13
if "%1"=="mail" goto rxmail8
if "%1"=="delmail" goto rxmail9
if "%1"=="readmail" goto rxmail1
if "%1"=="writemail" goto rxmail8
if "%rxmail%"=="1" goto rxmail
if "%rxmail%"=="2" goto rxmail
:rxmail4


:rexxpd
:rexxpd0
if "%1"=="-" goto rexxpd7
if "%1"=="l" goto rexxpd6
if "%1"=="s" goto rexxpds
if "%1"=="r" goto rexxpdr
if "%1"=="cr" goto scr%rexxcrjtl%
if "%1"=="scr" goto scr%rexxscrjtl%

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"=="Bsv" goto bsv%bsvjtl%
if "%1"=="Bsv2" goto bsv2

if "%1"=="ccon" goto ccon%cconjtl%
if "%1"=="c" goto rexxcom
if "%1"=="con" goto rexxcom%rexxcomjtl%
if "%1"=="console" goto rexxcom
if "%1"=="}" goto rexxpdt1
if "%1"=="{" goto rexxpdt2
@rem [.edvar]O~{.cr#}~[X-1] [mq][edvar][mq] [mq]'n[-s]echo'}'hev.bat'sset's[s1]'e'v[s1]'v'ledit's'hev.bat'lcall's'hev'y[agn][mq]
if "%1"=="run" goto rexxpdrn
if "%1"=="sb" goto rexxpdsb
@rem [.xedvar]O~{.cr#}~[X-1] [mq][xedvar][mq] [mq]'n[-s]echo'}'hev.bat's[mv]nxedv1[mv]set's[s1]'e'v[s1]'v'l[mv]nxedv2[mv]edit's'hev.bat'l[mv]nxedv3[mv]call's'hev'y[agn][mq]
if "%1"=="sr" goto rexxpdsr
if "%1"=="sa" goto rexxpdsa
if "%1"=="Z" goto rxxendf
if "%1"=="xxY" goto xxyy
if "%1"=="mb" goto mkb%mkbjtl%
if "%1"=="mkb" goto mkb%mkbjtl1%
rem if "%1"=="mb" goto mkb%mkbjtl%
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 rexxvvv%rexvjtl%
if "%1"=="ops" goto rexxvvv%rexvjtl1%
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
:mkb
:mkb0
%nmkbe%%nmbe2%if "%2"=="rexx" goto mkb2
%nmkbe%%nmbe1%if "%2"=="" goto mkb2

:mkb1
echo>>c:\%2.bat call c:\rexx.bat %3 %4 %5 %6 %7 %8 %9
:mkb8
if not "%nsmkbat%%nsmkbat1%"=="1" type c:\%2.bat
:mkb9
%nnbsmkb%%nnbsmkb0%if "%nbsmkb%"=="0" goto mkb6
:mkb10
%nnbsmkb%%nnbsmkb1%if not "%nbsmkb%"=="" goto mkb7
:mkb6
%nbmkb%%nbmkb6%c:\binsub c:\%2.bat "(b1)" "(v)1(s)(v)2(s)(v)3(IsP)">%ggbsout% %nbmkb%%nbmkb7%c:\binsub c:\%2.bat "(b2)" "(v)2(s)(v)3(IsP)">%ggbsout% %nbmkb%%nbmkb8%c:\binsub c:\%2.bat "(b3)" "(v)3(IsP)">%ggbsout% %nbmkb%%nbmkb5%c:\binsub c:\%2.bat "(IsP)" "(s)(v)4(s)(v)5(s)(v)6(s)(v)7(s)(v)8(s)(v)9">%ggbsout%
%nbmkb%%nbmkb1%c:\binsub c:\%2.bat "(v)" "/037">%ggbsout% %nbmkb%%nbmkb2%c:\binsub c:\%2.bat "(s)" "/032">%ggbsout% %nbmkb%%nbmkb3%c:\binsub c:\%2.bat "(n)" "%nloutb1%">%ggbsout% %nbmkb%%nbmkb4%c:\binsub c:\%2.bat "(x)" "(">%ggbsout%
:mkb7
%nnbsmkb%%nnbsmkb2%if "%nbsmkb%"=="2" set nbsmkb=

:mkb12
if not "%nsmkbat%%nsmkbat2%"=="1" type c:\%2.bat
goto rxxendf

- c:\
:mkb2
echo (batname) cmds [%2] (v/s/n/x/b1-3) Nbsmkb:[%nbsmkb%]
:mkb3
%nnlemb%if "%nlemb%"=="1" goto rxxendf
:mkb4
echo>>c:\rxlog.txt (batname) cmds [%2] (v/s/n/x/b1-3) Nbsmkb:[%nbsmkb%]
goto rxxendf

:testev
:testev0
if not "%3"=="..." set zootch=1
:testev1
if "%4"=="ooo" goto testev4
:testev5
if not "%4"=="..." call c:\rexx scr [xedvar]zootch
:testev2
if not "%5"=="..." echo Zootch:[%zootch%]
:testev3
if "%6"=="..." set zootch=
goto rxxendf

~#~

:testgs
:testgs1
if not "%3"=="..." call c:\rexx r ga%3
:testgs2
%nstesg%%nstesg1%set RXXCO7='0[hexen]'9
:testgs3
%nstesg%%nstesg2%set RXXCO8=[_]9[cm]scr[s][blazn]
:testgs3
%nstesg%%nstesg5%if "%tesubg%"=="1" set RXXCO8=[_]4[cm]scr[s][blagn]

:testgs4
%nstesg%%nstesg3%set RXXCO9=[-s][-mv]agnc[-mv][ce]
:testgs8
@rem [.chan]O~{.cr#}~ [mq][chan][mq] [mq][-mv]rxccn[-mv][mq]

%nstesg%%nstesg4%set RXXCO0=[ce][_]30[cm]scr[s]

:testgs5
if not "%4"=="..." call c:\rexx '8%5 %6 %7 %8'%4
goto rxxend
ERTYUIOP[qwertyuiopasdfghjkl;zxcvbnm,

@rem [.svl]O~{.cr#}~ [mq][svl][mq] [mq]Z[ml][gs][ml]'n[s]echo'[lhrxlog.txt'sVar-[y1]'s'v[y1]'v'y[agn][mq]
:testcda
%ntsccr%c:\rexx .go testgs%testgsjtl% m 7 -file caldera.wad %3 %4 %5
goto rxxende

@rem [.testgs]O~{.cr#}~ [mq][testgs][mq] [mq]Z[ch]cal[ml].go[-s]testgs[-mv]testggjtl[-mv][-s][mq]
@rem [.testcda]O~{.cr#}~ [mq][testcda][mq] [mq]Z[ch]cal[ml].go[-s]testcda[-s][mq]
@rem [.wtgs]O~{.cr#}~ [mq][wtgs][mq] [mq][testgs]...[-s]...[ml]s[-s]tpl[-s][mq]

---

:testev4
if not "%4"=="..." call c:\rexx scr [edvar]zootch
goto testev2

==Evar sample
COMSPEC=Z:\COMMAND.COM
BLASTER=A220 I7 D1 H5 T6
ZPATH=C:\;Z:\
PATH=C:\;Z:\
XXOG=1
ARXNAME=1
RXMAIL=3
REXGGN=1
SOFTY=1
AUTOYA=1
NOPRELOK=1
EAGN=1
GGBSOUT=nul
REXLOG=1
BEFCM=2
RXCOLOR=0':31':40m
NALGVRX=2
RXSN=gam
RXXCO1=[ca][cm]scr[s][hexen][ce]
RXXCO2=[ca][cm]scr[s][wolf3d][ce]
RXXCO7=[ce][cm]scr[s][hexen]'9
RXXCO8=[cm]scr[s][blagn]
RXXCO9=[-s][-mv]agnc[-mv][ce]
AGNC=-file caldera.wad
RXNAME=-mv
YY1=-file
YY2=caldera.wad
=======


@rem [.wolf3d]O~{.cr#}~ [mq][wolf3d][mq] [mq][nex][mq]
@rem [.crux]O~{.cr#}~ [mq][crux][mq] [mq][gnd]mlcrux[-s][mq]
|
@rem [.nex]O~{.cr#}~ [mq][nex][mq] [mq][gnd][name][-s][mq]
@rem [.gnd]O~{.cr#}~[X-1] [mq][gnd][mq] [mq]'n[-s]'hh'[3'lcall's'[3's'[!'hh'y[-s]
@rem [.ngnd]O~{.cr#}~[X-1] [mq][gnd][mq] [mq]'n[-s]'hh[name]'lcall's[name]'s'[*'hh'y[-s]

:rxname1
echo.>c:\rxname.bat
:rxname6
type c:\rxxex%rxcch%.bat>>c:\rxname.bat
:rxname7
binsub c:\rxname.bat "/013/010" "/013/010rem ">%ggbsout%
:rxname88
%nnonn0%%nnonn1%binsub c:\rxname.bat "[nn][" "/013/010rem ">%ggbsout%
:rxname77
%nnonn0%%nnonn2%binsub c:\rxxex%rxcch%.bat "[nn]" "%nloutnnex%">%ggbsout% :rxname66
binsub c:\rxname.bat "[" "/013/010set rxname=">%ggbsout%
binsub c:\rxname.bat "]" "/013/010rem ">%ggbsout%
call c:\rxname.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
:rxname3
%nerxname%echo [%arxuname%]-Rxname now %rxname%
:rxname4
if "%nlrxname%"=="1" goto rxname2
:rxname5
echo>>c:\rxlog.txt [%arxuname%]-Rxname now %rxname%
goto rxname2
[.blazn]O~{.cr#}~ [mq][blazn][mq] [mq][zch]112[-y][ml][blagn][mq]
@ [.blagn]O~{.cr#}~ [mq][blagn][mq] [mq]Z[-s][agn][mq]

# -:rxname0
if "%arxname%"=="1" goto rxname1
# -:rxname2

:automc
:automc1
%naumcc%%naumcc1%set automc=2
:automc4
%nautosco%if not "%autosco%"=="" goto automc7
:automc6
%naumcc%%naumcc2%call c:\rexx scr %1 %2 %3 %4 %5 %6 %7 %8 %9
:automc5
%naumcc%%naumcc3%set automc=1
goto rxxendf

:automc7
%naumcc%%naumcc2%call c:\rexx %autosco% %1 %2 %3 %4 %5 %6 %7 %8 %9
goto automc5


# -:automc0
%nfaum%%nfaum2%if "%automc%"=="2" goto automc2
# -:automc3
%nfaum%%nfaum1%if "%automc%"=="1" goto automc%automcjtl%
# -:automc2


:rxmail
:rxmail10
%nchnxxm%if not exist c:\rxmail.txt goto rxmail0
:rxmail6
if "%rxmail%"=="2" goto rxmail5
if "%rxmail%"=="4" goto rxmail5
:rxmail1
%nmmsg%%nmmsg3%if exist c:\rxmail.txt type c:\rxmail.txt
:rxmail14
if "%1"=="readmail" goto rxxendf
:rxmail2
if "%rxmail%"=="3" goto rxmail3
goto rxmail4
:readmail
if exist c:\rxmail.txt type c:\rxmail.txt
goto rxxendf

~#~
# -:xxogm0
if "%xxog%"=="1" goto xxogm1
# -:xxogm2

:xxogm1
binsub c:\rexcr.bat "r#}~[X-0] [q]" "/013/010rem (0) Google maclet - ">%ggbsout%

binsub c:\rexcr.bat "r#}~[X-1] [q]" "/013/010rem (1) Google maclet - ">%ggbsout%

binsub c:\rexcr.bat "r#}~[X-2] [q]" "/013/010rem (2) Google maclet - ">%ggbsout%
binsub c:\rexcr.bat "r#}~[X-3] [q]" "/013/010rem (3) Google maclet - ">%ggbsout%
binsub c:\rexcr.bat "r#}~[X-4] [q]" "/013/010rem (4) Google maclet - ">%ggbsout%
binsub c:\rexcr.bat "r#}~[X-5] [q]" "/013/010rem (5) Google maclet - ">%ggbsout%
binsub c:\rexcr.bat "r#}~[X-6] [q]" "/013/010rem (6) Google maclet - ">%ggbsout%
binsub c:\rexcr.bat "r#}~[X-7] [q]" "/013/010rem (7) Google maclet - ">%ggbsout%
binsub c:\rexcr.bat "r#}~[X-8] [q]" "/013/010rem (8) Google maclet - ">%ggbsout%
binsub c:\rexcr.bat "r#}~[X-9] [q]" "/013/010rem (9) Google maclet - ">%ggbsout%
goto xxogm2
---

:rxmail0
%nmmsg%%nmmsg0%echo No mail
:rxmail15
if "%rxmail%"=="4" goto rxmail3
if "%rxmail%"=="3" goto rxmail3
goto rxmail4
:rxmail5
%nmmsg%%nmmsg1%echo You have mail! Type readmail
:rxmail7
if '%rxmail%"=="4" goto rxmail3
goto rxmail4

-- Put at beginning

if "%1"=="mail" goto rxmail8
if "%1"=="delmail" goto rxmail9
if "%1"=="readmail" goto rxmail1
if "%rxmail%"=="1" goto rxmail
if "%rxmail%"=="2" goto rxmail
# -:rxmail4

-- put at end after :rxxend
if "%rxmail%"=="3" goto rxmail
if "%rxmail%"=="4" goto rxmail
# -:rxmail3


:rxmail8
echo>>c:\rxmail.txt [\/] %2 %3 %4 %5 %6 %7 %8 %9
:rxmail11
if "%rxnomaillog%"=="1" goto rxxendf
:rxmail12
echo>>c:\rxlog.txt [\/] %2 %3 %4 %5 %6 %7 %8 %9
goto rxxendf
:rxmail9
if exist c:\rxmail.txt del c:\rxmail.txt
goto rxxendf

# -:softy0
if "%softy%"=="0" goto softy2
# -:softy6
if not "%softy%"=="" goto softy%softyjtl%
# -:softy2


:softy
:softy1
if "%sparm%"=="2" goto softy3
:softy5
c:\binsub c:\rxxex%rxcch%.bat "[s1]" "%yy1%">%ggbsout%
c:\binsub c:\rxxex%rxcch%.bat "[s2]" "%yy2%">%ggbsout%
c:\binsub c:\rxxex%rxcch%.bat "[s3]" "%yy3%">%ggbsout%
c:\binsub c:\rxxex%rxcch%.bat "[s4]" "%yy4%">%ggbsout%
c:\binsub c:\rxxex%rxcch%.bat "[s5]" "%yy5%">%ggbsout%
c:\binsub c:\rxxex%rxcch%.bat "[s6]" "%yy6%">%ggbsout%
c:\binsub c:\rxxex%rxcch%.bat "[s7]" "%yy7%">%ggbsout%
c:\binsub c:\rxxex%rxcch%.bat "[s8]" "%yy8%">%ggbsout%

:softy3
if "%sparm%"=="3" goto softy2
:softy4

binsub c:\rxxex%rxcch%.bat "[p1]" "%1">%ggbsout%
c:\binsub c:\rxxex%rxcch%.bat "[p2]" "%2">%ggbsout%
c:\binsub c:\rxxex%rxcch%.bat "[p3]" "%3">%ggbsout%
c:\binsub c:\rxxex%rxcch%.bat "[p4]" "%4">%ggbsout%
c:\binsub c:\rxxex%rxcch%.bat "[p5]" "%5">%ggbsout%
c:\binsub c:\rxxex%rxcch%.bat "[p6]" "%6">%ggbsout%
c:\binsub c:\rxxex%rxcch%.bat "[p7]" "%7">%ggbsout%
c:\binsub c:\rxxex%rxcch%.bat "[p8]" "%8">%ggbsout%
c:\binsub c:\rxxex%rxcch%.bat "[p9]" "%9">%ggbsout%
goto softy2


:rexxpdec
echo [%1'Rex_says]: %2 %3 %4 %5 %6 %7 %8 %9
:eeeeert
if "%nrexlgec%"=="1" goto rxxend
:dookaduk
echo>>c:\rxlog.txt [%1'Rex_says]: %2 %3 %4 %5 %6 %7
goto rxxend
[.test3]O~{.cr#}~ [mq][test3][mq] [mq][gs][ml]say's'q[yb1]'q[-y][agn][mq]

:agn1
if "%nwagnrx%"=="1" goto agn11
:agn16
echo.>c:\rxagn.bat
:agn17
type c:\rxxex%rxcch%.bat>>c:\rxagn.bat
:agn11
if "%srxscr%%srxscr7%"=="1" echo :Begin agn:
:agn19
if "%srxagn%%srxagn1%%srxscr%%srxscr8%"=="1" type c:\rxagn.bat
:agn18
c:\binsub c:\rxagn.bat "/013/010" "/013/010rem ">%ggbsout%

:agn12
%noaggn%%noaggn2%c:\binsub c:\rxagn.bat "[agn][nagn]" "/013/010rem ">%ggbsout% :agns12
%noaggn%%noaggns2%if not "%pagn%"=="" c:\binsub c:\rxagn.bat "[agn][pagn]" "/013/010set %pagn%=">%ggbsout%

:agnc13
%noaggn%%noaggncc2%if not "%ncut%"=="" c:\binsub c:\rxagn.bat "[acut%ahcut%]" "/013/010rem ">%ggbsout%
@rem [.put]O~{,cr#}~ [mq][put][mq] [mq]var[-s]agnc[-s][mq]


:agn13

%noaggn%%noaggn6%if "%rexagn%"=="1" c:\binsub c:\rxagn.bat "[agn]" "/013/010call c:/092rexx var agnc%agot% ">%ggbsout%

%noaggn%%noaggn1%c:\binsub c:\rxagn.bat "[agn]" "/013/010set agnc=">%ggbsout%


@rem [.mitest]O~{.cr#}~[X-1] [mq][mitest][mq] [mq][gens]m3i[genx][mq]
|
@rem [.gens]O~{.cr#}~[X-1] [mq][gens][mq] [mq]var[-s]xxrun[-s][mq]
@rem [.genx]O~{.cr#}~[X-1] [mq][genx][mq] [mq][ml]'n[-s]'y'hh'l'vxxrun'v's'[*'hh'y[-s][mq]


:ngxs0
if "%ngxs%"=="1" goto ngxs2
:ngxs1
%noaggn%%noaggng4%if "%rexggn%"=="1" c:\binsub c:\rxagn.bat "[ggn]" "/013/010call c:/092rexx var ">%ggbsout%

%noaggn%%noaggng1%c:\binsub c:\rxagn.bat "[ggn]" "/013/010set ">%ggbsout% %noaggn%%noaggng2%c:\binsub c:\rxagn.bat "[ge]" "=">%ggbsout% %noaggn%%noaggng2%c:\binsub c:\rxagn.bat "[gc]" "/013/010rem ">%ggbsout% %noaggn%%noaggns1%c:\binsub c:\rxagn.bat "[s]" "/032">%ggbsout% %noaggn%%noaggns1%c:\binsub c:\rxagn.bat "[gv]" "/037">%ggbsout%

%noaggn%%noaggns2%c:\binsub c:\rxagn.bat "[gx]" "/032">%ggbsout%
:ngxs2




rem %noaggn%%noaggn1%c:\binsub c:\rxagn.bat "[agn]" "/013/010set agnc=">%ggbsout%
:agn8
if "%srxagn%%srxagn2%%srxscr%%srxscr9%"=="1" type c:\rxagn.bat
:agn20
if "%srxscr%%srxscra%"=="1" echo :END agn:

:agn19
%nclagn%call c:\rxagn.bat %1 %2 %3 %4 %5 %6 %7 %8%9
:agnkall
%nautoya%if "%autoya%"=="1" call c:\rexx xxY %agnc%
goto agn2
:stcr0
c:\binsub c:\rexx.bat "[.%3]O~{.cr#}%stchk1%~" "[.%3]X~{.cr#}%stchk2%~"
goto rxxendf
:stcr1
c:\binsub c:\rexx.bat "[.%3]X~{.cr#}%stchk1%~" "[.%3]O~{.cr#}%stchk2%~"
goto rxxendf

v-----autoya must be set to 1
[.sv]O~{.cr#}~[X-0] [mq][sv][mq] [mq]echo[-s]Var-[s1]:[-mv][s1][-mv][-y][agn][mq]
|
[.yb1]O~{.cr#}~ [mq][yb1][mq] [mq][y1][-s][y2][-s][y3][-s][y4][ybx][mq] [.yb2]O~{.cr#}~ [mq][yb1][mq] [mq][y2][-s][y3][-s][y4][ybx][mq]
[.yb3]O~{.cr#}~ [mq][yb1][mq] [mq][y3][-s][y3][-s][y4][ybx][mq]
|
[.nybx]X~{.cr#}~ [mq][ybx][mq] [mq][-mv]ybvenlo[-mv][mq]
[.ybx]O~{.cr#}~ [mq][ybx][mq] [mq][-s][y5][-s][y6][-s][y7][-s][y8][mq]
|||||||||||
[.y1]O~{.cr#}~ [mq][y1][mq] [mq][-mv]yy1[-mv][mq]
[.y2]O~{.cr#}~ [mq][y2][mq] [mq][-mv]yy2[-mv][mq]
[.y3]O~{.cr#}~ [mq][y3][mq] [mq][-mv]yy3[-mv][mq]
[.y4]O~{.cr#}~ [mq][y4][mq] [mq][-mv]yy4[-mv][mq]
[.y5]O~{.cr#}~ [mq][y5][mq] [mq][-mv]yy5[-mv][mq]
[.y6]O~{.cr#}~ [mq][y6][mq] [mq][-mv]yy6[-mv][mq]
[.y7]O~{.cr#}~ [mq][y7][mq] [mq][-mv]yy7[-mv][mq]
[.y8]O~{.cr#}~ [mq][y8][mq] [mq][-mv]yy8[-mv][mq]
\/
[.gu]O~{.cr#}~ [mq][gu][mq] [mq][gs][ml][mq]
[.gs]O~{.cr#}~ [mq][gs][mq] [mq][gx][agnc][mq]
[.gx]O~{.cr#}~ [mq][gx][mq] [mq]Z[ml][-s]xxY[-s][mq]

if "%1"=="xxY" goto xxyy
:xxyy
set yy1=%2
set yy2=%3
set yy3=%4
set yy4=%5
set yy5=%6
set yy6=%7
set yy7=%8
set yy8=%9
goto rxxendf


:testcr
:testcr1
echo>c:\rexcr.bat %xchhk3%~%xchhk2%{.cr#%xchhk1%}~ %3 %4 %5 %6 %7 %8 %9
goto testcr2

- add skeleton .cr# maclet system
symbols are [m*]

[.test]O~{.cr#}~ [mq][test][mq] [mq]say's'qThat'xsmy'speupe'sbucket'q's[mq]

:scr
:scr0
:scr81
if "%srxscr%%srxscr0%"=="1" echo ===Start show scr proc [binsubs] rxxex

:scr1
echo>c:\rxxex%rxcch%.bat call c:\rexx %2 %3 %4 %5 %6 %7 %8 %9
:scr2
@rem [.test]O~{.cr#}~ [mq][test2][mq] [mq]say's'qBlah-[-mv]3'q's1976[-y][q]

echo.>c:\rexcr.bat %begrexc%

@rem [.ohexen]O~{.cr#}~ [mq][ohexen][mq] [mq]'n[-s]cd's'bhexen'lhexen's[-mv]3'lcd's'b[-y][mq]
@rem [.zzhexen]O~{.cr#}~ [mq][zzhexen][mq] [mq]'n[-s]cd's'bhexen'lhexen's[p3]'lcd's'b'y[-s][mq]

@rem [.hexen]O~{.cr#}~ [mq][hexen][mq] [mq]'n[-s]cd's'bhexen'lhexen's'[*'lcd's'b'y[-s][mq]


:scr3
c:\find "~{%rexcrch%.cr%rexcrchk%#}~" c:\rexx.bat>>c:\rexcr.bat
:scr80

if "%srxscr%%srxscr1%"=="1" type c:\rexcr.bat

rem binsub c:\rxxex%rxcch%.bat "[ml]" "/013/010call c:/092rexx ">%ggbsout%


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

%ndzzl%%ndzzl2%c:\binsub c:\rexcr.bat "~{%rexcrch%.cr%rexcrchk%#}~ [q]" "/013/010rem GOOGLE.BAT CR MACLET ">%ggbsout%

:xxogm0
if "%xxog%"=="1" goto xxogm1
:xxogm2


:bdizzl
%ndzzl%%ndzzl1%c:\binsub c:\rexcr.bat "X~{%rexcrch%.cr%rexcrchk%#}~" "/013/010rem DISABLED ">%ggbsout%


:disabs
if "%disabs%"=="1" goto disabs2
:disabs1
%kpable%%kpable0%if not "%disabxx%"=="" c:\binsub c:\rexcr.bat "~{.cr#%crchhx%}~[X-%disabxx%]" "/013/010rem X-DISABLED:%disabxx% ">%ggbsout%

%kpable%%kpable1%if not "%disabxx1%"=="" c:\binsub c:\rexcr.bat "~{.cr#%crchhx%}~[X-%disabxx1%]" "/013/010rem (1) X-DISABLED:%disabxx1% ">%ggbsout%

%kpable%%kpable2%if not "%disabxx2%"=="" c:\binsub c:\rexcr.bat "~{.cr#%crchhx%}~[X-%disabxx2%]" "/013/010rem (2) X-DISABLED:%disabxx2% ">%ggbsout%

%kpable%%kpable3%if not "%disabxx3%"=="" c:\binsub c:\rexcr.bat "~{.cr#%crchhx%}~[X-%disabxx3%]" "/013/010rem (3) X-DISABLED:%disabxx3% ">%ggbsout%

%kpable%%kpable4%if not "%disabxx4%"=="" c:\binsub c:\rexcr.bat "~{.cr#%crchhx%}~[X-%disabxx4%]" "/013/010rem (4) X-DISABLED:%disabxx4% ">%ggbsout%


%kpable%%kpable5%if not "%disabxx5%"=="" c:\binsub c:\rexcr.bat "~{.cr#%crchhx%}~[X-%disabxx5%]" "/013/010rem (5) X-DISABLED:%disabxx5% ">%ggbsout%


:enizzbx
binsub c:\rexcr.bat "~{.cr#%crchhx%}~[X-0]" "[nubZ]">%ggbsout%
c:\binsub c:\rexcr.bat "~{.cr#%crchhx%}~[X-1]" "[nubZ]">%ggbsout%
c:\binsub c:\rexcr.bat "~{.cr#%crchhx%}~[X-2]" "[nubZ]">%ggbsout%
c:\binsub c:\rexcr.bat "~{.cr#%crchhx%}~[X-3]" "[nubZ]">%ggbsout%
c:\binsub c:\rexcr.bat "~{.cr#%crchhx%}~[X-4]" "[nubZ]">%ggbsout%
c:\binsub c:\rexcr.bat "~{.cr#%crchhx%}~[X-5]" "[nubZ]">%ggbsout%
c:\binsub c:\rexcr.bat "~{.cr#%crchhx%}~[X-6]" "[nubZ]">%ggbsout%
c:\binsub c:\rexcr.bat "~{.cr#%crchhx%}~[X-7]" "[nubZ]">%ggbsout%
c:\binsub c:\rexcr.bat "~{.cr#%crchhx%}~[X-8]" "[nubZ]">%ggbsout%
c:\binsub c:\rexcr.bat "~{.cr#%crchhx%}~[X-9]" "[nubZ]">%ggbsout%
:disabs5
%nbstonub%c:\binsub c:\rexcr.bat "[nubZ]" "~{.cr#%crchhb%}~">%ggbsout%

:disabs2

:rxname0
if "%arxname%"=="1" goto rxname1
:rxname2


binsub c:\rexcr.bat "~{%rexcrch%.cr%rexcrchk%#}~" "/013/010c:/092binsub c:/092rxxex%rxcch%.bat ">%ggbsout%
c:\binsub c:\rexcr.bat "[mq]/013/010" "/034/062/037ggbsout/037/013/010rem ">%ggbsout%
c:\binsub c:\rexcr.bat "[mq]" "/034">%ggbsout%
c:\binsub c:\rexcr.bat "[ms]" "/032">%ggbsout%
c:\binsub c:\rexcr.bat "[mv]" "/037">%ggbsout%
c:\binsub c:\rexcr.bat "[mn]" "%nloutrxxmn%">%ggbsout%
c:\binsub c:\rexcr.bat "[mx]" "[">%ggbsout%

:scr83
if "%srxscr%%srxscr2%"=="1" type c:\rexcr.bat

:scr4
%nclrxc%%nclrxc1%call c:\rexcr.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
:scr84

if "%srxscr%%srxscr6%"=="1" echo --begin [SCRIPT] rxxex


if "%srxscr%%srxscr3%"=="1" type c:\rxxex%rxcch%.bat

:scr5
%altrxex%if "%1-%2"==".go-testcr" goto rxxend
:agn0
if "%eagn%"=="1" goto agn1
:agn2
:testcr3

:softy0
if "%softy%"=="0" goto softy2
:softy6
if not "%softy%"=="" goto softy%softyjtl%
:softy2

%necscch%echo Script-Channel:[%rxcch%]
:nlgscc0
if "%nologscc%"=="1"" goto nlgscc2
:nlgscc1
echo>>c:\rxlog.bat Script-Channel:[%rxcch%]
:nlgscc2
%nagncc%%nagncc2%c:\binsub c:\rxxex%rxcch%.bat "[hagnc]" "%agnc%">%ggbsout% %nagncc%%nagncc1%c:\binsub c:\rxxex%rxcch%.bat "[agnc]" "/037agnc/037">%ggbsout%
:aftagcc

@rem [.zchn]O~{.cr#}~[X-1] [mq][zchn][mq] [mq]Z[chn][mq]
@rem [.zch]O~{.cr#}~[X-1] [mq][zch][mq] [mq]Z[ch][mq]
@rem l
@rem [.2ch]X~{.cr#}~[X-1] [mq][chn][mq] [mq][ch][mq]
@rem [.2chn]X~{.cr#}~[X-1] [mq][ch][mq] [mq][chn][mq]
@rem lllllll
@rem [.chn]O~{.cr#}~ [mq][chn][mq] [mq][-y][ml].ops[-s]rxxch[-s][mq]

%nohardch%c:\binsub c:\rxxex%rxcch%.bat "[ch]" "/013/010set rxcch=">%ggbsout%

c:\binsub c:\rxxex%rxcch%.bat "[ml]" "/013/010call c:/092rexx ">%ggbsout%
@rem [.name]O~{.cr#}~ [mq][name][mq] [mq][-mv]rxname[-mv][mq]
c:\binsub c:\rxxex%rxcch%.bat "[-mv]" "/037">%ggbsout%
c:\binsub c:\rxxex%rxcch%.bat "[-s]" "/032">%ggbsout%
c:\binsub c:\rxxex%rxcch%.bat "[-y]" "/013/010rem ">%ggbsout%
c:\binsub c:\rxxex%rxcch%.bat "[-mn]" "%nloutrxxen%">%ggbsout%
c:\binsub c:\rxxex%rxcch%.bat "[-mx]" "[">%ggbsout%
:scr86
if "%srxscr%%srxscr4%"=="1" type c:\rxxex%rxcch%.bat
if "%srxscr%%srxscr5%"=="1" echo --END SHOW


:scr99
%nclrxc%%nclrxc2%call c:\rxxex%rxcch%.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
:scr9a
if not "%krxcch%"=="1" set rxcch=
goto rxxend
:rrxx
echo>c:\rxxex%rxcch%.bat call c:\rexx.bat %3 %4 %5 %6 %7 %8 %9
goto rxxend


:about
echo REXX command shell 2019
goto rxxendt

:ccon
:ccon0
call c:\rexx var lok %2 %3 %4 %5 %6 %7 %8 %9
:ccon4
goto ccon1


:rexxcom
%nprmprex%echo [%1]Enter REXX command S:%2 T:%3 S:%4 T:%5 S:%6 T:%7 S:%8 T:%9 :ccon6
if not "%lok%"=="rc" set olok=%lok%
:ccon9
if "%nrxloglok%"=="1" goto ccon10
:ccon11
echo>>c:\rxlog.txt O:%olok% Last:%lok%
:ccon10
%nolastlkrx%echo O:%olok% Last:%lok%
%nchkrxpas%if not exist c:\password.com goto ccon3
:ccon5
rem if not "%lok%"=="rc" set olok=%lok%
c:\password>c:\rxcm.bat

if not "%2"=="" c:\binsub c:\rxcm.bat "%2" "%3">%ggbsout%
if not "%4"=="" c:\binsub c:\rxcm.bat "%4" "%5">%ggbsout%
if not "%6"=="" c:\binsub c:\rxcm.bat "%6" "%7">%ggbsout%
if not "%8"=="" c:\binsub c:\rxcm.bat "%8" "%9">%ggbsout%
:ccon1
%nocrxcut%c:\binsub c:\rxcm.bat "[cut]" "/013/010rem ">%ggbsout%
call c:\rxcm.bat %1 %2 %3 %4 %5 %6 %7 %8 %9

if "%lok%"=="quit" goto rxxend
if "%lok%"=="exit" goto rxxend
if "%lok%"=="about" goto rxxabt
if "%lok%"=="rc" goto olokr
%nprelok%%nprelok1%if not "%prelok%"=="" goto prelok1
:prelok5
call c:\rexx %lok%
:prelok4
if "%1"=="ccon" goto rxxend
goto rexxcom
:olokr
%nprelok%%nprelok2%if not "%prelok%"=="" goto prelok2
:prelok3
call c:\rexx %olok%
goto rexxcom
:prelok1
call c:\rexx %prelok% %lok%
if "%nlgths%%nlgths1%"=="1" goto prelok4
:prelok7
echo>>c:\rxlog.txt [LOK] Prelok active:%prelok%
goto prelok4

:prelok2
call c:\rexx %prelok% %olok%
:prelok6
if "%nlgths%%nlgths2%"=="1" goto rexxcom
:prelok7
echo>>c:\rxlog.txt [OLOK] Prelok active:%prelok%
goto rexxcom


:ccon3
echo ERROR: password.com not in c:\ exiting
:bbbzzzs
if "%nlgths%%nlgths3%"=="1" goto rxxend
:bsbjhdjd
echo>>c:\rxlog.txt ERROR: password.com not in c:\
goto rxxendf
:rxxabt
call c:\rexx .go about
goto rexxcom


: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
:rexxvvv
:rexxvvv1
%nsvrr%%nsvrr1%set %2=%3
:rexxvvv8
if "%1"=="ops" goto rxxendf
:rexxvvv2
%nsvrr%%nsvrr2%if not "%4"=="" set %2=%3 %4

:rexxvvv3
%nsvrr%%nsvrr3%if not "%5"=="" set %2=%3 %4 %5
:rexxvvv14
%nsvrr%%nsvrr4%if not "%6"=="" set %2=%3 %4 %5 %6
:rexxvvv5
%nsvrr%%nsvrr5%if not "%7"=="" set %2=%3 %4 %5 %6 %7
:rexxvvv6
%nsvrr%%nsvrr6%if not "%8"=="" set %2=%3 %4 %5 %6 %7 %8
:rexxvvv7
%nsvrr%%nsvrr7%if not "%9"=="" set %2=%3 %4 %5 %6 %7 %8 %9
:rexxvvva
%ntestzooz%if "%2"=="testzooz" goto testzooz
:rexxvvv9
%nfllev%goto rxxendf
goto rxxend
:testzooz
echo Testzooz:[%testzooz%]
goto rexxvvv9

: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
c:\binsub c:\rexx%2.txt "c:/092" "c:/092users/092tom/092"
c:\binsub c:\rexx%2.txt "cd /092rexx/092bin" "cd c:/092users/092tom/092rexx/092bin"
c:\binsub c:\rexx%2.txt "cd /092" "cd c:/092users/092tom/092"
c:\binsub c:\rexx%2.txt "/0371 /0372" "%nloutrxoh3%"
c:\binsub c:\rexx%2.txt "/0372." "/0374."
c:\binsub c:\rexx%2.txt "]/0372[" "]/0374["

binsub c:\rexx%2.txt "/044/0373/044" "/044/0375/044"
c:\binsub c:\rexx%2.txt "/044/0372/044" "/044/0374/044"
c:\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]
:bxbz8zs
if "%nlgths%%nlgths3%"=="1" goto rxxend
:bxbjh7jd
echo>>c:\rxlog.txt Error: c:\rexx.bat not where it's supposed to be [%1'%2]

goto rxxend
:rexxpdb2
c:\Rexx Bi
goto erxxend
:zuubcii
c:\binsub c:\rexx%2.txt "c:/092" "c:/092users/092tom/092"
c:\binsub c:\rexx%2.txt "cd /092rexx/092bin" "cd c:/092users/092tom/092rexx/092bin"
c:\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 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto rxxend
:bsv
:bsv1
set tnorxn=
:bsv3
if "%3"=="..." set tnorxn=1
:bsv4
%nrxxbsv2%c:\rexx Bsv2
goto rxxende
-- Loaded: rexsv[%rxsn%]

%ggbsout%

:rexxpds
%nrxxbsv1%if "%2"=="..." c:\rexx Bsv x %3
:nobsv2
echo>c:\rexsv%2.bat rem Bandit's dome expandz
if "%3"=="..." goto norxn
if "%3"=="..o" goto yesrxn
:bsv2
if "%norxn%"=="1" goto norxn
:yesrxn
echo>>c:\rexsv%2.bat set rxsn=%2
:norxn
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
echo>>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" c:\binsub c:\rexx\bin\rext%rexxvch%.bat "[v]" "%nloutrxve1%">%ggbsout%
if "%dlvee%%dlvee2%"=="1" c:\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%] Loaded: rexsv[%rxsn%] echo ===============================
goto rexxpd9
:befa1
type c:\rexgev.bat>c:\rexgep.bat
:befa3
c:\binsub c:\rexgep.bat "[co]" "/013/010call c:/092rexx ">%ggbsout%
:befa4
c:\binsub c:\rexgep.bat "[cm]" "/013/010rem ">%ggbsout%
goto befa2

:bef1
type c:\rexgev.bat>c:\rexgep.bat
:bef009
c:\binsub c:\rexgep.bat "[cm]" "/013/010call c:/092rexx ">%ggbsout%
if "%vjarj%"=="1" echo Jarj
c:\binsub c:\rexgev.bat "[cm]" "/013/010rem ">%ggbsout%
:befa2

:buquet
if "%nobucket1%"=="1" goto ebuquet
:buhqet
%nbktc%%nbktc5%c:\binsub c:\rexgep.bat "[_]" "/013/010set rxcch=">%ggbsout% %nbktc%%nbktc6%c:\binsub c:\rexx\bin\rext%rexxch%.r "[_]" "/013/010/047* */047 ">%ggbsout%
%nbktc%%nbktc7%c:\binsub c:\rexgep.bat "[-]" "/013/010set rexxch=">%ggbsout% %nbktc%%nbktc8%c:\binsub c:\rexx\bin\rext%rexxch%.r "[-]" "/013/010/047* */047 ">%ggbsout%
:ebuquet


c:\binsub c:\rexgep.bat "[ce]" "/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
c:\binsub c:\rxcol.dat "'e" "/027">%ggbsout%
:rxcolor2
c:\binsub c:\rxcol.dat "':" "/059">%ggbsout%
: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
:debug
:debug0
%nseccc%%nseccc1%set echoon=1
:debug1
if "%bnxcutd%"=="1" goto debug2
:debug3
c:\4dos /c c:\rexx %3 %4 %5 %6 %7 %8 %9>c:\rxdebug.txt
:debug2
%nseccc%%nseccc2%set echoon=
goto rxxend


:rexxpd8
cd \rexx\bin
:rexxpd1
rem rexx16
goto vvk
:nalch1
type c:\rexx\bin\rext.r>>c:\rexgev.bat
goto nalch2



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
if not "%alch%"=="1" goto nalch1
type c:\rexx\bin\rext%rexxch%.r>>c:\rexgev.bat
:nalch2

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

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

:buquet2
if "%nobucket%"=="1" goto ebuquet2
:buhqet2
%nbktc%%nbktc1%c:\binsub c:\rexgev.bat "[_]" "/013/010set rxcch=">%ggbsout% %nbktc%%nbktc2%c:\binsub c:\rexx\bin\rext%rexxch%.r "[_]" "/013/010/047* */047 ">%ggbsout%
%nbktc%%nbktc3%c:\binsub c:\rexgev.bat "[-]" "/013/010set rexxch=">%ggbsout%

[continued in next message]

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