'===========================================================================
' Subject: Eject a CD using API calls         Date: 09-15-02 (  :  )       
'  Author: Danny                              Code: VB ver6x               
'  Origin: blackjac@fidnet.com              Packet: VBWIN.ABC
'===========================================================================
'>>> Page 1 of CDEJECT.ZIP begins here. TYPE:BINAA TLEN:4210
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"CDEJECT.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%%-%m47>R/q>+B9%.%%E'%%%+%%%%hiLS1<?9Nu*/#'V1\4GAPwsd:
U"Jhk?pF'?UMt)9PspP'Vi]^g\vA8]IRA-W=s&b#DEKLCIHnbc-$p4\UQR\f=]%%&
U"/x7Z1TAwMHK$(L).[M$oG^/;%ucey)[wu73xrcl_Nq%pAX1Fw(7y^k:WWen$%[V
U"VA\0m:7n0$H=GL=*3Cvc']9cJh+^2#HIr3O<#ABv26f++&5i:)#rcL=a;B>?;u2
U"*?beT_cr?Siq]?EH35#5?q^u3XPw=dvC\%up()%9%'%.-%k3[>R:34.of%7%%w'
U"%%%+%%%%hiLS82>*N_V;B;E1U,NtAAQD[B3Tm=WYS[].bG6[]l95'wF#mPBkEtT
U"5a%5E%LbYpH$^Xe&1+'1xbTnfNGe0e2%,9=W5&r>:S7wo-?EB4E6[XO?[c]wVxC
U"e.OPDWBx4L;u4bF<YGjeI;WgF4?c>fnR.HQhh&=ViJg.UmVfLIt-1nFX.#yExI<
U"etrqvtu4wOw&#acu%p()9%%'%-%%t6>7RURa+mn*%%%$7%%%0%%%%hijM942CLS
U"5A<Nf&<>]\[1w;-oxfLXU:QEnIsiZoS<IDR2$x\VYN[--64,p=Y&=S)BR_r^uR(
U"7DJ#T,Hd_AXUe<QYs.AV.9n$9Nv7^,&6Yi<P63MKfMJBCrI2p%+<l*WaRt4[L0C
U"KS.5W#Gb7EujN2Pne]lrpD%F6Jq'U7_4#j&^>V,.Mg#(W8dNut-2Or[su-s5x<2
U"JqP-pp-$kdO<Cu/ifTrV:zH5Tuztq*dI3B+uo1$Fu83dk-/ATA,DlsUWLLEl>%;
U"QFY;:g;ZV]cCsx/_,3/6_jV:=;_,n8;a9)1'#>T;g+*Vq-l9(&f4aEVGV<1_b%m
U"PUo0Pb^8c;>/nA1Ko#Tq1jQue=>YC9&/s?ZmHBgyzBOi7w0EO5lcWg2[-\#dz6z
U":GrP6%4QEa;q[MZQ9hsVVrcMOG]9vHCa>&,-:bX6UF^,HeG57,)oWtfl3V2eTNj
U"b=Vdj.GGk0p6UKGcOaX(#uMa(5>M\(sW.1ydbO:xydn>3/7IHh)>q6WCs9x8]dS
U"eEs*g.AxxGRuuN71&7r%XfEp1aDY\t4#L/HQvMmf[mQUa)t72EoN(4DAQ*mpkVq
U"pSk)=^4UuB'f9qG/O2*.b#]Jft2/cvLZIZ9wm]c3$]m*(QKCZp-$?K*bF8jmG#O
U"D,CkY-6;p>XGTC?9Y$_$qfE3_>WPK\n^Q<n*[kCi#/p#N&+wHe'C#_Sqi'4zi/,
U"JhQ;MhYA-)]-mo:>&<pn&i;KyS;<klHU>&x8'v[7ad\y%*CwMf,R&O^J4-g;BJY
U"N=nYB^6F-HxRg*jIc)g?g;mnyq5,57Lw1;Hpc)#18_L&^rlt7(N$<),DoUfBDDq
U"VD,RG[iRV/(f&bDsUD4b18eBrQea'.E32GaW)ZQFun'L%(Lnsp*,hC\g-wnX;3b
U"='C9V=FrNyBF]15YdyE6q\71ADf4ZUOl9o/jA/h.K);<(lupoI,o8^g=F>o&#97
U"2a^+EX#=>LH+,?o=okFhHA[q+xgknBp83l3e;D6mfpbJEq>;7#;9crU-brT$5i8
U"Keq;T'eAe_^HBWiQUB7;rm<Hw]V[LW)l<^+=m.(Tgd.+g&Wac^Z<l/6MPw6\/+t
U"x%-15;Pie3d9mnmEQBgh=/N]c<\Pb26FT8zj,Pb%,a]2pWo%-_$IMFVs9B%Gg&4
U"zo<=We5LA4Ql/'$nn#F*\r,;B>]eF^If'IQjJu[8kL6&SOI5g1h>8%R7X7?qp?L
U"ioE2\^;UUv#30y\R<3OC)am&S%5;*':Czposokn[N$WtqJ0]90ed)1uIb5E]Co4
U"uGGj*#Gb%/MinTXb,ioS#])C)Y[M)<7tF'nh9M8I?[M.gpQ)&.F6HDqynS%)Rme
U"UVijGNjjE)95aUnkqOcCel>+*o%vfJ1ib_U1=t2[,rigG_d3Nm_]O+e.iE.2c>r
U":3cH.#m5/[cYZ]>vBRrTsO0-T/g-4RiL5FqhEpO_-SK#nY5#Vl)v7Pi^%)n?Gy?
U"$G0&g#:FO'P#=Q/A#n-Ma\U6\[fQZ^c6f5jqJ?kkx&&PqK'='$3g?Slph6XOZ)8
U"^L0vjTjc[jnVKYmq>P;<k\rvQ6D(;1Eu(pwn?dwOJNVwUwkbuCMG$vy$dr>t&34
U"s$P7cbUehA*Yh5=cecOY0Ey>DdnS4rr5:F6Eue.EaRu/p]R.CYIF8G<+(N*ld2(
U"4.SF_lP(ng-AXCpuWY-;omWMiXbQ.NaMeS=(J$SFV]f+00J9Kq\4Ff_XhB:Y_6X
U"efV%'V9Ml]=T*a]WmD,DhFH'<o84vK6j9\y0%GWA20\NYPmH]4Aa'eonH0n#J7*
U".XcO2e57rfm09^5Yl]%M)R'eG'E3xF[Pk,KD9&fA(C3xq3pUk;t*jqWnOK-hG*a
U"d1M-qNRIw:f<d4E(1)hr-mfcOq>?/l=oS7Y'F/Z55?w6Kde%1J(u?LKfsxRc3V\
U"1RK>Zlh;4qr+buf8rw%'up(%)9%'%%-%s#6>RRE7J,r%%%%/%(%%0%%%%hIij94
U"D2CS5VAGN_7V7;E75j8Vi\'U?<*sm=+CAWX);XzwJHK]bKCHWN#&VKTYDW+_EVn
U"*eo<C1n$9z&R?J%f]30gg^LVFp*9sZbR#72O,*j[t(HW$j\[DF)'2iX8EQ?5w8q
U"Ybr#0q(2N7]G?1\TvMD7q<YME,I;WHwhW:jbP&6He8a.L^zE.$X_&T?teYI+dGu
U"tXMj\h,g/7Tuh8ahoTd/#%#up(%)9%'#%-%%+-FQ1g\j$p#'%%f%0%%1%%%%fM1
U">DC1g>GShCGCN+z:s#7V56lfCd[;ApEjz^%dO./vu7jF*-w7u2e>46/,%B=$.6.
U"aN[PYt.q6GT%\eq.)yTG[vF6(jbl5W6ElGys-&ppa7'Z]KO)u[L,5O4f/1_R[p-
U"*<F*lO6\)T%xE:+>=E$7\lb9U3C8qxbjQKfk*h)obk+U%U3#5h>'ZQK:$Jh.<v^
U"U;Ab.%Kt4T9j'hCH.&rAg;AmekE70MB'nLIOr-H[z+V9kXCo$%#Cb=b9>am1?j0
U"4'/4;dMgU1=#]1bk8'Xgh?Ul8V+DSA*YvST.%V:\/MtczvK>Ve:YX-,+4u'''SU
U"nG'2W+iwOWG24>ADj1*f/GgS0^2\0C1aIZRW:4+hgyIW>TZLQa.:EK?KqVeJDl9
U"7MA+*,K*'3f-BJU(DC$l%m86.>gw7V&VSf]V;T-=Xw:5v\b$Eu5=$g0(8cy']T/
U"x%K..DnI8]vk,vp5^BcH8?lo6=G,,%Ek-*C)t<=Q11%v^y&H2e?&qMyR;8bEaED
U"wo*Y3DPdrWX:Z?*>_tQsA+*JIjOV)QJCWt+tTsw&M:WJM?ByA566d&LSq3>c:3Z
U"Th?EmUQ;*;+,j4%\>*0Y*oJ4OnFVUq#I9'wOpYWdUgw#Qh7dg/nkjE%1fpPI-f^
U"*U^iJ9dgc,ARtKMmIRtE&&m[q]t?miG0L8Tx\GN-4%:,s3U4_D5e^=:H84,k=Sb
U"KIHM_^;nOx89v)yBdOz4Ly4Kd03EFxb55o2M_A?d[o9jA#YS+x.YovW:TglGs1Y
U",)Y=%QV6dd=L\lNVxhX_>L+WXrVLvm95l?4RvKvYzkcvW%w6j]t]oiG\0jg'Nwn
U"nfUGhIr$U^+72$?qvu.Y,ZU^WbE)Vgd^\g9/rsKqJ&HjWcJ\007')t<ogBPj#hx
U"_bhwzSQ)_Mvlgw['0sxuYXDT_^#a(RW?&/rPJK?-upU:NJ&Mt[8lB?^C0c*WTHE
U"C2GZ>HEiEtMr^'HDup%()9%%'%-%.wmEQ.)GGB&=%%%&l%%%%3%%%M0=81MDC.1
U"D0BSC2GCBn6EDzy]ioqGsSGH\-^krQaOGmD+qFn&Z+lnGc2EqFj2EG2Rq1FD#Rq
U"RD[2q2E,H2we\iQqE.Qq[Aj7lBmPalBH<2G2'(wXW0M0].M)-ygo)8ygn'7g3uJ
U"jgMi1g5-nJ9v9#+.Ae%%up()%/%'%I%%qjf%Q9/&.?5%%%%5%%%%5%#%%fEJ6u0
U"BJBSC4DGCSCMGC8=)8CXZ#X\U4%W[SE%2/up%()/%%'%%%?V.NQ#*Hu;%6%%%%6
U"%%%%/%%%Cf%lAD46SCDGCf%%lRVR%VZZW%\]]R)''fu%p()9%%'%-%%$?>+R6iB
U"+I/%%%%.&%%%3%%I%i8BM2;082<4AS2CGCRe]p]<[e-ip2eKV_deS$BS3Vdk:%v
U"*r]MD0)k)7L).ZPoyrMz#hQl<>VL=agzjq4B;<vT8<l3qYSfInx3E)pNebl-_#:
U"F4D7f_5j(3%,[Vp3d^5IUBWX4rTqy[oMyLjJVB?p4h5jV7XJHCW#cB/wC7XE=>+
U"iG6BgM/aQ9]hc<:N,3Ca3IwTFv1(BKK4O-+>[&1h*pe$<Oc/$)Ku,U%&)/^J=97
U"kc]ZuP4L%&up(%)9%'[%-%l#>>RAJxc1(#%%%o%%%%1%%%%hM>=C42=CBS2CGCP
U"OMCAE,#For7SvIz+-DQSFrEv?7oQGq\%-MCI,0v4W_skA.&:H&2HI8jc2a/VNkZ
U"AH$2O7:d*^X>O>QtpbeaJ^%;%:)St;$fI;JvqL>mhk&^S.%%up&'%9%9%%'%-%%
U"m4>Rf/q+B'9%%%&E'%%%+%%%%%%%%%%%E%%%%%%%%%hiLS1<?%up&'%9%9%%'%-
U"%&k3>Ra:3.o&f%%%'w'%%%+%%%%%%%%%%%E%7%%]%%%%hiLS82>%up&'%9%9%%'
U"%-%%t6>R+URam'n*%%%$7%%%0%%%%%%%%%&%E%.%%n&%%%hiLj942JCS5A&<up&
U"%'9%9%%'%-%%s6>URR7J(,r%%%%/(%%%0%%%%%%%%%%%E[%%%6%,%%hIij94D2C
U"S5)AGup%&'9%%9%'%.-%%-'FQ1\;j$p'.%%f0%%%1%%%%%%%%%&%%E%%%&X-%%L
U"f1>DJCg>GLSCGC%up&'%9%9%%'%-%.wmEQ.)GGB&=%%%&l%%%%3%%%%%%%%%&%E
U"%.%%y0I%%0=M81DCM.10BLSCGC%up&'%9%/%%'%%%;qj%Q59/.?%5%%%%5%%%%5
U"%%%%%%%%%&%E%%%%i1#%%fEJ6u0BJBSC4DGCSC)GCup%&'9%%/%'%m%%V.'NQ*H
U"(u;6%%%%6%%%%/%%%%%%%%%&%%E%%%&Q1%%Cf%lAD46SC)GCup%&'9%%9%'%%-%
U"$?7>R6i7BI/%%%%.&%%%3%%%%%%%%%&%%E%%%'41%%Li8B2M;08<D4ASC)GCup%
U"&'9%%9%'%7-%l>I>RAx1c1(%.%%o%%%%1%%%%%%%%%&%%E%%%&l2%%Lh>=CM4=C
U"BLSCGC%up*+%%%%%%/%/%%a'%%%E3%%%%%
END SUB
CLOSE:IF S=4AND B&=4210THEN?" :) 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\4210,219);:END SUB
'>>> Page 1 of CDEJECT.ZIP ends here. Last page. TCHK:4
