[comp.binaries.ibm.pc] v01i024: elf, query from batch file and set errorlevel

W8SDZ@SIMTEL20.ARMY.MIL (Keith Petersen) (11/19/88)

Posting-number: Volume 01 Issue 024
Originally-from: Mark D. Pickerill <no email address>
Submitted-by: Keith Petersen <W8SDZ@SIMTEL20.ARMY.MIL>
Archive-name: elf/part1

ELF is a program will set the specified error level for batch files.
It was written to fulfill two needs:  The need to allow operator input
in batch files, in the form of Yes/No answers, and the need to force
ERRORLEVEL to a specified value.  The former function is available in
several programs, but the latter is not.  ELF combines both into one
easy to use program.

It has two modes of operation:

1. If invoked by: ELF <CR> it will display: (Y/N)? on the screen & wait
   for one of these keys to be pressed.  It will then exit with errorlevel
   255 if N was pressed, or error level 0 if Y was pressed.  With careful
   editing of prompts in a batch file, this can be used to make run-time
   operator decisions in batch files.

2. If invoked by: ELF XX <CR>  where XX is a two digit HEXADECIMAL number.
   ELF will terminate with the specified error level.  This can add error
   level processing to programs that do not support it by chaining to ELF
   upon termination.

The ARC contains source code (A86 assembler), doc file, and executable.

--Keith Petersen
Maintainer of the CP/M & MSDOS archives at WSMR-SIMTEL20.ARMY.MIL [26.0.0.74]
Arpa: W8SDZ@WSMR-SIMTEL20.ARMY.MIL
Uucp: {ames,decwrl,harvard,rutgers,ucbvax,uunet}!wsmr-simtel20.army.mil!w8sdz

[
Enignmatic public-domain-but-can't-be-sold status.

By Mark D. Pickerill, 9 Sept 1988.

checksum     size (bytes)  file
   23974         6107      this uuencoded posting
   13212         4412      elf.arc
-- R.D.
]

