'===========================================================================
' Subject: RETURN ERRORLEVEL OF SHELL PROG    Date: 05-29-99 (13:27)       
'  Author: Keven Coots                        Code: QB, PDS                
'  Origin: kcoots@geocities.com             Packet: ASMCODE.ABC
'===========================================================================
' Return errorlevel of shelled program, assembly code included.
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"ERRLEVL.ZIP",4^6:Z&=2046:?STRING$(50,177);
U"%up()#9%'O[-%Q)'4KrY797_*7%%Z6%%%,%I%%4AJAS0BM<d&<,>T[5rw=9xfZu
U"oA#+]si3..;9Ohew*k%P-e,CDU1%&Rv;(8Y9iXO/l0N8LFqk3De]K.g-;ljgGpu
U"UV<\s5ij_llRK[cvZrYM>muLk5[N3Dl=L.]uX:O8A*DRbK_Tq>0%.Zc4^^0_(y%
U"NJCO#,8Q3:i&+oCebaczC9[gm_K,_5%EqA0.?Nr&W/en8eGrsk'(WhpkKOKRZ8Z
U"m#aS0PW&iUiSr&+PN9cht_7'q\6[G5cgwVO>s$;\4'^$O#QMU/[Oymt4g3>-(tt
U"Gh*p58StCM]bAo2Q]Eoj(g(2[3[_3p^NK-IgrpkIB.Va-7o3$%G.'<.a-%cwCT;
U"qSVIuQ7_HA$vd1<F2W=;m*c(P#V7rkhdTmL0r4gu=)R<7*AHX_a$R=<9-=3O;k3
U")]gjRQx9.dH5n&3GOtA:WRZv>+G94YQxac:TB^u2v?f.'x>k9XR5h.N37lG\5]m
U"jKEV%0I+j%=Z5j]Ilg:v(uLjvfA;/CtJAgxKH4L)/P>Z2DF.YQ5M7YP^[n)))E3
U"w:UkThSDh#8sw8kFeSCanN6Lo'/9U0%=km;sa'kh+HWkwsE>%lTIXE/t/jO1Ze:
U";P*,oJTSHtFmJomPg>.Z>JhD.Cpg%>SI(HK64O8%KqzSH5GG&2AhOUp(]#FZ)+U
U"L1+wbwJAn5>.#tKUe)kxQNo=ob>o(C'61nm.jj'$K,Gz%cMO]qaNnGxcvjc8lW.
U"DzQXn'%If*m2BE'YV4is;pkgWcE5V-trY<RAbGc006E5K+9TLC9E2]gkBbt^%QJ
U"w92Q82hf*jP1ss4%&8sT-ixm/IW=Ut^enI*.kgaEoe8$caDE5WGo5zoc-V\Q1ZV
U"Cs/GJSz/Z''WPR3h<<Uz6:&ixr2q4O_yEi,L[W/mDxCQvciJ]u]&Xg1Empa/lhc
U"BtZT*eX,DNaLn/8h?ZJAL(3V*P=97'G#d_qX/[*$%IX6)2u%-h*<-]SfMZ1vp';
U"Ltub<N4Tae\5E/ob.31>D/20uKppI%0YUUZcJ]_i5aAer6uSRYoeGj;rfCV/Oo%
U"i5#yRw8Z:?B8:Ik52VA:2F>Lg9GZ:0a&)fN1yPO$Wr4#%EY#-X[6;Bu$9(2AvUQ
U"-.w=(/5Y(Z=Xwka5OV1H7WBrXOh+qb?FY/JpNA3jp[kSgAU1UD0>C61BAn>-g)4
U"HtU$cX;i/YUB/Ntic4dD)7Esui7\I[mD5kT[CEu.?Va[znkMC1CacVUSB^OAE?Z
U"jb/8-A&bLY*bt42a[kWWh<M[MIo=Zx,sM;3Q.O5T+:;UO[#8VTK*'Sa?&cs#8l7
U";r8#9^2dTq5M^^?n%SjL'=g,4p^aFZ/t.1s>oW2sNeq1_6slr)Fnk?C[.l*agHG
U"d>aKbfHh7NZM5zB<fH&AB:I]$Cz'4[gJK(U=t*yGp/?yu^ARh6]W>c(OMcwMKIT
U"xZ/n<#Pwm$3+P&:l=oR$:\IR?/o:u)b%Bx[1PBsQ^XublQEUiQg'WVhD+n.CJSD
U"/TdG6<k\6)3ibe;Zo:s1XrE*1H?qN/S=vPYho\pNVt[VWhCgoUC2K>%3<J$ln#T
U"Z-%BL0>CxCnkQ4;/DZZd]=g,$n3(>s7wY19X-<aQ,SSarQ,=i5IW2jz5jqg%+ZF
U"H6VZIhfKJ6ECmj%h:4#hV05Q,HW7?lHiE8nuA>&fI_kNf5DjatH2#TX0=[x\sd*
U"M,;BnBMc1ikyp,,KAtX-N_08Kc%Rg3C7X;5CEf_KQ'fU37P'N5l/n-7:dbid=/:
U"Y2=C5/+DJ%Bm4J1V.s*Tfp:*x)c6J2$=*CKr]si=Xp-p<if5e_C6ea-kGGs_]Sh
U"/aI3WC]c'6gB_iCrT%&LkQtJaCbV<^%6yg]mfS0(\0HBQ:go\'3sVQU>Pjk_;u*
U"pf0IE(=/wH$/%h\5KnSU=+rnVi*8<QXbVQ4lt\N#+'x&u%p()9%%%%-m%I(4OK\
U">?'bs&%+%)&%%%,%%%%jww%Stgo(Z]fp#Ov=UNXrr2I;S+cC#dN97xAgr)q,U^2
U"Vcu>O>#?Bs>g[3f7iQf4+Scn'.76(*j&mP#<h#B?JHaTVS/XGoeQGlrklprG5uZ
U"wux''1Y-6ACW0P1#?_Q.odg]]$5Y3z=*3zPj'T5VT)[)tjMxV7[H.;iQ0;wL*n$
U"j=df%H#cNRewf),KcD#%qRi4g09:7(mKoTTV>tIUz/rk;2V836a=>_u7%b[$*=*
U",^Z%1:dVtLJC\H=9%BFY2MnrvdL3[.EV&Ed;n8rVQ*K.e6Xa4v&gq08.c)u^28.
U">v/jd;wWZ$uh4kH08urbP9)nn\xkz(3^1'N=[]LPZBUlz6G]Z0so'Y+f7A[j53#
U"-v)(7g1:3MpP/nt/YvPpC2:*ceb/^baEzbWMtl&+3x8=qQe=&Ri$-mb3gS&adf-
U"v'K\up%&'>%%9%'%[-%Q)'4KrY797_*7%%Z6%%%,%%%%%%%%%&%%E%%%%%%%%24
U"AAS20B<u%p&'>%%9%%%%-%Ic(4K\;>?bs[&%%)%&%%,%%%%%%%%%%%%E%%%%0+%
U"%%jww%Stgo%up*+%%%%%%'%'%&9%%%&M,%%%%%
END SUB
CLOSE:IF S=191AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad!
SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32
IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1
S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB
