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