• Pernson (') keeping it's good name

    From blinkingblythe01@gmail.com@21:1/5 to All on Tue Jan 8 17:21:37 2019
    @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 "%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"=="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
    :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
    :testev4
    if not "%4"=="..." call c:\rexx scr [edvar]zootch
    goto testev2


    @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.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.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

    # -: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
    :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.bat "[s1]" "%yy1%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s2]" "%yy2%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s3]" "%yy3%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s4]" "%yy4%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s5]" "%yy5%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s6]" "%yy6%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s7]" "%yy7%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s8]" "%yy8%">%ggbsout%

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

    binsub c:\rxxex.bat "[p1]" "%1">%ggbsout%
    c:\binsub c:\rxxex.bat "[p2]" "%2">%ggbsout%
    c:\binsub c:\rxxex.bat "[p3]" "%3">%ggbsout%
    c:\binsub c:\rxxex.bat "[p4]" "%4">%ggbsout%
    c:\binsub c:\rxxex.bat "[p5]" "%5">%ggbsout%
    c:\binsub c:\rxxex.bat "[p6]" "%6">%ggbsout%
    c:\binsub c:\rxxex.bat "[p7]" "%7">%ggbsout%
    c:\binsub c:\rxxex.bat "[p8]" "%8">%ggbsout%
    c:\binsub c:\rxxex.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.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%

    :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.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 [.hexen]O~{.cr#}~ [mq][hexen][mq] [mq]'n[-s]cd's'bhexen'lhexen's[-mv]3'lcd's'b[-y][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.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%

    :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.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.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


    c:\binsub c:\rxxex.bat "[hagnc]" "%agnc%">%ggbsout%
    c:\binsub c:\rxxex.bat "[agnc]" "/037agnc/037">%ggbsout%


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


    :scr99
    %nclrxc%%nclrxc2%call c:\rxxex.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
    goto rxxend
    :rrxx
    echo>c:\rxxex.bat call c:\rrex.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
    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
    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

    %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
    :bsv2
    if "%norxn%"=="" goto norxn
    :yesrxn
    echo>>c:\rexsv%2.bat 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%]
    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
    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%

    if "%wtfde%%wtfde1%"=="1" echo ---WHAT THE FUCK?
    if "%wtfde%%wtfde2%"=="1" type c:\rexgev.bat
    if "%befcm%"=="1" goto bef1
    if "%befcm%"=="2" goto befa1
    :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%
    %nncee%%nncee1%c:\binsub c:\rexgev.bat "[co]" "/013/010rem ">%ggbsout%

    %nncee%%nncee2%c:\binsub c:\rexx\bin\rext%rexxch%.r "[co]" " /013/010/047* */047 ">%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%

    if "%wtfde%%wtfde3%"=="1" echo ------How come this is fucked?
    if "%wtfde%%wtfde4%"=="1" type c:\rexgev.bat
    if "%wtfde%%wtfde5%"=="1" echo ------

    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

    if "%srg%if "%wtfde%%wtfde6%"=="1" "=="1" type c:\rexgev.bat
    if "%wtfde%%wtfde7%"=="1" pause
    if "%maco%"=="1" copy c:\rexgev.bat c:\fuckthis.txt
    set maco=

    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%
    %nosycer%%nosycer2%c:\binsub rext%rexxch%.r "'!" "[ce]">%ggbsout% %nosycer%%nosycer1%c:\binsub rext%rexxch%.r "'?" "[cm]r[s]">%ggbsout%

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

    cd \rexx\bin
    rem echo VOOM
    :rehhxxy
    if not "%nrexfp%%nrexfp1%"=="1" c:\binsub rext%rexxch%.r "'[*" "%3 %4 %5 %6 %7 %8 %9">%ggbsout%
    if not "%nrexfp%%nrexfp2%"=="1" c:\binsub rext%rexxch%.r "'[!" "%4 %5 %6 %7 %8 %9">%ggbsout%



    %nsbr%%nsbr1%c:\binsub rext%rexxch%.r "'[1" "%1">%ggbsout% %nsbr%%nsbr2%c:\binsub rext%rexxch%.r "'[2" "%2">%ggbsout% %nsbr%%nsbr3%c:\binsub rext%rexxch%.r "'[3" "%3">%ggbsout% %nsbr%%nsbr4%c:\binsub rext%rexxch%.r "'[4" "%4">%ggbsout% %nsbr%%nsbr5%c:\binsub rext%rexxch%.r "'[5" "%5">%ggbsout% %nsbr%%nsbr6%c:\binsub rext%rexxch%.r "'[6" "%6">%ggbsout% %nsbr%%nsbr7%c:\binsub rext%rexxch%.r "'[7" "%7">%ggbsout% %nsbr%%nsbr8%c:\binsub rext%rexxch%.r "'[8" "%8">%ggbsout% %nsbr%%nsbr9%c:\binsub rext%rexxch%.r "'[9" "%9">%ggbsout%



    if "%dirkh%%drkh2%"=="1" c:\binsub rext%rexxch%.r "'hh" "/013/010cd c:/092"
    if "%dirkh%%drkh1%"=="1" c:\binsub rext%rexxch%.r "'h" "c:/092"

    %nhhz%%nhhz2%c:\binsub rext%rexxch%.r "'hh" "'lcd'sc:'b"
    %nhhz%%nhhz1%c:\binsub rext%rexxch%.r "'h" "c:'b"


    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%
    %nosyxx%c:\binsub rext%rexxch%.r "'(" "/027">%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
    if "%rxmail%"=="3" goto rxmail
    if "%rxmail%"=="4" goto rxmail
    :rxmail3

    @rem FOR GOOGLE.BAT
    @rem [.dsrx]O~{.cr#}~ [q][dsrx][q] [q].fbrun[s]call'srexx's'[*'y[s][q]

    %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 Tue Jan 8 17:30:07 2019
    @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"=="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
    :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
    :testev4
    if not "%4"=="..." call c:\rexx scr [edvar]zootch
    goto testev2


    @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.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.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

    # -: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.bat "[s1]" "%yy1%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s2]" "%yy2%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s3]" "%yy3%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s4]" "%yy4%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s5]" "%yy5%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s6]" "%yy6%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s7]" "%yy7%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s8]" "%yy8%">%ggbsout%

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

    binsub c:\rxxex.bat "[p1]" "%1">%ggbsout%
    c:\binsub c:\rxxex.bat "[p2]" "%2">%ggbsout%
    c:\binsub c:\rxxex.bat "[p3]" "%3">%ggbsout%
    c:\binsub c:\rxxex.bat "[p4]" "%4">%ggbsout%
    c:\binsub c:\rxxex.bat "[p5]" "%5">%ggbsout%
    c:\binsub c:\rxxex.bat "[p6]" "%6">%ggbsout%
    c:\binsub c:\rxxex.bat "[p7]" "%7">%ggbsout%
    c:\binsub c:\rxxex.bat "[p8]" "%8">%ggbsout%
    c:\binsub c:\rxxex.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.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%

    :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.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 [.hexen]O~{.cr#}~ [mq][hexen][mq] [mq]'n[-s]cd's'bhexen'lhexen's[-mv]3'lcd's'b[-y][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.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.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.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


    c:\binsub c:\rxxex.bat "[hagnc]" "%agnc%">%ggbsout%
    c:\binsub c:\rxxex.bat "[agnc]" "/037agnc/037">%ggbsout%


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


    :scr99
    %nclrxc%%nclrxc2%call c:\rxxex.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
    goto rxxend
    :rrxx
    echo>c:\rxxex.bat call c:\rrex.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
    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
    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

    %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
    :bsv2
    if "%norxn%"=="" goto norxn
    :yesrxn
    echo>>c:\rexsv%2.bat 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%]
    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
    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%

    if "%wtfde%%wtfde1%"=="1" echo ---WHAT THE FUCK?
    if "%wtfde%%wtfde2%"=="1" type c:\rexgev.bat
    if "%befcm%"=="1" goto bef1
    if "%befcm%"=="2" goto befa1
    :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%
    %nncee%%nncee1%c:\binsub c:\rexgev.bat "[co]" "/013/010rem ">%ggbsout%

    %nncee%%nncee2%c:\binsub c:\rexx\bin\rext%rexxch%.r "[co]" " /013/010/047* */047 ">%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%

    if "%wtfde%%wtfde3%"=="1" echo ------How come this is fucked?
    if "%wtfde%%wtfde4%"=="1" type c:\rexgev.bat
    if "%wtfde%%wtfde5%"=="1" echo ------

    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

    if "%srg%if "%wtfde%%wtfde6%"=="1" "=="1" type c:\rexgev.bat
    if "%wtfde%%wtfde7%"=="1" pause
    if "%maco%"=="1" copy c:\rexgev.bat c:\fuckthis.txt
    set maco=

    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%
    %nosycer%%nosycer2%c:\binsub rext%rexxch%.r "'!" "[ce]">%ggbsout% %nosycer%%nosycer1%c:\binsub rext%rexxch%.r "'?" "[cm]r[s]">%ggbsout%

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

    cd \rexx\bin
    rem echo VOOM
    :rehhxxy
    if not "%nrexfp%%nrexfp1%"=="1" c:\binsub rext%rexxch%.r "'[*" "%3 %4 %5 %6 %7 %8 %9">%ggbsout%
    if not "%nrexfp%%nrexfp2%"=="1" c:\binsub rext%rexxch%.r "'[!" "%4 %5 %6 %7 %8 %9">%ggbsout%



    %nsbr%%nsbr1%c:\binsub rext%rexxch%.r "'[1" "%1">%ggbsout% %nsbr%%nsbr2%c:\binsub rext%rexxch%.r "'[2" "%2">%ggbsout% %nsbr%%nsbr3%c:\binsub rext%rexxch%.r "'[3" "%3">%ggbsout% %nsbr%%nsbr4%c:\binsub rext%rexxch%.r "'[4" "%4">%ggbsout% %nsbr%%nsbr5%c:\binsub rext%rexxch%.r "'[5" "%5">%ggbsout% %nsbr%%nsbr6%c:\binsub rext%rexxch%.r "'[6" "%6">%ggbsout% %nsbr%%nsbr7%c:\binsub rext%rexxch%.r "'[7" "%7">%ggbsout% %nsbr%%nsbr8%c:\binsub rext%rexxch%.r "'[8" "%8">%ggbsout% %nsbr%%nsbr9%c:\binsub rext%rexxch%.r "'[9" "%9">%ggbsout%



    if "%dirkh%%drkh2%"=="1" c:\binsub rext%rexxch%.r "'hh" "/013/010cd c:/092"
    if "%dirkh%%drkh1%"=="1" c:\binsub rext%rexxch%.r "'h" "c:/092"

    %nhhz%%nhhz2%c:\binsub rext%rexxch%.r "'hh" "'lcd'sc:'b"
    %nhhz%%nhhz1%c:\binsub rext%rexxch%.r "'h" "c:'b"


    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%
    %nosyxx%c:\binsub rext%rexxch%.r "'(" "/027">%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
    if "%rxmail%"=="3" goto rxmail
    if "%rxmail%"=="4" goto rxmail
    :rxmail3

    @rem FOR GOOGLE.BAT

    [continued in next message]

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From blinkingblythe01@gmail.com@21:1/5 to All on Tue Jan 8 17:58:31 2019
    @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"=="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
    :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
    :testev4
    if not "%4"=="..." call c:\rexx scr [edvar]zootch
    goto testev2


    @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.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.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

    # -: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.bat "[s1]" "%yy1%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s2]" "%yy2%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s3]" "%yy3%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s4]" "%yy4%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s5]" "%yy5%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s6]" "%yy6%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s7]" "%yy7%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s8]" "%yy8%">%ggbsout%

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

    binsub c:\rxxex.bat "[p1]" "%1">%ggbsout%
    c:\binsub c:\rxxex.bat "[p2]" "%2">%ggbsout%
    c:\binsub c:\rxxex.bat "[p3]" "%3">%ggbsout%
    c:\binsub c:\rxxex.bat "[p4]" "%4">%ggbsout%
    c:\binsub c:\rxxex.bat "[p5]" "%5">%ggbsout%
    c:\binsub c:\rxxex.bat "[p6]" "%6">%ggbsout%
    c:\binsub c:\rxxex.bat "[p7]" "%7">%ggbsout%
    c:\binsub c:\rxxex.bat "[p8]" "%8">%ggbsout%
    c:\binsub c:\rxxex.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.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%

    :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.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 [.hexen]O~{.cr#}~ [mq][hexen][mq] [mq]'n[-s]cd's'bhexen'lhexen's[-mv]3'lcd's'b[-y][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.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.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.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


    c:\binsub c:\rxxex.bat "[hagnc]" "%agnc%">%ggbsout%
    c:\binsub c:\rxxex.bat "[agnc]" "/037agnc/037">%ggbsout%


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


    :scr99
    %nclrxc%%nclrxc2%call c:\rxxex.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
    goto rxxend
    :rrxx
    echo>c:\rxxex.bat call c:\rrex.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

    %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
    :bsv2
    if "%norxn%"=="" goto norxn
    :yesrxn
    echo>>c:\rexsv%2.bat 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%]
    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
    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%

    if "%wtfde%%wtfde1%"=="1" echo ---WHAT THE FUCK?
    if "%wtfde%%wtfde2%"=="1" type c:\rexgev.bat
    if "%befcm%"=="1" goto bef1
    if "%befcm%"=="2" goto befa1
    :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%
    %nncee%%nncee1%c:\binsub c:\rexgev.bat "[co]" "/013/010rem ">%ggbsout%

    %nncee%%nncee2%c:\binsub c:\rexx\bin\rext%rexxch%.r "[co]" " /013/010/047* */047 ">%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%

    if "%wtfde%%wtfde3%"=="1" echo ------How come this is fucked?
    if "%wtfde%%wtfde4%"=="1" type c:\rexgev.bat
    if "%wtfde%%wtfde5%"=="1" echo ------

    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

    if "%srg%if "%wtfde%%wtfde6%"=="1" "=="1" type c:\rexgev.bat
    if "%wtfde%%wtfde7%"=="1" pause
    if "%maco%"=="1" copy c:\rexgev.bat c:\fuckthis.txt
    set maco=

    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%
    %nosycer%%nosycer2%c:\binsub rext%rexxch%.r "'!" "[ce]">%ggbsout% %nosycer%%nosycer1%c:\binsub rext%rexxch%.r "'?" "[cm]r[s]">%ggbsout%

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

    cd \rexx\bin
    rem echo VOOM
    :rehhxxy
    if not "%nrexfp%%nrexfp1%"=="1" c:\binsub rext%rexxch%.r "'[*" "%3 %4 %5 %6 %7 %8 %9">%ggbsout%
    if not "%nrexfp%%nrexfp2%"=="1" c:\binsub rext%rexxch%.r "'[!" "%4 %5 %6 %7 %8 %9">%ggbsout%



    %nsbr%%nsbr1%c:\binsub rext%rexxch%.r "'[1" "%1">%ggbsout% %nsbr%%nsbr2%c:\binsub rext%rexxch%.r "'[2" "%2">%ggbsout% %nsbr%%nsbr3%c:\binsub rext%rexxch%.r "'[3" "%3">%ggbsout% %nsbr%%nsbr4%c:\binsub rext%rexxch%.r "'[4" "%4">%ggbsout% %nsbr%%nsbr5%c:\binsub rext%rexxch%.r "'[5" "%5">%ggbsout% %nsbr%%nsbr6%c:\binsub rext%rexxch%.r "'[6" "%6">%ggbsout% %nsbr%%nsbr7%c:\binsub rext%rexxch%.r "'[7" "%7">%ggbsout% %nsbr%%nsbr8%c:\binsub rext%rexxch%.r "'[8" "%8">%ggbsout% %nsbr%%nsbr9%c:\binsub rext%rexxch%.r "'[9" "%9">%ggbsout%



    if "%dirkh%%drkh2%"=="1" c:\binsub rext%rexxch%.r "'hh" "/013/010cd c:/092"
    if "%dirkh%%drkh1%"=="1" c:\binsub rext%rexxch%.r "'h" "c:/092"

    %nhhz%%nhhz2%c:\binsub rext%rexxch%.r "'hh" "'lcd'sc:'b"
    %nhhz%%nhhz1%c:\binsub rext%rexxch%.r "'h" "c:'b"


    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%
    %nosyxx%c:\binsub rext%rexxch%.r "'(" "/027">%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%



    [continued in next message]

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From blinkingblythe01@gmail.com@21:1/5 to All on Tue Jan 8 17:55:36 2019
    @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"=="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
    :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
    :testev4
    if not "%4"=="..." call c:\rexx scr [edvar]zootch
    goto testev2


    @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.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.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

    # -: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.bat "[s1]" "%yy1%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s2]" "%yy2%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s3]" "%yy3%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s4]" "%yy4%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s5]" "%yy5%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s6]" "%yy6%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s7]" "%yy7%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s8]" "%yy8%">%ggbsout%

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

    binsub c:\rxxex.bat "[p1]" "%1">%ggbsout%
    c:\binsub c:\rxxex.bat "[p2]" "%2">%ggbsout%
    c:\binsub c:\rxxex.bat "[p3]" "%3">%ggbsout%
    c:\binsub c:\rxxex.bat "[p4]" "%4">%ggbsout%
    c:\binsub c:\rxxex.bat "[p5]" "%5">%ggbsout%
    c:\binsub c:\rxxex.bat "[p6]" "%6">%ggbsout%
    c:\binsub c:\rxxex.bat "[p7]" "%7">%ggbsout%
    c:\binsub c:\rxxex.bat "[p8]" "%8">%ggbsout%
    c:\binsub c:\rxxex.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.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%

    :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.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 [.hexen]O~{.cr#}~ [mq][hexen][mq] [mq]'n[-s]cd's'bhexen'lhexen's[-mv]3'lcd's'b[-y][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.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.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.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


    c:\binsub c:\rxxex.bat "[hagnc]" "%agnc%">%ggbsout%
    c:\binsub c:\rxxex.bat "[agnc]" "/037agnc/037">%ggbsout%


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


    :scr99
    %nclrxc%%nclrxc2%call c:\rxxex.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
    goto rxxend
    :rrxx
    echo>c:\rxxex.bat call c:\rrex.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
    :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

    %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
    :bsv2
    if "%norxn%"=="" goto norxn
    :yesrxn
    echo>>c:\rexsv%2.bat 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%]
    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
    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%

    if "%wtfde%%wtfde1%"=="1" echo ---WHAT THE FUCK?
    if "%wtfde%%wtfde2%"=="1" type c:\rexgev.bat
    if "%befcm%"=="1" goto bef1
    if "%befcm%"=="2" goto befa1
    :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%
    %nncee%%nncee1%c:\binsub c:\rexgev.bat "[co]" "/013/010rem ">%ggbsout%

    %nncee%%nncee2%c:\binsub c:\rexx\bin\rext%rexxch%.r "[co]" " /013/010/047* */047 ">%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%

    if "%wtfde%%wtfde3%"=="1" echo ------How come this is fucked?
    if "%wtfde%%wtfde4%"=="1" type c:\rexgev.bat
    if "%wtfde%%wtfde5%"=="1" echo ------

    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

    if "%srg%if "%wtfde%%wtfde6%"=="1" "=="1" type c:\rexgev.bat
    if "%wtfde%%wtfde7%"=="1" pause
    if "%maco%"=="1" copy c:\rexgev.bat c:\fuckthis.txt
    set maco=

    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%
    %nosycer%%nosycer2%c:\binsub rext%rexxch%.r "'!" "[ce]">%ggbsout% %nosycer%%nosycer1%c:\binsub rext%rexxch%.r "'?" "[cm]r[s]">%ggbsout%

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

    cd \rexx\bin
    rem echo VOOM
    :rehhxxy
    if not "%nrexfp%%nrexfp1%"=="1" c:\binsub rext%rexxch%.r "'[*" "%3 %4 %5 %6 %7 %8 %9">%ggbsout%
    if not "%nrexfp%%nrexfp2%"=="1" c:\binsub rext%rexxch%.r "'[!" "%4 %5 %6 %7 %8 %9">%ggbsout%



    %nsbr%%nsbr1%c:\binsub rext%rexxch%.r "'[1" "%1">%ggbsout% %nsbr%%nsbr2%c:\binsub rext%rexxch%.r "'[2" "%2">%ggbsout% %nsbr%%nsbr3%c:\binsub rext%rexxch%.r "'[3" "%3">%ggbsout% %nsbr%%nsbr4%c:\binsub rext%rexxch%.r "'[4" "%4">%ggbsout% %nsbr%%nsbr5%c:\binsub rext%rexxch%.r "'[5" "%5">%ggbsout% %nsbr%%nsbr6%c:\binsub rext%rexxch%.r "'[6" "%6">%ggbsout% %nsbr%%nsbr7%c:\binsub rext%rexxch%.r "'[7" "%7">%ggbsout% %nsbr%%nsbr8%c:\binsub rext%rexxch%.r "'[8" "%8">%ggbsout% %nsbr%%nsbr9%c:\binsub rext%rexxch%.r "'[9" "%9">%ggbsout%



    if "%dirkh%%drkh2%"=="1" c:\binsub rext%rexxch%.r "'hh" "/013/010cd c:/092"
    if "%dirkh%%drkh1%"=="1" c:\binsub rext%rexxch%.r "'h" "c:/092"

    %nhhz%%nhhz2%c:\binsub rext%rexxch%.r "'hh" "'lcd'sc:'b"
    %nhhz%%nhhz1%c:\binsub rext%rexxch%.r "'h" "c:'b"


    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%
    %nosyxx%c:\binsub rext%rexxch%.r "'(" "/027">%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%



    [continued in next message]

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From blinkingblythe01@gmail.com@21:1/5 to All on Tue Jan 8 19:22:12 2019
    @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"=="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
    :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=[ce][cm]scr[s][hexen]'9
    :testgs3
    %nstesg%%nstesg2%set RXXCO8=[cm]scr[s][blagn]
    :testgs4
    %nstesg%%nstesg3%set RXXCO9=[-s][-mv]agnc[-mv][ce]
    :testgs5
    call c:\rexx '8%5 %6 %7 %8'%4
    goto rxxend
    :testcda
    %ntsccr%c:\rexx .go testgs%testgsjtl% m 7 -file caldera.wad %3 %4 %5
    goto rxxende

    ---

    :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.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.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
    @ [.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.bat "[s1]" "%yy1%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s2]" "%yy2%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s3]" "%yy3%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s4]" "%yy4%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s5]" "%yy5%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s6]" "%yy6%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s7]" "%yy7%">%ggbsout%
    c:\binsub c:\rxxex.bat "[s8]" "%yy8%">%ggbsout%

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

    binsub c:\rxxex.bat "[p1]" "%1">%ggbsout%
    c:\binsub c:\rxxex.bat "[p2]" "%2">%ggbsout%
    c:\binsub c:\rxxex.bat "[p3]" "%3">%ggbsout%
    c:\binsub c:\rxxex.bat "[p4]" "%4">%ggbsout%
    c:\binsub c:\rxxex.bat "[p5]" "%5">%ggbsout%
    c:\binsub c:\rxxex.bat "[p6]" "%6">%ggbsout%
    c:\binsub c:\rxxex.bat "[p7]" "%7">%ggbsout%
    c:\binsub c:\rxxex.bat "[p8]" "%8">%ggbsout%
    c:\binsub c:\rxxex.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.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%

    :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.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.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.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.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


    c:\binsub c:\rxxex.bat "[hagnc]" "%agnc%">%ggbsout%
    c:\binsub c:\rxxex.bat "[agnc]" "/037agnc/037">%ggbsout%


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


    :scr99
    %nclrxc%%nclrxc2%call c:\rxxex.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
    goto rxxend
    :rrxx
    echo>c:\rxxex.bat call c:\rrex.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
    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%

    if "%wtfde%%wtfde1%"=="1" echo ---WHAT THE FUCK?
    if "%wtfde%%wtfde2%"=="1" type c:\rexgev.bat
    if "%befcm%"=="1" goto bef1
    if "%befcm%"=="2" goto befa1
    :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%
    %nncee%%nncee1%c:\binsub c:\rexgev.bat "[co]" "/013/010rem ">%ggbsout%

    %nncee%%nncee2%c:\binsub c:\rexx\bin\rext%rexxch%.r "[co]" " /013/010/047* */047 ">%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%

    if "%wtfde%%wtfde3%"=="1" echo ------How come this is fucked?
    if "%wtfde%%wtfde4%"=="1" type c:\rexgev.bat
    if "%wtfde%%wtfde5%"=="1" echo ------

    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

    if "%srg%if "%wtfde%%wtfde6%"=="1" "=="1" type c:\rexgev.bat
    if "%wtfde%%wtfde7%"=="1" pause
    if "%maco%"=="1" copy c:\rexgev.bat c:\fuckthis.txt
    set maco=

    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%
    %nosycer%%nosycer2%c:\binsub rext%rexxch%.r "'!" "[ce]">%ggbsout% %nosycer%%nosycer1%c:\binsub rext%rexxch%.r "'?" "[cm]r[s]">%ggbsout%

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

    cd \rexx\bin
    rem echo VOOM
    :rehhxxy
    if not "%nrexfp%%nrexfp1%"=="1" c:\binsub rext%rexxch%.r "'[*" "%3 %4 %5 %6 %7 %8 %9">%ggbsout%
    if not "%nrexfp%%nrexfp2%"=="1" c:\binsub rext%rexxch%.r "'[!" "%4 %5 %6 %7 %8 %9">%ggbsout%



    %nsbr%%nsbr1%c:\binsub rext%rexxch%.r "'[1" "%1">%ggbsout% %nsbr%%nsbr2%c:\binsub rext%rexxch%.r "'[2" "%2">%ggbsout% %nsbr%%nsbr3%c:\binsub rext%rexxch%.r "'[3" "%3">%ggbsout% %nsbr%%nsbr4%c:\binsub rext%rexxch%.r "'[4" "%4">%ggbsout% %nsbr%%nsbr5%c:\binsub rext%rexxch%.r "'[5" "%5">%ggbsout% %nsbr%%nsbr6%c:\binsub rext%rexxch%.r "'[6" "%6">%ggbsout% %nsbr%%nsbr7%c:\binsub rext%rexxch%.r "'[7" "%7">%ggbsout% %nsbr%%nsbr8%c:\binsub rext%rexxch%.r "'[8" "%8">%ggbsout% %nsbr%%nsbr9%c:\binsub rext%rexxch%.r "'[9" "%9">%ggbsout%



    if "%dirkh%%drkh2%"=="1" c:\binsub rext%rexxch%.r "'hh" "/013/010cd c:/092"
    if "%dirkh%%drkh1%"=="1" c:\binsub rext%rexxch%.r "'h" "c:/092"

    %nhhz%%nhhz2%c:\binsub rext%rexxch%.r "'hh" "'lcd'sc:'b"

    [continued in next message]

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From blinkingblythe01@gmail.com@21:1/5 to All on Tue Jan 8 21:39:03 2019
    @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"=="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
    :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
    :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]

    ---

    :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%

    :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% %nbktc%%nbktc4%c:\binsub c:\rexx\bin\rext%rexxch%.r "[-]" "/013/010/047* */047 ">%ggbsout%
    :ebuquet2


    if "%wtfde%%wtfde1%"=="1" echo ---WHAT THE FUCK?
    if "%wtfde%%wtfde2%"=="1" type c:\rexgev.bat
    if "%befcm%"=="1" goto bef1
    if "%befcm%"=="2" goto befa1
    :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%
    %nncee%%nncee1%c:\binsub c:\rexgev.bat "[co]" "/013/010rem ">%ggbsout%

    %nncee%%nncee2%c:\binsub c:\rexx\bin\rext%rexxch%.r "[co]" " /013/010/047* */047 ">%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%

    if "%wtfde%%wtfde3%"=="1" echo ------How come this is fucked?
    if "%wtfde%%wtfde4%"=="1" type c:\rexgev.bat
    if "%wtfde%%wtfde5%"=="1" echo ------


    [continued in next message]

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From blinkingblythe01@gmail.com@21:1/5 to All on Tue Jan 8 21:26:26 2019
    @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"=="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
    :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
    :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]

    ---

    :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%

    :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% %nbktc%%nbktc4%c:\binsub c:\rexx\bin\rext%rexxch%.r "[-]" "/013/010/047* */047 ">%ggbsout%
    :ebuquet2


    if "%wtfde%%wtfde1%"=="1" echo ---WHAT THE FUCK?
    if "%wtfde%%wtfde2%"=="1" type c:\rexgev.bat
    if "%befcm%"=="1" goto bef1
    if "%befcm%"=="2" goto befa1
    :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%
    %nncee%%nncee1%c:\binsub c:\rexgev.bat "[co]" "/013/010rem ">%ggbsout%

    %nncee%%nncee2%c:\binsub c:\rexx\bin\rext%rexxch%.r "[co]" " /013/010/047* */047 ">%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%

    if "%wtfde%%wtfde3%"=="1" echo ------How come this is fucked?
    if "%wtfde%%wtfde4%"=="1" type c:\rexgev.bat
    if "%wtfde%%wtfde5%"=="1" echo ------

    c:\binsub c:\rexgev.bat "[-c]" "/013/010rem">%ggbsout%
    c:\binsub c:\rexgev.bat "[-x]" "[">%ggbsout%

    [continued in next message]

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