'=========================================================================== ' 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%%4AJAS0BMT[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+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-trYD/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[kWWhoW2sNeq1_6slr)Fnk?C[.l*agHG U"d>aKbfHh7NZM5zBc(OMcwMKIT U"xZ/n<#Pwm$3+P&:l=oR$:\IR?/o:u)b%Bx[1PBsQ^XublQEUiQg'WVhD+n.CJSD U"/TdG6%3CxCnkQ4;/DZZd]=g,$n3(>s7wY19X-&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-pPjk_;u* U"pf0IE(=/wH$/%h\5KnSU=+rnVi*8?'bs&%+%)&%%%,%%%%jww%Stgo(Z]fp#Ov=UNXrr2I;S+cC#dN97xAgr)q,U^2 U"Vcu>O>#?Bs>g[3f7iQf4+Scn'.76(*j&mP#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%%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