[comp.binaries.ibm.pc] v08i111: el, set errorlevel for batch

ibmbin-request@crdgw1.crd.ge.com (10/04/90)

Checksum:  678813880  (Verify with "brik -cv")
Posting-number: Volume 08, Issue 111
Submitted-by: davidsen@crdos1.crd.ge.com
Archive-name: el/part01

  I recently saw a program to set ERRORLEVEL in batch programs, and it
was shareware for twenty bucks! Here's one for free, complete with
source (all one executable line of it). No fancy screens for help or
license info. It's yours, and worth what you paid for it.

  Included is a test program for this or any other program which sets
the ERRORLEVEL (test.bat).

Usage:
  el {value}


[
Checksums obtained with the 4.3BSD "sum" or System V "sum -r" command.

checksum     size (bytes)  file (between BEGIN--cut and END--cut lines)
   57889         4121      part01

checksum     size (bytes)  file
   18677         2971      el.zoo

-- bill
]

el part01/01
BEGIN--cut here--cut here
begin 644 el.zoo
M6D]/(#(N,#`@07)C:&EV92X:``#<I\3]=@```(K___\"``$J````3``!4')O
M9W)A;2!T;R!S970@=&AE($524D]23$5614P@=F%L=64@:6X@8F%T8V@@<')O
M9W)A;7,N"@I5<V%G93H*("!E;"![=F%L=65]"MRGQ/T"`>4!``"]````'14\
M6%%M8@$``"@!```!````````````96PN8P````````````H`$%"R`````*0!
M0````$`I(R@``%^H`#&G#!T01:1(>2*%21$K19B`,/-&#H@F4UH0>3)%`0@5
M'@<.>0,GCYPT9]`<1#$F!8@8.7+``"$F#P@A:=BP`4$DC)TT9`JZ80$BC$X0
M)U/2F8.T3$$Y=LJ0"0D"!!4T:9C"D?/FC)PP;4"T"6-33!D0=0J2`7$G#1TT
M;^H<-%/F;,VB;O*\<7.6HL4P>4'`J2,'SIN"+*C2C*N4Z)PW;,@0%1-&#ITR
M<J02K0CB3)JH;HHR#0."S!O.6]/H*4,4\-JQ9<LH)I.5SDDQ<J6"2!,:L,VQ
M;OA:O.M[;QD7"E2\4*!@+&\4E<^,81'=3@J/N]T<C#YF!_8Q:"I_K+ZEB_<]
MV,O@<0M=CG0?,4#\*$KG39KV9^QLB='%I0X0,*3@71\*!`3<I\3]`@$."0``
M+`(``!T5/50#RH<)``#B!@```0```````````&5L+F5X90`````````*`!#F
MLP````#M`4````!`*2,H``";:#D4H````@!```@$X-^_/```(!#T`$=$`!XN
M!@"@`,`7`$,N-KL(RN/%DRA3JES)LJ7+ES!CRIQ)LZ;-FSASZMS)LZ?/GT"#
MXJRRB-T,8.BD`1CDAT``/PX6>3'P[XX`=-F6$A.P3L`*8%#060HP:&N789!H
MP6@6@H>`.0*:@?BU!<`B&P(`K+@7R!\`"'(&^/JKS]&U0,2\!=@W!X*%#^@B
M"#@:UHH`7/^8L!U$SI^-1":0`/AL@HA=8[$(3`.'Q,8H(0`&W$N$%P"C82N\
MW=M&2PE;&XP\[`)@X0"_7]@"Y`(78,6SH_-4/497A3AD'P30M9K<[I\-;@UM
M:`N/#0`Z)/_"\@.`JZXC;+@&C#YFP`@`9`'"5@J`KEL`S`!`\8\%]F6Q"#<K
M8".'`CMXH`D`<A"PR#C_A'-4.MO\DTXY&ZG%UBB]L`=`#6PEXD$JMAFP"@`.
M?(`+`"7HP@P`;#VVB`/T`#"."XX8,)P)=[$`0#$&V&.;-C-L8\,_'L@#P!P%
M/)9./0'80*0^1^XBWY)-6M?CCS<*.8X-C@0SPS\F`-(#`'2PD`L#`/C""0#S
MF$+'`KG\\\=1\KA21P;KE&.`!P=\L,@]OQ`#`"N81,**/\#0$0`2JHASSV.[
M(`3(*8K^\B(1;"UHCS"`T%$`((\H"L02>9SCBU^_^(6.*''"*JLB``Q#%#N^
M)(<<?WW4"D"LYM$!P#H#[/KJL+*:(2RQZ+!AWA(!+!#I`DPA5$<!QQA!P#\`
MY/(``+L89,\AB@9`!P&T^,#6$.+(@\X!=GE+BV8AW)CC.`?LDA>33GI0C`4H
MOE@"6Q\`XH,Y$='1@`>@G#.D!>@`0,O!(7PPS`[WS*'`$T\LTL`X]OP3S3KR
M;-RQ`X.\(V$!"Q0A`!WR_-/!.NX,`\"NN*P75A!+^<!.P]]:,#2`8;U@5SEG
M[6K%%80N8@4!OA@00"L["$,'!$!80@<#EQR5YS]]'KK..I9\X<4B3`N3UZY7
M_&-'=LO\8RT=%$BRB#YB.]3G/=$DX:_%0+#U!=M=N+US45=8L<C<1V62)"L\
M@$#'/CPD0,<]4/#0PKH\K%!'`)3G<,<'+,`@QP;1C!.--(LLLW?KK],NS0#9
M3'#-`-@,HM0ZW&#A^21U''!/[TK=HXT77YR%2U[I9-*/%3/8DPML,I###RLR
M@"/./H#04X7#Z'#P#RX;A07&^1MY,<PC!K@#@"YYX6!!B'2D\"4`)O0H)",&
M``<`(I<+``#B3'WRTSZ.<(1$^,`;X?*;*P"WB&C\8B.^8(@CA+.HRETN<YOC
M00/H\`8%1&H-1W`"Y2R'#A"20X1TX(()Z2`\$="!!#S@`AT&((1UD&,&R0@"
MY72H#Q[8D``#.-DT%A&,:*1C`M%`10#JH(QU!$"%,%S!#$]@1#KH(H<[[*%1
M@CA$.A3QB$E<QS:8Z$0H2K$.TEC')1[CP/(,X!I'B,8Y[@@(<?AC!>)8!#%&
M,9Y%8&,`^RC.9WXPA"$4PP809(4J3%@'?61P-!L<#K*.HHH5?E!S]Q!A'0:0
MCC]P!!BC7$<>(+'(1F+1<ML`X35@*(89>J&+7-3A`%3A0R`*$8QGI(,!8,&%
MZ*PC&L1T8G3F,$P1\+(86!RA"V:H@B[>`HR[7,<8?TG$+@ZSF+S,1C+3L4Q+
MP,*9ZV@&)Q]S#'HUQ`3RVU45,CG`9#!Q$>E81#Z2$"0`+,`>6W.$,=+D@XL(
MLT]%\),^BG`)()#`'XOH1S3*,8"!?>`*OTB`>6+@D44\(Z(#P$<B7``>0CG"
M&]5+PC@F$`@>[&`(IDJ$'P!0A")(DI+Z$$<[$N$$ZW0!<<-8!#0&8`#1R*$&
M.3``;.90@@*,"PK1P$8L!C`-=#`B&XO@X`J6,8!@."*HV.@-6[`@!PB0`!Y(
M>`T`*K$(%X@F`!8035"/D8X<[",G39@""*10!S>T@`II:$,90,"$-(A!#F&0
M0QY`T`(0#.$-<,B#'-)P!C30`00H&$,*0!"#'.``!RP`01/2,`8YO&$.;S##
M91\K!SA$`"7?V`@`ZB*4VL)$-.`0P$N_8(0D,*$(7TB"$XSPA)Y08"&!"$0`
M9&L3<<P6)#[A`0^<D-<C^*"@`)""#6#`W08HH+%SH$,8QK`&$+S!#F60@QG8
M\(8[>#<VV=TN#&;@W<:FP0UT*,,9T@L",J3!#FD@PV#%L%@8O%>CVN5N#NH+
M`C>\X;)E<'`=*@N".<!AO(,UPQOD`(((`]BT;A`L?M^[GO>"2PY]_5Q@!YM>
MTW(8`'E),`QDP.#UOB$,=+CO&4``AS?<][(.OBQ[PR!@,KQW(S*.`8/=4`<V
ML(''/L8O?\,PASE0-L01=EA''/*/@`#<I\3]`@'E"0``50D``!T53E9B;;``
M``"0`````0```````````'1E<W0N8F%T```````*`!`B40````"D`4````!`
M*2,H``"!E!F#Y@V(-V;,-%`PL"`(*F7FT$GCY@R(,6'8L`%!QV")&"Q`P`DC
M)TP;$"5D+/R(4B5#@@:+R)'S1@X;.QM[H"PSLR:;,G;*L%F8Q@P(GC1M`A7:
M$L29-QU!/%D3)L]"'147-C0XI0P=$&;"I/E)9N'3J'=*PKDZM:I6F""Z?KU3
M<TV9L@ITI`VS5L'"@-RGQ/T"`6,+```L"@``'1696,^A@`$``#<!```!````
M````````<F5A9"YM90````````H`$'U%`````*0!0````$`I(R@``$&`2`)"
M3IDQ9=S089,'Q)PP=T"$`0%'SILS<L*T`4'GC<,R=$`4D2+EB10F1:P480(B
MC1L08L+0&8.&HD6,&N>PD.B&3$LZ"NZ$F>,031B#0@V",/-&#L<[">DT%%-G
MS)HY(4`@*6/P!-$W;LHL;;K48)F=8]ZT@<,&I-@[:>B@43#G31TY"$&@",.&
M#0BP8LO@.5B'3A@Q;4&P<2GVC9F?*5R`<.+13!@W8QK.&6/6#5&F3M&480/G
MKQP%BQ%Z%NN2J>0D=+R"R&-7CDZ>/N\TE0OBCM&0M.M0#)/&)^B?+A0H$)@$
M,YLZ9,KX3$-T(ITR<T)6O)AQXW&YU$WS;/A&+E>;W#7V1I.&YD<Z<Q28%TG2
M)$J5+%%<S^XB)IW(RE7QT!EEZ+`<"*.!L(<=?-511A\*!`3<I\3]`@``````
M``````````````````````````````````````````````````````````#\
!@P``
`
end
END--cut here--cut here