• lock'd

    From blinkingblythe01@gmail.com@21:1/5 to All on Sat Jan 5 21:12:00 2019
    @echo off

    :rexx
    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=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
    rem 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"=="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
    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
    :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"=="" binsub c:\rxcm.bat "%2" "%3">%ggbsout%
    if not "%4"=="" binsub c:\rxcm.bat "%4" "%5">%ggbsout%
    if not "%6"=="" binsub c:\rxcm.bat "%6" "%7">%ggbsout%
    if not "%8"=="" binsub c:\rxcm.bat "%8" "%9">%ggbsout%
    :ccon1
    %nocrxcut%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
    call c:\rexx %lok%
    if "%1"=="ccon" goto rxxend
    goto rexxcom
    :olokr
    call c:\rexx %olok%
    goto rexxcom
    :ccon3
    echo ERROR: password.com not in c:\ exiting
    :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
    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">%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


    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)
  • From blinkingblythe01@gmail.com@21:1/5 to All on Sat Jan 5 21:15:54 2019
    @echo off

    :rexx
    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=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
    rem 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"=="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
    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
    :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"=="" binsub c:\rxcm.bat "%2" "%3">%ggbsout%
    if not "%4"=="" binsub c:\rxcm.bat "%4" "%5">%ggbsout%
    if not "%6"=="" binsub c:\rxcm.bat "%6" "%7">%ggbsout%
    if not "%8"=="" binsub c:\rxcm.bat "%8" "%9">%ggbsout%
    :ccon1
    %nocrxcut%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
    call c:\rexx %lok%
    if "%1"=="ccon" goto rxxend
    goto rexxcom
    :olokr
    call c:\rexx %olok%
    goto rexxcom
    :ccon3
    echo ERROR: password.com not in c:\ exiting
    :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
    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">%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


    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%
    if "%ggbtract%"=="1" c:\binsub rext%rexxch%.r "'!" "/013/010call c:/092users/092tom/092 google ">%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)