BEGIN--cut here--cut here
begin 0600 elf.arc
M&@A%3$8N03@V`%Y>7EY>KP@```<1``#;<8`.```,.U1`0M)`0<`$D!*H*'BP
M"!,C+H+@L.$"!`@J:-+,`3&'3ATX:<B`@"/GS1DY8=J`N).&#1N.9>B`H(.F
M#$<X9<:D,9.FC,@R<DK*`<&FC)TR;!8:5)'`S)NA8L+0&8,&!,^B<RJ"2"(3
M39B-=.Z\`='F#9DR&]^8`?$&)THZ:=ZXT6$QR=HT;NR\6>,3A)@\.I0V?`B"
MQQ`I/D"DD<G2)0@R&N&P"0,8!(HL+YRD^,'6S<R:',?(*5/&LXF5819;?=JY
MC$*&3-5^1FN3;QZP8\78)(EVCD^M7%>V?$FS-(@R>%2SI'D\Z-.B1U\*9BJC
M1@W%:YV@WLA[CF\R+-@.!2J4J%&D(&!@!Y%E^\C1WG];O+(8S>NE"<:$&6VF
MSDN?B^%U!EMKD?1&&W#0L1%>((3AEU146=52&>'1I!$(^GFF&PAU?'??072,
MU488?($@1QUNM`!7&S:U!914K)VETQQQN;&@AA!6=15:+B3P(5,8V>3;&'*)
MA)=>^L$EEV)ST`6"0T:`@`46A1WF0P)7U#2:E%1>Z&!88T%VAFK3)8!$$5@D
M04010R311!!,@.!&'6WH)H=64`KG&!U`M8&75#8M5U5Q-^6T4T]D_)@`>:Q!
MAY16&%V888-D_.3<4(Z^9.`8O0DXTU@&GI32'(K2)-5C8[GQADQS?`3'4S*I
M]A>&7N'E:8A/$O;1DGS*X:<;4M788YE2E,%BG4!]=BJA44VEXX1/2B'%$U(P
M4805#F%XX(ANB"07&WDT.`:G"9):IHQIC/@22I#AT:`<9]!9FH):(8&<>QWV
MY=10>;Y1ATRRP5'':(I.I@=>O74VVTC[`;P6H:&BU`:+<H0`@H^*7B''8GQJ
M6!D(3>RW!@A$5`1%&F/PM;%+">0`PA1E)%A1##G@@`.DH.4+51G[F0M;`F$X
M!M^K-J8A!AN+A;OO3&C!Y<:`I^6+)V$=A='M1DNC4$0*ERJ*`A,IG/<2"D:D
M,&%X0=/D[QF#@@8LB^[A-0=(HXDT*Q5OL+%&3VZPH&A96YKJF=5Y6/CT<6SX
MIM403TSQYA`<^B8'6"3:I"J?(?A89D+3#500Q@GL4-!A.B101!15)``#$4CX
MN`,(0^RW<1AGV#2:1W*X4=!#I9^>.@Q!M!XZ"$P@;!5I9!14Q!-&](YZ`C$$
M[_J3W1(H85&?8RRZ`@E0>X3J,<``@_"O3T%'P];3`4<8V;NN/.\)*-$$%`E,
M04404E`QO1)TPL%P1\<YPUB&I"3=<4][GR."$!)P&!8\A`4G@%)XBG`IXHD-
M!$:8T`D2N,`&/O`$0@A7$UQ0,BA4Q&4PDQD(:&:S$[!@>49H7^@*8C_\4:%T
M4*C"%%HWA"E,#V8R(8-4'.2;,[#(#73X'!2>0#\B^'!X7#G!1GR31.[E<(<)
M<.+TCA"3SURHB$>L8@*62+\B//%U0:@>%8^SD:^L!"EL^%P3GF"%^B6!!>+#
MP?B&!X4WX$4FN%J?Q&*2+)X@Q4B>@</<Y$A'!C*!!5N80A*ZL,4N"C(EA,14
M:<Y`D\]1RY$L&`(3IF>$IW#**I,YPQP^IP0M),`)3,1?$\Y(LK'DX04&3,`<
MZS@$).!QC\/3`E#&0I7=/8&),2A=$IPP!#M.KX]__!1'SB<'AS%LD+U:)?=V
MF0`X05*2E!P>%V7R%SY9I20JN22+>B6A0WYN"//KYB-/`((3_'!]G/K!YYAP
M3"BXDI_(G-X54B,3%,'E)7GP%PAJ)Q,'J2I%<PO#*:FR'U:Z$I90D"4MB6!+
M7#*RCL%C`9PJV95[450.GUMF,R4Y/2<@IZ3N.NE'Y?G-29*4*'/(Y1#@-,HC
M%($*9\+"](8@EZ-44YHUP</GL-#+[X5TI,,SWU-L<IK;;>P\9,GI.WF:`)\"
M%4U#+2I0Q,A4)#C5EU`MWW(B%)64?2X(1"!"-]%*/M@=""<V`A2'X.`6.>5!
M#$<KPUOC.E>1DF^P<GWJ8;D'U\32=7I/6$-XT@`&E<"E;M8KR?GX-(<0>%(*
M-)7>\"+[1CF]X0X@\,I1V#(P.=')3C,-*0UZ.;TF=*@J9'@#6/KT)SZEU`GZ
MDT$,ZDH%W@++G((JE$X,::GR9$J&V_-J4$L'3_IY4P9&J"L/9&`&?7)/":.D
M0A&DT(2P(K$D;)CL&50UFG?&TYLTL$%=?1!?[\;O>^(E[_2JP%>@M$`_OEFH
M>!HDAC<<1;WL%2SWJDO3&>1`NPZV+WB+\,HJ-$$(XYU>%-OH6F2A=,'O?20-
MACL]'HQ8PN$=;WFA2`<I-F@D*!J#1X(EE_#$9`RO2\-ZI[J[G^:W=(VE*0P>
M/#V7C8@O8`%-XMS0@Z2"P*@T6I)L\"*P*CK!PAB6`I"=D-A'PB"[/Z3#QOS7
MAIR&Y\AHZ;"=-N+DTY"A?]H$W>NJX!NL;*3,GEE:4>B0S<])X:?:`X%+*WI`
M]RD@OTTH'3>#@`46S!8&)'[=$?83E=I=$Y-]YMXR@TOB&1;:TTTPXQ2"X%,=
M*#`!)[A,9C9#`GN^+@IU:%J-H%L0C&I4!XOVY9#K"H6-(7&:OAY0?]P@XUES
MSUI!R&*C0SV%4?N4CWY$XF\Y75>.*L;*3"R"HAL94DC7E:@VRIM-J/RO:2=`
MN'4=)ZT(W4TNT[0&8!Y>R$KDJF0!6,$,##$$LV#/X64!+1)V91;,.+U_QYG!
MWCR!$_K].B>\(>"O?$+!T<+*>&*4PN*D-.THI)@=M_?3VQOX%*C+U<,\Q'53
M*`*785>M&&Z3VXU^]!Y?1T'G7E`]2\L#Q34-W'-W^G57*,,)MI21CCPE#[5^
M`LF9,$J3&P'E*B<"RQ\2VY@/P0A@IGD%,V65M2Q-5>9&MT"%3G2-A$@.2%>`
MT[<-4EW+@'R,@V45J(#!*C"3"DEX@A-F2@0OLP[J*S],V'].A"=LA0JQ=3O<
M]?Z$N=?][GG?^\OKV'<\BG8'*5\YU7E.;=<5_O!^!K3KG%`$_'TNZ@A4@`8@
M$0$:`D5,1BY#3TT`7EY>7EX``0``!Q$``&_9``$``.DP``T*14Q&+"!%<G)O
M<B!,979E;"!&:6QE#0I">2!-+D0N4"X@.2!397!T+B`Q.3@X&@X?'@>^@`"*
M#`K)=$FU`$:*!#P@X?ET/HK@1HH$Z!4`AN#H$`"&X`+D`N0"Y`+D"L2T3,TA
M/"]\$3Q&?PT\.7X&/$%\!00))`_#N`%,S2$H62].*3\DM`F-%H(!S2&T`<TA
M)%\\670'/$YT"^GO_^@-`+@`3,TAZ`4`N/],S2&T`K(-S2&T`K(*S2'#(;0"
ML@K-(<-I;&5S+@D)````.RH)5&AE('-E8V]N9"!I;G9O8V%T:6]N(&ES.B`@
M14Q&(%A8(#Q#4CX)5VAE<F4:"$5,1BY$3T,`7EY>7EXT!P``!Q$``(V3``P`
M``P-%("`)*((B!8@F!P$821@P($;4!1)(4?.&SD@0*!@DJ*,G3)L,J(PDB(-
MFS(.!4("0>3-F#IMRKBA$X9.FC=N4@9,XH2*E"=$J@RADN2)$QTIBS`Q`N).
MF#E-Y:2A0T<F"#IO0)BI8\9D2#IWLKHI4X;,'!T9J:`I`V)LV:M9P[!A\^8.
MB#=PRLBI>1%$&C=PZM`)^!>$F)ICT&@U668."[]NKJ[5>K'-73,@LC1^X22N
MFSEW]#H&$<8-&<ELW9[&2EG.&)0*BDCY*85)$2M*X9(&,2?OF#1=W]J16Z>,
MB[23S536J[6.FS$V<?J%&F:XR3!B3D(..,>C7KD@X%@\L[?-:#&"48-@4[,J
MQC10W;RA<QR$4J9CWK01\[>QX?F*_<4:3K"5\50>NM7177CCE>="2D0D,<40
M3`211!.R(:5`0&K!Q^`;Y(5AF8=PL/?::871,5E@V:4Q!@ADZ!?&7_5!H5<;
M\,UQ4V0>ACC36P&QEA\<>3QV1AH?D>94D:29!B-\=$B%7E62D1C&&&N$<89Q
M&=DH!XYSZ"@=?`&5@8=XC<W!!H)DR)3&6ZR5E@>!NG4W5Y50S?&&&6"%(4<9
MCP'(G(JEM:7?7W(%E-\<=$"E'$8QD9%&&/6IQ9:"S(EAH!S4W?EG;SCIV"(=
M"#YZ56,VN7$&"":`@.F#"B2!V7U7U2''9W>EQYJFN]F1AAP*2E934VGD!=4;
MZ<UI*PAH^$F&4W\^IBRSU<$F7PMT[LI>3(8EBRRG()E1Z61ZVOH:"/FU.1UD
M8[!11YNGF:HL1G.$8489I,(JJWIPO!%F&J,BN.=5%JE1*!H7+=B7K\!")1Z(
MY4$E*:.VB@&5LH^5:&!WBOI9QE9S(6BFB/VI5ZYK;*4+:).KK179GRT\U=U^
MVDT%PKQVB@N"K`%-*RD9;IQ`!PA_OH8D6RJR=?*Y*C^6],MEQ%$<HWX-;89%
MEB7-V[?G7JU?0'>@X:)BTQ9=QM$M>Z@GG]!R"4(0;+CG1DT@,=FNOVS]U5L9
MT.U(K(H@!!0&C&6@=\:6[T%5V$5MRE$?K1[^*=>:NT6)Y*0A/1QB&X_I^>0<
M,8=9!LUY$`;5QGG4ET1D5])1AUQ3,9D$M4EJ:I6"?ZT*11TMOMA2&S-&MG:?
M?[9V\Z9S".YDLTFJ,-9'<JA`[6ER?IC=Z*-YKC5V;R3IH7Q#"R@3O+H!OP9L
MT\+A9VEOI$&&ZN$K_J-I<&;U<%70J1>&8`AC-+"*\'E,:5K&EOVI*&$!&=CD
MUE.&(]D$>%1B$1M<!",9+8Y>S?I3V[;&-H\]S@UJ>$/J=**`*DRA"!K:B1OL
M\(;SD>8L&:$5%K```AX,00H^R$C8],*6&:YK<&#)BJ0<"`(D%`$+22!"$89P
MH2`HQ`TPT93C,H($,X'M*:[JSFF0-;2!!:9X[-%#?\)TE\AH37URZ")FSM@@
M$<5DBO99"K'NQ)TTM*%$"'(/CN9&I3M,13';@\/#X#`I*LF&-K;!C4*Z,S0_
M'C`]XA%0[IJ4!P"J"E8=4AQ4,`4RXXF`)EC*';;<(`+[S.8)M;E-;O(S$XN$
MQ%2'H4-B%G,2J#@2#0'17,2$-;08!6UH<ZB#("\RM$.B,I%*J8\0@C"%)`SA
MAR`XPQO><)J1W?$DJC-#0(#E!C=,<G#+;.8S=2DB5]$/(X.+Y2P?]IHP/28Q
MP=,-K80I'3TB*CHY40!K&.DJ.#3)E(A4I4+0*")\Z:4^4AC=Z*3(RZ:(33OS
M[`Y4UH('P<GA##"12:.<-AECIE*1O*%)56(R$\C<[%N&08QBNJ(=3$%%:VWZ
M#?#84":I(4DNI:%/2BQUEZ1AY%$C@F$<F6)#'([+0WZ\4R1+BH(L<"8%/RBC
M>EBIIY,(T#17M)FIM):%NV#$"2`X7QZSPBLTB>Y]&BG"'YDSAJ>4(07U@5M(
M!(41L5+G3X0Y@WS^A%809')=Y#&0U?K"S:O8D2UX^0Y6W@.8]-PRI;)<*6/F
MH+J`8*IJ)FT#@H)0!2H\X8A+=,$RJ4!+I,5E#FMP*+[6XC^,@$\W[;F28C0+
M`N`EIC]!R@I**^2$^@P!63.IY;%\FD7_Y*<.;#@-KQYY!C2H$7Z\P1=4/(I,
M)N06!#`PWN"Z^JE^?69E`]2-#&I0`^V"`*S=#95Q`E($/(A(8RF,S1"0\`00
M/,$(#5$`A:80D!;T=R`(V$-"J38P=4KV)'WH+WOG6U\F@"A%8L%76.2PAA^P
M=RD[80IU!0J"\9;W"$_PK'V<0(2`.*$(5+@"*I<PD`,(V#GG1;&*I;`$T0:!
M"@E6@`Z*0&(2_O5A9*A#.^/K7P4@!!(!?@)Q+7D&^4%VEBPM0XZ+[.`CF3'"
M0:2PA170U*=N.26=J0I:=H8999W@-'LA[FN9A[3)=-D)4/W0'>GPF+,1%V8R
M6^A)@K2B-G+.J^%1J<DLIZJ_*69P;3(<XA!:AA)=J<UL08&A=T,"6&D`$BH`
"&@!)
`
end
END--cut here--cut here