'=========================================================================== ' Subject: ARRAY TUTORIAL Date: 08-16-00 (19:09) ' Author: Daniel Vargas Code: QB, QBasic, PDS ' Origin: chocowolfie@aol.com Packet: FAQS.ABC '=========================================================================== ' Array tutorial DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"ARRAYS.ZIP",4^6:Z&=5406:?STRING$(50,177); U"%up()%9%%%[-%o&I#Nm&=w7[.7%%.>%%%.%%%%fw.wf(S[gfx&h'x U"VncFFmcmv_B+r(\('QH*c'(8*oJ?.*t2(90.H_a/.aDThqN;JFjgXV+U[5bSXJb U"aQ,40HSm*n'(llUVflk=J9K-T1w%OmrS-_^NS*m/'OG1Wx3rk:Nw,JARtWMa75& U"fH8-_vr&Etq9A&n8:K1I7Pqnb'FNr,b)#:K8:AOx+4NaTu>_Rb'a=9k=4Vi<;:X U"$;gP=AEtF])a6VT9:v4*LOKsQ.0'F5_8^<\o5hUt4C0$FA6?CA6eZ)T[H*>XEb? U"cY0:Ek%Z;j^[WwH8F5Bb\3>ajudS5 U"7m=yG6)7\CGPGrJfql-O8PG;u=y\rE6bgA1eG;&;G6YzwoI+W1f,e0K&2CgY\A% U":l5pu2-,Otenl?RJg./#M\&W7LM]/([kgjXD2KW:H&Ss&4NWH[1uO.eg^aAOhh> U"](c?*tf2qoL>K\uy7-:k>Dr[-jC,wbX2+8WiB;xJ3QC[il3^F_^^c^jC\*u\2N_ U"g)e>3AE%e$;;FOVZI0-JNOn)'-u:'AYSqiSn047g%h*/1Gal(Zxlxp+$M&s+5>) U"Md^ftSilq7Z:+%O1LU0Hc^RgELEczC,UMH9QDjJC#*yyem;pME'u2^Ghvke:>Z' U"R11EcjVh08P_Z]YO&AUWp:7KH''F-Bp$Hguv/DwHEF,?QH3;cH=w)u8]*DbA8Y? U"WA$CZ-YGeMrr^9ET^VFngds[ U"IM?M$/4ws?h39owOxwQ\Pw[]eL6sPqX\)pU$ U"Mnq3)LWRL,2pB>GFe=Q+.KOw53VDv9>xeBGkW7eU9Iq])8y(MD5Tfd(CF^29z^iIh>lA[OfJlU- U"fIPfb-7V4'VHM9h%5XXo8Z%DDLs%BRpCO8x^qu'X+uY39,9Tb0;/IFhi-%5DAS/ U"7;db(&yd8R85pE#M]+atlII;[EXiW\ew*FaC0t28AZ^xit%^#jn/]>rWHQlUgfh U"A^uS4FoY3Z4(tfSN9n6V:%3[3Xu2c.QW-d1yZ/S_V.309/CmF0n#MU(K%*>'&0; U"hZHWrN56M#D?CuJchNr2y7r4j9Qvw$V,eVFZ.J+9D^Bh.mb,RXnS: U"(mAjnCr8,ntJbKk#5As8hQ&cTr38c-3lpG,jk$;Nt%pcbCfo7t-NicGM1vB#iOU U"^pJ_v\i#b9_up>I2C%EN3Fo>G'23=t\c95DnL#UAr>=,w$?4ZJ7n(g(M U"PGCpbbM;2Kfk'?WdUrJ;X'll.pb2_j,x459P)gf+=b_oAnRe[S6HSP,(o,Yx-z$ U"[dyjihtyp:oyO5j'fMO;UyIuJdCq9fv/y;gDp9vpoy;h/tOLB1zGh>)asFN[ciw U"oU/a]^V_c6a=Ir6Ic>XKbDetv[BWwx4)#;#Gou/pm._NeWkR\rWh7NofURC3Ho? U"HMUrBpKo9p$7$>Xq7p&,R7tjtqL00Pz%w>FpD8SEeT-PpDElOU&HM)KC\=*ops' U"#?%n2;r(6-noB9TVFt;iq^.9AJ/NtTQ6r7>43W(]TqP?UWwjhN;R=$r/R38hTi? U"SK'Q>9:GR;?C*WG(T\qr\ai73;FEnU:7X]-UDdZWA2vN: U"#u]S3Y8SS-\$<,EdmoEdv?A6;ZfP$R)815gl9gJ'>e%HNR-^-?^f6)#hSl)62OY U"CqSZRMI]Y.tLn:^GKV-Oixx_5*'2ngTmN80+,e4+*FL^XbodOs^q3NIX256BC;M U"ds*t6LNFS3R:g+L=+6uZi,lP%4=AL+H6wZ4Pd:f,&]p+p;hJHZLQH0-:84_2R(V U"JDDvJ:c5J-O3^6KP--X0DDXRr^]#$$N?m&.u U"p(%)9%%%%-%sB&#N8'w2n8[)%%;%,%%/%%%%f#wwf(%WSgfCx\z0,BSk5cvG1x> U"0#L1cIC9N9\]GYRn.AxVu'1g:[#8B)1$YcCe]+p/?u']CdV=Si.DXYkAZoJ=Z][.IfmR10T%.NGS)P[VDOOYQ_$M>je U"(c;4Yf*V3e\E]JUJ4iDL0Vot62'I[(cO6L,0[70e6&#.36_E1Weo-b*b_Di:8wN U"1;xiuP*_8YCQFE/CTiVK0%B048s)d/63[BJCjp-7'XW6J2;DpW)15=tuPGl(,[G U"1*XCJOjfUa?6+cegf.IdYBM45dDq_eQ^0F)SjcfYSQcXSeK\yf2DuGd U"*[jv'ZtT$4Iel4*Z.)9YyCG/T9:%%0coeN%Nf9fUGKPZUCVEujINarhS*$0ikTK U"v*jB^/?GR,F%f?i3X(PMiKGA?n4/R:r$_*7I0$k$[cDC3n(7gkcc7_qSIsu+gpS U"Y:80iXKl^<]ut)dfq[):;/\]:WLvgy3Sp0_T]URm5bFa.:?)a7gy,=AEvMTd#Mq U"wbe4eaH8fU1Jo3E.'psQ#^#t5w6;nwpxaMY>I34E[n+5[uwnQbc_3$rGk;8*v-S U"T:-x1Eu3Fgcp8okMX7^3,<95/(_yY]xgI[/3b+JGBq6U+48v>Z U"ZG65c311%VrH_v)mJJ7X6rxsUx^W9UVA=$ZX7=h.)t-o3HT.iA[bwkG^>B9c7l8 U"Ln#J2-tXIr#xzkYUb12Bsrvk7?k.DWb-UlHM^(R#5DE]rU_xuw\YT=nsH5g25;e U"I0_K7/_lKyaVNbh9x2kIh$l\#Q,v-K$lDGWAbW,Y\tX,bQ;d:y*XE U"6+;/WnjbGF0sD#3^j''H'0jE5qt94:R.,6,jYktNv,oG/DIY[pDSM^XbUV5ZtM7 U"To_5uXqgg,$EMoc]ZY;Y0DaWm57;TU3/*+lW:.BC_-ek]u6buX%87VdXOIxP?8] U"=n*]+Il^eKELhm$2UI[\LQ$#fk3>RVwS'cw<,\u4uuTo1]D20c,Rt4tRo^c?3iJ U"Cg_.oplZl)N7r'%6zJ(>lSy')#O#O5Qul]ZyMA].Iao9&b9MIx;^3]%Xy9%+UCh U"Z*\8SI&^*Y.lS*w3ncjF^QY=A(iX&4gH)^380%F$nc?lM;hEptH\-CF=gl=01c8 U"y/tdn3]k.$NLCei0d\#nfFrPd=o61IeZT2?q&0ev/dMRuJ2_6C.ZqHGRheH+bY$ U"CNLVab&'xj$WFX=-8pT%up()%9%%%[-%u&[#NU0?$W?HG(5(e+LiJ8/eh$N5z/i:MhW\bH,5 U"krBr;oR,&-1jmr7X?Tig>d_#UG[QWqi9.p?._Kh*i'3qe:k4]Z%PIQTij$&mVG U"Fl2mTS#c*FVRDwiNh,O:-p9Ej;Q%0uyvfZ+7fC$yOP<:9G7u$VL(.wqHF:3+3i. U"Ja%yof;-QS5y$+HlXe8%G^,jBhuNlLELi.^yiO=+6^qMFiECY(cA U"A:M&To]1jlIb8ao.VDfv&Mii=SA3?e:n\?,WiW0S.XoZ\0P9mzY7de(caK_3Q[K U"mlrk[Me>(6ZUYInS5PUI\-E6vL1:U2HAR7foGM=j1q;$TT]&ZX]XFa/onG$XpC=v:G6b00GG>M1c:+xM3'[q:jbLgKLpYSid(rjBh-IR(.nH7)\k;I&Z3k.RSvu8,%>XhbWAppLPK2, U"HkbJRm$CPQ/)S*ZS_?d:0]w_$4dlp-RhjFobBaM;LaKeA7-i'Utit.-Nrbtdss6 U"A,a*s_ae-4Ln/N4,h/IB+_5FzheTzD6ZZA]Ia4/.6.>c U"91>-Yg<;Vbq#d?uip06wwgiPzTV#'m=SdBK$OkPm8J4OQU[&uJfb*g5_FQYX U"=qI9C:)]-_?*O^^B2H/bRFl/cTHh5dL[.)&a1;*Z;Bbsb;acAY7W.?;o';lR;F=7D[fW U"3U$/0Y2=/5#jAmuTabcnA-6LAmUCAi[/GEKV3_w7k63edvBqA' U"B3M$s]R:BREk:1sCFOvmh%n22b0[V?uZevuZ>ij5FsaiGDSbI0\GF$lvOrEmb$x U"qElS]za%%%.%%%%%%%%%&%E%%%%%%%%%f#wwf(%Sgfx%up&'%9%9%%%%-%+s&#N,8w2n U"%8)%%';,%%%/%%%%%%%%%&%E%%%%./%%%fw.wf(W%Sgfx%up&'%9%9%%%%-%+u& U"#NsU0$<'n*%%&20%%%/%%%%%%%%%&%E%%%%i3#%%g&%kfij%Sgfx%up*+%%%%%% U"(%(%&v%%%&09%%%%% END SUB CLOSE:IF S=95AND 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