'=========================================================================== ' Subject: TRAY EXAMPLE Date: 02-15-99 (20:39) ' Author: Dave Navarro, Jr. Code: PBDLL ' Origin: dave@powerbasic.com Packet: PBDLL.ABC '=========================================================================== ' Tray Example for PB/DLL 5.0 DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"TRAY.ZIP",4^6:Z&=6384:?STRING$(50,177); U"%up()%9%%%%-%%MdmH(1+(f*&%%%[)%%%.%%%%kf%hjVS[nht&dxVA=dE1+TPh2 U"QhBQd]&bhuGr)(G7bI2t#h-kCPW(F))V1[#+I2:R'F*-2F(pBIEl=)[6,Gm=sbH U"k$3GXA=CIbej/?^dsbT]\%[6*)%2D*33/F/WLu<:VyZh^NZPkPdyqyA<*T^]^uuGhGdQLMB.Hh_ciZtSX6D\ U"G#2<-,u)KWcOf:$?6&0\'+'LU?'8K:W?QO_/k6OS_3=J9uZi3M5ntH2PpntVX+T U"u8o2JfC=.p_j'lXkFf)d1qiE;,9PaJt>JB1;.P^GoXKx/EfCAM54W6Q?Hie<%up U"()%9%%%%-%%M7mH%(%d6H&%%%[)%%%.%%%%kf%hjWS#nhttdxV=<[U1aT#*W-73 U"uRGO$sV3b3HyphYnD=C U"\1]%-Xq5)$h)s]lRi$42-S_ggA(SYyT/KE#j U"RHSLd3];muTm8vo'zu1=vBQynpThi'g>up%()9%%%%-%%%MmHGU*ZQ%g&%%%[)% U"%%.%%%%kfhj%XSnh(ttx$,=q1E6*VUD055.ela;J]pw-MYz7X6:qJ U"U((P#,X10fv]NJK9sY<.p%;p\(GlVT$POkroMFxgs1A: U"c743K?,S%F-JUQ_VQ&XQ94, U"dMdB$5eRuyJr1Q*A7]]v9rgMM/B]9KoTRCfu;SPx-n4vTw6-Q[*kS*=#3s U"MJjW'<^f'Uvh7JLIC6s7j]-\S&,%n*; U";$3BD.,)T8t(iuq__[:o+,c5VtYB*ME4BP9y=VM3rXD+_w4^WANNt:DLQDvc+p; U"yHg-tZbCWW:vm=J;&.<:<;db?v(7;MPl2577P444ewSiwQ(jg+4='S6To3>>GYQ U"?G]e$%up()%9%%%%-%%M#mHyI:XOQ%7%%w'%%%.%%%%kf%hjZS#nht\mw$+;7U1 U"U%%X9Sg#jpo=-:4>c_aI:B%vMNx7wUqnKw5hSp.:Do+oGoHL,73CfV&YtR+]CMs U";d=wPoj,[Tr27oJ^8Ln.[BA=SU&WJ*jS]6OgSCw^pfj)2/1]H9AkF2?_CZK.sN+ U"an]<1,Mkq)%gIvYrt_V2-O7_c\P_eLdLo(3y)'JW0K()VyxSi U"1hB8s-Fv4u%p()9%%%%-%%%MmpHz:(*$z)%(%o2%%%-%%%%ywf&(Sgf4x6%v,^S U"]5tM(Mx7UgV;bIU/SBWH_T?=R.[)XrIQ-V7Eh35/NvRs#'VQ+,J3$C# U"GaC^>67rccThq[HsQfOW7q0>'W*MIbb9iInX'\Z'SD,Bk0>mbIqQ0k>1hlLu<#P U";mGKW7<2i3X$bXr[T:-]?C7q%MJRTRPkC1#ANQ?/T*Lq)H1)VG\*K=tajX;1J_c U"vS^:NC#4up;JU<_oYl:>$11j1$CErU U">m9?L+fMsDfY(Ku7-]^Jnv.x:sET_)qeT=;/_RtpOzmwx(niQZO^GmzrBM6\e?U U"GXVVzTx,6FQ9oWj=h&RnQIOwf%:fua*mu]OA,&ofthQkY&2l2+a^p&kC/DBZxj: U"tB3cf/Ki.)v&DkCkSr'92QVCY5ooadpYTV7H6/:%$QHWA)C#wgbKQ66Ai#BR<^A U"[B9Ygs=w&%um>I4)&VH0#j328sev?#r*sx:\ U"o\8tN[4AMjCIL4=miB-d9kA:hhLZr2 U"_\1HN;ee#;&*_.l7:\SSJEgfTW_A^0)JuylVQ9YqdUY=IeMA084B;sn1WvZLAf: U"*,W+)%\GET>2Lvxm^f=q)pPgRUXMUlElN>^W>KmzlW%;t5nHiIX,S>7O8C;SPe% U"IXTPlr\ZSps3eGX1DcZh'\b>SYWHy9rK(h>Fo-D6:iSJ>V+o$W/W^_28/DPYM0s U",PFU0^XJE04sN/V]s'&9nY7MAA+#*ZSY;1/rOab7k4QX_tGo>+*ia5bi7*R2Ya U":)m+5Q>f>2=XlHUy$u7qFb1'rZ($rT3$^zAiB3U>LjrIpdn^$YZuupLfu9(W%73 U";iNpHubQi$i^C;71Xkm'znt+8D,Z%,b=Rkdmu1=;o:h*gd,pr+Sq;$4odWzm>&Z U"rGoOx&h6oT7_RtBTdeBV$aN]p?WIcwcbG';Ya8G8]yh61mXfH*F:>_-/lLa7C1Q U".XT^98'D?GRLJ7M$#cIKKGqo8(1Hjh&-;:(ODl;,\$wC*N+rNE+e-l$\;jvgb'V U"6aGzb=q>.17S;ShUz9BP6p1a.$$ao\/,h)4i)S]tYN=I2iFlUl-L^BM)?UjP2yb U"AFx7q%^%5ha(L_[:e*AQcY2#CD%a%A_DGXHX'_u/Yqo,k#?YmdhNtD&73abeO]v U"rrntd[>ku'g5B_14H4q#9tric2_MZRFKbQS._#sbk+s/YBs7w$t(BFsDhnLWgaj U"ld5phN^6BqxtVI8c1*b69>:S+5D:Gw0jA=.O8%%up()%9%%%%-%%M[mHYB%zVV& U"7%%-&%%%-%%%%yw(f(Sq#tlr_9Fs\P_(*fk$N5/2)r&u>QqE8f/<==%$8Ai&ar5DK7MT U"[);/,0o,PB4\4&T[?Ky81\N19/,q<,D(jq1s=JyR6Q1al(?9BgHGI%3o=yvg8Z>YreWYk$1.,sMB:6b5Q55e3L9Xw3Bjud U"]=VcdN(bp;4Qj#sZ,r?a+u,*s*u%p()9%%%%-%%%Mm(H]?,*0E)%(%_>%%%-%%% U"%ywf&(Sug4wf'b&;Aj9Zwogk:$6:c4Ju%^b_)QjIHLEsR)I1/d7.p9+N:72[-8A U"##7ILM#)-F%]A**>Md'q?%>?YjdIGqbNiI:0C(UH]qjOGwhGYUq/5-2s2)8K4E5BI-5X\LPUoe6'2X#FcgKG\1SM8X# U"[\livX(e=:$C*jP/ci_Jfu4Z[Ms#SV[8K0tM^$1(fma0jajar[[j=R[pOGH8&uD U":53Z]qv.8>&;XSEZz7M=w;XPcZppq&R7ckZOPij4Ju%.hNpSX4SZFo3qa>.lZ(C U"5*K=WVi_R[WtztkT1lLHd?m^4X$7KUdcDhAllb]#Ymwk[*1LOnActfLB5Ba*ta& U"H_sqFAmVOAVIiTo36cqrvJ:^$S:;pjk#T9erZ'iG0hMgnvNC]bT_v1JvN?fl7bI U"lO,+LmVG$x'sRW$C]Y1a1l'KJ7ngGu'xUA?pI^)]jzQ1/e[/2V/cPDYQ[Q2Sj>& U"K*XvAJp]Np$*?P?KsmYBj7ZIkGI1KyXa4gbfq9X.7h1nCqXRHfWqB U"V3_HATlhJNF?lIEq==4rk3%SFUMFr'T5HwsCTutnoZn(8JnVSH6hB?G U"i0VNoh)f%KdK,Xxb?$R2]m$\#/6EQ[pCzdBe&AkX^7,D;a^va9[8%^Kj')nTYc37(7gm(Z)josBV;*2M2Y+Np,Q5a1J=9#j-jb'#POi)F0P%oqeJ,Rc,?I+ U"ng]R:R4n%MTMB+2l%:r4HuVA[0A?U8X5\l\$tP06,--lFs1$g7UEb0tR96CoZ?QhZe)RR3[42P#E]ZY:p0Y_m U"2Vp>R4di(SqA$Hl5=sXp(Ct,atu2[1+jtlcoC U">D_)u#iR;(=Czp2K.Tkq\xAj9Y%OLqQ+=e.eeN's,SiNem6uU&ORyCgs%e&T>^S U"MArL,G2-2$>+I27R*r1W0_oX1:N792]jl?sI>*AZ/QD+v*i=v=^$&9uS*9;:gSQ U"jcKY6,qObr5'h<:0Y:BeLhS1l;B1E6WigLIbD#itL]HuDi.ULUW4D1o6,F7miep U"J,$3l#GlYEcwn=J[#^Q3x9+1MY(u'bpnRv?/TP\tDeB;>05,aV=nW>GyQicoFd U"rF7;1n1X)QQd3UNG+lIu>(EKXPKBA)IuJYBV)RgcY;6u\n^H0F?wir0%up()%9% U"%%%-%%M%mH#f\^wjV?XZZY:<-Zp_NZ3bjV^0)lN+(l^A^j=#y U"gNblmh)-f)7F;+b*iL,,N#zbz,IDXO)&XM-9XJTh[2e6XA(^&Q;)A)cAE'nEADo U"ub)h2>muc:ly#m-(,-])N#ym'*\6Xn^&0*#O.8Dz+ U"d]#rgNh]txMYcT*pq+rq3[#B;[D'08[n;7pI:>y*pK9GJBO$%f:r3 U"oI>?W<-)x^PUrVUN;C2OTQSuHQ-JN-QSwBS.YYK2?-]FI[V21j8HjQDs>?jIY+h U"L5A7Rr)VOr(Dei?>[wxs%5ukX?uc:ww670,2c>7bU6?X&0p=43bKJAn$?3+nv?c:?P?4fje3gJq4[,.Bv>4T*]z/a;O*_-L/v[]n;Dc]J0v4i+Zwi/9 U"dF4mRiz0/G4t-&+rNe*\3R1uEUISvV9D^AKsu7\IK>6+a[K&CKQ_J2.lVU;ljSK U"GlZ]-C_eQk&^C'bIczg;B';Bruo.UjKjg+$lUWN.OdI4kH3ifDb-gsoG^+^.6Nl U",_32>hcBWYW-Ja^O$kKE*5uX'Xjj4yI=?o7kkH\bm_l7)PHa3or4*KGPipFjoT) U"m$;R/<]HNTo;.iK6)Sr7Xl1_]-_Rbk\FEi\mcWT$=Bg?^AWa9J7JQ3fB]kB/?&y U"E--d$YIf[vD)f$;$nsCfA/M;B'YDup%&'9%%9%%%%-%%MdmH(1+(f*&%%%[)%%% U".%%%%%%%%%%%%E%%%%%%%%%kfhj%VSnh%tup&%'9%9%%%%-%%%Mm+H%(d%6H&%% U"%[)%%%.%%%%%%%%%%%E%%%%Q%&%%k%fhjW%Snht%up&'%9%9%%%%-%%%MmHGU*Z U"Q%g&%%%[)%%%.%%%%%%%%%%%E%.%%E'%%%kf%hjXS%nhtu%p&'9%%9%%%%-%%#M U"mHvoa]Gc[%%%w%'%%.%%%%%%%%%%%%E%%+%X(%%%kfh%jYSn%htup%&'9%%9%%% U"%-%%M#mHyI:XOQ%7%%w'%%%.%%%%%%%%%%%%E%%%'i)%%%kfhj%ZSnh%tup&%'9 U"%9%%%%-%%%MmpHz:(*$z)%(%o2%%%-%%%%%%%%%&%E[%%%h%*%%y.wf(S%gfxu% U"p&'9%%9%%%%-%%%MmHY'BzVV[&%%-%&%%-%%%%%%%%%&%%E%%+%9/%%%ywf&(Sq U"t%lup&%'9%9%%%%-%%%Mm(H]?,*0E)%(%_>%%%-%%%%%%%%%%%E%%%%<%1%%y.w U"f(S%ugwu%p&'9%%9%%%%-%%[MmHr<2y4-#'%%S%*%%,%%%%%%%%%&%%E%%+%,5% U"%%ywf&(Swh%up&'%9%9%%%%-%%%MmHR#fxm'-(%%'Y<%%%-%%%%%%%%%%%E%7%% U"Y7%%%yw(f(Sw%jxup%*+%%%%%/%%/%E'7%%3;%%%%% END SUB CLOSE:IF S=103AND 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