errorlevels in QB

 BBS: Inland Empire Archive
Date: 04-07-93 (00:39)             Number: 319
From: TIM BENNETT                  Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: errorlevels in QB              Conf: (2) Quik_Bas

POSTIT 6.0 SCRIPT HERE-IN

This is a QuickBasic object file for setting the errorlevel
in Quickbasic. It can be linked directly without the need
for ALIAS ect or can be made into or added into a library or
QLB... (but WHY would you want that in a QLB?!? - exits the
environment entirely)
What this is, is a weird hack. About 5 lines of C++ code
compiled into a small .obj, compliments of Mike Janke...
which is then called into a basic file via ALIAS also via
Mike Janke.. then I compiled my little file which has the actual
SUB in it.... well anyhow I have tested it very well with a batch
file that traps all 255 errorlevels... it works.

'DECLARE SUB exitlevel (errlvl%)
'CALL exitlevel (any from 0 to 255)

Enjoy.

~PostIt! 6.0~ERRORLVL.OBJ~Script starts
a6(muKus9KumzftUiuqtPoIK*0uAJj3BZ9Mz0bsu1L2yRjuqtL0qGm0BTbxASvMCG
qJl10aIj)bk0qp1en1qgIg)HgZqwDGLKc(hi0qFn0tevubcXuqoT0bcn0xwfKutDG
qd91ufD0ugqurcrvwqzarfj0uz10bcj1xefevbDGqs91ulL1ugm0tn10toDGqd9fr
brvqh4utbXetpnecf5utbXetpnubcn0xgrvbcn0xd5ubcn0xenLbcn0xtfKqfi0qF
nvqhqcjuLfufnvcKqYuz1KqpX0ugq0rs9uvq1qrsj1tsXKvm91qprur9J5baGMway
HabyiMh(A)cdeq7yE(Ob(jmqaSJ5baGh(OWabSnMh(sgaWceeWayE(yb(mqqa4J5b
aGf(0abbCpMh(s(GdfeqbyE(Ob(puqaKJ5baG2)rbbaoMh(s(qefeGayE(ir(suqa
9J5b(c(qXbbucMh(i(WegeWjAIbav8Va$pW$e8Fb$BW$h8pc$NW$k8$c$ZW9CU(ef
(beqccqWafSpJtaWaKe0qaqajef0qauGyKmxzNba$GI(m.WeNg(ZaqqabWiO0aq)G
ySvKus9Kumzft/////8$$acXvCEbaeJbHeqSdewaXqqicedcHjqmdaQG(egJyaGbc
rsrojvqayGqKmetpnfaf8vz4LgDa8aOHaqaWaq6(qU(GM+mdWqPj+lANb$tJM+ecN
n(Zhyfbm$GvfWCgwzWSGA(bqd)qjmM(giejfH1ubbGZGY(b0eaAc*GYc(OCw(mhGv
hudOgaqaXaGiayaKq)bKqryLevmvKvfX0m(qCGE(k)$$FaqXycayGqKmurobfazdA
caeqvaOj+NXzbaWCawHankk(bmh
~746~176~End

---
 * Origin: Home - FalconWorks Software Ltd. (1:362/466)