'=========================================================================== ' Subject: FIND CD-ROM DRIVE Date: 02-09-99 (23:31) ' Author: Tony Jones Code: VBWIN ' Origin: members.xoom.com/hllprogram Packet: VBWIN.ABC '=========================================================================== ' Detect the drive that the CD-ROM is located, for VB4.0+ DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"CDDETECT.ZIP",4^6:Z&=1904:?STRING$(50,177); U"%up()%9%'%#-%\Y/nF%f*bKJ*.%%P2%%%1%%%%ij%yjhy%hiSkIwrT&)<>?^+5w U"CNNx0S7.%BVEXT6asYMY&F3U$s/:YFXOH[6+r2PNNCqj46b,u0v\G:HX>r U"H[#F6DmHVhJISTP-8NH4V;[p8G>ncFP6*I=2Yk'%%koL8w4\sPoh9wK U"alnEp\P=LZ2N3_;T'?utM;Bg>/m6B&raH/da^9V;c'mzlun$V,F'6\7.-Df;ZbR U".CcT^Z82'uH[S=9sL#xhh+-qlPI)F/&$ZSNF>^;/Z3GS\>j]O0AQ*.pgkA&NAvV U"+[>qob#x]4=b.iZ0/f2gOMJDj3lRonO19('Gg&R2tDG,iwTc_gM2)HTSJdsJMsWmHb:6' U"JcL;U?pMJ$CpZALcg:rQeiPdLa<:on\qB;4bd8%8]F:pS#B'7l-sC:mJSx/+WUN U"f[qLaaP_=hP\e7$nIDzoYmqs9$5R12Es->eYfmXn9=jWkUndgX'N%fTySKn#LG1Zme) U"*6X0%XXS5,q3,JCR%9?CQlN7W>Re6+^I+))Z6SmMqMf=T5L$5*.SDo_%3w-1E\K U"BFmDBtb*gNfPVMc:2ZSB=>)RMuVk3#hC9Iyami?8lOWstB'?\e&J*mp0Rd9n/QQ U"72K\XCxm?7uZ:*/]/624bkCld^\pf.3#9HF).l_d:Y0uq'9U_wQ&/p,SS-F?Ncc U"=x/29?0/JJ*;\%93'A.V&e62[dcpOdk#$rHYBm6>Aa<;j/Sf U":.)MA*SVq0GCBQ#(P4.t7il3Y,Z*e^SnP1w7cvS0zE''qOR<3NU8YoYn8D U";2pWo-1B*$MIi'm2:d:si1M9CnXk-1quz7c>r$xs^M>IsP)e%f+Wqfm$;)nLb?Y,>XD&:]&Y:SA-q>n[IyFe[6%-f$csXt:+N#z4M1EEFCkiqjm[ U"oI[uW?BmV7)Xz$iW+NgCr>nELnziIRwO?i;e^l#n-Fj(Q&P[C&/1/m+5,N.lev5 U"ge_K(c0r_ZJ*vZn21beZOTKfY-HaYN8YeQk.B?BEJ]Jj:5Vv&XC%o4xCXB%UaPw U"i*H[[ia,mOrc]QxrocMJrJLK-I0kR U"]n;F(Lf'Nc]GY_*cJTk,n/w.0r#rl(_m(B6LrAqi)j4$hkeleUk+3ds#jBOXo.lNMDGwTI1_ U"-t8up%&'9%%9%'%#-%\Y/nF%f*bKJ*.%%P2%%%1%%%%%%%%%&%%E%%%%%%%%%ij U"yj%hyhi%Skwr%up&'%9%9%%'%-%14YnFebZfI&<&%%%4'%%%1%%%%%%%%%&%E%% U"%%t*%%%ij%yjhy#hiS%%guup%*+%%%%%'%.'%C%7%%_+%%%%% END SUB CLOSE:IF S=208AND 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