Jagdish Vankar Mouse Ray Caster jagdish_vankar@indiatimes.com 06-13-03 ( : ) Qbasic, QB, PDS 276 18148 MSECSTER.BAS'>>> Page 1 of MSECSTER.ZIP begins here. TYPE:BINAA TLEN:12838ã'-------------------------------------------------------------ã' 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,"MSECSTER.ZIP",4^6:?STRING$(50,177);ãU"%up()%9%'%I-%L48pSSb1o[h87%%Fz%%%-%I%%A0DHBS1;0BfaV:BS'l+X,^uxIãU"D?J2m3U)v.XnmR+RZ%+((]kX0ucAe5,r3*_'n$=5deY>8VLA]CE-Vbl6*'4*FEpãU"BDpbcLhH%%cBqQ(D-1D.1--(%t]tUopRu-qk(ocRa,gE/4E5hL.'ãU"I1]UHwA:OmACvsXD?Z5;o>hZqJGl)lLuqTN2TUlSIFfnHE+2+A13qRje\pPãU"b8P%3UIZkQ6QqFH]H*,M_R*sg]JA?$t:JOZtIfX;n*ãU"]S-8O9_Z6m*&C;L%.Ge,/rMG%YtU4,+Hg9(;]6%,YC<3YYOngL6+\P*ãU"_UkF>4UF%k-75)v7<8JsiIq7N(j?fEbkS5gFsz:Vjh9:TSjQj;C9]f>aqt)32x<ãU":Lpr(l+Jh$:cH?yAh;nPq&_r^kuO>O4X)0kdW*.c-:iR8A?vxkHNPuOioQh:-dNãU"0ULLU6gdI^+7ibq9BJ'Ij9.s&]5UHsaok8>:G#h2ZZTC+TI)5Ej]Mj1IY3K5:fgãU"pqz7U:_1h3=f)t$POG=qF7I[jQ#iGbv#lmuhm_ãU"ZN'^&<:\/VFNMc4W'c1QGEBB+UXlgaMmHbYS/-1>ib%=k(f3_vB9U>MH+6X0U['&<&v95hP##nNX*ãU"8uLI0^mq]T'E[;mF&2eBo0<53YmwDR9WDY/0[AX&-=ãU"#L;/uB9O6Cnpr0Xie]eti15vXRY=C1haimDwP9s(6lL_9GH9qD\.U>i96*CR,o?=xãU"kKIqT(M7Zo>.?X#oe:fuTEsOK?&m;?$F8CCX,#I2'%(Zex7E\/u4YtwK+YtF+PPãU"I4_2aZ.C0EQ0/Km1ZkNSLepC#hN_RWA+SLfkyKPPk>ZPHllg#I*=+7ãU"_#cR-LUL[+dy5:;bq^k/DSZalMQ^Vp\ANTQc/ni*IsnbG#J+n';Bj-NVshF6MAQãU"/1GS9iU0UDT]If_/'9GNBh6jSsu6Y17A#M)1f<;n239TL4$.nP+f:e=q8^0xn%3ãU"\cc)bt9gw9,ImK7*4$n?2wIU_nnUAOwQUp.:UZI0MxcnS/F2xfd,3UE5/W550twãU"vBmLF-lA6d.T]9Ln.R8b&2K#TB'uKA2pW,Dp]JVXkL_H^_-WQ:9H:cSJ(eEKq0pãU"T3z182iDqXxd]#r\dN9G6K>Um\ZjIx;N_3Kqct^VeEj)tAW22bk'(7?QU^X$[ALãU";#;P=:fc3z*C_qrU^jx5AS(#H;jbl%fAahsUbY2m3Pb],i_3op,DFY*I:L_%OTP[nF#o;%m(Ke0VsM,t?*5u6mS];w9hDãU"qgbAxm7#eOL)\fQRxQ*hZ\_wH4vJ^MuUKEb>/Zld-\B7kNO9c:PVCNcfWooCsVMãU"),NbW&-]7Zq/LR(KZ++IBQ:7Oq7IIT&&?j_G/gQ[WG3^qgm%vp>FA[qg:m*x_09V-rJyHA[j+FJ%nx_f\#H1*K\ajH3oduU9i6U8Q_ãU"5'w6lVk9/\>$udin9^vK0$.aWUj?2r4EX%gp>JkH%Jnei6qW*mkB]'dN^/;/hNnãU"A.uNhR>&(IZ^0j8hSUP7%bijv.de#.%Ivs?,-5JUnx9<]ge4g<*nG+\Gl,q'.0panDB*W/mE]SIZsZ72jc<ãU"SGJD)5;=1m-P6=S2GU13oXqKu)EtV3+5++AG\OHjSD;c^[j&x$A0X0BRl$rCMpIãU"D/aF$W=E)+;zg[JdãU"+DxljAuYX6ZEJ*poxN6p'4&VcaU\xtyDQ%7)BC$W,3q+F-ArA85#Yh5CTq3bTk+ãU"IkeUBX71+faH6gVk?9&5Ph$(Pf3&RtoSJB)S9fZhcI3=GOdf%I]GqdF*Hs&)cn_ãU"RmZsz9O4S43m&gP'(OJ)fC<>0IVH'9nt>F6GhH4*li'T/g;ãU"Kwm%F?PR<=5cH8u.qRvpm&4P0]5?/U)LxzZX_i^2T,j+;;6jft-s\#qGL&ãU"sveJ2Gfepb7/cKP[,QXP#>'I*YrP7m9.uY/Rge4UkMHP=z0J>=JY)v\rB43oZ?/*leeKhQ#1lC.lX+8lãU"qXa\YG5D:Jf6adFYQ\hyC([fqD,=m$1aMpZumEFv5bz;grGmW#gro;Ul]hxn6'6ãU"j4+DxXb;B[n)w*j:>UMdPcw]=vhKss?Vw#t=3.P>j*]'\LBI^\a9D5f/$)t_AiJãU"BZ>fw]]62wLAu\DF=hmbAz=D'f6##GCgkI^K^YZzY3Xll#c_b0R8B7y]Qs8*frmãU"h:exLuk(;Zr\kcI8iN;Uq10p0x>%[>7v/W^Wcbn&V6#MXPX']\qkk-\g'ãU"jZQlfGEzkItgW&hkC3j2fZ$CBX8(w53rBbi-KsA_acgjãU"5auMz$>BA)JqoaU)Mr$FWFEp0g5^xf[Vnj3?NgAo&tvD_u00)#C[dgDsGF)-UVIãU"O#&nCE\cJZ$k,-ST;nAW*J4VXUN-C\ws&5[_SNL#(]],Nz'EN-8^/zY4yAZKh6JãU"XYb[8Zj%rKnSk#*Yw^t([<*6Zf7Lo_oHr3,a*UVU5o?FIP$MQ/B$8ww'6,6cE7I]sxU%UbTjK3-t+7ãU"-l;J>xn=&%T*E4VWfN7eUu,TIU*&O1/]%t/QBkI%Fo16^'nR&#lWCQ5p-ywS+.EãU"1.Z*)qAR;\RqMO[>j?QZc[_;w9JtY?s&xi_fV2=/Dcwv%<\W;F$NGqp1gZvTcA)ãU"kMt.6o*6iC8Sk)%So?Gp+:pJikwup5aO9,tbkfL9bQWWa9j,/QtC7FzWg)yaKzfRgy+&TyZrGy3dx.]z>W=imDwBK=TWMIHjo_f?ãU"oTY?Cd#6CT?O$d#OTV?yd#Ayp]SI;JEDKi3yX%1D2KCxLY'd/.c<'ZG4LHK8gY:ãU"+zDxfB$*u;J(xpT&#gh#Zu$8U?f^nYUxK&$b]f1Y^X+tXJhTF.hPNY4uT4SMY?:ãU"hVwVM5A[+dwC2v1QHcqb,2)xt/Z=ZYp(c6?Cb>KDWNDvBãU"XbuY%,op(jJ&'Y**GEA%p3M-&4,v%gnX5vGW]FcV6);Gjq8wKnv?:L$iL=r^<]mãU"BA.Q2w;F0,'30z,>4nr^\[7]=BH8Bm%+I8k$*X8JvnLuJ;VF1]adl3p]ddLcuA=ãU"Pn:^^8.CLoy*dF>ee%pIS4%AN)al%VAD)aqRde-Va1Z/[K,XRSRShAE3$0hAgT7CãU"E3%4XND6E]/KQ4FsALUbRhKeWbg-[:o3)%aC^1c)9V;?K=4js'HJ9,]+:hY9%)=ãU";3V>caP1DDrOe$)3KJ#qhVEIb&mo'_]Ia^H\S4Ni7o)ãU">oA'lWmO(<1QsGXu,2BB?ãU"o[HV8GRmZuY7#K>yPuMyYX?*)OWFXdbjCqP[L:28]Pr.R)(TFK7f7T*P:]OKi_,ãU"k:2(H\_Pf%7_Hg$>oY7Rvi7L91,fcPc_n27gkc_jt,%KafzqeKIS>6a&+P6>PGWãU"A41)RaIZl16]8ry14?b/V$*sK;#4\DCq8wc0MuPnCQ17r.Y.IJsCoEA\677lcK-ãU"F1)IQPbXRSG;q1h7K7OdT:BH$obMOd6A$1WLz9BvAo6at*$KYURa08cDãU"DFq=f*3[xU&BEmCL\b?J*ppoHAg+4;XKrJ)[dG_V'OhD_/hãU"d92fC%nBiWf?n$K1QbjYo5ZXIE7]BCJE5aCfgpK3Beb\1:?cEnRcNr_Z8-I\RoYãU"slQ8+7F=(*o*xI[WBZ8_[RV?\/hZx5A;-3YcnUxKYc6*wX?ZJAq>OWA5E=_35\m\xVS?%mBGX%xgXJWãU"x\Bn&[AXb/h(+Xhv+8OL]7]qun-Ef,wHVlLBnx2/1cUFd7XnpnLTpU_NQs%YH,OãU"JY::kBKg^Jnol$tx.^k;:=se:F[Ajb7ClSnW)7Cg1c3ZsmãU"JV(^1%)Cl;Ami3mT:QETC0:uT\Nl27^j*X*0J:LVF5b=]L.gQ.9ZZuCb*)0x&P_ãU"YEBCGiJ4I\Ma;S0Ak:c->7]5*#j:29jb6'YU-(F=gT6m:7a2P.1Gb5ZZ%df:E\e^]ãU"[\L]T)+nQ#O/l==\a;S*J(^nG9\fjG-<4$QU(oq/$J^Va_Z;03ZN^aZG5>\p*BCãU"l#&0^vcDVfixsY(63F<^Tq-(T\R5R,Dq',&#/ZUD8c#,(6^Ia5U*G;.XuWJh'TDãU"QGUV]Y8>6Ws>WG12BvV)hKq*up#)Pu]jrQZ\(]TD5%BRiA'get1o;ME3l?02GyiL']Sx[Q'j=KE.DT1NZW<#w9;vMg2Co<65VwG%%hUCXãU"guS&*FCtuVSj_KFZA=,gMUhgR475TZfq5dq1(E/<-7=Vynr+X[XG'9IF8dTq]J.ãU"VaPU4_O&Mmk?.A=Y1\[k;?IFmj%GwV==hY=mA[f[AIU.HgPPãU"R'O77Q?Wc%=O5YZnQWjRQPHB)<,#.)L?+K$vVZK1':6osDJaeS=C<&,med%IH23ãU"%1j+kRH0\_tZBA#=qE>gaQ;7ajM<9%B>+y1RPc>=-e/^y/2WT#lQ[=Oe=C4A90A3ãU"#8kh7RSYWWE,aN57aWSAWhaIArT7$,Y:='.Lk113+$RncA<1EK?'c/1Ve0Jk%Z,ãU"%f#k;:g3KU6(]WH]APX]^:_+=:h'>txC6\sWRf\UT+)mhW?KY9u_3/Y+RU32gq[ãU"KE=8+Q=G1QP]WQ%?);meJ/[=xe?cFA;VkW=(MoCCfE1EaNiq%b_H;FbI8L&/l/+ãU"7FBfFãU"A:.kr:HMZsG'9CD:N)q]J.VaPU4_O&Mmk?.A=Y1\[k;?IFãU")q=%9ql&E_r-tD'Y:wT9?5^,^)>z$QXbq47#?+^6#g-mhl=Y4smUBbhq*?J0Gu0ãU"7K;Yr_cp7tn?AN1R-\%,/xP=k+1[V)\^G8RZA>lgPPr'[:W;?[_K]Tjk&10fE?JãU"==Ri13q:LEpn5?jfS(MxX)ãU"S9J=;o=RVo)rFe,qfdvqKGdZOMDgWpjRF/iZI-I^ur-B^?j9FNL3IFãU"ux91?u^>X?3HbQcWh7UAJRUU,>o$DxK-Y&Y[[Uw5h3xMG'frpKFRRmJKEBw3h*rãU"rS&I$Rum'tcNA$b:Km[uPZ^k,btqE.6TA:2.xd9a\H^sK3k/%e7r3d.mkYpK-PSãU"%viXI\FdSgyj>EE\+:4(0j/XO5l4N8ãU"x#=?p0G$1D-KqaJVsU3/%.hJk1m9Dd6g]sglEf*'l<<,a$-^ei9A-j]]7\2D1UCãU"sB]E$IqfB]D-4[UhCC,ip^t32V#8tkL;:++u;6vvlFPtFc]$ZB3X4B)V5235ckfãU"3JuE?9BOVn1i*3U?XlFfEcY>sg-IB;5k[dqPpY,cMms57kd?Kk\;Q-KzfbJHEh(ãU"Q[+-O>b=JMUu^>oU>ZVCV=aa1ZvAIOPw73J11FgQWFw-;Huo8qem?v;Hx%fRXRNãU"<36(BmKHVHF7xb4T_T3R4G1UEZaZ%WdAi\=z=2Yer05xhCDif_iT09H=tIpf:mBãU"xV>kgZEFOZO*i6kJiPWT&);]FiT>\JpxW=tlE>g$BAx,X)A8+8Ld#QUL?.T\wQZãU"Qnp%erCU*ozo_wANtL13(cxcA'KG2,EMB(EBl-?8RD_?ãU"SyoIvhD8heG];>]>v?XESle47[o(>v:xl%Y46LaVs+^RGN(3g=[$qv6*fX7f/FtãU"]OXjj412x[B=HNnB#TD]ER_0bw6Q-n&,CIr;U+I[uBM$cxf;SJK^wT*?iaR,3Z;ãU"HjrwHN0m.80\Hg70'k;wsfqL2A,spac/5*mO.t)mOQxSv2Q:+u^H?bf^Q?I&SkYãU"?F4qoC\FW;jw2:ClGo]ppsv>b?lLS9fhWVP&.9,2c,[P=T3>UTVJJJ9xãU"]XZ$$kUihZF1<[Zglh,rt[CbWX->*Hb&FA\/k>kXoãU"L=E6a>Eq41'a5#CnLm1FoFJ8r75%,10K^IK\BtOhB5:6>;r%xBLhTnjpOK+)5_ZãU"X1I[jU.FxCcg(/=,(xC[^+*FtvP9Z)7iU:pO<1_$?h2=IQip\M:jC:UAZV<$_)Vpddih:t%7CmzC1IRZ)x9M<ãU"1y_Z4k>L0NX2G\9p8N\4i:OV>)1mQf0r?h2Ug/T__6&kDyV$0L.&u4QT38THd0UãU"BDUNc2>vPV036z0EM0>8,mROhK4xI]S*k\dS#V;]AN0FsNl^ELF6lGINI:lUTz[ãU"y0%/.;.j>/p*O'DDIZZlpZgtUEhYCk/R1smKG:KtjhLZS49j$$v-Xk>WDjRH'n*ãU"7:O/+)*p(GS\<+F5J61GiZ5*j2HY3Xk4rbj,V/RLq\F\$wRFKtj30]a<6H6vw0xãU"efZ4^sKpD*[V\Pz55vQi^0>?IãU"o?qnh8.K'DY?GY6I>lhn(A;xaRZARYLrSkutgz>(^JbZ&Ucja=:fR>)YJhump92ãU"kqC34bLtb(v;x]3YMqhf7m0t.lnXSM((Jtt&TOYpLGD$.lx-ãU"qL#N*GaNom=xKV&+.1ltc][TQidRnc:4?=sM.LgFN$-Lc_FvDsW<]t_Swto5FIbãU"X[=-Bsab>K%6Q=4bq=I0-N9RkB#2c;vIQpfw3ILJ>%l+(apdOn/[L7ewX#oKNhYãU"u]Hc:As](Io_cK4uBCJIDwAW&a4P^IqnvaJ^Nhp*]?Jl[O^oB]Joc'23uade&W*ãU"BCLdAv*]GJLgMhr]7xo_O6r-a8hdks]/3Jnx2AYaxbdExkSHJld;ku]0[oSukA4ãU"JpcSKjB&\dQzkdZJN&B]7J.M&Axa8>M2q*BAJP_cCN2XoB0dnKtB.Fo'xA*6aDMãU"92fB4bdumBIro=%2AjazLo=&A2VanMNrxan4P2*nMi;^aJNyAn5atdaPw]ncUasãU"]fdoC%k'HoCvikwa#PcuZa<#dut#JtMHY)B(d:az]\gom&k<8c%v$k>oO4OrFJWãU"dcu%$BIJ8OxkQa.2o-y*kJJTBJ>KG4_>QUfIR=s0>B]-]-jI3)S[<\?V^7.3mhjãU"s;BF?R]1:V1=2*1BP#aY=$a]C1=(j18bFZLaVX-a\T4h#v%zn/iAHMschaiaJ^oãU"]zk..Jnv2AUaT[O^xB&(oSy9+uBGLJZd+5s]AJ8DJXyMATa>+Nr#JiDc+&H]#o=ãU"+vk4o8=zkP#JtOHXoB8yWx8XM_OqQlU]OxEMPT_%B[)&#kHbg&)/(<;0OjSl*wmãU"?G%F?li_1ow1GGDS(N$G_mRxS#GKO]m2>-w2W]:Y<%$,G_=B[A$R_M8_JXjF.:v:j^9*6p\wGO'AWgMqC7Y-'%ãU"66PGS3jUgGY1Xd?%xerhFTh>QLL\4hmNbtOD0RL0cR9Wb=,uu$JC//ct-vi-&_tãU"#^4nq1l6w^?Pfm%)?8k;BqnrTMcMM:XZlFX),6k=pkb'$/X=A+'%-VUsKt;U_4UejqS7rFfNPAJToM,IJD&*dxOESFyraueDkIãU"duEmObCausb[Cesnr0,bw>1Lxs3x*TjJi^If$g*W7]%pL*tFT6#fa.L,'_#W[/8ãU"ik,=9xK7J2x'u:]tHKpCBDQ$eUpYEoug)jW\0p:$23Si6LvãU"6?lw-U[H^(S,WKZyrhBbFj$gz>P&CJLb9PVl8OPtl[^DTGW#ãU"V>$?dITfn6S8ftJ_UCn[ejlDkN'xJLYPq<\DPr?ljZEsi0p^6rgZJIWD>r+Q*m>ãU"S#9x^YL7Mmjn&[#rQ(St-G-^SJ,[tLA-<]5i9x:eocx#pHrmZFN2Chs1t4D&9skãU"xc6.w$n5INsLO9&ek&VzkBhx[#MYDbc_k=g2_f\DlxTaHhV3HxdDq$6CKl_7LPmãU"9V+SWn&HcV01C_o?HCQ$qjPH>alU=Z>rRbiJ,f/74:GNQKq\tDdvn3^KZ1H$tk7ãU"BGKNFeBiThDr^86oju24Amc\fAeB&8V;E.PZuPf;EuwH8AqBlnraa7\&lH'Enu2ãU"3\H#_gD<3geNbV3N=LG#vu,5[uzFJJyBv;z&'??+xEJDfsB#fqZFCo>h$8KoTLqãU"tsdKQ&pp41H.H;0kvlg'BO16zV'wtV$_h$>*+zZ*u])sU2+bzqLRB[lF_BV5fc9ãU"Vx6g+e$l[EP^2iLzZBjLn*me\/DGnNGo#qKFS$h=^cXGE2PãU"iU.JUjT+ifCdkdT3Wh#NV$I.l&8g>MKK6/JvH?9)i2qpl_cBvD.htNV$'iTl54;ãU"CO^#gU':n3rHw%/RMaYY6Lr$16dzRx.[dTzMHMMc,rZw'.Rnzg]-*R:[G*&h)2'YU&7qVu)mxK.Tx?6=GE_ksSTKj7Hw*X^,$[]eKyQ_z;:XkãU",lCfhat1/g*1+4WLeYw&-wJRkx&COay>?h#49BeqY#w^S[I''dQGu%bq2*BXN?UãU"aA+NfYdRNL;9v,rTpnhenFhgNrUGipFuq7xc64$RNjRtx5=>r2tTFMAjuvEoq[k^S:Jhp[:oUX^2RhMBYBZ[GnXOQtM+*q4dvj-UEGN/*WhDksQ$,NãU"rm:s?%[['Yr4Fyl&(ak>9fHz0QPNs.XlI:Qv4-([:tdd]gk7R*#I*Es:Fq>$m1tãU"8;1vVK#:zT)ieWun'ILd\Y>1D?PnuyTg3Ysoo4v>\Y[2Dy:B$M(7>:Oy(zWwb8&ãU"vf5gb17Yl4,ToGy3_xu;o5mY;Nla2r%)u<.wSKa_2pAQE_&gr4yWn%4wnNIN+:yãU"CF&a6.>wA2Vu;p]b8+F>GCpmu'p6/6MfWR%uH:54SLQglaiJlIS9mED?pHGV5gFãU"U90lmC4)He]Lf,]b;szKp,qtI?/>IF_^IWgzVqHstgU7ZtW)JyAhVEu4RoBi0?.ãU"nwyf/aKZlDYGIZMV43j^WAaJ*t0G/aBWZv0=l1GJ8gV6=VvAq3X,aiUf-,suu9AãU"W9#8F9][ZpkU4+[LdaVh;0hZf9?KVdQL9J^xnswU6$OZqpAgmO(?5_qnYxLM$[PãU"wl71;MCp;(pgpo&+p,hXuV3&FL4D_oQupQgivdJYftmPmO$mZlZ3T/o?_B9-1-'ãU"o-/-?\:cP&3nY4WN&VBjZY3&oLBo,oA%u$w+8M2_[&_2cBjw7l0nM8iR=5qBãU"BEJXSVIc/<,aiSWUH^2WznCo?5xU3b7nA3W*SsnW.JMIgg1oiaL11U#R=*gMwIRãU"wgc$^+37KbYEe_(E6G0P$l_4oA*A>Rm#KPSK&ROh+\;3\*_t^rOHPNmi#)c5jHF:rZeBg;;eW;pãU"eiM?'co;?'+5%a#C3Wdzm?Gb4]J(ãU"1B\'+H(>H2^AOAiy(HO&m(RAAW[7NFn%m(W./8j5EDB_X$kTAHA]+-MV\Q-Me9[ãU"-HOFqoyMFWRG/[vA6)\3Ti9Bs[E&+l9G0hELH-jn<>.A.t0;ZS;k7jgRDD[SjH(=8iK:HvYu3L?ãU"qa#1HDR.QgeEiD$dAD6_p$unA^A(<$TF;j$(G.\G.lW7PUX3UR;h[CeC?NKLOTgãU"bT4x7)<^XN]Hs[E5YhLn\8V;(U7')&xf+F:h_Zm%BW;>&VYFRH.2^OAgiyri0n.]^#*^2h,VEl;dãU"Fp_^9Ao]XWAtAIW]A]ZiAf_FWA&*Cs#*)(t2RX9jjRXU)R;hC$9p3\.iD/=8vUAãU"t__nFH:H4]zZ]PA*smKZd%TW->\Q1lc>_*A]/s.8f.sj5FPvdoC#*_M;T*3C-DyãU"Rjhh^+W%OfS#w84]J/(12:+92+2;92C2.92:2(T20RY/;lEGE4$L__v$bAc,A0AãU"lDA:AF&]Ee#sB2Tg2WU+2:r0vB?FH$.7w^hL>?qs87-\8xGDB_X$kTAHAaW]ãU"']_1s2bOe7O;+e'k[+FPF\[E\H0gH*_4i*CJ*u)t*eDV?v][F:jnaxw;7QAl.[EãU":m4F'tLup%&'9%%9%'%I-%L48pSSb1o[h87%%Fz%%%-%%%%%%%%%&%RE%/P%%%%ãU"%MA0HBLS10B%up&'%9%9%%'%-%2^4pS^OC:d'6B%%)k:%%%-%%%%%%%%%%%E%>> Page 1 of MSECSTER.ZIP ends here. Last page. TCHK:203ãAndy Amaya Display & Rotate an Elipse aandres1@msn.com 06-13-03 ( : ) LIBERTY 264 10711 Eliprot.bas '----------------------------------------------ãAndy Amayaãaandres1@msn.comã'---------------------------------------------- ã'BEGIN CODE:___________________________________________________ã ã'Demo showing use of 'ellipse' SUB and rand() FUNCTION in graphics applicationsã'Programmer: Andy Amayaã'Date: 5/23/03ãã'Released to Public Domain AS ISã'End user accepts ALL responsibility for using correctlyãã'FUNCTION rand() returns random number within rangeã'SUB ellipse - plots a user defined ellipse or rotated ellipse in graphics windowããNOMAINWINãDIM dx(360): DIM dy(360) 'arrays to hold COS() and SIN() resultsã 'used in SUB 'ellipse' and plotting elliptical pathsãdegree = 3.14159 / 180 'constant for converting radians to degreesã ãFOR x = 0 TO 360 'calculate and store the COS and SIN resultsã dx(x)=COS(x*degree) 'in their respective arraysã dy(x)=SIN(x*degree)ãNEXT xã ãDIM c$(3) 'hold color stringsãc$(1)="red":c$(2)="green":c$(3)="blue"ã ã'Initialize line drawing mode at start of pgmãmode = 1ã ãRANDOMIZE TIME$("ms")/86400 'seed random timer for a fresh set of random numbersã ãWindowWidth = 800ãWindowHeight = 600ãUpperLeftX = INT((DisplayWidth-WindowWidth)/2)ãUpperLeftY = INT((DisplayHeight-WindowHeight)/2)ãGRAPHICBOX #1.g, WindowWidth-WindowHeight,0, WindowHeight, WindowHeightãButton #1.btn1, "RGB Ellipses",[ellipses],UL, 1, 5, 120, 25ãButton #1.btn2, "Spinning Ellipse",[spin],UL, 1, 45, 120, 25ãButton #1.btn3, "Atomic Smiley",[goSmiley],UL, 1, 85, 120, 25ãButton #1.btn4, "Atomic Orbits",[orbits],UL, 1, 125, 120, 25ãButton #1.btn5, "Toggle Draw Mode",[drawMode],UL, 1, WindowHeight-100, 120, 25ãButton #1.btn6, "Exit",[quit],UL, 1, WindowHeight-60, 120, 25ã ãOPEN "Ellipse SUB demo - by Andy Amaya" FOR WINDOW_NF AS #1ãPRINT #1, "TRAPCLOSE [quit]"ãPRINT #1, "FONT MS_SANS_SERIF 10"ãPRINT #1.g, "DOWN; FILL blue; FLUSH"ã ãLOADBMP "smile0","sprites\smiley.bmp"ãLOADBMP "smile1","sprites\smiley2.bmp"ãLOADBMP "smile2","sprites\smiley4.bmp"ãLOADBMP "bak","sprites\bg1.bmp"ãPRINT #1.g,"ADDSPRITE s0 smile0"ãPRINT #1.g,"ADDSPRITE s1 smile1"ãPRINT #1.g,"ADDSPRITE s2 smile2"ã ã[loop]ãWAITã ã[quit]ãUNLOADBMP ("smile0")ãUNLOADBMP ("smile1")ãUNLOADBMP ("smile2")ãUNLOADBMP ("bak")ãPRINT #1.g,"CLS"ãCLOSE #1ãENDã ã[ellipses]ãclr$ = STR$(rand(160,224))+" "+STR$(rand(160,224))+" "+STR$(rand(160,224))ãPRINT #1.g,"CLS;COLOR red;SIZE 2;FILL ";clr$ãcentX = int(WindowHeight/2)ãcentY = int(WindowHeight/2)-15ãinc = 2 'play with 'inc' value to draw faster or slower (1<= inc <=30)ãFOR i = 10 TO 280 STEP 10ã k = k + 1ã IF k > 3 THEN k = 1ã PRINT #1.g,"COLOR ";c$(k) 'cycle red green blue colorsã j = 290 - iã CALL ellipse centX,centY,i,j,inc,mode,0 'rotation angle = 0ãNEXT iãPRINT #1.g,"FLUSH"ãGOTO [loop]ã ã[spin]ãclr$ = STR$(rand(160,224))+" "+STR$(rand(160,224))+" "+STR$(rand(160,224))ãPRINT #1.g,"CLS;COLOR red;SIZE 6;FILL ";clr$ãcentX = int(WindowHeight/2)ãcentY = int(WindowHeight/2)-15ãellipseWide = 280ãellipseTall = 40ãinc = 10ãFOR h = 1 TO 3 'make 3 full rotations of ellipseã FOR rotation = 30 TO 360 STEP 30ã 'draw a red ellipseã PRINT #1.g,"COLOR red"ã CALL ellipse centX,centY,ellipseWide,ellipseTall,inc,mode,rotationã FOR j = 0 TO 50000:NEXT j 'adjust this delay loop to speed of your CPUã 'erase the red ellipseã PRINT #1.g,"COLOR ";clr$ã CALL ellipse centX,centY,ellipseWide,ellipseTall,inc,mode,rotationã NEXT rotationãNEXT hãPRINT #1.g,"FLUSH"ãGOTO [loop]ãã[goSmiley]ãPRINT #1.g, "BACKGROUND bak; FLUSH"ãPRINT #1.g,"SPRITEVISIBLE s0 ON"ãPRINT #1.g,"SPRITEVISIBLE s1 ON"ãPRINT #1.g,"SPRITEVISIBLE s2 ON"ãcentX = int(WindowHeight/2)-16ãcentY = int(WindowHeight/2)-31ãPRINT #1.g, "spritescale s0 300"ã'put big smiley in middle of graphic windowãPRINT #1.g,"SPRITEXY s0 ";centX-32;" ";centY-32ãellipseWide = 280ãellipseTall = 100ã'if mode = 0 then plot smiley every 3 degreesã'else plot smiley every 1 degreeãIF mode = 0 THEN inc = 2 ELSE inc = 1ãFOR k = 1 TO 10 'make little smileys orbit big smiley 10 timesã FOR x = 0 TO 360 STEP incã 'get x,y coords for points on 1st ellipseã x1=dx(x) * ellipseWideã y1=dy(x) * ellipseTallã 'rotate 1st ellipse by 30 degreesã x2 = dx(30)*x1-dy(30)*y1+centXã y2 = dy(30)*x1+dx(30)*y1+centYã 'get x,y coords for points on 2nd ellipseã x3=dx(x) * ellipseWideã y3=dy(x) * ellipseTallã 'rotate 2nd ellipse by 150 degreesã x4 = dx(150)*x3-dy(150)*y3+centXã y4 = dy(150)*x3+dx(150)*y3+centYã 'move smiley 1 along points of 1st rotated ellipseã PRINT #1.g,"SPRITEXY s1 ";x2;" ";y2ã 'move smiley 2 along points of 2nd rotated ellipseã PRINT #1.g,"SPRITEXY s2 ";x4;" ";y4ã 'update the screen with new sprite coordsã PRINT #1.g,"DRAWSPRITES"ã FOR j = 0 TO 1000:NEXT j 'adjust this delay loop to speed of your CPUã NEXT xãNEXT kãPRINT #1.g,"SPRITEVISIBLE s0 OFF"ãPRINT #1.g,"SPRITEVISIBLE s1 OFF"ãPRINT #1.g,"SPRITEVISIBLE s2 OFF"ãPRINT #1.g,"DRAWSPRITES"ãGOTO [loop]ã ã[orbits]ãclr$ = STR$(rand(160,224))+" "+STR$(rand(160,224))+" "+STR$(rand(160,224))ãPRINT #1.g,"CLS;COLOR red;SIZE 6;FILL ";clr$ãcentX = int(WindowHeight/2)ãcentY = int(WindowHeight/2)-15ãellipseWide = 280ãellipseTall = 60ãinc = 3ãFOR rotation = 0 TO 180 STEP 30ã k = k + 1ã IF k > 3 THEN k = 1ã PRINT #1.g,"COLOR ";c$(k) 'cycle red green blue colorsã CALL ellipse centX,centY,ellipseWide,ellipseTall,inc,mode,rotationãNEXT rotationãPRINT #1.g,"FLUSH"ãGOTO [loop]ã ã[drawMode]ã'toggle drawing mode (mode=0 plots dots, mode=1 connects dots with lines)ãmode = 1-modeãGOTO [loop]ã ã'**************************** FUNCTION rand() *******************************ã'** Parameters are: lowerLimit, upperLimit **ã'** All parameters are positive integers, error occurs IF strings are used **ã'** RETURN VALUE is the integer random number generated in defined range **ã'** Source: Can't remember it's been too long ago. **ã'****************************************************************************ãFUNCTION rand(lowerLimit, upperLimit)ã 'eliminate error checking to increase speed of functionã 'just make sure that parameters are correct or program WILL errorã IF lowerLimit < 0 OR upperLimit < 0 OR lowerLimit > upperLimit THENã rand = 0ã ELSEã x = INT(RND(0)*(upperLimit - lowerLimit + 1)) + lowerLimitã rand = xã END IFãEND FUNCTIONã'****************************** SUB ellipse *****************************************ã'** Parameters are: **ã'** CenterX coord, CenterY coord, radius1, radius2, incSize, mode, rotate **ã'** **ã'** CenterX, CenterY coords locate center of ellipse to be plotted **ã'** radius1 is width of ellipse plus or minus a few pixels **ã'** radius2 is height of ellipse **ã'** incSize determines spacing between individual ellipse points **ã'** mode: 0 = dots, 1 = lines **ã'** rotate indicates rotation angle for ellipse **ã'** **ã'** All parameters are numeric, compiler error occurs IF strings are used. **ã'** **ã'** Source for parametric ellipse formula: http://www.wikipedia.org/wiki/Ellipse **ã'** Source for matrix multiplication tutorial: **ã'** http://people.hofstra.edu/faculty/Stefan_Waner/RealWorld/tutorialsf1/frames3_2.html **ã'** Sources for rotate using matrices: **ã'** http://www.lab3d.odont.ku.dk/~sporring/teaching/graphicsF02/2dtransformations.pdf **ã'** http://www.ocf.berkeley.edu/~horie/qbrotate.html **ã'*****************************************************************************************ãSUB ellipse centerX,centerY,radius1,radius2,incSize,mode,rotateã 'use mode=0 to plot single dots, use mode=1 to connect dots with linesã IF mode = 0 THENã FOR x = 0 TO 360 STEP incSizeã arcX=dx(x) * radius1 + centerXã arcY=dy(x) * radius2 + centerYã 'if rotation angle is 0 or 360 don't do extra calculationsã IF rotate <> 0 AND rotate <> 360 THENã x1=dx(x) * radius1ã y1=dy(x) * radius2ã arcX = dx(rotate)*x1-dy(rotate)*y1+centerXã arcY = dy(rotate)*x1+dx(rotate)*y1+centerYã END IFã 'change to handle name of graphic window used by your programã PRINT #1.g,"SET ";arcX;" ";arcYã NEXT xã ELSEã x1 = dx(0)*radius1+centerXã y1 = dy(0)*radius2+centerYã 'if rotation angle is 0 or 360 don't do extra calculationsã IF rotate <> 0 AND rotate <> 360 THENã x1 = dx(0)*radius1ã y1 = dy(0)*radius2ã x2 = dx(rotate)*x1-dy(rotate)*y1 +centerXã y2 = dy(rotate)*x1+dx(rotate)*y1 +centerYã END IFã FOR x = 0 TO 360 STEP incSizeã arcX = dx(x)*radius1+centerXã arcY = dy(x)*radius2+centerYã 'if rotation angle is 0 or 360 don't do extra calculationsã IF rotate <> 0 AND rotate <> 360 THENã arcX = dx(x)*radius1ã arcY = dy(x)*radius2ã x3 = dx(rotate)*arcX-dy(rotate)*arcY +centerXã y3 = dy(rotate)*arcX+dx(rotate)*arcY +centerYã END IFã 'if rotate angle <> 0 and <>360, use coords for rotated ellipseã IF rotate <> 0 AND rotate <> 360 THENã 'draw rotated ellipseã PRINT #1.g,"LINE ";x2;" ";y2;" ";x3;" ";y3ã ELSEã 'draw plain old ellipseã PRINT #1.g,"LINE ";x1;" ";y1;" ";arcX;" ";arcYã END IFã x1 = arcXã y1 = arcYã x2 = x3ã y2 = y3ã NEXT xã END IFãEND SUBã ã'END CODE:ãAndy Amaya Tree of Pythagoras aandres1@msn.com 06-13-03 ( : ) LIBERTY 156 5573 treOpyth.basBegin LB code:ã_______________________________________________________________________________ã'Tree of Pythagorasã'ã'based on Wouter van Oortmerssen's [http://wouter.fov120.com]ã'SHEEP example [http://www.osnews.com/story.php?news_id=169]ã'based on an old E example by Raymond Hovingã'ã'Liberty BASIC port (with gradient fill) by Andy Amaya June 2003ã'------------------------------------------------------------------ãNOMAINWINãDIM c$(12): FOR x = 0 TO 12:READ x$:c$(x)= x$:NEXT xãDATA "255 255 255","239 255 223","223 255 191","207 255 159",_ã"191 255 126","175 255 95","159 255 63","143 255 31",_ã"127 254 255","111 254 223","95 254 191","79 254 159","63 254 126"ã'WindowHeight MUST be multiple of 160, 200, or 256ã'to perform gradient fill correctly.ãWindowWidth = 640: WindowHeight = 480ãUpperLeftX = Int((DisplayWidth-WindowWidth)/2)ãUpperLeftY = Int((DisplayHeight-WindowHeight)/2)ãOPEN "Tree of Pythagoras - LB port by Andy Amaya" FOR graphics_nsb_nf AS #gã#g,"DOWN; trapclose [endPgm]; WHEN characterInput [getKey]"ã'red gradient 'un-comment a gradientFill call for gradient backgroundsã'CALL gradientFill WindowWidth,WindowHeight,1,0,0ã'green gradientã'CALL gradientFill WindowWidth,WindowHeight,0,1,0ã'blue gradientã'CALL gradientFill WindowWidth,WindowHeight,0,0,1ã'cyan gradientãCALL gradientFill WindowWidth,WindowHeight,.15,.65,.65ã'sky blue gradientã'CALL gradientFill WindowWidth,WindowHeight,.55,.75,1ã'gold gradientã'CALL gradientFill WindowWidth,WindowHeight,.85,.75,.25ã'copper gradientã'CALL gradientFill WindowWidth,WindowHeight,1,.55,.35ã'purple gradientã'CALL gradientFill WindowWidth,WindowHeight,.65,0,.75ã'slate gradientã'CALL gradientFill WindowWidth,WindowHeight,.45,.5,.55ã'no gradientã'#g,"FILL black" 'output identical to SHEEP exampleãCALL pythTree WindowWidth/2-WindowWidth/12-5, WindowHeight-40,_ã WindowWidth/2+WindowWidth/12-5, WindowHeight-40, 0ã#g,"FLUSH;SETFOCUS": WAITã[getKey]ãkey$=Inkey$:IF key$<>"" THEN [endPgm]ã[endPgm]ãCLOSE #g: ENDãSUB pythTree ax, ay, bx, by, depthã cx = ax-ay+byã cy = ax+ay-bxã dx = bx+by-ayã dy = ax-bx+byã ex = 0.5*(cx-cy+dx+dy)ã ey = 0.5*(cx+cy-dx+dy)ã 'c = -1-depth*$100020 replaced with values in c$() arrayã #g,"color ";c$(depth)ã #g, "Line "; cx;" "; cy;" "; ax;" "; ayã #g, "Line "; ax;" "; ay;" "; bx;" "; byã #g, "Line "; bx;" "; by;" "; dx;" "; dyã #g, "Line "; dx;" "; dy;" "; cx;" "; cyã #g, "Line "; cx;" "; cy;" "; ex;" "; eyã #g, "Line "; ex;" "; ey;" "; dx;" "; dyã IF depth < 12 THENã CALL pythTree cx, cy, ex, ey, depth+1ã CALL pythTree ex, ey, dx, dy, depth+1ã END IFãEND SUBãSUB gradientFill width,height,redPct,grnPct,bluPctãIF height/160 = int(height/160) THEN n = height/160:mult=160ãIF height/200 = int(height/200) THEN n = height/200:mult=200ãIF height/256 = int(height/256) THEN n = height/256:mult=256ãdecrement = (256/mult)-.01ãc = 256ãFOR y = 0 TO height STEP nã c = c - decrementã #g,"BACKCOLOR ";c*redPct;" ";c*grnPct;" ";c*bluPctã #g,"COLOR ";c*redPct;" ";c*grnPct;" ";c*bluPctã #g,"PLACE 0 ";y-nã #g,"BOXFILLED ";width;" ";yã #g,"FLUSH"ãNEXT yãEND SUBãã_______________________________________________________________________________ãEnd LB codeã ãBegin QB code:ã_______________________________________________________________________________ãDECLARE SUB pythTree (ax!, ay!, bx!, by!, depth!)ã'Tree of Pythagorasã'ã'based on Wouter van Oortmerssen's [http://wouter.fov120.com]ã'SHEEP example [http://www.osnews.com/story.php?news_id=169]ã'based on an old E example by Raymond Hovingã'ã'QB port by Andy Amaya June 2003ã'uses same palette as SHEEP example, scaled for QBã'------------------------------------------------------------------ãDIM c$(12)ãDIM clr AS LONGãDIM blu, grn, red AS INTEGERãCLSãSCREEN 12ãPALETTE 15, 32 * 65536 + 4 * 256 + 24ãLINE (0, 0)-(639, 479), 0, BFãLOCATE 1, 24ãPRINT "Source - http://wouter.fov120.com"ãLOCATE 2, 13ãPRINT "Picture at - http://www.osnews.com/story.php?news_id=169"ã'scale SHEEP palette to QB formatãFOR x = 0 TO 12: READ c$(x): NEXT xãDATA "255 255 255","239 255 223","223 255 191","207 255 159"ãDATA "191 255 126","175 255 095","159 255 063","143 255 031"ãDATA "127 254 255","111 254 223","095 254 191","079 254 159"ãDATA "063 254 126"ãFOR x = 0 TO 12ã blu = VAL(RIGHT$(c$(x), 3))ã grn = VAL(MID$(c$(x), 5, 3))ã red = VAL(LEFT$(c$(x), 3))ã blu = INT(blu / 256 * 63 + .5)ã grn = INT(grn / 256 * 63 + .5)ã red = INT(red / 256 * 63 + .5)ã clr = blu * 65536 + grn * 256 + redã PALETTE x + 1, clrãNEXT xãhz = 640: vt = 480ãCALL pythTree(hz / 2 - hz / 12, vt - 20, hz / 2 + hz / 12, vt - 20, 0)ãa$ = ""ãWHILE a$ = ""ã a$ = INKEY$ãWENDãSUB pythTree (ax, ay, bx, by, depth)ã cx = ax - ay + byã cy = ax + ay - bxã dx = bx + by - ayã dy = ax - bx + byã ex = .5 * (cx - cy + dx + dy)ã ey = .5 * (cx + cy - dx + dy)ã 'c = -1-depth*$100020 replaced with scaled palette valuesã LINE (cx, cy)-(ax, ay), depth + 1ã LINE (ax, ay)-(bx, by), depth + 1ã LINE (bx, by)-(dx, dy), depth + 1ã LINE (dx, dy)-(cx, cy), depth + 1ã LINE (cx, cy)-(ex, ey), depth + 1ã LINE (ex, ey)-(dx, dy), depth + 1ã IF depth < 12 THENã CALL pythTree(cx, cy, ex, ey, depth + 1)ã CALL pythTree(ex, ey, dx, dy, depth + 1)ã END IFãEND SUBã_______________________________________________________________________________ãEnd QB codeã ããDavid Drake Pie Chart Creator foundrysearch@mail.foundrysearc06-13-03 ( : ) LIBERTY 125 8198 PIEPIECE.BAS'>>> Page 1 of PIEPIECE.ZIP begins here. TYPE:BINAA TLEN:5371ã'-------------------------------------------------------------ã' 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,"PIEPIECE.ZIP",4^6:?STRING$(50,177);ãU"%up()%9%%%7-%*eB1Sjt2$yv%%%%%&%%%0%I%%4GM0nG5jDkn=&i<9h]Qo48K[ZZ0=?a?XM:'ãU"R8S8'l.c\],^EVkijYgN9i7xkxNi,)HBVL&I0IN%/*evqSy#IQTqa8:Nr)Ut&T/cãU"']Q?bsVd%up()%9%%%%-%4eo1Sb'.mB28I%%j)%%%;%I%%?8M4.?8M424.M>.33ãU"MA0:4LS10BNf+:>oTm+vXc9uVpC=g?Os]S>4oo3+b]fI?1_E_]?l9UEhose>RZjãU"ca[yATo*#>zdKQIjsP7F/Ec*1neb_VzN/vs&dZR]\FC6lvAf$Z2KFn'_84v%4Jnd^rjNFYt_8gl,k6,CãU".=m,FO$#z6R']YpgWI2OSmVUpokmIsABg.-bn1nBRsTPhHNWm$b&CCJ\JWK]8kAãU">?R^dX\As3A-4lXq)HNrsEWnB.G.6Lon#A#%eO-_'C[HfuãU"Vc;O#X?Gbk[9NPkcNn$+;W1mJArF&fZZYYkKT6Fv+m:oGWãU"^$WjCjHpjbF,54*YvBb:IREH/\.2ujG3,4Xi.32ZYJaPpSF6_='l'ME^G7&KhM9ãU"2rK$-E7lY)QeML7Xn=XeA2hKJ3=R9tcE[F2ka_UAYfJX550?2';Dwmqp.+ãU"I5gWkOkr;bK$vic)E8Wpd\>SYou$-o)U59>52E5#_?ezUm&^c*Xcl)-TL:$$kE?C+gTL]FA#MQt6Rv-=ãU"AE[7]*8AxTRMP=Cb%%8Vi\B1NvESFpi>?VRWgrBYn$Wk\*;]ITtofu45w9.H]kk8#yUh(Nq/9:T'YY-ãU"Eqr.04y$UeHcB+b,aKsCwxroN0WYg-c+O7tpQRfRr+fLuGr='(owh5*%pNr6L(LãU";IeFP.-Z%w3:'0g&=)$YY)Qm)#JL=b?36u0;+K,3yOpaz2BqN-3[f.\QF.*/(,TãU"0ut%5g*k&./R5a_ZA4?>4iC,[IT9KdxcO&&xY%KV8:.eZQ,jia]'?>R5RT5cRLQ61p)ABVejJHppmDki_0ETtmh*u:ZC^RhãU"hMxUIF5?+[epp_?1Mg5JgUPj8[wVPts-Mhs9Z-FZgVY,qt[6i>ocYjWLjPu5RZ-T\6C+quX=9F#_P7J?Q6d>NG<)GMJQ)L5ãU"b'M+rg_OeS.E>sL8ãU"h<0iP-Yyo>NgfymVRql=1?x9rv_dX(P,;Qcpr_i^OW[#W*$D4N5]=6VweYV8Yo>ãU"J6\mP11tA\*#sPK;kz#Zry%U/FeU3^LOVXq^ZW=KlwNr,#wndWO%ZV)Y5+E&zw6ãU",Nv?V?nxTiN>vEgT5-5IW2X[H5XjY2ls%vP,dWe0(Ug[YIT=CA4y<5F$hh0#IxAãU"Hy[PRN?nAcbE30_iGRlkPAHF9F'$/aU$.-^3V#Pv6/eOqA-c92Yd;z]AG-W]ph.ãU"<,([Lu:LU0VS+eQ9F1g/t-uvYYxv\bdGK:p<83wYSGWTIv&LW>'b)a[[E<;a[DlãU"^gW'gSp$i*GgKk0>JoS6Z+*S-kMJg_f<*uRw9JZU=I4t4\9&=$v^=v\=09qkDH)ãU"=h2e3aH/K?/-W4:Yroind8C22%(;,b:J53^x_Y>9mcBOG%V7TFxVMt:/cfY*l>3ãU"'P^:C$\y,s7F0$mGeB8*r-YN3BE8Xk2?nOG,3mNb7OX>Aj-N-)hk04jsnK);BCaãU"cZ^OZ7$3m,?O;o.l3*ThQ:&q]f8ãU"p*6osb/YxRkaB3m>h^6)YjWn0>oh[[Yce+L1R9ykw_5+kw#5+Myw_IZ?LKy,12[%uo+E?stB+MgED/$1n-3#_ugDobO3sr&9T9P><*K9rTQ1utJrãU"juo[y&bNQM,^*:&]eIk.bT3R&A094o]?;=aF/6?:(=ZlAGp/.5Ab$OM_7+98<)aC#pe^Fbabm\).r/o>*C?2#\.U.;#BVc$BX6QjãU"mkE#%]J'9CZo=*40DuzT\df+b9RgH4:Cu$ãU"-c6B(DMBTm4+b)et7OcMh\.OcMc>*u-#D/Z_IJcckSXQjp1c)u&m/E(r&G2OU=iãU"iQxrT>TE-+BQhDRM)7r21-Y(kd3#:hoQeLi/O'N5-8c)1#\mZSZKb50/,SV<(<[ãU"/JgKE2A.W4\SC-jYPQ#+KUCWLFG=,1]0qF(E9>0TDn?76,o8C4=*#d0m*[$<[rYãU"t=2Q>1N?6[/5$pRf[/]5n1H,g/#fD?5Wbbk(J0twME9ueC4]=d;k9oeu8[Nd58\ãU"4o*F/P8kO6hILUAH(FW)g#PVRxs9dL7j;)krc5w0w-E7W)B,go*ta8&V6J$1JBZãU"^Q4Vk,+X$,hoF^f_qki2Bh/C=4j^05Go++JJãU"1%ocZ7#;0m#J;8M\?*j\tSnv49$M=?.JjkL6JWvv9EM8?DSik#RG_3ãU"zrk=LwTLY9(RDoIzzP-LyvS(B?y>..c\l&siN,0-+zSzfL9_o(B?Qd19DHU-_=kãU").VjL_x)l+Y&sYkz?T\B4**Pta]u*r#rfp1[)ZAi:#1nnqbl[2jvq>wU08:.dãU"c37A/:hUmaiX'XS(Bju,pC2^V:,\Q&G0hTãU"CX5zr1T0CsL-Nmdn\Zx,.v2#?^XI7*84kulF=U'=K#VK+siuzU15qTXY>hg+^-yãU"\3p_B'$q7okeM/UR:3val:?^%pJ/A=HH4n6C(NwCdcP5Mp_pip>lk-dQ(L:S#s-ãU"t(EJ=sOW-:d;AVo.Z$L4NAt3=rTa5s.^4Q?QRj>9#FRU9,i;O.H=VM6BG4hEBDIãU"s&HOYoRBieM-G]SZ$-ãU"Kp3>;ZYdRFTS3,5X:+>K&b>K0HaW.x)$SMsl?e%/[6fcjr$6B[4VI6,S7NzCX[4ãU"R?G_+WXZf/n2nd9*fK^KGrQ^G(odX8'?h)]uE#O^NH]i_(wSfw8$pYE\W8QU4\JãU"<(#h\rgR?v*1#dN-hd$-=r-nZ(c5\<-rC*r6AOTAXrAJTn+rAN\TarA3LTKr6APãU"T'RrMITW?iI'1'zKSsD0L#f6qjfLrj,18<]kGjLlj^$W[0/f[F5kvbf-ra+L[b;u<+8e<8\/InDãU"HeWby1ãU"VzajPPs%apsnAY:#)N,jINrL$c8otRPtsI2&48Tu#E[5Nsippj.)T0h#seW\i)CãU"FA6:R;ZidkKi*o(sNuL2l5)0Tu9)Yn1=zaB=9eM3t%lRSJ>g?+:pUX0*i4OXp=VãU"PY8K>\W]/_t+*0%ksnNR%OO]MJ06+OsV-jxxuK\/t0cotNPb;7ãU"2O04v*Z^yO<#Hi26)I&O'=:pUFRY778/n9XjPJei=)Y4mIoaxJ?:%_ca]*i3tO#ãU"b,wyaFUk-c:Pc9V=7ãU"haK#*qlBfoz]WJaHY,j>5k[8gKwe)xYb+RgWQw7zcY1fmoIlaDaj2qp&wJ5j/9SãU"7tPbhdQN[N0JkQu:B]W^DFDTI3PqB3jq\^jqom,S>,eSzYO6ktlThNYH_/4RttCãU"wxJFAN=-#j$?:s.Ub<5zQBOlR3E5=5t*oNAxaO;Qgu$/K\$NH7xN;G*N1B/.G-BãU"j?DNQgo(Z\Ssbn)$uBy&FyPd6d-rSMK_9&4lZ2uN4cY.cXSjhJFETdfS3i428x>ãU"y3b9dt#=1=Ein-84gONX$Yw&Lx2v8\fDLdgL,,ãU".K+;REjV.33MA0ãU":4LS10B%up*+%%%%%%'%'%&L%%%&69%%%%%2ãEND SUBãCLOSE:IF S=222AND B&=5371THEN?" :) 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\5371,219);:END SUBã'>>> Page 1 of PIEPIECE.ZIP ends here. Last page. TCHK:222ãAntoni Gaul Sitting Budda Fractal agual@eic.ictnet.es 06-14-02 ( : ) Qbasic, QB, PDS 95 3216 BUDABROT.BAS'Buddhabrot by Antoni Gual 6/2003 agual@eic.ictnet.esBã'------------------------------------------------------------------------------ã'This different rendering of the Mandelbrot Set, created by Melinda Greenã' reminds the shape of the classic sculpture of the sitting Buddha.ã'-----------------------------------------------------------------------------ã'The number of calculations needed to obtain this shape is much bigger thanã' for classic mandelbrot set.The complete drawing can take hoursã'Good news is you can divide time needed by 5ã' if you load qb with ffix library, a patch by V1ctor for the QB slow flotingã' point operations. You can find ffix in my site among many others.ã' www.geocities.com/antonigual/qbasic ã'ã' You must uncomment the two lines invokking ffix,then call qb with:ã' c:\qbpath\qb budabrot.bas /lc:\qbpath\ffixã'-----------------------------------------------------------------------------ã'Classic Mandelbrot is drawn by plotting the points in the complex plane whereã'the Mandelbrot formula leads to a convergent series.ã'ã'The BuddhaBrot is drawing by cumulating all intermediate points of theã'diverting Mandelbrot series.ã'----------------------------------------------------------------------------ã'Two sites about Mandelbrot and its variants:ã'http://mandelbrot.dazibao.free.fr/ 'Mandelbrot Set in QB ã'http://www.superliminal.com/fractals/bbrot/bbrot.htm 'Melinda Green's siteã'ã'Have Fun!...E-mail me yor improvements on this program..ã'------------------------------------------------------------------------------ã'If you are using ffix, uncomment the next two lines to boost speed x 5ã''DECLARE SUB ffixã''ffixããSCREEN 13ãã'set palette made of shades of greenãOUT &H3C8, 0ãFOR c = 0 TO 254ã temp = c / 4ã OUT &H3C9, 0ã OUT &H3C9, tempã OUT &H3C9, 0ãNEXTãã'plus awhite color for the time displayãOUT &H3C9, 63ãOUT &H3C9, 63ãOUT &H3C9, 63ãCOLOR 255ããCLSãã'If you increase niter you will have a crisper but slower renderingãCONST niter = 300ãã'set up arrays to save intermediate pointsãDIM real(niter)ãDIM imag(niter)ãt! = TIMERããDOã 'seed the mandelbrot series with random points of complex planeã x = 4 * RND - 2ã y = 4 * RND - 2ã im = 0: re = 0: re2 = 0: im2 = 0ã diverts% = 0ã 'iterate the mandelbrot formulaã FOR iter% = 0 TO niterã im = 2 * re * im + xã re = re2 - im2 + yã 'Save the intermediate points of the series to arraysã 'IF re > 1E+21 THEN EXIT FORã 'IF im > 1E+21 THEN EXIT FORã real(iter%) = reã imag(iter%) = imã im2 = im * imã re2 = re * reã 'If the seed point leads to a diverting series, we are interestedã IF re2 + im2 > 4 THEN diverts% = 1: EXIT FORã NEXTã ã 'Plot to screen the points of the DIVERGENT seriesã IF diverts% THENã FOR it% = 0 TO iter%ã xs% = CINT(imag(it%) * 80) + 160ã ys% = CINT(real(it%) * 80) + 120ã ã pp% = POINT(xs%, ys%)ã IF pp% < 255 THEN PSET (xs%, ys%), pp% + 1ã NEXTã 'To display rendering time, not really neededã np% = (np% + 1) AND &HFFã IF np% = 0 THEN LOCATE , 1: PRINT USING "####.#"; TIMER - t!;ã END IFãLOOP UNTIL LEN(INKEY$)ãããDave Navarro, Jr Display All Bitmaps in a Folderdave@basicguru.com 06-14-03 ( : ) PBDLL 264 17322 SLIDE.BAS '>>> Page 1 of SLIDE.ZIP begins here. TYPE:BINAA TLEN:12223ã'-------------------------------------------------------------ã' 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,"SLIDE.ZIP",4^6:?STRING$(50,177);ãU"%up()%9%'%#-%sMSiSY2,7*#L#%%3p%%%0%%%%nx%tzwh%jSnsLhs'<,>\[7iw-ãU"oxn05Y)Cn0PX-6(R/^yE9(i/YlS-fQDO1KQQ3tLwS^w(Yf'+r:4,rqXZZ9ba)2;FZH6=AdqvãU":IS[?dRI2R';eJ>\e*(vb%>1SS^S/v)#al*p-YoT2+02[$bu),*(mRHu^=e?4N/ãU"ey/kU=NhnE%-\boFtwF4>av(Edjrf*ZuulwuK0BT*t8uG2Ai+p)ZjpH;2^bi-+tãU"$X)F_>JA1[bY(Osk;&UJp?TZ/G1zbM+ãU"$Nv*ePNJ,Jif*V?iRt_n%qlJCxxYr[J_Q=IESw\d>XqgbSt[d^1-pIM*V\DsxYwãU"nLw.=&37Z*C:Cze%w>evF:s>4_f*I#[5%KjDDR.KjoRn%7gW\sY?6P_Kl9TZACOãU"jYmoaHPD638HA;]8%L#5G9,h&9x9tC=0_dMmYc[[+SO0KLul&sWh2t7KYE)tO[w/0khukZA4CGA#SãU"OVWtTIZV*Qo?J9fd028exl2(b_,zS)5^#nI%CQ$N>&V)aW0&tO$F)=kY5KX;ZT$ãU",B:'H^:RYz*Nn5jhjZ?C0UOTll>SrZNsULKzp_L>.B:re)B;YA6uTpmI)S-P9P9ãU"3;9aE3;8UGalu.LADu>x&sUWmcRRvCkVT7[fr_Ej\V.a5n-*ngZf-6h?iN&Z9_WãU"1-8UZ:W?77gw4QrI2=4K1J#zee-U'-\qU:/tg&3XbnhãU"m+n6rnG=fjnc+)xU%=9yXYmL]_LIFii2go1%?&51]F(P8Y#o#O+V+?<(uGx=E7zãU"qqAXT[64Q*(KrQkhOeIki_9s037xpW&QfX#>JODO+4.XV+up=5TsUh7\*)cãU":TcKU-(dWw?+Tvh=jVi,(9]sF/Y[IRhF(\Q>P(cdg#am0q:GF'O[ZtSeB\>]R,fMgOsk_Q7$kh6r,ZãU"+&7NhqaLcs>U,d)Re*gQG=u1+#m:Qkb[T*Z86t%eJPNFYyU-c^A'Jh6[bA]+E\=ãU"1+,v:\[u.wM.:NR#jy#)EKYI$1nBg^dc\A$bQ\aTUPbQbm15dzO7(=fN4Ds-c[:ãU"ANvZYJK/\7Z=Fk5B.CKh^R,HL83b=jM,7N5z784^8Z'I-\[Z9WfOx1j:PTZ&9r3ãU"QmD,G?^b-vCz9OT']Dswkh/Klb+g_BG;oJ))YiC1fTY;w.xx'p_M*km?8S%kDHTãU"dK2<2q5i>&F_ngb,'7vbQr38BM3eYNi)1O\(2iq>2MI4l\.&(xtc>N_;1%,LB,7ãU"d/h6ckSgW:taRM9%Hkc)k-J6Mt,PTYs%Hxn.vK&ooUB^,Y^FRir+WPL;r34W1o,ãU"3IOJWZ__qd6Cpa(>MF=ID^HyoD<8=3-Gx(Z%FGvzZZ1'Hl.Z#hkOD_)rR:phjt%ãU"$Su&-#Q'J'amq5+/'-o3CV+=+#09Ko]Fk&$:[%1Nips3bUb5-LZãU"KkJ*Couq%AzAt]hd[QtQSt:l7pk,z38c+=m5z*cGsO$15_KsuNIGaleOy?kbe)LãU".o$4GR;/erMR-d3W5r'lc]#?4&GEK]]VpM(Stz%3m^?\j5e']PQr=tnCcãU"eZiFzTc/OZ*Rm5)=(BPPSmNnKbuoVjN>Z6RVKAML]v2'q6S&WYTNm%S:c^AoK-WãU"8/rphKKzsHkdJx0V)kxNRDg;Gn\>)^2,cuqu:K7ke1r_F$3kF&z]eR]IYrKW$-V5<ãU"bu=DXUXp7syo\8R#csfdfBWHWJKwHp^^<]e2Y.=$,xT-?OMwJ*5OIC<:]rQnHW;ãU")r</nllt$k4K3HoJHncCtv-osCoF)+]#nY4_\uB9SOãU"%w-#e(C4A[QvCavlM53coUtsvwoJgkLi#B7#Zw&ftvY+T[6[j/(=<;HGL63oY/PãU"-_#Td[?B6jim2g=h&rjTO;[DRho4aL2a?B$Ctql-SJhm=:=q6,Yu14^_7n<#7PNãU"/QJklZ7owV33/;XIpS[yVHVjxm$;yCj$FGWZyiKA&N5zj&wuZk[Y(hfn>+ci9N/ãU"62MV^R?as^/g7,LyAd29JI[)h\ttTOGnPv'o2_1g+N0X_C5V'-s-6hG^i,fPK2eãU"d57r#A+KBMABxa3v0\M8udTRYm/p[,Dn2PIF5#Iv1szw?A;%^;wC$hSEdRJ-NpsãU"u^'YbfCG:CTVii6KfAPGPwGEiPHAKCb#D+#xH1:SkdCG'GX^6csJ_tr>]p(tlGiqH(8:?^2D7HãU"p1es2LqD2G-sI(AftãU"^\;g>mv#lTp$l(I)ccWWelz:h0AO9^hWMSM]\^u]P1d[\lg'f,,hNInt)vh;?ãU"0R+WrFcV7Gy3$RYBD:23&$0[f4.v8V\6B;]7]U5/CBmCpb4.RqQa+ir(LQA\x,xãU"KcN6+seJ4\?oSdEq_*;\&&jX_.lTVjG4gUkvr4DvqnWs;^lt4jJLY[jY1asrUhdãU"]K2N&Yd/^a>Ye=+(bAu3nBnA7-gLC?H8RR38U?qw=79),cm)b^xO+BqSabb$Hm9Wth+(Zp_lNT_40#S8B>qlKUsvbcR5Wfe:[dw.nzKyi3d_61PqGjATFmw-KHYhZP/:-I+(NmY.u.dXãU"r#LD8yx.sW,%VT#/+\b*2(PkYQIx&V-vf&3'?#g4z>lZdTp240ovconrt:XPnPKaM9:91r7;iBWpAA%AGadPgJ5W:YeorJ>Q:l,-oL3.=buoXL0g,>:rv8SvE1rG/HUg^td:Sgo0ãU"3X=HY)LgJCxd-elp8vvX2HX:kmxQTARfXNVgPl#Zh\)XcYMH1/t#RJHN0ufWTeqiJb6uC&,+2ZRGãU"2+?Ca,yT.ZQyYTr\Q_.w*]TdZ=a+uNwT*7mnT5Nu0Uie^J,/p-=T?du;I?VJ#6ZãU"BDR886:#l\q\Cn4'u+Fmc7#-?&+*XMODOR0V9>8=tiRv0;BP:uO'AD5>[ãU"DEPDX3A2jg,[W,/TS-(6#y,:lHBjQm1vMIP44)&K5TqxiY;\;jM'^ryY$mjUvFAãU"GnQK>EEv&Dnb+V\$NV0AYy;VSW$+&*,B5^M/]/6im6+n-3;'XuTUM1^PjoDyVm(YGI=Yf.N-(dwoO[SFe^h#NMF8qZ&Ip;wHkHK;'u<.x#LeKitp3qãU"4:7q5BnjO6CC/,%yvSLUy'NpESMPC].l+xibWFbGRu1?+FãU"5\[0w)?&X>K8dq3wDK&U8UuL0kYuMM[L,#/v53oN6v.'-%YHpa3<.B[A3E;]1R[ãU"'2az]s%VaL.C.3-:2dDUDT+RgF&c&D$a2zlQ?skhKsh)cflK5(Ggs;j^YXY_o6vãU"IgaF4&cHArV]DNE0%BnK70rT?DYW;olal3jlu%6u+_j#r6hbwZK_GgU5p#e=62CãU"'P54sWjm&8TnDA%wy3JY,J5W/If2hC5.4HGZue8XUATYtwN667N(u3e0dm-7EshãU"?;IUEf^fle9+IuevlT\Fo:8Fu;[tRd^31Gslu[qkM:1NXN=e&'u8_P/5fV7aZR2QAyQnS7QWH<KYlGIcESkkUmK=oY[Jj)wL)$)$S%X2BZ80J2ff?Av9_>4SH=pBUOTN^25e?ZHdU5(J9ãU"f(vWcFARu8Rbn]UHqGpo<5m2ic[._,OoDzNp;c-'w8*073fkJ:\U(y^A_YHoa*^ãU",#r?P,pc%]VB=VG/*$,k/UaGC82^.3T2X_xqd^9TMOW%D>ãU"K[D'NEA3on[Yuc++TBBG)r&fHvjMrzD)FevCm]BQIR(k[=8#BJj)&w82eq6UCFKãU"'SJ7Y)hl?_zeF=G_^\Y)q*BV,oa.Y.,?=4V3>?Gh05V$kiV,EK:+QM+:<(s#Uj+ãU"zSSt:kPP=Lg,1:s/CRRxL9j#w$jNmP(R>1WsMT80%??pUUB3x5U%x;&nejTf44sãU"5bB)Ydy?D-,jk>s:ZoPtYyC&?>m[q:ãU"%_5M35vq.tLms-1-o&E^6WRZfQLlr?3jB&QoKTud0-PCCeT%1]gt6,jjSU;5kaJãU"z'B1/0tRo_wC_-]GFIPaGT0M:fL%O(=I5NstPGe>G)1/MhMGM^T6Hu^r&k[<3r;ãU"6yq&Yv1aY]dmTPlWYv^/azcQlfhAJBh5)57L$>jpLX0arLANv+u$Nd,.hN69?4ZãU";5,ane*0)%,YGEZeFa-uw.qSrto^_F7:dn5gcPaFFBxRC3jATa3;YC:^U_X4PBE#3m0Dz0BaSIr1>+EX=DTTZw45=ãU"(/\Km)Ku\oa5\=j1ra)QkAARj?$*D74.C;:[-%.%u$Sp6paIYK$nuZ,M1'QI-B3ãU"_c;#qAd^W')Ue?-D5cx9&luUUov2_?rYGx$FGafadN_17I-acb:hqs4HAfZFha?ãU"yL;$*',jN$1>sKFhdfpL%e^%QY*$Xmz7zxnVb[S^5PD_'C:e#N8Jh?.4:de'68VãU"nUyaysFls\FtQGb=>/?6q(qlZY[HaqY%fTptX+b,grU\'.V(s':F=#ilJ-D9&NQ+9U&BbsM=WVUy89HvW?V2vuPjB-ds:_X1pEP2b=X0?fkãU"lfZ(G4/C%.j9uuVO.?Am4ed7(uMKFIqsYA[$6HR\[D_(m+wLb[l9?KJ^JG2+]I#AE4]G2Fg\/uPM(2wyK3>d^L,T^r?eeY/cãU";4Q3n&,?FGF\3-OM6$.Tz'7G.pEG7udC.<%A#7mPT7RQdAA;<3-SoDjoQk/l=<0ZBB9/9ge5RFN7e%+\E^ãU"Ac3gKuaKVJ]K;OB6f0COm$Y^-)f4d;_/<4C(Y?Dt1=Dq&pWAC_6HfhkLN&311Q^ãU"mNaX<>C#xj,VZax'*6yS&b:wiRAKY/Q>#Ou:M%i=7hM\trnUK*ZA]K++9.3i,YLãU"r3cs].WqNDf+P')0m<[ES:MZjh=7tm^B6&+P>+8bgSw(nK'vBi^tDE;gd\MAdA$ãU"Ji5Dze]&lX\tSb/3%(sJMJT.S2k/0-AhC:>(9,kvLpC8Ca<>z0Jni#garvv9N'ZãU"(aajiE1c7X93?RW#n*jpE345w3hWJ$\I8BE/\tj3afm0K>fA>Ytpn?qnM?M-8TpãU"soFjf(L,RL.SkQC$YCy=f5_f&KH4+ZilkkA\eL:7EtQ_a\8p^=WFd?DepFW\kkDãU"Us[pO.JG(9dWgub[eoY.j81/Q[K+I*\1;BI1dFGMD?_a60Ww*u.*CA'd#vo==2*ãU"z]3)i8Gpc1=Evg?Q'rUci$N0fSp.JIh93/3xS]$3jeD(_%U,g09tkZtvYnx%%L#w'd8#_&:T\gylãU"B+AicP0Pbx\>)6'Ik\Ge8)=VlJaEh/=2Z]Y?k=3QkrG/5Ve73da\tuC92vtc)+iãU"2g:&\*A>eAAcFey7Ku;[0IykoH=UiX<;&G#ICd\xgJ9[Mg?45Q2XPDãU"o3I\SwNZFBO$usqd&d\%ZQd*-153:_U6$;/,eg0ye,5w3L9HDlFvE3RG]&=pURGãU"5?jEFxS0I.tAgSV+Gsmh7+p57oPFOIpxWhMy%%E9kBXQLrpo8i29?%J04dQ*nsJWnb5HãU"YZB7L*vXdMth1PXsi7_C.L?4m^0M0\:ZBf2ofBRBn$%/HyS;O;NfSjWM42=OedKãU"G*063kmBB>LZr/M->s>^=JdmXZbf/Y\3uhJ+N8vKHgIJ9&sSN)exwE)]L$0_Q,mãU"t%3jy%IP*8BT'=ul1r-*Jb_H14uO]v,v%$I/j(fpY0,I[98E,4s[EvF#WCs6FMXãU"'=V6[%Npr%q0/zBY02LYdgMN0wgq?V6,v92[m4:.Nkp;\rk'US.m>PcnIg>ONA)ãU"w^](j>*B)n+;gm[vcE]PiKE%s0l,/i+<:VQOy*^O;'Re4Nc9,Y2tDAãU"dT>e_Gh/a.^xdG;;ISP9h67>QFuM*Fiqa?RR\qdazRr\C8t6Lr\X&iU>0[JhyuXãU")6-\rsalsXHH=X3YyDErLwaS\Z3+ayhiDa3esNeA,Es+>&&,g+9*h9S48*NFfZ.ãU"[XCgG;3cd+4PdLaHe&k5kbS4W\Pb'9Os:v%2sCNTBg]+Nxc^ZS\/dc=y1'm:weJ*K*yF,/yn.rY>XKthpfauLl:5K=^e$YD/qim)L+=dAk&M;5_C,^9VPVV?9[n1LdYPZwãU"_jDU$1pdfVY<%mkD%q3ãU"gdC#cU4'WM'mDAxnRLVBPPAbe\Q]l'uJD6oan_;O7jLa8L,JJ#>E5$Eb*)hw/1CãU"ZXj1kX\m=U[?Z%K,n)bIVpdYrm.pBddi4z/?Eam3zrCOrl<23KbL0VzEwu,NJURãU"1W:vP_&MnQL'XiYL'cn9q8BY=:*rgJp[Ns%uXDjGv=z*K:kS^E:kp12KkãU"*O)]muda:dNZZ+dhf;op%]9?m:OD#Et:4'j7v;];fM0D[bcP:AbM8S9pSRko=Bl,/-gG?>,nJXV<,k'-L3UPg_XMKjTkyGl[DU?3.]XEgAãU",*$wC[jjbjQ3C>wLVoh5J%GKcPEãU"tgdj$Mij/.:&;hmU(OnC3I1OYf'VV\(TE-HV9,T;4N5Q-QfeS=sn6hsvmv,M6J8ãU"^DQV4]S_UrcMmA9M\n>Iakq&\,sR'OBh.A?(1%bg*g(>9IgBwg?LFb(,fKq'qHMãU"pE0HF(?gEnN8W/JqbJxr..q2y*ZdE(T_Pf1ap?(-tf8nBLI[lVJ>MQ\(yF+19OQãU"#S6UD1V17PZmLZfTiVH+WWYU52VNTPZ?_u[N_-0F7c*ZRDQt0cR'-An0#sjAWdCãU"T]adwcXHp.CRU$vfpTF=7=5$w-?GtBK51a^c3KH-pZT7SL:&s5\p)6E'*Z8lbSEb%GQYCãU"AxNa,/&=Oj2UY[.:l%J=_UShDe%)nN=hiK75<9AQE'?(;qZl]W9?AAn-g&pH#<^ãU"qxiCZVwRMtKI\Xl2]T?*n'cVfkK*PqLa#az/RFe0N[mK3+%c*N&/+'Jc&^UjkS[ãU"\m#>''LYTK\Z&9S(q1;:b*]t#lwM:Nm)l.;x%w;)pYcs2RU4[Y/xA'KKOWpai4AãU"m%?$)N4K*dE0O14[fJLy-(nR>z\(h6^SRa,YiRjI>,Qk=CFjIkgphS6bJ6]?[bIãU"4'9uj,(2lO.8LnQ?nveq&hfZmtVt4fY;ADCvFBuCãU"L<xNJl9a?4l=^SF%]3cjSr%^-$i(Xq[:;C\B&Y-RgYt[5BT,VH;Js%ãU"5C[8P6c%BOv=HO#ecwiY51+];+asn_qm=H$7Gx3laK^7TYt;xEE:E+LZV'FãU"FKezz0g_*P$vRSNCQlJKdk%cd0i)S+uu$^N'>N1VVzOT5L[y<8rEqqP/$a;eTa$ãU"kI2IF:AUho(V^9uTnqSv.=#K?#+DtmB/),V\lf83>M_*;'j'bnflre]f'9WDxgrãU"LLuZ'moVRM+QrRI&,$m.AknR#mTFPJGIsfWQe=?1?x#i>[Y0^k?=E0l;tVmUC8B+)WID>-F,UX+YUãU"*dFJ(T*.3snQ[e;rFKu4T+t'U9*iOW'R3CC&5hZVd9K^%NaF)bA%R)6m_$0)uMBãU"J[tBsUoq*lpLn_bkfk[PQi=z&'A^59;vFu,)SdoX/](g5_q^ZZ>*6(W-R?^4J2hãU"0ufa#J.2T^mebPcK#-Hmig:h2oM?mm9l^UL;\3am?=LXXew+2&0c%%U3;6?,xk5ãU"q=VYXk]=]][Zhi-Nh_i8,:4plbTgvGqmF)Y$/Y#&:>NSn&Tj?L=n5Dbrp(J]J9dãU"cmFg'4]e*<vUobVzp^dgIVK9f.PRbdY>D/_\tvcYzq*r&eãU"z:t>m_/kJ7S*DU$mQBmnt2A9e:nd%up()%9%'%I-%fM8iS)]>?uG,.%%k<%%%.%ãEND SUBãSUB V2ãU"%%%xq%nijS[gfx6k'b>[mm;xW+wx4t*e3(ReiJhNA9c1zaZ/.WO[Q:jM_=\SCOEãU"*9lSQ;2U-_8MZdk:$mqpL6q%cQhuqN4cNNz+Nuu7Ht>FPu,m%gP*?eWI-fZNvYjãU"4x52jSurP4,wdG)Ux7X+N_D.7aC9gfH=ua.>vihj$Z.xAIi*Xqf*3f?>r3xh0*sãU"Q,sa%-_YcI1b'^$A/n%tN?uT8(B+kp+j%BO&IU97\K228QCNog_R9-S;%w7HkckãU"%,Y%MBiV1u+_534kM:*'<\.;aW13k16oHJRuO,N=7RTFYW8%nB(uX+RZ7OVãU"907tW*?p$(GIusWeE4-Z*_w1JYW=7))W1OPOh,?uhXv>eAK/1^SNX6>Xh1[]Q4[ãU"xukuAj2u?>,XFxtFLs#uuO$,;7rFlbHr0UhmU]tN3(]p\0:q*LRbJ]sh1%LK6O0ãU"v3uJwMuqSq+IaaJW7m+$P#?gS;Q4[F=F1?Wm'GPanAM&X]cH7;V6mV;wx_3i\5xãU"4x?8s'+.G>i-Vnh-rKPLRP=CGP=>rtn/kT3VPXRpWUoãU"HYaB$0q=vi_oJSPV1fX\pãU"ploS9;4ipN8e(#c>?OCDWY>$:Zu(UenTGx:&M7zIc]pb%6kuoS-U-)+Jj3XU;gT\8$NCx5Uq?/d&8:>5(0mnY1ãU"XN>)FGO21]$a;Z6sf'y[3^0<?6O#_4EQ$Qcj:CaP>2&ogTxwCjWr)\;Bt,m\X2/1SW-pra8qZpv6p->VgqESGjJ1'eCM#g?,ãU">J?X+qn3::lvW]k1lDZ(OkTKE?RX#H7Qg/XK#e;EVR)d<*)[Nos'E9D;DZBsB:X;WãU"q%5'0-R,Ksm&&s(=[N1.2=t-&K(0:<[_,3R\s8PQuXsJxW'*hxszJS7%d1?RTrGãU"q]Q>j\9K,NPrL^miIuGHmkI>^\SK?$H^ZL[b[AVDdpg2c[M>L\Cm2GIMYr#.N_H'.4)tJ%-#bf.hZbrA4pT&0$HWVãU"FZ?jqJ2q]x\8^cfbgt7TX*8lpV>2qzz,e#ybbqkE9MiT6E3cmvd%3$->]LLM[QhãU"Y7ON#h0hfHm*?,l9oCSS8N,L-kWXVCoI3/?7OiãU"-bD>L>p5$er^z::c#-GG./huQZAS&hisIGG)^VGIbjYe7Q$]H;0:-vcxZhkWxe.ãU"gFmp%U&GnWDV$[b8]H4$.aqNmM.[$(\CpsGcSY2OjNr]kXsBM;(H2nKU_4VvYtLãU"'>vr5/xR_aA5&G:YGahWhyYu,*J;RtO41l\coei]'zcVrz0+l$5fu%4up&%'9%9ãU"%%'%-I%sMiOSY27'*#L%.%3p%%%0%%%%%%%%%&%E%%%%%%%%%n%xtzw%hjSn%shãU"up%&'9%%9%'%I-%fM8iS)]>?uG,.%%k<%%%.%%%%%%%%%&%%E%%%%iL%%%xqni%ãU"jSgf%xup*%+%%%%%'%'(%?%%%%^T%%%%%ãEND SUBãV2ãCLOSE:IF S=191AND B&=12223THEN?" :) 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\12223,219);:END SUBã'>>> Page 1 of SLIDE.ZIP ends here. Last page. TCHK:191ãDieter Folger Psycodilic Circles folger@bnv-bamberg.de 10-19-03 ( : ) PB,QB,QBasic,PDS 21 442 Circles.bas '-----------------------------ã'CIRCLES.BAS for PowerBasicã'Something psychodelic withã'only a few lines of codeã'-----------------------------ãDEFINT A - ZãSCREEN 12ãRANDOMIZE TIMERãDOã FOR a = 0 TO 160ã K$ = INKEY$ : IF LEN(K$) THEN ENDã x = INT(RND * 640)ã y = INT(RND * 480)ã FOR i = 0 TO 64ã CIRCLE (x, y), i, (i MOD 15) + 1ã PALETTE (i MOD 15) + 1, iã NEXTã NEXTãLOOPãããRasheed Quantizes Uncompressed 8bit BMPelectronic_fanatic@yahoo.com 10-19-03 ( : ) Qbasic, QB, PDS 250 13731 QUANT-03.BASTYPE bmheaderã descriptor AS INTEGERã filesize AS LONGã reserved AS LONGã bmoffset AS LONGã headersize AS LONGã bmwidth AS LONGã bmheight AS LONGã planecount AS INTEGERã samplesize AS INTEGERã compression AS LONGã bmsize AS LONGã widthresolution AS LONGã heightresolution AS LONGã colorcount AS LONGã essentialcolors AS LONGãEND TYPEãDIM header AS bmheader, row$(2), offset%(2)ãCLSãCOLOR 15ãPRINT "Input file: ";ãCOLOR 7ãLINE INPUT ifile$ãIF DIR$(ifile$) = "" OR ifile$ = "" THENã PRINT "Error #0 - Invalid filename or file not found."ã ENDãEND IFãOPEN ifile$ FOR BINARY AS 1ãIF LOF(1) < 54 THENã PRINT "Error #1 - File smaller than smallest Windows Bitmap image."ã CLOSEã ENDãEND IFãtfile$ = "temp.fck"ãIF DIR$(tfile$) <> "" THENã KILL tfile$ãEND IFãOPEN tfile$ FOR BINARY AS 2ãGET 1, , headerãPRINT "Length of file:"; TAB(30); LOF(1)ãPRINT "Descriptor:"; TAB(30); header.descriptorãPRINT "Filesize:"; TAB(30); header.filesizeãPRINT "Reserved:"; TAB(30); header.reservedãPRINT "Bitmap offset:"; TAB(30); header.bmoffsetãPRINT "Header size:"; TAB(30); header.headersizeãPRINT "Width:"; TAB(30); header.bmwidthãPRINT "Height:"; TAB(30); header.bmheightãPRINT "Planes:"; TAB(30); header.planecountãPRINT "Color depth:"; TAB(30); header.samplesizeãPRINT "Compression:"; TAB(30); header.compressionãPRINT "Bitmap size:"; TAB(30); header.bmsizeãPRINT "Width resolution:"; TAB(30); header.widthresolutionãPRINT "Height resolution:"; TAB(30); header.heightresolutionãPRINT "Colors:"; TAB(30); header.colorcountãPRINT "Essential colors:"; TAB(30); header.essentialcolorsãmaxwidth% = header.bmwidth - 1ãmaxheight% = header.bmheight - 1ãcolorcount% = header.colorcount - 1ãIF header.samplesize <> 8 OR header.planecount <> 1 OR header.compression OR header.colorcount < 2 THENã PRINT "Error #2 - Unable to process Bitmap image."ã CLOSEã ENDãEND IFãDOã COLOR 15ã PRINT "Colors:";ã COLOR 7ã INPUT " ", colors%ã IF colors% < 1 OR colors% > colorcount% THENã COLOR 12ã PRINT "Enter a number from 1 to"; colorcount%ã END IFãLOOP UNTIL colors% > 0 AND colors% < header.colorcountãremovecount% = header.colorcount - colors%ãREDIM pal%(colorcount%, 2)ãpal$ = STRING$(header.colorcount * 4, 0)ãDEF SEG = SSEG(pal$) + SADD(pal$) \ 16ãoffset% = SADD(pal$) AND 15ãGET 1, , pal$ãFOR pal% = 0 TO colorcount%ã pal%(pal%, 0) = PEEK(offset% + pal% * 4 + 2)ã pal%(pal%, 1) = PEEK(offset% + pal% * 4 + 1)ã pal%(pal%, 2) = PEEK(offset% + pal% * 4)ãNEXTãrow$(0) = STRING$(header.bmwidth + (header.bmwidth AND 1), 0)ãrow$(1) = row$(0)ãrow$(2) = row$(0)ãDEF SEG = SSEG(row$(0)) + SADD(row$(0)) \ 16ãoffset%(0) = SADD(row$(0)) AND 15ãoffset%(1) = offset%(0) + LEN(row$(0)) + 4ãoffset%(2) = offset%(1) + LEN(row$(0)) + 4ãlocation% = CSRLINãPRINT STRING$(60, 254)ãCOLOR 15ãDOã REDIM translate%(colorcount%, 1), newpal%(colorcount% - 1, 2)ã mindelta# = 130051ã FOR first% = 0 TO colorcount% - 1ã FOR second% = first% + 1 TO colorcount%ã dr& = pal%(first%, 0) - pal%(second%, 0)ã dg& = pal%(first%, 1) - pal%(second%, 1)ã db& = pal%(first%, 2) - pal%(second%, 2)ã delta# = (4 * (dr& ^ 2 + dg& ^ 2 + db& ^ 2) + 2 * (dr& * dg& + dr& * db& + dg& * db&)) / 9ã IF delta# < mindelta# THENã firstcolor% = first%ã secondcolor% = second%ã mindelta# = delta#ã END IFã NEXTã NEXTã translate%(firstcolor%, 1) = -1ã translate%(secondcolor%, 1) = -1ã pal% = 1ã FOR index% = 0 TO colorcount%ã IF translate%(index%, 1) = 0 THENã translate%(index%, 0) = pal%ã pal% = pal% + 1ã END IFã NEXTã GET 1, , row$(0)ã GET 1, , row$(1)ã count& = 0ã rsum# = 0ã gsum# = 0ã bsum# = 0ã IF translate%(PEEK(offset%(0)), 1) THENã rsum# = rsum# + (pal%(PEEK(offset%(0)), 0) * 2 + pal%(PEEK(offset%(0) + 1), 0) + pal%(PEEK(offset%(1)), 0)) / 4ã gsum# = gsum# + (pal%(PEEK(offset%(0)), 1) * 2 + pal%(PEEK(offset%(0) + 1), 1) + pal%(PEEK(offset%(1)), 1)) / 4ã bsum# = bsum# + (pal%(PEEK(offset%(0)), 2) * 2 + pal%(PEEK(offset%(0) + 1), 2) + pal%(PEEK(offset%(1)), 2)) / 4ã count& = count& + 1ã END IFã FOR column% = 1 TO maxwidth% - 1ã IF translate%(PEEK(offset%(0) + column%), 1) THENã rsum# = rsum# + (pal%(PEEK(offset%(0) + column%), 0) * 2 + pal%(PEEK(offset%(0) + column% - 1), 0) + pal%(PEEK(offset%(0) + column% + 1), 0) + pal%(PEEK(offset%(1) + column%), 0)) / 5ã gsum# = gsum# + (pal%(PEEK(offset%(0) + column%), 1) * 2 + pal%(PEEK(offset%(0) + column% - 1), 1) + pal%(PEEK(offset%(0) + column% + 1), 1) + pal%(PEEK(offset%(1) + column%), 1)) / 5ã bsum# = bsum# + (pal%(PEEK(offset%(0) + column%), 2) * 2 + pal%(PEEK(offset%(0) + column% - 1), 2) + pal%(PEEK(offset%(0) + column% + 1), 2) + pal%(PEEK(offset%(1) + column%), 2)) / 5ã count& = count& + 1ã END IFã NEXTã IF translate%(PEEK(offset%(0)), 1) THENã rsum# = rsum# + (pal%(PEEK(offset%(0) + column%), 0) * 2 + pal%(PEEK(offset%(0) + column% - 1), 0) + pal%(PEEK(offset%(1) + column%), 0)) / 4ã gsum# = gsum# + (pal%(PEEK(offset%(0) + column%), 1) * 2 + pal%(PEEK(offset%(0) + column% - 1), 1) + pal%(PEEK(offset%(1) + column%), 1)) / 4ã bsum# = bsum# + (pal%(PEEK(offset%(0) + column%), 2) * 2 + pal%(PEEK(offset%(0) + column% - 1), 2) + pal%(PEEK(offset%(1) + column%), 2)) / 4ã count& = count& + 1ã END IFã FOR row% = 1 TO maxheight% - 1ã index% = row% MOD 3ã GET 1, , row$((index% + 1) MOD 3)ã IF translate%(PEEK(offset%(index%)), 1) THENã rsum# = rsum# + (pal%(PEEK(offset%(index%)), 0) * 2 + pal%(PEEK(offset%(index%) + 1), 0) + pal%(PEEK(offset%((index% + 2) MOD 3)), 0) + pal%(PEEK(offset%((index% + 1) MOD 3)), 0)) / 5ã gsum# = gsum# + (pal%(PEEK(offset%(index%)), 1) * 2 + pal%(PEEK(offset%(index%) + 1), 1) + pal%(PEEK(offset%((index% + 2) MOD 3)), 1) + pal%(PEEK(offset%((index% + 1) MOD 3)), 1)) / 5ã bsum# = bsum# + (pal%(PEEK(offset%(index%)), 2) * 2 + pal%(PEEK(offset%(index%) + 1), 2) + pal%(PEEK(offset%((index% + 2) MOD 3)), 2) + pal%(PEEK(offset%((index% + 1) MOD 3)), 2)) / 5ã count& = count& + 1ã END IFã FOR column% = 1 TO maxwidth% - 1ã IF translate%(PEEK(offset%(index%) + column%), 1) THENã rsum# = rsum# + (pal%(PEEK(offset%(index%) + column%), 0) * 2 + pal%(PEEK(offset%(index%) + column% - 1), 0) + pal%(PEEK(offset%(index%) + column% + 1), 0) + pal%(PEEK(offset%((index% + 2) MOD 3) + column%), 0) + _ãpal%(PEEK(offset%((index% + 1) MOD 3) + column%), 0)) / 6ã gsum# = gsum# + (pal%(PEEK(offset%(index%) + column%), 1) * 2 + pal%(PEEK(offset%(index%) + column% - 1), 1) + pal%(PEEK(offset%(index%) + column% + 1), 1) + pal%(PEEK(offset%((index% + 2) MOD 3) + column%), 1) + _ãpal%(PEEK(offset%((index% + 1) MOD 3) + column%), 1)) / 6ã bsum# = bsum# + (pal%(PEEK(offset%(index%) + column%), 2) * 2 + pal%(PEEK(offset%(index%) + column% - 1), 2) + pal%(PEEK(offset%(index%) + column% + 1), 2) + pal%(PEEK(offset%((index% + 2) MOD 3) + column%), 2) + _ãpal%(PEEK(offset%((index% + 1) MOD 3) + column%), 2)) / 6ã count& = count& + 1ã END IFã NEXTã IF translate%(PEEK(offset%(index%) + column%), 1) THENã rsum# = rsum# + (pal%(PEEK(offset%(index%) + column%), 0) * 2 + pal%(PEEK(offset%(index%) + column% - 1), 0) + pal%(PEEK(offset%((index% + 2) MOD 3) + column%), 0) + pal%(PEEK(offset%((index% + 1) MOD 3) + column%), 0)) \ 5ã gsum# = gsum# + (pal%(PEEK(offset%(index%) + column%), 1) * 2 + pal%(PEEK(offset%(index%) + column% - 1), 1) + pal%(PEEK(offset%((index% + 2) MOD 3) + column%), 1) + pal%(PEEK(offset%((index% + 1) MOD 3) + column%), 1)) \ 5ã bsum# = bsum# + (pal%(PEEK(offset%(index%) + column%), 2) * 2 + pal%(PEEK(offset%(index%) + column% - 1), 2) + pal%(PEEK(offset%((index% + 2) MOD 3) + column%), 2) + pal%(PEEK(offset%((index% + 1) MOD 3) + column%), 2)) \ 5ã count& = count& + 1ã END IFã FOR column% = 0 TO maxwidth%ã POKE offset%((index% + 2) MOD 3) + column%, translate%(PEEK(offset%((index% + 2) MOD 3) + column%), 0)ã NEXTã PUT 2, , row$((index% + 2) MOD 3)ã NEXTã index% = row% MOD 3ã IF translate%(PEEK(offset%(index%)), 1) THENã rsum# = rsum# + (pal%(PEEK(offset%(index%)), 0) * 2 + pal%(PEEK(offset%(index%) + 1), 0) + pal%(PEEK(offset%((index% + 2) MOD 3)), 0)) / 4ã gsum# = gsum# + (pal%(PEEK(offset%(index%)), 1) * 2 + pal%(PEEK(offset%(index%) + 1), 1) + pal%(PEEK(offset%((index% + 2) MOD 3)), 1)) / 4ã bsum# = bsum# + (pal%(PEEK(offset%(index%)), 2) * 2 + pal%(PEEK(offset%(index%) + 1), 2) + pal%(PEEK(offset%((index% + 2) MOD 3)), 2)) / 4ã count& = count& + 1ã END IFã FOR column% = 1 TO maxwidth% - 1ã IF translate%(PEEK(offset%(index%) + column%), 1) THENã rsum# = rsum# + (pal%(PEEK(offset%(index%) + column%), 0) * 2 + pal%(PEEK(offset%(index%) + column% - 1), 0) + pal%(PEEK(offset%(index%) + column% + 1), 0) + pal%(PEEK(offset%((index% + 2) MOD 3) + column%), 0)) / 5ã gsum# = gsum# + (pal%(PEEK(offset%(index%) + column%), 1) * 2 + pal%(PEEK(offset%(index%) + column% - 1), 1) + pal%(PEEK(offset%(index%) + column% + 1), 1) + pal%(PEEK(offset%((index% + 2) MOD 3) + column%), 1)) / 5ã bsum# = bsum# + (pal%(PEEK(offset%(index%) + column%), 2) * 2 + pal%(PEEK(offset%(index%) + column% - 1), 2) + pal%(PEEK(offset%(index%) + column% + 1), 2) + pal%(PEEK(offset%((index% + 2) MOD 3) + column%), 2)) / 5ã count& = count& + 1ã END IFã NEXTã IF translate%(PEEK(offset%(index%)), 1) THENã rsum# = rsum# + (pal%(PEEK(offset%(index%) + column%), 0) * 2 + pal%(PEEK(offset%(index%) + column% - 1), 0) + pal%(PEEK(offset%((index% + 2) MOD 3) + column%), 0)) / 4ã gsum# = gsum# + (pal%(PEEK(offset%(index%) + column%), 1) * 2 + pal%(PEEK(offset%(index%) + column% - 1), 1) + pal%(PEEK(offset%((index% + 2) MOD 3) + column%), 1)) / 4ã bsum# = bsum# + (pal%(PEEK(offset%(index%) + column%), 2) * 2 + pal%(PEEK(offset%(index%) + column% - 1), 2) + pal%(PEEK(offset%((index% + 2) MOD 3) + column%), 2)) / 4ã count& = count& + 1ã END IFã FOR column% = 0 TO maxwidth%ã POKE offset%((index% + 2) MOD 3) + column%, translate%(PEEK(offset%((index% + 2) MOD 3) + column%), 0)ã NEXTã PUT 2, , row$((index% + 2) MOD 3)ã FOR column% = 0 TO maxwidth%ã POKE offset%(index%) + column%, translate%(PEEK(offset%(index%) + column%), 0)ã NEXTã PUT 2, , row$(index%)ã FOR index% = 0 TO colorcount%ã newpal%(translate%(index%, 0), 0) = pal%(index%, 0)ã newpal%(translate%(index%, 0), 1) = pal%(index%, 1)ã newpal%(translate%(index%, 0), 2) = pal%(index%, 2)ã NEXTã newpal%(0, 0) = rsum# / count&ã newpal%(0, 1) = gsum# / count&ã newpal%(0, 2) = bsum# / count&ã header.colorcount = colorcount%ã colorcount% = colorcount% - 1ã REDIM pal%(colorcount%, 2)ã FOR index% = 0 TO colorcount%ã pal%(index%, 0) = newpal%(index%, 0)ã pal%(index%, 1) = newpal%(index%, 1)ã pal%(index%, 2) = newpal%(index%, 2)ã NEXTã SEEK 1, header.bmoffset + 1ã SEEK 2, 1ã FOR row% = 0 TO maxheight%ã GET 2, , row$(0)ã PUT 1, , row$(0)ã NEXTã SEEK 1, header.bmoffset + 1ã SEEK 2, 1ã LOCATE location%ã progress% = progress% + 1ã PRINT STRING$((progress% / removecount%) * 60, 254)ãLOOP UNTIL header.colorcount = colors%ãheader.bmoffset = 54 + header.colorcount * 4ãCLOSEãKILL ifile$ãOPEN ifile$ FOR BINARY ACCESS WRITE AS 1ãOPEN tfile$ FOR BINARY ACCESS READ AS 2ãPUT 1, , headerãpal$ = ""ãFOR index% = 0 TO colorcount%ã pal$ = pal$ + CHR$(pal%(index%, 2)) + CHR$(pal%(index%, 1)) + CHR$(pal%(index%, 0)) + CHR$(0)ãNEXTãPUT 1, , pal$ãFOR row% = 0 TO maxheight%ã GET 2, , row$(0)ã PUT 1, , row$(0)ãNEXTãENDããEdwin Knoppert Adding Pictures to PBWIN ebknoppert@hotmail.com 10-19-03 ( : ) PBDLL 361 10000 Picture.BAS 'Edwin_Knoppertãã'ebknoppert@hotmail.comãã'==========================================================ã'=================== IPIC2BMP.inc =========================ãã#If Not %Def( %PICTYPE_UNINITIALIZED ) ãã%PICTYPE_UNINITIALIZED = -1 ã%PICTYPE_NONE = 0 ã%PICTYPE_BITMAP = 1 ã%PICTYPE_METAFILE = 2 ã%PICTYPE_ICON = 3 ã%PICTYPE_ENHMETAFILE = 4 ãã#EndIf ããDeclare Function IPicture_CreateStreamOnHGlobal( ByVal hGlobal As Dword, _ã ByVal fDeleteOnRelease As Dword, pstm As Dword ) As Long ãDeclare Function IPicture_OleLoadPicture( ByVal pStream As Dword, ByVal lSize As Dword, _ã ByVal fRunmode As Dword, riid As String * 16, pvObj As Dword ) As Long ãDeclare Function IPicture_ComMethod0( ByVal p0 As Any ) As Dword ãDeclare Function IPicture_ComMethod1( ByVal p0 As Any, p1 As Any ) As Dword ããFunction IPicture_LoadFromMemory( ByVal pData As Long, ByVal nDataLength As Long, ByVal nBackColor As Long ) As Long ããDim hDC As Long ãDim hGlobal As Long ãDim pPicture As Dword Ptr ãDim IID_IPicture As String * 16 ãDim hLib_OLE32 As Dword ãDim hLib_OLEAUT32 As Dword ãDim pCreateStreamOnHGlobal As Dword ãDim pOleLoadPicture As Dword ãDim pvData As Dword ãDim pStream As Dword Ptr ãDim intImageType As Word ãDim pHandle As Long ãDim nResult As Long ãDim hMemDC As Long ãDim hOldBitmap As Long ãDim hOldBitmap2 As Long ãDim hMemDCTarget As Long ãDim hBitmapTarget As Long ãDim hBrush As Long ãDim nTPPX As Single ãDim nTPPY As Single ãDim R As RECT ãDim II As ICONINFO ãDim EMH As ENHMETAHEADER ãDim BM As BITMAP ããIf pData = 0 Or nDataLength < 80 Then Exit Function ããIID_IPicture = Mkl$( &H7BF80980 ) & Mki$( &HBF32 ) & Mki$( &H101A ) & Chr$( &H8B, &HBB, &H00, &HAA, &H00, &H30, &H0C, &HAB ) ããhLib_OLE32 = LoadLibrary( "ole32.dll" ) ãIf hLib_OLE32 = 0 Then GoTo IPicture_LoadFromMem_Close ãpCreateStreamOnHGlobal = GetProcAddress( hLib_OLE32, "CreateStreamOnHGlobal" ) ãIf pCreateStreamOnHGlobal = 0 Then GoTo IPicture_LoadFromMem_Close ããhLib_OLEAUT32 = LoadLibrary( "OLEAUT32.dll" ) ãIf hLib_OLEAUT32 = 0 Then hLib_OLEAUT32 = LoadLibrary( "OLEPRO32.DLL" ) ãIf hLib_OLEAUT32 Then pOleLoadPicture = GetProcAddress( hLib_OLEAUT32, "OleLoadPicture" ) ãIf pOleLoadPicture = 0 Then GoTo IPicture_LoadFromMem_Close ãã'// Copy picture data into hGLOBAL ãhGlobal = GlobalAlloc( %GMEM_MOVEABLE Or %GMEM_NODISCARD, nDataLength ) ãIf hGlobal = 0 Then GoTo IPicture_LoadFromMem_Close ããpvData = GlobalLock( hGlobal ) ãIf pvData = 0 Then GoTo IPicture_LoadFromMem_Close ããMoveMemory ByVal pvData, ByVal pData, nDataLength ãGlobalUnlock hGlobal ããCall Dword pCreateStreamOnHGlobal Using IPicture_CreateStreamOnHGlobal( hGlobal, 1, pStream ) To nResult ãIf nResult <> %S_OK Then GoTo IPicture_LoadFromMem_Close ããCall Dword pOleLoadPicture Using IPicture_OleLoadPicture( pStream, nDataLength, 0, IID_IPicture, pPicture ) To nResult ãCall Dword @@pStream[2] Using IPicture_ComMethod0( pStream ) ãIf nResult <> %S_OK Then GoTo IPicture_LoadFromMem_Close ãã'// IPicture::get_Type ãCall Dword @@pPicture[5] Using IPicture_ComMethod1( pPicture, intImageType ) ã'// IPicture::get_Handle ãCall Dword @@pPicture[3] Using IPicture_ComMethod1( pPicture, ByVal VarPtr( pHandle ) ) ããSelect Case intImageType ãCase %PICTYPE_BITMAP ããhDC = GetDC( %HWND_DESKTOP ) ããGetObject pHandle, Len( BM ), ByVal VarPtr( BM ) ããhMemDC = CreateCompatibleDC( hDC ) ãhOldBitmap = SelectObject( hMemDC, pHandle ) ãhMemDCTarget = CreateCompatibleDC( hDC ) ãhBitmapTarget = CreateCompatibleBitmap( hDC, BM.bmWidth, BM.bmHeight ) ãhOldBitmap2 = SelectObject( hMemDCTarget, hBitmapTarget ) ãBitBlt hMemDCTarget, 0, 0, BM.bmWidth, BM.bmHeight, hMemDC, 0, 0, %SRCCOPY ãSelectObject hMemDCTarget, hOldBitmap2 ãSelectObject hMemDC, hOldBitmap ãDeleteDC hMemDCTarget ãDeleteDC hMemDC ããFunction = hBitmapTarget ããCase %PICTYPE_ICON ããhDC = GetDC( %HWND_DESKTOP ) ããGetIconInfo pHandle, II ãã'// Get the bitmap info. ãIf II.hbmColor Then ãGetObject II.hbmColor, Len( BM ), BM ãElse ãGetObject II.hbmMask, Len( BM ), BM ãBM.bmHeight = BM.bmHeight / 2 ãEnd If ãã'// Destroy the bitmaps. ãIf II.hbmColor Then DeleteObject II.hbmColor ãIf II.hbmMask Then DeleteObject II.hbmMask ããhMemDCTarget = CreateCompatibleDC( hDC ) ãhBitmapTarget = CreateCompatibleBitmap( hDC, BM.bmWidth, BM.bmHeight ) ãhOldBitmap = SelectObject( hMemDCTarget, hBitmapTarget ) ãR.nRight = BM.bmWidth ãR.nBottom = BM.bmHeight ããSelect Case nBackColor ãCase RGB( 0, 0, 0 ) To RGB( 255, 255, 255 ) ãhBrush = CreateSolidBrush( nBackColor ) ãFillRect hMemDCTarget, R, hBrush ãDeleteObject hBrush ãEnd Select ããDrawIcon hMemDCTarget, 0, 0, pHandle ããSelectObject hMemDCTarget, hOldBitmap ããFunction = hBitmapTarget ããCase %PICTYPE_ENHMETAFILE ããhDC = GetDC( %HWND_DESKTOP ) ããnTPPX = 1440! / CSng( GetDeviceCaps( hDC, %LOGPIXELSX ) ) ãnTPPY = 1440! / CSng( GetDeviceCaps( hDC, %LOGPIXELSY ) ) ãIf nTPPX = 0 Then nTPPX = 1 ãIf nTPPY = 0 Then nTPPY = 1 ããGetEnhMetaFileHeader pHandle, SizeOf( EMH ), EMH ããR.nLeft = 0 ãR.nTop = 0 ãR.nRight = ( ( EMH.rclFrame.nRight - EMH.rclFrame.nLeft ) * 56.7! ) / 100! ãR.nBottom = ( ( EMH.rclFrame.nBottom - EMH.rclFrame.nTop ) * 56.7! ) / 100! ãR.nRight = R.nRight / nTPPX ãR.nBottom = R.nBottom / nTPPY ããhMemDCTarget = CreateCompatibleDC( hDC ) ãhBitmapTarget = CreateCompatibleBitmap( hDC, R.nRight, R.nBottom ) ãhOldBitmap = SelectObject( hMemDCTarget, hBitmapTarget ) ããSelect Case nBackColor ãCase RGB( 0, 0, 0 ) To RGB( 255, 255, 255 ) ãhBrush = CreateSolidBrush( nBackColor ) ãFillRect hMemDCTarget, R, hBrush ãDeleteObject hBrush ãEnd Select ããPlayEnhMetaFile hMemDCTarget, pHandle, R ããSelectObject hMemDCTarget, hOldBitmap ããFunction = hBitmapTarget ããCase Else ãGoTo IPicture_LoadFromMem_Close ãEnd Select ããIPicture_LoadFromMem_Close: ããIf pPicture <> 0 Then Call Dword @@pPicture[2] Using IPicture_ComMethod0( pPicture ) ãIf hDC Then ReleaseDC %HWND_DESKTOP, hDC ãIf hLib_OLE32 Then FreeLibrary hLib_OLE32 ãIf hLib_OLEAUT32 Then FreeLibrary hLib_OLEAUT32 ããEnd Function ããFunction IPicture_LoadFromFile( ByVal sFileName As String, ByVal nBackColor As Long ) As Long ããDim FF As Long ãDim sBuffer As String ããsFileName = Trim$( sFileName ) ãIf Len( sFileName ) = 0 Then Exit Function ããErrClear ãFF = GetAttr( sFileName ) ãIf Err Or IsTrue( FF And %FILE_ATTRIBUTE_DIRECTORY ) Then Exit Function ããFF = FreeFile ãOpen sFileName For Binary As #FF ãsBuffer = String$( Lof( FF ), 0 ) ãIf Len( sBuffer ) Then Get #FF,, sBuffer ãClose #FF ããFunction = IPicture_LoadFromMemory( StrPtr( sBuffer ), Len( sBuffer ), nBackColor ) ããEnd Function ããFunction IPicture_PaintBitmap( ByVal hDC As Long, ByVal hBitmap As Long, ByVal X As Long, ByVal Y As Long ) As Long ããDim hMemDC As Long ãDim hMemBM As Long ãDim hOldBM As Long ãDim BM As BITMAP ããIf hDC = 0 Or hBitmap = 0 Then Exit Function ããGetObject hBitmap, Len( BM ), ByVal VarPtr( BM ) ããhMemDC = CreateCompatibleDC( hDC ) ãIf hMemDC = 0 Then Exit Function ããhOldBM = SelectObject( hMemDC, hBitmap ) ãBitBlt hDC, X, Y, BM.bmWidth, BM.bmHeight, hMemDC, 0, 0, %SRCCOPY ããSelectObject hMemDC, hOldBM ãDeleteDC hMemDC ããFunction = 1 ããEnd Function ãã'=======================================================ã'=======================================================ãã#Compile Exe ããOption Explicit ãã#Include "win32api.inc" ã#Include "IPIC2BMP.inc" ããGlobal hBitmap As Long ããCallBack Function DlgProc() As Long ããDim a As Long ãDim R As Rect ãDim PS As PAINTSTRUCT ãDim T As String ããSelect Case CbMsg ãCase %WM_INITDIALOG ãCase %WM_PAINT ããBeginPaint CbHndl, PS ãIPicture_PaintBitmap PS.hDC, hBitmap, 10, 10 ãEndPaint CbHndl, PS ãFunction = 1 ãExit Function ããCase %WM_DESTROY ãEnd Select ããEnd Function ããFunction WinMain ( ByVal hCurInstance As Long, _ ãByVal hPrevInstance As Long, _ ãlpszCmdLine As Asciiz Ptr, _ ãByVal nCmdShow As Long ) As Long ããDim a As Long ãDim hDlg As Long ãDim Result As Long ãã'BMP ã' hBitmap = IPicture_LoadFromFile( "c:\windows\setup.bmp", 0 ) ãã'EMF ã' hBitmap = IPicture_LoadFromFile( "c:\Program Files\Common Files\Microsoft Shared\Grphflt\ms.emf", rgb( 255, 0, 0 ) ) ãã'ICO ã' hBitmap = IPicture_LoadFromFile( "c:\windows\Winupd.ico", RGB( 255, 0, 0 ) ) ã' hBitmap = IPicture_LoadFromFile( "c:\windows\Winupd.ico", -1 ) ãã'JPG ãhBitmap = IPicture_LoadFromFile( "c:\windows\Chateau.jpg", -1 ) ããIf hBitmap = 0 Then Beep: Exit Function ããDialog New 0, "IPicture to BMP",,, 440, 480 _ ã, %WS_OVERLAPPED _ ãOr %WS_SYSMENU _ ãOr %WS_MINIMIZEBOX _ ãOr %WS_MAXIMIZEBOX _ ãOr %WS_MAXIMIZE _ ãOr %WS_THICKFRAME _ ãOr %WS_CLIPSIBLINGS _ ãOr %WS_CLIPCHILDREN _ ãTo hDlg ããIf hDlg = 0 Then Exit Function ããDialog Show Modal hDlg Call DlgProc To Result ããIf hBitmap Then DeleteObject hBitmap ããFunction = 1 ããEnd Function ãã'==================================================================ã'================================================================== ãFunction IPicture_ResizeWindow( ByVal hWnd As Long, ByVal hBitmap As Long, _ã ByVal bCenter As Long ) As Long ããDim X As Long ãDim Y As Long ãDim XX As Long ãDim YY As Long ãDim R As RECT ãDim PA As POINTAPI ãDim BM As BITMAP ãDim nLBorder As Long ãDim nTBorder As Long ããIf hWnd = 0 Or hBitmap = 0 Then Exit Function ããGetWindowRect hWnd, R ããGetObject hBitmap, Len( BM ), ByVal VarPtr( BM ) ããClientToScreen hWnd, PA ããnLBorder = PA.X - R.nLeft ãnTBorder = PA.Y - R.nTop ããXX = BM.bmWidth + ( nLBorder * 2 ) ãYY = BM.bmHeight + nTBorder + nLBorder ãIf bCenter Then ãX = ( GetSystemMetrics ( %SM_CXSCREEN ) - XX ) \ 2 ãY = ( GetSystemMetrics ( %SM_CYSCREEN ) - YY ) \ 2 ãElse ãX = R.nLeft ãY = R.nTop ãEnd If ããMoveWindow hWnd, X, Y, XX, YY, -1 ããFunction = 1 ããEnd Function ããSteve Gartrell VGA ANIMATION SPRITES VGA,ANIMATION,SPRITES 7/11/92 (00:00:00) QB, QBasic 194 4828 ANISPRT.BAS DEFINT A-ZããDECLARE SUB NoBoxSprite (StartX%, StartY%, NumRows%, NumCols%, Sprite%())ãCONST C$ = "Created 7/11/92 by Steve Gartrell. No rights reserved."ãã'this constant is the color you won't use.ãCONST NoColor% = 1ããSCREEN 13 'VGA 320x200 pixels x 256 colorsãã'paint with color you don't want copied!!ãPAINT (10, 10), NoColor%ãã'Draw a spriteããCIRCLE (165, 100), 9, 4ãPAINT (165, 100), 90, 4ãCIRCLE (165, 100), 8, 4, 0, 3.14ãCIRCLE (165, 100), 9, 90, 3.14, 6.28ãPSET (162, 99), 122ãCIRCLE (162, 99), 3, 6ãPSET (168, 99), 122ãCIRCLE (168, 99), 3, 6ãCIRCLE (165, 103), 3, 42, 3.43, 5.83ãã'Copy the sprite into an array...ããcell% = 0ãDIM Sprite%(1 TO 441)ããFOR y% = 90 TO 110ã FOR x% = 155 TO 175ã cell% = cell% + 1ã Sprite%(cell%) = POINT(x%, y%)ã NEXTãNEXTãã'Borrowed this random pattern generator from Rich Geldreich!!ã'Modified to prohibit use of color 1 for demo purposes.ããFOR A = 1 TO 400ã RANDOMIZE TIMERã IF RND > .05 THENã LINE -(RND * 320, RND * 200), RND * 254 + 1ã ELSEã LINE -(RND * 320, RND * 200), RND * 254 + 1, BFã END IFãNEXTãããStartX% = 160: StartY% = 100ãã'There are actually 21 rows and 21 cols,ã' but this makes it faster by eliminatingã' some math!!!ããNumRows% = 20: NumCols% = 20ãã'First call initializes (places) sprite...ããCALL NoBoxSprite(StartX%, StartY%, NumRows%, NumCols%, Sprite%())ããDOã DO: t$ = UCASE$(INKEY$): LOOP UNTIL LEN(t$)ãã SELECT CASE LEN(t$)ã CASE 2ã SELECT CASE ASC(RIGHT$(t$, 1))ã CASE &H48 ' 72d = UPã StartY% = StartY% - 10ã IF StartY% < 0 THEN StartY% = 180ã CALL NoBoxSprite(StartX%, StartY%, NumRows%, NumCols%, Sprite%())ã CASE &H50 ' 80d = DOWNã StartY% = StartY% + 10ã IF StartY% > 180 THEN StartY% = 0ã CALL NoBoxSprite(StartX%, StartY%, NumRows%, NumCols%, Sprite%())ãã CASE &H4B ' 75d = LEFTã StartX% = StartX% - 10ã IF StartX% < 0 THEN StartX% = 300ã CALL NoBoxSprite(StartX%, StartY%, NumRows%, NumCols%, Sprite%())ã CASE &H4D ' 77d = RIGHTã StartX% = StartX% + 10ã IF StartX% > 300 THEN StartX% = 0ã CALL NoBoxSprite(StartX%, StartY%, NumRows%, NumCols%, Sprite%())ã CASE ELSEã BEEP: BEEPã END SELECTã CASE ELSEã IF t$ = "Q" THENã EXIT DOã ELSEã BEEP: BEEPã END IFã END SELECTããLOOPããToggleY% = 1ãToggleX% = -1ããDOã StartY% = StartY% + ToggleY%ã IF StartY% < 1 OR StartY% > 179 THENã IF ToggleY% = -1 THENã ToggleY% = 1ã ELSEã ToggleY% = -1ã END IFã END IFã StartX% = StartX% + ToggleX%ã IF StartX% < 1 OR StartX% > 299 THENã IF ToggleX% = -1 THENã ToggleX% = 1ã ELSEã ToggleX% = -1ã END IFã END IFã CALL NoBoxSprite(StartX%, StartY%, NumRows%, NumCols%, Sprite%())ãLOOP UNTIL LEN(INKEY$)ããSCREEN 0ãWIDTH 80ãCOLOR 7, 0ãENDããSUB NoBoxSprite (StartX%, StartY%, NumRows%, NumCols%, Sprite%())ãã'Static definition means location of sprite known atã' start of routine if it was placed previouslyããSTATIC OldStartY&, OldEndY&ãã'Calculate vid mem offset addressããStartY& = StartY% * 320& + StartX%ãEndY& = StartY& + (NumRows% * 320&) + StartX%ããcell% = 1ãã'Vid mem segment in screen 13ããDEF SEG = &HA000ããWAIT &H3DA, 8, 8 'Wait till _start_ of vertical retraceãWAIT &H3DA, 8ãã'Note that this FOR/NEXT won't execute if first call-ã' since both sides of the FOR/NEXT = 0. After firstã' call, it restores the background and retrieves the sprite!ã' (Which means you can't overwrite the sprite, or itã' is saved in it's overwritten state!!)ããFOR y& = OldStartY& TO OldEndY& STEP 320ã FOR Addr& = y& TO y& + NumCols%ã IF Sprite%(cell%) <> NoColor% THENã CurrentPix% = PEEK(Addr&)ã POKE Addr&, Sprite%(cell%)ã Sprite%(cell%) = CurrentPix%ã END IFã cell% = cell% + 1ã NEXTãNEXTããcell% = 1ããWAIT &H3DA, 8, 8ãWAIT &H3DA, 8ããã' Place the sprite at the StartX%, StartY% location butã' ONLY AFTER storing the background!!!ãããFOR y& = StartY& TO EndY& STEP 320ã FOR Addr& = y& TO y& + NumCols%ã IF Sprite%(cell%) <> NoColor% THENã CurrentPix% = PEEK(Addr&)ã POKE Addr&, Sprite%(cell%)ã IF CurrentPix% = NoColor% THENã CurrentPix% = CurrentPix% + 256ã END IFã Sprite%(cell%) = CurrentPix%ã END IFã cell% = cell% + 1ã NEXTãNEXTããDEF SEGããOldStartY& = StartY&: OldEndY& = EndY&ããEND SUBããSteve Demo EGA ANIMATION OF MAN WALKING EGA,ANIMATION,WALKING Unknown Date (00:00:00)QB, QBasic 318 10532 MANWALK.BAS 'Written By Steve Demo for Public Domain !ã'Any and all source may be mangled, distroyed, burned, copied, or deleted asã'you see fit :-).ã'ã'I have only directed my intrests in Graphics with in the last month or soã'and this is what I have come up with so far.ã'The moveing images were created by a program I wrote using Rich's Gifã'engine. It is fairly simple to make for your self just study the POINTã'function and you should be able to make one to. As you will notice I amã'not much of an artist and this is just a quick Demo anyways.ã'ã'I have also been able to make a space ship move and fire a laser. Andã'distory the object fired on. If you would like to see this code drop meã'a note.ãããDEFINT A-ZãDECLARE SUB ManWalk1 (newx, newy)ãDECLARE SUB ManWalk2 (newx, newy)ãDECLARE SUB ManWalk3 (newx, newy)ãDECLARE SUB ManWalk4 (newx, newy)ãDECLARE SUB ManWalk5 (newx, newy)ãDECLARE SUB DrawScreen ()ãDECLARE SUB Pause (ticks%)ãREM $DYNAMICãREDIM BackArray%(250)ããSCREEN 7, , 1, 0ããDrawScreenããXpos% = 160ãGET (Ypos%, Xpos%)-(Ypos% + 13, Xpos% + 18), BackArray%ãold.Ypos% = Ypos%ãold.Xpos% = Xpos%ãyes = 1ãPCOPY 1, 2ãDOãCOLOR , 0ãcount = 0ãPCOPY 2, 1ã GET (old.Ypos%, old.Xpos%)-(old.Ypos% + 13, old.Xpos% + 18), BackArray%ã Runcount = 1ã FOR Ypos% = 5 TO 290 STEP 2ã count = count + 1ã yes = yes + 1ã IF LEN(INKEY$) THEN EXIT DOã KeyPress$ = ""ã PUT (old.Ypos%, old.Xpos%), BackArray%, PSETã GET (Ypos%, Xpos%)-(Ypos% + 13, Xpos% + 18), BackArray%ã 'LINE (Ypos%, Xpos%)-(Ypos% + 13, Xpos% + 18), 10, B ' To test GETã 'SOUND 700, .05ã IF yes > 1 THENã ManWalk2 Xpos%, Ypos%ã yes = 0ã ELSEã ManWalk1 Xpos%, Ypos%ã END IFã IF count > 30 THENã PUT (Ypos%, Xpos%), BackArray%, PSETã GET (Ypos%, Xpos%)-(Ypos% + 13, Xpos% + 18), BackArray%ã ManWalk3 Xpos%, Ypos%ã PCOPY 1, 0ã Pause 12ã count = 0ã END IFã PCOPY 1, 0ã old.Ypos% = Ypos%ã old.Xpos% = Xpos%ã Pause 2ã NEXT Ypos%ãã FOR alarm = 1 TO 15ã 'PLAY "t180l60<<>>"ã NEXT alarmãã FOR x = 1 TO 320 STEP 5ã LINE (x, 205)-(1, x), 10ã NEXT xããPAINT (163, 148), 12, 1ãPAINT (250, 24), 14, 3ãLINE (162, 147)-(188, 178), 4, BãCOLOR , 9ãFOR Ypos% = 290 TO 10 STEP -3ã yes = yes + 1ã IF LEN(INKEY$) THEN EXIT DOã PUT (old.Ypos%, old.Xpos%), BackArray%, PSETã GET (Ypos%, Xpos%)-(Ypos% + 13, Xpos% + 18), BackArray%ã 'LINE (Ypos%, Xpos%)-(Ypos% + 13, Xpos% + 18), 10, B ' To test GETã 'SOUND 400, .05ã 'SOUND 700, .05ã IF yes > 1 THENã ManWalk5 Xpos%, Ypos%ã yes = 0ã ELSEã ManWalk4 Xpos%, Ypos%ã END IFã PCOPY 1, 0ã old.Ypos% = Ypos%ã old.Xpos% = Xpos%ã Pause 1ã NEXT Ypos%ããLOOPããREM $STATICãSUB DrawScreenãRANDOMIZE TIMERãFOR xx = 1 TO 300ã x = RND * 320ã y = RND * 200ã PSET (x, y), 15ãNEXT xxãLINE (1, 170)-(320, 200), 1, BFã FOR x = 1 TO 320 STEP 5ã LINE (x, 205)-(1, x), 7ã NEXT xãLINE (263, 165)-(309, 189), 7, BFãLINE (265, 166)-(308, 187), 0, BãLINE (267, 168)-(306, 185), 0, BãLINE (270, 171)-(303, 183), 1, BFãLINE (160, 145)-(190, 180), 5, BFãLINE (162, 147)-(188, 178), 1, BãLINE (165, 150)-(185, 175), 4, BFãCIRCLE (250, 24), 25, 3ãPAINT (250, 24), 8, 3ããEND SUBããSUB ManWalk1 (newx, newy)ã'$DYNAMICãREDIM F(190)ãF(5) = 6: F(6) = 6: F(7) = 6:ãF(12) = 6: F(13) = 6: F(14) = 6: F(15) = 6: F(16) = 14: F(17) = 6: F(20) = 6: F(21) = 6: F(22) = 6:ãF(23) = 6: F(24) = 14: F(25) = 14: F(26) = 14: F(28) = 6: F(29) = 6: F(30) = 6: F(31) = 6: F(32) = 14: F(33) = 14:ãF(34) = 9: F(35) = 14: F(37) = 6: F(38) = 6: F(39) = 14: F(40) = 14: F(41) = 14: F(42) = 14: F(43) = 14: F(44) = 14:ãF(45) = 14: F(46) = 6: F(47) = 6: F(48) = 6: F(49) = 14: F(50) = 14: F(51) = 14: F(52) = 14: F(53) = 14: F(55) = 6:ãF(56) = 6: F(57) = 6: F(58) = 14: F(59) = 14: F(60) = 14: F(61) = 4: F(65) = 6: F(66) = 6:ãF(67) = 14: F(68) = 14: F(69) = 14: F(70) = 14: F(77) = 14:ãF(85) = 11: F(86) = 3: F(87) = 3: F(94) = 11: F(95) = 3:ãF(96) = 3: F(103) = 11: F(104) = 11: F(105) = 11:ãF(113) = 3: F(114) = 11: F(115) = 11: F(121) = 3: F(122) = 3: F(123) = 3:ãF(130) = 3: F(132) = 3: F(140) = 3:ãF(142) = 3: F(148) = 3: F(151) = 3:ãF(156) = 10: F(157) = 10: F(160) = 10: F(161) = 10:ãd = 0ã FOR x = newx TO newx + 17ã FOR xxx = newy TO newy + 8ã d = d + 1ã PixielColor = F(d)ã IF PixielColor <> 0 THENã IF POINT(xxx, x) <> 7 THENã PSET (xxx, x), PixielColorã END IFã END IFã NEXT xxxã NEXT xããERASE FãEND SUBããREM $STATICãSUB ManWalk2 (newx, newy)ã'$DYNAMICãREDIM F(171)ããF(4) = 6: F(5) = 6: F(6) = 6: F(10) = 6: F(11) = 6: F(12) = 6: F(13) = 6: F(14) = 14:ãF(15) = 6: F(17) = 6: F(18) = 6: F(19) = 6: F(20) = 6: F(21) = 14: F(22) = 14: F(23) = 14: F(25) = 6:ãF(26) = 6: F(27) = 6: F(28) = 14: F(29) = 14: F(30) = 9: F(31) = 14: F(33) = 6: F(34) = 14: F(35) = 14: F(36) = 14:ãF(37) = 14: F(38) = 14: F(39) = 14: F(40) = 14: F(41) = 6: F(42) = 6: F(43) = 14: F(44) = 14: F(45) = 14: F(46) = 14: F(47) = 14:ãF(49) = 6: F(50) = 6: F(51) = 14: F(52) = 14: F(53) = 14: F(54) = 4: F(57) = 6: F(58) = 6: F(59) = 14:ãF(60) = 14: F(61) = 14: F(62) = 14: F(68) = 14:ãF(75) = 11: F(76) = 11: F(77) = 3: F(83) = 11: F(84) = 11: F(85) = 3:ãF(90) = 11: F(91) = 11: F(92) = 3: F(93) = 3: F(98) = 11: F(100) = 3:ãF(101) = 3: F(107) = 3: F(108) = 3: F(109) = 3:ãF(115) = 3: F(117) = 3: F(123) = 3:ãF(126) = 3: F(130) = 3: F(133) = 3:ãF(138) = 10: F(139) = 10: F(142) = 10: F(143) = 10:ãd = 0ã FOR x = newx TO newx + 17ã FOR xxx = newy TO newy + 7ã d = d + 1ã PixielColor = F(d)ã ã IF PixielColor <> 0 THENã IF POINT(xxx, x) <> 7 THENã PSET (xxx, x), PixielColorã END IFã END IFã ã NEXT xxxã NEXT xããERASE FãEND SUBããREM $STATICãSUB ManWalk3 (newx, newy)ã'$DYNAMICãREDIM F(220)ããF(13) = 6: F(14) = 6: F(15) = 6: F(16) = 6: F(20) = 6: F(21) = 6: F(22) = 6: F(23) = 6:ãF(24) = 6: F(25) = 6: F(26) = 6: F(28) = 6: F(29) = 6: F(30) = 6: F(31) = 6: F(32) = 14: F(33) = 14: F(34) = 6:ãF(35) = 6: F(37) = 6: F(38) = 6: F(39) = 14: F(40) = 9: F(41) = 14: F(42) = 9: F(43) = 14: F(44) = 6: F(45) = 6:ãF(46) = 6: F(47) = 14: F(48) = 14: F(49) = 14: F(50) = 14: F(51) = 14: F(52) = 14: F(53) = 14: F(54) = 6: F(55) = 6: F(56) = 6:ãF(57) = 14: F(58) = 14: F(59) = 14: F(60) = 14: F(61) = 14: F(62) = 6: F(63) = 6: F(64) = 6: F(65) = 6: F(66) = 14: F(67) = 4:ãF(68) = 4: F(69) = 4: F(70) = 14: F(71) = 6: F(72) = 6: F(73) = 6: F(74) = 6: F(75) = 14: F(76) = 14: F(77) = 14: F(78) = 14:ãF(79) = 14: F(80) = 6: F(85) = 14: F(86) = 14:ãF(93) = 11: F(94) = 3: F(95) = 3: F(102) = 11: F(103) = 3:ãF(104) = 3: F(111) = 11: F(112) = 11: F(113) = 11:ãF(121) = 3: F(122) = 11: F(123) = 11: F(129) = 3: F(130) = 3: F(131) = 3:ãF(138) = 3: F(140) = 3: F(148) = 3:ãF(150) = 3: F(156) = 3: F(159) = 3:ãF(165) = 10: F(166) = 10: F(168) = 10: F(169) = 10:ãd = 0ã FOR x = newx TO newx + 20ã FOR xxx = newy TO newy + 8ã d = d + 1ã PixielColor = F(d)ã IF PixielColor <> 0 THENã IF POINT(xxx, x) <> 7 THENã PSET (xxx, x), PixielColorã END IFã END IFã ã NEXT xxxã NEXT xããERASE FãEND SUBããREM $STATICãSUB ManWalk4 (newx, newy)ã'$DYNAMICãREDIM F(200)ããF(12) = 6: F(13) = 6: F(14) = 6: F(20) = 6: F(21) = 14: F(22) = 6:ãF(23) = 6: F(24) = 6: F(25) = 6: F(29) = 14: F(30) = 14: F(31) = 14: F(32) = 6: F(33) = 6:ãF(34) = 6: F(35) = 6: F(38) = 14: F(39) = 9: F(40) = 14: F(41) = 14: F(42) = 6: F(43) = 6: F(44) = 6:ãF(45) = 6: F(46) = 14: F(47) = 14: F(48) = 14: F(49) = 14: F(50) = 14: F(51) = 14: F(52) = 14: F(53) = 6: F(54) = 6:ãF(56) = 14: F(57) = 14: F(58) = 14: F(59) = 14: F(60) = 14: F(61) = 6: F(62) = 6: F(63) = 6: F(66) = 4:ãF(67) = 14: F(68) = 14: F(69) = 14: F(70) = 6: F(71) = 6: F(72) = 6: F(75) = 14: F(76) = 14: F(77) = 14:ãF(78) = 14: F(79) = 6: F(80) = 6: F(86) = 14:ãF(94) = 3: F(95) = 11: F(96) = 11: F(103) = 3: F(104) = 11:ãF(105) = 11: F(112) = 3: F(113) = 3: F(114) = 11: F(115) = 11:ãF(121) = 3: F(122) = 3: F(124) = 11: F(130) = 3: F(131) = 3:ãF(132) = 3: F(139) = 3: F(141) = 3:ãF(147) = 3: F(150) = 3: F(157) = 3:ãF(160) = 3: F(165) = 10: F(166) = 10: F(168) = 10: F(169) = 10:ãd = 0ã FOR x = newx TO newx + 18ã FOR xxx = newy TO newy + 8ã d = d + 1ã PixielColor = F(d)ã TestPoint = POINT(xxx, x)ã IF PixielColor <> 0 THENã IF TestPoint <> 7 AND TestPoint <> 10 AND TestPoint <> 12 THENã PSET (xxx, x), PixielColorã END IFã END IFã ã NEXT xxxã NEXT xããERASE FãEND SUBããREM $STATICãSUB ManWalk5 (newx, newy)ã'$DYNAMICããREDIM F(200)ããF(12) = 6: F(13) = 6: F(14) = 6: F(20) = 6: F(21) = 14: F(22) = 6:ãF(23) = 6: F(24) = 6: F(25) = 6: F(29) = 14: F(30) = 14: F(31) = 14: F(32) = 6: F(33) = 6:ãF(34) = 6: F(35) = 6: F(38) = 14: F(39) = 9: F(40) = 14: F(41) = 14: F(42) = 6: F(43) = 6: F(44) = 6:ãF(45) = 6: F(46) = 14: F(47) = 14: F(48) = 14: F(49) = 14: F(50) = 14: F(51) = 14: F(52) = 14: F(53) = 6: F(54) = 6:ãF(56) = 14: F(57) = 14: F(58) = 14: F(59) = 14: F(60) = 14: F(61) = 6: F(62) = 6: F(63) = 6: F(66) = 4:ãF(67) = 14: F(68) = 14: F(69) = 14: F(70) = 6: F(71) = 6: F(72) = 6: F(75) = 14: F(76) = 14: F(77) = 14:ãF(78) = 14: F(79) = 6: F(80) = 6: F(86) = 14:ãF(94) = 3: F(95) = 11: F(96) = 11: F(103) = 3: F(104) = 11:ãF(105) = 11: F(112) = 3: F(113) = 3: F(114) = 11: F(115) = 11:ãF(121) = 3: F(122) = 3: F(124) = 11: F(130) = 3: F(131) = 3:ãF(133) = 3: F(139) = 3: F(141) = 3:ãF(147) = 3: F(151) = 3: F(156) = 3:ã'F(160) = 3: F(165) = 10: F(166) = 10: F(168) = 10: F(169) = 10:ãF(159) = 3: F(165) = 10: F(166) = 10: F(168) = 10: F(169) = 10:ãd = 0ã FOR x = newx TO newx + 18ã FOR xxx = newy TO newy + 8ã d = d + 1ã PixielColor = F(d)ã TestPoint = POINT(xxx, x)ã IF PixielColor <> 0 THENã IF TestPoint <> 7 AND TestPoint <> 10 AND TestPoint <> 12 THENã PSET (xxx, x), PixielColorã END IFã END IFã NEXT xxxã NEXT xãERASE FãEND SUBããREM $STATICã SUB Pause (ticks%)ã '**** ticks% are 1/18th secondã DEF SEG = 0ã DO UNTIL TestTick% > ticks%ã LastTick% = GetTick%ã GetTick% = PEEK(&H46C)ã IF LastTick% <> GetTick% THENã TestTick% = TestTick% + 1ã END IFã LOOPã DEF SEGã END SUBããFred Sexton Jr. SCREEN 13 GRAPHICS UTILITIES SCREEN,13,GRAPHICS,UTILITIES Year of 1991 (00:00:00)QB, QBasic 167 5996 G13UTIL.BAS DEFINT A-Zã'$DYNAMICãDECLARE SUB changeclr (ary(), oclr, nclr)ãDECLARE SUB mirror (ary(), bry())ãDECLARE SUB superimp (ary(), xpos, ypos, mode)ãDECLARE SUB scrollup (ary(), xpos, ypos)ãã'***************************************************************************ã' SCREEN 13 GRAPHIC UTILITIES ã' by FRED SEXTON JR. ã' CHANGECLRã' Searches an image array for a color and changes it to aã' different color.ã' syntax => CALL changeclr(array(),oldcolor,newcolor)ã'ã' MIRRORã' Returns a mirror image of first array in second array.ã' ****DIMENSION BOTH ARRAYS TO THE SAME SIZE****ã' syntax => CALL mirror(array1(), array2())ã'ã' SUPERIMPã' Puts a graphic image at specified location.ã' Depending on setting of mode varible the imageã' is either put in front of or behind the imagesã' that exist on the screen.ã' syntax => CALL superimp(array(), xpos, ypos, mode)ã' mode = 0 => put in frontã' mode = 1 => put behindã'ã' SCROLLUPã' Scrolls a graphic image up onto the screen ending upã' at specifeid location.ã' syntax => CALL scrollup(array(), xpos, ypos)ã'ã'ã'***************************************************************************ããSUB changeclr (ary(), oclr, nclr)ããxwidth = ary(0) \ 8 'get x-axis widthãyheight = ary(1) 'get y-axis heightããbytes& = CLNG(xwidth) * CLNG(yheight) 'find # of bytes in imageã 'while avoiding overflow errorããDEF SEG = VARSEG(ary(2)) 'set the segmentãaofs = VARPTR(ary(2)) 'get starting offsetããFOR t& = 0& TO bytes& - 1 'search the required # of bytesã IF PEEK(t& + aofs) = oclr THEN POKE t& + aofs, nclr 'change as neededãNEXTããEND SUBããSUB mirror (ary(), bry())ããbry(0) = ary(0) 'make bit width the sameãbry(1) = ary(1) 'make height the sameããxwidth = ary(0) \ 8 'get x-axis widthãyheight = ary(1) 'get y-axis heightããaseg = VARSEG(ary(2)) 'get the segment of array1ãaofs = VARPTR(ary(2)) 'get the offset of element 2ãbseg = VARSEG(bry(2)) 'get the segment of array2ãbofs = VARPTR(bry(2)) + xwidth - 1 'get the offset to start atããã 'the two sets of "FOR:NEXTã 'will effectively step thru array1ã 'byte by byteãFOR t = 1 TO yheightã FOR tt = 0 TO xwidth - 1ã DEF SEG = asegã value = PEEK(aofs + tt) 'get a value from array1ã DEF SEG = bsegã POKE bofs, value 'put it into array2ã bofs = bofs - 1ã NEXTãaofs = aofs + xwidth 'setup offsets for next rowãbofs = bofs + (xwidth * 2)ãNEXTã 'return to default segmentãDEF SEGããEND SUBããSUB scrollup (ary(), xpos, ypos)ããyheight = ary(1) 'get yaxis heightãypos = ypos + yheight 'setup starting ypos valueããFOR t = 1 TO yheightã ary(1) = t 'modify the value that PUT will useã ypos = ypos - 1 'move ypos up one rowã PUT (xpos, ypos), ary, PSET 'put image to screenã ã SOUND 32767, 2 'use your favorite method to createã 'a delay hereã '(I use an routine I wrote inã ' MASM but this will work)ãNEXTããEND SUBããSUB superimp (ary(), xpos, ypos, mode)ããDIM wry(UBOUND(ary)) 'dim a work array the same sizeããxwidth = ary(0) / 8 'get x-axis widthãyheight = ary(1) 'get y-axis heightããGET (xpos, ypos)-(xpos + xwidth - 1, ypos + yheight - 1), wryã ã 'get the target area of screen in work arrayãããIF mode = 0 THEN 'mode 0 means put in frontãã FOR t = 2 TO UBOUND(ary) 'search the source arrayã ã DEF SEG = VARSEG(ary(t)) 'starting with element 2ã lb = PEEK(VARPTR(ary(t))) 'get the lower byteã ub = PEEK(VARPTR(ary(t)) + 1) 'get the upper byteãã IF lb <> 0 THEN 'if soucre array isn't zeroã DEF SEG = VARSEG(wry(t))ã POKE VARPTR(wry(t)), lb 'put it into work arrayã END IFãã IF ub <> 0 THEN 'same thing for upper byteã DEF SEG = VARSEG(wry(t))ã POKE VARPTR(wry(t)) + 1, ubã END IFãã NEXTã DEF SEG 'return to default segmentããELSE 'nonzero mode means put behindãã FOR t = 2 TO UBOUND(wry) 'search work arrayã DEF SEG = VARSEG(wry(t)) 'starting with element 2ã lb = PEEK(VARPTR(wry(t))) 'get lower byteã ub = PEEK(VARPTR(wry(t)) + 1) 'get upper byteãã IF lb = 0 THEN 'if work value is zeroã DEF SEG = VARSEG(ary(t)) 'get corresponding byteã lb = PEEK(VARPTR(ary(t))) 'from source arrayã DEF SEG = VARSEG(wry(t)) 'put it into work arrayã POKE VARPTR(wry(t)), lbã END IFãã IF ub = 0 THEN 'same thing for upper byteã DEF SEG = VARSEG(ary(t))ã ub = PEEK(VARPTR(ary(t)) + 1)ã DEF SEG = VARSEG(wry(t))ã POKE VARPTR(wry(t)) + 1, ubã END IFãã NEXTã DEF SEG 'return to default segmentãEND IFã ãPUT (xpos, ypos), wry, PSET 'put the resulting array on screenããEND SUBããLucifer Productions WORMHOLE VGA,WORMHOLE 05/11/1995 (00:00:00) QB, QBasic 247 23328 WORMHOLE.BAS' Wormhole:ã' Lucifer's first productionã' Release Date: May 11th, 1995ã'ã' This scrolltext string exceeded Qbasic's limitation. So we had toã' rewrite the code to accomidate it. Pretty damn good, eh? It took about fiveã' hours to write the text. That's longer than it took to write the code.ã' So I suppose you are going to want some technical info. O.k. Wormhole isã' a looping scrolltext demo with a palette-rotating wormhle, and a movingã' logo.ã' The story of Lucifer:ã' It all started way the hell back in October of '94 when Psycho BFG (whoã' called himself gristle then) started a demo group called IBMLAND. You mustã' keep in mind that IBMLAND was only a joke, that became less of one when itã' spread. Anyway, IBMLAND's members became too lazy and were kicked out byã' Psycho BFG and I.ã' Instead of releasing demos under our own names, he and I formed a newã' demo group, Lucifer. And so now the only pure 100% Qbasic group is the oneã' that rose from the ashes of IBMLAND: Lucifer.ã' The only problem is that Lucifer has only two members (Psycho BFG and Iã' obviously), and we have not been successful at finding motivated members.ã' So in conclusion, if you would like to contribute to Lucifer's productionã' and are willing to actually DO SOMETHING, then write to me at:ã'ã' 4727 Holly Lake Drive,ã' Lake Worth, FL, USA, 33463.ã'ã' Remember: if you want a reply, use the password found in the scrolltext!ã'ã' If you do not feel like sending a letter all the way to Lake Worth, FL,ã' want to ask questions about these demos, or get the old IBMLAND demosã' then write to Psycho BFG at:ã'ã' 518 Jennings Street,ã' Greenacres, FL, USA, 33463ã'ã' IBMLAND demos available: Anarchy, Spectrum, Art, Mystic Circle, Dominoã' For a limited time only, we have Art version 1.2 with new texts and colorsã' by ThE DaEmOn of ex-IBMLANDã'ã' Note from Psycho BFG: You KNOW we're never going to get any mail, right?ã' 666: No shit, Sherlock, but it would be cool if we did!ã' Psycho BFG: So prove us wrong! We'll even pay for our own stampã' to reply and actually we're lying about the passwordã' requirement.ã' 666: You may think Basic sucks (if so, your right), butã' it does have some advanteges like: the source codeã' comes with it and uh... well... like... yeah!ã'ã' Lucifer is:ã' 666 - Organizer, Bugs, GFX, PRã' Psycho BFG - Main Bugs, GFX, Noiseã'ã'ã' Psycho BFG's guide to reading this scrolltextã' -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ã' The entire scrolltext takes almost 30 minutes to complete, so get someã' refreshments and a comfortable chair.ã' All texts in fading red are just highlightedã' Usually Red text means I am talking 'out loud'ã' Usually Blue text means 666 is talking 'out loud'ã' If it's just our names, as in a red "Psycho BFG" or blue "666" thenã' they are just meant to be highlightsã' Also there are places in the demo where we switch typers without anyã' visual clues; you have to figure these out yourself.ã ãSCREEN 13ãLOCATE 24, 5ãCOLOR 255ãPALETTE 255, 63 * 65536 + 63 * 256 + 63ãPRINT "PLEASE WAIT - INITIALIZING DEMO";ãVIEW SCREEN (0, 0)-(319, 179)ãREAD scr$ãlinen = 1ãlinep = 1ãã'OUT 968, 0ã'FOR i = 1 TO 765ã'OUT 969, 0ã'NEXT iããOUT 968, 12ãOUT 969, 63ãOUT 969, 0ãOUT 969, 0ãOUT 968, 9ãOUT 969, 0ãOUT 969, 0ãOUT 969, 63ããn = 0ãx = 5ãFOR i = 200 TO 40 STEP -1ãn = n + 1ãIF n = 6 THEN n = 1ãx = x / 1.003ãFOR j = 1 TO 10ãCIRCLE (160, i), x, n, , , .5ãx = x * 1.003ãNEXT jãNEXT iããVIEW SCREEN (0, 0)-(319, 199)ããDIM c(265)ãFOR i = 1 TO 6ãc(i) = i * (63 / 6)ãNEXT iãFOR i = 7 TO 256ãc(i) = 0ãNEXT iããFOR i = 1 TO 49ãCIRCLE (160 + i - i, 70 + i - i), i, 200 - iãCIRCLE (160 + i - i, 71 + i - i), i, 200 - iãCIRCLE (160 + i - i, 72 + i - i), i, 200 - iãNEXT iããLINE (0, 0)-(320, 10), 0, BFããLOCATE 1, 32ãCOLOR 1ãPRINT "LUCIFER"ãFOR i = 248 TO 320ãFOR j = 0 TO 10ãIF POINT(i, j) > 0 THEN LINE ((i - 196) * 2, j * 2 + 50)-((i - 196) * 2 + 2, j * 2 + 52), 15, BFãNEXT jãNEXT iããFOR i = 100 TO 220ãFOR j = 49 TO 75ãIF POINT(i, j) = 15 THEN GOTO skip2jãIF POINT(i + 1, j + 1) = 15 THEN PSET (i, j), 50ãIF POINT(i, j + 1) = 15 OR POINT(i + 1, j) = 15 THEN PSET (i, j), 49ãIF POINT(i - 1, j + 1) = 15 OR POINT(i + 1, j - 1) = 15 THEN PSET (i, j), 48ãIF POINT(i, j - 1) = 15 OR POINT(i - 1, j) = 15 THEN PSET (i, j), 47ãIF POINT(i - 1, j - 1) = 15 THEN PSET (i, j), 46ãskip2j:ãNEXT jãNEXT iãFOR i = 100 TO 220ãFOR j = 49 TO 75ãIF POINT(i, j) = 15 THEN PSET (i, j), 32 - (j - 49)ãNEXT jãNEXT iããFOR i = 1 TO 5ãn = i * 12ãc = n * 65536 + n * 256 + nãPALETTE i + 45, cãNEXT iããLINE (0, 0)-(320, 10), 0, BFããFOR i = 1 TO 50ãr = i + 13ãG = i - 1ãc = G * 256 + rãPALETTE i + 150, cãNEXT iããFOR i = 0 TO 15ãc = i * 4ãn = c * 65536 + c * 256 + cãPALETTE i + 16, nãNEXT iããLOCATE 1, 12ãCOLOR 255ãPRINT "LUCIFER KICKS ASS!"ãDIM ass(200, 8)ãGET (50, 0)-(250, 8), assãLINE (50, 0)-(250, 8), 0, BFãax = 0ãav = 0ããDIM text(312 * 8)ããDOãOUT 968, 1ãFOR j = 1 TO 5ãOUT 969, c(j)ãOUT 969, 0ãOUT 969, 0ãNEXT jããPUT (ax, 0), ass, PSETãax = ax + avãIF ax < 50 THEN av = av + 1 ELSE av = av - 1ããb = c(5)ãFOR j = 5 TO 2 STEP -1ãc(j) = c(j - 1)ãNEXT jãc(1) = bããz = TIMER * 100ãDOãLOOP WHILE TIMER * 100 - z < 1ããtm = tm + 1ãIF tm < 3 THEN GOTO skip2lãGET (16, 180)-(311, 199), textãPUT (8, 180), text, PSETãLOCATE 24, 39ãDOãat$ = MID$(scr$, linep, 1)ãlinep = linep + 1ãIF linep > LEN(scr$) THENã linep = 1ã linen = linen + 1ã IF linen > 16 THEN : linen = 1: RESTOREã READ scr$ãEND IFãIF sl > ln THEN sl = 1ãIF at$ = "*" THEN clr = 1ãIF at$ = "@" THEN clr = 2ãIF at$ = "#" THEN clr = 3ãIF at$ = "$" THEN clr = 4ãIF at$ = "%" THEN clr = 12ãIF at$ = "^" THEN clr = 9ãIF at$ = "&" THEN clr = 255ãLOOP WHILE INSTR("*@#$%^&", at$) > 0ãCOLOR clrãPRINT at$;ãtm = 1ãskip2l:ãLOOP WHILE INKEY$ = ""ãCLS 'If you are reading this, we told you about it!!!ããDATA " *H@e#l$l*o@,# $p*e@o#p$l*e$! &It's me, %Psycho BFG &of *L@u#c$i*f@e#r &typing. I'm here at ^666&'s house, and he's about to go get us some food. Scrolltext writing can be a strenuous task, even for the experienced, so we r going with the preventive medecine trend and stocking up before we really get into it... wait a sec... I just realized that this scroll is pure white... I ripped some code from a demo of mine from quite some time ago, and it seems to be missing the vital code for 'scrolltext commands'... here, I'll fix it now. Ah... as I'm sure you've noticed, these texts have neat colors now... let me show you those again: we can have *R@E#D* F@A#D$I*N@G&... and of course the standard %Psycho BFG red &and ^666 blue. &So... here, before I forget, let's hand out some credits and greetings. This demo was coded by %Psycho BFG, &and of course the scrolltext was written by ^b%o^t%h ^o%f ^u%s&. ok, since ^666& is begging to write the greetings, I'll let him take over for a little while.. i guess... "ãDATA " *D@a#m$n *i@t#!$!*! &What a fucking liar! I wasn't begging. Anyways, greetings go to: Coolgrease, Sinner, and Satanic Majesty of ex-IBMLAND... Cascada... Pilveveikot (I have no goddamn idea how to spell it)... Future Crew (nice name (@N#O$T&))... Electro Motive Force... Type One of TFL... Tran (Hell was especially coool)... Bill Gates... <-- whoa look back there! Sorry about that bug!... Stefan Gagne... Pis and Egor of Future Wrec... Dr. Sbaitso... Icecoldhacknslashdeathbladerunner... Topaz Beerline... All of those mental floss people... Mike Judge... I gess that about does it for the greets... Now for the fuckings... They go to: That guy that said IBMLAND sucked because he saw a Future Crew demo that was better... Nad Rotezc (for hosting MTV Sprots)... Jay Leno... Sonic PC (for screwing up the *A@s#s$e*m@b#l$y* @'#9$4&)... Steve Wazniak (for the sucky Macintosh)... Bill Gates (whew we finally got it right this time)... All cobol lamers... Gerber King (for those sucky anti McReynalds commercials)... "ãDATA "Well, ^666 &went to go molest his cat, so I'm resuming the typing... hey, he just kicked me! Damn it! Alright, let's have an interview. %Psycho BFG: &Hey ^666,& tell us about yourself... ^666: &Well, ... uh, well, there's really not much to say about me... so lets skip the crap questions. %Psycho BFG: &Ok, ok ok... did you have any trouble coding this demo? ^666: &No. I didn't code it. Dumbass. %BFG: &Oh that's right... I did... well um... do you do any coding yourself? ^666: &Yes, I do. I'm working on our next demo, Loser. It will be featuring some better effects... like crossfading, dotmorphing, a mosaic. Other than that I have no idea what will be in it... %Psycho BFG: &Ok...- ^666: &Will you stop typing 'ok'?! %Psycho BFG: &I'm asking the questions here... ok... hahaha okokokokokok hahaha! Alright... now... ^666&... you said some 'better effects'. Did you mean better effects than the ones in this demo, or just good effects in general? ^666&: better than this demo, dumbass! %BFG: &Alright, "ãDATA "I'm going to kick your ass now! %Wham! ^ow! %Pow! ^Quit it! Slam! %ow you assmunch! ^666&: O.k. Now the keboard is all mine and you can't do anything about it (at least not when you're lying on the floor, unconsious (%if I'm unconsious, how am I helping you with spelling?&)(That was just me typing to fool you))... Uh oh %Psycho BFG &just woke up... Now he's whining about how when he stomps on the floor, his nose hurts... Whew he shut the hell up... Oh yeah, I guess that concludes this interview. See us in our next scrolltext demo for another one... Now I will pass the keyboard over to %Psycho BFG&, who has been bugging for it, for quite some time now. *W@h#e$w*!& I thought he was never going to shut up! So now I'm going to talk about Loser a bit... if you ever get that demo (you got this one, didn't you?), then just remember, all the SUCKY parts were coded by ^666.& And ^wham! %Ow, quit it! ^Give me that fart knocker. &Now for some @R#E$A*L& info on Loser. %Psycho BFG& was lying again... ^cut it out, "ãDATA "asswipe& he just hit me... excuse me for one moment; I h%gfsds&a%gfsaghh&v%gfdg&e to%gfsdgs ^quit it! &I have to settle something... %Ah... that was easy... &Now let's get back to the scrolltext. This text is now about 4200 bypes (^bypes? %bytes, assmunch!&) long... that about one quarter of what we want it to be total... so be prepared for the rest of it... or if you're a *T@O#T$A*L @W#U$S*S &then you can just skip out and read it directly from the .bas file. But then you wouldn't see all the *C@O#O$L $E#F@F*E$C#T@S*!&, <- like that one. You'll just see garbage like VS%$TW#BH T^WVYE^# %G& (well actually we can't show you what you'd see exactly because it would cause effects in the scroll!!! @d#a$m*n #i$t*!@!#!&) Well it doesn't matter anyway because you're still reading this, arent you? Unless you're being a wuss. Ok, now if you want to contact us, send mail to 4727 Holly Lake Drive Lake Worth, FL 33463 - that's 666... i mean ^666&'s house... and remember, if you want a reply, the password is: "ãDATA "$#@%%#&D$%@$%&O$#@$&R%#%$#@*&K!!! Got it? If you did not, well *F@U#C$K @Y#O$U*!@!#! &Alright... now ^666 &wants the keyboard oh he just changed his mind but TOO BAD! Here is ^666!& Asswipe!!!... %Ow! Cut it out!!! ^Well if you're going to bitch about it then O.k.& So like do you want to see some anagrams... if not, tough shit!!! Here it goes... The four seasons-=> Fart on Sues shoe... Santa Clause-=> Satan's a clue... The mind is a terrible thing to waste-=> Broil tainted semen with great shit (no racism/offense intended)... And the big one...: You rob dead Zack Braggwelsche of his fatty pit-=> Go get fistfucked by a psycho %(BFG)& with a razor blade (offense intended)... Anagrams *k$i#c@k *a$s#s@!*!$!& O.k. Now I think I'll let %Psycho BFG& type... i am typing this with my nose... no really! i am typing this sentence with another part of my body but I wont tell you which... hahaha! So let's talk about cool people vs. dorky people. As you can tell, I am a cool person. ^666, &on the other hand, is a total dork. Uh oh... he's "ãDATA "starting to lurk behind me... ^you don't know when it's coming, dude... %Ow!!! &ok, just to get you back, I'm gonna give you the keyboard again!!! Muahahahahahahahahaaa! ^No way it's your's %Ok, I'll type as long as you promise not to hit me... ^I'm not going to make a promise I can't keep... %Well fuck that... here you go, ^667. ^O.k., Sane LFG... %ššš... ^Chopsy G(oat) B(utt) F(ucker)... %6(IQ points) 6(years old) 6(times he masturbates each day)... ^iD-ripper-offer... %90210... ^You forgot to make it %red^, dumbass!... %look again, dork! ^That's just because you change it, BiFG... %Enough of this. Let's quit insulting each other, ^999. %It's time we got back to the real scrolltext. &Do you really think that the public wants to hear about our arguments? ^I don't give a flying fuck about the public &(<-=-= sorry about that I really do)... &To tell the truth... I think they really DO want to hear about it... %POW!!! ^Yeeow! %WHACK! ^Ow! %SLAM! ^Smack!!! Eat that Psucko BFG... %Say what you want, ^90210%, but @G#O$D% is on my side. ^What a wuss!!! "ãDATA "*G$O#D^ isn't going to save your ass every time... You need to learn how to take care of yourself!!! &A message to @G#O$D&: Don't zap him yet... give him time to repent... ^90210&, this may be your last chance... Oh BTW! This text is now about 7.5k long! Half of our goal!! @L#U$C*I@F#E$R& @F#O$R*E@V#E$R*!@!#! ^Do you really think *G$O#D^ is going to save your ass if you keep doing things like that? %like what? Being nice to you? I thought we were supposed to be friends or something... ^We R, it's just that you keep bragging about how *G$O#D^ is going to save your ass but not mine... %Well if I didn't warn you I would be a real jerk, wouldn't I? I'm far to noble to lie about such things anyways. ^Noble?! Ha! You've got to be kidding... The only thing that makes you noble is your amazing ability to be a dumbass!! Ow that hurt!!, %Psicko Butt-Fucker^!! %Quit standing behind me, ^90210%! Look... I just am sick of fighting! We've been fighting for the last... lets see... almost the last 2k! I just want to get on "ãDATA "with the demo... even if you suck, we're still in the same group, ^90210%, and we should cooperate. ^What the hell does 'even if you suck' supposed to mean? %Um... nothing... ^902%... ^666% i mean... it um... it's nothing, really! ^Yeah-fucking-right, %Psycho Boy-Fucking-Gomer^... %Is that really me? ^Didn't I type it, ashino baka!!! %Do you wish that you type it, ashino baka? ^I *d$i#d^ type it, Psucko... %I see ^So do I... %I need more data... ^Tough shit, Dr. Sbanking! %Move your hands of my keyboard. ^And if I don't... %Don't you think that you can... ^I know I can, Sbanking... %Are you glad that you can, Sbanking...? ^Fuck you!!! %90210, you are getting me to GTRSEY24... parity warning... ^Fuck fuck fuck fuck!!! %YOU YOU YOU YOU! @I#'$m @b#a$c*k@!#!$!%! Heyyyyy... %Psycho BFG& is back from @H#E$L*L&, where I've spent my winter vacation... Hell really is nice in the winter and you should visit sometime. -^you have been playing too much Doom&- Anyways... hey, ^666&, you spelled DooM wrong! ^bite me& Shut up! Anyways, "ãDATA "this text is almost 10k long! Remember our goal is to get past 15k, so there's still a bit to type... ^666, & do you have anything to say? Not right now... I think we should go do something else and then come back and finish this text... Alright... lets go... 3:00pm signing off for now... %Psycho BFG& is back! Its been 80 minutes since we saved the last time... what? You munch! Just because no time has passed for you, doesn't mean it hasn't for us!!! Here look... See I just @l#e$f*t &a leak... it took about a minute... you see... the only way we can show you time is holding down the space bar and that gets boring for both you and us. Did that clear anything up? Now... I believe ^666& has something to say... Yes it's me, ^666&... I'm back (%no shit&)... O.k. I got a cool joke. There is this little kid playing with his train set, saying: 'all of you mother fuckers that want to get off, get off. And all of you suns of bitches that want to stay on, stay on!.' So like, then his mother told him to go in his room for two hours. Two hours "ãDATA "later... he comes out of his room AND says: 'all passengers who would like to get off, get off. All passengers who would like to stay on, stay on. If you r angry about the two hour delay, see the @b#i$t*c@h& in the kitchen'... Cool, eh? O.k. now it's %Psycho BFG's& turn to tell a joke... Well, I was going to tell the one about the jew who won the lottery using his concentration camp tatoo as his numbers, but some people might find that offensive... so I'll go with.. the Tennis Elbow... alright... see there's a guy who has an injury, so he goes to a doctor's office. The doctor tells him to piss in a cup, pour it into the machine in the hallway, and insert 75 cents. His result was a card saying: 'You have tennis elbow. Compress with a hot towel for fifteen minutes a day for two weeks.' Well, he did, but he couldn't stop thinking about that machine... finally curiosity overcame him: he got his wife and daughter to both piss in the cup, he dripped some radiator fluid from the car into the cup, and to top it all off, he ejaculated into it. "ãDATA "The next day he went up to the machine and poured it in, and entered 75 cents. The machine clanked around for about five minutes and finally spat out a card that read: 'Dear sir: Your wife has the clap, your daughter is pregnant, your car is about to blow an axle, and if you don't stop jerking off, you'll @N#E$V*E@R &get rid of that tennis elbow!' Let's see ^666& top that one... No problem... This story/joke is entitled 'Italian Goes to Breakfast in L.A.' (No offense to any Italian people). So 'dis one day I went out to brekfest and I ordered two peese of toast two eggs and two pancakes. De waiter only brought me one peese of toast. So I say to heem 'I want two peese.' And so he said to me 'the bathroom is that way.' So I say to heem 'no you don't undarstand. I want two peese on tha plate.' And he say to me 'you bettar not piss on the plate you sumanabitch.' The end... Beat that %Psycho BFG&... Damn, I don't know if I can... well I'll try my version of a foreigner in L.A. It's a short one, so you don't have to read all that setup crap. 'Dear sir... could you tell me "ãDATA "the way to Grand Central Station... or shall I just go fuck myself?' Um... I gues ^666& wins... but it's not my fault. I was going to use his next anyhow. Yes I won... That's because I 'm... (%WAIT, I JUST THOUGHT OF ONE!!!) &Ok here's %Psycho BFG's& joke du jour... What do milk and elephants have in common? . . . . . . . . . . . . They both come in quarts!!! Of course some of you might not get that one... 'wait a few more years, kid' Now back to the regularly scheduled broadcast. Anyway... as I was saying, I won because I am cooler (%That just means he didn't get my joke... I wonder why...&) *F$U#C@K *Y$O#U@!!!^ I got your damn joke (%yeah, I just explained it to him&), but I still won!!! Besides elephants come in gallons (%how would you know? ^I asked your dad! %that was stupid... hehehe)& Hey, I just thought of something... 1961 upsidedown is 1961!!! %Psycho BFG& is back. I figured I better take over or you'll die of boredom (actually, he just had to @l#e$a*v@e &a dump. Anywayz I'd like to talk about stuff now. "ãDATA "For example, this text is now 13.5k long! This is not something I'm proud of, but it's split about half and half I'd say between me and ^667& typing (he's not here right now so I can say @W#H$A*T@E#V$E*R @I #W$A@N*T&). This equality is something I am going to fix right here and now... I will type... say, until the end of the line. Alright... now I'd like to send a few greets myself (I helped with the above greets, but some people were left out). Since you've read for so long, I will reward you with all the @C#O$O*L &greetings. Greetings from me to ULTRA2KRAD4U (2KRAD4U was a KICKASS demo... try again in basic though)... INFERIORS (do some @R#E$A*L &basic!)... Daemon (both of them...ThE DaEmOn, and Daemon)... Sorcerers (keep up them cool demos)... Zodiak (try a few PC speaker tunes... if you want, I'll send you my PC-Tracker)... The Flamooties (or whatever you're called... Kukoo2 had a good start, but the second part wasn't as good)... 508537 (great name, guys!)... Ford Prefect (all of 'em)... Sand (eggs and oisters?)... Ok... that's one line... want to try for 2 in a row? "ãDATA "Here's the second! Now for the list of least used hyphenated words, in descending order: OWL-FLAVORED...LICK-PROOF...PRE-SPANKED...HAT-RESISTANT...CONDOM-FLAVORED...MOOKIE-PROOFED...PLUTONIUM-FREE...FLY-JAMMED...POST-OPENED...FART-FLAVORED...and finally...@S#U$G*A@R#-$F*R@E#E$!& Now... hey did you know that in some versions of battle chess you can see the queens nipples poking at her shirt as she goes to make a kill? Hey I just typed the longest sentence ever known to man but when I tried to copy it to get a byte count it just was truncated at the 256 byte mark and I KNOW that there was more than that, probably because it was cut off in the middle of the word 'dumbass'. Lets get a byte count of that. On second thought lets not. If it's less than 256 bytes I will be unsatisfied and if it's more then I'll have to retype it all. Instead, let's just count the number of bytes in the entire scrolltext. <-= @A#T @T#H$A*T @M#A$R*K @T#H*E @S#C$R*O@L#L$T*E@X#T $I*S @E#X$A*C@T#L$Y @1#5$9*1@3 @b#y$t*e@s @l#o$n*g@!#!$!*! @W#E @H#A$V*E @S#U$C*C@E#E$D*E@D#!$!*! &But do you think we are going to stop here? "ãDATA "Well, whatever your answer is, YOU'RE RIGHT!!! "ããRich Geldreich 3-D WIREFRAME PROGRAM 3D,WIREFRAME Year of 1992 (00:00:00)QB, QBasic 404 13852 3D.BAS 'Well, here you go! This is an improved, easier to read version of myã'fast 3-D wireframe program. I've done some things that a coupleã'people recommended and I've also sped it up a little.ã'(The number at the upper left corner of the screen is the number of framesã'per second that are being displayed. It's updated every 20 frames, soã'it will be a little choppy.)ããã'3DEXP1a.BAS By Rich Geldreich April 16th, 1992ã'(This version has some documentation...)ããDEFINT A-ZãTYPE LineTypeã X AS INTEGERã Y AS INTEGERã Z AS INTEGERã X1 AS INTEGERã Y1 AS INTEGERã Z1 AS INTEGERãEND TYPEãDIM Points(100) AS LineTypeãDIM Xs(100), Ys(100), Xe(100), Ye(100), Xn(100), Yn(100)ãDIM Xs1(100), Ys1(100), Xe1(100), Ye1(100)ãDIM X(100), Y(100), Z(100), Pointers1(100), Pointers2(100)ãDIM R(100)ãDIM Cosine&(360), Sine&(360)ãCLSãPRINT "3-D Craft"ãPRINT "By Rich Geldreich 1992"ãPRINTãPRINT "Keys to use: (Turn NUMLOCK on!)"ãPRINT "Q...............Quits"ãPRINT "Numeric keypad..Controls your position(press 5 on the keypad"ãPRINT " to completly stop yourself) "ãPRINT "-...............Forward exceleration"ãPRINT "+...............Backward exceleration"ãPRINT "Arrow keys......Controls the rotation of the craft"ãPRINT "F...............Excelerates the craft (Forward)"ãPRINT "B...............Slows the craft (Backward)"ãPRINT "S...............Stops the craft"ãPRINT "A...............Toggles Auto Center, use this when you lose";ãPRINT " the craft"ãPRINT "C...............Stops the craft's rotation"ãPRINT "V...............Resets the craft to starting position"ãPRINTãPRINT "Wait a sec..."ãã'The following for/next loop makes a sine & cosine table.ã'Each sine & cosine is multiplied by 1024 and stored as long integers.ã'This is done so that we don't have to use any slow floating pointã'math at run time.ãa = 0ãFOR a! = 0 TO 359 / 57.29577951# STEP 1 / 57.29577951#ã Cosine&(a) = INT(.5 + COS(a!) * 1024)ã Sine&(a) = INT(.5 + SIN(a!) * 1024): a = a + 1ãNEXTã'Next we read in all of the lines that are in the object...ãFOR a = 0 TO 44ã READ Points(a).X, Points(a).Y, Points(a).Zã READ Points(a).X1, Points(a).Y1, Points(a).Z1ãNEXTã'Here comes the hard part... Consider this scenario:ãã'We have two connected lines, like this:ãã' 1--------2 and 3ã' |ã' |ã' |ã' |ã' 4ã'Where 1,2, 3, & 4 are the starting and ending points of each line.ã'The first line consists of points 1 & 2 and the second lineã'is made of points 3 & 4.ã'So, you ask, what's wrong? Nothing, really, but don't you see thatã'points 2 and 3 are really at the sample place? Why rotate them twice,ã'that would be a total waste of time? The following code eliminates suchã'occurrences from the line table. (great explanation, huh?)ããNumberLines = 45ã'take all of the starting & ending points and put them in one bigã'array...ãNp = 0ãFOR a = 0 TO NumberLines - 1ã X(Np) = Points(a).Xã Y(Np) = Points(a).Yã Z(Np) = Points(a).Zã Np = Np + 1ã X(Np) = Points(a).X1ã Y(Np) = Points(a).Y1ã Z(Np) = Points(a).Z1ã Np = Np + 1ãNEXTã'Now set up two sets of pointers that point to each point that a lineã'is made of... (in other words, scan for the first occurrence of eachã'starting and ending point in the point array we just built...)ãFOR a = 0 TO NumberLines - 1ã Xs = Points(a).Xã Ys = Points(a).Yã Zs = Points(a).Z 'get the 3 coordinates of the start pointã FOR B = 0 TO Np - 1 'scan the point arrayã IF X(B) = Xs AND Y(B) = Ys AND Z(B) = Zs THENã Pointers1(a) = B 'set the pointer to point to theã EXIT FOR 'point we have just foundã END IFã NEXTã Xs = Points(a).X1 'do the same thing that we did aboveã Ys = Points(a).Y1 'except scan for the ending pointã Zs = Points(a).Z1 'of each lineã FOR B = 0 TO Np - 1ã IF X(B) = Xs AND Y(B) = Ys AND Z(B) = Zs THENã Pointers2(a) = Bã EXIT FORã END IFã NEXTãNEXTã'Okay, were almost done! All we have to do now is to build a tableã'that tells us which points to actually rotate...ãNr = 0ãFOR a = 0 TO NumberLines - 1ã F1 = Pointers1(a) 'get staring & ending point numberã S1 = Pointers2(a)ã IF Nr = 0 THEN 'if this is the first point then it of courseã 'has to be rotatedã R(Nr) = F1: Nr = Nr + 1ã ELSEã found = 0 'scan to see if this point already exists...ã FOR B = 0 TO Nr - 1ã IF R(B) = F1 THENã found = -1: EXIT FOR 'shoot, it's already here!ã END IFã NEXTã IF NOT found THEN R(Nr) = F1: Nr = Nr + 1 'point the pointã 'in the array it weã END IF 'can't find it...ãã found = 0 'now look for the ending pointã FOR B = 0 TO Nr - 1ã IF R(B) = S1 THENã found = -1: EXIT FORã END IFã NEXTã IF NOT found THEN R(Nr) = S1: Nr = Nr + 1ãNEXTãPRINT "Press any key to begin..."ãa$ = INPUT$(1)ã'The following sets up the rotation & perspective variables.ãã'Vs = the screen that is currently being viewedã'Ws = the screen that is currently being worked onãVs = 1: Ws = 0ãã'Deg1 & Deg2 are the two angles of rotationã'D1 & D2 are the deltas of each axes. If D1 = -5, for instance, thenã'Deg1 will be decreased 5 degress every frame.ãDeg1 = 0: Deg2 = 0: D1 = 0: D2 = 0ãã'Spos & Mypos are for the perspective routines...ã'Spos is the screen's Z coordinate and Mypos is the users Z coordinateãSpos = -250: Mypos = 0ãã'Mx, My, and Mz are the coordinates of the user.ã'Ox, Oy, and Oz are the coordinates of the craft.ãMx = 0: my = 0: Mz = 0: Ox = 0: Oy = 0: Oz = -260ã'main loopãNumberOfFrames = 0ãDEF SEG = &H40ãStartTime = PEEK(&H6C)ãDOãã 'swap the viewing and working screens for page flipping...ã SWAP Vs, Wsã SCREEN 9, , Ws, Vsãã 'adjust the angles according to their deltas...ã Deg1 = (Deg1 + D1) MOD 360ã Deg2 = (Deg2 + D2) MOD 360ã 'fix the angles up if they go out of rangeã IF Deg1 < 0 THEN Deg1 = Deg1 + 360ã IF Deg2 < 0 THEN Deg2 = Deg2 + 360ã 'get the sine and cosine of each angle from the tablesã 'that were prepared at the beginning of the programã C1& = Cosine&(Deg1): S1& = Sine&(Deg1)ã C2& = Cosine&(Deg2): S2& = Sine&(Deg2)ãã 'now we must adjust the object's coordinatesã 'based on how quickly it is moving...ãã X = Speed: Y = 0: Z = 0ãã X1 = (X * C1&) \ 1024: Y1 = (X * S1&) \ 1024ã X2 = (X1 * C2&) \ 1024: Zn = (X1 * S2&) \ 1024ã Ox = Ox + X2: Oy = Oy + Y1: Oz = Oz + Znã IF Oz > 32000 THEN Oz = 32000ã IF Oz < -32000 THEN Oz = -32000ã IF Ox > 32000 THEN Ox = 32000ã IF Ox < -32000 THEN Ox = -32000ã IF Oy > 32000 THEN Oy = 32000ã IF Oy < -32000 THEN Oy = -32000ãã 'if Atloc is true then Auto-Center is on...ã IF Atloc THENã Mx = Mx + (Ox - Mx) \ 4ã my = my + (Oy - my) \ 4ã Mz = Mz + ((Oz + 200) - Mz) \ 4ã ELSEã 'adjust the users position based on how much he is moving...ã Mz = Mz + Mzm: Mx = Mx + Mxm: my = my + Mymã IF Mz > 32000 THEN Mz = 32000ã IF Mz < -32000 THEN Mz = -32000ã IF Mx > 32000 THEN Mx = 32000ã IF Mx < -32000 THEN Mx = -32000ã IF my > 32000 THEN my = 32000ã IF my < -32000 THEN my = -32000ã END IFã '(Wait for vertical retrace, reduces flicker. This was recommendedã 'by someone on the echo but I can't remember who! Thanks)ã WAIT &H3DA, 8ã 'erase the old lines...ã IF Ws = 1 THENã FOR a = 0 TO Ln(Ws) - 1ã LINE (Xs1(a), Ys1(a))-(Xe1(a), Ye1(a)), 0ã NEXTã ELSEã FOR a = 0 TO Ln(Ws) - 1ã LINE (Xs(a), Ys(a))-(Xe(a), Ye(a)), 0ã NEXTã END IFã 'print frames per secondã LOCATE 1, 1: PRINT a$ã 'rotate the points...ã FOR a = 0 TO Nr - 1ã R = R(a): Xo = X(R): Yo = Y(R): Zo = Z(R)ã X1 = (Xo * C1& - Yo * S1&) \ 1024ã Y1& = (Xo * S1& + Yo * C1&) \ 1024 - my + Oyã X1& = (X1 * C2& - Zo * S2&) \ 1024 - Mx + Oxã Zn = (X1 * S2& + Zo * C2&) \ 1024 - Mz + Ozã 'if the point is too close(or behind) the viewer thenã 'don't draw it...ã IF (Mypos - Zn) < 15 THENã Xn(R) = -1: Yn(R) = 0: Zn = 0ã ELSEã 'Put the point into perspective...ã 'The original formula was:ã 'Xnew=Xnew+( -Xold * ( (Spos-Z) / (MPos-Z) ) )ã 'Ynew=Ynew=( -Yold * ( (Spos-Z) / (Mpos-Z) ) )ã v = (1330& * (Spos - Zn)) \ (Mypos - Zn)ã Xn(R) = 320 + X1& + (-X1& * v) \ 1330ãã 'The Y coordinate is also multiplied by .8 to adjustã 'for SCREEN 9's height to width ratio...ãã Yn(R) = 175 + (8 * (Y1& + (-Y1& * v) \ 1330)) \ 10ã END IFã NEXTã 'draw the lines...ã '(There are two seperate cases, each puts it's coordinatesã 'in a different array for later erasing. I could of used aã '2 dimensional array for this but that is slower.)ã IF Ws = 1 THENã Ln = 0ã FOR a = 0 TO NumberLines - 1ã F1 = Pointers1(a): S1 = Pointers2(a)ã Xn = Xn(F1): Yn = Yn(F1)ã 'if Xn<>-1 then it's in view...ã IF Xn <> -1 THENã IF Xn(S1) <> -1 THENã X1 = Xn(S1): Y1 = Yn(S1)ã LINE (X1, Y1)-(Xn, Yn), 14ã 'store the lines so they can be erased later...ã Xs1(Ln) = X1: Ys1(Ln) = Y1ã Xe1(Ln) = Xn: Ye1(Ln) = Ynã Ln = Ln + 1ã END IFã END IFã NEXTã ELSEã Ln = 0ã FOR a = 0 TO NumberLines - 1ã F1 = Pointers1(a): S1 = Pointers2(a)ã Xn = Xn(F1): Yn = Yn(F1)ã 'if Xn<>-1 then it's in view...ã IF Xn <> -1 THENã IF Xn(S1) <> -1 THENã X1 = Xn(S1): Y1 = Yn(S1)ã LINE (X1, Y1)-(Xn, Yn), 14ã 'store the lines so they can be erased later...ã Xs(Ln) = X1: Ys(Ln) = Y1ã Xe(Ln) = Xn: Ye(Ln) = Ynã Ln = Ln + 1ã END IFã END IFã NEXTã END IFã Ln(Ws) = Lnã K$ = UCASE$(INKEY$)ã 'Process the keystroke(if any)...ã IF K$ <> "" THENã SELECT CASE K$ã CASE "A"ã Atloc = NOT Atlocã CASE "+"ã Mzm = Mzm + 2ã CASE "-"ã Mzm = Mzm - 2ã CASE "5"ã Mxm = 0: Mym = 0: Mzm = 0ã CASE "4"ã Mxm = Mxm - 2ã CASE "6"ã Mxm = Mxm + 2ã CASE "8"ã Mym = Mym - 2ã CASE "2"ã Mym = Mym + 2ã CASE "F"ã Speed = Speed + 5ã CASE "B"ã Speed = Speed - 5ã CASE "C"ã D1 = 0: D2 = 0ã CASE "S"ã Speed = 0ã CASE CHR$(0) + CHR$(72)ã D1 = D1 + 1ã CASE CHR$(0) + CHR$(80)ã D1 = D1 - 1ã CASE CHR$(0) + CHR$(75)ã D2 = D2 - 1ã CASE CHR$(0) + CHR$(77)ã D2 = D2 + 1ã CASE "Q"ã SCREEN 0, , 0, 0: CLS : PRINT "See ya later!"ã ENDã CASE "V"ã D1 = 0: D2 = 0: Deg1 = 0: Deg2 = 0: Speed = 0ã END SELECTã END IFã NumberOfFrames = NumberOfFrames + 1ã SOUND 32767, .1ã 'see if 20 frames have passed; if so then seeã 'how long it took...ã IF NumberOfFrames = 20 THENã TotalTime = PEEK(&H6C) - StartTimeã IF TotalTime < 0 THEN TotalTime = TotalTime + 256ã FramesPerSecX100 = 36400 \ TotalTimeã High = FramesPerSecX100 \ 100ã Low = FramesPerSecX100 - Highã 'A$ has the string that is printed at the upper leftã 'corner of the screenã a$ = MID$(STR$(High), 2) + "."ã a$ = a$ + RIGHT$("0" + MID$(STR$(Low), 2), 2) + " "ã NumberOfFrames = 0ã StartTime = PEEK(&H6C)ã END IFãLOOPã'The following data is the shuttle craft...ã'stored as Start X,Y,Z & End X,Y,ZãDATA -157,22,39,-157,-18,39ãDATA -157,-18,39,-127,-38,39ãDATA -127,-38,39,113,-38,39ãDATA 113,-38,39,193,12,39ãDATA 33,42,39,33,42,-56ãDATA 33,42,-56,-127,42,-56ãDATA -127,42,-56,-157,22,-56ãDATA -157,22,-56,-157,22,39ãDATA -157,22,-56,-157,-18,-56ãDATA -157,-18,-56,-157,-18,39ãDATA -157,-18,-56,-127,-38,-56ãDATA -127,-38,-56,-127,-38,39ãDATA -127,-38,-56,113,-38,-56ãDATA 113,-38,-56,113,-38,39ãDATA 113,-38,-56,193,12,-56ãDATA 193,12,-56,193,12,39ãDATA -157,22,-56,193,12,-56ãDATA 193,12,39,-157,22,39ãDATA -56,-13,41,-56,-3,41ãDATA -56,-3,41,-26,-3,41ãDATA -26,-3,41,-26,7,41ãDATA -51,7,41,-31,-13,41ãDATA -11,-13,41,-11,-3,41ãDATA -11,-3,41,-1,7,41ãDATA 9,7,41,9,-8,41ãDATA 9,-8,41,24,-8,41ãDATA 34,16,41,34,-38,41ãDATA 33,-39,41,33,-39,-53ãDATA 33,-39,-53,33,15,-53ãDATA -42,-38,19,-72,-38,19ãDATA -72,-38,19,-72,-38,-41ãDATA -72,-38,-41,-42,-38,-41ãDATA -42,-38,-41,-42,-38,19ãDATA 33,42,39,34,16,41ãDATA 33,42,-56,33,15,-53ãDATA -157,22,39,-127,42,39ãDATA -127,42,-56,-127,42,39ãDATA -127,42,39,33,42,39ãDATA 159,-8,-56,159,-8,40ãDATA 143,-18,-56,143,-18,39ãDATA 193,12,39,193,32,30ãDATA 33,42,39,193,32,30ãDATA 193,32,30,193,32,-47ãDATA 33,42,-56,193,32,-47ãDATA 193,12,-56,193,32,-47ããCarlos E. Diaz, Jr. MAKE & SAVE BMP MAKE,SAVE,BMP Year of 1994 (00:00:00)QB, QBasic 112 5604 BASICBMP.BAS'==== BASICBMP.BAS by Carlos E. Diaz, Jr. (XTDD74A) ===ã'==== Copyright (C) 1994 ===ã'==== Though copyrighted for proof of authorship, === ã'==== I, Carlos E. Diaz, Jr. have denoted the source code of === ã'==== BASICBMP.BAS as PUBLIC DOMAIN. === =ã'-------------------------------- NOTICE! ---------------------------------ã'--- This program, written by Carlos E. Diaz, Jr. create BMP's of screenã'--- 12 only! Use this program at your own risk! The writer has taken goodã'--- care to make this program safe, but he is NOT liable for ANY damage itã'--- may cause.ã'--- The file name of the BMP must be specified in the SUB makeBMP. ã'--- The program will not overwrite an existing file with the same name ã'--- set in the SUB makeBMP. ã'--- This program is only fast if you have a fast computer. ã'--- The white line that creeps from the bottom to the top of the screenã'--- simply shows what horizontal line the program is working on. ã'--- The only known side effect is that when the file is opened by ã'--- Windows' PaintBrush, the colors may not match those of the BASIC screen.ã'--- If you have trouble opening the .BMP file from Windows, change yourã'--- Windows display driver to 640x480 16 colors from Windows Setup. ã'--- This program was written and tested with QBASIC interpretive BASIC. ã ãDECLARE SUB MakeBMP ()ãDECLARE SUB BMPheader (Hd$)ãSCREEN 12ã'-------------------------Draw Something on the Screen ------------------- ã ãFOR t = 1 TO 25ã x1 = RND * 640ã y2 = RND * 480ã x2 = RND * 640ã y2 = RND * 480ã c = RND * 4 + 1ã LINE (x1, y1)-(x2, y2), cã LINE (639 - x1, y1)-(639 - x2, y2), cã LINE (x1, 479 - y1)-(x2, 479 - y2), cã LINE (639 - x1, 479 - y1)-(639 - x2, 479 - y2), cãNEXT tãLINE (0, 0)-(639, 479), 15, Bãa$ = "-=This BMP file was created by BASICBMP.BAS, a 100% QBasic program=-"ãLOCATE 15, (40 - (LEN(a$) / 2)): PRINT a$ã'--------------------------- Make the BMP fileã'REMark the next line if you dont want to change the screen to a BMP.ãCALL MakeBMP 'This is the heart of the program ãPRINT "!Program Complete!"ãENDããSUB BMPheader (Hd$)ã'**** This Header Creates a 640 x 480 16 color BMP format ONLY!! ****ã'**** The exact meaning of each byte is unknown. **** ã ã'**** The only known side effect is that colors will not match **** ã ã'**** their BASIC equivalents when the .BMP is opened by **** ã ã'**** Windows 3.1's PaintBrush. **** ã ã Hd$ = CHR$(66) + CHR$(77) + CHR$(118) + CHR$(88) + CHR$(2) + CHR$(0) + CHR$(0) + CHR$(0)ã Hd$ = Hd$ + CHR$(0) + CHR$(0) + CHR$(118) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(40) + CHR$(0)ã Hd$ = Hd$ + CHR$(0) + CHR$(0) + CHR$(128) + CHR$(2) + CHR$(0) + CHR$(0) + CHR$(224)ã Hd$ = Hd$ + CHR$(1) + CHR$(0) + CHR$(0) + CHR$(1) + CHR$(0) + CHR$(4) + CHR$(0) + CHR$(0)ã Hd$ = Hd$ + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0)ã Hd$ = Hd$ + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0)ã Hd$ = Hd$ + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0)ã Hd$ = Hd$ + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(128)ã Hd$ = Hd$ + CHR$(0) + CHR$(0) + CHR$(128) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(128) + CHR$(128)ã Hd$ = Hd$ + CHR$(0) + CHR$(128) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(128) + CHR$(0)ã Hd$ = Hd$ + CHR$(128) + CHR$(0) + CHR$(128) + CHR$(128) + CHR$(0) + CHR$(0) + CHR$(128)ã Hd$ = Hd$ + CHR$(128) + CHR$(128) + CHR$(0) + CHR$(192) + CHR$(192) + CHR$(192)ã Hd$ = Hd$ + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(255) + CHR$(0) + CHR$(0) + CHR$(255)ã Hd$ = Hd$ + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(255) + CHR$(255) + CHR$(0) + CHR$(255)ã Hd$ = Hd$ + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(255) + CHR$(0) + CHR$(255) + CHR$(0)ã Hd$ = Hd$ + CHR$(255) + CHR$(255) + CHR$(0) + CHR$(0) + CHR$(255) + CHR$(255) + CHR$(255)ã Hd$ = Hd$ + CHR$(0)ãEND SUBããSUB MakeBMPã DIM Header AS STRINGã DIM X AS INTEGER, Y AS INTEGERã DIM a AS INTEGER, B AS INTEGER, c AS INTEGERã DIM filename AS STRINGã DIM Filelen AS LONGã WINDOW SCREEN (0, 479)-(639, 0)ã '======== Set File name from this line ======ã filename$ = "C:\FIRSTBMP.BMP"ã BMPheader Headerã OPEN filename FOR BINARY ACCESS WRITE AS #1ã Filelen = LOF(1)ã CLOSE #1ã IF Filelen = 0 THENã OPEN filename FOR BINARY ACCESS WRITE AS #1ã PUT #1, , Headerã FOR Y = 479 TO 0 STEP -1ã FOR X = 0 TO 639 STEP 2ã a = POINT(X, Y)ã B = POINT(X + 1, Y)ã c = a * 16 + Bã Buffer$ = Buffer$ + CHR$(c)ã NEXT Xã PUT #1, , Buffer$ã Buffer$ = ""ã LINE (0, Y)-(639, Y), 15ã NEXT Yã CLOSE #1ã ELSEã LOCATE 2, 1ã PRINT "*Attention!! Cannot make file " + CHR$(34) + filename + CHR$(34) + "!*"ã PRINT "*That file already exists and this*"ã PRINT "*program will NOT overwrite another file!*"ã END IFãEND SUBããUnknown Author(s) SCALE DOOM FACE SCALE,DOOM,FACE Year of 1994 (00:00:00)QB, QBasic 113 4967 DOOMFACE.BAS'Here's a code to draw the face from DOOM in any size you want...ã'Takes a while on slow computers, but you could BSAVE it intoã'a file and BLOAD it into your program.ããDIM HALF(66)ãDIM ONE(221)ãDIM TWO(810)ãDIM THREE(1771)ãDIM FOUR(3104)ãDIM FIVE(4964)ãDIM SIX(7072)ãSCREEN 13ãPALETTE 14, (256 ^ 2 * 8) + (256 * 12) + 17ãPALETTE 22, (256 ^ 2 * 30) + (256 * 30) + 54ãPALETTE 48, (256 ^ 2 * 55) + (256 * 58) + 63ãPALETTE 49, (256 ^ 2 * 52) + (256 * 56) + 63ãPALETTE 50, (256 ^ 2 * 49) + (256 * 54) + 63ãPALETTE 51, (256 ^ 2 * 46) + (256 * 52) + 63ãPALETTE 52, (256 ^ 2 * 44) + (256 * 51) + 63ãPALETTE 53, (256 ^ 2 * 41) + (256 * 49) + 63ãPALETTE 54, (256 ^ 2 * 38) + (256 * 47) + 63ãPALETTE 55, (256 ^ 2 * 36) + (256 * 46) + 63ãPALETTE 56, (256 ^ 2 * 32) + (256 * 44) + 63ãPALETTE 57, (256 ^ 2 * 30) + (256 * 42) + 63ãPALETTE 58, (256 ^ 2 * 28) + (256 * 40) + 59ãPALETTE 59, (256 ^ 2 * 26) + (256 * 38) + 57ãPALETTE 60, (256 ^ 2 * 24) + (256 * 36) + 55ãPALETTE 61, (256 ^ 2 * 22) + (256 * 34) + 53ãPALETTE 62, (256 ^ 2 * 20) + (256 * 32) + 51ãPALETTE 63, (256 ^ 2 * 19) + (256 * 31) + 50ãPALETTE 64, (256 ^ 2 * 18) + (256 * 30) + 47ãPALETTE 65, (256 ^ 2 * 17) + (256 * 28) + 44ãPALETTE 66, (256 ^ 2 * 16) + (256 * 27) + 42ãPALETTE 67, (256 ^ 2 * 15) + (256 * 26) + 40ãPALETTE 68, (256 ^ 2 * 14) + (256 * 24) + 38ãPALETTE 69, (256 ^ 2 * 13) + (256 * 23) + 35ãPALETTE 70, (256 ^ 2 * 12) + (256 * 21) + 33ãPALETTE 71, (256 ^ 2 * 11) + (256 * 20) + 31ãPALETTE 72, (256 ^ 2 * 10) + (256 * 19) + 29ãPALETTE 73, (256 ^ 2 * 9) + (256 * 17) + 26ãPALETTE 74, (256 ^ 2 * 8) + (256 * 16) + 23ãPALETTE 75, (256 ^ 2 * 7) + (256 * 15) + 20ãPALETTE 76, (256 ^ 2 * 6) + (256 * 13) + 18ãPALETTE 77, (256 ^ 2 * 5) + (256 * 11) + 15ãPALETTE 78, (256 ^ 2 * 4) + (256 * 10) + 12ãPALETTE 79, (256 ^ 2 * 3) + (256 * 8) + 10ãPALETTE 144, (256 ^ 2 * 24) + (256 * 32) + 39ãPALETTE 148, (256 ^ 2 * 12) + (256 * 20) + 25ãPALETTE 162, (256 ^ 2 * 16) + (256 * 46) + 53ãPALETTE 163, (256 ^ 2 * 11) + (256 * 38) + 48ãPALETTE 164, (256 ^ 2 * 7) + (256 * 30) + 43ãPALETTE 165, (256 ^ 2 * 4) + (256 * 22) + 38ãPALETTE 210, (256 ^ 2 * 46) + (256 * 53) + 63ãPALETTE 212, (256 ^ 2 * 30) + (256 * 44) + 63ãPALETTE 213, (256 ^ 2 * 22) + (256 * 40) + 63ãPALETTE 224, (256 ^ 2 * 63) + (256 * 63) + 63ãPALETTE 225, (256 ^ 2 * 53) + (256 * 63) + 63ãã1ãCLSãA = 2 'Change this to a higher number for a bigger face.ãGOSUB DOOMFACEãDEF SEGãDO: LOOP UNTIL INKEY$ <> ""ãSYSTEMããDOOMFACE:ãCLSãFOR X = 1 TO 29 * A STEP AãFOR Y = 1 TO 24 * A STEP AãREAD CãPSET (Y, X), CãFOR Z = 1 TO AãFOR Z2 = 0 TO A - 1ãPSET (Y + Z2, X + Z - 1), CãPSET (Y + Z - 1, X + Z2), CãPSET (Y + Z - 1, X + Z - 1), CãNEXT Z2ãNEXT ZãNEXT YãNEXT XãRETURNã'Color dataãDATA 0,0,0,0,0,76,74,74,74,73,72,72,72,72,72,73,74,74,76,0,0,0,0,0ãDATA 0,0,0,78,74,75,74,73,69,64,65,62,62,65,66,68,72,74,75,74,78,0,0,0ãDATA 0,0,78,74,72,69,68,64,63,62,67,65,68,68,68,69,69,72,72,75,76,78,0,0ãDATA 0,0,78,72,70,72,69,68,65,70,66,69,67,72,72,72,72,74,75,78,78,79,0,0ãDATA 0,79,77,74,72,74,69,68,69,69,69,69,76,69,74,76,74,76,78,79,79,79,79,0ãDATA 0,79,77,76,75,74,69,75,68,73,73,69,73,76,73,76,77,74,79,78,78,77,79,0ãDATA 0,79,76,76,72,72,75,69,75,73,72,73,73,69,69,69,70,70,73,76,77,76,79,0ãDATA 0,79,76,75,72,69,72,75,67,75,72,69,67,65,68,67,69,69,69,73,76,76,79,0ãDATA 0,79,76,74,69,66,65,67,67,65,65,65,65,65,65,67,67,65,66,69,75,76,79,0ãDATA 0,79,76,72,68,62,63,63,65,67,66,66,66,66,67,65,63,63,62,68,74,76,79,0ãDATA 0,79,76,72,68,62,58,59,62,64,67,69,69,67,64,62,59,58,62,68,72,76,79,0ãDATA 0,79,76,73,65,59,50,56,59,59,62,61,61,62,59,59,56,50,59,65,72,76,79,0ãDATA 65,73,76,72,73,73,75,67,60,65,72,65,65,72,65,60,67,75,73,73,72,76,73,65ãDATA 65,73,14,69,66,66,68,70,72,73,73,69,69,73,73,72,70,68,66,66,69,14,73,65ãDATA 69,73,148,65,72,163,225,224,162,163,165,61,61,165,163,162,224,225,163,72,65,14,8,73,69ãDATA 73,74,70,65,69,66,163,162,163,164,69,62,59,69,164,163,162,163,66,69,65,70,74,73ãDATA 70,74,70,22,61,64,66,69,66,63,61,213,212,61,63,66,69,66,64,61,22,70,74,70ãDATA 69,74,69,62,60,58,60,63,213,55,59,213,212,59,55,213,63,60,58,60,62,69,74,69ãDATA 0,74,70,67,66,64,61,213,53,60,61,212,210,61,60,53,213,61,64,66,67,70,74,0ãDATA 0,74,72,68,67,64,58,57,61,66,68,144,144,68,66,61,57,58,64,67,68,72,74,0ãDATA 0,0,72,65,68,61,55,59,64,75,72,70,70,72,75,64,59,55,61,68,65,72,0,0ãDATA 0,0,74,63,68,59,57,62,62,61,64,67,67,64,61,62,62,57,59,68,63,74,0,0ãDATA 0,0,75,66,67,61,59,62,61,57,54,60,60,54,57,61,62,59,61,67,66,75,0,0ãDATA 0,0,0,70,66,63,61,69,72,165,165,165,165,165,165,72,69,61,63,66,70,0,0,0ãDATA 0,0,0,75,69,65,63,63,63,61,59,213,213,59,61,63,63,63,65,69,75,0,0,0ãDATA 0,0,0,0,73,66,62,60,63,66,69,71,71,69,66,63,60,62,66,73,0,0,0,0ãDATA 0,0,0,0,0,73,66,62,60,63,63,59,59,63,63,60,62,66,73,0,0,0,0,0ãDATA 0,0,0,0,0,0,75,70,65,61,59,54,54,59,61,65,70,75,0,0,0,0,0,0ãDATA 0,0,0,0,0,0,0,79,73,69,67,67,67,67,69,73,79,0,0,0,0,0,0,0ããMatt Hart VIDEO MEMORY SEGMENT VIDEO,MEMORY,SEGMENT 05-18-92 (21:02:00) QB, QBasic 32 961 VIDEOSEG.BAS' JG> Is there a way that I can determine wether to use &HB000 orã' JG> &HB800 when doing stuff with the screen?ãã'A word (2 bytes) at 0000:0463h tells the port address of the CRTã'controller index register. It will be 03B4h for monochrome and 03D4hã'for color, MSB last.ããDEF SEG = 0ãMonType$ = HEX$(PEEK(&H0464))+HEX$(PEEK(&H0463))ãDEF SEGãSELECT CASE MonType$ã CASE "3D4" ' Colorã StartSeg = &HB800ã NumBytes = 80*25*2ã CASE "3B4" ' Monochromeã StartSeg = &HB000ã NumBytes = 80*25*2ãEND SELECTãã' JG> And also, how do I saveã' JG> and load screens with BSAVE and BLOAD? ãã'For any screen, you save the number of bytes of the screen beginning atã'the segment and offset of the screen. For text screens, this is:ã DEF SEG = StartSegã BSAVE "SCR.BIN",0,NumBytesã DEF SEGãã'Bload is the same:ã DEF SEG = StartSegã BLOAD "SCR.BIN",0ã DEF SEGãUnknown Author(s) PCX VIEWER PCX,VIEWER Unknown Date (00:00:00)QB, QBasic 182 4778 PCXVIEW.BAS DECLARE SUB SetPalette (pcxpal$)ãDECLARE SUB SelectScreen ()ãDECLARE SUB ReadPCXLine (PCXFile%, TotalBytes%, ScanLine%())ãDECLARE SUB ReadPCXByte (PCXFile%, value%)ãDECLARE SUB OpenPCXFile (PCXname$, xsize%, ysize%, TotalBytes%, pcxpal$)ãDEFINT A-ZãTYPE PCXHeaderStrucã Manufacxturer AS STRING * 1ã version AS STRING * 1ã Encoding AS STRING * 1ã BitsPerPixel AS STRING * 1ã xmin AS INTEGERã ymin AS INTEGERã xmax AS INTEGERã ymax AS INTEGERã Hres AS INTEGERã Vres AS INTEGERã ColorMap AS STRING * 48ã Reserved1 AS STRING * 1ã NumPlanes AS STRING * 1ã BytesPerLine AS INTEGERã PaletteType AS INTEGERã HScrSize AS INTEGERã VScrSize AS INTEGERã Resreved2 AS STRING * 54ãEND TYPEãDIM SHARED PCXheader AS PCXHeaderStrucãDIM SHARED PCXFileãDIM SHARED ScrMode, ScrMaxX, ScrMaxYãDIM SHARED ScrMaxColor, ScrBitsPerPixelãDIM SHARED byte AS STRING * 1ãDOã SCREEN 0ã WIDTH 80ã LINE INPUT "PCX filename: "; PCXname$ã IF PCXname$ = "" THEN EXIT DOã OpenPCXFile PCXname$, xsize, ysize, TotalBytes, pcxpal$ã SEEK #PCXFile, LEN(PCXheader) + 1ã SelectScreenã SCREEN ScrModeã SetPalette pcxpal$ã REDIM ScanLine(TotalBytes + 1)ã pbits = xsize * ASC(PCXheader.BitsPerPixel)ã sbits = ScrMaxX * ScrBitsPerPixelã IF pbits > sbits THENã ScanLine(0) = sbits + 1ã ELSEã ScanLine(1) = pbitsã END IFã ScanLine(1) = 1ã y = 0ã DOã ReadPCXLine PCXFile, TotalBytes, ScanLine()ã PUT (0, y), ScanLineã y = y + 1ã LOOP WHILE y < ysize OR y < ScrMaxYã CLOSE #PCXPileã BEEPã i$ = INPUT$(1)ãLOOPãENDããSUB OpenPCXFile (PCXname$, xsize, ysize, TotalBytes, pcxpal$)ãPCXFile = FREEFILEãOPEN PCXname$ + ".pcx" FOR BINARY AS #PCXFileãGET #PCXFile, 1, PCXheaderãpcxpal$ = LEFT$(PCXheader.ColorMap + STRING$(768, 0), 768)ãIF ASC(PCXheader.version) = 5 THENã SEEK #PCXFile, LOF(PCXFile) - 768&ã GET #PCXFile, , byteã IF ASC(byte) = 12 THEN GET #PCXFile, , pcxpal$ãEND IFãããxsize = PCXheader.xmax - PCXheader.xmin + 1ãysize = PCXheader.ymax - PCXheader.ymin + 1ãTotalBytes = ASC(PCXheader.NumPlanes) * PCXheader.BytesPerLineãEND SUBããSUB ReadPCXByte (PCXFile, value)ãSTATIC count, CountValue, BufferLOC, Buffer$ããIF count > 0 THENã value = CountValueã count = count - 1ãELSEã IF BufferLOC > LEN(Buffer$) OR LEN(Buffer$) = 0 THENã BufferLEN& = LOF(PCXFile) - LOC(PCXFile)ã IF BufferLEN& > 15000 THENã BufferLEN& = 15000ã END IFã IF BufferLEN& <= 0 OR EOF(PCXFile) THENã EXIT SUBã END IFã Buffer$ = SPACE$(BufferLEN&)ã GET #PCXFile, , Buffer$ã BufferLOC = 1ã END IFã value = ASC(MID$(Buffer$, BufferLOC, 1))ã BufferLOC = BufferLOC + 1ã IF value >= 192 THENã count = value - 193ã IF BufferLOC >= LEN(Buffer$) THENã BufferLEN& = LOF(PCXFile) - LOC(PCXFile)ã IF BufferLEN& > 15000 THENã BufferLEN& = 15000ã END IFã IF BufferLEN& <= 0 OR EOF(PCXFile) THENã EXIT SUBã END IFã Buffer$ = SPACE$(BufferLEN&)ã GET #PCXFile, , Buffer$ã BufferLOC = 1ã END IFã CountValue = ASC(MID$(Buffer$, BufferLOC, 1))ã BufferLOC = BufferLOC + 1ã value = CountValueã END IFãEND IFããEND SUBããSUB ReadPCXLine (PCXFile, TotalBytes, ScanLine())ãzero$ = CHR$(0)ãindex = LBOUND(ScanLine) + 2ãcount = 0ãDOã ReadPCXByte PCXFile, pixelsã ScanLine(index) = pixelsã IF count = TotalBytes THEN EXIT DOã ReadPCXByte PCXFile, pixelsã ScanLine(index) = ScanLine(index) + CVI(zero$ + CHR$(pixels))ã count = count + 2ã index = index + 1ãLOOP WHILE count < TotalBytesãEND SUBããSUB SelectScreenãSELECT CASE ASC(PCXheader.BitsPerPixel)ã CASE 1ã IF ASC(PCXheader.NumPlanes) = 4 THENã ScrMode = 12ã ScrMaxX = 639ã ScrMaxY = 479ã ScrMaxColor = 15ã ScrBitsPerPixel = 1ã ELSEã ScrMode = 11ã ScrMaxX = 639ã ScrMaxY = 479ã ScrMaxColor = 1ã ScrBitsPerPixel = 1ã END IFã CASE 2ã ScrMode = 1ã ScrMaxX = 319ã ScrMaxY = 199ã ScrMaxColor = 3ã ScrBitsPerPixel = 2ã CASE 8ã ScrMode = 13ã ScrMaxX = 319ã ScrMaxY = 199ã ScrMaxColor = 255ã ScrBitsPerPixel = 8ãEND SELECTãEND SUBããSUB SetPalette (pcxpal$)ãversion = ASC(PCXheader.version)ãIF version = 5 AND ScrMode = 13 THENã FOR i = 0 TO ScrMaxColorã r = ASC(MID$(pcxpal$, i * 3 + 1, 1)) \ 4ã g = ASC(MID$(pcxpal$, i * 3 + 2, 1)) \ 4ã b = ASC(MID$(pcxpal$, i * 3 + 3, 1)) \ 4ã PALETTE i, b * 65536 + g * 256 + rã NEXT iãELSEã PALETTEãEND IFãEND SUBããJeff Benson GRAPHICAL SPHERE GRAPHICAL,SPHERE 11-19-91 (08:31:00) QB, QBasic 53 1110 SPHERE.BAS 'Here's a program worth trying, people . . . all you need is QuickBASICã'(of course) and a VGA graphics adaptor. Give it a shot, you mightã'learn something. This program was found on a local BBS.ã ã' Program Creates a moving sphere by shifting the VGA paletteã ãSCREEN 13ãDIM Sphere(700)ãCLSãPAINT (160, 100), 201ãRed = 1ãGreen = 1ãBlue = 1ãRadius = 25ãFOR PaletteRange = 15 TO 40ã Red = PaletteRangeã Green = PaletteRangeã ToColor = 65536 * Blue + 256 * Green + Redã PALETTE PaletteRange, ToColorã CIRCLE (160, 100), Radius, PaletteRangeã PAINT (160, 100), PaletteRangeã IF Radius > 1 THENã Radius = Radius - 1ã END IFãNEXTã ã' Get Sphere, store in array, clear and repaint screenã ãGET (134, 78)-(186, 122), SphereãCLSãPAINT (160, 100), 201ãX = 4ãY = 4ã ã' Move Sphere around screen until a key is pressedã ãWHILE INKEY$ = ""ã IF X > 259 THENã Xadj = -1ã ELSEIF X <= 4 THENã Xadj = 1ã END IFã IF Y >= 148 THENã Yadj = -1ã ELSEIF Y <= 4 THENã Yadj = 1ã END IFã X = X + Xadjã Y = Y + Yadjã PUT (X, Y), Sphere, PSETãWENDãENDããRich Geldreich SHADED 3-D POLYGON SHADE,3D Year of 1992 (00:00:00)QB, PDS 648 21792 SHADE3D.BAS 'Shaded 3-D animation with shadows [solid5.bas] for QB4.5/PDSã'By Rich Geldreich 1992ã'Notes...ã' This version uses some floating point math in the initializationã'code for shading, but after initialization floating point math is notã'used at all.ã' The shading imploys Lambert's Law to determine the intensity ofã'each visible polygon. Three simple lookup tables are calculated atã'initialization time which are used to eliminate multiples andã'divides in the main animation code.ã' The hidden face detection algorithm was made by Dave Cooper.ã'It's fast, and does not require any multiples and divides under mostã'cases. The "standard" way of detecting hidden faces, by finding theã'dot product of the normal of each polygon and the viewing vector,ã'was not just good (or fast) enough for me!ã' The PolyFill routine is the major bottleneck of this program.ã'QB's LINE command isn't as fast as I would like it to be... On myã'286-10, the speed isn't that bad (after all, this is all-QB!). On aã'386 or 486, this thing should fly... [hopefully]ã' The shadows are calculated by projecting a line with the lightã'source's vector through each of the points on the solid. Where thisã'line hits the ground plane(which has a constant Y coordinate) isã'where the new shadow point is plotted.ã' This program is 100% public domain- but of course please giveã'some credit if you use anything from this program. Thanks!ãDEFINT A-ZãDECLARE SUB CullPolygons ()ãDECLARE SUB DrawLine (xs%, ys%, xe%, ye%, EdgeList() AS ANY)ãDECLARE SUB DrawObject ()ãDECLARE SUB DrawShadows ()ãDECLARE SUB EdgeFill (EdgeList() AS ANY, YLow%, YHigh%, C%)ãDECLARE SUB FindNormals ()ãDECLARE SUB PolyFill (x1%, y1%, x2%, y2%, x3%, y3%, C%)ãDECLARE SUB RotatePoints ()ãDECLARE SUB ShadePolygons ()ã ãCONST True = -1, False = 0ã ãTYPE EdgeType 'for fast polygon rasterizationã Low AS INTEGERã High AS INTEGERãEND TYPEãTYPE PointTypeã XObject AS INTEGER 'original cooridinateã YObject AS INTEGERã ZObject AS INTEGER 'rotated coodinatedã XWorld AS INTEGERã YWorld AS INTEGERã ZWorld AS INTEGERã XView AS INTEGER 'rotated & translated coordinateã YView AS INTEGERã XShadow AS INTEGER 'coordinates projected onto the ground planeã YShadow AS INTEGERãEND TYPEãTYPE PolyTypeã P1 AS INTEGER '3 points which make up the polygon(they pointã P2 AS INTEGER ' to the point list array)ã P3 AS INTEGERã Culled AS INTEGER 'True if plane not visibleã ZCenter AS INTEGER 'Z center of polygonã ZOrder AS INTEGER 'Used in the shell sort of the ZCentersã Intensity AS INTEGER 'Intensity of polygonã WorldXN AS INTEGER 'Contains the coordinates of the pointã WorldYN AS INTEGER ' which is both perpendicular and a constantã WorldZN AS INTEGER ' distance from the polygonã NormalX AS INTEGER 'Normal of polygon -128 to 128ã NormalY AS INTEGER ' (used for fast Lambert shading)ã NormalZ AS INTEGERãEND TYPEãTYPE LineTypeã P1 AS INTEGER 'Used for shadow projectionã P2 AS INTEGERãEND TYPEã ãDIM SHARED EdgeList(199) AS EdgeTypeãDIM SHARED SineTable(359 + 90) AS LONG 'cos(x)=sin(x+90)ãDIM SHARED R1, R2, R3, ox, oy, ozãDIM SHARED MaxPoints, MaxPolys, MaxLinesã ãDIM SHARED lines(100) AS LineTypeãDIM SHARED Polys(100) AS PolyTypeãDIM SHARED Points(100) AS PointTypeãDIM SHARED lx(256), ly(256), lz(256) 'lookup tables for Lambert shadingããDIM SHARED s, XLow(1), XHigh(1), YLow(1), YHigh(1)ãDIM SHARED ShadowXLow(1), ShadowXHigh(1), ShadowYLow(1), ShadowYHigh(1)ãDIM SHARED lx, ly, lzã ãPRINT "QuickBASIC/PDS 3-D Solid Animation": PRINT "By Rich Geldreich 1992"ãPRINT : PRINT "Keys: [Turn NUMLOCK on]"ãPRINT "Left.....................Angle 1 -"ããPRINT "Right....................Angle 1 +"ãPRINT "Up.......................Angle 2 -"ãPRINT "Down.....................Angle 2 +"ãPRINT "-........................Angle 3 -"ãPRINT "+........................Angle 3 +"ãPRINT "5........................Rotation Stop"ãPRINT "0........................Rotation Reset"ãPRINT "Up Arrow.................Forward"ãPRINT "Down Arrow...............Backward"ãPRINT "Left Arrow...............Left"ãPRINT "Right Arrow..............Right"ãPRINT : PRINT "Initializing..."ã ãMaxPoints = 4 'Pyramid.ã'Points follow...ãDATA -100,0,100, -100,0,-100, 100,0,-100, 100,0,100, 0,-290,0ãMaxPolys = 5ã'Polygons follow (they must be specified in counterclockwiseã'order for correct hidden face removal and shading)ãDATA 4,0,3, 4,3,2, 4,1,0, 4,2,1, 3,0,1, 3,1,2ãMaxLines = 7ã'Lines follow for shadow computation...ãDATA 4,0, 4,1, 4,2, 4,3, 0,1, 1,2, 2,3, 3,0ã ã'MaxPoints = 7 'Cube.ã'DATA -100,100,100ã'DATA 100,100,100ã'DATA 100,100,-100ã'DATA -100,100,-100ã'DATA -100,-100,100ã'DATA 100,-100,100ã'DATA 100,-100,-100ã'DATA -100,-100,-100ã'MaxPolys = 11ã'DATA 5,4,0, 5,0,1ã'DATA 6,2,3, 3,7,6ã'DATA 6,5,1, 6,1,2ã'DATA 7,0,4, 7,3,0ã'DATA 6,7,4, 6,4,5ã'DATA 0,3,2, 1,0,2ã'MaxLines = 11ã'DATA 0,1, 1,2, 2,3, 3,0ã'DATA 4,5, 5,6, 6,7, 7,4ã'DATA 4,0, 5,1, 6,2, 7,3ã ã'MaxPoints = 15 'Wierd pencil-like shape...ã'DATA 0,0,0, 250,0,0, 400,40,0, 400,60,0, 250,100,0, 0,100,0,-20,90,0, -20,10,0ã'DATA 0,0,-50, 250,0,-50, 400,40,-50, 400,60,-50, 250,100,-50, 0,100,-50, -20,90,-50, -20,10,-50ã'MaxPolys = 27ã'DATA 1,0,7, 1,7,2, 2,7,6, 2,6,3, 3,6,4, 4,6,5ã'DATA 9,15,8, 9,10,15, 10,14,15, 10,11,14, 11,13,14, 11,12,13ã'DATA 8,7,0, 8,15,7, 8,0,1, 9,8,1, 9,1,2, 10,9,2, 10,2,3, 11,10,3ã'DATA 12,11,4, 11,3,4, 4,5,13, 4,13,12ã'DATA 5,6,14, 5,14,13, 14,6,7, 14,7,15ã'MaxLines = 23ã'DATA 0,1, 1,2, 2,3, 3,4, 4,5, 5,6, 6,7, 7,0ã'DATA 8,9, 9,10, 10,11, 11,12, 12,13, 13,14, 14,15, 15,0ã'DATA 0,8, 1,9, 2,10, 3,11, 4,12, 5,13, 6,14, 7,15ã ãFOR a = 0 TO MaxPointsã READ Points(a).XObject, Points(a).YObject, Points(a).ZObjectã X = X + Points(a).XObject: Y = Y + Points(a).YObject: Z = Z + Points(a).ZObjectãNEXTã'Center the objectãX = X \ (MaxPoints + 1): Y = Y \ (MaxPoints + 1): Z = Z \ (MaxPoints + 1)ãFOR a = 0 TO MaxPointsã Points(a).XObject = Points(a).XObject - Xã Points(a).YObject = Points(a).YObject - Yã Points(a).ZObject = Points(a).ZObject - ZãNEXTãFOR a = 0 TO MaxPolysã READ Polys(a).P1, Polys(a).P2, Polys(a).P3ãNEXTãFOR a = 0 TO MaxLinesã READ lines(a).P1, lines(a).P2ãNEXTã ã'Precalculate the normal point of each polygon for fast Lambert shadingããFindNormalsã ã'Precalculate the sine tableãa = 0ããFOR a! = 0 TO (359 + 90) / 57.29 STEP 1 / 57.29ã SineTable(a) = SIN(a!) * 1024: a = a + 1ãNEXTã ã'Some light source configurations won't work that great!ãl1 = 70: l2 = 40 'light source's spherical coordinatesãa1! = l1 / 57.29: a2! = l2 / 57.29ããs1! = SIN(a1!): c1! = COS(a1!)ãs2! = SIN(a2!): c2! = COS(a2!)ãlx = 128 * s1! * c2! 'convert spherical coordinates to a vectorãly = 128 * s1! * s2! 'scale up by 128 for integer mathãlz = 128 * c1!ã ãFOR a = -128 TO 128 'precalculate the three light source tablesã lx(a + 128) = lx * a 'for fast Lambert shadingã ly(a + 128) = ly * aã lz(a + 128) = lz * aãNEXTã ãPRINT "Strike a key...": DO: LOOP WHILE INKEY$ = ""ã ãR1 = 0: R2 = 0: R3 = 0 'three angles of rotationãox = 0: oy = -50: oz = 1100 'object's origin (this program cannot currentlyã 'handle the object when it goes behind theviewer!)ãs = 1: t = 0ã ãSCREEN 7, , 0, 0ãOUT &H3C8, 0 'set 16 shadesãFOR a = 0 TO 15ã OUT &H3C9, (a * 34) \ 10ã OUT &H3C9, (a * 212) \ 100ã OUT &H3C9, (a * 4) \ 10ã IF a = 7 THEN OUT &H3C7, 16: OUT &H3C8, 16ãNEXTãLINE (0, 100)-(319, 199), 9, BFãLINE (0, 0)-(319, 99), 3, BFãSCREEN 7, , 1, 0ãLINE (0, 100)-(319, 199), 9, BFãLINE (0, 0)-(319, 99), 3, BFã ãYHigh(0) = -32768: ShadowYHigh(0) = -32768ãYHigh(1) = -32768: ShadowYHigh(1) = -32768ãDOã 'Flip active and work pages so user doesn't see our messy drawingã SCREEN 7, , s, t: SWAP s, tã ã 'Wait for vertical retrace to reduce flickerã WAIT &H3DA, 8ã ã 'Erase the old image from the screenã IF YHigh(s) <> -32768 THENã IF YHigh(s) < 100 THENã LINE (XLow(s), YLow(s))-(XHigh(s), YHigh(s)), 3, BFã ELSEIF YLow(s) < 100 THENã LINE (XLow(s), YLow(s))-(XHigh(s), 99), 3, BFã LINE (XLow(s), 100)-(XHigh(s), YHigh(s)), 9, BFã ELSEã LINE (XLow(s), YLow(s))-(XHigh(s), YHigh(s)), 9, BFã END IFã END IFã IF ShadowYHigh(s) <> -32768 THENã LINE (ShadowXLow(s), ShadowYLow(s))-(ShadowXHigh(s), ShadowYHigh(s)), 9, BFã END IFã RotatePointsã CullPolygonsã ShadePolygonsã ã XLow(s) = 32767: XHigh(s) = -32768ã YLow(s) = 32767: YHigh(s) = -32768ã DrawShadowsã DrawObjectã ã R1 = (R1 + D1) MOD 360: IF R1 < 0 THEN R1 = R1 + 360ã R2 = (R2 + D2) MOD 360: IF R2 < 0 THEN R2 = R2 + 360ã R3 = (R3 + D3) MOD 360: IF R3 < 0 THEN R3 = R3 + 360ã oz = oz + dz: ox = ox + dxã IF oz < 600 THENã oz = 600: dz = 0ã ELSEIF oz > 8000 THENã oz = 8000: dz = 0ã END IFã IF ox < -4000 THENã ox = -4000: dx = 0ã ELSEIF ox > 4000 THENã ox = 4000: dx = 0ã END IFã a$ = INKEY$ã SELECT CASE a$ã CASE "4"ã D1 = D1 - 2ã CASE "6"ã D1 = D1 + 2ã CASE "8"ã D2 = D2 - 2ã CASE "2"ã D2 = D2 + 2ã CASE "5"ãã D1 = 0: D2 = 0: D3 = 0ã CASE "0"ã R1 = 0: R2 = 0: R3 = 0ã D1 = 0: D2 = 0: D3 = 0ã CASE "+"ã D3 = D3 + 2ã CASE "-"ã D3 = D3 - 2ã CASE CHR$(27)ã ENDã CASE CHR$(0) + CHR$(72)ã dz = dz - 20ã CASE CHR$(0) + CHR$(80)ã dz = dz + 20ã CASE CHR$(0) + CHR$(77)ã dx = dx - 20ã CASE CHR$(0) + CHR$(75)ã dx = dx + 20ã END SELECTãLOOPã ã'Shades the polygons using Lambert shading. Notice the total lack ofã'floating point math- only 1 divide is required for each polygon shaded.ã'(This divide can be eliminated, but the shading won't be as accurate.)ãã'"Culls" the polygons which aren't visible to the viewer. Also shadesã'each polygon using Lambert's law.ãSUB CullPolygonsã 'This algorithm for removing hidden faces was developed by Dave Cooper.ã 'There is another method, by finding the dot product of theã 'plane's normal and the viewing vector, but this algorithm isã 'much faster because of its simplicity(and lack of floating pointã 'calculations).ã FOR a = 0 TO MaxPolysã P1 = Polys(a).P1ã P2 = Polys(a).P2ã P3 = Polys(a).P3ã ã IF Points(P1).YView <= Points(P2).YView THENã IF Points(P3).YView < Points(P1).YView THENã PTop = P3ã PNext = P1ã PLast = P2ã ELSEã PTop = P1ã PNext = P2ã PLast = P3ã END IFã ELSEã IF Points(P3).YView < Points(P2).YView THENã PTop = P3ã PNext = P1ã PLast = P2ã ELSEã PTop = P2ã PNext = P3ã PLast = P1ã END IFã END IFã ã XLow = Points(PTop).XViewã YLow = Points(PTop).YViewã ã XNext = Points(PNext).XViewã XLast = Points(PLast).XViewã ã IF XNext <= XLow AND XLast >= XLow THENã Polys(a).Culled = Trueã ELSEIF XNext >= XLow AND XLast <= XLow THENã Polys(a).Culled = Falseã ELSEã YNext = Points(PNext).YViewã YLast = Points(PLast).YViewã IF ((YNext - YLow) * 256&) \ (XNext - XLow) < ((YLast - YLow) * 256&) \ (XLast - XLow) THENã Polys(a).Culled = Falseã ELSEã Polys(a).Culled = Trueã END IFã END IFã ã NEXTãEND SUBãã'Enters a line into the edge list. For each scan line, the line'sã'X coordinate is found. Notice the lack of floating point math in thisã'subroutine.ãSUB DrawLine (xs, ys, xe, ye, EdgeList() AS EdgeType)ã ã IF ys > ye THEN SWAP xs, xe: SWAP ys, yeã ã IF ye < 0 OR ys > 199 THEN EXIT SUBãã IF ys < 0 THENã xs = xs + ((xe - xs) * -ys) \ (ye - ys)ã ys = 0ãã END IFã ã xd = xe - xsã yd = ye - ysã ã IF yd <> 0 THEN xi = xd \ yd: xrs = ABS(xd MOD yd)ã ã xr = -yd \ 2ã ã IF ye > 199 THEN ye = 199ã ã xdirect = SGN(xd) + xiã ã FOR Y = ys TO yeã IF xs < EdgeList(Y).Low THEN EdgeList(Y).Low = xsã IF xs > EdgeList(Y).High THEN EdgeList(Y).High = xsã ã xr = xr + xrsã IF xr > 0 THENã xr = xr - ydã xs = xs + xdirectã ELSEã xs = xs + xiã END IFã NEXTã ãEND SUBããSUB DrawObjectã ã 'Find the center of each visible polygon, and prepare the order list.ã NumPolys = 0ã FOR a = 0 TO MaxPolysã IF Polys(a).Culled = False THEN 'is this polygon visible?ã Polys(NumPolys).ZOrder = aã NumPolys = NumPolys + 1ã Polys(a).ZCenter = Points(Polys(a).P1).ZWorld + Points(Polys(a).P2).ZWorld + Points(Polys(a).P3).ZWorldã END IFã NEXTã 'Sort the visible polygons by their Z center using a shell sort.ã NumPolys = NumPolys - 1ã Mid = (NumPolys + 1) \ 2ã DOã FOR a = 0 TO NumPolys - Midã CompareLow = aã CompareHigh = a + Midã DO WHILE Polys(Polys(CompareLow).ZOrder).ZCenter < Polys(Polys(CompareHigh).ZOrder).ZCenterã SWAP Polys(CompareLow).ZOrder, Polys(CompareHigh).ZOrderã CompareHigh = CompareLowã CompareLow = CompareLow - Midã IF CompareLow < 0 THEN EXIT DOã LOOPã NEXTã Mid = Mid \ 2ã LOOP WHILE Mid > 0ã 'Plot the visible polygons.ã FOR Z = 0 TO NumPolysã a = Polys(Z).ZOrder 'which polygon do we plot?ã P1 = Polys(a).P1: P2 = Polys(a).P2: P3 = Polys(a).P3ã PolyFill (Points(P1).XView), (Points(P1).YView), (Points(P2).XView), (Points(P2).YView), (Points(P3).XView), (Points(P3).YView), (Polys(a).Intensity)ã NEXTãEND SUBããSUB DrawShadowsã YLow = 32767: YHigh = -32768ã XLow = 32767: XHigh = -32768ã FOR a = 0 TO MaxPointsã 'Project the 3-D point onto the ground plane...ã temp& = (Points(a).YWorld - 200)ã X = Points(a).XWorld - (temp& * lx) \ lyã Y = 200 'ground plane has a constant Y coordinateã Z = Points(a).ZWorld - (temp& * lz) \ lyã 'Put the point into perspectiveã xTemp = 160 + (X * 400&) \ Zã yTemp = 100 + (Y * 300&) \ Zã ã Points(a).XShadow = xTempã Points(a).YShadow = yTempã ã 'Find the lowest & highest X Y coordinatesã IF yTemp < YLow THEN YLow = yTempãã IF yTemp > YHigh THEN YHigh = yTempã IF xTemp < XLow THEN XLow = xTempã IF xTemp > XHigh THEN XHigh = xTempã NEXTã ã 'Store lowest & highest coordinates for later erasing...ã ShadowXLow(s) = XLow: ShadowYLow(s) = YLowãã ShadowXHigh(s) = XHigh: ShadowYHigh(s) = YHighã IF XHigh < 0 OR XLow > 319 OR YLow > 199 OR YHigh < 0 THEN EXIT SUBã IF YHigh > 199 THEN YHigh = 199ã IF YLow < 0 THEN YLow = 0ã ã 'Initialize the edge listã FOR a = YLow TO YHighã EdgeList(a).Low = 32767ã EdgeList(a).High = -32768ã NEXTã ã 'Enter the lines into the edge listã FOR a = 0 TO MaxLinesã P1 = lines(a).P1ã P2 = lines(a).P2ã DrawLine (Points(P1).XShadow), (Points(P1).YShadow), (Points(P2).XShadow), (Points(P2).YShadow), EdgeList()ã 'LINE ((Points(P1).XShadow),(Points(P1).YShadow))-((Points(P2).XShadow), (Points(P2).YShadow)), 0ã NEXTã ã 'Fill the polygonã EdgeFill EdgeList(), YLow, YHigh, 3ã ãEND SUBããSUB EdgeFill (EdgeList() AS EdgeType, YLow, YHigh, C)ã FOR a = YLow TO YHighã LINE (EdgeList(a).Low, a)-(EdgeList(a).High, a), Cã NEXTãEND SUBãã'This routine initializes the data required by the fast Lambert shadingã'algorithm. It calculates the point which is both perpendicularã'and a constant distance from each polygon and stores it. This pointã'is then rotated with the rest of the points. When it comes time forã'shading, the normal to the polygon is looked up in a simple lookupã'table for maximum speed.ãSUB FindNormalsã FOR a = 0 TO MaxPolysã P1 = Polys(a).P1: P2 = Polys(a).P2: P3 = Polys(a).P3ã ã 'find the vectors of 2 lines inside the polygonã ax! = Points(P2).XObject - Points(P1).XObjectã ay! = Points(P2).YObject - Points(P1).YObjectã az! = Points(P2).ZObject - Points(P1).ZObjectã ã bx! = Points(P3).XObject - Points(P2).XObjectã by! = Points(P3).YObject - Points(P2).YObjectã bz! = Points(P3).ZObject - Points(P2).ZObjectã ã 'find the cross product of the 2 vectorsã nx! = ay! * bz! - az! * by!ã ny! = az! * bx! - ax! * bz!ã nz! = ax! * by! - ay! * bx!ã ã 'normalize the vector so it ranges from -1 to 1ã M! = SQR(nx! * nx! + ny! * ny! + nz! * nz!)ã IF M! <> 0 THEN nx! = nx! / M!: ny! = ny! / M!: nz! = nz! / M!ã 'store the vector for later rotation(notice that it is scaledã 'up by 128 so it can be stored as an integer variable)ã Polys(a).WorldXN = nx! * 128 + Points(P1).XObjectã Polys(a).WorldYN = ny! * 128 + Points(P1).YObjectã Polys(a).WorldZN = nz! * 128 + Points(P1).ZObjectã NEXTãEND SUBãã'Draws a polygon to the screen. Simply finds the start and stop Xã'coordinates for each scan line within the polygon and uses theã'LINE command for filling.ãSUB PolyFill (x1, y1, x2, y2, x3, y3, C) 'for QB 4.5 guysã ã 'find lowest and high X & Y coordinatesã IF y1 < y2 THEN YLow = y1 ELSE YLow = y2ã IF y3 < YLow THEN YLow = y3ã IF y1 > y2 THEN YHigh = y1 ELSE YHigh = y2ã IF y3 > YHigh THEN YHigh = y3ã ã IF x1 < x2 THEN XLow = x1 ELSE XLow = x2ã IF x3 < XLow THEN XLow = x3ã IF x1 > x2 THEN XHigh = x1 ELSE XHigh = x2ã IF x3 > XHigh THEN XHigh = x3ã ã IF YLow < 0 THEN YLow = 0ã IF YHigh > 199 THEN YHigh = 199ã ã IF XLow < XLow(s) THEN XLow(s) = XLowã IF XHigh > XHigh(s) THEN XHigh(s) = XHighã ã IF YLow < YLow(s) THEN YLow(s) = YLowã IF YHigh > YHigh(s) THEN YHigh(s) = YHighã ãã 'check for polygons which cannot be visibleã IF YHigh < 0 OR YLow > 199 OR XLow > 319 OR XHigh < 0 THEN EXIT SUBã ã 'initialize the edge listã FOR a = YLow TO YHighã EdgeList(a).Low = 32767ã EdgeList(a).High = -32768ã NEXTã ã 'Remember the lowest & highest X and Y coordinates drawn to theã 'screen for later erasingã ã 'Find the start and stop X coodinates for each scan lineã DrawLine (x1), (y1), (x2), (y2), EdgeList()ã DrawLine (x2), (y2), (x3), (y3), EdgeList()ã DrawLine (x3), (y3), (x1), (y1), EdgeList()ã EdgeFill EdgeList(), YLow, YHigh, Cã ãEND SUBãã'Rotates the points of the object and the object's normals.ã'Avoids floating point math for speed.ãSUB RotatePointsã ã 'lookup the sine and cosine of each angle...ã s1& = SineTable(R1): c1& = SineTable(R1 + 90)ã s2& = SineTable(R2): c2& = SineTable(R2 + 90)ã s3& = SineTable(R3): c3& = SineTable(R3 + 90)ã ã 'rotate the points of the objectã FOR a = 0 TO MaxPointsã xo = Points(a).XObjectã yo = Points(a).YObjectã zo = Points(a).ZObjectã GOSUB Rotate3Dã ã Points(a).XView = 160 + (x2 * 400&) \ z3ã Points(a).YView = 100 + (y3 * 300&) \ z3ã 'IF y3 > 300 THEN STOPã ã Points(a).XWorld = x2ã Points(a).YWorld = y3ã Points(a).ZWorld = z3ã NEXTã 'rotate the normals of each polygon...ã FOR a = 0 TO MaxPolysã xo = Polys(a).WorldXNã yo = Polys(a).WorldYNã zo = Polys(a).WorldZNã GOSUB Rotate3Dã P1 = Polys(a).P1ã 'unorigin the pointã x2 = x2 - Points(P1).XWorldã y3 = y3 - Points(P1).YWorldã z3 = z3 - Points(P1).ZWorldã 'check the bounds just in case of a round off errorã IF x2 < -128 THEN x2 = -128 ELSE IF x2 > 128 THEN x2 = 128ã IF y3 < -128 THEN y3 = -128 ELSE IF y3 > 128 THEN y3 = 128ã IF z3 < -128 THEN z3 = -128 ELSE IF z3 > 128 THEN z3 = 128ã 'store the normal back; it's now ready for the shadingã 'calculations (which are simplistic now)ã Polys(a).NormalX = x2 + 128ã Polys(a).NormalY = y3 + 128ã Polys(a).NormalZ = z3 + 128ã NEXTã EXIT SUBã ãRotate3D:ã x1 = (xo * c1& - zo * s1&) \ 1024 'yawã z1 = (xo * s1& + zo * c1&) \ 1024ã ã z3 = (z1 * c3& - yo * s3&) \ 1024 + oz 'pitchã y2 = (z1 * s3& + yo * c3&) \ 1024ã ã x2 = (x1 * c2& + y2 * s2&) \ 1024 + ox 'rollã y3 = (y2 * c2& - x1 * s2&) \ 1024 + oyã ãRETURNãEND SUBããSUB ShadePolygonsã FOR a = 0 TO MaxPolysã IF Polys(a).Culled = False THENãã 'lookup the polygon's normal for shadingã '(128*128)\15 = 1092ã Intensity = (lx(Polys(a).NormalX) + ly(Polys(a).NormalY) + lz(Polys(a).NormalZ)) \ 1092ã IF Intensity < 0 THEN Intensity = 0ã Intensity = Intensity + 5ã IF Intensity > 15 THEN Intensity = 15ãã Polys(a).Intensity = Intensityã END IFã NEXTãEND SUBããRich Geldreich DRAWING ELLIPSES DRAW,ELLIPSES Year of 1993 (00:00:00)QB, QBasic, PDS 94 2632 DRAWELIP.BAS'Callable all-integer ellipse routine.ã'By Rich Geldreich July 1993ãDEFINT A-ZãDECLARE SUB DrawEllipse (ox%, oy%, prx%, pry%, co%)ããSCREEN 13 'the DrawEllipse routine is screen mode independentãrx = 51: ry = 51ãDO 'test for DrawEllipseã DrawEllipse 160, 100, rx, ry, 14ã DO: A$ = INKEY$: LOOP UNTIL A$ <> ""ã DrawEllipse 160, 100, rx, ry, 0ã IF LEN(A$) = 2 THENã A = -ASC(RIGHT$(A$, 1))ã ELSEã A = ASC(A$)ã END IFã SELECT CASE Aã CASE -72ã ry = ry - 3: IF ry < 0 THEN ry = 90ã CASE -80ã ry = ry + 3: IF ry > 90 THEN ry = 0ã CASE -75ã rx = rx - 3: IF rx < 0 THEN rx = 150ã CASE -77ã rx = rx + 3: IF rx > 150 THEN rx = 0ã CASE 27ã ENDã END SELECTãLOOPãã'Calling parameters:ã'ox, oy = originã'prx = X radiusã'pry = Y radiusã'co = colorãSUB DrawEllipse (ox, oy, prx, pry, co)ã DIM xe AS LONG, ye AS LONG, e AS LONGã IF pry = 0 THEN 'special cases for horizontal & vertical ellipsesã LINE (ox - prx, oy)-(ox + prx, oy), coã EXIT SUBã END IFã IF prx = 0 THENã LINE (ox, oy - pry)-(ox, oy + pry), coã EXIT SUBã END IFã 'work with largest axis to avoid rounding errorsã IF pry <= prx THENã x = 0: y = pryã xe = 0: ye = CLNG(prx) * prxã e = -ye \ 2: c = ye \ pryã DOã IF e <= 0 THENã DOã PSET (ox + x, oy + y), co: PSET (ox - x, oy + y), coã PSET (ox + x, oy - y), co: PSET (ox - x, oy - y), coã x = x + 1ã xe = xe + pryã e = e + xeã LOOP WHILE e <= 0ã ELSEã PSET (ox + x, oy + y), co: PSET (ox - x, oy + y), coã PSET (ox + x, oy - y), co: PSET (ox - x, oy - y), coã END IFã y = y - 1ã ye = ye - cã e = e - yeã LOOP UNTIL y = 0ã PSET (ox + x, oy), co: PSET (ox - x, oy), coã PSET (ox + x, oy), co: PSET (ox - x, oy), coã ELSEã x = 0: y = prxã xe = 0: ye = CLNG(pry) * pryã e = -ye \ 2: c = ye \ prxã DOã IF e <= 0 THENã DOã PSET (ox + y, oy + x), co: PSET (ox - y, oy + x), coã PSET (ox + y, oy - x), co: PSET (ox - y, oy - x), coã x = x + 1ã xe = xe + prxã e = e + xeã LOOP WHILE e <= 0ã ELSEã PSET (ox + y, oy + x), co: PSET (ox - y, oy + x), coã PSET (ox + y, oy - x), co: PSET (ox - y, oy - x), coã END IFã y = y - 1ã ye = ye - cã e = e - yeã LOOP UNTIL y = 0ã PSET (ox, oy + x), co: PSET (ox, oy + x), coã PSET (ox, oy - x), co: PSET (ox, oy - x), coã END IFãEND SUBãRich Geldreich GIF VIEWER GIF,VIEWER Unknown Date (00:00:00)QB, QBasic, PDS 140 4906 GIFVIEW.BAS DEFINT A-ZãDIM Prefix(4095), Suffix(4095), OutStack(4095), ShiftOut(8)ã ã'The following line is for the QB environment(slow).ãDIM Ybase AS LONG, Powersof2(11) AS LONG, WorkCode AS LONGã'For more speed, unremark the next line and remark the one above,ã'before you compile... (Change back when inside the environment.)ã'DIM Ybase AS INTEGER, Powersof2(11) AS INTEGER, WorkCode AS INTEGERã ãFOR A = 0 TO 7: ShiftOut(8 - A) = 2 ^ A: NEXTãFOR A = 0 TO 11: Powersof2(A) = 2 ^ A: NEXTãA$ = COMMAND$: IF A$ = "" THEN INPUT "GIF file"; A$: IF A$ = "" THEN ENDãIF INSTR(A$, ".") = 0 THEN A$ = A$ + ".gif"ãOPEN A$ FOR BINARY AS #1ãA$ = " ": GET #1, , A$ãIF A$ <> "GIF87a" THEN PRINT "Not a GIF87a file.": ENDãGET #1, , TotalX: GET #1, , TotalY: GOSUB GetByteãNumColors = 2 ^ ((A AND 7) + 1): NoPalette = (A AND 128) = 0ãGOSUB GetByte: Background = AãGOSUB GetByte: IF A <> 0 THEN PRINT "Bad screen descriptor.": ENDãIF NoPalette = 0 THEN P$ = SPACE$(NumColors * 3): GET #1, , P$ãDOã GOSUB GetByteã IF A = 44 THENã EXIT DOã ELSEIF A <> 33 THENã PRINT "Unknown extension type.": ENDã END IFã GOSUB GetByteã DO: GOSUB GetByte: A$ = SPACE$(A): GET #1, , A$: LOOP UNTIL A = 0ãLOOPãGET #1, , XStart: GET #1, , YStart: GET #1, , XLength: GET #1, , YLengthãXEnd = XStart + XLength: YEnd = YStart + YLength: GOSUB GetByteãIF A AND 128 THEN PRINT "Can't handle local colormaps.": ENDãInterlaced = A AND 64: PassNumber = 0: PassStep = 8ãGOSUB GetByteãClearCode = 2 ^ AãEOSCode = ClearCode + 1ãFirstCode = ClearCode + 2: NextCode = FirstCodeãStartCodeSize = A + 1: CodeSize = StartCodeSizeãStartMaxCode = 2 ^ (A + 1) - 1: MaxCode = StartMaxCodeã ãBitsIn = 0: BlockSize = 0: BlockPointer = 1ãX = XStart: Y = YStart: Ybase = Y * 320&ã ãSCREEN 13: DEF SEG = &HA000ãIF NoPalette = 0 THENã OUT &H3C7, 0: OUT &H3C8, 0ã FOR A = 1 TO NumColors * 3: OUT &H3C9, ASC(MID$(P$, A, 1)) \ 4: NEXTãEND IFãLINE (0, 0)-(319, 199), Background, BFãDOã GOSUB GetCodeã IF Code <> EOSCode THENã IF Code = ClearCode THENã NextCode = FirstCodeã CodeSize = StartCodeSizeã MaxCode = StartMaxCodeã GOSUB GetCodeã CurCode = Code: LastCode = Code: LastPixel = Codeã IF X < 320 THEN POKE X + Ybase, LastPixelã X = X + 1: IF X = XEnd THEN GOSUB NextScanLineã ELSEã CurCode = Code: StackPointer = 0ã IF Code > NextCode THEN EXIT DO 'bad GIF if this happensã IF Code = NextCode THENã CurCode = LastCodeã OutStack(StackPointer) = LastPixelã StackPointer = StackPointer + 1ã END IFã ã DO WHILE CurCode >= FirstCodeã OutStack(StackPointer) = Suffix(CurCode)ã StackPointer = StackPointer + 1ã CurCode = Prefix(CurCode)ã LOOPã ã LastPixel = CurCodeã IF X < 320 THEN POKE X + Ybase, LastPixelã X = X + 1: IF X = XEnd THEN GOSUB NextScanLineã ã FOR A = StackPointer - 1 TO 0 STEP -1ã IF X < 320 THEN POKE X + Ybase, OutStack(A)ã X = X + 1: IF X = XEnd THEN GOSUB NextScanLineã NEXTã ã IF NextCode < 4096 THENã Prefix(NextCode) = LastCodeã Suffix(NextCode) = LastPixelã NextCode = NextCode + 1ã IF NextCode > MaxCode AND CodeSize < 12 THENã CodeSize = CodeSize + 1ã MaxCode = MaxCode * 2 + 1ã END IFã END IFã LastCode = Codeã END IFã END IFãLOOP UNTIL DoneFlag OR Code = EOSCodeãA$ = INPUT$(1)ãENDã ãGetByte: A$ = " ": GET #1, , A$: A = ASC(A$): RETURNã ãNextScanLine:ã IF Interlaced THENã Y = Y + PassStepã IF Y >= YEnd THENã PassNumber = PassNumber + 1ã SELECT CASE PassNumberã CASE 1: Y = 4: PassStep = 8ã CASE 2: Y = 2: PassStep = 4ã CASE 3: Y = 1: PassStep = 2ã END SELECTã END IFã ELSEã Y = Y + 1ã END IFã X = XStart: Ybase = Y * 320&: DoneFlag = Y > 199ãRETURNãGetCode:ã IF BitsIn = 0 THEN GOSUB ReadBufferedByte: LastChar = A: BitsIn = 8ã WorkCode = LastChar \ ShiftOut(BitsIn)ã DO WHILE CodeSize > BitsInã GOSUB ReadBufferedByte: LastChar = Aã WorkCode = WorkCode OR LastChar * Powersof2(BitsIn)ã BitsIn = BitsIn + 8ã LOOPã BitsIn = BitsIn - CodeSizeã Code = WorkCode AND MaxCodeãRETURNãReadBufferedByte:ã IF BlockPointer > BlockSize THENã GOSUB GetByte: BlockSize = Aã A$ = SPACE$(BlockSize): GET #1, , A$ã BlockPointer = 1ã END IFã A = ASC(MID$(A$, BlockPointer, 1)): BlockPointer = BlockPointer + 1ãRETURNããEli Bennett OUT COMMAND OUT,COMMAND 08-15-95 (20:34:00) QB, QBasic, PDS 51 1909 OUTRGB.BAS 'Date: 08-15-95 (20:34) Number: 583ã'From: ELI BENNETT Refer#: NONEã' To: MICHELLE QUINN Recvd: NOãã'On (11 Aug 95) Michelle Quinn wrote to Olivier Dagenais...ãã' MQ> DOES ANYONE KNOW HOW to use mode 13 vga Palette commands to get colorsã' MQ> OTHERã' MQ> than shades of red. I know how to use the palette command, and how to useã' MQ> QuickBasic, but i cannot for the life of me figure out how to get somethingã' MQ> other than 0-63 shades of red!ãã' EEEEEWwww... Never ever use that ugly disgusting palette command...ã' use the OUT command..ãã' The vga card has three unique ports for what you wantããã' &h3c7 in basic or in asm 03c7H (READ from color)ã' &h3c8 (WRITE to color)ã' &h3c9 (RGB to read or set)ãã' here is how this works......ã' lets say you want to change color 0 or black into the brightestã' blue possible but you want to save the origenal rgb valuesã' just do thisã'----------------------cut-----------------ã DEFINT A-Zã SCREEN 13ã 'get origonal rgb valuesã OUT &H3C7, 0 'read first colors rgb valuesã Ored = INP(&H3C9) 'REDã Og = INP(&H3C9) 'GREENã Ob = INP(&H3C9) 'BLUEã 'the first time you read or write you are reading or writing toã 'the red register, and then the green one and so on then it loopsã '(if you read again) back to the top or to REDã OUT &H3C8, 0 '(write to the first color)ã OUT &H3C9, 0ã OUT &H3C9, 0ã OUT &H3C9, 63 'highest blue possibleã PSET (0, 0), 0ã SLEEPã 'restore old rgb vals.ã OUT &H3C8, 0ã OUT &H3C9, Oredã OUT &H3C9, Ogã OUT &H3C9, Obã SCREEN 0, 0, 0, 0ã ENDããThe ABC Programmer STAR/CREDIT SCROLLER STAR,CREDIT,SCROLLER 08/02/95 (00:00:00) QB, QBasic, PDS 105 3142 STARS.BAS '==============================================================ã' Star/Credit Scroller by William Yu 1995ã' Simple use of page flipping to create a star trek effectã'==============================================================ãDEFINT A-ZãDECLARE SUB ReGenerate (X)ãDECLARE SUB CenterPrint (Y, MSG$)ãDECLARE SUB ChangeMessage (Message)ãSCREEN 7, 0, 0, 0ããDIM SHARED Stars(100) AS INTEGERãDIM SHARED StarColor(100) AS INTEGERãDIM SHARED MSG$ããX = 0ãDOã X = X + 1ã RANDOMIZE TIMERã I = INT(RND * 320) + 1ã C = INT(RND * 3) + 1ã IF C = 1 THEN C = 7ã IF C = 2 THEN C = 8ã IF C = 3 THEN C = 15ã Stars(X) = Iã StarColor(X) = CãLOOP UNTIL X = 100ããLINE (0, 45)-(320, 50), 8, BFãLINE (0, 46)-(320, 49), 7, BFãLINE (0, 47)-(320, 48), 15, BFãLINE (0, 156)-(320, 151), 8, BFãLINE (0, 155)-(320, 152), 7, BFãLINE (0, 154)-(320, 153), 15, BFãCIRCLE (160, 100), 10, 10ãPAINT (160, 100), 14, 10ãXCor = 160: Ycor = 100ãY = 19ãMessage = 1ãChangeMessage MessageããDOã V$ = INKEY$ã IF V$ = CHR$(0) + "P" THEN Ycor = Ycor + 2ã IF V$ = CHR$(0) + "H" THEN Ycor = Ycor - 2ã IF V$ = CHR$(0) + "M" THEN XCor = XCor + 3ã IF V$ = CHR$(0) + "K" THEN XCor = XCor - 3ã IF Ycor > 140 THEN Ycor = 140 ' Disable this for UnderLapã IF Ycor < 60 THEN Ycor = 60 ' Disable this for OverLapã FOR X = 1 TO 100ã PSET (Stars(X), X + 50), StarColor(X)ã NEXTã PCOPY 0, 1 ' Copies Page 0 to Page 1ã SCREEN 7, 0, 1, 0 ' Write to Page 1 (Hidden)ã LINE (0, 45)-(320, 156), 0, BF ' Use CLS for Over/UnderLapã FOR X = 1 TO 100ã Stars(X) = Stars(X) - 1ã IF Stars(X) <= 0 THEN ReGenerate Xã NEXT Xã COLOR 11: CenterPrint Y, MSG$ã LINE (0, 45)-(320, 50), 8, BF ' This is an overlapã LINE (0, 46)-(320, 49), 7, BFã LINE (0, 47)-(320, 48), 15, BFã CIRCLE (XCor, Ycor), 10, 10 ' Move the Circle aroundã PAINT (XCor, Ycor), 14, 10ã LINE (0, 156)-(320, 151), 8, BF ' This is an underlapã LINE (0, 155)-(320, 152), 7, BFã LINE (0, 154)-(320, 153), 15, BFã PCOPY 1, 0 ' Copy Page 1 (Hidden) to Page 0ã SCREEN 7, 0, 0, 0 ' Switch back to visual pageã Y = Y - 1ã IF Y = 7 THEN Y = 19: Message = Message + 1: ChangeMessage MessageãLOOP UNTIL V$ = CHR$(27)ããSUB CenterPrint (Y, MSG$)ã ã Row! = 20 - (LEN((MSG$)) / 2) + .5ã LOCATE Y, Row!: PRINT MSG$ããEND SUBããSUB ChangeMessage (Message)ããIF Message = 7 THEN Message = 1ã IF Message = 1 THEN MSG$ = "Credit Star Scroller By William Yu"ã IF Message = 2 THEN MSG$ = "This Is A Cheap Page Flipping Technique"ã IF Message = 3 THEN MSG$ = "You Can Slow This Down By Adding Delays"ã IF Message = 4 THEN MSG$ = "Modify This Code As You Wish"ã IF Message = 5 THEN MSG$ = "USE Arrow Keys To Move The Circle"ã IF Message = 6 THEN MSG$ = "Enjoy This Demo, L8r!"ããEND SUBããSUB ReGenerate (X)ãã RANDOMIZE TIMERã I = INT((350 - 320 + 1) * RND + 320)ã C = INT(RND * 3) + 1ã IF C = 1 THEN C = 7ã IF C = 2 THEN C = 8ã IF C = 3 THEN C = 15ã Stars(X) = Iã StarColor(X) = CããEND SUBããUnknown Author(s) SIDE WRITE FONTS SIDE,WRITE,FONTS Unknown Date (00:00:00)QB, QBasic, PDS 74 3665 SIDEWRIT.BASDEFINT A-ZãDECLARE SUB SideWrite (Mot$, PosX, PosY, Couleur, Opt) 'this is for QB4 onlyããSCREEN 1 '320 x 200 x 4 graphicsãDIM Temp(13) 'holds upper left cornerãGET (0, 0)-(8, 7), Temp 'save upper left cornerãã'SCREEN 9 '640 x 350 x 16 graphicsã'DIM Temp(57)ã'GET (0, 0)-(8, 13), TempããCALL SideWrite("Side Writing", 0, 120, 1, 1) '90ø upãCALL SideWrite("Italic Side Writing", 20, 160, 2, 2) '90ø italicãCALL SideWrite("Vertical Writing", 40, 10, 3, 3) '0ø downãCALL SideWrite("Side Writing", 55, 10, 1, 4) '270ø downãCALL SideWrite("Italic Side Writing", 73, 10, 2, 5) '270ø down italicãCALL SideWrite("Big Side Writing", 90, 190, 3, 6) 'big 90ø upãCALL SideWrite("Big Italic Side Writing", 115, 190, 1, 7) 'big 90ø up italicãCALL SideWrite("Big Vertical Writing", 145, 10, 2, 8) 'big 0ø downãCALL SideWrite("Normal", 10, 0, 3, 9) '0øãCALL SideWrite("Normal Italic", 70, 0, 1, 10) '0ø right italicãCALL SideWrite("Big ", 180, 0, 2, 11) 'big 0ø rightãCALL SideWrite("Big Italic", 220, 0, 3, 12) 'big 0ø right italicãCALL SideWrite("All This DEMO", 180, 50, 1, 10)ãCALL SideWrite("was done", 195, 60, 2, 9)ãCALL SideWrite("--> with <--", 180, 76, 3, 11)ãCALL SideWrite("SideWrit.Bas!!", 180, 100, 1, 12)ãCALL SideWrite("______________", 180, 102, 1, 12)ããPUT (0, 0), Temp, PSET 'restore upper left cornerããSUB SideWrite (Mot$, PosX, PosY, Couleur, Opt) STATICãFOR Nombre = 1 TO LEN(Mot$)ã LOCATE 1, 1ã PRINT MID$(Mot$, Nombre, 1) 'print word's letters one by oneã FOR X = 0 TO 7ã FOR Y = 0 TO 7 'use 0 TO 13 for EGAã IF POINT(X, Y) THEN 'read pixel on/off for sideways copyã IF Opt = 1 THENã PSET (Y + PosX, 8 - X + PosY - (8 * Nombre)), Couleurã ELSEIF Opt = 2 THENã PSET (Y + PosX, 8 - X + PosY - (8 * Nombre) + Y), Couleurã ELSEIF Opt = 3 THENã PSET (X + PosX, PosY + (8 * Nombre) + Y), Couleurã ELSEIF Opt = 4 THENã PSET (8 - Y + PosX, PosY + (8 * Nombre) + X), Couleurã ELSEIF Opt = 5 THENã PSET (8 - Y + PosX, PosY + (8 * Nombre) + X - Y), Couleurã ELSEIF Opt = 6 THENã PSET (Y + PosX + Y, 8 - X + PosY - (8 * Nombre)), Couleurã PSET (1 + Y + PosX + Y, 8 - X + PosY - (8 * Nombre)), Couleurã ELSEIF Opt = 7 THENã PSET (Y + PosX + Y, 8 - X + PosY - (8 * Nombre) + Y), Couleurã PSET (1 + Y + PosX + Y, 8 - X + PosY - (8 * Nombre) + Y), Couleurã ELSEIF Opt = 8 THENã PSET (X + PosX + X, PosY + (8 * Nombre) + Y), Couleurã PSET (1 + X + PosX + X, PosY + (8 * Nombre) + Y), Couleurã ELSEIF Opt = 9 THENã PSET (X + PosX + (Nombre * 8), PosY + Y), Couleurã ELSEIF Opt = 10 THENã PSET (X + PosX + (Nombre * 8) - Y, PosY + Y), Couleurã ELSEIF Opt = 11 THENã PSET (X + PosX + (Nombre * 8), PosY + Y + Y), Couleurã PSET (X + PosX + (Nombre * 8), 1 + PosY + Y + Y), Couleurã ELSEIF Opt = 12 THENã PSET (X + PosX + (Nombre * 8) - Y, PosY + Y + Y), Couleurã PSET (X + PosX + (Nombre * 8) - Y, 1 + PosY + Y + Y), Couleurã END IFã END IFã NEXT Yã NEXT XãNEXT NombreãEND SUBããUnknown Author(s) ENGLISH SCRIPT FONTS ENGLISH,SCRIPT,FONTS Unknown Date (00:00:00)QB, QBasic, PDS 159 7844 SCRIPT.BAS '===========================ã' English Script Fontsã'===========================ããDIM a$(122)ã a$(32) = "BR8"ã a$(33) = "BR2G2RED8BD2D2HR2HBU2U3LU3R2D3U5FBU2BR2"ã a$(34) = "BRBUGDRND2RULBR3DRND2RULUBR3"ã a$(35) = "BR7G2D6LDU6L2GR3D3L3GR3ND2R4UNL2D3EU5NL3UL2NUR3UD"ã a$(35) = a$(35) + "5R2EL3U3R3EL3U2EBR5"ã a$(36) = "BR5DND15G4D4RNU4E3R3D6LNU6DLDL3HL2NDE2GR2DR2U10RF"ã a$(36) = a$(36) + "URUNL3EBUBR3"ã a$(37) = "BR4LG3DED2ED2EDE3LEL2EL2EBR6G2RDLD2HD3HD3HD3HD2UB"ã a$(37) = a$(37) + "R6REL3EL2ELE3DED2ED3EUBU7BR2"ã a$(38) = "BR6RF2NG3L2UL2G2RGDEDRND3G2NR3G3RGDERGDERGD2EURE3"ã a$(38) = a$(38) + "H2R2D2F5REUGLNH4UH4E2R2D2RENL5BU8BR3"ã a$(39) = "BRD4UHR2UL2BUBR5"ã a$(40) = "BR6G4REG3REG3R2UG2ND5RD7RU4D5RU3FDBU16BR3"ã a$(41) = "BD17E4LGE3LGE3LGUE2DHENU3LNU5HNU5UHU3GDBU2BR7"ã a$(42) = "BR3D3ND3NL3NR3NG2NH2NF2E2BUBR3"ã a$(43) = "BR5BD4D4ND4NL4LND5NU3DL4R8UL3R4BU8BR3"ã a$(44) = "BRBD13D3GE2UL2RBU14BR5"ã a$(45) = "BD9NR6ER6BU8BR3"ã a$(46) = "BD15R2GU2BU14BR5"ã a$(47) = "BD16E2LELE2DHE2DHE2DHE2DHE2DHE2BR3"ã a$(48) = "BR4G3D8UHU4E4NR2DNR3FNR3FR2GR2D4LU4D6G3UNE3L2H2ED"ã a$(48) = a$(48) + "RDRBU12BR8"ã a$(49) = "BD2E2ND13GR2UD13H2R4GE2BU11BR3"ã a$(50) = "BD4E4L2D3HUR2ER2DRND5FD3NG3LNG7LG5D3GUENR6FNR4FR2"ã a$(50) = a$(50) + "E2HREBU10BR3"ã a$(51) = "BR3G3NF2RE2RNG3DRF2DHD2HD4H2ED2R2D4ENU2G4H3LE2D2E"ã a$(51) = a$(51) + "D2ED2EBU13BR6"ã a$(52) = "BR6D14FU14LG6DR8FL8R6D3FDEBU13BR3"ã a$(53) = "BR9G3L4U2R5GL4D6E3RG2RERGR2FND3L3FRD3G3LHNR3HNR5H"ã a$(53) = a$(53) + "LR4H2GRBU10BR10"ã a$(54) = "BR5F2RGH2LF2DH2LG2D9HNU6UE5D2EUD3EUND5FD3G5U3LU3B"ã a$(54) = a$(54) + "U11BR9"ã a$(55) = "BD3E2R7GNL7G2RG2RG2ERG3ERG2ERG2D2FU3ED4E2LBU13BR6"ã a$(56) = "BDBR6L3G3R2DL2FRED3HR3HD2R3HD3HR3ND3GD3G2NH4L2UR2"ã a$(56) = a$(56) + "NH4L3ULULUE8L2DEUL2UBR6"ã a$(57) = "BUBR4G4D3FNU4EUD3RU2FE4ND5GD6G2NL5G2HRU2L2EBU7BR4"ã a$(57) = a$(57) + "R2UH2LF2LNH2LHU2BR7"ã a$(58) = "BD7R2GU2BD6D2HR2BU13BR4"ã a$(59) = "BD7R2HD2BD4D3GE2UL2BU13BR6"ã a$(61) = "BD6R6EL6BD3R6GNL6BU9BR5"ã a$(63) = "BR3G3ER4HLD2R3DL2FRG4DBD2D2HR2BU13BR6"ã a$(65) = "BD6U3NE2RE3NR3DR4G3L2DEUR3EG2DGDG2NH3NR7DNR7G2NR3"ã a$(65) = a$(65) + "DNR4DFBR3HR2E3D3FNE2U14GND9E2BR3"ã a$(66) = "BD3UEDRUR3EG3D4L2GDER2D5LG2NDE2REU9FED8EU8EDER3GR"ã a$(66) = a$(66) + "2D2HD2G2HUND9D2R3ND5FD4LG2L5GE3R3DL3BU13BR8"ã a$(67) = "BDBR4G3RG2ND4RD6FNU4RNU2ED2NR4UR6NE2NUL3U12G3D6EU"ã a$(67) = a$(67) + "6ER5GLU2LUBR6"ã a$(68) = "BDBR2NR7FR8GR2GRD2NL2D3NL2D3GNL6GL6GE3U10G3D7G2E3"ã a$(68) = a$(68) + "U2L3GE2R2U4E2R2D5RGD2RGDBU11BR7"ã a$(69) = "BR4G3ND8RG2D4RED4RNU2FNU2NR4ER5NE2NUL3U12G3D6EU6E"ã a$(69) = a$(69) + "NR7ER2D2R3G4R4UNL3BU5BR3"ã a$(70) = "BD6E2DR3UL2EU2D14L2GR2ERURUHU11R7NUL2UL3ED13GU8R3"ã a$(70) = a$(70) + "EL4U4BUBR8"ã a$(71) = "BD6D4FDU8E3D9G2U2D3NR7ERD2R4HU12L2ND8R5HD2R2GR2G4"ã a$(71) = a$(71) + "R4HLD2R2ND3LD3G2BU13BR6"ã a$(72) = "BD3UNR5ER5EG4D9GRENU9FRNU11EU11E2NRG2D4RE3D2END9R"ã a$(72) = a$(72) + "D7G2LEBU13BR5"ã a$(73) = "BD3URUR2D12L2GDR2UEU11EBR3G2D12L2DRE2U12EBR3"ã a$(74) = "BD5BRRUL2U2E2R3DL4R6DL3R5LG3D9GL3G2ER3DRUR3U2RU10"ã a$(74) = a$(74) + "ED9BL3DU9E2RERBUBR3"ã a$(75) = "BD3E2R3NEGL2FD8G2LGE5DU8BR2NE2D8G3R4HLD2FURE3D2FU"ã a$(75) = a$(75) + "2FRDH4LF2EH2E3LEL3GE2RBU3BR6"ã a$(76) = "BD2E2R4EG2NL4D11L2G2ERENU9RNE3R2F2RNE3HRNE2UE2LHB"ã a$(76) = a$(76) + "L3NU7FU7EBU3BR7"ã a$(77) = "BR6LG4D11LUREU5L2UR2U4ERD11NG2U5R6D5EG3H2R3GNU12H"ã a$(77) = a$(77) + "U6LNR5RU5LHR2DR6H2GRGND5R2DR2D12NEHU11E2BUBR3"ã a$(78) = "BD3E2D2R3H2D14L3NDER2EU10RED11NG2U4E3R4GDGDGDGDR4"ã a$(78) = a$(78) + "EG2L2U2RHEUEUEU3L3FRU2L3G3E4RL5E2RGR2BUBR7"ã a$(79) = "BR9L4G5ND6RD8R8LGL4U2LUE2NU8LU7ER6FL3HGD10UE3R3DG"ã a$(79) = a$(79) + "3REU5FUL3NG2RE2DHULBU3BR6"ã a$(80) = "BUBD3E3D2LR2HD2LR2ND14GND13DG3R2GRDFGLNG2DR2D4R3U"ã a$(80) = a$(80) + "3NU13R4GU2L3R5EL2E2DNU7HU2L2G3FRLHE3REUL3NGR"ã a$(80) = a$(80) + "2EU2GU2GL2E2NDBR8"ã a$(81) = "BR8L3G5ND6RD8R10GR2EGHL3GL4UHUF2R2NU13R2E4G2DEU9L"ã a$(81) = a$(81) + "3HR3D2LFNG3DERD4L3G3UBL3NU8EU8EBR11"ã a$(82) = "BD14E5U8EG2L2GE2RD10G2E3FG2R5G2HRU2LUENU8ENE4F4DN"ã a$(82) = a$(82) + "E3H2R3H3LNF3UE2U4L4E2D3FR2UL2U2BUBR8"ã a$(83) = "BR11G6H3UE2R3D2REL6GF3NR6L2HG2DED2ED2NR7ENR5RE2L2"ã a$(83) = a$(83) + "R8GR2ND3GD3G3UGU4RNDG5L3HU2R7DH2RL5R2UBU10BR13"ã a$(84) = "BD3E2DE2NR5DR9EG2L5D6G3NU3LU7NE3RG2D3F2E2NU5G2NR2"ã a$(84) = a$(84) + "DR8NE2NULGNL4U12BUBR7"ã a$(85) = "BD3E2R6EG2L6R4G4ND4RNED6FU3FD2FU2FR3NE4GNL2U13G2D"ã a$(85) = a$(85) + "6GU5EBR4E3D13E2L3DU11FRBU3BR4"ã a$(86) = "BD3UE2RG2RD10NLENU11D2F2NE6H2R3GUHRUNE3U3NE3U6H2B"ã a$(86) = a$(86) + "R7NG3D9ENL3U3NL3U3NL2UHBR4"ã a$(87) = "BD3E3D14H2RU9LE2RFD12GU3FRE2U10GE2D14HUF2DU3RD2NE"ã a$(87) = a$(87) + "4U13BR2UED11EU9HBR4"ã a$(88) = "BD3E3D4FU4LGR2D6L3ER3U4D6GDG2ND2L3NDERFRBR4R4EG3R"ã a$(88) = a$(88) + "EL2U2LND2LU5R3GL3D3R2UL2U5EUE2LED3FU3FDE"ã a$(88) = a$(88) + "BU2BR4"ã a$(89) = "R3GRD10NG3LG2D2ED2NR3ER4HR5DGBU3L2BU2RL4U10FRUD9U"ã a$(89) = a$(89) + "E3R3D2G2LEURU4L3NGR4DU3GU2GU2GUL2BR8"ã a$(90) = "BD3UE2D2LR8U2GNL7D2NG5LG3L3R8L2GLDR3L8R4G2RERG3UG"ã a$(90) = a$(90) + "D2GUR8GU2R2L7RER5EBU11BR3"ã a$(97) = "BD6NE3F2G2D2F2U3HD2RFUR3D2EL2NU9EU8NEL3F2DGNLEU3H"ã a$(97) = a$(97) + "BU3BR6"ã a$(98) = "RD12NLFNU13FU2FURENU7RU6L2U2G3U6EBR7"ã a$(99) = "BD6NE3RD5GR5EG2LGU3LRU6E2D2ED2EBU5BR3"ã a$(100) = "BFGDERGR2GR2G4ND4RD5FU3FD3E3NU6LNGU5NE2ULURBU5BR5"ã a$(101) = "BD7RNE3D4GRFNU6F2NE3UEL2ELU2E4L3FU2LBU5BR6"ã a$(102) = "BR3G2D12LR3GU9L2R4L2U4EDED2EBU2BR3"ã a$(103) = "BD17R5EL5E6D5L2EU2L2GLEL2NU5EU4E3D2ED5EU4EBU4BR3"ã a$(104) = "BDFD13E2NL3HU10NE2D6E4GDED9G3ERE2U9BU5BR3"ã a$(105) = "BD6ED9FE2LGU9RHBU2URBUBR4"ã a$(106) = "BD5ED2ED10GE2U8H2BU2URBUBR4"ã a$(107) = "BDFD12HR4G2U13NE2D6E3R2FL3FRG4ER2GR2D4EUL2U3BU10"ã a$(107) = a$(107) + "BR5"ã a$(108) = "BDFD11NL2DFELU13EBR3"ã a$(109) = "BD6UED10HF2ELU9FNRE2D10FU10FNRE2D10RNE2U9FBU6BR3"ã a$(110) = "BD5NE2RED9FE2LGU9FNE2RED2RU2D9FE2LGU8EBU4BR4"ã a$(111) = "BD7NE4ND4RD5F2UHUF2E2NU6LU4H2EDFU2BU4BR4"ã a$(112) = "BD5E2D13LR2NFU5NL2U7FE2D2ED9GH3R5DL3FE2U6BU5BR3"ã a$(113) = "BD6NE3ND6RNE2D7FU2FE2D5NGR2HU9FG2DU5L2EBU4BR6"ã a$(114) = "BD5NE2RED8HF3E2LGU2GU8FE2D2ED3EUBU5BR3"ã a$(115) = "BD13NE8R6GLU2NL3BR3ENU2LU3LD2HL3EL2NU2EU2E2DR4GN"ã a$(115) = a$(115) + "L2E2BU3BR3"ã a$(116) = "BD4NE3RD9HR2D2EDNE2HU10FRBU4BR4"ã a$(117) = "BD5NE2RED8FNU9FU3FDEF2E2L3FU10G2R3G2D5U8BU4BR6"ã a$(118) = "BR3G3RDEUD10NLF2NE4U2RL2ELU7BR4NHD7EU5BU5BR3"ã a$(119) = "BR2G2D2RU3D12HF2EUGU9FE2ND9FD8F2E2RGNHEU9NG3FND8"ã a$(119) = a$(119) + "BU4BR3"ã a$(120) = "BD6E3DGRD2RU2D5G4U3FRE2RD2RD2E3GLHUHUE4D2HLE2BU3BR3"ã a$(121) = "BD5NE2RED10GDFR3EUGBH3RNU10EDE4NU6LU5G2BU6BR6"ã a$(122) = "BD7UE3D2ED2EDG4R4HLD2R3DL2D2EL2DL2GDFR2EBU16BR5"ã SCREEN 9ã CLSã w$ = "Quick Basic 4.5 now offered in English Script!"ã DRAW "c 14;s4 bm80,70;"ã GOSUB loop1ã DRAW "c 15;s4 bm1,100;"ã w$ = "!#$%&'()*+,-./0123456789:;<=>?&"ã GOSUB loop1ã DRAW "c 11;s4 bm1,130;"ã w$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"ã GOSUB loop1ã DRAW "C 14;S4 BM1,170;"ã w$ = "[\]^_'abcdefghijklmnopqrstuvwxyz"ã GOSUB loop1ã DRAW "c 11;s4 bm1,200;"ã w$ = "Wasn't I a nice guy to crop all those lines for you?"ã GOSUB loop1ã DRAW "c11;s4 bm1,220;"ã w$ = "You know those lines that go A$=A$+"ã GOSUB loop1ããENDããloop1:ãFOR x = 1 TO LEN(w$)ãy = ASC(MID$(w$, x, 1))ãDRAW a$(y)ãNEXTãRETURNããMatt Hart PSET ON ANY SCREEN TYPE PSET,ON,ANY,SCREEN,TYPE Unknown Date (00:00:00)QB, PDS 36 1199 BPSET.BAS 'Here's a PSET type function that'll work in ANY screen mode:ãã' BPSET.BAS Matt Hartã'ã' Do a PSET in any screen mode using the BIOSãã '$INCLUDE: '\BC71\QBX.BI' ' Use your path to QB.BI or QBX.BIã DEFINT A-Z ' For IDE, load with C:\>qb /lã DIM SHARED InRegs AS RegTypeXã DIM SHARED OutRegs AS RegTypeXãã' ------------------ Sample Codeã InRegs.AX = &H10 ' EGA 640x350x16ã CALL InterruptX(&H10, InRegs, OutRegs)ã ' We are now in a screen mode unrecognized by QBã ' No graphics command will work - QB doesn't know we are in graphics.ã ' This'll work with any screen mode - Super VGA, etc...ã C = 1 : Y! = 0ã Slope! = 350/640ã FOR X = 0 TO 639ã CallY = CINT(Y!) ' Y must be an integer in the CALLã CALL BiosPSET(X,CallY,C)ã Y! = Y! + Slope!ã C = C + 1 : IF C > 15 THEN C = 1ã NEXTã WHILE INKEY$="":WENDã SCREEN 2 : SCREEN 0ã' ------------------------------ããSUB BiosPSET(X,Y,C)ã InRegs.AX = &H0C00 + Cã InRegs.BX = 0 ' BH is page - set to 0ã InRegs.CX = Xã InRegs.DX = Yã CALL InterruptX(&H10, InRegs, OutRegs)ãEND SUBãRich Geldreich ASM FADER ASM,FADER 11-16-92 (00:00:00) QB, PDS 150 4934 ASMFADER.BAS;Some noiseless VGA DAC fading routines for QB4.5/PDSã;By Rich Geldreich 1992ã;Assembled with TASM v2.0ãIDEALãMODEL SMALLãDATASEGãPalette db 768 dup (?)ãCODESEGãPUBLIC GetPalette, SetPaletteãEVENãPROC SetPalette ;Sets the pallette retrieved by ãGetPaletteã ;to a specified brightnessã;DECLARE SUB SetPalette (BYVAL Brigtness, BYVAL Start, BYVAL Num)ãBrightness EQU [ss:bp+10]ãStart EQU [ss:bp+08]ãNum EQU [ss:bp+06]ãParameters = 3ã ã Push bp ;set us up a stack frameã Mov bp, spã Push ds si di ;lets not get QB mad nowã ã Mov ax, @data ;get start of palette bufferã Mov ds, axã Mov si, offset Paletteã ã Mov ax, Start ;get start colorã Mov dx, 03C7h ;get ready to start changing colorsã Out dx, alã Inc dxã Out dx, alã Inc dx ;dx=03C9hã ã Mov di, 03DAh ;di=VGA status registerã ã Mov bl, Brightness ;limit brigtness to an 8 bit valueãã Mov cx, Num ;CX=# of registers to changeã Jcxz @@Done ;if no registers to change then exitã ã Add ax, cx ;calculate the last register to changeã Cmp ax, 256 ;if too much then exitã Ja @@Doneã ã EVEN ;color alteration loopã@@10: REPT 2 ;change Red & Green colorsã Lodsbã Mul bl ;calculate (Color*brightness)\256ã Mov al, ahã Out dx, al ;do itã ENDMã ã Lodsb ;precalculate the last registerã Mul blã Mov bh, ahã ã Xchg dx, di ;dx=status portã EVENã@@20: In al, dx ;wait for horizontal retraceã Test al, 1ã Jz @@20ã Xchg dx, diã Mov al, bhã Out dx, al ;let the change take affect where it'sããsafeã Loop @@10 ;'till doneã@@Done:ã Pop di si ds bp ;pop us some regsã Retf Parameters*2 ;bye byeãENDP SetPaletteãPROC GetPalette ;Must call this routine before ãSetPalette!ã;DECLARE SUB GetPalette ()ã Push esã Mov ax, @dataã Mov es, axã Mov dx, offset Palette ;es:dx addresses paletteã Mov cx, 256ã Xor bx, bxã Mov ax, 01017hã Int 010hã Pop esã Retf 0ãENDP GetPaletteãENDãã'The OBJ file(for those poor guys without TASM) and a small demoã'follows this message.ããã'To execute this script, save it to a file and type DEBUG < filenameã'where "filename" is the name of this script file.ãE165"FADEIT.LZH" 0ãE200"XEP9gVKBhkH...UI/...9urPN.G.8MIE2JIGItmH0do2jr2..2.4W7qk2lu7j"ãE23D"jTiZD/gp2W3NkSJ8W2fEnnnB3MdbOdMZEWibIAGfMlKPQBQ1FEQF.qaJ66gML"ãE27A"OkIVM83ZdW1DVW2kiZOgUi0KDE4EdPhl75ebKOb8nUI9GtkA8k0gpAZqQD7Az"ãE2B7"oLT7fQCynCmNunP0vTUsxC6uZVRThglk8jvihWLcgYKWm1IJcHxBLUfhI6VAG"ãE2F4"AX5QFwJUsaAp3MVHzN96U6d/pcEnkgEAluEL.P1/QURQWqWkUR1uhekJ.3/nI"ãE331"63W2GWI7l/kRsz7LIjBmlRxAwEi7ovlyHU.mQx9XTCR/ivsI9EqCc0qhQ6vzg"ãE36E"iwhYZ9KhgBSbETs0wa5BzSPPpiTUDzFLfGbb08w33hhOMDxJGGtB8rcJXeTJ4"ãE3AB"Ie6UMtHjru0DRTzvc80TKjVFZCPbEgKANGYF/pY3w8..."ãE100 B8 0 3C BA 65 1 33 C9 CD "!rC" BE 0 2 50 BD 62 1 55 BF 88 90ãE117 "W3" DB B1 FA 8A F0 80 C1 6 32 E4 AC "<9v" 8 " MaxColor THEN NextColor = MaxColorã NEXT xãNEXT yããoldx = 1ãoldy = 1ãx = 1ãy = 1ãã'ã' main color choosing loopã'ãDOã 'ã ' update cursor position, et ceteraã 'ã LINE (xc + ((oldx - 1) * wc), yc + ((oldy - 1) * hc))-(xc + ((oldx - 1) * wc) + wc, yc + ((oldy - 1) * hc) + hc), 0, Bã LINE (xc + ((x - 1) * wc), yc + ((y - 1) * hc))-(xc + ((x - 1) * wc) + wc, yc + ((y - 1) * hc) + hc), 15, Bã oldx = xã oldy = yãã 'ã ' inkey loopã 'ã DOã key$ = INKEY$ã LOOP UNTIL LEN(key$)ãã 'ã ' take actionã 'ã SELECT CASE key$ã CASE CHR$(&H0) + CHR$(&H48) ' [up]ã y = y - 1ã IF y < 1 THEN y = 1ã CASE CHR$(&H0) + CHR$(&H50) ' [down]ã y = y + 1ã IF y > h THEN y = hã CASE CHR$(&H0) + CHR$(&H4B) ' [left]ã x = x - 1ã IF x < 1 THEN x = 1ã CASE CHR$(&H0) + CHR$(&H4D) ' [right]ã x = x + 1ã IF x > w THEN x = wã CASE CHR$(&HD) ' [enter]ã GFontColor = POINT(xc + ((x - 1) * wc + 1), yc + ((y - 1) * hc) + 1)ã PUT (xc - 1, yc - 1), BackArr, PSETã EXIT FUNCTIONã END SELECTãLOOPãããEND FUNCTIONããSUB GFontDraw (bpp, w, h, wc, hc, xg, yg, xc, yc, GfxArr())ãã'ã' save the backgroundã'ãDIM BackArr((w * wc + 2) * (h * hc + 2) + 2)ãGET (xg - 1, yg - 1)-(xg + (w * wc) + 1, yg + (h * hc) + 1), BackArrãã'ã' draw the boxã'ãLINE (xg, yg)-(xg + (w * wc), yg + (h * hc)), 0, BFãLINE (xg - 1, yg - 1)-(xg + (w * wc) + 1, yg + (h * hc) + 1), 15, Bãã'ã' draw the image (if any)ã'ãFOR x = 0 TO w - 1ã FOR y = 0 TO h - 1ã LINE (xg + (x * wc) + 1, yg + (y * hc) + 1)-(xg + (x * wc) + (wc - 1), yg + (y * hc) + (hc - 1)), GfxArr(x + 1, y + 1), BFã NEXT yãNEXT xããx = 1ãy = 1ãc = 15ãoldx = 1ãoldy = 1ãã'ã' main drawing loopã'ãDOã 'ã ' update cursor position, et ceteraã 'ã LINE (xg + ((oldx - 1) * wc), yg + ((oldy - 1) * hc))-(xg + ((oldx - 1) * wc) + wc, yg + ((oldy - 1) * hc) + hc), 0, Bã LINE (xg + ((x - 1) * wc), yg + ((y - 1) * hc))-(xg + ((x - 1) * wc) + wc, yg + ((y - 1) * hc) + hc), 15, Bã oldx = xã oldy = yãã 'ã ' inkey loopã 'ã DOã key$ = INKEY$ã LOOP UNTIL LEN(key$)ãã 'ã ' take actionã 'ã SELECT CASE key$ã CASE CHR$(&H20) ' [spacebar]ã LINE (xg + ((x - 1) * wc) + 1, yg + ((y - 1) * hc) + 1)-(xg + ((x - 1) * wc) + (wc - 1), yg + ((y - 1) * hc) + (hc - 1)), c, BFã GfxArr(x, y) = cã CASE CHR$(&H0) + CHR$(&H48) ' [up]ã y = y - 1ã IF y < 1 THEN y = 1ã CASE CHR$(&H0) + CHR$(&H50) ' [down]ã y = y + 1ã IF y > h THEN y = hã CASE CHR$(&H0) + CHR$(&H4B) ' [left]ã x = x - 1ã IF x < 1 THEN x = 1ã CASE CHR$(&H0) + CHR$(&H4D) ' [right]ã x = x + 1ã IF x > w THEN x = wã CASE "c", "C" ' [c] or [C]ã c = GFontColor(bpp, wc, hc, xc, yc)ã CASE CHR$(&H9) ' [tab]ã REDIM MenuArr$(4)ã MenuArr$(0) = " GFont Grid Menu:"ã MenuArr$(1) = " Save image to font"ã MenuArr$(2) = " Load image from font"ã MenuArr$(3) = " Return to editor"ã MenuArr$(4) = " Quit GFont"ã SELECT CASE GFontMenu(MenuArr$())ã CASE 1: 'GFontPutChar ' [Save image to font]ã CASE 2: 'GFontGetChar ' [Load image from font]ã CASE 3: ' [Return to editor]ã CASE 4 ' [Quit GFont]ã PUT (xg - 1, yg - 1), BackArr, PSETã EXIT SUBã END SELECTã END SELECTãLOOPããEND SUBããDEFSNG A-ZãSUB GFontDrawScreenããLINE (1, 1)-(319, 199), 32, BFããEND SUBããDEFINT A-ZãSUB GFontMakeFontFile (FileName$)ããDIM GFontBuff AS STRING * 80ããPRINTãPRINT "Creating font file: "; FileName$ãPRINTãDOã INPUT "Width?", w$ããLOOP UNTIL VAL(w$) <> 0ãDOã INPUT "Hieght?", h$ãLOOP UNTIL VAL(h$) <> 0ããOPEN FileName$ FOR BINARY AS #1ããGFontBuff$ = " GFont font file for QBABBS. GFont [PD] by Calvin French August 1993. " + CHR$(26)ããPUT #1, , GFontBuff$ããwid = VAL(w$)ãPUT #1, , widãhie = VAL(h$)ãPUT #1, , hieããããEND SUBããFUNCTION GFontMenu (MenuArr$())ããLastOpt = UBOUND(MenuArr$)ããFOR n = 0 TO LastOptã IF LEN(MenuArr$(n)) > LongestLen THEN LongestLen = LEN(MenuArr$(n))ãNEXT nããx1 = 32ãy1 = 32ãx2 = x1 + LongestLen * 8 + 32ãy2 = y1 + (LastOpt + 1) * 8ããDIM BackArr((x2 - x1 + 2) * (y2 - y1 + 2) + 4)ãGET (x1 - 1, y1 - 1)-(x2 + 1, y2 + 1), BackArrãLINE (x1 - 1, y1 - 1)-(x2 + 1, y2 + 1), 0, BFãLINE (x1 - 1, y1 - 1)-(x2 + 1, y2 + 1), 15, BããLOCATE y1 \ 8 + 1, x1 \ 8 + 1ãCOLOR 13ãPRINT MenuArr$(0);ããCurrOpt = 1ããDOã 'ã ' Update menuã 'ã FOR n = 1 TO LastOptã IF n = CurrOpt THENã COLOR 15ã ELSEã COLOR 7ã END IFã LOCATE y1 \ 8 + n + 1, x1 \ 8 + 1ã PRINT MenuArr$(n);ã NEXT nãã DOã key$ = INKEY$ã LOOP UNTIL LEN(key$)ãã SELECT CASE key$ã CASE CHR$(&H0) + CHR$(&H48) ' [up]ã CurrOpt = CurrOpt - 1ã IF CurrOpt < 1 THEN CurrOpt = 1ã CASE CHR$(&H0) + CHR$(&H50) ' [down]ã CurrOpt = CurrOpt + 1ã IF CurrOpt > LastOpt THEN CurrOpt = LastOptã CASE CHR$(&HD) ' [enter]ã GFontMenu = CurrOptã PUT (x1 - 1, y1 - 1), BackArr, PSETã EXIT FUNCTIONã END SELECTããLOOPããEND FUNCTIONããIan Remmler PLASMA GENERATOR PLASMA,GENERATOR Unknown Date (00:00) QB, QBasic, PDS 154 4395 PLASMGEN.BAS'PLASMA GENERATOR By: Ian Remmlerã'------ ---------ããDECLARE FUNCTION Rand% ()ãDECLARE FUNCTION PntClr% (x%, y%)ãDECLARE SUB Dot (x%, y%, c%)ãDECLARE SUB Adjust (xa%, ya%, x%, y%, xb%, yb%)ãDECLARE SUB SubDivide (x1%, y1%, x2%, y2%)ãDECLARE SUB MakePal (col%(), x%, y%)ããDEFINT A-ZãDIM r(-8 TO 264), g(-8 TO 264), b(-8 TO 264) 'For the palette values.ãCOMMON SHARED F 'Graininess factorããIF INSTR(COMMAND$, "/?") OR INSTR(COMMAND$, "-?") THEN GOTO PrntHelpã'REM above line if you are using QBasic.ãRANDOMIZE TIMERãDEF SEG = &HA000ãF = 10: ra = 1: rb = 255: d = 1: s = 1ãSCREEN 13ããStart:ãGOSUB PalSet 'Get a random palette to start with.ãDot 0, 0, RND * 255 + 1ãDot 319, 0, RND * 255 + 1ãDot 319, 199, RND * 255 + 1ãDot 0, 199, RND * 255 + 1ãSubDivide 0, 0, 319, 199ãBEEPããRotate:ã DOã a$ = INKEY$ã IF LEN(a$) THEN GOSUB keys 'Check to see if an option key was pushed.ã FOR a = 1 TO 9ã 'This loop is needed to keep the palette from screwing up when paletteã 'rotation speed is > 1.ã r(255 + a) = r(a): g(255 + a) = g(a): b(255 + a) = b(a)ã r(1 - a) = r(255 - a): g(1 - a) = g(255 - a): b(1 - a) = b(255 - a)ã NEXTã FOR t = ra TO rb STEP d 'This loop rotates the palette.ã SWAP r(t), r(t + d * s)ã SWAP g(t), g(t + d * s)ã SWAP b(t), b(t + d * s)ã NEXTã GOSUB Set 'Output the new palette values to the VGA adapter.ã LOOPããPalSet:ã 'This routine uses a technique similar to the plasma generatorã 'itself to create a smooth palette.ã FOR a = 1 TO 255ã r(a) = -1: g(a) = -1: b(a) = -1ã NEXTã r(1) = INP(64) \ 4: g(1) = INP(64) \ 4: b(1) = INP(64) \ 4ã r(255) = r(1) + Rand: g(255) = g(1) + Rand: b(255) = b(1) + Randã MakePal r(), 1, 255ã MakePal g(), 1, 255ã MakePal b(), 1, 255ã GOSUB SetãRETURNããSet:ã 'Dump all the palette values to the VGA adapter.ã OUT &H3C8, 1ã WAIT &H3DA, 8ã FOR c = 1 TO 255ã OUT &H3C9, r(c)ã OUT &H3C9, g(c)ã OUT &H3C9, b(c)ã NEXTãRETURNããkeys:ã SELECT CASE UCASE$(a$)ã CASE " " 'Reverse direction of palette rotation.ã SWAP ra, rb: d = -dã CASE CHR$(13) 'Make a new random palette.ã GOSUB PalSetã CASE "F" 'Change the "graininess" (Amount of randomness).ã SCREEN 0: WIDTH 80, 25ã PRINT "Current = "; Fã PRINT : INPUT "Enter new graininess factor. - ", Fã SCREEN 13: GOTO Startã CASE CHR$(49) TO CHR$(57) 'Change palette rotation speed.ã s = VAL(a$)ã CASE CHR$(27) 'Exit the program.ã ENDã END SELECTãRETURNããPrntHelp:ã PRINT "PLASMA GENERATOR - By: Ian Remmler"ã PRINT "------ ---------"ã PRINT "[ENTER] : Create a random palette."ã PRINT "[SPACE] : Reverse direction of palette rotation."ã PRINT "1 - 9 : Change palette rotation speed."ã PRINT "F : Enter new graininess factor."ã PRINT "[ESC] : Exit the program."ã PRINT "/? or -? on command line to display help."ã ENDããSUB Adjust (xa, ya, x, y, xb, yb)ã IF PntClr(x, y) <> 0 THEN EXIT SUBã q = ABS(xa - xb) + ABS(ya - yb)ã v = (PntClr(xa, ya) + PntClr(xb, yb)) \ 2 + (Rand * q * F) \ 10ã IF v < 1 THEN v = 1ã IF v > 255 THEN v = 255ã Dot x, y, vãEND SUBããSUB Dot (x, y, c) 'Fast replacement for PSET.ã POKE y * 320& + x, cãEND SUBããSUB MakePal (col(), x, y)ã z = (x + y) \ 2ã IF col(z) <> -1 THEN EXIT SUBã q = ABS(x - y) \ 8ã c = (col(x) + col(y)) \ 2 + Rand * qã IF c < 0 THEN c = 0ã IF c > 63 THEN c = 63ã col(z) = cã MakePal col(), x, zã MakePal col(), y, zãEND SUBããFUNCTION PntClr (x, y) 'Fast replacement for POINT.ã PntClr = PEEK(y * 320& + x)ãEND FUNCTIONããFUNCTION Rand 'This returns a value of -1, 0, or 1 and is much faster than RND.ã Rand = INP(64) MOD 3 - 1ãEND FUNCTIONããSUB SubDivide (x1, y1, x2, y2)ã IF (x2 - x1 < 2) AND (y2 - y1 < 2) THEN EXIT SUBã x = (x1 + x2) \ 2ã y = (y1 + y2) \ 2ã Adjust x1, y1, x, y1, x2, y1ã Adjust x1, y2, x, y2, x2, y2ã Adjust x2, y1, x2, y, x2, y2ã Adjust x1, y1, x1, y, x1, y2ã IF PntClr(x, y) = 0 THENã v = (PntClr(x1, y1) + PntClr(x2, y1) + PntClr(x2, y2) + PntClr(x1, y2) + PntClr(x1, y) + PntClr(x, y1) + PntClr(x2, y) + PntClr(x, y2)) \ 8ã Dot x, y, vã IF INKEY$ = CHR$(27) THEN ENDã END IFã SubDivide x1, y1, x, yã SubDivide x, y, x2, y2ã SubDivide x, y1, x2, yã SubDivide x1, y, x, y2ãEND SUBããRich Geldreich ASSEMBLY PLASMA GENERATOR ASSEMBLY,PLASMA,GENERATOR Unknown Date (00:00) QB, PDS 461 13238 PLASMA.BAS 'PLASMA.BAS & PLASMA.ASMã'Input graininess on command line. Valid values are 0-40.ã'Try running with a graininess of 1, and zooming in on areas withã'very little overall elevation (ie. areas that are mostly the sameã'color). Some very interesting "non-cloudly" patterns will showã'themselves if you look at the right areas. If you do get some wierdã'looking patterns, make sure you try color cycling with a randomã'palette.ã'ã'Keys recognized:ã'"C" = Toggles color cycling.ã'"R" = Sets the default palette.ã'"1" to "9" = Introduces random colors into the palette while colorã' cycling.ã'Array keys = Moves zoom box.ã'Enter = Zooms area inside zoom box.ã'Escape = Quits.ã'ãDEFINT A-Zã ãDECLARE SUB SubDivide (CX1%, CY1%, CX2%, CY2%, CC1%, CC2%, CC3%, CC4%)ãDECLARE SUB SetPoint (BYVAL X, BYVAL Y, BYVAL C)ãDECLARE FUNCTION GetPoint (BYVAL X, BYVAL Y)ãDECLARE SUB SeedRand (BYVAL NewSeed&)ãDECLARE FUNCTION GetRand% (BYVAL MaxRand%)ã ãTYPE StackTypeã X1 AS INTEGERã Y1 AS INTEGERã X2 AS INTEGERã Y2 AS INTEGERã C1 AS INTEGERã C2 AS INTEGERã C3 AS INTEGERã C4 AS INTEGERãEND TYPEã ãDIM SHARED AStack(511) AS StackTypeãDIM SHARED Clamp(-4096 TO 4096)ãDIM SHARED F&ãDIM SHARED P(0 TO 40, 0 TO 40)ãDIM SHARED D(0 TO 40, 0 TO 40)ãDIM r(255), g(255), B(255)ã ãa$ = COMMAND$ãIF LEN(a$) THENã F& = VAL(a$)ã IF F& < 0 THENã F& = 0ã ELSEIF F& > 40 THENã F& = 40ã END IFãELSEã F& = 8ãEND IFã ãFOR a = -4096 TO 4096ã IF a < 1 THENã Clamp(a) = 1ã ELSEIF a > 255 THENã Clamp(a) = 255ã ELSEã Clamp(a) = aã END IFãNEXTã ãSCREEN 13ã ã'Set default palette.ãGOSUB PalSetã ã'Seed the psuedo-random number generator with the current time.ãDEF SEG = &H40ãSeedRand PEEK(&H6C) + PEEK(&H6D) * 256& + PEEK(&H6E) * 65536ã'Draw plasma.ãC1 = GetRand(256) + 1ãC2 = GetRand(256) + 1ãC3 = GetRand(256) + 1ãC4 = GetRand(256) + 1ãSetPoint 0, 0, C1ãSetPoint 319, 0, C2ãSetPoint 319, 199, C3ãSetPoint 0, 199, C4ã ã'Plot the starting plasma.ãCALL SubDivide(0, 0, 319, 199, C1, C2, C3, C4)ã ãC = 1ã ãDOã Xs = (320 - 40) \ 2ã Ys = (200 - 40) \ 2ã ã DOã FOR a = 0 TO 41ã SetPoint Xs + a, Ys, GetPoint(Xs + a, Ys) XOR &HAAã SetPoint Xs + a, Ys + 41, GetPoint(Xs + a, Ys + 41) XOR &HAAã SetPoint Xs, Ys + a, GetPoint(Xs, Ys + a) XOR &HAAã SetPoint Xs + 41, Ys + a, GetPoint(Xs + 41, Ys + a) XOR &HAAã NEXTã ã DOã IF CycleOn THENã IF RandC > 0 THENã IF GetRand(10) <= RandFreq THENã r(RandC) = GetRand(64)ã g(RandC) = GetRand(64)ã B(RandC) = GetRand(64)ã ELSEã r(RandC) = 0ã g(RandC) = 0ã B(RandC) = 0ã END IFã RandC = RandC + 1ã IF RandC = 256 THENã RandC = 0ã END IFã END IFã ã WAIT &H3DA, 8ã OUT &H3C8, 1ã D = Cã FOR a = 1 TO 255ã OUT &H3C9, r(D)ã OUT &H3C9, g(D)ã B = B(D)ã WAIT &H3DA, 1ã OUT &H3C9, Bã WAIT &H3DA, 1, 1ã D = D + 1ã IF D = 256 THEN D = 1ã NEXTã C = C + 1ã IF C = 256 THEN C = 1ã WAIT &H3DA, 8, 8ã END IFã ã a$ = INKEY$ã LOOP UNTIL LEN(a$)ã ã FOR a = 0 TO 41ã SetPoint Xs + a, Ys, GetPoint(Xs + a, Ys) XOR &HAAã SetPoint Xs + a, Ys + 41, GetPoint(Xs + a, Ys + 41) XOR &HAAã SetPoint Xs, Ys + a, GetPoint(Xs, Ys + a) XOR &HAAã SetPoint Xs + 41, Ys + a, GetPoint(Xs + 41, Ys + a) XOR &HAAã NEXTã ã SELECT CASE a$ã CASE CHR$(0) + CHR$(72) 'upã Ys = Ys - 5ã IF Ys < 0 THEN Ys = 0ã CASE CHR$(0) + CHR$(80) 'downã Ys = Ys + 5ã IF Ys > 200 - 42 THEN Ys = 200 - 42ã CASE CHR$(0) + CHR$(77) 'rightã Xs = Xs + 5ã IF Xs > 320 - 42 THEN Xs = 320 - 42ã CASE CHR$(0) + CHR$(75)'leftã Xs = Xs - 5ã IF Xs < 0 THEN Xs = 0ã CASE CHR$(13), "0"ã EXIT DOã CASE "C", "c"ã CycleOn = NOT CycleOnã CASE "R", "r"ã GOSUB PalSetã C = 1ã CASE "1" TO "9"ã RandC = 1ã RandFreq = ASC(a$) - 49ã CASE CHR$(27)ã ENDã END SELECTã LOOPã ã L = 256ã h = 0ã FOR Y = Ys TO Ys + 40ã FOR X = Xs TO Xs + 40ã P = GetPoint(X, Y) - 1ã IF P < L THEN L = Pã IF P > h THEN h = Pã P(X - Xs, Y - Ys) = Pã NEXTã NEXTã ã 'Maximize the scale of the new plasma to take advantage ofã 'all colors- this will usually cause the zoomed plasma's colors toã 'appear different from its original colors, but must be done becauseã 'there are only 256 colors available.ã IF (h - L) = 0 THEN 'avoid overflow errorã Scaler& = 256ã ELSEã Scaler& = (255 * 256&) \ (h - L)ã END IFã ã FOR Y = 0 TO 40ã FOR X = 0 TO 40ã P = 1 + ((P(X, Y) - L) * Scaler&) \ 256ã IF P > 255 THEN P = 255ã P(X, Y) = Pã NEXTã NEXTã ã CLSã ã FOR Y = 0 TO 40ã Ys = Y * 5: IF Ys > 199 THEN Ys = 199ã FOR X = 0 TO 40ã Xs = X * 8: IF Xs > 319 THEN Xs = 319ã SetPoint Xs, Ys, P(X, Y)ã NEXTã NEXTã ã ERASE Dã ã 'Fill in the black areas.ã FOR Y = 0 TO 39ã Ys = Y * 5ã Ye = Ys + 5ã IF Ye > 199 THEN Ye = 199ã FOR X = 0 TO 39ã Xs = X * 8ã Xe = Xs + 8ã IF Xe > 319 THEN Xe = 319ã CALL SubDivide(Xs, Ys, Xe, Ye, P(X, Y), P(X + 1, Y), P(X + 1, Y + 1), P(X, Y + 1))ã NEXTã NEXTãLOOP UNTIL a$ = CHR$(27)ãENDã ãPalSet:ã 'Alter this section here for another palette.ã FOR a = 0 TO 63ã s = 0: r = 63: g = a: B = 0: GOSUB Setã s = 64: r = 63 - a: g = 63: B = 0: GOSUB Setã s = 128: r = 0: g = 63 - a: B = a: GOSUB Setã s = 192: r = a: g = 0: B = 63: GOSUB Setã NEXTãRETURNã ãSet:ã IF a + s = 0 THEN RETURN 'to keep the background blackã r(a + s) = rã g(a + s) = gã B(a + s) = Bã OUT &H3C8, a + sã OUT &H3C9, rã OUT &H3C9, gã OUT &H3C9, BãRETURNã ã'This subroutine subdivides the screen into small areasã'and fills them in with psuedo-random colors. Areas close the eachã'other are very similar, but as the distance increases between twoã'areas they grow very different.ãSUB SubDivide (CX1, CY1, CX2, CY2, CC1, CC2, CC3, CC4)ã ã sp = 0ã AStack(sp).X1 = CX1: AStack(sp).Y1 = CY1ã AStack(sp).X2 = CX2: AStack(sp).Y2 = CY2ã AStack(sp).C1 = CC1: AStack(sp).C2 = CC2ã AStack(sp).C3 = CC3: AStack(sp).C4 = CC4ã sp = sp + 1ã ã DO WHILE spã sp = sp - 1ã X1 = AStack(sp).X1: Y1 = AStack(sp).Y1ã X2 = AStack(sp).X2: Y2 = AStack(sp).Y2ã C1 = AStack(sp).C1: C2 = AStack(sp).C2ã C3 = AStack(sp).C3: C4 = AStack(sp).C4ãJag:ã 'Find center of area.ã X = (X1 + X2) \ 2ã Y = (Y1 + Y2) \ 2ã ã CA = GetPoint(X, Y1)ã IF CA = 0 THENã CA = Clamp((C1 + C2) \ 2 + ((GetRand(128) - 64) * (X2 - X1) * F&) \ 256)ã SetPoint X, Y1, CAã END IFã ã CB = GetPoint(X2, Y)ã IF CB = 0 THENã CB = Clamp((C2 + C3) \ 2 + ((GetRand(128) - 64) * (Y2 - Y1) * F&) \ 256)ã SetPoint X2, Y, CBã END IFã ã CC = GetPoint(X, Y2)ã IF CC = 0 THENã CC = Clamp((C4 + C3) \ 2 + ((GetRand(128) - 64) * (X2 - X1) * F&) \ 256)ã SetPoint X, Y2, CCã END IFã ã CD = GetPoint(X1, Y)ã IF CD = 0 THENã CD = Clamp((C1 + C4) \ 2 + ((GetRand(128) - 64) * (Y2 - Y1) * F&) \ 256)ã SetPoint X1, Y, CDã END IFã ã CM = GetPoint(X, Y)ã 'Set center point to the average of all the pixels surrounding it.ã IF CM = 0 THENã CM = (C1 + C2 + C3 + C4 + CA + CB + CC + CD) \ 8ã SetPoint X, Y, CMã END IFã ã IF X2 - X1 > 2 THENã 'Recursively subdivide the area into 4 smaller areas.ã ã 'CALL SubDivide(X, Y, X2, Y2, CM, CB, C3, CC)ã AStack(sp).X1 = X: AStack(sp).Y1 = Yã AStack(sp).X2 = X2: AStack(sp).Y2 = Y2ã AStack(sp).C1 = CM: AStack(sp).C2 = CBã AStack(sp).C3 = C3: AStack(sp).C4 = CCã sp = sp + 1ã ã 'CALL SubDivide(X1, Y1, X, Y, C1, CA, CM, CD)ã AStack(sp).X1 = X1: AStack(sp).Y1 = Y1ã AStack(sp).X2 = X: AStack(sp).Y2 = Yã AStack(sp).C1 = C1: AStack(sp).C2 = CAã AStack(sp).C3 = CM: AStack(sp).C4 = CDã sp = sp + 1ã ã 'CALL SubDivide(X, Y1, X2, Y, CA, C2, CB, CM)ã AStack(sp).X1 = X: AStack(sp).Y1 = Y1ã AStack(sp).X2 = X2: AStack(sp).Y2 = Yã AStack(sp).C1 = CA: AStack(sp).C2 = C2ã AStack(sp).C3 = CB: AStack(sp).C4 = CMã sp = sp + 1ã ã 'CALL SubDivide(X1, Y, X, Y2, CD, CM, CC, C4)ã Y1 = Yã X2 = Xã C1 = CDã C2 = CMã C3 = CCã GOTO Jagã ã END IFã ã LOOPã ãEND SUBããã'---------------8<-----[ Begin PLASMA.ASM ]----->8---------------ãã.286: : :ãIDEALãMODEL MEDIUMã;----------------------------------------------------------------ãDATASEGãLABEL LookUp WORDã Y = 0ã REPT 200ã dw Yã Y = Y + 320ã ENDMãRandSeed dw 0,0ã;----------------------------------------------------------------ãCODESEGãASSUME DS:@CODE, DS:@DATA, SS:@DATA, ES:NOTHINGã;----------------------------------------------------------------ã;Sets a point in the 320x200x256 mode.ãEVENãPUBLIC SetPointãPROC SetPointãXp EQU <[bx+8]>ãYp EQU <[bx+6]>ãC EQU <[bx+4]>ãP = 3ã Mov ax, 0A000hã Mov es, axã Mov bx, spã Mov ax, Cã Mov di, Xpã Mov bx, Ypã Shl bx, 1ã Add di, (bx + LookUp)ã Stosbã Retf P * 2ãENDP SetPointã;----------------------------------------------------------------ã;Grabs a point's color in the 320x200x256 mode.ãEVENãPUBLIC GetPointãPROC GetPointãXp EQU <[bx+6]>ãYp EQU <[bx+4]>ãP = 2ã Mov ax, 0A000hã Mov es, axã Mov bx, spã Mov si, Xpã Mov bx, Ypã Shl bx, 1ã Add si, (bx + LookUp)ã Xor ax, axã Lods [byte es:si]ã Retf P * 2ãENDP GetPointã;----------------------------------------------------------------ã;Seeds the psuedo-random number generator.ãPUBLIC SeedRandãPROC SeedRandãNewSeedH EQU <[bx+6]>ãNewSeedL EQU <[bx+4]>ãP = 2ã Mov bx, spã Mov ax, NewSeedLã Mov (RandSeed), axã Mov ax, NewSeedHã Mov (RandSeed + 2), axã Retf P * 2ãENDP SeedRandã;----------------------------------------------------------------ã;Returns psuedo-random number between 0 and MaxVal-1.ãEVENãPUBLIC GetRandãPROC GetRandãMaxVal EQU <[word bx+4]>ãP = 1ã Mov ax, (RandSeed)ã Mov bx, (RandSeed + 2)ã Mov cx, axã Mov dx, 08405hã Mul dxã Shl cx, 3ã Add ch, clã Add dx, cxã Add dx, bxã Shl bx, 1ã Shl bx, 1ã Add dx, bxã Add dh, blã Shl bx, 5ã Add dh, blã Add ax, 1ã Adc dx, 0ã Mov (RandSeed), axã Mov (RandSeed + 2), dxã Mov bx, spã Mov cx, dxã Mul MaxValã Mov ax, cxã Mov cx, dxã Mul MaxValã Add ax, cxã Adc dx, 0ã Mov ax, dxã Retf P * 2ãENDP GetRandã;----------------------------------------------------------------ãENDãã'---------------8<-----[ End PLASMA.ASM ]----->8---------------ã ã'That's all! Although I haven't timed my plasma implementation againstã'the one posted here a few days ago, it's visually faster on my 286/10.ããSteve Demo PALETTE STUFF PALETTE,STUFF 10/10/93 (00:00) QB, QBasic, PDS 58 2126 PALSTUFF.BASDEFINT A-ZãDECLARE SUB SetPalette ()ãSCREEN 13ãFOR x = 0 TO 255ã LINE (x + 20, 10)-(x + 20, 180), xãNEXT xãLOCATE 1, 12: PRINT "Press any Key": a$ = INPUT$(1)ãLOCATE 1, 10: PRINT SPACE$(18)ãFOR j = 1 TO 6ã PALETTE: SOUND 30000, 14ã SetPaletteã SOUND 30000, 14ãNEXT jãSetPaletteãDO UNTIL LEN(INKEY$)ã LOCATE 1, 10: PRINT "Now that's Simple"ã LOCATE 24, 10: PRINT SPACE$(18); : SOUND 30000, 4ã LOCATE 1, 10: PRINT SPACE$(18)ã LOCATE 24, 10: PRINT "Now that's Simple"; : SOUND 30000, 4ãLOOPãSCREEN 0: WIDTH 80ãã'This program was created by PAL2CODE (c) 1993 SRD SoftWareãSUB SetPaletteãREDIM F(768)ãF$ = "#####M#M##MMM##M#MM8#MMM88888b8b88bbb88b8bbb8bbb": GOSUB MKPLTãF$ = "+++...222555999===@@@DDDHHHKKKOOOSSSVVVZZZ^^^bbb3": GOSUB MKPLTãF$ = "##8##=##?&&B**E--H11K55N88Q< MaxX THEN 'are we too far?ã LINE (Minx, y)-(MaxX, y), 0 'a pacifier for impatient usersã x = Minx 'go back to startã y = y + 1 'increment Y coordinateã IF y > MaxY THEN 'are we too far down?ã Done = True ' yup, flag it thenã END IFã END IFãEND FUNCTIONãã'ã'-----------------------------------------------------------------------------ã' PDS 7.1 & QB4.5 GIF Compression Routine v1.00 By Rich Geldreich 1992ã'-----------------------------------------------------------------------------ã'ã'A$ = output filenameã'ScreenX = X resolution of screen(320, 640, etc.)ã'ScreenY = Y resolution of screen(200, 350, 480, etc.)ã'XStart = <-upper left hand corner of area to encodeã'YStart = < " "ã'Xend = <-lower right hand corner of area to encodeã'Yend = < " "ã'NumColors = # of colors on screen(2, 16, 256)ã'AdaptorType = 1 for EGA 2 for VGAã'NOTE: EGA palettes are not supported in this version of MakeGIF.ã'ãSUB MakeGIF (A$, ScreenX, ScreenY, Xstart, YStart, Xend, Yend, NumColors, AdaptorType)ã 'hash table's size - must be a prime number!ã CONST Table.Size = 7177ãã DIM Prefix(Table.Size - 1), Suffix(Table.Size - 1), Code(Table.Size - 1)ã ã 'The shift table contains the powers of 2 needed by theã 'PutCode routine. This is done for speed. (much faster toã 'look up an integer than to perform calculations...)ã RESTORE ShiftTableã FOR A = 0 TO 7: READ Shift(A): NEXTã ã 'MinX, MinY, MaxX, MaxY have the encoding windowã Minx = Xstart: MinY = YStartã MaxX = Xend: MaxY = Yendã ã 'Open GIF output fileã GIFFile = FREEFILE 'use next free fileã OPEN A$ FOR BINARY AS GIFFileã ã 'Put GIF87a header at beginning of fileã B$ = "GIF87a"ã PUT GIFFile, , B$ã ã 'See how many colors are in this image...ã SELECT CASE NumColorsã CASE 2 'monochrome imageã BitsPixel = 1 '1 bit per pixelã StartSize = 3 'first LZW code is 3 bitsã StartCode = 4 'first free codeã StartMax = 8 'maximum code in 3 bitsãã CASE 16 '16 colors imagesã BitsPixel = 4 '4 bits per pixelã StartSize = 5 'first LZW code is 5 bitsã StartCode = 16 'first free codeã StartMax = 32 'maximum code in 5 bitsã ã CASE 256 '256 color imagesã BitsPixel = 8 '8 bits per pixelã StartSize = 9 'first LZW code is 9 bitsã StartCode = 256 'first free codeã StartMax = 512 'maximum code in 9 bitsã END SELECTã 'This following routine probably isn't needed- I've neverã 'had to use the "ColorBits" variable... With the EGA, youã 'have 2 bits for Red, Green, & Blue. With VGA, you have 6 bits.ã SELECT CASE AdaptorTypeã CASE 1ã ColorBits = 2 'EGAã CASE 2ã ColorBits = 6 'VGAã END SELECTã ã PUT GIFFile, , ScreenX 'put screen's dimensionsã PUT GIFFile, , ScreenYã 'pack colorbits and bits per pixelã A = 128 + (ColorBits - 1) * 16 + (BitsPixel - 1)ã PUT GIFFile, , Aã 'throw a zero into the GIF fileã A$ = CHR$(0)ã PUT GIFFile, , A$ã 'Get the RGB palette from the screen and put it into the file...ã SELECT CASE AdaptorTypeã CASE 1ã STOPã 'EGA palette routine not implemented yetã CASE 2ã OUT &H3C7, 0ã FOR A = 0 TO NumColors - 1ã 'Note: a BIOS call could be used here, but then we have to useã 'the messy CALL INTERRUPT subs...ã R = (INP(&H3C9) * 65280) \ 16128 'C=R * 4.0476190(for 0-255)ã G = (INP(&H3C9) * 65280) \ 16128ã B = (INP(&H3C9) * 65280) \ 16128ã A$ = CHR$(R): PUT GIFFile, , A$ã A$ = CHR$(G): PUT GIFFile, , A$ã A$ = CHR$(B): PUT GIFFile, , A$ã NEXTã END SELECTã ã 'write out an image descriptor...ã A$ = "," '"," is image seperatorã PUT GIFFile, , A$ 'write itã PUT GIFFile, , Minx 'write out the image's locationã PUT GIFFile, , MinYã ImageWidth = (MaxX - Minx + 1) 'find length & width of imageã ImageHeight = (MaxY - MinY + 1)ã PUT GIFFile, , ImageWidth 'store them into the fileã PUT GIFFile, , ImageHeightã A$ = CHR$(BitsPixel - 1) '# bits per pixel in the imageã PUT GIFFile, , A$ã ã A$ = CHR$(StartSize - 1) 'store the LZW minimum code sizeã PUT GIFFile, , A$ã ã 'Initialize the vars needed by PutCodeã CurrentBit = 0: Char& = 0ã ã MaxCode = StartMax 'the current maximum code sizeã CodeSize = StartSize 'the current code sizeã ClearCode = StartCode 'ClearCode & EOF code are theã EOFCode = StartCode + 1 ' first two entriesã StartCode = StartCode + 2 'first free code that can be usedã NextCode = StartCode 'the current codeã ã OutBuffer$ = STRING$(5000, 32) 'output buffer; for speedy disk writesã A& = SADD(OutBuffer$) 'find address of bufferã A& = A& - 65536 * (A& < 0)ã Oseg = VARSEG(OutBuffer$) + (A& \ 16) 'get segment + offset >> 4ã OAddress = A& AND 15 'get address into segmentã OEndAddress = OAddress + 5000 'end of disk bufferã OStartAddress = OAddress 'current location in disk bufferã DEF SEG = Osegãã GOSUB ClearTree 'clear the tree & output aã PutCode ClearCode ' clear codeã ã x = Xstart: y = YStart 'X & Y have the current pixelã Prefix = GetByte 'the first pixel is a special caseã Done = False 'True when image is completeã ã DO 'while there are more pixels to encode ãã DO 'until we have a new string to put into the tableãã IF Done THEN 'write out the last pixel, clear the disk bufferã 'and fix up the last block so its count is correctã ã PutCode Prefix 'write last pixelã PutCode EOFCode 'send EOF codeã ã IF CurrentBit <> 0 THENã PutCode 0 'flush out the last code...ã END IFã PutByte 0ãã OutBuffer$ = LEFT$(OutBuffer$, OAddress - OStartAddress)ã PUT GIFFile, , OutBuffer$ã A$ = ";" + STRING$(8, &H1A) 'the 8 EOF chars is not standard,ã 'but many GIF's have them, so howã 'much could it hurt?ã PUT GIFFile, , A$ã ã A$ = CHR$(255 - BlockLength) 'correct the last block's countã PUT GIFFile, LastLoc&, A$ã ã CLOSE GIFFileã EXIT SUBã ELSE 'get a pixel from the screen and see if we can findã 'the new string in the tableã Suffix = GetByteã GOSUB Hash 'is it there?ã IF Found = True THEN Prefix = Code(Index) 'yup, replace theã 'prefix:suffix string with whateverã 'code represents it in the tableã END IFã LOOP WHILE Found 'don't stop unless we find a new stringã ã PutCode Prefix 'output the prefix to the fileã ã Prefix(Index) = Prefix 'put the new string in the tableã Suffix(Index) = Suffixã Code(Index) = NextCode 'we've got to keep track if what code this is!ã ã Prefix = Suffix 'Prefix=the last pixel pulled from the screenã ã NextCode = NextCode + 1 'get ready for the next codeã IF NextCode = MaxCode + 1 THEN 'can an output code ever exceedã 'the current code size?ã 'yup, increase the code sizeãã MaxCode = MaxCode * 2ã ã 'Note: The GIF89a spec mentions something about a deferred clearã 'code. When the clear code is deferred, codes are not enteredã 'into the hash table anymore. When the compression of the imageã 'starts to fall below a certain threshold, the clear code isã 'sent and the hash table is cleared. The overall result isã 'greater compression, because the table is cleared less often.ã 'This version of MakeGIF doesn't support this, because some GIFã 'decoders crash when they attempt to enter too many codesã 'into the string table.ãã IF CodeSize = 12 THEN 'is the code size too big?ã PutCode ClearCode 'yup; clear the table andã GOSUB ClearTree 'start overã NextCode = StartCodeã CodeSize = StartSizeã MaxCode = StartMaxããã ELSEã CodeSize = CodeSize + 1 'just increase the code size ifã END IF 'it's not too high( not > 12)ã END IFã ã LOOP 'while we have more pixelsãClearTree: ã FOR A = 0 TO Table.Size - 1 'clears the hashing tableã Prefix(A) = -1 '-1 = invalid entryã Suffix(A) = -1ã Code(A) = -1ã NEXTãRETURNã'this is only one of a plethora of ways to search the table forã'a match! I used a binary tree first, but I switched to hashingã'cause it's quicker(perhaps the way I implemented the tree wasn'tã'optimal... who knows!)ãHash:ã 'hash the prefix & suffix(there are also many ways to do this...)ã '?? is there a better formula?ã Index = ((Prefix * 256&) XOR Suffix) MOD Table.Sizeã 'ã '(Note: the table size(7177 in this case) must be a prime number, orã 'else there's a chance that the routine will hang up... hate whenã 'that happens!)ã 'ã 'Calculate an offset just in case we don't find what we want on theã 'first try...ã IF Index = 0 THEN 'can't have Table.Size-0 !ã Offset = 1ã ELSEã Offset = Table.Size - Indexã END IFã ã DO 'until we (1) find an empty entry or (2) find what we're lookin forã ã ã IF Code(Index) = -1 THEN 'is this entry blank?ã Found = False 'yup- we didn't find the stringã RETURNã 'is this entry the one we're looking for?ã ELSEIF Prefix(Index) = Prefix AND Suffix(Index) = Suffix THENã 'yup, congrats you now understand hashing!!!ã ã Found = Trueã RETURNã ELSEã 'shoot! we didn't find anything interesting, so we mustã 'retry- this is what slows hashing down. I could of usedã 'a bigger table, that would of speeded things up a littleã 'because this retrying would not happen as often...ã Index = Index - Offsetã IF Index < 0 THEN 'too far down the table?ã 'wrap back the index to the end of the tableã Index = Index + Table.Sizeã END IFã END IFã LOOPãEND SUBãã'Puts a byte into the GIF file & also takes care of each block.ãSUB PutByte (A) STATICã BlockLength = BlockLength - 1 'are we at the end of a block?ã IF BlockLength <= 0 THEN ' yup,ã BlockLength = 255 'block length is now 255ã LastLoc& = LOC(1) + 1 + (OAddress - OStartAddress) 'remember the pos.ã BufferWrite 255 'for later fixingã END IFã BufferWrite A 'put a byte into the bufferãEND SUBãã'Puts an LZW variable-bit code into the output file...ãSUB PutCode (A) STATICã Char& = Char& + A * Shift(CurrentBit) 'put the char were it belongs;ã CurrentBit = CurrentBit + CodeSize ' shifting it to its proper placeã DO WHILE CurrentBit > 7 'do we have a least one full byte?ã PutByte Char& AND 255 ' yup! mask it off and write it outã Char& = Char& \ 256 'shift the bit buffer right 8 bitsã CurrentBit = CurrentBit - 8 'now we have 8 less bitsã LOOP 'until we don't have a full byteãEND SUBããPeter Norton DETECT VIDEO CARD DETECT,VIDEO,CARD Unknown Date (00:00) QB, PDS 66 1821 GETVCARD.BASDECLARE FUNCTION GetVideoCard$ ()ããTYPE RegTypeã ax AS INTEGERã bx AS INTEGERã cx AS INTEGERã dx AS INTEGERã bp AS INTEGERã si AS INTEGERã di AS INTEGERã flags AS INTEGERãEND TYPEããDECLARE SUB INTERRUPT (IntNo AS INTEGER, InRegs AS RegType, OutRegs AS RegType)ãã CLSã PRINT "Your video card is a "; GetVideoCard$ããENDããFUNCTION GetVideoCard$ããREM This function returns a 3-letter string: "MDA" (monochrome adapter card)ãREM "CGA" (color graphics adapter), "EGA" (enhanced graphics adapter),ãREM "PGA" (professional graphics adapter), "VGA" (variable graphics array)ãã DIM InRegs AS RegType, OutRegs AS RegTypeã InRegs.ax = &H1A00ã CALL INTERRUPT(&H10, InRegs, OutRegs)ã IF (OutRegs.ax AND &HFF) = &H1A THENã Code = OutRegs.bx AND &HFFã SELECT CASE Codeã CASE 1ã GetVideoCard$ = "MDA"ã CASE 2ã GetVideoCard$ = "CGA"ã CASE 4 TO 5ã GetVideoCard$ = "EGA"ã CASE 6ã GetVideoCard$ = "PGA"ã CASE 7 TO 8ã GetVideoCard$ = "VGA"ã END SELECTã EXIT FUNCTIONã ELSEã InRegs.ax = &H1200ã InRegs.bx = &H10ã CALL INTERRUPT(&H10, InRegs, OutRegs)ã IF (OutRegs.bx AND &HFF) <> &H10 THENã GetVideoCard$ = "EGA"ã EXIT FUNCTIONã ELSEã InRegs.ax = &HF00ã CALL INTERRUPT(&H10, InRegs, OutRegs)ã IF (OutRegs.ax AND &HFF) = 7 THENã GetVideoCard$ = "MDA"ã EXIT FUNCTIONã ELSEã GetVideoCard$ = "CGA"ã EXIT FUNCTIONã END IFã END IFã END IFããEND FUNCTIONããRich Geldreich SCREEN COMPRESSION SCREEN,COMPRESSION 12/26/92 (00:00) PDS, VBDOS 577 25954 SP.BAS 'SCREEN 13 (320x200x256) Screen Compressor (SP1.BAS)ã'Public Domain By Rich Geldreich, December 26, 1992ã ã'Anyone may use this program in anything they want, as long as theã'original author(me, duh) is given credit where credit is due...ã'Thanks. I'd appreciate a little cash on the side if you make anyã'money off a product that uses this program... :-) If you make anyã'neat modifications/optimizations to this program or the ASM decoder,ã'I would really like to seem them!ã ã'Description:ã' This simple SCREEN 13 compression program uses an LZ77 variantã'to compress SCREEN 13 images. A FAST assembly subroutine is used toã'decompress the image back to the screen. The compression shouldã'always beat PCX, and should come fairly close or beat out GIF underã'most cases.ã'ã' The assembly decompressor's speed is several magnitudes fasterã'than the quickest GIF decoder I've seen, VPIC 5.1. (Look how simpleã'it is and you'll know why!) BTW- The output stage of this programã'was optimized for decoding speed, not for compression. Severalã'optimizations could be added to increase this program's compressionã'performance, such as entropy encoding on the distance & lengthã'tokens(which would slow the decoder down immensely), increasing theã'sizes of the sliding dictionary and look ahead buffers, and furtherã'optimizing the non-greedy aspect of this LZ77 implementation toã'choose the best character/match combinations to store in the outputã'stream.ã'ã' The assembly subroutine is for 286's and above, only. Thisã'program does NOT work under QuickBASIC, only PDS and VB/DOS becauseã'of the use of BYVAL.ã'ã' Any questions, cash/and or death threats call me atã'(609)-742-8752 2:30pm - 11:30pm eastern time or send a selfã'addressed stamped evelope (SASE) to:ã'ã' Rich Geldreichã' 410 Market St.ã' Gloucester City, NJ 08030ã'ã'Possible uses of this program: Use a GIF or PCX converter(or SHELLã'out to VPIC) to display the image you want to use in yourã'application on SCREEN 13. Then encode the image with this program.ã'You can then instantly recall the image using the fast Decom13ã'assembly language subroutine.ããDEFINT A-Zã'Declaration for the assembly decompressor. If the area of memoryã'passed does not start with "RG", the compressed image's signature,ã'then this routine will just return without doing anything. Thisã'prevents your machine from hanging when you pass it a bum pointer.ããDECLARE SUB Decom13 (BYVAL InSegment, BYVAL InOffset)ã ãCONST True = -1, False = 0ã'A larger buffer size would surely increase compression.ãCONST BufferSize = 4096, HashSize = 4096ãCONST Null = BufferSize, Threshold = 2, MaxMatch = 273ãCONST MaxCompares = 300 'Controls compression ratio vs. speedã ã'Arrays for LZ77 style compression with multiple linked listsãDIM SHARED RingBuffer((BufferSize + MaxMatch - 1) - 1)ãDIM SHARED NextCell((BufferSize + HashSize + 1) - 1)ãDIM SHARED LastCell((BufferSize + HashSize + 1) - 1)ã'Temp. holding buffer for compression tokensãDIM SHARED CodeBuffer(16 * 3 - 1)ã ã'Misc. stuffãDIM SHARED DoneFlag, xp, yp, xl, yl, xh, yhãDIM SHARED Match.Length, Match.Position, Match.DistanceãDIM SHARED IOBuffer$, IOPointerãDIM SHARED CodePointer, CodeCounter, OrMask AS LONG, BitAccum AS LONGã ãSCREEN 13ã ã'**COMPRESSION EXAMPLE**ãRANDOMIZE TIMERãFOR a = 1 TO 100 'draw us some garbageã x = RND * 319: y = RND * 199: c = RND * 255ãã CIRCLE (x, y), RND * 60, c: PAINT (x, y), RND * 255, cãNEXTãFOR a = 1 TO 200: LINE -(RND * 319, RND * 199), RND * 255: NEXTãCompress13 "coolfile.bci" 'compress the screen to coolfile.bciã ã'**DECOMPRESSION EXAMPLE**ã'Allocate 64,000 bytes for a worst case scenario, decrease this ofã'course to match the image's compressed size in bytes...ãREDIM image(32000): DEF SEG = VARSEG(image(0))ãBLOAD "coolfile.bci", VARPTR(image(0)) 'Load the compressed data.ã ãPRINT "Press a key to decompress.": B$ = INPUT$(1): SCREEN 13ã ã'Call the asm routine to decompress the image.ãDecom13 VARSEG(image(0)), VARPTR(image(0)): B$ = INPUT$(1)ã ã'Compresses a SCREEN 13 image to a BLOADable file. Use the ASM subã'Decom13 to decompress the image back to the screen. This routineã'currently crawls, because I didn't optimize it that much.ã'The entire palette is also saved to the compressed file,ãSUB Compress13 (F$)ã OPEN F$ FOR OUTPUT AS #1: CLOSE : OPEN F$ FOR BINARY AS #1ã 'Store the BLOAD header and image signature.ã a$ = CHR$(&HFD) + CHR$(0) + CHR$(&HA0) + STRING$(4, 0) + "RG"ã PUT #1, , a$ã 'Initialize a 4k disk output bufferã IOBuffer$ = SPACE$(4096): IOPointer = 1ã CodePointer = 0: CodeCounter = 0: OrMask = 1: BitAccum = 0ã 'Write the screen's palette.ã OUT &H3C7, 0: FOR a = 0 TO 767: WriteByte INP(&H3C9): NEXTã ã DoneFlag = False: xl = 0: yl = 0: xh = 319: yh = 199ã xp = xl: yp = yl 'coordinate of next point to compressã ã InitRingBuffer 'clear the ring bufferã InitLZ77 'initialize the linked list poolã 'prime the look ahead bufferã S = 0: R = BufferSize - MaxMatchã FOR LookAheadLength = 0 TO MaxMatch - 1ã IF DoneFlag THENã EXIT FORã ELSEã RingBuffer(R + LookAheadLength) = GetPixelã END IFã NEXTã 'find first stringã FindString Rã DOã 'if match too small(less than 3 chars), the just outputã 'a single characterã IF Match.Length <= Threshold THENã OutputChar RingBuffer(R): Last.Match.Length = 1ã ELSEã 'output a string match tokenã Last.Match.Length = Match.Lengthã 'Send the match's distance, instead of its position inã 'the ring buffer, because the decompressor is not using aã 'ring buffer to store the decompressed data.ã Match.Distance = (R - Match.Position) AND (BufferSize - 1)ã OutputMatchã END IFã 'prime the look ahead buffer with more charactersã FOR a = 0 TO Last.Match.Length - 1ã IF DoneFlag THEN EXIT FOR 'exit this loop if no more charsã 'delete string at S, then store a new char at Sã DeleteString S: RingBuffer(S) = GetPixelã 'keep a "ghost buffer" at the end of the ring buffer toã 'avoid using a logical AND on all of our buffer pointersã IF S < (MaxMatch - 1) THENã RingBuffer(S + BufferSize) = RingBuffer(S)ã END IFã S = (S + 1) AND (BufferSize - 1)ã R = (R + 1) AND (BufferSize - 1)ã 'if not last time through loop then just add string to theã 'linked list pool, otherwise add it and find a matchã '(this could be optimized so the IF/THEN conditional isã 'removed from inside this loop)ã IF a = (Last.Match.Length - 1) THENã FindString Rã ELSEã MakeString Rã END IFã NEXTã FOR a = a TO Last.Match.Length - 1ã 'this loop is active when no more characters are availableã 'from the input streamã 'Kill string at S, not sure if this is needed becauseã 'we're not storing any characters in its place. I seeã 'no reason to do it, but this is one of those littleã 'quirks that all LZSS implementations I've seen have... ?ã ã DeleteString Sã S = (S + 1) AND (BufferSize - 1)ã R = (R + 1) AND (BufferSize - 1)ã LookAheadLength = LookAheadLength - 1ã IF LookAheadLength THENã IF a = (Last.Match.Length - 1) THENã FindString Rã ELSEã MakeString Rã END IFã ã 'Limit match length because the look ahead bufferã 'is growing smaller. This is another little oddityã 'I've seen amoung the LZSS compressors, they all doã 'this check outside this loop before they output aã 'character/match token... There's no reason toã 'check outside the loop because the string searchã 'function always limits the match length to theã 'look ahead buffer's size. We only check when theã 'look ahead buffer starts to get smaller.ã ã IF Match.Length > LookAheadLength THENã Match.Length = LookAheadLengthã END IFã END IFã NEXTã LOOP WHILE LookAheadLength 'loop while still more chars to encodeã OutputEOFã WriteFlushã 'get (compressed size)-headerã a& = LOF(1) - 7: SCREEN 0: WIDTH 80ã IF a& > 64000 THENã PRINT "Image could not be compressed."ã CLOSE #1: KILL F$ã ELSEã PRINT "Image compressed to"; a&; "bytes."ã IF a& > 32767 THEN a& = a& - 65536ã 'store the compressed size so BLOAD loads everything inã a = a&: PUT #1, 6, a: CLOSE #1ã END IFãEND SUBã ã'Deletes the string at S from the linked list pool.ãSUB DeleteString (BYVAL S)ã NextCell = NextCell(S): LastCell = LastCell(S)ã NextCell(LastCell) = NextCell: LastCell(NextCell) = LastCellã NextCell(S) = NullãEND SUBã ã'Attempts to find a match at R+1 that is larger than the match foundã'at R, to get rid of some of the encoder's "greedy" characteristics.ãFUNCTION FindAlternate (BYVAL R, BYVAL MatchLength)ã B1 = RingBuffer(R): B2 = RingBuffer(R + 1): B3 = RingBuffer(R + 2)ã 'hash out the first three characters of the string to locateã P = (BufferSize + 1) + ((B1 * 14096& XOR B2 * 77 XOR B3) MOD HashSize)ã MatchChar = RingBuffer(R + MatchLength)ã FOR x = 1 TO MaxComparesã P = NextCell(P) 'traverse linked list P for a matchã 'if we struck bottom then search failedã IF P = Null THEN FindAlternate = False: EXIT FUNCTIONã 'compare string P to string Rã IF RingBuffer(P) = B1 AND RingBuffer(P + 1) = B2 AND RingBuffer (P + 2) = B3 AND RingBuffer(P + MatchLength) = MatchChar THENã FOR SearchLength = 3 TO (MaxMatch - 1) - 1ã IF RingBuffer(R + SearchLength) <> RingBuffer(P + SearchLength) THEN EXIT FORã NEXTã 'if we find a longer match then exit with successã IF SearchLength > MatchLength THEN FindAlternate = True: EXIT FUNCTIONã END IFã NEXTã FindAlternate = FalseãEND FUNCTIONã ã'Attempts to locate a match in the linked list pool for R. Mostã'other LZ77/LZSS implementations I've seen use a binary tree toã'locate string matches. In this implementation, I use a pool ofã'linked lists to locate strings. Each linked list contains stringsã'which all start with the same 3 characters. (Well, usually. Sinceã'hash collisions can occur, sometimes a linked list contains two orã'more different strings. This isn't cool, and can't be eliminatedã'unless another approach to collision handling is used.)ã'ã' To locate a string, its linked list is located through a simpleã'hashing formula(which was home brewed, BTW, so it may not be thatã'optimal), and then each string in the list is compared against ourã'target string until we either find a string which matches perfectlyã'or the "bombout" variable is decremented to zero. The bombout rateã'defines the number of string compares which may be performed untilã'the algorithm stops searching and settles with what it has. Thisã'decreases compression slightly, but greatly increases compressionã'speed, especially when the input stream contains large runs ofã'repeated data. (ARJ adjusts its bombout rate with command lineã'options: options -m4 to -m0 vary the number of compares it doesã'against its string directionary, therefore "dialing" in compressionã'speed vs. compression ratio. PKZIP 1.93a does this also.ã'Normally, PKZIP 1.93a will set its bombout rate to 50 compares. Theã'Continued on page 4ãã'-s option brings this down to 10-7 compares(can't remember exactly),ã'and the -ex option increases the bombout rate to 500 compares.ã'Obviously, the -ex option slows down PKZIP 1.93a because it can doã'up to ten times more string compares than usual.)ã'ã' One optimization that I have not seen anywhere yet speeds up theã'string search by skipping strings which can't possibly be largerã'than the largest string found up to that point...ã'ã' For instance, let's say we are searching for the string "theã'president eats peanuts". Let's also say the largest match we'veã'found so far is "the president ", or 14 characters. The next stringã'to compare against our target is "the president finds coolness inã'compression". Since the whole point of searching is to look for theã'largest match, there's no use in doing a whole string compare if theã'match will be smaller/equal to our current match. A quick compareã'of the character that must match for the match length to be largerã'will tell us if the string *may* be larger. If the characterã'matches, we must do the compare. If it doesn't, then there is noã'use in doing the string compare because the match cannot possibly beã'longer. Since the 15th character of our target string is "e", andã'the 15th character of our search string is "f", it can instantly beã'discarded because the match cannot possibly be larger than 14ã'characters. This especially speeds up the search when large stringã'matches are found in the input stream(such as in text files). Andã'since the optimization is relatively trivial, it shouldn't slow downã'the string search loop much at all when input stream is not veryã'compressable.ã'ã' Finally, using the linked list pool to find string matches makesã'finding the closest AND longest match very simple(finding theã'closest match aids entropy encoding in attaining more compressionã'because it can favor close matches over far ones). Since newã'strings are always inserted as the first string in its pool, theã'entire list is already sorted in order of distance from our currentã'position in the ring buffer.ãSUB FindString (BYVAL R)ã B1 = RingBuffer(R): B2 = RingBuffer(R + 1): B3 = RingBuffer(R + 2)ã 'hash the first 3 characters of the string to findã LinkHead = (BufferSize + 1) + ((B1 * 14096& XOR B2 * 77 XOR B3) MOD HashSize)ã Match.Length = 0: MatchChar = B1: P = LinkHeadã FOR x = 1 TO MaxCompares 'MaxCompares is the bombout rateã 'traverse linked list P for matchã P = NextCell(P): IF P = Null THEN EXIT FORã 'If first 3 characters match, and the character atã 'P+MatchLength=R+MatchLength, then compare strings.ã IF RingBuffer(P) = B1 AND RingBuffer(P + 1) = B2 AND RingBuffer (P + 2) = B3 AND RingBuffer(P + Match.Length) = MatchChar THENã FOR SearchLength = 3 TO (MaxMatch - 1) - 1ã IF RingBuffer(R + SearchLength) <> RingBuffer(P + SearchLength) THEN EXIT FORã NEXTã 'if matchsize=maxmatch then take it and runã '(MaxMatch-1) because our look ahead buffer is oneã 'character longer than the maximum match length.ã IF SearchLength >= (MaxMatch - 1) THENã Match.Length = (MaxMatch - 1)ã Match.Position = Pã EXIT FORã END IFã 'if we find a longer match then take itã IF SearchLength > Match.Length THENã Match.Length = SearchLengthã Match.Position = Pã MatchChar = RingBuffer(R + Match.Length)ã END IFã END IFã NEXTã 'make the new string the first entry in its linked list poolã 'so we always find the closest matchã a = NextCell(LinkHead): NextCell(LinkHead) = Rã LastCell(a) = R: LastCell(R) = LinkHead: NextCell(R) = aã 'Attempt to find a longer match at R+1. If there is a longerã 'match, then set the match length to zero so the current matchã 'is ignored.ã IF (Match.Length <> 0) AND (Match.Length <> (MaxMatch - 1)) THENã IF FindAlternate(R + 1, Match.Length) THEN Match.Length = 0ã END IFãEND SUBã ã'Returns one pixel from the display.ãFUNCTION GetPixelã GetPixel = POINT(xp, yp): xp = xp + 1ã IF xp > xh THENã LINE (xl, yp)-(xh, yp), 0ã xp = xl: yp = yp + 1: DoneFlag = yp > yhã END IFãããEND FUNCTIONã ã'Initializes the linked list pool arraysã'Page 5 of ENCODE13.BAS begins here.ãSUB InitLZ77ã FOR a = 0 TO (BufferSize + 1 + HashSize) - 1ã NextCell(a) = Null: LastCell(a) = Nullã NEXTãEND SUBã ã'Initializes the ring buffer.ãSUB InitRingBufferã FOR a = 0 TO BufferSize - MaxMatch - 1: RingBuffer(a) = 0: NEXTãEND SUBã ã'Stores the string at R into its linked list without scanning for aã'match.ãSUB MakeString (BYVAL R)ã LinkHead = (BufferSize + 1) + ((RingBuffer(R) * 14096& XOR _ãRingBuffer(R + 1) * 77 XOR RingBuffer(R + 2)) MOD HashSize)ã a = NextCell(LinkHead): NextCell(LinkHead) = R: LastCell(a) = Rã LastCell(R) = LinkHead: NextCell(R) = aãEND SUBã ã'Stores an uncompressed character and its flag to the output codeã'buffer.ãSUB OutputChar (BYVAL a)ã OrMask = OrMask * 2 'send a binary 0ã CodeBuffer(CodePointer) = a 'store the characterã CodeCounter = CodeCounter + 1ã IF CodeCounter = 16 THEN 'if 16 codes the write 'em outã 'write the bit flagsã WriteByte BitAccum AND 255: WriteByte BitAccum \ 256ã 'write the codesã FOR a = 0 TO CodePointer: WriteByte CodeBuffer(a): NEXTã CodePointer = 0: CodeCounter = 0: OrMask = 1: BitAccum = 0ã ELSEã CodePointer = CodePointer + 1ã END IFãEND SUBã ã'Writes an EOF code to the output code bufferãSUB OutputEOFã BitAccum = BitAccum OR OrMaskã CodeBuffer(CodePointer) = 15ã CodeBuffer(CodePointer + 1) = 0: CodeBuffer(CodePointer + 2) = 255ã WriteByte BitAccum AND 255: WriteByte BitAccum \ 256ã FOR a = 0 TO CodePointer + 2: WriteByte CodeBuffer(a): NEXTãEND SUBã ã'Outputs a match and its flag to the output code buffer.ãSUB OutputMatchã BitAccum = BitAccum OR OrMask: OrMask = OrMask * 2ã 'Favor short matches(3-17 characters).ã IF Match.Length < 18 THENã CodeBuffer(CodePointer) = (Match.Length - (Threshold + 1)) ORã_ã(Match.Distance AND &HF) * 16ã CodeBuffer(CodePointer + 1) = Match.Distance \ 16ã CodePointer = CodePointer + 2ã ELSEã CodeBuffer(CodePointer) = 15 OR (Match.Distance AND &HF) * 16ã CodeBuffer(CodePointer + 1) = Match.Distance \ 16ã CodeBuffer(CodePointer + 2) = Match.Length - 18ã CodePointer = CodePointer + 3ã END IFã CodeCounter = CodeCounter + 1ã IF CodeCounter = 16 THENã WriteByte BitAccum AND 255: WriteByte BitAccum \ 256ã FOR a = 0 TO CodePointer - 1: WriteByte CodeBuffer(a): NEXTã CodePointer = 0: CodeCounter = 0: OrMask = 1: BitAccum = 0ã END IFãEND SUBã ã'Stores one byte into the disk output buffer, and flushes it when itã'is full.ãSUB WriteByte (BYVAL a)ã MID$(IOBuffer$, IOPointer, 1) = CHR$(a)ã IOPointer = IOPointer + 1ã IF IOPointer = 4097 THEN 'if buffer full then flushã PUT #1, , IOBuffer$: IOPointer = 1ã END IFãEND SUBã ã'Flushes the disk output buffer.ãSUB WriteFlushã IOBuffer$ = LEFT$(IOBuffer$, IOPointer - 1): PUT #1, , IOBuffer$ãEND SUBã ãã'---------8<----[ DECOM13.ASM begins here. ]---->8-------------ã;TASM v2.0 source code for DECOM13.OBJ. By Rich Geldreich, 1992ã;A LZ77 style sliding dictionary decompressor for SCREEN 13 images.ã.286 ;<-sorry 8088 & 8086 guys,ãIDEAL ;it's 1992 get a real CPU!ãMODEL SMALLãCODESEGãPUBLIC Decom13ãPROC Decom13ãINPTR EQU [dword ss:bp+6]ãP = 2ã Cld ;clear direction flagã Push bp ;setup stack frameã Mov bp, spã Push ds es si di ;preserve important regsã Lds si, INPTR ;get pointer from stackã Cmp [word ds:si], 'R'+'G'*256 ;is an image there?ã Je @@OK ;nopeã Jmp @@Exitã@@OK: Inc si ;get by signatureã Inc siã Mov [word cs:ISeg1+1], ds ;a little self modifying codeã Mov [word cs:ISeg2+1], ds ; can't hurt(I think).ã Jmp @@10 ;empty the prefetchã@@20: Mov dx, 03C4h ;sequencer registerã Mov al, 1 ;clocking mode registerã Out dx, alã Inc dxã In al, dxã Or al, 32 ;set screen off bitã Out dx, al ;go for screen disableã Mov dl, 0DAh ;wait for vertical retraceã@@30: In al, dxã And al, 8ã Jz @@30ã Mov dl, 0C8h ;dx=03C8hã Mov cx, 768 ;prepare to set the paletteã Xor al, al ;start at attribute 0ã Out dx, alã Inc dxã Rep Outsb ;output the paletteã Push 0A000h ;es=screen's segmentã Pop esã Xor di, di ;di=output offsetã Mov dx, di ;dx=# bits left in bitbufferãEVEN ;-decode loop starts here-ã@@MoreBits:ã Lodsw ;prime the bitbufferã Mov dl, 16 ;16 more bits nowã Mov bp, axã Shr bp, 1 ;character or match?ã Jc @@Match ;go for match if carry setãEVENã@@NoMatch:ã Movsb ;store one characterã@@MainLoop:ã Dec dx ;any more bits left?ã Jz @@MoreBits ;get more if notã Shr bp, 1 ;character of match?ã Jnc @@NoMatch ;go if character(carry=0)ã@@Match: ;-handles a string match-ã Lodsw ;get match length andã Mov cx, ax ; and distanceã Shr ax, 4 ;shift by the match lengthã Neg ax ;got -distance nowã Add ax, di ;ax=match positionã And cx, 0Fh ;get low 4 bytes for lengthã Add cl, 3 ;add in length thresholdã Cmp cl, 18 ;is this a big match?ã Je @@GetMore ;go get 1 more byte if soã Xchg ax, si ;save si and set si to matchã Mov bx, es ; positionã Mov ds, bx ;ds=es=0A000hã Rep Movsb ;copy the stringã Mov si, ax ;restore ds and siãISeg1: Mov ax, 09999h ;<--self modifying codeã Mov ds, axã Jmp @@MainLoop ;go againãEVENã@@GetMore:ã Mov bx, ax ;save match pos in bxã Xor ax, ax ;get one more byte forã Lodsb ; match lengthã Add cx, axã Cmp cx, 273 ;end of image code?ã Je @@Exit ;if so then doneã Xchg bx, si ;save si and set si to matchã'Continued on page 2ãã'Page 2 of DECOM13.ASM begins here.ã Mov ax, es ; posã Mov ds, ax ;ds=es=0A000hã Rep Movsb ;copy the dataã Mov si, bx ;restore ds and siãISeg2: Mov ax, 09999h ;<--self modifying codeã Mov ds, axã Jmp @@MainLoopã@@Exit: Mov dx, 03C5h ;turn screen back onã In al, dxã And al, NOT 32ã Out dx, alã Pop di si es ds bp ;exit back to callerã Retf P*2ã@@10: Jmp @@20ãENDP Decom13ãENDã'---------8<----[ DECOM13.ASM ends here. ]---->8-------------ããã ã Oops. Here is the OBJ for the assembly decoder:ã ãTo execute this script, save it to a file and type DEBUG < filenameãwhere "filename" is the name of this script file.ããE165"DECOM13.OBJ" 0ãE200".q..9EKNXxKPlAX9/BJHhXs5....IJbQWx46/BrQZpaMgJaQU.WJZ7rQdxaPU"ãE23D"6X9kY9WH..Edjf0dUl0YJqMjpKAnsGEHp2g6C...ZCHK8...U4W1..EVGdZA."ãE27A"E/TFJFMF3/1x2F3N7a5..Gk0U.12kMKm..3w3F/FJE2EIEI3YkMS..6/..2IE"ãE2B7".DM70.M.F57pHJ/pWOG..4wj.P/d1..E.5EIF1xIHlA1...UX6G...7O.F08h"ãE2F4".2...kTJ9mi54MpJ3Pb//mXI5Fr.df6.4NY9AuFS.s0XSU7.df6.uGw.k4Uv0"ãE331"lC1UsigOnC76ErymWQi.AUA.viEnv4O..u/nwzWLregEg6uFriQ7.7d8FbwFr"ãE36E"yQsruW65Au2QDq1QwUVz.U/D.Ut9/RFM7X1vsqnHuWkXPaNu6qfHBY9WxA.nu"ãE3AB".65MyF2.RFQcrA0gXMDDd9CDiNadXMjShuKw.gHmrizZL5wFL8H..dDrz2kN0"ãE3E8".EQ4I3.lSEJ.mfc....R"ãE100 B8 0 3C BA 65 1 33 C9 CD "!rC" BE 0 2 50 BD 7D 1 55 BF 88 90ãE117 "W3" DB B1 FA 8A F0 80 C1 6 32 E4 AC "<9v" 8 " 32751& THENã DAddr = DAddr - 32752& + Numã DSeg = DSeg + 2047ã DEF SEG = DSegã ELSEã DAddr = DAddr + Numã END IFãEND SUBããSUB HSRestoreScreen (ScreenFile$, X1, Y1, MonType, ScrNum)ã F = FREEFILEã OPEN ScreenFile$ FOR BINARY AS Fã IF LOF(F) = 0 THEN CLOSE F: EXIT SUBã SEEK F, LOF(F) - 1ã Z$ = " ": GET F, , Z$: NumScreens = CVI(Z$)ã REDIM Scrs(1 TO NumScreens) AS HSDefScrsTypeã SeekPos& = LOF(F) - LEN(Scrs(1)) * NumScreens - 1ã SEEK F, SeekPos&ã FOR i = 1 TO ScrNumã GET F, , Scrs(i)ã NEXTãã SEEK F, Scrs(ScrNum).Offsetã DimSize = Scrs(ScrNum).RLLBytes \ 4 + 1ã REDIM RLL&(1 TO DimSize)ã Z$ = " "ã FOR i = 1 TO DimSizeã GET F, , Z$: RLL&(i) = CVL(Z$)ã NEXTãã IF Scrs(ScrNum).ScrMode = 0 THEN WIDTH 80ã SCREEN Scrs(ScrNum).ScrModeã IF Scrs(ScrNum).ScrMode > 10 THENã SELECT CASE Scrs(ScrNum).ScrModeã CASE 11: NumPal = 2ã CASE 12: NumPal = 16ã CASE 13: NumPal = 256ã END SELECTã DIM Pal(1 TO NumPal) AS STRING * 3ã FOR i = 1 TO NumPalã GET F, , Pal(i)ã NEXTã DIM InRegs AS RegTypeXã DIM OutRegs AS RegTypeXã InRegs.AX = &H1012ã InRegs.BX = 0ã InRegs.CX = NumPalã InRegs.ES = VARSEG(Pal(1))ã InRegs.DX = VARPTR(Pal(1))ã CALL INTERRUPTX(&O10, InRegs, OutRegs)ã END IFã CLOSE Fãã DimSize = Scrs(ScrNum).ActualBytes \ 4 + 1ã REDIM Store&(1 TO DimSize)ãã ' Good candidate for assemblyã CALL HSRLLDeCompress(Store&(), RLL&(), Scrs(ScrNum).RLLBytes)ã ' Actually, the array could be decompressed directly to the screenã ' without the need for the incremental Store&() arrayãã IF X1 = 0 THEN X1 = Scrs(ScrNum).X1ã IF Y1 = 0 THEN Y1 = Scrs(ScrNum).Y1ã XDiff = Scrs(ScrNum).X2 - Scrs(ScrNum).X1ã YDiff = Scrs(ScrNum).Y2 - Scrs(ScrNum).Y1ã X2 = X1 + XDiffã Y2 = Y1 + YDiffãã IF Scrs(ScrNum).ScrMode > 0 THEN GOSUB RestoreGraphics: EXIT SUBãã IF MonType THEN TSeg = &HB800 ELSE TSeg = &HB000ãã FSeg = VARSEG(Store&(1)): FAddr = VARPTR(Store&(1))ãã ' Good candidate for assemblyã NumCols = X2 - X1ã FOR l = Y1 TO Y2ã Addr = (X1 - 1) * 2 + (l - 1) * 160ã FOR i = Addr TO Addr + (NumCols * 2) STEP 2ã DEF SEG = FSegã Char = PEEK(FAddr): FAddr = FAddr + 1ã DEF SEG = TSegã POKE i, Charã NEXTã NEXTã FOR l = Y1 TO Y2ã Addr = (X1 - 1) * 2 + 1 + (l - 1) * 160ã FOR i = Addr TO Addr + (NumCols * 2) STEP 2ã DEF SEG = FSegã Attr = PEEK(FAddr): FAddr = FAddr + 1ã DEF SEG = TSegã POKE i, Attrã NEXTã NEXTã EXIT SUBããRestoreGraphics:ã PUT (X1, Y1), Store&(1)ãRETURNãEND SUBãã ' Good candidate for assemblyãSUB HSRLLCompress (Store&(), RLL&(), ActualBytes&, RLLBytes&)ã RLLBytes& = 0&ã FSeg = VARSEG(Store&(1)): FAddr = VARPTR(Store&(1))ã TSeg = VARSEG(RLL&(1)): TAddr = VARPTR(RLL&(1))ã FOR i& = 1& TO ActualBytes&ã DEF SEG = FSegã Z = PEEK(FAddr)ã CALL HSIncAddr(FSeg, FAddr, 1)ã IF i& < ActualBytes& - 2 AND PEEK(FAddr) = Z AND PEEK(FAddr + 1) = Z AND PEEK(FAddr + 2) = Z THENã Num = 4ã i& = i& + 3ã CALL HSIncAddr(FSeg, FAddr, 3)ã DO UNTIL PEEK(FAddr) <> Z OR i& > ActualBytes&ã IF Num = 255 THEN EXIT DOã Num = Num + 1ã i& = i& + 1ã CALL HSIncAddr(FSeg, FAddr, 1)ã LOOPã RLLBytes& = RLLBytes& + 3ã DEF SEG = TSegã POKE TAddr, 0: CALL HSIncAddr(TSeg, TAddr, 1)ã POKE TAddr, Num: CALL HSIncAddr(TSeg, TAddr, 1)ã POKE TAddr, Z: CALL HSIncAddr(TSeg, TAddr, 1)ã ELSEIF Z = 0 THENã DEF SEG = TSegã POKE TAddr, 0: CALL HSIncAddr(TSeg, TAddr, 1)ã POKE TAddr, 0: CALL HSIncAddr(TSeg, TAddr, 1)ã RLLBytes& = RLLBytes& + 2ã ELSEã DEF SEG = TSegã POKE TAddr, Z: CALL HSIncAddr(TSeg, TAddr, 1)ã RLLBytes& = RLLBytes& + 1ã END IFãã NEXTã ERASE Store&ãEND SUBãã ' Good candidate for assemblyãSUB HSRLLDeCompress (Store&(), RLL&(), RLLBytes&)ã FSeg = VARSEG(RLL&(1)): FAddr = VARPTR(RLL&(1))ã TSeg = VARSEG(Store&(1)): TAddr = VARPTR(Store&(1))ã FOR i& = 1 TO RLLBytes&ã DEF SEG = FSegã Z = PEEK(FAddr): CALL HSIncAddr(FSeg, FAddr, 1)ã IF Z = 0 THENã Z = PEEK(FAddr): CALL HSIncAddr(FSeg, FAddr, 1)ã i& = i& + 1&ã IF Z = 0 THENã DEF SEG = TSegã POKE TAddr, Z: CALL HSIncAddr(TSeg, TAddr, 1)ã ELSEã Char = PEEK(FAddr): CALL HSIncAddr(FSeg, FAddr, 1)ã i& = i& + 1&ã DEF SEG = TSegã FOR j = 1 TO Zã POKE TAddr, Char: CALL HSIncAddr(TSeg, TAddr, 1)ã NEXTã END IFã ELSEã DEF SEG = TSegã POKE TAddr, Z: CALL HSIncAddr(TSeg, TAddr, 1)ã END IFã NEXTã ERASE RLL&ãEND SUBããSUB HSSaveScreen (ScreenFile$, X1, Y1, X2, Y2, MonType, ScrNum)ã F = FREEFILEã OPEN ScreenFile$ FOR BINARY AS Fã IF LOF(F) THENã SEEK F, LOF(F) - 1ã Z$ = " ": GET F, , Z$: NumScreens = CVI(Z$) + 1ã REDIM Scrs(1 TO NumScreens) AS HSDefScrsTypeã SeekPos& = LOF(F) - LEN(Scrs(1)) * (NumScreens - 1) - 1ã SEEK F, SeekPos&ã FOR i = 1 TO NumScreens - 1ã GET F, , Scrs(i)ã NEXTã ELSEã NumScreens = 1ã REDIM Scrs(1 TO NumScreens) AS HSDefScrsTypeã SeekPos& = 1ã END IFã ScrNum = NumScreensãã DEF SEG = 0: BIOSMode = PEEK(&H449): DEF SEGã SELECT CASE BIOSModeã CASE 3ã ScrMode = 0: NumBytes& = (X2 - X1 + 1) * 2 * (Y2 - Y1 + 1)ã CASE 4ã ScrMode = 1: BPP = 2: P = 1: GOSUB CalcBytesã CASE 6ã ScrMode = 2: BPP = 1: P = 1: GOSUB CalcBytesã CASE 13ã ScrMode = 7: BPP = 1: P = 4: GOSUB CalcBytesã CASE 14ã ScrMode = 8: BPP = 1: P = 4: GOSUB CalcBytesã CASE 16ã ScrMode = 9: BPP = 1: P = 4ã GOSUB CalcBytes ' P = 2 for 64K EGAã CASE 15ã ScrMode = 10: BPP = 1: P = 2: GOSUB CalcBytesã CASE 17ã ScrMode = 11: BPP = 1: P = 1ã GOSUB CalcBytes: NumPal = 2ã CASE 18ã ScrMode = 12: BPP = 1: P = 4ã GOSUB CalcBytes: NumPal = 16ã CASE 19ã ScrMode = 13: BPP = 8: P = 1ã GOSUB CalcBytes: NumPal = 256ã END SELECTãã DimSize = NumBytes& \ 4 + 1ã REDIM Store&(1 TO DimSize)ã TSeg = VARSEG(Store&(1)): TAddr = VARPTR(Store&(1))ã ActualBytes& = 0&ãã IF ScrMode > 0 THEN GOSUB GetGraphics: GOTO SaveItãã IF MonType THEN FSeg = &HB800 ELSE FSeg = &HB000ãã ' Good candidate for assemblyã NumCols = X2 - X1ã FOR l = Y1 TO Y2ã Addr = (X1 - 1) * 2 + (l - 1) * 160ã FOR i = Addr TO Addr + (NumCols * 2) STEP 2ã DEF SEG = FSegã Char = PEEK(i)ã DEF SEG = TSegã POKE TAddr, Charã TAddr = TAddr + 1ã ActualBytes& = ActualBytes& + 1&ã NEXTã NEXTã FOR l = Y1 TO Y2ã Addr = (X1 - 1) * 2 + 1 + (l - 1) * 160ã FOR i = Addr TO Addr + (NumCols * 2) STEP 2ã DEF SEG = FSegã Attr = PEEK(i)ã DEF SEG = TSegã POKE TAddr, Attrã TAddr = TAddr + 1ã ActualBytes& = ActualBytes& + 1&ã NEXTã NEXTããSaveIt:ã DimSize = ActualBytes& \ 4& + 4096 ' Extra 4K just in caseã REDIM RLL&(1 TO DimSize)ã CALL HSRLLCompress(Store&(), RLL&(), ActualBytes&, RLLBytes&)ãã Scrs(NumScreens).RLLBytes = RLLBytes&ã Scrs(NumScreens).ActualBytes = ActualBytes&ã Scrs(NumScreens).Offset = SeekPos&ã Scrs(NumScreens).X1 = X1ã Scrs(NumScreens).Y1 = Y1ã Scrs(NumScreens).X2 = X2ã Scrs(NumScreens).Y2 = Y2ã Scrs(NumScreens).ScrMode = ScrModeã Scrs(NumScreens).MonType = MonTypeãã FSeg = VARSEG(RLL&(1))ã FAddr = VARPTR(RLL&(1))ãã SEEK F, SeekPos&ãã SaveSize = RLLBytes& \ 4 + 1ã FOR i = 1 TO SaveSizeã Z$ = MKL$(RLL&(i))ã PUT F, , Z$ã NEXTãã IF ScrMode > 10 THENã DIM Pal(1 TO NumPal) AS STRING * 3ã DIM InRegs AS RegTypeXã DIM OutRegs AS RegTypeXã InRegs.AX = &H1017ã InRegs.BX = 0ã InRegs.CX = NumPalã InRegs.ES = VARSEG(Pal(1))ã InRegs.DX = VARPTR(Pal(1))ã CALL INTERRUPTX(&H10, InRegs, OutRegs)ã FOR i = 1 TO NumPalã PUT F, , Pal(i)ã NEXTã END IFãã FOR i = 1 TO NumScreensã PUT F, , Scrs(i)ã NEXTãã Z$ = MKI$(NumScreens): PUT F, , Z$ã CLOSE Fã EXIT SUBããGetGraphics:ã GET (X1, Y1)-(X2, Y2), Store&(1)ã ActualBytes& = NumBytes&ãRETURNãCalcBytes:ã N& = ((X2 - X1 + 1) * BPP): NumBytes& = N& \ 8 - ((N& MOD 8) > 0)ã NumBytes& = NumBytes& * P * (Y2 - Y1 + 1) + 4ãRETURNãEND SUBããCalvin French/Victor Yiu FAST SPRITE ROUTINE FidoNet QUIK_BAS Echo Year of 1993 ASM, QB, PDS 166 5812 SPRITES.BAS ' Here is the self-extracting script that makes a QuickBasic/PDS callableã' OBJect file containing Sprite manipulation code in assembly.ã' More information (source) on next page...ã'ã'>>> Page 1 of SPRITE.OBJ begins here. TYPE:BINAA TLEN:142ãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.1ãSUB V1:OPEN "O",1,"SPRITE.OBJ",4^6:Z&=142:?STRING$(50,177);ãU"&O-%+%xuwnIyjje%3%%)%htij%+uzg#qnhGAg,%/%n%'(4&+_5%%%&.%uzyx%uwãU"ny%j%%%)Uor%%&%%zGZeC%5&>E/K1%o]*9Zk3]4e&p3\ZM5O&#Z%(+Zs-kXDXvcãU"u%/9eC6y[WqXRPB>e&X0hoC.6dd_lu[$df2_.-D,,C1%*AY'%(%CãEND SUBãCLOSE:IF S=158AND 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ã'>>> Page 1 of SPRITE.OBJ ends here. Last page. TCHK:158ããã'Here's the rewritten code that does exactly yours should do.ã'I've included a sample program (posted after this message) to demonstateã'its capabilities (and what it should do). BTW, it is FAST. (At leastã'fast enough on a 286 to be acceptable.) It is on par with games fromã'Apogee (DUKE Nukem, Cosmo's Adventure's...)!ãã'BTW -- it is twice as fast as PUT (XOR/OR), but half the speed as PUTã'(PSET).ãã'Performance on 100x100x256 sprites:ã' 10MHz 8088: 7 updates per second <--- pretty acceptable, consideringã' 34MHz 80486: 150 updates per second what it is...ãã;=================================================================ã; SimpleSprite v1.1 (SSPRITE.ASM) A simple sprite routineã; in asm to overlay GET format images.ã;ã; Calvin French, 1993 Victor Yiu, 2,348 B.C.ã; Released into the Public Domainã;ã; NOTE: This routine handles sprites of all sizes *****ã;ã; DECLARE SUB PutSprite (BYVAL x%, BYVAL y%, BYVAL imgseg%, BYVALimgoff%,_ã; BYVAL imgWid%, BYVAL imgHei%)ããCODE SEGMENT PARA 'PUBLIC'ã PUBLIC PutSpriteã ASSUME CS:CODE, DS:nothing, ES:nothing, SS:nothingããBytesPerLine EQU 320 ; ****** CHANGE to other number is neededã ; defaults to 320, for 320x200x256 res.ãPutSprite PROC FARã PUSH BP ã MOV BP, SP ;set up stack frameã PUSH DSã PUSH SIã PUSH DI ; save BASIC's needed registersãã LDS SI, WORD PTR SS:[BP+10] ; very fast segment/offset loadingã ; using LES/DSã MOV AX, 0A000hã MOV ES, AX ; set up vid. mem. addr.ãã MOV AX, SS:[BP+14] ; get Y addressã MOV BX, 320 ; *320ã MUL BXã MOV DI, SS:[BP+16] ; put X in SIã ADD DI, AX ; add rest -- result in SIãã MOV DX, SS:[BP+6] ; put height in DXã MOV CX, SS:[BP+8] ; put width in CXã MOV BX, CX ; save it in BX (width)ã MOV BP, DI ; save screen pointer to BPãã CLD ; look into the futureãã ; ============== main stuff startsãEVENãNewPixel:ã LODSB ; get byte [DS:SI] -> ALã OR AL, AL ; set flagsã JZ Skip ; if zero (lesser common case), then jumpã ; Jumping eats processor time and is BAD.ã STOSB ; if not, write byteã LOOP NewPixel ; next loopãEVENãEndOfLine: ; fell out of loop (end of line)ã MOV CX, BX ; reset count for next loopã ADD BP, BytesPerLine; increment next screen lineã MOV DI, BP ; place offset into DIã DEC DX ; reduce heightã JZ OttaHere ; finished? YES!ã JMP SHORT NewPixel ; nope -- continue...ãEVENãSkip: ; goes here to skip pixelã INC DI ; skip byte (don't do anything)ã LOOP NewPixel ; next pix.ã JMP SHORT EndOfLine ; if end of loop, jump to handlerãã ; ============== closing procedureãEVEN ãOttaHere:ã POP DI ; restore registersã POP SIã POP DSã POP BPã RET 12 ; and remove 12 bytes of passed params.ãPutSprite ENDP ; from stackã CODE ENDSãENDãããã'Here's the DEMOnstration program I made to show how FAST it is.ã'BTW -- the asm., although acceptably fast, used jumps and no-in-lineã'code. I don't know another way of doing it... Good news is .. IT WORKS!ãã'Here it goes:ã' ========================ãDEFINT A-ZããDECLARE SUB PutSprite (BYVAL x%, BYVAL y%, BYVAL imgseg%, BYVAL imgoff%, BYVAL imgWid%, BYVAL imgHei%)ãDIM ScreenCut%(5102) '100x100x256ãDIM ScreenCut2%(5102)ããSCREEN 13ããCLSãRANDOMIZE TIMERãFOR Z = 1 TO 50 STEP 3 ' make demo image to pasteã CIRCLE (50, 50), Z, Z + 16, , , 1.1ãNEXTããGET (0, 0)-STEP(100, 100), ScreenCut%ãLOCATE 15, 1ãPRINT "100x100x256 Color Circle"ãPRINT "saved into memory."ãPRINT : PRINT "Press any key to change backgrounds"ãPRINT "and print sprite."ãDO: LOOP UNTIL LEN(INKEY$)ããCLSãLINE (0, 0)-(319, 100), 5, BFãPutSprite x, 0, VARSEG(ScreenCut(0)), VARPTR(ScreenCut(0)) + 4, 101,101ãLOCATE 15, 1ãPRINT "WOW! Notice it DIDN'T destory the"ãPRINT "background!"ãPRINT : PRINT "Press a key to something cool!"ãDO: LOOP UNTIL LEN(INKEY$)ããCLS : T! = TIMER: x = 0ãLOCATE 24, 7ãPRINT "thousand pixels per second!";ãLOCATE 25, 6ãPRINT "updates per second! WWWOOOOWW!";ããDO UNTIL LEN(INKEY$)ã PutSprite RND * 219, RND * 79, VARSEG(ScreenCut(0)),VARPTR(ScreenCut(0)) + 4, 101, 101ã x = x + 1ã Z! = TIMER - T!ã IF Z! >= 1 THENã LOCATE 24, 1ã Z = INT(10 * x / Z!)ã PRINT Z;ã LOCATE 25, 1ã PRINT Z \ 10;ã END IFãLOOPãScott Pessoni LED DISPLAYS FidoNet QUIK_BAS Echo 10-02-95 (18:36) QB, QBasic, PDS 228 9481 LED-DISP.BAS'LED-DISP.BAS: Version 1.0ã'Scott Pessoni - August 1995ã'ã'These are some subroutines that I wrote to simulate differentã'kinds of LED Displays. This is the first version so it's not filledã'with to meny fetures but they are handy at some time. The Ledã'Display does not handle negitive numbers or decimals. You also haveã'to watch out for LedBar so that the formula doesn't overflow with largeã'numbers. The Leds aren't very pritty yet but I'm working on digitizingã'some! The Leds are handy for showing the status of something becauseã'all you have to do is change the the led state and not remember theã'X and Y locations! Have fun and tell me what you think. Look forã'version 2 some time.ã'-----------------------------------------------------------------------ãDECLARE SUB Leds (LedNumber%, Status%)ãDECLARE SUB LedBar (Number%)ãDECLARE SUB LedDisplay (Number%)ãDEFINT A-ZãDIM SHARED DisplayLedX, DisplayLedY, LedDigitsãDIM SHARED GraphLedX, GraphLedY, GraphElements, GraphNumããSCREEN 13ãã'This sets the default colors to use for the Bright/Dim led panals:ã'Red Leds:ãPALETTE 16, 65536 * 15 + 256 * 15 + 57ãPALETTE 17, 65536 * 2 + 256 * 2 + 19ã'Green Leds:ã'PALETTE 16, 65536 * 15 + 256 * 57 + 15ã'PALETTE 17, 65536 * 2 + 256 * 19 + 2ã'----------------ãã'-------- Led Digit Display Setup -----------------ãDisplayLedX = 0 '|- Upper Left corner ofãDisplayLedY = 0 '| Led Digit displayãLedDigits = 4 'Number of digits to have on displayã'--------------------------------------------------ã'-------- Led Bar Graph Display Setup -------------ãGraphLedX = 0 '|- Upper Left corner ofãGraphLedY = 20 '| Led Graph displayãGraphElements = 32 'Number of graph elements. Maximum 32ãGraphNum = 1000 'The number when the graph is 100%ã'--------------------------------------------------ã'--------- Led Lights Setup -----------------------ãTYPE Ledã x AS INTEGER '|- Upper Left corner of LEDã y AS INTEGER '|ã s AS INTEGER 'Current Status of LED (-1=Led not used 0=Off 1= On)ãEND TYPEãDIM SHARED Led(5) AS LedããFOR Temp = 1 TO 5 'Make LEDs unused until you assign themã Led(Temp).s = -1ãNEXT TempããLed(1).x = 40: Led(1).y = 5: Led(1).s = 0 '|- Make some LED'sãLed(2).x = 60: Led(2).y = 5: Led(2).s = 0 '|ã'--------------------------------------------------ãã'============ DEMO:ãLedDisplay -1 '|- Any negitive number will Clear/Create displayãLedBar -1 '|ãLeds 0, 0 ' Draw all LED's at there set statesããFOR Count = 0 TO 1000ã LedDisplay Count 'Update Led Digits with current numberã LedBar Count 'Update Led Bar graph with current numberã SubCount = SubCount + 1 '|- Every 10 numbersã IF SubCount = 10 THEN Leds 1, -1: SubCount = 0 '| toggle the Ledã IF Count > 500 THEN Leds 2, 1 'After 500 turn Led ONãNEXT CountããDO: LOOP UNTIL INKEY$ <> ""ãENDãã'LedBar: A simulated Led Bargraphã'-----------------------------------------------ã'LedBar Numberã' Number = The current number you want to update the bar graph withã'-----------------------------------------------ãSUB LedBar (Number)ããIF Number < 0 THEN 'If Negitive then blank Bar Graphã FOR MakeGraph = 1 TO GraphElements * 2 STEP 2 'Make the Bar graphã LINE (GraphLedX + MakeGraph, GraphLedY)-(GraphLedX + MakeGraph, GraphLedY + 5), 17ã NEXT MakeGraphã EXIT SUBãEND IFããElements = INT(Number * GraphElements / GraphNum) 'Calculate Number ElementsãIF Elements > GraphElements THEN Elements = GraphElements 'Check limtsãã'----------------- Draw Bar Graph --------------------------------ãFOR MakeGraph = 1 TO Elements * 2 STEP 2 'Make the Bar graph (Lit)ãLINE (GraphLedX + MakeGraph, GraphLedY)-(GraphLedX + MakeGraph, GraphLedY + 5), 16ãNEXT MakeGraphãFOR MakeGraph = Elements * 2 + 1 TO GraphElements * 2 STEP 2 'Make the Bar graph (DimãLINE (GraphLedX + MakeGraph, GraphLedY)-(GraphLedX + MakeGraph, GraphLedY + 5), 17ãNEXT MakeGraphã'------------------------------------------------------------------ãEND SUBãã'LedDisplay: Generates a simulated Digital Led Display.ã'------------------------------------------------------------ã'LedDisplay (Number)ã' Number = The number you want to display on the Digital Displayã'------------------------------------------------------------ãSUB LedDisplay (Number%)ãIF Number < 0 THEN 'Setup Led Display panelã FOR PlotX = DisplayLedX TO DisplayLedX + ((LedDigits - 1) * 8) STEP 8ã '----------- One LED Matrix digit --------------------ã LINE (PlotX + 1, DisplayLedY)-(PlotX + 5, DisplayLedY), 17ã LINE (PlotX, DisplayLedY + 1)-(PlotX, DisplayLedY + 5), 17ã LINE (PlotX + 6, DisplayLedY + 1)-(PlotX + 6, DisplayLedY + 5), 17ã LINE (PlotX + 1, DisplayLedY + 6)-(PlotX + 5, DisplayLedY + 6), 17ã LINE (PlotX, DisplayLedY + 7)-(PlotX, DisplayLedY + 11), 17ã LINE (PlotX + 6, DisplayLedY + 7)-(PlotX + 6, DisplayLedY + 11), 17ã LINE (PlotX + 1, DisplayLedY + 12)-(PlotX + 5, DisplayLedY + 12), 17ã '------------------------------------------------------ã NEXT PlotXã EXIT SUBãEND IFããNumber = FIX(Number) 'Get rid of the decimals incase there are someãNumber = VAL(LEFT$(STR$(Number), LedDigits + 1)) 'Chop Number to LED sizeããPlotX = DisplayLedXããIF LEN(STR$(Number)) - 1 < LedDigits THEN 'Clear Unused digitsã FOR ClearEmptyDigits = 1 TO LedDigits - (LEN(STR$(Number)) - 1)ã LINE (PlotX + 1, DisplayLedY)-(PlotX + 5, DisplayLedY), 17ã LINE (PlotX, DisplayLedY + 1)-(PlotX, DisplayLedY + 5), 17ã LINE (PlotX + 6, DisplayLedY + 1)-(PlotX + 6, DisplayLedY + 5), 17ã LINE (PlotX + 1, DisplayLedY + 6)-(PlotX + 5, DisplayLedY + 6), 17ã LINE (PlotX, DisplayLedY + 7)-(PlotX, DisplayLedY + 11), 17ã LINE (PlotX + 6, DisplayLedY + 7)-(PlotX + 6, DisplayLedY + 11), 17ã LINE (PlotX + 1, DisplayLedY + 12)-(PlotX + 5, DisplayLedY + 12), 17ã PlotX = PlotX + 8ã NEXT ClearEmptyDigitsãEND IFãããFOR PlotDigit = 1 TO LEN(STR$(Number)) - 1 'Plot each number to a LEDããWorkDigit$ = MID$(STR$(Number), PlotDigit + 1, 1) 'Get 1 DigitããSELECT CASE WorkDigit$ 'Find and select which elements to turn onã CASE "0"ã E1 = 16: E2 = 16: E3 = 16: E4 = 17: E5 = 16: E6 = 16: E7 = 16ã ã CASE "1"ã E1 = 17: E2 = 17: E3 = 16: E4 = 17: E5 = 17: E6 = 17: E7 = 16ã ã CASE "2"ã E1 = 17: E2 = 16: E3 = 16: E4 = 16: E5 = 16: E6 = 16: E7 = 17ã ã CASE "3"ã E1 = 17: E2 = 16: E3 = 16: E4 = 16: E5 = 17: E6 = 16: E7 = 16ã ã CASE "4"ã E1 = 16: E2 = 17: E3 = 16: E4 = 16: E5 = 17: E6 = 17: E7 = 16ã ã CASE "5"ã E1 = 16: E2 = 16: E3 = 17: E4 = 16: E5 = 17: E6 = 16: E7 = 16ã ã CASE "6"ã E1 = 16: E2 = 17: E3 = 17: E4 = 16: E5 = 16: E6 = 16: E7 = 16ã ã CASE "7"ã E1 = 17: E2 = 16: E3 = 16: E4 = 17: E5 = 17: E6 = 17: E7 = 16ã ã CASE "8"ã E1 = 16: E2 = 16: E3 = 16: E4 = 16: E5 = 16: E6 = 16: E7 = 16ã ã CASE "9"ã E1 = 16: E2 = 16: E3 = 16: E4 = 16: E5 = 17: E6 = 17: E7 = 16ãEND SELECTã'Plot the LEDs to the screen------------------------ãLINE (PlotX, DisplayLedY + 1)-(PlotX, DisplayLedY + 5), E1ãLINE (PlotX + 1, DisplayLedY)-(PlotX + 5, DisplayLedY), E2ãLINE (PlotX + 6, DisplayLedY + 1)-(PlotX + 6, DisplayLedY + 5), E3ãLINE (PlotX + 1, DisplayLedY + 6)-(PlotX + 5, DisplayLedY + 6), E4ãLINE (PlotX, DisplayLedY + 7)-(PlotX, DisplayLedY + 11), E5ãLINE (PlotX + 1, DisplayLedY + 12)-(PlotX + 5, DisplayLedY + 12), E6ãLINE (PlotX + 6, DisplayLedY + 7)-(PlotX + 6, DisplayLedY + 11), E7ã'--------------------------------------------------ãPlotX = PlotX + 8ãNEXT PlotDigitãEND SUBãã'Leds: Updates Ledsã'--------------------------------------------------------------------ã' Leds (LedNumber, Status)ã'LedNumber = Led to change (0 to Setup/Update ALL LEDS)ã'Status = -1 Flip/Flop State 0 Led Off 1 Led Onã'---------------------------------------------------------------------ãSUB Leds (LedNumber, Status)ããIF LedNumber = 0 THEN 'Update ALL Led'sã FOR MakeLeds = 1 TO 5ã IF Led(MakeLeds).s = 0 THEN 'Make dim Led'sã LINE (Led(MakeLeds).x, Led(MakeLeds).y)-(Led(MakeLeds).x + 2, Led(MakeLeds).y + 2), 0, BFã PSET (Led(MakeLeds).x + 1, Led(MakeLeds).y + 1), 17ã ELSEIF Led(MakeLeds).s = 1 THEN 'Make Lit Led'sã LINE (Led(MakeLeds).x, Led(MakeLeds).y)-(Led(MakeLeds).x + 2, Led(MakeLeds).y + 2), 17, BFã PSET (Led(MakeLeds).x + 1, Led(MakeLeds).y + 1), 16ã END IFã NEXT MakeLedsã EXIT SUBãEND IFããIF Status = -1 THEN 'Flip/Flop the state of the Led.ã IF Led(LedNumber).s = 1 THEN Led(LedNumber).s = 0 ELSE Led(LedNumber).s = 1ãELSE 'Assign Led's Status if not Flip/Flopã Led(LedNumber).s = StatusãEND IFã ã'---- Update current status of the selected LEDãIF Led(LedNumber).s = 0 THEN 'Display Led OFFã LINE (Led(LedNumber).x, Led(LedNumber).y)-(Led(LedNumber).x + 2, Led(LedNumber).y + 2), 0, BFã PSET (Led(LedNumber).x + 1, Led(LedNumber).y + 1), 17ãELSEIF Led(LedNumber).s = 1 THEN 'Display Led ONã LINE (Led(LedNumber).x, Led(LedNumber).y)-(Led(LedNumber).x + 2, Led(LedNumber).y + 2), 17, BFã PSET (Led(LedNumber).x + 1, Led(LedNumber).y + 1), 16ãEND IFããEND SUBããDave Navarro, Jr. PB FADING ROUTINE dave@powerbasic.com Unknown Date PB 71 1683 PBFADE.BAS $CPU 8086 ' program works on any CPUã$OPTIMIZE SIZE ' make smallest possible executableã$COMPILE UNIT ' compile to a unit (PBU)ã$DEBUG MAP OFF ' turn off map file generationã$DEBUG PBDEBUG OFF ' don't include pbdebug support in our executableã$LIB ALL OFF ' turn off all unused PowerBASIC librariesã$ERROR ALL OFF ' turn off bounds checkingããDEFINT A-Z ' default all variables to integers for maximumã ' speed and minimum sizeãã%FLAGS = 0ã%AX = 1ã%BX = 2ã%CX = 3ã%DX = 4ã%SI = 5ã%DI = 6ã%BP = 7ã%DS = 8ã%ES = 9ããSHARED Target$ããSUB FadeOut() PUBLICã IF LEN( Target$ ) = 0 THENã Target$ = STRING$( 765, 0 )ã REG %AX, &H1017ã REG %BX, 0ã REG %CX, 255ã REG %ES, STRSEG( Target$ )ã REG %DX, STRPTR( Target$ )ã CALL INTERRUPT &H10ã END IFã FOR J% = 1 TO 32ã CALL FadeDAC( -4 )ã NEXT J%ãEND SUBããSUB FadeIn() PUBLICã IF LEN( Target$ ) = 0 THENã EXIT SUBã END IFã FOR J% = 1 TO 32ã CALL FadeDAC( 4 )ã NEXT J%ãEND SUBããSUB FadeDAC( Inc% ) PRIVATEã LOCAL Buff$, N%, K%ã Buff$ = STRING$( 765, 0 )ã REG %AX, &H1017ã REG %BX, 0ã REG %CX, 255ã REG %ES, STRSEG( Buff$ )ã REG %DX, STRPTR( Buff$ )ã CALL INTERRUPT &H10ã FOR J% = 1 TO LEN( Buff$ )ã N% = ASC( MID$( Buff$, J%, 1 )) + Inc%ã IF N% < 0 THEN N% = 0ã K% = ASC( MID$( Target$, J%, 1 ))ã IF N% > K% THEN N% = K%ã MID$( Buff$, J%, 1 ) = CHR$( N% )ã NEXT J%ã REG %AX, &H1012ã REG %BX, 0ã REG %CX, 255ã REG %ES, STRSEG( Buff$ )ã REG %DX, STRPTR( Buff$ )ã CALL INTERRUPT &H10ãEND SUBãEarl Montgomery IMAGE MAKER FidoNet QUIK_BAS Echo 09-29-95 (22:21) QB, PDS 174 10697 IMAGE.BAS '>>> Page 1 of IMAGEMKR.ZIP begins here. TYPE:BINAA TLEN:7669ãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.1ãSUB V1:OPEN "O",1,"IMAGEMKR.ZIP",4^6:Z&=7669:?STRING$(50,177);ãU"%up()%9%%%#-%7f.RDI5(0Wr&%%%)k%%%/%%%%ht%qtwx%Sgns*fhfoB,7B]1%J[Ug0?\gFGãU"MXG>^gid5*(cKT:\fp'NY24c3-BX]fcHi2=iEAjPpvT3-19*S8?VWjK^;&ãU"l?VQ^W--]rGU6Ta,ZMGdpE,NOEKr7)-AjiGIjr17f+I1R^RIkãU"K[WJikaWdMS+=I3<#,H-ku>Z(DIAãU"6WAs6E*,aLqep>LuA:m#slfveu[mbZOn722/,ajjedX&ãU"W=SOrW^iWm1<19d*SMhT[sMsU6pOH5cRO0%%%%%#%%%O%nlz(%['%%d%%XãU"k%*up(%)9%%[%-%0B+bDd9]J,2#/%%u%C%%1%%%%n%rflj%rpwS[gfx.h(ãU"vV&Kdnsmf[7KLOpKC3Gj/Zv#mcph<4Cs*JaEX\aqcmCYekdZãU"[*e7-toM2/enq0*THcQ,RQ;i*d]D['VUn(RXC5vL\EV0XrO:P:EF/YTlw4ãU"NiHh:LgHUnDQJ:-rS*&od&BwL$;S(0[,e%ByP8M37YkWNSjDw-#^4ExH$;ãU"mK7)m;R[^1[X&.tL][t$bOt2'et'EunS]c%F-keWeIf9:]xPCAQtU[KbG[ãU"%,_&>Q\8Yd9)U4>p3KI\Kd.bsZ.\+N(-X+QnCzX#T3-XE]iehaiI:k6?gXãU"MODr:wxiX*Bxh5*#$b&VGUBghp,('V+xSJ>fzOOY:sHCAtsãU"n%.uiUSR79Kk\m9^':n%'vUS1/*=bKaljni1&k;4P>y<:.L?zN(a?P&9ãU"mC_K3z1pY,H+/4W^Mh*R?U/Po*>PNVKVNVk](hfGZae;gnQcRtwQ3JT'LSCFãU"*D-bNKnIPw.f++tUhVx1nH*44.a2SzD+tfj7YoNSO^O^UEVZ(D3>OApYeK84ehuv)\\8yA1PkU:9<%_YMQS//DW#cdq0T4pP;h0g=DEbX]RS-VX$il6#/G%Lx''LL+X3?ãU"VBZex](#WHYtK2fs#w;#QloOLY+4tN7(P=3^H*9x^1NlBBM_.S=xPf9QpJãU"qK,(V2]v2MUgPesnsLMpoi&U'=,vJZHxwMia8uciV#v\xWh^QI5cIqiDwyãU"uonCo>/OzaH%+&fyUXwg/CAmiKL$[c%=g_TOff^nS'5UYJL=5_[1saO/6jãU"s2?$>cvcBVZrYC-Pn0=BPTzX&WQh.*FKGãU"KWP,1//yy,BULfVR\&J<0A?dC[5uQ#C)i'))&.Z+d7&N?ZHgDU)GsT]z6PãU"MHHE-*U>J06x=5CB%zFx%5(1grCh(X%CT^]Yr81]dm^YGuEhbY*B/\W7hgãU"oJZgw)HkiQhHH(9Z&Zo/6FxGS-p98WJW9+lU*jh4*h0U89i$r^s,V8U1Qtmh3+=$/[b=H?sAG^jvãU"=^]U,.vhu1E[+e3G,#+Q6.\OQQV8TOxRT6fHB7k5%I#q<*/5T=[1VS*a)GãU"LP?<]C6G1r;,YeI4)T6QjoãU"*(9bh(nBI'S1DfQBkmW3o1u8Z07/M#1qubd/0(G7>pp61cwXbwãU"i5GCsl8^DB,O7a[\w][meM.oVAa/>N^V&=Xk0Jz0mBHXHãU"KL;a8.GDQDd0vFfH;KD7hGsLZRZA=B$(5&6bY4%Npb+?:,nEa4p'h40$9AãU")8&hiZ()1eEUkS/UHIN5;1(Q5aHFg0i?;WUY#C5K8QnrjLJ,rR[EE-\-)#YBbi[B(g#_WojLLNK\n[8G8Ep&qZwTO.VqXnV[hb9FVnQ.0Nz%N>cmshin4J76lv_7qFBT=,rFeneaR.WãU"e*q1qcU[^G)/&#B+-HkdKVeqZk9$>bFq3jEqW7rCZ>cDNEM:tS\NZ3iatãU"aYZ7TAlLUaLO1hC.]7f&1;6./Y*Frk)iShJiP(>^p.?>N3ZZ%ãU"r3F3n3A6:2.5N=&Y6Q4/LdOFTAKU_N*HQRaaq+W+cBTVX,ff=AJãU",b-tMuJwI4(:=F)*yJ>gãU"q*HV[^8=d_Y7n3D2Y,6:;avH$qm$:Tg9FB:C&t7prB^By)OHv\qt&u$PZcãU":N?6;vFBcU9I1N^.q.?(Pw2%up()%9%%%I-%Kk7$D_G>caZ%%%%9&%%%/%ãU"#%%r(%wjfi%Sgfx+xi4-?jmpxD?A1EmzU]^Lw?#D-lm0v5?M\'MAQ+LC:QãU"wB1xBbw\Z9Ol.p:a8Bl9oZIx:Yb\ZwxlSY:ED(QCQ:+7lw9g1\OcMRlR+GãU",vE;'x%Ep&xEVb[dJvH-BLtn-:Fdm4&A?1/Yy?1\%u+RE_'ycJ'>k(Mdy/ãU"zZY\huM0wxoo(%Kfl[bzYMhjgmJy&&q%.9+>#v&y:Sw5[^0I1cu1u?F2L&ãU"ixrSo(N&m&wh$#?6'sVkLuP9W(T=I5?qoP0%r/]%.zAND488>xYg4mY5AYãU"?^[^'%%up(%)9%%#%-%'Am$Dk=CbBM[&%%6%&%%0%%%%r)(&wn%yjSg.fxãU"Dv3D=Qej9Vjqg(,lQI2I7sB*6<,Do]2XI'&i7_Frqf8sUL1rQ/87Ru0jP<7'/hGodvCT:gz.?[(/foEJ,J[ãU"TjN_]$+Q9z38Ar%_>F9&sGMM3r(cDYuP78U($D)5ylSk60<0f'f[->ãU"CQF_DFe>C*QgErE-_R3C[BQ\=ZZ?i:FJ8*mpUn/PS',4*kSnZRgYM5RDN-ãU"BJ%]Ew9XxmawGjBvy#6[vQn45sBg&MYtTjAmu2ãU"%2Fe-Ao>Z)zBT[5MOTIN/Rtj%&$v7h2DaRHWãU"3%Jqpx,>#jG:aVYrxM;Fs%i,aJ.+q;(p\?4h7$X/w$igTu&bu[p^TU\>XKãU"<#;Oe(O;&0YrvGcV7jhir0fIREI;/Tck7eAN*w/:.r.4hfX/D_<97i^';DãU"Xe)hj8+T>&g9/*>V8&'#5j>0o:O1hvE?'E;yN>Eaat'Zf/2U#S;W[1XuSeãU"jCS?TM;E-VB]Ci/l:tp)1eJcQOC1X-S4.QG9$^_KQ5'>7Ex'O#i(P8I6ZkãU"L-YcEjvSH;_Z('PD5^t7+(i;S%f&/Kja/o#(&-z&Pzl4iZWãU"9(v/nsN032x?n'N]IU/<.f9c&/mi2>[Vw-a_Ic&glIo0hK?C\B/OB>qm?[ãU")cnvkpVSQK%y2x2/*zo#['HY$hbNQnS'\lP*656=jmxm((L?tCAp8dRiE\aaAãU"a(10.6Y#FKa(.>AvmJ%4$8jJa,fMC[uvHo;,]f_9QKvWl-__LdxcDEgkRowWbV5g22wyUXGSfo(kbZKG3\owh=D0Ewa=k.U;XlBi0+F]]LhãU"JjXR&T,IS&/Vhc.0H,OZ*Zpo6JuD6\U\x.=1E2&BBL&I,LT>(OSOE[]q*HãU"]KKIdT_)K6G^SNr=BlT4V#B457O[A'K[JI'RFAAXXLwNCE^n1h&)zMCGQnãU";a-RuKEdsSud5e'pbKHMjTqvl+tIWBWSP,3O_ejGBjJ38-Oak]+j+/>oMsãU"B=XpbFjQsPK.k.SK>.I?o$N)_%ui([o/DA7c-*2HB^.?2^DS$_;0a=%AmxãU"5q4n[mc.?KU=:1nq6IDbH(6]IR[j($]Adxv\>uo56+98%9H#WQ[5c.Lz(gãU"c7LR2Lh0=u/;+%ilG]Dd0D79;/&QLc0oe$D[vFP-Q;Cc_*KB_&aZSh0sEnãU";>dGGj5nK='8Ou]Z_El[-lw]Wqm0&EoXd.U4_g.Cb3AI.,X;1d-Oaap-x-ãU"DhniW5<-)EJbQo/e-q$R-CgPx+rP9nSE)\(8z%G;59VrBe&E6Gu#1G2c'YhXllãU"$bK*M(%uEuw9u)1-&H33Ph$b\xB<+/_]EX1(/X/8VoYk6IBFD;[7=iOrpf\Wr/d7x'wD8hzY=*?q-u^ZILtyu6o3m;'Hhd]4uãU"m6HlXa,sdm\u\AP#UHbr&.up(%)9%%%%-%:\HaDE[K'Jm%%%%%%7%%/%%%ãU"%g%zlrf%sSif4yfff+7py+g1mãU"HB)Mo?\rHAeXZGr?IrInAJR#/1p83CUsrfcr3'(k.\*CqiQe8sijIf1^'KãU"D8jPa?#HPgvJKr0CdPgN)Ac:azrfppMcrWZ.*aJ*-lOWl_HGaO_*s6MD[rãU"*-t]7Nuw(_KHv6igtvFf(Dh^gUSt_^3ch^>4tdu6X6goFTgKk>l##Gnnl)ãU"J.aNu$l$gtfstjiqEn4tN88'l98M5%%up(%)9%%[%-%tAH\DquRc5&p(ANR_^w1HtãU"sO=DwpM,N+sdLIiUnyri1f:_jKtbjJ)7CnsyF%Kgwi:HTlQC<+EA88$YBsãU";2mqagqKmLa_Q+AC7f)CY8Uns%+_68)>2012T=I&DgwQ4I>qhlh?J1d?QaãU"HKo(ON;F2w6ujqGsGY(nchoM*ouYe,N$'[LgDLc4+iEa#D)S8aTLYJ/fN6ãU">qMtjDrM,7_uãU"LEt0f6%up()%9%%%#-%)ddbDq6(>Em)I%%o[%%%0%%%%qj%yyjw%xSgnXsãU"fS>.q#4As,iX<_,7Z#+v?7sHLJ8eHef:'qESC3&8IVq>.q?=<4ãU"5g9asi'EX5015-'Mqg7G3bnFI6s[i?K^jD5AJVia^:,)\e1OJLnSj5d>\BãU"Qq_mici?;h$jnBb7pW6vZ]ZWV<(%[i%%'idGxEL0*HfbxCmKw7Tu&RJjLAãU"E%f=1Hna7.QJxj(4e_T*J$(-PAtL$p9to4A#Ht'c:3xp,EpGYrAZv/IMPlãU"ppi?NapVDy3gxuRHOãU"hG4f#>mrMbThRqRU''yyZCGzJdsQvBm6e0h$4V3(?G'AyrqqRUEK+QJfRxãU"nhT\)0d7ez4ze$\x[N*ASj,K2jaJ<79fn2qHh:M3aD,YGi8.&3y4R0AryAãU"&)5%%%%%%%I3zawKVK>=->)4_lqhFx$t=V6nm8W&oiv35ue6VLcSqEp5\mãU"U#=9,Vl#/iT%c5bC3Z^6ghNj8K_;*71A[qkZfR[?oyfwkf;EG4G,U7$xC&ãU"ur/0=-kH8?'5'lVCj%56+.3sb5LHoG++_uFm$1B,;AbC-fKH(Eh8'Q*uy<ãU"Xi_WL5iSiBF4gJ0pMFBBNkiT]PtgVBLlqY'?<5AF9s6]/sokwo'($=ZpZ^ãU"D>\s4RSBQUt*)iU>kh?FLKps8NP-E[zGQWu2E:il#JB;9eDt>N6gULLmj2ãU"D)+.,lq;X$jJfjWSGnD:pGQU$9nt>[S>pF9S%Q&c8yZ'w'Nug8ljt\?0+KãU"8'tQu$nV9if>c5GY<+$;DY-wY\[OcAN-+dSmdT0dU'NOsWOn/B#\Smk#>rãU"ep&mZE1X'fk#Nn.?8aSsGAfsi>+xXS>y&v0MyX^C.iM%s,6?Hp\nVaZ'7VãU"J\APK2pGQU'PtDjvVNxW%MValp[X$w>Js=*Z(Ks0kPu8''mVlF%hãU"b1wz9*lca#&kpF^E[N)b-S50>\(<5]4d(b9P;aHul/_T#TE+Ae_O/BxYJmãU"HUuV.^=^hNcD6:H,&r:I(I/9#EC%k5%%%%%%%%%%%%%%%%%%%%%%%%%%%%ãU"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%^%oVw%+up&%'9%9%%%%-.%7fR(DI5ãU"0&Wr&%%%)k%%%/%%%%%%%%%%%E%%%%%%%%%h%tqtw%xSgn%sup&%'9%9%%ãU"%%-=%0+b:Dd]J',2/%(%uC%%%1%%%%%%%%%&%E#%%%D%&%%n%rflj%rpwSãU"%gfxu%p&'9%%9%%#%-%K\k$D_pGcaZ%%%%9%&%%/%%%%%%%%%&%%E%%+%%ãU"0%.%r(w%jfiS%gfxu%p&'9%%9%%#%-%'Am$Dk=CbBM[&%%6%&%%0%%%%%%ãU"%%%&%%E%%+%.1%I%r(&%wnyj%Sgfx%up&'%9%9%%%%-%(OKbDlxSO-&9)%ãU"%''/%%%1%%%%%%%%%&%E%%%%+3%%%nr%fljr%pwSi%thup%&'9%%9%%%#-ãU"%:H7aDu1)PGd&.%%K*%%%/%%%%%%%%%%%%E%%%&i7%%%gzlr%fsSg%nsupãU"%&'9%%9%%%#-%:H7aDEK7'Jm%%%%%7%%%/%%%%%%%%%%%%E%%%%&9%%%gzãU"lr%fsSi%fyup%&'9%%9%%%R-%tHd\DqR?ãU"Em)I%%o[%%%0%%%%%%%%%%%%E%%%%]<%%%qjyy%jwxS%gnsu%p*+%%%%%/ãU"%%/%[#'%%x%#%%%%%ãEND SUBãCLOSE:IF S=73AND 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+243 ELSE ?#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ãJoshua Dickerson 3D ROTATING CUBE FidoNet QUIK_BAS Echo Unknown Date QB, QBasic, PDS 164 5029 3DCUBE.BAS 'By Joshua Dickersonã'ãDECLARE SUB InitProgram ()ãDECLARE SUB MainLoop ()ãDECLARE SUB Calc3D ()ãDECLARE SUB Rotation ()ãDECLARE SUB DrawObject ()ã'ãDIM SHARED Lines, World(500, 3)ãDIM SHARED X, Y, Z, sX, sY, Xa, Ya, Za, sXs, sYs, DãDIM SHARED R1, R2, R3, Sr1, Sr2, Sr3, Cr1, Cr2, Cr3, mX, mY, mZ, Eyeã'ãREAD LinesãFOR I = 1 TO LinesãFOR J = 1 TO 3ã READ World(I, J)ãNEXTãNEXTã'ãInitProgramãMainLoopãSCREEN 0ãENDã'ã'CUBE LOOKING THINGYãDATA 24ãDATA -90,-90,-90, -90,-90,90, -90,-90,90, 90,-90,90ãDATA 90,-90,90, 90,-90,-90, 90,-90,-90, -90,-90,-90ãDATA -90,90,-90, -90,90,90, -90,90,90, 90,90,90ãDATA 90,90,90, 90,90,-90, 90,90,-90, -90,90,-90ãDATA -90,90,-90, -90,-90,-90, -90,-90,90, -90,90,90ãDATA 90,90,90, 90,-90,90, 90,-90,-90, 90,90,-90ã'ã'DIAMOND LOOKING THINGYã'DATA 26ã'DATA -90,0,-90, -90,0,90, -90,0,90, 90,0,90ã'DATA 90,0,90, 90,0,-90, 90,0,-90, -90,0,-90ã'DATA -90,0,-90, 0,90,0, -90,0,90, 0,90,0ã'DATA 90,0,90, 0,90,0, 90,0,-90, 0,90,0ã'DATA -90,0,-90, 0,-25,0, -90,0,90, 0,-25,0ã'DATA 90,0,90, 0,-25,0, 90,0,-90, 0,-25,0ã'DATA 0,-25,0, 0,90,0ã'ã'EMPEROR ANDROSS (STAR FOX)ãDATA 142ã'ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄNOSEÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄãDATA 5,-4,10, -5,-4,10, -5,-4,10, -5,-25,10ãDATA -5,-25,10, 0,-52,0, 0,-52,0, 5,-25,10ãDATA 5,-25,10, 5,-4,10, 5,-25,10, 10,-18,2ãDATA 10,-18,2, 10,2,2, 10,2,2, 5,-4,10ãDATA 10,2,2, -10,2,2, -10,2,2, -5,-4,10ãDATA -10,2,2, -10,-18,2, -10,-18,2, -5,-25,10ã'ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄMOUTHÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄãDATA -10,2,2, -28,26,0, -10,2,2, 0,14,5ãDATA 0,14,5, 10,2,2, 28,26,0, 10,2,2ãDATA -28,26,0, 0,14,5, 0,14,5, 28,26,0ãDATA -28,26,0, 0,18,6, 0,18,6, 28,26,0ãDATA -28,26,0, 0,31,6, 0,31,6, 28,26,0ãDATA 0,14,5, 0,18,6, -28,26,0, 0,36,5ãDATA 0,36,5, 28,26,0, 0,31,6, 0,36,5ãDATA -8,47,0, 0,36,5, 0,36,5, 8,47,0ã'ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄOUTLINE OF FACEÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄãDATA 0,-52,0, -26,-47,0, -26,-47,0, -37,-32,0ãDATA -37,-32,0, -37,-6,0, -37,-6,0, -28,26,0ãDATA -28,26,0, -8,47,0, -8,47,0, 8,47, 0ãDATA 8,47,0, 28,26,0, 28,26,0, 37,-6,0ãDATA 37,-6,0, 37,-32,0, 37,-32,0, 26,-47,0ãDATA 26,-47,0, 0,-52,0ã'ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄFOREHEADÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄãDATA 0,-52,0, -23,-33,10, -23,-33,10, -5,-25,10ãDATA -26,-47,0, -23,-33,10, -37,-32,0, -23,-33,10ãDATA -37,-18,0, -23,-33,10, -10,-18,2, -23,-33,10ãDATA 0,-52,0, 23,-33,10, 23,-33,10, 5,-25,10ãDATA 26,-47,0, 23,-33,10, 37,-32,0, 23,-33,10ãDATA 37,-18,0, 23,-33,10, 23,-33,10, 10,-18,2ã'ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄEYES + CHEEKSÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄãDATA -37,-18,0, -23,-26,12, -23,-26,12, -10,-18,2ãDATA -37,-18,0, -23,-13,10, -23,-13,10, -10,-18,2ãDATA -37,-18,0, -23,-17,12, -23,-17,12, -10,-18,2ãDATA -23,-33,10, -23,-26,12, -23,-17,12, -23,-13,10ãDATA -10,2,2, -23,-13,10, -23,-13,10, -37,-6,0ãDATA 37,-18,0, 23,-26,12, 23,-26,12, 10,-18,2ãDATA 37,-18,0, 23,-13,10, 23,-13,10, 10,-18,2ãDATA 37,-18,0, 23,-17,12, 23,-17,12, 10,-18,2ãDATA 23,-33,10, 23,-26,12, 23,-17,12, 23,-13,10ãDATA 10,2,2, 23,-13,10, 23,-13,10, 37,-6,0ãã'ãSUB Calc3Dã'ãX = -1 * X: Xa = Cr1 * X - Sr1 * Z: Za = Sr1 * X + Cr1 * ZãX = Cr2 * Xa + Sr2 * Y: Ya = Cr2 * Y - Sr2 * Xa: Z = Cr3 * Za - Sr3 * YaãY = Sr3 * Za + Cr3 * Ya: X = X + mX: Y = Y + mY: Z = Z + mZ: sX = D * X / ZãsY = D * Y / Zã'ãEND SUBã'ãSUB DrawObjectã'ãRotationãFOR I = 1 TO Lines STEP 2ãX = World(I, 1)ãY = World(I, 2)ãZ = World(I, 3)ãCalc3DãsXs = sX: sYs = sYã'ãX = World(I + 1, 1)ãY = World(I + 1, 2)ãZ = World(I + 1, 3)ãCalc3Dã'ãLINE (sXs, sYs)-(sX, sY), EyeãNEXTã'ãEND SUBã'ãSUB InitProgramã'ãSCREEN 9, 1, 0, 1ãWINDOW (-200, -150)-(200, 150)ãVIEW (8, 9)-(632, 341), 0, 15ãCLS 'PAGE 0ã'ãSCREEN 9, 1, 1, 0ãWINDOW (-200, -150)-(200, 150)ãVIEW (8, 9)-(632, 341), 0, 15ãCLS 'PAGE 1ã'ãD = 1200 'View point and rotation valuesãmZ = -1500ãmX = -5ãR1 = 0ãR2 = 0ãR3 = .3ã'ãEND SUBã'ãSUB MainLoopã'ãWHILE INKEY$ = ""ã 'R1 = R1 + RND(1) * .05: IF R1 > 6.28 THEN R1 = 0ã 'R2 = R2 + RND(1) * .05: IF R2 > 6.28 THEN R2 = 0ã 'R3 = R3 + RND(1) * .05: IF R3 > 6.28 THEN R3 = 0ã R1 = R1 + .1: IF R1 > 6.28 THEN R1 = 0ã' ã CLS : Eye = 7: DrawObjectã Page = ABS(Page = 0) 'Page switching is used to hide the drawingã SCREEN 9, 1, 1 - Page, Page 'process so the image looks smooth.ãWENDã'ãEND SUBã'ãSUB Rotationã'ãSr1 = SIN(R1): Sr2 = SIN(R2): Sr3 = SIN(R3)ãCr1 = COS(R1): Cr2 = COS(R2): Cr3 = COS(R3)ã'ãEND SUBãEarl Montgomery VGA SCREEN CAPTURE TSR EXECUTABLE Unknown Date QB, QBasic, PDS 101 6519 VGACLIP.BAS 'VGACLIP.EXEã'It is a TSR that captures any 320*200*256 graphic screen alongã'with the palettes in ONE Bsave file. Basic loader source to follow.ãCLS:?STRING$(50,178):DEFINT A-Z 'Created by PostIt! 6.0ãFOR A=0 TO 6:P(A)=2^A:NEXT:OPEN "B",1,"VGACLIP.EXEãT$="abcdefghijklmnopqrstuvwxyz":T$=T$+UCASE$(T$)+"0123456789#$ãG"nPfIbK(zbaiaGga$$pib(bqdm(icaE*e(caq9aSd*r*Cb)ug*D*6b)qi*M*Xc)yãG"l)GW*hd)mn*2*Hd)Oo)W8+e)Kq)qfb)Ke)0s)Gob)cf)8u)qvb)Ff)Ww)WEb)bgãG")Sy*Mb)Ig)WA)qTb)Kh)yF)W#b*i)uG)Gcc)ti)GH)q(icaAaGiamcaI(maCca4ãG"aWjaieaNaGyaCcaGaGlaihaUaGFa4caLaGn(ca5aqmaKdabcqoaKia5aGtaieaQãG"bGqa4baGcaC(ka4baOambaOcWiaKkaBdGqaeCacbG4bieaVhGqaySacbWIdieawãG"(Ra8baScqnaWkaGbaRamhaScqlaml(bWSaqba3caCaClakaqWaubacdqnaimaL(ãG"ZaycaodGd(nax(0aWbavd//////////////////,GySz1rbnetjbfi(GKb)M//)ãG"d/+8$$acbUW(u4A(qPjdaCca4A(qPjWeieaJQ(HQ(JY(hBGda8cc4YfaqPjdaWkãG"a4A(qPjdaWkaHY(JaCDdKEAaOP(ydaqPjcaimaqHly(LMo(OamcW1nq6$(Um(u4ãG"A(qPPdcieaJcbaHcbaJkbaJaCDdKEeaGRz(LMm(RaOzvaicaP7(46haqPjdaWkaãG"AwfaIaq6o(UqcauAY(ScGMvbGiaGRT(LMm(RaGR4(LMm(RaGlebaLMm(RaGRpbaãG"fUu(uAY(N(Uu(uAQ(PcWOy(Uu(uAY(#cqOyaWiax3aP7(Ak(U(UofauAY(ScaUoãG"(u4A(qPjWaieaP3maAk(cbW$gOba$BJgaOjcaClaqPPcamlaqHlh(LMmaWjaGlEãG"bafUC(uAs(OcqUcaWkihfUW(uAc(bdauAI(5(u4ccaqPjdaCca4ccaqHlh(LMiaãG"qo(fUcgauAI(5(u4ccaqPjdaCca4c6RqPzea8ja6E8aZaS7Pxba6M8aSdd5l6bjãG"a4ObQgGjiEqOK(qJsca98Va#noU(kuAgbaFcaUG(uZamu4Yq$ZinuAQ(UaGMmaWãG"NaOP(4caAUcacbGMPhGqaGRb(LMEbGqaOzvaic/4UnaoInJgWAa67i08cfc7tlmãG"nhYOUgaJaVlybSc20QuZHSB9a44WMSOhcaGJdBYIoicadgSclY#kHNOjXgGhhWOãG"hQgWVSpqUOaWmaZ$8RovUWaquldkSbqltnhsvlYUvxTOFgKOpypWI2HWImmop7YãG"#a7mVCwm4WmTZ839GMgaW0a8VDiOjda4laR$YvbfKMkaq1aG1G5lGDHS6I2HWI0ãG"jqkoyAab4aPbKus$Bd2dOjda4laj#qI$jW8K#LxDPmb(qv4EGdndrxlx1ISpi7bãG"D1XgGC)WIgPqJw9RMeaq2aqlpYKCZHSl(iNtlI9V4gWIxFuOQgWQlAecRUOrgSkãG"u5E(0cuZHKLCV4HJEOAalAfc0cuZH8HCGStWZvGXgGCa9SW20raT#0Ci$BNcAQ(ãG"mdWxlwExkB(A6(ldW6IB1vE4ObSgGjk6aGait7#giaMOib8acDeWtc1nGrIlVbAãG"Q(qdWbJJGbmITJa$X8KU4WF8Lxlx1ISB1vlAhclsWI#zWIvymb$BCb$RPda4maiãG"wbIeSiYdO84nfuqAQ(vdWvlAhclsNal6Nbl2Naj6J2d81G5lGCVKyhP4GPbeGdKãG"gqsjD0rj#qI$jqu7eSDcSyWlI88KM1kiVt02jWIrVOYlAJ2dmpPlo8$2HGMk(ZaãG"8VDgOPcaWmaF5vxkt)mdW5yG0buhiocSjHcjaMSOhscWOshqIEqDa6BYXgajalbãG"Gjm6GKaS$YZaCogiDa0DHJaVi2hAG0bCOhuhG#MmkKaysIEija7VmuEG72a4i2hãG"BaYbCeaFGLma$mavTi7lANblsNa3tHUGfqOSgWkqFSbZgW$$tBmGcBanhY$$$$$ãG"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$d///aqvlYUãG"vx5YG#Wja$thchBaYbahaRlX$2zGMatGqaCSbihWBaSaW0zWxE1LYe(JoWdbl6fãG"cl#Hli6rVa4cI#4lalAebUmkSaSOrcuW(4YOUcGdFqlnnhsIEOkamAaRa4WbWIWãG"V#bGUyma6NgaSq8RHaOBLdGoNba7e$Qia6U6aOhzaWsXVocGUbpa6ggaSw8RKaOãG"71dG#Eba7f$Aja6kbbOdxaWgYVAcGUOqa6LfaSL8RNaOlweGUwbaRj$kka6IhbOãG"$uaWIYVMcGUysa6efaSj8RGaORAdGEobyXhhBaYb)Pl0$UySb7cW$7ZjutfLuvzãG"1vEyGlmAHSa4sIMqla4UnaoI9G#mB(qxm67i0lAsSbSFVqHaTr1Cij6XSbOjNfiãG"eaU8VlUcWGetGMaxGqaOVloAHSa4YIMqla7FWhF5vxAL1wy1PlgBWU(WWvTi7w5ãG"XIEHWIFSW20jGJB7Oh8qWma7iWZMGVccGUQna6YcGCbnlc#6ha6IXaOxkaYrZSqãG"4RHaOBLdGoMai3jZoHVkcGURoa6lcGCAmlf#6ia6g8aO7haY1WSw4RKaO71dGECãG"am3b4c(FSovqo7f#Aja6kbbO3faYX#SH4RMaOlkeGouai33ZwIVEcGUyra6dbGCãG"spRj#kka6IhbOBdaYv8SO4RPaOlMeGEkaihUF8VDi8VDgOPbfiea9)0Dk#E1LYeãG"(u0wtZHKyhmwKayrBjnhYWdYZ$1ja#dlZ$rpE0JBYoxq3a5VE8mITj7CKa1v$IeãG"SitcOVjjEGjj#Ka7J7$$NibjsKaRd9#UaOp$c(0nKla6ZUa8FDi4IXg8l(S#mUaãG"Op6c(1TIht5sXEOk(#daB9bDi4cG#Wla$xheUySb$c(C6Y$E4haOFK$p7I$o8laãG"67Y$U4ha7df5G5Iog0la11aTc0SfK8Gl6yGVaqNby5Y$UiiaAAybcbGlgBWVaibãG"wpZPl#BGUa4Y$EyiaC6I$oOlaDUVYc(NU4Vb6cGl$7HIaWPl#7GUa05#kl(C6I$ãG"gOlaU8VhocaNU4Vd6cqN7RS(WjG8daDeWde1TX#nJcu#tSl#BGUaWPl$7HKaWPlãG"#7GUa0jw0vU#U4Vb6cGl$7HKaWPl#7GUa05#kl(C6I$gOlaU8VhwcaNU4Vd6cqNãG"7RS(WjG8dqDoqltUySb8c(D6Y$UOj(Ypd39UlgBaVa8FN7ZPl$7HMa4IXgWl(OSãG"(WPl#BGUa4Y$E4jaC6YJgyladsSaU4Vd6cGl$BJTa05YC6I$gOlaU8VhIcaNU8OãG"b4cWGelGl#7GUa4Y$2GlaDU8#UaOp$c(1zG#U8VlMcGla6ZUa8pDY7IXg8l(WPlãG"$7HPaG#58$mavTi7wD1IEzWI3jWG#mB(uNa3tb6dcWIqZi2c5OW7iCDumdWlENaããG"d6ZSbaqDcCpfF5vxkl(lENal6$IpmVP1P9IcV#3au1IStBunhYul6fclEXcsxNaãG"mQTJcBYIEWAa0cvZHKl(Goma4iWMSJhbaqDjaKJatBsnhICtG#kamx6ok8IEzGjãG"l#LaMC$f3h9w0cvZHSyWDPmbamLb0kvZHyYIh5$O#qWbBnShH6dboInG#)Av3a5ãG"$XWdyW)KnJ6db4VU8KhMIGZaGMhMIeVoaMhM#WcI5GS$YamOpwh(1HdTV0Cij6bãG"qeWObcraTr1Cij6H1bSOhSgaTq1CilpOpwh(0rHhZS9HEyDa0cvZHuSfaraTA0CãG"iFSmJEOAalx1ISVOrgmQQb0LYcaqvlYoUb(u$Bhc$BNbAscaGcqxkt(vTi7wDf$ãG"ECWIgPWI2zWIuSiDcOeEWSOFiSydl2Nal#ns4LZa4VcY2ndRY7ADUSJYYPYcsthãG"dwDvulQ88MM1xEvh6RS$Ih$VDiOPcaWma$BNbAQ(mdWxE1LYgaWmaVU5vTi7tTOãG"xgS4b$BNbAQ(mdWwDPS(u1ISpi7Vnvus1OvrsRgnhYIgzqJw5RMeaq2amZ25EcaãG"06uZHixalT4WAL1wlwExkl(vTi7lAKbqPPqaWka4cCaqPPqaWkahBa0be(DPS(uãG"1ISVOrgaLMcbaRa0LYcaWXgaDabaWYvTi7hBaYb)l6Lbl#WIxjWIEaDa0cuZHm3ãG"bA6(ldW6jStWZvGXgGCa98VDgOPcaWmaDPS)qvlYUvxTODgSidJtr$lsNadeVtSãG"QaW0zalGqNaRlG4ZRPc(nalANblsNaZt6IdZ$$2zGMk(Za8LxDPS(u1ISVOrgKPãG"uqPPgaClaDPS(u1ISB1vl6LblAecgBW6daWcaNhdZi99BVb0lkS$oS#a#U#a5Q(ãG"Z8VthnJ03h$IOV4W3h$IyVyXakmmisXcax35lSDDJdOpRpW$1vGthzmbTS4ZAQ(ãG"qdW8KU4WF5vxkt(vTi7wzSbghW$l6LblEWcatxd5hn0lENajsK$hF)4vxkl(vTiãG"7xTOtiOPc(nalAKbZR6Id$vxkt(vTi7wD1I2zWImOPc(naJtXI2zWI0jaR8eMCgãG"WJE3jajFPQ4YV4W$BNbAQ(mdWxE1LYc)qnvusz1vvXVhhaOpgh(0zKVyhWIwpGfãG"KgWoYpxoTIAa1zWIypWnRhVtoTO$Z0#oYphjlYH9dhaDse96dn0aZpW6b4HPbKIãG"hKgW6JV4dbf08KMYBcSo2D9LxAL1wyTm(6dYbaqDdmkYbSmavTi7qn1USpqoEzGãG"Cqm4WmLJxgChc$BNbAY(#cWwy1LYc)rLlfaSl7dm4paqNddombIB$USpWuAY(#cãG"qwldLMoaGZamUibfKMkaq1amy#cmhbRKmwlV4WRMIdMgqaoqAajLuIpK4FcG1YtãG"TibhwqIeSixcCyxcKixcSaW0nqI35$G9(DgSyxcK4F#V1Y87XbhBaYb)74GPbyNãG"iA6(fdWooyAa2DXkoyAa74aQbyhbj6aQbSOdMgGXgGCao8l2bmGpKgWYaeLvxXVãG"hhSO#lc$ImSiDcmpPi2WxEL1Y///////.kaqdawDuqdXusqbIDX4cmWac8GGYqPãG"asm5KdmGuuyYXgin9MB0D2BTvMC5b(GbG(qgaVu1eaOgatv3yJv2CMvhBSLhiYvãG"wBVzxzKbGdaiiadfMBU9gDGixzT9MDLfsiaqjabXMCLfgz5bsAUnhDHXgBLrwiGãG"0ciVufi09gi15gBVfgzaGca6cGvhfeiZnMCLvMBGmwyWrxDYvgiVzgiZidm4jdmãG"WGNm1ydiJ9gBVj3CPaG5aq1usbcAH5gzSvMCGKMBJ9MCW9MCHrxzKbIy5bstPngãG"AHvgBGCvzSngAWOcaueGvhf0qmLeuG8svGq3BGixzT9MDLXciVjhibXevTyfi09ãG"giHngDPzxy0v2caiuawDuqtnKuQ4Yqbbf9MaGubCvyY5wAUDwiGy1rbn1qsPIldãG"feuGugEPnhDZbYBUbczPn3AHesig(Fby1rbn1qsr(ggGldfeu.$$F///G//*0p/ãG"c(Xb0Gc+ytnmn0s0e/"ãN=4488:K=255:IF LEN(C$)<>5984 THEN ?"Bad script!"Ksum!":ENDãFOR A=1 TO N:LOCATE 1:?STRING$(50/N*A,177):IF L=0 THEN GOSUB G:L=6ãW=T\P(6-L):GOSUB G:W=W OR T*P(L):L=L-2:B$=CHR$(W AND K):PUT 1,,B$:NEXTã?:IF C=95 THEN ?"Ok":END ELSE ?"Bad checksum!":ENDãG:I=I+1:T=INSTR(T$,MID$(C$,I,1))-1:C=(C+T)*2:C=C\256+(C AND 255):RETURNãSUB G(A$):SHARED C$:FOR Q=2 TO 9:DO:S=INSTR(A$,CHR$(Q+38))ãIF S THEN A$=LEFT$(A$,S-1)+STRING$(Q,97)+MID$(A$,S+1)ãLOOP WHILE S:NEXT:C$=C$+A$:END SUBãEarl Montgomery VGA CLIP EDITOR For use with VGACLIP.EXE Year of 1990 QB, PDS 244 7068 CLIPED.BAS ' $INCLUDE: 'qb.bi'ãDEFINT K, PãON ERROR GOTO errorroutineãDIM B(500)ãDIM d(100)ãDIM PIX(1000)ãDIM inreg AS RegTypeãDIM outreg AS RegTypeãrestart:ãSCREEN 0: CLSãPRINT "CLIPEDv6.BAS": PRINT "Copyright (C) Earl Montgomery 1990"ãPRINTãGOSUB keyboardãbegin:ãSCREEN 13: DEF SEG = &HA000ãDRAW "c142;bm100,100;r4;br2;bu2;u3;bd5;br2;r4;bl6;bd2;d3;"ãDRAW "bm2,2;r6;d6;l6;u6;"ãGET (2, 2)-(8, 8), dãGET (98, 92)-(114, 108), BãCLSãOUT &H3C8, 0ãFOR k = 0 TO 767: OUT &H3C9, 0: NEXTãDEF SEG = &HA000ãBLOAD n$ + ".cap", 0: DEF SEG = &HA000 + 4000ãOUT &H3C8, 0ãFOR k = 0 TO 767: P = PEEK(k): OUT &H3C9, P: NEXTãREM Main Programãx% = 160: y% = 100ãcursor:ãPUT (x%, y%), Bãinkey1:ãi$ = INKEY$: IF i$ = "" THEN GOTO inkey1ãIF i$ = " " THEN GOTO inkey1ãPUT (x%, y%), BãAA% = ASC(i$) AND 223ãIF AA% = 0 THEN GOTO mainkeyboardscanãIF AA% = 71 THEN COLOR 15: CLS : SCREEN 0: DEF SEG : ENDãIF AA% = 83 THEN GOTO preparetoexitãIF AA% = 72 THEN GOTO helpscrnãIF AA% = 90 THEN GOTO zoomãGOTO cursorãmainkeyboardscan:ãIF ASC(MID$(i$, 2)) = 75 THEN x% = x% - 2ãIF ASC(MID$(i$, 2)) = 77 THEN x% = x% + 2ãIF ASC(MID$(i$, 2)) = 72 THEN y% = y% - 2ãIF ASC(MID$(i$, 2)) = 80 THEN y% = y% + 2ãIF ASC(MID$(i$, 2)) = 71 THEN x% = x% - 2: y% = y% - 2ãIF ASC(MID$(i$, 2)) = 79 THEN x% = x% - 2: y% = y% + 2ãIF ASC(MID$(i$, 2)) = 73 THEN x% = x% + 2: y% = y% - 2ãIF ASC(MID$(i$, 2)) = 81 THEN x% = x% + 2: y% = y% + 2ãIF x% > 300 THEN x% = 300ãIF x% < 6 THEN x% = 6ãIF y% > 180 THEN y% = 180ãIF y% < 5 THEN y% = 5ãGOTO cursorãhelpscrn:ãDEF SEG = &HA000: BSAVE "temp.bin", 0, 64780!: CLSããDEF SEG = &HA000 + 4000ãOUT &H3C7, 0ãFOR k = 0 TO 767ãA = INP(&H3C9)ãPOKE k, AãNEXTãSCREEN 9ãCOLOR 12, 0ãPRINT "Command from main screen:"ãPRINT "=Good Bye =This menu."ãPRINT "=Press this key before saving the picture using VGACLIP!"ãPRINT "=Go to ZOOM Edit Mode."ãPRINTãPRINT "Commands from ZOOM Edit Mode:"ãPRINT "=Pen-Down Mode."ãPRINT "=Increases color value."ãPRINT "<->=Decreases color value."ãPRINT "=Changes color to the same color as one block to the right."ãPRINT "=Return to the main screen without saving the editing."ãPRINT "=Saves your editing and returns to the main screen."ãPRINT "=Pen Up Mode."ãPRINT "Use the arrow keys on the keypad to move the cursor. Home moves"ãPRINT "the cursor up and to the left. PgUp moves it up and to the right."ãPRINT "End moves it down and to the left and PgDn moves it down and to"ãPRINT "the right. All keys are repeat keys. Just hold them down!"ãPRINT "Press any key to continue."ãinkey2:ãZ$ = INKEY$: IF Z$ = "" THEN GOTO inkey2ãSCREEN 13ãOUT &H3C8, 0: FOR k = 0 TO 767: OUT &H3C9, 0: NEXTãDEF SEG = &HA000: BLOAD "temp.bin", 0ãDEF SEG = &HA000 + 4000ãOUT &H3C8, 0ãFOR k = 0 TO 767: P = PEEK(k): OUT &H3C9, P: NEXTãGOTO cursorãzoom:ãGET (x%, y%)-(x% + 19, y% + 19), PIXãDEF SEG = &HA000 + 4000ãOUT &H3C7, 0ãFOR k = 0 TO 767: A = INP(&H3C9): POKE k, A: NEXTãDEF SEG = &HA000: BSAVE "temp.bin", 0, 64780!ãCLS : PUT (50, 50), PIX, PSETãFOR y = 4 TO 164 STEP 8ãLINE (100, y)-(260, y), 142ãNEXTãFOR x = 100 TO 260 STEP 8ãLINE (x, 4)-(x, 164), 142ãNEXTãx = 160: y = 100ãX1 = 59: Y1 = 60ãi% = 1ãOPEN "r", #1, "zoom", 1: FIELD 1, 1 AS O$ãFOR y = 50 TO 69ãFOR x = 50 TO 69ãLSET O$ = CHR$(POINT(x, y)): PUT 1, i%ãi% = i% + 1ãNEXT x, yãCLOSE #1ãi% = 1ããOPEN "r", #1, "zoom", 1: FIELD 1, 1 AS O$ãFOR y = 6 TO 164 STEP 8ãFOR x = 102 TO 260 STEP 8ãGET #1, i%: i% = i% + 1ãIF ASC(O$) = 142 THEN PAINT (x, y), 143, 142: GOTO skipoverãPAINT (x, y), ASC(O$), 142ãskipover:ãNEXT x, yãCLOSE #1ãx = 176: y = 88ãflag$ = "jump"ãLINE (170, 180)-(190, 198), 142, Bãc = POINT(x, y)ãIF c = 142 THEN c = 143ãPAINT (180, 185), c, 142: LOCATE 25, 30: PRINT c;ãinkey3:ãi$ = INKEY$: IF i$ = "" THEN GOSUB putcursor: GOTO inkey3ãAA = ASC(i$)ãIF AA = 0 THEN GOTO keyboardscanfromzoomãIF i$ = "d" OR i$ = "D" THEN flag$ = ""ãIF i$ = "c" OR i$ = "C" THEN c = c + 1: IF c > 255 THEN c = 0ãIF i$ = "-" OR i$ = "_" THEN c = c - 1: IF c < 0 THEN c = 0ãIF c = 142 AND i$ = "-" OR i$ = "_" THEN c = 141ãIF c = 142 AND i$ = "c" OR i$ = "C" THEN c = 143ãIF i$ = "c" OR i$ = "C" THEN GOSUB printnewcolorãIF i$ = "-" OR i$ = "_" THEN GOSUB printnewcolorãIF i$ = "f" OR i$ = "F" THEN c = POINT(x + 8, y): IF c = 142 THEN c = 143ãIF i$ = "s" OR i$ = "S" THEN GOTO savefromkeyboardãIF i$ = "l" OR i$ = "L" THEN GOSUB bloadscrn: GOTO cursorãIF i$ = "u" OR i$ = "U" THEN flag$ = "jump"ãIF flag$ = "" THEN PAINT (x, y), c, 142: PSET (X1, Y1), cãPUT (x - 3, y - 3), d: FOR d = 0 TO 50: NEXT: PUT (x - 3, y - 3), dãi$ = "": GOTO inkey3ãkeyboardscanfromzoom:ãIF ASC(MID$(i$, 2)) = 75 THEN x = x - 8: X1 = X1 - 1ãIF ASC(MID$(i$, 2)) = 77 THEN x = x + 8: X1 = X1 + 1ãIF ASC(MID$(i$, 2)) = 72 THEN y = y - 8: Y1 = Y1 - 1ãIF ASC(MID$(i$, 2)) = 80 THEN y = y + 8: Y1 = Y1 + 1ãIF ASC(MID$(i$, 2)) = 71 THEN x = x - 8: y = y - 8: X1 = X1 - 1: Y1 = Y1 - 1ãIF ASC(MID$(i$, 2)) = 79 THEN x = x - 8: y = y + 8: X1 = X1 - 1: Y1 = Y1 + 1ãIF ASC(MID$(i$, 2)) = 73 THEN x = x + 8: y = y - 8: X1 = X1 + 1: Y1 = Y1 - 1ãIF ASC(MID$(i$, 2)) = 81 THEN x = x + 8: y = y + 8: X1 = X1 + 1: Y1 = Y1 + 1ãIF x > 256 THEN x = 256ãIF x < 104 THEN x = 104ãIF y > 160 THEN y = 160ãIF y < 8 THEN y = 8ãIF X1 < 50 THEN X1 = 50ãIF X1 > 69 THEN X1 = 69ãIF Y1 > 69 THEN Y1 = 69ãIF Y1 < 50 THEN Y1 = 50ãIF flag$ = "jump" THEN GOSUB putcursor: GOTO inkey3ãPAINT (x, y), c, 142ãPSET (X1, Y1), cãGOTO inkey3ãsavefromkeyboard:ãGET (50, 50)-(69, 69), PIXãDEF SEG = &HA000: BLOAD "temp.bin", 0ãPUT (x%, y%), PIX, PSETãGOTO cursorããpreparetoexit:ãREM blanks cursor and saves-endsãPUT (x%, y%), B: PUT (x%, y%), Bãinkey4:ãi$ = INKEY$: IF i$ = "" THEN GOTO inkey4ãIF i$ = "g" OR i$ = "G" THEN CLS : SCREEN 0: ENDãGOTO inkey4ãerrorroutine:ãSCREEN 0: WIDTH 80: CLS : RESUME restartãkeyboard:ãDIM inregs AS RegTypeX, outregs AS RegTypeXãfilespec$ = "*.cap" + CHR$(0)ãPRINT STRING$(75, 196)ãinregs.ax = &H2F00ãCALL INTERRUPTX(&H21, inregs, outregs)ãdata.seg = outregs.esãdata.off = outregs.bxãinregs.ax = &H4E00ãinregs.dx = SADD(filespec$)ãinregs.ds = -1ãCALL INTERRUPTX(&H21, inregs, outregs)ãcy = outregs.flags AND 1ãIF cy = 0 THENãWHILE cy = 0ãDEF SEG = data.segãf.name$ = ""ãi = data.off + 30ãWHILE PEEK(i) <> 0ãf.name$ = f.name$ + CHR$(PEEK(i))ãi = i + 1ãWENDãDEF SEGãPRINT f.name$ + " ";ãinregs.ax = &H4F00ãCALL INTERRUPTX(&H21, inregs, outregs)ãcy = outregs.flags AND 1ãWENDãELSE GOSUB PRINTNOCAPFILESãEND IFãPRINT STRING$(75, 196)ãINPUT "Filename to load"; n$ãRETURNãPRINTNOCAPFILES:ãPRINT "There are no .CAP files in this directory."ãPRINT STRING$(75, 196)ãINKEY5:ãi$ = INKEY$: IF i$ = "" THEN GOTO INKEY5ãDEF SEG : CLS : SCREEN 0: WIDTH 80: ENDãputcursor:ãPUT (x - 3, y - 3), dãFOR d = 0 TO 50: NEXTãPUT (x - 3, y - 3), dãRETURNãprintnewcolor:ãPAINT (180, 185), c, 142ãLOCATE 25, 30ãPRINT " ";ãLOCATE 25, 30ãPRINT c;ãRETURNãbloadscrn:ãCLSãDEF SEG = &HA000ãBLOAD "temp.bin", 0ãRETURNããZabudsky Aaron Scott WINDOWS BITMAP VIEWER FidoNet QUIK_BAS Echo Unknown Date QB, QBasic, PDS 279 8837 BMPVIEW.BAS CLSãINPUT "Filename to load: ", filename$ãOPEN filename$ FOR BINARY AS #1ããheader$ = SPACE$(14)ãsizing$ = SPACE$(4)ãGET #1, 1, header$ãGET #1, 15, sizing$ãbmpinfosize = CVI(sizing$)ã'bmpinfosize - Is the size of the information header for the bitmap.ã' Different bitmap versions have variations in filetypes.ã' 40 is a standard windows 3.1 bitmap.ã' 12 is for OS/2 bitmapsã'The next routine reads in the appropriate headers and colour tables.ã'nbits is the number of bits per pixel - i.e. number of coloursã'1 bit = 2 colours, 4 bits = 16 colours, 8 bits = 256 colours, etc.ã'the 24 bit mode does not have a palette, its colours are expressed asã'image dataãã'Design of a windows 3.1 bitmap - Taken from bmp.zip on theã'x2ftp.oulu.fi ftp site under /pub/msdos/programming/formatsã'Specifications for a Windows 3.1 bitmap. (.BMP)ã'Email any questions/responses to me at zabudsk@ecf.utoronto.caã'or post to alt.lang.basic or comp.lang.basic.misc.ãã' | # of |ã'Offset | bytes | Function (value)ã'-------+--------+--- General Picture information starts here---------ã' 0 | 2 | (BM) - Tells us that the picture is in bmp formatã' 2 | 4 | Size of the file (without header?)ã' 6 | 2 | (0) Reserved1 - Must be zeroã' 8 | 2 | (0) Reserved2 - Must be zeroã' 10 | 4 | Number of bytes offset of the picture dataã'-------+--------+--- Information Header starts here -----------------ã' 14 | 4 | (40/12) Size of information header (Win3.1/OS2)ã' 18 | 4 | Picture width in pixelsã' 22 | 4 | Picture Height in pixelsã' 26 | 2 | (1) Number of planes, must be 1ã' 28 | 2 | Number of bits per pixel (bpp), must be 1,4,8 or 24ã' 30 | 4 | (0) Compression - 0 means no compression, 1,2 are RLEsã' 34 | 4 | Image size in bytesã' 38 | 4 | picture width in pels per metreã' 42 | 4 | picture height in pels per metreã' 46 | 4 | (0) Number of colours used in the picture, 0 means allã' 50 | 4 | (0) Number of important colours, 0 means allã'-------+--------+--- Palette data starts here -----------------------ã' 54 | 1 | (b) - blue intensity component, color 0 - range 0 to 255ã' 55 | 1 | (g) - green intensity component, color 0 - range 0 to 255ã' 56 | 1 | (r) - red intensity component, color 0 - range 0 to 255ã' 57 | 1 | (0) - unusedã' 58 | 1 | (b) - blue intensity component, color 0 - range 0 to 255ã' ... | ... |ã' 54 | 4*2^bpp| total range of paletteã'-------+--------+--- Image data starts here -------------------------ã'54+ | width* | Bitmap data starting at lower left portion of theã'(4*2^n)| height*| image moving from left towards right. Moving up 1ã' | (8/bpp)| pixel when at the right hand side of the image, startingã' | | from the left side again, until the top right of theã' | | image is reachedãã'Note that this format is slightly different for a OS/2 Bitmap.ã'The header is the same up to (but not including) bit 30-ã'The palette colour values follow at bit 30, with the form...ã'1 byte blue intensityã'1 byte green intensityã'1 byte red intensityã'For each colour of the picture.ã'Bitmapped image data follows the colour tablesããã'Special note: When storing 1 bit (2 colour) pictures.ã'8 horizontal pixels are packed into 1 byte. Each bit determinesã'the colour of one pixel (colour 0 or colour 1)ãã'4 bit pictures (16 colours) use 2 nibbles (4 bits) for each pixelã'thus there are 2 pixels for each byte of image data.ãã'8 bit pictures use 1 byte per pixel. Each byte of image dataã'represents one of 256 colours.ãã'24 bit pictures express colour values by using 3 bytes and each has aã'value between 0 and 255. The first byte is for red, the second is forã'green and the third is for blue. Thus (256)^3 or 2^24 of 16777216 differentã'colours.ããIF bmpinfosize = 12 THENã infoheader$ = SPACE$(12)ã GET #1, 15, infoheader$ã nbits = CVI(MID$(infoheader$, 15, 4))ãã IF nbits = 1 THENã palet$ = SPACE$(6)ã GET #1, bmpinfosize + 15, palet$ã ELSEIF nbits = 4 THENã palet$ = SPACE$(48)ã GET #1, bmpinfosize + 15, palet$ã ELSEIF nbits = 8 THENã palet$ = SPACE$(768)ã GET #1, bmpinfosize + 15, palet$ã END IFãELSEIF bmpinfosize = 40 THENã infoheader$ = SPACE$(40)ã GET #1, 15, infoheader$ã nbits = CVI(MID$(infoheader$, 15, 4))ã IF nbits = 1 THENã palet$ = SPACE$(8)ã GET #1, bmpinfosize + 15, palet$ã ELSEIF nbits = 4 THENã palet$ = SPACE$(64)ã GET #1, bmpinfosize + 15, palet$ã ELSEIF nbits = 8 THENã palet$ = SPACE$(1024)ã GET #1, bmpinfosize + 15, palet$ã END IFãEND IFãããft$ = MID$(header$, 1, 2)ãPRINT "Type of file (Should be BM): "; ft$ããfilesize = CVL(MID$(header$, 3, 4))ãPRINT "Size of file: "; filesizeããr1 = CVI(MID$(header$, 7, 2))ãPRINT "Reserved 1: "; r1ããr2 = CVI(MID$(header$, 9, 2))ãPRINT "Reserved 2: "; r2ããoffset = CVL(MID$(header$, 11, 4))ãPRINT "Number of bytes offset from beginning: "; offsetããPRINTããheadersize& = CVL(MID$(infoheader$, 1, 4))ãPRINT "Size of header: "; headersize&ããpicwidth = CVL(MID$(infoheader$, 5, 4))ãPRINT "Width: "; picwidthããpicheight = CVL(MID$(infoheader$, 9, 4))ãPRINT "Height: "; picheightãnplanes = CVI(MID$(infoheader$, 13, 4))ãPRINT "Planes: "; nplanesããPRINT "Bits per plane: "; nbitsããPRINTããIF headersize = 40 THENã PRINT "Compression: ";ã comptype = CVL(MID$(infoheader$, 17, 4))ã IF comptype = 0 THEN PRINT "None"ã IF comptype = 1 THEN PRINT "Run Length - 8 Bits"ã IF comptype = 2 THEN PRINT "Run Length - 4 Bits"ãã imagesize = CVL(MID$(infoheader$, 21, 4))ã PRINT "Image Size (bytes): "; imagesizeãã xsize = CVL(MID$(infoheader$, 25, 4))ã PRINT "X size (pixels per metre): "; xsizeãã ysize = CVL(MID$(infoheader$, 29, 4))ã PRINT "Y size (pixels per metre): "; ysizeãã colorsused = CVL(MID$(infoheader$, 33, 4))ã PRINT "Number of colours used: "; colorsusedãã neededcolours = CVL(MID$(infoheader$, 37, 4))ã PRINT "Number of important colours: "; neededcoloursãEND IFãPRINTãPRINT "Press Any key to continue."ãWHILE INKEY$ = ""ãWENDããIF nbits = 1 THENã SCREEN 11ãELSEIF nbits = 4 THENã SCREEN 13ãELSEIF nbits = 8 OR nbits = 24 THENã SCREEN 13ãEND IFãIF bmpinfosize = 40 THEN ngroups = 4ãIF bmpinfosize = 12 THEN ngroups = 3ããIF nbits = 24 THENã IF ngroups = 3 THENã FOR c = 0 TO 63ã d = c * 4ã palet$ = palet$ + CHR$(d) + CHR$(d) + CHR$(d)ã palet$ = palet$ + CHR$(d) + CHR$(d) + CHR$(d + 1)ã palet$ = palet$ + CHR$(d) + CHR$(d + 1) + CHR$(d)ã palet$ = palet$ + CHR$(d + 1) + CHR$(d) + CHR$(d)ã NEXT cã ELSEIF ngroups = 4 THENã FOR c = 0 TO 63ã d = c * 4ã palet$ = palet$ + CHR$(d) + CHR$(d) + CHR$(d) + CHR$(0)ã palet$ = palet$ + CHR$(d) + CHR$(d) + CHR$(d + 1) + CHR$(0)ã palet$ = palet$ + CHR$(d) + CHR$(d + 1) + CHR$(d) + CHR$(0)ã palet$ = palet$ + CHR$(d + 1) + CHR$(d) + CHR$(d) + CHR$(0)ã NEXT cã END IFãEND IFããFOR x = 1 TO LEN(palet$) STEP ngroupsã zb# = INT((ASC(MID$(palet$, x, 1))) / 4)ã zg# = INT((ASC(MID$(palet$, x + 1, 1))) / 4)ã zr# = INT((ASC(MID$(palet$, x + 2, 1))) / 4)ã zc# = zb# * 65536# + zg# * 256# + zr#ã cres = ASC(MID$(palet$, x + 3, 1))ã PALETTE ((x - 1) / ngroups), zc#ãNEXT xããIF nbits = 24 THENã y = picheight - 1ã x = 0ã dat$ = " "ã WHILE y >= 0ã WHILE x < picwidthã GET 1, , dat$ã p1 = INT(ASC(MID$(dat$, 1, 1)) + ASC(MID$(dat$, 1, 1)) + ASC(MID$(dat$, 1, 1)))ã PSET (x, y), p1ã x = x + 1ã WENDã y = y - 1ã x = 0ã WENDãELSEIF nbits = 8 THENã y = picheight - 1ã x = 0ã dat$ = " "ã WHILE y >= 0ã WHILE x < picwidthã GET 1, , dat$ã PSET (x, y), ASC(dat$)ã x = x + 1ã WENDã y = y - 1ã x = 0ã WENDãELSEIF nbits = 4 THENã y = picheight - 1ã x = 0ã dat$ = " "ã WHILE y >= 0ã WHILE x < picwidthã GET 1, , dat$ã LOCATE 1, 1ã p1 = ASC(dat$) AND 15ã p2 = ASC(dat$) AND 240 / 16ã PSET (x, y), p1ã PSET (x + 1, y), p2ã x = x + 2ã WENDã y = y - 1ã x = 0ã WENDãELSEIF nbits = 1 THENã y = picheight - 1ã x = 0ã dat$ = " "ã WHILE y >= 0ã WHILE x < picwidthã GET 1, , dat$ã p1 = ASC(dat$)ã FOR p = 0 TO 7ã PSET (x + (7 - p), y), (p1 AND 2 ^ p) / 2 ^ pã NEXT pã x = x + 8ã WENDã y = y - 1ã x = 0ã WENDãEND IFããCLOSEããThe ABC Programmer EARTHQUAKE EFFECT DEMO EARTHQUAKE,EFFECT,DEMO 07-23-94 (00:00) QB, QBasic, PDS 95 2764 QUAKE.BAS '==========================================ã' EARTHQUAKE by William Yu (07-23-94)ã' Creates an Earthquake effectã' Works on any graphics modeã' Here's a short demo, modify as you wishã'==========================================ããDECLARE SUB EarthQuake ()ãDIM CRAFT(500)ãCLSãSCREEN 12ãOUT &H3D4, 9: OUT &H3D5, 1ãDOã RANDOMIZE TIMERã Clock = Clock + 1ã X = INT(RND * 640) + 1ã Y = INT(RND * 280) + 1ã Z = INT(RND * 15) + 1ã PSET (X, Y), ZãLOOP UNTIL Clock = 150ãLOCATE 3, 25: COLOR 14: PRINT "JOURNEY TO THE UNKNOWN DIMENSION"ãCIRCLE (320, 120), 20, 13, , , 11 / 22ãPAINT (320, 120), 13ãCIRCLE (315, 122), 2, 6, , , 1 / 3: PAINT (315, 122), 6ãCIRCLE (323, 124), 2, 5, , , 1 / 3: PAINT (323, 124), 5ãCIRCLE (320, 117), 2, 6, , , 1 / 3: PAINT (320, 117), 6ãSLEEP 1ãLINE (610, 12)-(630, 4), 10ãLINE (610, 12)-(634, 8), 10ãLINE (634, 8)-(630, 4), 10ãPAINT (630, 6), 10: PSET (617, 10), 10: PSET (616, 10), 10ãCIRCLE (628, 7), 2, 9, , , 1 / 3: PAINT (628, 7), 9ãLINE (632, 6)-(634, 6), 12: LINE (630, 4)-(632, 4), 12ãLINE (634, 8)-(636, 8), 12ãGET (639, 2)-(609, 13), CRAFTãX = 609: Y = 2ãMOVECRAFT:ãX = X - 3ãY = Y + 1.1ãPUT (X, Y), CRAFT, PSETãIF X = 333 THEN GOTO CRASHãGOTO MOVECRAFTãCRASH:ãPSET (330, 115), 10: PSET (330, 115), 12: PSET (325, 116), 15ãPSET (330, 114), 15: PSET (329, 113), 12: PSET (326, 115), 10ãPSET (331, 115), 10: PSET (331, 115), 12: PSET (325, 113), 10ãPSET (332, 114), 15: PSET (327, 113), 10: PSET (329, 114), 10ãPSET (330, 113), 10: PSET (328, 112), 10ãLINE (333, 114)-(380, 110), 12ãLINE (333, 114)-(380, 105), 12ãLINE (333, 114)-(380, 100), 12ãLINE (333, 114)-(360, 100), 12ãLINE (333, 114)-(345, 102), 12ãEarthQuakeãLINE (333, 114)-(380, 110), 14ãLINE (333, 114)-(380, 105), 14ãLINE (333, 114)-(380, 100), 14ãLINE (333, 114)-(360, 100), 14ãLINE (333, 114)-(345, 102), 14ãEarthQuakeãPUT (333, 100), CRAFT, ANDãLINE (333, 114)-(380, 110), 12ãLINE (333, 114)-(380, 105), 12ãLINE (333, 114)-(380, 100), 12ãLINE (333, 114)-(360, 100), 12ãLINE (333, 114)-(345, 102), 12ãEarthQuakeãLINE (333, 114)-(380, 110), 0ãLINE (333, 114)-(380, 105), 0ãLINE (333, 114)-(380, 100), 0ãLINE (333, 114)-(360, 100), 0ãLINE (333, 114)-(345, 102), 0ãLINE (341, 105)-(355, 110), 0, BFãEarthQuakeãOUT &H3D4, 8: OUT &H3D5, 0ãSLEEP 1ãLOCATE 3, 25: PRINT SPACE$(32)ãLOCATE 3, 29: COLOR 12: PRINT "WHAT THE HELL WAS THAT!!!"ãSLEEP 1ãLOCATE 3, 29: COLOR 14: PRINT "HELP! HELP! AHHH...I'M..."ãSLEEP 2ãLOCATE 3, 29: COLOR 12: PRINT " NO RESPONSE "ãSLEEP 1ãLOCATE 3, 32: PRINT "WHAT HAPPENED TO HIM?"ãSLEEP 2ããSUB EarthQuakeããDelay = 5500 ' Increase this or decrease for earthquake delayããFOR X = 1 TO Delayã OUT &H3D4, 8: OUT &H3D5, XãNEXT XãEND SUBããMatt Hart SAVE/RESTORE GRAPHICS SCREENS FidoNet QUIK_BAS Echo 07-28-92 (21:55) QB, PDS 293 9721 GSAVES.BAS ' MK> Does anyone know how to save the graphics screen for 640x480x16, VGA?ã' MK> Also, using a binary file?"BSAVE", not a text file...ã'ã'ã' GSAVES.BAS by Matt Hartã' Save/Restore multiple graphics screens inã' any mode to a single file.ã'ã' Compile with /AH for huge arrays andã' /X for error trapping with RESUME NEXTã'ã' The data is stored as follows:ã' 1 Byte : Monitor Typeã' 1 Byte : Screen Mode (0-13)ã' For VGA monitors, the palette (long integers)ã' is stored next for screens 11, 12, and 13ã' Screen Mode Number of Bytes Number of Attributesã' 11 8 2ã' 12 64 16ã' 13 1024 256ã' ã DEFINT A-Zã DECLARE FUNCTION CalcBytes&(X,Y,BPP,P)ã TYPE RegTypeXã ax AS INTEGERã bx AS INTEGERã cx AS INTEGERã dx AS INTEGERã bp AS INTEGERã si AS INTEGERã di AS INTEGERã flags AS INTEGERã ds AS INTEGERã es AS INTEGERã END TYPEã 'ã CONST False = 0ã CONST True = NOT Falseãã ON ERROR GOTO ErrorTrapã 'ã REDIM NumBytes&(0 TO 13)ã NumBytes&(0) = 4000&ã NumBytes&(1) = CalcBytes&(320,200,2,1)ã NumBytes&(2) = CalcBytes&(640,200,1,1)ã NumBytes&(3) = CalcBytes&(720,348,1,1)ã NumBytes&(7) = CalcBytes&(320,200,1,4)ã NumBytes&(8) = CalcBytes&(640,200,1,4)ã NumBytes&(9) = CalcBytes&(640,350,1,4)ã NumBytes&(10) = CalcBytes&(640,350,1,2)ã NumBytes&(11) = CalcBytes&(640,480,1,1)ã NumBytes&(12) = CalcBytes&(640,480,1,4)ã NumBytes&(13) = CalcBytes&(320,200,8,1)ã 'ã FileName$ = "SCREENS.BIN"ã ' Example 1 : Screen 0ã CLS : PRINT "This is Screen 0"ã COLOR 14 : PRINT " This is Screen 0"ã Mon = 0 : ScrMode = 0 : ScreenNum = 1ã CALL SaveScreen(FileName$, Mon, ScrMode, ScreenNum, NumBytes&(),Ecode)ã CLSã CALL RestoreScreen(FileName$, ScreenNum, NumBytes&(), Ecode)ã ENDã ' Parameters are:ã ' FileName$ = File to save the screen toã ' Mon = Monitor Typeã ' 0 = Monochrome/Text Onlyã ' 1 = Herculesã ' 2 = CGAã ' 3 = EGAã ' 4 = VGAã ' ScrMode = Current Screen Mode (0-13)ã ' ScreenNum = Screen Number to Saveã ' Will return with the last screenã ' number in the file if ScreenNumã ' was greater than the last screen + 1ã ' NumBytes&() = Array containing the number of bytesã ' needed to save a screenã ' Ecode = 0 if no error, 1 ifã ' ScreenNum already exists andã ' is not the same ScrMode and Mon,ã ' or -1 if some other error.ã 'ãErrorTrap:ã Ecode = Trueã RESUME NEXTã 'ãSUB SaveScreen(FileName$, Mon, ScrMode, ScreenNum, NumBytes&(), Ecode)ã Ecode = Falseã Buf = FreeFileã OPEN "B",Buf,FileName$ : IF Ecode THEN EXIT SUBã CurScr = 1 : CurPos& = 1ãDOã IF EOF(Buf) THEN EXIT DOã M$=" " : S$=" " : GET Buf,,M$ : GET Buf,,S$ã M=ASC(M$) : S=ASC(S$) : CurPos& = CurPos& + 2ã IF CurScr = ScreenNum THENã IF M=Mon AND S=ScrMode THENã SEEK #Buf, CurPos& - 2ã EXIT DOã ELSEã Ecode = 1ã EXIT DOã ENDIFã ELSEã IF M=4 THENã SELECT CASE Sã CASE 11 : CurPos& = CurPos& + 8&ã CASE 12 : CurPos& = CurPos& + 64&ã CASE 13 : CurPos& = CurPos& + 1024&ã END SELECTã ENDIFã CurPos& = CurPos& + NumBytes&(S)ã SEEK #Buf, CurPos&ã IF Ecode THEN EXIT DO ' a DOS Errorã CurScr = CurScr + 1ã ENDIFãLOOPã IF Ecode <> 0 THEN GOTO SS.Endingã ScreenNum = CurScrã A$=CHR$(Mon)+CHR$(ScrMode) : PUT #Buf,,A$ã IF Ecode THEN GOTO SS.Ending ' DOS Errorã REDIM Saver&(1 TO NumBytes&(ScrMode))ã SaveSeg = VARSEG(Saver&(1))ã SaveAdd& = VARPTR(Saver&(1))ã SELECT CASE ScrModeã CASE 0ã FOR P=0 TO 3999ã DEF SEG = &HB000 : Z=PEEK(P)ã DEF SEG = SaveSeg : POKE SaveAdd&+P,Zã NEXT Pã DEF SEGã CASE 1,7,13 : GET (0,0)-(319,199),Saver&ã CASE 2,8 : GET (0,0)-(639,199),Saver&ã CASE 3 : GET (0,0)-(719,347),Saver&ã CASE 9,10 : GET (0,0)-(639,349),Saver&ã CASE 11,12 : GET (0,0)-(639,479),Saver&ã END SELECTã IF Ecode THEN GOTO SS.Ending ' Wrong Screen mode probablyã IF Mon = 4 THENã SELECT CASE Sã CASE 11 : NumPal = 2ã CASE 12 : NumPal = 16ã CASE 13 : NumPal = 256ã CASE ELSE : NumPal = 0ã END SELECTã IF NumPal > 0 THENã DIM InRegs AS RegTypeXã DIM OutRegs AS RegTypeXã REDIM PalInfo&(0 TO NumPal-1)ã FOR i = 0 TO NumPal-1ã InRegs.ax = &H1015ã InRegs.bx = iã CALL INTERRUPTX (&H10, InRegs, OutRegs)ã A& = (OutRegs.cx AND &HFF00) \ &HFFã B& = (OutRegs.cx AND &HFF)ã C& = (OutRegs.dx AND &HFF00) \ &HFFã PalInfo&(i) = 65536& * B& + 256& * A& + C&ã NEXT iã PSeg = VARSEG(PalInfo&(0)) : PAdd& = VARPTR(PalInfo&(0))ã FOR i = 0 TO NumPal*4-1ã DEF SEG = PSegã A$=CHR$(PEEK(PAdd&)) : DEF SEGã PUT Buf,,A$ã PAdd& = PAdd& + 1ã IF PAdd& > (16*1024) THENã PAdd& = PAdd& - (16*1024)ã PSeg = PSeg + (16*1024\64)ã ENDIFã NEXTã ENDIFã ENDIFã FOR i=0 TO NumBytes&(ScrMode)-1ã DEF SEG = SaveSegã A$=CHR$(PEEK(SaveAdd&)) : DEF SEGã PUT Buf,,A$ãã IF Ecode THEN EXIT FORã SaveAdd& = SaveAdd& + 1ã IF SaveAdd& > (16*1024) THENã SaveAdd& = SaveAdd& - (16*1024)ã SaveSeg = SaveSeg + (16*1024\64)ã ENDIFã NEXT iã IF Ecode THEN GOTO SS.Ending ' DOS Errorã CLOSE Bufã EXIT SUBãSS.Ending:ã CLOSE BufãEND SUBãããSUB RestoreScreen(FileName$, ScreenNum, NumBytes&(), Ecode)ã Ecode = Falseã Buf = FreeFileã OPEN "B",Buf,FileName$ : IF Ecode THEN EXIT SUBã CurScr = 1 : CurPos& = 1ãDOã IF EOF(Buf) THENã Ecode = Trueã EXIT DOã ENDIFã M$=" " : S$=" " : GET Buf,,M$ : GET Buf,,S$ã M=ASC(M$) : S=ASC(S$) : CurPos& = CurPos& + 2ã IF CurScr = ScreenNum THENã EXIT DOã ELSEã IF M=4 THENã SELECT CASE Sã CASE 11 : CurPos& = CurPos& + 8&ã CASE 12 : CurPos& = CurPos& + 64&ã CASE 13 : CurPos& = CurPos& + 1024&ã END SELECTã ENDIFã CurPos& = CurPos& + NumBytes&(S)ã SEEK #Buf, CurPos&ã IF Ecode THEN EXIT DO ' a DOS Errorã ENDIFãLOOPã IF Ecode <> 0 THEN GOTO SS.Endingã REDIM Saver&(1 TO NumBytes&(ScrMode))ã SaveSeg = VARSEG(Saver&(1))ã SaveAdd& = VARPTR(Saver&(1))ã G$=" "ã SELECT CASE ScrModeã CASE 0ã FOR P=0 TO 3999ã GET Buf,,G$ : Z=ASC(G$)ã DEF SEG = SaveSeg : POKE SaveAdd&+P,Z : DEF SEGã NEXT Pã CASE 1,7,13 : GET (0,0)-(319,199),Saver&ã CASE 2,8 : GET (0,0)-(639,199),Saver&ã CASE 3 : GET (0,0)-(719,347),Saver&ã CASE 9,10 : GET (0,0)-(639,349),Saver&ã CASE 11,12 : GET (0,0)-(639,479),Saver&ã END SELECTã IF Ecode THEN GOTO SS.Ending ' Wrong Screen mode probablyã IF Mon = 4 THENã SELECT CASE Sã CASE 11 : NumPal = 2ã CASE 12 : NumPal = 16ã CASE 13 : NumPal = 256ã CASE ELSE : NumPal = 0ã END SELECTã IF NumPal > 0 THENã DIM InRegs AS RegTypeXã DIM OutRegs AS RegTypeXã REDIM PalInfo&(0 TO NumPal-1)ã FOR i = 0 TO NumPal-1ã InRegs.ax = &H1015ã InRegs.bx = iã CALL INTERRUPTX (&H10, InRegs, OutRegs)ã A& = (OutRegs.cx AND &HFF00) \ &HFFã B& = (OutRegs.cx AND &HFF)ã C& = (OutRegs.dx AND &HFF00) \ &HFFã PalInfo&(i) = 65536& * B& + 256& * A& + C&ã NEXT iã PSeg = VARSEG(PalInfo&(0)) : PAdd& = VARPTR(PalInfo&(0))ã FOR i = 0 TO NumPal*4-1ã DEF SEG = PSegã A$=CHR$(PEEK(PAdd&)) : DEF SEGã PUT Buf,,A$ã PAdd& = PAdd& + 1ã IF PAdd& > (16*1024) THENã PAdd& = PAdd& - (16*1024)ã PSeg = PSeg + (16*1024\64)ãã ENDIFã NEXTã ENDIFã ENDIFã FOR i=0 TO NumBytes&(ScrMode)-1ã DEF SEG = SaveSegã A$=CHR$(PEEK(SaveAdd&)) : DEF SEGã PUT Buf,,A$ã IF Ecode THEN EXIT FORã SaveAdd& = SaveAdd& + 1ã IF SaveAdd& > (16*1024) THENã SaveAdd& = SaveAdd& - (16*1024)ã SaveSeg = SaveSeg + (16*1024\64)ã ENDIFã NEXT iã IF Ecode THEN GOTO SS.Ending ' DOS Errorã CLOSE Bufã EXIT SUBãSS.Ending:ã CLOSE BufãEND SUBããFUNCTION CalcBytes&(X,Y,BPP,P)ã C& = 4+INT(((X)*(BPP)+7)/8)*P*(Y)ã CalcBytes& = C& + C& MOD 4&ãEND FUNCTIONãDave Navarro, Jr. PB GIF DECODER FidoNet POWER_BAS Echo 10-21-95 (18:53) PB 208 5318 DECGIF.BAS DEFINT A-ZããDECLARE FUNCTION Getbit ()ãDECLARE FUNCTION ReadCode (CodeSize)ãDECLARE SUB PlotPixel (A)ããTrue = -1ãFalse = 0ããDIM ByteBuffer AS STRING * 1ãDIM Powers(8), Prefix(4096), Suffix(4096), Outcode(1024)ãDIM MaxCodes(12), Powers2(16)ãSHARED Xstart, Xend, True, FalseããFOR A = 1 TO 8: Powers(A) = 2 ^ (A - 1): NEXTãDATA 4,8,16,&h20,&h40,&h80,&h100,&h200,&h400,&h800,&h1000,8192ããFOR A = 0 TO 11: READ MaxCodes(A): NEXTãDATA 1,3,7,15,31,63,127,255ããFOR A = 1 TO 8: READ CodeMask(A): NEXTãDATA 1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384ããFOR A = 0 TO 14: READ Powers2(A): NEXTããF$="TMP.GIF"ããOPEN F$ FOR BINARY AS #1 LEN = 1ãIF LOF(1) = 0 THEN PRINT "File not found!": CLOSE : KILL F$: ENDããFOR A = 1 TO 6ã GET #1, , ByteBuffer: A$ = A$ + ByteBufferãNEXTãIF A$ <> "GIF87a" THENã PRINT "Warning, the "; A$; " protocol is being used in this file."ã LINE INPUT "Proceed anyway(Y/N)?"; A$ã IF UCASE$(A$) <> "Y" THEN ENDãEND IFããGET #1, , TotalXãGET #1, , TotalYããPRINT TotalX;"x";TotalY;"x";ããGET #1, , ByteBuffer: A = ASC(ByteBuffer)ãBitsPixel = (A AND 7) + 1ããGET #1, , ByteBuffer: Background = ASC(ByteBuffer)ãGET #1, , ByteBufferããIF ASC(ByteBuffer) <> 0 THENã PRINT "Bad file."ã ENDãEND IFããPRINT 2^BitsPixelããGET$ 1, (2^BitsPixel)*3, Pal$ããFOR I = 1 TO LEN(Pal$)ã Tmp? = ASC(MID$(Pal$,I,1))ã SHIFT RIGHT Tmp?,2ã MID$(Pal$,I,1)=CHR$(Tmp?)ãNEXT IããGET #1, , ByteBufferãIF ByteBuffer <> "," THENã PRINT "Bad file."ã ENDãEND IFããGET #1, , XstartãGET #1, , YstartãGET #1, , XlengthãGET #1, , YlengthãXend = Xlength + Xstart - 1: Yend = Ylength + Ystart - 1ããGET #1, , ByteBufferãA = ASC(ByteBuffer)ãIF (A AND 128) = 128 THENã PRINT "Local colormap encountered."ã ENDãELSEIF (A AND 64) = 64 THENã PRINT "Image is interlaced!"ã ENDãEND IFããGET #1, , ByteBufferãCodeSize = ASC(ByteBuffer): ClearCode = Powers2(CodeSize)ãEOFCode = ClearCode + 1: FirstFree = ClearCode + 2ãFreeCode = FirstFree: CodeSize = CodeSize + 1ãInitCodeSize = CodeSize: Maxcode = MaxCodes(CodeSize - 2)ãBitmask = CodeMask(BitsPixel)ããGET #1, , ByteBufferãBlockLength = ASC(ByteBuffer) + 1: Bitsin = 8ãOutCount = 0ãX = Xstart: Y = YstartããI$=INPUT$(1)ãMode13 1ããREG 1, &H1012ãREG 2, 0ãREG 3, 256ãREG 4, STRPTR(Pal$)ãREG 9, STRSEG(Pal$)ãCALL INTERRUPT &H10ããDOã Code = ReadCode(CodeSize)ã IF Code <> EOFCode THENã IF Code = ClearCode THENã CodeSize = InitCodeSizeã Maxcode = MaxCodes(CodeSize - 2): FreeCode = FirstFreeã Code = ReadCode(CodeSize): CurCode = Codeã OldCode = Code: FinChar = Code AND Bitmaskã PlotPixel FinCharã ELSEã CurCode = Code: InCode = Codeã IF Code >= FreeCode THENã CurCode = OldCodeã Outcode(OutCount) = FinCharã OutCount = OutCount + 1ã END IFã IF CurCode > Bitmask THENã DOã Outcode(OutCount) = Suffix(CurCode)ã OutCount = OutCount + 1ã CurCode = Prefix(CurCode)ã LOOP UNTIL CurCode <= Bitmaskã END IFã FinChar = CurCode AND Bitmaskã Outcode(OutCount) = FinCharã OutCount = OutCount + 1ã FOR I = OutCount - 1 TO 0 STEP -1ã PlotPixel OutCountã NEXTã OutCount = 0ã Prefix(FreeCode) = OldCode: Suffix(FreeCode) = FinCharã OldCode = InCode: FreeCode = FreeCode + 1ã IF FreeCode >= Maxcode THENã IF CodeSize < 12 THENã CodeSize = CodeSize + 1: Maxcode = Maxcode * 2ã END IFã END IFã END IFã END IFã A$ = INKEY$ãLOOP UNTIL Code = EOFCode OR A$ <> ""ãBEEPãIF A$ = "" THEN A$ = INPUT$(1)ããMode13 0ãENDããã'This subprogram gets one bit from the data stream.ãFUNCTION Getbit STATICã SHARED Powers(), Bitsin, BlockLength, Numã DIM ByteBuffer AS SHARED STRING * 1ã Bitsin = Bitsin + 1ã IF Bitsin = 9 THENã GET #1, , ByteBufferã TempChar = ASC(ByteBuffer)ã Bitsin = 1ã Num = Num + 1ã IF Num = BlockLength THENã BlockLength = TempChar + 1ã GET #1, , ByteBufferã TempChar = ASC(ByteBuffer)ã Num = 1ã END IFã END IFã IF (TempChar AND Powers(Bitsin)) = 0 THEN Getbit = 0 ELSE Getbit = 1ãEND FUNCTIONãã'This subprogram plots one pixel on the display.ãSUB PlotPixel (A) STATICã DEF SEG = &HA000ã POKE Y*320+X, Aã DEF SEGã X = X + 1ã IF X > Xend THENã X = Xstartã Y = Y + 1ã END IFãEND SUBãã'This subprogram reads one LZW code from the data stream.ããFUNCTION ReadCode (CodeSize)ã SHARED Powers2()ã Code = 0ã FOR Aa = 0 TO CodeSize - 1ã Code = Code + Getbit * Powers2(Aa)ã NEXTã ReadCode = CodeãEND FUNCTIONããSUB Mode13(Bool)ã IF Bool THENã REG 1, &H0013ã ELSEã REG 1, &H0003ã END IFã CALL INTERRUPT &H10ãEND SUBãDave Navarro, Jr. PB PCX DECODER FidoNet POWER_BAS Echo 10-21-95 (18:54) PB 108 2578 DECPCX.BAS 'Decode PCX filesã'by Dave Navarro, Jr.ããDEFINT A-ZããTYPE PcxHeaderã Mfg AS BYTEã Ver AS BYTEã Enc AS BYTEã Bpp AS BYTEã XMin AS INTEGERã YMin AS INTEGERã XMax AS INTEGERã YMax AS INTEGERã Hres AS INTEGERã Vres AS INTEGERã Pal AS STRING * 48ã Resrv AS BYTEã ColPl AS BYTEã Bpl AS INTEGERã PalTyp AS INTEGERã Filler AS STRING * 58ãEND TYPEããDIM Header AS PcxHeaderãDIM ByteBuffer AS BYTEããOPEN "B",1,"TMP.PCX"ã GET# 1,,Headerã IF Header.Mfg <> 10 AND Header.Ver <> 5 THENã PRINT "Not a 256 color PCX file!"ã ENDã END IFãã Tmp& = LOF(1) - 768ã SEEK# 1, Tmp&ã GET$ 1,768,Palete$ãã FOR I = 1 TO 768ã Tmp? = ASC(MID$(Palete$,I,1))ã SHIFT RIGHT Tmp?,2ã MID$(Palete$,I,1)=CHR$(Tmp?)ã NEXT Iãã SEEK# 1, 128ãã Wid = Header.Xmax - Header.Xmin + 1ã Dep = Header.Ymax - Header.Ymin + 1ã Byt = Header.Bplãã PRINT Wid;"x";Dep;"x";2^Header.Bppãã I$=INPUT$(1)ãã Mode13 1ãã REG 1, &H1012ã REG 2, 0ã REG 3, 256ã REG 4, STRPTR(Palete$)ã REG 9, STRSEG(Palete$)ã CALL INTERRUPT &H10ãã FOR Y = 0 TO Dep - 1ã FOR X = 0 TO Byt - 1ã GET# 1,,ByteBufferã ByteBuffer = ByteBuffer AND &HFFã IF (ByteBuffer AND &HC0) = &HC0 THENã Times = ByteBuffer AND &H3Fã GET# 1,,ByteBufferã FOR I = 1 TO Timesã PlotPixel ByteBufferã NEXT Iã ELSEã PlotPixel ByteBufferã END IFã NEXT Xã NEXT YããCLOSE 1ããBEEPãI$=INPUT$(1)ãMode13 0ãENDãããSUB PlotPixel(Z AS BYTE)ã SHARED Widã STATIC X, Yã DEF SEG = &HA000ã POKE Y*320+X, Zã DEF SEGã INCR Xã IF X > Wid THENã X = 0ã INCR Yã END IFãEND SUBããSUB Mode13(Bool)ã IF Bool THENã REG 1, &H0013ã ELSEã REG 1, &H0003ã END IFã CALL INTERRUPT &H10ãEND SUBãBrett Levin 3D CRAFT WITH COLOR Rich Geldreich 09-19-92 (00:00) QB, QBasic, PDS 448 15482 3DCOLOR.BAS 'Well, here you go! This is an improved, easier to read version of myã'fast 3-D wireframe program. I've done some things that a coupleã'people recommended and I've also sped it up a little.ã'(The number at the upper left corner of the screen is the number ofã'frames per second that are being displayed. It's updated every 20 frames, soã'it will be a little choppy.)ãã'3DEXP1b.BAS By Rich Geldreich April 16th, 1992ã'ã'Modifications by Brett Levin 9/19/92ã'ã' I've added another option to the DATA statements that defineã' the lines, the last option is the color of that line. To makeã' it easier to change and/or create new objects, there is an addedã' data statement near the end that defines the number of lines.ã' I've also fixed some spelling here and there and messed withã' the interface.ã' The next thing that I think needs to be done is to add a D3, soã' you can control the yaw (?) of the object. We could use pgup/pgdwnã' for this. If you have any comments/questions, be sure to ask.ã'ã' Rich- Be sure to tell me what you think of this. I'm working on aã' addition that will allow... SCRIPTED ANIMATIONS!! Cool huh? Tellã' me what you think.ã'ã'(This version has some documentation...)ãDEFINT A-ZããREAD numberlines ' First DATA statement near end of programã ' WARNING: Make sure you have less than 51 lines!ããTYPE LineTypeã X AS INTEGERã Y AS INTEGERã Z AS INTEGERã X1 AS INTEGERã Y1 AS INTEGERã Z1 AS INTEGERã LineColor AS INTEGERãEND TYPEãDIM Points(numberlines) AS LineTypeãDIM Xs(100), Ys(100), Xe(100), Ye(100), Xn(100), Yn(100)ãDIM Xs1(100), Ys1(100), Xe1(100), Ye1(100)ãDIM X(100), Y(100), Z(100), Pointers1(100), Pointers2(100)ãDIM R(100)ãDIM Cosine&(360), Sine&(360)ãCLSãCOLOR 15ãPRINT "3-D Craft v.1b"ãPRINT "By Rich Geldreich 1992"ãPRINT "(Slight modifications by Brett Levin 9/19/92)": COLOR 7ãPRINTãPRINT "Keys to use: (Turn NUMLOCK on!)"ãCOLOR 15: PRINT " General controls": COLOR 7ãPRINT "Q...............Quits"ãCOLOR 15: PRINT " View controls": COLOR 7ãPRINT "Numeric keypad..Controls your position(press 5 on the keypad"ãPRINT " to completly stop yourself) "ãPRINT "-...............Move forward"ãPRINT "+...............Move backward"ãCOLOR 15: PRINT " Object controls": COLOR 7ãPRINT "Arrow keys......Controls the rotation of the craft"ãPRINT "F...............Accelerates the craft (Forward)"ãPRINT "B...............Slows the craft (Backward)"ãPRINT "S...............Stops the craft"ãPRINT "A...............Toggles Auto Center, use this when you lose";ãPRINT " the craft"ãPRINT "C...............Stops the craft's rotation"ãPRINT "V...............Resets the craft to starting position"ãPRINTãPRINT "Wait a sec..."ãã'The following for/next loop makes a sine & cosine table.ã'Each sine & cosine is multiplied by 1024 and stored as long integers.ã'This is done so that we don't have to use any slow floating pointã'math at run time.ãA = 0ãFOR A! = 0 TO 359 / 57.29577951# STEP 1 / 57.29577951#ã Cosine&(A) = INT(.5 + COS(A!) * 1024)ã Sine&(A) = INT(.5 + SIN(A!) * 1024): A = A + 1ãNEXTãã'Next we read in all of the lines that are in the object...ãFOR A = 0 TO numberlines - 1ã READ Points(A).X, Points(A).Y, Points(A).Zã READ Points(A).X1, Points(A).Y1, Points(A).Z1ã READ Points(A).LineColorãNEXTã'Here comes the hard part... Consider this scenario:ãã'We have two connected lines, like this:ãã' 1--------2 and 3ã' |ã' |ã' |ã' |ã' 4ã'Where 1,2, 3, & 4 are the starting and ending points of each line.ã'The first line consists of points 1 & 2 and the second lineã'is made of points 3 & 4.ã'So, you ask, what's wrong? Nothing, really, but don't you see thatã'points 2 and 3 are really at the sample place? Why rotate them twice,ã'that would be a total waste of time? The following code eliminates suchã'occurrences from the line table. (great explanation, huh?)ãã'take all of the starting & ending points and put them in one bigã'array...ãNp = 0ãFOR A = 0 TO numberlines - 1ã X(Np) = Points(A).Xã Y(Np) = Points(A).Yã Z(Np) = Points(A).Zã Np = Np + 1ã X(Np) = Points(A).X1ã Y(Np) = Points(A).Y1ã Z(Np) = Points(A).Z1ã Np = Np + 1ãNEXTã'Now set up two sets of pointers that point to each point that a lineã'is made of... (in other words, scan for the first occurrence of eachã'starting and ending point in the point array we just built...)ãFOR A = 0 TO numberlines - 1ã Xs = Points(A).Xã Ys = Points(A).Yã Zs = Points(A).Z 'get the 3 coordinates of the startã FOR B = 0 TO Np - 1 'scan the point arrayã IF X(B) = Xs AND Y(B) = Ys AND Z(B) = Zs THENã Pointers1(A) = B 'set the pointer to point to theã EXIT FOR 'point we have just foundã END IFã NEXTã Xs = Points(A).X1 'do the same thing that we did aboveã Ys = Points(A).Y1 'except scan for the ending pointã Zs = Points(A).Z1 'of each lineã FOR B = 0 TO Np - 1ã IF X(B) = Xs AND Y(B) = Ys AND Z(B) = Zs THENã Pointers2(A) = Bã EXIT FORã END IFã NEXTãNEXTã'Okay, were almost done! All we have to do now is to build a tableã'that tells us which points to actually rotate...ãNr = 0ãFOR A = 0 TO numberlines - 1ã F1 = Pointers1(A) 'get staring & ending point numberã S1 = Pointers2(A)ã IF Nr = 0 THEN 'if this is the first point then it of courseã 'has to be rotatedã R(Nr) = F1: Nr = Nr + 1ã ELSEã Found = 0 'scan to see if this point already exists...ã FOR B = 0 TO Nr - 1ã IF R(B) = F1 THENã Found = -1: EXIT FOR 'shoot, it's already here!ã END IFã NEXTã IF NOT Found THEN R(Nr) = F1: Nr = Nr + 1 'point the pointã 'in the array it weã END IF 'can't find it...ãã Found = 0 'now look for the ending pointã FOR B = 0 TO Nr - 1ã IF R(B) = S1 THENã Found = -1: EXIT FORã END IFã NEXTã IF NOT Found THEN R(Nr) = S1: Nr = Nr + 1ãNEXTãPRINT "Press any key to begin..."ãA$ = INPUT$(1)ã'The following sets up the rotation & perspective variables.ãã'Vs = the screen that is currently being viewedã'Ws = the screen that is currently being worked onãVs = 1: Ws = 0ãã'Deg1 & Deg2 are the two angles of rotationã'D1 & D2 are the deltas of each axes. If D1 = -5, for instance, thenã'Deg1 will be decreased 5 degress every frame.ãDeg1 = 0: Deg2 = 0: D1 = 0: D2 = 0ãã'Spos & Mypos are for the perspective routines...ã'Spos is the screen's Z coordinate and Mypos is the users Z coordinateãSpos = -250: Mypos = 0ãã'Mx, My, and Mz are the coordinates of the user.ã'Ox, Oy, and Oz are the coordinates of the craft.ãMx = 0: my = 0: Mz = 0: Ox = 0: Oy = 0: Oz = -260ã'main loopãNumberOfFrames = 0ãDEF SEG = &H40ãStartTime = PEEK(&H6C)ãDOãã 'swap the viewing and working screens for page flipping...ã SWAP Vs, Wsã SCREEN 9, , Ws, Vsãã 'adjust the angles according to their deltas...ã Deg1 = (Deg1 + D1) MOD 360ã Deg2 = (Deg2 + D2) MOD 360ã 'fix the angles up if they go out of rangeã IF Deg1 < 0 THEN Deg1 = Deg1 + 360ã IF Deg2 < 0 THEN Deg2 = Deg2 + 360ã 'get the sine and cosine of each angle from the tablesã 'that were prepared at the beginning of the programã C1& = Cosine&(Deg1): S1& = Sine&(Deg1)ã C2& = Cosine&(Deg2): S2& = Sine&(Deg2)ãã 'now we must adjust the object's coordinatesã 'based on how quickly it is moving...ãã X = Speed: Y = 0: Z = 0ãã X1 = (X * C1&) \ 1024: Y1 = (X * S1&) \ 1024ã X2 = (X1 * C2&) \ 1024: Zn = (X1 * S2&) \ 1024ã Ox = Ox + X2: Oy = Oy + Y1: Oz = Oz + Znã IF Oz > 32000 THEN Oz = 32000ã IF Oz < -32000 THEN Oz = -32000ã IF Ox > 32000 THEN Ox = 32000ã IF Ox < -32000 THEN Ox = -32000ã IF Oy > 32000 THEN Oy = 32000ã IF Oy < -32000 THEN Oy = -32000ãã 'if Atloc is true then Auto-Center is on...ã IF AtLoc THENã Mx = Mx + (Ox - Mx) \ 4ã my = my + (Oy - my) \ 4ã Mz = Mz + ((Oz + 200) - Mz) \ 4ã ELSEã 'adjust the users position based on how much he is moving...ã Mz = Mz + Mzm: Mx = Mx + Mxm: my = my + Mymã IF Mz > 32000 THEN Mz = 32000ã IF Mz < -32000 THEN Mz = -32000ã IF Mx > 32000 THEN Mx = 32000ã IF Mx < -32000 THEN Mx = -32000ã IF my > 32000 THEN my = 32000ã IF my < -32000 THEN my = -32000ã END IFã '(Wait for vertical retrace, reduces flicker. This was recommendedã 'by someone on the echo but I can't remember who! Thanks)ã WAIT &H3DA, 8ã 'erase the old lines...ã IF Ws = 1 THENã FOR A = 0 TO Ln(Ws) - 1ã LINE (Xs1(A), Ys1(A))-(Xe1(A), Ye1(A)), 0ã NEXTã ELSEã FOR A = 0 TO Ln(Ws) - 1ã LINE (Xs(A), Ys(A))-(Xe(A), Ye(A)), 0ã NEXTã END IFã 'print frames per secondã LOCATE 1, 1: PRINT A$ã 'rotate the points...ã FOR A = 0 TO Nr - 1ã R = R(A): Xo = X(R): Yo = Y(R): Zo = Z(R)ã X1 = (Xo * C1& - Yo * S1&) \ 1024ã Y1& = (Xo * S1& + Yo * C1&) \ 1024 - my + Oyã X1& = (X1 * C2& - Zo * S2&) \ 1024 - Mx + Oxã Zn = (X1 * S2& + Zo * C2&) \ 1024 - Mz + Ozã 'if the point is too close(or behind) the viewer thenã 'don't draw it...ã IF (Mypos - Zn) < 15 THENã Xn(R) = -1: Yn(R) = 0: Zn = 0ã ELSEã 'Put the point into perspective...ã 'The original formula was:ã 'Xnew=Xnew+( -Xold * ( (Spos-Z) / (MPos-Z) ) )ã 'Ynew=Ynew=( -Yold * ( (Spos-Z) / (Mpos-Z) ) )ã V = (1330& * (Spos - Zn)) \ (Mypos - Zn)ã Xn(R) = 320 + X1& + (-X1& * V) \ 1330ãã 'The Y coordinate is also multiplied by .8 to adjustã 'for SCREEN 9's height to width ratio...ãã Yn(R) = 175 + (8 * (Y1& + (-Y1& * V) \ 1330)) \ 10ã END IFã NEXTã 'draw the lines...ã '(There are two seperate cases, each puts it's coordinatesã 'in a different array for later erasing. I could of used aã '2 dimensional array for this but that is slower.)ã IF Ws = 1 THENã Ln = 0ã FOR A = 0 TO numberlines - 1ã F1 = Pointers1(A): S1 = Pointers2(A)ã Xn = Xn(F1): Yn = Yn(F1)ã 'if Xn<>-1 then it's in view...ã IF Xn <> -1 THENã IF Xn(S1) <> -1 THENã X1 = Xn(S1): Y1 = Yn(S1)ã LINE (X1, Y1)-(Xn, Yn), Points(A).LineColorã 'store the lines so they can be erased later...ã Xs1(Ln) = X1: Ys1(Ln) = Y1ã Xe1(Ln) = Xn: Ye1(Ln) = Ynã Ln = Ln + 1ã END IFã END IFã NEXTã ELSEã Ln = 0ã FOR A = 0 TO numberlines - 1ã F1 = Pointers1(A): S1 = Pointers2(A)ã Xn = Xn(F1): Yn = Yn(F1)ã 'if Xn<>-1 then it's in view...ã IF Xn <> -1 THENã IF Xn(S1) <> -1 THENã X1 = Xn(S1): Y1 = Yn(S1)ã LINE (X1, Y1)-(Xn, Yn), Points(A).LineColorã 'store the lines so they can be erased later...ã Xs(Ln) = X1: Ys(Ln) = Y1ã Xe(Ln) = Xn: Ye(Ln) = Ynã Ln = Ln + 1ã END IFã END IFã NEXTã END IFã Ln(Ws) = Lnã K$ = UCASE$(INKEY$)ã 'Process the keystroke(if any)...ã IF K$ <> "" THENã SELECT CASE K$ã CASE "A"ã AtLoc = NOT AtLocã CASE "+"ã Mzm = Mzm + 2ã CASE "-"ã Mzm = Mzm - 2ã CASE "5"ã Mxm = 0: Mym = 0: Mzm = 0ã CASE "4"ã Mxm = Mxm - 2ã CASE "6"ã Mxm = Mxm + 2ã CASE "8"ã Mym = Mym - 2ã CASE "2"ã Mym = Mym + 2ã CASE "F"ã Speed = Speed + 5ã CASE "B"ã Speed = Speed - 5ã CASE "C"ã D1 = 0: D2 = 0ã CASE "S"ã Speed = 0ã CASE CHR$(0) + CHR$(72)ã D1 = D1 + 1ã CASE CHR$(0) + CHR$(80)ã D1 = D1 - 1ã CASE CHR$(0) + CHR$(75)ã D2 = D2 - 1ã CASE CHR$(0) + CHR$(77)ã D2 = D2 + 1ã CASE "Q"ã SCREEN 0, , 0, 0: CLS : PRINT "See ya later!"ã ENDã CASE "V"ã D1 = 0: D2 = 0: Deg1 = 0: Deg2 = 0: Speed = 0ã END SELECTã END IFã NumberOfFrames = NumberOfFrames + 1ã 'see if 20 frames have passed; if so then seeã 'how long it took...ã IF NumberOfFrames = 20 THENã TotalTime = PEEK(&H6C) - StartTimeã IF TotalTime < 0 THEN TotalTime = TotalTime + 256ã FramesPerSecX100 = 36400 \ TotalTimeã High = FramesPerSecX100 \ 100ã Low = FramesPerSecX100 - Highã 'A$ has the string that is printed at the upper leftã 'corner of the screenã A$ = MID$(STR$(High), 2) + "."ã A$ = A$ + RIGHT$("0" + MID$(STR$(Low), 2), 2) + " "ã NumberOfFrames = 0ã StartTime = PEEK(&H6C)ã END IFããLOOPãã'This defines the number of lines...ãDATA 45ã'The following data is the shuttle craft...ã'stored as Start X,Y,Z, End X,Y,Z, Line colorãã' Note: I have added a little description to each section of theã' line data to make it easier to experiment around with the colors..ã' Don't ask how long this took me... ãã' topãDATA -157,22,39,-157,-18,39,7ãDATA -157,-18,39,-127,-38,39,7ãDATA -127,-38,39,113,-38,39,7ãDATA 113,-38,39,193,12,39,7ã' bottomãDATA 33,42,39,33,42,-56,8ãDATA 33,42,-56,-127,42,-56,8ãDATA -127,42,-56,-157,22,-56,8ãDATA -157,22,-56,-157,22,39,8ã' topãDATA -157,22,-56,-157,-18,-56,7ãDATA -157,-18,-56,-157,-18,39,7ãDATA -157,-18,-56,-127,-38,-56,7ãDATA -127,-38,-56,-127,-38,39,7ãDATA -127,-38,-56,113,-38,-56,7ãDATA 113,-38,-56,113,-38,39,7ãDATA 113,-38,-56,193,12,-56,7ã' bottomãDATA 193,12,-56,193,12,39,8ãDATA -157,22,-56,193,12,-56,8ãDATA 193,12,39,-157,22,39,8ã' writingãDATA -56,-13,41,-56,-3,41,12ãDATA -56,-3,41,-26,-3,41,13ãDATA -26,-3,41,-26,7,41,4ãDATA -51,7,41,-31,-13,41,5ãDATA -11,-13,41,-11,-3,41,5ãDATA -11,-3,41,-1,7,41,4ãDATA 9,7,41,9,-8,41,13ãDATA 9,-8,41,24,-8,41,12ã' topãDATA 34,16,41,34,-38,41,7ãDATA 33,-39,41,33,-39,-53,7ãDATA 33,-39,-53,33,15,-53,7ã' hatchãDATA -42,-38,19,-72,-38,19,4ãDATA -72,-38,19,-72,-38,-41,4ãDATA -72,-38,-41,-42,-38,-41,4ãDATA -42,-38,-41,-42,-38,19,4ã' bottomãDATA 33,42,39,34,16,41,8 ãDATA 33,42,-56,33,15,-53,8 ãDATA -157,22,39,-127,42,39,8ãDATA -127,42,-56,-127,42,39,8ãDATA -127,42,39,33,42,39,8 ã' windowãDATA 159,-8,-56,159,-8,40,9 ãDATA 143,-18,-56,143,-18,39,9ã' bottomãDATA 193,12,39,193,32,30,8 ãDATA 33,42,39,193,32,30,8 ãDATA 193,32,30,193,32,-47,8 ãDATA 33,42,-56,193,32,-47,8 ãDATA 193,12,-56,193,32,-47,8ããJonathan Leger PB MODEX ROUTINES leger@pc2.pc.maricopa.edu Unknown Date PB 328 9144 PBMODEX.BAS '*********************************ã'*** PowerBasic Mode-X Routines **ã'*****************************************************ã'All routines (except SavePal, LoadPal, and ScrollPal)ã'converted by Jonathan Leger from the VGA Trainerã'TurboPascal 6.0 code.ã'*******************************************************ã'If something doesn't work, or if you have any questionsã'or comments about any of these routines (especially ifã'you have written some additions to it!!!) _please_ letã'me know. I read the comp.lang.basic.misc newsgroupã'often, or you can e-mail me at leger@pc2.pc.maricopa.eduã'********************************************************ããDeclare Sub SetMCGA() ã 'move to 320x200x256c modeãDeclare Sub SetText() ã 'go back to 80x25 text modeãDeclare Sub ClsMCGA(colr%) ã 'clear the screen with color colr%ãDeclare Sub SetPixel(x%, y%, colr%)ã 'same as PSETãDeclare Sub GetPal(colr%, r%, g%, b%)ã 'return the RGB colorã 'values for color colr%ã 'into variables r%, g%, & b%ãDeclare Sub SetPal(colr%, r%, g%, b%)ã 'set the RGB values for colr%ãDeclare Sub Blackout() ã 'Set all palette entries to RGB 000ãDeclare Sub SavePal(pal()) ã 'Save the palette into an array ofã 'p(255, 3) dimensionsãDeclare Sub LoadPal(pal()) ã 'Load the palette to be used fromã 'pal()ãDeclare Sub FadeIn(pal()) ã 'Fade from current palette into newã 'palette. To fade from black intoã 'a palette, use SavePal(), thenã 'Blackout(), then FadeIn()ãDeclare Sub FadeOut(pal()) ã 'Fade from current palette down toã 'black.ãDeclare Sub WaitForRetrace() ã 'Waits for verticle retrace to removeã 'flicker/fuzz from display. To seeã 'the effects of this, try taking outã 'WaitForRetrace() in the example program.ãDeclare Sub CircleMCGA (x%, y%, r%, colr%)ã 'draw a circle at x%, y%ã 'with radius r% and color colr%ãDeclare Sub LineMCGA (x1%, y1%, x2%, y2%, colr%)ã 'draw a line from (x1,y1) to (x2,y2)ã 'with color colr%ãDeclare Sub ScrollPal (p(), stp, startp, endp)ã 'rotate the palette over STP entriesã 'starting with entry startp and endingã 'with entry endp. See main programã 'for an example of how to use this.ãã$CPU 80386 'For extra speed. You can change this ifã 'you don't have a 386+ããDEFINT A-ZãããDIM p(255, 3) 'Make some space for the paletteããSetMCGAãSavePal p()ããcolr = 1ãfor r = 1 to 150ã CircleMCGA 160, 100, r, rãnext rãFlipScreenãendããdoã ScrollPal p(), 1, 1, 255ã WaitForRetraceã LoadPal p()ãloop until inkey$ <> ""ãendããDEFINT a-zãsub SetMCGA ()ã'---------------------------------------------ã'--- Go into MCGA (320x200x256) Video Mode ---ã'---------------------------------------------ã! mov ax, &h13 ;13h Video Mode (320x200x256)ã! int &h10 ;Bang! We're there.ãend subããDEFINT a-zãsub SetText ()ã'-------------------------ã'--- Go into text mode ---ã'-------------------------ã! mov ax, &h03 ;03h Video Mode (text)ã! int &h10 ;Bang! We're there.ãend subããDEFINT a-zãsub ClsMCGA (colr%)ã'------------------------------------------ã'--- Clear the screen using color COLR% ---ã'------------------------------------------ã Clrs$ = STRING$(32000, colr%)ã def seg = ActivePage% 'MCGA page mem locationã POKE$ 0, Clrs$ 'Fill half of screen (160*100 = 32000 bytes)ã POKE$ 32000, Clrs$ 'Fill second half of screenã def seg 'with the specified color.ãend subããDEFINT a-zãsub SetPixel (x%, y%, colr%)ã'------------------------------------------------ã'--- Set a pixel on the screen (the fast way) ---ã'--- (x% = x-co, y% = y-co, colr% = color [0- ---ã'--- 255]) ---ã'------------------------------------------------ã def seg = ActivePage% 'MCGA page mem locationã POKE (x%+(y%*320)), colr% 'Set the pixel to colr%ã def segãend subããDEFINT a-zãsub GetPal (colr%, r%, g%, b%)ã'------------------------------------------------ã'--- Reads the red/green/blue values for the ---ã'--- specified color (colr%) and returns them ---ã'------------------------------------------------ãOUT &h3c7, colr%ãr% = INP(&h3c9)ãg% = INP(&h3c9)ãb% = INP(&h3c9)ãend subããDEFINT a-zãsub SetPal(colr%, r%, g%, b%)ã'---------------------------------------------------------ã'--- Assign the RGB values for a pallete entry (colr%) ---ã'---------------------------------------------------------ãOUT &h3c8, colr%ãOUT &h3c9, r%ãOUT &h3c9, g%ãOUT &h3c9, b%ãend subããDEFINT a-zãsub Blackout()ã'-----------------------------------------------------------------ã'--- Blacks out the screen by setting all palette entries to 0 ---ã'-----------------------------------------------------------------ãfor p = 0 to 255ã SetPal p, 0, 0, 0 'Set each entry to red=0, green=0, blue=0ãnext pãend subããDEFINT a-zãsub SavePal(p())ã'----------------------------------------------ã'--- Stores the palette entries to an array ---ã'----------------------------------------------ãfor p = 0 to 255ã GetPal p, p(p,1), p(p,2), p(p,3) 'Save each entryãnext pãend subããDEFINT a-zãsub LoadPal(p())ã'-------------------------------------------------------ã'--- Loads the palette with entires in the array P() ---ã'-------------------------------------------------------ãfor p = 0 to 255ã SetPal p, p(p,1), p(p,2), p(p,3) 'Change each entryãnext pãend subããDEFINT a-zãsub FadeIn(p())ã'------------------------------ã'--- Fade in to palette P() ---ã'------------------------------ãdim tmp(3)ããfor p = 1 to 64 'A color value for R/G/B is 0 to 63, so we onlyã 'need to loop 64 timesãã WaitForRetrace 'Keep the program synched with the monitorãã for e = 0 to 255 'Loop once for each palette entryã GetPal e, tmp(1), tmp(2), tmp(3)ãã 'If the current R/G/B values are lower than they should be,ã 'increase them!ã if tmp(1) < p(e, 1) then incr tmp(1)ã if tmp(2) < p(e, 2) then incr tmp(2)ã if tmp(3) < p(e, 3) then incr tmp(3)ãã 'Set the palette to reflect the changesã SetPal e, tmp(1), tmp(2), tmp(3)ãã next eãnext pãend subããDEFINT a-zãsub FadeOut ()ã'-------------------------ã'--- Fade out to black ---ã'-------------------------ãdim tmp(3)ããfor p = 1 to 64 'A color value for R/G/B is 0 to 63, so we onlyã 'need to loop 64 timesãã WaitForRetrace 'Keep the program synched with the monitorãã for e = 0 to 255 'Loop once for each palette entryã GetPal e, tmp(1), tmp(2), tmp(3)ãã 'If the current R/G/B values are greater than zero,ã 'decrease them!ã if tmp(1) > 0 then decr tmp(1)ã if tmp(2) > 0 then decr tmp(2)ã if tmp(3) > 0 then decr tmp(3)ãã 'Set the palette to reflect the changesã SetPal e, tmp(1), tmp(2), tmp(3)ãã next eãnext pãend subããDEFINT a-zãsub WaitForRetrace()ã'----------------------------------------------------------------------ã'--- Wait for verticle retrace before continuing, that way when the ---ã'--- screen is changed, no fuzz or flicker occurs. ---ã'----------------------------------------------------------------------ã! mov dx,&h3daãl1:ã! in al,dxã! and al,&h08ã! jnz l1ãl2:ã! in al,dxã! and al,&h08ã! jz l2ãend subããDEFINT a-zãsub CircleMCGA (x%, y%, r%, colr%)ã'-------------------------------------------------------------ã'--- Draw a circle at (x%, y%) with radius r%, color colr% ---ã'-------------------------------------------------------------ãdoã tx = cint(r%*cos(rad!))ã ty = cint(r%*sin(rad!))ã SetPixel x%+tx, y%+ty, colr%ã rad! = rad! + .006ãloop until rad! > 6.4ãend subããdefint a-zãsub LineMCGA (x1%, y1%, x2%, y2%, colr%)ã'----------------------------------------------------------------ã'--- Draw a line from (x1%, y1%) to (x2%, y2%) in color colr% ---ã'----------------------------------------------------------------ãu% = x2% - x1%ãv% = y2% - y1%ãd1x = sgn(u%)ãd1y = sgn(v%)ãd2x = sgn(u%)ãd2y = 0ãm = abs(u%)ãn = abs(v%)ããif not(m > n) thenã d2x = 0ã d2y = sgn(v%)ã m = abs(v%)ã n = abs(u%)ãend ifããs = m / 2ããfor i = 0 to mã SetPixel a, b, colr%ã s = s + nã if not(s < m) thenã s = s - mã a = a + d1xã b = b + d1yã elseã a = a + d2xã b = b + d2yã end ifãnext iãend subããdefint a-zãsub ScrollPal (p(), stp, startp, endp)ã'-------------------------------------------------------------------ã'--- Scroll the palette up one color so that pal(1) = pal(255), ---ã'--- pal(2) = pal(1), pal(3) = pal(2) ... pal(255) = pal(254) ---ã'-------------------------------------------------------------------ãincr endpããfor cnt = startp to startp+(stp-1)ã for rgb = 1 to 3ã swap p(cnt, rgb), p((endp+cnt)-stp, rgb)ã next rgbãnext cntããfor p = startp+stp to endpã 'Switch all 3 values: red, green, and blueã for rgb = 1 to 3ã swap p(p, rgb), p(p-stp, rgb)ã next rgbãnext pãã'LoadPal(p()) 'Make the changes take effectããend subãUnknown Author(s) BACKGROUND COLOR PRINTING PC Magazine Unknown Date QB, PDS 28 1515 COLPRNT.BAS 'I put this together from a short article in PC-Mag: by using theã'ColorPrint subroutine, I can display text against various colouredã'backgrounds in screen modes 9 and 12. It does NOT work in screen modeã'1. In the CALL below, the CSRLIN and POS(0) are the location at whichã'you want to print, and the 14 and 5 are the foreground and backgroundã'colours. NOTE: I have this coded for PDS 7.1; in QB4.5, replace SSEG byã'VARSEG.ããCALL ColorPrint(" Status Bar ", CSRLIN, POS(0), 14, 5)ããSUB ColorPrint (TEXT$, ROW%, COL%, FC%, BC%) STATICãREM Prints TEXT$ in EGA or VGA graphics mode with both Foreground andã' Background colours specified. Doesn't work in graphics CGA modes.ã' Achieves result by XORing text with a solid string of CHR$(219).ã DIM INReg AS REGTypeX, OUTReg AS REGTypeXã C$ = STRING$(LEN(TEXT$), 219) ' String of solid chars for backgrndã INReg.AX = &H1300 ' Video service 13h, subfunction 0ã INReg.BX = BC% ' Background colourã INReg.CX = LEN(TEXT$) ' String lengthã INReg.DX = 256 * (ROW% - 1) + (COL% - 1) ' Text pos. in "origin 0"ã INReg.ES = SSEG(C$) ' String's segmentã INReg.BP = SADD(C$) ' String's addressã CALL InterruptX(&H10, INReg, OUTReg) ' Output the backgroundã INReg.BX = (FC% XOR BC%) + &H80 ' BL=ForeColor; BH=&H80 uses XOR to drawã INReg.ES = SSEG(TEXT$)ã INReg.BP = SADD(TEXT$)ã CALL InterruptX(&H10, INReg, OUTReg) ' Output the text, XORing w/backgrndãEND SUBãThe ABC Programmer STORE COLOR PALETTES STORE,COLOR,PALETTES 11-16-95 (13:27) QB, QBasic, PDS 114 3053 STOREPAL.BAS'=======================================================ã' STORE COLOR PALETTES IN ARRAYS By William Yu (11/1995)ã' Demonstrates the use of Palletes in Screen 13ã'=======================================================ããDECLARE SUB ChangePal (Colour(), Reverse, Start)ããDIM Blue(16), Red(16), Green(16)ãDIM White(16)ãDIM Yellow(16)ãDIM Purple(16)ãDIM Cyan(16)ãDIM Orange(16)ãDIM Pink(16)ããFalse = 0ãTrue = NOT FalseããSCREEN 13ãN = 1ãFOR X = 1 TO 48 STEP 3ã Blue(N) = 65536 * (X + 5) + 256ã Red(N) = 65536 + 256 + (X + 5)ã Green(N) = 65536 + 256 * (X + 5)ã White(N) = 65536 * (X + 12) + 256 * (X + 12) + (X + 12)ã Yellow(N) = 65536 + 256 * (X + 15) + (X + 15)ã Purple(N) = 65536 * (X + 15) + 256 + (X + 15)ã Cyan(N) = 65536 * (X + 15) + 256 * (X + 15)ã Orange(N) = 65536 + 256 * (X + 1) + (X + 17)ã IF X < 28 THENã Pink(N) = 65536 * (X + 10) + 256 * (X + .1) + (X + 10)ã ELSEã Pink(N) = Pink(N - 8)ã END IFã PALETTE N, Blue(N)ã PALETTE N + 16, Red(N)ã PALETTE N + 32, Green(N)ã PALETTE N + 48, White(N)ã PALETTE N + 64, Yellow(N)ã PALETTE N + 80, Purple(N)ã PALETTE N + 96, Cyan(N)ã PALETTE N + 112, Orange(N)ã PALETTE N + 128, Pink(N)ã LOCATE 1, N: COLOR N: PRINT "Û"ã LOCATE 2, N: COLOR N + 16: PRINT "Û"ã LOCATE 3, N: COLOR N + 32: PRINT "Û"ã LOCATE 4, N: COLOR N + 48: PRINT "Û"ã LOCATE 5, N: COLOR N + 64: PRINT "Û"ã LOCATE 6, N: COLOR N + 80: PRINT "Û"ã LOCATE 7, N: COLOR N + 96: PRINT "Û"ã LOCATE 8, N: COLOR N + 112: PRINT "Û"ã LOCATE 9, N: COLOR N + 128: PRINT "Û"ã N = N + 1ãNEXT XããLOCATE 11, 1: PRINT "Watch while I switch the all the"ãPRINT "palettes to green with CHANGEPAL"ããX = 1ãFOR I = 1 TO 9ã ChangePal Green(), False, Xã X = X + 16ãNEXT IããCOLOR 47: PRINT "Now let's go backwards!"ããX = 129ãFOR I = 1 TO 9ã ChangePal Orange(), True, Xã X = X - 16ãNEXT IããCOLOR 63: PRINT "Watch while I reverse the process."ããFOR N = 1 TO 16ã PALETTE N, Blue(N)ã PALETTE N + 16, Red(N)ã PALETTE N + 32, Green(N)ã PALETTE N + 48, White(N)ã PALETTE N + 64, Yellow(N)ã PALETTE N + 80, Purple(N)ã PALETTE N + 96, Cyan(N)ã PALETTE N + 112, Orange(N)ã PALETTE N + 128, Pink(N)ãNEXT NããLOCATE 17: COLOR 95: PRINT "Play around with the palettes, have fun!"ããENDãã'ã' Colour() can be any one of the defined array colour typesã' Reverse can either be TRUE or FALSEã' if True, the palette changes from high intensity to lowã' if False, the palette changes from low to high intensityã' Start can be any integer from which you wish to define the palettedã' color to (Remember that an array has 16 paletted colors)ã' So if you start from 1 it'll stop at 16ã' The next starting point would be 17 and so on...ã'ãSUB ChangePal (Colour(), Reverse, Start)ããIF Reverse THENã FOR I = Start + 15 TO Start STEP -1ã PALETTE I, Colour(I - Start + 1)ã NEXT IãELSEã FOR I = Start TO Start + 15ã PALETTE I, Colour(I - Start + 1)ã NEXT IãEND IFããEND SUBããCoridon Henshaw FAST PALETTE FidoNet QUIK_BAS Echo 12-22-92 (12:50) QB, QBasic, PDS 31 892 FASTPAL.BAS ' > SUB VGAPal (Attr%, Red%, Green%, Blue%)ã' > PALETTE Attr%, (Red%) + (Green% * 256) + (Blue% * 65536)ã' > END SUBãã'Ugh, that's SLOW. PALETTE takes forever, not to mention all thatã'integer math... Use this:ããDECLARE SUB ReadPalette (Attr%, Red%, Green%, Blue%)ãDECLARE SUB SetPalette (Attr%, Red%, Green%, Blue%)ããDEFINT A-ZããSUB ReadPalette (Attr%, Red%, Green%, Blue%)ãOUT &H3C7, Att%ãRed% = INP(&H3C9)ãGreen% = INP(&H3C9)ãBlue% = INP(&H3C9)ãEND SUBããSUB SetPalette (Attr%, Red%, Green%, Blue%)ãOUT &H3C7, Attr%ãOUT &H3C8, Attr%ãOUT &H3C9, Red%ãOUT &H3C9, Green%ãOUT &H3C9, Blue%ãEND SUBãã'ReadPalette is for reading the color values of a attribute, andã'SetPalette sets them. All using direct access to the VGA controller,ã'so they are very fast. If I wanted to, I could re-code them in ASM forã'more speed, but I don't quite need them THAT fast ;)ãMichael Teator QSTAR mhscards@aol.com 11-06-94 (12:11) QB, QBasic, PDS 438 18763 QSTAR.BAS ' Press SHIFT-F5 to startã'ã'ã' Sorry that most of this code is cryptc or messy. Most of it was writtenã' as 2:00 in the morning. Most of this was actually written back in may ofã' 94, I'm just now getting around to releasing it. There's not musch forã' internal comments in this thing, its not very elegant code anyway. I don'tã' really suggest for anyone to learn by looking at this. If you want to seeã' some very well written code to learn from, look for some of my other creationsã' like: QPlasma - 256 color plasma generator: Has very well written code,ã' I commented the heck out of it. Get this if you want toã' see some really nice pallete manipulation.ã' StarField - Simple 3-D starfield - Good for startersã'ã' coming soon : QTris - 256 color tetris with raytraced (wow!) backgrounds.ã' NEVER before has a QBasic game accomplished whatã' QTris willã' QDraw - 256 color drawing program, uses my new file formatã' that I'll introduce with QTris. Also can load GIF'sã' and QPlasma style palette files. Mouse support too!ã'ã' If any of you want to see my Path Generator that I used for the 3-D tunnel,ã' write me at Skream@aol.com and I'll upload it.ããDEFINT A-ZããDECLARE FUNCTION ComputerType ()ãDECLARE SUB Fade (ty, tx, text$)ããDEF FNMove (xp%, yp%, xr%, yr%, n%, vstop%)ã ul = yr: ll = xr: bl = vstop - yr: rl = 319 - xrã SELECT CASE nã CASE 1ã IF yp > ul THEN IF xp > ll THEN FNMove = 1 ELSE FNMove = 2 ELSE IF xp > ll THEN FNMove = 4 ELSE FNMove = 3ã CASE 2ã IF yp > ul THEN IF xp < rl THEN FNMove = 2 ELSE FNMove = 1 ELSE IF xp < rl THEN FNMove = 3 ELSE FNMove = 4ã CASE 3ã IF yp < bl THEN IF xp < rl THEN FNMove = 3 ELSE FNMove = 4 ELSE IF xp < rl THEN FNMove = 2 ELSE FNMove = 1ã CASE 4ã IF yp < bl THEN IF xp > ll THEN FNMove = 4 ELSE FNMove = 3 ELSE IF xp > ll THEN FNMove = 1 ELSE FNMove = 2ã END SELECTãEND DEFããOPTION BASE 1ãRANDOMIZE TIMERãDIM SHARED ScrollDelayããScrollDelay = ComputerTypeããSCREEN 7, , 0ãFade 9, 17, "QStar!"ãFade 10, 12, "by Michael Teator"ãFade 12, 7, "Please wait... initializing."ããStars = 100ãNumBoxes = 4ãDist = 5ãLineClr = 9ãDelayClr = LineClr - 8ãGrid3DClr = 5ãCounter = 1ãNumDelayVectors = 8ãNumCircles = 20ããDIM ReflTxt#(124)ãDIM BoxXradius(NumBoxes), BoxYradius(NumBoxes), BoxX(NumBoxes), BoxY(NumBoxes), BoxDir(NumBoxes), BoxClr(NumBoxes)ãDIM StarX(Stars), StarY(Stars), StarSpeed(Stars), StarClr(Stars)ãDIM LineX(2), LineY(2), LineDir(2), DelayVector(4 * NumDelayVectors)ãDIM Colors(4)ãDIM ForeCircles(3 * NumCircles), CircleR(NumCircles * 3 + 1)ããRESTORE TubeDataãREAD NumFramesãDIM CircleX(NumFrames), CircleY(NumFrames), CircleC(NumFrames)ãFOR num = 1 TO NumFramesã READ CircleX(num), CircleY(num)ãNEXTããFOR num = 1 TO NumFramesã clr = INT(RND * 2) + 1ã IF clr = 1 THEN CircleC(num) = 9 ELSE CircleC(num) = 1ãNEXTããCircleR(1) = 40ããFOR num = 1 TO NumCircles * 3 STEP 3ã CircleR(num + 1) = num ^ (3 / 2) / 2 + CircleR(1)ãNEXTããRESTORE ColorsãFOR num = 1 TO 4ãREAD Colors(num)ãNEXTããPickClr = 1ãBoxCount = 1ãDOã BoxClr(BoxCount) = Colors(PickClr)ã IF PickClr < 4 THEN PickClr = PickClr + 1 ELSE PickClr = 1ã BoxCount = BoxCount + 1ãLOOP UNTIL BoxCount > NumBoxesããLineX(1) = 62ãLineY(1) = 53ãLineX(2) = 120ãLineY(2) = 198ãLineDir(1) = 1ãLineDir(2) = 2ããFOR num = 1 TO Starsã StarPlane = INT(RND * 4) + 1ã SELECT CASE StarPlaneã CASE 1ã StarSpeed(num) = 8ã StarClr(num) = 15ã StarX(num) = INT(RND * 319)ã StarY(num) = INT(RND * 199)ã CASE 2ã StarSpeed(num) = 5ã StarClr(num) = 7ã StarX(num) = INT(RND * 319)ã StarY(num) = INT(RND * 181)ã CASE 3ã StarSpeed(num) = 3ã StarClr(num) = 7ã StarX(num) = INT(RND * 319)ã StarY(num) = INT(RND * 163)ã CASE 4ã StarSpeed(num) = 1ã StarClr(num) = 8ã StarX(num) = INT(RND * 319)ã StarY(num) = INT(RND * 144)ã END SELECTãNEXTããFOR num = 1 TO NumBoxesã BoxXradius(num) = INT(RND * 20) + 1ã BoxYradius(num) = INT(RND * 20) + 1ã BoxX(num) = INT(RND * (319 - BoxXradius(num) * 2)) + BoxXradius(num)ã BoxY(num) = INT(RND * (158 + num * 4 - BoxYradius(num) * 2)) + BoxYradius(num)ã BoxDir(num) = INT(RND * 4) + 1ãNEXTããRESTORE ScrollerãDOã READ ScrollTxt$ã Scroller$ = Scroller$ + ScrollTxt$ãLOOP UNTIL ScrollTxt$ = ""ãScroller$ = SPACE$(30) + Scroller$ãTxtLength = LEN(Scroller$) + 1ããFOR Frames = 2 TO 6ã SCREEN , , Frames, 0ã SELECT CASE Framesã CASE 2: RESTORE Grid3DFrame2ã CASE 3: RESTORE Grid3DFrame3ã CASE 4: RESTORE Grid3DFrame4ã CASE 5: RESTORE Grid3DFrame5ã CASE 6: RESTORE Grid3DFrame6ã END SELECTã FOR Grid3DLine = 1 TO 8ã READ x1!, y1!, x2!, y2!ã LINE (x1!, y1!)-(x2!, y2!), Grid3DClrã NEXTã RESTORE Grid3DCommonsã FOR Grid3DLine = 1 TO 15ã READ x1, y1, x2, y2ã LINE (x1, y1)-(x2, y2), Grid3DClrã NEXTãNEXTããSCREEN , , 1, 0ãRESTORE Grid3DFrame1ãFOR Grid3DLine = 1 TO 6ã READ x1, y1, x2, y2ã LINE (x1, y1)-(x2, y2), Grid3DClrã PCOPY 1, 0ãNEXTãRESTORE Grid3DCommonsãFOR Grid3DLine = 1 TO 15ã READ x1, y1, x2, y2ã LINE (x1, y1)-(x2, y2), Grid3DClrã PCOPY 1, 0ãNEXTããSCREEN , , 0ãLOCATE 12, 18: COLOR 10: PRINT "READY!"ãSLEEP 1ããDOã SCREEN , , 7, 0ã PCOPY 1, 7ã IF Counter < TxtLength THENã LOCATE 18, 5: COLOR 4: PRINT MID$(Scroller$, Counter, 30)ã TopLine = 136ã BotRefl = 151ã DOã GET (32, TopLine)-(270, TopLine), ReflTxt#ã PUT (32, BotRefl), ReflTxt#, XORã TopLine = TopLine + 1ã BotRefl = BotRefl - 1ã LOOP UNTIL TopLine = 143ã IF counter2 = ScrollDelay THEN counter2 = 0: Counter = Counter + 1 ELSE counter2 = counter2 + 1ã ELSEã GOTO Part2ã END IFã FOR NumStars = 1 TO Starsã StarX(NumStars) = StarX(NumStars) - StarSpeed(NumStars)ã IF StarX(NumStars) < 0 THENã StarX(NumStars) = 319ã SELECT CASE StarSpeed(NumStars)ã CASE 8ã StarY(NumStars) = INT(RND * 199)ã CASE 5ã StarY(NumStars) = INT(RND * 181)ã CASE 3ã StarY(NumStars) = INT(RND * 163)ã CASE 1ã StarY(NumStars) = INT(RND * 144)ã END SELECTã END IFã PSET (StarX(NumStars), StarY(NumStars)), StarClr(NumStars)ã NEXTã FOR num = 1 TO NumBoxesã LINE (BoxX(num) - BoxXradius(num), BoxY(num) - BoxYradius(num))-(BoxX(num) + BoxXradius(num), BoxY(num) + BoxYradius(num)), BoxClr(num), Bã BoxDir(num) = FNMove(BoxX(num), BoxY(num), BoxXradius(num), BoxYradius(num), BoxDir(num), 158 + num * 4)ã SELECT CASE BoxDir(num)ã CASE 4: BoxY(num) = BoxY(num) + 1: BoxX(num) = BoxX(num) - 1ã CASE 1: BoxY(num) = BoxY(num) - 1: BoxX(num) = BoxX(num) - 1ã CASE 3: BoxY(num) = BoxY(num) + 1: BoxX(num) = BoxX(num) + 1ã CASE 2: BoxY(num) = BoxY(num) - 1: BoxX(num) = BoxX(num) + 1ã END SELECTã NEXTã FOR Delays = 1 TO NumDelayVectors * 4 STEP 4ã LINE (DelayVector(Delays), DelayVector(Delays + 1))-(DelayVector(Delays + 2), DelayVector(Delays + 3)), DelayClrã NEXTã FOR num = 1 TO 2ã LineDir(num) = FNMove(LineX(num), LineY(num), 0, 0, LineDir(num), 199)ã SELECT CASE LineDir(num)ã CASE 4: LineY(num) = LineY(num) + Dist: LineX(num) = LineX(num) - Distã CASE 1: LineY(num) = LineY(num) - Dist: LineX(num) = LineX(num) - Distã CASE 3: LineY(num) = LineY(num) + Dist: LineX(num) = LineX(num) + Distã CASE 2: LineY(num) = LineY(num) - Dist: LineX(num) = LineX(num) + Distã END SELECTã NEXTã LINE (LineX(1), LineY(1))-(LineX(2), LineY(2)), LineClrã FOR Shift = NumDelayVectors * 4 TO 8 STEP -4ã DelayVector(Shift) = DelayVector(Shift - 4)ã DelayVector(Shift - 1) = DelayVector(Shift - 5)ã DelayVector(Shift - 2) = DelayVector(Shift - 6)ã DelayVector(Shift - 3) = DelayVector(Shift - 7)ã NEXTã DelayVector(1) = LineX(1)ã DelayVector(2) = LineY(1)ã DelayVector(3) = LineX(2)ã DelayVector(4) = LineY(2)ã PCOPY 7, 0ã SCREEN , , 0, 0ãLOOPããPart2:ããFrameCounter = 1ãFOR FrameNum = 1 TO NumFramesã SCREEN , , 7, 0ã PCOPY FrameCounter, 7ã FrameCounter = FrameCounter + 1ã IF FrameCounter > 6 THEN FrameCounter = 1ã CIRCLE (CircleX(FrameNum), CircleY(FrameNum)), CircleR(1), CircleC(FrameNum)ã CountEm = NumCircles + 1ã FOR Tube = 1 TO NumCircles * 3 STEP 3ã CountEm = CountEm - 1ã IF ForeCircles(Tube) <> 0 THENã AdjCircleX = CINT((ForeCircles(Tube) * CountEm * 2 + 160) / (CountEm * 2 + 1))ã AdjCircleY = CINT((ForeCircles(Tube + 1) * CountEm * 2 + 99) / (CountEm * 2 + 1))ã CIRCLE (AdjCircleX, AdjCircleY), CircleR(Tube + 1), ForeCircles(Tube + 2)ã END IFã NEXTã FOR Shift = NumCircles * 3 TO 6 STEP -3ã ForeCircles(Shift) = ForeCircles(Shift - 3)ã ForeCircles(Shift - 1) = ForeCircles(Shift - 4)ã ForeCircles(Shift - 2) = ForeCircles(Shift - 5)ã NEXTã ForeCircles(1) = CircleX(FrameNum)ã ForeCircles(2) = CircleY(FrameNum)ã ForeCircles(3) = CircleC(FrameNum)ã PCOPY 7, 0ã SCREEN , , 0, 0ã NEXTããSCREEN 0ãWIDTH 80ãLOCATE 1, 1ãRESTORE LogoãFOR lines = 1 TO 20ã READ OneLine$ã Fade lines, 1, OneLine$ãNEXTãLOCATE 22ãDO: LOOP UNTIL INKEY$ <> ""ãSYSTEMããScroller:ãDATA "Hi! Welcome to QStar! Like the graphics? "ãDATA "Someone told me this was impossible with QBasic... "ãDATA "guess my poor friend was wrong! "ãDATA "This is 320x200x16 graphics and runs at 30fps on a fast 486. "ãDATA "Write me and tell me what you think! "ãDATA "America Online: Skream. "ãDATA "Internet: skream@aol.com "ãDATA "Next demo: Flying into the starfield and some other tricks! "ãDATA "Code by Skream. Later... :) "ãDATA ""ããGrid3DFrame1:ãDATA 0,144,319,144, 0,146,319,146, 0,151,319,151, 0,160,319,160ãDATA 0,175,319,175, 0,199,319,199, 0,199,319,199, 0,199,319,199ããGrid3DFrame2:ãDATA 0,144,319,144, 0,145,319,145, 0,146,319,146, 0,152,319,152ãDATA 0,162,319,162, 0,178,319,178, 0,199,319,199, 0,199,319,199ããGrid3DFrame3:ãDATA 0,144,319,144, 0,145,319,145, 0,147,319,147, 0,153,319,153ãDATA 0,164,319,164, 0,182,319,182, 0,199,319,199, 0,199,319,199ããGrid3DFrame4:ãDATA 0,144,319,144, 0,146,319,146, 0,148,319,148, 0,154,319,154ãDATA 0,166,319,166, 0,186,319,186, 0,199,319,199, 0,199,319,199ããGrid3DFrame5:ãDATA 0,144,319,144, 0,146,319,146, 0,149,319,149, 0,156,319,156ãDATA 0,169,319,169, 0,190,319,190, 0,199,319,199, 0,199,319,199ããGrid3DFrame6:ãDATA 0,144,319,144, 0,145,319,145, 0,147,319,147, 0,150,319,150ãDATA 0,158,319,158, 0,172,319,172, 0,194,319,194, 0,199,319,199ããGrid3DCommons:ãDATA 280,144,319,153, 200,144,225,199, 220,144,275,199, 240,144,319,189ãDATA 260,144,319,167, 300,144,319,147, 140,144,130,199, 120,144, 95,199ãDATA 100,144, 45,199, 80,144, 0,189, 60,144, 0,167, 40,144, 0,153ãDATA 20,144, 0,147, 160,144,160,199, 180,144,190,199ããColors:ãDATA 10,11,12,14ããLogo:ãDATA "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ãDATA "³ ú ú ú ú ú . ú ú . ³ãDATA "³ú ÛÛÛÛÛÛÛ» ÛÛ» ÛÛ» ÛÛÛÛÛÛ» .ÛÛÛÛÛÛÛ» ÛÛÛÛÛ». ÛÛÛ» ÛÛÛ» ÛÛ» . ú ³ãDATA "³ ú ÛÛÉÍÍÍÍ¼úÛÛº ÛÛÉ¼ ÛÛÉÍÍÛÛ» ÛÛÉÍÍÍÍ¼ ÛÛÉÍÍÛÛ» ÛÛÛÛ» ÛÛÛÛº ÛÛº ³ãDATA "³ ÛÛÛÛÛÛÛ» ÛÛÛÛÛÉ¼ ÛÛÛÛÛÛÉ¼ ÛÛÛÛÛ» úÛÛÛÛÛÛÛº ÛÛÉÛÛÛÛÉÛÛº ÛÛº ú ³ãDATA "³ ú ÈÍÍÍÍÛÛº ÛÛÉÍÛÛ» ÛÛÉÍÍÛÛ» ÛÛÉÍÍ¼. ÛÛÉÍÍÛÛº ÛÛºÈÛÛÉ¼ÛÛº ÈÍ¼ ú ³ãDATA "³ ÛÛÛÛÛÛÛº ÛÛº ÛÛ» ÛÛº úÛÛº ÛÛÛÛÛÛÛ» ÛÛº ÛÛº ÛÛº.ÈÍ¼ ÛÛº ÛÛ» ú ³ãDATA "³ ú ÈÍÍÍÍÍÍ¼ ÈÍ¼ ÈÍ¼.ÈÍ¼ ÈÍ¼ ÈÍÍÍÍÍÍ¼ ÈÍ¼. ÈÍ¼.ÈÍ¼ ú ÈÍ¼ ÈÍ¼ ú ³ãDATA "³ . ú ú . ú ú ú ú ³ãDATA "³ ú ÖÄÄÄÄÄ¿ ÒÄ¿ .ÖÄÄ¿ ÖÄ¿ ÄÒÄ ÖÄÄ¿ ÒÄÄ¿ ÒÄÄ¿ ÖÄÒÄ¿ ÖÄÄ¿ ÖÄ¿ ú ³ãDATA "³ú º ú ³ ÇÄÁ¿ ÇÄÄ´. ÓÄ¿ º º ú º ³ ÇÄ ú º º ³ º ú³ ÓÄ¿ ú ³ãDATA "³ ú º ú ³ ÐÄÄÙ Ð Á ÓÄÄÙ ÄÐÄ ÓÄÄÙ ÐÄÄÙ ÐÄÄÙ Ð Ð Á ÓÄÄÙ ÓÄÄÙ ³ãDATA "³ º ³ ú write to: ú ú . ú ³ãDATA "³ú ÓÄÄÄÅÄÙ skream@aol.com . ú ú ³ãDATA "³ ú ú ú ú ú ú ú ³ãDATA "³ ú ú See ya later... ú ú ³ãDATA "³ Look for more demos soon! ú ú ³ãDATA "³ ú ú This has been a presentation of Skream! design ú ú ³ãDATA "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙãDATA " press a key . . .ãããTubeData:ã' Data created by Path Generator Version 1.0ã' by Michael Teator in May 1994ã' Comment: This one should look great! -Skreamã' Date: 05-24-1994 Time: 08:32:11ã' Number of pointsãDATA 474ã' ------ Path data ------ãDATA 159,99,159,99,159,99,159,99,159,99,159,99,159,99,158,100,157,100,156,101,154,102,153,103,152,105,149,107,147,108,145,110,144,112,139,114,136,116,130,119ãDATA 122,122,116,125,108,128,101,132,92,136,83,139,75,142,67,145,57,146,47,146,40,147,38,147,45,146,53,146,59,145,69,142,82,138,95,134,114,127,130,121ãDATA 148,113,162,103,171,97,185,88,196,81,209,74,220,66,230,61,242,54,252,48,264,42,270,36,267,38,261,43,256,48,250,53,240,60,230,68,218,75,209,82ãDATA 198,88,188,93,177,96,164,99,151,101,139,102,126,102,113,102,104,102,89,102,78,101,66,101,51,101,40,101,29,101,19,101,26,101,42,101,57,101,71,100ãDATA 90,98,100,98,110,97,124,97,140,97,158,99,177,102,190,105,206,111,216,116,228,122,238,129,251,136,264,144,276,152,281,154,285,157,269,157,256,155,240,152ãDATA 221,148,205,142,185,135,163,129,150,126,136,122,119,119,106,117,94,115,80,115,69,116,55,119,51,121,53,127,60,128,75,128,89,128,108,127,129,126,144,124ãDATA 160,122,172,121,189,118,212,117,224,116,236,113,249,108,257,103,264,97,269,87,269,78,267,76,260,81,254,90,250,96,242,103,234,110,225,115,212,120,200,125ãDATA 188,129,173,133,159,135,139,135,128,134,128,132,136,130,149,130,165,130,182,128,197,123,209,118,225,110,237,103,245,97,254,90,263,82,266,78,262,91,257,98ãDATA 247,103,232,108,218,111,206,115,196,117,185,115,172,110,164,104,154,95,144,85,134,76,123,65,113,58,100,53,84,48,74,48,62,48,52,51,47,57,42,66ãDATA 41,70,44,75,51,78,60,76,69,71,78,65,86,59,94,54,103,49,114,45,128,44,142,46,150,50,156,56,158,64,161,74,163,84,163,96,163,108,163,116ãDATA 164,126,166,138,167,146,170,152,178,161,188,164,190,160,186,155,181,153,173,151,168,142,165,130,165,116,165,100,164,83,164,68,164,54,162,40,162,36,160,44ãDATA 159,58,158,72,158,89,158,102,158,117,158,129,159,140,159,153,158,162,158,169,159,167,164,158,167,144,167,129,167,115,168,96,168,85,168,68,168,52,166,40ãDATA 164,32,161,31,158,41,157,52,157,66,158,82,158,98,159,113,158,127,158,138,158,147,156,156,155,160,152,162,148,160,143,156,135,146,127,137,117,122,108,108ãDATA 99,93,91,79,82,66,75,59,68,55,59,48,47,40,52,47,60,53,73,59,86,68,103,80,117,90,132,98,144,105,162,114,183,123,198,130,218,140,232,146ãDATA 250,154,272,161,280,162,284,156,279,150,268,145,252,139,236,132,227,129,213,125,205,116,199,100,198,79,198,64,200,52,202,43,207,36,208,41,207,53,203,67ãDATA 196,86,188,95,178,104,169,110,159,116,146,122,135,128,124,137,114,144,105,150,92,155,82,156,66,157,63,156,75,154,85,152,96,149,108,144,118,139,128,132ãDATA 138,124,146,113,148,101,142,92,133,89,123,90,109,93,92,94,78,95,61,95,48,94,41,92,42,85,49,78,57,72,71,63,86,55,105,47,119,44,133,42ãDATA 152,41,170,41,188,42,208,46,224,51,236,57,249,65,258,76,265,89,266,99,266,112,263,126,257,138,250,147,240,155,231,158,223,160,214,161,201,160,188,156ãDATA 175,149,165,140,160,132,150,118,141,107,130,99,116,98,111,105,111,113,116,120,124,127,134,137,146,144,160,147,176,146,190,141,199,131,205,119,205,105,202,93ãDATA 191,81,186,79,181,87,175,100,169,110,161,124,155,138,149,148,144,153,147,150,155,137,166,124,176,113,183,97,187,83,188,69,186,53,182,44,181,53,183,67ãDATA 186,75,192,86,204,94,224,99,238,100,256,99,272,94,288,91,294,88,285,90,270,95,252,98,239,100,226,103,206,106,181,106,156,106,137,107,122,107,113,106ãDATA 94,108,82,109,75,110,86,112,103,111,124,109,145,107,172,102,194,97,210,90,220,83,237,70,245,64,244,74,232,90,218,103,206,111,189,115,171,117,154,112ãDATA 141,103,136,88,136,66,136,55,137,47,135,56,133,70,125,81,112,87,92,91,87,85,97,76,109,76,119,85,123,100,124,113,126,124,131,127,143,125,152,118ãDATA 156,112,159,107,162,103,163,100,164,100,166,99,167,99,168,99,169,99,169,99,169,99,169,99,169,99,169,99ããFUNCTION ComputerTypeãã CLSã PRINT "Welcome to QStar!"ã PRINTã PRINT "Please select the speed computer you are using:"ã PRINT " (1) 286"ã PRINT " (2) Slow 386"ã PRINT " (3) Fast 386 or slow 486"ã PRINT " (4) Fast 486"ã PRINT " (5) Pentium"ã PRINT : PRINTã PRINT "Please note that these settings only affect the scroller."ã DOã selection$ = INKEY$ã SELECT CASE selection$ã CASE "1" TO "5"ã ComputerType = VAL(selection$) - 1ã EXIT FUNCTIONã END SELECTã LOOPããEND FUNCTIONããSUB Fade (ty, tx, text$)ãã LOCATE ty, tx: COLOR 8: PRINT text$ã FOR n = 1 TO (ScrollDelay * 5000): NEXTã LOCATE ty, tx: COLOR 7: PRINT text$ã FOR n = 1 TO (ScrollDelay * 5000): NEXTã LOCATE ty, tx: COLOR 15: PRINT text$ã FOR n = 1 TO (ScrollDelay * 5000): NEXTããEND SUBããRobert Fisher RPG CHARACTER mhscards@aol.com 04-21-94 (17:20) QB, QBasic, PDS 259 14342 RPGCHAR.BAS 'This LESSON demonstrates animation on a small scale. ã'The smaller the image you wish to animate, the faster ã'the speed of animation. You will see a portrait of a ã'typical character you would find in an RPG game. The ã'character's face is void of eyes and a mouth. When a ã'charcter talks, the eyes and lips are animated to ã'simulate speech. Below the portrait, you will see ã'four sets of eyes & mouth. We then GET these very ã'small images and use the PUT command to place them on ã'the blank face. We use the RAN(dom) command to determine ã'which facial features will be selected. There is a ã'timing loop to slow the animation down. You can adjust ã'this loop to decrease/increase the speed to suit your ã'particular PC processor speed. All the DATA statements ã'in this program merely represent individual pixels of ã'different colors. This particular RPG character is from ã'the 'MIGHT & MAGIC' game by New World Computing. ã'The four positions of the mouth are: Closed, 1/3 open, ã'2/3 open and 3/3 open. The three positions of the eyes ã'are Open, Closed, and Raised Eyebrows. ã' ãCLS :ãRANDOMIZE TIMERãSCREEN 13: CLS : DEF SEG = &HA000ãDIM M1%(300), M2%(300), M3%(300), M4%(300)ãDIM E1%(300), E2%(300), E4%(300)ã ãVGACOLORS: ãC = -1: FOR N = 1 TO 768 STEP 3ãC = C + 1: READ B, G, RãCL = (R * 256 ^ 2) + (G * 256) + BãPALETTE C, CL: NEXT Nã ãREADPICDATA: ãFOR I = 1 TO 30: FOR J = 1 TO 30ãREAD N: PSET (X1, Y1), N: X1 = X1 + 1ãNEXT J: X1 = 0: Y1 = Y1 + 1: NEXT IãY1 = 39: X1 = 7: H1 = 7ã ãREADEYES01: ãFOR I = 1 TO 6: FOR J = 1 TO 16ãREAD N: PSET (X1, Y1), N: X1 = X1 + 1ãNEXT J: X1 = H1: Y1 = Y1 + 1: NEXT IãY1 = 48: X1 = 11: H1 = 11: GET (7, 39)-(22, 44), E1%ãPUT (67, 39), E1%, PSETãREADMOUTH01: ãFOR I = 1 TO 8: FOR J = 1 TO 8ãREAD N: PSET (X1, Y1), N: X1 = X1 + 1ãNEXT J: X1 = H1: Y1 = Y1 + 1: NEXT IãY1 = 39: X1 = 37: H1 = 37: GET (11, 48)-(18, 55), M1%ãREADEYES02: ãFOR I = 1 TO 6: FOR J = 1 TO 16ãREAD N: PSET (X1, Y1), N: X1 = X1 + 1ãNEXT J: X1 = H1: Y1 = Y1 + 1: NEXT IãY1 = 48: X1 = 41: H1 = 41: GET (37, 39)-(52, 44), E2%ãREADMOUTH02: ãFOR I = 1 TO 8: FOR J = 1 TO 8ãREAD N: PSET (X1, Y1), N: X1 = X1 + 1ãNEXT J: X1 = H1: Y1 = Y1 + 1: NEXT IãY1 = 48: X1 = 71: H1 = 71: GET (41, 48)-(48, 55), M2%ã ãREADMOUTH03: ãFOR I = 1 TO 8: FOR J = 1 TO 8ãREAD N: PSET (X1, Y1), N: X1 = X1 + 1ãNEXT J: X1 = H1: Y1 = Y1 + 1: NEXT IãY1 = 39: X1 = 97: H1 = 97: GET (71, 48)-(78, 55), M3%ã ãREADEYES04: ãFOR I = 1 TO 6: FOR J = 1 TO 16ãREAD N: PSET (X1, Y1), N: X1 = X1 + 1ãNEXT J: X1 = H1: Y1 = Y1 + 1: NEXT IãY1 = 48: X1 = 101: H1 = 101: GET (97, 39)-(112, 44), E4%ãREADMOUTH04: ãFOR I = 1 TO 8: FOR J = 1 TO 8ãREAD N: PSET (X1, Y1), N: X1 = X1 + 1ãNEXT J: X1 = H1: Y1 = Y1 + 1: NEXT IãGET (101, 48)-(108, 55), M4%ã ãTALKINGHEAD: ãLINE (1, 30)-(175, 60), 0, BFãDO: ãT = INT(RND * 4) + 1: ON T GOTO F1, F2, F3, F4ãF1: PUT (7, 9), E1%, PSET: PUT (11, 18), M1%, PSET: GOTO F5ãF2: PUT (7, 9), E2%, PSET: PUT (11, 18), M2%, PSET: GOTO F5ãF3: PUT (7, 9), E1%, PSET: PUT (11, 18), M3%, PSET: GOTO F5ãF4: PUT (7, 9), E4%, PSET: PUT (11, 18), M4%, PSETãF5: FOR I = 1 TO 500: NEXT IãLOOP UNTIL INKEY$ <> ""ãENDã ãPALETTEDATA: ãDATA 00,00,00,31,31,31,60,60,60,58,58,58,56,56,56,53,53,53ãDATA 51,51,51,49,49,49,47,47,47,44,44,44,42,42,42,40,40,40ãDATA 37,37,37,35,35,35,33,33,33,63,63,63,29,29,29,27,27,27ãDATA 25,25,25,23,23,23,21,21,21,19,19,19,17,17,17,15,15,15ãDATA 13,13,13,11,11,11,09,09,09,07,07,07,05,05,05,03,03,03ãDATA 01,01,01,00,00,00,63,58,58,62,53,53,61,48,48,60,44,44ãDATA 59,40,40,58,35,35,57,31,31,57,27,27,56,23,23,55,19,19ãDATA 54,16,16,53,12,12,52,08,08,51,05,05,50,02,02,50,00,00ãDATA 46,00,00,42,00,00,38,00,00,33,00,00,29,00,00,25,00,00ãDATA 21,00,00,17,00,00,13,00,00,63,29,00,55,25,00,48,22,00ãDATA 40,18,00,33,15,00,25,11,00,18,08,00,63,63,54,63,63,46ãDATA 62,63,38,62,63,30,62,63,22,61,63,14,61,63,06,59,61,00ãDATA 59,59,00,56,55,00,53,51,00,50,46,00,47,42,00,44,38,00ãDATA 41,34,00,38,31,00,34,26,00,30,22,00,26,18,00,22,15,00ãDATA 18,11,00,14,08,00,10,05,00,06,03,00,54,63,22,49,59,17ãDATA 45,56,13,41,52,10,37,49,06,33,45,03,29,42,01,26,39,00ãDATA 21,36,00,19,33,00,18,31,00,17,29,00,16,27,00,14,25,00ãDATA 13,23,00,12,21,00,11,19,00,47,62,47,39,60,38,32,58,31ãDATA 23,56,23,16,55,16,11,53,10,10,50,09,08,47,08,07,45,07ãDATA 06,42,06,05,39,04,04,36,04,03,34,03,02,31,02,02,28,02ãDATA 01,26,01,01,23,01,01,20,00,00,17,00,00,15,00,00,12,00ãDATA 00,09,00,00,07,00,60,60,63,56,56,63,51,51,63,47,47,63ãDATA 43,44,63,39,40,63,35,35,63,31,32,63,27,28,63,23,24,63ãDATA 19,20,63,15,16,63,11,12,63,07,08,63,03,04,63,00,01,63ãDATA 00,00,63,00,00,59,00,00,55,00,00,51,00,00,47,00,00,43ãDATA 00,00,39,00,00,36,00,00,32,00,00,28,00,00,24,00,00,20ãDATA 00,00,16,00,00,12,00,00,08,00,00,05,60,54,63,57,46,63ãDATA 54,39,63,52,31,63,50,23,63,47,16,63,45,08,63,42,00,63ãDATA 38,00,57,32,00,50,27,00,43,21,00,35,15,00,27,10,00,20ãDATA 06,00,12,02,00,05,51,63,63,45,59,59,39,56,56,34,53,53ãDATA 29,50,50,25,47,47,20,43,43,17,40,40,13,36,36,09,31,31ãDATA 07,27,27,04,23,23,02,19,19,01,15,15,00,11,11,00,07,07ãDATA 58,60,62,54,58,61,49,55,61,45,53,61,41,51,60,37,49,60ãDATA 33,48,60,29,46,59,25,44,59,21,43,59,17,41,58,13,40,58ãDATA 10,38,58,06,37,57,02,36,57,01,33,54,01,31,51,00,29,48ãDATA 00,27,45,00,25,43,00,23,40,00,21,37,00,20,34,00,18,31ãDATA 00,16,28,00,14,24,00,12,21,00,10,18,00,08,15,00,06,12ãDATA 00,05,09,00,03,06,63,58,55,63,55,51,63,53,48,63,51,44ãDATA 63,49,41,63,47,37,63,45,34,63,43,31,63,41,27,63,39,24ãDATA 60,37,23,58,36,22,56,34,21,54,33,20,52,32,20,50,31,19ãDATA 47,29,17,44,27,16,41,26,14,38,24,13,35,22,12,32,21,10ãDATA 29,19,09,26,17,08,23,15,07,20,13,06,17,12,05,14,10,03ãDATA 11,08,03,09,06,02,06,04,01,63,63,63 ã ãPICTUREDATA: ãDATA 208,207,208,208,208,207,208,208,208,207,145,145,144 ãDATA 144,144,144,144,144,145,145,208,207,208,208,208,207 ãDATA 208,208,208,207,207,208,207,208,207,208,207,208,146 ãDATA 146,144,144,139,139,139,139,139,144,144,144,146,146 ãDATA 207,208,207,208,207,208,207,208,207,207,207,207,207 ãDATA 207,207,146,145,145,144,139,139,139,139,139,139,139 ãDATA 140,144,145,145,146,207,207,207,207,207,207,207,206 ãDATA 207,206,207,206,207,146,145,144,144,139,138,138,138 ãDATA 138,138,138,138,139,146,146,144,145,146,206,207,206 ãDATA 207,206,207,206,206,206,206,206,146,145,144,146,139 ãDATA 138,138,138,138,138,138,138,138,138,139,146,148,144 ãDATA 145,146,206,206,206,206,206,205,206,206,206,146,145 ãDATA 144,146,144,137,137,137,137,137,137,137,137,137,137 ãDATA 137,144,146,148,144,145,146,206,206,205,206,206,206 ãDATA 206,146,145,144,146,146,249,249,248,248,247,247,247 ãDATA 247,247,247,248,248,249,249,146,148,144,145,146,205 ãDATA 206,205,205,206,146,145,144,144,148,249,247,246,245 ãDATA 244,244,244,244,244,244,244,244,245,246,247,249,148 ãDATA 148,144,145,146,205,206,205,205,146,144,148,151,247 ãDATA 235,235,235,235,235,235,235,235,235,235,235,235,235 ãDATA 235,235,235,247,151,148,144,146,205,205,204,146,144 ãDATA 148,151,247,245,235,235,235,235,235,235,235,235,235 ãDATA 235,235,235,235,235,235,235,245,247,151,148,144,146 ãDATA 205,204,144,148,151,240,242,245,235,235,235,235,235 ãDATA 235,235,235,235,235,235,235,235,235,235,235,245,242 ãDATA 240,151,148,144,204,144,148,151,156,238,242,242,235 ãDATA 235,235,235,235,235,235,235,235,235,235,235,235,235 ãDATA 235,235,242,242,238,156,151,144,144,144,148,151,156 ãDATA 238,245,238,235,235,235,235,235,235,235,235,235,235 ãDATA 235,235,235,235,235,235,238,245,238,156,151,148,144 ãDATA 144,151,156,156,238,247,238,235,235,235,235,235,235 ãDATA 235,235,235,235,235,235,235,235,235,235,238,247,238 ãDATA 155,156,148,144,148,151,156,156,239,242,240,232,233 ãDATA 234,234,234,235,238,235,232,238,238,235,234,234,233 ãDATA 232,240,242,239,156,156,151,148,148,151,156,156,155 ãDATA 238,241,236,232,232,234,235,240,233,235,230,234,240 ãDATA 235,234,232,232,236,241,238,155,156,156,151,148,148 ãDATA 151,151,156,156,155,241,240,236,233,235,235,235,238 ãDATA 240,240,238,235,235,235,233,236,240,241,155,156,156 ãDATA 156,151,148,148,151,151,156,156,156,244,240,238,238 ãDATA 235,235,235,235,235,235,235,235,235,235,238,238,240 ãDATA 244,156,156,156,151,151,148,148,148,151,151,156,156 ãDATA 155,241,236,235,235,235,235,235,235,235,235,235,235 ãDATA 235,235,236,241,155,156,156,151,151,151,148,148,148 ãDATA 151,151,151,156,156,155,236,235,235,235,235,235,235 ãDATA 235,235,235,235,235,235,236,156,156,156,151,151,151 ãDATA 148,148,144,148,148,151,151,151,156,156,244,236,235 ãDATA 235,235,235,235,235,235,235,235,235,236,244,156,156 ãDATA 151,151,151,148,148,144,144,144,148,148,148,151,151 ãDATA 156,246,243,236,235,235,235,235,235,235,235,235,236 ãDATA 243,246,156,151,151,151,148,148,144,144,151,151,144 ãDATA 144,148,148,148,151,246,243,240,235,235,235,235,235 ãDATA 235,235,235,240,243,246,151,151,148,148,148,144,144 ãDATA 151,151,151,151,151,144,144,148,148,148,244,241,235 ãDATA 235,235,235,235,235,235,235,241,244,148,148,148,148 ãDATA 144,144,151,151,151,148,148,151,151,151,151,144,144 ãDATA 148,148,244,235,235,235,235,235,235,235,235,244,148 ãDATA 148,148,144,144,151,151,151,151,148,148,148,148,148 ãDATA 151,151,151,144,144,148,148,235,235,235,235,235,235 ãDATA 235,235,148,148,144,144,151,151,151,151,148,148,148 ãDATA 148,148,148,148,148,148,151,151,144,144,148,148,244 ãDATA 241,239,239,241,244,148,148,144,144,151,151,151,148 ãDATA 148,148,148,148,148,148,148,148,148,148,148,151,151 ãDATA 144,144,148,148,244,239,239,244,148,148,144,144,151 ãDATA 151,148,148,148,148,148,148,148,148,148,148,148,148 ãDATA 148,148,148,151,151,144,144,148,148,240,240,148,148 ãDATA 144,144,151,151,148,148,148,148,148,148,148,148,148 ãDATA 148,148,148,148,148,148,148,148,151,151,144,144,148 ãDATA 244,244,148,144,144,151,151,148,148,148,148,148,148 ãDATA 148,148,148 ã ãEYES01: ãDATA 246,243,241,239,239,237,237,237,237,237,237,239,239 ãDATA 241,244,246,245,247,247,247,247,247,240,238,238,240 ãDATA 247,247,247,247,247,245,242,240,239,242,242,244,247 ãDATA 235,234,247,244,242,242,239,240,242,240,244, 3,148 ãDATA 8,242,244,235,232,244,242, 8,148, 3,244,240,237 ãDATA 237,237,237,240,240,240,235,232,240,240,240,237,237 ãDATA 237,237,233,234,235,235,236,238,238,235,232,240,238 ãDATA 238,236,235,234,233 ãMOUTH01: ãDATA 238,235,232,232,232,232,235,238,238,243,240,240,240 ãDATA 240,243,238,238,235,232,232,232,232,235,238,235,236 ãDATA 236,238,238,236,236,235,236,235,235,232,232,235,235 ãDATA 236,243,238,235,235,235,235,238,243,241,241,243,243 ãDATA 243,243,241,241,244,241,241,240,240,241,241,244 ãEYES02: ãDATA 246,243,241,239,239,237,237,237,237,237,237,239,239 ãDATA 241,244,246,245,247,247,247,247,247,240,238,238,240 ãDATA 247,247,247,247,247,245,242,240,239,240,242,244,247 ãDATA 235,234,247,244,242,240,239,240,242,240,242,239,237 ãDATA 240,242,244,235,232,244,242,240,237,239,242,240,237 ãDATA 237,242,242,242,242,240,235,232,240,242,242,242,242 ãDATA 237,237,233,234,235,235,236,238,238,235,232,240,238 ãDATA 238,236,235,234,233 ãMOUTH02: ãDATA 238,235,232,232,232,232,235,238,238,243, 8, 3, 3 ãDATA 8,243,238,238,235,232,232,232,232,235,238,235,236 ãDATA 236,238,238,236,236,235,236,235,235,232,232,235,235 ãDATA 236,243,238,235,235,235,235,238,243,241,241,243,243 ãDATA 243,243,241,241,244,241,241,240,240,241,241,244 ãMOUTH03: ãDATA 238,235,232,232,232,232,235,238,238,243, 8, 3, 3 ãDATA 8,243,238,238,240,245,245,245,245,240,238,235,235 ãDATA 232,232,232,232,235,235,236,236,236,238,238,236,236 ãDATA 236,240,235,235,232,232,235,235,240,243,240,235,235 ãDATA 235,235,240,243,244,241,243,243,243,243,241,244 ãEYES04: ãDATA 246,243,241,239,239,237,237,237,237,237,237,239,239 ãDATA 241,244,246,245,247,247,244,239,237,242,238,238,242 ãDATA 237,239,244,247,247,245,242,240,242,247,247,247,247 ãDATA 235,234,247,247,247,247,242,240,242,240,244, 3,148 ãDATA 8,242,244,235,232,244,242, 8,148, 3,244,240,237 ãDATA 237,237,237,240,240,240,235,232,240,240,240,237,237 ãDATA 237,237,233,234,235,235,236,238,238,235,232,240,238 ãDATA 238,236,235,234,233 ãMOUTH04: ãDATA 238,235,232,232,232,232,235,238,240,243, 8, 3, 3 ãDATA 8,243,240,240,245,247,247,247,247,245,240,235,240 ãDATA 245, 49, 49,245,240,235,236,235,232,232,232,232,235 ãDATA 236,240,236,236,238,238,236,236,240,243,238,235,232 ãDATA 232,235,238,243,244,240,235,235,235,235,240,244ããSteven Sensarn VGA PCX VIEWER alt.lang.basic 12-14-95 (02:55) QB, QBasic, PDS 73 1382 VGAPCX.BAS SCREEN 13ãCLSãTYPE THã MAN AS STRING * 1ã VER AS STRING * 1ã ENC AS STRING * 1ã BIT AS STRING * 1ã XLS AS INTEGERã YLS AS INTEGERã XMS AS INTEGERã YMS AS INTEGERã HRE AS INTEGERã VRE AS INTEGERã COL AS STRING * 48ã RES AS STRING * 1ã PLA AS STRING * 1ã BYT AS INTEGERã PAL AS INTEGERã FIL AS STRING * 58ãEND TYPEããDIM H AS THãDIM DAT AS STRING * 1ããFILE$ = "DEMO.PCX" ' Change File NameããOPEN FILE$ FOR BINARY AS #1ã GET #1, 1, Hã C = 1ã Y = 1: X = 1ã WHILE C <= 64000ã GET #1, , DATã IF ASC(DAT) > 192 AND ASC(DAT) <= 255 THENã LPS = ASC(DAT) - 192ã GET #1, , DATã VALUE = ASC(DAT)ã WHILE LPS > 0ã PSET (X, Y), VALUEã IF X = 320 THEN X = 1: Y = Y + 1 ELSE X = X + 1ã C = C + 1ã LPS = LPS - 1ã WENDã ELSEã VALUE = ASC(DAT)ã PSET (X, Y), VALUEã IF X = 320 THEN X = 1: Y = Y + 1 ELSE X = X + 1ã C = C + 1ã END IFã WENDã GET #1, LOF(1) - 768, DATã FOR LPS = 0 TO 255ã GET #1, , DATã A = INT(ASC(DAT) / 4)ã GET #1, , DATã B = INT(ASC(DAT) / 4)ã GET #1, , DATã C = INT(ASC(DAT) / 4)ã SLOT = LPSã GOSUB CHANGECOLORã NEXT LPSãCLOSEãENDããCHANGECOLOR:ã R& = Aã G& = Bã B& = Cã G& = G& * 256ã B& = B& * 65536ã RGB& = R& + G& + B&ã PALETTE SLOT, RGB&ãRETURNããScott Mitchell FADING PROGRAM FidoNet QUIK_BAS Echo 01-02-96 (16:41) QB, QBasic, PDS 153 3249 FADING.BAS 'Here is a fading program. First, let me say that I make no promisesã'that this program is 100% safe. I have tested it on my computer and itã'runs fine, but don't complain if your computer blows up or something. Iã'would like to explain how this works first.ãã'First, to change the palette, we tinker with the ports &H3C7, &H3C8, andã'&H3C9. You can see exactly how we change it in my GetPal and Palã'procedures. For Pal, you are setting the Palette:ãã' PAL(colornumbertochange,red_intensity,Green_intensity,Blue_intensity)ãã'GetPal just returns the current values of intensity for the colorã'specified. SetUpPalArray stores all of the default values in an arrayã'(PalArray) so that when you're done fading out, you can restore what theã'previous default was. RestorePalette simply restores you old paletteã'that you saved with SetUpPalArray.ãã'Scott Mitchell, 1996...ã'Use at your own risk, but, heh, have funã'ã'Fading program...ããDECLARE SUB RestorePalette ()ãDECLARE SUB fadeout ()ãDECLARE SUB GetPal (col%, r%, g%, b%)ãDECLARE SUB SetUpPalArray ()ãDECLARE SUB Pal (col%, r%, g%, b%)ãDEFINT A-Zãã'MaxColors=the max colors per screen (255 in SCREEN 13 (0 - 255))ããCONST MaxColors = 255, false = 0, true = NOT falseãããTYPE PalTypeã r AS INTEGERã g AS INTEGERã b AS INTEGERãEND TYPEãããDIM SHARED PalArray(MaxColors) AS PalTypeãDIM SHARED AlreadyHandled(MaxColors)ããSetUpPalArrayããSCREEN 13ããRANDOMIZE TIMERãDOã PSET (320 * RND, 200 * RND), 256 * RNDãLOOP UNTIL INKEY$ <> ""ããCALL fadeoutããSLEEP 1ããRestorePaletteããENDãã'------------------------------------------------------------------ããSUB fadeoutããcompleted = 0ãcount = 0ããFOR x = 0 TO MaxColorsã AlreadyHandled(x) = 0ãNEXTãããDOã done = trueãã IF AlreadyHandled(count) <> 0 THENã DOã count = count + 1ã IF count > MaxColors THEN count = 0ã LOOP UNTIL AlreadyHandled(count) = 0ã END IFããã CALL GetPal(count, r, g, b)ã IF r > 0 THENã r = r - 1ã done = falseã END IFã IF g > 0 THENã g = g - 1ã done = falseã END IFã IF b > 0 THENã b = b - 1ã done = falseã END IFãã CALL Pal(count, r, g, b)ãã IF done THENã completed = completed + 1ã AlreadyHandled(count) = 1ã END IFãã count = count + 1: IF count > MaxColors THEN count = 0ãããLOOP UNTIL completed >= 255ããEND SUBãã'--------------------------------------------------------------------ããSUB GetPal (col, r, g, b)ãã OUT &H3C7, colã r = INP(&H3C9)ã g = INP(&H3C9)ã b = INP(&H3C9)ããEND SUBãã'--------------------------------------------------------------------ããSUB Pal (col, r, g, b)ãã OUT &H3C8, colã OUT &H3C9, rã OUT &H3C9, gã OUT &H3C9, bããEND SUBãã'--------------------------------------------------------------------ããSUB RestorePaletteããFOR x = 0 TO MaxColorsã CALL Pal(x, PalArray(x).r, PalArray(x).g, PalArray(x).b)ãNEXTããEND SUBãã'--------------------------------------------------------------------ããSUB SetUpPalArrayããFOR x = 0 TO MaxColorsã CALL GetPal(x, PalArray(x).r, PalArray(x).g, PalArray(x).b)ãNEXTããEND SUBãStephan van Loendersloot SNOW FALLING FidoNet QUIK_BAS Echo 01-03-96 (03:01) QB, QBasic, PDS 109 4605 SNOWFALL.BAS'Code for snow falling dwarreling down.ã'Released to Public Domain by Stephan van LoenderslootããDIM ColArray%(3) ' Allocate memoryããColArray%(1) = 15 ' Colors that can be used by theãColArray%(2) = 8 ' snow (dots) to some sort of 3DãColArray%(3) = 7 ' effect like they're moving front/backããScreenNo% = 12 ' Screen modeããSELECT CASE ScreenNo% ' Determine the Width and Height of the screenã ' According to the resolution.ã CASE 1ã XReso% = 320ã YReso% = 200ã CASE 2ã XReso% = 640ã YReso% = 200ã CASE 7ã XReso% = 320ã YReso% = 200ã CASE 8ã XReso% = 640ã YReso% = 200ã CASE 9ã XReso% = 640ã YReso% = 350ã CASE 10ã XReso% = 640ã YReso% = 350ã CASE 11ã XReso% = 640ã YReso% = 480ã CASE 12ã XReso% = 640ã YReso% = 480ã CASE 13ã XReso% = 320ã YReso% = 200ã CASE ELSEã PRINT "Unsupported graphics mode: "; ScreenNo%ã ENDãEND SELECTããDots% = 100 ' Number of dot on the screen at all timeããDIM XPos%(Dots%) ' Allocate memory for the X-axis locationsãDIM YPos%(Dots%) ' Allocate memory for the Y-axis locationsããRANDOMIZE TIMER ' The magic trick for random numbers.ããFOR Init% = 1 TO Dots% ' Initialize the starting X-axis and Y-axisã ' locations of the dots.ã YPos%(Init%) = INT(RND * YReso%) + 1 ' Random number between 1-YReso%ã XPos%(Init%) = INT(RND * XReso%) + 1 ' Random number between 1-XReso%ãNEXT Init%ããSCREEN ScreenNo% ' Set screen modeããDOã FOR TakeDot% = 1 TO Dots% ' Draw as many pixels as Dots%ãã PSET (XPos%(TakeDot%), YPos%(TakeDot%)), 0 ' Erase previouslyã ' set dot. Of courseã ' In the beginningã ' there's no dot.ãã YPos%(TakeDot%) = YPos%(TakeDot%) + INT(RND * 5) ' Determine by aã ' random numberã ' between 0-5 howã ' fast a dot shouldã ' dwarrel.ã XRandom% = INT(RND * 6) + 1 ' Determine by aã ' random numberã ' between 1-6 howã ' if a dot should goã ' left or right andã ' how farããã IF XRandom% > 3 THEN XRandom% = 3 - XRandom% ' If a dot dwarrelsã ' over 3 to the rightã ' make it go to theã ' left 3-random no.ãã XPos%(TakeDot%) = XPos%(TakeDot%) + XRandom% ' New position of theã ' dot.ãã IF YPos%(TakeDot%) > YReso% - 1 THEN ' Now check to see ifã ' the dot has fallenã ' off the screen ;-)ã YPos%(TakeDot%) = 1 ' If so, then put itã ' on top again,ã XPos%(TakeDot%) = INT(RND * XReso%) + 1 ' with a new randomã ' position on the x-axis.ã END IFãã FOR delay% = 1 TO 2000: NEXT delay% ' A *very* simpleã ' delay routine.ãã Col% = ColArray%(INT(RND * 3) + 1) ' Determine theã ' color of the dotã PSET (XPos%(TakeDot%), YPos%(TakeDot%)), Col% ' And write the dotã ' on the screenã NEXT TakeDot% ' take the next dotããLOOP WHILE INKEY$ = "" ' And loop until a keyã ' is pressed.ãHauke Daempfling RESIZEABLE FONTS hcd@berlin.snafu.de 01/96 (00:00) QB, QBasic, PDS 201 10193 FPRINT.BAS DEFINT A-ZãDECLARE SUB InitFprint ()ãDECLARE SUB Fprint (text$, x%, y%, size%)ã'$DYNAMICãDIM SHARED StdFont$(94)ãSCREEN 12ãCLSãInitFprintãã' Font Printã' Hauke Daempflingã'Jan 1996ãã'This program displays resizable fonts in any screen mode (exept 0 and a fewã' others). The font doesn't look to bad, but it took about 4 days to write upã' so please give me some credit if you use this program in any of yours :).ãã' Syntax:ã' Fprint text$, x, y, sizeã'text$ = any text (ASCII characters that are <32 or >126 will be cut from it)ã'x = bottom left corner X locationã'y = bottom left corner Y locationã'size = any size from 1 to ??, if you use 0 the standard (4) will be used.ãã'Example:ãFprint "Aa Bb Cc Xx Yy Zz 0123456789", 8, 16, 0ãFprint "Aa Bb Cc Xx Yy Zz", 8, 64, 16ãFprint "0123456789", 64, 132, 16ããFprint "Font Print - by Hauke Daempfling", 8, 256, 8ãFprint "R", 8, 320, 2ãFprint "E", 16, 320, 4ãFprint "S", 26, 320, 6ãFprint "I", 38, 320, 8ãFprint "Z", 55, 320, 10ãFprint "E", 78, 320, 12ãFprint "A", 100, 320, 14ãFprint "B", 128, 320, 16ãFprint "L", 160, 320, 18ãFprint "E", 190, 320, 20ããREM $STATICãSUB Fprint (text$, x, y, size)ãIF LEN(text$) = 0 THEN EXIT SUBãIF size = 0 THEN size = 4ãscale$ = STR$(size)ããFOR a = 1 TO LEN(text$)ã locate$ = STR$(x) + "," + STR$(y) 'where we'll drawã x$ = MID$(text$, a, 1) 'the character being drawnã IF ASC(x$) < 32 OR ASC(x$) > 126 THEN 'if the character is not inã GOTO Skip ' the StdFont$ arrayã ELSEã draw$ = StdFont$(ASC(x$) - 32) 'the drawing commands fromã w = 0 ' StdFont$ã FOR q = 1 TO 50 'separate+expand the drawingã XX$ = "" ' commands from StdFont$ã DOã w = w + 1ã XX$ = XX$ + MID$(draw$, w, 1)ã LOOP UNTIL MID$(draw$, w, 1) = " " OR w >= LEN(draw$)ã IF XX$ = "" THEN EXIT FORã IF LEFT$(XX$, 1) = "X" THENã temp$ = temp$ + "B " + RIGHT$(XX$, LEN(XX$) - 1)ã ELSEã temp$ = temp$ + XX$ã END IF 'N=line, no move B=move, no lineã NEXT qã draw$ = temp$ã temp$ = ""ã END IFã DRAW "S1 B M" + locate$ + " S" + scale$ + " " + draw$ 'draw the charã x = x + (size * 2) + 1 'next X positionãSkip:ã draw$ = ""ãNEXT aãEND SUBããSUB InitFprint 'sets up the character variablesã'Set up the drawing commands for the characters.ãã'Please note:ã'These are not the normal DRAW commands, they are translated by the FOR-NEXTã' loop in the Fprint sub. Here you only have the direction (H,U,E,L,R,G,ã' D,F) commands and the next line is always started where the last one ended.ã' If you add "X" to the command the line will not be drawn but the locationã' moved. When you are drawing you start at the bottom left corner of theã' character. The commands must be seperated by spaces and no spaces shouldã' be used in a single command.ãã' | *** Short reference to drawing commands used below ***ã' H U E | * [Direction command][Length]ã'<- L R -> | Line, moveã' G D F | * X[Direction command][Length]ã' | No line, moveãã'The drawing commands assume a character box size of 8x8.ããStdFont$(1) = "XR3 U1 R1 D1 L1 XU3 U5 R1 D5 L1" '!ãStdFont$(2) = "XR3 XU8 D1 XR1 U1" '"ãStdFont$(3) = "XR2 U8 XR4 D8 XR2 XU2 L8 XU4 R8" '#ãStdFont$(4) = "XR1 XU2 F2 R2 E2 U1 L6 U1 E2 R2 F2 XU3 XL3 D8" '$ãStdFont$(5) = "XR1 E6 XL4 D1 XD3 XR3 D1" '%ãStdFont$(6) = "" 'no idea of how to draw this :) '&ãStdFont$(7) = "XR4 XU8 D1 G1" ''ãStdFont$(8) = "XR6 H2 U4 E2" '(ãStdFont$(9) = "XR1 E2 U4 H2" ')ãStdFont$(10) = "XR3 XU4 R2 L1 U1 D2 XR1 H2 XR2 G2" '*ãStdFont$(11) = "XR3 XU4 R2 L1 U1 D2" '+ãStdFont$(12) = "XR4 XU2 D1 G1" ',ãStdFont$(13) = "XR2 XU4 R4" '-ãStdFont$(14) = "XR1 U1 R1 D1 L1" '.ãStdFont$(15) = "XR1 E6" '/ããStdFont$(16) = "XR2 R2 E2 U4 H2 L2 G2 D4 F2" '0ãStdFont$(17) = "XR3 U8 G1" '1ãStdFont$(18) = "XR6 L5 U1 E5 U1 H1 L3 G1" '2ãStdFont$(19) = "XR1 XU1 F1 R3 E1 U2 H1 E1 U2 H1 L3 G1" '3ãStdFont$(20) = "XR1 XU4 E4 D8 U4 L4 R5" '4ãStdFont$(21) = "XR6 XU8 L5 D3 R4 F1 D3 G1 L3 H1" '5ãStdFont$(22) = "XR5 XU7 H1 L1 G2 D5 F1 R2 E1 U3 H1 L3" '6ãStdFont$(23) = "XR1 XU8 R5 D2 G3 D3" '7ãStdFont$(24) = "XR2 R2 E1 U2 H1 L2 G1 D2 F1 XU4 H1 U2 E1 R2 F1 D2 G1"'8ãStdFont$(25) = "XR2 R1 E2 U5 H1 L2 G1 D2 F1 R3" '9ããStdFont$(26) = "XR2 XU2 U1 R1 D1 L1 XU3 U1 R1 D1 L1" ':ãStdFont$(27) = "XR2 XU1 U2 R1 D1 G1 XU4 U1 R1 D1 L1" ';ãStdFont$(28) = "XR5 H4 E4" '<ãStdFont$(29) = "XR2 XU2 U1 R3 D1 L3 XU3 U1 R3 D1 L3" '=ãStdFont$(30) = "XR2 E4 H4" '>ãStdFont$(31) = "XR3 U1 XU1 U2 E2 U1 H1 L2 G1" '?ãStdFont$(32) = "XR6 L4 H1 U5 E1 R3 F1 D3 L2 U1" '@ããStdFont$(33) = "XR1 U5 E3 F3 D5 U3 L6" 'AãStdFont$(34) = "XR1 U8 R4 F1 D2 G1 L4 R4 F1 D2 G1 L4" 'BãStdFont$(35) = "XR7 XU2 G2 L2 H2 U4 E2 R2 F2" 'CãStdFont$(36) = "XR1 U8 R3 F2 D4 G2 L3" 'DãStdFont$(37) = "XR1 U8 R6 XD4 XL2 L4 D4 R6" 'EãStdFont$(38) = "XR1 U8 R6 XD4 XL2 L4" 'FãStdFont$(39) = "XR5 XU4 R2 D2 G2 L3 H2 U4 E2 R4" 'GãStdFont$(40) = "XR1 U8 D4 R6 D4 U8" 'HãStdFont$(41) = "XR2 R6 L3 U8 L3 R6" 'IãStdFont$(42) = "XR7 XU8 D6 G2 L2 H2" 'JãStdFont$(43) = "XR2 U8 D4 E4 G4 F4" 'KãStdFont$(44) = "XR7 L6 U8" 'LãStdFont$(45) = "XR1 U8 F3 E3 D8" 'MãStdFont$(46) = "XR1 U8 F6 XD2 U8" 'NãStdFont$(47) = "XR2 R3 E2 U4 H2 L3 G2 D4 F2" 'OãStdFont$(48) = "XR1 U8 R4 F2 G2 L4" 'PãStdFont$(49) = "XR3 R3 E2 U4 H2 L3 G2 D4 F2 XR5 H2" 'QãStdFont$(50) = "XR1 U8 R4 F2 G2 L4 F4" 'RãStdFont$(51) = "XR1 XU2 F2 R2 E2 U2 L6 U2 E2 R2 F2" 'SãStdFont$(52) = "XR4 U8 R3 L6" 'TãStdFont$(53) = "XR1 XU8 D6 F2 R2 E2 U6" 'UãStdFont$(54) = "XR1 XU8 D5 F3 E3 U5" 'VãStdFont$(55) = "XR1 XU8 D6 F2 E1 F1 E2 U6" 'WãStdFont$(56) = "XU8 F8 XU8 G8" 'XãStdFont$(57) = "XR4 U5 H3 XR6 G3" 'YãStdFont$(58) = "XR1 XU8 R6 D1 G6 D1 R6" 'ZããStdFont$(59) = "XR7 L1 U8 R1" '[ãStdFont$(60) = "XR7 H6" '\ãStdFont$(61) = "XR1 R1 U8 L1" ']ãStdFont$(62) = "XR3 XU7 E1 F1" '^ãStdFont$(63) = "XR1 R6" '_ãStdFont$(64) = "XR4 XU8 F1" '`ããStdFont$(65) = "XR1 XU1 U1 E1 R1 F1 XD1 G1 L1 H1 XR3 XD1 U3" 'aãStdFont$(66) = "XR1 U7 D5 E1 R1 F1 D1 G1 L1 H1" 'bãStdFont$(67) = "XR4 XU1 G1 L1 H1 U1 E1 R1 F1" 'cãStdFont$(68) = "XR4 U7 D5 H1 L1 G1 D1 F1 R1 E1" 'dãStdFont$(69) = "XR4 XU1 G1 L1 H1 U1 E1 R1 F1 L3" 'eãStdFont$(70) = "XR2 U3 L1 R2 XL1 U2 E1 R1 F" 'fãStdFont$(71) = "XR4 XU1 G1 L1 H1 U1 E1 R1 F1 U1 D4 G1 L1 H1" 'gãStdFont$(72) = "XR1 U7 D5 E1 R1 F1 D2" 'hãStdFont$(73) = "XR2 U3 XU1 U1" 'iãStdFont$(74) = "XR2 XU5 D1 XD1 D4 G1 L1 H1" 'jãStdFont$(75) = "XR1 U7 D5 E2 G2 F2" 'kãStdFont$(76) = "XR2 U7" 'lãStdFont$(77) = "XR1 U3 D1 E1 F1 E1 F1 D2" 'mãStdFont$(78) = "XR1 U3 D1 E1 R1 F1 D2" 'nãStdFont$(79) = "XR2 R1 E1 U1 H1 L1 G1 D1 F1" 'oãStdFont$(80) = "XR1 U3 D1 E1 R1 F1 D1 G1 L1 H1 D3" 'pãStdFont$(81) = "XR3 XU1 G1 L1 H1 U1 E1 R1 F1 U1 D5" 'qãStdFont$(82) = "XR1 U3 D1 E1 R1 F" 'rãStdFont$(83) = "XR1 XU1 F1 R1 E1 U1 L3 U1 E1 R1 F1" 'sãStdFont$(84) = "XR3 U7 D3 L1 R2" 'tãStdFont$(85) = "XR1 XU3 D2 F1 R1 E1 U2 D3" 'uãStdFont$(86) = "XR1 XU3 D2 F1 E1 U2" 'vãStdFont$(87) = "XR1 XU3 D2 F1 E1 F1 E1 U2" 'wãStdFont$(88) = "XR1 XU3 F3 XU3 G3" 'xãStdFont$(89) = "XR1 XU3 D2 F1 R2 U3 D4 G1 L1" 'yãStdFont$(90) = "XR1 XU3 R3 G3 R3" 'zããStdFont$(91) = "XR7 L1 H1 U3 L1 R1 U3 E1 R1" '{ãStdFont$(92) = "XR4 U8" '|ãStdFont$(93) = "XR1 R1 E1 U3 R1 L1 U3 H1 L1" '}ãStdFont$(94) = "XR2 XU7 E1 F1 E1" '~ããEND SUBããDavid A. Wicker MATRIX SCREEN PAINT DEMO david@fastlane.net 01-28-96 (11:23) QB, QBasic, PDS 59 1262 MPAINT.BAS DEFINT A-Zã' * Matrix Paint (C) 1996+ David A. WickerããCLSãLOCATE 12, 1ãPRINT "MATRIX SCREEN PAINT DEMO"ãPRINT "Use arrow keys (with NUM-LOCK lit), and [CR] to paint region"ãPRINT "[ESC] to exit demo."ãPRINTãINPUT "", A$ããSCREEN 1ãDEF FNR (A) = INT(RND * A)ãRANDOMIZE TIMERããFOR I = 1 TO 50ã LINE (FNR(320), FNR(200))-(FNR(320), FNR(200))ãNEXTããAgain:ã DOã C = POINT(H, V)ã PSET (H, V), 1ã DOã K$ = INKEY$ã LOOP UNTIL K$ > ""ã IF K$ = CHR$(27) THENã SCREEN 0ã WIDTH 80ã LOCATE 12, 1ã PRINT "Matrix Screen Painter (C) 1996+ David A. Wicker"ã ENDã END IFã PSET (H, V), Cã IF K$ = "8" THEN V = V - 5ã IF K$ = "2" THEN V = V + 5ã IF K$ = "4" THEN H = H - 5ã IF K$ = "6" THEN H = H + 5ã LOOP UNTIL K$ = CHR$(13)ã PSET (H, V), 1ãã DOã OK = 1ã FOR I = 0 TO 199ã FOR J = 0 TO 319ã IF POINT(J, I) = 1 THENã IF POINT(J + 1, I) = 0 THEN PSET (J + 1, I), 1: OK = 0ã IF POINT(J, I + 1) = 0 THEN PSET (J, I + 1), 1: OK = 0ã END IFã IF POINT(319 - J, 199 - I) = 1 THENã IF POINT(318 - J, 199 - I) = 0 THEN PSET (318 - J, 199 - I), 1: OK = 0ã IF POINT(319 - J, 198 - I) = 0 THEN PSET (319 - J, 198 - I), 1: OK = 0ã END IFã NEXTã NEXTã LOOP UNTIL OK = 1ã SOUND 800, .1ããGOTO AgainãJason Plackey MODE-X SCROLL Prodigy Unknown Date QB, QBasic, PDS 80 2413 XSCROLL.BAS ' Regarding the example code... Change the delay% value toã'accommodate your CPU's speed. The TIMER function isã'relatively inaccurate when dealing with fractions of aã'second, and I had insufficient space to include my own timerã'routine.ã' ã' If you have any questions, feel free to ask.ã'Happy coding! Jason PlackeyããDECLARE SUB ModeX ()ãDECLARE SUB OutPort (PortAddr&, vh%, vl%)ãDECLARE SUB Standard ()ãDECLARE SUB SetVOffset (Offset&)ã ãSCREEN 13: DEF SEG = &HA000: CALL ModeXã ãFOR count% = 0 TO 63ã redval& = count%ã greenval& = 256 * count%ã blueval& = 65536 * count%ã rgbval& = blueval& + greenval& + redval&ã PALETTE count%, redval&ã PALETTE count% + 64, greenval&ã PALETTE count% + 128, blueval&ã PALETTE count% + 192, rgbval&ãNEXT count%ã ãFOR Offset& = 0 TO 15999ã rgbbase% = Offset& MOD 64ã POKE Offset&, rgbbase%ã POKE Offset& + 16000, rgbbase% + 64ã POKE Offset& + 32000, rgbbase% + 128ã POKE Offset& + 48000, rgbbase% + 192ãNEXT Offset&ã ãOffset& = 0: OffsetInc% = 80: Frame% = 0ã ãDOã Offset& = Offset& + OffsetInc%ã CALL SetVOffset(Offset&): WAIT &H3DA, 8ã Frame% = Frame% + 1ã IF Frame% = 99 THEN OffsetInc% = 81ã IF Frame% = 199 THEN OffsetInc% = 79ã IF Frame% = 299 THEN OffsetInc% = 80ã IF Frame% = 499 THEN OffsetInc% = -80ã IF Frame% = 599 THEN OffsetInc% = -79ã IF Frame% = 699 THEN OffsetInc% = -81ã IF Frame% = 799 THEN OffsetInc% = -80ã IF Frame% = 899 THENã CLS : PALETTEã CALL SetVOffset(0): CALL Standardã ENDã END IFã FOR delay% = 1 TO 1000: NEXT delay%ãLOOPããSUB ModeXã CALL OutPort(&H3C4, 6, 4): CLSã CALL OutPort(&H3D4, 227, 23)ã CALL OutPort(&H3D4, 0, 20)ã CALL OutPort(&H3C4, 15, 2)ãEND SUBããSUB OutPort (PortAddr&, vh%, vl%)ã OUT PortAddr&, vl%: OUT PortAddr& + 1, vh%ãEND SUBããSUB SetVOffset (Offset&)ã V& = Offset&ã CALL OutPort(&H3D4, V& \ 256, 12)ã CALL OutPort(&H3D4, V& AND 255, 13)ãEND SUBããSUB Standardã CALL OutPort(&H3C4, 14, 4)ã CALL OutPort(&H3D4, 163, &H17)ã CALL OutPort(&H3D4, 64, &H14)ã CALL OutPort(&H3C4, 15, &H2)ãEND SUBããEarl Montgomery HORIZONTAL SCREEN SCROLL FidoNet QUIK_BAS Echo 02-01-96 (01:22) QB, QBasic, PDS 51 1512 HZSCROLL.BAS REM I have not figured out how to keep that horizontal line fromã REM appearing at the bottom of the screen. If any of you graphicsã REM gurus know, please tell me!ã REM By Earl Montgomeryã RANDOMIZE TIMERã KEY(10) ONã ON KEY(10) GOSUB endofprogramã ST% = 4ã PRINT "Once the figure is drawn press any key to RESTART scroll."ã PRINT " ^^^^^^^";ã PRINT : PRINT "Exit this program by pressing the "ã PRINT "PRESS ANY KEY TO BEGIN"ã SLEEP (100)ã PI = 3.141593: DEF FNX (A) = (SIN(A) + 1) * 300ã DEF FNY (A) = (COS(A) + 1) * 150: A = 0: B = 0ã SCREEN 9: COLOR 8, 0ã PALETTE 8, 0ãtryagain:ã AA = RND * 20: BB = RND * 20: T = RND * 8ã IF AA = BB% THEN GOTO tryagain:ã IF AA < 8 OR BB < 8 THEN GOTO tryagainã IF T < 6 THEN T = 6ã FOR X = 0 TO PI * 2 STEP PI / AA / Tã A = A + PI / AA: B = B + PI / BB: LINE (FNX(A), FNY(A))-(FNX(B), FNY(B))ã NEXTã PAINT (2, 2), 8, 8ã PAINT (638, 2), 8, 8ã PAINT (2, 238), 8, 8ã PAINT (2, 638), 8, 8ã FOR H% = 0 TO 610 STEP 16ã FOR V% = 0 TO 320 STEP ST%ã LOCATE 24, 2: PRINT "This is a test of the emergency broadcast system. ";ãchoosecolor:ã f% = RND * 15ã IF f% = 8 THEN GOTO choosecolorã PAINT (H%, V%), f%, 8ã NEXT: NEXTãscroll:ã FOR X% = 1 TO 63ã OUT &H3D4, 13: OUT &H3D5, X%ã SOUND 32000, 2ãpickagain:ã fg% = RND * 15ã IF fg% = 8 THEN GOTO pickagainã PALETTE fg%, X%ã NEXTã SLEEP (100)ã GOTO scrollãendofprogram:ã OUT &H3D4, 13: OUT &H3D5, 0: CLS : COLOR 15, 0: PALETTE: ENDããMichael Teator BOUNCING BOXES mhscards@aol.com 04/94 (00:00) QB, QBasic, PDS 140 5669 BOUNCER.BAS ' Bouncer by Michael Teator April 1994ã'ã' Sorry for the lack of documentation, this was written quikly as a demo toã' a friend. The program could probably be faster with some creative thinking.ã' The move function could be used for almost anything, like a screen saver, orã' maybe a paddleball game. If you want to use it, go ahead, just as long asã' you mention my name somewhere. I have many QBasic creations, but now I'mã' planning on learning C so I won't have time to create anything new. I'llã' just finish the programs I have now and release them on America Online asã' public domain. I will, however, discuss QBasic with anyone that would likeã' to. Send me E-Mail at: AOL - Skeptreã' Internet - skeptre@f11.n3626.z1.fidonet.orgã' (alternate) - skeptre@aol.comã' Note: the speed checking routine can be deleted below. I added that justã' because I was playing with the moving bar thing and thought it would beã' neat to add. I'm not sure how well it determines the number of boxes toã' use, as I've only run it on my 486DX 33, on which it ends up with 16 boxesã' at an enjoyable speed. Still, even 25 or 30 boxes are interesting. Theã' maximum number of boxes is 32,767, but that is limited by the availableã' DOS memory. I've tried up to 5000, but its slow and you can't tell theã' boxes apart. 100 is the maximum number that doesn't fill the screen up tooã' much.ããDECLARE FUNCTION Move (xp%, yp%, xra%, yra%, n%)ããDEFINT A-ZããOPTION BASE 1ããCONST upleft = 1, upright = 2, downright = 3, downleft = 4ããRANDOMIZE TIMERãSCREEN 13ãã' Speed checking routineãPRINT "Please wait while I determine the" ' \ãPRINT "number of boxes to use . . ." ' \ãPRINT ' |ãtime1! = TIMER ' |ãa = 220 ' |ãFOR t = 1 TO 10 ' |ã c = INT(RND * 15) + 1 ' |ã COLOR c ' |ã FOR n = 1 TO 40 ' /ã FOR i = 4 TO 25 ' |ã LOCATE i, n: PRINT STRING$(1, a); ' \ã NEXT ' \ã NEXT ' > Delete this if you don't want it to check your speed.ã FOR n = 40 TO 1 STEP -1 ' /ã FOR i = 4 TO 25 ' /ã LOCATE i, n: PRINT STRING$(1, " "); ' |ã NEXT ' \ã NEXT ' |ãNEXT ' |ãtime2! = TIMER ' |ãtotal! = time2! - time1! ' |ãscore! = 110 / total! ' |ãans = INT(score!) ' /ãGOTO gotans ' /ããtop:ãPRINT SPACE$(37);ãLOCATE , 1: PRINT "Current number of boxes:"; ansãCLEARãPRINT " "ãPRINT "Less boxes = faster display. "ãPRINT " "ãPRINT "How many boxes would you like (press "ãPRINT SPACE$(37);ãLOCATE , 1: INPUT ; "ENTER to end)? ", ansãIF ans = 0 THEN SYSTEMããgotans:ãCLSãmax = ansããDIM xr(max), yr(max), x(max), y(max), dir(max)ããFOR num = 1 TO maxã xr(num) = INT(RND * 20)ã yr(num) = INT(RND * 20)ã x(num) = INT(RND * (320 - xr(num) * 2)) + xr(num)ã y(num) = INT(RND * (200 - yr(num) * 2)) + yr(num)ã dir(num) = INT(RND * 4) + 1ãNEXTããLClr = 16: HiClr = 55ãCounter = LClrããDOã BoxClr = Counterã Counter = Counter + 1ã IF Counter > HiClr THEN Counter = LClrã FOR num = 1 TO maxã LINE (x(num) - xr(num), y(num) - yr(num))-(x(num) + xr(num), y(num) + yr(num)), BoxClr, B'Fã dir(num) = Move(x(num), y(num), xr(num), yr(num), dir(num))ã SELECT CASE dir(num)ã CASE downleft: y(num) = y(num) + 1: x(num) = x(num) - 1ã CASE upleft: y(num) = y(num) - 1: x(num) = x(num) - 1ã CASE downright: y(num) = y(num) + 1: x(num) = x(num) + 1ã CASE upright: y(num) = y(num) - 1: x(num) = x(num) + 1ã END SELECTã NEXTãLOOP UNTIL INKEY$ <> ""ãGOTO topããDEFSNG A-ZãFUNCTION Move (xp%, yp%, xra%, yra%, n%)ã ã DEFINT A-Zã ul = yra: ll = xra: bl = 199 - yra: rl = 319 - xraã SELECT CASE nã CASE upleftã IF yp > ul THENã IF xp > ll THEN Move = upleft ELSE Move = uprightã ELSEã IF xp > ll THEN Move = downleft ELSE Move = downrightã END IFã CASE uprightã IF yp > ul THENã IF xp < rl THEN Move = upright ELSE Move = upleftã ELSEã IF xp < rl THEN Move = downright ELSE Move = downleftã END IFã CASE downrightã IF yp < bl THENã IF xp < rl THEN Move = downright ELSE Move = downleftã ELSEã IF xp < rl THEN Move = upright ELSE Move = upleftã END IFã CASE downleftã IF yp < bl THENã IF xp > ll THEN Move = downleft ELSE Move = downrightã ELSEã IF xp > ll THEN Move = upleft ELSE Move = uprightã END IFã END SELECTããEND FUNCTIONããRolf Genster SIMPLE ANIMATION IN PB Rolf@ice.prima.ruhr.de 07-11-95 (22:01) PB 119 2944 ANIMATE.BAS 'Program Name : ANIMATE.BASã'Description : Simple animation in PowerBASICããDEFINT A-ZãDIM Array1( 2000 )ãDIM Array2( 2000 )ãDIM a$( 40 )ããRESTORE ShipãFOR i = 1 TO 20ã READ a$( i )ãNEXT iããapage = 1ãvpage = 0ãdsp = 0ãhs = 3 'Horz Sizeãvs = 2 'Vert Sizeãho = 4 'Horz Offsetãvo = 4 'Vert OffsetãSCREEN 9,, apage, vpageãGOSUB ShipUpMkãhs = 3: vs = 2: ho = 4: vo = 4ãGOSUB ShipDnMkããd = 1ãx1 = 280ãIdle:ã k$ = UCASE$( INKEY$ ): IF k$ = CHR$( 27 ) THEN SYSTEMã GOSUB movcharã SWAP apage, vpageã SCREEN,, apage, vpageã FOR Dly = 1 TO 500: NEXT Dlyã IF vos > 275 THEN d = 0ã IF vos < 3 THEN d = 1ã GOTO IdleãENDããShipUpMk:ã FOR j = 1 TO 20ã FOR i = 1 TO LEN( a$( j ))ã t$ = MID$( a$( j ), i, 1 )ã ' K 0 blackã ' B 1 Blueã ' G 2 Greenã ' C 3 Cyanã ' R 4 Redã ' M 5 Magentaã ' N 6 Brownã ' W 7 Whiteã ' A 8 Grayã ' b 9 Light Blueã ' g 10 Light Greenã ' c 11 Light Cyanã ' r 12 Light Redã ' m 13 Light Magentaã ' y 14 Yellowã ' w 15 Bright Whiteã fg = INSTR( "BGCRMBWAbgcrmyw", t$ )ãã LINE( 0 + ho, 0 + vo ) - ( hs + ho, vs + vo ), fg, bfã ho = ho + 2ã NEXT iã ho = 4: n = n + 1: vo = vo + 2ã NEXT jãã x1 = 0: y1 = 0: x2 = 74: y2 = 50ã GET( x1, y1 ) - ( x2, y2 ), Array1ãRETURNããShipDnMk:ã RESTORE Shipã FOR j = 20 TO 1 STEP - 1ã FOR i = 1 TO LEN( a$( j ))ã t$ = MID$( a$( j ), i, 1 )ã fg = INSTR( "BGCRMBWAbgcrmyw", t$ )ã LINE( 0 + ho, 0 + vo ) - ( hs + ho, vs + vo ), fg, bfã ho = ho + 2ã NEXT iã ho = 4: n = n + 1: vo = vo + 2ã NEXT jãã x1 = 0: y1 = 0: x2 = 74: y2 = 50ã GET( x1, y1 ) - ( x2, y2 ), Array2ãRETURNããMovChar:ã CLSã IF d = 1 THENã vos = vos + 3ã PUT( x1, y1 + vos ), Array2ã ELSEã vos = vos - 3ã PUT( x1, y1 + vos ), Array1ã END IFã Dsp = 1ãRETURNããShip:ãDATA " bb "ãDATA " BBBB "ãDATA " BBBB "ãDATA " BB "ãDATA " AABBAA "ãDATA " AGGCCGGA "ãDATA " AGGGCCGGGA "ãDATA " AGGGGGGGGGGA "ãDATA " AGGGGGGGGGGA "ãDATA " y AGGGGGGGGGGGGA y "ãDATA " ACA AADGGGGGGGGGGRAA ACA "ãDATA " ACA AAGGGRGGGmmGGGRGGGAA ACA "ãDATA " ACGAAAGGGGGRGGmmmmGGRGGGGGAAAGCA "ãDATA " ACGGGGGGGGGGRGmmmmGRGGGGGGGGGGCA "ãDATA " GGGGGGGGGGGGRGmGGmGRGGGGGGGGGGGG "ãDATA " AACGGGGGGGRGGGGGGGGGGRGGGGGGGCA "ãDATA " ACCGGGRRRRRRRRRRRRRRGGGCCA "ãDATA " AGGRRRRRAAAAARRRRRRGGA "ãDATA " ARRRRAAA AAARRRRA "ãDATA " RRyR RyRR "ãMJS STARWARS SCREEN SCROLL Rolf@ice.prima.ruhr.de 01-18-96 (08:17) PB 130 3037 STARWARS.BAS$hugeããdeflng a-zããscreen 9,,0,0 ' To have some more pagesããdim huge Position(0400,0:1) as integer ' Array with Positios f. virt. Screenãdim CharTable(0:255,0:13) as byte ' ASCII-Tableãdim ScrollScreen(0:400,0:79) as byte ' Screen with Scroll-InfosããCharHeight=14ããy=0ãIncY=2ãfor z=0 to 400ã call r3d22d(320,y,z,x2,y2) ' to get some "good" 3D'sã Position(z,0)=x2 ' outermost right borderã Position(z,1)=y2 ' 2D-Y-Position calculated from 3D-Pos.ã incr y,IncYãnextãã' Simple CharTableReadãdef seg=&HA000ãfor a=0 to 255ã locate 1,1ã print chr$(a);ã CharPtr=0ã for y=0 to CharHeight-1ã CharTable(a,y)=peek(CharPtr) ' read ASCII-Tableã incr CharPtr,80ã nextãnextããdata 7ãdata -1,"ÚÄÄÄÄÄÄÄÄÄÄÄ¿"ãdata -1,"³ This is a ³"ãdata -1,"³ TEST !! ³"ãdata -1,"³ written ³"ãdata -1,"³ by MJS ³"ãdata -1,"³ in 1996 ³"ãdata -1,"ÀÄÄÄÄÄÄÄÄÄÄÄÙ"ããread WorkLinesãdim ScrollText$(WorkLines),ScrollCenter(WorkLines)ãfor a=1 to WorkLinesã read ScrollCenter(a),ScrollText$(a) ' read Text to scrollãnextããVisualPage=0:LastPage=1ãScrollScreenMax=CharHeight*4ãScrollLine=1ãScrollLineSub=0ãColorDiv=(ScrollScreenMax/14)ããr=0ãfor a=1 to 15 ' set colors (black -> white)ã out &H3c8,aã for b=1 to 3ã out &H3c9,rã nextã incr r,4ãnextãfor a=1 to 15ã palette a,aãnextããwhile len(inkey$)=0ã screen 9,,LastPage,VisualPageã line (0,0)-(639,349),0,bf ' quicker than CLS :)ã for y=ScrollScreenMax-1 to 1 step -1ã y2=y-1ã for x=0 to 79ã ScrollScreen(y,x)=ScrollScreen(y2,x) ' scroll 'up'ã nextã nextã h$=ScrollText$(ScrollLine)ã select case ScrollCenter(ScrollLine) ' centering lineã case -1ã StartPos=40-(len(h$)\2)ã case elseã StartPos=ScrollCenter(ScrollLine)ã end selectã for c=1 to len(h$) ' read Lines of charactersã ScrollChar=asc(mid$(h$,c,1))ã ScrollScreen(0,StartPos)=CharTable(ScrollChar,ScrollLineSub)ã incr StartPosã nextã incr ScrollLineSubã if ScrollLineSub=CharHeight thenã ScrollLineSub=0ã incr ScrollLineã if ScrollLine>WorkLines then ScrollLine=1ã end ifã for y=0 to ScrollScreenMax-1 ' show 'viewable' scroll-Textã RealY=349-Position(y,1) ã OldY=349-Position(y+1,1)ã MaxX=Position(y,0)ã WorkX=-320ã for x=0 to 79ã ScrollByte=ScrollScreen(y,x)ã if (ScrollByte>0) thenã OldX=(((MaxX*WorkX)\320)*4)+320ã for b=7 to 0 step -1ã incr WorkXã RealX=(((MaxX*WorkX)\320)*4)+320ã if bit(ScrollByte,b) then line (OldX,OldY)-(RealX,RealY),15-(y\ColorDiv),bfã OldX=RealXã nextã elseã incr WorkX,8ã end ifã nextã nextã LastPage=VisualPageã VisualPage=((VisualPage+1) and 1) ' switch PagesãwendããendããSUB r3d22d(x1, y1, z, x2, y2) ' calculate 3D -> 2Dã' Depth=128ã' x2=(x1*depth)/(z+depth)ã z2 = z + 128ã x2 = x1ã SHIFT LEFT x2, 7ã x2 = x2 \ z2ã y2 = y1ã SHIFT LEFT y2, 7ã y2 = y2 \ z2ãEND SUBãCarl Gorringe FLI/FLC ANIMATION PLAYER FidoNet QUIK_BAS Echo 02-01-96 (08:34) QB, QBasic, PDS 365 11569 FLIPLAY.BAS '----------------------------------------------------ã' FLIPLAY.BAS - FLI/FLC Animation Flic Player v2.0ã'----------------------------------------------------ã' (c) Carl Gorringe 2/1/96ã'ã' This program will play an animation flicã' FLI or FLC file in SCREEN 13.ã'ã' This will only work with 320 x 200 flics.ã' Although I have speeded up the program someã' by using POKEs instead of PSET to displayã' on the screen, there is still much to be doneã' to speed things up. For example, disk accessã' could be greatly speeded up by buffering largeã' portions of the file to memory before decodingã' it.ã'ã' Released to the Public Domain.ã' You may use this any way you see fit,ã' just remember to give credit whereã' credit is due. This program is providedã' "AS IS", therefore I am not responsibleã' for any consequences of using it.ã'ã' I can be contacted be sending a message to:ã' CARL GORRINGE at FIDOnet's QUICK_BAS echo orã' Internet e-mail: ã'ã'------------------------------------------------ããCONST FALSE = 0ãCONST TRUE = NOT FALSEããTYPE FLIheaderTypeã Size AS LONG 'Size (in bytes) of entire Flic fileã ID AS INTEGER 'Always &hAF11 for FLI filesã Frames AS INTEGER 'Number of Frames (not including ring frame)ã Xres AS INTEGER 'Always 320 for FLI filesã Yres AS INTEGER 'Always 200 for FLI filesã ColorBits AS INTEGER 'Always 8 for FLI files (bits per pixel)ã Flags AS INTEGER 'Always 0 for FLI filesã Speed AS INTEGER 'Pauses 1/70 second between frames (FLI only)ã Reserved AS STRING * 110ãEND TYPEããTYPE FLIframeChunkTypeã Size AS LONG 'Size of frame chunk, including headerã ID AS INTEGER 'Always &hF1FA for FLI filesã Chunks AS INTEGER 'Number of subordinate chunks in frame chunkã Reserved AS STRING * 8ãEND TYPEããTYPE FLIdataChunkTypeã Size AS LONG 'Size of data chunk, including headerã ID AS INTEGER 'Data Type ID (see below)ãEND TYPEãã'-- Data Type ID has following values: --ã' 4 - COLOR256 : Change Palette using values 0-255 for RGBã' 7 - SS2 : (FLC) Word Aligned Delta Compression (Pixel Data)ã' 11 - COLOR64 : Change Palette using values 0-63 for RGBã' 12 - LC : Byte Aligned Delta Compression (Pixel Data)ã' 13 - BLACK : Black Screenã' 15 - BRUN : Byte Run Length Compression (Pixel Data)ã' 16 - COPY : Bitmap of entire image (Pixel Data)ããDECLARE SUB FLIplay (FileName$, ErrCode%)ãã'---------------------------------------------------------------------------ãã'--- Credits ---ã SCREEN 0: WIDTH 80, 25ã CLSã PRINT "FLIPLAY.BAS v2.0 - Programmed by Carl Gorringe "ã PRINTã PRINTãã'--- Input File Name ---ã PRINT "Enter FLI or FLC File Name with extension (Enter=Quit):"ã INPUT "> ", FileName$ãã IF LTRIM$(RTRIM$(FileName$)) = "" THEN ENDã IF INSTR(FileName$, ".") = 0 THEN FileName$ = FileName$ + ".FLI"ãã'--- Setup Screen ---ã SCREEN 13ã CLSã LOCATE 25, 1: PRINT "Loading "; FileName$;ã LOCATE 1, 1ãã'--- Simple File Exist Checking ---ã FileNum% = FREEFILEã OPEN FileName$ FOR INPUT AS FileNum%ã CLOSE FileNum%ãã'--- Play Animation Flic ---ã CALL FLIplay(FileName$, ErrCode%)ãã IF ErrCode% > 0 THENã LOCATE 3, 1ã PRINT "Error Occured! : ErrCode ="; ErrCode%ã END IFãã'--- Pause to Exit ---ã I$ = INPUT$(1)ã SCREEN 0: WIDTH 80, 25: CLSã ENDããSUB FLIplay (FileName$, ErrCode%)ãã' (c) Carl Gorringe 2/1/96 << v2.0 >>ã'-----------------------------------------ã' Plays a FLI or FLC Animation Flic File.ã' Make sure graphics mode is set toã' SCREEN 13 before entering. Also,ã' this doesn't check if FileName$ exists!ã' ErrCode% is Error Code returned: 0=OKã'-----------------------------------------ã'<< Done - Tested OK >>ããDIM Header AS FLIheaderTypeãDIM FrameChunk AS FLIframeChunkTypeãDIM DataChunk AS FLIdataChunkTypeãDIM Byte AS STRING * 1ããErrCode% = 0ããFileNum% = FREEFILEãOPEN FileName$ FOR BINARY AS FileNum%ãã'--- Get the File's Header ---ã GET #FileNum%, , Headerãã IF Header.ID <> &HAF11 AND Header.ID <> &HAF12 THENã ErrCode% = 1 '<-- Not a FLI or FLC file (error)ã CLOSE FileNum%ã EXIT SUBã END IFã IF Header.Xres <> 320 OR Header.Yres <> 200 THENã ErrCode% = 2 '<-- Not a 320x200x256 Color Flic (error)ã LOCATE 21, 1: PRINT "Xres:"; Header.Xres;ã LOCATE 22, 1: PRINT "Yres:"; Header.Yres;ã LOCATE 23, 1: PRINT "ColorBits:"; Header.ColorBits;ã LOCATE 1, 1ã CLOSE FileNum%ã EXIT SUBã END IFãã'--- Loop Thru Each Frame ---ã DEF SEG = &HA000ã FOR Frame% = 1 TO Header.Framesãã '*** FRAMES: Displays Frame Number in Upper-Left Corner ***ã LOCATE 1, 1: PRINT Frame%;ã ã FramePos& = LOC(FileNum%) '<-- Needed? --ã GET #FileNum%, , FrameChunkãã IF FrameChunk.ID = &HF1FA THENã ã FOR Chunk% = 1 TO FrameChunk.Chunksã ã DataPos& = LOC(FileNum%) '<-- Needed? -- << v1.1 >>ã GET #FileNum%, , DataChunkãã SELECT CASE DataChunk.IDã CASE 4, 11 '--*-- COLOR256/COLOR64: Change Palette --*--ã ã Index% = 0ã GET #FileNum%, , PacketNum%ã FOR A% = 1 TO PacketNum%ã GET #FileNum%, , Byte: SkipByte% = ASC(Byte)ã GET #FileNum%, , Byte: ChangeByte% = ASC(Byte)ã Index% = Index% + SkipByte%ã IF ChangeByte% = 0 THEN ChangeByte% = 256ã FOR B% = 1 TO ChangeByte%ã GET #FileNum%, , Byte: RedByte% = ASC(Byte)ã GET #FileNum%, , Byte: GreenByte% = ASC(Byte)ã GET #FileNum%, , Byte: BlueByte% = ASC(Byte)ã IF DataChunk.ID = 4 THENã '-- Change Palette (0-255) --ã OUT &H3C8, Index%ã OUT &H3C9, RedByte% \ 4ã OUT &H3C9, GreenByte% \ 4ã OUT &H3C9, BlueByte% \ 4ã ELSEã '-- Change Palette (0-63) --ã OUT &H3C8, Index%ã OUT &H3C9, RedByte%ã OUT &H3C9, GreenByte%ã OUT &H3C9, BlueByte%ã END IFã Index% = Index% + 1ã NEXT B%ã NEXT A%ã ã CASE 12 '--*-- LC: Byte Aligned Delta Compression --*--ãã GET #FileNum%, , StartLine%ã GET #FileNum%, , Byte: NumLines% = ASC(Byte)ã LinePos& = StartLine% * 320&ã GET #FileNum%, , Byte: StartByte% = ASC(Byte)ã FOR Y% = 1 TO NumLines%ã GET #FileNum%, , Byte: PacketByte% = ASC(Byte)ã X% = StartByte%ã FOR A% = 1 TO PacketByte%ã GET #FileNum%, , Byte: SkipByte% = ASC(Byte)ã GET #FileNum%, , Byte: SizeByte% = ASC(Byte)ã X% = X% + SkipByte%ã IF SizeByte% > 127 THENã SizeByte% = -(SizeByte% OR &HFF00)ã GET #FileNum%, , Byte: PixelByte% = ASC(Byte)ã FOR B% = 1 TO SizeByte%ã 'DEF SEG = &HA000ã POKE LinePos& + X%, PixelByte%ã 'DEF SEGã X% = X% + 1ã NEXT B%ã ELSEã FOR B% = 1 TO SizeByte%ã GET #FileNum%, , Byte: PixelByte% = ASC(Byte)ã POKE LinePos& + X%, PixelByte%ã X% = X% + 1ã NEXT B%ã END IFã NEXT A%ã LinePos& = LinePos& + 320ã NEXT Y%ã GET #FileNum%, , Byte '<-- Needed? --ã ã CASE 7 '--*-- SS2: Word Aligned Delta Compression (FLC Only)--*--ãã LinePos& = 0ã GET #FileNum%, , NumLines%ã FOR Y% = 1 TO NumLines%ã ''LastPixel% = -1 '<-- For ODD Width Flics (not used)ã DOã GET #FileNum%, , Word%ã WordType% = (Word% AND &HC000)ã SELECT CASE WordType%ã CASE 0: PacketCount% = Word%ã CASE &H8000: LastPixel% = (Word% AND &HFF)ã CASE &HC000: LinePos& = LinePos& + (Word% * -320&)ã END SELECTã LOOP UNTIL WordType% = 0ã X% = 0ã FOR A% = 1 TO PacketCount%ã GET #FileNum%, , Byte: SkipByte% = ASC(Byte)ã GET #FileNum%, , Byte: SizeByte% = ASC(Byte)ã X% = X% + SkipByte%ã IF SizeByte% > 127 THENã SizeByte% = -(SizeByte% OR &HFF00)ã 'GET #FileNum%, , PixelWord%ã 'PixelByte1% = PixelWord% AND &HFFã 'PixelByte2% = PixelWord% \ 255 'Don't Work for Neg #ã GET #FileNum%, , Byte: PixelByte1% = ASC(Byte)ã GET #FileNum%, , Byte: PixelByte2% = ASC(Byte)ã FOR B% = 1 TO SizeByte%ã POKE LinePos& + X%, PixelByte1%ã POKE LinePos& + X% + 1, PixelByte2%ã X% = X% + 2ã NEXT B%ã ELSEã FOR B% = 1 TO SizeByte%ã 'GET #FileNum%, , PixelWord%ã GET #FileNum%, , Byte: PixelByte1% = ASC(Byte)ã GET #FileNum%, , Byte: PixelByte2% = ASC(Byte)ã 'POKE LinePos& + X%, (PixelWord% AND &HFF)ã 'POKE LinePos& + X% + 1, (PixelWord% \ 255)ã POKE LinePos& + X%, PixelByte1%ã POKE LinePos& + X% + 1, PixelByte2%ã X% = X% + 2ã NEXT B%ã END IFã NEXT A%ã ''-- Following is for ODD Width Flics (not used) --ã ''IF LastPixel% > -1 THENã '' POKE LinePos& + Header.Xres - 1, LastPixel%ã ''END IFã LinePos& = LinePos& + 320ã NEXT Y%ã ã CASE 13 '--*-- BLACK: Black-Out Screen --*--ã CLSã ã CASE 15 '--*-- BRUN: Byte Run Length Compression --*--ã ã LinePos& = 0ã FOR Y% = 1 TO 200ã GET #FileNum%, , Byteã X% = 0ã DOã GET #FileNum%, , Byte: SizeByte% = ASC(Byte)ã IF SizeByte% > 127 THENã SizeByte% = -(SizeByte% OR &HFF00)ã FOR B% = 1 TO SizeByte%ã GET #FileNum%, , Byte: PixelByte% = ASC(Byte)ã POKE LinePos& + X%, PixelByte%ã X% = X% + 1ã NEXT B%ã 'ELSEIF SizeByte% = 0 THEN '*** Test ***ã ELSEã GET #FileNum%, , Byte: PixelByte% = ASC(Byte)ã FOR B% = 1 TO SizeByte%ã POKE LinePos& + X%, PixelByte%ã X% = X% + 1ã NEXT B%ã END IFã LOOP UNTIL X% >= 320ã LinePos& = LinePos& + 320ã NEXT Y%ã GET #FileNum%, , Byte '<-- Needed? --ãã CASE 16 '--*-- COPY: Bitmap of Entire Image --*--ãã FOR P& = 0 TO 64000ã GET #FileNum%, , Byte: PixelByte% = ASC(Byte)ã POKE P&, PixelByte%ã NEXT P&ã ã CASE ELSE '--*-- Unknown Data Chunk, so Skip Over --*--ãã '*** Test ***ã 'LOCATE 24, 1: PRINT "Chunk:"; Chunk%; " Unknown Data:"; DataChunk.ID;ã 'I$ = INPUT$(1)ã 'LOCATE 24, 1: PRINT " ";ãã 'SEEK FileNum%, LOC(FileNum%) - LEN(DataChunk) + DataChunk.Sizeã SEEK FileNum%, DataPos& + DataChunk.Size + 1 '<< v1.1 >>ãã END SELECTã ã NEXT Chunk%ãã ELSE '--- Unknown Frame Chunk, so Skip Over ---ãã '*** Test ***ã 'LOCATE 1, 5: PRINT "Unknown Frame:"; FrameChunk.ID;ã 'I$ = INPUT$(1)ã 'LOCATE 1, 5: PRINT " ";ãã 'SEEK FileNum%, LOC(FileNum%) - LEN(FrameChunk) + FrameChunk.Sizeãã END IFã ã SEEK FileNum%, FramePos& + FrameChunk.Size + 1 '<-- Needed? --ã ã '*** PAUSE: Uncomment Following Lines for a Pause Between Frames! ***ã 'LOCATE 1, 35: PRINT "Pause";ã 'I$ = INPUT$(1)ã 'LOCATE 1, 35: PRINT " ";ãã ''NOTE: The REAL Pause should be Header.Speed * 1/70 of a second,ã '' but because the frame updates are so slow, I didn't includeã '' the pause here. (FLI files ONLY!)ãã NEXT Frame%ã DEF SEGããCLOSE FileNum%ããLOCATE 1, 35: PRINT " Done"; '*** Test ***ããEND SUBããJon Kreuzer 3D WIREFRAME MODELS FidoNet QUIK_BAS Echo 02-06-96 (00:00) QB, QBasic, PDS 129 8494 3DMODELS.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"3DDS.ZIP",4^6:Z&=6102:?STRING$(50,177);ãU"%up()%9%%%#-%%JmkEx4)e,)8%%%U\%%%-%%%%Xi%ixSgRfx.*8y6MqbãU"06bc7\nVR-*xRvipXgF/3%F0iqzYZV>XE-/3'9w;K->fGuLIco3.fDBDFaIZFM'ZSpf)v09f/ggwF2$24I%8,WUF%bys+iNya#?;ãU"wW,sIN-e7DF9idKl7U5bt5;G[9'#3q(aeQyy4QxA#y/BA$m)gx)nbiFHrk;sWQdãU"1>zEm9vos6pECWF'xMC[];v-nw8I=Lq9S;%-n1=X3H)[.r)W9J]2%oBYNqvPu:?ãU"1gZPAq/J;]Dd=9yX'.FYLu*RxRE(hfU/Pq6]dHI(51)/C5n]2lAr#S1Pcip$=agãU"aXln2Yhc4B_(G[2u=TSMMP?L[&)VhF$;;sz3(Z%d>.W=/LMUJnOdRBbmb0;RWhXãU"A#TRxCkM40gA_cKJ;WxRdUJr,[enBhGv%F3P8'm32aRxl1HvhY^w)UAd*27;:u$ãU".mgf_8+UUS$RA?k&X.9vwxahwiCGw7QbSh&O/090qvHGsKeXRyg.UU2n'=jkIzK7g2GVvFk[f0l/ãU"EYb6B3%[C?l/B7>BIj9sQ1:G;8gXjE>ln-id'60]dpQjXWp$I);9-P3NV[Su8\0ãU"js_47UJ\3B0#a5TrqrfBhd-Y+tP8j[5$U.-T=GDrqU?,5X>\Gcg]P4TFGt#ThX\ãU"/.R/57mf?6vVln+=Bb(XwJL?$g&5BSW(k9.Xd<*Ju=Z(<'*IxaV$2Yan=I.gmXoãU"29;=jk39dIckPv7L(,Fsah7U'T$iR3v_Kk-Z7hyO5.sNgX+z06fVOa(nEY/ãU"C5k*L%RH'$9\>sp\Hbq=%]zn8KI:iU'pxH*_EC/$7Fm=q9YV0'\FkdN_zX>)&^wãU"y)_OJ2s[$Mp&q5GiBsI)EMVEF?PG[='4&Q-]R\&iW7LtvwXRLYlK\.CT?X6S:Z[ãU"wXAM_9Df\1+#7c0KQXj&KDnQb>Juih[T]b[BQ=9EEJF2N?#CDB>lL,)4ãU"*KMl'kqQ=]_3Qck;noSX')Wny,qxãU"yPFuxzg-98#Hol.mVO)]ck8[eW#)=7:n(Vm?+']A*P*AGo$Zg^On7;M]W(t4YL;ãU"V+??mbTovBI,ZLJBtjRY^,[66m^9-?_XapFDs\fFUqinc6dvxu/pj3X48n=Q(i2ãU"GH/ohur#Vsb#^yO;_Hn,auxZJFms3m(hVL*DSVX(NMru'(Rl-NQdHU[::-Zml2LãU"$+a,a'T+r<94\WRRqI)GDhj)/-Si+YGGf4CP_a1\rQ0,tjXJAvpN]oFw.4nBb1aãU"t\sYNu:d;0,*mrP%1KC8XN>13urea-BEAãU"m?e'XDma&8e4KbBGVTirxdf;9?X#A10,a>AJ:Wn/$,j/FZVFtATIUA(3IhWX_1-s^zg'FFqb+SQ&n1H(%?QL3zGLf>ãU"9-8V3clXo[WL+R>6u(weg_WJ6?-VVB4tUvdwB>-SIfvU.OH&O,,)I7_x>US[fk4weoFKYp>%R-QL7;16lvUusU2?^o+F5?b3GHgl]5GãU"ef[Aq4,5FhPoU=i=;_XYB/4+7FO.h2]gYEF%ArtxA^QOYQLuow40C[UvbPT\A=$ãU"TVJQAp]^#WwtDK$qFQR,rZj$V?(oHxO3F1-D]ZI.8lQ?GgKit[JgBCtHFCkJ-eYãU")O*l5CcU&v:5<0A*DKT]ETdj8^]^gg_DY3K8H:BJh>^,LD)#kN=WQa=X)Hi6,C9ãU"5fd)AK'(>+S8[YF)tL*y;RANVDsKf+7+#PD1mcNAopW>egZjR*<)\0s$bg,]:0lãU"F7s/V:XgCJ0j?v,mZss19naf7GUt:TDLUH>%GAYuSV27c3bhNESVsz50&[QN2':ãU"c-Fwo$Adrj:10^[C]5&D5%,dd.;ZBg;$,y.fW+k.'Kjl.22Dhc:Uk&a?lAYG%X&ãU"N?ZLB2c5$\s?4.76uY]$Gnlr>qDY7Qt+uRiJ?2W+NmU8Y:m3(V=Hb8Gba/A]2L,n49ivQ_Q6>-^kC\bOXRh#ãU"Ml8mhD+<3Rh\>fIo$gllIWK3J7t#2)4*IXPuvFuWa,8dmA\AOWys.uJ)eFQ#w:SãU"$QA0irlaQ92p'^DWnIa='vjy-=p7hY*LLoBA90gW.A5pN(&fJ4z*&,2nkPDJ5cTãU"x?\UVPg7\hGC(T]jFjCqzf[_TaqSBj^PE(I[KRQey&.f]aaCQ:.7+9)T\Y*sGpEãU"d-4O?cn7MeuZGf]dXu>..f&0,$^E9(I-Oi/N*Rgh[7d\of5lGe*_'>^u;OiTryYWK0XK9WH2ctS%ãU"5k)?%./.22*uESq&Oy/.pbA+g^tU=QdSsSpT59L:Y^4Xw44*8nsBx:_R.:_8naZRuqV]q_w+[rQuG8DT%B3.guhm^k6;uvcX,1UT'bNj,]llmpBUBItdH6&l4,)l]3h5pQãU"r(hYw4O_]9U1&DOaxCf:&6),ivi>)j-aM4.^H33#iiLYHX,]by/QZC*lL2cnx[sãU"tRgY2H,'WrkHUYf]=3l8ILxsQ;t8)Fd+j6\q(,UYF76d,XCN3,AEmscK34/g9wvãU"1Hg&t?h1P;CZN3+-E,De%PH;F4myB?GZ1o?#*FbH?3OEUN&C#c4dk(o-pihf)]ZãU"\L;0J6kL)a>2(5j3qyg#NEZ7V[lATH/GK]6Meai_$n$47(CgbIãU"ZC>q$j#S3w#&78%Dnk[^'X-WU)ks.pZ\XD1]B%SfCjVc$PVnjJ#$]4$_&&IZ[%WãU"mpbjN'2Bju,0L2:d^RasX?(*E+#1LE0#1P2lH,ks_lJ,&ZVtreuLnbGEV5/OpbbãU"13-E\2s'#Jp1&M&4eYtn8ObcL';2DpC4JJ4moIP[8trh00\zNptAmw=1ao=m'/H%c44XqZO8*m0E,wYNnC-ptSLYtp-^7W^5fQh[,tãU"nASgn_oR%h%:-,PU:5xNiU-\sq5)7f\ãU",/y*hq;M'2UC^AfKZAa:ISDcs=S'>E34XT_HK\f>]81C=1t'Uppv'44^V[BoiS(ãU"R*%;(6g;3KU0vCVFV#>ndqR5n,Wx&]6)[g%0ãU"J*#$^-[8jSp&l<=RrEkt>hCU(L-M1p2hG$rT27#pOZL[5%vgsZohar'fzNWf7=ãU"KvuS42U_zBt+)C,P=S9+OD_gPH/Yf)+bByTmtJPPsPUãU"+:8l,H)Sz4)oYo\FFna2=eA8yMkRXPI*cy:uoSgbuY8Tk'aA]qIAs,zu4T83HCQãU",c-+A\hRNCt)Ck0J>7ZW-D_)S-+S/:>XK%.E.'3X>(>;1[&KooE#%N2,m]XkLãU"ld;F7>i1#Cqz'j?xpSK0q3EHhmx1,VDYx[KeYm;oNQoD*+mq&Q>hz&=^eãU"oOn#JAsVk:h1&.k7BvL8BWXQW?0m-1H$)jI>/q8uFvmw,Kn:#dyTd=Ms.)+GI'1ãU"uX6ubJ)bNIq5sDO5'vYTFahI4iu?/x\68sb,$i9?L8ISe:,DXd,eãU"g&>M-w,TCS84.N:QIY7pJcWYz]7q.IeM'k+WYQ)[=6f8oFV.JK7:>amfrCgaKeJãU"_A'eJO-6,SZ#qEu?m%fEVe0runwI4#Ly6/^FJ-/rQXS9gfKOKek%Z10]W1vWf$MãU"n:2BrKe^'Zkw.K)-?hPkvL3N'6#UVCmoSDslF4ZaãU"WS[?37/p*>&58NmT4a_eMZISJUj0Nt#ld7W;8'U#z#F%1(y&_jB8vLEBJ_HW&FnãU"Il<';(I\9=J$6pnTod2VRh->7>ioIfY$6FnWqJfa6YFBWNsxox6M?GBGspp0>'6ãU"1R]rL]ZBkU8bA4HZe8+.0[iH;11Ha1V3T\';Di1iAUl_i&kA%RLgKLQIV^ZmQAgãU"E(G*nKnm*]o:Tov.Wa=^]ZVfZ_$z:st&1H$C(L_YB,^XC*Y[aM=kC$KK5>yJUsoãU"gfV#FDX94.e$h>>aw81%0]mpn2B#VNB6DCv=\(7spPBwHx*miTy,ãU"UnRLT%L1:qYsBfu1\wr5d5$_RXhHR)#gR8QS*RE_;\XHO*-k+g%&B3>o^_3A)s[ãU"oE^5(;_R:2/T92'=D;l^[TsB;-gA+W;#ba6q?98aLx&dj&l4toP*XDmjL9ãU"jUIu5fx\/lVbz=Ks&]**sNup%()9%%%%-%)'iYE/xGO<%s%%%&n%%%%/%%%%xvzãU"f%wjSxmmu,Y]^WYK0J*1hCH-S,IY[cX3;Qyf+MOjw*&Zu384'*38_UKVc_^WO=VãU"Z^WoJV]^#W*65IE.B_2Sx]>LTfT](NWU&1ngRI)O=(%%up()%9%%%#-%QWm[Eb=P>3JQu%K/0IW(Z%'75d%]rk_?<5+?_4K5+KU_U5+\u_et0FeS^8WUN&>y,IV.*6/.ãU"2B_S*(TfJm]*6mE#)i=R%-%up%()9%%%%-%(bE]E>Z];T&e%%%&%&%%%.%%%%xmãU"nu%YSxmgu,]:%6iF-shhEI#._++nd'/wSi;i.foD/;#0o%u^[4oLp3wrsE/pqX<ãU"Ws6vjPoIribIUT0BnUYlhgM_t[nNF.[A^*)cd.wLYz^42?ugSrqbHKdB_CãU"fJ8L>8P+BQS)p1qK^XrHROL;t0Y&NW12)fdOVEgG4)j8LX/XQm1eQ6LM=KcX_4;ãU"Vy,,6s&u%p&'9%%9%%%%-%%\JkEx34e,)%8%%U%\%%-%%%%%%%%%&%%E%%%%%%%ãU"%%Xii%xSgf%xup&%'9%9%%%%-1%'iYCExGO%(%%%a.%%%1%%%%xy%fwkn%jqSg.fxdz;:>T[j9vãU"=9?xZ-M2oGEwUN8+4fa+3/E57p39ãU"Jg24>aGN%J$oY[f,a<0bkXOU5X-/P'uF*Ph$#$]J/N&_s'WtD?dp0\&S0WyMAXkãU"N&4N;:kqq=k-ML[LWH$D6m+Z$^I*fVi4G(Im%U1KvG[*dX7kFCKTe#YbNA3pe%GãU"vqH9.PaT(j-F6Xi;lK2(AaEgX_3f_*9A,*(gL9Rvm5L2IZc<_;u-U3[#FeOTerqIq;6(K#^pm^:;&+Fnj6u?)^BMãU"jsMo%+KoF>r'*-3J2J/Odas0&T9J6*2QE=_)U2Nf+N(r:*.=s*8m&hsP+Me4cTBãU"OYS'k(;^s7Eofg6?B,]%=b+tsc[YJ5n-*(/N=SVlgGnS$&wdj9v5WzH4NDTjyj?ãU"2VW[G.-Y2S%0$vuaMz;pXDd9yojdwSk:#23F6W.z#muUc7&ejF,o:H+RY(C[O4=^(wQYqv2dxrH-IxAx]&l#;dHjMF:ãU"\]u=;6u7bngOKL(bwpL<7jps3SvB^6R>b)jL3KKHxq9k&CbWJ,vv3toJN8hYh+LãU";acr,VdF4*s&p$F*M><0T(O.^JzQrF5J4ãU"*/;\KRl\==4[EeMLCs5wbxiv][vutB4,]DD$OcDxA=uI#:<87Y/,ru>\,0XJrk?Gn4$LN'DgV$RI,\:w24U.\gBXM,;=WZ%b7XBT[9LUJg2IF:Na'*=F9gLsr'Q/3Ef9E[W7/5B5^*K%]*?2aeãU"BInfp?NWeCOlfmbFQ2B;z[;dC.Ip>K981Fr(iB2m=bRL%,YRi9QR>Y13[KtxA1mrH/hNeI/-Q4V)^\9Q^j<_F.:[ãU"?fH:8Cx'Os:Dsh2*/njhAK(z]1ZD0qvf4\PAWhyZSXX6d9>i2_T;AM#n5ra*\tX$HY)7ymBo1fp+kWLJq)$4yA+&M+Y1nãU"'T#dnlAROYCa32X].&^%(y%h6P(JcVuGNOTv&lJRH5[pS-+fZscmLtF.g-^,\PLJ6Ns>u\x;_i?Y9S&OãU"O,uJ%Y7c?c2RCbd,8_a(1I:y(s8$LAM4_?QkSgw(a$2)V1Fc9Bc$]ãU"<+Z9BsZVFU(ft'i4+-Tw;]ejG's&#I/XRXvH&Eu)O9V4U.j0'6iufYeccU:q&d2ãU"r*JGk/[O70,#Vp?RHwuSals:C(+Nre#JfDZ9SK'CoXJiEcPu=/$46i_I;CjZSI:ãU"JPzs.%PGJnI'I4HJutZ_%j9Gk&Tcl]b,].Z%,/yIOP;$Osa=R[a#6OC;i*IjN^4ãU"d5Svb^Wbxeqb_L=B5A_JSU;ILT?atV>MT.?#WN=::rNH+jo9249ZWj%FfE^Hw(EãU"i5xN3R\05G[:AKu_I3u_uo2eQoG6,PTrxY$3uvcK9s*RdhHFDp]*ccuF(dQ^XN(/zTh\cNPãU"+;pdI6Rj%G*N5FH_mZCN#]rw5*&%d%up%()9%%%%-%'JhkE&6Iq&&m&%%%Q)%%%ãU"/%%%%gtzs%hjSgRfxfb98s\e45?6A)QQ'ãU"jLN:*-&B0+c3EOlmi5_:cD;,&\33$ãU"%b8X8cT3E6P-77U\x3&uCDNAOa,qsR/E=tBbm)M].Q_2G/2WD8cB[IkC8&me8E'ãU"B_N'3NHea+<0ZTF-EkT-vJ,HQ3g(dfY?p8m*f9Ipqd'/hdPob*PB(.^oNok'7K%ãU"87^S':#u#B)&AV$]m;^bfq(O8oorWENKhE%RG1^*/WYIf/mnAD>izA2cVi[rbC#ãU"BKB\Ayjt5S\&lU$IO\&b&/Nv6d+V?RxN(hvBI_)jYa6&>cDd0w$Yu[&M?_3(bQ)ãU"4gECUoC-N%ig3JsOk8>FV?HT1jHyWH*3AQZ]x]K\8k_0k>D[J*#1>tu3Q,67vGtãU"]0[\Yim.roO%a^QKx?>[(\11;/qJJN1dW#])UCErW?Y/8V:LW>ãU"DxWPVtRFgscm74Z(pVLRB)5yN0tOYefuL9fw-.2'Qz,.Q+GTS.tv&pMN>$5&,7RSJeGV,PU%,q?;^mTs*AirucPMYISOUR>)GYJaãU"YW60Ba)V*Aq^p(N(sxr?1i?JcqbG\h&de]Z6aX<>VJA3]^T>94*#cG'pf#T?PGWãU"(l0ug1ngsuDrQ0(Gq=MX^gtwT7r7$xRWRCmJ(qXxK[;%Y]nP=Xu1QGiQ3u\zKk(ãU"tN4vj<=2QV>qrB&jX3?UUX7\JHj:H?N0;mFT7F>;Ms53*3>5'FsHT6%W=X\47VnãU"oZ4R'nb)bfPdL-=ccrb]0KUo0g?V_ctg$h+Y,f8>+\GuQFw]tFh4lK.u+Q(ZfoFãU".p9<^m4>?h[P?-bDIIeXH3bx/$YallO6O]d9UP3_P(*/?ZDOkGWYrklA(ãU"OP)u7S:[CUr-'aqKT[KfE7TCHuKGTg%6T[eQyo,F7lwOR/wLOO_laPkejAj&A&%ãU"u%p&'9%%9%%%%-%1#UdEzV5$k>%(%%a%.%%1%%%%%%%%%&%%E%%%%%%%%%xyf%wãU"knj%qSgf%xup&%'9%9%%%%-+%lhk1Elhq(q9)%%%L5%%%.%%%%%%%%%&%E#%%%hãU"%(%%x#yfw)%Sgfx%up&'%9%9%%%%-%'JhkE&6Iq&&m&%%%Q)%%%/%%%%%%%%%%%ãU"E%%%%O-%%%gt%zshj%Sgfx%up&'%9%9%%%%-%'NhkEtM9Mr&C&%%%)(%%%.%%%%ãU"%%%%%&%E%7%%i.%%%xu.wf(S%gfxu%p&'9%%9%%%%-%\#ikE,hVe21[%%%V%%%%ãU"+%%%%%%%%%&%%E%%(%Z0%%%wjf%irju%p*+%%%%%*%%*%9#&%%6%1%%%%%ãEND SUBãCLOSE:IF S=230AND 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ãUnknown Author(s) 3D SPACE SHUTTLE comp.lang.basic.misc Unknown Date QB, QBasic, PDS 116 4382 SHUTTLE.BAS '> Years ago, there was a 3-d space-shuttle .BAS file on the local (dfw texas)ã'> bbs's that would draw a wire-frame shuttle in whatever angles you typed inã'> at a prompt. Anyone know where I could get it nowdays?ãã10 KEY OFFã20 X=0:Y=0:Z=0:X3=0:Y3=0:Z3=0:AM=0:BM=0:CM=0:DM=0:EM=0:FM=0:GM=0:HM=0:IM=0:D=0:P=0:B=0:H=0:U=0:V=0:U1=0:V1=0ã30 DIM V(300,3),E(300)ã40 CLSã50 READ NVã60 FOR P=1 TO NVã70 READ V(P,1),V(P,2),V(P,3)ã80 V(P,1) = .12 * V(P,1)ã90 V(P,2) = .12 * V(P,2)ã100 V(P,3) = .12 * V(P,3)ã110 NEXT Pã120 READ NEã130 FOR E=1 TO NEã140 READ E(E)ã150 NEXT Eã160 SCREEN 2ã170 D=120ã180 LOCATE 1,1ã190 INPUT"INPUT ANY 3 ANGLES (X,Y,Z)"; P0,P1,P2ã210 CLSã220 P=6.28 * P0 / 255 - 3.1416ã230 B=6.28 * P2 / 255ã240 H=6.28 * P1 / 255ã250 GOSUB 390ã260 XV = -D * CP * SH: REM ---SEE SUB.---ã270 YV = -D * CP * CHã280 ZV = -D * SPã290 REM ---PROJECT NE POINTS---ã300 FOR E=1 TO NEã310 X = V( ABS ( E ( E ) ), 1 )ã320 Y = V( ABS ( E ( E ) ), 2 )ã330 Z = V( ABS ( E ( E ) ), 3 )ã340 GOSUB 520ã350 IF E(E)>0 THEN LINE (U1*2+75,V1+20)-(U*2+75,V+20)ã360 U1 = U: V1 = Vã370 NEXT Eã380 GOTO 190ã390 CH = COS (H): SH = SIN (H)ã400 CP = COS (P): SP = SIN (P)ã410 CB = COS (B): SB = SIN (B)ã420 AM = CB * CH - SH * SP * SBã430 BM = -CB * SH - SP * CH * SBã440 CM = CP * SBã450 DM = SH * CPã460 EM = CP * CHã470 FM = SPã480 GM = -CH * SB - SH * SP * CBã490 HM = SH * SB - SP * CH * CBã500 IM = CP * CBã510 RETURNã520 X = X - XVã530 Y = Y - YVã540 Z = Z - ZVã550 X3 = AM * X + BM * Y + CM * Zã560 Y3 = DM * X + EM * Y + FM * Zã570 Z3 = GM * X + HM * Y + IM * Zã580 U = 135 + 13.5 * D * X3 / Y3ã590 V = 80 - 11.5 * D * Z3 / Y3ã600 RETURNã610 DATA 124ã620 DATA 0,-2.2,46,1.5,-2.6,46,2.2,-4.6,46,1.7,-6.5,46,0,-6.7,46ã630 DATA -1.7,-6.5,46,-2.2,-4.6,46,-1.5,-2.6,46ã640 DATA 0,-.8,43,2.8,-1.5,43,4,-4.5,43,3,-7.2,43,0,-8,43,-3,-7.2,43ã650 DATA -4,-4.5,43,-2.8,-1.5,43ã660 DATA 0,1.7,38,4.6,0,38,5.8,-4.4,38,4,-8.2,38,0,-9,38,-4,-8.2,38ã670 DATA -5.8,-4.4,38,-4.6,0,38ã680 DATA 0,4,32.5,4.5,1,32.5,5.8,-4.6,32.5,4,-9,32.5,0,-9.5,32.5,-4,-9,32.5ã690 DATA -5.8,-4.6,32.5,-4.5,1,32.5ã700 DATA 0,8,26.3,3.5,7,26.3,7.8,2,26.3,8,-7,26.3,0,-9.8,26.3,-8,-7,26.3ã710 DATA -7.8,2,26.3,-3.5,7,26.3ã720 DATA 0,8,21.5,3.8,7.5,21.5,8,3,21.5,8,-8,21.5,0,-9.8,21.5,-8,-8,21.5ã730 DATA -8,3,21.5,-3.8,7.5,21.5ã740 DATA 0,8,14,4.7,7,14,8,4,14,8,-8.7,14,0,-10,14,-8,-8.7,14,-8,4,14ã750 DATA -4.7,7,14ã760 DATA 0,8,4,4.7,7,4,8,4,4,8,-8.7,4,0,-10,4,-8,-8.7,4,-8,4,4ã770 DATA -4.7,7,4ã780 DATA 0,8,-12,4.7,7,-12,8,4,-12,8,-8.7,-12,0,-10,-12,-8,-8.7,-12,-8,4,-12ã790 DATA -4.7,7,-12ã800 DATA 0,8,-27.3,4.7,7,-27.3,8,4,-27.3,8,-8.7,-27.3,0,-10,-27.3,-8,-8.7,-27.3ã810 DATA -8,4,-27.3,-4.7,7,-27.3ã820 DATA 0,8,-35.6,4.7,7,-35.6,8,4,-35.6,8,-8.7,-35.6,0,-10,-35.6,-8,-8.7,-35.6ã830 DATA -8,4,-35.6,-4.7,7,-35.6ã840 DATA 0,9,-43,2,8.5,-43,8.8,1.5,-43,9,-10,-43,0,-10.8,-43,-9,-10,-43ã850 DATA -8.8,1.5,-43,-2,8.5,-43ã860 DATA 0,9.5,-48,2,9.3,-48,9.2,1.5,-48,10,-10,-48,0,-10.2,-48,-10,-10,-48ã870 DATA -9.2,1.5,-48,-2,9.3,-48ã875 DATA 8.7,-8.7,21,15,-8.7,-16,35,-10,-36,35,-10,-40ã876 DATA -8.7,-8.7,21,-15,-8.7,-16,-35,-10,-36,-35,-10,-40ã877 DATA 0,13,-37,0,33,-60,0,33,-69,0,14,-60ã878 DATA 6,11,-43,6,11,-48,11,5,-43,11,5,-48,-6,11,-43,-6,11,-48,-11,5,-43ã879 DATA -11,5,-48ã880 DATA 259ã890 DATA -1,2,3,4,5,6,7,8,1,-9,10,11,12,13,14,15,16,9,-17,18,19,20,21,22,23,24,17ã900 DATA -25,26,27,28,29,30,31,32,25,-33,34,35,36,37,38,39,40,33ã910 DATA -41,42,43,44,45,46,47,48,41,-49,50,51,52,53,54,55,56,49ã920 DATA -57,58,59,60,61,62,63,64,57,-65,66,67,68,69,70,71,72,65ã930 DATA -73,74,75,76,77,78,79,80,73,-81,82,83,84,85,86,87,88,81ã940 DATA -89,90,91,92,93,94,95,96,89,-97,98,99,100,101,102,103,104,97ã950 DATA -1,9,17,25,33,41,49,57,65,73,81,89,97ã960 DATA -2,10,18,26,34,42,50,58,66,74,82,90,98ã970 DATA -3,11,19,27,35,43,51,59,67,75,83,91,99ã980 DATA -4,12,20,28,36,44,52,60,68,76,84,92,100ã990 DATA -5,13,21,29,37,45,53,61,69,77,85,93,101ã1000 DATA -6,14,22,30,38,46,54,62,70,78,86,94,102ã1010 DATA -7,15,23,31,39,47,55,63,71,79,87,95,103ã1020 DATA -8,16,24,32,40,48,56,64,72,80,88,96,104ã1030 DATA -44,105,106,107,108,92ã1040 DATA -46,109,110,111,112,94ã1050 DATA -81,113,114,115,116,89ã1060 DATA -82,117,118,-83,119,120ã1070 DATA -87,121,122,-88,123,124ã1080 DATA -117,119,-121,123,-118,120,-122,124ãRich Geldreich GIF DECOMPRESSOR QBTIPS_H.DOC 09-13-92 (01:08) QB, PDS 279 18404 DECGIF.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"DECGIF.ZIP",4^6:Z&=13541:?STRING$(50,177);ãU"%up()%9%%%#-%Ju#&>$.=V(-&7%%J'%%%/%%%%wj%firj.Sy'yDdar>BSe5UU0-*Gblvm>Z8heaai6znb0^B8-lE$XV-:eT2ãU"R:sjt6mWi^HK,WTOU7L^IoeãU"wH=7jTgjXU8U.'XD(oY_tebYHI9_Qt%k4i%=iIqKuO3hsaog9jgEMXavl-q4qVYãU"f$AeB^'F5yBGVU#;'=Uljd1:Yw7c?6%_Q]DWkM]d#%vXJ4G>FSwHDKB[ckp$]%Nae,A8(Vy5l-Mi'67JãU"x[WI4d#z50=l[q4*bC[5pK&^cN=vP)m)2cFC.8FY'xvvX=jct5pvA,dJ]([URYJãU"4A##I*,0&[^[*,St^(.%%e,%%%0%ãU"%%%zx%jiln%kSgfFx&y,,>[]9YL(=N1]R_-+HaKehgehg^OSe,aoL3I43e*%%4iãU"JVgok8rQpd^cg)udok0FVfYkd\bl\d*xruN/CFjvX59TU>cDpjIWB)K6\Cxe)[>ãU"sQK<(UYQJh/*Q*X$[qYOktSsJ8m2s0RWp>102AN2x+UM.p>e)RGQU$:ZMK)+vi?ãU"k2(SCt6Asb1%BAU.h&*[B)=l5VsW'(T:'a):=D)E[fbD+QeAlq-DXfI31)k<:WeãU"Ev2K]NZKfMZCUF*BX0JgWt;W5rRY_s[I)ghE7;Tx#sdHWJJy?nmdkVz:o))&.qSãU"P1a[+eN+znat^gE5;Hi]&gc3UuhmmP$gd3&.v%rlrXm2p[ca?%STpSwcO=xM3=cãU"*]+$en8MBiSjgU=1j^[gtr2Z?3FrtUUBH6)I,*=gbcPGA$o%s4%3AjB#Q&+:=DRWyAP4805-nJ;$'m,OuM.J6:Y4o1G^Rhbocnit$b?7L>V$s3Y+xZ$.TãU"=T$[7,6rs0N()S9OIyTZ+W;u[WN-YXc%)_rpe768=zzWE=2G3'fB_cwiiApBNx-ãU"nNOG1XiRlvi*DY0p^-+wO\5BXTk.uUJF0MPX$$1x6O8ll)PzHv<&;G]X.oT?JdgãU"ku_C7ud::U/rhFZr8uTA%bqES03hW.)D_7ãU"++KXntDY.Q&U/KL,^MMkBf+sQ;D]+R//o>>T[aH/^Md:81M$%mjVP4]dl77:&SQw],L$Ra=]#nmNk5%ãU";%%%%?%%%%0%%%%zxji%lnkS%rfp0L2ED#WpCLBnA1_^2A#D+*+\FA%%up(%)9%ãU"%#%-%s,Ej=6=ku)Z%(%%=%/%%0%%%%w%jxhf%qjSfRxr&e9Jt\]=5?XPinNg0T6ãU"('9\J7'k&?9;5^LP5RhVd%tcYQheP*#];nvRxv'Ssh2[rxCGLwduhlr^jjt64RJãU"Tx$?r]e-;OS1zA&rAj;a0?.T;k=.P(j\PFp$0Nt'm;^=A2z&G;,c6YrFãU"9q]k#iiSyS)GM18\7%Itet)8(e8Mudo0m5H[;_XK/r7.Lchnl8]lp1/XA^CXYlBãU"HUjs8H&9/NM%al^]UC,tVp^e\JKF7dN&;Y*dF[HF*HujL+6rH2xpb8(To;H'k#[ãU"4\I.R\F)e%6Qp&M]ãU"Ah*POtXw0_;3XY#$'\HC'rNPhjxpRXbs%tY,V.6KMUt%ãU"(XU/n7l8R)9KN8?1[&:(;/gf:f]bzgc/xwm%T\(E1*fhp)[So3Oq0lY7tJ**PfuãU"%SB7Mqcz=imA]4i1em8[4l2HO6*T%2,cV<+*[J\gUvx[ZzB'di&UearHaw$kA[6ãU"BQzn3A:$PIQuI(Q*-%m2-Y-Rc.HR^$$3?ngN6qj4iU&C$A[]&AAOA'j.?1%igMUãU"u#ihCL9G,Zir=Ab(MLW=LcR8z[J?(K0J,+%4MPq=g&WXM/DD&+e#eFmoP)Mm_M1ãU"BQM:6E0>H$dnRYV.;(f,flN1V[3Gii[B,B:6Pd:Ry2^X']lQ\]rUa$QpgZT#w$lãU"o.eu'7gLe8j'VADQmc)s[]LBIMPJ**+lSHp<^X*mR2<;%[Jyq*ya-/RfG]ab[UlãU",#A\a8yPm#t#\iLUr-%tk;'-<*>R,1IZk1J\Hk9p7x?A[l\YZNbx[IhH5s+0c\uãU"%p()9%%%%-%%>G+4>t1\'v%(%+%-.%%%0%%%%xmt&&wlg%SfxrT&zX>AjU5MY^=ãU"x?3H,e&Y8,-H3B^tv2u5xgdZrisF%q-w:+6QIufwsRC5Q031xz(oq;K$hNtK6nmãU"llJ*mq]#QSrTY3,-CW6XJAZe5ti4ce*Q>tZ6b=P6]LKVZb^wvpdãU"rL,eV(r,FIawr*,1)Na]*p^tVJ2H7a?r%+sA37RtrFsO,#<=,Db_-p9,Ji&&+d^ãU"68jEDaQtV04$1\V76r4NZfX+GB?MpHGB6^c_Ex=mGuT,^i2QcrWCAK&63W6aXy6ãU"0RfO[)2dt-+1Bw8)xU#2()341JMiOEPh2igS()^Oi2=q#VHts1^NAiKO^B3u4+<ãU"7ii#F.d7hMKh=M)T%MstSU;&mlgr.y9)'u;ãU"7t,NY+Y\#O=qt]N0p:g&9Qcj*sqWi_SD$z*qP\,NUpXve8=rx^>gQ:o9=STmt_8ãU"uJgufk(GRvO?zH0BDk]:?O%MP]tf+dLWr3,%hk/FMY8gj'M31mcY<=])mn&MkAiãU"Zmc6)OCX&XOz(#6Lp?(eXaS/qJLrrurQDVCbp%N>Z,k'yBKwy[]GaF4S&t6k.U_ãU"N%%up()%9%%%R-%Ktd&>Q3-kp4+%%%QB%%%.%.%%&u(n'WS[fxrfk(V>T.]1N4PãU"_xPJi2<,'n?cs*KoJ(fm+RO'27Y,40>C;p2x\bRu<+T-GNvnAY;L/kpY,h^RU(&ãU"ijD8>+ãU"t',+XCmqoNxxl0$&efR.asXd,\br#*a1EIRp\9P]d+A9;fI);gMZ0GWuJ4d';A:ãU"*=rUA5'DPJ?xooF?8T^jHM5ViGTkG8/CQqE7C$&5ãU"xfb4xpJ>[oH/ZK*fBKheA8m'4PD0Bq8krhJibPUV6GU\N42.&WTwãU"lq;Z^]hZMTYT[UQx$8=5VQ3)rzjIQn#;ATRxx>/JUlr*3lDcsvGGnrAHMKX\l=]ãU"+89hw6aF4?F%3W9c'XzEl.pZf>S\Tq'&CqcMKS*Ou8Z+-l45]^M.NsmTs(r6T:FãU"ej9qoSzFO-8khws,iMV;^q[C-iH)Hx%G+eqeueCYvT0DC'8uD+5_kgGV^u3R=h*ãU":l5l4smxd-qRA<29kWH<[N+KMmPPWMa0/1=us^Pt[IqUG2>]Y]'.F>r;5NHnRmXãU"h;+#-/[.I[T&*:FU3mOh:HA3j9;r=44u6$WjH1*kFNãU"G5\VaJ&]U)uX(]^WpZpMeR1Hw,MAcXsxMp]2pe1?v9%Zr;_,\Ic9:#GT5h;[/-=ãU"D?vw6tbqe]CvrJ(,j7p9>=;V.QcZM<1J]VhP;LdR5VYGN;P+X0,gK+pa73:p5daãU"<_b$FH#:gH**7vnVQ7Yk[UWN%Vjurjog*&rvP:0&]AE:O^%g/#eejEãU"a5tJ6t.JF5daPx\[VkZ5'of8hK*QkeG$o[iFu<*[rK'#%#>uOoJU4p+3dZ'JiXLX9Slb3NM7WTcJG&6VGGaG^s]$]ãU"8w2o0q_;O0gCihweD:u,\X&U/hV9[ãU"MK1w/sC[DU(POfAãU"ydaY3c.B+MJ-4C[ZSY8+:lq>Om^Nnp8_XDVcYP^;2c'IAmhu*e*C<;OZj.ctIi0ãU"jbbV>a'2[HZ2b%>rA1Lc+nbr.goH+gq#t;mV:-'7/94-AJ(O3#^RyãU"jUn8p=RVWMBbg:LB%^yR4p:>'sBjz#i.^b(2^X[&0aOM60?3gz4F*n.NpU,zZ7rãU"sndT0/J<#k-F_F1u/yuhH-pU(\c9:b$.C-ZKm_$uv[/Ii&D$$iZB]CLXSk4ur4]ãU"Pq8WK4$=R&KVF*5(*T:>ektS&&o:bP4q.fB8sX^PmnvsDZC\k')\Dn1pluFeXOnh]nTãU"Y^U\Ln,bG44iH_VWl3-?E?c7U]^WPg[FG\ohz0,YkNuj#f/s4Z2P(qm?y:Acr'UãU"^6n*NN:Mm_'Jc'SG.TQXt_8=0HoLn#N^pH'x'up%()9%%%%-%;sEj=K)?w/%F'%ãU"%'%+%%%1%%%&'X[U&'Y]U%SfxrE&crZBTU5UTh+xV/0TTJF)Bskt3p+R8<8o5#-ãU"rNT*KRQNT*f/Qn3L4xi7al?:W%a,TNjkz26-\bmHdWxBX6+^Zp)MiLK(gg[?Y?X-RãU"VU'QOn^/z:Vo,Q_:yp>V(d4J]t6Kehkoc0BA6+jL)/HBq=%7o;)V#,6S/ehOq,jãU"43#4HTCX&W)%]gf^y*pARGj$VfV4#Fh-,^)rH7+*([86.+#2OD/&50OC;/*evGvãU"iWfA'dn-1*\+,4aB&zye$BQ>ua1GcT&s]/]^.u>Q<,Ub]5Kr=?eZ+6;8TiH6Gcf\8kq9r=0TIKm9yãU"SG_kaE:(O5%ZxqJSxj49ow/WO(_:qY]aA_6V*<]x>hBT-8wCcq5^EmT*+?G6PEdãU"lfdzX20t8s1t<2IqUMOhOgu3vJ,:oI&HHdc?3QL7DM3(nNDuM_Y7H\Ns[e;b>2nãU"Xkxd;fYxJ4dO>[4\<-$nJ75MMP-C&MRzXzhba,ncRw4E.>Dixr:UbceK)A8r0NBãU"_#\YIw?*?,UqGI;aGpT;ae8$N0I<(gMlIr^TQX)Za.l$*XZ$W-qT6Y&8i0tG.Q0ãU",pHWB]vJJ69*Q&nup(%)9%%%%-%'As&>gf.ZDo%%%%0%&%%0%%%%w%jxhf%qjStãU"dgo:YG4Y3Ag2EEm5#NB1Wo\c_26//-[NRoC)&?QSasFrC%nRwu%-pRO?GEHxaUKãU"XQoRFEY$iAnRIl.3L71BEe1vn8q%11>Ec_;NLeG='\(h+HgV'kv,V+vF/Y6ii12ãU"/15aL.e?#11#3&(6Ve7[11Q%>[uL]j=Q+U,Ruh(<36*UQ)v6Ytm9#9c9A3.s+a'ãU"a#3;+V(j[8<'qVUWgUSE8)0b00rh]\cZ'$cBk6c]\obS$c;Z6c3t2dG\l1qcrG,ãU"Pbr;>,xKYC*%AY6sMLssq,n]#7[f5BX>WYN-w)'mGcs8mbo9=,<5S,o4p%%up()ãU"%9%%%#-%'sR&>39-QNH&%%%d&%%%0%%%%xm(t&wl%gStgdor^H4p;/=N#nFJKNvãU"%RgSlAIMpjSl;Z;fzAfB//BDtT]/lMSOgo9,:(n(o^nv6AeI(jrb&.ãU"h79j&tA$##%]S[KA+;%w_LUWiOS7/](omZ)?4:ZJ;9.;qrl([e%*kCZ,Q$ãU"=km)a^g%>+:9mb=c,lT0rpCLg$3qP/d$DctjLR;+$p-N#[[D>)J.8REfDY7l4>0ãU"Gd&?&wh&3(ihP3'PLt1tVWIhUo>,J8?d%up()%9%%%#-%'s7&>O:3U.j'%%%*)%ãU"%%.%.%%&u(n'WS[tgo>)b>m8S#=#nZ4XfESmWf,a)_ei]^:+6;y?-dg/jNk-UMwãU"h%U9onA6Tj(HZklALg[w-Y7S4-&[6v0?:ROd#M\lT1oC=65=R4)S95%64xdT+Z6ãU"dqLsCgpv?jUlacX4#EJVa&D'eZn14qR=uKr6ãU"]9vc)/0qN[ife:1z4ePb.*ue<^o[3RX[wPJ4%i#qgA);'Q=\1;V5(ãU"Ei'4ho=9r7\JJ4eFN\oKh99:.q)rc*:GF7hZ6.LfcFH]Mq:nP/itqjMXOK$p=:+ãU"VFcf_p8<12KzZB)V^8mZ37S\Hh_kH]YãU"bj=K^]frL':^W7M-^9PjmRWGiH74Wi[wYjm]ksw]pSU$EH7[4#_gI9RU%G.NsqnãU"s_Q_R.?4Gxz5ULND2SuROz0v.qXCLs$;/mQ(W<]Bbgt<4iuãU"T)GE*l\Ye.N<^52BpL%AmyTprYIkYaFB%h-iSU6g[<0/S^h.NlWOWAW4^SU]$,WãU"%KX6;dVEE]H+EaD7EXAXW]\Eks>:8O'v0up%()9%%%%-%('s&>[D]8,V'Kf5\#,\fVJqmQJmf8::*^?]DbVxdtqo]oJ;=y#n;%%%fo%%%0%%%%ij%hlnãU"k%XSgfFxVa:AB?nahn#Sxgh]EG5OV7%VpV.eL[_S3-VBg0]Q;#l_to0JhvujdqVãU"3oPq.4O,I#I^6%Y80oY2ul>s,60nq0Gq(Y-Q82mu#'2.R;3WIt0;jQJI\%sUBhK/.i^5h1$IiAg)>VL]Px/-iIe;1L\i_K&KK1TBbH/JgnãU"d-_S#c^,8?8]42+d,cPx.FGR_sbhI:JFZpn?MbvV]QWX<8MZnsN(ZhukIs)V?8QãU"i&Ibo=xg$R.TDJMWov&]Vf4GLd.n]XStP?[:XD&r'Ew,(,.;Cs1$j\>7.]CHU?nãU"?#rY2q*NxD?#H+VBMYAq9P7mvmeWfãU"3ut&J*\Q6eH5N'HaU2phM0Yq$82G1AJViuldF^)n-cWPwiHjB[:Y)6B2W/kKkl9My[?ShCmUkvVãU"zWs+/N[qQi]LpWZ%>Cfc>L,+llbpj4m0U$JF>;lR_+-u3prWY8xIC]Qva/B]Qk3ãU"DRB;tuqU-T6Lr;*?bPCTV.j],oN9d)o.zRXu+8/#+ctRGSt2gT]>q#jyF-8Myw.ãU"d/Kg_fa;#5?P^1?5k05+'I?8eAFDKziTjjc[8G1;5gwq-dK;zNS=_8u)E<^gi(XãU"_XzS:ZTl[w,pLk0?f.+sVxT=QB=#_CV'F]nj&3/fI#G+E+ajVhJP6&q$.C(]DA/ãU"&MA-FmdOdnezf>q]rx4'bJ0HK?8naf7Af?K7F0a^Ut)^b10'0pP_JsãU"u4r&Vs9xfgH:&ãU"2(i1.Odj5;lVYD1pA98>>O&g5]B%;.iUZAItI--J61^xP/g>bKf54?Ms4Y*S#;,ãU"<<>_[&1pg_GUYv;gvQW\64AK5K2[8$ceS]US0DH%Ur.>ZKW'jP8IJeD%L8]-Ib7ãU"$7p;kQ9\UZ'2dcQK_$Q>,sU28&H?/[[S4XUZ\nCo*:(^+E$*293XAVP3A41-\4/ãU"AHrFU3ff1,b_r0hF\.#m1m[%OwS^b%AInT#^[_QZQS2+Y0K,W:fp>K&B3%W/7DeãU"/%2fXjb_70TbvIt\UCZ)1fO1aN:,=yXN]Dtn/^],11u#7)X6RD*DoK+kY:D;A=ZãU"]4.v96/C68gq&]qegd]7m^.nIrg#;&l6Kd-gyV?SwiSD\Y8Ni>kWeSRG?DbC#I8ãU";_02\w][F/A;UPfi(+3mYlfVCb<*sI0gJS9'scg<7rDHu,]XQq1Xm.>-mu-'GZ?ãU"F5)df[j+PbY43_#70u$]W^G[M,W#/CD]h(t+U%fJY&cjF_5Z-aA('7WAeq]()d5ãU"u%>F''w+>hAUI1kdL0sw;>%Ki?,_Lgrt(S6>:)ECW)[axN_Sau\pHMOA&)Z7,.ieãU"BS4MuQ_Ru_NWFo3jCL.hX>&fY+DEbQ7YnS+(Terkve,AVI*\=be;tsTT?GuAT\WãU"%l)qC#PYn=s>LQ.4zi,TCDZgkCBv:dQ5/]1gu#C9s5>>d/bZl]A\HS&jl-.(6k>ãU"\f]:lK_k(9q+8h'])[vQ9oMg-/2tVy.+WR(\'_'2ZE+.iA'gme.0+XVQIF1?2A[a7hLp59il(EãU")lc(f:.^8[3tA\,Uvi*7cC&M4VQX'ihFWvLIa6RtOp/bXjsR#%GEG<;1z/2gAMOãU"8k#c)N5o9CE\slw9.Fr6uqk%:oosKZ,Ye*2r-f3=nHPk0Mm501wH)5Q\v28z\vDãU"jY2*^-=gDd(0kW#8IjL^OMcF)bSlW?Rkm#3_W>QKERTQh>_(viIZKjClun2%,yUãU"I#x2t\7We[FnZ8gX*CM$)Y2FdK4VZX,8fv?89%FqC7+DUgk0sFdWJn*^XW]p92T3jZ#^n?dYEzX6SWypmkco'[Vud;PNWXEVP/DãU"/E=oNg1>vV0Ga\[)HCNMjX:&v:'a2+g1c^?7.dOh9[ZãU"f.VFOf:=-1;:3(FPpt/4sX)HiFCZU6Gj??$/*i4qJQQTS0xt]:j?M/;*NãU"y&sn$XshpZSO0MpM?*UAmO;7HObi7EK$ThI:,as/2odNi]5&oF<3Lf4Uma#M(;;ãU"..Z)zP$4M8GTZUkUDnH'^C5_RlkY#GFWUZ4pQZnhO./yo[5B7fppIT>nLy+LJ9DãU"'n2QB#B*Xw1sVfBEatA4-Bhev9;5upF.*?2wAb;(FD'^39Ri1Z?L1W4)F(%Iet;ãU"i=ChLd-_^_(/SEeq1b=:MuYYk[LCVI30BA.Gm-m_ajK$ib$TN=i.29qzV1F-:7sãU"?Sd^s+7a)DqaoMyD\om1P4il^SO+^>v4Q=kFqbX*.&0:i+;$[-))wx70:oI4W:+ãU"(0W;1[q]?#C5Rf[5AEI\cW8sy*/t7hyTSiNEãU"PcUfhc-B$4v<(>q$t=8fuFO*LiL;Y9$JsiVRvofyJ'AtnNn$%a=#[-xCkY8?v1DãU"8[l#AM\T4+rKru5DYhmK=SX2VVpnT-2lH0',g3(H*pl/ALI*8-N-yo_rL>q00EtãU"Z=z:ãU":+J6[1tm1OK$BJYh-/uWMR$H)f=5YNq>l$,[B^)]%GZsm$H(Qd89iUkI&t>&[$CãU"+[3GJL8IYICPdz,Mx+c_.^S(Jomo(W)Y$Gdh9AxGM:HbO/O)NWJVtgKp3He^T05ãU"$8(5j9IMJ8N,exvP_qa#?=w44$MJQF83Qy2qDEr?sU)]28mf:\>CJvLPS9ãU"[3;N.ry%0VhJ&?Y+';AhIyw&Fbb5+t&pH'&2=AqNxpfsj7n6^MJV2US%i:Oyf_DãU"L^hC1R.a?B0UyWbF0iEp1wdv)8cqHjRlAjn&m0D3V0Bw.QC,.omAG^;FMK9B:0CãU"o_qe[&pWS+71a0;JPCuOSvopOr=Z6ec.).06i0:G.u0If6uNHV%'8%B[n'N+BN<ãU"E^s1/#?Aa75h=&1;4uaPG9q[9agC4.QnPJMCKT4cbCN;[H&LD?Nmc+JBTmln=gbãU"48f2LQk-[m%;P^9GJ&Zj(__s>EF7G:Z]cc0'a#e_#Gm[]k21;%Md2=qt&jQb*1KãU"KBY\4CJb9DMA[0mGe*otk,j^\(,iB2bpi]CH,R+O:zVG+YU4;#R0&n^UIJvBN6QLmCv(e5Px]cg2+]C)Lj5V(CriJkãU"IR?GW'B8OH()X==l'IH?:YeO-QN41/.4f[lf7WãU"kCG?tf1bn3wzukuAu&1X7V0UpJ'CZgQjtZ;iaC#VncZF=-j59:[r%y44%]FJYDtãU"cb%B,>s1-C+g1RSkL+%OrD01ZNj-=&zXaOM/sXãU".Qmnw'+q$vWf_BP38Sd:rn0)w,.-ca4)W7pp*2+H7+*f'i:KDK_Ff5j'l;ãU"5ud(6:Tr.KhF2ue1vM((RPS058:O#g[Sb8OOy]tCO]/L7,zJ(0+(xua.q8H-NhSãU"2[#Ww?Zg.YJDUO]I3BFbWYGdK?,>NEbOJ]CWV?xCf]gA=3)%=._TFkr+R'c]S,8ãU"ZS/odZpQbnLVJ;9i0Vc;9],IJ+>7tG?.eD-,\OpdTt1#?H5g6ANEXGi5tp#R9W9ãU"_JxJpI'&FM0Y&fsQqg]fPj1P\sEFrviE^)Cl8_NbT_y7jS#$,q(Dd2vYVx26mS+ãU"BTGWr$a13btGat'\%qnywPq(MaC-yG6NmY&^n/]cV[ãU"ehPq4.Pyjl4%*llw7JvXbw.qLoNAP*b2tl(F=wqLR/%QGo<8WNqrEvnA.dq#hmLãU"/L1cpNM8hu\3vE/ke&$Q6[N:KLo&tH[fpNB:JdrQ^EvqVCxcP0%^d4Wrx-]?Q>(&B+kmxtUC0;JãU"dqIRC-;OSnn(duUg]<\.bRc9]PXqu(9'Jj59MUG8j(eIIv-[HJox*BL%Zxn2J#^ãU"S:C:wpC>s=7IX4q_G#5mUK0bDIElFNfn*KNXOVIMh]Ah+3LM^lCe&rNZ$^doA1=ãU"^tp3GLHjUQ_X9?b(5D$bZ*uCiirw%)Zr]e->l%ui,Jxl9^UR:d4t_3uu^H)nz*bãU".z/IW>^vZQco2AoT4.sBHrrX8$q.z#&A/_#fcdtkY^,SnXSwu/Zf$0dkM7&r;HAãU";V:WI7Mji+N(6olq[Wl,4P]Xu?s,#4ONf;yRwe9xbN<mH?6vsdz*Ppapj0PuA\w0sudKFO'sIwnF3Yx*x[Svhe^x%ãU"424Vb8E+a80wgCwfqd&uQ8u?XK7hqZF/7oaZSFGM:BycCA8;x?a(q*8cChm*_2jãU"CBdx\Lf21[nIfO/,hdI,DpqeZ5Y6jZgc:ndW.cPaev%tQ9Tp=Q35BNp/$u+VC*nãU"g-KN+5E%*##s>K41#G8:0&\=:c7f_VxTvNSM]S(OL'v6-eRnP\t1OJTLfpnZ9MhãU"1c#2P3HZuy,*HDS^&7SoL;zj_z;f^VSHp[5rãU"2;RF3$j>n-J+oKgsX_CzrE(+e3H8BND6(iZqZVSntI3'x$.=V(-&7%%J'%%%/%%%%%%%%%&%%E%%%%%%%%%wjfi%rjSy&'yup%&'9%%9%ãU"%%#-%lwd&>[*,St^(.%%e,%%%0%%%%%%%%%&%%E%%%'U&%%%zxji%lnkS%gfxu%ãU"p&'9%%9%%%%-%lAw&>m=Nk5;%%%%?%%%%0%%%%%%%%%&%%E%%%%c*%%%zxj%ilnãU"k%Srfp%up&'%9%9%%%%-%;sEj=m6ku)%Z(%%%=/%%%0%%%%%%%%%&%E%.%%L*%%ãU"%wj%xhfq%jSfx%rup&%'9%9%%%%-%%>G+4>t1\'v%(%+%-.%%%0%%%%%%%%%&%EãU"[%%%T%-%%x.mt&w%lgSf%xrup%&'9%%9%%%R-%Ktd&>Q3-kp4+%%%QB%%%.%%%%ãU"%%%%%&%%E%%%%)1%%A&un'%WSfx%rup&%'9%9%%%%-g%sEjF=)?w&/F'%+%%+%%ãU"%1%%%%%%%%%&%E%%%%_#7%%'#X[U'%Y]US%fxru%p&'9%%9%%%%-%'As&>gf.ZDãU"o%%%%0%&%%0%%%%%%%%%&%%E%%(%T9%%%wjx%hfqj%Stgo%up&'%9%9%%%%-%('ãU"s&>r39QN%H&%%%d&%%%0%%%%%%%%%&%E%.%%s:%%%xm(t&wl%gStg%oup&%'9%9ãU"%%%%-.%'s&a>O:U).j'%%%*)%%%.%%%%%%%%%%%E[%%%i#;%%&.un'W%Stgo%upãU"&'%9%9%%%%-%('s&>[.%%'X.[U'Y%ãU"]USt%goup%&'9%%9%%%%-%?Fd+>J;=y#n;%%%fo%%%0%%%%%%%%%&%%E%%%%-#%ãU"%%ijhl%nkXS%gfxu%p*+%%%%%1#%1%x%'%%K%W%%%%%ãEND SUBãV2ãCLOSE:IF S=90AND 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ãDouglas Lusher PAN DEMO FidoNet QUIK_BAS Echo 02-09-96 (22:41) QB, QBasic, PDS 115 3372 PANDEMO.BAS '>I rechecked the horizontal scroll program I posted the other day andã'>it works fine here. But two people have told me they didn't getã'>anything. So since it is fairly small I'll repost it after thisã'>message. Maybe the code got scrambled along the way.ãã' I saw your code for scrolling and noticed that you wereã' having problems with unwanted lines on the bottom of theã' display. Well, here's some similar code that you and theã' others interested can play with that is apparently usingã' the same principles. Note that this code allows scrollingã' up and down as well as right and left. This is based on anã' idea I got quite a while ago from someone else in this echoã' - please understand that I have no good explanation as toã' *why* it works or exactly what is going on.ãã DECLARE SUB ColorShow (MaxX%, MaxY%, C%)ã DECLARE SUB PanVGA ()ã DEFINT A-Zãã Mode% = 13ãã SELECT CASE Mode%ã CASE 1ã Horz% = 320: Vert% = 200: Cullers% = 4ã CASE 2ã Horz% = 640: Vert% = 200: Cullers% = 2ã CASE 7ã Horz% = 320: Vert% = 200: Cullers% = 16ã CASE 8ã Horz% = 640: Vert% = 200: Cullers% = 16ã CASE 9ã Horz% = 640: Vert% = 350: Cullers% = 16ã CASE 11ã Horz% = 640: Vert% = 480: Cullers% = 2ã CASE 12ã Horz% = 640: Vert% = 480: Cullers% = 16ã CASE 13ã Horz% = 320: Vert% = 200: Cullers% = 256ã CASE ELSEã BEEP: PRINT "Bad screen mode:"; Mode%: ENDã END SELECTãã PRINT "Press a key to begin puting some graphics on the screen."ã PRINT "When you feel like it, press any key to stop creating"ã PRINT "graphics. You may then use the arrow keys to scroll"ã PRINT "the screen right and left and up and down. Press ESC"ã PRINT "to end the program."ã DO UNTIL LEN(INKEY$): LOOPãã SCREEN Mode%ã CALL ColorShow(Horz%, Vert%, Cullers%)ãã CALL PanVGAãã SCREEN 0: WIDTH 80ã ENDãã SUB ColorShow (MaxX%, MaxY%, C%)ãã 'time the system cpuã Start! = TIMERã FOR A = 1 TO 5000: Nul! = SQR(3): NEXTã Modifier! = (TIMER - Start!) / 2.5ã RANDOMIZE TIMERã DOã X% = RND * MaxX%: Y% = RND * MaxY%ã SELECT CASE RNDã CASE IS > .95ã FOR A = 1 TO 250 / Modifier!ã LINE (X%, Y%)-(RND * MaxX%, RND * MaxY%), RND * C%ã IF LEN(INKEY$) THEN EXIT SUBã NEXTã CASE IS > .5ã LINE (X%, Y%)-(RND * MaxX%, RND * MaxY%), RND * C%, BFã CASE ELSEã DO: Culler% = RND * C%: LOOP UNTIL Culler% <> POINT(X%, Y%)ã CIRCLE (X%, Y%), RND * (MaxY% \ 4), Culler%ã PAINT STEP(0, 0), Culler%ã END SELECTã IF LEN(INKEY$) THEN EXIT SUBã LOOPãã END SUBãã SUB PanVGAãã X% = 0: Y% = 0ã DOã DO WHILE LEN(INKEY$): LOOPã DO: KP$ = INKEY$: LOOP UNTIL LEN(KP$)ã KP% = ASC(KP$): IF KP% = 0 THEN KP% = -ASC(MID$(KP$, 2, 1))ã SELECT CASE KP%ã CASE 27ã EXIT DOã CASE 52, -75 'Four, LArrowã IF X% > 0 THEN X% = X% - 1ã CASE 54, -77 'Six, RArrowã IF X% < 255 THEN X% = X% + 1ã CASE 56, -72 'Eight, UpArrowã IF Y% > 0 THENã Y% = Y% - 1ã X% = X% + 16: IF X% >= 240 THEN X% = X% - 240ã END IFã CASE 50, -80 'Two, DnArrowã IF Y% < 64 THENã Y% = Y% + 1ã X% = X% - 16: IF X% <= 15 THEN X% = X% + 240ã END IFã END SELECTã 'here's where the scrolling takes place:ã OUT &H3D4, 12: OUT &H3D5, Y%ã OUT &H3D4, 13: OUT &H3D5, X%ã LOOPãã END SUBãChurl Beck YET ANOTHER STAR FIELD FidoNet QUIK_BAS Echo 02-04-96 (02:00) QB, QBasic, PDS 161 5555 YASF.BAS 'YASF.BAS: "Yet Another Star Field"ã'Written on 02-04-96 by Churl Beckã'Based on assembly source originally by Draeden (with thanks to Markã' Butler for posting it)ãã'Notes:ã' 1.) Use the "+" and "-" keys to accelerate and decelerate.ã' 2.) Certain speeds tend to cause an overflow error while in the QBã' environment. So either compile or don't test your luck w/the keys.ã' 3.) There are no built-in delays at this time. Make sure to adjustã' the code to suit your computer's speed.ã' 4.) For those of you with masochistic personalities, I left in theã' code for PALETTE USING. Just REM the OUTs and unREM the rest.ãããDEFINT A-ZããDECLARE SUB MakeStar ()ãDECLARE SUB DisplayStars ()ããCONST ScreenWidth = 320 'Screen widthãCONST ScreenHeight = 200 'Screen heightãCONST MinZpos = 2, MaxZpos = 4096 'Screen depthããCONST NumColors = 5 '# of Base colorsãCONST NumRnds = 400 '# of random numbers definedãCONST MaxStars = 190 'Maximum # of starsãCONST MaxWarp = 90 'Maximum speed of starsããTYPE Starã X AS INTEGERã Y AS INTEGERã Z AS INTEGERã OldX AS INTEGER 'Where to erase last dotã OldY AS INTEGERã Colr AS INTEGER 'BASE color.ãEND TYPEãDIM SHARED Star(1 TO MaxStars) AS Star 'Where all the data is heldãDIM SHARED WarpSpeed, NumActive, CIndex 'Make these publicããWarpSpeed = 20 'Speed of starsã'CIndex = 0 'Index into ColorChartã'NumActive = 0 '# of active starsããã'------------------------------------------------------------------------ãã SCREEN 13 'Set video mode 320x200x256ã 'DIM Pal&(0 TO 255) 'For PALETTE USING onlyã DIM Table(0 TO 17)ã Table(0) = 2: Table(3) = 2: Table(6) = 3ã Table(1) = 3: Table(4) = 2: Table(7) = 3ã Table(2) = 4: Table(5) = 4: Table(8) = 4ãã Table(9) = 3: Table(12) = 3: Table(15) = 2ã Table(10) = 2: Table(13) = 3: Table(16) = 4ã Table(11) = 4: Table(14) = 3: Table(17) = 3ããã OUT &H3C8, 1 'Begin at color #1ã FOR M = 0 TO 15 STEP 3ã FOR i = 15 TO 0 STEP -1ã OUT &H3C9, (Table(M) * i + 7) 'Redã OUT &H3C9, (Table(M + 1) * i + 7) 'Greenã OUT &H3C9, (Table(M + 2) * i + 7) 'Blueãã 'Colr = Colr + 1 'Next colorã 'Pal&(Colr) = 65536 * (Table(M + 2) * i + 3) 'Blueã 'Pal&(Colr) = Pal&(Colr) + 256 * (Table(M + 1) * i + 3) 'Greenã 'Pal&(Colr) = Pal&(Colr) + (Table(M) * i + 3) 'Redã NEXTã NEXTã 'FOR Colr = Colr TO 255 ã ' Pal&(Colr) = -1 '-1 = don't change this colorã 'NEXTã 'PALETTE USING Pal&ããDOã DOã CALL MakeStar '2 calls = twice the starsã CALL MakeStarãã CALL DisplayStarsã Ky$ = INKEY$ã LOOP UNTIL LEN(Ky$)ãã SELECT CASE ASC(Ky$)ã CASE 43 'ASC("+")ã IF WarpSpeed < MaxWarp THEN WarpSpeed = WarpSpeed + 1ã CASE 45 'ASC("-")ã IF WarpSpeed > 0 THEN WarpSpeed = WarpSpeed - 1ã CASE ELSEã EXIT DOã END SELECTãLOOPãSCREEN 0, 0, 0ããSUB DisplayStars STATIC 'Draws all of the starsãã FOR Num = 1 TO MaxStarsã IF Star(Num).Z <> 0 THEN 'Is this star alive?ã 'Erase the star from its previous coordinatesã PSET (Star(Num).OldX, Star(Num).OldY), 0ãã IF Star(Num).Z < MinZpos THENã Star(Num).Z = 0 'Kill this starã NumActive = NumActive - 1ã ELSEã 'Multiply by 256 and center it on the screenã Y = (Star(Num).Y * 256&) \ Star(Num).Z + (ScreenHeight \ 2)ãã IF Y >= ScreenHeight THENã Star(Num).Z = 1 'Star will get erased theã GOTO Continue ' next time throughã END IFã Star(Num).OldY = Y 'Save coordinateãã 'Multiply by 256 and center it on the screenã X = (Star(Num).X * 256&) \ Star(Num).Z + (ScreenWidth \ 2)ã IF X >= ScreenWidth THENã Star(Num).Z = 1 'Star will get erased theã GOTO Continue ' next time throughã END IFã Star(Num).OldX = X 'Save coordinateãã 'Calculate the colorã Colr = Star(Num).Colr + (Star(Num).Z \ 256)ã PSET (X, Y), Colrã 'Move the stars inward at WarpSpeedã Star(Num).Z = Star(Num).Z - WarpSpeedãã END IFã END IFãContinue:ã NEXTããEND SUBããSUB MakeStar STATIC 'Finds an available slot for a star & puts it thereãã IF NumActive < MaxStars THEN 'Search for 1st available slotãã FOR Num = 1 TO MaxStarsã IF Star(Num).Z = 0 THEN 'Is this slot empty?ãã 'Random starting coordinatesã Star(Num).Y = ((RND * NumRnds) - (NumRnds \ 2)) * 8ã Star(Num).X = ((RND * NumRnds) - (NumRnds \ 2)) * 8ãã Star(Num).Z = MaxZpos 'Reset Zpos to the maxã NumActive = NumActive + 1 'Increase the counterãã 'Increase the color counterã CIndex = (CIndex MOD NumColors) + 1ã Star(Num).Colr = 16 * CIndex 'Select a colorãã END IFã NEXTã END IFããEND SUBãTimothy Culberson VGA PAINT culberson@itchy.mis.nb.ca 04/95 (00:00) QB, PDS 392 8724 QBPAINT.BAS 'I know this code is extremely messy and makes absoloutely no sense to anyone,ã'But it was originally programmed for only myself. ããã'-----------------------------------Documentation starts here--------------ã'VGA Paintã'Byã'Timothy culbersonã'For QBasic programmersã'April, 1995ã'Complete documentationãã'Welcome Quick Basic programmer to the painting program made in Quick Basic.ãã'This Program will allow you to paint neat logos and graphics you can use withã'your BASIC programs using the Bsave and Bload commands in Basic. Actually, itã'won't allow you to do much of anything, but anyways...here it is.ãã'How does it work?ãã'The drawing screen:ã'This is where you'll be painting in. It is an area 150 pixels by 120 pixels.ãã'The NEW button:ã'This will clear the whole drawing screenãã'The QUIT button:ã'This quits the programãã'The COLOR button:ã'This changes the color. The color is shown along the palette bar at theã'bottom of the screen and the box outline at the bottom of the screen.ã'The left mouse button advances the color and the right mouse button decreasesã'the color along the palette bar.ãã'The SAVE button:ã'This button will save your waork with the extension .RADãã'The LOAD button:ã'This button will load a previously saved work with the extension .RADãã'The SQUARE button:ã'This button will change the size of the drawing square. The left mouseã'button will increase the size and the right mouse button will decrease theã'size. The size is shown at the bottom of the square.ããã'How to Bload your work in your Qbasic programs....the source code:ãã'Loading you program from memory is very easy.ã'1] Create a drawing in VgaPaintã'2] Place the source code into your QB program wherever you want it.ã'3] Watch the cool thing!ãã'Source Code: how is it done?ãã'SCREEN 13ã'^^^^^^^^^^^^^^^ã'This sets the graphic screen to 320/200 vga 256 colors.ãã'DIM cub(1 TO 9000)ã'DEF SEG = VARSEG(cub(1))ã'BLOAD "c:\qb\" + "R5" + ".RAD", VARPTR(cub(1))ã' ^^^^^^ ^^^--->filenameã' Path of fileã'DEF SEGã'^^^^^^^^^^^^ã'This will load it up.ã'PUT (80, 25), cub, PSETã'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ã'This line will put the graphic at desired X,Y coordinates.ããã'And that's it.ãã'E -mail:ã'culberson@mis.nb.caã'------------------------------Code starts here-------------------------------ãSTARTUP:ãDECLARE SUB ENDPROGRAM ()ãDECLARE SUB SAVE ()ãDECLARE SUB LOAD ()ãDECLARE SUB NEWSCREEN ()ãDECLARE SUB ARROW ()ãDECLARE SUB DRAWSCREEN ()ãREM $INCLUDE: 'QB.BI'ãDIM SHARED REGX AS RegTypeXãDIM SHARED COLãDIM SHARED RADãDIM SHARED RADI, SPDãCLSãSCREEN 13ãCALL DRAWSCREENãããYO:ããREGX.ax = 15ãCALL INTERRUPTX(&H33, REGX, REGX)ãREGX.cx = 16ãREGX.dx = 16ãCALL INTERRUPTX(&H33, REGX, REGX)ãREGX.ax = 1ãCALL INTERRUPTX(&H33, REGX, REGX)ãREGX.ax = 3ãCALL INTERRUPTX(&H33, REGX, REGX)ãA$ = INKEY$ãIF A$ = CHR$(27) THEN ENDãIF REGX.cx / 2 > 150 THEN GOTO ODAãIF REGX.dx > 120 THEN GOTO ODAããSQ:ãIF REGX.cx / 2 < 150 AND REGX.dx < 120 AND REGX.cx / 2 > 0 AND REGX.dx > 0 AND REGX.bx = 1 THENãLINE (REGX.cx / 2, REGX.dx)-(REGX.cx / 2 - SS, REGX.dx - SS), COL, BFãEND IFããCALL INTERRUPTX(&H33, REGX, REGX)ãGOTO YOããODA:ã'LINE (160, 0)-(220, 30), 32, BãIF REGX.cx / 2 > 160 AND REGX.dx > 0 AND REGX.cx / 2 < 220 AND REGX.dx < 30 AND REGX.bx = 1 THENãCOL = COL + 1ãCOLOR 15: PSET (COL, 194): CALL ARROW: COLOR 0: PSET (COL - 1, 194): CALL ARROWãIF COL > 255 THEN COL = 255ãFOR DELAY = 1 TO 600: NEXT DELAYãCOLOR COLãEND IFãã'LINE (160, 0)-(220, 30), 32, BãIF REGX.cx / 2 > 160 AND REGX.dx > 0 AND REGX.cx / 2 < 220 AND REGX.dx < 30 AND REGX.bx = 2 THENãCOL = COL - 1ãCOLOR 15: PSET (COL, 194): CALL ARROW: COLOR 0: PSET (COL + 1, 194): CALL ARROWãFOR DELAY = 1 TO 600: NEXT DELAYãIF COL < 0 THEN COL = 0ãCOLOR COLãEND IFãããã'NEW TOOLã'LINE (250, 0)-(285, 20), 32, BãIF REGX.cx / 2 > 160 AND REGX.dx > 25 AND REGX.cx / 2 < 220 AND REGX.dx < 45 AND REGX.bx = 1 THENãLINE (0, 0)-(150, 120), 0, BFãLINE (0, 0)-(150, 120), 15, BãEND IFãã'SAVE TOOLã'LINE (225, 25)-(285, 45), 32, BãIF REGX.cx / 2 > 225 AND REGX.dx > 25 AND REGX.cx / 2 < 285 AND REGX.dx < 45 AND REGX.bx = 1 THEN CALL SAVEãã'LOAD TOOLã'LINE (160, 50)-(220, 70), 32, BãIF REGX.cx / 2 > 160 AND REGX.dx > 50 AND REGX.cx / 2 < 220 AND REGX.dx < 70 AND REGX.bx = 1 THEN GOTO WHATINTHEHECKãã'SQUARE SIZE TOOLã'LINE (225, 50)-(285, 70), 32, BãIF REGX.cx / 2 > 225 AND REGX.dx > 50 AND REGX.cx / 2 < 285 AND REGX.dx < 70 AND REGX.bx = 1 THENãSS = SS + 1ãIF SS > 10 THEN SS = 10ãFOR DELAY = 1 TO 700: NEXT DELAYãEND IFããIF REGX.cx / 2 > 225 AND REGX.dx > 50 AND REGX.cx / 2 < 285 AND REGX.dx < 70 AND REGX.bx = 2 THENãSS = SS - 1ãIF SS < 1 THEN SS = 1ãFOR DELAY = 1 TO 700: NEXT DELAYã'LOCATE 10, 23: PRINT SSãEND IFãã'QUIT...ã'LINE (225, 0)-(285, 20), 32, BãIF REGX.cx / 2 > 225 AND REGX.dx > 0 AND REGX.cx / 2 < 285 AND REGX.dx < 20 AND REGX.bx = 1 THEN CALL ENDPROGRAMãã'color and SQUARE STATUS...ãLINE (250, 170)-(290, 190), COL, BãLOCATE 23, 33: COLOR 32: PRINT SSããHMM:ãCALL INTERRUPTX(&H33, REGX, REGX)ãGOTO YOãããWHATINTHEHECK:ãON ERROR GOTO fIxerITãDIM cub(1 TO 9000)ãDEF SEG = VARSEG(cub(1))ãLOCATE 17, 1ãINPUT "FILENAME(8 CHARACTERS MAX):", LOADER$ãIF LOADER$ = "" THEN GOTO PARTYBASHCRASHãBLOAD LOADER$ + ".RAD", VARPTR(cub(1))ãCONST badfilename = 53ãPUT (0, 0), cub, PSETãDEF SEGãPARTYBASHCRASH:ãLOCATE 17, 1: PRINT " "ãLINE (0, 0)-(150, 120), 15, BãfIxerIT:ãIF ERR = badfilename THENãLOCATE 17, 1: PRINT " "ãEND IFãGOTO HMMããSUB ARROWãDRAW "D2U3R1L2RU"ãEND SUBããSUB CIRCLESã'***************DRAWING AREA****************AND DRAWING TOOLãIF REGX.cx / 2 < 147 AND REGX.dx < 117 AND REGX.cx / 2 > 2 AND REGX.dx > 2 AND REGX.bx = 1 THENãCALL INTERRUPTX(&H33, REGX, REGX)ãCIRCLE (REGX.cx / 2 - RAD, REGX.dx - RAD), RADIãEND IFãEND SUBããSUB DRAWSCREENãLINE (0, 0)-(150, 120), 15, Bã'***************************PALLETTEãLOCATE 17, 1ãFOR X = 0 TO 255ãCOLOR XãPSET (X, 170)ãDRAW "D20"ãNEXT Xãã'***************************DRAW BUTTONS**************************************ã'COLOR BUTTONãLINE (160, 0)-(220, 20), 32, BãCOLOR 15ãLOCATE 2, 22: PRINT "COLOR"ãã'NEW BUTTONãLINE (160, 25)-(220, 45), 32, BãLOCATE 5, 23: PRINT "NEW"ããã'save button drawãLINE (225, 25)-(285, 45), 32, BãLOCATE 5, 31: PRINT "SAVE"ãã'LOAD IT!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ãLINE (160, 50)-(220, 70), 32, BãLOCATE 8, 23: PRINT "LOAD"ã'SQUARE SIZE BUTTON DRAWãLINE (225, 50)-(285, 70), 32, BãLOCATE 8, 30: PRINT "SQUARE"ãã'QUIT BUTTON DRAWãLINE (225, 0)-(285, 20), 32, BãLOCATE 2, 31: PRINT "QUIT"ããããEND SUBããSUB ENDPROGRAMãSCREEN 12: SCREEN 13ãFOR X = 1 TO 55ãPALETTE X, XãCOLOR XãPSET (X, 33)ãDRAW "D10"ãNEXT XããFOR X = 55 TO 1 STEP -1ãPALETTE X, XãCOLOR XãPSET (X + 50, 33)ãDRAW "D10"ãNEXT XããFOR X = 55 TO 1 STEP -1ãPALETTE X, XãCOLOR XãPSET (X + 100, 33)ãDRAW "D10"ãNEXT XããFOR X = 55 TO 1 STEP -1ãPALETTE X, XãCOLOR XãPSET (X + 150, 33)ãDRAW "D10"ãNEXT XããFOR X = 55 TO 1 STEP -1ãPALETTE X, XãCOLOR XãPSET (X + 200, 33)ãDRAW "D10"ãNEXT XããFOR X = 55 TO 1 STEP -1ãPALETTE X, XãCOLOR XãPSET (X + 250, 33)ãDRAW "D10"ãNEXT XããFOR X = 55 TO 1 STEP -1ãPALETTE X, XãCOLOR XãPSET (X + 300, 33)ãDRAW "D10"ãNEXT XãããFOR X = 1 TO 55ãPALETTE X, XãCOLOR XãPSET (X, 93)ãDRAW "D10"ãNEXT XããFOR X = 55 TO 1 STEP -1ãPALETTE X, XãCOLOR XãPSET (X + 50, 93)ãDRAW "D10"ãNEXT XããFOR X = 55 TO 1 STEP -1ãPALETTE X, XãCOLOR XãPSET (X + 100, 93)ãDRAW "D10"ãNEXT XããFOR X = 55 TO 1 STEP -1ãPALETTE X, XãCOLOR XãPSET (X + 150, 93)ãDRAW "D10"ãNEXT XããFOR X = 55 TO 1 STEP -1ãPALETTE X, XãCOLOR XãPSET (X + 200, 93)ãDRAW "D10"ãNEXT XããFOR X = 55 TO 1 STEP -1ãPALETTE X, XãCOLOR XãPSET (X + 250, 93)ãDRAW "D10"ãNEXT XããFOR X = 55 TO 1 STEP -1ãPALETTE X, XãCOLOR XãPSET (X + 300, 93)ãDRAW "D10"ãNEXT XããFOR X = 1 TO 55ãPALETTE X, X * 65536ãCOLOR XãLOCATE 10, 16: PRINT "Apoky!"ãNEXT XããFOR X = 55 TO 1 STEP -1ãPALETTE X, X * 256ãCOLOR XãLOCATE 10, 16: PRINT "Apoky!"ãNEXT XããSLEEP 10ããENDãEND SUBããSUB NEWSCREENãLINE (0, 0)-(150, 120), 0, BFãLINE (0, 0)-(150, 120), 15, BãEND SUBããSUB SAVEãDIM Cube(1 TO 9999)ãLOCATE 17, 1ãINPUT "FILENAME(8 CHARACTERS MAX):", SAVIT$ãIF SAVIT$ = "" THEN GOTO YEEEE:ãGET (0, 0)-(150, 120), CubeãDEF SEG = VARSEG(Cube(1))ãBSAVE SAVIT$ + ".RAD", VARPTR(Cube(1)), 25000ãDEF SEGãYEEEE:ãLOCATE 17, 1: PRINT " "ãLINE (0, 0)-(150, 120), 15, BãEND SUBããDave Navarro, Jr. PB PLASMA comp.lang.basic.misc 02-23-96 (20:23) PB 208 5563 PBPLASMA.BAS'PBPLASMA converted from Pascal by unknown CompuServe authorã'ã'Minor enhancements by Dave Navarro, Jr:ã' Integers are faster than bytes.ã' Integer divide (\) is faster than floating point divide (/).ã' I experimented with changing Rough! to fixed point BCD andã' got some really strange results when playing with FIXDIGITS.ãã$optimize speedã$float procedure 'use fast mathã$lib all off 'you don't need anyããdefint a-zããMax.x=319ãMax.y=199 'screen sizeãMax.color=255 'number of colors to useãRough!=2 'how "rough" you want the plasma to be.ããTYPE RGBTypeã R AS BYTEã G AS BYTEã B AS BYTEãEND TYPEããDIM PAL(512) as RGBTypeããSHARED Max.x, Max.y, Rough!, Max.color, pal()ããEXIT FAR AT FinishããIF ISFALSE IsVGA% THEN Print "No VGA found":ENDããrandomize timerããMode13SetããMakePalette 'build a smooth paletteããSet13pixel 0, 0, (rnd*Max.color)+1 'set the cornersãSet13pixel 0, Max.Y, (rnd*Max.color)+1ãSet13pixel Max.x, 0, (rnd*Max.color)+1ãSet13pixel Max.x, Max.Y, (rnd*Max.color)+1ãã'use Set13Pixel to plant "seed" pixels here, if wantedããt#=timerãSplitbox 0, 0, Max.x, Max.yãt#=timer-t#ããropal 'rotate the paletteããfinish:ã textmodeã clsã print t#ãendããããSUB Splitbox (x1, y1, x2, y2) 'this is the main subroutineã 'ã if (x2-x1<2) and (y2-y1<2) then exit subã if instat then exit far 'any key quits programã x=(x1+x2)\2ã y=(y1+y2)\2ã Newcolor x1, y1, x, y1, x2, y1ã Newcolor x2, y1, x2, y, x2, y2ã Newcolor x1, y2, x, y2, x2, y2ã Newcolor x1, y1, x1, y, x1, y2ã if get13pixel(x,y) = 0 thenã colour = ã(get13pixel(x1,y1)+get13pixel(x2,y1)+get13pixel(x2,y2)+get13pixel(x1,y2))\4ã if colour < 1 then colour = 1ã if colour > Max.color then colour = Max.colorã Set13pixel x, y, colourã end ifã Splitbox x1, y1, x, yã Splitbox x, y1, x2, yã Splitbox x, y, x2, y2ã Splitbox x1, y, x, y2ãEND SUBããSUB Newcolor (xa, ya, x, y, xb, yb) 'puts a new color based on ãaverageã 'of surrounding pixels plus aã 'random valueã if get13pixel(x,y) <> 0 then exit subã avg = Abs(xa-xb)+Abs(ya-yb)ã colour = (get13pixel(xa,ya)+get13pixel(xb,yb))\2 + ((rnd-0.5) * avg * ãrough!)ã if colour < 1 then colour = 1ã if colour > Max.color then colour = Max.colorã Set13Pixel x, y, colourãEND SUBããSUB Makepalette 'this builds a 255 smooth color paletteã 'note it does nothing with color 0ã 'I didn't want the boarder to change.ã 'this loads an array with 511 RGB values.ãã for c% = 1 to 63 'from red to yellow, start with oneã cn%=63-c%ã PAL(c%).R = 63ã PAL(c%).G = c%ã PAL(c%).B = 0ã next c%ã for c% = 0 to 63ã cn%=63-c%ã ci%=c%+64ã PAL(ci%).R = cn% 'yellow to blueã PAL(ci%).G = cn%ã PAL(ci%).B = c%ã next c?ã for c = 0 to 63ã cn%=63-c%ã ci%=c%+128ã PAL(ci%).R = 0ã PAL(ci%).G = cã PAL(ci%).B = 63 'blue to cyan(blue and green)ã next cã for c = 0 to 63ã cn%=63-c%ã ci%=c%+192ã PAL(ci%).R = c 'cyan to redã PAL(ci%).G = cn?ã PAL(ci%).B = cn?ã next c?ãã for c = 1 to Max.color 'copy array to second halfã col? = PAL(c).Rã PAL(c+Max.color).R = col?ã col? = PAL(c).Gã PAL(c+Max.color).G = col?ã col? = PAL(c).Bã PAL(c+Max.color).B = col?ã next cã for x = 1 to Max.color 'actual VGA palette setting codeã out &h3c8,x 'attribute from red to yellowã out &h3c9, PAL(x).R 'red?ã out &h3c9, PAL(x).G 'green?ã out &h3c9, PAL(x).B 'blue?ã next xãEND SUBããSUB RoPal 'this "rotates" the palette for animationã 'rather than moving the RGB data, I build twoã 'copies, and loop through both.ãdoãfor i = 0 to Max.colorã for x = 1 to Max.colorã if instat then exit far 'any key quits programã out &h3c8,x 'attributeã out &h3c9, PAL(x+i).R 'red?ã out &h3c9, PAL(x+i).G 'green?ã out &h3c9, PAL(x+i).B 'blue?ã next x?ãnext iãloop 'loop until quitãEND SUBããFUNCTION IsVGA% 'test for VGAã ' Function: returns VGA statusã IsVGA% = bit(pbvScrnCard,5)ãEND FUNCTIONããSUB Mode13Set 'set 320x200 256 color modeã ! mov ax,&h13ã ! int &h10ãEND SUBããSUB TextMode 'sets text mode, resets paletteã ! mov ax,3ã ! int &h10ãEND SUBãããSUB Set13Pixel (BYVAL X%, BYVAL Y%, BYVAL Colr%)ã 'fast pixel plotã ! mov ax,&hA000ã ! mov es,ax ;es = VGA graphics memoryã ! mov cx,X%ã ! mov dx,Y%ã ! mov al,Byte Ptr Colr%ã ! xchg dl,dh ;dx= y*256ã ! mov di,dxã ! shr di,1ã ! shr di,1 ;di=y*64ã ! add di,dx ;di=y*320ã ! add di,cx ;di=y*320+x, i.e. pixel addressã ! mov es:[di],al ;put pixel in VGA memoryãEND SUBããFUNCTION Get13Pixel% (BYVAL X%, BYVAL Y%)ã ! mov ax,&hA000ã ! mov es,ax ;es = VGA graphics memoryã ! mov cx,X%ã ! mov dx,Y%ã ! xchg dl,dh ;dx= y*256ã ! mov di,dxã ! shr di,1ã ! shr di,1 ;di=y*64ã ! add di,dx ;di=y*320ã ! add di,cx ;di=y*320+x, i.e. pixel addressã ! mov al,es:[di] ;get pixel from VGA memoryã ! xor ah, ahã ! mov FUNCTION,alãEND FUNCTIONãDouglas H. Lusher VERTICAL RETRACE ANIMATION FidoNet QUIK_BAS Echo 02-12-96 (00:00) QB, QBasic, PDS 119 3858 ANIMATE.BAS 'Demo of 16 color animation in SCREEN 13ã 'by Douglas H. Lusher, 02-12-1996ãã 'Here is one method of producing animation in SCREEN 13.ã 'Use color values of 0 - 15 for the object which you wishã 'to animate. In this demo, these values correspond to theã 'standard 16 text-mode VGA colors. You can, in fact, sub-ã 'stitute any colors you wish by placing them in the elementsã 'of the Culler&() array and eliminating the loop whereã 'the standard colors are read from the palette. Your sixteenã 'background colors will be: 0, 16, 32, 48, 64, ...240. Theseã 'values will produce the same colors as the value dividedã 'by 16. Thus you have the same 16 colors available for theã 'background as you do for your sprite.ãã DECLARE FUNCTION ImageSize% (X1%, Y1%, X2%, Y2%)ã DECLARE SUB GPrint (X%, Y%, Culler%, Text$)ãã DEFINT A-Zã SCREEN 13ã DIM Culler&(15)ãã 'get the palette values for the standard 16 colorsã FOR C% = 0 TO 15ã OUT &H3C7, C%ã R% = INP(&H3C9)ã G% = INP(&H3C9)ã B% = INP(&H3C9)ã Culler&(C%) = 65536 * B% + 256 * G% + R%ã NEXTãã 'specify the palette values needed for animationã FOR C% = 16 TO 255 STEP 16ã PALETTE C%, Culler&(C% \ 16)ã FOR X% = 1 TO 15ã PALETTE C% + X%, Culler&(X%)ã NEXTã NEXTãã 'create the object to animateã Bytes% = ImageSize%(0, 0, 15, 15)ã REDIM Object%(Bytes% \ 2)ã FOR X% = 0 TO 15ã LINE (3, X%)-(12, X%), X, BFã NEXTã GET (0, 0)-(15, 15), Object%ãã 'create a background.ã 'the numbers displayed are the color numbers to use for theã ' background colors.ã CLSã FOR X% = 0 TO 15ã LINE (X% * 20, 0)-((X% + 1) * 20 - 1, 199), X% * 16, BFã NEXTã FOR X% = 0 TO 15ã CALL GPrint(X% * 20, (X% MOD 2) * 8 + 1, 0, LTRIM$(STR$(X% * 16)))ã NEXTãã X% = 100: Y% = 100ã PUT (X%, Y%), Object%ãMainLoop:ã DO: IK$ = INKEY$: LOOP UNTIL LEN(IK$)ã IK% = ASC(IK$): IF IK% = 0 THEN IK% = -ASC(MID$(IK$, 2, 1))ã OldX% = X%: OldY% = Y%ã SELECT CASE IK%ã CASE 27 'ESC was pressedã SCREEN 0: WIDTH 80: ENDã CASE -71, 55 'Home or 7ã IF X% > 0 AND Y% > 0 THEN X% = X% - 1: Y% = Y% - 1ã CASE -72, 56 'Up arrow or 8ã IF Y% > 0 THEN Y% = Y% - 1ã CASE -73, 57 'Page up or 9ã IF X% < 304 AND Y% > 0 THEN X% = X% + 1: Y% = Y% - 1ã CASE -75, 52 'Left arrow or 4ã IF X% > 0 THEN X% = X% - 1ã CASE -77, 54 'Right arrow or 6ã IF X% < 304 THEN X% = X% + 1ã CASE -79, 49 'End or 1ã IF X% > 0 AND Y% < 184 THEN X% = X% - 1: Y% = Y% + 1ã CASE -80, 50 'Down arrow or 2ã IF Y < 184 THEN Y% = Y% + 1ã CASE -81, 51 'Page down or 3ã IF X% < 304 AND Y% < 184 THEN X% = X% + 1: Y% = Y% + 1ã CASE ELSEã BEEP: GOTO MainLoopã END SELECTã WAIT &H3DA, 8ã PUT (OldX, OldY), Object%ã PUT (X, Y), Object%ã GOTO MainLoopãã SUB GPrint (X%, Y%, Culler%, Text$)ã 'this routine allows printing text at any pixel locationã ' in the graphics modes without disturbing the backgroundã 'by Douglas H. Lusherã DEF SEG = &HFFA6 ' ROM segment for character shape tableã XX% = X%ã FOR Char% = 1 TO LEN(Text$)ã Addr% = 8 * ASC(MID$(Text$, Char%, 1)) + 14ã FOR Ln% = 0 TO 7ã LineFormat% = CVI(CHR$(0) + CHR$(PEEK(Addr% + Ln%)))ã YY% = Y% + Ln%ã LINE (XX%, YY%)-(XX% + 7, YY%), Culler%, , LineFormat%ã NEXTã XX% = XX% + 8ã NEXTã DEF SEGã END SUBãã FUNCTION ImageSize% (X1%, Y1%, X2%, Y2%)ã ' Width of the imageã X% = ABS(X2% - X1%) + 1ã ' Height of the imageã Y% = ABS(Y2% - Y1%) + 1ã ' Size of the image in bytes.ã ImageSize% = (((X% * 8) + 7) \ 8) * Y% + 4ã ' The above formula has been simplified for SCREEN 13ã END FUNCTIONããPeter Cooper SVGA IN BASIC comp.lang.basic.misc 02-25-96 (14:06) QB, PDS, VBDOS 80 2831 SVGA.BAS ' (or similar) was asking for code that would go intoã'800x600x256 col mode. People suggested tricking the card or going and gettingã'libraries (maybe shareware - which you have to pay for remember)ã'Well if you have no money then you need this code I just wrote. It goes intoã'800x600x256 col mode on most cards. It works in QuickBasic 4.5, VBDOS andã'PDS7.0+.1 . You should load it by going: QB /L or VBDOS /L or QBX /Lã'to enable interrupts. Then run this code:ãã'$INCLUDE: 'qbx.bi' 'change to QB.BI for QB4.5ããDIM SHARED inregs AS RegTypeãDIM SHARED outregs AS RegTypeããSCREEN 0ãCLSãCOLOR 15ãPRINT "SVGA in Basic by Peter Cooper"ãCOLOR 12ãPRINT "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"ãPRINT "I will not be held responsible for any malfunctions in this source. It has"ãPRINT "been tested on a Trident and a Vesa card. If it doesnt work then wait about"ãPRINT "10 seconds and then press SPACE. It should return to normal."ãPRINTãPRINT "If all of your text goes monochrome then please turn off the machine and"ãPRINT "restart."ãCOLOR 7ãPRINTãPRINT "1 - Trident card - 800x600x256cls"ãPRINT "2 - VESA(or unsure)- 800x600x16cls"ãPRINT "3 - Tseng - 800x600x256cls"ãPRINT "4 - ATI - 800x600x256cls"ãa$ = INPUT$(1)ãIF a$ < "1" OR a$ > "4" THEN SYSTEMãa% = VAL(a$)ãIF a% = 1 THEN m% = &H5EãIF a% = 2 THEN m% = &H6AãIF a% = 3 THEN m% = &H30ãIF a% = 4 THEN m% = &H63ãããinregs.ax = m% ' Set for screen modeãCALL Interrupt(&H10, inregs, outregs) ' Change modeãFOR y% = 1 TO 480 STEP 9 ' go down in intervalsã FOR x% = 1 TO 640 ' Go all-way cross screenã inregs.ax = &HC0D ' set up function+colorã inregs.bx = 1 ' select page 1ã inregs.cx = x% ' select x coordã inregs.dx = y% ' select y coordã CALL Interrupt(&H10, inregs, outregs)' set pixelã NEXT x%ãNEXT y%ããinregs.ax = &H200 ' This sets cursor posãinregs.bx = &H100ãinregs.dx = &H505ãCALL Interrupt(&H10, inregs, outregs) ' call interruptããinregs.ax = &HA48 ' this writes charsãinregs.bx = &H10Eãinregs.cx = 20ãCALL Interrupt(&H10, inregs, outregs) ' call interruptããa$ = INPUT$(1)ããinregs.ax = &H3 ' change back to text modeãCALL Interrupt(&H10, inregs, outregs) ' call interruptããCLSããSUB mousecommand (ax%, bx%, cx%, dx%)ãinregs.ax = ax%ãinregs.bx = bx%ãinregs.cx = cx%ãinregs.dx = dx%ãCALL Interrupt(&H33, inregs, outregs)ãax% = outregs.axãbx% = outregs.bxãcx% = outregs.cxãdx% = outregs.dxãEND SUBãEarl L. Montgomery 320X400 SCREEN MODE FidoNet QUIK_BAS Echo 02-23-96 (17:48) QB, QBasic, PDS 93 3408 320X400.BAS 'The following post is a program I wrote called 320X400.BAS. It demonstratesã'how to set up SCREEN 13 320X400X256 mode. It is bare bones. No save or loadã'routines, other than the routine that saves the screen prior to displaying theã'HELP menu.If you want to expand on this program please do so! Press H once theã'program is started for the HELP menu.ããsetmode:ã 'Sets SCREEN 13 to the 320X400X256 modeã SCREEN 13: DEF SEG = &HA000ã KEY(10) ONã ON KEY(10) GOSUB endofprogramã OUT &H3D4, 9: OUT &H3D5, &H40: OUT &H3D4, 20: OUT &H3D5, 0: OUT &H3D4, 23ã OUT &H3D5, &HE3: OUT &H3C4, 4: OUT &H3C5, &H6ã OUT &H3C4, 2: OUT &H3C5, 15: CLS : 'rem this clears (CLS) all 4 planesã IF flag$ = "restart" THEN GOTO loadtempã OUT &H3C4, 2: OUT &H3C5, 1ãbegin:ã position% = 15318: c = 15: plane% = 1: OUT &H3C4, 2: OUT &H3C5, 1ãrestart:ã flag$ = ""ã POKE position%, cãwaitkey1:ã i$ = INKEY$: IF i$ = "" THEN GOTO waitkey1ã i$ = UCASE$(i$)ã keycode% = CVI(i$ + CHR$(0))ã IF keycode% = 19712 THEN GOTO moverightã IF keycode% = 19200 THEN GOTO moveleftã IF keycode% = 18432 THEN GOTO moveupã IF keycode% = 20480 THEN GOTO movedownã IF i$ = "C" THEN GOTO changecolorã IF i$ = "H" THEN GOTO helpscreenã IF i$ = "X" THEN GOTO clearscreenã GOTO waitkey1ãmoveright:ã IF plane% = 1 THEN OUT &H3C4, 2: OUT &H3C5, 2: plane% = 2: GOTO pokescrnã IF plane% = 2 THEN OUT &H3C4, 2: OUT &H3C5, 4: plane% = 4: GOTO pokescrnã IF plane% = 4 THEN OUT &H3C4, 2: OUT &H3C5, 8: plane% = 8: GOTO pokescrnã IF plane% = 8 THEN OUT &H3C4, 2: OUT &H3C5, 1: plane% = 1: position% = position% + 1ãpokescrn: IF position% > 31999 THEN position% = 31999ã POKE position%, cã GOTO waitkey1ãmoveleft:ã IF plane% = 1 THEN OUT &H3C4, 2: OUT &H3C5, 8: plane% = 8: position% = position% - 1: GOTO doitã IF plane% = 2 THEN OUT &H3C4, 2: OUT &H3C5, 1: plane% = 1: GOTO doitã IF plane% = 4 THEN OUT &H3C4, 2: OUT &H3C5, 2: plane% = 2: GOTO doitã IF plane% = 8 THEN OUT &H3C4, 2: OUT &H3C5, 4: plane% = 4:ãdoit:ã IF position% < 0 THEN position% = 0ã POKE position%, cã GOTO waitkey1ãmoveup:ã position% = position% - 80ã IF position% < 0 THEN position% = position% + 80ã POKE position%, cã GOTO waitkey1ãmovedown:ã position% = position% + 80ã IF position% > 32000 THEN position% = position% - 80ã POKE position%, cã GOTO waitkey1ãchangecolor:ã c = c + 1ã IF c > 255 THEN c = 0ã POKE position%, cã GOTO waitkey1ã GOTO waitkey1ãhelpscreen:ã 'Saving screen before switching to SCREEN 9 and the HELP MENUã DEF SEG = &HA000ã OUT &H3CE, 4: OUT &H3CF, 0: BSAVE "temp1.bin", 0, 32000ã OUT &H3CE, 4: OUT &H3CF, 1: BSAVE "temp2.bin", 0, 32000ã OUT &H3CE, 4: OUT &H3CF, 2: BSAVE "temp3.bin", 0, 32000ã OUT &H3CE, 4: OUT &H3CF, 3: BSAVE "temp4.bin", 0, 32000ã SCREEN 9: CLSã PRINT "Key Function"ã PRINT "Use arrow keys to move cursor"ã PRINT "C Changes current color"ã PRINT "F10 Exit Program "ã PRINT "H Help (This Screen)"ãwaitkey2:ã i$ = INKEY$: IF i$ = "" THEN GOTO waitkey2ã CLS : flag$ = "restart": GOTO setmodeãloadtemp:ã OUT &H3C4, 2: OUT &H3C5, 1: BLOAD "temp1.bin"ã OUT &H3C4, 2: OUT &H3C5, 2: BLOAD "temp2.bin"ã OUT &H3C4, 2: OUT &H3C5, 4: BLOAD "temp3.bin"ã OUT &H3C4, 2: OUT &H3C5, 8: BLOAD "temp4.bin"ã GOTO restartãclearscreen:ã OUT &H3C4, 2: OUT &H3C5, 15: CLS : GOTO beginãendofprogram:ã SCREEN 0: CLS : DEF SEG : ENDããThomas Gohel SCROLLING OVER VGA-BIOS alt.lang.basic 03-03-96 (00:00) PB 84 2264 VGASCROL.BAS'**************************************************************************ã'ã' Scrolling Windows over VGA-BIOS in PowerBASIC 3.0/3.2ã'ã' entwickelt von / developed by : Thomas Gohelã'ã' Fido : Thomas Gohel@2:2410/301.12ã' InterNet: author@pbsound.snafu.deã' Homepage: http://www.snafu.de/~pbsound/ã'ã'**************************************************************************ããDIM Demo$(25)ãVordergrund% = 15ãHintergrund% = 1ãã'*** Erklärung ***ãSHARED Zol%, Sol%, Zur%, Sur%, Anzahl%, ScrollFarbe%ãã'Zol% = Zeile oben linksã'Sol% = Spalte oben linksã'Zur% = Zeile unten rechtsã'Sur% = Spalte unten rechtsã'Anzahl% = Anzahl der zu scrollenden Zeilenããã'*** String füllen ***ãDemo$(1) = "--------- Scrolling windows (over VGA-BIOS) (c) 1994 Thomas Gohel ----------"ãFOR i% = 2 TO 25ã Demo$(i%) = STRING$(80,65+i%)ãNEXT i%ãã'*** String auf Bildschirm ausgeben ***ãCOLOR VorderGrund%, Hintergrund%ãFOR i% = 1 TO 25ã LOCATE i%,1: PRINT Demo$(i%);ãNEXT i%ãã'*** jetzt wird gescrollt ****ããFOR i% = 1 TO 11ã DELAY 0.5ã ScrollFarbe% = Vordergrund% + (Hintergrund% * 16)ã ScrollingHoch 8, 10, 18, 35, 1, ScrollFarbe%ã ScrollingHerUnter 8, 47, 18, 72, 1, ScrollFarbe%ã LOCATE 18, 10: PRINT " --- Scrolling Hoch --- "ã LOCATE 8, 47: PRINT " -- Scrolling Herunter -- "ãNEXT i%ããENDããFUNCTION ScrollingHoch(BYVAL Zol%, BYVAL Sol%, BYVAL Zur%, BYVAL Sur%, BYVAL Anzahl%, BYVAL ScrollFarbe%)ãã ! mov ah, &h06ã ! mov al, Anzahl%ã ! mov bh, ScrollFarbe%ã ! mov ch, Zol%ã ! dec chã ! mov cl, Sol%ã ! dec clã ! mov dh, Zur%ã ! dec dhã ! mov dl, Sur%ã ! dec dlã ! int &h10ããEND FUNCTIONããFUNCTION ScrollingHerunter(BYVAL Zol%, BYVAL Sol%, BYVAL Zur%, BYVAL Sur%, BYVAL Anzahl%, ByVal ScrollFarbe%)ãã ! mov ah, &h07ã ! mov al, Anzahl%ã ! mov bh, ScrollFarbe%ã ! mov ch, Zol%ã ! dec chã ! mov cl, Sol%ã ! dec clã ! mov dh, Zur%ã ! dec dhã ! mov dl, Sur%ã ! dec dlã ! int &h10ããEND FUNCTIONãChad Beck PAC-MAN SCREEN SAVER Kevin Smith 03-02-96 (00:00) QB, QBasic, PDS 215 5578 PACSAVE.BAS ' > Here's...my PacMan Screen Saver....ãã' I love it!ãã' > Anyone have any suggestions as to how I could make it any better?ãã' Yep. This could still be much improved, but it's a start (>15Kã'smaller than the original). Hopefully you'll find it easier to read andã'modify too. Enjoy!ãã' ******************************************************************ã' ** KEVIN SMITH ******** PACMAN.BAS ********* JAN 14, 1996 **ã' ******************************************************************ã' ** PURPOSE: TO CREATE A PAC-MAN SCREEN SAVER THAT WILL GO IN **ã' ** ALL FOUR DIRECTIONS INSTEAD OF ONLY ONE USING **ã' ** DATA FILES INSTEAD OF REDRAWING ALL THE GRAPHICS **ã' ** EACH TIME THE PROGRAM IS RUN. **ã' ******************************************************************ã' Optimized by CHuRL 3-2-96ããDEFINT A-Z 'Use integers onlyããCONST ArraySize = 242, NumGraphics = 21ãCONST Delay = 700 'Set the delay onceãCONST True = -1, False = NOT TrueãDIM Graphic(0 TO ArraySize * NumGraphics)ããSCREEN 7ãCLSãRANDOMIZE TIMERãã'GOSUB MakeData '!!!ããDEF SEG = VARSEG(Graphic(0))ãON ERROR GOTO MakeDataã BLOAD "Pacman.DAT", VARPTR(Graphic(0))ãON ERROR GOTO 0 'I promise it won't crashã ' from here on...ãDirection = 1ãX = 160ãY = 100ãDOã IF Turns > NumTurns THENã Turns = 0ã Direction = INT(RND * 4)ã NumTurns = INT(RND * 7) + 2ã END IFã SELECT CASE Directionã CASE 0: GOSUB Rightã CASE 1: GOSUB Leftã CASE 2: GOSUB Down: Y = 199 - Y - 19ã CASE ELSE: GOSUB Upã END SELECTã Turns = Turns + 1ãLOOP UNTIL INKEY$ = CHR$(27) 'Continue until ESC pressedãSCREEN 0ãWIDTH 80ãENDããRight:ã FOR Frame = 0 TO 6ã PUT (X, Y), Graphic(Frame * ArraySize), PSETã FOR Stall = 0 TO Delay: NEXTã IF X < 295 THEN X = X + 1ã NEXTã FOR Frame = 6 TO 0 STEP -1ã PUT (X, Y), Graphic(Frame * ArraySize), PSETã FOR Stall = 0 TO Delay: NEXTã IF X < 295 THEN X = X + 1ã NEXTã IF X = 295 THEN NumTurns = 0ã RETURNããLeft:ã FOR Frame = 7 TO 13ã PUT (X, Y), Graphic(Frame * ArraySize), PSETã FOR Stall = 0 TO Delay: NEXTã IF X > 0 THEN X = X - 1ã NEXTã FOR Frame = 13 TO 7 STEP -1ã PUT (X, Y), Graphic(Frame * ArraySize), PSETã FOR Stall = 0 TO Delay: NEXTã IF X > 0 THEN X = X - 1ã NEXTã IF X = 0 THEN NumTurns = 0ã RETURNããDown:ã Y = 199 - Y - 19 '19 = graphic heightã WINDOW (0, 0)-(319, 199) 'Inverse coordinatesãUp:ã FOR Frame = 14 TO 20ã PUT (X, Y), Graphic(Frame * ArraySize), PSETã FOR Stall = 0 TO Delay: NEXTã IF Y > 0 THEN Y = Y - 1ã NEXTã FOR Frame = 20 TO 14 STEP -1ã PUT (X, Y), Graphic(Frame * ArraySize), PSETã FOR Stall = 0 TO Delay: NEXTã IF Y > 0 THEN Y = Y - 1ã NEXTã IF Y = 0 THEN NumTurns = 0ã WINDOW SCREEN (0, 0)-(319, 199) 'Return to normalã RETURNããMakeData:ã 'Right Pac-Peopleã 'SCREEN 7, , 1, 0 '!!!ã FOR X = 1 TO 10ã CIRCLE (20, 20), X, 14ã CIRCLE (21, 20), X, 14ã NEXT Xã LINE (20, 14)-STEP(2, 1), 0, BF 'Sketch the eyeã GOSUB SaveGraphicãã LINE (20, 20)-(31, 20), 0ã GOSUB SaveGraphicãã LINE (20, 20)-(31, 19), 0ã LINE (20, 20)-(31, 21), 0ã GOSUB SaveGraphicãã LINE (20, 20)-(31, 18), 0ã LINE (20, 20)-(31, 22), 0ã GOSUB SaveGraphicãã LINE (20, 20)-(31, 17), 0ã LINE (20, 20)-(31, 23), 0ã GOSUB SaveGraphicãã LINE (20, 20)-(31, 16), 0ã LINE (20, 20)-(31, 24), 0ã GOSUB SaveGraphicãã LINE (20, 20)-(31, 15), 0ã LINE (20, 20)-(31, 25), 0ã GOSUB SaveGraphicãã 'Left Pac-Peopleã FOR X = 0 TO 10ã CIRCLE (20, 20), X, 14ã CIRCLE (21, 20), X, 14ã NEXT Xã LINE (20, 14)-STEP(2, 1), 0, BF 'Sketch the eyeã GOSUB SaveGraphicãã LINE (20, 20)-(10, 20), 0ã GOSUB SaveGraphicãã LINE (20, 20)-(10, 19), 0ã LINE (20, 20)-(10, 21), 0ã GOSUB SaveGraphicãã LINE (20, 20)-(10, 18), 0ã LINE (20, 20)-(10, 22), 0ã GOSUB SaveGraphicãã LINE (20, 20)-(10, 17), 0ã LINE (20, 20)-(10, 23), 0ã GOSUB SaveGraphicãã LINE (20, 20)-(10, 16), 0ã LINE (20, 20)-(10, 24), 0ã GOSUB SaveGraphicãã LINE (20, 20)-(10, 15), 0ã LINE (20, 20)-(10, 25), 0ã GOSUB SaveGraphicãã 'Up Pac-Peopleã FOR X = 1 TO 10ã CIRCLE (20, 20), X, 14ã CIRCLE (21, 20), X, 14ã NEXT Xã LINE (14, 19)-STEP(1, 2), 0, BF 'Sketch the eyeã GOSUB SaveGraphicãã LINE (20, 20)-(20, 10), 0ã GOSUB SaveGraphicãã LINE (20, 20)-(19, 10), 0ã LINE (20, 20)-(21, 10), 0ã GOSUB SaveGraphicãã LINE (20, 20)-(18, 10), 0ã LINE (20, 20)-(22, 10), 0ã GOSUB SaveGraphicãã LINE (20, 20)-(17, 10), 0ã LINE (20, 20)-(23, 10), 0ã GOSUB SaveGraphicãã LINE (20, 20)-(16, 10), 0ã LINE (20, 20)-(24, 10), 0ã GOSUB SaveGraphicãã LINE (20, 20)-(15, 10), 0ã LINE (20, 20)-(25, 10), 0ã GOSUB SaveGraphicãã 'SCREEN 7, , 0 '!!!ã 'RETURN '!!!ãã SCREEN 0ã WIDTH 80ã PRINT "CREATING DATA FILE... PLEASE WAIT"ã DEF SEG = VARSEG(Graphic(0))ã BSAVE "Pacman.DAT", VARPTR(Graphic(0)), ArraySize * NumGraphics * 2ã PRINT "DATA FILE CREATED. YOU MAY NOW RUN THIS PROGRAM AGAIN."ã ENDããSaveGraphic:ã GET (9, 11)-(32, 29), Graphic(Offset)ã Offset = Offset + ArraySizeã RETURNãTyler Barnes VESA SVGA SCREEN ROUTINES FidoNet QUIK_BAS Echo 03-10-96 (00:43) QB, PDS 341 12443 VESA.BAS ' QuickBasic High Resolution Screen Routinesã'ã' By D. Tyler Barnesã'ã' Works(Hopefully) with any VESA compatible BIOSã'ã'Introã'~~~~~ã'ã' Ok,first of all,I'm not as heavily in to QuickBasic programming asã'I used to be,so I was a bit lazy writing this. I left a LOT of room forã'improvement. Second of all,when I WAS in to QuickBasic programming, graphicsã'was not a specialty. I was more in to communications. The point I'm tryingã'to make,is that there may be code in this thing that is extraneous,andã'there may be ways to do what this code is doing a lot faster... Infact,Iã'KNOW there are ways to make it faster... I'm using the BIOS Write Pixelã'command in all the graphics commands. It would be much faster done with directã'writes to video memory.. I'll leave the improvements up to you.ã'Just do me a favour and send me your changes so that next time I post this,ã'others will recieve these changes. I'll put your name on your code,so don'tã'worry about me stealing your credit...ã'Oh,another weird thing I've done,is I've used InterruptX almost everywhere,ã'even in places where INTERRUPT would've worked. As far as I know they areã'identical anyhow,'cept INTERRUPTX can use more registers... but perhapsã'I'm wrong. Perhaps INTERRUPT is faster or something. Go ahead and change it.ã'ã'How to useã'~~~~~~~~~~ã'ã'* Before doing anything,make sure you've loaded QuickBasic with theã' /L switch.ã'* Next detect whether or not the machine has VESA compatibilityã'* Set the screen modeã'* Write the program hereã'* Use the CleanUp commandã'* Endã'ã'Commands:ã'ã'Border-This command is used when in text mode,and some graphic modes.ã' It has one integer parameter. Depending what screen mode you're in,ã' and what number you use,this will change the screen colour,theã' border,both,or neither. Just mess around with it ...ã' Example Usage:Border 9ã' On my machine,the above will produce a light blue border when inã' ScreenMode 3(Basic's SCREEN 0)ã'Box-This command will not work in any text modes.(Obviously)ã' It has 5 parameters. 4 to define the box,and the last to define theã' colour of the box.ã' Example Usage:Box 10,11,50,51,3ã' The above command would make a box with the left hand corner on pointã' 10,11(X,Y) and the bottom right hand corner on 50,51.ã' The last parameter is the colour and will have a different resultã' depending on your screen mode.ã'CleanUp-This command is used to clean up after the ScreenMode command. Itã' should be run before you exit your program. Also,if you haveã' allready run ScreenMode once,and you want to change to a newã' screen mode,you'll have to run this before doing so. Also,if youã' want to stop using these routines,and use BASIC's routines instead,ã' and ScreenMode has allready been used in your program,you'll haveã' to run this before using BASIC's SCREEN command.ã' Example Usage:CleanUpã'CurVidMode-This function will return the current video mode. The numberã' returned will not always correspond with the number used in theã' ScreenMode command,and will not always correspond with BASIC'sã' SCREEN mode. If you want to see what the number returned means,ã' look up AH=00,INT 10h in Ralf Brown's interrupt list.ã' Example Usage:A%=CurVidMode%ã'LowHigh-Crappy way of seperating two seperate bytes from a word. If youã' don't know what I'm talking about,don't worry about it. The onlyã' reason I have this in here at all,is because there are otherã' routines in this source that depend on it.ã'Pixel-This is like BASIC's PSET command. It plots one pixel on to theã' display. There are three parameters. Two for the X,Y coordinates ofã' the dot,and one for the colour.ã' Example Usage:Pixel 5,10,2ã' The above command would plot a pixel at 5,10(X,Y) with a colourã' value of 2.ã' This command will not work in text modes.ã' Pixel Positions start at 0,0.ã'ScreenMode-This is used to switch between the screen modes. Please lookã' up the CLEANUP command after reading this explanation.ã' This command has one parameter;the screen mode.ã' Example Usage:ScreenMode 3ã' The above command would switch the computer into 80x25x16 textã' mode.(80 columns,25 rows,16 colours)ã' So that you don't have to remember all the numbers,I built inã' a bunch of constants to use for the more common modes. Of course,ã' there are always modes I left out that may work,so experiment.ã' If you find a mode that you want to use,try it on more thanã' one machine to make sure that the mode you've selected isã' fairly compatible. Oh,and be careful. I've heard that withã' older equipment,you can actually fry your monitor by going intoã' certain unsupported modes.ã'VesaSupported-This function is used to detect whether or not the machineã' that the program is running on has VESA compatibility.ã' Example Usage:IF VesaSupported THENã' Ie2:IF NOT VesaSupported THENããDECLARE SUB Box (TopX%, TopY%, BottomX%, BottomY%, Colour%)ãDECLARE SUB Pixel (X%, Y%, Colour%)ãDECLARE SUB Border (Colour%)ãDECLARE FUNCTION Curvidmode% ()ãDECLARE FUNCTION Readpixel% (Column%, Row%)ãDECLARE SUB Cleanup ()ãDECLARE SUB Tlocate (Y%, X%)ãDECLARE SUB Tcolour (ForeGround%, BackGround%)ãDECLARE SUB ScreenMode (MODE%)ãDECLARE FUNCTION Vesasupported% ()ãDECLARE SUB LowHigh (Register%, low%, High%)ããTYPE SVGAã Sig AS STRING * 4ã Version AS INTEGERã OEMPtr AS LONGã Capibilities AS STRING * 4ã ListPtr AS LONGã VidMem AS INTEGERã Reserved AS STRING * 262ãEND TYPEãã'$INCLUDE: 'QB.BI'ãDIM SHARED Inregx AS RegTypeX, Outregx AS RegTypeXãCONST GM640x400x256 = &H100, GM640x480x256 = &H101, GM800x600x16 = &H102ãCONST GM800x600x256 = &H103, GM1024x768x16 = &H104, GM1024x768x256 = &H105ãCONST TM80X25 = 3ãCLSãIF NOT Vesasupported THENã PRINT "Fatal Error: VESA was not detected."ãEND IFã'Y=0 to 767ã'X=0 to 1023ãScreenMode GM1024x768x256ãColour = -.5ãFOR X% = 0 TO 1023ã Colour = Colour + .5ã IF INT(Colour) > 255 THEN Colour = -.5ã FOR Y% = 0 TO 767ã Pixel X%, Y%, INT(Colour)ã NEXT Y%ã IF LEN(INKEY$) > 0 THEN GOTO HereãNEXT X%ããHere:ãBox 50, 50, 390, 590, 2ãWHILE INKEY$ = "": WENDã CleanupãDEFINT A-ZããDEFSNG A-ZãSUB Border (Colour%)ã DIM inreg AS RegType, outreg AS RegTypeã 'In Text mode(3) you can only set the border colour.ã 'With some video modes this will also modify the background colourã 'With other video modes,this may not work at all.ã IF Colour% > 255 THEN Colour% = 255ã IF Colour% < 0 THEN Colour% = 0ã inreg.AX = &HB00ã inreg.BX = Colour%ã CALL INTERRUPT(&H10, inreg, outreg)ãEND SUBããDEFINT A-ZãSUB Box (TopX, TopY, BottomX, BottomY, Colour%)ã FOR I% = TopX TO BottomX STEP 1ã Pixel I%, TopY, Colour%ã Pixel I%, BottomY, Colour%ã NEXT I%ã FOR I% = TopY TO BottomY STEP 1ã Pixel BottomX, I%, Colour%ã Pixel TopX, I%, Colour%ã NEXT I%ãEND SUBããSUB Cleanupã SHARED StartingModeã Inregx.AX = StartingModeã CALL interruptx(&H10, Inregx, Outregx)ãEND SUBããDEFSNG A-ZãFUNCTION Curvidmode%ã DEF SEG = &H40ã Curvidmode% = PEEK(&H49)ã DEF SEGãEND FUNCTIONããDEFINT A-ZãSUB GPrint (Text$)ã SHARED Col%ã Inregx.AX = &H300ã CALL interruptx(&H10, Inregx, Inregx)ã Inregx.AX = &H1301ã Inregx.BX = Col%ã Inregx.CX = LEN(Text$)ã Inregx.ES = VARSEG(Text$)ã Inregx.BP = SADD(Text$)ã CALL interruptx(&H10, Inregx, Outregx)ãEND SUBããDEFSNG A-ZãSUB LowHigh (Register%, low%, High%)ã Full$ = HEX$(Register%)ã IF LEN(Full$) < 4 THENã WHILE LEN(Full$) < 4: Full$ = "0" + Full$: WENDã END IFã low% = VAL("&H" + RIGHT$(Full$, 2))ã High% = VAL("&H" + LEFT$(Full$, 2))ãEND SUBããSUB Makecircle (X%, Y%, Rad, Colour%)ã FOR I = 0 TO 6.4 STEP .005ã Pixel INT(Rad * COS(I)) + X%, INT(Rad * SIN(I)) + Y%, Colour%ã NEXT IãEND SUBããDEFINT A-ZãSUB MakeLine (A, B, C, D, Colour%)ã U = C - A: v = D - B: Param = U: GOSUB Sign: D1X = Signã Param = v: GOSUB Sign: D1Y = Sign: Param = U: GOSUB Sign: D2X = Signã D2Y = 0: m = ABS(U): N = ABS(v)ã IF m <= N THENã D2X = 0: Param = v: GOSUB Sign: D2Y = Sign: m = ABS(v): N = ABS(U)ã END IFã S% = m / 2ã FOR I% = 0 TO mã Pixel A, B, Colour%: S% = S% + Nã IF S% >= m THENã S% = S% - m: A = A + D1X: B = B + D1Yã ELSEã A = A + D2X: B = B + D2Yã END IFã NEXT I%ã EXIT SUBãSign:ã SELECT CASE Paramã CASE IS > 0: Sign = 1ã CASE IS < 0: Sign = -1ã CASE 0: Sign = 0ã END SELECTã RETURNãEND SUBããDEFSNG A-ZãSUB Pixel (X%, Y%, Colour%)ã DIM inreg AS RegType, outreg AS RegTypeã C$ = HEX$(Colour%)ã LC% = LEN(C$)ã IF LC% < 2 THEN C$ = "0" + C$ã IF LC% > 2 THEN C$ = LEFT$(C$, 2)ã inreg.AX = VAL("&HC" + C$)ã inreg.BX = &H0ã inreg.DX = Y%ã inreg.CX = X%ã CALL INTERRUPT(&H10, inreg, outreg)ãEND SUBããDEFINT A-ZãFUNCTION Readpixel (Column, Row)ã Inregx.AX = &HD00ã Inregx.BX = 0ã Inregx.CX = Columnã Inregx.DX = Rowã CALL interruptx(&H10, Inregx, Outregx)ã LowHigh Outregx.AX, RP, Junkã Readpixel = RPãEND FUNCTIONããSUB ScreenMode (MODE%)ã SHARED StartingModeã Inregx.AX = &HF00ã CALL interruptx(&H10, Inregx, Outregx)ã LowHigh Outregx.AX, StartingMode, Columnsã Inregx.AX = &H4F03ã CALL interruptx(&H10, Inregx, Outregx)ã LowHigh Outregx.AX, Support, Statusã IF Status <> 0 OR Support <> &H4F THEN ERROR (5)ã StartingVesaMode = Outregx.BXã Inregx.AX = &H4F02ã Inregx.BX = MODE%ã CALL interruptx(&H10, Inregx, Outregx)ã LowHigh Outregx.AX, Support, Statusã IF Support <> &H4F OR Status <> 0 THEN ERROR (5)ã Inregx.AX = &HF00ã CALL interruptx(&H10, Inregx, Outregx)ã LowHigh Outregx.AX, EndResult, Columnsã Inregx.AX = &H4F02ã Inregx.BX = StartingVesaModeã CALL interruptx(&H10, Inregx, Outregx)ã IF Support <> &H4F OR Status <> 0 THEN ERROR (5)ã Inregx.AX = EndResultã CALL interruptx(&H10, Inregx, Outregx)ã Tcolour 7, 0: Tlocate 1, 1ãEND SUBããSUB Tcolour (ForeGround, BackGround)ã SHARED Col%ã T$ = HEX$(ForeGround): T2$ = HEX$(BackGround)ã IF LEN(T$) > 1 OR LEN(T2$) > 1 THEN ERROR (5)ã Col% = VAL("&H" + T2$ + T$)ãEND SUBããSUB Tlocate (Y, X)ã Y = Y - 1: X = X - 1ã Y$ = HEX$(Y): X$ = HEX$(X)ã IF LEN(Y$) > 2 OR LEN(X$) > 2 THEN ERROR (5)ã IF LEN(Y$) < 2 THEN Y$ = "0" + Y$ã IF LEN(X$) < 2 THEN X$ = "0" + X$ã Inregx.AX = &H200ã CurLoc% = VAL("&H" + Y$ + X$)ã Inregx.DX = CurLoc%ã CALL interruptx(&H10, Inregx, Outregx)ã X = X + 1: Y = Y + 1ãEND SUBããFUNCTION Vesasupportedã DIM VInfoBuff AS SVGAã Inregx.AX = &H4F00ã Inregx.ES = VARSEG(VInfoBuff)ã Inregx.di = VARPTR(VInfoBuff)ã CALL interruptx(&H10, Inregx, Outregx)ã LowHigh Outregx.AX, Support, Statusã IF UCASE$(VInfoBuff.Sig) <> "VESA" OR Support <> &H4F OR Status <> 0 THENã Vesasupported = 0ã ELSEã Vesasupported = -1ã END IFãEND FUNCTIONãã'Oh, that's it. And after all that commenting, I still neglected to say a fewã'things. First of all, if you try to switch to a screen mode that isn'tã'supported by your computer, most of the time it will give you an Illegalã'Function Call... Of course there are a few modes that won't be detected asã'invaid, they'll just freeze the machine or something not so nice.ã'Also, In the VesaDetection function I'm using a TYPE instead of just a largeã'set-length string... a large set length string would eliminate the TYPE stuffã'at the top of the file, but I put it the way i did incase someone wanted toã'use the info to add stuff. After all this time I've wasted talking abut thisã'thing, I sure hope it works... .. I still haven't tested it on any machineã'but my own.L8r,ã'D. Tyler BarnesãManny Najera QBASIC FADING ROUTINE www.flashgames.com 03-09-96 (23:20) QB, QBasic, PDS 108 2531 QBFADE.BAS 'QBasic FADEing - The real thing.ã'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ã'From Manny Najera of Flash Gamesã'--------------------------------ã' http://www.flashgames.comã'--------------------------------ãã'How To Use This Stuffã'---------------------ã'To fade out, just use PALETTE.FADEOUT.ã'PALETTE.FADEIN will work after you fadeout.ã'If you mess around with the pData array inã'between, it won't work correctly. All theã'other subs you don't have to worry about.ã'The FLICKERING? Its not as bad as before.ã'Live with it. It happens to the best of us.ã'Use this code NOW! I'm tired of looking atã'those fake fades.ããDEFINT A-Zãã'Just add this into your program.ã'---------------------------------ãTYPE PaletteTypeãRed AS INTEGERãGreen AS INTEGERãBlue AS INTEGERãEND TYPEãDECLARE SUB Palette.Set (nColor%, pInfo AS PaletteType)ãDECLARE SUB Palette.Get (nColor%, pInfo AS PaletteType)ãDECLARE SUB Palette.Fadeout ()ãDECLARE SUB Palette.FadeIn ()ãDIM SHARED Pal AS PaletteTypeãDIM SHARED pData(0 TO 255, 1 TO 3)ã'---------------------------------ããSCREEN 13ãFOR I = 0 TO 200ãLINE (0, I)-(319, I), IãNEXT IãSLEEPãPalette.FadeoutãSLEEPãPalette.FadeInããSUB Palette.FadeInãDIM tT(1 TO 3)ãFOR I = 1 TO 64ãWAIT &H3DA, 8ã FOR O = 0 TO 255ã Palette.Get O, Palã tT(1) = Pal.Redã tT(2) = Pal.Greenã tT(3) = Pal.Blueã IF tT(1) < pData(O, 1) THEN tT(1) = tT(1) + 1ã IF tT(2) < pData(O, 2) THEN tT(2) = tT(2) + 1ã IF tT(3) < pData(O, 3) THEN tT(3) = tT(3) + 1ã Pal.Red = tT(1)ã Pal.Green = tT(2)ã Pal.Blue = tT(3)ã Palette.Set O, Palã NEXT OãNEXT IããEND SUBããSUB Palette.FadeoutãDIM tT(1 TO 3)ãFOR I = 0 TO 255ã Palette.Get I, Palã pData(I, 1) = Pal.Redã pData(I, 2) = Pal.Greenã pData(I, 3) = Pal.BlueãNEXT IãFOR I = 1 TO 64ãWAIT &H3DA, 8ã FOR O = 0 TO 255ã Palette.Get O, Palã tT(1) = Pal.Redã tT(2) = Pal.Greenã tT(3) = Pal.Blueã IF tT(1) > 0 THEN tT(1) = tT(1) - 1ã IF tT(2) > 0 THEN tT(2) = tT(2) - 1ã IF tT(3) > 0 THEN tT(3) = tT(3) - 1ã Pal.Red = tT(1)ã Pal.Green = tT(2)ã Pal.Blue = tT(3)ã Palette.Set O, Palã NEXT OãNEXT IãEND SUBããSUB Palette.Get (nColor%, pInfo AS PaletteType)ãOUT &H3C6, &HFFãOUT &H3C7, nColor%ãpInfo.Red = INP(&H3C9)ãpInfo.Green = INP(&H3C9)ãpInfo.Blue = INP(&H3C9)ãEND SUBããSUB Palette.Set (nColor%, pInfo AS PaletteType)ãOUT &H3C6, &HFFãOUT &H3C8, nColor%ãOUT &H3C9, pInfo.RedãOUT &H3C9, pInfo.GreenãOUT &H3C9, pInfo.BlueãEND SUBããDavid Carlton 3D-VR MAZE WARS pvhsa07@ll.kcts.org 03-09-96 (23:31) QB, QBasic, PDS 429 12815 MAZEWARS.BASREM Alpha version of VR Maze Wars (working title) by David CarltonãREM Hard Core Software Copyright 1995ããREM This is the alpha version of my game! Basically it's a super slowãREM qbasic version of my program only allowing you to wander around aãREM small room. This actually looks barely anything like the actual gameãREM will. This has clear walls and no hit detection for the objects inãREM the center of the room. Also, because this has no object sorting,ãREM close walls will dissapear. Of course the worst thing about the alphaãREM is how terribly slow it runs in non-compiled qbasic. Most of the timeãREM you will have to wait about 5 seconds for each frame to be drawn.ããREM Below is a list of features that will be in the finished version orãREM later upgrades:ããREM -Written in C++:over ten times fasterãREM -Runs in WindowsãREM -SVGA or VGA graphicsãREM -Digital sound effects and midi musicãREM -Full 6DOF enviroment (jumping,strafing,look up-down the works!)ãREM -Texture mapped surfacesãREM -Gourad/ray traced shading and light effectsãREM -Multiple camerasãREM -Weapons like homing missle launchers and artillery cannonsãREM -Helpful powerups like 180 degree vision and jet packsãREM -Lots of enemiesãREM -Liquid surfaces (dive underwater)ãREM -Modem playãREM -Large and a-maze-ing levelsãREM -More cool stuff like level editors and cheatsããREM This alpha version is a long ways away from the finished versionãREM described above, but I'm working on it. Not all of these features mayãREM get included in the first version, but I'll try to squeeze in all thatãREM I can. I plan to release it as shareware, and include more levels,ãREM weapons, enemies, and sound effects if it is registered.ããREM I tried to spend as little time as possible working on this alphaãREM because of the problems and limitations of qbasic. Thus, you can't doãREM too much in this program. Use the arrow keys to move around, and q toãREM quit. I also added b for bird's eye view and n for normal view. I mightãREM use something like that as a map in later versions. Ready? Press F5ãREM to start. If you have any suggestions write me on the internet atãREM "pvhsa07@ll.kcts.org".ãããREM P.S. If you want to see this program run in high resolution, changeãREM the lines that say SCREEN 8, , drawnpage, shownpage to SCREEN 12 andãREM maxy and screeny to 479 in the line just below the first SCREENãREM statement. This will disable multiple pages but allow 640x480 graphics.ããããON ERROR GOTO 1ã1 RESUME NEXTããREM initializationããDIM template(3, 6, 4, 3), objectloc(37, 3), objectrot(37, 3), objecttype(37)ãDIM playerloc(3), playerrot(3), playervel(3), surfacenumber(3), vertexnumber(3, 6)ããshownpage = 1: drawnpage = 0ãCOLOR 7ãSCREEN 8, , drawnpage, shownpageãperspective = 600ãwalkspeed = 5ãmaxx = 639: minx = 1: maxy = 199: miny = 1ãscreenx = 639: screeny = 199ããREM reading data routineããREM This should read out of a data file in later versionsããFOR i = 1 TO 3ãREAD playerloc(i)ãNEXT iãFOR j = 1 TO 3ãREAD playerrot(j)ãNEXT jãFOR k = 1 TO 3ãREAD playervel(k)ãNEXT kããREAD templatenumberãFOR i = 1 TO templatenumberãREAD surfacenumber(i)ãFOR j = 1 TO surfacenumber(i)ãREAD vertexnumber(i, j)ãFOR k = 1 TO vertexnumber(i, j)ãFOR l = 1 TO 3ãREAD template(i, j, k, l)ãNEXT lãNEXT kãNEXT jãNEXT iããREAD objectnumberãFOR i = 1 TO objectnumberãREAD objecttype(i)ãFOR j = 1 TO 3ãREAD objectloc(i, j)ãNEXT jãFOR k = 1 TO 3ãREAD objectrot(i, k)ãNEXT kãNEXT iããREM keyboard scan routineããREM This is the central routine in this version of the game, but it shouldn'tãREM be in later versions.ããGOSUB 100ããDOããin$ = INKEY$ãIF RIGHT$(in$, 1) = CHR$(72) THEN vectorvel = walkspeed: GOSUB 50ãIF RIGHT$(in$, 1) = CHR$(80) THEN vectorvel = walkspeed * (-1): GOSUB 50ãIF RIGHT$(in$, 1) = CHR$(77) THEN playerrot(1) = playerrot(1) - .26799ãIF RIGHT$(in$, 1) = CHR$(75) THEN playerrot(1) = playerrot(1) + .26799ãIF playerrot(1) > 6.28 THEN playerrot(1) = playerrot(1) - 6.28ãIF playerrot(1) < 0 THEN playerrot(1) = playerrot(1) + 6.28ãIF in$ = "q" THEN gameover = 1: ENDãIF in$ = "b" THEN playerloc(2) = 100: playerrot(3) = 1.54ãIF in$ = "n" THEN playerloc(2) = 0: playerrot(3) = 3.14ãIF RIGHT$(in$, 1) <> CHR$(72) AND RIGHT$(in$, 1) <> CHR$(80) THEN GOSUB 55ããREM IF in$ <> "" OR playervel(1) <> 0 OR playervel(3) <> 0 THEN CLS 1: GOSUB 100ããIF in$ <> "" THEN CLS 1: GOSUB 100ããin$ = ""ããLOOP WHILE gameover = 0ããENDããREM vector movement converted to cartesianãã50ããREM x velocityãplayervel(1) = playervel(1) + SIN(playerrot(1)) * vectorvelãREM z velocityãplayervel(3) = playervel(3) - COS(playerrot(1)) * vectorvelããplayervel(1) = INT(playervel(1)): playervel(3) = INT(playervel(3))ããIF playervel(1) > 4 THEN playervel(1) = 4ãIF playervel(1) < -4 THEN playervel(1) = -4ãIF playervel(3) > 4 THEN playervel(1) = 4ãIF playervel(3) < -4 THEN playervel(3) = -4ããplayerloc(1) = playerloc(1) + playervel(1)ãplayerloc(3) = playerloc(3) + playervel(3)ããREM customized hit detection -- cheapããIF playerloc(1) < 0 THEN playerloc(1) = 0ãIF (playerloc(3) <= 30 OR playerloc(3) >= 40) AND playerloc(1) > 60 THEN playerloc(1) = 60ãIF playerloc(1) > 80 THEN playerloc(1) = 80ããIF playerloc(3) < 0 THEN playerloc(3) = 0ãIF playerloc(3) > 70 THEN playerloc(3) = 70ãIF playerloc(1) >= 60 AND playerloc(3) < 30 THEN playerloc(3) = 30ãIF playerloc(1) >= 60 AND playerloc(3) > 40 THEN playerloc(3) = 40ããRETURNããREM frictionãã55 REM I disabled gliding because it isn't very effective when the programãREM runs this slow.ããIF playervel(1) > 0 THEN playervel(1) = playervel(1) - 4ãIF playervel(1) < 0 THEN playervel(1) = playervel(1) + 4ãIF playervel(3) > 0 THEN playervel(3) = playervel(3) - 4ãIF playervel(3) < 0 THEN playervel(3) = playervel(3) + 4ããRETURNããREM main graphics routine (large)ãã100ãããFOR i = 1 TO objectnumberãFOR j = 1 TO surfacenumber(objecttype(i))ããGOSUB 2000ããx = template(objecttype(i), j, 1, 1): y = template(objecttype(i), j, 1, 2): z = template(objecttype(i), j, 1, 3)ãGOSUB 3000ãx1 = x: y1 = y: z1 = zããx = template(objecttype(i), j, 2, 1): y = template(objecttype(i), j, 2, 2): z = template(objecttype(i), j, 2, 3)ãGOSUB 3000ãx2 = x: y2 = y: z2 = zããx = template(objecttype(i), j, 3, 1): y = template(objecttype(i), j, 3, 2): z = template(objecttype(i), j, 3, 3)ãGOSUB 3000ãx3 = x: y3 = y: z3 = zããGOSUB 7000ãIF sp < 0 THEN GOTO 105ããx = template(objecttype(i), j, 1, 1): y = template(objecttype(i), j, 1, 2): z = template(objecttype(i), j, 1, 3)ãGOSUB 3000ãGOSUB 4000ãsxa = sx: sya = syããx = template(objecttype(i), j, 2, 1): y = template(objecttype(i), j, 2, 2): z = template(objecttype(i), j, 2, 3)ãGOSUB 3000ãGOSUB 4000ãsxb = sx: syb = syããGOSUB 5000ãIF drawit = 1 THEN LINE (sxa, sya)-(sxb, syb)ããx = template(objecttype(i), j, 2, 1): y = template(objecttype(i), j, 2, 2): z = template(objecttype(i), j, 2, 3)ãGOSUB 3000ãGOSUB 4000ãsxa = sx: sya = syããx = template(objecttype(i), j, 3, 1): y = template(objecttype(i), j, 3, 2): z = template(objecttype(i), j, 3, 3)ãGOSUB 3000ãGOSUB 4000ãsxb = sx: syb = syããGOSUB 5000ãIF drawit = 1 THEN LINE (sxa, sya)-(sxb, syb)ããFOR k = 3 TO vertexnumber(objecttype(i), j)ãIF k = vertexnumber(objecttype(i), j) THENãã x = template(objecttype(i), j, 1, 1): y = template(objecttype(i), j, 1, 2): z = template(objecttype(i), j, 1, 3)ã GOSUB 3000ã GOSUB 4000ã sxa = sx: sya = syã ã x = template(objecttype(i), j, k, 1): y = template(objecttype(i), j, k, 2): z = template(objecttype(i), j, k, 3)ã GOSUB 3000ã GOSUB 4000ã sxb = sx: syb = syã ã GOSUB 5000ã IF drawit = 1 THENã LINE (sxa, sya)-(sxb, syb)ã END IFããELSEã ã x = template(objecttype(i), j, k + 1, 1): y = template(objecttype(i), j, k + 1, 2): z = template(objecttype(i), j, k + 1, 3)ã GOSUB 3000ã GOSUB 4000ã sxa = sx: sya = syã ã x = template(objecttype(i), j, k, 1): y = template(objecttype(i), j, k, 2): z = template(objecttype(i), j, k, 3)ã GOSUB 3000ã GOSUB 4000ã sxb = sx: syb = syã ã GOSUB 5000ã IF drawit = 1 THENã LINE (sxa, sya)-(sxb, syb)ã END IFãEND IFãNEXT kã105 NEXT jãNEXT iããREM switch pagesããdrawnpage = 1 - drawnpageãshownpage = 1 - shownpageãSCREEN 8, , drawnpage, shownpageããRETURNãã2000ããREM sin and cos factorsããREM playerãsr1 = SIN(playerrot(1)): sr2 = SIN(playerrot(2)): sr3 = SIN(playerrot(3))ãcr1 = COS(playerrot(1)): cr2 = COS(playerrot(2)): cr3 = COS(playerrot(3))ããREM object -- adding "o" at the end is cheapããsro1 = SIN(objectrot(i, 1)): sro2 = SIN(objectrot(i, 2)): sro3 = SIN(objectrot(i, 3))ãcro1 = COS(objectrot(i, 1)): cro2 = COS(objectrot(i, 2)): cro3 = COS(objectrot(i, 3))ããRETURNãã3000 REM 3-d formulasããREM objectããx = (-1) * x: xa = cro1 * x - sro1 * zãza = sro1 * x + cro1 * z: x = cro2 * xa + sro2 * yãya = cro2 * y - sro2 * xa: z = cro3 * za - sro3 * yaãy = sro3 * za + cro3 * yaããx = x + objectloc(i, 1): y = y + objectloc(i, 2): z = z + objectloc(i, 3)ããREM playerããx = x - playerloc(1): y = y - playerloc(2): z = z - playerloc(3)ããx = (-1) * x: xa = cr1 * x - sr1 * zãza = sr1 * x + cr1 * z: x = cr2 * xa + sr2 * yãya = cr2 * y - sr2 * xa: z = cr3 * za - sr3 * yaãy = sr3 * za + cr3 * yaããsx = perspective * x / z: sy = perspective * y / zããREM cheap-o 3-d line clipping (That's why things look strange sometimes)ããdrawit = 1ãIF z <= 10 THEN drawit = 0ãããRETURNãã4000ããREM 2-d cartesian to 2-d physicalããsx = sx + 399: sy = sy + 299: rx = screenx / 799: ry = screeny / 599ãsx = sx * rx: sy = sy * ryããRETURNããã5000ããREM 2-d line clippingãããIF sxa > sxb THEN tempswap = sxa: sxa = sxb: sxb = tempswap: tempswap = sya: sya = syb: syb = tempswapãIF sxa < minx AND sxb < minx THEN drawit = 0: RETURNãIF sxa > maxx AND sxb > maxx THEN drawit = 0: RETURNãIF sya < miny AND syb < miny THEN drawit = 0: RETURNãIF sya > maxy AND syb > maxy THEN drawit = 0: RETURNãIF sxa < minx THEN c = (syb - sya) / (sxb - sxa) * (sxb - minx) ELSE GOTO 5010ã sxa = minx: sya = syb - cã IF sya < miny AND syb < miny THEN drawit = 0: RETURNã IF sya > maxy AND syb > maxy THEN drawit = 0: RETURNãã5010 IF sxb > maxx THEN c = (syb - sya) / (sxb - sxa) * (maxx - sxa) ELSE GOTO 5020ã sxb = maxx: syb = sya + cã IF sya < miny AND syb < miny THEN drawit = 0: RETURNã IF sya > maxy AND syb > maxy THEN drawit = 0: RETURNãã5020 IF sya > syb THEN tempswap = sxa: sxa = sxb: sxb = tempswap: tempswap = sya: sya = syb: syb = tempswapãIF sya < miny THEN c = (sxb - sxa) / (syb - sya) * (syb - miny): sxa = sxb - c: sya = minyãIF syb > maxy THEN c = (sxb - sxa) / (syb - sya) * (maxy - sya): sxb = sxa + c: syb = maxyããRETURNãã7000ããREM plane-equation method of hidden surface removalããsp1 = x1 * (y2 * z3 - y3 * z2): sp1 = (-1) * sp1: sp2 = x2 * (y3 * z1 - y1 * z3)ãsp3 = x3 * (y1 * z2 - y2 * z1): sp = sp1 - sp2 - sp3ããRETURNãããREM player dataããDATA 5,0,0, 2.796129,0,3.14, 0,0,0ããREM templatesããDATA 3ããREM template:cubeããDATA 6, 4, 5,5,5, 5,5,-5, -5,5,-5, -5,5,5, 4, 5,-5,5, 5,5,5, -5,5,5, -5,-5,5ãDATA 4, 5,-5,-5, 5,5,-5, 5,5,5, 5,-5,5, 4, -5,-5,-5, -5,5,-5, 5,5,-5, 5,-5,-5ãDATA 4, -5,-5,5, -5,5,5, -5,5,-5, -5,-5,-5ãDATA 4, -5,-5,5, -5,-5,-5, 5,-5,-5, 5,-5,5ããREM template:pyramidããDATA 5, 3, 5,-5,5, 0,10,0, -5,-5,5, 3, 5,-5,-5, 0,10,0, 5,-5,5ãDATA 3, -5,-5,5, 0,10,0, -5,-5,-5, 3, -5,-5,-5, 0,10,0, 5,-5,-5ãDATA 4, -5,-5,5, -5,-5,-5, 5,-5,-5, 5,-5,5ããREM template:wallããDATA 2, 4, 5,-5,0, 5,5,0, -5,5,0, -5,-5,0, 4, -5,-5,0, -5,5,0, 5,5,0, 5,-5,0ãããREM objectsããDATA 36ããREM wallsããDATA 3, 5,0,0, 0,0,0, 3, 15,0,0, 0,0,0, 3, 25,0,0, 0,0,0ãDATA 3, 35,0,0, 0,0,0, 3, 45,0,0, 0,0,0, 3, 55,0,0, 0,0,0, 3, 5,0,70, 0,0,0ãDATA 3, 15,0,70, 0,0,0, 3, 25,0,70, 0,0,0, 3, 35,0,70, 0,0,0ããDATA 3, 45,0,70, 0,0,0, 3, 55,0,70, 0,0,0, 3, 0,0,5, 1.57,0,0ãDATA 3, 0,0,15, 1.57,0,0, 3, 0,0,25, 1.57,0,0, 3, 0,0,35, 1.57,0,0ãDATA 3, 0,0,45, 1.57,0,0, 3, 0,0,55, 1.57,0,0, 3, 0,0,65, 1.57,0,0ãDATA 3, 60,0,5, 1.57,0,0ããDATA 3, 60,0,15, 1.57,0,0, 3, 60,0,25, 1.57,0,0, 3, 60,0,45, 1.57,0,0ãDATA 3, 60,0,55, 1.57,0,0, 3, 60,0,65, 1.57,0,0, 3, 65,0,30, 0,0,0ãDATA 3, 75,0,30, 0,0,0, 3, 65,0,40, 0,0,0, 3, 75,0,40, 0,0,0ãDATA 3, 80,0,35, 1.57,0,0ããREM other objectsããDATA 1, 15,0,15, 0,0,0, 1, 45,0,15, 0,0,0ãDATA 2, 25,0,35, 0,0,0, 1, 15,0,55, 0,0,0ãDATA 1, 45,0,55, 0,0,0, 1, 25,15,35, 0,0,0ããããããããTyler Barnes STARFIELD WITH BACKGROUND MUSICFidoNet QUIK_BAS Echo 02-22-96 (20:58) QB, QBasic, PDS 62 2239 MUSISTAR.BAS'Ok, here's a star field I wrote (The kind that has layered stars movingã'sideways) and it has background music. I can't say it couldn'y be programmedã'better, but it should give you an idea on how to do background music. By theã'way, when you run it, it'll ask for a bunch of settings. I suggest 75 star, 3ã'layers, layer speeds at 1, 1.5, and 2, Music on. You may have to adjust theseã'setting according to taste, and the speed of your computer.ã'Oh, also, make all the stars move left. It looks stupid if they move inã'different directions.ãã'By D. Tyler Barnes '95ã'Tested on a 486dx2 80mhzãON PLAY(1) GOSUB MuchMusicãCLSãINPUT "Number of stars:", StarNum%ãINPUT "Number of layers:", LNum%ãDIM StarX(StarNum%), StarY(StarNum%), Layer(LNum%)ãFOR L = 1 TO LNum%ãPRINT "Layer"; L; " speed:";ãINPUT Layer(L)ãPRINT "Layer"; L; " direction [L/R]";ãDO: K$ = UCASE$(INKEY$): LOOP UNTIL K$ = "L" OR K$ = "R"ãIF K$ = "L" THEN Layer(L) = -Layer(L)ãPRINTãNEXT LãPLAY ONãPRINT "Music? [Y/N]";ãWHILE A$ <> "Y" AND A$ <> "N": A$ = UCASE$(INKEY$): WENDãIF A$ = "Y" THEN MBuff$ =ã"T150L2O3CGP16L16FEDL2>CC (StarNum% / LNum%) * CL THEN CL = CL + 1ãStarX(I%) = StarX(I%) + Layer(CL)ãIF StarX(I%) < 1 THEN StarX(I%) = 319: StarY(I%) = RND * 199ãIF StarX(I%) > 319 THEN StarX(I%) = 1: StarY(I%) = RND * 199ãC% = (CL * 4) + 19ãPSET (StarX(I%), StarY(I%)), C%ãNEXT I%ãLOOP UNTIL LEN(INKEY$)ãENDãMuchMusic:ãCount% = Count% + 1ãSELECT CASE Count%ãCASE 0: MBuff$ = "T150L2O3CGP16L16FEDL2>CC 0/\0ã' //\\ _ã' //\\ _ 0/\0//\\//\\0||0 Except it would be in numbers,ã' 0||0 not characters.ãã'One last thing, this only scales sprite bigger than the original. I haven'tã'perfected scaling a sprite smaller yet.. Thats why it starts scaling at theã'orignal size, not smaller.ãã DEFINT A-Z: SCREEN 13: DEF SEG = &HA000: DIM SP(4096)ãã'Load your sprite into SP. The size is 64x64 but you can change it.ãã FOR T = 1 TO 4096ã C = C + 1: IF C > 64 THEN C = 1ã SP(T) = Cã NEXT Tã 'End of sample sprite makingãã SX = 64: SY = 64 ' Size of original spriteãã FOR SF = 64 TO 192 '(192 IS 64*3 - scaling to 3x)ã LX = SF: LY = SF ' LX and LY are the new Sprite sizesã GOSUB SCAL.SPRTã NEXT: SLEEP: ENDããSCAL.SPRT:ã CT = 1: ERY = 0ã FOR Y = 1 TO LY: ER = 0ã FOR x = 1 TO LX: POKE 320 * Y + x, SP(CT)ã ER = ER + SX: IF ER > LX THEN ER = ER - LX: CT = CT + 1ã NEXT xã ERY = ERY + SYã IF ERY > LY THEN ERY = ERY - LY: CT = CT + 1 ELSE CT = CT - (SX - 1)ã NEXT Y: RETURNããPeder Brynolf 3D MATRIX ROTATIONS pbrynolf@dataphone.se 03-22-96 (07:45) QB, QBasic, PDS 164 3152 3DROT.BAS 'This one shows how to do some 3d matris rotations.ããCLSããPRINT "Typ 125 okompilerad f”r 1vbl"ãPRINT "Typ 220 kompilerad f”r 1vbl"ãPRINT : PRINT "P† en 66a ass†!"ãPRINTããINPUT "Antal punkter:"; NOP%ããSCREEN 13ãRANDOMIZE TIMERãããREM NOP% = 150ããON KEY(10) GOSUB QUITãKEY(10) ONããDIM OX%(NOP%), OY%(NOP%), PFX(NOP%), PTX(NOP%), PFY(NOP%), PTY(NOP%), PFZ(NOP%), PTZ(NOP%), XP(NOP%), YP(NOP%), ZP(NOP%), SX%(NOP%), SY%(NOP%), SZ%(NOP%), KX(3), KY(3), KZ(3), CX%(3), CY%(3), CZ%(3)ããRADC = 1.745328E-02ããFOR I% = 0 TO 63ã PALETTE I%, I% + I% * 256 + I% * 65536ãNEXT I%ããFOR I% = 0 TO 3ã READ KX(I%), KY(I%), KZ(I%)ãNEXT I%ããFOR I% = 0 TO NOP%ã ã S% = RND * 6ã IF S% = 0 THEN XP(I%) = RND: YP(I%) = RND: ZP(I%) = 0ã IF S% = 1 THEN XP(I%) = RND: YP(I%) = RND: ZP(I%) = 1ã IF S% = 2 THEN XP(I%) = RND: YP(I%) = 0: ZP(I%) = RNDã IF S% = 3 THEN XP(I%) = RND: YP(I%) = 1: ZP(I%) = RNDã IF S% = 4 THEN XP(I%) = 0: YP(I%) = RND: ZP(I%) = RNDã IF S% = 5 THEN XP(I%) = 1: YP(I%) = RND: ZP(I%) = RNDã ãNEXT I%ãããDOããFOR I% = 0 TO 3ã CX%(I%) = KX(I%) + XPã CY%(I%) = KY(I%) + YPã CZ%(I%) = KZ(I%) + ZPãNEXT I%ãREM *** ROTATE X/Y ***ããSV = SIN(RADC * ANXY)ãCV = COS(RADC * ANXY)ããFOR I% = 0 TO 3ã TX% = SV * CX%(I%) + CV * CY%(I%)ã TY% = -SV * CY%(I%) + CV * CX%(I%)ã CX%(I%) = TX%ã CY%(I%) = TY%ãNEXT I%ããREM *** ROTATE X/Z ***ããSV = SIN(RADC * ANXZ)ãCV = COS(RADC * ANXZ)ããFOR I% = 0 TO 3ã TX% = SV * CX%(I%) + CV * CZ%(I%)ã TZ% = -SV * CZ%(I%) + CV * CX%(I%)ã CX%(I%) = TX%ã CZ%(I%) = TZ%ãNEXT I%ãããREM *** ROTATE Y/Z ***ããSV = SIN(RADC * ANYZ)ãCV = COS(RADC * ANYZ)ããFOR I% = 0 TO 3ã TY% = SV * CY%(I%) + CV * CZ%(I%)ã TZ% = -SV * CZ%(I%) + CV * CY%(I%)ã CY%(I%) = TY%ã CZ%(I%) = TZ%ãNEXT I%ããFOR I% = 1 TO 3ã CX%(I%) = CX%(I%) - CX%(0)ã CY%(I%) = CY%(I%) - CY%(0)ã CZ%(I%) = CZ%(I%) - CZ%(0)ãNEXT I%ããCX0% = CX%(0)ãCY0% = CY%(0)ãCZ0% = CZ%(0)ãCX1% = CX%(1)ãCY1% = CY%(1)ãCZ1% = CZ%(1)ãCX2% = CX%(2)ãCY2% = CY%(2)ãCZ2% = CZ%(2)ãCX3% = CX%(3)ãCY3% = CY%(3)ãCZ3% = CZ%(3)ãããFOR I% = 0 TO NOP%ã ã XP = XP(I%)ã YP = YP(I%)ã ZP = ZP(I%)ã ã SX%(I%) = CX0% + CX1% * XP + CX2% * YP + CX3% * ZPã SY%(I%) = CY0% + CY1% * XP + CY2% * YP + CY3% * ZPã SZ%(I%) = CZ0% + CZ1% * XP + CZ2% * YP + CZ3% * ZPãã IF SY%(I%) > 80 THEN SY%(I%) = 80ããNEXT I%ããFOR I% = 0 TO NOP%ã SK = 300 / (300 + SZ%(I%))ã SX%(I%) = SX%(I%) * SKã SY%(I%) = SY%(I%) * SKãNEXT I%ããFOR I% = 0 TO NOP%ã ã X% = SX%(I%) + 160ã Y% = SY%(I%) + 100ã PSET (OX%(I%), OY%(I%)), 0ã OX%(I%) = X%ã OY%(I%) = Y%ã PSET (X%, Y%), 32 - SZ%(I%) / 8ããNEXT I%ããREM WK: IF INKEY$ = "" THEN GOTO WKããANXY = ANXY - .25ãANXZ = ANXZ - .5ãANYZ = ANYZ - 1ããXP = SIN(RADC * BANAN * 1.7315) * 40ãYP = SIN(RADC * BANAN * 2.3125) * 40ãZP = SIN(RADC * BANAN * 3.2357) * 200ãBANAN = BANAN + .5ããREM *** Wait vbl ***ããWVBL: A% = INP(&H3DA)ã A% = A% MOD 16ã A% = A% / 16ã IF A% <> 1 THEN GOTO WVBLãLOOPããDATA 50,50,50, -50,50,50 ,50,-50,50, 50,50,-50ããQUIT:ãSYSTEMããPeder Brynolf 2D ROTATING TEXTURE MAPS pbrynolf@dataphone.se 03-22-96 (07:45) QB, QBasic, PDS 151 2439 2DMAPS.BAS 'Here's a little program showing how to 2d-rotate texture maps.ããDECLARE SUB TEXTLINE (X1, X2, Y, TX1, TY1, TX2, TY2)ãRANDOMIZE TIMERãZANM = 3.14159 / 180ããSCREEN 13ãNOP = 4ããPRINT "01234567"ãPRINT "HEJSAN!"ãPRINT " FUNKAR"ãPRINT "DETTA S"ãPRINT "BLIR JAG"ãPRINT " GLAD!"ãPRINT " ALTER"ãPRINT " EGO"ãDIM X(NOP), Y(NOP)ãDIM TX(NOP), TY(NOP)ããDOãRESTORE POLYCOORDSãFOR I = 0 TO NOP - 1ã READ X(I), Y(I)ã X(I) = SIN(ZANM * ((I * 90) + an)) * 50 + 160ã Y(I) = COS(ZANM * ((I * 90) + an)) * 50 + 100ãNEXT Iãan = an + 1ããOX = X(3)ãOY = Y(3)ãFOR I = 0 TO 3ã X = X(I)ã Y = Y(I)ã LINE (X, Y)-(OX, OY)ã OX = Xã OY = YãNEXT IããRESTORE TEXTCOORDSãFOR I = 0 TO NOP - 1ã READ TX(I), TY(I)ãNEXT IããDIM XP(199), TXP(199), TYP(199)ããFOR Y = 0 TO 199ã XP(Y) = -1ãNEXT YããOX = X(NOP - 1)ãOY = Y(NOP - 1)ãOTX = TX(NOP - 1)ãOTY = TY(NOP - 1)ããFOR I = 0 TO NOP - 1ã X = X(I)ã Y = Y(I)ã TX = TX(I)ã TY = TY(I)ã ã XF = Xã YF = Yã XT = OXã YT = OYã ã TXF = TXã TYF = TYã TXT = OTXã TYT = OTYãã IF YF = YT THEN GOTO SKIPIT2ãã IF YF > YT THEN SWAP YF, YT: SWAP XF, XT: SWAP TYF, TYT: SWAP TXF, TXTãã XSK = (XT - XF) / (YT - YF)ã XC = XFã ã TXSK = (TXT - TXF) / (YT - YF)ã TXC = TXFã TYSK = (TYT - TYF) / (YT - YF)ã TYC = TYFã ã FOR YC = YF TO YT - 1ã ã IF XP(YC) = -1 THENã XP(YC) = XCã TXP(YC) = TXCã TYP(YC) = TYCã ELSEã OXC = XCã OTXC = TXCã OTYC = TYCã ãREM LINE (XP(YC), YC)-(XC, YC), 4ã TEXTLINE XP(YC), XC, YC, TXP(YC), TYP(YC), TXC, TYCã XP(YC) = -1ã XC = OXCã TXC = OTXCã TYC = OTYCã ã END IFãã XC = XC + XSKã ã TXC = TXC + TXSKã TYC = TYC + TYSKãã NEXT YCã ãSKIPIT2:ãã OTX = TXã OTY = TYã OX = Xã OY = YãNEXT IãLOOP UNTIL INKEY$ = " "ãSYSTEMãPOLYCOORDS:ãDATA 113,154ãDATA 288,181ãDATA 245,124ãDATA 96,19ããTEXTCOORDS:ãDATA 0,0ãDATA 64,0ãDATA 64,64ãDATA 0,64ããSUB TEXTLINE (X1, X2, Y, TX1, TY1, TX2, TY2)ããIF X1 = X2 GOTO SKIPITããIF X1 > X2 THEN SWAP X1, X2: SWAP TX1, TX2: SWAP TY1, TY2ããXSK = (TX2 - TX1) / (X2 - X1)ãXC = TX1ãYSK = (TY2 - TY1) / (X2 - X1)ãYC = TY1ããFOR X = X1 TO X2ã C = POINT(XC, YC)ã PSET (X, Y), Cã XC = XC + XSKã YC = YC + YSKãNEXT XããSKIPIT:ãEND SUBãAaron Scott Zabudsky COLOR BARS THAT COLOR CYCLE zabudsk@ecf.toronto.edu 09-05-94 (21:40) QB, QBasic, PDS 25 418 COLRBARS.BASDIM c(255, 3)ãSCREEN 13ãc = 1ãFOR y = 0 TO 20ãFOR z = 1 TO 256ãPSET (z, y), cãc = (c + 1) MOD 256ãIF c = 0 THEN c = 1ãNEXT zãNEXT yãFOR z = 1 TO 255ãOUT &H3C7, zãc(z, 1) = INP(&H3C9)ãc(z, 2) = INP(&H3C9)ãc(z, 3) = INP(&H3C9)ãNEXT zãFOR o = 1 TO 255ãFOR z = 1 TO 255ãOUT &H3C8, zãOUT &H3C9, c((z + o) MOD 256, 1)ãOUT &H3C9, c((z + o) MOD 256, 2)ãOUT &H3C9, c((z + o) MOD 256, 3)ãNEXT zãNEXT oããAaron Scott Zabudsky COMPUTERIZED SPIROGRAPH zabudsk@ecf.toronto.edu 05-19-93 (12:36) QB, QBasic, PDS 14 350 SPIRO.BAS SCREEN 12ãCLSãox = 300: oy = 300: r = 30ãFOR n = 2 TO 50 STEP .5ããpi = 3.141592653589793#ãFOR x = 0 * 100 TO 2 * 100 STEP nãREM LINE (ox, oy)-(ox + 100 * COS(x), oy + 100 * SIN(x))ãLINE (ox + 100 * COS(x * pi / 100), oy + 100 * SIN(x * pi / 100))-(ox + 100 * COS(x * pi / 100 + n), oy + 100 * SIN(x * pi / 100 + n))ããNEXT xãCLSãNEXT nããEarl L. Montgomery REVERSING SCREEN IMAGE FidoNet QUIK_BAS Echo 02-18-96 (12:41) QB, QBasic, PDS 29 742 REVERSE.BAS 'Noticed you were asking about turning the screen upside down. Hereã 'is a routine that does a mirror image. I had written a program thatã 'will reverse the screen horizontally and vertically. Will have toã 'look for the source code.ããDEFINT A-ZãSCREEN 9ãDIM bottom(1500)ãCOLOR 14ãLOCATE 12, 30: PRINT "Earl L. Montgomery"ãCIRCLE (100, 100), 10ãLINE (100, 108)-(100, 114)ãLINE (84, 114)-(115, 114)ãLINE (84, 114)-(84, 134)ãLINE (115, 114)-(115, 134)ãLINE (100, 114)-(100, 144)ãLINE (100, 144)-(90, 174)ãLINE (100, 144)-(110, 174)ãCOLOR 4ãLINE (0, 0)-(639, 50), , BFãv1 = -0: v2 = 350ãFOR x = 0 TO 349ãv1 = v1 + 1ãv2 = v2 - 1ãGET (0, v1)-(639, v1), bottomãPUT (0, v2), bottom, PSETãSOUND 32000, .5ãNEXTãSLEEP 100ãEarl L. Montgomery BACK SWITCHING FidoNet QUIK_BAS Echo 03-21-96 (21:23) QB, PDS 58 1394 BANKSWIT.BAS 'This program demonstrates how to use bank switching so that youã 'can poke the entire 720X540X256 screen rather than use the slowã 'ROM Bios interrupt SETPIXEL. This code will work with Videoã '7 graphic chips. If you do not have a video7 graphic chip butã 'would like to run this demo. Please give me the name of yourã 'graphic card/chip and I should be able to furnish you with theã 'correct code so it will run on your system.ãã '$INCLUDE: 'qb.bi'ã DIM inreg AS RegTypeã DIM outreg AS RegTypeã DEFLNG A-Zã inreg.ax = &H6F05ã 'inreg.bx = &H66: flag = 66: '640x400x256ã 'inreg.bx = &H67: flag = 67: '640x480x256ã inreg.bx = &H68: flag = 68: '720x540x256ã 'inreg.bx = &H69:flag = 69: '800x600x256ã CALL interrupt(&H10, inreg, outreg)ã DEF SEG = &HA000ã FOR x = 0 TO 65535ã POKE x, 4ã NEXTãbank1:ã OUT &H3C4, &HE8ã OUT &H3C5, &H10ã FOR x = 0 TO 65535ã POKE x, 184ã NEXTãbank2:ã OUT &H3C4, &HE8ã OUT &H3C5, &H20ã FOR x = 0 TO 65535ã POKE x, 4ã NEXTãbank3:ã OUT &H3C4, &HE8ã OUT &H3C5, &H30ã FOR x = 0 TO 65535ã POKE x, 3ã NEXTãbank4:ã OUT &H3C4, &HE8ã OUT &H3C5, &H40ã FOR x = 0 TO 65535ã POKE x, 143ã NEXTã IF flag = 66 OR flag = 67 THEN GOTO bank5notneededãbank5:ã OUT &H3C4, &HE8ã OUT &H3C5, &H50ã FOR x = 0 TO 65535ã POKE x, 3ã NEXTãbank5notneeded:ãSLEEP (100)ãinreg.ax = &H3ãCALL interrupt(&H10, inreg, outreg)ãCLS : ENDãJeff Lawson TGA VIEWER (320X200) x2ftp.oulu.fi 02-10-94 (11:50) QB, QBasic, PDS 30 639 TGAVIEW.BAS DEFINT A-ZããCONST FontHeight = 23ãCONST ScreenWidth = 320 / 4ããSCREEN 13ãã'display the bitmapãOPEN "BIGHEART.TGA" FOR BINARY AS #1ãSEEK #1, 19ãFOR Attr = 0 TO 255ã Value$ = SPACE$(3)ã GET #1, , Value$ã Red& = ASC(MID$(Value$, 3))ã Green& = ASC(MID$(Value$, 2))ã Blue& = ASC(MID$(Value$, 1))ã OUT &H3C8, Attrã OUT &H3C9, Red&ã OUT &H3C9, Green&ã OUT &H3C9, Blue&ã 'PALETTE Attr, 65535 * Blue& + 256 * Green& + Red&ãNEXT AttrãSEEK #1, 19 + 768: A$ = " "ãFOR Row = 0 TO 199ã FOR Col = 0 TO 319ã GET #1, , A$ã PSET (Col, Row), ASC(A$)ã NEXT ColãNEXT RowãCLOSE #1ãDave Shea ANIMATION OF RUNNING MAN FidoNet QUIK_BAS Echo 03-24-96 (00:00) QB, QBasic, PDS 37 2364 RUNMAN.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"MAN.ZIP",4^6:Z&=1493:?STRING$(50,177);ãU"%up()%9%%%#-%/YnLE:;0M\j'.%%v8%%%,%%%%rf%sSgf4xfev):re5c#X*8'NE,zK5g#pA##bA7W2hhn$1$N6[-ãU"G>Gs7JiPxETiJ:(-0bPSSm:2eJ%ãU"eSb7TiCK(YVtZNg^UKIrDV0*lG1*7H(JV6QFA%[Z;P5QM8=Dg$kmaUeJsNxou:^ãU"vo>tH.HAE&LkMTfXoobL?c-$h3Tklnb8Y[qs=LX\VvKmC]77i$V_Y,?1''NXO]+ãU">I5n;Bb_+mBYb9/s(ãU"RCHN-l+A/AV]#dkArq)CT+f&j%94HUpg#W(oWho9o$;v._\lmDn(h4jp>%S>%r&cP.gQy0J$Cg[Z+B3/p?aãU"3.Bv\u5V'w+0%h6y6\Pp$kyZ;fk_<7S&%CJg#ovD]8vL[V3Y'YJn-Lt4\N5Q4#MEH-ãU"mG[v(Q0W3\+=DoVXtsDf>zP'&meIiF6&j,Wm.IWE/8iJ)\]LnnZk%PiaGE/>7]xãU"L=?v*g]5rFWtFJjXK*jro?PaqcWIqJwWPwhrowacxZNs0rTwRtnM:c3(;=*8&%uãU"p()%9%%%I-%^SmxER905]?'[%%,s%%%,%%%%rf%sSfsXrfT,,ASU9d+u<=99SkOãU"RRN%w>:b+_NLhins+B\d%Eq(Y9$a_#Y(k#DrisLX]blobe&'-SF[mBrO#sZRn>=ãU"nLuXvsTQhHwa>fsP>N6jSRdJLYE*QF_2mfX7N37tDfãU"i5,N.cUCp3+'.tckAx)v+UwXg8dFo2+uFVJZeQfc[b9DIccPo\8uH*8c*jgqwZIãU"sj$eYCk>Zr4sEhvzAhp*v0U<()l[F/?J]1;%L7XjNWEi:ta[$JkkvgS:E4NqCF^ãU"W?3p4dv>ruFtt#]'vBs6OY**WZ[w[7?5TVXgit\s+BP1^t^X8fp0%,HgF[rarp.ãU"GZ-h8wsHtFkx9CSJ5dl0zG+tvgypDrXo1aLN\hnHNRbk;Tb>>u?.ni=Cb84HHc_ãU"XVMa9(Ao/qq8.v:K:_ofSQ[_;ulEP?tT/B-.vZBSLi>> Page 1 of TUNNEL.ZIP begins here. TYPE:BINAA TLEN:6362ãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.1ãSUB V1:OPEN "O",1,"TUNNEL.ZIP",4^6:Z&=6362:?STRING$(50,177);ãU"%up()%9%%%R-%DR\5E1Q>XQS'%%%y/%%%/%%%%yz%ssjq%SgfxNf%<>\jU5w5]=ãU"N]*n4X2HR).8LGpAzI;*Y$ifE4:#I>a.1(7bX'(qg3+;'%t;&(0J$yjVODB$q#'4gW)1ãU"r(+.J;80a^Q?'4:wR9z]:77e6%9Ev4D48y;l0H^MU>D-/rt-[]%SZ\s&3?/>MXdãU"Sb?_a0#Is^]8lFB71M8(9Pk3Z3k\NEhaW_1,gf+l:B2=W89RmYFX4\W]mgV*\AhãU"RkLRA37wU3rW]k6/gQPKMr1/[hEa-?*[2()<[sa(:*.PvGsUq)T)#mPzf/h,u'x)4b<zh,r&1#X=$J4_AZZ=J7HmKQA^[UGH#sUIlFY]fU'-F.5)D1O\$\QCf0,qreV'i]u0\k[MaFxãU"Yp/%)-&_^EB/3F218?DQl,'[0yfwI+Uh&'IoEoauI(9^[o0a(&]'<%&syu(8?=]ãU"%*Im/.o+e&A>&,PM1rQEL(]*o[1]3uux$xg9,uvooF\'4NW^i6GzRVxuQIu)S)AãU".=RA7puGK]W;0R]C%2xRLfn]D]HhCrlf/MZ*o(O]ntSKkG7.B[Gg)Z^>H>M9I.r.WsBp;/3qPgm.V[\:qbTiKxFroNlbO[]$J#+yxb;A$LtI1EQãU"V#-CK'K8THbmY,:PG+]pV;\j%LEH0Ro$gMEBJ&%t_5G9&+&X&mb*a*7S=oo&1[LãU"C?ghV60YIYB6Kr;?+Z\>[L:$i.GQjm)XY1]QNk9)gi1\QR)H=Iqh.8mjiH+)HK=ãU"d8afY(YQX.BGG]j8/P:^+)$7a>^Yr).<5;H<1_YGAQ<7+^q?.:/t)f6W5WYADQfãU"5+^j?Z:%Z)TJnG^:.F)(EG4J:D)R\55Y$Y.6eaIQj)_j/4:%r)\8ou):dF.We?=ãU"#:H7r5XY$a-Wqi:;Q07r5\Y$a.WsiKh-MXEYl)Fj55ZYUsQxdcYV)hOHqDQ0XEGãU"dB:,-M,bYd7TUring-MVY;-Qv)Kp6Kg9Y%:lg.MnY&2)hq8^8uFB:D6K,QYt-0wãU"\Qtg6KiY%X)47VKeYB^)nLq9H)x$$:n7u4>:f-Nwa/\9YE:HC)^6KbdY5:*P/b]ãU"&O,i%>Q'D%1i-^+)1O$%^-w3Z]MD(k1%Wz3-JIFAF_=h>=g>T\Pz#QFL9zN%4,MãU"S9ol-$2/y3y*YQSExi_=s>OGN#2cEf-$oJyL);ydVZeVu3OO_wf9ZN\#ãU"9wC8(3e+_BPP,ut8tmFheBxc,HnmwVnBORP#Axs^mNeGSsrKIV4bm[>1j<+NK6\ãU"?0>JT[osnsUnja;bdw-g;ZdBdd$aBC*Umn.-4&DprlAkMi#2m2F*bJ)B,QMXJ&qxH_Ubq8WBa(6L(]qXH7_$%52Q]'c3cajDU_Woju-H7pGiT9jãU"n)F:Kk:8ma,[\pxesBYt,eGB/2c9D+L:E]9:BjdsD>,$Yaab^gU1jhEJG^eED=sãU"K9C&f_pQ4\wlE0/yf<[HfhAsLh4MKjq\;Y-lk+jt8PVh_Sdhooj[-rO^FF32RiMãU"(Q4M;oDG9cWY[,]'/Ke;y2;0mn=XU'h\nH[A#6(-b1S6[LY01#Y82shGM*DUtydh:.av/dYv.U7Zf\5u4=W:[HjiI)a^.iasYkãU"WqgM-Zr=C;V40jgwDE?QuoT=Qp=Xw9Zm*&J_K$jJ_[/P]//>/_p]X'>h;OwoDU3ãU"1L*zi2BSTfP^XX]P>4=%&x%X\.6eAkkU=O,HX,UE5S&'&C.;ONsk*9G,DF^*QnRãU"Rjv31m+KB\+g\g78^lWcbn%/.TX2^/E9b8'Z>/-q8e*VAX;aG=O9-BOge7p8K#lãU"rvxB(NC2ud1IEt*u8XY9jDCgJoROK()GN2PfV3%]/4?gupIWE'mdGd/:QQ><7$2ãU"<0qOHavc>f/Z#XR+]RHI'7L$WgS+H/r[UFgTT'N,1k*G].LbFf>xVpZ&3I_AZD2ãU"=cp7be[-/wCO5Y9MD*QfSwW8o6FgjtE>095YpfYF%(NI(lUP9T%c$C]/c$6XfK9,3JFy'0BiRt&o-nc.5#ToW\HlA\_583YZVz+4lD,ht?D$OF]\N[#BU-_g/9V#[jXqK]['IBRVãU"u+Y1LG]YfGqIVJ0*Ic7t9e_('/4S>9;)*W9:i;$/U[LC[TfGnb7fNQ=UMut-b%evj4^8t(Z^XnM'=<5DGJVePãU"_]9j&DzT/wjCht-X%FyTEdN:Hm0N//Cua&D^([^;Ck:]-&e>9:ajmh%GfYpT#0bãU".;VoZ=.&9i7cEJk_dT,XO?[VH#.Xe).Kqe;?Q2lCy7aC9b_6LOgljeY2m9D\B(v_._b'2D=tD-T3-buXN50QgCspIn%ãU"]#aA#+b'Wu-dgTP_3gdC2)3N7(*FoF3^ETdy)Mox,dKZ>vRr^-dRk?N;XQc^^j/ãU"&Pm6bl>D;Ea(K0Z-N6RyeujrYmD/N7m(vSSUu(jEr1&mag_LbX>iK$9[x'S6^n,,:>7,DBHlB__y?jr.-G&(RJ^aEjz96u'H?rãU"KqI%,FF4HA\h.Pl/:Zj*fLFP3#pFBaVgv,Qv&+A^tHgi4Tm5W/9i:?cwfuODkoZVs_7\MX8S#p]YmMtZ+7OBXLdr^u-#)tO._K/ca'ãU"uQ]YOXQWwR:bC89*v+;Y\dpx28(7CãU"M8gd8E2NxA/4RsXdkQh/xla$Nl4(i.OãU"YR6'uCIY#Wr;1PhG[cev/04O1ZMe'H<;XS,9*za6UqdaHnr;CwuRQYVb?WQXFQlãU"Bb3F$-b8-TOV8JTgAu,;C?u,TtH%w)/_2Y5)V]0DE97jCCwg&N1(Y7u%eRyd.8wãU"FvNva\_Uh2E]mhF:A.xj1AWL*=8+/N]V>U^xsk[^x86b[xxH-Vh1SZgl^_Y0d2]ãU"[LA.S*Eg6cfCi=]ucSwjXL)J+%0N3kMVg<-k8:^8u#>/tuT=Pbgg5pH+oTZW4(wãU"DS#TL=:VYb6n#JL\j6x6>28;Kx;K).XXKZau'W#rTul45ZvaAwa5Z=LuEfBeNP.f$tkc_hzb88[8Sn8?Dp(m>U2%mtXB\_qqHW)MãU"Zf^l8bLaFb\%d#ARXq\^*h'KvD=r%wFAHBPngR.6l(rO*L^WH=_s]PdãU"fU5_?7KLFyOR&<'iCYzcbzdEI4ZED](D]vJQq4hQe?^kgL+iU7b%P[JI92Uz&ErãU"2rtRZkS:mq'6D1$;]gj4dL>EPa/g4ctQ4U;2R?CCDoc,L2w_zyZG9S+/$r:s*3ãU"l__;e3o+:c^PTN1S9#b17Y[NR3&z+;msZNIQ*%)%g4R^ms#R_ZaU<\VJU3Vv(CEãU"w8fet9]_+%:J\uD,4E-=>qS*dk;-)h1ls;LKr2EJe:)4v:^9KF3yFXL;sPpuTHeãU"HMkEk/Xt28T>mo+&Ip*$6#%m9Gf(AO%6CoiEC5EAKj;lO.CnnMef&_5P+=KcYg'ãU"I0T0SIFR\V3LTjn-e_,6]&N'up%()9%%%%-%3MW]Dl:)T:&w&%%%4+%%%-%%%%uãU"qty%Sqng9fyHp]TuAxH7_l2T4'tKNwtslY*omhkk4crMcuX5ãU"pv?kkv.YO#2+_;YE%6(_Z8h>[+Q#9%s'2jY55hRIx)_af:DU=)ZL3slãU"HDspEAOwTIF9eRPsTCj(p/+%5cK$)\^e%O;b&yp.dXP1umsVM8IUc#hYH%uwY]RãU"iMJRe2%*veS>T8Gqg*_L.>Y9qF$vZOO]3-Bq.V'^gr9Lq:VVreeei%60_Ece4Qej56jq4D1fYe/8qWC97oQbn&L\I&;);Uz%JUQoãU"PfDGFV&%0)bgCZ]+RHgX>0We*k0Hiv/3R9'W)RA6[ud>MhRV_j\8SJ9#/65521$ãU"kmn,#sy?gaet9kA8rt'XmQX)an#FJbTAIa2\>OwjpFXAce26*#Jn/\xK#Z$/pMtãU"QUW#FfTc9J?$>?6L6cY4lPh7J'g$DkCY*M*7wPmio.%s?ew[rg?ukQ-'\hto3\rãU"Laq<9t7Z9Uj>>a&2oBBhX)PszCp,,*MIB,d1dySZDScy'c/rl\3sQ8Rj#%ãU"dLk)GH,+4-4#pkDoZqUpoZs.R'R'q&up%&'9%%9%%%R-%DR\5E1Q>XQS'%%%y/%ãU"%%/%%%%%%%%%&%%E%%%%%%%%%yzss%jqSg%fxup%&'9%%9%%%R-%NWS]D;f)B%WãU"6.%%+?%%%-%%%%%%%%%%%%E%%%%'(%%%uqty%Svqg%up&'%9%9%%%%-%3MW]Dl:ãU")T:&w&%%%4+%%%-%%%%%%%%%%%E%.%%)9%%%uq%tySq%ngup%&'9%%9%%%R-%JWãU"/]DZM/Mmk&.%%]/%%%-%%%%%%%%%&%%E%%%%M;%%%uqty%Sfxr%up*+%%%%%%)%ãU")%'S%%%'c<%%%%%ãEND SUBãCLOSE:IF S=37AND 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ã'>>> Page 1 of TUNNEL.ZIP ends here. Last page. TCHK:37ãEinar Tveit GRAPHICS DRAWING PROGRAM comp.lang.basic.misc 04-12-96 (23:28) QB, QBasic, PDS 694 13266 DRAW.BAS DECLARE SUB Refresh (file$, colors%)ãREM The intro was made with this program!!!ãREM Hi, this program was made by Espen Tveit (me) to make it easyãREM programming graphic in qbasic, when you have printed your filenameãREM push enter and start drawing. If you have any comments send them to me:ãREMãREM eintveit@telepost.noãREM ãREM I`m on the newsgroups:ãREM comp.os.ms-dos.programmerãREM comp.lang.basic.miscãREMãREM Notice: This program automatic sets .bas behind the filnameãREM (This program will make an .qtf file, if you wants to open the file laterãREM just print the filename and this program will open the .qtf file)ãREM ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜãREM I`m just programmingãREM ßßßßßßßßßßßßßßßßßßßßãDEFINT A-ZãScreenmode = 8ãVIEW PRINT 1 TO 25ãStartcolor = 10ãSCREEN ScreenmodeãON KEY(1) GOSUB helpãKEY(1) ONãSCREEN ScreenmodeãLINE (2, 2)-(2, 630), 7ãLINE (3, 2)-(3, 630), 8ãLINE (1, 1)-(638, 198), 7, BãLINE (1, 99)-(637, 99)ãLINE (0, 0)-(639, 199), 7, BãLINE (2, 197)-(636, 197)ãLINE (636, 2)-(636, 2)ãLINE (1, 102)-(638, 102), 8ãLINE (1, 100)-(638, 101), 7, BãLINE (252, 3)-(252, 21), 8ãLINE (352, 2)-(352, 21), 8ãLINE (249, 22)-(352, 22), 8ãLINE (249, 3)-(249, 21)ãLINE (250, 1)-(251, 20), 7, BFãLINE (250, 20)-(350, 21), 7, BFãLINE (350, 1)-(351, 21), 7, BFãLINE (2, 2)-(638, 2), 8ãLINE (252, 19)-(348, 19), 15ãLINE (349, 3)-(349, 19), 15ãCOLOR 7ãLOCATE 2, 34: PRINT "Qdraw 5.0"ãLOCATE 5, 31: PRINT "Espen Tveit 1996"ãLOCATE 15, 10: PRINT "Do not print somthing behind the filname such as .bas"ãLOCATE 17, 10: INPUT "File: ", fi$ãfile$ = fi$ + ".qtf"ãfil$ = fi$ + ".bas"ãOPEN fil$ FOR APPEND AS #1ãOPEN file$ FOR APPEND AS #2ãCLSãcolors% = StartcolorãA = 5ãB = 5ãPRINT #1, "SCREEN "; Screenmodeãbeveg:ãFOR o% = 1 TO 15 STEP 1ãP = P + 1ãCOLOR o%ãLOCATE 23, P: PRINT "Û"ãCOLOR 15ãLOCATE 23, 17: PRINT "Using color: "ãCOLOR colors%ãLOCATE 23, 17 + 15: PRINT "Û"ãNEXT o%ãCOLOR 15ãLOCATE 22, colors%: PRINT ""ãDOãIF wh = 1 THENãGOSUB filãEND IFãPSET (A, B), colors%ãSELECT CASE INKEY$ãCASE "*"ãCLOSE #1ãCLOSE #2ãCLOSE #3ãRefresh file$, colors%ãCLOSE #1ãCLOSE #2ãCLOSE #3ãOPEN fil$ FOR APPEND AS #1ãOPEN file$ FOR APPEND AS #2ãCASE "1"ãGOSUB sirkelãCASE CHR$(0) + CHR$(83)ãN = 1ãK = 1ãwh = 1ãPRINT #2, "P"ãPRINT #2, AãPRINT #2, BãPRINT #2, "0"ãPRINT #2,ãPRINT #2,ãPRINT #1, "PSET ("; A; ","; B; "), 0"ããCASE "+"ãCOLOR 0ãLOCATE 22, colors%: PRINT ""ãcolors% = colors% + 1ãIF colors% = 16 THEN colors% = 15ãCOLOR colors%ãCOLOR 15ãLOCATE 22, colors%: PRINT ""ãCOLOR colors%ãLOCATE 23, 17 + 15: PRINT "Û"ãCASE "-"ãCOLOR 0ãLOCATE 22, colors%: PRINT ""ãcolors% = colors% - 1ãIF colors% = 0 THEN colors% = 1ãCOLOR colors%ãCOLOR 15ãLOCATE 22, colors%: PRINT ""ãCOLOR colors%ãLOCATE 23, 17 + 15: PRINT "Û"ãCASE CHR$(32)ãN = 1ãK = 1ãwh = 1ããPRINT #2, "P"ãPRINT #2, AãPRINT #2, BãPRINT #2, colors%ãPRINT #2,ãPRINT #2,ãPRINT #1, "PSET ("; A; ","; B; "), "; colors%ãCASE "3"ãBEG = 0ãBEG1 = 0ãBEG = BEG + AãBEG1 = BEG1 + BãGOSUB firkant1ãCASE "4"ãBEG = 0ãBEG1 = 0ãBEG = BEG + AãBEG1 = BEG1 + BãGOSUB strekãCASE "2"ãBEG = 0ãBEG1 = 0ãBEG = BEG + AãBEG1 = BEG1 + BãGOSUB firkantãCASE CHR$(0) + "P"ãIF K = 0 THENãPSET (A, B), 0ãEND IFãB = B + 1ãPSET (A, B), colors%ãIF ET = 1 THENãGOSUB lagreãELSEãK = 0ãEND IFãCASE "5"ãCOLOR colors%ãOL = A / 8ãOL1 = B / 8ãIF OL = 0 THEN OL = 1ãIF OL1 = 0 THEN OL1 = 1ãLOCATE OL1, OL: INPUT "", f$ãIF PEN$ = "I" OR PEN$ = "i" THENãN = 1ãK = 1ãwh = 1ãPRINT #2, "Tekst"ãPRINT #2, OL1ãPRINT #2, OLãPRINT #2, f$ãPRINT #2, colors%ãPRINT #2,ãELSEãPRINT #1, "COLOR "; colors%ãPRINT #1, "LOCATE"; OL1; ","; OL; ":"; "PRINT "; CHR$(34); f$; CHR$(34)ãPRINT #1, "COLOR 15"ãN = 1ãK = 1ãwh = 1ãPRINT #2, "Tekst"ãPRINT #2, OL1ãPRINT #2, OLãPRINT #2, f$ãPRINT #2, colors%ãPRINT #2,ãEND IFããCASE CHR$(0) + "K"ãIF K = 0 THENãPSET (A, B), 0ãEND IFãA = A - 1ãPSET (A, B), colors%ãIF ET = 1 THENãGOSUB lagreãELSEãK = 0ãEND IFãCASE CHR$(27)ãPRINT #1, "DO"ãPRINT #1, "LOOP"ãCLSãENDãCASE CHR$(0) + "M"ãIF K = 0 THENãPSET (A, B), 0ãEND IFãA = A + 1ãPSET (A, B), colors%ãIF ET = 1 THENãGOSUB lagreãELSEãK = 0ãEND IFãEND SELECTãLOOPããhelp:ãCLSãCOLOR 15ãVIEW PRINT 1 TO 25ãLINE (131, 28)-(131, 28), 7ãLINE (131, 28)-(506, 97), 7, BãLINE (506, 98)-(131, 98), 8ãLINE (130, 98)-(130, 27), 15ãLINE (130, 27)-(506, 27), 15ãLINE (507, 27)-(507, 98), 8ãLINE (505, 96)-(132, 96), 15ãLINE (132, 96)-(132, 29), 8ãLINE (505, 29)-(505, 96), 15ãLOCATE 1, 23: PRINT "Ï Help for Qdraw 4.0 Ï"ãLOCATE 5, 18: PRINT "Push to get help"ãLOCATE 6, 18: PRINT "Push <*> to refresh"ãLOCATE 7, 18: PRINT "Push to draw a point on the screen"ãLOCATE 8, 18: PRINT "Push <1> to draw an circle"ãLOCATE 9, 18: PRINT "Push <2> to draw an square"ãLOCATE 10, 18: PRINT "Push <3> to make an filled square"ãLOCATE 11, 18: PRINT "Push <4> to make a line"ãLOCATE 12, 18: PRINT "Push <5> to set in text"ãLOCATE 17, 20: PRINT "Espen Tveit 1996"ãLOCATE 23, 18: PRINT "Press a key to continue..."ãDOãLOOP WHILE INKEY$ = ""ãCLSãP = 0ãPSET (A, B), colors%ãFOR o% = 1 TO 15 STEP 1ãP = P + 1ãCOLOR o%ãLOCATE 23, P: PRINT "Û"ãCOLOR 15ãLOCATE 23, 17: PRINT "Bruker farge: "ãCOLOR colors%ãLOCATE 23, 17 + 15: PRINT "Û"ãNEXT o%ãCOLOR 15ãLOCATE 22, colors%: PRINT ""ãIF wh = 0 THEN RETURNãIF OK1 = 0 THENãOK1 = 1ãCLOSE #1ãCLOSE #2ãOPEN file$ FOR INPUT AS #3ãEND IFãDO UNTIL EOF(3)ãLINE INPUT #3, valg$ãIF valg$ = "T" THENãLINE INPUT #3, rec$ãOL1 = VAL(rec$)ãLINE INPUT #3, rec$ãOL = VAL(rec$)ãLINE INPUT #3, rec$ãLINE INPUT #3, farge$ãKL = VAL(farge$)ãCOLOR KLãLOCATE OL1, OL: PRINT rec$ãCOLOR 15ãEND IFãIF valg$ = "P" THENã LINE INPUT #3, rec$ã G = VAL(rec$)ãã LINE INPUT #3, rec$ã H = VAL(rec$)ãã LINE INPUT #3, rec$ã LINE INPUT #3, o$ã Q = VAL(rec$)ã PSET (G, H), QãEND IFãIF valg$ = "BF" THENãLINE INPUT #3, rec$ãG = VAL(rec$)ãLINE INPUT #3, rec$ãH = VAL(rec$)ãLINE INPUT #3, rec$ãI = VAL(rec$)ãLINE INPUT #3, rec$ãJ = VAL(rec$)ãLINE INPUT #3, rec$ãCF = VAL(rec$)ãLINE (G, H)-(I, J), CF, BFãEND IFãIF valg$ = "B" THENãLINE INPUT #3, rec$ãG = VAL(rec$)ãLINE INPUT #3, rec$ãH = VAL(rec$)ãLINE INPUT #3, rec$ãI = VAL(rec$)ãLINE INPUT #3, rec$ãJ = VAL(rec$)ãLINE INPUT #3, rec$ãCF = VAL(rec$)ãLINE (G, H)-(I, J), CF, BãEND IFããIF valg$ = "Strek" THENãLINE INPUT #3, rec$ãG = VAL(rec$)ãLINE INPUT #3, rec$ãH = VAL(rec$)ãLINE INPUT #3, rec$ãI = VAL(rec$)ãLINE INPUT #3, rec$ãJ = VAL(rec$)ãLINE INPUT #3, rec$ãCF = VAL(rec$)ãLINE (G, H)-(I, J), CFãEND IFãIF valg$ = "S" THENãLINE INPUT #3, rec$ãG = VAL(rec$)ãLINE INPUT #3, rec$ãH = VAL(rec$)ãLINE INPUT #3, rec$ãRADIUS = VAL(rec$)ãLINE INPUT #3, rec$ãCF = VAL(rec$)ãCIRCLE (G, H), RADIUS, CFãEND IFãLOOPãCLOSE #1ãCLOSE #2ãOPEN fil$ FOR APPEND AS #1ãCLOSE #2ãOPEN file$ FOR APPEND AS #2ãRETURNãããlagre:ãN = 1ãK = 1ãwh = 1ããPRINT #2, "P"ãPRINT #2, AãPRINT #2, BãPRINT #2, colors%ãPRINT #2,ãPRINT #2,ãPRINT #1, "PSET ("; A; ","; B; "), "; colors%ãRETURNããfirkant:ãLINE (BEG, BEG1)-(A, B), colors%, BãDOãSELECT CASE INKEY$ãCASE CHR$(0) + "H"ãLINE (BEG, BEG1)-(A, B), 0, BãB = B - 1ãLINE (BEG, BEG1)-(A, B), colors%, BãCASE CHR$(0) + "P"ãLINE (BEG, BEG1)-(A, B), 0, BãB = B + 1ãLINE (BEG, BEG1)-(A, B), colors%, BãCASE "+"ãCOLOR 0ãLOCATE 22, colors%: PRINT ""ãcolors% = colors% + 1ãCOLOR colors%ãCOLOR 15ãLOCATE 22, colors%: PRINT ""ãCOLOR colors%ãLOCATE 23, 17 + 15: PRINT "Û"ãCASE "-"ãCOLOR 0ãLOCATE 22, colors%: PRINT ""ãcolors% = colors% - 1ãCOLOR colors%ãCOLOR 15ãLOCATE 22, colors%: PRINT ""ãCOLOR colors%ãLOCATE 23, 17 + 15: PRINT "Û"ãCASE CHR$(0) + "K"ãLINE (BEG, BEG1)-(A, B), 0, BãA = A - 1ãLINE (BEG, BEG1)-(A, B), colors%, BãCASE CHR$(0) + "M"ãLINE (BEG, BEG1)-(A, B), 0, BãA = A + 1ãLINE (BEG, BEG1)-(A, B), colors%, BãCASE CHR$(13)ãN = 1ãK = 1ãwh = 1ãPRINT #1, "LINE ("; BEG; ","; BEG1; ")-("; A; ","; B; ") ,"; colors%; ", B"ãPRINT #2, "B"ãPRINT #2, BEGãPRINT #2, BEG1ãPRINT #2, AãPRINT #2, BãPRINT #2, colors%ãN = 1ãK = 1ãwh = 1ãRETURNãEND SELECTãLOOPããfirkant1:ãLINE (BEG, BEG1)-(A, B), colors%, BFãDOãSELECT CASE INKEY$ãCASE CHR$(0) + "H"ãLINE (BEG, BEG1)-(A, B), 0, BFãB = B - 1ãLINE (BEG, BEG1)-(A, B), colors%, BFãCASE CHR$(0) + "P"ãLINE (BEG, BEG1)-(A, B), 0, BFãB = B + 1ãLINE (BEG, BEG1)-(A, B), colors%, BFãCASE "+"ãCOLOR 0ãLOCATE 22, colors%: PRINT ""ãcolors% = colors% + 1ãIF farge = 16 THEN farge = 15ãCOLOR colors%ãCOLOR 15ãLOCATE 22, colors%: PRINT ""ãCOLOR colors%ãLOCATE 23, 17 + 15: PRINT "Û"ãCASE "-"ãCOLOR 0ãLOCATE 22, colors%: PRINT ""ãcolors% = colors% - 1ãIF farge = 0 THEN farge = 1ãCOLOR colors%ãCOLOR 15ãLOCATE 22, colors%: PRINT ""ãCOLOR colors%ãLOCATE 23, 17 + 15: PRINT "Û"ãCASE CHR$(0) + "K"ãLINE (BEG, BEG1)-(A, B), 0, BFãA = A - 1ãLINE (BEG, BEG1)-(A, B), colors%, BFãCASE CHR$(0) + "M"ãLINE (BEG, BEG1)-(A, B), 0, BFãA = A + 1ãLINE (BEG, BEG1)-(A, B), colors%, BFãCASE CHR$(13)ãN = 1ãK = 1ãwh = 1ãPRINT #1, "LINE ("; BEG; ","; BEG1; ")-("; A; ","; B; ") ,"; colors%; ", BF"ãPRINT #2, "BF"ãPRINT #2, BEGãPRINT #2, BEG1ãPRINT #2, AãPRINT #2, BãPRINT #2, colors%ãN = 1ãK = 1ãwh = 1ãRETURNãEND SELECTãLOOPããstrek:ãLINE (BEG, BEG1)-(A, B), colors%ãDOãSELECT CASE INKEY$ãCASE CHR$(0) + "H"ãLINE (BEG, BEG1)-(A, B), 0ãB = B - 1ãLINE (BEG, BEG1)-(A, B), colors%ãCASE CHR$(0) + "P"ãLINE (BEG, BEG1)-(A, B), 0ãB = B + 1ãLINE (BEG, BEG1)-(A, B), colors%ãCASE "+"ãCOLOR 0ãLOCATE 22, colors%: PRINT ""ãcolors% = colors% + 1ãCOLOR colors%ãCOLOR 15ãLOCATE 22, colors%: PRINT ""ãCOLOR colors%ãLOCATE 23, 17 + 15: PRINT "Û"ãCASE "-"ãCOLOR 0ãLOCATE 22, colors%: PRINT ""ãcolors% = colors% - 1ãCOLOR colors%ãCOLOR 15ãLOCATE 22, colors%: PRINT ""ãCOLOR colors%ãLOCATE 23, 17 + 15: PRINT "Û"ãCASE CHR$(0) + "K"ãLINE (BEG, BEG1)-(A, B), 0ãA = A - 1ãLINE (BEG, BEG1)-(A, B), colors%ãCASE CHR$(0) + "M"ãLINE (BEG, BEG1)-(A, B), 0ãA = A + 1ãLINE (BEG, BEG1)-(A, B), colors%ãCASE CHR$(13)ãN = 1ãK = 1ãwh = 1ãPRINT #1, "LINE ("; BEG; ","; BEG1; ")-("; A; ","; B; ") ,"; colors%ãPRINT #2, "Strek"ãPRINT #2, BEGãPRINT #2, BEG1ãPRINT #2, AãPRINT #2, BãPRINT #2, colors%ãN = 1ãK = 1ãwh = 1ãRETURNãEND SELECTãLOOPãããsirkel:ãDOãSELECT CASE INKEY$ãCASE "+"ãCOLOR 0ãLOCATE 22, plass%: PRINT ""ãcolors% = colors% + 1ãCOLOR colors%ãCOLOR 15ãplass% = colors% + 1ãLOCATE 22, plass%: PRINT ""ãCOLOR colors%ãLOCATE 23, 18 + 20: PRINT "Û"ãCASE "-"ãCOLOR 0ãLOCATE 22, plass%: PRINT ""ãcolors% = colors% - 1ãCOLOR colors%ãCOLOR 15ãplass% = colors% - 1ãIF colors% = 0 THENãplass% = 2ãcolors% = 1ãEND IFãLOCATE 22, plass%: PRINT ""ãCOLOR colors%ãLOCATE 23, 18 + 20: PRINT "Û"ãCASE CHR$(0) + "H"ãCIRCLE (A, B), RADIUS, 0ãRADIUS = RADIUS + 1ãCIRCLE (A, B), RADIUS, colors%ããCASE CHR$(0) + "P"ãCIRCLE (A, B), RADIUS, 0ãRADIUS = RADIUS - 1ãIF RADIUS = 0 THEN RADIUS = 1ãCIRCLE (A, B), RADIUS, colors%ãCASE CHR$(13)ãPRINT #1, "CIRCLE ("; A; ","; B; "),"; RADIUS; ","; colors%ãwh = 1ãPRINT #2, "S"ãPRINT #2, AãPRINT #2, BãPRINT #2, RADIUSãPRINT #2, colors%ãRETURNãEND SELECTãLOOPããfil:ãRETURNããSUB Refresh (file$, colors%)ãOPEN file$ FOR INPUT AS #1ãP = 0ãFOR o% = 1 TO 15 STEP 1ãP = P + 1ãCOLOR o%ãLOCATE 23, P: PRINT "Û"ãCOLOR 15ãLOCATE 23, 17: PRINT "Bruker farge: "ãCOLOR colors%ãLOCATE 23, 17 + 15: PRINT "Û"ãNEXT o%ãCOLOR 15ãLOCATE 22, colors%: PRINT ""ãã DOã IF EOF(1) THENã GOTO sluttãEND IFã LINE INPUT #1, valg$ã IF valg$ = "T" THENã LINE INPUT #1, rec$ã OL1 = VAL(rec$)ã LINE INPUT #1, rec$ã OL = VAL(rec$)ã LINE INPUT #1, rec$ã LINE INPUT #1, farge$ã KL = VAL(farge$)ã COLOR KLã LOCATE OL1, OL: PRINT rec$ã COLOR 15ã END IFã IF valg$ = "P" THENã LINE INPUT #1, rec$ã G = VAL(rec$)ã LINE INPUT #1, rec$ã H = VAL(rec$)ã LINE INPUT #1, rec$ã LINE INPUT #1, o$ã Q = VAL(rec$)ã PSET (G, H), Qã END IFãã IF valg$ = "BF" THENã LINE INPUT #1, rec$ã G = VAL(rec$)ã LINE INPUT #1, rec$ã H = VAL(rec$)ã LINE INPUT #1, rec$ã I = VAL(rec$)ã LINE INPUT #1, rec$ã J = VAL(rec$)ã LINE INPUT #1, rec$ã CF = VAL(rec$)ã LINE (G, H)-(I, J), CF, BFã END IFã IF valg$ = "B" THENã LINE INPUT #1, rec$ã G = VAL(rec$)ã LINE INPUT #1, rec$ã H = VAL(rec$)ã LINE INPUT #1, rec$ã I = VAL(rec$)ã LINE INPUT #1, rec$ã J = VAL(rec$)ã LINE INPUT #1, rec$ã CF = VAL(rec$)ã LINE (G, H)-(I, J), CF, Bã END IFãã IF valg$ = "Strek" THENã LINE INPUT #1, rec$ã G = VAL(rec$)ã LINE INPUT #1, rec$ã H = VAL(rec$)ã LINE INPUT #1, rec$ã I = VAL(rec$)ã LINE INPUT #1, rec$ã J = VAL(rec$)ã LINE INPUT #1, rec$ã CF = VAL(rec$)ã LINE (G, H)-(I, J), CFã END IFã IF valg$ = "S" THENã LINE INPUT #1, rec$ã G = VAL(rec$)ã LINE INPUT #1, rec$ã H = VAL(rec$)ã LINE INPUT #1, rec$ã RADIUS = VAL(rec$)ã LINE INPUT #1, rec$ã CF = VAL(rec$)ã CIRCLE (G, H), RADIUS, CFã END IFã LOOPã RETURNããslutt:ãEND SUBããAndrew Jones BOUNCING WORM FidoNet QUIK_BAS Echo 04-14-96 (14:40) QB, QBasic, PDS 63 1537 WORM.BAS 'Here's a trippy VGA screensaver of a WORM moving on a VGA background. Heã'moves and is animated... One problem is he starts leaving black spotsã'after awhile, you'll see itããDECLARE SUB animate (qq%)ãDEFINT A-ZãSCREEN 13ãRANDOMIZE TIMERãd = 8ãv = 1ãq = 1ãx = 160ãy = 100ãxd = INT(RND * 4) + 2ãyd = INT(RND * 4) + 2ãIF INT(RND * 10) > 5 THEN xd = -xd ELSE xd = ABS(xd)ãIF INT(RND * 10) > 5 THEN yd = -yd ELSE yd = ABS(yd)ãFOR t = 0 TO 100ãLINE (0, t)-(319, t), 200 - tãLINE (0, 200 - t)-(319, 200 - t), tã ãLINE (t, t)-(319 - t, t), tãLINE (t, 200 - t)-(319 - t, 200 - t), 200 - tãNEXTãDOãIF INT(RND * 30) + 1 = 15 AND xd < 0 THEN xd = xd - 1ãIF xd = -1 THEN xd = 2ãIF xd = -6 THEN xd = -5ãIF INT(RND * 30) + 1 = 15 AND xd > 0 THEN xd = xd + 1ãIF xd = 1 THEN xd = -2ãIF xd = 6 THEN xd = -5ãIF INT(RND * 30) + 1 = 15 AND yd > 0 THEN yd = yd + 1ãIF yd = 1 THEN yd = -2ãIF yd = -6 THEN yd = -5ãIF INT(RND * 30) + 1 = 15 AND yd < 0 THEN yd = yd - 1ãIF yd = -1 THEN yd = 2ãIF yd = 6 THEN yd = 5ãFOR t = 1 TO 8ãCIRCLE (x, y), 15 - t, q + tãCIRCLE (x + 1, y), 15 - t, q + tãNEXTãx = x + xdãy = y + ydãIF x < 3 AND xd < 0 THEN xd = ABS(xd)ãIF x > 316 AND xd > 0 THEN xd = -xdãIF y < 3 AND yd < 0 THEN yd = ABS(yd)ãIF y > 196 AND yd > 0 THEN yd = -ydãq = q + 1ãIF q = 255 THEN q = 1ãv = v + dãIF v = 400 THEN d = -8ãIF v = 0 THEN d = 8ãanimate vãLOOPã ãSUB animate (qq)ãOUT &H3C8, 1ãFOR t = 1 TO 255ãOUT &H3C9, (t + qq)ãOUT &H3C9, (t + qq) \ 2ãOUT &H3C9, (t + qq) \ 4ãNEXTãEND SUBãAndrew Jones BOX ENLARGES AS BALL BOUNCES FidoNet QUIK_BAS Echo 04-14-96 (14:42) QB, QBasic, PDS 62 1347 BOXBALL.BAS 'Sorry about that profanity in BOB.BAS, just saw it as I was cruisingã'through my programs..eek.. here's an EGA demonstration:)ããDEFINT A-ZãCONST numstars = 30ãapage = 0ãvpage = 1ãx = 0ãy = 0ãbx = 6ãby = 7ãd = 1ãb = 1ãq = 4ãDIM sx(numstars)ãDIM sy(numstars)ãDIM sc(numstars)ãSCREEN 7ãFOR t = 0 TO numstarsãsx(t) = INT(RND * 320)ãsy(t) = INT(RND * 320)ãsc(t) = INT(RND * 3) + 1ãIF sc(t) = 1 THEN sc(t) = 8ãIF sc(t) = 2 THEN sc(t) = 7ãIF sc(t) = 3 THEN sc(t) = 15ãNEXTãDOãSCREEN 7, , apage, vpageãDRAW "TA" + STR$(b) + "S" + STR$(q)ãDRAW "c15bm160,100u20r20c8d20l20c15c8u20c15e10r20e-10d20e10u20"ãFOR t = 0 TO numstarsãIF sx(t) = 0 AND sy(t) = 0 THENãsx(t) = INT(RND * 20) + 300ãsy(t) = INT(RND * 200)ãsc(t) = INT(RND * 3) + 1ãIF sc(t) = 1 THEN sc(t) = 8ãIF sc(t) = 2 THEN sc(t) = 7ãIF sc(t) = 3 THEN sc(t) = 15ãEND IFãPSET (sx(t), sy(t)), sc(t)ãsx(t) = sx(t) - sc(t)ãIF sx(t) < 0 THEN sx(t) = 0: sy(t) = 0ãNEXTãx = x + bxãy = y + byãIF x > 320 THEN bx = -bx: x = 320ãIF y > 200 THEN by = -by: y = 200ãIF x < 0 THEN bx = ABS(bx)ãIF y < 0 THEN by = ABS(by)ãCIRCLE (x, y), 2, 4ãCIRCLE (x, y), 1, 12ãCIRCLE (x + 1, y), 2, 4ãCIRCLE (x + 1, y), 1, 12ãSWAP apage, vpageãSCREEN 7, , apage, vpageãCLS 1ãb = b + 10ãq = q + dãIF q >= 22 THEN d = -1ãIF q = 4 THEN d = 1ãIF b >= 360 THEN b = 1ãLOOPãAndrew Jones SNOWY RAIN FidoNet QUIK_BAS Echo 04-14-96 (14:43) QB, QBasic, PDS 26 529 SNOWRAIN.BAS'Snowy Rain. I think it's rad, tell me what you think:)ããDEFINT A-ZãON KEY(1) GOSUB fofoãKEY(1) ONãCONST snow = 10ãDIM sx(snow)ãDIM sy(snow)ãSCREEN 13ãFOR t = 0 TO snowãsx(t) = INT(RND * 320)ãsy(t) = INT(RND * 20)ãNEXTãDOãFOR t = 0 TO snowãIF sy(t) = 199 THEN sy(t) = 0: sx(t) = INT(RND * 320): sy(t) = INT(RND * 20)ãv = INT(RND * 15) + 1ãPSET (sx(t), sy(t)), v + 15ãIF v < 6 THEN sx(t) = sx(t) + 1ãIF v > 10 THEN sx(t) = sx(t) - 1ãsy(t) = sy(t) + 1ãIF sy(t) > 199 THEN sy(t) = 199ãNEXTãLOOPãfofo:ãENDãUnknown Author(s) MOUSE PAINT PROGRAM pages.prodigy.com/gamersp 04-01-96 (11:01) QB, PDS 1238 32348 DRAW!.BAS 'Click the right mouse button to open the menuãã'DRAW! v3.6 'Fixed I/O error, and a betterã 'printing routine. Now to printã 'just press 'P' while in the drawã 'space and DRAW! will remove theã 'mouse cursor from the screen andã 'print it.ãã'NOTE: QB 4.5 user PLEASE LOAD THE QB.QLB library! To do soã'start QB 4.5 like so at the command prompt:ã'C:\QB45>QB /L QBã'ãã'If you have any trouble loading a .PAL(palette file),ã'.PL1-4(EGA BSAVE files), or a .PIC(VGA BSAVE file) please sendã'me E-MAIL. And just so you know:ã'BSAVE files are based on code supplied by Dave Gentry fromã'VGA LESSON #39. PALette files are simple text format thatã'support 1 line per color and have 4 segments to a line. Here isã'the basic format for a PAL file:ã'Segment 1: Segment 2: Segment 3: Segment 4:ã'The COLOR # Red value Green value Blue valueã'(These can be read using INPUT #1, CO%,R%,G%,B%)ã'Once those values are read into memory use David Gilhams EGA/VGAã'palette routines:ã'OUT &H3C8, CO% 'Selects color to changeã'OUT &H3C9, R% 'Selects red valueã'OUT &H3C9, G% 'Selects green valueã'OUT &H3C9, B% 'Selects blue valueãã'Credits to:ã'ã'~Dave~ Gentry, for his BLOAD/BSAVE routines!ã'David Gillham, for his EGA palette routines.ã'ãDECLARE SUB PRINTIT ()ãDECLARE SUB PALIO (F$)ãDECLARE SUB SCREENIO (F$, flag!)ãDECLARE SUB SAVEPRINTER (PRNTRTYPE%)ãDECLARE SUB PRINTSETUP ()ãDECLARE SUB INTRO ()ãDECLARE SUB PAINTIT ()ãDECLARE SUB COPYIT ()ãDECLARE SUB TEXTFONT ()ãDECLARE SUB PALETTECHANGE ()ãDECLARE SUB WARN (RETURN.CODE%)ãDECLARE SUB CHANGESCREENMODE ()ãDECLARE SUB ZOBJ (SEL%)ãDECLARE SUB PLOT (XX%, YY%, X%, Y%)ãDECLARE SUB PLOTX (PX%, PY%)ãDECLARE SUB SAVEIT (OP%)ãDECLARE SUB ZOOM ()ãDECLARE SUB AIRBRUSH ()ãDECLARE SUB FONT (TEXT$, X%, Y%, stepX%, stepY%, CO!, Ang%)ãDECLARE SUB BUTTON (X1%, Y1%, X2%, Y2%, d%)ãDECLARE SUB DOODLE ()ãDECLARE SUB DRAWOBJ (OBJ%)ãDECLARE SUB POPOPS (SEL%)ãDECLARE SUB NEWDIR ()ãDECLARE SUB SETCOM ()ãDECLARE SUB SETUP ()ãDECLARE SUB NEWODIR ()ãDECLARE SUB TEXTBOX (BY!, BX!, EY!, EX!, ASCII!, C!, BC!, SHADOW, BS)ãDECLARE SUB BOX (BX, BY, EX, EY, B)ãDECLARE SUB Pause ()ãDECLARE SUB MOUSESTATUS (LB%, RB%, XMOUSE%, YMOUSE%)ãDECLARE SUB MouseRange (X1%, Y1%, X2%, Y2%)ãDECLARE SUB MousePut (X%, Y%)ãDECLARE SUB MOUSEHIDE ()ãDECLARE SUB MouseDriver (ax%, BX%, cx%, dx%)ãDECLARE SUB MOUSESHOW ()ãDECLARE FUNCTION MouseInit% ()ãDIM SHARED Mouse$ãDIM SHARED THICK%, CO%, SCREENMODE%, PLX%(100), FONTSIZE%ãCONST UP = 1ãCONST DOWN = 0ãCONST ZOOMHELP = 1 'Set to zero to disable ZOOM instructionsãFONTSIZE% = 1 'Set to default FONT sizeãSCREENMODE% = 7 'Set to default screen modeããMouse$ = SPACE$(57)ãFOR i% = 1 TO 57ã READ a$ã H$ = CHR$(VAL("&H" + a$))ã MID$(Mouse$, i%, 1) = H$ãNEXT i%ãDATA 55,89,E5,8B,5E,0C,8B,07,50,8B,5E,0A,8B,07,50,8BãDATA 5E,08,8B,0F,8B,5E,06,8B,17,5B,58,1E,07,CD,33,53ãDATA 8B,5E,0C,89,07,58,8B,5E,0A,89,07,8B,5E,08,89,0FãDATA 8B,5E,06,89,17,5D,CA,08,00ãCLS : THICK% = 10: CO% = 1ãms% = MouseInit%ãIF NOT ms% THENã PRINT "Mouse not found"ã ENDãEND IFãOPEN "DRAW!PAL.TMP" FOR OUTPUT AS #1: CLOSE #1ã'ON ERROR GOTO ERRORTRAPãCHANGEIT:ãSCREEN SCREENMODE%: PAINT (1, 1), 15: MOUSESHOWãFUNC% = 1ãin:ãK$ = INKEY$ãMOUSESTATUS LB%, RB%, X%, Y%ãIF FUNC% > 0 AND FUNC% < 6 THEN DRAWOBJ FUNC%ãIF FUNC% = 8 THEN DOODLEãIF FUNC% = 6 THEN AIRBRUSHãIF FUNC% = 7 THEN PAINTITãIF FUNC% = 9 THEN ZOOM: POPOPS FUNC%ãIF FUNC% = 10 THEN TEXTFONTãIF RB% = -1 THEN POPOPS FUNC%ãIF FUNC% = 99 THEN GOTO CHANGEITãIF K$ <> CHR$(27) THEN GOTO inãDATA G,a,m,e,r,s,'ãDATA P,a,r,a,d,i,s,eãDATA S,o,f,t,w,a,r,eãprintcode:ãDATA 205, 5, 203 : ' int 5 retf 'Machine-language codeã 'for printing screen.ã'ERRORTRAP:ã'PRINT "ERROR!! #";ERRã'RESUME NEXTããSUB AIRBRUSHãRANDOMIZE TIMERãMOUSESTATUS LB%, RB%, X%, Y%ãIF LB% = -1 THENãMOUSEHIDEãXX% = INT(RND(1) * THICK%) + 1ãYY% = INT(RND(1) * THICK%) + 1ãPSET (X% - XX% - 1, Y% - YY% - 1), CO%ãMOUSESHOWãEND IFãMOUSESHOWãEND SUBããSUB BUTTON (X1%, Y1%, X2%, Y2%, d%)ãIF d% = 1 THEN B1% = 15: B2% = 8ãIF d% = 0 THEN B1% = 8: B2% = 15ãLINE (X1%, Y1%)-(X2%, Y2%), 7, BFãLINE (X1%, Y1%)-(X2%, Y1%), B1%ãLINE (X1%, Y1%)-(X1%, Y2%), B1%ãLINE (X2%, Y1%)-(X2%, Y2%), B2%ãLINE (X1%, Y2%)-(X2%, Y2%), B2%ãEND SUBããSUB CHANGESCREENMODEãREDIM COVERUP5%(7000)ãREDIM MODES$(5)ãMODES$(1) = "320 X 200 X 16": MODES$(2) = "640 X 200 X 16"ãMODES$(3) = "640 X 350 X 16": MODES$(4) = "640 X 480 X 16"ãMODES$(5) = "320 X 200 X 256"ãGET (14, 14)-(161, 101), COVERUP5%ãBUTTON 14, 14, 161, 101, UPãBUTTON 15, 15, 160, 100, UPãBUTTON 17, 17, 30, 30, DOWN: LINE (18, 18)-(29, 29), 0: LINE (18, 29)-(29, 18), 0ãBUTTON 32, 17, 158, 30, UP: LINE (33, 18)-(157, 29), 9, BFãFONT "Screen modes", 34, 20, 6, 0, 15, 0ãFOR i% = 35 TO 90 STEP 12ãa = a + 1ãd% = 1ãIF a = 1 AND SCREENMODE% = 7 THEN d% = 0ãIF a = 2 AND SCREENMODE% = 8 THEN d% = 0ãIF a = 3 AND SCREENMODE% = 9 THEN d% = 0ãIF a = 4 AND SCREENMODE% = 12 THEN d% = 0ãIF a = 5 AND SCREENMODE% = 13 THEN d% = 0ãBUTTON 17, i%, 150, i% + 9, d%ãFONT MODES$(a), 19, i% + 2, 6, 0, 0, 0ãNEXTãMOUSESHOWããWAIT4PRESS2:ãLB% = -1ãWHILE LB% = -1ãMOUSESTATUS LB%, RB%, X%, Y%ãWENDãLB% = 0ãWHILE LB% = 0ãMOUSESTATUS LB%, RB%, X%, Y%ãIF RB% = -1 THEN EXIT SUBãWENDãIF X% > 17 AND Y% > 17 AND X% < 30 AND Y% < 30 THEN GOTO ABORTIT4ãa = 0ãFOR i% = 35 TO 90 STEP 12ãa = a + 1ãIF X% > 17 AND Y% > i% AND X% < 150 AND Y% < i% + 9 THENãWARN RETURN.CODE%ãIF RETURN.CODE% = 1 THEN GOTO ABORTIT4ãIF a = 1 THEN SCREENMODE% = 7: GOTO ABORTIT4ãIF a = 2 THEN SCREENMODE% = 8: GOTO ABORTIT4ãIF a = 3 THEN SCREENMODE% = 9: GOTO ABORTIT4ãIF a = 4 THEN SCREENMODE% = 12: GOTO ABORTIT4ãIF a = 5 THEN SCREENMODE% = 13: GOTO ABORTIT4ãEND IFãNEXTãGOTO WAIT4PRESS2ããABORTIT4:ãPUT (14, 14), COVERUP5%, PSETãLB% = -1ãWHILE LB% = -1ãMOUSESTATUS LB%, RB%, X%, Y%ãWENDããEND SUBããSUB DELAYããEND SUBããSUB DOODLEãMOUSESHOWãMOUSESTATUS LB%, RB%, X%, Y%ãIF LB% = -1 THEN MOUSEHIDEãIF LB% = -1 THEN LINE (X% - 1, Y% - 1)-(X% - 1 - THICK% - 1, Y% - 1 - THICK% - 1), CO%, BFãIF LB% = -1 THEN MOUSESHOWãEND SUBããSUB DRAWOBJ (OBJ%)ãMOUSESHOWãLB% = -1ãWHILE LB% = -1ãMOUSESTATUS LB%, RB%, X%, Y%ãWENDãLB% = 0ãWHILE LB% = 0ãIF INKEY$ = "p" OR INKEY$ = "P" THEN PRINTITãMOUSESTATUS LB%, RB%, X%, Y%ãIF RB% = -1 THEN EXIT SUBãWENDãPLOTX X%, Y%ãXX% = X%: YY% = Y%ãLB% = -1ãWHILE LB% = -1ãMOUSESTATUS LB%, RB%, X%, Y%ãWENDãLB% = 0ãWHILE LB% = 0ãIF INKEY$ = "p" OR INKEY$ = "P" THEN PRINTITãMOUSESTATUS LB%, RB%, X%, Y%ãIF RB% = -1 THEN GOTO ABORTITãWENDãMOUSEHIDEãPUT (XX% - 4, YY% - 4), PLX%, PSETãIF OBJ% = 1 OR OBJ% = 3 OR OBJ% = 5 THENãFOR i = 0 TO THICK% - 1ãIF OBJ% = 1 THEN LINE (XX%, YY% - i)-(X%, Y% - i), CO%ãIF OBJ% = 3 THEN LINE (XX%, YY%)-(X%, Y%), CO%, BFãIF OBJ% = 5 AND X% > XX% THEN COLOR CO%: CIRCLE (XX%, YY%), X% - XX%: PAINT (XX%, YY%), CO%ãIF OBJ% = 5 AND XX% > X% THEN COLOR CO%: CIRCLE (XX%, YY%), XX% - X%: PAINT (XX%, YY%), CO%ãNEXTãEND IFãIF OBJ% = 2 THENãIF XX% < X% AND YY% < Y% OR XX% > X% AND YY% > Y% THENãFOR i = 1 TO THICK%ãLINE (XX% + i, YY% + i)-(X% - i, Y% - i), CO%, BãNEXTãEND IFãIF XX% > X% AND YY% < Y% OR XX% < X% AND YY% > Y% THENãFOR i = 1 TO THICK%ãLINE (XX% - i, YY% + i)-(X% + i, Y% - i), CO%, BãNEXTãEND IFãEND IFãIF OBJ% = 4 THENãFOR i = 1 TO THICK%ãIF OBJ% = 4 AND X% > XX% THEN COLOR CO%: CIRCLE (XX%, YY%), X% - XX% + i: CIRCLE (XX% + 1, YY%), X% - XX% + iãIF OBJ% = 4 AND XX% > X% THEN COLOR CO%: CIRCLE (XX%, YY%), XX% - X% + i: CIRCLE (XX% + 1, YY%), XX% - X% + iãNEXTãEND IFããMOUSESHOWãEXIT SUBãABORTIT:ãPUT (XX% - 4, YY% - 4), PLX%, PSETãEND SUBããSUB FONT (TEXT$, X%, Y%, stepX%, stepY%, CO, Ang%)ãTEXT$ = UCASE$(TEXT$): T = LEN(TEXT$)ãIF Ang% < 4 THEN DRAW "A" + STR$(Ang%)ãDRAW "S4;BM" + STR$(X%) + "," + STR$(Y%) + "C" + STR$(CO)ã ãFOR C = 1 TO TãSELECT CASE MID$(TEXT$, C, 1)ãCASE "A": DRAW "d4u4r4d4u2l4u2"ãCASE "B": DRAW "d4r4l4u2r4l4u2r4d4u4l4"ãCASE "C": DRAW "r4l4d4r4bu4l4"ãCASE "D": DRAW "r4l3d4l1r4u4l4"ãCASE "E": DRAW "d4r4l4u2r3l3u2r4l4"ãCASE "F": DRAW "d4u2r3l3u2r4l4"ãCASE "G": DRAW "r4l4d4r4u2l1r1bu2l4"ãCASE "H": DRAW "d4u2r4u2d4u4bl4"ãCASE "I": DRAW "r4l2d4l2r4bu4l4"ãCASE "J": DRAW "br4d3bd1bl1l3bu4"ãCASE "K": DRAW "d4u2r2u1r2u1r1l1d1l2d1l2r2d1r2d1r1bu4bl4"ãCASE "L": DRAW "d4r4l4u4"ãCASE "M": DRAW "d4u4f2e2d4bu4bl4"ãCASE "N": DRAW "d4u4f4u4bl4"ãCASE "O": DRAW "d4r4u4l4"ãCASE "P": DRAW "d4u4r4d2l4u2"ãCASE "Q": DRAW "d4r4u4l4d4r4h1f2h1u4l4"ãCASE "R": DRAW "d4u4r4d2l4r2f2h2l2u2"ãCASE "S": DRAW "r4l4d2r4d2l4bu4"ãCASE "T": DRAW "r4l2d4u4l2"ãCASE "U": DRAW "d4r4u4bl4"ãCASE "V": DRAW "d2f2e2u2bl4"ãCASE "W": DRAW "d4e2f2u4bl4"ãCASE "X": DRAW "f4h2g2e4bl4"ãCASE "Y": DRAW "f3d1u1e3bl4"ãCASE "Z": DRAW "r4g4r4bu4l4"ãCASE "1": DRAW "br2d4u4bl2"ãCASE "2": DRAW "r3d1g3r3bu4bl4"ãCASE "3": DRAW "r4d2l3r3d2l4bu4"ãCASE "4": DRAW "d2r4d2u4bl4"ãCASE "5": DRAW "r4l4d2r4d2l4bu4"ãCASE "6": DRAW "r4l4d4r4u2l4u2"ãCASE "7": DRAW "r4d4u4l4"ãCASE "8": DRAW "r4d4l4u4d2r4u2l4"ãCASE "9": DRAW "r4d4u2l4u2"ãCASE "0": DRAW "r4d4l4u4r4g4u4"ãEND SELECTãDRAW "BR" + STR$(stepX%)ãIF stepY% > 0 THENãDRAW "BD" + STR$(stepY%)ãELSEãDRAW "BU" + STR$(ABS(stepY%))ãEND IFãNEXT CãDRAW "A0"ãEND SUBããSUB INTROãSCREEN 13ãFOR i = 1 TO 15: PALETTE i, 0: NEXTãDEF SEG = &HA000ã'BLOAD "LOGO320.PIC", 0ã'PALIO "LOGO320"ãSOUND 2000, .5: SOUND 3000, 1ãWHILE INKEY$ = "": WENDãEND SUBããSUB MouseDriver (ax%, BX%, cx%, dx%)ã DEF SEG = VARSEG(Mouse$)ã Mouse% = SADD(Mouse$)ã CALL ABSOLUTE(ax%, BX%, cx%, dx%, Mouse%)ãEND SUBããSUB MOUSEHIDEã ax% = 2ã MouseDriver ax%, 0, 0, 0ãEND SUBããFUNCTION MouseInit%ã ax% = 0ã MouseDriver ax%, 0, 0, 0ã MouseInit% = ax%ãEND FUNCTIONããSUB MousePut (X%, Y%)ã ax% = 4ã cx% = X%ã dx% = Y%ã MouseDriver ax%, 0, cx%, dx%ãEND SUBããSUB MouseRange (X1%, Y1%, X2%, Y2%)ã ax% = 7ã cx% = X1%ã dx% = X2%ã MouseDriver ax%, 0, cx%, dx%ã ax% = 8ã cx% = Y1%ã dx% = Y2%ã MouseDriver ax%, 0, cx%, dx%ãEND SUBããSUB MOUSESHOWã ax% = 1ã MouseDriver ax%, 0, 0, 0ãEND SUBããSUB MOUSESTATUS (LB%, RB%, XMOUSE%, YMOUSE%)ã ax% = 3ã MouseDriver ax%, BX%, cx%, dx%ã LB% = ((BX% AND 1) <> 0)ã RB% = ((BX% AND 2) <> 0)ã XMOUSE% = cx%ã YMOUSE% = dx%ã IF SCREENMODE% = 7 OR SCREENMODE% = 13 THEN XMOUSE% = XMOUSE% / 2ãEND SUBããSUB PAINTITãMOUSESHOWãLB% = -1ãWHILE LB% = -1ãMOUSESTATUS LB%, RB%, X%, Y%ãWENDãLB% = 0ãWHILE LB% = 0ãMOUSESTATUS LB%, RB%, X%, Y%ãIF RB% = -1 THEN EXIT SUBãWENDãMOUSEHIDEãPAINT (X%, Y%), CO%ãMOUSESHOWãEND SUBããSUB PALETTECHANGEãREDIM COVERUP6%(8000)ãGET (30, 30)-(170, 135), COVERUP6%ãBUTTON 30, 30, 170, 135, UPãBUTTON 32, 32, 46, 46, DOWN: LINE (33, 33)-(45, 45), 0: LINE (33, 45)-(45, 33), 0ãBUTTON 48, 32, 168, 46, UPãBUTTON 120, 87, 160, 98, UPãBUTTON 33, 122, 63, 132, UPãBUTTON 70, 122, 100, 132, UPãFONT "SAVE LOAD", 35, 124, 6, 0, 0, 0ãFONT "OK", 130, 91, 6, 0, 0, 0ãLINE (49, 33)-(167, 45), 9, BFãFONT "PALETTE", 51, 35, 6, 0, 15, 0ãFONT "RED", 32, 60, 6, 0, 12, 0ãFONT "GREEN", 32, 75, 6, 0, 10, 0ãFONT "BLUE", 32, 90, 6, 0, 9, 0ãFOR i% = 55 TO 85 STEP 15ãBUTTON 70, i%, 80, i% + 13, UPãBUTTON 83, i%, 103, i% + 13, UPãBUTTON 105, i%, 115, i% + 13, UPãNEXTãFONT "PALETTE WILL CHANGE THE", 32, 100, 6, 0, 0, 0ãFONT "VALUE OF THE", 32, 106, 6, 0, 0, 0ãCOL = CO%ãFONT "CURRENT", 109, 106, 6, 0, COL, 0ãFONT "COLOR", 32, 112, 6, 0, 0, 0ããMOUSESHOWããWAIT4PRESS4:ãMOUSESHOWãLB% = -1ãWHILE LB% = -1ãMOUSESTATUS LB%, RB%, X%, Y%ãWENDãLB% = 0ãWHILE LB% = 0ãMOUSESTATUS LB%, RB%, X%, Y%ãLINE (120, 60)-(160, 85), CO%, BFãFONT STR$(R%), 82, 60, 6, 0, 0, 0ãFONT STR$(G%), 82, 75, 6, 0, 0, 0ãFONT STR$(B%), 82, 90, 6, 0, 0, 0ãWENDãMOUSEHIDEãIF X% > 33 AND Y% > 122 AND X% < 63 AND Y% < 132 THENãOPEN "DRAW!PAL.TMP" FOR APPEND AS #1ãIF CHANGED% <> 0 THEN WRITE #1, CO%, R%, G%, B%ãCLOSE #1ãSAVEIT 3ãEND IFãIF X% > 70 AND Y% > 122 AND X% < 100 AND Y% < 132 THEN SAVEIT 4ãIF X% > 120 AND Y% > 87 AND X% < 160 AND Y% < 98 THENãPUT (30, 30), COVERUP6%, PSETãOPEN "DRAW!PAL.TMP" FOR APPEND AS #1ãIF R% <> 0 AND G% <> 0 AND B% <> 0 THEN WRITE #1, CO%, R%, G%, B%ãCLOSE #1ãEXIT SUBãEND IFãIF X% > 32 AND Y% > 32 AND X% < 46 AND Y% < 46 THEN PUT (30, 30), COVERUP6%, PSET: EXIT SUBãIF X% > 70 AND Y% > 55 AND X% < 80 AND Y% < 70 THENãLINE (84, 56)-(102, 67), 7, BFãR% = R% - 1ãIF R% = -1 THEN R% = 63ãGOSUB CPALãEND IFãIF X% > 105 AND Y% > 55 AND X% < 115 AND Y% < 70 THENãLINE (84, 56)-(102, 67), 7, BFãR% = R% + 1ãIF R% = 64 THEN R% = 0ãGOSUB CPALãEND IFãIF X% > 70 AND Y% > 70 AND X% < 80 AND Y% < 85 THENãLINE (84, 71)-(102, 82), 7, BFãG% = G% - 1ãIF G% = -1 THEN G% = 63ãGOSUB CPALãEND IFãIF X% > 105 AND Y% > 70 AND X% < 115 AND Y% < 85 THENãLINE (84, 71)-(102, 82), 7, BFãG% = G% + 1ãIF G% = 64 THEN G% = 0ãGOSUB CPALãEND IFãIF X% > 70 AND Y% > 85 AND X% < 80 AND Y% < 100 THENãLINE (84, 86)-(102, 97), 7, BFãB% = B% - 1ãIF B% = -1 THEN B% = 63ãGOSUB CPALãEND IFãIF X% > 105 AND Y% > 85 AND X% < 115 AND Y% < 100 THENãLINE (84, 86)-(102, 97), 7, BFãB% = B% + 1ãIF B% = 64 THEN B% = 0ãGOSUB CPALãEND IFããGOTO WAIT4PRESS4ãCPAL:ãCHANGED% = 1ã'Special thanks to David Gilham(SP?) for these EGA extended palette routines!ãOUT &H3C8, CO% 'Selects color to change \ãOUT &H3C9, R% 'Selects red value \ãOUT &H3C9, G% 'Selects green value /ãOUT &H3C9, B% 'Selects blue value /ãRETURNãEND SUBããSUB PALIO (F$)ãF$ = F$ + ".pal"ãPALETTEãOPEN F$ FOR APPEND AS #1: CLOSE #1ãOPEN F$ FOR INPUT AS #1ãWHILE NOT (EOF(1))ãINPUT #1, C%, R%, G%, B%ãGOSUB CCPALãWENDãCLOSE #1ãEXIT SUBããCCPAL:ãOUT &H3C8, C% 'Selects color to change \ãOUT &H3C9, R% 'Selects red value \ãOUT &H3C9, G% 'Selects green value /ãOUT &H3C9, B% 'Selects blue value /ãRETURNãããEND SUBãã'This sub used for demo, not needed for mouse callsãSUB Pauseã PRINT "Press any key to continue..."ã G$ = INPUT$(1)ã PRINTãEND SUBããSUB PLOT (XX%, YY%, X%, Y%)ãMOUSEHIDEãPAINT (XX%, YY%), CO%, 0ãPSET (188 + X%, 6 + Y%), CO%ãMOUSESHOWãEND SUBããSUB PLOTX (PX%, PY%)ãMOUSEHIDEãN = 4ãGET (PX% - N, PY% - N)-(PX% + N, PY% + N), PLX%ãLINE (PX% - N, PY% - N)-(PX% + N, PY% + N), 0ãLINE (PX% + N, PY% - N)-(PX% - N, PY% + N), 0ãMOUSESHOWãEND SUBããSUB POPOPS (FUNC%)ãTHEWHOLETHING:ãIF SCREENMODE% = 13 THEN REDIM COVERUP1%(31000)ãIF SCREENMODE% <> 13 THEN REDIM COVERUP1%(13000)ãMOUSEHIDEãGET (1, 1)-(319, 150), COVERUP1%ãBUTTON 1, 1, 319, 150, UPãBUTTON 2, 2, 318, 149, UPãBUTTON 5, 5, 18, 18, DOWN: LINE (6, 6)-(17, 17), 0: LINE (6, 17)-(17, 6), 0ãBUTTON 21, 5, 316, 18, UP: LINE (22, 6)-(315, 17), 9, BFãBUTTON 130, 132, 175, 142, UPãBUTTON 190, 132, 210, 142, UPãBUTTON 178, 132, 188, 142, UPãBUTTON 212, 132, 222, 142, UPãBUTTON 225, 132, 300, 142, UPãFONT "Tools", 24, 9, 7, 0, 15, 0ãREDRAW:ãFONT "PALETTE", 132, 135, 6, 0, 0, 0ãFONT "Screen mode", 227, 135, 6, 0, 0, 0ãa% = 0ãMOUSEHIDEãFOR i% = 5 TO 250 STEP 40ãa% = a% + 1ãBUTTON i%, 20, i% + 38, 50, UPãIF a% = FUNC% THEN BUTTON i%, 20, i% + 38, 50, DOWNãNEXTãFOR i% = 5 TO 175 STEP 40ãa% = a% + 1ãBUTTON i%, 53, i% + 38, 83, UPãIF a% = FUNC% THEN BUTTON i%, 53, i% + 38, 83, DOWNãNEXTãIF SCREENMODE% <> 13 THENãFOR i = 5 TO 235 STEP 15ãC = C + 1ãLINE (i, 85)-(i + 14, 100), C - 1, BFãCS% = 0ãIF C - 1 = CO% THEN CS% = 14ãLINE (i, 85)-(i + 14, 100), CS%, BãNEXTãC = 0ãEND IFãIF SCREENMODE% = 13 THENãFOR a = 0 TO 4ãFOR i = 5 TO 295 STEP 5ãC = C + 1ãIF C > 255 THEN GOTO NXTãLINE (i, 85 + 11 * a)-(i + 5, 96 + 11 * a), C - 1, BFãCS% = 0ãIF C - 1 = CO% THEN CS% = 14ãLINE (i, 85 + 11 * a)-(i + 5, 96 + 11 * a), CS%, BãNXT:ãNEXTãNEXTãEND IFãLINE (7, 21)-(42, 49), 9ãLINE (48, 22)-(80, 48), 4, BãLINE (88, 22)-(120, 48), 14, BFãCOLOR 10: CIRCLE (144, 35), 16ãCOLOR 11: CIRCLE (184, 35), 16: PAINT (184, 35), 11ãLINE (215, 30)-(225, 48), 0, B: LINE (221, 33)-(225, 45), 0, B: PAINT (222, 34), 4, 0ãLINE (215, 30)-(217, 28), 0: LINE (217, 28)-(223, 28), 0: LINE (223, 28)-(225, 30), 0ãLINE (220, 27)-(221, 26), 15, BFãFONT "PAINT", 248, 27, 6, 0, 12, 0ãFONT "DOODLE", 7, 60, 6, 0, 10, 0ãFONT "ZOOM", 53, 60, 6, 0, 9, 0ãFONT "ABC", 90, 60, 6, 0, 1, 0ãFONT "SAVE", 130, 60, 6, 0, 0, 0ãFONT "LOAD", 170, 60, 6, 0, 0, 0ãBUTTON 210, 60, 250, 70, UPãBUTTON 255, 60, 290, 70, UPãBUTTON 210, 72, 290, 82, UPãFONT "EXIT", 215, 62, 6, 0, 0, 0ãFONT "UNDO", 260, 62, 6, 0, 0, 0ãFONT "PRINTER SETUP", 212, 74, 6, 0, 0, 0ããLB% = -1ãWHILE LB% = -1ãMOUSESTATUS LB%, RB%, X%, Y%ãWENDããWAIT4PRESS:ãFONT STR$(THICK%), 188, 136, 6, 0, 0, 0ãMOUSESHOWãMOUSESTATUS LB%, RB%, X%, Y%ãIF LB% = -1 THENãMOUSEHIDEãIF X% > 210 AND Y% > 72 AND X% < 290 AND Y% < 82 THEN PRINTSETUPãIF X% > 210 AND Y% > 60 AND X% < 250 AND Y% < 70 THEN SYSTEMãIF X% > 130 AND Y% > 132 AND X% < 175 AND Y% < 142 THEN PALETTECHANGEãIF X% > 225 AND Y% > 132 AND X% < 300 AND Y% < 142 THENãOSC% = SCREENMODE%ãCHANGESCREENMODEãIF OSC% <> SCREENMODE% THEN FUNC% = 99: EXIT SUBãEND IFãIF X% > 178 AND Y% > 132 AND X% < 188 AND Y% < 142 AND LB% = -1 THENãTHICK% = THICK% - 1ãIF THICK% = 0 THEN THICK% = 1ãBUTTON 190, 132, 210, 142, UPãGOSUB DELAYãGOTO WAIT4PRESSãEND IFãIF X% > 212 AND Y% > 132 AND X% < 222 AND Y% < 142 AND LB% = -1 THENãTHICK% = THICK% + 1ãIF THICK% = 25 THEN THICK% = 24ãBUTTON 190, 132, 210, 142, UPãGOSUB DELAYãGOTO WAIT4PRESSãEND IFããIF SCREENMODE% <> 13 THENãFOR i = 5 TO 235 STEP 15ãC = C + 1ãIF SCREENMODE% <> 13 AND X% > i AND Y% > 85 AND X% < i + 14 AND Y% < 100 THEN CO% = C - 1ãNEXTãC = 0ãEND IFãC = 0ãIF SCREENMODE% = 13 THENãFOR a = 0 TO 4ãFOR i = 5 TO 295 STEP 5ãC = C + 1ãIF X% > i AND Y% > 85 + 11 * a AND X% < i + 5 AND Y% < 96 + 11 * a THEN CO% = C - 1ãNEXTãNEXTãC = 0ãEND IFããa% = 0ãIF X% > 5 AND Y% > 5 AND X% < 18 AND Y% < 18 THEN GOTO ABORTIT2ãFOR i% = 5 TO 250 STEP 40ãa% = a% + 1ãIF X% > i% AND Y% > 20 AND X% < i% + 38 AND Y% < 50 THEN LF% = FUNC%: FUNC% = a%ãIF a% = FUNC% THEN BUTTON i%, 20, i% + 38, 50, DOWNãNEXTãFOR i% = 5 TO 170 STEP 40ãa% = a% + 1ãIF X% > i% AND Y% > 53 AND X% < i% + 38 AND Y% < 83 THEN LF% = FUNC%: FUNC% = a%ãIF a% = FUNC% THEN BUTTON i%, 53, i% + 38, 83, DOWNãNEXTãIF FUNC% = 11 THEN PUT (1, 1), COVERUP1%, PSET: SAVEIT 1: FUNC% = LF%: GOTO THEWHOLETHINGãIF FUNC% = 12 THEN PUT (1, 1), COVERUP1%, PSET: SAVEIT 2: FUNC% = LF%: GOTO THEWHOLETHINGãIF X% > 255 AND Y% > 60 AND X% < 290 AND Y% < 70 THEN PUT (1, 1), COVERUP1%, PSET: SAVEIT 6: FUNC% = LF%: MOUSESHOW: GOTO THEWHOLETHINGããMOUSESHOWãGOTO REDRAWãEND IFãGOTO WAIT4PRESSãABORTIT2:ãLB% = -1ãWHILE LB% = -1ãMOUSESTATUS LB%, RB%, X%, Y%ãWENDãMOUSEHIDEãPUT (1, 1), COVERUP1%, PSETãSAVEIT 5ãMOUSESHOWãERASE COVERUP1%ãEXIT SUBãDELAY:ãLB% = -1ãWHILE LB% = -1ãMOUSESTATUS LB%, RB%, X%, Y%ãWENDãRETURNãEND SUBããSUB PRINTITãRESTORE printcodeãMOUSEHIDEã REDIM a%(2)ã DEF SEG = VARSEG(a%(0))ã FOR i% = 0 TO 2ã READ d%ã POKE VARPTR(a%(0)) + i%, d%ã NEXT i%ã CALL ABSOLUTE(VARPTR(a%(0)))ã DEF SEGãMOUSESHOWãEND SUBããSUB PRINTSETUPãOPEN "DRAWPRNT.STP" FOR APPEND AS #1: CLOSE #1ãOPEN "DRAWPRNT.STP" FOR INPUT AS #1ãWHILE NOT (EOF(1))ãINPUT #1, PRN%ãWENDãCLOSE #1ãIF PRN% = 0 THEN PRN% = 1ãREDIM PR$(18), DRV$(18)ãPR$(1) = "IBM B/W Printer": DRV$(1) = "COLOR1"ãPR$(2) = "IBM RGB Printer": DRV$(2) = "COLOR4"ãPR$(3) = "IBM CMY Printer": DRV$(3) = "COLOR8"ãPR$(4) = "HP PCL Default": DRV$(4) = "HPDEFAULT"ãPR$(5) = "HP Deskjet": DRV$(5) = "DESKJET"ãPR$(6) = "IBM PROprinter": DRV$(6) = "GRAPHICS"ãPR$(7) = "IBM Quietwriter": DRV$(7) = "GRAPHICS"ãPR$(8) = "IBM Graphics WIDE": DRV$(8) = "GRAPHICSWIDE"ãPR$(9) = "HP Laserjet": DRV$(9) = "LASERJET"ãPR$(10) = "HP Laserjet II": DRV$(10) = "LASERJETII"ãPR$(11) = "HP Paintjet": DRV$(11) = "PAINTJET"ãPR$(12) = "HP Quitjet": DRV$(12) = "QUIETJET"ãPR$(13) = "HP Quitjet plus": DRV$(13) = "QUIETJETPLUS"ãPR$(14) = "HP Ruggedwriter": DRV$(14) = "RUGGEDWRITER"ãPR$(15) = "HP Ruggedwriterwide": DRV$(15) = "RUGGEDWRITERWIDE"ãPR$(16) = "IBM Thermal printer": DRV$(16) = "THERMAL"ãPR$(17) = "HP Thinkjet": DRV$(17) = "THINKJET"ãREDIM COVERUP8%(10000)ãGET (18, 18)-(200, 90), COVERUP8%ãBUTTON 18, 18, 200, 90, UPãFONT "TO PRINT MOVE MOUSE OFF SCREEN", 20, 75, 6, 0, 0, 0ãFONT "AND PRESS SHIFT PRNT SCRN", 20, 82, 6, 0, 0, 0ãBUTTON 20, 20, 34, 34, DOWN: LINE (21, 21)-(33, 33), 0: LINE (21, 33)-(33, 21), 0ãBUTTON 36, 20, 198, 34, UP: LINE (37, 21)-(197, 33), 9, BFãFONT "PRINTER SETUP", 38, 22, 6, 0, 15, 0ãBUTTON 30, 40, 40, 55, UPãBUTTON 45, 40, 160, 55, UPãBUTTON 165, 40, 175, 55, UPãBUTTON 70, 58, 110, 68, UPãFONT "OK", 85, 60, 6, 0, 0, 0ãWAIT4PRESS6:ãMOUSESHOWãLB% = -1ãWHILE LB% = -1ãMOUSESTATUS LB%, RB%, X%, Y%ãWENDãLB% = 0ãWHILE LB% = 0ãMOUSESTATUS LB%, RB%, X%, Y%ãFONT PR$(PRN%), 47, 42, 6, 0, 0, 0ãWENDãIF X% > 70 AND Y% > 58 AND X% < 110 AND Y% < 68 THENãPUT (18, 18), COVERUP8%, PSETãOPEN "DRAWPRNT.STP" FOR OUTPUT AS #1ãWRITE #1, PRN%ãSHELL "GRAPHICS " + DRV$(PRN%) + " /R"ãCLOSE #1ããEXIT SUBãEND IFãIF X% > 20 AND Y% > 20 AND X% < 34 AND Y% < 34 THEN PUT (18, 18), COVERUP8%, PSET: EXIT SUBãIF X% > 30 AND Y% > 40 AND X% < 40 AND Y% < 55 THENãPRN% = PRN% - 1ãIF PRN% = 0 THEN PRN% = 1ãBUTTON 45, 40, 160, 55, UPãEND IFãIF X% > 165 AND Y% > 40 AND X% < 175 AND Y% < 55 THENãPRN% = PRN% + 1ãIF PRN% = 18 THEN PRN% = 17ãBUTTON 45, 40, 160, 55, UPãEND IFãããGOTO WAIT4PRESS6ãEND SUBããSUB SAVEIT (OP%)ãIF OP% = 5 THEN F2$ = "DRAWUNDO": OP% = 1: GOTO UNDOSAVEãIF OP% = 6 THEN F2$ = "DRAWUNDO": OP% = 2: GOTO UNDOSAVEãREDIM COVERUP2%(10000)ãMOUSEHIDEãGET (1, 1)-(202, 55), COVERUP2%ãBUTTON 1, 1, 202, 55, UPãIF SCREENMODE% = 7 OR SCREENMODE% = 9 OR SCREENMODE% = 8 THEN COLOR 15, 7ãLOCATE 2, 2: PRINT "Filename(NO EXTENSION!):"ãCOLOR 9ãREIN:ãLOCATE 3, 2: PRINT " "ãLOCATE 3, 2: INPUT "", FILENAME$ãF2$ = FILENAME$ãIF LEN(FILENAME$) > 8 THEN GOTO REINãPUT (1, 1), COVERUP2%, PSETãUNDOSAVE:ãMOUSESHOWãIF SCREENMODE% = 7 OR SCREENMODE% = 9 OR SCREENMODE% = 8 THEN COLOR 15, 0ãIF OP% = 3 THENãOPEN "DRAW!PAL.TMP" FOR INPUT AS #2ãOPEN F2$ + ".PAL" FOR APPEND AS #3ãWHILE NOT (EOF(2))ãINPUT #2, RC%, RR%, RG%, RB%ãWRITE #3, RC%, RR%, RG%, RB%ãWENDãCLOSE #2: CLOSE #3ãMOUSESHOWãEND IFãIF OP% = 4 THENãCLOSEãOPEN F2$ + ".PAL" FOR INPUT AS #1ãWHILE NOT (EOF(1))ãINPUT #1, CO%, R%, G%, B%ã'Special thanks to David Gilham(SP?) for these EGA extended palette routines!ãOUT &H3C8, CO% 'Selects color to change \ãOUT &H3C9, R% 'Selects red value \ãOUT &H3C9, G% 'Selects green value /ãOUT &H3C9, B% 'Selects blue value /ãWENDãCLOSEãMOUSESHOWãEND IFãIF OP% = 1 AND SCREENMODE% = 13 THENãDEF SEG = &HA000ãBSAVE F2$ + ".PIC", 0, 64000ãEND IFãIF OP% = 1 AND SCREENMODE% > 6 AND SCREENMODE% < 13 THEN SCREENIO F2$, 1: EXIT SUBãIF OP% = 2 AND SCREENMODE% = 13 THENãDEF SEG = &HA000ãBLOAD F2$ + ".PIC", 0ãEND IFãIF OP% = 2 AND SCREENMODE% > 6 AND SCREENMODE% < 13 THEN SCREENIO F2$, 0: EXIT SUBãEND SUBããSUB SAVEPRINTER (PRNTRTYPE%)ãEND SUBããSUB SCREENIO (F$, flag)ã DEF SEG = &H40ã VidMode = PEEK(&H49)ã PageAddr& = PEEK(&H4E) + PEEK(&H4F) * 256&ã PageSize& = PEEK(&H4C) + PEEK(&H4D) * 256&ã IF VidMode = 19 THEN PageSize& = 64000ã DEF SEGã SELECT CASE VidModeã CASE 3, 4, 6 'SCREEN 0,1,2 ã DEF SEG = &HB800: GOSUB ScreenIO1: DEF SEGã CASE 13 TO 19 'SCREEN 7 to 13 ã DEF SEG = &HA000ã IF VidMode = 19 THENã GOSUB ScreenIO1ã ELSEã FOR p = 0 TO 3ã IF flag THENã OUT &H3CE, 4: OUT &H3CF, pãBSAVE F$ + ".PL" + LTRIM$(STR$(p)), PageAddr&, PageSize&ã ELSEã OUT &H3C4, 2: OUT &H3C5, 2 ^ pã BLOAD F$ + ".PL" + LTRIM$(STR$(p)), PageAddr&ã END IFã IF p = 1 AND VidMode = 15 THEN EXIT FORã NEXTã END IFã DEF SEGã END SELECTã EXIT SUBãScreenIO1: ã IF flag THEN BSAVE F$ + ".SCR", PageAddr&, PageSize&'Goes on above line'-> ELSE BLOAD f$ + ".SCR", PageAddr&ã RETURNããEND SUBããSUB TEXTFONTãREDIM COVERUP7%(10000)ãGET (1, 1)-(318, 60), COVERUP7%ãMOUSESHOWãLB% = -1ãWHILE LB% = -1ãMOUSESTATUS LB%, RB%, X%, Y%ãWENDãLB% = 0ãWHILE LB% = 0ãMOUSESTATUS LB%, RB%, X%, Y%ãIF RB% = -1 THEN EXIT SUBãWENDãMOUSEHIDEãBUTTON 1, 1, 318, 60, UPãBUTTON 3, 3, 17, 17, DOWN: LINE (4, 4)-(16, 16), 0: LINE (4, 16)-(16, 4), 0ãBUTTON 19, 3, 316, 17, UP: LINE (20, 4)-(315, 16), 9, BFãBUTTON 135, 45, 145, 55, UPãBUTTON 148, 45, 163, 55, UPãBUTTON 166, 45, 176, 55, UPãBUTTON 180, 45, 220, 55, UPãFONT STR$(FONTSIZE%), 145, 48, 6, 0, 0, 0ãFONT "OK", 195, 48, 6, 0, 0, 0ãFONT "Enter text", 22, 6, 6, 0, 15, 0ãIF SCREENMODE% < 10 THEN COLOR CO%, 0ãIF SCREENMODE% > 10 THEN COLOR CO%ãLOCATE 4, 2: PRINT STRING$(38, " ")ãLOCATE 5, 2: PRINT STRING$(38, " ")ãMOUSESHOWãLOCATE 4, 2: LINE INPUT "", DUMMY$ãLOCATE 5, 2: LINE INPUT "", DUMMY$ãFONT "PRESS 'OK' WHEN READY", 5, 50, 6, 0, 12, 0ãMOUSEHIDEãREDIM LINE1%(304, 8)ãREDIM LINE2%(304, 8)ããFOR XX% = 8 TO 311ãa% = a% + 1ãFOR YY% = 24 TO 31ãB% = B% + 1ãLINE1%(a%, B%) = POINT(XX%, YY%)ãNEXTãB% = 0ãNEXTãa% = 0: B% = 0ãFOR XX% = 8 TO 311ãa% = a% + 1ãFOR YY% = 32 TO 39ãB% = B% + 1ãLINE2%(a%, B%) = POINT(XX%, YY%)ãNEXTãB% = 0ãNEXTããOX% = X%: OY% = Y%ãããWAIT4PRESS5:ãMOUSESHOWãLB% = -1ãWHILE LB% = -1ãMOUSESTATUS LB%, RB%, X%, Y%ãWENDãLB% = 0ãWHILE LB% = 0ãMOUSESTATUS LB%, RB%, X%, Y%ãFONT STR$(FONTSIZE%), 145, 48, 6, 0, 0, 0ãWENDãMOUSEHIDEãIF X% > 3 AND Y% > 3 AND X% < 17 AND Y% < 17 THEN PUT (1, 1), COVERUP7%, PSET: EXIT SUBãIF X% > 180 AND Y% > 45 AND X% < 220 AND Y% < 55 THEN GOTO PRINTFONTãIF X% > 135 AND Y% > 45 AND X% < 145 AND Y% < 55 THENãFONTSIZE% = FONTSIZE% - 2ãIF FONTSIZE% < 0 THEN FONTSIZE% = 1ãBUTTON 148, 45, 163, 55, UPãGOTO WAIT4PRESS5ãEND IFããIF X% > 166 AND Y% > 45 AND X% < 176 AND Y% < 55 THENãFONTSIZE% = FONTSIZE% + 2ãIF FONTSIZE% > 23 THEN FONTSIZE% = 23ãBUTTON 148, 45, 163, 55, UPãGOTO WAIT4PRESS5ãEND IFããGOTO WAIT4PRESS5ãããPRINTFONT:ãS% = FONTSIZE% - 1ãa% = 0: B% = 0ãMOUSEHIDEãPUT (1, 1), COVERUP7%, PSETãFOR X = 8 TO 311ãa% = a% + 1ãFOR Y = 24 TO 31ãB% = B% + 1ãIF LINE1%(a%, B%) = 0 THEN GOTO NXT2ãi = S%ãIF i > 1 THEN LINE (OX% + a% * i, OY% + B% * i)-(OX% + a% * i + S%, OY% + B% * i + S%), LINE1%(a%, B%), BFãIF i < 3 THEN PSET (OX% + a%, OY% + B%), LINE1%(a%, B%)ãIF i > 1 THEN LX% = a% * iãIF i < 3 THEN LX% = a%ãNXT2:ãNEXTãB% = 0ãNEXTãa% = 0: B% = 0ãOX% = OX% + LX%ãFOR X = 8 TO 311ãa% = a% + 1ãFOR Y = 24 TO 31ãB% = B% + 1ãIF LINE2%(a%, B%) = 0 THEN GOTO NXT3ãi = S%ãLX% = LX% + 1ãIF i > 1 THEN LINE (OX% + a% * i, OY% + B% * i)-(OX% + a% * i + S%, OY% + B% * i + S%), LINE2%(a%, B%), BFãIF i < 3 THEN PSET (OX% + a%, OY% + B%), LINE2%(a%, B%)ãNXT3:ãNEXTãB% = 0ãNEXTããMOUSESHOWããEND SUBããSUB WARN (RETURN.CODE%)ãREDIM WARNING%(6000)ãGET (20, 20)-(140, 80), WARNING%ãMOUSEHIDEãBUTTON 20, 20, 140, 80, UPãBUTTON 22, 22, 35, 35, DOWN: LINE (23, 23)-(34, 34), 0: LINE (23, 34)-(34, 23), 0ãBUTTON 37, 22, 138, 35, UP: LINE (38, 23)-(137, 34), 9, BFãFONT "WARNING", 39, 25, 6, 0, 15, 0ãFONT "Changing screen", 25, 38, 6, 0, 0, 0ãFONT "modes means lose", 25, 45, 6, 0, 0, 0ãFONT "PICTURE", 25, 51, 6, 0, 0, 0ãBUTTON 27, 67, 70, 77, UPãBUTTON 73, 67, 113, 77, UPãFONT "PROCEED", 29, 70, 6, 0, 0, 0ãFONT "CANCEL", 75, 70, 6, 0, 0, 0ãMOUSESHOWãWAIT4PRESS3:ãLB% = -1ãWHILE LB% = -1ãMOUSESTATUS LB%, RB%, X%, Y%ãWENDãLB% = 0ãWHILE LB% = 0ãMOUSESTATUS LB%, RB%, X%, Y%ãIF RB% = -1 THEN EXIT SUBãWENDãIF X% > 27 AND Y% > 67 AND X% < 70 AND Y% < 77 THEN RETURN.CODE% = 0: EXIT SUBãIF X% > 73 AND Y% > 67 AND X% < 113 AND Y% < 77 THEN RETURN.CODE% = 1: EXIT SUBãIF X% > 22 AND Y% > 22 AND Y% < 35 AND Y% < 35 THEN RETURN.CODE% = 0: EXIT SUBãGOTO WAIT4PRESS3ãEND SUBããSUB ZOBJ (SEL%)ãLB% = -1ãWHILE LB% = -1ãMOUSESTATUS LB%, RB%, X%, Y%ãWENDãLB% = 0ãWHILE LB% = 0ãMOUSESTATUS LB%, RB%, X%, Y%ãIF LB% = -1 AND X% > 4 AND Y% > 4 AND X% < 18 AND Y% < 18 THEN EXIT SUBãIF RB% = -1 THEN EXIT SUBãWENDããFOR XX% = 5 TO 180 STEP 5ãa% = a% + 1ãFOR YY% = 20 TO 145 STEP 5ãB% = B% + 1ãIF X% > XX% AND Y% > YY% AND X% < XX% + 5 AND Y% < YY% + 5 THEN PLOT X%, Y%, a%, B%: GOTO FOUNDITãNEXTãB% = 0ãNEXTãFOUNDIT:ãOX% = a%: OY% = B%ãa% = 0: B% = 0: X% = 0: Y% = 0: XX% = 0: YY% = 0ãLB% = -1ãWHILE LB% = -1ãMOUSESTATUS LB%, RB%, X%, Y%ãWENDãLB% = 0ãWHILE LB% = 0ãMOUSESTATUS LB%, RB%, X%, Y%ãIF RB% = -1 THEN EXIT SUBãWENDããFOR XX% = 5 TO 180 STEP 5ãa% = a% + 1ãFOR YY% = 20 TO 145 STEP 5ãB% = B% + 1ãIF X% > XX% AND Y% > YY% AND X% < XX% + 5 AND Y% < YY% + 5 THEN PLOT X%, Y%, a%, B%: GOTO FOUNDIT2ãNEXTãB% = 0ãNEXTãFOUNDIT2:ããIF SEL% = 1 THEN LINE (188 + OX%, 6 + OY%)-(188 + a%, 6 + B%), CO%ãIF SEL% = 2 THEN LINE (188 + OX%, 6 + OY%)-(188 + a%, 6 + B%), CO%, BãIF SEL% = 3 THEN LINE (188 + OX%, 6 + OY%)-(188 + a%, 6 + B%), CO%, BFããX% = 188: Y% = 6ãMOUSEHIDEãREDIM ZOOMM(35, 25)ãFOR CAPX = 1 TO 35ãFOR CAPY = 1 TO 25ãZOOMM(CAPX, CAPY) = POINT(X% + CAPX, Y% + CAPY)ãNEXTãNEXTããFOR X = 5 TO 175 STEP 5ãXX = XX + 1ãFOR Y = 20 TO 140 STEP 5ãYY = YY + 1ãPAINT (X + 1, Y + 1), ZOOMM(XX, YY), 0ãPSET (188 + XX, 6 + YY), ZOOMM(XX, YY)ãNEXTãYY = 0ãNEXTãMOUSESHOWããEND SUBããSUB ZOOMãIF ZOOMHELP = 1 THENãREDIM HELP%(15000)ãMOUSEHIDEãGET (1, 1)-(200, 100), HELP%ãBUTTON 1, 1, 200, 100, UPãBUTTON 2, 2, 199, 99, UPãBUTTON 4, 4, 18, 18, DOWN: LINE (5, 5)-(17, 17), 0: LINE (5, 17)-(17, 5), 0ãBUTTON 20, 4, 197, 18, UP: LINE (21, 5)-(196, 17), 9, BFãFONT "ZOOM Instructions", 22, 9, 6, 0, 15, 0ãFONT "To disable these instructions", 6, 20, 6, 0, 4, 0ãFONT "set the CONSTant ZOOMHELP to 0", 6, 26, 6, 0, 4, 0ãFONT "Using ZOOM is easy. To ZOOM into", 6, 35, 6, 0, 10, 0ãFONT "a specific region use the mouse", 6, 41, 6, 0, 10, 0ãFONT "to select the upper-right corner", 6, 47, 6, 0, 10, 0ãFONT "of that area. DRAW! will capture", 6, 53, 6, 0, 10, 0ãFONT "34x25 pixels from that point", 6, 59, 6, 0, 10, 0ãDO WHILE INKEY$ = ""ãMOUSESHOWãMOUSESTATUS LB%, RB%, X%, Y%ãIF LB% = -1 AND X% > 4 AND Y% > 4 AND X% < 18 AND Y% < 18 THEN EXIT DOãLOOPãMOUSEHIDEãPUT (1, 1), HELP%, PSETãERASE HELP%ãMOUSESHOWãEND IFããLB% = -1ãWHILE LB% = -1ãMOUSESTATUS LB%, RB%, X%, Y%ãWENDãLB% = 0ãWHILE LB% = 0ãMOUSESTATUS LB%, RB%, X%, Y%ãIF RB% = -1 THEN EXIT SUBãWENDãXXX% = X%: YYY% = Y%ãMOUSEHIDEãREDIM COVERUP3%(14000)ãREDIM COVERUP4%(5000)ãGET (187, 5)-(225, 33), COVERUP4%ãGET (2, 2)-(183, 151), COVERUP3%ãREDIM ZOOMM(35, 25)ãFOR CAPX = 1 TO 35ãFOR CAPY = 1 TO 25ãZOOMM(CAPX, CAPY) = POINT(X% + CAPX, Y% + CAPY)ãNEXTãNEXTãBUTTON 2, 2, 183, 151, UPãBUTTON 187, 5, 225, 33, UPãBUTTON 4, 4, 18, 18, DOWN: LINE (5, 5)-(17, 17), 0: LINE (5, 17)-(17, 5), 0ãBUTTON 20, 4, 181, 18, UP: LINE (21, 5)-(180, 17), 9, BFãFONT "ZOOM EDITOR", 23, 8, 6, 0, 15, 0ãFOR X = 5 TO 180 STEP 5ãLINE (X, 20)-(X, 145), 0ãNEXTãFOR Y = 20 TO 145 STEP 5ãLINE (5, Y)-(180, Y), 0ãNEXTãFOR X = 5 TO 175 STEP 5ãXX = XX + 1ãFOR Y = 20 TO 140 STEP 5ãYY = YY + 1ãPAINT (X + 1, Y + 1), ZOOMM(XX, YY), 0ãPSET (188 + XX, 6 + YY), ZOOMM(XX, YY)ãNEXTãYY = 0ãNEXTãMOUSESHOWãIN02:ãMOUSESTATUS LB%, RB%, X%, Y%ãa% = 0: B% = 0ãIF LB% = -1 AND X% > 4 AND Y% > 4 AND X% < 18 AND Y% < 18 THEN GOTO ABORTIT3ãIF RB% = -1 THENãPOPOPS ZFUNC%ãMOUSESHOWãEND IFãIF ZFUNC% > 0 AND ZFUNC% < 6 THEN ZOBJ ZFUNC%ãIF LB% = -1 AND ZFUNC% = 0 THENãFOR XX% = 5 TO 175 STEP 5ãa% = a% + 1ãFOR YY% = 20 TO 140 STEP 5ãB% = B% + 1ãIF X% > XX% AND Y% > YY% AND X% < XX% + 5 AND Y% < YY% + 5 THEN PLOT X%, Y%, a%, B%ãNEXTãB% = 0ãNEXTãEND IFãGOTO IN02ãABORTIT3:ãMOUSEHIDEãREDIM EDITED%(5000)ãGET (189, 7)-(223, 31), EDITED%ãPUT (187, 5), COVERUP4%, PSETãPUT (2, 2), COVERUP3%, PSETãPUT (XXX% + 1, YYY% + 1), EDITED%, PSETãERASE EDITED%ãERASE COVERUP4%ãERASE COVERUP3%ãMOUSESHOWãEND SUBãJames Tonn TILE GRAPHICS www.geocities.com/SiliconVally/08/94 (00:00) QB, QBasic, PDS 306 13876 TILEEX.BAS 'This is a small program using tile graphics. This source code is the propertyã'of James Tonn. You may modify this source code and use it in your ownã'programs. You may use it in a written publication provided that it is notã'altered, and that you give credit to the author (James Tonn).ã'I hope this code will help you in your programming.ã' -Jimmy Tonn 8/94ã' sltonn@phoenix.princeton.eduã' sltonn@eden.rutgers.eduã' jtonn@nerc1.nerc.comã' 75022.401@compuserve.comããDEFINT A-Z 'declare all variables starting with a through z as integersãSCREEN 13 'set screen mode 13, 320x200x256ãCLS 'clear screenããRESTORE world 'restore data pointer so all data reading starts after labelã ' "world"ããCONST ACROSS = 11 'this is the number of across tiles that will appear onã 'the screen at a time, the total number of across tilesã 'is stored in the variable tacrossãCONST DOWN = 11 'number of down tiles on screen... total down tiles areã 'stored in tdownããDIM blankimg(116) 'create an array for the blank tileã 'this tile will be totally black, all zero'sãDIM grassimg(116) 'create an array for the grass tile's image, 116 bytesãDIM treeimg(116) 'create an array for the tree tile's image, 116 bytesãDIM playerimg(116)'create as array for the player tile's image, 116 bytesããREAD tacross, tdown 'get these values from the big data block "world"ã 'at the end of this programããTYPE tiletype 'create a type called tiletypeã x AS INTEGER 'the tile's x pixel coordã y AS INTEGER 'the tile's y pixel coordã style AS INTEGER 'the tile's styleãEND TYPEããDIM tile(tacross, tdown) AS tiletype 'declare array "tile" as tiletypeããTYPE playertype 'create a type called playertypeã x AS INTEGER 'x tile where the player isã y AS INTEGER 'y tile where the player isã px AS INTEGER 'the players "permanant" x tile, the tile that he appearsã 'in out of the tiles on the screenã py AS INTEGER 'the players "permanant" y tileãEND TYPEããDIM player AS playertype 'declare the variable player as a playertypeããREAD player.x, player.y 'read player x and y coords from data block "world"ãplayer.px = 6ãplayer.py = 6ããDEF FNSetlocs 'function to set pixel locs of tiles that appear on screenã FOR a = 1 TO ACROSSã FOR d = 1 TO DOWNã tile(a, d).x = 15 * a 'set pixel x location of tileã tile(a, d).y = 15 * d 'set pixel y location of tileã NEXT d '(all tiles are 15x15 pixels)ã NEXT aãEND DEFããDEF FNSetAtts 'function to read the styles of all tiles from data blockã FOR d = 1 TO tdownã FOR a = 1 TO tacrossã READ tile(a, d).style 'read the tile's styleã NEXT aã NEXT dãEND DEFããã'this next routine draws the tile on the screenã'the tx and ty variables are the tile numbers out of all the tilesã'the cx and cy variables are locations of the tile spaces where the tilesã'will be displayed on the screenãDEF FNDrawTile (tx, ty, cx, cy)ã SELECT CASE tile(tx, ty).style 'check the tile's styleã CASE 0 'if it's 0, draw an array of zero's (a black tile)ã PUT (tile(cx, cy).x, tile(cx, cy).y), blankimg, PSETã CASE 1 'if it's 1, draw the grass tileã PUT (tile(cx, cy).x, tile(cx, cy).y), grassimg, PSETã CASE 2 'if it's 2, draw the tree tileã PUT (tile(cx, cy).x, tile(cx, cy).y), treeimg, PSETã END SELECTãEND DEFãã'this draws all the visible tiles on the screenã'it will draw from 5 tiles to the left of the player to 5 tiles to his rightã'and from 5 tiles up to 5 tiles downãDEF FNDrawScreenã FOR rela = -5 TO 5ã FOR reld = -5 TO 5ã dummy = FNDrawTile(player.x + rela, player.y + reld, player.px + rela, player.py + reld)ã NEXT reldã NEXT relaãEND DEFãã'this function draws the player on the screen in his "permanant" locationãDEF FNDrawPlayerã PUT (tile(player.px, player.py).x, tile(player.px, player.py).y), playerimg, PSETãEND DEFããDEF FNDisplayImg 'this function will read an images colors from a data blockã 'and display the image on the screen. Before calling thisã 'function, reset the data pointer to the beginning of theã 'data block for the image.ã FOR dp = 1 TO 15ã FOR ap = 1 TO 15ã READ att 'read the value at the point in the data blockã PSET (ap + 10, dp + 10), att 'put the pixel on the screen with theã 'color that was read from the dataã 'blockã NEXT apã NEXT dpãEND DEFãã'* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *ã' * * * * * * * * * * * * End of Function Defs* * * * * * * * * * * * * *ããdummy = FNSetlocs 'set the locations for the on-screen tilesãdummy = FNSetAtts 'set the styles for all the tilesããGET (11, 11)-(25, 25), blankimg 'get an array that is all zero's, which willã 'the black tile that we put around the edgesã 'of the map. No data reading is needed sinceã 'the screen is already totally black. Allã 'we need to do is grab a block.ããRESTORE grassdata 'restore the data pointer to the beginning of the dataã 'block that stores the grass tile's image. If you'reã 'reseting the data pointer to load the images, do itã 'after calling FNSetLocs and FNSetAtts, because theyã 'need the data pointer in a certain placeãdummy = FNDisplayImg 'call routine to read and display the imageãGET (11, 11)-(25, 25), grassimg 'get the image into array "grassimg"ãPUT (11, 11), grassimg, XOR 'put image over existing one to clear itããRESTORE treedata 'restore data pointer to beginning of the tree tile's imageãdummy = FNDisplayImg 'read and display the imageãGET (11, 11)-(25, 25), treeimg 'get the image into array "treeimg"ãPUT (11, 11), treeimg, XOR 'put image on top of the old one to clear itããRESTORE playerdata 'restore pointer to beginning of player tile's imageãdummy = FNDisplayImg 'read and display the imageãGET (11, 11)-(25, 25), playerimg 'get the image into array "playerimg"ãPUT (11, 11), playerimg, XOR 'put image on top of the old one to clear itããdummy = FNDrawScreen 'draw the screen onceãdummy = FNDrawPlayer 'draw the player onceãããDOã kbd$ = INKEY$ 'get a "transparent" inputã IF kbd$ <> "" THEN 'if there actually was a user input, then...ã kbd$ = RIGHT$(kbd$, 1) 'get the first byte of the input (this is neededã 'if you want to look for input from the cursorã 'keys)ã SELECT CASE kbd$ã CASE CHR$(27) 'user pressed escape keyã END 'end the programã CASE CHR$(72) 'user pressed up arrowã IF tile(player.x, player.y - 1).style <> 2 THENã '^^^ check if the tile the player is about to move into isã 'already occupied by a tree.ã 'if you check for a tree, you really don't need to check ifã 'the player is going to go past the line of trees at theã 'edge with the other method, because if you check for a tree,ã 'it will stop you before you go past the line anyway I justã 'added them both in case the reader wanted to use a certainã 'method for some reason.ã ã IF player.y - 1 > 5 THEN 'make sure he doesn't go pastã 'the line of trees. You willã 'probably have to change thisã 'number around if you change theã 'player's view screen sizeã player.y = player.y - 1 'decrease player y tile by oneã END IFã dummy = FNDrawScreen 'draw the screenã dummy = FNDrawPlayer 'put the player on the screenã END IFã CASE CHR$(80) 'user pressed down arrowã IF tile(player.x, player.y + 1).style <> 2 THENã '^^^ check if the tile the player is about to move into isã 'already occupied by a tree.ã IF player.y + 1 < (tdown - 5) THEN 'keep player on screenã player.y = player.y + 1 'increase player y tile by oneã END IFã dummy = FNDrawScreen 'draw the screenã dummy = FNDrawPlayer 'put the player on the screenã END IFã CASE CHR$(75) 'user pressed left arrowã IF tile(player.x - 1, player.y).style <> 2 THENã '^^^ check if the tile the player is about to move into isã 'already occupied by a tree.ãã IF player.x - 1 > 5 THEN 'keep player on screenã player.x = player.x - 1 'decrease player x tile by oneã END IFã dummy = FNDrawScreen 'draw the screenã dummy = FNDrawPlayer 'put the player on the screenã END IFã CASE CHR$(77) 'user pressed right arrowã IF tile(player.x + 1, player.y).style <> 2 THENã '^^^ check if the tile the player is about to move into isã 'already occupied by a tree.ãã IF player.x < (tacross - 6) THEN 'keep player on screenã player.x = player.x + 1 'increase player x tile by oneã END IFã dummy = FNDrawScreen 'draw the screenã dummy = FNDrawPlayer 'put the player on the screenã END IFã END SELECTã END IFãLOOP 'restart the main loopãããworld:ããDATA 30,30ãDATA 15,15ãDATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ãDATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ãDATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ãDATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ãDATA 0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0ãDATA 0,0,0,0,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,0,0,0,0,0ãDATA 0,0,0,0,2,2,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,2,0,0,0,0,0ãDATA 0,0,0,0,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,0,0,0,0,0ãDATA 0,0,0,0,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,2,0,0,0,0,0ãDATA 0,0,0,0,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,0,0,0,0,0ãDATA 0,0,0,0,2,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,2,0,0,0,0,0ãDATA 0,0,0,0,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,0,0,0,0,0ãDATA 0,0,0,0,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,0,0,0,0,0ãDATA 0,0,0,0,2,2,1,1,1,1,1,2,1,1,1,1,1,1,2,1,1,1,1,2,2,0,0,0,0,0ãDATA 0,0,0,0,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,0,0,0,0,0ãDATA 0,0,0,0,2,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,2,0,0,0,0,0ãDATA 0,0,0,0,2,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,0,0,0,0,0ãDATA 0,0,0,0,2,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,2,0,0,0,0,0ãDATA 0,0,0,0,2,2,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,2,1,1,2,0,0,0,0,0ãDATA 0,0,0,0,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,0,0,0,0,0ãDATA 0,0,0,0,2,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,2,0,0,0,0,0ãDATA 0,0,0,0,2,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,2,0,0,0,0,0ãDATA 0,0,0,0,2,1,2,1,1,1,1,1,1,1,1,2,1,1,2,1,1,1,2,1,2,0,0,0,0,0ãDATA 0,0,0,0,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,0,0,0,0,0ãDATA 0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0ãDATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ãDATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ãDATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ãDATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ãDATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ããgrassdata:ãDATA 0,0,0,0,2,0,0,0,148,0,0,2,0,0,0ãDATA 0,2,0,0,0,0,0,0,0,0,0,0,0,0,141ãDATA 0,0,0,0,142,0,0,2,0,0,0,0,0,0,0ãDATA 0,0,0,0,0,0,0,0,0,0,0,0,2,0,0ãDATA 0,2,0,2,0,145,0,0,0,142,0,0,0,0,0ãDATA 0,0,0,0,0,0,0,0,2,0,0,0,0,0,2ãDATA 0,0,0,142,0,0,0,0,0,0,0,2,0,0,0ãDATA 0,2,0,0,0,142,0,0,0,0,0,0,0,0,0ãDATA 0,0,0,0,0,0,0,0,0,2,0,0,147,0,0ãDATA 0,142,0,0,0,0,0,0,0,0,0,0,0,0,0ãDATA 0,0,0,2,0,0,142,0,0,2,0,0,0,2,0ãDATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ãDATA 2,0,0,0,0,145,0,2,0,0,0,0,2,0,0ãDATA 0,0,0,2,0,0,0,0,0,0,0,0,0,0,142ãDATA 145,0,0,0,147,0,0,0,2,0,0,2,0,0,0ããtreedata:ãDATA 0,0,0,2,2,2,2,2,2,2,2,0,0,0,0ãDATA 0,0,2,2,2,2,2,2,2,2,2,2,0,0,0ãDATA 0,6,2,2,2,2,2,2,2,2,2,6,0,0,0ãDATA 0,2,6,2,2,2,2,2,2,2,6,2,0,0,0ãDATA 0,2,2,6,2,2,2,2,2,6,2,2,0,0,0ãDATA 0,0,2,2,6,2,2,2,6,2,2,0,0,0,0ãDATA 0,0,0,0,0,6,6,6,0,0,0,0,0,0,0ãDATA 0,0,0,0,0,6,6,6,0,0,0,0,0,0,0ãDATA 0,0,0,0,0,6,6,6,0,0,0,0,0,0,0ãDATA 0,0,0,0,0,6,6,6,0,0,0,0,0,0,0ãDATA 0,0,0,0,0,6,6,6,0,0,0,0,0,0,0ãDATA 0,0,0,0,0,6,6,6,0,0,0,0,0,0,0ãDATA 0,0,0,0,0,6,6,6,0,0,0,0,0,0,0ãDATA 0,0,0,0,6,6,6,6,6,0,0,0,0,0,0ãDATA 0,0,0,6,6,6,6,6,6,6,0,0,0,0,0ããplayerdata:ãDATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ãDATA 0,0,0,0,0,0,7,7,7,0,0,0,1,0,0ãDATA 0,0,0,0,0,0,7,7,7,0,0,0,1,0,0ãDATA 0,0,0,0,0,0,7,7,7,0,0,0,1,0,0ãDATA 0,0,0,0,0,0,0,7,0,0,0,0,1,0,0ãDATA 0,0,0,0,0,0,0,7,0,0,0,0,1,0,0ãDATA 0,2,0,2,0,0,0,7,0,0,0,1,1,1,0ãDATA 0,2,2,7,7,7,7,7,7,7,7,7,7,0,0ãDATA 0,2,2,2,0,0,0,7,0,0,0,0,1,0,0ãDATA 0,0,2,0,0,0,0,7,0,0,0,0,1,0,0ãDATA 0,0,0,0,0,0,0,7,0,0,0,0,0,0,0ãDATA 0,0,0,0,0,0,7,0,7,0,0,0,0,0,0ãDATA 0,0,0,0,0,7,0,0,0,7,0,0,0,0,0ãDATA 0,0,0,0,7,0,0,0,0,0,7,0,0,0,0ãDATA 0,0,0,7,0,0,0,0,0,0,0,7,0,0,0ããMichael J. Kelly SMALL FONT (8X8 SANS SERIF) QBTIPS_?.DOC 07-06-92 (08:03) QB, PDS 52 3395 SMLFONT.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"SMLFONT.ZIP",4^6:Z&=2268:?STRING$(50,177);ãU"%up()%9%%%R-%KEAaEsZ%dmc)%%%%-%%%0%%%%xr%qkts%ySks[yrzF,9]k5%SAãU"uSZ;o*08U=;c[e8h%MRgPL;V+oI&?uS2QjB8WQK/>H%*deSDHUQWL1CA7K5\2gqãU"0gLqf+=n5gGW%7XO.O*BsNzD5DvDzSX71jpd=WX]W]\%tVN\Y:q[*NY]b17[)H0mq6%qãU"m_.7+InHv:ZCc&j]5?$t.DLmx;9tQl2SdzTJ6Ya((T4Q0qNtZvãU"1OPengi#\>/%q[%6lhX=0Z&>rI+D6LMT$##Xc5Za4-Y64B-e0BLtA=&%cXN0kQ+ãU"Fbk2QAc&TQDWS3&kL^a%x9\Ub78NcRW&<)k6^[l?sg7G:76iTp^8:a3Zl(l#5W1ãU"/^H=/??pj.-s5N/N\X:\*^qI[,a&=QP#iHEpe%u,_w6-8<;onym)r_5tR8i9]lvãU"^1c>j]IP]PL;Y$x3IhU1-$t[H[?=)-&I,/]oFRE(p;kinJJc#jxC4ãU"eKf6Zv.xj:n9SK5:a'lQ&8jR1kSw$eqVMYTt=2%\$%.BSZdIVNqJi:66LIs/x\WãU".Q)aAb-;^iEnn[-:#O9s/p(]_Y$mw,0aO,j6=)T_2lq4S.ICV$<]J>*]29&dQ4LãU"tE.j,[Q/kW+Orj7u$oOUDDU\ceU9V-.RYNlLd.JTP)gm5h1a>z+IxI&jfiãU"w8Ih0SO]O.DtUroKgp*PFL2W?K]Npy4H+I7Bla'0P&kKQmOKZ-GLlolV(*KWG'oãU",c^\c%jjmufh\nr+_dW'QER2VVV0EEFeRWZN2$HleZfkZgt%7v7Uzf?apx.yHDib=6k6S3^ãU"\yr>?hSGyYG2WYhE&x&7NaG'R.y^s)k.EA04+3*;[V98EwBvQ/^oYQ8?a6l;ãU"8..\[..WXqfOAs%Ucp6m3.p]^X%i.[1QQ,39*uoqvkY(*7?gTA02Te_J(8RooRzãU")SS.fJn:q/#yW&Auf>]Ppq/7X?;TIS\?0#P^nQ171mWrAAB,Z-Vkm\%)/oFQ0^Jb;0%aAãU"zw4u:0B#HXX+?g'X50?)108[^d].W2O3b*]nQBEPRjeDAh:mfCdT8,oãU"lUX:$wc1aib0BA4N>;Q,+OWcwE/')mqW2mOA11gucL_7,wf[)Mrfb=4/XãU">=2=K#84Ku4pW8fSABMY+1aQKuc0SK;%C[4kto5iJek]fu((oD$=En.9cc2Cn(yãU"&'O[(i<2xvh'sNCNkC$PTFNPr:rdK$VZ*7yZ8+q;tC0+17m&BzEi,y)8bGq[%NtãU"29a1+PcX'eNPh1R-[-O;=kv'>nDW&6kOOf.HWpT(q(xU?Qi$26;iw+pVr>7I/Q7ãU">bE,XsGSB2R-Jd-UKh\5m3:cZaDu*5(Q;]UvZHfOARjAaW^I]wRWpxaOr.+55JV+N>HãU"BBWvsDx)/gPvbddNBu,L'6?-3NwUthOz-T>GA\IOeA(gDptm-[5O.bH-re8%EZlãU"1^:/pXx?a&uA/vX:pbzX7l^=#]A1iSKXhEcD8$'PD7\Va%GF?.6NTCig9JUgRwEãU",<%5-xFK7g346Y70'5&Ytupk_/;&Bq:$#wn)f[=r[l0l09R=Jr#+;5MchszX;2YãU"wXkPJiweefvS#)dvoopgB1UCVD,Jdbqw5U,Bfah(&mo=cK%Wb]PTOGqTFx4D,LRãU"1^]Q^&lCHdo>CUaNCkPP>3sd2d$VsG?(%%%I.%%ãU"%/%%%%%%%%%&%%E%%%&6)%%%xrqk%sySg%fxup%*+%%%%%'%.'%#%%%%z-%%%%%ãEND SUBãCLOSE:IF S=59AND 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ãEarl L. Montgomery VESA MANDELBROT FidoNet QUIK_BAS Echo 04-17-96 (22:32) QB, PDS 135 4270 VESABROT.BAS' Here is a VESA high resolution Mandelbrot program. It allowsã' you to choose the mode. You can let the computer pick the values orã' you can enter them yourself. For testing I recommend you select ã' when prompted and enter the following yourself:ãã' acorner -.114ã' bcorner -.917ã' side .017ãã' On my 486/50 it takes about 12 minutes to complete. I think it looksã' like multiple tornado funnels with multiple lightning strikes.ãã' BTW this is if you choose #1. 640x400x256ãã' When the screen is filled you will hear a beep and you can exit orã' run it again by pressing the space bar twice. Or if you have the TSRã' GRABBER that can be found on most BBSs you can save the screenã' to an executable file by pressing CNTRL= then . When youã' exit to dos you can view the saved screen by simply typingã' SCREEN00 at the DOS prompt. The loading takes less than a sec!ãã' To run this program you must have a VESA compatiable graphicã' card/chip . Or if your SVGA card/chip is not VESAã' compatiable you can run it provided you have a VESA TSR loaded.ãã' P.S. If you let the computer pick the values or even if you enter theã' values and nothing appealing is being put on the screen you canã' press the space bar and you will be prompted to EXIT or RUNã' again.ãã' Let me know if you have problems. Enjoy!ãã '$INCLUDE: 'qb.bi'ã DIM inreg AS RegTypeã DIM outreg AS RegTypeã DEFDBL A-Zã RANDOMIZE TIMERã KEY(10) ONã ON KEY(10) GOSUB endofprogramã CLS : LOCATE 12, 30: COLOR 14: PRINT "WELCOME TO VESABROT"ã LOCATE 14, 23: PRINT "Brought to you by Earl Montgomery"ã SLEEP (2)ãmakeselection:ã CLSã LOCATE 1, 1ã PRINT "1. 640x400x256"ã PRINT "2. 640x480x256"ã PRINT "3. 800x600x256"ã PRINT "4. 1024x768X16"ã PRINT "5. 1024x768x256"ã PRINT : INPUT "Select mode"; m%ã IF m% < 1 OR m% > 5 THEN BEEP: GOTO makeselectionã CLSã INPUT "Let the computer select values "; q$ã q$ = UCASE$(q$)ã IF q$ = "Y" THEN CLS : GOTO randomselectã INPUT "Acorner "; aã acorner = aã INPUT "Bcorner "; bã bcorner = bã INPUT "Side "; sã side = sã GOTO startãrandomselect:ã acorner = (RND * 5 - 2)ã IF acorner > 2 THEN GOTO randomselectã IF acorner < -2 THEN GOTO randomselectãbcornerselect:ã bcorner = (RND * 5 - 2)ã IF bcorner > 2 THEN GOTO bcornerselectã IF bcorner < -2 THEN GOTO bcornerselectãsideselect:ã side = (RND * 5 - 2)ã IF side > 2 THEN GOTO sideselectã IF side < -2 THEN GOTO sideselectãstart:ã maxdwell = 150ã inreg.ax = &H4F02ã IF m% = 1 THEN inreg.bx = &H100ã IF m% = 2 THEN inreg.bx = &H101ã IF m% = 3 THEN inreg.bx = &H103ã IF m% = 4 THEN inreg.bx = &H104ã IF m% = 5 THEN inreg.bx = &H105ã CALL interrupt(&H10, inreg, outreg)ã IF m% = 4 THEN numcolors = 16: ELSE numcolors = 256ã IF m% = 1 THEN numrows = 399ã IF m% = 2 THEN numrows = 479ã IF m% = 3 THEN numrows = 599ã IF m% = 4 OR m% = 5 THEN numrows = 767ã IF m% = 1 OR m% = 2 THEN numcols = 639ã IF m% = 3 THEN numcols = 799ã IF m% = 4 OR m% = 5 THEN numcols = 1023ã yoffset = 1: xoffset = 1ã highdwell = 0ã gap = side / numrowsã ac = acornerã FOR x = xoffset TO numcols - 1 + xoffsetã ac = ac + gap: bc = bcornerã FOR y = yoffset TO numrows - 1 + xoffsetã bc = bc + gapã az = 0: bz = 0: count% = 0: size = 0ã WHILE (size < 4) AND (count% < maxdwell)ã temp = az * az - bz * bz + acã bz = 2 * az * bz + bcã az = temp: size = az * az + bz * bzã count% = count% + 1ã WENDã IF (count% < maxdwell) AND (count% > highdwell) THEN highdwell = count%ã IF count% <> maxdwell THEN GOSUB setpixelcolorã i$ = INKEY$ã IF i$ = CHR$(32) THEN GOTO restartã NEXT: NEXTã BEEPãwait1:ã i$ = INKEY$ã IF i$ = CHR$(32) THEN GOTO endofprogram: ELSE GOTO wait1ãsetpixelcolor:ã c = count% MOD (numcolors - 1) + 1ã cc = &HC00 + c: z = numrows - y + 1ã inreg.ax = cc: inreg.bx = 0: inreg.cx = x: inreg.dx = zã CALL interrupt(&H10, inreg, outreg)ã RETURNãendofprogram:ã SLEEP (500)ã inreg.ax = &H3: CALL interrupt(&H10, inreg, outreg)ã CLS : LOCATE 1, 1ã INPUT "[R]un again or [E]xit to DOS"; q$ã q$ = UCASE$(q$)ã IF q$ = "R" THEN RUNã CLS : LOCATE 14, 23: PRINT "Make sure you rename any saved files!"ã SLEEP (2): SCREEN 0: CLS : ENDãrestart:ã inreg.ax = &H3ã CALL interrupt(&H10, inreg, outreg)ã RUNãJoshua Dickerson SPRITE(BITMAP) EDITOR FidoNet QUIK_BAS Echo 04-23-96 (21:25) QB, QBasic, PDS 124 2973 BITMAP.BAS ' Here is a simple bitmap editor i wrote to aid in the design of my games..ã'You start out in zoom mode where you can edit individual pixils of yourã'bitmap, and as soon as you press esc, it automaticly writes a qBasic file withã'data statements and a loader for them..use the numeric keypad to move aroundã'and the , and . to select the colors (Actually < > without the shift hehã'heh).. hit space to set the point to the current color.. An "X" will denoteã'where you are, but you will not see the changes to that pixil until you moveã'the cursor away from the spot you were working on.ããDECLARE SUB UpdateScrollBar ()ãDECLARE SUB Display ()ããDIM SHARED x, y, xMax, yMax, SelectedColorããCLSãINPUT "Bitmap X size ->", xMaxãINPUT "Bitmap Y size ->", yMaxããDIM SHARED Bmp(xMax, yMax) AS STRING * 1ãSCREEN 13ããLOCATE 23, 1ãPRINT "v"ãUpdateScrollBarãDisplayãDO WHILE a$ <> CHR$(27)ã SELECT CASE a$ã CASE ","ã SelectedColor = SelectedColor - 1ã IF SelectedColor < 0 THEN SelectedColor = 255ã UpdateScrollBarã CASE "."ã SelectedColor = SelectedColor + 1ã IF SelectedColor > 255 THEN SelectedColor = 0ã UpdateScrollBarã CASE " "ã Bmp(x, y) = CHR$(SelectedColor)ã Displayã CASE "4"ã IF x > 0 THEN x = x - 1ã Displayã CASE "6"ã IF x < xMax THEN x = x + 1ã Displayã CASE "8"ã IF y > 0 THEN y = y - 1ã Displayã CASE "2"ã IF y < yMax THEN y = y + 1ã Displayã END SELECTãã LOCATE 7, 7ã COLOR SelectedColorã PRINT "X";ã ã a$ = INPUT$(1)ãLOOPããCLSãFOR i = 0 TO xMaxã FOR j = 0 TO yMaxã PSET (i, j), ASC(Bmp(i, j))ã NEXTãNEXTããSize% = 4 + INT(((xMax + 1) / 2) * (yMax + 1))ãDIM BitMap%(Size%)ããGET (0, 0)-(xMax, yMax), BitMap%ããOPEN "Test.bas" FOR OUTPUT AS #1ãPRINT #1, "SCREEN 13"ãPRINT #1, "DIM BitMap%("; Size%; ")"ãPRINT #1, "FOR I = 0 to"; Size%ãPRINT #1, " READ BitMap%(I)"ãPRINT #1, "NEXT"ãPRINT #1, ""ãPRINT #1, "PUT (0,0), BitMap%"ãPRINT #1, "END"ãPRINT #1, ""ãPRINT #1, "DATA ";ããFOR i = 0 TO Size% - 1ã x = x + 1ã ã PRINT #1, "&H" + HEX$(BitMap%(i));ã IF x > 8 THENã x = 0ã PRINT #1, ""ã PRINT #1, "DATA ";ã ELSEã PRINT #1, ", ";ã END IFã ãNEXTãPRINT #1, "&H" + HEX$(BitMap%(Size%))ããCLOSEããSUB Displayã CONST WindowSize = 6ãã FOR i = -WindowSize TO WindowSizeã LOCATE WindowSize + 1 + i, 1ã FOR j = -WindowSize TO WindowSizeã IF j + x >= 0 AND i + y >= 0 AND j + x <= xMax AND i + y <= yMax THENã COLOR ASC(Bmp(j + x, i + y))ã PRINT CHR$(219);ã ELSEã COLOR 15ã PRINT CHR$(178);ã END IFã NEXTã NEXTãEND SUBããSUB UpdateScrollBarã LOCATE 24, 1ã FOR i = 0 TO 39ã COLOR (i + SelectedColor) MOD 255ã PRINT CHR$(219);ã NEXTãEND SUBãChad Beck IMAGE MAKER TAKE II Earl L. Montgomery 10-09-95 (02:31) QB, PDS 123 8060 IMAGE2.BAS ' If you picked up Earl Montgomery's recent "Image Maker" program,ã'then pick this up too. Functionally, the only change is that pressingã'F10 during a LOAD or SAVE prompt will not exit. Instead, entering aã'blank line at these prompts will return you to the drawing screen whereã'you may exit. However, the improvements in speed and code size areã'relatively dramatic.ããDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"IMAGEMKR.ZIP",4^6:Z&=5485:?STRING$(50,177);ãU"%up()%9%'%R-%gk7nDFX-^U_(%%%=,%%%1%%%%nr%fljr%pwSi.thTz;,>TkC5KãU"4_-x)kCEu1UD0SGXua9)B3s;c(CdgdO7_k]Pkk9ke2pbiZ8HHgv%%q6m.I&;xllãU"VRhZX>w$)WWkveZXu7IZvcnz3hcl4__ju<42r'wVR0q=crgW7#]Q$R6S>'Hpy'0ãU")+2MeXiA.V7\/E4*=gq\ANI%CsYs-:LL<)1+r9i9MOZnxy1eEt,3SQ:q&XQ4rC)ãU":a;(59W*O;YKsg.TP3O%MJlBJ+ORA8]#vl%iB$7'[aHjTYu\;w\EkfAkQ;2#*j&ãU"^C;emb?ss0,RCan7.YMVKG:#m>ri>GnRPcj[.hG7&rPye2ihW$-Kl+TN/OVZpzmãU"X;*tb4LODL;(HUC[[pg50;;tCd'O/v*Y'I=dA&\dQl4KGf001=6?J(No\d9+h(FãU"Q#Us8MxImjf^[CBNq6/ZdbU)k5TQ?SD4jf;=ãU"VW[\RlU2F>=QRN#a.wr5iR7k>*[1d7;_nH>PKrUgd.e#3;#RuGh/BCIg_43h9EgãU"L]^==$>pMU?MB>ZPrc&6FCuPO#\nnM3_NXQaR$6rNuu^*A+u\['UxRc6txWg\qk3sUIFl4#OWf0x4n#tsF9<^U'GkãU"L%g#+COh#B7as9xKVZu[c=k5Ld[mS$8xt&if3BHCW'2&].+]vWEwdJo4i&XwaZDãU"y5a:V*0:g;\l7'%up()%9%'%7-%#8%nD.7(Xj_-7%%5;%%%1%%%%nr%fljr%pwSãU"gIfxl'q:B[147vky0^dCvWM/XPINpMORnK0GhgS)?<)ge2-0g<(^++her%6\#XI#it2owe2,,]LZ,ZQUY=#*O_+,_6;x4ReQaN4>N]?BrrI,r::+aãU"&,e:\'7cPb]*?lcy1kxZDAlQa(bCc3L6/--&ãU"lCbXSIknR);$K=4Rg:.I\6P*S/rZJ1PhG(9y\I[qu'Tt:#LTjOPT')J/V2Sq_u=ãU"vSTjJ#n9W=wdFt+uC=b*)7lU9n\T)H3Z#9M?vCdr&Uga3a]pVgtiDaJABURRs9gãU"RR:E>RM]i%.:h9*fdx^w]Y1;=S_XjK,M7mWhm(??1;XM/s0=Ou6W>;S7*wO4k5tãU"=VMJ)kWw'S^ki'JXoi4zH#G2Y$$GROb#Y4MF[;FvB4Gn0cC5q[%GDq;l^>:GcjWãU"2j6HZMdkf8>k^NI[^TxxR&T%Sd7TyK\[F)9Ar2$h>sJT6UnEVN#CNROvpAi8;6Z>Z7,NãU"r\1'AN(rDvv1)c89E:LW'H:bF8p+##G.P$a7OUXj13]kHa^(US6ZBp#z#RtU(i=ãU"=X+Ul/#=lwjFx_CX*S8wQV*_sqUFZKc><#Ue/*#[^KJ1E:j<1Scm7QWo77%Z:%EãU"W_,P>cn_gUDo[UdnãU"X'[#T4:c=Rn#Q?*GUT=%qe>/u=S92qH8'H-$3>p=vK^7WoR8MbJ(WZZIwFit&r0ãU"pKW0&-G%f<]4Z+IX3a0.\i+;X:Y4'F6nU3aZ]_;9g=p_]A8=fL1oaUh$J?(ipHijHjmãU"LyBV8EC3UWjfXHtR>Dh3W6p^WS,#dgjNt+(=xlI,1c*6AqA-y[Rb#XR'RJBfvE#ãU"w6U4$<]0*h&0;FdCe+tL8hPuA)quf5>4s?(k(f*i8E.O8t,S#sH4c:j'-WIja&EãU"%JQNN*T2P9BEx6[k)B+3QMDk/>0q_]Qu\uXuwUu2J?D=#Umc$Ta_OIi(J*[.#g2ãU"g3GiO\p$MbT?tg=5fd1#P^3'nKi>C9VqdeZHIE+mZ.Oe0P9l].VW4OOOw/myN.0ãU"72OxG**M?2w+)R,bj2tLyXZbm%yts/]dSzpU6K#,Ollgx1tUPOuCJcSjCKtDIZj9XH*OjDLHb/$Kr?1o?:T-m?irXVãU"gWX0iCF2tZ;6%QW>6P)8p=,>,)G&c_l[dQkYfmVRF,4LMjt(%9Sk/0^0paHX69pãU"jakpP'eP8:TCT^VMkv*$M]o^hfC+8A^myR^IAEJnaKCN&hZGZngqBK\I(wdvoe?ãU"Pbn0u\M[n2MNNnsKl>QbpILFG7g],/.kVLzJm0N9G\8#T=Bkc,bzi:piAR_^Sb,ãU")oYfgCRt-wi=Q+9VvHBh^kl>tbiUnRH4h*'I=.#gU+V7ccDt__r0_xe\oY3E+QZãU"hN2kw/)THBCIpzcnsp.WG;Br;^ITO75Ot;qYCrTRQj2*aSjSdn5Sy.spW.i;ãU"z+_pvj,$SY*Xvj[m)f,wcPC]?,u.L5$1\)I>oU%J+E]62s+G9Y&25c0iAOZ*g;(ãU"UJ'(kd'k/8>u/dUzOb_4gK971&OOEM\8Sqai(P?lf#FgãU"OCmFOsjQ3s0n4=q65Ewv/Q0hk\dMAZJ%=MRKrgFky]e?*%i9m/iQ*'+hcV8&jWRãU"r4c:VwO4ZUaFn]gR8k=).Y0-Zu]X?sX(T0Sd_u-cvJGR$J<=unm*_f7(CDzlbpyãU"EV+zQdQMNcGAxxOKRNB7K#0+.M0\jA]r)JpLVysAva4,tpMitkHKK_lM\.7RB>vãU"hItrp6XRVcKMEDe=*xo)]Q2hjg6rfLb$Lq%+iko1XDwu/%Ml8N-sd%up()%9%'%ãU"#-%io7nDP,+L7&&.%%6*%%%/%%%%uf%ltif%SgnsENbV=B;U9U2n:yQDeohtso&ãU"AA%/Xh]7/la23)IYC_r2l,)#[AFmH(iPr**t6q/'CIowwm$opQQ1F8wi3b(R5;FmLXGf+u$dCXg:6ãU"HPsGMCf.u4YNeu5>+gnr;gY0hcO+*sS))4$2Y:M4rwbv7%%up(%)9%'%%-%W&)nãU"Dp1IE_,[)%%$%S%%0%%%%q%jyyj%wxSgRnsfi:t;TyjA#N(N/aO+^\(LNbo%VfkãU"sV_VMEizU.S#Wo)wR(<.38B-rKS=:2,_inC>LKbQa:yI/;ppmSoCrBAz),V=Ea:ãU"U0MC%obt2UJ[GK93_Zt3CPB5]0E7cB.IF:I&W3M[L%=wMCfo4?.34T9p(U5xrHI6Ix#ãU">=U]hY5mWXk*tn;^ys*v]-MoVQj=sW'c+W&nTL$r$,a(Ii<'s$/dj(_ZJjoU^1=ãU">^1xQNmYSNJ[F)c]:$*X?4/k0l0N8F0F[C:c2Ne64anGqk&P,E';Pq?qsNb]&SDãU"yR/J?D_RST5_s3,JvxBIX;jwl*($QRK9A&7I3iDXdrãU"v:4,lWNKx8\H.Qi\mkHJ1El.4_hzv&+QXN'Z4rNw4#[7baHa]BRRI;SzQ'?)su(ãU"jv+cls6btz+65Ir7vqr=q5bhe'ZMie=6+S8^vD4+c%asdtZ_K&W-LADgO+(D5RwãU"_BxSDRnvo34UNV03,.)\:W?N#5))QY_:$?<#Nt-vX0]=I^#9AwqU)++KTIVp$I=F6^kW:7x$F'9XDc+V(P9A6*9hxX^s$J5yãU"ThMqUP3NfJIbC?oom-%ZLMhc_/=EKh86'6sK.z151<)a,jdYbU$>A:1IkkJ[jj6ãU"p73[lr36\xU5bj.G*?#=c?CcQ'v&U^7bujbpz*rd_=k\-*oFI'hoanj.vqEq/%#-/($;ãU"M+(<6IvXP=mJA:SMLjjXUj:Zum\s(kXiL$<6X7G.I>Wr2+^FJ1_01D0e95o)0q<ãU"K]wm7,GQCgst5^5fg2UX+irWkpM_bTX&)Uq7OdSM1ez\G&-xqskh?(WMn+NqT^LãU"N-'oDH2gEqxbpA=e+<>s,;^9F?%z3P[qvkere9ZQYNiAl]?^w+1(D93eYCq3id\PmãU"d'/B5DIjaOG$?b8R2#5r+1a88bsN,2>rtl6$drL^wgIW5jlApZ_ET0g]?4]xdd%ãU"%up(%)9%'%%-%n&onDg'N&?i#&%%6%*%%/%%%%g%zlrf%sSgnjsFc:+oCTQIpi1zh4x2X)Y1I2X]Y^Q1oP(1Bi+ZeG]GeZ\(U7ãU"Y5aJ<1osL50a7\JF,flo8lYvhpFmGLll]\P&akr)$MM2xGZK(U2xL=$Z(]eLIx1^x&7a#JF:&0:>jUSO#]_S9]0QhãU"\0OMxm<&:>?bs#RToiqo68Q4qKDWps72^h,aSh8%gwB9*S?eP0+Ym'<19u>82YãU"R\]P5Z19>.LSg:L64qiYRSjO=]'A?2Ivw$A]o#VIe&v$;a*pl1D>U0+'Y'<6%SSãU"J?[B:.wB(Z??%&%%%%%%%%,?Ivz2V:c'#%%%7'^(up%&'9%%9%'%R-%gk7nDFX-ãU"^U_(%%%=,%%%1%%%%%%%%%&%%E%%%%%%%%%nrfl%jrpw%Sith%up&'%9%9%%'%-ãU"%'#8nD#.7Xj%_-%%'5;%%%1%%%%%%%%%&%E%.%%3(%%%nr%fljr%pwSg%fxup%&ãU"'9%%9%'%#-%io7nDP,+L7&&.%%6*%%%/%%%%%%%%%%%%E%%%'A0%%%uflt%ifSgãU"%nsup%&'9%%9%'%#-%W)%nDpI)E_,)7%%$S%%%0%%%%%%%%%%%%E%%%'j1%%%qjãU"yy%jwxS%gnsu%p&'9%%9%'%%-%n&onDg'N&?i#&%%6%*%%/%%%%%%%%%%%%E%%%ãU"%F6%%%gzl%rfsS%gnsu%p&'9%%9%'%%-%i[DmD-(qnwr%&%%0%k%%/%%%%%%%%%ãU"%%%E%%(%\7%%%htq%twxS%gnsu%p*+%%%%%+%%+%z%&%%'%9%%%%%ãEND SUBãCLOSE:IF S=251AND 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ãJarkko Ryyppo LABYRINTH-ORIENTEERING www.lut.fi/~jtryyppo/ 05-04-96 (12:00) QB, QBasic, PDS 562 32204 LABY.BAS REM ********************************************************ãREM * LABY-O J.Ryyppo -94 * **ãREM * m and n =map * ****ãREM * , =left turn * ******ãREM * . =right turn * *********ãREM * SPACE =move * ***********ãREM * Start qbasic /run laby.txt ************** ãREM ********************************************************ãSCREEN 0: GOTO 1300ã99 CLEAR , , 1650ãDIM m$(75, 40), N$(3, 5), pe$(19), tos(19, 6), tyh(19), jr%(19), jro%(19)ãKEY 15, CHR$(0) + CHR$(51): KEY 16, CHR$(0) + CHR$(52): KEY 17, CHR$(0) + CHR$(57): KEY 18, CHR$(0) + CHR$(50): KEY 19, CHR$(0) + CHR$(1)ãON KEY(15) GOSUB 14: ON KEY(16) GOSUB 15: ON KEY(17) GOSUB 17: ON KEY(18) GOSUB 10: ON KEY(19) GOSUB 350ãKEY(19) ONãON ERROR GOTO VirheetãGOSUB 1200ãvnk = INT((.93 + tapu / 1.32 * .07) * 100) / 100: IF vnk < 1 THEN vnk = 1ãREM vk = .6ãCLS : v$ = "y"ããLOCATE 1, 1ãPRINTãPRINT " LABYRINTH-O (ver. 2.20) "ãPRINT " ^^^^^^^^^^^ "ãPRINT " ********************************"ãPRINT " * Press Caps- and NumLock OFF *"ãPRINT " ********************************"ãPRINTãPRINT " Control: , = LEFT"ãPRINT " . = RIGHT"ãPRINT " SPACE BAR = MOVE"ãPRINT " m = MAP ON"ãPRINT " n = MAP OFF"ãPRINT " Press 'Esc' to drop out or exit"ãPRINTãPRINT " If you select 1 player and 1 event you"ãPRINT " can choose the number of the course and "ãPRINT " run the same course in several computers"ãPRINT " simultaneously."ãPRINTã71 INPUT " How many players (1-6, 0=demo) "; pe: pe = INT(pe): IF pe > 6 OR pe < 0 THEN 71ãIF pe = 0 THEN RUNãFOR i = 1 TO pe: PRINT " Player "; i; " (name) "; : INPUT pe$(i - 1): NEXTã72 INPUT " How many events (1-6)"; osat: osat = INT(osat): IF osat > 6 OR osat < 1 THEN 72ãGOSUB 500ãIF pe = 1 AND osat = 1 THEN PRINT " Select the number of the course ": INPUT " ('0' = random) "; raããFOR qg = 1 TO osatããSCREEN 12: CLS : PRINT : PRINT " "; qg; ". EVENT": PRINTãIF ra = 0 THEN PRINT " Press 'n'"ããIF ra = 0 THEN WHILE INKEY$ <> CHR$(110): pp = pp + 1: WENDãPRINTãPRINT " Wait please... "ããIF ra = 0 THEN RANDOMIZE TIMER: ELSE : RANDOMIZE raãb$ = CHR$(219): l = 0ãFOR x = 0 TO 75: FOR y = 0 TO 40: m$(x, y) = b$: NEXT: NEXTãx = INT(RND * 47) + 3ãy = INT(RND * 14) + 3ãm$(x, y) = " "ã1 x = INT(RND * 67) + 3ãy = INT(RND * 24) + 3ãIF m$(x, y) = " " THEN GOTO 1ãREM IF m$(x - 1, y) <> " " AND m$(x, y - 1) <> " " AND m$(x + 1, y) <> " " AND m$(x, y + 1) <> " " THEN 1ãIF m$(x - 1, y) = " " AND m$(x - 1, y - 1) = " " AND m$(x, y - 1) = " " THEN 1ãIF m$(x, y - 1) = " " AND m$(x + 1, y - 1) = " " AND m$(x + 1, y) = " " THEN 1ãIF m$(x + 1, y) = " " AND m$(x + 1, y + 1) = " " AND m$(x, y + 1) = " " THEN 1ãIF m$(x, y + 1) = " " AND m$(x - 1, y + 1) = " " AND m$(x - 1, y) = " " THEN 1ãm$(x, y) = " ": l = l + 1: IF l > 67 * 24 / 1.85 THEN 2ãGOTO 1ã2 FOR x = 3 TO 69: FOR y = 3 TO 26ãIF m$(x, y) = " " THEN GOTO 3ãREM IF m$(x - 1, y) <> " " AND m$(x, y - 1) <> " " AND m$(x + 1, y) <> " " AND m$(x, y + 1) <> " " THEN 3ãIF m$(x - 1, y) = " " AND m$(x - 1, y - 1) = " " AND m$(x, y - 1) = " " THEN 3ãIF m$(x, y - 1) = " " AND m$(x + 1, y - 1) = " " AND m$(x + 1, y) = " " THEN 3ãIF m$(x + 1, y) = " " AND m$(x + 1, y + 1) = " " AND m$(x, y + 1) = " " THEN 3ãIF m$(x, y + 1) = " " AND m$(x - 1, y + 1) = " " AND m$(x - 1, y) = " " THEN 3ãm$(x, y) = " ": l = l + 1ã3 NEXT: NEXTããFOR x = 3 TO 69: FOR y = 3 TO 26ãIF m$(x, y) <> " " THEN GOTO 4ãIF m$(x - 1, y) <> " " AND m$(x, y - 1) <> " " AND m$(x + 1, y) <> " " AND m$(x, y + 1) <> " " THEN m$(x, y) = CHR$(219)ã4 NEXT: NEXTãIF ra = 0 THEN RANDOMIZE TIMER + ppã5 x1 = INT(RND * 67) + 3ãy1 = INT(RND * 24) + 3ãIF m$(x1, y1) <> " " THEN 5ãm$(x1, y1) = "m"ã6 k = 0: x2 = INT(RND * 67) + 3ãy2 = INT(RND * 24) + 3ãIF m$(x2, y2) <> " " OR ABS(x1 - x2) + ABS(y1 - y2) < 7 THEN 6ãm$(x2, y2) = "3"ã7 x3 = INT(RND * 67) + 3ãy3 = INT(RND * 24) + 3ãIF ABS(x1 - x3) + ABS(y1 - y3) < puoli * .6 OR ABS(x2 - x3) + ABS(y2 - y3) < 7 OR m$(x3, y3) <> " " THEN 7ãIF ABS(x1 - x2) + ABS(y1 - y2) + ABS(x2 - x3) + ABS(y2 - y3) > 1.2 * puoli THEN m$(x2, y2) = " ": GOTO 6ãm$(x3, y3) = "2"ã8 x4 = INT(RND * 67) + 3ãy4 = INT(RND * 24) + 3ãIF m$(x4, y4) <> " " OR ABS(x4 - x2) + ABS(y4 - y2) < puoli * .6 OR ABS(x3 - x4) + ABS(y3 - y4) < 7 OR ABS(x1 - x4) + ABS(y1 - y4) < 16 THEN 8ãm$(x4, y4) = "1"ã9 x = INT(RND * 67) + 3: o = xãy = INT(RND * 24) + 3: p = yãIF ABS(x - x3) + ABS(y - y3) < puoli * .6 OR m$(x, y) <> " " OR ABS(x - x4) + ABS(y - y4) < 7 OR ABS(x - x2) + ABS(y - y2) < 16 THEN 9ãm$(x, y) = "s"ãs = INT(RND * 4) + 1: u = sãpit = ABS(x1 - x2) + ABS(x2 - x3) + ABS(x3 - x4) + ABS(x4 - x) + ABS(y1 - y2) + ABS(y2 - y3) + ABS(y3 - y4) + ABS(y4 - y)ãk = k + 1ãIF k < 20 AND (pit < 2 * puoli OR pit > 2.6 * puoli) THEN m$(x4, y4) = " ": m$(x, y) = " ": GOTO 8ãIF pit < 2 * puoli OR pit > 2.6 * puoli THEN m$(x4, y4) = " ": m$(x3, y3) = " ": m$(x2, y2) = " ": m$(x, y) = " ": GOTO 6ããFOR tk = 1 TO 30ãRESTORE: k = INT(RND * 51 + 1): FOR i = 1 TO k: READ tx$: NEXTã31 i = INT(RND * 67) + 3: j = INT(RND * 24) + 3ãIF m$(i, j) = " " AND VAL(m$(i, j + 1) + "1") + VAL(m$(i, j - 1) + "1") + VAL(m$(i + 1, j) + "1") + VAL(m$(i - 1, j) + "1") = 3 THEN koe = LEN(tx$): koe = (50 - koe) / 2: FOR k = 1 TO koe: koe$ = koe$ + " ": NEXT: m$(i, j) = m$(i, j) + koe$ + tx$: koe$ = "": ELSE GOTO 31ãNEXT tkããIF s = 1 THEN FOR j = 0 TO 3: FOR i = 0 TO 2: N$(i, j) = m$(x - 1 + i, y - 3 + j): NEXT: NEXTãIF s = 3 THEN FOR j = 0 TO 3: FOR i = 0 TO 2: N$(i, j) = m$(x + 3 - j, y - 1 + i): NEXT: NEXTãIF s = 2 THEN FOR j = 0 TO 3: FOR i = 0 TO 2: N$(i, j) = m$(x + 1 - i, y + 3 - j): NEXT: NEXTãIF s = 4 THEN FOR j = 0 TO 3: FOR i = 0 TO 2: N$(i, j) = m$(x - 3 + j, y + 1 - i): NEXT: NEXTãã33 FOR qp = 0 TO pe - 1ãCLS : rtt$ = ""ãPRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"ãPRINT "XX Labyrinth-O --------- A new way to improve your O skills ----------------XX"ãPRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"ãã: PRINT : PRINT : PRINT : PRINT " Course is ready ."ããPRINT : PRINT " "; pe$(qp); "'s turn"ãINPUT " Do you want to chance settings (y/n) "; r$: IF r$ = "y" THEN GOSUB 550ãPRINT " !!!!!!!!!!!!!!!! Put NumLock and CapsLock off! !!!!!!!!!!!!!"ãPRINT : PRINT : PRINTãPRINT " Ready for start."ããPRINT : PRINTãPRINT " Press 'n' "ããWHILE INKEY$ = CHR$(110)ãWENDããWHILE INKEY$ <> CHR$(110)ãWENDãIF kl$ <> "y" THEN 34ã scale$ = "C": scale2$ = "G"ã PLAY "T50"ã PLAY "L7"ã ã PLAY "O" + STR$(5)ã FOR a = 1 TO 5: PLAY "X" + VARPTR$(scale$): NEXTã PLAY "L4"ã PLAY "X" + VARPTR$(scale2$)ãã34 SCREEN 12: GOSUB 16: GOTO 11ãã10 CLS : KEY(15) OFF: KEY(16) OFF: KEY(17) OFF: KEY(18) OFFãWHILE INKEY$ = CHR$(110)ãWENDãmm = mm + 1: tapu = TIMER: COLOR 7: rtt$ = rtt$ + "p"ãIF g = 1 THEN h$ = m$(x, y): m$(x, y) = "X"ãFOR j = 2 TO 27: PRINT : FOR i = 2 TO 70ãPRINT LEFT$(m$(i, j), 1);ãNEXT: NEXTãIF g = 1 THEN m$(x, y) = h$ãLINE (4 + (x1 - 2) * 8, 8 + (y1 - 1) * 16)-(4 + (x2 - 2) * 8, 8 + (y2 - 1) * 16)ãLINE (4 + (x2 - 2) * 8, 8 + (y2 - 1) * 16)-(4 + (x3 - 2) * 8, 8 + (y3 - 1) * 16)ãLINE (4 + (x3 - 2) * 8, 8 + (y3 - 1) * 16)-(4 + (x4 - 2) * 8, 8 + (y4 - 1) * 16)ãLINE (4 + (x4 - 2) * 8, 8 + (y4 - 1) * 16)-(4 + (o - 2) * 8, 8 + (p - 1) * 16)ãPRINT : PRINT " Paina 'n'"ãWHILE INKEY$ <> CHR$(110) AND EN = 0ãWENDãtm = tm + TIMER - tapu: COLOR 7ãKEY(15) ON: KEY(16) ON: KEY(17) ON: KEY(18) ONãGOSUB 20ãRETURNãã11 REMã12 REMãKEY(15) ON: KEY(16) ON: KEY(17) ON: KEY(18) ONãt1 = TIMERã13 IF EN = 1 THEN KEY(15) OFF: KEY(16) OFF: KEY(17) OFF: KEY(18) OFF: GOTO 200ãIF EN = 2 THEN KEY(15) OFF: KEY(16) OFF: KEY(17) OFF: KEY(18) OFF: IF ml$ = "y" THEN scale2$ = "G": PLAY "T50": PLAY "L7": PLAY "O" + STR$(5): PLAY "X" + VARPTR$(scale2$): GOTO 200: ELSE : GOTO 200ãGOTO 13ã14 s = s - 1: GOTO 16ã15 s = s + 1ã16 IF s = 0 THEN s = 4ãIF s = 5 THEN s = 1ãIF s = 1 THEN FOR j = 0 TO 3: FOR i = 0 TO 2: N$(i, j) = m$(x - 1 + i, y - 3 + j): NEXT: NEXT: GOSUB 20ãIF s = 2 THEN FOR j = 0 TO 3: FOR i = 0 TO 2: N$(i, j) = m$(x + 3 - j, y - 1 + i): NEXT: NEXT: GOSUB 20ãIF s = 3 THEN FOR j = 0 TO 3: FOR i = 0 TO 2: N$(i, j) = m$(x + 1 - i, y + 3 - j): NEXT: NEXT: GOSUB 20ãIF s = 4 THEN FOR j = 0 TO 3: FOR i = 0 TO 2: N$(i, j) = m$(x - 3 + j, y + 1 - i): NEXT: NEXT: GOSUB 20ãRETURNãã17 kpapu = kpitãIF s = 1 AND m$(x, y - 1) <> b$ THEN y = y - 1: kpit = kpit + 1: rtt$ = rtt$ + "1"ãIF s = 2 AND m$(x + 1, y) <> b$ THEN x = x + 1: kpit = kpit + 1: rtt$ = rtt$ + "2"ãIF s = 3 AND m$(x, y + 1) <> b$ THEN y = y + 1: kpit = kpit + 1: rtt$ = rtt$ + "3"ãIF s = 4 AND m$(x - 1, y) <> b$ THEN x = x - 1: kpit = kpit + 1: rtt$ = rtt$ + "4"ãIF kpapu = kpit THEN RETURNãGOTO 16ãã200 ERASE N$ãIF EN = 1 THEN PRINT "You dropped out!": GOTO 210 ELSE : PRINT "Great! You made it!"ãLOCATE 4, 1: PRINT "Times control by control:"ãPRINT " You Previous"ãvam1 = INT((t2 - t1) / 60): vas1 = INT((t2 - t1 - 60 * INT((t2 - t1) / 60)) * 100) / 100: rvm1 = INT((t2 - t1) / 60): rvs1 = INT(t2 - t1 - 60 * INT((t2 - t1) / 60))ãvam2 = INT((t3 - t1) / 60): vas2 = INT((t3 - t1 - 60 * INT((t3 - t1) / 60)) * 100) / 100: rvm2 = INT((t3 - t2) / 60): rvs2 = INT(t3 - t2 - 60 * INT((t3 - t2) / 60))ãvam3 = INT((t4 - t1) / 60): vas3 = INT((t4 - t1 - 60 * INT((t4 - t1) / 60)) * 100) / 100: rvm3 = INT((t4 - t3) / 60): rvs3 = INT(t4 - t3 - 60 * INT((t4 - t3) / 60))ãvam4 = INT((t5 - t1) / 60): vas4 = INT((t5 - t1 - 60 * INT((t5 - t1) / 60)) * 100) / 100: rvm4 = INT((t5 - t4) / 60): rvs4 = INT(t5 - t4 - 60 * INT((t5 - t4) / 60))ãPRINT "1."; vam1; ":"; vas1, rvm1; ":"; rvs1; " ": IF uusi = 1 THEN LOCATE 6, 37: PRINT vm1; ":"; vs1, rm1; ":"; rs1ãPRINT "2."; vam2; ":"; vas2, rvm2; ":"; rvs2; " ": IF uusi = 1 THEN LOCATE 7, 37: PRINT vm2; ":"; vs2, rm2; ":"; rs2ãPRINT "3."; vam3; ":"; vas3, rvm3; ":"; rvs3; " ": IF uusi = 1 THEN LOCATE 8, 37: PRINT vm3; ":"; vs3, rm3; ":"; rs3ãPRINT "m."; vam4; ":"; vas4, rvm4; ":"; rvs4; " ": IF uusi = 1 THEN LOCATE 9, 37: PRINT vm4; ":"; vs4, rm4; ":"; rs4ããPRINT : IF kpit = 0 THEN 210ãPRINT "Theoretic distance: "; pit; " blocks"ãPRINT "You travelled "; kpit; " blocks"ãPRINT " ("; INT(100 * (kpit - pit) / pit * 10) / 10; " % more)"ãev1 = INT((t5 - t1) / pit * 100 / 60): ev2 = INT(((t5 - t1) * 100 / pit - 60 * INT((t5 - t1) * 100 / pit / 60)) * 100) / 100ãPRINT "Your avarage speed: "; ev1; ":"; ev2; " (min:sec / 100 blocks)"ãPRINT "You looked at the map "; INT(tm * 100) / 100; " seconds ("; mm; " times)"ãIF pit > 0 THEN PRINT " "; INT(mm / pit * 1000) / 10; " (times / 100 blocks)"ãIF mm > 0 THEN PRINT " "; INT(kpit / mm * 10) / 10; " (blocks/ one look)"ãPRINT " "; INT(tm / (t5 - t1) * 1000) / 10; "% (looking time/finishing time)"ã210 INPUT "Do you want to see your route ? (y/n) "; r$: IF r$ = "y" THEN GOSUB 400: GOTO 200ãrtt$ = ""ãtos(qp, qg) = 60 * vam4 + vas4ãIF EN = 1 THEN tos(qp, qg) = 3600ãtyh(qp) = tyh(qp) + tos(qp, qg)ãEN = 0ãtm = 0: mm = 0: vm1 = vam1: vm2 = vam2: vm3 = vam3: vm4 = vam4: vs1 = vas1: vs2 = vas2: vs3 = vas3: vs4 = vas4ãrm1 = rvm1: rm2 = rvm2: rm3 = rvm3: rm4 = rvm4: rs1 = rvs1: rs2 = rvs2: rs3 = rvs3: rs4 = rvs4: kpt = kpitãeve1 = ev1: eve2 = ev2: q = 0: x = o: y = p: s = u: kpit = 0ãNEXT qpãIF pe > 1 OR osat > 1 THEN ERASE m$ãIF uusi = 1 THEN 75ãGOSUB 1000ãNEXT qgã75 IF pe = 1 AND osat = 1 THEN INPUT "Same course gain? (y/n) "; r$: IF r$ = "y" OR r$ = "" THEN uusi = 1: tm = 0: mm = 0: vm1 = vam1: vm2 = vam2: vm3 = vam3: vm4 = vam4: vs1 = vas1: vs2 = vas2: vs3 = vas3: vs4 = vas4: rm1 = rvm1: rm2 = rvm2: rm3 = rvm3: rm4 = rvm4: rs1 = rvs1: rs2 = rvs2: rs3 = rvs3: rs4 = rvs4: kpt = kpit: eve1 = ev1: eve2 = ev2: q = 0: x = o: y = p: s = u: kpit = 0: GOTO 33ãINPUT "New competition ? (y/n)"; r$: IF r$ = "y" OR r$ = "" THEN RUNãSLEEP 2ã256 SCREEN 0: CLSããLOCATE 1, 1ãPRINT "Labyrinth-O 2.20 J.Ryyppo 1994"ãPRINTã257 REMãPRINT " "ãPRINT " See you in Kouvola! ( We will arrange FIN5, 5-event O-week -96)"ãPRINT " Keep on practicing !!!": SYSTEMãã20 IF m$(x, y) = "1" AND q = 0 THEN : q = 1: t2 = TIMERãIF m$(x, y) = "2" AND q = 1 THEN q = 2: t3 = TIMERãIF m$(x, y) = "3" AND q = 2 THEN q = 3: t4 = TIMERãIF m$(x, y) = "m" AND q = 3 THEN t5 = TIMER: EN = 2: RETURNãCLSãIF q = 3 THEN sr$ = " FINISH": ELSE : sr$ = STR$(q + 1)ãPRINT "Next goal :"; sr$ãIF W$ = "y" THEN e$ = N$(1, 3): N$(1, 3) = "A": PRINT "XXXXXXXXX": FOR j = 0 TO 3: PRINT "XXX"; : FOR i = 0 TO 2: PRINT LEFT$(N$(i, j), 1); : NEXT: PRINT "XXX": NEXT: PRINT "XXXXXXXXX": N$(1, 3) = e$ãIF N$(1, 2) = b$ AND N$(0, 2) <> b$ OR N$(0, 3) = b$ AND N$(1, 2) = b$ OR N$(0, 2) <> b$ OR N$(0, 3) <> b$ AND N$(1, 2) <> b$ THEN LINE (50, 37)-(50, 442) 'vasen pystyãIF N$(1, 2) <> b$ AND N$(1, 1) = b$ AND N$(0, 1) <> b$ OR N$(1, 2) <> b$ AND N$(0, 2) = b$ AND N$(1, 1) = b$ OR N$(1, 2) <> b$ AND N$(0, 2) <> b$ AND N$(1, 1) <> b$ OR N$(1, 2) <> b$ AND N$(0, 2) = b$ AND N$(1, 1) <> b$ AND N$(0, 1) <> b$ THEN LINE (170, 128)-(170, 352)ãIF N$(1, 2) <> b$ AND N$(1, 1) <> b$ AND N$(1, 0) = b$ AND N$(0, 0) <> b$ OR N$(1, 2) <> b$ AND N$(1, 1) <> b$ AND N$(0, 1) = b$ AND N$(1, 0) = b$ OR N$(1, 2) <> b$ AND N$(1, 1) <> b$ AND N$(0, 1) <> b$ AND N$(1, 0) <> b$ OR N$(1, 2) <> b$ AND N$(1, 1) <> b$ AND N$(0, 1) = b$ AND N$(1, 0) <> b$ AND N$(0, 0) <> b$ THEN LINE (241, 180)-(241, 299)ãIF N$(1, 2) = b$ AND N$(2, 2) <> b$ OR N$(2, 3) = b$ AND N$(1, 2) = b$ OR N$(2, 2) <> b$ OR N$(2, 3) <> b$ AND N$(1, 2) <> b$ THEN LINE (590, 38)-(590, 442) 'oikea pystyãIF N$(1, 2) <> b$ AND N$(1, 1) = b$ AND N$(2, 1) <> b$ OR N$(1, 2) <> b$ AND N$(2, 2) = b$ AND N$(1, 1) = b$ OR N$(1, 2) <> b$ AND N$(2, 2) <> b$ AND N$(1, 1) <> b$ OR N$(1, 2) <> b$ AND N$(2, 2) = b$ AND N$(1, 1) <> b$ AND N$(2, 1) <> b$ THEN LINE (470, 128)-(470, 352)ãIF N$(1, 2) <> b$ AND N$(1, 1) <> b$ AND N$(1, 0) = b$ AND N$(2, 0) <> b$ OR N$(1, 2) <> b$ AND N$(1, 1) <> b$ AND N$(2, 1) = b$ AND N$(1, 0) = b$ OR N$(1, 2) <> b$ AND N$(1, 1) <> b$ AND N$(2, 1) <> b$ AND N$(1, 0) <> b$ OR N$(1, 2) <> b$ AND N$(1, 1) <> b$ AND N$(2, 1) = b$ AND N$(1, 0) <> b$ AND N$(2, 0) <> b$ THEN LINE (399, 180)-(399, 299)ãIF N$(1, 2) <> b$ AND N$(0, 2) = b$ THEN LINE (50, 37)-(170, 128): LINE (50, 442)-(170, 352): IF LEN(N$(1, 2)) > 1 THEN LINE (90, 220)-(140, 225)'vasen valivãIF N$(1, 2) <> b$ AND N$(1, 1) <> b$ AND N$(0, 1) = b$ THEN LINE (170, 128)-(241, 180): LINE (170, 352)-(241, 299): IF LEN(N$(1, 1)) > 1 THEN LINE (194, 227)-(217, 230)ãIF N$(1, 2) <> b$ AND N$(1, 1) <> b$ AND N$(1, 0) <> b$ AND N$(0, 0) = b$ THEN LINE (241, 180)-(280, 212): LINE (241, 299)-(280, 266): IF LEN(N$(1, 0)) > 1 THEN LINE (253, 232)-(267, 234)ãIF N$(1, 2) <> b$ AND N$(2, 2) = b$ THEN LINE (590, 38)-(470, 128): LINE (590, 442)-(470, 352): IF LEN(N$(1, 2)) > 1 THEN LINE (550, 220)-(500, 225) 'oikea ylavvãIF N$(1, 2) <> b$ AND N$(1, 1) <> b$ AND N$(2, 1) = b$ THEN LINE (470, 128)-(399, 180): LINE (470, 352)-(399, 299): IF LEN(N$(1, 1)) > 1 THEN LINE (446, 227)-(413, 230)ãIF N$(1, 2) <> b$ AND N$(1, 1) <> b$ AND N$(1, 0) <> b$ AND N$(2, 0) = b$ THEN LINE (399, 180)-(357, 212): LINE (399, 299)-(357, 266): IF LEN(N$(1, 0)) > 1 THEN LINE (387, 232)-(373, 234)ãIF N$(1, 2) = b$ THEN LINE (50, 37)-(590, 37): LINE (50, 442)-(590, 442): IF LEN(N$(1, 3)) > 1 THEN LOCATE 14, 15: PRINT N$(1, 3)'kattoãIF N$(1, 2) <> b$ AND N$(1, 1) <> b$ AND N$(1, 0) = b$ THEN LINE (241, 180)-(399, 180): LINE (241, 299)-(399, 299): IF LEN(N$(1, 1)) > 1 THEN LINE (290, 228)-(350, 228)ãIF N$(1, 2) <> b$ AND N$(1, 1) = b$ THEN LINE (170, 128)-(470, 128): LINE (170, 352)-(470, 352): IF LEN(N$(1, 2)) > 1 THEN LINE (250, 219)-(390, 219)ãIF N$(0, 3) = b$ THEN LINE (50, 37)-(0, 0): LINE (50, 442)-(0, 480) 'nurkatãIF N$(2, 3) = b$ THEN LINE (590, 37)-(640, 0): LINE (590, 442)-(640, 480)ãIF N$(0, 3) <> b$ AND N$(0, 2) = b$ THEN LINE (50, 37)-(0, 37): LINE (50, 442)-(0, 442) 'vasenylahaaraãIF N$(1, 2) <> b$ AND N$(0, 2) <> b$ AND N$(0, 1) = b$ THEN LINE (170, 128)-(50, 128): LINE (170, 352)-(50, 352)ãIF N$(1, 2) <> b$ AND N$(1, 1) <> b$ AND N$(0, 1) <> b$ AND N$(0, 0) = b$ THEN LINE (241, 180)-(170, 180): LINE (241, 299)-(170, 299)ãIF N$(2, 3) <> b$ AND N$(2, 2) = b$ THEN LINE (590, 38)-(640, 38): LINE (590, 442)-(640, 442) 'oikea ylahaaraãIF N$(1, 2) <> b$ AND N$(2, 2) <> b$ AND N$(2, 1) = b$ THEN LINE (470, 128)-(590, 128): LINE (470, 352)-(590, 352)ãIF N$(1, 2) <> b$ AND N$(1, 1) <> b$ AND N$(2, 1) <> b$ AND N$(2, 0) = b$ THEN LINE (399, 180)-(470, 180): LINE (399, 299)-(470, 299)ãIF N$(1, 2) <> b$ AND N$(1, 1) <> b$ AND LEFT$(N$(1, 0), 1) <> " " AND N$(1, 0) <> b$ THEN LINE (315, 280)-(325, 280): LINE (313, 287)-(327, 287): LINE (327, 287)-(325, 280): LINE (313, 287)-(315, 280): LINE (313, 287)-(325, 281): LINE (319, 287)-(325, 284) 'rastitãIF N$(1, 2) <> b$ AND LEFT$(N$(1, 1), 1) <> " " AND N$(1, 1) <> b$ THEN LINE (309, 324)-(332, 324): LINE (304, 334)-(337, 334): LINE (309, 324)-(304, 334): LINE (337, 334)-(332, 324): LINE (304, 334)-(332, 325): LINE (321, 334)-(335, 329): LINE (314, 334)-(333, 327): LINE (326, 334)-(335, 332)ãIF LEFT$(N$(1, 2), 1) <> " " AND N$(1, 2) <> b$ THEN LINE (303, 389)-(337, 389): LINE (295, 405)-(345, 405): LINE (295, 405)-(303, 389): LINE (345, 405)-(337, 389): LINE (295, 405)-(337, 390): LINE (316, 405)-(340, 398): LINE (306, 405)-(339, 394): LINE (326, 405)-(342, 401)ãIF v$ <> "y" THEN 21ãIF s = 3 THEN LINE (470, 442)-(445, 400): LINE (470, 442)-(475, 435): LINE (470, 442)-(457, 437)ãIF s = 1 THEN LINE (465, 442)-(440, 400): LINE (440, 400)-(453, 405): LINE (440, 400)-(435, 407)ãIF s = 2 THEN LINE (425, 421)-(485, 421): LINE (425, 421)-(439, 427): LINE (425, 421)-(437, 416)ãIF s = 4 THEN LINE (425, 421)-(485, 421): LINE (485, 421)-(471, 415): LINE (485, 421)-(476, 428)ã21 RETURNãã350 COLOR 7: INPUT "Dropping out? (y/n) "; kes$ãIF kes$ = "n" THEN RETURNãEN = 1ãINPUT "Exit to dos (y/n) "; kes$ãIF kes$ = "y" THEN 256ãRETURNãã400 CLS : COLOR 1ãFOR j = 2 TO 27: PRINT : FOR i = 2 TO 70ãIF LEFT$(m$(i, j), 1) <> "" AND LEFT$(m$(i, j), 1) <> b$ THEN COLOR 3ãPRINT LEFT$(m$(i, j), 1);ãCOLOR 1: NEXT: NEXT: COLOR 4ãLINE (4 + (x1 - 2) * 8, 8 + (y1 - 1) * 16)-(4 + (x2 - 2) * 8, 8 + (y2 - 1) * 16)ãLINE (4 + (x2 - 2) * 8, 8 + (y2 - 1) * 16)-(4 + (x3 - 2) * 8, 8 + (y3 - 1) * 16)ãLINE (4 + (x3 - 2) * 8, 8 + (y3 - 1) * 16)-(4 + (x4 - 2) * 8, 8 + (y4 - 1) * 16)ãLINE (4 + (x4 - 2) * 8, 8 + (y4 - 1) * 16)-(4 + (o - 2) * 8, 8 + (p - 1) * 16)ãx = 4 + (o - 2) * 8: y = 8 + (p - 1) * 16ãa = LEN(rtt$): tutu = TIMER: COLOR 7ãFOR z = 1 TO aãWHILE TIMER < tutu + .02ãWENDãtutu = TIMERãs = VAL(MID$(rtt$, z, 1))ãIF s = 0 THEN COLOR 2: LINE (x - 5, y - 5)-(x + 5, y + 5): LINE (x + 5, y - 5)-(x - 5, y + 5): COLOR 7: IF kl$ = "y" OR ml$ = "y" THEN BEEPãIF s = 1 THEN LINE (x, y)-(x, y - 16): LINE (x, y - 16)-(x - 2, y - 10): LINE (x, y - 16)-(x + 2, y - 10): y = y - 16ãIF s = 2 THEN LINE (x, y)-(x + 8, y): LINE (x + 8, y)-(x + 4, y - 2): LINE (x + 8, y)-(x + 4, y + 2): x = x + 8ãIF s = 3 THEN LINE (x, y)-(x, y + 16): LINE (x, y + 16)-(x - 2, y + 10): LINE (x, y + 16)-(x + 2, y + 10): y = y + 16ãIF s = 4 THEN LINE (x, y)-(x - 8, y): LINE (x - 8, y)-(x - 4, y - 2): LINE (x - 8, y)-(x - 4, y + 2): x = x - 8ãNEXTãPRINT : PRINT " Press 'n'"ãWHILE INKEY$ <> CHR$(110)ãWEND: CLSãRETURNãã500 CLS : PRINT "Your PCs speed:"; vnk; " (486/66 or faster = 1)"ãPRINT " Select level: (spd is the speed level of the ghost runners) "ãPRINT " 1: E spd = "; INT(.65 * vnk * 100) / 100; " distance 100-130"ãPRINT " 2: A spd = "; vnk; " distance 70 - 90"ãPRINT " 3: C spd = "; 2.5 * vnk; " distance 50 - 75"ãPRINT " 4: SPRINT spd = "; INT(.6 * vnk ^ 1.5 * 100) / 100; " distance 40 - 52"ãINPUT " (1-4, enter= 1) "; puoliããIF puoli = 1 OR puoli = 0 THEN puoli = 50: vk = .65 * vnkãIF puoli = 2 THEN puoli = 35: vk = vnkãIF puoli = 3 THEN puoli = 25: vk = vnk * 2.5ãIF puoli = 4 THEN puoli = 20: vk = vnk ^ 1.5 * .6ãINPUT " Do you want to change the speed of the ghost runners (spd) (y/n)"; v$ãIF v$ = "y" THEN 502 ELSE : GOTO 503ãã502 PRINT " Bigger spd makes them less speedy."ãINPUT " Type the new spd (0- ) "; vkãIF vk < 0 THEN 502ãIF vk > 0 THEN vk = vkã503 vk = vk * .6: INPUT " Do you want to use compass ? (y/n), enter='y') "; v$ãIF v$ <> "n" THEN v$ = "y"ãREM INPUT " Haluatko kayttaa apukartaa? (k/e, oletus 'e') "; w$ãW$ = "n": REM IF w$ <> "y" THEN w$ = "n"ãINPUT " X mode. (Your location will be marked with letter X ? (y/n, enter 'n') "; r$ãIF r$ <> "y" THEN r$ = "n"ãIF r$ = "y" THEN g = 1: ELSE : g = 0ãINPUT " Beeps (y/n, enter = 'n') "; kl$ãml$ = kl$ãRETURNã550 CLS : INPUT " Do you want to use compass ? (y/n), enter='y' "; v$ãIF v$ <> "n" THEN v$ = "y"ãREM INPUT " Haluatko kayttaa apukarttaa? (k/e, oletus 'e') "; W$ãW$ = "n": REM IF W$ <> "y" THEN w$ = "n"ãINPUT " X mode. (Your location will be marked with letter X ? (y/n, enter 'n')"; r$ãIF r$ <> "y" THEN r$ = "n"ãIF r$ = "y" THEN g = 1: ELSE : g = 0ãINPUT " Beeps (y/n) enter ='n' "; kl$ãml$ = kl$ãRETURNããDATA Kun ei tee mitaan - ei tee mitaan vaarinãDATA ----> E X I T ---->,<---- E X I T ----,<--- Rastille ,----> RastilleãDATA UMPIKUJA ----->,<---- UMPIKUJA,Killroy was here,Kysyva tielle eksyyãDATA Killroy was here,Turha yrittaa eksyt kuitenkin!ãDATA Neurovelho suoraviivaa,Kello kay - HOP-HOP,HYVa SUOMI,Johdat 15 sekunnilla min,Paina - paina -Jalle karkaa!ãDATA <--- VARAULOSKaYNTI, VARAULOSKaYNTI --->,Tupakointi kielletty,No SmokingãDATA Sahkopaakeskus, Hairioita magneettikentassa - kompassi ei toimi.ãDATA Pyykkituvan kaytto vain talon asukkaille,Varo! Lattia vahattu!ãDATA Opaskarttoja saatavana INFO-pisteesta,One Way ---->,<---- One WayãDATA Toll Road - 20 FIM, Pysakointi kielletty, Tyhjakaynti kielletyãDATA Tunneli rakenteilla - kulku omalla vastuulla.,!!! Edessa miinakentta !!!ãDATA Maali suljetaan minuutin kuluttua.,Yrittaisit edes!,Luvaton oleskelu kiellettyãDATA Tessun Baari- Auki aina 03.30 asti.,ALE-ALE- Kybernetiikkaa sikahalvalla -ALE-ALEãDATA Keijoa!! - Taalta sita saa,Hermoratahieroja Pentti Hirvo ark.9-16ãDATA Varo koiraa !, Paasy kiellettyãDATA Ei mopoille (<=386SX),Onko kadessasi Pro -kartta?,Onko elaman tarkoitus 42?ãDATA Porilainen paivassa pitaa mielen virkeana, Oletteko te humalassa??ãDATA Sotilasalue - Paasy kielletty, Taalta yrttikeijo - vain 41 FIM!ãDATA Muista hana!,Meilta teho-rasvaimu - jopa 5 kg/min!!!, <----- Vaestonsuoja, Vaestonsuoja ---->,,,51ã1000 SCREEN 12: CLS : RANDOMIZE TIMERããIF pe - 1 < 1 THEN tos(1, qg) = (6 + RND * 4) * pit * vk: tyh(1) = tyh(1) + tos(1, qg): pe$(1) = "Ylermi Yksjalka"ãIF pe - 1 < 2 THEN tos(2, qg) = (5 + RND * 4) * pit * vk: tyh(2) = tyh(2) + tos(2, qg): pe$(2) = "Leevi Lahna "ãIF pe - 1 < 3 THEN tos(3, qg) = (4 + RND * 3) * pit * vk: tyh(3) = tyh(3) + tos(3, qg): pe$(3) = "P Saukko "ãIF pe - 1 < 4 THEN tos(4, qg) = (4 + RND * 3) * pit * vk: tyh(4) = tyh(4) + tos(4, qg): pe$(4) = "Pasi Kuikka "ãIF pe - 1 < 5 THEN tos(5, qg) = (3 + RND * 3) * pit * vk: tyh(5) = tyh(5) + tos(5, qg): pe$(5) = "Pentti Hirvo "ãIF pe - 1 < 6 THEN tos(6, qg) = (3 + RND * 3) * pit * vk: tyh(6) = tyh(6) + tos(6, qg): pe$(6) = "Klonkku "ãIF pe - 1 < 7 THEN tos(7, qg) = (2.8 + RND * 2.5) * pit * vk: tyh(7) = tyh(7) + tos(7, qg): pe$(7) = "Mr. Hyde "ãIF pe - 1 < 8 THEN tos(8, qg) = (2.5 + RND * 2.5) * pit * vk: tyh(8) = tyh(8) + tos(8, qg): pe$(8) = "Tri Jekyll "ãIF pe - 1 < 9 THEN tos(9, qg) = (2.2 + RND * 1.5) * pit * vk: tyh(9) = tyh(9) + tos(9, qg): pe$(9) = "Ariadne "ãIF pe - 1 < 10 THEN tos(10, qg) = (2 + RND * 2) * pit * vk: tyh(10) = tyh(10) + tos(10, qg): pe$(10) = "Ford Perfect "ãIF pe < 11 THEN tos(11, qg) = (1.8 + RND * 3) * pit * vk: tyh(11) = tyh(11) + tos(11, qg): pe$(11) = "Harri Hazardi "ãIF pe < 12 THEN tos(12, qg) = (2 + RND * 1) * pit * vk: tyh(12) = tyh(12) + tos(12, qg): pe$(12) = "Bilbo Reppuli "ãIF pe < 13 THEN tos(13, qg) = (1.9 + RND * 1.5) * pit * vk: tyh(13) = tyh(13) + tos(13, qg): pe$(13) = "Pirjo Piikkari "ãIF pe < 14 THEN tos(14, qg) = (1.8 + RND * 1.2) * pit * vk: tyh(14) = tyh(14) + tos(14, qg): pe$(14) = "Oiva Reitti "ãIF pe < 15 THEN tos(15, qg) = (1.7 + RND * 1.1) * pit * vk: tyh(15) = tyh(15) + tos(15, qg): pe$(15) = "Tapio Aarnimetsa "ãIF pe < 16 THEN tos(16, qg) = (1.6 + RND * 1) * pit * vk: tyh(16) = tyh(16) + tos(16, qg): pe$(16) = "Noand Rapidshill "ãIF pe < 17 THEN tos(17, qg) = (1.55 + RND * 1.2) * pit * vk: tyh(17) = tyh(17) + tos(17, qg): pe$(17) = "Matti Reijonen "ãIF pe < 18 THEN tos(18, qg) = (1.6 + RND * .8) * pit * vk: tyh(18) = tyh(18) + tos(18, qg): pe$(18) = "Sari Kallinen "ãIF pe < 19 THEN tos(19, qg) = (1.5 + RND * .8) * pit * vk: tyh(19) = tyh(19) + tos(19, qg): pe$(19) = "Jarl Gripenberg "ãããRESTORE 1100: i = INT(RND * 13 + 1): FOR j = 1 TO i: READ ratam$: NEXTãFOR i = 0 TO 19: ii = 999999999ãFOR j = 0 TO 19ãIF tyh(j) < ii AND jro%(j) = 0 THEN iii = j: ii = tyh(j)ãNEXT: jro%(iii) = i + 1: NEXTãFOR i = 0 TO 19: jr%(jro%(i) - 1) = i: NEXT: ERASE jro%ããFOR i = 0 TO 19: ii = 999999999ãFOR j = 0 TO 19ãIF tos(j, qg) < ii AND jro%(j) = 0 THEN iii = j: ii = tos(j, qg)ãNEXT: jro%(iii) = i + 1: NEXTãPRINT : PRINT " TULOKSET: Course setter: "; ratam$ãPRINT " The speed level of the ghosts was "; vk / .6; " Level: ";ããIF puoli = 50 THEN PRINT "E"ãIF puoli = 35 THEN PRINT "A"ãIF puoli = 25 THEN PRINT "C"ãIF puoli = 20 THEN PRINT "SPRINT": ELSE : PRINTãLOCATE 4, 1: PRINT " Event:"ãFOR i = 1 TO qg: LOCATE 4, 6 * i + 21: PRINT " "; i: NEXT: LOCATE 4, 22 + 6 * i: PRINT "Pos.": LOCATE 4, 29 + 6 * i: PRINT "Total:"ãFOR i = 0 TO 19ãPRINT MID$(STR$(i + 1) + ". ", 2, 3)ãLOCATE 5 + i, 4: PRINT pe$(jr%(i))ãFOR j = 1 TO qg:ãLOCATE 5 + i, 6 * j + 22:ãttm = INT(tos(jr%(i), j) / 60): tts = INT(tos(jr%(i), j) - ttm * 60)ãPRINT MID$(STR$(ttm), 2, LEN(STR$(ttm)) - 1) + ":"; MID$(STR$(tts), 2, LEN(STR$(tts)) - 1): NEXT jãLOCATE 5 + i, 6 * j + 23ãttm = INT(tyh(jr%(i)) / 60): tts = INT((tyh(jr%(i)) - ttm * 60) * 100) / 100ãPRINT MID$(STR$(jro%(jr%(i))) + ". ", 2, 3)ãLOCATE 5 + i, 6 * j + 29: PRINT MID$(STR$(ttm), 2, LEN(STR$(ttm)) - 1) + ":"; MID$(STR$(tts), 2, LEN(STR$(tts)) - 1)ãNEXT iãPRINT " Press 'n'"ãERASE jr%, jro%ãFOR i = 0 TO 19: IF i > pe THEN pe$(i) = ""ãNEXT: ratam$ = ""ãWHILE INKEY$ = CHR$(110)ãWENDãWHILE INKEY$ <> CHR$(110)ãWENDãRETURNããVirheet:ã ã SCREEN 0: CLS : PRINT : PRINT " Your PC wanted a coffee break !!!": SYSTEMãããENDã1100 DATA C=64,VIC-20,Neuromancer,ESKO,Wintermute,Kannel,Mato,Mopo,Lisa,HAL 9000,IBM-PC,Omena,Lahna,,,,ãã1200 SCREEN 12: tapu = TIMER: COLOR 0: CLS : FOR k = 1 TO 10: CLSãPRINT "XXX": PRINT "XXXXXXXXX":ã LINE (50, 37)-(50, 442) 'vasen pystyã LINE (170, 128)-(170, 352)ã LINE (241, 180)-(241, 299)ã LINE (590, 38)-(590, 442) 'oikea pystyã LINE (470, 128)-(470, 352)ã LINE (399, 180)-(399, 299)ã LINE (50, 37)-(170, 128): LINE (50, 442)-(170, 352): LINE (90, 220)-(140, 225)'vasen valivã LINE (170, 128)-(241, 180): LINE (170, 352)-(241, 299): LINE (194, 227)-(217, 230)ã LINE (241, 180)-(280, 212): LINE (241, 299)-(280, 266): LINE (253, 232)-(267, 234)ã LINE (590, 442)-(470, 352): LINE (550, 220)-(500, 225) 'oikea ylavvã LINE (470, 128)-(399, 180): LINE (470, 352)-(399, 299): LINE (446, 227)-(413, 230)ã LINE (399, 180)-(357, 212): LINE (399, 299)-(357, 266): LINE (387, 232)-(373, 234)ã LINE (50, 442)-(590, 442)ã LINE (241, 180)-(399, 180): LINE (241, 299)-(399, 299): LINE (290, 228)-(350, 228)ã LINE (170, 352)-(470, 352): LINE (250, 219)-(390, 219)ã LINE (50, 37)-(0, 0): LINE (50, 442)-(0, 480) 'nurkatã LINE (590, 37)-(640, 0): LINE (590, 442)-(640, 480)ã LINE (50, 37)-(0, 37): LINE (50, 442)-(0, 442) 'vasenylahaaraã LINE (170, 128)-(50, 128): LINE (170, 352)-(50, 352)ã LINE (241, 180)-(170, 180): LINE (241, 299)-(170, 299)ã LINE (590, 38)-(640, 38): LINE (590, 442)-(640, 442) 'oikea ylahaaraã LINE (470, 128)-(590, 128): LINE (470, 352)-(590, 352)ã LINE (399, 180)-(470, 180): LINE (399, 299)-(470, 299)ã LINE (315, 280)-(325, 280): LINE (313, 287)-(327, 287): LINE (327, 287)-(325, 280): LINE (313, 287)-(315, 280): LINE (313, 287)-(325, 281): LINE (319, 287)-(325, 284) 'rastitã LINE (309, 324)-(332, 324): LINE (304, 334)-(337, 334): LINE (309, 324)-(304, 334): LINE (337, 334)-(332, 324): LINE (304, 334)-(332, 325): LINE (321, 334)-(335, 329): LINE (314, 334)-(333, 327): LINE (326, 334)-(335, 332)ã LINE (295, 405)-(345, 405): LINE (295, 405)-(303, 389): LINE (345, 405)-(337, 389): LINE (295, 405)-(337, 390): LINE (316, 405)-(340, 398): LINE (306, 405)-(339, 394): LINE (326, 405)-(342, 401)ãã LINE (470, 442)-(475, 435): LINE (470, 442)-(457, 437)ã LINE (465, 442)-(440, 400): LINE (440, 400)-(453, 405): LINE (440, 400)-(435, 407)ã LINE (425, 421)-(485, 421): LINE (425, 421)-(439, 427): LINE (425, 421)-(437, 416)ã LINE (425, 421)-(485, 421): LINE (485, 421)-(471, 415): LINE (485, 421)-(476, 428)ããNEXT: CLSãFOR k = 1 TO 3ãFOR j = 2 TO 27: PRINT : FOR i = 2 TO 70ãPRINT "x";ãNEXT: NEXTãCLSãNEXTãCOLOR 7ãtapu = TIMER - tapuãRETURNãã1300 CLS : RANDOMIZE TIMER: PRINT " LABYRINTH-ORIENTEERING"ãb$ = CHR$(219): l = 0ãFOR x = 0 TO 75: FOR y = 0 TO 40: m$(x, y) = b$: NEXTãIF INKEY$ <> "" THEN 1302ãNEXTãFOR i = 1 TO 6ãx = INT(RND * 67) + 3ãy = INT(RND * 19) + 3ãm$(x, y) = " ": NEXTãLOCATE 1, 1ãFOR j = 2 TO 22: PRINT : FOR i = 2 TO 70ãPRINT LEFT$(m$(i, j), 1);ãNEXT: NEXT: PRINT " PRESS A BUTTON."ã1306 REMã1301 t = t + 1: x = INT(RND * 67) + 3ãy = INT(RND * 19) + 3ãIF t > 1000 THEN 1309ãIF INKEY$ <> "" THEN 1302ãIF m$(x, y) = " " THEN GOTO 1301ãIF m$(x - 1, y) <> " " AND m$(x, y - 1) <> " " AND m$(x + 1, y) <> " " AND m$(x, y + 1) <> " " THEN 1301ãIF m$(x - 1, y) = " " AND m$(x - 1, y - 1) = " " AND m$(x, y - 1) = " " THEN 1301ãIF m$(x, y - 1) = " " AND m$(x + 1, y - 1) = " " AND m$(x + 1, y) = " " THEN 1301ãIF m$(x + 1, y) = " " AND m$(x + 1, y + 1) = " " AND m$(x, y + 1) = " " THEN 1301ãIF m$(x, y + 1) = " " AND m$(x - 1, y + 1) = " " AND m$(x - 1, y) = " " THEN 1301ãm$(x, y) = " ": t = 0: LOCATE y, x - 1: PRINT " "ãl = l + 1: IF l > 1000 THEN 1309ãIF INKEY$ = "" THEN 1306ã1302 l = 0: RUN 99ã1309 FOR a = 1 TO 1000: NEXTãt = TIMER: FOR a = 1 TO 5000: NEXT:ãs = TIMER - t: f = 100 * 1 / sããLOCATE 1, 1ãFOR j = 2 TO 22: PRINT : FOR i = 2 TO 70ãPRINT LEFT$(m$(i, j), 1);ãNEXT: NEXT: PRINT " PRESS A BUTTON."ã1310 i = 2: j = 1: x1 = INT(RND * 67) + 3ãy1 = INT(RND * 19) + 3ãx = INT(RND * 67) + 3: y = INT(RND * 19) + 3ãIF m$(x, y) <> " " THEN 1310ãIF m$(x1, y1) <> " " THEN 1310ãLOCATE y1, x1 - 1: PRINT "m": tutu = TIMERã1311 IF RND < .2 THEN s = INT(RND * 4) + 1ãIF INKEY$ <> "" THEN 1302ãIF s = 1 AND m$(x, y - 1) <> b$ THEN y = y - 1ãIF s = 2 AND m$(x + 1, y) <> b$ THEN x = x + 1ãIF s = 3 AND m$(x, y + 1) <> b$ THEN y = y + 1ãIF s = 4 AND m$(x - 1, y) <> b$ THEN x = x - 1ãIF x = i AND y = j THEN s = INT(RND * 4) + 1: GOTO 1311ã1313 FOR g = 1 TO f: NEXTãLOCATE j, i - 1: PRINT " "ãIF x = x1 AND y = y1 THEN BEEP: SLEEP 3: RUNãLOCATE y, x - 1: PRINT "*": i = x: j = yãGOTO 1311ããMorry Kapitan PB VGA PALETTES kapitam@ttown.apci.com 09-09-95 (00:00) PB 123 4331 VGAPALET.BAS'Here are some routines for messing with the 256 color VGA palette. I wroteã'this early on while learning some x86 asm using PB's in-line assembler.ã'This certainly can be improved upon (how about using the les opcode?).ã'I compiled this into a .PBU and use it in a graphics library.ã'ã'ã' Program: VGAPALET.BASã' Author: Morry Kapitanã' Compiler: PowerBASIC 3.xã' Version: 0.9ã' Date: 9/9/95ã'ã'---------------------------------------------------------------------------ã'Routines to copy the existing VGA palette to a temprorary disk file, readã'a new palette from a disk file and load it into the palette registers, andã'reload the original palette.ã'---------------------------------------------------------------------------ãã$DYNAMICãDEFINT A-Zãã'---------------------------------------------------------------------------ã'Procedure: SavePalã'This routine saves the current VGA palette to a temprorary disk fileã'---------------------------------------------------------------------------ãSUB SavePal PUBLICããDIM OldPal(767) AS BYTEããArraySegment = VARSEG(OldPal(0))ãArrayOffset = VARPTR(OldPal(0))ããã ! push ESãã ! mov AX, ArraySegment ; put address of where to storeã ! mov ES, AX ; register data in ES:DXã ! mov DX, ArrayOffset ;ã ! xor BX, BX ; set BX to zero -start at 1st regã ! mov CX, 255 ; get all 256 registersãã ! mov AX, &h1017 ; load register data into arrayã ! int &h10 ;ãã ! pop ESãããOPEN "~OLDPAL.TMP" FOR BINARY AS #1 'Open a file in the default directoryãFOR posit = 0 TO 767 'Write the palette data to the fileã PUT #1, posit, OldPal(posit)ãNEXT positãCLOSE #1ããEND SUBããã'---------------------------------------------------------------------------ã'Procedure: LoadPalã'This routine loads the VGA palette with data from a file whose path andã'name is passed to the routine from the calling programã'---------------------------------------------------------------------------ãSUB LoadPal (palFile$) PUBLICããDIM NewPal(767) AS BYTEããnewArraySeg = VARSEG(NewPal(0))ãnewArrayOff = VARPTR(NewPal(0))ããOPEN palFile$ FOR BINARY AS #1 'Open the file passed from userãFOR bytePos = 0 TO 767 'Retrieve palette data from fileã GET #1, bytePos, NewPal(bytePos)ãNEXT bytePosãCLOSE #1ãã ! push ESãã ! mov AX, newArraySeg ; Seg of data array...ã ! mov ES, AX ; in ESã ! mov DX, newArrayOff ; put array offset in DXã ! xor BX, BX ; set BX to 0 - start at 1st reg.ã ! mov CX, 255 ; load all 256 registersãã ! mov AX, &h1012 ; put array data into VGAã ! int &h10 ; registersãã ! pop ESããEND SUBããã'---------------------------------------------------------------------------ã'Procedure: RestorePalã'Routine to reload the original VGA palette saved in a file in the currentã'directoryã'---------------------------------------------------------------------------ãSUB RestorePal PUBLICããDIM NewOldPal(767) AS BYTEããoldArraySeg = VARSEG(NewOldPal(0))ãoldArrayOff = VARPTR(NewOldPal(0))ããOPEN "~OLDPAL.TMP" FOR BINARY AS #1 'Open the temporary palette fileãFOR bytepos = 0 TO 767 'Retrieve palette data from fileã GET #1, bytepos, NewOldPal(bytepos)ãNEXT byteposãCLOSE #1ãKILL "~OLDPAL.TMP" 'Delete the temproary fileãã ! push ESãã ! mov AX, oldArraySeg ; Seg of data array...ã ! mov ES, AX ; in ESã ! mov DX, oldArrayOff ; put array offset in DXã ! xor BX, BX ; set BX to 0 - start at 1st reg.ã ! mov CX, 255 ; load all 256 registersãã ! mov AX, &h1012 ; put array data into VGAã ! int &h10 ; registersãã ! pop ESããEND SUBãMartin Lindhe FLAME EFFECT m-35728@mailbox.swipnet.se 05-15-96 (18:00) QB, QBasic, PDS 18 394 FLAME.BAS ' Flame effect in QuickBASIC by Martin Lindheã' add DEFINT A-Z if you run it on a slow computer.ããSCREEN 13ãFOR col = 0 TO 63ã PALETTE col, colãNEXTãCOLOR 63ãDOãLOCATE 15, 18: PRINT "FLAMES"ãFOR y = 103 TO 111ã FOR x = 136 TO 185ã col = (POINT(x - 1, y) + POINT(x, y + 1)) / 2 - RND * 5ã IF col < 0 THEN col = 0ã PSET (x, y), colã NEXTãNEXTãLOOPãJon Merkel SET BITPLANES FidoNet QUIK_BAS Echo 05-15-96 (15:41) QB, QBasic, PDS 42 1291 BITPLANE.BAS ' I thought you would like to see (and would not be offended) byã ' seeing your code changed a bit. The speed increase is fantastic!ã ' Noticed I changed the line command to a routine that sets theã ' entire screen with random pixels. Change your code too if youã ' want to compare speed. Compiled the new code takes 13 secondsã ' to fill the entire screen. Your code took 2:31 seconds.ã ' I wish I could take credit for this but a guy I know whoã ' programs in ASM and PASCAL (Jon Merkel) looked over yourã ' code and came up with this. I am sure you would like toã ' see it. I think I know you well enough to know you willã ' not be offended. But rather amazed at the speed increase.ããDECLARE SUB vPSET2 (x%, Y%, Culler%)ã DEFINT A-Zã SCREEN 12: CLSã Red% = 4: Green% = 2ã FOR Y% = 0 TO 479ã FOR x% = 0 TO 639ã CALL vPSET2(x%, Y%, RND * 15)ã NEXT: NEXTã BEEP: SLEEPã SCREEN 0: WIDTH 80ã ENDãã SUB vPSET2 (x%, Y%, Culler%)ã ã DEF SEG = &HA000ã ã VideoOffset& = (Y% * 80&) + (x% \ 8)ã ã BitMask% = 1ã FOR J% = 1 TO ((x% AND 7) XOR 7): BitMask% = BitMask% * 2: NEXTã ã OUT &H3CE, 8: OUT &H3CF, BitMask%ã OUT &H3CE, 5: OUT &H3CF, 2ã ã BYTE% = PEEK(VideoOffset&): POKE VideoOffset&, Culler%ã ã OUT &H3CF, 0ã DEF SEGã ã END SUBãErika Schulze PB MANDELBROT SET 100775.2275@CompuServe.com 05-17-96 (18:17) PB 218 14225 MANDEL.BAS 'Please load/run under PB to extract MANDEL.ZIPããDEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"MANDEL.ZIP",4^6:Z&=10361:?STRING$(50,177);ãU"%up()%9%%%d-%E%T*EnM6bcO-%%%[8%%%/%%%%rf%sijq.Sy'yVD'h>]T]7vq-oãU"x9)LiS5BMnB<6e=j[Oj(jsTbZ9ufPrK05Vv?%+JJ[64omYwt;$(8+\uJJ]f*m\eãU"aAAqQ_FjpGXiX.(n)MRub_udqvzX+=d(8vP0c%wWSm6K-jk*T\qnk0P&$n=Z'+rãU"NN_0;iC*jnE)#M<+Y^\YC(UG7,e^,R,(]GW=]uJ3GEu/=mE(cJ:+;fkYkaiHV\gãU",zCJa[y,^vZ$QP%Mt7.oOdRK-ud;NQN6-1#Q0H*c%np2up4L?;x?I3*R;m5=P):ãU"5y^8zcZ,Q,>C3](2f\wQ0*(ZkFo$.]VslbwI5ZD%I_lS-Ji+J%U[glqJ%;z)uvNãU"Zq.*3OrCh5xvSVA[Thcu))x1j%%tRzR,)U8M)hYiU60CRC%E[F?LF=ãU"\WoRCl+tc;Z;FCD?L$)2Rl4^Lk>UqVRX-NZ%^r;rLse&T$G7pe=Z%><^SWjak[)ãU"8;'0dV_*xu4=lVNa#k)xXdD+#^UNANe>KM'o?AB/L=Ar*LD.R=0YZt&21T/3_dy$Mk<9hL6,8(0ir/pB+k9t)B;JCJs$7T]&5%Tg:z6ãU"GSfgb,uO,-c[elxdRB;(4Elog57a-Vn=_81#jbgR&_=;$WXB'.w[HEHG+1+*WQ%ãU"WV&0P0Y;AN,x_C$^,^WqG;/NDiHy^J+A+sy.+jK5E<_1I[P*h*HA&K/wJqC-36%ãU"d')(?RAVSlUdAt'jvBMEU.[D-8VLH*e[8mb>/4hHBv?^t_Dewq8*mpY#U5u1X**ãU"Q+ER-h7)sG8)%jpDm880*srPTEn_Z#MYA1bga*[9cr99eA$di2XNSOHe-Hm03WtãU"(U)9A.S)2A+(%8D\\RSoLYp6-Cw3l0(Tb^6g4==Riicq\22/$^#;>N**po9pPoEãU";7RMN4lejca_Th*%z[-7V+?Sf1MkWv]&$ECr2QlneQX\F.zJeW'l*/*ãU"+nifsBcO.CTC&IR6+a:'j]=xN&#rVBC+5lJc5feQ:+0gn#Y\(NfQ,v:n2LRAi-pãU"yL?A/1v0B3k)NlZ,Z#=HF/TfGe2QmF;3$\qpxc++&E-9*8?>s[AOJjW[p$%4F&=ãU":FgHClU>rY;v3L=jP7-eT_X3?=UqG>bY*V;qmcq-H:w;I%xBg//z4s[oG;J0uMjãU"BiYfTtUMjG+-M%THUtzR6EN'TVFEkKih&l=Na?;i2U&rZ/1&KKr>%'iE70ARL.lãU"Vw;A#>yA$$LM.Mh2trXpQP<4#:nBZEY$C-o7GXto%#QPtPb0E'J=YVepw_tr-BAm(ãU"6A[Snw.I7thbV\3v6bNX(vXFWa1Ut(RZdoRLtYE:Zq]SO6TXFeVpr-:B6'2xLEW#2UgekJ*4ag?u27BtKãU"umxYWb,MAZX<6H5,Gkq>CPIs'AdU32Os,F60:AMEm_fu0=mH[42Gz\s(,oav3')ãU"_ya^<*;s0ZpaL,_U?ãU"7qg744JnVUD>Z:A=p%?Q:b;B)KoN]apWIdpZ*tHL_+\pVAv'dM/WS(4-hI(pWimãU"w#tJwfDhvzN4h6(&2WCj=3Cx:Hq;9K7b$8kHjHJJVvudti/O=OUk*V(YM)0?YagãU"Ir56H_G'>c=?:sqidVP\Y273%j>'#%SB,w%;3Y0/E$.7IuiA(7-s\uKrQs6ãU"PF7W^]ul]I?qTu$G)S,p6afGJBP>]7a7SuInRYSxBs#WcN_7W.MUl$4nx#OKt3MãU"(_gdciF]6H$_^,lrLFRbumRuB_/MWDhub6lc,:aFZ+\08]wNwG_MarUrrR72Mt+ãU"cp-2oZQ]7.WsB]/&XXJS$^gtJZaQD98bWi4ãU"3ELtAMW&ANweJfF>>yLbpt\Dd4mXK#bEb;alGmGGTNs$.,Cl2^RgXKKr<[>x(%uãU"p()%9%%%[-%n%'*Ec3%s<9).%%73%%%0%%%%rf%sijq%VSgfOx.&<,>Sm5]w17xãU"M0TYkG_Kg]6\Kz]O.Ea'[*#>LYspFP&<;[ZUo0WbãU"Db63_K0s1C4Z^DWPTE0k&bcnq5i[uI)1di','+[VZ>L8=rfLU(XPgbR8J0vn\N2ãU"xxT+z\P\RF1PT<^xNxi83:a1ib5x)35R^Z0YNf_hO/$6FoT19A\6\HOMQqbUGyVãU"a?nrWND7^Jc/CeES,$)4lW695afWjG2)CjJX=CUEH$*pEpW+?f4U+RMX5/T<;kNãU"qBsv0[GHjQx2KZ)Q9U.0;*(5wJV%E;6iu]%f42=rdL'ScHGLu]7*#I7#IRpXfe-kJ/d9k_emB;xUx2wZ$mB'ãU"8)SmYCVM$wP09TpLD\T5jY)0Ns%%K#%JDG$3LWQk)ei_Megj7hhi?:^2u78:v^zãU"#disD,FtW[5?lLf]+Wi\mu8o'%Lj)%T-BDmjMxMrx[\1P;HvDT_tQNkEyiYkd%DãU"e]%;DgLlE,lW77OV*lLR]ednC_x$zXobl9^GYaIxfUk%aevDP&[wss?KtFQ_L?QãU"n'p%6Ui/R*3u#IM.U*IdV6qg4)Gh>nsW#f?UUJgzQ8-xj.x([f.=Cv(%xc^nzf+ãU"Q,^&k_6xZADL&o7E&+gE$J2($XsL4peagtLaJCqjJTD$I7TZS>7c4b&\QYGGzhIãU"hI7Rl_rZ>6jYRAoqreJ[ODE+d]Xw0I#+mm;_.sJT*TqQH4.wR4f+MHnFDmMASINãU"uII/-t;gTbQ$F]c^>WqG_TtO]vzrLd#D>Jk[c9M6S0No*[,'013p520cI2SUg;tãU"0vZz;t?e7?o?+UHjBC]n^K]iGf,AeXA7;kL[&ICLãU"q$GYQQS._:OLeI\^O?f*SjuQng*M%k*v[(3q+l/.1u'RK7QxG;KO0l$hJ=:?\m7ãU"\$aJovSG(Qu$,M?NP&sY;neBWxA(OF0QAYeA8+o']PSd98/V1IvPW#;J/*q$4:dãU"6JaiAFoJbLa#x0HSsVN[WG-oZCKE.g6QVmCYmqL[OyDsaj+h?Ks*tLRF7'l)P&qãU"nvkL8ri>h3'NORv),/G(:;-X]iWwcx%&up(%)9%%%%-%nH%*E*-KPi[[)%%Y%3%ãU"%0%%%%r%fsij%qWSgRfx.&;<>Sm+5w17Nx0SY2k_a'9^ugO4s[4nN%Q\[t8Kt_'ãU"9[]V+[jp8lqnlRN.\#AGv_EzLmGEn&LaX$QH%rC&]\ojgjDRIk^_pfo2&ui/K-fãU"AQ_W9Jmji.BV/\d7W/6fRJ[4j8IV<6EEsLVNbR$oS(U4h>.Epq;e,8k$&t_R:XsJãU"idrX2)6z8h$NExECUC(I'sq#qVBbS;TE1.n>jN8VO(L?lhjmiVQwPC]MQwZv%NVãU"hhpcjqc6DMo2$nI'34==^lA6\M'rLJA5)MraBDbWMi$Nj5ceX]RSaPX;/HTne-?V&T%ZI++FaãU"ga5RPdK'x:3AX[TW[)Mh-oB8j.\G<^&\_*Tvqp8:,F,CV<1xiQg,^)k/'kBK:9Ir-,DXlu$]r>>KH*TqRm1l#\>KRd/i*6a>]*H$dov#v<.[ãU"I<59V4a'3'NRdsC?5A>:Hi6L?Ca>rZupr>2'$iP\q,Fkd%np3[Az:4L4#d$-j.tãU"_#MuMsCml;f1Mz9VX7Z>hJG)52g1f%NYkd2#1C:65:D^Z?n9o2?Y&7Y.ejRusV2ãU"y&*.ou6Y/4<(+ED=ybH+/H/6q.o318*2\(K5YVILx5m$U&cãU"S5dL^p:o=9hq7kM_GcH=BgiCNSeQNm-_Ysl4+(iV)AB6o4r6D+*=q\JllnVSãU"^[cUQGYj;[[>fGUu^SGd05*f>l%u:xu)A8:Bi*Agm2lfk5fkcxg/RAwV4#poãU"sDE#JnJM^q:]LmB)IwwboWe/bi%f3ni9'XFi-QV8%/*G1^%>aT(6DB*bGnR&4%)ãU"**kCEe4Ap7^N/ljDvI6mrHWQ(wn/.irl,pY^E1aqh*Iae6+K5Aq*gDD<4ru5*PEA,Q1/OTPcVlhq66$^$jiw\W^mF\baZ+;ãU"I4r0HJ=%&mp41?:Wmk24eBDM$sF-$4/ccj#ej#>T\R0]%mCCAB;8vXAW'dLãU",'n,h2r:uQ&<7oTdLCu'XB=B4Bm>oK^i>,8kf0^YOwb8;54Iwl8B9#n7&S'6ãU"GHiP\Bb\x4ol-_jbPVf1:H6UD-h#R5pJ*SQb<0N=-&wjNh3c*ie,CntpJG&?o8cãU"hO1<4=eHY=/N8s:CDWyA\I->99sa?&H]K.>M5ztVOjEXJF-'JsHcShf4X\g-UJIãU"XTL6RUesE18Xnkx3JO0l/DLCQV\y(*KoKZ,FIeAM'Rb7]5E<1c6Eh>z8tmJ)8M<ãU"0258xZD$+f:m\4x&xyx_4]F:mjED0P42&e*,)%&n8t1IGX4=$A:TA3iUX'pVSeJãU"GY7w3Bq&0/J?0;A,)KhoAQ0FH?hV6QE/ao^9'guqp^UWNjsW>clH0*vzoC<1&yqãU")Q#.,_suy2=Yh:s%l2]8tUYx]9+_L8Vf3dXOKq6S;I#hfnDhnLDhDz;g3Q0G,UCãU"KfhC;H;jbiK%TYb$GCUy=H$^.Bm+0#ZZ;0);L-_C>Zl3b0Ix]$w=-gEbaDt'v&arH=LaFb(Tb?$.s8_X.DKH%V>xlqSk>ãU"b(9/[$+klf>p'peFk&i;W6B).FRhD%lD.RVVduQXB4qpjbApbc24I:L_=7RfZxVãU"pWH/266ZP6\MUEH;Zsb9+JLaNY<%FyKtk$%xik/UVsT7Qi;KR&/03Zuiz:y_Ga%ãU"94;:m%fV=[u,Dw,acPZ4o*&2Vik*;s:pKL/49Y2*exB^mQ$>V3M'm_:^MrK([unãU"k.F[eO=>\1*U:M3wg1cl]DogOeLR#>XO>u;gnX.O7SQOx[Mp7DCM=k]0M7kl^UvãU"rkfV)\T*h;6\^q-4nl>s*kr;;v%hPNM]Qf2GGc/3Y,hlgd2'y5A$Hk?9#]j6Ke=%uvG+hF'[Bq;iAo'8=FW]lXipo0l?rH0?g$Uama)5pwyW(3%2+kk^ChWbXD)$wb?\%JIbyU5[O)NqUt13%UA[O8Q+.QBlL[pZ\[>JãU"/:fELOSQxF2K>TwwUX6,bcf=QY^cWNz9sjWT6:M2ZsrBrflY9.sxM?;uoOWax)cãU"]r*L*'KOM8dtSh.oW3XHbUZFDX(yuCKGoV=*0DhiQs6SMwWv6$,+g/KHdg+VtSaãU"V=s^lE\o767Y6TU.-RJk37MA0Q2pD#8;Qum[^7+;;*?6Zho_[(,(>RcDT<6['g\^rdk(,q1+0R;uXDZE0BJH_4y2irUAãU"hS1$g*6h.$0f>OdVDE:XlTHE'>55B=k\*2KKQ$k7x&u.Hh/r<)vxh)GfZirRWM3ãU"LW_y5aD\IR<^-Y,z0dR0rG:\R$B13:mDgZ,$Yb3l^Td:1R.3SPQcjQFlQ$'JdI_ãU".?]jH;WsrT;Csn>2qSU?OgV<#5FZ[iti:%M,-qwndEAZTMR0L'L;hjqPcU;p^DfãU"J5(;(B[kL5MezKuD5,FFQ=EGPnfonc9?S8,O_MH9RAdDV$YO\[SpãU";XPoPv&Jk7HqPbn*+:6UXcVlrXfc64nWnm'RãU"QEtnH5f^pG4HZ?:Z:4H6jR8EN*.L?.#;\6vf0xt\q3#iERãU"$o[+\$w\k-oX*D.VEDt$4132WHsif)g>.XXPCnuNLj/>MQw*jjV:Tr>d]D5LOtSãU"sfPrX[632HNa9b40pES3Wiq_zJfNiI)'aAW3-On8&'4Bvur091n0lDL(0Wp:/UXãU"oMr75YAsF]?X]s82[:26Fs(pO=]^0YFIh4%;B2nn>]42;i7V1NoDL*375Urm(O[ãU"gOjHFWQ4AAg;)&YNa#M[Og[fbYUWaEH$p6F0DJ#cF-'?SB.RgM:ãU"AuUNYP8$/R((3V,w.U=1-R&][q7ISu-=KAM;/,T?>Rd(,f^sM]xO3&3Uo>,V=,6ãU"8X\$ZE:5V#EP]3d?:YE>Skw?pl^K/l]($q?WuaSw&B67'*))6pJ1FbpOI=[ee%mãU"79MG,)V0EI_eFD.ng/l4[]iwi;[V28v-k)8fOqftMVXSKL1C?=AVCjP*$qSOA4jOk5s)6?sn(b>Y:A0'kkf.B(7\\3[GFRXCcA]-6'jp)VO%haOCuGD-\ed-fw4s)cãU"[v(tkbBd\,1H'?G:RB((g/^\\q(ckiE=-9LRZWsuE1S4m$P68o=RAGl(Ij)AaJlN8BAvãU"/ZWXKNcW0*_t#f>#UxV6E8,:HHue?he:M:L_K][F8k5BVUjme#?21/MUi,NgãU"/cC:\3+Q9=SH.\8sJW+qp;]pA*Hx0G3Y3'C->91Uufa[Jk7G&aQ;ãU"*4w6V$Owf2wn_Sgspe='389RaVR4(TlbLX:Gw^0=SLp)5ndlPllf4tE_BVn_]6xãU"D>$TA[GdG[RjG[#+3pi7iK?KUP['P&'6ML_N.;>\%*B_0NJ8B5&;<_4$M-Xk7X^ãU"tJYT1,bfLSPeqI<[+X]SOskQlGr?S))rd;QI5AA&EAQxqx-6(HT7Az7>[iYMG*3ãU"(KT19^**X8S$IQ&+grpj1OQNHG;h3PQUwxt>>EGqdnDo:cHxzlM=Sui'oCI]s)?ãU"'E&H;XhH)h[A^0FZoFpx\%;reXhHF96-%AoW^8,u1Fm&o*m3DGZ.n*D[u;k2TflãU"%VMck9qH8IZWj+G)0Bbp%u'a/>ze[2VZNk\Cj:Mkh**e#FZF^yXr^/9(#nVK#6$ãU"#\f4C;VWQ%<>yaFR0><:pI>[%.-T^k2eIgXE3cX^KF8KPHw'J6<'mQ?6bWK3#+MãU"oJ%?p$EDm\ImRTjPcc-6=LORRXU,,6q?>zDSc:K=+JU<=:+d1/#XBMfpV;Uz&7+ãU"[k>[A>=-,m;Ak\,vp+84S:Fd&9*&5G1WlP>6TT59$LSz,[YPPSy2Y_KSIX$&c,OãU"+MQu0%]iTMWE%nPlKH&S#PpF;CY+^;d4grp:p*258(oK[[.Y,G1;sãU"3'uf6/#e)1^?>js'AYQ;M_*&:H]l'9n5_[,S]v9?PãU"%%%0%%%%rfsi%jqZS[gfxFh(kquQ\7#DmXZ]Q&GãU"WD1C,N?3I[V[z53GG]^>+#=]qbv2dWS>WYbZ>S>[X6xdkKfB/>[Ib]1IU03QNNvãU"fa#twb>QD^oV4?-2._.tW_Tw/IWB[E4h?C_qmaDjQFa9%7?AV1P\bo.R?Bx5%qFãU"1Dsp<,rXjxPKg1l7C0O1$nUP8H06bpH,OL-j6AlIENJ[SURnMCJjbWmllQdDx#tãU"$<7eWW%(gCJ7mbr5JOla2kS_4SLj?.azZ/J:Rsl()VvA0>Y[hUkTW7N8IR)LK*AãU"^&;?[4Gh]7y4VHeo]&i,3\42.=>,3M#dR:74.,Id9Do<>W(*ARY$3Yb+&>43p)kãU"Qw.lBC0-%O[n%.K7NF2:Q/#6[&,8CORJdSB]&YXrgJ?-t>>[A2fj>CZt.xd%yHEãU"WK+A#C0kjsHbPqov)e1]tEH]()L(=&ãU"fiETVyhm;T$%=_M9&eFt<45rKq]bB?J]Mrf&>d3/x=n=U2KuUãU"u-NuS+_+6vwS\K^Q7OL/sb49vkeQM/#(RnV=<9PW]Q)AvtJX)9VtnSe=4>13'rDãU"x_wA>vI1PL%4E4ApQMl[cmWsOUB-iakx07FywTSNBF9NoDthodqibwSt1f*h9hnãU"-?MA\'NkX1uK^+WM,UaQo)G9wSBuZC?cY&AhQO9&<3hmYZdHdb,J.WW*Jp2x6CXãU"PKIMMfG;X8hA-0SS(DHe_OS2B,XG4rk*dL1F\\#hXq5sv.7XN=1IJpHauA%5$j[lXDS+dUy1x'cE=&LCT#0v\0AãU"Nm5VL)sNhtj8NCc/YgA#]/?*(3Zy>.3Ld4lg?:h0*xWxXnl/'VY33eG%W:902e%ãU"1b)(7s&wWQ;c9&S20kV$8lwGwt_,8dp43A4wZfJ$xtCQDx9(0hS+axFG'faGMmBãU">8HI.?MG:Ej5w$5b[+RTkvZWd:k$Z;tD*;1Ps)OrrPO8a:TOZPL]j.,;'<]+7*kãU"VZ0sBF)o=QF+q>3+3IidccZ76nr>(Opn-_t99\q[su&ãU"6UU(7,jfDQyHom:J_Xu.3iqUOAZ;gZe0&&mA/7z#D/n;Xn/8gG(Cdk>G:I_+g$mãU"D$xJ^SS>(;2Xl19p5_KO'k7i-$\*F8SgCblo-^4<.fWZk4L_)7DdYdp(RJ(o?DXãU"d.llAm'k'8>qC0r?0DbV,'x%up%&'9%%9%%%d-%E%T*EnM6bcO-%%%[8%%%/%%%ãU"%%%%%%&%%E%%%%%%%%%rfsi%jqSy&'yup%&'9%%9%%%[-%n%'*Ec3%s<9).%%73ãEND SUBãSUB V2ãU"%%%0%%%%%%%%%&%%E%%%&w-%%%rfsi%jqVS%gfxu%p&'9%%9%%%%-%nH%*E*-KPãU"i[[)%%Y%3%%0%%%%%%%%%&%%E%%+%^1%%%rfs%ijqW%Sgfx%up&'%9%9%%%%-%=ãU"n%*E,R_8R&G+%%%2:%%%0%%%%%%%%%&%E%%%%i6%%%rf%sijq%XSgf%xup&%'9%ãU"9%%%%-m%n%*UEG=I*H[,%(%#?%%%0%%%%%%%%%&%E[%%%^%<%%r%fsij%qYSg%fãU"xup%&'9%%9%%%[-%n%]*EVg-3Fp,7%%&>%%%0%%%%%%%%%&%%E%%%&iD%%%rfsiãU"%jqZS%gfxu%p*+%%%%%+%%+%z%&%%3%L%%%%%ãEND SUBãV2ãCLOSE:IF S=132AND 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ãErika Schulze QB MANDELBROT SET 100775.2275@CompuServe.com 05-20-96 (18:22) QB, QBasic, PDS 125 8232 QBMAN.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"MAND.ZIP",4^6:Z&=5905:?STRING$(50,177);ãU"%up()%9%%%m-%K59-EAW.IuD(.%%;3%%%.%%%%rf%siVS[gfx._&'f#5%s^2n[mS:qZnV6+;-G&R$b\3]?+H,TQ0tk9YãU"6r&1Of43ekZQ/4:N(>gT*EqWo:>MPc2MQL0/g*kC43qopeg7i_h8HãU"+BOaa-='nRX)F/w#2?n().J9B+O/L'U%5/2;+VK8DYhH]xZ*OLCWBb;;fiY,mB=ãU"a:-&L*)YpWO^%_7*^T;[*i\QT][?lk6VbGRt)e4$k;[[&LAn\h4XB-)BRVWIJggãU"EwCH\B.rEe,3Q_57nXWKk_*3Q%_5nXY/ETr<_x(K$KcV;i2/9+m.]UT%YoYq6'fãU"UcGhkdjhU]oKE1E]AN9E,^n?Th>6rg*')ILTMdnLP_nz\Sf_Hz22Q%xvTjkd%h?ãU"Kl>rD>2-i84XL,^V35Y[9V^Pr6Z''i0p#-s3m\TL^c^iWn9,]68#nO#0Ow]ENz+ãU"X9szY(5orko)d2bzkEmlek_3'Qi:Tvc3u1ME,dTzFS1dN+)NOhEYgeRz%s-;$K=:W1=Z;eEYlI*5EUy;,cI];shMY6e#)oXF4DOMkm9d0L6ci]k6'I\ãU"^sW2WlvGAB&;Fu2G<4n;*C?1a>Uj'%'S-+18^J^J4*f+'3Cmi_X/DM'ãU"K88WPD&*+z^9XV#H4^k4Z>b6h%a_]8,-RYHg=D',')y8&UHF9smG6]'ãU"$T9#cd(oc))5Ms*0W]%?5K2R]4^1i/=Di&bo++MCLuXtfo$+FiOA?CXãU"w3/ZP)p>0(7*L9G(3RaXK/tO(*hqBu5P;78^G;BWoFx,azlcLNE$a=Ua+0=kCMQãU"hBst7Tdwn=C:Ns*fh:9zX%up()%9%%%m-%K59-Eih+GQ>(.%%.1%%%.%%%%rf%sãU"iWS[gfx.b%ht[7e5vQX.x54ãU"3T1*?L8?rPVeHl57CX(=PRY+f:morlsfA,mTu9$M+9pAiãU"^E51[-.$V62#+BOVOA5MRYlSKLoN'FXWg'UmH]ArXa$-UkF_g'-(xqO#pUAffRoãU"CUI^K,/\Ab[FX6mGFtPww3kQOH8tJKh[Zx>pEiGB)SKd__I84#7'tU8l-2eE.:+ãU"lhN3OxP:951vNQ;YtH,\yiA(#s5r#/4)b8)MJd+XZIOL$BQ=T[h1E##6pf%[i::ãU":i^*YK#F)EyeHoDWrt$#7U#K3veLMd$)S'tXJ0ygaRIz$SAGsX,eaU<(UsUMm;lãU"3AZ=HZhaX&W1g<:5YI,7fs#+zTKpQ%&>r6cR;6U=1?2&odT1:G0tGG,WLjbrD-VãU"#dNKf00lYJLSee&Y+O]R&('M^Ck$U#i.'2.Xiv-3fN:y2^J*KU:g\YgL,4A&Hc,ãU"hpW%ZZ(^K3f=L%bWDR(qvTD^Ku*&bHl1#E)Lk3>*[?q-Y(8-rrY2rb?0a5)nU8eGaFJãU"hPKDjHe&gpn.T[EaKYcECZUc.p0]=>[4t75#k-RIDti3)\,o)P&e-U4K9t-kU^CãU"]Qn.'2[Ve,$[R.9Q(zT\wOBC.\.r.TG=5[-JaqVRR7e'XumglvJhX5w&WdW13+fãU"5Mi%2BBE#kXeVWmVLDdie%]RQ-6sSfR(=P0PY,A5N)b%&9k]JW'Q,eYa7xAIy%hãU"u]OjI6c9E'&1&9uc=,^?%Mg%j+L]Vqta,90FEBMd]-Sm[\g/ndo5I+]-cb/-,y<ãU")ye+:+_3;y#^2H%dUZ9*XfYCrAnFwXSe(S(FT)-gIe1;2w7m01i4Q\Z/,+nl()rãU"fdlM+F?AT+G0I-.>%G>pE*#_tjmT6umT6m8jrA7T7=3);=ldm$.EG;dx:O,N6yGãU"T5Wn,dg3/yl6mMgSdQePxVW+X.s'ag2#EOL-SG>GLmSSFTP?6'_LM?7U8P'9VANãU"Sl58aqu'\olk4+9CojoekGK\D-XHq]:c$cZR*S-Bq.Zuncfrr^4ocep^UF\Fa9;wxZ_adDshMa-]n;RZc&oãU"v0AhPY\H-9Bo]%e[JS>ujt+gOmpCSn,ne0Ct_U#T^JR4Y&(Y#p2YGC^,M>/LC61ãU"6e#D+T(6t5tBtGk0d1s+E=7&([n(e#:Rg:[uAN<#DF5D;fXc=W#H%c_A?R&MQhHãU")LEDN2(=0?5)n,q?p;n1Q_:5YUV3hn)to#w?Y=;-[AUt97l+SgA'\bg-\=9nJQAAsRep9*#2;-i[4Q6ãU"Mi+Z'B'%JW/f(N_/TtkLg0Gg;MA6GIVBHw4pW=EoIYYvNX3v4r8NSvp:;ujz;:KãU">?g\VUglrpJw^b-[lAZx2u;jX&^_,0WxY1u$S^oTTekr,fHIo?D88jgWVLl,Lh*ãU"5:=rF*vHE1G%]VVib._&i_O>4G>#7#rgb%.cãU"L2v^9\2S5jB]O%Y7X=f7v.BsU5o(vSk_Xdq*?ukjX_I)ugQaas/$I4AG3aNBNk.ãU"hVq;PoLP5]eh?N*3?LBZdEU]Mg6U,.Y^2,/))22k8OFd=wapA,rplhLrX2m_>]:no&'Ige&99Aznoqhf7/^FZ)ãU"eRXAQcwN:Gth4PZIDl$Nn7'PmT,_E7t:l9K4M*0&L#eKpq*:2\YA[r]0Y?86K1/ãU"XKk^]L->aEMX[7F$(i/RVYGrO($EeN[I,\oa^UCGiV'=hu0&=DHChRIWm\nc:*kãU"SLJUj8f/)>m(u\NCNOi;ro&Hnam;$4K61&n%FNJoWC:rY%W%1%WPPoa'50qei9li%a.TKm>R&TiCjffQxu3^wdãU"GyvLtTd[w269=N5MBB7bUssC2MwqX&PmopyZkE>y)B'?1GAN&z-Ep+E+Dj$;iGAãU"g,Fd)]mtd)APltmI9K/WeYRW4Qt%i#uj6+D2eM*zs\#u5JEqxwAfc'CS,0MS5t]ãU"L2rPI:)TA()EV+/u#b9RbvFtF5v^($N=n;Q]5qJ:MxQãU"hMd$;XOodlqHZbiuJ\OiBlSe*rOb.v-O?V_t?1gx5/ay+sgj1=ChK')_T0qGJ7jãU"xKRiPozOFe-f*Apf=jLt7??bn,H]Vq-Z(e4S)[t9/n%YsA7dgX[,[t&,YPnN[H8ãU"uF_rx9KMxJHup<=h-..N_-%qochlnQmx$*IXEQGRT8fsYvB&,78S^[XP%GUWhlhoWSeA0BGmEãU"vQkCFr;8C4ptmB;CrbcDDsrv.^X/TGudEo+J(s='7c0u4hm'[ZP[R4dbDhAd\SgQcwcY\?0H/K0*8S564-L,HLK/K5dQ-9D4:?/[tT]mg/(aHG\$7$hbK)GccY^+ãU"g-Bs=PH]oTp(kwg<^AralK_[&7A_E-_VSp,eSJ1\F[BTcfc/aD=\eD2fUk=c'PEãU"n(OV49hp]pg26RMbZ\DQ?,n^Do8nB^tbu/%3pgoMdk$sd$n&dTnãU"Y<%NQS)br^pBTUJ%#\q.tE\,0MS41Hrv/4Hpt6;kl0.r/KK(?HjVXcvkq4;>2VyãU"*kJj6IpoHpGW:8,md5cQ)$,/SeknsYre';;T-+^EW.Osi;]EgI2mQr]>/#%;bEVãU"Q.n)*jB'dNx<8]Sd,o4#eAcxnYRqo;&Va2CK66mny&\;8AGF*T'#nwaY#V-AU(<ãU"BE_R$\7h$or6^1[jT=9&E>lG,,bP,q:;)jF)[K(HC]bBh-)7<^=\s)'#,Xtc$+Zx_aãU"t>Mwn8xk8WmfrG3lm$S*JQ[T&XtqZFPA[,L)=]/L6$\Z6'5x.D?X7rT%up()%9%ãU"%%%-%Ba90Es^*>4/+.%%L1%%%/%%%%wj%firj.Sy'yN.%<>]T[5wmSexZM)oglpãU"_if=$&jGd&a[j(+QRp'_Cn+I-MRGg&X?n^qEMvg>]+\1]t_&/t4Wjgl2$-Aulx$ãU"B9,a4%;:1--o*g$0-5mB&BYvZ$JMo+r8DR6NBsQzoFjLi+DpvJ>/1z2YniiG$MhãU"%%FS%j\i(%^I)b^CgLTN0mpDOZ%yj&Uw31J^^-8,YOaM0m$FSO#NcS7^p%fI7gaãU"e\WO:Yu]fbJ6VhN18]L<^*Jz?YJ'Y_t>9IC*>:7[dJNecNq'5$ãU"4tRltmIiCC1<3.5$U3nd5Gisc4)HG.79K9M-)f,fjK$'oiKqsO*EXXf%GLBWXotãU"9sW&h#8dEMH1[4pbZEQEW,=u-]v5eh(*?0uv_VCnz_itZF>ffLn#H#+,I*S$k'>ãU"'jU4AK\9UU5YdA/gDARfz_erW]G#(l-FS4-5C.*k&(P,v-ae/9uYHHews+_\b3uãU",mBH*ãU"u(0F*rSgIp.N^efB)T(uW2=4Wpw/]NFS2WH;vxN/8HDR[.JO]l>i8?K)AQq(-EYãU"y=_ccW_q]qo'tr8,jj#/DQQ]EjscZW&e+b,\>%bH>w:&.EV^=Sm)mpSDL=a4Uk^ãU"AQ5G/WI42\91frTfL1DA/M:pTrF7Q'dY_hD9-CvKa0O>+a*ew6V9McKoz.qbuARãU"*4nSD&lXjHI6K'#VC$q4k6LTCK$-UYwt-GW(9?,C06>Ht,RA=*=;r8f;d;S%):yãU"i[/#w1kU>t?M,,b*1NO+An(qioFgdIMOdOi+G7N(Fl6N,rh[??beH?eTj^tSbe#ãU"FdqAija)7Ih$KW>,ism%G++aTJ&\)lfLr'.2ditQp0al$DAks)d%dãU"RqrqjaVtfPoW.AGnMJ(ft/bLBm>4*/lrui?Jm(4C*+mOkPdF*.:&fAAteuzOat?ãU"K_8148W(q=1/8a9^pKhA(2c7w*^v76DU)[D,Z%f$UAEJ;x1mHSY)J7*Xo7#oLlvãU"FOHfT\aAE>j'MNZXpqpId44K=XE-94ZXO[[Hw^W$rSk)lz\$E:1X)*mQ*.%;IUiãU"I>0oNgcej,l-b7*rXvfamhTOoKea#oS,lAWoK$wDO8x[ZH:l*6UXi]hKPcPpAF^ãU"5/-(2(kCcMIy)4%mL0mN.7dhw-tI[tRhYqh$eY?D6nO+uX[aLg;nSOW]aXCJwiBãU"k8NRpF/6)6aLtEi5u;fiQf*CVN?qQ<06'3Q0dccl8X(gij/>toPELmBktJiuUSjãU"?xD4/CBW&nr9n(hiGgtpih6rb6mv[tHb.v?hLJNnZ#fNLemJ0:iãU";n4k4)m:QWadFlBxdtm'v(up%&'9%%9%%%m-%K59-EAW.IuD(.%%;3%%%.%%%%%ãU"%%%%&%%E%%%%%%%%%rfsi%VSgf%xup&%'9%9%%%%-s%K5-+EihG'Q>(%(%.1%%%ãU".%%%%%%%%%&%E#%%%k%(%%r%fsiW%Sgfx%up&'%9%9%%%%-%?K5-E(SBon'b-%%ãU"&4N%%%.%%%%%%%%%&%E%7%%U+%%%rf%siXS%gfxu%p&'9%%9%%%%-%Baa0Es4^>ãU"4/#+%%L%1%%/%%%%%%%%%&%%E%%+%e4%%%wjf%irjS(y'yu%p*+%%%%%)[%)%V%ãU"%%%C%;%%%%%ãEND SUBãCLOSE:IF S=235AND 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ãCam Spowart BOUNCING/ROTATING TRIANGLE slyboots@supernet.ab.ca 04-30-96 (06:30) QB, QBasic, PDS 111 2018 TRIANGLE.BASDECLARE SUB grid ()ãtimesvar = 1.5ãbeg:ãCLSãRANDOMIZE TIMERãxinc = .1ãRANDOMIZE TIMERãyinc = .1ãRANDOMIZE TIMERãneg = INT(RND * 2)ãRANDOMIZE TIMERãneg1 = INT(RND * 2)ããIF neg = 0 THEN xinc = xincãIF neg = 1 THEN xinc = xinc * -1ãIF neg1 = 0 THEN yinc = yincãIF neg1 = 1 THEN yinc = yinc * -1ããSCREEN 12ããRANDOMIZE TIMERãxcoor = RND * 640ãRANDOMIZE TIMERãyCoor = RND * 480ãx1Coor = xcoor + 100ãy1Coor = yCoorãx2Coor = xcoor + 50ãy2Coor = yCoor - 74ãããDOãã gridãã KEY(1) ONã KEY(10) ONã ON KEY(1) GOSUB revampã ON KEY(10) GOSUB showã LINE (xOld, yOld)-(x1Old, y1Old), 0ã LINE (x1Old, y1Old)-(x2Old, y2Old), 0ã LINE (x2Old, y2Old)-(xOld, yOld), 0ãã xcoor = xcoor + xincã yCoor = yCoor + yincã x1Coor = x1Coor + xincã y1Coor = y1Coor + timesvar * yincã x2Coor = x2Coor + timesvar * xincã y2Coor = y2Coor + timesvar * yincã clr = INT(RND * 15) + 1ã LINE (xcoor, yCoor)-(x1Coor, y1Coor), clrã LINE (x1Coor, y1Coor)-(x2Coor, y2Coor), clrã LINE (x2Coor, y2Coor)-(xcoor, yCoor), clrã ã xOld = xcoorã x1Old = x1Coorã x2Old = x2Coorã yOld = yCoorã y1Old = y1Coorã y2Old = y2Coorãã IF xcoor > 720 OR xcoor < 0 THEN GOSUB changexã IF yCoor > 348 OR yCoor < 0 THEN GOSUB changeyããgetback:ããLOOP UNTIL INKEY$ = " "ããCLSãENDããchangex:ãxinc = xinc * -1ãRETURN getbackããchangey:ãyinc = yinc * -1ãRETURN getbackããrevamp:ãCLSãGOTO begããshow:ãLOCATE 11, 10: PRINT "Bouncing, moving, rotating, blinking triangles ã(tm)"ãLOCATE 12, 25: PRINT "by Cam Spowart (1995)"ãLOCATE 13, 15: PRINT "Hit space to exit, F1 to redraw, and F10 to see ãthis"ãDO WHILE INKEY$ = "": LOOPãGOTO begããSUB gridããxcircle = RND * 640ãycircle = RND * 480ãradius = RND * 20ãseveneightnine = 7ãPSET (xcircle, ycircle), seveneightnineã'CIRCLE (xcircle, ycircle), radius, clrãã'FOR xJump = 0 TO 640 STEP 64ã'clr = 4ã'LINE (xJump, 0)-(xJump, 480), clrã'NEXT xJumpãã'FOR yJump = 0 TO 480 STEP 64ã'clr = 4ã'LINE (0, yJump)-(640, yJump), clrã'NEXT yJumpããEND SUBãErika Schulze PB TGA VIEWER 100775.2275@CompuServe.com 05-26-96 (07:08) PB 125 8181 TGAVIEW.BAS ' Please load/run under PowerBASIC to extract TGAVIEW.ZIPããDEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"TGAVIEW.ZIP",4^6:Z&=5823:?STRING$(50,177);ãU"%up()%9%%%R-%u/T3Eo91\%l&.%%;'%%%/%%%%wj%firj.Sy'yCr$t>\je5>KhmãU"KPhmmAbpD(M:tA&sMNM#*.A1NEtBP&+Ja9Qj4nZntbC$Z8x(,%$?c_6\8=RH[&GãU">TU$J2E%Rf,<81#&K.6pEk.ZL(hU+eRkKVt$meuO;?uX%3_WfHQ<_k:kI&;//B6ãU",AM>_xsJ=/m,I$KpebWy/-Kb>seC6m+)YK1e_Wd3/d_UiSioR2hmZurlRs:asV%ãU"1K3:3%eCcpt,YbEn0qQ)CfniktMd[TDXY=5Wdgq]xdwnw#r)Fe>Z\Pm\)8[W]V.ãU"s1M:R^VWv^3A0A7.'#D&MxB.D[?l&E=Q7X:eVB9T*)ur8V:qoki^uDM3l\%;>wNãU"m2rW'6B26WZPW[bwY6B36DOxQP,bc278[d;0YQbi?N/KOOz$oAR8c'$5#i[BmZ)ãU"/ctt+f%v.5yM/+g9h-0ZImJMkU%l%$u,Oq7Do.BcVuYkMnU=3+'N&b,>LIr0osmãU".^jLC4K8o9v]HU;esS5>ftA2R%UvB:);EU<;hG<3*TjR7j5AOPqr(8kg%DãU"up(%)9%%[%-%Y,+3Eu[Z5qS[(%%h%0%%,%%%%y%lfSyS'y.%:f^L_j57&cgDGvZãU",OQjJLT<('e%'xD%GegEmf*[a??g?GS\PTpZftn>Z?\/8Hc)LIkw%G_Tl\X[&6aãU"T:?9uv13Y1=#O*XdD-SMU^vNSjVTS\LM*Cp+F,0'Y*KI[A^^D:KhoBj>.sQgãU"4X7#9KNA9IiDC36SMCd$%AsB%m+e/>^Mr7&/)9g17ir_$XgI)In[ywbcvP/]0rBãU"LGuIxqm88ZD9Q;kabi54[/GSydt\cxq-knSQj1Oo'?t.X=UP^KBmNn.VHPNw*H$ãU"jM>,Fb_3S%,[?T*WG2c\BT2X%(3KT)%d5T.-6r/VwQ8045xuB9SCk&QESq+KUQ6ãU"/)kjXG#5]^uQQDdSxi#OhI\IXUZ-PDãU"[c66:aQb-E'a5[6FBq1C[d%>Ao5zPmpAkB+CERVK]sYQo0DbNeãU"EslpBP;IkKH\GDfp\\YA=<$*E7,HJ1B':Gc\BSI6WWF#*>4cRmjHsrju4Rn](GaãU"g:MbX\PO%Tb'5OV9KM0/6o,w2)1As+-dhShlTHS3w;kTq?e_c.ãU"ERV.NVIW*4#HbR)*.WwaA=r.)&gjl&e-ZrlcmZn.Fj>%l5z'4_Y_6$.>2llt=6'ãU"OKpc*Av;l&Ld]YZE92vVsDD41\_*^4;F53,91Z5UC/1PA&KTIb#dEvn[6p3aCwLb-W.;d:KhtãU"==WBvkv+(\^T1hj7-V#YSr1Ww=[vO&66/)u'IbBI&ukYinTB8Az4FZF,,ãU"s\Kx<8Q[V4rLsOb-4_(8JRXxsegN,g&O8&GHHLJo\Vj%\)f6U*&V5ZMjl0PvfrEãU"zdT=P,N]QB5:MLX*omihhffXsf]zVKRkes2e-$E\_41HH*M)s'b?6IC0Ou2\<$/ãU"^7T(c'319\6m<_4sha#a0H.<,[ib<==:k.c)]OI/jAh]1lE4Zsnk+T(/edMgMyyãU"s9=lM3luFw1'\,Zsi%82'_(30E>-*#CB[];&20I]JYCELkVhA3jPZ]]3B2(>hZlãU"R*dtGWFQf#+gXMJ^0#J'S.piI..)GL%brotcihok$FlNab9RfJV'RWq^HYX:*CSãU"Isuqe%t)/n.EG^#bCiF9UEX5&i\X=??d*:>PfP-#5JmTtOYh.wrGR9E;75,I>TIãU"$?XVQP-F'Pl(I9Y+'DOi\0)sxhK_58fSi\wC'CVxn0W>/:Ti5uL:G&I*Q1Dh\z2ãU"7tPTYnqF+is($GjYcQXjH&L1Z8m89m[UT/?REahAgG^cVJZ,,Srfqck+#mD$.>,ãU"0Fs8G7d1i0#\jidpl7k+U]jz[jpNãU"JEsi.7'T>4>k)t8\FoSY%cOEC%Q7$G(2r..8fxgEpu^Dj0M)zX&4Y7bTY?9ãU"hn)K:rvd[FU[p/y$D,ZjV:Gn_i7?pBTZ[;=;ff4InH$[P+l;d)W38qS,((*j1kUãU"rBx56OR85sao8;B_cKjOcUk)dB+Q.%+]*:yQO%DLs2$pp?#hG#6&D,-?>XZq#m,ãU"q04a5aF&OE:%MqGv?[wi0*>vf+2UfIS;O8jqWQUkV2H-'4Q/g#iIoSD[75<:A&qi'H0=-auTkãU"M#xBqiV-.\PMW3szIl=^/;%m>Pq2CL1hP/1Y([YkVn2BYP#'MJ8)['bBC_&CDb+ãU"N?P83JH0#iBLfk<'1I%K:c4O=?gfsZa/Ro2W(/nE3opupDYE75es5A0WW/R(D_$ãU"n-%dCn;q07cO5V(%C)9BOeoox3_l6VTJ\t9fbf])3k-$-)MtkD*K&NCf%I43j8Mn>x=L5h)TM0*y[ãU"Kvnh8*njQXNhXe&eC%s%0j'^%&Z8?jf5;*ay>[-mEk'RI[vfK6mu_:*ps*ART]sãU">jr-)K2uia[&zqmHG6('<_8MM$eoIIr,(7mG)$.dnf7;D&TQjthjAJ8'nj[md_mãU"+i?Aaf_#ld'l>/]1*BnYw78gI/v=6MSg'\%=#E\M[0i(Zve&-FctO(k-vx3I-?vãU"p-nutXjd^;4s2(CdH)_ZND%yi>lCEULFr+<(Kff',6?h)2<-fFagsr,KPx9DS_WãU".'_tkwC*6cWPDtasgS=?bR*kxLIOtVd)?_A[.ku&1O\x.OOpq%YeHJ1B%:a^i;3ãU"SLv<(z0w400;db0=OSbmUeObDzS^5A&:v;1EQ.rB22AaXW>)9,&uLkd6Z]+$_,>NaM0dga1TUMGuMo4NTN99vãU"Peq;y/xV6.us[L%Ml)9p?[#;jFG($L1GK#*'CN=/EHq\^,DDI6'Brg/7w2_%yNc4Ee?BW9.gAYcU,cI':\1LP4Zt0wm9B#x?jB6t%ãU"HD'OST5O+ZY7:ZpIpgI.mHgKHOT>(eBq=Qc8BAF(dU20kbyus4ssluuDkX%0oC3L8[HGãU"l+k2fO,c6E[KZc'vL\3bZGv(?Amd,yY'p-u&KcpZ[<7h0VI:KãU"J/p%WaX8eG:\)LPS459up>BfojbK9=;M'BO?9tS%rgJ$da1ltN/k,t6OUCY]QOh\C,ofa,yl%&#?+g5ãU"V^9ZNnvpce2de4Jx[y:F')XPTiVJ&$qXuZS^Ws'ZXK;Mvu^gi>&WH3J(jD*2Gufz\\rV3Kh3R>BO2NYB(NjOYOWbUãU"k/0]Dn#_Pml%V^T8\q;rGN)Aexbu>>eG<9W2/);=S#(*)8e\l#q&66.wL[AEN:+ãU")7-I%IXYl;B,v6VTg_NFzX;fg)lB#vRn-ãU":km\^Bt3,#Sa4t:%:.PSPw]1'rPc0bA1st%HIQ7?vi+HBO'Z^SPS]$'i\vK/j#i[7ãU"=9c22Ki(cf^0mWZ.:V7r=r6+'e.>l8;Cz*[&HC3uhd*YEg>$f%[feVHJ/i);tQ^C+bHa/saxB:skAmãU"#\%i'x$j61v*=pbMD0,aBp'd*B8l/bYOFeC%.=o_9eLwXTg=R=:S0E<5WãU"__q/qFv=tT2Cwxg/#'Q6pSe)VcJ?T\2\n0aJ^*Ys2c]6>/yfãU"+5Gx>f0)jgb.F4x-lFdl0_Sc+X_\095aokD/l+L%m7p'm:^WAl(Xe:/,^Y'/l4kãU"xV:l'p31[j;q.e?qTS=[vlEApXmE?[-U1^R..*IN^&,K%4lwdlr)*=3^TATubjDãU">U>WUZ8]T+<_Bh9$&-Qd-tgn-vM8?tfd(VSB$b(c;K>l0Ed0iH7f^K^S]]n3j%aZ6Yk>86R7)v/*ãU"9Eu)uFt,]tr)GX_1NXuJ*oqwzTFrZSML$iy*]Y]rr3V#Mlvnruj7rQr%y]qr3g&v&e3K89Y&.$KL9;l-1[H7m=bRpB5EpãU"h)$nL7o>cddCX9A$56Ts2nlOi[hvBbM5)qpTXvLK9DhwURiR[5Ci&Ls5N*=;TpxãU"zRTWmRehPTUKR]Zf5N9Q<_V'v?oi8DNan=:7T*MO9e:Sh9ioymN&boH-,EfEPmy%cPM;#Mrf*5Fw\$L$+?9kRMIa.xOfdNWq#t$dxh.w+CIqL;%4'KXd-=^wa]=v]q=m7OVj%ãU"G+(0]#;*&&3we%o=4PsaE9,xu75=dp?J6UeD29lZdFKsN2VW*hz9Da3sYbmZB-&G0G&ãU"li%JK16a:R+d$k*6)6;Ms62J$XSW,a+l[s&Wn,c[2]bl,iMiIKN%H1By4BHaQBaãU"5^=-BnMt0Wtd-]311VPU)dp8pmUa)SgS#:$5TãU"C(l4rYGJmbrJ<(GNEhJT5pNvq#8.'+LZGN5dMrp]8[g&%%%ylf.Sy'y%uãU"p&'%9%9%%%%-%:b,3E>ntNV%;5%%%py%%%0%%%%%%%%%&%E%7%%=*%%%yl(f%njãU"&&Sgf%xup*%+%%%%%(%((%u%%%%(;%%%%%ãEND SUBãCLOSE:IF S=252AND 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ãThe ABC Programmer COPPER BAR FADES Converted from PASCAL Code 05-28-96 (09:43) QB, QBasic, PDS 56 1665 COPPER.BAS ' > howdie, nice fader! i was wandering if you would be ableã' > to comment the program and repost it. i.e what the portsã' > are etc for us less experienced programmers...ãã'Okay, if you don't quote so much next time.ãã' bar-fade in, copper v7.0, by Bas van Gaalen, Holland, PDã' Converted to BASIC by William Yu (05-28-96)ããDEFINT A-ZãDECLARE SUB Incbars ()ãDECLARE SUB Copperbars ()ããCONST Size = 20 ' number of text-linesãDIM SHARED pal(0 TO 3 * Size - 1)ãã WIDTH 80, 25 ' 25 lines modeã Copperbars ' default = black -> otherwise flash of blue will appearã COLOR 1 ' set text to blue (now black, 'cos pal changed)ã PRINTã PRINT "Is this what you mean?": PRINTã FOR i = 1 TO 20ã PRINT "Test line", iã NEXT iã DOã Incbarsã Copperbarsã LOOP UNTIL INKEY$ <> "" ' do stuff until keypressed...ã SCREEN 0, 0, 0, 0ãENDããSUB Copperbarsã WAIT &H3DA, 8 ' Wait for vertical retraceã cc = 0ã FOR l = 0 TO Size - 1ã OUT &H3C8, 1 ' set pal-idx number (1=blue)ã OUT &H3C9, pal(cc) ' set first two pal-value's (red and greenã OUT &H3C9, pal(cc + 1) ' intensities)ã FOR j = 0 TO 15 ' 16 vertical retraces = one text lineã WAIT &H3DA, 1ã WAIT &H3DA, 1ã NEXT jã OUT &H3C9, pal(cc + 2) ' set last pal-value (blue), and thus activateã cc = cc + 3 ' new paletteã NEXT lãEND SUBãã'increase first value in the pal-array (the one representing red), and scrollã'that in the arrayãSUB Incbarsã IF pal(0) < 63 THEN pal(0) = pal(0) + 1ã FOR i = 3 * Size - 2 TO 0 STEP -1ã pal(i + 1) = pal(i)ã NEXT iãEND SUBããThe ABC Programmer ROTATING SPHERE Converted from PASCAL Code 05-28-96 (10:48) QB, QBasic, PDS 114 3753 GBALL.BAS '{A little rotating sphere, by Glen Jeh, 8/12/1994, use freely}ã'{Try messing with the constants...code is squished a little}ã' Converted to BASIC by William Yu (05-28-96)ã'ã' Uncomment the delay if you compile the programã' The screen updates too fastããDEFINT A-ZãDECLARE SUB DrawPoints (Colour)ãDECLARE SUB SetupBall ()ãDECLARE SUB Rotate ()ããCONST Scale = 50 ' x and y are multiplied by scale and divided by distanceãCONST Radius = 80 ' mystery constantãCONST DelayTime = 1 ' Delay(DelayTime) to slow it down..ãCONST Slices = 12 ' number of slicesãCONST PPS = 20 ' points per sliceãCONST Pi = 3.14ããTYPE PointTypeã X AS INTEGERã Y AS INTEGERã Z AS INTEGERãEND TYPEããDIM SHARED Points(1 TO Slices, 1 TO PPS) AS PointTypeãDIM SHARED Ball(1 TO Slices, 1 TO PPS) AS PointTypeãDIM SHARED XAngle, YAngle, ZAngleãDIM SHARED SinTable(0 TO 255) AS INTEGERãDIM SHARED CosTable(0 TO 255) AS INTEGERãDIM SHARED Distance, Dirãã FOR I = 0 TO 255ã SinTable(I) = INT(SIN(2 * Pi / 255 * I) * 128)ã CosTable(I) = INT(COS(2 * Pi / 255 * I) * 128)ã NEXT Iã SCREEN 13ãã Distance = 100: Dir = -3ã SetupBallã XAngle = 0ã YAngle = 0ã ZAngle = 0ã DOã Rotateã DrawPoints 10ã XAngle = XAngle + 3ã YAngle = YAngle + 2ã ZAngle = ZAngle + 1ã Distance = Distance + Dirã IF XAngle > 250 THEN XAngle = 0ã IF YAngle > 250 THEN YAngle = 0ã IF ZAngle > 250 THEN ZAngle = 0ã IF Distance >= 300 THEN Dir = -3ã IF Distance <= 30 THEN Dir = 2ã ' Delay(DelayTime); {I don't know why this is too fast...}ã ' Try it compiledã '--------------ã 'T! = TIMERã 'DO: LOOP UNTIL TIMER > T! + DelayTime / 10ã '--------------ã WAIT &H3DA, 8ã DrawPoints 0ã LOOP UNTIL INKEY$ <> ""ãENDãã'{mystery procedure}ãSUB DrawPoints (Colour)ã FOR I = 1 TO Slicesã FOR I2 = 1 TO PPSã IF (Points(I, I2).Z >= 0) AND (Points(I, I2).X <= 319) AND (Points(I, I2).X >= 0) AND (Points(I, I2).Y >= 0) AND (Points(I, I2).Y < 199) THENã DEF SEG = &HA000ã A! = Points(I, I2).Y * 320! + Points(I, I2).Xã POKE A!, Colourã END IFã NEXT I2ã NEXT IãEND SUBããSUB Rotateã'UPDATES all (X,Y,Z) coordinates according to XAngle,YAngle,ZAngleã ã FOR I = 1 TO Slicesã FOR I2 = 1 TO PPSã '{rotate on X-axis}ã TempY = (Ball(I, I2).Y * CosTable(XAngle) - Ball(I, I2).Z * SinTable(XAngle)) / 128ã TempZ = (Ball(I, I2).Y * SinTable(XAngle) + Ball(I, I2).Z * CosTable(XAngle)) / 128ã ' {rotate on y-anis}ã TempX = (Ball(I, I2).X * CosTable(YAngle) - TempZ * SinTable(YAngle)) / 128ã TempZ = (Ball(I, I2).X * SinTable(YAngle) + TempZ * CosTable(YAngle)) / 128ã '{rotate on z-axis}ã OldTempX = TempXã TempX = (TempX * CosTable(ZAngle) - TempY * SinTable(ZAngle)) / 128ã TempY = (OldTempX * SinTable(ZAngle) + TempY * CosTable(ZAngle)) / 128ã Points(I, I2).X = (TempX * Scale) / Distance + 320 / 2ã Points(I, I2).Y = (TempY * Scale) / Distance + 200 / 2ã Points(I, I2).Z = TempZã NEXT I2ã NEXT IãEND SUBãã'{sets up the ball's data..}ãSUB SetupBall ' {set up the points}ã FOR SliceLoop = 1 TO Slicesã Phi! = Pi / Slices * SliceLoop ' 0 <= Phi <= Piã FOR PPSLoop = 1 TO PPSã Theta! = 2 * Pi / PPS * PPSLoop ' 0 <= Theta <= 2*Piã '{convert Radius,Thetha,Phi to (x,y,z) coordinates}ã Ball(SliceLoop, PPSLoop).Y = INT(Radius * SIN(Phi!) * COS(Theta!))ã Ball(SliceLoop, PPSLoop).X = INT(Radius * SIN(Phi!) * SIN(Theta!))ã Ball(SliceLoop, PPSLoop).Z = INT(Radius * COS(Phi!))ã NEXT PPSLoopã NEXT SliceLoopãEND SUBãFred Fortin FALLING SNOW SIMULATION fortin@accent.net 05-30-96 (17:44) QB, QBasic, PDS 54 1426 SNOW.BAS DECLARE SUB GRAPHX ()ãDIM X(1000): DIM Y(1000): DIM STYLE(1000): DIM Z(1000): DIM SOLX(1000): DIM SOLY(1000)ãFLOCONS = 50: C = 15: TOTAL = 10: ZZ = 1ãSCREEN 13ãGRAPHXãLINE (1, 189)-(319, 189), 15ãTOTAL = INT(RND * 19 + 1)ãFOR A = 1 TO FLOCONSã RANDOMIZE TIMERã X(A) = INT(RND * 318 + 1)ã Y(A) = INT(RND * 177 + 3)ã Z(A) = 1ã STYLE(A) = INT(RND * 2 + 1)ã IF STYLE(A) = 0 THEN STYLE(A) = 1ã SOLY(A) = 189ãNEXT AãA = 1ãDOã PSET (X(A), Y(A)), C: PSET (X(A), Y(A)), 0ã IF Z(A) = TOTAL THEN GOSUB TESTã IF Z(A) > 10 THEN GOSUB TESTã IF STYLE(A) = 1 THEN X(A) = X(A) - 1: Y(A) = Y(A) + 1ã IF STYLE(A) = 2 THEN X(A) = X(A) + 1: Y(A) = Y(A) + 1ã PSET (X(A), Y(A)), Cã GOSUB DEPOSEã ã Z(A) = Z(A) + 1ã A = A + 1ã IF A = FLOCONS + 1 THEN A = 1ã IF INKEY$ <> "" THEN ENDã IF Y(A) = 1 OR Y(A) = 2 THEN LINE (1, 1)-(319, 2), BFãLOOPããTEST:ãIF STYLE(A) = 1 THEN STYLE(A) = 2: Z(A) = 1: RETURNãIF STYLE(A) = 2 THEN STYLE(A) = 1: Z(A) = 1: RETURNãRETURNããDEPOSE:ãIF POINT(X(A), Y(A) + 1) <> 0 THEN X(A) = INT(RND * 318 + 1): Y(A) = 1: PSET (X(A), Y(A)), CãRETURNããSUB GRAPHX STATICãLINE (140, 80)-(180, 180), 2ãLINE (140, 80)-(100, 180), 2ãLINE (100, 180)-(180, 180), 2ãPAINT (150, 130), 2, 2ãLINE (100, 160)-(125, 140), 0ãLINE (110, 130)-(132, 120), 0ãLINE (180, 160)-(155, 140), 0ãLINE (190, 130)-(148, 120), 0ãLINE (130, 181)-(150, 189), 6, BFããEND SUBãRobert Seidel ITERATED FUNCTION SYSTEMS seidel@ifk.uni-jena.de 05-31-96 (16:32) QB, QBasic, PB 330 21824 IFS.BAS ' Remove the DIM in DIM SHARED to run under PowerBASICãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"IFS.ZIP",4^6:Z&=16074:?STRING$(50,177);ãU"%up()%9%%%.-%svn=ETB3U0B4%%%zE%%%,%%%%nk#xSy'gyD(Vb=Tm+T7L9F\w6ãU"3)rK[EQ(skn's1oQ*_lGXjD3qE--]'J[/xC$rMpj[2oV>inb-^rk(gj\^'nz\N3ãU"Rb2eTO4tvrsz8(GyX\BNf)i8,bdOru55x(LN%(6lFW.SSyQP8\aK<&;EyN^hlFEãU"Jti?Keu?03oLY-D=mh<$,j.?tBClrPIZRMd]tvQ'Vn7l2/gP<8'p2N%bbyZbHVlãU").y$KsQ^FklhFl4%*W?f&+QH>UZa'.S8z$xoOpP(ãU"N^H,<iGyKJNuI/Fn,1N7CFSrAe<;Ww=Yttsl:ãU"j3ZTg&ht[3OXwp-V.+pEm_7n\bcXAIes]DHhm>CO5Go,Zv.%'gcmQ)ãU"UNESyWf,j][jVqdK:k7ZsGoZ0%ãU"C?/?M^KZ-bK3l'v1bW-0>3Q%Ke-qjyI+$2vXTQ'N1thlvd+Me94R=Nk\YhhD:faãU"c7_W^(WYW&3L>buTXxk2c.VlRtL%Uhty)9GH&P%hU6S/4m08w.M%/QBj];ScWcwãU"F=Fn4o].#a*VI(<';=,'Xt1vk_gdSG'h*F&+0/9K2k'Lb<*vLcHFBui&\FshsXYãU"ZF/4)8zw)byOrnv/Arm+H0;>XIQYoQ2xTjUK8krsChMNqd=(HAWu:9OAO]-/%4QãU"T'_HW6;su'cRk3<&BkUr,mKP84420ZtMM'1+RrAds2OdbDl:ovKc_O-%FY^vkI:ãU"w*7=v#_M9VFX$7gK6.XWqVM9+8mjucq,Y?U8CTG#ED,4mAPtXc]ik8k5$9mYoreãU"x=%\3b/Nd%'^68J6rhElKsxL/Z7ãU"iWCb+Bqr*V+R-klGZR_m^g>,'=LzTOssOsnJElrYh,8p'xh[YI%Q:]\JwA1kW;Fi3'I&4BD.zB5PHWtWWK.,#ry5ãU">R2<2uWGaE1Sc:zJWeWMVg$h78adCo*6L'3mz99g/Gc6BYC/=3c;X\sTk4wVp4YãU"_mt\8#(Gi722l]X>Zs(?Yd:T0UUN_u.6mf^?Uc=(*?Ssn'+gi[y4$h[6;XshXT\ãU"1uADd#V/EsI7,]99%,6GZY)lcnkQXj2OBf4b8L+)UF[l(mJVAb$qm8QjbMu^TYfãU"r;T^rXNVS^IU=B<2a;TVrAEqfS*.]$4aM*4[]*-k5XFhN1<QU$II^#Y&lm=uS0Mm1/8J3(L?;VXL$zWi+JC208\FhH#m_>/eX&)%_:iKlãU"dNR'1(NX8u[F#k0(32-hl;m_6G2-nbLxvflpR8uXT1aHkl*],6=Sqpl+D.0^Rz+ãU"2Xf=$$i?7Y%>t4Td?pjw'hfYU06,^C>ZW(_%RYO[$8*;:XmXkH*EDX3K$.;NA,4ãU"(?\Zf*']jjE:EkgY(L.SO8*_N.tx7Gy+B?P=b)R,.e=oom&c8[R?txJtbUS6X7<ãU"lunwYa3$0Cd\8$ou)/'PQp7fuOL,/)M,D6Ty#:a$Nf(Xe6z&,$r842E;PEDU-CqqBV.O%t)JãU"&]G-p.8uTBVuoT:Z^t%%'bT1_>;Aq[F(R5tFj:C=6VfG4.W+TU34zãU"?lnn#0MIs=)&nv.E_En,zO5Be6lX8QPyGQRU1%g#X_;j:d#U/jFdR-H4S?b4O:)ãU"G1TE[Fk/>Q4Mo_Z[m6&kTeale0JjfQqjc)O)ngyP;,'YHLDa)cl(jmJC\S6i1p)ãU"3e_[O;j/U*+b;4NSDJ8(cThCZqGJ54*^dXPRTfwu(eQãU"MOBjJDMI2u1_tFOI/ek0/EFPF.'I^btQD1K1LU7+D87$s);Co8w>.X;^V(KNHIC7:['j,k%a>*eGqHPak_u(<ãU"m['vjj>:G(*N8AM8SM:u)V2gQzC12b$hc\&)7b8&X*s;D?V_.ZtN.9fifxjmkESãU"O-dOsabg*L,6O,tsPp_zvWBk:LzbS%Wr7ew$.b>uO&h91g+^BDsX3j5W]PIBr8CãU"2+d\Xf&u>=_[fpNnS9X(IVgiatGROCAPN^S;]_gA7BXuP?Q-oYkIpaWJyw<[)d8ãU"ZbARD\nDD\uA?iur8ZKn37Luo3C[/2^&W(dLJ#(8Clf8dMruZ[k<&W'$qI8)QQFãU"Zh(CIw3.kcHo)]37Q*3/+k9'HTMZkj]S/A+k:pu:,gfc)WpH=Zbk'9mD]YGU3H$ãU"G9b\5QDZu5uIg)Ve+6b6qDJZisãU"&c/8t*L3UDmVdf6c];B>S;XSuhbkUN:[,&O50Sz+RzwNGCiLNFpcDn98_J^hWpRãU"C(Zme]G1;AV-fqLN6tGBtYA_kpO[l.RR%R*cgvjUrq>$1t^,vv3>ãU"R(tembtR?8bimK7bLa(bet,QH,R.7DSs]tJum:cm#avlmXCi^9.3pk^+R)uIleaãU"ua:e_M2g=+IMf[i4Q6)&[l3hQMOhMDY0HIk%anmEfcnibKOsClrYdNBn.Dd;Q#F8:ra)drXPC)7IeQ7buPDzT?5G/u]Lsvc2cãU"?SAndjfP1R]4VqEosEd&T_wNI1-:?Ppy*I-bit;ZPX^Gt((&IM<4ttK;9>T2oGXãU":HtV<3#GEcLWGpu/p>(3g[Dfa/8JGduP8:LL([Prj*4)tL:A+YgD5;_73R'&ãU"P*f;QlIZ1?Dp*j6DfI8kjv7=PYV3,(?-A'uobF%8HA](%:2x\sv(Gi#olU8DZWGãU"JDsbf4z$Ti&n_:?_ENTT7g.ufc(Puh2]6v.am#IQcoKi]kAPpXOB4&_DuF6#GfQãU"bk#q*>^<''N\L8tX'pMx&fJ<.9Ak0^6f6'he;Y6s,bDrun0dIy;d=tTX3=ESmnYãU")R/>.Q1KJQeEJZS/ja3L0>=T,nvS:8$m-#Il[,HD6t\l:Kt':&UdEw?6O0NF^o+ãU"r^-AP;9+\reP>&cd\B2xIY.OShP)T%i&_EQEg\PiBW3?o-+EXO9*\lTZnRxn;^qãU"tP0iFC^w6eE1:ha-71=,:sc#$ie/E*wJsC0)Pj%\#)IW4%5bU+VQC9;EDe($A:9ãU"h]Bka.gTzYs>6u\ufT\DcLx>Vk>fq/V3w?U)$4&16xKB#:idJd:k8;l4S-21dK>ãU"LcEqgefUjQ9pOm\ppCEV?F_R;DDOv6WCf6wA^I/U<-d/*PfJ;Mc1rpg^IqdcJZgãU"w6Y1J4e&FB.C/5aN%\V>]P;0fq,?6)\w=nRlg*jo<)<>MU>sw&ioD>M',U:=VZ%ãU"Da9;lgJ=gyOd9;qoB^_8n,sYr;OIãU"65\&kr,FFL=cs/SEn-ZO0-C/g63c?bK'B%Q0e%eIE4U&[bI-3U/UBFj?nNvN(#jKVãU"]se5/ky6DjF3l46CoRp^#rtBx&%up()%9%%%d-%_*oqC%w7OgR'.%%H*%%%/%%%%gj%shmr%SgfxãU"S;zGGEK>'q?8AAC1(0]EJ7;0u,DMOR?m]K-JYL;)n;LJ'zXdtiDuhXY>[w=sx'#eZ'3.r/:vHm-752d_%'>%;57)e%M&KsGLf?d4l^dVntj%F>W$BãU"/BW=%o,RBr)C)K&Po,NgBo;2;?eaq94Aj'Z#Y0o%Vj.B9nia/F;KeU25:?&EWa>ãU"G>OCEv+Pg(e[AaKE)MAb38wLw>PD&>*H?<$p0IWr5^z0u8eq[cKkmsib>>q0cD2ãU"X3GtW[Wi\P=[DlFO#,TUIcr\#9LY2#T=u/p;KVtM^ciM1ONHcR/be9CQ6'8^w%+ãU"bOr?CCJX+=Y+25=G+D7NO$47nK3O<&kB+]\\mxdgs)H(nZu0%68Ap>-1CrS(&ktãU"zNC$&(03-+Ry;?f$_;dY$_g:KJ,M;tmkNTiO;Y689)D3Uwg:_<\Y6UnAhbm,(HQãU"m9B=mbpi>_nvqG8m6;\mbJ)Vb<]w2fDe-F($j,#/e#PãU"V7zX'd.V*TwDea9X*xj.m5MlT[D1v46.3$8X84wqD9Md5XQ?J-.**i6bnãU"vH>J5FXz\ZDa4mUd7r67RtDW>r9^IlP,=].M/qe(OWC(9D2V0ãU"C1B=$uHZruqj%N9TLhM24*PX4L^1=&<6nYOaPF/P3HZr:UZT:^4s-#Gny=5'g79$kOZãU"07i[]C.oy*RqNRo'UN)3CAHO:EMEm#-G>Xa9;9GM?O-an%j:t59EiF1gR&SoMtpãU"B?R13iX^XR%Ua=Wr158,J\r2Gn7bU7&=9-RLDBquX:(LmgbPPr$vMzm)Y:ZWFkUãU"OQ[uGxE>FmPzXN\)APQ6uK_nJSisg3$c-78B:BPav,LE/Q*W&.JD-eQSRD6Q,G1ãU"6:\lV#>:CEjGE;h&MTdomCJ8_Pt3BIb'JpTe9F1]5$1oVdrO3&:iO;),XL<:;^NãU"nV$A;k8%bw8DV/rK(D.vXalecZPrkX3)h?CM--,ppR&;8*VasrWTOACCXI2r1rWãU"kW*Mc4?jXEZCjA8br$x*4OiTsCrEãU"7')yLx#5LP4ciZgE;5hFNuJp;DxfTXJrVA-F84Z,?hqi.l;IFw-6HN/Gfe_RQhmãU"CI:;2Zgx9=Ju91L0W:pe:wT3XjqW;1im&a=uEOf9]Zja-7ueVc#LrXqSD-iU-qUãU"EmBVSq+m%::&XOPm4V8SiTI8Q1;uN&D29Gc_=HC7)eB4QiGzpTnYH#bUGtSH5'HãU"(X>>^2Y2)aW^[^o=#.1*=O*1WHdmL\);HuOY]GGH\eOa7dBU/ZB^)podDnfg&4FãU"S$tFUS9kZ[:\>FQ3.5kcqDr#0U;GXQGS6t6YZOvTGw.aO=yi.QADK:.:0hI)+\HãU"..]rAM8+>wXUUqn06lY%ts]U1d2jBB\-W]inC3F1cj,sgO(LL&SsmExs;b,q1l)jKe\gsukyv_e'qZnwW9[nãU"tcK=Rj+tKpqEF7=pgmA^rnLxswMLJ-nR?20&6ZAV5TEfi^p=t0Y#&X%pvm&0ãU"&[*E^fyz*5\t;Ih's%rE[9qAbbVf0P*b.w99hM'aj_SdL\BVVhuKP_TbeU8_l5fbVO8(:L3XON5T]18;j/JYNcVhM?sOfSuvH?3OFCnãU"%UwaCRcR,ZmFY>A'O)8:%dKF]q)P'9u:MXLHmad&ea3mQ[^7.T8K;R?nPãU"D=O5OG]cA+u+0h+IM>A?IGqQx(Ave1ea=k%p$x[3ãU"]jJ%DHqMB(.2*,1Gj4iR\HwpdgufuW#AeX0keP9TO4?gPmI'2ãU"q:'E60g24l?kr_SS]?;_QHkTn^E#^h/l2fuvqs/d%2A%Y+T+kPHR7g;_QW<(o^kãU"he1?L9cYWf6T\;#O0;A-RDn+]t+u%p()9%%%%-L%3N1CDlM^,ZD%%+%fãU"%%%%0%%%%iwf%hmjs%Snkx&BNoqoGmF\o^W[^=WI,U%WVU\]JvUI+X+UY9*UKv'ãU"I*W2_\[rEJC9OqC;5KU&e;ev%hb00%HHp(')'hh#(X(B/_SB0JB8B2&_n+eDHBHãU"_Mgx$PDtT*'hpXh*DTTJg)8;3)^;/hFdRq\FAOKN'Ka>'iMi*iQ'f\YWmZW$^0KãU"Z&%&z\*w1EupFLTfXQ,Q3gvAM.Tfqv*)'Cp1n9Jug)2\$gu)#Suep%QdtF[MdN.ãU"&wiF]%ZXJZmlf8WaIW.%:PQ>+W05VaB+5.k5'.+-/eu;13L*a)WCQWYS/aenãU"=AiMMwgPsv_OIjAHo3*d3LIes5(OsZ;[N)*d['*9CHkl9QEkbwZ.o9Qx#XxwB%9ãU"Y1R#RrZH'2%up%()9%%%%-%2cT1DcQr-6&^%%%%*&%%%0%%%%kfsy%fxWS#nkxBãU"+pEPn+QGqrmtrCE%nnzUc[^W_9^WIX[zuuI[vuUI%X%X57Yi;5NAVWQpm2[.1=qãU"7V[[Z+kDC01C.?rZ.(mZ&i/RN_WHK,%a*?I+e7\(&u/&M8QHCGQ%ZY^kC40ODn7ãU"QnFy(m:Qw7-/O*d/Mc^]$N)^CLt;dIM)v5;us_MJ7=))Vi9kA%&%up%()9%%%%-ãU"%1QU1DlD:yt'&%%%%a&%%%-%%%%kfws%Snkxq4^:CB;U5SrhP5<'UyUJPj?a-djãU"/-TdLu[x\.-R=UGGej(#j*jpThVFtKEgwg9V*i44Nsg#/P*C_pPR7%zqrFgãU"S'502Jzry')Hk6O;y[1AM1_luECsNf2.2M.*fsmsT[1\'Tlc?MW%4fj9)jB>;S&ãU":b+vkoffb'/nThhqZtB3vQPCc?i;K^dA*JEO2\?D,-?\R#.,lhTce/rD6]TmF>%ãU"8up(%)9%%[%-%)[aVE-mO5#I%%%%S%&%%.%%%%k%jijw%Snkx(b\btBBqNECi7?'<_p_sE'3>U$pnNW3EF\T5/^:>-KQ9W1,(kãU"YA949Tn6_\I:/&QUA+?i4Y$AK\2ãU"iZEbKl10pzc>POCfsN%NV1\>jgRgBS/=Dtwd2E'tsN6$WrtL(N<>CflC,<;E4U(ãU"ieO[Re8s:.&3XgRL3lY\jxGEC%a.hG5REBZo4YHhPb.1AMAO_%k;,b2UlB9VmQ6ãU"DR,6?-NL5+E#yFVfOmTD\sv\=1;G\(lc*bS;o$cQ)>WxFc1v;0'Xup(%)9%%[%-ãU"%R)#3DfDkcHb[%%%n%%%%1%%%%k%tsyf%jsjS#nkxBHDHP8oBp^^=W_^W'IXuu'ãU"Ivu%0[/7XI1XQwU7'p:).REQ;6acp/8DvMP_oz\Z-^KZãU"'o4lPQ%Ai>>(NOMhC(-So\Z99M#:WwB2AaA7:pH2aNVQD,%7pwXF:K?ZL9QQDAPãU"'/4*rH/f0rnxjRJ/:x/hNx^I/?Ueheui5&+%up%()9%%%%-%._yQDIDk<$'8%%%ãU"&z&%%%1%%%%kzjs%kjhp%Snkx;d\:s'8[e*Fb-(]]N6&,(>:tb*XeãU"w:d^J3OyyfR9hK$xnWOr^.]5\jrzWBKD9(t3C]3BXIVxVc]qma*cEtcHIj-rhAaãU"IJU#-4R]n1-3*:eTDDrz)$D<=rP[\,M(wK1bPEk:$\mxP/FtãU":]0D^bg+i7Cigj'rLMF<[aO'm.fSxLOf4q>ãU"L.A]PzY=RkV*>G6G#e3EV;Q='(.rpT5GiJ?JRZb/yE'ZB6%Dup(%)9%ãU"%[%-%OAYiEXaN^XL#%%%6%&%%/%%%%l%fwyj%sSnk1x<_V,:-Z%u?3'>u#iI[Ke$IgPW6R.;S[ysAfRp=SudT%up()%9%%ãU"%#-%>b7iET:7&ec%.%%#&%%%.%%%%lw%zsiS%nkxzauDszCkW6qXI^MUC$/YTRãU"3$IUh)Reh9yu5Hcf+/:lsng/SG'8oV5d)j=%$$l:,Osqi=\>PFb)NT%ãU",3'Fjl?NEw=csJpj%.up(%)9%%%%-%T_lEDfq1ZMC[%%%A%&%%0%%%%p%thmR%vãU"zSn.kx\t3D=RUj55*kadER&%yH-/F6p)x$Ct/v%&,[VYY:C1rKBx5^YP;Jao&44ãU"j$dHQefsf%GLN;U3)BTv<4](IB>o/SRfA#GdgdS9eC=>76jQf\KVBxX$:kd#rDNãU"_FTtYh:<&MsLjnkZg-h5v\;H6hCXkhc)uzlN_W*tOos#^NX)QkãU"h%?Nc%%up()%9%%%I-%/_/EDm[<^A;%.%%]&%%%-%%%%pt%hmSn.kx\s3:]QUa9ãU"5\b+dErr:QpDwcZ'K?9Dko,&yypQLYHqmHvljYf4V+/5VPHXn>W,nR,P/&93>GcãU"%^hAJ(nQ^_s5\r_J>MWPO.xBM5sxFObt?sRqbqT,dqRQktZ]Yq$DM^>:pK4DO$#ãU"hl(Xe=WVV]+vUg*>(_w].OPioF<+BCPBdQoL:au;jfLãU"(Zj>6)lJh#R/xd$?0OlLal#5caK?$uSw]Tpk'JR:Ykv%%up()%9%%%R-%%9A3D,ãU"m;&EG%.%%-&%%%0%%%%pt%wfqq%jSnkgx4]:+o=U5kUhT5c4Ws8X,s$aãU"*dTxu[c'gQE6DG;jpXF8Y.j&27YPO_[qnyEFQFSBM#+=(V.vGH**w:0TnM0O4/w3+rBBu%p()9%%%%-L%Ql11DhbW*Ue%%%%Z&ãU"%%%1%%%%wjp%Rgfz%rSnkgxL^:+/;U5jihPvPV2x/#ow?8f(GQPK]0)[FuM;1QLãU"4N=;;yOGNg0V(ooR,Stm64NW6DQe'woQHC+$-/5\2Yimj6L'#+EpRr\r7u>*[c]ãU".7D/3ow(]h(mA?N%'Wi/=SWBoUuhCGOa]VB-iZ0O7q\ihãU"Fw*3&EFwETlPE\2A:T2yDg'GH&yJi4rs;q):933#aLxP3O)ZVy?2m8?-HP]=FIu.q..4xd9+=$O3k'siQ<2,fg/,Y9\L[gK^zY.%up()%9%%%I-%Fx81D^V0$si%%%%1&%%%0%%%%xn%jwuR&%Snk%ãU"x0pR&yoRO#OnR%+-GqR=OAEPZGGMD7NoFqsrG_^=W_^w+UIXzauIvIaZIX)+)K/ãU"u%?I1GC2_m2FInUD93Mc2EjyluG0_HbT?K5+FElqpf_?RM+#b>O[eq[^'^Wv%L&ãU"DTq0u7-SOt0/,kf=aMpqT-?LGTo/2,oOg2(MmgCuMw9CvXg?D95o9M]QUp2ttxKãU"%T<%u%p()9%%%%-L%)x1:Ds(P(n[%%%%&&%%%.%%%%xnj%wuSn[kx0G[qROAoEPãU"GG*MDNo]FqrGc_^W_]^wUI[XzuI7v%K+[E?ibAO*6;(-8qeB.Fny.vn28J-S,oCãU"YW,qV\P-$8mF=y(x-Sh&o^//'c/?>\x^^3Pi^xh:4H2aNVQD,%7pwXF:K?ZL9QQãU"DAP'/4*rH/f0rnxjRJ/:x/hNx^I/?Ueheui5&+%up%()9%%%%-%2'y1D>EXq,'KãU"%%%%v&%%%1%%%%xunw%fqjs%SnkxRruD9]=U15a,u43r.T=As4Bk6U9IVK<:e35ãU"1?EfYQm7N-6BF0Z)f0k?g4m>DqE-T>F2B2ON7Wq]pUpHJ:UyQn%[KyJBD-5K4FZãU"+kA4>*h33,XN93f(hOYaumpxp;_%,W=h^oguXM0.1/0C;coqXXxfR=og\JQ=IreãU"_]#h,PNUcHQ9CTa(ok=DQXCRFKj&;eCxba3YVy\bybD9[Vt%tPLt-M?Uiw[st($ãU"6jRiDX'YYtO?9hn'bvdlTqEgTk3R%G36.KZ#'w%up%()9%%%%-%3Yz1DJrFBl&IãU"%%%%7&%%%/%%%%xyjn%sjSn.kxBo+qGSS=nFEpc^^WZ]^wUI7XzIv%%w+e./kiGãU"K*Fs$7Nc.kQQMi/eyZP,%2nU,4LeKBQN:c*Y/l^.M2NtotsZWX?AãU"S+fR&SKhty0D8bISv'k'up%()9%%%%-%5Z'1Dd=Ry#'5%%%%L&%%%.%%%))&jn%ãU"lSnk(xZOtfFq&A]FQvi-GDTSsmF\^sW_^K+ZIXV:X&Iv7uUIX%Uw%WJOGUU'?u6ãU"h#xE(w#if&T=[[^',a?;u8\K?/KA1,gI9upx(>g[ZRW'L5)/\KK/U54+JeUUP%JãU"yHy/p.c[dZURSL1EzPF.MKo'Sm9tL0]x,?dG&Efu#y_5zkTAãU"dmUx78UAKOo0>2SKFLg&#YC\b_0ovj.tRpBW>#Y.9C/cuGE2pKUXf=[Q[-mL^V7ãU"ki7j.qe-\LMh1H^-.YTnun.1Laqae#.8IU+y]$U73^W'9.5)<^w(f3up]M+:-;oãU"yS623RY3C3:x91p$c>B:Ejh\2f$)?xUY/0rwxO,rX2cZ9b#^=DGY?bdibX*dSnWãU"Cp/]hE9;au*rGW#gS/mEXSf4U_Z-o<*a9o$b9p];n?kM5IhS/01va&mLi(C&R:?tAtTH+(WDlebUTãU"YfF$)0[0va8\t(-V%ãU"6XjTFN1L^'>F)0UUu_p^AK_cnY5D'd&A=K9>^Dqi4Xj-:)qlCmv$Lo3hneFYNE%ãU"CPxMc;0eBG](N4>#VWm:i*z/n%xhS6R;Go=yZ.Y[<_sP'F-,:2aA)cy5;T)2Yfbq^ZPFg,Y33q/M/+/GGL2909d2+4ãU"jbS+gqGPs.80XYSqUrfSn-0u(LOU)J#iq=Y;Bp3O;D(XBNY[BEduR0]QetW%2XE9%9UYsHU;r$ãU"510il]_DLH3MS2+(3hl7r>FI^G[NEb[*7FP9JEqBSm5Mal[dEi2$OãU"ohaRy2>yJn&(7b_FbUSim?s/?(V;2O7E6=E>bds8gs,XE'72f;4o)$tFnKXXEA=ãU"P9:=)s'EF=?<.+,FkPEW7V.:Fh733s#?rMu0xm>[EN:0U-,=-E+wR+mãU"Vb+TgWY6*TCE>Q\D_DCR10oW9(HX4>pDdnmiSY*\q/]JsbkC\$l0UkY2iW-G_V?ãU"Q,?km3^(81g?:$/H+I?780'].NU)Eb_PWWn[k2=hFiDfY;W8q,)7Z#\.[JzHZ1BãU"Ge85U\wGttsWmm3^5b]:FW1kpY)#0B4KW6'M&mevBL&i7I#3J75ZT(ycodLn3eeãU">c8[Ap>s.QX:)qt(Fd-x2$/e6/PIp/JhPXif*z.S+96hIjn6gPPZ--/W6'MZD\,ãU"yKUH$7a;sq,BGosJK\UCq#S+)T](0:plRRB*C6-K$o#lNBpTe]p%P1tfo5S7)/5ãU"=S)??AI5=t+4bPi8nXXK2ãU"xL-hiQlS8Fus,$I,V6px<'C?yxWRJX;0-kEc(odgq7>z31UnG<0gNP5\4E9ejuQãU"jHoab(M9dQ->?LXq<&VVllEeDmkNuE,G0Sw]n+rTFZao3hhL&vp$UL(ht&oYvW(ãU"9$]c8o#hiVqV8iY#lINxBl(xadT[Q;U]HYJK25(%uiA2Zc[rh2T-z2jX>T0v&OiãU";U4:-UJtusPuBBuN._Q$tf?7pxb[H&b(em.F$Yz2aD34,72*)g8p>x]+ymp\?tsãU"lY=)8R7l:HE=obdDodBHrc.t/#RJN%<9c/t>Uom#A':/b$xyF2lMpK6sXQN[$]qãU"V&0$i4<;72*bxYcHADO:.?wmieO$QeWWe+8T-&A1ntn1VG$f?dBR$gG^G_b6A_0ãU"$:rcs8JPnWUu&d8;ogs%0Q67=a$tdgNvFI%X8no-Jw_/E?GkhlqyA*rlKj[SPl0ãU"jJ>W76pp$vc3VIotvIWkpIQ6&DH%L6c,x1TnyQ0TpB=AE'$sY#*&XM0%a^=ZhsIãU"r<3UEDRpW7Xvp:E9\lP[[GkViGVt^v,/j]\*bWVH'>%%i%nfrf%sySn%kxup%&'9%%9%%%I-%3N/1DlM;^ZD%ãU"7%%f%%%%0%%%%%%%%%&%%E%%%'(?%%%iwfh%mjsS%nkxu%p&'9%%9%%#%-%r_S1ãU"DhA6]Fe%%%%=%&%%0%%%%%%%%%&%%E%%(%r#%%%kfs%yfxV%Snkx%up&'%9%9%%ãU"%%-%2cT1DcQr-6&^%%%%*&%%%0%%%%%%%%%&%E%.%%1A%%%kf%syfx%WSnk%xupãU"&%'9%9%%%%-I%QU1XDD:y-t&%%%%a&%%%-%%%%%%%%%&%E%%%%?%B%%k%fwsS%nãU"kxu%p&'9%%9%%[%-%)[aVE-mO5#I%%%%S%&%%.%%%%%%%%%&%%E%%+%fB%%%kjiãU"%jwSn%kxup%&'9%%9%%%#-%9/e_D+94.pl%%%%W&%%%/%%%%%%%%%&%%E%%%']CãU"%%%knhm%yjSn%kxup%&'9%%9%%%R-%R#A3Dfk/cHb%7%%n%%%%1%%%%%%%%%&%%ãU"E%%%&xD%%%ktsy%fjsj%Snkx%up&'%9%9%%%%-%._yQDIDk<$'8%%%&z&%%%1%%ãU"%%%%%%%&%E%.%%5E%%%kz%jskj%hpSn%kxup%&'9%%9%%%I-%2kA1DDt.aW$%%%ãU"%Q&%%%0%%%%%%%%%&%%E%%%%tF%%%lfqf&'njS%nkxu%p&'9%%9%%[%-%OAYiEXãU"aN^XL#%%%6%&%%/%%%%%%%%%&%%E%%%%.G%%%lfw%yjsS%nkxu%p&'9%%9%%%%-ãU"%>\biET[:&ec#%%%#%&%%.%%%%%%%%%&%%E%%%%)H%%%lwz%siSn%kxup%&'9%%ãU"9%%%#-%TlSEDf1>ZMC%7%%A&%%%0%%%%%%%%%&%%E%%%%:I%%%pthm%RvzS%nkxãU"u%p&'9%%9%%#%-%/D_EDmj[^A;#%%%]%&%%-%%%%%%%%%&%%E%%%%-J%%%pth%mãU"Snk%xup&%'9%9%%%%-O%%93ID,m&,EG%%(%-&%%%0%%%%%%%%%&%E[%%%i%J%%pãU"%twfq%qjSn%kxup%&'9%%9%%%I-%ZEnFD-f:.kI%.%%.'%%%/%%%%%%%%%&%%E%ãU"%%'$K%%%rnsp(t&Sn%kxup%&'9%%9%%%I-%QlJ1Dhb4WUe%%%%Z&%%%1%%%%%%%ãU"%%&%%E%%%'XL%%%wjpR%gfzr%Snkx%up&'%9%9%%%%-%3sm1D8gAs''B%%%%h&%ãU"%%1%%%%%%%%%&%E%.%%nM%%%xh%msjh%pjSn%kxup%&'9%%9%%%.-%vaRVE-+=3ãU"TO%%%%c&%%%/%%%%%%%%%&%%E%%%&aN%%%xhms%zwSn%kxup%&'9%%9%%%I-%FxãU"81D^V0$si%%%%1&%%%0%%%%%%%%%&%%E%%%&_O%%%xnjw.uR%S%nkxu%p&'9%%9ãU"%%#%-%)Dx1DsB(Pn[%%%%&%&%%.%%%%%%%%%&%%E%%%%xP%%%xnj%wuSn%kxup%ãU"&'9%%9%%%I-%'ye1DEX9q,K%%%%v&%%%1%%%%%%%%%&%%E%%%%+Q%%%xunw%fqjãU"s%Snkx%up&'%9%9%%%%-%3Yz1DJrFBl&I%%%%7&%%%/%%%%%%%%%&%E%%%%'R%%ãU"%xy%jnsj%Snkx%up&'%9%9%%%%-%2O93D>aP7z'2%%%%i'%%%0%%%%%%%%%&%E%ãU".%%sR%%%yj%uunh%mSnk%xup&%'9%9%%%%-U%Z'1#D=Ry-#5%%%%L&%%%.%%%%%ãU"%%%%&%E#%%%U#S%%)&&jnl%Snkx%up&'%9%9%%%%-%>_*qC(5P+P%,)%%'?,%%%ãU"+%%%%%%%%%&%E%.%%8T%%%nk%xSug%up&'%9%9%%%%-%>_*qC8Q(f9'9(%%&,,%ãU"%%+%%%%%%%%%&%E%.%%cX%%%nk%xSvg%up*+%%%%%%F%F%%a,%%&G\%%%%%ãEND SUBãV2ãCLOSE:IF S=125AND 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ãThe ABC Programmer VECTOR BALL ELLIPSE Converted from PASCAL Code 05-26-96 (12:15) QB, QBasic, PDS 91 3168 VECTBALL.BAS'====================================================================ã' Original PASCAL Code by Bas van Gaalenã' Converted to BASIC by William Yu (05-26-96)ã'ã' Places a large vector ball ellipse on the screen and makes it bounceã' to pieces = nice visual effectã'ã' Compile for best performanceã' FYI: Pascal code ran 5 times faster (About there anyways).ã'--------------------------------------------------------------------ããDEFINT A-ZãDECLARE SUB Putdot (X%, Y%, Colour%)ãDECLARE SUB Setcolors (Colour%, Red%, Green%, Blue%)ããCONST Balls = 1400 ' Increase/Decrease accordingly to your CPU speedãCONST Startcolor = 50 ' I don't think you'll need thisããTYPE movementã X AS INTEGER ' Positionã Y AS INTEGER ' Velocityã dx AS INTEGER ' Accelerationã dy AS INTEGERã ddx AS INTEGERã ddy AS INTEGERã Colour AS INTEGERã MaxYValue AS INTEGER ' ???ãEND TYPEããDIM Ball(1 TO Balls) AS movementããSCREEN 13 ' Try other screen modes if you wishãã'These few lines aren't too importantã'FOR I = 1 TO 250ã 'CALL setcolors(I, I MOD 50, I MOD 50 - 20, I / ((I / 63) + 1))ã 'fillchar(mem[$A000:(191*320)],320*8,Ord(StartColor));{line at bottom}ã'NEXT IããFOR I = 1 TO Balls '{INIT the balls into the array}ã Ball(I).ddx = 0ã Ball(I).ddy = 1 '{constant pull downward}ã Ball(I).dx = RND * 5 - 2 '{ start it moving left or right }ã IF Ball(I).dx = 0 THEN Ball(I).dx = 1 '{ not still}ã Ball(I).dy = 0 '{ the object is initially at rest }ã Ball(I).X = INT(COS(I) * 140) + 140 + ((I / ((I / 4) + 1)) * 6)ã Ball(I).Y = INT(SIN(I + ((I / ((I / 4) + 1)))) * 70) + 60 + ((I / ((I / 4) + 1) * 12)) '{ you specified }ã Ball(I).Colour = RND * (I / ((I / 254) + 1)) + 1'{Each Balls color}ã MaxYValue = Ball(I).YãNEXT IããPull = 0 '{init the gravity degrading effect}ã 'Increase value for cool drop and die effectããWHILE INKEY$ = ""ã FOR I = 1 TO Ballsã CALL Putdot(Ball(I).X, Ball(I).Y, 0) ' { blank out the pixel drawn on the last iteration }ã Ball(I).dx = Ball(I).dx + Ball(I).ddx ' { updating velocity }ã Ball(I).dy = Ball(I).dy + Ball(I).ddyã Ball(I).X = Ball(I).X + Ball(I).dx ' { updating position }ã Ball(I).Y = Ball(I).Y + Ball(I).dyã IF Ball(I).X < 1 THEN ' {hits left of screen}ã Ball(I).X = 1ã Ball(I).dx = Ball(I).dx * -1ã END IFã IF Ball(I).X > 319 THEN ' {hits right of screen}ã Ball(I).X = 319ã Ball(I).dx = -Ball(I).dxã END IFã IF Ball(I).Y > 190 THEN ' { BOUNCE! }ã Ball(I).Y = 190 - (Ball(I).Y - 190) + 1ã Ball(I).dy = -Ball(I).dy + Pullã END IFã CALL Putdot(Ball(I).X, Ball(I).Y, Ball(I).Colour) ' { draw the pixel at the new position }ã NEXT IãWENDãENDããSUB Putdot (X, Y, Colour)ã DEF SEG = &HA000ã Y! = Yã POKE Y! * 320 + X, Colourã 'PSET (X, Y), ColourãEND SUBããSUB Setcolors (Colour, Red, Green, Blue)ã OUT &H3C8, Colourã OUT &H3C9, Redã OUT &H3C9, Greenã OUT &H3C9, BlueãEND SUBãSteven Sensarn MODE-X PCX DISPLAY The Basix Fanzine Issue 5 06-01-96 (00:00) QB, QBasic, PDS 212 7120 MODEXPCX.BAS'//MODEXPCX.BAS -- CREATED IN QBASIC 1.1 BY STEVEN SENSARNã'//SPEED HAS BEEN COMPROMISED FOR SIZEãã'//FUNCTION PROTOTYPESãDECLARE SUB X.PLANE (P AS INTEGER) 'USE THIS TO CHANGE PLANESãDECLARE SUB X.PIXEL (X AS LONG, Y AS LONG, CLR AS INTEGER) 'PLOTS PIXELãDECLARE SUB MODEX () 'CHANGES TO MODE X 320x240x256ãDECLARE SUB WAIT.KEY () 'PRESS ANY KEY TO CONTINUEãDECLARE SUB OPEN.FILE () 'USED TO LOAD THE PCX FILEãã'//STRUCTURESãTYPE THEADERã MAN AS STRING * 1 'MANUFACTURER -- 10ã VER AS STRING * 1 'VERSION -- 5+ã ENC AS STRING * 1 'ENCODING -- 1 (RLE)ã BPP AS STRING * 1 'BITS PER PIXEL PER PLANE -- 8ã MNX AS INTEGER 'MINIMUM X SIZEã MNY AS INTEGER 'MINIMUM Y SIZEã MAX AS INTEGER 'MAXIMUM X SIZEã MAY AS INTEGER 'MAXIMUM Y SIZEã HRS AS INTEGER 'HORIZONTAL RESOLUTIONã VRS AS INTEGER 'VERTICAL RESOLUTIONã COL AS STRING * 48 'EGA COLOR PALETTE -- IGNOREã RES AS STRING * 1 'RESERVEDã NMP AS STRING * 1 'NUMBER OF PLANES -- 1ã BPL AS INTEGER 'BYTES PER SCANLINEã PAL AS INTEGER 'PALETTE INFO -- IGNOREã FIL AS STRING * 58 'FILLUP SPACEãEND TYPEãã'//VARIABLE DECLARATIONSãDIM BYTE AS STRING * 1 'USED TO READ BYTESãDIM HEADER AS THEADER 'USED FOR HEADER INFORMATIONãDIM SHARED FILE AS STRING * 50 'USED TO HOLD FILE NAMEãDIM INDEX AS LONG 'USED TO CONTROL DECODINGãDIM SIZE AS LONG 'USED TO CONTROL DECODINGãDIM XSIZE AS INTEGER, YSIZE AS INTEGER 'USED TO MEASURE IMAGEãDIM TOTALBYTES AS INTEGER 'USED TO MEASUER SCAN LINESãDIM VALUE AS INTEGER 'USED FOR CONVERTING CHAR TO INTãDIM RLP 'USED FOR RUN LENGTH LOOPãDIM X AS LONG, Y AS LONG 'USED FOR PIXEL TRACKINGãã'//VARIABLE INITIALIZATIONSãINDEX = 1 'BE ON THE SAFE SIDEãã'//MAINãON ERROR GOTO ERROR.HANDLER 'JUST IN CASE...ããCLSãCALL OPEN.FILE 'OPEN THE FILEããGET #1, 1, HEADER 'LOAD HEADERãã'//BASIC TEST (NOT FOOL-PROOF) -- REQUIREMENTSãIF ASC(HEADER.MAN) <> 10 THEN CLOSE #1: END 'NOT PCXãIF ASC(HEADER.VER) < 5 THEN CLOSE #1: END 'NOT 256 COLORãIF ASC(HEADER.ENC) <> 1 THEN CLOSE #1: END 'NOT RLEãIF ASC(HEADER.NMP) <> 1 THEN CLOSE #1: END 'NOT SUPPORTIVE OF MODE X PLANESãã'//LOAD WHILE LOOP INFORMATIONãXSIZE = HEADER.MAX - HEADER.MNX + 1 'LOAD HORIZONTAL GRAPHIC SIZEãYSIZE = HEADER.MAY - HEADER.MNY + 1 'LOAD VERTICAL GRAPHIC SIZEãTOTALBYTES = HEADER.BPL 'USED TO TRACK END-OF-SCANLINEãSIZE = 1& * XSIZE * YSIZE 'LOAD SIZE -- FORCE LONGãIF SIZE > 76800 THEN CLOSE : END 'GRAPHIC TOO LARGE -- WON'T FIT ON SCREENãã'//DISPLAY STATUS TO THE USERãCLS : SCREEN 0: WIDTH 80ãPRINT "FILENAME: ", , " "; FILE: PRINTãPRINT "MANUFACTURER: ", ASC(HEADER.MAN)ãPRINT "VERSION: ", , ASC(HEADER.VER)ãPRINT "RLE ENCODING: ", ASC(HEADER.ENC)ãPRINT "BITS PER PIXEL PER PLANE: ", ASC(HEADER.BPP)ãPRINT "WINDOW X MIN: ", HEADER.MNXãPRINT "WINDOW Y MIN: ", HEADER.MNYãPRINT "WINDOW X MAX: ", HEADER.MAXãPRINT "WINDOW Y MAX: ", HEADER.MAYãPRINT "HORIZONTAL RESOLUTION: ", HEADER.HRSãPRINT "VERTICAL RESOLUTION: ", HEADER.VRSãPRINT "NUMBER OF PLANES: ", ASC(HEADER.NMP)ãPRINT "BYTES PER LINE: ", HEADER.BPLãPRINTãIF NOT HEADER.HRS / 320 = INT(HEADER.HRS / 320) THENã PRINT "ASPECT RATIO MISMATCH ", " -- X AXIS" 'WARPED IMAGE -- NO BIG DEALãELSEã PRINTãEND IFãIF NOT HEADER.VRS / 240 = INT(HEADER.VRS / 240) THENã PRINT "ASPECT RATIO MISMATCH ", " -- Y AXIS" 'WARPED IMAGE -- NO BIG DEALãEND IFãWAIT.KEY 'PRESS ANY KEY TO CONTINUEãMODEX 'SWITCH TO MODE X -- 320x240x256ãDEF SEG = &HA000 'VIDEO MEMORY ACCESSãã'//DECODE AND DISPLAYãWHILE INDEX <= SIZE 'WHILE PICTURE ISN'T DONE LOADING...ã GET #1, , BYTE 'READ BYTEã IF (ASC(BYTE) AND &HC0) = &HC0 THEN 'TEST TOP TWO BITS FOR 1'Sã RLP = ASC(BYTE) AND &H3F 'SET RUN LENGTHã GET #1, , BYTE 'READ DATA BYTEã WHILE RLP > 0 'WHILE RUN LENGTH HAS NOT YET FINISHED DUPLICATIONã IF NOT X > XSIZE THEN CALL X.PIXEL(X, Y, ASC(BYTE)) 'PLOT PIXELã X = X + 1 'RENEW PIXEL POSITIONã IF X >= TOTALBYTES THEN X = 0: Y = Y + 1 'TEST FOR END OF SCANLINEã RLP = RLP - 1 'REDUCE RUN LENGTH LOOP VARIABLEã INDEX = INDEX + 1 'INCREASE TOTALã WENDã ELSE 'IF THE BYTE IS NOT ENCODEDã IF NOT X > XSIZE THEN CALL X.PIXEL(X, Y, ASC(BYTE)) 'PLOT PIXELã X = X + 1 'RENEW PIXEL POSITIONã IF X >= TOTALBYTES THEN X = 0: Y = Y + 1 'TEST FOR END OF SCANLINEã INDEX = INDEX + 1 'INCREASE TOTALã END IFãWENDãã'//CHANGE PALETTEãGET #1, LOF(1) - 768, BYTEãIF ASC(BYTE) <> 12 THEN CLOSE : END 'NO 256 COLOR PALETTEãFOR INDEX = 0 TO 255ã OUT &H3C6, &HFF 'INITIALIZE VGA PALETTEã OUT &H3C8, INDEX 'SELECT COLOR INDEXã GET #1, , BYTEã OUT &H3C9, INT(ASC(BYTE) / 4) 'SEND RED VALUE -- ONLY NEED TOP 6 BITSã GET #1, , BYTEã OUT &H3C9, INT(ASC(BYTE) / 4) 'SEND GREEN VALUE -- ONLY NEED TOP 6 BITSã GET #1, , BYTEã OUT &H3C9, INT(ASC(BYTE) / 4) 'SEND BLUE VALUE -- ONLY NEED TOP 6 BITSãNEXT INDEXãSOUND 3000, .25 'DONE -- YOU WILL NOT SEE THE 'PRESS ANY KEY TO CONTINUE'ãENDãã'//ERRORSãERROR.HANDLER:ãSCREEN 0: WIDTH 80ãCLSãPRINT : PRINT "SOMETHING HAS OCCURED IN THE PROGRAM THAT HAS"ãPRINT "CAUSED IT TO HALT. TERMINATING..."ãWAIT.KEYãENDãã'//DONEãCLOSE #1 'CLOSE THE FILEãSOUND 3000, .25 'SIGNAL USERãEND 'END THE PROGRAMãã'//NOTICEã'I HAVE ABSOLUTELY NO EXPERIENCE WITH PLANE BASED PCX FILES BECAUSE I USEã'MICROSOFT WINDOWS 3.1 PAINTBRUSH AND I CAN'T SEEM TO CREATE ONE. IFã'ANYBODY WOULD BE WILLING TO DRAW ME ONE THAT USES PLANES, I WOULD GREATLYã'APPRECIATE IT. SENT TO "txs53132@bayou.uh.edu" VIA BINHEX OR MIME.ããSUB MODEXã SCREEN 13ã DEF SEG = &HA000ã OUT &H3C4, &H4ã OUT &H3C5, &H6ã OUT &H3C4, &H2ã OUT &H3C5, &HFã CLSã OUT &H3D4, &H14ã OUT &H3D5, &H0ã OUT &H3D4, &H17ã OUT &H3D5, &HE3ã OUT &H3C2, &HE3ã OUT &H3D4, &H11ã OUT &H3D5, &H2Cã OUT &H3D4, &H6ã OUT &H3D5, &HDã OUT &H3D4, &H7ã OUT &H3D5, &H3Eã OUT &H3D4, &H10ã OUT &H3D5, &HEAã OUT &H3D4, &H11ã OUT &H3D5, &HACã OUT &H3D4, &H12ã OUT &H3D5, &HDFã OUT &H3D4, &H15ã OUT &H3D5, &HE7ã OUT &H3D4, &H16ã OUT &H3D5, &H6ãEND SUBããSUB OPEN.FILEã PRINT "<>/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\<>"ã PRINT "<> PLEASE NOTE THAT THE FILE THAT IS TO BE LOADED MUST HAVE A <>"ã PRINT "<> SIZE NO LARGER THAN 320x240. IF YOU WOULD LIKE TO TERMINATE <>"ã PRINT "<> THIS PROGRAM, DO SO ENTERING AN EMPTY FILENAME. <>"ã PRINT "<>\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/<>"ã PRINTã INPUT "FILENAME: ", FILEã FILE = RTRIM$(FILE)ã FILE = UCASE$(FILE)ã IF NOT RIGHT$(RTRIM$(FILE), 4) = ".PCX" THEN END 'NO VALID EXTENSIONã OPEN FILE FOR BINARY AS #1ã IF LOF(1) = 0 THEN CLOSE #1: KILL FILE: END 'FILE EMPTY OR NOT FOUNDãEND SUBããSUB WAIT.KEYã WHILE LEN(INKEY$) = 0: WENDãEND SUBãã'//ASSUMING CURRENT SEGMENT IS A000:0000HãSUB X.PIXEL (X AS LONG, Y AS LONG, CLR AS INTEGER)ã CALL X.PLANE(X AND 3)ã POKE INT(Y * 80 + X / 4), CLRãEND SUBãã'//USED TO CHANGE PLANEãSUB X.PLANE (P AS INTEGER)ã OUT &H3C4, 2ã OUT &H3C5, 2 ^ PãEND SUBãEarl Montgomery 320X400 TURTLE DRAW FidoNet QUIK_BAS Echo 05-28-96 (18:29) QB, PDS 92 3290 320X400.BAS 'Here is some code that I wrote awhile back that uses the 320x400x256ã 'mode. Press "H" to get the help menu. It allows you to sketch in thisã 'mode. But it does give you the basic code to do all sorts of thingsã 'in this mode. Enjoy.ããsetmode:ã 'Sets SCREEN 13 to the 320X400X256 modeã SCREEN 13: DEF SEG = &HA000ã KEY(10) ONã ON KEY(10) GOSUB endofprogramã OUT &H3D4, 9: OUT &H3D5, &H40: OUT &H3D4, 20: OUT &H3D5, 0: OUT &H3D4, 23ã OUT &H3D5, &HE3: OUT &H3C4, 4: OUT &H3C5, &H6ã OUT &H3C4, 2: OUT &H3C5, 15: CLS : 'rem this clears (CLS) all 4 planesã IF flag$ = "restart" THEN GOTO loadtempã OUT &H3C4, 2: OUT &H3C5, 1ãbegin:ã position% = 15318: c = 15: plane% = 1: OUT &H3C4, 2: OUT &H3C5, 1ãrestart:ã flag$ = ""ã POKE position%, cãwaitkey1:ã i$ = INKEY$: IF i$ = "" THEN GOTO waitkey1ã i$ = UCASE$(i$)ã keycode% = CVI(i$ + CHR$(0))ã IF keycode% = 19712 THEN GOTO moverightã IF keycode% = 19200 THEN GOTO moveleftã IF keycode% = 18432 THEN GOTO moveupã IF keycode% = 20480 THEN GOTO movedownã IF i$ = "C" THEN GOTO changecolorã IF i$ = "H" THEN GOTO helpscreenã IF i$ = "X" THEN GOTO clearscreenã GOTO waitkey1ãmoveright:ã IF plane% = 1 THEN OUT &H3C4, 2: OUT &H3C5, 2: plane% = 2: GOTO pokescrnã IF plane% = 2 THEN OUT &H3C4, 2: OUT &H3C5, 4: plane% = 4: GOTO pokescrnã IF plane% = 4 THEN OUT &H3C4, 2: OUT &H3C5, 8: plane% = 8: GOTO pokescrnã IF plane% = 8 THEN OUT &H3C4, 2: OUT &H3C5, 1: plane% = 1: position% = position% + 1ãpokescrn:ã IF position% > 31999 THEN position% = 31999ã POKE position%, cã GOTO waitkey1ãmoveleft:ã IF plane% = 1 THEN OUT &H3C4, 2: OUT &H3C5, 8: plane% = 8: position% = position% - 1: GOTO doitã IF plane% = 2 THEN OUT &H3C4, 2: OUT &H3C5, 1: plane% = 1: GOTO doitã IF plane% = 4 THEN OUT &H3C4, 2: OUT &H3C5, 2: plane% = 2: GOTO doitã IF plane% = 8 THEN OUT &H3C4, 2: OUT &H3C5, 4: plane% = 4:ãdoit:ã IF position% < 0 THEN position% = 0ã POKE position%, cã GOTO waitkey1ãmoveup:ã position% = position% - 80ã IF position% < 0 THEN position% = position% + 80ã POKE position%, cã GOTO waitkey1ãmovedown:ã position% = position% + 80ã IF position% > 32000 THEN position% = position% - 80ã POKE position%, cã GOTO waitkey1ãchangecolor:ã c = c + 1ã IF c > 255 THEN c = 0ã POKE position%, cã GOTO waitkey1ã GOTO waitkey1ãhelpscreen:ã 'Saving screen before switching to SCREEN 9 and the HELP MENUã DEF SEG = &HA000ã OUT &H3CE, 4: OUT &H3CF, 0: BSAVE "temp1.bin", 0, 32000ã OUT &H3CE, 4: OUT &H3CF, 1: BSAVE "temp2.bin", 0, 32000ã OUT &H3CE, 4: OUT &H3CF, 2: BSAVE "temp3.bin", 0, 32000ã OUT &H3CE, 4: OUT &H3CF, 3: BSAVE "temp4.bin", 0, 32000ã SCREEN 9: CLSã PRINT "Key Function"ã PRINT "Use arrow keys to move cursor"ã PRINT "C Changes current color"ã PRINT "F10 Exit Program "ã PRINT "H Help (This Screen)"ãwaitkey2:ã i$ = INKEY$: IF i$ = "" THEN GOTO waitkey2ã CLS : flag$ = "restart": GOTO setmodeãloadtemp:ã OUT &H3C4, 2: OUT &H3C5, 1: BLOAD "temp1.bin"ã OUT &H3C4, 2: OUT &H3C5, 2: BLOAD "temp2.bin"ã OUT &H3C4, 2: OUT &H3C5, 4: BLOAD "temp3.bin"ã OUT &H3C4, 2: OUT &H3C5, 8: BLOAD "temp4.bin"ã GOTO restartãclearscreen:ã OUT &H3C4, 2: OUT &H3C5, 15: CLS : GOTO beginãendofprogram:ã SCREEN 0: CLS : DEF SEG : ENDãRyan White VARYING WINDMILLS BIGFOOT@SunBelt.Net 06-02-95 (21:50) QB, QBasic, PDS 72 1678 WINDMILL.BASSCREEN 13ãCLSãC = 16ãE = 1ãON KEY(1) GOSUB ECH1ãKEY(1) ONãON KEY(2) GOSUB ECH2ãKEY(2) ONããST:ãFOR X = 1 TO 80 STEP EãIF C >= 30 THEN C$ = "Y" ELSE IF C <= 16 THEN C$ = "N"ãIF C$ = "Y" THEN C = C - 1 ELSE C = C + 1ããLINE (X, 1)-(80 - X, 49), CãLINE (80 + X, 1)-(160 - X, 49), CãLINE (160 + X, 1)-(240 - X, 49), CãLINE (240 + X, 1)-(320 - X, 49), CããLINE (X, 50)-(80 - X, 99), CãLINE (80 + X, 50)-(160 - X, 99), CãLINE (160 + X, 50)-(240 - X, 99), CãLINE (240 + X, 50)-(320 - X, 99), CããLINE (X, 100)-(80 - X, 149), CãLINE (80 + X, 100)-(160 - X, 149), CãLINE (160 + X, 100)-(240 - X, 149), CãLINE (240 + X, 100)-(320 - X, 149), CããLINE (X, 149)-(80 - X, 199), CãLINE (80 + X, 149)-(160 - X, 199), CãLINE (160 + X, 149)-(240 - X, 199), CãLINE (240 + X, 149)-(320 - X, 199), CãNEXT XããFOR Y = 49 TO 1 STEP -EãIF C >= 30 THEN C$ = "Y" ELSE IF C <= 16 THEN C$ = "N"ãIF C$ = "Y" THEN C = C - 1 ELSE C = C + 1ããLINE (1, Y)-(80, 50 - Y), CãLINE (81, Y)-(160, 50 - Y), CãLINE (161, Y)-(240, 50 - Y), CãLINE (241, Y)-(320, 50 - Y), CããLINE (1, Y + 50)-(80, 100 - Y), CãLINE (81, Y + 50)-(160, 100 - Y), CãLINE (161, Y + 50)-(240, 100 - Y), CãLINE (241, Y + 50)-(320, 100 - Y), CããLINE (1, Y + 100)-(80, 150 - Y), CãLINE (81, Y + 100)-(160, 150 - Y), CãLINE (161, Y + 100)-(240, 150 - Y), CãLINE (241, Y + 100)-(320, 150 - Y), CããLINE (1, Y + 150)-(80, 200 - Y), CãLINE (81, Y + 150)-(160, 200 - Y), CãLINE (161, Y + 150)-(240, 200 - Y), CãLINE (241, Y + 150)-(320, 200 - Y), CãNEXT YããIF INKEY$ = "" GOTO STãENDããECH1:ãIF E >= 1.1 THEN E = E - 1 ELSE E = E - .1ãIF E <= .2 THEN E = 1ãRETURNããECH2:ãE = E + 1ãRETURNããMartin Lindhe PIXEL SCROLLER m-35728@mailbox.swipnet.se 06-04-96 (00:00) QB, QBasic, PDS 42 1448 PXSCROLL.BASDECLARE SUB PixelScroll (Text$, Col%, NewY%)ãã' PXSCROLL.BAS, pixelscroller by Martin Lindhe, 96-06-04ã' e-mail: m-35728@mailbox.swipnet.seãã' This is a pixelscroller supporting mode 13h, if used on other screens,ã' it will need some modifications. Please use it for something lame!ã' The scroller will scroll *LONG* string, try it out!ãã' Syntax: PixelScroll TextToWrite$, Color, YPositionããSCREEN 13ãPixelScroll "Pixelscroller example scroll, this is written by Martin Lindhe, do i need to write something more, i think this will be enough. But remember: QuickBASIC rules!", 27, 90ããDEFINT A-ZãSUB PixelScroll (Text$, Col, NewY)ãã DIM Move(1277)ã DIM Temp(20)ãã Temp = 255 - Col ' This lines will take the xor'ed color choosenã PALETTE Temp, 0 ' and light it down. I am not good at comment myã COLOR Temp: PRINT Text$ ' work, so i hope you'll understand the principe.ã ã Tmp2 = 1ã FOR x = 0 TO LEN(Text$) * 8ã IF x > 319 * Tmp2 THEN Tmp = Tmp + 7: Tmp2 = Tmp2 + 1ã ã GET (x, 0 + Tmp)-(x, 7 + Tmp), Tempã PUT (319, NewY), Temp, PRESETãã GET (2, NewY)-(320, NewY + 7), Moveã PUT (1, NewY), Move, PSETã NEXT xãã FOR x = 1 TO 320ã GET (2, NewY)-(320, NewY + 7), Moveã PUT (1, NewY), Move, PSETã NEXTã SCREEN 0: SCREEN 13 ' Resets the PALETTE changes, not needed.ããEND SUBãMartin Lindhe FAKE PLASMA m-35728@mailbox.swipnet.se 06-08-96 (00:00) QB, QBasic, PDS 26 573 FAKEPLAS.BAS' Fake Plasma - Written by Martin Lindhe 96-06-08ã' contact me at: m-35728@mailbox.swipnet.seãã' Another cool effect in QB :-)ããDEFINT A-ZãSCREEN 13ããFOR a = 1 TO 63ã PALETTE a, aã PALETTE a + 63, 256 ^ 2 + 256 * aã PALETTE a + 126, 256 ^ 2 * aãNEXTããDOãFOR y = 70 TO 130ã FOR x = 130 TO 190ã a = POINT(x + 1, y)ã b = POINT(x - 1, y)ã c = POINT(x, y + 1)ã d = POINT(x, y - 1)ã col = (a + b + c + d) / 4 + RND * 2ã PSET (x, y), colã NEXTãNEXTãLOOPãMartin Lindhe SCALING ROUTINE m-35728@mailbox.swipnet.se 06-09-96 (12:44) QB, QBasic, PDS 39 1058 SCALE.BAS ' Scaling routine in quickbasicã' written in sleep by Martin Lindheãã' i wrote this one after i saw the DOOMFACE.BAS, included in a earlier issueã' of ABC. That routine was horrible, so i speeded up the code some thousandsã' procents...ãã' e-mail: m-35728@mailbox.swipnet.seããDEFINT A-ZãSCREEN 13ããDIM Picture(121)ããFOR a = 1 TO 121ã READ Picture(a)ãNEXTããFOR u = 1 TO 100ã a = 0ã FOR y = 1 TO 11 * u STEP uã FOR x = 1 TO 11 * u STEP uã a = a + 1ã LINE (x, y + u - 1)-(x + u, y), Picture(a), BFã NEXTã NEXTãNEXT uããDATA 00,00,00,00,00,00,00,00,00,00,00ãDATA 00,00,00,00,24,28,24,00,00,00,00ãDATA 00,00,00,24,28,22,28,24,00,00,00ãDATA 00,00,24,28,22,00,22,28,24,00,00ãDATA 00,24,28,22,00,00,00,22,28,24,00ãDATA 00,28,22,00,00,00,00,00,22,28,00ãDATA 00,24,28,22,00,00,00,22,28,24,00ãDATA 00,00,24,28,22,00,22,28,24,00,00ãDATA 00,00,00,24,28,22,28,24,00,00,00ãDATA 00,00,00,00,24,28,24,00,00,00,00ãDATA 00,00,00,00,00,00,00,00,00,00,00ãBob Ellis EXTENDED PB GIF VIEWER www.voicenet.com/~rellis/ 06-10-96 (00:00) PB 341 22445 GIF3S.BAS ' To extract GIF3S.ZIP, please load/run under PowerBASICã' Add DIM before SHARED to extract under QBããDEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"GIF3S.ZIP",4^6:Z&=16505:?STRING$(50,177);ãU"%up()%9%%%%-%e>RFCR,(CLx&7%%S)%%%1%%%%wj%lsfr%jxSgRfx&c:r9HW+I\Q:PG[0.)?D*n^-.;%>U*ãU"1F3[vgIq+$<\':Mi7>J5yE.8',CESfaY;d>rM#c4b&C1oX&\J/2)+gR7NK9TadSãU"DV)kcN++T+p$r1zn%gRXSM]Fd:oA(hZILCY(QgC+XpX'Cm#0O7$+8hc92aI\<%>ãU"0C)cqWi46otTgWr*.&Sd1&dkv-Am;[l\_L=SCvH79U)cwsyMB>uutsF8b^67^Z:ãU"W1QVX.Jlx:VhZrWZ,d71Baf:V#it/Gb:p.#XjpN#aqqãU"[GYq/k]^Rh.gH#Mf5>9urCE$5e(XHo#\7p%*up(%)9%%%%-%E-+BEa.KLcj#T%%ãU"Y'+%%-%%%%l%nkXS[gfxF2L:F#s^'Yp7cLx&T\s0t$/sm/rlA[]ZC/e7c?(PBpnãU"KhU$JpJSDy\yt8xOrVgL6Nt47YrmD%dQvOX4zm)XtG.#'E.O4%A)diXRrg4FM09ãU",T0asor='\n7+x2lPgFp^FX;j;WZ;VeVYQl+gEHr]TG:JQXA5A[.]7wus;n^SUF8=/'&\kh602<,f#l%noa3&KunD6;TD&ãU"'+l.>0u$^5BQv,^TM=Nj_v\dvYr[pT.7e+%9IrB$$T-?UVVZ]eOTw<0;pg9MBi)ãU"e(TWDJ'1*\ZF_,.tmvk5MNE#Is%(/ja,9f$E)J_OtEv8]lhX5e]w[=lI-6V,AGpãU"4rrd:j6jN8V[D:ZeD4tp^T73_)[AJm;&rBZ]o_UXT&]?:pO=9ug.KebsKh>#LFVãU"27pp4daDtG^Y4SXFDH2SMBU&N/j>.:z:IKp8eKkz-EãU"W:yDt8VE^HbHC_s:#pyGyGbFoBPv.,d\71SHa$i>b#_6ZVlbBFO/3vR0GvvL]DSpD^_v,MRnkn6R[2?urDYH;JiYãU"kn?S6G&SK;8*>j>kVH<(XE,.LdSf>4zCA,532HG?DãU":c_dUZm\DNh]4]m2Ev,;)I%kZG2Wt&Q?Z8PET5t,n,%.Tfp]]gs?:8iN[cdad(fãU"O(*/RX_h+4Ri48yym4s-)Y-ilDOXEeER;'pk[X2ZUiz_w,:c?&+/r3cB*[iOZx%ãU"oDc+8$.R4pt^tq$E5V74R2Z:0=U^i^]Y')U[/U]r-/OqJb;8dZ2r>VvZU860[)jãU"Y$iH\sq(HgJãU"p0NZ?Y\mDH[uDYcwC_SD60=tE9a6^.x;S]''V4xGo_wYD_yHCT'<-iIat2NXwQ+#W0o7yinxãU"JU>Px)PR0]8NM9-Z^=GEETA+*fGk2Hv.kFixlBn^y;=5AFBpvsT\PIVnKaX6L85ãU"HnDjgfg)TJU1zNR[?jHQC'uK%RP8rn+*jW.X4+uYq:bMNH<1fSI_BxJ6Yl\Qtc\ãU",RBm3uQj.6mo&3ANSa7I4L6o;1*^N6#dQ_9)Mx5Sw2f*CSGZniR&rMb-5arcbQIãU")qw*Eu[.dopA.gcMC%;S-$-hM:N&NJ;byPM8LK[q+p()F#c54*&u,\sne)n8j-&ãU"Lg*/X:E#+cZt><6o#7[RaQG0>sEB_*pL9X:?S=O*X/#lg#Ln$Kfq#N9tMPBq\DdãU"lKJitoZBeBr'>Gjj^aY>C=F9&g(Jh6=(+'H=e#]0jT0L:(hb'2ãU"6PrG8v0PcUhJcJV6r6bo9H^BkLWr6F(gxBYc2Vc\ãU"aK9hl(nemX]YBRM3_8j9x.=EZ7?,R.9o8q*F;_(dR42?s(qhJ4tPZ2dA2RqmEJ[ãU"W.H_c$C>tf<$v-6gt^8n_;a)#)Z^X^>FãU"fun7dW9gb81M7fRK&_^6fABeV;_2<+%6p9)aYGyhCl]/,<6J]LQ.0frQ<<[NBkxIQiM6ZUj0oSQ\w$:%:3)r3q%90ãU"rFm4WQ]/o.Kr?=:$dN)*8W1sX[)#=ZG.So%SI-t/.$YycSj*P;rutM;)YHFd'*qãU"7dHS,j0)kYDi_Mk8=\Dt4NY$B/wg-T4nU;i/2)q3K4LLN+#W8H]_V)(,(?AOãU"MCr%)9zi'T9LCnkdy(eXhCP:-=RC],-YãU";t>aB%c8]kQ1tC8(0u4'#I_]#WK+JE':jN/[0-JM/Rib\,nC.OOLlR738g]X<1FãU"]Hfk.4c/HB,oJ2.YVF'lMk\pRC>pU^^g3L=H\6ZQ%<%*.RL)>y3W^KYT6NGN-CMãU"JlRF?9hRM[:IlZE+(V*CIYr&;+C=8Ui6'Dt6jSqj&naP%Upzq8xmo-fr7[L:n%dãU"G1qQju4Xq#j9,y9SLf?B4d)d#SGnu=Qe*d[YVE5d3tN^$vd^#L\e2^'BI,4MnYBãU"b;(i&nf^b[Q8V?U=JGmAPl*p#]r6W'TSBK.S-d_F#CUTlN-t>_a*YPWe)z_C0reãU"gA.ENX[OW%=1Ir'/VxE(8I3f*Eb2'.-/FA9%^xGmhg6Tz&=SxOu6'F#)_ai;>D=L0nK4.^t7gNJ4[w#=J&Zs[JALbhrqGLNN\ãU"fJmRKUv\N^;%'&E+(wf2NQ?Q&?m6%h8.a,[H?2_^1*CG%$-IB'P)M&2Yo_B,fh8ãU".b?Y*,%>D,Qc^L,1V]uajKF4ctF4-VW5L*87+^97c*^ry?15s$).BNr>i&G,5'aãU"Z.3])A^K*3+/m:>xB)bD'(fAYppb=neAnDY+<<49=z1.GjM#su*eWN9,O3&Nkn/ãU"jM'Rd>/=;9<'QM%JJmHrrcz>H[mfGfK;Ko'1d\Yk%n3iwKlML3?v_rE3)n#;X+ZãU"Fc1LX2pGJK&#D8frg\QnwDp2&w,_CWWMB'X07ãU"L\=qt_aLwI6?:773[E;.89/t?,?U3-hy$^[K4f[U:*jUrCGFg7Z;J,:i)&%6go;ãU"h*'JI-Bg.M*.$M:B$[VFqoE07>fLn*c-jW/4ZNI,,)kjos/DqGqb$=QZ_cAo)N7ãU"kUa[ok>\xSX$H8oC_P>r%Z&Q)m/ãU"2Y/>]XARcK.JRTLmb7Its(:3AI)I8fxB[>Fekgflq%;qko;:Aw6Lfdoo,Rb4,bvãU"EA,x9YjNncFO,V+NVt%,3D%y^;0p6W%H[BR2uI#o(^4(h2H[MSTfaAs.zCh+O1IãU"D_ha^bL+3R+J_4m;5/hadH2)Rg*^.Vr=lc8B_7%Fg=ZlIsn%+eln)WcQ^Lf''w2ãU"?#Ve^.9ZB;mXDW'B;[??JGtk/z:E:NVAA+CRu1apm=sNdyr/=9MqHn:jik\(_SZãU"xVhCSzje+WoKN5SQDUAX3o?iD>/+X00Vuk^<;asMMo2jD-mirPN]XEyMa;SNG\3ãU"MYEs?]PB\D7IOj-L;D^(Z7'D;DHqAt^oK(kV5/KwvCz&&Eo*Vx?3HPJ+KD]aJvrãU"L<^r9EF-/h-+;W,mC0f[KYK[16PnAp;UN:CK-3V;eckhh_BS6=Dcs?jZH\a-UupãU";m2(NI9&h):8jMn[1Ms&mz];#u=;[QNH&&l/rB>%,bPqG,O:fqB=m(^*mqgxn*&ãU"b0'$4aRToC&v[o-n+/TXMHJ:P\,yoATehIULX*&Uw=vBL6tPtgHW,dWWes]F[(]ãU"hX%PES8t%q1f2In)$TQmLãU"K=j_hEs0>-5SsRL^8jPrBk,JUX:Q:uIT6[bf.2:zfe3U?\Ff#T.5P)F[w^K_)yPãU"MPMbu,HMbAkM[;Eu\Z9]88Kr-__lpsFoOor8crhB:AkUs(ONMTf8>tP'y%RVDP>pu;O(G?i9wg=BqLmio$ãU"5S7yG;/4-+boQNRJdG:,T)P.NrIvEYio$xE%O#iJt'V$_nq*CO>VLSoTXãU"Iu4-oD:\E/y[-cmmPn(x_pf)#p+f59h0JXM.B-g3UW+R+GTx;,4ZbBwtY+#wtE9ãU"H$Vb;Ewrw=W7<-yKRWE,Wn6$RlgR8t9qB)yX?]ayFTY7)N>hF-VQ)cquxlwrV\,ãU"pr-u*pa]lbcG,IC$0M;6;X?#4ADM>AX?uUC9(g'KXD8M4PrO>edO7<^cRo/-;wCãU")?0'pV*C90(%KVJ.;1od[2bd+uXuZBM^.+qx^.w(&Au>]v=^(P.6M3PcD/J]90KãU"817E;YgvI+4\dka13^3,NL(nJ*=.\UD^rr)f&O>p*F9SirXjagoKv=s4Y:bFPAtãU"Rq'\Do&W]Ra/B&SU?'U=+#[WkkJ1I1n%v%oio7EAj7qEaxYzC_=3dEFfTz4'ufnãU"t_kE2e/%b(UzQ:yXZnx942'u16\2X%8&8xzOn?q?Y-EYP&b0?02*>iZEuN8J4^MãU"j(Oj/#Eqx',CdGscP:Fl)53W3MPV^M^zl9obY[+B]K(jq\pmAlJM_ul+>mz&3CKãU"cf6f+YgIM1_r3XdCbTj8RA=.5Z#F-gi0X\2-WvCgc\u*])IC0?K1c3ah%.g;S$-WD$NW>ZW]0\QaPvWv[FVcMf,Q,Tp+:lne^F/fT.y=[ãU"xjc%i/ceu6^253.z76MBC9]7;V27&1;KxA2BPnULa>u7xb;.D<+yO<7?LC4I?D]ãU"$'$HcJiRu8PEsZ;/*CAo'#y;2#kJgA'&oX/p4XBj%3gfC0*h=ub8ppR:HUJyeq&ãU"X[GU-&Jel8wnG]1ãU"9meBC,K2\\qM>w)52;-b$,8K:Ou(=SK/9Nv2$VU7*),H--D0(1qp>$?J/GVAB('ãU"qbKf-ueDqSp5\K*7\#aY^38O9Xp>2ioV%]l_MpA4Clgp&\?pdh]i=7v=up^s4(RãU".QcR1FG[4vWoYL].Z.1>\62IDUui9D8o2j.PjHHgDOC;_RZ/,W)1b'WqY5#Jn=UãU"*0*<)?\Th\p0;Q#(=j,>Mbqkz-6&(%/G]Y;*1?)9Z1[blYXVcbVj8JCPãU"tI$YUN)OFkMLYtR;T;l[Xuvxc;(P^Kd&K>\YKRssdwTu+s/H5N2DT73:[':j_1nãU"h\3a'Id>Okl5ACheB,.lGCnL7^/2q'W/e8tTRJ]8cfTeH5=O#vb9b='Sr#3d#bXãU"QS=8>5FR-DgNY:;Cjw>=X$Pavpim>.2apBezkQ:k.wybltI%EE2$P$hXm7#NgwuãU"%K=IzlC;n>?k&LzKoD0xVmneqbRaGBgPxikY7;3CPeRLlkKhMhhN>YxGwe$5%b7ãU"U18XA4L6),'[qU'77%ikuxrF)XP#-*[&PQap3wSDTwvsMAC+#FivUbEGex]\y4nkDG]YãU"(tQd.1Fi3qZpospM^RhxwRyP$?gPEwrp-J'.g7ICckJ(Lwbx44th6vRWfRVC7d3ãU"_vvlgRxJ4b%0ya:3S:[_y)t$cI&\-2Cae_()QRAH7;4D0yY16-,g.-vD=IIcHv]ãU"'eK>jSBJXR?=3Xsl+cGgi.c=hS,\Do'E]Harsu42I^]_.NqZz3=T[.7ugw]ãU"oDh8]jTFVP$o%JipX)VQ8'^Vg+,<93f?2fiSxWStCx+z7SL6WAYb_,&2a*jNS'$ãU"-*y3nE(YF)*ez>:ZoxEFEV$%NBnE^1::TJlG*[*D,\evoa;4*;et_;OH-,]]IãU"%\E/BkvWul2+x'_FQakb-)0e5fd]QGoGQT#K#-TxtCJ?>\%vi;u?;TLn]RS)2?TãU"me(3Z/KvgfT4wg;2MW;m(?S*J\w;Ts3U8kPJM8SgRMlBo80KfRP//oD?Hb]s9$YãU"h\G*W;[Bkx0t#i3>LD0Q_bS$]Rx2tqJJ]EQeF?t<0^%AVzF&bNsk*YR^S0;J5ZkãU"/PxC*Dqk;UI9'Q-0Z=bBU=M-8s9u36;JCV$OxnwC'?sID'hFtZEWox?1&_K*%ltãU"k;P1o%Ho*>re&vRS#VK1=H#kutVse[3MhfHT.ILyq*Ag1=S8waKmPTfNTxED1E&ãU"1vnr,>ad8G%bvD-m_D.el?9p/+odEIY9qG(3aJ^Ocs)-+7[f%Cdrw*kfi*GH7(LãU"&]n,$jDD'[R=cbmKaq2QuO)EJ$%*C\'f=ãU"N4qDgN]2tiBy^Jn$-l0g3?mYK6?If96h2DI$9qttcHGEvZ$MWh.&??Lar6ET9sRãU"%<^'kY7#34Q)9epzlBB6h$czXPs2])18E+fZg/RmMq2-*eDTNt-.]K<'Fshc(7aãU"&5U\rwa>Mkv9;y-qãU"B0?riCM)+'?JPHt;fiEK2:J\eTn0YlV?9'ojC_c,%IfKnkH9D'02vc[2*cZ&k/uYlvT'5r.-swM8YAlPT\k;^o-slwLe3ãU"3k2J4/?D4RA%ee#b#GUz('JdBr[jEM;9aq$2+Jp/]hCVx2:iBbpA#_h*18YXMB'ãU"r.n$p^Odrkr6/.a3QB?rH)ALo?[2r*kh^6_ZeOt9DM^wfWNKXCN(mZãU":8J]7Dab2es#)Ch,MrdHU)J,7WM+Dv^ji'l]^QS*6b=c5e^VD?qCdww_72rst)0ãU"_va)+OR;GR7lUAnXi2,]2Oe\Dkl;'Gq(U49j2P>TuOB[2TA/R\zL_l*[ãU"J48EZcK\u4>8j)eF9OQSf+eM_A+y>tp16Cmmflqmf&qAHbaj+t/orqaVvs>f_b)ãU"b>S(eO0mG*'Z*Kl.%Qcm;e3ii)SSa,2r\DXYrc^Z#mtzH_-jybx>CKNiA$\7qadãU"P8i\;(Y5c258,1&0wV)PYkoujR9#.UvViSi_n-ãU"+EbG8W\.CxY4jlkQevt9v=+dH((gL]\l7%UãU"_A[C_g1Y\/2^Df3WxXZf)fitwceH>ãU"Td=QiYS&^ZuRRU,89TD$cdq+V84w\Ds$3>XR%vIqL($1ib[/+n5Y6=ZKQW\/9c9ãU"4\wor3VV7&j8G?XZ*Pbk[$mzugj>1=\d)T%Pz)g&gN6;CUx-&x4(5Wii5gv/>p$ãU"9jQ^'Bt53S[WJ[.T1#'djF+MqrS%Cw+8&C/S.=AB-kMJTH;N0snD.Q0Hg8sM?IIãU"8a_hmSU3.OU7W;(TgHsBj]nrn>aBSTI+V;sEnrwM#_['gaefqC:$c?(7z5S8tiBãU"6GeT,>p9FU2pJFt_2kU[&n4f*uN[?jN\Yi6]sAZsqNQ1]0WZQ4?Kmq#pklX+E_:ãU"?V(W\lfF+$c+).fCIl&*T[zqmUXa=E%:fJCtWvDCzkãU"og$f_F]$tj(Q>p%$jefPe%(flAKt5Dl?As=r0Gl38at_&3.OLiRpqe7u5PDTma]ãU"9kG8?N3U<:SF2oNCMN>W%alVh.7o.qfE0fLKS&u\+)Czk9Mz_D?V\eI.d9Vl\/MãU"l&Y&O;X&u^)PbfYJm3-meAT_HDu;ut0p3>vfWJk9X.&lo_mR-(V&AMnll6p1apAãU"NC6slI$(v8U29OX#GpKpdMG>=bc(LO$ryE:\=7j*Sh&JGDm5ZtA59%XK8ãU"64h:%pFUN:o)UP5ixiTVR,[sDsH++IcdQh-JG4Xr-,ZSi2L9UJLiNW[9=XPuD)7ãU"Fu.Mp_CRN?s^3s8ViHFo&5oU93Mr'CVK3du\GZY_HTb(Cfz/CXZqSt/k1/R^if2_WgZuwv,RLCFHA%Q8[.3N(AKm$O>,ãU"Qd3_o1&iuG5NYbDNgZ?AGgotDo-5kN3J18s#.=%:=Af'Rmbudc,\'j)Y+7M+(UtãU"W3kqDK,/NVEOzOmlp-oD(]9+3kH_Fj+3OU2EC2=5Y6&ExB&l]Tu9E?DW$hVb0DQãU"cOj3,qI'<76DEGHac>=1Vlt(nS$5_;e7E:-mv.#Wx5u7L.3L,2Wv+9IlP\./uKHãU"Ghs.Dqp?*1bI/0]4ys2]VWywo9AO+US4\QgC4Pe3)J'M'Lu.M2(5x'r0A:JXthOãU"GDRhaKNekzD0Gvr,X7md:CivIrR#k)4X?.^zJPqwekE.rhD]N9L6x+GR_g8p%cfãU"d'6jLd,mrj3gSH(8[M>tHS$_6a;mn6DRo9AwXC%:_R0-ZU?NqlrAK-w>CAEjCmaãU"22GQ>5d]Fe6HT?nSV*Nm]KVBv3QTB[,Lg8O]LFzqOh6K6$Gaip_YL3(ca._pBMjWMhmãU"[1w+I+JnDG:Z*m=)\Olg2/ShOwIVeo3,He'p>ubo3NxiBflNC$NUxãU"fI\$(]>[VE#s0PI-R;l#Lr(cU,nE4OWOvHwA^C?1,qF%I/-[E'ypmmqK3s7&7=]ãU"J,1+>HYYi)mJ9hwhO.t6e<*B[s;Z,AMna0XRjlãU"^9uVG_kqBBSu(Fe\0%1P-^SC#=P53,k:)pWtCKghdhJjTe7#=9;i\3bi54[)m,oãU"k=(Cc'^fh0)A#sZ3H#AlVqe++2LqQ06&l;V2rWTWgpr8\i,hv4g5\9lC6j-<55KJd%tojVIcE&p*/NNZT4rjtx7QUJo';Zz-0e,x%.-Zt/Qi2xCINãU"P,i#ooR+Syo/M&q8-o4L[#2rD-Gjmp^+nKW't&c'nwVT69%6NZeyBe+$qd:lDsWãU"Lie7Icf,T+;^fNYXx&=m[*W4In]=FkV%QpIl,NUZJdCUQo_[rguTN-&F%cR:c[pãU"#PTcYH*Q>,t?eFz]_uDc+>T^=39GT^\+NO;*4u#^f2&+GC\GNiz:AL>686ppC;glg7SHFVkRT-k_G'kjr.qpuB2,3E3SnwLg^8mJNyDK?4='wSRtJCIqtmzE'ãU"b%Ls'(jPXNrL7(KmR)pZZIENER]o-P5V5Nf*aw4M_cO:uDEp1)Dlp2cA=B-r?f(ãU"Oj/r6tyNkB\hrcxgJZ]oZH6>xfqJ_DM+4,D+_TiE*M,6f-a6sQ1X'BT;39RTP3CãU"DcJNVb>bZQ[%7_sX7c=MRLN>P7_qf]-e-[FQ[kaZmek'_clYe;Kfn\naK8+0mp9ãU"L9RCSV(B0K%)DV7p*h0L0kf\jNvl(b26lEaXTB_?]e9q(z>ePmd>UWL0)6)Z5%6ãU"TM(0J6NqQK8tFIb.+,mSO68IL0G)rXPb1j59j,Si.eij[B>'lw,EQaVu>wn\q)HãU"[RpR>xEU(7UnH:*61P:]YiO]#N4ShNq.Z6bh/hp:Q=\QfqQ0/wY#zQ1(2P5DIwH*LAfzzMZrxjKKiY)AF,_+.M%$gu.Dl?;ogGltsN]t$]oVãU"yQWly0ARP&5VS5:GI6qnR$jaNQjg^F.N4NR8nW+Kh^R8<]x(OsPdZWghK[5nB;IãU"jdaKUb9DJ^b90X8Ip(iZ%cSs+mPGi0=,$jM7E)GThP;1Z*jãU"[P%FhPsPT'Z\3aDmCO7x&<,Q0ycIhAR7*Jhq&C-h0-DãU"/%y+KF>ais(V\cxsgrdpXhHg6TG6KBaJ8FTeg^K,VMDJfãU"MH9hQN/4wZ%DX.nLBfgm+PIEOaQ-^5n>rc,ub1Yb805gtk'%mKJmths3?3hkMxCãU"GzE3HXtQ1<='omujgE<=krH4?X/=/\%m68/+#Jwz1^2TcHtbw'vkaOJhLKD,2PrãU"4'1Wi\'L1Ss4,V2x?tv'd[KS^O(=y;*c<1'h9I+eãU"G?X.vd^]RKmg,lBP'[Y8gcNK\4wdi4vNdãU"8+cPC#hZ.3mF+BP>[IP2dAZ--Oh=gfME#ZE]kLjI[c_Y_3ul:LGP7$Pi[5GWFj^ãU"vhU$kE\qFCQ.UE_/(As/zOfEpDE,r-IDfK1i'e2J=s0:foi?+1n<Qm]Cc3)1gvP:?,cqdi4'2,mnbJ(UbTTMd&.jQ98M/e9q-Zx8(ãU"KaRa2,5,.\0gr$\tpX\jfFnCoZmdZNYFzAuãEND SUBãSUB V2ãU"g&\5D;3,rX%xkfl_Kw4Z136CA='f>rO:Oap=UMsj^l&XeY[dwsHvn\wb7$nL=7mãU"CHbLKb>F/]&$[>NhmCF*:#nRK:6Vf]^kPG3CJo4QaFQ114NMfENf2=NAxq6I5MRãU"bo<\Uqm6rGvC]a[/s-m;h2ln/Pf0vuEG=8/.c03X7_1/2M)J%+$ijY09G>k1-K^ãU"*tM14iG+&&urjaPI]ebWEG%Gz:a0Ccd.Exe083ãU"H,EiM.fWF]43bh75:,DYXabne\Z_)y)poa$eOVNYTxk9)ZF/EpPg69,KwN(G:BSãU"K_e(naZCw.d5X_kZCNL&%/L?.q8*TrkWw[K;?6eCRLSvyjh>i4Wad:[ktF;C%P_ãU"oS2^t,',507Jd;2.xIrYKDt7qcJ*iDN2Q(D8o+IUA64/wUR.sIGPOun>odR-NDKãU"sSp\,MO0)SlGoiZ0jt$9h)vckG;FDSaPZuA*LnK/M7y,I+xF8*VHQfx25ãU">.p6JkBu3:y6J(3%HYZ4)xXA1>Rzp#FG2s3V#Q9+s7K65h/onfi[f3Hc;A0ãU"lY5H2::G#\NI#_RAO8NTS?,yBfhyU.R*BjjjEXFlK[%?e16u:Nmv20bUoV$h1X:ãU"JAFSSF.TS#UCS#Ve[_>B;N+h9>m)/6(HPPzfmYYvb\?5C4ke72.WW)cSNWhLg#(ãU"4#wNkuDoQGVF6?R+W>g06n(IH/6Nq,BFRfuKMF-+60wTdZ>3RydttLI4>6/8O]1ãU"sua]YfKx52=I'+([:\HgmI2$vX)T/n[ekXCNtd(5#Ojm-35q-34'TIDEu'KhenjãU"eHj9/CB>aE*wT#mGx]h7s#^pL,Bh9SvR.b1%;QmxvS;f;6ZXXe-slXpiFV5zN9sãU"[B2N-xMbA:%)ghOjOTTOED5X27SCWClKZU\=LidngNMd5o6l2^^ifãU"9oq#+_95T,b<)?.KGQh-V6?JrV3ia.B8HxSG^UãU"%jC'KL/-][^N,s].7Wqq26>FB]VchF^Pp+(]g/-^#MZ#pq\vHx_kcEp1$pSvQ,JãU";M])?&=*$p'grFMebL#9Ay%(>TaS:Jri=[Wpk:euB.ray)'j^CR5hhX/2%pc]gwãU"Ke'CwaQbzm.mzMw2fU&l%V0'NxF&W9p-[60%Hn##KWãU"je3XVtYO1aCUt:WhSHq0q&D#Pp0,SWW[c_CCj'-[fh=gGYC:8S+n5bdOJG_-YwAãU"cT[Z:QQkwWTQ#qmpWpyY:0(]>u9,;T68>85R)tP&zgjv.d2%ãU"N^(u+),57xd;.nzr,i2kx2(c&^?Nbll%qs\ddR1TG'hnH-lokj3SATHhlhmipkcãU"oT2g$N]*0n*D'JJ-;Orw*1D)Z;ZXcrmiSrgTptF55:DE[eE3pXL^qqE*,xaZiS1ãU"%w6I:h^%UhQ_0t#-Kh_Bsx4FS;=f=5FRZ;o\x3w+mTfhsmNFeJ:W1SAKWY,SG#HãU"V_b-BLbiDnRCdX54'rScu)0ZML9fI8vE.d=/ffTLf7)%YZ3S_\PuI4/YsG,W-n[ãU"3H1gNDIPbOgW%PP,C_9sEPyUO/9#Zm/o3BP:FlS>Sd7g,7ou%[F2i^%6qnK3C)#ãU"C8poxax+WR(MhmJN+Bt:(ow]>CSm5D3#Ih(+xTQ(YUvDG&Gv:0:F6=%t+ck:\F=ãU"4x%U&?og7J=?]b59x)BNh=#lvN'JuS.w^3x?.sNNnb4iSqiM_amnxX'gHilc(#(ãU"iPpa\k:-bTr3,)ZYqTBnV4gL1WNAC3KFR,%9OuH_1g0,rIU/M3d1,Q[scPFYWvqãU"Q/f=LU?9Ys2N5eTG2bK(?xVzk&=Uo*F02Nuf,=5HCWJuk*0zrV#,[55x&u4oCX1ãU"UP9plHcZBj:(qr/misZ6mTgl$hl1e*vOqP#ãU"Vef(;q/X4oGe9,q#d/FYS+K9&f45uSk%pLq6,e?b%U6AaDz)cgjC)L7UexE'd*xãU"/0vxQ),PfpOxpZF2vhRW)jO$kWILF5hlng^_m]xn:T:cQ)6EY=4(^Mo-P\Lm]v#ãU"FU^8t[J/CBz\u^it7%vL<]lOb*cb(j%$#\eXPNV-#9r0KlNSoji^nrgeiDBc>>^f0ãU"J)^q:;6LSwSK6'Dm*edfe*$gv5*t:rc:HlQ[q*IyFr*D](Pm&'f;7(Nc^B7z.e]o<_cGK_J;L**Y9.s*>J%/y8meb3Y9fs]Q'ãU"L_Qd?J=\$TEq;S/YfuQ>.Q7To&Nx)Y++-)rw-an%GYR_/-3jrhw3mD5igcO#_O6ãU"bAU9gN0Q=/jqFF/dOZU?z:#]uD%up()%9%%%7-%H*K#Ek65-O7.%%%:M%%%1%#%ãU"%x%%lfxz%gVSgRfx^);<>T]+7wCENx0E#]VK]#dP$8/lV>qispKqY^rR]F*oO*'ãU"_)qR[#IvJxc174piT>UM,z&YTZff.FgfO%]_?5]l3ihp94%>2]YORnju:eV)BPBãU"35EqG1NoD7a6qID541xY3N2&OAEj7.fkb:Y6^L;v\2DTGaãU"h71&&6L'$Y0ul?b&9s5JQB;CE+Z<$C]'$$2y494hx;(GLNKi^-R^Y;puKN4,HMtiePIX)ãU"eKszeCZ*n#nAQc+.1\QNP.'SPdsGn?d\W(0ãU"k>jJkNWH+QN?;16*%'Hg#PTPAD%C1xyVw)2ha\ZY0B=2Rr.3^2#mP-:j2Jir_a5ãU"2KII4OV6Yj#qJRHD,Ms-66OwDRcJ7dsD>=iT8Cqrg#&HUm&xu<:28*i+]H;0<'=ãU"_i,JsNn#^/$oc,rf,j;^8KWeexw'1[w:OV0eB<,o>doD)OU>qIj4X>'\PV*oD+ZãU"[U%u[ZlgAjy)1q_7t0ZY-4i?*kE+&aX%NV)>fC4mkr2BãU"c&c0]c:_g(N(3E71'gek&)g_\'TM/DrLktwTE&y,%QMl+$eNQQ0QvwY?8+P$2jAãU"4pU-nMMOuf\XXM-]n%-?0vrqTlY5bhfb6'xY)d+-24h$eLm6^,p9'=]L?WIL8XTãU"D0Mg(75M'Z-YaO9\Mmu.J0Mp)F)YX/uSTVr73G'F15lix3X'H$<3x0V\NS_t_eBãU"\auA:Yb^MLM>1cg,Dae%4\EMVEEMp3+0Q/IZQ:R0r1?eoxLl)tqJFF%iA2b3#.DãU"+IsttMoqgKYj:FqoH=vo&[V^pJ>'JJ3E&TbX;FU6VhE'^7*oTQSh+/lIOC$YB<3ãU"-ES'ZT+t;_Onat/if)l[a'OQ:pE+WN0$O_J;0U&y>5aaYOQ?:D#[pxãU"xKE;/#EFcWM>+'ri.k[f39fw(WnfXxvmPlhb7J.PgG0AUo/gj$e7Ockm=\0o[1XãU"E>(n)V,YP:lS5;V:l%$vioq,jg#b47T\S'+'tRZZ$anãU"ApG4s3)=6(5/Ss/j't>J&:HOL/#>r3p,j/g\yP^#s6rC2/4HKF-ANXqBx-XFca0ãU"We;u)#_yFV.IgI>YcfONm7yOAd__CM1QE70R9WF*?V$pEqbOuae,JMF#$$v8cn>ãU"/6mT3[PTltO32]lR/PUU6S=:BN,yOK2^z1osw&.j]\YAwFL=M$7KY2Wd#?E,=6/ãU"%T9GljyGwO6ZFYf-5DGRaN?G)'dMaIjoigMAn$^RNPx,VGEX0P3?45^+CuqN>]jãU"ohnuUn1M#n2qCBGrw,3/1FDp>$$*6:^T:0^IqAkjks-JSz+pH1g;r1\-K&S+GB2ãU"YeTBi^k80$CpL8)1\MV1pp#nr03-\_SiGyTq\5nPãU"59AwdR>.Ivt(J=TSo1j+e-^H[%^^1w/-UGCfd)2/SEf#mx$e2K-<(s>cW2T>I?dY=;rx\vg4FF?hi*.?116IWhox)h%Q:^&uq(GSjhk.VP+4&5JvNKn;SWãU"Ornw'[wP#AQEke+LAO2[31UqE<>ZH%R-+YAFN<>MgãU"ez:CrZb<5RQi1x:T^I:ofq57De?XgJ6TM5B4Ll:6TjLPWEJDd>^Q8^Qjj7;#bPdãU"/v*slw,HQ6'onhZGn'j,)fTe9GujWP95^hZD_7uJ-k(k$15E$23+9n?RNJrP)?\ãU"htq'QVrP[Wb>NA>W[IiaAdLJ&&73:uahM^iSTciH:'(8T#DD1UQI0;#2SG2Z*QBãU"v_#OJ1ES),zAW-.v>_A;$1&s>%KMaN>-Fn3qJ5YxB9gA9]PCwpz3WU;$t(ND?j*2]-SXBd/[yGzK]xãU"3woz_W3-1n?,B_[]U#JEghki_RPI#Kj#MbXog/O0nKs.=r2,t,pW<(EacfU[P=DãU"]M#N5Iz'CTo270B$vhHT[]by5U4;A'Qfk\2tC6COl_ZX.[i9C#64BT]5ãU"KsTIx)>rSoaELB'T4l=7+%%N'hU#HI,$+&mP0*aJYsmKH]hKp$0Ug0La(\SEGZJhJg4sY.MfZcKxno6ãU"h2VcNDzfEofrg^.DSU\yb6crzD''W(D*QRRU:Gn2,D9$,P_KSvv-=.\08dm*>j6Ie2ST/=Knivd(B%M$aGGv8ãU"MHsZ^DD:YVbkELomp]0N]P4/X0S[2K3gJDkg\9=Q.r2QfgcI.$;>_'8w.7j+LoFãU"KjWUso_=]MMHp)92T%DJ9Pj'+DD6?PY_Fa]v?*uT(6%S.C1q_hAE$(#R8lkGH:HãU">7<_dI0da3J7C4fG&>V6lu%*WjoMS-OsOO\0rtb^58?Zd9kl3z;Z\,L+K)LiRMOãU"\-t:ro(&Ts^d=rwx8r=rx_DZU$I#-,EmujvJy/i''l+jN$nM-O_nA*I;zt+Nq)XF5PEKHH680B_u;vSãU"S%DqM?_(_mnv\PbrN3MPo[xE#8:;.y0N1e'6ej/y:fi5M7qBMa$H6M6_>5nKVDlãU"qz7Ld#u77eb)XT&_m$bF4CR,C&Lx&%+%S)%%%1%%%ãU"%%%%%%&%E%%%%%%%%%w%jlsf%rjxS%gfxu%p&'9%%9%%%%-%E-+BEa.KLcj#T%%ãU"Y'+%%-%%%%%%%%%&%%E%%(%L&%%%lnk%XSgf%xup&%'9%9%%%%-a%H*#LEk6-*OãU"7.%%%:M%%%1%%%%%%%%%&%E[%%%a%U%%x&%lfx%zgVS%gfxu%p&'9%%9%%#%-%7ãU"G/?Ev?AH)k%(%%e%/%%1%%%%%%%%%&%%E%%(%I_%.%x%l.fy(u%VSgf%xup&%'9ãU"%9%%%%-m%o6CdESJd'\V&%+%Z&%%%1%%%%%%%%%&%E[%%%c%b%%F%wjfi%rjFS%ãU"Vxyu%p*+%%%%%*%%*%C%&%%j%d%%%%%ãEND SUBãV2ãCLOSE:IF S=71AND 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ãDouglas H. Lusher GRAPHICS PRINT REPLACEMENT FidoNet QUIK_BAS Echo 06-08-96 (06:02) QB, PDS 54 2157 GPRINT.BAS 'Hi. It was no surprise when you replied to my post ofã'the routine to print text in the graphics modes and indicatedã'that the VGA character set was at a different location on yourã'graphics card than on mine. Different manufacturers did theirã'BIOSes differently and I knew that. I had also known a longã'time ago that there was an interrupt that could be called toã'find the location of the active VGA character set. But believeã'it or not, it had never occured to me to put the two together.ã'Duh. I get absent-minded sometimes. And when I first came acrossã'the idea, only the CGA character set was used, and since thatã'is hard-coded into the BIOS, its segment and offset are fixedã'and the same for everybody and were written right into the code.ã'And it just didn't occur to me to do it any different untilã'I read your reply. Anyway, here's the same routine but withã'the interrupt called to get the location of the VGA characterã'set. Also, I modified the code to get the LineFormat bits.ã'This should execute faster. You will need to load QB with theã'/L switch and put the lineã REM $INCLUDE: 'QB.BI' ãã SUB GPrint (X%, Y%, Text$, Culler%)ã 'this routine allows printing text at any pixel locationã ' in the graphics modes without disturbing the backgroundã 'by Douglas H. Lusher, 06-08-1996ãã ' 8 x 8 char box, CGAã 'CharSegment% = &HFFA6: CharOffset% = &HEã 'CharWid% = 8: CharHgt% = 8ãã ' 8 x 14 char box, EGAã 'CharSegment% = &HC000: CharOffset% = &H4ED5ã 'CharWid% = 8: CharHgt% = 14ãã ' 8 x 16 char box, VGAã DIM Regs AS RegTypeXã Regs.AX = &H1130ã Regs.BX = &H600ã CALL InterruptX(&H10, Regs, Regs)ã CharSegment% = Regs.ES: CharOffset% = Regs.BPã CharWid% = 8: CharHgt% = 16ãã DEF SEG = CharSegment%ã XX% = X%ã FOR Char% = 1 TO LEN(Text$)ã Ptr% = CharHgt% * ASC(MID$(Text$, Char%, 1)) + CharOffset%ã FOR Ln% = 0 TO CharHgt% - 1ã BitPattern& = PEEK(Ptr% + Ln%) * 256&ã LineFormat% = (BitPattern& - 32768) XOR -32768ã LINE(XX%,Y%+Ln%)-STEP(CharWid%-1,0),Culler%,,LineFormat%ã NEXTã XX% = XX% + CharWid%ã NEXTã DEF SEGã END SUBãJohn Wantland 3D STARFIELD SIMULATION kwantlan@coffey.com 06-09-96 (20:50) QB, QBasic, PDS 46 888 3DSTARS.BAS REM starfieldãn = 50 'number of starsãDIM y(n)ãDIM x(n)ãDIM s(n)ãDIM c(n)ãDIM x1(n)ãDIM y1(n)ãDIM c1(n)ãDIM s1(n)ãRANDOMIZE TIMERãSCREEN 12: CLSãFOR i = 1 TO nãx(i) = INT(RND * 640 + 1)ãy(i) = INT(RND * 480 + 1)ãs(i) = INT(RND * 5 + 1)ãs1(i) = INT(RND * 5 + 1)ãx1(i) = INT(RND * 640 + 1)ãy1(i) = INT(RND * 480 + 1)ãIF s1(i) <= 3 THEN c1(i) = 8ãIF s1(i) = 4 THEN c1(i) = 7ãIF s1(i) = 5 THEN c1(i) = 15ãIF s(i) <= 3 THEN c(i) = 8ãIF s(i) = 4 THEN c(i) = 7ãIF s(i) = 5 THEN c(i) = 15ãNEXT iãDOãFOR i = 1 TO nãPSET (x(i), y(i)), 0ãPSET (x1(i), y1(i)), 0ãx(i) = x(i) - s(i)ãx1(i) = x1(i) - s1(i)ãIF x(i) <= 1 THEN GOSUB 2ãIF x1(i) >= 640 THEN GOSUB 3ãPSET (x(i), y(i)), c(i)ãPSET (x1(i), y1(i)), c1(i)ãa$ = INKEY$: IF a$ <> "" THEN ENDãNEXT iãLOOPã2 x(i) = 640ãy(i) = INT(RND * 480 + 1)ãRETURNã3 x1(i) = 1ãy1(i) = INT(RND * 480 + 1)ãRETURNããThe ABC Programmer REAL-TIME COLOUR-MIX-COPPER Convert from PASCAL Code 06-12-96 (10:56) QB, QBasic, PDS 68 1686 COPPRMIX.BAS'=====================================================================ã' Real-time color-mix-copperã' by Bas van Gaalen, Holland, PDã'ã' Converted to BASIC by William Yu (06-12-96)ã' Compile for best performace.ã'---------------------------------------------------------------------ããDEFINT A-ZãDECLARE SUB CreateTab ()ãDECLARE SUB MoveBars ()ãDECLARE SUB CopperBars ()ããCONST Size = 300ãCONST Steps = 25ãCONST Bars = 3ãCONST Pi = 3.14ããDIM SHARED Pal(0 TO 3 * Size - 1) AS INTEGERãDIM SHARED Stab(0 TO 255) AS INTEGERãDIM SHARED BarTab(0 TO Bars - 1) AS INTEGERãã FOR I = 0 TO Bars - 1: BarTab(I) = Steps * I: NEXT Iã CreateTabã DOã MoveBarsã CopperBarsã LOOP UNTIL INKEY$ <> ""ããENDããSUB CopperBarsã WAIT &H3DA, 8 ' Wait for vertical retraceã cc = 0ã FOR l = 0 TO Size - 1ã OUT &H3C8, 0ã OUT &H3C9, Pal(cc)ã OUT &H3C9, Pal(cc + 1)ã 'WAIT &H3DA, 1 ' Uncomment this to make bigger copper barsã ' Compile with this uncommentedã OUT &H3C9, Pal(cc + 2)ã cc = cc + 3ã NEXT lãEND SUBããSUB CreateTabã FOR I = 0 TO 255ã Stab(I) = INT(SIN(2 * Pi * I / 255) * 86) + 86ã NEXT IãEND SUBããSUB MoveBarsã FOR N = 0 TO Bars - 1ã FOR I = 0 TO 63ã 'Pal(N MOD 3 + 3 * Stab(BarTab(N)) + 3 * I) = Iã A = N MOD 3ã B = 3 * Stab(BarTab(N))ã Pal(A + B + (3 * I)) = Iã NEXT Iã FOR I = 0 TO 63ã 'Pal(N MOD 3 + 3 * Stab(BarTab(N)) + 3 * 64 + 3 * I) = 63 - Iã A = N MOD 3ã B = 3 * Stab(BarTab(N))ã Pal(A + B + (3 * 64) + (3 * I)) = 63 - Iã NEXT Iã BarTab(N) = 1 + BarTab(N) MOD 255ã NEXT NãEND SUBãJonathan Leger COMPRESSED BIG BSAVE/BLOAD leger@mail.dtx.net 06-04-96 (22:14) QB, QBasic, PDS 829 54689 COMPBBS.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"COMPBBS.ZIP",4^6:Z&=40787:?STRING$(50,177);ãU"%up()%9%%%I-%7c]wEE9<1ROUQdJOMãU"QR*3Cj,W'co=u(;K04t?,<6fwuXs=+s$btWhH8]8BFtcjl-c6rP$HACjh:KL4?,g:'ut)m-_*f4M\Iq10*=68hS[2tYitE#rãU"wk%FDB0xNFEMd>.hQrRmC5DFe_/jQG5Sn[pLu\ro-PDJxi;VGn/+I]yOa\blsX6ãU"OLzHWbdHYZdW%t9P/v=9&fF%*vIOglptorXp;SB.Sg9UCQ(lqE60&uxsXjLmK&GãU"Ydshkh&q6mE3tc;SIxC/F8#P^+qgFJYi*d[6U3b\Bgs5,)dl8])7jY>:uA%C^u]B%ãU"[uqgTcX#up.r7<7rVf>T>rwnxtro.7vrojxxZx;Xy%U/z=U3Un/7=+.7xD2FRs,8mU[.rHK*9#l=KK%J2?bWjG+)3\XNaR)aNp4rqL1tQmvNvkSwwv7(/u.(dmIU'Xb4HqnHrqu/V>v^Pm_YNãU"2NB(SVugvB::dhujEVVZlpHFVR.ronsTqw<)Y7_DR;D64a\7a2.9(Jo(4mmTãU"\T=Q$71p:4'YPe-GjYk0q.jmGT7%.dvD/uO[^C>QiNd3ZxAZEcoj6C0]lsX?SG0ãU"SyklT+[,baQ7\$tOs=UM9RDi_hGhpW^G[HU#JcZ-HiC,MdD#,b$tc_Wa2wiuKfZXksR/q5nq-bc1U2k5l6-A5kr96=t:.0'ãU"IWfd97q3$3\t9n2Gx/j_lxk:8if;<+k,^[GN,0IMdON\9NO\1d6r(wktpinBYK2S;]vJTmt$vZHeKãU"R*oWHI.n$U98XFd\.p*X7a?a\-/5coY08lJiTht-)OSKgsi%;r+NUYnTk:Ox,NBãU"pa*QDf$h_?i.X?WWLaGuOY0;GaC1Pw2KBs-+x[dm/iqua<::NHt)JYnigQNq5P?ãU",1W8-jd:$K&Z.vG\?':*4_;F#n/<49[*+_HcC-cpXJT3u1ZNhMoHg)Y4(-iEr^VãU":hmqH)R]m4qlK[\nsk\7]/\nCA^5&KixaiH4j8%AC]?&i:2*15J;b;tT1G-Vu13ãU"Iav?gC^cmQPMj;Ww?e]'ALL]RaQ;\KãU"V4,3b3kE0jI[PPW./tx%f,h3ST/Wt,*PHOuIc=ãU"*fUtI92a6AZe.fqz=295qO_4ME/0uCzcsA/$UGW9O[a.l0K*qyYu#;WWkgkãU"^U7.R\%G2#QHmB\d##\-a.A5m2R42kikB:4dZ=t*BKQj9ãU"A=\ADh[J_T\ipVN'KYyKtV6EGW&[x?gU+xIi>KH\0:30Q.,)e?9K/*4dvfKKXCMãU"4Tw^M>#,>r;%KKjGY8D^^&<:bPRLDVoj*%RWW,S5p2QG+MLkA0wPPmUZy#(jkY?ãU"#I7Ms,UVmW[hO^LFRJsq98s2Y25AxsYYh)tXRkulN3.3eR1quW(^pWAOb0Lf]$NãU"A[HA_[qa)e&WvKUamuEjW^]nui2ZshfiXrVyqLu\B1%V;EYoDtlf'SoMsLGZECLãU"jj2#=[ZJg>ZW\fbd7/aE#&t4s(\.iof4s'Xu-DT).f)jTaED3iLa2hPvC%\YãU"5RM?\W_F9&S'$#NBI.KEAL)8R^;-XPq+b0+1T(BP>57DD),[E'oEhCy3]H*n;',ãU"b#P+FP1^fRZFD2ar\[58?6*E#[t\QcE-E#m11LgaR9LSCãU"(y):o2O\\E(do<6o*(QYMhQ%m(qPQ)b&]r>57gq,G]sSGRMempITG9S5\=^Oj3KãU"M4Y(GL[R'H](RGnq8%a=:(uL[E[RE5&kYM_Nm9-,L)?SQ2eGNjZRbOZvR^<9Dk]73TRãU"Q'+GH7SG$O5L7t-60k*]ri5UMsA+oX=x.yEbn.H8ji]2Oh/BY^ãU"N%]%3fr1';rh/W%X;y1[uxQZakNREDptSn9o.KMSngqZW#qSFQ<0PA[9rWO4I&RãU"<+)CB,%iMa.='OT/6_.'Ka]r=A4ECwGBuG-#e\O%VAGOJzFYs)j(N'U<:e7G%8JãU"yC8RSi'oT*z/o5^_gr?h$:d//vX,Dq]&S:T%;NCBS7uRWp6$nKICBEPI[;e=)[<ãU"?/Oi6O=S9hC%A>.fZ;W4liphK6*%[MMlT\amS5EaK;/y9[IbZ2.1oEECE2y0)LkãU"zE/*7$SmpkB1RpD;eQEfXylYd*:VVn&I7oJO?h_/K].8hd1dr%#UaZ[$V[(tuh9ãU"aD-Y%??WBJ2;Rc(u*)CAmhlq8GK8?*taPg3C'DQRQ?ab\J88?h/IK;8f#r\q+B7ãU"WmIgC[uM:uS-=#sm9wT_Bt_rBKLi/_Q>&]Nk8H384>$2w$rs)UB0:FI%Vw'Js.EãU"__0Qkd+(7F7Lh<'1t3^eI^';LH?qEFN5Z(qef.vEJ,>j[=$wpneãU"qqH?H#M9#)%vPl-#KaE?H=+LZ-*%qncl)u.Ij\.Oa.B:-4n:[OCrgZ7m[%^.WerãU"?v>DnMx;'S0TUgg&e1?G:+r$T5?KsIzS1?Y);[_2cJj[GURO$B9*N&CUVJaW\skãU"T%'^q?7W\cgj2)7-;;:VlrwgD#2CX*YV;%ãU"*nYLnVULV.DF*0d#ZnH4'W368?_>Q]MjvT9/\m[>8lWRx'cBaaXuW1V1f:xNTjGãU"Ge9E&q/ID6XHqevm=,+6/CGx+C06&^ekZFmmt%;czdB+KmSe,poS'S]Tc/9Q>W)ãU"#0;mYz)YU3K1H(-\qOV/+#K,7uEn>*0?kOe\=A=FH5D__x/_%5hkK.,JXiRaU<+ãU"<'siv_FN7FRZK'beI)7S9N_hx9F/KF]h]%y-X;I&]agF4CtC44esBdho9$Gwx*HãU"W[\2mcegb'9M7D+4RJ[iQ')QH%mQiI^qZ^6+>xaB/#q24K*g#>+cSh$d9&)\+:6ãU"cJky\8I=1XGDkI*^cy:;/r:WG_,xgK;R/bQ,JHEz$*_dQ8OXS(1=T2ghM?F*Z5:.6$(F%UD^t>gãU"&72_WfElPUoW%[aR\CLkJZ$n\jk3G7JNB^KR(I/QoO:h0dlXe/#'Wa1pq;%+p*FãU"7QR7pQdKMOleZM)/MY,9G,*V8*0X/b1MQx1RB]:e)9)52NDEWdPKDqfMouqV#MgãU"3rAedN%l+c\i0^-QsTK8K'nwI6oSdDi#U:yZ-amI+t');d8f$mc_H[)ki./ziv[ãU"JM-TDVHV(#j63WNn[0:.f7QEF'djR#mo%s3CodhCqbvOOW17hj%YVmgdFps)XomãU">H9cX2L0e8f^/cch\)f(?GzJQ28k^ZJ-9Z&4)p5/i%0]2ãU")CMJQv[OU&TF1IsZE*nM:c%9rAm5Ia50h9IOD,;Cym8cH86X)5n$mNU;gV&yB53nKãU"PWuuYG7CVN,tVQ>+iN?m/&d.Qel:39M8H]\?QV3W8WdG3R57c676Y:0NnmvWI:)ãU"b<&6n17sHBtLE,\q#fw&N8x')(4e.7A.l9$&hK.]7J*-gA]VvSI>F[A56:mnYUuãU"?S52#m+RYj6J((qaq#rNqCgZYlF0T.3g\5*%6f,p\c%oLOMfCZo[QãU"3E>1onlHb%,>:/8p[mdZ?6ME%PiFng5'(bsCk3IiHz3fV;(LKj9]V[R2QHQadw%ãU"+w&TlPg9Q'+BE.w^<#oVYmACx*h0$7)kgH^FhgjX;jxVãU":5)%sv6<&8:r,QdM4NQMSe4V-FSGh]:X:;%.Douv-=krPuM[d'\/L(CIPdmUD2GãU"KjrGXEW:'aBcjWk/wR&\R.n/Wl1JgWFQu#oymj55C&v%AkyKS\io-RPHD'/PK;6ãU"o,+RQ>;P6W#.%FAu'gh7_m2i:h*JiGW19(F\_qP)G$zLQkriãU"T(v/)KAh2x2p,>H.50/^Y)1%kQ*]5IY,<<5CiQr0:4fs9[f>;lF0DOhNK/KdmOWãU"DsznFO>R4rq:mK>ãU"0188XQR<-pbj/LY_%*61&kg4WC'qRg/5;+%>uR2(nIKq%d[(cAM10PxO5Q)&%N$ãU"PFr1PFBhU/7$=U4i\iJcHi'TB23eYu\,\:%MH.*jC7m7.cqR&]SMLMCoWpg+Dq1ãU"qh#Dl1vGg>U_3'Egk845\6#g_Rr;q*.tE5f\f**69_Ei.H'Q8Z*YOS3D9Lk1kn<ãU"F('rEPVZQl#bFRcwQf4wEtQah(%XOSOãU".ggMk1&+$vlL**u'+M[(K5EOmIGDT)T$HiUi7S,/)ãU"eXh,MUs;qecI^$KWnOjfR#/DyH%QR^3Ted9,#6/0iKJ/;F)3MvjJxrn3,4;n9nRãU"+K)<:R02*z?9X$>Ig%9C.^Q>[w.GdQZYeekSX1qre5+qL=gh5?j?Rw6XF-9E1>pãU"86b0o]'oc'si4'NXHh1]v?E,A]M+lE-d:VLk[g(jN8zZ^(0Q:jO#A4E%U1q1-T.ãU"*>4pu%CN9Py4Si6\GG8ryBRG&kC1]AR9blS9b%*Yf.1PJlMmkdoV(<>faF.ua_nãU"Z\Pt5Oq*/aajtK*ucy[I*rRVzdmdAE6&IDJ$^i5m:b0%K-QPV4e_$3ObãU";hlL9%i8M1;Yi9ve$fN,EnEIaj[*^3,N:9*;Wa8n#vfF0(->rvCvT7;_3v]H(T]ãU"^KAp-*PFmeKrN(ayUihQDiPQqH&a7/_0'9SY9M4XPj=hPIok&?lMeA#8EC:3W:NãU"WRIT_PGuU\4uu]*xpFOG?MgyW88*-8%t6p#gDy[LGa4K+yTz:C6jed-oeGA]As.ãU"LDHzkSEoA?ek-R.MfSvJePjhAhDgyUE1e9/aaNc>V+JJ[P(>$EWfZU:sa.PR'-0ãU"Q[5do,udAsM8[WG[_V+)h-t5#fX(zt7p$O>H\'%N*aj_^P2G[Iw?S<$1,C6Tt[Bb'+-7urãU"%b[GDOUklm;AI6DbMKZuZ6N.E,R$9Ri8I+C=u6cgrM4.65X)9e]6VpQ4t*bX8vdãU"NpM4FvxiG:B[Modi=iDq6wLBs9N\\PGC,rI-oaaD[r>>oMIFJ<;qc,VeiOUHRE)ãU"(Ihf6jd'aa_1T7h-)yvmu0hVV+-&=73nv6P];6q.vO5)%ãU"TCR6\*0>gUJu/so'GO8jK66]qGOe.TYbsg:O9b:t>P<>M<3G342v?nsgMYRdH/^EW.mAt.*G#)O1lAT)hsu$ãU"Qiv_AlQb1S$NSuvW8G#\LXk(]^4_O3yuD44&Hn3R+J=aaCcKC7t.rd2wl/7N&SaãU"#=q8MPO/%#Vay[3*^%j.'R.'<4dVhokit_wLh9Fi3;,L&]V0YbaErB']Tu^?4)7ãU">mNZX6ZD78he3N#Xg?BY8O0&w*TuC2Lxm#>A;lirk+c^*c]>X5Hd?Z[-'RH\3\1ãU"kH1;jj/IJ[9HK)2w3sYE8HT/sjF+sgcSAZsX'T:qBKn49>jXNe=_RT9n>*HWA/B59ocB\]j(IlsãU"sktK%)Y2tVYD2;g5h^>?'Ev5Jr#e-wOh[vGxP?x_tTPfZR.j5QF(/AZ-jz:wZfEãU"b*%?GepE#CO\B'Ywy7Zq7ZW\0wrU-C#1KISD0$u*oFPmFiI]I1%u$S)Z;6r+XWBãU"ukj=0IM?8Z\1=h#6TFq([p7fLe'b]I?m'qM*7XOJt9>V+A.IGbOfKX;#li5?3c3ãU"9&15q,r'mW)[9]*6bNAIa-UIGm;#+<2:e?=y*s^*CfiRaPo(*qFo4LãU"D1-N?wihOcBsmq-8=I%_I68LsfC0W=JMh;FcZX,qgãU":F>Yiac044ZCE7?ygV)kUp%H)>\yE1slorcEP-QwãU"tFQP+\gcY)M?NHwWhZ,;F\'/0BfiiNs,$_oY'n+k,*)sc^/Rg0t>))1k3ãU"vn6MUx[>C'P)GONgqtaWV2MUKdvOALIbcnU7;abK.Sf+F%][NBRO9,IScy%oQd%ãU"7I(;i^u[spR2:2vql8\/J98OYXjnXx\*VCFB]dv\8:#B0ZW2L$=.dcwmBeR/47+ãU"45SW?,PãU"/R)eE\kiynl9KS%c'%IHrAh%8f7Jbh:b'D2^u[1J/a5s$sBd&6=%bQ>I2JzL]J$ãU"ot1mVR8)L01t9eM6:3t7g1uJ1eKY=:t$w9KP63Sgs$rgsp]o;9)t,Iv/ER3D#/UãU"?ly'bCGE,_9*VdP/xu^kI,n%kdnX]Ki.bG<_sxO7tXuYsCbzeV:aSW&%F)[IyYXãU"Ly6cxTSPDN87xT1JP2IY.'Azde%Po,K01LM>cpM,cJIZ])%Y1Lg>(KqmFF6=e-rãU"EwCm=GoCLD+cN:;.fj1CswOW<)gh[AN31hK;x*vROZU88-](qEz%Iu]S,Bhz\XuãU"DIWQjQIF:ejW6o3t+x.Br47N1Pr3Ymk)FSf+xKD8v?j^C8BP*.wJHvo-t&%BM#:ãU"R?#Juj4t&P17KO9]\JXLx_kV\>Z%2m^*TsBOR/lTxAt-Hr:v;eHXp:wdrB2-MliãU"NvOP'%zZax[]\HVHL'[:?CFp6H_7BPlKf1CMWiO)vUP8yp-q;jLD?*-'?Q$&\]tãU"'1ru+/HXMu%I3##*TY[pePx%9\qI>3nj'nO^x$rj-k%%qKPM:=n^k0tBJ4PhbiLãU"L[[Vz//=lfv*m$w/gMu'eB1Y&iZ$hFR+6L%1T,J+/L#(Kh1=-tIwnR;Y^>Q(^ãU",h=X6xF1s5\m(znb'I_7lb%2n(scRF\W>)3rHIt6]fTgLb3adD:hL5w/&_A01_oãU"vHX;a+()(opFpiR0C1eb8/[Vg.$ãU"t+yB]uqU;lCB_R>C_em&2BKrg>X?UiBogn]NX-O[Z21<8txZh_Ra(c%ap4(on4VãU"v9<>tw)zEF--L?i#h3ytIb]Ae_\;XJ7cJ?lQ&+1&WW,N+=swM_qE5]BQnJOth*MkN0GjKGUCkw?E<ãU"4$Od8q(*]X?$NK1=J;qe0Qh,,(quD,C%OTQXUT_;hdI6:ZQ15aV81w:/55_Uf9UãU"%)%rI8pO='4*#NmPzAMbtekVW$Gn/ZjOnK*0Vsgh)zcmQYETT\o65u^3ãU"]nlQh8/pW.Z\ZwukZ-^4XGDU70zHw75$qII,2;pO[QA5[L,8lkVZHem*fARdab)ãU"wh'$/UAd(h(NGlF+V3p>U.2a=(6#1IB-aQnS.6:sW]Z,8pcNb,+,0pBx#mU4v%/ãU"l_,Y,uwW8x*GTg&Izdhl;YNJyt'WIO+7_Nsr^6'.gudi7yY8+_HW;^43OML_y6VãU"b)5*eI36;icFsUU^28W.0We_K7n9t.s%j2Q\bbSC2QPI:,,MsF:AuvC4tqx(Ed*ãU"r-mQ67:c3MF8UAGiaGpBy(%''n976ESSW506Z*bSMk_PãU"#Yu0GT[%&5VGI+Km6da:Lb$,4\(zR/g>uF=SIb7n\+,6$Zamf^'4:pãU"i&$DnX&Zgbp*dE,TZ&Q?8M/5nJV;jt\D(c3\(mNBvdrG1HZkl?Hb&en&F%A[fj^ãU"2_oORW59umcrHI&/zE1ixq.e8.<#8]yYr[8?7-3T>eX'P*TKSFANEMktkQ2P>bmãU"Tw1dIio2eW5B,mojR,qa[_wrBCV^XrEjA=4*7[[jF6.6^4Gm$Lb-]4/(4(*G8[NãU"3V;xG[4bm-jZbwc+g5,Ln\k2'-P,vhrWx0+=bUS7YãU"V[Y6Gd0vBl-ZuF_g#b+mLYo6Ixjmt14&geU)#nImXPZmFPiFcFv[$G=0x=DB1dWãU"/G#+GAYQ$j<1tD%MLSaK%0SU\t4#l#?psr,[?(_c?;X[\tE5Z9J9=POYZãU"5e7ZH1o^9onL(D/:t]873OmIxYn9S,q%)$u[&'qO=_3UT\rUF>&j-6,&.AE\>k$ãU"9gGMR[_Gud^[:?JilnVW&i-00QXv?Qq*GxnB6BpIGoTPT';i9^*c[EPy+=UyzW7V*)/,2gug2DRl&WSwhD5ãU"u]LH/a>#8bSo?7PGtR,6p=b$kN<=lDtZ>G_FLRVZDS6_%+%^;8[$::6#4icsj:oãU"r5TEB&ni8oXEi%*-5Og%u>kV]5:SAloZC-hhKOeErxa',?q\\K>+3.Z$0FcLP'/ãU"-iA.Sq7=T%AjInF<+.-5D)Rlf7_8bQdrqgMxl>miOQV)p*?MãU"c&e6y]DGRSG9rD/m=R*l'2T.95Vu)KK<8Uw2l[G_ShC:8eOKO_*TH+;+7DKuPj6ãU"h)_-c]McV,b(sGDtb0N/W_Wj/fkTf2[*IF5ib][0B6DpRtUPm;9o,1daoRS+,bdãU"p5l?^0\cn-*?10T?e9%ANCRsHrYxIW,[^_qKas;.?WXY5=RwioGg9f6MH:C>P\>+M+$*F(*ãU"LEpV3:tjHoe-8vJpKAY>qEl$*\zXv;)68>by*x%mk9r*]Kep*3Jkj4ND+5)9kr:ãU"i3.#6A'#q*v7YaO]He\1Vfw-SAco8WVqiT,LI7ZqAH-sl%;$[I2gWeU60+Dc%nwãU"j<'b=Z'0mp:EjH\CL4_xAYok6&JFmvGBF=K\'43pGhs4g<+UMKXHjLt+>n*vYOXãU"3pqou.yA.oMa4bq;H&tPYxMpXGi6]+:RJ;+SpSrhC$LF1JãU"B<5%$U6P4O*%5m%wdJ%WvXO:,u5TUQ'Yb-MS'?13)xA_N/>LmHA4Lc?hh\Xvph9ãEND SUBãSUB V2ãU"n,R>Nrx9f,V#y&)e)[I>UlzIV\X06&3J_5M4v#vqA;8qn(ed7fkEev0oOp?A56hãU"-J%2u-3>3VCG?4+)NW_Yeyq]]cM'7Z.4C[N?4Rs$V4Q:B,-mMf=bd,37w+Zs)L%ãU"Z8hvagf6GpGtpGp_+mNada6N%D[BWUD\jK/;i==SP/DtlD)CgBM-m#NV1Gzk(nE6QYG2unIfM58YLV-kJh8?ICxb]H,Qb*\ãU"EW:$8;\ADzMHXa?[UU76eoXj&d_WSAkje:BG43R7%Sn2n4UTd6W.Q1C\IIsEs$hãU"UdI5Kx>\+UyZ'3by=*$W0'H'Arr8xk;_CWsSY9dFKLph[rbE-5.F5nXM]S8sx5Zb#;rgbGxiciSwdo'7ãU"Y.Z5lBHuLsf6>cuvyjMixEs]T)gX:*$aa?Q)k&X1<:lkl/>-KQ61&GEOIxedE9/ãU"ttYP\],QYSm1TmXO0Gr^IxeeI%s1OQeBTYrtwI47U,<)T0w7md-^#ewJM;*s9%$I'dw?>yt:CC=epx$ãU"ilCM5?kErNb-qWYld%4c*bUu=t>0sIyfy;%+4(M_>kK.1eFZ9WcdMs<#3<:oFf1ãU"Im#RfZ'uCZ3Np3e_'-]AY?.[Xl[TEp,Ble2-6$7gSW?Js$K,e[T0,z2Cu>^37NkãU"IW$1,]$_gi2rR,Cg6'#AURJQWlOSejPMdR81O9;[l/C,$=*^,MJ+K7Dw\vg7=F,ãU"Q,ZxM[>DiISCcL2P2mi.WbCAZDb9HIS%uu4Zs)2jFU,8^u%183a5Du/VUt1[RnWãU"G[#04-7L2V%(::cwjkWWeD7t-saTv_7dn2cURHMpY2pT9-,u8eqQcRhWUVqehv3c4cPãU"_b&l:,\S)NkUZ4F_[EGCSL&&BV81S4sgQoGWHA-=MIv2a3)74#O#,W455L,HPd)ãU"wPd/;T#Il#/^JJDJjOoSyo,eE_#a>8>R$.MvV^$:Ro:7VW3n*T-4Ghk;^\SOMI1_WYw2?\k7\no25VG)hD8CZS6YpQYcvAoIãU"WN4)glm_zXER(5.rpw_\F*R:I?aW+Wc1CW4uO+0M3Z[3:u&o,L:H9*\e>[-q_=1ãU"\[1X48jJ=BV0?U0D>HGvA\B'Rn%4SNdBo<8#$?0vjYTngmoIsk.R6$tDxahDG;V)YJqhWl+^V,8570YKBYL=BKAU4:65_I%m&tLGE'IeãU"7o[5v,'WCSAw^oPKG)39zpb_HKYPYaZãU"Xql_l6%58(aReWI\k-/e?YhjzeU6]&(G=7Rdq1RcE3D5hre_sHp1-qxQN;ãU"V%NMU6r>dH5(/O0zXlFYJR'iz(bnGul_tN2Gal44An#OjCU;akv;E%1QH.4*ãU"Tlm:(>DH)Jk5-aFL7IaTG+rRuSt*8]t[1w>;BãU"xl0I4KT+HpBuncZvnoto*)JDh&#*oV^ce<=[g%'5BX14[H20^tO#CO:WJ9?-kce(R=?5=N8KN8$^t4*J/#8mQ?X2eY%0eEw:gZFvKVsrv1WIT-ãU"U6qi^Q3:VUXn[fWnx25bOs\^rtpv\2dUp%cXFq-5A3_k7>6w.ãU"bAEx2L6lcI660mU?;L6]j#pgB#KG,$22mo[?W*BN#lt-:p'v3JD3f>;#j#kLum3ãU"&=PZcEf+kNqvS-QB/7lQ5=UmLqCxNerE3dLs;EplmIfRxdo)mALLQUe6TtW60JnãU";UpTY>asE9u4V-dU+L0).LjY?N0U$'ROpB^'[)4cHn3NV,b__>eco2fq^^di'poãU"\>U<%*DRdLo0?)NjtXS$]GGUENvGuct'5^C3#,RLg,bCIaãU"Lnw]d&Dl<.mui;QdRfjPCMi%5b-*eoa:;b[6=_2-%<+8P=[tbZ^w6\t^jvM]3lIzP*])_6Z-LF-ãU"GHY&vt7#9'lJXLaE*-_)/)ao.(>4h_pC5PGQq2##hE\QU8h5>7T'Bf#)T5_ST[XãU"NN9Q]W1oTzPJP6Tszf>(mNsn3CJG-(qU1?&:::.dZv)ZI]M?0j:xo#8P#*GpBi<ãU"W9Bh<2.%uZo4%:B&IM>Q=e6pKG%6\.,lx8*u9kB5GPtQ6g[yRLUg$,KYPcE-GUF#lv5Ve(''g6O6ãU"gJH3#E[sjHn'-)LAA>I(*_?='oHOTvXECmAh\&&=Qw[Q,6Pb=64pD\)txN6W>9-ãU"2bC3:C[O/*$d=z&BvZF[g9)dPwl^Hj?lWP,L0cujmHo)do#uDs(>Mia,t.?dwZ-ãU"+4z#G,3jl0-V^[*prPFN0eE-%y]yD[YO\>0qJltH3BffLv0%,*LPwHPBSnftvq6ãU"5($EJ03w[%Et_b6:bj[BZAEgKHSZu,-_l.&OVj'IUCNwfXb((i)H43Y_q'm)oc+?%[hoDãU"5Y*0J/6asnFH]wBik,TlyNDWq0rJP.Aa+[2k[v8\s-YãU"Z'T^[[5M#:U8he\^Q:l$pax#vhkBX^Yeer^ExW[YO2rt+jbr1Lo,S7);>(uk$W,(EoG2UT)t^_,/bFZRqãU"Jv$.t-4=pti1mI;HyNlGtMlyX\TlU*o.P'f:VKmCo(4;uJNxIo?DJKZDI(C\\J4ãU"=P$X28ICe*0axHKe&C&;54rM4Kk/iqRcv(+6Vy1p\$*.WtuO')m]/dq?iHz0j?\ãU"su;jae:o3Xh7CJl/Z8rnt0idcou:>^7KGnSiKROoT\)<-$/1R))B<5%F*=Q\C8IãU"dEJd%X5v(er;KG7fl$MeYw#rGb11qOFSD#-[7*g%KdP\%BjDd&q'^Ig]7actd>rZq88LME\99MQ\Pj=_K/ãU"$3:xh3m/tf)#/X;>ZFn8Cd8qpXiUYC0FJpGK_Wm6*6x=29%Rpc#Z3UkuKhrrXY;ãU"WSuTtT5-Vl^dp$G+3mLID[2_H<(6jxD<\m:9.V*i=S(L*tum8cd.Uuex)=?)QBDuXmãU"pKAohxdkzdHL_j7iLUJ'_AVM3aSjNHN3C?:x8qX'L1Kf0NgIKDYd5/0fABf/([(ãU"/lt<%jr?4^hL+(BQhYg70;g*QHMAWZEwiQs)&DXANxJ(,WnWlmo,^ZVW7lrp_#4ãU"m6Tj0DAq2#-cTXMvso9]ZhPtH\fgPdWrud8n8VPGnp1oX*_;IJ.)zB^Ra=Ud%de,)tHU]%l]pYj]eR3_nO%Qg,g:ãU"oe&hGKqdT,^bB9RU:tC4%kmb?OrF[s&Q2-.%.._E%IIIIOIaO_[Dem)#&&fV2SSãU"SIr5^gr\7..)Xjf+:\fr^;:>XDHQCpkJ2.F^Q6eV$Y[bXg0uX4h7Wt#gHLzzdS7ãU"[0OYRXcn\yiViGFsD8'*ãU"5/LoU+^t+ScXyR&i:BO:PF]s]dr]OR&\5B-[ODuSLX1o'HlJs&-1cBHPf^3%$N4ãU"pSW.rAWOnq(5#YAvHLPOãU"sjQd<(SGm9nQfE'kNq#[>T21hy?C?SeyONuvX\&Y^^>fEefwrLAA?P9IVo6mq][ãU"D3:5Uw0N=i&>RYf3sKBR%m4dJY:la-MKFHr(B+vjta,+xmu/Gq$tNx*EZf03N)JãU"R0XepLqegMZ)IQjp39crsI607l71LuYKM_],-[0\\rjo%aDjNQIl7M*k3n\zvJ<[cL2%>$DDãU"msWatD*>ptocf4*ei4j8ZBD[Lw4?e7si9^bis0^PgI6-P7m+W#l.oiie'b(9r=gãU"7_%fNX6uo.ijYd5)t=$Tzl.#yxIbU?ai1#osqY#dJY>cSoqAH7mRS9SY8?#I#.tãU"_$s=Dh--\1R[/RyH1)n%Faeh*MXdrcqC&\>C^^U_Kmr4Sk*=gET;ig/e]$Oq^q0ãU"zk9Ms7m)pa82O9c2VF2>pãU";'Le#f$B53x)c]dPDd\IV;]pru31&?$ks-8]o7/'OEG-6XJ9<8EaU)TpTQ7ãU"uFI.O&c-AhzI),4Yd%4wVybj<$ND0tfl:u)o9IV[0GkjRQhs$Jyd/PvrMtXyMyUJ,E49h:f\V(Eka*3;ZThOrDdc4e\+^ZKLt_N6)*jX+S76qdp(Kk#uFDET6M.;fIwSVcãU"/;mRY]xm[:]pRmtqG>Y9]I<]-UiT9wO7l#yph'JDbE=HDp,^abj$V9WRwe*8aGYãU"/ok(wPA+AScz#efh$*GYXt;TJ#dd\[f11^ov_kTJI2OV#CM'5f(zU]20?+(sD7IãU"S7*vq]b]x7H7-WoNqY3-jXiVJ4p[C^_'KpWLwBD0HgULgF0/Z1z8uNHVhk^fLrIãU"s08dsl*3o'uWfPV7HU2a6GZKOW\knQLSX+3XP')?w6ZU.r-qLbng[F6Gu9.RUKDNc($zãU"pk[dqdLoc>KImxwXg>>qxI^2u=OfAYãU"ns97qxgoK8Evn$;\UmuvfSjE[$&VCi;O(&a.=Q8TjZ(n)E[%\XjXmuV.%M[r/g$ãU"b9f3SgEMyVBA_li;E9YNL2m=M8m+[2_GnL3AS2f]Y4U]7/;Am*Sz:d2D5o[:wBZãU"qb41#r'v^qM6/.)<7yJt*&w2eGM\Ni*:,?:&jm)s/jR.%Np3'oãU"3&#hg]*v=SmRQSZYD/xUOIuJ:DgB##2Z$,M-DriI$o3#;lKl&FI](VRHmU=zEG$ãU"B^Bg1RT;nkA5pl;/.b9TqORI<+eZHxBp)=X9+0YãU"HUs^29LB>fl61eHz(1P$aCc/2Zi])/qg9jFMFRH^a:/;jE,T/E7W[E1eCMGS[UcãU"JJE*Q.WVuUK7O0N%c^aXb2'LbYYf;UrHNA'5%XiI%C\1=%H+kQ'w3%W*Nq0>[T+ãU"1\OkL9/9N:9sU:?FxJLt+e2oi_]Y]:tu\.(o8\_%B7S#,4]7a^6;VFcV;B2W/p?WZ7P?j*=f:1fi0stpw?6DW'ZGl-TJ;%,^BgACFn54dqH'b.i6]=MãU"6L_,j.cmSn;B2f&))ZrYPt'$5E;)O7Aio=g'r)*X.:j5[)G)vi>;R:Hw6[[4WweãU"G:R0Zi$br(=,y.W*2V>dablJ0r+%.2K&+0X4ZQNYbY4G>>n%3ãU"dr1INAG>t#[U9rBp>\J]Zl2'14*3;:_6eYKSeNmU?^CG'*cqJM7d^$T7E;;;q*/ãU"Iac#61i/Ix>IG/O(e[Dqhv&;:Qe2SizmX&\/o11AoKm%T]PdWKvVlARUv;7CãU"sDF5u+>dEE(BAE?+u)H%WACBle(sJRee\?'Cm#,5tp_CLU829G&l'Ujz11CLlT1U6L<ãU"4AmLsj_mpG/IPl^_cD6t0h(%[_9^O-tf1Is*73vGn_ssW/F=2+*)mu(/ERod*v)ãU"+HZOEIkW,Q(d'>7cuXUmPUnLqSOo_;#95ksa&\fFy3>8J]IR%f*Gjs#mL?Co(1sãU"AAd_Ic*K:[ttbQ]PO0%8XrY\AJKm?dt(j-\Khao_sO\Uw(Kkin0->?Mq%E>VmTeãU"FD=5yR'd+JiB<1&oTb+bRE%jJ('DX6*P1Gd].EDzpg+bH$xDBJQ)e8UbW4Hb<5OãU"N\\*'KtZ:$rWNx4^Yd*gjtINm^8%\WCnfCja4>IOM1<''h[[g)[>-+#5ld$I,$4ãU"Et(\_])947w;LQu[B$pm$Hr'+2+u...0N0FGGtGl_Fk*0=Vr7LtGel$FhlW6FhuãU"WvtpdDaGi?iZf>3N-OdgSgoãU"+.k+w3sTu^r3AWP47=Hkn_>?O25ycYND7rJJ.ppke(,h;l6dgG*fRu3BOdi%(6^ãU"m_phvbn0\XldW=+?5B+KEHiG:lC%8+i+8.vTZ#6&$f\WD]DQPlo%Q++G;(THUN,ãU"\t4GDZQsPkoRf?*nBTpQ#fuvA^6RaTi4:dY5Mcl5Qk6+M6#LC58uãU"k+Jd^p-oPNbtq7NCq8Y+7H[SEq[<4ZRYDM=Yk%MUoKR^FwgBq5Z%AFMn7oVX4+kãU"vcbHd(FjZjtP.5G#)AAG<'x&up%()9%%%%-%>j*=ED2cxz%c&%%%%(%%%/%%%(gãU"&kf%hjSuIfqTa:Fb;u(1SP6C6W8W%8mI7(6PiG1P$W-#Id%X%eE5P\$mI+AA*'XãU".iG$65fp7^X_%5GiVYqaCj_V=0uPdnt6v:/U#A3lrEJGammqKLbo-QãU"DRe;[nHUAW2+&%ldnI4oV'QhrpVb8*FcG-'[K3q#Y4ãU"I[*SrpXtVgMD:YwS#OYFSj9idwP(5tD.&vWeR*K9Z#di2v]Air=Qm^)_M,kq8>9ãU"Jay#RrRu.+zg'jtPQeI7udu)Sa/cTrhM?(8h6k1?a:fAE>%uqxTZE__u;=i8vz#ãU"8,([0&ubQ*NX.j\?#;#orhE4l?re>4%up()%9%%%d-%g*]=Et5/m*8k[%%a7%%%ãU"/%#%%g&%kfhj%SgghVKLR=k;TaNie&bvuB?7/3Htw<,G\2.1Fpy0\W4e[%0MFCpãU"5Wsl\Ith=d=6BF9mc0CZO/0lHG.G5f-Hiu?DxuDYNr(NuxXwltNuXxudxuXYNq#ãU"NXgnuzWxfhpy*tkdãU"8?iL>&fBXPj63rj;9^*KbE4nhD3WH?PJktpbUOP[-N_A9K6+o4r$fuzxx8tAcfHãU"WnBfgwAku;DxlzZw?w.0]S02FlkSQ,F:MwoCSk,kypi+>?5a$f/.KsItjm,o'EmãU"v=Prxj$'x:2UHG5S#^T..oJgiz$H;Lp(SsysrYãU"F2t<*nK2Vkb$ftvr4GpvL+,i5:$4iGoH/F8MPP55C[celuLS;35s;Gi^OlowI+lãU"a#gC]Bga<-Sxz22W?,n8bE17gtwk.6:;COIHP8(NkyCau_N&z3SZo+l$GEgJDGcãU"$^f;fmmoetS]:Nv0drdbZnSNPh(TdOh.S[82tl3YHmW5Y7>Kvpj?chU;2[dZPF\ãU"q,G(i,#THEWuQA+SpagWs?PWT4k2)bfqKPI>tpN\D#M75Q[7tmyjL[Ia.t_,Os\ãU"KaR2B]SXskiCjmIy5sAd;A$n^&$$Sa.Nw=Vv]2ewsZl%I#DLe$mZ#mO+YL=miT;KK#LPpl9lT$pnxOTdq%kOiGs^$QãU"bB.dfKks8nj$pq6EX1?yux88Q[/bhC:lal&+:4'R_zcC*pZv/CPt(je28d]cPls6o&Ti4he1iLBX)F3ZbLcPp*HB7_R,.3H3[l[WMxd(I0*O89BxcãU"_&nfQn*w[lf^;nISg$'0jzmohm4$8+F&G.PqfVXY6/Vxp.6oiF>?2m7PIwj-tqzãU"tI3LsKm8n3K0_ipMTY/Iy)/cj$;pxDzR;0a)P(eL8;^+d[>h$6ybe\SfJpnvGS[ãU"LrI8Wo(a^h%C%QJ.nvn^xOp)>qLa3B9MvK-8+A-3_osf$src:n)DGALIM9n5c7Bc%Ju-OEnzãU"uipE.*v+Kw8;f1CTCF-4yk=OiY8NheTUmY$8rO9L[BP->*gjd]x^DMA,r+JnxH%ãU"28RgDNEbt$2*)QaoQ$q'nbsn6fEHcQB2PY#Oye&]Ecti&i>7:ZdWm8<\fQ99rR\ãU";-jgzH2Pq)+]rSsh\qcZ6Cm8;j^IFaAd8-\*3Dt-X5w\Xj3CvA&;cy5aOIaou[jãU"u=V6Ob(eX'<2+BkX/RLuz.xkDC0l40-4nD[PwsdpF6Nh?-#o3LQd,/ãU"l:eq0f=3wdItxCMo5HpN%CHK755$bYmKUd:3XF:(PJx6pdiNw[e#N\-RX:/s^]<WOrS\-c5F^<1y.8GiiFONSyf/.\js;h,KkwkXlIPl)_t[l\l1PL4DãU"$]6&Jq_\hZ5&u0Uo^_-fU3s_*_]WGr7n;On[XxLTR[vl:3vFZonãU"x>'/Vh_jz?k7/?soT-UkbcZk6UqSI&AvBs(aVNa/Pc:F5LX6R.d^:va4:MpPEM9ãU">>v>F2$#XM_u_R)rj=.cZQu'+TDd+DdFfQKI>K5UãU":2:1y78>I4,1D^'4a&sCdbkH,1,1.mzDm16x2(I3ãU"#qhxeeW2?gI9?$DJeHZ3$f2x-3uxHABKkp;_FR,qrMV$F&14r-QtQH*l49u%>t_ãU"LPaCfxtoXUj=&fLi$vaeRU2KIX5+Yma&v7:>d=r2IWe$QOw%MKwu(b5PbgQ)8b7ãU"jhf*Hd>Z1AJ_(L=P51HW5fOP$$bT$,q?6cxq^=VmUI^jk]M'a\LRC(oc-:#UZb(ãU"[x&wyA6\6-\KOs\Kdba5t]tS_LLg'Z?e:^Iv64zB2eYbMW8>+d/GZJOf-u,NIn+ãU"e.c4X6vG7QF)IV=sT]LJ>_0#GUJ/-kyO.l;lhI/.?H13nXdGBA1O^2K*68f#Q'3ãU"V)5)D5MB3GoE;[O,^dS4:PO15=TnD[%&+=O;a1go>z7A67ãU"Or6'?JXde:Z/Ct[zHdVU$CaGfZk*brY78YsSC<\ubTT%ZQTQ&5*\tBe])yHl_b(ãU"Mh8,?)QvTl5r,Fw2_iW''uu2%.8MQA2q1>j)TOãU"Vz8)Hp6E(5p*rT\'O-.uDJoc?st88[ZMFtdbj#bs+sb#c?$Zok0W0I;V\A]*R7C*=pT3KNF$nWe1$cRC?Dx&BW4sr]vF\-eãU"t^kMhf9AP^]&j:5E.)w,aSAjtkMqt2]R*jxlXcC/XGKnãU"18-LQ&m\C[bj^q#oXM:#denYwL,\HXfFmLtrId\8u+R,4Uh>>HkEr$H\kn9V?DZãU"iIj/8gOr2QqN3HlG7tLKu&'93son:iO_rq%/qkmKy+l%$)O+ãU"6^PGT$r^+ueSm[fT?A6s]6Ho'S86DM'9k9>Q^W2G%4'PA6)LOphjVxDxTb4Y3JbãU"Q/7*EOL=T$A9seUGTmJN&)mywMpLfGiWg&AfV-6K,fE_d^Ys*v9qh]u%5y&a-btãU"mXm1OdpHlk4z_%n)N2A&+O\Hh6G>W^7K[$bkg%6cNQlE4qZB^>6K:wj8p9AjãU"EkI.bWc6WcBk,L/pHTv*S*L1,X>MF$6v'4F?p]9s;N>]>fo.;?rmhw9;5_8ãU"cvVW47%p5IQz3Qj4_)Uk2CZkvavLCOg>3]=6<*u=:k+g-(5?hlWMJachQkKXVVXãU"f9eHwkj%nEAUrTG5bcDE)Er;pLIMUlY)hRwD-.uC85B%<;SmZ&jn2g%7dLFR'G*ãU"[qFJRVLcq]4*m97R^DzkUqJc6:QlGXH;g>%z;Ht_B#/r-:J?j._NX$.X80#=zFWãU"t/g-qWnBbQg^6D^3EJ#XmG%xnuf?6K/nJ%X$n,0a4RGGR._Xudea'J97L\3BnajãU"q8t1Btc-YlH:m4s\*>vQ;&8eSxQ#Ma'--m[#>d)MOAVoRq6ciZsQlS(cBfL3I-'f;RãU"SQyRd:m$osJLzf.FhN3,dwy^>ey<5$aSdt.JLvLQV(V='gBhy_M9(rCQHIf8\4*ãU"L,VQ23$s1JK(O2+mObMXEdDHAqr6qd+C=C2#J0e>'I3E%mi]DbZwIy^GrR;1$^\ãU"GpJu*SmaZWN0LGFE)gv27Tq5nQb1X_R6p?8R-DKJK)fa55E_)/L,1=]qb]Zru[cãU"d4=8glevL^ET$4b3u2vSlD(+PsnqQ'x?$Rl$2%EYF;QPU^%)iCXBc?81^uLGQi=ãU"p%i95UoW%dQoJ;sXFH;*Fhpiah>wjVãU"kWhSehK8o_tjvO?xkhh2ebr2Rj4c)cLi*/1ãU"$kPNpyH-T0UC$[nHh&H[:s4bI#BGr[S5o&ocJO=xkc[-9Om^ywp/U1lrs_pB[AUbXHn3U2D/SHde,ãU"BIvx2IKWAl9r#;D(E9vUauFjg=&5lnf<#freh5'+I2dvC_?lqM,z(oa7wv8\XykãU"Bf=ZQ]>JLOoC;F%]&YLMOOtI^K*+WnIOM*U2_7%gE2c?NiXyCJB\3r0(L&Q9kNAãU"UOT5HPzDu=5+A5Vs^o\k0>,mlSEVD(6qiV$Y&ki3lCdEj5zZdepHSB1v2jJ2YhTãU"F#FXGBF7Y9&sT6.cAkON>t=elH\c(4=)5aAJ8?X$V-z44_zFhPQH>9,GWQzR8[4ãU"a2k'+D]sI]w%^s]ma2U?Jq2,Jvoi\LW6,E-X3qL+jJ^9zVd9cvO#_J9aSZQ45wBãU"Vu34Qn'c5oFS'A12>=vbq_ys*W9VT?=0=PLhbs)_JQ,*e'Am0$#j?<(kqfiJN3wãU"bn$<)-]97y?X3J[MN]4_dST;#?sf?P.V2RJ_9lB2H<5XYrM3+E\*?hOAYh4=7bdãU"hBK(7w$,mmakB$MD2RVa?]KZ*QD?tPu&n^DZTqs?J*%M)F4-M9+?n?%h?a3_+XFãU"_l((.BwBlEa4=KKK2lD]:F8WbTJD*5ki$1.T,O26[)3qEf3]-dQh:Gv#HJ>)dBiãU"N;IdjzIkdsv_7:ji')k'_,8gZi1VvZ>$c)/j*k4?'9GVk:MOjeFoD;O4$-aEbcFãU"#-5(]UVE#1-*6(jT\Q5#ij9TgI6>=e7s:.^B%M06-]%J3H.uj-tBp1XP9a5D2e4PaY3MMg8RSa'ãU"H.'(/rp8axPiXa4.M7XLmGRS\6373K_trSW;Tg=8d6TY=X.-kR3sU4ECohlp4DBãU"I%8,x-<+e2-CG+BTKG6+fh,R07N(o[rR-O+3;]Br>&aKslH;=-qV^&Jpl\WClQ;ãU"[5o(W.5be$VzBW>T*320wq%X2v[gBFr%76fok*o=_HOz;#]?FW#dlLahOgh)QbaãU"xk8iGfl[ni9&k*;[Q+'3%(M(z&fXPnU3;yCb9:Vjk;qPP1$tdYPD#lvjbqV,]j>ãU"%a71cm.^7knjQ^Kx,/E%t?E(8IK8t.iqN$4F36N$r2\c>e1c22lN6_%faU466k,ãU"^NJO>dPWbY95XGV&:OC&m'4+49:\Zg%B[86C\KDW9'l5\q3(G0kz?K=CmP8IFTNãU"6'uH'ns>Ne5ha+Z7Pr2&3%RV0)mp;ZfQKDX*lNT<%'GJ$QL-?FHBN&&5z1o31-,ãU"X2WPDxW2kYJMK26p^e&gI7mko8l.<_FnQ='#Fa&rDqU/IU'.&Ejsb%D6(5_ãU"__WkV5.d][a_i,%a/J=ID>/QFDyLb_B-)cdLc0oL'aLjsHPWp<1A1m]k,tc,#&#,?js,:kONIKC^5g^^2vOL^\2$\ãU"l=tpk#]*tP%(_(D\%4Cod-7Unr.$cIZ'd:3OzX3P-q.4jKqWhE+*mJ6;^slEbnB&rhPl/O^Y?7Fj(+jEywuYãU"d6DFY,'MjC\CS;z[Gu?N.m>]^GwX%RdOt6AT?<#'I\/o:IgR15%ãU"K>lZk,C?E(N.z]=_:s]H'OtvYqAq8hf1W2$0N_>$C_dAd3K=TzT,Tm-+lhUA?2nãU"_9=LBA6X:VfãU"sCXs/gby#6(I6/jT&7O,mvj.cV]Pluj>%-r='O*+2'vX$,0AS#:#bnZ3J7SQp6EãU"/b(]ebYiJ5Gn8[J:ip*)Aq-EN5%v_$\GlZI00iMBKV(=eN4q%\XoJK5ãU"Cl\tw=EEcBU$f5f_]l^ND1ua'Ti>L,^;^w;2Ugk>KRK,b'C+baqHDbA6:F9abUgãU"KQs92E3boWPh]*Q(ohO(+7R*l(3*#Src\,qr]uL;nq,P[7,$3U\^H=$([peQãU"8o-dg/jdFSaVw)0R^8wU*CA$'[fc7]32w#-LdT;Ev7v9]$=tg8i_8'*]1J;K%ymãU"kS2v,%3d234GW>eI8-mt,tQZ3/G.4*$E]Jr[%AnãU"ihlgke9;(W6$24,FgJJ?Z'>lmqvqcY?T>XfqLt?l%nYT.hNQ+^[8:_,N\I4/)$TãU"bx9?>&kfRaX[Y&$>vYT=,H*u'MJLw>guA3Vg,f5pQR,CU2yW:uM-M<>N/ZD6\:VãU"xd663-NV-]tA,4^yST:c'=_B5Sr3V3na&oNObtDnvx^cX9L(#iDjQ_i4StefQuHsA)GI2<ãU"5dcJZW'<(V2[H8*vNWX$QJEQHUEnbPv+MevLzc3iDvi2H$WtSGeWL;r-j1XbpL7ãU"hO+x8Z#(u(r5UlaGhBz$qp1Nrc5,onHGil))%q8lMZaSET>&SKK0c[7Fc%Rp'HsãU"=DgS%(bX=B:C1MEja],wt5AECYG&W=MJ\(QhviA[_M]xcX).zyDz^pS09^nw0Y\ãU"Ooxv#mG6ZVGzk$qIK^.'C)$SUMOEJ)7\kPqih+Z3Jw518\b.6#B>,t]Kuh?U^klãU"Wt]fUKoYV,mH#bbj.wc'yioW%mc&,DKQ]fTI/IY3+bn,wxZJ\2*HHpvL=UHk;URãU"]bHO:q_tSIHjooalr,3aU+O%6iy_v'C]jrTC[uP7[:,+[*BP6ãU"Tty'lDL.K^/A]p5hCiXvTow^Unn;hYg>5B_.ah>.+I1);DGojb=Jc4^[4h#pGt+$-1CãU"e=O-ho]]=b?$OBNLK.DIx?pF8\l^=fwI2Q_F<_*hepa9HrP[wUoO8GUA5s\O+&oãU"0$3BVq:w)UF;P3NiBsT?>&3BAIVt['[q$8KZks]YeI[;ANJEjq77XK#)M2VNP\UãU"\vC(,#/M?SSKm1$t'DlAN;;z0bw58_n\(rp^r\/iRSx0r5#<1Tc%EiD/i/s)Gd4ãU"b<8;e(DnA&aBL[4o#1-ulqD6k\6?ZL[Zh=bYYi6E*pc*Zva%uAuBH^ICEOZ.pZ2ãU",K,F3k:BSWCdkhf>[UZ,YV<8\\u_TfVPLsTt>5g68K6KW7wRsEQoIl#(>m0sC3LãU"R]t96(t4D/BGXmWl__0nX^E7n(I$F7(VPB5zy39Ea,k#YPO4OT/f[lCy=OF=htM>?o.c1(X5$aMQ=*;PW(N8ASuIp+t2^f.ãU"yULOFU&alP)=u\Eq=(WKsd>3=(Gg^4dXe&k*C,fH%0.')Qb'eT]vc/ggJP?(7+fãU"RnhO9&#:YkgN-L_h\pWs6l#KgWD:4B6Kv1TATD3r#=+IOJ#m8VK1i=a'hsT5kEXãU"8',&z_ZpLcPQg;f[V-Xo(?7Md__>7h+9AuK-5djYF)/zyXKCHI.NrF0n0i^GC8wãU"zG2+xuF^P)f>Z9PF/Pepdg6pz8ft8,Y$x.az?,5)->OãU"in-6YpVnfdk[5Sa]9MPLK$OAp/A7IAFK3H#?JkYsYSqJGUKFdxrbLYJ.Ohsa'8mãU"h7#D$4v3(E3kSVugdalSs(eRijwR3dk,qLmF#t?'(9O[h-wDuvml3g;Wm463TsKãU"FaM&;IdwnaabOrXQ]Y22z,8,(kJ]3\idKH_jX#8(wMerMdPMãU"WeB=t9ABn;BB6-pd?>XkY5]4A58VWL/dW,+*FhAS-4S]Tj5(f^qXf6ee+HX)DqXãU"\F3/7U:9m_q:e+T5Bw5aZwAU-k>c2d:6.N<(RJDIa,f:2e:Pa%yhSY'p-K8ZB3pãU"y;:n#Y]O<7(?*pqjr#J6DtkS+l\WX4VFSBI2WdjXE4)f,g4Af0Jh(1WUd62)=-rãU">?;;3x=gJC+dL+;/$fjVGJ+9$i//h=wEUf=3cX^82PLg)j>K48PLn\]-6hszmmRãU"XHg$eU,6Np5rdUGb,e/l^N=s&f$C4pA<77CGo7woF.0DWv>3D1CGãU"R&q_s'^<36vE;I2v1rtCjMe=+c.0\lSEQN$<(h.Ke\I.',oCPF^_r+#W7_k,u'2ãU"0H7gRU8-1Nq'dtqOcn6fUBmkp(cgau*Vkzn8rkK+b/_M8WJK4A=ugãU"wOT>Ct=7&r'qQp$kE&i[?r;:USUTt3SrSZ$$e]b6ON2(,12n3ZB6.JMAtl(5u9AãU"YDM1Pvp\#)LypXRBcqA($l0OrT%RdY.xglD5j#/5X'&WTq^[Skh2Cp?q&IUH#.uãU"Pzqc\OXCZ3/kfMt5>lb\*Ma\yp9=e24C1RL_Sdh%gBLa6]r[aM)8T$rr5[fdQSsãU"$If$kTGZEO>t]40BDfELj/Q9O^3%$N]h_+pJ-db.(A6JeTp.lFU*7bn'L3hep'WãU"$dPLXiDm8CjzwK>RXj1Fq*?Ei59F3'D'a$[\OYpg_>83uKr:gqV2;?&R]qn2;G4&4lmCZ$w%D3$tpTE.SWDpe24(J.'$D^TPx0P7(4Py)r=^xxHDJ%L26tXN4SB/$uCãU"5rWQtAf?d%PE1HNp/Jrp50]Wjk(KZu,eZJ))xT:B6f#wBiZB^hhzDr2\K-k,pz(ãU"'A[e$L%*GE0C5#7?hKHJnk=#BI=Bgev=7AJkon*)3fchcV&Anp*%(vK<'1WrKP/ãU",_O=KTkkWI^ZCHhD:P74rqq/5LJ)eWwIP;gqy7%#0IoS3RR;?Cj=JZl=)Z]Y5L+ãU"FWAQ?6S[dV='),rbL-9TWIT9F9$Tu\oW[laBZiYx>3T%u,9395F_1OeaqrlUkBr9R\dE%iUH6Q3(-(kLQ3MãU"[X_;x_\M3TZHl+^92D1pE-EIJ-+E0YMAjxEFCEBn=,[bxU&pTVZqF&:sH&URiELVãU"kM-kH)t#hv_GVRv9##>Ym/Vawl35g,Egk$OU.+j=6/RXyO-h:]7,OX+l=U%t1oWãU"f4fU6RP0/=OHBZ9[gS3f+4e\8uh_[i#G%TRK;a&+xsYeZbDc?Itg#ãU"1K-P:]c3dg4E?KDZ*SRwKH72M^-Md::$7o6Z8*Xw_nKZMQCuQnTpj$cba$M+FQfSd$HlTr7Gk)Q*C:a?oãU"_[M$p6Jazh:':3Yjk;Q0,qNxw8<2u$C(TsFT=DrIIrbyQ4m.i[19Bb_qX9T+w&xãU"E_O2.6z13L&5wuvGaKMymQ6S5y>J;6yHc&:a+qLo:>XpzkZu;.6HmkFfBga<\hlãU"dR%2#l(T&c03v,JBp+;A00svsQnMEk>2.8Jo6S^NGsTOjJ.Lz)1vJ8(e9l,a>HYãU"\9lHvLpf>?\Z5ccPCQUvjJ/.?uj5ETExuXQS$6TVatq&$nB<0[rsKRcrokDq3$LãU"Q2DoO[vWQkimmT:YJXe2oL&x309Y$>9(D.4c7D/Tl0K5a9wcx^^oWJ3$Z_z()j\ãU"/8LHXU>fi+xY>TVGgz?W5?B9%X%/K.:h1OgP>p-HTO8BvIn8raJw6eU=LgrOw5mãU"XCsPljw:4s?IHp[u?u.\B&_^fVNkj>GI$nN=0NZdtm3_c_W6rr)y&bA>etse/ãU"gs2P&gs&Lj49WZ#sui'h;Y2BEgd2mWbb%X8Oi,)2DJ2ee0MZ)jL/vmY$Z5a(t:iãU"M)\EuQFKx5OD%b.7GungHN+:%*N;T0L_Yvf]rCit#[.pz(:IYweJtYgFdl8&rsFãU"e9\-\4#1XnDmãU"qW;q/,q7]rKYXXCCwx)Fnbq8u4/ZkglpUZD4Ts,Pt)yctdld[75$vfaAof0tkNPãU"Es_m:BtHcOXpd9Pp'NP%igSHRb6Hy%j[K[7Bowd2nT^R7o'hXS+=tQ7JF=U]p->ãU"t1YGk3nlf0.aaBHcT<_$VElvB7GAwAQwhkP%pEH%P43-eMds?.DdO^,UC0QIM,fãU"VsUhmSh8AOfGMQnslhN^d0s=B$GuT,l1&[]*;9SnDWeZiB7jVXmJ[XWi#SA'f4lãU";#)&YYg8Iz+>4U6k$cl_i>0bp(k;RUYq'ck)jN_rP2Pv-0Qhnlp?o<,rMRL^kZHãU"j'F6HCkL2zFl+8=(3wK7YEhGYYGUSL$4EnE-6HU]5lW0PrQXLlmTN6T=9ãU"'fmb1ho]i_ZBQ_5jF4$.*MO_;ICb(Ym[.,]/nL$B.[=8jaPb0_VS,3HCB?Pbs?^ãU"FNX=VC_Lis:X7T5tffna.ca=bl=Lu>YAv&HPjR?spaM?x\)V;II?HIWp[X3xgJMZ0wuSnGR4Vk<:kUãU"brfWN6FIas_J/X/1QCWn0HU3Ym83qHJhnCr=X$7pB'W64dl=SDLrriu(D:e_S=_*g1kDa]7JG8JãU"KChEl?Jf*p$URX]:$$s*ga%oQSp;J#7'MXmgn/V*N*:]^cqt&,.vx4pg^Jkq^m*ãU"MRNq/Z(TkaTZV8]7c>/lACmjrhOimUV?VdMUOPMJjN\jJdp26-nqPD3[gupBsgGãU"1Aa[2sOTtEcb/)Lmq?>5\U;6]F2FK/nnmK*$yetK7d%,nkeO/X=tC0:qW_2jL17ãU"qrfRt<*MI>.,Ri+K-U)sCwIay4zTrshjmKo+Q[qLSr^pBF29BQ0H;#tAqE2R)*5ni,Jgk8HA4Q51_PJpXkcj'l&3*JS[DCEPMSgq;Bi(y:5bqOQp0,s5f,&ãU"j1lTXd*^Q<%pq>UNG?3aO3>O,l:kmVne;PK/+Gi-OFp0yPo4;ãU"ix0rx:'F,lCpsH6ZgX?ZLt3Kj3:nqRL\Vv&Q5=>Gt448R6uCY0dQ+tLrbs#RrRnãU"2lg)tnMoVLs>2F1zCjaEe#xi>8dk0l&BqhRE8a5k6EIrVDOXz;k.ZLC3'KedIO:ãU"IijqA]=8,eRKTv66b$XTLLfM5/0oR1S3<2kbYm]qxS+tTP,RfY*TUqTUur'0tGXãU"4'sQ7w[L%g[H7#*+M.Lt_)=:w0#Fs$f-/7^VHW)9U2o.btyTAnEF5gJIn$P_sC1ak0xW$G\cgfgx74MãU"F'L\SxhE-G^lB[fwNEdg9-rQQ:Lu=MLa4i8mLL',*0I5=F#HLl,KtPEkC3XBmW[ãU"\Q01[_&pe7[J-NYsj0M+=hDqQWVli(Jx/kLsDAX:\D6;V5^f],ãU"R]EL^J^xJnW2]]JoFs,JX8vWei50n2*a)/NW96P\AnJQlJeh>#gV^gVCM?*GZaqãU"s76FlGY2hzcW1j_Nm_/-nk643YC0g<$eg-q0[r/VQ,p$?Ddu/%ZSm[EM=p\,X_,7exjL,iN-nVDq8/0ig$AkqXqNãU")XnW'Ah[ãU"QVshew7lSXCMrUnkL=uCB$PPd7?1lY'TS)O6Fw,IUBo%hKahM0u%Y&/Z<.I/RV?X.0>[D'>K[bKT#;SãU"Whl/lPVxkKce_TgNlqTSbe-ZoLrQsklrT[&UpB0]EO8aKu_GqR>qJpJO=VcRe;;ãU"pI=GaWhle(w6k^S$+q[gLs_a\(D^5JLq:&=MrVUfN0tA]nSMIECACM=V[taIf0($vb]H/nrfKLL.fwnoPSN3sp)S1W.UrBVYmCe9ãU"$_k0&p2GIYIp9lwP[BK*lA9^7iv0gFEv:WsTT3_4(\.+.'RRcl2Txeb<$%iit*]ãU"]JAaH.lj8%0MdC*&URR34T;q*\lW/]C5D63D\D5XsYkD^8%Hb3hJsv*f8r%Qh5WSe_lcPYpc-TPGG-hESd?mEOk?Mcb4Utl=p.ãU"\4xai[A:DJGMS+CzqWg(;P-#0^e>'n1IpFAI*dgQ0%4\sY0>dcIn1?l94F^:CAEãU"A;?(Lhc:Qa#[Xf$vfQ4tB-%e=b(Wf2XY+Pr6E$k%p/Qj2okbP)ZR\ãU",(1x5o4uR#>$6GN-xHbXmi)IH<6i*t;6IMk%3yGSGeXãU"$uOG8#Z6j-XjWZN*,-$W0Y)ZCzi*)Rlc+igajtf(MeA.YKEMS3j;>zD:Y,5f-qhãU"MX([P)pLEI3X:]DyycnueeT9H$6rM'syq?eq9nc2D3#>-+2iS//Gn;T/M35$7stãU"fhp6B/=>IMVplHF7rr%lR6.n^KE\8bEH9NG;RhAalE%ZJDqLW=Xn[430,.$d7#_ãU"b:DRv0be/1C1BV)YYlQC?Z3,vA/krvg8&cxCW5Er\6&EeD1^[U'Lr\IIAF/EA+OãU"64h4Q1wE[qtbb]A%(ko6AeFsm9F;T[f]b,v1W*Yr4iQbCIiC4qB\qyvXU/]M5fTãU"56#s#%JpL55nn]06N3c-cEKV)i[#:IãU"B5Iq_bo:8]e-FcT*nASU];LSM[LWUe#2&)_]o''XJV'GCOc15(uf1>,h1&5\+^WãU"hqnNZAr)nUtXdo3zm3$KK%(>CGUc?Y(A/zGv%1DC:;qzcJe^pm^8*Jk:HWGy\pf/2=ãU"9Tjaxu,IscpLaK$yh]+u3E<9?20(MZ)Z's,j/6ãU"]VD7pXJF4Yn8helF/NDhqjlHOT#f'.F4.X&F746=e+U[r4k(e>\JP:0uSBOG$LMãU"&NDpn=j8dZ5B#D9fA]9kjQL.;d5,pUmKa;c8MweEx?/HCmTYe-85uuZJ?-V$glrãU"rnFXt#qj&lW&]O;oQO6cbV9+Y\yvCd1#iYOZse<\Zrb]mNT\]btcB*\GLd8xIUaãU"eQIE00<3?bG>f8=/wYdp]c-ue$*2)^]Ju1e6?JlU=_6XN*thzIVGPO2NayLj4BDãU"F2h^zDiYj_PMEok(4T#g1%EV/,L]1#O9#L;Ut8^QGUãU">IJzqXcxKStA4b922aM5lnN=p(>+g,nQ6k4yT55Fl3^*MeVb=*-S7&Q=Wf<]4UTãU"B]/M;vhK^M?jXhY&:Wlg&62TI?LZZykOman2mG;g/Xe#ddh,Akj%m;2&u2#ROB8ãU"oTrqnrJSWIlS-fG;%42n=-NrDQbdSv9m8bjui=ApZkKnI(I+u'ThvasUv3WbF4[ãU",nMGB+YeN>R$]8zRzj>.fVKHp]>_dJP8MzzkWxo6I]6c:moMNp]9R__mSasNOHWHFioRK;$3:EB4PRm>x:,Rhs3Q6sw-ãU"Ki^tsijDY?,lVLIn2$.91JKvh/%tK(ujnTE.spn$;70$nW8).cux$4H+W[imH]PãU"WdajXm[L^.kY_0uOdE-kX'v'tkH-L%.zT:Y#G$7doG_#,>E&0^U,^O>>dcZwãU"'QTnaiRpdJEUH(+^Smemk;W9WlxxD_YbciSUi$+:;:.bL5o0_]ZR;S_kv>[?^G?ãU"k7Y:Ha^'FsE44#H8aH#FnfBWlanswlVu0&=F1RtjO,g4M=#0nvW4c;GdM08aWWWãU"'k\AqRQu8X6NE[d^Wdlq6j>%2(y9b'j+0hsjCmKg=c:&gNFb:u;:&tM=exm7tb$ãU";*H%8_t3IEvYgYhm9W3'=,wo2ZPVdwWtp^AC3+e^P[W,ãU"E&C$;;mv1-]xVFasv(qF$V=57HTM%Rz_N[C(dmOxsbH3e,7LjV8*(_,HoL?tuL]ãU"8Qbm/8ErVw\&d_2hV9VM7u03<.*xeCRCql)2pU5[-Fp+xEqy604sGwH):.z7$G9ãU"p';6&qt?A:\qV;m]2%dw:wjy*B0j^NqlQe9s+S$vG(j.h%dZDCQBhTvD[SSmx2;ãU"r*2HVf[J+hh%+NQ[0]g5pK3ziag8XNl3Kq2$%=$pG.n$q:VIpq?FGmD8?I*+IsjãU"Q;*OOZ.p$CjF8%pmS^lT0m4;?jWKmBBm$jE9S6,#'J5xy2UtUOLG9hWIS&3Nu7tãU"iC8^0:)Z-LK$&_Ym)(hUx&FHG,XlOm_b.UOv#kxS+LQ:c+bsP1QNlZW[b#(q#fãU"?TXaa[NID8:IR>t^$#1Eco?zFc33/P07sK_O0U6=*vbsIt0\Xkk#yGb8OmAX3rlãU"[:Y/&ZWd%mT6^^Jnp^z<4Bi64'V4Yhi.iX==TNQHFJ)]:kGx1UTq?sãU"5dJZoi5jnSkP?4V1V4/MTq]>1_dQ#f1Zz,)z#UX&.r_&Y-sR?jzxGiQX(.y^*b?ãU"=uhcp_8Hm&+QtI.o*W7u0Gxt/NOdj1(V#%QTB^8?Pt6a&+dSBX)dn2VS.UXyTtaãU"%P<]4;Jp)$jGUn0(wjZv06:u(bbt6&#bz.^Wl^Pw+S9/:os\BxstvP1:Ezr&0=NãU"siTTWMjoT=+]6ZpiFER=5vFj)Kluw57DLLuc6kxw9b\%2kj(^3i_0RsV-$Fw4kmãU"5;]miGt;yh/4-o,taTXrd\80vPZe=eTK7$vc611[zG*hx]5;(jO>FS_U8hn/L8mãU"U<MJ9u3Tozt2kFay^C(=w[_u+W'ãU"CBtdNlZfE0?/*HYW&AlB?b:\B,CfGsuL9Q4oSbk'?Z&[bRtYQ(\9Lw$84Z+v7D^ãU"V;gq]dBU8&.cJZs'#KHt,*Nvpf(OinJEkz>&#<_b7[XACMKiF.'VE)4bei^#,*aãU"vv2oUuvQi8iNS^bkq<%YaTGAEGPyhbpZwUhpM03gdKhtqCZt.u^bWIZ8ZTttYRYs%&p$\j)5p$MT9qqbsS$.R[AMDqN[8)Zl>,<$fZ,?1\oRaT?VPAgãU"q*9kN9CVu-L6tqGG0UPeãU"IQ1WP#uXXbB3\>3\_43S[HlJmTYRAr7':LOraqPAPgK$pjMym:i06>U=>'EPCP,ãU"MOv4MvTs*HDMIG4r\,lli#VE^vb9+orA*OxCMl_$ZoX[Qa_^hyM[?kfODr^P:t\ãU"WSHHE_)nHp_n(#VZSn%^Na69VC'(]hU)iNE&wGWX2dA)IBh6T0Itsv:ovcPV'UHãU"Hr*=A:y^>X:Zd,9HgulAfdny=+6o&nF M:MU#GKIG_.GZãU"bb<+CFsvcOYpt/5lq5;k/u5*sen9ffLh79'2BGzBQLxU,KãU"/=98>(JqAAS;K-W\*orXabd4s:-:Yk-%TU6;(SdOKHuPzJy5_yHx(X5V*xkbDlhãU"&349q#E)Zili4yf>d8emNq['BO^fQz-(]8pW(f,YXe2(iy0:F8h7g#[/.uQ_LB4e[0,QibJfhFi_z.Ip\DZ+qRMr*hlNãU"M9Putmj-o+KBR;9IV.]cZn2PAa(oPrdmPB_1GTeE_5)9?yh$QWGyVHZ0l3A6zkwãU"uc>pb7s*A5/(?]]R-.ORQb?et)tMHdKCeQK0twuF($^D'pM'h0J[m#mvL3bVD707[ElY(+1?XãU"6&)2k=7Pv-jh?][e82R0j)h5ek>8x:=PCe(TCK2s3]kJiHc[EibNC:K_2DgWHkaL22ãU"7ryF:nDT6D4gO:4^*SbNRqXm;+zZF^T?msLkQ&aU*8_Xu[LML&oc+Gha/3E^&o>ãU"xK]kZ%n9StGkdcwpnMq#P6_M6b71a$^+0hVvhGf;uA*CLOZV=KAva)d[W\5MA-hãU"B1lfhZu8rdC#,oNi$+<1My-ChAuA.*g(,ztlmb1+V&6TL_z+HYW[>pgkn[qqsn5ãU"M%8UvrRq5>P-56mT]??dD2YM_B$b%Kb6>qsY#60xwG1f>^fbSL4n?Zo0+&7YB+xãU"JJsme5^hVh)eGKNbm>u4sp$j\+P.RS%[+Nr2a*XIeKSLs-5[0N]z\pv3lehq;U]ãU"mqcn&$c8$87=1x)/\;(&GhOoluU6'sQ;>c'*dsyyK^Jqm_,^F%s1uslt/v9S6&_ãU"MumBiP$=:fX6$l5k%f_N5gj+nNO?g.+t/DO<>-OCDIIdq-ln5/O\WV0NzJ5h*VhãU"oU3PZ'gk]8Hz_B\16c$Zx=rxjOb4%P#*FxThR&MTVtv-$n'3)c2wam3ToQO8[]FãU"/_wc0.H_^#H2x%*up(%)ãU"9%%%%-%P+qJEpJMn=D#4%%2%\%%0%%%%h%trug%gxSg7fxf$q:FSAPaXL]Kxh,aãU"r6U*EC=6WFUKhE,<9AE3R&;A:H8]Yw(V)0n[P.(tld0y3G*V'kgn56p'eHc^Z*MãU"cItC643YLoV&Nukmk;PN*7b0m'w^NXj*m9Vm^YlEYf;WMvH_L:+>o/>D[V&kwD]ãU"Qtt'WvjW/O/fZN>p0,LUtm9CJfoWtC13%ZLIRFpi?7\R;27Ql#VR3woJ]-Qbr47,dmLgYWZl5.t2?$rGUkZZF:kqR$T*ãU"o8\kg_/s$en&=qZ[L?Bt8bh/k6vo$*VKkg07qj-\kALzK_G]Yu0:Z_=4pND_Y,AãU">R%)6,5.JGOQ/(<0QkBKC09XkOL8>$I.fh_boR$DcZUUa*'*BvCO26d5WKH#VBuãU"td*K%B*n-pllãU"wuVWnjm]\/?8D#[QE[MZSv&>u/tr=u=iD2H]a1Fo]3E]B_H]m?6:^KA$:[8.5-,ãU"If=_>*FfnS$b:=HDrDu46NIEyrG+E]P+%BmC#RMv2>aD9TYlqcNBN*V&h1cf8l*ãU"*9E1_*#nuvvd._T/HN['wThA<^$UT41AS]fW4Bjin,ãU"0=yo'LUv50&CW:;W\AI%I0tv+h1r;:;9*j',&Uv/Qj0_eqGP_1WdhMVc<(_4K'XãU"qD+asZ.Jh8$Ay\oDAz*gmh7;PE#v+i])3TIt:ty/zDj<;1USjbKY*lej2W93tYvZ5'gHuDGDg?Ch];o;D#IUx2ME9aG-A+ãU"[;3'58iGDOsgDJVX[<[ArE7X>fE>vY7sLNUr3ErzZ9lfvmFI=CJQ7ejD]b(XRRaãU"PQ:K_DeK2giqz]41K3H7XI(6Zf=R.L%=s[_/$nOF;$:)F*&qxg3vCO5;;#wtG%_ãU"2VW\L8Oy1md'oX4[tES1S?tV*kSGH/zWMDo'w+;PdãU"1bH3,#IW:Pm9P>goWuk?Obs6ts1\u):ZmW=S2LMzyQFH3Vo+Z:pLb[W/#QNR;=0ãU"f4Gi(LHA]YRJJBLH,;P+4%7(x19cvvmJ'g^R3]sntm58f-ãU"3Wl[h3JAf%o2r5=h;y4Ek(%aAsjRO(e,GsD9r(b8w)SGXNLi%_$,bYcDS7qk:hmãU"mKGH7n9bQNVW((sMh>YE'FaLoR3#BE[Pudqf4P>cIkWD]RKWwH-l^sFãU"4&1+0'i#,/ex5Wa*^ofAwof\t%07Iw4ig-2+lnY*W-*WYwO-6npA*n#dR&ãU"zHs_-PB=7ceS-lãU"iCVDH[Ml;3)tluWML74Kx^)w/1+vIc^+v9o^n&J/FMaD0eZV35Sj0Y.Xaf6Y'9hãU"p'?727Dd7eI+$AhBooPfdLf)5&w:d(fgXSrK=+*wlov-'XuLjMV,+mKI'48_h$uãU",eUu<84ZRUi.OysNAgM>#PUq4M;:1p#;DH*%ECi=2X(sd#RjA?^%0IdWNpX'5eAãU"8_f6fJu,$5k(.5nIQ2Exs]r9-n-?WsBXIXQ&>/a,*WT*B1ER8zdRoãU"OXW+ZU9=NS\=xIuT7557II6#n?nNE3Gxz\dpWw:HmOD'2fcTpCO(QA?B.PJXw9:ãU"Ho+kC(-YKvhAa'3U/$w3AL52uoZL:oI7-Os2SUxiVj\n%<0&Mrm:^8Dh<70/PC]ãU"0v4Rh*9I3*_hPpNk]C%/stmKI)Ub&)UBg9XDMZ&+(Kx/N)&aR4%mm/YasMJ3;BkãU"*&'_z$d+V69)%lI#oW4_fYq5-o9YUCaMpCt.eJuQK_rZ0P1/+(/-M-h243[&RCiãU"-eFC]ja#v(GUYFfw*TxNPCRm2NQl:GlSv]+.(BFQDEHxJ2mKU^WI'jGUR'q,3]GS4HQ'%nHLI/9f**lãU"QjqKvod+_Ayu3Z[dMB_pbP77QcK/)=VT5r&Qf%*^Qc04GiO9Q]KvpddQnc0dp$PãU"bl'\sdNHMsqcVa9.4u4.xJ'?fY\)%.OnVHosroj)'CAIMuh3r<\Dh2(i0Qv*ZdkãU";%Sp8J54g[GYNwRy,P9Ci2s3OEs$tb.(dTL_;aHY>(/E'FNViw5S8^_0r)ndAEFMnTbMC*dbk+s0Udkq=ãU"EC5)2;][]-gO5m^O5AT'IljhdEdnC3c/t)Z7Or+g6=>.?)4=[1OrWE;]?:43TMwãU"gBskF71mey2CHu;rs[17SCD=v1'tU>K&n-]aGXI0:Q063Z&L1b'2Fx679lYb%=*ãU"$_.oWEhQgoCh,n34,(>ied)/Fms8:Z&ZTx-MMA\dLrDI0L;wm.,-Z0XJ:O)oAnRAWJjJb$ãU"fui;SWIu5c\cb?kvXM)>Bvy6Zd'c,3\iF6d=Wg$57fv]K9Uu+n]?vEDRa[<$a+sãU"uRX45W1Iw+*.(nI4ImhQd[Q#o<9z$d;qIkgUEs:SDcTs^7q=2J#wK*+)?u$C>koãU"So*3[Jb*,hv5/x[UzHK+&B_^uOnVR4qaãU"%rZ4S'WG,'Z'FefVVhK+'#T5=Vob01+:pT85Ttgdf(ARZ[t+Px)wYGw9AwA\aZbãU"\CQw3j/2>7[q[VfJxDseBHc7v4QL61=-H4)E\aOS1=hxvD,O$GIA,y7]X^'k\O(ãU"/C(5Nxtn5J[V.cCz#.rm2;0ca1KaFA)'Mx-Yy$JCxsq-c-3U]&G/*:-Co]-?Zp>ãU"fuQ??p*aJ2&SweCD#Q^^t-3m:gLsqSuwaYS-:O9u$9F%6qG4NYF^YUr[aI\70c_ãU"#G5<_.&6>jw5VM$:Q0%FIe?nhDQ<*&?c^j+.rRC>]Gi5xamB;PT?+)WzkB%85aaãU"/$Y^]BM5Qv%zzrHRagrgx7>rp>jv;*Kx;uX8>pZxkq=uuYJ6G]LWH3rVj+Q/L*zãU"(BE/3_RB*=^al$**P8FaBSO]1o4?NDi65QGLbN1fW]NqQ>\X6MPth9Lf4JDmGeM<+8X_11ntvv*7Pv#SUhLr4X$c$uZãU"l&7xk'/Bn-j-&_$K?Waoo4pm%]fP_kV)iwD-zo\L7k9iA9iCn;wj0+J+5>ml_RXãU">O/UK/F1Y]36%4jnDvKeE^?8X_d\]-zB6?\BpOH7cãU"1''F\+=$YA3'HL+:wbHM^#1^KP;-Jml8&b;uACOgDns2I_l3K8l?T$]QOlhZV?BãU"$f_.44KLA,3KDsWb)A7YqW#NDtBX\D]m$iIObFl>#uh$ESJ]nm$Ym\ul$Hm-YqZãU"4OHCBi_M]8MnVv4h(tvc8EpG?\/Bc2k2c6'JletR3XxY]V'cb'#Tr*%a1E+SWM?ãU">[?$Ne)?tenn$u-;W[V40bn#SL;]6TnPVoISsp(BWCãU"*gik_9Rwf#]C2b((xlh[eX_Hx_-,ZKbJ>IFH2Yi%bWhI_JZGC-pPECj;7]GPSKYãU"hmO>ctiTL-3%-aJ;RP0KuKVtoEDenEmdkB.ãU"(syh3dQ6)uA)oDVrf,dPFVa>9J:vlt+fd6WpX*kLb^7H*9N.e-g9cqVT/dTO_YqãU"F5Drp0l8aBI$HJzhd+oVsC:)d.C><#)y^Y%$g*OH#\)69DãU"q>Tb0v:U*<'=rg5*LdH:'vmslT(Arq%P28KA8zk1Q#VsysgXLI#l;WK]70iCt>5S&PdzHecTdfoqpH-ãU"0(q^irNt3JGbs36I6<4Y-tV0SN]w+cWpdm8uKf$mETqHbmCW>7;N/i#^Mu]/cL^ãU"9+L#o8eD.I(+5r4u%p&'9%%9%%#%-%7,cj*=ED2cxz%c&%%%%(ãU"%%%/%%%%%%%%%%%E%.%%]k#%%g&%kfhj%Sufq%up&'%9%9%%%%-%>g*=E4t5m*&ãU"8k%%+a7%%%/%%%%%%%%%%%E%7%%ml#%%g&%kfhj%Sggh%up&'%9%9%%%%-%7PqJãU"ECpMn=&D4%%&2\%%%0%%%%%%%%%&%E%I%%T]%%%ht%rugg%xSgf%xup*%+%%%%%ãU"*%*%%?&%.%Hm%%%%%ãEND SUBãV2ãV3ãV4ãV5ãCLOSE:IF S=88AND 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ãMartin Lindhe FAKE PLASMA EFFECT UPDATE m-35728@mailbox.swipnet.se 06-14-96 (02:11) QB, QBasic, PDS 56 1470 PLASMA.BAS ' Plasma Effect in QB/QBASIC by Martin Lindheãã' I was exprimenting with some wierd effect that i've created some days ago,ã' (it looked like shit!), but i started to play a little with the source, andã' here's the reslut... please e-mail me at: m-35728@mailbox.swipnet.seããDEFINT A-ZãSCREEN 13ããb = 64ãFOR a = 0 TO 63ã b = b - 1ã PALETTE a, aã PALETTE a + 64, 256 ^ 2 + bã PALETTE a + 127, 256 ^ 2 + 256 * aãNEXTããDO WHILE v# < 4000ã v# = v# + .1ã w# = w# + .3ã u# = u# + .001ã x# = COS(v#) * u# + 159ã y# = SIN(w#) * u# + 99ã a = POINT(x# + 2, y#)ã b = POINT(x# - 2, y#)ã c = POINT(x#, y# + 2)ã d = POINT(x#, y# - 2)ã e = POINT(x# + 2, y# + 2)ã f = POINT(x# + 2, y# - 2)ã g = POINT(x# - 2, y# + 2)ã h = POINT(x# - 2, y# - 2)ã col = (a + b + c + d + e + f + g + h) / 8ã PSET (x#, y#), col + 100ãLOOPããaa = 50ãDOã IF bak = 0 THEN aa = aa + 1ã IF bak = 1 THEN aa = aa - 1ã IF aa = 135 THEN bak = 1ã IF aa = 50 THEN bak = 0ã FOR x = 100 TO 220ã FOR y = aa TO aa + 15ã a = POINT(x + 2, y)ã b = POINT(x - 2, y)ã c = POINT(x, y + 2)ã d = POINT(x, y - 2)ã e = POINT(x + 2, y + 2)ã f = POINT(x + 2, y - 2)ã g = POINT(x - 2, y + 2)ã h = POINT(x - 2, y - 2)ã col = (a + b + c + d + e + f + g + h) / 8ã PSET (x, y), colã NEXTã NEXTãLOOPãDave Navarro, Jr. SPINNING DOTS comp.lang.basic.misc 06-15-96 (01:37) PB 156 2933 SPINDOTS.BAS' Spinning Dotsã' Adapted from original Turbo Pascal source of unknown originã' Converted to PowerBASIC 3.2 by Dave Navarro, Jr.ã' Donated to the Public Domainãã$DIM ALLããDIM inPort1 AS SHARED WORDãDIM nDots AS SHARED WORDããnDots = 21ããTYPE Recã x AS WORDã y AS WORDã sx AS WORDã sy AS WORDãEND TYPEããDIM dot( 0 TO nDots - 1 ) AS SHARED RecããSUB waitRetrace()ã ! mov dx, inPort1; {find crt status REG( INPUT port #1 ) }ãL1:ã ! IN al, dx;ã ! test al, 8;ã ! jnz L1; {wait FOR no v retrace}ãL2:ã ! IN al, dx;ã ! test al, 8;ã ! jz L2; {wait FOR v retrace}ãEND SUBãã%tableWriteIndex = &H3C8ã%tableDataRegister = &H3C9ããSUB setColor( BYVAL colr AS BYTE, BYVAL r AS BYTE, BYVAL g AS BYTE, BYVAL b AS BYTE )ã ! mov dx, %tableWriteIndexã ! mov al, colrã ! OUT dx, alã ! inc dxã ! mov al, rã ! OUT dx, alã ! mov al, gã ! OUT dx, alã ! mov al, bã ! OUT dx, alãEND SUBãã'plot a pixel in mode 13hãSUB plot( BYVAL x AS WORD, BYVAL y AS WORD )ã ! mov si, y; yã ! mov di, x; xã ! mov ax, &HA000ã ! mov es, axã ! mov ax, 320ã ! mul siã ! add di, axã ! mov al, es: [di]ã ! NOT alã ! mov es: [di], alãEND SUBããSUB plot4( BYVAL x AS WORD, BYVAL y AS WORD )ã DIM f AS WORDã f = 60ã plot x + f, yã plot 199 + f-x, 199-yã plot 199 + f-y, xã plot y+f, 199-xãEND SUBããSUB click()ã ! mov dx, &H61ã ! IN al, dxã ! xor al, 2ã ! OUT dx, alãEND SUBããFUNCTION colorFn( BYVAL x AS WORD ) AS BYTEã colorFn = 63 - ( ABS( 100 - x ) / 2 )ãEND FUNCTIONããSUB moveDots()ã DIM i AS INTEGERã FOR i = 0 TO nDots - 1ã plot4 dot(i).x, dot(i).yã INCR dot(i).x, dot(i).sxã INCR dot(i).y, dot(i).syã IF dot(i).x > 200 THENã dot(i).sx = -dot(i).sxã INCR dot(i).x, dot(i).sxã clickã END IFã IF dot(i).y > 199 THENã dot(i).sy = -dot(i).syã INCR dot(i).y, dot(i).syã clickã END IFã plot4 dot(i).x, dot(i).yã NEXTã waitRetraceã waitRetraceã waitRetraceã setcolor 255, colorFn( dot(0).x ), colorFn( dot(3).x ), colorFn( dot(6).x )ãEND SUBããSUB drawdots()ã DIM i AS INTEGERã FOR i = 0 TO nDots - 1ã plot4 dot(i).x, dot(i).yã NEXTãEND SUBããSUB initDots()ã DIM i AS INTEGER, j AS WORD, K AS WORDã j = 1ã k = 1ã FOR i = 0 TO nDots - 1ã dot(i).x = 100ã dot(i).y = 99ã dot(i).sx = jã dot(i).sy = kã INCR jã IF j > = k THENã j = 1ã INCR kã END IFã NEXTãEND SUBããFUNCTION readKey() AS STRINGã readKey = INKEY$ãEND FUNCTIONããFUNCTION keyPressed() AS WORDã keyPressed = INSTAT < > 0ãEND FUNCTIONãã DEF SEG = &H40ã inPort1 = PEEKI( &H63 ) + 6ã DEF SEGã OUT &H61, INP( &H61 ) AND ( NOT 1 )ã setcolor 255, 60, 60, 63ã initDotsãASM mov ax, &H13;ãASM INT &H10;ã drawDotsã DOã moveDotsã LOOP UNTIL keyPressedã ReadKeyã drawDotsãASM mov ax, 3ãASM INT &H10ãENDãTate P. Sonnier QB DRAWING PROGRAM tate_sonnier@juno.com 06-14-96 (15:39) QB, PDS 382 25323 QBDRAW.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"QBDRAW.ZIP",4^6:Z&=18747:?STRING$(50,177);ãU"%up()%9%%%I-%1E]GEMH-34H..%%SG%%%/%%%%vg#iwf&%SgfxKf?:>ZSAoJ5suãU"V6$SJh/i]9mo61KM->^-J78o)-z98veY)7l5>k7LN8l$E[f$jR[NT$r(FHmCU4VgHBH3]]lOTC4rF?-XQeL3TPrVMdlfF/np^0rãU"9k_Xccqnv\qe=tãU"X8\uYgrb?BisKs\(]ObYKOG/iS8P2kFH$pgC2%4HU[jghTl&S=m+bt>;Vuei-k'ãU"gOp5SYoG6iWRf(R.SHZN;0com[c'9wTV3_rEJSUM\IW=XDmmqfs0kh0e1EPkIZFãU"3?aXx]cOH?b=gZnbBGO_1+[+mMH'.1VbKYlTJG1Y''-=TbqH'f,*FãU"Bhk79B0kdyi,pb>AQTgc4j#qLa.q\P*e(s0sbh1l73N)B?^>,[?e\u4=p'8oFQIãU"oIhEQPc25d46,NfgãU"rS?w#QrxuY+HBIm41I,wWBqS+$&RCBCPtCBmoW'A(&mNa1d5+8((XB)UU/v&JCAr7G)ãU"ZlBn'w2il(XbfDsK*fp.9vZcfE]SD]H?iG/^3uX;e>R\xQ5S%k),qNN11'&Qoa1ãU"Ct/HQ+(YVV$r]CfHMa<:0JsXS2D'A:$NL4MAQ&ZvdNaPS-q2gB(yxV28hsZ.ZMEãU"S>]b(aILmbSenMe$Z#]AWKB)J#z_tmP<7u)+6c?dPlu'B[f271UvL&3qS(W()2;ãU"2Xfr_A;0H:KAF=L$1twOZ+6EM?5*MooKRhVWnT3fn=bV)MjJ$l+RbF=HRXLM3d4ãU"zT()PR-bU:ubheg$s;cAkyd6Wj5pvpL<>PãU":Q2cs0=qtqpDg7\5:jXbT*CtG]HcCq:_y[$gCFuIJiU%8nGu9A$gOvnVg)d[UDGãU"C2D0n,e_#&qG^a+bVPq\jf\=C8X#a;#MSc7lVS&EudCG:25I*)-Jd<'7PCqaIS8ãU"Vo=_amqBx$=LXhPH??i%tfTm0:oT)F*I=[5/rXJ3e]btnd^Wl2socb$Ic'l+_18ãU"4=<+po,CebuS8Vf_Q_$;gGsBcxNFnTcn+5,b1-K\GU6F[bU]OORaVsEJ87%X(9QãU"\T\*mOxmUY?cJiZ*kk4i(RqB=G4Pgr2uf+vs'kV'\o3.2HmTGXvPA1[*ecAn_u0ãU"FRe&QA>IalVNLl*g:.xz#lc.bDO?_B<#X>'<)gjmLU1c&z$n5O\ceO^8[t:)rBCãU"1m(*0l5#$XnEktxoe3*D4iskc1DoQ#>h&#XLãU"s:U4_:JZ7>n\SNnMOQl,:*8'HZigNh6\lgV>pG#J?:z^r#x.Z3]is]7isgTFfrji02O4fq89*,hAoB#'W*lfo--ny6r)0Vcc]D*6*AKr=>,,I/*Q%yd?UHrx4'8:yEãU"q'e\Y5qTpVddB$%Q9(kEvmjM,j?iuYmS;_YA=HE[c1881YdGY'%+Qds?KsJfIA-1%s*C2M:pIx4B+AyDH$B]i^4E1f'TwR:-cãU"#/2uU[Sp^Tx#>[G6Hs0$[>B-E<[]cG424EiEs8MJQLl7D..+Qi3a?1O-=fmra\eãU"EA0li'syJ21d7V3bl/FV+QjeR#*Z=U9)G-FD#1T+.-X*DAZ\bBkko_&uãU"\-lH*H1PCDmN*F2/;#SsVãU"5O8mv<#dB(HL[Am6'A*O^UB.f6Zmm5?oJ,D:38vg/Gk:i)2vXbUoZ\^J:VMBc(6ãU"%s-(PB==1%U[1QIZQ3k.M8PiA-j,]$j3va*J\rvZ($s/$AQ10n,Vso(uTZQAf?ãU"Hol9DI$VnX$_QQ#3.YL[EaJik\R&mi(6BZP)o;$d,_nE,h4e=ZU[rPet8'-:9ptãU"H.R\MYA5]0At<;%*IbV$I3m3'xMGNQC8+XDM:di'=Js8#p8K&dãU"a)7VOfxS%+[K8MBQm6L8j/k*Rnv,._E0FKf<-:7g[LfI\r205\,e0JS&[JCx/[8ãU",rUV?'RaVDbxvLL,(YoGBt(+U);['kVzZdUuC#>5uXv?o9uP5^>7ue]c_EjFr:<ãU"hh8Ndo_+G?,nB^GI0W%C%0t7p_QbO7.mbZ6YDE3=3Ld[;7e)gU01e'e2X%YVA=1ãU"7flFTc4mZaf\?Z*#mcgab.VIiWrB&h#vxjua/PO%v[(MWM>^3VSEGãU"TDd\?KqNo+av?_?sSF(*qnfb(ubmV0=F+t(s]r,87=$=MT/;WlxjDimD=[G9mBkãU"rXCYfpzSQZm-]JHMrHvbdlH;CRx2R+HuJ+#,?.stCzLW=-ãU"t(-RP#RV\gd?=aosX\B)sHJeKnkJH<'PSCFYguE-mw;8FO]K[Z1Z5Z]fGrvtl98ãU"XF=j'kK1o[XO+t&OKrn4*usn.W+h)gMY.NlDa0IR))m7B#UA$uF^wq)njãU"Xg*[HlxSXsJ>^lL=?_u2QEX*su7U5l/?P<#kOki-+ml:*nI6*e>RUnLVjãU"Osn[rwmW#AwWA5:+ld(+3-VI7^-2[se$2=0kwy?SL1.\9+4OLiL&V?[=(Fc;W_$ãU">UYSCk\k9+B^LtX,h+29vX#f#fAzpHtrp0iUk.MP*i4U=u*0v6.cal95dLA.o8Yi$M$YYtãU"35nG\Na[OD_HsAP)SCE/fPDW;6N5BQ8fyEi:R,L,faK*%JoHCFeXpRv((+Yc,hIãU"$jYgqxjgUOuWa=-V>RWeI)Gohc*KgHiR]B>44_C+KOO&Hyc^3Fr9.0xO_V(0c&,jno:vqEwwJL>Eii(oOAãU"[BF,qjiXdu/7blHXiPia*[t#kh^FDU9SOSm$e]C\R83//'(>+MJ^J3UZa4^w>d8ãU":HM^DyHoW&_#CVAH[Lh8CIq/*.NQ\&0^A&alZTK6?b-5x9V/'ruGDX-&XhtUv6/ãU"M]=JrS]KiEtspdtVJiW9UeN?HEdW\)DlYbcF>/+ldKY(_=2A[\pMbDe3h$(9EdIãU"%k35.DVk'fO6YD(ij-GX?23oOXI>yHUq-*42jE,tYrj1pLLpãU"W)1a(aU7n56uAC,l)6#i3e*(,Lr+)L\Y6lRD]f>y+DH_05F;2hCI#q+m[f+8fa;ãU"YNw)YPglX87Jn;NMum6^/n)K2FBr8P?6[=:QFKSHKVyTNGHs=x.T6)Wy[ydHa]KãU"),W[)gk[$6)T#nUn/OGIgnP2oJmV5igN[iuSO2#\bhUvo;yj#*kqAK*HDfCi^XaãU"6M52$+md3y%urA.opo:3>(zsi^Ww5-MSro/gLãU"ctjv6]hFH/$0u^l0Cf/'4^Sg?Rcm6$ãU";Qc.=Yh.Dcw,i's$f*:ES1;R]a05)bT\b*$SSQ,'>mTeXjX^7dD/CHFjl9D-iK.ãU"LkoDPENYlJ%_f+hAIt)&L)4aSs(O)0&kLy88$K\7ndxDL+n4yFIFFYpU7$DSS7yãU"'TK><>L;xGZ1]bu;E7BUn^uX,<*/2tv^iKxu_U,&?i0)O'sMf+jtNb4zF].U7b>ãU"'tif13.uy4'IWZ9va#Up-F?/mXHiIc6vJt6rJCqo;z3;Oo3&oD$0;ACR)r-V9&-ãU"m_3wNwK)Eggf-&f/s<.<1DKor&%-#OP00q1#\8i)dE:%oy=B>VKFgO%]BK>VjmHãU"l1G&fpjOh2/ASERaEg0c3wdh(5ypQ(lwja$C7kJ#jA3.m\2>H//qZ242I6Vfe,cãU"WK:\rOUNnbo^y+at\?olWET7+mN)e1fI47s&M(xm]feB+BPvtL%\opoR142MBv+ãU"r.HAWt\-j#AG0DV_3oYUSN]3ifW+J1n:-bMF)'BbrSJN1'wj&w_Ro8fPD%<[QDoãU":'x6nXA;?Xexk<*MAC&[c[SBs-6R9Ja.hz?-[icN5O^WKnDzk4RqDC^8l1%Ib.rY3>YU?Ex\0KqãU"RaQ$H4jYVBDdKq%E9$8cav6E2LGArtCdUOS6?*-Y/w5M3Wq;>lT^<;=ZUS>XU'yãU"u0FfCF00j=A&*nquM/Gf9c00j_=n/UmS:0?t4pgg'LTx\&QMS%*ãU"&cn;q4ux6>V)>#4pZUA/6k:g20g_ReM>jbi'c/d[VZ?_9gF0m7O^&V1:kvCb=e$ãU"b8d1h7:-_$r.__10saEg$.V74[SDJ)&4e$-U^BbtU.Xr:-qOX\6>,P>b%xiAAA-ãU"3=A$.PJ>;:?N/$vpDw--eXi<7[DB)0r5V()STSV;%?8cuM)0F_7o=7*jlUd\k-&E#w#=w53d%9;d;m,7_#p[MVFNz[>r2PH]ve?Jj8HWj0bVRYGe)lf9$'WD\>^[S,]sI'Vo,K;3IãU"o6OQC%B?]A9LFi]to:%8Ejj&y]PRVWnSVP9x'0gfakAD^7?.QRs\+Cdmm(lQio0ãU"Xh-Omu[:ATxso;dTLohW/&aX;'H%]JXeãU"Q(:5ZIDoV?ZMr/n(+twM]tM:/(PB6eU.B3Zn4MJZR*^(ij7d8FE#)OdBApXOL:IãU"%BO^OuEJz+$eRP'KbTKwgmnHR#2,J-1Nu)0&XDX_H=zU,-RvF0Y4JZ4G*[l2+Id53[D\fO57q=o+ltIzp[-N*ãU"bAL9w[Au]2h1qQ7]N*wS1ãU"XzmXAdG*N;'\7$2/LEaFMB&Yb]q.6'/wK,xU4Tm9(E+M/.k8c*=%cm'BZ-n_r-GãU"^b&xAzdS6?DF8dHdb[)A.&/clII[7:A9IaSZqT;TIOm^-wLM/.W0R).]sCbK-g:ãU"k$qMn0YN&8oF?<]rAV7d'9S*YnC*:P01)np(udfdFHZ:Lx]:aR*YV.pKZM85G%SãU"IT+t=KIs_b:hM#Z(Tu1EKKIFRnEc(XmR^oEXOeZ_V'*lgNRig+']p.9EA.KM?F?ãU"-4dU7L2_&W4D'Mc)A<5kn]H/Cfc\Qh*MIa.VxgLfY&ãU"3NHokEEP>&oaa#FSfi90V1K9R1aInlT0&i-0<2AlG(q?[ea6R[R]AR<#2IpG=?XãU"cUlu(3\#fO&>&(x3Jp24+a<6nGSjNCe34]DLgROgI*B\:a/5uoVF,sB./7vShãU"Ogixt,:uxRr11LfEmo_lh-&LxAy3Z/LNsmSdZIud;T2ED-NR)BB[4-b]b4-%e$nãU"Sao$CeHW=pnV*?s0*w+B7ACjnM*qL9d%oo8/?exWAn[B\V+XdQv%kf9epE'jmE9ãU"b#92l9Ld?MZ#:BZi'Rgs5['CqSFc[<.:kZC+[HMuiUlpL:VzY_/Zb_t$7?b8m5eãU"]PWG-2mw(/7HB'PE0A\GrX$bPgA[=#wZG:&S]4i?qoxFjR8C#iFi%0/I1z0+Xo.ãU"'_9%3J?_0C^KeH'I;NN/Oqx<9;NEE*=w6ZBk%ãU"%JfZvER0PgrQ.sls5hG+Nu)D-S9E7c/TKp>=iM[nlT9fA#&&b-aDV'tAOi>f]A=ãU"c8-wU3foBWjvPM5MpsW*AW.s**$^IJFvob:/iER$m3tE(mRumodUd7Xw1DoshnDãU"UsA4aDSf$OfWO1OL<2K0;5ngz*_p/yI5X<:8'r8T*qfZ:i+VR]Kp,El$VU21;pnãU"\'lXNawzM:Y2dRB9g?EJ'liEGn*/UiF*#,N=,cimU_VJhsmUJ4O$t2m'+GCxpEPãU"Bw[]#n^d&fENWb?^nkRrO]xYc5kxpABq%c9+VT5W\$BFm+Q355r5W'i'#zRkNEU,pnUXPutJKrOEX,ãU"\q#=S'Hi0TuLUpYBoYXc;'l+w_Sc^U?yY?WtfDU%93e'ãU"U-;,780c92&JvmrG'-ghq&rdwZja3g7Fp4'\p97FCJ;c(4t?RNhbcy1MOR1gt]EãU">Q8gp5j%SL3v)QqF64RF[-r#+QL>624:m(iw5?_i93R.%+5Me:$:Yf5rc'-s4k*ãU"T?2%F]e\)rcz%H_ok,Ei*1K1+Deo+Bd:8i>L=To*ASp_/APbloP(-^kãU"=#TMVO*MP=.#KWiB$a.Q$Bj,/+fU:ci]%o_=XW*qp_f$'(i/7??>l_=AE0*$\'LãU"A-yi=kHYGoWBwO]=5k>m__dVb9n1m=a1Y7?9rv3kC#49m6P1AFKaFy/T)I4/$^jãU"AfRD]5*_Lrldx9+0a(]VCBwSv4r-#B>H+AZn6_/2]/..T&d^6+PaDoSaW3MCz42ãU"8BqX>YuEi6loG'43THA)32fzB\8gxizclEP*Vb5;HãU"6;?g,[XiSq7fmb:CtNdmT6iHrSvIoJ=vt08C5=DJJi)Y\Pa5)d]GeN^ãU"R9w%4zm[lo;2B=Rs7$jE#>FuhQ/w=c=rC%.7zl_;x>po&[7)uTkBMbgGA&6PWUSãU"DMx1Avh/gGB=g*3(;UZhHUijiS[]b3=/rV_jX2l0p-dt$/QtEhjqBw1PXL1ãU"*I&]:?1T]grAXDn0z07mO.BRUq+^]sxXeLy/'x01(UnMLIM-DUd9$b0^BA$)O(\ãU"XT9)Y+E>Pwn3r)S:R?dYo:[%HG.6>%K5B=\P5Q+LG=4:EuFKN'MO*v6q>2_wkãU"Bp;+YkQfE2PzC2:uLP>rJ4G]JG;xi9iyQ-B%OL*f3X$'^\a-Zo*F>Pr*Xv=^u3NãU"[S3JMs3a&Sr%YmbO6.=9%_jNL88.,49?R?(:fkmP_eJW6H'HoE3O0rHQ(40f5A#ãU"LuYAHy(.c=C.wDDAO\JtnID;'o=,NxsRO2S4uzh*%AnCe9NqVRYG7Tj2EjjpeH>ãU"Z+Ilc:xp:O>zWNnd[,e]EY*4X3Re;b7TP7&keYM#Z_P9E,IV9WDAhE\^De#-ADzãU"=kW.dh4srJOIUpP4Aq>nnr**kt#n?jmTIM;b46Os;&gTw<,k4bY?^kKNsM5jNfCãU"e_VC>J&7VMV/2?\TfhvH:['X$/u[UFY#T'C8Fdxax8\wQPc=:lm>7E5(/x?TcHwãU"%<\>bB3ot9Q%vL;JCSEF\&KI.QZDokT-Fi)$SoOol.gN#ubTsl%8,e#6(Aimc1XãU"$;G(I&Wr*VY:]_[(;>W?x[vW%;hSfctyBtq;W=>SZv;Iz99&Os%g6H(NaJo&9.PãU"D1zTz)Q35nb\-DS7OhdoNWi/b1:ZzMWc4sQms:mw3t;kL'i_oKh,)9.pHkdYk./ãU"(tHTJ_dEXskdJauriUq$'*(HA)VLrcF$X(v??>sg1()s4rRNYZz;u4*xMc(8l.)ãU"cqEcqdA+qP+Xus.3u*V:EfTQXV#ad.wC#]R6maZx^Z0\Gi%V=H^,x+ZfM^eZvrT:=2ãU"UZB,*57+_pgQ[C-V;wx9sL5Bsl4eWp02ZjQo;&hjWxM]_pRlm/%ciOhdsau2cL;ãU"dIs=-s>[c5]<+A:ftdTt;ms>;l\DC:Kk>/W:F]^;.)'RkãU"r,Z6NfMWybGe2g/H-FPg\a7>Y2F3Sh+s(*E0vWm\f+B?BS1JE[sm]eWãU"w#KchdyAuLx]fibn^$S:0DSKYUKvatm=.MNMCG(Evx92JlBuaJaZ&:4X5t15,fB/UE)p(dwHrD2$(s-YG-]_+d--%X6?Goj,3V+_A&1=sl/s1j<ãU"[M,6bfv8+jx(KRx46=\'Y=(Mu/HHf;Hu\c/:w;\%(pIDN+'G>3/.<5D>O*O4F83ãU"Q#/rbRg5AobD,]nlUg[:LW[k#PfVZ>V*ZI^OPRb*>/t-hfLSH(Jbsw0]p3qmg:DãU"i/lQp:WAM.g3'_AL+IV:hWqMdBiFar;nPX:wkHQn\kg&cSV1(IA3>yGI*$sM&WdãU"YZ-B\imo_hz:(+^L\dprfpM2d9CwC69ybW&)41=MmmZAYws:X9&beP:=&wanLp0ãU"7#[&gNkgc&#FYwrl$k?FM)<_;.oGdIs:M7;A3/ro/&g3p&Hi5.La:y9)N*\]wtSU])^G(_CGgHsN7i-8nrn?w:my6ãU"#KtgVZ)SHq'v9.\Rz&Tlje;qs+s5;)Fxh;5GBB>K66dLNMbcL8wyYpO*7O%&xnKãU"'mIY'MBfL[WavS*:9vbXDlVLoZnh+YpdK?\WA_EN5KOU?-AqLRZ5mmr*^gYqMjwãU"?CsEr2L<84/=lhZa=wWl2HB7[?spQA_#yVU0Wm1A+*('U.ymNncaC-O$P/*;4ZN'E'AKiPPWuU;YY]#]'XtnhD.3+PQ]0,JQVãU"cQV0r5(^p7RT#lRq6LW>qO_1+#Oc-,*5B=;+[&>u+Ug\/Dl2WsGngI\g%th=&7UãU"z;i\In5HFmP&YTKgNW->93#H-Ls'[HID7C$B-MBQJL%ZSqKb(+q8-ItZ,S1[wy4ãU"ZHEJBjk7XtS'orqs+d1vAHBjc(ZB:Veg,Hbj>RQ+'O$sMNKbZ.=2G+NãU"RN#RY_B]\<:[rU;wh_$gVDg1S'Y)*GA+L7v?g;.W&d'%lq9_3rcCJ?9bQQ%.tL:ãU"0=i:/7Ac$A$70.KEl>pxOq%KYgEB83uk9dCWh(C[:p.1&-I=+MmjnyO2NcpRj*.cHCWo:RãU"#nErAGv>2FG>lx=q\n>0PcxYKg?9F/dmuNjO*[u4i:fwIXSZTqi1Mf:EW^\:-22ãU"n4EDxR:.22s1<+t(%SV8whUi,>I>c\#h_9['MO;Xd3)DCP.YeQ&n$GQfWcv-&0/ãU"G%zi#xRP?':QJ4k<^ie9qoRp:qG'^7Q[7(D;bC6fCUp,IdJjHQSyESYt-;o\EFOãU"1&V_[B'R]G_rG4hY>e7J(pfu4)V?b/QnZr'0<<_UH(:LJ,1Cn)9x\^I_^Oq_I=1ãU"mP>uMbV_=6c:H0'MFm[s3q4Lc6T1fm#..qOFWx.ãU")ovF0dMd=B()EV0,Ay_+k6[o98Po2_]3]Or2TjE]u(.VK5%>/(S3haaY5Xd5vN0J8pjc:tL,ts\q^LCifJV7-gãU"pZrJgpuRnsVM==pHE2SK=X[hBKLGc*Ahhn;K#*R[h7rXJc-,DXK:f8*l;7LqkrDFBbBElM0r,=8*mEBB&_Qed?\u-F^Fm'D$ãU"fzb]a/_qU-UZGDJ0L)s2g_O_p=L\J+)cX([;Im+Y+^Iro3VL7XbLFGr\(:*3N2[ãU"DhCjrN268KCw(ot#u\[%#DghrlXraDMP%-4./.[1'a%K7k/p;#nTX6sD4AxãU"zKzoi-.'R,,=Bi8nT]F/meeMtav.0n&M*GOu)U\^c583%)o.*hHg>7LYip2.V_GãU"?hkab_?acY?]?wCe,\u8EbwJ$DwQiu[E6]xGfD[*o$Qk.f)+/#-8Y1aCsK4cs:cãU"aVF$C9aXwRbItR+L6*fTp8xBk:;#W$&[M0bl0(pPsIS;X(EegS.,2[d,JXZ]JgãU".2cGL(0PU+]DH8k8x(cs4IUT;&=B+]Y&Bfq(\BP?9W87:bO5X[U]'lO'f.\Je$2ãU"dD)Pxm,'47$/w0a-Mx,u%p()9%%%%-(%+h7=:][A'v3>%%%j[%%%,%%%%vYy%SqãU"ngEf*0GXyN.-PJG:5(WH5EJS/H_15HX&%''Fe.CX3EM^05AMOYXQ%vfC'P0]9\tãU"/1CmnSYpl$O)$fUBTSV'SwDJeqz_2JQ]p)*neGz%?H#5FItUVEpF%r%2OOdXYbLnBOMczFW;?8]Ycgg97=VEG;wG>/2wj>2+x[dy.?$c4&>]I'8Qd9l^G):o*M9tãU",Va0d;,/e8-WVQ0nLh'&/knrWceicEqO_+6&d?y:qV#4X]G#Cdm4sn:wqvb$9mQ)iV_rD6*L:7\asfGK&;axVHãU"v8Mnbu8K-5s+4D]WyF0c?l(&ikXi)H$wPXOBClAu<%)co$bcN]6#\fKQx:fkv:dãU"O0Iu-YF.eNX>YLlbD.w_^2Vqi*do-Q%0s4OAqgCk6_D_fE/pDNhF;[jY6PqZfOaãU":]'HzXUDN>6&Xj=X*s(i$Kdkiy0cdu:pu\hWDrlfJkQ'ma$'<:v3I,<-acysn$*8l4x0(%N/cc%\&;q3_v*-.1EP2l^n>GQ-EePQ[R+m]6R$)N;X6$Yf&K:'Qk/#_XG)$xH=:EPZ6(.uCãU"/[vXbV:'4DWtQOnp7DN#ohieBpm_se$p\i%6FGkDsW^1)X'H.=6T2eC'cV+\T;8ãU"H(..Y4m+S01=9qUWT5/DA=\MX/g5f]UCfsO3ou8;oUpO+S8;XkT(N68bLvGu%ãU"fc*:%Kd4.jYZ&:#E];k4&e-2eRnvFq.Y/K_gyAZp)sX-w6bMN-%L92Lem#h,Px*j'34VdLfexy3Pjohi?wcSharl8WHArhcI1ãU"?-O8+?fH__/j,qT3ai;c%:$W:#9ILYk+R'O$bwAoGPFT.VI3DXeCj]e&&;:H3jOãU"a?b01d/oRPg'i:nt<7HT]A^IWaQ'v&KRNãU"AhF/kyK[kk4$\m>3S-:BYMRFezPo-]Q0j:]h%$DAgXln(wWnBrqO\=jv5C7ãU"h[f]68G^wLc55<;lD*6i)AcolVmP/6krc#JcSJoTUB>41iDx<8b-&\7hpd_A*vPãU"A-*Hd8gC3N;Su$D/)&&;gp-aZK^CFKP%N%bTvVQ%)3kxTV%tv8&&)c+]r]+:qn<ãU"i#)&_f[n^NQs2N>$8e]Q47o.<.J$b0XhQ2xC340-bFJHe(3[NvJSL1_1nrA?p5ãU"91*1.m#4p5JUB%%__T^.^.kiH4Jpaupi]Cch+5C[gKr[pKUNUkhj=C67O>Cp.ODãU"^VWCW$u%A?Oo-FlrDSJA\pK8Zu76Jj,J1cb7ytlNddAk:ãU"^A/naCJ.OC*eec#0F0YbL_Icz9$ãU":/B)(rQFGcJ6'2qMsvT^w4dBPxFSB9q\6]bnO*vmYce;8.\ws$n%kZrfitZVXiFdxNJax.$-SGlg$M]>N=OTuJIoGg2kA[U]UMK9$B/O)rNq:XG1$ãU"O9*6,qgsy1.5&*ynU.z*3]VC_6U#'p$2-lbXwNs/kajHjF.FQUhre<:BY$B/S)hãU".W=w-+i\;VNbj&,W8W^]r,i4p%3q6RKBt1#tVãU"AuMTERs^.E-Ugn:lBkx\wh^IgQv)fe*Q)zuBl*nqN%DJQ7'V86:+fS]toRO.CãU"kO%.HfSq5o6k:E+#He1(X_0%NU?w*Z9=1\2E2?dg_[:)$iR=*P18:c/qãU",UjU*8:/i_p:uZx(>?B9$[D[E&SwQ^A/;]p7-;9AAwiKy&o=;g4.1p135/V?9eFãU"LphK]$L^$xr_N/:]ãU"'a*l\qrD]g\L$XH9.f*hmaUHN(WcRrA;R4pX>TAJHBNdS9Xd=L]3Ur5PZ?U6<>eãU"hk7-ZF,VII<(pPuVrN3mB;vwr+2>DD*f^#EairUU._:&Rtbjk2g2iyQnNgNsKm(ãU"V&[0t*4*8EVE\jq5A7T:orU:0&G\gqoKOJFTb>7=#DXF=k3yãU"/RX;m=z,f4(Soai,jJ,=8a7fxpjYMEW6JJwl^ww0a+Vwt9M6fj8Yhe1&+hc([EIãU"MA8lj_N0]-,j9TyU]YVlIWJ.hm3O/g(vQDK>QP2'cmZ9i0SY[uv#h8Y1%Ooh:.?ãU"hMiA*[pfX_\eNM\F[SvY2&1?U=&cDerBjJAkfTI2ld=mtw%'jTQbW1_>\lTVq%3ãU"/^LTap4?^oVHSVcdK#)FJa&Xc.W/v6W.g?,)U/n,&tDn&6PL*&&8Jvtyml4w3eqãU"$IXZtQb3A/MJ9bS)r/&qy7uX=O)*B/brOnnft0+jTV$\z;QJGEE-:FI^$]dgD^&ãU"O7NLFNMBmM-0Nt^#'KLUXIU)U78U_>VyUOKR,^G+eD?\P\3_+wPbAEp-J6c]+C$ãU"Gx0NskGI4jLw.=]JA'LrF3KXlN7Z+J2>CL&9W%4x#ãU"lhwlS\f(buPg\/UBS#Q:#XG:JhcYaubE'\iqm7gZiNZ>0[(XmIZ&(swx/&l/\CAãU"Y0RãU"=pg<8hfPlv+8SENfS-R?c#4,Q/k-7OOzjaRe_Z.8r'/nS8\#cd]tkC[5X8>4q0ZãU"+&C'+oU*U6f60tM=3_'/CãU"2Ab#Fc&qyvwJj4\s8vVCWR-t9vOn]>u#O25m8P+.qd;hDaeKgzbo+3\)9ikm_nFãU"NbI]q\J5fãU"dTVKbCFIN[u*gv:qC/hI^prr6nljcuq/+$\EQHbDowmfE*pE[x?$4\_tn>G.Pg%ãU"3.Sy'>-mOLQu2L9M*5LY1Ou%bUpãU"dmBCTWruZjx_6PF]+e>u6,x2yVOhAx'*:R&*uT?Wu.0lc^5j+>,m1U0''<6g[E>ãU"UPS&U=fX.JpeyU4+?=)P.vF2hh/CYXaBg)W5>jh32^<6\&xM.GR_MN&#Jy]Vn1HãU"[uukH6?Dw\Xk9MH7Qj'YNSiYqQrokRD)ij:lBRvCaZO;DRJIbqO7G2m-c%G=DmIãU"m',)lqg8YWCLS^$Bs*.F#Ir&%I2nmBGcp^zk-HwPA=zpãU",Vst'GpR8,\K49&iU9Dv(fB5oO$Kc9K/)O('_;ges6D#dc+r20\oHm2K&C(ajeTãU"[5>%jgoYS8o-qBk2oKm3t:Z>4oV1I)zZu]xxRGGWLGFI>RyVãU"/3G&+.[zZi%Jpp&_B/v.%mzHz(RiC%FnNGFRJRWtq9$D;_3p<.$A$kEOVv,-\BwãU"qTP6MMvkwXxq&M4+/6tbE)1b5$k8BNfhLtbx#d_ZeJA2^Z%NAaI+k.B8S:Yg.=he:T,uKbnes[:eYHn93#R(OS9Xu-RoM7,hf]JI[h)[x5ãU"V^%n.L7m#RaO[Fvy1qmRN(ydpzWlwcLKG&bQ[hUw_&r/^#7zmHoS9DFv)oAL%*4ãU"]Lfrl#Dc2Orj)]VBTagzP[D+0sb?/G9.-N$x?g#8V):0uk,cXeHf5.b96MN4A2w*rUy>\ãU"j;/4d52c9qOpz&.#NbD%&6&]pHS'.e2&r1z^QZE79[a0V8Xochh_q5Vto?wQXiHãU":L)JBp/c^Km1FGM[Jnf=xO[;hPZw\w)Rb&L)o7FUj;kL.;iO2s'[y]o%X&:Dx4Trd)d<,2]U6diZkDDEM(k;fR2MTn2_;n;q$ZV=;-p1.nQIT$ãU"SWbZ>5$f#'PH5n;TXWAEWRO+L;jW8M$GUJc;8OiO#x0PTP%&?)FmO/bN>R)nP6=ãU"H)9Z';xU0ni8duju[2qwh/C8Mm9dU:6qLFuTUliUãU"C(UxB>dBGW)XjVfx7G1AB/#Ka4[/C($DkMw&88MU_wp6QC7gZo/6C^?K#ndW]w]Ne6;e#2_(O_3$%s)VR_^*P?7CBãU"z68Ch-^<1nEXM,m#;$m.#^pn)UY9gl,B>.bTJF'$l]39pvVImbLr9F=Qlt*5.9iãU"JgxT;K=d?7RaU5Ina878pGBL:rdãU"f.h=196tasqhe$H>u2F;v4OT+>IPNJy7inMzhj^amobaDP$:4Av?dWTXt1]vtO?ãU"9Z]sD2=3^X]^hIZBj=Zq>bc-dOBBsWmJfA5/#qRB]THv=)r.leZu16QZgcJãU"W<]?eFo,u_D4l#2]<$ju+tB?RBKTOtrzSh^s0^fEZN;9n]TU'BmB-xejM5da#iOãU"[6vlV,6(1YaoNKtEvx/uC\wnVc/Cf*ZV)n9q6:]WuW9XCS26M.au^DR4y,8E)YrãU"VN<;%nfP=WcKNqv0-iXup%&'9%%9%%%I-%1E]GEMH-34H..%%SG%%%/%%%%%%%%ãU"%&%%E%%%%%%%%%vgiw(f&Sg%fxup%&'9%%9%%%I-%'K]GEh??&6WJ[%%%%%j[ãU"%%%,%%%%%%%%%%%E%%%%tT%%%vY%ySqn%gup*%+%%%%%(%((%r%%(%Qm%%%%%ãEND SUBãV2ãCLOSE:IF S=12AND 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ãLuke Molnar ULTIMATE FONT V1.1 Blood225@aol.com 06-17-96 (10:08) QB, QBasic, PDS 324 9699 ULTFONT.BAS ã' Molnar \ Kucalaba Productions' "Ultimate Font v1.1"ã' written by Luke Molnar in not very much time.ãã' Remember, "Gratuitous advertising is ok for non-profit organizations!" =)ã ã' Questions, Comments, and all that other crap is very welcome! EMail:ã' blood225@aol.com, AOL Screen Name : Blood 225ãã' -- New in version 1.1 --ã' * Incredible speed increase!ã' * Italic font added!ã' * Very fast loadingããã' This is a simple font demonstration. Feel free to use the routines, butã' you'll have to understand how they work before you can copy them, or atã' least put forth a little effort into understanding them. Or else oddsã' are they probably won't do what you want them to. This font doesn'tã' include the extended characters (129-255) because we think it's a wasteã' of disk space for trivial use of certain characters. If, however, youã' want to change that, you can easily edit the MakeFont routine. Also, ifã' you think about it, the basefont data file is WAY too big (the 64 bytesã' we use for one letter can be reduced to 8) but it works and it wouldã' be too big of a headache to change it. Oh yeah, using these routinesã' and claiming them to be your own is strictly forbidden!ãã' This font routine features the following :ã' * Uses up to 63 colors per letterã' * Evenly shades each letterã' * Scalability (is that even a word?)ã' * Extremely fast for QBasic (Well, except for italics)ã' * More styles can be easily addedã' * The routine itself is pretty small, because it's not a whole bunchã' of DRAW strings or LINEsããDECLARE SUB GetPress ()ãDECLARE SUB Border ()ãDECLARE SUB Font (text$, XStart%, ystart%, xscale%, Yscale%, Style%, Clr%)ãDECLARE SUB SetPal ()ãDECLARE SUB MakeFont ()ãDECLARE SUB FindFont ()ãã' Instead of *slowly* reading each byte from the font file each timeã' anything is drawn, we'll dump it into a buffer.ãDIM SHARED FontBuf(0) AS STRING * 10368ããCLSãSCREEN 13ãã' If you want to use this routine......ã' Don't pay attention to this stuff, it's just all the page stuff. Theã' only things you need to know are the Font routine and optionally the SetPalã' routine. And the FindFont routine isn't of any importance either. (Well,ã' it's very important to this particular program!)ãããFindFontãCLSãSCREEN 13ãLOCATE 10, 5ãCOLOR 15ãPRINT "Hi. This is boring text, huh?"ãGetPressãCLSãSetPal ' Sets up the colors quicklyãBorder ' Draws the really fancy borderããããFont "Molnar \ Kucalaba Productions", 20, 15, 1, 1, 2, 126ãFont "on the Internet - Visit Today!", 20, 30, 1, 1, 2, 126ãFont "M \ K", 15, 40, 5, 7, 4, 0ãFont "FTP", 80, 100, 6, 3, 3, 190ãFont "ftp://users.aol.com/blood225/", 30, 125, 1, 2, 1, 63ãFont "WWW", 80, 145, 6, 3, 3, 190ãFont "http://members.aol.com/mkwebsite/", 8, 170, 1, 2, 1, 63ãããGetPressãLINE (8, 10)-(304, 190), 0, BF ' Clear the non-border graphicsããFont "There you will find...", 11, 15, 1, 3, 3, 126ãFont "Over a meg of the highest quality", 9, 55, 1, 2, 3, 190ãFont "QBASIC programs available,", 35, 80, 1, 2, 3, 190ãFont "including", 49, 105, 1, 2, 3, 190ãFont "GAMES,", 149, 105, 2, 2, 3, 64ãFont "GRAPHICS DEMOS,", 28, 130, 2, 2, 3, 0ãFont "and", 40, 155, 1, 2, 3, 190ãFont "EXAMPLES!!!", 78, 155, 2, 2, 3, 126ããGetPressãLINE (8, 10)-(304, 190), 0, BF ' Clear the non-border graphicsããFont "VISIT", 38, 15, 6, 6, 3, 126ãFont "US", 108, 68, 6, 6, 3, 126ãFont "TODAY!", 9, 128, 6, 6, 3, 126ããGetPressãLINE (8, 10)-(309, 190), 0, BF ' Clear the non-border graphicsããFont "Coming Soon", 9, 10, 3, 3, 3, 190ãFont "1) Sub Quest", 19, 45, 2, 2, 3, 0ãFont "2) Pieces 2", 19, 65, 2, 2, 3, 126ãFont "3) Fury!!!", 19, 85, 2, 2, 3, 0ãFont "4) Ambush III", 19, 105, 2, 2, 3, 126ãFont "5) Stick Boy", 19, 125, 2, 2, 3, 0ããGetPressãLINE (8, 10)-(309, 190), 0, BF ' Clear the non-border graphicsãFont "Fury v1.0", 25, 10, 3, 3, 4, 126ãFont "* Digitized 256 color graphics!", 8, 50, 1, 1, 2, 190ãFont "* Sound Blaster music & FX", 8, 65, 1, 1, 2, 190ãFont "* Completely mouse-driven", 8, 80, 1, 1, 2, 190ãFont "* 3 levels of mayhem", 8, 95, 1, 1, 2, 190ãFont "* Two different enemies each level", 8, 110, 1, 1, 2, 190ãFont "* Unique soundtrack for each level", 8, 125, 1, 1, 2, 190ãFont "* Numerous Bells & Whistles", 8, 140, 1, 1, 2, 190ãFont "Download a test version today!", 20, 160, 1, 2, 3, 64ãããGetPressãLINE (8, 10)-(309, 190), 0, BF ' Clear the non-border graphicsãFont "Bye!", 60, 20, 6, 7, 3, 63ãFont "=)", 98, 100, 7, 7, 3, 190ããGetPressããCLSãSCREEN 0: WIDTH 80ããCOLOR 0ãSYSTEMãããã' For those interested, here is how the Font routine works:ãã' Font Text$, xstart, ystart, xscale, yscale, style, colorãã' For color, 0 is red, 63 is green, 126 is blue, 190 is purpleã' Of course, that is dependant on how your palette is set up.ãã' 4 styles....ã'ã' 1 = standard. Best with 1 scale factor for x and y. Like normal text, butã' with a calculated blend of 63 shades of a color.ãã' 2 = circular. Looks bubbly, kind of hard to read but still better thanã' boring text. Drawn with Circles, play around with the aspect for coolã' fonts. The bigger it gets the worse it looksãã' 3 = revised 1. Filled 1 style, slower but better with big letters. Noticeã' how this font always uses the maximum amount of colors for better appearance,ã' there's absolutely no "blockiness" at all! Also has kind of a "3D" appearance.ãã' 4 = Italic 3. Pretty impressiveããSUB BorderãFOR x% = 0 TO 32ã Font "$", x% * 10, 0, 1, 1, 1, 0ã Font "$", x% * 10, 190, 1, 1, 1, 0ãNEXTãFOR x% = 1 TO 19ã Font "$", 0, x% * 10, 1, 1, 1, 0ã Font "$", 310, x% * 10, 1, 1, 1, 0ãNEXTãEND SUBããSUB FindFontãOPEN "basefont.dat" FOR BINARY AS #1ã IF LOF(1) < 2 THENã NoFile% = 1ã END IFã ' If the file is there, load all the crap into the bufferã IF NoFile% <> 1 THEN GET #1, , FontBuf(0)ãCLOSE #1ãIF NoFile% THENã KILL "basefont.dat"ã CLSã SCREEN 0ã WIDTH 80ã PRINT "We couldn't find the font data file!!"ã PRINT "Luckily for you, we can make one if you want"ã PRINT "to see the demo (hint : it's worth it!)"ã PRINTã PRINT "So, should we make the font data file?"ã PRINT "1) Yes"ã PRINT "2) No"ã INPUT Choice%ã IF Choice% <> 1 THENã PRINT "Fine, be that way!"ã GetPressã SYSTEMã ELSEã PRINT "Hit a key to make the file...it shouldn't take too long."ã PRINT "Oh yeah, don't go ballistic when you hear a beep, that's just"ã PRINT "the seventh character of 128!"ã GetPressã MakeFontã END IFãEND IFãEND SUBããSUB Font (text$, XStart%, ystart%, xscale%, Yscale%, Style%, Clr%)ããpx% = XStart% ' physical x and physical yãpy% = ystart%ããLHeight% = Yscale% * 8ãOptimize% = 63 \ LHeight% ' Any constant math operations done multipe timesã ' in the main loop should, well, not be doneã ' in the main loop.ããã' Instead of wasting our time with all this MID$ garbage to access bytes inã' font buffer, we'll just take a PEEK directly at them.ãDEF SEG = VARSEG(FontBuf(0))ãã FOR h% = 1 TO LEN(text$)ã FPtr% = 81 * (ASC(MID$(text$, h%, 1)) - 1) - 1ã FOR x% = 0 TO 8ã FOR y% = 0 TO 8ã ã Col% = PEEK(VARPTR(FontBuf(0)) + FPtr%)ã FPtr% = FPtr% + 1ã IF Col% THENã SELECT CASE Style%ã ' If you desire a y scale factor greater than 8, youã ' must change the division to higher precision...very slow.ã ' Or, you could find a way around it.ã CASE 1: PSET (px%, py%), Optimize% * (py% - ystart%) + Clr%ã LINE (px%, py%)-(px%, py% + Yscale%), Optimize% * (py% - ystart%) + Clr%ã ' Notice how this style only uses 54 colors, so you can see the topã ' of the letters where they would normally be blackã CASE 2: CIRCLE (px%, py%), Yscale%, (54 \ LHeight%) * (py% - ystart%) + Clr% + 9, , , 4ã CASE 3: FOR sty% = px% TO px% + xscale%ã FOR sty2% = py% TO py% + Yscale%ã PSET (sty%, sty2%), Optimize% * (sty2% - ystart%) + Clr%ã IF POINT(sty% - 1, sty2%) = 0 THEN PSET (sty% - 1, sty2%), 63 + Clr% - 1ã IF POINT(sty%, sty2% - 1) = 0 THEN PSET (sty%, sty2% - 1), 63 + Clr% - 1ã NEXTã NEXTã CASE 4: FOR sty% = px% TO px% + xscale%ã FOR sty2% = py% TO py% + Yscale%ã PSET (sty% + .4 * sty2%, sty2%), Optimize% * (sty2% - ystart%) + Clr%ã IF POINT((sty% - 1) + .4 * sty2%, sty2%) = 0 THEN PSET ((sty% - 1) + .4 * sty2%, sty2%), 63 + Clr% - 1ã NEXTã NEXTãã END SELECTã END IFã py% = py% + Yscale%ã NEXTã px% = px% + xscale%ã py% = ystart%ã NEXTã NEXT h%ãDEF SEGãEND SUBããSUB GetPressãDOãaa$ = INKEY$ãLOOP UNTIL aa$ <> ""ãEND SUBããSUB MakeFontãOPEN "basefont.dat" FOR BINARY AS #1ã' Hey, change 128 to 255 for the full font.ãCLSãSCREEN 13ãCOLOR 16ãFOR ascii% = 1 TO 128ã CLSã PRINT CHR$(ascii%)ã FOR x = 0 TO 8ã FOR y = 0 TO 8ã pnt$ = CHR$(POINT(x, y))ã PUT #1, , pnt$ã pnt$ = ""ã NEXTã NEXTãNEXTãCLOSEãOPEN "basefont.dat" FOR BINARY AS #1ã GET #1, , FontBuf(0)ãCLOSE #1ãEND SUBããSUB SetPalãFOR x% = 1 TO 63ã OUT &H3C8, x%ã OUT &H3C9, x%ã OUT &H3C9, 0ã OUT &H3C9, 0ãNEXTãFOR x% = 64 TO 126ã OUT &H3C8, x%ã OUT &H3C9, 0ã OUT &H3C9, x%ã OUT &H3C9, 0ãNEXTãFOR x% = 127 TO 189ã OUT &H3C8, x%ã OUT &H3C9, 0ã OUT &H3C9, 0ã OUT &H3C9, x%ãNEXTãFOR x% = 190 TO 252ã OUT &H3C8, x%ã OUT &H3C9, x%ã OUT &H3C9, 0ã OUT &H3C9, x%ãNEXTãFOR x% = 253 TO 255ã OUT &H3C8, x%ã OUT &H3C9, x%ã OUT &H3C9, x%ã OUT &H3C9, x%ãNEXTããEND SUBããSteven Sensarn SPRITE EDITOR V2.0 geocities.com/TimesSquare/2609 12-27-95 (15:01) QB, QBasic, PDS 131 8675 SPREDIT.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"SPRDT.ZIP",4^6:Z&=6240:?STRING$(50,177);ãU"%up()%/%+%#+%\GnjDDe6>/V2.%%FR%%%0%%%%xu%wnyj%WSgfCx0/J%,+#+'41ãU"p(%.,0.%0.,;%,-+*%+,+*%[,;<%0/+-%/0*+%:)+<%*/-*%+:+/%J+-,%=/,/%ãU"-0,0%)J)J%)/+)%*9*.%Y,+<[.?Puuuutt't10Q%0Q0a[0QP%%1&GH%9:[\h7XiãU"T%a*+7mH9^oYep07Bnc&Igr40TR52HR#fXv*KtqlãU"gsX?G1vK2^*lfua8I_YW]0fkwo*\q%1TfNiEc=k3)2]]$fT.=#3o4mb=$xfI1MaãU"^8WM0reA?iCRFkv]?D*0\rus(q[DIpP3_NWuLjId>/f8YsCMq^+5NS>L/\ãU"l>M%/XX/_k]YGs9?AG9xV+0WIF0n+Yg3(XãU"Q.RrMKtlRH?X0pL9Rj>NcVGD)QxB>D)N5kv,#$B4'x]9j]>vYO(vcsMj/epQWI*Ns%mT:t']\0%;:4wtM(Ts(O>P/9ãU"u6#nKV8yz7t+*\.Rj=x_qrJ2Qx^F8)mrLbb]+ãU"2xr3JB3#C%3:WTgQQ%l72jk8\u7W2KBW^Vs]6WãU"_L0/W.VKeo+v&N7H?B\,^vHvbIU$dk/[mD2_=]Q8$I]ãU"X+>W*B2iKq9X9<og%)rrgãU"L.qw'l4QkxhhurbJlM.Tnitnr_$n]EWUY[uE+k$D']Zo31k3L,m9A]p1W8F'p^qãU"MIw]cn3ww'JUd$#$dXj]qI_j/bsK7tlqMpXY3h$NJLn0rw7%lc__G'g)+?YcfO]ãU".])UPPUEd$+(%).k4D]qv5euoTRE#C^LrJXL(B#Sd6s;Uk,310S13AV32A+t;XtãU"NoeBnqx%95]U[rwaGQfhLK>5>1*jeo3fI2GCzbM0LbT7^MNMBkp5:PA]C1aa\s]ãU"/)1gi/Ce#3fgX7AYU]orf;)->2ZcWP&Le8o$ezagHZ)1.&[pmUf7;?ãU"1enB*2>6Y=H3*?3AV$ZPiYsFnr=_]^IiH=Z-mH<\9ER/AqFtIqu9#$[_Cl(9O#:ãU"_Vc$fc4fx4a4y4/AZ?dGyZ]:/LE'TF)S_]9ZC0BtY%W=vãU"CM9+_caIDqphvQLi)RJ0g=D-[E'4?/e[RCsn>+E^H5x#XH\CrAj'>hv]X7pTMHtãU"hmO-xQc[F9SzY#LsL]G#Z8goLCEZ'+si'^kD>#+f\mU-_*H#H=O$I)u-Y7',kq6ãU";l]?bkd#xLPRnD_4Qglh)4uX-__>#AãU"1X#V/aO[?x^j'J?LdD]\K)#,3lri3]g.,RBIDlfJEaãU"GwX*Lqhqmn&Q=K5ON5sC63BY.[e;yN'f_Ca82K2:^_2'CBdXK_MUZ/qdUBifKO0ãU"5Wk%Yn\Ce#\tM_cg+/iy4<9BY]DB-zaJ8G).y$eV^YA?,$09Bv?e[NH^P&A_Uv>ãU".8mMk.PsS[>yB?8B]j$dgwZ&4hlvGU_gJw1ocXo1i4Sr:zX9P)Ld-Mc((7J:[wNãU"2&D&si_B'2ak0PIs&QQ_67hk?aa.TKrVHgJEr-7uI(Y]FGJ9P3UQ>0:qOPITe8%ãU"STMg'0Lkgb>c''Mjt=qrRDBcE:O\sl90^pYCKU(kH)L99&VEMDOPAV_5)T>CiQRãU"42xE/p0:1P&Yxd,,iO'1B-2]V+O-2s'K+kRLoWIZ^M4y*1-+Wk^*ZeE^+Z3JDw-ãU"61'[:v>BD)qWUkV_s>S^>^?#A+^2#*LS?37]MGH9-O7[ãU".crhi'R=BFJ1Dk]B#Z5*H:T#=#>M9tSU+-\;If:obiM9*?bne[]J9'5)1q/[Ga1ãU"D*aVFj%fSZU3_un5Yi]5g53)>JaAN+kqwVHiãU"dMQGDH?3Hj/?$YãU"WKgjLN_yadjX7x=I4J)7GF$Bk_]MPGE-d0j-J(FwNiArs]g/Kd\ãU"8(OhI+pY*[p6(bWl9Z9Tft4I(3ga*U;4G,W2G-e;NUXhP46VQlQ]sCv>T30zYZYãU">zSW+AWrwT=j&'dk&hFCCgJw?R5*391Iu^RiAaga#i,[,o%Ul5)$7=9J1E4-Kh/ãU"7xbHr9R+5*r/4z5E]yh(Fl]1%ZLm\BT]j8xkEp=mm_1?l5>Sl14G>#v3ãU"#*r^lHC9WJ%o10Aa=ITeq8E5+m3XeP=2zOo*XgI4y''S3)H'Vtt%eLZ>^Com;GRãU"Jm3C,rs%&%U?s^WRvXBZL_Khmnl:flXQJGZlXRfJU*Zf&>3NY$Sm#7N<5G4_]#,9Z'#et#hW&Rf=mC2nsAOWR;vuxQ\ãU"w:E9hBHKShOIT-YblRB]g'gL\luD_=W=uZ<[Ju6fF#UC#8&;'YMUXe,k&1]*L/bãU"i$p5C7uLA3$DG4jmip%xrtTNI$bi3[8R1%up()%/%+%R+%04&fDo^$#xW]ndãU"gY?Mr[VA$^SC4aYbbg#[iX./<$\jlYzVg3fxBRZl^gHGZ'vVQVd,\AAt=>]-3MaãU"D0_KQ\[DsWp$cv))volTS3K0M_yR*aC'a1<=$Cl9SAgbQiwVj^4fDUMA_%R.$:sãU"rFfc3)<%pv4N&IsCaht3%T^Fn]BtASJ$i9.bVA7xRSF=K1HY.+x%yEB8c-Ged4IãU"-3%af/fT7imZhd#Z'pc4\?[[mL<5K-2xC(m6D]_\S9m^fYãU"D-cx:0Sb_C&%nl2OFU&8\R,e*Er47%4Hof2U*AOw^?ei*xL_/DHYST#KH$YT30;ãU"[/FAiYS+I/q+GB=8-?ee*2)N=(b&G0627d%4)*8k=gO/0NeZK_7(D5eu1Q):*)2ãU"EDdL5+:Z_CCCuYGsf40G<4'(4%0OrWP4,9y:\GpDbBd&vKE1_(x;'/fB])[gIR3ãU"2S[^4-$;dj9_O:?sxfjo+%(%A4%%%0%%%%xuw%nyjx.Sy'yMt&(^BT]7M:zSP)&,2Ssr9q947Us'g85z#&ãU"k_rKIn-QF2?73Gp*7CFjd5QCBrOR>:^*D4l0l*0(wC,fJ0\(pCZSaf&6J/Ij?d:ãU")dUBy5Dp>zUFug'OpaNIj_PODOlVg%\TjBhNs?^Pe;_R3/Eo&[Y]wkq+#Q./=vtãU"x'IcdtOnpSax2-&kh]UZ22Pueh>OdvP.jAn='(E]5\:z<4I1ex-^^mpOPNr*78^ãU"NX^RopS%=AyaW%:#4%H'Pu2kL3Evj0+%6Ms88g](jigrDq]wZIg;g77e8n3Ci,pãU"0%Qf>lM:,9KF3RU934BLEK%-3UYF(b$M?.f90voq'K;f-EP3r;>Gt87[I#zekX_ãU"MDUWtv)E4cJ:H+*3OuM_:pT1kLf%2]]1;#kGmdhSRA4'lx.o^p:F,b:oo9)-%rAãU"+BA2D/AD5Q-+YG8u7U8(W+#7[[H3q/qqTP;F8LLS#xq5v*?kbLfh'M0SãU"grI7'pb(C$1JhRK2J5%&,xhB2g<$j;_H9Lnw&HKkE]g;-t%0ZFlRe/YLq(>u8]2ãU"?q^Z[z&B'i=-QW&S/NJ&ynL(Rml8uUTZ/5%MU7M>[;)p*bkap+ChMHKPsj2:'9<ãU"uaHEd31]ysIt^HoxcJ-OxG]:c6Ab[g(i.98n83Z1=4l7.(3YlHg1AS2v)XZF=O_ãU"Nv5Zq6fE&J:l0)Cd5?DsH/mtXK>i&pRNwVj=A*qYC&pLZ1Q#/m$guKohUw2eo&mãU"3Ec)67CPvjS-J7VbKiNlS5T6y5:bZ,dRW\p9ZQ(iDn/NM3+;sMHYf22%fABlEVeãU"LzsB[+3'Yujb$?Hiis67'iu6vec;zAWTG,DpYa?;ãU"#c'J0c7JG./]7x5'Xe*LlKMQ'W0H3pEJ/]UV#iHãU"VuDWt4X)WX0I?DvB5GrG2or9Xv?dkm_-HK&aKuN]5eZQVW^WPAT\Ua0-.Jo.A%iSAI%48qhWdlOe?SeLNH*MOf%y[4j;]G6wKãU"VBwweVdq1+Mrs9+PV]a$lw2AN(Qi$;(7arAlK&q#)qxea51,7$v%7XrB=?oqF/lqu^iB\ub7E#-R_L#tolZ7#%H.4ULUiCNLK3=1wcduRO3O\>&l_B>+tEãU"?qaOF2B(-kL>c35hsAf:#okhmvb:SC1bQm5#Zosl1n6.VAvtoR46TQd8,VBGmd-ãU"Jb*)X_rvQ#[Hn7=uK/kLp]iv;6VjA:R[8cf9I-_'P+Q98$:&E2^j0WPHnBBS;GtãU"V3.ozpy.MeQFb]ubmt27cQ2VrJETb(1BAãU".er#c3qHNfT97:\oh0h%[HV.DPng'Q:9LB8^-J4%CArU3i4W/K]7&HdwB%JUzrjãU"k,=/3,U^HI&1*Wb75'edYkQBX??Z2;2'fm=44=iwnkYnH&wigT]IhZ'[aMFcEC0ãU"^[ncFBLVq6Er?_(h_66e.uo0OTH+fWFm,L4P6e(44SpawDa+1Wt,&Ia3WLPV70mãU"wwZZ\Z21%U[bqpG3Hmh\LQ]O7hhi_yNf$h>tOLCH=B7[CMZmznPh3Rd\[]Dg?q(ãU"G\J.M5M48%u-1Wn/z;7N;-A0gPfox8:fZ3uv]^.=N[>>('R#agQ3n,9rpwa8k)?ãU"Hj9=%[]b2Z#1&Lv'^-I*uBOmpMI+Y%9c4>*wT)M^mB:MahX4<)7&lUY0OZO^g&6ãU"]D).kv8l>hsK35oxD_u.fVP=3q7dEbr]]>mLH>(JIU*V[9jlPQ:KW^'rQHo,^?iãU"%tup&%'9%/%%+%+I%\GjsDDe>*/V2%(%FR%%%0%%%%%%%%%&%E%%%%%%%%%x%uwãU"ny%jWSg%fxup%&'9%%/%+%R+%04&fDo^+%(%A4%%%0%%%%%%%%%&%ãU"E[%%%,%5%%x%uwny%jxSy&'yup%*+%%%%%(%.(%x%.%%p<%%%%%ãEND SUBãCLOSE:IF S=105AND 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ãDouglas H. Lusher 320X400X256 VGA MODEX (COMPILE)FidoNet QUIK_BAS Echo 06-16-96 (22:49) QB, PDS 332 12622 VGAMODEX.BAS'Hello, everyone!ã'Here's some code that might be of interest to some of you.ã'This code puts the VGA into MODEX - 320x400 with 256 colors.ã'I have also supplied code to write pixels, read a pixel,ã'clear the screen, print text, save a screen image (completeã'with the palette) to a single file, and restore a savedã'screen and its palette from a file.ã'Some of you may have noticed Earl Montgomery posting codeã'that would put the VGA into this mode. Be aware that thereã'are different ways of arranging video memory in this modeã'and the VGA will not operate the same way using this codeã'as it does using his code.ã'The advantage of this method is that there are twoã'(Count 'em! TWO!) video pages available which might be usedã'for animation. This code has been written so that you canã'read or write to either page and I have included code thatã'lets you flip between them.ã'Here is a brief(!) description of the memory arrangementsã'when using this code. Since there are 256 colors possible,ã'each pixel requires a byte of video memory. On the basicã'VGA card there is 256K of memory arranged as four planesã'of 64K bytes each. In this mode, the first pixel (0,0) isã'the first byte of plane 0; pixel (1,0) is the first byteã'of plane 1; pixel (2,0) is the first byte of plane 2; pixelã'(3,0) is the first byte of plane 3; pixel (4,0) is the secondã'byte of plane 0; etc. Thus the address of any pixel is givenã'by the formula: Address = (Y * 80) + (X \ 4) and the planeã'is: Plane = X MOD 4. To access a pixel for reading or writing,ã'one need only select the proper plane and then peek or pokeã'at the appropriate address. This makes screen writing in thisã'mode a very rapid operation. Since only 32,000 bytes of eachã'plane are required under this arrangement, there is plenty ofã'room left for a second screen page beginning at offset 32678.ã'This is most easily accomplished by using a DEF SEG = &HA800ã'for the second page and then addresses remain the same for theã'second page as for the first (which uses DEF SEG = &HA000).ã'==============================================================ã'Note that this code *must* be compiled in order to run.ã'This is due to the two SUBs whose DECLARE statements containã'the word "ALIAS". These cannot be used in the environment andã'the operation of the screen save and restore subs depend onã'them. If you *must* have this capability in the QB environment,ã'I have SUBs that will accomplish these tasks without usingã'the QB internal routines and will post them if it is requested,ã'however they are quite a bit longer.ã'Please note also that two of the DECLAREs have been broken inã'half because they were too long to fit on a single line. Theyã'will have to be restored before compiling.ã'I would appreciate any comments or bug reports that anyone wouldã'be willing to share. Thanks.ãã DECLARE SUB Set320x400mode ()ã DECLARE SUB XCLS (Page%)ã DECLARE SUB ShowPage (Page%)ã DECLARE SUB PutPixel (X%, Y%, Culler%, Page%)ã DECLARE SUB GetPixel (X%, Y%, Culler%, Page%)ã DECLARE SUB XPRINT (X%, Y%, Text$, Culler%, Page%)ã DECLARE SUB XScrn2File (FileName$, Page%)ã DECLARE SUB XFile2Scrn (FileName$, Page%)ã DECLARE SUB QBPUT3 ALIAS "B$PUT3" (BYVAL FileNumber%, BYVAL Segment%, BYVAL Address%, BYVAL NumBytes%)ã DECLARE SUB QBGET3 ALIAS "B$GET3" (BYVAL FileNumber%, BYVAL Segment%, BYVAL Address%, BYVAL NumBytes%)ã DEFINT A-Zã DIM BitMask%(7)ã FOR Bit% = 0 TO 7: BitMask%(Bit%) = 2 ^ Bit%: NEXTã File0$ = "TEST0.S2F": File1$ = "TEST1.S2F"ã CALL Set320x400modeã CALL XPRINT(40, 0, "Hello from PAGE 0", 4, 0)ã FOR Y% = 16 TO 399ã C% = Y% \ 8 + 16ã FOR X% = 0 TO 319ã CALL PutPixel(X%, Y%, C%, 0)ã NEXTã NEXTã CALL XScrn2File(File0$, 0)ã CALL ShowPage(1)ã CALL XPRINT(50, 300, "Press any key.", 0, 0)ã CALL XPRINT(40, 0, "Hello from PAGE 1", 2, 1)ã FOR X% = 0 TO 319ã C% = X% \ 8 + 16ã FOR Y% = 16 TO 399ã CALL PutPixel(X%, Y%, C%, 1)ã NEXTã NEXTã CALL XScrn2File(File1$, 1)ã CALL ShowPage(0)ã CALL XPRINT(50, 300, "Press any key.", 0, 1)ã SLEEP 2ã DO UNTIL LEN(INKEY$)ã CALL ShowPage(1): SLEEP 2ã CALL ShowPage(0): SLEEP 2ã LOOPãã CALL ShowPage(0)ã DOã CALL XCLS(0)ã CALL XPRINT(0,0,"Indicate which page to restore: (0/1) ",15,0)ã A$ = INPUT$(1)ã SELECT CASE A$ã CASE "0": CALL XFile2Scrn(File0$, 0)ã CASE "1": CALL XFile2Scrn(File1$, 0)ã CASE CHR$(27): EXIT DOã END SELECTã CALL XPRINT(50, 280, "Press ESC to exit.", 0, 0)ã CALL XPRINT(50, 300, "Press any other key to continue.", 0, 0)ã A$ = INPUT$(1): IF A$ = CHR$(27) THEN EXIT DOã LOOPãã SCREEN 0: WIDTH 80ã ENDãã SUB GetPixel (X%, Y%, Culler%, Page%)ã 'this is code to read the color of a pixel in MODEX 320x400x256ã 'this code is based on ASM code written by Michael Abrashã ' and published in 1989 Programmer's Journal 7.1ã 'by Douglas H. Lusher - June 15, 1996ã Segment% = &HA000ã IF Page% THEN Segment% = &HA800ã OUT &H3CE, 4 'select the Read Map Select Registerã OUT &H3CF, X% AND 3 'indicate the bit plane desiredã DEF SEG = Segment%ã Culler% = PEEK((Y% * 80) + (X% \ 4))ã END SUBãã SUB PutPixel (X%, Y%, Culler%, Page%)ã 'this is code to write a pixel in MODEX 320x400x256ã 'this code is based on ASM code written by Michael Abrashã ' and published in 1989 Programmer's Journal 7.1ã 'by Douglas H. Lusher - June 15, 1996ã SHARED BitMask%()ã Segment% = &HA000ã IF Page% THEN Segment% = &HA800ã OUT &H3C4, 2 'select the Map Mask Registerã OUT &H3C5, BitMask%(X% AND 3) 'indicate the desired bit planeã DEF SEG = Segment%ã POKE (Y% * 80) + (X% \ 4), Culler%ã END SUBãã SUB Set320x400modeã 'the following code sets the VGA to 320x400x256 modeã 'this is a translation from ASM code written by Michael Abrashã ' and published in 1989 Programmer's Journal 7.1ã 'by Douglas H. Lusher - June 15, 1996ã 'start with basic SCREEN 13ã SCREEN 13ã 'change the CPU addressing of video memory to linear (not odd/even,ã 'chain, or chain 4) to allow access to all 256K of display memory.ã SCI% = &H3C4 'the Sequence Controller Index registerã MemoryMode% = 4 'memory mode register indexã OUT SCI%, MemoryMode%ã X% = INP(&H3C5)ã X% = X% AND NOT &H8 'turn off chain 4ã X% = X% OR &H4 'turn off odd/evenã OUT &H3C5, X%ãã GCI% = &H3CE 'the Graphics Controller Index registerã GraphicsMode% = 5 'graphics mode register indexã OUT GCI%, GraphicsMode%ã X% = INP(&H3CF)ã X% = X% AND NOT &H10 'turn off odd/evenã OUT &H3CF, X%ãã Miscellaneous% = 6 'miscellaneous register indexã OUT GCI%, Miscellaneous%ã X% = INP(&H3CF)ã X% = X% AND NOT &H2 'turn off chainã OUT &H3CF, X%ãã 'clear all of video memory - setting mode 13 only cleared 64Kã 'of video memory. Do this before switching the crt out of mode 13ã 'so that garbage does not appear on the screen when the switchã 'is made.ã MapMask% = 2ã OUT SCI%, MapMask%ã OUT &H3C5, &HFã DEF SEG = &HA000 'clear page 0ã FOR Ptr% = 0 TO 31999: POKE Ptr%, 0: NEXTã DEF SEG = &HA800 'clear page 1ã FOR Ptr% = 0 TO 31999: POKE Ptr%, 0: NEXTãã 'tweak the mode to 320x400x256 by not scanning each line twiceã CRTCI% = &H3D4 'the CRT Controller Index registerã MaxScanLine% = 9 'maximum scan line register indexã OUT CRTCI%, MaxScanLine%ã X% = INP(&H3D5)ã X% = X% AND NOT &H1F 'set max scan line = 0ã OUT &H3D5, X%ãã 'change CRTC scanning from doubleword mode to byte mode, allowingã 'the CRTC to scan more than 64K of video dataã Underline% = &H14 'underline location register indexã OUT CRTCI%, Underline%ã X% = INP(&H3D5)ã X% = X% AND NOT &H40 'turn off doublewordã OUT &H3D5, X%ãã ModeControl% = &H17 'mode control register indexã OUT CRTCI%, ModeControl%ã X% = INP(&H3D5)ã X% = X% OR &H40 'turn on the byte mode bit, so memory isã 'video memory is scanned linearly, just asã 'in modes &H10 and &H12ã OUT &H3D5, X%ã END SUBãã SUB ShowPage (Page%)ã 'this code displays the specified page in MODEX - 320x400x256ã 'by Douglas H. Lusher - June 16, 1996ã SELECT CASE Page%ã CASE 0 'display page 0ã OUT &H3D4, &HC: OUT &H3D5, 0ã CASE 1 'display page 1ã OUT &H3D4, &HC: OUT &H3D5, &H80ã CASE ELSEã ERROR 5 'illegal function callã END SELECTã END SUBãã SUB XCLS (Page%)ã 'this is code to clear the screen in MODE X - 320x400x256ã 'by Douglas H. Lusher - June 16, 1996ã SHARED BitMask%()ã 'turn off the screen while it is being erasedã OUT &H3C4, 1: CMR% = INP(&H3C5): OUT &H3C5, CMR% OR &H20ã Segment% = &HA000: IF Page% THEN Segment% = &HA800ã DEF SEG = Segment%ã OUT &H3C4, 2 'select the Map Mask Registerã FOR Plane% = 0 TO 3ã OUT &H3C5, BitMask%(Plane%) 'indicate the desired bit planeã FOR Address% = 0 TO 31999: POKE Address%, 0: NEXTã NEXTã 'turn the screen back on...ã OUT &H3C4, 1: CMR% = INP(&H3C5): OUT &H3C5, CMR% AND &HDFã END SUBãã SUB XFile2Scrn (FileName$, Page%)ã 'this code loads a screen image (including the palette) fromã ' the specified file and displays it on the specified screenã ' page in MODEX - 320x400x256ã 'NOTE: this CANNOT be run in the QB45 environment, it must beã ' compiled and this DECLARE statement must appear in the code:ã 'DECLARE SUB QBGET3 ALIAS "B$GET3" (BYVAL FileNumber%, BYVAL Segment%, BYVAL Address%, BYVAL NumBytes%)ã 'by Douglas H. Lusher - June 16, 1996ã SHARED BitMask%()ã Bytes% = 32000 '(320 * 400) \ 4ã ColorRegs% = 768 'the number of colors * 3ã Segment% = &HA000ã IF Page% THEN Segment% = &HA800ã OUT &H3C8, 0 'blank the screenã FOR X% = 1 TO ColorRegs%: OUT &H3C9, 0: NEXTã File% = FREEFILEã OPEN FileName$ FOR BINARY AS File%ã FOR X% = 0 TO 3ã OUT &H3C4, 2 'select the Map Mask Registerã OUT &H3C5, BitMask%(X%) 'indicate the bit plane to restoreã CALL QBGET3(File%, Segment%, 0, Bytes%)ã NEXTã P$ = SPACE$(ColorRegs%)ã Segment% = VARSEG(P$): Offset% = SADD(P$)ã CALL QBGET3(File%, Segment%, Offset%, ColorRegs%)ã CLOSE File%ã DEF SEG = Segment%ã OUT &H3C8, 0ã FOR X% = Offset% TO Offset% + ColorRegs% - 1ã OUT &H3C9, PEEK(X%)ã NEXTã END SUBãã SUB XPRINT (X%, Y%, Text$, Culler%, Page%)ã 'this is code to print text in MODEX - 320x400x256ã 'by Douglas H. Lusher - June 15, 1996ã SHARED BitMask%()ã ' 8 x 8 char box, CGAã 'CharSegment% = &HFFA6: CharOffset% = &HEã 'CharWid% = 8: CharHgt% = 8ã ' 8 x 14 char box, EGAã CharSegment% = &HC000: CharOffset% = &H4ED5ã CharWid% = 8: CharHgt% = 14ã ' 8 x 16 char box, VGAã 'DIM Regs AS RegTypeXã 'Regs.AX = &H1130ã 'Regs.BX = &H600ã 'CALL InterruptX(&H10, Regs, Regs)ã 'CharSegment% = Regs.ES: CharOffset% = Regs.BPã 'CharWid% = 8: CharHgt% = 16ãã XX% = X% - 1ã FOR Char% = 1 TO LEN(Text$)ã XX% = XX% + CharWid%ã YY% = Y%ã Ptr% = CharHgt% * ASC(MID$(Text$, Char%, 1)) + CharOffset%ã FOR Ln% = 0 TO CharHgt% - 1ã DEF SEG = CharSegment%ã BitPattern% = PEEK(Ptr% + Ln%)ã FOR Bit% = 0 TO 7ã IF BitPattern% AND BitMask%(Bit%) THENã CALL PutPixel(XX% - Bit%, YY%, Culler%, Page%)ã END IFã NEXTã YY% = YY% + 1ã NEXTã NEXTã END SUBãã SUB XScrn2File (FileName$, Page%)ã 'this code saves a screen image (including the palette) fromã ' the specified screen page and saves it to the specified fileã ' in MODEX - 320x400x256ã 'NOTE: this CANNOT be run in the QB45 environment, it must beã ' compiled and this DECLARE statement must appear in the code:ã 'DECLARE SUB QBPUT3 ALIAS "B$PUT3" (BYVAL FileNumber%, BYVAL Segment%, BYVAL Address%, BYVAL NumBytes%)ã 'by Douglas H. Lusher - June 16, 1996ã Bytes% = 32000 '(320 * 400) \ 4 = 30,000 bytesã ColorRegs% = 768 'the number of colors * 3ã Segment% = &HA000ã IF Page% THEN Segment% = &HA800ã File% = FREEFILEã OPEN FileName$ FOR BINARY AS File%ã FOR X% = 0 TO 3ã OUT &H3CE, 4 'select the Read Map Select Registerã OUT &H3CF, X% 'indicate the bit plane to saveã CALL QBPUT3(File%, Segment%, 0, Bytes%)ã NEXTã P$ = SPACE$(ColorRegs%)ã Segment% = VARSEG(P$): Offset% = SADD(P$)ã DEF SEG = Segment%ã OUT &H3C7, 0ã FOR X% = Offset% TO Offset% + ColorRegs% - 1ã POKE X%, INP(&H3C9)ã NEXTã CALL QBPUT3(File%, Segment%, Offset%, ColorRegs%)ã CLOSE File%ã END SUBãDouglas H. Lusher 320X400X256 MODEX (ENVIRONMENT)FidoNet QUIK_BAS Echo 06-22-96 (08:34) QB, PDS 351 10852 320X400E.BAS'Here is code for Mode X - 320x400x256 that will run in theã'environment.ãã DEFINT A-Zã '$INCLUDE: 'QB.BI'ã DIM BitMask%(7)ã FOR Bit% = 0 TO 7: BitMask%(Bit%) = 2 ^ Bit%: NEXTã File0$ = "C:\TEST0.S2F": File1$ = "C:\TEST1.S2F"ã CALL Set320x400modeã CALL XPRINT(40, 0, "Hello from PAGE 0", 4, 0)ã FOR Y% = 16 TO 399ã C% = Y% \ 8 + 16ã FOR X% = 0 TO 319ã CALL PutPixel(X%, Y%, C%, 0)ã NEXTã NEXTã CALL XScrn2File(File0$, 0)ã CALL ShowPage(1)ã CALL XPRINT(50, 300, "Press any key.", 0, 0)ã CALL XPRINT(40, 0, "Hello from PAGE 1", 2, 1)ã FOR X% = 0 TO 319ã C% = X% \ 8 + 16ã FOR Y% = 16 TO 399ã CALL PutPixel(X%, Y%, C%, 1)ã NEXTã NEXTã CALL XScrn2File(File1$, 1)ã CALL ShowPage(0)ã CALL XPRINT(50, 300, "Press any key.", 0, 1)ã SLEEP 2ã DO UNTIL LEN(INKEY$)ã CALL ShowPage(1): SLEEP 2ã CALL ShowPage(0): SLEEP 2ã LOOPãã CALL ShowPage(0)ã DOã CALL XCLS(0)ã CALL XPRINT(0, 0, "Indicate which page to restore: (0/1) ", 15, 0)ã A$ = INPUT$(1)ã SELECT CASE A$ã CASE "0": CALL XFile2Scrn(File0$, 0)ã CASE "1": CALL XFile2Scrn(File1$, 0)ã CASE CHR$(27): EXIT DOã END SELECTã CALL XPRINT(50, 280, "Press ESC to exit.", 0, 0)ã CALL XPRINT(50, 300, "Press any other key to continue.", 0, 0)ã A$ = INPUT$(1): IF A$ = CHR$(27) THEN EXIT DOã LOOPãã EndIt:ã SCREEN 0: WIDTH 80ã ENDãã SUB DOSCloseFile (Handle%)ã DIM Register AS RegTypeã Register.AX = &H3E00ã Register.BX = Handle%ã CALL Interrupt(&H21, Register, Register)ã IF Register.Flags AND 1 THENã SELECT CASE Register.AXã CASE &H6: ERROR 52 'invalid handleã CASE ELSE: ERROR 255ã END SELECTã END IFã END SUBãã SUB DOSCreateFile (FileName$, Handle%)ã DIM Register AS RegTypeXã Temp$ = FileName$ + CHR$(0)ã Register.AX = &H3C00ã Register.CX = 0ã Register.DS = VARSEG(Temp$)ã Register.DX = SADD(Temp$)ã CALL InterruptX(&H21, Register, Register)ã IF Register.Flags AND 1 THENã SELECT CASE Register.AXã CASE &H3: ERROR 76 'path not foundã CASE &H4: ERROR 67 'no handles availableã CASE &H5: ERROR 75 'access deniedã CASE ELSE: ERROR 255ã END SELECTã ELSEã Handle% = Register.AXã END IFã END SUBãã SUB DOSOpenFile (FileName$, Handle%)ã DIM Register AS RegTypeXã Temp$ = FileName$ + CHR$(0)ã Register.AX = &H3D02ã Register.DS = VARSEG(Temp$)ã Register.DX = SADD(Temp$)ã CALL InterruptX(&H21, Register, Register)ã IF Register.Flags AND 1 THENã SELECT CASE Register.AXã CASE &H2: ERROR 53 'file not foundã CASE &H3: ERROR 76 'path not foundã CASE &H4: ERROR 67 'no handles availableã CASE &H5: ERROR 75 'access deniedã CASE ELSE: ERROR 255ã END SELECTã ELSEã Handle% = Register.AXã END IFã END SUBãã SUB GetPixel (X%, Y%, Culler%, Page%)ã 'this is code to read the color of a pixel in MODEX 320x400x256ã 'this code is based on ASM code written by Michael Abrashã ' and published in 1989 Programmer's Journal 7.1ã 'by Douglas H. Lusher - June 15, 1996ã Segment% = &HA000ã IF Page% THEN Segment% = &HA800ã OUT &H3CE, 4 'select the Read Map Select Registerã OUT &H3CF, X% AND 3 'indicate the bit plane desiredã DEF SEG = Segment%ã Culler% = PEEK((Y% * 80) + (X% \ 4))ã END SUBãã SUB PutPixel (X%, Y%, Culler%, Page%)ã 'this is code to write a pixel in MODEX 320x400x256ã 'this code is based on ASM code written by Michael Abrashã ' and published in 1989 Programmer's Journal 7.1ã 'by Douglas H. Lusher - June 15, 1996ã SHARED BitMask%()ã Segment% = &HA000ã IF Page% THEN Segment% = &HA800ã OUT &H3C4, 2 'select the Map Mask Registerã OUT &H3C5, BitMask%(X% AND 3) 'indicate the desired bit planeã DEF SEG = Segment%ã POKE (Y% * 80) + (X% \ 4), Culler%ã END SUBãã SUB Set320x400modeã 'the following code sets the VGA to 320x400x256 modeã 'this is a translation from ASM code written by Michael Abrashã ' and published in 1989 Programmer's Journal 7.1ã 'by Douglas H. Lusher - June 15, 1996ã 'start with basic SCREEN 13ã SCREEN 13ã 'change the CPU addressing of video memory to linear (not odd/even,ã 'chain, or chain 4) to allow access to all 256K of display memory.ã SCI% = &H3C4 'the Sequence Controller Index registerã MemoryMode% = 4 'memory mode register indexã OUT SCI%, MemoryMode%ã X% = INP(&H3C5)ã X% = X% AND NOT &H8 'turn off chain 4ã X% = X% OR &H4 'turn off odd/evenã OUT &H3C5, X%ãã GCI% = &H3CE 'the Graphics Controller Index registerã GraphicsMode% = 5 'graphics mode register indexã OUT GCI%, GraphicsMode%ã X% = INP(&H3CF)ã X% = X% AND NOT &H10 'turn off odd/evenã OUT &H3CF, X%ãã Miscellaneous% = 6 'miscellaneous register indexã OUT GCI%, Miscellaneous%ã X% = INP(&H3CF)ã X% = X% AND NOT &H2 'turn off chainã OUT &H3CF, X%ãã 'clear all of video memory - setting mode 13 only cleared 64Kã 'of video memory. Do this before switching the crt out of mode 13ã 'so that garbage does not appear on the screen when the switchã 'is made.ã MapMask% = 2ã OUT SCI%, MapMask%ã OUT &H3C5, &HFã DEF SEG = &HA000 'clear page 0ã FOR Ptr% = 0 TO 31999: POKE Ptr%, 0: NEXTã DEF SEG = &HA800 'clear page 1ã FOR Ptr% = 0 TO 31999: POKE Ptr%, 0: NEXTãã 'tweak the mode to 320x400x256 by not scanning each line twiceã CRTCI% = &H3D4 'the CRT Controller Index registerã MaxScanLine% = 9 'maximum scan line register indexã OUT CRTCI%, MaxScanLine%ã X% = INP(&H3D5)ã X% = X% AND NOT &H1F 'set max scan line = 0ã OUT &H3D5, X%ãã 'change CRTC scanning from doubleword mode to byte mode, allowingã 'the CRTC to scan more than 64K of video dataã Underline% = &H14 'underline location register indexã OUT CRTCI%, Underline%ã X% = INP(&H3D5)ã X% = X% AND NOT &H40 'turn off doublewordã OUT &H3D5, X%ãã ModeControl% = &H17 'mode control register indexã OUT CRTCI%, ModeControl%ã X% = INP(&H3D5)ã X% = X% OR &H40 'turn on the byte mode bit, so memory isã 'video memory is scanned linearly, just asã 'in modes &H10 and &H12ã OUT &H3D5, X%ã END SUBãã SUB ShowPage (Page%)ã 'this code displays the specified page in MODEX - 320x400x256ã 'by Douglas H. Lusher - June 16, 1996ã SELECT CASE Page%ã CASE 0 'display page 0ã OUT &H3D4, &HC: OUT &H3D5, 0ã CASE 1 'display page 1ã OUT &H3D4, &HC: OUT &H3D5, &H80ã CASE ELSEã ERROR 5 'illegal function callã END SELECTã END SUBãã SUB XCLS (Page%)ã 'this is code to clear the screen in MODE X - 320x400x256ã 'by Douglas H. Lusher - June 16, 1996ã SHARED BitMask%()ã 'turn off the screen while it is being erasedã OUT &H3C4, 1: CMR% = INP(&H3C5): OUT &H3C5, CMR% OR &H20ã Segment% = &HA000: IF Page% THEN Segment% = &HA800ã DEF SEG = Segment%ã OUT &H3C4, 2 'select the Map Mask Registerã FOR Plane% = 0 TO 3ã OUT &H3C5, BitMask%(Plane%) 'indicate the desired bit planeã FOR address% = 0 TO 31999: POKE address%, 0: NEXTã NEXTã 'turn the screen back on...ã OUT &H3C4, 1: CMR% = INP(&H3C5): OUT &H3C5, CMR% AND &HDFã END SUBãã SUB XFile2Scrn (FileName$, Page%)ã SHARED BitMask%()ã DIM Register AS RegTypeXã Bytes% = 32000 '(320 * 400) \ 4ã ColorRegs% = 768 'the number of colors * 3ã Segment% = &HA000ã IF Page% THEN Segment% = &HA800ã OUT &H3C8, 0 'blank the screenã FOR X% = 1 TO ColorRegs%: OUT &H3C9, 0: NEXTã CALL DOSOpenFile(FileName$, Handle%)ã Register.BX = Handle%ã Register.CX = Bytes%ã Register.DS = Segment%ã Register.DX = 0ã FOR X% = 0 TO 3ã Register.AX = &H3F00ã OUT &H3C4, 2 'select the Map Mask Registerã OUT &H3C5, BitMask%(X%) 'indicate the bit plane to restoreã CALL InterruptX(&H21, Register, Register)ã IF Register.Flags AND 1 THENã SELECT CASE Register.AXã CASE &H5: ERROR 75 'access deniedã CASE &H6: ERROR 52 'invalid handleã END SELECTã ELSEIF Register.AX <> Register.CX THENã ' incorrect number of bytes readã ERROR 57 'device i/o errorã END IFã NEXTã CALL DOSCloseFile(Handle%)ã P$ = SPACE$(ColorRegs%)ã File% = FREEFILEã OPEN FileName$ FOR BINARY AS File%ã GET File%, (LOF(File%) + 1) - ColorRegs%, P$ã CLOSE File%ã DEF SEG = VARSEG(P$): Offset% = SADD(P$)ã OUT &H3C8, 0ã FOR X% = Offset% TO Offset% + ColorRegs% - 1ã OUT &H3C9, PEEK(X%)ã NEXTã DEF SEGã END SUBãã SUB XPRINT (X%, Y%, Text$, Culler%, Page%)ã 'this is code to print text in MODEX - 320x400x256ã 'by Douglas H. Lusher - June 15, 1996ã SHARED BitMask%()ãã ' 8 x 8 char box, CGAã 'CharSegment% = &HFFA6: CharOffset% = &HEã 'CharWid% = 8: CharHgt% = 8ãã ' 8 x 14 char box, EGAã CharSegment% = &HC000: CharOffset% = &H4ED5ã CharWid% = 8: CharHgt% = 14ã ' 8 x 16 char box, VGAã 'DIM Regs AS RegTypeXã 'Regs.AX = &H1130ã 'Regs.BX = &H600ã 'CALL InterruptX(&H10, Regs, Regs)ã 'CharSegment% = Regs.ES: CharOffset% = Regs.BPã 'CharWid% = 8: CharHgt% = 16ãã XX% = X% - 1ã FOR Char% = 1 TO LEN(Text$)ã XX% = XX% + CharWid%ã YY% = Y%ã Ptr% = CharHgt% * ASC(MID$(Text$, Char%, 1)) + CharOffset%ã FOR Ln% = 0 TO CharHgt% - 1ã DEF SEG = CharSegment%ã BitPattern% = PEEK(Ptr% + Ln%)ã FOR Bit% = 0 TO 7ã IF BitPattern% AND BitMask%(Bit%) THENã CALL PutPixel(XX% - Bit%, YY%, Culler%, Page%)ã END IFã NEXTã YY% = YY% + 1ã NEXTã NEXTã END SUBãã SUB XScrn2File (FileName$, Page%)ã DIM Register AS RegTypeXã Bytes% = 32000 '(320 * 400) \ 4 = 30,000 bytesã ColorRegs% = 768 'the number of colors * 3ã Segment% = &HA000ã IF Page% THEN Segment% = &HA800ã CALL DOSCreateFile(FileName$, Handle%)ã Register.BX = Handle%ã Register.CX = Bytes%ã Register.DS = Segment%ã Register.DX = 0ã FOR X% = 0 TO 3ã Register.AX = &H4000ã OUT &H3CE, 4 'select the Read Map Select Registerã OUT &H3CF, X% 'indicate the bit plane to saveã CALL InterruptX(&H21, Register, Register)ã IF Register.Flags AND 1 THENã SELECT CASE Register.AXã CASE &H5: ERROR 75 'access deniedã CASE &H6: ERROR 52 'invalid handleã END SELECTã ELSEIF Register.AX <> Register.CX THENã ' incorrect number of bytes writtenã ERROR 57 'device i/o errorã END IFã NEXTã CALL DOSCloseFile(Handle%)ã P$ = SPACE$(ColorRegs%)ã DEF SEG = VARSEG(P$): Offset% = SADD(P$)ã OUT &H3C7, 0ã FOR X% = Offset% TO Offset% + ColorRegs% - 1ã POKE X%, INP(&H3C9)ã NEXTã DEF SEGã File% = FREEFILEã OPEN FileName$ FOR BINARY AS File%ã PUT File%, LOF(File%) + 1, P$ã CLOSE File%ã END SUBãAndy J. Golden STAR TREK COMMUNICATOR PIN YHBV44@prodigy.com 06-14-96 (00:00) QB, QBasic, PDS 55 1847 STPIN.BAS ' Star Trek: The Next Generation - Communicator Pin.ã' BASIC graphics program by Andy Golden - June 14, 1996.ã' This program was not created, approved, licensed,ã' or endorsed by any entity involved in creating orã' producing the Star Trek(R) television series orã' films.ããdim y(5)ãscreen 1ãwindow (-10,-10)-(10,10)ãfor z=1 to 5ã for x=-10 to 10 step .1ã y(1)=-x^2+8ã if x>=0 then y(2)=-x^1.5-1 else y(2)=11ã if x<=0 then y(3)=-abs(x)^1.5-1 else y(3)=11ã y(4)=sqr(49-49*(x^2)/100)-1ã y(5)=-y(4)-2ã pset(x,y(z))ã nextãnextãã' I originally wrote this program on my TI-85 graphingã' calculator in Algebra II class back some time aroundã' February 1996. Then on June 14, 1996, I decided toã' translate it to work with PowerBASIC and QBASIC andã' other BASICs for an IBM compatible PC. The resultã' is the program above. The equations y(2) and y(3)ã' had to be modified because BASIC just can't handleã' imaginary numbers; so I used a cheesy IF/THEN/ELSEã' statement to eliminate them because I just don't feelã' like setting here for a few weeks writing all my ownã' mathematical subroutines and functions to handleã' imaginary numbers. Maybe some other time. :-)ã'ã' Here is what all the equations do:ã' y(1) Draws an archã' y(2) Draws right leg of communicator pinã' y(3) Draws left leg of pinã' y(4) Draws top half of ellipseã' y(5) Draws bottom half of ellipseã'ã' Here is the original program for the TI-85:ã'ã' FnOff Replace the word Square Rootã' Func in equation y4 with theã' AxesOff square root symbol.ã' ClLCDã' ClDrwã' Zstdã' y1=-x^2+8ã' y2=-x^1.5-1ã' y3=-((-x)^1.5)-1ã' y4=Square Root (49-49x^2/100)-1ã' y5=-y4-2ã' FnOnãSteven Sensarn SCROLLING CELL MAP txs53132@bayou.uh.edu 07-08-96 (00:00) QB, QBasic, PDS 50 3227 CELLS.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"CELLS.ZIP",4^6:Z&=2141:?STRING$(50,177);ãU"%up()%9%%%I-%aaf_EBa&yjm%%%%%(%%%.%%%%hj%qqxS[ufqf,a*2%%V-(b8ilãU"lM.91aWahu5m+NuaxMK$b_%4._(*I[KYi/i6^0'_uInRif-/_61DT.7uM^Sfd\%ãU"x6^Rfg*mi,'l'u%p()9%%%%-g%da_jEE1W'QJ'%(%K7%%%.%%%%hjq%qxSiRfyfãU"%2,FREj1&Yqu7Xx+DN(JG'G7E=UE%4M0%4rL)E+TFf2ICX5f(Z(B$/0.1J_0.AOãU"'U'_ISx9FBYN%*YLsC?HK34n2(U4W60EãU"I#e9\,B-W4ei8&_b$)gdb09Ri\01T$d^fHXgYNVO>^M.n9Z%NH3S89Hhab%4XNmz;J*2(kc4Q-FbB=>nvtR?/r=0?f'xh1?'^v:0)tBT-rIX0ko(zeNDe#oxBk7(aM%u%p()9%%ãU"%%-j%6a_OETZc+19)%+%n9%%%.%%%%hjq%qxSgRfxV';<>\[+1wCEWxPAYrN=+-ãU"OsP:=f1CoQIoHk2j#/A*BpRn>ZhtvnIloM$[A$n4#$1=JRT[BVAsmoqC#?d3gNVãU";,AOR8A2iAhW;nR\3(,uui4MEZHqM_+fQM$0g&DhmY*FaymiWr$)n_pR\P#FaM$ãU"4L+\n;??j2v\U3C,MA4#7yIM:A=Ov#+tUj6<.[J(0d%ohPtk?]T3r[2)9*6oA:bãU"Vu:.KI9D*F<[6IG$Mp\(#6j5a-Hk_[wL9Cre1N*B/lB4Vdk7,-i49[4.9&z0Gs/ãU"[&*syh:M]wQW*U-H.12?YG(UcZ9.Q*ahRV+XE<]ROXZMH,Uc$is:=ec*J+3D?2IãU"Q3E#2J.FwM_P'h/B;?,iE$GE2-DI)?I;>BP_4ghBMnHIS?(SJVMyF2d0^;5U2UhãU"8z>v7PS0nNYW;hYa>c&NP/$-wXl'+\BXWw-4SmMQ=BN^XwXT;7]L,W;71L,hnA1ãU"CPFt1TgvmK;M[(=eD;jpsvLJe?u42T$:6>B(Z^mV5ccl0ãU">2vm]2BN9YGW=7ZNp$)C\T*PY=.xwe^fgo__h=pE#Mt^mEXD]EI/9j6d(_EZPR*ãU"j\5o?.dPw#V],okK#m^_G8#j[CzrShBA)j3y,Mjh^Y86ioTOw;ro8;AvSFG-Mq=ãU"t51?+3;]sTMS/=G5&mjscp&fP-*Z2BoWsX3vs^eGrMrC;sa0zWcJM+jh+$Yh'V.ãU"gT48t?CPK<(6OrK\jNHJmXWOnkduu2VNbsn38+[7G&mp1nFXMpPITO2jLjdf]:XãU"rChPH8Etp-&#fChcI#AQJBxCEv&bLHdbcS0KOs*tl,FYvsEi/s[F]V4\G(pXnSFãU"a8UNZc5NJH;+qF.6-ksetbK+J&nO(oD73i:_8UD?d>lZva^s/6Cxn.L2l2=7bJ6ãU"znGxcSyl,EFOjG1AOLQhORacMc4?*pR=Mw0c3mqB\2XS76N*pecv;f+.yuBPBMuãU"3b.%T_d:75C=yDf#UIR6pxkk9g4vd)6_m$eqrA.xa>sXGHDF4vEXT4<0PvdPN6o$$r^&:OdbIWL3DIbt9&m<'D\E?uLu0ãU"lr>Ka\j-G.HpL&imoONJZQ-oU.86MElI:_1Mmr2oa[cZp4D_TCtrwQ3Ya7R4+fyãU"nV>#,uGHXfo*#nduja?qC*e6NdZ>,ia2ICãU"Z3BI:QcL8x2k/Oq(SAwCjT?Om2Xptq2AX]yieOr/Wo:wUS'Cdup%&'9%%9%%%I-ãU"%aaf_EBa&yjm%%%%%(%%%.%%%%%%%%%%%%E%%%%%%%%%hjqq%xSuf%qup&%'9%9ãU"%%%%-g%da_jEE1W'QJ'%(%K7%%%.%%%%%%%%%%%E#%%%>%%%%h%jqqx%Sify%upãU"&'%9%9%%%%-%<6a_E3TZc1'9)%%'n9%%%.%%%%%%%%%&%E%7%%4'%%%hj%qqxS%ãU"gfxu%p*+%%%%%(#%(%t#%%%q%,%%%%%ãEND SUBãCLOSE:IF S=28AND 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ãScott Tuttle SCREEN ART/SAVER Scott.Tuttle@newriver.net 07-08-96 (20:23) QB, QBasic, PDS 198 6816 ARTS.BAS 'Screen Art/Saver inspired by John Wantlands Black Holeã'but for faaster computers.ããRANDOMIZE TIMERãDEFINT A-ZããSCREEN 13 'ãmaxx = 320 'screen dimensionsãmaxy = 199 'can be set for different modesããFOR t = 1 TO 255 ' sets palette to shades of whiteãb = INT(63 / 255 * t)ãOUT &H3C6, 255ãOUT &H3C8, 256 - tãOUT &H3C9, bãOUT &H3C9, bãOUT &H3C9, bãNEXT tãã 'rem these out for QBASICãIF COMMAND$ <> "" THEN 'check command lineã num = VAL(COMMAND$) 'for number of pixelsã IF num < 10 THEN num = 10 ã END IFãIF COMMAND$ = "" THEN num = 100 'to hereããDIM x!(num), y!(num), dx!(num), dy!(num)ãããcx = maxx \ 2 'center coor for current screenãcy = maxy \ 2ãrr = 10 'diameter of black holeãFOR t = 1 TO num 'init coors and speedãx!(t) = RND * maxxãy!(t) = RND * maxyãdx!(t) = 0ãdy!(t) = 0ãNEXT tããt1 = 1 'some constants-for speedãt2 = 2ãt5 = 5ãt4 = 4ãt6 = 6ããg! = .2 'gravity factorããDOããFOR t = t1 TO numãPRESET (x!(t), y!(t)) 'erase old pixelãdx = cx - x!(t) 'compute distanceãdy = cy - y!(t)ãr = SQR(dx ^ t2 + dy ^ t2) + t1ã 'play with the .98 for differentã 'effectsãdx!(t) = dx!(t) * .98 + (g! / r) * dx 'accel * orbitdegradation + forceãdy!(t) = dy!(t) * .98 + (g! / r) * dy 'dittoãx!(t) = x!(t) + dx!(t) 'calc new positionãy!(t) = y!(t) + dy!(t)ãPSET (x!(t), y!(t)), r 'draw new pixelãIF r < rr THEN 'did it go into the hole?ã PSET (x!(t), y!(t)), 0 'erase itã x!(t) = RND * (cx \ t5) 'create new pixelã y!(t) = cy + RND * (cy \ t4)ã dy!(t) = t6ã dx!(t) = t6ã END IFãNEXTãIF RND > .95 THEN g! = RND - .05 'random the gravity-nice visual effectãLOOP UNTIL INKEY$ <> ""ããSCREEN 0 'exit w/credits to me :)ãWIDTH 80ãCOLOR 14ãPRINT "ô Â "ãPRINT "õcott ³uttle '96"ãCOLOR 7ã______________________________cut here_____________________________________ãã'Screen art that draws water fountains.ããSCREEN 13ã ' you can specify the number ofã 'pixels on the command lineã 'ex: GRXFOUNT 1000ã 'for 1000 pixelsãã'rem this for qbasicãIF COMMAND$ <> "" THEN 'checks to see if there's a numberã num = VAL(COMMAND$) 'on the command lineã END IFã' to hereããIF num = 0 THEN num = 100 'if not-its thisãIF num > 2000 THEN num = 2000 'limit on numããDIM x(num), y(num), dx(num), dy(num) 'x-coor,y-coor,dx&dy speedsãDEFINT B, T, Z 'pallette & countersãRANDOMIZE TIMERããg = .1 ' gravityãscale1 = .627451 'scaler 1ãt160 = 160 'constant intãpi = 3.1415 'pi-duhh!ãt199 = 199 'bottom of screen constant intãzero% = 0ãone% = 1ãtwo% = 2ãt255 = 255ãmode% = 1ããDO 'color schemeãbf = INT(RND * two%)ãrf = INT(RND * two%)ãgf = INT(RND * two%)ãLOOP UNTIL bf + gf + rf <> zero% 'no black-outsããrand: 'randomizes and resetsãCLSãdyscale = (RND * -4) - 3 'rnd dyscaleãdxscale = (RND * two%) + one% 'rnd dxscaleãda = RND * .01 'init-angle speedãa = RND * pi 'init angleãFOR t = one% TO num 'sets all coors and speedsãPSET (x(t), y(t)), zero%ãy(t) = t199ãx(t) = t160ãdx(t) = RND * 5 - 2.5ãdy(t) = -RND * 6ãNEXTãã'ãDO 'main loopããFOR z = num TO one% STEP -1 'pixel loop for colorãã FOR t = one% TO num 'loop to calc&drawã LINE (t160, t199)-(x(t), y(t)), zero% 'erase oldã x(t) = x(t) + dx(t) 'compute new coorã y(t) = y(t) + dy(t)ã dy(t) = dy(t) + gã IF y(t) > t199 THEN 'Did pixel go through floor?ã x(t) = t160 'reset single pixã y(t) = t199 ' with new coorsã IF mode% = -1 THENã dx(t) = RND * 4 - 2ã dy(t) = -RND * 6ã ELSEã dy(t) = SIN(a) * dyscale 'and angle speedsã dx(t) = COS(a) * dxscale 'constants scale speedsã a = a + da 'move angleã 'is it OK? reverse if notã IF a > pi OR a < zero% THEN da = -daã END IFã END IFã 'draw new pixel with color based on distance from centerã LINE (t160, t199)-(x(t), y(t)), scale1 * (t160 - ABS(t160 - x(t)))ã NEXT tããIF INKEY$ <> "" THEN GOTO quit 'key checkãb = INT((53 / num) * z) + 10 'brightness-scaled to num pixelsãIF z > t255 THEN z = t255ã ãred = rf * bãgreen = gf * bãblue = bf * bãOUT &H3C6, t255 'ready to change paletteãOUT &H3C8, z 'colorãOUT &H3C9, red 'red valãOUT &H3C9, green 'green valãOUT &H3C9, blue 'blue valããNEXT zããda = da + RND * .01 'rnd the angle speedsãIF da < -.1 THEN da = -.1 'see if new speed okãIF da > .1 THEN da = .1 'dittoããmode% = -mode%ã 'another palette changeã DOã bf = INT(RND * two%)ã rf = INT(RND * two%)ã gf = INT(RND * two%)ã LOOP UNTIL bf + gf + rf <> zero%ããdyscale = RND * -2.7 - 3.5 'rnd dyscaleãdxscale = RND * one% + two% 'rnd dxscaleãLOOPããquit:ãSCREEN 0ãWIDTH 80ãCOLOR 14ãPRINT "ô Â "ãPRINT "õcott ³uttle '96"ãCOLOR 7ãErika Schulze MODE-X MANDELBROT SET 100775.2275@CompuServe.com 07-09-96 (19:15) PB 476 31377 MANDEL.BAS ' To extract MANDEL.ZIP, please load/run under PowerBASICãDEFINT A-Z: SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"MANDEL.ZIP",4^6:Z&=23240:?STRING$(50,177);ãU"%up()%9%%%[-%n6KbE\g:D/K;d%%0W%%%-%%%%rf%siSfRxrf,;:>Tm>evE%'r4ãU"*QJI$b%A5moqJ8#mT7in,>bCSfe'G+=)12YsR(s7wrLwXk.H8%<(+QNRv;]l=>CãU"/_8*SvSd#6cWBTmDgKdT(hPHfsIY(k&^:7B9^MHc2p&(ãU"=]6hhT-=8:t2ns#?GxEAF4W\?XiDD-RQUSu8dy;[c*xUFZN2xi_.(T>vVTJsstWãU"'XG25blht^ENLjLWjDgd-lH'_$DCS&D7\r,ZaSCEVWLfLY&N0JOB\Lv)q^J#=47ãU"Z223YEkvtmRcfK:E6(K#kOI4-(RncVX1s4P4l=U%*.8UHjxJA-W(t<)lg:C*gXAãU"0ERjy7]T0v+>mYAp'('E%^XUAlbiYnG'V6bDXKq^.bCt(Cq.r6(35nwnVrm6U_LãU"rC,':gjR94FuZ3*jZ4EfIYVMueCHvGoãU"%_R&j9v7m*JQARVlMIqCb^0*sm1rVb/lwAW9;tX^jW+DIK_5?3biQ7_BHc$^#>6ãU"P'$((Kn=T#0ZTbM.)#]<0%dzQJ^d68fbLwEDynuR$JQr5$Io_C4_j>v5c[RzrxSãU"YZ+q/5j3b&27&;Q8dc>d-.;Ca'8+TPYW#y'n7ePzqIt&8WxYTJtF+0eta*eM>6bH7ãU"n_th4mPtt7*)a9oE<-W+jãU".naPQSsZRdU.l([oYAu8ATbUWAoH1qjx1>dN(hkH\-Ag0FZENt&,]gEp+.ACO9oãU"+g8mLvmdMPx<]'?mj<3q$<=6\.bdSfQ[5g''J*Y+Vrm=24gtd8fMI1PC*/-/>>fãU"ed59-r-4s^YqVoP9DP4u\VH+vC_y$4EDr9i?^EãU"#P=i*H+vhkgbcQ$MkQ>7HmO6=Ekzsd$_5-s2USFZXMU%nMhNx_?882]tNl#dElZ3%[N;=KN-TlGnfTXãU"G$xGbrd,YK%/.>E[kJlV\k]?J&ok>v\b1'?SsSqn]?Pr^JlMVpBl*xT+OPM7K\iãU"#PTu1.vPf$TN4Q5Yh_n<=mqX3j7,9kD[prC[NQQB,]q:c>R]'%dv/+ãU"kL^s7T3?OU:cA(y&B.*ev%/3;wbuF9gA7v[LG)RN[%fFY2J#-9<]R]#.5i]nDeyãU"D(4Kx;-?CCBfQ%dC5^>/erd$9N+fOVPgHJ&A*jHV2>(2*tt+lrAãU"LY*)\ip(7;K->>r2%2A$gvL#*80MM;V:vM&Xw4/mgwK'dRLc,2.hHg=EAA1ddg?ãU"AtNlr>qq_)^WN#r_k3b-TY%ccuF%r3umHlG/8DMwgigAs_EKRCTsMwfE&[murmBãU"#zmJ:Pe.g-KPM^$%*z+9W&,TIvmJ9t\F/v[tum6aicJKeLosG('8-0AsVI_M]FZãU"((dae?AiB)a,zMlH/rz7W_l-KnOWb?h3](LF'b,OI_L$qce)mio1Wxfn06qIEShãU"Y3j=qcdmTc_Kg-u*TJ9n?b$mRJv$V8s7cNM:s-aHn?bKg?8Kpl\]w01?xxINnp$ãU"858hZ24e'rN;cv>['\rN$.UGKJmUstahS8:Gu64(0Ty-jFnAY$Ts^SVN%<]D^m:ãU"QQVCCA%UddP>)aHDxJjIE/,s44^n+U]*13(p?hjbLArSukCIvgqT0Mt>Dc+/^LUãU"F*vk9hhO[j.k&BMHfãU"hMAsF&$Ed^HK[m_JnZa#oB+rBq$K8TIEdXv(6$Ed(.AFELfM1smRG.w&BMGf,MSãU"W7*]vJHLfM)u>SMkxmi3.j,lFNjG9\$jpxYM?/F[v9a.tt,66\UE%d>\#aIAt?]ãU"F+.k;b#,f6;wBFrRSv$h$SSv_v;8_)v;xD0Xjsc<72]6ph9\4jJ'uO\N7I04.kbãU"H(^fkEUdVM-nR)rB2F#\)fr^s\h=_)x1NAM)-tHH.a.dtRFK%d4hj)M/Y_)w3+mãU"7kH_'NSS$4G)d[tC\2Lr_ne(90lE%d>\#PsONY_m0)t4t?t?j.kbd^5]A<-u-IIãU"'Etlg6;ukm#mRd*1mKr($)x\kmmQ&N_77NoneS-Mkxi%_Ed^5a($(ck,k+hDF/v3B$[ppãU"3k8HZStVPrlFCF7+.tt-CF+.ottCFR+.kb3dHmD[^EdF[H..k5b]TGpwj80t_)xãU"m7IIedp^a^>+3ed>>a$)3Bed^a$rH,]M6\3yTk-G^:a1(fl;r$#2A<])BrnW,5pãU";B)rkb$>mZ7GX]#77O)nB..-dHH.5x^604.lbH]R?B:cu]m/'glEdg^aBbO-]6\ãU",3ua'urB1R.EfMWA=[m_2n[j2j7G^__;]0x^A6Zz]YSrB:\yA.l3L$_U(d,..*lBGFHnu9$HSqs_CqRB:]\$fkZNãU"M?F_Q3/in'#X>+?ni#6XRkwns[7,C^tmL_Kn-A?6j6k6;wBGpF0xbRomQN[_7wHãU"[t6.l8bHR?Lr/M]6S4G'*lbH>&fKUd=lfvcGPr^15:=$UddlkãU"84HfvcRTvLH07^wddFjHURTvL^5;RSvL04gRHu$)xm7IIed\677oAn0.x,^hGwXãU"DXjwk'&A'b^h=BP98BL)Kn[1thd\4Y?>D++DXb&;x^hXg&x^h70&2d$7BIENHTSãU"SKr^b_%Udb.Px^vWY+9uk%xn5mPTLntu%EuDedPKG:IB-cQE^2Xbb=wUãU"$P+c$my-kRMo4iQr6WYAyXTNf4ierH8q?0M;R+=eLe6gYDNiQa>?_H='\CLVfrXãU"3.D2N$%E\:=tvwo]Y[up[m1$VUsQj,wW^M>8SXB80Vke2nC;&v]3C[[1tjEjN-^ãU"mmv4?'zVu518Pd(V(qea'C81q=L$H#nk.g/_ãU"p$3+)D/9c*,kHRK[#k,g,Y/DDPRr2:r8[:FbnMq'k];gUTBLPN]3DglFdZfrtFaãU"'O4-(jdc6>\:Vkv$&V&F+E*(:OTaL_]w5fI+cEsIx/;LP;=Hw%uKMEbLs[_HCIbãU"*l5r3G_,EBm_2Z&bGkTWw]OMcgXiq$ofwv+EbE.9NKur)hp]2NkW7l7UK7vNP,nãU".U1.pQoWoDh51;FT3**h9Qvibs-6Q,1RXoWb?#$=+rtdãU"IbfoB>rDQ,se6r>RGd:V>jB5#FwtGZTY'3^(Y$.&alcrTcuIrw%L,_3/+ojsHy8ãU"Oa<247hymRQB;1XIypikVkLmbprS'+[A.km\LyaYb+47Fl&[KsI:4T=\\wZx2?bãU"/$+=03?.yr7IB:VuBfIa)lKJ:Y>PsI]YTUnW#XeZGOOgfOa5P^Z#*$z1mkDH;P1ãU"*ZE;jQK^hHqdTgrkmO'%0MQ,>*9cT9HmIiLsZJtWãU"#ZA'4E39_Sfn+Jjsf>za&lp%aYG[ROxnyP;/i+n*\fNT%fIS73*3Fc$%-9gzz#*ãU"7j7j5P>2*t#vO*SOX5_v#>tFnu^9&CS.R\V5(X,eVij7B2[&-t;[=%8:(z\;IQjBvQDCeXhmTXaG#,ty+V>N2isew[W)\Vcg1ãU"DKB_jeo:cR=$A=)4jd-B+4#)_JRjevOJkFNk8t)u8nC:^gEKZhc$PAc>w;P'7gpãU"r5gMlhyyz4=_82,G,hUmWT2$*H1YEXiu+w2WbT*>X[CqcK'aJGL4zo9(bzo#]lJãU"1\.f=ZBMZYb_mIamJsRfh=^)XE4^Ha_L:itE5AHS5YI0imKDp,5&.=Nd\+f/F3dãU"=P$2uaE6wWtlh+b#8eIr5UWP3sigq.bb/:WLrtu(Bm:Zh7ãU"K6LP3CRtr?Li)i[TWP3sigq.bbn:WX'aK\c+,iEjyc7?Pv^3&rgo6K\LI/1qh2%ãU"kqY1pRdDevvWW3w2QD5&vQaE'iy=0qXz:1ZhNRcP8]h#6_hzixxMI=[VtKKv.*BãU">X.ftZMS_u9LXQfq:er7gWCZ&r^hARGRdjCu;uk9bv<(n\qYh>M5h6j#WsHfg8dpr$;fX3qqnãU"IzWO$Kt_W6k/[/Z-?b%/uwR#7?G*LaidW$/3GH=ãU"-&D-/c?Qv[,htyhObR]X>IGokq+^>wcDpH9RR3nS^u.R]ua$7-Rmb9ZfMPQlryAãU"TYsrS-Rm9_p&065)as;5k#t;67Y1*r6)1EG_xVZmhCj'WvKb.?Ln=g3Z9b+24ktãU"*HkjO>,A%EW'K2ji6w-Y8rER+=q&LUI9dZcXObS>ZCx74N,TG5WMzn66MN6tuE%ãU"*u%im\',pJ:V_^xp;S8BxnOoD4*oCBz*hD9+RsA$oSO5]Zi^hc/b$Bqo4yOibfbãU"jB]fq_(NTBJQ4g%0]Wo$h+Q#J':bJ(hzDGnsf:a)l$sU3\gTk$1KG[:\=6af#pGãU"'jQT3.3ea4gV9F_=L:S#Qxn+,=\E*^t,&..Xn[t^(&qGMY(\s8CsMRT$E)=C<_?ãU"e%Sf*ds-[\s3RhJRlf(f[,ORkF76,e]:UJoCM\-)D8Ec4%_XbhE7AQQok\&C\[KãU"dc=9rPLYajpL++=o,B[M>8o.\F*2qA'#1_6(KsJhq20K^>LGr[PbL7fK=h<9.JpãU"&3R(+k.?kYMveM\_923DK>5$XoshLO/lUãU"=?eM>qgL[7+SP^DWv=wGh%LsE:FzW=U9Nt+>Xj<5e*4))b.M'P1EH0*?%l.W\R)ãU"^daZVx?tmu9a\c#=Nt$cWB^?l_IM7u:8Lbpq?vQYaãU"KjV6-A.0]n5UZt,?JiK1Z'rF5iE3S#kqiT'>DBIW%/vW7-VC4%9ãU"8yipeff#MM/SOW$+?A*TC..t5p5hZBblkipLm53f7huMOSVZm?Y?xFFqUrP#Ib9TfmjPP%nJ_.AãU"G>3'g&&S,_27<*oGF,#DeL(OH&d.3oscc6(_Ju:j(G4%2_'U;/Qw:ga'M7eqKSiãU"Sto^mg0$jYRbIiImMn([.XzP5Lna4^Rlv5-\ntzD6CuMrcLne9.Uqb[I*v=%1ESãU"'x+2iMUgU3Q5p'd0[DUG$[^35eWN[6k$8P^cx^XiAnXj2B3kPBPY5v^>]OKp&]uãU"U.B^HU]S/&vU>J:Sbp.hbD3C?]6mwtPB&]p.865cH,fR9d2E]OnDhs-p'r[t*QAãU"8oT(;]Xv0B&PTBb3MIa*5gYHK?:n)GIt^W.Bd;0R(U(\;3H4]WH:jgUG-VjI0XrãU"w8bk;._tY7C]suT]c:eOq3rfoIxq2DqeT?MOO_>vS)]kU>2lj:/g.6;yQLG+78('oCu#:y,tCGC/d';h0.1<)iuOzc&xB'wht(ySfz;lywG3;ãU"TeK:Y\c?p27MM.M:0w[ReZ6MW?ptL.JUVs3/Au?.AC].jt5PZ=WWEX11wH3eA-_ãU";af,E+8k]GuDH_#jj;REtAp=OSB\ot>k\D6fKUs7ãU"FbYm$(grbb.ARb.kGsthb(cg_iac\4m(jr0bd#p's*nm,n>QoS>:K^Yv#K^kxbnãU"+q:#.T5Nu>njcd+d9trGo$]Vd1;nXmhuWrv7E%3ssmTcr&a\jm5wmAIw<9ãU"A_#TS6we+/zydzb05n2\1e=0c6tkj6?R3&pNUjm=ra)HB*ruf:RFs3\,Ht>3%M?4--r60k.*dãU"*6)hp>rrmOiE[U,$,?9wi)1g5iB1'8-A7;hH5N'Tt]V+rnnuAGQs2ãU"4+:kevv5(qMr%[T^Db[29*\/\o]r9XrT7:djDPm.?;8Dz7,o/<2,g5(YcTMTOj<ãU"\S?jXQ,bNS\m*JpV1iewfQL?,E'dz+dy*]biMg+5W_g(G7hWQ#/:w/ãU"vjD3U,3.O[JVQxfDRfgKG7XZ?r)avH7g&8_-HOD/>mj97NXCPYG+DUM]))_;pdwãU"xknf1-*/4ZA>jS#*I1)pxln1Xm+1G]s\a$U$f*F^J-(F$,\f+1/>?vãU"mOc/'A:d9aXn.f*koKB&Aee7+auSVtS>h_>0ZMF;ARa]BGSãU"XSeGQ/4iruG;k_9_*L_]eOMB+C=zX-V1J9'PJ;^d09AFqEfkOpM]N,RI*?h5',+ãU"+AM&vI.*N\v<-RY:(j[ct(QCLw:kHiYJibãU"iI3'e$Sosvj2SR-I2$g<:a>d:SH-A:d)m8[5rU.[jUd;vq'&6Igc*.Zm&wkuT,nãU";b3\mUsD(wOS#>40ka6SnV%AK1$k#mZ38OvS:%Gvu/dVm\Taq45RS*Art?wZ?6kãU"_o:(?i;;gU0O#n>fhUI-3XiGqi9GB*aa0c3MqJb(ZGdl$uBãU"R8:djC:4Eavk8$uJVt/0x7&&3R2ywSvt3rct'ivCHUc2F]Ch.FGoa+m6Gb/QLP_ãU".L*dvnJ2w$;ZRd%UD&%+%Y(%%%.%%%%rfs%iUSn7sh&w;,:;Up9L/I3x?$f_DCGs3eRãU"DcI(n63i>y5ãU"9&5XV\j9vEl=:$1)Rd8&C$Bp\YY&v0CfYMh6H(jaa[+LUZPFr[(FdaJ-DXY&:z8ãU"Z6W9J;TlKnXR.RKfYi6#)1f$9F8Pf;p.5/E^q&Y#FK6*9\Xl<<7s]=V,+v^&]DOãU"w)k]:sA1=yFf2NPz9?:yWC44K:vFVh$.L3&Bmh0K\\3*;yZFcGRCkZ%9qNh?ChUãU":cKt)7p_,T6CL#YTQG2_=ql(\=F*9wVsDpEOL,;F:rNW$ZDv[3>.7$lQ4]36FrSãU"(ys6c:kpC)quYb/,L%'up(%)9%%#%-%U-6bE]E5T#_[(%%d%/%%.%%%%r%fsiV%ãU"SgfxN.%<>\jm5wmAIw<9A_PTn6w\-UzyCysUW]1\1e=0c2tkj6?R3&sb6(8LãU"Xg&.CKWbkv_hlhL_qh,_>]brt0YC&$3S4zea5Y](.$0H&N(BUIt<0S['ZwD[;jLãU"6j'*v1,PK1A.+VM/kd*d*6)hp>rrmOiE[U,$,?9wi)1g5iB1'8-AUN(uE7ãU";hH5N'Tt]V+rn.vAWQs&4+:kevjk(qL#2;.AcaU29*b/Po]u9BqV:JNjDPm.?;3ãU"nxK4J;TA6aF+9NSxXOj<\S?jUQzbNN&&wu2YsG_Lc2zf9=YRvS#tY5e,Pz1\w/AãU"LAxV^NoHVXj;U3)\WOs9qCdC26&:&VJVQxfBRfgKG7XZEKHBL6XAOYm)i$4T0RGãU"/89M^:?K(4=9A.RmZJSxNGI_+SR4X?]0q90NWho/p8\['7+&PxGI+1I(+afv#mlãU"W6$*F^J-(F$,\f+1/>?vdOcE'A:d:a=n.flbDfcwqãU"MBobSFM%Nbcb=q)kN(r#z5De7su8:4#m?;wA'J_y8FMI8MkO%#?U\ClP+\t)<3YãU"Ep2E;uHj/>L,)AR4s+-A2/$mZf'_wu,)52>HG-3Kt9c3+4[xX-V1J9'PR;^d09AãU"FVEfkzdvAz-RI*?h4],+9,4hDfWP>'#Y%,>MP8GzDec6cOn[tj/gQ9-7a\DHtxgY$RY^)W+ãU"aSVrbMhphb$]BB7cDBKaDu(wB^-S2D]aeãU"nR&A[pDjWJU[PgIVbEZ?k]peza*0gyI6Ti;dRWvEf7=Cixq\Wi7d7XRfk__:Z?dãU"s/:[FUl_k7%:[S.&.DBQB6\30K=k%Q7q$;nG=t\lJskM;,E]_2zs[=#k_L.Db[8ãU".sXMs:cIw+%up()%9%%%#-%'+]$EZp&L%M&7%%S(%%%.%%%%rf%siVS[nsh&\avãU"t;IU9Tnk(;N1%FK#+I.f.H_/*JA[Q)U[b2#?&WM\-lW)Nh,dzEbabR44FlfgFHRãU"^r_-$O&r#o6DK)^$u&uT4o.)K,ZlZ\7qL&dWGX3.Xd9Za?'9b++E0,:N1>y(vAFãU".kqZk96[:VJTX#(\Go_k*HIYL/m3JJ2H9&S)+#q-OI)Lz+:m=yãU"pgvud3XTip>I1&JYOb%%,5#jGIP[ba[lA5Bg'_dRnãU"c4bY)A+P-XA1$u(t]R2F6++uO?Tvi/Vg+XL&hix_Wck-VN\*L\e?ShZ,n(fUi#%ãU"so$oIJ,D;JsNo[B^w5?ckcr_&4Fc:GBMD&wk7O-L*wcZ0DM,lf(u%p()9%%%%-pãU"%^6bdEERi+nYoU7OVM)-&JnOIszDrsBgrYxd?*YCQtYlhLbB5fhB$J,fLR,d3RãU"((:E4sGHP%;<-1eDVFHBLRpr1Ox+a]TnhVu:8']:/S#ChOp<4ZpjãU"B,LBWr/;tSW*4%[G,s#ThSrZcxiqPl/Mvksb)5A;hVAyUyvG')>P8?X<*%uQx.-ãU"peiOa[lRq[&S-7L3Fl>bPqjD&%E[qO?pq6?mTub#Kf##a:3W'b'>ZwIZGk&*3#GãU"6qzo1+?#pYkl:JQ-h'ai[c%#jQE+zfMãEND SUBãSUB V2ãU"gPIj[pb34m#$SE0rIic%f#ja>u>L8Z+^X#>;J&[Z9IaT=:Izi+UMM/D3.\C4PHBF[DuOGNY3%r%QPg^^qakgKpqlK\-L<)PGnK9&g*0X_Y33o?SãU"[Ie^#Q%ndME6fb8^xY=WG_g7jj/cY=gPgc-PGYTM-p>+?LoYIfdZu)Wf(G9nP_'ãU"b:Ru$q-d)tf+noEcOZL\*Ug#V1P$fq_V:e,cV.\['&tJNUlG=hbX]Y_:\KVBhrXãU"\R$ufjbSP6c_x?5e\5,pTajq4RSn*atiuwZ6kB_o(?Ki;gU*ãU"09n>CfhI-W3XBqkU9B,:aac35MGa(5ZAr:uL]p7]mCnWY$el$>;k:diY.]YFW_MãU"Hi:HCpu2f8=RzeoguW)eognFCX2d_f&9m>9FOC3X',11Gi$K<<'(FN4y2TMZnajãU"+2H]oH8>;KXZ&4dNW-'hPVXfQ387O;7]>eh6QB\7W?d5iq&e/Bl4W\SL[)n&=b&N(up%()9%%%%-%*aR$4rFno;YOAYC\k\UngIWt[B+tQLFJ[UmvN;%EAP-XnGo_e6*5$X[DSiQ_R-LkFkãU"hUNUL)SSB_gm>d#\p;JR]gFWFdELf1Ptsmff^po5R'W3XJn93L2dYk3$zf6bEY)Tf.&_(%%'d/%%%.%%%%rfsãU"i%XSgfjx.%T,=Tk5\L[&wKOx+]ãU"TTvhuk:8':R7S#6\fbq6I/)[]xP/RY*8.[tZA-7mM08hbgf0G%,8Sj4QQ\7^^?_wk?B.uqV63ãU"/etcdhbP^jG(zWqjkDe[nK_]p#j6D9sG.d2yAxGNmn\tQc[JVr/ayU81>(PCO^SãU"y'#)C5qt9H^_$D-b1EE?Y9'rmV'Z&;JE8hX/9t2+__Y5-H[nYb]rO%ie?Iu&l+;ãU"I#6T.-.#Z]'5,\/e];s>,aM9LRbS;U8,2k$cJT9hjETuXA#&.R'OyLb(SaQSbmxãU"2HurWBQTT7(O?_RSEq(TP1%M:D$6P.n/rBsSoYr/vwqVTqMEC-F3t9c;3^[x=XV1H+9PR;]RãU"S/2\5^0r0NM]z_)a'\Lqkh]p(=7;n6<\Vom(t5dbc,t#qBWD7]b8=h?+,c,LN\kãU"iV3RpX1QafE79trZg^:J1kv:OkDR.1mMj#$fcG_]:k-%mp;&1]?J'v5\GVg]*<3ãU"OOEut9DL2OE6^Qwf3SaWV;Mz&Y\RH^NR\q_$xUMZ$t&A^)eZ/Ww\shKv._M,(i_ãU"=5^Wpr.A,ph#DcM>B'Y%JM>P8G2zec6Scn[tDjgQ9a-5YDp8xgZo$QRãU",/Wa)V:rMhpFg[pKr*'_XN*M3O0FisYWi2+>*mUAj:DLãU"mUms]Gqs^sar%#up(%)9%%#%-%#b,$Er(^s]N[&%%S%(%%.%%%%r%fsiX%Snsh*ãU"&aftB;e5TRyg=GT\eTd(E4FuRHC0C/rP:pbE0gx66LyeOOJRlr<5/ãU"lNFJ>b;)fnzDz8rVQMh]x=,x'gl&O;&B_jUuDbE6$=)V2#'-#2p_Y3(_DTR9$&1ãU"OT]VnG:?pf/rYsgAp?fgEw2fJJ7i405tV3(q^qC=$af0m3J22(1S)I+#mRHI)z+ãU"e:C&pquwN8Zff(>5I1JY%Oa%,45^OXEQYbfu336]D5-1%amSvwKGI[8dmk3Z>k4ãU"2tXFb-i.2Qz9;S'*BnwYkw=cuCvZ]Skc_&u4F:GO?M&w^kw4,p$wZ0jDMlf%(up(%)9%ãU"%#%-%s-6bE:JKOP_[(%%d%/%%.%%%%r%fsiY%SgfxN.%(>BTk5MR[&wV&Pujl0>ãU"ia4I]-SO,uOS#h-ow=]f#h&Q^.fsRgw.k>.X6iDbyvobw54WkhR>7HR^AAV>E5tãU"&:b$P2z1jyaIHo1fD0wgdVIH3[F9k5Sr7TãU"_D.5VZDji/:x)X/6EjY$?X(2;,&Z3^#B>C.5&oP198u7'nYsogK_rQ&95kiS\R]ãU"Iupt6SKMhGpNulLE97Es5SWW>O;I4QZC.IoljD]^R,9SY%D_NdjFJd30e#6GhO<ãU"4cZpB,YL:r/3;tW*'4vG,Os#6fQu>NGhu:*cFxrC'P-]+T]Ayy#NG'>][8?<*r%ãU"ux.3WoiOta[Rq5S&-7$L3p>LbPjDZ&%[qCO?q6??mv^W#K#:Ya:G'e$'ZwfIZk&ãU"()3G61q>lc8Z^XI$>J*9[:IaA*#IzBi?+Lo9YMdRYu)f(3GãU"A]_u'bFHoWX&<[c*JR>rqMqa\g->_DZj/SZg'(0GgMZMY2de,s9]8V6u\Otj(ibãU"3>GF[q5n0#Mv:nxChu3vB$<(]nzp6(Qs?wj5;iP&X#vK&rf8M6saq9a/CrtSBt0ãU"N/aWQW4n5C8Abj2P2f5HGTNbukCJJ;$dlPuBdl.DbN(%up()%9%%%R-%L,KãU"$EDK'u\N&7%%S(%%%.%%%%rf%siYS[nsh&\aft;de5TH+YZdq8Wn:ypgqj?,P/PãU"f0Cgok:a=bkcP'RbV=TwJDvz'x.i4E3>jRG\Hh6r9J.[&u\<ãU"PGD1-dlDhI^GL[m(3J*j)yT)+%.TfM6Q_+NXCPp52wDL$-QX1+E1JYy%a%,5_dOãU"XQJYbfyZ76[I7v2OmVErklUngI_>[BK^2FBng3K:*R+QT-gbk,B]q(PR2HB+[utãU"H/tZo^V22]xW._kCek-PV\*LDR?Fh<_n(fQ)9%s6_oIJ3,;JsbNSbCZvZ]kjc_&ãU"43]/64&jPyHjGo&%up()%9%%%m-%&69bEiy6rl$(7%%f/%%%.%%%ãU"%rf%siZS[gfx.M%*>r.k9M3s7xZAPyPfit,T2Aqzd.;qGaK>8OUWrZt?[XFXB%-ãU"r9\,8*7BX&^\yyN;hVE^Y67lls>G>bRqt0C3&2vjYhh[aD38&F8(3^b\U]p/bS[ãU"Aw6D[;Lr6j'vG1rPgF1HL&4q7Ea[X)di.QY.*)W(adT-^Gef2b4q)o9/7?[hPj/Q*8pZ[DI--7M0l8h_f+pG,H^STQQA\7^?ja5giX<ãU"xZiF0TwnWCB:A(h6;E.xvl_D2l^]_8cl+YiwPI)R9On;Qvm1/J2r8AQsh0D'+WRlav53\#lM'ãU"8)Q-NZ55LBnxZCek>(07K8y$[Ql4oo'Y>^ãU"-p,\70vZT2tw:%0-b4fO2KeciBE&7^w;AB\xC9NHr^l(daTdDmF%+nU3>ebuo(NãU"d29OFxiD#>3aggLfG-^RmhLGNxLfHBt.+]G0jqF*.2s[oqm7TV=\3vhY2t(mmAHãU"4dv$jPj]iJY7u2J&I4aIheoBre[H9hDiTCl?>B=58[au1xUm>.[KLJJq>(5E4sbãU"_G7pA9d%s']Y5ãU";VCI*0.?#,E5*:7U?^1Dru:Po/;f4HqJYeHF_gjQ8dU8^qxQ.=#eW'ZO#G;NnKsãU"hgu]hrV#;>8?H#;[m8&%up()%9%%%#-%t-0$Eyh%9YO&7%%S(%%%.%%%%rf%siZãU"S[nsh&\aft;de5TH,_iDK<=s>y#gGV-4]IEJ^m(-MbW#RVZaCSaZV&INHh-O_joãU"m/$W)hfKZlWTsiO4LN;9)LFln42c6:8zuJzZ*zeH6[b)s,iI:fFg+Tfk8E,zaH87kIHJ66<-hAe=FP<:UãU"$E^Y;:Pti#N6gN9,XumovTFCgC\7/49&7i^Y1W/1Ht$'=T2/hB^LZfZq%/.HkãU"nY5q$:=5E):gnHJ6;a83bSvd*^)AN]^qv^rNq=B),F+n:ys6c5SO5;kg.Iprs-d>F.&sJ5RFKB_\79+g[[keIDSsnFk1)%RPDiXãU".<(7bWYn\ndO5QsVxks?CGrsR.SU+N)D4w4DB0Gepw7O:&:QWpllG?/AxR7:XJuãU"huW$ulv7hl$7F$bF\dm2ZJh%/WF3R:kL6H:\PU#uSRR),z\Vluh'G'?_OYu%xpUãU"$h=q#I^Y=.3Zs4;L.bh,$O/2e/auS?S?*nWOeS]&5>VA>Yn82Wle90);/,h0EM9ãU"VK7ZhAwUN6rVUD2MwuPT8NCNX0N7YCm9pGLX$?-MhD];?Cm$8VluR12*MCsxJ7qãU"_Rp#wrNw(>LiQEk;p:v[XDwkvS6A)CbU;F\6-w6[2;F)*J$V]>RJ*?8=B#Tj>Z=ãU"wY[x+-_[_-1$Uq/oq?&9r'9)Ja)&MVxnM/0X=m.=Bp,uCa(HMEuW/_RipK=wM=NãU"kHi0BLq^P)H4A:$irg-gZG-9$/Q*SDQF=MRbhp('Az=zmV0SH<*nEcm(+5HfO.cãU"Qq1Taw:7URSeptk+hStwN)0Jyk+nK3,/kMT'sGHsyGV0]A37r7YUãU"?j$sgn]=<2AkSe8r_\IHt]jfoDZO.jc4V^CK)*35J(mkJ&p1RA:%=tK6b0Hj-W,ãU"ZuVdpoy?XA5bBw-((\kKn:K'K:rvrOgPD2es#l5IJna46RZ?MkYãU"[E4dbC^PcdNYFuhpPMuMMNNI*'Puquu//O[<.&5pto\8QKM?PDqCw(*S.RjsqKsãU"pknWaoLDob^_>4do7kV0E*OUp*>XeeTX7I*+(sH&>,$f64bIy,'/95K]-]fx0a[ãU"7/0-/7?&>:?9#2[Rn:Up>.XjJUYM%p7-jjLGlJ9oTu'10-8V)kiGf-o^_*n7zC=ãU"r\&o*lGZt/4&0gJZ8O9APOhDIgzHBDy_z'WMK;SI;L3(6.Dyx/%:(z\HxyR>xCoãU"'*;S;LmA3Nb#upByiDpy5B2ylx*c?;5FK-]pW(0c;8vm(jjg=*c&di^d7435'5KãU"sad/l7-snX.)TL<.LM3b19sZ;kZZ]PSyJ-rf0JtCwt&tZB2FuqXkA=Llf]6nSK4ãU"r_y*utzX>xVk'h]/[D9)*X?l=ãU"68^FejQ/M#zW_,tJY^6A=*xP;VGQ[(En)QJGOcwfG(^Mb#i0i6igg89;1?XFPa6ãU"P0BQANCsNoSciB)8w5LgUHOSYtH=FgC:5,xhwd4nvRU2*_wd[nbovOBcnS]RD,;ãU"LQCa-K1VUV87TRLr'M3pZhga>ZadQ(E)2ZA[d0(FvaHWar+;dãU"k8C#>Oo(giFWifQmbxxP77lX'?KLLn2xLLPbLbU+rJVb8HQC6>9JNnA]Zt7KEbuãU"uUNMs'*mGYsoaV,G4rRi/kgUmBUf%I5pi*rji\aStK/$u#:X-CKk,2TEtcol.74ãU"r\77#24$E/bslaBB/IxJ-q4ãU"ybO]i)F;i0j)cqDy.CU-BX\FGwdeIfYuu^6ANI$6$-GuS8,%mryTJ[Pk,+=0l[VãU"bbQ,;h2e0]\zkUãU":1XL1%e(=vrmv8g#+UA)Gy.Dq8y]]1uIawn]x+d'OIMy$q?DswufqL^d,M\o:g8ãU"p_QHk[n5mW-&Ww\9i'GPRB7M2;^0RSiR%YgT$i*c#jHnRD0T*lC5rjN+m'Z%xh/ãU"q;esi?6v0c5moa#o[0:+aUo4O#^&?UYj91=0,B)-Ocf[^3?6E8]tk1cowoLs=dYãU"Yuou_[B[bq^)_okoW'*(\-n+GWaDG3LqpfhH5JwcSPj'aJI1W*0?jm4]DkNTVe&ãU"+^s?lX+\fvKJLpBJ,hq0>wVC%M,J<,>+\lT*FmchR$rcdJ$s(KJl$uo_XbãU"x96Lq25ihzwki:;s>U\f$#L:=OmJvsz,[Unikue_[mZfN>G,ItVQ(y]_Sd%mq<1vC?-s]V-miIs&xuv.9.q9LMvdn1$4$.Q;ZCPãU"aEl>t'O9Ugem+^RZCYY9,SxdIGHMw8oZvwSAi;t#CIm)sFT5WI'EImU5eG>1>OgãU"S*(GW%.]+friJI]^;fW0z=.'nK/AA7ktY7C'0bQ%2dY,IHvYRBZj'lVF.J)cGKjãU"NP]GVI\huhV>7:Ft$jmeL_gJK0NLR*jG1*aSIdj(7\4f$sAA^Nn%dFI-xPv%0D>ãU"^&6.oh'[bI>3a3+f5>[baU8wCrGn_T=Zxt_/%YbQ%HNL+Fd7ztm:7T-wCY#,Gl<ãU"QrWYy'm/A9I&0:j);1pi*uE^e)hC#UZezYC$971^UZkYe=470kq9yJ[iU/+JgJBãU"'+gG->zdCzA1;OpeiRYvRTIRES]mc5#09)sE6&sUaxhjL[n]b44bqCm8mmHCkYfãU"7Vm-RZ9SC[H+V8tMV_2Op]jO'Tx\S>>vev;O=H+^VelT'%$\$>Rvqeia<*Bn7nkVDmUXN?A==*W$xM%WNf[=udB[,Iq?o#Ti8p\bjeãU"K1%$6^h*fu8NxO*'\5rhlK-,\oN?n3.U-4RIot0n^UY,$/(%H_$rdrwr2R\YJ]?ãU"(1cg#MMq5^QjbZ\\,$\.fqiYsa-eV0Q:G$>2GSmBxKUUl5gds3hf6aSK7WB:NABãU"^n5VcMBCB\z]E,/-iDT]-3KJ]aQgVoCSUA)06uiW,)K3l^]SxglZphP]arh&uuZsF<^q>Q>:kC07jUu;Lqm*SSoVZ5vq0+Nulnpur.;ãU";-8.1wfuh'/v^/;P]$F5XZHT,_m&lW,TetabEX0r+X<+HR\5FKuqGbmA96Q(GQVãU"',JowU21r_5S)yXQ0i(6M'm-LBobx+bf$>:D%#g+z5<\XFe&aF]kdmh[Rko[CR/ãU"LG%)qC:okvRHtt37DLhp'rhGcI&.N(&yCV88TVKu?$yn/H/%([t6+$JwT][DIDgãU"lG,d).zQMYk4lY%8cbPoMA*o1KAeZ6C_wy,(pZ17g/3K?k$)D&UosE8q2<-\%]nãU";1Mf6&;V&UDoP%a]c6URg])tb97GR.Fcer7xI/-B9'sS2;RDp'gySaGTl&ugL>RãU"H0kG+pi%k40wseSO#>IURT^wIGweXaPk1p2wt]jW?U+GdB'8$Jae&y8+.Cn\v0PãU"U&YvHbVeub)Vl6HM4tSO4[vB-p3,?+]+a]5_*r^3F5j7IZ(*(Ncndwx,o09;X>iãU">[^Xwreqm#s7[ãU"3XcH\Er1J7L.GS*(>^nBe;70bKNm$3YBvaYvv3:#MXw-2%4kP)),*L[#'D93gNXVmPdtn78P*Q;#NRH&$>Q:AKJ#,_G0)?F&[?P<ãU"mWTdF-Ih*$l*\m29rk#QI)ABC==qNK8fb/n$xp\80]8irG-eNA_h'9LYq/X6iWyãU"C*&lRH$*=\GQ8b\0N\+N5&Cu6$SC3'=$8g]epTd\%1?omM?:(yk)B_oOP\p;CqHãU"l<=4l-R4gVe]S[jZbf%uWWXHhq[[#3Y0MFTF#A^py1T=sX#rk9?ewbãU"Z&F2pGL/WZc/=pL/qJdrXkYdBag?%ãU"fSCo]nuNm2$ekrJcA6:dNM.lN?_.QQ0pegG6B8)9\aNU]?w$H]/^B#-msL:+xBWãU"NpD_4R%ukI(IP+WA669HbYo&B8-[1/*>nfa/P*'cfA+z540cmTBT<^6u6cMZ$-2ãU"dDGEQwO-?#A&v^N*3a\$KOSLvDXAFmL^3'Ao6?eFOw%fkQG0^3t7pPRJw_l*LujãU"FPLR&npPmTgZnY):xDQuhm#RA/4nropCI=3S^pCq4Tx'7BuwPA\K[3ggTDãU"m2<.cE#6+<2);88WEtCB#[YVfGA0csVg%Cfag5-H3N&W;47kgVWDO5OogtWF:G#ãU"85ieGh?e:rczBgaNk-;DspF)415=R%o>p(T\j\/eEWRbhKm6Mdl89PaF;*FNLsqãU"WB,hR$Alb_986XUD,lE&Knb.0]^*;uIg:(QJeAiyjhzoCZ/VkKnMGa$fRVv$9RA2c=4r):,0P%*(:CP=K^6yJ79gQg+]^g\phHO(s1NX[Y]QhCId7052ãU"HEuo6:,4jV,]5b7M+2gcmoaBP_jdkeF#I8)aZq.(5ER:#ãU"PY9JHQ#l^k8$/,F,L8O3\_R*;S[OuMJUi+khl7Dx9Cop0^35_Mq;ddFva7IE3,\ãU"*.a__I3TC+N+:m2%7nV1,6I=vPP%:ccM>M4UD[1*JM9[/N,ai#lZgw02;y.x?f?ãU"BX7MQSK->/=*QKQEfa*LU,giYD#K&N9qERMnRH7.fe(P9Uuah/[0NP^hNQULgEdppRwPcdeb$u%_jqb4\,US+,=0W#%6nUJH3%jJ6pzyBMPY5I((PE$RJJUW'YW2jv1gt^h8E1ãU"^aQl$R%B8Mf=vR^5XvmbHd7I1(lA+jIyVSewdkQSc3UFãU"2nMK*L_K:Spd$H.wYLa)hv]JML-*H0(g\h=K?0wtfHhrcGDoJp[0Sg]\jzk'm5bãU"=FV;9Q,E9v8h,Tfvmt%sXd%90URYGOzVWB%LQr/WI#gh:sFZpaLf()Ja#[%Ky/YãU"+2QL]nO)]\Fu%HTBx2._AU;f35s+cUt]qrs9aN=$.1\Ayo>2FNeg_=tnZ:td=w)ãEND SUBãSUB V3ãU"\$r8C;CmMVh:=43_uqIfe3x^a03t7Ol1b9^ANqL8GmZmFio%#uYl&)k[VãU"2?'iI*i[Df)7F-Nps>Sou:d?[['-eu[s>P2HQ'E0Af&b#uWVLdXuP'f(nKP,JekqN4R^bxG6rw26(1f8hgr4zaXl<ãU":,aNT8%.?6v5IlrYfRAlGp[z4-lSU,t^_Mh8t7^y[[e,-OY;J5bzQBF)vn71'g)G1/'gUrj,n>An=gmS]s-^a$\ãU"a3$H=ZHuJX6#\fXK[V+d>_FOor#GIx.MF]wKRj7XVu_:((g8S.GHAkLf19][MuuãU"=$'kaZ1FpBSCP0NlO.W7KX(q^f$\1[tW^g_s.Y7ecmbCL\$x1\]+ãU"fE=dl_RNu%dup(%)9%%[%-%BH6bE#ZQNCg[(%%4%4%%-%%%%x%zgxS[gfxFh&:>ãU"S7m9vaOmuVj[OFTK$k=j=\q)A>+/:M*MDFzMO=epE'iPC$=Jvn$D2;YEG;;HdeEãU"Iq2VmJHL/l$E3>JCvm%CmU>iC2SIl*c''807iBC=,tYYT1M&2=#bMbxgdH_Q'r1xDr)6q3CjKh44_C7Q?XDxo*iDInSL9dwJ]kYTt1ZãU"qe]v;htO_2U>cQi2t=Le0]TS=LH%#F3mjF)L<().L5Ou[P]FN1Cphc7OfL_77)2+AkF.u56b^m]ESS7CQf*Bo:EMB'U=jaOMchSZ*q8rBn+eg:ãU"04%X=^XR^ZllmH0$W>to&d=>7C[N$EQF.+N]OPX,LOXs3>ãU"6;+V;:Qp+Y8UBl#FoZmPS3NC7C%:^?6Uu'o-[p8*)<%\9.%<9;d0)DwB%DF#HNOãU"Rk-)\'$9exOqZ8V+?-7%X$MYBn&%I4D?q_uN\l=H%HiIuh297)cjsDXX-Zakc1NãU"wRr&dCL^Mn4>v;>V1uI&(8gDjba$cyqT_%UOKcmrq&/-'2SãU"T#^P2(EyU2%o).jR2U^7aHNQG&d-,;y54hqD2?X;0Pf8(T%W.D4_a)Gu>oyj>f]ãU"dg=+T8^rfX+FwOMB;(5bVV4\/8Io^32-%%rv?b/N75r:ZWH,ss\FDE<-0-$h;=1ãU"T)'m86'wHDjY?JL4';9XZ\lXg0?DU*o,3E1ps4/e5#wf%YB;ttQ]Z_%2,.E,Kd#&yXX#ebMDc2XgZ\*3n\w7b?23G\UT?3)P45W]16*fphsEV%XC(s.QFbNqUf#ãU"xjlRvNSH3xnZ4=7d(u8/k:>c<(/a5r6,dYJvLT4)lqz>^r\%#gtoE[-+*ãU"T_1\B'xR6j1X1BodVE+F5#uW#Y?OcOUFiYNMsxdZ5Gbx\hne_FtE+TYMC$JUXvIãU"hhSK^tV=rd=grlr4oYZ;gAD;FT^_>wQ71+hVZ5J91$2+gd1cI2\\;b4P\Pt.'*If/\zDcIs;_iãU"=J8+Ni5t_b-B;)=Mg9$]3F1DQ96W.[tf&g,Q\&7Fm\VmD1nA.)#TY$e3l[loWhkãU"vrZt6hjvslO8:7Pt[LdHGKnrTu^AznafpTMo<7_L#DBa;)NflX3gbq>63v5G1]6ãU"+cW28&5_k4V;'o;q?GXzlP>B,$U4IhXb\aaS:6Uxmkz;lAMqA$n[u8Ro-xem6L*ãU"rleRnd'_DvT.Fnp]XO8b&It9y[Y_iL]i7AB9??aEUj?Rd%UD&%+%Y(%%%.%%%%%%%ãU"%%&%E#%%%F%D%%r%fsiU%Snsh%up&'%9%9%%%%-%>U6bE4]5T#&_(%%'d/%%%.%ãU"%%%%%%%%&%E%7%%6E%%%rf%siVS%gfxu%p&'9%%9%%%%-%',+$EZ*pL%M[&%%S%ãU"(%%.%%%%%%%%%&%%E%%(%CI%%%rfs%iVSn%shup%&'9%%9%%%d-%^6BbEf6bEY)Tf.&_(%%'d/%%%.%%%%%%%%%&%E%7%%CO%%%rf%siXS%gfxu%p&'9%%9ãU"%%#%-%#b,$Er(^s]N[&%%S%(%%.%%%%%%%%%&%%E%%(%PS%%%rfs%iXSn%shup%ãU"&'9%%9%%%d-%s6BbE:K1OP_(7%%d/%%%.%%%%%%%%%&%%E%%%'JT%%%rfsi%YSgãU"f%xup&%'9%9%%%%-j%L,$gEDKu%\N&%+%S(%%%.%%%%%%%%%&%E#%%%W%X%%r%fãU"siY%Snsh%up&'%9%9%%%%-%?&6bEoiyrl&$(%%'f/%%%.%%%%%%%%%&%E%7%%QYãU"%%%rf%siZS%gfxu%p&'9%%9%%%%-%tG-$Ey%h9YO[&%%S%(%%.%%%%%%%%%&%%EãU"%%(%_]%%%rfs%iZSn%shup%&'9%%9%%%I-%E*f$Em\5zKl+.%%%4%%%/%%%%%%%ãU"%%%%%E%%%'Z^%%%rfsi%jqSu%gqup%&'9%%9%%%m-%s79aEFZ/1m&57%%AK%%%/ãU"%%%%%%%%%&%%E%%%&ue%%%wjfi%rjSV%xyup%&'9%%9%%%m-%B6fbE#Q6NCg(7%ãU"%44%%%-%%%%%%%%%&%%E%%%%Jv%%%xzgx%Sgfx%up&'%9%9%%%%-%;V*$Et^ZqTãU"'F&%%&1(%%%-%%%%%%%%%%%E%7%%\y%%%xz%gxSu%gzup%*+%%%%%7%77%U(R%%ãU"O%%%%%%ãEND SUBãV2ãV3ãCLOSE:IF S=234AND 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ãJonathan Leger FAST MEMCOPY ROUTINE leger@mail.dtx.net 07-11-96 (10:14) QB, QBasic, PDS 204 10399 MEM.BAS '***************** MEM.BAS **************************************************ã'*** These routines were written by Jonathan Leger: ***ã'*** ***ã'*** leger@mail.dtx.net ***ã'*** http://www.dtx.net/~leger/ ***ã'*** ***ã'*** PLEASE write to me with your questions. I would appreciate any ***ã'*** feedback or machine language ideas for the expansion of Qbasic. ***ã'*** What can other compilers do that Qbasic can't? What can PowerBASIC ***ã'*** or QuickBASIC do that Qbasic can't? Maybe we can make it work using ***ã'*** Machine Language routines that will blow away the other compilers ***ã'*** in speed... lemme know! Write to me at the above e-mail address. ***ã'*** If you'd like to know how the ML routines work, write me and I'll ***ã'*** give you a step-by-step explanation. ***ã'****************************************************************************ããDEFINT A-ZããDECLARE SUB MemCopy (fromseg%, fromoffset%, toseg%, tooffset%, bytes%)ãDECLARE SUB FillChar (segment%, offset%, value%, bytes%)ãã'$STATIC '*** "REM $STATIC" keeps our buffer from moving around in memoryã' '*** for more info, see the manual or the HELP screen.ãã'*** Dim a 64,000 byte buffer to hold the screen image (an integer isã'*** 2 bytes, so 32000 * 2 = 64000, the size of a SCREEN 13 image).ãDIM buffer(1 TO 32000) AS INTEGERã'$DYNAMICãã'*** Go to screen 13.ãSCREEN 13ãã'*** Clear the screen using color 200 (sorta bluish-purple)ãFillChar &HA000, 0, 200, &HFA00ãã'*** Draw some circles on the screen.ãFOR x = 1 TO 100ã CIRCLE (159, 99), x, xãNEXT xãã'*** Copy the image (which is 64,000 (FA00) bytes and starts at memcoyã'*** locat A000) and dump its contents into buffer().ãMemCopy &HA000, 0, VARSEG(buffer(1)), VARPTR(buffer(1)), &HFA00ããLOCATE 7, 7: PRINT "This image has been dumped"ãLOCATE 8, 5: PRINT "Into a 64,000 byte buffer() array."ãLOCATE 9, 8: PRINT "Press a key to reload it."ããWHILE INKEY$ = "": WENDãã'*** Clear the screen using color 150 (sorta deep blue)ãFillChar &HA000, 0, 150, &HFA00ããLOCATE 2, 1ãPRINT "I'm putting this here to prove that I"ãPRINT "actually cleared the screen. ;) It"ãPRINT "Also demonstrates the speed of the"ãPRINT "FillChar() routine which was used to"ãPRINT "clear the screen in this spiffy"ãPRINT "color."ãPRINT : PRINT "Press another key to reload the image."ããWHILE INKEY$ = "": WENDãã'*** Dump the contents of the buffer back onto the screen.ãMemCopy VARSEG(buffer(1)), VARPTR(buffer(1)), &HA000, 0, &HFA00ããLOCATE 1, 2: PRINT "Tada! So fast you don't believe it. ;)"ããWHILE INKEY$ = "": WENDãSCREEN 0: WIDTH 80ããREM $STATICã'*****************************************************ã'*** FillChar() ***ã'*****************************************************ã'*** FillChar() puts whatever is in value% (which ***ã'*** should be a number from 0-255) into memory ***ã'*** starting at location segment:offset, ending ***ã'*** at location segment:offset+bytes%. An good ***ã'*** example of its use would be for clearing the ***ã'*** screen with a different background color in ***ã'*** a graphics screen (which is pitifully slow ***ã'*** usint PSET). To do this for SCREEN 13, for ***ã'*** example: ***ã'*** ***ã'*** FillChar &HA000, 0, 15, &HFA00 ***ã'*** ^ ^ ^ ^ ***ã'*** | | | | ***ã'*** Screen 13--+ | | | ***ã'*** | | | ***ã'*** Start with first | | | ***ã'*** pixel.------------+ | | ***ã'*** | | ***ã'*** Fill with character/ | | ***ã'*** color 15--------------+ | ***ã'*** | ***ã'*** Do so 64,000 times---------+ ***ã'*** ***ã'*** This will "clear" SCREEN 13 with the color 15 ***ã'*** (bright white), and it does so _faster_ than ***ã'*** the CLS routine clears SCREEN 13 in black. ***ã'*** ***ã'*** Notice that the 64,000 is in HEX (FA00). This***ã'*** is the same as with MemCopy(), where a value ***ã'*** greater than 32,767 has to be put into hex. ***ã'*** Since BASIC integers are signed (can be plus ***ã'*** or minues 32,767), BASIC does not let you use ***ã'*** 65,534 (64k) in an integer, and there is no ***ã'*** way to declare a variable as an unsigned int- ***ã'*** eger. Machine Language, however, does not ***ã'*** recognize the plus or minus of a number unless***ã'*** you tell it to, so by using the HEX value, we ***ã'*** can trick BASIC into passing a number larger ***ã'*** than 32767 to the Machine Language routine, ***ã'*** which will treat &HFA00 as 64000 (even though ***ã'*** if you do a PRINT &HFA00 it returns -1536). ***ã'*****************************************************ãSUB FillChar (segment%, offset%, value%, bytes%)ããasm$ = ""ãasm$ = asm$ + CHR$(85) 'PUSH BPãasm$ = asm$ + CHR$(137) + CHR$(229) 'MOV BP,SPãasm$ = asm$ + CHR$(139) + CHR$(78) + CHR$(6) 'MOV CX,[BP+06]ãasm$ = asm$ + CHR$(139) + CHR$(86) + CHR$(8) 'MOV DX,[BP+08]ãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(12) 'MOV AX,[BP+0C]ãasm$ = asm$ + CHR$(30) 'PUSH DSãasm$ = asm$ + CHR$(142) + CHR$(216) 'MOV DS,AX ãasm$ = asm$ + CHR$(139) + CHR$(94) + CHR$(10) 'MOV BX,[BP+0A] ãasm$ = asm$ + CHR$(136) + CHR$(23) 'MOV [BX],DL <------+ãasm$ = asm$ + CHR$(67) 'INC BX |ãasm$ = asm$ + CHR$(226) + CHR$(251) 'LOOP 0112 -------+ãasm$ = asm$ + CHR$(31) 'POP DSãasm$ = asm$ + CHR$(93) 'POP BPãasm$ = asm$ + CHR$(203) 'RETFããDEF SEG = VARSEG(asm$)ã CALL Absolute(BYVAL segment%, BYVAL offset%, BYVAL value%, BYVAL bytes%, SADD(asm$))ãDEF SEGããEND SUBãã'*************************************************************ã'*** MemCopy() ***ã'*************************************************************ã'*** This routine will copy the number of bytes specified ***ã'*** in the Bytes% variable from the segment:offset in ***ã'*** fromseg%:fromoffset% to the segment:offset given in ***ã'*** toseg%:tooffset%. To copy more than 32767 bytes, ***ã'*** put the HEX value in Bytes% instead of the decimal ***ã'*** value. For example, in HEX, 64000 is FA00 (prepended ***ã'*** by an &H in BASIC, to make it &HFA00), so if you were ***ã'*** to copy a 64,000 byte screen 13 image, you would do: ***ã'***********************************************************************ã'*** MemCopy &HA000, 0, VARSEG(buffer(0)), VARPTR(buffer(0)), &HFA00 ***ã'*** ^ ^ ^ ^ ^ ***ã'*** | | | | | ***ã'*** Screen 13-+ | | | | ***ã'*** | | | | ***ã'*** Start copying at+ | | | ***ã'*** the first pixel-+ | | | ***ã'*** | | | ***ã'*** Segment of our 64k buffer+ | | ***ã'*** | | ***ã'*** Offset of our 64k buffer --------------------+ | ***ã'*** | ***ã'*** Copy 64,000 bytes (HEX = FA00, BASIC = &HFA00) ------------+ ***ã'***********************************************************************ã'*** For a full explanation of why we must use HEX instead of decimal***ã'*** for values greater than 32,767, see the remarks in the FillChar ***ã'*** routine. ***ã'***********************************************************************ã' This routine was written by Jonathan Leger, and if you use it,ã' please let me know. I'd like to know if this code is gettingã' any practical use. I've wanted to emulate PowerBASIC's POKE$ã' and PEEK$ for a _long_ time (also Pascal's Mem[] routine), andã' this is my first stab at it, which worked out very well and isã' very fast since it's in pure machine language (it was writtenã' in DOS' Debug! =).ã'***********************************************************************ãSUB MemCopy (fromseg%, fromoffset%, toseg%, tooffset%, bytes%)ããasm$ = ""ãasm$ = asm$ + CHR$(85) 'PUSH BPãasm$ = asm$ + CHR$(137) + CHR$(229) 'MOV BP,SPãasm$ = asm$ + CHR$(30) 'PUSH DSãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(10) 'MOV AX,[BP+0A]ãasm$ = asm$ + CHR$(142) + CHR$(192) 'MOV ES,AXãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(14) 'MOV AX,[BP+0E]ãasm$ = asm$ + CHR$(142) + CHR$(216) 'MOV DS,AXãasm$ = asm$ + CHR$(139) + CHR$(118) + CHR$(8) 'MOV SI,[BP+08]ãasm$ = asm$ + CHR$(139) + CHR$(126) + CHR$(12) 'MOV DI,[BP+0C]ãasm$ = asm$ + CHR$(139) + CHR$(78) + CHR$(6) 'MOV CX,[BP+06]ãasm$ = asm$ + CHR$(243) 'REPZãasm$ = asm$ + CHR$(164) 'MOVSBãasm$ = asm$ + CHR$(31) 'POP DSãasm$ = asm$ + CHR$(93) 'POP BPãasm$ = asm$ + CHR$(203) 'RETFããDEF SEG = VARSEG(asm$)ã CALL Absolute(BYVAL fromseg%, BYVAL fromoffset%, BYVAL toseg%, BYVAL tooffset%, BYVAL bytes%, SADD(asm$))ãDEF SEGããEND SUBãTony Lieuallen GROWING FIRE marvin@mars.superlink.net 07-05-96 (16:18) QB, QBasic, PDS 86 2053 FIRE.BAS 'Fire!! By Tony Lieuallen. E-mail: marvin@mars.superlink.netã'This is a demo I made (Evolved slowly from the file in the PC Gamesã'Programmers Encyclopedia) in my free time. In the rem's is what youã'would have to do to make it run in PB (originally written for QuickBasic).ã'I like values of XMax=200 YMax=100 X and YStart=50.ããDEFINT A-ZããSCREEN 13ã' in PB make this:ã' (or is that ah?)ã'! mov ax, &H13ã'! int &H10ããRANDOMIZE TIMERãIF COMMAND$ <> "" THENã T$ = COMMAND$ã XMax = VAL(LEFT$(T$, INSTR(T$, " ")))ã T$ = RIGHT$(T$, LEN(T$) - INSTR(T$, " "))ã ã YMax = VAL(LEFT$(T$, INSTR(T$, " ")))ã T$ = RIGHT$(T$, LEN(T$) - INSTR(T$, " "))ã ã XStart = VAL(LEFT$(T$, INSTR(T$, " ")))ã T$ = RIGHT$(T$, LEN(T$) - INSTR(T$, " "))ã ã YStart = VAL(T$)ãELSEã INPUT " XMax=", XMaxã INPUT " YMax=", YMaxã INPUT "XStart=", XStartã INPUT "YStart=", YStartãEND IFãCLSããCMax = 150ãRed = 0ãGrn = 0ãBlu = 0ãCC = 1ããFOR X = 1 TO CMaxã SELECT CASE CCã CASE 1ã Red = Red + 1ã IF Red = 60 THEN CC = 2ã CASE 2ã Grn = Grn + 1ã IF Grn = 60 THEN CC = 3ã CASE 3ã Grn = Grn - 2ã Red = Red - 1ã END SELECTã OUT &H3C8, Xã OUT &H3C9, Redã OUT &H3C9, Grnã OUT &H3C9, BluãNEXTããDEF SEG = &HA000ãDOã IF INKEY$ <> "" THENã COLOR 180ã SYSTEMã END IFã FOR Count = 1 TO XMax \ 1.5ã Y& = (YMax - 1 + YStart)ã 'In PB make all the "poke"s "pokeb"sã POKE (320 * Y& + (INT(RND * XMax) + XStart)), INT(RND * CMax)ã POKE (320 * (Y& - 1) + (INT(RND * XMax) + XStart)), INT(RND * CMax)ã NEXTãã P = 0ã FOR Y1 = 2 TO YMax - 1ã FOR X1 = 2 TO XMax - 1ã X& = (X1 + XStart)ã Y& = (Y1 + YStart)ã P = PEEK(320 * Y& + (X& + 1))ã P = P + PEEK(320 * Y& + (X& - 1))ã P = P + PEEK(320 * (Y& + 1) + X&)ã P = P + PEEK(320 * (Y& - 1) + X&)ã P = P \ 4ã POKE (320 * (Y& - 1) + X&), Pã NEXTã NEXTãLOOPãAndy J. Golden CHAOS YHBV44B@prodigy.com 07-12-96 (22:42) QB, QBasic, PDS, PB 26 565 CHAOS.BAS 1 ' CHAOS.BASã10 KEY OFF: CLSã20 SCREEN 2ã30 DEFSNG A-Zã40 COLUMNS = 640ã50 ROWS = 200ã60 START = 1ã70 FINISH = 3.999ã80 TOP = 0ã90 BOTTOM = 1ã100 MAXREPS = 10ã110 HEIGHT = BOTTOM - TOPã120 VPCT = 1 / HEIGHTã130 FOR R = START TO FINISH STEP ((FINISH - START) / COLUMNS)ã140 X = .1ã150 FOR I = 1 TO 100ã160 X = R * (X - X * X)ã170 NEXT Iã180 FOR I = 1 TO 30ã190 X = R * (X - X * X)ã200 XPOS = (R - START) * COLUMNS / (FINISH - START)ã210 YPOS = ROWS - (X - TOP) * ROWS * VPCTã220 PSET (XPOS, YPOS)ã230 NEXT Iã240 NEXT Rã250 A$ = INPUT$(1)ãAndy J. Golden FRACTAL FERN YHBV44B@prodigy.com 07-12-96 (22:42) QB, QBasic, PDS, PB 26 566 IFSFERN.BAS ' IFSFERN.BASãSCREEN 2ãCLSãVIEW (0, 0)-(639, 199)ãWINDOW (-4, 0)-(6, 10)ãRANDOMIZE TIMERãX = 0ãY = 0ãWHILE INKEY$ = ""ãR = RNDãIF (R <= .01) THENã A = 0: B = 0: C = 0: D = .16: E = 0: F = 0ãELSEIF R > .01 AND R <= .86 THENã A = .85: B = .04: C = -.04: D = .85: E = 0: F = 1.6ãELSEIF R > .86 AND R <= .93 THENã A = .2: B = -.26: C = .23: D = .22: E = 0: F = 1.6ãELSEã A = -.15: B = .28: C = .26: D = .24: E = 0: F = .44ãEND IFãNEWX = (A * X) + (B * Y) + EãNEWY = (C * X) + (D * Y) + FãX = NEWXãY = NEWYãPSET (X, Y)ãWENDãSCREEN 0ãChad Beck PUT W/O ERASING BACKGROUND FidoNet QUIK_BAS Echo 06-27-96 (00:00) QB, QBasic, PDS 71 3091 PUT.BAS ' [= As two common people in New York would say, let's start rambling =]ãã'> Wait a minute. Is the above an example of BLOADing a image? I think I haveã'> the idea of how to get the sprite to the screen.ãã'That's an idea. Draw a bunch of sprites, use PICEM to display it and thenã'code to save it in BLOAD format as maybe something like SPRITE.BLD. Thenã'the program can load it in another page not displayed, and GET the spritesã'into buffers while displaying a "please wait" message on the viewable page?ã'Just ideas I was thinking up while reading this.ãã'> Now for the big question "Can you tilt the picture after drawing it?".ãã'Well, if you GET the dartboard into a buffer somehow (assuming you can createã'one large enough) I guess you can PUT it differently? Or what about this: Youã'scan the visable page for each pixel, and replot it slightly differently toã'an angle on a non-visiable page, then flip to that page and its tilted! Orã'do this on two non-visiable page while the "please wait" message is on theã'visiable page? We may have to use the 320 x 200 mode, as don't that have theã'most pages to work with? I am not sure on the concept of this virtual pageã'thing, but it may be a key to this and other neat display tricks.ãã'As for animating, I heard of page-flipping techniques. Also you can do someã'neat things with the PUT statement:ãã'From: Chad Beckã'Subj: PUTsãã' > I think it was CHAD BECK who earlier posted how to PUT a bitmap toã' > the screen using XOR and AND to not distort the background. If youã' > could be so kind, could you repost it!? Thanks...ãã' Actually it uses AND & OR.ã' The ANDed image (which is PUT first) should be an inverse ofã'original, whereby color zero is used for the solid areas and the highestã'color in the palette (mode dependant) is used for the transparent areas.ã' Here's the demo from an old mail pack. The pair of images used toã'draw each sprite are left in the upper left-hand corner of the screen forã'your inspection.ãã'-----------------------------------------------------------------------ãDEFINT A-ZããSCREEN 13ãPALETTE 255, 1024 * 15 'Change color 255 so it's visibleãDIM Image(0 TO 33), Scr(0 TO 33)ããInColr = 4 'The inner color of the circleãOutColr = 3 'The color of its outer ringãCIRCLE (5, 5), 4, OutColr 'Draw original image--make transparentãPAINT (5, 5), InColr, OutColr ' areas Color 0ãGET (1, 2)-(9, 8), ImageããLINE (16, 2)-(24, 8), 255, BF 'Draw its compliment--Color 0ãCIRCLE (20, 5), 4, 0 ' for solid areas, Color 255 (or 15 inãPAINT (20, 5), 0, 0 ' EGA modes) for transparent areasãGET (16, 2)-(24, 8), ScrããFOR Repeat = 1 TO 9 'Draw a background patternã LINE (0, 20 * Repeat)-(320, 200), Repeat + 20, BFãNEXTããFOR Repeat = 1 TO 100 'Draw the spritesã X = RND * 310ã Y = RND * 190ã PUT (X, Y), Scr, ANDã PUT (X, Y), Image, ORãNEXTããDO: LOOP UNTIL LEN(INKEY$) 'Wait before quittingããKurt Kuzba HAPPY TRAILZ FidoNet QUIK_BAS Echo 02-10-96 (00:00) QB, QBasic, PDS 72 2907 HPTRAILZ.BAS'_|_|_| HPTRAILZ.BASã'_|_|_| Happy Trailz. This program demonstrates one methodã'_|_|_| of creating a series of self-overwriting lines toã'_|_|_| keep the CPU happy when there is nothing else to do.ã'_|_|_| Released to PUBLIC DOMAIN by Kurt Kuzba. (2/10/96)ãDECLARE SUB HappyTrails (l%)ãTYPE LNZã x1 AS INTEGER: x2 AS INTEGER: y1 AS INTEGER: y2 AS INTEGERãEND TYPEãl$ = COMMAND$ '_|_|_| REM this out if using QBasicãIF VAL(l$) < 1 THEN l$ = "4"ãl% = VAL(l$)ãIF l% > 20 THEN l% = 20ãIF l% < 2 THEN l% = 2ãHappyTrails l%ãSUB HappyTrails (l%)ã DIM la(1 TO l%, 11) AS LNZ, C(6) AS INTEGER, K(6) AS INTEGERã DIM dx1(1 TO l%) AS INTEGER, dx2(1 TO l%) AS INTEGERã DIM dy1(1 TO l%) AS INTEGER, dy2(1 TO l%) AS INTEGERã C(0) = 15: C(1) = 11: C(2) = 3: C(3) = 9: C(4) = 1: C(5) = 0ã K(0) = 14: K(1) = 13: K(2) = 12: K(3) = 4: K(4) = 5: K(5) = 0ã RANDOMIZE (TIMER + INP(64))ã FOR ln% = 1 TO l%ã dx1(ln%) = 9: dx2(ln%) = 9: dy1(ln%) = 9: dy2(ln%) = 9ã FOR fade% = 0 TO 10ã la(ln%, fade%).x1 = 320 + fade% * 2ã la(ln%, fade%).y1 = 240 + fade% * 2ã la(ln%, fade%).x2 = 320 - fade% * 2ã la(ln%, fade%).y2 = 240 - fade% * 2ã NEXTã NEXT: SCREEN 12ã Ky$ = INKEY$ã WHILE Ky$ = ""ã FOR ln% = 1 TO l%ã WHILE (INP(&H3DA) AND 8) = 0: WENDã WHILE (INP(&H3DA) AND 8) <> 0: WENDã Ky$ = INKEY$: IF Ky$ <> "" THEN EXIT FORã FOR fade% = 10 TO 1 STEP -1ã x1% = la(ln%, fade%).x1: y1% = la(ln%, fade%).y1ã x2% = la(ln%, fade%).x2: y2% = la(ln%, fade%).y2ã la(ln%, fade%).x1 = la(ln%, fade% - 1).x1ã la(ln%, fade%).y1 = la(ln%, fade% - 1).y1ã la(ln%, fade%).x2 = la(ln%, fade% - 1).x2ã la(ln%, fade%).y2 = la(ln%, fade% - 1).y2ã IF (ln% AND 1) = 0 THENã LINE (x1%, y1%)-(x2%, y2%), C(fade% \ 2)ã ELSEã LINE (x1%, y1%)-(x2%, y2%), K(fade% \ 2)ã END IFã NEXTã x1% = la(ln%, 0).x1 + dx1(ln%): y1% = la(ln%, 0).y1 + dy1(ln%)ã x2% = la(ln%, 0).x2 + dx2(ln%): y2% = la(ln%, 0).y2 + dy2(ln%)ã IF x1% > 639 THEN dx1(ln%) = -(RND * 7 + 9): x1% = 639ã IF x1% < 0 THEN dx1(ln%) = RND * 7 + 9: x1% = 0ã IF x2% > 639 THEN dx2(ln%) = -(RND * 7 + 9): x2% = 639ã IF x2% < 0 THEN dx2(ln%) = RND * 7 + 9: x2% = 0ã IF y1% > 479 THEN dy1(ln%) = -(RND * 7 + 9): y1% = 479ã IF y1% < 0 THEN dy1(ln%) = RND * 7 + 9: y1% = 0ã IF y2% > 479 THEN dy2(ln%) = -(RND * 7 + 9): y2% = 479ã IF y2% < 0 THEN dy2(ln%) = RND * 7 + 9: y2% = 0ã la(ln%, 0).x1 = x1%: la(ln%, 0).y1 = y1%ã la(ln%, 0).x2 = x2%: la(ln%, 0).y2 = y2%ã IF (ln% AND 1) = 0 THENã LINE (x1%, y1%)-(x2%, y2%), C(0)ã ELSEã LINE (x1%, y1%)-(x2%, y2%), K(0)ã END IFã NEXTã WENDã SCREEN 0ãEND SUBã'_|_|_| end HPTRAILZ.BASãKurt Kuzba ROTATING A BIG PALETTE SMOOTHLYFidoNet QUIK_BAS Echo 04-07-96 (00:00) QB, QBasic, PDS 86 3329 BIGPALET.BAS'> Can anyone tell me how to access the 256K colors that I'mã'> supposed to have on my VGA graphics? I would like to putã'> some color cycling and the like into my graphics, yet Iã'> can't find a way to get beyond the basic 15 even in screenã'> modes 11,12, etc.ã'>.............................................................ã' In mode 12h, which is a 16 color mode, you will be able toã'only use 16 selected colors. You may choose which of the 256ã'standard defined colors you will use, or even make your own, butã'you will still be limited to 16 colors of your choice.ãã'_|_|_| BIGPALET.BASã'_|_|_| This is a simple demonstration of a technique rotatingã'_|_|_| a big palette smoothly in graphics mode 13h.ã'_|_|_| No warrantees or guarantees are given or implied.ã'_|_|_| Released to PUBLIC DOMAIN by Kurt Kuzba. (4/7/96)ãDECLARE SUB RotatePalette (t%)ãDECLARE SUB PalPocket (save%)ãDECLARE SUB MakePalette ()ã'$DYNAMICãDIM SHARED PAL(384) AS INTEGER: DIM SHARED RGB(16050) AS LONGãSCREEN 13: PalPocket 1: SOUND 999, 3: MakePaletteãFOR t% = 200 TO 1 STEP -1ã CIRCLE (60 + t% \ 2, 50 + t% \ 4), t%, 201 - t%ã PAINT (60 + t% \ 2, 50 + t% \ 4), 201 - t%: NEXT: t% = 0ãWHILE INKEY$ = ""ã' WHILE (INP(&H3DA) AND 8) = 0: WEND ' Uncomment these linesã' WHILE (INP(&H3DA) AND 8) <> 0: WEND ' if compiling to .EXEã' WHILE (INP(&H3DA) AND 8) = 0: WEND ' They are for smoothã' WHILE (INP(&H3DA) AND 8) <> 0: WEND ' rotation if compiledã RotatePalette t%: t% = (t% + 1) MOD 21400ãWEND: PalPocket 0: SCREEN 0: WIDTH 80, 25: ENDãSUB MakePaletteã DEF SEG = VARSEG(RGB(0)): O& = VARPTR(RGB(0))ã r% = 0: g% = 0: b% = 0: rd% = 1: gd% = 1: bd% = 1ã FOR t& = 0 TO 21399ã p& = O& + t& * 3ã IF (r% < 64) AND (r% >= 0) THENã POKE p&, r%ã ELSEã IF r% < 0 THEN POKE p&, 0ã IF r% > 63 THEN POKE p&, 63ã END IFã IF (g% < 64) AND (g% >= 0) THENã POKE p& + 1, g%ã ELSEã IF g% < 0 THEN POKE p& + 1, 0ã IF g% > 63 THEN POKE p& + 1, 63ã END IFã IF (b% < 64) AND (b% >= 0) THENã POKE p& + 2, b%ã ELSEã IF b% < 0 THEN POKE p& + 2, 0ã IF b% > 63 THEN POKE p& + 2, 63ã END IFã IF r% = 70 THEN rd% = -1: ELSE IF r% = -8 THEN rd% = 1ã IF g% = 73 THEN gd% = -1: ELSE IF g% = -11 THEN gd% = 1ã IF b% = 76 THEN bd% = -1: ELSE IF b% = -14 THEN bd% = 1ã r% = r% + rd%: g% = g% + gd%: b% = b% + bd%: NEXTãEND SUBãSUB PalPocket (save%)ã DEF SEG = VARSEG(PAL(0)): O& = VARPTR(PAL(0))ã IF save% <> 0 THENã FOR t% = 0 TO 255ã OUT &H3C7, t%ã POKE O& + t% * 3 + 0, INP(&H3C9)ã POKE O& + t% * 3 + 1, INP(&H3C9)ã POKE O& + t% * 3 + 2, INP(&H3C9): NEXTã ELSEã FOR t% = 0 TO 255ã OUT &H3C8, t%ã OUT &H3C9, PEEK(O& + t% * 3 + 0)ã OUT &H3C9, PEEK(O& + t% * 3 + 1)ã OUT &H3C9, PEEK(O& + t% * 3 + 2): NEXTã END IFãEND SUBãSUB RotatePalette (t%)ã DEF SEG = VARSEG(RGB(0)): O& = VARPTR(RGB(0))ã FOR att% = 1 TO 255ã C& = O& + ((att% + t%) MOD 21400) * 3ã OUT &H3C8, att%ã OUT &H3C9, PEEK(C&)ã OUT &H3C9, PEEK(C& + 1)ã OUT &H3C9, PEEK(C& + 2): NEXTãEND SUBã'_|_|_| end BIGPALET.BASãDouglas Lusher 320X240 MODEX WITH 3 PAGES FidoNet QUIK_BAS Echo 07-20-96 (11:19) QB, PDS 184 5828 320X240.BAS 'Greetings, everyone. Here is code to put a VGA card into 320x240 modeã'with 256 colors and 3 pages. This should be a good layout for highã'quality graphics and animation. It has a 4:3 aspect ratio, so the pixelsã'are square, and it has 20% more pixels than SCREEN 13 and multipleã'pages. All with 256 colors. Please try it out and send me yourã'comments and bug reports. Thanks.ãã DECLARE SUB XCLS (Page%)ã DECLARE SUB ShowPage (Page%)ã DECLARE SUB Set320x240mode ()ã DECLARE SUB XPRINT (X%, Y%, Text$, Culler%, Page%)ã DECLARE SUB PutPixel (X%, Y%, Culler%, Page%)ã DEFINT A-Zã '$INCLUDE: 'QB.BI'ãã DIM BitMask%(7)ã FOR Bit% = 0 TO 7: BitMask%(Bit%) = 2 ^ Bit%: NEXTã Test$ = "The quick brown fox jumps over lazy dogs"ã CALL XPRINT(0, 0, "", 0, 0) 'initialize the print routineãã CALL Set320x240mode: SLEEP 1ã HMax% = 320: VMax% = 240: Pg% = 0ã FOR X% = 0 TO HMax% - 1ã CALL PutPixel(X%, 0, 2, Pg%)ã CALL PutPixel(X%, VMax% - 1, 2, Pg%)ã NEXTã FOR Y% = 0 TO VMax% - 1ã CALL PutPixel(0, Y%, 2, P%)ã CALL PutPixel(HMax% - 1, Y%, 2, Pg%)ã NEXTã CALL XPRINT(0, 0, "This is 320x240x256 mode, 3 pages", 15, P%)ã FOR Y% = 1 TO 14ã CALL XPRINT(0, Y% * 16, Test$, Y%, Pg%)ã NEXTã BEEP: A$ = INPUT$(1)ã CALL XCLS(0)ã CALL XPRINT(0, 0, "This is page 0", 1, 0)ã CALL XPRINT(0, 64, "Press 0, 1, or 2 to see the pages", 1, 0)ã CALL XPRINT(0, 80, "Press ESC to exit", 1, 0)ã CALL XPRINT(0, 16, "This is page 1", 2, 1)ã CALL XPRINT(0, 64, "Press 0, 1, or 2 to see the pages", 2, 1)ã CALL XPRINT(0, 80, "Press ESC to exit", 2, 1)ã CALL XPRINT(0, 32, "This is page 2", 4, 2)ã CALL XPRINT(0, 64, "Press 0, 1, or 2 to see the pages", 4, 2)ã CALL XPRINT(0, 80, "Press ESC to exit", 4, 2)ã DOã A$ = INPUT$(1)ã SELECT CASE A$ã CASE "0": CALL ShowPage(0)ã CASE "1": CALL ShowPage(1)ã CASE "2": CALL ShowPage(2)ã CASE CHR$(27): EXIT DOã CASE ELSE: BEEPã END SELECTã LOOPã SCREEN 13: SCREEN 0: WIDTH 80ã ENDãã SUB GetPixel (X%, Y%, Culler%, Page%)ã SELECT CASE Page%ã CASE 0: VidSegment% = &HA000ã CASE 1: VidSegment% = &HA4F0ã CASE 2: VidSegment% = &HA9E0ã CASE ELSE: ERROR 5ã END SELECTã OUT &H3CE, 4: OUT &H3CF, X% AND 3ã DEF SEG = VidSegment%ã Culler% = PEEK((Y% * 80) + (X% \ 4))ã END SUBãã SUB PutPixel (X%, Y%, Culler%, Page%)ã SHARED BitMask%()ã SELECT CASE Page%ã CASE 0: VidSegment% = &HA000ã CASE 1: VidSegment% = &HA4F0ã CASE 2: VidSegment% = &HA9E0ã CASE ELSE: ERROR 5ã END SELECTã OUT &H3C4, 2: OUT &H3C5, BitMask%(X% AND 3)ã DEF SEG = VidSegment%ã POKE (Y% * 80) + (X% \ 4), Culler%ã END SUBãã SUB Set320x240modeã 'begin with standard 320x200x256 modeã SCREEN 13ã 'disable "chain4" modeã OUT &H3C4, &H4: OUT &H3C5, &H6ã 'enable writes to all four planesã OUT &H3C4, &H2: OUT &H3C5, &HFã 'clear video memoryã CLSã 'synchronous reset while switching clocksã OUT &H3C4, 0: OUT &H3C5, &H1ã 'select 25 Mhz dot clock and 60 hz scanning rateã OUT &H3C2, &HE3ã 'restart the sequencerã OUT &H3C4, 0: OUT &H3C5, &H3ã 'to reprogram the CRT controller,ã 'remove write protect from the registersã OUT &H3D4, &H11: OUT &H3D5, INP(&H3D5) AND &H7Fã OUT &H3D4, &H6: OUT &H3D5, &HD 'total vertical pixelsã OUT &H3D4, &H7: OUT &H3D5, &H3E 'overflowã OUT &H3D4, &H9: OUT &H3D5, &H41 'turn off double double-scanã OUT &H3D4, &H10: OUT &H3D5, &HEA 'vertical sync startã OUT &H3D4, &H11: OUT &H3D5, &HAC 'vertical sync end, reprotect registersã OUT &H3D4, &H12: OUT &H3D5, &HDF 'vertical pixels displayedã OUT &H3D4, &H14: OUT &H3D5, 0 'turn off dword modeã OUT &H3D4, &H15: OUT &H3D5, &HE7 'vertical blank startã OUT &H3D4, &H16: OUT &H3D5, &H6 'vertical blank endã OUT &H3D4, &H17: OUT &H3D5, &HE3 'turn on byte modeã END SUBãã SUB ShowPage (Page%)ã SELECT CASE Page%ã CASE 0: OUT &H3D4, &HC: OUT &H3D5, 0ã CASE 1: OUT &H3D4, &HC: OUT &H3D5, &H4Fã CASE 2: OUT &H3D4, &HC: OUT &H3D5, &H9Eã CASE ELSE: ERROR 5 'illegal function callã END SELECTã END SUBãã SUB XCLS (Page%)ã SELECT CASE Page%ã CASE 0: VidSegment% = &HA000ã CASE 1: VidSegment% = &HA4F0ã CASE 2: VidSegment% = &HA9E0ã CASE ELSE: ERROR 5ã END SELECTã OUT &H3C4, &H2: OUT &H3C5, &HFã DEF SEG = VidSegment%ã FOR Address% = 0 TO 19199: POKE Address%, 0: NEXTã END SUBãã SUB XPRINT (X%, Y%, Text$, Culler%, Page%)ã STATIC HiNibble%(), LoNibble%()ã IF LEN(Text$) GOTO StartXPRINTã REDIM HiNibble%(255, 15), LoNibble%(255, 15)ã REDIM BitMask%(15)ã BitMask%(0) = 0: BitMask%(1) = 8: BitMask%(2) = 4ã BitMask%(3) = 12: BitMask%(4) = 2: BitMask%(5) = 10ã BitMask%(6) = 6: BitMask%(7) = 14: BitMask%(8) = 1ã BitMask%(9) = 9: BitMask%(10) = 5: BitMask%(11) = 13ã BitMask%(12) = 3: BitMask%(13) = 11: BitMask%(14) = 7ã BitMask%(15) = 15ã DIM Regs AS RegTypeXã Regs.AX = &H1130ã Regs.BX = &H600ã CALL InterruptX(&H10, Regs, Regs)ã CharSegment% = Regs.ES: CharOffset% = Regs.BPã DEF SEG = CharSegment%ã FOR Char% = 0 TO 255ã FOR Ln% = 0 TO 15ã BitPattern% = PEEK(CharOffset%)ã HiNibble%(Char%, Ln%) = BitMask%(BitPattern% \ 16)ã LoNibble%(Char%, Ln%) = BitMask%(BitPattern% AND 15)ã CharOffset% = CharOffset% + 1ã NEXTã NEXTã ERASE BitMask%ãã StartXPRINT:ã SELECT CASE Page%ã CASE 0: VidSegment% = &HA000ã CASE 1: VidSegment% = &HA4F0ã CASE 2: VidSegment% = &HA9E0ã CASE ELSE: ERROR 5ã END SELECTã OUT &H3C4, 2ã DEF SEG = VidSegment%ã VidPtr% = (Y% * 80) + (X% \ 4)ã FOR Ptr% = 1 TO LEN(Text$)ã Char% = ASC(MID$(Text$, Ptr%, 1))ã VidOffset% = VidPtr%ã FOR Ln% = 0 TO 15ã OUT &H3C5, HiNibble%(Char%, Ln%)ã POKE VidOffset%, Culler%ã OUT &H3C5, LoNibble%(Char%, Ln%)ã POKE VidOffset% + 1, Culler%ã VidOffset% = VidOffset% + 80ã NEXTã VidPtr% = VidPtr% + 2ã NEXTã END SUBãBen Lloyd PROG-DRAW 2.2 foxeggs@newrock.com 08-03-96 (10:55) QB, QBasic, PDS 114 7405 PROGDRAW.BAS' Remember to extract the .ZIP with option -Dã' ie. PKUNZIP -D PROGDRAW.ZIP C:\ããDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"PROGDRAW.ZIP",4^6:Z&=5217:?STRING$(50,177);ãU"%up()%9%%%.%%:0'wE%%%%%%%%%%%%%%%3%%%%uw%tliw(f&Ti.wf&T%up()%/%ãU"%%I%%=%%(F%%%%%%%%%%%%%%%9%%%%uw%tliw(f&Ti.wf&i%fySu(i&up%()/%%ãU"%%%%)=%(F%%%%%%%%%%%%%%%%9%%%%uwtl#iwf&%Tity#iwf&#Sui&%up()%9%%ãU"%7-%;w9vE98&7IL%%%%O%%%%:%%%%uw%tliw(f&Tu%wtli.wf&S%gfyp$/YnB(TãU"]Nq7oQGq,%ITO'Fx%/R:9^vAv9JeN#OWA(boIT%<%up%()9%%%%-%&UI&F&Er]9ãU"'d'%%%N*%%%9%%%%uwtl#iwf&%Tnsx%yfqq.Sy'yS4y:='[U5bLW5Y^vr1I_*&fhmi0.,(ãU"2SH'A%OeR\u(z<8/$)ka4Y6b#&fPRC.c;utbb]crc9der[0mk.l/(3Gz%mfN^uGUc^f0ãU"X<(Y>8=#u-NYM60d]pjoFSzLqhH&LBp5%5XG-Bk1;dj/H3:qF4*ePu2j2g.a6$?ãU"g9waQ-C0]ZV)Kc^HcT>E-Hp&VY1X--OPcU)*#ak/&U62LR-6*CmQ53('l&scm)RãU"Tl-IHH3_$RP>]V9=k0X(uBW2GPKeA5h6#jxnznGCS2EIb/?6TVg:(%TD]gDlxIoreWE/0tYH-J:+51wyYE2Tu1LuA0J:)[3yAAu?vãU"Re%LiXe]YQ3$AavLfTh6FjoIUmp>B1Wv6TPMs:8X=okx3d5qG:tUW)[C-kwSAf>P$9ãU"RC(8[-OYA3&yF1:;qb6Usk=x4,Gi4u%p()9%%%%-(%Uw&+F+E2&b9%%%%>%%%%6ãU"%%%%uwt%liwf&&Tzx%jwSn[snX$o^W[^IW%aU#;e'WI2f;-%S%up%()9%%%%-%%ãU"OI&FOt)PU&^2%%%^\%%%7%%%%uwtl#iwf&%Tiwf)&&SgRfxN*rd>T/j;x=9ox(ZãU"&Y7+QlWWM-FDObMX+vPWQM6,PL)#;JZTco'te;V?x?qD<\RNOFU>L1D,k*sl<0lãU"GHmdC_fjW>C5WLvIJ]qy<.DlIB84htqn,6Vw:BPMAyy(MEJJdqcom^+bSJscDPTãU".f#0\^?i1D3WHA%&urlm[EdMzecHky^?0#NFPzl+[8vxcPtJ_ãU"'YrPjDBU'DOrlXpV[h0B'vKr$KClS&85UiVt&BadM3^Tz25H2erNSLGHpjhX]]6ãU"F:><$LcgpKQhf#XumgO(oãU"]SE^8,IgyM?E:yI\ZT&h?L.q.rJUgU/R/NL3YuiIfaD;S3t*&8%q.xAsrjo6<5wãU"T:m_D&ab09vfu493WheE4Oi-'VoTm;V/Hfn]*$IWsfbiRAaE6IN3?JrvvZ%[>.&ãU"u_2[HF5U3)?WY?5S#*>^kz#,nE_=zEpkW1H)x5-lCmg's\BWOI%WfUs^%(.=5T*ãU"aqm.KFo&XnYWDcb=c2+[fV$kkS;aO_0e=3cE]35eMd&Qgeam+ab]9AB%Wnu4AFzto%ChVBbII0)_25pHu..m6?h--ZhA.oG>tcek._5NAY%UãU"gy25v6[Wm,&0q8*tx)o/NZf+ptSKpJ4502nWY.=kWpl\ãU"XL4#y_.hL*KYy.wZU&niKB5T7)s5chtkhZt+pL2q.Jze%\.aqiv*>[fApNeQFa<ãU"R7cH_G+]L&qCp%&[D]'7Qv$<8l0I<(#&UptIAd\qgpX;aGo1J$5oH=XjãU"Egf]Od].T-62.)%hK+0ZqFD_Th.%ki[\Q_iG]fXTjoRg/N6CyDgãU"7,[Ld=r5h]\td;.c9-wKQvSlC6yTXfP.;3O\44rd,/ãU"*1R$c&-=X:tkIA'w,<0cSOKDg[7koY][BXdYZWaIE5l0C)bDB-;:4vi)lEqHMVHãU"zrjYDQ5CFB+jeGc,3*h1xt]'d1[^S35\f)._''KãU"5tHsMjP'_;#Ul/$AV&jSA:6f5Gu?:CFkC6Qg1NfmiPbp\VX89sY,*wq/ieu_rR?ãU"+1P)tBScMwyXt]STXrg2F(4&pZrsUZPJuidqhckDXvm_xvkhki6m&+]?oR,^]'KHPg0qv^DC>I^avWgr%(O0k9YB5M3ãU"X%hL1ti7g*Z$Ippz'HG'P0]JsoZnNaa9]+pKvAQ\#BL_k9Q3C>T-&?*(/jY-79_ãU"d$-bQP>:/r;4WljLaM^IXBUa_u&7uANp03KtF-0PA[<.5;E?0PLLmSid6,WXdYjãU"'%/t.BC(\PR0iVzWVDrz4N.;l?fp^':'\c9&4L-uul51u7^/hBoz0tbjXO?(iiXf_lx[>CpNa&>[/8.BBh)gãU"(LVk[lTE-H)9Igm8o/RD-++i^8y/mu396mbdzQXZm]&+w-5CDWZ-&37;d>I\H97ãU"b=Jz3Zo/)Z;advkyKJZI(+(s5=t.v4t\HB#>g7q8,-+'TTuHR:m$4IHuBum'PJ'ãU"M_Tz.$pey6nX&P*v5q(szVrqT[b3-=I0,p.K3]DNmXv&lRGb;lLjVrRY;5/MS1oãU"vI^]GX&(hR/E0Z9bLrZ'd[v[=7fIC.,>6q%bA?eGDCXA*qSfA-aTnG7)-=b2ob5ãU"Ltqa(6c51KT:[4q%U)1ZHUJn1Npenemc,U[\(e9j'K'3-NZ_K);sN0TM'lgbsTAãU"sQ2l?r'9F^^Ilt#,nIra/lHiRDi;-:_1i'\(#lJQXVsC9#.rJ?3F?.AWIfeWYETãU"+a^kHHF#)t-g7JT0a3qze#kT&NOKkt#2W#NPCraGFcKh;RA**&x<=0sFt%PAz\*ãU"GAzvkS&T)YIk,3A#w20L>%e7ra=6*?*+.;Hk-Km)3o>652eP$LI?&#:nO3*WchcãU"$JwH.q%qiVz15RCVMP?SuMW.c3^*z^Ds#69Ojo^oX&6MAFOJXwV#?J,8W;ce:^..-7wKsXL^c^L1=[dGJ=6)u=DT>=qX\8GRqSfB0?Z-ufcp8b;T:CãU"D,_i7o*z7li4,X)*4,*]oc7aVo')m4b,gr49>s'HW3T[j$mq7n>61kN:OMZxEAZãU"N#X4q[jjGO_V=2+sVTbo_]dQM&-k]wlBjCjq=#BRoZJ*S)cCE>uF.>M4.$?Yf,_ãU"[76N9Li6xf$G6mHEc;t/ATsZ#lWnUnyR%9Dt*Ww,XaNGJC#]D70gD]u_4i_Ox(<ãU"GWl$F93Ur6*9QTkQSf%F4)MH5.D;v7McFuX1V.7:QI+d;Ihe\R^NflG?+5iAv4A,uDGfD/K=[NUe[ãU"e&#VR/9+]guoW>:hPsQAc/Y/*6oeh#;Y.TF3lvP5+_q'_HDS8OSDz8O1Vi,Spx0ãU"M5'p#u8^i8CITAX0pR+3fO5L6GP7X__swROwY?-g?29WvFav&:hmCllHK(FpUO1ãU"F%q]0AR9R6jA7^1?Lm(tJLFdtssc'C\aSg>z3)9Kl#F=dQZdh[A8';fCPknFMV,ãU"KJBl-8b4o_P=,M&Wc6%c4sVDn:S?5k]IZeX%+++=?Q9I+pk\F2aGg,m&l86dGKsãU"mZ%T?bIimp\gj#m_J'2w7a+W'H(ueT9Ia+s[ImZeP?fbOYQo9x4W.:hV:uQBNU=ãU"X2IB;S;G1RI9*X/teL[e:979(KX'2]RqW1Yq3%MG,\eV69'p3^*DS8OSDz:PCdEãU"HtDdv35^:ZG6J0B>jv^(M]I-km2D\p33j,[&EnDMyghP,5M.f4?^jDHs\DHG4S,ãU";d\q;HuA]nm4a*BNOIdN^Lte+foe]$88.U#7==g$<(>:G%0;?=,cqãU"(0;n>:app*P9MUD[;:O\/)(XD1R9/1d[Pb/U>FuAY2WYIn'H27Ju+hOJ+0_?KiLãU"C/Ms-bnB(VR93zS2E(UK:JX6)/L0;7nq%z(FXXQUzkC=5^RoGUzTTB;MU_dmhugãU"h^-jQlT+7iV?]Pqhga*Yt)$PE*hwVER,LNj6/M_;D=c\#&VMKU2Y2ipu9qXh-PEãU"fUTG0DIhnu;J8Z\O]U743swpiWZt$#K208M7v.TeMO.>Ii8H5wANSQghsZZ#RãU"L&aQmhjUlU9>qCmuOo^ZviLZ+&ejz*fUMFgJjPfRpqCdi%5E%ziN_M-za/'aqQcãU"(+(__Pf(S,3^#wlqbQ%<(z<<$-QviMDd>sBM'p4PF3w+FD+Qf\mgJb]Zua_%#wGãU"Q/Z(F?MYhj<*7yWQitpZ+b9vkCRaex6lpQdHLqus48g;HSq4V)(>Ed\2cup/&RNãU"gR[$v:5rh^adulZOYwmMr4h[1JJI1Nmsi:?Tv9t7>CGiuu)4g/tl*WC^]AO*gcZãU"Z5S_^7>[fH)EQr7>4KMK+;tDR8Tj2x[xSt$YZ]3F02=NiBW#4Z1tv#a^LFD;O4WãU"_kRzj&%(F%%%%%%%ãU"%%%%%%%%>%%%%u%wtli.wf&T#iwf&%Tijk%fzqy%Sgfx%up&'%9%9%%%%%%8:0wãU"E%%%%%%%%%%%%%%%%3%%%%%%%%%&%U%%%%%%%%%uw%tliw(f&Ti.wf&T%up&'%9ãU"%/%%%%%%)=%(F%%%%%%%%%%%%%%%%9%%%%%%%%%&%E%%%%Q%%%%uw%tliw(f&TiãU".wf&i%fySu(i&up%&'9%%/%%%I%%=%%(F%%%%%%%%%%%%%%%9%%%%%%%%%&%%E%ãU"%%&-%%%%uwtl#iwf&%Tity#iwf&#Sui&%up&'%9%9%%%%-%9;wvE0987I%L%%%%ãU"O%%%%:%%%%%%%%%&%E%.%%_%%%%uw%tliw(f&Tu%wtli.wf&S%gfyu%p&'9%%9%ãU"%#%-%U#I&FE[r]9d%'%%N%*%%9%%%%%%%%%&%%E%%+%c%%%%uwt%liwf&&Tns%xãU"yfq#qSy'%yup&%'9%9%%%%-(%Uw&+F+E2&b9%%%%>%%%%6%%%%%%%%%&%E%%%%,ãU"%)%%u%wtli.wf&T%zxjw%Snsn%up&'%9%9%%%%-%%OI&FOt)PU&^2%%%^\%%%7%ãU"%%%%%%%%&%E%%%%o)%%%uw%tliw(f&TiIwf&&%Sgfx%up&'%9%/%%%%%%)>%(F%ãU"%%%%%%%%%%%%%%%>%%%%%%%%%&%E%%%%.7%%%uw%tliw(f&Ti.wf&T%ijkf%zqyãU"S%gfxu%p*+%%%%%-%%-%0%'%%e%7%%%%%ãEND SUBãCLOSE:IF S=255AND 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ãTony Cave BURNING FIRE SIMULATOR FidoNet QUIK_BAS Echo 07-31-96 (01:12) QB, QBasic, PDS 218 7253 BURNING.BAS 'burning.bas is a fire simulator followed by a palette manipulatorã'1 compile the program (Qbasic v1.1 users see REMarks in SUB getsizes)ã' (you need to save this in QB to generate the DECLARE statements)ã'2 run the program specifying window sizeã' EXAMPLE: burning 100 80ã' where 100 is the x value and 80 is the y valueã' executing burning with no parameters uses the default values.ã' (you might want to use the defaults first to get a feel for it)ã' for great palette manipulations try using: burning 200 160ã'3 when you want to freeze the screen and go into palette manipulations,ã' press a keyã'4 in the palette manipulations:ã' press "P" for a different palette setã' "-" to slow down palette rotationã' "+" or "=" to speed up palette rotationã' "Q" to quitã'Feedback would be appreciated (especially on speeding up the fire sub)ãDIM ca(9, 256)ãID$ = "BURNING.BAS (c) 1996 by Tony Cave"ãscreenmode ' setup the screenãgetsizes ' get the screen sizesãfirepal ' setup palette for fireãcircleback ' draw circular background (REM this out if you don't like it)ãrandback ' draw random background to speed up fire simulationãfire ' fire simulationãcolors ' palette manipulationsã'NOTE: This program is not guaranteed to do anything. The authorã'of this program claims no responsibility for anything that happens.ã'If any damage is done, it is the fault of the user of this program.ãSUB circlebackãFOR cir = 0 TO 255 'add this sub for a circle backgroundãCIRCLE (160, 100), cir * 203 / 255, cir / 2ãCIRCLE (160 + 1, 100), cir * 203 / 255, cir / 2ãNEXTãEND SUBãSUB colorsãSHARED a$ãDOã DOã cycleã delayã getkeyã LOOP UNTIL a$ <> ""ã keycheckãLOOPãEND SUBãSUB cycle 'cycle the paletteãSHARED red%, green%, blue%ãrgb 1ãu1% = red%: u2% = green%: u3% = blue%ãFOR t = 1 TO 254ã rgb t + 1ã OUT &H3C8, t: OUT &H3C9, red%: OUT &H3C9, green%: OUT &H3C9, blue%ãNEXTã OUT &H3C8, 255: OUT &H3C9, u1%: OUT &H3C9, u2%: OUT &H3C9, u3%ãEND SUBãSUB delayãSHARED m7ãFOR asdf = 1 TO m7: NEXTãEND SUBãSUB findrgb (x%, y%) 'finds the rgb of a particular pixelãSHARED red%, green%, blue%ãc% = POINT(x%, y%)ãOUT &H3C7, c%ãred% = INP(&H3C9)ãgreen% = INP(&H3C9)ãblue% = INP(&H3C9)ãEND SUBãSUB fireãSHARED sizex, sizey, space, ca()ãDIM x AS INTEGER, y AS INTEGER, avg AS INTEGERãDOãx = INT(RND * sizex) * space - INT(sizex / 2) * space + 160ãy = INT(RND * sizey) * space - INT(sizey / 2) * space + 100ãavg = POINT(x - space, y + space)ãavg = (avg + POINT(x + space, y + space) + POINT(x, y + space)) \ 3ãavg = avg * -(avg < 255)ãPUT (x - 1, y - 1), ca(1, avg + 1), PSETãLOOP UNTIL INKEY$ <> ""ãEND SUBãSUB firepal 'the starting paletteãFOR pu = 1 TO 255ã OUT &H3C8, puã OUT &H3C9, (126 - (ABS(pu - 128))) / 2ã OUT &H3C9, (126 - (ABS(pu - 128))) / 4ã OUT &H3C9, 0'((ABS(pu - 128))) / 4ã'LINE (pu, 0)-(pu, 25), pu 'This is to check out the paletteãNEXT puãPALETTE 128, &H20303FãEND SUBãSUB getkeyãSHARED a$ãa$ = INKEY$ãEND SUBãSUB getsizes 'get the screen sizeãSHARED sizex, sizey, hsizex, hsizey, spaceãspace = 1 'distance apart for pixels or boxes or whateverãsizex = VAL(LEFT$(COMMAND$, 3))ãsizey = VAL(RIGHT$(COMMAND$, 3))ã'Qbasic users REM out the above 2 lines and unREM the below lineã'sizex = 20: sizey = 20 'change these to what ever you want butã 'larger numbers slow it down alotã 'For good palette manipulations, change toã 'sizex=316:sizey=196 and wait about 7 minã 'before pressing a keyãa = sizex: B = sizey: c = 318: d = 198ãsizex = a * ABS((a <> 0) AND (a < c)) + 50 * ABS(a = 0) + c * ABS(a > c)ãsizey = B * ABS((B <> 0) AND (B < d)) + 30 * ABS(B = 0) + d * ABS(B > d)ãhsizex = INT(sizex / 2)ãhsizey = INT(sizey / 2)ãEND SUBãSUB keycheckãSHARED a$, m7ã IF a$ = "=" OR a$ = "+" THENã m7 = m7 - 1000: m7 = m7 * -((m7 - 1000) > 999)ã END IFã IF a$ = "-" THEN m7 = m7 + 1000ã IF UCASE$(a$) = "P" THEN nextpalã IF UCASE$(a$) = "Q" THEN DEF SEG : SYSTEMãEND SUBãSUB nextpalãSHARED palnum, red%, green%, blue%ãnop = 5 'number of valid palette sets in case you want to add moreãpalnum = palnum + 1ãIF palnum > nop THEN palnum = 1ãSELECT CASE palnumãCASE 1ãPALETTEãCASE 2ãt = 0: m = 0ãFOR pu = 1 TO 255ã IF t = 0 THEN count = count + 1: IF count > 31 THEN t = 1ã IF t = 1 THEN count = count - 1: IF count < 1 THEN t = 0: m = m + 1ã IF m > 3 THEN m = 0ã OUT &H3C8, puã OUT &H3C9, INT((32 - count) * 63 / 32) * ((m = 0) OR (m = 3))ã OUT &H3C9, INT((32 - count) * 63 / 32) * ((m = 1) OR (m = 3))ã OUT &H3C9, INT((32 - count) * 63 / 32) * ((m = 2) OR (m = 3))ãNEXT puãPALETTE 255, 0ãCASE 3ãse = INT(.03 * 127): th = INT(.08 * 127): fo = INT(.99 * 127)ãFOR pu = 1 TO seã OUT &H3C8, pu: OUT &H3C9, 0: OUT &H3C9, 0: OUT &H3C9, 32ãNEXT puãFOR pu = se TO thã OUT &H3C8, pu: OUT &H3C9, 0: OUT &H3C9, 0ã OUT &H3C9, INT((pu - se) * (31 / (th - se))) + 32ãNEXT puãFOR pu = th TO foã OUT &H3C8, pu: OUT &H3C9, 0: OUT &H3C9, 0ã OUT &H3C9, 63 - (INT((pu - th) * (31 / (fo - th))) + 32)ãNEXT puãFOR pu = fo TO 127ã OUT &H3C8, puã OUT &H3C9, INT((pu - fo) * (63 / (127 - fo)))ã OUT &H3C9, INT((pu - fo) * (63 / (127 - fo)))ã OUT &H3C9, 63ãNEXT puãFOR pu = 128 TO 255ã rgb 255 - puã OUT &H3C8, pu: OUT &H3C9, red%: OUT &H3C9, green%: OUT &H3C9, blue%ãNEXT puãCASE 4ãt = 0: m = 0ãFOR pu = 1 TO 255ã IF t = 0 THEN count = count + 1: IF count > 6 THEN t = 1ã IF t = 1 THEN count = count - 1: IF count < 1 THEN t = 0: m = m + 1ã IF m > 3 THEN m = 0ã OUT &H3C8, puã OUT &H3C9, INT((7 - count) * 63 / 7) * ((m = 0))' OR (m = 3))ã OUT &H3C9, INT((7 - count) * 63 / 7) * ((m = 1))' OR (m = 3))ã OUT &H3C9, INT((7 - count) * 63 / 7) * ((m = 2))' OR (m = 3))ãNEXT puãPALETTE 255, 0ãCASE 5ãFOR pu = 1 TO 255ã OUT &H3C8, puã OUT &H3C9, (126 - (ABS(pu - 128))) / 2ã OUT &H3C9, (126 - (ABS(pu - 128))) / 4ã OUT &H3C9, 0'((ABS(pu - 128))) / 4ã'LINE (pu, 0)-(pu, 25), puãNEXT puãPALETTE 128, &H20303FãEND SELECTãEND SUBãSUB randbackãDIM c AS INTEGERãSHARED sizex, sizeyãfy1 = ABS(sizey / 2 <> sizey \ 2): fy2 = NOT ABS(fy1)ãfx1 = ABS(sizex / 2 <> sizex \ 2): fx2 = NOT ABS(fx1)ãFOR y = 100 - sizey / 2 - 1 + fy1 TO 100 + sizey / 2 + 1 + fy2ãFOR x = 160 - sizex / 2 - 1 + fx1 TO 160 + sizex / 2 + 1 + fy2ãc = INT(RND * 50 + 206)ã'use the following two lines for a special backgroundã'c = (COS((y * .03515625# - 3.515625) ^ 2) * 63.75 + 63.75)ã'c = c + (COS((x * .0265625 - 4.25) ^ 2) * 63.75 + 63.75)ãPOKE INT(y) * 320 + INT(x), cãNEXTãNEXTãEND SUBãSUB rgb (gluupin%) 'finds the rgb of a color attributeãSHARED red%, green%, blue%ãOUT &H3C7, gluupin%ãred% = INP(&H3C9): green% = INP(&H3C9): blue% = INP(&H3C9)ãEND SUBãSUB screenmodeãSHARED ca()ãDEF SEG = &HA000ãSCREEN 13ãFOR x = 0 TO 765 STEP 3ãx2 = x + 318 * (x > 315)ãx3 = x2 + 318 * (x2 > 315)ãy = (-(x > 315) - (x > 630)) * 3ãLINE (x3, y)-(x3 + 2, y + 2), x / 3, BFãGET (x3, y)-(x3 + 2, y + 2), ca(1, x / 3) 'put colors into array toãNEXT 'speed up the fire subãEND subãKurt Kuzba BOUNCING GREAT BALLS OF FIRE FidoNet QUIK_BAS Echo 04-18-96 (00:00) QB, QBasic, PDS 77 3098 RGB13FLO.BAS'_|_|_| RGB13FLO.BASã'_|_|_| A graphics display program based on a FIDO ECHO messageã'_|_|_| From: Mike Castelli ... Date: 04-05-96 10:48ã'_|_|_| Subject: Circle Burnã'_|_|_| No guarantees or warrantees are given or implied.ã'_|_|_| Released to PUBLIC DOMAIN by Kurt Kuzba. (4/18/96)ãCRSX% = CSRLIN: CRSY% = POS(0): ScrPocket 1ãTYPE BallsColorDef: R AS INTEGER: G AS INTEGER: B AS INTEGER: END TYPEãTYPE GreatBallsOfFireã X AS INTEGER: XD AS INTEGER: Y AS INTEGER: YD AS INTEGERã H AS INTEGER: C AS INTEGER: END TYPEãDIM SHARED cr(1 TO 6) AS GreatBallsOfFireãDIM SHARED rgb(1 TO 6, 16) AS BallsColorDefãFOR t% = 0 TO 8ã C% = t% * 5 + 22: B% = (t% + 1) * 2ã rgb(1, t%).R = C%: rgb(1, t%).G = B%: rgb(1, t%).B = t%ã rgb(2, t%).R = t%: rgb(2, t%).G = C%: rgb(2, t%).B = B%ã rgb(3, t%).R = B%: rgb(3, t%).G = t%: rgb(3, t%).B = C%ã rgb(4, t%).R = C%: rgb(4, t%).G = 0: rgb(4, t%).B = C%ã rgb(5, t%).R = 0: rgb(5, t%).G = C%: rgb(5, t%).B = C%ã rgb(6, t%).R = C%: rgb(6, t%).G = C%: rgb(6, t%).B = 0: NEXTãFOR t% = 1 TO 7ã FOR C% = 1 TO 6: rgb(C%, 16 - t%) = rgb(C%, t%): NEXT: NEXTãSCREEN 13: RANDOMIZE (TIMER * 100): PalPocket 1ãFOR t% = 1 TO 6ã cr(t%).X = RND * 320: cr(t%).Y = RND * 200ã cr(t%).XD = (RND * 2 + 1): cr(t%).YD = (RND * 2 + 1)ã cr(t%).H = t% * 2: NEXTãWHILE INKEY$ = ""ã CircDrawã FOR t% = 1 TO 6ã IF cr(t%).X < 10 THEN cr(t%).XD = ((RND * 999) AND 1) + 1ã IF cr(t%).Y < 10 THEN cr(t%).YD = ((RND * 999) AND 1) + 1ã IF cr(t%).X > 309 THEN cr(t%).XD = -(((RND * 999) AND 1) + 1)ã IF cr(t%).Y > 189 THEN cr(t%).YD = -(((RND * 999) AND 1) + 1)ã cr(t%).X = cr(t%).X + cr(t%).XDã cr(t%).Y = cr(t%).Y + cr(t%).YD: NEXTãWEND: PalPocket 0: SCREEN 0: WIDTH 80, 25ãLOCATE CRSX%, CRSY%, 1: ScrPocket 0ãSUB CircDrawã FOR C% = 1 TO 6ã cr(C%).H = (cr(C%).H + 1) AND 15ã cr(C%).C = (cr(C%).C + 14) AND 15ã X% = cr(C%).X: Y% = cr(C%).Y: H% = cr(C%).Hã FOR l% = 0 TO 11ã CIRCLE (X%, Y%), l% + 1, ((H% + l%) AND 15) + C% * 16 - 15ã NEXTã FOR t% = 1 TO 16ã OUT &H3C8, t% + (C% - 1) * 16: H% = (cr(C%).C + t%) AND 15ã OUT &H3C9, rgb(C%, H%).R: OUT &H3C9, rgb(C%, H%).Gã OUT &H3C9, rgb(C%, H%).B: NEXT: NEXTãEND SUBãSUB PalPocket (save%) STATICã DIM pal(384) AS INTEGERã DEF SEG = VARSEG(pal(0)): O& = VARPTR(pal(0))ã IF save% <> 0 THENã FOR t% = 0 TO 255ã OUT &H3C7, t%: POKE O& + t% * 3 + 0, INP(&H3C9)ã POKE O& + t% * 3 + 1, INP(&H3C9)ã POKE O& + t% * 3 + 2, INP(&H3C9): NEXTã ELSEã FOR t% = 0 TO 255ã OUT &H3C8, t%: OUT &H3C9, PEEK(O& + t% * 3 + 0)ã OUT &H3C9, PEEK(O& + t% * 3 + 1)ã OUT &H3C9, PEEK(O& + t% * 3 + 2): NEXTã END IFãEND SUBãSUB ScrPocket (gt%) STATICã DIM scr(4000) AS STRING * 1ã DEF SEG = &HB800ã IF gt% <> 0 THENã FOR t& = 0 TO 3999: scr(t&) = CHR$(PEEK(t&) AND 255): NEXTã ELSEã FOR t& = 0 TO 3999: POKE t&, ASC(scr(t&)): NEXTã END IFãEND SUBã'_|_|_| end RGB13FLO.BASãKurt Kuzba BUFFERED PCX VIEWER FidoNet QUIK_BAS Echo 07-20-96 (00:00) QB, QBasic, PDS 66 2566 PCXVIEW.BAS '> ok, well the basic gif displayer I have is very slow, aboutã'> 3-4 min. to display a picture. Is there a faster way toã'> display pixels?ã'>..............................................................ã' You might benefit from the use of a buffer. Have a look atã'this. It is for 320x200x256 .PCX files, but the idea of theã'screen buffer is implemented. Where a greater ammount ofã'calculation is required, and multiple bit planes are involved,ã'the time savings should be considerable using a buffer.ã'With four bit planes, you would use four buffers set up as:ã' DIM buf0(19202) AS INTEGERã' DIM buf1(19202) AS INTEGERã' DIM buf2(19202) AS INTEGERã' DIM buf3(19202) AS INTEGERã'Once you GET your screen to your buffer, you can write to theã'buffer your data, and then PUT the data onscreen.ãã'_|_|_| PCXVIEW.BASã'_|_|_| An example of 320x200x256 .PCX display in QBasic.ã'_|_|_| No warrantees or guarantees are given or implied.ã'_|_|_| Released to PUBLIC DOMAIN by Kurt Kuzba. (7/20/96)ãON ERROR GOTO OOps: '$DYNAMICãDIM buf(32002) AS INTEGER: buf(0) = 2560: buf(1) = 200ã'_|_|_| init buffer for 2560 bits X 200 linesãBSEG& = VARSEG(buf(2)): BOFS& = VARPTR(buf(2))ãINPUT "Name of PCX file to view => ", PCX$: IF PCX$ = "" THEN ENDãbt1! = TIMER: PRINT "Loading file"ãOPEN PCX$ FOR INPUT AS #1: CLOSE 1: OPEN PCX$ FOR BINARY AS #1ãfin& = LOF(1) - 767: SEEK #1, fin&: pal$ = INPUT$(768, 1)ãp% = 1: fin& = fin& - 1: SCREEN 13ãFOR T& = 0 TO 255ã OUT &H3C8, T&ã FOR hue% = 1 TO 3ã OUT &H3C9, ASC(MID$(pal$, p%)) \ 4: p% = p% + 1ã NEXTãNEXTãSEEK #1, 129: T& = BOFS&: DEF SEG = BSEG&: CLS : spin% = 1ãPRINT "Loading PCX "; : spinner$ = "//--\\||": rle% = 0ãDOã PRINT CHR$(29); MID$(spinner$, spin%, 1);ã spin% = (spin% AND 7) + 1ã p$ = INPUT$(256, 1): fpos& = SEEK(1): l% = LEN(p$)ã IF fpos& > fin& THENã l% = l% - (fpos& - fin&): p$ = LEFT$(p$, l%): view$ = "done"ã END IFã FOR p% = 1 TO l%ã dat% = ASC(MID$(p$, p%))ã IF rle% = 0 THENã IF (dat% AND 192) = 192 THENã rle% = dat% AND 63ã ELSEã POKE T&, dat%: T& = T& + 1ã END IFã ELSEã FOR rle% = rle% TO 1 STEP -1ã POKE T&, dat%: T& = T& + 1ã NEXTã END IFã NEXTãLOOP UNTIL view$ = "done"ãbt2! = TIMER: CLOSE 1: PUT (0, 0), buf, PSETãWHILE INKEY$ <> "": WEND: WHILE INKEY$ = "": WENDãSCREEN 12: WIDTH 80, 25: PRINT bt2! - bt1!ãOOps:ã CLOSE 1: PRINT "error"; ERR: ENDã'_|_|_| end PCXVIEW.BASãDarryl Stokes DONUT BALLS FidoNet QUIK_BAS Echo 07-22-96 (16:33) QB, QBasic, PDS 59 1169 DONUTS.BAS RANDOMIZE TIMERãSCREEN 13ããrecalc:ã'CLSããred = 0ãgreen = 0ãblue = 0ããredbig = INT(RND * 5) + 1ãgreenbig = INT(RND * 5) + 1ãbluebig = INT(RND * 5) + 1ãIF redbig = 2 THEN redbig = .5ãIF greenbig = 2 THEN greenbig = .5ãIF bluebig = 2 THEN bluebig = .5ãIF redbig = 3 THEN redbig = .25ãIF greenbig = 3 THEN greenbig = .25ãIF bluebig = 3 THEN bluebig = .25ãIF redbig = 4 THEN redbig = .75ãIF greenbig = 4 THEN greenbig = .75ãIF bluebig = 4 THEN bluebig = .75ãIF redbig = 5 THEN redbig = 0: red = 1ãIF greenbig = 5 THEN greenbig = 0: green = 1ãIF bluebig = 5 THEN bluebig = 0: blue = 1ããFOR i = 30 TO 92ã red = red + redbigã blue = blue + bluebigã green = green + greenbigã PALETTE i, 65536 * INT(blue) + 256 * INT(green) + INT(red)ãNEXT iããc = 32ãdir = 1ããcircles:ãDOãx = INT(RND * 320) + 1ãy = INT(RND * 200) + 1ãr = INT(RND * 150) + 1ãFOR i = r TO 1 STEP -1ãCIRCLE (x, y), i, cãPAINT (x, y), cãSELECT CASE dirã CASE 1ã c = c + 1ã IF c = 92 THEN dir = 2ã CASE 2ã c = c - 1ã IF c = 32 THEN dir = 1ãEND SELECTãNEXT iãc = 32ãdir = 1ãIF INKEY$ <> "" THEN ENDãGOTO recalcãLOOPããKurt Kuzba PALETTE MANIPULATION FidoNet QUIK_BAS Echo 06-02-96 (00:00) QB, QBasic, PDS 86 4033 PALPAL.BAS '> 'I like this one alot. It uses the PALETTE statementã'>.......................................................ã' The yin-yang was very nice. Here are some hardware paletteã'routines you might someday find useful.ã'_|_|_| PALPAL.BASã'_|_|_| This is a simple demonstration of methods of paletteã'_|_|_| manipulation. Demonstration uses graphics mode 13h.ã'_|_|_| No warrantees or guarantees are given or implied.ã'_|_|_| Released to PUBLIC DOMAIN by Kurt Kuzba. (6/2/96)ãDECLARE SUB pal (act$)ãSCREEN 13: DEF SEG = &HA000: DIM SHARED red(256) AS INTEGERãDIM SHARED grn(256) AS INTEGER: DIM SHARED blu(256) AS INTEGERãFOR t& = 1 TO 63999: POKE t&, (t& AND 511) \ 2: NEXTãSOUND 999, 3: pal "save"ãpal "fadeout": SOUND 999, 3: WHILE INKEY$ = "": WENDãpal "fadein": SOUND 999, 3: WHILE INKEY$ = "": WENDãpal "blackout": SOUND 999, 3: WHILE INKEY$ = "": WENDãpal "restore": SOUND 999, 3: WHILE INKEY$ = "": WENDãSCREEN 0: WIDTH 80, 25: ENDãSUB pal (act$)ã SELECT CASE act$ã ' "save","fadein","fadeout","restore","blackout"ã CASE "save"ã FOR colour% = 0 TO 255ã OUT &H3C7, colour% ' Set color to readã red(colour%) = INP(&H3C9) ' read red valueã grn(colour%) = INP(&H3C9) ' read green valueã blu(colour%) = INP(&H3C9) ' read blue valueã NEXTã CASE "fadein"ã DOã done% = 0ã FOR colour% = 0 TO 255ã OUT &H3C7, colour% ' Set color to readã red% = INP(&H3C9) ' read red valueã grn% = INP(&H3C9) ' read green valueã blu% = INP(&H3C9) ' read blue valueã ' Test the color values, decrementing if necessary.ã ' Set loop variable if saved palette not in use.ã IF red% < red(colour%) THEN red% = red% + 1: done% = 1ã IF grn% < grn(colour%) THEN grn% = grn% + 1: done% = 1ã IF blu% < blu(colour%) THEN blu% = blu% + 1: done% = 1ã WAIT &H3DA, 8, 8ã OUT &H3C8, colour% ' Set color to writeã OUT &H3C9, red% ' write red valueã OUT &H3C9, grn% ' write green valueã OUT &H3C9, blu% ' write blue valueã NEXTã LOOP WHILE done% <> 0ã CASE "fadeout"ã DOã visible% = 0ã FOR colour% = 0 TO 255ã OUT &H3C7, colour% ' Set color to readã red% = INP(&H3C9) ' read red valueã grn% = INP(&H3C9) ' read green valueã blu% = INP(&H3C9) ' read blue valueã ' Test the color values, decrementing if necessary.ã ' Set loop variable if colors are still visible.ã IF red% > 0 THEN red% = red% - 1: visible% = 1ã IF grn% > 0 THEN grn% = grn% - 1: visible% = 1ã IF blu% > 0 THEN blu% = blu% - 1: visible% = 1ã WAIT &H3DA, 8, 8ã OUT &H3C8, colour% ' Set color to writeã OUT &H3C9, red% ' write red valueã OUT &H3C9, grn% ' write green valueã OUT &H3C9, blu% ' write blue valueã NEXTã LOOP WHILE visible% <> 0ã CASE "restore"ã FOR colour% = 0 TO 255ã OUT &H3C8, colour% ' Set color to writeã OUT &H3C9, red(colour%) ' write red valueã OUT &H3C9, grn(colour%) ' write green valueã OUT &H3C9, blu(colour%) ' write blue valueã NEXTã CASE "blackout"ã FOR colour% = 0 TO 255ã OUT &H3C8, colour% ' Set color to writeã OUT &H3C9, 0 ' write red valueã OUT &H3C9, 0 ' write green valueã OUT &H3C9, 0 ' write blue valueã NEXTã END SELECTãEND SUBã'_|_|_| end PALPAL.BASãPeter Cooper RAY CASTER 3D ENGINE peco@trenham.demon.co.uk 08-09-96 (10:31) QB, QBasic, PDS 93 2705 RAYCAST.BAS ' ==========================================================================ã' RAY CASTER 3D sorta ENGINE thingymajigã' ==========================================================================ã' Wrote this about a month ago, it's a sort of wolfenstien\doom lookalikeã' but all in native QBasic source! Uses an interesting ray tracing techniqueã' could be optimized x1000 Infact, it's being converted to ASM and stuffã' like textures will be added and maybe a bit of shadingã'ã' Anyway, this code is _public domain_, change it, modify it, whatever, itã' only took about 40 mins in total, So whatever.. you have fun with it ã'ã' Cheers, {:o) Peter CooperããDECLARE SUB screensetup ()ãDECLARE SUB makeworld ()ãDECLARE SUB maketables ()ãDIM SHARED st%(0 TO 360)ãDIM SHARED ct%(0 TO 360)ãDIM SHARED a$(1 TO 10)ãpx% = 15: py% = 15: sa% = 0ãPRINT "please wait..";ãmakeworldãmaketablesãscreensetupãlp1:ãFOR t% = sa% TO sa% + 59 STEP 1ãxb = st%(t% MOD 360) / 100 'get incãyb = ct%(t% MOD 360) / 100 'get incãbx = px% 'decimal copyãby = py% 'decimal copyãl% = 0 'reset lengthãDOãbx = bx + xbãby = by + ybãl% = l% + 1ãk% = ASC(MID$(a$(CINT(by / 10)), CINT(bx / 10), 1)) - 48ãLOOP UNTIL k% <> 0ãã'PRINT l% this would print the distance to wall from playerãx% = (t% - sa%) * 5ãdd% = (1000 / l%)ãLINE (x%, 1)-(x% + 5, 99 - dd%), 15, BFãLINE (x%, 101 + dd%)-(x% + 5, 200), 2, BFãLINE (x%, 100 - dd%)-(x% + 5, 100 + dd%), k%, BFãLINE (x%, 100 - dd%)-(x% + 5, 100 - dd%), 0ãLINE (x%, 100 + dd%)-(x% + 5, 100 + dd%), 0ããNEXT t%ãPCOPY 0, 1ããin$ = INPUT$(1)ãIF in$ = "x" THEN sa% = sa% + 3ãIF in$ = "z" THEN sa% = (sa% + 357) MOD 360ãIF in$ = CHR$(27) THEN SCREEN 0: WIDTH 80, 25: SYSTEMãIF in$ = " " THENã px% = px% + (st%(t% MOD 360) / 50)ã py% = py% + (ct%(t% MOD 360) / 50)ãEND IFãGOTO lp1:ããSUB maketablesã' Peters boring _yawn_ table creationãFOR tmp1% = 0 TO 360ãst%(tmp1%) = SIN(tmp1% * .0174) * 100ãIF tmp1% MOD 100 = 0 THEN PRINT ; ".";ãNEXT tmp1%ãFOR tmp1% = 0 TO 360ãct%(tmp1%) = COS(tmp1% * .0174) * 100ãIF tmp1% MOD 100 = 0 THEN PRINT ; ".";ãNEXT tmp1%ãEND SUBããSUB makeworldã' Peter Coopers demonstration level. Change it if you wish! Each numberã'isã' a color numberãa$(1) = "1919191919"ãa$(2) = "9000000001"ãa$(3) = "1000000409"ãa$(4) = "9010005001"ãa$(5) = "1020040009"ãa$(6) = "9030000001"ãa$(7) = "1000078009"ãa$(8) = "9050087001"ãa$(9) = "1060000009"ãa$(10) = "9191919191"ãEND SUBããSUB screensetupãSCREEN 8, , 0, 1ãCLSãWINDOW SCREEN (1, 1)-(320, 200)ãEND SUBãJonathan Leger LED SCREEN SAVER leger@mail.dtx.net 08-12-96 (21:02) QB, QBasic, PDS 274 8803 LED.BAS DEFINT A-Zãã'LedDisplay() routine Original Author: Scott Pessoni - August 1995ã'---> Modified by Jonathan Leger <---ãã'All other code, including InitLedDisplay() and InitLedBar(), writtenã'by Jonathan Leger (leger@mail.dtx.net).ããDECLARE SUB InitLedDisplay (x%, y%, onc%, offc%, digits%, v%, a%)ãDECLARE SUB InitLedBar (x%, y%, onc%, offc%, elems%, maxval%, v%, a%)ãDECLARE SUB LedBar (Number#)ãDECLARE SUB LedDisplay (Number#)ããDIM SHARED DisplayLedX, DisplayLedY, LedDigits, OnColor, OffColor, apage, vpageãDIM SHARED GraphLedX, GraphLedY, GraphElements, GraphNumãã'This string, scrollmsg$, _must_ have a space at the end.ãscrollmsg$ = "REAL PROGRAMERS USE BASIC... ": scrollclr = 14ããSCREEN 7ããt# = TIMERãx# = 0ãDOã x# = x# + 1ãLOOP UNTIL TIMER - t# > 1ããx# = x# / 5ããRANDOMIZE TIMERãcx = INT(RND * 280): cy = INT(RND * 160) + 12ãxd = INT(RND * 2) + 1ãIF xd = 1 THENã xdir = -1ãELSEã xdir = 1ãEND IFãyd = INT(RND * 2) + 1ãIF yd = 1 THENã ydir = -1ãELSEã ydir = 1ãEND IFããdigits = 1: fore = 9: back = 8ãsloc = 40: slet = 1: stog = 0ããDOããFOR Count# = VAL(STRING$(digits - 1, "9")) TO VAL(STRING$(digits, "9"))ãã x2# = 0ã DOã x2# = x2# + 1ã LOOP UNTIL x2# >= x#ãã stog = stog + 1ã IF stog = 5 THENã stog = 0ã SCREEN , , apage, vpageã LOCATE 1, 1: PRINT STRING$(40, " ");ã IF fore = 15 THENã COLOR 9ã ELSEã COLOR fore + 1ã END IFã LOCATE 1, slocã PRINT MID$(scrollmsg$, slet, (40 - sloc));ã sloc = sloc - 1ã IF sloc = 0 THENã sloc = 1ã slet = slet + 1ã FOR sc = 2 TO 25ã IF slet - sc < 1 THEN EXIT FORã LOCATE sc, 1: PRINT MID$(scrollmsg$, slet - sc, 1);ã NEXT scã IF sc = 26 AND slet - sc = LEN(scrollmsg$) THENã slet = 1: sloc = 40ã END IFã END IFã END IFãã InitLedDisplay cx, cy, 0, 0, digits, 0, 1ã LedDisplay -1ãã cx = cx - xdirã cy = cy - ydirãã IF cx < 12 THENã xdir = xdir * -1ã cx = 12ã ELSEIF cy < 12 THENã ydir = ydir * -1ã cy = 12ã ELSEIF cx > 280 THENã xdir = xdir * -1ã cx = 280ã ELSEIF cy > 180 THENã ydir = ydir * -1ã cy = 180ã END IFãã InitLedDisplay cx, cy, fore, back, digits, 0, 1ãã LedDisplay Count#ãã key$ = INKEY$ãã SELECT CASE key$ã CASE CHR$(27)ã EXIT DOã END SELECTãã IF (Count# MOD 100) = 0 THENã fore = fore + 1ã IF fore > 15 THEN fore = 9ã END IFããNEXT Count#ããdigits = digits + 1ããLOOPããSUB InitLedBar (x%, y%, onc%, offc%, elems%, maxval%, v%, a%)ããapage% = a%: vpage% = v%ãSCREEN , , apage%, vpage%ããGraphLedX = x% '|- Upper Left corner ofãGraphLedY = y% '| Led Graph displayãGraphElements = elems% 'Number of graph elements. Maximum 32ãGraphNum = maxval% 'The number when the graph is 100%ããEND SUBããSUB InitLedDisplay (x, y, onc, offc, digits, v, a)ããapage = a: vpage = vããSCREEN , , apage, vpageããDisplayLedX = x '|- Upper Left corner ofãDisplayLedY = y '| Led Digit displayãLedDigits = digits 'Number of digits to have on displayããOnColor = onc: OffColor = offcããLedDisplay -1ããEND SUBãã'LedBar: A simulated Led Bargraphã'-----------------------------------------------ã'LedBar Numberã' Number = The current number you want to update the bar graph withã'-----------------------------------------------ãSUB LedBar (Number#)ããIF Number# < 0 THEN 'If Negitive then blank Bar Graphã FOR MakeGraph = 1 TO GraphElements * 2 STEP 2 'Make the Bar graphã LINE (GraphLedX + MakeGraph, GraphLedY)-(GraphLedX + MakeGraph, GraphLedY + 5), OffColor%ã NEXT MakeGraphã EXIT SUBãEND IFããElements = INT(Number# * GraphElements / GraphNum) 'Calculate Number ElementsãIF Elements > GraphElements THEN Elements = GraphElements 'Check limtsãã'----------------- Draw Bar Graph --------------------------------ãFOR MakeGraph = 1 TO Elements * 2 STEP 2 'Make the Bar graph (Lit)ãLINE (GraphLedX + MakeGraph, GraphLedY)-(GraphLedX + MakeGraph, GraphLedY + 5), OnColor%ãNEXT MakeGraphãFOR MakeGraph = Elements * 2 + 1 TO GraphElements * 2 STEP 2 'Make the Bar graph (DimãLINE (GraphLedX + MakeGraph, GraphLedY)-(GraphLedX + MakeGraph, GraphLedY + 5), OffColor%ãNEXT MakeGraphã'------------------------------------------------------------------ãEND SUBãã'LedDisplay: Generates a simulated Digital Led Display.ã'------------------------------------------------------------ã'LedDisplay (Number)ã' Number = The number you want to display on the Digital Displayã'------------------------------------------------------------ãSUB LedDisplay (Number#)ããSCREEN , , apage, vpageããIF Number# < 0 THEN 'Setup Led Display panelã FOR PlotX = DisplayLedX TO DisplayLedX + ((LedDigits - 1) * 8) STEP 8ã '----------- One LED Matrix digit --------------------ã LINE (PlotX + 1, DisplayLedY)-(PlotX + 5, DisplayLedY), OffColor%ã LINE (PlotX, DisplayLedY + 1)-(PlotX, DisplayLedY + 5), OffColor%ã LINE (PlotX + 6, DisplayLedY + 1)-(PlotX + 6, DisplayLedY + 5), OffColor%ã LINE (PlotX + 1, DisplayLedY + 6)-(PlotX + 5, DisplayLedY + 6), OffColor%ã LINE (PlotX, DisplayLedY + 7)-(PlotX, DisplayLedY + 11), OffColor%ã LINE (PlotX + 6, DisplayLedY + 7)-(PlotX + 6, DisplayLedY + 11), OffColor%ã LINE (PlotX + 1, DisplayLedY + 12)-(PlotX + 5, DisplayLedY + 12), OffColor%ã '------------------------------------------------------ã NEXT PlotXã EXIT SUBãEND IFããNumber# = FIX(Number#) 'Get rid of the decimals incase there are someãNumber# = VAL(LEFT$(STR$(Number#), LedDigits + 1)) 'Chop Number to LED sizeããPlotX = DisplayLedXããIF LEN(STR$(Number#)) - 1 < LedDigits THEN 'Clear Unused digitsã FOR ClearEmptyDigits = 1 TO LedDigits - (LEN(STR$(Number#)) - 1)ã LINE (PlotX + 1, DisplayLedY)-(PlotX + 5, DisplayLedY), OffColor%ã LINE (PlotX, DisplayLedY + 1)-(PlotX, DisplayLedY + 5), OffColor%ã LINE (PlotX + 6, DisplayLedY + 1)-(PlotX + 6, DisplayLedY + 5), OffColor%ã LINE (PlotX + 1, DisplayLedY + 6)-(PlotX + 5, DisplayLedY + 6), OffColor%ã LINE (PlotX, DisplayLedY + 7)-(PlotX, DisplayLedY + 11), OffColor%ã LINE (PlotX + 6, DisplayLedY + 7)-(PlotX + 6, DisplayLedY + 11), OffColor%ã LINE (PlotX + 1, DisplayLedY + 12)-(PlotX + 5, DisplayLedY + 12), OffColor%ã PlotX = PlotX + 8ã NEXT ClearEmptyDigitsãEND IFãããFOR PlotDigit = 1 TO LEN(STR$(Number#)) - 1 'Plot each number to a LEDããWorkDigit$ = MID$(STR$(Number#), PlotDigit + 1, 1) 'Get 1 DigitããSELECT CASE WorkDigit$ 'Find and select which elements to turn onã CASE "0"ã E1 = OnColor%: E2 = OnColor%: E3 = OnColor%: E4 = OffColor%: E5 = OnColor%: E6 = OnColor%: E7 = OnColor%ã ã CASE "1"ã E1 = OffColor%: E2 = OffColor%: E3 = OnColor%: E4 = OffColor%: E5 = OffColor%: E6 = OffColor%: E7 = OnColor%ã ã CASE "2"ã E1 = OffColor%: E2 = OnColor%: E3 = OnColor%: E4 = OnColor%: E5 = OnColor%: E6 = OnColor%: E7 = OffColor%ã ã CASE "3"ã E1 = OffColor%: E2 = OnColor%: E3 = OnColor%: E4 = OnColor%: E5 = OffColor%: E6 = OnColor%: E7 = OnColor%ã ã CASE "4"ã E1 = OnColor%: E2 = OffColor%: E3 = OnColor%: E4 = OnColor%: E5 = OffColor%: E6 = OffColor%: E7 = OnColor%ã ã CASE "5"ã E1 = OnColor%: E2 = OnColor%: E3 = OffColor%: E4 = OnColor%: E5 = OffColor%: E6 = OnColor%: E7 = OnColor%ã ã CASE "6"ã E1 = OnColor%: E2 = OffColor%: E3 = OffColor%: E4 = OnColor%: E5 = OnColor%: E6 = OnColor%: E7 = OnColor%ã ã CASE "7"ã E1 = OffColor%: E2 = OnColor%: E3 = OnColor%: E4 = OffColor%: E5 = OffColor%: E6 = OffColor%: E7 = OnColor%ã ã CASE "8"ã E1 = OnColor%: E2 = OnColor%: E3 = OnColor%: E4 = OnColor%: E5 = OnColor%: E6 = OnColor%: E7 = OnColor%ã ã CASE "9"ã E1 = OnColor%: E2 = OnColor%: E3 = OnColor%: E4 = OnColor%: E5 = OffColor%: E6 = OffColor%: E7 = OnColor%ãEND SELECTã'Plot the LEDs to the screen------------------------ãLINE (PlotX, DisplayLedY + 1)-(PlotX, DisplayLedY + 5), E1ãLINE (PlotX + 1, DisplayLedY)-(PlotX + 5, DisplayLedY), E2ãLINE (PlotX + 6, DisplayLedY + 1)-(PlotX + 6, DisplayLedY + 5), E3ãLINE (PlotX + 1, DisplayLedY + 6)-(PlotX + 5, DisplayLedY + 6), E4ãLINE (PlotX, DisplayLedY + 7)-(PlotX, DisplayLedY + 11), E5ãLINE (PlotX + 1, DisplayLedY + 12)-(PlotX + 5, DisplayLedY + 12), E6ãLINE (PlotX + 6, DisplayLedY + 7)-(PlotX + 6, DisplayLedY + 11), E7ã'--------------------------------------------------ãPlotX = PlotX + 8ãNEXT PlotDigitããPCOPY apage, vpageããSCREEN , , vpage, vpageããEND SUBãClaude Gagn‚ ICON MAKER V1.0 cgagne@globalserve.on.ca 08-16-96 (09:25) QB, QBasic, PDS 486 11658 ICONMAKE.BAS'****************************************************************************ã'* [ Icon maker Version 1.0 ] *ã'* [ Claude Gagn‚, Toronto, 1996 ] *ã'* [ You can Email me at: cgagne@globalserve.on.ca ] *ã'* *ã'* [ You can modify this program but please, give me some credits !] *ã'* *ã'* [ This program make 50 X 50 pixels icons ] *ã'* [ You can load those icon by using BLOAD command ] *ã'* *ã'* The mouse routines have been taken from *ã'* Le Grand livre du QBASIC *ã'* (c) Micro Application *ã'* 1992 *ã'****************************************************************************ããDECLARE SUB fenetre (xup%, yup%, xdown%, ydown%, aspect%, couleur%)ãDEFINT A-ZããDECLARE SUB initsouris ()ãDECLARE SUB souris (OnOff%)ãDECLARE SUB FormeSouris (SoftHard%, BMasque%, CMasque%)ãDECLARE SUB SetSouris (X%, Y%)ãDECLARE SUB TempoSouris (Tempo%)ãDECLARE SUB zonexsouris (X1%, x2%)ãDECLARE SUB zoneysouris (Y1%, Y2%)ãDECLARE SUB getsouris (Mode%)ãDECLARE SUB attendrelachebouton ()ãDECLARE SUB attenddeplacement (Mode%)ãããDECLARE SUB ReadData ()ãDECLARE FUNCTION Interr% (Num%, ax%, bx%, cx%, dx%)ããDECLARE SUB ABSOLUTE (Fonction%, par1%, par2%, par3%, adr%)ãããã'********** d‚finir les variables globales **********ããDIM SHARED sourisx%, sourisy%, sourisk% '*** position et bouton de la sourisããDIM SHARED PM%(45) '** tableau pour le programme machineãReadData '** lire le programme machineããããããSCREEN 12ãinitsourisãCLSããON ERROR GOTO gestionããDIM tampon(1 TO 1432)ããCALL fenetre(0, 0, 639, 479, 1, 7)ãCALL fenetre(10, 10, 270, 270, 0, 0)ãCALL fenetre(280, 10, 340, 70, 0, 0)ããCALL fenetre(286, 16, 335, 65, 1, 7)ãGOSUB miseajourããCALL fenetre(280, 235, 629, 270, 0, 0) ' FENETRE COULEURããFOR c = 1 TO 16ãLINE (c * 20 + 280, 240)-(c * 20 + 300, 265), c - 1, BFãNEXT cããCALL fenetre(280, 80, 340, 140, 0, couleur1) ' fenetre couleur1ãCALL fenetre(280, 150, 340, 210, 0, couleur2) ' fenetre couleur2ããCALL fenetre(350, 10, 629, 225, 0, 0) ' FENETRE FONCTIONSããCALL fenetre(10, 280, 629, 469, 0, 0) ' FENETRE TEXTEããLOCATE 2, 46: COLOR 14: PRINT "Functions List"ãCOLOR 15ãLOCATE 3, 46: PRINT "F1 - New Icon"ãLOCATE 4, 46: PRINT "F2 - Save"ãLOCATE 5, 46: PRINT "F3 - Load"ãCOLOR 7ãLOCATE 6, 46: PRINT "F4 - Not Avail."ãCOLOR 15ãLOCATE 7, 46: PRINT "F5 - Shadow (Up)"ãLOCATE 8, 46: PRINT "F6 - Shadow (Down)"ãLOCATE 9, 46: PRINT "F7 - Shadow (Left)"ãLOCATE 10, 46: PRINT "F8 - Shadow (right)"ãLOCATE 11, 46: PRINT "F9 - Erase/Fill"ãCOLOR 7ãLOCATE 12, 46: PRINT "F10 - Not avail."ãCOLOR 15ãLOCATE 13, 46: PRINT "ESC => exit"ãããsouris 1ãDOãgetsouris 0ãclavier$ = UCASE$(INKEY$)ããIF clavier$ = CHR$(0) + CHR$(59) THENããCALL fenetre(286, 16, 335, 65, 1, couleur1)ãGOSUB miseajourãEND IFãããIF clavier$ = CHR$(0) + CHR$(60) THEN GOSUB sauvegardeãIF clavier$ = CHR$(0) + CHR$(61) THEN GOSUB chargementãIF clavier$ = CHR$(0) + CHR$(62) THEN GOSUB changercouleurãIF clavier$ = CHR$(0) + CHR$(63) THEN GOSUB ombrerhautãIF clavier$ = CHR$(0) + CHR$(64) THEN GOSUB ombrerbasãIF clavier$ = CHR$(0) + CHR$(65) THEN GOSUB ombrergaucheãIF clavier$ = CHR$(0) + CHR$(66) THEN GOSUB ombrerdroiteãIF clavier$ = CHR$(0) + CHR$(67) THEN GOSUB remplissageãIF sourisk% = 1 THENãIF sourisx% > 285 AND sourisy% > 235 AND sourisx% < 624 AND sourisy% < 265 THENãsouris 0ãcouleur1 = POINT(sourisx%, sourisy%)ãCALL fenetre(280, 80, 340, 140, 0, couleur1)ãsouris 1ãEND IFããIF sourisy% AND sourisx% > 285 AND sourisy% > 235 AND sourisx% < 624 AND sourisy% < 265 THENãsouris 0ãcouleur2 = POINT(sourisx%, sourisy%)ãCALL fenetre(280, 150, 340, 210, 0, couleur2)ãsouris 1ãEND IFããFOR X = 1 TO 50ãFOR Y = 1 TO 50ããIF sourisx% > X * 5 + 10 AND sourisy% > Y * 5 + 10 AND sourisx% < X * 5 + 15 AND sourisy% < Y * 5 + 15 THENãsouris 0ãLINE (X * 5 + 11, Y * 5 + 11)-(X * 5 + 14, Y * 5 + 14), couleur1, BFãPSET (285 + X, 15 + Y), couleur1ãsouris 1ãEXIT FORãEXIT FORãEND IFããIF sourisy% AND sourisx% > X * 5 + 10 AND sourisy% > Y * 5 + 10 AND sourisx% < X * 5 + 15 AND sourisy% < Y * 5 + 15 THENãsouris 0ãLINE (X * 5 + 11, Y * 5 + 11)-(X * 5 + 14, Y * 5 + 14), couleur2, BFãPSET (285 + X, 15 + Y), couleur2ãsouris 1ãEXIT FORãEXIT FORãEND IFããNEXT YãNEXT XãEND IFãLOOP WHILE clavier$ <> CHR$(27)ãsouris 0ãCLSãENDããmiseajour:ãsouris 0ãFOR X = 1 TO 50ãFOR Y = 1 TO 50ãLINE (X * 5 + 11, Y * 5 + 11)-(X * 5 + 14, Y * 5 + 14), POINT(285 + X, 15 + Y), BFãNEXT YãNEXT Xãsouris 1ãRETURNããombrerhaut:ãsouris 0ããFOR X = 1 TO 50ãFOR Y = 1 TO 50ããIF POINT(285 + X, 15 + Y) = couleur1 AND POINT(285 + X, 14 + Y) <> couleur1 THENãPSET (285 + X, 14 + Y), couleur2ãEND IFããNEXT YãNEXT XããGOSUB miseajourãsouris 1ãRETURNããombrerbas:ãsouris 0ããFOR X = 1 TO 50ãFOR Y = 1 TO 50ããIF POINT(285 + X, 15 + Y) = couleur1 AND POINT(285 + X, Y + 16) <> couleur1 THENãPSET (285 + X, 16 + Y), couleur2ãEND IFããNEXT YãNEXT XããGOSUB miseajourãsouris 1ãRETURNããombrergauche:ãsouris 0ããFOR X = 1 TO 50ãFOR Y = 1 TO 50ããIF POINT(285 + X, 15 + Y) = couleur1 AND POINT(284 + X, 15 + Y) <> couleur1 THENãPSET (284 + X, 15 + Y), couleur2ãEND IFããNEXT YãNEXT XããGOSUB miseajourãsouris 1ãRETURNããombrerdroite:ãsouris 0ããFOR X = 1 TO 50ãFOR Y = 1 TO 50ããIF POINT(285 + X, 15 + Y) = couleur1 AND POINT(286 + X, 15 + Y) <> couleur1 THENãPSET (286 + X, 15 + Y), couleur2ãEND IFããNEXT YãNEXT XããGOSUB miseajourãsouris 1ãRETURNããchangercouleur:ãsouris 0ããFOR X = 1 TO 50ãFOR Y = 1 TO 50ããIF POINT(285 + X, 15 + Y) = couleur1 THENãPSET (285 + X, 15 + Y), couleur2ãEND IFããNEXT YãNEXT XããGOSUB miseajourãsouris 1ãRETURNããsauvegarde:ãsouris 0ãLOCATE 20, 5: PRINT STRING$(65, 255);ãLOCATE 20, 5: LINE INPUT "Sauvegarde [.ICO]: "; fichier$ãIF LEN(fichier$) = 0 THEN GOTO finsauvegardeããGET (286, 16)-(335, 65), tamponããDEF SEG = VARSEG(tampon(1))ãBSAVE fichier$ + ".ICO", VARPTR(tampon(1)), 1432ãDEF SEGãBEEPããfinsauvegarde:ãLOCATE 20, 5: PRINT STRING$(65, 255);ãsouris 1ãRETURNããchargement:ãsouris 0ãLOCATE 20, 5: PRINT STRING$(65, 255);ãLOCATE 20, 5: LINE INPUT "Chargement [.ICO]: "; fichier$ãIF LEN(fichier$) = 0 THEN GOTO finchargementããDEF SEG = VARSEG(tampon(1))ãBLOAD fichier$ + ".ICO", VARPTR(tampon(1))ãDEF SEGããPUT (286, 16), tampon, PSETããGOSUB miseajourããBEEPããfinchargement:ãLOCATE 20, 5: PRINT STRING$(65, 255);ãsouris 1ãRETURNãããremplissage:ããsouris 0ããFOR X = 1 TO 50ãFOR Y = 1 TO 50ããPSET (285 + X, 15 + Y), couleur1ããNEXT YãNEXT XããGOSUB miseajourãsouris 1ãRETURNããgestion:ãBEEPãBEEPãRESUME NEXTãããMS.Data: '***** DATA du programme machine pour Interr%()ã DATA 55,8b,ec,56,57 'sauver le registreã DATA 8b,76,0c,8b,04 'chercher AX … DXã DATA 8b,76,0a,8b,1cã DATA 8b,76,08,8b,0cã DATA 8b,76,06,8b,14ã DATA cd,21 'INT 21 (num‚ro modifi‚ !)ã DATA 8b,76,0c,89,04 'r‚‚crire AX … DXã DATA 8b,76,0a,89,1cã DATA 8b,76,08,89,0cã DATA 8b,76,06,89,14ã DATA 5f,5e,5d 'chercher le registreã DATA ca,08,00 'RETF 8 => finã DATA #ãããSUB attenddeplacement (Mode%)ã'** Attendre le d‚placement de la souris ou l'appui/relƒchement du boutonãã getsouris Mode%ã X% = sourisx%: Y% = sourisy%: K% = sourisk%ãã DOã getsouris Mode%ã LOOP UNTIL X% <> sourisx% OR Y% <> sourisy% OR K% <> sourisk%ããEND SUBããSUB attendrelacheboutonã'** Attendre le relƒchement du bouton de la sourisãã WHILE sourisk%ã getsouris 0ã WENDããEND SUBããSUB fenetre (xup, yup, xdown, ydown, aspect, couleur)ãããIF aspect <= 0 THENã surface = 8ã ombre = 15ã lumiere = 8ãEND IFããIF aspect >= 1 THENã surface = 7ã ombre = 8ã lumiere = 15ãEND IFããLINE (xup, yup)-(xdown, ydown), surface, BFããLINE (xup, yup)-(xdown, ydown), ombre, BãLINE (xup + 1, yup + 1)-(xdown - 1, ydown - 1), ombre, BããLINE (xup, yup)-(xup, ydown), lumiereãLINE (xup + 1, yup + 1)-(xup + 1, ydown - 1), lumiereããLINE (xup, yup)-(xdown, yup), lumiereãLINE (xup + 1, yup + 1)-(xdown - 1, yup + 1), lumiereããLINE (xup + 3, yup + 3)-(xdown - 3, ydown - 3), couleur, BFããããEND SUBããSUB FormeSouris (SoftHard%, BMasque%, CMasque%)ã'** D‚finir l'apparition du curseur de la sourisãã R% = Interr%(&H33, 10, SoftHard%, BMasque%, CMasque%) '** d‚finir FormeSourisããEND SUBããSUB getsouris (Mode%)ã'** Chercher dans SourisX%, SourisY% et SourisK% la position de la souris et l'‚tat du boutonãã R% = Interr%(&H33, 3, bx%, cx%, dx%)ãã sourisk% = bx% '** bouton (1=gauche, 2=droit)ã ã IF Mode% THENã sourisx% = cx% / 16 + 1 '** position X (mode texte)ã sourisy% = dx% / 16 + 1 '** position Y (mode texte)ã ELSEã sourisx% = cx% '** position X (mode graphique)ã sourisy% = dx% '** position Y (mode graphique)ã END IFããEND SUBããSUB initsourisã'** Initialiser le gestionnaire de la sourisãã R% = Interr%(&H33, 0, bx%, cx%, dx%) '** initialiser le gestionnaire de la sourisããEND SUBããFUNCTION Interr% (Num%, ax%, bx%, cx%, dx%)ã'** R‚aliser l'interruption num‚ro Num% avec les contenus des registres de AX% … DX%ãã IF PM%(0) = 0 THEN '** PM%() est initialis‚ ?ã PRINT "ERREUR : programme machine absent ! Arrˆt!"ã ENDã END IFãã DEF SEG = VARSEG(PM%(0)) '** d‚finir le segmentã POKE VARPTR(PM%(0)) + 26, Num% '** mettre en oeuvre le num‚ro de l'interruptionãã CALL ABSOLUTE(ax%, bx%, cx%, dx%, VARPTR(PM%(0))) '** appelãã Interr% = ax% '** valeur retourn‚e prise dans AX%ããEND FUNCTIONããSUB ReadDataã'** Lire les DATA pour le programme machine dans PM%()ãã RESTORE MS.Dataã DEF SEG = VARSEG(PM%(0))ãã FOR i% = 0 TO 99ã READ Octet$ã IF Octet$ = "#" THEN EXIT FORã POKE VARPTR(PM%(0)) + i%, VAL("&H" + Octet$)ã NEXT i%ããEND SUBããSUB SetSouris (X%, Y%)ã'** D‚finir la position du pointeur de la sourisã'** X% et Y% sont en coordonn‚es caractŠres en mode texteãã R% = Interr%(&H33, 4, bx%, X% * 16 - 16, Y% * 16 - 16)ããEND SUBããSUB souris (OnOff%)ã'** Allumer / Eteindre le pointeur de la souris (0=‚teint, 1=allum‚)ãã IF OnOff% = 0 THEN OnOff% = 2 ELSE OnOff% = 1ã R% = Interr%(&H33, OnOff%, bx%, cx%, dx%)ããEND SUBããSUB TempoSouris (Speed%)ã'** D‚finir la vitesse de la souris (0=rapide, 100=trŠs lente)ãã R% = Interr%(&H33, 15, bx%, Speed%, Speed% * 2)ããEND SUBããSUB zonexsouris (X1%, x2%)ã'** D‚finir la zone de d‚placement horizontal de la souris de X1% … X2%ã'** X1% et X2% sont des coordonn‚es caractŠres en mode texteãã R% = Interr%(&H33, 7, 0, X1% * 16 - 16, x2% * 16 - 16)ããEND SUBããSUB zoneysouris (Y1%, Y2%)ã'** D‚finir la zone de d‚placement vertical de la souris de Y1% … Y2%ã'** Y1% et Y2% sont des coordonn‚es caractŠres en mode texteãã R% = Interr%(&H33, 8, bx%, Y1% * 16 - 16, Y2% * 16 - 16)ããEND SUBãGerald Filimonov ANIMATION FACTORY V1.0 kwmelvin@nr.infi.net 03-26-95 (12:50) QB, QBasic, PDS 137 8847 ANIFACT.BAS 'Animation Factory 1.0, Copyright, 1995, All Rights Reservedãã' This program was created using Qbasic, a programming language that comesã'with most DOS packages.ãã' This program will allow you to edit a series of frames and play them ã'back in a certain order. You may choose between four colors and a couple of ã'editing techniques, such as Cut,Copy,Paste,DrawLine, etc.ããDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"ANIFACT.ZIP",4^6:Z&=6074:?STRING$(50,177);ãU"%up()%9%%%I-%:0/ICzA;:oK3R%%(=%%%1%%%%fs%nrfy%jWSg7fxfB):B?^lk4ãU"zuIDyczR3']5a+lo5?7;o5?,:9&ZW9OLd]OmF1w:R4n?'pdJ>I\52s%:5X3o'BPãU"ENUHE-)RDc0MTFY-qF%\6m?>&.44SQulErrhb:n[>>q7p+RbeWDWnLqk27NNhmeT_X&5-U%ZfVG&l6rC/0S3IZ]x?=s]#f#,;jEi#$=;'f=tãU"8u3\/6u&$.9>/$.C]Id45z//&p&5w8gQb2jm#9S.OP((sK(ãU"YZYdCuw)=9pr'6&.)M'&m]%vrZZgWa)%yJ1nC5u$LFgLenj%I?D;I\(e0]D%W:<ãU"iHmZ-7U(*iKe$VIeRq^zZv'?)0L,:+Yu;yPw_PnX(1$6'q7*.vX9RV'Sk-WW+\kãU"6lDsX1iB1PZ?AZN5EQ>=X$6.pf.bnUh'Q-XfXq%:-YlG-E-4h2reA'b2nP*ãU"4>zdRr6)9i%0I4PZgMlPOcV]pIJjTvz*b+K=qA:3538l;u/l&o1l\R3o(l:;GblãU"UsxL$X#VYo$Vz2z=V17Shq0YAw)'a),:Tmd/5b+MsBvp6?lB[ke>;$9DU%E:]0e[Z_N:Tu42x:QKh0$12VR7QC;b2QLg/ãU"6lqMiW%VMf33m4TbKMKG?GH9#mMRGJh,IYuEB/G5\[r5BDnqF1EZG<6CE%MvnF[ãU"34gCuq>Y5HhtBIs:KK35QMeB.LL-nlL$d\YvB]cZV\ix%Gg'mVi,(+kxPBS.0TMãU"6A\wj1ãU"ureE#rANs]iTwWr_Iv.F%Nk6xQRqCcba0=t2>(*:Y==HV:F/IB%yuU+S'pKI5y9ãU"9;nf'C-+fO?J7D-&oU.EBeV'Z_D-gY\3$,;/J+G-W$ij1&35%C^#k5).(%2x7('ãU"oEXkRIO]9d(YQQMOO]8'e3'Fg=D99I_=)S;(m$*4f1^&O841ES:%Z1A/PD/,1l8ãU";R:+'xi?m[s-)x>sja#a)r-.Tlf\C.DW_?dd57%>8rv+*;k&=i>WP9%<-UZb]qxãU"88B6&sSV,f=90lP[iBWs0=9%NIBJgtU_fML:3a^)hc3XKQe)rMFQw^fYTV5&W'sãU"7pDU4R4Ju)#A0C75G%t/sPe0on;=RXG4[TWGV]GcRy#ARbooEAP>b9%3n2*fFI_ãU"B5-goVFs\^hU3s;k84Ska'g;[u(N]h+Xr1.=$[PjNbI_+Vn.o^*+-Z,oQ8D0\0(ãU"w_O+V[c)XoH1=$\8jpwAE)aFjAeAS]+q+UMN=Y4Z;8JV$shco5Bf,v=R$$4_t:EãU"82)Q)Z59eVOp7sb[XM=4Os'hBJ&u<\f:t$p&+RJPHvXc;ll_Z8?%$Nh$Sl_.\a:tb7qYYhãU"bCD*[Fz>=4guKKMcEUc-N587v)sccY'$t??uV*>AJc5Z#:$3w-GFsgql1Pvs%IeãU"$6\.TAi]SHj+\EV5_*rTE#4/+#*nH_n5[4ct;%=kãU"m#j$QF6R&iTjz6VR&TXDV2TxE(EJMYJlMx;bi$RhIV2#qi:K)\I/f_4ic/sqqF9ãU"t8N'j,%hz\mY]\LKKj,5V+KDR2(SST8i9N$+ebQ(mtDp0X8e&f$.0u3h]A\IDmuãU"uo$-Q8mh-b_2NZ4#Km.E#E9^q)0bpH/wo$'VIdGI.'xZM]Yc8jr3-bnp+7--RViãU"\mBGHSS-gq%=(YT%k;aCSFZCl:nqij0VQ+MjzU,S7XZTM:&CAcB0Y^g2#$8Q4'+ãU"hd>_^GrRl*hFVGE5m?W]Q*\6hUCjdrkfRzuZY>.&_XsR+4b'Op_1jb==RWOI$=VuA$4:WrhZ6#\ICW%k\V*/DãU"D-^1eOW#y+]]qWE*4P6T,,)ASOaGkw%;7&xBI:ln4&+XJ:gãU"H.vsejGF$L(yf^?4gT>3M^'RQ9MYRfi76+hInK;PMGAgb^)nvfCInS*/3.[(h9JpKENF>g.7(_e)k=HsvKa>qDQZ%mxO_kPX9j&&o]VJO>*$rjMk(JbTef?KhO4o82ãU".;o+rS-*E5z$bP%\ExhR(X^b5mSlacCU7LLh#K+\__l+*?UBh#q0D;c[[N.>n0&ãU"5$hZS$]Gfu+3'_wFO)S(eaVK^2'nbDJfR8[%nWp$.Ull=nX^S=b[E8ZãU"Xl5N?k<8oSH^gBL$u]x0pa0lRxn5mR1gEUAB9Fu63u,u]&rI74m>[qneNb9/ãU",wMrHU#k#M69-QK[cM-/#lvgssE8)ORlV0)[hZTYE#u#5HDGlAI^DWU2ãU"s173b83h7=t3:Qk%X+Y+e-:/wNtq[)p>?=wZ97L;+;3g*KyY)QH_a=^wvW??xafãU"Cl4uAYO7F7Ne./+mr6pNBHZãU"K-5wqhGuij6RbmmhtCA/hãU"qOMN1&q(?)m:I5QV#9pg,)uFY4%eR2whsub:<5Rr=*&evW7gwC4NjA8xQamSb/1ãU"sW%I8N;bahdk.YqAgDE$QzTj:A*P7P#)XWT$wjtVbmMuMC/riUe%:5z#BEXãU"MfX:t3['zMp^4]:Vx%qz1ts:bh$)(gmXq]8q$8JU5Qhu(Ae^UFH$3X;c.NWVV<-ãU"O/$kD_tbaMY=dsP]]Xv8AlG&f\IW76bsA(#K-HpLãU"?Ese4dhm]EPxw%1Jt$&WFLD$ZUOp:,FMfkzlpfr8PqNsO:Lc*El\kxJtãU"2$aPCm3X;<.p&[e7PIkqMR-+p:+-k[pbnwuaeFoM_LcYAwuLtXiDW:]M'ogGwJzãU"pNO?Gj7B%b2uE&6'0Zqmym)5KBZSGt<+mI8w.z-LLYJ>9=2Sh7f[BK'GJkt_e:Mr,z^k:ãU"0vlTtVtlI\0Lno)]3OlTAyo.CIrSPu\agVBkTh^<';Jkqkq^AsB1zX0K_Nxt%)[ãU"e)17[U4mA0KdER-RJi%$3CsK<86Bin0Gie\>As+8t[n5DO:/E^(zOZ^K)Bo?hSbãU"_6k95&o=X^oaZv(^c[mfK7=CD>Rjm&[ZOJ%lHXW/gnhtJ0$De>uKa4$wC7;w7$tPtt434byvX>R?ziBãU"1t'Tgzb\G9-z4*8K7#5gw4Il]tPb;-ãU"B3Aocowm7W.Pd8ycuh?#c0zNãU";)=\[,]rptat2AQsqfw%dTYoj\a94n5\%qD,eJ9ncjUYx:5;O;q:P.WZZ)(I*=I%W'NN-WO2t_A%ROU':6J6ViMal6<12$ok(JaKvYIkn&s(Pq.r7Njb-D5&ikãU"+i?q:uW5&sf]XHCmr'Vfgorl]A(6WQl+ub,(M78W*YY^7\0_H[X=QJ+paTOn&1IãU"=gw%9L2:I$R7ttOOCpWUY0RfKbV;[Nv?j);&[hN1_Q:;z^?jk7&DiFbMj2/ZãU"]P;d3x(%up()%9%%%I-%+5JICm.&;eq(m%%OA%%%0%%%%fs%nknq%jSngjVfl:/ãU"9809IkLTO;Cl1;P&jNYBY898OD>L?Gtl9#5%\L75FgLlIfZL-QO^vK5hW>Z1llRnMmGMnaI\-?%&4\ãU"939(KrV>>dBaka>^EWDZfl+u(P#LZ$Lth6V(mlBGp(o9r+AM.qk2W:ObJ:C>4TrãU"UB3Mrh[-,(uP#L$lLthXE(mLn\f+ed#2MWY\-kXAAwk>l'BMrkJ:W9blJH+(lP#ãU"b$uLtJtZNlaHn8%-WGOsJrLUuwck#A=Pj44-(;^ãU"vHLWprpzZ$B$t[&e(S/MpO+d%27t%R&?%pYof0^)7%I>O/X7&o&e(QSw=O#+%2oãU"#&Y%7.%2o&R5#)imcS/8Hxuyv[&Y%S>=9^Z8S+I%/W2'Do7A/VBvkO$3>SãU"3S>W3>U[HVCuk3r\.s(O+kkOO>QmNJJlU0MvOOqn&7(,prU)NdjPXgjYigjZgVjãU"[gjCr-\lr5=w10L%o&nvZYihTKBUt>usafpDM28>Gq$fXqCXUyCX+PCX3CrX;k3ãU"lb]Dl%4]2%1??)(uObTxu2(cnuZTfbmJek3YXH:.QOFKY8-\nKYIVUfiaDbBrd5ãU",p=JtWCAA?%\-v4%#,M[4*i]F[95hxN%R#cXU&8%aps(Qi>_;g+90,YO2Hlt+pTãU"j+)0%?%r\8O2L%G75&;Ag+eZQ-tBS&7%2%%?%%Y(%O+%%%2%%%?%%Y.%%7%+%I%ãU"%\o&%i'xh(%\7%%I.%%o&%%e(%&O+%%%2%%?m%%Fi%8up(%)9%%#%-%+)5ICTVqãU"K;Z[%%%O'A%%0%%%%f%snkn%qjSnmgWfM%f2%ER1))beU&SEX*kqp\7.KqiJY7HãU"4oG->=&w^%8?%Y%09&O(%%,%3%%A%]^%?%YF%9&O%(%,%%3%A%.]%?%9Y%9&&O(ãU"%,%%3%A#%]%?a%Y%9(&O(%%,%3%%A%]%8?%Y%09&O(%%,%3%%A%]^%?%YF%9&O%ãU"(%,%%3%A%d]%G[%'up(%)9%%#%-%<)?ICNS%2aB%(%%7%,%%/%%%%w%jfir#jSyãU"'(yLyr,BT[5$6:kx\0Lbmduk2DN.,FuO,>])N4Yt'7sXB2(GfIKUEe:Vs=vtgg7ãU"qt?^st0jli)>pBf'Xz##:Y(Dgza_uT:b]LIR:9JFs&DuAYmcKcaRhFViEOnV,maãU"3/'[l-\JlY#^Z-P-Y>m8m5;ihH*OC)(ldx2bCChg%u*QEDIwPLg-9ãU"c&Dqy]MK&'Wa(D^_B;97A,W1('pFzr<5?qBDgkil%?#u,$Y&aK;_K)/fo0J(duUãU"W^8cCRoZ9T#wQ?0O#]0'SWZlI<9N$aPIrYO8#8g,fPiC20RphB-uwCDkpFfG1j^ãU"Yf&f$Y&?GP:O*E:z98km>rqgP9Us+#_>XZRoWrOR\FxVg*]E%hwXyOESDi1zBGMãU"X>(:_3gR\C92dZ/&<+6,.k+&6n[]<6XK=4SP#O=*R7tVMa59-A[S^1zr8Fc.,e(ãU"#P0#,XzasYZ1K9nDJ84mCG.HJe/HlmA8gBTUc;_\gSgb.j]()*LNlZC4AozkuVz>G..MRb&iEl=t_9gR$[pyF3Wv4&xAb^ãU"zHt]WD/PddI?A/a_MSVIiz_.-&uf:3Y]hVePPFl92&HFDs)K?Cgu'$ãU"/a'VLajC8T2$5D1&KoQV*arJ4iV,Qh1oL3I$C)LK9bGn[&TW_^#\/Q7/mEzE2K^o-zGW?/jUK7VKB>O^*b6U*N&%up&'%9%9%%%%-%2:0ICJzA:o'K3ãU"%%*(=%%%1%%%%%%%%%&%E%%%%%%%%%fs%nrfy%jWSg%fxup%&'9%%9%%%I-%+5JãU"ICm.&;eq(m%%OA%%%0%%%%%%%%%%%%E%%%'u3%%%fsnk%nqjS%ngVu%p&'9%%9%ãU"%#%-%+)5ICTVqK;Z[%%%O'A%%0%%%%%%%%%%%%E%%(%#7%%%fsn%knqj%SngW%uãU"p&'%9%9%%%%-%2 0ã 'LOCATE 1, 1ã 'PRINT l%; 'this would print the distance to wallã X% = (t% - sa%) * 5ã dd% = (1000 / l%)ã 'LINE (X%, 1)-(X% + 5, 99 - dd%), 15, BF 'paint ceilingã 'LINE (X%, 101 + dd%)-(X% + 5, 200), 2, BF 'paint floorã 'LINE (X%, 100 - dd%)-(X% + 5, 100 + dd%), k%, BF 'paint wallsãã FOR U% = 0 TO 5 'paint wallsã LINE (X% + U%, 100 - dd%)-(X% + U%, 100 + dd%), k%ã NEXT U%ã ' Could be even 20% faster: FOR U% = 0 to 4ã ' This will skip one line at the right of the screen, though.ãã LINE (X%, 100 - dd%)-(X% + 5, 100 - dd%), 0 'top linesã LINE (X%, 100 + dd%)-(X% + 5, 100 + dd%), 0 'bottom linesã NEXT t%ã PCOPY 0, 1ã RAWKEY = 0: WHILE RAWKEY = 0: WENDã IF KEY.TABLE(INDEX.RIGHT) THEN ' [LEFT]ã sa% = sa% + 3ã m% = 1ã END IFã IF KEY.TABLE(INDEX.LEFT) THEN ' [RIGHT]ã sa% = (sa% + 357) MOD 360ã m% = 1ã END IFã IF KEY.TABLE(INDEX.ESC) THEN ' [ESC]ã quit = 1ã END IFã IF KEY.TABLE(INDEX.UP) THEN ' [UP]ã Oldpx% = px%: Oldpy% = py% ' Save where you areã px% = px% + (st%((sa% + 30) MOD 360) / 30)ã py% = py% + (ct%((sa% + 30) MOD 360) / 30)ã IF grid(CINT(py% / 10), CINT(px% / 10)) > 0 THEN 'Walking thru walls?ã SOUND 80, 1ã px% = Oldpx% ' Forget it! Don't moveã py% = Oldpy%ã ELSEã m% = 1ã END IFã END IFã ã IF KEY.TABLE(INDEX.DOWN) THEN '[DOWN]ã Oldpx% = px%: Oldpy% = py% ' Save where you areã px% = px% - (st%((sa% + 30) MOD 360) / 30)ã py% = py% - (ct%((sa% + 30) MOD 360) / 30)ã IF grid(CINT(py% / 10), CINT(px% / 10)) > 0 THEN 'Walking thru walls?ã SOUND 80, 1ã px% = Oldpx% ' Forget it! Don't moveã py% = Oldpy%ã ELSEã m% = 1ã END IFã END IFãLOOP UNTIL quit > 0ãSCREEN 0ãWIDTH 80, 25ãããCALL KEYBOARD.OUT(OLD.ISR.SEG, OLD.ISR.OFF)ãããSYSTEMãã' Level data (this way you can have walls colored 10, 11, etc.)ã' 12x12ãDATA 1, 9, 1, 9, 1, 9, 1, 9, 1, 9, 1, 9ãDATA 9, 0, 4, 0, 0, 0, 0, 0, 0, 5, 0, 1ãDATA 1, 0,12, 0, 0, 0, 0, 0, 0,13, 0, 9ãDATA 9, 0, 4, 0, 0, 0, 0, 0, 0, 5, 0, 1ãDATA 1, 0,12, 0, 0, 0, 0, 0, 0,13, 0, 9ãDATA 9, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1ãDATA 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 9ãDATA 9, 0,12, 0, 0, 0, 0, 0, 0, 0, 0, 1ãDATA 1, 0, 4, 0, 0, 0, 0, 0, 3,11, 0, 9ãDATA 9, 0,12, 0, 0, 0, 0, 0,11, 3, 0, 1ãDATA 1, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 9ãDATA 9, 1, 9, 1, 9, 1, 9, 1, 9, 1, 9, 1ãã' Old level. If you want it, come and get it.ã' 1, 9, 1, 9, 1, 9, 1, 9, 1, 9ã' 9, 0, 0, 0, 0, 0, 0, 0, 0, 1ã' 1, 0, 0, 0, 0, 0, 0, 4, 0, 9ã' 9, 0, 1, 0, 0, 0, 5, 0, 0, 1ã' 1, 0, 2, 0, 0, 4, 0, 0, 0, 9ã' 9, 0, 3, 0, 0, 0, 0, 0, 0, 1ã' 1, 0, 0, 0, 0, 7, 8, 0, 0, 9ã' 9, 0, 5, 0, 0, 8, 7, 0, 0, 1ã' 1, 0, 6, 0, 0, 0, 0, 0, 0, 9ã' 9, 1, 9, 1, 9, 1, 9, 1, 9, 1ãããSUB GETVECT (S AS INTEGER, O AS INTEGER, I AS INTEGER)ãã 'GETVECT RETURNS THE ADDRESS OF A FUNCTION POINTED TO IN THEã 'INTERRUPT VECTOR TABLE (STARTS AT 0000:0000H)ãã STATIC ASM AS STRING 'THE CODE FOR GETVECTãã STATIC INI AS INTEGER 'USED TO DETECT WHETHER GETVECT HAS PREVIOUSLYã 'BEEN CALLEDã IF INI = 0 THENã ã 'CREATE ML FUNCTION IF NOT ALREADY CREATEDãã ASM = ASM + CHR$(&H55) 'PUSH BPã ASM = ASM + CHR$(&H89) + CHR$(&HE5) 'MOV BP,SPã ASM = ASM + CHR$(&H8B) + CHR$(&H5E) + CHR$(&H6) 'MOV BX,[BP+06]ã ASM = ASM + CHR$(&H8A) + CHR$(&H7) 'MOV AL,[BX]ã ASM = ASM + CHR$(&HB4) + CHR$(&H35) 'MOV AH,35ã ASM = ASM + CHR$(&HCD) + CHR$(&H21) 'INT 21ã ASM = ASM + CHR$(&H53) 'PUSH BXã ASM = ASM + CHR$(&H8B) + CHR$(&H5E) + CHR$(&HA) 'MOV BX,[BP+0A]ã ASM = ASM + CHR$(&H8C) + CHR$(&H7) 'MOV [BX],ESã ASM = ASM + CHR$(&H8B) + CHR$(&H5E) + CHR$(&H8) 'MOV BX,[BP+08]ã ASM = ASM + CHR$(&H58) 'POP AXã ASM = ASM + CHR$(&H89) + CHR$(&H7) 'MOV [BX],AXã ASM = ASM + CHR$(&H5D) 'POP BPã ASM = ASM + CHR$(&HCA) + CHR$(&H6) + CHR$(&H0) 'RETF 0006ã INI = 1 'FLAG CREATIONã END IFãã DEF SEG = VARSEG(ASM)ã CALL ABSOLUTE(S, O, I, SADD(ASM)) 'RUN FUNCTIONãEND SUBããSUB KEYBOARD.IN (OLDSEG AS INTEGER, OLDOFF AS INTEGER)ã DIM RSGL AS INTEGER, RSGH AS INTEGER 'SEGMENT OF RAWKEYã DIM ROFL AS INTEGER, ROFH AS INTEGER 'OFFSET OF RAWKEYãã DIM KSGL AS INTEGER, KSGH AS INTEGER 'SEGMENT OF KEY.TABLEã DIM KOFL AS INTEGER, KOFH AS INTEGER 'OFFSET OF KEY.TABLEã ã DIM BYTE AS STRING * 1 'USED TO ACTIVATE IRQ 1 IN PICãã STATIC ASM AS STRING 'HOLDS ISRãã RSGL = VARSEG(RAWKEY) AND &HFF 'LOAD LOW "BYTE" SEGMENTã RSGH = INT(VARSEG(RAWKEY) / 256) AND &HFF 'LOAD HIGH "BYTE" SEGMENTãã ROFL = VARPTR(RAWKEY) AND &HFF 'LOAD LOW "BYTE" OFFSETã ROFH = INT(VARPTR(RAWKEY) / 256) AND &HFF 'LOAD HIGH "BYTE" OFFSETã ã KSGL = VARSEG(KEY.TABLE(0)) AND &HFF 'LOAD LOW "BYTE" SEGMENTã KSGH = INT(VARSEG(KEY.TABLE(0)) / 256) AND &HFF 'LOAD HIGH "BYTE" SEGMENTãã KOFL = VARPTR(KEY.TABLE(0)) AND &HFF 'LOAD LOW "BYTE" OFFSETã KOFH = INT(VARPTR(KEY.TABLE(0)) / 256) AND &HFF 'LOAD HIGH "BYTE" OFFSETãã 'THIS IS THE ISR. IT READS A SCANCODE FROM THE KEYBOARD BUFFERã 'AND RESETS IT. THE BEST PART IS, BIOS CAN'T TOUCH IT!ãã ASM = ""ã ASM = ASM + CHR$(&H52) 'PUSH DXã ASM = ASM + CHR$(&H51) 'PUSH CXã ASM = ASM + CHR$(&H53) 'PUSH BXã ASM = ASM + CHR$(&H50) 'PUSH AXã ASM = ASM + CHR$(&H6) 'PUSH ESã ASM = ASM + CHR$(&H57) 'PUSH DIã ASM = ASM + CHR$(&H1E) 'PUSH DSã ASM = ASM + CHR$(&H56) 'PUSH SIã ASM = ASM + CHR$(&HFB) 'STIã ASM = ASM + CHR$(&HBA) + CHR$(&H60) + CHR$(&H0) 'MOV DX,0060ã ASM = ASM + CHR$(&HEC) 'IN AL,DXã ASM = ASM + CHR$(&H30) + CHR$(&HE4) 'XOR AH,AHã ASM = ASM + CHR$(&HBA) + CHR$(RSGL) + CHR$(RSGH)'MOV DX,SEG RAWKEYã ASM = ASM + CHR$(&H8E) + CHR$(&HDA) 'MOV DS,DXã ASM = ASM + CHR$(&HBE) + CHR$(ROFL) + CHR$(ROFH)'MOV SI,OFFSET RAWKEYã ASM = ASM + CHR$(&H88) + CHR$(&H4) 'MOV [SI],ALã ASM = ASM + CHR$(&H50) 'PUSH AXã ASM = ASM + CHR$(&HBA) + CHR$(&H61) + CHR$(&H0) 'MOV DX,0061ã ASM = ASM + CHR$(&HEC) 'IN AL,DXã ASM = ASM + CHR$(&HC) + CHR$(&H82) 'OR AL,82ã ASM = ASM + CHR$(&HEE) 'OUT DX,ALã ASM = ASM + CHR$(&H24) + CHR$(&H7F) 'AND AL,7Fã ASM = ASM + CHR$(&HEE) 'OUT DX,ALã ASM = ASM + CHR$(&HB0) + CHR$(&H20) 'MOV AL,20ã ASM = ASM + CHR$(&HBA) + CHR$(&H20) + CHR$(&H0) 'MOV DX,0020ã ASM = ASM + CHR$(&HEE) 'OUT DX,ALã ASM = ASM + CHR$(&HBA) + CHR$(KSGL) + CHR$(KSGH)'MOV DX,SEG KEY.TABLEã ASM = ASM + CHR$(&H8E) + CHR$(&HDA) 'MOV DS,DXã ASM = ASM + CHR$(&HBE) + CHR$(KOFL) + CHR$(KOFH)'MOV SI,OFFSET KEY.TABLEã ASM = ASM + CHR$(&H58) 'POP AXã ASM = ASM + CHR$(&HBB) + CHR$(&H1) + CHR$(&H0) 'MOV BX,0001--MAKEã ASM = ASM + CHR$(&HB4) + CHR$(&H48) 'MOV AH,48--UPã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H0) 'MOV [SI+00],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H50) 'MOV AH,50--DOWNã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H2) 'MOV [SI+02],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H4B) 'MOV AH,4B--LEFTã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H4) 'MOV [SI+04],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H4D) 'MOV AH,4D--RIGHTã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H6) 'MOV [SI+06],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H1D) 'MOV AH,1D--CTRLã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H8) 'MOV [SI+08],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H38) 'MOV AH,38--ALTã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&HA) 'MOV [SI+0A],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H39) 'MOV AH,39--SPACEã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&HC) 'MOV [SI+0C],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H1) 'MOV AH,01--ESCã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&HE) 'MOV [SI+0E],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H1C) 'MOV AH,1C--ENTERã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H10)'MOV [SI+10],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H36) 'MOV AH,36--RSHIFTã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H12)'MOV [SI+12],BXãã ASM = ASM + CHR$(&HBB) + CHR$(&H0) + CHR$(&H0) 'MOV BX,0000--BREAKã ASM = ASM + CHR$(&HB4) + CHR$(&HC8) 'MOV AH,C8--UPã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H0) 'MOV [SI+00],BXã ASM = ASM + CHR$(&HB4) + CHR$(&HD0) 'MOV AH,D0--DOWNã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H2) 'MOV [SI+02],BXã ASM = ASM + CHR$(&HB4) + CHR$(&HCB) 'MOV AH,CB--LEFTã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H4) 'MOV [SI+04],BXã ASM = ASM + CHR$(&HB4) + CHR$(&HCD) 'MOV AH,CD--RIGHTã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H6) 'MOV [SI+06],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H9D) 'MOV AH,9D--CTRLã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H8) 'MOV [SI+08],BXã ASM = ASM + CHR$(&HB4) + CHR$(&HB8) 'MOV AH,B8--ALTã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&HA) 'MOV [SI+0A],BXã ASM = ASM + CHR$(&HB4) + CHR$(&HB9) 'MOV AH,B9--SPACEã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&HC) 'MOV [SI+0C],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H81) 'MOV AH,81--ESCã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZ ã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&HE) 'MOV [SI+0E],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H9C) 'MOV AH,9C--ENTERã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H10)'MOV [SI+10],BXã ASM = ASM + CHR$(&HB4) + CHR$(&HB6) 'MOV AH,B6--RSHIFTã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H12)'MOV [SI+12],BXãã ASM = ASM + CHR$(&HFA) 'CLIã ASM = ASM + CHR$(&H5E) 'POP SIã ASM = ASM + CHR$(&H1F) 'POP DSã ASM = ASM + CHR$(&H5F) 'POP DIã ASM = ASM + CHR$(&H7) 'POP ESã ASM = ASM + CHR$(&H58) 'POP AXã ASM = ASM + CHR$(&H5B) 'POP BXã ASM = ASM + CHR$(&H59) 'POP CXã ASM = ASM + CHR$(&H5A) 'POP DXã ASM = ASM + CHR$(&HCF) 'IRETãã BYTE = CHR$(INP(&H21)) 'LOAD IRQ ENABLE REGISTER IN PICãã OUT &H21, (ASC(BYTE) AND (255 XOR 2)) 'CLEAR BIT 2 (IRQ 1)ãã CALL GETVECT(OLDSEG, OLDOFF, &H9) 'LOAD OLD ISRã CALL SETVECT(VARSEG(ASM), SADD(ASM), &H9) 'STORE NEW ISRãEND SUBããSUB KEYBOARD.OUT (OLDSEG AS INTEGER, OLDOFF AS INTEGER)ã CALL SETVECT(OLDSEG, OLDOFF, &H9) 'RESTORE OLD ISRãEND SUBããSUB maketablesãã' Peters boring _yawn_ table creationãFOR tmp1% = 0 TO 360ã st%(tmp1%) = SIN(tmp1% * .0174) * 100ã 'IF tmp1% MOD 100 = 0 THEN PRINT ; ".";ã 'NEXT tmp1%ã 'FOR tmp1% = 0 TO 360ã ct%(tmp1%) = COS(tmp1% * .0174) * 100ã 'IF tmp1% MOD 100 = 0 THEN PRINT ; ".";ãNEXT tmp1%ããEND SUBããSUB makeworldãã' Read in this level's dataãFOR j = 1 TO 12ã FOR I = 1 TO 12ã READ grid(I, j)ã NEXT IãNEXT jãã' Peter Coopers demonstration level. Change it if you wish! Each numberã' is a color numberã'a$(1) = "1919191919"ã'a$(2) = "9000000001"ã'a$(3) = "1000000409"ã'a$(4) = "9010005001"ã'a$(5) = "1020040009"ã'a$(6) = "9030000001"ã'a$(7) = "1000078009"ã'a$(8) = "9050087001"ã'a$(9) = "1060000009"ã'a$(10) = "9191919191"ããEND SUBããSUB screensetupããSCREEN 7ãLOCATE 4ãPRINT " RAYCASTER DEMO"ãPRINTãPRINT " UP ARROW........Move Forward"ãPRINT " DOWN ARROW......Move Backward"ãPRINT " RIGHT ARROW.....Turn Right"ãPRINT " LEFT ARROW......Turn Left"ããSCREEN 7, , 2, 0ããCLSã'WINDOW SCREEN (1, 1)-(320, 200)ãã' SkyãLINE (0, 0)-(300, 99), 3, BFããFOR cnt = 1 TO 10 ' Cloudsã a = INT(RND * 319)ã b = INT(RND * 80 + 10)ã c = INT(RND * 50)ã d = INT(RND * 10): d = d / 100ã CIRCLE (a, b), c, 1, , , d: PAINT (a, b), 1ã CIRCLE (a, b), c, 15, , , d: PAINT (a, b), 15ãNEXT cntãLINE (301, 0)-(319, 199), 0, BF ' Erase clouds on rightãã' Obeliskã'LINE (200, 20)-(240, 99), 0, BFã'LINE (201, 21)-(239, 98), 8, BFããLINE (200, 20)-(220, 15), 8 ' Building (gray)ãLINE (220, 15)-(240, 20), 8ãLINE (200, 20)-(200, 99), 8ãLINE (240, 20)-(240, 99), 8ãLINE (200, 99)-(240, 99), 8ãPAINT (220, 50), 8ãFOR cnt = 1 TO 20 ' Lightsã PSET (INT(RND * 38 + 201), INT(RND * 80 + 20)), 14ãNEXT cntãLINE (200, 20)-(220, 15), 0 ' Building (border)ãLINE (220, 15)-(240, 20), 0ãLINE (219, 15)-(219, 99), 0ãLINE (200, 20)-(200, 99), 0ãLINE (240, 20)-(240, 99), 0ãã' SunãCIRCLE (50, 30), 10, 14: PAINT (50, 30), 14, 14ããPCOPY 2, 3ããFOR Y% = 100 TO 199ã FOR X% = 0 TO 300ã IF RND > .5 THEN c% = 6 ELSE c% = 0ã PSET (X%, Y%), c%ã NEXT X%ãNEXT Y%ããSCREEN 7, , 3, 0ãFOR Y% = 100 TO 199ã FOR X% = 0 TO 300ã IF RND > .5 THEN c% = 6 ELSE c% = 0ã PSET (X%, Y%), c%ã NEXT X%ãNEXT Y%ããSCREEN 7, , 0, 1ããEND SUBããSUB SETVECT (S AS INTEGER, O AS INTEGER, I AS INTEGER)ãã 'SETVECT CHANGES THE ADDRESSES IN THE INTERRUPT VECTOR TABLEã 'TO POINT TO NEW FUNCTIONSãã STATIC ASM AS STRING 'HOLDS THE SETVECT FUNCTIONã STATIC INI AS INTEGER 'USED TO TEST WHETHER OR NOT FUNCTION HAS PREVOUSLYã 'BEEN CALLEDã IF INI = 0 THENãã 'CREATE FUNCTION IF NOT ALREADY CREATEDãã ASM = ""ã ASM = ASM + CHR$(&H55) 'PUSH BPã ASM = ASM + CHR$(&H89) + CHR$(&HE5) 'MOV BP,SPã ASM = ASM + CHR$(&H8B) + CHR$(&H5E) + CHR$(&H8) 'MOV BX,[BP+08]ã ASM = ASM + CHR$(&H8B) + CHR$(&H17) 'MOV DX,[BX]ã ASM = ASM + CHR$(&H8B) + CHR$(&H5E) + CHR$(&H6) 'MOV BX,[BP+06]ã ASM = ASM + CHR$(&H8A) + CHR$(&H7) 'MOV AL,[BX]ã ASM = ASM + CHR$(&H8B) + CHR$(&H5E) + CHR$(&HA) 'MOV BX,[BP+0A]ã ASM = ASM + CHR$(&H1E) 'PUSH DSã ASM = ASM + CHR$(&H8E) + CHR$(&H1F) 'MOV DS,[BX]ã ASM = ASM + CHR$(&HB4) + CHR$(&H25) 'MOV AH,25ã ASM = ASM + CHR$(&HCD) + CHR$(&H21) 'INT 21ã ASM = ASM + CHR$(&H1F) 'POP DSã ASM = ASM + CHR$(&H5D) 'POP BPã ASM = ASM + CHR$(&HCA) + CHR$(&H6) + CHR$(&H0) 'RETF 0006ã INI = 1 'FLAG CREATIONã END IFã DEF SEG = VARSEG(ASM)ã CALL ABSOLUTE(S, O, I, SADD(ASM)) 'RUN SETVECTãEND SUBãThomas Gohel HIGHSPEED RAYCASTING FOR PB comp.lang.basic.misc 08-18-96 (00:00) PB32 519 14638 RAYCAST.BAS 'TWO Part Snippet (RAYCAST.BAS and RAYCAST.DAT to follow) [Requires UUDECODE]ãã'*************************************************************************ã'ã' Raycasting routines for PowerBASIC 3.2ã'ã' developed by Wolfgang Bruskeã' new SCREEN 13 routines by Thomas Gohelã'ã'*************************************************************************ããã$COMPILE EXEãDEFINT A-ZããMinAbstand = 48ãWinkel0 = 0ãWinkel1 = 5ãWinkel2 = 10ãWinkel4 = 20ãWinkel5 = 25ãWinkel6 = 30ãWinkel15 = 80ãWinkel30 = 160ãWinkel45 = 240ãWinkel60 = 320ãWinkel90 = 480ãWinkel135 = 720ãWinkel180 = 960ãWinkel225 = 1200ãWinkel270 = 1440ãWinkel315 = 1680ãWinkel360 = 1920ãWeltReihe = 16ãWeltSpalte = 16ãZellXgroesse = 64ãZellYgroesse = 64ããDIM WeltXgroesse(WeltSpalte * ZellXgroesse) as integerãDIM WeltYgroesse(WeltReihe * ZellYgroesse) as integerãDIM Welt(WeltReihe,WeltSpalte) as integerãDIM Tantable(1920) as singleãDIM Invtantable(1920) as singleãDIM Ystep(1920) as singleãDIM Xstep(1920) as singleãDIM Costable(1920) as singleãDIM Invcostable(1920) as singleãDIM Invsintable(1920) as singleãDIM Vptr as byte PtrãDIM Maxx as integerãDIM Maxy as integerãMaxx=(WeltSpalte * ZellXgroesse)-1ãMaxy=(WeltReihe * ZellYgroesse)-1ããSHARED MinAbstand,Winkel0,Winkel1,Winkel2,Winkel4,Winkel5,Winkel6ãSHARED Winkel15,Winkel30,Winkel45,Winkel60,Winkel90,Winkel135,Winkel180,Winkel225,Winkel270ãSHARED Winkel315,Winkel360,WeltReihe,WeltSpalte,ZellXgroesse,ZellYgroesse,WeltXgroesse()ãSHARED WeltYgroesse(),Welt(),tantable(),invtantable(),Ystep(),Xstep()ãSHARED costable(),invcostable(),invsintable(),Sichtwinkel,Vptr,maxx,maxyãã' F U N C T I O N S *******************************************************'ããSUB Tabellenbauen()ãDIM Winkl as integerãDIM radWinkel as extããFOR Winkl = Winkel0 to Winkel360ã radWinkel = 3.272e-4 + Winkl * 3.27249234791667e-3ã tantable(Winkl) = tan(radWinkel)ã invtantable(Winkl) = 1/tantable(Winkl)ãã IF Winkl >= Winkel0 and Winkl < Winkel180 THENã Ystep(Winkl) = abs(tantable(Winkl) * ZellYgroesse)ã Elseã Ystep(Winkl) =-abs(tantable(Winkl)* ZellYgroesse)ã END IFãã IF Winkl >= Winkel90 and Winkl < Winkel270 THENã Xstep(Winkl) =-abs(invtantable(Winkl) * ZellXgroesse)ã Elseã Xstep(Winkl) = abs(invtantable(Winkl) * ZellXgroesse)ã END IFãã invcostable(Winkl) = 1/cos(radWinkel)ã invsintable(Winkl) = 1/sin(radWinkel)ããNext WinklããFOR Winkl = -Winkel30 to Winkel30ã radWinkel = 3.272e-4 + Winkl * 3.27249234791667e-3ã costable(Winkl + Winkel30) = 1/cos(radWinkel)*10000ãNext WinklããEND SUBãã'***************************************************************************'ããSUB LoadWelt(dateiname$)ããDIM index as integerãDIM row as integerãDIM column as integerãDIM buffer as StringãDIM ch as StringãOPEN Dateiname$ FOR input as #1ãFOR Row = WeltReihe to 0 step -1ã line input #1, bufferã FOR column = 0 to WeltSpalteã Welt(column,row) = Val(mid$(buffer,column+1,1))ã Next columnãNext rowãClose #1ãEND SUBãã'***************************************************************************'ããSUB RayCaster(x as long ,y as long)ããDIM Oben as singleãDIM Unten as singleãDIM Zellx as longãDIM Zelly as longãDIM Senke as longãDIM Waage as longãDIM ray as longãDIM xaufWaage as SingleãDIM yaufSenke as SingleãDIM distzuWaage as SingleãDIM distzuSenke as SingleãDIM Skalier as Singleããresett=SichtwinkelãSichtwinkel=Sichtwinkel-Winkel30ãIF Sichtwinkel < 0 THEN Sichtwinkel=Winkel360 + SichtwinkelããtempWaage= int(y/ZellYgroesse) * ZellYgroesseãtempWaage1= int(y/ZellYgroesse) * ZellYgroesse+ZellYgroesseãtempSenke= int(x/ZellXgroesse) * ZellXgroesseãtempSenke1= int(x/ZellXgroesse) * ZellXgroesse + ZellXgroesseããdiffzuWaage=tempWaage-yãdiffzuSenke=tempSenke-xãdiffzuWaage1=tempWaage1-yãdiffzuSenke1=tempSenke1-xããFOR ray = 0 to 319ãã IF Sichtwinkel < Winkel180 THENã Waage = tempWaage1ã xaufWaage = invtantable(Sichtwinkel) * diffzuWaage1 + xã NexteWaage=ZellYgroesseã Nexty=0ã elseã Waage = tempWaageã xaufWaage = invtantable(Sichtwinkel) * diffzuWaage + xã NexteWaage=-ZellYgroesseã Nexty=-1ã END IFãã IF Sichtwinkel < Winkel90 or Sichtwinkel >= Winkel270 THENã Senke = tempSenke1ã yaufSenke = tantable(Sichtwinkel) * diffzuSenke1 + yã NexteSenke=ZellXgroesseã Nextx=0ã elseã Senke = tempSenkeã yaufSenke = tantable(Sichtwinkel) * diffzuSenke + yã NexteSenke=-ZellXgroesseã Nextx=-1ã END IFããã WHILE 1ãã IF xaufWaage > maxx or xaufWaage < 0 THENã distzuWaage = 1e+8ã exit loopã END IFãã Zellx = int(xaufWaage/ZellXgroesse)ã Zelly = int(Waage/ZellYgroesse) + Nextyãã IF Welt(Zellx,Zelly) <> 0 THENã distzuWaage=(xaufWaage-x)*invcostable(Sichtwinkel)ã exit loopã END IFãã xaufWaage = xaufWaage + Xstep(Sichtwinkel)ã Waage = Waage + NexteWaageã WENDããã WHILE 2ãã IF yaufSenke > maxy or yaufSenke < 0 THENã distzuSenke = 1e+8ã exit loopã END IFãã Zellx = int(Senke/ZellYgroesse) + Nextxã Zelly = int(yaufSenke/ZellYgroesse)ãã IF Welt(Zellx,Zelly) <> 0 THENã distzuSenke=(yaufSenke-y)* invsintable(Sichtwinkel)ã exit loopã END IFãã yaufSenke = yaufSenke + Ystep(Sichtwinkel)ã Senke = Senke + NexteSenkeã WENDããã IF distzuWaage < distzuSenke THENãã Skalier = costable(ray) / distzuWaageã Oben = 90 - Skalier/2ã IF Oben < 20 THEN Oben = 20ã Unten = 90 + Skalier/2ã IF Unten > 180 THEN Unten=180ãã IF int(xaufWaage) MOD ZellYgroesse =< 1 THENã colorr = 15ã elseã colorr=10ã END IFã Linie ray,20,ray,Oben ,160ã Linie ray,Oben ,ray,Unten,colorrã Linie ray,Unten,ray,180,215ã elseã Skalier = costable(ray) / distzuSenkeã Oben = 90 - Skalier/2ã IF Oben < 20 THEN Oben = 20ã Unten = 90 + Skalier/2ã IF Unten > 180 THEN Unten = 180ã IF int(yaufSenke) MOD ZellXgroesse = < 1 THENã colorr=15ã elseã colorr=2ã END IFã Linie ray,20,ray,Oben,160ã Linie ray,Oben,ray,Unten,colorrã Linie ray,Unten,ray,180,215ã END IFããã INCR Sichtwinkelã IF Sichtwinkel >= Winkel360 THENã Sichtwinkel=0ã END IFãNext rayããSichtwinkel=resettãEND SUBãã' M A I N *****************************************************************'ããDIM x as longãDIM y as longãDIM xZell as longãDIM yZell as longãDIM xsubZell as longãDIM ysubZell as longããDIM dx as singleãDIM dy as singleããModus13ãWriteScrn 1, 1, 11, "Raycasting Engine by Wolfgang Bruske"ãWriteScrn 2, 1, 14, "SCREEN 13 Routines by Thomas Gohel"ãWriteScrn 24, 1, 14, CHR$(24,25,26,27) + " oder 2, 4, 6, 8"ããCALL Tabellenbauen()ãCALL LoadWelt("raycast.dat")ãcolorr=15ããx=9*64+32ãy=9*64+32ãSichtwinkel=Winkel6ããCALL RayCaster(x,y)ããWHILE done = 0ã kbhit=ascii(inkey$)ã IF kbhit > 0 THENã Taste$=chr$(kbhit)ã kbhit = 0ã dx=0ã dy=0ã select case Taste$ãã case "4"ã DECR Sichtwinkel,Winkel6ã IF Sichtwinkel < Winkel0 THEN Sichtwinkel=Winkel360+Sichtwinkelã case "6"ã INCR Sichtwinkel,Winkel6ã IF Sichtwinkel > Winkel360 THEN Sichtwinkel =Sichtwinkel-Winkel360ã case "8"ã dx=cos(6.28*Sichtwinkel/Winkel360)*10ã dy=sin(6.28*Sichtwinkel/Winkel360)*10ã case "2"ã dx=-cos(6.28*Sichtwinkel/Winkel360)*10ã dy=-sin(6.28*Sichtwinkel/Winkel360)*10ãã case "q", CHR$(27)ã Modus3ã ENDã end selectã x=x+dxã y=y+dyãã xZell = int(x/ZellXgroesse)ã yZell = int(y/ZellYgroesse)ã xsubZell = x MOD ZellXgroesseã ysubZell = y MOD ZellYgroesseãã IF dx > 0 THENã IF Welt(xZell+1,yZell) <> 0 and xsubZell > (ZellXgroesse-MinAbstand) THENã x = x -(xsubZell-(ZellXgroesse-MinAbstand))ã END IFã elseã IF Welt(xZell-1,yZell) <> 0 and xsubZell < MinAbstand THENã x = x + (MinAbstand-xsubZell)ã END IFã END IFãã IF dy > 0 THENã IF Welt(xZell,(yZell+1)) <> 0 and ysubZell > (ZellYgroesse-MinAbstand ) THENã y = y -(ysubZell-(ZellYgroesse-MinAbstand ))ã END IFã elseã IF Welt(xZell,(yZell-1)) <> 0 and ysubZell < MinAbstand THENã y = y + (MinAbstand-ysubZell)ã END IFã END IFã CALL RayCaster(x,y)ã END IFãWENDããSUB Modus13ã ! mov al, &h13ã ! mov ah, 0ã ! int &h10ãEND SUBããSUB Modus3ã ! mov al, &h03ã ! mov ah, 0ã ! int &h10ãEND SUBããSUB Linie(BYVAL x1%, BYVAL y1%, BYVAL x2%, BYVAL y2%, BYVAL Farbe%) publicã LOCAL s1%, s2%, s3%, s4%ã ! push esã ! push diã ! mov ax, &ha000 ;' nur einmal VideoSegment setzenã ! mov es, axã ! mov ax, x2% ;' Differenz x2% - x1% nach axã ! sub ax, x1%ã ! jns Linie1ã ! neg ax ; VorzeichentauschãLinie1:ã ! mov bx, y2% ; Differenz von y2% - y1% nach bxã ! sub bx, y1%ã ! jns Linie2ã ! neg bx ; VorzeichentauschãLinie2:ã ! cmp ax, bx ; Steigung <= 1 ?ã ! jge Linie3A ; Jaã ! jmp Linie20 ; NeinãLinie3A:ã ! mov cx, x1% ; Ist x1% <= x2% ?ã ! cmp cx, x2%ã ! jg Linie4ã ! mov cx, 1 ; X steigtã ! jmp Linie5ãLinie4:ã ! mov cx, -1 ; X fälltãLinie5:ã ! mov dx, y1% ; ist y1% <= y2%ã ! cmp dx, y2%ã ! jg Linie6ã ! mov dx, 1 ; Y steigtã ! jmp Linie7ãLinie6:ã ! mov dx, -1 ; Y fälltãLinie7:ã ! mov s1%, cx ; Steigung auf dem Stack speichernã ! mov s2%, dxã ! add bx, bx ; Steigung berechnenã ! mov s3%, bxã ! sub bx, axã ! mov cx, bxã ! sub cx, axã ! mov s4%, cxã ! mov cx, x1%ã ! mov dx, y1%ã ! call SetPunktãLinie8:ã ! cmp cx, x2% ; Weitere Punkte?ã ! jz Linie3ã ! add cx, s1% ; X-Koordinate erhöhenã ! or bx, bx ; Entscheiden, ob Y-Koordinate erhöhtã ! jns Linie10 ; wirdã ! add bx, s3%ã ! jmp Linie11ãLinie10:ã ! add bx, s4% ; Nächsten Punkt ausgebenã ! add dx, s2%ãLinie11:ã ! call Setpunktã ! jmp Linie8ãLinie20:ãã';----------------------------------------------------------ã'; Dieser Teil wird durchlaufen, wenn die Steigung > 1 istã';----------------------------------------------------------ãã ! mov cx, y1% ; Steigung ist > 1ã ! cmp cx, y2% ; Ist y1% <= y2% ?ã ! jg Linie12ã ! mov cx,1 ; Y steigtã ! jmp Linie13ãLinie12:ã ! mov cx, -1 ; Y fälltãLinie13:ã ! mov dx, x1% ; ist x1% <= x2% ?ã ! cmp dx, x2%ã ! jg Linie14ã ! mov dx, 1 ; X steigtã ! jmp Linie15ãLinie14:ã ! mov dx, -1 ; X fälltãLinie15:ã ! mov s1%, cx ; Steigung auf dem Stack speichernã ! mov s2%, dxã ! add ax, ax ; Steigung berechnenã ! mov s3%, axã ! sub ax, bxã ! mov cx, axã ! sub cx, bxã ! mov s4%, cxã ! mov bx, axã ! mov cx, x1%ã ! mov dx, y1%ã ! call SetPunktãLinie16:ã ! cmp dx, y2% ; Weitere Punkte ausgeben?ã ! jz Linie3ã ! add dx, s1%ã ! or bx, bxã ! jns Linie18ã ! add bx, s3%ã ! jmp Linie19ãLinie18:ã ! add bx, s4%ã ! add cx, s2%ãLinie19:ã ! call SetPunktã ! jmp Linie16ãLinie3:ã ! jmp EndeãSetPunkt:ã ! mov di, dxã ! push bxã ! mov bx, dxã ! mov ax, 320ã ! mul bxã ! mov bx, cxã ! add bx, axã ! mov al, Farbe%ã ! mov es:[bx], alã ! pop bxã ! mov dx, diã ! retnãEnde:ã ! pop diã ! pop esãEND SUBããSUB WriteScrn (BYVAL Zeile?, BYVAL Spalte?, BYVAL Farbe%, BYVAL Text$)ã ' PowerBASIC 3.0 kompatibel, Shit Err244 Bug :-(ã LOCAL TextSeg??, TextOff??, TextLen??ã TextSeg?? = STRSEG(Text$)ã TextOff?? = STRPTR(Text$)ã TextLen?? = LEN(Text$)ã ! push bpã ! dec Zeile?ã ! dec Spalte?ã ! mov ax, &h1301ã ! mov bl, Farbe%ã ! mov bh, 0ã ! mov cx, TextLen??ã ! mov dh, Zeile?ã ! mov dl, Spalte?ã ! mov es, TextSeg??ã ! mov bp, TextOff??ã ! int &h10ã ! pop bpãEND SUBã--- Cut End -------------------------------------------------------------ããDAT-file:ãã--- Cut ----------------------------------------------------------------ãsection 1 of uuencode 5.20 of file raycast.dat by R.E.M.ããbegin 644 raycast.datãM,3$Q,3$Q,3$Q,3$Q,3$Q,0T*,2`@("`@("`@("`@("`@,0T*,2`Q(#$@,2`QãM(#$@,2`Q,0T*,2`@("`@("`@("`@("`@,0T*,3$Q(#$Q,3$Q,3$Q("`@,0T*ãM,2`@("`@,2`@("`Q("`@,0T*,2`@("`@,2`@("`Q("`@,0T*,3$Q,3$Q,2`@ãM("`Q("`@,0T*,2`@("`@,3$Q(#$Q("`@,0T*,2`@("`@("`@("`Q("`@,0T*ãM,2`@("`@("`@("`Q("`@,0T*,2`Q,3$Q,3$Q,3$Q,3$@,0T*,2`Q("`@("`@ãM("`@("`@,0T*,2`Q("`@("`@(#$@("`@,0T*,2`@("`@("`@(#$@("`@,0T*ãH,3$Q,3$Q,3$Q,3$Q,3$Q,0T*#0H-"@T*#0H-"@T*#0H-"@T*#0H-"@H-ã`ãendãsum -r/size 2742/458 section (from "begin" to "end")ãsum -r/size 47403/310 entire input fileã--- Cut End -------------------------------------------------------------ãAndrew L. Ayers BURNING TEXT andrewa@indirect.com 07-24-96 (00:00) QB, QBasic, PDS 59 1675 FIREPRN.BAS ' Description : FirePrint! - Custom text print subroutine forã' VGA Mode 13ã' Written by : Andrew L. Ayersã' Date : 07/24/96ã'ã' This little routine allows you to place a "burning" textã' string on the mode 13 screen. This routine was based onã' a routine by Martin Lindhe. Both are essentially the same,ã' though this one is cleaner. Remember, the better the machine,ã' the better the effect. Also, smaller strings will look better.ã'ã' You may use this routine in any manner you like, as longã' as you give Mr. Lindhe and myself credit in an appropriateã' manner.ã'ã' I wish to thank Martin Lindhe for providing the inspirationã' to do this routine.ã'ãDECLARE SUB FirePrint (h%, v%, a$, tilt%)ã'ãSCREEN 13ã'ã' Set up an all "red" paletteã'ãFOR t = 0 TO 63: PALETTE t, t: NEXT tã'ã' Call the routine once for a simple "flame" effect,ã' or over and over (as done here) for a great "burning"ã' effect! Use uppercase for best effect.ã'ãDOã CALL FirePrint(18, 12, "FIRE!", 0)ãLOOP UNTIL INKEY$ <> ""ããSUB FirePrint (h%, v%, a$, tilt%)ã 'ã ' Print the string in bright "red"ã 'ã COLOR 63: LOCATE v%, h%: PRINT a$ã 'ã ' Set up start and end locations for the burnã 'ã sx% = (h% * 8) - 8: ex% = ((h% + LEN(a$)) * 8) - 8ã sy% = (v% * 8) - 16: ey% = (v% * 8) - 8ã 'ã FOR y% = sy% TO ey%ã FOR x% = sx% TO ex%ã 'ã ' Take the current color, subtract a random amount forã ' red flame "fade", and plot the new pointã 'ã col% = POINT(x%, y%) - RND * 25: IF col% < 0 THEN col% = 0ã 'ã PSET (x% + tilt%, y% - 1), col%ã 'ã NEXT x%ã NEXT y%ã 'ãEND SUBãAndrew L. Ayers STEEL PRINT andrewa@indirect.com 08-01-96 (00:00) QB, QBasic, PDS 39 1022 STEELPRN.BAS' Description : SteelPrint! - Custom text print subroutine forã' VGA Mode 13ã' Written by : Andrew L. Ayersã' Date : 08/01/96ã'ã' This little routine allows you to place a "steel-like" textã' string on the mode 13 screen.ã'ã' You may use this routine in any manner you like, as longã' as you give credit in an appropriate manner.ã'ãDECLARE SUB SteelPrint (x%, y%, text$)ã'ãSCREEN 13ã'ãCALL SteelPrint(5, 12, "SteelPrint! by Andrew L. Ayers")ã'ãDO: LOOP UNTIL INKEY$ <> ""ããSUB SteelPrint (x%, y%, text$)ã 'ã starty% = (y% * 8) - 4ã endy% = (y% * 8) - 9ã startx% = ((x% - 1) * 8)ã endx% = ((x% - 1) * 8) + (LEN(text$) * 8)ã colr% = 32ã 'ã COLOR 15: LOCATE y%, x%: PRINT text$ã 'ã FOR y1% = starty% TO endy% STEP -1ã y2% = (starty% - 1) + ((starty% - 1) - y1%)ã FOR x% = startx% TO endx%ã IF POINT(x%, y1%) THEN PSET (x%, y1%), colr%ã IF POINT(x%, y2%) THEN PSET (x%, y2%), colr%ã NEXT x%ã colr% = colr% - 2ã NEXT y1%ã 'ãEND SUBãAndrew L. Ayers PSYCHO PRINT andrewa@indirect.com 08-13-96 (00:00) QB, QBasic, PDS 120 3497 PSYCHO.BAS ' Description : PsychoPrint! - Custom text print subroutine forã' VGA Mode 13ã' Written by : Andrew L. Ayersã' Date : 08/13/96ã'ã' What can I say? I can't seem to get enough of custom text!ã' Well, anyhow - this routine needs to be played with. It allowsã' you to create text that flashes (techno/house/rave style),ã' text that fades away, dot by dot, and random snow text (certainã' combos of which look like flowing puke), and even rainbow flashã' text. Give it a shot!ã'ã' BTW: You may use this routine in any manner you like, as longã' as you give credit in an appropriate manner.ã'ãDECLARE SUB PsychoPrint (x%, y%, strg$, fclr%, bclr%, range1%, range2%, factor%, special%)ã'ãSCREEN 13ã'ãDOã 'ã special% = 1ã 'ã CALL PsychoPrint(6, 12, "PsychoPrint! by Andrew Ayers", 3, 0, 0, 15, 4, special%)ã 'ãLOOP UNTIL special% = 999 OR INKEY$ <> ""ããSUB PsychoPrint (x%, y%, strg$, fclr%, bclr%, range1%, range2%, factor%, special%)ã 'ã STATIC FirstTime AS INTEGERã STATIC colr AS INTEGERã 'ã IF strg$ = "" THEN FirstTime% = 0: EXIT SUBã 'ã xpos% = x% * 8 - 8: ypos% = y% * 8 - 8ã xend% = xpos% + (LEN(strg$) * 8): yend% = ypos% + 8ã 'ã IF FirstTime% = 0 THENã COLOR 255: LOCATE y%, x%: PRINT strg$: FirstTime% = 1ã COLOR 15ã colr% = fclr%ã FOR y% = ypos% TO yend%ã FOR x% = xpos% TO xend%ã IF POINT(x%, y%) <> 255 THENã PSET (x%, y%), bclr%ã ELSEã PSET (x%, y%), fclr%ã END IFã NEXT x%ã NEXT y%ã END IFã 'ã '***********************************************************ã 'ã flag% = 999ã 'ã FOR y% = ypos% TO yend%ã FOR x% = xpos% TO xend%ã IF POINT(x%, y%) <> bclr% THENã flag% = 0ã PSET (x%, y%), colr%ã 'ã SELECT CASE special%ã CASE 3 ' Regular Fadeã IF INT(RND * 2) = 1 THENã colr% = bclr%ã ELSEã colr% = fclr%ã END IFã CASE 4 ' Psycho Snowã colr% = INT(RND * factor%)ã IF colr% = bclr% THEN colr% = colr% + 1ã CASE 5 ' Psycho Snow Fadeã colr% = INT(RND * factor%)ã END SELECTã 'ã END IFã 'ã SELECT CASE special%ã CASE 1 ' Psycho Cycleã colr% = colr% + factor%ã IF colr% = bclr% THEN colr% = colr% + 1ã IF colr% >= range2% THEN colr% = range1%ã IF colr% = bclr% THEN colr% = colr% + 1ã CASE 2 ' Psycho Fadeã colr% = colr% + 1ã IF colr% > range2% THEN colr% = range1%ã END SELECTã 'ã NEXT x%ã 'ã SELECT CASE special%ã CASE 6 ' Psycho Rainbowã colr% = colr% + factor%ã IF colr% = bclr% THEN colr% = colr% + 1ã IF colr% >= range2% THEN colr% = range1%ã IF colr% = bclr% THEN colr% = colr% + 1ã CASE 7 ' Psycho Rainbow Fadeã colr% = colr% + 1ã IF colr% > range2% THEN colr% = range1%ã CASE 8 ' Regular Line Fadeã IF INT(RND * 2) = 1 THENã colr% = bclr%ã ELSEã colr% = fclr%ã END IFã CASE 9 ' Psycho Line Snowã colr% = INT(RND * factor%)ã IF colr% = bclr% THEN colr% = colr% + 1ã CASE 10 ' Psycho Line Snow Fadeã colr% = INT(RND * factor%)ã END SELECTã 'ã NEXT y%ã 'ã FOR dlay = 1 TO 10000: NEXT dlay' Adjust this to your computerã 'ã special% = flag%ã 'ãEND SUBãAndrew L. Ayers FAST VGA SCROLL andrewa@indirect.com 08-02-96 (00:00) QB, QBasic, PDS 88 3093 FASTSCRL.BAS' Description : FastScroll! - VGA Mode 13 Scrolling Routineã' Written by : Andrew L. Ayersã' Date : 08/02/96ã'ã' This little routine allows you to scroll the ENTIRE mode 13ã' screen ANY number of pixels up, down, left and right. It usesã' GET/PUT to accomplish this, but the GET/PUT is tiled aroundã' the screen, so that the buffer used only needs to be aboutã' 1000 bytes! When you use this routine, don't pass in bothã' x and y offsets at one time (don't try to go diagonal) - theã' program will bomb. Pass one, then the other to move diagonally.ã' I know this isn't the best way (jumps a bit), but it does work.ã' I made this routine for a game, and I only needed the fourã' cardinal directions. When scrolling, be aware of the fact thatã' if any graphics are on the edges of the scroll region (one pixelã' "in" if offset is 1, two if offset is 2, 4 if offset is four,ã' etc.), when the scroll is performed, "droppings" will be leftã' and will need to be cleaned up. I know I could have did thisã' myself, but I felt that some people may have wanted droppingsã' left (I don't know why...), so I left it like it is.ã'ã' You may use this routine in any manner you like, as longã' as you give credit in an appropriate manner. Have phun!ã'ãDECLARE SUB FastScroll (XSpeed%, YSpeed%)ã'ãSCREEN 13ã'ã' Set up a Demo Graphicã'ãFOR T% = 0 TO 500ã X1% = INT(RND * 260) + 10ã Y1% = INT(RND * 140) + 10ã X2% = INT(RND * 260) + 10ã Y2% = INT(RND * 140) + 10ã C% = INT(RND * 16)ã LINE (X1%, Y1%)-(X2%, Y2%), C%ãNEXT T%ã'ãLOCATE 11, 4: PRINT "FastScroll! by Andrew L. Ayers"ã'ã' Show off scrolling!ã'ãcount% = 0: x% = 1: y% = 0ã'ãDOã count% = count% + 1ã IF count% = 10 THEN x% = 0: y% = 1ã IF count% = 20 THEN x% = -1: y% = 0ã IF count% = 30 THEN x% = 0: y% = -1ã IF count% = 40 THEN x% = 1: y% = 0: count% = 0ã 'ã CALL FastScroll(x% * 4, y% * 4)ãLOOP UNTIL INKEY$ <> ""ããSUB FastScroll (XSpeed%, YSpeed%)ã 'ã DIM Temp%(502)ã 'ã XStep% = 40: YStep% = 25ã 'ã IF XSpeed% < 0 OR YSpeed% < 0 THENã FOR y% = 0 TO 199 STEP YStep%ã FOR x% = 0 TO 319 STEP XStep%ã IF (XSpeed% <> 0 AND x% = 0) OR (YSpeed% <> 0 AND y% = 0) THENã GET (x% - XSpeed%, y% - YSpeed%)-(x% + XStep% - 1, y% + YStep% - 1), Temp%ã PUT (x%, y%), Temp%, PSETã ELSEã GET (x%, y%)-(x% + XStep% - 1, y% + YStep% - 1), Temp%ã PUT (x% + XSpeed%, y% + YSpeed%), Temp%, PSETã END IFã NEXT x%ã NEXT y%ã ELSEã FOR y% = 199 TO 0 STEP -YStep%ã FOR x% = 319 TO 0 STEP -XStep%ã IF (XSpeed% <> 0 AND x% = 319) OR (YSpeed% <> 0 AND y% = 199) THENã GET (x% - (XStep% - 1), y% - (YStep% - 1))-(x% - XSpeed%, y% - YSpeed%), Temp%ã PUT (x% - (XStep% - 1) + XSpeed%, y% - (YStep% - 1) + YSpeed%), Temp%, PSETã ELSEã GET (x% - (XStep% - 1), y% - (YStep% - 1))-(x%, y%), Temp%ã PUT (x% - (XStep% - 1) + XSpeed%, y% - (YStep% - 1) + YSpeed%), Temp%, PSETã END IFã NEXT x%ã NEXT y%ã END IFã 'ãEND SUBãAndrew L. Ayers BIG TEXT SCROLL andrewa@indirect.com 08-15-96 (00:00) QB, QBasic, PDS 123 3346 BIGSCROL.BAS' Description : BigScroll! - Another VGA Mode 13 Scrolling Routineã' Written by : Andrew L. Ayersã' Date : 08/15/96ã'ã' This uses my FastScroll! routine, as well as another routineã' to do a LARGE text scroller. Check it out!ã'ã' You may use this routine in any manner you like, as longã' as you give credit in an appropriate manner. Have phun!ã'ãDECLARE SUB FastScroll (XSpeed%, YSpeed%)ã'ãDEFINT A-Zã'ãDIM a1(32 * 64 * 11), a2(32 * 64 * 11), a3(32 * 64 * 11)ã'ãSCREEN 13ã'ãCOLOR 7: LOCATE 10, 6: PRINT "Please wait...Building font": COLOR 0ã'ãFOR T = 15 TO 255: PALETTE T, 0: NEXT Tã'ãA$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ!?.-"ã'ãFOR T = 0 TO 30ã GOSUB DrawLetterã GOSUB GetLetterãNEXT Tã'ãSCREEN 0: CLS 0: SCREEN 13ã'ãB$ = "BIG SCROLL! BY ANDREW AYERS - HOW DO YOU LIKE IT?... "ã'ãDOã FOR TT = 1 TO LEN(B$)ã T = INSTR(A$, MID$(B$, TT, 1)) - 1ã GOSUB PutLetterã FOR X = 0 TO 7ã CALL FastScroll(-8, 0)ã LINE (311, 0)-(319, 199), 0, BFã NEXT Xã NEXT TTãLOOP UNTIL UCASE$(INKEY$) = "Q"ã'ãSTOPã'ãDrawLetter:ã 'ã LINE (0, 0)-(8, 8), 0, BFã LINE (0, 100)-(319, 199), 0, BFã 'ã COLOR 255: LOCATE 1, 1: PRINT MID$(A$, T + 1, 1)ã 'ã SCALE = 8ã 'ã FOR y = 0 TO (SCALE - 1)ã FOR X = 1 TO 1 * SCALEã IF POINT(X - 1, y) = 255 THENã LINE (X * SCALE, 100 + y * SCALE)-(X * SCALE + SCALE, 100 + y * SCALE + SCALE), 15, BFã END IFã NEXT Xã NEXT yã 'ã FOR y = 0 TO SCALE * SCALEã C = (16 * ABS(y < 31)) + INT(y / 2)ã FOR X = 0 TO SCALE * SCALEã IF POINT(X, 100 + y) THENã PSET (X, 100 + y), Cã END IFã NEXT Xã NEXT yã 'ã RETURNããGetLetter:ã 'ã IF T >= 0 AND T < 10 THEN GET (0, 100)-(64, 160), a1(T * 32 * 64)ã IF T >= 10 AND T < 20 THEN GET (0, 100)-(64, 160), a2((T - 10) * 32 * 64)ã IF T >= 20 AND T < 30 THEN GET (0, 100)-(64, 160), a3((T - 20) * 32 * 64)ã 'ã RETURNããPutLetter:ã 'ã IF T >= 0 AND T < 10 THEN PUT (255, 68), a1(T * 32 * 64), PSETã IF T >= 10 AND T < 20 THEN PUT (255, 68), a2((T - 10) * 32 * 64), PSETã IF T >= 20 AND T < 30 THEN PUT (255, 68), a3((T - 20) * 32 * 64), PSETã 'ã RETURNããSUB FastScroll (XSpeed%, YSpeed%)ã 'ã DIM Temp%(502)ã 'ã XStep% = 40: YStep% = 25ã 'ã IF XSpeed% < 0 OR YSpeed% < 0 THENã FOR y% = 0 TO 199 STEP YStep%ã FOR X% = 0 TO 319 STEP XStep%ã IF (XSpeed% <> 0 AND X% = 0) OR (YSpeed% <> 0 AND y% = 0) THENã GET (X% - XSpeed%, y% - YSpeed%)-(X% + XStep% - 1, y% + YStep% - 1), Temp%ã PUT (X%, y%), Temp%, PSETã ELSEã GET (X%, y%)-(X% + XStep% - 1, y% + YStep% - 1), Temp%ã PUT (X% + XSpeed%, y% + YSpeed%), Temp%, PSETã END IFã NEXT X%ã NEXT y%ã ELSEã FOR y% = 199 TO 0 STEP -YStep%ã FOR X% = 319 TO 0 STEP -XStep%ã IF (XSpeed% <> 0 AND X% = 319) OR (YSpeed% <> 0 AND y% = 199) THENã GET (X% - (XStep% - 1), y% - (YStep% - 1))-(X% - XSpeed%, y% - YSpeed%), Temp%ã PUT (X% - (XStep% - 1) + XSpeed%, y% - (YStep% - 1) + YSpeed%), Temp%, PSETã ELSEã GET (X% - (XStep% - 1), y% - (YStep% - 1))-(X%, y%), Temp%ã PUT (X% - (XStep% - 1) + XSpeed%, y% - (YStep% - 1) + YSpeed%), Temp%, PSETã END IFã NEXT X%ã NEXT y%ã END IFã 'ãEND SUBãAndrew L. Ayers VGA PALETTE READ/WRITE ROUTINESandrewa@indirect.com 07-24-96 (00:00) QB, QBasic, PDS 129 3662 VGAPAL.BAS ' Description : Mode 13 VGA Palette Read/Write Subroutinesã' and custom palette setting routineã' Written by : Andrew L. Ayersã' Date : 07/24/96ã'ã' These read/write routines were developed from informationã' provided by Eli Bennett in an ABC Code Packet. The paletteã' setting (spreading?) routine is my own. These routines shouldã' make it easier to read/write RGB values to the VGA palette inã' mode 13 as well as in setting up palettes. If you use theseã' routines, please give credit to both Mr. Bennett and myself.ã' Have phun!ã'ãDECLARE SUB ReadRGB (red%, grn%, blu%, slot%)ãDECLARE SUB WriteRGB (red%, grn%, blu%, slot%)ãDECLARE SUB SetPal (start.slot%, end.slot%)ã'ãDIM oldr%(255), oldg%(255), oldb%(255)ã'ãSCREEN 13ã'ã' Save old paletteã'ãFOR t% = 0 TO 255ã CALL ReadRGB(oldr%(t%), oldg%(t%), oldb%(t%), t%)ãNEXT t%ã'ã' Create a custom 256 color paletteã'ãCALL WriteRGB(63, 63, 63, 1) ' From all whiteãCALL WriteRGB(63, 0, 0, 63) ' to red, and thenãCALL WriteRGB(0, 63, 0, 127) ' to green, thenãCALL WriteRGB(0, 0, 63, 191) ' to blue, and finallyãCALL WriteRGB(63, 63, 63, 255) ' back to white...ã'ãCALL SetPal(1, 63) ' Each of these linesãCALL SetPal(63, 127) ' create a portion ofãCALL SetPal(127, 191) ' the color spread. TheãCALL SetPal(191, 255) ' two arguments are theã ' start and ending slotsã ' for the spread...ã'ã' Display exampleã'ãFOR t% = 1 TO 255ã LINE (t% - 1, 0)-(t% - 1, 199), t%ãNEXT t%ãã'ã' Rotate palette - this isn't how you would do itã' for speed (for more speed, inline the read/write codeã' to eliminate subroutine calling overhead), but itã' does show how to do it. Notice the "sparklies" alongã' the right hand edge. These are only apparent if yourã' computer is fast enough. I believe this has to do withã' the registers being updated faster than the video cardã' can keep up with or sothing like that. If anyone knowsã' how to fix this, go for it!ã'ãDOã 'ã CALL ReadRGB(ored%, ogrn%, oblu%, 1) ' Read in slot 1.ã 'ã FOR t% = 1 TO 254ã CALL ReadRGB(red%, grn%, blu%, t% + 1) ' Read slots 2-255, thenã CALL WriteRGB(red%, grn%, blu%, t%) ' shift to slots 1-254.ã NEXT t%ã 'ã CALL WriteRGB(ored%, ogrn%, oblu%, 255) ' Write what was in slot 1 toã ' slot 255.ãLOOP UNTIL INKEY$ <> ""ã'ãCLSãã'ã' Reset original RGB valuesã'ãFOR t% = 0 TO 255ã CALL WriteRGB(oldr%(t%), oldg%(t%), oldb%(t%), t%)ãNEXT t%ããSUB ReadRGB (red%, grn%, blu%, slot%)ã 'ã OUT &H3C7, slot% ' Read RGB values from slotã 'ã red% = INP(&H3C9)ã grn% = INP(&H3C9)ã blu% = INP(&H3C9)ã 'ãEND SUBããSUB SetPal (start.slot%, end.slot%)ã 'ã num.slots% = end.slot% - start.slot%ã 'ã CALL ReadRGB(sr%, sg%, sb%, start.slot%)ã CALL ReadRGB(er%, eg%, eb%, end.slot%)ã 'ã rr% = ABS(er% - sr%): rg% = ABS(eg% - sg%): rb% = ABS(eb% - sb%)ã rs% = SGN(er% - sr%): gs% = SGN(eg% - sg%): bs% = SGN(eb% - sb%)ã 'ã stepr = (rr% / num.slots%) * rs%ã stepg = (rg% / num.slots%) * gs%ã stepb = (rb% / num.slots%) * bs%ã 'ã r = sr%: g = sg%: b = sb%ã wr% = r: wg% = g: wb% = bã 'ã FOR t% = start.slot% TO end.slot%ã 'ã CALL WriteRGB(wr%, wg%, wb%, t%)ã 'ã r = r + stepr: wr% = rã g = g + stepg: wg% = gã b = b + stepb: wb% = bã 'ã NEXT t%ã 'ãEND SUBããSUB WriteRGB (red%, grn%, blu%, slot%)ã 'ã OUT &H3C8, slot% ' Write RGB values to slotã 'ã OUT &H3C9, red%ã OUT &H3C9, grn%ã OUT &H3C9, blu%ã 'ãEND SUBãAndrew L. Ayers VGA SINUSOIDAL PLASMA andrewa@indirect.com 07-24-96 (00:00) QB, QBasic, PDS 175 4887 PLASMA.BAS ' Description : Mode 13 VGA Sinusoidal Plasma!ã' Written by : Andrew L. Ayersã' Date : 07/24/96ã'ã' Now here's one for the masses! This creates sinusoidal plasma, whichã' tends to be way easier to create than cloud plasma. This routine isn'tã' optimized too much (a SIN table would speed it up some). Play with itã' some. As always, if you use the routine in your own program or demo,ã' please mention my name. Thanks, and have phun!ããDECLARE SUB SetPal (start.slot%, end.slot%)ãDECLARE SUB ReadRGB (red%, grn%, blu%, slot%)ãDECLARE SUB WriteRGB (red%, grn%, blu%, slot%)ã'ãDIM oldr%(255), oldg%(255), oldb%(255), A%(300), C%(300)ã'ãSCREEN 13ã'ã' Save old palette, set palette to black toã' hide the build process...ã'ãFOR t% = 0 TO 255ã CALL ReadRGB(oldr%(t%), oldg%(t%), oldb%(t%), t%)ã CALL WriteRGB(0, 0, 0, t%)ãNEXT t%ã'ã' TPI = 2 x PI - Do NOT mess with, needed for SIN Calcsã' FREQ = Frequency (Duh!) - Go ahead and mess with these two...ã' AMPLITUDE = (Double Duh!)ã'ãTPI = 6.28318: FREQ% = 4: AMPLITUDE% = 15ã'ã' Create Sinusoidal Multicolored Backdrop Thingy!ã'ãSCALE = (TPI * FREQ%) / 320ã'ãFOR Y% = 0 TO 199ã RAD = 0ã COLR% = COLR% + 1: IF COLR% > 255 THEN COLR% = 1ã LINE (0, Y%)-(0, Y%), COLR%ã FOR X% = 0 TO 319 STEP 8ã YPOS% = Y% + SIN(RAD) * AMPLITUDE%ã LINE -(X%, YPOS%), COLR%ã RAD = RAD + (SCALE * 6)ã NEXT X%ãNEXT Y%ã'ã' Warp it sinusoidally in a horizontal fashion!ã'ãRAD = 0ãFREQ% = 8: AMPLITUDE% = 15ãSCALE = (TPI * FREQ%) / 200ã'ãFOR Y% = 0 TO 199ã XPOS% = INT(SIN(RAD) * AMPLITUDE%)ã GET (0, Y%)-(319 - XPOS%, Y%), A%ã IF XPOS% >= 0 THENã GET (319 - XPOS%, Y%)-(319, Y%), C%ã PUT (XPOS%, Y%), A%, PSETã PUT (0, Y%), C%, PSETã ELSEã GET (ABS(XPOS%), Y%)-(319, Y%), A%ã GET (0, Y%)-(ABS(XPOS%), Y%), C%ã PUT (0, Y%), A%, PSETã PUT (319 + XPOS%, Y%), C%, PSETã END IFã RAD = RAD + SCALEãNEXT Y%ã'ã' Mask off ugly portionsã'ãLINE (0, 0)-(319, 17), 0, BFãLINE (0, 174)-(319, 199), 0, BFãLINE (0, 0)-(35, 199), 0, BFãLINE (289, 0)-(319, 199), 0, BFã'ãLOCATE 2, 9: PRINT "Sinusoidal Plasma Effect!"ãLOCATE 23, 12: PRINT "By Andrew L. Ayers"ã'ã' Create a custom 256 color paletteã'ãCALL WriteRGB(63, 63, 63, 1) ' From all whiteãCALL WriteRGB(63, 0, 0, 63) ' to red, and thenãCALL WriteRGB(0, 63, 0, 127) ' to green, thenãCALL WriteRGB(0, 0, 63, 191) ' to blue, and finallyãCALL WriteRGB(63, 63, 63, 255) ' back to white...ã'ãCALL SetPal(1, 63) ' Each of these linesãCALL SetPal(63, 127) ' create a portion ofãCALL SetPal(127, 191) ' the color spread. TheãCALL SetPal(191, 255) ' two arguments are theã ' start and ending slotsã ' for the spread...ãã'ã' Rotate palette - this isn't how you would do itã' for speed (for more speed, inline the read/write codeã' to eliminate subroutine calling overhead), but itã' does show how to do it. Notice the "sparklies" alongã' the right hand edge. These are only apparent if yourã' computer is fast enough. I believe this has to do withã' the registers being updated faster than the video cardã' can keep up with or sothing like that. If anyone knowsã' how to fix this, go for it!ã'ãDOã 'ã CALL ReadRGB(ored%, ogrn%, oblu%, 1) ' Read in slot 1.ã 'ã FOR t% = 1 TO 254ã CALL ReadRGB(red%, grn%, blu%, t% + 1) ' Read slots 2-255, thenã CALL WriteRGB(red%, grn%, blu%, t%) ' shift to slots 1-254.ã NEXT t%ã 'ã CALL WriteRGB(ored%, ogrn%, oblu%, 255) ' Write what was in slot 1 toã ' slot 255.ãLOOP UNTIL INKEY$ <> ""ã'ãCLSãã'ã' Reset original RGB valuesã'ãFOR t% = 0 TO 255ã CALL WriteRGB(oldr%(t%), oldg%(t%), oldb%(t%), t%)ãNEXT t%ããSUB ReadRGB (red%, grn%, blu%, slot%)ã 'ã OUT &H3C7, slot% ' Read RGB values from slotã 'ã red% = INP(&H3C9)ã grn% = INP(&H3C9)ã blu% = INP(&H3C9)ã 'ãEND SUBããSUB SetPal (start.slot%, end.slot%)ã 'ã num.slots% = end.slot% - start.slot%ã 'ã CALL ReadRGB(sr%, sg%, sb%, start.slot%)ã CALL ReadRGB(er%, eg%, eb%, end.slot%)ã 'ã rr% = ABS(er% - sr%): rg% = ABS(eg% - sg%): rb% = ABS(eb% - sb%)ã rs% = SGN(er% - sr%): gs% = SGN(eg% - sg%): bs% = SGN(eb% - sb%)ã 'ã stepr = (rr% / num.slots%) * rs%ã stepg = (rg% / num.slots%) * gs%ã stepb = (rb% / num.slots%) * bs%ã 'ã r = sr%: g = sg%: b = sb%ã wr% = r: wg% = g: wb% = bã 'ã FOR t% = start.slot% TO end.slot%ã 'ã CALL WriteRGB(wr%, wg%, wb%, t%)ã 'ã r = r + stepr: wr% = rã g = g + stepg: wg% = gã b = b + stepb: wb% = bã 'ã NEXT t%ã 'ãEND SUBããSUB WriteRGB (red%, grn%, blu%, slot%)ã 'ã OUT &H3C8, slot% ' Write RGB values to slotã 'ã OUT &H3C9, red%ã OUT &H3C9, grn%ã OUT &H3C9, blu%ã 'ãEND SUBãAndrew L. Ayers CLOUD PLASMA EFFECT andrewa@indirect.com 07-24-96 (00:00) QB, QBasic, PDS 222 6227 CLOUD.BAS ' Description : Mode 13 VGA Cloud Plasma!ã' Written by : Andrew L. Ayersã' Date : 07/24/96ã'ã' Now here's yet another for the masses! This creates cload plasma, whichã' is also known as fractal plasma. This routine is pretty damn fastã' already, but if you can speed it up, go for it! Play with it some.ã' As always, if you use the routine in your own program or demo, pleaseã' mention my name. Thanks, and have phun!ããDECLARE SUB SetPal (start.slot%, end.slot%)ãDECLARE SUB ReadRGB (red%, grn%, blu%, slot%)ãDECLARE SUB WriteRGB (red%, grn%, blu%, slot%)ãDECLARE SUB PLASMA (XE%, YE%, SCALE%)ãDECLARE SUB DRAW.PLASMA (XS%, YS%, XE%, YE%, REDRAW%, SCALE%)ã'ãDIM oldr%(255), oldg%(255), oldb%(255)ã'ãSCREEN 13ã'ã' Save old palette, change to black toã' hide build processã'ãFOR t% = 0 TO 255ã CALL ReadRGB(oldr%(t%), oldg%(t%), oldb%(t%), t%)ã CALL WriteRGB(0, 0, 0, t%)ãNEXT t%ãã'ãRANDOMIZE TIMERã'ãCALL PLASMA(512, 256, 4)ããLOCATE 2, 11: PRINT "Cloud Plasma Effect!"ãLOCATE 23, 12: PRINT "By Andrew L. Ayers"ãã'ã' Create a custom 256 color paletteã'ãCALL WriteRGB(0, 0, 0, 1)ãCALL WriteRGB(63, 63, 0, 31)ãCALL WriteRGB(0, 0, 63, 63)ãCALL WriteRGB(0, 63, 63, 95)ãCALL WriteRGB(63, 0, 0, 127)ãCALL WriteRGB(0, 63, 0, 159)ãCALL WriteRGB(63, 0, 63, 191)ãCALL WriteRGB(63, 63, 63, 223)ãCALL WriteRGB(0, 0, 0, 255)ã'ãCALL SetPal(1, 31)ãCALL SetPal(31, 63)ãCALL SetPal(63, 95)ãCALL SetPal(95, 127)ãCALL SetPal(127, 159)ãCALL SetPal(159, 191)ãCALL SetPal(191, 223)ãCALL SetPal(223, 255)ãã'ã' Rotate palette - this isn't how you would do itã' for speed (for more speed, inline the read/write codeã' to eliminate subroutine calling overhead), but itã' does show how to do it. Notice the "sparklies" alongã' the right hand edge. These are only apparent if yourã' computer is fast enough. I believe this has to do withã' the registers being updated faster than the video cardã' can keep up with or sothing like that. If anyone knowsã' how to fix this, go for it!ã'ãDOã 'ã CALL ReadRGB(ored%, ogrn%, oblu%, 1) ' Read in slot 1.ã 'ã FOR t% = 1 TO 254ã CALL ReadRGB(red%, grn%, blu%, t% + 1) ' Read slots 2-255, thenã CALL WriteRGB(red%, grn%, blu%, t%) ' shift to slots 1-254.ã NEXT t%ã 'ã CALL WriteRGB(ored%, ogrn%, oblu%, 255) ' Write what was in slot 1 toã ' slot 255.ã FOR dlay% = 1 TO 15000: NEXT dlay% ' This may need adjustingãLOOP UNTIL INKEY$ <> ""ã'ãCLSãã'ã' Reset original RGB valuesã'ãFOR t% = 0 TO 255ã CALL WriteRGB(oldr%(t%), oldg%(t%), oldb%(t%), t%)ãNEXT t%ããSUB DRAW.PLASMA (XS%, YS%, XE%, YE%, REDRAW%, SCALE%)ã 'ã STATIC ITER%ã 'ã IF REDRAW% THEN ITER% = 1: REDRAW% = 0ã IF ITER% = 1 THENã ITER% = 0ã LINE (XS%, YS%)-(XS% + SCALE% - 1, YS% + SCALE% - 1), INT(RND * 63) + 1, BFã LINE (XE%, YS%)-(XE% + SCALE% - 1, YS% + SCALE% - 1), INT(RND * 63) + 1, BFã LINE (XS%, YE%)-(XS% + SCALE% - 1, YE% + SCALE% - 1), INT(RND * 63) + 1, BFã LINE (XE%, YE%)-(XE% + SCALE% - 1, YE% + SCALE% - 1), INT(RND * 63) + 1, BFã END IFã 'ã SIZE% = (XE% - XS%) / 2ã IF SIZE% < SCALE% THEN EXIT SUBã 'ã SIZE% = SIZE% + (INT(RND * 8) - 4)ã 'ã X1% = XS% + (XE% - XS%) / 2ã Y1% = YS% + (YE% - YS%) / 2ã 'ã C1% = POINT(XS%, YS%)' ULã C2% = POINT(XE%, YS%)' URã C3% = POINT(XS%, YE%)' LLã C4% = POINT(XE%, YE%)' LRã 'ã C5% = (C1% + C2%) / 2 ' UL+URã C6% = (C1% + C3%) / 2 ' UL+LLã C7% = (C2% + C4%) / 2 ' UR+LRã C8% = (C3% + C4%) / 2 ' LL+LRã C9% = (C5% + C6% + C7% + C8%) / 4 ' MIDã 'ã C5% = C5% + INT(RND * SIZE%) - (SIZE% / 2)ã C6% = C6% + INT(RND * SIZE%) - (SIZE% / 2)ã C7% = C7% + INT(RND * SIZE%) - (SIZE% / 2)ã C8% = C8% + INT(RND * SIZE%) - (SIZE% / 2)ã C9% = C9% + INT(RND * SIZE%) - (SIZE% / 2)ã 'ã IF C5% < 1 THEN C5% = 1ã IF C6% < 1 THEN C6% = 1ã IF C7% < 1 THEN C7% = 1ã IF C8% < 1 THEN C8% = 1ã IF C9% < 1 THEN C9% = 1ã 'ã IF C5% > 63 THEN C5% = 63ã IF C6% > 63 THEN C6% = 63ã IF C7% > 63 THEN C7% = 63ã IF C8% > 63 THEN C8% = 63ã IF C9% > 63 THEN C9% = 63ã 'ã IF XS% = 0 OR YS% = 0 THENã LINE (XS%, YS%)-(XS% + SCALE% - 1, YS% + SCALE% - 1), C5%, BF' TMã END IFã IF XS% = 0 OR Y1% = 0 THENã LINE (XS%, Y1%)-(XS% + SCALE% - 1, Y1% + SCALE% - 1), C6%, BF' LMã END IFã 'ã IF XE% < 320 AND Y1% < 200 THENã LINE (XE%, Y1%)-(XE% + SCALE% - 1, Y1% + SCALE% - 1), C7%, BF' RMã END IFã IF X1% < 320 AND YE% < 200 THENã LINE (X1%, YE%)-(X1% + SCALE% - 1, YE% + SCALE% - 1), C8%, BF' BMã END IFã IF X1% < 320 AND Y1% < 200 THENã LINE (X1%, Y1%)-(X1% + SCALE% - 1, Y1% + SCALE% - 1), C9%, BF' MIDã END IFã 'ã CALL DRAW.PLASMA(XS%, YS%, X1%, Y1%, REDRAW%, SCALE%)ã CALL DRAW.PLASMA(X1%, YS%, XE%, Y1%, REDRAW%, SCALE%)ã CALL DRAW.PLASMA(XS%, Y1%, X1%, YE%, REDRAW%, SCALE%)ã CALL DRAW.PLASMA(X1%, Y1%, XE%, YE%, REDRAW%, SCALE%)ã 'ãEND SUBããSUB PLASMA (XE%, YE%, SCALE%)ã 'ã CALL DRAW.PLASMA(0, 0, XE%, YE%, 1, SCALE%)ã LINE (0, 0)-(XE% + SCALE% - 1, YS% + SCALE% - 1), 0, BFã LINE (0, 0)-(XS% + SCALE% - 1, YE% + SCALE% - 1), 0, BFã 'ãEND SUBããSUB ReadRGB (red%, grn%, blu%, slot%)ã 'ã OUT &H3C7, slot% ' Read RGB values from slotã 'ã red% = INP(&H3C9)ã grn% = INP(&H3C9)ã blu% = INP(&H3C9)ã 'ãEND SUBããSUB SetPal (start.slot%, end.slot%)ã 'ã num.slots% = end.slot% - start.slot%ã 'ã CALL ReadRGB(sr%, sg%, sb%, start.slot%)ã CALL ReadRGB(er%, eg%, eb%, end.slot%)ã 'ã rr% = ABS(er% - sr%): rg% = ABS(eg% - sg%): rb% = ABS(eb% - sb%)ã rs% = SGN(er% - sr%): gs% = SGN(eg% - sg%): bs% = SGN(eb% - sb%)ã 'ã stepr = (rr% / num.slots%) * rs%ã stepg = (rg% / num.slots%) * gs%ã stepb = (rb% / num.slots%) * bs%ã 'ã r = sr%: g = sg%: b = sb%ã wr% = r: wg% = g: wb% = bã 'ã FOR t% = start.slot% TO end.slot%ã 'ã CALL WriteRGB(wr%, wg%, wb%, t%)ã 'ã r = r + stepr: wr% = rã g = g + stepg: wg% = gã b = b + stepb: wb% = bã 'ã NEXT t%ã 'ãEND SUBããSUB WriteRGB (red%, grn%, blu%, slot%)ã 'ã OUT &H3C8, slot% ' Write RGB values to slotã 'ã OUT &H3C9, red%ã OUT &H3C9, grn%ã OUT &H3C9, blu%ã 'ãEND SUBãAndrew L. Ayers BUFFER TO SCREEN COPY ROUTINE andrewa@indirect.com 08-21-96 (00:00) QB, QBasic, PDS 93 4093 BCOPY.BAS ' Description : BlastCopy! - VGA Mode 13 Buffer to Screen Copy Routineã' Get ready for some rock and roll - this baby's fast!ã' Written by : Andrew L. Ayersã' Date : 08/21/96ã'ã' Ok! Here's one! I am sick of Mode 13h not having a way to PCOPY! So I amã' setting out to remedy it. First, a rather large buffer is created usingã' DIMension. Since the smallest data type we can use is WORD size, and modeã' 13h uses one byte per pixel, and there are 64000 pixels on the screen, weã' need a buffer 32000 WORDs long. Hence, the following:ã'ãDIM buffer%(31999), code1%(29)ã'ã' BTW - buffer%() is the buffer, code%() is an area of memory set aside forã' the copy routine, see below...ã'ã' Now we need a copy routine. BASIC is too damn slow for this amount of work,ã' so I resorted to assembler (all right, some of you! I hear groaning!).ã' Noooooooo! Yes! This works, it isn't hard to understand, just get a goodã' book! I shied away from assembler myself, but was able to pick up enough toã' do this routine in a couple of days. So, anyhow here is the assembler code.ã'ã' Assembler code is as follows:ã'ã' 1E PUSH DS ' Save the Data Segmentã' 55 PUSH BP ' Save the Base Pointerã' 89E5 MOV BP,SP ' Get the Stack Pointerã' 8B460A MOV AX,[BP+0A] ' Let AX=Buffer Segment Addressã' 8ED8 MOV DS,AX ' Set the Data Segment=AXã' 8B7608 MOV SI,[BP+08] ' Let Source Index(SI)=Buffer Offsetã' B800A0 MOV AX,A000 ' Set AX=Start of Video (13h)ã' 8EC0 MOV ES,AX ' Set the Extra Segmentã' BF0000 MOV DI,0000 ' Set the Destination Index to 0ã' B9007D MOV CX,7D00 ' Number of words to copy (32000)ã' F3A5 REP MOVSW ' Move the words!ã' 5D POP BP ' Reset the Base Pointerã' 1F POP DS ' Reset the Data Segmentã' CA0400 RETF 0004 ' Return to BASIC Program, clean upã' stack...ã'ã' I know, I know. Some of you assembler freaks out there can see some waysã' of speeding it up, such as using LDS and LES, or even using the fasterã' double WORD copy (on 386-486). Well, I used DEBUG, and I was learning, soã' this is what you get. Speed it up if you want!ã'ã' And here it is encoded as HEX in a string for us to use...ã'ãcode1$ = "1E5589E58B460A8ED88B7608B800A08EC0BF0000B9007DF3A55D1FCA0400"ã'ã' Where did I get the HEX codes? Using DEBUG! DEBUG is what is known as aã' monitor. It allows you to change/create machine code directly, without anã' assembler. It isn't hard to learn. Just pick up a copy of PC Magazine'sã' DOS books - it will show you how to use it. They also have one for BASIC,ã' which shows assembler stuff. I used DEBUG instead of MASM, because of twoã' reasons: 1) I don't have MASM, 2) MASM costs too much. Fortunately, thereã' are shareware assemblers out there, but since DEBUG comes with DOS, whyã' not try it?ã'ã' Now we poke the code into the memory reserved for it:ã'ãDEF SEG = VARSEG(code1%(0))ã'ãFOR i% = 0 TO 29ã d% = VAL("&h" + MID$(code1$, i% * 2 + 1, 2))ã POKE VARPTR(code1%(0)) + i%, d%ãNEXT i%ã'ã' This sets the buffer to "pretty" colorsã' Some form of assembler is needed here to speed this up - perhaps a newã' kind of GET/PUT style routine...Hmm...ã'ãFOR t% = 0 TO 31999ã buffer%(t%) = t%ãNEXT t%ã'ã' Gee... What does this line do?...ã'ãSCREEN 13ã'ã' Wait for user inputã'ãLOCATE 1, 1: PRINT "Press any key to clear...";ãkey$ = INPUT$(1)ã'ã' Call our routine - MUST pass segment and offset of buffer using BYVAL,ã' otherwise you'll get the addresses only - not good...ã'ãDEF SEG = VARSEG(code1%(0))ãCALL ABSOLUTE(BYVAL VARSEG(buffer%(0)), BYVAL VARPTR(buffer%(0)), VARPTR(code1%(0)))ãDEF SEGã'ã' As always, you may use this code for whatever you want, just give meã' credit where you can. Thanx, and have phun!ãKurt Kuzba USING GET & PUT FidoNet QUIK_BAS Echo 08-02-96 (14:43) QB, QBasic, PDS 32 1835 GET&PUT.BAS '> Can any one help me with the statements GET adn PUT? Inã'> screen mode 13? Does anyone know how to display a spriteã'> that is made with Sprite Editor and is appended into aã'> QBasic program using the DATA statement? What it does isã'> put a sprite that you draw in Sprite Editor in QBasic usingã'> DATA statements?? I don't get it???ã'>.....................................ã' GET and PUT in mode 13 is simple. You can actually work withã'the data in your array, unlike with mode 12. I have yet to makeã'heads or tails of the array data arrived at with the GET in 12.ã'You require one byte for each pixel, plus four bytes to hold theã'block format data, which is two integer values, one for the width,ã'and one for the height, of the graphical block. Try this:ãSCREEN 13ãDIM BUF(602) AS INTEGER '(40x30 + 4 bytes for format data) / 2ãBUF(0) = 320 'set block width (in BITS!) 40 * 8ãBUF(1) = 30 'set block heightãDEF SEG = VARSEG(BUF(0)): O& = VARPTR(BUF(0)) + 4ã 'set segment to directly manipulate BUFãDOã Colour% = RND * 255ã FOR T& = O& TO O& + 1199: POKE T&, Colour%: NEXTã 'set BUF contents to another color at randomã X% = RND * 279: Y% = RND * 169 'Pick a random screen location.ã IF (Colour% AND 1) <> 0 THEN 'This IF/THEN/ELSE is just forã PUT (X%, Y%), BUF, PSET 'fun, alternating between theã ELSE 'absolute PSET usage and theã PUT (X%, Y%), BUF, XOR 'XOR, combining present imageã END IF 'with the imposed image. Itã IF INKEY$ <> "" THEN EXIT DO 'makes the display just a bitãLOOP 'more interesting to watchãSCREEN 0: WIDTH 80, 25: END 'go back to 80x25 text and end.ãJonathan Leger GRAPHICS LOADER leger@mail.dtx.net 08-12-96 (21:48) QB, QBasic, PDS 935 26247 FX2.BAS '----------------------------------------------------------ã' Requires Luke Molnar's ULTIMATE FONT V1.1ã' Please refer to GRAPHICS.ABC of the July 1996 Editionã'----------------------------------------------------------ããDEFINT A-Zãã'**** Screen routinesãDECLARE SUB LoadGif (file$)ãDECLARE SUB LoadPcx (file$)ãDECLARE SUB BsaveScreen (file$)ãDECLARE SUB GiftoBSAVE (gif$, bsave$, pal$)ãã'*** Palette routinesãDECLARE SUB GetPal (pal())ãDECLARE SUB PutPal (pal())ãDECLARE SUB SavePal (file$)ãDECLARE SUB LoadPal (file$)ãDECLARE SUB RotatePal (direction, pal())ãDECLARE SUB CyclePal (direction, pal(), numcycles)ãã'*** Palette fxãDECLARE SUB FadeOut (pal())ãDECLARE SUB FadeIn (pal())ãDECLARE SUB BlackOut ()ãã'*** Drawing RoutinesãDECLARE SUB ClrScr (col)ãã'*** Font routinesãDECLARE SUB Font (Text$, XStart, Ystart, Xscale, Yscale, Style, clr)ãDECLARE SUB LoadFont ()ãDECLARE SUB MakeFont ()ãDECLARE SUB FontPal ()ãã'*** EMS routinesãDECLARE FUNCTION NumEMSHandles% ()ãDECLARE FUNCTION NumEMSPages% (Handle%)ãDECLARE FUNCTION GetEMS% (numpages%)ãDECLARE FUNCTION EMSPages% (func%)ãDECLARE FUNCTION PageFrame% ()ãDECLARE FUNCTION EMSstatus% ()ãDECLARE SUB ReleaseEMS (Handle%)ãDECLARE SUB MapEMS (Handle%, block%)ãã'*** Memory manipulation routinesãDECLARE SUB MemCopy (fromseg, fromoff, toseg, tooff, numbytes)ãDECLARE SUB FillChar (segment, offset, value, bytes)ãã'*** MiscelaneousãDECLARE SUB WaitRetrace ()ããOPTION BASE 0ãã'$STATICãDIM pal1(0 TO 255, 3) AS INTEGERãDIM pal2(0 TO 255, 3) AS INTEGERãDIM SHARED FontBuf(0) AS STRING * 10368ãã'$DYNAMICããLoadFontããSCREEN 13ããGetPal pal1()ããFontPalãGetPal pal2()ãBlackOutããFont "BASIC FX", 50, 75, 3, 3, 3, 70ãFadeIn pal2()ããWHILE INKEY$ = "": WENDãFadeOut pal2()ãCLSããFont "The font routines were written by:", 0, 0, 1, 1, 3, 120ãFont "Luke Molnar", 70, 25, 2, 2, 3, 1ãFont "Other routines written/collected by:", 0, 100, 1, 1, 3, 120ãFont "Jonathan Leger", 40, 125, 2, 2, 3, 1ããFadeIn pal2()ããWHILE INKEY$ = "": WENDããFadeOut pal2()ãCLSããPutPal pal1()ããFont "LoadGif()", 115, 100, 1, 1, 5, 15ãFont "press a key", 105, 125, 1, 1, 5, 15ãWHILE INKEY$ = "": WENDããLoadGif "letterma.gif"ãFOR snd = 1000 TO 1500 STEP 100ã SOUND snd, .1ã SOUND snd + 100, .1ã SOUND snd + 200, .1ãNEXT sndããWHILE INKEY$ = "": WENDããCLSãPutPal pal1()ããFont "LoadPcx()", 115, 100, 1, 1, 5, 15ãFont "press a key", 105, 125, 1, 1, 5, 15ãWHILE INKEY$ = "": WENDããLoadPcx "bwface.pcx"ãFOR snd = 1000 TO 1500 STEP 100ã SOUND snd, .1ã SOUND snd + 100, .1ã SOUND snd + 200, .1ãNEXT sndããWHILE INKEY$ = "": WENDããIF EMSstatus THENã IF EMSPages(1) >= 4 THENã PCXHandle = GetEMS(4)ã MapEMS PCXHandle, 0ã MemCopy &HA000, 0, PageFrame, 0, &HFA00ã CLSã Font "The previous picture has been", 0, 0, 1, 1, 5, 15ã Font "loaded into EMS memory.", 0, 25, 1, 1, 5, 15ã Font "Press any key to load picture.", 0, 50, 1, 1, 5, 15ã WHILE INKEY$ = "": WENDã MemCopy PageFrame, 0, &HA000, 0, &HFA00ã WHILE INKEY$ = "": WENDã ReleaseEMS PCXHandleã END IFãEND IFããGetPal pal2()ããFont "CyclePal()", 115, 100, 1, 1, 5, 15ããDO UNTIL LEN(INKEY$) > 0ã CyclePal 1, pal2(), 1ãLOOPããBlackOutãCLSããFontPalãGetPal pal2()ãBlackOutããFont "End of..", 0, 25, 1, 1, 5, 18ãFont "BASIC FX", 50, 75, 3, 3, 3, 70ãFont "...Demo", 240, 145, 1, 1, 5, 18ãFadeIn pal2()ããWHILE INKEY$ = "": WENDãFadeOut pal2()ãCLSãPutPal pal1()ããSCREEN 0ãWIDTH 80, 25ãENDããREM $STATICãSUB BlackOutãã FOR clr = 0 TO 255ã OUT &H3C8, clrã OUT &H3C9, 0ã OUT &H3C9, 0ã OUT &H3C9, 0ã NEXT clrããEND SUBããSUB BsaveScreen (file$)ããDEF SEG = &HA000ãBSAVE file$, 0, 64000ãDEF SEGããEND SUBããSUB ClrScr (col)ããFillChar &HA000, 0, col, &HFA00ããEND SUBããSUB CyclePal (direction, pal(), numcycles)ããFOR x = 1 TO numcyclesã WaitRetraceã RotatePal direction, pal()ãNEXT xããEND SUBãã'************* EMSPages%() ****************ã'*** When func% is 0, returns the total ***ã'*** number of 16k pages, when func% is ***ã'*** 1, returns the number of available ***ã'*** 16k pages. ***ã'******************************************ãFUNCTION EMSPages% (func%)ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(180)ãasm$ = asm$ + CHR$(66) + CHR$(205) + CHR$(103) + CHR$(139) + CHR$(126)ãasm$ = asm$ + CHR$(6) + CHR$(137) + CHR$(29) + CHR$(139) + CHR$(126)ãasm$ = asm$ + CHR$(8) + CHR$(137) + CHR$(21) + CHR$(93) + CHR$(203)ããTotalPages% = 0: AvailablePages% = 0ããDEF SEG = VARSEG(asm$)ã CALL Absolute(TotalPages%, AvailablePages%, SADD(asm$))ãDEF SEGããIF func% = 0 THENã EMSPages% = TotalPages%ãELSEã EMSPages% = AvailablePages%ãEND IFããEND FUNCTIONãã'**************** EMSstatus%() ******************ã'*** Returns whether EMS is available. -1 is ***ã'*** returned if it is available, 0 otherwise ***ã'************************************************ãFUNCTION EMSstatus%ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(180)ãasm$ = asm$ + CHR$(64) + CHR$(205) + CHR$(103) + CHR$(176) + CHR$(0)ãasm$ = asm$ + CHR$(139) + CHR$(94) + CHR$(6) + CHR$(137) + CHR$(7)ãasm$ = asm$ + CHR$(93) + CHR$(203)ããEMS% = -1ãDEF SEG = VARSEG(asm$)ã CALL Absolute(EMS%, SADD(asm$))ãDEF SEGããIF EMS% = 0 THENã EMSstatus = -1 'EMS installed, set to BASIC's TRUE value.ãELSEã EMSstatus = 0 'EMS not installed, set to FALSE.ãEND IFããEND FUNCTIONããSUB FadeIn (pal())ããDIM Tmp(0 TO 255, 3)ããFOR lp = 1 TO 64ã FOR clr = 0 TO 255ã FOR rgb = 1 TO 3ã IF Tmp(clr, rgb) < pal(clr, rgb) THENã Tmp(clr, rgb) = Tmp(clr, rgb) + 1ã END IFã NEXT rgbã OUT &H3C8, clrã OUT &H3C9, Tmp(clr, 1)ã OUT &H3C9, Tmp(clr, 2)ã OUT &H3C9, Tmp(clr, 3)ã NEXT clrãNEXT lpãããEND SUBããSUB FadeOut (pal())ããDIM Tmp(0 TO 255, 3)ããFOR clr = 0 TO 255ã FOR rgb = 1 TO 3ã Tmp(clr, rgb) = pal(clr, rgb)ã NEXT rgbãNEXT clrããFOR lp = 1 TO 64ã FOR clr = 0 TO 255ã FOR rgb = 1 TO 3ã IF Tmp(clr, rgb) > 0 THENã Tmp(clr, rgb) = Tmp(clr, rgb) - 1ã END IFã NEXT rgbã OUT &H3C8, clrã OUT &H3C9, Tmp(clr, 1)ã OUT &H3C9, Tmp(clr, 2)ã OUT &H3C9, Tmp(clr, 3)ã NEXT clrãNEXT lpãããEND SUBããSUB FillChar (segment, offset, value, bytes)ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(139)ãasm$ = asm$ + CHR$(78) + CHR$(6) + CHR$(139) + CHR$(86) + CHR$(8)ãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(12) + CHR$(30) + CHR$(142)ãasm$ = asm$ + CHR$(216) + CHR$(139) + CHR$(94) + CHR$(10) + CHR$(136)ãasm$ = asm$ + CHR$(23) + CHR$(67) + CHR$(226) + CHR$(251) + CHR$(31)ãasm$ = asm$ + CHR$(93) + CHR$(203)ããDEF SEG = VARSEG(asm$)ã CALL Absolute(BYVAL segment, BYVAL offset, BYVAL value, BYVAL bytes, SADD(asm$))ãDEF SEGããEND SUBããSUB Font (Text$, XStart, Ystart, Xscale, Yscale, Style, clr)ããpx = XStart ' physical x and physical yãpy = YstartããLHeight = Yscale * 8ãOptimize = 63 \ LHeight ' Any constant math operations done multipe timesã ' in the main loop should, well, not be doneã ' in the main loop.ããã' Instead of wasting our time with all this MID$ garbage to access bytes inã' font buffer, we'll just take a PEEK directly at them.ãDEF SEG = VARSEG(FontBuf(0))ãã FOR h = 1 TO LEN(Text$)ã FPtr = 81 * (ASC(MID$(Text$, h, 1)) - 1) - 1ã FOR x = 0 TO 8ã FOR y = 0 TO 8ãã col = PEEK(VARPTR(FontBuf(0)) + FPtr)ã FPtr = FPtr + 1ã IF col THENã SELECT CASE Styleã ' If you desire a y scale factor greater than 8, youã ' must change the division to higher precision...very slow.ã ' Or, you could find a way around it.ã CASE 1: PSET (px, py), Optimize * (py - Ystart) + clrã LINE (px, py)-(px, py + Yscale), Optimize * (py - Ystart) + clrã ' Notice how this style only uses 54 colors, so you can see the topã ' of the letters where they would normally be blackã CASE 2: CIRCLE (px, py), Yscale, (54 \ LHeight) * (py - Ystart) + clr + 9, , , 4ã CASE 3: FOR sty = px TO px + Xscaleã FOR sty2 = py TO py + Yscaleã PSET (sty, sty2), Optimize * (sty2 - Ystart) + clrã IF POINT(sty - 1, sty2) = 0 THEN PSET (sty - 1, sty2), 63 + clr - 1ã IF POINT(sty, sty2 - 1) = 0 THEN PSET (sty, sty2 - 1), 63 + clr - 1ã NEXTã NEXTã CASE 4: FOR sty = px TO px + Xscaleã FOR sty2 = py TO py + Yscaleã PSET (sty + .4 * sty2, sty2), Optimize * (sty2 - Ystart) + clrã IF POINT((sty - 1) + .4 * sty2, sty2) = 0 THEN PSET ((sty - 1) + .4 * sty2, sty2), 63 + clr - 1ã NEXTã NEXTã CASE ELSEã PSET (px, py), clrã END SELECTã END IFã py = py + Yscaleã NEXTã px = px + Xscaleã py = Ystartã NEXTã NEXT hãDEF SEGããEND SUBããSUB FontPalãFOR x = 1 TO 63ã OUT &H3C8, xã OUT &H3C9, xã OUT &H3C9, 0ã OUT &H3C9, 0ãNEXTãFOR x = 64 TO 126ã OUT &H3C8, xã OUT &H3C9, 0ã OUT &H3C9, xã OUT &H3C9, 0ãNEXTãFOR x = 127 TO 189ã OUT &H3C8, xã OUT &H3C9, 0ã OUT &H3C9, 0ã OUT &H3C9, xãNEXTãFOR x = 190 TO 252ã OUT &H3C8, xã OUT &H3C9, xã OUT &H3C9, 0ã OUT &H3C9, xãNEXTãFOR x = 253 TO 255ã OUT &H3C8, xã OUT &H3C9, xã OUT &H3C9, xã OUT &H3C9, xãNEXTãEND SUBãã'********************** GetEMS%() ********************ã'*** Function returns the handle value for a block ***ã'*** of EMS memory that consists of numpages% 16k ***ã'*** pages. You _must_ keep the handle value for ***ã'*** later calls that require the handle. Example:***ã'*** ***ã'*** EmsHandle% = GetEMS%(5) ***ã'*** ***ã'*** EmsHandle% holds the handle info for a block ***ã'*** of memory 5 16k pages in size, oh 80k. ***ã'*****************************************************ãFUNCTION GetEMS% (numpages%)ãã'pageoffset% = EMSPages%(0) - EMSPages%(1)ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(139)ãasm$ = asm$ + CHR$(94) + CHR$(8) + CHR$(180) + CHR$(67) + CHR$(205)ãasm$ = asm$ + CHR$(103) + CHR$(139) + CHR$(94) + CHR$(6) + CHR$(137)ãasm$ = asm$ + CHR$(23) + CHR$(93) + CHR$(203)ããHandle% = 0ãDEF SEG = VARSEG(asm$)ã CALL Absolute(BYVAL numpages%, Handle%, SADD(asm$))ãDEF SEGãã'asm$ = ""ã'asm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(139)ã'asm$ = asm$ + CHR$(86) + CHR$(8) + CHR$(139) + CHR$(126) + CHR$(6)ã'asm$ = asm$ + CHR$(139) + CHR$(118) + CHR$(10) + CHR$(177) + CHR$(0)ã'asm$ = asm$ + CHR$(48) + CHR$(237) + CHR$(180) + CHR$(68) + CHR$(136)ã'asm$ = asm$ + CHR$(200) + CHR$(137) + CHR$(243) + CHR$(205) + CHR$(103)ã'asm$ = asm$ + CHR$(70) + CHR$(65) + CHR$(57) + CHR$(254) + CHR$(117)ã'asm$ = asm$ + CHR$(242) + CHR$(93) + CHR$(203)ã'ã'DEF SEG = VARSEG(asm$)ã' CALL Absolute(BYVAL pageoffset%, BYVAL Handle%, BYVAL numpages%, SADD(asm$))ã'DEF SEGããGetEMS% = Handle%ããEND FUNCTIONããSUB GetPal (pal())ã FOR clr = 0 TO 255ã OUT &H3C7, clrã pal(clr, 1) = INP(&H3C9)ã pal(clr, 2) = INP(&H3C9)ã pal(clr, 3) = INP(&H3C9)ã NEXT clrãEND SUBããSUB GiftoBSAVE (gif$, bsave$, pal$)ããLoadGif gif$ãBsaveScreen bsave$ãSavePal pal$ããEND SUBããSUB LoadFontãã fontfile = FREEFILEãã OPEN "basefont.dat" FOR BINARY AS #fontfileã GET #fontfile, , FontBuf(0)ã CLOSE #fontfileããEND SUBããSUB LoadGif (file$)ãDIM byte AS STRING * 1ãDIM Prefix(4095), Suffix(4095), OutStack(4095), shiftout(8)ãDIM Ybase AS LONG, powersof2(11) AS LONG, WorkCode AS LONGããFOR a = 0 TO 7: shiftout(8 - a) = 2 ^ a: NEXT aãFOR a = 0 TO 11: powersof2(a) = 2 ^ a: NEXT aããgiffile = FREEFILEãOPEN file$ FOR BINARY AS #giffileãfile$ = " ": GET #giffile, , file$ãIF file$ <> "GIF87a" THEN PRINT "Not a GIF87a file.": ENDãGET #giffile, , TotalX: GET #giffile, , TotalY: GOSUB GetByteãNumColors = 2 ^ ((a AND 7) + 1): NoPalette = (a AND 128) = 0ãGOSUB GetByte: Background = aãGOSUB GetByte: IF a <> 0 THEN PRINT "Bad screen descriptor.": ENDãIF NoPalette = 0 THEN P$ = SPACE$(NumColors * 3): GET #giffile, , P$ãDOã GOSUB GetByteã IF a = 44 THENã EXIT DOã ELSEIF a <> 33 THENã PRINT "Unknown extension type.": ENDã END IFã GOSUB GetByteã DO: GOSUB GetByte: file$ = SPACE$(a): GET #giffile, , file$: LOOP UNTIL a = 0ãLOOPãGET #giffile, , XStart: GET #giffile, , Ystart: GET #giffile, , XLength: GET #giffile, , YLengthãXEnd = XStart + XLength: YEnd = Ystart + YLength: GOSUB GetByteãIF a AND 128 THEN PRINT "Can't handle local colormaps.": ENDãInterlaced = a AND 64: PassNumber = 0: PassStep = 8ãGOSUB GetByteãClearCode = 2 ^ aãEOSCode = ClearCode + 1ãFirstCode = ClearCode + 2: NextCode = FirstCodeãStartCodeSize = a + 1: CodeSize = StartCodeSizeãStartMaxCode = 2 ^ (a + 1) - 1: MaxCode = StartMaxCodeããBitsIn = 0: BlockSize = 0: BlockPointer = 1ãx = XStart: y = Ystart: Ybase = y * 320&ããDEF SEG = &HA000ããIF NoPalette = 0 THENã OUT &H3C7, 0: OUT &H3C8, 0ã FOR a = 1 TO NumColors * 3: OUT &H3C9, ASC(MID$(P$, a, 1)) \ 4: NEXT aãEND IFããLINE (0, 0)-(319, 199), Background, BFããDOã GOSUB GetCodeã IF Code <> EOSCode THENã IF Code = ClearCode THENã NextCode = FirstCodeã CodeSize = StartCodeSizeã MaxCode = StartMaxCodeã GOSUB GetCodeã CurCode = Code: LastCode = Code: LastPixel = Codeã IF x < 320 THEN POKE x + Ybase, LastPixelã x = x + 1: IF x = XEnd THEN GOSUB NextScanLineã ELSEã CurCode = Code: StackPointer = 0ã IF Code > NextCode THEN EXIT DOã IF Code = NextCode THENã CurCode = LastCodeã OutStack(StackPointer) = LastPixelã StackPointer = StackPointer + 1ã END IFãã DO WHILE CurCode >= FirstCodeã OutStack(StackPointer) = Suffix(CurCode)ã StackPointer = StackPointer + 1ã CurCode = Prefix(CurCode)ã LOOPãã LastPixel = CurCodeã IF x < 320 THEN POKE x + Ybase, LastPixelã x = x + 1: IF x = XEnd THEN GOSUB NextScanLineãã FOR a = StackPointer - 1 TO 0 STEP -1ã IF x < 320 THEN POKE x + Ybase, OutStack(a)ã x = x + 1: IF x = XEnd THEN GOSUB NextScanLineã NEXT aãã IF NextCode < 4096 THENã Prefix(NextCode) = LastCodeã Suffix(NextCode) = LastPixelã NextCode = NextCode + 1ã IF NextCode > MaxCode AND CodeSize < 12 THENã CodeSize = CodeSize + 1ã MaxCode = MaxCode * 2 + 1ã END IFã END IFã LastCode = Codeã END IFã END IFãLOOP UNTIL DoneFlag OR Code = EOSCodeãGOTO LeaveProcããGetByte: file$ = " ": GET #giffile, , file$: a = ASC(file$): RETURNããNextScanLine:ã IF Interlaced THENã y = y + PassStepã IF y >= YEnd THENã PassNumber = PassNumber + 1ã SELECT CASE PassNumberã CASE 1: y = 4: PassStep = 8ã CASE 2: y = 2: PassStep = 4ã CASE 3: y = 1: PassStep = 2ã END SELECTã END IFã ELSEã y = y + 1ã END IFã x = XStart: Ybase = y * 320&: DoneFlag = y > 199ãRETURNãGetCode:ã IF BitsIn = 0 THEN GOSUB ReadBufferedByte: LastChar = a: BitsIn = 8ã WorkCode = LastChar \ shiftout(BitsIn)ã DO WHILE CodeSize > BitsInã GOSUB ReadBufferedByte: LastChar = aã WorkCode = WorkCode OR LastChar * powersof2(BitsIn)ã BitsIn = BitsIn + 8ã LOOPã BitsIn = BitsIn - CodeSizeã Code = WorkCode AND MaxCodeãRETURNãReadBufferedByte:ã IF BlockPointer > BlockSize THENã GOSUB GetByte: BlockSize = aã file$ = SPACE$(BlockSize): GET #giffile, , file$ã BlockPointer = 1ã END IFã a = ASC(MID$(file$, BlockPointer, 1)): BlockPointer = BlockPointer + 1ãRETURNãLeaveProc:ãCLOSEããEND SUBããSUB LoadPal (file$)ããpalfile = FREEFILEãOPEN file$ FOR BINARY AS palfileããFOR clr = 0 TO 255ã OUT &H3C8, clrã OUT &H3C9, ASC(INPUT$(1, palfile))ã OUT &H3C9, ASC(INPUT$(1, palfile))ã OUT &H3C9, ASC(INPUT$(1, palfile))ãNEXT clrããCLOSE palfileããEND SUBããSUB LoadPcx (file$)ãpcxfile = FREEFILEãOPEN file$ FOR BINARY AS pcxfileããDEF SEG = &HA000ã ã SEEK #pcxfile, LOF(1) - 767ã FOR pal = 0 TO 255ã OUT &H3C8, palã rgb% = ASC(INPUT$(1, pcxfile))ã OUT &H3C9, rgb% / 4ã rgb% = ASC(INPUT$(1, pcxfile))ã OUT &H3C9, rgb% / 4ã rgb% = ASC(INPUT$(1, pcxfile))ã OUT &H3C9, rgb% / 4ã NEXT palã SEEK #pcxfile, 129ã c = 0ã WHILE c < 32000ã clr = ASC(INPUT$(1, pcxfile))ã IF clr > 192 AND clr <= 255 THENã LPS = clr - 192ã clr = ASC(INPUT$(1, pcxfile))ã FOR L = LPS TO 1 STEP -1ã POKE c, clrã c = c + 1ã LPS = LPS - 1ã NEXT Lã ELSEã POKE c, clrã c = c + 1ã END IFã WENDã c = 0ã DEF SEG = &HA7D0ã WHILE c < 32000ã clr = ASC(INPUT$(1, pcxfile))ã IF clr > 192 AND clr <= 255 THENã LPS = clr - 192ã clr = ASC(INPUT$(1, pcxfile))ã FOR L = LPS TO 1 STEP -1ã POKE c, clrã c = c + 1ã LPS = LPS - 1ã NEXT Lã ELSEã POKE c, clrã c = c + 1ã END IFã WENDãCLOSEãDEF SEGããEND SUBããSUB MakeFontããfontfile = FREEFILEããOPEN "basefont.dat" FOR BINARY AS #giffileã' Hey, change 128 to 255 for the full font.ãCLSãSCREEN 13ãCOLOR 16ãFOR ascii = 1 TO 128ã CLSã PRINT CHR$(ascii)ã FOR x = 0 TO 8ã FOR y = 0 TO 8ã pnt$ = CHR$(POINT(x, y))ã PUT #giffile, , pnt$ã pnt$ = ""ã NEXTã NEXTãNEXTãCLOSEãOPEN "basefont.dat" FOR BINARY AS #giffileã GET #giffile, , FontBuf(0)ãCLOSE #giffileãEND SUBãã'***************** MapEMS () ***********************************ã'*** Sets the page of a memory block (identified by Handle%) ***ã'*** that is located at the beginning of the page frame. ***ã'*** Example: ***ã'*** ***ã'*** EmsHandle% = GetEMS%(8) ***ã'*** MapEMS EmsHandle%, 4 ***ã'*** ***ã'*** When the page frame segment is next written to, the info***ã'*** will be placed starting at the 4th page in the block of ***ã'*** memory represented by EmsHandle%. This could be use, ***ã'*** for instance, to store multiple SCREEN 13 images in one ***ã'*** EMS block, by moving the first 64k image into the first ***ã'*** 4 16k pages (16000 * 4 = 64000) by using: ***ã'*** ***ã'*** MapEMS EmsHandle%, 0 ***ã'*** ***ã'*** And then putting the next 64k image into the next 4 EMS ***ã'*** pages by using: ***ã'*** ***ã'*** MapEMS EmsHandle%, 4 ***ã'*** ***ã'*** ... and then moving the image into the memory block. ***ã'***************************************************************ãSUB MapEMS (Handle%, pageoffset%)ããnumpages% = 4ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(139)ãasm$ = asm$ + CHR$(86) + CHR$(8) + CHR$(139) + CHR$(126) + CHR$(6)ãasm$ = asm$ + CHR$(139) + CHR$(118) + CHR$(10) + CHR$(177) + CHR$(0)ãasm$ = asm$ + CHR$(48) + CHR$(237) + CHR$(180) + CHR$(68) + CHR$(136)ãasm$ = asm$ + CHR$(200) + CHR$(137) + CHR$(243) + CHR$(205) + CHR$(103)ãasm$ = asm$ + CHR$(70) + CHR$(65) + CHR$(57) + CHR$(249) + CHR$(117)ãasm$ = asm$ + CHR$(242) + CHR$(93) + CHR$(203)ããDEF SEG = VARSEG(asm$)ã CALL Absolute(BYVAL pageoffset%, BYVAL Handle%, BYVAL numpages%, SADD(asm$))ãDEF SEGããEND SUBããSUB MemCopy (fromseg, fromoff, toseg, tooff, bytes)ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(30)ãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(10) + CHR$(142) + CHR$(192)ãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(14) + CHR$(142) + CHR$(216)ãasm$ = asm$ + CHR$(139) + CHR$(118) + CHR$(8) + CHR$(139) + CHR$(126)ãasm$ = asm$ + CHR$(12) + CHR$(139) + CHR$(78) + CHR$(6) + CHR$(243)ãasm$ = asm$ + CHR$(164) + CHR$(31) + CHR$(93) + CHR$(203)ããDEF SEG = VARSEG(asm$)ã CALL Absolute(BYVAL fromseg, BYVAL fromoff, BYVAL toseg, BYVAL tooff, BYVAL bytes, SADD(asm$))ãDEF SEGããEND SUBãã'****************************** NumEMSHandles%() *********************ã'*** Returns the number of EMS handles presently being used (there ***ã'*** are a maximum of 256 handles possible at any given time). ***ã'*********************************************************************ãFUNCTION NumEMSHandles%ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(180)ãasm$ = asm$ + CHR$(75) + CHR$(205) + CHR$(103) + CHR$(139) + CHR$(126)ãasm$ = asm$ + CHR$(6) + CHR$(137) + CHR$(29) + CHR$(93) + CHR$(203)ããNumHandles% = 0ãDEF SEG = VARSEG(asm$)ã CALL Absolute(NumHandles%, SADD(asm$))ãDEF SEGããNumEMSHandles% = NumHandles%ããEND FUNCTIONãã'***************************** NumEMSPages%() *************************ã'*** Returns the number of 16k pages being used by the memory block ***ã'*** that is represented by Handle%. ***ã'**********************************************************************ãFUNCTION NumEMSPages% (Handle%)ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(139)ãasm$ = asm$ + CHR$(86) + CHR$(6) + CHR$(180) + CHR$(76) + CHR$(205)ãasm$ = asm$ + CHR$(103) + CHR$(139) + CHR$(126) + CHR$(8) + CHR$(137)ãasm$ = asm$ + CHR$(29) + CHR$(93) + CHR$(203)ããDEF SEG = VARSEG(asm$)ã CALL Absolute(numpages%, Handle%, SADD(asm$))ãDEF SEGããNumEMSPages% = numpages%ããEND FUNCTIONãã'******************************* PageFrame% ***************************ã'*** Returns the segment that you will need to write to in order to ***ã'*** store your data into EMS memory. For example, PageFrame% may ***ã'*** return D000 (HEX, -12288 decimal), and then you might do this: ***ã'*** ***ã'*** DEF SEG = PageFrame% 'D000 ***ã'*** MyData$ = "This is a block of data I want to store in EMS." ***ã'*** FOR X = 1 TO LEN(MyData$) ***ã'*** POKE X, ASC(MID$(MyData$, X, 1)) ***ã'*** NEXT X ***ã'*** DEF SEG ***ã'*** ***ã'*** Note, though, that you have to have a block of EMS opened with ***ã'*** GetEMS%() and maped with MapEMS before you can write to the ***ã'*** block. ***ã'**********************************************************************ãFUNCTION PageFrame%ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(180)ãasm$ = asm$ + CHR$(65) + CHR$(205) + CHR$(103) + CHR$(139) + CHR$(126)ãasm$ = asm$ + CHR$(6) + CHR$(137) + CHR$(29) + CHR$(93) + CHR$(203)ããPageFrameAddr% = 0ãDEF SEG = VARSEG(asm$)ã CALL Absolute(PageFrameAddr%, SADD(asm$))ãDEF SEGããPageFrame% = PageFrameAddr%ããEND FUNCTIONããSUB PutPal (pal())ã ã FOR clr = 0 TO 255ã OUT &H3C8, clrã OUT &H3C9, pal(clr, 1)ã OUT &H3C9, pal(clr, 2)ã OUT &H3C9, pal(clr, 3)ã NEXT clrããEND SUBãã'****************************** ReleaseEMS() **************************ã'*** Releases the EMS memory associated with Handle%. This is very ***ã'*** important to do before you exit your program, otherwise the ***ã'*** memory being used by your open handles will not be available ***ã'*** again until you reboot. ***ã'**********************************************************************ãSUB ReleaseEMS (Handle%)ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(180)ãasm$ = asm$ + CHR$(69) + CHR$(139) + CHR$(86) + CHR$(6) + CHR$(205)ãasm$ = asm$ + CHR$(103) + CHR$(93) + CHR$(203)ããDEF SEG = VARSEG(asm$)ã CALL Absolute(BYVAL Handle%, SADD(asm$))ãDEF SEGããEND SUBããSUB RotatePal (direction, pal())ãã SELECT CASE directionã CASE 1ã temp1 = pal(255, 1)ã temp2 = pal(255, 2)ã temp3 = pal(255, 3)ã FOR rgb = 1 TO 3ã FOR col = 254 TO 0 STEP -1ã pal(col + 1, rgb) = pal(col, rgb)ã NEXT colã NEXT rgbã pal(0, 1) = temp1ã pal(0, 2) = temp2ã pal(0, 3) = temp3ã CASE -1ã temp1 = pal(0, 1)ã temp2 = pal(0, 2)ã temp3 = pal(0, 3)ã FOR rgb = 1 TO 3ã FOR col = 0 TO 254ã pal(col, rgb) = pal(col + 1, rgb)ã NEXT colã NEXT rgbã pal(255, 1) = temp1ã pal(255, 2) = temp2ã pal(255, 3) = temp3ã END SELECTãã PutPal pal()ããEND SUBããSUB SavePal (file$)ãã palfile = FREEFILEã OPEN file$ FOR OUTPUT AS palfileãã FOR clr = 0 TO 255ã OUT &H3C7, clrã PRINT #palfile, CHR$(INP(&H3C9));ã PRINT #palfile, CHR$(INP(&H3C9));ã PRINT #palfile, CHR$(INP(&H3C9));ã NEXT clrãã CLOSE palfileããEND SUBããSUB SetPal (pal())ãEND SUBããSUB WaitRetraceã WAIT &H3DA, 8ãEND SUBãBrent P. Newhall 2D POLYGON ENGINE comp.lang.basic.misc 08-22-96 (11:30) QB, QBasic, PDS 223 5653 2DPOLY.BAS 'This is a C-to-BASIC conversion from Andre LaMothe's book "Teachã'Yourself Game Programming in 21 Days". It's a simple demo with threeã'asteroids twirling on the screen and a scrolling starfield in theã'background.ãã'If you have need, take it and use it. There are enough SUBs to do mostã'of what you should need to do.ãã' Polygonã' by Brent P. Newhall (BrentN@juno.com)ããDEFINT A-ZããCONST FALSE = 0, TRUE = NOT FALSEãCONST MAX.VERTICES = 15ãCONST MAX.STARS = 30ããTYPE VertexTypeã x AS SINGLEã y AS SINGLEãEND TYPEãTYPE PolygonTypeã border AS INTEGER ' Border colorã interior AS INTEGER ' Interior colorã closed AS INTEGER ' Is the polygon closed?ã filled AS INTEGER ' Is the polygon filled?ã lxo AS INTEGER ' Local X originã lyo AS INTEGER ' Local Y originã NumVertices AS INTEGERãEND TYPEãTYPE StarTypeã x AS INTEGERã y AS INTEGERã dist AS INTEGERãEND TYPEããDECLARE SUB CreateTables ()ãDECLARE SUB DrawPolygon (poly AS PolygonType, polyvert() AS VertexType)ãDECLARE SUB ErasePolygon (poly AS PolygonType, polyvert() AS VertexType)ãDECLARE SUB MovePolygon (poly AS PolygonType, dx AS INTEGER, dy AS INTEGER)ãDECLARE SUB ScalePolygon (poly AS PolygonType, polyvert() AS VertexType, scale AS SINGLE)ãDECLARE SUB RotatePolygon (poly AS PolygonType, polyvert() AS VertexType, angle AS INTEGER)ãDECLARE SUB StarField ()ããDIM ast1 AS PolygonType ' Create basic asteroidsãDIM ast2 AS PolygonTypeãDIM ast3 AS PolygonTypeãast1.NumVertices = 5ãast2.NumVertices = 5ãast3.NumVertices = 5ãREDIM astvert1(1 TO ast1.NumVertices) AS VertexType ' Create verticesãREDIM astvert2(1 TO ast2.NumVertices) AS VertexTypeãREDIM astvert3(1 TO ast3.NumVertices) AS VertexTypeãDIM SHARED star(1 TO MAX.STARS) AS StarTypeãDIM SHARED SinLook(0 TO 361) AS DOUBLE, CosLook(0 TO 361) AS DOUBLEãDIM SHARED c(1 TO 3) ' Colorãc(1) = 15: c(2) = 7: c(3) = 8ããFOR cnt = 1 TO MAX.STARS ' Define all the starsã star(cnt).x = INT(RND * 320) ' Create random positionã star(cnt).y = INT(RND * 200)ã star(cnt).dist = INT(RND * 3 + 1)ãNEXT cntããast1.border = 8ãast1.interior = 8ãast1.closed = TRUEãast1.filled = FALSEãast1.lxo = 110ãast1.lyo = 100ãFOR cnt1 = 1 TO ast1.NumVerticesã READ astvert1(cnt1).x, astvert1(cnt1).yãNEXT cnt1ãast2.border = 8ãast2.interior = 8ãast2.closed = TRUEãast2.filled = FALSEãast2.lxo = 160ãast2.lyo = 80ãFOR cnt1 = 1 TO ast2.NumVerticesã READ astvert2(cnt1).x, astvert2(cnt1).yãNEXT cnt1ãast3.border = 8ãast3.interior = 8ãast3.closed = TRUEãast3.filled = FALSEãast3.lxo = 210ãast3.lyo = 100ãFOR cnt1 = 1 TO ast3.NumVerticesã READ astvert3(cnt1).x, astvert3(cnt1).yãNEXT cnt1ããPRINT "Creating tables...."ãCreateTablesãSCREEN 7ããDOã StarFieldã RotatePolygon ast1, astvert1(), 5ã RotatePolygon ast2, astvert2(), 8ã RotatePolygon ast3, astvert3(), -4ã DrawPolygon ast1, astvert1()ã DrawPolygon ast2, astvert2()ã DrawPolygon ast3, astvert3()ã t! = TIMER: WHILE t! = TIMER: WEND ' Pauseã ErasePolygon ast1, astvert1()ã ErasePolygon ast2, astvert2()ã ErasePolygon ast3, astvert3()ã IF INKEY$ <> "" THEN quit = 1ãLOOP UNTIL quit > 0ãENDãã' Asteroid 1 verticesãDATA 0,-15ãDATA 20, 5ãDATA 5, 7ãDATA -1, 10ãDATA -4, 1ãã' Asteroid 2 verticesãDATA 0,-15ãDATA 20,-9ãDATA 10, 7ãDATA -1, 10ãDATA -4, 1ãã' Asteroid 3 verticesãDATA 0,-15ãDATA 10,-2ãDATA 5, 7ãDATA -1, 10ãDATA -9, 1ããDEFSNG A-ZãSUB CreateTablesããFOR cnt = 0 TO 360ã CosLook(cnt) = COS(cnt * 3.14159 / 180)ã SinLook(cnt) = SIN(cnt * 3.14159 / 180)ãNEXT cntããEND SUBããSUB DrawPolygon (poly AS PolygonType, polyvert() AS VertexType)ããxo = poly.lxoãyo = poly.lyoããFOR cnt = 1 TO poly.NumVertices - 1ã LINE (xo + polyvert(cnt).x, yo + polyvert(cnt).y)-(xo + polyvert(cnt + 1).x, yo + polyvert(cnt + 1).y), poly.borderãNEXT cntããIF poly.closed THENã LINE (xo + polyvert(poly.NumVertices).x, yo + polyvert(poly.NumVertices).y)-(xo + polyvert(1).x, yo + polyvert(1).y), poly.borderãEND IFããEND SUBããSUB ErasePolygon (poly AS PolygonType, polyvert() AS VertexType)ããxo = poly.lxoãyo = poly.lyoããFOR cnt = 1 TO poly.NumVertices - 1ã LINE (xo + polyvert(cnt).x, yo + polyvert(cnt).y)-(xo + polyvert(cnt + 1).x, yo + polyvert(cnt + 1).y), 0ãNEXT cntããIF poly.closed THENã LINE (xo + polyvert(poly.NumVertices).x, yo + polyvert(poly.NumVertices).y)-(xo + polyvert(1).x, yo + polyvert(1).y), 0ãEND IFããEND SUBããSUB MovePolygon (poly AS PolygonType, dx AS INTEGER, dy AS INTEGER)ããpoly.lxo = poly.lxo + dxãpoly.lyo = poly.lyo + dyããEND SUBããSUB RotatePolygon (poly AS PolygonType, polyvert() AS VertexType, angle AS INTEGER)ããIF angle >= 0 THENã si = SinLook(angle)ã cs = CosLook(angle)ãELSEã si = SinLook(angle + 360)ã cs = CosLook(angle + 360)ãEND IFããFOR cnt = 1 TO poly.NumVerticesã rx = polyvert(cnt).x * cs - polyvert(cnt).y * siã ry = polyvert(cnt).y * cs + polyvert(cnt).x * siã polyvert(cnt).x = rxã polyvert(cnt).y = ryãNEXT cntããEND SUBããSUB ScalePolygon (poly AS PolygonType, polyvert() AS VertexType, scale AS SINGLE)ããFOR cnt = 1 TO poly.NumVerticesã polyvert(cnt).x = polyvert(cnt).x * scaleã polyvert(cnt).y = polyvert(cnt).y * scaleãNEXT cntããEND SUBããDEFINT A-ZãSUB StarFieldããFOR cnt = 1 TO MAX.STARSã PSET (star(cnt).x, star(cnt).y), 0ã star(cnt).y = star(cnt).y + (4 - star(cnt).dist)ã IF star(cnt).y > 199 THENã star(cnt).x = INT(RND * 320)ã star(cnt).y = INT(RND * 200)ã star(cnt).dist = INT(RND * 3 + 1)ã END IFã PSET (star(cnt).x, star(cnt).y), c(star(cnt).dist)ãNEXT cntããEND SUBãKurt Eckhardt VARIABLE PLASMA EFFECT king@shadow.net 08-24-96 (00:00) QB, QBasic, PDS 197 6164 PLASMA.BAS DECLARE SUB Info ()ãDECLARE SUB RotatePalette (k$)ãDECLARE SUB RunX ()ãDECLARE SUB RunY ()ãDECLARE SUB SetPts ()ãDECLARE SUB SetPalette ()ã'Coded and designed by Kurt Eckhardt on 08/22/96ã'Copyrite 1996 by Kurt Eckhardtã'Fastened by Steven de Brouwer on 08/24/96ã'ã'This program sets up a grid of four points (the corners) and generatesã'a faded verticle line between them. It then does this horizontallyã'to create of sort of plasma effect.ã'The effect works best when there is a diversity of colors on both sidesã'of the screen. This way the colors don't just fade, but rather scroll.ã'You'll see...ã'ãDEFINT A-ZãDIM SHARED pal(192, 3)ãCLS : CLEARãRANDOMIZE TIMERãCALL InfoããSCREEN 13ãPRINT "Loading Palette...": SetPaletteãCLSãDOã CALL SetPtsã CALL RunYã CALL RunXã DOã CALL RotatePalette(k$)ã LOOP UNTIL k$ <> ""ãLOOP UNTIL k$ = CHR$(27)ããSUB InfoãCLSãPRINT SPACE$(30); "Information": PRINTãPRINT "Coded and Designed by Kurt Eckhardt"ãPRINT "Copyrite 1996 All Rights Reserved"ãPRINT "V2.0 Completed on 8/22/96"ãPRINT "V2.0.0a Improved on 8/24/96"ãPRINT " by Steven de Brouwer"ãPRINTãPRINT "This program works best when there is a diversity of colors on both"ãPRINT "sides of the screen. This creates a nicer pattern on the screen"ãPRINT "with more colors, so the scrolling effect will be much nicer."ãPRINT "Also experiment with pressing Other Keys! It's fun..."ãPRINTãPRINT " Enjoy!"ãPRINT : PRINTãPRINT "Escape : Exit Program"ãPRINT "SpaceBar : Change Direction"ãPRINT "Other Keys: Change Pattern/ Pallette"ãDO: LOOP UNTIL INKEY$ <> "": CLSãPRINT SPACE$(30); "Help the student": PRINTãPRINT "If this program brings a smile to your face, or you find any techniques"ãPRINT "helpful in you own programming endevours, I would greatly appreciate you"ãPRINT "sending me 1$ so I can make my way through college. Right now I am struggling"ãPRINT "as I have no money!"ãPRINT "I bet you can look around right now and find one buck within 10 feet"ãPRINT "of yourself- if not, you are as broke as I am."ãPRINT "Any comments or questions, send me some email at "ãPRINT "Here's the address for that measly buck: "ãPRINTãPRINT "Kurt Eckhardt"ãPRINT "1820 West Oak Knoll Circle"ãPRINT "Ft. Lauderdale FL 33324"ãPRINTãPRINT "Thanks!"ãDO: LOOP WHILE INKEY$ = ""ãCLSãPRINT SPACE$(35); "Legal Stuff"ãPRINTãPRINT "1. This program may be freely distributed so long as no changes have been made."ãPRINT "2. This program, or any part of it, may not be used in another program"ãPRINT " without my written consent."ãPRINT "3. I, Kurt Eckhardt, retain all rights to this code and retain the power"ãPRINT " to invoke them at anytime I see fit."ãPRINT "4. I take no responsibilty for any adverse affects that may be caused by"ãPRINT " usage of this program upon your machine."ãPRINT "5. Acknowledge your pleasure by e-mail to SPMdB@dds.nl"ãPRINT " (He loves e-mail!)"ãLOCATE 15, 13ãPRINT "By possessing this program you agree with these terms."ãDO: LOOP WHILE INKEY$ = ""ããEND SUBããSUB RotatePalette (n$)ã 'ã STATIC cngdiv, cng 'Keep values of these two between callsã IF cngdiv = 0 THEN cngdiv = 1 - INT(RND * 2) * 2 'Random directionã cng = cng - cngdivã IF cng < 1 THEN cng = 192ã IF cng > 192 THEN cng = 1ã s = (1 - SGN(cngdiv)) / 2 's=0 or s=1ã 'ã IF cng <> 1 + s * 191 THENã FOR lp = 1 TO 3ã pal(cng, lp) = pal(cng - cngdiv, lp)ã NEXT lpã ELSEã FOR lp = 1 TO 3ã pal(1 + s * 191, lp) = pal(192 - s * 191, lp)ã NEXT lpã END IFã 'ã OUT &H3C8, cng 'Write Palette Registerã OUT &H3C9, pal(cng, 1) 'Write Palette Data(RGB)ã OUT &H3C9, pal(cng, 2)ã OUT &H3C9, pal(cng, 3)ã 'ã n$ = INKEY$ã IF n$ = " " THEN n$ = "": cngdiv = -cngdiv 'Change directionã 'ãEND SUBããSUB RunXã ã r = INT(RND * 10) ' These two lines plus 'STEP 10'ã FOR x = 0 TO 9 ' For the luxaflex-effectã FOR yy = 0 TO 199 STEP 10ã y = yy + (x + r) MOD 10 'This one too :)ã ch = POINT(319, y): cl = POINT(0, y)ã cdiv! = (ch - cl) / 319ã FOR i = 1 TO 318ã PSET (i, y), cl + INT(i * cdiv!) 'Interpolate colorã 'ã CALL RotatePalette(k$) 'these three linesã IF k$ = CHR$(27) THEN END 'for effects during redrawã IF k$ <> "" THEN stp = 1ã 'ã NEXT iã IF stp = 1 THEN LINE (0, 0)-(319, 199), 0, B: EXIT SUBã NEXT yyã NEXT xã LINE (0, 0)-(319, 199), 0, Bã ãEND SUBããSUB RunYã ã FOR i = 0 TO 1ã ch = POINT(i * 319, 199): cl = POINT(i * 319, 0)ã FOR j = 1 TO 198ã PSET (i * 319, j), cl + INT((j / 199) * (ch - cl))ã NEXT jã NEXT iã ãEND SUBããSUB SetPaletteã ã RA = 1: GA = 0: BA = 0: Rval = 63ã FOR cnt = 1 TO 192ã Rval = Rval + RAã Gval = Gval + GAã Bval = Bval + BAã ã IF Rval > 62 AND Gval <> 63 AND Bval = 0 THEN GA = 2ã IF Gval > 62 AND Bval <> 63 AND Rval = 0 THEN BA = 2ã IF Bval > 62 AND Rval <> 63 AND Gval = 0 THEN RA = 2ã ã IF Gval > 62 AND Rval > 62 THEN RA = -2ã IF Rval < 0 AND Gval > 62 THEN BA = 2ã IF Gval > 62 AND Bval > 62 THEN GA = -2ã IF Gval < 0 AND Bval > 62 THEN RA = 2ã IF Rval > 62 AND Bval > 62 THEN BA = -2ã IF Bval < 0 AND Rval > 62 THEN GA = 2ã ã IF Rval > 62 THEN Rval = 63ã IF Rval < 0 THEN Rval = 0ã IF Gval > 62 THEN Gval = 63ã IF Gval < 0 THEN Gval = 0ã IF Bval > 62 THEN Bval = 63ã IF Bval < 0 THEN Bval = 0ã pal(cnt, 1) = Rvalã pal(cnt, 2) = Gvalã pal(cnt, 3) = Bvalã OUT &H3C8, cntã OUT &H3C9, Rvalã OUT &H3C9, Gvalã OUT &H3C9, Bvalã NEXT cntã ãEND SUBããSUB SetPtsã ã FOR x = 0 TO 1ã PSET (x * 319, 0), (RND * 191) + 2ã PSET (x * 319, 199), (RND * 191) + 2ã NEXT xã ãEND SUBããErika Schulze TGA VIEWER 100775.2275@CompuServe.com 08-29-96 (18:39) QB, QBasic, PDS 243 10390 TGA.BAS '***************************************************************************ã'Program: TGA.BAS *ã'Task: TGA viewer for SCREEN 13 - uncompressed TGA files. *ã' Version 1.0 *ã'Language: QBASIC mixed with machine code. *ã'Author: Erika Schulze *ã' CIS: 100775,2275 *ã' Internet: 100775.2275@compuserve.com *ã' Free for use. *ã' Use it, abuse it, but don't blame me! *ã'Note: It seems to me that the main problem is reading the data *ã' from the disk; that's to slow. If somebody has a better *ã' solution for this - your assistance is welcome. Please *ã' send me a message with your suggestions for improvements. *ã'***************************************************************************ãã'The TGA (True Version Targa) isn't complicated. There is only aã'TGA header of 18 bytes with all informations about the image.ã'Structure of the TGA header:ãã'Offset Length Descriptionã'====== ====== ===========ãã'00H BYTE info:ã' It's possible, that after the 18 bytes of theã' header, the file contains an information block.ã' This block, for example, holds the copyrightã' information. The byte info stands for theã' length of the information block.ã'01H BYTE colortyp:ã' 0 ===> RGB imageã' 1 ===> image has a DAC tableã'02H BYTE imagetyp:ã' This byte contains information about the imageã' typ:ã' 1 ===> uncompressed image datas with a DACã' tableã' 2 ===> uncompressed RGB fileã' 9 ===> runlength encoded datas with a DAC tableã' 10 ===> runlength encoded RGB fileã'03H WORD origin:ã' This word contains the index of the first entryã' in the DAC table (mostly 0).ã'05H WORD colnumber:ã' This word contains the number of colors in theã' DAC table. That's not the length of the DACã' table in byte!ã'07H BYTE entrybits:ã' Size of on entry in the DAC table. An entry hasã' 16, 24 or 32 bits.ã'08H WORD xvalue:ã' The x-value of the lower left corner of theã' TGA image (mostly 0).ã'0AH WORD yvalue:ã' The y-value of the lower left corner of theã' TGA image (mostly 0).ã'0CH WORD widt:ã' The image width in pixels.ã'0EH WORD height:ã' The image height in pixels.ã'10H BYTE pixelsize:ã' Number of bits per pixel.ã' DAC images ===> valid values are 8 and 16ã' RGB images ===> valid values are 16, 24 and 32ã'11H BYTE descriptor:ã' The image descriptor contains additionalã' informations.ãã'The structure of the image descriptor:ãã'Bit 0 - 3: fill bitsã'Bit 4 : always 0ã'Bit 5 : 0 ===> image origin in the lower left cornerã' 1 ===> image origin in the upper left cornerã'Bit 6 - 7: 00 ===> the image rows are stored one after the otherã' 01 ===> first are stored the even rows (0, 2, 4 ...)ã' after this are stored the odd rows (1, 3, 5 ...)ãã'The formula to calculate the length of the DAC table:ãã'daclength% = colnumber*entrybits/8ãã'After the 18 bytes of the TGA header is stored the informationã'block in the TGA file, but the length of this block is mostly 0.ã'After the information block is stored the DAC table and then theã'image datas.ãã'===========================================================================ã'Program starts here. =ã'===========================================================================ããDECLARE SUB Reading (x%, y%)ãDECLARE SUB Waiting ()ãTYPE tgaheader 'declare the headerã info AS STRING * 1 'length of image information blockã colortyp AS STRING * 1 'DAC table or BGR formatã imagetyp AS STRING * 1 'compressed or uncompressedã origin AS INTEGER 'first entry in the DAC tableã colnumber AS INTEGER 'number of colors in the DAC tableã entrybits AS STRING * 1 'entry size in the DAC tableã xvalue AS INTEGER 'x co-ordinate lower left cornerã yvalue AS INTEGER 'y co-ordinate lower left cornerã widt AS INTEGER 'image widthã height AS INTEGER 'image heightã pixelsize AS STRING * 1 'number of bits per pixelã descriptor AS STRING * 1 'image descriptorãEND TYPEãDIM header AS tgaheader 'define the headerãDIM set%(42) 'machine code array for pixel set procedureãsetseg% = VARSEG(set%(0))ãsetoff% = VARPTR(set%(0)) 'start address for pixel set routineãDIM text%(4) 'machine code array for text mode procedureãtextseg% = VARSEG(text%(0))ãtextoff% = VARPTR(text%(0)) 'start address text mode procedureãfile$ = "ELENA.TGA" 'change it, if necessaryãfilelength& = 0 'length of the TGA fileãdaclength% = 0 'length of the DAC tableãnumcolors% = 0 'number of used colorsãdacstart& = 0 'start of the DAC values in theã 'TGA fileãdacend& = 0 'end of the DAC valuesãimstart& = 0 'start of the image data in theã 'TGA fileãCLSãRESTORE setpixelãCALL Reading(setseg%, setoff%) 'read the machine code (pixel procedure)ãRESTORE textmodeãCALL Reading(textseg%, textoff%)'read the machine code (text mode routine)ãOPEN file$ FOR BINARY AS #1 'open the TGA fileãfilelength& = LOF(1) 'determine the file lengthãGET #1, 1, header 'read the headerãCLOSE #1 'close the fileãIF ASC(header.colortyp) <> 1 THENã 'image hasn't a DAC tableã PRINTã PRINT "Sorry! This TGA image hasn't a DAC table."ã ENDãEND IFãIF ASC(header.imagetyp) <> 1 THENã 'data must be uncompressedã PRINTã PRINT "Sorry! This TGA format isn't supported."ã ENDãEND IFãdaclength% = header.colnumber * ASC(header.entrybits) / 8ã 'calculate the length of th DAC tableãnumcolors% = daclength% / 3 'calculate the number of used colorsãdacstart& = 19 + ASC(header.info)ã 'calculate the DAC startãdacend& = dacstart& + daclength%ã 'calculate the DAC endãPRINTãPRINT "Information about the image:"ãPRINT "============================"ãPRINTãPRINT "Number of used colors ="; header.colnumberãPRINT "Image width ="; header.widt; "Pixel"ãPRINT "Image height ="; header.height; "Pixel"ãPRINTãPRINT "Please press any key ..."ãCALL WaitingãCLS 'clear the screenãSCREEN 13 'VGA 320 by 200 pixel and 256 colorsãOPEN file$ FOR BINARY AS #1 'open the TGA fileãSEEK #1, dacstart& 'start of the DAC tableãFOR register% = 0 TO 255 'set the DAC registersã temp$ = SPACE$(3) 'temporary stringã GET #1, , temp$ 'read BGR valueã red% = ASC(MID$(temp$, 3)) \ 4ã 'we need only 6 Bitsã green% = ASC(MID$(temp$, 2)) \ 4ã blue% = ASC(MID$(temp$, 1)) \ 4ã OUT &H3C8, register% 'set registerã OUT &H3C9, red% 'set the RGB valuesã OUT &H3C9, green%ã OUT &H3C9, blue%ãNEXT register%ãSEEK #1, dacend& 'start of the image dataãtemp$ = SPACE$(1) 'temporary stringãFOR y% = header.height - 1 TO 0 STEP -1ã 'row loopã FOR x% = 0 TO header.widt - 1ã 'column loopã GET #1, , temp$ 'read 1 color byteã col% = ASC(temp$) 'calculate the color valueã DEF SEG = setseg% 'set the segmentã CALL ABSOLUTE(x%, y%, col%, setoff%)ã 'set the pixelã DEF SEG 'reset the segmentã NEXT x%ãNEXT y%ãCLOSE #1 'close the fileãCALL Waiting 'wait for a keyãDEF SEG = textseg%ãCALL ABSOLUTE(textoff%) 'set the text modeãDEF SEGãCLSãENDããsetpixel:ãDATA 55: 'push bpãDATA 8B,EC: 'mov bp,spãDATA 06: 'push esãDATA 8B,76,08: 'mov si,[bp+8] ;si:=address y%ãDATA 8B,7E,0A: 'mov di,[bp+10] ;di:=address x%ãDATA 8B,5E,06: 'mov bx,[bp+6] ;bx:=address col%ãDATA B8,40,01: 'mov ax,320 ;ax:=320=bytes per rowãDATA 8B,0C: 'mov cx,[si] ;cx:=y%ãDATA F7,E1: 'mul cx ;ax:=y%*320ãDATA 03,05: 'add ax,[si] ;ax:=y%*320+x%ãDATA 8B,F8: 'mov di,ax ;di:=ax=offset into video RAMãDATA B8,00,A0: 'mov ax,0a000H ;ax:=segment video RAMãDATA 8E,C0: 'mov es,ax ;es:di -> pixel positionãDATA 8B,07: 'mov ax,[bx] ;ax:=col%ãDATA 26,88,05: 'mov byte ptr es:[di],alã ' ;set the pixelãDATA 07: 'pop esãDATA 8B,E5: 'mov sp,bpãDATA 5D: 'pop bpãDATA CA,06,00: 'ret 6ãDATA *: 'end codeãtextmode:ãDATA B8,03,00: 'mov ax,0003H ;function: set text modeãDATA CD,10: 'int 10H ;transfer to BIOSãDATA CB: 'retãDATA *: 'end codeããSUB Reading (x%, y%)ã DEF SEG = x% 'set the segmentã FOR i% = 0 TO 199 'reading loopã READ byte$ 'read 1 byteã IF byte$ = "*" THEN EXIT FORã 'end codeã POKE (y% + i%), VAL("&H" + byte$)ã 'write 1 byteã NEXT i%ã DEF SEG 'reset the segmentãEND SUBããSUB Waitingã WHILE INKEY$ = ""ã WENDãEND SUBãJames McMurrin MATHEMATICAL FORMULA DISPLAYED FidoNet QUIK_BAS Echo 08-28-96 (19:48) QB, QBasic, PDS 31 679 FOREST.BAS 'A basic mathematical formula dressed up in a pretty wayã'Warning: this will take a while on slower computers!ã'By: James McMurrinãCOMMON SHARED NUM AS DOUBLEãSCREEN 13ãFOR PU = 1 TO 255ã OUT &H3C8, PUã OUT &H3C9, PU / 2 + 20ã OUT &H3C9, PU / 4 + 10ã OUT &H3C9, PU / 6 + 5ãNEXT PUãFOR L = 3 TO 3.996875 STEP .003125ã NUM = .5ã FOR Q = 1 TO 50ã NUM = NUM * L * (1 - NUM)ã NEXT Qã DOã NUM = NUM * L * (1 - NUM)ã DISROW = 200 - (NUM * 200)ã P = POINT(DISCOL, DISROW)ã IF P = 255 THENã EXIT DOã ELSEã P = P + 1ã LINE (DISCOL, DISROW)-(DISCOL, DISROW), Pã END IFã LOOPã DISCOL = DISCOL + 1ãNEXT LãBEEPãWHILE INKEY$ = "": WENDãLuke Molnar GORAU SHADED POLYGONS Blood225@aol.com 09-01-96 (14:51) QB, QBasic, PDS 261 5879 GORAU.BAS ã' Gorau Shaded Polygons. Written by Luke Molnar. A Molnar \ Kucalabaã' Productions program. Tons of concept and execution help provided byã' David Eichorn. If you are one of those people that need really obviousã' things pointed out, this is REALLY SLOW! I don't think many people inã' their right mind would try to write a Gorau routine in QBasic and demandã' that it be fast enough for animation, but this is pretty nice lookingã' if I do say so myself. :-)ããã' Another QBasic graphics "demo" that appeared first at :ãã' WWW : http://members.aol.com/mkwebsite/index.htmlã' FTP : ftp://users.aol.com/blood225/ããããDECLARE SUB GorauFill (Points() AS ANY)ãDECLARE SUB Delay (Seconds!)ãDECLARE SUB ChangeColors ()ãDECLARE FUNCTION ValidPolPoints! ()ããã'$DYNAMICãRANDOMIZE TIMERããCLSãSCREEN 13ãããTYPE GorTypeã Y1 AS INTEGERã Y2 AS INTEGERã C1 AS INTEGERã C2 AS INTEGERãEND TYPEããTYPE RoutineTypeã X AS INTEGERã Y AS INTEGERã C AS INTEGERãEND TYPEããããDIM SHARED PolPoints(0 TO 3) AS RoutineTypeãããCOLOR 230ããDOã ã ThisShouldBeASub% = ValidPolPoints ' Generate decent polygon pointsãã ChangeColors ' Randomly assign a color schemeãã GorauFill PolPoints() ' Fill the 4 point polygonã ã Delay 1 ' Give user time to admire the beauty ãã User$ = INKEY$ ' Store any keypresses ãã CLS ' Clear the screenããLOOP UNTIL User$ <> "" ' Keep going until they press a keyããCLSãSCREEN 0ãWIDTH 80ãSYSTEMããREM $STATICãSUB ChangeColorsãã' Changes the palette to one of 6 possible color variationsããDifColors% = INT(RND * 6) + 1ããFOR X% = 1 TO 230ãã OUT &H3C8, X%ãã SELECT CASE DifColors%ã CASE 1: OUT &H3C9, EasyVal!: OUT &H3C9, 0: OUT &H3C9, 0ã CASE 2: OUT &H3C9, 0: OUT &H3C9, EasyVal!: OUT &H3C9, 0ã CASE 3: OUT &H3C9, 0: OUT &H3C9, 0: OUT &H3C9, EasyVal!ã CASE 4: OUT &H3C9, EasyVal!: OUT &H3C9, EasyVal!: OUT &H3C9, EasyVal!ã CASE 5: OUT &H3C9, EasyVal!: OUT &H3C9, EasyVal!: OUT &H3C9, 0ã CASE 6: OUT &H3C9, EasyVal!: OUT &H3C9, 0: OUT &H3C9, EasyVal!ã END SELECTãã EasyVal! = EasyVal! + .273913ããNEXTããEND SUBããSUB Delay (Seconds!)ãFuture! = TIMER + Seconds!ãDOãLOOP UNTIL TIMER >= Future! OR TIMER - (TIMER - Seconds!) < 0ãEND SUBããSUB GorauFill (Points() AS RoutineType)ããDIM Scan(0 TO 320) AS GorTypeããXMax% = -32767ãXmin% = 32767ããFOR X% = 0 TO 3ã IF XMax% < Points(X%).X THEN XMax% = Points(X%).Xã IF Xmin% > Points(X%).X THEN Xmin% = Points(X%).Xã PSET (Points(X%).X, Points(X%).Y), 230ãNEXTããã IF Xmin% < 0 THEN Xmin% = 0ã IF XMax% > 320 THEN XMax% = 320ã IF Xmin% > 320 THEN EXIT SUBã IF XMax% < 0 THEN EXIT SUBããFOR X% = Xmin% TO XMax%ã Scan(X%).Y1 = -32767ãNEXTããããFOR X% = 0 TO 3ãã Val1% = X%ã Val2% = (X% + 1) MOD 4ãã IF Points(Val1%).X > Points(Val2%).X THENã SWAP Val1%, Val2%ã END IFã ã Y1% = Points(Val1%).Yã x1% = Points(Val1%).Xã Col1% = Points(Val1%).Cãã Y2% = Points(Val2%).Yã x2% = Points(Val2%).Xã Col2% = Points(Val2%).Cãã YDelta% = Y2% - Y1%ã ã XDelta% = x2% - x1%ã CDelta% = Col2% - Col1%ã ã IF XDelta% <> 0 THENã YSlope! = YDelta% / XDelta%ã CSlope! = CDelta% / XDelta%ã ELSEã YSlope% = 0ã CSlope% = 0ã END IFãã YVal! = Y1%ã CVal! = Col1%ã ã FOR I% = x1% TO x2%ã ã IF Scan(I%).Y1 = -32767 THENã Scan(I%).Y1 = YVal!ã Scan(I%).C1 = CVal!ã ELSEã Scan(I%).Y2 = YVal!ã Scan(I%).C2 = CVal!ã END IFãã YVal! = YVal! + YSlope!ã CVal! = CVal! + CSlope!ã ã NEXTããNEXTããããFOR X% = Xmin% TO XMax%ãã IF Scan(X%).Y1 > Scan(X%).Y2 THENã Y2% = Scan(X%).Y1ã Y1% = Scan(X%).Y2ã Col2% = Scan(X%).C1ã Col1% = Scan(X%).C2ã ELSEã Y2% = Scan(X%).Y2ã Y1% = Scan(X%).Y1ã Col2% = Scan(X%).C2ã Col1% = Scan(X%).C1ã END IFãã YDelta% = Y2% - Y1%ã ã IF YDelta% = 0 THEN YDelta% = 1ãã CDelta% = Col2% - Col1%ã CSlope! = CDelta% / YDelta%ã CVal! = Col1%ãã FOR I% = Scan(X%).Y1 TO Scan(X%).Y2ã PSET (X%, I%), CVal!ã CVal! = CVal! + CSlope!ã NEXTããNEXTããããEND SUBããFUNCTION ValidPolPointsãã' There are certain occurences with this routine in which the polygon willã' not be correctly filled in. This routine prevents those polygons fromã' happening.ããFOR I% = 0 TO 3ã ã SELECT CASE I%ã CASE 0:ã PolPoints(0).X = INT(RND * 60) + 1ã PolPoints(0).Y = INT(RND * 60) + 1ã CASE 1:ã PolPoints(1).X = INT(RND * 160) + 160ã PolPoints(1).Y = INT(RND * 100) + 2ã' IF PolPoints(1).Y < PolPoints(0).Y THEN PolPoints(1).Y = PolPoints(0).Y + INT(RND * (100 - PolPoints(0).Y))ã CASE 2:ã PolPoints(2).X = INT(RND * 160) + 160ã' IF PolPoints(2).X < PolPoints(1).X THEN PolPoints(2).X = PolPoints(1).X + 1ã PolPoints(2).Y = INT(RND * 50) + 150ã CASE 3:ã PolPoints(3).X = INT(RND * 160) + 1ã IF PolPoints(3).X < PolPoints(0).X THEN PolPoints(3).X = PolPoints(0).X + INT(RND * (160 - PolPoints(0).X))ã PolPoints(3).Y = INT(RND * 100) + 100ã' IF PolPoints(3).Y < PolPoints(2).Y THEN PolPoints(3).Y = PolPoints(2).Y + INT(RND * (100 - PolPoints(2).Y))ã END SELECTãã PolPoints(I%).C = -1ããNEXTãã ã' Make one corner black and one corner the brightest color; the other 2 randomã ã DO UNTIL BlackOne% <> BrightOne%ã BlackOne% = INT(RND * 3)ã BrightOne% = INT(RND * 3)ã LOOPãã PolPoints(BlackOne%).C = 0ã PolPoints(BrightOne%).C = 230ãã FOR I% = 0 TO 3ã IF PolPoints(I%).C = -1 THEN PolPoints(I%).C = INT(RND * 230) + 1ã NEXTããEND FUNCTIONããJonathan Leger FAST 320X200X256 PCX VIEWER leger@mail.dtx.net 09-02-96 (10:10) QB, QBasic, PDS 152 5773 PCX.BAS '***** PCX.BAS *****************************************************ã'*** The original code for this routine was found in VGAPCX.BAS ***ã'*** At first I optomized the code in that file, and eventually ***ã'*** I ended up re-writing the whole thing. That PCX loader did ***ã'*** a number of things differently, including loading the color ***ã'*** palette _last_. This routine loads the palette first, so ***ã'*** you can see the "correct" picture as the PCX is loading. In ***ã'*** addition to that, I use all integers for speed and load the ***ã'*** file in chunks of 2,000 bytes (instead of 1 byte at a time, ***ã'*** as in the other routine, VGAPCX.BAS). I thank the uknown ***ã'*** author of that original version, VGAPCX.BAS, because if he ***ã'*** had not put out that sample code, this PCX loader would not ***ã'*** be possible. ***ã'*******************************************************************ã'*** On a 486dx2-66, the old version (VGAPCX.BAS) loaded the PCX ***ã'*** in about 21 seconds. This new version does so in about 1.5 ***ã'*** seconds. The speed varies depending on the level of file ***ã'*** compression attained by the PCX file. ***ã'*******************************************************************ãDEFINT A-ZããDECLARE SUB ShowPCX (file$)ãã'*** If you're using Qbasic 1.1, change this line toã'*** ShowPCX ".pcx"ãShowPCX COMMAND$ããWHILE INKEY$ = "": WENDãSCREEN 0: WIDTH 80ãã'*** Loads a Version 5, 320x200x256c PCX file.ã'*** If you have any questions or comments about any of this code,ã'*** please contact me, Jonathan Leger, at leger@mail.dtx.net.ãSUB ShowPCX (file$)ããSCREEN 13ããDIM pcxpal AS STRING * 768, pcxversion AS STRING * 1ããpcxnum = FREEFILEãOPEN file$ FOR BINARY AS #pcxnumãã '*** Get the PCX version from the header.ã GET #pcxnum, 2, pcxversionãã '*** If we're using version 5, then load the palette.ã IF ASC(pcxversion) = 5 THENã '*** Grab the palette out of the file.ã GET #1, LOF(pcxnum) - 767, pcxpalãã '*** Start with color 0.ã pal = 0ãã '*** Grab the red/green/blue value from our palette (PCXPAL) andã '*** send them to the monitor using OUT.ã FOR p = 1 TO 768 STEP 3ã OUT &H3C8, palã red% = INT(ASC(MID$(pcxpal, p, 1)) / 4)ã OUT &H3C9, red%ã green% = INT(ASC(MID$(pcxpal, p + 1, 1)) / 4)ã OUT &H3C9, green%ã blue% = INT(ASC(MID$(pcxpal, p + 2, 1)) / 4)ã OUT &H3C9, blue%ã pal = pal + 1ã NEXT pãã END IFã ã '*** Jump past the file header.ã SEEK #pcxnum, 129ãã '*** We'll be sending the output the the screen, so our segmentã '*** is &HA000 (VGA screen memory) and our offset is 0. You canã '*** change these values to, say, decompress the image into anã '*** array or something.ã fxoffset = 0: fxsegment = &HA000ãã '*** We'll be reading chunks of 2,000 bytes. You can increase orã '*** decrease this depending on your needs. I noticed little orã '*** no difference when the chunk size went past 2,000, so I leftã '*** it at 2,000 to add as little over-head as possible with maximumã '*** speed.ã datasize = 2000ãã '*** Load our first chunk of data and point to the beginning of thatã '*** data.ã pcxdata$ = INPUT$(datasize, pcxnum)ã datacount = 1ãã '*** To increase speed, we'll be drawing the screen in two loops,ã '*** that way we can use integers to point to the next pixel insteadã '*** of long integers. Doing this gains tremendous speed.ã FOR half = 1 TO 2ãã '*** On the second loop, this will add &H7D0 (32000) to ourã '*** segment so we'll be writing to the second half of the screen.ã '*** On the first loop, this will simply set our segment to &HA000.ã fxtotal = fxsegment + fxoffsetã DEF SEG = fxtotalãã FOR c = 0 TO 31999ãã '*** If we're out of data, then we need to load the next chunk.ã IF datacount > datasize THENã pcxdata$ = INPUT$(datasize, pcxnum)ã datacount = 1ã END IFãã '*** Get the next byte from our data chunk.ã clr = ASC(MID$(pcxdata$, datacount, 1))ã datacount = datacount + 1ãã '*** If we're out of data, then we load the next chunk.ã IF datacount > datasize THENã pcxdata$ = INPUT$(datasize, pcxnum)ã datacount = 1ã END IFã ã '*** If the byte we pulled from the data has bit 6 and 7 set,ã '*** (which would make the value greater than 192), then thatã '*** means we'll be repeating a color. So we pull the nextã '*** byte from our data chunk (which is the color), and putã '*** it on the screen CLR - 192 times (in other words, weã '*** take the value of the first 5 bits in the byte and putã '*** the pixel to the screen that many times.)ã IF clr > 192 THENã LPS = clr - 192ã clr = ASC(MID$(pcxdata$, datacount, 1))ã datacount = datacount + 1ã FOR L = LPS TO 1 STEP -1ã POKE c, clrã c = c + 1ã NEXT Lã c = c - 1ã ELSEã '*** Since the byte was less than 192, then we just poke theã '*** pixel to the screen.ã POKE c, clrã END IFã NEXT cã '*** We'll move to the second half of the screen by adding 32,000ã '*** (HEX = 7D0) bytes to our segment value.ã fxoffset = fxoffset + &H7D0ã NEXT halfãã'*** All done! Close the file.ãCLOSE pcxnumãã'*** Return to BASIC's default segment. Very important!ãDEF SEGããEND SUBãJonathan Leger GRAPHICS LOADER UPDATE leger@mail.dtx.net 09-02-96 (10:10) QB, QBasic, PDS 981 27476 FX2.BAS DEFINT A-Zãã'**** Screen routinesãDECLARE SUB LoadGif (file$)ãDECLARE SUB LoadPcx (file$)ãDECLARE SUB BsaveScreen (file$)ãDECLARE SUB GiftoBSAVE (gif$, bsave$, pal$)ãã'*** Palette routinesãDECLARE SUB GetPal (pal())ãDECLARE SUB PutPal (pal())ãDECLARE SUB SavePal (file$)ãDECLARE SUB LoadPal (file$)ãDECLARE SUB RotatePal (direction, pal())ãDECLARE SUB CyclePal (direction, pal(), numcycles)ãã'*** Palette fxãDECLARE SUB FadeOut (pal())ãDECLARE SUB FadeIn (pal())ãDECLARE SUB BlackOut ()ãã'*** Drawing RoutinesãDECLARE SUB ClrScr (col)ãã'*** Font routinesãDECLARE SUB Font (Text$, XStart, Ystart, Xscale, Yscale, Style, clr)ãDECLARE SUB LoadFont ()ãDECLARE SUB MakeFont ()ãDECLARE SUB FontPal ()ãã'*** EMS routinesãDECLARE FUNCTION NumEMSHandles% ()ãDECLARE FUNCTION NumEMSPages% (Handle%)ãDECLARE FUNCTION GetEMS% (numpages%)ãDECLARE FUNCTION EMSPages% (func%)ãDECLARE FUNCTION PageFrame% ()ãDECLARE FUNCTION EMSstatus% ()ãDECLARE SUB ReleaseEMS (Handle%)ãDECLARE SUB MapEMS (Handle%, block%)ãã'*** Memory manipulation routinesãDECLARE SUB MemCopy (fromseg, fromoff, toseg, tooff, numbytes)ãDECLARE SUB FillChar (segment, offset, value, bytes)ãã'*** MiscelaneousãDECLARE SUB WaitRetrace ()ããOPTION BASE 0ãã'$STATICãDIM pal1(0 TO 255, 3) AS INTEGERãDIM pal2(0 TO 255, 3) AS INTEGERãDIM SHARED FontBuf(0) AS STRING * 10368ãã'$DYNAMICããLoadFontããSCREEN 13ããGetPal pal1()ããFontPalãGetPal pal2()ãBlackOutããFont "BASIC FX", 50, 75, 3, 3, 3, 70ãFadeIn pal2()ããWHILE INKEY$ = "": WENDãFadeOut pal2()ãCLSããFont "The font routines were written by:", 0, 0, 1, 1, 3, 120ãFont "Luke Molnar", 70, 25, 2, 2, 3, 1ãFont "Other routines written/collected by:", 0, 100, 1, 1, 3, 120ãFont "Jonathan Leger", 40, 125, 2, 2, 3, 1ããFadeIn pal2()ããWHILE INKEY$ = "": WENDããFadeOut pal2()ãCLSããPutPal pal1()ããFont "LoadGif()", 115, 100, 1, 1, 5, 15ãFont "press a key", 105, 125, 1, 1, 5, 15ãWHILE INKEY$ = "": WENDããLoadGif "letterma.gif"ããFOR snd = 1000 TO 1500 STEP 100ã SOUND snd, .1ã SOUND snd + 100, .1ã SOUND snd + 200, .1ãNEXT sndããWHILE INKEY$ = "": WENDããCLSãPutPal pal1()ããFont "LoadPcx()", 115, 100, 1, 1, 5, 15ãFont "press a key", 105, 125, 1, 1, 5, 15ãWHILE INKEY$ = "": WENDããLoadPcx "bwface.pcx"ãFOR snd = 1000 TO 1500 STEP 100ã SOUND snd, .1ã SOUND snd + 100, .1ã SOUND snd + 200, .1ãNEXT sndããWHILE INKEY$ = "": WENDããIF EMSstatus THENã IF EMSPages(1) >= 4 THENã PCXHandle = GetEMS(4)ã MapEMS PCXHandle, 0ã MemCopy &HA000, 0, PageFrame, 0, &HFA00ã CLSã Font "The previous picture has been", 0, 0, 1, 1, 5, 15ã Font "loaded into EMS memory.", 0, 25, 1, 1, 5, 15ã Font "Press any key to load picture.", 0, 50, 1, 1, 5, 15ã WHILE INKEY$ = "": WENDã MemCopy PageFrame, 0, &HA000, 0, &HFA00ã WHILE INKEY$ = "": WENDã ReleaseEMS PCXHandleã END IFãEND IFããGetPal pal2()ããFont "CyclePal()", 115, 100, 1, 1, 5, 15ããDO UNTIL LEN(INKEY$) > 0ã CyclePal 1, pal2(), 1ãLOOPããBlackOutãCLSããFontPalãGetPal pal2()ãFont "Making differnt color backgrounds", 0, 0, 1, 1, 5, 50ãFont "is easy (and fast!) with ClrScr()...", 0, 25, 1, 1, 5, 50ãFont "press a key", 105, 125, 1, 1, 5, 50ãWHILE INKEY$ = "": WENDããRANDOMIZE TIMERãFOR x = 50 TO 200 STEP 40ã ClrScr xã DO: LOOP UNTIL LEN(INKEY$)ãNEXT xããFillChar &HA000, 0, 0, &HFA00ãBlackOutããFont "End of..", 0, 25, 1, 1, 5, 18ãFont "BASIC FX", 50, 75, 3, 3, 3, 70ãFont "...Demo", 240, 145, 1, 1, 5, 18ãFadeIn pal2()ããWHILE INKEY$ = "": WENDãFadeOut pal2()ãCLSãPutPal pal1()ããSCREEN 0ãWIDTH 80, 25ãENDããREM $STATICãSUB BlackOutãã FOR clr = 0 TO 255ã OUT &H3C8, clrã OUT &H3C9, 0ã OUT &H3C9, 0ã OUT &H3C9, 0ã NEXT clrããEND SUBããSUB BsaveScreen (file$)ããDEF SEG = &HA000ãBSAVE file$, 0, 64000ãDEF SEGããEND SUBããSUB ClrScr (col)ããFillChar &HA000, 0, col, &HFA00ããEND SUBããSUB CyclePal (direction, pal(), numcycles)ããFOR x = 1 TO numcyclesã WaitRetraceã RotatePal direction, pal()ãNEXT xããEND SUBãã'************* EMSPages%() ****************ã'*** When func% is 0, returns the total ***ã'*** number of 16k pages, when func% is ***ã'*** 1, returns the number of available ***ã'*** 16k pages. ***ã'******************************************ãFUNCTION EMSPages% (func%)ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(180)ãasm$ = asm$ + CHR$(66) + CHR$(205) + CHR$(103) + CHR$(139) + CHR$(126)ãasm$ = asm$ + CHR$(6) + CHR$(137) + CHR$(29) + CHR$(139) + CHR$(126)ãasm$ = asm$ + CHR$(8) + CHR$(137) + CHR$(21) + CHR$(93) + CHR$(203)ããTotalPages% = 0: AvailablePages% = 0ããDEF SEG = VARSEG(asm$)ã CALL Absolute(TotalPages%, AvailablePages%, SADD(asm$))ãDEF SEGããIF func% = 0 THENã EMSPages% = TotalPages%ãELSEã EMSPages% = AvailablePages%ãEND IFããEND FUNCTIONãã'**************** EMSstatus%() ******************ã'*** Returns whether EMS is available. -1 is ***ã'*** returned if it is available, 0 otherwise ***ã'************************************************ãFUNCTION EMSstatus%ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(180)ãasm$ = asm$ + CHR$(64) + CHR$(205) + CHR$(103) + CHR$(176) + CHR$(0)ãasm$ = asm$ + CHR$(139) + CHR$(94) + CHR$(6) + CHR$(137) + CHR$(7)ãasm$ = asm$ + CHR$(93) + CHR$(203)ããEMS% = -1ãDEF SEG = VARSEG(asm$)ã CALL Absolute(EMS%, SADD(asm$))ãDEF SEGããIF EMS% = 0 THENã EMSstatus = -1 'EMS installed, set to BASIC's TRUE value.ãELSEã EMSstatus = 0 'EMS not installed, set to FALSE.ãEND IFããEND FUNCTIONããSUB FadeIn (pal())ããDIM Tmp(0 TO 255, 3)ããFOR lp = 1 TO 64ã FOR clr = 0 TO 255ã FOR rgb = 1 TO 3ã IF Tmp(clr, rgb) < pal(clr, rgb) THENã Tmp(clr, rgb) = Tmp(clr, rgb) + 1ã END IFã NEXT rgbã OUT &H3C8, clrã OUT &H3C9, Tmp(clr, 1)ã OUT &H3C9, Tmp(clr, 2)ã OUT &H3C9, Tmp(clr, 3)ã NEXT clrãNEXT lpãããEND SUBããSUB FadeOut (pal())ããDIM Tmp(0 TO 255, 3)ããFOR clr = 0 TO 255ã FOR rgb = 1 TO 3ã Tmp(clr, rgb) = pal(clr, rgb)ã NEXT rgbãNEXT clrããFOR lp = 1 TO 64ã FOR clr = 0 TO 255ã FOR rgb = 1 TO 3ã IF Tmp(clr, rgb) > 0 THENã Tmp(clr, rgb) = Tmp(clr, rgb) - 1ã END IFã NEXT rgbã OUT &H3C8, clrã OUT &H3C9, Tmp(clr, 1)ã OUT &H3C9, Tmp(clr, 2)ã OUT &H3C9, Tmp(clr, 3)ã NEXT clrãNEXT lpãããEND SUBããSUB FillChar (segment, offset, value, bytes)ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(139)ãasm$ = asm$ + CHR$(78) + CHR$(6) + CHR$(139) + CHR$(86) + CHR$(8)ãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(12) + CHR$(30) + CHR$(142)ãasm$ = asm$ + CHR$(216) + CHR$(139) + CHR$(94) + CHR$(10) + CHR$(136)ãasm$ = asm$ + CHR$(23) + CHR$(67) + CHR$(226) + CHR$(251) + CHR$(31)ãasm$ = asm$ + CHR$(93) + CHR$(203)ããDEF SEG = VARSEG(asm$)ã CALL Absolute(BYVAL segment, BYVAL offset, BYVAL value, BYVAL bytes, SADD(asm$))ãDEF SEGããEND SUBããSUB Font (Text$, XStart, Ystart, Xscale, Yscale, Style, clr)ããpx = XStart ' physical x and physical yãpy = YstartããLHeight = Yscale * 8ãOptimize = 63 \ LHeight ' Any constant math operations done multipe timesã ' in the main loop should, well, not be doneã ' in the main loop.ããã' Instead of wasting our time with all this MID$ garbage to access bytes inã' font buffer, we'll just take a PEEK directly at them.ãDEF SEG = VARSEG(FontBuf(0))ãã FOR h = 1 TO LEN(Text$)ã FPtr = 81 * (ASC(MID$(Text$, h, 1)) - 1) - 1ã FOR x = 0 TO 8ã FOR y = 0 TO 8ãã col = PEEK(VARPTR(FontBuf(0)) + FPtr)ã FPtr = FPtr + 1ã IF col THENã SELECT CASE Styleã ' If you desire a y scale factor greater than 8, youã ' must change the division to higher precision...very slow.ã ' Or, you could find a way around it.ã CASE 1: PSET (px, py), Optimize * (py - Ystart) + clrã LINE (px, py)-(px, py + Yscale), Optimize * (py - Ystart) + clrã ' Notice how this style only uses 54 colors, so you can see the topã ' of the letters where they would normally be blackã CASE 2: CIRCLE (px, py), Yscale, (54 \ LHeight) * (py - Ystart) + clr + 9, , , 4ã CASE 3: FOR sty = px TO px + Xscaleã FOR sty2 = py TO py + Yscaleã PSET (sty, sty2), Optimize * (sty2 - Ystart) + clrã IF POINT(sty - 1, sty2) = 0 THEN PSET (sty - 1, sty2), 63 + clr - 1ã IF POINT(sty, sty2 - 1) = 0 THEN PSET (sty, sty2 - 1), 63 + clr - 1ã NEXTã NEXTã CASE 4: FOR sty = px TO px + Xscaleã FOR sty2 = py TO py + Yscaleã PSET (sty + .4 * sty2, sty2), Optimize * (sty2 - Ystart) + clrã IF POINT((sty - 1) + .4 * sty2, sty2) = 0 THEN PSET ((sty - 1) + .4 * sty2, sty2), 63 + clr - 1ã NEXTã NEXTã CASE ELSEã PSET (px, py), clrã END SELECTã END IFã py = py + Yscaleã NEXTã px = px + Xscaleã py = Ystartã NEXTã NEXT hãDEF SEGããEND SUBããSUB FontPalãFOR x = 1 TO 63ã OUT &H3C8, xã OUT &H3C9, xã OUT &H3C9, 0ã OUT &H3C9, 0ãNEXTãFOR x = 64 TO 126ã OUT &H3C8, xã OUT &H3C9, 0ã OUT &H3C9, xã OUT &H3C9, 0ãNEXTãFOR x = 127 TO 189ã OUT &H3C8, xã OUT &H3C9, 0ã OUT &H3C9, 0ã OUT &H3C9, xãNEXTãFOR x = 190 TO 252ã OUT &H3C8, xã OUT &H3C9, xã OUT &H3C9, 0ã OUT &H3C9, xãNEXTãFOR x = 253 TO 255ã OUT &H3C8, xã OUT &H3C9, xã OUT &H3C9, xã OUT &H3C9, xãNEXTãEND SUBãã'********************** GetEMS%() ********************ã'*** Function returns the handle value for a block ***ã'*** of EMS memory that consists of numpages% 16k ***ã'*** pages. You _must_ keep the handle value for ***ã'*** later calls that require the handle. Example:***ã'*** ***ã'*** EmsHandle% = GetEMS%(5) ***ã'*** ***ã'*** EmsHandle% holds the handle info for a block ***ã'*** of memory 5 16k pages in size, oh 80k. ***ã'*****************************************************ãFUNCTION GetEMS% (numpages%)ãã'pageoffset% = EMSPages%(0) - EMSPages%(1)ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(139)ãasm$ = asm$ + CHR$(94) + CHR$(8) + CHR$(180) + CHR$(67) + CHR$(205)ãasm$ = asm$ + CHR$(103) + CHR$(139) + CHR$(94) + CHR$(6) + CHR$(137)ãasm$ = asm$ + CHR$(23) + CHR$(93) + CHR$(203)ããHandle% = 0ãDEF SEG = VARSEG(asm$)ã CALL Absolute(BYVAL numpages%, Handle%, SADD(asm$))ãDEF SEGãã'asm$ = ""ã'asm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(139)ã'asm$ = asm$ + CHR$(86) + CHR$(8) + CHR$(139) + CHR$(126) + CHR$(6)ã'asm$ = asm$ + CHR$(139) + CHR$(118) + CHR$(10) + CHR$(177) + CHR$(0)ã'asm$ = asm$ + CHR$(48) + CHR$(237) + CHR$(180) + CHR$(68) + CHR$(136)ã'asm$ = asm$ + CHR$(200) + CHR$(137) + CHR$(243) + CHR$(205) + CHR$(103)ã'asm$ = asm$ + CHR$(70) + CHR$(65) + CHR$(57) + CHR$(254) + CHR$(117)ã'asm$ = asm$ + CHR$(242) + CHR$(93) + CHR$(203)ã'ã'DEF SEG = VARSEG(asm$)ã' CALL Absolute(BYVAL pageoffset%, BYVAL Handle%, BYVAL numpages%, SADD(asm$))ã'DEF SEGããGetEMS% = Handle%ããEND FUNCTIONããSUB GetPal (pal())ã FOR clr = 0 TO 255ã OUT &H3C7, clrã pal(clr, 1) = INP(&H3C9)ã pal(clr, 2) = INP(&H3C9)ã pal(clr, 3) = INP(&H3C9)ã NEXT clrãEND SUBããSUB GiftoBSAVE (gif$, bsave$, pal$)ããLoadGif gif$ãBsaveScreen bsave$ãSavePal pal$ããEND SUBããSUB LoadFontãã fontfile = FREEFILEãã OPEN "basefont.dat" FOR BINARY AS #fontfileãã IF LOF(fontfile) < 20655 THENã SCREEN 0: WIDTH 80, 25ã COLOR 7ã PRINT "Font data file missing or corrupt. Rebuild it? [(Y)/n]";ã DOã key$ = UCASE$(INKEY$)ã LOOP UNTIL key$ = "N" OR key$ = "Y"ã CLOSE fontfileã IF key$ = "N" THEN EXIT SUBã MakeFontã fontfile = FREEFILEã OPEN "basefont.dat" FOR BINARY AS #fontfileã END IFãã GET #fontfile, , FontBuf(0)ã CLOSE #fontfileããEND SUBããSUB LoadGif (file$)ãDIM byte AS STRING * 1ãDIM Prefix(4095), Suffix(4095), OutStack(4095), shiftout(8)ãDIM Ybase AS LONG, powersof2(11) AS LONG, WorkCode AS LONGããFOR a = 0 TO 7: shiftout(8 - a) = 2 ^ a: NEXT aãFOR a = 0 TO 11: powersof2(a) = 2 ^ a: NEXT aããgiffile = FREEFILEãOPEN file$ FOR BINARY AS #giffileãfile$ = " ": GET #giffile, , file$ãIF file$ <> "GIF87a" THEN PRINT "Not a GIF87a file.": ENDãGET #giffile, , TotalX: GET #giffile, , TotalY: GOSUB GetByteãNumColors = 2 ^ ((a AND 7) + 1): NoPalette = (a AND 128) = 0ãGOSUB GetByte: Background = aãGOSUB GetByte: IF a <> 0 THEN PRINT "Bad screen descriptor.": ENDãIF NoPalette = 0 THEN P$ = SPACE$(NumColors * 3): GET #giffile, , P$ãDOã GOSUB GetByteã IF a = 44 THENã EXIT DOã ELSEIF a <> 33 THENã PRINT "Unknown extension type.": ENDã END IFã GOSUB GetByteã DO: GOSUB GetByte: file$ = SPACE$(a): GET #giffile, , file$: LOOP UNTIL a = 0ãLOOPãGET #giffile, , XStart: GET #giffile, , Ystart: GET #giffile, , XLength: GET #giffile, , YLengthãXEnd = XStart + XLength: YEnd = Ystart + YLength: GOSUB GetByteãIF a AND 128 THEN PRINT "Can't handle local colormaps.": ENDãInterlaced = a AND 64: PassNumber = 0: PassStep = 8ãGOSUB GetByteãClearCode = 2 ^ aãEOSCode = ClearCode + 1ãFirstCode = ClearCode + 2: NextCode = FirstCodeãStartCodeSize = a + 1: CodeSize = StartCodeSizeãStartMaxCode = 2 ^ (a + 1) - 1: MaxCode = StartMaxCodeããBitsIn = 0: BlockSize = 0: BlockPointer = 1ãx = XStart: y = Ystart: Ybase = y * 320&ããIF ActivePageNum = VisiblePageNum THENã DEF SEG = &HA000ãELSEã DEF SEG = VideoSegmentãEND IFããIF NoPalette = 0 THENã OUT &H3C7, 0: OUT &H3C8, 0ã FOR a = 1 TO NumColors * 3: OUT &H3C9, ASC(MID$(P$, a, 1)) \ 4: NEXT aãEND IFãLINE (0, 0)-(319, 199), Background, BFãDOã GOSUB GetCodeã IF Code <> EOSCode THENã IF Code = ClearCode THENã NextCode = FirstCodeã CodeSize = StartCodeSizeã MaxCode = StartMaxCodeã GOSUB GetCodeã CurCode = Code: LastCode = Code: LastPixel = Codeã IF x < 320 THEN POKE x + Ybase, LastPixelã x = x + 1: IF x = XEnd THEN GOSUB NextScanLineã ELSEã CurCode = Code: StackPointer = 0ã IF Code > NextCode THEN EXIT DOã IF Code = NextCode THENã CurCode = LastCodeã OutStack(StackPointer) = LastPixelã StackPointer = StackPointer + 1ã END IFãã DO WHILE CurCode >= FirstCodeã OutStack(StackPointer) = Suffix(CurCode)ã StackPointer = StackPointer + 1ã CurCode = Prefix(CurCode)ã LOOPãã LastPixel = CurCodeã IF x < 320 THEN POKE x + Ybase, LastPixelã x = x + 1: IF x = XEnd THEN GOSUB NextScanLineãã FOR a = StackPointer - 1 TO 0 STEP -1ã IF x < 320 THEN POKE x + Ybase, OutStack(a)ã x = x + 1: IF x = XEnd THEN GOSUB NextScanLineã NEXT aãã IF NextCode < 4096 THENã Prefix(NextCode) = LastCodeã Suffix(NextCode) = LastPixelã NextCode = NextCode + 1ã IF NextCode > MaxCode AND CodeSize < 12 THENã CodeSize = CodeSize + 1ã MaxCode = MaxCode * 2 + 1ã END IFã END IFã LastCode = Codeã END IFã END IFãLOOP UNTIL DoneFlag OR Code = EOSCodeãGOTO LeaveProcããGetByte: file$ = " ": GET #giffile, , file$: a = ASC(file$): RETURNããNextScanLine:ã IF Interlaced THENã y = y + PassStepã IF y >= YEnd THENã PassNumber = PassNumber + 1ã SELECT CASE PassNumberã CASE 1: y = 4: PassStep = 8ã CASE 2: y = 2: PassStep = 4ã CASE 3: y = 1: PassStep = 2ã END SELECTã END IFã ELSEã y = y + 1ã END IFã x = XStart: Ybase = y * 320&: DoneFlag = y > 199ãRETURNãGetCode:ã IF BitsIn = 0 THEN GOSUB ReadBufferedByte: LastChar = a: BitsIn = 8ã WorkCode = LastChar \ shiftout(BitsIn)ã DO WHILE CodeSize > BitsInã GOSUB ReadBufferedByte: LastChar = aã WorkCode = WorkCode OR LastChar * powersof2(BitsIn)ã BitsIn = BitsIn + 8ã LOOPã BitsIn = BitsIn - CodeSizeã Code = WorkCode AND MaxCodeãRETURNãReadBufferedByte:ã IF BlockPointer > BlockSize THENã GOSUB GetByte: BlockSize = aã file$ = SPACE$(BlockSize): GET #giffile, , file$ã BlockPointer = 1ã END IFã a = ASC(MID$(file$, BlockPointer, 1)): BlockPointer = BlockPointer + 1ãRETURNãLeaveProc:ãCLOSEããEND SUBããSUB LoadPal (file$)ããpalfile = FREEFILEãOPEN file$ FOR BINARY AS palfileããFOR clr = 0 TO 255ã OUT &H3C8, clrã OUT &H3C9, ASC(INPUT$(1, palfile))ã OUT &H3C9, ASC(INPUT$(1, palfile))ã OUT &H3C9, ASC(INPUT$(1, palfile))ãNEXT clrããCLOSE palfileããEND SUBããSUB LoadPcx (file$)ãã SCREEN 13ãã DIM pcxpal AS STRING * 768, pcxversion AS STRING * 1ãã pcxnum = FREEFILEã OPEN file$ FOR BINARY AS #pcxnumãã IF LOF(pcxnum) = 0 THENã CLOSE pcxnumã KILL file$ã EXIT SUBã END IFãã GET #pcxnum, 2, pcxversionãã IF ASC(pcxversion) = 5 THENã GET #1, LOF(pcxnum) - 767, pcxpalã pal = 0ã FOR P = 1 TO 768 STEP 3ã OUT &H3C8, palã red% = INT(ASC(MID$(pcxpal, P, 1)) / 4)ã OUT &H3C9, red%ã green% = INT(ASC(MID$(pcxpal, P + 1, 1)) / 4)ã OUT &H3C9, green%ã blue% = INT(ASC(MID$(pcxpal, P + 2, 1)) / 4)ã OUT &H3C9, blue%ã pal = pal + 1ã NEXT Pã END IFã ã SEEK #pcxnum, 129ã ã fxoffset = 0: fxsegment = &HA000ãã datasize = 2000ã ã pcxdata$ = INPUT$(datasize, pcxnum)ã datacount = 1ã FOR half = 1 TO 2ã fxtotal = fxsegment + fxoffsetã DEF SEG = fxtotalã FOR c = 0 TO 31999ã IF datacount > datasize THENã pcxdata$ = INPUT$(datasize, pcxnum)ã datacount = 1ã END IFã clr = ASC(MID$(pcxdata$, datacount, 1))ã datacount = datacount + 1ã IF datacount > datasize THENã pcxdata$ = INPUT$(datasize, pcxnum)ã datacount = 1ã END IFã IF clr > 192 THENã LPS = clr - 192ã clr = ASC(MID$(pcxdata$, datacount, 1))ã datacount = datacount + 1ã FOR L = LPS TO 1 STEP -1ã POKE c, clrã c = c + 1ã NEXT Lã c = c - 1ã ELSEã POKE c, clrã END IFã NEXT cã fxoffset = fxoffset + &H7D0ã NEXT halfãã CLOSE pcxnumãã DEF SEGããEND SUBããSUB MakeFontããfontfile = FREEFILEããOPEN "basefont.dat" FOR BINARY AS #fontfileã' Hey, change 128 to 255 for the full font.ãCLSãSCREEN 13ãCOLOR 16ãFOR ascii = 1 TO 255ã CLSã PRINT CHR$(ascii)ã FOR x = 0 TO 8ã FOR y = 0 TO 8ã pnt$ = CHR$(POINT(x, y))ã PUT #fontfile, , pnt$ã pnt$ = ""ã NEXTã NEXTãNEXTãCLOSEãOPEN "basefont.dat" FOR BINARY AS #fontfileã GET #fontfile, , FontBuf(0)ãCLOSE #fontfileãEND SUBãã'***************** MapEMS () ***********************************ã'*** Sets the page of a memory block (identified by Handle%) ***ã'*** that is located at the beginning of the page frame. ***ã'*** Example: ***ã'*** ***ã'*** EmsHandle% = GetEMS%(8) ***ã'*** MapEMS EmsHandle%, 4 ***ã'*** ***ã'*** When the page frame segment is next written to, the info***ã'*** will be placed starting at the 4th page in the block of ***ã'*** memory represented by EmsHandle%. This could be use, ***ã'*** for instance, to store multiple SCREEN 13 images in one ***ã'*** EMS block, by moving the first 64k image into the first ***ã'*** 4 16k pages (16000 * 4 = 64000) by using: ***ã'*** ***ã'*** MapEMS EmsHandle%, 0 ***ã'*** ***ã'*** And then putting the next 64k image into the next 4 EMS ***ã'*** pages by using: ***ã'*** ***ã'*** MapEMS EmsHandle%, 4 ***ã'*** ***ã'*** ... and then moving the image into the memory block. ***ã'***************************************************************ãSUB MapEMS (Handle%, pageoffset%)ããnumpages% = 4ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(139)ãasm$ = asm$ + CHR$(86) + CHR$(8) + CHR$(139) + CHR$(126) + CHR$(6)ãasm$ = asm$ + CHR$(139) + CHR$(118) + CHR$(10) + CHR$(177) + CHR$(0)ãasm$ = asm$ + CHR$(48) + CHR$(237) + CHR$(180) + CHR$(68) + CHR$(136)ãasm$ = asm$ + CHR$(200) + CHR$(137) + CHR$(243) + CHR$(205) + CHR$(103)ãasm$ = asm$ + CHR$(70) + CHR$(65) + CHR$(57) + CHR$(249) + CHR$(117)ãasm$ = asm$ + CHR$(242) + CHR$(93) + CHR$(203)ããDEF SEG = VARSEG(asm$)ã CALL Absolute(BYVAL pageoffset%, BYVAL Handle%, BYVAL numpages%, SADD(asm$))ãDEF SEGããEND SUBããSUB MemCopy (fromseg, fromoff, toseg, tooff, bytes)ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(30)ãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(10) + CHR$(142) + CHR$(192)ãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(14) + CHR$(142) + CHR$(216)ãasm$ = asm$ + CHR$(139) + CHR$(118) + CHR$(8) + CHR$(139) + CHR$(126)ãasm$ = asm$ + CHR$(12) + CHR$(139) + CHR$(78) + CHR$(6) + CHR$(243)ãasm$ = asm$ + CHR$(164) + CHR$(31) + CHR$(93) + CHR$(203)ããDEF SEG = VARSEG(asm$)ã CALL Absolute(BYVAL fromseg, BYVAL fromoff, BYVAL toseg, BYVAL tooff, BYVAL bytes, SADD(asm$))ãDEF SEGããEND SUBãã'****************************** NumEMSHandles%() *********************ã'*** Returns the number of EMS handles presently being used (there ***ã'*** are a maximum of 256 handles possible at any given time). ***ã'*********************************************************************ãFUNCTION NumEMSHandles%ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(180)ãasm$ = asm$ + CHR$(75) + CHR$(205) + CHR$(103) + CHR$(139) + CHR$(126)ãasm$ = asm$ + CHR$(6) + CHR$(137) + CHR$(29) + CHR$(93) + CHR$(203)ããNumHandles% = 0ãDEF SEG = VARSEG(asm$)ã CALL Absolute(NumHandles%, SADD(asm$))ãDEF SEGããNumEMSHandles% = NumHandles%ããEND FUNCTIONãã'***************************** NumEMSPages%() *************************ã'*** Returns the number of 16k pages being used by the memory block ***ã'*** that is represented by Handle%. ***ã'**********************************************************************ãFUNCTION NumEMSPages% (Handle%)ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(139)ãasm$ = asm$ + CHR$(86) + CHR$(6) + CHR$(180) + CHR$(76) + CHR$(205)ãasm$ = asm$ + CHR$(103) + CHR$(139) + CHR$(126) + CHR$(8) + CHR$(137)ãasm$ = asm$ + CHR$(29) + CHR$(93) + CHR$(203)ããDEF SEG = VARSEG(asm$)ã CALL Absolute(numpages%, Handle%, SADD(asm$))ãDEF SEGããNumEMSPages% = numpages%ããEND FUNCTIONãã'******************************* PageFrame% ***************************ã'*** Returns the segment that you will need to write to in order to ***ã'*** store your data into EMS memory. For example, PageFrame% may ***ã'*** return D000 (HEX, -12288 decimal), and then you might do this: ***ã'*** ***ã'*** DEF SEG = PageFrame% 'D000 ***ã'*** MyData$ = "This is a block of data I want to store in EMS." ***ã'*** FOR X = 1 TO LEN(MyData$) ***ã'*** POKE X, ASC(MID$(MyData$, X, 1)) ***ã'*** NEXT X ***ã'*** DEF SEG ***ã'*** ***ã'*** Note, though, that you have to have a block of EMS opened with ***ã'*** GetEMS%() and maped with MapEMS before you can write to the ***ã'*** block. ***ã'**********************************************************************ãFUNCTION PageFrame%ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(180)ãasm$ = asm$ + CHR$(65) + CHR$(205) + CHR$(103) + CHR$(139) + CHR$(126)ãasm$ = asm$ + CHR$(6) + CHR$(137) + CHR$(29) + CHR$(93) + CHR$(203)ããPageFrameAddr% = 0ãDEF SEG = VARSEG(asm$)ã CALL Absolute(PageFrameAddr%, SADD(asm$))ãDEF SEGããPageFrame% = PageFrameAddr%ããEND FUNCTIONããSUB PutPal (pal())ã ã FOR clr = 0 TO 255ã OUT &H3C8, clrã OUT &H3C9, pal(clr, 1)ã OUT &H3C9, pal(clr, 2)ã OUT &H3C9, pal(clr, 3)ã NEXT clrããEND SUBãã'****************************** ReleaseEMS() **************************ã'*** Releases the EMS memory associated with Handle%. This is very ***ã'*** important to do before you exit your program, otherwise the ***ã'*** memory being used by your open handles will not be available ***ã'*** again until you reboot. ***ã'**********************************************************************ãSUB ReleaseEMS (Handle%)ããasm$ = ""ãasm$ = asm$ + CHR$(85) + CHR$(137) + CHR$(229) + CHR$(180)ãasm$ = asm$ + CHR$(69) + CHR$(139) + CHR$(86) + CHR$(6) + CHR$(205)ãasm$ = asm$ + CHR$(103) + CHR$(93) + CHR$(203)ããDEF SEG = VARSEG(asm$)ã CALL Absolute(BYVAL Handle%, SADD(asm$))ãDEF SEGããEND SUBããSUB RotatePal (direction, pal())ãã SELECT CASE directionã CASE 1ã temp1 = pal(255, 1)ã temp2 = pal(255, 2)ã temp3 = pal(255, 3)ã FOR rgb = 1 TO 3ã FOR col = 254 TO 0 STEP -1ã pal(col + 1, rgb) = pal(col, rgb)ã NEXT colã NEXT rgbã pal(0, 1) = temp1ã pal(0, 2) = temp2ã pal(0, 3) = temp3ã CASE -1ã temp1 = pal(0, 1)ã temp2 = pal(0, 2)ã temp3 = pal(0, 3)ã FOR rgb = 1 TO 3ã FOR col = 0 TO 254ã pal(col, rgb) = pal(col + 1, rgb)ã NEXT colã NEXT rgbã pal(255, 1) = temp1ã pal(255, 2) = temp2ã pal(255, 3) = temp3ã END SELECTãã PutPal pal()ããEND SUBããSUB SavePal (file$)ãã palfile = FREEFILEã OPEN file$ FOR OUTPUT AS palfileãã FOR clr = 0 TO 255ã OUT &H3C7, clrã PRINT #palfile, CHR$(INP(&H3C9));ã PRINT #palfile, CHR$(INP(&H3C9));ã PRINT #palfile, CHR$(INP(&H3C9));ã NEXT clrãã CLOSE palfileããEND SUBããSUB SetPal (pal())ãEND SUBããSUB WaitRetraceã WAIT &H3DA, 8ãEND SUBãRyan White VORTEX BIGFOOT@SunBelt.Net 09-06-96 (11:42) QB, QBasic, PDS 39 2397 VORTEX.BAS 'Vortexã'By Ryan Whiteã'This is a sample of my abilities with palettes and wierd designs.ã'If you would like to get more of these type programs, write me atã'Bigfoot@Sunbelt.Net or Bigfoot@InfoAve.Netã'I have more than 575 Qbasic programs to my name, and it grows daily.ã'Ah well, enjoy...ããã'This one is much faster compiled. A little too fast.ããSCREEN 13ãDEFINT A-WãCLSãDIM c(255, 2), co(255, 2)ãFOR n = 0 TO 15ãc(n, 0) = n * 4: c(n, 1) = n * 4: c(n, 2) = n * 4: c(n + 16, 0) = 63: c(n + 16, 1) = 63 - n * 4: c(n + 16, 2) = 63 - n * 4: c(n + 32, 0) = 63: c(n + 32, 1) = n * 2: c(n + 32, 2) = 0ãc(n + 48, 0) = 63: c(n + 48, 1) = n * 2 + 31: c(n + 48, 2) = 0: c(n + 64, 0) = 63 - n * 4: c(n + 64, 1) = 63: c(n + 64, 2) = 0: c(n + 80, 0) = 0: c(n + 80, 1) = 63 - n * 2: c(n + 80, 2) = n * 4ãc(n + 96, 0) = 0: c(n + 96, 1) = 32 - n * 2: c(n + 96, 2) = 60: c(n + 112, 0) = n * 3: c(n + 112, 1) = 0: c(n + 112, 2) = 60: c(n + 128, 0) = 45 - n * 3: c(n + 128, 1) = 0: c(n + 128, 2) = 60ãc(n + 144, 0) = 0: c(n + 144, 1) = n * 2: c(n + 144, 2) = 60: c(n + 160, 0) = 0: c(n + 160, 1) = 30 + n * 2: c(n + 160, 2) = 60 - n * 4: c(n + 176, 0) = n * 4: c(n + 176, 1) = 63: c(n + 176, 2) = 0ãc(n + 192, 0) = 63: c(n + 192, 1) = 60 - n * 2: c(n + 192, 2) = 0: c(n + 208, 0) = 63: c(n + 208, 1) = 30 - n * 2: c(n + 208, 2) = 0: c(n + 224, 0) = 60 - n * 2: c(n + 224, 1) = n * 2: c(n + 224, 2) = n * 2ãc(n + 240, 0) = 30 - n * 2: c(n + 240, 1) = 30 - n * 2: c(n + 240, 2) = 30 - n * 2: NEXT n: FOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT m: NEXT nããn = 0: x = 5ãFOR I = 200 TO 40 STEP -1: n = n + 1: IF n = 256 THEN n = 1ãx = x / 1.003: FOR j = 1 TO 10: CIRCLE (160, I), x, n, , , .5: x = x * 1.003: NEXT jãNEXT Iãã'FOR n = -15 TO 15:LINE (105 + n, 65 + n)-(215 - n, 175 - n), 50 + n, B:NEXT nã'FOR n = 1 TO 33:FOR m = -1 TO 1:CIRCLE (110, 170 + m), n, 255 - n, , , 1:CIRCLE (210, 170 + m), n, 255 - n, , , 1:CIRCLE (110, 70 + m), n, 255 - n, , , 1:CIRCLE (210, 70 + m), n, 255 - n, , , 1:NEXT m:NEXT nããDO UNTIL INKEY$ <> ""ãFOR n = 1 TO 255: OUT &H3C7, n: FOR m = 0 TO 2: co(n, m) = INP(&H3C9): NEXT m: NEXT nãc(255, 0) = co(1, 0): c(255, 1) = co(1, 1): c(255, 2) = co(1, 2)ãFOR n = 1 TO 254: FOR m = 0 TO 2: c(n, m) = co(n + 1, m): NEXT m: NEXT nãFOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT m: NEXT nãLOOPãããRyan White COLOR MORPH BIGFOOT@SunBelt.Net 09-06-96 (12:31) QB, QBasic, PDS 80 2929 CMORPH.BAS 'color morphã'By Ryan Whiteã'This is a sample of my abilities with palettes and wierd designs.ã'If you would like to get more of these type programs, write me atã'Bigfoot@Sunbelt.Net or Bigfoot@InfoAve.Netã'I have more than 575 Qbasic programs to my name, and it grows daily.ã'Ah well, enjoy...ããSCREEN 13ãCLSãDEFINT A-ZãDIM c(255, 2), co(255, 2)ãFOR n = 0 TO 15ã'black white red orange yellow green blue's purple ~then backwards~ã'0-15 black to whiteãc(n, 0) = n * 4: c(n, 1) = n * 4: c(n, 2) = n * 4ã'16-31 white to redãc(n + 16, 0) = 63: c(n + 16, 1) = 63 - n * 4: c(n + 16, 2) = 63 - n * 4ã'32-47 red to orangeãc(n + 32, 0) = 63: c(n + 32, 1) = n * 2: c(n + 32, 2) = 0ã'48-63 orange to yellowãc(n + 48, 0) = 63: c(n + 48, 1) = n * 2 + 31: c(n + 48, 2) = 0ã'64-79 yellow to greenãc(n + 64, 0) = 63 - n * 4: c(n + 64, 1) = 63: c(n + 64, 2) = 0ã'80-95 green to l.blueãc(n + 80, 0) = 0: c(n + 80, 1) = 63 - n * 2: c(n + 80, 2) = n * 4ã'96-111 l.blue to d.blueãc(n + 96, 0) = 0: c(n + 96, 1) = 32 - n * 2: c(n + 96, 2) = 60ã'112-127 d.blue to purpleãc(n + 112, 0) = n * 3: c(n + 112, 1) = 0: c(n + 112, 2) = 60ã'128-143 purple to d.blueãc(n + 128, 0) = 45 - n * 3: c(n + 128, 1) = 0: c(n + 128, 2) = 60ã'144-159 d.blue to l.blueãc(n + 144, 0) = 0: c(n + 144, 1) = n * 2: c(n + 144, 2) = 60ã'160-175 l.blue to greenãc(n + 160, 0) = 0: c(n + 160, 1) = 30 + n * 2: c(n + 160, 2) = 60 - n * 4ã'176-191 green to yellowãc(n + 176, 0) = n * 4: c(n + 176, 1) = 63: c(n + 176, 2) = 0ã'192-207 yellow to orangeãc(n + 192, 0) = 63: c(n + 192, 1) = 60 - n * 2: c(n + 192, 2) = 0ã'208-223 orange to redãc(n + 208, 0) = 63: c(n + 208, 1) = 30 - n * 2: c(n + 208, 2) = 0ã'224-239 red to grayãc(n + 224, 0) = 60 - n * 2: c(n + 224, 1) = n * 2: c(n + 224, 2) = n * 2ã'240-255 gray to blackãc(n + 240, 0) = 30 - n * 2: c(n + 240, 1) = 30 - n * 2: c(n + 240, 2) = 30 - n * 2ãNEXT nãFOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT m: NEXT nããFOR x = 0 TO 319ãc = c + 1: IF c = 256 THEN c = 1ãLINE (x, 0)-(159, 100), cãNEXT xãFOR y = 0 TO 199ãc = c + 1: IF c = 256 THEN c = 1ãLINE (319, y)-(159, 100), cãNEXT yãFOR x = 319 TO 0 STEP -1ãc = c + 1: IF c = 256 THEN c = 1ãLINE (x, 199)-(159, 100), cãNEXT xãFOR y = 199 TO 0 STEP -1ãc = c + 1: IF c = 256 THEN c = 1ãLINE (0, y)-(159, 100), cãNEXT yããFOR r = 60 TO 1 STEP -1ãFOR m = -1 TO 1ãc = c + 1: IF c = 256 THEN c = 1ãCIRCLE (159, 100 + m), r, c, , , 1ãNEXT mãNEXT rããDO UNTIL INKEY$ <> ""ãFOR n = 1 TO 255: OUT &H3C7, n: FOR m = 0 TO 2: co(n, m) = INP(&H3C9): NEXT m: NEXT nãc(255, 0) = co(1, 0): c(255, 1) = co(1, 1): c(255, 2) = co(1, 2)ãFOR n = 1 TO 254: FOR m = 0 TO 2: c(n, m) = co(n + 1, m): NEXT m: NEXT nãFOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT m: NEXT nãLOOPããRyan White FLYING BEES #2 BIGFOOT@SunBelt.Net 09-06-96 (12:31) QB, QBasic, PDS 131 4288 FLYBEES2.BASDECLARE SUB wasp (wx%(), wy%())ãDECLARE SUB bees (wx%(), wy%(), x%(), y%(), xv%(), yv%(), bcolor%)ãDEFINT A-ZãCOMMON SHARED winW, winH, winX, winY, border, NoBees, smoothãã'Flybees #2ã'By Ryan White Original source by Richard Daleã'This is a sample of my abilities with palettes and wierd designs.ã'If you would like to get more of these type programs, write me atã'Bigfoot@Sunbelt.Net or Bigfoot@InfoAve.Netã'I have more than 575 Qbasic programs to my name, and it grows daily.ã'Ah well, enjoy...ãã'Just mess with it to learn. I just thought his was neat enough to maybe beã'cooler. It was.ãããON KEY(1) GOSUB cle: KEY(1) ONãON KEY(2) GOSUB ss: KEY(2) ONãON KEY(3) GOSUB smoothhuh: KEY(3) ONããDEFLNG T: CLSããNoBees = 40ããSCREEN 12: RANDOMIZE TIMER: CLSãGOSUB ssãDIM wx(0 TO 2), wy(0 TO 2), co(15, 2), cn(15, 2)ãDIM x(0 TO 2, 1 TO NoBees): DIM y(0 TO 2, 1 TO NoBees)ãDIM xv(1 TO NoBees): DIM yv(1 TO NoBees)ãwinW = 0: winH = 0: winX = 0: winY = 0: maxx = 640: maxy = 480ã' wasp will not go closer than this to the edgesã border = INT(RND * 75): winW = maxx: winH = maxyã' Initialize the waspã wx(0) = 640 / 2: wy(0) = 480 / 2: wx(1) = wx(0): wy(1) = wy(0)ã'Initialize the beesã FOR b = 1 TO NoBeesã x(0, b) = INT(RND * winW): x(1, b) = x(0, b)ã y(0, b) = INT(RND * winH): y(1, b) = y(0, b)ã xv(b) = 7 * (RND - .5): yv(b) = 7 * (RND - .5)ã NEXT bã DO UNTIL INKEY$ <> ""ã CALL wasp(wx(), wy()): CALL bees(wx(), wy(), x(), y(), xv(), yv(), bcolor)ã GOSUB dinã bcolor = bcolor + 1ã IF bcolor = 15 THEN bcolor = 1ã LOOP: SCREEN 0ãENDããcle:ãCLSãRETURNããss:ãrr = INT(RND * 5): gr = INT(RND * 5): br = INT(RND * 5)ãFOR n = 1 TO 14ãOUT &H3C8, nãOUT &H3C9, n * rr + 3ãOUT &H3C9, n * gr + 3ãOUT &H3C9, n * br + 3ãNEXT nãRETURNããdin:ãFOR n = 14 TO 1 STEP -1: OUT &H3C7, n: FOR m = 0 TO 2: co(n, m) = INP(&H3C9): NEXT m: NEXT nãcn(1, 0) = co(14, 0): cn(1, 1) = co(14, 1): cn(1, 2) = co(14, 2)ãFOR n = 14 TO 2 STEP -1: FOR m = 0 TO 2: cn(n, m) = co(n - 1, m): NEXT m: NEXT nãFOR n = 14 TO 1 STEP -1: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, cn(n, m): NEXT m: NEXT nãRETURNããsmoothhuh:ãsmooth = smooth - 1: IF smooth = -1 THEN smooth = 1ãRETURNããDEFINT TãSUB bees (wx(), wy(), x(), y(), xv(), yv(), bcolor)ã' Do not let things settle downã bb = INT(NoBees * RND + 1)ã xv(bb) = xv(bb) + (RND - .5) * 3: yv(bb) = yv(bb) + (RND - .5) * 3ãFOR b = 1 TO NoBeesã' Age position arraysã x(2, b) = x(1, b): y(2, b) = y(1, b)ã x(1, b) = x(0, b): y(1, b) = y(0, b)ã dx = wx(1) - x(1, b): dy = wy(1) - y(1, b)ã distance = ABS(dx) + ABS(dy) ' Approximationã IF distance = 0 THEN distance = 1ã bee.acc = 3ã' Accelerateã xv(b) = xv(b) + dx * bee.acc / distanceã yv(b) = yv(b) + dy * bee.acc / distanceã bee.vel = 11ã' Speed Checksã IF xv(b) > bee.vel THEN xv(b) = bee.velã IF xv(b) < -bee.vel THEN xv(b) = -bee.velã IF yv(b) > bee.vel THEN yv(b) = bee.velã IF yv(b) < -bee.vel THEN yv(b) = -bee.velã' Move the beesã IF smooth = 1 THEN 'non smoothã x(0, b) = x(1, b) + INT(RND * xv(b) + .25 * xv(b)): y(0, b) = y(1, b) + INT(RND * yv(b) + .25 * yv(b))ã END IFã IF smooth = 0 THEN 'smoothã x(0, b) = x(1, b) + xv(b): y(0, b) = y(1, b) + yv(b)ã END IFã LINE (x(0, b), y(0, b))-(x(1, b), y(1, b)), bcolorã NEXT bãEND SUBããSUB wasp (wx(), wy()) STATICã' Age the arraysã wx(2) = wx(1): wx(1) = wx(0): wy(2) = wy(1): wy(1) = wy(0)ã' Accelerate (bias random variable to ensure wasp convers entire screen)ã wasp.acc = 5ã wxv = wxv + INT((RND - .4) * wasp.acc)ã wyv = wyv + INT((RND - .4) * wasp.acc)ã' Speed limit checksã wxv.max = INT(RND * 30) + 20: wyv.max = INT(RND * 30) + 20ã IF wxv > wxv.max THEN wxv = wxv.maxã IF wxv < -wxv.max THEN wxv = -wxv.maxã IF wyv > wyv.max THEN wyv = wyv.maxã IF wyv < -wyv.max THEN wyv = -wyv.maxã' Move waspã wx(0) = wx(1) + wxv: wy(0) = wy(1) + wyvã' Bounce checksã IF wx(0) < border OR wx(0) > winW - border - 1 THENã wxv = -wxv: wx(0) = wx(0) + wxvã END IFã IF wy(0) < border OR wy(0) > winH - border - 1 THENã wyv = -wyv: wy(0) = wy(0) + wyvã END IFãEND SUBããRyan White FLYING BEES #8 BIGFOOT@SunBelt.Net 09-06-96 (12:31) QB, QBasic, PDS 135 4506 FLYBEES8.BASDECLARE SUB wasp (wx%(), wy%())ãDECLARE SUB bees (wx%(), wy%(), x%(), y%(), xv%(), yv%(), bcolor%)ãDEFINT A-ZãCOMMON SHARED winW, winH, winX, winY, border, NoBees, smoothãã'Flybees #8ã'By Ryan White Original source by Richard Daleã'This is a sample of my abilities with palettes and wierd designs.ã'If you would like to get more of these type programs, write me atã'Bigfoot@Sunbelt.Net or Bigfoot@InfoAve.Netã'I have more than 575 Qbasic programs to my name, and it grows daily.ã'Ah well, enjoy...ãã'Just mess with it to learn. I just thought his was neat enough to maybe beã'cooler. It was.ããããON KEY(1) GOSUB cle: KEY(1) ONãON KEY(2) GOSUB ss: KEY(2) ONãON KEY(3) GOSUB smoothhuh: KEY(3) ONããDEFLNG T: CLSããNoBees = 40ããSCREEN 12: RANDOMIZE TIMER: CLSãGOSUB ssãDIM wx(0 TO 2), wy(0 TO 2), co(15, 2), cn(15, 2)ãDIM x(0 TO 2, 1 TO NoBees): DIM y(0 TO 2, 1 TO NoBees)ãDIM xv(1 TO NoBees): DIM yv(1 TO NoBees)ãwinW = 0: winH = 0: winX = 0: winY = 0: maxx = 640: maxy = 480ã' wasp will not go closer than this to the edgesã border = INT(RND * 75): winW = maxx: winH = maxyã' Initialize the waspã wx(0) = 640 / 2: wy(0) = 480 / 2: wx(1) = wx(0): wy(1) = wy(0)ã'Initialize the beesã FOR b = 1 TO NoBeesã x(0, b) = INT(RND * winW): x(1, b) = x(0, b)ã y(0, b) = INT(RND * winH): y(1, b) = y(0, b)ã xv(b) = 7 * (RND - .5): yv(b) = 7 * (RND - .5)ã NEXT bã DO UNTIL INKEY$ <> ""ã CALL wasp(wx(), wy()): CALL bees(wx(), wy(), x(), y(), xv(), yv(), bcolor)ã GOSUB dinã bcolor = bcolor + 1ã IF bcolor = 15 THEN bcolor = 1ã LOOP: SCREEN 0ãENDããcle:ãCLSãRETURNããss:ãrr = INT(RND * 5): gr = INT(RND * 5): br = INT(RND * 5)ãFOR n = 1 TO 14ãOUT &H3C8, nãOUT &H3C9, n * rr + 3ãOUT &H3C9, n * gr + 3ãOUT &H3C9, n * br + 3ãNEXT nãRETURNããdin:ãFOR n = 14 TO 1 STEP -1: OUT &H3C7, n: FOR m = 0 TO 2: co(n, m) = INP(&H3C9): NEXT m: NEXT nãcn(1, 0) = co(14, 0): cn(1, 1) = co(14, 1): cn(1, 2) = co(14, 2)ãFOR n = 14 TO 2 STEP -1: FOR m = 0 TO 2: cn(n, m) = co(n - 1, m): NEXT m: NEXT nãFOR n = 14 TO 1 STEP -1: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, cn(n, m): NEXT m: NEXT nãRETURNããsmoothhuh:ãsmooth = smooth - 1: IF smooth = -1 THEN smooth = 1ãRETURNããDEFINT TãSUB bees (wx(), wy(), x(), y(), xv(), yv(), bcolor)ã' Do not let things settle downã bb = INT(NoBees * RND + 1)ã xv(bb) = xv(bb) + (RND - .5) * 3: yv(bb) = yv(bb) + (RND - .5) * 3ãFOR b = 1 TO NoBeesã' Age position arraysã x(2, b) = x(1, b): y(2, b) = y(1, b)ã x(1, b) = x(0, b): y(1, b) = y(0, b)ã dx = wx(1) - x(1, b): dy = wy(1) - y(1, b)ã distance = ABS(dx) + ABS(dy) ' Approximationã IF distance = 0 THEN distance = 1ã bee.acc = 3ã' Accelerateã xv(b) = xv(b) + dx * bee.acc / distanceã yv(b) = yv(b) + dy * bee.acc / distanceã bee.vel = 11ã' Speed Checksã IF xv(b) > bee.vel THEN xv(b) = bee.velã IF xv(b) < -bee.vel THEN xv(b) = -bee.velã IF yv(b) > bee.vel THEN yv(b) = bee.velã IF yv(b) < -bee.vel THEN yv(b) = -bee.velã' Move the beesã IF smooth = 1 THEN 'non smoothã x(0, b) = x(1, b) + INT(RND * xv(b) + .25 * xv(b)): y(0, b) = y(1, b) + INT(RND * yv(b) + .25 * yv(b))ã END IFã IF smooth = 0 THEN 'smoothã x(0, b) = x(1, b) + xv(b): y(0, b) = y(1, b) + yv(b)ã END IFã LINE (x(0, b), y(0, b))-(x(1, b), y(1, b)), bcolorã LINE (639 - x(0, b), y(0, b))-(639 - x(1, b), y(1, b)), bcolorã LINE (x(0, b), 479 - y(0, b))-(x(1, b), 479 - y(1, b)), bcolorã LINE (639 - x(0, b), 479 - y(0, b))-(639 - x(1, b), 479 - y(1, b)), bcolorã NEXT bãEND SUBããSUB wasp (wx(), wy()) STATICã' Age the arraysã wx(2) = wx(1): wx(1) = wx(0): wy(2) = wy(1): wy(1) = wy(0)ã' Accelerate (bias random variable to ensure wasp convers entire screen)ã wasp.acc = 5ã wxv = wxv + INT((RND - .4) * wasp.acc)ã wyv = wyv + INT((RND - .4) * wasp.acc)ã' Speed limit checksã wxv.max = INT(RND * 30) + 20: wyv.max = INT(RND * 30) + 20ã IF wxv > wxv.max THEN wxv = wxv.maxã IF wxv < -wxv.max THEN wxv = -wxv.maxã IF wyv > wyv.max THEN wyv = wyv.maxã IF wyv < -wyv.max THEN wyv = -wyv.maxã' Move waspã wx(0) = wx(1) + wxv: wy(0) = wy(1) + wyvã' Bounce checksã IF wx(0) < border OR wx(0) > winW - border - 1 THENã wxv = -wxv: wx(0) = wx(0) + wxvã END IFã IF wy(0) < border OR wy(0) > winH - border - 1 THENã wyv = -wyv: wy(0) = wy(0) + wyvã END IFãEND SUBããRyan White FLYING BEES #9 BIGFOOT@SunBelt.Net 09-06-96 (12:31) QB, QBasic, PDS 142 4593 FLYBEES9.BASDECLARE SUB wasp (wx%(), wy%())ãDECLARE SUB bees (wx%(), wy%(), x%(), y%(), xv%(), yv%(), bcolor%)ãã'Flybees #9ã'By Ryan White Original source by Richard Daleã'This is a sample of my abilities with palettes and wierd designs.ã'If you would like to get more of these type programs, write me atã'Bigfoot@Sunbelt.Net or Bigfoot@InfoAve.Netã'I have more than 575 Qbasic programs to my name, and it grows daily.ã'Ah well, enjoy...ãã'Just mess with it to learn. I just thought his was neat enough to maybe beã'cooler. It was.ããDEFINT A-ZãCOMMON SHARED winW, winH, winX, winY, border, NoBees, smoothããON KEY(1) GOSUB cle: KEY(1) ONãON KEY(2) GOSUB ss: KEY(2) ONãON KEY(3) GOSUB smoothhuh: KEY(3) ONããDEFLNG T: CLSããNoBees = 1ããSCREEN 12: RANDOMIZE TIMER: CLSãGOSUB ssãDIM wx(0 TO 2), wy(0 TO 2), co(15, 2), cn(15, 2)ãDIM x(0 TO 2, 1 TO NoBees): DIM y(0 TO 2, 1 TO NoBees)ãDIM xv(1 TO NoBees): DIM yv(1 TO NoBees)ãwinW = 0: winH = 0: winX = 0: winY = 0: maxx = 640: maxy = 480ã' wasp will not go closer than this to the edgesã border = INT(RND * 75): winW = maxx: winH = maxyã' Initialize the waspã wx(0) = 640 / 2: wy(0) = 480 / 2: wx(1) = wx(0): wy(1) = wy(0)ã'Initialize the beesã FOR b = 1 TO NoBeesã x(0, b) = INT(RND * winW): x(1, b) = x(0, b)ã y(0, b) = INT(RND * winH): y(1, b) = y(0, b)ã xv(b) = 7 * (RND - .5): yv(b) = 7 * (RND - .5)ã NEXT bã DO UNTIL INKEY$ <> ""ã CALL wasp(wx(), wy()): CALL bees(wx(), wy(), x(), y(), xv(), yv(), bcolor)ã GOSUB dinã bcolor = bcolor + 1ã IF bcolor = 15 THEN bcolor = 1ã LOOP: SCREEN 0ãENDããcle:ãCLSãRETURNããss:ãrr = INT(RND * 5): gr = INT(RND * 5): br = INT(RND * 5)ãFOR n = 1 TO 14ãOUT &H3C8, nãOUT &H3C9, n * rr + 3ãOUT &H3C9, n * gr + 3ãOUT &H3C9, n * br + 3ãNEXT nãRETURNããdin:ãFOR n = 14 TO 1 STEP -1: OUT &H3C7, n: FOR m = 0 TO 2: co(n, m) = INP(&H3C9): NEXT m: NEXT nãcn(1, 0) = co(14, 0): cn(1, 1) = co(14, 1): cn(1, 2) = co(14, 2)ãFOR n = 14 TO 2 STEP -1: FOR m = 0 TO 2: cn(n, m) = co(n - 1, m): NEXT m: NEXT nãFOR n = 14 TO 1 STEP -1: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, cn(n, m): NEXT m: NEXT nãRETURNããsmoothhuh:ãsmooth = smooth - 1: IF smooth = -1 THEN smooth = 1ãRETURNããDEFINT TãSUB bees (wx(), wy(), x(), y(), xv(), yv(), bcolor)ã' Do not let things settle downã bb = INT(NoBees * RND + 1)ã xv(bb) = xv(bb) + (RND - .5) * 3: yv(bb) = yv(bb) + (RND - .5) * 3ãFOR b = 1 TO NoBeesã' Age position arraysã x(2, b) = x(1, b): y(2, b) = y(1, b)ã x(1, b) = x(0, b): y(1, b) = y(0, b)ã dx = wx(1) - x(1, b): dy = wy(1) - y(1, b)ã distance = ABS(dx) + ABS(dy) ' Approximationã IF distance = 0 THEN distance = 1ã bee.acc = 3ã' Accelerateã xv(b) = xv(b) + dx * bee.acc / distanceã yv(b) = yv(b) + dy * bee.acc / distanceã bee.vel = 11ã' Speed Checksã IF xv(b) > bee.vel THEN xv(b) = bee.velã IF xv(b) < -bee.vel THEN xv(b) = -bee.velã IF yv(b) > bee.vel THEN yv(b) = bee.velã IF yv(b) < -bee.vel THEN yv(b) = -bee.velã' Move the beesã IF smooth = 1 THEN 'non smoothã x(0, b) = x(1, b) + INT(RND * xv(b) + .25 * xv(b)): y(0, b) = y(1, b) + INT(RND * yv(b) + .25 * yv(b))ã END IFã IF smooth = 0 THEN 'smoothã x(0, b) = x(1, b) + xv(b): y(0, b) = y(1, b) + yv(b)ã END IFã FOR sx = 0 TO 639 STEP 25ã LINE (x(1, b), y(0, b))-(sx, 0), bcolorã NEXT sxã FOR sy = 0 TO 479 STEP 25ã LINE (x(1, b), y(0, b))-(639, sy), bcolorã NEXT syã FOR sx = 639 TO 0 STEP -25ã LINE (x(1, b), y(0, b))-(sx, 479), bcolorã NEXT sxã FOR sy = 479 TO 0 STEP -25ã LINE (x(1, b), y(0, b))-(0, sy), bcolorã NEXT syã NEXT bãEND SUBããSUB wasp (wx(), wy()) STATICã' Age the arraysã wx(2) = wx(1): wx(1) = wx(0): wy(2) = wy(1): wy(1) = wy(0)ã' Accelerate (bias random variable to ensure wasp convers entire screen)ã wasp.acc = 5ã wxv = wxv + INT((RND - .4) * wasp.acc)ã wyv = wyv + INT((RND - .4) * wasp.acc)ã' Speed limit checksã wxv.max = INT(RND * 30) + 20: wyv.max = INT(RND * 30) + 20ã IF wxv > wxv.max THEN wxv = wxv.maxã IF wxv < -wxv.max THEN wxv = -wxv.maxã IF wyv > wyv.max THEN wyv = wyv.maxã IF wyv < -wyv.max THEN wyv = -wyv.maxã' Move waspã wx(0) = wx(1) + wxv: wy(0) = wy(1) + wyvã' Bounce checksã IF wx(0) < border OR wx(0) > winW - border - 1 THENã wxv = -wxv: wx(0) = wx(0) + wxvã END IFã IF wy(0) < border OR wy(0) > winH - border - 1 THENã wyv = -wyv: wy(0) = wy(0) + wyvã END IFãEND SUBããRyan White GEOMETRY SICKENER BIGFOOT@SunBelt.Net 09-06-96 (12:31) QB, QBasic, PDS 87 2422 GEOMSICK.BAS'GEOMETRY SICKENERã'By Ryan Whiteã'This is a sample of my abilities with palettes and wierd designs.ã'If you would like to get more of these type programs, write me atã'Bigfoot@Sunbelt.Net or Bigfoot@InfoAve.Netã'I have more than 575 Qbasic programs to my name, and it grows daily.ã'Ah well, enjoy...ããSCREEN 12ãDEFINT A-ZãCLSãRANDOMIZE TIMERãpnts = 6ãDIM x(pnts), y(pnts), xc(pnts), yc(pnts), xb(pnts), yb(pnts), co(15, 2), cn(15, 2)ãON KEY(1) GOSUB tt: KEY(1) ON 'Change colorsãON KEY(2) GOSUB makepoints: KEY(2) ON 'redo pointsãON KEY(3) GOSUB clrdescrn: KEY(3) ON 'clear screenããGOSUB ttãGOSUB makepointsããst:ãGOSUB dolineãCLSãDO UNTIL INKEY$ <> ""ãGOSUB bounce: GOSUB doline: cx = cx + 1: IF cx = 5 THEN cx = 0: GOSUB colorpuller ': GOSUB doline0ãLOOPãGOSUB daendããdoline:ãc = c + 1: IF c = 16 THEN c = 1ãm = pnts - 1: o = pntsãDO UNTIL o = 0ãLINE (x(o), y(o))-(x(m), y(m)), cãm = m - 1: IF m = -1 THEN o = o - 1: m = o - 1ãLOOPãRETURNããclrdescrn:ãCLSãRETURNããmakepoints:ãFOR n = 0 TO pntsã x(n) = INT(RND * 640): y(n) = INT(RND * 480): xb(n) = 1: yb(n) = 1ãNEXT nãRETURNããdoline0:ãm = pnts - 1: o = pntsãDO UNTIL o = 0ãLINE (x(o), y(o))-(x(m), y(m)), 0ãm = m - 1: IF m = -1 THEN o = o - 1: m = o - 1ãLOOPãRETURNããbounce:ãFOR m = 0 TO pntsãIF x(m) >= 639 THEN xc(m) = 1: xb = INT(RND * 8)ãIF x(m) <= 0 THEN xc(m) = 0: xb = INT(RND * 8)ãIF y(m) >= 479 THEN yc(m) = 1: yb = INT(RND * 6)ãIF y(m) <= 0 THEN yc(m) = 0: yb = INT(RND * 6)ãIF xc(m) = 1 THEN x(m) = x(m) - xb(m) ELSE x(m) = x(m) + xb(m)ãIF yc(m) = 1 THEN y(m) = y(m) - yb(m) ELSE y(m) = y(m) + yb(m)ãNEXT mãRETURNããdaend:ãCLS : SCREEN 0: WIDTH 80, 25: ENDããtt:ãr = INT(RND * 5): g = INT(RND * 5): b = INT(RND * 5)ãFOR attr% = 1 TO 15ãrt% = attr% * r + 3: gt% = attr% * g + 3: bt% = attr% * b + 3ãco(attr%, 0) = rt%: co(attr%, 1) = gt%: co(attr%, 2) = bt%ãcn(attr%, 0) = rt%: cn(attr%, 1) = gt%: cn(attr%, 2) = bt%ãOUT &H3C8, attr%: OUT &H3C9, rt%: OUT &H3C9, gt%: OUT &H3C9, bt%ãNEXT attr%ãRETURNããcolorpuller:ãFOR n = 15 TO 1 STEP -1: OUT &H3C7, n: FOR m = 0 TO 2: co(n, m) = INP(&H3C9): NEXT m: NEXT nãcn(1, 0) = co(15, 0): cn(1, 1) = co(15, 1): cn(1, 2) = co(15, 2)ãFOR n = 15 TO 2 STEP -1: FOR m = 0 TO 2: cn(n, m) = co(n - 1, m): NEXT m: NEXT nãFOR n = 15 TO 1 STEP -1: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, cn(n, m): NEXT m: NEXT nãRETURNããRyan White GEOMETRY SICKER BIGFOOT@SunBelt.Net 09-06-96 (12:31) QB, QBasic, PDS 93 2582 GEOMSCKR.BAS'Geometry Sickerã'By Ryan Whiteã'This is a sample of my abilities with palettes and wierd designs.ã'If you would like to get more of these type programs, write me atã'Bigfoot@Sunbelt.Net or Bigfoot@InfoAve.Netã'I have more than 575 Qbasic programs to my name, and it grows daily.ã'Ah well, enjoy...ãã'This is simply a neater? version of Geometry SicknessãããSCREEN 12ãDEFINT A-ZãCLSãRANDOMIZE TIMERãpnts = 3 '# or points -1ãDIM x(pnts), y(pnts), xc(pnts), yc(pnts), xb(pnts), yb(pnts), co(15, 2), cn(15, 2)ãON KEY(1) GOSUB tt: KEY(1) ONãON KEY(2) GOSUB makepoints: KEY(2) ONãON KEY(3) GOSUB clrdescrn: KEY(3) ONãWINDOW (0, 0)-(639, 639)ãGOSUB ttãGOSUB makepointsããst:ãGOSUB dolineãCLSãDO UNTIL INKEY$ <> ""ãGOSUB bounce: GOSUB doline: GOSUB colorpuller ': GOSUB doline0ãLOOPãGOSUB daendããdoline:ãc = c + 1: IF c = 16 THEN c = 1ãm = pnts - 1: o = pntsãDO UNTIL o = 0ãLINE (x(o), y(o))-(x(m), y(m)), cãLINE (639 - x(o), y(o))-(639 - x(m), y(m)), cãLINE (x(o), 639 - y(o))-(x(m), 639 - y(m)), cãLINE (639 - x(o), 639 - y(o))-(639 - x(m), 639 - y(m)), cãm = m - 1: IF m = -1 THEN o = o - 1: m = o - 1ãLOOPãRETURNããclrdescrn:ãCLSãRETURNããmakepoints:ãFOR n = 0 TO pntsã x(n) = INT(RND * 640): y(n) = INT(RND * 640): xb(n) = 1: yb(n) = 1ãNEXT nãRETURNããdoline0:ãm = pnts - 1: o = pntsãDO UNTIL o = 0ãLINE (x(o), y(o))-(x(m), y(m)), 0ãm = m - 1: IF m = -1 THEN o = o - 1: m = o - 1ãLOOPãRETURNããbounce:ãFOR m = 0 TO pntsãIF x(m) >= 639 THEN xc(m) = 1: xb = INT(RND * 8)ãIF x(m) <= 0 THEN xc(m) = 0: xb = INT(RND * 8)ãIF y(m) >= 639 THEN yc(m) = 1: yb = INT(RND * 6)ãIF y(m) <= 0 THEN yc(m) = 0: yb = INT(RND * 6)ãIF xc(m) = 1 THEN x(m) = x(m) - xb(m) ELSE x(m) = x(m) + xb(m)ãIF yc(m) = 1 THEN y(m) = y(m) - yb(m) ELSE y(m) = y(m) + yb(m)ãNEXT mãRETURNããdaend:ãCLS : SCREEN 0: WIDTH 80, 25: ENDããtt:ãr = INT(RND * 5): g = INT(RND * 5): b = INT(RND * 5)ãFOR attr% = 1 TO 15ãrt% = attr% * r + 3: gt% = attr% * g + 3: bt% = attr% * b + 3ãco(attr%, 0) = rt%: co(attr%, 1) = gt%: co(attr%, 2) = bt%ãcn(attr%, 0) = rt%: cn(attr%, 1) = gt%: cn(attr%, 2) = bt%ãOUT &H3C8, attr%: OUT &H3C9, rt%: OUT &H3C9, gt%: OUT &H3C9, bt%ãNEXT attr%ãRETURNããcolorpuller:ãFOR n = 15 TO 1 STEP -1: OUT &H3C7, n: FOR m = 0 TO 2: co(n, m) = INP(&H3C9): NEXT m: NEXT nãcn(1, 0) = co(15, 0): cn(1, 1) = co(15, 1): cn(1, 2) = co(15, 2)ãFOR n = 15 TO 2 STEP -1: FOR m = 0 TO 2: cn(n, m) = co(n - 1, m): NEXT m: NEXT nãFOR n = 15 TO 1 STEP -1: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, cn(n, m): NEXT m: NEXT nãRETURNããNathan Wittich 3D GRAPHS wittich@cdsnet.net 09-18-96 (18:27) QB, QBasic, PDS 82 2523 3DGRAPH.BAS ' 3dgraphã' a cool screensaver by Nathan Wittichã' wittich@cdsnet.net in subject put in "Nathan:" someone else is inã' an email based newsgroup that I share internet access with.ã'ã' This program draws new 3d graphs on the screen. Each one is differentã' in colors, sizes, smoothness, and how high the bumps are. My goalã' when I made it was to make each one as different as I can, not justã' different graphs that look alikeã'ã' here's how it makes the graph:ã' A dimmensioned variable (u) has all the gridsã' Into each place, it puts a random number.ã' it averages each grid's height with the heights of surrounding ones.ã' It does that lots of times.ã' Then it draws the graphã'ã' Although random #'s make each different, changing the source code willã' be even better.ã'ã' How come in basic I can make a cooler screensaver than Microsuck?ã'ããRANDOMIZE TIMERãDEFINT A-ZãDIM u(75, 60)ãSCREEN 12ãDOãc1 = RND * 8ãc2 = RND * 8ãc3 = RND * 8ã'PRINT "palette"ãFOR a = 1 TO 14ã'PALETTE a, a * 4ãNEXT aã'PRINT "setting up"ãl1 = RND * 500ãl2 = l1 + RND * 500ãFOR a = 1 TO 64ãFOR b = 1 TO 48ãu(a, b) = (u(a, b) * .9) + RND * l1 - RND * l1ãIF RND < .01 THEN u(a, b) = l2 * RNDãNEXT bãNEXT aã'FOR a = 55 TO 64ã'FOR b = 5 TO 43ã'u(a, b) = (u(a - 1, b) - 10)ã'NEXT bã'NEXT aãFOR i = 1 TO 4 + RND * 2ãLOCATE 3, 1ã'PRINT "smoothening "; INT((i / 7) * 100); "%"ãFOR a = 2 TO 64 'smoothen itãFOR b = 2 TO 48ãu(a, b) = (u(a + 1, b) + u(a - 1, b) + u(a, b - 1) + u(a, b + 1) + u(a, b + 2) + u(a + 2, b)) / 6ãNEXT bãNEXT aãNEXT iã'FOR i = 1 TO 2ã'FOR a = -480 + RND + RND + RND TO 640 STEP 2 + RND * 3ã'LINE (640 - a, 0)-(640 - a - 480, 480), 0ã'LINE (a, 0)-(a + 480, 480), 0ã'NEXT aã'NEXTãCLSã'd = 1ãn = RND * 10 + RND * 10ãFOR a = 60 TO 2 STEP -1ãFOR b = 2 TO 45ãIF ABS(a - b) < 35 AND (a + b) > 15 AND a > 5 AND b > 5 THENã 'SWAP d, eã 'LINE (a * n + u(a, b), b * n - u(a, b))-(a * n + u(a - 1, b + 1) - n, n + b * n - u(a - 1, b + 1)),RND * 16, BFã LINE (a * n + u(a, b), b * n - u(a, b))-(a * n + u(a + 1, b + 1) + n, n + b * n - u(a + 1, b + 1)),c1ã 'LINE (a * n + u(a, b), b * n - u(a, b + 1) + n)-(a * n + n + u(a + 1, b), b * n - u(a + 1, b)), c1ã LINE (a * n + u(a, b), b * n - u(a, b))-(a * n + u(a + 1, b) + n, b * n - u(a + 1, b)), c2ã LINE (a * n + u(a, b), b * n - u(a, b))-(a * n + u(a, b + 1), b * n + n - u(a, b + 1)), c3ã END IFãNEXT bãSWAP d, eãNEXT aã'a$ = INPUT$(1)ãLOOP WHILE INKEY$ = ""ãJames N. Broadbent DEMO OF REAL-TIME GRAPHING FidoNet QUIK_BAS Echo 05-17-96 (00:00) QB, QBasic, PDS 290 9419 GRAPHING.BAS' > I am trying to figure out a way to put some graphic onto theã' > screen instataneously. I'm sure you have played DOOM or Wolf-3Dãã'I'm a Descent into Saturn fan myselfãã' > before, or at least looked at it. I don't know how manyã' > frames-per-second those games display, but it is awfully smooth. Isã' > there any way to get smooth graphics like that in QuickBASIC?ãã'I feel like taking a scene from "Wayne's World" and bowing down to these ã'people saying "We're not worthy....We're not worthy!!!" :-)ãã'Truly I don't think that kind of graphics is possible in Qb 4.5. It astounds ã'me how they can control the motion of robots, missles and screnery so ã'smoothly. I have trouble with just a couple of simple elementsã ã' -> If it is trying to graph realtime data, I may be able toã' -> help you. I have recently worked on a realtime graphicalã' -> display of 2 values being updated every 0.2 seconds usingã' -> PSET, VIEW, and WINDOW.ãã' > Do you have any code that you might be able to post in here?ãã'Sure!...<...>ãã'The purpose of this routine is to give a graphic visual display of incoming ã'data from 2 COM ports. I have simulated this a simple random number routine ã'for each variable.ã ã'It probably could be improved a bit since I don't put the values for the majorã'Y-axis tick marks. But they aren't really necessary for what I was doing.ã ã'Hope you like it....look forward to your comments.ã ã'Regards Jimãã' **************************************************************ã' *** Demonstration of real-time graphing of 2 parameters ***ã' *** with time on the X-axis ***ã' *** ***ã' *** by James N. Broadbent ***ã' *** May 17, 1996 ***ã' **************************************************************ããSCREEN 12ãDIM YGRAPH!(8, 2)ãã' YGRAPH!(8,2) is the matrix that holds the vales that make upã' the Y-axis for the 3 "ZOOM" levels.ã' "ZOOM" levels are magnification levels of full scale on theã' Y-axis. They can be any ratio desired but in thisã' example the ZOOMFACTORS are 100%, 200% and 400%ã' magnification.ãã' NOTE: This is not a general graphing routine but will haveã' a min "Y" value set to 0.0 and max "Y" value of 100000ãSTART:ã CLSã LOCATE 9, 20ã LINE INPUT "Enter the Maximum Value for Y-axis: "; a$ã IF VAL(a$) <= 0! OR VAL(a$) > 100000 THENã LOCATE 11, 20ã BEEPã PRINT "Please enter a number from 0 to 100,000!"ã SLEEP 1ã GOTO STARTã END IFã MAXY! = VAL(a$)ãã' Graph co-ordinates for ZOOM feature and drawing the Y-axisãã' set min and max for window statement for each zoom levelã YGRAPH!(0, 0) = MAXY! * 1.05ã YGRAPH!(0, 1) = MAXY! * 1.05 / 2ã YGRAPH!(0, 2) = MAXY! * 1.05 / 4ã YGRAPH!(1, 0) = -.05 * MAXY!ã YGRAPH!(1, 1) = -.05 * MAXY! / 2ã YGRAPH!(1, 2) = -.05 * MAXY! / 4ã ã' set Y-axis and X-axis overall coordinatesã FOR i% = 0 TO 2ã YGRAPH!(2, i%) = YGRAPH!(1, i%) * .95ã NEXT i%ã ã' set major Y-axis tick marksã k! = 1.25ã FOR j% = 3 TO 7ã k! = k! - .25ã FOR i% = 0 TO 2ã l% = i% ^ 2 + 1ã IF l% = 5 THEN l% = 4ã YGRAPH!(j%, i%) = MAXY! * k! / l%ã NEXT i%ã NEXT j%ãã' Bottom screen clearing coordinatesã YGRAPH!(8, 0) = -.045 * MAXY!ã YGRAPH!(8, 1) = -.045 * MAXY! / 2ã YGRAPH!(8, 2) = -.045 * MAXY! / 4ãã' Create the viewport for the Graphã VIEW (1, 100)-(637, 440), 1, 9ãã' set up the initial graphã z% = 0 ' ZOOMFACTOR elementã GOSUB graphcoordinatesã COLOR 14ã LOCATE 1, 10ã PRINT "Demonstration of a Continuous Real-Time Plot of 2 Variables";ã LOCATE 2, 30ã PRINT "by James N. Broadbent"ã ZF% = z% ^ 2 + 100ã IF ZF% > 450 THEN ZF% = 400ã r! = MAXY! / ZF% * 100ã COLOR 11ã LOCATE 4, 5ã PRINT "Y - Axis Range : 0 to"; r!; " units"ã COLOR 3ã LOCATE 5, 5ã PRINT "ZOOM Factor (%):"; ZF%ã COLOR 13ã LOCATE 4, 50ã PRINT "Value of Variable #1:";ã COLOR 15ã LOCATE 5, 50ã PRINT "Value of Variable #2:";ã LOCATE 29, 5ã PRINT "Press to Exit";ã LOCATE 29, 57ã PRINT "Press to ZOOM";ã COLOR 14ã LOCATE 29, 34ã PRINT "TIME (SECS):";ãã' initialize these following parameters for real-time graphã X! = -1 ' X axis data positionã STARTTIME! = TIMER ' for time display = 0ã TRIGGER! = TIMER ' to trigger data displayã ã' Generate simulated values and plot to the screenãã DOã a$ = UCASE$(INKEY$)ã IF TIMER - TRIGGER! > .2 THENã GOSUB YDATAã TRIGGER! = TIMERã COLOR 14ã LOCATE 29, 46ã PRINT INT(TIMER - STARTTIME);ã IF TIMER - STARTIME > 99999 THEN STARTIME = TIMERã END IFã IF a$ = "Z" THENã z% = z% + 1ã SELECT CASE z%ã CASE 0ã ZF% = 100ã CASE 1ã ZF% = 200ã CASE 2ã ZF% = 400ã CASE 3ã ZF% = 100ã z% = 0ã END SELECTãã r! = MAXY! / ZF% * 100ã COLOR 11ã LOCATE 4, 5ã PRINT SPC(35);ã LOCATE 4, 5ã PRINT "Y - Axis Range : 0 to"; r!; " units";ã VIEW (1, 100)-(637, 440), 1, 9ã GOSUB graphcoordinatesã COLOR 3ã LOCATE 5, 22ã COLOR 13ã PRINT ZF%; ' Display the ZOOMã END IFãã LOOP WHILE a$ <> "X"ãã VIEWã CLS 0ã COLOR 15ã LOCATE 9, 29ã PRINT "Start again (Y/N)?"ã DOã a$ = UCASE$(INKEY$)ã IF a$ = "Y" THEN GOTO STARTã IF a$ = "N" THEN ENDã LOOPããgraphcoordinates:ãã' Set up Graph coordinatesãã WINDOW (-15, YGRAPH!(1, z%))-(620, YGRAPH!(0, z%))ã LINE (-8, YGRAPH!(2, z%))-(600, YGRAPH!(2, z%)), 11ã LINE (-5, YGRAPH!(3, z%))-(-5, YGRAPH!(1, z%)), 11ã LINE (-10, YGRAPH!(3, z%))-(-5, YGRAPH!(3, z%)), 11ã LINE (-7, YGRAPH!(4, z%))-(-5, YGRAPH!(4, z%)), 11ã LINE (-10, YGRAPH!(5, z%))-(-5, YGRAPH!(5, z%)), 11ã LINE (-7, YGRAPH!(6, z%))-(-5, YGRAPH!(6, z%)), 11ãã' Next line is the "TICK" indicating ZEROã LINE (-10, YGRAPH!(7, z%))-(-5, YGRAPH!(7, z%)), 13ãã RETURNããYDATA:ãã' Generate simulated vales for variables 1 and 2ãã IY1! = (MAXY! * RND(1) - MAXY! / 2) * .1ã IY2! = (MAXY! * RND(1) - MAXY! / 2) * .1ã IF Y1! + IY1! > MAXY! OR Y1! + IY1! < 0 THENã Y1! = Y1! - IY1!ã ELSEã Y1! = Y1! + IY1!ã END IFã IF Y2! + IY2! > MAXY! OR Y2! + IY2! < 0 THENã Y2! = Y2! - IY2!ã ELSEã Y2! = Y2! + IY2!ã END IFã LOCATE 4, 72ã PRINT " ";ã LOCATE 5, 72ã PRINT " ";ã SELECT CASE MAXY!ã CASE IS > 10000ã COLOR 13ã LOCATE 4, 72ã PRINT USING "#####"; Y1!ã COLOR 15ã LOCATE 5, 72ã PRINT USING "#####"; Y2!ã CASE 1000 TO 9999ã COLOR 13ã LOCATE 4, 72ã PRINT USING "####.#"; Y1!ã COLOR 15ã LOCATE 5, 72ã PRINT USING "######.#"; Y2!ã CASE 100 TO 999ã COLOR 13ã LOCATE 4, 72ã PRINT USING "###.##"; Y1!ã COLOR 15ã LOCATE 5, 72ã PRINT USING "###.##"; Y2!ã CASE 10 TO 99ã COLOR 13ã LOCATE 4, 72ã PRINT USING "##.###"; Y1!ã COLOR 15ã LOCATE 5, 72ã PRINT USING "##.###"; Y2!ã CASE 1! TO 9.9ã COLOR 13ã LOCATE 4, 72ã PRINT USING "#.####"; Y1!ã COLOR 15ã LOCATE 5, 72ã PRINT USING "#.####"; Y2!ã END SELECTã X! = X! + 1ã ã' plotting the variable values ã IF X! > 600 THENã X! = 0ã PSET (X!, Y1!), 13ã PSET (X!, Y2!), 15ã ELSEã LINE (X! - 1, LY1!)-(X!, Y1!), 13ã LINE (X! - 1, LY2!)-(X!, Y2!), 15ã END IFã ã' compute and establish data clearing block ã ã IF X! > 559 THENã XL! = X! - 560ã ELSEã XL! = X! + 41ã END IFã LINE (XL! - 1, YGRAPH!(8, z%))-(XL! + 1, YGRAPH!(0, z%)), 1, BFã ã' save last values of each variable ã LY1! = Y1!: LY2! = Y2!ã RETURNãRyan White SPIRALING MIND KNOCKER BIGFOOT@InfoAve.Net 09-21-96 (17:53) QB, QBasic, PDS 74 2707 SPIRALER.BAS'sPiRaLiNg MiNd KnOcKeR 1ã'By Ryan Whiteã'Look at it for a while then look awayã'Edit anyway you wantããON KEY(1) GOSUB st: KEY(1) ONãSCREEN 13ãCLSãã 'rozeã'FOR x = 180 TO 1 STEP -.5ã'z = 159 + x * COS(x):y = 99 + x * SIN(x)ã'FOR r = 15 TO 0 STEP -1ã'c = c + 1: IF c = 16 THEN c = 1ã'LINE (z - r, y - r)-(z + r, y + r), c, Bã'NEXT r: NEXT xãã 'Webzã'FOR x = 180 TO 1 STEP -.05ã'z = 159 + x * COS(x): y = 99 + x * SIN(x)ã'c = c + 1: IF c = 16 THEN c = 1ã'LINE (0, 0)-(z, y), c: LINE -(319, 0), c: LINE (319, 199)-(z, y), c: LINE -(0, 199), cã'NEXT xã ã 'Gemzã'FOR x = 180 TO 1 STEP -.05ã'z = 159 + x * COS(x): y = 99 + x * SIN(x)ã'FOR r = 5 TO 1 STEP -1ã'c = c + 1: IF c = 16 THEN c = 1ã'FOR m = -1 TO 1: CIRCLE (z, y + m), r, c, , , 1: NEXT mã'NEXT r: NEXT xãã 'X-pointsãFOR x = 180 TO 1 STEP -.05ãz = 159 + x * COS(x)ãy = 99 + x * SIN(x)ãc = c + .1: IF c = 16 THEN c = 1ãLINE (z - 2, y - 2)-(z, y), cãLINE -(z + 2, y - 2), cãLINE (z + 2, y + 2)-(z, y), cãLINE -(z - 2, y + 2), cãNEXT xããst:ãDEFINT A-ZãDIM c(255, 2), co(255, 2)ãFOR n = 0 TO 15ã'black white red orange yellow green blue's purple ~then backwards~ãc(n, 0) = n * 4: c(n, 1) = n * 4: c(n, 2) = n * 4ãc(n + 16, 0) = 63: c(n + 16, 1) = 63 - n * 4: c(n + 16, 2) = 63 - n * 4ãc(n + 32, 0) = 63: c(n + 32, 1) = n * 2: c(n + 32, 2) = 0ãc(n + 48, 0) = 63: c(n + 48, 1) = n * 2 + 31: c(n + 48, 2) = 0ãc(n + 64, 0) = 63 - n * 4: c(n + 64, 1) = 63: c(n + 64, 2) = 0ãc(n + 80, 0) = 0: c(n + 80, 1) = 63 - n * 2: c(n + 80, 2) = n * 4ãc(n + 96, 0) = 0: c(n + 96, 1) = 32 - n * 2: c(n + 96, 2) = 60ãc(n + 112, 0) = n * 3: c(n + 112, 1) = 0: c(n + 112, 2) = 60ãc(n + 128, 0) = 45 - n * 3: c(n + 128, 1) = 0: c(n + 128, 2) = 60ãc(n + 144, 0) = 0: c(n + 144, 1) = n * 2: c(n + 144, 2) = 60ãc(n + 160, 0) = 0: c(n + 160, 1) = 30 + n * 2: c(n + 160, 2) = 60 - n * 4ãc(n + 176, 0) = n * 4: c(n + 176, 1) = 63: c(n + 176, 2) = 0ãc(n + 192, 0) = 63: c(n + 192, 1) = 60 - n * 2: c(n + 192, 2) = 0ãc(n + 208, 0) = 63: c(n + 208, 1) = 30 - n * 2: c(n + 208, 2) = 0ãc(n + 224, 0) = 60 - n * 2: c(n + 224, 1) = n * 2: c(n + 224, 2) = n * 2ãc(n + 240, 0) = 30 - n * 2: c(n + 240, 1) = 30 - n * 2: c(n + 240, 2) = 30 - n * 2ãNEXT nã'makes the colors appearãFOR n = 0 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT m: NEXT nããDO UNTIL INKEY$ <> ""ãFOR n = 1 TO 255: OUT &H3C7, n: FOR m = 0 TO 2: co(n, m) = INP(&H3C9): NEXT m: NEXT nãc(255, 0) = co(1, 0): c(255, 1) = co(1, 1): c(255, 2) = co(1, 2)ãFOR n = 1 TO 254: FOR m = 0 TO 2: c(n, m) = co(n + 1, m): NEXT m: NEXT nãFOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT m: NEXT nãLOOPãRyan White MULTI MORPH BIGFOOT@InfoAve.Net 09-21-96 (17:53) QB, QBasic, PDS 89 2580 4XMORPH.BAS 'MultiMorphã'By Ryan Whiteã'Feel free to change, to love, to marriage. NO COMPUTER SEX THOUGH!!!!ã'I MADE THIS PROGRAM TO EDIT AND ENJOY, BUT NOT TO HAVE SEX WITH!!!!ã'I'm SeRiOuS!ããSCREEN 13ãCLSãRANDOMIZE TIMERãDEFINT A-ZãDIM cn(255, 2), co(255, 2)ãVIEW (0, 0)-(319, 199)ãFOR x = 0 TO 63ãOUT &H3C8, x: OUT &H3C9, x: OUT &H3C9, 0: OUT &H3C9, 0ãOUT &H3C8, x + 64: OUT &H3C9, 0: OUT &H3C9, x: OUT &H3C9, 0ãOUT &H3C8, x + 128: OUT &H3C9, 0: OUT &H3C9, 0: OUT &H3C9, xãOUT &H3C8, x + 192: OUT &H3C9, 63 - x: OUT &H3C9, 63 - x: OUT &H3C9, 0ãNEXT xããc = 0ãFOR x = 0 TO 289 STEP 20: x2 = x + 20ãFOR y = 0 TO 189 STEP 10: y2 = y + 10ãFOR pnty = y TO y2ãc = c + 1: IF c >= 64 THEN c = 0ãLINE (x, pnty)-(x2, pnty), cãNEXT pntyãNEXT yãNEXT xããc = 64ãFOR n = 1 TO 10ãx = INT(RND * 280) + 20ãy = INT(RND * 160) + 20ãr = INT(RND * 20) + 10ãFOR m = 1 TO rãc = c + 1: IF c >= 64 THEN c = 0ãFOR o = -1 TO 1ãCIRCLE (x, y + o), m, 127 - c, , , 1ãNEXT oãNEXT mãNEXT nããc = 128ããFOR n = 1 TO 10ãx = INT(RND * 299) + 1ãy = INT(RND * 179) + 1ãFOR r = 0 TO 20ãc = c + 1: IF c >= 192 THEN c = 129ãLINE (x - r, y - r)-(x + r, y + r), c, BãNEXT rãNEXT nããc = 255 'we are going in reverse this timeãx = 160: y = 100ãFOR m = 1 TO 3500ãPSET (x, y + 1), cãPSET (x, y), cãPSET (x, y - 1), cãPSET (x + 1, y + 1), cãPSET (x + 1, y), cãPSET (x + 1, y - 1), cãPSET (x - 1, y + 1), cãPSET (x - 1, y), cãPSET (x - 1, y - 1), cãc = c - 1: IF c <= 191 THEN c = 255ãx = x + (INT((RND * 2) + 1) * 2 - 3)ãy = y + (INT((RND * 2) + 1) * 2 - 3)ãNEXT mããDO UNTIL INKEY$ <> ""ã'read color valuesãFOR n = 0 TO 255: OUT &H3C7, n: FOR m = 0 TO 2: co(n, m) = INP(&H3C9): NEXT m: NEXT nã'cycle last from first colorãcn(63, 0) = co(1, 0): cn(63, 1) = co(1, 1): cn(63, 2) = co(1, 2)ãcn(127, 0) = co(64, 0): cn(127, 1) = co(64, 1): cn(127, 2) = co(64, 2)ãcn(191, 0) = co(128, 0): cn(191, 1) = co(128, 1): cn(191, 2) = co(128, 2)ãcn(255, 0) = co(192, 0): cn(255, 1) = co(192, 1): cn(255, 2) = co(192, 2)ã'cycle the rest 170 length -==>ãFOR n = 0 TO 62: FOR m = 0 TO 2ãIF n <> 0 THEN cn(n, m) = co(n + 1, m) 'red not ok I have to limit it to 63 colors becauseãIF n = 0 THEN cn(1, m) = co(n + 1, m) 'if 0 is messed with, then the border of the monitor goes *ukie*ãcn(n + 64, m) = co(n + 65, m) 'green okãcn(n + 128, m) = co(n + 129, m) 'blue okãcn(n + 192, m) = co(n + 193, m) 'yellow okãNEXT m: NEXT nã'write color to screenãFOR n = 0 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, cn(n, m): NEXT m: NEXT nãLOOPãPhillip Jay Cohen OUTLINED FONTS cohennet@erols.com 09-29-96 (11:47) QB, QBasic, PDS 128 6434 FONTS.BAS ã''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ã''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ã'''' Phillip Jay Cohen's Outlined Font Routines: ''''ã'''' Demo Program ''''ã'''' ''''ã''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ã''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ãã''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ã''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ã'''' Everything appearing here in the main program is just demonstration ''''ã'''' and won't be of any use to any of you (or at least I don't think so) ''''ã'''' Besides, it's not hard to understand what's going on here, it's the ''''ã'''' actual routines that do most of the work. These are just calls, and ''''ã'''' a pretty border to keep us happy. If you want to use these routines ''''ã'''' you will somewhat need to understand how to call them. Just run the ''''ã'''' program to find out about the syntax and stuff, or if you are lazy, ''''ã'''' you can check directly in the code, but then you won't know how it ''''ã'''' looks. The routines will only work in screen mode 13, as I am use- ''''ã'''' ing VGA video memory. I will be very happy if you distribute these ''''ã'''' routines, and if you think they're useful or maybe you feel warm and ''''ã'''' squooshy inside, then please E-mail me and tell me. My email is: ''''ã'''' cohennet@erols.com. Thanks for taking time to read this. -- P.J.C. ''''ã''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ã''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ããDEFINT A-Z 'Not neccessary, but it couldn't hurt to speed things up a bitããDECLARE SUB OFont (Text$, X, Y, Fore, Back) 'Main font routineãDECLARE SUB OCenter (Text$, Y, Fore, Back) 'Centering routineãDECLARE SUB PressAndClear () 'Waits for key pressããSCREEN 13 '320x200 VGA and MCGA screen modeãã 'None of the rest is important, it's just demonstrationãLINE (1, 0)-(318, 0), 4ãLINE (0, 1)-(0, 198), 4ãLINE (1, 199)-(318, 199), 4ãLINE (319, 1)-(319, 198), 4ãLINE (1, 1)-(318, 198), 41, BãLINE (2, 2)-(317, 197), 42, BãLINE (3, 3)-(316, 196), 14, BãPAINT (4, 4), 25, 14ãOCenter "PHILLIP JAY COHEN'S", 10, 2, 144ãOFont "OUTLINED FONT", 60, 25, 43, 114ãOFont "DEMO PROGRAM", 180, 25, 32, 1ãOCenter "Syntax:", 50, 15, 8ãOCenter "OFont Text$, X, Y, Fore, Back", 65, 40, 4ãOFont "Where:", 10, 85, 9, 33ãOFont "Text$ = The text to be printed", 70, 85, 11, 3ãOCenter "X = The horizontal coordinate for the", 100, 35, 5ãOCenter "upper-left hand corner of the text", 110, 35, 5ãOFont "Y = The vertical coordinate for the", 10, 125, 42, 41ãOCenter "upper-left hand corner of the text", 135, 42, 41ãOCenter "Fore = The text's foreground color", 150, 13, 37ãOCenter "Back = The text's background color", 165, 44, 6ãOCenter "PRESS A KEY", 185, 15, 8ãPressAndClearãOCenter "Also Including", 50, 15, 8ãOFont "A centering routine,", 25, 65, 40, 4ãOFont "which has the", 190, 65, 11, 3ãOCenter "same syntax, except for the X argument", 75, 11, 3ãOCenter "These routines only work in screen", 90, 35, 5ãOCenter "mode 13, but have many advantages,", 100, 35, 5ãOCenter "Including:", 115, 44, 6ãOCenter "Outlining (obviously), placement at", 130, 42, 41ãOCenter "exact coordinates (unlike PRINT),", 140, 42, 41ãOCenter "avoid erasing the background, and", 150, 42, 41ãOCenter "are relatively FAST for QBasic", 160, 42, 41ãOCenter "MORE -->", 173, 13, 37ãPressAndClearãOCenter "Please,", 50, 15, 8ãOCenter "Feel free to distribute these routines", 65, 40, 4ãOCenter "Try to give me credit when you use", 80, 11, 3ãOCenter "them, if you can (I don't think that's", 90, 11, 3ãOCenter "asking too much, do you?)", 100, 11, 3ãOCenter "Unless you have a lot of programing", 115, 9, 33ãOCenter "experience, don't try to understand", 125, 9, 33ãOCenter "the OFont routine; you don't need to", 135, 9, 33ãOCenter "know how the routine works to use it", 145, 9, 33ãOCenter "For more info, you can contact me at:", 160, 35, 5ãOCenter "cohennet@erols.com", 173, 44, 6ãPressAndClearãSCREEN 0ãWIDTH 80ãENDããSUB OCenter (Text$, Y, Fore, Back)ãOFont Text$, 160 - INT(LEN(Text$) * 4), Y, Fore, Back 'Call with appropriateãEND SUB 'Starting X coordinateããSUB OFont (Text$, X, Y, Fore, Back)ãDEF SEG = &HFFA6 'Stores masks for lettersãFOR Letter = 1 TO LEN(Text$) 'Does each letterãAddress = (8 * ASC(MID$(Text$, Letter))) + 14 'Address for start of letterãFOR Height = 0 TO 7 'Each letter is an 8x8 pixel matrixãMask = PEEK(Address + Height) * 128 'Address for mask of each line of letterãLINE (X + Curntx + 1, Y + Height + 1)-(X + 9 + Curntx, Y + Height + 1), Fore, , MaskãNEXTãCurntx = Curntx + 8 'Advances X axis by 8 for next letterãNEXT 'Continue to next letterãDEF SEG = &HA000 'Change to video memoryãIF Back > 0 THEN 'Background color can't be color 0ãFOR V = Y TO Y + 7 'Again, they're 8x8 pixelsãFOR H = X TO (LEN(Text$) * 8) - 1 + X 'Calculates length of text in pixelsãPK0& = PEEK(H + V * 320&) 'Is point at H,V = to foreground color?ãPK1& = PEEK(H + 1 + (V + 1) * 320&) 'Is point at H+1, V+1 = to foreground?ãPK2& = PEEK(H + 1 + V * 320&) 'Is point at H+1, V = to foreground?ãPT& = H + V * 320& 'Video memory pointerãIF PK0& <> Fore THEN 'If this is foreground, don't overlap itãIF PK1& = Fore OR PK2& = Fore THEN POKE PT&, Back 'Put pixel into memoryãEND IFãNEXT H 'Next horizontalãNEXT V 'Next verticalãEND IFãDEF SEG 'Put us back whereãEND SUB 'We startedããSUB PressAndClearãBuffer = &H1AãDEF SEG = &H40ãPOKE Buffer, PEEK(Buffer + 2) 'Clear keyboard bufferãDEF SEGãDO: LOOP WHILE INKEY$ = "" 'Wait for key pressãLINE (4, 45)-(315, 180), 25, BF 'Clear our working areaãEND SUBããRyan White MISCELLANEOUS GRAPHIC PROGRAMS BigFoot@InfoAve.Net 09-21-96 (00:00) QB, QBasic, PDS 617 40662 BIGFOOT.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"BIGFOOT.ZIP",4^6:Z&=30250:?STRING$(50,177);ãU"%up()%9%%%#-%*7[\F$g/UT/)%%%-1%%%6%I%%C4)ASh10B&h%*ãU">Se'5M0H]xUxA%#MUrs?T=A9Gv2'9/&)k=4j018;Q#<)&QS?)87X-$q'.7FZ[gqQgt^fsO$JlE[foW+;9GRtbKBkD;0a=hZYJ^AuJXC9PãU"tgDJGlPz0)8?)]Xb\'If&A%(\Srfa#Y\Ll*t(UPR4t1Qsj47[tD88U$n?]ZU(^cãU"^87_QhbsM/]6wGUT,w36xfZo*Y('Wu:yqjZeCVGS'dGEi&gqãU"-UpI]9PHd.t,Et/Sv.S%Q1A.$Pn.>Uuwe9hMRUHpQ:'',Pq_&%j$mXb1uPU&Itn8bV1u8qhhs*(rTI?->ODw$Y-ãU"+JKLnzygdbw99jRXLjX[jMZV?\eXnlf1r=lg-N^Vu]:)RXA+UYwC+f'_A1tb<$9ãU"Z>32QOOlrP;5mR2vMqQ,WZ#VjHuS=Uf2'ãU"W65=.ZDJ(&D6K\p&^9o3;Jk0Vu&?r*2ovVCFXCv86rB5:$\-Km*4O^dcgRr]5PCãU"$4)l+-qj=lJ7fx1#RZ,K8k6A#/))HLP.oHXK.ãU"Yw24I$0_I:l'PFH#CQsb3*wBs2c-Q<4Fy47>Dh:zAMk;Uf.Te),W:F?GQX.8J30ãU".2ELL.4Dmd[Y-1JkpO(h0&#SI*I/rtK8bic*=jxs2.kD_O+q(RSnYqG/c=EwJlSãU"r+_ju+Agr%;+PK,-;-OD*YQjK-m*9ahFmyWpPtv9U(p7^I-%/UQ(oLO))I1pzO3ãU";]p-Mei>VtAEojc#<./p4mnM3;BdWUpA8AQ#Qp6r2:eI<0vGnsy8;6CxnV>om4XãU"aEjGgr,yu%u%p()9%%%%-.%/2[aF.g2(OD(%%%m.%%%5%%L%C4A?J7ãU"S10DB\z*,>So58Ml[dM[yyg5p_][_-_o9+VGl>euT0rA+so$pqafukIss:;Q[$hM0?3TãU"rcg2MO^?SYoB5:9K#bghHxDA#2J_gO0DU*GaD$j<.h'71Sk=[e#utkuoBMp.H#F?W%k,%AHQ$E1CuV+a8=gLs]-,i.x9\YLQ6MEGC7MIr=Dufmljt)B)EuQ5jUA5LHs%ãU"OWOVuWVm7#7jZXNLJ_b(4/h%Y4AHiFCMaVb9;xZ*'$nBZ)0Bitua%1F/-N[ur0FãU":T9S:u'N8M%h;7naLH+#2GILV0DpssInQ;V?LBH5bqI+sD2uO8T7$l\JZO#/;WKãU"&uqkGCfYoG,Q%t3y.<1J-C4A(yE-?v7G*E&v2fqFkI+o^JN6;CUtpK:NG^Cf9i$ãU"PJ;)7w'OWbYP5>5o=bu2XOC8(J_k$e$[n5VW0\9/Om%zjV/(ob$^RwjrS6EãU"0\xhk#S;2xw$gP4$.TckHLcke^c5bsRTm4MC\%ZBthdFQ;2*S2&<)U*t^9i4sX^ãU"IRzb)>uZO:3O>Ql^CUlLj.i0dRK]eV\>3Dlm7za$5t0Xw:L9KtMa96Qk(>p3zT]ãU"3EUG1R*U2KOq0#[YrVPrVF4b:/vdUa?/r[mcm;QUX/Q'aj9gdUN:Ls_?M**Zc*^ãU"2a(7v;n&Z6^+E<4:fLz+-#'bFeSrg%^;I$RL7Uczj(k\H:uW;^H9bxiv^WA6.;4ãU"m99'A-<=&EslO,Qr5CtF*%S/7Z&(0WAdb-9361bTQ[U\ãU"MufYA>5S4:+.SS0Hj)lP#aHYqU#fQx_[4%xQ$%mU'VS<-ZOw9NsrjhJ1^J?P;ENãU"2G[9pnF^F$cAI]JbOZHWhia;/o$MHVQy&W%Z4dBcsM_Zps-bV#c[7$'tmY-]jF7ãU"jL3z*2MWj&35pXu3uI:J3IzKM#rYU\>s1XU?cV[/dYQwxd20NIZ-A=EpPn.FH:=ãU"dzdM:54*):nmX.6-/Drr0%bJE0Ij3P:/V'+Jq'x&up%()9%%%%-%%)q]Fpi^P*'ãU"u*%%&s<%%%6%%%MC4Mb>)W-BlI[_[;?'qh8,B(n9PFjU8^:(f=F$n+T)?uTI4/8)inuB'OMN:CxGBSccjAH^cH=:K4J)ãU"7TFo+GMng9c+wB3+NigN#*ptnzZwIJViC'&H&z2n&Ze+p[CZ,*cBao_=$z+F/8UãU"L00P6l1,:vUOR3tSX)jKrOJ(orchOVr;S9gfE,=b6A&,L[nF0lw2(*nn&TtB7)cãU"Dw7sy9/80'e(5EW0u9?;cJZQE(?;a-U\68Rh^C*R3C7OrZs2.5qyf_;JSM5J'42Z6prp4:\ãU"']evXFV/;;Y.)_O?s5%PESj*uEfNdN&6<_gpD8Vlv)n'>B=Pv'6\_Sthd3rH'6n8M096kC7XI()qK1^nD)NOYND.dMALJq9oG^PãU"AOl]ZGLGh=4.CAt.>#bF/IsMdGVJEt#M%P1A5]HO\#0]o;DJ2h6lãU"JOPxP_Y=H/&T)7?^Vf)fXc:6c'=q/=0[Ygg_+q>0HS3?Wd:J3hlI&\0EBJ\rBgFãU"PUAa9)2BFKp>FpkZrqrlICFVYKPWdP=^Q7(%B4r]/kwGZ4Tb3Zq*.6]1&TZZ)PEãU"Go./8(c?rWA2F;ix*1hQkV2knV$j0,Z#+Y/*0ua4f#NFymg3ug$X9N[0OSm5#0gãU"B;Xs5<8N7:3Cq:iIUa.FJ*oVjj#Tg[fe.K2><[2s_aRttFG\UgjffH.R><(4lpjãU"8p-3zLE&'D[gP[i-:C.LbkH1-i)rzxYIfv7611QHQem?.6G#B[8^.*5i*L:R2/vãU"*+b^;6<(yT;[h[Od#Q%_\eZ=pR[^[eg&t%dmm%9?_ufw:-/T*?:DJuXeER?xCZSDq5n%n'bq7dfe*>:K?NlM:q#M1U0L/NbgãU"1DF]fiipM8>VqG8P$(%58e2K(;%Epu6?OipQ\DOAsmb:t0e-(8Q/6xN?07^C#tUãU"N(V2K=mtsSLUuk'f*($^BphhwRZ^Tlop_ed5f?4'-\3jn,t*?%W>;HTPW.B:&va]TO*JaQ;DPgG\TAY0Cci>,$>6Q().Kj>=)=.22o6AvxOXF>ãU".dMA4d_Dj%gKnU%7(R7Oi%Q>MrdOurA6f,qQb]]:YSeG&7AD;s5m?#I'NPzREOJãU"HmsvK:A-/R:(k>XT5QE?b&]X'A=WHDebXSkN[_p[AyfRI$kwYcQrY$1+6A[#[,hm5.0yAsT3l&a)ãU"I0jDia/.ECj5mG4;Kmse8Lb.CMH=^*Gz.jGo0>_Z?4:RF7qSUB1JG=Ngi3#8t(_ãU")J3MU[uC=grd?-nH#ieVBF(^D]t:e_ngY,1f8o]Z7GYFVgYf2a1td29WP%Cdf^=ãU"i_%=ch%Ot$+#ELIw]XNW/m't>][ãU"m7wUBXxpB=j8gdFQ_E(qQK^Ej?7C(1?eS3B8DwR(B)12;3jIWe.8.tDtJ_r*F3vãU"b0&M*i4zydQjNrBYIP6l//Y0S/fC_fEMjXbifTff/Vg0e+agmMe9)qZwnS&6\=\Rq.RO5NCo0ph6KE0KIme0aj\1$WYeRb)B5d$>ãU"n<1BOJbgrw3ocPUqJ=%$Ant-R-ae5nF8ZH4I,5Zk]iGe%)U/cI(pu>I85rI-f$RãU"TlLRrm'SZ'-oQ4uGp+R)r^ZT$pAgLQ41u^--.DF5Z/?JJTGZADRP\['=7I-OTM8ãU"6RRuRT%OF<,.Gg[=-oG5m+^0Zn'W5)47(a:/4c_])]kh7u47+/b6mN4^jI(ju<<ãU"hPZS8%TfKxXhnGSufWGkFk&2Sdg9b+/,3xH)TYeA]o&t,:g6#l-.hQ%*kjeZvZ>ãU"-S,JlT3#_gY4#;'p[UDmiwZ_t,6*(A/8FUgA'w&'\8%nA/?+6P3:GQj>S6;&4zTãU"tRp1*]-NgZlC;\D)3-_pBfST*:LIpoq[]vY\uoA+sCyz\woV#\tZWcnwZI*v.6WãU"bB*TGT]BZVwi0:gT4MF7*_d_1.jJ5D/tX%a\ye[5t7s8M9\Nfda&%SJQY?,&kIzãU"B]aw3SIgP9GZ7uP\r+b_TRZZ/l&VS7=$O:]=j:SP.P^FRMimcx2)u>\Q819_0MI8CuD2p0dKg(yNv$ãU"S/ssqCNWw%3P#o9O/tZNWVl^Yrg=QTEW:0:ju4O1Zw>b^r7:v5DnH?ss7]U/]tLãU"8BG+nY)Do.f>HpZ';Fp,>Q/=_3uFS6:oQo-hV;erkQNh7[rUEt)?feX-K:vkCf3ãU"d8aTD%3t8Yck>r^%+XQ2Yc8-a6pdri-c>5)&cSgdqE/E6HgW(8>ãU"F#dJ4X+MeA-uY\dDdWi.NPISw&:o:*#QEY)Ru*WjQLfnp4Ni4?D*969ggoãU"K9?;EhaPJ;/zCM#rXO;GF?)G?R3,kF,%mE.qhqj#2O6RWcJ_]m:Ak:rkYIqP_Im/23,(K'SxtcW0ETm(b]W/Gr,19ãU"7A4+f<6H>xIpun^mhaDkV%To/yC=U0Tl3]CzPH&'>U/rh3QSVA:f>q%K%>P;>In,nhukm;a1(6'p][(>FQ/-0dYOmo1UO06byoG6)8g7+.%0s.f,WDGãU"]\md8F(4bcPG183'W;*g8mmKl^Yy*\0ie#&e%&J1Bs#<$HG6LXxos<]K4e*+XEeãU"i9v7nN))N^sh2?P9^3WuAcBNKGdhv)\qM4?9Jg3.SkH&<#d-4;;pn[RpT(58'L<>t2kPI7]]M1[Z2'4Xi(/eM3r9As]CIPbc'gCri(%LIV;1ãU"+ilD9:'$;[8(=SDiKX%+Ze)nRAMU)qncAu<-;C<2V_AClM42'L)7OP..%>&&[JgãU"PDog>\'9IhT\doNy$XDd(uni9;N^bD:nOrcMDe5yqbVCY_P#sm=k6NN8N'Oa^CMãU"eAld8aJ[LdzSEd#crWX2hifGne('\t6#AE)vycKn#1vegO[L5?ho%i3#jr]Q]$wãU"e*J'>nFNvn,0rnl;O2)V4udw-,D51zBfvJ?F,A#:Q52shS&7z?t0%FlBliãU";eZ(S$5i)eF6%hVzDzGII_h%;4)ze2R$8jHQ?gQNm4HGZ\XaF]BP#AqU&nkPB-vãU"EoU;a1WgdKo.G[ZU9uDeQHO;z6;:orQ2nh-vS85uP+rjCNs-QF=8CF8Bp<m'XXK2eP^1X.=(ãU"G[^8ET;i?k=q?;5LJ.I$F$uX(+_8PfS\3vXn]WBFlbxi#t[E1#BlãU"x*9U%tykaZ-qXJ'8(up%()9%%%%-%%Up]F=erW.%l1%%&EQ%%%5%%%MC4TSokF4IwV68f[Ig)]^YrLubvS.].I)g]o9limCa:G]j*;$GãU"g+sZPXEMhGF.ei9D_C20LpIu5fãU"W9O-4)/\#M$Q5PãU"8+jG7.E59US(_'mh(at=AgAPVw,*tlW^A>Qj#P$kSDt8^$]AH=*24itoa:P_?lTãU"/ZU)hnH52(*CdO1<5WxsO2ADUP)Fpk0cgrEdt\[5G/*gni6[p\dTvd^a+xãU"itpmy)m&Rm[aiRg52h:'6V$Zwh9tv?O>7aNKeED$FtãU"&mkse^8dfgb[hH)x?g:JihsAsViãU"ble:jUmInTLTSxR5r[fHcTn/PpGKE+*Q#f1pYBRdtNetjZ&DP$.[eOuD#/Z8oltãU"a18D$-aEiv;Q5R1mP,q8;n(:Nfj*WfuTn<94f\:CXs1c#Wf*EYãU"_]]D?]hUo;du^OP6Kt)f1&zY#1T)\+2k#F$/m$I*9-CulWp^^3/H>OeAFO+]z5%SYV#]M1RlKNX.v3(S(>[F/e_MXEX_=6LãU"4vr(:sJfQHC9I#]8%pYz_:u8_>mU=;#\-o:K[eT4As=_FImA,g&/$5pXT+u;I+zwT;:cD(L2F?YTFrãU"mpv%\KaG/q5hSNeHX5'0-C..l=uOYc)=zeKONP_Bfoq2tBSjjt&%4-11Mzd>*j9ãU">[m<*EKAP\6h%-tJCxGq&?1wg=*ws1V>])-3#0UH0C_tFkzjxuhMAFIc=e8=PM)ãU"#^d5JA)cW*n'uGYwwi+NLIR+FVvf2B23>-1i6Vwurtgiu/k*Q+6S11*4HhVDCt-ãU"\B-pJnOc][o:C.(QD5&NwHZ?pS*?oJJ/L+9%vwl_N*c',nJWbKWa9>ARra]cfRxãU"KF$pD2C)et$*q?g$;Z?*-AnVY?op91YT(6;\cw0PUWqKjr(UoBnMH\7dmHc]0mM.&l)6lT5fWg6QJrPNPDy'mkjgKq]m=wãU"/?#BNM7>sDJS)i1fEz$>*MLI+?-6;2'Y/BeN4xAVQhhuw7QaL+9F4OcS]rmid?lãU"s0Sp'?OMD:\AK-mIC[j)u%m4Wj5h>:u>L^TW9^<(UDG(4UaMkãU"WayT]8AbININ8WA'Q&Jpo<1.RK-'Q(CIY6e?ozJ[zCCiMqR;k(wjeq_kB]_edFVJ;2LgsjeK(6T*J^=0.wgg;R^ãU":x#5c,Ok0h1)TKNB=tt5;Q>oR3\8Jj2CnsAL_Jxiw7G&E-8kR/'T>9rOHTYX_Z=ãU"MObC:W_Hbs\i[2bP=f>N;6ZHY$,:'Cm?DGW#ReGLmggILVzX?mVAW*GR<=?Ji$gãU"BXASu^0ltg_E'g]Ptp*F(QãU"65C#j=Hm]lPt]*Xn+_Oc\Bd]^)LIR;3+iL4KL'*T&4&vgvfRtFVVmdAG]*\3b0RPtMdP*fC&NMPbNC7qOuF$FPAv9q^7zsndLãU".&b)\5Uhnd?t7k7]L#3EXbZ#hXl2ngDl/m3i[hV8+7dD%%\2LeJg-q7qGDe*G^OãU"6:a8]bjv(4E)sh#f-3)_ucdkju6b3e^/2I%6'YlD*t$ZhãU"]%H,:pfN\CDfgf;A=MuPGkYRQ[WR2(*hADP<#P^p[tLqiz0W3eSI^.eS4?SC\)NãU"5o9u)'_S8X07ke=OvmqgUA<$1/6q#'2341L;MBjgaO*H8SoQQ6RnmP?=XN[MfrZãU"k)se>^&\S)dGttpssuQSa.n8rbLfMr<\o2va#ny6\]0wL7ki]pMO7JHN)I;oP+nãU"JJR\nvk27eT*TT-'Ukj.b\)h%v:/6IpC.Lo9>vgNnxgL.yViYkq%_GuLMlYSNMhãU"pbQjC<[&SEh5&Q6+&G<_GoAC*u6qor\JXD?v*tDtãU"i&;J+7x*;9xA\M<0.k97XãU"#fVyohFBdfLk0VqJUCm>t#Tpf5O'Im)]k;VCrSl4JFf2s6:jt4wV*s>ãU")sw?Y+fJaL#&b<>AM.A8VF.&QPWq,#Xd]^/RHt]Yfio&s^$^b?pChaWTqjBag#8ãU"_ZuPqThC>;NVoTm;gKJFw-IK2r1v>%WKTEr$j+_jn#4n(5,'^[^PlãU"NwTlS]lmzpF[FxMFY#h&':#L7Q'#oW/I/=^7G$7tNH=#2vrmePG-X5XCfDT8Q(1?<[_(qz(O\WX4fi5ZOtãU"(=7(;1*uU+'#:%l3[?*WKil>A#AG&^k2$/&:3p3Q''^zM?iWHcv'/TXbdB'bMFHãU"__Ti2W2n4-USamFZ$AgNt-w&WQ0ãU"%b$a[2gPq0-oK5(M0TsQ6m(Q?-r5Z*qay,\)CDiUFN,t/K60[k^xiD6KEw_1XckãU"LU]#-ukV:TYnsVPl]oB7p$_Uwa48$I+ArTu%p()9%%%%-+%F.[CFg*A+;]&%+%pãU"'%%%4%%L%C4$9-gZãU"^)fU]4Q6XSi:mpOJfZIxS2EGp[+/&45VUll#AK=3VIM)F=qA%0RCNf*,G//>0.SBcyNãU"PL;Yeugzr4h&l>oLZc+*Bg7:CB8PTsNSDu-OLI-aGqHPnhSP'RX0_0kc[0i9[_lãU"]GP;B=>_?id#r5dt,G8=tl8mpwk60kZ7?Dj&o\\eW%q5*d7xMP^jXrG=##R,rHjãU"f)h_d2<*Tda'R49VBDk<(^EbDev?b;w)Z;krt$3qn$S?Qv8O[4(D3hQ^Y(J&Oy.ãU"jJG+NZ^'3,>J#P=]nQrHdk=/UhR6\3q]DJ7j64[\#laj8]1i=vp-M6Pi1a+E<%4,%60r8OWIbJPB2nm4r&]u&]'Z#9_QM#nTsI$6ãU"*,WP#Im;nTji&o?QYa+cl)o8)3]Db?w3Q>d*,Se2VW:FrQa2zZA1>:AIznjK1CGãU"g#M(sh_9MMlG?6Lr65;%VhvC\38QY6'$'HC=*(eM,4[AXfg#m+$iQ,56E.U4tqpãU"5+NC#R%4J._5e#6F7\[l&RokVSX._]spzSn-d4$sWNT,**4ht^Li7OmDXNãU"B&1r,+'<7s[sK48>)P,hayp'_^aeKB&X[kiJSu^fo\cJ?vMaWB>;hNJ9n1,eq%<ãEND SUBãSUB V2ãU"At5n\/Ia5\7CXk/n$iKhgjI^nBUgIa++el(a=#7Y*g,F7$Lok,GYlqhahT,u=[0ãU"_JF0JaR8kx[k+qYog2'eg7Rq%DtS1H>(fJ9oZdvB%k1wDUZVfTC=[EAVD4(8Z:9ãU"Ev/lgW3S^>XeUEU^yebigEQn(1?4d(%u0(LKQW'?8H3'9Uc'YH3=g4pyS1T2w'kãU"MGIRI'?\*d0BHB4(H_RKiX#Ke79v^NXnIHDr8+/$f[uWv&X\SAe'BYz-cmf6\8eãU"8g^qS?lQdSTs+9ID*2(qL(0MQ=pQ;Z=-rf[t))VmnNU7T/Bi'BmKs-18&lXu&\iãU"CE'X[X+-d5f.+P_'i=w=bK.grbR\H18N%_^:?v8l')X065qdICK0hz+%PTqK:g(c)4r;[m3vbIME\$EC+e8df#cKt4EkZoM9:)u<;(cBhndaMqsãU"QB]XAjO_blAe=EVe4ojVYMLG?&A]$2dKvF/CzuãU"dGxeL\cX#WrS,J8:NAZTWqfenbuk3GPnuK,(szm.?cd(W2kL6L&c;*q_V?,FMbht)lEa9*4F,>zZmf+&kKwuxeslgfq'RYv#itOK+XsaB+awa;+#xr[ãU"_Mz?80NqxN_b.zkhzU;BE]Uo=&7mxKUdz]6j2ReB8&Oroph-C]ln/YGgIzf'Z,AãU"'qY&ilQr4ar\ht9AV*nA>N*;JZe/8'lhT$IfpiDtUb_'RJyl-w5eSMTKxZcqwG4='OJ4^9I:ãU"'i\N(AcPNw7T'Ye]lE7&JTp?kh+iCuYAMLCh;bL]y.D^\4&_nune'jedIJ-^9QBãU"=h0O?YZ3LGhWI+&5(_1=ihKj35V&W<5ATAli\hV7eFEs8HiMm>)$CGonnF5[G+<ãU"/C*sY#Uo_M?wHJYA]$zX?G1Q;CU6QulQAje5KFl[dãU"[;qy/#Yv[GOE:9Pt%3vu.&'[vd#CG6f1K%wBxi7J67+FfxGOpZ5hZ2264PFãU"YI0A221dc?26^Tm*j^_'G:(l7-(RU(9/(CG)S%SbãU"L1sB116E5Ay4mbq?IOkm9QPFI6_^%:(5[)I*$;/5GX4LklA&1L-<^ZIC['FuFY'ãU"ZBF&/d;GB/d?)f-N&3z[e:z)n'bM]VjIB>[#;FOAc;ubD>8^.+PW6m7X*5C.>p*Q4;pp0[jSfvz&:/Y992>wF_j^+DHXW%aY%LlQ*,L.,>nmegVtMbãU"?jpFJ6m;uH?3oo+N6A&?:x:-Xr;G&x\;K#?0Zk:>QãU"45D>>KB#_qWR5Wh_\^C-jfijx$e[kXm.5,wnys,ppp+m\x0t+h0t1hY;TG&vrzqãU"42;%%>;PLN=xF\dfrA1Qm(SHf<=Xd;yEt5e3JO.ABTãU"IGD^%FPMaI_,:T_*e]gt,fn9zI/(uey1*:QãU"uOn>tV_NL&M4:i0[vAKl74F:COc_&w=MLR2I^5dKXUpJAVxX26?FV(+>.%up()%ãU"9%%%#-%697\FB):?PR'7%%=-%%%6%I%%C4);Sh10BFb%ZwSRe5wãU"NgXHV(0/Bokd#5;dKM_91F>4QFf2>RRFXX:rdAl,feD+?l+ok-:*M%O:8(gV]32b0JWFPubtip2EKãU"b%FG$z]1BYA/=+\OT=x_IhSGkRãU"nk7HTb^Wc3:ElRBx[BchCq?1AW?aPif9yorb$I6?f/M=2Of$aSC>A#y;MmUqqv3ãU"DQkEx]:cP5P4;y;lbmgReerl.Fa.H>d_J^4d$OqEYtV:H23ãU"]wWt1cDs1c%A76+1h'ti%Z'86C2x,gHqb&o8=vNlpe,_sniqi+)cw0z)ãU"(xwd.f\6RX?_(dW+/).%up()%/%%%%%%3qR]Fc:7s(E^7%%E^%%%3%I%%C4DG'.%%[0%%%3%I%%C4)YuGkw[v1'wãU"7V;B9+kXDJFlXg\)_YkVdm[Y:(l8f_3;/=UJvsI7ur,m_ZOHdlC/XR#6]^iI>LXMnTv%pDF_RMEl:ãU"voo_E-/z3H8KWS-5tEXWrI3DfIEM8<^uPH,]YjqCzD^-45+mFFbX4Zb^EiHdHVWãU"^,YQUR,vsa;9xt7EoJRK?$eaGR7,aVdcWV&6e49CH7UqkPu'UxN7ZYR(K6:bL&xãU"s_GNsWE5BajNZBwhrVYxVElNTWbvHLp^2;QYfRn&PEwKvHGILN:X,m9I+$DMNA(ãU"3ygUw>bWK//M?=h[GB_ãU"6\Z:OXDL.'*<9P*ROow1F7e,Tn42omp^P*>F6e>ãU"kK(RTX4-3wcixqGh&C[Sccgu4BE'obtjJtzd^\-5fB?)l)jf+QM+&Mj1qLo^hfe;sm5SnnIbUJ=GqfL[PEVe&q9[&.JVdJ2()[ãU"Rh,nPSVftjCIFpiM5:E;=SlcCagZi8_PljwR>*F6tjQkcgL'ldchwiVUDwaDC7]DnejX&*H'I;CPJ]&ãU"X=j-c?aWBMo1mNVBp\hma&&E^I0NFfpFI[#zsweYV,&SYRRAx2,E0$rE9,f\o*+ãU"K^;c$pd(Fb(J_6dB'-m%^ãU"d*;0/cVxTnMha/8FL';Dgps^z^Z2K^W&M]7fY)+LQ%:mh*JC.-0xe?lcs1NF2V7ãU"n-*&E#qF:7Ls,npF^:Fi7xfT\?U/OoRj-(d0WVt%$Uflu'hiBiGj9_1nj:s[Vr9ãU"Ca3Db\d>Q0DpnQdR[eTT-q1ge_bU?L:QVl6ET>./*jb^\$aML3RfAgI.:HOCq?jãU"j+bJSb-#Mo_m+m%-,Abq<=_kQ96i5JV?vuYHbMm21#7RP,(e-bLbYl'm.lIZ9L<ãU"E[JnK[/%:t7RDdTib8i6R/FO(b_uN^'j<#/5jxLk4wgf*dH7rz$BqE)W<*tmg'7dxkqMP=fc4Rvg'>ZK=4ijK\kC&?(LãU"[jv,>Ag(H+aWwg:1NO>Dfegf_/YL+uE;azUWaApLU91S9&h3/s$SH<'UoUSok*oãU"H?*&g[VmCfE7N>Ol-h\Hu3JZHR-:>6#^:fi4Eu_E3TgiC2RV')bsãU"\/OJWAiXwvBWkThPkI)d.Gl3O+;x0^mãU"QdeknY_pjfHhkJhJhrx^x\4>pGa+djQ*$,=Bl^0m#qsuiogiKbr#%0xTCuVKrLaãU"\ifqMG=&+Ut5kT;q(/OknfK?C2+ff,ntrF7Cx.qow$>kWE;VMWbeG6*VO(dZ#j5ãU"w9=CNxFH#LukzNI<0/[CcBh+-=9o+1tci5O?E-3K&Gk'[;u4RupqDlH5g&S^\*1ãU"-c7>^AJiMu/%5k,x:=\vkTpVlHs=-:qc3:B+I*+,-l<]C*w?&TlrgI?L$GB(bgT<4ãU"e3u0eT2VB6abYOI#J,=tzT6<%///hSnTBITkd,RJmIbG51^?Kg.(HãU"LN(C1ni$w4GRC_8j\Y]mz]tcW-('K$xVZ9nJdq_2GSLo.(PDW;Grl'8\]]dMN)lãU"3rLIO/brvUI)XO+GMU%k[O9K9$Qf#&kFWKfpPF(%^M3EwDGMMBT3wSIQsYl;/'aãU"i_CvLND\,/U,dcYG(MS_D,X4hJCCbdsvAP_HnlD^O4$jK3q[Ps9E5x[c.rbtnwuãU"^(UVlr8KVE9G^-O5]CujwvRC3ooawb]?xHnMT.u-rhKT-47\I*vE)EVY2bS7])uãU"BIoKbhk$(^2ru\Li1Piu^/,S&Rctf0X,Lotc,F#oVqw,7waBJBu3Ig(od9suK>hãU"QjHZ2Vp>VNMR4HKLPT.gm-iO5;qhq&d1'A:%bj=#H^A*w[''0aPfPX:Y(9k(FTpãU"M-HO,7>WwjR4L>Siq,*\Onj/0nuv&P$&[78tN7.5pb?H#^hpc7O2._XUpoUCCw&ãU"8IJ=Yjr7)7g%Fx_Yc81i./L1%jZqf.tuiC/_Dqgd(fP<5GAZlIByq]UR\8PãU"Cw\.WbKcV%*Tm=GEvek%E-FV,>$jJR_-:fF>B&Xe_*P;(v[d?bK9DFJN3N%E2=(ãU"Tr(K'l3h)=UhKq;6Hq$TnTuqQ[ogSNFuj[JH;3)HQk*r4OqHP/wTw5qEsSAl6tPãU"JL^V[GXL^V,xL3b$0-?;Mim.KXi#,:ll33;.4+=>%G[Ze0XLl\TNj]JtP4r^A\]ãU"60x_4AWLY500ZeO7[?o4:_npFN:G(q-Q750iYGmn2)tQSff$ocX.ninStxnw9c%zpf.K:Hhu-u^n.nhMãU"/rZ,I8'+24[,$m([[lkd.e3ujfD]%7zEW\hehjRXGufap6']voALo^*>s9vy59jãU"'HnvJj1BfI?#cqjOa'$>FCc8K6P(O#[bDt:wK.cfGf4RcdFL#Ap8/5nmqS8Rfk]NEK7i-2oXI7dfOiHFYjoIrHbfSC7]jbpvãU",?\nfN=cwPYD(SHI0jSBNFmKo1oP/$:(;LOE,)CTg6[f-R*FRqC7,'Bn'fh.QxdãU"h0g9^HTXM+Q=DnYQ\rkkbxkr+&mD:'d(%\q'z&Rs5eck;Q:bJ)bec%9X++Mi>4(ãU"wcvf(+(7\bo'r#sf*x$GRXAm9.rH,*IG5RrPgSDDAeO5R.X+SbZZxoO6?PW7.AwãU"BuHaFlf?[0&u.8S$kI4-Y*qS\4DRhNCgkJfnvXSgFx4]Sx)YE(S*s)+AP-F'+E8ãU"Cg_hGV##j>?PWOLX+I^TF(t[aZsIoT&SEp,=.+%=(O5g*PkD0lUqoZ$T)l$wL5NãU"sM\/,'[0vdaD^^iMZU\.dK^jz09RCm1z?T$8B>CEjfT'<&Bkg$?wZ#jZwU[y9bfãU"5lX>a8t8SJphVaXy6b$ZJJJ+,=E]j#QYrMpe.&Jb?DSZM^q4nn:Su#e^_.Jny&<ãU"ITYhq'$SFeU5$w&9KUYw31xqn<)4SW=9LUn2M6oI['Y5F$DY\UNE2j0pãU"/P[]i,txZvLGf*.I%rYjPZ^Q^RoO:,):PIJiWW?*-v-C8cJ(If+2IJI]TXBi-UVãU"R7CBoExjOh6LLdoE4?EH&<'B[P*&5Bcj+7e2K,z*<9n(#Qwq?\Jh0aRCJ,-7YfXãU"-X-$t*FVIws/S&5aZ*#OfJAE-l'V/rLsTw_N2Saq)Wh#PiJV7/=lS:[H$]Fsrs'ãU"Q)'<1Sl($7J)T[>enp]DRI/]Bw)lg(;1vR?gnoopo+L\7/UaqApn*#d$Va5jU=K2iWhtX=KOFfY4j'0F*Ug=R&a/.ãU"wxY$kV0aD/lpdbE$&E3.i2R7:DMaI(]S6*sDUo:P_M't[U=:ec-mDãU"8VQ8kj=WVV,g:z5RXpD'ba.ViQ7I;_pjB(:.kOb5bT]/aq$7T3*0sgs:O6iT5/uãU"j>(2u^$/h;X%;NGR_KuA;l\>T0D:lT=j:98V;KsV-0qNNãU"y0G=J];WP+1L2,IyBr-HYIwicd:&mG7QoZ9IDI3AFjsKt01otQ91GHBZH#jF^nSãU"]42%I1.8Il'=p1YlkP^<2f?3ePGqCE2ZvjQfC&p1Jd<6('*=5]na\U6#,]_wl[ãU"6\YMnxH=-/$+mTS7sO08L%dtNGiHKH_26c0Y_l=(KsopE&wQF'T2nqB5sAjFkv?ãU"7E'Jdc4o44TXWgKLFb6C>K&O:pF2xJnArm;T[\0D-79:4$c.e,*QN-FmVQig*stãU"Ef_ubJYRtuMcN$2c+,?GG&EmAuQ9.yOM*Kj;eQ8'H-29l*DSCS&ecDX?IK($IuBãU">Hi&5\Aq,6bXoi.Ex$u%IA;n]^:jqYkmb<'k%kKI5]saWVb>a=X0(S&t5Rq8z[XãU"sYJ&OdYPO;1;4>$0k+j?rWIEuS022j+3gluFrlfoAhwGCZ8>-2'KLR_[/Aw*Ul,sHxJ0dãU"2g;K6+v8GO=;tWU'Q:h:'5&fGp/U85SF5$&nv/]GR4W3F/%R:Z>zVsSXv'dt/p(ãU"((7HQ?&nCC%H9Th+Eu7_IoLjsU*I9oi$:bq<07uXG4M3(YS=\jZb+ãU"?kl\>-ZGP&6)-)G)NoLp.X]>5KFE_AaZVS9?)AUc%X0uWrLiV_;nI&8*iSS8X(KãU"3#YOv+j[Cc/]DvA5-A[e=BPWHjTg)&V?^ZuN//4*5ScUFR$O;2-q+n7Kd>F'gdO7h8(]LTS4IJ6MsãU"Ft'r=;Sd4WUIITaj=,E2Db('mDIp0'WN#$3T,fqjc,b):$Z^S:%6+<;Pnwl]tf0kJAlhvkL7/jp2x)5_Z(+;o&$A9*9]t]fikmD%\MI\fosdPuT.lq3pHQ,qhUNk.ãU"LIG20;0ãU"1j1AHLKnD7I:Pwjk*aK]MYi]A_1B?r9^uVWeJCg=Ub;l;lK*4u?RtOGXBwt[3z=ãU"p?v2v,YPnk.Ur.5Gs6rtcCrlT>>4dB6kQ2ãU"Ld1;-Rs&.1g#6='AX_rOoZ$miDI-Z)I3KIk&%#+R'+/S=_.R%IcX(\t-cKM9-MqãU"bvl:'YCYs4L1XzL:EGhECKZBz;[ãU"\[Gg/Q-)=iIwqOB?9[-#Qq9v+qY4\A991w#KwydAR]h5l>e7GE=>b7))t'UCl5]ãU"?CSz=s1#xcr4-EE0,[x3HrS%($:C2jL2:0Y4Bn(A[P^\K,1c>&\SG=5R75-=>mpãU"yv41<-GQgZK9;nkWZxTu96((KrkG\*,+/cWrVHa+re_LiH5E6W/.chmY2,.12mEãU"]g6+gL&)66-C^Wsp(8v.9dKidhacHHhUJ)hrw&$Dt*j9o6+0RM/+yL)hQ(QãU"&Fgc[d_r&Pi9.=[)WOuQ'Sjz08*0EhVpY4jv*G$'20AGHYieL6m)DgOpxD$POW/ãU"-(bl&0M\6IhfV*D%^'D(k4?ifV9F9]c]+I?i(PrJ9\?.q.5\2>&QBMDotG6[Qg68^PCb&_'\0QZirHkkDg_KEqD=WG=R%YDkR;ZoQ='+W*ãU"PK[+ht8u4fSW+kn6%bFWXG1-PQ+=Drk(NeNt?&#\(b?gM-8YQ^+8n3U?9<6G;>iãU"Dw+)Kd:GFGI?_lok3aY3)4(+TfhMaVldLdUox7z2WML<\%r/1t5/XJDE:nY)^r1Dn'(*4W=gãU"8pTI,oB1-dtBq\q_?.TPa,ujpC4nM>s:^Jhe*XdkNmCt94zENmeWABlE3oY)k96ãU"KkiQ-nbfmv-*qD,^'k;X6vUBTD]t8x\$VUW5b_T^*ALT<8Pd\Ts8pk+QãU"oOf>3dKLP[BifE]H94O,,F9IL^uzHpxd(hR1dxEiH#3+R<>&o:%2=g2;n**UWM#n?EeE&:TOyYbdRpãU"N#5[RuLM%GjV.4X/kS18(USHJ0$)2gf:s$LY)4SK8i##$;:#eB4LI6k<1Z>WYk'ãU"Ei&c^S/.B6]>U0Jh]g3UC.*PpeL3gPOm,Y]vDtLXHh-$6T7?BPYk=^S8EWF04V&ãU"gCnN&iVK]=z4LBS7?SG)YoGNj2u9d.]lS)FeL8>)Ngn2q/x)rUQdF:Zr%s5b(C<ãU"Uni2qf%^1v]n'mZ4t6w^HY=w^%VOoxT(DC]+=;FXpm/Vw]+PU]?bW:?K0ekmRrGãU"HNJdw.LfCP8%<[yPzdAECpx?7rmA#4]4D8_97bXqC>ãU";W-76sp62m2t.D0cv(l9+2U/EF+RMo6YF]%Kd<5_O0F?K+aj2vSay6C__l[_?u_ãU"awQ:I4]*5&A$gz)'E9AG%$k.vRQ.T'otd2+q+TO]wDqA2eY0Mu9iDnK3ar11rvBãU"t:$n)eU7H6$(E22ML'[DOK'e=6Nbd'#Y[m6JvQ\BfjwA.8Gzq1K)Qg;RgRoh'O%2I%eiZj9>4Yuh_.A=ãU"J-esvY(pRQCo>-rBl)EE'IQRrD*p%Ye\q:Ny_Q/cFa((d93xJ+7[jc,QGP#VgwQãU"=t9er,Q]rog/_T)>aOwcRp1cyAQ#M21_SJ5i]+g,O%7pc,)f7/Do6%XaC=4To/gãU"mf(FWfeL28U\4i1w5It1\[jtcr5bq]sHjRMy/ineXq=JKrxsz0>I?d[j]$%/CL3ãU"WLqu?AirVi2>?u3c#U=(ad#rLIEZ2QSW&6gdC:l)ehs272bUj$q0?TPR],nuu$jãU"'cuG>U(\VA)OGYki'DM>^=X\MFa2,_qW6qT=(p3mv*99cDDPk(k.(]3NSv8dt]OãU"6+k'\V.,gt[yCMz6e)+R#WE3%MG*w[s%>kr4WuUpCAGãU"q[8tK9*AfDJTS>c^'F_uP3HbE$,6,wQIWg1'rSw$b/,6aIXp5\p,m1#g8Vb01s(ãU"am>B4BFwklJIv$.5d2]8G,s4i4)>e8,:a02#KC%%9bb+VaNn*a'#D8aQX#Qnm=SãU"6.$Vys=td>,p(p4x*)=>TU'K[zYfS0C*#(_&WA*:I>PpU1)OTHA?oE=7=7+M=THãU"0laEs1_l\e&d)6w3Ra0Bveg#RRzkBo09S_QMhKq7I[rO1UD]ck;#DuYH>1*)2<=ãU"jdAl:sL<>UnY&jqq_g6Qt-,[0A^a.OKwGM-0K�W##T195\j^*;#yT(.-fBg(vãU"iBJxsts:>/vqLl0T0Qi8_]B.9OkZAso#I9#a/JDjE6H:\/2DU_q\Asx^,Af=UhYãU"/jG+Z)ZlEoho8RWaeuRVu%(-RrGb/N\5e4<0emiL:v,M*KTJMVSWãU"A&AFFD]Fbi4E+\m&,luYhmI=iOngMtL3RzY?Je+Zi^0Zc]sWEQ'iqE(AaN1n537ãU"Mclad[414]2OEH%wmBykKusf.QR95FSddk&_jmf[InKgiBA__ObV-RNV0so:RDBãU"M8bsv^eS#=)6q9N%b5B9ofcHQQ8=>:_+;%Z-opE.I>A1BFWB_N82iU*A+zU?'W%ãU"AQ\3'xYW)\Comdzo6.+v:yJA?Cg+_s%6mZDDfy#_mWY'LB9[kkXS.GbT\U-:t31ãU"71I/V\;dI7.,x^fck:l;*mUr1E,X8[0,+OG)>vJVa3_vG&[P^r^$TrLg:v)*=O$ãU"wvtjMnL;50?UmPEll2E0)rrj5ZmEvjM8)G7z%uj4[SE#naKl'g-gGUvpkLDUtvTãU"F52S'<5\DUm/jO>f+bY?/dl6p10Y?(>vyh6F)Fu4QDP^rE3+\m]a*LNo*Disz\%ãU"w,(x;-WUVeFIMw+7[7y)Ka31=YWP;.imC:_CJY4p2^]Y*n(:FIjKYFs\1O6-9Vq7?6vaAmh^9b(GOC*%QnoãU"Z2X4&8f&4C#?SY0JM&E(<:cL2N=9HU$Q:#X[0cW9n=EhvC#iKxe$SnãU"$yxghSkfqO5*NxErptuJ;[MKW\>pN,.',50Ad/b$3B9D-FvCZi&^T)thi?2XDAdãU"R7)>[EmW&H;E,_EZobwB56rH8sLdwcEl%HWXK*5W*6jq)2R;$FOCn%.p8ãU"-O1ZU3Zf&*fg+K6&lxE%u#YSy:eC5coN8E1d6B\U^2HUg'[&El21qj2:YcT*6ueãU"=4DmubCF.6>7t?4K[<(/?#D_=LD5(1&Lo:MUo(+:dB[>pb[;GP;WKK[8(Q/gL\s#0MxUv1%oy:>kqeRjãU"gp3+=u+Z&n//ZX=cb(Khk=e)g(U<;\5LxP>](-tIf?X)9TmLGM_w-+b9ypKA9w'NFr;B2NObyãU"fDDu_FeQvn)$j:BnVpml:7m9%fo4M\$:ZA.p?ea6A,_194ES$LQF,)V\r9-Yjd\ãU"Yd-OC0sSrpqvs)[PL-TTp4>[]NNZe=+:Fz4W>dZtYF06ba/,E&+S?NKpdj$bgSQãU"[B3O+1'(,['%Oi$kNZ&uC8Z1s79h6tTc5Xp(Q,iP\8JM3U?]br-=NnsrKnKdz-.ãU"UESJmuu5/krrHmY_I#jT2F,uVkkE2[F8&Ji)*g-wZWd/h0GDbWgLgOum)pWz9B2ãU"CPMR,68XODc]Bo6vXj=[a)#(.%KIVCyNKqe1s'*\Ft;Xg$_qTHkfedNiw50YbGFãU"L[Ql'a]4CtTxEAg_GW;?U1zO7BNejX=lC&jJV2aP3n12+ea]05EA<]Bs7F&wE$ãU"5?wXoduvbF7BPo6^Ia>[K(^imKNLbu6r:yN+q:8LN7thp/lc*bQZ>Z5-Jy-NA-XãU"srqPWW'#Wc]+Pa3_j_&:$Dy:siog2L0p/cq6*i6bwhYZ)ueh$ULiH7H;jjYADiBãU"PTcV_JKYf)hf-NsVP.tpac8OjGZp1V/+((Z,;4yWjF;7GYWoHe(*]z9<>wMBtzVãU")9&bg;'AHWc$Sp\)9O7\;%QK)2z&Y#H-)nUX:Q6*EEd67f9So;atBNxjOg3[.d>ãU"9PE4*lsX'7PA:fSD?Y61:#.mW2^)96FOMg&_9HLIJ*(e2$4D,6DJc]-f3Jm]#)fãU"i#diZ$sHgb(Aprm-t#Il^,_&fWFhoD7'2]5&Oy0Zu1LIQXsqOJ0/>1V,47r88(AãU"7fTe'sAdmDeAUfS#/=r5pCj3wM=0jno1c'*FMA;BjOyFW=0#9xh?2'e/)%fXWDnãU"*rsMN.8Oaz5z.ixngck1Jkc-yt0Ie7Klef\;?VI'ETuh'MFU;p#yO:C*VA=fT?GãU"BbdIJ/V1to$yXtZBIYo9u396zJCpgU-HREqFGoq^1u&A>FS=g;e4_Tx_F/tJ6K]ãU"0kfHZãU"pmw5=q$q$$ng+UX^/q+ISc;sx*4RGzNe/0fT&S#[2acVj<\2d8]+D%0gI/wkj.XãU"o4Qr7&nb>2$G&^'>80EjHrfu2N6:*Y)W=Z;g%bZ(H7k%:D7k_tsDSYT[riSRZ8QãU"[KphKqWklSaW:RxI94.'tG(bMjbumbZ2b0(5H[zUiFvY>bqJN$^>2'%4FL<8eLQãU"3?[W4cMrL.=H2kc8s7Azv/(FK'<>f6,;5;9>MpKv,a2OZe\[q6'yBM;ICns^xv'Ee/ãU"'N7qVnXI[b?&y+-GY0IdrpSfvA$2:kxqL-5WA\-)8lQi14(3)dmTTADOe.kq[&EãU"3QI]DUm'W]t3t.h_1>u?Pi&m6aWESj*&RBpj/[:I:c)=ea&n*Lj,(t>:sEh1F['ãU"$tH.%lg6DVoAPQZ8v%%ãU"I)*[?QUA)[]j*ee2.h&Lfk+5w0s'01%.31>e9s(6a7I%Iok+10):_8e3G(mt('ZãU"C2+mF+9wcT8g-h]Ds8xIoJbvf9\lw[;dLN]cvs#Rgfq^R,eY\f4%1=EX?$Q\U0VãU"JWcv?RM;9GTRt$MM:sIG,DM7dQeCdyoXiac(HrB#V-fVPDd0M'sP;ditcZWSHCpãU".Bk$[IewpBewz?+G^l'bJoCQf,H;w'#WC(=tKZ=g].9fG)A]StMSqwXxis*iO/(ãU"mJeZ$c5EZJ7eSZac)%?(T\j-hqObjfkb%)#f33tPV:Uzw9JXSh*'k0jRXZ'-N0pãU"0llQ*&-ZmXnp\]QPI21j11Y>q8v&2#LO#Xf5okQQsCH0P%fSu/(1id9M7r;rE_CãU"RGbTMhJQfnAEzJnb=bkh=%;JMaep/N#'g:c&ãU"s=t.K:hW=Bt)5&(t)d[XF^A2IzPDQeT.lT0XQp\JfnN(VabHPGLJVm;b6d0s47PãU"LaFMfd<.7X0]8#,^QCG\GLoZ?UL1%Jm*f7#,dZfM8-86W[;?9GMMFt0Rd*;ohG=ãU"lBDTvPIdwe.Su(tj=5TMPZ>oD,?K2npL-u<0/>EeMSYa#Yt>-8-9_Xu'MRiBH\hãU".vX2#inQFHub:dFuUYLU*9(78IF\d0WL1QZ7h=ZN&_t[Saih+K+?#Dr(sW][i)9ãU"q>3/v?#8x>eMbK7,M^?heVWWXHhn5_dWTKQ'+DI31;i]>f1h'-FK2H\eu^ERkDWãU"NpQ#VBMHCxu%V0H).$m\Jh'N7ãU"V#MIre.DFSa'=TIHXgu%)iFut3iFuB2fv7LL3dDj).mS[(_DKw-LUk8K-i:\(gcãU"Q:tPts1bKbHEilDx=Y]wkDLiq3HHt%e%r(vzZHIg;v*]1h'DlKr?b\\b\8G/0.%ãU"=.9pk06H7)sv/Xv,Go>-S1%8mO5xlbndDu>NV.$M)?31tkVs1XF8HAIigTfstwIãU"iboDX[;,JgN04yRPiM3EEEcHV\8b-P.G?-lm>:O%vRTR,L,/u?L^uNZ4$ZnjlKpTF84*dUg%G\?4J(kFU5t,hG1ãU"7\8+9Lgma;3<-KjNCdU)SaLgHO>vS,WSsBiw(u:^:_zZsXKsJSso8A>l[hjV:Y>ãU"\q7kKXs^mYTxlSm,5+mtab/1;[lbTT:dbqn+mj[X;58XRX4En-OTQdIwyOd<;9xãU"Exqb2Izy4C+snz)XL.ceMpOXZG[kH$*KãU"f#>$]/z>M0J::l&uT#)P,#:1-I)RkG;?PEKw&mpkBGiCa?%6W7srtxM)rTR6LI?ãU"&F%HVn'KbM:jV8%mf%eO-w=KPdgd/#]OKq1nP^/]j&uZZ]:5-bl0r,h_$tqPsLgãU"$V^(M?QbLZV]u\9W-6Ol*Y.13B)'my3OsHkjCScdiUbC\zYC(%4.)u-N^Noh^uw,6lU0#[Wc\qc]*&LUg2VQAc&,D3Oa0.uMf#xK2I73YF8_w&RNOaJ_ãU"rKsaN&z*b/Rfo'sFTJ8Si+TrUHo]1ItQ;+g$\$qNMãU",4UVv/EFTRTA[KX$,pXnvFtnVeE$HP\lUx%6eUtKPp-u3drE1>p-68Pt\nApVq:ãU"Lz\0AD_6kHt7Vw38.=i&C-sIS0h%R6\I_4Q:(;;t*9ub.1abnM]v[fn'aHgviT8or4#^d0%]-'dQQ$QqL/p2-=Z=W\Ee>VrD92Go5$h=?MDB-P)>5IEj46qluHsn2*?kNotES=c0_/vRG6P;(7.U;m5hIhXv7Y&PgO?Z.P$Glnf)P#r;Y$:%jYf=;kA-$Q5'0ãU"d:/ZVD(i2JFKE\3.*?\0LCW:ltxm[u(9l9nhxllTRwJU>XE+z&C_ZPUzw1-GsczãU"vlK5J8oL;u3p\Ui2nLT>[:Hr(s(Bh^^)ftRSEy9riON]lrrckCm?rl*jr4:9\7Cu>#o8ãU"Ml0*hQ9Mt+c7TQ<7X*O.$Kj4Z31;d^bnbSfren\IA89C3pVK)os2A2t-]5fpki=>rSW7^oR8CCAlHXãU"OORPW?^WrX2n[To(BrMnN4d;kj&KsYW3YWP5oFYMLtZHs(:J6Z^X8PevBhQf8%2ãU"ox98H3su^)Xdvgk6q;D&D+zzypz'831'>u33\J&tbt&TfYM$<^i+.n8kI.I,i7EãU"66u6w$x*68j<'-8ENOB.sCvV6MLpNa7m&S/9gm#+YCJYBLv;G.*ãU"SW9NcKxS;T^0ddCEaK1.W./SRq-abcgrOaCOVhk[D,km3(0$Mt%qrB>>Z[<z4=LcD8LãU":=YT[<11-^2:5an_-CãU")JzNPk08Y8;rrV(-M%dSFi?EKhPI'MS[Wo=E0a))juai;%&kx_#P>D78)lHhQi9ãU"B>1w+.'qF$6Lf=PHLB3\3mbau-p]c*b2b50M1=4\x^NoF_dLpwC%m5phY%G<^rYãU"o7uYW$I-cu-yQ:E\Ioncu$$qXf??LgWwk6-MO_?srn?f5ZMgGPe71lUZdaqL_BbãU"Bu)I(jlr$PX$)rY#usmu(KIGxowzo$(s3)tB6YFc?(oQ;[2npjtB&<9E?17NjJrãU"DZB1YgydduNn05zMIaEduB\>b)0%=zHx3-.l*FLi=MnKUhB'HiJ5&&pArG?D-tOãU"'q0O8Q;(Ts/Jqr(PXr00.g#B>G-CgLdlmXa\hUB?HH.;lPO3TGa6A=)wif20j*IK[qSdh*Zpz%AtLz^dAy?YFãU"&q_G-;jU9tM0]x;?i/PBRmjWK+ZwlBMIsR(o#)y-bãU"sk803jrut#RYXQhQg+K3rJgm:No2GKX^nm4cl8_f#1\0-q%vskBR1++(38;'MT9ãU"C6m^nE\Q^.5Q83QuI:86;Fk#H_+cu[Rta?+Ba4Mh%]cJx=[,V%N'J^cYGPgc6XRãU"^1O't]H#GaN.5A1Q&MwDUUevMRm(>Avn8]-oBqSzFs%y#>kh&fJ,.byieT9rV=tãU"yNO-cVvq,'cy#=&,fnn2GQcBqXNw3D(DQGQS0S#nV779aSIa\sCQg[pC*iZE1^:ãU"u'(v'=%9:j)*Hj=z%6f.G.=5?U&Vh0]4K5j4%K<_I/e)Hf;N.q,\e'agcd)o\aYãU"t6?>4-D>gBi,oj59Zs7tMRoo^jZsAo5-bCZ3v-2s(S5S(;&Y[+O<0N:LUkDc[BMãU"%b*9&jVOju.Z3:eC>YWZ&S_\Qs%FI:-aoY8&:VlolmLuJt9TaA.'>+ZN:dYdD9*ãU"E)$MUHabPmP4.30n*_yjo*R29V?,nGicr#ER/bg&1c3WA_^MBC#ANt'S4U9ag&5)e]Kow(2pcibwXEedM#Q_4IxIR?C7j(rm*gUt47Z5BZMp-Xm(5=mfI8>&=$X_^a?tqlTJ87F&;OXXãU"uEx[T/5HbEq8vKJ5A'knxt;kp0d:oeoY,g<*CBEFk#+,Bdvu+i=TNP(U#%ACãU"&q%G'%%&[0%%%ãU"3%%%%%%%%%&%E%*/P%%I%%C4)(l2]u.HiG/t].lq)HmãU"^('-TQOTp.]xCb5_/VLQtTH)n8Qr.wH&13+WnNN(m(SUj9FN%\Je)+v8)>pkcv7ãU"(%>,&m+\2/%s8zjZPWVMg]9Y*7(Ed9U#kP:GKRDgd:U,<(S&Fq]kS^TIBQ#nfUTãU".hIc6QQE5apKi;5l+7n(;q$hqCUgEa'tAaK=1g+S1n[l4))lc3M.p*dv8EmY7-iãU"GmADjJ>7;%.tvacmBhK5((EmTNp>wVslLPFQ87,beL^n^%B&ZfrG9*wy]K'&0NcãU"<5a[jfV;Xq,E*&ZR-nJ]TahnKgf;P.w&Yi+4lv7YDd=nTSj69>i%*:bJM#Ru8\]ãU"(R$oI8ikxQubPk6X+W.%oZaQ%;zdp-Pejz%+orn;8.4KutB#\2<\J6nHEjEu_E4ãU"uqWjp1ef+0R[S[DJ9Q^%N=m$8qRrs\hosZEc5rL8?GhpK^^X-)Y'U19kCQZFm7LãU"p;KW*uJ-HUTGi0]$T;Z%;CGDj<#CjuePO)hI]%1=pW=Wqh1QOYZgP>Awsbo?r=5ãU"&29u*EC%e,G(/W5?./HXXHS;LPA'1F6L:mgG]OI8.&HF6f/8.KD%:^Y>DyF0pC)ãU"xuYP1tu;i5pvjrrQB=$+x.CuAãU"H6R$VocLubF1[9_N)J;Ph(dAhP*EEhB;>Rg/4hM^jIHOo*\h0\HG=COHfYTh=tif,dABxDY'Z+bQKãU"D?\\YP5+hl0,Uh*A.+2GT9=Q;adC%6MxMdxM&a*w]s/'LponLPpq7>_C2DYuqhIãU"13+Fm,yw*u%p()9%%%%-.%Q8\1F3*q+lm'%(%x-%%%5%%L%C4MAC4GIWSãU"10GB.z,,>Se5tK0]x1UXy+e)hL$/^%9Pc.=v%1wWOYNfrT^T=NQ$mV/utWWl8<5ãU"qotgV/JoEM=E>'k.uW[&SBez?^[d6$lr<['wVm=DN-UUddRA[Fcf#JA+1xECy89-I4A/9j3_-#7ErO9O&5,c*,aTAwgITWI:(uAãU"vh+y7.Fwv;IubNoG6rZs0W')ãU"2;dUZgMGXJMEu&H,rPlTEw>.?9Cu+u]*53LãU";%E>pornT1N9=B.ug8U(Cw'Yv)nQ;q4*p64KX_BU]nXHN&iUA<#o[iMEr.,'V2yãU"G>Tv1&HV2/^>:uIr;$f^3m3&Jk+qY_BnuX>3eX\rEvDv5QWZ9;6cu+G%AFDD(i[ãU"4cdykgVsRjo?a=lw+Tq;RGMp4Cw^.I2Tt=?.F+^>Q0]L;AqB>olc3D>xSA(qBZ2ãU"tBZCfxDV+=oWu6E/^Y&[&%%4%'%%5#%%%C24lt64+-)Cg:JKTG/E/U^0HF>e1;u=Vk0y&;mXLãU"b_^n/FSOs7HR=bY]$0q$$aC],0gu/s9==Z(T^O[9o%Ax*:A8aPef7nGdUU*1]jDãU"STKgW=Tp_R0U54fMCZ([O(?a.9e/46EEHc3tDc^UgNipaSC=?&ccWNk>vT41.;;ãU"7?_*mGi(I#FZB#XxLF7;r]ka-buN[8GRWPQFI071(9x&lKDnHLrMx]Z%*JpWoA_W8v5b)N^h#5?4'#>,6Xup%&'W0%9%%%#-ãU"%*7[\F$g/UT/)%%%-1%%%6%%%%%%%%%&%RE%/P%%%%%MC4JAS10ãU"&Bup&%'W09%%%%-.%/2[aF.g2(OD(%%%m.%%%5%%%%%%%%%&%EO%/P^#)%%C24<ãU"?TLYG<>2A?7S210Bu%p&'W%09%%%%-%)%q]Fit^P*u#*%%s%<%%6%%%%%%%%%&[ãU"%E%/&PW-%L%C4J;S10&Bup&%'W0/ãU"%%%%%%%3q]4Fc:s+(E^%+%E^%%%3%%%%%%%%%%%Ej%/P)#U%%C24AC4AGWS1)0Bup%&'W0%9%%%%-%or[]F>//^Y&&7%ãU"%4'%%%5%%%%%%%%%&%RE%/P)8#%%MC4= 320 THEN x = 319 ELSE IF x <= -1 THEN x = 0ãIF y >= 240 THEN y = 239 ELSE IF y <= -1 THEN y = 0ãc1 = 1 + POINT(x, y): IF c1 >= 16 THEN c1 = 15ãc2 = 1 + POINT(639 - x, y): IF c2 >= 16 THEN c2 = 15ãc3 = 1 + POINT(x, 479 - y): IF c3 >= 16 THEN c3 = 15ãc4 = 1 + POINT(639 - x, 479 - y): IF c4 >= 16 THEN c4 = 15ãPSET (x, y), c1: PSET (639 - x, y), c2: PSET (x, 479 - y), c3: PSET (639 - x, 479 - y), c4ãPSET (319 - x, 239 - y), c1: PSET (320 + x, 239 - y), c2: PSET (319 - x, 240 + y), c3: PSET (320 + x, 240 + y), c4ãPSET (x, 239 - y), c1: PSET (639 - x, 239 - y), c2: PSET (639 - x, 240 + y), c3: PSET (x, 240 + y), c4ãPSET (319 - x, y), c1: PSET (320 + x, 479 - y), c2: PSET (320 + x, y), c3: PSET (319 - x, 479 - y), c4ãIF v = 1 THEN GOSUB colãLOOP UNTIL INKEY$ <> ""ãENDããchng:ãI = I - 1: IF I = -1 THEN I = 1ãIF I = 1 THEN v = 1 ELSE v = 0ãRETURNããcol:ãscol = scol + 1: IF scol = 241 THEN scol = 0ãecol = scol + 14ãcc = 0ãFOR n = scol TO ecolãcc = cc + 1ãOUT &H3C8, ccãFOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT mãNEXT nãRETURNããã' -1 or 1 routines:x = x + (INT((RND * 2) + 1) * 2 - 3):y = y + (INT((RND * 2) + 1) * 2 - 3)ãDouglas H. Lusher PANNING W/256 COLORS comp.lang.basic.misc 10-09-96 (14:03) QB, PDS 321 11708 256PAN.BAS 'Some of you, I trust, took note of the code that I posted a fewã'days ago demonstrating how to create a large virtual screen inã'SCREEN 12 and pan the display screen over the virtual screen.ã'Shortly after, some one posted a request to have this implementedã'in 320x200x256 mode. Well, it can be done, but it's not reallyã'worth it. SCREEN 13 only has 65536 bytes of memory available andã'is already using 98% of that - so there's really no room toã'expand in. In SCREEN 13, a virtual screen could not be any widerã'than 320 pixels and the most height you could add would be aboutã'four lines. By contrast, in SCREEN 12 the visible screen areaã'requires only about 58% of the available memory, so there's plentyã'of extra space to use. One alternative, if a large virtual screenã'is needed in a 256 color mode is to use Mode-X. This is what Iã'have done in the demo below. Since Mode-X has all 256K of videoã'memory available, you have room to set up a large virtual screen.ã'Unfortunately, the memory map in this mode is much more complexã'than in SCREEN 13, and that makes this mode difficult to workã'with. On the other hand, my Mode-X code is for 320x240, so youã'have square pixels and don't have to worry about adjusting forã'the aspect ratio of the screen. Anyway, if you want it, here it is:ãã 'this code is a demo of how to set the VGA to 320x240x256ã ' mode and then create a much larger virtual screenã ' and pan the display screen around the virtual screen.ã 'by Douglas H. Lusher - Oct 8, 1996ã DECLARE SUB XPAN ()ã DECLARE SUB DrawCircle (X%, Y%, Radius%, Culler%)ã DECLARE SUB DrawLine (X1%, Y1%, X2%, Y2%, Culler%)ã DECLARE SUB XPRINT (X%, Y%, Text$, Culler%)ã DECLARE SUB XPSET (X%, Y%, Culler%)ã DECLARE SUB Screen320x240 ()ã DECLARE SUB InitCharSet (Segment%, Offset%, CharHeight%)ã DEFINT A-Zã '$INCLUDE: 'QB.BI'ã RANDOMIZE TIMERãã DIM ScrnWid%, ScrnHgt%, VScrnWid%, VScrnHgt%, BytesPerLine%ã DIM APage%, CharHgt%ã REDIM HiNibble%(0), LoNibble%(0), BitMask%(3)ãã CALL Screen320x240ã 'the width of the virtual screen in pixels:ã VScrnWid% = 592ã 'In this screen mode, the following must be true:ã ' VScrnWid% must be equal to or greater than 320ã ' VScrnWid% must be less than or equal to 1088ã ' VScrnWid% must be evenly divisible by 8ã BytesPerLine% = VScrnWid% \ 4ã ã 'the height of the virtual screen in pixels:ã VScrnHgt% = 442ã 'In this screen mode, the following must be true:ã ' VScrnHgt% must be equal to or greater than 240ã ' VScrnHgt% must be less than or equal to 819ã ' The product of VScrnHgt% multiplied by VScrnWid% must be lessã ' than or equal to 262144ãã 'create the virtual screen:ã OUT &H3D4, &H13: OUT &H3D5, VScrnWid% \ 8ãã 'put up some graphicsã CALL DrawLine(0, 0, VScrnWid% - 1, 0, 1)ã CALL DrawLine(VScrnWid% - 1, 0, VScrnWid% - 1, VScrnHgt% - 1, 2)ã CALL DrawLine(VScrnWid% - 1, VScrnHgt% - 1, 0, VScrnHgt% - 1, 3)ã CALL DrawLine(0, VScrnHgt% - 1, 0, 0, 4)ã RR% = VScrnHgt%: IF VScrnWid% < VScrnHgt% THEN RR% = VScrnWid%ã DO UNTIL LEN(INKEY$)ã X1% = INT(RND * VScrnWid%)ã Y1% = INT(RND * VScrnHgt%)ã X2% = INT(RND * VScrnWid%)ã Y2% = INT(RND * VScrnHgt%)ã C% = INT(RND * 14) + 1ã CALL DrawLine(X1%, Y1%, X2%, Y2%, C%)ã R% = INT(RND * (RR% \ 4))ã X1% = INT(RND * VScrnWid%)ã Y1% = INT(RND * VScrnHgt%)ã C% = INT(RND * 254) + 1ã CALL DrawCircle(X1%, Y1%, R%, C%)ã LOOPã CALL XPRINT(8, 0, "Upper Left", 15)ã CALL XPRINT(VScrnWid% - 96, 0, "Upper Right", 15)ã CALL XPRINT(8, VScrnHgt% - 16, "Lower Left", 15)ã CALL XPRINT(VScrnWid% - 96, VScrnHgt% - 16, "Lower Right", 15)ã CALL XPANã SCREEN 13: SCREEN 0: WIDTH 80ã ENDãã SUB DrawCircle (X%, Y%, Radius%, Culler%)ã 'a routine to draw circles using only integers and integer mathã 'an implementation of Bresenham's algorithmã 'by Douglas H. Lusher, 05-09-1996ã A% = 0ã B% = Radius%ã D% = (1 - Radius%) * 2ã XX1% = X%: YY1% = Y% + B%ã XX2% = X%: YY2% = Y% - B%ã XY1% = X% + B%: YX1% = Y%ã XY2% = X% - B%: YX2% = Y%ã DO WHILE B% >= A%ã CALL XPSET(XX1%, YY1%, Culler%)ã CALL XPSET(XX1%, YY2%, Culler%)ã CALL XPSET(XX2%, YY1%, Culler%)ã CALL XPSET(XX2%, YY2%, Culler%)ã CALL XPSET(XY1%, YX1%, Culler%)ã CALL XPSET(XY1%, YX2%, Culler%)ã CALL XPSET(XY2%, YX1%, Culler%)ã CALL XPSET(XY2%, YX2%, Culler%)ã IF D% + B% > 0 THENã B% = B% - 1ã D% = D% - (B% * 2) + 1ã YY1% = YY1% - 1: YY2% = YY2% + 1ã XY1% = XY1% - 1: XY2% = XY2% + 1ã END IFã IF A% > D% THENã A% = A% + 1ã D% = D% + (A% * 2) + 1ã XX1% = XX1% + 1: XX2% = XX2% - 1ã YX1% = YX1% + 1: YX2% = YX2% - 1ã END IFã LOOPã END SUBãã SUB DrawLine (X1%, Y1%, X2%, Y2%, Culler%)ã 'a routine to draw lines using only integers and integer mathã 'an implementation of Bresenham's algorithmã 'by Douglas H. Lusher, 05-08-1996ã A% = X2% - X1%ã B% = Y2% - Y1%ã DX2% = 1: DY2% = 1ã IF A% < 0 THEN A% = -A%: DX2% = -1ã IF B% < 0 THEN B% = -B%: DY2% = -1ã DX1% = DX2%: DY1% = 0ã IF A% < B% THEN SWAP A%, B%: DX1% = 0: DY1% = DY2%ã I1% = B% * 2ã D% = I1% - A%ã I2% = D% - A%ã X% = X1%: Y% = Y1%ã FOR I% = 0 TO A%ã CALL XPSET(X%, Y%, Culler%)ã IF D% < 0 THENã X% = X% + DX1%ã Y% = Y% + DY1%ã D% = D% + I1%ã ELSEã X% = X% + DX2%ã Y% = Y% + DY2%ã D% = D% + I2%ã END IFã NEXTã END SUBãã SUB InitCharSet (Segment%, Offset%, CharHeight%)ã 'this code initializes the data used by the routine XPRINT toã ' define the charactersã 'Segment% and Offset% are the location in memory of the bitmapsã ' of the characters.ã 'CharHeight% is the height of the characters in pixels.ã ' CharHeight% may be in the range 8 - 16ã 'by Douglas H. Lusher - Aug 2, 1996ã SHARED HiNibble%(), LoNibble%(), CharHgt%ã REDIM HiNibble%(4096)ã REDIM LoNibble%(4096)ã DIM Mask%(15)ã Mask%(0) = 0: Mask%(1) = 8: Mask%(2) = 4ã Mask%(3) = 12: Mask%(4) = 2: Mask%(5) = 10ã Mask%(6) = 6: Mask%(7) = 14: Mask%(8) = 1ã Mask%(9) = 9: Mask%(10) = 5: Mask%(11) = 13ã Mask%(12) = 3: Mask%(13) = 11: Mask%(14) = 7ã Mask%(15) = 15ãã DEF SEG = Segment%ã FOR Char% = 0 TO 255ã CharPtr% = Char% * 16ã FOR Ln% = 0 TO CharHeight% - 1ã BitPattern% = PEEK(Offset% + (Char% * CharHeight%) + Ln%)ã HiNibble%(CharPtr% + Ln%) = Mask%(BitPattern% \ 16)ã LoNibble%(CharPtr% + Ln%) = Mask%(BitPattern% AND 15)ã NEXTã NEXTã CharHgt% = CharHeight%ã END SUBãã SUB Screen320x240ã 'this code puts the VGA in 320x240x256 mode, and initializes theã ' character set and the bit masks needed in this mode.ã 'by Douglas H. Lusher - Aug 2, 1996ãã 'begin with standard 320x200x256 modeã SCREEN 13ãã 'change the CPU addressing of video memory to linear (not odd/even,ã 'chain, or chain 4) to allow access to all 256K of display memory.ã 'using the Sequence Controller, select the Memory Mode registerã OUT &H3C4, &H4ã '"AND NOT &H8" turns off chain 4, "OR &H4" turns off odd/evenã OUT &H3C5, (INP(&H3C5) AND NOT &H8) OR &H4ã 'using the Graphics Controller, select the Graphics Mode registerã OUT &H3CE, &H5ã 'turn off odd/evenã OUT &H3CF, INP(&H3CF) AND NOT &H10ã 'using the Graphics Controller, select the Miscellaneous registerã OUT &H3CE, &H6ã 'turn off chainã OUT &H3CF, INP(&H3CF) AND NOT &H2ã 'clear all of video memory (setting mode 13 only cleared 64K)ã 'Do this before switching the CRT out of mode 13 so that garbageã 'does not appear on the screen when the switch is made.ã 'using the Sequence Controller, select the Map Mask registerã 'and set it to write to all four bit-planes simultaneouslyã OUT &H3C4, &H2: OUT &H3C5, &HFã DEF SEG = &HA000ã FOR Ptr% = 0 TO 31999: POKE Ptr%, 0: NEXTã DEF SEG = &HA7D0ã FOR Ptr% = 0 TO 31999: POKE Ptr%, 0: NEXTã DEF SEG = &HAFA0ã FOR Ptr% = 0 TO 1535: POKE Ptr%, 0: NEXTãã 'to reprogram the CRT controllerã 'remove write protect from the registersã OUT &H3D4, &H11: OUT &H3D5, INP(&H3D5) AND &H7Fã OUT &H3D4, &H6: OUT &H3D5, &HD 'vertical totalã OUT &H3D4, &H7: OUT &H3D5, &H3E 'overflowã 'select the Maximum Scan Line register, set it for double scanã OUT &H3D4, &H9: OUT &H3D5, INP(&H3D5) OR &H1ã OUT &H3D4, &H10: OUT &H3D5, &HEA 'vertical sync startã OUT &H3D4, &H11: OUT &H3D5, &HAC 'vertical sync endã OUT &H3D4, &H12: OUT &H3D5, &HDF 'vertical displayedã 'select the Underline Location register, and turn off dword modeã OUT &H3D4, &H14: OUT &H3D5, INP(&H3D5) AND NOT &H40ã OUT &H3D4, &H15: OUT &H3D5, &HE7 'vertical blank startã OUT &H3D4, &H16: OUT &H3D5, &H6 'vertical blank endã 'select the Mode Control register, turn on the byte mode bitã OUT &H3D4, &H17: OUT &H3D5, INP(&H3D5) OR &H40ãã SHARED ScrnWid%, ScrnHgt%, VScrnWid%, VScrnHgt%ã ScrnWid% = 320: ScrnHgt% = 240: VScrnWid% = 320: VScrnHgt% = 240ã SHARED BytesPerLine%, APage%ã BytesPerLine% = 80: APage% = &HA000ã SHARED BitMask%()ã BitMask%(0) = 1: BitMask%(1) = 2: BitMask%(2) = 4: BitMask%(3) = 8ã DIM Reg AS RegTypeXã Reg.AX = &H1130ã Reg.BX = &H600ã CALL INTERRUPTX(&H10, Reg, Reg)ã CALL InitCharSet(Reg.ES, Reg.BP, 16)ã END SUBãã SUB XPANã 'this routine allows the user to pan around a virtual screenã ' in 320x240x256 modeã 'by Douglas H. Lusher, Oct 8, 1996ã SHARED ScrnWid%, ScrnHgt%, VScrnWid%, VScrnHgt%, BytesPerLine%ã HPanLimit% = (VScrnWid% - ScrnWid%) * 2ã VPanLimit% = VScrnHgt% - ScrnHgt%ãã X% = 0: Y% = 0ã DOã DO WHILE LEN(INKEY$): LOOPã DO: KP$ = INKEY$: LOOP UNTIL LEN(KP$)ã KP% = ASC(KP$): IF KP% = 0 THEN KP% = -ASC(MID$(KP$, 2))ã SELECT CASE KP%ã CASE 27ã EXIT DOã CASE 52, -75 'Four, LArrowã IF X% > 0 THEN X% = X% - 2 ELSE BEEPã CASE 54, -77 'Six, RArrowã IF X% < HPanLimit% THEN X% = X% + 2 ELSE BEEPã CASE 56, -72 'Eight, UpArrowã IF Y% > 0 THEN Y% = Y% - 1 ELSE BEEPã CASE 50, -80 'Two, DnArrowã IF Y% < VPanLimit% THEN Y% = Y% + 1 ELSE BEEPã END SELECTã Ptr& = (BytesPerLine% * CLNG(Y%)) + (X% \ 8)ã WAIT &H3DA, 8, 8ã DO: LOOP WHILE (INP(&H3DA) AND 8) = 0ã OUT &H3C0, &H33: OUT &H3C0, X% MOD 8ã OUT &H3D4, &HD: OUT &H3D5, Ptr& MOD 256ã OUT &H3D4, &HC: OUT &H3D5, Ptr& \ 256ã LOOPã END SUBãã SUB XPRINT (X%, Y%, Text$, Culler%)ã 'this is code to print text in 320x240x256 modeã 'X% and Y% are the screen coordinates where the upper left cornerã ' of the first character in the string should appearã 'Text$ is the string to be printedã 'Culler% is the color in which the characters will be printedã ' Culler% must be in the range 0 - 255ã 'by Douglas H. Lusher - Aug 2, 1996ã SHARED BytesPerLine%, APage%ã SHARED HiNibble%(), LoNibble%(), CharHgt%ã DEF SEG = APage%ã Offset& = (BytesPerLine% * CLNG(Y%)) + (X% \ 4)ã OUT &H3C4, 2ã FOR Char% = 1 TO LEN(Text$)ã VideoPtr& = Offset&ã Ptr% = ASC(MID$(Text$, Char%, 1)) * 16ã FOR Ln% = Ptr% TO Ptr% + CharHgt% - 1ã OUT &H3C5, HiNibble%(Ln%): POKE VideoPtr&, Culler%ã OUT &H3C5, LoNibble%(Ln%): POKE VideoPtr& + 1, Culler%ã VideoPtr& = VideoPtr& + BytesPerLine%ã NEXTã Offset& = Offset& + 2ã NEXTã END SUBãã SUB XPSET (X%, Y%, Culler%)ã 'this is code to write a pixel in 320x240x256 modeã 'by Douglas H. Lusher - June 15, 1996ã 'X% and Y% are the coordinates of the pixelã 'Culler% is the color of the pixelã ' Culler% must be in the range 0 - 255ã SHARED VScrnWid%, VScrnHgt%, BytesPerLine%, APage%, BitMask%()ã IF X% < 0 THEN EXIT SUBã IF X% >= VScrnWid% THEN EXIT SUBã IF Y% < 0 THEN EXIT SUBã IF Y% >= VScrnHgt% THEN EXIT SUBã OUT &H3C4, 2: OUT &H3C5, BitMask%(X% AND 3)ã DEF SEG = APage%ã POKE (BytesPerLine% * CLNG(Y%)) + (X% \ 4), Culler%ã END SUBãDon Schullian VGA SCREEN SAVE/RESTORE FOR PB d83@hol.gr 10-07-96 (17:39) PB 301 19851 PBSAVE12.BAS' Load/Run under PowerBASIC to extract PBSAVE12.ZIPãDEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"PBSAVE12.ZIP",4^6:Z&=14590:?STRING$(50,177);ãU"%up()%9%'%R-%/iIiF9p.=0Z)%%%w1%%%0%%%%ht%rufw%wSirOt&%.,>Sm5tN0ãU"]h7UVIeKG5j_9-IPk7+TM2j=DES*]CTIGg=O/b3Azb?PCbsPysC&Wbmk?UwngbQãU"mj5EA8fs8BOQLIa<=2?;l-lãU"M$N_J(KbW5RM-t\8>D:j\5Y3%whPtSLnGg=VQWRS/WMnGQX&E<#])b0X[,X&:I3ãU"4ZI>,(Pn,hLzrRTbIM2j?EZRA+j[K=%z+s$4?KN;(G#s6=+]KoLR7Te,,HC&mh(ãU"7LD&;2gejTbQ+zBH$l/cHY$Be$XU/mh)JE#lrD_zO7#ãU"uG^jtlq+m(7r>*0UO)Y,KXj^(:yIH#pL_#(u2DsnyigfWM4bC;HICt8:tdns;+BãU"ZQ*4UGqR]ps:2X_WJigv0WmãU".(CbC.>2=O,ps>=Y5[g+a3+.nrTobR3&Mkb2ri:ZãU"dJZiez=O2:joFEBp#GjQRr]+&&$Rqjgr^]VBXBD_]h4BfB2WObJ5MqoXhUoN^Y[ON7W]ThRLLCpFbFoY-uUfHWãU"'_f-PA1gu^^dxuZ4JeD<))sS5eS#RlT$9-_a?a\OZTEhQ$p+U2pFJoAy(ãU"tfO_^>,U0<6eW*W/;e=8\JF$.lF6eM6C=2*'xnGQL4V1okh0\9wdjZiK_(I.KckãU"'LP-qgqm8Kjl;61V%Q\5-0d(E:6B^MtaQLNe(Ej;9aDN=,aMf>E9&/cjSDiQ'[bãU"$/t)D2p7+NR+mS-4&/#;b6-YDRT4-3u>x-VGUoCvYj$2+',Og]#9Dpid%up()%9ãU"%'%I-%0e.iF,l)Zdb(7%%c.%%%1%%%%lj%yuqf%sjSiRrtFd[k=5#XRStA'Z[)RTfu,s^.KbkmSbs_cVop?M8]CC$:ãU"Ec+0UJwCODQpTnWlluHEwiJ0aQpn:EttpoRjhGim'4BkC=V^C&C?ujrCta<#$hJckPlp6-9ZGYl7cqko=_a2ãU"=B.-H$rL5tWS\W;=?VQ.D3U&h6+EwRvk_?t%HQk&=?)U&v_Fqq0D*gJfN%TAUS.ãU"Kvka7P1vWpS7SF&-yvhMtW.*&:[_d.Tk5S]:8cZ\xi[SFuA1Q4U0r;Ga$j+^_j1ãU"1%u&(Z,v5,APbeU>Clwo^qbUjLnxv:PD7k?9ELDAfDp;y83gwKw_ãU">%#X#[PzgFz-SyNq9;g;u#(k$DiE8L;kvg*#AqpgY\s]FGNZ,?4]Kpqqc(a^1aVãU"o>Q^J26#-?\qWqP/Rg+ljOOcDk-:lB\K=&eI:+]Io85AM2qjD%P[Uzccr?2hAX7ãU"_>#CSEk#qu4/CmswWe=&1rJ1KbgS2ZTH%o.x)o>C+S[+h\&hJ\=K5gdaowVCQsfãU"K3u.E-ZnL-dJ]q)e[3c_+D;SBTA6l7,Yx&phv[B20vK3a0HR)&PIM&0j'Qp%a^UCEAMq%1'/Cka.NDMxs9ãU":LtXzABkFzJTCTR2*36U%Vw&-:#,_-kZbw3v<8mg>cM6*-nz:9$CdnDL0w3^a6LãU"iUj>LNO,P?V:Dd..0w&)-1z^$+I>EhNb;]YD4Q+i%t%WxKUz986YEl53\5ED4'lãU"2RR,?*rSkBofZvWuTc-0TSb-iMpLQ$=cO9u#L?omgBx,s'V?sqlq2?kl[/GxlnDãU"l$7XowQ0JCL5A<=+/iHexhhJ=o98^vd6TB1fm>t[r*bmt--t.8utQD0GM$Z7t3ZãU"otiy\d_0_NWq)xV%-/M3tEN-j,8L4+dgDQfeI[QC0$=+,=0\R=G_6G0>GgT0c4(UF8kl0BANj'#**.=;0)ãU"EBafAg8e[WtG7HP*avDxIZQ#f5Ka=NKZ3#-#]Kk#4eq=)\>o/mkzU+sY/huR+[L/5c9+64/HkA:Z:[0;F1DZSF0k?ZV,aãU"4^5bIM9ufFpi7m+IaC*A$j6Ip:YA=*Wk'1l*4/B&HgR6xsAL[BãU"[c:6sJN:Tf5$4)6YK=wa&I6_r4Y3Kd9rQZ$>&Q^g?RGkMZ\_b[nAI=^*IUktaT]ãU";ia':>h')9R>dIXONIRq(_,Gb/_E6m'7l%L->#y_9-4hgc)rI.'IfSQ[_fa'P10ãU"PQAT54-#rB&s$5+Xg^+2Z1PU*&,cELG^21G*k_Vsh5+&urCV]LQEEJEfE$zC(cTãU"Q+M7.u*iQ65plllU(4w-pJvuMvN&oMumCfpN/u1K=hHf0Y0sR9YQn*=k#eRd\GgãU"vD:iMEVS5/%)?J[s\PVrj?)gdQU&aBjsLMNNu]ElEHMNR[Lo6KKK=Pv-8nn\x&QãU"7(pL1NaCzdZ:Q'%FQN=i=8vH?a]si,2ydpc7&$rx5rL=Ob/BMXB30AmbK4kpI,s/vXRgd7=ãU"Vs#:.\D*6lPHwa4:Maqplg$:M.6B(->*lKx^'XiIi6R;F)i:NWL6R6RF?=4tbktãU"TMNeSR7m$o-NVuVV+)F9Sfp/Rq7D)TEC79Sz3m8u5Sh&pC/fJ*SI;[3yl\P)6LGãU"%2xp\RA].D'\-N;bh-vtF&RH8WCib5:8fAx]b^QK#+<$n(%3;b+)/JloOLN7lVAãU"NkF^V='Rj'Dx=L6Ap:ug1c?#xbj&Ud[lS\QFj1t1W'jFd=.IGMz%3+\RuWmEIK2ãU"%ABl=)]S+p^oMb5Of7xEc;t1M3tAL2^'.p.vvCW6K&Ja\(*tO7_tObPm%Ap-rvaãU"2OZ[)_Dt3T*,l_x=TM/LS6BYQM>7;Bs942XfLHvNjPi#-*6O'J=;t2cBMsX=;%[ãU"-tN^kZzDL?)iKNwy41=rUqhM,kL:[%##&g2KouGU(#YsAUQ%aFOz]7*nOa\&-u&ãU"J3$T/u]dox,w:j%FWPU]/%&2:RUjs6irn^D45YGHn^,0E=$DIQ4zmP^R[R9xcP+ãU"EfFNVs-V]922L;^))58]n6.6>p_eA_:U=]UDSC4IC[O&oqD]5=[/.ãU"gq%gVx/2cfF0C6,02QIEyiD[:?a56;hA4LLy8LwxfX;t5iIMj<_=#&Ur=X4Vw>vãU"d7weox)E=9b,V2Y*>j-f.Z2N6%&5aHuV4&s7p-IZp>>4j;Gh5&quNguLuc[:g:Sdfvh51_t9JãU"xqa)PG=Y<2x?qEJm3E(eNMIvY:D,nXvk]G^LA/tZ8cfB(B/hM37w$uqSs9_H;=cA](9j4(8ot+5u=ãU"d;R196RG.TSq%K>zC3n8?V9P8Mkq5Z.Mr6Bdbw5GE%vE?>UrCG\9l4b>&z^kX*h5*/bD,wX<[6_g.h1eM2(naRfe&MYGjkhdc5Mw^qãU"5bfp.Sz.t=t4=/4?8F-,G<4&5u.ES%MFYD0MT]ãU"FSr]1da/x8r)$x[JY\UV9-^8up%()9%%'%-%(EfiFmS%Ct'u'%%'f,%%%1%%%&%ãU"lft%stkk%Sirt'&zrt]Tq575*kN=Iu5oU%MNwPFMmz?QO:\(alj+C]JI0*U?;],ãU"O8^FtS9J=pgO$I[CuXxNs.#GsO(l$o<7W*GcfGalTEX,:,v]DhazP%fWHC'L8V^ãU"O3RlaSx$4e&$Wdd0Y:.87;8OkV2q^4*xsZ49HI>Z$:C'?Z.BN\j7qS6\A#d>mw;ãU"<;5xAm.;4n3XR(iNy:NkD%i*Xr9-;='-7ls52X%a$MVFUo2HPnZg]JW1'X++d+NãU"GpTA/22U;\UF%0\W8VhX0HCiNyKEf5;#tO:E4.x9NuTFnhudP)DPSf(8$x^tPmoãU"aatQ#3u:rDdTPDJ_3=G.hfl)3nu+q]8[SVqUV1c::0?[5+A?&01HTk_35Q<'Qx,YZH5QTlQBjDwzãU"A#C>Hb]hY/4nGxTYBZpNm4;e#+&9#[]MJSM[t^D?&;#db#]+f?v%bA9fm+GG(eUãU"N-I&jX%327,(w%'Z0:*q.yNJoI07imcA>1Sd'smQmIntF/b4VfY,?COt<7kCU^9ãU",Pi%92f'OH[0rn$QFV[gU(6&Ed[57lgC*M=Z/TQ=*.E+0I3DgrUdG^mWhOJ62jqãU"ZllXM>xg37KI.7&P3Dhx]a'Uz..y?Y6)T^OZ^-,\KjW-'&_b0u-.]'G]Q?;ad]3ãU"RC\2;lj*)_W0eci$Rt+,J?C(GC.^D;r#wTIZggQeYpWeCcHuxg3=Ap1TF7wed98ãU"3p&)v&Y,kmdG4l;E;qMR+L[u3&)TE'0dHZQSpAHAC-lD;L)2jKkBI+;D(,l:KAOãU"5SghVF^&(#g^;oGy6DCwmldf)vjãU"Ij:^->FefffYFlXUN3:'%d/pr=GEB1kE*N4dcdNZ.'Cv4dsqcTZs=&FuIM>P)s>ãU"W(\-YSB0dvoMb5R'D-WdEa.%up()%9%'%R-%KddiFi+(oz4'%%%q'%%%1%.%%%lãU"%fWkn%qjStIgoD$:f7Lu==#8I5O1^)VI7r-GmiscqwhuãU"pwXxr\tG97eQ[Dq^Tv;*^gT_#68kLZgIQG0iG=O.W.?LppPprFx2#;s&X-(G,GbãU"BB9*%a:GG24/k&.YS0>Q=dq+QXQ%4fSBFsa+He#qFA7O=lDmk/1H$H%fd;t0*+PãU"mt'>O^%205TWL(p>-a4t>6u;o6wM0Yl#+DTlmoaZgCNVcWk+gt#ZC*TChR/=xIiãU"qPt#tlu(hmL+xO[gy92Q%30F(&L>R'D$b?.kJ#[pN2:\s1bD1KVNI_[3RzhkNcSãU"i4bh3]*A1yxU5heAzpBOX5pK[SRtI+b'i0yh<(q2z_VC4(CpTd=?y21;I8;mH=M1fTqxhjvQ;7m(:w0A(CQr4w^Mt9*q^ãU"n_,#g*agb$X(HQ'HMl07&Q\O_i,=[zl3_NRQcW+IW7iDJfWgutWHSpAWa1sU-tDãU"5eR$6Jb#,c=&n5Dx'$Y-:v?MIl3]^ivy/lIOvr&D8/+?-RL;tz0n0JRYz#b;5BtãU"tPRB\?Hpb/;0T_\Kr_];\&q8fIIA#EZ,?9Hj.xhq%##^:M\Y3x?Y+)$SwO%nnkRB>VMaWãU"*'IsOeC\ldEUU4u,[?DtlFG%jI_>2&7&Le,_Oe#DoMM_kvuami&B5o?7,5IOgToãU":RM12B:SBG\Z$/tmodelw:b_P4;>:(djhFD:h=7GOSh33?;LGIk:saFDo,*6G\cãU"^GtTw\,O08=3ob-(&wY)(Nn2_0f*ZDI6iC07bKqG[85\egTtsLqv:qMz2X/;nxVãU"u0PiJ5/QVvE$8D8'#tT_&b.AaU#,;j=qBRWutxhXYd'0Ai^jST_??[b(q-y2XH2ãU"ng.4x:C_Hmpu++uca^UiU^M%$c,P.wA^7s*5TãU"d.NLcI$,44$2+SD(IjãU"B?V)i:MfQtTA=u-f/*0X<.#pIoXo&al&p(mM-&jjif5(?b%.a.n^UFRYqA>M$.2ãU"YQtB^L:e:wwAP4cch_GKB*,992Ze\;7-2o&9#,4JmW4E$$TsEqRGv)Bi0:m'O*;ãU"*nplRtyi0l9i588M?+8\gf$$gK6=H*ãU"EolXC;4+aN].FHIN2+A^:a*[7MEOPIiV$8?Bq5kiRPpãU"AzFXs[&Jgl,V(Oq*Wwo0B%^.X7JUMV11SioNSqALPoZ%0Ek)XyP;AsH6+7+oOq/tr&HutK,_ãU"b,D[tTMF_sF-SqSF)FV(r7c]lGvuxkiF53,uNcc/_$Y?#4tLQR:^FTp4Rt0^oxyIvV&=f'XIj*deSzf[a]8E-$Y.ãU"?'=YG0w7CZa7P]EePM_-14]^4QTS3YpY&6M5$'y8*-)*saOE3u<#^d38#Zpg)>iGlADC0Ut+9e]s18pw)UãU"0Ccf[aVlwT((DcCFFz=ZLxBt=k^,b>OZ1PbNKZ;EvJO&U2m;_,?J#en6?XxnGabãU"bT4$IjAmq,ouC\,A%&N%H.^g9t+Tatt;I9:]O711&V4tUQ*GHw,82I6K8-iJtVYãU".51==(akD0WJut8JRlLajX]Nd0a55?*%eH(gKz3H1SRVWzcDB:E-h\T-PkKhJ9mãU"fbH7*jMB.k_5qFCj:'WDS-JR0qp%1E7V[dH)TH4t6RQ#]7:-+iM&l_N&tvBi2K]ãU"n[O\m[v-9BZzuK+sD4mG,8$2#N^M:f)mY,XAmQCTcSb/4F.AczA^n+:a6SG\U4-T7XG8bE_qAWMãU"JNlI']Xpl\7s)?70[Y/J0Y\eAhqTA:q+r6ndo#KGnK:Gk=1hv:b5;ZC/dUM6Vs[ãU"A&:tX0iAX9G\b#wyGi+JtaWOM*NsOES%4;x=]/u]=/lK7N9BU/EAQhL*abkR&GnãU"s+?6E\=#z(AlK:.[;>'?*NPRUD#L0%*qL;RL'/$gIjsp_jRd/X4[Wn\P*F5$6UnãU"tiVQ4*]OJhr%(_/9FEG;cz/FMm2EmT>6Tl+jy1YlB1X]QQyMgSs,5ctAg((M'$5ãU"v.&fuC$OfGfqNx/-O=j1NR^Y;5i3p8GW7AOGX=k;8dnELd2uZ'jc,&b_^ãU"%HsH,f.UA^Te[G<('JãU"cc[kXep7PG(%3l_YaAgi)qL4oxf58_O_[K[i%%/[-o]CY?7g&&:I%9BUrJ=kE+rãU"sO92.i_&zI,\/5No3ZSJ)fD[bRY%9DPCTqY*Ur=p3UwGwk5ia[4:6(-GXAO=7plãU"dpWvxKXb#byp:x:5z'FNPeW(I)kH^EL=V=s>$>,S\zhR'9fo26:KfS*)qj%:;=BãU"jyS:az^#EGl_%k%b)G)G8&t6E0nZiPY;6?hCZ]^V?Rv9KKA;bLlKIrbq/Nuc(BCãU"Q+q]mVp(h,#65Jyf:%)[)$O+$?)g*8\-^fUpsh^%eTTPYzh#RxqPbw3+_Alkl1YãU"j&yC-,lIn0l3:D5M6GZ0j*xC6zG.',MT+q*,AsObEGt])uzLYYfmPx^yJYi)Cng5QKd)+B(^7o3Lus[V07npiQuKc\0ydUQWvãU"yn2d]&,q6ZQ2E?3G8?XcE;B)E[j6J.&y4mpa5H$pnfBEyL'KPeg[Y>>6#6E92;nãU"xy.23SK5MQl^h0cV1ãU"#=_?=4CZ0^u.XY[npx14?VmU8AMRGuCMc]c%imle*[*QrBZiZN>CJTCs&juuRJmãU"t\)8j$*GOU_0q5(Dc#WU:P%V^iStla'^mpxx_D*/x]BS\TN2E:gjH(Pzo7r.O?HãU"E1C4oN^k;kHoieq/c:#z6BI^[tSdb#Gg7WHj3,z)J8igHn=GnJV0KN_sK_)B/_KãU"PX0X]oKFH:g.AL?t.\p]C1bN(dcSt98opNI(qk/uvGTJ:&I\gbLqpQgsKPNq'.JãU"h-17\;_n#];hb+GW4/LHQr'Z,$[YbgBT6h[*9D9XH^:iY#0>Kgf+.67F7D_7yzUãU"66e[31jl1Jxp,bhUkrV;m12JUff0?4p^,:LRmP+RCFx\,nJFNNLhSP3QeW+.G:vm\7iP;dPvRcvaa]ãU"V0rh86.u7AB.CIj]84j6p0*1+3Yr/qQBfF\z4_5540&asf9Y6HV&#l8?k5;NhI9ãU"7VhC=0)bE:<oZeN>4N)^,Jxd/$Y]5AcYq)s;D5ãU"<KGI5\PToL*ULo+(Xx4?UiX9c04+ãU"#I-))KdjV)28;*R3In+a\Mzjr,VbF1X]qnkiwQK:<&9Wp&nNn\Yn1je1Z;TDa.vãU"$Ii\%crH.BnIW5K#m/f:*?ufIoImV$l*cy/LYCM:riSh&uUarP0\ROyUXU/,s[=IW_[9ãU"HmkcpV[7lUO0^]\:YIBU2(OTlH+xL1SeZ5nzK_Yr43T=UfsWp_Z<5t/B(/*1#:QãU"?lGAc2.OF0rj=DqQG=$n6=US40gE>SGEZN7l:n<.2F_P1L*M:+0>Efs$7+,$K#dãU"DtIhKDT/Z;,B'L,hk;+[OnF?63[sZ*0>3dV>xMZMBjk:IMn[MMl1ZO&INLfKxlcãU"'u#up%()9%%'%-%(oiiFC/K)s%,'%%%e+%%%.%%%%kxjj%pSzsjyFcH,=Se5c?hãU"m5*YCBFv.wc.x#xLg3dAcYb]Q,,ãU"2#w0#zPvx0XCgBD5MXmHnsM-=e&PElmv=(1c0^A8EjrucpE6W0p_,n(7g4zr9'pãU"QUGzo.nFpt?/C[/cgiYkpZaGC6v>R#81RBPSjCqtjo8hWfMl^#rXI;(;5Vp\47AV9NLW%(<0_tua*5c[xt)$92vgikMRCXDFjUSZu/+'Le;v(s#:SL6uoksXw8HTF-e$/>s1ãU"863iniK2Y+k5xFN&kCTSz.wNmCd%J$yII[opRf-L;;Q:0uf8'P2AD2\wzn00=,XãU"\^x:a0o=iMEe.5J'tj<,:uErq:1IdIeelEuoVQCZO.s66-67%bdR_eJ+i9rhpcVãU"-C<5If,%up()%9%'%R-%>%#fF0m&'0l(%%%i6%%%1%%%%lj%yuqf%sjSz7syVz;ãU"0:Sea=wSqaDWfR#Qppq5=-eVqq5[)LO\Ec6*:8SmrEFBY,%nF_D;us88PexRd1sãU"8E8sDFkf=)dN>ul*-P6grreJHtZUlWJNHY:RGiF%^hn6Xj.*7qrLkgeDi,-P<3;ãU"I-E_#gtL2Sy=7U$g7N8fR#a,5bCS26P8%FjIB]haie\vHa<$\[2[6mqKI7RrCzXãU"45KX>Im_ZK*WlKnSEp=<'K#YsF<)+pRJ_s7B#84eBU_?L1[(6J=V;;Pd,X)SVAMãU"r-P9;:*(\Txa0ZolD$DGWL5?fgsE44?ãU"th?cOi\u3a='x7#'4,<=r4,Ov=KtvR$(4WwYtUWI/[V:-IWOFmVP[n__W=jB]C+Y&$*^zãU"d&rP5CG_/zZx3C5'01ZA2SjQAAgkr7JteH>_&>qoK3/\%4j5UHbcFiPEkbm^$:_ãU"^[NT1a(0Q'U3OVQ+ZEb\Q,WG+RAe8O50MuI#]T^OhJ,R$#DJ5nHS/FO9dM>l0ekãU"ynh^+,]U_dQlY^HGhN+[CCd5n.G/FJ?E?yb5Bq=YHcayAyKXm)s)qfClZ\F6=N[ãU"IFx_zbGro*P,1r+&0I[daQxf,:_v9g'i)p+FN:ykk&Ov0:f\k^rEwTA+#(V(AI.ãU"atG=pLAU\gyfWo[yPh<#x0CDT:)uSr$D,X[Ap0FkjecD2rI:oQ7x?Y06a-h$CdlãU"%yJ0NV5P1f?1Gp:Ar(*N,*M;&UH_)#[J,O&5BHE>ZEãU"a\JLlg]6dh.$UHx56aiVE9Ww2-nuoix,)ng2pA2d0-^6r9.p)rBu^sUIIQR+\d?&?f>K-sa1Xw%'up(%)9%'%%-%_&(fFEXM7gI%(ãU"%%W%/%%0%%%%w&&gqt%hpSzRsyF%;,^Sk^9Ll[+dUknL%X;;([)ZP'.P(hsgDSAãU"U[(.>1[[fv)[6ZCPQq,*K.wcvd[wnoepwmsXpkQJ'#=h3xhL=ng5M4J-rt/Iw9+-x3ãU"i(-JE$,hmcu.?B$,VtEA;KM14$:\Lw9Q0Q^0qaibB8wgBAgj_Q+iB*i%>ioj_:gãU".>Jv_,RPeHZ>%E6NL[)=$7eB>kDr?p=5QoJ1O2reO&+r3<_LnC4o%;RNIhuH2[)VYAMDXKk0?2r3['Be^5p4\WGwet5E9-:bLJSGs\NW5STCH/f.PPVUvQãU"lLP4HfogrfiM)[>ofkuKd7\PefLHG$^Mw/g/)w>5x]\EJcdq.fG[W;ãU"\If4%up()%9%'%7-%dw%fFY*=WJB&%%%V+%%%1%.%%%l%ftst%kkSzRsyFb:r:TãU"e:5Uh+ExV^SL[U'dA;7m=*s'*:Rj7s?obv/O2dw':k8VaXi^_OjmN.m]dhFvw8aãU"A4Hf#;<^euRumWVR-rcR$Bf0GC3x,_4B5G?dTOnE2[E,Qh-py+sXp\qT:tbug5g4J/4$39dVhdDãU"bq0]AcH)G$O(,(W)+p=_^Z7.+=/%#QLI07DHFY5C1c%]+[p8ZxVWEH'NN,4n2u%ãU"p()9%%'%-1%)oi4F<:M*J>%%(%M%%%%0%%%%knq(j.ni#Sin)+JCf/';U5kEZLEãU"FKqtowKdSyo]1P+UJV]tR1VRhn^p>TMP>t-WFXfDspKdi50n-x7d:A]qm[sh58IãU"pngW,FT[3*d3QUjFWD+#YO:\RQyH5L1.UhnONc-5t&uãU"%p()9%%'%-.%Eoi:F>IF-qO*%%%%1%%%/%%%%wjf%irjS[uqx&)%:t#Rl,^h^X):1'wFP.HH_ãU">BSHPHG4KRO:;hc-gh4#*%Dvf$hDepj;E5PLP6L^nBZJ$xA?'w8gU#9v*8Cs5Wda7,$a9Nce3qBUNv?q'(?0P#fdHlpHãU"'.^=/2IPdYLRr]qHQtTJFPNf4z7dMRp_;i':dsMeOdC7^pfLW98$CXl:dD?G6BgãU"e;xfiHSc',EG>Vaa$l??h/,,=#/x5X*Je]Hnh%ObVE:4#4hB*kuFkW*8>4X&I0HãU"ykS'1n/7H[&iUz0S=I^sUq%-.tQAW&/2)pDONDIvHZQYawBc584j*S0XrVh]&#?=LF<:K3ãU";WjT=w$Z%VSiNYjeQpUfa?FZJ&Can]hZII;A$L$'Xa..)JL[PS*CLtt\nHd=HJ$ãU"([s1r73_NVWlM&-2KP#)A>(Z#ACn?.k^n.60,W.:.sKwKGO$;ZC_Kfka-Mwh9./ãU"3D1v6[$6jBS[3n8IqNNuGQ4_79SZFU;^SemEl5nM,e(==wl<_3+KX_IJNib^aKaãU"p+V1(=O-,/w9_5smd9=4to8M9*jv5s$wFs;h2]CAF6r2wjaLN)UH*7=vQK0]V&PãU"%*n7iMFy0dn:o\OYO/mXFC#u115yCjf1'k_Ha^YV/%g0Jr$.tb8SB)*P6RCgk^GãU"uj\_u.^\V8>Y)iH*Lrd/BBFG-XP;Xtd;6;Wc?Ng$:=n:-N^CI4k%cLS7u'&k1VpaqB,Z0do0rãU"qEjWEUN,)<&Fng47(/Ir6D$+qsMuUgr?Yu-A^v/wjKqrSrnw/wtNj0Bs1b*++V$ãU"qQqAg=sq=gS]*'J&Q1GA,M$hGa;G]nSxCspmUq(S<<1Glf<7%7nYy;y5/:Gb.jPQNlB_21vrPb,bn/-mk$aGp+TtY0b-Sv.$1Jk7ja4ãU"U$Xovdq7I9+o3h;S(lGO^H5qlYn_Z9n;^R-KVbugNZwrxqX#Ck3ãU"r'u,jT^-_K*2k3,V...*sd5)w%'up&%'9%9%%'%-4%/ii1F9p=(0Z)%%%w1%%%0ãU"%%%%%%%%%&%E%%%%%%%%%h%truf%wwSi%rtup%&'9%%9%'%I-%0e.iF,l)Zdb(7ãU"%%c.%%%1%%%%%%%%%&%%E%%%'-)%%%ljyu%qfsj%Sirt%up&'%9%9%%'%-%)(jiãU"FO4UYe%B/%%'bA%%%1%%%%%%%%%&%E%%%%#-.%%%l%fWkn%qjSi%rtup%&'9%%9ãU"%'%#-%Ef%iFS%?Ctu'7%%f,%%%1%%%%%%%%%&%%E%%%&17%%&%lft%stkk%SirtãU"%up&'%9%9%%'%-%*KdiFGi+oz%4'%%%q'%%%1%%%%%%%%%%%E%.%%W:.%%%l%fWãU"kn%qjSt%goup%&'9%%9%'%7-%\wIfFWI4qwS1.%%XY%%%0%%%%%%%%%&%%E%%%'ãU":<%%%htru%fwwS%zsyu%p&'9%%9%'%%-%o&iiF//K)s,%'%%e%+%%.%%%%%%%%%ãU"&%%E%%(%=I%%%kxj%jpSz%syup%&'9%%9%'%R-%>%#fF0m&'0l(%%%i6%%%1%%%ãU"%%%%%%&%%E%%%&kK%%%ljyu%qfsj%Szsy%up&'%9%9%%'%-%(_(fFmEM7g&I(%%ãU"%W/%%%0%%%%%%%%%&%E%%%%2O#%%w&%gqth%pSzs%yup&%'9%9%%'%-+%dwf%FYãU"*W-JB&%%%V+%%%1%%%%%%%%%&%E[%%%)#R%%%%lfts%tkkS%zsyu%p&'9%%9%'#ãU"%-%)\oiF#%%%M%%%%0%%%%%%%%%&%%E%%(%rT%%%knq(j.ni#Sin)%up&ãU"'%9%9%%'%-%(EoiFb>IFq'O*%%%%1%%%/%%%%%%%%%&%E%%%%$U%%%wj%firj%SãU"uqx%up*+%%%%%%1%1%'('%%%^[%%%%%ãEND SUBãV2ãCLOSE:IF S=213AND 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ãErika Schulze FERN FRACTAL 100775.2275@CompuServa.Com 09-30-96 (19:42) PB 241 15824 FERN.BAS ' Load/Run under PowerBASIC to extract FERN.ZIPãDEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"FERN.ZIP",4^6:Z&=11568:?STRING$(50,177);ãU"%up()%9%%%%-%P1mfF2s%5pM+.%%\G%%%-%%%%hf%qhSfRxr^(:r>T]a56kcwsJn%6p9JkN=,-M',3g>ãU"i#Z1,6W1.H?la0%FK%G^fSYwAnL]0nK*>i]LLB*H,b*'tmrMN#HV:a26P[>g:oOãU"RL7V%_iD-_D(C_Sq,irI3F%W7UB]#iQ(?uA5%5V3DJcYNL?nbsr+d9ZRK=,5WbXãU">;n*a>AR=d=2[HPLLM$C*DZ?8,[bqD\.sCPX*s/g(6p6Tkm,KC*I/;MK1lYp66LãU"up_ln$tFB4lfu7-KHmKjZ&xK?I>fI8_AP&$+N#gMItgAktnI\NIn_SEarLq'uZ7ãU"qbHB>BOI,NGmBp/kGHmf-c8*HnciSsjj\fk#4/F/<*YJ%MUYE'J7htj.bj;gzTUãU"yr^?+=VK8_\ey38po0ef8\p6Fe=0F*$I>df8]JeCBCVl'kUNQDkFck0;aO=n9C][P]1lI<)O36[UgqY*.<ãU"KqVe\JCl,uw$kaIw,<9T40;[f7;h5?BG-Yx]nMrdMSp$ETA2[lXT0\oL>bAqtKJãU"8oL#[tK4ogjCqzV=i?6O)(facBXhJI/KUtuL=uIf3b>k'TWYgX)>jr0ME&B#J6-ãU"m'DEEI3'S6bb;&qaCRhQn]?gTFp=9Dwu+g2xgEnN7eSnqg9J3[EB,MupagnnCgr5ME.:sa)pl8nWx-gdz(xfRK9fQ$<8ãU"PSEU_Fap_Dr<.=ZH&C#t36Bu4zba9-No3*TcQo80M7X'7\O42q&lO7JãU";<4mZ_I;M8jxBo=86Cf/T=:p:*Lz*?c?-W,Ce4xw^jQk09vEkGAI[U$$+aw?Y'1ãU".=)GgMY^Lyi%R8zm.B'MY&pYykprJo%2.4TEVMD4TaFJsNH^MWC:W_20j(4M'[rãU"xCt31]gOl[d;[Pf9J$Xf#F5Ye6vSrZCS7dAUd91ãU"BCP%?Y(/c$ShA,FJ'x.;3W+s%kTjO_k=kcJ^=fEMDPv(C(C(IQkljD%=gTãU"5-9s-,AMRXH[o-OBIGFXh8eITc1P:J?uZI;7Bob([4FXB_G(/O<:ASl/8A8cSm>ãU"k09w]A[5*S0;u&$e,IeBO?B5yGu*HFE57RAr%mPW9h9r)<<)t)[.ppMnnENK%$=ãU"#R<)tWf9gqnCG8NDSu*-8u^-Wb]N_&h3&vV2]dsUdOQ6B#)q5;B=0+Nzh;(npg'ãU"=W3NIf9*kuJ)o1XZ.kl&3A+p%Q-9V]8ZE?=Z(d-'YFkEn,)[^LN?m+XQ[;cB^%FFyV[]g]*=c5o/<#\BãU"=Nn3+S=0n7F:KO>^xpOWTixUd-V;GobDks)F&OmGfL&cnnof3qVGS%\yjVY5PXcãU"Ji[tY8z=,4;>M&BQ1GbT784STI[mztum58Pkx,0dE_xMxJ\Pu]5;R-ekr[.D*']ãU"lRNjrPtB]s00Hgp[daZXYSCKLc(8l:?yM\(ii=*($^ZdGl1lSXcq._nj7LQYCMhãU"^x3dk_*/IZ)OOD-VD[$[g3\hnN(DM,Dn75VvD#(MW,m]FO:&B3c)xJ]r:xEe$QhãU"F5^tY,T*E.Ku,nL0X(c8PErWX<6Fp)rh#ruqRfp%XHt+v1M$hFrib0r'Zv.N1f_ãU"RH%re*iEm)kC?L'+6;&#wTo+niMQ+fU')'GQ-$i%CjCoVMFvV+f_8\H#bY>#nb<ãU"Od8:%2-IF6gIRT&Qcc,F%faJ0O.szS2'.7n^iVsobXLo\eT8*ro3\L%;cfm.UhtãU"7RpQze8s$:^foSKdaIWcAvs0,)-kEMIyah^gR%4#%<243&)u(F_,fl^vDãU"+IFtf((&S7Pkz9[FjFjSR-c7&(]E$lãU"FsHglp7c>pX_bLGr5hQfbtnivK*Y$h+ssZ=r>HtfiU]'UXN:c.a.VOt=DdQm4RrãU"W^6u(E=gG1tJknVsR6XQ9d\8/A\dg^uri\2%]WjHK:M6y+J--d/40m]\s9f1/Slvj>NrãU"wN%up()%9%%%%-%Q1%fFt.6g*S).%%7-%%%-%%%%kj%wsSy/'yDz:rB\[416:kTãU"x&,fCr5aYrf\8K+hd]nT\q5#6Obub]K7I,Jpmdsnq]87d%J60-R&3[pnP9iuE$EC\z]iqCj4l7#3;=<9hU\-;Ko_POCi6_h0+Iam8(iH:=0lãU"I.pVh_Cx7+=idGeJj]qjD%7T$(r3n$'E7%'[5lãU"9+i)qC91EyIpMe_ha\wm=][Z*3q+Qwxp/ZJ9t<:vvtoLV4Tkqp7\p-Mw)oV)'OtãU"Nu(>ZPX$_(w_\kBW%f20e8>P$-94.KGMhZ042Ko8-]-7F92,^HDH^Z-S9pe-:*O'n9t8QgZW?7ZF-]p;0ãU"T-)]irk<%jSG+i09B>PO%(vz;7xnbv:CJA6f,RP]ekp$gSskC,bbM*:\_>/[1O6ãU"8h<2_SgI$k5A]1LID.j'^$'ZhkKeci9C5Y)(ljw#$$_flN)9NlxP<-&;BD'j+X/'xJ_,#:HY8a)TãU"OiLO7=:c3oC7_.ZO0[+aI6r9qc8Ai7,m3VZk[c9xPB9)kt4ZP\HA5.6)h)6_PC_ãU"7nqeA45,S04KãU"lewaZO-/_]Y&0LoEccIJ%WcFnEO='_h%u>-sJc-Nj[RH_M5,Iim.Il[Q)OdJ4iLãU"E-v179YmK0McKu>ILf%5L+.mt\,Z:M3Q:X.0Ip=WQn&&1M/G(6.MHRR92?X3D&qãU"fen2R?[%]0UOaEBg2ugNJ[tV#D&i10FU5c=[LQH$s.dXc'A&jQKpU.,69-N_XB<ãU"JorXVNnEd#5LoVzn4b6jBi:,([\hUNG?WBsXn;]5Y_GrZt[4kBodgBk]RZaw$m2ãU"Ur8WLHX8HsUsJLM/II'K3UKL]auCjfW%cQQ/uNvjHlgD,1#r*C'c.2S2P5&rQYOãU"FRA>Q1okWLa/Udcs8h/T7#xMANf^nZU:GA9U2\+,9$agOpr7+;>.pPn)k;K,&S-ãU"NW1]2^(K\/W>nYUl'x'up%()9%%%%-%%Q1fFãU"^NC2u%y+%%%t<%%%/%%%%ukjw%sVSgRfxF'8:x[m+nZ3$5Pj?megEsW-o$nt07*S5pi.QKuZleg,]#-D7>b9Z(\+s=]Mxm+ãU"RM/\c[cI#E3$=8bue^\sQO1-[MNp#bGU892Yfs-.p'.kQTGa7(S0Y*mEPQY]&1\ãU"m0qT\BMFU&7d9q=>a3^]SG^uns#Oxa\>cE:Q0tR].hH2vE'8(A,ZZE<90Qj3g1<ãU"W+dxYrxFEsf_lQ?.^='4[wqtijw>8-Z;lCjT5?rm)],3*vz(O-smpgAu;ZgRN-lc.I5EEH%_EGA?S]#)ãU"ca[0i;Y4fAzIzP#W(x*TD%jbLe&k]k$'mWDz2a>kO=iMh,#9--2J#-,zj0&uqR$ãU"vGi$1#F/$M9jc*7L=oac^=JMvW:.GwmarVVIW;tz&_*Dymu.hHPq6b(nirGCWiqãU"E/kSmgYsk.5iCvD_Aw*#4j$bu8&UJp^3pC$Bcn#J?$Cl9hlFW0ld'0;4sSJ9NT$ãU"0-Zfp4ruwB1pfPch=/B(h_A#%;qo_2mwSw$N0PELRp3dH\(-=ZLTnPlPZD0$:z5ãU"dZG/\=rx9(?bZ&2uIF%?%ZO3PYWKzV6>nko&CXcOR/I$Wehs&g0&s.3trh1D0^XãU"()V4yy=P,wy]PruS=j6=Rk^=-oHk&-KSH\I'-W4N<*B0*?Jt5$c;ac>N/cGkKYeãU"+9)^;by,2[:LO.9oG/qqfT$IHgST(i1fe7VB5Uh[7Zig41u_hokaamO8,9L.LygãU"MB8?S[?hixLtr3EO%Ot=AYJb=uDK7f$\1+9)Ru-nsDFmkiurwJ\eI*)'vW5DTc8ãU"-)MoZp]#AW,wJx5&PZOXex':?4,0FzBsi(Db\^pkV%KDE*Q.A.)95o&cRV:)9fCãU"jHeSNAkU8gZe-fAGBA;?Z0lRSq\ra4K%QH+ts#-V>hjCu['1PBAfrq/=w)RZb[=ãU";%NTy)Yd4>bS+*m$6(eJ;'Unbpp_aD%DR\TN:Qk$]ivMJ+OKnCL8a$jR;Bx152AãU"X1Cp-TH0Myd*2;/,;*gor#85:bo[oNKo=UJ>8.COG;aYR/x6Zs$w[Q'-qãU"ps-&Ik#wwNbHYe1fATfZY,EuFjm's>8=7e$sIPsZ9g?+vcoFtZF-&qQj?mXqhXSwAvKMjEjM4vv%[_Y/noTpsfh8g&soXD-vJLVsj#(>sWQ>^^FWPEgãU"Q9<#,T,N-9^rb\&]/Q*&GUa_(SBdv_1hVzrr6ZsW(q,s*\V/6jQ#0k/799)kRBCãU"a>YWSc.^:jaW&MjY;B6KFPBN)Dw-9eq0xQ3U_=>4D7_SCp#%j9%nU$e>?3KX$J2ãU"07krhJsYBpT66M\HIR-v'[wuq9NG^U\9DjcG0M^YUs49>Y%qFrqmAQ_ok(8MIovãU"^S..UHrg'ee'QdHciAf0tsoMeD()<>u++.Siei8j.V\A'ZPpEKV8psn=H1XUGhfãU"b0M,WK&Uh(\$xP1gv_yhHNmEAC0?S*9>,rUAM0y'qTup%()9%%%%-%%Q1fFo&mWãU"1&y*%%'h5%%%/%%%%ukjw%sWSgRfx>&;#e+Th/0#rd>*%dDbWS,fZFxhA=RyPnOpLxA5ãU"1YWH'$D'esQA9Zr%z5W&$x5ETLfDz%3W(b^n+\FdNDrrrkI'dK[wRo9n/]g3'YqãU"cH3YP#K57C/Er0H*HCI/a#sLL+F?Trx*E1pu%.PKDSfhT;F;P?[M*40MGJ('ãU"m;/iTbxf]1JOneAJ'C/K2deLWl]vTI#HlTwQpRH_nChNps'xC5C0ZGgty;SZRGKãU"piu/n0[$mjdq)mWY'9?noAyWrBv0SM_51>?6d(OXr0:V6/qfawGT=P74C^p:84aãU"iM]_&Q+$^a.aIexQ5870-5AdiYc0'p0:7Ln)-IJxk#ad#HO8dS3&i,\7,U2F6Ux$[Cl/qtK7^(YakOenIH18]B)APFQjaEg,Ne.w6mSC)rtg7>,'ãU"'+clgOtgkG5-hO8He&.w-NhhYOgoBbxnv/mfa6Ikdc\>.3FQPp4Ddoa$ebm.T%XãU"2X1,;=T9t-H6KTUTF(b87QFY&r5)In$HG?IIDg&Lo?i+1X*6uV5h-ej]CJ'Q)v;ãU"4N>Q9Ed_i&FPZVCH9MY)(fTM=orh.+OkETu0:#'/*ctYqFEj)2=A5qQU;M98>Y_ãU"&:5tUB/awQ&0zãU".2+9,[5\OV\j^EQ\6s[Rw8&VZh[Tnb'ZEl/cW')XuH1q&h=YcS3UA3uWSM_-l<4ãU"iNBt)$\W/>ZCn1=?,9'^'QzF\d8:*Ql7='EBpz\rf=LiMqpPM';n8m-XT2R>7\DãU"O&ww%uW)eNA\LTV-H_b=:)0Q]\$oo60;)m(bn>j*RR(tQT'L:UkT2Q/*\a#W4ZWãU"_y8M4?x(-]$RP?#?PfW5[sKC#HyO+ut4UJ7Lc,Cte#-:jnFFRoI>=tkpI]/LRp2ãU"sdeA6kRdOVpAO?Au8Z3^yNfaQu'%5*Oc5,k)fqL'DPBOnFB^W0KkcAU+\n2e_W4ãU"od+_'u%y^rw%OwMzOKU'y;.*V+o*;3oJWqDp,0s(&q:pAVEq-'dIHz0c_oQ);L]ãU"-ppnNoAM*bfPO_MX.CTv];U38/yG+&Q(.Qw.RtTq)U**[whhu_^$gl^*].&vs0LãU"\3]H^3VvzkS*xe/if&0kZ#U#ij$e=Z#gR]L8xFG[65laAQ-jC1);[*c0/+b4>D6ãU"TWH?L=.)2e$1ce.>V/V^*<#R2ed5HT##Zdiq;oDtoYBt2'/b&j68NZvp]%X:IT2ãU"xaR183[)V8cYjJ(oN'Gpy(SRt?n+Ga[WH^44%cLZCEGeZh[pLd6S6b9X2LB9-lAãU"I44UJ?\/Hi]n)slYXT[5(Z&UTLop;'^n;]/37S&LU.2NxtEKiz9HH'IVjsffmPfãU"S[HOVpbiK[PlbE,&PG2^>\_o\c=DEu*]M75Ys&7B(.]FqP]GW#wxCo1FR)jy$FiãU"DleGjLpbv^#llmg=e?LeF<6Q0.'C8G)>[J.eX0r#EBC?Ye(du.ãU"]PYX%D]yS52QeQUvCzQ4N9X5:l9Y_ggU6$8SN^)F=qbV7TsmC+04>W?-4-%PwrMãU"<*,x&t)*q5ZWusl31+MRZmXU^r(5(tenyy0sIO;ãU"n1N'PrMd(dyH;Od+nj+nSZ8=Nk0(AVW#.*Q'b#:w(/0Pq4PJIV>tRBMufUwq3/<ãU"Jy>,#;]5ET5YY^Og(#Ungh5)bk>:r$q8tJQPj%17Y7nBgS*qo4Ij7k/dDjeyA:eãU"(S&p^(efxK,hdZ48DU/0&:Olnf/qyxeO[yPqm_r1:o+;AD([w.-Q08U-Tn.<1mPãU"bUapJ'[45=**KlJ0M9]vZ83CSuQ5_[-:sKa]Uf)'>.:9KcN)(4h35G44(UT/aRdãU"J.rl5IfIUI#e&b7dlsljrQ&7)E\I]4[[)te'_Qs=iInsj25N=bjjndU>,&2m=lQãU"O90emwnxlsR[Lr%nX9452Yfw*zEb6T1m=>?bEjhy&FGZhD%.bc>mlbJs)s&hA&rãU":UQ7xPEtdZVGK4b#7/;Mo2m$%Dn0*T,IInvy,i+$]IYKKmkKR[1F#kaH#9Wi84iãU"\G>p$$Ful+kGduIXTdN3%DlWg](7sg.Ab>JHd#l>aMD:%nI6tgHmsncGtãU"xCVNjIWqA/m:e\]4YW(el+F;JQyVD\;'*f'XQ*3O0$+chdU.7S+P7'Pi^%0at%%ãU"IxbfMoXyw=f)[.(g5/Y>u'?xpYuLNNN/C#,,orDo,$]SRSnmWig9==9&AMXucc*ãU"6buR>3Zr-a5dP;Waas+9q$^V%YãU"Wtai=7WH8W,J86kA3n$=n8%^=SCjn8y/T7k5cw,c)c4Ya.Kug3(H5rK%HepIBUTãU"r%2FlWH[kscpYaHdE9BH/QU1n=(f5GBq_=]n0LPG1PQX^,lVsqH.Qz42&j?'k0YãU"1eR%4kd:[jbW^8dRãU"a?.G]snVd2Sv0krthR6Cucwap8apJKO4z9sqGzDxMOzM-ZT%N-t&dbF>W%+u>EeãU"Jp%)z];%p'6Riz^iRYbA&ein9EevvoGy(7L#K'U0;q(w7rMbjn&:ZB*U'[qE?)EãU"K[/A4>)W9Ns'lZ/0o9>Q$%)pmlRn-6*AO0iWiE[z^i/iJwhcjaN=>k-p7.Nc[rmãU"3H^AN4]4f==ii+iX1.m24Jw;88b/ZeWZgDbf.KUlqQejB6Sx)1Ntlw^_Yw_5YU;ãU"]DEnc4J*0OsJ3A]6+R%[$+'25MO*O1PhY[HFGW5gBT%vT(h;v*F/%gvnmn?+fVtãU"IR[.andg)sc+5J?'9j3x8;RkWxo?_$^&\5Bfv8GL8=x+BYT,GaS?+Pi_,aXjLv<ãU"j:Tbq2es$QpVCd.uhkrTz:]E)hS+%8ON?cãU")Pe>l\+]eie625=l/DTTyB1(uVc5cBiCãU"V=[3;COs\]k&o$eXF)SADmPzFhRj$?39*XVs_?F^vOr*fCSa/n/GcPW#RGL_WVRJG[w%M^[q^h0HOJDCWf?ãU"GO78>#LOTu\_Wjf=Y^f].29^y5Ngym#(-Ad;ZIP,i[zr3>rPI[fKe[D&Hw^;k]^ãU"'=_brdcSxRcjaK#?Js'#:+6ihPz:r]FV,1Ox]$hhAw#TY^ycHU&kIbj+#QqPK%fãU"b(3tf'S%UusRR_'ge.nkzfC,u._mXR:']e1rfn:HniKpTfh\oepO;lcHZ1^dKJlãU"U'R04N>U4Tdpq7&jZuKV:5:iT:w3KSTm4?/xx4iY=9Gukw/u6iHiqXTeUMA=WF?d)Pn40cu5:%v+07SPQPwj2=ãU".TR]7xãU"K+&kd5<:t/8SuPRH4]bH&ILv)2WlQ\E9pue,2)q1FB+ImCOHh.N[AcIJneBp[W>ãU"l3:eX96_Q#Z?5XYE.B,DTD_?abdJ;IqeVNA8Wi5X6^viKUnGMM:FvC_9mXR08bqOX05u8JTWl>2HM%2no6njumn>IMAU^G8o_I>G$V)M_YEi\_5aWfzãU"0Qc#N/1NXW'wUJQ/WH]abkJq+^=:;+$birHn;w,bPãU"jFs;,ypf=Tg\fb_)Gx[1sQWG4\owyVzSCDTvHi7?54l48MZ?XNXvx/kTKG?qfigãU"gdePrHitwV7$nVtGE$u943.swk9?mC5Qj5c5e(2#eWtYq#.YQXZ\?TJt6FGHBc/dQZ5<9Q_Pc/$sT*p6(ãU"QCXX=48.aHe#TO'JANoZds8JBa(IXw0;gzT#(A0u)k6UJ]r,sOQ/YylA?Cq6RxVãU"DO]Jy5hEgS%q3,)'hBg0f%Lm\mthq-PqK1sk-.f\tYB[ocY.xTW-N\k1.R60Jk9ãU">F[t4Z=fIk\+_k)TpNlbi?gU>j;q]yCmRn*s?_WP4HX1Egq73fc3T3)+\*K4:b)^?,d0i0_l9sX#;D*$GjKN\1=.>rlL:3%/%Mt.ãU"BUX;6B(eH1s8Zxt'jQjnImGih)I*Ugq*W[S,6*orOacb(iA9D.nsLZ\4[L]$LS.ãU"vcPxWRZ$KRui.b8a7&&MmknyIAn%[_^NR^I,;?;h\iEhnVur'8[\p)6s.GD3i)LãU"MUbmMl1z*[vq;Yuh\])u5_&Sd#3daj-'j-Sv1UpãU"cbdPZFVMsD$n1DSz,V7B7_s<9jN1a7XdY/rv_jL2UQ817v[il%MU.iY#Woj])UNãU"n8(='%.6a+1o'Y9Ruq;I#BwKoD%61)ueC%?tW\7N,lMWn4j=xX2*<3db400DbF+ãU">*,g73I)#Q;'#.bVd8hJ1-7vLW7t8jG^2:NyU&tymb6NlEhOo]f;r?Wt+OnY;[WãU"q7vp2%KR:&nFY8ie7m9n=4[a_Qbim].\bAg4rRr20Q-(X[J6HbS[9FjHWko4mltãU"*prfXZ;L>%_jaR$m>wcijkVs7\aw05?Xbw3r,-tv5+*%Y4&7*I1rwqa_rjz2TlbãU"k=0k^P)64S/C-ãEND SUBãSUB V2ãU"ro4e'=UjOXfZp9cMqis3Edb9dEagn]h*rZo^_,iTlI>KNjpTg\'4y:BJ;OT1J&lãU"Ln)G-'>.]DR*er\%\1uWHt<_(RQ9)ENuH_&24S9ba:Uj*#dYHuMYO97q+]WGvmLãU"Xe;uSI3_qbvMKQ)k&c8*u&7yOGNJkDz:_&646$#iV9$.b#PDUPr&+*#T%4ltvJ<ãU"It$.F3*c]l=[fnA9K0P1#)('ROC2q71oOk(su003WHWMz%q[CB-0N5(A,z=OvgyãU";%2eW5qZnx4;F-YN9sR2e3YVY$'W#OeKg%J[+G+BU[g:y*LY%U:jwM[Y)6Opb%/ãU"_z4v;tPST?id6e&Q+VljAVF/o]CLPh8Tu2g%.omohucBY&26?_Ev:ii[&%y&Q*JãU"A\Ve6-wQJk\%pG*pG%DH3,huFDtPSO,\Co]I9,h4$tn&h#21lEJ:uB0HviVl:$#ãU"+b^n3rcZh;OTKM;.FW27:=9Lg;zNrWm?tD']Y0hdSAeGKBL[B(5w,\Yk:8I>?[LgerT]bRI^5_Z3%?1/P;p<#5JX%Q+D0Z)zlx^#]tXu2][8MmtZc2URCFPnjOlwmAX:fk0?yYa;$-_ONr;scãU"0(>FLOIZ1>cF?OX:T]^I\q=*<._sdq>xsOu5_513*cJE1y3Q;o]%orNrq6cpgCuãU"PlbXkJ,NO-5CnsR-6DJR#jZ/Voj3o3EGFw=[je'AOi[2[(J_IGKcqFfF.^AH,ftãU"R[7Nn>jJsD7ejN//s,B5QHfDqYAALh6>w#&a0&5xi(l?T4w;-8)KS-5HT%9\1FGãU"X;AEE,eJ9r^mUif2_IWibBmgdIai\.r1^R]i8S(,bbXVbhilKxPN/bZb?DLsV4?ãU"dol:v>Gl8>mRp8lGvbD>m0;:qx&%up&'%9%9%%%%-%%P1fF-2s5p%M+%%&\G%%%ãU"-%%%%%%%%%&%E%%%%%%%%%hf%qhSf%xrup%&'9%%9%%%%-%P1dfFv]6$(o&7%%-ãU"&%%%-%%%%%%%%%&%%E%%%%s+%%%hfqh%Stgo%up&'%9%9%%%%-%%Q1fFmt.g*&SãU")%%&7-%%%-%%%%%%%%%&%E%%%%9-%%%kj%wsSy&'yup%&'9%%9%%%%-%Q1#fFNCãU"+2uy+%%%t<%%%/%%%%%%%%%&%%E%%%'71%%%ukjw%sVSg%fxup%&'9%%9%%%%-%ãU"Q17fF&m6W1y*7%%h5%%%/%%%%%%%%%&%%E%%%%_8%%%ukjw%sWSg%fxup%&'9%%ãU"9%%%%-%Q1IfFL^?v%(,%%%_D%%%/%%%%%%%%%&%%E%%%%1>%%%vkjw%sVSg%fxuãU"p%&'9%%9%%%%-%Q1#fF075%I\/.%%'L%%%/%%%%%%%%%&%%E%%%'\E%%%vkjw%sãU"WSg%fxup%*+%%%%%,%.,%Q&.%%gP%%%%%ãEND SUBãV2ãCLOSE:IF S=45AND 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ãDave Shea FALLING LEAVES SIMULATION FidoNet QUIK_BAS Echo 09-29-96 (17:52) QB, QBasic, PDS 66 4283 LEAVES.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"LEAVES.ZIP",4^6:Z&=2933:?STRING$(50,177);ãU"%up()%9%%%I-%HR7bFwh-41['[%%,s%%%/%%%%qj(f%jx(S%lfZfPZyB[U5OiJ%ãU"z&Q&h?.MLnB0)0bK>0&:SPZ1)pkSN3lv:D8MduV('d_MF%9u8onYg$RneuZb87sãU"XqBm>J0Xfu80snfp&.^?cnTbDLN];AAb^_bfnN.ãU"m8ZJXDbLNj'Q7]9R*3#ak-8x^\kdpbntt8atp$brp%8ZOcYz+VRM4v.Dsvr]'L,+V\U,M*tMhNãU"j]M+biLxl/Da:MrOF^ZMZ*]t2>w3AZ2c+n#h=(7CZlc0Js_ãU"#i[28mAA[m?Tsfit\tY2'Btt.x$YikKãU"wuXsm2Irc*#r39(F5/&FP=AFnp29kG$tB'FY]Zgqt\>LsUKGn&],l.P5)HO4:]-_sJZ4s5l^WP5i?pFuv/;qnãU"XT-w8&%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%R%%in'ãU"q0up%()9%%%%-%*]]bF4,6%%%/%%%#qjf%%jxSgIfxd';,>[]^9LlãU"[1d+Di=*T-Ge.9qg#m9gX^i29+]f5WR9(L6;5(pAvYs=6E\jba_U69EAAT08j_r9L^4t67>_Lrp#OfiEbJ1;*1C6R>NuLYCELh]uãU"xS79GnY3zYOX6MaXF>WHnZ4D.m9;B;v?oyigE&xGd4X'K)1aC$v&3Lg2K#4CBiMãU"X(DA+F:<$i/qGS4mYOm#&9e=cdjJWjTm87_A-QJpxpKHN$p^jTpE>_uB]TVXa(MãU"gbf6=nG<$IAFl3+74StC_fEln1c?J6=-QpPd]=x)rPbRZ$)Ql7j/tDola3Q##h:ãU"3IGY/\cl[WsWpqi19=n6>ZMDPbK;Z:k'aLv;PimL.c:,-6NLZLPbhMZ:s7'Lv;-ãU"Pm*sosR'b.,HxDg[j*LR<]bVlC*oa:0kmh$^sumR*sspqAGITdLtN(%bbGte:SnãU"I#1I0'o,IFt8t(X,[A#g7J[x'>_W.qkWGUZP.ãU"Fmw$.0G^a^P1E]UF&[5C?tuFfIfEI4ved(Fbp7Xsp,7)(1%qf28ppVNãU"aPcatcc\]L7&t,WfE>(6n3lcYK,03n&4qC.#CK-'ZX9I[(j.;O,FjchkCPãU"p&zQlS.i^/A3CX])]B=j;Qt-S64FZx7EwvJK.0.nI>]pC$exw'mnyUnCXg;Iz-;ãU"MP07.h(/;Z-rL^zgj(2gx&;17U-V+x(QI4161;B6/syn3;6CXq6+_+UmOXcnCg;ãU"rIz%ged9H(KHZF+8LKJap&nRp>P>74;IJE;Z4=9+pA0/i2cPhB50/G(F+_q0,=gãU"J\UW+g?Hk<%1[cs;mr-NN2EFvSNDGHRN$7Ayun.6:<:W(BdFTYkQ^^#A=0QC8.3V9d:XaY]qs%O;+1;2,L^->%srD%up()%9%%%I-%PRmbFvãU"O(tdH)7%%]6%%%-%%%%kf%qqSudfq,Q2:]sUm1)YxaPfBsO-]lkix3Z\PA2'8fIãU"1.lE)ZYP]rbdw?uvlPcpH_)))LZcq^&7jW?^&)2\TZj/3BãU"ESsKoR[n1w,L6c:)fhlZXvQ.2g'MmdZXgJiZBik:O>?]V84dSK>Fl\Z1PQJwi+sãU"qCx*T-?*/-vv)vO&WQ*+v)XS,Tb,qM'SMRV8jI=bif5C+R%d)^DBMM.pVw3_-Y&ãU"SBiw13d5]oI5Sr2'X3DH_$)r2%OD'JlMR(pbr:7IdAw)t21UXOC.n)[mdG%TC=KãU"hW;YiAo2,YQ%=%OXp27NN\3SjN:Im,6[&$g#5'ãU"j_yK/J/(G60_bn5o(Bi?u/ua=n1&d5Tb_O0\F4cesCF7VYR8n](4q8EXZQn/Ei?ãU"T%<^Ncg^C59(X=rMVb]Hqj4yGYi.M#X5[37&MãU"9#dW.=;&gxVTs%9/NtH[N>.F;bM5R?GT&J2j-:ãU"7ita'M5.q5cQ?Kl;fDUnlS%R*Q'[OS$>H4+>AW,qtu\fH'blQV>,AqPZaGp-mU-ãU"K^j8OY)^_MluL80ZR)M%/7_g6%%%/%%%%%%%%%&%E#%%%-%'%%q.jf%j%xSgf%xup&%'9%9%%%%-1%PRb=ãU"FvOt&dH)%+%]6%%%-%%%%%%%%%&%E#%%%?%+%%k%fqqS%ufqu%p*+%%%%%(#%(%ãU"u[%%%2%/%%%%%ãEND SUBãCLOSE:IF S=207AND 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ãErika Schulze/Gunther Ilzig TGA (UN/COMPRESS) VIEWER 100775.2275@CompuServe.Com 10-17-96 (17:32) QB, QBasic, PDS, PB 409 27077 TGAVIEW.BAS ' To extract under PowerBASIC, remove the DIM from DIM SHAREDãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"TGA.ZIP",4^6:Z&=20018:?STRING$(50,177);ãU"%up()%9%%%d-%X17vFPx%B(h5.%%3x%%%,%%%%yl%fSfxOrN+<,BT[7uwEE]sdYãU"L.Lr3VaD,\P\W'2#I#fYapJ*g>Aknq$*ãU"91&QVmL:QLvCGCLW[q7/K7&\/WWxiShOChai1MqjRB-7GGrGY^;4wI:YID+4U<;oKGtze+udWJa53Gca(HmxM7L$:6+M4'H;8.yp1,xa939eGHHTt'HiY8JãU"-D$0fhsSpcJ=SIZDZC5&mB^FOFhr2_m8UIYA.S49$HOCHq76ECãU"Hg+)[^oKg9$7svvA)K;-v8W>P'5YyQs>Qs<7kJAFWmLyCRZ,aa>p6m5o*Svq:gNãU"8K#M)IL?jSaq$SPxaeZg1damqV=E78P'XeTB)X/A)ivEF#>:&#^R-QiO/'YJ(zqãU"y,hr'ZuTiQk%s>wXG1r-9][Q87D5jp&EC#p'sKZPT5Zln[]k3*7kPs'C/Asqy,]ãU"YvT/bHo)sY?(onFzM'LclpIE2ol+aef?D^TrMsGO85X[UoP;/=/>MFk$<&DV*uHãU"KH;ty6Au$Q&-4dH[YfUS.iooJ?Bm#D<01?5Qa#njm)/;wGP/G?7vOFm'Q2Rx[]NãU"-SBc'WnCI$z>byGD5a,r5^^gpfx=<-n*.ysZNmJ#d'Y#HT-%*au*=0:LMo#;2^#Qo;?a$$\N\,ãU"tSuolqO0HMXoLq*3+3Td>J[*?hAnnY3wb.JxfFr+yQ,KK<\X:A4'uOfQ^uhc=FRãU"X(ME6X'TNAAP(qãU"uHqfH[kA-EB(6$Vyh-OcpIsnWXzw?Pqb:sa+mb4Fx=Vd58A+M_PWAvt$JH6Sy/5ãU"S(K=fV*cp8i2eT)>ITTP[*XiF[HvB*nDFF,3TQp6oWLhS0SSb((W>z%Gi&(dq3?ãU"?9zDPVLmo(W+g.?(P%ki-ok_Tdx1cDc$bN1aZmL6JG;]g)vJ2#2t5eez>?X,t4mãU"Ci>*ej#SZW'3I,s.mI92KhbYzCh>r%&u\yI*4xBvhBeptQ(vxl66G)Uh0*p*[*GãU",//O6=m)*Q4JYXeZtI,'y/[b7>;T94)+3la8PAB939X0T/'$W:;KYoRD6E+ag>mãU",bqcQ/VGm=p+d?%U)sY2Pl&vZTqLe8NfQyZF/hW(J?1).e47GXXE+<4q8?>WdYOãU"\Z18lNG^n-=*%5mXDVZ'0&T]p$[>zAZ##srT(SJt\Vi=Q[*0O%5')$(Zc[W^W7M47Mg[LPZ.(R'h=)gQpUR*$iz7ndDiUT*'LãU"hwA=kPDml6Y#cvCj#&%-Pt\KltOSCYea=y1jrm]Aqiyf3:L;S9#IPx2,eRm%I)Eyn6't[Q2d>z^MmR$$r(CbãU"%*4E1iijo9,xY1FA12M,ktz]heOU2GeZqP*\Ms8+x;j5.-jumKRbPW+/S_ãU"XnPD]4k%s]jn.2wAJS_Je0<'/$eu7=_H/MKSt8NC)8u,%fNsJVntuUVB\HLI&y9ãU"1k4]&y?iCe-)[cX/jQ*[=SNSzy-RsrkLghMRY(C\[>=Xv1*>wH?Ve?v)m;WzZ=fãU"Yqqw#nXMGcvg9FACX#khR=rAjy\H7djQzL[MW)/10UD?djnhhiIKb9T97QpErevãU"3fQlc^Y+E*Xc]TvvqCM6&Fv=]aJ4GGx[MH7f)AD=j8nEcp5\\F7nn1&fC7=\o>>ãU"$ukWWMPmThLic8k)hLS;*0I&RERW.%Y+O)-DQ::ijO>Ij5m(L.#8R?A#1I#Tjo)ãU"46'0=6YCWy>cbr1+9f4527)]KaZK(SD9l-5/_fjj;sV/Oq)?g)(MNyuE\sV]oH)ãU"4ue57IE::/P^E6p>$GWU5#/V-Re7HMT>Of$v>k$KPU']3Bh$ufo=7SCp7I#ãU"+Fkp#UxbcJ_9faZqsNLCzV:F_7WYT::=AU>HnKIqf:zATg<4.E/a%bI=IHd]<_AK6NhPn[oCIãU"\'_89y,5E^_1/+/iL1GVX0h?7pvv+yiqK(uKo9ic:J:F)4jS,ZWe#)Vr.SoWAd#ãU";YjKKe5zfHLm9kXHc?[7DLFbIhfL8+cx3fLX0fWF#K#MhfQ2zFs%buãU"Y-c#E)spd1W:0b7XO[-SZ>mVpWtW$1IJLOIE'xS?L6N4o2Z98?un(w%5hAJN1b?ãU"g^*JzZ'7f'dao;]Q7B7jcJisD\-A,R,D)bW2ZUo\u6>WWTZ;1%%mãU":i&+Brq;Z+pYht*/'9)
VnsPn.QfbrUM*=PN$18-,rq;/Zp<ãU"j?t+[Zjfb[dVR:fBKUe6hn2n,B\2S8fjgãU"Do/.H',uqSp&(<9o7I=oYmfuq/pN?b]$f6om5HkIPg:2a:NDUh=TJDe$JY$VEGCãU"hx__9+wiw)Ajvlx0GwReVjnI.tNsp:bx7bI8l$1IBLhBbo9jZ?aC;,QhS_/r]VDJ0DjC6\*,lG?r7\.?Bn;f.mãU"T,H>mmUrtNa#&OGJPS21huQ52Uu'IHQ3l/Y+4&.g8]O6(la&?VHW2lNb3Hq(9'*ãU"uH>#1EXnYW^A(6Z(>=)4([w>$[-\ns;9=xR655?r+swRfrowEgH5/BY#Yisf#eWãU"^,u]uXof885dldD20^fCW#>4*rzIaw2butMUWzE)_xHp,'VXOt#''Xq,BcD7Xp//B$ITBLpGu.pi5b_9>rBQB#Q%Cq?am#/iUu]B:V_71ãU"wr$92oeSpHA,l-K/vs(m&Bt5N:v-h58+LTpYE,?mTY:f#DlF$*ci50N/sK&HPEqt7kt%Ae/]m)+s43ulvDls^WofU/ãU"]&qOv;hU>;qJ=p]p,p>1=aAd$tX,cU^Xf?D_*g8dxg2Tk$cHrTu0.wPtm5RãU"wTS=&CamoEH\uZY4/+t0ULj&K=9&IRh%iSmo8#vUFFv+(j&&k=](FhTZPR-M>1mãU"1BeXzF)QhTs^A(gG4XsYuwtMrp]J&p.?CqrN:fFFkfhS]v?M,Cr26PH:>J;?O&GãU"]%djILF+_cU/8t,NM;E.spi/SjDcoOb9Q0;bzw56fWQ2tCth-%t?0JL9*.\qGooãU"P:F5:V77jE:6eZ$F7$0Zq3IYluf.Plu$4oDtcOz]dln(lV#e[n?)n#R*%Uj;1])ãU"'%6Xu,KJ^ndXPn53'e+/L3tPVaz>.E(:(gJgYTu/JatA#>(=]4vR2Xmul:Bbt'8ãU"_0.v%zNcM<];)PjbEGeH<:Eh,:=#_NOW2dhlq'dP*3*l%LHqwf9VYOfinQ9ãU"B_;SUXMmV/K^V*U*YHV'3EJQ>)$nx\vZ((w^b3RuUs1dmr];]Ng3QNg,ReI-G-ZãU"smJQfgMhãU")TG4'9e/v:YkiejwA?7-,JVS5hJ=J]2*q)1Mrr)%3>hcu%lB?QGkjg15cjV7lqTãU"d'2W0j.,]H$j;i3jJK-DvfMKZtqd=Lt4O\9_KA2?0oYOP>]oaA=fpQGT-#W#mDKãU"b?+m0*v#/DAc0WI(q+$P-n2bBApKg8+LAKkmAc^oYlr5,uQ5Q/N<.8Yc3HUJ3CQãU"$ek*M7$mx(c98#H4I9Qp_RV[Z)*?D:oao6J_w5-d9,C&FPyWiG.VeeSoNcwãU"f-#vNEiELVI_KduxYLr[N%up()%9%%%[-%z17vFRN'kYN6.%%$l%%%,%%%%yl%fãU"SgfjxV+VYATAA$7-zb+BsMlCK4h+P_-3(G]/gXl-=)&qsWmsV;lq1#-1jcRf%:OãU"FG24e&ZrSxbd]Gh>cbr&1+NqIb:HK:[**(LWXCpC?pmm1KUDk,*o=,UEsC/rb(1ãU"AGKBBT5?MW.E-cYthLynXf,G:BY40H>N>#>l:(L*HzZ\nD,+ãU"AfK3*h1Wdg+H\HtJ&LW1-m#FrSg)(H#RH]F+pC,KK=u0p1r,Tc:Y/S5,QVjAm:3UãU"*#+De-WRL^#5-Fe:.,lSSSO8*I,U;5)Qf*eLJU_A50xA&/I?*ZK6ImXSqIuxN4TãU"MS%GC%[ABhuT/X6F$)_lnF,i-%vMa?.+.\(;i7A;Fgw(yPN:7Kpt*uoEj7D2Oo>ãU"7AB[;Y>1cl-3iHoNvgx>G.\0E5fIOqw0mFbqrB5,3Xb,i==Emn<-+qV;ME,S>0%ãU"fH&'b=aQ_[Ymm[JTfzU00#n7dkFY61EP3k/0nLD*1Gmn;,/ZGqEy#o0npJ;8I($ãU"e]Q[Y#3jQu+7aKjBHR\'r\7]37$$_)>'_9VjgrSP8C+Q=k/KkXpe2-vI:cQB_&pãU"q?QlZ;H::Y[$g7P1AI8+m:b&[eRsRdo[T&bQ]O+L#\>lY*/k/I_4Y(&Op?EU#uOãU"^c4semj-BX2nWZd4SUWpXEQoT?MZbT<\P1fqu]D<5R/gY%=e9WK_rK91&6XICeuãU".f+42p*PcU%1amgRJ(Cr+])0_54B^4qLH9=4lH(&o[ZjE\KeW+e))5oPWM^_t(-ãU"a41)]38kd6Q4jJAd=k&.RisE)GfT%&'g')j7aD+Tqwb9e;Oh09Tjn_npD?Bg_y%ãU"*8\(m(3UmnogPw;M)e\i(\CWEI*hlfg[Kc7QPlK_1HDScdR_vsC.Uq0/2U(Xvj0ãU"'GFKF=YBS?n;hYfg94deFy:;d/^\el/CM1B)%J*:Jn5#T'ZGaY9>P0N5K87f$R/SVC$DO,.ãU"ldC:D3T3LwQfONck4+tq*%Edw..FK'c5l[37R,w,D?s=iT_LvU1]6GHdUr[%NRDãU"kGY&[Qb\Dx6h1D/j>]Xo]&w%Tz$Ma'FM?]kru+IzCz,>i[]$-hP?*D,tK][H268ãU"m<9N,g6i$aYkB1?:tKH*)p,+I)u?Iw6Co0JnD?bd;wd^Fji0RKDc59&jrr0&#LxãU"m2l'J)==%^ReY+P<7aturLaJcy^Ol%gn0AsA1Njuv-7'[ehTp=QcbMPK9R=^JB%Vyl03r'H/TC4_SqewiY6^CA;XEj-zKlH]X<\tA0?CjqSãU"SR&Z+m^5&/r$WC8)BGJ4=cR]^7l7NXTb;h]Gl?6Qh^iE,-ONFVfXaãU".yqUZH<>AX)2WQN>l2m_3KQXo%\qc^Va;G>PCA8tAKyL/HQOu&.[ZqXfjLI[1w%ãU"Z>YO-fbGf4urcMjn%l+u>3gs-i0?f&jT[\(mgnW?)KPt1fUIH#<>fbQ('%'lU?oãU"X3(GTZZ3l+ECks-c/YY_WpXZg?[;1];=sHA>fgWBWzc*Ch8IRH1MZadhI%:ae*cãU"57?4G,<0h5k&mzo9+9PO*8yI(nG^k=x7XzlTX$#rxMaIt5Bg?&%?5$vUbE6%v]6ãU"GscEeo;0B6>&vn\lR&Y-I]d<>X2'sOãU"sc)6NjDws<[;LR44i0^7DDCObzZ/sJYNs6NKv(04b-Ahtkc?\B:WIO%288a5^5gmXI(Gv;6_=c+*T*'d:TjcWEH0O)ãU"rs%J_2Tzuzf+>sT_*gfuSh8gk(4>Tdu.?$6;l9Z'jWHdNl];,CH_Em?RljO0JP\ãU"TOC_cVQ1P>;Kk60&5O<4-HS9/Eorjf\3OcVLgUwc>3LpRKJgPfhN3Lv,#_bU8s7ãU"0kV2YS2QY-fNAKE35.X&br%280(Q7^F_&Ety/0](/6Xg5mW'v^-cWãU"slfxiE*eEU?G.X3/l%[.&EG1OaD+pIW.g4F1Z/0GI2ffI,AyNGv%*G-;1a-UJYBãU"t]P4-%HgNUZi[cj*ab3a6P3h5J^\Xn5E5D04AiE.Mqe%\GIbGn.YID(_+r96_OeãU"RlgF284e]bJ+c=6Z'Zqco=*[dbj::AuQojsI;sV&66T.UXtr4EJm][7&M^z1;(fãU"PDYjfCw3X?8gZ\2G#U/z(yOEo#Gj^a\#u01we3]bQ$XO^h._^CQD+Hn,D\0Y]$gãU"MA)(Rz,c%fF7gZVXPcl,]'TdA\,rd6VYiv&3P;=4ACNMuJ.n$55\C<1'F2mp'0YãU"ig,#gFkA5Pig&dWddYlB80bg:Xord45IC2YR)%<)FMrTPK6ZaF:aSL3MdWR,'.=ãU"^,0XSM7%mwzkJ'JtG-n4[*=5jYu>E3UhK<36e?IcOe5uxs(xrWCvdj8IMxwãU"M%3h'6'v>tOet^NrXCvDj8IM<5tE[i3N*0tu^f0-.Y#Sn,t8d2eWNãU"R.AC33Sj[x/6fbir'cvLIfGPhV$;O/NfDe1Roo=6:iVx7Dh0#.lU/]NZg'Uyqg#ãU"vf9'%tjX7iOXfEdny7xLl]QkSDzb)ZNV[?p.b.q]lin*LkV$']GjI?Bu6zvt2GLãU"IjtrH\lbZ8v&&C_(Og/%i-IO:EyB*s-ctKP#t+HIA.C0en:'J(ksbnstvjãU"olX:fc&Zlak\GC^pt&&+dk,IGhCYuCNQQZ_EGXZGg/n69?jfstãU"AtscDeC-M&BfsZ1cDXGai2J$H,4^TBI_6SrQJgUptsNs5e325r]uB*j9#i:x*>UãU"upa$8xoNNS-hL/d]RzhZf:p?hc]+FW_&8F]/dSN^l[38)V=NR+t*Cv^N8D:_jkgãU"*$1*kCe9Cyo]CfZheDJc%\j\K#\^,SPY%M)xLVbv/LdZlH6+N_6V;.\52M0r.Z4Hfg*iBhGMg.jbhOhHoãU"y]S--Y=y(9ijPE2X*?qVYXIZ&RdãU"lLAwi=i^Z'?_$V)BG0?O;BOFO\Z[fnvsV53aemB(?#MzP&o8\BWq*a2cUp_Z#:9ãU"h:<1-tu/O4>o<_>,2w+WG=o&LKbq8nrFk=5,k6T:W\Y+O4:Pb?SnR#qzSsDJfP<ãU"jtl'^JC[;A<3S'7hgZ9]N$0NKI&lGOc\:(W42w)CdD.+W>+qKAi<\g_VC8pG;JzãU"X#?pYYEE&bYq=*cY4hD7ãU"caG%Vh6vDa76^ueawG)3xR(jLX7x4mD>-'Asbo8NVc%do\WS/J*534uvNn7D3ksãU"%K#Ldc&Ef*3Dv3Kt0>ãU"Au[lH2*]QU^kfbI,4k1yswNpGxE7,w^C:Es1;(d&=L*M2FT;6_o=*ur]&NAl;_lãU"'jlk?v*K3XXbbArgnãU";(]po2cJXWCSMA'eaFRf3A4#RWW1c1J'M7G6YqeNF7s'NGq$3]29D31*M(vãU"OlEzW.O,T=VuJdcMIJUEJm:\3i)dnqS7Pg)1iJDq=HuD&KQW6Q==7uUP1kuWeG5ju%FBh;#b_oJbque;<*=1=H'#FP;TmhGãU"-%tP*UJS2ZZ/pbEZ'*j5rEAbMOk2l<18U_Z+WSe'V[_IpPzT*?FI0_+cZtsh3AOãU"#Q#[?xk\glNIn$+W:b3j.Uic=opq,I(2F.B-Z&$'4ldRl1H'cYrG2WuJ&ãU"ch//6<=CiZIR5*ZyxZUtH(NIAeB\IJãU"1>FNHQnJPfFl&m<$uXm'm&]=#DQp5wJdMUIG4u#7CQu6$MOZl\JvLlXBb,Tx>YTãU"ab2TDYd%'ouj9#e^:mA.tF,KTOnJtB\v_CZ]Bv,J;[qFn37kk:Y_l$2P)N7,DrUãU"TzRcLc3tGg)X$\qqmTOee:[4t=LUgcRC4+f>Bn4CxX))wOImãU"C9<:dT$m'1CZXk.<33_puN-,)pa.>Yx=uOr?On]0jZv>\\,\)$XU+g)?5v/s#(KãU")/U(=y_o4JF)7<+sVCRsIilFiTT%it99(_mb19WY$/I%8:rpd'[o7WCJIk6)3XgãU"sa05XrR,YhHhIWCH3PBs6WjG.j2U5+/lu70om6zT$DT()5])-7HãU"&fD&Wg?Z>$Enfg9^,xGU;%SR%F4ianT0gi(pc.ax.(N]?dwYqH=<HrY%p1%%&gM%%%-%%%%ylfV%SgfxNãU".(cErBuoo*ãU"6CpE[fCxtw'7XtpX9VbVbtr_jptJc._>RHOc-RofbHlTf6:]g:\.aMZ.W(n8rNYi4exF(\:?E/t05(DãU"/h]:5'IeP'31tPk20O.:A'a(?ZUZ&Eje9xdbv&1ph'o:;tSLOr4#cRãU"]1iGwW\k%xC/0N_bVdZ^DwZp4$G%Qv2$=x;]'+.%UIvh_c-.C;&>,ituc5QRFjFJC+zuo=m(oosG2eRa$<[pi3x.DGra8$L#3)y8M>L]6R-fR^JcOãU"OL)Hdf#Y2BuJv9h%%%0Xu[MgNl&TPLK#WrDv0LM.piHZf;UaCc2C0;$']2K03AWãU"tnp,=,DpJvY/]XL:A)lCYm]$>Nd9OY&dpczUTB9[kDjiRB>OWReY;T:;jtUfCaJãU"SypRlaXn%MJ>g>1cI.*9S8]Nd2ICntznd7\M54*=LG,L3uMJQ'Wi_CSCOP:kj05ãU"r'(SVV6oZ=h&OqO70fjw>7NrbV(^HmScT1'O7.PH=YNnU$j.s4hxzmC]RNIG;v^ãU"MxLG*u?f&F;IWbCSt55P9yABR*tmJVTOGQ3+k4>;;oG_o3I^QC./9pp[SQ>HOe1ãU"L-d+kd,;+Fy\l?kdMW\s]#wUbbL+jQsl<.Syn>5d]Gkh_$S1R4J>dPd_VzlLwmvãU"_2suZDsvCb=+aC#UDkjW&.w?#X\X\vZ0KvZBVOYfzchpIpa6Qxs%&,aJHuFx5NmãU"+L>t=nS.+Z3#q1RgL=0;ynF,*tH(m3lfe9aL[)SAy5n;NM)En'8f_u;L-b6K>?jãEND SUBãSUB V2ãU"$4znnk)M*De6URReK_mUK;V=%m.ou&.aw?MrCWs$I/>Xbnh4)=\??A.WWk/pi]8u(;nk'V)(NAq56O[oqJst0]QG+/9qS>;;.5bO$JaTw0E7],6DqeO99/koU-7U])vFD_-lTãU"fHb2>SUozPkHf,YACaaW*3>2CãU"\kzPuO_;Md.7U-n+mB2ggtq[MKNj=O]Hg/uRVfns%.Y:YRO:E#?9-8R=%_=^^0RãU"vC?g5T14CoE7K_Ir-b9p4O)my%WUCt0]m11unVFRuh4naKTJP;(b^Z34tjn%\,DãU"Ai[2wE8\wW]5WxlQd.*:%Si#E$wd;[MSJcH:kFpX^Pqx_W)tDG2qx-#TX-wrPe;ãU"FqQSTUNKw',gc80KS5Vj,93WY5SUuSMV*bGWteMf2?YKxirE31m]JajCvmFvO]qãU")tUj(rmvyNLZ[3)kMIi7D2>-hOIwONUXXf2[,g(mA?V0i_e2o>>NStk_2UStXRjGcDAYtJ-GocZCQRdviw05E?4A?&hH9H&)k2ncptdHYMFU-8Rcn=W^wKdN$teJYrjMqnmwOXu]l=?IO=0Mwwm6geYDghts((sr%X$p.X%Lq4MqCdk%J7ãU"t[h+>6(UJ=^MVy+?KNccjR815[f?FtWU#*>dSV-A]wrmwcp/R,A*SgQEI%7\ãU"Y%vh.nKQFHAVR=l<_j(&Y$P2Q--=55(ner22u*uQ6gvnxVh16L8Y3:]7R=87>_EãU"a*-:);:9]$R$*UvGO$'G\$'SoC7G6:,+e8E3?[U3bJ?#L+U4NM0R#'W-[$B6=ujãU"_oY,xZ$ES6tXJ9X6vStuFl7d8uwcY\jW/+?%\:'S''4e_$/74l#g;63gXZ9X;D;dOnyUfM?+D=UApgexOfMQ0j\meJ*\\JUaEPQntG]2IDtnNOTOVEt.RãU"7pB]Y.boN[Yu\Y'N6qbLh'uR*jZnbBF('iwJLP[Bc#[gjTCNxyG#g8K\mQ#pLU%ãU"nW^'hQ=tbM.cDjZA2VPvq'v+fx*u%p()9%%%%-=%'5uaFVyg-[91%(%^T%%%-%%ãU"(%%nj&&SgfOxV)*>BT36hMe6u4D/8s;f/7vfecTu:0V4J(u)4IWt^Hpe-ge2^;j#+]+ãU"*vqSET\sJ:1.jEiSSS05vb_ieR$^'IM,f#C=FleSD2&2[])7;,Ysci,PF;p4s<_ãU"_^]gjD(r_FiY/Pl8N1T;,fBS(1V$>AsS'wN-(<]#lT)DG(]]p6uk_:YjM*'H1j3ãU"<]u'S)7]dE(j:p^F;L)=fKC.:RPn2NhT>&Eep,*AWO]=kBjU[l6>6*'_2JCrãU"hnxiuRW/=+Yi*$NNo5^pr^U36TjN-iQF0>.iP^]WW7UfK8i#c*PQkOYO=+P_8NeãU"XijF^F-LF.n],E:Nz0*Fh#<)D5brd)9q\lxB.9)dZ6JT4cV.C0/gEq[AO.<+JgrãU">phR.iuv&_aRxrp&'Y(JPEU38nx[mA>V<).LU,04?c?G074-E*n,5F&#hExd;._ãU"'C*>f5o-Fr#SQl/WgIy3#RTNYxp7AY37F:K'8L?EI+M9^2,jh.2C$nKe/IfpsGZgfNGZ65/ZB;Ij-s-3wdIGO1jgcVKIJ/98mpV-meDj^DãU")%iU5T=hvRf%b/c=Xt/v/YVhpgH:Q3eY=op#i_gY:Y678nQg0RtAF6RM+c13Du9ãU"EqnC[C'Id%SQd)-sIqzCj.3J\>oqT>/kl_.hH$1'TD+rUi,BvCkf#BB*t#iRrsCãU"-/ssubY5VI*fs&P?GrQUp$+A^s2sMCc#k%Mh+/e/1yQ#S(\oE%H^]i+5,=uMPA/ãU"r=yjDv7.WS2hrycZY6F9r09]]oe%lA^i]wm,lN%QA+qUa[-_x]=_lzYd5Re[lR\7Vz4(m4e9ãU",TKaMnd/[ILq+YPi;78MfkG9dU-gI:;BB^a3aJk)P2l&wQBTK3(Prqb16e:WfocãU"z6eb*i+_/y+-0\tB7SelijR_A6a:sS\H39xcratk[608HMi&z1oJ3:pq%&cl#&0ãU"L38/+jOCãU"(fFN=\J^f8yjr%%ZtCLX5]H:+3%sgAbm2pr'+]C4G#1HZHGwp*8G&H&4BV5-v_?ãU"qW/$Ojwgq3b([1[$vWTGHMu_?g]_3-6dPnhg+V;5wNC)/%[5Q#j?r4Lw2LXJSMsãU"(k0cZ3Jb;-#In$m\OKA;KjN=^67+y>VMTYvFeu:(GVIYr6(n78i+6kWXe\>*a-PãU"r*8*4)k3D4P:)6LHj/KP6Z3tJy4S6PfZ(uyiB8/&FI[a18jlFRj_Q9LJEnU8bb[ãU"B2Y]nMx3/USHuC;X^]p&9NZT1SFuhP[FI)2$teOU)X>$D&fãU"D:\-62_96^=QOXNOl,m[qOVR2Nd_v3fjixK?,fBtV^4]*G&vl7hmJmBBO:P?D)gãU"iqH^PviKc]kJW/A?XAc^2fVZ2/kY^tlWM9.e'ydj\yfajJuyo\^JpI89a4S8C=]+,Qdu53InCãU"fS1'+nnB<,X'[WT5Y&JxsUCv$ARiZsFN$tb*\Mp4l6K>KRWSG%EDe0fe3WIgJOJA8NUYBQJãU"N=XU.bhV04$+*/D^C9exVCsr>SrJAB1XuLoJUB_+53Q9h.2twZM*9qu^6TQr62']yul<\31J'8Z?2akI>Uh+n^,R-N9cpj'GRVB9XIo:QZ2?72ãU"+k062c-bW9Ap5fG)u<>^[ãU"CgZ.l]irLYb8K9['sc3N+IH(Io[]Ds1jE7^,CRqu)BMm#Fj7m)g/,fJYD9NOAW4ãU"[TA+OGVv&_OsN#Q^bC]5*2)%LhB^(IXIu+20WV;v:)n)OSwmF,Jd,Q0(sr:p32FP]o4$On7^qOpn8qU8FqcP(ãU"mXf8$+uP0[:h-x2ubeV4o,4fJuQ3UPdh2[khRgO2''K=s[k#).66\rh^Q+yG8t\ãU"w=2JF6?T2?3x'WZo82f.$034s5dHWVfr]vkvOfo;C:Tq?o,K;6IxSZ0Esq-m61rãU"e\sVu?]+vN;3]5D8g+0GUcKuES'gUmsr-m[N.NQSB7Ew+spV,Oz.dxh^#9=rM*;ãU"48'#,hQ=NRu/$U]t,NI9O-jLH>l+Vl-cKReC8fj4$=[lj)_$3us_3q.b(q2qr75ãU"/;j(QyuJ',AeoH=#r3JFlz&1ng%LZXZ]'d54ZJgm/?w*(lATtJPVwuF2n[shHsQãU"5_x/->0IG]ke+A9?q+TDezMaw+I3M2/C2gãU"eFU^*a=/z.G9n2U-']NiTZm'xEW;DJm.ZPp(*T.b/s5j^:cOmtRZlvOPSR&)^ZnãU"G8ANu/>I6uan&oS3WS>EN^39JJXy:?[l:]b]^rWY=4XV:S*'$89Bht:H&GF:Jw#ãU"$N:P(:>uaCQ>I1l-IG#cBOT5l?L7SWbV$x7pM(Q*^30fG'gsXbWBfI[DRIQs9XUãU"/ICEC.QsF^dbJ;W.,z(WTnGAaxY28R+5\g\Fq%f,:V1dkuYfe2L*Y3.o/56S=v,ãU">h4gLpRgm8tNwd*K$T*o5L:uqIlZ4srSVhnh$cL7q;Popo8bou8H0-TtGSGBZ+uãU"+>>*R7IUB7b\oKPofoI;]W&*i0H\[oEGZYan:t4Fx+HV[Hr)YM$rQTYJp(_0UL9ãU"OB$_Lu1z,q8*-N3Ub[[3\kUpVUD//eyvy)T/jDCg7vm9ZgFP:6sU-=D1m=FKarJãU"$T,:OX*q6prf*:he)_#^S7rZwãU"90o%Bb8?S/(6[-wx32if%1.\>ePj0a\oZ98:fDM^mvNfvtv,+O0?vZ[a\G$8_dNãU".X:0baxu:k5ymUJk&#gk=U6/V7(#0\d_zMCe\uummnLrbZ19wGcvL_rhIqRx\v(CJ5QZRJ2,4ãU"b%XcsGoTC*X54QC'Nu^Z\M+R&h7%Y]?g2Q9guãU"M:5uAixuU%NjV^]jEQ,mJw;S;\M<#,Z^_S/20Ch\EE5P?bbDo_31JmeM^#hhFv6ãU"JWd?S8_Ra8u5qI(BuqYL(Imur6tcA[_]3Oip7%tGC1k+0ãU"e6k*9'?;Z/gI7UD2LTa^*n01C%m/mKpKmnv8TAHw=k\dC6C1_4LF'nxz99lKaK[ãU"Dxv,.#iLHkKdh9LT;l857YT7^X5>.B(7NN,%mnq2tQ4ifsKPmF*G8ToS1WM*4t.ãU">(=F,#HWG+fikrKF&klF:,8De\#/uYL98ya0Vi%CjP&3bqTSdU9U(+f[dA+zLãU"MwX$n\=]KSEB/)YeqX)?.XD^Rj1k&/Pj$h:LZXH%-9Afj/ArEJWlu]]QgqM:gcZãU"-48V?:eDU6mYnTH$OM*5vv8Y11N+9GW8+rhZ%zNQF1'QJ(E3K<'WS_JhDGrKw]OãU"G%_%tc\<,P?pu,s,k7e.2hn-vVGA:^(Aq+'X=::5u$:i8i>r1gWgk\u+;h>PIDRãU"2#TTPID3Lg[DBIQlMDpDnd^.i6p44kTtWDm&nl&&UUsc*+35qm/+t_t/o.ksG;>).F/p?%GcR4%HCnYeXOF9T$Plo*Zu/dWt4a[V&lXE*ãU";qfZ$8NYNnUEW3=T$Y$Q2f4>?LtvmlDQ(*z7M1tz;Z8%h=*'<=5%oBDUCJBEd^YãU"bN0lkVnnW+T1XgVDl,NXQy;/rMK]SbrY5MnYZ1JYnd&M1\8]N;Kd[&8Y:pPli3#ãU":5=1mqZ5UQc*d9<#RUQ#(0+hz5C0P[MKuoo#E>Y?K-YMu%a(up%()9%%%%-%,R-ãU"uFK/0S#%_+%%&z0%%%-%%%A%nj&%Sugq06zNqaxPCxYmWK.+WdEHA*[pX&Yx8+QãU"[EJ^RiN-&Qc-/J:N7/?lVaM+mRgtkSeaOAT$pTz$V4SwLe'C5?t<2R]Dq+qDVwUãU"Y7+gI=GU?UV8jMqmNWaVRt?XpUrTeO2h3Ngpl6pJGrvMgpkkh^lsb$qXRXX4WU/ãU"O*OUgA[oGcfyKM>3)J+'o)=mF8&G5=QS:wBmA'9ãU"RV#Q:-3H4-MYkLib(*%sEKc\]mos'7'=xK-7H+FrY,4Q/MSMalYb>2f35T(&[OuãU"4W>2)>U=>-:JAfEQi,1A4Fbgk)^1EZ*t'Ari[2W?bf:r9I9\g'I48PBIFZcM1o)ãU"]R.&'8yAHQtT,8';KRrZg-i8uvB/?kasS&1]LAr;SGC4JT^>Hl<>.9-zbL$BT*(ãU"T,yx;DPNi94tT,KkMqq2W&/2'W8%b&=r]l+,tY+iakeqR2]6>9*Mw:=(u4km9*eãU"08h)M]V=OaW;vh,a$]1=/Jn*Ev:jlwwC\6PMgFWgãU"mZt=E4>Ox*W$2(.pSDU$-thbmmA+/o4P?ULCSJ,QvExJ>EX%L]ggãU",B*sEbBI&o^2Bqn2)E=szSlRXY(STbahTGS)hWJ$,?=QSPvXowt2_gl8u++?dTaãU"YFV,.7$^s&TWoa-8vXhs9DhwpyKFGoX,X^v;PãU"b)n+U^uY>17[yBBjm/hWD?06ur22'lDAMGc6[Ky^4pkhB^+_XQ[G\,$9LT;8JCCãU"I[BDs6#AjZkZAtDAnAj2AM]l6A0]aMklA0&AH_;QZQmKYT'6$&ii>pRAT*QIXgo;rãU"PobVs?wr]CXT,1/(B1)a]1f.%(,Gop?NOIBfsIEafb#Y]Jr7PM=j3(m^pXQv+pbãU"cL4WqZGE^wI'.3Po%^o/(gBwk]Z\HMEn<]EAeqk^?hVgsz:V4EvfK%b1W+L%YDIai+ZU,a93W'e5XH9)HrFj#ecQ&p-$zd]C#UgNk1GhpAS6ah>nc8*hef\ãU"6Ks[(Zx]pr.N$e=DtiWTYzovUGH1zkGLp,u80p#*GN]v#$T^U3ru0UcgX]X8^\(ãU"I]Ld+b'ldup%()9%%%%-%,X1vFh6R[\&I*%%&%;%%%0%%%A%nj&%xzgS[gfxF2'ãU"<>?m^5w5b$kD_Yy_&TnYIN.4G0,6Q+2orJO-wFP&nR0p2'V.c2.\9?vsl06)WTrãU"IFrsBjJ3[#NH]6mtHei3uWb<#ZC^#.d44-X=[T.CtC3f3tNLhsuKKgmC?n#Nrt?ãU"XjKv#8w00dF?mrDs&skhiYH?(\:n,^T8eU;mV3\#JYs_vKgrWcm#5/jOgk7/*8qãU"ntG0rv%6PP70o]c;Zj^2iW)5CAn?.M:hIc9DsWa3X_7O0MTW-Xg#iB:hpn53x-DãU"AF*AFp)QSEKI=7]2\gE3L1=B](+eiBT0W:pY'aY67tu>=]DX#Ng\EGYG^t;t:9mãU"^__+=1t+%VpI;3_JraY:NeqtDsPF=kvi%QYDl1V1rnVlxP:pfNP)UB0+eD#IDs?S#)>;Y5&Gs-1-[1=dQ)ULhPFeKfh,TXnQ[iY(8ãU"K=r39RvY9>[tg/u5UQJpgUAgo4K'eIr(8)5>Ybk1.6.pfY$;>;ujbCdY[bE.$u-ãU"D(_-zV-e.h\a^3Z^&T.WRb[C3eP\Fs=;GZ.VHJ*lKc29wFLPy^P_*xX3_+8)KvFãU"4-*]go:2LHrvu[05J.M>*bh-u^hgb(imq':/dT.KuZ^,ZH#A#sy59q#v.UxhXgoãU"Fw(2VE(NGHA;Iqd_6xDFG\G&l$_ZkE--W14VYN7(>x3GS,^i%Hj^n_EsWGCPZJxãU"F#mM/]F:cjtAKr)o7EuBqRb-#2Ot8FDVis$O-^>kH]\JDMYh*FXE'pMmB&3L:M)ãU"2;XD+H#'E^;'AUzdn&H6CzdV%.FUcUerP[QN>PsX^_a.7nvIIiWjjPj8ãU"bik^mfSuPtkmXPk$2i*qm*GoYqoHbkGq[]&27-DX2[#87+2]H#mRn;PWdaI(FARãU"MiAHJY.PYiD?wEIu.n7]&H>C](>3qijOX(ãU"2uEJ5bqan?VRC\AfGzSh_\X-NQHIKSkE7ySBZ&/CKNKU9%^YW(#(8L0DUB%n0NYãU"NN(kK*TTzU&n)[HZ*3ozwdl9i;D40,-g.TAO=O=9s1Xj)nsZXL%:\=FNqIKpZL;ãU"IFMOp_$[eCTj<-nGoAQnUP&P%'h;Pj4r$j(c(wSyMgSBFEgC]*y.VEREZeUr/wJãU"04cKsR-B?'up);X[Ib9ie7#dob3LWmVCV>+UOo?E_E;7=K2/Gd.8MN'NGaGW(\pãU"\mN,sR5%hsLX+P>KT7i[9Q=Z/)(b[/5H6N+1BR+LDJU-'P_JK=8#OyCQ6RmiighgfbC?/1iwtgkgV^+HxkNc^kãU"JF.l4Z[,o,1YduVaoj#S$P5$INLv2(f'#a0LV%W%8%7UB6$cMCnNL)g3y8$WaoLãU"B'Q_V[z)(R\Y+^4War$NRi,v#*u.9D32]Yl5O6GfGPfg<7f.V)1/\[oK%'dW.A^ãU"R(uX0ug.J#^/oGStSi-H&tR0B]bE=1R#eR;]WoJpMUEj0-\nj&M;MH'rDrK7G'sãU"_%,pe/D1nd^u*L8QL<9%z_1[%?te_.<_:G1r0tX0s=kW\j\+o];/l4fuBX#Sd&9Gcp.<>K5l$isD.pb2pu0\Q]XR]ãU"xt\6)-a3P1m)%]=*[K%TF.-]Gx4;EK0J,2xS;nSd#IU=XC-gSJnNP&yh8i'8D%wãU"F*K'NE%cQtY^p+t(Z%>iia%G-7wMG-Z2/Q(m5A;J/CcME1j>nDXlrL#EObJa(9xãU"2yAu1R9.TaHX8OjiE>D[cqK)Ja^#:7&A&>0SQ.EsCrP)#G'#/,'edMO1$Yf;xMKãU"?yj7b9.r.n%G2+2q])IVy],rEu8_nRjpZHUcr^#/VScX[NLI#(z2QZHX31ug/TZãU"HUp9Hh$hNEghuxp]b*PoVI.?;qpTfN;Z\Q2*ioO,'I/z&LãU"7*Khf)[uNA7dvlW_w7,nT_o+,:Le6uUZqcUf:#ãU"7>FPn9ig+,C'qj/R?IFr,3]i4BMc:?f\Uq93>%jMtRq1hRIsXjzYn+Z;Aa<\?)EI_An-3GHhVfk^q3SNa5F#(aTw$70>AW'ãU"VerJ68%%up&%'9%9%%%%-:%X1v+FPxB%(h5%(%3x%%%,%%%%%%%%%&%E%%%%%%%ãU"%%y%lfSf%xrup%&'9%%9%%%[-%z17vFRN'kYN6.%%$l%%%,%%%%%%%%%&%%E%%%ãU"&75%%%ylfS%gfxu%p&'9%%9%%#%-%K'0vF>=HrYp#1%%g%M%%-%%%%%%%%%&%%EãU"%%+%/F%%%ylf%VSgf%xup&%'9%9%%%%-=%'5uaFVyg-[91%(%^T%%%-%%%%%%%%ãU"%&%E%%%%L#S%%%.nj&S%gfxu%p&'9%%9%%#%-%R'-uF]q\.[5KTuIxãU")p__BAq>[U2Mni(sY:]=Ge:SfSs9SaK75<*pmqds%1?874p,L2r3IV1'qu2,,,WãU"F^k,]>G3_ko.$4ac5hg#E,Hc;_?6U.iRl$l*q=]:d,#JP3VY.Zvf?bãU"rr^*I65W9^&8FDb_04G/(w8>p9&HE)*m;-b5AF0;Pn&?9RR>R=#]6NartA%PoBeãU"mIff^\F&MT\gNT$q&Z(%ievbLQB#ZZPZZW>+LFR+.IsYELfG3;O3)Bq9Ay[>l?8ãU"ma$8(VwJ/pwS(./B=aNLVE:ja6B];?y&'m&[75MwXifVAQm$*ed%DJ9INegS&luãU"dL3)6lZ_&&EM1m?EAMf\O6^wSg92HB.X-A:Pn<0(Eb3)CE'uPOZpAfdpQvCqsb-ãU"k8ewc+SO4;ThiJ2n3'U7;fUz=S,N61C2Bxu%reKeoZq.5gD:\E#8&8M\g?fP+AMãU",E3pGOI3h:K1l%AzhSms*%To?G[BF]hX^gpXe;Ujfohqo]5(;_XSOehC#9r=XNOãU"jjaP*+:Mca4ElU02wk_m]wVQ)I6/H=b36Z>ZCc'_ux3M.20uZZc5xW2;i]Y&Z1ax.IWV-3op7pXQ/;LR8:nl,>1$wesa>/(mb2uPzBe86H:?qaxVpsãU"T4CYW[>O0GhePpcUWwAOf[Hd&P?.Dv>z(nuG:ffDo,YE39)c9sa?by;6M1oif2iãU"BHSWb*:r,#6FXRD\cR.5]Be7N/[6Db9V]\x=bX\LS:J*f8Q0Km2L+hf6LG[PaV#ãU"56nB6NJ5vF4[e-1q;xx#mRyK$*0/nrLq.9fJIPK/2UpU2vPVrVxCqo1q6dHl$o<ãU"T1vWV#GtmIE],Jzw\x:9B+yOb6azT(pM4aP/qb-HPq#CV(KbBxaTM+XJEFAO&]]ãU"Rd[cL0=]%vV65XT&do2uIMVlB>P+/Y]&u*gN&u%p()9%%%%-=%G'v.F%>k-f6*%ãU"(%N6%%%.%%%%ijr%tWSgRfx6&;<>[kO5w-xEx09T\1S5R#Kl8C<&3)83I#/&bfQãU"z8^]0(g/PrWKG>/8ãU"m)dj*qcg7G>+U1CN3V;7w+TU>*uu8Cy&$g5C#]X:Yii9-HQJ5w-_$TlaMeIQYE<]8TBe<2p8ujcFYOLY===M9^N06Zm]qFi-IYãU":alcjL]kd*Gu0+VN>;vk>ig=fT-m\j,>D&:enTjLãU"dW9NqQKmY9>(1A:b32.DU/^=$wYfH_*aH6UZLd&7?7$?<]ZW[wC)g]u4qbx\;CZãU"&'Cgvp$:_f$2?K#?+O%FymRWlSE7[y<&Z2Hq[3:B>CDjB##Tq/^Ydb?SD9f9>9vãU"Z$T9JA/n)g4Q_2zr.Jpur>*\(1ãU">HfFGkFJ'):m05p?8VeA+7s,XQg4M58/,GC=wE%/;uWd4)2f,pTB2vPy8OQDa\+ãU"w=a(trBr.6jIU4eyITOOTJ1P=o%rSK/i*/l4(d?'Nf7zDLc[w7I>8KoJyxup.&.ãU"kiv8y$7?-x%/52&CS&op*LUe(nB+,VhEoEV%cwDWDE$zo&B6=;v(:yAX\I#CscoãU"-,PcuF>SpY^wDbS%+r^.S,IV[rYX//N;wFQg])0gE[W^[6.OTcQxO#zEsygEQ?.ãU"G-+:Z]+E0\7-42s';w;RJQzdR,el].c,>/&gDF/#,jrWmDpF.R4r3/n4Bm^2ivuãU"0UZU-)g/8//AKijI\[*rh9H95-(=2,<:YmA1&_8RTKNb&G)R_:KhkTGc3>UMr7sãU"l?U9;b/KndA>rGIy_mhhV-NYqoR8x??vV#UiC]9Ammc4nNTS^mk,$H2p$H/)bH'ãU"8t#qWt=qKa,+q_Nq\5^xx.;XHfl:<0X)BUI,,$h3k*U_7o$2\7&^HIv.g#w+\/RãU"hY)$\rUDu,%Ek6Mgj^Chj$eNt6p:bKRbXSwM&L?WU00cI%\7K^JX^^0)yOdFcYvãU"f^:vE9kWT\sx7BWu#hBP3Gz-d$b5xKTep3JZwX&M>l03RW/:],sT/F0iJe8q#IPãU"iw.#;&m[q(f/-(iyaOcZLX?heZnHV9se^=P/Vtdt\d7ZyZ?t-qhL7GmYV>MãU"ZC$^0>nuYJ;_'PX[MLqJ:.S%ICbd&vqoB^Fa\e2:)(ua?&bGtJ[%[rFJE_CN'8KãU"gsF:_JpA4fJel[UlJMd%^H3R3*2&Nt0vM2nN+(6m.lSHP\+i\q3mb<ãU"eg4Ph\;Z2hB[GWxa/u[UjH2L%(k#MG=%+7WFMl1kq_bz<19cFAs&imP>8qzLbT3ãU"$)m45s;N/>?=f^Lo?+:15xizjY>cdDSh#3daQ3^O_G6\HO5e+dr?086gR(hR#1lãU")u-Xd,q]]3<#;MJ7V,d[#rMmEJLY^#g^LB=&S2AFba^Ch:FN'suI]?\^%LxA2XkãU"dm/pArq.SkgOyV.k6A8ieW/,S7S>+Xx'u%p()9%%%%-7%1'vFF^cN&_x&%(%M&%ãU"%%1%%%%xhw%jjsV%XStg.oz^$%mHv9GUx$hOlAzYA7IjP-vid]j2MvKgt7sw0LG1D(rNH2.Z=Apa]cD$0eTo[?Xg*r<#rãU":2'(IvRSfxu/iddf&OSvs2C3[+&PbwIt.T0OZ27%%r9%%%1%%%%xh%wjjs%VXSvRqgff)LGxãU"z5m#NnD==_8IR]/4A'KB$\x3zMR+=.e(h.wo(RL0YR*_FsT(9s5hAbqGXQN3RBnãU"gj?=v+Ga=EA3M:S'OR<;i7u;/x#6Ag&pDj,:#Ldk>U'ZNZbalvWbDo1TH,Zxhl;ãU"YiHvmlltlls$$uGl2puD8%JI4A8XRu.McRKkq:B09I[+6V$PgusfLvYaf)=])P1ãU"u3SM/OOb%)C-;R6:;9iWQ.&-,,e+4a*L<:VY?%U?+r4X:;ULG+;I'TQ&99CiKI])]Qk2YLi+#iVULFfX/+OqSm+',e'T6,TJ,ubeF.PRoOãU"8))keF.aW'88$q:9Q0W'$hOzi,LXujhZ\%S+&w.1&QXeW)(8B]73IBo'LeX]U'IãU":bn5PvxZ$xO65TsTp*F\$WYl77;qa6Q4>INU)l.IiWT$Z5o2MbIW4xFdLZ#p2NSãU"AOg5]\1GhAl>LwlFo.3J(ZJKm+X-BTc\atEn$jnb,*+k\B<4LuHfJB9j\YWG9'WãU"f72&4ckQ,zPLc0^qZ:]q:ZBgCn;ka-+P?em0NP)fxDnwh9>A3f/TrLM0Ktdz=ubãU"^f/r'$vBJd(A&2NYi]njQc*fMc>Sr6%kW8jS8hQW4mfQPQnfuPSf6JW;,G5TC+JãU"N>xnE-G4gvKrOg5PWG*2;VB-g1#?;0EgQW*Kj&:GOx-:3*4LibN4ANKi(acW3$jãU"acrY\X/fXTtp.,G*HlZv$XOL#^;0&AoH?m[adXwp;[cgr>Voj>V_)[=xkK0JrJSãU"8k0k7;Bv#:_1R76r_x8A2YTIHTIxL).__agTI&MTOtgPZa5p?,^3rs9L'l.Yx#iãU"sijy#U=]Ta/#6jcE)T[9^'$/n9HrI:a:NAC:;YrAVG&Ao$3p+p)>Ym1geX9HTC:ãU"io$g\,ph:w3(P(YlG$D,pIY1),p>:9HJ:/in$S)&7;jMmDT;:9HS:0s&\cL>DT5ãU"ELw'hChrr_R9?&RKUrr=*A+?R&^CF?Wtk-JG,P],L8Cly6dmgGYboW?$w\8+A;UãU"wvsRG)DM97.ce7EN7fnXNg8#^J5IzP4D/XvDni4\UG+IBu?$wz#4I81z;A,^mlJZd?-31p%cpB(S#N#epmjsZxpYA4+(qGV:b)^;ss47mRc\/1B?SPq=w8PX+fãU"/5/CLW#U(v?x6&:RUVzZ02)1)\Z.fz[N)9AlI(s*k,4H^JN0c+2nuRqWCbdwmCqãU"R5x$6*Nxh>z%VMx\v,UfYs]*-=a_)=;K4GQhkLV,^Nkr\J;_68GkR^jcHR'GU;AãU"o2oGC]eFFG;B5eB(;S63GAU^*;((C6p^?D$ev'G/^Pl_%S,OwGkkqd#_[W%k,dYãU"k&[;CZ6zkgzB%<\ejlGwi,rfk6=lRDkfE_;46W(#/fZ,8^;Ld6>#qEãU"_,0s^d_ep56x90R$kBHZeM6VLknB=[9RV'G+^$oG>otGLG]6LD?EiK,XklH^eA6ãU"T$^tW<,0GSn?[;Ri#kL;lR8?oF$GSAKoN6fj]tk,PN^;[K,-6&s]4?RV&kvX-,dãU"]V[7U(]#^?,_$ew:UR'7:.Za$jEs$JGlNQh.RH4-BqJ8y-c:z-]M+TGOTMEc66_ãU"d6$C2f5dT)D3VjY<;Tm\Gu-XI)Crrjj,itw4,?i>'ãU"+337yi.H(Tr]0>Y6h9AXshS8yIOnV=eLAqMzX9,HanMNsH\$OivpC8'I.*wpusKãU">[]+obgp/t9p:Salmzqa1\(Gb_.J,jmXvoXE&#D^C(Dpo8;7jz3&Q/Fmd+gR&5SãU"URtBiEgbW-6Nmoi]fikc;$5S\,rWLGO#bLxOoMVtYB$-E>nbod=of)#&8g?G=r(ãU"d?)d[+r-\E.g8>ZDg;6i&g0hYn:6f_h(,qx'XbXsH_J..DgETS;gJ\g&igPSIEUãU".sF2T&^fUp[^#Eh8Xi'X\\8)oq\af4_Fdg30h.>YtDi;BD649oOa')ZeV8FRKZ&BPlR#*q69T\Ep'npf,aPU4,&:bãU"t'z3ZObSoV:b'^rbya3,-P2;eh+oHOE7uyguX-96q#o$]Yd+ttz3gNlnhCV;^ESãU"dHMVgXTUzWD]NoH2Y:PP%C,9ZVmpK.6gVAJu\=c>\zFMãU",]B,X\&$XqN3zGIF_n'+sPY%YP^p9DuKb62DkpcUDB^TDv':ZnOs9F:CS?2qF-vãU"NbyQtAT3]iiv\\Nh:9zP1v#EvBjo]l-.C/l5o/(6TV9(v%:d_BQD>o(&tP/BhttãU"c43M()w^'#.Ba<.OpDYQW^oPLsr4?cjbS'H_mSbzf8t;%K_DWArZ-(&Z;QS\*&'ãU"\vam^eB2F6BEu^a^1y25:6-tJ\\%7#iwipDxtK%G7o\X2pk^\p^:dJ5(=?SANY4ãU"BCeweRf0*XM5)/7h&I?:InwJYNIOmLz]'o:_/n>*kDE;>qbELPoYo3'pK2sSxM=ãU"y8;BO0c<8+\op)x8--qj&jt;9:-GpKo4.2$jzP'(m#(]ãU"E(SD]/XD)#]$-rU#+nRj^O]D;ãU"OTYfRM5\3dokQoJsmO.XRS/)f4;91942q<6OpcQ9PPB;fhvM^^&SDmOO9L'dd%uãU"%p&'9%%9%%%%-%L](vF+oEVP)%)%%z%0%%.%%%%%%%%%&%%E%%%%%%%%%ijr%tVãU"Sg%fxup%&'9%%9%%%m-%G'#vF%>=kf6*.%%N6%%%.%%%%%%%%%&%%E%%%'P)%%%ãU"ijrt%WSgf%xup&%'9%9%%%%-7%1'vFF^cN&_x&%(%M&%%%1%%%%%%%%%&%E[%%%ãU"4%/%%x%hwjj%sVXS%tgou%p&'9%%9%%#%-%(B'vF*?hT>Z[2%%r%9%%1%%%%%%%ãU"%%%%%E%%%%]1%%%xhw%jjsV%XSvq%gup*%+%%%%%)%)+%[%%(%f>%%%%%ãEND SUBãCLOSE:IF S=68AND 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ãJoshua Dickerson FAST CLIP PUTTING FidoNet QUIK_BAS Echo 10-14-96 (16:25) QB, QBasic, PDS 55 1337 CLIPPUT.BAS DECLARE SUB ClipPut (x%, y%, BitMap%())ãDEFINT A-ZãSCREEN 13ãDEF SEG = &HA000ããFOR i = 0 TO 63ã OUT &H3C8, iã OUT &H3C9, iã OUT &H3C9, iã OUT &H3C9, iãNEXTããDIM a(4097)ãa(0) = 63ãa(1) = 63ãFOR y = 0 TO a(1)ã FOR x = 0 TO a(0)ã a(y * (a(0) + 1) + x + 2) = (x * y) MOD 64ã NEXTãNEXTããt! = TIMERãFOR x = -30 TO 320ã ClipPut x, 0, a()ãNEXTãPRINT (350) / (TIMER - t!)ãa$ = INPUT$(1)ããSUB ClipPut (x, y, BitMap())ã tX = x + BitMap(0)ã tY = y + BitMap(1)ã ã IF 0 < tX AND x <= 319 AND 0 < tY AND y <= 199 THENã IF x < 0 THEN MnClipX = -xã IF tX > 319 THEN MxClipX = 319 - x ELSE MxClipX = BitMap(0)ã IF y < 0 THEN MnClipY = -yã IF tY > 199 THEN MxClipY = 199 - y ELSE MxClipY = BitMap(1)ãã Index = (BitMap(0) + 1) * MnClipY + 2ã sM& = 320& * (y + MnClipY) + xã FOR bY = MnClipY TO MxClipYã FOR bX = MnClipX TO MxClipXã c = BitMap(Index + bX)ã IF c > 0 THEN POKE sM& + bX, cã NEXTã Index = Index + BitMap(0) + 1ã sM& = sM& + 320ã NEXTã END IFãEND SUBãã' This is meant to be compiled, but I will convert this to ASM complete withã'a basic loader which will put it in an array to be CALLed.. It is slightlyã'faster than the routine employed by Eric Carr.. (Which was pretty darn fast..ã':-) )ãBen Kaashoek STARFIELD SIMULATION robertk@worldaccess.nl 10-19-96 (10:23) QB, QBasic, PDS 177 8006 STARSIM.BAS 'Check out the difference in speed when you turn DEFINT A-Z off !!!!ãDEFINT A-Z 'Use integers as default for speed.ãã'The starfield code itself is not mine.ã'When I got it however, it needed some speeding up. First of all I added theã'DEFINT A-Z statement. (I use this in all my programs.)ã'I also found some unnessesarry statement's and removed those too.ã'Then. A friend came with a rather interresting suggestion.ã'"Hey, why not add something like a comet?", "Ok, I'll try it."ã'I was a little suprised when it actually worked.ã'The comet code probably needs some fine-tuning (it's only in there for a dayã'or so. But I'm sure somebody can find it usefull.ã'Oh, almost forgot. Many thanks to the original author. I hope you recognizeã'YOUR piece of the work.ã' BEN.ããTYPE StarDataã xPos AS INTEGER 'X position of a star.ã yPos AS INTEGER 'Y position of a star.ã Speed AS INTEGER 'Speed of star (Parallax effect).ã Colour AS INTEGER 'Colour of a star.ãEND TYPEããTYPE CometDataã xPos AS INTEGER 'X position of a comet.ã yPos AS INTEGER 'Y position of a comet.ã xSpeed AS INTEGER 'Speed of comet in X direction.ã ySpeed AS INTEGER 'Speed of comet in Y direction.ã Visible AS INTEGER 'Is comet visible.ã TailSize AS INTEGER 'Length of tail in pixels.ãEND TYPEããCONST False = 0: True = NOT False 'Boolean constants.ãã'--- Program settings. ------------------------------------------------------ãStars = 100 'Number of stars to plot ?ã 'Adjust if starfield gets "animated"ã '286/20 => 100 and P100 => 600.ãUseRetrace = True 'Use retrace in VGA modes ?ãCometSeed = 100 'Create comet every ... frames.ãCometHeadColor = 14 'Colour of the comet's head.ãCometTailColor = 4 'Colour of the comet's tail.ãScrMode = 12 'Which screenmode to use ?ã'--- End program settings. --------------------------------------------------ããComets = 1 'Number of comet's (KEEP ON 1 !!!)ãOPTION BASE 1 'Start array's with element 1.ãREDIM Comet(Comets) AS CometData 'Create array for comet'sãREDIM StarField(Stars) AS StarData 'Create array's for stars.ãREDIM OldStarField(Stars) AS StarDataããSELECT CASE ScrMode 'Determine screen boundaries.ã CASE 0ã PRINT "Sorry, graphic modes only! Maybe next time."ã END 'See ya later.ã CASE 7 'EGA 320x200ã HorLimit = 320ã VerLimit = 200ã UseRetrace = False 'Disable using retrace as delay.ã CASE 8 'EGA 640x200ã HorLimit = 640ã VerLimit = 200ã UseRetrace = False 'Disable using retrace as delay.ã CASE 9 'EGA 640x350ã HorLimit = 640ã VerLimit = 350ã UseRetrace = False 'Disable using retrace as delay.ã CASE 12 'VGA 640x480ã HorLimit = 640ã VerLimit = 480ã CASE 13 'VGA 320x200ã HorLimit = 320ã VerLimit = 200ã CASE ELSE 'Anything that's NOT tested.ã PRINT "Unsupported videomode."ã END 'See ya later.ãEND SELECTãã'Initialize program.ãSCREEN ScrMode: RANDOMIZE (TIMER)ãã'Fill array with random stars...ãFOR I = 1 TO Stars 'Fill 'er up.ã StarField(I).xPos = INT(RND * HorLimit + 1)ã StarField(I).yPos = INT(RND * VerLimit + 1)ã StarField(I).Speed = INT(RND * 8 + 1)ã OldStarField(I).xPos = INT(RND * HorLimit + 1)ã OldStarField(I).yPos = INT(RND * VerLimit + 1)ã OldStarField(I).Speed = INT(RND * 8 + 1)ã SELECT CASE OldStarField(I).Speedã CASE 0 TO 3: OldStarField(I).Colour = 8ã CASE 4 TO 7: OldStarField(I).Colour = 7ã CASE 8: OldStarField(I).Colour = 15ã END SELECTã SELECT CASE StarField(I).Speedã CASE 0 TO 3: StarField(I).Colour = 8ã CASE 4 TO 7: StarField(I).Colour = 7ã CASE 8: StarField(I).Colour = 15ã END SELECTãNEXT Iãã'Fill array with random comet...ãComet(1).xPos = INT(RND * HorLimit + 1) 'Pick a random X position.ãComet(1).yPos = 1 'Always start on the top line.ãComet(1).xSpeed = INT(RND * 4 + 2)ãComet(1).ySpeed = INT(RND * 3 + 2)ã'50% of the time the direction of the comet will be altered.ãIF INT(RND * 2) = 0 THEN Comet(1).xSpeed = -Comet(1).xSpeedãComet(1).TailSize = INT(RND * 20 + 5)ããDOã IF INT(RND * CometSeed) = 1 AND NOT CometStart THEN CometStart = -1ã FOR I = 1 TO Stars 'Replot all the stars.ã PSET (StarField(I).xPos, StarField(I).yPos), 0ã StarField(I).xPos = StarField(I).xPos - OldStarField(I).Speedã ã IF StarField(I).xPos <= 1 THEN 'Recalculate if star hits lower limit.ã StarField(I).xPos = HorLimitã StarField(I).yPos = INT(RND * VerLimit + 1) 'Give star new y position.ã END IFã ã 'Enable the lines below if you plan on having a left -> right effect.ã 'IF OldStarField(i).xPos >= HorLimit THEN 'Recalculate if star hits higher limit.ã ' OldStarField(i).xPos = 1ã ' OldStarField(i).yPos = INT(RND * VerLimit + 1) 'Give star new y position.ã 'END IFã ã 'Put the star on screen at it's modified position.ã PSET (StarField(I).xPos, StarField(I).yPos), StarField(I).Colourã NEXT Iãã 'Replot comet (This part is needed when the head is NOT off the screen.)ã IF CometStart AND NOT CleanTail THENã PSET (Comet(1).xPos, Comet(1).yPos), CometTailColorã Comet(1).xPos = INT(Comet(1).xPos + Comet(1).xSpeed)ã Comet(1).yPos = INT(Comet(1).yPos + Comet(1).ySpeed)ã IF Comet(1).xPos >= HorLimit OR Comet(1).xPos <= 1 OR Comet(1).yPos >= VerLimit THENã CleanTail = True 'Start removing the tail.ã ELSEã PSET (Comet(1).xPos, Comet(1).yPos), CometHeadColorã TailxPos = Comet(1).xPos - INT(Comet(1).TailSize * Comet(1).xSpeed)ã TailyPos = Comet(1).yPos - INT(Comet(1).TailSize * Comet(1).ySpeed)ã IF TailxPos >= 1 AND TailyPos >= 1 THEN PSET (TailxPos, TailyPos), 0ã END IFã END IFã 'Remove the rest of the tail if the head is moved off the screen.ã IF CleanTail THENã TailxPos = INT(Comet(1).xPos - Comet(1).TailSize * Comet(1).xSpeed)ã TailyPos = INT(Comet(1).yPos - Comet(1).TailSize * Comet(1).ySpeed)ã Comet(1).TailSize = Comet(1).TailSize - 1ã IF TailxPos >= 1 AND TailyPos >= 1 THEN PSET (TailxPos, TailyPos), 0ã ã 'Create a new comet.ã IF TailxPos >= HorLimit OR TailxPos <= 1 OR TailyPos >= VerLimit THENã Comet(1).xPos = INT(RND * HorLimit + 1) 'Pick a random X position.ã Comet(1).yPos = 1 'Always start on the top line.ã Comet(1).xSpeed = INT(RND * 4 + 2)ã Comet(1).ySpeed = INT(RND * 3 + 2)ã IF INT(RND * 2) = 0 THEN Comet(1).xSpeed = -Comet(1).xSpeedã Comet(1).TailSize = INT(RND * 20 + 5)ã CometStart = Falseã CleanTail = Falseã END IFã END IFãã 'Using the Vertical Retrace (VGA+ only) keeps the program from beingã 'affected by the number of stars to print. If you use 100 or 500 stars onã 'a P100 doesn't matter. The VR will keep everything going at the same speed.ã '(Within certain boundaries). This method works great when used on anythingã 'faster then my old 286 :-). I think it has something to do with theã 'frequency of the monitor. SVGA's have a much smoother parallax effect.ãã IF UseRetrace THEN WAIT &H3DA, 8 'Wait for VGA vertical retrace.ãã 'Put your nice scrolly or something over here.ã 'LOCATE 14, 30: PRINT "Starfield Simulation..."ãLOOP UNTIL INKEY$ <> ""ãKurt Kuzba DEMYSTIFY SCREEN SAVER FidoNet QUIK_BAS Echo 06-11-96 (00:00) QB, QBasic, PDS 55 2548 DEMYST.BAS 'I synched the program execution to the vertical retrace.ã'This keeps the display speed constant on nearly any system.ã'_|_|_| DEMYST.BASã'_|_|_| A program that demystifies the mystify screen saver.ã'_|_|_| No warrantee or guarantee is given or implied.ã'_|_|_| Released to PUBLIC DOMAIN by Kurt Kuzba. (6/11/96)ãDEFINT A-ZãSCREEN 12: RANDOMIZE (TIMER * 1000)ãTYPE IntersectPointsã x AS INTEGER: y AS INTEGER: dx AS INTEGER: dy AS INTEGER: END TYPEãDIM lnx(60) AS IntersectPointsãlnx(0).x = 0: lnx(0).y = 0: lnx(0).dx = 0: lnx(0).dy = 0ãFOR T = 1 TO 59: lnx(T) = lnx(0): NEXTãDOã WHILE ((INP(&H3DA)) AND 8) <> 0: WEND 'Here's where I keep the speedã WHILE ((INP(&H3DA)) AND 8) = 0: WEND 'constant for almost all systemsã FOR L = 0 TO 5ã IF lnx(L).x < 1 THEN lnx(L).dx = 2 + ((RND * 999) MOD 4)ã IF lnx(L).y < 1 THEN lnx(L).dy = 2 + ((RND * 999) MOD 4)ã IF lnx(L).x > 638 THEN lnx(L).dx = -(2 + ((RND * 999) MOD 4))ã IF lnx(L).y > 478 THEN lnx(L).dy = -(2 + ((RND * 999) MOD 4))ã lnx(L).x = lnx(L).x + lnx(L).dx: lnx(L).y = lnx(L).y + lnx(L).dyã NEXTã FOR L = 0 TO 5ã IF (L MOD 3) <> 0 THENã S = L + 54: F = ((L + 1) MOD 6) + 54ã LINE (lnx(S).x, lnx(S).y)-(lnx(F).x, lnx(F).y), 0ã END IFã S = L + 48: F = ((L + 1) MOD 6) + 48ã LINE (lnx(S).x, lnx(S).y)-(lnx(F).x, lnx(F).y), 1ã S = L + 42: F = ((L + 1) MOD 6) + 42ã LINE (lnx(S).x, lnx(S).y)-(lnx(F).x, lnx(F).y), 1ã S = L + 36: F = ((L + 1) MOD 6) + 36ã LINE (lnx(S).x, lnx(S).y)-(lnx(F).x, lnx(F).y), 1ã S = L + 30: F = ((L + 1) MOD 6) + 30ã LINE (lnx(S).x, lnx(S).y)-(lnx(F).x, lnx(F).y), 9ã S = L + 24: F = ((L + 1) MOD 6) + 24ã LINE (lnx(S).x, lnx(S).y)-(lnx(F).x, lnx(F).y), 9ã S = L + 18: F = ((L + 1) MOD 6) + 18ã LINE (lnx(S).x, lnx(S).y)-(lnx(F).x, lnx(F).y), 11ã S = L + 12: F = ((L + 1) MOD 6) + 12ã LINE (lnx(S).x, lnx(S).y)-(lnx(F).x, lnx(F).y), 11ã S = L + 6: F = ((L + 1) MOD 6) + 6ã LINE (lnx(S).x, lnx(S).y)-(lnx(F).x, lnx(F).y), 15ã E = (L + 1) MOD 6ã LINE (lnx(L).x, lnx(L).y)-(lnx(E).x, lnx(E).y), 15ã NEXTã FOR L = 0 TO 5ã lnx(L + 54) = lnx(L + 48): lnx(L + 48) = lnx(L + 42)ã lnx(L + 42) = lnx(L + 36): lnx(L + 36) = lnx(L + 30)ã lnx(L + 30) = lnx(L + 24): lnx(L + 24) = lnx(L + 18)ã lnx(L + 18) = lnx(L + 12): lnx(L + 12) = lnx(L + 6)ã lnx(L + 6) = lnx(L): NEXTãLOOP WHILE INKEY$ = "": SCREEN 0ã'_|_|_| end DEMYST.BASãKurt Kuzba SHOW ALL COMBINATIONS OF COLORSFidoNet QUIK_BAS Echo 10-01-96 (08:28) QB, QBasic, PDS 74 2161 ALLHUES.BAS '> > Actually, that's wrong. You only have 256k (262,000),ã'> > or 63 times 63 times 63. That's the max for your RGBã'> > values.ã'> Actually, it's 64 times 64 times 64, because there are 64ã'> degrees, not 63.ã'> Count all the numbers from 0 to 63 inclusively.ã'>..........ã' Correct.ã'Total number of colors possible is 64^3, or 262,144 colors.ã'For those who wish to count them...ã'( If anybody actually runs all the way through this programã' without hitting a key, they must be something other thanã' human :)ãã'_|_|_| ALLHUES.BASã'_|_|_| A display of all the possible color, 8 at a time.ã'_|_|_| Hit a key to quit if you like. Produces 262,144 colors.ã'_|_|_| No warrantee or guarantee is given or implied.ã'_|_|_| Released PUBLIC DOMAIN by Kurt Kuzba. (10/1/96)ãRANDOMIZE TIMERãSCREEN 12ãSCREEN 0ãCOLOR 7, 0ãCLSãFOR L% = 2 TO 6ã LOCATE L%, 1ã FOR C% = 8 TO 15ã COLOR C%ã PRINT STRING$(10, CHR$(219));ã NEXTãNEXTãCOLOR 7, 0ãColour% = 0ãDIM CRED(64) AS INTEGERãDIM CGRN(64) AS INTEGERãDIM CBLU(64) AS INTEGERãFOR t% = 0 TO 64ã CRED(t%) = t%ã CGRN(t%) = t%ã CBLU(t%) = t%ãNEXTã'_|_|_| Thanks to Bill White, ( of Miami :), for theã'_|_|_| neat shuffle routine.ãFOR t% = 1 TO 128ã SWAP CRED(t% AND 63), CRED(RND * 63)ã SWAP CGRN(t% AND 63), CGRN(RND * 63)ã SWAP CBLU(t% AND 63), CBLU(RND * 63)ãNEXTãFOR RED% = 0 TO 63ã FOR GRN% = 0 TO 63ã FOR BLU% = 0 TO 63ã WAIT &H3DA, 8: WAIT &H3DA, 8, 8ã hue% = 56 + (BLU% AND 7)ã OUT &H3C8, hue%ã OUT &H3C9, CRED(RED%)ã OUT &H3C9, CGRN(GRN%)ã OUT &H3C9, CBLU(BLU%)ã LOCATE 1, 1ã Colour& = Colour& + 1ã Colr$ = MID$(STR$(Colour&), 2)ã txt$ = ""ã p% = LEN(Colr$)ã FOR t% = 1 TO p% - 1ã txt$ = MID$(Colr$, p% - t%, 1) + txt$ã IF t% MOD 3 = 0 THENã IF t% < (p% - 1) THEN txt$ = "," + txt$ã END IFã NEXTã PRINT txt$ã IF INKEY$ <> "" THEN SCREEN 12: SCREEN 0: ENDã NEXTã NEXTãNEXTã'_|_|_| end ALLHUES.BASãDouglas H. Lusher ROTATING 3D CYLINDER & SPHERE comp.lang.basic.misc 10-22-96 (17:52) QB, QBasic, PDS 276 8552 3DCYLIND.BAS'this is code to draw and rotate a 3-d image of a cylinderã' and a sphere.ã'by Douglas H. Lusher, October 1996ãDECLARE SUB DrawPoly (X%(), Y%(), Vertices%, Culler%)ãDECLARE FUNCTION KeyPress% ()ãCONST Green = 2, White = 15ãCONST ESC = 27ãCONST HomeKey = -71, EndKey = -79ãCONST UpArrow = -72, DnArrow = -80ãCONST LArrow = -75, RArrow = -77ã'the home key brings the object toward the viewer, the end keyã' takes it away from the viewer.ã'the up arrow moves the object up, the down arrow moves it down,ã' the right arrow moves it right, the left arrow moves it left.ã'pressing "y","p", or "r" increases yaw, pitch and roll respectively.ã' pressing the uppercase of these letters decreases the values.ãRANDOMIZE TIMERãAPage% = 1: VPage% = 0ãSCREEN 9, , APage%, VPage%ãScrnWid% = 640: ScrnHgt% = 350ãCtrX% = ScrnWid% \ 2: CtrY% = ScrnHgt% \ 2ãAspectRatio! = 4 * (ScrnHgt% / ScrnWid%) / 3ãPi! = ATN(1) * 4!ããDO: R1! = RND: LOOP UNTIL R1! < .628: R1! = R1! * 10!ãDO: R2! = RND: LOOP UNTIL R2! < .628: R2! = R2! * 10!ãDO: R3! = RND: LOOP UNTIL R3! < .628: R3! = R3! * 10!ã'R1! = 0: R2! = 0: R3! = 0ãD! = 1200ãMX! = 0: MY! = 0: MZ! = -350ãInc! = .02ãRInc! = -Inc!ãPInc! = -Inc!ãYInc! = -Inc!ããGOSUB InitCylinderã'GOSUB InitSphereãã'MainLoopãDOã SELECT CASE KeyPress%ã CASE 0ã CASE UpArrow: MY! = MY! + 10!ã CASE DnArrow: MY! = MY! - 10!ã CASE LArrow: MX! = MX! + 10!ã CASE RArrow: MX! = MX! - 10!ã CASE HomeKey: MZ! = MZ! + 10!ã CASE EndKey: MZ! = MZ! - 10!ã CASE ASC("r")ã RInc! = RInc! + Inc!: IF RInc! > 1 THEN RInc! = 1ã CASE ASC("R")ã RInc! = RInc! - Inc!: IF RInc! < -1 THEN RInc! = -1ã CASE ASC("y")ã YInc! = YInc! + Inc!: IF YInc! > 1 THEN YInc! = 1ã CASE ASC("Y")ã YInc! = YInc! - Inc!: IF YInc! < -1 THEN YInc! = -1ã CASE ASC("p")ã PInc! = PInc! + Inc!: IF PInc! > 1 THEN PInc! = 1ã CASE ASC("P")ã PInc! = PInc! - Inc!: IF PInc! < -1 THEN PInc! = -1ã CASE ESC: EXIT DOã END SELECTã R1! = R1! + YInc!: IF R1! > 6.28 THEN R1! = 0ã R2! = R2! + RInc!: IF R2! > 6.28 THEN R2! = 0ã R3! = R3! + PInc!: IF R3! > 6.28 THEN R3! = 0ã SR1! = SIN(R1!): CR1! = COS(R1!)ã SR2! = SIN(R2!): CR2! = COS(R2!)ã SR3! = SIN(R3!): CR3! = COS(R3!)ã CLSã GOSUB DrawCylinderã 'GOSUB DrawSphereã SWAP APage%, VPage%ã WAIT &H3DA, 8ã SCREEN , , APage%, VPage%ãLOOPãSCREEN 0: WIDTH 80ãENDã ãPerspectiveCalculations:ãX! = -X!ãXA! = CR1! * X! - SR1! * Z!ãZA! = SR1! * X! + CR1! * Z!ãX! = CR2! * XA! + SR2! * Y!ãYA! = CR2! * Y! - SR2! * XA!ãZ! = CR3! * ZA! - SR3! * YA!ãY! = SR3! * ZA! + CR3! * YA!ãX! = X! + MX!ãY! = Y! + MY!ãZ! = Z! + MZ!ãSX% = CINT(D! * X! / Z!) + CtrX%ãSY% = CINT(D! * Y! / Z! * AspectRatio!) + CtrY%ãRETURNããCheckVisibility:ã'plane equation method of hidden surface removalãSP1! = -X1! * (Y2! * Z3! - Y3! * Z2!)ãSP2! = X2! * (Y3! * Z1! - Y1! * Z3!)ãSP3! = X3! * (Y1! * Z2! - Y2! * Z1!)ãVisibleSurface% = ((SP1! - SP2! - SP3!) <= 0)ãRETURNãã'========================================================================ãInitCylinder:ãL! = 40! 'half the length of the cylinderãR! = 20! 'the radius of the cylinderãDivs% = 18 'the number of steps around the cylinderãStepAmount! = (Pi! * 2!) / CSNG(Divs%)ãS1% = 1: S2% = Divs% \ 3: S3% = S2% + S2%ãREDIM X1!(1 TO Divs% + 1), X2!(1 TO Divs% + 1)ãREDIM Y1!(1 TO Divs% + 1), Y2!(1 TO Divs% + 1)ãREDIM Z1!(1 TO Divs% + 1), Z2!(1 TO Divs% + 1)ãREDIM SX1%(1 TO Divs% + 1), SY1%(1 TO Divs% + 1)ãREDIM SX2%(1 TO Divs% + 1), SY2%(1 TO Divs% + 1)ãREDIM X%(1 TO 4), Y%(1 TO 4)ãXtra% = Divs% + 1ãRETURNããDrawCylinder:ãR5! = 0ãFOR T% = 1 TO Divs%ã XX! = SIN(R5!) * R!: YY! = COS(R5!) * R!ã 'one end of cylinderã X! = XX!: Y! = YY!: Z! = L!ã GOSUB PerspectiveCalculationsã X1!(T%) = X!: Y1!(T%) = Y!: Z1!(T%) = Z!ã SX1%(T%) = SX%: SY1%(T%) = SY%ã 'other end of cylinderã X! = XX!: Y! = YY!: Z! = -L!ã GOSUB PerspectiveCalculationsã X2!(T%) = X!: Y2!(T%) = Y!: Z2!(T%) = Z!ã SX2%(T%) = SX%: SY2%(T%) = SY%ã R5! = R5! + StepAmount!ãNEXTãX1!(Xtra%) = X1!(1): X2!(Xtra%) = X2!(1)ãY1!(Xtra%) = Y1!(1): Y2!(Xtra%) = Y2!(1)ãZ1!(Xtra%) = Z1!(1): Z2!(Xtra%) = Z2!(1)ãSX1%(Xtra%) = SX1%(1): SX2%(Xtra%) = SX2%(1)ãSY1%(Xtra%) = SY1%(1): SY2%(Xtra%) = SY2%(1)ãFOR Q1% = 1 TO Divs% 'draw the side polygons of the cylinderã Q2% = Q1% + 1ã X1! = X1!(Q1%): Y1! = Y1!(Q1%): Z1! = Z1!(Q1%)ã X2! = X1!(Q2%): Y2! = Y1!(Q2%): Z2! = Z1!(Q2%)ã X3! = X2!(Q2%): Y3! = Y2!(Q2%): Z3! = Z2!(Q2%)ã GOSUB CheckVisibilityã IF VisibleSurface% THENã X%(1) = SX1%(Q1%): Y%(1) = SY1%(Q1%)ã X%(2) = SX1%(Q2%): Y%(2) = SY1%(Q2%)ã X%(3) = SX2%(Q2%): Y%(3) = SY2%(Q2%)ã X%(4) = SX2%(Q1%): Y%(4) = SY2%(Q1%)ã CALL DrawPoly(X%(), Y%(), 4, White)ã END IFãNEXTã'draw one endãX1! = X1!(S1%): Y1! = Y1!(S1%): Z1! = Z1!(S1%)ãX2! = X1!(S3%): Y2! = Y1!(S3%): Z2! = Z1!(S3%)ãX3! = X1!(S2%): Y3! = Y1!(S2%): Z3! = Z1!(S2%)ãGOSUB CheckVisibilityãIF VisibleSurface% THENã CALL DrawPoly(SX1%(), SY1%(), Divs%, White)ãEND IFã'draw the other endãX1! = X2!(S1%): Y1! = Y2!(S1%): Z1! = Z2!(S1%)ãX2! = X2!(S2%): Y2! = Y2!(S2%): Z2! = Z2!(S2%)ãX3! = X2!(S3%): Y3! = Y2!(S3%): Z3! = Z2!(S3%)ãGOSUB CheckVisibilityãIF VisibleSurface% THENã CALL DrawPoly(SX2%(), SY2%(), Divs%, White)ãEND IFãRETURNãã'========================================================================ãInitSphere:ãR! = 40! 'the radius of the sphereãDivs% = 18ãStepAmount! = (Pi! * 2!) / CSNG(Divs%)ãREDIM X1!(1 TO Divs% + 1), X2!(1 TO Divs% + 1)ãREDIM Y1!(1 TO Divs% + 1), Y2!(1 TO Divs% + 1)ãREDIM Z1!(1 TO Divs% + 1), Z2!(1 TO Divs% + 1)ãREDIM SX1%(1 TO Divs% + 1), SY1%(1 TO Divs% + 1)ãREDIM SX2%(1 TO Divs% + 1), SY2%(1 TO Divs% + 1)ãREDIM X%(1 TO 4), Y%(1 TO 4)ãXtra% = Divs% + 1ãRETURNããDrawSphere:ã'north polar areaã'R5! = 0: X! = SIN(R5!) * R!: Y! = COS(R5!) * R!: Z! = 0ãX! = 0!: Y! = R!: Z! = 0ãGOSUB PerspectiveCalculationsãX3! = X!: Y3! = Y!: Z3! = Z!ãX%(3) = SX%: Y%(3) = SY%ãR5! = StepAmount!: GOSUB CalcAroundãFOR Q1% = 1 TO Divs%ã Q2% = Q1% + 1ã X1! = X2!(Q2%): Y1! = Y2!(Q2%): Z1! = Z2!(Q2%)ã X2! = X2!(Q1%): Y2! = Y2!(Q1%): Z2! = Z2!(Q1%)ã GOSUB CheckVisibilityã IF VisibleSurface% THENã X%(1) = SX2%(Q2%): Y%(1) = SY2%(Q2%)ã X%(2) = SX2%(Q1%): Y%(2) = SY2%(Q1%)ã CALL DrawPoly(X%(), Y%(), 3, Green)ã END IFãNEXTãã'middle of sphereãR5! = StepAmount!ãFOR T2% = 1 TO (Divs% \ 2) - 2ã FOR Q1% = 1 TO Divs% + 1ã X1!(Q1%) = X2!(Q1%): Y1!(Q1%) = Y2!(Q1%): Z1!(Q1%) = Z2!(Q1%)ã SX1%(Q1%) = SX2%(Q1%): SY1%(Q1%) = SY2%(Q1%)ã NEXTã R5! = R5! + StepAmount!: GOSUB CalcAroundã FOR Q1% = 1 TO Divs%ã Q2% = Q1% + 1ã X1! = X1!(Q1%): Y1! = Y1!(Q1%): Z1! = Z1!(Q1%)ã X2! = X1!(Q2%): Y2! = Y1!(Q2%): Z2! = Z1!(Q2%)ã X3! = X2!(Q2%): Y3! = Y2!(Q2%): Z3! = Z2!(Q2%)ã GOSUB CheckVisibilityã IF VisibleSurface% THENã X%(1) = SX1%(Q1%): Y%(1) = SY1%(Q1%)ã X%(2) = SX1%(Q2%): Y%(2) = SY1%(Q2%)ã X%(3) = SX2%(Q2%): Y%(3) = SY2%(Q2%)ã X%(4) = SX2%(Q1%): Y%(4) = SY2%(Q1%)ã CALL DrawPoly(X%(), Y%(), 4, Green)ã END IFã NEXTãNEXTãã'south polar areaãR5! = Pi!: X! = SIN(R5!) * R!: Y! = COS(R5!) * R!: Z! = 0ãGOSUB PerspectiveCalculationsãX3! = X!: Y3! = Y!: Z3! = Z!ãX%(3) = SX%: Y%(3) = SY%ãFOR Q1% = 1 TO Divs%ã Q2% = Q1% + 1ã X1! = X2!(Q1%): Y1! = Y2!(Q1%): Z1! = Z2!(Q1%)ã X2! = X2!(Q2%): Y2! = Y2!(Q2%): Z2! = Z2!(Q2%)ã GOSUB CheckVisibilityã IF VisibleSurface% THENã X%(1) = SX2%(Q2%): Y%(1) = SY2%(Q2%)ã X%(2) = SX2%(Q1%): Y%(2) = SY2%(Q1%)ã CALL DrawPoly(X%(), Y%(), 3, Green)ã END IFãNEXTãRETURNããCalcAround:ãR4! = 0!: XX! = SIN(R5!) * R!: YY! = COS(R5!) * R!ãFOR T% = 1 TO Divs%ã X! = COS(R4!) * XX!: Y! = YY!: Z! = SIN(R4!) * XX!ã GOSUB PerspectiveCalculationsã X2!(T%) = X!: Y2!(T%) = Y!: Z2!(T%) = Z!ã SX2%(T%) = SX%: SY2%(T%) = SY%ã R4! = R4! + StepAmount!ãNEXTãX1!(Xtra%) = X1!(1): X2!(Xtra%) = X2!(1)ãY1!(Xtra%) = Y1!(1): Y2!(Xtra%) = Y2!(1)ãZ1!(Xtra%) = Z1!(1): Z2!(Xtra%) = Z2!(1)ãSX1%(Xtra%) = SX1%(1): SX2%(Xtra%) = SX2%(1)ãSY1%(Xtra%) = SY1%(1): SY2%(Xtra%) = SY2%(1)ãRETURNããSUB DrawPoly (X%(), Y%(), Vertices%, Culler%)ãPSET (X%(Vertices%), Y%(Vertices%)), Culler%ãFOR Q% = 1 TO Vertices%ã LINE -(X%(Q%), Y%(Q%)), Culler%ãNEXTãEND SUBããFUNCTION KeyPress%ãKP$ = INKEY$ãIF LEN(KP$) THEN ã KP% = ASC(KP$): IF KP% = 0 THEN KP% = -ASC(MID$(KP$, 2))ãEND IFãKeyPress% = KP%ãEND FUNCTIONãAndrew L. Ayers COMPLETE BLAST! (MODE 13H) SUBSandrewa@indirect.com 10-04-96 (00:00) QB, QBasic, PDS 389 12999 BLASTLIB.BAS'****************************************************************************ã'ã' Description : Blast! Library - VGA Mode 13 Off-Screen Buffer Manipulationã' routinesã' Written by : Copyright (c) 1996 by Andrew L. Ayersã' Date : 10/04/96ã' Comments : Users of QBASIC will find that this program just barelyã' fits into their environment. This is because QBASIC onlyã' allows 160K of memory for code AND data. Since I createã' two off-screen buffers of 64K each, this leaves only 32Kã' for code and any other buffers. In most cases, you shouldã' need only one off-screen buffer, giving you 96K for bothã' code and any other buffers. There shouldn't be any problemsã' with QuickBASIC, though, since it allows you to use 64K forã' each procedure, and the rest of memory for your data. Noticeã' the use of REDIM for the declaration of the buffers. This isã' so I could resize the buffers to zero at the end of theã' program. When I was coding this in QBASIC, I realized I need-ã' ed to do this when HELP would no longer load due to lowã' memory!ã'ã' If you want to view the source for the assembler routines,ã' they are contained within the ".ASM" files included in thisã' archive.ã'ã' I went to a lot of time and trouble to create this libraryã' of routines. They are intended to fill a void that hasã' existed for a while. I am distributing this library as free-ã' ware, though I am retaining the copyright. You may use thisã' library in any way you see fit. I only ask that you put myã' name somewhere in your opening credits. Something likeã' "Sprite Routines developed by Andrew L. Ayers" or "Developedã' using the Blast! Library by Andrew L. Ayers". Other thanã' that, it's free. Thank you, and have phun!ã'ã'****************************************************************************ã'ã' Declare our proceduresã'ãDECLARE SUB DrawLine (dsegment%, doffset%, x1%, y1%, x2%, y2%, colr%)ãDECLARE SUB BlastGet (dsegment%, doffset%, ssegment%, soffset%, x1%, y1%, x2%, y2%)ãDECLARE SUB BlastPut (dsegment%, doffset%, ssegment%, soffset%, xpos%, ypos%, icol%)ãDECLARE SUB BlastPset (segment%, offset%, xpos%, ypos%, col%)ãDECLARE SUB BlastCopy (fsegment%, foffset%, tsegment%, toffset%)ã'ã' Reserve assembler routine code memoryã'ãDIM SHARED code1%(14), code2%(21), code3%(76), code4%(76)ã'ã' BlastCopy! (BLSTCOPY.ASM)ã'ãcode$ = "1E5589E58B460E8ED88B760C8B460A8EC08B7E08B9007DF3A55D1FCA0800"ã'ãDEF SEG = VARSEG(code1%(0))ã'ãFOR i% = 0 TO 29ã d% = VAL("&h" + MID$(code$, i% * 2 + 1, 2))ã POKE VARPTR(code1%(0)) + i%, d%ãNEXT i%ã'ãDEF SEGã'ã' BlastPset! (BLSTPSET.ASM)ã'ãcode$ = "1E5589E58B46108ED88B760AB106D3E689F3B102D3E601DE8B5E0C01DE8B5E0E01DE8A460888045D1FCA0A00"ã'ãDEF SEG = VARSEG(code2%(0))ã'ãFOR i% = 0 TO 43ã d% = VAL("&h" + MID$(code$, i% * 2 + 1, 2))ã POKE VARPTR(code2%(0)) + i%, d%ãNEXT i%ã'ãDEF SEGã'ã' BlastPut! (BLASTPUT.ASM)ã'ãcode$ = "1E5589E58B460C508B460A508B46108ED88B760E8B04B103D3E8508B5EFE"ãcode$ = code$ + "01C3895EFE8B4402508B5EFC01C3895EFC83C60489760E89E58B46188ED8"ãcode$ = code$ + "8B76168A04468976163A461074208B5E1C8EDB8B7612B106D3E689F3B102"ãcode$ = code$ + "D3E601DE8B5E1401DE8B5E1A01DE88048B4614408946148B460639461475"ãcode$ = code$ + "BE8B46142B46028946148B4612408946128B460439461275A6585858585D"ãcode$ = code$ + "1FCA0E00"ã'ãDEF SEG = VARSEG(code3%(0))ã'ãFOR i% = 0 TO 153ã d% = VAL("&h" + MID$(code$, i% * 2 + 1, 2))ã POKE VARPTR(code3%(0)) + i%, d%ãNEXT i%ã'ãDEF SEGã'ã' BlastGet! (BLASTGET.ASM)ã'ãcode$ = "1E5589E58B460A508B4608508B460A2B460E40508B46082B460C40508B46128ED8"ãcode$ = code$ + "8B76108B46FABB0800F7E3890446468B46F88904464689761089E58B5E"ãcode$ = code$ + "1E8EDB8B7614B106D3E689F3B102D3E601DE8B5E1601DE8B5E1C01DE8A"ãcode$ = code$ + "048B5E1A8EDB8B76188804468976188B4616408946168B460639461676"ãcode$ = code$ + "C38B46162B46028946168B4614408946148B460439461476AB58585858"ãcode$ = code$ + "5D1FCA1000"ã'ãDEF SEG = VARSEG(code4%(0))ã'ãFOR i% = 0 TO 153ã d% = VAL("&h" + MID$(code$, i% * 2 + 1, 2))ã POKE VARPTR(code4%(0)) + i%, d%ãNEXT i%ã'ãDEF SEGã'ã'****************************************************************************ã'ã' Reserve memory for two off-screen buffers, sprites and demo variablesã' Use REDIM so that we may de-allocate the memory at the end of the programã'ãREDIM buffer1%(31999) ' This is an off-screen bufferãREDIM buffer2%(31999) ' This is another...ãREDIM sbuffer%(2000) ' This is our sprite bufferã'ãDIM bx%(40), by%(40), bt%(40), dx%(40), dy%(40)' Variables for demoã'ã'****************************************************************************ã'ã' Initialize Ballsã'ãFOR t = 0 TO 39ã bx%(t) = INT(RND * 200) + 50: by%(t) = INT(RND * 100) + 50ã bt%(t) = INT(RND * 2)ã DOã dx%(t) = INT(RND * 11) - 5: dy%(t) = INT(RND * 11) - 5ã LOOP UNTIL dx%(t) <> 0 AND dy%(t) <> 0ãNEXT tã'ãSCREEN 13ã'ã' Now, show some instructionsã'ãCOLOR 2ãLOCATE 2, 2: PRINT "Blast! Library Demo by Andrew L. Ayers"ã'ãCOLOR 15ãLOCATE 4, 1: PRINT "The following demo illustrates a simple"ãLOCATE 5, 1: PRINT "use of the Blast! Library. Many 32 x 32"ãLOCATE 6, 1: PRINT "and 16 x 16 sprites (up to 40) bounce on"ãLOCATE 7, 1: PRINT "the screen in random directions. Use the"ãLOCATE 8, 1: PRINT "+/- keys to add or subtract sprites from"ãLOCATE 9, 1: PRINT "the screen. Notice how the sprites can"ãLOCATE 10, 1: PRINT "overlap each other, without showing a"ãLOCATE 11, 1: PRINT "black border. This masking effect is"ãLOCATE 12, 1: PRINT "done by simply specifying black (0) as"ãLOCATE 13, 1: PRINT "the invisible color. While in this demo"ãLOCATE 14, 1: PRINT "I am using 32 x 32 and 16 x 16 sprites,"ãLOCATE 15, 1: PRINT "any size sprite could be used. It all"ãLOCATE 16, 1: PRINT "depends on the level of detail your"ãLOCATE 17, 1: PRINT "sprites need as well as the number of"ãLOCATE 18, 1: PRINT "sprites you place on screen at one time."ã'ã' Draw a simple graphic for the backgroundã'ãCOLOR 4ãLOCATE 21, 3: PRINT "Please wait - Preparing Images.";ã'ãx1% = 159: y1% = 99: colr% = 0ã'ãFOR t% = 0 TO 319 STEP 4ã CALL DrawLine(VARSEG(buffer2%(0)), VARPTR(buffer2%(0)), x1%, y1%, t%, 0, colr%)ã colr% = colr% + 1: IF colr% > 255 THEN colr% = 0ãNEXTã'ãPRINT ".";ã'ãFOR t% = 0 TO 199 STEP 4ã CALL DrawLine(VARSEG(buffer2%(0)), VARPTR(buffer2%(0)), x1%, y1%, 319, t%, colr%)ã colr% = colr% + 1: IF colr% > 255 THEN colr% = 0ãNEXTã'ãPRINT ".";ã'ãFOR t% = 319 TO 0 STEP -4ã CALL DrawLine(VARSEG(buffer2%(0)), VARPTR(buffer2%(0)), x1%, y1%, t%, 199, colr%)ã colr% = colr% + 1: IF colr% > 255 THEN colr% = 0ãNEXTã'ãPRINT ".";ã'ãFOR t% = 199 TO 0 STEP -4ã CALL DrawLine(VARSEG(buffer2%(0)), VARPTR(buffer2%(0)), x1%, y1%, 0, t%, colr%)ã colr% = colr% + 1: IF colr% > 255 THEN colr% = 0ãNEXTã'ãCOLOR 2ãLOCATE 21, 1: PRINT "Hit any key to begin demo - [ESC] exits"ãCOLOR 15ã'ãDO: LOOP UNTIL INKEY$ <> ""ã'ãCLSã'ã' Create a 32 x 32 sprite for us to useã'ão = 0ãFOR t% = 14 TO 0 STEP -1ã c% = 31 - t%ã CIRCLE (15 + o, 15 + o), t%, c%ã PAINT (15 + o, 15 + o), c%ã o = o - .4ãNEXT t%ã'ã' Get our spritesã'ãCALL BlastGet(&HA000, 0, VARSEG(sbuffer%(0)), VARPTR(sbuffer%(0)), 0, 0, 31, 31)ã'ãLINE (11, 11)-(18, 18), 0, BF ' Clear out centerã'ãCALL BlastGet(&HA000, 0, VARSEG(sbuffer%(0)), VARPTR(sbuffer%(514)), 7, 7, 22, 22)ã'ã' Initialize Demo Variablesã'ãnumballs% = 10: done% = 0ã'ãDOã 'ã ' Copy our background graphic to our off-screen buffer (which clears offã ' old images of our sprites...) If you are using only a single buffer, justã ' "get" the background behind each sprite before moving, move, then replaceã ' the background, or just erase with the "ERASE arrayname" (see HELP)ã ' command. I could done the "get, move, replace" on this demo, but I wantedã ' to show how to use a background using the library...ã 'ã CALL BlastCopy(VARSEG(buffer2%(0)), VARPTR(buffer2%(0)), VARSEG(buffer1%(0)), VARPTR(buffer1%(0)))ã 'ã ' Put our spritesã 'ã FOR t% = 0 TO numballs% - 1ã bx%(t%) = bx%(t%) + dx%(t%): by%(t%) = by%(t%) + dy%(t%)ã IF bx%(t%) > 287 THEN dx%(t%) = -dx%(t%): bx%(t%) = 287ã IF bx%(t%) < 0 THEN dx%(t%) = -dx%(t%): bx%(t%) = 0ã IF by%(t%) > 167 THEN dy%(t%) = -dy%(t%): by%(t%) = 167ã IF by%(t%) < 0 THEN dy%(t%) = -dy%(t%): by%(t%) = 0ã CALL BlastPut(VARSEG(buffer1%(0)), VARPTR(buffer1%(0)), VARSEG(sbuffer%(0)), VARPTR(sbuffer%(bt%(t%) * 514)), bx%(t%), by%(t%), 0)ã NEXTã 'ã ' Copy the off-screen buffer to the visible screenã 'ã CALL BlastCopy(VARSEG(buffer1%(0)), VARPTR(buffer1%(0)), &HA000, 0)ã 'ã ' Get user input for number of balls, or exitã 'ã a$ = INKEY$ã SELECT CASE a$ã CASE "-", "_"ã numballs% = numballs% - 1ã IF numballs% < 1 THEN numballs% = 1ã CASE "+", "="ã numballs% = numballs% + 1ã IF numballs% > 40 THEN numballs% = 40ã CASE CHR$(27)ã done% = 1ã END SELECTã 'ãLOOP UNTIL done%ã'ãCLSã'ã' Deallocate our large buffers, using REDIM to size to zeroã'ãREDIM buffer1%(0) ' This is an off-screen bufferãREDIM buffer2%(0) ' This is another...ãREDIM sbuffer%(0) ' This is our sprite bufferããSUB BlastCopy (fsegment%, foffset%, tsegment%, toffset%)ã 'ã ' No error checking is done for this routine, so be careful whenã ' you set the from and to segements and offsets - you could crashã ' your machine...ã 'ã WAIT &H3DA, 8 ' Wait for vertical retraceã 'ã ' Copy!ã 'ã DEF SEG = VARSEG(code1%(0))ã 'ã CALL ABSOLUTE(BYVAL fsegment%, BYVAL foffset%, BYVAL tsegment%, BYVAL toffset%, VARPTR(code1%(0)))ã 'ã DEF SEGã 'ãEND SUBããSUB BlastGet (dsegment%, doffset%, ssegment%, soffset%, x1%, y1%, x2%, y2%)ã 'ã ' No error checking is done for X and Y coordinates, nor for any segmentsã ' and offsets into memory. Therefore, use care when setting them so youã ' don't crash your machine.ã 'ã DEF SEG = VARSEG(code4%(0))ã 'ã CALL ABSOLUTE(BYVAL dsegment%, BYVAL doffset%, BYVAL ssegment%, BYVAL soffset%, BYVAL x1%, BYVAL y1%, BYVAL x2%, BYVAL y2%, VARPTR(code4%(0)))ã 'ã DEF SEGã 'ãEND SUBããSUB BlastPset (segment%, offset%, xpos%, ypos%, col%)ã 'ã ' No error checking is done for X and Y coordinates, nor for any segmentsã ' and offsets into memory. Therefore, use care when setting them so youã ' don't crash your machine.ã 'ã ' Plot the pixel!ã 'ã DEF SEG = VARSEG(code2%(0))ã 'ã CALL ABSOLUTE(BYVAL segment%, BYVAL offset%, BYVAL xpos%, BYVAL ypos%, BYVAL col%, VARPTR(code2%(0)))ã 'ã DEF SEGã 'ãEND SUBããSUB BlastPut (dsegment%, doffset%, ssegment%, soffset%, xpos%, ypos%, icol%)ã 'ã ' No error checking is done for X and Y coordinates, nor for any segmentsã ' and offsets into memory. Therefore, use care when setting them so youã ' don't crash your machine.ã 'ã DEF SEG = VARSEG(code3%(0))ã 'ã CALL ABSOLUTE(BYVAL dsegment%, BYVAL doffset%, BYVAL ssegment%, BYVAL soffset%, BYVAL xpos%, BYVAL ypos%, BYVAL icol%, VARPTR(code3%(0)))ã 'ã DEF SEGã 'ãEND SUBããSUB DrawLine (dsegment%, doffset%, x1%, y1%, x2%, y2%, colr%)ã 'ã ' This is a simple routine which uses the traditionalã ' Bresenham Algorithm to draw a line between two points.ã ' It is pretty fast, but not fast enough for REAL workã ' (like 3D and such) but you can use it if you want. Iã ' plan on making an assembler version which should beã ' MUCH faster.ã 'ã ' No error checking is performed for endpoints in this routine,ã ' so be careful not to let the ends fall out of bounds, sinceã ' doing so may cause your machine to crash...ã 'ã DEF SEG = dsegment%ã 'ã error.term% = 0ã 'ã xdiff% = x2% - x1%: ydiff% = y2% - y1%ã xstep% = 1: ystep% = 320ã 'ã IF x1% >= x2% THEN xstep% = -1: xdiff% = -xdiff%ã IF y1% >= y2% THEN ystep% = -320: ydiff% = -ydiff%ã 'ã xend% = ABS(xdiff%) - 1: yend% = ABS(ydiff%) - 1ã 'ã tt& = doffset% + (y1% * 320) + x1%ã 'ã IF xdiff% > ydiff% THENã 'ã FOR xx% = 0 TO xend%ã POKE tt&, colr%ã tt& = tt& + xstep%ã error.term% = error.term% + ydiff%ã IF error.term% >= xdiff% THENã tt& = tt& + ystep%ã error.term% = error.term% - xdiff%ã END IFã NEXTã 'ã ELSEã 'ã FOR yy% = 0 TO yend%ã POKE tt&, colr%ã tt& = tt& + ystep%ã error.term% = error.term% + xdiff%ã IF error.term% >= ydiff% THENã tt& = tt& + xstep%ã error.term% = error.term% - ydiff%ã END IFã NEXTã 'ã END IFã 'ã DEF SEGã 'ãEND SUBãAndrew L. Ayers BLAST! MODE 13H GET ROUTINE andrewa@indirect.com 10-04-96 (00:00) QB, QBasic, PDS 213 7929 BLASTGET.BASDIM code1%(76), code2%(76), sbuffer%(1000)ã'ã' BlastGet Routine (ASM Source tacked on at end)ã'ãcode$ = "1E5589E58B460A508B4608508B460A2B460E40508B46082B460C40508B46128ED8"ãcode$ = code$ + "8B76108B46FABB0800F7E3890446468B46F88904464689761089E58B5E"ãcode$ = code$ + "1E8EDB8B7614B106D3E689F3B102D3E601DE8B5E1601DE8B5E1C01DE8A"ãcode$ = code$ + "048B5E1A8EDB8B76188804468976188B4616408946168B460639461676"ãcode$ = code$ + "C38B46162B46028946168B4614408946148B460439461476AB58585858"ãcode$ = code$ + "5D1FCA1000"ã'ãDEF SEG = VARSEG(code1%(0))ã'ãFOR i% = 0 TO 153ã d% = VAL("&h" + MID$(code$, i% * 2 + 1, 2))ã POKE VARPTR(code1%(0)) + i%, d%ãNEXT i%ã'ãDEF SEGã'ã' BlastPut Routineã'ãcode$ = "1E5589E58B460C508B460A508B46108ED88B760E8B04B103D3E8508B5EFE"ãcode$ = code$ + "01C3895EFE8B4402508B5EFC01C3895EFC83C60489760E89E58B46188ED8"ãcode$ = code$ + "8B76168A04468976163A461074208B5E1C8EDB8B7612B106D3E689F3B102"ãcode$ = code$ + "D3E601DE8B5E1401DE8B5E1A01DE88048B4614408946148B460639461475"ãcode$ = code$ + "BE8B46142B46028946148B4612408946128B460439461275A6585858585D"ãcode$ = code$ + "1FCA0E00"ã'ãDEF SEG = VARSEG(code2%(0))ã'ãFOR i% = 0 TO 153ã d% = VAL("&h" + MID$(code$, i% * 2 + 1, 2))ã POKE VARPTR(code2%(0)) + i%, d%ãNEXT i%ã'ãDEF SEGã'ãSCREEN 13ã'ãLINE (5, 5)-(10, 10), 15, BFã'ã' Get our spriteã'ãdbufferseg% = &HA000: dbufferptr% = 0ã'ãDEF SEG = VARSEG(code1%(0))ã'ãx1% = 0: y1% = 0: x2% = 15: y2% = 15ãCALL ABSOLUTE(BYVAL dbufferseg%, BYVAL dbufferptr%, BYVAL VARSEG(sbuffer%(0)), BYVAL VARPTR(sbuffer%(0)), BYVAL x1%, BYVAL y1%, BYVAL x2%, BYVAL y2%, VARPTR(code1%(0)))ã'ãDEF SEGã'ãCLSã'ãdbufferseg% = &HA000: dbufferptr% = 0: icol% = 0ã'ãDEF SEG = VARSEG(code2%(0))ã'ãDOã xpos% = INT(RND * 300)ã ypos% = INT(RND * 170)ã 'ã CALL ABSOLUTE(BYVAL dbufferseg%, BYVAL dbufferptr%, BYVAL VARSEG(sbuffer%(0)), BYVAL VARPTR(sbuffer%(0)), BYVAL xpos%, BYVAL ypos%, BYVAL icol%, VARPTR(code2%(0)))ãLOOP UNTIL INKEY$ <> ""ã'ãDEF SEGãã'******* END BLASTGET.BAS *********ãã-----------------------------------------------------------------------------ãã Name: BlastGet! - Offscreen Buffer to Sprite Buffer Memory Copyã Date: October 11, 1996ã Author: Andrew L. Ayersãã-----------------------------------------------------------------------------ãBASIC Calling Procedure:ã-----------------------------------------------------------------------------ããDIM code%(76) ' 77 Words Allocatedã'ã' Load hex codes for routine into memory hereã'ãDEF SEG = VARSEG(code%(0)) ' Get code segementã'ã' Call our routineã'ãCALL ABSOLUTE(BYVAL VARSEG(dbuffer%(0)), BYVAL VARPTR(dbuffer%(0)), --->ã BYVAL VARSEG(sbuffer%(0)), BYVAL VARPTR(sbuffer%(0)), --->ã BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, VARPTR(code%(0)))ããDEF SEG ' Reset to default segmentãã-----------------------------------------------------------------------------ãStack Descriptor:ã-----------------------------------------------------------------------------ããThe following stack layout is only valid after all values are place onto theãstack for operation. In this routine, the layout is not valid until afterãbyte 0x003B is executed (label Get:), due to prior stack manipulation byãboth BASIC and the routine.ããSP Offset Descriptionsã--------- ------------------------------------- ã==[Pushed on by call to routine]=============ã 1E Display Buffer Segmentã 1C Display Buffer Offsetã 1A Sprite Buffer Segmentã 18 Sprite Buffer Offsetã 16 X1 positionã 14 Y1 positionã 12 X2 positionã 10 Y2 position ã==[Pushed on by BASIC]=======================ã 0E BASIC Return Segmentã 0C BASIC Return Offsetã==[Pushed on by routine]=====================ã 0A DS Registerã 08 BP Registerã 06 X2 Positionã 04 Y2 Positionã 02 Widthã 00 Heightãã------- ------- ------ --------------- -------------------------------------ãHexCode Label OpCode Operands Remarksã------- ------- ------ --------------- -------------------------------------ã1E Start: PUSH DS ;Save the Destination Segmentã55 PUSH BP ;Save the Base Pointerãã89E5 Init: MOV BP,SP ;Get the stack pointerã8B460A MOV AX,[BP+0A] ;Get the X2 position and put it onã50 PUSH AX ;the stack.ãã8B4608 MOV AX,[BP+08] ;Get the Y2 position and put it onã50 PUSH AX ;the stack.ãã8B460A MOV AX,[BP+0A] ;Get the X2 position and subtractã2B460E SUB AX,[BP+0E] ;the X1 position, increment it byã40 INC AX ;1 and place it on the stack (thisã50 PUSH AX ;is now the width).ãã8B4608 MOV AX,[BP+08] ;Get the Y2 position and subtractã2B460C SUB AX,[BP+0C] ;the Y1 position, increment it byã40 INC AX ;1 and place it on the stack (thisã50 PUSH AX ;is now the height).ãã8B4612 MOV AX,[BP+12] ;Get the sprite buffer segement andã8ED8 MOV DS,AX ;set the DS to it. Set the SI to theã8B7610 MOV SI,[BP+10] ;sprite buffer offset.ã8B46FA MOV AX,[BP-06] ;Get the width, and multiply by 8ãBB0800 MOV BX,0008 ;(for compatability with BASIC's GETãF7E3 MUL BX ;routine) and put it into the spriteã8904 MOV [SI],AX ;buffer. Add 2 the the SI toã46 INC SI ;position it at the next data field.ã46 INC SI ã8B46F8 MOV AX,[BP-08] ;Get the height, and place it atã8904 MOV [SI],AX ;this position, then add 2 to theã46 INC SI ;SI to set it to the beginning ofã46 INC SI ;actual sprite pixel data, andã897610 MOV [BP+10],SI ;place it on the stack. Then resetã89E5 MOV BP,SP ;the BP for later.ãã8B5E1E Get: MOV BX,[BP+1E] ;Otherwise, get the display bufferã8EDB MOV DS,BX ;segment, and point DS to it.ã8B7614 MOV SI,[BP+14] ;Then get the Y1 position.ãB106 MOV CL,06 ;Multiply it by 64 by using a ShiftãD3E6 SHL SI,CL ;Left (SHL) for speed.ã89F3 MOV BX,SI ;Save the result temporarily.ãB102 MOV CL,02 ;Shift left again to multiply theãD3E6 SHL SI,CL ;Y1 position by 256, then add thatã01DE ADD SI,BX ;value to our saved result.ã8B5E16 MOV BX,[BP+16] ;Now get the X1 position and add itã01DE ADD SI,BX ;to the result to get our finalã8B5E1C MOV BX,[BP+1C] ;offset. Then get the display bufferã01DE ADD SI,BX ;offset and add the pixel offset.ã8A04 MOV AL,[SI] ;Get the pixel.ãã8B5E1A MOV BX,[BP+1A] ;Get the sprite buffer segment andã8EDB MOV DS,BX ;point the DS (Dest. Segment) to it.ã8B7618 MOV SI,[BP+18] ;Now get the sprite buffer offset.ã8804 MOV [SI],AL ;Then put the color of the pixel.ã46 INC SI ;Add 1 to our sprite buffer offsetã897618 MOV [BP+18],SI ;and place it back on the stack.ãã8B4616 Done: MOV AX,[BP+16] ;Get the X1 position.ã40 INC AX ;Increment the X1 position by 1ã894616 MOV [BP+16],AX ;and put back on the stackã8B4606 MOV AX,[BP+06] ;Check to see if the width has beenã394616 CMP [BP+16],AX ;reached. If it hasn't, then get theã76C3 JBE Get: [003C] ;next column, otherwise reset theã8B4616 MOV AX,[BP+16] ;X1 position back to the left edgeã2B4602 SUB AX,[BP+02] ;of the sprite by subtracting theã894616 MOV [BP+16],AX ;width.ã8B4614 MOV AX,[BP+14] ;Get the Y1 position, then incrementã40 INC AX ;it by 1, and place it back on theã894614 MOV [BP+14],AX ;stack. Then check to see if we haveã8B4604 MOV AX,[BP+04] ;finished getting the sprite (Areã394614 CMP [BP+14],AX ;we at the bottom?) If not, then do ã76AB JBE Get: [003C] ;another line...ãã58 Exit: POP AX ;Pop the height off the stack.ã58 POP AX ;Pop the width off the stack.ã58 POP AX ;Pop the Y2 off the stack.ã58 POP AX ;Pop the X2 off the stack.ã5D POP BP ;Restore our registers for BASIC,ã1F POP DS ;the exit the routine, cleaning upãCA1000 RETF 0010 ;the stack at the end...ãã-----------------------------------------------------------------------------ãLength : 154 Bytes (77 Words)ã-----------------------------------------------------------------------------ãAndrew L. Ayers BLAST! MODE 13H PUT ROUTINE andrewa@indirect.com 10-04-96 (00:00) QB, QBasic, PDS 179 6943 BLASTPUT.BASDIM code1%(76), sbuffer%(1000)ã'ã' (ASM Source located at end of code)ããcode1$ = ""ãcode1$ = code1$ + "1E5589E58B460C508B460A508B46108ED88B760E8B04B103D3E8508B5EFE"ãcode1$ = code1$ + "01C3895EFE8B4402508B5EFC01C3895EFC83C60489760E89E58B46188ED8"ãcode1$ = code1$ + "8B76168A04468976163A461074208B5E1C8EDB8B7612B106D3E689F3B102"ãcode1$ = code1$ + "D3E601DE8B5E1401DE8B5E1A01DE88048B4614408946148B460639461475"ãcode1$ = code1$ + "BE8B46142B46028946148B4612408946128B460439461275A6585858585D"ãcode1$ = code1$ + "1FCA0E00"ã'ãDEF SEG = VARSEG(code1%(0))ã'ãFOR i% = 0 TO 153ã d% = VAL("&h" + MID$(code1$, i% * 2 + 1, 2))ã POKE VARPTR(code1%(0)) + i%, d%ãNEXT i%ã'ãDEF SEGã'ãSCREEN 13ã'ãLINE (5, 5)-(10, 10), 15, BFãGET (0, 0)-(15, 15), sbuffer%(0)ã'ãCLSã'ãdbufferseg% = &HA000: dbufferptr% = 0: icol% = 0: cnt% = 0ã'ãDEF SEG = VARSEG(code1%(0))ã'ãt = TIMERãDOã xpos% = INT(RND * 300)ã ypos% = INT(RND * 170)ã 'ã CALL ABSOLUTE(BYVAL dbufferseg%, BYVAL dbufferptr%, BYVAL VARSEG(sbuffer%(0)), BYVAL VARPTR(sbuffer%(0)), BYVAL xpos%, BYVAL ypos%, BYVAL icol%, VARPTR(code1%(0)))ã cnt% = cnt% + 1ãLOOP UNTIL cnt% = 1000ãPRINT TIMER - tãDEF SEGãã'******** END BLASTPUT.BAS ********ãã-----------------------------------------------------------------------------ãã Name: BlastPut! - Sprite Buffer to Offscreen Buffer Memory Copyã Date: September 30, 1996ã Author: Andrew L. Ayersãã-----------------------------------------------------------------------------ãBASIC Calling Procedure:ã-----------------------------------------------------------------------------ããDIM code%(76) ' 77 Words Allocatedã'ã' Load hex codes for routine into memory hereã'ãDEF SEG = VARSEG(code%(0)) ' Get code segementã'ã' Call our routineã'ãCALL ABSOLUTE(BYVAL VARSEG(dbuffer%(0)), BYVAL VARPTR(dbuffer%(0)), --->ã BYVAL VARSEG(sbuffer%(0)), BYVAL VARPTR(sbuffer%(0)), --->ã BYVAL xpos%, BYVAL ypos%, BYVAL icol%, VARPTR(code%(0)))ããDEF SEG ' Reset to default segmentãã-----------------------------------------------------------------------------ãStack Descriptor:ã-----------------------------------------------------------------------------ããThe following stack layout is only valid after all values are place onto theãstack for operation. In this routine, the layout is not valid until afterãbyte 0x0036 is executed (label Plot:), due to prior stack manipulation byãboth BASIC and the routine.ããSP Offset Descriptionsã--------- ------------------------------------- ã==[Pushed on by call to routine]=============ã 1C Display Buffer Segmentã 1A Display Buffer Offsetã 18 Sprite Buffer Segmentã 16 Sprite Buffer Offsetã 14 X positionã 12 Y positionã 10 Invisible Color ã==[Pushed on by BASIC]=======================ã 0E BASIC Return Segmentã 0C BASIC Return Offsetã==[Pushed on by routine]=====================ã 0A DS Registerã 08 BP Registerã 06 Width + X Positionã 04 Height + Y Positionã 02 Widthã 00 Heightãã------- ------- ------ --------------- -------------------------------------ãHexCode Label OpCode Operands Remarksã------- ------- ------ --------------- -------------------------------------ã1E Start: PUSH DS ;Save the DS register for BASICã55 PUSH BP ;Save the BP register for BASICãã89E5 Init: MOV BP,SP ;Get the stack pointerã8B460C MOV AX,[BP+0C] ;Get the X positionã50 PUSH AX ;Put the X position on the stackã8B460A MOV AX,[BP+0A] ;Get the Y positionã50 PUSH AX ;Put the Y position on the stackã8B4610 MOV AX,[BP+10] ;Get the sprite buffer segmentã8ED8 MOV DS,AX ;Point the DS (Dest. Segment) to itã8B760E MOV SI,[BP+0E] ;Get the sprite buffer offsetã8B04 MOV AX,[SI] ;Get the width, and divide by 8ãB103 MOV CL,03 ;(using SHR for speed) to obtain theãD3E8 SHR AX,CL ;true width in pixelsã50 PUSH AX ;Put the width on the stackã8B5EFE MOV BX,[BP-02] ;Get the X positionã01C3 ADD BX,AX ;Add width to the X positionã895EFE MOV [BP-02],BX ;and put it back on the stackã8B4402 MOV AX,[SI+02] ;Get the heightã50 PUSH AX ;Put the height the stackã8B5EFC MOV BX,[BP-04] ;Get the Y positionã01C3 ADD BX,AX ;Add height to the Y positionã895EFC MOV [BP-04],BX ;and put it back on the stackã83C604 ADD SI,04 ;Reset the sprite buffer offsetã89760E MOV [BP+0E],SI ;to the start of the pixel dataã89E5 MOV BP,SP ;Retrieve stack pointerãã8B4618 Plot: MOV AX,[BP+18] ;Get the sprite buffer segment andã8ED8 MOV DS,AX ;point the DS (Dest. Segment) to itã8B7616 MOV SI,[BP+16] ;Now get the sprite buffer offsetã8A04 MOV AL,[SI] ;Then get the color of the pixelã46 INC SI ;Add 1 to our sprite buffer offsetã897616 MOV [BP+16],SI ;and place it back on the stackã3A4610 CMP AL,[BP+10] ;Is our pixel invisible?ã7420 JZ Done: [006A] ;If it is, then don't plot it.ã8B5E1C MOV BX,[BP+1C] ;Otherwise, get the display bufferã8EDB MOV DS,BX ;segment, and point DS to itã8B7612 MOV SI,[BP+12] ;Then get the Y positionãB106 MOV CL,06 ;Multiply it by 64 by using a ShiftãD3E6 SHL SI,CL ;Left (SHL) for speedã89F3 MOV BX,SI ;Save the result temporarilyãB102 MOV CL,02 ;Shift left again to multiply theãD3E6 SHL SI,CL ;Y position by 256, then add thatã01DE ADD SI,BX ;value to our saved resultã8B5E14 MOV BX,[BP+14] ;Now get the X position and add itã01DE ADD SI,BX ;to the result to get our finalã8B5E1A MOV BX,[BP+1A] ;offset. Then get the display bufferã01DE ADD SI,BX ;offset and add the pixel offset.ã8804 MOV [SI],AL ;Plot the pixel.ãã8B4614 Done: MOV AX,[BP+14] ;Get the X positionã40 INC AX ;Increment the X position by 1ã894614 MOV [BP+14],AX ;and put back on the stackã8B4606 MOV AX,[BP+06] ;Check to see if the width has beenã394614 CMP [BP+14],AX ;reached. If it hasn't, then plot theã75C7 JNZ Plot: [0037] ;next column, otherwise reset theã8B4614 MOV AX,[BP+14] ;X position back to the left edgeã2B4602 SUB AX,[BP+02] ;of the sprite by subtracting theã894614 MOV [BP+14],AX ;width.ã8B4612 MOV AX,[BP+12] ;Get the Y position, then incrementã40 INC AX ;it by 1, and place it back on theã894612 MOV [BP+12],AX ;stack. Then check to see if we haveã8B4604 MOV AX,[BP+04] ;finished drawing the sprite (Areã394612 CMP [BP+12],AX ;we at the bottom?) If not, then do ã75AF JNZ Plot: [0037] ;another line...ãã58 Exit: POP AX ;Pop the height off the stackã58 POP AX ;Pop the width off the stackã58 POP AX ;Pop the height + y off the stackã58 POP AX ;Pop the width + x off the stackã5D POP BP ;Restore our registers for BASIC,ã1F POP DS ;the exit the routine, cleaning upãCA0E00 RETF 000E ;the stack at the end...ãã-----------------------------------------------------------------------------ãLength : 154 Bytes (77 Words)ã-----------------------------------------------------------------------------ãAndrew L. Ayers BLAST! MODE 13H PSET ROUTINE andrewa@indirect.com 10-04-96 (00:00) QB, QBasic, PDS 71 2331 BLSTPSET.BASDIM buffer%(31999), code1%(29), code2%(43)ã'ã' Assembler code (code1) is as follows:ã'ã' 1E PUSH DS ' Save the Data Segmentã' 55 PUSH BP ' Save the Base Pointerã' 89E5 MOV BP,SP ' Get the Stack Pointerã' 8B460A MOV AX,[BP+0A] ' Let AX=Buffer Segment Addressã' 8ED8 MOV DS,AX ' Set the Data Segment=AXã' 8B7608 MOV SI,[BP+08] ' Let Source Index(SI)=Buffer Offsetã' B800A0 MOV AX,A000 ' Set AX=Start of Video (13h)ã' 8EC0 MOV ES,AX ' Set the Extra Segmentã' BF0000 MOV DI,0000 ' Set the Destination Index to 0ã' B9007D MOV CX,7D00 ' Number of words to copy (32000)ã' F3A5 REP MOVSW ' Move the words!ã' 5D POP BP ' Reset the Base Pointerã' 1F POP DS ' Reset the Data Segmentã' CA0400 RETF 0004 ' Return to BASIC Program, clean upã' stack...ã'ã' Assembler code (code2) is as follows:ã'ãcode1$ = "1E5589E58B460A8ED88B7608B800A08EC0BF0000B9007DF3A55D1FCA0400"ãcode2$ = "1E5589E58B46108ED88B760AB106D3E689F3B102D3E601DE8B5E0C01DE8B5E0E01DE8A460888045D1FCA0A00"ã'ã' Now we poke the code into the memory reserved for it:ã'ãDEF SEG = VARSEG(code1%(0))ã'ãFOR i% = 0 TO 29ã d% = VAL("&h" + MID$(code1$, i% * 2 + 1, 2))ã POKE VARPTR(code1%(0)) + i%, d%ãNEXT i%ã'ãDEF SEGã'ãDEF SEG = VARSEG(code2%(0))ã'ãFOR i% = 0 TO 43ã d% = VAL("&h" + MID$(code2$, i% * 2 + 1, 2))ã POKE VARPTR(code2%(0)) + i%, d%ãNEXT i%ã'ãDEF SEGã'ãSCREEN 13ã'ãDOã 'ã ' First, clear out our buffer (kinda like cls 0)ã 'ã ERASE buffer%ã 'ã ' Set some random pixels using our new routine...ã 'ã DEF SEG = VARSEG(code2%(0))ã FOR t% = 1 TO 300ã x% = INT(RND * 320)ã y% = INT(RND * 200)ã c% = INT(RND * 256)ã CALL ABSOLUTE(BYVAL VARSEG(buffer%(0)), BYVAL VARPTR(buffer%(0)), BYVAL x%, BYVAL y%, BYVAL c%, VARPTR(code2%(0)))ã NEXT t%ã DEF SEGã 'ã ' Blast it to screen!ã 'ã DEF SEG = VARSEG(code1%(0))ã CALL ABSOLUTE(BYVAL VARSEG(buffer%(0)), BYVAL VARPTR(buffer%(0)), VARPTR(code1%(0)))ã DEF SEGã 'ãLOOP UNTIL INKEY$ <> ""ãAndrew L. Ayers BLAST! MODE 13H SPRITE ROUTINE andrewa@indirect.com 10-04-96 (00:00) QB, QBasic, PDS 102 3222 BLSTSPRT.BASDIM sprite%(15, 15), buffer%(31999), code1%(29), code2%(43)ã'ã' Assembler code (code1) is as follows:ã'ã' 1E PUSH DS ' Save the Data Segmentã' 55 PUSH BP ' Save the Base Pointerã' 89E5 MOV BP,SP ' Get the Stack Pointerã' 8B460A MOV AX,[BP+0A] ' Let AX=Buffer Segment Addressã' 8ED8 MOV DS,AX ' Set the Data Segment=AXã' 8B7608 MOV SI,[BP+08] ' Let Source Index(SI)=Buffer Offsetã' B800A0 MOV AX,A000 ' Set AX=Start of Video (13h)ã' 8EC0 MOV ES,AX ' Set the Extra Segmentã' BF0000 MOV DI,0000 ' Set the Destination Index to 0ã' B9007D MOV CX,7D00 ' Number of words to copy (32000)ã' F3A5 REP MOVSW ' Move the words!ã' 5D POP BP ' Reset the Base Pointerã' 1F POP DS ' Reset the Data Segmentã' CA0400 RETF 0004 ' Return to BASIC Program, clean upã' stack...ã'ã' Assembler code (code2) is as follows:ã'ãcode1$ = "1E5589E58B460A8ED88B7608B800A08EC0BF0000B9007DF3A55D1FCA0400"ãcode2$ = "1E5589E58B46108ED88B760AB106D3E689F3B102D3E601DE8B5E0C01DE8B5E0E01DE8A460888045D1FCA0A00"ã'ã' Now we poke the code into the memory reserved for it:ã'ãDEF SEG = VARSEG(code1%(0))ã'ãFOR i% = 0 TO 29ã d% = VAL("&h" + MID$(code1$, i% * 2 + 1, 2))ã POKE VARPTR(code1%(0)) + i%, d%ãNEXT i%ã'ãDEF SEGã'ãDEF SEG = VARSEG(code2%(0))ã'ãFOR i% = 0 TO 43ã d% = VAL("&h" + MID$(code2$, i% * 2 + 1, 2))ã POKE VARPTR(code2%(0)) + i%, d%ãNEXT i%ã'ãDEF SEGã'ã'***************************************************************ã'ãDATA 0,0,0,0,0,F,F,F,F,F,F,0,0,0,0,0ãDATA 0,0,0,F,F,4,4,4,4,4,4,F,F,0,0,0ãDATA 0,0,F,4,4,4,4,4,4,4,4,4,4,F,0,0ãDATA 0,F,4,4,4,4,4,4,4,4,4,4,4,4,F,0ãDATA 0,F,4,4,4,3,3,3,3,3,3,4,4,4,F,0ãDATA F,4,4,4,3,3,0,0,0,0,3,3,4,4,4,FãDATA F,4,4,4,3,0,0,0,0,0,0,3,4,4,4,FãDATA F,4,4,4,3,0,0,0,0,0,0,3,4,4,4,FãDATA F,4,4,4,3,0,0,0,0,0,0,3,4,4,4,FãDATA F,4,4,4,3,0,0,0,0,0,0,3,4,4,4,FãDATA F,4,4,4,3,3,0,0,0,0,3,3,4,4,4,FãDATA 0,F,4,4,4,3,3,3,3,3,3,4,4,4,F,0ãDATA 0,F,4,4,4,4,4,4,4,4,4,4,4,4,F,0ãDATA 0,0,F,4,4,4,4,4,4,4,4,4,4,F,0,0ãDATA 0,0,0,F,F,4,4,4,4,4,4,F,F,0,0,0ãDATA 0,0,0,0,0,F,F,F,F,F,F,0,0,0,0,0ã'ãFOR y% = 0 TO 15ã FOR x% = 0 TO 15ã READ valu$ã sprite%(x%, y%) = VAL("&h" + valu$)ã NEXT x%ãNEXT y%ã'ãSCREEN 13ã'ãDOã 'ã ' First, clear out our buffer (kinda like cls 0)ã 'ã ERASE buffer%ã 'ã DEF SEG = VARSEG(code2%(0))ã FOR t% = 1 TO 30ã x% = INT(RND * 300)ã y% = INT(RND * 180)ã 'ã FOR yy% = 0 TO 15ã FOR xx% = 0 TO 15ã c% = sprite%(xx%, yy%)ã IF c% THENã CALL ABSOLUTE(BYVAL VARSEG(buffer%(0)), BYVAL VARPTR(buffer%(0)), BYVAL xx% + x%, BYVAL yy% + y%, BYVAL c%, VARPTR(code2%(0)))ã END IFã NEXTã NEXTã NEXTã DEF SEGã 'ã ' Blast it to screen!ã 'ã DEF SEG = VARSEG(code1%(0))ã CALL ABSOLUTE(BYVAL VARSEG(buffer%(0)), BYVAL VARPTR(buffer%(0)), VARPTR(code1%(0)))ã DEF SEGã 'ãLOOP UNTIL INKEY$ <> ""ãAndrew L. Ayers GET/PUT MANIPULATION ROUTINES andrewa@indirect.com 10-22-96 (00:00) QB, QBasic, PDS 149 4990 GPMANIP.BAS 'ã' Description : GET/PUT Manipulation Routinesã' Written by : Andrew L. Ayersã' Date : 10/22/96ã'ã' These routines show how you can *directly* manipulate the GET/PUT bufferã' structure to build/destroy/read/write a sprite at any moment. You couldã' display a sprite, modify the buffer, then display it again - changes andã' all! These routines are powerful! For a great demonstration, see theã' GetShift demo, which uses the same techniques to achieve a full (almost)ã' screen scroll, with little overhead! For more info, read the commentsã' within each routine...ã'ã' You may use this routine in any manner you like, as longã' as you give credit in an appropriate manner. Have phun!ã'ãDECLARE SUB GetSpriteData (xsize%, ysize%, x%, y%, num%, colr%)ãDECLARE SUB SetSpriteData (xsize%, ysize%, x%, y%, num%, colr%)ã'ãDIM SHARED buffer%(1000)ã'ãSCREEN 13ã'ã' Play with these lines...ã'ã'LINE (1, 1)-(14, 14), 12, BFã'LINE (4, 4)-(11, 11), 4, BFã'GET (0, 0)-(15, 15), buffer%(0)ã'ã'LINE (1, 1)-(14, 14), 15, BFã'LINE (4, 4)-(11, 11), 3, BFã'LINE (6, 6)-(9, 9), 235, BFã'GET (0, 0)-(15, 15), buffer%(130)ã'ã'PUT (0, 0), buffer%(0), PSETã'CALL GetSpriteData(16, 16, 6, 6, 1, colr%) ' Get a colorã'PRINT colr%ã'ãCLSã'ã' Building a sprite from scratch!ã'ãCALL SetSpriteData(16, 16, -1, 0, 1, 128) ' Set the Width (16 x 8 = 128)ãCALL SetSpriteData(16, 16, -3, 0, 1, 16) ' Set the Heightã'ãFOR y% = 0 TO 15ã FOR x% = 0 TO 15ã CALL SetSpriteData(16, 16, x%, y%, 1, 12) ' Dataã NEXT x%ãNEXT y%ã'ãFOR y% = 5 TO 10ã FOR x% = 5 TO 10ã CALL SetSpriteData(16, 16, x%, y%, 1, 4) ' Dataã NEXT x%ãNEXT y%ã'ã' Use the *real* PUT command to place our sprite!ã'ãPUT (50, 50), buffer%(130), PSETããSUB GetSpriteData (xsize%, ysize%, x%, y%, num%, colr%)ã 'ã ' xsize% = Width of sprite in pixelsã ' ysize% = Height of sprite in linesã ' x% = X position to "get", must be 0-(xsize%-1) (see note below)ã ' y% = Y position to "get", must be 0-(ysize%-1) (see note below)ã ' num% = Sprite number offset (0 if buffer only contains one image)ã ' colr% = Color of pixel retrievedã 'ã ' **NOTE**ã ' Both x% and y% must be set to values between 0 and "size" - 1. The onlyã ' time this rule is not enforced is for the following:ã 'ã ' If x% is less than zero (0), and y% equals zero (0), then the followingã ' information may be obtained for values of x% :ã 'ã ' Value Informationã ' ----- -----------ã ' -1 Low byte of width information (divide by 8 to get true width)ã ' -2 High byte of width informationã ' -3 Low byte of height information (true height)ã ' -4 High byte of height informationã 'ã ' I believe for large sprites (larger than 32 x 256 pixels), both highã ' and low bytes will have info in them for width and height, and there-ã ' fore are true integer values (16 bit). In these cases, you will needã ' to multiply the byte values out to get the 16 bit real value.ã 'ã DEF SEG = VARSEG(buffer%(0))ã 'ã spritewords% = ((xsize% * ysize%) / 2) + 2ã 'ã IF x% < 0 AND y% = 0 THENã offset% = ABS(x%) - 1ã ELSEã offset% = ABS(y%) * ysize% + ABS(x%) + 4ã END IFã 'ã colr% = PEEK(VARPTR(buffer%(num% * spritewords%)) + offset%)ã 'ã DEF SEGã 'ãEND SUBããSUB SetSpriteData (xsize%, ysize%, x%, y%, num%, colr%)ã 'ã ' xsize% = Width of sprite in pixelsã ' ysize% = Height of sprite in linesã ' x% = X position to "set", must be 0-(xsize%-1) (see note below)ã ' y% = Y position to "set", must be 0-(ysize%-1) (see note below)ã ' num% = Sprite number offset (0 if buffer only contains one image)ã ' colr% = Color of pixel to setã 'ã ' **NOTE**ã ' Both x% and y% must be set to values between 0 and "size" - 1. The onlyã ' time this rule is not enforced is for the following:ã 'ã ' If x% is less than zero (0), and y% equals zero (0), then the followingã ' information may be modified for values of x% :ã 'ã ' Value Informationã ' ----- -----------ã ' -1 Low byte of width information (multiply by 8 to set true width)ã ' -2 High byte of width informationã ' -3 Low byte of height information (true height)ã ' -4 High byte of height informationã 'ã ' I believe for large sprites (larger than 32 x 256 pixels), both highã ' and low bytes will need to have info in them for width and height, andã ' therefore the width/height values will need to be broken down from theã ' integer value (16 bit) to high and low byte values, then sent to thisã ' routine.ã 'ã DEF SEG = VARSEG(buffer%(0))ã 'ã spritewords% = ((xsize% * ysize%) / 2) + 2ã 'ã IF x% < 0 AND y% = 0 THENã offset% = ABS(x%) - 1ã ELSEã offset% = ABS(y%) * ysize% + ABS(x%) + 4ã END IFã 'ã POKE (VARPTR(buffer%(num% * spritewords%)) + offset%), colr%ã 'ã DEF SEGã 'ãEND SUBãAndrew L. Ayers FAST SPRITE DEMO andrewa@indirect.com 10-22-96 (00:00) QB, QBasic, PDS 49 3139 FASTSPRT.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"FASTSPRT.ZIP",4^6:Z&=2071:?STRING$(50,177);ãU"%up()%9%%%d-%+,8'FRd1Uu3*.%%01%%%1%%%%kf%xyxu%wySgIfx\%;:>SoO5vãU"-xNx0QQdo7VSdeC\gu&=<-/w9+qjOk#*GfY#2Q44EWlxvlR0.Bbp](?zB?gGE^kãU"6H[fqMGxgX(EQ]Kn'b-;/_\vadk*Xc<-2ãU"v/k0xGi\'/]r#OB9+XYl;JGt9\^fYT0nP)u#7e+4I9]E[Q#2G3Aj#hRaF6i4s1VãU"3ahIh08O4ql_xinr/Ba[iIiNFUJ8?iEnH4injq\/NGC^=QãU"2]A#+CZO1i#jAmE1V;cJTMiqd#iHJ9mu='vlvR70qV:#+YrTIh_<'*<+IG>*-3Pef+sAbr'GA5Gef31Aj*fQãU"RU2VWU&oo]MT&J#>>c.i.MEg.crI2Jx)f\(q-]tN[2=fwbBV2e<_=WQe-7X7lqiãU"=.[R)kQ0pj8r&uJ(m4.g_f:<\tTQcE;ZLwvPyj$4,roQooZ7wB-ic$C\tfA:gSVãU"Wf$M\^sDJqlcdjTU3NHepw)3jjL=*7\Go;Ik;HEPiRC5laP(U'0KSAw221t+F1hãU"N0ZUlhl>o..q/T'[yl-AXn_1(YD$oNDa&vL:7TX#C;4X(yB\&rMY3I1FupGCYS0ãU"^93e6aQ#Tmb&cI3(ex+p&12AV0iTmPNsz4J]F$5Y*_e8?I[$XE(l&$zsW_p/hWwãU";/It63SvWS.Qr$[TVA%[#SU<,:;^GC'_6Gi>CRh:NP8NZ6NPkZO0/MHU8RHb5dQãU"X+.W9,2T?+/gztgd>s,n/Fa.e)Y';Ql$IJxC3Os%Gzk-4oKFI>\%P(KCX[q56DOãU"1[RgzV]qHu\rrJG#MWjh6)[GORb97Od86/7dwL7uwSRynCa^x[387SsjW2?p&\,ãU"c]ll=G0=5ku#9'.UG]kk=-fG\yn<6XWh9HFuD#++3bZlL$+:B,ZF]5Q^+IGGxAyãU"/eMAdJ6J5CWJr%'BdBKo\YyZ(xbbjfu+XF-QãU"?8S,\1E72ri=>u'2gz5ZM2x)M(uR[DEof[CO1a0JC<'3\5MrhQpd>iAGEuwLj5NãU"Z(:vze>_/(zbU_NtL\=9yLlrUPt*RAW*mZ(sNE)k$If?OzhUO8NS(:Z0e.CYu_'ãU"8Ob^^cZ;/-.Q6A7weDF)vk,?,Q<\gh(E]p%ZVox%xNfwXbN=udbz7\#z8^=%1=DãU"fWe+P#A9:8v3wV&Ffxpb+;)HhSUh,L,Ds)DP_5Wb8nc;xvNv7YbNKh)NU'cRNbKãU"+.1RP]-slbQebu+G%vFX)&V7:h2G[jZ+?q&&0q6[HxDkfu(JZ7G2wT6Pe5Ay&]]ãU"4Z$GV_$<<#G/uw3[-Z'C<]VHSL^h]?-MI]dRDuT&,[9o\5M9nRf6'?+Y3cdn)VcãU"wb):kz+*&_zkndj3?4(igYpO93Q,SWY&sZdL2x;-U^\ijeSNoUfzvMkMt$5Qwsm5ãU"9Da$Oulum-4Q4I]n;#lkuW#5nq4Hhl(amQHtNal7G^+2(ad8s$kflIMeaV[p1YeãU"8beG#uLWrCbfQZ/^Du3uomZ/8hh?Wg.3h^0?Xs$X_C*Yz^Ct^4surkK6jB0c[E9ãU"nhHrHvIdj#$?a;d=U/9&O&(+#1=U/*9O&(%+1=U5/9O&%(+1=UU/9O%&(+1d=U/ãU"9&O&(+#1=U/*9O&(%+1=U5/9O&%(+1=UU/9O%&(+1d=U/9&O&(+#1=U/*9O&(%+ãU"1=U5/9O&%(+1=UU/9O%&(+1d=U/9&O&(+#1=U/*9O&(%+1=U5/9O&%(+1=UU/9OãU"%&(+1%=Y1?I+2RUOfl#%up&'%9%9%%%%-%5+,'FBRdUu&3*%%&01%%%1ãU"%%%%%%%%%&%E%%%%%%%%%kf%xyxu%wySg%fxup%&'9%%9%%%#-%lb&%F=w9WpT&ãU"m%%px%%%.%%%%%%%%%%%%E%%%&]*%%%xmnu%VSxu%wup*%+%%%%%'%'(%#%%(%_ãU",%%%%%ãEND SUBãCLOSE:IF S=171AND 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ãAndrew L. Ayers EXPLOSIONS EFFECT andrewa@indirect.com 10-22-96 (00:00) QB, QBasic, PDS 76 1630 EXPLOSNS.BAS'ã' Description : Explosions - VGA mode 13 special effectã' Written by : Andrew L. Ayersã' Date : 10/22/96ã'ã' The name says it all!ã'ã' You may use this routine in any manner you like, as longã' as you give credit in an appropriate manner. Have phun!ã'ãSCREEN 13ã'ã' Set up arrays for our explosion dataã'ãDIM x(50), y(50), xv(50), yv(50), ox(50), oy(50)ã'ãDOã 'ã ' Initialize an explosionã 'ã FOR t% = 0 TO 50ã x(t%) = 0ã y(t%) = 0ã dir = RND * 6.28: vel = INT(RND * 5) + 1ã xv(t%) = SIN(dir) * velã yv(t%) = COS(dir) * velã NEXT t%ã 'ã ' Initialize offsets and colorã 'ã tx% = INT(RND * 320)ã ty% = INT(RND * 200)ã c% = 31: done% = 0ã 'ã ' Print the titleã 'ã LOCATE 1, 6: PRINT "Explosions by Andrew L. Ayers"ã LOCATE 23, 8: PRINT "Press any key to exit demo"ã 'ã ' Explode!ã 'ã DOã 'ã ' Move all the piecesã 'ã FOR t% = 0 TO 50ã 'ã ' Erase an old pieceã 'ã LINE (ox(t%) + tx%, oy(t%) + ty%)-(x(t%) + tx%, y(t%) + ty%), 0ã ox(t%) = x(t%): oy(t%) = y(t%)ã 'ã ' Move the pieceã 'ã x(t%) = x(t%) + xv(t%)ã y(t%) = y(t%) + yv(t%)ã 'ã ' Draw it at new positionã 'ã LINE -(x(t%) + tx%, y(t%) + ty%), c%ã 'ã NEXTã 'ã ' Decrement color to "fade"ã 'ã c% = c% - 1: IF c% < 16 THEN done% = 1 ' Do another explosion if doneã 'ã IF INKEY$ <> "" THEN done% = 2 ' Exit on any key pressã 'ã FOR dlay = 1 TO 5000: NEXT dlay ' Change to suit your machineã 'ã LOOP UNTIL done%ã 'ãLOOP UNTIL done% = 2ã'ãCLSãAndrew L. Ayers FAST & SMOOTH SCROLLING EFFECT andrewa@indirect.com 09-10-96 (00:00) QB, QBasic, PDS 89 2012 GETSHIFT.BAS'ã' Description : GetShift - Mode 13 VGA Special Effect Routineã' Written by : Andrew L. Ayersã' Date : 09/10/96ã'ã' This shows off one hell of a way to achieve a very smooth and fast "scroll"ã' type effect which may be useful in a game or demo. The technique I use toã' do the effect is to shift the data within the GET buffer, re-displaying itã' each time using the PSET operator. By keeping the buffer small, I can doã' the shifting relatively fast, then copy the shifted version over and overã' again on the screen to create a full screen scroll type effect!ã'ã' As always, if you use this in any of your creations, please consider yourã' source and mention my name. Thanx, and have phun!ã'ãDIM a%(451), save%(24)ã'ãSCREEN 13ã'ã' Build our imageã'ãFOR t% = 15 TO 0 STEP -1ã 'ã col% = 31 - (t% * 2)ã CIRCLE (15, 0), t%, col%ã PAINT (15, 0), col%ã 'ã CIRCLE (15, 29), t%, col%ã PAINT (15, 29), col%ã 'ã CIRCLE (0, 15), t%, col%ã PAINT (0, 15), col%ã 'ã CIRCLE (29, 15), t%, col%ã PAINT (29, 15), col%ã 'ãNEXTã'ã' Put it in the bufferã'ãGET (0, 0)-(29, 29), a%ã'ã' The following is info you might find helpfulã'ãdbyte% = a%(0)ãhighbyte% = INT(dbyte% MOD 256)ãlowbyte% = INT(dbyte% / 256)ãwid% = INT(highbyte% / 8) ' Width of GET image in pixelsã'ãdbyte% = a%(1)ãhighbyte% = INT(dbyte% MOD 256)ãlowbyte% = INT(dbyte% / 256)ãhgt% = highbyte% ' Height of GET image in linesã'ã' Clear off the screenã'ãCLSã'ãLOCATE 1, 3: PRINT "Smooth as Silk! - By Andrew L. Ayers"ã'ãDOã 'ã ' Shift the buffer upã 'ã FOR t% = 0 TO 14: save%(t%) = a%(2 + t%): NEXT ' Top lineã 'ã ' Middle linesã 'ã FOR t% = 17 TO 451ã 'ã a%(t% - 15) = a%(t%)ã 'ã NEXTã 'ã FOR t% = 0 TO 14: a%(437 + t%) = save%(t%): NEXT ' Bottom lineã 'ã ' Display it!ã 'ã FOR y% = 0 TO 5ã 'ã FOR x% = 0 TO 9ã 'ã PUT (7 + x% * 30, 10 + y% * 30), a%, PSETã 'ã NEXTã 'ã NEXTã 'ãLOOP UNTIL INKEY$ <> ""ãAndrew L. Ayers QUADRATIC PLASMA andrewa@indirect.com 10-23-96 (00:00) QB, QBasic, PDS 148 3332 QPLASMA.BAS 'ã' Description : Quadratic Plasmaã' Written by : Andrew L. Ayersã' Date : 10/23/96ã'ã' This is a program to create quadratic plasma (I am unsure onã' the name here. I know I am not using quadratic equations, butã' hey, call it what you want). The images are formed using onlyã' math - no recursion, SIN/COS warping, or random numbers. Whatã' comes out is a very nice display. On machines without a co-ã' processor, this may take a little while. Have phun!ã'ãDECLARE SUB ReadRGB (red%, grn%, blu%, slot%)ãDECLARE SUB WriteRGB (red%, grn%, blu%, slot%)ãDECLARE SUB SetPal (start.slot%, end.slot%)ã'ãDIM oldr%(255), oldg%(255), oldb%(255)ã'ãSCREEN 13ã'ã' Save old paletteã'ãFOR t% = 0 TO 255ã CALL ReadRGB(oldr%(t%), oldg%(t%), oldb%(t%), t%)ãNEXT t%ã'ã' Create a custom 63 color paletteã'ãCALL WriteRGB(63, 63, 63, 1)ãCALL WriteRGB(63, 0, 0, 15)ãCALL WriteRGB(0, 63, 0, 31)ãCALL WriteRGB(0, 0, 63, 47)ãCALL WriteRGB(63, 63, 63, 63)ã'ãCALL SetPal(1, 15)ãCALL SetPal(15, 31)ãCALL SetPal(31, 47)ãCALL SetPal(47, 63)ã'ã' Display quadratic plasmaã'ã' Try different numbers (greater than 1) for scale!ã'ã'scale = 1ã'scale = 10ãscale = 100ã'scale = 250ã'ãFOR y = -100 * scale TO 100 * scale STEP 1 * scaleã 'ã h% = 0ã 'ã FOR x = -160 * scale TO 160 * scale STEP 1 * scaleã 'ã h% = h% + 1ã 'ã ' Try out these equations for different effects!ã 'ã c% = (SQR(x * x + y * y) AND 62) + 1ã 'c% = ((SQR(x * x) + SQR(y * y)) AND 62) + 1ã 'c% = (SQR(ABS(x * y) + ABS(x * y)) AND 62) + 1ã 'c% = (SQR(ABS(x * x - y * y)) AND 62) + 1ã PSET (h%, v%), c%ã NEXTã 'ã GOSUB MovePalette ' Remove this line if your machine lacks a coprocessorã v% = v% + 1ã 'ãNEXTã'ã' Move the palette for a cool effect!ã'ãDOã GOSUB MovePaletteã FOR delay = 1 TO 1000: NEXT delay' Adjust for your machineãLOOP UNTIL INKEY$ <> ""ã'ãCLSã'ã' Reset original RGB valuesã'ãFOR t% = 0 TO 255ã CALL WriteRGB(oldr%(t%), oldg%(t%), oldb%(t%), t%)ãNEXT t%ã'ãSTOPã'ãMovePalette:ã 'ã CALL ReadRGB(ored%, ogrn%, oblu%, 1)ã 'ã FOR t% = 1 TO 62ã CALL ReadRGB(red%, grn%, blu%, t% + 1)ã CALL WriteRGB(red%, grn%, blu%, t%)ã NEXTã 'ã CALL WriteRGB(ored%, ogrn%, oblu%, 63)ã 'ãRETURNããSUB ReadRGB (red%, grn%, blu%, slot%)ã 'ã OUT &H3C7, slot% ' Read RGB values from slotã 'ã red% = INP(&H3C9)ã grn% = INP(&H3C9)ã blu% = INP(&H3C9)ã 'ãEND SUBããSUB SetPal (start.slot%, end.slot%)ã 'ã num.slots% = end.slot% - start.slot%ã 'ã CALL ReadRGB(sr%, sg%, sb%, start.slot%)ã CALL ReadRGB(er%, eg%, eb%, end.slot%)ã 'ã rr% = ABS(er% - sr%): rg% = ABS(eg% - sg%): rb% = ABS(eb% - sb%)ã rs% = SGN(er% - sr%): gs% = SGN(eg% - sg%): bs% = SGN(eb% - sb%)ã 'ã stepr = (rr% / num.slots%) * rs%ã stepg = (rg% / num.slots%) * gs%ã stepb = (rb% / num.slots%) * bs%ã 'ã r = sr%: g = sg%: b = sb%ã wr% = r: wg% = g: wb% = bã 'ã FOR t% = start.slot% TO end.slot%ã 'ã CALL WriteRGB(wr%, wg%, wb%, t%)ã 'ã r = r + stepr: wr% = rã g = g + stepg: wg% = gã b = b + stepb: wb% = bã 'ã NEXT t%ã 'ãEND SUBããSUB WriteRGB (red%, grn%, blu%, slot%)ã 'ã OUT &H3C8, slot% ' Write RGB values to slotã 'ã OUT &H3C9, red%ã OUT &H3C9, grn%ã OUT &H3C9, blu%ã 'ãEND SUBãAndrew L. Ayers EXPLODING PIECES EFFECT andrewa@indirect.com 09-12-96 (00:00) QB, QBasic, PDS 146 3518 EXPLTRI.BAS 'ã' Description : Exploding Pieces - Special Effect Routineã' Written by : Andrew L. Ayersã' Date : 09/12/96ã'ã' This shows off a pretty CPU intensive "explosion" of coloredã' triangles, all spinning and moving away from a common center atã' different velocitys. Perhaps it could be modified to be used inã' a game or something. I wrote it after reading a post on one ofã' the newsgroups about someone needing to create an explosion -ã' I hope this helps some...ã'ã' As always, if you use this in any of your creations, please consider yourã' source and mention my name. Thanx, and have phun!ã'ãSCREEN 7, , 1, 0ã'ãCONST MAX.NUM = 60ã'ã' Define a triangleã'ãTYPE triangleã px1 AS INTEGERã py1 AS INTEGERã px2 AS INTEGERã py2 AS INTEGERã px3 AS INTEGERã py3 AS INTEGERã 'ã nx1 AS INTEGERã ny1 AS INTEGERã nx2 AS INTEGERã ny2 AS INTEGERã nx3 AS INTEGERã ny3 AS INTEGERã 'ã r AS INTEGERã 'ã x AS INTEGERã y AS INTEGERã 'ã vx AS INTEGERã vy AS INTEGERãEND TYPEã'ã' Set up a whole mess of 'emã'ãDIM pieces(MAX.NUM) AS triangleã'ã' Initialize themã'ãFOR t% = 0 TO MAX.NUMã 'ã pieces(t%).px1 = 0: pieces(t%).py1 = -5ã pieces(t%).px2 = 5: pieces(t%).py2 = 5ã pieces(t%).px3 = -5: pieces(t%).py3 = 5ã 'ã pieces(t%).nx1 = 0: pieces(t%).ny1 = -5ã pieces(t%).nx2 = 5: pieces(t%).ny2 = 5ã pieces(t%).nx3 = -5: pieces(t%).ny3 = 5ã 'ã pieces(t%).r = INT(RND * 360)ã 'ã pieces(t%).x = 160ã pieces(t%).y = 100ã 'ã DOã 'ã pieces(t%).vx = (INT(RND * 17) - 8)ã pieces(t%).vy = (INT(RND * 17) - 8)ã 'ã LOOP UNTIL pieces(t%).vx <> 0 AND pieces(t%).vy <> 0ã 'ãNEXTã'ã' Build SIN/COS tables for speedã'ãDIM sintable(359), costable(359)ã'ãrad = (3.14159 * 2) / 360ã'ãFOR t% = 0 TO 359ã 'ã sintable(t%) = SIN(t% * rad)ã costable(t%) = COS(t% * rad)ã 'ãNEXT t%ã'ãr% = 0ã'ã' Explode!ã'ãDOã 'ã done% = 1ã 'ã ' ERASE LAST IMAGEã 'ã LINE (0, 0)-(319, 199), 0, BFã 'ã FOR t% = 0 TO MAX.NUMã 'ã IF pieces(t%).x >= 0 AND pieces(t%).x <= 319 AND pieces(t%).y >= 0 AND pieces(t%).y <= 199 THENã 'ã ' CALCULATE POSITION OF NEW IMAGEã 'ã lx1 = pieces(t%).px1 * sintable(r%) + pieces(t%).py1 * costable(r%)ã ly1 = pieces(t%).px1 * costable(r%) - pieces(t%).py1 * sintable(r%)ã lx2 = pieces(t%).px2 * sintable(r%) + pieces(t%).py2 * costable(r%)ã ly2 = pieces(t%).px2 * costable(r%) - pieces(t%).py2 * sintable(r%)ã lx3 = pieces(t%).px3 * sintable(r%) + pieces(t%).py3 * costable(r%)ã ly3 = pieces(t%).px3 * costable(r%) - pieces(t%).py3 * sintable(r%)ã 'ã pieces(t%).nx1 = pieces(t%).x + lx1ã pieces(t%).ny1 = pieces(t%).y + ly1ã pieces(t%).nx2 = pieces(t%).x + lx2ã pieces(t%).ny2 = pieces(t%).y + ly2ã pieces(t%).nx3 = pieces(t%).x + lx3ã pieces(t%).ny3 = pieces(t%).y + ly3ã 'ã ' DRAW NEW IMAGEã 'ã c% = INT(RND * 16)ã 'ã LINE (pieces(t%).nx1, pieces(t%).ny1)-(pieces(t%).nx2, pieces(t%).ny2), c%ã LINE -(pieces(t%).nx3, pieces(t%).ny3), c%ã LINE -(pieces(t%).nx1, pieces(t%).ny1), c%ã 'ã PAINT (pieces(t%).x, pieces(t%).y), c%ã 'ã pieces(t%).x = pieces(t%).x + pieces(t%).vxã pieces(t%).y = pieces(t%).y + pieces(t%).vyã 'ã done% = 0ã 'ã END IFã 'ã NEXTã 'ã r% = r% + 15: IF r% > 359 THEN r% = 0ã 'ã ' SHOW IMAGE ON SCREENã 'ã PCOPY 1, 0ã 'ãLOOP UNTIL done%ãAndrew L. Ayers OTHER NICE SPECIAL EFFECTS andrewa@indirect.com 10-24-96 (15:12) QB, QBasic, PDS 100 6558 EFFECTS.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"EFFECTS.ZIP",4^6:Z&=4644:?STRING$(50,177);ãU"%up()%9%%%d-%b*.uF3H2=E,'7%%?)%%%1%%%%ns%yjwk%jwSg.fxDx;0>SUj5vãU"]=DNGhz./BQI\<>jTLIiu9CYey_58m2?b+)offAs%jNhFEaUfZCVuL>hVN4F6KiãU"S=l[bUbqjH5Yw/&Qu9q7bV>iK?-I$bUkljDq/'^.$54OV%Y61j[9C#Gc/?89:uxãU"Kb??hp)AGZGW=OBUD:;n0-D)Gjia\KN)oOgGfF[kv&4M[1TR[Ni,6Y,K/[gmw/JãU"JoJE]bVq[>*S%ekk&Ad'T4/.fOETFw*cxrBA6b%25;kKYzy6/\lu0*IcNS'?HmjãU"7,kpxHflfe/GnFME.#hm&dQ0S_g8i;8S.:9nEiTkh69aK8'w%rURt_K3F8aqB*:ãU"TygOsH'Y3'1([uJU9S,o%KgxYylFrq0Zq3IVv9c^6couK.Y*;n,f=)p5[qH,kf(ãU"/ZU?-sj'j6s14?dtYZGC>*zQc0jAB=.7I[*cAMs3eCcx8;U4wnY8dTY/WBjHki;0fãU"mXGq_[>dI9bE207GYx;2FQ/>:K5R,ajF9mUVZ\JNu]a?Y%N-*-fOdu%p()9%%%%ãU"-:%l*u%F&-N+B0+%+%k;%%%.%%%%qns(j)SgRfx6'2WxV&v3't)w.)ãU"skmCxJka2XrxQo2'0Gdle6=C9R+_Y3kdJ;JF9B5W=8X]nIWeofbteZDf&K2EKC+ãU"I\I#2;Nbsvd-hgrFFr',31Z%)o-0qlSE)_UH17BOcjmiU:9eJ[qt)1p-(Qtx17QãU"b&BV$/&sVR<%g,r[=7.(0x4'[6-lv:jw<^j:JG,:j:TfL)Y#m'[;21au>8Svuq:ãU"RluV/LaPI'F''&K.*ShQg:L/t6)pLgZs:?q/6#7'f)9H&\EF)Eo:$TZ.6R_+UrnãU"=[?v0:6WGa30qt_jG*QKSRGulM1-Egfc==V1+V*V7(yB85qj92mN>.$g0&H'gkNãU"4Sg,):X.5(QmNk#thmewlEqNK0::eJl/,iWUk=J\Vh\/e+g4D2'7J-.5BhdPKzLãU"13G#m1dl/p(dbEo4tTy_L+hKVT7nKJO?<%aWS#S2[?BEZ)yfPxp_b>Ul-Y=m9QXãU"h2o\+'Y/PPgeZO1kqO\g8'j6/EFN?if-YEF_ibe1b088vqCp*zq-5t8JãU"l>pa,LRb$u(a9cYmaxX3u[T)8/GXuUTVdlS;6r\1.;8IC'&=R/XB#l%6$qP6g/FãU"utrMDuBzr.kX9r(?Jhc0ZA-.cO42+oS,nX.\w<&s+J*SX64((1Hoo$ne)SJUS7<ãU"TsyCYE;;40r/'UWCv,&oPE^R_07JI]pãU"'CDgtg^#z<;f&e<p?lk\bd_[b$jOa[Ux85ol-QYD=ãU"bYIku1fY%kf9Pi/hhuLO9,-nCEx(c.JrqX=L6Ej59MfW\msUOctFHiJ5#:%0$KPãU"MM*u:p7%0mR^avtubhTr%;TKI0eY<5PJ-P%2;?QRfZkmut_kD7'_0$;t6YQglX1ãU"f2uKdnCs-iD.&tVdy#>Xqhn%Ynp&ktja?I1.aNXG(rV&_%r*6g>;H>bybQE$OW#ãU"4'6np)g7Vtm.]]fãU"Ne/Z06vc#Tu6qgl2=)Qj5$;pw=GB:&ah2'sCByJ,O%qA-bCZigioTym_A-YT+i7ãU"]o^y,fNUPw+y3mA-YWasWnSZ2'so(2*cFpBZUng<757jx9q)25qQni*LY3l>-4FãU"qKTzC(>t78d6cmLF7F*_tbBBX0s[y.cmuz:y8YQfIzh)mwx%Btw)(1,pve\R_UwãU"N(b$1Wt6mK_N68'\KGmkV?2_8p:w8_:o'v?+Z2hBeaV86nhwc7r:bpuO&6Re(TLãU"WgpS*I0/-E?_AG0Cx\6t4oN=c+bsFwL4ze4O)OMOex7/(()nhA&02V:q2z-iUZ6ãU"0&E5r)W(*V/:gC:4ZpzCJdhoI[0pbna\a(FStI2UU0<9*PcM=xr&=&tdwMx$#/MãU"nA+2SeeFnf=pG9V>(fbZ%sM0%AJ?gO3\*+yfn17Td'tD14,7MKrBT8Y%Vu^uqaQãU"qadNA56MZd,0Mr/CVHTG%k.t<5^Z.2v*+Q[[FOtpoDX;B6(+V^k9g-&(8w1_EMDãU"?j^X>w'Vk=3c0Hq=5=c1B03EWL7NH,=EGHmUR^<7Un3b*_=:mq?0kDZZLl0K?bãU"o'yhG:wo(^^=DCH\?,=lb5X*l7/6I80,(G(g2:6b)'Xv%,up(%)9%%[%-%6B*uFãU"$oc.w_#&%%[%)%%-%%%%x%unsS[gfx6kaV=Lde5Th+H^BsdHu)ZJs[txJ1fs_u1ãU">;.Yr=u,c3G)(_?FHhkUM>H'%Buf[g67YL0JF5uGE0#lThEs;gbGP'*ZgnNq';uZjZ2u$W^rGG=>j.q0pvZ.V)%;s4Xe1<9^q$Ou5k^XC$SFfGaRu6I]Y)=6Eq4ãU"H),o,t7emIh:82gZ((;d9)lV*L?]a11j9s6e,)$R5#M9_VlK'\2)FfCewK+aF(MãU",qM?^/Ms[zA$WWZtY1l/h$_>s%P)\m352WL2S8,kx=WrYY92GtoBQ;$HTKe%5fDãU"EWRrN5pYFb>PGaHPlVgS,-_Yy%SG[x9J,S8?9JWg/]29*1\966<._uZXm3ZwNn-ãU"8rXUGL2>Rt;^H[H^oa*W$>8=.(v%?qt?RMG_b=,alTPD+YS*\,\s.S5B*2CA7e9ãU"?&pshT*3=6Rxo:KX\e=^*<-b7u#:#mm\eWq%ãU"-58$G+x\_Ikl$GhgTA*(oR*+WW#(glxxojAodeBQx*6^_=.=8[2cb:fD.IfCjljãU"zq=vTr%+up(%)9%%[%-%OB*uFpY40Ui%*%%z%2%%-%%%%k&(wjS#gfxlh%xV2OxP_/h[[bQ&mIX=_2VN:k[:uY$e,xVYU31Q00'3^?PHQCFcpd&I7XanSvqf>AORzP;+,9[g_M(loukcsO,UgCMw,=i(wB=%(y0?M.xãU"T6'KUeZ,IF&aQpI[WmeACT$RIT.]L86i5(>Lwq8qsv+M?/xyiEU,zF,PfsfTMwNãU"q9hXL[MO,F*i,.a]5esQEJ2a+Bh?SlMe,tm#JOo/V4-1dtt<#^L;\+P#F7yA$rnãU"WAFdFn#tc,bRwKNCsx*D3n-+%z1WHUG$[ubT)?hqSn$c\,-ãU"-./B%wrm1ubI2hOs'dLki6#I%c=wR.UdV%I#wng?'[Bd.h0cU/Ld]F7<*s0SfYQãU"AVWvk:\)>vA)jy15tF&&N[IE5D_3mCGO/zmc3'JP+o^iPPiD()EKxpXcwq9UVBISVyMjmSys&NaLpm15eZQALFI=ls60peãU"p4b#):Ge:4aU,hiV/?MkSIsmQm\[mX[Ogw9*#G\j3wVqX.3*Y2p=lW''J6rd7Y7ãU"&qRhGYIxVhrtI$5VgS[bW+h8d'o(xCO82V1xYw*+MN%5.:')yV_nV7Ld^3V:8bIãU"4.>Z(Pqpfdrv*fBQgOr6\r1k'x1R,YVQ42>#Q2(cdE>AW#R>U6MX%h+gE)zK+WfjT;h1v,gPjpI66X?^YjQ#vMVJJjlãU".NZ4j,M5'\uA&Mr8J(xb<^JQlOu:nhAD=YE]a)AsRCa_B3OunP.f8J>=]58D6<\ãU"7_j=;/m>*xDTcig(MD9V,VI,dHJYdngxE(.dE)I>p4jv^3Y]eL:l:\m2F66R(J%ãU"VO6Ak[?DG'69]SW+6]inJk;a;^=qCt+lvPHd)Qk25XgQ2R%M]>P&=O/'[zy_q=2ãU"psCk<$o#K7*C81A=\ãU"S:-+\OR1qN2V:m5WOZrK_4G9%s0Yb99p'*+].J4KU^.m\V7=cqtV7oV-D>eWR$^ãU"2f_-]S\]*B4JKgP)'X?F$6W%wigX2LfO5GN1PlF3cWgz,Z[J%G%YPCrC^bOg/h>ãU"GzpmA._Owqg;Y's;Yk-Z2wYMblFL=>l5qwEdR?owEDrx6#f;1BUItJt5jt&BfLZãU"/G2;QC:J5<[1Hqh+Hnb%dup&%'9%9%%%%-:%b*uCF3H=)E,'%+%?)%%%1%%%%%%ãU"%%%&%E%%%%%%%%%n%syjw%kjwS%gfxu%p&'9%%9%%#%-%l'*uF&[-NB0[+%%k%;ãU"%%.%%%%%%%%%&%%E%%(%V'%%%qns(j)Sg%fxup%&'9%%9%%%m-%6*duF$c=.w_&ãU".%%[)%%%-%%%%%%%%%&%%E%%%&4.%%%xuns%Sgfx%up&'%9%9%%%%-%-O*uFqp4ãU"0U&i*%%%z2%%%-%%%%%%%%%&%E%.%%#0#%%k(%wjSg%fxup%*+%%%%%)%7)%V%%ãU"%%V6%%%%%ãEND SUBãCLOSE:IF S=217AND 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ãRobert Seidel MELTING SNOWMAN rseidel@ifk.uni-jena.de 10-25-96 (12:00) QB, QBasic, PDS 84 2438 SUMMER.BAS ' SUMMER.BAS - FREEWARE by Robert Seidel rseidel@ifk.uni-jena.deãã' ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛã' Û Ûã' Û This file was found at Robert's HomePage ! Ûã' Û Ûã' Û Come and visit me if you are interested in: Ûã' Û Ûã' Û PowerBASIC, QBASIC, POVRAY, POVLAB, Ûã' Û FREE 3D Studio IPAS, PICTURES, Ûã' Û FREEWARE, GAME Levels Ûã' Û AND A LOT OF LINKS ! Û ã' Û Ûã' Û http://www.uni-jena.de/~p6sepa/rshp.html ___ Ûã' Û (o o) Ûã' Û oOo ( O ) oOo Ûã' ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛãããDEFINT A-ZãDIM melt(2400)ããSCREEN 13ãRANDOMIZE TIMERããFOR i = 0 TO 63 'Paletteã SetRGB i, 64 - i, 64 - i, 64 - i 'grauã SetRGB i + 64, i, 0, 0 'rotã SetRGB i + 128, 63, i, 0 'rot-orangeãNEXTããFOR i = 1 TO 50 'Schneeã LINE (0, i + 150)-(320, i + 150), iãNEXTããRenderCircle 160, 158, 50, 1, .8 'Schneemannk”rperãRenderCircle 160, 95, 35, 1, .8ãRenderCircle 160, 50, 25, 1, .8ãRenderCircle 149, 45, 3, 58, 1.2 'AugenãRenderCircle 169, 46, 3, 58, 1.2ãFOR i = 85 TO 205 STEP 25 'Kn”pfeã RenderCircle 155 + RND * 2, i, 2, 50 + RND * 4, 1ãNEXTãCIRCLE (160, 93), 40, 0, 1.2, 1.8 'MundãCIRCLE (160, 94), 40, 0, 1.2, 1.8ãFOR i = 147 TO 177ã LINE (i, 9)-(i - 2, 32), i - 130 'HutãNEXTãLINE (135, 32)-(184, 34), 30ãFOR x = 16 TO 1 STEP -1 'Naseã RenderCircle 142 + x, 59 - x / 2.5, x \ 4, 128 - x * 2, 1ãNEXTããSLEEP 'Pauseãã'SCHMELZEFFEKT:ãFOR i = 1 TO 4000 ã x = RND * 271ã y = RND * 150ã GET (x, y)-(x + 48, y + 48), meltã PUT (x, y + 1), melt, PSETãNEXT iããRenderCircle 160, 100, 60, 128, 1 'SonneãRenderCircle 140, 80, 7, 55, 1 'AugenãRenderCircle 180, 80, 7, 55, 1ãCIRCLE (160, 80), 50, 60, 4, 5.5 'MundãCIRCLE (160, 88), 50, 60, 3.6, 5.8, 1.3ããSLEEP 'PauseããSUB RenderCircle (x, y, r, colstart, a!)ã FOR i = r TO 0 STEP -1ã CIRCLE (x, y), i, (colstart + i), , , a!ã PAINT (x, y), (colstart + i)ã NEXTãEND SUBããSUB SetRGB (Nr, r, g, b)ã OUT &H3C8, Nrã OUT &H3C9, rã OUT &H3C9, gã OUT &H3C9, bãEND SUBãMathew Robertson BOUNCING WOODEN BALL FidoNet QUIK_BAS Echo 10-21-96 (18:29) QB, QBasic, PDS 61 4350 BOUNCE.BAS 'Here is a little graphics program I wipped up. It is a simple bouncing ball.ã'But the graphics are alot better then the plain old circle that most normalyã'is used. I used a raytraced wooden ball instead. Just had to add a twist ã'to it.ããDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.3bãSUB V1:OPEN "O",1,"BOUNCE1.ZIP",4^6:Z&=2820:?STRING$(50,177);ãU"%up()%9%'%d-%e)%rFI/+oFJ)7%%E-%%%0%%%%gt%zshj%VSgfCxdz,,B[[9hL6Ux/?Kj40LJãU"(1hj,aR)EU'n/gK_&YE3fjW)TfX0*aa1Z187&c+*hKkVfR#heCDHa^pCBYrjV3u3=Ykt>Y;$VãU":e>)bP>V/.qk;:&B?Nq+7F(SVj\>?[cCtZEo=VKb+IC>DDegVOACbkXLF?TE#1TZhhuxa7D3*ãU"+qba^IU'h[&HF?O[TvXuY-Hq-geFAvP9#JsY;C*q*Fs8jnV.*qST7>45?Gb296\/;5YpqJU%LãU"O7n2l,8Fm^'BK+Uk5J.)ZiaV0D_CN)kpOrvS'R(SH6R&39i.VZ$+g5:F8n&sa^1N*]1iejbbaãU"_bl57&JjPLW1jFX6slFOBV'D+BS:-y/Q9(5lSkD(c898*;_yRUc:E-/sY3PPoFk2rPRTUeLqTãU"6&ld#\TdZpCQ-^#]FUk^E4ãU"FLW9hwIDd/o)EA'7mSY49$/n-'(Wcu?H4]aC_,?/iwncfM&KXD6RrJpwTVOlQ3X&PMJ;1nCmqBylv/GãU".VoH_/SlOC6J=8zMB*E5gXX_BwueP]U9+D+BS3ivSw:nCi\JSlJ[X%ip6P&j]oM*lUXw+h;QyãU"]:4#*RZG(O7*VP'JMiL$jkpe>/hv?ff,k%6f+7([/#jjCnqE]+I1JI:Gu-^aSJg-vob;rZHLKãU"wc[MpxSq2aqC*ix^U;D74L;SsoW][mBWn6[SS8dW7?dzn2*ct8n\ROr0Nph8d*6t^umr%hM?_ãU";xuS1A:20n*^Ct*=-]zmQjEP#?FpK^'_.*,wZpgC+\wgBM,NSb&GA];:hiUUJINs9(WVDEQ[WCBqãU"q1f-Z7Gp*;17kHF3of;D%z[,Z8X7^]5i&In2h(io:fq1Smt2,tfC/eNnt2D)6q&'o3Ji1pEdlãU"hA%zo_I(X&[VCZiKFrQjhk*_L=tmv^<7Od;ml)*gm$Bl#Ov=C##,[Lz>Vn2%p87%SX&_Kzqr.ãU"KcJ,cI*%rI#*db.p*H*__f/k#H*zKAtEd%G_8v?:1?r33Y*LLjA#6hC%Y#riaj#B\GVYOWuVUC-$s-[p#^,RFX7tfJbl'6R3D_vOsp:z$qjJ>(dS?C4m/8[Q?L$('q.kQOPN/)_c6N4k5=bmI\k+>C6fUa3CWnnbCA*C3R_2k+OãU"rp6zgqA;NLE8$EV_H$#ms_0?KtT(*TB3k=G\bJHt$$6]An$C3HXB,hn*JA7Ix\H=j2KQ-1jUBãU"^HhqB3WV#T3k=2Q%d$ckd$$],RbFkK*:zQe$qDaqo(,8,nmT>Gv<5khr<_%/EnaE^lcVL_pjH(<^n\*zfoXX<2MVW.dfO3k;[TH;xR^9_/KXesxs'VE+G8_)[EM?=?=M?=ãU"?=k?g?gk?g?gk?g?gk?g?gk?g?g>?/tK%WG6J7GLCi)Tw7ZaGS#fG\okJtr6JW;7>-\TS#f\WãU"oq67jTSZo5q67TWSZoqN67n7Mn7n7Mn7n7Mn7n7Mn7n7qn7h-bFS$fGlosJtv6LWY8h-FWS6SãU"6WS6S6WS6S6WS6S6WS6S69SOY0&:*Pi/%;&ãU"rQ)*.q1:>OGY&:*OP/%;l&Q)*i.1:>OY&^:*P/q%;&QY)*.1Y:>ãU"OY0&:*Pi/%;&rQ)*.q1:>OGY&:*OP/%;l&Q)*i.1:>p.x%%up()%9%'%RãU"-%4d.rFYH:$vU'[%%,s%%%.%.%%&t%tiVS\%lfffSpz\[[%eZ+5'D'.8)Q-\Sf0B.0.3i8R[*ãU".p[g:EuuBwGCgp\F]Lw=[a1V9G7fYV=Ebp0-v-VV3tãU"+u7tKeape-dts=56lF&sWRJMcYM>*mbw4PRl0)_vA#LN-\TMl#tD+*PEM^f$WJRhhpmx.*XãU"^#Y,7-NVDWT-C%-CXTUr6MS(m;<&EUU'dBMgf<,[DJbo,k/A'Wv-ozBSso:V\Z2SgaeDTl0t>ãU"L/Cp*CZbp3.0PnLZUSI$KXADqkX*'Hx^qgBv>]58okxW)\qBkD5l'lgC5kLihYsXDMOrT,sM%ãU"IWRlt]lHfdWU$n3_Kh?9lP-qxsOo_9LS2NEB#pNE0k+l/mJVN(<3vB-W[)Wdkp#qiZHRt\JJhãU"kD8BTB-wo<$.#F?Pk,FpRi\s/YJs6-tN-.15Cc:2YK.G(1 points * 3 THENã inc = 1ã inc2 = 1ã ã WAIT &H3DA, 8 ' Wait retraceã flam ' Make the flameeffectã DOã ' This do-loop calculates the screen coordinates of the cube...ã scr(inc2) = (cube(inc) * 256) / (cube(inc + 2) - zoff) + xoffã scr(inc2 + 1) = (cube(inc + 1) * 256) / (cube(inc + 2) - zoff) + yoffã ã vx = (cube(inc) * 256) / (cube(inc + 2) - zoff) + xoffã vy = (cube(inc + 1) * 256) / (cube(inc + 2) - zoff) + yoffã ã inc2 = inc2 + 2ã inc = inc + 3ã LOOP WHILE inc < (points * 3) + 1ã LINE (scr(1), scr(2))-(scr(3), scr(4)), 48ã LINE (scr(1), scr(2))-(scr(5), scr(6)), 48ã LINE (scr(13), scr(14))-(scr(3), scr(4)), 48ã LINE (scr(13), scr(14))-(scr(5), scr(6)), 48ã LINE (scr(5), scr(6))-(scr(9), scr(10)), 48ã LINE (scr(1), scr(2))-(scr(7), scr(8)), 48ã LINE (scr(11), scr(12))-(scr(7), scr(8)), 48ã LINE (scr(15), scr(16))-(scr(11), scr(12)), 48ã LINE (scr(15), scr(16))-(scr(13), scr(14)), 48ã LINE (scr(15), scr(16))-(scr(9), scr(10)), 48ã LINE (scr(3), scr(4))-(scr(11), scr(12)), 48ã LINE (scr(7), scr(8))-(scr(9), scr(10)), 48ã inc = 1ãEND IFãSELECT CASE INKEY$ã CASE CHR$(27)ã SCREEN 0: WIDTH 80, 25ã PRINT "Burning vector by Phobia 1996!"ã ENDãEND SELECTãLOOPããREM *** Coordinates of the cube ***ãREM x y zãDATA 10,10,10ãDATA 10,10,-10ãDATA 10,-10,10ãDATA -10,10,10ãDATA -10,-10,10ãDATA -10,10,-10ãDATA 10,-10,-10ãDATA -10,-10,-10ããSUB flamã' This is how you make a REAL flameeffect ...ã' (the one by Martin Lindhe is FAKE :-) (he's my friend, I wouldn'tã' mention his flame if his wasn't) )ã' It simply adds all colors around x,y into a variableã' and calculates average color, dec it by one and pset (x,y-1)ã' Kinda simple...ãFOR p3 = 50 TO 125ã FOR px3 = 138 TO 183ã pol3 = POINT(px3, p3)ã pol3 = pol3 + POINT(px3 + 1, p3)ã pol3 = pol3 + POINT(px3, p3 + 1)ã pol3 = pol3 + POINT(px3 + 1, p3 + 1)ã pol3 = pol3 + POINT(px3 - 1, p3)ã pol3 = pol3 + POINT(px3, p3 - 1)ã pol3 = pol3 + POINT(px3 - 1, p3 - 1)ã pol3 = pol3 + POINT(px3 + 1, p3 - 1)ã pol3 = pol3 + POINT(px3 - 1, p3 + 1)ã pol3 = INT(pol3 / 9 - 1)ã IF pol3 > 48 THEN pol3 = 48ã IF pol3 < 0 THEN pol3 = 0ã PSET (px3, p3 - 3), pol3ã PSET (px3 + 50, p3 - 3), pol3ã NEXTãNEXTãEND SUBããSUB pal (c%, r%, g%, b%)ã' This routine is MUCH faster than palette (like... 10000000 times faster :-)ã' It uses the BIOS instead of whatever palette uses...ã' I don't understand how they made all routines so f****** slow...ã' Use it if you want to... give me credits if you want to!ã' Lamers don't!ãOUT &H3C7, c%ãOUT &H3C9, r%ãOUT &H3C9, g%ãOUT &H3C9, b%ãEND SUBãDave Shea TILE-BASED ENGINE FidoNet QUIK_BAS Echo 11-02-96 (22:21) QB, QBasic, PDS 218 14311 LEVEL.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"LEVEL.ZIP",4^6:Z&=10463:?STRING$(50,177);ãU"%up()%9%%%R-%1S7sFXu,/gN)7%%Q6%%%.%%%%qj&%jqS#ufq,rQ<'T[_1)I9x4ãU"aCf+)bsY-xCmdN3Vm:*9-_eX:A%e'sNHq^NwvrpbtHnu=W8GN3V;Fce=EsD?2\+ãU"bjJ^.=tnm?[e^XlB=GtRy7LlVw3E*#/P#-ti=1pa$O=0PL#>DlvZ0k-GU+4s8tPãU"?R='?1l];=4Hp9VBmg>?g%?8ãU"6S1,LiU^a\2]eWkH/#tg5.Gc?=H=G]gDH:/gP.srE0q-A[SWw?Z6hf(c]W>psob0p<6ãU"ZUs+\khrtEt>S#erK$NFu7-.T--T3KL]Ge-ldBJmg%$>*lBI-IP^j\z5jgYuMeRMFs**fFS/6ãU")>b?x9T'VqyM+8+NM91-_MVAM*(X$alL13_;>*^9cN/oH<9bC&b>GbJ6x1u5sgJãU"(mTOkIdJW>Q&*gO2l%abKY-K0EUw:3k%)nX?6-$#ICfj2T?1aQk%sl]PM-dXhl=ãU"mC^$uL4JF:>?MuLO54DsvQ5e0kS%Q?c<%m;K%m)meBee6/MãU"NuS>3RHT]>_T-a/r(^WQT5p/#/xdd5cTi2[W_vTTJFZL;SdRKSS4%qsw7I]Ep#-ãU"ii8T+adKN]QN(v_x^IP7p;mIg9heb%Lui^l/JY6,_?O+G^N3DLE73f^#TjfTRsFxhãU"$QmgFdn/H#.r0XxEDz9S9qvTJRQ7ME58_t0GYc0^HulB^u$Hqh]x?1vWlUo66UxmU9c#w,%up()%ãU"9%%%R-%lX\1F;Q=6M]*[%%,s%%%.%%%%nh%tsxS\%lffkhf=[#]9eb')I&oLNxEãU"5-qNdEGT;pckHJLGhd%)ThXbJf45aMM1HI]+QSWX2rp?fdE1NJNRInk6%'%%%%%ãU"%%%m%%i9rue9]$5T52R6.uZkO87EJ-yjDfCrHãU"V5.Q9ITxOP1=J2gT0A.rTED5kph#'DwlG/^lPLr&8/Ns;_caH3ebx:3jV-NJ;mzãU"d$WTXfn=3w6.;VV$ubKQ;M+m2t0lQH(NTsr:E^8/_aT8i0/zhit8s?Sn'mfZEclH/UODs%$md^U&Q>(NTIrfãU"jToTPrPc'gCPV95mh3d..dUVN4huTE\7SM9vlp\9AKq.xP8aaqapZtlwoHu2mHbãU"&wZwHMsWi8N#ZTCP;.=r_?8wsZsuuYD,D2P*F58Ztr6]0r8ZjI$g^iu8woO?XDDãU"pB(T>x^DlyXrt-'[sSx+&N4r^>0,X+FDKtfAN'.N*$vo8ChFD>a/NAuzK)-VEddu%o\6rf>VOV^(\>ãU"=KchR2N%n5L]'$Lti(s_3w&\K*C59,B,Zh7-EmbR,zvFãU"QpT(lX4X4Oj6:Dl#sv?YF$uD3Tfu)Y>(rZY&r1F3.L#6o2vkwJmIRdnx>,&l;H1ãU"xFG/UpZn+l6_MbODc]w^DuCtpHgti*w:[MvXN^2*sPywm*cmwtEZ+ZvB._yN\NvãU"-,>E)m+&VUpv.jS/JS8.SkTo.'0vKu2)\i].yko(B]VZnrXNGHw,kddtIwUAn^m[YK7/lrK$IV.CSKVIfYãU">iU.KS)KIdCP^42RWif$4G?P]1OsK=-&8\'tVnstXmplYArIFTvUwM$cMc;WAVjFYHir*ãU"6Sr*SrVjH89\NR^8^Wx'tN?OHmM7]Xf9Z^^NHk%culw&j86Whbm^BnugZ6D:5,\ãU"W^kL2HFu]6np=Xu)OnPDkP*ãU"F^RbU[g\J2Ppa'w^]oT,V;jNw]c?HDqO#m&CbNKN_u&8:$$X(;g1i5(7HGFYm-8ãU"JZ4Wh^lfstqtX-GBCZ^'kdxsg$HJ]Hic.HwZ+NZqC=-wi\;4SldEGn^Nl_uhn:4NxI8Qdura>:Dw;u[Y4\Nxki,V8NHZq9C-w]>N_u>%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%ãU"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%=c>Xu%p()9%%%%-4%cWsgF)L<%DN)ãU"%+%U6%%%/%%#%qj%%jqWS#ufq,hf*]f[O1ixr(C_IphW:59?d+#ax^l/WMw0&%7ãU"M<)>b8$Tuwwvp4Lp6x/U2pUfe\cF#u63U?hx/osaXq6Rz_\T_msVWfaoKeT\o-,ãU"pNp%hm#p=vZ?F\Ucdh]vDX5ipPWFW85;J[q\yeX+6IbAp#[+2Z2]ZolI9:mXZXEãU"1H;6[4#WE'V0W?ujXq53w_t0872GiLKPlFAz,EH7[LQiOj$qF+VJh[SzlN3;8i.ãU"l.;%YxYNz2zQX35naB*ho_Lh'6eS]X&]Wp%t%QZ%f1N+m?ep.AxBeL'WyX\.%/lãU"cSB_jK)QT67k;HZj&X=_l,G>qk;'26>e7&/HCe)y1+eV.,3R5N.FHNMk3tJ&sorãU")ae8nTK02iAfKf-jP60g\zQ-qi,%G\)3V\s^sGh++rleHT*LGVi5i<_[0VBt4haãU"BF=HB1TiPmTU:#>E;_elj6;dTM'sM)_LOh$bnãU"bzANbKK._\DsFQ)ynL6^1al;\leRe:.cw)iKnIk?5PP,>'&I45(*F$NRwIT/kIQãU"g'o)6*/$Ewx,%U-u>C%3>MWyCZETEff^1_MPRGQ:<:,pYg]QlF$L3boT#R3G4*CãU"8_KãU".lGP*8L;=,TbG.,3-B]AV#L-K4uLve^y.vD<2CMVJ)jhA\ov5M9dq=A8D:=,ND)ãU"p.9o'JPal\.(.'nG:2wd23sv$B%=Eh3ENlMM$Q(lQ%.f87<;SS?NYW$:v7EQpnVãU"bxfqVeb_W:PVSSao('23sQ5sr&r>J=/Cu'MlQoM%b*FlgPfPY$=9*jZIT*R.uH(SAitx'fGSãU"7k947_fM^AnL*#Vw5w5WiK/nWK\$9)nBS/g]0S0Q88y*:TFBZzo9mOI/o('rjoFãU"dlH7\CHt4QjdqiIM=aLC22<+h\.L8rckd%up()%9%%%#-%IY/1Fjh,Pq..7%%SCãU"%%%.%%%%qj&%jqS[gfx&k(x>[917xBkXx0=Zno;:*3Y87FESbx^YpjDm\&tSaotãU"p'QFg%q;tqm;tC3xvrF[fYqS_'-o(w:o*E6aC>^#\FeYTU$T,=_nkJI*6acVLdbãU"Vm*%P565a<_FdYMLivjHP$()2cMlKXp)ir-x)qtX/]R9_b;w_#]%SbLB'ZV-#-eãU">:JVLqbbnpcYQ..0>6<%]U2b$j?n7<[l5[=HBD+*o'2lN.P4I[_+vaQUG#J/F)lPkUUQDDukkk4:JSXiãU"UC+XIEX(SD0tGLqSn[+fPRp&:VczRqfNORpnfk$cFfD_k,+]L6(^4is/kM$fh95ãU"+Jisuu/aDPZV.*9Qe+l\jcfOJ-^6N6%YOm?.ãU":j\/]+k:;tUbXbDAkauRL[%&[dsQX/#5AXY,6Q?3DnzR?whiDh<2Rm:d='IWPYQãU"AUg>AP-H$U=XT[DG2UQY(a\lrsY[\k:QdR_WDSlqmnu+dnLCj\IF2wtNunS]lO'ãU"W,H%E,;v-d2+L$6Y4Cg%tsThxwMeo1fãU"]j'QZko)=lEEAvyu$JWjfb-PBJ=l$*o'GDl>qI&e&$(LH(Tf?Ao-9.VIvyDu=93ãU"\OAI\uCGD-9-(])^Fi-EKUH-gg:RLa&mLaQ)Obvn87M%_^t4;Y:2FjIVf#TW.<<ãU"&ra)02jWq#m\XpKLW\c^.#B&tvd_mWE31=M_LeIG^_Ysg3;CYK,pZRqLJ>0ye]ãU"*U<#U(^[q5_::8?>_E,fJAAIRqn0a3o>F[G(m6rOnEYD]=1'Oq9rRd&YC(&V5sLãU"kEIVbJ3U-'8F[U\t$a9[ROChH#v8#52pk3I;\$q5v(HBHãU"HEO?68w6JTe?3vSxk>U&]*&k4_dg6A7f6h'qc]>hHlGogc+&r1>IOBxLc8;?n?9ãU"#yS+LLcPd(S=Y44l\^W*]UW9)Nc1FaI-X1ZWPV\D5Px7ftFQ'Qc.7Q/*gQ8l=Zg[0qrw#pK8[QOMRaGrw1'Ze3WTH6\>/-NjãU"s>X1Kh>W;^dQRIRQSl3uqZ,S*fA&a9/uZ3a0\2fWfx#S-#^rc]/$kTJB&$Fahk5ãU"Cq3q%Ef]yrsZdJJ7E_*Yg<.M;\0CXX6Ku[zE_tT+2fnHLWRp(chc(fm54-[jH_$ãU"hEDjBEj#aFQ01V+;T>cl0/>he1zUGh:c=Ml9/>$k1yHBM,9^TcXC1/hKm&ziW(*ãU"TBjs0*20j,-*0^Ff:;MAUWNp>\9(un5O]Y)kxEYti9nNS/=^S_ED7FvIjF4il1fu=Vf'%z1mrShãU"bljCL)v60DEaaFu\+nãU"^GQq:S2A5=[6wigxj*+FY'#cL)z]>2EMgB(tI+*Xf+X9gP,C.iLpH>I,x($1t35ãU"C$nSE(N9X8MP9ZqdjB+&dn$,03thmAZH6=HX#qhK(5Gn>&f#vG,3e\TZ+u;A(#kT-HYQK(6LdJV+=>XB,[1(D#e7tPãU"$1D)C1n&T)1/E#D-_jJohIFDgV?MOjGnx\UK?GLKPM8GKt=QYQ+5-I6Cvc2CMk_ãU"iCartY5YDR,n2>?2z*l%+xZlF_yIl#]&A60SAM_$rXY#f4KQ2cl#2EW-Oj*h[oOJ;b;ppAI[gV+b4-NtX:U)s5<2VE3cz#huv>A0OJM=&ãU"dw'rOzP-1\QIX26=UhSn+<0n=)#MEr?2.T3-8+pK^bD4TxIhbX'tK%u-LTl_SOs6NIEL44v0eN697vUU:XOl/Wg.MjVMLtRVH,/NX574ãU"ktn\0=)HVn:(c7U&<$pbdU*4W5N<[sGHw6ta6NCbBxzBifJHgW$nIjkRk%#p\HVãU"9-O\fBZ,0>Zr$':qX,H+^nQA*m(&Spy;4_nvMWyZd,PslfH+ãU"MzU*rE9HMZJ4gZ(#$$aj2WI8^/4vbh)1l0vMUphB4_t6\/u?n'>](\r5z*%O(bDãU"#*v>zX1jH#UpzC(s>cX\EdxeXEc,:tFEp2ndPlHNEt)391zJ9^HA(aHi^goK1BAãU"gdLyycd2U;rKdi.ac7u2p[229Ag?Rd,-HvW^w/X9-gm,VCA+eazSE1wIa0v8]_=ãU"D9nBLz,[>%+0NeJ#x_s[DKu?ZE[X5Pa^t=9mQX-\Jn;qq)5gX3/hC/LBd4q.EA7ãU"?=Z5's7evmvOw(ccrNUMmJVvgdJ$yxV:-H^a/q/q>j]x3B8c[WJGhwJSND2Sm1KãU"7DPM-6TQPtCXTrF()$m_[1u[08:3>JviM'V8WruWL4+6)WdrB]0Y).3;x>8g0tBãU"1KF38cBfb1,r:+Z((retcw7f^cxYu.LARf&=qL3?)97jJ3cO#CIvbui_QB1Q;qXãU"<'aRIu(>G#x4%up()%9%%%#-%^fIsFjj9VI'4%%%te%%%0%%%%qj&%jqU%ZSifgãU"yd*D>=\C3]U4U8g7Oa[FtITGMN0W)4+S76Z]X(i)^1vc924HiD#3byJZz;E>z6RãU"p[\:vJrvIBnrgk$$uxjs%Q0lKY;y.F[urOo_HxqBNi]02\jlt(/-dhDh27n=+LvãU"Ed,B'#bn]#Vr#qC[xrcdSqjb67BhuuFnd;QGG?gT*1WIiãU"SD;#:lX#6lY/jqnY7\PDN?Hmy&[o*q._$qiH,]l77fGEbR3v/OX\'/.jEpB)+]vãU"VD(O4Y,P^Hq(*>t,(f+EQ^hkhãU"6xG?(tãU"i/Y9^-33/R[ncUe(5O1O1q$b'p5B)7FB-E?jmtkq^TubPo5#r3;Qd_c&R%VqT%9M>&2Ik&5ãU"Xh14n;Am,,SI5]+=>=^PsxHj.JG(mp;TDv14RW[o^38)V$U+c7)EL0egXZqN2yHãU"U;s29k*niZ7Oe2Iwd;6)7+Z=^s3DXRgZ\vu7O/Al5ng&;Y&(w17s'Z*v\OV8S7aãU"+=tP,qXdA$6MBPUvRl8,7Jq7s5P>GBieHm+ojiC%66cKFjIar>X/eGY7Nq?&]eTãU";];J:pNu)u#WADu0&)Y0R5PJ(a$HjJl/-HKAG#Z+7)yo?PtQ::q)[5aiYãU"+FdrPcVV_f(M6o7QZa2OgYp&.7$RB$-B'7sGVGEb_%3&&*iLrJbGcq]-FJB\L7$ãU"l0:'-NW4%5MXTf#D3x/;^sKGaS)5N'a9h.(Oh:1s'5q_PUU]57j6's\,HJ$e2eoãU"a:MJ50R:Y>\hg/ChCgSj)-ZP#6:,-h$chw^mHdi'9Ye73/SPvUrh(7(=gh)[YJ$ãU"xJV_2]][=l_/-RZqliUUofer9$&*w(V4kzEs.'7MlBfpGeW#[utaNfEcxJ?/,%nvTxi?[ptk>lH]ãU"aOvd6ePg7o'R=VyQWa;][7^k8'1E&2-;B=y:kWEF2CP)mZAi-'5/(-Ht9BmR))%lKep^=5aOWi4adg36Zh?,9FoLr+1?N%J+ãU"Y?\HvWH\t;6g^1B^1\aEBSDM),7XH%erY8ek$d(%5j3ln'a]1=P,E)0oSe)RO*>ãU"dNd$^PDp^7'6(<^bDl6PgNN86JB\'?5RLe6)IBY&i25qofmJhidHn#S9U<9B)[95'2'Pq'4k*ãU"nVFsQ,/P?=Ku[M-YNtYW'R-IB9vsdw01Xsi1OK,rCnwRD7xuKSTxa/N8zPSu_NuãU"MOM'hI1#NRKt+Z&GUk_7f-^69$I;([r#Mz0vi0A>Nt]*a>&y)l\#,,Jl5mr.%wU.31u=(#QRiSJ#c^)m41.T5K,88vrmLM-^nf38H,5:4VQmikãU"F*EKby&yZ^d=y\T,'%^I_kKcnI6hHRyãU"ar7irNIq_Vk&+x[X]jMLDPL*V4fZ/vQ0\QgIRtxJL=,ZOIK2zcXzv5z+Z,Ds7Y9ãU"aetb,-bTtR).)6Nc\6>*;c(0CvfBOB5LSM6fE+A#+&C/QLigQ%JbNE7_KLp?7_S[j\#L[%6++ZfXE;-\(K9?*=-JSg)cY#BV[A5GwQEiH(oj#EW',uq[+'=jN#HE&;i-8Nn)m^%zXR4UMãU"&'d>,QhApi0#J?]v*uGi0)/OSWoQ5_tKqGdo_/v\eNxHaOXfHXGFYp?#(eG)?p$ORb1q*xpf.)QW7jxj'n+YBr1TJPx*AqBQg:7PQmo$x2d=#)uo6=D5+-^)fAtKpVãU".XU4h[yo/2?XC&XB#m*c$1QRURãU"k/PO*MK'u_WM7Rg9:uokjetBo>*.YzuJq1GN=U)[$hD(OwNEQ?cu%N8T3?A\_XbãU"Vsye\GKi'*oY&gCRkG/Kw#JV&,OCZ8%hh>$&]D8._E%dhJm('J3,'1ok):6)X(/ãU"F(;9/[mZJipO4uSs778BL>Ira-NiEi](I]/%]m:LKF<+Qd+XahEC*WT*Vc]AP[&ãU"Qg#5?TGI#nnG7W$],DAHwRe/[SiZBOKu-hTZ*T?k[?G/hozNm>RB/K_T+v(T:m[ãU",7ghW7$eFndZZQSPxb1p&O3lP:=61ub?>0sjEd#cImL5r:9rBX;dj3J'&O?NEN1ãU"N,R3;b(MqCqTQ<>2tE=Q+_jkc)2p-]#H^-O'XFRvp:IZTRo(wjgLD)hPu>tgHãU"Z&op)IMd2d])Quk-#dFS#TWkjWFd(%q.Cg9Ync>$_:pp?O3j_[*c=5sD:oCL[\nãU"vOKfsM^D\LA--ggyPCVq8+>NnKu==g=\o.&l7S1l(s,C-q:7M[tjIky%+F&&&DoãU"&;me11=TmDQ=NT(/)a)n$mdnRptH8/:Oz.25q[P(8TZcj%3Rp0tMDdP(J'nqgnI=o[\3nZ(EW%K[xI(buGB_he3\7yFuv.kybE>ãU"T0.[hSaG3Bb1io(.)'JZF-$Q[GJm3^Re7^DTT)saIHiE%03*VdKE;&F_7PHhc[_].5i9KL/e?])zNU4Aj;+;DyXo[6Rjn8IlB8[c#fK\;j4#t_ãU"td^xZV:\981nnkOfK(.8t$(z*Aj#mSyWP##[?mwTX#hqF4]ãU")LD8)XT.fH]*Y7YS?NK-eaLDt7[JRCIi/wdI7&zjpYp>5<&?j.atn.4p?s_^>):ãU"'i_iOIngj6+8Vdg-/QVK*..Iy$#>nf340s[*HYz*W4\ZNt(DCax07F&'7-A?%NCãU"a(uIV^n0H)JS/8XRGY=Q8Mv\_2xfEcbmG+%EOe0ifuWkj98E:8#HsZZ.gaZSz1ZãU"OW.>tTk>X<.*r)3:%Xs/ãU"NOp6fZ7Ru[r3pd&x*1LlxS'6[sy3cOK+0CQ%fj&$,OZ6-4rBlY#h4&1['?jyOtWãU"3g(MEMIHU^gCvP.4wkV(m4b+GH/$gR%ROB[ehY(B,FãU"LOmAp$HG0f.DZIim\4(#*a\mG^>eZ^\ji3u88=EAna>%m_GEAz'2??hr2mRyci,ãU"=USj(9'(15OB7E4meaM.iaZU/ql']#pO7s6EYQH=LpD8&Jhk#O+O0jE>0hd[NV]ãU"'$3tI,5AD\ljhFEJ'H4JEd,v]i-)4BiuclvS:'T5)23CUZ5fb7,DD'76:nlD(#\ãU"$;>2e#0^tsE.d(N>s=-,*wo49bQ\E%/gp\iEDk8^#._rtY_$dEngS38eLVS?[GBãU"cEs%+b&y/#l+UbN0JP#4('0pueZu(*i3gWDd,^#HC>dagB\F-X#0J5Aw2)1>04pãU"d=:WG%v9mZ[\'%ObisV1KD5.a-jCZ(#nNXwHUjoe6hj9\8BjR+TLG;*o=x%+]*RãU"W2L(u01Rv9/7XUf1]Uz,1eR7'^Btjq%jY(2PUWJ0Ofi(*Atz6$;YoI3C_sb1]-/ãU"FeH3BmU6#d45SN+jptOflM'Z=X81KaWhHm.C5GWqwp)FOvjkG$KãU"ZBU2G'[F%w1j*[&A.zNkyA/Pn^DqkvO5kvZ1i?c;rYb.Gwt;6/n-=\nL::kC7-6ãU":s/D'xj?WP7k%l[YT.YPPr$:%hVn65+U=08k(;#t1EHO7q\]Q/Idn:?7R*<3;N6ãU"JS#f[G;\hedv6uc\_9Jl-oaHHBbM*b&3,<+.G](ot+fj_%bZ-Ig0a\4kw-Et,e'ãU"/+oG;a%.I';;q2):c%aW,9Q\o0/IPIL[7z2o^S$e[:HaUDRuBVt^n,O_[>x4QhmãU"m6)5GJVqZPBoVUiIY*&IpOkt+F=IOH7;G$i+q%rjS'I=\c)J$CPbNkãU"]$%<**CfB2R;9K6Y;9;Rlkf0>\_zueho7s4ius'0hXRUP[SPaB?1h[s4Ew=2ne;ãU"H4t>dvU;[xH#6E'Rqt$c)9i5%:RdtcnGucIY51$qR]t%[krgi#&BvY*f7YUwkrr_wZ#4TP>$'u=FR[BZjhrXEx-Vl(+Thru7ãU"8?vZiYkR-?MF9f<2FzFE\(k8=zgzyYoitsWNFKgK$1kr_wFd&[84x3._dxed\:2TxdPsE^Uafp^\H0QTLs>N>t3.fvUQkdf:&99KkUr$hNnxbr.ãU"rfcXRpLt'\>F^u]EtLb=pd_SD1>AQAitLJkZrHp.>MuUdkDx-u?qj\LtMuqjd8dãU"Mu-qj8dYMuqXdDdMu*=^DdYM[#^mDdj\i#^nqZj\#^tnqj\o#tuqHj\LM?uqj8pãU"dMuqAXDdM6u=^DpdMu=A^DdMQ[#^.X^j\Fk&86&AXDdMhNfPXDJD-pi_fzpF68zãU"Kq(OuqW2Mh*t[*'dtgn4unU*]#0hCt0Y.mwff0fx$_zBQqdFD7zMj.U9Ll0[d+z[ojy(';+8eEVsIg()XTãU"*kyed%#wDKKS#ITRhc_l5s[;sy.WQ0A;iL't>gWQZ4u_PvnuHt_;%YqHo(WWUfãU"e6;ro,k-&#(+t/y5:oq\kJJk6Ec-Z.$7=C7lxqEP/6r2Hb9)MgXkruRB^))kJM7ãU"lDt4PbCEW1u5_LHf4bAY3CgJe2]*SoA9Kc'w\/kfu35LC$>Cm1MZXI(&U390]ZaãU"#cRc_*%76Ir7/k2:I>cG0lW^o?neOk/A82Nq+jU9sb;bhJVKoX3t%vJ>?8a.0APãU"B8A%n.>?R:6eB:V&=5oQi(L'mWc7Uk*#AVwhJ#4y)GcYH(2XNOPtoq7bqSof+L2ãU"5h3*W=aU/U)cO2F6S?joRp5YLwpb#giSqXNpsPK9bbGX-BWS)3>goZB*IXd[)VcãU"i*HG=MKl31O<;MjAsg*?oL:(Y=?>V04*8.K7Z)7l_)lk4HiZjb^gLSgU'w;Sl:>d45Y2m-jV8+,jJ-#d8Igp'sV=.$83V4>A1/+5xq5&ãU">/5c'RKf,U'Nm[tl(vOUYuOi3bN?p1PrhkSd/Mg?Skv\%up&'%9%9%%%%-%2Ik.FfH^qk%L'%%+,s%%%-%%%%%ãU"%%%%&%E%%%%%%%%%ifA&lS%%lfup%&'9%%9%%%R-%jl8.F3O'3cJ'7%%4.%%%-%ãU"%%%%%%%%&%%E%%%%r'%%.if&l%Sgfx%up*+%%%%%%'%'%&;%%%&g)%%%%%ãEND SUBãCLOSE:IF S=134AND 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ãTika Carr SCREEN CLEARING ROUTINE itaiya@juno.com 11-14-96 (14:45) QB, QBasic, PDS 178 6560 WIPE.BAS DECLARE SUB wipe (mode%, switch$, Colr%, Speed%)ãã'Screen Clearing Routinesã'by Tika Carrã'Donated to the Public Domainã'No warranties or gaurantees are expressed or impliedãã'Here are some Screen Wipes to use in Multimedia and other applications.ã'The horizontal and vertical blinds are rather slow, so if anyone comesã'up with a faster formula, do let me know! The routines may take longerã'at higher screen modes (like 11 and 9, which are 640 across).ã'ã'Its use is pretty much self-explainatory. First, you pass the video modeã'(supported are screens 9, 12 and 13). If the video mode passed isn'tã'supported, it will default to the 320 x 200/256 mode and do a SCREEN 13ã'command, which clears the screen to black without effect.ã'ã'The switch may seem the most difficult, but really isn't. Look atã'the comments in the DATA statements for more info. Basically, itsã'wipetype/diretion where wipe types are vw, hw, dw, vb, hb and dbã'and directions can be u, d, l & r combinations.ãã'The color is the number of the color to use, which depends on the videoã'mode you are using. And speed controls the size and speed of the wipes.ããSCREEN 13ãã'Wipe DemoããFOR i = 1 TO 18ã READ m%, s$, c%, p%ã wipe m%, s$, c%, p%ã SLEEP 2ãNEXTããSCREEN 0, 0, 0, 0: WIDTH 80: COLOR 7, 0: CLS : ENDãã'For most of these, the higher the number, the slower. Except where noted.ãã'Vertical WipesãDATA 13,"vwrl",1,10ãDATA 13,"vwlr",2,10ãã'Horizontal WipesãDATA 13,"hwud",3,10ãDATA 13,"hwdu",4,10ãã'Diagonal WipesãDATA 13,"dwlrud",5,3: 'or "dwudlr"ãDATA 13,"dwrlud",6,3: 'or "dwudrl"ãDATA 13,"dwlrdu",7,3: 'or "dwdulr"ãDATA 13,"dwrldu",8,3: 'or "dwdurl"ãã'Square PixelliteãDATA 13,"sp",9,2: '10 x 10 squares (instead of "speed")ãã'Circle PixelliteãDATA 13,"cp",10,2: 'Radius of 10 circles (instead of "speed")ãã'For Horizontal and Vertical blinds, the lower the speed, the faster theã'displayãã'Vertical BlindsãDATA 13,"vbrl",11,3ãDATA 13,"vblr",12,3ãã'Horizontal BlindsãDATA 13,"hbud",13,3ãDATA 13,"hbdu",14,3ãã'Diagonal BlindsãDATA 13,"dblrud",35,3: 'or "dbudlr"ãDATA 13,"dbrlud",45,3: 'or "dbudrl"ãDATA 13,"dblrdu",55,3: 'or "dbdulr"ãDATA 13,"dbrldu",65,3: 'or "dbdurl"ããSUB wipe (mode%, switch$, Colr%, Speed%)ããSELECT CASE mode%ã CASE 13: mx = 320: my = 200ã CASE 12: mx = 640: my = 480ã CASE 9: mx = 640: my = 350ã CASE ELSE: mx = 320: my = 200: SCREEN 13 'DefaultãEND SELECTããswitch$ = LCASE$(switch$)ããSELECT CASE switch$ã CASE "vwlr": '*** Vertical Wipe - L/R (VWLR)ã FOR x = 0 TO mx STEP Speed%: FOR y = 0 TO my STEP Speed%ã LINE (xb, yb)-(x + Speed%, y + Speed%), Colr%, BFã xb = x: yb = yã NEXT y, xã CASE "vwrl": '*** Vertical Wipe - R/L (VWRL)ã xb = mx: yb = myã FOR x = mx TO 0 STEP -Speed%: FOR y = my TO 0 STEP -Speed%ã LINE (xb, yb)-(x - Speed%, y - Speed%), Colr%, BFã xb = x: yb = yã NEXT y, xã CASE "hwdu": '*** Horizontal Wipe - D/U (HWDU)ã xb = mx: yb = myã FOR y = my TO 0 STEP -Speed%: FOR x = mx TO 0 STEP -Speed%ã LINE (xb, yb)-(x - Speed%, y - Speed%), Colr%, BFã xb = x: yb = yã NEXT x, yã CASE "hwud": '*** Horizontal Wipe - U/D (HWUD)ã FOR y = 0 TO my STEP Speed%: FOR x = 0 TO mx STEP Speed%ã LINE (xb, yb)-(x + Speed%, y + Speed%), Colr%, BFã xb = x: yb = yã NEXT x, yã CASE "dwlrud", "dwudlr": '*** Diagonal Wipe - L/R U/D (DWLRUD)ã FOR i = 0 TO mx * 2: LINE (i, 0)-(0, i), Colr%: NEXTã CASE "dwrldu", "dwdurl": '*** Diagonal Wipe - R/L D/U (DWRLDU)ã FOR i = mx * 2 TO 0 STEP -1: LINE (i, 0)-(0, i), Colr%: NEXTã CASE "dwlrdu", "dwdulr": '*** Diagonal Wipe - L/R D/U (DWLRDU)ã x = mx: y = 0ã FOR i = mx * 2 TO 0 STEP -1: LINE (x, y + i)-(x - i, y), Colr%:ãNEXTã CASE "dwrlud", "dwudrl": '*** Diagonal Wipe - R/L U/D (DWRLUD)ã x = mx: y = 0ã FOR i = 0 TO mx * 2: LINE (x, y + i)-(x - i, y), Colr%: NEXTã CASE "sp": '*** Square Pixellite (SP)ã Cover = 50000 / Speed%ã FOR i = 1 TO Coverã x = RND * mx: y = RND * myã LINE (x, y)-(x + Speed%, y + Speed%), Colr%, BFã NEXTã LINE (0, 0)-(mx, my), Colr%, BFã CASE "cp": '*** Circle Pixellite (CP)ã Cover = 50000 / Speed%ã FOR i = 1 TO Coverã x = RND * mx: y = RND * myã CIRCLE (x, y), Speed%, Colr%: PAINT (x, y), Colr%, Colr%ã NEXTã LINE (0, 0)-(mx, my), Colr%, BFã CASE "vblr": '*** Vertical Blind - L/R (VBLR)ã FOR i = 1 TO Speed%ã FOR x = 0 + (Speed% - i) TO mx STEP Speed%: FOR y = 0 TO myã LINE (x, y)-(x, y), Colr%ã NEXT y, x, iã CASE "vbrl": '*** Vertical Blind - R/L (VBRL)ã FOR i = Speed% TO 1 STEP -1ã FOR x = mx + (Speed% - i) TO 0 STEP -Speed%: FOR y = 0 TO myã LINE (x, y)-(x, y), Colr%ã NEXT y, x, iã CASE "hbud": '*** Horizontal Blind - U/D (HBUD)ã FOR i = 1 TO Speed%ã FOR y = 0 + (Speed% - i) TO my STEP Speed%: FOR x = 0 TO mxã LINE (x, y)-(x, y), Colr%ã NEXT x, y, iã CASE "hbdu": '*** Horizontal Blind - D/U (HBDU)ã FOR i = Speed% TO 1 STEP -1ã FOR y = my + (Speed% - i) TO 0 STEP -Speed%: FOR x = 0 TO mxã LINE (x, y)-(x, y), Colr%ã NEXT x, y, iã CASE "dblrud", "dbudlr": '*** Diagonal Blind - L/R U/D (DBLRUD)ã FOR j = 1 TO Speed%: FOR i = 0 TO mx * 2 STEP Speed%ã LINE (i, j)-(j, i), Colr%ã NEXT i, jã LINE (0, 0)-(mx, my), Colr%, BF 'get rid of rough edgesã CASE "dbrldu", "dbdurl": '*** Diagonal Blind - R/L D/U (DBRLDU)ã FOR j = 1 TO Speed%: FOR i = mx * 2 TO 0 STEP -Speed%ã LINE (i, j)-(j, i), Colr%ã NEXT i, jã LINE (0, 0)-(mx, my), Colr%, BF 'get rid of rough edgesã CASE "dblrdu", "dbdulr": '*** Diagonal Blind - L/R D/U (DBLRDU)ã x = mx: y = 0ã FOR j = 1 TO Speed%: FOR i = mx * 2 TO 0 STEP -Speed%ã LINE (x + j, y + i)-(x - i, y - j), Colr%ã NEXT i, jã CASE "dbrlud", "dbudrl": '*** Diagonal Blind - R/L U/D (DBRLUD)ã x = 0: y = myã FOR j = 1 TO Speed%: FOR i = mx * 2 TO 0 STEP -Speed%ã LINE (x + i, y + j)-(x - j, y - i), Colr%ã NEXT i, jãEND SELECTããEND SUBãThe ABC Programmer DISPLAY WINDOWS OR OS/2 ICONS Converted from Pascal Code 12-02-96 (17:10) QB, QBasic, PDS 49 1117 ICONVIEW.BAS'===================================================ã' ICONVIEW.BAS by William Yu (12-02-96)ã' 100% Public Domain.ã'ã' Procedure to display WINDOWS or OS/2 ICON filesã' Modified from Pascal code to support OS/2 Icons.ã'===================================================ããDEFINT A-ZãDECLARE SUB LoadIcon (XX, YY, IconName$, OS2)ããCONST False = 0ãCONST True = NOT FalseããSCREEN 12ããLoadIcon 100, 100, "ABCREAD.ICO", FalseããENDããSUB LoadIcon (XX, YY, IconName$, OS2)ã x = XXã y = YYã Icon = FREEFILEã OPEN IconName$ FOR BINARY AS Iconã IF LOF(Icon) <> 0 THENã ch$ = " "ã FOR p = 1 TO LOF(Icon)ã GET #1, , ch$ã q = ASC(ch$)ã IF OS2 THEN Addon = 250 ELSE Addon = 0ã IF (p > 126 + Addon) AND (p < 639 + Addon) THENã r = q \ 16ã rr = q - (r \ 16)ã PSET (x, y), rã PSET (x + 1, y), rã 'PSET (x + 1, y), rrã x = x + 2ã IF x = XX + 32 THEN x = XX: y = y - 1ã END IFã NEXT pã CLOSE Iconã ELSEã CLOSE Iconã KILL IconName$ã PRINT IconName$ + " file not found."ã END IFãEND SUBããThomas A. Hirsch SNOW FALLING AND PILING UP thomasalh@geocities.com 12-03-96 (16:23) QB, QBasic, PDS 53 1221 SNWTREE.BAS SCREEN 13ãRANDOMIZE TIMERãanz = 30ãDIM a(anz)ãDIM b(anz)ãDIM c(anz)ãFOR j = 0 TO anz - 1ãa(j) = CINT(RND * 300)ãb(j) = 0ãc(j) = CINT(RND * 5) + 25ãNEXTãCOLOR 2ãLOCATE 5, 5: PRINT "SNOW . BAS by THOMAS A. HIRSCH"ãLOCATE 10, 2: PRINT "Greetings from FROG COOPORATION too!"ãCOLOR 4ãLOCATE 15, 8: PRINT "MERRY CHRISTMAS"ãCOLOR 2ãLOCATE 20, 11: PRINT "Quaak"ãLINE (250, 130)-(265, 150), 2ãLINE -(255, 150), 2ãLINE -(270, 170), 2ãLINE -(260, 170), 2ãLINE -(275, 190), 2ãLINE (250, 130)-(235, 150), 2ãLINE -(245, 150), 2ãLINE -(230, 170), 2ãLINE -(240, 170), 2ãLINE -(225, 190), 2ãLINE -(275, 190), 2ãPAINT (250, 170), 2ãLINE (245, 191)-(255, 200), 6, BFãDOãFOR j = 0 TO anz - 1ãp = POINT(a(j), b(j) + 1)ãp1 = POINT(a(j) - 1, b(j) + 1)ãp2 = POINT(a(j) + 1, b(j) + 1)ãIF p = 0 THEN LINE (a(j), b(j))-(a(j), b(j)), 0: GOTO zoppãIF p1 = 0 THEN LINE (a(j), b(j))-(a(j), b(j)), 0: a(j) = a(j) - 1: GOTO zoppãIF p2 = 0 THEN LINE (a(j), b(j))-(a(j), b(j)), 0: a(j) = a(j) + 1: GOTO zoppãGOSUB neuãzopp:ãb(j) = b(j) + 1ãIF c(j) < 30 THEN b(j) = b(j) - .2ãIF c(j) < 28 THEN b(j) = b(j) - .1ãLINE (a(j), b(j))-(a(j), b(j)), c(j)ãNEXTãLOOPããneu:ãa(j) = CINT(RND * 640)ãb(j) = 0ãRETURNããDavid A. Wicker VGA CHRISTMAS DEMO david@fastlane.net 05-26-96 (10:02) QB, QBasic, PDS 375 9461 TREE.BAS ' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ã' ³ * SCENARIO BBS VGA CHRISTMAS DEMO * ³ã' ³ ³ã' ³ Written by David A. Wicker ÄÄ (C) 1996+ Scenario, Inc. ³ã' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙãDECLARE SUB PPSET (H, V, C)ãDECLARE SUB SweetLine (X1, Y1, X2, Y2)ãDECLARE SUB GPR (H, V, T$)ãDECLARE SUB PRGB (C, R, G, B)ãDECLARE SUB RGB (P, R, G, B)ãDECLARE SUB CRGB (N, R, G, B)ãDECLARE SUB DEC (N)ãDECLARE SUB INC (N)ããRANDOMIZE TIMERãã'ON ERROR GOTO ErrFoundãSCREEN 13ãDEF SEG = &HA000ãRANDOMIZE TIMERããDEF FNR (A) = INT(RND * A)ãDEF FNN$ (A) = MID$(STR$(A), 2)ãDEF FNO$ (A$) = LEFT$(A$, 1)ãDEF FNC$ (A$, A) = MID$(A$, A, 1)ãDEF FNVAL (A$, A) = VAL(FNC$(A$, A))ãã DIM FontIMG$(96)ã FOR I = 1 TO 96ã READ FontIMG$(I)ã NEXTããFOR I = 0 TO 254ã PALETTE I, 0ãNEXTãPALETTE 255, 47 + 65536 * 63ã ãLINE (0, 162)-(319, 162), 255ãLINE (0, 189)-(319, 189), 255ããTextSize = 1ãTextColor = 255ãOffSetY = 1ãGPR 19, 13, "Just a moment..."ããDIM I.ScrTxt(3841)ããX! = 0ãLY! = 0ãFOR Y = 0 TO 130ã C = FNR(12)ã FOR I = 160 - X! TO 160 + X!ã PPSET I, Y + 10, C + 32ã C = C + FNR(4)ã IF C > 11 THEN C = C - 12ã NEXTã X! = X! - 2 + SIN(((Y + 10) MOD 20) / 40) * 11.5ãNEXTããFOR Y = 141 TO 160ã C = FNR(12)ã FOR X = 160 - 20 TO 160 + 20ã PPSET X, Y, C + 66ã C = C + FNR(4)ã IF C > 11 THEN C = C - 12ã NEXTãNEXTããREAD A$ã FOR I = 1 TO LEN(A$) STEP 4ã X1 = FNVAL(A$, I)ã Y1 = FNVAL(A$, I + 1)ã X2 = FNVAL(A$, I + 2)ã Y2 = FNVAL(A$, I + 3)ã SweetLine 160 - 12 + X1 * 3, Y1 * 3, 160 - 12 + X2 * 3, Y2 * 3ã NEXTããC = 0ãFOR V = 20 TO 161 STEP 3ã FOR H = 0 TO 319 STEP 6ã LV = VãMoreLites:ã IF POINT(H + 3, V + 3) > 0 AND POINT(H + 3, V + 3) < 62 THENã CIRCLE (H + 2, V + 2), 1, 48 + C * 2ã PPSET H + 2, V + 2, 49 + C * 2ã INC Cã IF C = 7 THEN C = 0ã H = H + 6 + FNR(3)ã V = V + FNR(3) + 1ã INC LVã GOTO MoreLitesã ELSEã V = LVã C = FNR(7)ã END IFã NEXTãNEXTããFOR H = 0 TO 319 STEP 4ã I! = RND * 2 + 1ã C = FNR(31) + 1ã X! = Hã YY = FNR(162)ã FOR Y! = 0 TO 161 STEP I!ã IF POINT(X!, Y!) = 0 THEN PPSET INT(X!), INT(Y!), Cã X! = X! + SIN((Y! + YY) / 10) * 3ã INC Cã IF C = 32 THEN C = 1ã NEXTãNEXTããT$ = "Seasons Greetings From *Lost *Scenario! "ãT$ = T$ + "SysOp: *Topaz Co-SysOp: *Primrose "ãT$ = T$ + "Here's wishing you the very best for the holidays and a "ãT$ = T$ + "very Happy New Year! "ãT$ = T$ + " Scenario used to be a BBS local to Fort Worth, but has now "ãT$ = T$ + "moved to the internet! "ãT$ = T$ + "*Scenario BBS specialized in file transfers "ãT$ = T$ + "including crunched GIFs and JPGs, unique and original games and "ãT$ = T$ + "tool files. For Message Bases it had: Time Wind's Tavern, "ãT$ = T$ + "Primrose Erotica, Philosophy Base, Swap/Trade/Sell, and The "ãT$ = T$ + "Warboard. "ãT$ = T$ + "From all of me to all of you, *Merry *Christmas!!"ãT$ = T$ + STRING$(50, " ")ããFOR I = 1 TO LEN(T$)ã A& = A& + ASC(FNC$(T$, I))ãNEXTãã'Bad: IF A& <> 87735 THEN GOTO BadããFOR I = 0 TO 15ã PALETTE 32 + I, 256 * I * 4ã PALETTE 62 + I, I * 3ãNEXTããFOR I = 0 TO 7ã PRGB 78 + I, I, 0, 7ã PRGB 78 + 8 + I, 7, 0, 7 - Iã PRGB 78 + 16 + I, 7, I, 0ã PRGB 78 + 24 + I, 7 - I, 7, 0ã PRGB 78 + 32 + I, 0, 7 - I, IãNEXTããFOR I = 0 TO 319ã PPSET I, 162, 78 + I \ 8ã PPSET I, 189, 78 + I \ 8ãNEXTããPALETTE 254, 63 + 63 * 256 + 63 * 65536ãFOR V = 0 TO 5ã FOR H = 0 TO 319ã IF V = 0 OR (POINT(H, 161 - V) = 254 AND FNR(7 - V) > 0) THEN PPSET H, 160 - V, 254ã NEXTãNEXTããTextSize = 4ãTextColor = 78ãGPR 9, 0, CHR$(128)ããTP = 1ãTextSize = 2ãOffSetY = 8ãOffSetX = 10ãDOã FOR I = 1 TO 31ã PALETTE I, 63 + 63 * 256 + 63 * 65536ã IF NT = 0 THENã NT = 4ã IF FNC$(T$, TP) = "*" OR (Flicker = 1 AND FNC$(T$, TP) <> " ") THENã TextColor = 254ã Flicker = 1ã IF FNC$(T$, TP) = "*" THEN TP = TP + 1ã ELSEã Flicker = 0ã TextColor = 78 + ((TP - 1) MOD 40)ã END IFã GPR 25, 6, FNC$(T$, TP)ã INC TPã IF TP = LEN(T$) THEN TP = 1ã END IFã DEC NTã GET (3, 164)-(319, 187), I.ScrTxtã PUT (0, 164), I.ScrTxt, PSETã LINE (317, 164)-(319, 187), 0, BFã R = FNR(14)ã IF R = 0 THENã CRGB 48, 3, 0, 3ã CRGB 49, 4, 0, 4ã ELSEIF R = 1 THENã CRGB 48, 1, 0, 1ã CRGB 49, 2, 0, 2ã ELSEIF R = 2 THENã CRGB 50, 3, 0, 0ã CRGB 51, 4, 0, 0ã ELSEIF R = 3 THENã CRGB 50, 1, 0, 0ã CRGB 51, 2, 0, 0ã ELSEIF R = 4 THENã CRGB 52, 3, 1, 0ã CRGB 53, 4, 2, 0ã ELSEIF R = 5 THENã CRGB 52, 1, 0, 0ã CRGB 53, 2, 1, 0ã ELSEIF R = 6 THENã CRGB 54, 3, 3, 0ã CRGB 55, 4, 4, 0ã ELSEIF R = 7 THENã CRGB 54, 1, 1, 0ã CRGB 55, 2, 2, 0ã ELSEIF R = 8 THENã CRGB 56, 0, 3, 0ã CRGB 57, 0, 4, 0ã ELSEIF R = 9 THENã CRGB 56, 0, 1, 0ã CRGB 57, 0, 2, 0ã ELSEIF R = 10 THENã CRGB 58, 0, 0, 3ã CRGB 59, 0, 0, 4ã ELSEIF R = 11 THENã CRGB 58, 0, 0, 1ã CRGB 59, 0, 0, 2ã ELSEIF R = 12 THENã CRGB 60, 3, 3, 3ã CRGB 61, 4, 4, 4ã ELSEIF R = 13 THENã CRGB 60, 1, 1, 1ã CRGB 61, 2, 2, 2ã END IFã PALETTE I, 0ã NEXTãLOOP UNTIL INKEY$ > ""ããAround:ããSCREEN 0: WIDTH 80: CLS : COLOR 7, 0ãC(0) = 0ãC(1) = 1ãC(2) = 9ãC(3) = 11ãC(4) = 15ãC(5) = 15ãFOR I = 1 TO 79ã COLOR C(FNR(2) + I \ 20)ã LOCATE 9, Iã PRINT "Ä";ã LOCATE 13, Iã PRINT "Ä";ãNEXTãLOCATE 10, 1ãCOLOR 15ãPRINT "Home Page Address: ";ãCOLOR 13:ãPRINT "http://www.fastlane.net/homepages/david/david.html"ãLOCATE 12, 1ãCOLOR 15ãPRINT "Mailing Address : ";ãCOLOR 14ãPRINT "david@fastlane.net"ãCOLOR 7ãLOCATE 23ãENDããErrFound:ã WIDTH 80ã SCREEN 0, 0ã SCREEN 0, 1ã CLSã LOCATE 12, 22ã COLOR 12ã PRINT "OOPS! You don't support VGA Graphix!"ã COLOR 7ãENDããFontData:ãDATA BR2D5BD2D,BRD2BR2U2,BRD8BR2U8BFBDL4BD4R4,BFBR3L3GDFR2FDGL3BFBRU8ãDATA BDRDLUBFBR3G4BR3RDLU,BF3BRHL2GDFR2L2GDFR2EGBGU8,BR2D2,BR3G2D4F2,BRF2D4G2ãDATA BF2D4BEH2BGR4BHG2,BF2D4BE2L4,BF2BD5DG,BD4R4,BF2BD5D,BF2BR2G4ãDATA BRR2FD6GL2HU6EBFBD2D2,BFED8RL2,BDER2FD2G4DR4,R4D2G2RFD2GL2HãDATA BR4LG3D2R4U2D5,BR4L4D3R3FD3GL2H,BR3LG2D5FR2EU2HL,R4D3G2D3ãDATA BRR2FD2GL2HU2EBD4GD2FR2EU2H,BF2BD3LHU3ER2FD5G2L,BF2DBD2D,BFBRDBD2D3GãDATA BFBR2G3F3,BD2R4BD4L4,BFF3G3,R3FD2GLDBD2D,BF2G2F2E2H2D4HU2EFD2ãDATA BD8U7ER2FD7BU3L2,BD8U8R3FD2GLRFD2GL,BFBR3HL2GD6FR2E,BD8U8R3FD6GLãDATA BR4L3GD6FR3BH3BUR,BR4L3GD7BEBU3R,BR3L2GD6FR3U4L,D8BEBU3R3U4D8,BRR2LD8LR2ãDATA BR3RD7GL2H,D8BR4UH3E3U,D8R4,BD8U8F2DUE2D8,BD8U8R3FD7,BRR2FD6GL2HU6EãDATA BD8U8R3FD3GL,BRR2FD5G2LHU6EBDBFBD4F2,BD8U8R3FD2G2F2DãDATA BFBR3HL2GD2FR2FD2GL2H,R4L2D8,D7FR2EU7,D6F2E2U6,D7FEU2D2FEU7ãDATA D2F4D2BL4U2E4U2,D3F2E2U3BG2BD3D3,R4D2G4D2R4,BR4L3D8R3L2U8,BD2F4ãDATA R3D8L3R2U8,BD4E2F2,BD8R4,BR2DF,BFBD2R2FD4L3HUER,D8R3EU3HL,BF4HL2GD3FR2EãDATA BR4D8L3HU3ER,BF2BD3R2UHL2GD3FR2E,BR4LGD9GLBE2BU6LR3,BF2BD6LHU3ER3D7GL2HãDATA D8BEBU4R2FD4,BR2DBGBDRD5,BR4DBGBDRD7GL2H,D8BR4H2UE2,BRRD8RL2ãDATA BD8U5R2D2U2RFD4,BD8U5R3FD4,BFBD2R2FD3GL2HU3E,BD11U8R3FD3GLãDATA BF4BD7U8L3GD3FR,BD8U5R3F,BFBRBF2L3GFR2FDGL3,BRD7FRBU5L2,BD3D4FR2EU4ãDATA BD3D3F2E2U3,BD3D4FEUDFEU4,BD3F2DG2BR4H2UE2,BD3D4FRBE2BU3D7GL2HãDATA BD3R4G4DR4,BFBR3LGDGFDFR,BR2D3BD2D3,BDRFDFGDGL,BDEFEDGHGUãDATA F4G4U8FD6EU4FD2ãTopazData:ãDATA BRR3BLG2LE2BR3G2RE2LBRR2G2L2BR2BE2BRR3GLBUG2LE2BR4G2RE2LBRR2G2BELBEBR2RG2RE2LBGBDRããStarData:ãDATA 4053538383656578784646181825250303333340ããSUB CRGB (N, R, G, B)ã RR = R * 16 - 1ã GG = G * 16 - 1ã BB = B * 16 - 1ã IF RR < 0 THEN RR = 0ã IF GG < 0 THEN GG = 0ã IF BB < 0 THEN BB = 0ã RGB N, RR, GG, BBãEND SUBããSUB DEC (N)ã N = N - 1ãEND SUBããSUB GPR (H, V, T$) : SHARED FontIMG$(), TextColor, TextSize, OffSetY, OffSetXã TS = TextSizeã AX = TS - 1ã AY = TS - 1ã IF FNO$(T$) > CHR$(127) THENã AX = 1ã AY = 0ã END IFã FOR I = 1 TO LEN(T$)ã FOR X = 0 TO AXã FOR Y = 0 TO AYã DRAW "BM" + FNN$((I + H - 1) * 6 * TS + X + OffSetX) + "," + FNN$(V * 13 * TS + Y + OffSetY) + "C" + FNN$(TextColor) + "S" + FNN$(TS * 4) + FontIMG$(ASC(MID$(T$, I, 1)) - 32)ã NEXTã NEXTã NEXTãEND SUBããSUB INC (N)ã N = N + 1ãEND SUBããSUB PPSET (H, V, C)ã POKE V * 320& + H, CãEND SUBããSUB PRGB (C, R, G, B)ã RGB C, R * 8, G * 8, B * 8ãEND SUBããSUB RGB (N, R, G, B)ã OUT &H3C8, Nã OUT &H3C9, Rã OUT &H3C9, Gã OUT &H3C9, BãEND SUBããSUB SweetLine (X1, Y1, X2, Y2) : SHARED LastSweetColorã H1! = X1ã V1! = Y1ã H2! = X2ã V2! = Y2ã C = LastSweetColorã A! = -1ã B! = -1ã IF V1! <> V2! THEN A! = ABS(H1! - H2!) / ABS(V1! - V2!)ã IF H1! <> H2! THEN B! = ABS(V1! - V2!) / ABS(H1! - H2!)ã IF A! < 0 OR A! > 1 THEN A! = 1ã IF B! < 0 OR B! > 1 THEN B! = 1ã DOã LINE (160, 12)-(H1!, V1!), C + 78ã INC Cã IF C = 40 THEN C = 0ã IF INT(H1!) < INT(H2!) THEN H1! = H1! + A!ã IF INT(H1!) > INT(H2!) THEN H1! = H1! - A!ã IF INT(V1!) < INT(V2!) THEN V1! = V1! + B!ã IF INT(V1!) > INT(V2!) THEN V1! = V1! - B!ã LOOP UNTIL INT(H1!) = INT(H2!) AND INT(V1!) = INT(V2!)ã LastSweetColor = CãEND SUBãKurt Kuzba SCALABLE FONTS FidoNet QUIK_BAS Echo 11-27-96 (03:18) QB, QBasic, PDS 69 2497 SCALFONT.BAS' Most advanced applications used scalable graphics fonts.ã'The character definitions may be stored in a file or moved to aã'separate module which returns only the requested character.ã'You will notice that when the width specified is increased, theã'ammount of white space between characters increases, allowingã'you to place the characters more closely together.ã'This is NOT, however, a fast way of doing things, though itã'allows for ornate lettering. The CIRCLE may be further refinedã'to use 1/8th instead of 1/4 increments, or even both.ãã'_|_|_| SCALFONT.BASã'_|_|_| An example of using scalable fonts in Quick Basic.ã'_|_|_| No warrantee or guarantee is given or implied.ã'_|_|_| Released PUBLIC DOMAIN by Kurt Kuzba. (11/25/96)ãDECLARE SUB PutChar (ch%, c%, x%, y%)ãDECLARE FUNCTION Characters$ (c%)ãDIM CHigh AS INTEGER, CWide AS INTEGERãCHigh = 14: CWide = 8ãSCREEN 12ãPAINT (0, 0), 7ãPutChar 65, 0, 15, 25ãPutChar 66, 0, 24, 25ãPutChar 67, 0, 32, 25ãCHigh = 15: CWide = 20ãPutChar 65, 1, 5, 43ãPutChar 66, 1, 15, 43ãPutChar 67, 1, 25, 43ãCHigh = 30: CWide = 12ãPutChar 65, 4, 10, 32ãPutChar 66, 4, 22, 32ãPutChar 67, 4, 34, 32ãCHigh = 42: CWide = 24ãPutChar 65, 5, 5, 36ãPutChar 66, 5, 17, 36ãPutChar 67, 5, 29, 36ãSOUND 999, 1: WHILE INKEY$ = "": WENDãSCREEN 0ãFUNCTION Characters$ (c%)ã SELECT CASE c%ã CASE 65ã Characters$ = "LAMCA LGMCA LBHFH"ã CASE 66ã C$ = "LAMAA LAACA LAMEM LAEEE CCCBD CCCBA CEIDD "ã Characters$ = C$ + "CEIDA"ã CASE 67ã Characters$ = "CCEEA CCEEB CCHEC CCHED LADAH"ã END SELECTãEND FUNCTIONãSUB PutChar (ch%, c%, x%, y%)ã SHARED CWide AS INTEGER, CHigh AS INTEGERã CharDef$ = Characters$(ch%): LN% = ASC("L"): CR% = ASC("C")ã asp! = (4 * (CHigh / CWide)) / 3ã WHILE CharDef$ <> ""ã x1% = ((ASC(MID$(CharDef$, 2)) - 64 + x%) * CWide) \ 8ã y1% = ((ASC(MID$(CharDef$, 3)) - 64 + y%) * CHigh) \ 14ã SELECT CASE ASC(CharDef$)ã CASE CR%ã x2% = (ASC(MID$(CharDef$, 4)) - 64) * CHigh \ 14ã R! = (ASC(MID$(CharDef$, 5)) - 64) * 1.57ã CIRCLE (x1%, y1%), x2%, c%, (R! - 1.57), R!, asp!ã CASE LN%ã x2% = ((ASC(MID$(CharDef$, 4)) - 64 + x%) * CWide) \ 8ã y2% = ((ASC(MID$(CharDef$, 5)) - 64 + y%) * CHigh) \ 14ã LINE (x1%, y1%)-(x2%, y2%), c%ã END SELECTã CharDef$ = MID$(CharDef$, 7)ã WENDãEND SUBã'_|_|_| end SCALFONT.BASãThe ABC Programmer SAVE SCREEN IMAGE TO PCX Converted from Pascal Code 12-05-96 (15:46) QB, QBasic, PDS 189 6622 SAVEPCX.BAS '===========================================================================ã' Here's some code for SWAG to dump the current mode $13 screen to aã' PCX file. Feel free to use/modify, just give credit. Also, if youã' do a good mod of it (ie, A mode X version, faster compression, whatever),ã' I'd love to see it.ã'ã' Reference: Bit-Mapped Graphics (2nd Edition)ã' Steve Rimmerã' ISBN 0-8306-4209-9ã' (C code but still pretty useful)ã'ã' PCX is of course (tm) Z-Soft Corp.ã'ã' Copyright 1995 Kevin M. Luck <-- Original Turbo Pascal code.ã'---------------------------------------------------------------------------ã' Thanks Kevin. This code has been converted to BASIC by William Yu (12/96)ã'ã' Remember what good programmers do: Give credit where credit is due!ã'ã' Somewhat useless with all the screen capture utilities out there ;)ã' But an excellent tool for use with your own paint programs and such...ã'ã' This only supports 1 plane video modes, but I'm working on a 4 plane one.ã'===========================================================================ããDEFINT A-ZãDECLARE SUB WriteHeader (PCXName$)ãDECLARE SUB EncodeLine (Ln)ãDECLARE SUB GetPal (ColorNo, R, G, B)ãDECLARE SUB WritePalette ()ãDECLARE SUB SavePCX (PCXName$)ããDIM SHARED PCXFile AS INTEGERãã SCREEN 13ã RANDOMIZE TIMERã I = 0ã DOã X = RND * 319ã Y = RND * 199ã R = RND * 50ã I = I + 1ã CIRCLE (X, Y), R, I ' Let's draw random circles.ã LOOP UNTIL I = 150ãã SavePCX "IMAGE.PCX"ããENDãã' Color Palette Setting. Can't make any sense out of this.ã' You'll find that with 4 plane modes or other PCX codes useã' the palette scheme from Black --> Bright White.ã' (ie. 0,0,0 = Black 255,255,255 = Bright White)ããDATA 0,0,0,216,152,56,120,116,4,112,108,4,236ãDATA 172,76,248,196,128,64,36,36,36,40,20,248ãDATA 188,104,212,144,156,60,36,36,116,112,8ãDATA 120,116,8,124,120,8,52,48,4,240,196,136ããSUB EncodeLine (Ln)ã'**********************************************ã' Encode the current image on screenã'ã' Kevin Luck seems to be on the lazy side :)ã' This will only work for 1 plane video modes.ã' Hehe, that would limit it to SCREEN 13 Doh!ã'***********************************************ããDIM P(0 TO 321) AS INTEGERãã T = 0ã DEF SEG = &HA000 ' Must be a faster way usingã FOR N = 0 TO 320 ' buffered routines.ã P(N) = PEEK((Ln * 320!) + N) ' MOVE Addr(Ln*320) --> P()ã POKE ((Ln * 320!) + N), 0 ' Erase screen. Remove if desired.ã NEXT Nã WHILE T < 320ã I = 0ã WHILE ((P(T + I) = P(T + I + 1)) AND ((T + I) < 320) AND (I < 63))ã I = I + 1 ' Same colourã WENDã IF I > 0 THEN ' How many times does the same colour occur?ã A$ = CHR$(I OR 192) ' Limit of 63.ã PUT #PCXFile, , A$ã A$ = CHR$(P(T)) ' Write pixel colourã PUT #PCXFile, , A$ã T = T + Iã ELSEã IF (P(T) AND 192) = 192 THEN ' It's greater than 192ã A$ = CHR$(193) ' Weird stuff...ã PUT #PCXFile, , A$ã END IFã A$ = CHR$(P(T)) ' Write Pixel colour.ã PUT #PCXFile, , A$ã T = T + 1ã END IFã WENDãEND SUBããSUB GetPal (ColorNo, R, G, B)ã'*********************************************************************ã' Get Current Palette Scheme (Does not change unless you change it)ã'*********************************************************************ã OUT &H3C7, ColorNo ' Read Color's...ã R = INP(&H3C9) ' Red Intensityã G = INP(&H3C9) ' Green Intensityã B = INP(&H3C9) ' Blue IntensityãEND SUBããSUB SavePCX (PCXName$)ã WriteHeader PCXName$ã FOR Ln = 0 TO 199ã EncodeLine Lnã NEXT Lnã WritePaletteã CLOSE PCXFileãEND SUBããSUB WriteHeader (PCXName$)ã'************************************ã' Dump the default header to fileã'************************************ããDIM OldPal(1 TO 48) AS INTEGERãã PCXFile = FREEFILEã OPEN PCXName$ FOR BINARY AS PCXFileã B$ = CHR$(10) ' Manufacturer. ZSoft of course.ã PUT #PCXFile, , B$ã B$ = CHR$(5) ' Version, in case it matters.ã ' 0 = Version 2.5 of PC Paintbrushã ' 2 = Version 2.8 w/palette informationã ' 3 = Version 2.8 w/o palette informationã ' 4 = PC Paintbrush for Windows(Plus for Windows uses Ver 5)ã ' 5 = Version 3.0 and > of PC Paintbrush and PC Paintbrush +, includesã PUT #PCXFile, , B$ ' Publisher's Paintbrush . Includes 24-bit .PCX filesã B$ = CHR$(1) ' Encodingã PUT #PCXFile, , B$ã B$ = CHR$(8) ' Bytes Per Pixel (1 for 4 plane)ã PUT #PCXFile, , B$ã B$ = CHR$(0) + CHR$(0) ' Min X (Integer deserves 2 bytes)ã PUT #PCXFile, , B$ã B$ = CHR$(0) + CHR$(0) ' Min Yã PUT #PCXFile, , B$ã B$ = CHR$(63) + CHR$(1) ' Max X (In this case it's 319)ã PUT #PCXFile, , B$ ' Try 319 AND &HFF and you'll seeã B$ = CHR$(199) + CHR$(0) ' Max Yã PUT #PCXFile, , B$ã B$ = CHR$(64) + CHR$(1) ' Horizontal Resolutionã PUT #PCXFile, , B$ã B$ = CHR$(200) + CHR$(0) ' Vertical Resolutionã PUT #PCXFile, , B$ ' Default Paletteã FOR I = 1 TO 48ã READ OldPal(I) ' Mem [Seg (OldPal):Ofs (OldPal)],48)ã B$ = CHR$(OldPal(I)) ' I'm sure there's a faster way to do thisã PUT #PCXFile, , B$ ' But I'm not good with converting that TP codeã NEXT Iã B$ = CHR$(0) ' Reservedã PUT #PCXFile, , B$ã B$ = CHR$(1) ' Color Planes (4 = Intense, Red, Green, Blue)ã PUT #PCXFile, , B$ã B$ = CHR$(64) + CHR$(1) ' Bytes Per Line Per Plane (In this case 320)ã PUT #PCXFile, , B$ã B$ = CHR$(0) + CHR$(0) ' Palette Typeã PUT #PCXFile, , B$ã B$ = STRING$(58, CHR$(0)) ' Fill rest of header to viola! 128 bytes.ã PUT #PCXFile, , B$ ' Actually byte 70-74 is for Paint Brush IV/IV+ã ' so it should be 54, but who cares.ãEND SUBããSUB WritePaletteã'************************************ã' Dump the current Palette to fileã'************************************ã L$ = CHR$(12)ã PUT #PCXFile, , L$ã FOR L = 0 TO 255ã GetPal L, R, G, Bã R = R * 4ã G = G * 4ã B = B * 4ã R$ = CHR$(R)ã G$ = CHR$(G)ã B$ = CHR$(B)ã PUT #PCXFile, , R$ã PUT #PCXFile, , G$ã PUT #PCXFile, , B$ã NEXT LãEND SUBãAndrew Diamond SLOW TYPE EFFECT albertad@geocities.com 12-05-96 (18:19) QB, QBasic, PDS 42 1293 SLOWTYPE.BAS'Program Type -- Modified Printã'Modified: Andrew Diamondã'Web Page: http://www.geocities.com/SiliconValley/Heights/3128/QBASIC.HTMã'Date: 12/5/96ã'ããDECLARE SUB slowtype (Talk$, x!, Y!, speed#, backColor!, middle!, top!)ãDECLARE SUB pause (tdelay#)ããSCREEN 13 'Use good colors!ãDEFINT A-Z 'Always DEFINT!ãã' This routine is actually part of Mike Helms Alienoidã' I just edited a little bit of it because it looked cool.ã' Don't think he'll mind much! After all, I mentioned his name!ã' slowtype (talk$, x!, y!, speed#, HighLighter, TrailColor, WordColor)ã'ããslowtype "Slow Type This Dude!", 11, 8, .001, 15, 8, 7ããSUB pause (tdelay#)ã'------------------------------------------------------------------------------ãtime1# = TIMERãDOãLOOP WHILE (TIMER - time1# < tdelay#) OR (time1# > TIMER)ããEND SUBããDEFSNG A-ZãSUB slowtype (Talk$, Y!, x!, speed#, HighLighter, TrailColor, WordColor)ãa = 1ãDO UNTIL a = LEN(Talk$) + 3ãCOLOR 8: LOCATE x!, Y!:ãIF a > 1 THEN COLOR HighLighter: LOCATE x!, Y!: PRINT LEFT$(Talk$, a - 1)ãIF a > 2 THEN COLOR TrailColor: LOCATE x!, Y!: PRINT LEFT$(Talk$, a - 2)ãIF a > 3 THEN COLOR WordColor: LOCATE x!, Y!: PRINT LEFT$(Talk$, a - 3)ãpause speed#ãa = a + 1ãLOOPãLOCATE x!, Y!: COLOR WordColor: PRINT Talk$ãEND SUBããAndrew Diamond HILIGHT PRINT albertad@geocities.com 12-05-96 (18:19) QB, QBasic, PDS 44 1352 HILIGHT.BAS 'Program Type -- Modified Printã'Programmer: Andrew Diamondã'Web Page: http://www.geocities.com/SiliconValley/Heights/3128/QBASIC.HTMã'Date: 12/5/96ã'ã' Overview: Use this subroutine to highlight certain characters withoutã' having to LOCATE, PRINT a bunch of times.ã'ã' Usage:ã' selection column, row, text$, highlight$, TextColor, HighLighterã'ã'ããDECLARE SUB selection (x%, Y%, text$, highlight$, TextColor%, HighLighter%)ããDEFINT A-Z ' You don't have to, but why not?ãSCREEN 13 ' Wider variety of colorsãselection 5, 10, "Press Y to quit.", "Y", 8, 15ãDO UNTIL UCASE$(INKEY$) = "Y": LOOP ' Wait for Yããselection 5, 10, "Now Press to quit.", "P", 8, 15ãDO UNTIL UCASE$(INKEY$) = "P": LOOP ' Wait for Yãã'ã' This subroutine searches through text$ for the letter designatedã' in highlight$. When it finds it, it prints it the color HighLigher.ã' If the subroutine doesn't find the letter, it prints it directly atã' the end of text$.ã'ãSUB selection (x, Y, text$, highlight$, TextColor, HighLighter)ããLOCATE x, YãCOLOR TextColorãPRINT text$;ããFOR I = 1 TO LEN(text$)ãIF MID$(text$, I, 1) = highlight$ THEN dummy = I: EXIT FORãNEXT IããCOLOR HighLighterãLOCATE x, (Y - 1) + I: PRINT highlight$;ããEND SUBããCharlie Quante A SCREEN 12 SPRITE EDITOR charlie@charlie.seanet.com 12-08-96 (00:00) QB, PDS 501 33079 GWORK.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.3ãSUB V1:OPEN "O",1,"GWORK.ZIP",4^6:Z&=24564:?STRING$(50,177);ãU"%up()%9%%%I-%uJnMFH6*72#8.%%2m%%%1%%%%lw.ni&t%wpSg7fxfa;,B[mYaHãU"gWKw4H+NH';2I47ENYGU6PCV=82.(0G,P,UZOQ+&<_n'n-fYZvj&5hnpO=nYg>?ãU"XD?^eufyCuECCC?CECQQ_nzLqGBgpuTP6Gid&l:6nno4Z\DownJ3PjLK46jCQZHãU"7V^pPn5C8Cl+2JcR+\rkx5$OH7aaQMQ9+0\pm7S?Z]xU0bP565XLrVi;Og(.lJFãU"$&kg/[>GD7osgEEf1ki,3bWPF[4kTuy0pu?pjWV=Tr81ãU"GkGWknNR[xDmS>jT)lW^Mnd2K,0RU3#H3WDhN9Ohe%%k>$BQJY$u%jY[O3;6JHAãU"PRJnz;])R>qe&wF?U-ni.dW/0j#kJJI<(>rTDOfj0yOC''CtfVl0Y0;Kc+RWYe4ãU"UQOsP_+Z4,?#DTjg/+IMBT?tIG>KXAeGTbOE22kO8Kgn)sm9.GE[](eSv_*U9kkãU"3c3JG&ne%h%M1?gSFv_BZ0.PAY(1r$wciKuMaocucO?$:\q2rai0.Ht[)08JHC<ãU"KQem1(;%I?2k#g;3j-hWW1s^b[;j7h.hQ8M)$G8+S^WcZGGR%&ZAmDAu%kiUDiDdl,(=u&7r?qO/l(:gL/e8CDãU".$?lv0TT,P:mexu#s#.Zva)g$==ELv.;]ãU"+piq)j,Btt%iQSk[Xc_9]NmXnp-njb1FkCFYWpEXEMunp(g>:N^cgdP+4k3lb:K&hUUoe]hI$j,C0Z4&r5Dt$$Ibb_XggB(3$Z?/OlãU"F5lYsgAD[5r'7l)kAbCv.Oc_xJZg1wv=[J;4D[r4&VGR)_f#p<[_6$vRDq/bMA#ãU"Ex<85[;RGg8yZF\0K6=II4d9W2B-bEES2bZ_Aru3cvldF.\^V7*X-*8BhZ8W,rrãU";)114G;=zjxL$250kSaJW*J4+]*#^(A6MpG&0Z#M>o((2317^?;zBYD3?AOB*OHãU"VlZV5j>^TLU.CHL5s?GTOC<9aDn3#>S\8FcPa]3J^NVi6i=va1g$L):egE:W_C8ãU"EAM>r:9,L3*G-eSO\J9j/3c;#>nO^__[m6F1Tdq^L*>j3B5dPgkk*f+,9b?tsDU5.lWp(0s(0w6\*oDBeZ5iqTl16OJOUF/p-71RmOE02HãU"F+.Uq_ab+TRj5XmU%d#$C/3YSudb,PPRjz<>mCG6iOi_)pler):$ol,G#GW*w/KãU"CG+0fM%y0=:3Os'8q0yJMT2A6#l5\2.S5;PC^yCYm_*wBoj_v)V_o=tK0S5JOADãU"e8PXjEK7.d(Ui9xhHm;m>UWne+*o_Y]nr>rCrML3n.kGfi_0*3-+t75e=C&/BI>ãU"l=0_V/zb5hUdW=R*Ishx>dUCHnT:8d^(u-X/\k.Zcs+v_AU-f5JU1ZeNdnD?'q8ãU"w5Jh-gpEpR^mkCLYf2q54_[n_Ma.Ykt5o=VcQU$99$HdN4kS2ynr)ruc562_0mPãU"Q8Jv]:dCRuYWO,ELn5P.mjd4#H:Fq%-(m24.D[_;3)l\%h?_#=Oe[3C>$Z;TkN8ãU"BWrc65SzSL^tK7c=ZL?%URm?;*[GNYa.RL,_M0i;;LDqdbiXp-4+Ii'#9*8(P5kãU"6*608/vo;RF7dQYD&POtP&*>Ac;Le](>>S-$ZG-QY>2LR;7x:+X$Htm(iu%8c;[ãU"\Gk([Br/t<'XV>:^>'AjiG-N[[]3Dise)ZO0ZTO4?hdi0>K90HQwH#K4)jH\T;MãU"TPfbXqa'1U>e^s,$fog)l.metw%\-hw*J,2=,]48:3V[?NRQAKbjãU"/p8'fFpS#6j0YX2\*D539P*rYY-w.(N-oN7)q'9uL:axpo8]S<6OKu;#y%Y%:LOãU"W2U1/iiKIbP*1m^+-TqT6E5UvdN;&kH#M;72=HK,_9XY,XNW^mKU0rv$_h%ib6<ãU"Gc7+X_yPRsR]M?0bQa84KFceqDhK=UCrKdl:;,A^RYC^1VJjk3sFO6JYãU"oHnq?.ac&lR(==ZPSi:,A?MIc:zg(O:3rgZ]5>tSR8Q9&-N950mP?t<4r+]x_EqãU"s5Y;B_h,[IN]GTTI-Cv_S-&6f'fRk2,g4X*aVma;vf38CmU)U$$3$ojQb5o2dNiãU"n.o^iNDdb&.OUk';+rd7fgZ+>P7G1/-X,gH7+im6dr)8-HH?36<$O,u=T*X.YelFa&^tyktIoãU"[BGbacqNt4CS,cNWZEW6uwM3.;Hr#k:ehmU)[7NWF1bPDVr2_Y%n*Sy=)cHu.AXãU"G:K)1oQ31emLW)u-dQu[Prf)D]jF441;*yBq,Qm<%Q(QP&L(GGF#7].6iaiG8:3ãU"pjlQg127/F)H:[Dj=YãU"_e*CTcx/.$5.HQY2kzD6k7lG.L/qTcLG=0SgK6$=\jQ9O.PpQM*64.oU;.hhYs+ãU"Y+0Y5FAsfC3Lp#D'3+k9NKBKUQ^mOiDc**Ckw,BYArnuIEri;LnT$e(Ux:/c(FNãU"0DBuWE1ZaXlvnz&QVI%776r2c*.Y5i:W&+LzIGQ0[bi;TG$Xs_i)h20)Y'VTAgwãU"$'+QhnC.Z*0IIMdD>j0\bGS:-uDqccO6O#^U2mCV_*>\'i(-NLi/-nn[i9>ge>(ãU">lR3>A(LS&JkyNcG40]U=k=XTvgCC'GeqVV8NidtO&R>)]V\;/?60:0]gO_ogY[ãU"\o2-OA:;ROMTKkS'puRVMuv-vFTn_VB0(3C/E>=w$DKv?[Yb)DOC&bGo.;DHN$aãU"?[R'N:VgVmo/enOu)r&P%>(kPBJ1]P\(]XeY(4ob/(ly/GAf$HQ-2z2S*W9#ãU"S3?o(E9hyaSXjRkxE)RG/Q00;mRB'u]dSu*n(UT>h0nk&9FZMk*nuVãU"E\dZOMJdga4pU-.bXpN)N-_RS*^/LO60)9vkgB..R-7S-n<+IF/k_Y?7//ãU"-+BK]57C,)s>;\lEkR/$%g;&'7qND]Z&7hsD^$IC<#n*%kj,J)L['/TSL71P^r+30chawweYt;XiZãU"Psm\Ft\CmtyWJO9weN$-%EBB9N#YCPzfto;+Ssmau#-NhyQI$)8)Dd:M)FGdupbãU"s3q-$wje?L4G,u:85%+&?r1Y4k:AyQxgu5E%nomN8/;Mx7Atl('4Le*=>>K^8.jãU"pZaoS7Z'fo5e\&w-h2iH%0O+P(l4kU5xO;z$(\q2XSZ)HJgvOs(^45OxC#1k$PSãU"//47DHh'ikeFT/Ufv'nYHhf6NJ?97lsQGRN2oL-=00\^].$AK]X>RYaO=?^'Sg]ãU";xtG^;=TOPWHbu,u0EQ55yFTt:f(6r<1Z-^k3]pf+p%&+.QVQH;Q/[R[(d\;5MZãU"Z3)U(iTJFmLwigjaFMmB&:Sgs7L2\-+HsEãU"neQLDM+5v=I1y_q1C2**08SXq;[Q\O#&Ubi,8(xHU(4q/wXX?#v/*=eU6i[]9,UãU")y$MzH5knH:EQHk(ZPIw-*jb%UO-Al--Dh>&xt;(_Oo8jk5c;fW]EBHJ>#6x6'&ãU"P?peJPuiV1=AZn'QUJC0r#GV(9jV?8ZWi^\Hlwb>1^o?cd,vAv(:9L*t3KPS6(/ãU"hMKpPx1XqQxUPX660ãU"jh7mTC,th\V;Y\;QU1eA[T5E8^)IWZDNVOIGI>SAW5e3V))0C#L/z%XGFnj0n-<ãU"Y6nR5L(.PDS&&omx=JEa5]#kM7;.4?kveHspdk,.4YIKT46^(GZHg.6e]V)8UQwãU";oQ%v'aG.qs2U2=,L-oV'k,5^0QgQb,d:u](+3EF1h;E;5jNYJ]iRm;5//3IQk;ãU"igRdcUAZN*CxKx&>oP%/_+Bb5Ut>?GT8I65ojc0kV;-k_%]#yNcskB'D\=rTf0$ãU"EBj9UCRNI.newaI>_iR&4AQoT$m^C+MRJx55Q;9=?LFqDuWN&Cz1lVRl^YpVh5vãU"F=X2Hipf6\o?X4X>wadyxW[F1[rePq6zw*_(&.ãU"bmKUMLOt*CveO?#4V3^Z;EB[8CS7IT3JeQZ#),fm_IãU"MiegXWjxG+XxJssZ$4XsJJ/]2w9o_jãU"6q9Z&16TsX/P=owF*3gz/WY.lKtIJ0U_:EG8nB6-^aB9o[Nl9)'Q[\l_Rbkc/F+ãU"/2,L(iEs.itBOxO:h-GTcr1#mU)7l(*?a:_AO,1%MyNQq]DfNUN>qE9B3+PL4woãU"^_EV6KI]F^?2(yD&2o<50RaaJ\KkKJo:n^oY#=*a\A]qh.Qj$/P6o\abuH'EnzKãU"9mz_P1FN(+H74YfqyDs-+L\_)Lx#'=.h_m3d73.#251U.1%h^UY%xN%&up(%)9%ãU"%[%-%oCPMF\2VS1]%0%%c%L%%1%%%%l#wni&%twVS[gfxFk)fBS7a7xqb6sde*IãU"C/tI.4gf?5mS>RgqCc7%,]C,KXAuhRv]F$Rungo(d&W4QRU[EUL]5X7TSnk%4zNãU"t9.o.TVDn5s[Eh'n/C1TA$<5wuYV+rQ7?iku_tcT7\_iKckOu:Tx(XLZYM:?r5OãU"Wb=dX7Vc*lrqGC.paCUO/2cbYdW;AaZ$aLBYm)QSG6XmxQ2XdmHA-ãU"usQ(dASLW4/EDpC7Z92p>q1C3Te=n3k&0rKH4x#M=Ck:T?%87XJ>BsL>4rU3<9$ãU"Q$*.4'ovp+F\wn1m^e>>Ac,O\HJUtGt_<ãU"7=i]Fjk26]>0j+JUZgeadq#WXMV0__4MS<8YbBES=TZITG4+i0jv>zi[>O(HQpJãU"B9?E_DKo8_[3c-=X6.w]B\Dy;.O9c$VjBTUKf8c$GLR5TR_:-+qs_HaZUbVHZs0ãU"-.Ld,K[tF)aLTE)D_(xLkig:LgtKs/O=m[EW9(04eYXgWZm9in]7Mb6ib^.FGsoãU"]'i>sR[F8D&+=Ly=FF)]GgE9nCLLV$f,].Q+xV(]VChs]JOSZo=J.>Q/xAx9Zb_;0myJRãU"9dz79YP[I]Gpf4a.;qqqNb<\Y,drxeWF2Q%2,J2%[Y>eG$f3\sci8x^'J]18JSCãU"_%ajUlM6s9YPCr^SK[lcdT+eMJcn.$gt+2NT2Nsj]'*/tk0QC.(h^z9Lk77L<>)h'U9c;^;aQ(54$J[I4^MWFRI5-E^fpIãU"Qip$J3$58SE<>>A333)o<=ZR5YPLLs-k3+(Tf-e&niQOYYmLZ?2GOG7^&/3=>H4ãU"T:L\D'VtDf/Jo.?w7l7Bq1:$L(MPE0,vTC[zf[vO2S,rZB:Y6eqAY+M)\y/kYtZãU"BomQ#-526aNhlTP:?-LCX(bN*x]EX=$62tbAM2REm2B&X$=/VnVR[]AcNS/A[+2ãU"oWzp[gs4QQ]K$l\U&xA.=$AnT6/UMJt;0REãU"H+FX<)'aN0%k?tOD&E??Ag1t9_bEx+,g3=xP^isRuSo9cHGl1iI0u%5iiI4j_EC3JIc1mcol9$6xH'd=5Zx4g]<1oS,v*jN/'yTpãU"*-SK4W3Z#DP0pa51Sy)Hf0b:cAa'AA?fk,N^2IH[tIUX6;uLhIrB+EãU"_'VM)]pOIa#$8GW%77U:c0>pEFipu[&h76)%PLIZ4g?HiE&%5)nT3eSl#)e)GtkJãU"4JksX*QCyZ?CB%?$dgq6'\$2j4#d\u5r[;QTZlV4F9f,T?Q+xr8Us&q>rJ3IN7nãU"8qR1&^:>?nZ42UX1g<,N)Erf=?1:?P+X6g%z=Iv<%XH<0'IãU"k1S*U1&=-2hjP7d,YGjU93(U-[Eq4,KZ)r90C<0v7?_4++1&L=lTP\1.=6W86m%ãU"p(x1iR0,$3I1'T2tBk-8fU:\E>x0QX*\^(TAGE6bEr_h=q(;T3'7t7'BgO/2;MYãU"14fbM^k8_7(G.g'CjFO=\$YdYk$,6s+C=]T$2kMS;b^Ja?TbArf054Jv[oOnG1WãU"DeKRLVaie[)[5Qko9>s\Pq3FB(aiwdHU6NB*Q^1kvLe<>llZ)PsT%_bZ'.B5gjUãU"IPE)]4_tv+5'Ixh'emdZc;xc=r7mC5E*9BASn>7%jZo2o1=iOhy;^guI5$djV=ZãU"WVlTZS:9)9,dn)YPj2F9p+o-+*O;tdF*9\rx;f^-Y59uuBV[$V2b^?9sID9$U]XãU"Z5>,FI1PKraeO=iiVWO#_]j1)*_6wx6AmV$d,d;kk?T3:=z5:M'p\FZ43=X#(J7ãU"*[R?_-yNM2DK1'NLBq];\nC*FX#r_=Z&3*vdk,bBy+-AZ%y?oM3]c$.&JTk>S\pãU"+kct)QS$^'1x)<Nfx9Q7;^Swgg-#v1e$IMJ4*3bH7L?6e39Z^Jr.96NsGPBF=);F.y6Q>x&T4S>DLiQV31xR8i<[g%tsyAa44VZ>lm+CjP3te:4ãU"^CX#h+Go3&nV6D'73bX<(r-16>zYiS*2L..f+c9h]3l/?tgRg=aV':t7J=QBYbCMnBuIãU"sPYSjUi.c&h\GGkd\z2_b5tR(n7MQ>ljM/P;GHEOJnT^:uUkL,T$XlmjAR\AY)zãU"hCXW3nnhd)\a6;]w=H-nFCPiTfWZ5+g>OcAFD7J*z0[0]gkgGxx)DEw^r(AU6H4s6>TV:RR>:/K>Bq?Kc/]WãU"u[C5pG2E+[6'3/MhV5sNxfPd%+Ci.5s1G)($K2ãU"\#1]Mx1Mk_jgp\(xpT\]2T#Du<-WxqP<,W8qA[WeDU,sXkW8]W,orq:xwAWPSmDãU"*TByD_gJ,LS:pyQE'hMdEw_x/NH3POtãU"fg^oZk;GiwI9cQ?YVgH6k8P(0^avcL0Njro1\?$:V)gd../D>4%W$fEGZw7Zsw((QM]ãU"pXd8S*EdA(wj4t2uD9S%lI:d+#-FqF/O101HNI39^\paQP%EB&XPhsD>Cv56EjaãU"6*9X$EH(JHlel:kb2ROds0SC/JRj&QU?ui./=Xk>OC7)j9$b9Yb/,#rwãU"*ZxM9:a,Eq3)/TkYskA>(8syZPgG<[G&o1RpB>Ul+[ldu%p()9%%%%-F%oPMOFbãU"<+($x(%(%i0%%%1%%%%lwn(i&tw%WSgf4x6%v)>jm5tM0]x=Uc./]O^c\kBLw3(ãU"iAUIe%.'?Xv*;q,LUk3Rt-->pE6=lQ_QV#1#jcpFAJ3k#R0dmpS'aCTGZb0.QL8H]q[ãU"0u7:4.+rVeb>Yd=_jaDTesQ5j1'JG,9e[lbuFgjx)ãU"_i$*A3$(aw&3G;6Y'jPy^3.G\9ce^[]H.Ysa-?78TjK$LN/67ofj8-Fd/rp259ArHlauF:6e0a,ãU"=lI3JaD'B>IQfUH(l9u7_v0xN(bIh1eHD$k6lL70D=MS&a3a(8U-BXjAJO;Al2%ãU"5NH_?W:X3b>3V#RAGP(6M)/mncY_PLF*SLK;&QiA3C6Rz]a6#=[7b.r'eksstdeãU")zurC7(Y0U90-NsQs[&q4v?Txhi'?^LMPzi[ylDxQj5?QR.jJTw3'5YNtuPp$.Wc_7NUAj1vOVwr(XjrAH\AãU"J<8KdzHsR0tKTQ(ITa=S%L:IzfJBGN_RztW]qc&dZ:a,3H5&(Hp[-i4Q\Z1+&1=RA77UQ_iOQ&6Pg?6uS1P5qtHzro7ãU"KBaOFZvUmcHc%uBu<<1uSTkwTeoP.lSrkGRe(Y+d&#Cw/>?,P'k,'T.#NYk?R0.ãU"%sax2GzDkdC5dv9U<99ZSs(sdERqksB98hq?oHv\yKkxRhrM]rxH.Jaud??&5rRãU"F$YT^'(0G2R7jl3bu]9+H#a.o5+lkdxãU"8HrRnfTlPAr9Zeg<\_0Ic6.m$?:2p=&mth#st_BqfAiJLVsCa\vHq5'dL=con<-ãU"NWJ)z'u,up%()9%%%%-%/%PMFOE>,z&*+%%'7;%%%0%%%%lwni.uh'S[gfx&h'*ãU">S.m9Ml$kN]C]KRI-0;e77JTm+Un/R:AtEL)c#0pK*1IQ$VsRb(XdX\J?SE7K.EoP1i'[wRcFtOsbhllãU"N]7z49Eu)b_;-2QLA^r-V;O&ãU"uwVEPW4Vr1+DhG?+fP,dO2TO^2k#i1l,^1Ygd8#0PXG[#3qAZ([22jT1.h8n\dEpPFc0eshFpU0)Ao,SOãU"&]$enVm/&\iIhhz3du97lA)]ek2c*q^0WN0^Icc'ahu>#,QDq#t&KsI56gD-79oãU"j($kC+P2Ix+nHIbt$%KtTbSSSV*I:k[AkvqGRWX*Rf9g1,Col+Ga/hudh9Iab[JãU"*gg9t&Uk/aIIJBK,>9?1ilP1eO=S2L?RM2Fw9[g:c9+^o-+nV.Tx8bTbA^xtj1f*&%&cy^uL'XP,]AWãU"uLj9v+.-CUcgFN8u+X[HNe]WT%9j-Y#Ja0J65SfUuLTZfYPWIEU)%X$2p4s[jXGãU"j:',''vbTTOFA$YvQq.N&v&&OLq0LIh.TY2f%m]lggg.=6Cjr>-Os?<\C4W3PLVãU"jj1*#XZa,n&*k&232JGe3G=.b\e>C&6C*?*HnMzkINOdmc$D'RG$8Dg=2AQL'CbãU".,#I[Kb)Y3x*9PXX$I_Tu\#]mKNc_Dgz$uq>.k;a&'bM'4T_]N$b.AMBãU"PvZm-D[hiP,-a9nA4Y#D42Oq&2Yrq;&%N$hB*Dqg/lkdK%rZTjkVz,_2u?-KrAfQgspZ5UPi:j?%Rb6DzD$EZsjt&/\7<>\NUãU"l#V5M+dFE0vGnf*O$HpI\&c>).kfUtQ,3cuSãU"B&2[(llR\JTgWCHu31#yB]-%^zqIF'm-hh-g6me^%>qd+uGPaj/nOq%bRDP;#ieãU"\xRe(##_,^HihE9?'I?:esSiji_n4E<'u[+kKu9lTWo5y>\#rtXX;SQEidaoF\bãU"imX_di1h.8zpmM8#b,4h^.-='KRD2e9Gg^XtgbsBrAetc>78Ftyb7SJãU"4q5X6MSOZSRpZF8%qRpNk8ZD>k*d8cgkNx%qH.*oG2jYkze'hj,'s^^qQo+K#9kãU",M?%5IFO3kQ'w,up%()9%('O-%/&JMF?)V&?&B(%%'#R%%%-%%%%qtlt%SnhsEfãU"fV:#Hl9O*X7[$tj)WVE;T/0M\H]uV$tZmWan$iF%j?V(ãU"iA.[r.%$I1>%AXgt.:RRn[afN29d#Jy9a+20It2D99]]&er1q%P*(9K%3Jq/yl[ãU"'8yC';)[S%4-e[pmz9)7,i+n*76'#J&4(YVC\lWBe6S1?TInea]L.=,st'N>hW4W91*Qtx_u:ãU"ldRB1WE(.g7Q&X)0'MW/qDV$H+L)qqzt9[jXw91Vla0%qj;O)qZcJ[.qqV\%SKZãU"Pgn%?8$1KsG?H:6TaOh+%i:,GA%QL4BpeNxjyRgsEt/;zt>ws+Bu2xn1Ut,$V'rãU"-'20.GmaNBdTOounb$ZX_u0$n9ktX2.r(2tpbãU"'2w(h-.T'i(1TsiCDL6,wPbP?.dnHH'7O#OE=>BXwen>3Y+0l5.OLL-I'LfZftAãU"IlS.>xkL%+Taf&t)Gmg8L9tcJ.;CnqO>xn(MlK'GSiu.>M%2xJ:AAEtgd7yx4lwãU"^HS]njwd&z-+Q60gz-U+l,)$8^GVrhx-gipmvtmb>M_9ITJCoe(B&W$_$hL^C%jãU"D^Nk5mc;Ol]jlT>BKET9,BtK[tBt.n?UwWXbBtnfCc#7jct=c%qGnQ'NVBE1j8eãU"'XDBef'LpDQJpNV++QmmWUnKc_d63[:3ãU"8ZFV?.*j?hSGNuo9?PJnQt+p5an1IQu>YE_l4q%.;.'[ãU"V)YVefYe*<,;fQDJg\;P5PBN#9Ifv]wRãU"3g_CcR,?Ex$0%up()#9%'OI-%1wA>Fn=/%(h%.%%v)%%%.%%%%vz%nyiS[nhsf\ãU"$V3;%U1jX])XVLeX0Cb\S^o'c9?5BGfa&AU9]KP)Yd:.4U&lkf+:4c9Qd]NbMj5ãU"tPJglZH4OB+%RpXl8tR>6i$lu1f>m9>)'dmA:HUb[/hUãU"DPt=)d1v;Y2BbJuG3gW8.4OX>Sv_2Vd/AMWRQzZE3/r4H8[?t8091V:w6>cR+swãU"%up()#9%'OI-%ywS>FHL/7MS%.%%v)%%%.%%%%kn%qqzS[nhsfHJ*2RdU5TZCP'ãU"FbKIl(Z7/4:%0RIeWdmi0UNStZShgJ=g&3FFfu$Pu>SFYqJMnWm,[t\?P2<%5j&ãU"-AHx9E7(;HtRSMpyA9e(52[iKRWsc72v_lI[ihZ;;W+^9*Fs$MgzhV9rXfBOgAUãU"koldpW3A?[q)H*Acq3S..,,8du%p()9.%'O-L%iw>mFR:d*QW%%(%v)%%%.%%%%ãU"knq%qiSnRhsf$9*2=EI1j,s'8Ob$&+#J>STVK4AX#Ej8_vA+#6Y9kL]l\_J[5qoãU"iE>mqTHYoF]w%AF=#3&#&Y%%%&v)%%%.%%%#kgt'%zSnhjsf$*+6;U1djz?G4)E_Cfp^EãU"K(%G(?a+AKo(I00_:5e%kdvSfUpffX5T[n/;$6V,9MGY?U1##Y*^Z3f+^u&e+YSãU"k]Ym4M/4;xz$,=uEsGCvM&2&v0MSDoF&JSE:W,uiG'[kf'>G0X\DWXL=FKcF*C]%%(%v)%%%.%%%%kãU"gt&'iSnRhsf$0*2SU[1jR^JIOIE'1O2Ug/j+:j-IsDFMb=R*ePsc,0$GA%j6jo,ãU"Ml9dOl*k>o8'QPC#)M4QEZR6/KlVsIG]=k(Igxh7R.g],Tay)X7wG?9Ji0DupU%ãU"BgVsjnAA;(aMJIrJM[)=0_fHtj&OO\Le-F47&MNz%7%%('%%%.%%%%uq%zxzS[nhsfHI*.O[e1eJEhXH'ãU"F]&_VO01T=G1b/8CYI6QdA-qQU>G>VO92*Y+3suv^wz_Vs233Q:Hk]qjO_#H81SãU"4:qBJxfdbnvh\<-Swp,3ga5N7m2%up()#9%'O#-%#x\>FDj2>H(%7%%('%%%.%%ãU"%%uq%zxiS[nhsfHI*.T[U9kZMr/<4,0$K_2Yjgbk+Y\ZXsOP:+gY7Ss-[,mGV(]ãU"_(GXYP6ucm3W8x)wAU&q9bwEA.aO_vh;a,nKuRVlxZW#.N3hwVn'x6v-2KJLL%uãU"p()#9%'OR-%2x&>F-33lxd%.%%v)%%%.%%%%xf&%jzS[nhsfcJ*2;dU5UJ*8/*KãU"&pl>%9:/%f)bG-+0AKG'3(OpUaRmF:?74_s[;wIa,AFPcgPYLhTf>a&=#%JrP45ãU"51:SSLmiloxZ?(^=-e0kZUP1&T].?Xrb5=bg#52S:mKt;Q8#hqr=;[8\S+Bk\>9ãU"tTUg'6bh0Z:WvMtY^g=t>WlT8]AZY$+*cQJ7y*5>hxH,%up()#9%'OR-%Gxn>FhãU"q3>Cf%.%%v)%%%.%%%%xf&%jiS[nhsf]JF3<%U1*ukRjpj2od%?Gl_Btb;-zA8'ãU"S*('mM$oM(8sa,$.zB3DbrM7/=eLFtn\7>ahf*BIDS?;Q+gN6U+4U$m0YU,T>k8ãU";;]-74vKHl.hkFH$K_Nh7KdNslIV6/R:/3jD*:uWrG?/N9khxpp=]bg'reF_;JFãU"ns=M8,qDfJHsWF-<>1#Gv=5/Hmd&5*up%()9%('O-%0s?MFj$g=k&q%%%&v)%%%ãU"0%%%%hnwh%qjzS[nhsf'JV/'[V5eJ#NQJxW%<5P*6G'tLFIXO(^PL-&z\V,t$.-ãU",EUA)CqcE#_xG.0L-DUW-0+G&Tlj,WclãU"U-R9Sb[Nm&HT.](D>N8mlT=A/ypZDJG%r]T;hwY^IF0HAt6yYDM3PlOg+RJWv6nãU"c'%V9-u_cdW6$(G+.8RR&+pi#q6kxH%#up(%)9%'AO-%(^#MFEO6Jvn#%%%v%)%ãU"%0%%%%h%nwhq%jiSnmhsfJ7b/;e:5OJN,Sb1-HO_1=XDfeAtUU:;OGYEuKm+ar;ãU"GQF:AA6>#Ko,5'Je9eh3_$K(k(+no.*U=1$epY$1AeMX-PuupOglZlc=Tz5;q'KãU"+AqLJ3%Xi8JsiToupWoSv&Q8kyl,4z4CjC$)8V6V?Ed;inc>0cLXOLiV+'+b3g]ãU"/1rmdP-KLBlGBqcS4nr5BE)KG_Nk%Tup(%)9%'&O-%/_y>FiUEEPh#%%%v%)%%.ãU"%%%%t.gt'z%Snhs-fJV7AQU5UlJ8?;%.a(b$E'_W/84/OCR0kvdãU"=Q;5X\eb0#[(]q7']B.b(f^zZZo*%baaiI4q#J)gm>VsV'GruLx$(g$YhãU"a-*4B;9ga'Ru,Ex$%(up(%)9%'&O-%K_y>FpIO02q#%%%v%)%%.%%%%t.gt'i%SãU"nhs*f$V3';U1j:RT68m8phIIN0?c3WSpl1mf;^Cos3+^&x(6d,gu*)R8o:U:X*NãU"2HynPt*GlQ4'1,*tJA^5/S0U11JLcN>q\?_F*,Sw)4UZs(FIJe6;T(Sq)#p#O_PãU"7A>[JV3f[?<3msU37lxuv(Sp=jbMrH[CPmNUlcrWxjSQookC]kC3;EfEbMB>Cq^ãU"sfG7FRF7Pdb>%q%%%'('%%%/%%%%rnsz%xzSãU"nmhsfI0*2OU71*JHAW6Mg%[U,0f)*;;U?8YRhR3pm>p;KPZ'+er)j0.(dbvA3f&ãU"_ln[+TR4Uw%&vqcL/(ZakW$cYeDIW1vxx%bF>;Wfr%w%%%ãU"'('%%%/%%%%rnsz%xiSnmhsfI%V3euU5SZnFi&wwB1.l#=8gZ'P]Z1:VGH*$rP7ãU"5G^I.VFdK$%&*)dR2P8?V(M)I?p4hZupgRB(sn=v'tmTbv0?LZ;CbR=RgZl$dk%ãU"up()#9%'O#-%hy/>Frj6AAh%.%%v)%%%/%%%%nx(f%jz%Snhs-fJb/';e5*iY&'ãU"TA(-pAU-z9aJG(^c:bS^GHW=R,__G(6JWnCFDuhFWhQEHFU,H,35NsI4[A<#%*IãU"]NfIW7v[Db?<_RXj1vnX&E$lVFcb:HrOzlP5]qGq,4JjN9w'q=Ke9tw'j_f5)r4ãU"Za\dNGSW0DNNCF'qF/mRHFG;/hMBnhQWA4k5SXe+o07JF>hlxa%&up(%)9%'&O-ãU"%z_y>FnBC(ze#%%%v%)%%/%%%%n.xf%j%iSnh4sf$V+3;U1[jbE*2o31R'V]%$)ãU"?c36*#OpU_%tlZ+)Z/B2_AYOg:E3BJ%94/ie.mkDnVImKHtO#DBQbc>AFZ62Nh)ãU"ao-7BJ\/Lfe^Q]MM:]2*qG_'4'sKM4Z-WUQhu3P:499uG#$04Mp]nSWMq,wel-gãU",013nEBApQrwHX/'-r.0s]7P80SFR38%(-l#Qu%p()9.%'O-O%O0MpF^.9)6<,%ãU"%%)?%%%1%%%%lwn(i&tw%pSitk'>'F&=#^797#i$3Mma%_Q/,AJ4;RTIQ$PO'=sãU"Q*8hPNrIni)sIewed$Pi,Q+^epI+t,zjnE\RVGEeQEfP,(csK8sc,f>_btP#wW/ãU"(zMVToPUlG^HC+F$.wG>(;k-WL\)d5ai8T3-fvL\vLdwuNwvl?m]HT+#Zf^FuwDãU"NVmmud?5vW/FE2,a\Z0*1f;oxZTuZ1l1z-QQ/d\E),m)izqhRNVgãU"(UUmWZ%EKWgx%gP8tocYM\bow3(XK9bM[HYF>MDHB[9sFGHaC6L/,W;:wTMn2OHãU".iRSK0b?eM4nUpFo5fO\YZB5TD(xoQD??^(Oq9H39.jrS&we-:ac+)*2dE\=moXãU"CGbi.:TVS_*S^Xmr(d>YP9*Fd6JG=7xQp2AjwD5A.TiR=$ul1d]MdR0+V;GJG+lãU"h169[rXBEc7TFnOo'_UT*?8jO:8W]Fx:$:hSVRKet^onR;#^)gI+AQSopY7Qo1uãU"y8oY5n^9MTihfC9&+.pm3I134Tj+2'.WWGQ_0#C29M/)[UHU=V$*KY(*UrVvw)4ãU"XK7.0XnPE-sBXt#55pQ)UJ>>C_ãU";pn4vRc>W+.98MX=4ttk\;)7>r:>0U1jnhErG>*W.ZCmUzyAn+ZY.g_f8G;dh[*ãU"4gf-&CLyj7E>jnS0r9OStfeE?oRuTIãU"3lKm)AaYS8H7KtMQ\A7)4wLEP2.X:q4j58\t#cfAd4#d)ZOft5H(Ky>cHYVn+ERãU"6j2N-U^n9bsIrv?gM+hGi\<5jrP[\*Qkv?xoYxhC-9JlHXOTB3qgTA6%/&kFstVãU")dN\wbQS+K[O[p18aPOy*s;^;Ud,dUu'[,1cãU"u%WH-Wr'f,]_)8]cha^Dpyis#j=f**3O9t/m6RV$-j9FBCz(oa[6tuguhk)'lxKãU"r-PLTMjsxY:l,kIyM+53TV$^k>Xf-B<8>Bf\u5n<,TNptHnF8Tx=g,G,ECN'3S:ãU"FD9fdX.tiCG$?ySUMD_'UJ/u\*jF]UreN\W2u0&k&P?wu3xcoD9A>j?q2s[rYYDãU"R4,q?1=PY^^gQ=a^u(sdX?WU;1qMVGCkVh'EVoeiAI[%HLHn#'5-v$DdpT_JR3RãU"W=K](k2Am-cG(C;xFuU9P=TpvNfBHGUq$?49WHiB]ZV/ZC;P?C3\6wtãU"3ZOIkK4'bPT9U/sm#G0C;=2ozcB:wXSMutlMdFCHpJCu(9euR04vnxsCrGVL*jsq#RmXvG5u>/P9Es>fJi[3yILL;M(>onhb^xtD*=]3AoU_Q\jãU"aBDrPC^p'ZA17vPCqtRm?OUs2nBLQY9l%gTw&ic9=ALoCS*46h4mKi24AJbr4MpãU"0J?Bzz1i8s(&]hSQ[Oj]g35&o29Q2J3\1Ed_D_C_=qWQi4.^sSDFZ=ZSG$R]#7u$P^CT%raz\8meS;42+([r0h6>7cx_ãU"43ab.B'lj&aYv0PKp(&uUoL&V/rnhLK/GIMN=U=#ASck4J+1j)(;1LLG(fG%>jgãU"iRIib/728S(gUQ-Z+^nv5U)tuR:d*4n(uA]L$ZR[lwj^.r,Izb=UMl#Y)dE?kiHãU"[D)6&?8_l=\T+5/jP,m;_qQY)*+ACY&#=3#aDFJ:/vijW*FW;*,zkXN/Ap6>;_$ãU".(]Zcb'r\up%()9%('O-%25y>F:3ysG&h%%%&v)%%%/%%%%nqtf%izSnmhsfJ7bãU"/;ep5UZ(-)-2iF-2i)7.C9X8G:p5\8'GW*=<<)8>5dA.fUNX=$Fe+avISLsa>4<ãU"N;=&%*94zEi:#o*Pi:B4/[ki*9HAofCLI-nf0KlgBHF)Jf+tB721aZb_TmDEu_XbXv$_0[kwTODU8Ly*5h-xH-u%ãU"p()9.%'O-L%Gy>#FO>Q)/h%%(%v)%%%/%%%%nqt%fiiS[nhsfBJV/R[e5eJ.NgyãU"jPzM)t^r$c_1+-00_^/NB46Ks3%CJ,-KRP'Wemg%VD$P>eB>eovGHAD';?UD8koãU"WlZp%p2sQ1THiNMLskktZq_/o_EPAQZr4]Oc-WY-LsA]ONhAãU"*OM1Fq)X&mf.'*Z)89DBXt=sN1;7p#q4=,_aQ0jWRc?Q58jdG-%up()#9%'OI-%ãU"VyS>F]4.hbf%.%%v)%%%/%%%%uf%nsyz%Snhs-fJV3AQe5T3Z&G*780Of+(M?+s'hqq#:jg;Xj^;<&ãU"5V&StGVqVkHT4_CxqS1T&Gp5Tp#q?nrJ8$6j#z'J9Q'W-m3pSwb#A\F9l&U:d(TãU")&JlsoL*\=7M8rrnhWTAXWqA>P,Fs;L_F-tx+u%p()9.%'O-L%fy>(FE0f*Ff%%ãU"(%v)%%%/%%%%ufn%syiS[nhsf]JV3;%U1evC4[MmiQ_i&1,/>]:ov_7C6+%X/T>ãU"I8o1f(I\ZE<[2IW*jU:1%f>vo4h2iFD(\7\,QLf=]Bbkb$6A\4[4P;5'v9)Z?:<ãU">Q/j,IIxmPjjnf^sgY[=kLO9Bt0/y;0FpsjufS*^Vy*w^SCd-dwu6(so\(;NkNeãU":K2$A#],r>hqeHFJo<_du&#+up%()/%%%%%%3\GMF()fvG%,%%%%,%%%%/%%%%gãU"wzx%miSi%fyEZ%V[E2%/up(%)/%%#%%%H)GMF)&fvG,%%%%,%%%%/%%%%g%wzxmãU"%zSif%yEZV%[E2/%up()%/%%%I%%$xS>F.s&R>,%%%%,%%%%+%%%%hi%Sify%EXãU"YU%E2/u%p()9%%'%-L%$x>%Fuln('2%%+%('%%%+%%%%hiS[nhsfBIV/OdU1UJtãU".:RBl:Fjajv5X6MVozV'j7CI3?e_uJQEWr/P\Kp2jey>-QC;2Ku1hX1^COnI295ãU"[e9KBTR,.fl,SoggnJJj/F3.sãU"R>%,%%%%,%%%%+%%%%hzSi%fyEX%YUE2%/up(%)9%'#%-%UDx>FhZSNq0[%%%(%ãU"'%%+%%%%h%zSnhssfI:(.OU1kTZ6>#6a][:]i'F+SY;/a3[?2,7-6Cd75pYlF9FãU"qpTVeKjãU"dO[u'w$d%^%up%()/%%%%%%3jw>FAaphl%,%%%%,%%%%.%%%#kgt'%iSif%yEZ^ãU"%WE2/%up()%/%%%R%%Ow/>Fap(hl,%%%%,%%%%.%%%%kg(t'zS%ifyE%Z^WE%2/ãU"up%()/%%%%%%2iw>FAaphl%,%%%%,%%%%.%%%%knqq%iSif%yEZ^%WE2/%up()%ãU"/%%%I%%yw/>Fap(hl,%%%%,%%%%.%%%%kn%qqzS%ifyE%Z^WE%2/up%()/%%%%%ãU"%2Gy>FAaphl%,%%%%,%%%%/%%%%nqtf%iiSi%fyEZ%^WE2%/up(%)/%%#%%%5DyãU">Fa.phl,%%%%,%%%%/%%%%n%qtfi%zSif%yEZ^%WE2/%up()%/%%%#%%zy/>FapãU"(hl,%%%%,%%%%/%%%%nx(f%ji%Sify%EZ^W%E2/u%p()/%%%%%I%hy>(Faph&l,ãU"%%%%,%%%%/%%%%nxf&%jzS%ifyE%Z^WE%2/up%()/%%%%%%3[y>FAaphl%,%%%%ãU",%%%%.%%%%qnsj%iSif%yEZ^%WE2/%up()%9%'%R-%[yS>F9)6G0e%.%%v)%%%.ãU"%%%%qn%sjiS[nhsf\$V/<%U1jZkChcVG*Pge:1pgv)ASg39Yp]%.^mUC<>TWeLpãU"Vec#okE*\g1BlVfVn3X.eH4('g4RmYuDNLg'NX&]3sH(^=AYPg<$)LW;#^[\:8-ãU"dhSqb/G=)X?jn5*%fc8t\-u]$=*^6zk_2TVk12mpun?7Qb\$EQEw5:&BtHtlT,kãU"s*H?VgSUbJwg%Tup(%)/%%[%%%FDy>Fa.phl,%%%%,%%%%.%%%%q%nsjz%Sify%ãU"EZ^W%E2/u%p()9%%'%-O%Fy>FFcOs(:c%%(%v)%%%.%%%%qns%jzSnRhsf$'*2'ãU"Vd1j,)L'b+^mW&0;/\ej+[W)(UIKF3.sR>%,%%%%,%%%%+%%%%riSi%fyEX%YUE2%/up(%)9%'#%-%u)x>FBCãU"#d<-[%%%(%'%%+%%%%r%iSnhssfI*(.OU9bSZx)Z/+)B78B>rFqb%EC_Opm*HSlãU"C#FM;)GIi:NU8a))kP6;JOEX_gCi+,g0Ie0kf(;iDiWw1Hay*BNA,TyFZ$6fVutãU"$hf9^UZd[aIAw,L78u%p()/%%%%%L%Lx>OF.sR%>,%%%%,%%%%/%%%%rns%zxiSãU"%ifyE%XYUE%2/up%()/%%%%%%2:x>F3.sR>%,%%%%,%%%%/%%%%rnsz%xzSi%fyãU"EX%YUE2%/up(%)/%%#%%%g_x>F.)sR>,%%%%,%%%%+%%%%r%zSif%yEXY%UE2/%ãU"up()%9%'%I-%gxA>F)>5---%7%%('%%%+%%%%rz%Snhs?fI*.AOe1T*ZFL3;/0ZãU"-k]YC3SV01TG=[?8(YI6C[G)02lG9&uXrAV%,]99#-MaznXt,gc/I&=/o%O?f7sãU"147f<31Ut=>1tu7oDvHHp3W,cw(-bCnd2'$%up%()/%%%%%%1Ky>FAaphl%,%%%ãU"%,%%%%.%%%#tgt'%iSif%yEZ^%WE2/%up()%/%%%#%%/y/>Fap(hl,%%%%,%%%%ãU".%%%%tg(t'zS%ifyE%Z^WE%2/up%()/%%%%%%2fy>FAaphl%,%%%%,%%%%/%%%%ãU"ufns%yiSi%fyEZ%^WE2%/up(%)/%%#%%%VDy>Fa.phl,%%%%,%%%%/%%%%u%fnsãU"y%zSif%yEZ^%WE2/%up()%/%%%[%%g3/?Fap(hl,%%%%,%%%%-%%%%uh&'iSi%fãU"yEZ%^WE2%/up(%)9%'%%-%g$3?F8XO?Kd#%%%v%)%%-%%%%u(h'iS[nhsf\$V3;ãU"%U1jb%EWWVU\*p5[t]ohguD1AH?C&'eA9]K\ZuH[)weHPUgW*N2HYnHQRB:ML%sãU"RRjX-AJj5jb>3_RdM&]?l.<[GCRO:7#zT2r1pQ3$U+gQ_=1QoAw+jYA_gX=hA_oãU"GxJdKGErAUYSP5..YKu_E'$Sl6LExKfb*NL9A6aCMNpGh9'/H8md_2%up()%/%%ãU"%m%%q2/?Fap(hl,%%%%,%%%%-%%%%uh&'zSi%fyEZ%^WE2%/up(%)9%'[%-%q*2ãU"?F7A8^)f#%%%v%)%%-%%%%u(h'zS[nhsfb$*2;#e1j,%ukojBF51_,;976j#I(BãU"9ff,%ySB,S#efUK#fk10Zwzsau4Khf=N9#b?e_e_3>L\XRe64piVJbpãU"UFaWj^VNu'Ht\/DY/v=tZ:W;f1Z:w&nF3.sR>%,%%%%,%%ãU"%%.%%%%uqzx%iSif%yEXY%UE2/%up()%/%%%#%%4xS>F.s&R>,%%%%,%%%%.%%%ãU"%uq%zxzS%ifyE%XYUE%2/up%()/%%%%%%21w>FAaphl%,%%%%,%%%%.%%%%vznyãU"%iSif%yEZ^%WE2/%up()%/%%%I%%Bw/>Fap(hl,%%%%,%%%%.%%%%vz%nyzS%ifãU"yE%Z^WE%2/up%()/%%%%%%3Gx>FAaphl%,%%%%,%%%%.%%%.xf%j%iSif%yEZ^%ãU"WE2/%up()%/%%%R%%2x/>Fap(hl,%%%%,%%%%.%%%%xf&%jzS%ifyE%Z^WE%2/uãU"p%()/%%%%%%3;y>FAaphl%,%%%%,%%%%.%%%.yj'y%iSif%yEZ^%WE2/%up()%9ãU"%'%R-%;ye>FZM4oN]%Q^ivn$=d^>xrUJ&HDT%2MFO+P9Lf?o-1ãU"/uEJ)wb->:G3VJ-B'ZLIJZ>c(oE6>/(3K$wJ1TenB)(AfD7A(0L=4gOu#4\ZV;HãU"#4x;E41ab?+wGO-&okBD>IpI/*Fce3Q5jd'G,up%()/%%%%%%3&y>FAaphl%,%%ãU"%%,%%%%.%%%.yj'y%zSif%yEZ^%WE2/%up()%9%'%R-%&yA>F0i1Ld]%.%%v)%%ãU"%.%%%%yj&'yzS[nhsf]JV/;mU9?j(\G*tWK,5h3(F?1NMjg[2(BPGI;_ZRYbO]LãU")(-w/=*VsR6xZf757WVXrJ4PIAmsxiNNh_zVSD+(taF>oQb=VAq%'5qI:2x<2S\ãU"d*V'g,vCX=7QOB>ZARlB4ZãU"T/vN&.up&%'9%9%%%%-L%uJMsFH67&2#8%(%2m%%%1%%%%%%%%%&%E%%%%%%%%%ãU"l#wni&%twpS%gfxu%p&'9%%9%%[%-%oCPMF\2VS1]%0%%c%L%%1%%%%%%%%%&%%ãU"E%%%%j8%%%lwn(i&tw%VSgf%xup&%'9%9%%%%-F%oPMOFb<+($x(%(%i0%%%1%%ãU"%%%%%%%&%E#%%%v%C%%l#wni&%twWS%gfxu%p&'9%%9%%#%-%%(PMFEN>,z*[+%ãU"%7%;%%0%%%%%%%%%&%%E%%(%IG%%%lwn#iuh'%Sgfx%up&'%9%9%%'%-%/&JMF?ãU")V&?&B(%%'#R%%%-%%%%%%%%%%%E%7%%wM%%%qt%ltSn%hsup%&'9%%/%%%.%%&ãU"J\MFWl)$.-%%%%-%%%%-%%%%%%%%%&%%E%%%&fQ%%%qtlt%Sify%up&'%9%9%%'ãU"%-%3UIFFQtvWv&g%%%&v)%%%.%%%%%%%%%%%E%7%%>Q%%%vz%nyzS%nhsu%p&'9ãU"%%9%'#%-%1)w>FnD=%(h#%%%v%)%%.%%%%%%%%%%%%E%%(%SR%%%vzn%yiSn%hsãU"up%&'9%%9%'%I-%ywS>FHL/7MS%.%%v)%%%.%%%%%%%%%%%%E%%%%iS%%%knqq%ãU"zSnh%sup&%'9%9%%'%-L%iw>mFR:d*QW%%(%v)%%%.%%%%%%%%%%%E[%%%h%S%%ãU"k%nqqi%Snhs%up&'%9%9%%'%-%3Ow>F=#3&#&Y%%%&v)%%%.%%%%%%%%%%%E%.%ãU"%mT%%%kg(t'zS%nhsu%p&'9%%9%'[%-%j_w>FKTcFC]#%%%v%)%%.%%%%%%%%%%ãU"%%E%%%%tU%%%kgt&'iSn%hsup%&'9%%9%'%#-%4x8>F47&MNz%7%%('%%%.%%%%ãU"%%%%%%%%E%%%%)V%%%uqzx%zSnh%sup&%'9%9%%'%-I%#x>RFDj>)H(%%+%('%%ãU"%.%%%%%%%%%%%E#%%%O%V%%u%qzxi%Snhs%up&'%9%9%%'%-%32x>FR-3lx&d%%ãU"%&v)%%%.%%%%%%%%%%%E%%%%%W%%%xf&%jzS%nhsu%p&'9%%9%'[%-%G_x>FhQqãU">Cf#%%%v%)%%.%%%%%%%%%%%%E%%+%5W%#%xf%%jiSn%hsup%&'9%%9%'%7-%s?ãU"\MF$g5=kq%.%%v)%%%0%%%%%%%%%%%%E%%%&IX%%%hnwh%qjzS%nhsu%p&'9%%9ãU"%'#%-%(^#MFEO6Jvn#%%%v%)%%0%%%%%%%%%%%%E%%%%jY%%%hnw%hqji%Snhs%ãU"up&'%9%9%%'%-%1/y>FfiEEP&h%%%&v)%%%.%%%%%%%%%%%E%%%%2Z%%%tg(t'zãU"S%nhsu%p&'9%%9%'%%-%K_y>FpIO02q#%%%v%)%%.%%%%%%%%%%%%E%%+%FZ%%%ãU"tgt&'iSn%hsup%&'9%%9%'%I-%:x&>FPd'b>q%7%%('%%%/%%%%%%%%%%%%E%%%ãU"&e[%%%rnsz%xzSn%hsup%&'9%%9%'%I-%Lxe>F;W'frw%7%%('%%%/%%%%%%%%%ãU"%%%E%%%%/\%%%rnsz%xiSn%hsup%&'9%%9%'%#-%hy/>Frj6AAh%.%%v)%%%/%%ãU"%%%%%%%%%%E%%%&S\%%#nxf%%jzSn%hsup%&'9%%9%'%#-%zyn>FnC.(ze%.%%vãU")%%%/%%%%%%%%%%%%E%%%%j]%%#nxf%%jiSn%hsup%&'9%%9%'%R-%O0eMF^.39ãU"6<,%%%)?%%%1%%%%%%%%%&%%E%%%%(^%%%lwni&&twp#Sit'%up&'%9%9%%'%-%ãU"25y>F:3ysG&h%%%&v)%%%/%%%%%%%%%%%E%.%%ie%%%nq%tfiz%Snhs%up&'%9%ãU"9%%'%-%2Gy>FIO>Q/&h%%%&v)%%%/%%%%%%%%%%%E%.%%*f%%%nq%tfii%Snhs%ãU"up&'%9%9%%'%-%2Vy>F*]4hb&f%%%&v)%%%/%%%%%%%%%%%E%%%%Ag%%%uf%nsyãU"z%Snhs%up&'%9%9%%'%-%2fy>F\E0fF&f%%%&v)%%%/%%%%%%%%%%%E%7%%Tg%%ãU"%uf%nsyi%Snhs%up&'%9%/%%%%%%3\GMF()fvG%,%%%%,%%%%/%%%%%%%%%&%E%ãU".%%ih%%%gw%zxmi%Sify%up&'%9%/%%%%%%2HGMF()fvG%,%%%%,%%%%/%%%%%%ãU"%%%&%E%7%%Bh%%%gw%zxmz%Sify%up&'%9%/%%%%%%2$x>F3.sR>%,%%%%,%%%%ãU"+%%%%%%%%%&%E%7%%qh%%%hi%Sify%up&'%9%9%%'%-%2$x>F%uln'&2%%%'('%ãU"%%+%%%%%%%%%%%E%%%%Hi%%%hi%Snhs%up&'%9%/%%%%%%/(#MFAaphl%,%%%%,ãU"%%%%0%%%%%%%%%&%E%.%%yi%%%hn%whqj%iSif%yup&%'9%/%%%%%F%s?M(FaphãU"&l,%%%%,%%%%0%%%%%%%%%&%E[%%%S%i%%h%nwhq%jzSi%fyup%&'9%%/%%%I%%ãU"UxS>F.s&R>,%%%%,%%%%+%%%%%%%%%&%%E%%%%/j%%%hzSi%fyup%&'9%%9%'%IãU"-%Uxe>FhS6Nq0%7%%('%%%+%%%%%%%%%%%%E%%%%Zj%%%hzSn%hsup%&'9%%/%%ãU"%R%%jw/>Fap(hl,%%%%,%%%%.%%%%%%%%%&%%E%%%'3j%%#kgt'%iSif%yup&%'ãU"9%/%%%%%O%Ow>(Faph&l,%%%%,%%%%.%%%%%%%%%&%E[%%%a%j%%k.gt'z%SifyãU"%up&'%9%/%%%%%%2iw>FAaphl%,%%%%,%%%%.%%%%%%%%%&%E%%%%;k%%%kn%qqãU"iS%ifyu%p&'9%%/%%#%%%yDw>Fa.phl,%%%%,%%%%.%%%%%%%%%&%%E%%%%ik%%ãU"%knq%qzSi%fyup%&'9%%/%%%I%%Gy/>Fap(hl,%%%%,%%%%/%%%%%%%%%&%%E%%ãU"%&Ak%%%nqtf%iiSi%fyup%&'9%%/%%%I%%5y/>Fap(hl,%%%%,%%%%/%%%%%%%%ãU"%&%%E%%%&pk%%%nqtf%izSi%fyup%&'9%%/%%%#%%zy/>Fap(hl,%%%%,%%%%/%ãU"%%%%%%%%&%%E%%%'Ik%%#nxf%%jiSi%fyup%&'9%%/%%%#%%hy/>Fap(hl,%%%%ãU",%%%%/%%%%%%%%%&%%E%%%'xk%%#nxf%%jzSi%fyup%&'9%%/%%%R%%[y/>Fap(ãU"hl,%%%%,%%%%.%%%%%%%%%&%%E%%%%Sl%%%qnsj%iSif%yup&%'9%9%%'%-O%[yãU">jF9)G*0e%%(%v)%%%.%%%%%%%%%%%E#%%%+%l%%q%nsji%Snhs%up&'%9%/%%%ãU"%%%3Fy>FAaphl%,%%%%,%%%%.%%%%%%%%%&%E%%%%>m%%%qn%sjzS%ifyu%p&'9ãU"%%9%'[%-%F_y>FcCOs:c#%%%v%)%%.%%%%%%%%%%%%E%%%%lm%%%qns%jzSn%hsãU"up%&'9%%/%%%I%%uxS>F.s&R>,%%%%,%%%%+%%%%%%%%%&%%E%%%%'n%%%riSi%ãU"fyup%&'9%%9%'%I-%ux&>FB#/d<-%7%%('%%%+%%%%%%%%%%%%E%%%%Rn%%%riSãU"n%hsup%&'9%%/%%%I%%LxS>F.s&R>,%%%%,%%%%/%%%%%%%%%&%%E%%%'(n%%%rãU"nsz%xiSi%fyup%&'9%%/%%%I%%:xS>F.s&R>,%%%%,%%%%/%%%%%%%%%&%%E%%%ãU"'Wn%%%rnsz%xzSi%fyup%&'9%%/%%%I%%gxS>F.s&R>,%%%%,%%%%+%%%%%%%%%ãU"&%%E%%%%2o%%%rzSi%fyup%&'9%%9%'%I-%gxA>F)>5---%7%%('%%%+%%%%%%%ãU"%%%%%E%%%%]o%%%rzSn%hsup%&'9%%/%%%#%%Ky/>Fap(hl,%%%%,%%%%.%%%%%ãU"%%%%&%%E%%%'3o%%#tgt'%iSif%yup&%'9%/%%%%%I%/y>(Faph&l,%%%%,%%%%ãU".%%%%%%%%%&%E[%%%a%o%%t.gt'z%Sify%up&'%9%/%%%%%%2fy>FAaphl%,%%%ãU"%,%%%%/%%%%%%%%%&%E%%%%;p%%%uf%nsyi%Sify%up&'%9%/%%%%%%2Vy>FAapãU"hl%,%%%%,%%%%/%%%%%%%%%&%E%%%%jp%%%uf%nsyz%Sify%up&'%9%/%%%%%%4ãU"g3?FAaphl%,%%%%,%%%%-%%%%%%%%%&%E%.%%Cp%%%uh&'iSi%fyup%&'9%%9%'ãU"%[-%g38?F8O6?Kd%.%%v)%%%-%%%%%%%%%%%%E%%%&pp%%.uh'i%Snhs%up&'%9ãU"%/%%%%%%6q2?FAaphl%,%%%%,%%%%-%%%%%%%%%&%E%.%%+q%%%uh&'zSi%fyupãU"%&'9%%9%'%m-%q2A?F78.^)f%.%%v)%%%-%%%%%%%%%%%%E%%%&Xq%%.uh'z%SnãU"hs%up&'%9%/%%%%%%1#x>F3.sR>%,%%%%,%%%%.%%%%%%%%%&%E%%%%kr%%%uq%ãU"zxiS%ifyu%p&'9%%/%%%%%%4_x>F.)sR>,%%%%,%%%%.%%%%%%%%%&%%E%%(%CrãU"%%%uqz%xzSi%fyup%&'9%%/%%%I%%1w/>Fap(hl,%%%%,%%%%.%%%%%%%%%&%%EãU"%%%&qr%%%vzny%iSif%yup&%'9%/%%%%%L%Bw>(Faph&l,%%%%,%%%%.%%%%%%%ãU"%%&%E[%%%I%r%%v%znyz%Sify%up&'%9%/%%%%%%3Gx>FAaphl%,%%%%,%%%%.%ãU"%%%%%%%%&%E%7%%wr%%%xf&%jiS%ifyu%p&'9%%/%%[%%%2Dx>Fa.phl,%%%%,%ãU"%%%.%%%%%%%%%&%%E%%%%Qs%#%xf%%jzSi%fyup%&'9%%/%%%R%%;y/>Fap(hl,ãU"%%%%,%%%%.%%%%%%%%%&%%E%%%&)s%%.yj'y%iSif%yup&%'9%9%%'%-O%;y>:FãU"ZMo*FAaphl%,%%%%,%%%%.%%%%%%%%%&%E%%%%gt%%%yj&'yzS%ifyu%p&'9%%9ãU"%'[%-%&)y>F0JiLd]#%%%v%)%%.%%%%%%%%%%%%E%%(%?t%#%yj'%yzSn%hsup%ãU"*+%%%%%n%7n%24%%%Ju%%%%%ãEND SUBãV2ãV3ãCLOSE:IF S=200AND 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ãMarhsall Drew-Brook LANDSCAPE GENERATOR www.globalserve.net/~brent/tech12-13-96 (22:00) QB, QBasic, PDS 688 45409 LAND.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"LAND.ZIP",4^6:Z&=33824:?STRING$(50,177);ãU"%up()%9%%%[-%&)%QF[r6rv/'7%%B*%%%-%%%%qf%siSg7fx.y2,>je^5Kl[=d%ãU"lzXm)>PLr9xXGCQlQCoO'xBSMTg^i=zP\XUzftNXV,J#T\bJy4d;Nr5EE_E>fA[hR#Lx?,dP444XCr6P?19Bjqe?1B^YUtXZgdnqN$NeL,[ãU"+P2:s2Bg5be',/dl5/MV;+qj$^gi,Un;azikIe6-X/[7RULSOF>_w%cChSWP2C)ãU"QIRH_tHk(&RGnmH(IYg52><:=GU$gfd]8=:Z*9/3K[RG'IW;nY<8i:.#wT^IãU"j;5]x/p/Baqt[vUlRWibfS/\W43S(Qj6R3d0+F#efZ:I[(%\QC0omfs=2g$+*l;YO($u*7fS)#H>uR_ycQ%pP7FGFjF&?7V&ãU"].:W>mX4d(1lLLE2Ed[GHo>GX3teXQ['ãU";mdNA,4o9Pf\IERoi(OmGo'(6^R9sD*vbc]gPEWVvsS+j7J?(vjN:I]^hAU6]uOãU",tSmZb\.W?/K3a8#ywJ9*0-I0#RH+:8Ci+a(Ph41Nml&Ylc$]'8%up%()9%%%%-ãU"%+r'QFkXn5P%R%%%%f%%%%0%%%%rfpj%htrS#gfyBFmGTw+yItw9AnEpsnGHN%pãU"nQ&,#.07&BwpoOwZK_Ca[(5R(:lA*jA&%%up()%/%%%d%%k&[QF,2+Th[%%%%[%ãU"%%%0%%%%qf%siht%rSif+y18%9F517+54&%c26%37[&F5K3%o]6;7<(]8%%24&sãU"sno\'ds]1,1F+F1(%9F51%+qFFu%p()9%%%%-1%$zQLFm:*)p4%%%%\'%%%0%%%ãU"%ufq%jyyj%Sify,4;l3%'U%(W)C04Th2hN[KvI1H=k,G0dpn-uuI4W45ry<7bHjãU"n_^Ie_Q6gCZf;#,dg/df3)3bqYu:9FXk0ãU"4wrre.>w?0Qx7ot<*xaNoP*oxFoXlNw(e>nMwviff9xarf<ãU")9x/t,$QNVtZ2RXv3e64RTvH8$iXg^ZOHrG[p)2;a%UsBUak'xIPxacCA9_jlJyãU"s(vK'-SS%'vU/%m]NSkponx,8qcEl7X3jZvspQmTgh$l.mMObwN7unHC:(X/iP(ãU"bO8F9741Y,aZkpZltpUjFj>3)X1,/M-9E/idmcM\ãU"6Fj:T\jTPFLrqAbvM,2%VS/V9.&%(QrNI8>ziPG^(mKFZmW7ow[X[C-2)2%7Q2U7C',CfeNs7$p%*8u3qk>DfpãU"<26p04QK?U^/:iQn%0O2Pzj^1[pn%*8p$<&qh8>#,7F)X,/nM-EnoYGr^s,8sqtãU"q[DKYZ9Yvz_HzfqRz%_VB9?4][-UK85ãU"IW*:WuYjdhqfplDfH;42'f/FH9u5g-$:z'3%e.v]kM6ulKq1[GZJPR#S/VfJ/iQãU"8GOnh//l9aOJq#c.5lY&/n.368(Q>j)fX8/&C,f8/Fbr:IJ>NK#9jzJpQLr#m0>ãU"55-0?I'+&/b4Sp9/7uNCG>rZqKm9uZv17T^FEd//bOJ[b]K9+k^<4nM2\Dtpp\+ãU"8%i)fbOj5QAW%#c8.aq:B[P7.kcV^[1;4't\Qj%\+F)V&?_A(MPH=R.jZ7n_fYPãU"upMrI%QS/R9n7k%?h)/l9waP9+]M&jJz_Q.>ncNKPH3'U0RE:a/[5V9;3mSJ9EiãU"7.Pu>A60OZq^\zmhTF$2V#ZF.QEg0[Ud)O;G?*%cLq/]P&HJ2f:T\(^eKZiVM'HãU"9O5O$/1?/#-ZElYIg'[C76^]<q:ZZQKt0(9DLQ=*9+4S1;/EH(_bb?_d.siGZãU"[PuYf_lR'1j5;a5%,)*OR#9ho4_uh\fgu=/606SK^mM4uHY-ee,'HDR2'[Y<<]5ãU"S^'r4c60Oq:ZU(v/GvS2g([V93=RZ*D'dfy],lHkSZ,898KFm:]Lp&s,MUG-fl.ãU"5K/?//a%)[SeoHE^^[pqYM.W*C?.>G1>S\%2[I?q,OrJqãU"K7(fBTXqowjT8yY4<>&ilhH:&FC:aO.jCkH-9c1wla9\1V>]uqoBH^6lNqy=n&*ãU"hHHl&/0(iQz%8:b1K\T9/)SS(PF?Xuev^lMNhpRZhH*d((%S:b1')OT>IiHPz0<ãU"'AV\\bbW&pl\u[H:(+.j26SK5nN)Zf;OQN+%\FUUlOx_1;/D+NBD/;t1^o7>#p&ãU"PZ8%p%F*8AKM(INe/>6QvGOj5g)G?n&K__?yR,ScLl\gjBXC*]j_d.QqXjiNV/fãU"fg([Ud)?U)gbQ\zXmUhP:IYN$(S/=69?**QW(,8MjNpiULB+IlqM$iYfR(aC51;9s%,CIA8ãU"/0d+NAY#q*8bn.Z81DYAKV%pt%WãU"lZ4>k]uA600-.CK4OUDI%;H?/p%BB4]+XzhQ.sp5\4>K>J]BTc^6^q6cJzKd=*'ãU"d]:^'%0GE#,t]m9NlucV8kAgj-:CHkpDH>+._Y-%nOLN%T%U5q(Z%nYg1%Na;)/ãU"R3Ag.O4:KJMI?XuY<-aR7]5a1;M9&w,N2uGHR0_JcMAT^f66KXcE0]9/wãU",6)D'lfA:X?b/ii;RuWcV8W9tK&lb\uwWj#i4-Wp\%4CYg+'-d:>&]wMR9.G,=QãU"C%mbJ]O7m:ZWltSr8Wt_oBTf6=z[tk*EyI=6pYK&0__?(7&urz*wtw^GJO%%+?dãU"codzT$e8$IXitMrq7;$6n%RK'uM;)ON>&sy*xcIW0S'jpeSP28B')w%^u^EZ(,Y'O^iJwhmBZãU"$u1u+WVjRh^A:RD/&\,l)Dg*gfhzoPh'U^J;%1I#rsDj_0XsoF3n^?rNu[t\17jãU"&?)D'lfA:X?R;cQi.9.(,i3FYZ*:eI4Mnkz8+p3&XMKOd#fu?pn-z.8YOZa'Ei9ãU"IG,=sa'%IuqS'L>#K?mMpjMj_<&]tKKkpH>X:7(&n*R9%(,&0UrPPd0S?zug#VOãU":tFLeS-u5QUMHUU)_HF8TMPD;.DTom]fckW)X3P2e&YgnY[^%zXA\J+ekUhaiwkãU"ve/Fq9Gxcf^pxc^Jab[iWjqp1lXt-3_I?IMRcy/ckrzwn$^O%sNY4QZUKK[d4R6ãU"dcDhbrUjY$KurNYt2r9Z&KEjKru5.\D.Rf9iOX7s0)M^(fo9c9o0sTf*c]L+n<8h8<8>\zjf/1+M60QrZm\ãU"eDDtU1\$.?UDPv081.:Q$9[%d:]?B3I)*AT54kT0d<%]eDijzEc&:e+[wFdB9I*ãU"uy$#do+XDG5&?/6[:DAF=uOd.D0aW\*-;g%O,S%Jn';=asa.*HãU"/OPG-:S3M:e:awKuOP.^*P%p9%=8oXHb\;Dk.KJsIkDi-r)Rm9+t:>$t7(&f=/%&r=m/.N&eo2dI^'Md,N+[44*0K]=Lu]Tfqz9rQbãU".ND[[Rd2kb2uuk*uBJa/i\dtn;&nhQX\$dVS.ãU"^>?w_5Taj;4dZ[qGm?vGR=r8cu]s?#p.9-^9AC&aD2mc)jV8BK9u)Nkdt,O?tCkãU"c[veTm'MGBFwDjfmS,3GsYS.W7;iSYg\4Iu.6&6Q6BMEkPsav;T.v/Y^%Q7Q%m8ãU"=8ePQ'Jm$Fmkl-H>KXzMQbFW.=q[.>q4z7&&RcZ>&Un4XYriz1u\?jjrklv)OfkãU")7urGLtT2x)\p5+rM]8CBHO]J-w;*T;$t:5eIRfM&Ot&wb?f,TãU"Z(Ady;iK:4GpPKV+KH)r^lF%25*(/0JGsM#[3($hXdIX?5S]F;9uO$OOdqPnFCPPQ9^P]Ytr[fq,MepX4o5auw.5do;/E>P&.4T.?r#S'[wuu_lF/P8;#01BãU"T.jRi5i,*1_Y=bwmSJn:T0.-2Y3C^_G-(;zYjusp,ER'bYBeE:7Yj3;r4Z3uY3NãU"3rMPdLf$MmN$la>Qqq=h&<$CmEm$_Bj3mOt5kjbb#4&MV17Oh-F=qJ*1H)zZGbYãU"&F/nuNYO#9SEAW_rC0:0fSOY0+;H6QoGjF]xT)Qn70H/%=tM$R,_fpKA4GwDe%NãU"Fp?;GoHkrAr>%ij%H%ãU"lOpJ:Ass/:]:l)M#b*eikoe(_3+[i0m(<%#PO$I::g\*UY^3DAcN9:HHt(7-/5SãU"cUOKm5_oY:7Eja7nJM4hUR%*7ZzjTsjp:':9_l2bFbDTINiF%10f7p,aH$[YvzqãU"/pw#&nYQ,u);l1zCpBpY:E].)r47#vTRFc?o];g-?)D9$DWw,-OgE;(E&r(\^AYãU"#3dM/=^,Fb7l4H>^K[DN]6T,GKgãU"Rpu_eB%LZTU^seRL(iRn.LuEE\(F+%/oU>>U'ZW()4#tcZR%QVC-(:-*2.d>/L8ãU"w)n+pW^+GN7EG]sH8,L8sJ/vD,5=nA#-c3iu(QMSHPDddKkSj:jV,k_sjm87uG;ãU"frc,EdKtN'YpFw'LWK9nj44nqbãU"6MMgei7K(NXLZ',nTLZg6S.:,JfZ2WDãU"4RqL)'aC>3C+n87$W=hQ>.1S1Ra5>;:vCn+wfb92%;h'hZq&S/p4]iq76c%u/uqãU"ihnFP\>P$Y57j\4o^j:r-xIm&tp[Y#k?VLsS:*w31;Z38W*+j)5:]jlNXT_-&(*3'*,Y>_5S3>N8e%_*$Qe;ODCqoV/)F#w_xJ\IDãU"le=/3<[9HY3%E9v3>#8/&oVtT*d$u)(H4iIw-dQUS-[.\k*HB3Wc>;'7[.kTB9RãU"hG,8qFT-cJt+*&.mI0%-o$k.p+j\R5t64&m_\*wzVtPIE+4y1OM*I17GgP[pfR7+P5E,:dG\ãU"\'-3imw^ZV*LEh.CWMB1Q%_T>=W5N0ai?gt>^O&\mCEeEg0#VKKunZ^$.hBArt;ãU"IJ_W=I3I'*U<-$c=IZbrrZ/hm;_(Vps*$yz)j/KDTkE>fvgo*z^coOui00K$&GHãU"F'5kwbSW=j_Ip?%fr$EO9,L45sER'MD_25IIt[ip:N8cU1fVAX6DSr0qOToT(dfZ135;_tpcS0+[m:0OrtQW?Iaoh6bRãU"Mo%(nnp$G)V1(tk/nL\]Uh%t*tY/=TQm,_$OG_PiZqf)uxi2)a2*Iks?O+h_%):ãU"&-oK:Q.2c#C^Rh#FCqjk4l+?W/\kSv+5]KG#9y34jaP634TDkSP:uqSouPYJVi8ãU"JaKj:L3_r$UlrcePJS0<_kHW.Yd1$0\WR;#?GPF:i\%_\*T*H:Jxd-M-P/gd#r]4[/xP8<5KFpH]dBo6ONXW*rãU"U;M.gtAjt^rfCV9nRl^$F9\12xz6%L$&u/ZC\&]P_-h1kVtE#N,R,okQc9:&nMSfhLFn:mJãU"B&v[]E,NAG\.ju=D=_OG5&Q3B1EWBZtjvwin6*9*VqGQhoif-'X;y)8??rnp(&nãU"uWaQc'WE:=TqdiREpY)eg%VpSFsLKa:Xf5o*eTk&JEL8dU&3R,:]:9hnebX=3m4ãU">bm:I5.*3GL]J>:+XPzITPfCj:)FPu'6vu]J#R0JAWE$[q#V/-J%DF8-1d&br>FãU"t/Ii$#)Kk$K'_.F9\]Z#YcKDD[a.lhwk[ta?n)EfN:e&K:&bi-GVA$n)mZ&lum^nk^eK5Wm705g:pSFhLvB+ãU"PPr$=\SW$J*J$oMr/p#vX%Gme_tY:luT77TuiOww<4FhCIca?G7%TQe^tF\NhT]ãU"gH84)ai0S(=8cXbE1yvO;S9HDEelCs.sPfoN=jD>9\9X1w)\F#&*ãU"$s.(7&tC_ghFji0gom5LXK5:M9RRp,$dJebH*b_?3Z'bRmc0&q%=cJuMBg)G^,7ãU"9TmClb8ou6%sD4L%+fm+drX?#k$1?HFjtNKDc??1)r,p[>nãU"h$K=\UH(D0L#9Fi+#(3_u7Rf*NNr7&^7;nM?qDPiPxVewH3)l]e;j6gauPss3mwAcPQToh5Qf:7a)Jm<2&,rn/)9'dZfWhFg:X(o6ofBNj$fM$Sb6uq2cQ#V-tãU"Fg%m/Te2/fN0_E8;wsA+5f37O,7d*af=+3c4TxR8\SHJoDnbZnDd(cmV\cl**j'ãU"]d$-y(4Tq_>%p0s=/Bj]eMLoMF;O9vLUKGãU"C\IoTuDB1:*%DBbBMe#oJeupWZ&0e>Lz\XD<+2ds\>&Pglvv#M-R*eX<.hpoym'ãU"OsT.1hg_a0B#uFGVT#Z'ANUzo8xXjC,Hpr:&zv347=a>LH/_v>M7222;G'ib:5QãU"8F'e*iKg1/'hGA&WzWKX37ãU"t(,Ml7_I1H<%#4Ca1u]1Hp(V&3uJGQ$.Tl%8tCvAV.+unh8_AbON)0*v_^4KU]UãU"$kEZc/>>]%3hbZf-0TZA-Kzbf%)n9mu8bQg?%lDEV?sVJtTQ,N(f]Iq1LLRfwvxãU"P].nRK18ycNMuYdaN9+ZsV]VLh[Pw0,0ukC2w\[1*DNH(?o,N9u8w.=vEgLMz]5U^tvãU"D>2hgM\=]]J]cS\_][?8bJkLeb<&>8mZXWmAW'A']l&G;R?dj?-TOfx.2d(j9KsãU"jx?6W*s:7Wt>u'LC0?,U[*8?-MAemNtt/e:#bFb?T\P>9Vv3XbMD(Bz.EKi8QaMãU"?3Q;3hMh<==&]bY#%BB$WtGP+EcY9Ogr(F409/_);rEA0pcEp+ãU"*qc+J)4D/UHEIz%cf:h^+_.5xd86zYOunGAOCRh8unM\6>h:tPPadb1Vs0nnTdHãU"e9YjS#4ql-^)pPmNFlcgQM1DOu7+Sxzj_m+av4b0ik];tuA[lN]\uc??)D+_NoQãU"Xg97sirx]^:oK,P;Dw_:ZcZMx?bn)3\M2/NG(&3'Lj_1\]Vl8DicO<$jC/g9(=5ãU"qzcF0bQNpuzDbzT5e:m>V^kX&I8.4MRlEER+aq0g0t(IP4z*VLMtcun&imN_r04ãU">q\(r[gQqTI6Um'E+,AAnW?+bbx+Jo^fAe5hwqkup[+A<$+ãU"$&)lCg*4T%8n]W7J37W[BjR&c)TL*AMDuV'Pq#U4Y]v.:CbRor2X8DNãU"NmZf]2sRg6XB:q#TQ_Tq]qj4R*QoV,7ZlZtyc?.:mn3vso,ãU"nwq6Jei3N9:;DIo.uRs7Q6'(%[_AyeY]>lRmK/X[mj[iFc1Wu1mHpL\**%.N>yiãU"WE*tLbm#fB^aGwLfIBm_gXbYs9XQvtwagvv'%#HWFEkCuw5bc[HrjWei6g\CSp[ãU"FD=%>eoX8&:ctnri^bZl#m3Q9z(9VG73/GlMTPSoP?);Odl+W;DãU"pBZnrf&KGc)\83%&IbO_DM5RpD'GF%AHmF%NZY6t-FFTqTen9FY9pUFt\oB2oQaãU"JrrLlVVVNOh3UGU1+[DE3ZC7)\CTo1f+HY'he?5fRHup^WpW&_]dlsj-KlãU"Xa$ndFx8Q*'Oqr)x'B4=;d5EQqG/o+^huãU"A$Y$f(IwM(90=O3R8_l.W]o1$oM?K::q:KU-tFEFq2\'#X(gOIh,ikS.oacG[fWãU"]yhgh%%KVHKVhL>PTjidãU".CMV+XabcB-QV44NuHauhO$BA9=de]Z#SSh\p/b._oOEtrQ]HT)ZCIME;;2%9H-EV4ouSeLA&j5LãU"6Z*/AOc0re#kVh.ãU"*Yp9dK63Ct6ATs.c5&VM=LmSe(tWrssq[.,f,H.?lm/rMZ%tkRY[ZJy/2l(kw'kmk7nQBGlOz(H#LZ&W:0NVp\r/Ok;Y]a*l.3H[qh;1)SKFMp=B:8K0R:pãU"szqM[z&4qU)oS]&1yQmCWuTH,pGC#1zI'[Rpc1a&Z^;U2Qfrk\ZHlFQ(FhS-GahãU"F9&Dm#5kEED42XR)oq-G;a25WihoTCfc6QEx^T;u&AckeMl:*QV]WrxeOF4*s#85=2)r5M>rxo#U?GOf2#PT2]3?(%Uk^ptO[=p+aSBn5a.JStfV#YX[_.jnH5ãU"=_/=BEzjC3W%:e%Zn/DG=$E*2+G#xxtnUcLkC[?[Jx[rP;wD;+<9BMkU]b>Ae]7ãU"L*pvmWC,0:V-;DJS4jO*40n#n<40DF1V(dL.d=pCnQQPSjDb(AD(O)HsFUi(VFC&8wBdHC:OR7&auUo/ZtUtg2Np3O16x6OtN5uM65unFN<>/pfãU"gM$[=5:*gTjQ^7rBn]:f]T44YS1XUgm8hBKV99iT4WE(4CgKnbV89,u2V_0[$aQãU"o8k28udRc7.XA)tbytFT\-?rUXk?_28o*hf.c=6D:$ioC:<-aTYs%L;+FqC(>k=ãU"2nQlO61gt6/k%nVO;*u[0Z^kFccRJ\JyJ]L?t#bJydZQCJ_Aj1E3C?dTzkPjV\QãU"_o2O+2=;E]eqwhH,uWiOK#$cs+6mQ7=3>NgDeCp?g'\?H?/%TNj;K:IX-CZj%b3ãU"qbdZxL08$^DOdWhC\Eg4qs)Tee]EQdF-EgM;.zvYT;j1YA2B:Cpe]Vh$cJL4/CH-*I*#^f_;Z+6-8P)K0>PJiAQ]evh0ãU"sOLksn=a1T5G+x7p/3F.D^0%vNeuP>c_RQFFngqGM8G;Z%$W;(;'AhU11w]L^I$ãU"D,Mvg3^H3\#:]3^k/H>&WhH:_vd?*26j[xjawIM)Rr(Nm-,A2I4hYS3BZm\;j?NãU"Hrl]n),Aae40HM3rxoC#ruI+^vB\XGCQrPjs56b^HC#d0I^hVw2+ãU"n+$_Z4A1%g7%7fLLQ00LKj8#+-F[KRY;aRXWN3jãU"]^*qhsK+5M--dNAJK*Qif;>gHGtxpUJmE5qRiB2uUJ2l^T7rB68'bbwnKSKãU"h&%)&[Sfi'd+[3x^CQKx7d[q7\o*K2HY>*9#W_F*lY*d[6t#q-,Ci%bE;NO;Z=]ãU"G2bHf,8b%8]ZabSmsU%D<%JFuuqUjO^5/BIx/=aPi>9HU1giJ-[J?+4K0<>+:rVãU"S6c*/fB?7-]JMq'm)1th-^+%=ewM/KKnsãU"YpY/rPGan#l9TW,8;jsn2&QH'I8?WIJ,9K3rMIClkd-;3%pyT9GIH_IWmb8/foaCoAcHbX0=hqMãU"H,^/^hs$cNbNOgFb0\QB[7x:h[M%*Qf[9B$W0)sw[nuC,w\G7aA,6C,cW_4_4'LãU"t)#fZbVLGiTC&J-/=-lj6K2&z[dd-&5&m1:wH,Wq[NcB.QwA0DbD)ptGk*R(i'1ãU"G2F&_dOX^B&d:f/4[#NQ:)RBIZ+[AEsUCOKM]aBVe5BheqwV_wu*j<965N&f>0XãU"=A,3;e'?X\#nEEjgyeG+CHAnd4-:0K4%r0__0.UhK)Cm0.U5vLE$W6pjjg&9LKVãU"CYYsSj2N3^>uUZ<$#Q3lqs*U-.99g69GE/CE6>aB3:p%%lCrO>-hfV)OlUKlms9ãU"u+ab)(jn[JsG3COd4>&\:$VBZ9QTNwfTi8qK,mF%E;RT[IRacuxWcãU"G_X'RY\D2mGL)bdsuBWHQjc7*%rT^(jopR22kKNebIq;*:T$dKgd\#sw;8*VmS_ãU"6nE20%^xt^?5#/\=W^:qJpqVLJvLbX7^dcLY\HEcVVs*zu'4))61)W<2;#%BbB_ãU"N3F^2*umnbS3KFEYy2]DdUgE+x=mCdjWA5O1DD)$/P.L$['VEmuaR(FW?k%TstHãU"=/LF5wQ<)%8+XTlb&Opn,2:#/D.JHsXLL7K4IFnk5f5v^OVb^[r>,jGGCA?NSycãU"6sK6$#2,GYsO1=QPYsaCBs1)amNvEmP*muwSEGYonFc:xG0kn9D7lA=+%U26+:lãU"n[*UMvUm(Wid29U2(P\+*bbZj:+P%ZolhuZ7>3lF'ql5p0N[FXf(B5IW>rILWCOãU"X_C)xLG&9eJL+Cw9mwuMl1>t>;tt>\0kwUpK#:oFZss16SpZEIWGaS#geay,ZKw%X\?&$1ãU"6-lH0TUAtYM$_J3MueE%lMAdAwmFsKJ)vH&.LXiyn5T%tOk%#Ie_)KW\MoX5)jGãU":2Xr>kQ*>C:37C6bbM2%7S]ZlUa8W49_-El[%<##oTILfKWEUM_$dQWuz&K(m^QãU"S*_*CN[\hKehxOO$H$0K0OYD'Z_6-nk.o1;KJgDhL5eYjnmi.?LF1/ãU"NMfZ1ds]=_rPf%[oA/x$XJ9NbjrLrtTEru()$h%P7wpaMu>;Z6#xn=k9LJXI5DoãU"'m+4n%EH8LwvLt,uC(T#FKkI;J>]pb7]9],BjztX$,=vs%neuda97nm5+(,t^Q?GiEho#&tOAKLbEf1TLx&QgRskN6irB=wST.9%3mãU"hTD>=aF>97^#Luosnd>&g.md?LOha9i>8#x0/_TNr?,9$QxMP']=S%)$Y:>xcMTxk;40:pQ3iQa5PkeNn-72COti_Qbui7kp8ikh_('QMI/TaxMs9NZ5x,aãU"-:Yw+wQ--mWmqKãU"FcMlb01tSv*\*lr+w0M4Me.r8Gbg:_>TYWlKmqrjj$oI(i:Yqc#8QSTMfkg'Cu#ãU"=:Xg0u,\H**dR?PSp3EpL/gjJ:cFUG1dRy^o55mcu$bEL5_Z6w7vs$dH8Y).eIYãU"2H8Y>71]D[<;iIk2PqXQSKsGC]PVi=>:(j;L6ZoW7Jupg-QP*vvEisC7]U%aLn*ãU"$1F0QrRtt;fA>PcX6n6kvsjrSowKhl0clmd1[s%BIHQSb4OuoHs^PE*%Z1g9_OU%ndD;BiizT9e>.4ka.3R5ZNj6J>FãU"_m>VL$XhsJ6&nkBgsl9SID[)\5F2L,%DZeyZrTOKGKqWA,&cg;QfL]F>s5Et0IgãU"8jtqJ0Dcv?YLZm-ERYuhqAcGu[Qz<,Q3pSB#aY/'n8B3'N,\S(l9EVEHD&we+H(ãU"::Ge98=_[E7piW$nTP*>w')'&0e-4x'n4Rb,5m,9C4W<_rãU"d?F[l'l3^'nOJ9;K3CfqHmCKQ,#bkh:zV2G/Z<\?CKdb]Es*)Yc%2*P>15Z+?*;EN#&ZPrXQ=Nkf/(wRw&gUFOv]aeU*&pãU";+ZrpK(8b26a,7crWT-pcA40M^/3+5Sb?kgUIcVh()n%y'tuVOI;IhbBoaYEd/uãU"75[c6/#Lxv?tLbTrAu(YCr7efIb:,ZioS:&kJln?d4?)Ak/g?05kTSpnR_\-LrjãU"wvHPLj7tVZk]xR<)_\)Ussq0OyS6l#m)%Ck>)N#ODg(KikhI;C]L/thYO2%spjtãU"qn2EuaM2/p1Rt-'tj\?>Hhf\^OQq2>wdJYkQuTT#r_t/L;7t]=\4uPq$:,87/rfãU"_'sld)Z?g-O:o3u)s&=^sKRql5_eSNDguObP1M%gU10l^TMiaEX2Yp4DQtWtp8GãU"=LQo.UtloBuNV$ctz;flq^MpjQ#kQLjIxL%-3+92hL#6?.&WWO67Lv6j9qcv:8JãU"S&i3&?^qKo1D;q=h54;cP8;G.kr)[t\u,)oe+uJi&mx[h=Umv$u<0#b#8Do3K9$R_%l(c-3hb^dH:d046qB8*,GCpi);=>ãU"/J*[CH3=64]b8T4o^tsibGr$??SWFoS-NZ+?H6F4785wO;%$QERo7/Rc\tyflV%ãU"u\2t?VY2L=$[e/2U6U0XVvY74/uQ6eqCg;$1i7hKnNmj6qLuK^L5.PKjT1X9Mh?ãU")JO9CG?$xJVvCRgVPOh[a*N97,LDyfntAcBqLb)7]fX%9nxUqvH)x-q9u)#gF9+ãU"EObAliAV%-L($bpD.r'sdgff*KtOQMCc,0vVbqh4+wtGCwW[#ov?>4uoxRjCYL\ãU"wFtR5LG'LY]t^fq.MsB>vksg*fbtcUbBSI1_HSmb\HeBd(=m93nEY]t(Bv]jHJ#ãU"r*m'-&5>;(0rYExm,-S#btia^=,mtDHE?+^33+%2n*_e9uHujmG6ãU"[fca-YKg=k(.DTdqX8G0#W(.090L$2Q6h8bTNc7zH8t[db(Y#/m$1fk5KhRMphaãU"rHoYOPrm4?=afushhZ/n5?a\itP6IregxlKg(>DY\Afuf(NY].$lI)^'_n415JGãU"^>lLTo>g*Z-Q1-5jeUJ/MJDvQdmXclR6>nBqNhObxi]<2bE2z\to?Os]H8ãU"6LmcpVM8v?&77uG[8rI?30Gtcj:cLIzhfVMjm#tV9G)pWCgXlVAiq(D)aNf$;3sãU"gfdX[s0Tq3oQufcz1)]N'$'W-bl>_1k6JCbb6wG1cTjn0nQq\6nAt&+FFbb3=:/ãU"TLO1[3Z%9h8)8g8/.wO[QvYlJjLq1FmX]?aqqu-4blDd?xLC_8JE4R?pnv?r4YLãU"0C9aUJv_\?cigR#QH9Y:Xmux&A0K/\#Wf5MNX.b?T_wpP*Ode%t\gDv9VzNbEegãU"(P7UXXyG.l$G*KFabkt*d5a-'uXmM=UdrveDRcBH1;3$zeb\L#37ukVXWV6Uo_PãU"2^\&zq[[UmRaUeO]F(MFO\([Ir);XeqAb/XDtgH-7#1?)4b^t7+V=bJ&/hlu,bBcYClKRPXU8'$h3P\brjG9pmSãU"yLM'HD-IQU6,Gnf+SxIqUcJ38kZGbm/GO\fF7Gf7X[r+d,e(\*i;B1Re6KC$QoaãU"3SQ3;Rw$DE-F(ima^6q?[9#D4\bl\++#Pd2qZhiZNgNtGyãU"O7pc49c5qM;SpC2RK2B65&X9wVsT,BK2HUZ?9#U=)EZE#ij1PY;]v\.+T-xx6DMãU"XLFUMzoll'x\Vwhvq.;PY#,C(DyE->;\$tLAtG3o\ykC<^L]uM#4aHrp,+6&AyjãU"ko[IVCK5&c>6$(pW$<-TBdciSrBwggN50\JqoEO=f7-nc&s3#X*'.PF=Nlj[_AAi0MqYãU"kHEiTEaj\poF=I_Dy8qic32o%[uu9d;gmFd6X+%M\S6V2,PsY6=GvgX-7$Z/BeuãU"2C[cLhA=Cfb^.9c7^\-77j6ãU"1/4J=?i-0v=Ea(NZ:fgMg#.AkmrkYNWecH&fIKXv$(N%]d-^?>VbaXnqc78T$*DãU"T1TM,zY=[3aEM.[*,HdD/Om8z7fYHVupG:B(&&;[Fxw/Y$X+c=Q??Pbx?6pãU"4n62./4>ezpn3)oq*u]PD1C?UZne<,VgP-HL[k1d7:kix,QUVrV-7-:\Gb(oulfãU"f[-fe=nãU"yV's=s^AQE/Wx5#aiNU]=l6O5mhllQ'O;U7J\_/n_AdKE]zU0O:-lAi\mhWpK11ãU"WYM=hI=*;D:Qq_=mUkZ&/R8-BhafR?H\lgMnt<3a[/sp*51KsOL7dHq'*(FWbcPNf.G6ãU"f+X:vQjoL4u4QXNnG=7GT*]'Ub3ef]oSkqo,STtW126>-%yx$phtZ%SmDVWh0laãU"0b?u'rC#;wAOsyd#&LmtJwRl,Fw2gHb6%iC^u)[$\zWZAg(#I-,U7*\?5Ay0r89ãU"kzkt>]hlxQ2j$h;mC$fH<]+MEPfp6An[S#Sm4&]6loa#He;b.PN3&+Yshft[ãU"WG/JT?>82d=h*]i=VkVggW?xe#']1>:njU.AbN9WlUK0x6:-,sa#td;S8O')23>ãU"4VBcnR#7]HTteP]wHI45WTfu<%nhNXnf;>&#q4B8*#*'m&K[.]vTDhJmzS7sS6[ãU"1DISMhA-2eFp(mb2*\aWKm?b9d8$]VH7$Yr+SEEZpP6^=)=YX#kMZA34=ãU"-ql7uGLlC+]#V=sT*\6')6KcCEX^,Q>SqvJE87T][6+4SNeãU"b3]\1*d)EcxLlIRk8[K=,)C7SG+bVf4W\4(P\dI=ds5Rpd2_uHYaqLsT=po$sUReWNrlPvLLhb'elW#-i$lDãU"/8+Qt]G(Y-43*Xm\,;mO,dE,p,NVkJbXlfhY?XOd\A2nbiuAT;^t3'/_o9oNYnPãU"e\g4pd1hb^t&14x2#_<6:=0s/gfPoTT5I,Mv4u%p()9%%%%-:%*'QIF9nq+Zoc%ãU":%E$H(xv4%%7%(=(eQE-%7E'(.m57sA:nTiZj+6ecXnNu*a>UtuWt8pUcv;xrãU"3DRSmQ'pOi&*DG6huF_<6%ltohArlrTNs?ZTx\d=Hxudt^uD(t.rlTNxA3FurxuãU"(u,(whmHlwrMdNLAlexMZZxvdnY-xCnZXvLzkKf$_Xd8tbIHlM[B\l]M,G]:_qMãU"O\tj]7F]10CKfaq/ãU"S]T\GZdAdC<5X\2FA(DH_R]TZfqG]Pb]5n#Sz]7OE\dH>EJ#)V],\xo4kC-t$RfãU"woW>c6e$+&xoVTc6aK+H8J*D]\xf##x\ZnMjtuMj>MWj)cG1ZDKF5D5a_awo$+lãU"pXNxr8bvoZ08v>k3xder8_6p$=f,hNV1eVH)1)Zg%[GiAJ>Cklb6XYZpkqA0az[Sa)*A:/f*gBCãU"'rCkl$6XYJ&1.0VI(iM2i<45.;H'-)/E-q>G)<-iZu[DmVFM7qIsd&ECa5E,qTDI91mFUe:=j50GVK4btuY>Ju+IãU"TW=0?6eF8'.9GpCk^6L*Q.0VKHmYP$Do'>eY$%.=3PnR&+^&FQqzUXT_28eGdxEãU"]+5k6-ql%15V9O%G2kpJ8>Gq:$#fL7F96=i1D6*=20W/mDQT&UUh/URgRTcp9WiãU"iPJZT*KCVIFE.dS1F)U()([7Q,)\;-q]TYGWjC-MTVUTnW^+P,')J.+/Es-EmY4ãU"ar4,Z8kqQ<[ZL0cfDo&1,L51_/&u)XãU"&W_V9KU&u]f*'k0)98M7qTX2JzM_,i0+K:QD&]'QDC'RzC^yOVrs:jW;.+-UI/'9/fC4%&uh9fop/e.MjTij>f4.hVj.Q80>%.;&=13P(Cuei^BãU"RTAu-^/.S6gD%1^a.7)9&?-QPu9;kDfABhqcCL0aSKdDQa1D7E(*gB'',a]Fr9sukealPY+<><72.W-6JCfWãU"h#)(7[%'QD'3Ds_mg6,pu9C)8gTqWaL?81^6JKnO8[4SK9tAkDnoWgq;T[pIZQKãU"r-e8T5?-/UI')\/^4Gp://uMYG>trqqmKli7&W0+55oT)A9Q#CA7/,tk0,W8Yj4ãU"6It-v0DH'F$9?-%^iO:CRTAuA6j^XTZAg40%0WQLf:aOZ15'h%OX]ff=a;:T>XhãU"V1tKrm7,*G/5.q(K\%%UA'iDs_-I%P_.F_pKQS.6ntKb:6fD1gK':uPZ5X=H:TmãU")=TpND$.uKpKQ.a[7Wm;qK789/5;A_Qh%,Uh/CR]l*=>SfH8ABW#/M^vK^[=p:tãU"s%^pFQaH:M9fu5g^-:^)=iaKZBo(qiDf<lm7,G'k-;,5'GRhd'1<<ãU"235^A?r>6\a6uO<8&N5EE;Y&UphopY&K&KW.mWJyjG8?iOp[Bp1Tn-)?I0;;(egãU"rU)eUH%T<;8.%W\#h;egaR:M99u5aãU"&B_0Ur_SH^r24I>*uq;m7)h>^)m0(ElHYC*gJlb1ln>>r^F)8aK:.IXQe1FQ>O&ãU"_H?UmO8Y./UcfiC4^;]k0)8jE7cq?KiW./(?0u_QH%LCC+yO]R>IL&Lx#T$^bl=ãU"8J0Y0$LJLH/A-e*tgoY%:9a*2U8CYsNt56^jArT6^\XT]i4#Gha9*];%QDs%ZEmãU"YK4&_55U]?QLb2RHMqIGr>]6\6utQqCLTtkAY%61&1nVeh:&p-=8//WRi#A]TJhãU"cd.InJ8:(OE7KE:NU>&eUh/C&R0/UndfKg)jlb/]DT6uG1*TP7Tsh#'^ReUO2I1ãU"/%]);:D/=+#Zu;gjFv59e8.Mq>K71ImHJPhe%g=G=#*=3PJT)g*-;=A]EXLP_5.ãU"SJ0o[pIt2ImT-[;'=m*YY*=bCYWgSjv5Sr]foWl;qY98ZF%)5/IRhF'ES0T+B1gãU"?t?+lGHrJQ/.5.CZ60L%_]/;97a4G5e/WR]^_?JgSjF8/NkWG>C7.gKL.G>6/*'ãU"0eJQ.O8I4st_A+&;?ZYkgjnlbCA=T[6jlj6,GdO%go$YK&_)5_Q,Ls=,4E3>QJNãU"=)^c?u;:T\TTjHjxs)S&a-8)8b%F%,h/:mãU"O*S^]hf;U3kcPP.OL2iRr[ul+it=0$MLZ/<.Q.(.5%Q4I93+kxAP,fq:BXu;kD#ãU"pko+-BT5TuWidARQJSr]foWOI7;IVNd-K/Q.OfF4G5/1WR3_)?/8PiPLbu6;gjFo8qhF<ãU"Sc:)197a4G:)/u(,a[*/iX0m70Np\4^aQrj5.\(.^/InQf_O84GC5/WR\SB]ãU"IR(Lrdp4N>UHP0C(NkZG>L1.SmO(nds#J5_Q1vO8473.iLdv&%aE9P%'FYu:BrXãU"_u;0:TOTC8-A0(=/])9_/)7F,G1OqdT8)?t?+l4Or5,o857($](;98?-EmE:P1aãU"6$94';/Mq0e&TP[^Thb+9]<;I],,SPIãU"'<>1RR/)5/URX7)=AESh>1'a0uWNq.-oFVe.SJuLq;ãU"i/1-R%/RCkPH951+.n*'UD4*=/3IR2'gq5_E:1+1'MkãU"z_.HriSqW1J(gQ0F4G;//u(&5g%h.bdDot2I^*'y-%tMyT6)+VOt7-MuRqãU"WE$+A%6+%8:://WR9_y/wuN_S.XjrqdwT*9Y&>(sAQnm(R<]DT6uL1.[-6eX[m[ãU"6q%m#CA8/LWR3e*I48-Kj_Nm(%eolRplbgs(#KJT8enke(aV^=sRU#/CãU"R7('EQ_pZzI<9FwaC8B+aMdu^?$l*Kt-?+loMM8K>&SR-U4I93+?BE9j;*/>l^%ãU"^C&1_)T(b%n7uNC&NhNgjYM7Od<<8tyccO>O%ãU"wp]jP8wtaR.hãU"6VMKXNMRS.IJ&?>,+T8wbJ;SsA;qQU4KWJHY2YONNmIC6zzE6S(%DFc&9Rhb=-'MNjf]-bojlquF>qjIj<;uV3Q'9JMvCFrJH'ZãU"W4CbAgB(LNfJ0q'j^?ruXukuLKBb)=4o(s*N]nN\^lea8NK^MCr:e;lc<3=7u22ãU"(HbTqj]alP=7HQ8:8%%X)M9uI_hO5hk&s&3s\B;*&w-uaf65ME]T1e\&rHn*o>hãU"##$:5,5Gv]Z6Vp,VMJQb>nGCO+'#t'i:.xãU"=TjoCKV[$2(<*[$fKQKT^4)5K7*Rj9?C)IsM&#Y(eO:Y+aM.S-d,#K2Km$x<ãU"W_'rDq\6DzP3#y90(%)sz$Bu>GZd,]bMwSyyoH(muZrl[*8ãU"e194YMfrxf#pT)3acoW;C,.jBiid?WM'qObs\&qS_EQGdB3/cu_y8H?g1oX:nSP2#W&+HiZ\sZ\1ãU"CL=jPTO7-cWm3(Z\KNer&2zx*uIHeg7AD4ekAb6uvq&o%j+I+8SNpNc5ODbiKJ.jlp#A^Sp$%9,q<0p%KãU"ei%_F<%_99I/j/8)#'L0?:AP++f=[Z?MU[t'CgJjx(1sqf_eYGpREMjg9HrK*92ãU"7\nypOKJ^kZK.)6*$-crO?>5HOjHK:\=-Yc0--2EãU"g32O;&%z9#G[^^YlmvA#6C3,/^^+s3pF:RGDOiyW3r'h/dw0C(vokJFI%UU]3j1'gs6&X\?j)Y)C8vDZ=-/'e0pz-\#M2r?21l:Scau3\q,N\Su2C)MRp]ãU"c?#Ab>=B.7Q8Ol++]Z25g'uH/I0ahU<ãU"t/fohn&OV/RY.q&+v:BL54)o%X8/WX&cr0v*0H>Qml??<4G>5Rj,l[br)r\Z;Ld0FTsG2wzB&1eCãU"z'W'z0Wb93;ImSNOq_y=fxp$SilC2R8i4q\aQ+SOCu.U2hySlY-]P.6-D,(t0[rãU"wHfSFZJBhWYRieZRSS)M0<\f;fe-Yf]l:Ou?,U3W*cBsUC9);0KEiZ5o/M2+2n;ãU"MTbHPF4hGD.-Vc0Jb-$aIs]P35gk)+%Z*x_y:n57_\iY9W=V'OS[.M+,ACj_%2hãU"bm\glV>ModlSTg[-:[YOPQCM\\DF)lAjpj0jRi*ScD6Jsd<&#:DL8;0B>%rC7aJãU"Yw3bmDIi#6TrU+d+Hd,\f$exqe[P:.c7:'2i2gP%Q0Msn(?7L6oFd7UcJwLK=U1ãU"oyMVOTC]^#0cL/57mgJUt.k3J?ejO\2N_#^6ZL,*%?rfxp:'F5$DI#)i.=k/SC*a'a(hhz]ãU".50=HI\W'p:7:kL;^l/nu=m_wXCBColJm,B0QcST$]mPmJwK:MH+L-<;afC,&QWãU"?R%ebK::bW)z#KFO4Ql0\zh1f/B,)XzakzIf(yK2Y&?emcPD:Zb4Ot57xy3I3M.ãU"c#G\g_b=h_OIK*\>L)W#xEBmK-HZ6)\XZ62[3/*+.*L9Yuss7sTc#W+PJtTxsU#K7aãU"nan9bHh3_D/,kA:,s%nUVFDNj#-/D+3j;^.fAk4UoAR&Oc#FAge)f^jcV5nJh]kãU"%qmBdG#jR?GuqigaDLC[aV%hMltRa?nEB,O:&6s.5rq9$'q*U-4TqUw;o?iai+AXxXJ]u.B[Yf*kvKjk8x[isZ4ãU"BX;]0sO_Y26tM7y'%i8<>8p.>far1Ltolj\l#:$#9_2**)ik,aW^B27ãU"&iduZ9wFk62MikpPn<*tR+;Ndu#lL8]*ggcgEka']fhn8x9JTgbS=2/d/PiRqolãU"I%^+-AvLU#Rb)nZr&?KHM4_ya#F[4m;4)Bg9VvQM4I4z^yG\TYeZ0kS9$ST:PnhZ\$o#9u%=tne?ZsL?JiilNf\.\u_35QkãU"Dk\f8jo^=AU+.;(.tlDR5jv5xoy8L?UoZWT;&MIPgh=biqZ#fKZ0?b+YN7g[dmjãU";bKJFNq=FEVDEZ'q,,feNe9:dTc+0fHtd3R/]jqM?dq3Z&P\UilL%pWMqZ#Pd:uJMpQAmQB1cO9I+zd#a/^0i9+JC?si(Bd5:_';a<'jr<*i(>IfyZ)SIAL5Vd*uuN_5&=l-/yPpYãU"r^kg:W]TZ(2i:2$c0&e^b%q;DWm5Tn]ODPalEDhDFDlsFu3Tcr/wV.M<8x+ij7nãU"h$K=[kt)uL4_MeMs\2SbiqIZ>h%ZqF+cQ/vf^t>6(w*Yv1Z2^AfRok2rJy>?pmpãU"Cq0AP?T%>#)6Hf2IR4O94J;wR1K3(3*eRzlQ7K3/^4E09v^tDP&/?O6C=hx$bK?ãU")6fKio31tg04e%)cGYBhi5rPGu-P;4kx*^1DluãU"JW3.HUg'\(OcTeaWLnjnBe->RnAqe&>]6P*ae;p54PiRnfQrKlzqjgiA\H;236B%ezvTpCsT-Z4ãU"l)2Jh3T_2$]2AAx\4lSS4*83YsNj\X&=#pz1V(ãU"-Z.9_;TDAW09/9&<6:oEb#hNMr>98M#P>t6V*A(',XGMQrYe2_ZWT4g')uI_daOãU"An>$2K4(8=tY^%(FZvW6JrE$%(6l1%\oU>Tu6bEYlrPPU&+%r^'7wk3'Y;QO8AfãU"W8=A=BH58Dx\\\%lgbrFw02uA-U?\fQ$nN-YM*K=R&t[i[z-%q&[-7tgWBKG=WIudC(hLC*..sTvbd?M(&i3VKd=48)&%5$8>^4.M9dZ*'my#K*%g%_'b&]N7bd\?rjYFYgi=0UãU"?/s3sxXleQ.zr/Uzvwud/?CO$V&)D(X3^ohOSi7BPh_KrFW&Qip%&t^X/_m;*+pãU"8*KPpm,l6nqD1O8ZJXXNsDOXPu(ugIs400.kyu%N<]uV1<)BN+eW-zuQAjl0G.=Y)sLViãU"pTo073L)UmDWeA#Nc=Z2O%6N.,v*._/(emz.']5y1V(OCx+&hGLC)+V+2[9sJu+ãU"R+-Di8wz)5^&L8^0#_uPojs(]hpy&))VZszl(#Hi\zuMH)9txPeQ-:eLcy'%^_DãU"$pH1?)Xk0CcNPKLQLk*-)P932:s-a&>Lo+:dpL&tz*:bwL4=h6VKg.KwcfggH]QãU"(pO^?JJX2*#>55F,A+JN3#J0lON8q8gvPOHvbgf[,FpHHe'ig2DJ0=r;irt./ktãU"WN6rcD6TJXy^$A1SFP_/hF3ãU"8j5G%dLmJO5LFJvcnI9fDF)JD?m;Z-VG[vwD\*4JIr,qFI3^NwSwjWX7F\N>/KF^&_q(+yJOqEsi2n9W=8S>Z&3_TIR[:VvD]FV+7hãU"Co$_^dRmkqpXNUPC*UaB1d1-22^]GwS$8tuus-H1b8OdgãU"k7KA>oeFTjNg\?,u4loDojtRCPJJACI7QK99hj'wm#I.?:b43cJRq[&.mRe^M81nfnH3VL>T^Aylr*Z[-/c<0M]_,5rr#/dS^-t2W+sd]ãU"QF%r%aF*qUs3fZEQmYu8HyejcR?lQq(mG-ta)F2^L4Qq3XEl6#((#0BWE;BCtA*ãU"hIy8t:G09e.G%0NdeC9iVk$OS%.+cK0%7H]VJAToByrm?onSi9qn6[L$h0^3'>FãU")gV,EP+O]cs%7#(ih?on,9f%D30uqJhHG/>2tN8U3E8.%Q112rDc6SMl\v((d0vãU"=P(In(d&-Q#V:ZX^47dEYToVZ5ãU"FfHh>1^A5B#9O*bKiQ8ZZC'wmz+CBo)DqsJFBLY80i76ZC^/f*I]=HUJb4]gc_VãU",-0S$\qA]=HV6r=iin$Pr^TzNSrJIEOIa3aRk)Y-__(%pd%.LeMCSTVbtCe?5&CS1/AM>,iWcCzx1d-h+SX;aJJ*rc)_wnL6Not$EtOJIãU"Hlu*=]Cbi#Acspgy3G4zFkMnVQboC]p^nY$9L6],X&U3n;J*[I\FMF3G34iq\%lD9Oamp*/J_N>er6ZJj7d+1D8t+B(OY#6Cc*G;ãU"-eiN'nT%O(Z+kHHkEi=p&%f4Oo(EHzlF.cG(B>XTPEA)QiSg[/Rb\BP_YKEK7Y/ãU"bT1H-9^0/JD#jRYjA'?t)?#':/G9l=%R/>CH2faUvLJPL_Jon3]8o;_NcB?ãU"7z8s#pU9FUCrhnl.Y7A6PE,PmffK)P/\Miu'E9;V'#[+Gukl2P?39Y'YbU.l/mTqv:L[g=4a9(&2iQ7Y-;=%g3Kb<-b+q,uag]*qib^?iMãU"A:/?nHrwcV9)S1vDL-\.^3Md$1SzRvU4#FO^R4&]]'n&0e+c]Jh/u*J**TJlE?(1'5KBr^/Spj;D?P/^uU&Iue3]c<]SJ1XQm986JVU9yT4ãU"YWEpG.gOb&f4ev26WX6$eawMnZDw'4tz4?)k6F&psb36MlhVU?D525B3WRKULMLãU";NEMJqGl'8o+b],*ZBT&]YtBfb:v,0oZL+s=ZI2To0Xy#*=W$SBa=9V4FvY#J.YS5I<0VãU"%Y+a2N$#W?(s6]WeUB9_CqCiMwnDqab0t](%>9FV+r0ROr>2;k/>5zT:Y54=R4&ãU"+U]63ZX?U+E]F8e&\(jmKj5kW,7#r]_&omEKTa0*u'u4\UiI+kqc=/8pLZsci*>ãU"7/l64\,yc#Den=n9^&a8TregKH5l-i,[V%FMslIZZ]&R#X]In8&)]Cxi:NRXyW<ãU"y3*f;$k)Wr2tO.z8x'$qa,/]>$]Y\37nDKuwJL=Lh:Ru;06.YTY.tE\q&B5^82BãU"(PH54GDn=TD[GaMjggkGg=&jgA0?ãU"OF4RLCF0D/GpfM$$ncmjbbE$Bg':TBr=chk\a]36$#gQKZ2<(gCOoU[)bmT*IbB&,:Hk*WW'=<6ãU"BoWCMPjiktIsmbuM]WWaC6>^qU3]Z,W8bU;[W[*IQz[wf0lUncM)jP0ZF6s0?qdãU"-&;d5l5F*6mo0BFqmOcV2jei?4Wa%=/]ãU"f5(KC/9i*;XO2bmgaQ,r,?#%G/&n2RI(5ya8Hy'wd6i/DTqt3/+UeHP*G;^8WR9ãU"S0>A_IwFlsBD?PUhMRd1E)\L;9oFrMfUm9Iif6eqg\8Qyj-BaCdMce5;q0o%=_3ãU"C>Iq'i.e61;0G]>y0\#FO8Vo0_L\kd-3jbIuze=7/ho^Fsd.*;N\4?_g+-QEWY%ãU"ck(3s'W>aO$ULK>:]6b+)Qf?S-/nr-4%#flw9ibUBKJo4[_:2kpng2ioO]cHM>3ãU"q*\[bZbFV'gHrIV%c/B:]*maauFdMG;&<#y[DE0&cQo;WP]g\[/'U2MVr=X8kFQjja8vãU"ijVxxk_XYoQDMvv6uV6?95c?RV#LCqjrM*/iq:l,0V7ivOVB(7+SpPhQG-'n[HMãU"=wr[Sc-e=mp9IH_TndZW[\E9spagc?o]/M8E0:ihQhdmt)9T'O+ZbDD#JH2qrr/ãU"4CiFDd9Srtz4>oWZJ4WWl:6D9vB&wCxBmCtg'i=B>&W^(nx]<-VAc3C^W3/I9GC]#cG'OK0pãU"f0Pj2BYt%1&Mk85UI/jU/G5Y)C(=S;Su4pYAGpzuM7Svdlrt++2nuV>^,,sIq_GãU"bZ=fRmW+Ro5WRmyqZb[a2rãU"AP5Ve7CMH_+;zegB:#H-1$58o*FM^jQBTo>ASO/CFDJpGumq_#p.=H*#o^]TzZlãU"&il'uW0pqq^LQ4J73*k9iLjIo5KBskpFKHa\v-4uãU"#)D)FlcmxLqvhY:T:&60XQ[bbI8);+9rVF.$ZVe97g[M-d4O):foi7[q[H2at0eãU"B1/rqND',oDdmkE.k.yc#o7BDp\4=.OTXZB'd+j787O,MV8?E#1-KX8hY$1soZDãU"$IrS2s/NGDBliXipc_J$XL;Wilh6,?e/Yl]S$roubZZZs&TbLn[j[]Ys2d2%%:wãU"t0exy>tvm%t6Io#yAsv\fa>bl50Jh_Fe8Q_AN\XGfWuDZBHu*_nNbDK&[(L'x4[ãU"3#+AWQbyEP]nJ\9oE\?B)sY&NssbRv&aY=cKiHL#IbYY>Ki$?fhhdaX(jKI]*K6ãU"SOtrl2h5OwZV=UDFwl4R+jgkm0Ixbsf-7(qS:s?bTeeIs.^*.XPPb7,XTqaS3iVãU"]RGKkZ^>Sm1+Iz.XeO^.&a('8yAdz8v=/K>fs]_N6JBcraW$H]l6-#)d6=3LtXNãU"LU>N&.yLvjt-F_WEvYF>G_LXim5IS4oLw2Y+4GuWK/hX6d%J$ap.=dt\gXK*B?HmfLãU"OtF,v2Cj5odCbru;u3t&\qzjK<1nef,cs>(CYu8[k>hXSr=2esto?kM,PRz&2bbãU"^L7LYkp.uzVL;Q%va:AJaW$u'ICQjuvuG\YxZY5K,1nUtV++r3UYP8QHqAo[$RgãU"WHnLCRHRXofY;WevT-57]poNEx4$J0OZA%ONLna]>g;+Lt66nTK:H;9pKk$-KXqãU"^/d/lNQ&WTmf;;j-iQYZp:Q=A>Zsu*Z$(^B8RlwS?6SO%rmo;f,_+^Uf_ehhRlwãU"L6K-*Gm51w&$2FusGkO1XiE*u5vKSn70T90?7<4TGlb<#Vi$s\D0NPMGkChYj3SãU"buZQ=KZez=IwZ6ClV=hk>YU\ok8SH2612S8*dMI7IqsHMGMRL(ert[W(X,6vCKlãU":6JM9xZYt30S+XZ?*B%Y4l*P(lGS(eFULQf:tUq6ov=Hv>cY0liWAji$YJJTSnNãU"Rv[$0*m,rs%nwL$+'mY#73]O-GGoNFn7QiJlv#q-?M&=A+<*7YgLHul^/gM(COXãU"p]:\BZGtNcyA'nx_N\2%g$(ZRFq[^rY=dbSxj[7Xs+RmYHMQArb=zXLB$JvW#U>ãU"AQt%Y9LW/hbP#cD(nQ3WYqpRZ*H54F5]A1rh]$H5A828Yzt>D,uN4(UBzKs)aUU+&l+t\r,tcWaAs[QV#hkCMãU"Ja'0.y0J3.GvF^]na;/E$amc'Ao1&23QdmWvn;H7e==EJQd9^/#X26?tcIjk4-.ãU"FP6(7*flAaQ;X'p*SX,r$uUbR>N(oF6Bq%kJ*M)EJ:InT+dhhX-.m/>mkXEFY]=ãU"P.x6M=O:p(vf5%Ogs^oh]AZ,?n2;ueUEGmfxagYIOjjqLmd65MqO6)W1mt6'Ru$ãU"Ch9\erCF-jluvCx7]Dh??WHM6llA).$FckV35E:^S_XTP3jy6h4,YnX%1_-9'j?ãEND SUBãSUB V4ãU"bo,tF2q85wZxlZ-$MBZ_MJQ='FMX3lO,R=OMK$VLYGasZ:Vm$HNOdu7KapE5(1o)vWQUwj93;aKk)nefZg*8)?ãU"GOGmo#6%nP1J>aC0_+SPKW5%L]XV):\B?h_5m2P;ncy\oNRLujK2'Nl+[W.kP2uãU"86uXvAvy4AouYeQMC+$qoia7Hacu5uscs\#q9Nq<#D=Hp;MPT(4IjO$\n^]<'DKãU">-6qG8ub\Y$M+q^yOIhbLwO7_.V77%Yyj=upTAN)vH+*#g9KKEOAWlcD%k%L8boãU":T2'+9Pb]G?q3tau\v3Zn#m7qeMvjkc6t%usWmd4#Q;figR]q^c-*JãU"&2z1C-I-kt3JIpuPZx,LxSV[k3lN^ãU"=ubBD.cLnt;K%f<8JA#RT9YPv(U?N9=kdQ5.R7-0bEO1QmãU"91gnuwA^e$^6kZ?lN/>6qeKKT0o\EeQO8L]94,F<.q_=^Q9)R&W=0)TP4vOO4S/ãU"'=IRC\%9[AkR[9DGSxs3:C][=itLBup=oKX.A&EwufC-E*tRo3X%yk$6rHVo46MãU"%VWRK=xdA3X4.[\vhigOOGTE8d^/;Ar$EX'1XTNncO$YF34:H=(f[A7$M>\(;5DãU"g+a-AcVj=/a9U43:4G(3EB^T'4__9/How:\ZWKoJ1W[,S+$GRx3ãU")qYo[+VdqPioFPãU"qj?Wq2nEZgkd=qV#ih4b2psw*K;iP1,d$b%HYBDfhz#hEGzqs8i[rlrL?-\rHuKãU"OWRJ17Jd#Ji955W?n-4=+DPs:AgMW*b>z'^(7i/vOZRORAXVq^mD]eFS_("ãU"1%F&=lmw[P]Ax5\&,.W:gX3DScH)oix]U:V>Tp0?zlgqWD'ch8ic3c2%[ucud;gãU"(m^c=CSc#fYW*':fKX1$]L>D-PBP5E[x_kC[8^\3?oPZ3K^h$a.tM=[cDPqF&UDãU"jn5M^j'i2V/ZCRc*7nJ7lTN=h&LvkTGQ/W(x5ak:NU=ls6OWhnll'ãU"O)=UJ\0_/_AYjK]z^U0:-W6A\PGhWK1Z1WwYHXn/SnfPiF'vaTsf*rBf:gfe?-hãU"=nD.2-18Jq=\nnH=TBO3Y\R,)t-\'=ECK,EHhcn?4f$r8#/W_5vJ89l)bCa>hirãU"#Qbk6()BOUNtM'?G#.I27TGãU"PSc;0LU2Ma8]JJhoiE3(O,Z-KwYct\VHs8O&m.5MUXyr3V_g&o>:XeãU">WQA.HlYVEku_+0GHZ)uZ9)YB?=gD\pRr7sowBj)LKM\RcWLbKga7guU9hscueDãU"-S6^B4E[7qRkD?)E5nEQN1pptn$b*#Q5ug%Ep16e)vcs,IJ\nDXjB#ãU"=X)BivDM5_id3,A1\$>h28J?^L[,0>6*ZN(J71fLyXjfSL9P:,EK2nnu^uuvss=ãU"'7D*jsh9ql%vIwnT4S(ELV,hHH\Vf3'6$ajM$5XQw7whTZC9Gg.MED77*[?^h+JãU"LCJEBmfYv9RB_vc3&gv+gmL?Hr;W]DVO+/M/*N*t_\*S7R]EVOS]t6k?ãU"1(Jjh8-w(wY=kTwM'7V-M5OB^EEjoxu'u6W:]N>r13/dJ9i1K4DF4?F&.?DI=dsãU"5Rpd2_uHYaqLuH=pk]d*D-\f4oOX&SKT-9U(1)$BDF56UpxUEW-Qaz3#e3g69tãU"^pK>^SX:Z8&P>ThJn7CH>0fYb2Si#(PzRI,'\J4M&^2abg,Yss^?b-m'6TjM1fXãU"=T8jf6tvNu%p()9%%%%-4%kGRpFE..*p1&%+%+'%%%/%%%%wjf%irjSCy'yLZ\^9)ZX\a\7mgDi\/ZY;n';PJp7kLp4QrJOEv6yãU"b/%)bC?nb-F(d#2lh=7PO>ãU"BO+0$[#yqsNk\XlZY9sFJOVps9ajW7[bC]lxCA5%Yw#8Qf,:M)P=nhs4IGSzOXtãU"mJo+Go-u&_RC(ZytN3(s,Oe$CCi:q;8-%GJq1(+ãU"IlH4gFt:,t5ZiF$*>^lYSei>E4^LuHHc_CZnr/af'B,il*\ph&KãU"NGiNFgn&'Oyo$jaQ?bNfaVLBJ2,:i8'B)?Oq9qbTR-RBZoV#[c#k3Lqyr>L=Kg3WoFPgjD4iW72i5s?Yu1#[6X,LkbG9y1)0aSXI3C+u&Hr]riãU"lu?ua#qK[b0=>=#ch]LfEiZUNmF/LQaj1cnesDvbp]\*>U=N.XT'q)F+xx#]BJ\nh?)ãU"<3bSU;ENM7ZDJHEc_cS$^vC37EG&4C^1aoC/-prWS0&j]rUA08BM,f_>Gwo^LiuãU"%etEdq'.N(UvLQ01Q4.%lPX^rO0n0LE6Va5iO2ZPTlK:hyulq[ãU"Eq.lUNCWt6E=cCx&]cD*d)0LbUBQ?sh#O>XE/?vLruqL%$H3d=G;cO(8P:D\j0bãU"yHsE%t0Co0=32NrDu8dx8oTdalkfpXh*pd^eV^TWrrWãU"TWgiUM>\;rFYl^I-qeqKvaU_QBj$K_.$-X-%0M\fZA\iMbp[F>;6:O?]:]Wo1SN-8LtC7]b4zLfD5)jZ8YNs_JknCSK=ZvãU"*d;vq0+s(Bgd1#PFU(1.^*Z5l4>HH2_BuCj8vYL^PMg,JB>H'%ttB03Ki4w\JGFãU"?7(.igLH#o_vPDscp_a?Di4Or*t\?sTLO9*v#Q0nG^d.b>8_RF?)dF]Q1,%F&o/ãU"e;TKNGT#\G*\2smFbuPKTe-9.oqYW-;S&5(bOc+5i9Sq27;?<8UX'S'/Hl6)7QFVMl(JbLnjuON[O6a(?4pqIC$=otb&ãU"HsU&(kt-1p\n^W3xFhwDR8JbNKQWhP&jU].\o^o1pgxdVZHw8eul#&9faFW,pPJãU"QnQ+Fx_d6002cAL.tQutx4?b_$m\XZ[V?o84IS=s];j80mZQu'$oiQfBiãU"kmtM]8Ahv>:5%ZW$6*>8G4=dl3ti>AF\fMm91X8U_.XFgKZZHpDOq#gC)b>Bgh#ãU"OS&U].f$(ZTl+17j=6A8$QbH1&f[QMxnB1rPWrf/;3D16n=:m8Xs5*iYRP58QLFãU"M\fsRfL&>Qa1%BvdF&(F]i+]uP=O-Pr>xnBZk\Y2Ix^)la;d8K([xsU=(lXPt&GãU"aieNAYNr.+>Dvl'$q&U%Z(l.=7PCJus&nxaKoAn)+,w:1rszj+e4]6X9S.rTW6cãU"\fqNWstsHsVc8?pT8DZ=GKxm0WDlD3#wN?D.NWVpl_wt9labd<#wxOUT,TA9QnsDãU"QPO^:Wd:5NjqWmmbnrLvT$=n.u\dQs:29us1RMv;sdjWb\HjHvb6u2M_N]vxpz-ãU"'Ec$]HK_N]vxgZM=7emAsxbaf4nVn2MNq\.DO9x0cd9TDbd<#wx?r8i>XoãU"_wsX>xn(x$dNLnsdT8O]xHYt:6)x8ZhZow*x#Zdm/kvPhGDLI>N/89Tcd#wTx?8ãU"[rRbw,TuuxAt[s(kW+eRb?w,uI+vx^kZvPqIn5tsHiq*wxUArw:VKO^nWmn^fimãU"n2MhN\Nbt7WwpbwxQ7;ZwxAkrwz5V;0oscxEdbjd#wxj?8eNFDbdZP^mn2NMN\NãU";YlXfWMN_nimn2MVN\(4cdhfvY6w(riwB[sZ(k+To&tsHWubwBk[srj;\;v8>wxãU"EdTbd#wTx?8Q$^ND_PnjRwfxArwG:u+5?(bx(ibN^OoXC&xeDcwnmddXdl4t$vãU"fDdZx#s>Rauv&BncIC9vTY:rvVwqZRVm.F;kz+ZxuTx(q1c'pu8j_h3dox?wxlxd+XD$6=eFOYãU"D1QdhOOhYgNuot'#q2FNlDcBOdwZ8xpvY^xwf,Nv0u%p()9%%'%-R%9/W=FpCI'ãU"Y+&%%%f^_T,vGm45P2=EPrtS>lZ-.7\XZ3D2ãU":X=F;;C2>V*.#fZCr#*Qh6CaUo=6P(%FOF,1L<]R6Cd2jm^9Ml[Ldk)$G1h_gDZbY%N0).?,\c0*6KãU"T9DLKG;r[1q)1t]pPhKEe;?Pob%,[C7]0ihkhhfEA^EZZ-hgcYW39En2oW4W>z9ãU"JiR(yTI^:IebN4bWu;m43Wn(hn=^/_aCmT73+F:+WgSr\8oDt#W&Hl)pz*H]MITãU"KU;aJ&k)-4deDMtbfFDejErYihYX4qQF]QpXDUp<.I^UgSsUH7mloZiJ'L?<=1YãU"JGJsi?,NRk,(#HnyQ3HZsgtalt:s?;,NRbglftZ$MdJTuZtL)#.k.UR)8evb_qVãU"?F6=]p)3j+YBcZ3eei'/adOaQ'nyl*GW=&V6,1\E[XS2QicT0quAf+_#0-$::i9uXI9#L1;S&87pKEãU"A)ho^\XO2ghcr+DAa^DPCZeJF)9i[=SK^UpM2iB0ELU[wG=)G<=/EhX$vr7XV,7i$Y(XL)$tVPNB1h79ãU"YR9u:zmUH3t5/r;Vto#?aVD;,fgpwffWbsG4T;*<,:*Oc'bfl0*2J+uhDKU6uePãU"JXph1'KD73$'TGu$M:b+jGv(;D0sn<*KPh8ãU"1SGnkM)IgQ]C49#C,ipGniYUCUd_rVB\dI&kqh+ZhPp7Vm-1f38MEsbX-\ecr%nãU"x.Ou?6r^16W5Tk/r,nqG-%Q\p;k?'.^ZVCX1tgbgBfYHHZ=^:qyki[lfs)m%(x;ãU"%&9qTtXrn+xfwQe:H8rv$sJ=8%S#&c?O?jvGC65WBEcijJQ6Cm.>yN_k?Bu<[UmãU"nCJ+_6i_.t/02<_6D(r7YL>H;wCRBl+S=CxM'yS;$%$p\PPc;0j62n]VebF;Oy0ãU"6)bH'F-g=AFga3Q4:PlX)bG#j_Q,NI_Wh=(Q(Y=jJL9'RSrYQU.5GN8Li(/nb=BãU"7uU2YOg*4v9[Ka#UC(821Y++u2l<)qT=IC-Y?AA1l&pl-le2%Oqb24#R)eEY)[SãU"gNS/;lVi50L$Cllo%]uP]i2[Uw+E=Q>0_:]PM9AQA$f/.,R(+EbezhbpZ=/VXW+ãU"0dec,[11k&(*#?$9k4N/k09q(6:)v9GKXlCv$9^b#G?iPmLk06(lg58lqT';V'7ãU",H96Xv,0#2m?YLaH7G)h$SE5ãU"ZsDr,#IgLWeq4vRsFlrXYFbhqi8FJVjSH+Fm'?OiZ3(JPT=hm3sud;IqdVe7(cNãU"d5)hEt1Kh+ãU"T0YO5BTv55*LVdc#?lD2?A&$>(j31I^aul10OY3c#(prpRS=c5K#,\D0hMEld<_ãU"$CjCO9O5GaC'n:YTtl?U-0(gV[nu6+u#kkxnd_<-w_yifC+W4(.ite9bnk3Fx5yãU"0f5+kUZyRsZO,bOk)>vSb01+.NEtn'*ZYZOPA_CXgOg%:bvL783HwN&%up&'%9%ãU"9%%'%-%4G)WFQ62lq%+/%%% 0 THEN change% = -1ãIF f% < 50 THENã PRINT " USAGE: snow n[flakes 50-5000] /C[confetti]": SYSTEMãEND IFãIF f% > 4999 THEN f% = 4999ãDIM flake(f% + 1) AS flakedataãFOR n% = 0 TO f%ã flake(n%).C = 0: flake(n%).d = n% MOD 5ã flake(n%).x = (n% * 3) MOD 200ã flake(n%).y = (n% * 4) MOD 320ãNEXTãFOR n% = 0 TO 2000ã SWAP flake(n% MOD f%).x, flake(RND * f%).xã SWAP flake(n% MOD f%).y, flake(RND * f%).yãNEXTãWHILE INKEY$ <> "": WENDãSCREEN 13ãDEF SEG = &HA000ãFOR void& = 0 TO 63999: POKE void&, 33: NEXTãWHILE INKEY$ = ""ã FOR n% = 0 TO f%ã flake(n%).C = flake(n%).C + 1ã IF flake(n%).C >= flake(n%).d THENã y% = flake(n%).y: x% = flake(n%).xã IF x% = 199 THEN nx% = 0: ELSE nx% = x% + 1ã IF nx% = 0 THENã ny% = RND * 319ã ELSEã r% = RNDã ny% = (320 + y% + (r% > .6) - (r% < .4)) MOD 320ã END IFã flake(n%).y = ny%: flake(n%).x = nx%ã PSET (y%, x%), back%: PSET (ny%, nx%), fore%ã flake(n%).C = 0ã END IFã NEXTã IF change% THENã rotate% = (rotate% + 1) MOD 2000ã IF rotate% = 0 THEN back% = fore%: fore% = RND * 15ã END IFãWEND: SCREEN 0: SYSTEMãMark Warner JUPITER BACKGROUND devilboy@cyberhall.com 12-28-96 (15:59) QB, QBasic, PDS 76 2540 JUPITER.BAS 'OsCiLlOsCoPe with spiffy bgã'1996 RSSoftã'devilboy@cyberhall.comã'Written on a P166+ w/GoldStar GCDR-540B x4 cdrom drive, sbawe32 cardã'ã'I didn't think qbasic was capable of the speed required to do this.ã'Then I ran across the asm code to do it, ported it to qb, and whaddya know,ã'it is fast enough. There's not much to it, only a tenny bit of code.ã'Just peeking, poking and port inputs...That's it.ã'NEW Jupiter Looking Background thing, courtesy of \Hack\ on #qbasicããDIM lin(0 TO 319) AS DOUBLEãDIM saved(0 TO 319) AS DOUBLEãCOMMON SHARED dat AS INTEGER, j AS LONGããStartUp:ãDEF SEG = &HA000ãRANDOMIZE TIMERãSCREEN 13ãFOR i = 0 TO 255 'set the palette to black whileã OUT &H3C9, 0 'the screen drawsã OUT &H3C9, 0ã OUT &H3C9, 0ãNEXT iãj = 0ããDrawBG:ãc = 1: p = 1: x = 160: y = 100: s = 100ãDOã c = c + 1: p = p + 1ã IF c = 245 THEN c = 1ã IF p = 64 THEN p = 1ã CIRCLE (x, y), s, cã PAINT (x, y), c, cã x = x + 1: y = y - 1: s = s - 2ã IF s < 0 THEN EXIT DOãLOOPããFOR i& = 63999 TO 0 STEP -1 'plot random stars, the fast way...ã IF PEEK(i&) <> 0 THEN GOTO blahã IF PEEK(i&) = INT(RND * 255) THEN POKE i&, RND * 255ãblah: NEXT i&ããMain:ãDO WHILE r$ = "" 'main loopãOUT &H3C8, 0 'set palette register to 0ãFOR i = 0 TO 255 'set palette to redã OUT &H3C9, iã OUT &H3C9, 0ã OUT &H3C9, 0ãNEXT iãOUT &H3C8, 0 'set palette register to 0ãFOR i = 0 TO 255 'set palette to greenã OUT &H3C9, 0ã OUT &H3C9, iã OUT &H3C9, 0ãNEXT iãOUT &H3C8, 0 'set palette register to 0ãFOR i = 0 TO 255 'set palette to blueã OUT &H3C9, 0ã OUT &H3C9, 0ã OUT &H3C9, iãNEXT iãFOR i = 0 TO 319 'oscilloscope loopã OUT &H22C, &H20 'tell SB you want a byteãl1: IF INP(&H22E) = 127 THEN GOTO l1 'if byte null, wait till not nullã dat = ((INP(&H22A) * 1) MOD 50) + 50 'get byte, scaleã lin(i) = PEEK((dat * 320) + i) 'get old pixelã saved(i) = dat 'save old pixel to arrayã POKE (dat * 320) + i, 250 'poke byteã IF i <> 319 THEN POKE (saved(i + 1) * 320) + i + 1, lin(i + 1) 'restore old pixelãNEXT iãr$ = INKEY$ãLOOPãSCREEN 0ãWIDTH 80, 25ãMark Warner CLOCK-LIKE DIGITS devilboy@cyberhall.com 12-29-96 (18:36) QB, QBasic, PDS 66 2934 DIGITS.BAS DECLARE SUB Digits (x%, y%, Digit%, HiCol%, LowCol%)ãDEFINT A-ZãSCREEN 13ããh% = 0: i% = 0: j% = 0: k% = 0: l% = 0: m% = 0ãc1% = 12ãc2% = 230ãDO WHILE r$ = ""ã h% = h% + 1ã IF h% > 9 THEN h% = 0: i% = i% + 1ã IF i% > 9 THEN i% = 0: j% = j% + 1ã IF j% > 9 THEN j% = 0: k% = k% + 1ã IF k% > 9 THEN k% = 0: l% = l% + 1ã IF l% > 9 THEN l% = 0: m% = m% + 1ã IF m% > 9 THEN SLEEPã Digits 228, 0, m%, c1%, c2%ã Digits 240, 0, l%, c1%, c2%ã Digits 252, 0, k%, c1%, c2%ã Digits 264, 0, j%, c1%, c2%ã Digits 276, 0, i%, c1%, c2%ã Digits 288, 0, h%, c1%, c2%ã total& = m% * 100000 + l% * 10000 + k% * 1000 + j% * 100 + i% * 10 + hã r$ = INKEY$ãLOOPãããDEFSNG A-ZãSUB Digits (x%, y%, Digit%, HiCol%, LowCol%)ã'x% is the x coord for the upper left-hand corner of the digitã'y% is the y coord for the upper left-hand corner of the digitã'digit% is the number to be written to the screenã'HiCol% is the color of the "high" segmentsã'LowCol% is the color of the "low" segmentsã'ã'Layout of seven-segment display:ã' aã' ___ã' | | bã' f | g |ã' ---ã' | | cã' e | d |ã' ---ã' ã'ãIF ABS(Digit%) = 0 THEN A% = 1: B% = 1: C% = 1: D% = 1: E% = 1: F% = 1: G% = 0ãIF ABS(Digit%) = 1 THEN A% = 0: B% = 1: C% = 1: D% = 0: E% = 0: F% = 0: G% = 0ãIF ABS(Digit%) = 2 THEN A% = 1: B% = 1: C% = 0: D% = 1: E% = 1: F% = 0: G% = 1ãIF ABS(Digit%) = 3 THEN A% = 1: B% = 1: C% = 1: D% = 1: E% = 0: F% = 0: G% = 1ãIF ABS(Digit%) = 4 THEN A% = 0: B% = 1: C% = 1: D% = 0: E% = 0: F% = 1: G% = 1ãIF ABS(Digit%) = 5 THEN A% = 1: B% = 0: C% = 1: D% = 1: E% = 0: F% = 1: G% = 1ãIF ABS(Digit%) = 6 THEN A% = 1: B% = 0: C% = 1: D% = 1: E% = 1: F% = 1: G% = 1ãIF ABS(Digit%) = 7 THEN A% = 1: B% = 1: C% = 1: D% = 0: E% = 0: F% = 1: G% = 0ãIF ABS(Digit%) = 8 THEN A% = 1: B% = 1: C% = 1: D% = 1: E% = 1: F% = 1: G% = 1ãIF ABS(Digit%) = 9 THEN A% = 1: B% = 1: C% = 1: D% = 1: E% = 0: F% = 1: G% = 1ãIF ABS(Digit%) > 9 OR Digit% < -9 THEN EXIT SUBããIF A% = 1 THEN LINE (x% + 1, y% + 1)-(x% + 9, y% + 1), HiCol% ELSE LINE (x% + 1, y + 1)-(x% + 9, y% + 1), LowCol%ãIF B% = 1 THEN LINE (x% + 10, y% + 2)-(x% + 10, y% + 9), HiCol% ELSE LINE (x% + 10, y% + 2)-(x% + 10, y% + 9), LowCol%ãIF C% = 1 THEN LINE (x% + 10, y% + 11)-(x% + 10, y% + 19), HiCol% ELSE LINE (x% + 10, y% + 11)-(x% + 10, y% + 19), LowCol%ãIF D% = 1 THEN LINE (x% + 1, y% + 20)-(x% + 9, y% + 20), HiCol% ELSE LINE (x% + 1, y% + 20)-(x% + 9, y% + 20), LowCol%ãIF E% = 1 THEN LINE (x%, y% + 11)-(x%, y% + 19), HiCol% ELSE LINE (x%, y% + 11)-(x%, y% + 19), LowCol%ãIF F% = 1 THEN LINE (x%, y% + 2)-(x%, y% + 9), HiCol% ELSE LINE (x%, y% + 2)-(x%, y% + 9), LowCol%ãIF G% = 1 THEN LINE (x% + 1, y% + 10)-(x% + 9, y% + 10), HiCol% ELSE LINE (x% + 1, y% + 10)-(x% + 9, y% + 10), LowCol%ããEND SUBãMike Taylor TI-EMULATOR m-17319@mailbox.swipnet.se 12-30-96 (12:03) QB, QBasic, PDS 29 533 TI-EMU.BAS 'This is just a bad excuse for a ti-emulatorã'It's most probably not usable for anything.ã'If you do find any purpose for it, don't let me know...ããDIM y(1 TO 100)ãDIM ly(1 TO 100)ãCONST pi = 3.1415ã'Start configããXMin = -360ãXMax = 360ãYMin = -360ãYMax = 360ãXStep = 1ãã'End configãSCREEN 12ãWINDOW SCREEN (XMin, YMin)-(XMax, YMax)ãFOR x = XMin TO XMax STEP XStepã'Start yããy(1) = SIN(x * (pi / 180)) * 180ãã'End yãFOR yn = 1 TO 100ãLINE (x - XStep, ly(yn))-(x, y(yn)), 15ãly(yn) = y(yn)ãNEXT ynãNEXT xãThomas Matysik CHANGE FONT IMAGE SIZE Check TEXT.ABC for BIGHIYA.BAS 01-09-97 (16:15) QB, QBasic, PDS 76 2726 TEXT.BAS 'After seeing the BIGHIYA.BAS program that Denis Boyles posted, Iã'thought that it should be quite easy to change the program so that itã'would display text in different sizes anywhere on the graphics screen.ã'This program will print text in any size that is a multiple of 8, withã'different possible sizes for x and y, in several different styles, andã'in any colour.ãã'* TEXT.BAS *`ã'* by Thomas Matysik *`ã'* Released to Public Domain Jan 9, 1997 *`ãã'X version 1.0 Xãã' This program uses the BIOS's CGA ROM font to print out characters anyã' size which is a multiple of 8 pixels, anywhere on the graphics screen.ãã' Based on Denis Boyles BIGHIYA.BAS program.ãããDECLARE SUB PrintText (text$, x1%, y1%, horzsize%, vertsize%, Style%, colr%)ãSCREEN 12ããCLSãPrintText "Hello,world! style 0", 0, 0, 4, 4, 0, 9ãPrintText "Hello,world! style 1", 0, 32, 4, 4, 1, 10ãPrintText "Hello,world! style 2", 0, 64, 4, 4, 2, 11ãPrintText "Hello,world! style 3", 0, 96, 4, 4, 3, 12ãPrintText "Hello,world! style 4", 0, 128, 4, 4, 4, 14ããDEFINT A-Zãã' This routine prints the BIOS's CGA font on the screen in any size thatã' is a multiple of 8, in any one of several different styles. Theã' available styles are:ã'ã' 0 = normal solid fontã' 1 = hollow squares for pixelsã' 2 = diagonal lines (top left to bottom right) for pixelsã' 3 = diagonal lines (top right to bottom left) for pixelsã' 4 = single pixels, with big spaces between them if the font is bigã'ã' If you want to add more styles, put them in the SELECT CASE block.ã'ã'ãSUB PrintText (text$, x1%, y1%, horzsize%, vertsize%, Style%, colr%)ã DEF SEG = &HF000ã bits$ = CHR$(128) + CHR$(64) + CHR$(32) + CHR$(16) + CHR$(8) + CHR$(4) + CHR$(2) + CHR$(1)ã slen = LEN(text$)ãã FOR y = 0 TO 7ã a$ = ""ã FOR ct = 1 TO slenã byte = PEEK(&HFA6E + ASC(MID$(text$, ct, 1)) * 8 + y)ã FOR x = 1 TO 8ã IF byte AND ASC(MID$(bits$, x, 1)) THENã xpixel% = x1% + (x - 1) * horzsize% + (ct - 1) * 8 * horzsize%ã ypixel% = y1% + y * vertsize%ãã SELECT CASE Style%ã CASE 0ã LINE (xpixel%, ypixel%)-(xpixel% + horzsize% - 1, ypixel% + vertsize% - 1), colr%, BFã CASE 1ã LINE (xpixel%, ypixel%)-(xpixel% + horzsize% - 1, ypixel% + vertsize% - 1), colr%, Bã CASE 2ã LINE (xpixel%, ypixel%)-(xpixel% + horzsize% - 1, ypixel% + vertsize% - 1), colr%ã CASE 3ã LINE (xpixel% + horzsize% - 1, ypixel%)-(xpixel%, ypixel% + vertsize% - 1), colr%ã CASE 4ã PSET (xpixel%, ypixel%), colr%ã END SELECTãã END IFã NEXTã NEXTã NEXTãEND SUBãDave Shea GUI BUTTONS W/MOUSE SUPPORT FidoNet QUIK_BAS Echo 01-09-97 (22:16) QB, PDS 256 6420 BUTTONS.BAS ' =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ã' BUTTONS.BAS by Dave Sheaã' Released to Public Domainã' on January 9th, 1997. Noã' Warantees expressed orã' implied.ã' =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ããDECLARE SUB Page1 ()ãDECLARE SUB Page2 ()ãDECLARE SUB SetUpPage (PageNum)ãDECLARE SUB GPrint (x%, y%, Text$, Culler%, Font)ãDECLARE SUB CheckBox (x, y, PageNum)ãDECLARE SUB DrawUpButton (x%, y%, x1%, y1%, Text$)ãDECLARE SUB DrawDownButton (x%, y%, x1%, y1%, Text$)ãDECLARE SUB MouseSH (Num!)ãDECLARE SUB Mouse (HVSP$, Min, Max)ã'$INCLUDE: 'qb.bi'ããTYPE Buttonã x AS INTEGERã y AS INTEGERã x1 AS INTEGERã y1 AS INTEGERã Pressed AS INTEGERã Text AS STRING * 40ã Page AS INTEGERãEND TYPEããCONST NumOfButtons = 15ã'COMMON SHARED BããDIM SHARED InReg AS RegType, OutReg AS RegTypeãDIM SHARED But(NumOfButtons) AS ButtonããBut(1).x = 100: But(1).y = 80: But(1).x1 = 220: But(1).y1 = 95ãBut(1).Text = "Next Page": But(1).Page = 1ããBut(2).x = 100: But(2).y = 105: But(2).x1 = 220: But(2).y1 = 120ãBut(2).Text = "Quit": But(2).Page = 1ããBut(3).x = 100: But(3).y = 80: But(3).x1 = 220: But(3).y1 = 95ãBut(3).Text = "Last Page": But(3).Page = 2ããBut(4).x = 100: But(4).y = 105: But(4).x1 = 220: But(4).y1 = 120ãBut(4).Text = "Quit": But(4).Page = 2ããããMouse "R", 0, 0ãMouse "H", 1, 319ãMouse "V", 1, 199ãMouse "P", 0, 0ããCLS : SCREEN 13ããPage1ããSUB CheckBox (x, y, PageNum)ãã FOR Bc = 1 TO NumOfButtonsã But(Bc).Pressed = 0ã IF x > But(Bc).x AND y > But(Bc).y THENã IF x < But(Bc).x1 AND y < But(Bc).y1 THENã IF OutReg.BX = 1 AND (But(Bc).Page = PageNum OR (But(Bc).Page = 0 AND PageNum > 2)) THENã DrawDownButton But(Bc).x, But(Bc).y, But(Bc).x1, But(Bc).y1, But(Bc).Textã Mouse "S", 0, 0ã DO WHILE OutReg.BX = 1: Mouse "S", 0, 0: LOOPã DrawUpButton But(Bc).x, But(Bc).y, But(Bc).x1, But(Bc).y1, But(Bc).Textãã Mouse "S", 0, 0: x = (OutReg.Cx / 2) + 1: y = OutReg.Dxã IF x > But(Bc).x AND y > But(Bc).y THENã IF x < But(Bc).x1 AND y < But(Bc).y1 THENã But(Bc).Pressed = 1ã END IFã END IFã END IFã END IFã END IFã NEXTãEND SUBããSUB DrawDownButton (x%, y%, x1%, y1%, Text$)ãã MouseSH 2ãã LINE (x% + 1, y%)-(x1% - 1, y%), 0ã LINE (x%, y% + 1)-(x%, y1% - 1), 0ã LINE (x% + 1, y1%)-(x1% - 1, y1%), 0ã LINE (x1%, y% + 1)-(x1%, y1% - 1), 0ã LINE (x% + 1, y% + 1)-(x1% - 1, y1% - 1), 28, BFã LINE (x% + 1, y% + 1)-(x1% - 1, y% + 1), 25ã LINE (x% + 1, y% + 1)-(x% + 1, y1% - 1), 25ã PSET (x% + 2, y% + 2), 25ãã FOR TScan = LEN(Text$) TO 1 STEP -1ã IF MID$(Text$, TScan, 1) <> CHR$(32) THEN LenText = TScan: EXIT FORã NEXTãã Px% = (((x1% - x%) / 2 + x%) + 1) - (LenText * 8) / 2 + 1ã Py% = ((y1% - y%) / 2 + y%) + 1 - 2ãã GPrint Px%, Py%, Text$, 0, 1ãã MouseSH 1ããEND SUBããSUB DrawUpButton (x%, y%, x1%, y1%, Text$)ãã MouseSH 2ãã LINE (x% + 1, y%)-(x1% - 1, y%), 0ã LINE (x%, y% + 1)-(x%, y1% - 1), 0ã LINE (x% + 1, y1%)-(x1% - 1, y1%), 0ã LINE (x1%, y% + 1)-(x1%, y1% - 1), 0ã LINE (x% + 1, y% + 1)-(x1% - 1, y1% - 1), 28, BFã LINE (x% + 1, y% + 1)-(x1% - 1, y1% - 1), 31, Bã LINE (x1% - 1, y% + 2)-(x1% - 1, y1% - 1), 25ã LINE (x% + 2, y1% - 1)-(x1% - 1, y1% - 1), 25ã LINE (x% + 2, y% + 2)-(x% + 2, y1% - 2), 31ã LINE (x1% - 2, y% + 2)-(x1% - 2, y1% - 2), 25ã PSET (x1% - 3, y1% - 2), 25ã PSET (x1% - 1, y% + 1), 25ã PSET (x% + 3, y% + 2), 31ã PSET (x1% - 2, y1% - 2), 25ãã FOR TScan = LEN(Text$) TO 1 STEP -1ã IF MID$(Text$, TScan, 1) <> CHR$(32) THEN LenText = TScan: EXIT FORã NEXTãã Px% = (((x1% - x%) / 2 + x%) - (LenText * 8) / 2)ã Py% = ((y1% - y%) / 2 + y%) - 3ãã GPrint Px%, Py%, Text$, 0, 1ãã MouseSH 1ããEND SUBããSUB GPrint (x%, y%, Text$, Culler%, Font)ãã 'this routine allows printing text at any pixel locationã ' in the graphics modes without disturbing the backgroundã 'by Douglas H. Lusher, 06-08-1996ãã ' 8 x 8 char box, CGAã IF Font = 1 THENã CharSegment% = &HFFA6: CharOffset% = &HEã CharWid% = 8: CharHgt% = 8ã END IFãã ' 8 x 14 char box, EGAã 'CharSegment% = &HC000: CharOffset% = &H4ED5ã 'CharWid% = 8: CharHgt% = 14ãã ' 8 x 16 char box, VGAã IF Font = 2 THENã DIM Regs AS RegTypeXã Regs.AX = &H1130: Regs.BX = &H600ã CALL InterruptX(&H10, Regs, Regs)ã CharSegment% = Regs.ES: CharOffset% = Regs.BPã CharWid% = 8: CharHgt% = 16ã END IFãã DEF SEG = CharSegment%ã XX% = x%ã FOR char% = 1 TO LEN(Text$)ã Ptr% = CharHgt% * ASC(MID$(Text$, char%, 1)) + CharOffset%ã FOR Ln% = 0 TO CharHgt% - 1ã BitPattern& = PEEK(Ptr% + Ln%) * 256&ã LineFormat% = (BitPattern& - 32768) XOR -32768ã LINE (XX%, y% + Ln%)-STEP(CharWid% - 1, 0), Culler%, , LineFormat%ã NEXTã XX% = XX% + CharWid%ã NEXTã DEF SEGããEND SUBããSUB Mouse (HVSPR$, Min, Max)ãã 'If HVSPR$ = H or Vã 'Sets Minimum Or Maximum Horizontal And Vertical Boundariesãã 'If HVSPR$ = S Then It Returns Mouse Location And Statusã 'If HVSPR$ = P Then It Places The Cursor Inside The Boundariesã 'If HVSPR$ = R Then It Resets Mouse Statusãã IF HVSPR$ = "R" THEN InReg.AX = 0ã IF HVSPR$ = "H" THEN InReg.AX = 7: InReg.Cx = Min: InReg.Dx = Maxã IF HVSPR$ = "V" THEN InReg.AX = 8: InReg.Cx = Min: InReg.Dx = Maxã IF HVSPR$ = "P" THEN InReg.AX = 4ã IF HVSPR$ = "S" THEN InReg.AX = 1: CALL INTERRUPT(&H33, InReg, OutReg)ã IF HVSPR$ = "S" THEN InReg.AX = 3ãã CALL INTERRUPT(&H33, InReg, OutReg)ããEND SUBããSUB MouseSH (Num)ãã 'If Num = 1 Then Show Mouse Cursorã 'If Num = 2 Then Hide Mouse Cursorãã IF Num = 2 THEN InReg.AX = 2ã IF Num = 1 THEN InReg.AX = 1ãã CALL INTERRUPT(&H33, InReg, OutReg)ããEND SUBããSUB Page1ããPageNum = 1ãSetUpPage PageNumããDOã Mouse "S", 0, 0ã x = (OutReg.Cx / 2) + 1: y = OutReg.Dxã CheckBox x, y, PageNumã IF But(1).Pressed = 1 THEN Page2ã IF But(2).Pressed = 1 THEN ENDãLOOPãããEND SUBããSUB Page2ããPageNum = 2ãSetUpPage PageNumããDOã Mouse "S", 0, 0ã x = (OutReg.Cx / 2) + 1: y = OutReg.Dxã CheckBox x, y, PageNumã IF But(3).Pressed = 1 THEN Page1ã IF But(4).Pressed = 1 THEN ENDãLOOPãããEND SUBããSUB SetUpPage (PageNum)ãMouseSH 2: LINE (0, 0)-(320, 200), 31, BF: MouseSH 1ããLOCATE 1, 1: PRINT "Page Number "; PageNumããFOR Db = 1 TO NumOfButtonsã IF But(Db).Page = PageNum OR But(Db).Page = 0 AND PageNum > 2 THENã DrawUpButton But(Db).x, But(Db).y, But(Db).x1, But(Db).y1, But(Db).Textã END IFãNEXTããEND SUBãJim Emptage BEZIER CURVE ROUTINE W/MOUSE 75504.2526@CompuServe.com 01-14-97 (01:05) QB, PDS 140 3447 BEZIER.BAS ' ***************************************************************ã' * from Jim Emptage Rouge Valley Software *ã' * after years of looking, I found some code for a bezier curve *ã' * I adapted the code to be mouse drivenã' * I added the code for the temporary mask *ã' * If you are making a draw/paint program you NEED this code *ã' * 75504.2526@compuserve.com *ã' * please credit this code if used by leaving these comments in *ã' * will need Quick Basic to compile this code *ã' * ************************************************************* *ãDEFINT A-ZãDECLARE SUB mouse (m0%, m1%, m2%, m3%)ãDECLARE SUB hidemouse ()ãDECLARE SUB showmouse ()ãDECLARE SUB getmxy (mx%, my%)ãDECLARE SUB setmxy (mx%, my%)ãDECLARE SUB mborders (x%, y%, h%, v%)ãDECLARE FUNCTION mbtn% ()ããTYPE RegTypeã ax AS INTEGERã bx AS INTEGERã cx AS INTEGERã dx AS INTEGERã bp AS INTEGERã si AS INTEGERã di AS INTEGERã flags AS INTEGERãEND TYPEãCLSãSCREEN 13ãFOR x = 0 TO 320ã FOR y = 0 TO 200ã PSET (x, y), 200 + (x + y) MOD 50ã NEXTãNEXTãPALETTE 255, 60ãCALL setmxy(5, 5)ãTYPE ptsã x AS INTEGERã y AS INTEGERã c AS INTEGERãEND TYPEãDIM SHARED sam(105) AS ptsãCALL showmouseãDOãLOOP UNTIL mbtn% = 0ãDOãLOOP UNTIL mbtn% <> 0ãCALL hidemouseãCALL getmxy(x00, y00)ãPSET (x00, y00), 255ãCALL showmouseãDOãLOOP UNTIL mbtn% = 0ãDOãLOOP UNTIL mbtn% <> 0ãCALL hidemouseãCALL getmxy(x03, y03)ãPSET (x03, y03), 255ãDOãLOOP UNTIL mbtn% = 0ãDOã ã CALL getmxy(x01, y01)ã X02 = x01ã Y02 = y01 ' make these equal for a standard curveã ã a = x03 - 3 * X02 + 3 * x01 - x00ã e = y03 - 3 * Y02 + 3 * y01 - y00ã b = 3 * X02 - 6 * x01 + 3 * x00ã f = 3 * Y02 - 6 * y01 + 3 * y00ã c = 3 * x01 - 3 * x00ã g = 3 * y01 - 3 * y00ã d = x00ã h = y00ã cnt = 0ã FOR T! = 0 TO 1 STEP .01ã xb = ((a * T! + b) * T! + c) * T! + dã yb = ((e * T! + f) * T! + g) * T! + hã IF POINT(xb, yb) <> 255 THENã cnt = cnt + 1ã sam(cnt).x = xbã sam(cnt).y = ybã sam(cnt).c = POINT(xb, yb)ã PSET (sam(cnt).x, sam(cnt).y), 255ã END IFã ã NEXT T!ã FOR blk = 1 TO cntã PSET (sam(blk).x, sam(blk).y), sam(blk).cã NEXT blkã PSET (x00, y00), 14ãLOOP UNTIL mbtn% <> 0ãFOR l = 1 TO cntã LINE -(sam(l).x, sam(l).y), 14ãNEXTãLINE -(x03, y03), 14ãENDããSUB getmxy (mx%, my%) STATICãmouse 3, 0, x, y ' get graphic coordinatesãmx% = x / 2 ' (x / 8) + 1ãmy% = y ' (y / 8) + 1 'convert to text coordinatesãEND SUBããSUB hidemouse STATICãCALL mouse(2, 0, 0, 0)ãEND SUBããSUB mborders (x, y, h, v) STATICãmouse 7, 0, (x - 1) * 8, (h - 1) * 8ãmouse 8, 9, (y - 1) * 8, (v - 1) * 8ãEND SUBããFUNCTION mbtn% STATICãmouse 3, buttons, 0, 0ãmbtn% = buttonsãEND FUNCTIONããSUB mouse (m0%, m1%, m2%, m3%) STATICãDIM inregs AS RegType, outregs AS RegTypeãinregs.ax = m0%ãinregs.bx = m1%ãinregs.cx = m2%ãinregs.dx = m3%ãCALL INTERRUPT(51, inregs, outregs)ãm0% = outregs.axãm1% = outregs.bxãm2% = outregs.cxãm3% = outregs.dxãEND SUBããSUB setmxy (x, y) STATICãmouse 4, 0, (x - 1) * 8, (y - 1) * 8ãEND SUBããSUB showmouse STATICãmouse 1, 0, 0, 0ãEND SUBãNick Kochakian FAST BOX SHADE MAKER NickK@worldnet.att.net 01-16-97 (12:12) QB, QBasic, PDS 46 946 FASTBOX.BAS DECLARE SUB FASTBOX (X%, Y%, X2%, Y2%, ColorST%, ColorEN%)ã'Fast box shade makerã'ã'1997 By: - Nick Kochakian -ã'ã'This program was suposed to fill in a box... But I really didn't wantã'to take TOO long to figure it out... So instead it fills the whole screenã'for you...ã'ã'You can edit / use this program anyway you'd like to... But, PLEASEã'give me credit where it is deserved!!!ã'ã'Thanks! :)ããSCREEN 13ãã'Big Box:ãX% = 1ãY% = 1ãX2% = 300ãY2% = 190ããCS% = 16ãCM% = 30ããCALL FASTBOX(X%, Y%, X2%, Y2%, CS%, CM%)ã'CS% - Is the starting colorã'CM% - Is the maximum color the box will go up toããSUB FASTBOX (X%, Y%, X2%, Y2%, ColorST%, ColorEN%)ããC% = ColorST%ãCOL% = C%ããDOãLINE (X%, Y%)-(X2%, Y2%), COL%, BãC% = C% + 1ãIF C% > ColorEN% THEN C% = ColorST%: COL% = C%ãCOL% = C%ãX% = X% + 1ãY% = Y% + 1ãX2% = X2% - 1ãY2% = Y2% - 1ãLOOP UNTIL X% >= 96 AND Y% >= 96 AND X2% >= 205 AND Y2% >= 95ããEND SUBãNick Kochakian SMOOTH CIRCLE ROUTINE NickK@worldnet.att.net 01-16-97 (12:12) QB, QBasic, PDS 71 1815 CIRFINE.BAS 'Fine Circlesã'ã'1997 By: - Nick Kochakian -ã'ã'Finally! I've done it!ã'A program that makes circles that don't have the little gaps in them!ã'ã'This program enables you to make circles WITHOUT the anoying gaps.ã'It produces a crisp, clean circle that looks... Um... Professional!ã'It runs very fast! So, don't worry about waiting too long for the circleã'to appear on the screen! :)ã'ã'You CAN use the CIRFINE routine in your own programs but, PLEASEã'give me credit where it is deserved the most!ã'Thanks!ã'ã'This program can use ANY screen mode. But, it was desgined in SCREEN modeã'13.ããDECLARE SUB CIRFINE (Colors%, Colore%, X%, Y%, SIZ%, THNG%)ãã'How to CALL CIRFINE:ã'CALL CIRFINE (Colors%, Colore%, X%, Y%, SIZ%, THNG%)ã'Colors% - is the starting color of the circleã'Colore% - is the ending colorã'X% - Is the X locationã'Y% - Is the Y locationã'SIZ% - Should be the the size of the circle you wantã'THNG% - Is how "Fat" for "Fine" you want your circle to be. 1 would be "Fine"ã'and 2 or grater would be "Fat". Check out the SUB to see how it works!ããSCREEN 13 'VGAããCM% = 30ãCS% = 16ãSIZ% = 50ãX% = 50ãY% = 50ãã'The CIRCLE demoãSIZZ = 50ãCOL = 0ãLOCATE 1, 1: PRINT "Regular CIRCLE command:"ãDOãCIRCLE (50, 50), SIZZ, COLãCOL = COL + 1ãSIZZ = SIZZ - 1ãLOOP UNTIL SIZZ = 1ãLOCATE 23, 1: PRINT "Press ANY key"ããDOãLOOP UNTIL INKEY$ <> ""ãCLSããLOCATE 1, 1: PRINT "Circle command with CIRFINE:"ãCALL CIRFINE(CS%, CM%, X%, Y%, SIZ%, 1)ããSUB CIRFINE (Colors%, Colore%, X%, Y%, SIZ%, THNG%)ããC% = Colors% 'Set up the colorsããDOãCOL = C% 'Set up the colorsãCIRCLE (X%, Y%), SIZ%, COLãPAINT (X% + SIZ% - 1, Y% + SIZ% / 100), COLãC% = C% + 1ãIF C% > Colore% THEN C% = Colors%ãSIZ% = SIZ% - THNG% 'The size controlãLOOP UNTIL SIZ% <= 1ããEND SUBãNick Kochakian CIRCLE FIREWORKS NickK@worldnet.att.net 01-16-97 (12:14) QB, QBasic, PDS 61 1133 FIREWORK.BAS'Circle "Fire Works"ã'ã'1997 By: -Nick Kochakian-ã'ã'If you'd like to use this circle program in any of your programs...ã'Fell free to but... PLEASE give me credit where it is deserved!ã'Thanks!ã'ã'This program MIGHT be a good screen saver!ããSCREEN 13 'Screen mode 13 (VGA)ãRANDOMIZE TIMERãXM = 300 'X maximumãYM = 170 'Y maximumãSM = 100 'The maximum size of a circleãDLY = 900 'DelayããDOãGOSUB RANDIT: 'Randomize circle X,YãGOSUB CIRCIT: 'Draws the circleãGOSUB CIRERA: 'Erases the circleãLOOP UNTIL INKEY$ <> "" 'Loop until a key is pressedãENDããRANDIT:ãX = INT(RND * XM) + 1ãY = INT(RND * YM) + 1ãS = INT(RND * SM) + 1 'S is how big the circle getsãIF S > SM THEN S = SMãRETURNããCIRCIT:ãSS = 1ãCM = 30 'The color maximumãCS = 16 'What color the circle starts atãCA = CS 'Set the color upããDOããFOR I = 1 TO DLY 'DelayãNEXT IããCOL = CAãCA = CA + 1ãIF CA > CM THEN CA = CSãCIRCLE (X, Y), SS, COLãSS = SS + 1ãIF S > SM THEN SS = SãLOOP UNTIL SS >= SãRETURNããCIRERA:ãCNT = 0ãDOãFOR I = 1 TO DLY 'DelayãNEXT IããCIRCLE (X, Y), CNT, 0ãCNT = CNT + 1ãLOOP UNTIL CNT = SãRETURNãNick Kochakian STARZ! NickK@worldnet.att.net 01-16-97 (12:14) QB, QBasic, PDS 363 7284 STARZ.BAS 'Starz! 1.0ã'ã'1996 By: - Nick Kochakian -ã'You can use Starz! in any of your programs... Just be shure to include myã'name some where in your program where people can READ it.ã'Thanks! :)ã':) Have fun fooling around with the demnsions! :)ããRANDOMIZE TIMERãSCREEN 13 'Set up VGA screen (256 colors) (300x200)ãCLS 'Clear the screenããS1XMAX = 300 'Starz 1 X Maximum numberãS1YMAX = 190 'Starz 1 Y Maximum numberãS1CMAX = 256 'Color Maximum for Starz 1ããS2XMAX = 300 'Starz 2 X Maximum numberãS2YMAX = 190 'Starz 2 Y Maximum numberãS2CMAX = 30'Color Maximum for Starz 2ããENDSTARZ = INT(RND * 6000) + 1 'Set ending numberãã'You can set the starz to your liking.ã'Please type STARZ$ entrys in ALL CAPSã'STARZ$="MIXED" mixes colored starz with grey scale starzã'STARZ$="COLOR" color starz onlyã'STARZ$="GREY" grey scale starz onlyãSTARZ$ = "GREY"ããDOãS1X = INT(RND * S1XMAX) + 1ãS1Y = INT(RND * S1YMAX) + 1ãIF STARZ$ = "MIXED" THEN S1C = INT(RND * S1CMAX) + 1ãIF STARZ$ = "COLOR" THEN S1C = INT(RND * S1CMAX) + 1ããIF STARZ$ = "GREY" THENãDOãREPICK:ãS1C = INT(RND * S2CMAX) + 1ãIF S1C < 16 THEN GOTO REPICK:ãIF S1C > 30 THEN GOTO REPICK:ãLOOP UNTIL S1C = 16 OR S1C = 30 OR S1C = 16 <> 30ãEND IFããPSET (S1X, S1Y), S1CããS2X = INT(RND * S2XMAX) + 1ãS2Y = INT(RND * S2YMAX) + 1ãIF STARZ$ = "COLOR" THEN PSET (S2X, S2Y), S1CãIF STARZ$ = "MIXED" THEN S2C = INT(RND * S2C) + 1: PSET (S2X, S2Y), S2CãIF STARZ$ = "GREY" THEN PSET (S2X, S2Y), S1CãENDIT = ENDIT + 1ãLOOP UNTIL ENDIT = ENDSTARZãã'Shining grey starz!ãIF STARZ$ = "GREY" THENãDOãREPIKME:ã C = INT(RND * 30) + 1ãCC = INT(RND * 30) + 1ãIF CC < 16 THEN GOTO REPIKME:ãIF CC > 30 THEN GOTO REPIKME:ãR = CCãG = CCãB = CCãIF C < 16 THEN GOTO REPIKME:ãIF C > 30 THEN GOTO REPIKME:ã PAL& = 65536 * B + 256 * G + Rã PALETTE C, PAL&ãLOOP UNTIL INKEY$ <> ""ãPALETTEãCLSãPRINT "Starz! 1996 By: - Nick Kochakian -"ãENDãEND IFããIF STARZ$ = "MIXED" OR STARZ$ = "COLOR" THENãDOãREPIKMETWO:ãC = INT(RND * 255) + 1ãCC = INT(RND * 255) + 1ãIF CC < 0 THEN GOTO REPIKMETWO:ãIF CC > 255 THEN GOTO REPIKMETWO:ããCPIK = 0ãDOãREAD R, G, BãCPIK = CPIK + 1ãLOOP UNTIL CPIK = CCãRESTOREããIF C < 0 THEN GOTO REPIKMETWO:ãIF C > 255 THEN GOTO REPIKMETWO:ã PAL& = 65536 * B + 256 * G + Rã PALETTE C, PAL&ãLOOP UNTIL INKEY$ <> ""ãPALETTEãCLSãPRINT "Starz! 1996 By: - Nick Kochakian -"ãENDãEND IFããENDã'Palette DATAãã'"HOT" paletteããDATA 0 , 0 , 0ãDATA 21 , 21 , 21ãDATA 0 , 42 , 42ãDATA 42 , 42 , 42ãDATA 4 , 0 , 0ãDATA 8 , 0 , 0ãDATA 8 , 0 , 0ãDATA 12 , 0 , 0ãDATA 14 , 0 , 0ãDATA 16 , 0 , 0ãDATA 17 , 0 , 0ãDATA 16 , 0 , 0ãDATA 21 , 0 , 0ãDATA 20 , 0 , 0ãDATA 24 , 0 , 0ãDATA 24 , 0 , 0ãDATA 28 , 0 , 0ãDATA 30 , 0 , 0ãDATA 32 , 0 , 0ãDATA 33 , 0 , 0ãDATA 32 , 0 , 0ãDATA 37 , 0 , 0ãDATA 36 , 0 , 0ãDATA 40 , 0 , 0ãDATA 42 , 0 , 0ãDATA 44 , 0 , 0ãDATA 46 , 0 , 0ãDATA 48 , 0 , 0ãDATA 49 , 0 , 0ãDATA 51 , 0 , 0ãDATA 53 , 0 , 0ãDATA 55 , 0 , 0ãDATA 56 , 0 , 0ãDATA 58 , 0 , 0ãDATA 60 , 0 , 0ãDATA 62 , 0 , 0ãDATA 63 , 0 , 0ãDATA 63 , 1 , 0ãDATA 63 , 0 , 0ãDATA 63 , 5 , 0ãDATA 63 , 4 , 0ãDATA 63 , 8 , 0ãDATA 63 , 10 , 0ãDATA 63 , 12 , 0ãDATA 63 , 13 , 0ãDATA 63 , 12 , 0ãDATA 63 , 17 , 0ãDATA 63 , 16 , 0ãDATA 63 , 20 , 0ãDATA 63 , 22 , 0ãDATA 63 , 24 , 0ãDATA 63 , 25 , 0ãDATA 63 , 24 , 0ãDATA 63 , 29 , 0ãDATA 63 , 28 , 0ãDATA 63 , 32 , 0ãDATA 63 , 32 , 0ãDATA 63 , 36 , 0ãDATA 63 , 38 , 0ãDATA 63 , 36 , 0ãDATA 63 , 41 , 0ãDATA 63 , 43 , 0ãDATA 63 , 44 , 0ãDATA 63 , 46 , 0ãDATA 63 , 48 , 0ãDATA 63 , 50 , 0ãDATA 63 , 51 , 0ãDATA 63 , 53 , 0ãDATA 63 , 55 , 0ãDATA 63 , 57 , 0ãDATA 63 , 58 , 0ãDATA 63 , 60 , 0ãDATA 63 , 62 , 0ãDATA 63 , 63 , 0ãDATA 62 , 63 , 0ãDATA 60 , 63 , 0ãDATA 58 , 63 , 0ãDATA 56 , 63 , 0ãDATA 55 , 63 , 0ãDATA 53 , 63 , 0ãDATA 51 , 63 , 0ãDATA 49 , 63 , 0ãDATA 47 , 63 , 0ãDATA 46 , 63 , 0ãDATA 44 , 63 , 0ãDATA 42 , 63 , 0ãDATA 40 , 63 , 0ãDATA 36 , 63 , 0ãDATA 37 , 63 , 0ãDATA 32 , 63 , 0ãDATA 33 , 63 , 0ãDATA 28 , 63 , 0ãDATA 30 , 63 , 0ãDATA 28 , 63 , 0ãDATA 24 , 63 , 0ãDATA 24 , 63 , 0ãDATA 20 , 63 , 0ãDATA 21 , 63 , 0ãDATA 16 , 63 , 0ãDATA 17 , 63 , 0ãDATA 12 , 63 , 0ãDATA 14 , 63 , 0ãDATA 12 , 63 , 0ãDATA 8 , 63 , 0ãDATA 8 , 63 , 0ãDATA 4 , 63 , 0ãDATA 5 , 63 , 0ãDATA 0 , 63 , 0ãDATA 1 , 63 , 0ãDATA 0 , 63 , 0ãDATA 0 , 63 , 1ãDATA 0 , 63 , 0ãDATA 0 , 63 , 5ãDATA 0 , 63 , 4ãDATA 0 , 63 , 8ãDATA 0 , 63 , 10ãDATA 0 , 63 , 12ãDATA 0 , 63 , 13ãDATA 0 , 63 , 12ãDATA 0 , 63 , 17ãDATA 0 , 63 , 16ãDATA 0 , 63 , 20ãDATA 0 , 63 , 22ãDATA 0 , 63 , 24ãDATA 0 , 63 , 25ãDATA 0 , 63 , 24ãDATA 0 , 63 , 29ãDATA 0 , 63 , 28ãDATA 0 , 63 , 32ãDATA 0 , 63 , 32ãDATA 0 , 63 , 36ãDATA 0 , 63 , 38ãDATA 0 , 63 , 36ãDATA 0 , 63 , 41ãDATA 0 , 63 , 43ãDATA 0 , 63 , 44ãDATA 0 , 63 , 46ãDATA 0 , 63 , 48ãDATA 0 , 63 , 50ãDATA 0 , 63 , 51ãDATA 0 , 63 , 53ãDATA 0 , 63 , 55ãDATA 0 , 63 , 57ãDATA 0 , 63 , 58ãDATA 0 , 63 , 60ãDATA 0 , 63 , 62ãDATA 0 , 63 , 63ãDATA 0 , 62 , 63ãDATA 0 , 60 , 63ãDATA 0 , 58 , 63ãDATA 0 , 56 , 63ãDATA 0 , 55 , 63ãDATA 0 , 53 , 63ãDATA 0 , 51 , 63ãDATA 0 , 49 , 63ãDATA 0 , 47 , 63ãDATA 0 , 46 , 63ãDATA 0 , 44 , 63ãDATA 0 , 42 , 63ãDATA 0 , 40 , 63ãDATA 0 , 36 , 63ãDATA 0 , 37 , 63ãDATA 0 , 32 , 63ãDATA 0 , 33 , 63ãDATA 0 , 28 , 63ãDATA 0 , 30 , 63ãDATA 0 , 28 , 63ãDATA 0 , 24 , 63ãDATA 0 , 24 , 63ãDATA 0 , 20 , 63ãDATA 0 , 21 , 63ãDATA 0 , 16 , 63ãDATA 0 , 17 , 63ãDATA 0 , 12 , 63ãDATA 0 , 14 , 63ãDATA 0 , 12 , 63ãDATA 0 , 8 , 63ãDATA 0 , 8 , 63ãDATA 0 , 4 , 63ãDATA 0 , 5 , 63ãDATA 0 , 0 , 63ãDATA 0 , 1 , 63ãDATA 0 , 0 , 63ãDATA 1 , 0 , 63ãDATA 0 , 0 , 63ãDATA 5 , 0 , 63ãDATA 4 , 0 , 63ãDATA 8 , 0 , 63ãDATA 10 , 0 , 63ãDATA 12 , 0 , 63ãDATA 13 , 0 , 63ãDATA 12 , 0 , 63ãDATA 17 , 0 , 63ãDATA 16 , 0 , 63ãDATA 20 , 0 , 63ãDATA 22 , 0 , 63ãDATA 24 , 0 , 63ãDATA 25 , 0 , 63ãDATA 24 , 0 , 63ãDATA 29 , 0 , 63ãDATA 28 , 0 , 63ãDATA 32 , 0 , 63ãDATA 32 , 0 , 63ãDATA 36 , 0 , 63ãDATA 38 , 0 , 63ãDATA 36 , 0 , 63ãDATA 41 , 0 , 63ãDATA 43 , 0 , 63ãDATA 44 , 0 , 63ãDATA 46 , 0 , 63ãDATA 48 , 0 , 63ãDATA 50 , 0 , 63ãDATA 51 , 0 , 63ãDATA 53 , 0 , 63ãDATA 55 , 0 , 63ãDATA 57 , 0 , 63ãDATA 58 , 0 , 63ãDATA 60 , 0 , 63ãDATA 62 , 0 , 63ãDATA 63 , 0 , 63ãDATA 63 , 1 , 63ãDATA 63 , 0 , 63ãDATA 63 , 5 , 63ãDATA 63 , 4 , 63ãDATA 63 , 8 , 63ãDATA 63 , 8 , 63ãDATA 63 , 12 , 63ãDATA 63 , 14 , 63ãDATA 63 , 16 , 63ãDATA 63 , 17 , 63ãDATA 63 , 16 , 63ãDATA 63 , 21 , 63ãDATA 63 , 20 , 63ãDATA 63 , 24 , 63ãDATA 63 , 24 , 63ãDATA 63 , 28 , 63ãDATA 63 , 30 , 63ãDATA 63 , 32 , 63ãDATA 63 , 33 , 63ãDATA 63 , 32 , 63ãDATA 63 , 37 , 63ãDATA 63 , 36 , 63ãDATA 63 , 40 , 63ãDATA 63 , 42 , 63ãDATA 63 , 44 , 63ãDATA 63 , 46 , 63ãDATA 63 , 48 , 63ãDATA 63 , 49 , 63ãDATA 63 , 51 , 63ãDATA 63 , 53 , 63ãDATA 63 , 55 , 63ãDATA 63 , 56 , 63ãDATA 63 , 58 , 63ãDATA 63 , 60 , 63ãDATA 63 , 62 , 63ãDATA 63 , 63 , 63ãAngelo Ken Pesce STANDARD FIRE EFFECT ken@uniserv.uniplan.it 01-15-97 (01:00) QB, QBasic, PDS 77 2075 APSTEST.BAS REM ******************************************************* CONFIGãDEFINT A-ZãCLSãPRINT "FIRE EFFECT"ãPRINT "APSOFTWARE 1996"ããINPUT "X DIM (100-320)"; xdimãIF xdim > 320 THEN xdim = 320ãIF xdim < 100 THEN xdim = 100ãINPUT "Y DIM (100-200)"; ydimãIF ydim > 200 THEN ydim = 200ãIF ydim < 100 THEN ydim = 100ã1 INPUT "X SPEED (0-3)"; xvelãIF xvel > 3 OR xvel < 0 THEN PRINT "MINIMUM VEL 0, MAXIMUM VEL 3": GOTO 1ã2 INPUT "Y SPEED (0-3)"; yvelãIF yvel > 3 OR yvel < 0 THEN PRINT "MINIMUM VEL 0, MAXIMUM VEL 3": GOTO 2ãINPUT "ITER (5-15)"; iterãIF iter > 15 THEN iter = 15ãIF iter < 5 THEN iter = 5ãINPUT "C Speed (0.1-1)"; bãIF b > 1 THEN b = 1ãIF b < .1 THEN b = .1ãINPUT "X SIZE (1-4)"; xpixãINPUT "Y SIZE (1-4)"; ypixãIF xpix > 4 THEN xpix = 4ãIF xpix < 1 THEN xpix = 1ãIF ypix > 4 THEN ypix = 4ãIF ypix < 1 THEN ypix = 1ãINPUT "Lines (1-30)"; lnãIF ln > 30 THEN ln = 30ãIF ln < 1 THEN ln = 1ãSCREEN 13ãREM ******************************************************* PALETTE INITãFOR col = 0 TO 63ã PALETTE col, colãNEXTãREM ******************************************************* RANDOM POINTSãDOãFOR I = 1 TO lnã FOR t% = 1 TO 100ã x% = INT(RND * xdim)ã y% = INT(RND * ydim)ã x1% = INT(RND * xdim)ã y1% = INT(RND * ydim)ã c% = 63ã LINE (x%, y%)-(x1%, y1%), c%ã NEXT t%ãNEXTãREM ******************************************************* FIRE !!!ãDIM xp, yp, xs, yx, xend, yend AS INTEGERãCONST xstart = 0, ystart = 0ãxend = xdimãyend = ydimãCONST cmax = 63ãFOR I = 1 TO iterãFOR xp = xstart TO xend STEP xpixãFOR yp = ystart TO yend STEP ypixãcol = POINT(xp, yp)ãcol = col + POINT(xp + 1, yp) + POINT(xp, yp + 1)ãcol = col + POINT(xp - 1, yp) + POINT(xp, yp - 1)ãcol = col + POINT(xp + 1, yp + 1) + POINT(xp + 1, yp - 1)ãcol = col + POINT(xp - 1, yp + 1) + POINT(xp - 1, yp - 1)ãcol = INT(col / 9 - b)ãIF col < 0 THEN col = 0ãIF col > cmax THEN col = cmaxãFOR px = 0 TO xpix - 1ãFOR py = 0 TO ypix - 1ãPSET (xp - xvel + px, yp - yvel + py), colãNEXTãNEXTãNEXTãNEXTãNEXTãLOOPããããAngelo Ken Pesce ENHANCED FIRE EFFECT V3.2 ken@uniserv.uniplan.it 01-15-97 (01:00) QB, QBasic, PDS 141 3720 APS32.BAS ' FOR BETTER RESULTS COMPILE IT WITH ALTERNATE MATH PDS' 7 OPTIONããDECLARE SUB pal (c%, r%, g%, b%)ãREM ******************************************************* CONFIGããDEFINT A-Zãã'********************************************************** initialize varsããCLSãRANDOMIZE (TIMER)ããPRINT "ANGELO KEN PESCE 1996 - PHOBIA 1996 (pallette routine)"ãPRINT "QuickBasic Fire Demo v3.2beta"ãPRINT "--------------------------"ãPRINT "Features:"ãPRINTãPRINT "Four Pixel Interpolation (4+1 complete) v2"ãPRINT "Improved Black Jump v2"ãPRINT "Improved White Jump with color prediction routine v3beta"ãPRINT "Random Color Adjustment"ãPRINT "--------------------------"ãPRINT "SET VARIABLES: (press enter for defaults) "ãPRINTãPRINTãINPUT "X DIM (50,320)"; xdimãIF xdim > 320 THEN xdim = 320ãIF xdim < 50 THEN xdim = 50ãINPUT "Y DIM (50,200)"; ydimãIF ydim > 200 THEN ydim = 200ãIF ydim < 50 THEN ydim = 50ãINPUT "Color Fade Speed (0.1,3)"; bãIF b > 3 THEN b = 1ãIF b < .1 THEN b = .1ãINPUT "Random Color Value (-3,3)"; rd$ãIF rd$ = "" THEN rd = 0: GOTO nocheckãrd = VAL(rd$)ãIF rd > 3 THEN rd = 3ãIF rd < -3 THEN rd = 3ãnocheck:ãINPUT "Lines (1,15)"; vnãIF vn > 15 THEN vn = 15ãIF vn < 1 THEN vn = 1ãããSCREEN 13ãã'********************************************************** Init. ArraysããDIM xvp1(vn)ãDIM xvp2(vn)ãDIM yvp1(vn)ãDIM yvp2(vn)ãDIM xvf1(vn)ãDIM xvf2(vn)ãDIM yvf1(vn)ãDIM yvf2(vn)ããFOR j = 1 TO vnãxvp1(j) = INT((xdim + 1) * RND + 1)ãxvp2(j) = INT((xdim + 1) * RND + 1)ãyvp1(j) = INT((ydim + 1) * RND + 1)ãyvp2(j) = INT((ydim + 1) * RND + 1)ãNEXTããREM ******************************************************* PALETTE INITã' THIS ROUTINE WAS MADE BY PHOBIA 1996!!!ããFOR a% = 0 TO 63 ' Change the palette, colors 0-48ã pal a% / 4, a%, 0, 0ã pal a% / 4 + 16, 63, a%, 0ã pal a% / 4 + 32, 63, 63, a%ãNEXTãpal 49, 63, 63, 0ããREM *********************************************** LINE PLOTTING ROUTINEããDOãã' DISPLAY ROUTINEããFOR j = 1 TO vnãLINE (xvp1(j), yvp1(j))-(xvp2(j), yvp2(j)), 49ãNEXTãã' UPDATE ROUTINEããFOR j = 1 TO vnãIF xvf1(j) = 0 THEN xvp1(j) = xvp1(j) - 1ãIF xvf1(j) = 1 THEN xvp1(j) = xvp1(j) + 1ãIF xvp1(j) < 0 THEN xvp1(j) = 0: xvf1(j) = 1ãIF xvp1(j) > xdim THEN xvp1(j) = xdim: xvf1(j) = 0ãIF yvf1(j) = 0 THEN yvp1(j) = yvp1(j) - 1ãIF yvf1(j) = 1 THEN yvp1(j) = yvp1(j) + 1ãIF yvp1(j) < 0 THEN yvp1(j) = 0: yvf1(j) = 1ãIF yvp1(j) > ydim THEN yvp1(j) = ydim: yvf1(j) = 0ãIF xvf2(j) = 0 THEN xvp2(j) = xvp2(j) - 1ãIF xvf2(j) = 1 THEN xvp2(j) = xvp2(j) + 1ãIF xvp2(j) < 0 THEN xvp2(j) = 0: xvf2(j) = 1ãIF xvp2(j) > xdim THEN xvp2(j) = xdim: xvf2(j) = 0ãIF yvf2(j) = 0 THEN yvp2(j) = yvp2(j) - 1ãIF yvf2(j) = 1 THEN yvp2(j) = yvp2(j) + 1ãIF yvp2(j) < 0 THEN yvp2(j) = 0: yvf2(j) = 1ãIF yvp2(j) > ydim THEN yvp2(j) = ydim: yvf2(j) = 0ãNEXTããREM ************************************************************** FIRE !!!ããFOR yp = 0 TO ydimãFOR xp = 0 TO xdimããcol = POINT(xp, yp)ãcol = col + POINT(xp - 1, yp)ãã' ************** BLACK and WHITE JUMP ROUTINE ****************ãIF col = 0 THEN GOTO fastout: ' BLACK JUMPãIF col >= 72 THEN col = (col - (col / 3)) / 2: GOTO fastout2: ' WHITE JUMPã' ************************************************************ããcol = col + POINT(xp, yp - 1)ãcol = col + POINT(xp, yp + 1)ãcol = col + POINT(xp + 1, yp)ãcol = INT(col / 5 - b)ã'IF col < 0 THEN col = 0ã'IF col > 48 THEN col = 48ããfastout2:ãPSET (xp, yp), col + (RND * rd)ãfastout:ããNEXTãNEXTãLOOPããSUB pal (c%, r%, g%, b%)ãOUT &H3C7, c%ãOUT &H3C9, r%ãOUT &H3C9, g%ãOUT &H3C9, b%ãEND SUBããAngelo Ken Pesce ENHANCED FIRE EFFECT V3.0 ken@uniserv.uniplan.it 01-15-97 (01:00) QB, QBasic, PDS 137 3692 APS30.BAS ' FOR BETTER RESULTS COMPILE IT WITH ALTERNATE MATH PDS' 7 OPTIONããDECLARE SUB pal (c%, r%, g%, b%)ãREM ******************************************************* CONFIGããDEFINT A-Zãã'********************************************************** initialize varsããCLSãRANDOMIZE (TIMER)ããPRINT "ANGELO KEN PESCE 1996 - PHOBIA 1996 (pallette routine)"ãPRINT "QuickBasic Fire Demo v3"ãPRINT "--------------------------"ãPRINT "Features:"ãPRINTãPRINT "Three Pixel Interpolation (3+1) v2"ãPRINT "Improved Black Jump v2"ãPRINT "--------------------------"ãPRINT "SET VARIABLES: (press enter for defaults) "ãPRINTãPRINTãINPUT "X DIM (100-320)"; xdimãIF xdim > 320 THEN xdim = 320ãIF xdim < 100 THEN xdim = 100ãINPUT "Y DIM (100-200)"; ydimãIF ydim > 200 THEN ydim = 200ãIF ydim < 100 THEN ydim = 100ã1 INPUT "X SPEED (0-3) (not working propely yet)"; xvelãIF xvel > 3 OR xvel < 0 THEN PRINT "MINIMUM VEL 0, MAXIMUM VEL 3": GOTO 1ã2 INPUT "Y SPEED (0-3) (not working propely yet)"; yvelãIF yvel > 3 OR yvel < 0 THEN PRINT "MINIMUM VEL 0, MAXIMUM VEL 3": GOTO 2ãINPUT "C Speed (0.1-1)"; bãIF b > 1 THEN b = 1ãIF b < .1 THEN b = .1ãINPUT "Lines (1-15)"; vnãIF vn > 15 THEN vn = 15ãIF vn < 1 THEN vn = 1ããSCREEN 13ãã'********************************************************** Init. ArraysããDIM xvp1(vn)ãDIM xvp2(vn)ãDIM yvp1(vn)ãDIM yvp2(vn)ãDIM xvf1(vn)ãDIM xvf2(vn)ãDIM yvf1(vn)ãDIM yvf2(vn)ããFOR j = 1 TO vnãxvp1(j) = INT((xdim + 1) * RND + 1)ãxvp2(j) = INT((xdim + 1) * RND + 1)ãyvp1(j) = INT((ydim + 1) * RND + 1)ãyvp2(j) = INT((ydim + 1) * RND + 1)ãNEXTããREM ******************************************************* PALETTE INITã' THIS ROUTINE WAS MADE BY PHOBIA 1996!!!ããFOR a% = 0 TO 63 ' Change the palette, colors 0-48ã pal a% / 4, a%, 0, 0ã pal a% / 4 + 16, 63, a%, 0ã pal a% / 4 + 32, 63, 63, a%ãNEXTããREM *********************************************** LINE PLOTTING ROUTINEããDOãã' DISPLAY ROUTINEããFOR j = 1 TO vnãLINE (xvp1(j), yvp1(j))-(xvp2(j), yvp2(j)), 48ãNEXTãã' UPDATE ROUTINEããFOR j = 1 TO vnãã IF xvf1(j) = 0 THEN xvp1(j) = xvp1(j) - 2ã IF xvf1(j) = 1 THEN xvp1(j) = xvp1(j) + 2ã IF xvp1(j) < 0 THEN xvp1(j) = 0: xvf1(j) = 1ã IF xvp1(j) > xdim THEN xvp1(j) = xdim: xvf1(j) = 0ã IF yvf1(j) = 0 THEN yvp1(j) = yvp1(j) - 2ã IF yvf1(j) = 1 THEN yvp1(j) = yvp1(j) + 2ã IF yvp1(j) < 0 THEN yvp1(j) = 0: yvf1(j) = 1ã IF yvp1(j) > ydim THEN yvp1(j) = ydim: yvf1(j) = 0ã IF xvf2(j) = 0 THEN xvp2(j) = xvp2(j) - 2ã IF xvf2(j) = 1 THEN xvp2(j) = xvp2(j) + 2ã IF xvp2(j) < 0 THEN xvp2(j) = 0: xvf2(j) = 1ã IF xvp2(j) > xdim THEN xvp2(j) = xdim: xvf2(j) = 0ã IF yvf2(j) = 0 THEN yvp2(j) = yvp2(j) - 2ã IF yvf2(j) = 1 THEN yvp2(j) = yvp2(j) + 2ã IF yvp2(j) < 0 THEN yvp2(j) = 0: yvf2(j) = 1ã IF yvp2(j) > ydim THEN yvp2(j) = ydim: yvf2(j) = 0ããNEXTããREM ************************************************************** FIRE !!!ããCONST xstart = 0, ystart = 0ãxend = xdimãyend = ydimãCONST cmax = 48ãFOR yp = ystart TO yendãFOR xp = xstart TO xendããcol = POINT(xp + 1, yp)ãcol = col + POINT(xp - 1, yp)ã' ************** BLACK and WHITE JUMP ROUTINE ****************ãIF col = 0 THEN GOTO fastoutã'IF col >= 72 THEN col = (col + 72) / 4: GOTO fastout2ã' ************************************************************ããcol = col + POINT(xp, yp + 1)ãcol = col + POINT(xp, yp - 1)ãcol = INT(col / 4 - b)ãIF col < 0 THEN col = 0ãIF col > cmax THEN col = cmaxãfastout2:ãPSET (xp - xvel, yp - yvel), colãfastout:ãNEXTãNEXTãLOOPããSUB pal (c%, r%, g%, b%)ãOUT &H3C7, c%ãOUT &H3C9, r%ãOUT &H3C9, g%ãOUT &H3C9, b%ãEND SUBããUncle Shackles SIN/COS PLASMA shadebob@algonet.se 01-15-97 (17:54) QB, QBasic, PDS 107 2485 PLASMA.BAS ' *********************************************************ã' * Some sort of SIN/COS plasma by Uncle Shackles in 1997 *ã' *********************************************************ãã' Note! You will need a Pentium to get this run fast... For best performance,ã' compile to an EXE file and run in DOS mode, skip AUTOEXEC.BAT andã' CONFIG.SYS!ãã' Want to contact me? Send an e-mail to !ããDEFINT A-Zãh:ãINPUT "Size (1 - 100, ENTER = 50): ", sizeãIF size = 0 THEN size = 50ãIF size < 1 THEN PRINT "Too small!": GOTO hãIF size > 100 THEN PRINT "Too big!": GOTO hãSCREEN 13ãDEF SEG = &HA000ãOUT &H3D4, 9ãOUT &H3D5, 3ããpi = 3.141592653589793#ãDIM v1 AS SINGLE, v2 AS SINGLE, v3 AS SINGLEãv2 = 170: v3 = 260ãDIM rot(size ^ 2)ããFOR y = 0 TO size - 1ãFOR x = 0 TO size - 1ãrot(x + (y * (size))) = SQR((x ^ 2) + (y ^ 2))ãNEXT xãNEXT yããDIM r(256), g(256), b(256)ãFOR x = 0 TO 63ãOUT &H3C9, x: r(x) = xãOUT &H3C9, 0ãOUT &H3C9, 0ãNEXT xããFOR x = 0 TO 63ãOUT &H3C9, 63: r(x + 64) = 63ãOUT &H3C9, 0ãOUT &H3C9, x: b(x + 64) = xãNEXT xããFOR x = 0 TO 63ãOUT &H3C9, 63 - x: r(x + 128) = 63 - xãOUT &H3C9, x: g(x + 128) = xãOUT &H3C9, 63: b(x + 128) = 63ãNEXT xããFOR x = 0 TO 63ãOUT &H3C9, 0ãOUT &H3C9, 63 - x: g(x + 192) = 63 - xãOUT &H3C9, 63 - x: b(x + 192) = 63 - xãNEXT xãDIM val4 AS SINGLEãDIM grad2rad AS SINGLEãgrad2rad = pi / 180ãDIM h AS SINGLE, add2 AS SINGLE, val1 AS SINGLE, val2 AS SINGLE, add9 AS SINGLE, gr AS SINGLEãh = 100 / 1.2ãPALETTE 255, ((256 ^ 2) * 63) + (256 * 63) + 63ãLOCATE 11, 19: COLOR 255: PRINT "Code by Uncle Shackles"ãg: ãFOR y = 0 TO size - 1ãFOR x = 0 TO size - 1ãadd3 = add2 * xãadd4 = add9 * yãval1 = grad2rad * (add3 + (x * (rot(x + (y * (size))) / 20) + add5))ãxx = (SIN(val1) * 100) + 128ãval2 = grad2rad * (add4 + (y * (rot(x + (y * (size))) / 20) + add6))ãyy = (COS(val2) * h) + 128ãz = (xx + yy) / 2ããPSET (x * 2, y), z: PSET (x * 2 + 1, y), zãNEXT xãNEXT yãadd5 = add5 + 3ãadd6 = add6 + 2ãgr = gr + 1ãadd2 = (SIN(grad2rad * gr) * 4) - 4ãadd9 = (COS(grad2rad * gr) * 5) - 4ãIF INKEY$ <> "" THEN ENDãFOR x = 0 TO 5ãGOSUB rotpalãNEXT xãFOR x = 2 TO 249ãOUT &H3C7, xãOUT &H3C9, r(x)ãOUT &H3C9, g(x)ãOUT &H3C9, b(x)ãNEXTãGOTO gããrotpal:ãtr = r(0)ãtg = g(0)ãtb = b(0)ãFOR x = 1 TO 255ãr(x - 1) = r(x)ãg(x - 1) = g(x)ãb(x - 1) = b(x)ãNEXT xãr(255) = trãg(255) = tgãb(255) = tbãRETURNãRyan White BOX OF COLOR MORPH bigfooty@bellsouth.net 01-19-97 (15:30) QB, QBasic, PDS 52 2634 BOCMORPH.BAS'BOCmorphã'Box Of Color morph.... um... n/mãã'Due to everyone wanting me to make more of my stuff, I though, NO problem.ã'I stopped programming cause I have no time anymore, but I will still putã'out a few a every once in a while. This one was thought up while I wasã'sitting in ITT Tech. Hope ya like.ã'And to contact me, my new email is: bigfooty@bellsouth.netããSCREEN 13ãDEFINT A-WãDIM c(255, 2), co(255, 2)ãminx = 0: maxx = 319: miny = 0: maxy = 199: c = 1ããFOR n = 0 TO 15ãc(n, 0) = n * 4: c(n, 1) = n * 4: c(n, 2) = n * 4: c(n + 16, 0) = 63: c(n + 16, 1) = 63 - n * 4: c(n + 16, 2) = 63 - n * 4: c(n + 32, 0) = 63: c(n + 32, 1) = n * 2: c(n + 32, 2) = 0ãc(n + 48, 0) = 63: c(n + 48, 1) = n * 2 + 31: c(n + 48, 2) = 0: c(n + 64, 0) = 63 - n * 4: c(n + 64, 1) = 63: c(n + 64, 2) = 0: c(n + 80, 0) = 0: c(n + 80, 1) = 63 - n * 2: c(n + 80, 2) = n * 4ãc(n + 96, 0) = 0: c(n + 96, 1) = 32 - n * 2: c(n + 96, 2) = 60: c(n + 112, 0) = n * 3: c(n + 112, 1) = 0: c(n + 112, 2) = 60: c(n + 128, 0) = 45 - n * 3: c(n + 128, 1) = 0: c(n + 128, 2) = 60ãc(n + 144, 0) = 0: c(n + 144, 1) = n * 2: c(n + 144, 2) = 60: c(n + 160, 0) = 0: c(n + 160, 1) = 30 + n * 2: c(n + 160, 2) = 60 - n * 4: c(n + 176, 0) = n * 4: c(n + 176, 1) = 63: c(n + 176, 2) = 0ãc(n + 192, 0) = 63: c(n + 192, 1) = 60 - n * 2: c(n + 192, 2) = 0: c(n + 208, 0) = 63: c(n + 208, 1) = 30 - n * 2: c(n + 208, 2) = 0: c(n + 224, 0) = 60 - n * 2: c(n + 224, 1) = n * 2: c(n + 224, 2) = n * 2ãc(n + 240, 0) = 30 - n * 2: c(n + 240, 1) = 30 - n * 2: c(n + 240, 2) = 30 - n * 2: NEXT n: FOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT m: NEXT nãããst:ãFOR x = minx TO maxxãPSET (x, miny), cãc = c + 1: IF c = 256 THEN c = 1ãNEXT xãFOR y = miny TO maxyãPSET (maxx, y), cãc = c + 1: IF c = 256 THEN c = 1ãNEXT yãFOR x = maxx TO minx STEP -1ãPSET (x, maxy), cãc = c + 1: IF c = 256 THEN c = 1ãNEXT xãFOR y = maxy TO miny STEP -1ãPSET (minx, y), cãc = c + 1: IF c = 256 THEN c = 1ãNEXT yãminx = minx + 1: IF minx >= 160 THEN minx = 160: ccc1 = 1ãmaxx = maxx - 1: IF maxx <= 159 THEN maxx = 160: ccc2 = 1ãminy = miny + 1: IF miny >= 100 THEN miny = 100: ccc3 = 1ãmaxy = maxy - 1: IF maxy <= 99 THEN maxy = 100: ccc4 = 1ãIF ccc1 + ccc2 + ccc3 + ccc4 <> 4 THEN GOTO stããDO UNTIL INKEY$ <> ""ãFOR n = 1 TO 255: OUT &H3C7, n: FOR m = 0 TO 2: co(n, m) = INP(&H3C9): NEXT m: NEXT nãc(255, 0) = co(1, 0): c(255, 1) = co(1, 1): c(255, 2) = co(1, 2)ãFOR n = 1 TO 254: FOR m = 0 TO 2: c(n, m) = co(n + 1, m): NEXT m: NEXT nãFOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT m: NEXT nãLOOPãNick Kochakian MYSTERY SPEW #2: EXPLOSIONS NickK@worldnet.att.net 01-20-97 (16:40) QB, QBasic, PDS 149 3818 MYSTSPEW.BAS'----------------------------------------------------------------------------ã'Program name: Mystery Spew #2 - Explosionsã'ã'Date made: 1/20/97, 1997ã'ã'Author: - Nick Kochakian -ã'ã'Changes:ã'- If you put some text / graphics on the screen the dots will bounce offã' of it. (But, that dosen't work too well...)ã'- Dots bounce off each otherã'ã'If you want to use this program in any of your programs please mentionã'my name somewhere to give me credit for making it!ã'ã'If you have any comments or questions please E-mail me at:ã'ã'nickK@worldnet.att.netã'ã'Thanks! :)ã'----------------------------------------------------------------------------ãã'DEFINT A-Z 'Un-comment this to have more dots on high res. modes or low res.ããRANDOMIZE TIMERãMODE = 13ã'Low res.:ã'1 - Cgaã'7 - Egaã'13 - Vgaã'ã'High res.:ã'9 - Egaã'12 - VgaããSCREEN MODEããLOCATE 6, 5: PRINT "Mystery Spew!"ãLOCATE 7, 5: PRINT "1997 By: - Nick Kochakian -"ãLOCATE 8, 5: PRINT "The text is about to be eaten"ããCOLOR$ = "Y"ã 'Y - is completely random colorã 'N - is no colorã 'B - is bright. Bright colors onlyã 'G - is the grey scaleã 'What to use COLOR$ in other screen modes:ã 'CGA - is the CGA color paletteã 'EGA - is the EGA color paletteããSPEWS = 100 'Number of dots to spewãXS = SPEWS 'X locationãYS = SPEWS 'Y locationãDS = SPEWS 'DirectionãCS = SPEWSããDIM X(XS)ãDIM Y(YS)ãDIM D(DS)ãDIM C(CS)ããXS = 1ãYS = 1ãDS = 1ãCS = 1ããFOR I = 1 TO SPEWSãD(DS) = INT(RND * 9) + 1ãX(XS) = 150ãY(YS) = 100ãC(CS) = INT(RND * 256) + 1ãIF MODE = 9 THENãX(XS) = 320ãY(YS) = 200ãEND IFãIF MODE = 12 THENãX(XS) = 320ãY(YS) = 220ãEND IFãIF UCASE$(COLOR$) = "EGA" THEN C(CS) = INT(RND * 15) + 1ãIF UCASE$(COLOR$) = "CGA" THEN C(CS) = INT(RND * 4) + 1ãIF UCASE$(COLOR$) = "G" THEN C(CS) = INT(RND * 30) + 1: IF C(CS) < 16 THEN C(CS) = 16ãIF UCASE$(COLOR$) = "B" AND C(CS) > 165 THEN C(CS) = 165ãIF UCASE$(COLOR$) = "N" THEN C(CS) = 15ãDS = DS + 1ãXS = XS + 1ãYS = YS + 1ãCS = CS + 1ãNEXT IããDS = 1ãXS = 1ãYS = 1ãCS = 1ãã'Main loopãDOãPSET (X(XS), Y(YS)), 0ãIF D(DS) = 1 THEN X(XS) = X(XS) - 1ãIF D(DS) = 2 THEN Y(YS) = Y(YS) + 1: X(XS) = X(XS) + 1ãIF D(DS) = 3 THEN X(XS) = X(XS) + 1ãIF D(DS) = 4 THEN Y(YS) = Y(YS) - 1ãIF D(DS) = 5 THEN Y(YS) = Y(YS) - 1: X(XS) = X(XS) - 1ãIF D(DS) = 6 THEN Y(YS) = Y(YS) + 1: X(XS) = X(XS) - 1ãIF D(DS) = 7 THEN Y(YS) = Y(YS) - 1: X(XS) = X(XS) + 1ãIF D(DS) = 8 THEN Y(YS) = Y(YS) + 1ãIF POINT(X(XS), Y(YS) + 1) <> 0 THEN GOSUB RERAND:ããPSET (X(XS), Y(YS)), C(CS)ãIF MODE = 1 OR MODE = 7 OR MODE = 13 THENãIF X(XS) < 1 THEN PSET (X(XS), Y(YS)), 0: GOSUB RERAND:ãIF Y(YS) > 200 THEN PSET (X(XS), Y(YS)), 0: GOSUB RERAND:ãIF X(XS) > 300 THEN PSET (X(XS), Y(YS)), 0: GOSUB RERAND:ãIF Y(YS) < 1 THEN PSET (X(XS), Y(YS)), 0: GOSUB RERAND:ãEND IFããIF MODE = 9 THENãIF X(XS) < 1 THEN PSET (X(XS), Y(YS)), 0: GOSUB RERAND:ãIF Y(YS) > 320 THEN PSET (X(XS), Y(YS)), 0: GOSUB RERAND:ãIF X(XS) > 640 THEN PSET (X(XS), Y(YS)), 0: GOSUB RERAND:ãIF Y(YS) < 1 THEN PSET (X(XS), Y(YS)), 0: GOSUB RERAND:ãEND IFããIF MODE = 12 THENãIF X(XS) < 1 THEN PSET (X(XS), Y(YS)), 0: GOSUB RERAND:ãIF Y(YS) > 470 THEN PSET (X(XS), Y(YS)), 0: GOSUB RERAND:ãIF X(XS) > 630 THEN PSET (X(XS), Y(YS)), 0: GOSUB RERAND:ãIF Y(YS) < 1 THEN PSET (X(XS), Y(YS)), 0: GOSUB RERAND:ãEND IFã'640x350 screen 9ãDS = DS + 1ãXS = XS + 1ãYS = YS + 1ãCS = CS + 1ã'Here's something fun to do:ã'1 -> Set DS to zero - 100ã'2 -> Set DS and XS to zero - fourã'3 -> Set DS and YS to zero - fourãIF DS > SPEWS THEN DS = 1ãIF XS > SPEWS THEN XS = 1ãIF YS > SPEWS THEN YS = 1ãIF CS > SPEWS THEN CS = 1ãLOOP UNTIL INKEY$ <> ""ãENDããRERAND:ãD(DS) = INT(RND * 9) + 1ãRETURNããMatt Bross WORMHOLE & SPRITE ANIMATION oh_brother@geocities.com 01-21-97 (20:20) QB, QBasic, PDS 328 8175 WORMHOLE.BASDEFINT A-ZãDECLARE SUB info ()ãDECLARE SUB ReadPal ()ãDECLARE SUB MeltSub ()ãDECLARE SUB Spin (rot!)ãDECLARE SUB Table ()ãDECLARE SUB RotPal ()ãDECLARE SUB GetKey ()ãDECLARE SUB SprSub ()ãDECLARE SUB Fire ()ãDECLARE SUB SetScr ()ãDECLARE SUB DrawHole ()ãDECLARE SUB PPSET (x%, y%, c1%)ãDECLARE SUB SetPal (c2%, Red%, Green%, Blue%)ãCOMMON SHARED UserFireInput, x, y, mx, my, c1, c2ãCOMMON SHARED Red, Green, BlueãCOMMON SHARED RedChange, GreenChange, BlueChangeãCOMMON SHARED ReStart, Done, melt, Ani, UseFire, SprRot, k$, dirãCOMMON SHARED imsx, imsy, ix, iy, cx, cy, rot!ãCOMMON SHARED MeltAmountããCONST TRUE = -1: FALSE = NOT TRUEããimsx = 20: imsy = 20 'variables for sprite rotationãcx = imsx / 2: cy = imsy / 2ãix = 160: iy = 200 - imsxããMeltAmount = 100 'How much to meltãã'dim spritesãDIM SHARED Spr(222) 'little circle thingãDIM SHARED SprMask(222) 'its maskãDIM SHARED SprBkg(222) 'its backgroundãDIM SHARED FireBkg(222) 'fires backgroundãDIM SHARED image(imsx, imsy) 'spinning thingãDIM SHARED melt(2) 'melt routineããDIM SHARED OldRed(255) 'arrays to save old paletteãDIM SHARED OldBlue(255)ãDIM SHARED OldGreen(255)ããinfoããSCREEN 13: CLS : RANDOMIZE TIMERããUserFireInput = 5 'controls the speed that the fire changesã 'the greater the slower the fire changesãReadPal 'Save old paletteããSetScr 'gets sprites draws screenããRed = 0: Green = 0: Blue = 0ãFOR c = 90 TO 76 STEP -1 'set fire paletteã Red = Red + 3ã SetPal c, Red, 0, 0ãNEXTããRed = 0: Green = 20: Blue = 0ãFOR c = 75 TO 64 STEP -1 'set palette for sprite animationã Green = Green + 2ã SetPal c, Red, Green, BlueãNEXTããRed = 30: Green = 0: Blue = 63 - imsx * 2ãFOR c = 92 TO 92 + imsy 'set palette for sprite rotationã Red = Redã Green = Greenã Blue = Blue + 2ã SetPal c, Red, Green, BlueãNEXTããSetPal 91, 63, 63, 63 'set palette for lettersããDEF SEG = &HA000 'define the segment for ppset routineãstart:ãRedChange = INT(RND * 2) 'controls redãGreenChange = INT(RND * 2) 'controls greenãBlueChange = INT(RND * 2) 'controls blueãIF RedChange = 0 AND GreenChange = 0 AND BlueChange = 0 THEN GOTO startã 'make sure the palette isn't all blackãdir = -dir 'controls the direction of the palette rotateãããDOããIF UseFire = TRUE THEN Fire 'calls Fire routineã ãIF Ani = TRUE THEN SprSub 'calls Sprite Animation routine (sort of slow)ããRotPal 'calls Palette Rotate routine for WormHole EffectããIF SprRot = TRUE THENã Spin ra! 'calls Sprite Rotation routine (very slow)ã ra! = ra! + .1ãEND IFããGetKey 'it does what it saysããIF ReStart = TRUE THEN ReStart = FALSE: GOTO startãIF Done = TRUE THEN Done = FALSE: GOTO finishãIF melt = TRUE THEN MeltSub 'melts the background (this sub is not mine andã 'I found it somewhere and I don't know whoseã 'it is, but it looks cool here. So thanks toã 'whoever wrote it.ãLOOPãfinish:ããFOR c = 0 TO 255 'restores old paletteãSetPal c, OldRed(c), OldGreen(c), OldBlue(c)ãNEXTããDEF SEGãSCREEN 0, 0, 0, 0ãWIDTH 80, 25ãENDããSUB DrawHoleãCLSãx = 160ãdir = 1ãFOR s = 0 TO 450ã y = -(SQR(s) * 10) + 200ã IF c >= 62 THEN c = 0 ELSE c = c + 1ã CIRCLE (x, y), s, c + 1, , , 1 / 2ã CIRCLE (x, y + 1), s, c + 1, , , 1 / 2ã CIRCLE (x, y + 2), s, c + 1, , , 1 / 2ãNEXTãEND SUBããSUB Fire STATICããIF first = 0 THENããfirst = 1ããCIRCLE (160, 100), 10, 76, 3.1, 6.25ãGET (150, 90)-(170, 110), FireBkgããELSEããFireDelay = FireDelay + 1ãIF FireDelay MOD UserFireInput = 0 THEN FireDelay = 0ãIF FireDelay = 0 THENãPUT (150, 90), FireBkg, PSETã FOR fy = 110 TO 90 STEP -1ã FOR fx = 170 TO 150 STEP -1ãã p1 = POINT(fx, fy)ã IF p1 > 75 AND p1 < 84 THENã o = INT(RND * 5)ã p2 = POINT(fx, fy - 1)ã IF p2 < 64 THEN PPSET fx, fy - 1, p1 + oã END IFã NEXTã NEXTãEND IFããEND IFãEND SUBããSUB GetKeyãk$ = INKEY$ãIF k$ = "4" THEN mx = mx - 1ãIF k$ = "6" THEN mx = mx + 1ãIF k$ = "2" THEN my = my + 1ãIF k$ = "8" THEN my = my - 1ãIF k$ = " " THEN ReStart = TRUEãIF UCASE$(k$) = "Q" THEN Done = TRUEãIF UCASE$(k$) = "M" THENã IF melt = FALSE THEN melt = TRUE: EXIT SUBã IF melt = TRUE THEN melt = FALSEãEND IFãIF UCASE$(k$) = "F" THENã IF UseFire = FALSE THEN UseFire = TRUE: EXIT SUBã IF UseFire = TRUE THEN UseFire = FALSEãEND IFãIF UCASE$(k$) = "S" THENã IF Ani = FALSE THEN Ani = TRUE: EXIT SUBã IF Ani = TRUE THEN Ani = FALSEãEND IFãIF UCASE$(k$) = "R" THENã IF SprRot = FALSE THEN SprRot = TRUE: EXIT SUBã IF SprRot = TRUE THEN SprRot = FALSEãEND IFãEND SUBããSUB infoãCLSãPRINT "Hole.bas by Matt Bross"ãPRINT "Homepage-->http://www.geocities.com/SoHo/7067/"ãPRINT "Email----->oh_bother@geocities.com"ãPRINT ""ãPRINT "Use as you like as long as I am given some credit"ãPRINT ""ãPRINT "I know that the wormhole effect is very like the one by Lucifer Productions"ãPRINT "But I swear not a line of code was stolen"ãPRINT ""ãPRINT "controls"ãPRINT "--------"ãPRINT "space bar-change hole color/direction"ãPRINT "S/s-starts/stops flicker-free screen 13 sprite animation"ãPRINT "R/r-starts/stops sprite rotation"ãPRINT "M/m-starts/stops melting routine"ãPRINT "F/f-starts/stops fire routine"ãPRINT "Num Pad controls sprite in Sprite animation"ãPRINT "Make sure your NUM LOCK is on"ãPRINT "Q/q-quits"ãDO: LOOP UNTIL INKEY$ <> ""ãEND SUBããSUB MeltSubãFOR t = 0 TO MeltAmountãMeltX = INT(RND * 318)ãMeltY = INT(RND * 199)ããGET (MeltX, MeltY)-(MeltX + 1, MeltY), meltãPUT (MeltX, MeltY + 1), melt, PSETãNEXTãEND SUBããSUB PPSET (x, y, c)ãPOKE y * 320& + x, cãEND SUBããSUB ReadPalãFOR c = 0 TO 255ãOUT &H3C7, cãOldRed(c) = INP(&H3C9)ãOldGreen(c) = INP(&H3C9)ãOldBlue = (c) = INP(&H3C9)ãNEXTãEND SUBããSUB RotPal STATICãIF dir = -1 THEN a = 1: b = 64: s = 1ãIF dir = 1 THEN a = 64: b = 1: s = -1ã FOR i = a TO b STEP sã SetPal i, Red, Green, Blueã Red = Red + RedChangeã Green = Green + GreenChangeã Blue = Blue + BlueChangeã IF Red >= 63 THEN Red = 0ã IF Green >= 63 THEN Green = 0ã IF Blue >= 63 THEN Blue = 0ã NEXTãEND SUBããSUB SetPal (c, Red, Green, Blue)ã OUT &H3C8, cã OUT &H3C9, Redã OUT &H3C9, Greenã OUT &H3C9, BlueãEND SUBããSUB SetScrããCLSãFOR a = 0 TO imsxãLINE (0, a)-(imsx, a), a + 92ãNEXTãLINE (0, 0)-(imsx, imsy), 0, BããFOR sy = 0 TO imsyãFOR sx = 0 TO imsxãimage(sx, sy) = POINT(sx, sy)ãNEXT: NEXTããCLSãLINE (20, 0)-(40, 20), 255, BFãCIRCLE (30, 10), 10, 0: PAINT (30, 10), 0ãGET (20, 0)-(40, 20), SprMaskããCLSãFOR r = 10 TO 0 STEP -1ãCIRCLE (10, 10), r, r + 65: PAINT (10, 10), r + 65ãNEXTãGET (0, 0)-(20, 20), SprããDrawHoleããx = 0: y = 0ãGET (x, y)-(x + 20, y + 20), SprBkgãEND SUBããSUB Spin (rot!)ããhalf! = 135.085ãFOR sy = 0 TO imsyãFOR sx = 0 TO imsxã a = sy - cyã b = sx - cxã dis! = SQR((sx - cx) ^ 2 + (sy - cy) ^ 2)ã IF b = 0 THENã an! = rot! + half! / 2ã IF sy <= cy THEN an! = an! + half!ã PPSET CINT(ix + (SIN(an!) * dis!)), CINT(iy + (COS(an!) * dis!)), image(sx, sy)ã ELSEã an! = ATN(a / b)ã an! = an! + rot!ã IF sx >= cx THEN an! = an! + half!ã PPSET CINT(ix + SIN(an!) * dis!), CINT(iy + COS(an!) * dis!), image(sx, sy)ã END IFãNEXTãNEXTãEND SUBããSUB SprSub STATICããIF x < 0 THEN x = 0ãIF y < 0 THEN y = 0ãIF x > 299 THEN x = 299ãIF y > 179 THEN y = 179ããWAIT &H3DA, 8ãPUT (x, y), SprBkg, PSETã x = x + mxã y = y + myã IF x < 0 THEN x = 0ã IF y < 0 THEN y = 0ã IF x > 299 THEN x = 299ã IF y > 179 THEN y = 179ã GET (x, y)-(x + 20, y + 20), SprBkgãPUT (x, y), SprMask, ANDãPUT (x, y), Spr, ORããGetKeyããEND SUBãDave Shea SPRITE MASKING FidoNet QUIK_BAS Echo 01-19-97 (14:29) QB, QBasic, PDS 60 2206 SPRIMASK.BAS' >can anybody help me figure out how to make a sprite moveã' >around on the background with out blotting out a squareã' >behind my figure. I am also curious about HEX routines inã' >QB, if anyone could help better understand either of theseã' >it would be nice.ãã'I'll take the first question for now. You have to use a process calledã'"Masking". This basically picks a color that you aren't going to show inã'your picture, and uses it as a background. Rather than describe theã'whole thing, I'll just do it. Try this out.ãã' =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ã' MASK.BAS by Dave Sheaã' Released to Public Domain on January 19th, 1997.ã'ã' Compile: MicroSoft Quick Basic 4.5, PDS 7.1ã'ã' Desc: Demonstrates the technique of masking a graphics array.ã'ã' (Use at your own risk)ã' =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ããCLS : SCREEN 13ãDIM Circ%(1557), MCirc%(1557)ããTCol = 0 'Color to be transparentã '(I ALWAYS use 0)ãMCol = 255 'Mask colorããFOR a = 15 TO 1 STEP -1ã CIRCLE (160, 100), a * 2, a 'Draw the circleã PAINT (160, 100), aãNEXTããGET (130, 75)-(190, 125), Circ% 'Store it in array Circ%ããFOR a = 130 TO 190ã FOR b = 75 TO 125ã 'The following commands search the circle, andã 'change any pixel that's NOT the transparentã 'color to the transparent color, and any pixelã 'that IS the transparent color to the mask colorã '(This is the masking process)ãã IF POINT(a, b) = TCol THEN PSET (a, b), MColã IF POINT(a, b) <> TCol AND POINT(a, b) <> MCol THEN PSET (a, b), TColã NEXTãNEXTããGET (130, 75)-(190, 125), MCirc% 'Get the new Masked CircleããCLSããFOR a = 1 TO 200ã LINE (1, a)-(320, a), a 'Draw some lines for a backgroundãNEXTããPUT (130, 75), MCirc%, AND 'Lay down the mask using ANDãPUT (130, 75), Circ%, XOR 'Lay down circle using XORã '(which is the default for PSET)ãNick Kochakian PIXEL LOADER/SAVER NickK@worldnet.att.net 01-19-97 (16:25) QB, QBasic, PDS 397 6122 PIX.BAS DECLARE SUB PIXLD (FILENAM$, TRANS$)ãDECLARE SUB PIXSAV (filnam$, wip$, yms%, xms%, yme%, xme%)ãã'Pix - Pixle Loader / Saverã'ã'1997 By: - Nick Kochakian -ã'ã'This isn't the fasest screen capture. It works best on drawing spritesã'for games. The loading is ALOT faster than the saving is... So you COULDã'save a screen for a game then load it. Do whatever...ã'ã'If you'd like to use any of these routines do so. But please give me someã'credit where it is needed the most!ã'ã'Thanks! :)ã'ã'If you have any questions or comments please E-mail me at:ã'ã'nickK@worldnet.att.netãã'This program will either...ã'1 - Start at a certain X,Y place and end at a certain X,Y placeã'2 - Save the entire screenããSCREEN 13ããRANDOMIZE TIMERãã'Put boxes / lines on the screenãcntr = 0ãDOãX = INT(RND * 300) + 1ãY = INT(RND * 200) + 1ãx2 = INT(RND * 200) + 1ãy2 = INT(RND * 300) + 1ãCOL = INT(RND * 256) + 1ãLINE (X, Y)-(x2, y2), COL, BãLINE (X, Y)-(x2, y2), COLãcntr = cntr + 1ãLOOP UNTIL cntr = 1000ãLOCATE 2, 2: PRINT "Pixle saver / loader"ãLOCATE 3, 2: PRINT "1997 By: - Nick Kochakian -"ããCALL PIXSAV("PIXLE.PIX", "Y", 0, 0, 30, 300) 'Rip some of the top of the screenãã'How to use PIXSAVã'filnam$ - is the file name you want to save your Pixle Picture toã'wip$ - is if you want to have the Pixle Pointer wipe out where its beenã'yms% - Starting location of Y. The defualt is 0ã'xms% - Starting location of X. The defualt is 0ã'yme% - Ending location of Y. The defualt is 200ã'xme% - Ending location of Y. The defualt is 300ã'Y is up/down placerã'X is left/right placerã'To set any of the things mentioned above to their defualt set their valueã'to zero.ããSLEEP 1ãCLSãCALL PIXLD("PIXLE.PIX", "N")ãSLEEP 1ãCLSãPAINT (0, 0), 1ãLOCATE 10, 1: PRINT "PIXLD with TRANS$ set to Y"ãCALL PIXLD("PIXLE.PIX", "Y")ãã'56 first maxã'3136 last maxã'7 per lineã'8 linesãã'How to use PIXLDã'FILENAM$ - is the file to load your Pixle Picture fromã'TRANS$ - makes the color zero invisible if TRANS$ is set to "Y"ãENDããDATA 0ãDATA 1ãDATA 2ãDATA 3ãDATA 4ãDATA 5ãDATA 6ãDATA 7ãDATA 8ãDATA 9ãDATA 10ãDATA 11ãDATA 12ãDATA 13ãDATA 14ãDATA 15ãDATA 16ãDATA 17ãDATA 18ãDATA 19ãDATA 20ãDATA 21ãDATA 22ãDATA 23ãDATA 24ãDATA 25ãDATA 26ãDATA 27ãDATA 28ãDATA 29ãDATA 30ãDATA 31ãDATA 32ãDATA 33ãDATA 34ãDATA 35ãDATA 36ãDATA 37ãDATA 38ãDATA 39ãDATA 40ãDATA 41ãDATA 42ãDATA 43ãDATA 44ãDATA 45ãDATA 46ãDATA 47ãDATA 48ãDATA 49ãDATA 50ãDATA 51ãDATA 52ãDATA 53ãDATA 54ãDATA 55ãDATA 56ãDATA 57ãDATA 58ãDATA 59ãDATA 60ãDATA 61ãDATA 62ãDATA 63ãDATA 64ãDATA 65ãDATA 66ãDATA 67ãDATA 68ãDATA 69ãDATA 70ãDATA 71ãDATA 72ãDATA 73ãDATA 74ãDATA 75ãDATA 76ãDATA 77ãDATA 78ãDATA 79ãDATA 80ãDATA 81ãDATA 82ãDATA 83ãDATA 84ãDATA 85ãDATA 86ãDATA 87ãDATA 88ãDATA 89ãDATA 90ãDATA 91ãDATA 92ãDATA 93ãDATA 94ãDATA 95ãDATA 96ãDATA 97ãDATA 98ãDATA 99ãDATA 100ãDATA 101ãDATA 102ãDATA 103ãDATA 104ãDATA 105ãDATA 106ãDATA 107ãDATA 108ãDATA 109ãDATA 110ãDATA 111ãDATA 112ãDATA 113ãDATA 114ãDATA 115ãDATA 116ãDATA 117ãDATA 118ãDATA 119ãDATA 120ãDATA 121ãDATA 122ãDATA 123ãDATA 124ãDATA 125ãDATA 126ãDATA 127ãDATA 128ãDATA 129ãDATA 130ãDATA 131ãDATA 132ãDATA 133ãDATA 134ãDATA 135ãDATA 136ãDATA 137ãDATA 138ãDATA 139ãDATA 140ãDATA 141ãDATA 142ãDATA 143ãDATA 144ãDATA 145ãDATA 146ãDATA 147ãDATA 148ãDATA 149ãDATA 150ãDATA 151ãDATA 152ãDATA 153ãDATA 154ãDATA 155ãDATA 156ãDATA 157ãDATA 158ãDATA 159ãDATA 160ãDATA 161ãDATA 162ãDATA 163ãDATA 164ãDATA 165ãDATA 166ãDATA 167ãDATA 168ãDATA 169ãDATA 170ãDATA 171ãDATA 172ãDATA 173ãDATA 174ãDATA 175ãDATA 176ãDATA 177ãDATA 178ãDATA 179ãDATA 180ãDATA 181ãDATA 182ãDATA 183ãDATA 184ãDATA 185ãDATA 186ãDATA 187ãDATA 188ãDATA 189ãDATA 190ãDATA 191ãDATA 192ãDATA 193ãDATA 194ãDATA 195ãDATA 196ãDATA 197ãDATA 198ãDATA 199ãDATA 200ãDATA 201ãDATA 202ãDATA 203ãDATA 204ãDATA 205ãDATA 206ãDATA 207ãDATA 208ãDATA 209ãDATA 210ãDATA 211ãDATA 212ãDATA 213ãDATA 214ãDATA 215ãDATA 216ãDATA 217ãDATA 218ãDATA 219ãDATA 220ãDATA 221ãDATA 222ãDATA 223ãDATA 224ãDATA 225ãDATA 226ãDATA 227ãDATA 228ãDATA 229ãDATA 230ãDATA 231ãDATA 232ãDATA 233ãDATA 234ãDATA 235ãDATA 236ãDATA 237ãDATA 238ãDATA 239ãDATA 240ãDATA 241ãDATA 242ãDATA 243ãDATA 244ãDATA 245ãDATA 246ãDATA 247ãDATA 248ãDATA 249ãDATA 250ãDATA 251ãDATA 252ãDATA 253ãDATA 254ãDATA 255ãDATA 256ããSUB PIXLD (FILENAM$, TRANS$)ãDEFINT A-Zã'This loads a saved Pixle fileããFREEFIL = FREEFILEãOPEN FILENAM$ FOR INPUT AS #FREEFILãCNTT = 0ãX = 0ãY = 0ãDOãINPUT #FREEFIL, COLãIF COL = 0 AND UCASE$(TRANS$) = "Y" THEN Y = Y + 1ãIF COL = -20 THEN Y = 0: X = X + 1ãIF COL = -30 THEN CLOSE #FREEFIL: EXIT SUBãIF UCASE$(TRANS$) = "Y" AND COL = 0 THEN TRANS$ = "Y" ELSE PSET (X, Y), COLãIF UCASE$(TRANS$) = "Y" AND COL = 0 THEN TRANS$ = "Y" ELSE Y = Y + 1ã'CNTT = CNTT + 1ãLOOPããããEND SUBããDEFSNG A-ZãSUB PIXSAV (filnam$, wip$, yms%, xms%, yme%, xme%)ãDEFINT A-Zã'$DYNAMICã'Saves the screen to a fileãfrefil = FREEFILEãOPEN filnam$ FOR OUTPUT AS #frefilãX = 0ãY = 0ãIF yms% <= 0 THEN Y = 0 ELSE Y = yms%ãIF xms% <= 0 THEN X = 0 ELSE X = xms%ãIF yme% <= 0 THEN ymax = 200 ELSE ymax = yme%ãIF xme% <= 0 THEN xmax = 300 ELSE xmax = xme%ãB$ = ""ãRESTOREãI = 256ãDIM A$(I)ãI = 0ãã'Read the color dataãFOR I = 0 TO 256ãREAD A$(I)ãNEXT IããI = 0ããDOãã'Get the color of the current point at X,Y and save the color to B$ãFOR I = 0 TO 256ãIF POINT(X, Y) = I THEN B$ = B$ + A$(I) + ","ãNEXT IãIF UCASE$(wip$) = "Y" THEN PSET (X, Y), 0ãIF Y > ymax THEN Y = 0: X = X + 1: PRINT #frefil, B$ + "-20": B$ = ""ãY = Y + 1ãLOOP UNTIL X > xmax OR INKEY$ = CHR$(32)ãPRINT #frefil, "-30"ãCLOSE #frefilããEND SUBãNathan Barkei DISPLAY ARRAYS TO MEMORY alt.lang.basic 01-07-97 (00:33) QB, QBasic, PDS 158 4306 VIDIMG.BAS 'From: preekout@aol.com (PreekOUT)ã'Newsgroups: alt.lang.basicã'Subject: Re: Sprite masking...ã'Date: 7 Jan 1997 00:33:11 GMTãã''ã'' Video Image Mungerã'' v1.0d4ã'' By Nathan Barkeiã'' Created 24L96ã''ãã''ã'' Purpose: Display arrays to memory by comparison of bitsã'' ã'' sprite name, offset, xpos, ypos, mode of placement, backcolorã''ã''ãããDEFINT A-ZãããSUB placegra (Sprite(), image, x, y, mode, tpc)ããã imagewidth = Sprite(image) / 8ã imageheight = Sprite(image + 1)ã WWIDTH = imagewidthãã''ã''CHECK IF OUTSIDE SCREEN WIDTHã''ãã wx = xã IF x < 0 THENã WWIDTH = imagewidth + xã wx = 0ã sourceofs = ABS(x)ã ELSEIF x + imagewidth > 320 THENã WWIDTH = 320 - xã END IFããã''ã'' ERROR 5 IS A GEN ERROR REDIF ALL ERROR 5 ARE INTERNAL VIDEO MUNGE ERRORSã''ãã IF WWIDTH < 0 THEN ERROR 5ãã wheight = imageheightã wy = yã IF y < 0 THENã wheight = imageheight + yã wy = 0ã sourceofs = sourceofs + (ABS(y) * imagewidth)ã ELSEIF y + imageheight > 200 THENã wheight = 200 - yã END IFãã IF wheight < 0 THEN ERROR 5ãã''ã'' MAKE NEW ARRAY FOR MUNGE DATAã''ãã elements = ((WWIDTH + 1) \ 2) * wheight + 1ã REDIM wimage(elements)ã GET (wx, wy)-(wx - 1 + WWIDTH, wy - 1 + wheight), wimageã wsegment = VARSEG(wimage(0))ã woffset = 4ã elmperimg = ((imagewidth + 1) \ 2) * imageheight + 2ã startelm = imageã sourceseg = VARSEG(Sprite(startelm))ã sourceofs = sourceofs + VARPTR(Sprite(startelm)) + 4ãã''ã''SELECT TYPE OF OPPERATIONã''ãã SELECT CASE modeã''ã''IN FRONT OF PIX NOT BIT 00ã''ã CASE 0ã FOR py = 1 TO wheightã FOR PX = 0 TO WWIDTH - 1ã DEF SEG = sourcesegã sc = PEEK(sourceofs + PX)ã IF sc THENã DEF SEG = wsegmentã POKE woffset + PX, scã END IFã NEXTã woffset = woffset + WWIDTHã sourceofs = sourceofs + imagewidthã NEXTã ã''ã''TRANSPOSED ONTO ALL BIT 00ã''ã CASE 1ã FOR py = 1 TO wheightã FOR PX = 0 TO WWIDTH - 1ã DEF SEG = sourcesegã sc = PEEK(sourceofs + PX)ã DEF SEG = wsegmentã wc = PEEK(woffset + PX)ã IF wc = 0 THENã POKE woffset + PX, scã END IFã NEXTã woffset = woffset + WWIDTHã sourceofs = sourceofs + imagewidthã NEXTã''ã''PLACED WITH BIT 00 AS BCOLORã''ã CASE 2ã FOR py = 1 TO wheightã FOR PX = 0 TO WWIDTH - 1ã DEF SEG = sourcesegã sc = PEEK(sourceofs + PX)ã IF sc THENã DEF SEG = wsegmentã POKE woffset + PX, scã END IFã IF sc = 0 THENã DEF SEG = wsegmentã POKE woffset + PX, tpcã END IFã NEXTã woffset = woffset + WWIDTHã sourceofs = sourceofs + imagewidthã NEXTã''ã''JUST SHOW EVERYTHINGã''ã CASE 3ã FOR py = 1 TO wheightã FOR PX = 0 TO WWIDTH - 1ã DEF SEG = sourcesegã sc = PEEK(sourceofs + PX)ã DEF SEG = wsegmentã wc = PEEK(woffset + PX)ã POKE woffset + PX, scã NEXTã woffset = woffset + WWIDTHã sourceofs = sourceofs + imagewidthã NEXTãã END SELECTã''ã''PLACE WORK ARRAYã''ã PUT (wx, wy), wimage, PSETããEND SUBãDenis Boyles TRANSPARENT SPRITE DEMO FidoNet QUIK_BAS Echo 01-21-97 (00:30) QB, QBasic, PDS 123 3941 SPRDEMO.BAS 'What you're talking about are transparent sprites, that is a spriteã'where the background `shows' through. The idea behind them is prettyã'simple, just `plot' the sprite `skipping' the transparent color.ãã'For example, in a 256 color sprite, you might make color number 0 yourã'`transparent' color. Then when you draw the sprite, skip over any colorã'0 pixels.ãã'For example, say I had a simple 2 color sprite laid out as follows:ãã' rectangular spriteãã' 11111111ã' 10000001ã' 10000001ã' 11111111ãã'Now, we'll make color 0 the transparent color, leaving the 1 color to beã'whatever we desire. When drawn to the screen, this would make the center ofã'the sprite transparent. So we could see the current screen backgroundã'through this transparent `window'.ãã'For example, say the screen was filled with . characters and then we drawã'our sprite. This is what the result might look like, assuming # is a solidã'`pixel'.ã' ............ã' ............ã' ..########..ã' ..#......#..ã' ..#......#..ã' ..########..ã' ............ã' ............ããã'In BASIC the code to actually draw the above sprite might look somethingã'like the following:ãã' FOR Y=0 TO SpriteDepthã' FOR X=0 TO SpriteWidthã' IF sprite(x,y) <> TransparentColor THENã' PSET (x,y), sprite(x,y)ã' ENDIFã' NEXTã' NEXTããã'The following program illustrates the things that I have just describedã'above. The program fills the screen with colored lines and then tiles theã'transparent sprite over that. The same rectangle mentioned is used andã'the effect is the colors showing through the `window'ãã'[Cut-'N'-Save-(SPRDEMO.BAS)------------------------------------------------]ãã'SPRDEMO.BAS - Transparent sprite demo, Public Domain by Denis BoylesããDECLARE SUB ReadSprite ()ãDECLARE SUB DrawSprite (x%, y%, c%)ãDECLARE SUB DrawLines ()ãDECLARE SUB TileSprite ()ããDEFINT A-ZããDIM SHARED sprite(8, 4)ããSCREEN 13ãReadSpriteãDrawLinesãTileSpriteããDATA 1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1ãããSUB DrawLinesã FOR y = 0 TO 199ã LINE (0, y)-(319, y), yã NEXTãEND SUBããSUB DrawSprite (x, y, c)ã FOR yct = 0 TO 3ã FOR xct = 0 TO 7ã IF sprite(xct, yct) <> 0 THENã PSET (x + xct, y + yct), cã END IFã NEXTã NEXTãEND SUBããSUB ReadSpriteã FOR y = 0 TO 3ã FOR x = 0 TO 7ã READ sprite(x, y)ã NEXTã NEXTãEND SUBããSUB TileSpriteã FOR y = 0 TO 199 STEP 4ã FOR x = 0 TO 319 STEP 8ã DrawSprite x, y, 7ã NEXTã NEXTãEND SUBããã'[Cut-----------------------------------------------------------------------]ãã'Now if you want to `move' your transparent sprite around then you need toã'do a few more things. Firstly copy the current screen are that will beã'affected to a buffer. Then draw your sprite on the screen, then `erase' itã'by restoring screen from the save buffer.ãã'You can use the GET and PUT commands to save and restore the background forã'you. I've whipped up another little demo that that a transparentã'sprite around the screen. The screen is filled with `stars' and some text,ã'then the sprite is moved in a circle pattern until a key is pressed.ãã'The main loop uses a GET command to save the current `background' thenã'draws the sprite. Afterwards, the screen area is restored by using a PUTã'command. Probably not the best example since there is `flickering' it doesã'illuastrate the concept. Watch as the ship moves and notice that theã'background isn't affected.ãDenis Boyles MOVING TRANSPARENT SPRITE DEMO FidoNet QUIK_BAS Echo 01-21-97 (00:34) QB, QBasic, PDS 88 2087 SPRMOVE.BAS 'Here's the second demonstration program that I mentioned in the firstã'message. The only thing to note is that I used a monochrome 2-colorã'image for the sprite. While the sprite data is a bit different, theã'technique is the same. :)ãã'NCC1701D.BAS - :) a moving transparent sprite demoã' Public Domain by Denis BoylesããDECLARE SUB ReadSprite ()ãDECLARE SUB ReadBits ()ãDECLARE SUB DrawSprite (x%, y%, c%)ãDECLARE SUB DrawStars ()ãDECLARE SUB CalcCircle ()ãDEFINT A-ZããCONST NumStars = 400ãCONST FlyRad = 80ããDIM SHARED sprite(16), bits(16), cosx(360), siny(360), oldimg(16, 16)ããPRINT "Please Wait..."ãReadSpriteãReadBitsãCalcCircleããSCREEN 13ãDrawStarsãLOCATE 12, 7ãPRINT "USS Enterprise, NCC-1701-D"ãct = 0ãDOã GET (cosx(ct), siny(ct))-(cosx(ct) + 16, siny(ct) + 16), oldimgã DrawSprite cosx(ct), siny(ct), 7ã WAIT &H3DA, 8ã PUT (cosx(ct), siny(ct)), oldimg, PSETã IF ct = 359 THENã ct = 0ã ELSEã ct = ct + 1ã END IFãLOOP WHILE INKEY$ = ""ããSCREEN 0ãWIDTH 80ãã'USS Enterprise, NCC-1701-D :) (b/w bitmap image)ãDATA &H0000,&H07E0,&H0FF0,&H0FF0,&H1FF8,&H1FF8,&H1FF8,&H1FF8ãDATA &H07E0,&H6186,&H6186,&H6186,&H7FFE,&H7FFE,&H63C6,&H0000ãã'16 bits lookup tableãDATA &H0001,&H0002,&H0004,&H0008,&H0010,&H0020,&H0040,&H0080ãDATA &H0100,&H0200,&H0400,&H0800,&H1000,&H2000,&H4000,&H8000ããSUB CalcCircleã FOR ct = 0 TO 359ã cosx(ct) = INT(COS(ct * (3.14 / 180)) * FlyRad + 160)ã siny(ct) = INT(SIN(ct * (3.14 / 180)) * FlyRad + 100)ã NEXTãEND SUBããSUB DrawSprite (x, y, c)ã FOR yct = 0 TO 15ã FOR xct = 15 TO 0 STEP -1ã IF sprite(yct) AND bits(xct) THENã PSET (x + xct, y + yct), cã END IFã NEXTã NEXTãEND SUBããSUB DrawStarsã DIM StarColor(3): StarColor(0) = 7: StarColor(1) = 8: StarColor(2) = 15ã FOR ct = 1 TO NumStarsã PSET (INT(RND * 320), INT(RND * 200)), StarColor(INT(RND * 3))ã NEXTãEND SUBããSUB ReadBitsã FOR ct = 0 TO 15ã READ bits(ct)ã NEXTãEND SUBããSUB ReadSpriteã FOR ct = 0 TO 15ã READ sprite(ct)ã NEXTãEND SUBãByron Smith FONT PUT DEMO Peter Cooper 01-25-97 (16:41) QB, QBasic, PDS 115 3750 FONNT!.BAS DECLARE SUB fontput (z1%, y1%, in$, c%)ãDECLARE SUB fontput1 (z1%, y1%, in$, c%)ãDECLARE SUB fontput2 (z1%, y1%, in$, c%)ããRANDOMIZE TIMERãSCREEN 12ãCLSãPAINT (1, 1), 1ãfontput 0, 0, "The old algorithm...", 2ãfontput 258, 8, "FontPut Demo", 0ãfontput 260, 10, "FontPut Demo", 15ãfontput 20, 30, "I dont expect you to use this procedure but it uses a technique unknown", 15ãfontput 20, 50, "to many programmers. It reads direct from the font area in ROM, instead", 15ãfontput 25, 70, "of using the method used by many programmers in which they PRINT their", 15ãfontput 30, 90, "text and then use the POINT command... so you can use this method in", 15ãfontput 20, 110, "place of that old method, look at the fontput procedure.. Cheers {:o)", 15ãfontput 20, 150, "Peter Cooper", 14ãA$ = INPUT$(1)ãCLSãfontput 1, 1, "PRESS ANY KEY TO EXIT!", 12ãA$ = INKEY$ãDOãx% = INT((550 - 0 + 1) * RND + 0)ãy% = INT((470 - 1 + 1) * RND + 1)ãc% = INT((15 - 1 + 1) * RND + 1)ãfontput x%, y%, "Hello there!", c%ãLOOP UNTIL INKEY$ <> ""ãSCREEN 13ãCLSãFOR c% = 30 TO 16 STEP -1ãfontput 130, 80, "Cheers!", c%ãFOR d% = 1 TO 1000ãFOR d2% = 1 TO 40ãNEXT d2%ãNEXT d%ãWAIT &H3DA, 8ãWAIT &H3DA, 8, 8ãNEXT c%ãLOCATE 25, 1: PRINT "Press any key to continue";ãWHILE LEN(INKEY$) = 0: WENDããSCREEN 12ãCLSãPAINT (1, 1), 1ãfontput2 0, 0, "The ", 2ãfontput2 32, 0, "NEW ", 10ãfontput2 64, 0, "algorithm...", 2ãfontput2 258, 8, "FontPut Demo", 0ãfontput2 260, 10, "FontPut Demo", 15ãfontput2 20, 30, "I dont expect you to use this procedure but it uses a technique unknown", 15ãfontput2 20, 50, "to many programmers. It reads direct from the font area in ROM, instead", 15ãfontput2 25, 70, "of using the method used by many programmers in which they PRINT their", 15ãfontput2 30, 90, "text and then use the POINT command... so you can use this method in", 15ãfontput2 20, 110, "place of that old method, look at the fontput procedure.. Cheers {:o)", 15ãfontput2 20, 150, "Peter Cooper", 14ãA$ = INPUT$(1)ãCLSãfontput2 1, 1, "PRESS ANY KEY TO EXIT!", 12ãA$ = INKEY$ãDOãx% = INT((550 - 0 + 1) * RND + 0)ãy% = INT((470 - 1 + 1) * RND + 1)ãc% = INT((15 - 1 + 1) * RND + 1)ãfontput2 x%, y%, "Hello there!", c%ãLOOP UNTIL INKEY$ <> ""ãSCREEN 13ãCLSãFOR c% = 30 TO 16 STEP -1ãfontput2 130, 80, "Cheers!", c%ãFOR d% = 1 TO 1000ãFOR d2% = 1 TO 40ãNEXT d2%ãNEXT d%ãWAIT &H3DA, 8ãWAIT &H3DA, 8, 8ãNEXT c%ããSUB fontput (z1%, y1%, in$, c%)ãDEF SEG = &HFFA6ão1% = z1%ãFOR l% = 1 TO LEN(in$)ã l$ = MID$(in$, l%, 1)ã FOR y% = y1% TO y1% + 7ã x% = PEEK(&HE + (ASC(l$) * 8) + (y% - y1%))ã FOR z% = 0 TO 7ã IF x% AND (2 ^ (7 - z%)) THEN PSET (z1%, y%), c%ã z1% = z1% + 1ã NEXT z%ã z1% = z1% - 8ã NEXT y%ã z1% = z1% + 8ãNEXT l%ãDEF SEGãEND SUBãã'Author: Byron Smith , 13-NOV-1996ãSUB fontput1 (z1%, y1%, in$, c%)ã DEF SEG = -90ã FOR b% = 1 TO LEN(in$): FOR m% = 0 TO 7ã d% = 128 * PEEK(14 + 8 * ASC(MID$(in$, b%, 1)) + m%)ã LINE (z1% + 8 * b% - 9, y1% + m%)-(z1% + 8 * b% - 2, y1% + m%), c%, , d%ã NEXT m%, b%ãEND SUBãã'Author: Byron Smith , 25-JAN-1997ã'Update: Draws two characters at once using LINE.ãSUB fontput2 (z1%, y1%, in$, c%)ã DEF SEG = -90ã tmp$ = in$ + " "ã FOR b% = 1 TO LEN(tmp$) - 1 STEP 2: FOR m% = 0 TO 7ã d& = 256& * PEEK(14 + 8 * ASC(MID$(tmp$, b%, 1)) + m%) + PEEK(14 + 8 * ASC(MID$(tmp$, b% + 1, 1)) + m%)ã d% = d& + (d& > 32767) * 65536ã LINE (z1% + 8 * b% - 8, y1% + m%)-(z1% + 8 * b% + 7, y1% + m%), c%, , d%ã NEXT m%, b%ãEND SUBãNick Coons VESA ROUTINES W/BANK SWITCHING FidoNet QUIK_BAS Echo 01-29-97 (21:29) QB, PDS 133 4079 SVGA.BAS ' Well, I figured it was about time that I looked into the problem thatã'you've been having with VESA and bank switching. So I did a few experimentsã'and wrote some routines and they seem to work surprisingly well. I'll postã'the code first, then explain:ãã' *** BANK.BAS (01/29/97)ã' *** SuperVGA VESA Routines using Bankã' *** Switching.ã' *** Written By Nick Coonsã' *** Based on Dave Shea'sã' *** Pixel-plotting using Interrupts.ã' *** Released To The Public Domainãã' *** Description:ã' *** A program that fills the screenã' *** with individual pixels usingã' *** direct memory access in VESAã' *** Screen mode &H101 - 640x480x256.ãã' *** Define Default Variablesãã DEFINT A-Zãã' *** Declare Proceduresãã DECLARE SUB Pixel (x%, y%, c%)ã DECLARE SUB ScreenMode (SM%)ã DECLARE SUB SwitchBank (NewBank%)ãã' *** Include Structures For Interruptsãã REM $INCLUDE: 'qb.bi'ãã' *** Dimension Variablesãã DIM SHARED InRegs AS RegType, OutRegs AS RegTypeã DIM SHARED Bank%ã DIM SHARED Table&(0 TO 479)ãã' *** Create Table For Vertical Referenceãã FOR x% = 0 TO 479ã Table&(x%) = x% * 640&ã NEXT x%ãã' *** Set Screen Modeãã ScreenMode &H101ãã' *** Begin Plottingãã DEF SEG = &HA000ã FOR x% = 0 TO 639ã Col% = Col% + 1ã IF Col% = 256 THEN Col% = 0ã FOR y% = 0 TO 479ã NewBank% = (Table&(y%) + x%) \ 65536ã IF NewBank% <> Bank% THEN SwitchBank NewBank%ã Pixel x%, y%, Col%ã NEXT y%ã NEXT x%ã DEF SEGãã SLEEP 1ãã ScreenMode 3ãã ENDãã' *** Pixel-Plotting Routineãã' *** Set Screen Mode Routine, by Dave Sheaãã' *** Switch Bank Routineãã SUB Pixel (x%, y%, c%)ã POKE (Table&(y%) + x%) MOD 65536, c%ã END SUBãã SUB ScreenMode (SM)ã 'SM (ScreenMode) may be any one of the following:ã '3 = Text Modeã '&H100 = 640x400x256ã '&H101 = 640x480x256ã '&H102 = 800x600x16ã '&H103 = 800x600x256ã '&H104 = 1024x768x16ã '&H105 = 1024x768x256ã InRegs.ax = &H4F02ã InRegs.bx = SMã CALL INTERRUPT(&H10, InRegs, OutRegs)ã END SUBãã SUB SwitchBank (NewBank%)ã InRegs.ax = &H4F05ã InRegs.bx = 0ã InRegs.dx = NewBank%ã CALL INTERRUPT(&H10, InRegs, OutRegs)ã Bank% = NewBank%ã END SUBãããã' First of all, try this and make sure it works on your system. I'veã'only been able to try it on mine. I have a Cirrus Logic GD5430 video card,ã'and I think you have a 5429, right?ãã' Second, here's a small chart comparing speed differences between theã'program you wrote that uses Interrupts to plot pixels and the one that Iã'wrote that POKE's the pixels into memory:ãã' Yours Mineã'Environment 15.76 5.21ã'Compiled 13.45 2.04ã'ã' Granted, those times are still not as fast as you'd want them, butã'it's a start. I think the main reason is because of the division which isã'pathetically slow. There are two divisions per pixel. The first is theã'integer division that gets the bank that the coordinates reside in. Theã'second one is MOD (yes, that's a division) which changes the coordinates intoã'a linear address inside the current bank.ã'ã' If you noticed the first loop near the top of the program, thatã'creates a multiplication look-up table. This eliminates the multiplicationã'that would normally be needed to find each pixel (ya know, the y% * 640 +x%ã'thing). I figure that we might be able to something similar for the twoã'divisions, but it will be a little more complicated.ã'ã' The second thing I did to speed up the routine was to keep track ofã'the current bank with the Bank% variable. This way, I only have to use theã'SwitchBank routine when actually needed to change the bank. If you calledã'that routine every pixel to put it into the correct bank, then it slower thanã'plotting the pixels with Interrupts.ãBradley Wagner 3D ENGINE W/LEVEL EDITOR BradWagner@msn.com 02-04-97 (03:14) QB, QBasic, PDS 667 24523 3DENGINE.BAS' Attached are two files. One is a level builder i created for that raycastã'engine, and the second is an updated version of the raycast engine.ãã'3dengine.bas:ã'------------------------------------------------------------------------------ã'Here is a new version (I merely added my keyboard ISR to the last). Don't beã'afraid to hold down multiple keys! :)ããDECLARE SUB screensetup ()ãDECLARE SUB makeworld ()ãDECLARE SUB maketables ()ãããDECLARE SUB SETVECT (S AS INTEGER, O AS INTEGER, I AS INTEGER)ãDECLARE SUB GETVECT (S AS INTEGER, O AS INTEGER, I AS INTEGER)ãDECLARE SUB KEYBOARD.IN (OLDSEG AS INTEGER, OLDOFF AS INTEGER)ãDECLARE SUB KEYBOARD.OUT (OLDSEG AS INTEGER, OLDOFF AS INTEGER)ãã'$STATICããCONST NUM.KEYS = 10ãCONST INDEX.UP = 0ãCONST INDEX.DOWN = 1ãCONST INDEX.LEFT = 2ãCONST INDEX.RIGHT = 3ãCONST INDEX.CTRL = 4ãCONST INDEX.ALT = 5ãCONST INDEX.SPACE = 6ãCONST INDEX.ESC = 7ãCONST INDEX.ENTER = 8ãCONST INDEX.RSHIFT = 9ããDIM SHARED KEY.TABLE(0 TO (NUM.KEYS - 1)) AS INTEGERãDIM SHARED RAWKEY AS INTEGERãDIM SHARED OLD.ISR.SEG AS INTEGER, OLD.ISR.OFF AS INTEGERããã' Just a minor change, but it's good for a speed increaseã' of about 30% on my P133. Changed the LINE,BF to draw theã' walls into seperate LINE's.ãã'=======================================================================ã' RAY CASTER 3D sorta ENGINE thingymajigã'=======================================================================ã' Wrote this about a month ago, it's a sort of wolfenstien\doomã' lookalike but all in native QBasic source! Uses an interesting rayã' Cheers, {:o) Peter Cooperãã' Clean-up by Brent P. Newhallãã' Improvments by Nick Cangiani (nicksxe@gnn.com)ã' Sped up maketables by v Zoelen AA (vsim@xs4all.nl)ã' Minor improvement by Marc vd Dikkenberg (excel@xs4all.nl)ã' Level Builder/Loading by Bradley Wagner (bradwagner@msn.com)ãã' Left arrow == Move leftã' Right arrow == Move rightã' Up arrow == Move forwardã' Down arrow == Move backwardã' [ESC] == QuitããDIM SHARED st%(0 TO 360)ãDIM SHARED ct%(0 TO 360)ãDIM SHARED a$(1 TO 10)ãDIM SHARED Grid(1 TO 12, 1 TO 12)ãpx% = 15: py% = 35: sa% = 0ãCLSãPRINT "Please wait...";ãRANDOMIZE TIMERãmakeworldãCALL KEYBOARD.IN(OLD.ISR.SEG, OLD.ISR.OFF)ãmaketablesãscreensetupãm% = 1ãDOã IF m% = 1 THENã IF P = 2 THEN PCOPY 2, 0 ELSE PCOPY 3, 0ã IF P = 2 THEN P = 3 ELSE P = 2ã m% = 0ã END IFã FOR t% = sa% TO sa% + 59 STEP 1ã xb = st%(t% MOD 360) / 100 'get incã yb = ct%(t% MOD 360) / 100 'get incã bx = px% 'decimal copyã by = py% 'decimal copyã l% = 0 'reset lengthã DOã bx = bx + xbã by = by + ybã l% = l% + 1ã 'k% = ASC(MID$(a$(CINT(by / 10)), CINT(bx / 10), 1)) - 48ã k% = Grid(CINT(by / 10), CINT(bx / 10))ã LOOP UNTIL k% <> 0ã LOCATE 1, 1ã 'PRINT l%; 'this would print the distance to wallã X% = (t% - sa%) * 5ã dd% = (1000 / l%)ã 'LINE (X%, 1)-(X% + 5, 99 - dd%), 15, BF 'paint ceilingã 'LINE (X%, 101 + dd%)-(X% + 5, 200), 2, BF 'paint floorã 'LINE (X%, 100 - dd%)-(X% + 5, 100 + dd%), k%, BF 'paint wallsãã FOR U% = 0 TO 4 'paint wallsã LINE (X% + U%, 100 - dd%)-(X% + U%, 100 + dd%), k%ã NEXT U%ã ' Could be even 20% faster: FOR U% = 0 to 4ã ' This will skip one line at the right of the screen, though.ãã LINE (X%, 100 - dd%)-(X% + 5, 100 - dd%), 0 'top linesã LINE (X%, 100 + dd%)-(X% + 5, 100 + dd%), 0 'bottom linesã NEXT t%ã PCOPY 0, 1ã RAWKEY = 0: WHILE RAWKEY = 0: WENDã IF KEY.TABLE(INDEX.RIGHT) THEN ' [LEFT]ã sa% = sa% + 3ã m% = 1ã END IFã IF KEY.TABLE(INDEX.LEFT) THEN ' [RIGHT]ã sa% = (sa% + 357) MOD 360ã m% = 1ã END IFã IF KEY.TABLE(INDEX.ESC) THEN ' [ESC]ã quit = 1ã END IFã IF KEY.TABLE(INDEX.UP) THEN ' [UP]ã Oldpx% = px%: Oldpy% = py% ' Save where you areã px% = px% + (st%((sa% + 30) MOD 360) / 30)ã py% = py% + (ct%((sa% + 30) MOD 360) / 30)ã IF Grid(CINT(py% / 10), CINT(px% / 10)) > 0 THEN 'Walking thru walls?ã SOUND 80, 1ã px% = Oldpx% ' Forget it! Don't moveã py% = Oldpy%ã ELSEã m% = 1ã END IFã END IFã ã IF KEY.TABLE(INDEX.DOWN) THEN '[DOWN]ã Oldpx% = px%: Oldpy% = py% ' Save where you areã px% = px% - (st%((sa% + 30) MOD 360) / 30)ã py% = py% - (ct%((sa% + 30) MOD 360) / 30)ã IF Grid(CINT(py% / 10), CINT(px% / 10)) > 0 THEN 'Walking thru walls?ã SOUND 80, 1ã px% = Oldpx% ' Forget it! Don't moveã py% = Oldpy%ã ELSEã m% = 1ã END IFã END IFãLOOP UNTIL quit > 0ãSCREEN 0ãWIDTH 80, 25ãããCALL KEYBOARD.OUT(OLD.ISR.SEG, OLD.ISR.OFF)ãããSYSTEMãã' Level data (this way you can have walls colored 10, 11, etc.)ã' 12x12 __ã' | guy starts here somewhereã' \|/ãDATA 7, 8, 7, 8, 7, 8, 7, 8, 7, 8, 7, 8ãDATA 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7ãDATA 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8ãDATA 8, 0, 8, 7, 8, 7, 8, 7, 8, 0, 0, 7ãDATA 7, 0, 7, 0, 0, 0, 0, 0, 7, 0, 0, 8ãDATA 8, 0, 8, 0, 8, 7, 8, 7, 8, 0, 0, 7ãDATA 7, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 8ãDATA 8, 0, 8, 0, 8, 7, 8, 7, 8, 0, 0, 7ãDATA 7, 0, 7, 0, 0, 0, 0, 0, 7, 0, 0, 8ãDATA 8, 0, 8, 7, 8, 7, 8, 7, 8, 0, 0, 7ãDATA 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8ãDATA 8, 7, 8, 7, 8, 7, 8, 7, 8, 7, 8, 7ãã' Old level. If you want it, come and get it.ã' 1, 9, 1, 9, 1, 9, 1, 9, 1, 9ã' 9, 0, 0, 0, 0, 0, 0, 0, 0, 1ã' 1, 0, 0, 0, 0, 0, 0, 4, 0, 9ã' 9, 0, 1, 0, 0, 0, 5, 0, 0, 1ã' 1, 0, 2, 0, 0, 4, 0, 0, 0, 9ã' 9, 0, 3, 0, 0, 0, 0, 0, 0, 1ã' 1, 0, 0, 0, 0, 7, 8, 0, 0, 9ã' 9, 0, 5, 0, 0, 8, 7, 0, 0, 1ã' 1, 0, 6, 0, 0, 0, 0, 0, 0, 9ã' 9, 1, 9, 1, 9, 1, 9, 1, 9, 1ã'-------------------------end of 3dengine.bas-----------------------------------------------------------ããSUB GETVECT (S AS INTEGER, O AS INTEGER, I AS INTEGER)ãã 'GETVECT RETURNS THE ADDRESS OF A FUNCTION POINTED TO IN THEã 'INTERRUPT VECTOR TABLE (STARTS AT 0000:0000H)ãã STATIC ASM AS STRING 'THE CODE FOR GETVECTãã STATIC INI AS INTEGER 'USED TO DETECT WHETHER GETVECT HAS PREVIOUSLYã 'BEEN CALLEDã IF INI = 0 THENã ã 'CREATE ML FUNCTION IF NOT ALREADY CREATEDãã ASM = ASM + CHR$(&H55) 'PUSH BPã ASM = ASM + CHR$(&H89) + CHR$(&HE5) 'MOV BP,SPã ASM = ASM + CHR$(&H8B) + CHR$(&H5E) + CHR$(&H6) 'MOV BX,[BP+06]ã ASM = ASM + CHR$(&H8A) + CHR$(&H7) 'MOV AL,[BX]ã ASM = ASM + CHR$(&HB4) + CHR$(&H35) 'MOV AH,35ã ASM = ASM + CHR$(&HCD) + CHR$(&H21) 'INT 21ã ASM = ASM + CHR$(&H53) 'PUSH BXã ASM = ASM + CHR$(&H8B) + CHR$(&H5E) + CHR$(&HA) 'MOV BX,[BP+0A]ã ASM = ASM + CHR$(&H8C) + CHR$(&H7) 'MOV [BX],ESã ASM = ASM + CHR$(&H8B) + CHR$(&H5E) + CHR$(&H8) 'MOV BX,[BP+08]ã ASM = ASM + CHR$(&H58) 'POP AXã ASM = ASM + CHR$(&H89) + CHR$(&H7) 'MOV [BX],AXã ASM = ASM + CHR$(&H5D) 'POP BPã ASM = ASM + CHR$(&HCA) + CHR$(&H6) + CHR$(&H0) 'RETF 0006ã INI = 1 'FLAG CREATIONã END IFãã DEF SEG = VARSEG(ASM)ã CALL ABSOLUTE(S, O, I, SADD(ASM)) 'RUN FUNCTIONãEND SUBããSUB KEYBOARD.IN (OLDSEG AS INTEGER, OLDOFF AS INTEGER)ã DIM RSGL AS INTEGER, RSGH AS INTEGER 'SEGMENT OF RAWKEYã DIM ROFL AS INTEGER, ROFH AS INTEGER 'OFFSET OF RAWKEYãã DIM KSGL AS INTEGER, KSGH AS INTEGER 'SEGMENT OF KEY.TABLEã DIM KOFL AS INTEGER, KOFH AS INTEGER 'OFFSET OF KEY.TABLEã ã DIM BYTE AS STRING * 1 'USED TO ACTIVATE IRQ 1 IN PICãã STATIC ASM AS STRING 'HOLDS ISRãã RSGL = VARSEG(RAWKEY) AND &HFF 'LOAD LOW "BYTE" SEGMENTã RSGH = INT(VARSEG(RAWKEY) / 256) AND &HFF 'LOAD HIGH "BYTE" SEGMENTãã ROFL = VARPTR(RAWKEY) AND &HFF 'LOAD LOW "BYTE" OFFSETã ROFH = INT(VARPTR(RAWKEY) / 256) AND &HFF 'LOAD HIGH "BYTE" OFFSETã ã KSGL = VARSEG(KEY.TABLE(0)) AND &HFF 'LOAD LOW "BYTE" SEGMENTã KSGH = INT(VARSEG(KEY.TABLE(0)) / 256) AND &HFF 'LOAD HIGH "BYTE" SEGMENTãã KOFL = VARPTR(KEY.TABLE(0)) AND &HFF 'LOAD LOW "BYTE" OFFSETã KOFH = INT(VARPTR(KEY.TABLE(0)) / 256) AND &HFF 'LOAD HIGH "BYTE" OFFSETãã 'THIS IS THE ISR. IT READS A SCANCODE FROM THE KEYBOARD BUFFERã 'AND RESETS IT. THE BEST PART IS, BIOS CAN'T TOUCH IT!ãã ASM = ""ã ASM = ASM + CHR$(&H52) 'PUSH DXã ASM = ASM + CHR$(&H51) 'PUSH CXã ASM = ASM + CHR$(&H53) 'PUSH BXã ASM = ASM + CHR$(&H50) 'PUSH AXã ASM = ASM + CHR$(&H6) 'PUSH ESã ASM = ASM + CHR$(&H57) 'PUSH DIã ASM = ASM + CHR$(&H1E) 'PUSH DSã ASM = ASM + CHR$(&H56) 'PUSH SIã ASM = ASM + CHR$(&HFB) 'STIã ASM = ASM + CHR$(&HBA) + CHR$(&H60) + CHR$(&H0) 'MOV DX,0060ã ASM = ASM + CHR$(&HEC) 'IN AL,DXã ASM = ASM + CHR$(&H30) + CHR$(&HE4) 'XOR AH,AHã ASM = ASM + CHR$(&HBA) + CHR$(RSGL) + CHR$(RSGH)'MOV DX,SEG RAWKEYã ASM = ASM + CHR$(&H8E) + CHR$(&HDA) 'MOV DS,DXã ASM = ASM + CHR$(&HBE) + CHR$(ROFL) + CHR$(ROFH)'MOV SI,OFFSET RAWKEYã ASM = ASM + CHR$(&H88) + CHR$(&H4) 'MOV [SI],ALã ASM = ASM + CHR$(&H50) 'PUSH AXã ASM = ASM + CHR$(&HBA) + CHR$(&H61) + CHR$(&H0) 'MOV DX,0061ã ASM = ASM + CHR$(&HEC) 'IN AL,DXã ASM = ASM + CHR$(&HC) + CHR$(&H82) 'OR AL,82ã ASM = ASM + CHR$(&HEE) 'OUT DX,ALã ASM = ASM + CHR$(&H24) + CHR$(&H7F) 'AND AL,7Fã ASM = ASM + CHR$(&HEE) 'OUT DX,ALã ASM = ASM + CHR$(&HB0) + CHR$(&H20) 'MOV AL,20ã ASM = ASM + CHR$(&HBA) + CHR$(&H20) + CHR$(&H0) 'MOV DX,0020ã ASM = ASM + CHR$(&HEE) 'OUT DX,ALã ASM = ASM + CHR$(&HBA) + CHR$(KSGL) + CHR$(KSGH)'MOV DX,SEG KEY.TABLEã ASM = ASM + CHR$(&H8E) + CHR$(&HDA) 'MOV DS,DXã ASM = ASM + CHR$(&HBE) + CHR$(KOFL) + CHR$(KOFH)'MOV SI,OFFSET KEY.TABLEã ASM = ASM + CHR$(&H58) 'POP AXã ASM = ASM + CHR$(&HBB) + CHR$(&H1) + CHR$(&H0) 'MOV BX,0001--MAKEã ASM = ASM + CHR$(&HB4) + CHR$(&H48) 'MOV AH,48--UPã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H0) 'MOV [SI+00],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H50) 'MOV AH,50--DOWNã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H2) 'MOV [SI+02],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H4B) 'MOV AH,4B--LEFTã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H4) 'MOV [SI+04],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H4D) 'MOV AH,4D--RIGHTã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H6) 'MOV [SI+06],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H1D) 'MOV AH,1D--CTRLã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H8) 'MOV [SI+08],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H38) 'MOV AH,38--ALTã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&HA) 'MOV [SI+0A],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H39) 'MOV AH,39--SPACEã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&HC) 'MOV [SI+0C],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H1) 'MOV AH,01--ESCã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&HE) 'MOV [SI+0E],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H1C) 'MOV AH,1C--ENTERã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H10)'MOV [SI+10],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H36) 'MOV AH,36--RSHIFTã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H12)'MOV [SI+12],BXãã ASM = ASM + CHR$(&HBB) + CHR$(&H0) + CHR$(&H0) 'MOV BX,0000--BREAKã ASM = ASM + CHR$(&HB4) + CHR$(&HC8) 'MOV AH,C8--UPã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H0) 'MOV [SI+00],BXã ASM = ASM + CHR$(&HB4) + CHR$(&HD0) 'MOV AH,D0--DOWNã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H2) 'MOV [SI+02],BXã ASM = ASM + CHR$(&HB4) + CHR$(&HCB) 'MOV AH,CB--LEFTã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H4) 'MOV [SI+04],BXã ASM = ASM + CHR$(&HB4) + CHR$(&HCD) 'MOV AH,CD--RIGHTã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H6) 'MOV [SI+06],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H9D) 'MOV AH,9D--CTRLã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H8) 'MOV [SI+08],BXã ASM = ASM + CHR$(&HB4) + CHR$(&HB8) 'MOV AH,B8--ALTã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&HA) 'MOV [SI+0A],BXã ASM = ASM + CHR$(&HB4) + CHR$(&HB9) 'MOV AH,B9--SPACEã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&HC) 'MOV [SI+0C],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H81) 'MOV AH,81--ESCã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&HE) 'MOV [SI+0E],BXã ASM = ASM + CHR$(&HB4) + CHR$(&H9C) 'MOV AH,9C--ENTERã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H10)'MOV [SI+10],BXã ASM = ASM + CHR$(&HB4) + CHR$(&HB6) 'MOV AH,B6--RSHIFTã ASM = ASM + CHR$(&H38) + CHR$(&HC4) 'CMP AH,ALã ASM = ASM + CHR$(&H75) + CHR$(&H3) 'JNZã ASM = ASM + CHR$(&H89) + CHR$(&H5C) + CHR$(&H12)'MOV [SI+12],BXãã ASM = ASM + CHR$(&HFA) 'CLIã ASM = ASM + CHR$(&H5E) 'POP SIã ASM = ASM + CHR$(&H1F) 'POP DSã ASM = ASM + CHR$(&H5F) 'POP DIã ASM = ASM + CHR$(&H7) 'POP ESã ASM = ASM + CHR$(&H58) 'POP AXã ASM = ASM + CHR$(&H5B) 'POP BXã ASM = ASM + CHR$(&H59) 'POP CXã ASM = ASM + CHR$(&H5A) 'POP DXã ASM = ASM + CHR$(&HCF) 'IRETãã BYTE = CHR$(INP(&H21)) 'LOAD IRQ ENABLE REGISTER IN PICãã OUT &H21, (ASC(BYTE) AND (255 XOR 2)) 'CLEAR BIT 2 (IRQ 1)ãã CALL GETVECT(OLDSEG, OLDOFF, &H9) 'LOAD OLD ISRã CALL SETVECT(VARSEG(ASM), SADD(ASM), &H9) 'STORE NEW ISRãEND SUBããSUB KEYBOARD.OUT (OLDSEG AS INTEGER, OLDOFF AS INTEGER)ã CALL SETVECT(OLDSEG, OLDOFF, &H9) 'RESTORE OLD ISRãEND SUBããSUB maketablesãã' Peters boring _yawn_ table creationãFOR tmp1% = 0 TO 360ã st%(tmp1%) = SIN(tmp1% * .0174) * 100ã 'IF tmp1% MOD 100 = 0 THEN PRINT ; ".";ã 'NEXT tmp1%ã 'FOR tmp1% = 0 TO 360ã ct%(tmp1%) = COS(tmp1% * .0174) * 100ã 'IF tmp1% MOD 100 = 0 THEN PRINT ; ".";ãNEXT tmp1%ããEND SUBããSUB makeworldããPRINT "If you would like to load a file made with QB Raycast Level Builder, then type"ãPRINT "it's file name below. If not, just hit enter to view the default level."ãPRINTãLINE INPUT "Level Filename (No extension!): ", file$ãIF file$ = "" THEN GOTO DefaultãOPEN file$ + ".lev" FOR INPUT AS #1ãFOR Y = 1 TO 12ã FOR X = 1 TO 12ã INPUT #1, Numã Grid(X, Y) = Numã NEXTãNEXTãEXIT SUBãããDefault:ã' Read in this level's dataãFOR j = 1 TO 12ã FOR I = 1 TO 12ã READ Grid(I, j)ã NEXT IãNEXT jãã' Peter Coopers demonstration level. Change it if you wish! Each numberã' is a color numberã'a$(1) = "1919191919"ã'a$(2) = "9000000001"ã'a$(3) = "1000000409"ã'a$(4) = "9010005001"ã'a$(5) = "1020040009"ã'a$(6) = "9030000001"ã'a$(7) = "1000078009"ã'a$(8) = "9050087001"ã'a$(9) = "1060000009"ã'a$(10) = "9191919191"ããEND SUBããSUB screensetupããSCREEN 7ãLOCATE 4ãPRINT " RAYCASTER DEMO"ãPRINTãPRINT " UP ARROW........Move Forward"ãPRINT " DOWN ARROW......Move Backward"ãPRINT " RIGHT ARROW.....Turn Right"ãPRINT " LEFT ARROW......Turn Left"ããSCREEN 7, , 2, 0ããCLSã'WINDOW SCREEN (1, 1)-(320, 200)ãã' SkyãLINE (0, 0)-(300, 99), 3, BFããFOR cnt = 1 TO 10 ' Cloudsã a = INT(RND * 319)ã b = INT(RND * 80 + 10)ã c = INT(RND * 50)ã d = INT(RND * 10): d = d / 100ã CIRCLE (a, b), c, 1, , , d: PAINT (a, b), 1ã CIRCLE (a, b), c, 15, , , d: PAINT (a, b), 15ãNEXT cntãLINE (301, 0)-(319, 199), 0, BF ' Erase clouds on rightãã' Obeliskã'LINE (200, 20)-(240, 99), 0, BFã'LINE (201, 21)-(239, 98), 8, BFããLINE (200, 20)-(220, 15), 8 ' Building (gray)ãLINE (220, 15)-(240, 20), 8ãLINE (200, 20)-(200, 99), 8ãLINE (240, 20)-(240, 99), 8ãLINE (200, 99)-(240, 99), 8ãPAINT (220, 50), 8ãFOR cnt = 1 TO 20 ' Lightsã PSET (INT(RND * 38 + 201), INT(RND * 80 + 20)), 14ãNEXT cntãLINE (200, 20)-(220, 15), 0 ' Building (border)ãLINE (220, 15)-(240, 20), 0ãLINE (219, 15)-(219, 99), 0ãLINE (200, 20)-(200, 99), 0ãLINE (240, 20)-(240, 99), 0ãã' SunãCIRCLE (50, 30), 10, 14: PAINT (50, 30), 14, 14ããPCOPY 2, 3ããFOR Y% = 100 TO 199ã FOR X% = 0 TO 300ã IF RND > .5 THEN c% = 8 ELSE c% = 0ã PSET (X%, Y%), c%ã NEXT X%ãNEXT Y%ããSCREEN 7, , 3, 0ãFOR Y% = 100 TO 199ã FOR X% = 0 TO 300ã IF RND > .5 THEN c% = 8 ELSE c% = 0ã PSET (X%, Y%), c%ã NEXT X%ãNEXT Y%ããSCREEN 7, , 0, 1ããEND SUBããSUB SETVECT (S AS INTEGER, O AS INTEGER, I AS INTEGER)ãã 'SETVECT CHANGES THE ADDRESSES IN THE INTERRUPT VECTOR TABLEã 'TO POINT TO NEW FUNCTIONSãã STATIC ASM AS STRING 'HOLDS THE SETVECT FUNCTIONã STATIC INI AS INTEGER 'USED TO TEST WHETHER OR NOT FUNCTION HAS PREVOUSLYã 'BEEN CALLEDã IF INI = 0 THENãã 'CREATE FUNCTION IF NOT ALREADY CREATEDãã ASM = ""ã ASM = ASM + CHR$(&H55) 'PUSH BPã ASM = ASM + CHR$(&H89) + CHR$(&HE5) 'MOV BP,SPã ASM = ASM + CHR$(&H8B) + CHR$(&H5E) + CHR$(&H8) 'MOV BX,[BP+08]ã ASM = ASM + CHR$(&H8B) + CHR$(&H17) 'MOV DX,[BX]ã ASM = ASM + CHR$(&H8B) + CHR$(&H5E) + CHR$(&H6) 'MOV BX,[BP+06]ã ASM = ASM + CHR$(&H8A) + CHR$(&H7) 'MOV AL,[BX]ã ASM = ASM + CHR$(&H8B) + CHR$(&H5E) + CHR$(&HA) 'MOV BX,[BP+0A]ã ASM = ASM + CHR$(&H1E) 'PUSH DSã ASM = ASM + CHR$(&H8E) + CHR$(&H1F) 'MOV DS,[BX]ã ASM = ASM + CHR$(&HB4) + CHR$(&H25) 'MOV AH,25ã ASM = ASM + CHR$(&HCD) + CHR$(&H21) 'INT 21ã ASM = ASM + CHR$(&H1F) 'POP DSã ASM = ASM + CHR$(&H5D) 'POP BPã ASM = ASM + CHR$(&HCA) + CHR$(&H6) + CHR$(&H0) 'RETF 0006ã INI = 1 'FLAG CREATIONã END IFã DEF SEG = VARSEG(ASM)ã CALL ABSOLUTE(S, O, I, SADD(ASM)) 'RUN SETVECTãEND SUBã'----------------------------------end of 3dengine.bas---------------------------------------------------ããã'3dlevels.bas:ã'----------------------------------------------------------------------------ã'======================================ã' QB Raycast Level Builder v.1ã'======================================ã'I was having a good time screwing around with that raycast demo and thoughtã'it would be cool if there was an easy way to make new levels for it. So Iã'throw this crap together. It's real simple to use. The arrow keys control theã'red cursor on the grid, and hitting spacebar plots a block on the grid. Toã'select a new color for the blocks, just hit 'c'. Hit 's' to save, and don'tã'save with an extension. It will automatically be '*.lev'. Umm... Oh, theã'levels will not load probably into 3dengine.bas unless you have a border allã'the way around the grid... so... enjoy!ã'ã'ã' email = bradwagner@msn.comããDECLARE SUB Cursor (Col%)ãCOMMON SHARED X%, Y%ãSCREEN 7, 0, 0, 0ãLINE (0, 0)-(319, 199), 1, BãLOCATE 2, 9ãCOLOR 15ãPRINT "QB Raycast Level Builder"ãLINE (0, 22)-(319, 22), 1ããFOR X% = 10 TO 120 STEP 10ã FOR Y% = 50 TO 160 STEP 10ã LINE (X%, Y%)-(X% + 10, Y% + 10), 1, Bã NEXTãNEXTããLINE (189, 50)-(309, 170), 1, BãPAINT (190, 51), 15, 1ããX% = 1ãY% = 1ãc% = 9ããMain:ãCOLOR 15ãLOCATE 5, 2ãPRINT STR$(X%) + "," + STR$(Y%) + " "ãCursor 12ãLOCATE 23, 3ãCOLOR c%ãPRINT "Color "ãLINE (200, 75)-(200, 155), 0ãLINE -(280, 160), 0ãLINE -(280, 80), 0ãLINE -(200, 75), 0ãLINE (200, 75)-(220, 60), 0ãLINE (280, 80)-(300, 65), 0ãLINE (280, 160)-(300, 145), 0ãLINE (220, 60)-(300, 65), 0ãLINE -(300, 145), 0ãPAINT (205, 80), c%, 0ãPAINT (210, 70), c%, 0ãPAINT (295, 90), c%, 0ãDOã A$ = INKEY$ã A$ = UCASE$(A$)ã IF A$ = CHR$(27) THENã CLSã SYSTEMã END IFã IF A$ = CHR$(0) + CHR$(77) AND X% < 12 THENã Cursor 1ã X% = X% + 1ã GOTO Mainã END IFã IF A$ = CHR$(0) + CHR$(75) AND X% > 1 THENã Cursor 1ã X% = X% - 1ã GOTO Mainã END IFã IF A$ = CHR$(0) + CHR$(80) AND Y% < 12 THENã Cursor 1ã Y% = Y% + 1ã GOTO Mainã END IFã IF A$ = CHR$(0) + CHR$(72) AND Y% > 1 THENã Cursor 1ã Y% = Y% - 1ã GOTO Mainã END IFã IF A$ = CHR$(32) THENã LINE (X% * 10 + 1, 40 + (Y% * 10) + 1)-(10 + (X% * 10) - 1, 50 + (Y% * 10) - 1), c%, BFã END IFã IF A$ = CHR$(13) THENã LINE (X% * 10 + 1, 40 + (Y% * 10) + 1)-(10 + (X% * 10) - 1, 50 + (Y% * 10) - 1), 0, BFã END IFã IF A$ = "C" THENãPickColor:ã LOCATE 23, 3ã INPUT "New Color: ", c%ã IF c% < 1 OR c% > 15 THEN GOTO PickColorã GOTO Mainã END IFã IF A$ = "S" THENã LOCATE 5, 10ã LINE INPUT "Save As (No ext.): ", save$ã LOCATE 5, 10ã PRINT STRING$(28, 32);ã OPEN save$ + ".lev" FOR OUTPUT AS #1ã FOR SaveX% = 10 TO 120 STEP 10ã FOR SaveY% = 50 TO 160 STEP 10ã PRINT #1, POINT(SaveX% + 1, SaveY% + 1);ã NEXTã PRINT #1,ã NEXTã GOTO Mainã END IFãLOOPããSUB Cursor (Col%)ãLINE (X% * 10, 40 + (Y% * 10))-(10 + (X% * 10), 50 + (Y% * 10)), Col%, BãEND SUBãã'----------------------------------end of 3dlevels.bas---------------------------------------------------ãAngelo Mottola QB ENHANCED DRAW PROGRAM eri@cdc.it 02-03-97 (14:35) QB, QBasic, PDS 467 30801 EDRAW.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"EDRAW.ZIP",4^6:Z&=22852:?STRING$(50,177);ãU"%up()%9%%%.-%4q[hG790DuHb.%%=Q%&%.%%%%ji.wf&S[gfxe5LtJ?u2+Yh9wcãU"x4j??h9p)Ja_oFIRD0D[BU0q%hnuGGgpt0L/t1+RflY;o(.Xzb&%F\Y]BbAps_FãU"AURd.oJxI_dyoNB(44-nbRxw923(ds\?DiJIP?JJE\m,#,8g)YZj\EiU.Q>UWkHãU"W2FazxHa='&d#wnVa+L^2kg(%l$bgQ$:\z=GNb5U+BHD[Z6io=jSM#LYbyNW(WaãU"^j1O;G=:)3DLD_8G4D'MJoZ2RETP9XfU%9ãU"5ia+ppk=='gmty8?/iE>GBX9v4+M]>R4Ge%=q4*Fo*YfltO2[URJF>HKOJLkBe5ãU"zj1jldFara'iQlA\Kjd^p%\ãU"uHIsb5Kwh7=1bLVtpoDT2^^ãU"^LHx$/5uOBnuPmp=JiZc#xQc0Pl&=t6sjAv.Tr1tfEg90P26fhL4\rKL5&7FP*bje'nf\fTEeVk*f50gc7bZSV+2ãU"g*(f&j*3)Tn<3JnOmp+ilXix8H;d#930?XY_-v]&)ouari0]$PT'PP/?GZdakRuãU"y'k9OGu7.QmI1ST#iB72d&LpLmZVfuVQ$&AaB+H-sK<1wekvdYvO,UiOJK=cfHGãU"\WfM2:-5dmi??L>3v/0x-ãU"68*adL40?.U.#kNp%dl3/?&H/]'^y>1t0V4r[&[-1-&[,1lDe[Lb\T*AGk%:1*DãU"M'b$pYLg&fhZ%EHKej?d0N1DWBarI24t(MVjF9E'A:IbAPd[T56:y:7Sm3b&*R[ãU"UU4^Kh^Q8d&AQ>-V9e2k%Fb5u7Lo(e+2]&FlY(;_OuVrl>VYsd'K1$NKndJ$ZWfãU"lFR$nz^ir2ds(?ru7bC.r>liRf/*n9q$PMnrrLXBMRE,]5v:9:Y47l/]s5ne#d)X+YbKizh4mãU"MaIZllMn^r]G:Q+6WL/zKJQ?BkNH'&seX^FnQ1[/THJk-P[%:(W--?L)1QVrLTVO+RvuLr<Rz.MMC/fPaWg\hPr6RjãU"[us'gekRrI/d?c[(eRD_-i7T6F2Ly3nPvpJJ:UqHz%vC4FRuJãU"&M9IDNl5OCr)P+m*l1xsc7lJe.[S2CKN^l_'gDgl0Yepc70^=nCN*q./Vc5%\T4ãU"lb1^G29.#BYMpmE+3hxr4Q6N,ObtLpY^wK>;*m3$O&Djfp8ZmFM7]/gD#a.+>^cNX9s?LHf)vdFDK^rO?/e1?^\mK()q4+&gãU"0vjG#-Gq1[LE0lQB>M0ak%3_D_g'r-R9$$ta3mk;xia=usWawYR7l5UgM6jI_aOp^(5QO5?u/;cNM=KM&gQ';:^-,PãU"RwOkfnlLK8-Q_0c/;h_f)^70SJMwBx8(7MnZPJ7'pC+:DZgO+fIZrM^aLa^mtlhK?cwH6WrvAMãU"_t$#\YLbm^a1aW-]K;Dy4NQ+QjW9iokecK.d]7HCZfzLcyb1LV*x5ZTm0$sR/,2ãU"mKa]CER1ss-Mn9v2Yu&UKvyOdQY:r/lm.anfSusRuC_lR21mfw#zy60(jz'xEq:ãU"*.+tFwJmm)u&,;,3Uc)73Sf[GTb>_frUW_9]^1ãU"s:CsdO^cq:,?5tD0(uyV_jrI#[nf%64P1,bOGN)r:46TUC\S1<1Z2Q[NyW#b88yãU"FX7(axCVfEM/e9B-CwuETSy&K>N;9)p1>tiE:h8tw77').%JhãU"(ifI2Or1cQ<%)s_Xeg-8Ne&[-H(J.^:glH[xTih.AslZ5e=7[22ymACAvU4%*-WãU"8&87Yn955=pXZ&reB):WP?(2:t;8(SHE#.+cbTB-U844P/4r^1qqw60*[i0OyW2ãU",jtB1TSiH4yq>ASk'$zZ1D1SJJ-q>Q8>:3v&]_-sr:US6Honytj9#DB+qNP1rVqãU"esdX2Q(3*lzM>%Rm0u:eiwPPp&Yo^t4x+Ni4nuJs66e&;Wsi=;E(KHB5V(E[&j8ãU"(^39yd8F/0pflZ>L]kPq?kZi%1C:V,ezD/h4^X']R,_G6bZwq]d<,O6sjxA;E*hKI=OWLx%r\_JJXUSr-9G\j),d-uzPQeoPhA(jJzdujerdU#.JZo%ãU"_3ow5EA:B'$]p3%-+i.,$7OM$1zO8FI+8SPmsD*pJ+;e[mmBWQ/D=R9wJapQrL(ãU"oOcbgolg];XIK3iQw6\qxCR[QRhsBxEI4S7G7%C&WW*W'q-I>MWW:;t]IT8'_;WkjdUWRTsL6Zen?s4A-VDFSãU"S)C.dUH,0f0AYaANlYmjKfYWa=o[Shqxf:TPWZdpwWA>i#xSjZ,ye;a#Cb)BTW:ãU"WGu'(qd0cqC*<3'V^oUVuR$Ru)#u:MTc*9V#f,DSyMbGs-9ãU"\,XKRpCBIsDJX>?;&8jz)q,h5/Bq(\ZN0$X7FSv=-'q[4I5e>W7.f1,RkQrppPRãU"on?I,=x5aEXFSq%CLQ0nbt?)jnvCW?G^my&u)=[.*WAqmoj*htF4C#sJvL23h#vãU";0wL2u?a+,H$V7uuVP<57^DRr2A)*((\]1lfLpA[z;4:5?IX,]FlEe]WA5uE3ikãU"0n]\ThGeKiM,T%FJK(%7YqãU"]V3iJkLKoFU$kcn$4XAqWUTdK%pBk&U3SYmX&8+,$[<,hQ_fcYnplLIdlmG9]$LKr?hZO[J$N;ZP%['dp?C+9)f4&KYZ&9Bk_x0&Hx7Rzq7h7Ak;OJF5Ept[PVVsf8YJ59HCO.n';W+6((c_n/8Pl'OI%ãU"Bn19ZX7k]k[.8s?L]lldW=bGb/HV]EgvFAJa.%.uS/;WyD<ãU"$=v^c#9.Onh'ta95Y.d&sPY(q-3Bn-mlMcq7j9<):0S]tkap0aJYUCHa=G50S5RãU"N2V+/:euU)YNO9+YT&+HO(40-P'AH:w<:IH%UL'.]R9(iUmrQ1d]nziPgBvKHrcãU"lB\r&nrf$cj2xItFOZ2jfl6NWt&tm:9r.77.PFsA+[&-jg[s)VHi*lX6o10mcn:PuNs:8sCzUx]CjCcFsãU"r^h[VqQX:4\eW0XY$tC?F]r*4O]2G9ARXH85Y[']'?_802s6Lp';;<:LV#9*5vk#5vP[R,3d/ãU"Fu(Bhl-bscE-LjzUjJPF:*n6S,_OYTF.ye':fL%4-8M8KZ&k'5IU(1/vk:^H$B[ãU"*:]=J]Px+w.9]m6$,wu=%IZ'C0'/-&GM*:,^%s'>V.NkphX2>Ik[/[P$?a-R+tvãU"m4Ki<5-hw5&^oqF54$%Hl]=z;+gVxq'H9L-Mdy=v*Q2ORg.%97>Y)_U0Ow99ILgãU"D>mY>n#,+2LFjwx$+[m%;*)>3oxP_5W2Xw=qQ9H1ZxAQ[7xMz%D7:oI'xV>\YE\ãU"5yF(/v0BkXBmvX^?F[PM?eWp;6NX-k<3T,AO+UePCvSiGBN_RrW06NT[1Yq>&]eãU"oP-$csHRd.^lbJ::q3Xb^YkVB1CY4?[kRc7TY')T\k*0\?$6SvaNP3CVT7A,:lIãU"0$tNjU[v9D^2/=-?G-;6bYFnod,N/Ch=;L5vTeDQg5k&=v;hd*RQNeIV*[XrTN1ãU"7BeADL/Z4_:k?*ed\.WM.(sL\c-3EDTZ9E;-7;g/h%4r+A0&u/1SgL>at<.Da_:ãU"kZLHC7)<0Ro,(MeD8^-P)1XF?#YiU/6+#WYz23&kKjNg0'8_)cdY9m#^4QDMd2IãU"Fg-N7.;Z20&5kk>e:n/#';6\SLN3kNpkytu&cnnnG_>whao3n[-3VDM?E\2pW5nãU"XD\fQ5O6=EQ5aZ;>=QiKRYZs*oJH5\ScU[*igVH+E5603a&*c+0Il8.w^NIT75uãU"]UPA[qZu#)TK[6m#Ov,]tH0$MA#%t_e#4[^]3VPT,*)r7BCJ(&hUjEvqKW,hDxXãU"hf2Zw2:UfX*UYl[\X[)/LBOmS%\\LAtI/78d/;32P('QJAA4i]RL87pZe/17=9IãU"OX--%(Yt5$lYs):.>SW\lv?lLL1X[dmcnsXmD0>g.[qb.0=&.w]Ae>]FWãU"4%5F8/#c4[9[QhW+E7'W)Z64u.?s_^K'e3d6TXZt6,V*.zjF.nUL\SL-4%aN&-]ãU"#TkK_d.34I4uUEEE*F$2uD<91A?$6d9?_nb*M[6S6)gx^_NC9*2J9O#DMj7%7-bãU"9KeUshPVJ/OY'Oz&]U_6L1psVwEFoYiCo/5Dl_pa,E_h>BcI7L=b*1t[amXDAy5c)3N,?#2$pwVd<9cp.=EY)UT)6^XV)'(FMs_zy&turn_TXv=NiRCl_$OU,NY9_WDgp+.6C/q=;ãU")xFSHU2Sqo&2aq&/_h#&Gq)3g?ctUUe9M^*#U)AJ>-gIck5LM9Jxd8/WL12p3*bãU"QJ)(LpI7NO)BuY%hTAVYI/7F/6a#]/?=DI](o7uenjbjB;\boes1U$+1epJzqP=ãU"J3[$duLD2w2EGf?:J#gbP]Ku)>$v411/WC;]=p_3'DTL)Tu0R;]?C8]f0t1u#?cãU"h&?>X[0t>GbfUhMuLvtsPffm-R-sI\as(cqU)J>^_m+03cvLYTid/z\G>hnxP_DãU"hiO0m>edJ.F8sNrcwmrA]W5=lR[_;]N^ãU"._k0M.>8,8aZp\XBm\a=23EF\NOrORLXLRQBo:tUXHO0EG7?bEUKjDF],i^=F%i??fTYJJtJCDãU"(,PS8*t9'DRclTP^vYl1vYnYW_CSzT?iSlLmbN[mSy2pYXsG4f+NãU"'/o+'wxft*G_+5gf>35&tC<+WBOd,lPV]jH\ZMMwL#XNA^]]Fw%h'Tikg2j%''KãU"T[]iYM?1z$CXK]z&$+cY:9G:%RT-iQ[%TmisF#'#8J8B*]i*6xm\AY9KlRZ$439ãU"*YF*f\l9I0aFJfGfRQoheNL_GD0.C?aQcXnADldm)fM^%--/c8=riUbTKdvk5o?ãU"jBmi*kzmac]$/sZ[p,8'<=5unl1J^MKz/3)&3\qãU"A3ZRs(o^S.N,:Qp_LG*YBCc76QJzkMhg[h/8?d,XFBbIr9$f8liie%.Ii.Wmk>8gJrg49dJjN4)hd<6%)X7qImuNHPR4pJ8AXN7b2mCu)ihKãU"MHK(hOI3;mx6]u,A79k:f2<6TKm+c&5$*?f':MNO1.f^&GI.D4g^y8u2%;'E]#gãU",S&ym5MWv2q%._ox[/P>T0;y]R05^S^lmxw],dxlZLoTB]eiY7fMGzO^ZV9'%Q6ãU"**d6M'7pu/.NbO^]zpbXq2bLh<]C0R+4fs^qSqJ-](w'>waBiDJ$3Gse=bcQDsGãU"np6aXm7N1=O5i5.L'S2_3m<\Uj^JyR482.U;jfHjhjv_$0/G^1o*/?dMg*OE[YDãU"+:b6L>?'Qr9+,zHj#$K8C^j\EkiT(T5$mOijSU\=fJf;;6^D\jn5Auj4nãU">-%E5KW7]#)P$Z[9Bju*QxN$Lk0Q3MMVS\9MuWSLqGO0luY3Y1QKmpãU"4Y$^1M?YqYwT90=G)$+a)AGB.3U'GnV>FfAtum,S07>8*^^M/v9t:ZsNM0'>pNkãU"(ju59,p:1?W]a'[pGXF*%JS8G(GJj6S7wQ]0&pyR(OfjeVGnkXb0WwT(Gj>era<ãU"hr+zk0n##$_-/_9DOEr:lGe,oJGt;Ar3P4D#]QP7oPH#rLnJz'Lu9ipI2&7Lu40ãU"(_5n[CSy[S$6Ja4P9:B+]ZCxICs]]IM?]Ci)d23T5e&._;1S][evShH3,yY_T$(ãU"a'^JuFCDV-/<5+G.^)=)Qb+iH:lfjhdlO,>Way.-NGebtfLtAuK.GS]8Plsw'baãU"]FFD4C(RMnWp'^W4IHVZ1)tJf]N9JcVãU"ReP41Vn.M%Zz>HWB6ãU"-:)5$mbU-odE1^gT?Nd%/1V<03xx#YBLkHtlQ]LqcTSH=4,.G]C5GZãU",sCKUL4f=Qe(-&U.De4i$ZY)'qi#UZ22%eR>2=+YS&6Q76UmQ\WeXIPcL35XW_MãU"P5v(W1U]/lY+nwBaf91\)p2h(pPxU,LB]&-G/&YdG%+E12\ZVKcypkmaiXCãU"3h'W3iNe%u^?XRBZP1:'g3'=$#t+ITY+N8C[E,^gs3xOhakf8OnwuA.6n]UHe7zãU"0891lY%iD_('bxo.Oksxl5(:2jp$.oIrWER17Wgd*#2c+$Y(7SaHhutBfgo[*E,ãU"dJn&YH0)\>Ywjq)x9=qnpahP)l3Q5DsCz+:TG]M8SritdC'$tt3+e03hXwQq1MPãU"FDzGT6COYAJe)dYmenNMO5.kze6%%92l(N?E*S)a[=w)[ZpLDBwD/JuL5;3e^FnãU"bjR0#7-Acu^1b#USea_urR#B?lWtrRQ&[HRv[3LTG;Yk*Y)eHjAz?0)#J*TpJi>ãU"#B8JIADBN5tsxN=Rid>oN>vcs\w5]r)Sw\KT^nJ>)mB$YJMSW>hcAW(JkG*vm($ãU"lem?6MrmJ%0u0Ac;u\ZVc2X?[hMJGtWfpfb;rThCMPlhP(ãU"Z&8PQO/DQKUZYLn+,^e$L9gpCIXu)R,i9k$V3e^tãU"^5X5HeI96.>r4\ub-ELZ6F_:zAb5Ra(lV'R7GhC9,b]?kD28)XOO]4_>wkP*8XOãU"f8UIy3J&_MX3.9$S,F8O;aiw$G>,[JGT\&;rk>C4xX0S)$Y)E>9)gOH=aIP;SGmãU"gCL%^qtãU"V+S3ti+*FP,dw>C?6gg+9';jl'[+T/Z4KbhldV[yC48q(/'hBHn(.V7:rgsk.oJãU"swSrj^AdM=Da5#GkKM*tm'^La2?ZpS&VD+tJZv1r0+F/x9-%%n1Jj9#',\aJ4FRãU"V5DxMYuVoo22tf3X_of%Z,h(JVrsB\cO(I?F1-/g[F,rZ7pzwzNZzY.s#7c4*]6ãU"Bw#WZ)sJK[&NSf1nq3u0xNL[)_9i]cYBXNS?(<.\1aWGbUlGl0yCpH=R=-Yt[+uãU"UXp00[KyXF1kGeLw5rRhl$(uH-Yx_B6f\le\T)lg%v)oDDVQTq_lGog:ee>pvHAãU"aMPe?Nmu$>Oot#XMES6=:g8ãU"N*mAfjm]Y+1:aV/M:VA&GGQ7qklnT6VeF:d[SVtw,%w>&_$dLI,[*,7^u?J+3G4ãU"Mk-UbJl.B=Jb6QFY5ZcdJ]LfW^ld&L45FZ$o/w)DNnYsnb7b2hCK-hP*/nbbcJ[ãU"Ro*1H:xH(c5FXd)<>^?p[iZl]O(%2DIywa/3h&#Ajjq*Q7M[1$p?6EGgz$HãU"af_O%/($Tks4&(HY=%*1DuDT.6DEFKQht*4jãU"E4keZNa,P1qt(coRF?jm*PZViOrEy1_W4n_N)HUz0PpA8oGKZe7;oKo6g#n(%/ln/8&=14577mT=;:ãU"nOZ7v-;p2+]>E4OWGkte-M_DV[KpunOpElN^47RbICUQQRM5r55ãU"h31+qv\31R7%iV[kE%VJNL\P?Lc]2%N:W>3mZ?M*f3DegHq&R3%WwS'>;AzNqbUãU"ZHJ_7-?^NMY'uW6*uvWmD?RIGsj4O2g]cKBQiJF&4RnI5UiQdzpI34&H#4zZ^&pãU"+,\Hv[OXBYZ3G0[+a+BH*)T:sLqn9sO[\YzWc=_Y5ZSPZ5BvSl)fjCx$T6Xja\_ãU"UZ\%VDiXWI&(y?qdBb2p)YLJp;EWN>iei9mn]o?gm5l$4MIT.M:w(kc0N$pzVDOãU"i:k/h1'Qh?fR2*0$wieQX$63J$UgsXfQgyVh0W4+Y'h'98UnNyT)?j%ntu?TYhjO?Fz)-=\QãU"jU4j+w]vd_umRnNPUwJz:AN4:0gJH+pwRKn:;1b&lLkq$/M'bCg]h%zXLL%LoWQãU"9>9rIMZO?3:9xajeU4ZjN?,X%,scS7&xiP'+jz_ãU"C7^-=S,H=Lt<5.E$b6H,i%6Y((b9H->hãU"Y9\Tw7YfqADN*a=Ttf[F4[o:n>(w=ESUlWEg>hPãEND SUBãSUB V2ãU"RIa5:tUXJ_PPB+l0R2J=]'FJh(z:aGpe6o):+^&#mRIJsTcHc:'45nYJ'A49GiFãU"P$Uv2H01m(8$24-D024n1MBT[\aFNLq2-HdX[i,17TIcFbxhzM<8-*bAh-VozE\ãU"h_t4'iDpC&+.nK](8hW:3:H;usufm)pjtQVLvEiigs=T5I0T[mRcSl_7:IIi/<\ãU"V1g*3Frjaa9_th*s&tyMGSk0qe&iH0jt1F1gg$9Eg13*9S]hxX8oT:&RQ2n;x;(ãU"j]3<^)UkVtnqDI%HeqD=2[5X$XGs25/vW9)L?zp0C>#gP#7$Bo4Iw*4Z_1QV*F$ãU"gP$ZHrT;[HZKqbPmGIDMb[L,h*O5UZ3#QomNAGXVg36D4:0?9\^)Dj7t&>LsB$HãU"aGrvrvbkw?23VN5Q9J%Ct*SWLfmA'aECb[O.n0^ZyL7ejo&cqmMv0rMrSc)jZDiãU"g(%eOb=7QWG4(>OnJc=L-$mãU"wLiIHZ]C=cJhGl*J&mãU"igSkt:84:#Hx3%\m=#=brf$0USrfmwRWZ^zymdN4Hp;*fjyqhWGx)Hw$_+ObD5TãU"':Xe-3C#R5\/W4]1opb'Z>P<1bM4=X8n]%r[kqkTKSyGHV:b_jn5)*X[TY<-s]GãU"ja%P1_AH&D#8jDl]'.I\;acPUwqUU-V$S?k?306A.rC(AX.3URph9S9<#=Q9ERWãU"ZAoI#j;5pk&R)IhoG-hDl$4fXduiRN?'ROeVb4-EC&;zCq(ZOLr:NQ$+$Ll[gSbãU"xb/7?(O't=T#LTN=IUQfnCv].DnEuN['WcXY:1zS>.?+GY'h-2xnYn(?qS[BTLFãU"2ilFf,0#h+A?Z1,;_*]Z%%]nl9DeC3^%RCPVK'rZse2%E0:#^WN'Fqc_%2-nh^UãU"b[f5A(FXGbI^O[6r?Cjk)m,c^7Kq:1F>a:ZYEruM$gW6s&n[M^ClHkYu>ZU[X^h_Js;ur^8:\Ds;;+8seu'dãU"skNR+-1L.;fF:FCcCg$e?*&6[#&Lj-bSVc4m;g0aL&hgj>hK&(m9s?66XW[a\dYQ]WiqU(m%k?;lr(ãU"v_2VMe=XLgNsu1:e$*2Wk13lY;0EDv\)&,M8]*9J&9/*$0+Ze1]tHN*B%#.E>QmãU"Rg$$%6AZGN=*&HU^,=;2[mg$$n(AgQ-UIx)r=Js04ME7Xr'ZnRnb91(4>>-=f&)wpAd2t9B5=Q4p/a?mY?[oezKãU"lt^AolB>U>I/pbPW]o5iLq;:5zv0V8'p-U8*-[30,*(t)IgR3KdO9V3Ra4^/g:5ãU"p[5;2,Z.L:fXlJ[dh;\q^?3mABX=Ei%1(xk=?9vp47GiO%/^r6W?pEAblqj,Ei*8A1IA(Gbo>meLwUNg.g1_>LdZ^mãU"i?o=FkT?13,:3N1=d\tW6Y,V9LBtL[AX-T<3v4sbqF%:63A:T0*o))t)JL('ZD2)7e87'OE\tOKBpg%.U2%_Ac%Ng3nWRP6,>iz^=HJ,0ãU"U(Bbj524,YsCN&+bfA2pf?ax=oE<%ivIChGd1c1en+x:C=Ztx[mK6f(h6,27e]YãU"[Q3x_<9B':3kgDIPVq(R:4pC\)m_Bc%%jBKoV(Tp\riDkkHU0n3\P]G-CCigSRPãU"mr6G5W8.)8#*Y8*&jR(pK1f\c_^rLXt5\Q+[ec%rllTXPM73JBV-M^[W&5pdnuEãU"fV.kRnNgwZ3:(O&=drMu'lgs/d[(IdTtQ:-l);zb&]]gobi#&eamP.V%ãU"x[*AxblZ:?7;'xnGeR7mOQo)dT^Y-MTOgJãU"8*7]Y6aXocK*cR-gCTV_grXvGhT&y*ma2(f>7[;&bA\m8A_QW)Feds+kh%ns/>&AG1nr^lwTFUxdm=K?XfET)jQ?%T530dWp%^$Ti7wãU"O[4B::,^k-EXy>Z')/XoauS6wAz^oLkXBDl.uvuSq>B_MB&(6:SJf6\#gfj\sV.l9oNt=fJc2i][XãU"977KL,CBOO;y&g-l\NH*lPuMKAQ4&aeb^-=;:Ek];^ip2=WQ.Md/G6)ibUTaaZ.ãU"bAX5\&u:D(n5=1P(NY-s.WK:#uVRfkXf+Oq/?4;e1ie)ge'nw28C8w8vk4zpE#oãU"N(C7RTY#tvHjS[*_b[fx]th:vpehWw5QO8+/=CqW$Me7zwna.\_tjVn-['89uD.ãU"\X5;ct%o<\yScmEQc6B;:2LX_hWipr5Ut+Pj+RNpuIeft8>CObU.ndtN&h_&h#AZo&'$)3i^WãU"vfW,ocQCXh7\pBbXXn^j#\qIs\dMqS=ra?56ãU"3b:;rBBoq0]8H.>WFPc8XBHs[Zh69bj4SD#dX&l/6RR4;.zJ5tAPl;=>o22JN^$ãU"hMuQ#i('Fnnk8v$Zwoh_V]AXV5F#N6PR(xc]ãU"LG\='R%GEL3,l)=;w/K?xp)KihsSWoBuo0<,WTSb>Wu/^TL3h$;jzuZp-[Lc/nAãU"o0.eexu,7a#%c9Mo=2SY%0EUtVAg[K+8Hd:bdq/M^*LvwS8fp7qEsLiuX+*MV>4N;b;t3fuj/.#q%WZa[bjkhqX\WL0o;*bP8:9fJ)a&GZgaqXIp[ãU"#\3R8gBr$hpjZfj\Q/VL#H>TNg(SH$k2^q:GV$-trJ)rc$%04$'$G^RWO#(UwS#ãU"y#Pbq'Pw8'1h)wjl3]kUkFwgsJ$ZfsB4F:OS6qP?]\Au3UA3[;sCI)z\'ukD%lUE=nãU"*2%$2iZ4MD]Y&'?IKi2]/yTqbOkEp<-;0zzS5B8$TpEOZ:_M<].OnD%HJ8j2#o0ãU"bT>tbNr=aR+hFE*%A,t3O$nHscGg0&nI-nNGP,O1$=OdF2R($pvU3j+B_7>kZE/KãU"Y-iA:Rjp&&mgp&/dK0O0$hDG0lS_gr_%OP\jRTN6dQn:RXdl9r&t1?U3REsNRazãU"P?Y9%fKUDCtwkO4&1\e^#[<3g'%V\JIiIt-tn5,(\vj1TFR;PX0<6IuIA(h$9R]ãU"=W]A;*H'0663jNL%8&J3.A=iVuLK-fH1[SuF91^X#(h9kT/-Y;\#AV1aAk33[FW?4Zh[;BIb=pel0mlvZãU"[_L:9BHM7,C)F6AaB#yUw0+Zi21.s(ãU"8aK(];-3g'lg\%Z;>bs^5ut8=k&N*^)d_hcw'7UV>(rN+.Y;c3Cz%&(Wrdcsej2ãU"c3?>0EQ0k6DeUX+h[M?W2\rbOJF7h>vdb9kqm*k&[36s>v:;7Y7-u5611m?NN&\ãU"K-o2&bRD('877:=ua[kb,kD:;rBkgvti%Sq0;s+JjXI(]LB$W7+(RLnF/8TKTdRãU"J\_3lxC,B]BMfMOgw7IT_JLjr0,]HLPTG&(wN^kv(&%I/E)*/t=J;RvqUhAL.;UãU"$Y.UkOvlQ5QEKQVT>DcãU"ZudIe-oTewNv_x&Y_qx.qW]$NSigTIiR40Z.W:x8fz'&D6+J1K)L/Fcmreuf2scãU"R&DkqIh9*ENQ0ey#oRr$k9ecO9F')S.XãU"ge'FF_,g9WU8njM>ZEC#9gGitLQHtmXyadA:5IZTQPf-?,L^+?5XOpZqY=A#>qQãU"nn3X#Lo/C.%*,/XtKUoZy4#wd=T0jN)q6doBr;Ztr$j&E_:b^f*D3RQ8omd[H3bãU"V=\UpzgE:S(fU=v_i:+$4,yUO>vb0#B+aszhG_XzXVRJX/,v_hf^E&g%6BO?lk$ãU"/*;f);Hz2h5yk_&Tbfp_[n=N&Gz/[7GFPC#H8J[Wc4/x?lCSk>4&'#FZIm)?[U5ãU"TMWaNUpPW/gXaw9d4/dY&;t\\Q8^*?v6%VyC1E#KSXD^>SK43*PT_B=UNG'YNYfãU"p%T\+.tGrFex%K3O/*#d8x\-5m[:\jTW9g=.n^h_?\AhH^iDzRrJLI)MpJYJ4\^ãU":3(H8Qjagd,d%VM9nJ0w\eGQxEcf=:0O'hsKoWzn%Yz#x5l:8(iO#)/kC,^Rne'ãU",cv0/B2djafC4KE>56>#]+3FLN-JV#Uwuemq.jd:);ffYhr*Yt.t;Ux;K#mSJ#qãU"a:DQR$)vt_+9MZ9D*HG0tz(f+ZFTCblZ^ow,8(f[jdZ__UDwuh,NMVhDMP>VmcwãU"ul;Z_9L>yLLoH=_;L/4])VTm>OF*Jkt>*./Ov_M:TSl6InEA##<;vw69GKll3-=4.jMRLsDg1E395-?NF:3;7.'Pi4O;$ypA-/QHGGp,kjK6Y(I(VdD%&W/:IZm17Y\7D&V:ãU";,%4N3x)3[:thAsJpK=4XQP&;&^Hr0o$K?Cs)8mxWQ&%Qo/atOh%c(hiCCmCY?PãU"Dnj]\&AZK%UsdevjWv64>q4ma:TEjk\)IpO2,>6A:Q.4]lwxY2GaV+0FEsP%__yãU"oBI&=yUV?qcIUr*n-oxiqt&I1xdCTP[#Aj(wSij33WZe<-014,ynk>mJ''^=w]GãU"b.=:YrXq2M9<%9Z,5V5K^RuEj&Rc81c7*LlvOl_XNll5Av+RDu)3+0KUCVA19jRãU";'2>Yil*$1[#VPKM(j<68NrGZx7J?xcEsf\DonqpvE?dJ6&,dmQpt2F2*E*o*6oãU"vdp1wzqMPE_)DV[U.Q8s).BU(0&;3cQwpGU]6.M]^hP]=>yIFNYrw#RYDU4IS^fãU"?to_gd2j%pF^D3K7LX3sD,57V+k7BCk-ifF\N2d)<_nv?kOnbT1VRqITM0+tãU";S+s\\8D$e-l79T+?0i^Lcqk37XA[8^-id#Ali_>qunAVw?#:^Ru42?8iPgoNK6ãU"25Yezise,qY0[]\eHL0cEbo3Y,E$bE?R<7$8OSg>6B'(omVbD0EK?g;Flvt>*RpãU"58r1)3G7ag\6>#l#'=/MswAbEf;5zv,v[v9Upelx2/4],Gj;fF4$t6pDe3WH__9ãU"/8:DNc;0[jpsOHVW2M>6#9x/^ãU"wf+;FJEKW3oDWS5v^K7Q/1q%H)$>_%Zc6lh0-a>Iipv*._7tp;vg,ZvL%5*W7;aãU"5LOFC^cg8J2]e5zFRtsNk5mVK>u*J#Zsb464urfgm[ãU"Ow]f]1PwuG;:2*O9K)pngyelNR*'7N53v9mOWF'c-._\tzKNf)kfjFMc4^qmU7=ãU":u)VbG&q.9(k_5Y^;)./PãU"gb9,=&PFqA-m0yUksK9OugEUQ3GQEeg-=DLgg.#>e(i>9G2,1TRq$QT^g$(r.<'ãU"I_175+7^8Um4vmzfSX+CGG5-Hf0,Nn02)W%\j:Nxi=p\b_>Tar#%:zR]-#VsWF8ãU"B(gU&,S-6n00/Y5&?Ka:ocP^;G\>9\,KK-+slZ5iTWjq*lgEuSuq()N,Q;ivN]:ãU"FVdLI07XJ49Mdm7=-qDpZE].-piI,/.'$Y?cc-HhganlWs4HRruFnrYqEC8[se.ãU"UUVYyZ;''pH3(Y7:00;5KHiMNB:;d0aw]r0gO7f3.XZIO\t2nT[c6S3^'oEwnX4ãU"HH3?1a3cAj07;0IHzad<9#9r7w6T=jb*ss2)*xpOV*=Lu+mGp%eVtZ3EQ-?m_=9ãU"YI.MYllh[OVVp&00CJ?h8=;4IQ2dbXe2lnfj$'\U#&;V(<1DVs?(3\Pl#,m)$_)ãU"yyL158Jqb3NOw(HvOi*n\y]d)aG?rl+i;V;?b)Hga4FDtHF[C&V.[hWdB:RcA3(ãU"+C=7]bG?D:W*i2w.N6T*pw7LatWmRwlnFWvmV=*ZuNf^Y)9?b?5+59nHD65sMHqãU"Gxl*(EktQ*AJfHs-'psVP%Yq\DuYO,NSJP=_d=iHZ_4xM#0q\fJfu]5)_#=,>C0ãU"3fhJU_RqxZãU"Ys_=HK%j:hh?2LOBorgI5(D6S#*1FSn?s[i[f=yf]-]%DhUKf6REuPR'(My#jfRE/Gjq;Eb]'2kY>%ãU"*z#FwJ1.j'K=)e8(mIrH[22tPxMYQBB.$dEccj*qlY8=wi*T/GJ9UGZ2*a-Qk$,ãU"qY]0ISf-a4(Y/-0q\o.spm)OohCMF4TgCS\>sT/dCtzLf2Ip%g4Tg(J5$?M.uJrãU"1WYV)ZCqiEw'Vs+slg7BM'Ut.;>s9*?E[?d87#5[P\u0a^eb-7[/1Nl\9Z\hLgyYiA,*'wg%2s-ãU"1J&T',6S22.6t%M)RE,1AI4AB8A[UT4)lC7?RMp2OHNYei(vFPZ:nci0rãU"r\1.=[B:chU#J-*s-A1E3He;%HoF54g[OVAk[LA82O>8i=Qwor>bf8BSZg'0nesãU"$u9Si[1.ãU"Rs,+NaFD\%H&u6\_PgRr/MF-]-Yrm1hi,_[z,IX;;YYRU)-v*$qC^_ii:;DchJ>>fJf+\J1K?lG11hcW+t\E/x0ãU">gWahOmSV/Y4pQg$KgDtX&llhwYIqLy>K+Lz_3;<5'X.I#Rh+#oUJD?ZmYaaJ7m2J'ãU"]EGxiJy7[J5ãU"+i>&(1D$?CjnKk3T9jNb8$7-zK#Ca_lcnQ5')KyR'q&3RtivgD1ãU"/AfD9ji2twB[aA^Gd;zKBwWA-f$X(Kd:**Mn)_tkN5*3?D9CD5wd%F?Iq\hãU"j5R&\-&2jrhS/vXQz?94F0&$m(Mr)lb-sl+gB)wbGn:Fo-m4OCDH.:8=QF_/aj4ãU"hY.Lagt&8OkY7GOb1J$AP#*Y,y8phKZdmVPbe,CUX62euCsEv[i;:f.-OD$XvgoãU"&f33>vghc^I#YMHi'>jPe1lWZsel&gdj^=u\=MS^xpo*Kri(5:vgqSp15dl[LLcãU"+Xv_yU9dq8'MD.cO5&-$k-ENq32,ZQ3s<+l=&yUG->it&\=?d<]mVe;R=V6rO:cãU"%IFer[1h?S9q,>4dW'=U*fE$Ln?R-j2.,+v,SKc/1Tro(cj7(5'XiM$7d1+9+[0;OE>&-?5YpnJN(hdP=nnNtI&zR^4fKiqAH2ln_)&F1N9O$ãU"jI80\E^dc%k9&==L\F1F>*I9_>fU4iUyXSF^969]^QUbX6$x2VlzG%&Q,M\/DUDãU"ZCCPP$Cr+V$FDb7^ZfHaE)*e%MYokLS+8)4_ZL)H4Ijad8$Xm3(mlY=CUbFyMsC^FqM&WTx7nDch$wJdg(&M*YsI+XeãU"':2\JP1pc=SPNj]D$^wXgY%wG,*bmcju\=[Ubopt0g[>]DW;l>Bt36'xo-E7(paãU"]05g6MtTdLeS\k*D[G91TcEkp.$*u&lS):isãU"e-T9j?LWWQJ/c8hf/?&7'V.qL2FGMMk/_oXRo?p(6Lv?6I0:w\.q'WC)tGbPcXDãU".Fu.og[aZ#SG/qftpnmnNr;Gk4T686TMnSIcPYHCQ/CKE&CZ65YiQhV.;EHlf':ãU"d+QkO82kwpVS3PE7qXGNLAItKhNJFsr#Z5v^n.3'uPjYVnd,swe$+4tZGx#A.*yPynmp>2.+x03'[l*ãU"2-8mOwOdxApX#p.C,CKb]h.nwD0.VAQ#X]Gzk:#%1<7Y2sT^)6A'rIWLZ)qvZ96ãU"heYeXy_,ftbfOFIog'saC*((&_h:rrC]0j$P_CE('Rt]F7r]j^,ThD_HOgo)%G:bGdhY*03LB60bT+U3O9ulgzFPC6%&WZT^ãU"a=W[S3**Nl:AP7583To?VDSu&Z,/&fWg(l(DY\'U>).3MG/BotXrGJ]9/&;1xt4ãU"ZwqX48-29h:1cIm.*-Ih;S9nbwW5NJO$*Cg0wQ;/cjpp;dIoI>Jhl-TUW#I&r5gãU"Gu4L'*R<5m.Mf-6I&>R.eãU">F30t=%K[:1l$a&\ctCg-N9haHhE*At',M_MeRMcOM(IRa>j0'j[ZoSz,J=K'w%ãEND SUBãSUB V3ãU"^_,MZ'gB0ps[>OHRnOM(Zl,DjBltTQh8xALd$AS;slC1ht:FVb=xNEI/9LZ7[9TãU"SaL#y98XMJ3aKIEH_oB,ZeBb3*o]pX^:mnYM,&T5fORHxZ51.y?xOYREpC$<^e-ãU"8J\5)p1*PM'Y.-Wx>D(?'9C%S3^K32#e=;#wvbg7ja>:CKBw*>'R3(WQJ'Bk'_qãU"EpXh=mBg7Emi9x%,MkfeI2sA=?Xx.(wM36fn2yhK&C<<_ygASjt=knY3r._-IabãU"O\sqT+=i\ro9R:v,Hgs:keaV>pM\N6H\.R4h4=_\82(SNDU\Lmc.c1D9/,J\o$=ãU"[,5z)p87]1_Z]g^sL;(YqFKL$D7:A+>?.>-Db#%ImO7Bk(GQ:IRW)CML'X)p:>0ãU"-q,jtG1'KFP&jH./FXvN=)\50+b7p;hdd3d;4W'NLL(zn%3tr/dTgB98?mp[Pa1ãU"8BCdaaoIAFsr[QJ91H$'2qQk$XstJDjY9yMB2p9MyU1kUaBDu45[Ql&qL=X5t;dãU".9Z5$.j^M)$o2[YmZ<)OIEgo&7u(\Z7]dFy/+Gt*mc46g&%v4-kK?u'SWVJYW4fãU",&&K:'md^.M=qL5#l/9a,<8nrEl0T:-xDm0>uO&7s8MH84>l&]+du_x/M^ST,1bãU":*f8:-M+j#1E/bR5hr6.\m,[tUYZ.)_)c6b$*D*OMBDISejRO)g,7P%R;N9;O(GãU"h1KhTYl$+LW$Ta22a<19eTr(JeiP>(xfuka$PRQ:LY4a\061=iW15bjg18x^c#sãU"o^AXuPNF>-i5s9Sk?:FZFYY):FvOdDU^J(1<#ãU"?k=,Qd9>;b,[?I;F[I2p^aHo-4X/#I1f_-s3b9%?%J*W,3W>2Y'=kJ0(:CfdjYIãU"wA,C*BWZ%Wbchf\D=9kT)8s5T>:D(gg>,tdnv,$1SA0W3xogmk,^_7mHof\k'\vãU"4r97LHf^P5iG>=0YX;lcI(]pYãU")C]X*VwqLjKV)([B;M4%YMpnC5cUjiIp&LDwYP'/.zcZ>_Mr],%3VqLe(K+kBR<ãU"hIqSk=OGJTgs<=$)s3D?pW#z-Sq9h'):#/Hv?'9r6ok7QHYDQ(r'cbo?GA>pE>XãU"pEJ6p&-XeyBJa'Ts0w5L\(qJYO-j&%bB;LME+H<6e>/ZUFD1xkN>'HP%AU1y+K.ãU"qDR/P>xe#VT\JPy&IX\w)OM&Vwc&[#TNNoNd4u1idFPYT1)E8lBrC:G.8qT]E\rãU"l<1cq:j;-pAlMcz/1i0b%8NTlBQPD=A;RRVj0V2hQA\IXujqp*Qmp8#(RPdlW:M,[6w_EY?52Ww5(R]ãU"xeqKkNq=E(upgz&A%)y0b<,7+5g8wQt8lbe$K]x[CSw\W=?6r^[an7KP:0FRãU"p4R4:6nr/h5e&lPc1ORYSGDCj,8AHT4I=4FNk)<][*MCcQsOR8t6Bc39*2V[Kt0ãU"n[-+Zv%J.q5SI*J=-2H\ZAm'=$D7w9Ye=z4AjV0tQO+p0i7AKvOJkAb7\[WCN_]ãU"Xbob+WOwvSYK';$9VraN\42]bhi.%>%,-Hhfy.0Uu*p.uNB[N<>w2/acWkf>=,MãU"^\7\v5brshHjUgFQkN-e?^#Yy00$D)CKV,,WONZ.p$ev3XD?ek\aM7;+jwvL9rGãU"Gk)TDQaM,SXV6sp&HXsI0J\(h8#d?,T-8$l751UgBp[Y/vWU=hjd[4x\m1T=FGwãU"P&M2RiTIxJs&[c'XHH40Nm;sNH9;fNSSp1+hy:)lTJ-lc2(vf2fG\-OWV<'t.4OãU"<0U#m;Y2-(OF0Q=U)o:.&/le-TkVrie.=?(W2gSof\*mAU?]&TãU"gBgEF+.HT0*4c4#l4)GO]Xl8WaJqK.;S)?nw-Rg>Ifi3moy71Z$%v-TM$eldPLrãU"]8'jhSHN]_Wj+ITnMIV,9%([e]3GJEN\J9l[\A]ZYudxo'>E0\DN+SCPb?(mRR>ãU"yF^AHfB(,g$kx#N/%J9jFA.%PE/)&+u6u=]GCuG,cDP>#N6uXc)Fmj?8aDZctKwãU"mrk*N?2Y_?%T65vKJgDDV#h\t%D6xn](tFOFeJNNcVN1bv,&jT5m:lei_PMWeKf$d#?d$P;=FãU"?m;4j5IqZ,W%.TX#0TeIw>e'M([j=Jginz+-j][VI-QAcgX\WãU"n5Nbje6EA^8p2-D>;Rc,$,R4ox>qG4bx2v*Kh'mBQh:Eo'R<ãU"U:5+cYW&9:v/52:G]7*F,b:/m'8Z2[a[uL^qi>DãU"i1ie9g>Q-J>6JdeWiUm91xE7Hop#b*6ZWknBDX.7,9.D\H.h;xn%zU;lTIM&d-/ãU"8lLKdO=5O*goHP-4zROlh#$T(3aObspBZh\g=Kku0e-(aX#=ERn>[w^O-d7y*:oãU"A/:c6B+(y(otAtUGrAY,TugK?P3XUo[a=0%oF#mCTmeds_m_EZV7GK+2Tj) 638) THENã xd1 = 0 - xd1ã END IFãã IF (x2 < 1) OR (x2 > 638) THENã xd2 = 0 - xd2ã END IFãã IF (a1 < 1) OR (a1 > 638) THENã ad1 = 0 - ad1ã END IFãã IF (a2 < 1) OR (a2 > 638) THENã ad2 = 0 - ad2ã END IFãã IF (y1 < 1) OR (y1 > 478) THENã yd1 = 0 - yd1ã END IFãã IF (y2 < 1) OR (y2 > 478) THENã yd2 = 0 - yd2ã END IFãã IF (b1 < 1) OR (b1 > 478) THENã bd1 = 0 - bd1ã END IFãã IF (b2 < 1) OR (b2 > 478) THENã bd2 = 0 - bd2ã END IFãã INCR xãã IF x = 1000 THENã INCR c1ã INCR c2ã IF c1 = 16 THEN c1 = 9ã IF c2 = 16 THEN c2 = 9ã x = 0ã END IFãã DELAY .08ããLOOP UNTIL LEN(INKEY$)ããSCREEN 0ãDavid Gentry FLICKER FREE SPRITES comp.lang.basic.misc 02-05-97 (20:20) QB, QBasic, PDS 351 13273 SHIPDEMO.BAS'> I've been programming for a little over 3 years in Qbasic. I know theã'> standard BASIC graphics statements, but I'm trying to get into moreã'> advanced techniques. The main things are sprites, flicker free tiles onã'> modes greater than 9(page flipping), ect. If someone can direct me toã'> any good books, sites, or tutorials I would be in your debt.ã ã'If it is SPRITES you want, it is SPRITES you get. I have found theã'following code that demonstrates FAST, FLICKER FREE SPRITES.ãã'The following program is the sole creation of David Graceã'PRODIGY (CDRS62D). David Grace, like so many other good ã'programmers, has left PRODIGY. So if you wish to comment orã'leave a reply about this DEMO, please address it to Davidã'Gentry using the above I.D. number! ãDECLARE SUB PUT2P (X%, Y%, AR%())ãDECLARE SUB FONT (a$, X%, Y%, stepX%, stepY%, CO%, Background%, SHADOW%)ã' This short demo for an action-shoot'em-up game was ã' posted because of several questions about animation. ã' In this code you will find examples of page-flipping ã' animation, including a new sprite-clipping routine thatã' allows you to place a GETted sprite past the boundariesã' of the screen. Also, scrolling stars, explosions, ã' sprite movement/limitation on movement is shown. Usingã' ideas here, one could possibly build an entire game fromã' this concept. (BTW: Format of title screen was gotten ã' from a Genesis game.) Title: SHIPDEMO.BAS (1-6) ãCLEAR , , 2000: DEFINT A-Z: SCREEN 7: CLSã DEF FNR (X) = INT(RND * X) + 1ã DIM E1(150), E2(50), E3(15), S1(500) ' dim arrays ã DIM S2(500), F1(70), F2(40), R1(200)ã DIM CX(50), CY(50), CT(50)ã DIM TEMP(500)ã DIM SX(50), SY(50), ST(50)ã ã ã SCREEN , , 0, 1 ' set paging mode ã CIRCLE (50, 50), 10, 7ã PAINT (50, 50), 7ã LINE (40, 50)-(60, 51), 12, Bã LINE (40, 50)-(60, 51), 9, B, &H5555ã LINE (53, 43)-(54, 44), 15, Bã PSET (57, 45), 15ã LINE (45, 55)-(55, 55), 12ã LINE (46, 56)-(54, 56), 4ã PSET (45, 45), 1: PSET (44, 46), 1ã PSET (46, 45), 11: PSET (45, 46), 11ã LINE (43, 45)-(42, 46), 1ã GET (40, 40)-(60, 60), E1 'draw & get enemy1 ã CLSã CIRCLE (50, 50), 5, 7: PAINT (50, 50), 7ã LINE (45, 50)-(55, 50), 9ã LINE (45, 50)-(55, 50), 12, , &H5555ã LINE (48, 53)-(52, 53), 4ã PSET (52, 47), 15: PSET (48, 47), 1ã GET (45, 45)-(55, 55), E2 'draw & get enemy2 ã CLSã CIRCLE (50, 50), 2, 7ã PAINT (50, 50), 7ã LINE (48, 50)-(52, 50), 4ã LINE (48, 50)-(52, 50), 1, , &H5555ã PSET (51, 48), 15ã GET (48, 48)-(52, 52), E3 'draw & get enemy3 ã CLSã LINE (50, 50)-(100, 50), 7ã LINE (60, 45)-(100, 50), 7ã LINE (60, 45)-(50, 45), 7ãã LINE -(50, 50), 7ã PAINT (51, 49), 15, 7ã LINE (50, 54)-(100, 54), 7ã LINE (100, 54)-(60, 59), 7ã LINE (60, 59)-(50, 59), 7ã LINE -(50, 54), 7: PAINT (51, 55), 15, 7ã LINE (50, 51)-(95, 53), 3, BFã LINE (82, 51)-(80, 53), 1, BF: PSET (80, 51), 9ã LINE (76, 50)-(79, 54), 1, BF: PSET (79, 50), 9ã LINE (72, 49)-(75, 55), 1, BF: PSET (78, 50), 9ã LINE (71, 49)-(71, 55), 11: PSET (76, 49), 9ã LINE (60, 49)-(70, 55), 5, BFã LINE (60, 50)-(70, 54), 13, BFã LINE (59, 49)-(59, 55), 11ã FOR I = 50 TO 58 STEP 2ã LINE (I, 51)-(I, 53), 8ã NEXTã LINE (90, 44)-(70, 40), 8ã LINE (70, 40)-(50, 40), 8ã LINE -(50, 37), 8ã LINE -(76, 37), 8ã LINE -(90, 44), 8ã PAINT (51, 38), 7, 8ã LINE (55, 41)-(56, 44), 11, Bã LINE (75, 42)-(71, 46), 11ã ã LINE (90, 60)-(70, 64), 8ã LINE (70, 64)-(50, 64), 8ã LINE -(50, 67), 8ã LINE -(76, 67), 8ã LINE -(90, 60), 8ã PAINT (51, 65), 7, 8ã LINE (55, 63)-(56, 60), 11, Bã LINE (75, 62)-(71, 58), 11ã ã LINE (49, 46)-(49, 58), 8ã LINE (48, 47)-(48, 57), 8ã LINE (47, 46)-(47, 58), 7ã LINE (47, 46)-(47, 58), 8, , &H5555ã GET (47, 37)-(100, 67), S1 'draw & get ship1 ã ã ã CLSã CIRCLE (50, 50), 7, 4: PAINT (50, 50), 4ã CIRCLE (50, 50), 5, 12: PAINT (50, 50), 12ã CIRCLE (50, 50), 3, 14: PAINT (50, 50), 14ã LINE (51, 43)-(58, 57), 0, BFã GET (43, 43)-(50, 57), F1 'draw & get flame1 ã ã ã CLSã CIRCLE (50, 50), 4, 12: PAINT (50, 50), 12ã CIRCLE (50, 50), 2, 14: PAINT (50, 50), 14ã LINE (51, 46)-(54, 54), 0, BFã GET (46, 46)-(50, 54), F2 'draw & get flame2 ã ã ã CLSã PUT (50, 50), S1ã GET (50, 50)-(100, 56), TEMPã PUT (50, 51), TEMP, PSETã LINE (50, 50)-(90, 50), 0ã GET (50, 61)-(105, 90), TEMPã PUT (50, 59), TEMP, PSETã LINE (53, 79)-(79, 79), 8ã LINE -(93, 71), 8ã GET (50, 51)-(103, 79), S2 'alter & get ship2 ã ã ã CLSã LINE (50, 50)-(50, 100), 7ã LINE (48, 51)-(49, 99), 7, Bã LINE (46, 54)-(47, 96), 7, Bã LINE (45, 56)-(45, 94), 7ã LINE (50, 70)-(49, 80), 8, Bã PSET (50, 69), 15: PSET (50, 81), 15ã LINE (48, 57)-(49, 64), 3, Bã LINE (48, 86)-(49, 93), 3, Bã LINE (44, 60)-(44, 68), 8ã LINE (44, 83)-(44, 91), 8ã GET (44, 50)-(50, 100), R1 'draw & get rship ã CLS : PCOPY 0, 2 'prepare our "background" page ã FOR I = 1 TO 50 'sprinkle some stars ã SX(I) = FNR(319): SY(I) = FNR(199)ã ST(I) = FNR(2)ã NEXTã ã ã ED = 0: ET = 0: TOG = 0ã DOã PCOPY 2, 0 'copy background to template ã FOR I = 1 TO 50 'move & display stars ã IF ST(I) = 1 THEN C = 1 ELSE C = 9ã PSET (SX(I), SY(I)), Cã SX(I) = SX(I) - ST(I) * 5ã IF SX(I) < 0 THENã SX(I) = 319: SY(I) = FNR(199)ã ST(I) = FNR(2)ã END IFã IF ET > 550 THEN SY(I) = SY(I) - (550 - ET)ã NEXTã IF ED = 1 AND EXD = 0 THEN 'short burst ã PUT2P EX - 8, EY + 3, F1()ã PUT2P EX - 28, EY - 17, F1()ã PUT2P EX - 48, EY - 37, F1()ã END IFã SELECT CASE ED 'display enemies ã CASE IS = 1: ã PUT2P EX, EY, E1()ã PUT2P EX - 20, EY - 20, E1()ã PUT2P EX - 40, EY - 40, E1()ã CASE IS = 2: ã PUT2P EX + 5, EY + 5, E2()ã PUT2P EX - 15, EY - 15, E2()ã PUT2P EX - 35, EY - 35, E2()ã CASE IS = 3: ã PUT2P EX + 7, EY + 7, E3()ã PUT2P EX - 13, EY - 13, E3()ã ãã PUT2P EX - 33, EY - 33, E3()ã END SELECTã IF Y <> 0 THEN 'display ship ã IF YD <> 0 THENã PUT2P X, Y + 2, S2()ã ELSEã PUT2P X, Y, S1()ã END IFã IF TOG = 0 THEN 'fire flame ã TOG = 1: PUT2P X - 8, Y + 8, F1()ã ELSEã TOG = 0: PUT2P X - 5, Y + 11, F2()ã END IFã END IFã IF EXR <> 0 THEN 'put rship ã PUT2P EXR, 70, R1()ã IF TOG = 0 THEN 'give it some flames ã PUT2P EXR - 8, 77, F1()ã PUT2P EXR - 8, 99, F1()ã ELSEã PUT2P EXR - 5, 80, F2()ã PUT2P EXR - 5, 102, F2()ã END IFã END IFã IF YD = 0 AND XD = 0 AND ET > 121 AND X <= 63 THENã IF TOG = 0 THEN 'lasergun shots ã LINE (X + 35, Y + 9)-(319, Y + 9), 9, , &HFF00ã LINE (X + 35, Y + 9)-(319, Y + 9), 3, , &HCC00ã LINE (X + 35, Y + 21)-(319, Y + 21), 9, , &HFF00ã LINE (X + 35, Y + 21)-(319, Y + 21), 3, , &HCC00ã ELSEã LINE (X + 35, Y + 9)-(319, Y + 9), 1, , &HFFã LINE (X + 35, Y + 9)-(319, Y + 9), 11, , &HCCã LINE (X + 35, Y + 21)-(319, Y + 21), 1, , &HFFã LINE (X + 35, Y + 21)-(319, Y + 21), 11, , &HCCã END IFã FOR I = 1 TO 5 '"puff" of damage ã PSET (317 - FNR(10), FNR(18) + Y + 5), 15ã NEXTã END IFã IF EX = 1 THEN 'random explosions ã C = FNR(2)ã IF C = 1 THEN C = 4 ELSE C = 12ã a = FNR(30) + 299: B = FNR(50) + 75ã CIRCLE (a, B), FNR(20) + 10, Cã PAINT (a - 9, B), Cã IF X > 62 THENã EXR = EXR + 1: IF EXR > 330 THEN EXR = 330ã END IFã END IFã IF EX = 2 THEN 'debris falling behind ã FOR I = 1 TO 20ã IF CX(I) > 0 THENã PSET (CX(I), CY(I)), 15ã CX(I) = CX(I) - CT(I)ã IF CX(I) < 0 THEN CX(I) = 0ã END IFã NEXTã END IFã IF X = 80 THEN 'large flame burst ã CIRCLE (X - 5, Y + 20), 100, 15ã PAINT (X - 5, Y + 20), 15ã XD = 30: X = X + 1ã END IFã IF ET < 20 THEN 'text ã FONT "Coming soon...", 100, 95, 8, 0, 15, 0, 8ã END IFã IF ET > 390 AND ET < 450 THEN 'text2 ã FONT "...to a computer near you...", 50, 95, 8, 0, 11, 0, 0ã END IFã IF ET > 450 AND ET < 550 THEN 'text3 ã a$ = "* S T A R S H I P L E G E N D I I *"ã FONT a$, 10, 85, 8, 0, 14, 0, 0ã FONT "(don't miss it!)", 100, 100, 8, 0, 6, 0, 0ã END IFã PCOPY 0, 1 'copy template to viewing screen ã ET = ET + 1 'cycle timer (add delays if too fast) ã IF ET = 30 THEN 'activate enemies ã EX = 350: EY = 200: ED = 1: EXD = -23: EYD = -8ã END IFã IF ED > 0 THEN 'enemy move parser ã EX = EX + EXD: EY = EY + EYDã EXD = EXD + 1: IF EXD > 20 THEN EXD = 20ã IF (EX MOD 2) = 0 THENã ã EYD = EYD + 1: IF EYD > 2 THEN EYD = 2ã END IFã IF EXD > 1 AND (ET MOD 3) = 0 THENã ED = ED + 1: IF ED > 3 THEN ED = 3ã END IFã IF EX > 350 THEN ED = 0ã END IFã IF ET = 120 THEN 'activate ship ã X = 0: Y = 200: XD = 10: YD = -15: EX = 0: EXR = 340ã END IFã IF ET > 121 THEN 'ship move parser ã IF EX = 0 THENã EXR = EXR - 1: IF EXR < 314 THEN EXR = 314ã END IFã X = X + XD: Y = Y + YDã XD = XD - 1: IF XD < 0 THEN XD = 0ã YD = YD + 1: IF YD > 0 THEN YD = 0ã IF XD = 0 AND (ET MOD 7) = 0 THEN X = X + 1ã END IFã IF X > 65 AND EX = 1 THEN 'explosion parser ã EXR = 0ã PALETTE 0, 15ã EX = 2ã FOR I = 1 TO 20ã CX(I) = 319 + FNR(50): CY(I) = FNR(50) + 70ã CT(I) = FNR(20) + 10ã NEXTã PALETTE 0, 0ã END IFã IF X > 60 AND EX = 0 THEN EX = 1 'switch expls ã ãã LOOP UNTIL INKEY$ <> "" OR ET > 570 'repeat ã CLS : PCOPY 0, 1 'clear active page ã ENDã ãextX% = stepX%: extY% = stepY%ãDEF SEG = &HFFA6ã FOR I% = 1 TO LEN(a$)ã addr% = 8 * ASC(MID$(a$, I%)) + 14ãIF Background% THENãIF Background% = 256 THEN BG% = FALSE ELSE BG% = Background%ã ãIF I% = LEN(a$) THEN extX% = FALSE: extY% = FALSEãLINE (X%, Y%)-(X% + 7 + extX%, Y% + 7 + extY%), BG%, BFãEND IFãFOR j% = 0 TO 7ãmask% = PEEK(addr% + j%) * 128ãIF SHADOW% > 0 THENãLINE (X% + 9, Y% + j% + 2)-(X% + 2, Y% + j% + 2), SHADOW%, , mask%ãEND IFãLINE (X% + 7, Y% + j%)-(X%, Y% + j%), CO%, , mask%ãNEXTãX% = X% + extX%ãY% = Y% + extY%ãNEXTãDEF SEGããSUB FONT (a$, X%, Y%, stepX%, stepY%, CO%, Background%, SHADOW%)ããEND SUBãã' PUT2P - PUT Type II: ã' Clipping PUT routine. ã' ãSUB PUT2P (X, Y, AR()) STATICã IF X < 0 OR Y < 0 THEN EXIT SUB 'off screen ã IF X + AR(0) < 320 AND Y + AR(1) < 200 THENã PUT (X, Y), AR, PSET: EXIT SUBã END IF 'already on screen ã IF X > (320 - AR(0)) THEN VL = 320 - X ELSE VL = AR(0)ã IF VL < 1 THEN EXIT SUB 'no need ã IF Y > (200 - AR(1)) THEN VL2 = 200 - Y ELSE VL2 = AR(1)ã IF VL2 < 1 THEN EXIT SUB 'no need ã SAR = AR(0): SAR1 = AR(1) 'hold copy ã AR(0) = VL: AR(1) = VL2ã PUT (X, Y), AR, PSET 'put modified array ã AR(0) = SAR: AR(1) = SAR1 'restore altered bytes ãEND SUBãAngelo Ken Pesce ROTATING SPHERE OF FIRE ken@uniserv.uniplan.it 02-10-97 (19:02) QB, QBasic, PDS 249 6698 FIREBALL.BASDECLARE SUB ReadRGB (red%, grn%, blu%, slot%)ãDECLARE SUB WriteRGB (red%, grn%, blu%, slot%)ãDECLARE SUB SetPal (start.slot%, end.slot%)ãDECLARE SUB flam ()ã'{A little rotating sphere, by Glen Jeh, 8/12/1994, use freely}ã'{Try messing with the constants...code is squished a little}ã' Converted to BASIC by William Yu (05-28-96)ã' Revision + Static FastFireEffect v2 added by Angelo Pesce (1997)ã'ã' 192 colors version (palette routines by Andrew L. Ayers)ã'ã' COMPILE WITH ALTERNATE MATH FOR BEST PERFORMANCEããDEFINT A-ZãDECLARE SUB DrawPoints ()ãDECLARE SUB SetupBall ()ãDECLARE SUB Rotate ()ããPRINT "FireSphere"ãPRINT ".........."ãPRINTãPRINT "press enter for defaults"ãPRINTãã' x and y are multiplied by scale and divided by distanceã0 DIM SHARED Scale AS INTEGERãINPUT "Scale:"; temp1$ãIF temp1$ = "" THEN Scale = 50: GOTO 1ãScale = VAL(temp1$)ãã' mystery constant :-)ã1 DIM SHARED Radius AS INTEGERãINPUT "Radius:"; temp2$ãIF temp2$ = "" THEN Radius = 80: GOTO 2ãRadius = VAL(temp2$)ãã' number of slicesã2 DIM SHARED Slices AS INTEGERãINPUT "Slices:"; temp3$ãIF temp3$ = "" THEN Slices = 24: GOTO 3ãSlices = VAL(temp3$)ãã' points per sliceã3 DIM SHARED PPS AS INTEGERãINPUT "Points Per Slice:"; temp4$ãIF temp4$ = "" THEN PPS = 40: GOTO 4ãPPS = VAL(temp4$)ãã4 CONST Pi = 3.1415ããTYPE PointTypeã x AS INTEGERã y AS INTEGERã z AS INTEGERãEND TYPEããDIM SHARED points(1 TO Slices, 1 TO PPS) AS PointTypeãDIM SHARED Ball(1 TO Slices, 1 TO PPS) AS PointTypeãDIM SHARED XAngle, YAngle, ZAngleãDIM SHARED SinTable(0 TO 255) AS INTEGERãDIM SHARED CosTable(0 TO 255) AS INTEGERãDIM SHARED Distance, Dirãã FOR i = 0 TO 255ã SinTable(i) = INT(SIN(2 * Pi / 255 * i) * 128)ã CosTable(i) = INT(COS(2 * Pi / 255 * i) * 128)ã NEXT iã SCREEN 13ãã Distance = 100: Dir = -3ã SetupBallã XAngle = 0ã YAngle = 0ã ZAngle = 0ãã' FORM BLACK TO REDãCALL WriteRGB(0, 0, 0, 1)ãCALL WriteRGB(63, 0, 0, 63)ãCALL SetPal(1, 63)ãã' FROM RED TO YELLOWãCALL WriteRGB(63, 0, 0, 64)ãCALL WriteRGB(63, 63, 0, 127)ãCALL SetPal(64, 127)ãã' FROM YELLOW TO WHITEãCALL WriteRGB(63, 63, 0, 128)ãCALL WriteRGB(63, 63, 63, 191)ãCALL SetPal(128, 191)ã'ãPALETTE 192, 63ãã DOã Rotateã DrawPointsã flamã XAngle = XAngle + 3ã YAngle = YAngle + 2ã ZAngle = ZAngle + 1ã Distance = Distance + Dirã IF XAngle > 250 THEN XAngle = 0ã IF YAngle > 250 THEN YAngle = 0ã IF ZAngle > 250 THEN ZAngle = 0ã IF Distance >= 300 THEN Dir = -3ã IF Distance <= 30 THEN Dir = 2ã LOOP UNTIL INKEY$ <> ""ãCLSãSCREEN 0ãWIDTH 80ãPRINT "Angelo KEN Pesce 1997"ãENDãã'{mystery procedure}ãSUB DrawPointsã FOR i = 1 TO Slicesã FOR i2 = 1 TO PPSã IF (points(i, i2).z >= 0) AND (points(i, i2).x <= 319) AND (points(i, i2).x >= 0) AND (points(i, i2).y >= 0) AND (points(i, i2).y < 199) THENã PSET (points(i, i2).x, points(i, i2).y), 192ã END IFã NEXT i2ã NEXT iããEND SUBããSUB flamãDEF SEG = &HA000ãFOR yp = 0 TO 100ãFOR xp = 0 TO 319ãcol = PEEK(yp * 320 + xp)ãcol = col + PEEK(yp * 320 + (xp - 1))ã' ************** BLACK JUMP ROUTINE **************************ãIF col = 0 THEN GOTO fastout: ' BLACK JUMPã' ************************************************************ãcol = col + PEEK((yp - 1) * 320 + xp)ãcol = col + PEEK((yp + 1) * 320 + xp)ãcol = col + PEEK(yp * 320 + (xp + 1))ãcol = FIX(col / 5 - 1)ãIF col < 0 THEN col = 0ãPOKE yp * 320 + xp, colãfastout:ãNEXTãNEXTãsg = &HA000 + &H7D0ãDEF SEG = sgãFOR yp = 1 TO 99ãFOR xp = 0 TO 319ãcol = PEEK(yp * 320 + xp)ãcol = col + PEEK(yp * 320 + (xp - 1))ã' ************** BLACK JUMP ROUTINE **************************ãIF col = 0 THEN GOTO fastout1: ' BLACK JUMPã' ************************************************************ãcol = col + PEEK((yp - 1) * 320 + xp)ãcol = col + PEEK((yp + 1) * 320 + xp)ãcol = col + PEEK(yp * 320 + (xp + 1))ãcol = FIX(col / 5 - 1)ãIF col < 0 THEN col = 0ãPOKE yp * 320 + xp, colãfastout1:ãNEXTãNEXTãDEF SEGãEND SUBããDEFSNG A-ZãSUB ReadRGB (red%, grn%, blu%, slot%)ã 'ã OUT &H3C7, slot% ' Read RGB values from slotã 'ã red% = INP(&H3C9)ã grn% = INP(&H3C9)ã blu% = INP(&H3C9)ã 'ãEND SUBããDEFINT A-ZãSUB Rotateã'UPDATES all (X,Y,Z) coordinates according to XAngle,YAngle,ZAngleã ã FOR i = 1 TO Slicesã FOR i2 = 1 TO PPSã '{rotate on X-axis}ã TempY = (Ball(i, i2).y * CosTable(XAngle) - Ball(i, i2).z * SinTable(XAngle)) / 128ã TempZ = (Ball(i, i2).y * SinTable(XAngle) + Ball(i, i2).z * CosTable(XAngle)) / 128ã ' {rotate on y-anis}ã TempX = (Ball(i, i2).x * CosTable(YAngle) - TempZ * SinTable(YAngle)) / 128ã TempZ = (Ball(i, i2).x * SinTable(YAngle) + TempZ * CosTable(YAngle)) / 128ã '{rotate on z-axis}ã OldTempX = TempXã TempX = (TempX * CosTable(ZAngle) - TempY * SinTable(ZAngle)) / 128ã TempY = (OldTempX * SinTable(ZAngle) + TempY * CosTable(ZAngle)) / 128ã points(i, i2).x = (TempX * Scale) / Distance + 320 / 2ã points(i, i2).y = (TempY * Scale) / Distance + 200 / 2ã points(i, i2).z = TempZã NEXT i2ã NEXT iãEND SUBããSUB SetPal (start.slot%, end.slot%)ã 'ã num.slots% = end.slot% - start.slot%ã 'ã CALL ReadRGB(sr%, sg%, sb%, start.slot%)ã CALL ReadRGB(er%, eg%, eb%, end.slot%)ã 'ã rr% = ABS(er% - sr%): rg% = ABS(eg% - sg%): rb% = ABS(eb% - sb%)ã rs% = SGN(er% - sr%): gs% = SGN(eg% - sg%): bs% = SGN(eb% - sb%)ã 'ã stepr = (rr% / num.slots%) * rs%ã stepg = (rg% / num.slots%) * gs%ã stepb = (rb% / num.slots%) * bs%ã 'ã R = sr%: g = sg%: b = sb%ã wr% = R: wg% = g: wb% = bã 'ã FOR t% = start.slot% TO end.slot%ã 'ã CALL WriteRGB(wr%, wg%, wb%, t%)ã 'ã R = R + stepr: wr% = Rã g = g + stepg: wg% = gã b = b + stepb: wb% = bã 'ã NEXT t%ã 'ãEND SUBãã'{sets up the ball's data..}ãSUB SetupBall ' {set up the points}ã FOR SliceLoop = 1 TO Slicesã Phi! = Pi / Slices * SliceLoop ' 0 <= Phi <= Piã FOR PPSLoop = 1 TO PPSã Theta! = 2 * Pi / PPS * PPSLoop ' 0 <= Theta <= 2*Piã '{convert Radius,Thetha,Phi to (x,y,z) coordinates}ã Ball(SliceLoop, PPSLoop).y = INT(Radius * SIN(Phi!) * COS(Theta!))ã Ball(SliceLoop, PPSLoop).x = INT(Radius * SIN(Phi!) * SIN(Theta!))ã Ball(SliceLoop, PPSLoop).z = INT(Radius * COS(Phi!))ã NEXT PPSLoopã NEXT SliceLoopãEND SUBããSUB WriteRGB (red%, grn%, blu%, slot%)ã 'ã OUT &H3C8, slot% ' Write RGB values to slotã 'ã OUT &H3C9, red%ã OUT &H3C9, grn%ã OUT &H3C9, blu%ã 'ãEND SUBãNick Kochakian COOL SHADED TEXT NickK@worldnet.att.net 02-11-97 (18:28) QB, QBasic, PDS 299 6410 SHADETXT.BASDECLARE SUB shadetxt (x1!, y1!, x2!, y2!, way!)ã'----------------------------------------------------------------------------ã'Cool shaded textã'ã'2/11/97ã'1997 By: - Nick Kochakian -ã'ã'If you have any comments or questions please e-mail me at:ã'nickK@worldnet.att.netã'ã'And if you would like to use the SHADETXT sub routine in your programã'please say something nice about me in your program! :)ã'ã'Have fun! :)ã'----------------------------------------------------------------------------ããSCREEN 13ããx = 10ãy = 10ãã'The color of the text HAS to be color 16ãLOCATE x, y: COLOR 16: PRINT "Shaded grey text"ãããx1 = 71ãy1 = 72ãx2 = 200ãy2 = 79ãã'How to select the range for your text:ã'ã'1. Uncomment the LINE and END statements belowã'2. Adjust the x1,y1,x2,y2 values so a nice white box surrounds the textã'3. Comment the LINE and END statementsã'LINE (x1, y1)-(x2, y2), 15, Bã'ENDãã'There are 14 settings for the WAY variable! Try them all!ãã'way=1 -> Grey marble shaded textã'way=2 -> Ooze shade text... Works really good with a palette cycling routine!ã'way=3 -> Light source is at the bottom of the screenã'way=4 -> The opposite of way=3ã'way=5 -> Another marble effectã'way=6 -> Dark text with holes in itã'way=7 -> Another marble effectã'way=8 -> Bright at the bottom, dark/light at the topã'way=9 -> Centered light (dim)ã'way=10 -> Centered light (brighter)ã'way=11 -> Centered light (brightest)ã'way=12 -> "Light source" is directly centeredã'way=13 -> "Light source" is focused on the right side of the textã'way=14 -> The opposite of way=13ããCALL shadetxt(x1, y1, x2, y2, 1)ãCOLOR 15ããSUB shadetxt (x1, y1, x2, y2, way)ãx = x1ãy = y1ãctr = 1ãcurcol = 31ãcc = 1ããIF way = 1 THENãDOãIF POINT(x, y) = 16 THEN PSET (x, y), curcol: curc$ = "y"ãIF cc = 1 AND curc$ = "y" THEN curcol = curcol - 1: curc$ = ""ãIF cc = 2 AND curc$ = "y" THEN curcol = curcol + 1: curc$ = ""ãIF curcol < 18 THEN cc = 2ãIF curcol > 30 THEN cc = 1ãx = x + 1ãIF x > x2 THEN x = x1: y = y + 1ãIF y > y2 THEN ctr = 2ãLOOP UNTIL ctr = 2ãEND IFããIF way = 2 THENãDOãIF POINT(x, y) = 16 THEN PSET (x, y), curcol: curc$ = "y"ãy = y + 1ãIF y > y2 THEN y = 1: curcol = curcol + 1: x = x + 1ãIF curcol > 30 THEN curcol = 16ãIF x > x2 THEN ctr = 2ãLOOP UNTIL ctr = 2ãEND IFããIF way = 3 THENãcurcol = 31ãchar = 0ãDOãIF POINT(x, y) = 16 THEN PSET (x, y), curcolãx = x + 1ãIF x > x2 THEN x = 1: y = y + 1: curcol = curcol + 1ãIF char = 8 THEN curcol = 31ãIF curcol < 16 THEN curcol = 31ããIF curcol > 30 THEN curcol = 16ãIF y > y2 THEN ctr = 2ãLOOP UNTIL ctr = 2ãEND IFããIF way = 4 THENãcurcol = 31ãchar = 0ãDOãy = y + 1ãLOOP UNTIL y >= y2ããDOãIF POINT(x, y) = 16 THEN PSET (x, y), curcolãx = x + 1ãIF x > x2 THEN x = 1: y = y - 1: curcol = curcol + 1ãIF char = 8 THEN curcol = 31ãIF curcol < 16 THEN curcol = 31ããIF curcol > 30 THEN curcol = 16ãIF y < y1 THEN ctr = 2ãLOOP UNTIL ctr = 2ãEND IFããIF way = 5 THENãcurcol = 16ãchar = 0ãc = 0ãDOãIF POINT(x, y) = 16 THEN PSET (x, y), curcolãy = y + 1ãIF y > y2 THEN y = 1: x = x + 1: char = char + 1ããIF char = 4 THEN curcol = curcol + 1: char = 0ããIF curcol > 30 THEN c = 1ããIF c = 1 THEN curcol = curcol - 1ãIF curcol < 20 THEN curcol = 30ããIF x > x2 THEN ctr = 2ãLOOP UNTIL ctr = 2ãEND IFããIF way = 6 THENãcurcol = 16ãchar = 0ãc = 0ãDOãIF POINT(x, y) = 16 THEN PSET (x, y), curcolãy = y + 1ãIF y > y2 THEN y = 1: x = x + 1: char = char + 1ããIF char = 4 THEN curcol = curcol + 1: char = 0ããIF curcol > 20 THEN c = 1ããIF c = 1 THEN curcol = curcol - 1ãIF curcol < 16 THEN curcol = 20ããIF x > x2 THEN ctr = 2ãLOOP UNTIL ctr = 2ãEND IFããIF way = 7 THENãcurcol = 16ãchar = 0ãc = 0ãDOãIF POINT(x, y) = 16 THEN PSET (x, y), curcolãy = y + 1ãIF y > y2 THEN y = 1: x = x + 1: char = char + 1ããIF char > .5 THEN curcol = curcol + 1: char = 0ããIF curcol > 30 THEN c = 1ããIF c = 1 THEN curcol = curcol - 1ãIF curcol < 20 THEN curcol = 30ããIF x > x2 THEN ctr = 2ãLOOP UNTIL ctr = 2ãEND IFããIF way = 8 THENãcurcol = 20ãchar = 0ãDOãIF POINT(x, y) = 16 THEN PSET (x, y), curcolãx = x + 1ãIF x > x2 THEN x = 1: y = y + 1: char = char + 1ããIF char = 1 THEN curcol = 21ãIF char = 3 THEN curcol = 22ãIF char = 4 THEN curcol = 23ãIF char = 5 THEN curcol = 25ããIF y > y2 THEN ctr = 2ãLOOP UNTIL ctr = 2ãEND IFããIF way = 9 THENãcurcol = 20ãchar = 0ãDOãIF POINT(x, y) = 16 THEN PSET (x, y), curcolãx = x + 1ãIF x > x2 THEN x = 1: y = y + 1: char = char + 1ããIF char = 1 THEN curcol = 21ãIF char = 3 THEN curcol = 22ãIF char = 4 THEN curcol = 24ãIF char = 5 THEN curcol = 22ããIF y > y2 THEN ctr = 2ãLOOP UNTIL ctr = 2ãEND IFããIF way = 10 THENãcurcol = 20ãchar = 0ãDOãIF POINT(x, y) = 16 THEN PSET (x, y), curcolãx = x + 1ãIF x > x2 THEN x = 1: y = y + 1: char = char + 1ããIF char = 1 THEN curcol = 22ãIF char = 3 THEN curcol = 25ãIF char = 4 THEN curcol = 27ãIF char = 5 THEN curcol = 23ããIF y > y2 THEN ctr = 2ãLOOP UNTIL ctr = 2ãEND IFããIF way = 11 THENãcurcol = 20ãchar = 0ãDOãIF POINT(x, y) = 16 THEN PSET (x, y), curcolãx = x + 1ãIF x > x2 THEN x = 1: y = y + 1: char = char + 1ããIF char = 1 THEN curcol = 23ãIF char = 3 THEN curcol = 27ãIF char = 4 THEN curcol = 29ãIF char = 5 THEN curcol = 24ããIF y > y2 THEN ctr = 2ãLOOP UNTIL ctr = 2ãEND IFããIF way = 12 THENãcurcol = 17ãcnttr = 1ãchr = 0ãDOãIF POINT(x, y) = 16 THEN PSET (x, y), curcolãy = y + 1ãIF y > y2 THEN y = 1: x = x + 1: chr = chr + 1ãIF chr = 4 THEN curcol = curcol + 1: chr = 0ãIF curcol > 30 THEN cnttr = 2ãLOOP UNTIL cnttr = 2ããcnttr = 1ãDOãIF POINT(x, y) = 16 THEN PSET (x, y), curcolãy = y + 1ãIF y > y2 THEN y = 1: x = x + 1: chr = chr + 1ãIF chr = 4 THEN curcol = curcol - 1: chr = 0ãIF curcol < 17 THEN curcol = 17ãLOOP UNTIL x > x2ããEND IFããIF way = 13 THENãcurcol = 17ãchr = 0ãDOãIF POINT(x, y) = 16 THEN PSET (x, y), curcolãy = y + 1ãIF y > y2 THEN y = 1: x = x + 1: chr = chr + 1ãIF chr = 4 THEN curcol = curcol + 1: chr = 0ãIF curcol > 30 THEN curcol = 30ãLOOP UNTIL x > x2ãEND IFããIF way = 14 THENãcurcol = 30ãchr = 0ãDOãIF POINT(x, y) = 16 THEN PSET (x, y), curcolãy = y + 1ãIF y > y2 THEN y = 1: x = x + 1: chr = chr + 1ãIF chr = 4 THEN curcol = curcol - 1: chr = 0ãIF curcol < 17 THEN curcol = 17ãLOOP UNTIL x > x2ããEND IFããEND SUBãNick Kochakian SHADED BAR BACKGROUND NickK@worldnet.att.net 02-12-97 (15:23) QB, QBasic, PDS 43 672 BARBACK.BAS DECLARE SUB SHADEBARS (SC!, EC!, WAY!)ã'Bar backgroundã'ã'This program should make a nice shaded bar background. Use this routineã'as you wish.ã'ã'Any questions or comments should goto:ã'ã'nickK@worldnet.att.netã'ã'1/30/97ã'1997 By: - Nick Kochakian -ããSCREEN 13ããSC = 16 'Starting colorãEC = 30 'Ending colorããCALL SHADEBARS(SC, EC, 1)ããSUB SHADEBARS (SC, EC, WAY)ããX = 1ãY = 1ãX2 = 1ãY2 = 200ããDIRS = 1ãCOL = SCãDOãLINE (X, Y)-(X2, Y2), COLããIF DIRS = 1 THEN COL = COL + 1ãIF DIRS = 2 THEN COL = COL - 1ãIF COL >= EC THEN DIRS = 2ãIF COL <= SC THEN DIRS = 1ããX = X + WAYãX2 = X2 + WAYããLOOP UNTIL X > 316 AND X2 > 316ããEND SUBãNick Kochakian COLOR CHOSER FOR BAR BACKGROUNDNickK@worldnet.att.net 02-12-97 (15:23) QB, QBasic, PDS 76 1400 COLCHOSE.BAS'Color Choose 1.0ã'ã'Use this to choose colors for my program: BARBACK.BASã'1/30/97ã'1997 By: - Nick Kochakian -ããCLSãSCREEN 13ãLINE (1, 1)-(47, 20), 7, BãLOCATE 1, 9: PRINT "<- Sample"ãSC = 0ãEC = 0ãSET = 1ããGOSUB MAKECOLS:ãMCOLS:ãCOLOR 15ãLOCATE 2, 9: PRINT USING "Start col: ### End col: ###"; SC; ECãLOCATE 20, 1ãPRINT "1. Display sample"ãPRINT "2. Choose colors"ãPRINT "Q. Quit"ãDOãA$ = INKEY$ãIF A$ = "2" THEN GOTO CHOOSECOLS:ãIF A$ = "1" THEN GOSUB SAMP:ãLOOP UNTIL UCASE$(A$) = "Q"ã'''GOSUB DELCOLS:ãENDãã'Color set 1 - 0 - 100ã'Color set 2 - 101 - 255ããMAKECOLS:ãIF SET = 1 THEN MC = 148: COL = 0ãLOCATE 4, 1ãFOR COL = 0 TO MCãCOLOR COLãPRINT COL;ãNEXT COLãRETURNããCHOOSECOLS:ãLOCATE 20, 1ãPRINT " "ãPRINT " "ãPRINT " "ãLOCATE 20, 1ãCOLOR 15ãPRINT "End color has to be greater than start col!"ãINPUT "Start color (0-148) >", SCãINPUT "End color (0-148) >", ECãLOCATE 20, 1ãPRINT " "ãPRINT " "ãPRINT " "ãGOTO MCOLS:ããSAMP:ãX = 2ãY = 2ãX2 = 2ãY2 = 19ãCOL = SCãFOR COL = SC TO ECãLINE (X, Y)-(X2, Y2), COLãX = X + 1ãX2 = X2 + 1ãNEXT COLããFOR COL = EC TO SC STEP -1ãLINE (X, Y)-(X2, Y2), COLãX = X + 1ãX2 = X2 + 1ãNEXT COLãRETURNãAngelo Ken Pesce FLAMING TEXT ken@uniserv.uniplan.it 02-13-97 (11:15) QB, QBasic, PDS 219 4338 BURNTEXT.BASDECLARE SUB BrnPrint2 (y%, x%, text$, iter%)ãDECLARE SUB pal ()ãDECLARE SUB BurnPrintDel (y%, x%, text$, iter%, delay%)ãDECLARE SUB BetterBurnPrint (y%, x%, text$, iter%)ãDECLARE SUB BurnPrint (y%, x%, text$, iter%)ã' BurnPrint Routines Demoã' By Angelo KEN Pesce 1997ã' You can use those routinses as you wishã' ken@uniserv.uniplan.itããDEFINT A-Z: ' Not very useful hereããSCREEN 13: ' We must use screen 13ã' SetUp a 48 color palette (Routine made by Phobia)ãCALL palããCALL BurnPrint(11, 13, "Angelo 'Ken' Pesce", 20)ãCALL BurnPrint(13, 13, "TEXT Fireffect Demo", 20)ãCALL BurnPrint(15, 13, "ApsoftWARE 1997", 20)ããCALL BrnPrint2(5, 13, "BURN", 20)ãCALL BrnPrint2(5, 11, "Burn", 10)ãCALL BrnPrint2(5, 9, "burn", 5)ããwaittime = 3000: ' Trim it according your cpu speed (now is set for a P166)ããCALL BurnPrintDel(15, 13, "WAIT AND BURN", 20, waittime)ããCLSãCALL BetterBurnPrint(11, 13, "Clear Burning", 40)ãCALL BetterBurnPrint(15, 15, "--10--", 50)ãCALL BetterBurnPrint(15, 15, "--9--", 50)ãCALL BetterBurnPrint(15, 15, "--8--", 50)ãCALL BetterBurnPrint(15, 15, "--7--", 50)ãCALL BetterBurnPrint(15, 15, "--6--", 50)ãCALL BetterBurnPrint(15, 15, "--5--", 50)ãCALL BetterBurnPrint(15, 15, "--4--", 50)ãCALL BetterBurnPrint(15, 15, "--3--", 50)ãCALL BetterBurnPrint(15, 15, "--2--", 50)ãCALL BetterBurnPrint(15, 15, "--1--", 50)ãCALL BetterBurnPrint(15, 15, "--0--", 50)ããSCREEN 0ããSUB BetterBurnPrint (y%, x%, text$, iter%)ã' Sin TableãDIM sn(360)ãFOR r = 0 TO 360ãsn(r) = SIN(r)ãNEXTãã' PRINT THE TEXTãCOLOR 48: LOCATE y%, x%ãPRINT text$ãã' WAIT KEYPRESSãDO: LOOP WHILE INKEY$ = ""ãã' CALCULATE TEXT POSITIONããlenght = LEN(text$)ããxstart = (x * 8) - 8ãxend = ((x + lenght) * 8) - 8ãystart = (y * 8) - 32 - 8ãyend = (y * 8) - 8ããFOR r = 1 TO iter%ããFOR y = ystart TO yend + 8ãFOR x = xstart TO xendãcol = FIX((POINT(x + sn(a), y) + POINT(x, y + 1) + POINT(x, y - 1) + POINT(x + 1, y) + POINT(x - 1, y)) / 5)ãIF col < 0 THEN col = 0ãPSET (x, y - 1), colãa = a + 1: IF a = 360 THEN a = 0ãNEXT xãNEXT yãNEXT rãEND SUBããSUB BrnPrint2 (y%, x%, text$, iter%)ã' Sin TableãDIM sn(360)ãFOR r = 0 TO 360ãsn(r) = SIN(r)ãNEXTãã' PRINT THE TEXTãCOLOR 48ãFOR z = 1 TO LEN(text$)ãLOCATE y% + z, x%ãa$ = LEFT$(text$, z)ãa$ = RIGHT$(a$, 1)ãPRINT a$ãNEXTãã' WAIT KEYPRESSãDO: LOOP WHILE INKEY$ = ""ãã' CALCULATE TEXT POSITIONããxstart = (x * 8) - 8ãxend = (x * 8) - 8ãystart = (y * 8) - 8ãyend = (y * 8) - 8 + (LEN(text$) * 8)ããFOR r = 1 TO iter%ããFOR y = ystart TO yend + 8ãFOR x = xstart TO xend + 8ãcol = FIX(POINT(x + sn(a), y) + POINT(x, y + 1)) / 2 - (3 * RND)ãIF col < 0 THEN col = 0ãPSET (x, y), colãa = a + 1: IF a = 360 THEN a = 0ãNEXT xãNEXT yãNEXT rããEND SUBããSUB BurnPrint (y%, x%, text$, iter%)ã' Sin TableãDIM sn(360)ãFOR r = 0 TO 360ãsn(r) = SIN(r)ãNEXTãã' PRINT THE TEXTãCOLOR 48: LOCATE y%, x%ãPRINT text$ãã' WAIT KEYPRESSãDO: LOOP WHILE INKEY$ = ""ãã' CALCULATE TEXT POSITIONããlenght = LEN(text$)ããxstart = (x * 8) - 8ãxend = ((x + lenght) * 8) - 8ãystart = (y * 8) - 16ãyend = (y * 8) - 8ããFOR r = 1 TO iter%ããFOR y = ystart TO yend + 8ãFOR x = xstart TO xendããcol = FIX(POINT(x + sn(a), y) + POINT(x, y + 1)) / 2 - (3 * RND)ãIF col < 0 THEN col = 0ãPSET (x, y), colãa = a + 1: IF a = 360 THEN a = 0ãNEXT xãNEXT yãNEXT rããEND SUBããSUB BurnPrintDel (y%, x%, text$, iter%, delay%)ã' Sin TableãDIM sn(360)ãFOR r = 0 TO 360ãsn(r) = SIN(r)ãNEXTãã' PRINT THE TEXTãCOLOR 48: LOCATE y%, x%ãPRINT text$ãã' DelayãFOR zz = 0 TO delayãFOR z = 0 TO delayãNEXTãNEXTãã' CALCULATE TEXT POSITIONããlenght = LEN(text$)ããxstart = (x * 8) - 8ãxend = ((x + lenght) * 8) - 8ãystart = (y * 8) - 16ãyend = (y * 8) - 8ããFOR r = 1 TO iter%ããFOR y = ystart TO yend + 8ãFOR x = xstart TO xendããcol = FIX(POINT(x + sn(a), y) + POINT(x, y + 1)) / 2 - (3 * RND)ãIF col < 0 THEN col = 0ãPSET (x, y), colãa = a + 1: IF a = 360 THEN a = 0ãNEXT xãNEXT yãNEXT rããEND SUBããSUB palã' MADE BY PHOBIAãã' setup palette (Made By PHOBIA)ãFOR Ac% = 0 TO 63ãOUT &H3C7, Ac% / 4ãOUT &H3C9, Ac%ãOUT &H3C9, 0ãOUT &H3C9, 0ãOUT &H3C7, Ac% / 4 + 16ãOUT &H3C9, 63ãOUT &H3C9, Ac%ãOUT &H3C9, 0ãOUT &H3C7, Ac% / 4 + 32ãOUT &H3C9, 63ãOUT &H3C9, 63ãOUT &H3C9, Ac%ãNEXTãEND SUBããAngelo Ken Pesce FIRE AND BUMP ken@uniserv.uniplan.it 02-19-97 (20:05) QB, QBasic, PDS 712 16500 FIREBUMP.BASDECLARE SUB flam2 ()ãDECLARE SUB anim ()ãDECLARE SUB bump ()ãDECLARE SUB bump1 ()ãDECLARE SUB BurnPrint (y%, x%, text$, iter%)ãDECLARE SUB circles ()ãDECLARE SUB envcalc ()ãDECLARE SUB flam ()ãDECLARE SUB flam1 ()ãDECLARE SUB InputValues ()ãDECLARE SUB palinit (n!)ãDECLARE SUB ReadRGB (red%, grn%, blu%, slot%)ãDECLARE SUB setpal (start.slot%, end.slot%)ãDECLARE SUB statef ()ãDECLARE SUB testpat2 ()ãDECLARE SUB TestPatt (n!)ãDECLARE SUB textf ()ãDECLARE SUB waitkpress ()ãDECLARE SUB writeRGB (red%, grn%, blu%, slot%)ã' $DYNAMICã' USE QBX OR QB WITH /AH /NOFRILLS OPTIONSã' ( to say the truth I don't know if Qb has this options...... )ã' You need 612k of conventional memoryããããããããã' ***************************************************************************ã' ******************* History *********************************************ã' ***************************************************************************ã'ã' Demo v1: First version. (not relased)ã'ã' Demo v2: I changed some algorithms and added a "new" (minor) routinesã'ã' ***************************************************************************ã' ***************************************************************************ã' ******************************************* P L E A S E R E A D T H I S *ã' ***************************************************************************ã' ***************************************************************************ã' APSOFTWARE 1997 (Palette routines aren't mine....)ã' Angelo KEN Pesceã' ken@uniserv.uniplan.itã' 2d BUMPmapping EXAMPLE + FLAME EFFECTã' I can make better animated bump effects if I find the way to make anã' array to store the pattern instead putting it on the screen. (in fact thereã' is only one problem: the emp array fills all the avaible memory... if anyoneã' know how to get more memory to use for arrays on QuickBasic PDS7 pleaseã' email me, I need 64k more memory)ã' I also need to know a way to use the full 16m color vga paletteã' (white=256*256*256 instead of 64*64*64)ã'ã' THIS NEEDS A PENTIUM 100... (to run Interpreted in QBX PDS 7, not Compiled)ã' QUICKBASIC ISN'T A FAST LANGUAGE...ã' BUT IT'S GOOD TO MAKE "TEST" VERSIONSã' OF PROGRAMS AND ALGORITHMS...ã' ***************************************************************************ã' ***************************************************************************ã' ***************************************************************************ããããã' ***************************************************************************ã' ***************************************************************************ã' ***************************************************************************ã' ***************** THE MAIN CODE *****************************************ã' ***************************************************************************ã' ***************************************************************************ã' ***************************************************************************ãã' LIGHT POSITION (needed later in the bump subroutine)ãDIM SHARED lposx%ãDIM SHARED lposy%ãCLSãCALL InputValuesãã' CALCULATE LIGHT ENVIROMENT MAP "EMP"ãPRINT "Please wait: initializing enviroment map";ãDIM SHARED emp(255, 255): ' Enviroment map arrayãCALL envcalcãã' SCREEN AND PALETTE INITãSCREEN 13ãCALL palinit(2)ããDIM scrb(5625)ã' iNTRO FIREãFOR r = 1 TO 100ãFOR a = 1 TO 15ãx = INT((178 - 143 + 1) * RND + 143)ãPSET (x, 122), 190ãPSET (x, 121), 189ãPSET (x, 120), 188ãNEXTãCALL flam2ãGET (138, 0)-(183, 125), scrbãPUT (138 - 50, 25), scrb, PSETãPUT (138 + 50, 25), scrb, PSETãPUT (138 - 100, 40), scrb, PSETãPUT (138 + 100, 40), scrb, PSETãNEXTãCALL bumpãCALL waitkpressãFOR r = 1 TO 5ãCALL bumpãCALL flamãNEXTãFOR r = 1 TO 20ãCALL flamãNEXTãERASE scrbãã' iNTROãCLSãCALL BurnPrint(11, 11, "ApsoftWare 1997", 50)ãCALL BurnPrint(12, 12, "*** PRESENTS: ***", 50)ãCALL BurnPrint(13, 13, "Fire and Bump", 50)ãCALL BurnPrint(14, 14, "A QuickBasic DEMO", 50)ãCLSããCALL palinit(1)ãCALL BurnPrint(14, 14, "2D BumpMaps ahead", 50)ãã' Static Bump EffectãCALL statefããCLSãCALL BurnPrint(14, 14, "Don't play with fire", 50)ãã' Animated Fire EffectãCALL palinit(2)ãCALL flam1ã' Bump fire patternãCALL palinit(1)ãlposx% = 160ãlposy% = 200ãCALL bumpãCALL waitkpressããCALL palinit(1)ãCLSãCALL BurnPrint(14, 14, "Animated BumpMaps", 50)ãCALL palinit(2)ããCLSã' Animated Bump EffectãDIM SHARED scr(100, 70)ãlposy% = 100ãCALL testpat2ãCALL animããCLSãCALL palinit(1)ãCALL BurnPrint(14, 14, "Text fire effect", 50)ãã' Text FireeffectãERASE scr: ' We have to gain more memoryãERASE emp: ' So we deallocate unused arraysãCALL textfãã' THE ENDãENDã' ***************************************************************************ã' ***************************************************************************ã' ***************************************************************************ã' ***************************************************************************ã' ***************************************************************************ã' ***************************************************************************ããREM $STATICãDEFINT A-ZãSUB animãã' animated 2d bump effectãDOãFOR r = 0 TO 100 STEP 5ãlposx% = rãCALL bump1ãIF INKEY$ <> "" THEN EXIT DOãNEXTãFOR r = 100 TO 0 STEP -5ãlposx% = rãCALL bump1ãIF INKEY$ <> "" THEN EXIT DOãNEXTãLOOPãEND SUBããDEFSNG A-ZãSUB bumpã' bump effect routineããDEF SEG = &HA000ãFOR y% = 0 TO 100ãFOR x% = 0 TO 319ãlx% = x% - lposx%ãly% = y% - lposy%ãã' *********************************************************************ãnx% = PEEK(y% * 320 + (x% + 1)) - PEEK(y% * 320 + x%) + 128 - lx%ãny% = PEEK((y% + 1) * 320 + x%) - PEEK(y% * 320 + x%) + 128 - ly%ã' ORIGINAL VERSION (BEFORE V2)ã'nx% = PEEK(y% * 320 + (x% + 1)) - PEEK(y% * 320 + (x%-1)) + 128 - lx%ã'ny% = PEEK((y% + 1) * 320 + x%) - PEEK((y%-1) * 320 + x%) + 128 - ly%ã' *********************************************************************ããIF nx% < 0 OR nx% > 255 THEN nx% = 0ãIF ny% < 0 OR ny% > 255 THEN ny% = 0ãã' *********************************************************************ãPOKE (y% * 320 + x%), emp(nx%, ny%)ã' ORIGINAL VERSION (BEFORE V2)ã' POKE ((y%-1) * 320 + (x%-1)), emp(nx%, ny%)ã' *********************************************************************ããNEXTãNEXTããDEF SEG = (&HA000 + &H7D0)ãFOR y% = 1 TO 99ãFOR x% = 0 TO 319ãlx% = x% - lposx%ãly% = y% - (lposy% - 100): ' Use ly%=y%-(lposy%+100) to make a tiny 2 lightsã' effectãã' *********************************************************************ãnx% = PEEK(y% * 320 + (x% + 1)) - PEEK(y% * 320 + x%) + 128 - lx%ãny% = PEEK((y% + 1) * 320 + x%) - PEEK(y% * 320 + x%) + 128 - ly%ã' ORIGINAL VERSION (BEFORE V2)ã'nx% = PEEK(y% * 320 + (x% + 1)) - PEEK(y% * 320 + (x%-1)) + 128 - lx%ã'ny% = PEEK((y% + 1) * 320 + x%) - PEEK((y%-1) * 320 + x%) + 128 - ly%ã' *********************************************************************ããIF nx% < 0 OR nx% > 255 THEN nx% = 0ãIF ny% < 0 OR ny% > 255 THEN ny% = 0ãã' *********************************************************************ãPOKE (y% * 320 + x%), emp(nx%, ny%)ã' ORIGINAL VERSION (BEFORE V2)ã' POKE ((y%-1) * 320 + (x%-1)), emp(nx%, ny%)ã' *********************************************************************ããNEXTãNEXTãDEF SEGãEND SUBããSUB bump1ã' animated bump effect routineããDEF SEG = &HA000ãFOR y% = 0 TO 69ãFOR x% = 0 TO 99ãlx% = x% - lposx%ãly% = y% - lposy%ãnx% = scr((x% + 1), y%) - scr(x%, y%) + 128 - lx%ãny% = scr(x%, (y% + 1)) - scr(x%, y%) + 128 - ly%ãIF nx% < 0 OR nx% > 255 THEN nx% = 0ãIF ny% < 0 OR ny% > 255 THEN ny% = 0ãcol = emp(nx%, ny%)ãPOKE (y% * 320 + x%), colãNEXTãNEXTãDEF SEGãEND SUBããDEFINT A-ZãSUB BurnPrint (y%, x%, text$, iter%)ã' burning text routineãã' Sin TableãDIM sn(360)ãFOR r = 0 TO 360ãsn(r) = SIN(r)ãNEXTãã' PRINT THE TEXTãCOLOR 189: LOCATE y%, x%ãPRINT text$ãã' WAIT KEYPRESSãDO: LOOP WHILE INKEY$ = ""ãã' CALCULATE TEXT POSITIONããlenght = LEN(text$)ããxstart = (x * 8) - 8ãxend = ((x + lenght) * 8) - 8ãystart = (y * 8) - 25ãyend = (y * 8) - 8ããFOR r = 1 TO iter%ããFOR y = ystart TO yend + 8ãFOR x = xstart TO xendããcol = FIX(POINT(x + sn(a), y) + POINT(x, y + 1)) / 2 - (3 * RND)ãIF col < 0 THEN col = 0ãPSET (x, y), colãa = a + 1: IF a = 360 THEN a = 0ãNEXT xãNEXT yãNEXT rãEND SUBããSUB circlesã' circle generator routine - test patternããFOR i = 0 TO 12ãFOR x = 35 TO 0 STEP -1ãc = x + (i * i)ãd = ABS(x * x / 4 + i)ãCIRCLE (111, 200), d, cãCIRCLE (110, 200), d, cãCIRCLE (211, 200), d, cãCIRCLE (210, 200), d, cãNEXTãNEXTãEND SUBããDEFSNG A-ZãSUB envcalcã' enviroment map array initializiation routineããFOR y% = 0 TO 255ãFOR x% = 0 TO 255ãnrmx = (x% - 128) / 128ãnrmy = (y% - 128) / 128ãnrmz = 1 - SQR((nrmx * nrmx) + (nrmy * nrmy))ãIF nrmz < 0 THEN nrmz = 0ãemp(x%, y%) = CINT(nrmz * 190)ãNEXTãPRINT ".";ãNEXTãEND SUBããDEFINT A-ZãSUB flamã' fire - fade routineããDEF SEG = &HA000ãFOR yp = 0 TO 100ãFOR xp = 0 TO 319ãcol = PEEK(yp * 320 + xp)ãcol1 = PEEK(yp * 320 + (xp + 1))ã' ************** JUMP ROUTINE **************************ãIF col = col1 THEN GOTO fastout ELSE col = col + col1ã' ************************************************************ãcol = col + PEEK((yp - 1) * 320 + xp)ãcol = col + PEEK((yp + 1) * 320 + xp)ãcol = col + PEEK(yp * 320 + (xp - 1))ãcol = col / 5 - 6ãIF col < 0 THEN col = 0ãPOKE yp * 320 + xp, colãfastout:ãNEXTãNEXTãsg = &HA000 + &H7D0ãDEF SEG = sgãFOR yp = 1 TO 99ãFOR xp = 0 TO 319ãcol = PEEK(yp * 320 + xp)ãcol1 = PEEK(yp * 320 + (xp + 1))ã' ************** JUMP ROUTINE **************************ãIF col = col1 THEN GOTO fastout1 ELSE col = col + col1ã' ************************************************************ãcol = col + PEEK((yp - 1) * 320 + xp)ãcol = col + PEEK((yp + 1) * 320 + xp)ãcol = col + PEEK(yp * 320 + (xp - 1))ãcol = col / 5 - 6ãIF col < 0 THEN col = 0ãPOKE yp * 320 + xp, colãfastout1:ãNEXTãNEXTãDEF SEGãEND SUBããSUB flam1ã' fire routineãsg = &HA000 + &H7D0ãDEF SEG = sgãDOããFOR r = 0 TO 50ãa = INT(320 * RND)ãPSET (a, 198), 190ãPSET (a + 1, 198), 0ãNEXTããFOR yp = 60 TO 99ãFOR xp = 0 TO 319ãcol = PEEK((yp + 1) * 320 + xp)ãcol1 = PEEK(yp * 320 + xp + 1)ãIF col = col1 THEN GOTO fast ELSE col = col + col1ãcol = col + PEEK(yp * 320 + xp)ãcol = col / 3 - 3ãIF col < 0 THEN col = 0ãPOKE (yp - 1) * 320 + xp, colãfast:ãNEXTãNEXTãLOOP WHILE INKEY$ = ""ãDEF SEGãEND SUBããDEFSNG A-ZãSUB flam2ãDEFINT A-Zãsp = 3: REM FIRE Y SPEEDããREM ROUTINE RANGE: X 138-183, Y 0-125ããREM ROUTINE 0 FASTEST *************************************** Pixels 0 - 40ãFOR y = 0 TO 40ã FOR x = 138 TO 183ã col = POINT(x, y - 1)ã IF col = 0 THEN GOTO a1ã col = col - 1ã PSET (x, y - sp), colãa1:ãNEXTãNEXTããREM ROUTINE 1 FAST ****************************************** Pixels 41 - 65ããFOR y = 41 TO 65ã FOR x = 138 TO 183ã col = POINT(x, y + 1)ã col = col + POINT(x, y - 1): IF col = 0 THEN GOTO ken1ã col = col / 2 - 1ã IF col < 0 THEN col = 0ã PSET (x, y - sp), colãken1:ãNEXTãNEXTããREM ROUTINE 2 MEDIUM ******************************************* Pixels 66-80ããFOR y = 66 TO 80ã FOR x = 138 TO 183ã col = POINT(x, y)ã col = col + POINT(x, y + 1): IF col = 0 THEN GOTO ken3ã col = col + POINT(x, y - 1)ã col = col / 3 - 1ã IF col < 0 THEN col = 0ã PSET (x, y - sp), colãken3:ãNEXTãNEXTããREM ROUTIME 3 SLOW ******************************************** Pixels 81-125ãFOR y = 81 TO 125ã FOR x = 138 TO 183ã col = POINT(x, y)ã col = col + POINT(x + 1, y): IF col = 0 THEN GOTO ken6:ã col = col + POINT(x - 1, y)ã col = col + POINT(x, y + 1)ã col = col + POINT(x, y - 1)ã col = col / 5 - 1ã IF col < 0 THEN col = 0ãken6:ã PSET (x, y - sp), colãNEXTãNEXTããEND SUBããDEFSNG A-ZãSUB InputValuesãPRINT "Light position (good values are 160,100)"ãINPUT "x (from 1 to 320)"; lposx%ãINPUT "y (from 1 to 200)"; lposy%ãIF lposx% < 1 OR lposx% > 320 THEN lposx% = 160ãIF lposy% < 1 OR lposy% > 200 THEN lposy% = 100ãPRINTãEND SUBããSUB palinit (n)ã' palette setup routineããSELECT CASE nãCASE IS = 1ããCALL writeRGB(0, 0, 0, 0)ãCALL writeRGB(0, 0, 63, 63)ãCALL setpal(0, 63)ããCALL writeRGB(0, 0, 63, 64)ãCALL writeRGB(0, 63, 63, 127)ãCALL setpal(64, 127)ããCALL writeRGB(0, 63, 63, 128)ãCALL writeRGB(63, 63, 63, 190)ãCALL setpal(128, 190)ããCASE IS = 2ãCALL writeRGB(0, 0, 0, 0)ãCALL writeRGB(63, 0, 0, 63)ãCALL setpal(0, 63)ããCALL writeRGB(63, 0, 0, 64)ãCALL writeRGB(63, 63, 0, 127)ãCALL setpal(64, 127)ããCALL writeRGB(63, 63, 0, 128)ãCALL writeRGB(63, 63, 63, 190)ãCALL setpal(128, 190)ãEND SELECTãEND SUBããDEFINT A-ZãSUB ReadRGB (red%, grn%, blu%, slot%)ã' palette value read routineãã 'ã OUT &H3C7, slot% ' Read RGB values from slotã 'ã red% = INP(&H3C9)ã grn% = INP(&H3C9)ã blu% = INP(&H3C9)ã 'ãEND SUBããSUB setpal (start.slot%, end.slot%)ã' smooth palette generator routineãã 'ã num.slots% = end.slot% - start.slot%ã 'ã CALL ReadRGB(sr%, sg%, sb%, start.slot%)ã CALL ReadRGB(er%, eg%, eb%, end.slot%)ã 'ã rr% = ABS(er% - sr%): rg% = ABS(eg% - sg%): rb% = ABS(eb% - sb%)ã rs% = SGN(er% - sr%): gs% = SGN(eg% - sg%): bs% = SGN(eb% - sb%)ã 'ã stepr = (rr% / num.slots%) * rs%ã stepg = (rg% / num.slots%) * gs%ã stepb = (rb% / num.slots%) * bs%ã 'ã r = sr%: g = sg%: b = sb%ã wr% = r: wg% = g: wb% = bã 'ã FOR t% = start.slot% TO end.slot%ã 'ã CALL writeRGB(wr%, wg%, wb%, t%)ã 'ã r = r + stepr: wr% = rã g = g + stepg: wg% = gã b = b + stepb: wb% = bã 'ã NEXT t%ã 'ãEND SUBããDEFSNG A-ZãSUB statefã' static 2d bump effectãã' TEST PATTERN (You can use any pattern or image)ãCALL palinit(2)ãCALL TestPatt(0)ãCALL palinit(1)ãCALL bump: ' Bump MapãCALL waitkpressãFOR r = 1 TO 20ãCALL flam: 'More than flam we can call this "fade"ãNEXTãCALL palinit(2)ãCALL TestPatt(1)ãCALL palinit(1)ãCALL bump: ' Bump MapãCALL waitkpressãFOR r = 1 TO 20ãCALL flamãNEXTãEND SUBããSUB testpat2ã' pattern generator for animated bumpããFOR x = 0 TO 100ãFOR y = 0 TO 70ãPSET (x, y), RND * 100ãNEXTãNEXTãflamãflamãFOR x = 0 TO 100ãFOR y = 0 TO 70ãscr(x, y) = POINT(x, y)ãNEXTãNEXTããEND SUBããSUB TestPatt (n)ã' pattern generator for static bump routineãSELECT CASE nãCASE IS = 0ãCALL circlesãCASE IS = 1ãFOR x = 1 TO 320ãFOR y = 1 TO 200ãPSET (x, y), RND * 100ãNEXTãNEXTãCALL flam: ' this smooths the patternãEND SELECTãEND SUBããDEFINT A-ZãSUB textfã' text fireeffect routineããSCREEN 0: WIDTH 80, 50ãDIM scrbuf(80, 50)ããDOãGOSUB lastlineãGOSUB randputãGOSUB fireãGOSUB updscrãLOOP WHILE INKEY$ = ""ããENDãREM ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ SUBSãupdscr:ãLOCATE 1, 1ãFOR y = 1 TO 49ãFOR x = 1 TO 80ãSELECT CASE scrbuf(x, y)ãCASE 0 TO 9ãCOLOR 0, 0: PRINT " ";ãCASE 10 TO 19ãCOLOR 4, 0: PRINT "°";ãCASE 20 TO 29ãCOLOR 4, 0: PRINT "±";ãCASE 30 TO 39ãCOLOR 4, 0: PRINT "²";ãCASE 40 TO 44ãCOLOR 14, 4: PRINT " ";ãCASE 45 TO 50ãCOLOR 14, 4: PRINT "°";ãCASE 51 TO 69ãCOLOR 14, 4: PRINT "±";ãCASE 70 TO 89ãCOLOR 14, 4: PRINT "²";ãCASE 90 TO 124ãCOLOR 14, 4: PRINT "Û";ãCASE 125 TO 160ãCOLOR 15, 0: PRINT "Û";ãEND SELECTãNEXTãNEXTãRETURNããlastline:ãFOR x = 1 TO 80ãa = CINT(RND)ãIF a = 1 THEN scrbuf(x, 50) = 0ãIF a = 0 THEN scrbuf(x, 50) = 160ãNEXTãRETURNããrandput:ãFOR i = 1 TO 5ãx = INT(79 * RND + 1)ãy = INT(49 * RND + 1)ãscrbuf(x, y) = 160ãscrbuf(x, y + 1) = 160ãscrbuf(x + 1, y + 1) = 160ãNEXTãRETURNããfire:ãFOR x = 1 TO 79ãFOR y = 1 TO 49ãcolr = scrbuf(x, y) + scrbuf(x + 1, y) + scrbuf(x, y + 1) + scrbuf(x - 1, y) + scrbuf(x, y - 1)ãcolr = INT(colr / 5.3 - INT(11 * RND - 5))ãIF colr > 160 THEN colr = 160ãIF colr < 0 THEN colr = 0ãscrbuf(x, y - 1) = colrãNEXTãNEXTãRETURNããEND SUBããDEFSNG A-ZãSUB waitkpressãDO: LOOP WHILE INKEY$ = ""ãEND SUBããDEFINT A-ZãSUB writeRGB (red%, grn%, blu%, slot%)ã' palette write routineãã 'ã OUT &H3C8, slot% ' Write RGB values to slotã 'ã OUT &H3C9, red%ã OUT &H3C9, grn%ã OUT &H3C9, blu%ã 'ãEND SUBãJeff Ward 24BIT TGA VIEWER dward@mesa5.mesa.colorado.edu 02-19-97 (21:10) QB, QBasic, PDS 73 2628 TGA3-2-2.BASDECLARE SUB ClosePset (x!, y!, r!, g!, b!)ãDECLARE SUB FastPal (clr, red!, green!, blue!)ãã' TGANEW.BAS by Jeff Ward FOR PLAIN OLD QBASIC! :)ã' -----------------------------------------------------------------------ã' This was something I whipped up in a hurry. It does 24bitã' images at any size (the screen limits us to 320x200). It uses theã' 3-2-2 palette to emulate 24 bit color. Looks pretty nice on mostã' images, but 16 million colors is hard to squeeze into 255 attribs.ã' They look best when the image is a scanned photo or such, worstã' when it contains a ton of shades of the same color.ããSCREEN 13ãFOR r = 0 TO 63 STEP 9 ' This sets and shows ourã FOR g = 0 TO 63 STEP 9 ' all-purpose, handy dandyã FOR b = 0 TO 63 STEP 21 ' 3-2-2 palette. It hasã FastPal x, r, g, b: x = x + 1 ' all the color that could beã PSET (x, 199), x ' jammed into 256 attributesã NEXT bã NEXT gãNEXT rãINPUT "Enter filename:", f$ãOPEN f$ FOR BINARY AS 1ãIF LOF(1) = 0 THEN CLOSE : KILL f$: PRINT "File not found!": ENDãã' This next portion finds the size of the imageãa$ = " ": b$ = a$: c$ = b$: d$ = c$ãGET #1, 13, a$ãGET #1, 14, b$ãGET #1, 15, c$ãGET #1, 16, d$ãa = ASC(a$): b = ASC(b$): c = ASC(c$): d = ASC(d$)ãPRINT a, b, c, dãIF b = 0 THEN xx = a ELSE xx = (256 * b) + aãIF d = 0 THEN yy = c ELSE yy = (256 * d) + cãã' This next portion displaysãx = 0: y = 0ãFOR i = 1 TO xx * yy * 3 STEP 12000ã a$ = SPACE$(12000) ' It loads faster if you load a heap ofã GET #1, i + 18, a$ ' it and then chop it up in the memory.ã FOR z = 0 TO 11999 STEP 3 ' I'm going by STEP 3 all these timesã b = ASC(MID$(a$, 1 + z, 1)) ' because TGAs format is (except forã g = ASC(MID$(a$, 2 + z, 1)) ' the header) BGR over and over!ã r = ASC(MID$(a$, 3 + z, 1)) ' ClosePset is our magicical sub! Itã ClosePset x, y, r, g, b ' finds the closest color to true RGBã x = x + 1 ' in the 3-2-2 palette and PSETs it.ã IF x = xx THEN x = 0: y = y + 1ã NEXT zãNEXTãã' It is slow, but I just whipped this up as I said.ããSUB ClosePset (x, y, r, g, b)ãr = INT(r / 32)ãg = INT(g / 32)ãb = INT(b / 64)ãPSET (x, y), ((r * 32) + (g * 4) + b)ãEND SUBããSUB FastPal (clr, red, green, blue)ã OUT &H3C8, clrã OUT &H3C9, redã OUT &H3C9, greenã OUT &H3C9, blueãEND SUBããSUB StorePal (clr, OldR, OldG, OldB)ãOUT &H3C7, clrãOldR = INP(&H3C9)ãOldG = INP(&H3C9)ãOldB = INP(&H3C9)ãEND SUBãReinder Glas COOL LINE GRAPHICS glas400@hio.tem.nhl.nl 02-24-97 (15:10) QB, QBasic, PDS 71 2476 COOLLINE.BAS'Cool line-graphicsã'By Reinder Glasã'1996ã'Email: glas400@hio.tem.nhl.nlããDEFINT A-Zãã'const definition !!!change to get different effects!!!ã'this const are optimalized for a 486dx50 computerãCONST ArrayLength = 96ãCONST Refresh = 3000ãCONST MaxStepFactor = 8ãã'static const definitionãCONST TRUE = 1ãCONST Forward = 0ãCONST Back = NOT Forwardãã'type definitionãTYPE Pixelã x AS INTEGER 'the x coordinate of the pixelã y AS INTEGER 'the y coordinate of the pixelã xd AS INTEGER 'the x direction the pixel is movingã yd AS INTEGER 'the y direction the pixel is movingã xs AS INTEGER 'the speed the pixel is moving in the x directionã ys AS INTEGER 'the speed the pixel is moving in the y directionãEND TYPEããTYPE PixelPairã p1 AS Pixelã p2 AS PixelãEND TYPEãã'allocate usertypesãDIM ActivePixels(2) AS PixelãDIM PixelPairArray(ArrayLength) AS PixelPairãã'declare subsãDECLARE SUB Update (InPixel AS Pixel)ãã'main programãSCREEN 13ãRANDOMIZE TIMERãDIM col AS INTEGER 'color of lineãDIM counter AS INTEGERãWHILE (TRUE)ã FOR waiting = 0 TO Refresh: NEXTã LINE (PixelPairArray(counter).p1.x, PixelPairArray(counter).p1.y)-(PixelPairArray(counter).p2.x, PixelPairArray(counter).p2.y), 0ã Update ActivePixels(0)ã Update ActivePixels(1)ã PixelPairArray(counter).p1 = ActivePixels(0)ã PixelPairArray(counter).p2 = ActivePixels(1)ã LINE (PixelPairArray(counter).p1.x, PixelPairArray(counter).p1.y)-(PixelPairArray(counter).p2.x, PixelPairArray(counter).p2.y), colã ã counter = (counter + 1) MOD ArrayLengthã ã col = (col + 1) MOD 256ã IF col < 32 THEN col = 32ãWENDããSUB Update (InPixel AS Pixel)ã IF InPixel.x >= 320 THEN InPixel.xd = Back: InPixel.xs = INT(RND * MaxStepFactor) + 1ã IF InPixel.x <= 0 THEN InPixel.xd = Forward: InPixel.xs = INT(RND * MaxStepFactor) + 1ã IF InPixel.y >= 200 THEN InPixel.yd = Back: InPixel.ys = INT(RND * MaxStepFactor) + 1ã IF InPixel.y <= 0 THEN InPixel.yd = Forward: InPixel.ys = INT(RND * MaxStepFactor) + 1ã ã IF InPixel.xd = Forward THEN InPixel.x = InPixel.x + InPixel.xsã IF InPixel.xd = Back THEN InPixel.x = InPixel.x - InPixel.xsã IF InPixel.yd = Forward THEN InPixel.y = InPixel.y + InPixel.ysã IF InPixel.yd = Back THEN InPixel.y = InPixel.y - InPixel.ysãEND SUBãShaun Burnette BOUNCING BALL W/STARS shaun_burnette@hotmail.com 02-04-97 (10:10) QB, QBasic, PDS 47 1403 BALLZ.BAS '===================================ã'Ballz.basã'By:Shaun Burnetteã'2-4-97ã'Email:shaun_burnette@hotmail.comã'===================================ãDEFINT A-ZããDIM BallZ(1093) 'Diminish an array large enough to hold BallZ(1093)ããDECLARE SUB DrawBallZ () 'Draws BallZããX = 0 'Starting point for XãY = 0 'Starting point for YãDOWN = 2 'How many pixels to drop each timeãACROSS = 1 'How many pixels to go across each timeããã'=======>Draw and get BallZ<========ãSCREEN 13ãCLS 'Clear screenãDrawBallZ 'Draw BallZãGET (0, 0)-(32, 32), BallZ 'Get BallZãã'===>Loop that makes Ballz bounce<===ããDOã ã C = RND * 256 'Random colorã B = INT((280 - 20 + 1) * RND + 20) 'Random X pointã D = INT((170 - 20 + 1) * RND + 20) 'Random Y pointã PSET (B, D), C 'Turn on the pixel at (B,D) on color Cã FOR A = 1 TO 15000: NEXT A 'This can be taken out if it is too slowã X = X + DOWN 'Increase X value to make BallZ moveã Y = Y + ACROSS 'Increase Y value to make BallZ moveã IF (X < 1 OR X > 280) THEN DOWN = -DOWN 'Make BallZ reverseã IF (Y < 1 OR Y > 160) THEN ACROSS = -ACROSS 'Make Ballz reverseã PUT (X, Y), BallZ, PSET 'Puts BallZ on screenããLOOP WHILE INKEY$ = "" 'Loop until a key is pressedããSUB DrawBallZã FOR Size = 1 TO 14ã Colo = Colo + 1ã CIRCLE (16, 16), Size, Colo 'Draw a circleã NEXTãEND SUBãC. Buijs ANY SIZE GIF VIEWER harryst@castel.nl 02-24-97 (16:00) QB, QBasic, PDS 287 10384 QBGIF.BAS '============================================================================ã'== QBGIF V1.0, 13-Dec-1992, Copyright (C) 1992 by C.Buijs ==ã'============================================================================ã'== This is a simple QuickBASIC utility for viewing all sizes GIF-Pictures ==ã'== in the 320x200x256 (Screen 13) mode of QuickBASIC. ==ã'== All gif-files with up to 256 colors can be readed in, all pictures are ==ã'== scaled down to fit on the screen. ==ã'== This source is an optimized and enchanced version of DECGIF.BAS ==ã'== written by Rich Geldrich. ==ã'== Distribute this file only in unchanged form, this file may be edited ==ã'== and changed for own purpose. ==ã'== ==ã'== NOTE: ==ã'== QBGIF doesn't handle any interlaced pictures or pictures with local ==ã'== color-maps and it only handles revision 87a gif-files. ==ã'============================================================================ã'== Compile with: BC QBGIF /O/S/E; ==ã'== Link with : LINK /NOE /NOD /FAR QBGIF,,,BCOM45; ==ã'============================================================================ã'ãDEFINT A-Zã'ãDECLARE FUNCTION Getbit ()ãDECLARE FUNCTION ReadCode (codesize)ãDECLARE SUB Plot (a)ã'ãDIM SHARED dat AS STRING * 1, id AS STRING * 6ãDIM SHARED prefix(0 TO 4096), suffix(0 TO 4096), outcode(0 TO 1024), power(0 TO 15) AS LONG, pal(0 TO 255) AS LONGãDIM SHARED x, y, xstart, xend, xbegin, ybegin, tempchar, vmode, num, blocklength, bitsin, backgroundãDIM SHARED xdiv AS SINGLE, ydiv AS SINGLEã'ãCOLOR 7, 0ãPRINT "QBGIF V1.0, QuickBASIC MCGA GIF-Viewer, Written & Compiled by C.Buijs"ãPRINT "Copyright (C) 1992 by LongWord Software Development."ãPRINTãã'ãFOR a = 0 TO 15ã power(a) = 2 ^ aãNEXT aã'ãc$ = UCASE$(LTRIM$(RTRIM$(COMMAND$)))ãIF c$ > "" THENã IF LEN(c$) > 3 THEN p = INSTR(1, c$, ".") ELSE p = INSTR(LEN(c$) - 3, c$, ".")ã IF p = 0 THEN c$ = c$ + ".GIF"ã p = LEN(c$)ã WHILE p > 1 AND MID$(c$, p, 1) <> "\"ã p = p - 1ã WENDã IF MID$(c$, p, 1) = "\" THEN f$ = MID$(c$, p + 1) ELSE f$ = c$ã 'ã OPEN c$ FOR BINARY AS #1ã GET 1, , idã IF id = "GIF87a" THENã GET #1, , TotalXã GET #1, , TotalYã GET #1, , datã a = ASC(dat)ã bitspixel = (a AND 7) + 1ã GET #1, , datã background = (ASC(dat) AND 255)ã GET #1, , datã IF ASC(dat) = 0 THENã SCREEN 13ã cred = 0ã cgreen = 0ã cblue = 0ã bred = 0ã bgreen = 0ã bblue = 0ã col = 255ã bcol = 0ã FOR a = 0 TO power(bitspixel) - 1ã IF a < 256 THENã GET #1, , datã red = ASC(dat) \ 4ã GET #1, , datã green = ASC(dat) \ 4ã GET #1, , datã blue = ASC(dat) \ 4ã IF (red > cred OR green > cgreen OR blue > cblue) AND bcol <> a THENã cred = redã cgreen = greenã cblue = blueã col = aã END IFã IF (red < bred OR green < bgreen OR blue < bblue) AND col <> a THENã bred = redã bgreen = greenã bblue = blueã bcol = aã END IFã pal(a) = 65536 * blue + 256 * green + redã END IFã NEXT aã PALETTE USING pal(0)ã 'ã LINE (0, 0)-(319, 199), backround, BFã 'ã GET #1, , datã IF ASC(dat) = 44 THENã GET #1, , xstartã GET #1, , Ystartã GET #1, , xlengthã GET #1, , ylengthã xend = xlength + xstart - 1ã Yend = ylength + Ystart - 1ã l$ = f$ + " (" + LTRIM$(RTRIM$(STR$(xlength))) + "x" + LTRIM$(RTRIM$(STR$(ylength))) + "x" + LTRIM$(RTRIM$(STR$(power(bitspixel)))) + ")"ã IF xlength < 314 THENã xbegin = 3 + ((314 - xlength) \ 2)ã xdiv = 1ã ELSEã xbegin = 3ã xdiv = xlength / 314ã END IFã IF ylength < 187 THENã ybegin = 3 + ((187 - ylength) \ 2)ã ydiv = 1ã ELSEã ybegin = 3ã ydiv = ylength / 187ã END IFã 'ã LINE (0, 0)-(319, 190), col, Bã COLOR colã LOCATE 10, 10: PRINT "[Press any key to quit]";ã LOCATE 25, ((40 - LEN(l$)) / 2) + 1: PRINT l$;ã 'ã GET #1, , datã a = ASC(dat)ã IF (a AND 128) = 0 THENã IF (a AND 64) = 0 THENã GET #1, , datã codesize = ASC(dat)ã clearcode = power(codesize)ã EOFCode = clearcode + 1ã firstfree = clearcode + 2ã freeCode = firstfreeã codesize = codesize + 1ã initcodesize = codesizeã maxcode = power(codesize)ã bitmask = power(bitspixel) - 1ã GET #1, , datã blocklength = ASC(dat) + 1ã num = 0ã bitsin = 8ã outcount = 0ã x = xstartã y = Ystartã 'ã LINE (2, ybegin + (y / ydiv))-((xbegin + (x / xdiv)) - 1, ybegin + (y / ydiv)), backgroundã DOã code = ReadCode(codesize)ã IF code <> EOFCode THENã IF code = clearcode THENã codesize = initcodesizeã maxcode = power(codesize)ã freeCode = firstfreeã code = ReadCode(codesize)ã curcode = codeã oldcode = codeã finchar = code AND bitmaskã Plot fincharã ELSEã curcode = codeã InCode = codeã IF code >= freeCode THENã curcode = oldcodeã outcode(outcount) = fincharã outcount = outcount + 1ã END IFã IF curcode > bitmask THENã DOã outcode(outcount) = suffix(curcode)ã outcount = outcount + 1ã curcode = prefix(curcode)ã LOOP UNTIL curcode <= bitmaskã END IFã finchar = curcode AND bitmaskã outcode(outcount) = fincharã outcount = outcount + 1ã FOR i = outcount - 1 TO 0 STEP -1ã Plot outcode(i)ã NEXT iã outcount = 0ã prefix(freeCode) = oldcodeã suffix(freeCode) = fincharã oldcode = InCodeã freeCode = freeCode + 1ã IF freeCode >= maxcode THENã IF codesize < 12 THENã codesize = codesize + 1ã maxcode = maxcode * 2ã END IFã END IFã END IFã END IFã a$ = INKEY$ã LOOP UNTIL code = EOFCode OR a$ <> ""ã IF a$ = "" THENã SOUND 1000, 5ã DOã LOOP UNTIL INKEY$ > ""ã END IFã ELSEã SCREEN 0ã WIDTH 80ã BEEPã PRINT "þ ("; c$; ") Interlaced GIF encountered, not supported yet."ã ENDã END IFã ELSEã SCREEN 0ã WIDTH 80ã BEEPã PRINT "þ ("; c$; ") Local colormap encountered, not supported yet."ã ENDã END IFã ELSEã SCREEN 0ã WIDTH 80ã BEEPã PRINT "þ ("; c$; ") File-format not correct, file maybe damaged!"ã ENDã END IFã ELSEã SCREEN 0ã WIDTH 80ã BEEPã PRINT "þ ("; c$; ") File-format not correct, file maybe damaged!"ã ENDã END IFã ELSEã SCREEN 0ã WIDTH 80ã BEEPã PRINT "þ ("; c$; ") Not a GIF Revision 87a file."ã ENDã END IFã CLOSE #1ã SCREEN 0ã WIDTH 80ã CLSã COLOR 7, 0ã PRINT "QBGIF V1.0, QuickBASIC MCGA GIF-Viewer, Written & Compiled by C.Buijs"ã PRINT "Copyright (C) 1992 by LongWord Software Development."ãELSEã BEEPã PRINT "Usage: QBGIF "ãEND IFãENDããFUNCTION Getbitãbitsin = bitsin + 1ãIF bitsin = 9 THENã GET #1, , datã tempchar = ASC(dat)ã bitsin = 1ã num = num + 1ã IF num = blocklength THENã blocklength = tempchar + 1ã GET #1, , datã tempchar = ASC(dat)ã num = 1ã END IFãEND IFãIF (tempchar AND power(bitsin - 1)) = 0 THEN Getbit = 0 ELSE Getbit = 1ãEND FUNCTIONããSUB Plot (a)ãPSET (xbegin + (x / xdiv), ybegin + (y / ydiv)), (a AND 255)ãx = x + 1ãIF x > xend THENã LINE (xbegin + (x / xdiv), ybegin + (y / ydiv))-(318, ybegin + (y / ydiv)), backgroundã x = xstartã y = y + 1ã LINE (2, ybegin + (y / ydiv))-((xbegin + (x / xdiv)) - 1, ybegin + (y / ydiv)), backgroundãEND IFãEND SUBããFUNCTION ReadCode (codesize)ãcode = 0ãFOR aa = 0 TO codesize - 1ã code = code + Getbit * power(aa)ãNEXT aaãReadCode = codeãEND FUNCTIONãByron C. Smith, Jr. SKELETAL GRAPHICS FONT harryst@castel.nl 04-15-95 (00:00) QB, QBasic, PDS 296 9815 GRFN.BAS 'ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»ã'º GRFN.BAS ³ GRaphics FoNt -- Skeletal 4x6 character cell graphics engine. ºã'ÇÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¶ã'º Overview ³ GRFN is version 0.95D15 (15-APR-1995) by Byron C. Smith, Jr. ºã'º ³ GRFN is designed for the CGA screen modes but can be executed ºã'º ³ in almost any screen mode (the font face, however, may be too ºã'º ³ small for the user's desire in especially the VGA modes). ºã'º ³ GRFN is released as freeware for the benefit of all users. ºã'º ³ ºã'º Snail ³ The author can be reached here: ºã'º ³ ºã'º ³ Byron C. Smith, Jr. ºã'º ³ 355 Smith Lake Rd ºã'º ³ Vidor, TX 77662-3025 ºã'º ³ 409/769-5795 ºã'º ³ ºã'º Email ³ The author is also on the internet: ºã'º ³ ºã'º ³ xolotl@io.com (preferred email address, unless on AOL) ºã'º ³ bsmith5637@aol.com ºã'º ³ http://www.io.com/~xolotl (Web page, very skimpy as of yet) ºã'ÇÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¶ã'º Program ³ GRFN originated in the C environment during a hobby project ºã'º ³ the author started to design part of a personal tools library.ºã'º ³ GRFN models existed for plain 3x5, (GRFN) 3x6, 3x7, 3x8, and ºã'º ³ 4x8 character cells. GRFN was ported to PowerBASIC and QBasic ºã'º ³ for a friend's use in a future graphics game (tentatively set ºã'º ³ near May 1997 by the looks of things. :) ). ºã'º ³ ºã'º ³ GRFN is a modified octal graphics engine, based on a 3x6 cell ºã'º ³ with an I-shaped buffer zone (which is six pixels / border): ºã'º ³ ºã'º ³ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ºã'º ³ ÉÍÍÍÍÍÍÍ» ÚÄÄÄÄÄÄÄÄÄ´one octal digit wide³ ºã'º ³ ºbin¯octº* ÚÄÄÁÄÄ¿ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ºã'º ³ ÌÍÍÍÍÍÍÍ¹ ÚÚÄÂÄÂÄÂÄ¿¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ºã'º ³ º010 = 2º ³³ ³ ³Û³ ³³ÚÄÄÄÄ´six octal digits tall³ ºã'º ³ ÇÄÄÄÄÄÄÄ¶ Ú´ÃÄÅÄÅÄÅÄ´³³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ºã'º ³ º101 = 5º ³³³ ³Û³ ³Û³³³ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ºã'º ³ ÇÄÄÄÄÄÄÄ¶ ³³ÃÄÅÄÅÄÅÄ´³³ ÚÄÄ´two octal digits long³ ºã'º ³ º111 = 7º ³À³ ³Û³Û³Û³³³ ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ºã'º ³ ÇÄÄÄÄÄÄÄ¶ ÚÄ´ ÃÄÅÄÅÄÅÄ´ÃÙ ³ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ºã'º ³ º101 = 5º ³ ³Ú³ ³Û³ ³Û³³ ³ *³"A" has GRFN value of³ ºã'º ³ ÇÄÄÄÄÄÄÄ¶ ³ ³³ÃÄÅÄÅÄÅÄ´³ ³ ³G = &O00257550, with ³ ºã'º ³ º101 = 5º ³ ³³³ ³Û³ ³Û³³ ³ ³the highest octal ³ ºã'º ³ ÇÄÄÄÄÄÄÄ¶ ³ À´ÃÄÅÄÅÄÅÄ´³ ³ ³digits being 00 since³ ºã'º ³ º000 = 0º ³ ³³ ³ ³ ³ ³³ ³ ³this designates the ³ ºã'º ³ ÈÍÍÍÍÍÍÍ¼ ³ ÀÀÄÁÄÁÄÁÄÙÙ ³ ³empty I-buffer space.³ ºã'º ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ºã'º ³ ºã'ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼ãDECLARE SUB GRFN (T$)ãSCREEN 2 'GRFN might be too small for some in mode 2.ãCLSãPSET (18, 20), 0 'Start GRFN out at 18, 20.ãFOR C% = 32 TO 128 'GRFN is only programmed for ASCII subset,ã GRFN CHR$(C%) 'although entire 4x6 cell is accessible.ãNEXTãPSET (18, 8), 0ãGRFN "GRFN:"ãLINE INPUT "GRFN: ", T$ 'What would the user like to see GRFNized?ãPSET (46, 8), 0 'Set up to display right underneath input.ãGRFN T$ 'GRFNize it without furthur delay.ãWHILE LEN(INKEY$) = 0: WENDãSCREEN 0: CLS : SYSTEM 'For QBASIC /RUN, terminates back to DOS.ããDEFINT A-F, H-ZãDEFLNG GãSUB GRFN (T$)ã FOR I = 1 TO LEN(T$)ã SELECT CASE ASC(MID$(T$, I, 1))ã CASE 32ã G = &O0 '(space)ã CASE 33ã G = &O222020 '!ã CASE 34ã G = &O550000 '"ã CASE 35ã G = &O575750 '#ã CASE 36ã G = &O232620 '$ã CASE 37ã G = &O412410 '%ã CASE 38ã G = &O337520 '&ã CASE 39ã G = &O240000 ''ã CASE 40ã G = &O244420 '(ã CASE 41ã G = &O211120 ')ã CASE 42ã G = &O272500 '*ã CASE 43ã G = &O27200 '+ã CASE 44ã G = &O24 ',ã CASE 45ã G = &O7000 '-ã CASE 46ã G = &O20 '.ã CASE 47ã G = &O112440 '/ã CASE 48ã G = &O257520 '0ã CASE 49ã G = &O262220 '1ã CASE 50ã G = &O612470 '2ã CASE 51ã G = &O612160 '3ã CASE 52ã G = &O137110 '4ã CASE 53ã G = &O746160 '5ã CASE 54ã G = &O346530 '6ã CASE 55ã G = &O712440 '7ã CASE 56ã G = &O352560 '8ã CASE 57ã G = &O357160 '9ã CASE 58ã G = &O20200 ':ã CASE 59ã G = &O2024 ';ã CASE 60ã G = &O124210 '<ã CASE 61ã G = &O70700 '=ã CASE 62ã G = &O421240 '>ã CASE 63ã G = &O612020 '?ã CASE 64ã G = &O377430 '@ã CASE 65ã G = &O257550 'Aã CASE 66ã G = &O656560 'Bã CASE 67ã G = &O344430 'Cã CASE 68ã G = &O655560 'Dã CASE 69ã G = &O746470 'Eã CASE 70ã G = &O746440 'Fã CASE 71ã G = &O344530 'Gã CASE 72ã G = &O557550 'Hã CASE 73ã G = &O722270 'Iã CASE 74ã G = &O311160 'Jã CASE 75ã G = &O556550 'Kã CASE 76ã G = &O444470 'Lã CASE 77ã G = &O777750 'Mã CASE 78ã G = &O577750 'Nã CASE 79ã G = &O255520 'Oã CASE 80ã G = &O656440 'Pã CASE 81ã G = &O355573 'Qã CASE 82ã G = &O656550 'Rã CASE 83ã G = &O342160 'Sã CASE 84ã G = &O722220 'Tã CASE 85ã G = &O555570 'Uã CASE 86ã G = &O555520 'Vã CASE 87ã G = &O577770 'Wã CASE 88ã G = &O552550 'Xã CASE 89ã G = &O552220 'Yã CASE 90ã G = &O712470 'Zã CASE 91ã G = &O644460 '[ã CASE 92ã G = &O442110 '\ã CASE 93ã G = &O311130 ']ã CASE 94ã G = &O250000 '^ã CASE 95ã G = &O1000007 '_ã CASE 96ã G = &O210000 '`ã CASE 97ã G = &O61770 'aã CASE 98ã G = &O465560 'bã CASE 99ã G = &O34430 'cã CASE 100ã G = &O135530 'dã CASE 101ã G = &O37430 'eã CASE 102ã G = &O346440 'fã CASE 103ã G = &O35716 'gã CASE 104ã G = &O465550 'hã CASE 105ã G = &O202220 'iã CASE 106ã G = &O101116 'jã CASE 107ã G = &O456550 'kã CASE 108ã G = &O222210 'lã CASE 109ã G = &O77750 'mã CASE 110ã G = &O65550 'nã CASE 111ã G = &O25520 'oã CASE 112ã G = &O65564 'pã CASE 113ã G = &O35531 'qã CASE 114ã G = &O34440 'rã CASE 115ã G = &O36160 'sã CASE 116ã G = &O272210 'tã CASE 117ã G = &O55570 'uã CASE 118ã G = &O55520 'vã CASE 119ã G = &O57770 'wã CASE 120ã G = &O52550 'xã CASE 121ã G = &O55716 'yã CASE 122ã G = &O71270 'zã CASE 123ã G = &O326230 '{ã CASE 124ã G = &O220220 '|ã CASE 125ã G = &O623260 '}ã CASE 126ã G = &O350000 '~ Three pixels wide is too narrow to make a good tilde.ã CASE 127ã G = &O25570 '(tri)ã CASE ELSEã G = &O77777777 '(blk) This is catch-all for characters not in GRFN set.ã END SELECTã G = G - 65536 * (G < 0) 'Keep GRFN data positive.ã IF G > 262143 THENã PSET STEP(0, 1), (G AND 4194304) > 0ã PSET STEP(0, 1), (G AND 2097152) > 0ã PSET STEP(0, 1), (G AND 1048576) > 0ã PSET STEP(0, 1), (G AND 524288) > 0ã PSET STEP(0, 1), (G AND 262144) > 0ã PSET STEP(0, -5), (G AND 8388608) > 0ã END IFã PSET STEP(1, 0), (G AND 131072) > 0ã PSET STEP(1, 0), (G AND 65536) > 0ã PSET STEP(1, 0), (G AND 32768) > 0ã PSET STEP(-2, 1), (G AND 16384) > 0ã PSET STEP(1, 0), (G AND 8192) > 0ã PSET STEP(1, 0), (G AND 4096) > 0ã PSET STEP(-2, 1), (G AND 2048) > 0ã PSET STEP(1, 0), (G AND 1024) > 0ã PSET STEP(1, 0), (G AND 512) > 0ã PSET STEP(-2, 1), (G AND 256) > 0ã PSET STEP(1, 0), (G AND 128) > 0ã PSET STEP(1, 0), (G AND 64) > 0ã PSET STEP(-2, 1), (G AND 32) > 0ã PSET STEP(1, 0), (G AND 16) > 0ã PSET STEP(1, 0), (G AND 8) > 0ã PSET STEP(-2, 1), (G AND 4) > 0ã PSET STEP(1, 0), (G AND 2) > 0ã PSET STEP(1, 0), (G AND 1) > 0ã PSET STEP(1, -5), 0 'Mark starting point of next char.ã NEXTãEND SUBãVictor Woeltjen 3D ENGINE W/TEXTURE MAPPING www.trenham.demon.co.uk/threed 11-01-96 (00:00) QB, QBasic, PDS 696 15189 3DTEXTUR.BAS'This is the complete txtreng.bas file. I switched over to NetScape'sã'USENET thingy, and it let me attach the whole file. Sorry about all theã'other pieces, it took me a while to think of trying NS.ã'ã'Anyway, this engine is slow, but it does add simple textures. I'm sureã'some intelligent person out there could speed it up, but that personã'sure as hell ain't me.ã'ã'I in no way am responsible for the engine itself; all I added was theã'textures(and I changed the background a bit, but, it's still mostlyã'someone else's freeware program).ã'ã'Victor Woeltjen, "Pissant"ã'ãã' note from Peter Cooper (peco@trenham.demon.co.uk)ã' - this is very very slow but it worksã' compile it for speed, you can download compiled version from myã' web siteãããDECLARE SUB CreateBackground ()ãDECLARE SUB GetKeypress (Keycode%)ããCONST UpArrow = -72, DnArrow = -80, LArrow = -75, RArrow = -77ããRANDOMIZE TIMERãDIM Grid%(1 TO 12, 1 TO 12)ãDIM STable!(0 - 31 TO 360 + 32), CTable!(0 - 31 TO 360 + 32)ãDIM Textures(1 TO 15, 1 TO 4, 1 TO 30)ãPX! = 9: PY! = 11 'the starting coordinates of the player's locationãStride! = 3 'the distance covered in one "step" by the playerã ' by pressing the up or down arrow keysãHeading% = 0 'the heading of the player (in degrees)ãTurn% = 5 'number of degrees of rotation produced byã ' pressing the right or left arrow keysããFOR Y% = 1 TO 12ã FOR X% = 1 TO 12ã READ Grid%(X%, Y%)ã NEXTãNEXTããFOR TexturesL = 1 TO 15ãFOR TexY% = 1 TO 30ãFOR TexX% = 1 TO 4ã READ Textures(TexturesL, TexX%, TexY%)ãNEXTãNEXTãNEXTããFactor! = (ATN(1) * 8) / 360ãFOR A% = 0 TO 359ã Angle! = CSNG(A%) * Factor!ã STable!(A%) = SIN(Angle!) * .1ã CTable!(A%) = COS(Angle!) * .1ãNEXTãFOR A% = -31 TO -1ã STable!(A%) = STable!(A% + 360)ã CTable!(A%) = CTable!(A% + 360)ãNEXTãFOR A% = 360 TO 360 + 32ã STable!(A%) = STable!(A% - 360)ã CTable!(A%) = CTable!(A% - 360)ãNEXTããSCREEN 7, , 0, 0ãPRINTãPRINTãPRINT " RAYCASTER DEMO"ãPRINTãPRINT " UP ARROW........Move Forward"ãPRINT " DOWN ARROW......Move Backward"ãPRINT " RIGHT ARROW.....Turn Right"ãPRINT " LEFT ARROW......Turn Left"ãPRINTãPRINTãPRINT " Please wait...";ããCALL CreateBackgroundãBEEPãLOCATE , 1ãPRINT " Press any key to begin...";ãDO WHILE LEN(INKEY$): LOOP: DO UNTIL LEN(INKEY$): LOOPããViewPg% = 0: WorkPg% = 1: BG1% = 2: BG2% = 3ãSCREEN , , WorkPg%, ViewPg%ãGOSUB ComputeViewããDO 'Main loopãCALL GetKeypress(Keycode%)ãSELECT CASE Keycode%ã CASE LArrowã Heading% = (Heading% + Turn%) MOD 360ã GOSUB ComputeViewã CASE RArrowã Heading% = (Heading% + (360 - Turn%)) MOD 360ã GOSUB ComputeViewã CASE UpArrowã NewPX! = PX! - (STable!(Heading%) * Stride!)ã NewPY! = PY! - (CTable!(Heading%) * Stride!)ã IF Grid%(NewPX!, NewPY!) = 0 THENã PX! = NewPX!: PY! = NewPY!ã GOSUB ComputeViewã ELSE 'tried to walk through a wallã SOUND 80, 1ã END IFã CASE DnArrowã NewPX! = PX! + (STable!(Heading%) * Stride!)ã NewPY! = PY! + (CTable!(Heading%) * Stride!)ã IF Grid%(NewPX!, NewPY!) = 0 THENã PX! = NewPX!: PY! = NewPY!ã GOSUB ComputeViewã ELSE 'tried to walk through a wallã SOUND 80, 1ã END IFã CASE 27ã EXIT DOã CASE ELSEã BEEPã END SELECTãLOOPãSCREEN 0: WIDTH 80, 25ãENDããComputeView:ãPCOPY BG1%, WorkPg%: SWAP BG1%, BG2%ãX1% = 0ãFOR A% = Heading% + 32 TO Heading% - 31 STEP -1ã StepX! = STable!(A%): StepY! = CTable!(A%)ã XX! = PX!: YY! = PY!ã L% = 0ã DOã XX! = XX! - StepX!: YY! = YY! - StepY!ã L% = L% + 1ã K% = Grid%(XX!, YY!)ã LOOP UNTIL K%ã DD% = 900 \ L%ã H% = DD% + DD%ã DT% = 100 - DD%ã ymoves = 0ã FOR Y = DT% TO DT% + H% STEP (H%) / 30ã ymoves = ymoves + 1ã FOR X = 1 TO 4ã IF ymoves > 30 THEN ymoves = 30ã LINE (X1% + X, DT% + ((ymoves - 1) * (H%) / 30))-(X1% + X + 1, DT% + ((ymoves) * (H%) / 30)), Textures(K%, X, ymoves), Bã NEXTã NEXTã 'LINE (X1%, DT%)-STEP(4, H%), K%, BFã X1% = X1% + 5ãNEXTãSWAP WorkPg%, ViewPg%ãSCREEN , , WorkPg%, ViewPg%ãRETURNãã' Level dataãDATA 9, 1, 9, 1, 1, 1, 1, 1, 1, 1, 9, 1ãDATA 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9ãDATA 9, 0, 2, 10, 0, 0, 0, 0, 0, 0, 0, 1ãDATA 1, 0, 10, 2, 0, 0, 0, 0, 0, 0, 0, 9ãDATA 9, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 1ãDATA 1, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 9ãDATA 9, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 1ãDATA 1, 0, 13, 0, 0, 4, 0, 0, 0, 12, 0, 9ãDATA 9, 0, 5, 0, 0, 5, 0, 0, 0, 0, 0, 1ãDATA 1, 0, 13, 0, 0, 0, 0, 0, 0, 12, 0, 9ãDATA 9, 0, 5, 0, 0, 0, 0, 0, 0, 4, 0, 1ãDATA 1, 9, 1, 9, 1, 9, 1, 9, 1, 9, 1, 9ãã'Texture dataã'Text. 1ãDATA 0, 8, 0, 0ãDATA 8, 7, 8,ãDATA 7, 7, 7, 8ãDATA 7, 7, 7, 8ãDATA 8, 8, 8, 0ãDATA 8, 7,8,0ãDATA 8, 7,8,0ãDATA 8, 7,8,0ãDATA 8, 7,8,0ãDATA 8, 7,8,0ãDATA 8, 7,8,0ãDATA 8, 7,8,0ãDATA 8, 8,8,8ãDATA 7, 7,7,7ãDATA 8, 8,8,8ãDATA 8, 7,8,0ãDATA 8, 7,8,0ãDATA 8, 7,8,0ãDATA 8, 7,8,0ãDATA 8, 7,8,0ãDATA 8, 7,8,0ãDATA 8, 7,8,0ãDATA 8, 7,8,0ãDATA 8, 7,8,0ãDATA 8, 7, 8, 0ãDATA 8, 7, 8,2ãDATA 8, 2, 8, 2ãDATA 2, 10, 2, 2ãDATA 2, 2, 10, 2ãDATA 2, 2, 2, 2ã'Text. 2ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ãDATA 8, 7, 8, 7ãDATA 7, 7, 7, 7ãDATA 7, 15, 7, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 7, 15, 7, 15ãDATA 7, 7, 7, 7ãDATA 8, 7, 8, 7ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ã'Text. 3ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ãDATA 8, 7, 8, 7ãDATA 7, 7, 7, 7ãDATA 7, 15, 7, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 7, 15, 7, 15ãDATA 7, 7, 7, 7ãDATA 8, 7, 8, 7ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ã'Text. 4ãDATA 4, 4, 4, 4ãDATA 4, 8, 4, 8ãDATA 8, 7, 8, 7ãDATA 7, 7, 7, 7ãDATA 7, 15, 7, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 7, 15, 7, 15ãDATA 7, 7, 7, 7ãDATA 8, 7, 8, 7ãDATA 4, 8, 4, 8ãDATA 4, 4, 4, 4ã'Text. 5ãDATA 4, 8, 4, 8ãDATA 8, 8, 8, 8ãDATA 8, 7, 8, 7ãDATA 7, 7, 7, 7ãDATA 7, 15, 7, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 7, 15, 7, 15ãDATA 7, 7, 7, 7ãDATA 8, 7, 8, 7ãDATA 8, 8, 8, 8ãDATA 8, 4, 8, 4ã'Text. 6ãDATA 4, 6, 4, 6ãDATA 4, 4, 4, 4ãDATA 8, 4, 8, 4ãDATA 7, 7, 7, 7ãDATA 7, 15, 7, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 7, 15, 7, 15ãDATA 7, 7, 7, 7ãDATA 4, 7, 4, 7ãDATA 4, 4, 4, 4ãDATA 4, 6, 4, 6ã'Text. 7ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ãDATA 8, 7, 8, 7ãDATA 7, 7, 7, 7ãDATA 7, 15, 7, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 7, 15, 7, 15ãDATA 7, 7, 7, 7ãDATA 8, 7, 8, 7ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ã'Text. 8ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ãDATA 8, 7, 8, 7ãDATA 7, 7, 7, 7ãDATA 7, 15, 7, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 7, 15, 7, 15ãDATA 7, 7, 7, 7ãDATA 8, 7, 8, 7ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ã'Text. 9ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ãDATA 8, 7, 8, 7ãDATA 7, 7, 7, 7ãDATA 7, 15, 7, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 7, 15, 7, 15ãDATA 7, 7, 7, 7ãDATA 8, 7, 8, 7ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ã'Text. 10ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ãDATA 8, 7, 8, 7ãDATA 7, 7, 7, 7ãDATA 7, 15, 7, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 7, 15, 7, 15ãDATA 7, 7, 7, 7ãDATA 8, 7, 8, 7ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ã'Text. 11ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ãDATA 8, 7, 8, 7ãDATA 7, 7, 7, 7ãDATA 7, 15, 7, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 7, 15, 7, 15ãDATA 7, 7, 7, 7ãDATA 8, 7, 8, 7ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ã'Text. 12ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ãDATA 8, 7, 8, 7ãDATA 7, 7, 7, 7ãDATA 7, 15, 7, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 7, 15, 7, 15ãDATA 7, 7, 7, 7ãDATA 8, 7, 8, 7ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ã'Text. 13ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ãDATA 8, 7, 8, 7ãDATA 7, 7, 7, 7ãDATA 7, 15, 7, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 7, 15, 7, 15ãDATA 7, 7, 7, 7ãDATA 8, 7, 8, 7ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ã'Text. 14ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ãDATA 8, 7, 8, 7ãDATA 7, 7, 7, 7ãDATA 7, 15, 7, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 7, 15, 7, 15ãDATA 7, 7, 7, 7ãDATA 8, 7, 8, 7ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ã'Text. 15ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ãDATA 8, 7, 8, 7ãDATA 7, 7, 7, 7ãDATA 7, 15, 7, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 15, 15, 15, 15ãDATA 7, 15, 7, 15ãDATA 7, 7, 7, 7ãDATA 8, 7, 8, 7ãDATA 8, 8, 8, 8ãDATA 8, 8, 8, 8ããDEFINT A-ZãDEFSNG A-ZããSUB CreateBackgroundããSCREEN , , 2, 0: CLSã' SkyãLINE (0, 0)-(319, 99), 0, BFã' Moon (Prev. a Sun)ãCIRCLE (50, 30), 10, 8: PAINT (50, 30), 14, 8ã'CIRCLE (53, 27), 2, 8: PAINT (53, 27), 8, 8ãCIRCLE (43, 29), 10, 0: PAINT (43, 29), 0, 0ã' Clouds moved after moon so they would overlap itãFOR Cnt% = 1 TO 10ã X% = INT(RND * 320)ã Y% = INT(RND * 80) + 10ã R% = INT(RND * 50)ã AR! = RND / 10ã CIRCLE (X%, Y%), R%, 15, , , AR!: PAINT (X%, Y%), 15ãNEXTãã 'Building (gray)ãLINE (200, 20)-(220, 15), 8ãLINE (220, 15)-(240, 20), 8ãLINE (200, 20)-(200, 99), 8ãLINE (240, 20)-(240, 99), 8ãLINE (200, 99)-(240, 99), 8ãPAINT (220, 50), 8ãFOR Cnt% = 1 TO 20 ' Lightsã PSET (INT(RND * 38 + 201), INT(RND * 80 + 20)), 14ãNEXTãLINE (200, 20)-(220, 15), 0 ' Building (border)ãLINE (220, 15)-(240, 20), 0ãLINE (219, 15)-(219, 99), 0ãLINE (200, 20)-(200, 99), 0ãLINE (240, 20)-(240, 99), 0ãPCOPY 2, 3ãFOR Y% = 100 TO 199ã FOR X% = 0 TO 319ã IF RND AND 1 THEN PSET (X%, Y%), 8ã NEXTãNEXTããSCREEN , , 3, 0ãFOR Y% = 100 TO 199ã FOR X% = 0 TO 319ã IF RND AND 1 THEN PSET (X%, Y%), 8ã NEXTãNEXTããSCREEN , , 0, 0ããEND SUBããDEFINT A-ZãSUB GetKeypress (Keycode%)ãDO: Ky$ = INKEY$: LOOP UNTIL LEN(Ky$)ãKeycode% = ASC(Ky$): IF Keycode% = 0 THEN Keycode% = -ASC(MID$(Ky$, 2, 1))ããEND SUBãAndrew L. Ayers RAYCASTING ROUTINE andrewa@indirect.com 02-25-97 (20:00) QB, QBasic, PDS 98 6466 RAYCAST.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"RAYCAST.ZIP",4^6:Z&=4577:?STRING$(50,177);ãU"%up()%9%%%I-%>J8aF-2(#0p%%%%W&%%%0%%%%wf&(hfx%ySif1yL_v%/%E-jhxãU"Rgl[GN3T)^LQdk+\r3+?83)'b$S+x;o+)JTxqYDf\^&;*A>/E*\s:ei\.\?L>IoãU"V^Z^EMFC][O^OG?luH'%up()%9%%%#-%:DmTG4n=vU;*7%%g5%%%0%%%%wf&(hfãU"x%ySfxOrN&,+tTo5hLEsu,V24z_R=S+%B8gO,=^ToROx%g1wyy4,Z6F;k]P)(spãU"khhZG'lH\xiJs]I-&WDlhXBuGe%liH:M3_l=,]f$8(I7VqBOOJ.O*KCjmaU'q5sãU"J_-m&U5?kcAf4U4h\_zS[REg3/LI4hTq/%bLc'66>v1$[>1Gq=oUW\mL.q2?V&cãU"PWHpC*Gn=Wj:dLjPb3>ktY\:]B87_u08Fq'E4U>LLB:s^YRm]Hq;MG%R*I9Qd+YãU"3VG*'r(6H=>EbwG(PU2=A1_2BkwU'KI*bSfFNvC%H-TE7.d9^cU3xrIttrgUlWkãU"P#/:,9]se<-#9R-eX1%RS>%D7#jjYIB>DmrKNeH.>*V7Bx9U\,>0^O;Dp[*jFEmãU"/p%Wt>02h7Z4>fc\:l-NghfUp:l_r+Q\Ltm(-)TpQe,u$:WOb/\1f5vF$aoãU",4cRqJ8RX$235Ck&igEbMil&&#c6IL;SOONoHP:qZha&j(^T>PC/us(]&50+GaKãU"g-.(PZ:BuEjm^&h.Cj&.fHO2&P?%/zfw+O&IB81s4Bif^L#jOCXAD(H1bUw=C/tãU"<8mJJC,r32qT7oA$m/A%t0>Y4<\rc&32jV(OmpãU"uF28E4/-ZTg5Vtd1c>=AmJHJ4uQYT+]D$QIU-dR1z&,xRBodB'Z^j;g0;BMwRt=ãU"c2E#wFhYYCBe)u-h$4ODN#e70+92.(tl)XmOFSSJHN^KTrlt]W#o0L$w'lk2/IFãU"2$:.4a;lQX#0Rc(ãU"aLP_Ne(94ZS]g2/6d\_MJG%cb,iqh')O\?oj<0Dbyqm,30P&3Bgb,z>c9\A;IsYãU"N]BZ\F3\erxT<_VG(,Cg$fCb3\C\yI$(+&Tcvwthkc(6[Clx3XEu*MkDu=#(/\iãU"5aS?kuF^2YQ9=UWJ'],z,UIo.s1nnp2BLLLUZ/n[,;*^M9h1efcEYE$r?,i=us,ãU"M13W7d?LFmI&>X9-PBb<\Uk;kp^?uCO6d]<\TwWTA8>Bf*(Lgv;6f[M1kSmHmsYãU"ZWBaG--NFs]IF<#O=rC7F^SShN-$llZATLqLKP6h.hHpGb5.sVY^sQHQ?4zu^5HãU"z%M3+;qVpR8jC?6KPV3mH3Fs:EcPuB4sc)um3CjCKogLf]M+u%PosXEdeq1o,kYãU"36B3Afqs:B5z),Cy[8mL-%,yQiRuWuXab:hDEkãU"EsxirZ/r9lusC?]b/>MeKt4CNDerw#Djwa,QLW4(5t**jGAdãU"g9[gz?^Lp&.)i(9z\36NYNNkiOAQf8EVblhD0s:dd\nT;Bc0Qhd0Ur8s#Ys4MJn726nP&Zr&++t4u%p()9%%%%-U%W%(dGYe>)Bg/%+%EO%%%0%%#%wfãU"(%hfxy%Sgfx43addL0;FOxfrX.XtED?WJ>S>u2fx3eiãU"UU.9^/U$7\Q8wGj9UdLK,fhRK2^bhd;T%iXPgG..DQ(-F5:1htIDCL[NãU"&RTn;A;8cg$x=(MZv;_r;kR]t*[$'oJ1SE)q;+ps5gVsW=j:dG\bR&BUZj10XeJãU"S):JyMY%<.Q<]R4'8RFPoCMB&.P_D^Ym^2FU28N/XNTYcnkB[S]TVYbTZ)KUnXJq5py(646/,ãU"XG/F.Rf%NLNS:S]-J7f/E)&ãU"uQC$%&y6ene/-&%au5Q&XuvFE3>TF?:[ND2R$VGRYãU"Ts.(1zw5iFy;O53lgYBlu+v23d9JmQDGZk4wbSjQ$>DNr:E..r(N>-94d.RVkLnãU"HW8rLWc[Z1KkmyZt8)EDU%7^UJ3lDUD$.UF:C\vUrHEmtWrC7'0Cb/ShãU"wzZ)f/d9T#Jrjn^_i[P#AgPeTHs[yyS?*fM.kr5O12)7Fa=$H6&TroOu-tIXYroãU"g0_-N4NGraT=#6=P1g3TTBS#8A+raUa.sj45]P7AgLB\GAc0:LJr4lfF&k)X]-iDFqkeL:ãU"nu^9?XOkDkWW[dsd]'Y;,>'MLa9EXRLe\nE<0S8lUuqo.RFmay#5bO1Ll;NL8+jãU"*6Pv$]+A]Mbp8OIO*UXc5O##mmc1SV<8Z<1H./=)]wQpD[DVZ*FGEsxWd/omcEYpDf]LjZbe]$OGJ2)C,?vEg)ZiV=\tC[Z>?0;ãU"3Ys[RTJPy0]MaAAtmk*mM\]+-PKf:.qjAILJd2QMch2ãU"*f+AiYA1dnz?G9Ip6[+Ie7PIjZW8e:_=u^FubIan-lS$a^SD+WuqHc0Eo\iN.->ãU"cG=hy?(;,;/vUTme%F#.i.[*.Wmf,h;_C>YJ#g[6JXoBw_CY1Qw./)Tkn^8:K4)ãU"ghMS*5/%F0UkkGy7B9J#r35]o3wnFBm%,]8)eF3(fh$m[)n=D\11EqU.0wS?]e[ãU"+6?GnIX^?rdVR3M/?kU)WJ]USk%pzQTAg-=xa-*MCp?f*NCgg/J(MUL8>J1sku6ãU"DfDH]kLTZtT)1QU(rh]Pig/G']3SJF=:LTdzCHNSyxpy(srwh?'\.A2v#+hAd+WãU":4RTz^$nB#0+RK[v*DB?z44BehD)H:$]vSgWskF3\S1yL=.ya3Bt&E3\&g:,Z8:ãU":Lia:]ZGT&mC;77NLptfS%:5Ca'\VL;.T$GjS;b[ulkZ\5PV#[RS0NQRId8t_6*ãU"c;ZWkf8d$lr=44n8T3wwOGKV/T*JXYjckzWCD-GwM'u\2:buTtHP4B1GA0]6n+bãU"+,*W3[3ta$f>oub:4SntX-n5.oVcTl1a71)Th/CWrrtLgVIKU>*Q.qX]dG%UOegLH*of03J,7h'bXaPãU"i69IWU'1w)hLhQq_UuV,m]UCJiliU-,KL#GCm+n0h;IlDAHO405q_?gn.Q1aS.LãU"paktv8mUu*/s10tSDGs&o.9)sfSãU"o-\OT(4w)FQ&[ydlJ,ONBg-&D:DqAm;mOkXGHxTF*Mp%::k1qJnv$)oAV3:IO1SãU"eA'E:hW.AxoCz=NM'wJ(\WS&W1Y/-c9g:Ce0HBt&];$MMdgz-1m%uI8kL.T+(:sãU"0DQ\riNK.ywvN^YsDV,WEOPm1NbuW0\T7M*HZ#]B5U3$NZDU2#+c).^(E*J]Hq?ãU"4tK]aB-ev%Bexe-*JC7W3WOggqhFXRjbrG3,b%fIDd3.rsi-pTqP&5rL]#/v]%4W#9JXt&KcUClKsf\j9,?1BI>EVgHX0Aav(]*-%7G:ãU"Ma&E?\QlJ+^fN^BE1CvSK]11F.C,qj0h7qP=2\p09PYF7rYN=&4JeS7F=EH4[q9ãU"o]mbD,qZMCE*/Tws:VF$bfQrU#VhTyT1h-LjT.;wi,lxA_c%&:DngFH(tsNj-wkãU"xZ[NU*jX9UuI:KJuBNC+t>%r&,R^,?LL'SK>t_amhjFEvji6NscTp45=ãU"'G-[N7*Z^>0KDB0FuTO*>hnsu]b)>c;n[oV+4P#DynzB0CGuFkYW;\Bah:OpT.ZãU")/f&GOjw9XPMok+Co]*$eF-&.8_wWC=3F3*HlNdsF&1hklHek04UM'a[+k<;_qDãU"RbIF^Eokd%ãU"up&'%9%9%%%%-%2>JaFB-2#0%p%%%%W&%%%0%%%%%%%%%&%E%%%%%%%%%wf&(hfãU"x%ySif%yup&%'9%9%%%%-.%:DT=G4nv-U;*%+%g5%%%0%%%%%%%%%&%E#%%%C%%ãU"%%w(f(hf%xySf%xrup%&'9%%9%%%d-%W%A(GYe3>Bg/7%%EO%%%0%%%%%%%%%&%ãU"%E%%%&.+%%.wf(h%fxyS%gfxu%p*+%%%%%(#%(%z%%%%E%6%%%%%ãEND SUBãCLOSE:IF S=97AND 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ãAndrew L. Ayers ROTATING AN IMAGE andrewa@indirect.com 02-25-97 (20:00) QB, QBasic, PDS 56 1245 ROTIMAGE.BASDECLARE SUB RotateImage (angle!)ã'ãCONST PI = 3.14159ã'ãSCREEN 7, , 1, 0ã'ãFOR t% = 0 TO 7ã LINE (7 - t%, 7 - t%)-(8 + t%, 8 + t%), t% * 2, BãNEXTã'ãDOã FOR angle = 0 TO 2 * PI STEP PI / 15ã LINE (159, 99)-(189, 129), 0, BFã CALL RotateImage(angle)ã IF INKEY$ <> "" THEN ENDã PCOPY 1, 0ã NEXTãLOOPããSUB RotateImage (angle)ã 'ã cx1% = 8ã cy1% = 8ã cx2% = 15ã cy2% = 15ã 'ã FOR x2% = 0 TO cx2% - 1ã ' ã FOR y2% = 0 TO cy2% - 1ã 'ã IF x2% = 0 THENã a = PI / 2ã ELSEã a = ATN(y2% / x2%)ã END IFã 'ã r = SQR(x2% * x2% + y2% * y2%)ã ' ã x1% = CINT(r * COS(a + angle))ã y1% = CINT(r * SIN(a + angle))ã 'ã c0% = POINT(cx1% + x1%, cy1% + y1%)ã c1% = POINT(cx1% - x1%, cy1% - y1%)ã c2% = POINT(cx1% + y1%, cy1% - x1%)ã c3% = POINT(cx1% - y1%, cy1% + x1%)ã 'ã IF c0% <> -1 THEN PSET (159 + cx2% + x2%, 99 + cy2% + y2%), c0%ã IF c1% <> -1 THEN PSET (159 + cx2% - x2%, 99 + cy2% - y2%), c1%ã IF c2% <> -1 THEN PSET (159 + cx2% + y2%, 99 + cy2% - x2%), c2%ã IF c3% <> -1 THEN PSET (159 + cx2% - y2%, 99 + cy2% + x2%), c3%ã 'ã NEXTã 'ã NEXTã 'ãEND SUBãAndrew L. Ayers 3D VECTOR BOB DEMO andrewa@indirect.com 12-16-96 (00:00) QB, QBasic, PDS 131 8634 VBOB.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"VBOB.ZIP",4^6:Z&=6208:?STRING$(50,177);ãU"%up()%9%%%R-%tLn_FRM8HXC%%%%%(%%%.%.%%%g%tgVS[ufq^IvfZU7E9uPPBaãU"oVW9S9_'qGIf1UpRCs_EhxU>:.lo/34P_lVUa?5jj+#,gRS[5s;sGRo,'/zLHWSãU"m,8V.)Y/&%,iE(*NTguRN?<8GqpqX;tKtd%Z-/j)47Ks&mcV:QWsvU+ikX-J/kSi&Jd1X:&xNTE.)wzmRD6t9ãU"^-sISlKZY/TYUt?YoZtCW4YPpSli/CJ\xej)QYA2.b_V47<30OARZ6X.R94+B5RãU"nFw:R/=)M$8cQGl4un*L[FRQ]-:5gLM_qjU7VRS'(%=8m<_Cb'x.'k0kWZ-Cn'IãU"n/Z%m.<QG6:IT^%u.ZfSeSO;nTbO4//3+IYsHRu-/Y*4oa,7^Q#5O9L*$'1,=.DARãU"q$Ca,^0;.63OK_??v?2i$J7'J:iCOsB;ln_yqi]'H.uu7X4mD=K=L-b;E3g>>RCB*.<3Cg_9,hjNB*EnF/)S8U##+6&UY[AVãU"1b\rzm7W'>)-S#7$E=S3RunA[GF_SXHrpI)br2HCWCE:t,k5&D?N_VrBVcy%g4VãU"d\sO%/ko$vu=3d4Lji3CouM\INXchTWB8WKeRKVC>&f1aolDWlxE_IK$ãU"m6Z_q$+s;ziHWv'_/_>GH1=\>+/&PUJ(K;8H=u&YrH5>5LJ3DY%e?#gzcl$.,QsjS+M]lST,inws-BMs5v6C>#PSl)L>)FkZT$'Q$^U$+hqC(AgC-PlãU"^n\GdQ0VB+;g8W[Wn6PgC_]#WW:[:cq>85=\w#wx$nsiWD:AH#,B^qaIQjoT7d0ãU"?Q.\01QCRQT+cF5xKrQLnH.847FolA8W02b[+a::za#^hHkb#a+rmc]p)bGf.q9ãU"A9+GG_HB[-Ula[A+/1=r8.P$tQSgyU5(,LKP1O*\+e&DJPCH_01Oktc\1]r3CJaãU"mFOQ+$u[6p18z?:^[w]/ROpCjZ7#[jC=)O2>oQ3l]h9&BD76,VGg)gsX?27*.h;ãU"He\KkT**K1#HrifAvYF3SyGZFu8m'(Uk2qbOXbBkFhq2k2udP6EMrnQG/PwI\WbãU"fE,]EC1Bfvq]P1LG,(IPM=/#,_7]NN_:B>Rz0U[k5]109FC.KNR>_AZj%kZG\CJãU"y?lR5+_3ELocwIG=ZN,I7speP4-g[]]x6V(gQ&\igu'rhzI*v#t>l69wMnL$:CFãU"^uAY20Dm_tA?i6*,3fq7zJ:Rz91:OUzO:x\9XR(Pma%a).LbDb/^dsFNL==b/F>ãU"GYLtjHadn)zjXYwOkIBf.e-L<'mV50\=1ALh[rZA#qV]aN?V>^]4V/aãU"F?[=cQ3=TL92j1J;x[,(;2mV,SaWq(6u)xgehNFoelFe=mFanc&M:&8-G':f5r8ãU"_uYMEJ8x>JtQ5iV$-\l#Y6UYf&x=/PG)L0hj%#hh7KãU"L\4(gWAS_zNmSrfM-to\YK?%N6MNI*2ug)GLv(YrEQ16Vxihkua#LhPJM\L(G_NãU"*0K<%7&-WU17RphY64Z[v95\a-8iEKB&kZDTD6GD9D6Lc_nPx$(#;HfJrMGO=_HãU"fsvh?p6(9E:L;mf0.:iSVO>SxbIj6=xr\E^YAMgLE,l\CAn:rc)elZBk[(>vGn7ãU"q)h9OLE\G/;eyNAj'%KG2c0;kOVg8*>nx+e(+5sWNr65aY0At^[uH/D]]W8ieCsãU"ff+eY0=9iya&8tJqDB4n<(BDD)Pn)O<^X$Y:-f:B3Bj4Q)itrO)NI\H3xqaDtR%ãU"\\UO?Y?,K,0QOUfLgU7G%8fK0qb:?^jgAj:r4VicG4'en[J<^mna2TRKT^iat-7ãU">Re&2XdFOiI%O/F_avO[CZuG%^taMG\D7S?r-ei->AkyAFKyh08qWaB#aph/c^6ãU"XVyiHte9cZC#wy?s#5(Y%N28HcKV:j6jsCAf>e>8QS:l?)f$D5uS6n)PRMqFmT>ãU"4R;H$U:7;jR/>'aV,bVeV5;l1M7PVef5G(/\tU[]T%8tRTe9Qq,Nt-\4R0\9^e+ãU"rL%(5SG/'/Af(YEO?73f#&I$W^F:hpH'^'Uh?q=%:sQl=$(S'K;BXIrsJCvi_mãU")$7to[woEI'zT.LdJe4+z:Oib]up8+\_Qlmc1'wlbXMA]_+,mOcXKw*1]WdA7#hãU"%I_**[;5%xB-G]u?MJWs5P5nfJot?Wh_sl8>x[OLhD:>F-,%uf$f.lQTk,e+eEw+6DdcDUa$r]SMT(r(VãU"i^S9a1ctWsZE0s).,Qvj67TlwhAhs]96&W)VcH'(fn#)viv==#B2h(NA^$Xo_?CãU"Xn1glfW5VY$K2]gs=d0>gXAc,w-px^;=DLR.ãU"Ph8__r._7&;#I4qD$[pD$E=:L6sf^ãU"j'=r=X>V=D-aJJOaPtQIE=,.hr^d;j/9*kxU>'CJ%R..wZ'J8sRys2]C(#,VZEcãU"kXDi/JAc?J;(9.-Lq(^:90+yRub&lcaWpO$]\k1U\^=r=SEi#ãU"wmA$LYd)AhW3Vq^piW'n39G+I$VkG$4o#Vr5.6:p=Mveco6O-c:qA:fPE3kBB7nãU"GNxRWFSfJ:cqcqOpYH6hnZ:=\LQEbãU"tO;?c=',Hh]\#xh?;Kk'wk8Nl/#(DVb&C1LjhA/)Yb#WtZM88ua<7>5WHo?1>*uãU"G-.HWJr47=z,R^0R*u/x)zzRgDc(m_1KiJ$AYZ;t(7>D>pgQ9pr>BNJ's5:Y,SDBU*z3_/--^V0;W\V'.hK,oyUc9wkAI/KSsB(yCkjP5NY3Y0mM+H,o-98hLi87?KUE6xwzpZ7y'qGe:ãU"XaaBz4W\?nj3le:L^+,^&pwYB):E6Sb<$8JhHvnrnkãU"AWMWG4[QX8r;g/LF_ãU"mmWrQnG1JoC3Uh>pK6Aq\JP6046ãU"RSzLc-lTh(5Zgl(]q4lnHt,(RecT$bHq9*O:bjGya;QR;T-N/]$I9ifd)R.<,/?ãU"/N1]sD)nJVO1np%5GfmO]R.+$$STp$'/e?7Xg[MLzff8Kvk?URzV=/*24aThj\dU'-LG+2pãU",>uHrt?S*pTHtrjiDh:;6n2ieCOrrzRK;>F&kuP/U7ud0*.Fik&Qs^PYk(B=d#'TS8A=D7/_TvS+A:tFFãU"1]6Xr(N;qzNvv^ATCx/#;-_U2CT-ZTsXp,SAh$/rBs2PRãU"DZITzcTG0'sH)G6e=<&=TlXX<5FId?dR&>$<.]9:J)Yn?Y=TH,u&jUk\1XMpfu-GGv*Qg8N/^?+27PmT^b%(yfUãU"'dpgo9bs7ZZn-K#du\$#O\YYU/Gs?Mw]67KV8hU16s?OH?ci5A+)m_Mt*bq>7?tãU"m%4K8nh$,+TGrFU3fLjpG)FpsOgT*LH[JF,>I;$Va9Kg1%7.CXD1rYq>It4*boBãU"c\UU+j+zXG0hTAKYVA)af[&-KFãU"op?vYC#lhD_j6GSI'GVdCZ$,mQBl,7h'U>LnU(GJ7DeyYY;1Pr;X5cfbMn^>C\7ãU"C9N*)J.[Kd$u9Hb]nChP]N*-'wYa198t,#qUze[1LQClbad?D\6vns2:-lRUR1fãU"1m68Ms:OUbjSL2D7R_z*k\deM%m)gB4,iwTu%p()9%%%%-C%;q$jFHW=&?>&%%%ãU"L-%%%.%%(%%gt%gVSxRuwfd9Js=Ed5jHm:vg20Sl=cnf3d=[.%*UkR8ZRD=D]f1ãU"FRmCUumvs_uUdLNXb4t[7%)D5V/0%KkMwE\&E3-E8ZTTw69/USu=55Gf-Qoe4CTãU"PTbhviW)qu=*-Sk*k4'[tUJ**exXFFny+H,&Vtjvw=IfMhRrb+JWaCV#)<$i[M8ãU"_Ye7TCj)pk[;)GR-M8^wwh0/?Mhw5K&KSW^MxT9#Bx3,kt%u%p()9ãU"%%%%-#%\q$[FRI$*JI'%=%px%%%1%%(%%gt#gxf%%jSxuXwfN,,]LU9X+I4SPjSãU"mup6909g7H/:\;%fKGn=>P()W3H>#uo^u&VhQjv8MusAj^TPvAGjq#7fIo$[./NãU"DVg_sQlV->ihp,GTP;pX=WV[(_0H6sHKãU"f6:mtU#+o7=05k<)sSrvO>]NH-m.g[GDG]^ar\YE'^Ag^^*#iZK^&g2FQ*OTRu#ãU"k&3<*\E)P;')bC[8r^&1W=S3UA/G_:ER.f+R1%+>1W^=3UA;/_:EARf+R%1+>1.W=3UiA/ãU"_:(ERf+&R1+>m1Wwp*:O&(%+1=U5/9O&%(+1=UU/9O%&(+1d=U/9&O&(+#1=U/*ãU"9O&(%+1=U6q4R&%(+1=UU/9O%&(+1d=U/9&O&(+#1=U/*9O&(%+1=U5/9O&%(+1ãU"=UU/9O%&(+1d=U/i-UjBu%p&'9%%9%%[%-%t_L_FR$MHXC%%%%%%(%%.%%%%%%%ãU"%%&%%E%%%%%%%(%%gt%gVSu%fqup%&'9%%9%%%I-%2TRVGcG)t1t77%%Wf%%%.%ãU"%%%%%%%%&%%E%%%'j%%%&%gtg%VSgf%xup&%'9%9%%%%-C%;q$jFHW=&?>&%%%LãU"-%%%.%%%%%%%%%%%E#%%%6#8%%%%gtgV%Sxuw%up&'%9%9%%%%-%.\q$FmRI$J&ãU"I'%%-px%%%1%%%%%%%%%%%E%.%%v9.%%%g%tgxf&%jSx%uwup%*+%%%%%)%7)%XãU"%%%%p<%%%%%ãEND SUBãCLOSE:IF S=119AND 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ãAndrew L. Ayers YET ANOTHER STAR FIELD II andrewa@indirect.com 02-25-97 (20:00) QB, QBasic, PDS 52 1058 YASF2.BAS TYPE DPointã x AS LONGã y AS LONGã z AS LONGã xx AS INTEGERã yy AS INTEGERã col AS INTEGERãEND TYPEããDIM Stars(1500) AS DPointããSCREEN 13ããFOR t% = 0 TO 1500ã Stars(t%).x = INT(RND * 4096) - 2048ã Stars(t%).y = INT(RND * 2048) - 1024ã Stars(t%).z = INT(RND * 32) + 1ãNEXT t%ããdir% = 2ããDOã FOR t% = 0 TO 200ã PSET (Stars(t%).xx, Stars(t%).yy), 0ãã Stars(t%).xx = 160 + Stars(t%).x \ Stars(t%).zã Stars(t%).yy = 100 + Stars(t%).y \ Stars(t%).zãã PSET (Stars(t%).xx, Stars(t%).yy), Stars(t%).colãã Stars(t%).z = Stars(t%).z - dir%ã ã IF Stars(t%).z < 1 THENã Stars(t%).x = INT(RND * 4096) - 2048ã Stars(t%).y = INT(RND * 2048) - 1024ã Stars(t%).z = 32ã END IFã ã IF Stars(t%).z > 32 THENã Stars(t%).x = INT(RND * 4096) - 2048ã Stars(t%).y = INT(RND * 2048) - 1024ã Stars(t%).z = 1ã END IFãã Stars(t%).col = 31 - (Stars(t%).z \ 2): IF Stars(t%).col < 16 THEN Stars(t%).col = 16ãã NEXT t%ãã t = TIMER: DO: LOOP UNTIL TIMER > tããLOOPããAndrew L. Ayers NEW IMPROVED BLAST! LIBRARY andrewa@indirect.com 01-16-97 (00:00) QB, QBasic, PDS 660 43366 BLASTLIB.BAS'Blast! Library Update - Copyright (c) 1997 by Andrew L. Ayers - 01/16/97ã'------------------------------------------------------------------------ã'Hello, everyone! Well, here it is - the new and improved Blast! Library. Iã'hope everyone enjoys it. You should notice a few differences. Number one onã'the list - Blast! has two personalities now! One version is for QBASIC usersã'while the other is for QuickBASIC users.ãã'Other Program Updatesã'---------------------ãã'BlastCLS! - Finally, a clear screen routine! When BASIC DIMensions an array,ã' the array's elements are all set to zero, effectively "clearing"ã' the buffer. Everything went well until I split the QBASIC onlyã' portion off. The DOS services function to allocate memory doesn'tã' clear the memory - you must do that yourself. So, when I ran theã' demo in the course of testing the Malloc subroutine, there wasã' garbage pixels in the background! Now, all you have to do is callã' BlastCLS to initialize those pixels to any color you want.ãã'BlastPrint! - Also, introducing BlastPrint! This was a sorely needed additionã' to the Blast! Library, because there isn't any way to print toã' the hidden pages! Now, you can print text in any of the 256ã' colors, and the background won't be erased like the old PRINTã' command (this has its good and bad points). Also, you can pos-ã' ition the text "pixel perfect", because coordinates are passedã' in pixel increments, NOT character increments.ããDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"BLASTLIB.ZIP",4^6:Z&=31091:?STRING$(50,177);ãU"%up()%9%%%R-%f*RVGu2;Xt?,%%%c5%%%/%%%%wj%firj.Sy'yE&&rb-U12b7lzãU"s4Za2%,Vt8(lnY\WTuQ,RfYY8[#E+dH*(gFXr/$Oa?Z2vdRj,+J?]4nsjA0aH$cãU"9<(i4%6EKo^:6.WT7[X'wc2KUX,LjgUlqV[DWbbYnKl&i(Mof;X=u5VHp0:03^#ãU"qtAgt$WHm8KlocV/c2wdvh:j.Qc2I6X\Ba*H+PszCqCCYAe3X(q'F,KT^u[DA\]ãU"x1psaI0:<%8L[nVUj>X7*x&[]JV+MuNUhTKFE=mED+fnh1f=3Y/F$5#]JsD:Id^ãU"M*]SzH:02kp_j+q-('3K(v-'ro;ki?ER;^X*:4jD<]aqr^[GeWJTmNJVLB0HghBãU"a#b<,A%\22IA)^G^YuTwqaWYiWASuv9Nqhk*wQ#/8j2j,e#p#YeQ#I.B5T728bBãU"PJW\8_k\t\QXq[JC&dB*+M4SES5hJ^^0I1Yk^n7T%8LJL8VAs&r9)f<6lE.Y^>^ãU"xb'S,vd$%?T-Y1kIcj=^^b7+eQ/m9r>H5k/sXjHAvs8(dWUJ,I*Vpw4Iisvf%pi(H>Mhuk8)RxsSL:UR0vA%=1;=Mre*Xl+H;PfhawruSãU"$Y0<$,lv3hXmcEJB'?61v?lArelz'U*F76(>9TN2=jãU"HCOK#)X)mRh&?Q<=D6EF5u.lTKIks]7*GKU>k]Tu)kxmY2DSe2xRyj68VB10ztDãU"I$R(]v:HN7?0AHelngDIE[SogbJ]?-.FãU"YlB=j\F'hM/W]d0$X_gtejc[LTS>8.V>T7MXbSM2Ws7HINZdDIA>I?C9/0pOkSãU"iS/[dhJL7[N1>1Rsv6BkI6mT;A.#f9H_n/$,j8FSD$DDA/\0$YUwH5:BidsB;KZãU"\XEMãU"Exn9A=q2b/DFty.>qc579G.ln'k?bU19#Ee^Ub0g6EQ\pnpfvp$i:5$fW7=UUQ%ãU"7u6vq$PXh;z*grkd9>m,ugD8EUwmkoFehf%Um/K&pOzoiG<+H$lf1oV/wG^Lgc3#t8+4SXGL$=VYM(wyOR6bZgWK1bSt1U%CHrãU"=2cSXkIMr8tVGks,WGt:bf-iF[,KtSYg3XãU"oo7I)RPzuFf3\4xj^luv[?f)k9M28mC'COOe61muvuoD[38&BZTs>BK6Py]zK^5ãU"zCRIy,qMup%()9%%%%-%(I*VGc+ISc&16%%%.$%%%1%%%%girt%vgãU"VV%SgfxWV*fBfSmbx;myu4CBm]UO=,aG=8WVy[.5V.H=o?aueOVNDd[+r)Z_MngãU"=BNvPDp[-Q9qT;eADm=g*rhbhmm.pPCp[Uc\pdilXd�q,L6ItH>hDG0%66InlãU"]\H(Hh1KAq2[[Sg1tY;TA,(9N1o;-we5)\04dS(Nl>Ua8k2-aW%e=[OmW6?2X65ãU"TH'$^8*m(svr2G%Yk1C2r?'7#6>a*%b-ucxGeLkNJ*8tCSMK%0<06OI*;hHE6=+ãU"I7HmV9d=i(eS8>9Ip%*ap5kbUC8F'=aHZIY,VZ\T]1JkT-x[J/^O1Go]u2o[6tYãU"J&9O],i:i_E*7qB%i>e<9pI5''Zmma]]Q1'?xL#$CJQPon,,,(FQB)ym03Tcs6iãU"UTs(On-NY\T:GW;z%g[X2\,&0*1-r\Y-%ZãU"L=/nHrcF\bl4K6vxA'R]O#T3OP^6CfeO7\/^K]o\z25T^EOp&X]rIMP'h+1Pw+GãU"8Jb:[Yo*x\8PO>%fs=z7Cf+3dn6vjmY7]dP%,hW<[9_y5k9ds6cGXa4,^5DBp^;ãU"x#[wI6f2,,>oK:[%sk\P(:u,i$K5$>g_iEKnkUH']#^p[*(_+Qg)TFd6dxw-:^ZI&SQqSkpWHvU/'wsK;xjco(Tsitm9&9#.Y6NGãU"iMszGm/WD-*mjNãU"Dr=;xP&*O?.KXORV$9iXl%.=9pbM]M]&GZ2406Tb0iHDFl^Naei4PI5:.&:9Br,ãU"^HB4msr7Ot]*R5F0?+&'<.2X1\Bp4ECBoFGrBUTv-it3k]3[5k5(q=?WL1Ib5;hãU"TZk5<,Nm?9cWju#wwK&4PcxxU5,PYQMZlW_K6.;,hGFiDqw/:LThVzMS\QcfZ9WãU"njGj\h+q8FaJ$Pqi%q2NMj/(#(yãU"#qshEl=j&7I0\Q1MW*R0:']hQN[k4iAwe3545N%V3%p)Sg1_(Z*L&7wl[R4i&cKr+$,G8ãU"eBUkZ\=ul0av1/Ul;S=]7sg(gmb#sC#E)=>pXHkUK(D4]Y,ãU"h9Gh1.$IIEh7iDb>4_kvDX%jml?A?qDh8('J]uRtD97L[0A=8.9>E=dE;MY3K2>ãU"3DuF3/e2vHj*uxKC67Mn(Kt$bd1_kNIt;^?otSj-LDW,=kz5FQ%CwL,NS8%p/CSãU"KdkS(0]E4>ow:dr+d$S=^U>l]dkNUIP[;dviDZo1p.XEg6SE55C;7N*4a^P5/,R7_b_\#Y1ug2VZYKOzN;8q*ediA8553G,ãU"oco.Z/svEARF)Ggc\7PTY0UC,zgIr81&']&j8<:?^LV0)c#]:e\D,av*A479RãU"73M2._lQSp4A5t^Dq\j)L_$*WqrYSJcA?rOIMpaI=]AAcVO0/tC$CXmev^z%+34ãU"bEWw\]J8myD.O\bwIIPBDb)b=Cq+%4bEKGlLaLy\)?WazMl2zo$T>=W\FrNJ.EYãU"deNc),y[>+K/nb*S?ksXeYfSQA8CãU"joLZ=wp6$Qna;]w(Y-GVu#)q0OWrunT+JW'smxhV4UoUj.F+TZwUBsx#['e)$R(ãU"?)%78rVYuMFos)HbO<)RIntvGrKbcq'j(Dwoqx-?5FJãU"ukTwYf^(dpfuM.G9j[TL3F^]8lTOZs;Cc)^xzy/cFãU"VC9ggD6%B0o;lBKnFbftv.sI5PjDOB^do]WL/ha0k8V154AuEK=;TKfh::Ai=XsãU"28[YbLAX0$>b-=;m[LO5>GE.1hg$&F''chf?H#NbV:$Bnk.&dfeqxl2kuX0]n;WãU"_Fceb2H_3kN(Vg-PTGeB2GGNkg*yAI_9%]tMiCrX6h6-W1ãU"gw1QVv\I71HP09am+/%&[uH7D,B&n4'/.,55E.BN&$(_dW]:3&A9m*d$QgI(y)W/q+G2;bgVHntJ;Y#EQ'Fu[#Vy1?*lrmCG2jLlW3c$Lv]ãU"_VzK>oQUxUC1Cy>4;VrnG4O1b&wYeK8Rv1EGHh'tp5sVo2RtLg5Me+60L3It&h4ãU"lQ:99lafPp'&k)L9auhPTWwrE2elEH^0%-yo_UY)mS9e^*,T=;FB?$5#-l3sPW\:40W_=5kOfB)=,QNWMSJãU"r3pSSt'69(^AC6Z'XEoA$u\M/'&x'=fjZf*K;ACp;M=fqcNãU"PQP.xNXiv^yPqJoXs=Fsv,C\rWTtAkg^q>\,t4Ckw8NZf*WLIA+^b-K_7+IekGXãU";:U(YO^XUq$fEr$ogPXkTjEY.kI:ocpb3C[Wi2#sZ.PZ:#?D-Q.2PhR8LkK#U-8ãU"MI'6SzfT^*F$.\]&Qc6CE&^[7GCkivhqCB#O0Kr,L\s#$?F;REgDiLJ6q^ãU"hx3S-5_C\bvnBm6k7G0LBfãU"J9dk^9j.fJ,&FV$S;2nNM/v?B8Z=HãU"5tZ/$]#u%Q>r*v%O428/[a[,[9*R]xhG;Zq(5^,/SJ?svcjQ+xRNa+uQ$6JE/(UãU"B^9RFQ#^MFl\snhkc$hiZwDc*TT.5_XSWbE,8kEeuRb<-YTl-tuR><0-Cgd*uVuãU"LiR?h^]u.rtR3N>;onf-HKqrdPBCG#f?B5#/Z_Au/577h'rAbQV5S7Nke]tnzwhãU"pG/INC7:1Bn=Nx:>(,E?w[q$ol2%KK)]61ECA&:e&;2Jk')OCR(ZAcc)Vz.0*_5ãU"6u#0+f4rlhT50q8:6%;3BBgmUrLM[?/adP(iEa<>J84CãU"HXuGT,hX[pnzG^_EBd#0'R81Wc:]C<3p1=WEt:+V[EL9mZrn8E8nH*>pv%:rgs6ãU"TD%w\Nnc>O8BT1dY]E1d7e7.v_2vhx^1WwEhspdr2\fcH-^tj3p:?'VSbH=fT*'ãU"jBWetkZdlFexLuz/UãU"3&E:di8-,Ks9E).$#g#C2g*%\sZãU"J6okW\C610jj0HO42AL;i5(fZRA9qu.>gW4UdEl=XSFfmp*QOo,mf5GwUfyNjR_ãU"9:BYMs>=pMTk,+32MGXONS]%R:>GrL+^zbJP+EXyR_ezi9r87H1JCGV>=Z>-LS-ãU"07TgIF\-g&%>ScpinXb7,uiqno0+buZ%C?+sLJ=BSK218D8oLk'#dTFhvI21VD[aMN0lm=/sOSp0?c$IpAljc5/+/qc$l+.=;YW?D=P39GAbH>4T]ãU"0J9pq6%8c*.LszCYq,zK2m%K-Vj'8b:hsJQ_l]ND8)#6sK.?8)9XgDS=5R>bCRPãU"?3#\?0&BL9D[sd#?)KC=8Jh1RG1ZjHx2^-)PPt6gD9$vOBA5RZuc1k1a\6*66M7ãU"M=[H6Sxr;[&LN*kGxoej/zx'x%up%()9%%%%-%*P)VG;pXbq%/2%%'iQ%%%1%%%ãU"%ghwj%vgVV%SgfxNV)*BHT/7M7dXv4k:.]^Ci%n,DxCs61MXYbVd2PArKC_5IeIãU"3#Cq$?Ou-Eld'HSewHM>N<8DiwDQx50AtPM+ZW0k]grr1iFG=K'YaDSMWj/#&fQ$mfn9J7YPiQ<<.Wg)>*Y\Mj7iJX_m+1Y7O1KHj?tViK\=pvCNoER_7h/x\=ChNmbãU"*,P0dwRBVIQ(/\+,$^RgOr(-El.dVQ0w;VEMgD)x45RI;a[tt=2sfd-S/GdC]GUãU"9nbgfCAP#?R;g+SbGGFA<-u#-O;emRjDhy>GhmvFKeW6p:M76I$U0$m$TedIQDCIWFi':G*cAjjGe2D?si)LK;)UãU"N+eq=NVIa(MQ,1[OM5(Z]LP/l^#BYg4+sj9U4hm9[EJYie18^L0lwNAhFK0cBuUãU"Y1wyAI&td2]AiJ-ET:m<_Y:;6WhC3m0aKAJp51,g]f>^+MM^I1HaU7tTT],(>N=n(bp$U^6;r(.e&?L*vW5N477Ck(Q>C/djr-m'Kg1UG9fF=9)LI\UjI\3ãU"6'Mq+kEZ_3C%aR+p:/#NB_Tqu*8I:[7HxL)Oz%ycw3FVdS;]Fu2&AT&nBãU"l(nr?4JR74A,Fhm>4-YPN6uS(T%R2aR2NpK\)tKQFj(*PYN8#ngPbti]J]\r=_gãU"j,dCE[086R'%_a)>_:bEJ7nh8,.ZBe:y0<:EIhn3Jo.:Go+2MKqrmhS:;SJw+u]ãU"Up*>MAmShb6wR4/u#_4+7(p6-2Up)hfy#aX1?o\C(bTL7=//?^HDunOI8r74^'PãU"<3F5axZbJ=^&ccC#(yq4\s/=jb^K[GeL8^nOb$dora1ocIcd]UI&4I.qbNrMd\MãU"yn+0'&m=lxM?SEtp_*)^n:%cj3WGFOpG[ULJ$NUw/ZV$($]_G^jtJ/0S(5[iSyfãU"t>Q&xrFhYPH=xTNc0NTXN9yvhjLV?BB>(,U/STu&F*.(i9niDgZpg8kHãU"Iu:Zh#z3,D)xl^?#.q05^_t#.TBcC&w2t\v&%6U:A\_fOik^(c:e^gUa]1zfPbjãU"C$Qx[R6*/l$^*(M)y3k*E5OHp_IlRYMqP:9V)YibL9EY1q>_w,t8ljcTI>:c=r)ãU"x>U(o2^;y>4l?bI5>qHgtQ'?.=ql9xHc(o=OYbc$1,9vm'oM-ksEou)Hf3b>oEeãU"KCaVB7D6%L)ãU">i:P-mkC.bu7N]e,jlM7C?Y[,C5kncmM$XYfAI3,g>F2g3J%dhuZ0SK(8hBjL5iuTaM\uãU"t[?mohCmdqI8djbACzt=I-HlJJMY(egcaEaH]4ZAnJ&>l[O'Xr[S6>)ci+\H-XOãU"LtV_L#0h$Gjh4s+O_G/J'NUgd%Mio9*cH.'oI)DBH^+(uy_CG-*gfn+K2Kl_?]%AXc2_xF,Ad8ãU"0]D2Grt/g9^O[=N+lQ%M1zR1RãU"yyTTAUdzB.V6x+c_ãU"bNoqMFga'wYjeIH1ionzPD_)LFc?iRl^I6p\:;\rgFni7EkX;y9'4X]um2ehyD7ãU"^#<1)q$3MYZUr%lbqA(p,Aum1nv?3=Tg81\g(?XeOh)*V\0\3:T/3<=LCQBF'Wa_cjoFY\l(Nh[Aip\=eK4thoNE7]VwNxYMf3A?IB$Df)pk9=ZVgu>A*mDtãU"Hi;7ZXqDxe#k3/C6cDEta_?Z6T;*APVxxJtNlx+Kpd8-tN#7F=het]W-JnMfUqãU"H5q/Cd-j<)[a?N0mlDPM$^;=>Kc.GwRSEB:S=A]81:XJbT+oPIãU"]IAOX)$X$dRzHN(5ZWImi'=An;#5>g<35MHJf&rB+-6+uUL^)CXbj9TDsfj)J6^ãU"&vr/xGxuZkDY;+X>j;H\Q#%.pSu0ajEDBDhtz?&(PpYVEu7Izc8aKom/_dBV#)<ãU"=8b+dFv&FTLM:ya?SNEJ]K7:_i&kcOGO4stLRrne4Ybl0kv7B:,TL9/&o:(tkBc$mpfjnãU"$CA#qu_Hj9*N[S#D$+Jtms$r9QIx^LcYufY&p[EN+'AYFp)Hwlo#bTZ:NnnhDJAãU"2s=qeYalHU3T$?oIM^ãU"y3LHhe44>&[aotjk/ba>rk,)F\Gu(jv](Ji$#?Btk?$g[fTfIst8(p+Gx#k0^;^ãU"GV;.3/l$xmNHbh[4uVE=fLcvU$1-[4kOJuoM4%_qo2-%tm;Ffk5J+t[6n',G2RkãU"zENpv5Mv8bCEV%h0\j(ATb&6?TO[X^'9o),z_c;z+.u[a-kT0Im9&]bYsz2TWk^ãU"QFmSg+nH$6IC]oHmflN'rI\NeMn%T=vP8J)bAtS%lN*]>xtnRzwãU"-n;?=LNt+&nUãU"B),=Ht/eX73&U2yK?dN<;aPdj^HZ9[)RTWNMh]x5$M\W9NbF53?eba-*Nqy<2u6ãU"^cqH-%fZ3+$$ri*tetPUNCI:krTCbD+2/BlGx*RTO0g,966xelhhSQCfmJ$.-IDãU":86e12=0/tOA9])s7vqg*54>k\%xIP,oXyRnenEZ%l_XSMh/FQjR$aGT=P'MD3sãU"t\&C%KFt'EpY1Mh_I7J9u,TEsJCgVQy'675qpTTxqdEQtx(IcoNNcIh-/5_(>SaãU"cXg>3OBbItfcO$,2^HT17Mq./x<+IQYs$dGRX&q9]0?A/U+MDi;k-/TlãU"k\qHF+D7_w;Ml.N5.mneT?21Tb(4j;[Cj$D6<7hZ1?b\0dZjhP.,]jd162k3][tãU"g6<,Jalq%J,U30hIb>>k;P4C3+/nPRNUzlbmC[jnG2aGvLNfY?B[?Jmk[5X8QsnãEND SUBãSUB V2ãU"^987?8+FEe7m3Pw]Up[#K.S#&f&/YF5lãU"qU'pf'Zoh)%lflXIZ?=7]0m=\9B01y)4kei1ZZpI-MW0I8nPnJjPPgFGksMl_c0ãU"L&+e]9C^qfU0LgRhG9ZC]ZFlIh7?W>AfbvE9[b?g-b[iTO2FSsGq9YR5*[VQ>kD'\Sn%u,$DQ.6;qmI\]wh<^[ev7WMX?&ãU"^>1/_^Q[H'Dc=0tQ;4Wr2(q7#e[Y[2FFU8jK=NQ'ZpMmY7TTIu<ãU"#gt[<4;'>?UfN_7%NVGHn6l8L7ABYp[jVrCT?(ssiB*gH'WNmX=)+ãU"#85v/pIT(fN=]LfD-AdFUWR+6ZpD-hv)0g>n9bKS'gMu,B-uIW-XNk>H572:l=.ãU"5Ej#'F1aVr=HI5665\;n(*Gst0'EHY/dSFuT277CzQSh]:&Z/&65bp+8-.k$/HUãU"4YP8huBs'%UFH[;?B]O$CUt_/PTB2_tqnR]X:a.ExF6fP&wvSDr3;OO0hGT>'DEzkWN<)1B2UkUsW=GC)\0?K1ãU"ItWHta_:aRlT$3erBC>L1H%10?<5tPXl'j&BR#wWgV-ngq?WRU0qi0&VdDs]_WiãU"\oU9t2KHDHSjUw]6fq5_ME<0V1%#Rz*RV#B5^,%('8?ErINT$.WeO_SB]*V22()ãU"ZDm6B3ET7B9lEq\BHu4l+v<\$47(\BNag_vaPvbAa3?EG\0b(TL=oB/=HDaul:8ãU"Dv7^y/RTuxr>x.-KiHr^h4Z)m*ZXmCYl%<7o;ci]m.=.cjyH/ha'6sp((l0j,/_ãU"Pi2(FrO_aD*iQ=uvujxgVSJCZN)d'IzGXIhUXUUme+KxnP4a=8k[eSTbXGE;9XMãU"xEaJKA2&+1cA/mc]eS[?+Q;qW7jjh$I*B;q++;][H'2nOPdw5nDsc3fV_y.?%5VãU"cqylnkqEvKgZZq,1#z7H[Q;xA?iCDZi]Nh+G_G+-t&^i,]37.sv66fwIJlsDDYBãU"iL<nfPSiAY'bN9E[BEI$tjpSRkcVIB:c=v%x>P(G2^[9^4WFbNKUrnLnq+\8UãU"u3.wpH(G=%VZi$A,8lm'oM.ksEou'Hl+2=wEeMCash&d/e>ecSSM;9tR975OnJ4ãU"3ejxYZ1Xmrqc04JT^#:?Cb_Kik)1-G;U%qCoYA6xN5^KT0KMjjaU=_E[y4_IGtDãU"s$4m&3OMf4IEg8P7fm%m(j..9I6/sJsL%SYXLg:rãU"vUpK1t8vPO;>l/mxdDIP5ieL*$B7AK29d)9soS66'Wq<6xD*,b8gjgj.-j;tuCSãU")97(lN\DDu7i9syH6EHeFv^5WUjdW>cG>R5-rQC_tD)P,KaVK2q0qvYS$pMn7jyãU"9ml_j91AoyTSPWnAW^y+\hKQ-aYa#$B^SOo]'nJlGH:mi(1tu8-fE7rBT6mcp1e'Z5m5PJ3)G,Xo]MBG,f/Z9^_#=N+ZPRQ[QIZ8xP-knFfO,TIãU"kpb>0G3DEzUhfF;Ql&;1W'*VeXV9iRyYxRFJb*d[gc]kashbm6<]ãU"iJAwuqr<(,px=r(n3qvn5(VayH9,r..3Da[?KACd#vUM:3ldATXZfEe&QnL'0.dãU",S$614E6dceOcQroMQftL)&WPMYlL69TJWcWV,5o0L^6i678f=nsR8ranV8D=xzãU"Ki8E.R9d9lTTA7#?%r\Zy>+Eos)z=Y0otR0d\7rt>FvcfãU"xpgtNK5ZqeLTtQQp>+_zc+N0>$,jSR/bE01amTGQI0W2MBSmaIlhsDlRj5h1.A>ãU"r\OF95XgT12b/uT]/vK30cIW$emQwU[t;'_5Q'3#Er(l.GkGJ)(XRNxgn,.-9?GãU"JtN92Lhgm-B\%Gt0F=DEE?G,JfJDwLltM-?q6cc,;vqQp17SdZ#hp*ZbC6IEklGãU"[GFC,t(tCb#^o[&$pjd.%>lzJotvsm3V%I$4ainZ*o6NY_=wRSw0HRE/ZD.>ãU"7b&3=&'P=^&WgG[=*j0322i^;tOcOTK2]^D6?0rQW?QlMdcH#_rcHjv72IHFT8>ãU"LDR,v5)$2O)NaK2B+,DN>]bX$-U=fPcF4YE8L:c3/$-lfw((X^IH]ãU"ff3iqZe[#H*,H[AN.l=F)7\+s*L=[4?p3$E2Z-c+D#LQIP.qIRZLaIZ[W7Q1Ez(7Z]m&5PãU">QEJQorw\Tf;.juOI.t,,0^M5*'=^gmu[_H,lotGu(n\])tU$ãU",?Btk?NgiR=fL]dr3'?XqRZ$A0m#^-bb\W;o<_yuU)0<8h$2XipkMZtU4jED57Z.PC<\j9dy.$ãU"gdXxW'7qzo,ex&u%p()9%%%%-1%fRVCGG%)+F<4%(%=[%%%1%%%%gir%tvgY%ZSãU"gfOxV)h/ãU"[NWTEgHYYWO9dU14BfJY/p9Si#rSlva>jLj%$m5#'/KTHlPK7V=[AXDg#7ecRh/ãU"dSgfvGUcf%+9($Pt&LSFg/PRn8ESeT6.Wn]>A8SBuM.cMGT6CS\1QW^ar#.Ik=<ãU"A=)3X.8RQra)q&EJ]7?2*9$]%kJ/?RU(Rt_0RVGfui6&$B;=knEf-Q7HA$GRB3s[CFv6NPW&*[Q%j>Cif==[ANsq?9o-$9*8Yk=KWnApfn&IZ]:-WGJ>'ojQx/8,x'/+M;[>jbUm7qkVNeYãU"wR;D+A<1K#>J8U%FTb5y'ooz\8fhq-:?RIcqoln5Z:/2l8U)$4+5H%avr0ZMdMWt6q[QãU"w87*QM'RX2/q$gxFYM8CaN3lG9^m(p:j2l\Sm*P.O'>T=eFJ%H)(r)+AN)PIPN53<3%v6^2lbf5:WSBY]7FãU"p_Ye0ARfSH*[af*^;>eKLQ9o$_kQX(lAEmB;T'7,n)3(0sJh=pnbX]_E])_0mlXãU"6=#.TNh'W[+/=JX1pX#&S'F=3rIxRSCV__1PFBid[Y.1fprEeY4c-&0/FKqB1SFãU"V_f34R.oh9G/\m$..j3&;b;:^R6qR\f?WIOd_l&e_)RDTfJ[;ZPx^HfAY?5GlT_X[l0;4aBf#//hcRBn+M$e.4ggnj;yKCdãU"/GjW(2gVXQUepK853hy('N23TJ/k*];7+i/.a,+C&VM-<6-K;[e:Uml8Gn>5\$SãU")7kfiwaYB%mQ-=_&W\,+4AnxsX%Cs3cSeãU"[l6:6'Ews92F&*aQ]&N/\3Vv^;Y>SDX>T(;T=t1XS%BD.rUi*Kl#hV'L*wO9)ãU"5FvS$lqroKqnI4qJ(PTQ/NOCo6r]Pc\5=\K2u>qt[XrXsa_d?/G=B$dsK(_K1UBãU"%+jpu\^l>RjLI['b?Hs?r,$,C#eN6,V-+-ãU"9;U-50//Xk-5o9FlZv+,Ejn;60b4&P,l6E6A_:47[0b\_Gae(#*-Xy6NiA'R>?4ãU"6l[FbFYz/-G#)2c.Q=Z(71lZ[nd-pIpl],15(aTVQ'e,+caTh]u-[g*#,eFk.HPãU"7tqg<-xj2YA+Qez.5mVUYLZ];&TQX$:?>tu(B=,mrYo12,$(YX>:\>jmgsc)[:<ãU",_R6o3mV':sNP7F&zdy0Q2F'$96xki7Z7w[p0(L+KQPhX#(;Rg\w3mbexM$Oio5ãU"w]U_VK\6uLgf=lW?#5Y*#i%a$#VP;^0W_=7joV'E$lg'WãU"^/;ofmI4_^?t(gtt:M=0uCv:dUqTJW7v?'f*GXk(2*_mb8p.*8l#p(E4EMjce4FãU"lSj0Z^ZMFlTX?t*rx$Qx;wIVblv/]JZhXqDq%uIe:gj7+:qN^H_9x-8T1h=puf1ãU"m+HTo)0^d36l+XO,jn\xkDPefB:>#,tãU"1/dXjUC;cP^,=rcQq<=/qt_x+b_PT6v8qve^k)Af6tQiDPB:*hQbVyG7dyoq+sPv[AunLS*s8I3AãU")UMwY<,8pj9\<8M$-rjjLScnR*n]Aba-ãU"TZqLXCR/;6u:4tv?k3S=8^kzjWArZbY>$\)kLLeq;xDU7ni+iIINXr?4P9E0;Y)ãU"a[om\]Uw83Rn%*9ucC^vD3KBa]xwoO84^6$dj^)x%cQ^ãU"OWK8rK#bcFYtH7Uy%'R[K]n^HhN]?iKg1Spni0[T\Ha47%v7OO&3m)'0T%mdzWOãU"EN7yCUgRz2mIkR;:WM%MpY4mTe4WA);D>h-u/0=YS0:Xn*/>L(QVRv0-m.af(bRãU"0;Qnh-WP2f/v1*SYUODO-\LcpTQNr0][jpãU"unW%4ke5P+$iXM5JrD>]nvu>TVo20]LpEI7Y&-Dbyr,AJ]<,L[Z]8Z0bãU"]U/&56&?LKfR*p*SMRX5;v4X-uEWX6uuqHMkin1>s_Af$.CJfl$HRmg>pLSYCq%ãU"$6RhblUAD&e]JHxKs$5XA2mIKSVfqvWM#z%5b9sxgjjF*;3Jg^AC;,=-'I7Y*+XeAUD5,?BQ#ev5MGgn?qUyk%F>gy-_Ne>c,NR1,ãU"Mb89U3QK$\0EHXUa$<=a(93lKSh1p1YiJ+IPYO<^I_W=ChmT9$C*+>y,ewomDD]ãU"jy>_+u#%up()%9%%%#-%7X[YGb8=cvR27%%vU%%%1%%%%yj%xyvg%VVSgRfxV);ãU"szp>QOG11;Fo/hK?8w3J)baY[nUd)$]JFCX.Qm1S0J;S)Xl?,3W_Vps)#_o?l/*sjntrM8$C_8*Ml,#et'DU=.QãU"8S]Slb*052D>ZsBAnU9pNS#VWlrisRzdl8sãU"ySrej\;n5eWIO^9mkor'.T/UXR],99bpbOtCJ=r+j0U62MsU-o3RNvSgWH;R4FUãU"P&=J4(uxUMgH6?07.e5-.b'bm9i;>Qj;#(e2#];J9>Tv..q'3^lBeiCkkZZDGmVãU"V/JI/6&oxui+YVkhkv#tx.KqGYeYE?q[b8i&$[]Ke.Ir/C->BsQ%dFL;7;B^PNBãU"Uv/qX\]AZKI=n6DBaELxbOXR.M[D4r4DQ9Z1if*Un#[xDB$N92S=ãU"gq7%FqkG#EPLk2i#AGS/+^l(f&qX,4+#1dn9lm(uc^=U^M[l>r.RvX+qE]Kt8hiãU"ZQ#f,9bf>Re)1KK^wAg$>s0*YD#T%5$VfAuUQ,(2UqWvS-[W;O-Hb_ov\VQK-RHãU"'IfmW\7Ge\Ar.l62//gp\sUlA8b>2+<2;)Qw<]G$'\].1ãU"+1m9s,2&.F'?fYLvK%Z97s'qek[1iGXnN*gt0CCãU"hd4EPC(Yjf[D:1HfHN56*7AuQOA5r.0u274(gQ[lmBMr6gVLJ;^=O.La*.wiDn=9i\*,D=ffQleeMPX&dojXQ4pe>K<%e/kDlh,Fr?Gsd//lHqãU"LV(J]n0tB(Nt0UkG5WSg>thf;,N^)foãU"]gVuYUfv>oo=8?rwNQBjk81\;zn^6kGD1?[D>]aGwrI/$5'G^eM_6l.mQt-_BH*ãU"\#0)?WsKn1')962vS=BP*29-=DQP4I-9OO^3oo\k+t]^gRp;3p1cWJ0>%mxde+8ãU"9Qz^P%5JB>Wlr3;mnWsf:m5&1LqvTR[)VaU/d;Q8YZHhZTIg4M^;Zk-aãU"3ol#PrHqFE6xEvZ^QSdur+MYe^sCeRE>Eg=P_h6jAlY6tLOr[CV/Oh$#8*fv-=BãU"$6,FH?U,$?&?Yjh0$xYmxCf-d_vM]^_krL(%eX;Ro12L:KQ,Nb^_Wl5WA=KIXVyãU"_T;N\p3w=c+XC1UXA6J-V?2\GM*R;[PXO_2&m=J7D.5LS]qWe%eJ\?upxo,LãU"pfC>E=OR^9Y'e,\&7Q_oHp\f\aBi:=i41Gj>Fu]AngS8A7CT#jwRSa(^,<\WpMSãU"*pPXL:k\kH(;]qhJ6_4=9;aSR70Mu;\(j?$/vFSK9*5^ANC'Rg%WqWJEP-IA#WrãU";(k]UEv;gANamvr^Z8omvJ+An5J+orh&lk[3sSSa(,&?6ãU"s_N/&.Bd6>#iA]HSh)cVF##4QNbQ)]6UjM)fvmJPClY\[nw.\<5qeunh^c:4X$dãU"#WB]N0doH.)?5t0mhTqJ)i2>$Sr5Afq7Kgn$e9B#HL4lS]\:F[AN,1%'mCãU"p)cd7F]nDA.:v45G?1M:WsmneD*o*IaxA>f$-[A4vOp1a#c8t:Ds+uk5,-Dflz0ãU"XS(Q?q&T>5M1rR/7y;,zjv)jPl/OL%=Be\D4p*%6HwJ):W_?#t)JQV*A[&t/-%sãU"ab.BHB'F1Gft/yQrO1&+E#5-XQ$l\Mo;fVZ[e(tDFx^EdUqBrC1(B.miF4(WP^QãU"/c&fVR.dT;iWM%Hne1Jqn+Q+CdX-7\Sg'3u++cWqbZZI]MdeX1t=k)d2/xpV\XI91[9i5aJQ09t8%wX3C5F,Aui1n673;ogCUOa&1ioXFQS0cQãU"&h)t\<)ThV/zs>0YSF-Yf(>]hA''RDm2M75R&(=nhgfix3N4nrwjvWSD^ou,_x:ãU"(S#/\DCnkjQv;N1K:0jLid>>o:^$rkpuLQSNs*V>10>#&ujx3pH0xLJrx-ps5*wãU"sFjq[AwLkK1(&n0&0p;H\NZ10$q'Un]oHlC#?;IV%(+Z85wFr[(ãU"n]E0i,4iIc<;&oK?_=AN:aL,?+1N]CgT4+nM7,R%ãU"y-b+[tpsTl0r'C)LjJf8#OjWY^,JQP.)qKZLia5;X*6QEz[N.Wt_yq4SW/=mUS<ãU"Q0w$%w(TiaF;>7Op/MJhmu0L=Yebb67mW=k+1s5mOMH*k)ds8-O2Xt$5H(9Zs*_ãU"\Y1OrG,Z7hmwY])\\A?MQS*VE$&YI8'XhrvZ&/JrYE=Ic>%WTOKdRrZAc0,#*,>DVRQcT)\(x*^o1po7'YtNfgtI#AxC2EHYOM-.[W;\-Fmb/NãU"Gh*T0t>VXwWtKaWn-h,Xev:#QH.Tk^7gãU"nLj]6vcn1i.pjJ6t?zeE>9SkBDZ3jOBT?0UX(YC>GJyM'QA,L10lm1,_-.jh6zhãU"Z?,SA[qJ1nsB:%^l:%jvdG1F\-B>uzS-1<\5jPn:PUS^St0jSqfCA\'B&b6'W=.ãU"#%2_FtPAfRjfT^3k3x/wkLiDMGN7)r#pãU"V.*qhy<2.Z^Cr8^=ekRlAIs2UJete6J/JobzT>cfr+z8ZAM?JfR2u-^\1oxV0u=ãU"Z&vab>iWi&d;+l7G;Pb:kgp+*.\Ikt.(Y,x2>DQL9RjJ+wH7/+&BGrIEkoY.0k2ãU"TL:;sNmEaaAZAU6RJyWQ4;8Lc-#:9-X<ãU"o0.'dgM^60o[U8D8vWqKCa$4%\CWdrh&ua7vAEFn=n-c&ec7-4764IGISZIPcN0ãU"k2CJ&M.p%RM7:rxU3z7XJJjWDm\r->FzUTYTKjDslP9\;&Sl&qb_R,sM<4[^a>lãU"O/p8ZT_hf1[6\11)241\C_Nn,nM^ca$fuNI66'Ib&R1ber/a0a\VqkMkjha[lW3ãU"Dt[xKPj[rG)Jyh-vx*u%p()9%%%%-I%6u)7GSI_*B?L%+%HM%%%1%%%%gqf%xyfãU"x.rS)nLuDi4muCT;qt.UVlVVPYLe?FFs0g51=+0Yeh?FQ4?444$L)Fnk_h>K$t%ãU"VbgRDR.yi3zzOYIoS*%v+1A%B%%eR(a]c:m%WH1rep%&Olq%X%wH,)0(F:%z.VzãU"[kF:2d+r*t7ZSM4,I)4IIE6u2ADY.F9mCrVO&ri4AV(ShAC#qS&>3*4&t_KiZ1NãU"'.gIYd%lUd]AcR;0*kLA<$TL>qoAmqeZ$;$^j\M=\oBãU"8g[IwfRppvkIl\Hybz7&m^GANF=:_CSmINZUYe$Jm:.&9RoiãU"NZAa6=\waoK=>V\&[U_Wm$Uam?EJ%>)Tp/3wulC>ecxEsQb%ILrt_FJVeSKd8i7ãU"Q4U^ycd'Cdj642qMUi&#_iyZ8hc(mRYCTM%njfZvj%n\1>,H0JKtV/wE\^BU&0X2feSãU"F9=:to.DwKZ?o)qYYMnm\&j9AV&FUb.(oaWOe1rab?KDk\N7K=cOD>/i[*sO1&;ãU"8X7#XFVXh?JH+m5WnrGE_B'6ad'p0u-Y6blLJaoeFs;bZebc*fX,V[W62GlC3HZ=YRãU"T)U20(([kmbBB*,WOGj+7j#Vcnq1''UZh]L*z[c1/zJQ_IEnb;*\Vy78b%/s4]PãU"S6MM<:oeff6YS:FBZRhs0jf+bVYDW$a.)*dCicãU"qw6i)YXd2fxO]hsf5X[UrmZV1xZ+mAlhtM0+-;>tl_7B0Y$zãU"+#mOqKK$6cZ#7^kJuq'_\+TvNUy=(sE_j+y)x?5hUI#NyhQ;mD.WCitqaiGWgqkãU":I'%HN6/%6rTkhlfhjxn'Ih*fY7)VMY>lW0lrg.U#/59=L2\(L(If2Cu2K8f(E(ãU"Z%Y0Dt5Sj7vFMrD+K;jSL/NZN./AVkb4ZE>6iCd1vcK^3S9GDHM3%bZBPNjf:kyãU"VSeA%JE[REWaNgx4nz%.tT7OK7^ld8oSqJ>>S1rmxKjy^i'3?SPplYijoefsb:jãU"w\g8X9gSggV18(Q(Ur_.E9bKrKCsTeK9UsaWTbMs[,p^:E\N745'hP4E8tPrcH-ãU"%+[=\RtXclHE33/%YE],CRxt44YhX,>dJseR1zCQ>^>lPn><%:tO3f[OomW;H2MãU"=:Hi0[J4^1TuP9ãU"&EL,:3:d0[VtOA8bH5-)T-E.+AHG)g'eA&gBe4S?j1k0:N#+v,>A1^TZW'07srdãU"zrxx)Wb#$+&&7$f>9'?[^-N6/V)^\/<5l7mG.bGvNKV,vS,&ZqX\$(/ãU"xTj=(;Y3h#;p8IhJlkqpn:ãU"CvPCo5(CKRW;kvaosM'4wdF%Y.Ab.-v\w&3EUuoR3pO]k#Uz%/(ow/Yw;(e\3TãU"oR^jOxOg.749-oI4^So#fj./Y3#'0dY^//H9VzUOxPU33t3$0+,&YHnWbB2Rs6KãU"vL.02;q[sK,7jFdh-#5lCQi>6546$&XAo,]Qm/p(-ãU"J=,n3pr*+BYa.wdBd>qob&\wxhLUds8QKhr,wi&1*#v%T#r7SOC+;o5Qb>#JW;;ãU"tHY6\p'k.:PXH$b);Wo[i(fBk2'q=iYsdJhxFE$U2&Z<=C(-3.1GGuqi^WE7V%=ãU")I(>dRU'jQF^wUa3'qFypt5so/]'AgIvXHj-CV1p3Cm(ãU"878Pg+cTQApso>Y;.zpLP(w3;(ãU"*XSqwVUCn8askXkB)p20?$4fJ;J6r;M^zf8CZCPJ0gMsm+6ersJWFECb$)/&/S?ãU"%x*Mih]):/K+)V1)4Rb?NdQ%78a?cJkijcUiUN$VyB[_%+b7zifG&JUVFGQH[F_ãU")0;bP2_lKIy<,$q_aDLtp%gj+/qqw&9a;z\u_TrJP0DeX\v%\S0YYK$cyihHq%^ãU")%zlBh3XHd[,r1Cz%4nprf0F.D0>e.JaJ1PB%Q>j3G]\q*F,(m')^vC.Xnfv9IIãU"PF3P(Qz9nFm&,Px6C4g?mKee:Y;Q.2[5#/(.BcVgMx+S)#&'&H7Z%lFa2TRe+1dãU"2McL9C+_PxAf]N?GY7JCuis3fF+>hJ1A[F*)46]CJBR$GZ].ooFtnOfFBrT%$(?ãU".3$v75%EKu(XuO[=DID#80Abp&=1Iz6+FDãU"DG9'6?W_^1NW\Wc:#97KS,LIVnL#$n$aR_/:6710/?2ax2&&q>Xpw=1G9*[e+9NãU"+a$MhYOkuK5)^fPGJapL\QYQ+[Gz>+\m/ZI;t;90$9Fb3VNoD1?o%T?bbM%7krsãU"XFt/mJ,wnWmE1:ORE<*mEplzII*Sy=pnaG+r\0\P;#*a<02v*>(D;2R#p3m'/z<=jjjn\CnZ?V0&OLwcE5CoL_h.qgãU"Ch1<-)5E5rIe'Le)uqymj[UiV9FP(_Lle2ib*:tPOf7+\/zcfu4SZ1_>?:EWHD%9>9za1ItBj-*HX'#_L](.Pl[3js;WJu5u$F6oD6NilQ[L>xO:6;ãU"(DM'K;Lkc-4.M,f>gXUrYgQ0\M[sIS;k1F*M3yEwWhgG]YQXN]+uJ.Dr\QRHk^\ãU"CUp7Y*\*GiI+3oq0cU&FeUeg:2EOLF,G-ce5m-pX)(lE]Ix%X]tGaX-EjaIm=qGãU"-R-GY&x*2>Mz1Fg,U+VVsh&+iXpSr4ol3Ssa^Jh#olqhCTY&L/tME>nCiBC[w94ãU"CIRa(wyS?+z8sxbQ.v\)%+G4eSMs&9h1gPPycT$Xs/?DWbE'*k\F_M'ZRRQ;'8_ãU"gG1=di,ikplfrfe\ef#Zo[7EmT0xq8.N?SZfOy])KY?n6bhew.-iCOx_uQk'=3nãU"PHRn:TAYD\DRzLW1DJIh]hxDO'KK<;YREA&B]*E1Rr+]7o_2&sS>8ãU"qgr7Ufv/i,[_/v?ScQ;sCvK9QdSRn&R\I8iMqXB>H3.)84pGF+LlPlu;27rrcSqãU"\5/Ch+kT,WSc];;R,9n4?aN>-7g&RxnfiXmB6pvlf4l6E'f6pL(S.%o?3s?qdERãU"=X=\#xWT:>?j1_GzM9qx^A?>%Q;^jG6r39%]K5t1HYmWo_>0:KQs]qnl;XWãU"+V1SdFDjFW5p%M6s0yojCLrTuq\07mH_TT36[iB%>4aFWx5XLC'l(%942,2GGe7ãU"ZB4W$E0$op;(t<(Ve\8Pq&(>JPd3y^AQ.In%.Szz3e_#SWgKKrVNkwgrE3q8RVxãU">VXsXIcFL0<;i*%W>,bskM4kyEibqqd*rl[FjQMofWEI$X(2di1L;Az6,WW:N++ãU"//4&jaN/IOrxoIsPL.u'ht)q#u_^7#X_cu,;Jw7.NhQAfIn]CZ,-^Y#J%qHDUnuGOãU"=tNr[7CE38gC6$wGB=Qzw]=hl4DtshV(tR+Fne::>Qk$B\Mx_VbM$lA,SFUtCF2ãU":PQp=h\](r'7V/M]x3gQ.8?Q\7K$rTbD+Y?Nu,Ielx=%MtMlgK6/:]&f(f9FTurãU"cf*Y2rt&5nLxT\?qlrPdK?y,aD98OX9cnuN\;HvLdgF>-1$5Fo&l0p#6j+*'1P^ãU"S]ZRU+\MtfpL4T]f^Lg6IH8y'?8(r,(Cq%^mun04f[p;m?G8p$,LSfG1bgVSQu=ãU"H'2(g2u?KdP_u*Z-(hGNJCF-+=OA'DJZoLh%4-))U\XVU\GUAKr[Q7GVFj>-_'sãU"D,d_5&RsQn>7zb_c.w5Y_ERoT?:S2&NOHm8dV[6L6/)9yjSv)#0G5I'$MBs$P8GãU"z_LG7X[up-J7l1/0Ko#F]*N%6N&ls7PiRiNqgmFbnKI9oh4AFg*PLh(S.dj0IqUNRXOBq6/\O>&3?*Mh\04PfKNQfUãU"318%o(+fM0$tb:#H2$Pf6;'K5RndgzY/*;LUpbi_:eL23vBkhon\;tQ6mRDb&ITw6tgJIiCY-5Ml9<+v9Q#rf=s?DQãU"W:w$e#9NA:_FtDTeM8Ty%Jn%mDmV)bi9IoKi&R^x'a]q$pD0#M8V#J9V3jb%USrãU"%o/Nh*wZ1RiqNJ2-$5GA_zg3jkUtB-*&e>dH8+6YUsm-KuhW%M>A%V/Qx:^%YOxãU"Oxhx>+N%nGct3;5dF&$M_SM_Bf\_Pmsp2S9Q?Lw61]x1EajkpvZ[J0EWTouKYn1ãU"YpPSBgVT+Gb=N4lGk>WB54k-rYG3p]lãU"W&I^I8f;9BWZ+B]eA)V^2op2fJcoI\e%vRCd5yJVRP1boYdGGt[3DK:Mv9_]SsoãU"foGkGu]WIiK459X]0k=n3gHzx-eN%9UerW=^)N3TdnN3GR^9J(8:jOiW&Cj-.-oãU"mXw#[e(lo(upTW?sPZDN'BK8AX#GrcpgpV9^9ELzKD]./>C0/3FF-\xL=?YlFm(ãU":fX]&Twjs;#jAf1ClN_I(Z$a6jmvuC;XjwmWKz0Lf?<%15g0yluvstKUQ(LwOZ;ãU"IlS:#H9i*h^2GB'j24b#6$-dG:DdN4a\Fg#>)(&]yP#utIdi=Q;\:nVBx0Z89#;ãU"3JvAEJi$-2?9d]q\WA&+>I_/Y4gKDCffKx4cF9)(ZO8q7$b#zCEU,sUrt[F1kc]ãU"JM9NgoIWhiGA[g6URwhEy].e2c&cv44[us/TQq3q.Zu/&L#os0YNlTr?XWl$KH/ãU"a&<3'I=^#:3vej:EPr+&ukg]kelM6OãU"#FT/'[dR,yTe>lF]Im0\Csn*%DH2e3zJjcf&H29]q+L=u5F)iX'8MR8NEd\vZm^ãU"+iWfZ=PL_]I[BxauROAK'NE1R(FZ7TE;oP&tmC[ZXo34kDiVH\-HDXj/v\BCTdyãU"m_W1jrSO0S*J8dt93OS8cL:,e:06s=dUf6MPREC0,2u$U;4dM4T+kM,UB2cm9tiãU"A?[1Zm[Q^CUi^SJf>;2xocHNLSP:XRpLcuT6nFe\eW#tG60YK%>+:[.j];0PctRãU"jwND[.W.R0ZC(_w-p##R0F:?n%?(F>;6lq-WpfSvRRh=)&VeyAbãU">q6ohe7KK5CJo->VCfUcna.VR)1\q&UqbDoovuHrUnd*skbowiC*?)d?='+ft(VãU"v4;1+:4>w\p%d9RCM\RV5-i#:Uv#m](p9rG;O7P%*7XTKn%8.Ak%_5Yb=_?e(3'NTVlqZ;&ãU"P'a;r;c&9I;rfUQ;4dM]2qU:Y.HkzgokRQ,e]0QBI#s)Q'nEYz-j=4#/,c;H11(ãU">],e'uE$aqJx+GS)Op3*t%UwCo^bpZUR58WO+*VU'g9DEgX>1\b9Z3YESAJ2lAbãU"BF5tmmEiQvrI#2qVEe4DWZwsPaIe.*<+jc?_w9PP\Y2<1E';i^CTG8_]LSxcrDp5cs2II82+^,WIl(A&+?4oQ)FGNgtT8#6APdGVP.2u?&bãU"'bKQ?)T;GbTq,c7U+8lPEZYJ3m3t#nd9(Zb0Cl$]+6TXDi4s?;AEG\skAl3M1PTãU"#JuhR$P/b6aIu*#F4gm16A)9ZML3H5LcX[HYs*d^6G;2m^_EWmQXEuRoudEo;^)ãU"gvb#(NOPX*rWSp8'^>.R&EEc_-o3FdS^2TrZ8-Ep#L%oM*'2/7Fn_;#K.9MQãU"s3nV6f7W^86oDTcMvcwMCw3E&lP.aVpB<,n<=>4>-6n$t6Yn3ecK8[Xhc6=.fVg..xg$3M+ãU"sY2nj,R*RQ)AeS/v+CoF-Z;x)DQd[zI(S\]2Y_M^]Y=i/eYEVVLI:^#)l?ZKCZVãU"e=iKZFRQ-^#6uM4p1p>-bU(N:>na1B^bx2?&ifGyIY3qM(eM_y#Mv\LQ?3(09#)ãU"kkFl2i+DZjopW-r8&?*6$PRTFbA#9tQ^AAvqjfYvKjm*27:mwM:422WESh;RE9IãU")6fjjT?N^Q8OcoZ8Un2I):24[:F4<\Az.[Hm+Xg:wEn,MAdfwb5/K6#S0WLk&F9ãU"g*e-0^2#hfpH*\UueY)d>,fDsdJr#Tl$pyNO+6=SãU"RaG%ce<%PeJLUKj4?UJ+;%S*+k1^$E)(^-;kRxxaWSIknxI4Jw>oC&_jFG*8.+,ãU"vmYrX*Um<^zxy>B0%?cjDUjDwkZ?d2mT_a%.X*tNZcGZpm1hQrDz[Y9(MAHf4ADãU"bB_jiY#6Xq6n1hM\876g&(dg:k)7SQ1PC$Kf+1^O74[vG28/RODalmX0tBQ\pb8ãU"c7lm)PJ9V^w-O$dL*D%8T#G$0=^tWkpZ;([oPo*8M9V.k7tV>NdzFcE)7t=9R$Ccd/pL6BFXQWR)4MmãU",c,Y<8N:w'tJd5A20xQh=m[:G:6mfxH&6w.iUyo,qtg#xVrP&0U$&pPXg%=3QX-ãU"KKi\k+#B+u*xaOD]HM&BhgB3',Avs.-ãU"J6KN6tk(*,]I5T$EBG,8X%SYZh>9#1A>j,4>OwPiiw2mBP0M>S^2SRJYLi^a,XSãU"Q8Atc<+WJtMF=x:gZ3^TBSqb)*)iO/-IRhVSweZp^iQAVT'B-jLpD).+E)7I-twp,'I]U%fJUTp'W;AP8M:]aB]HgpH=_GjãU"9q]lKjq7^Zc9wtls#L7.CKGD&M-4CchsZF9L9pQMHOub:i_lgTpSWS%bV++cfDzãU"Z#tVUVQO85<+o#sDicI;%//.%:-pwB(>XP06Bv2K^(ikxq[[WTN\=WY,WC'=tV1ãU"v8j'g8P;';D%.MjXOC(p(($A?hbd_z?Hh^kgRBF*,*Avf:sTI^8?.\F\dn;m[Q(j2Wls,(S+=VFgkT]74DGgG4A1vQãU"jcGb_N:AqqESISY056#.Da-p*^1+Ilc9r.Il*Y?i2)[IDBt#0\39c^+q?t_?AHxãU"#t1cVhs8:sWt^Q9?T,qnz4r*ZA#E8[owm3Gf4MVy[z6;]xeXOJãU"dupTDk[(,k*DonVve1nM+oZ[v^,\uHwc'1;UUMJK2;U#-t-<01a_1IQ)c<+5^l0ãU"'Q4Ee,Le1P%=2Y,I22/n[m6rBZ]CxeIW;4A,JT,l[g[].Xse_8m=T:BiU+R.?QIãU"BPw'8VB%Gu+%K7D]XaDfL)3X/kLifg2DhJ.P7WjJp_NOWDIm#iU4Q.wTmHa'a/cãU"95(:*X<5A.,cJX6?JBEJT#9RPj(U[g>u]i2x>ON&S;ãU")f\vV\PJ&?P.tX5(O-P3-P2^XePSfKdU+DCj=E/)([.+^P)Oi'$6+^:nwxRsbxMãU"o1ugs\6#nNsP&)_5c&]6pqgH>rVT9lov.HMs($F7Y1[vFj#9ww+rtgd9;d$qvNQãU"6N2kMlm:pI)lv3jN_QP]D:$,]C4t'=Xxl)(Ol_]uNYjL5ilYO*nl/Wk*R]aeH7RãU"pG'u2Y;e+vSP6o=ZDRR%s5aH/<>&Xa/B,bYPkfO*qSwQ9sorFV4BQmB&'arp\uFãU"H#$ck6K)Rdc,O,Q$(H)gYl:o-/=8Z2-Q.aBCM,Z9I4x>mt:QfpsFQrn?SXqtr&H[HIãU"&O-UCdoeq'LfLR&$CE7D+c.s:#,o$[Cxg-Ez7DKanFOueLuiIdKfU((wwU(tvPdãU"D:90N&xIw6Ol/LXpYE'S(O3ea=9ud;7n[M)Flyn=yO#FpHe-lu\f+jV,3)AAYNjãU"0li\ZBq_:um9?iPG1/Mr4^,8^cf73&,>t8Ti?m6E[',1F0a*Yat=ru^N_M2x9(IãU"_R$O=eUJ>gMkg%'mXN;id+NuV/cs:xwkWIgyx51vOJBPg:#z#EfN.EU#y<;qp%4ãU"?v]OHkf7IG(jc;:\G&h[IL%&ei,Als4)qX[V=BLa[gO#U$HX\pp.FdM8CSan=WAãU"C1/jWK1jJ)_oH)sgx)d#1(#K?7J7OI5lBvh,KZSfQW]KnS_D(,?Qa)$1u#s3B=/ãU"='xzqwi=VoY#fA_7H%_O]pdve>qU^4,hTWUEIh#*r)H-2mtaJWsiY_20cWLusHxãU"r<^zrY.us6SQ&q+5[j=TbOL(qBSUJTo/sS:Dm:I#Y5c22jTvNhkPWl%+n%lxOGW6O4#*Sqp?UhX&R7gmhV5N#&Spa%1Y*_mbs/nEbyE>k_&p$Pb[ãEND SUBãSUB V4ãU"#AGb?L^R[yd?Yn0PMG45dVAxl*#T8b+ãU"+oi9Uh9YPScbxC*TJDpq.2o<\UIZ-;.RlMc-k(DvmP'&TzW[WM^BMy)a_\0Tg(:ãU"kOjOWl.yYLLXWslFkP^AGe27bI).fYY9FkL8IV>:GY306(g'9dq8,h7ãU"#1W+[npV$PZFbM#5q.qCom0=hQCX']T&tZofP>+FW2S&3huDrM3(HBohjkBx%wu0bn8mouaxqk;x0lk8dp2NdjmrãU"x(^xY*rX)?88CR?-xe%Zx&u>u\f8CP;eN^u7x&tV>7w&9p0xdsfvXCWxeTs,L&Q%%9jyx+v%Tup&%'9%9%%%%-4%f*VOGu2X,t?,%%%c5%%%ãU"/%%%%%%%%%&%E%%%%%%%%%w%jfir#jSy'%yup&%'9%9%%%%-.%I*V=G+IS*c16%ãU"%%.$%%%1%%%%%%%%%&%E[%%%g%,%%g%irtv%gVVS%gfxu%p&'9%%9%%[%-%PA)VãU"Gp,Xbq/[2%%i%Q%%1%%%%%%%%%&%%E%%(%I>%%%ghw%jvgV%VSgf%xup&%'9%9%ãU"%%%-.%=)V+G.#o(U60%(%lL%%%1%%%%%%%%%&%E[%%%'%K%%g%hwjv%gYZS%gfxãU"u%p&'9%%9%%#%-%fARVGG^%)F<#4%%=%[%%1%%%%%%%%%&%%E%%%%dW%%%gir%tãU"vgY%ZSgf%xup&%'9%9%%%%-.%7XY7Gb8c-vR2%+%vU%%%1%%%%%%%%%&%E%%%%QãU"%g%%y%jxyv%gVVS%gfxu%p&'9%%9%%%%-%6)u)GSTI_B?[L%%H%M%%1%%%%%%%%ãU"%%%%E%%%%Tu%%%gqf%xyfx.rS)n%uup*%+%%%%%,%,(%c&%4%BF%%%%%ãEND SUBãV2ãV3ãV4ãCLOSE:IF S=66AND 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ãKevin Fowlks MOVING INTO STAR FIELD EFFECT kfowlks@sojourn.com 02-27-97 (07:06) QB, QBasic, PDS 69 1156 STARS.BAS SCREEN 13: DEFINT A-Z: CLS : RANDOMIZE TIMERã'Star Field programmed by Kevin Fowlksã' Displays up to 599 stars ããDIM screenx(600) AS LONGãDIM screeny(600) AS LONGãDIM z(600) AS LONGãDIM x(600) AS LONGãDIM y(600) AS LONGããnumofstars% = 400ãão = 255ããFOR p% = 1 TO 255ãOUT &H3C6, &HFFãOUT &H3C8, p%ãOUT &H3C9, oãOUT &H3C9, oãOUT &H3C9, oão = o - 1ãNEXTããããFOR a = 0 TO numofstars%ãz&(a) = INT(RND * 256) + 1ãNEXTãããããDOããFOR i = 0 TO numofstars%ããz&(i) = z&(i) - 1ãããIF z&(i) <= 0 THEN z&(i) = 256ãããããIF screenx&(i) >= 320 OR screenx&(i) <= 0 OR screenx&(i) = 160 THENãx&(i) = INT((160 - -160 + 1) * RND + -160)ãscreenx&(i) = ((x&(i) * 256) / z&(i)) + 160ãEND IFããããIF screeny&(i) >= 200 OR screeny&(i) <= 0 OR screeny&(i) = 100 THENãy&(i) = INT((100 - -100 + 1) * RND + -100)ãscreeny&(i) = ((y&(i) * 256) / z&(i)) + 100ãEND IFããscreenx&(i) = ((x&(i) * 256) / z&(i)) + 160ãscreeny&(i) = ((y&(i) * 256) / z&(i)) + 100ããPSET (screenx&(i), screeny&(i)), 15ããNEXTãããFOR b = 0 TO numofstars%ãPSET (screenx&(b), screeny&(b)), 0ãNEXTããLOOP UNTIL INKEY$ = CHR$(27)ãNick Kochakian GRAPHICS MELT #1, #2 NickK@worldnet.att.net 03-02-97 (06:56) QB, QBasic, PDS 124 1742 TEXTMELT.BAS'Graphics melt #1 and #2ã'ã'3/2/97ã'1997 By: - Nick Kochakian -ã'ã'This melts any graphic you put a "box" around.ã'ã'If you have any comments or questions e-mail me at: nickK@worldnet.att.netã'ã'Have fun! :)ããDEFINT A-ZããRANDOMIZE TIMERãSCREEN 13ããx1 = 5ãy1 = 7ãx = x1ãy = y1ãx2 = 305ãy2 = 15ãã'delay = 9999ããway = 1 'The way to melt the graphic / text on the screenã'way = 1 -> meltã'way = 2 -> boil / blendããLOCATE 2, 2: PRINT "Graphics Melt 1997 By: Nick Kochakian"ãã'LINE (x1, y1)-(x2, y2), 15, B 'Uncomment these two to put a box around theã'END 'graphics you want melted. Then recomment.ããpixels = 10000ãpx = pixelsãpy = pixelsãpc = pixelsãonc = pixelsããDIM x(px)ãDIM y(py)ãDIM c(pc)ãDIM o(onc)ããpx = 1ãpy = 1ãpc = 1ãonc = 1ããpixcnt = 0ããDOãIF POINT(x, y) > 0 THENãcol = POINT(x, y)ãx(px) = xãy(py) = yãc(pc) = colãpx = px + 1ãpy = py + 1ãpc = pc + 1ãpixcnt = pixcnt + 1ãEND IFããx = x + 1ãIF x > x2 THEN x = x1: y = y + 1ãLOOP UNTIL y > y2ããpx = px + 1ãpy = py + 1ããx(px) = -1ãy(py) = -1ããpx = 1ãpy = 1ãpc = 1ããDOãredoit:ãnumend = INT(RND * pixcnt) + 1ãFOR i = 1 TO numendãpx = px + 1ãpy = py + 1ãpc = pc + 1ãonc = onc + 1ãNEXT iããoncbak = oncãonc = 1ãonccntr = 0ãFOR i = 1 TO pixcntãonc = onc + 1ãonccntr = onccntr + 1ãNEXT iããIF onccntr = pixcnt THEN onc = oncbak: GOSUB oncreset:ããIF o(onc) = 1 THEN GOTO redoit:ããIF way = 2 THEN PSET (x(px), y(py)), 0ããy(py) = y(py) + 1ãPSET (x(px), y(py)), c(pc)ão(onc) = 1ããpx = 1ãpy = 1ãpc = 1ãonc = 1ãFOR i = 1 TO delayãNEXT iãLOOP UNTIL INKEY$ <> ""ãENDããoncreset:ãonc = 1ãFOR i = 1 TO pixcntão(onc) = 0ãonc = onc + 1ãNEXT iãonc = 1ãRETURNããNick Kochakian CRUDE SHADED TEXT NickK@worldnet.att.net 03-02-97 (06:56) QB, QBasic, PDS 135 2405 SHADETXT.BASDECLARE SUB shadetxt2 (message$, x!, y!, way!)ã'Not-so-fancy shaded textã'ã'This is another cool way to shade your screen mode 13 text!ã'ã'3/2/97ã'1997 By: - Nick Kochakian -ã'ã'If you have any comments or questions please e-mail me at:ã'nickK@worldnet.att.netã'ã'Have fun! :)ãããSCREEN 13ãã'Make shure message$ is longer than one character!ãmessage$ = "Just another way to shade text!" 'The message to displayããx = 1ãy = 1ãã'Ways to shade:ã'way = 1 -> Dark ooze text (Works great with a palette cycling routine!)ã'way = 2 -> Brighter ooze textã'way = 3 -> "Light source" rightã'way = 4 -> The opposite of way = 3ã'way = 5 -> "Light source" is centeredããCALL shadetxt2(message$, x, y, 5)ããSUB shadetxt2 (message$, x, y, way)ããcntr = 1ãcol = 16ãcntrr = 1ããmsglen = LEN(message$)ããLOCATE x, yããIF way = 1 THENãDOãCOLOR colãPRINT MID$(message$, cntr, 1);ãcntr = cntr + 1ãcol = col + 1ãIF col > 30 THEN col = 16ãLOOP UNTIL cntr = msglenãEND IFããIF way = 2 THENãcol = 20ãDOãCOLOR colãPRINT MID$(message$, cntr, 1);ãcntr = cntr + 1ãcol = col + 1ãIF col > 30 THEN col = 20ãLOOP UNTIL cntr = msglenãEND IFããIF way = 3 THENãcol = 20ãDOãCOLOR colãPRINT MID$(message$, cntr, 1);ãcntr = cntr + 1ãcol = col + 1ãLOOP UNTIL cntr = msglen OR col > 30ãIF cntr = msglen THEN EXIT SUBããDOãcol = col - 1ãPRINT MID$(message$, cntr, 1);ãcntr = cntr + 1ãLOOP UNTIL col < 21 OR cntr = msglenãIF cntr = msglen THEN EXIT SUBããDOãPRINT MID$(message$, cntr, 1);ãcntr = cntr + 1ãLOOP UNTIL cntr = msglenãEND IFããIF way = 4 THENãcol = 30ãDOãCOLOR colãPRINT MID$(message$, cntr, 1);ãcntr = cntr + 1ãcol = col - 1ãLOOP UNTIL cntr = msglen OR col < 21ãIF cntr = msglen THEN EXIT SUBããDOãcol = col + 1ãPRINT MID$(message$, cntr, 1);ãcntr = cntr + 1ãLOOP UNTIL col > 30 OR cntr = msglenãIF cntr = msglen THEN EXIT SUBããDOãPRINT MID$(message$, cntr, 1);ãcntr = cntr + 1ãLOOP UNTIL cntr = msglenãEND IFããIF way = 5 THENãcol = 20ãDOãCOLOR colãPRINT MID$(message$, cntr, 1);ãcntr = cntr + 1ãcol = col + 1ãLOOP UNTIL cntr = msglen OR col > 30ãIF cntr = msglen THEN EXIT SUBããDOãCOLOR colãPRINT MID$(message$, cntr, 1);ãcntr = cntr + 1ãcol = col - 1ãLOOP UNTIL col < 21 OR cntr = msglenãIF cntr = msglen THEN EXIT SUBããDOãPRINT MID$(message$, cntr, 1);ãcntr = cntr + 1ãLOOP UNTIL cntr = msglenããEND IFããEND SUBããNick Kochakian FLYS NickK@worldnet.att.net 03-02-97 (06:56) QB, QBasic, PDS 77 1333 FLYS.BAS '----------------------------------------------------------------------------ã'Flysã'ã'1997 By: - Nick Kochakian -ã'ã'Have fun! :)ã'----------------------------------------------------------------------------ãããRANDOMIZE TIMERãSCREEN 13ããflys = 20 'How many to put on the screen flysãpx = flysãpy = flysãdir = flysããDIM x(px)ãDIM y(py)ãDIM d(dir)ããpx = 1ãpy = 1ãdir = 1ããFOR i = 1 TO flysãx(px) = 100ãy(py) = 100ãd(dir) = INT(RND * 8) + 1ãpx = px + 1ãpy = py + 1ãdir = dir + 1ãNEXT iããpx = 1ãpy = 1ãdir = 1ããDOãPSET (x(px), y(py)), 0ãd(dir) = INT(RND * 8) + 1ããIF d(dir) = 1 THEN x(px) = x(px) + 1ããIF d(dir) = 2 THEN y(py) = y(py) + 1ããIF d(dir) = 3 THEN x(px) = x(px) + 1: y(py) = y(py) + 1ããIF d(dir) = 4 THEN x(px) = x(px) - 1: y(py) = y(py) + 1ããIF d(dir) = 5 THEN x(px) = x(px) + 1: y(py) = y(py) - 1ããIF d(dir) = 6 THEN x(px) = x(px) - 1: y(py) = y(py) - 1ããIF d(dir) = 7 THEN x(px) = x(px) - 1ããIF d(dir) = 8 THEN y(py) = y(py) - 1ããIF x(px) < 1 THEN x(px) = 1ãIF x(px) > 200 THEN x(px) = 200ãIF y(py) < 1 THEN y(py) = 1ãIF y(py) > 300 THEN y(py) = 300ããPSET (x(px), y(py)), 15ãã'FOR i = 1 TO 9999ã'NEXT iããpx = px + 1ãpy = py + 1ãdir = dir + 1ããIF px > flys THEN px = 1ãIF py > flys THEN py = 1ãIF dir > flys THEN dir = 1ãLOOP UNTIL INKEY$ <> ""ããNick Kochakian DIRECTIONAL STARFIELD NickK@worldnet.att.net 01-20-97 (00:00) QB, QBasic, PDS 142 3729 SFIELD.BAS '----------------------------------------------------------------------------ã'Program name: SFIELD the star fieldã'Verison: verison 1.0ã'ã'Date made: 1/20/97, 1997ã'ã'Author: - Nick Kochakian -ã'ã'Comments: If you would like to use this program / routines please giveã'me some credit... Somewhere...ã'ã'E-mail: nickK@worldnet.att.netã'----------------------------------------------------------------------------ããRANDOMIZE TIMERãSCREEN 13ããWAY = 1 'The way to scroll the star filedã '1 - leftã '2 - diagonal right / downã '3 - rightã '4 - upã '5 - diagonal left / upã '6 - diagonal down / leftã '7 - diagonal right / upã '8 - downãã'Note that ways 2-8 will ONLY WORK if DISTCHK$="N"ããDISTCHK$ = "Y" 'Distance checkã 'Y - is yesã 'N - is noã'Note that distance check can only be used with way 1... For now...ããSTARS = 100 'Amount of stars at one timeãSX = STARS 'Star XãSY = STARS 'Star YãSC = STARS 'Star ColorãSM = STARS 'Star speed moverããDIM X(SX)ãDIM Y(SY)ãDIM C(SC)ãDIM S(SM)ããSX = 1ãSY = 1ãSC = 1ãSM = 1ãã'Place the stars for the first timeãFOR I = 1 TO STARSãX(SX) = INT(RND * 300) + 1ãY(SY) = INT(RND * 200) + 1ãC(SC) = INT(RND * 30) + 1ãIF C(SC) = 16 THEN S(SM) = 1ãIF C(SC) = 17 THEN S(SM) = 1.5ãIF C(SC) = 18 THEN S(SM) = 2ãIF C(SC) = 19 THEN S(SM) = 2.5ãIF C(SC) = 20 THEN S(SM) = 3ãIF C(SC) >= 21 THEN S(SM) = 3.5ãIF C(SC) >= 29 THEN S(SM) = 4ããIF C(SC) < 16 THEN C(SC) = 16ãPSET (X(SX), Y(SY)), C(SC)ãSX = SX + 1ãSY = SY + 1ãSC = SC + 1ãNEXT IããSX = 1ãSY = 1ãSC = 1ãSM = 1ãã'The main loopãDOãPSET (X(SX), Y(SY)), 0ããIF UCASE$(DISTCHK$) = "Y" AND WAY = 1 THENãIF C(SC) <= 18 THEN X(SX) = X(SX) - .25ãIF C(SC) = 19 THEN X(SX) = X(SX) - .5ãIF C(SC) = 20 THEN X(SX) = X(SX) - 1.25ãIF C(SC) = 21 THEN X(SX) = X(SX) - 1.5ãIF C(SC) = 22 THEN X(SX) = X(SX) - 1ãIF C(SC) = 23 THEN X(SX) = X(SX) - 2.25ãIF C(SC) = 24 THEN X(SX) = X(SX) - 2.5ãIF C(SC) = 25 THEN X(SX) = X(SX) - 2ãIF C(SC) = 26 THEN X(SX) = X(SX) - 3.25ãIF C(SC) = 27 THEN X(SX) = X(SX) - 3.5ãIF C(SC) = 28 THEN X(SX) = X(SX) - 3ãIF C(SC) = 29 THEN X(SX) = X(SX) - 4.25ãIF C(SC) = 30 THEN X(SX) = X(SX) - 4ãEND IFã ãIF UCASE$(DISTCHK$) = "N" AND WAY = 1 THEN X(SX) = X(SX) - 1ããIF UCASE$(DISTCHK$) = "N" AND WAY = 2 THEN Y(SY) = Y(SY) + 1: X(SX) = X(SX) + 1ããIF UCASE$(DISTCHK$) = "N" AND WAY = 3 THEN X(SX) = X(SX) + 1ããIF UCASE$(DISTCHK$) = "N" AND WAY = 4 THEN Y(SY) = Y(SY) - 1ããIF UCASE$(DISTCHK$) = "N" AND WAY = 5 THEN Y(SY) = Y(SY) - 1: X(SX) = X(SX) - 1ããIF UCASE$(DISTCHK$) = "N" AND WAY = 6 THEN Y(SY) = Y(SY) + 1: X(SX) = X(SX) - 1ããIF UCASE$(DISTCHK$) = "N" AND WAY = 7 THEN Y(SY) = Y(SY) - 1: X(SX) = X(SX) + 1ããIF UCASE$(DISTCHK$) = "N" AND WAY = 8 THEN Y(SY) = Y(SY) + 1ããPSET (X(SX), Y(SY)), C(SC)ãIF X(SX) < 1 THEN PSET (X(SX), Y(SY)), 0: GOSUB RERAND:ãIF Y(SY) > 200 THEN PSET (X(SX), Y(SY)), 0: GOSUB RERAND:ãIF X(SX) > 300 THEN PSET (X(SX), Y(SY)), 0: GOSUB RERAND:ãIF Y(SY) < 1 THEN PSET (X(SX), Y(SY)), 0: GOSUB RERAND:ãSX = SX + 1ãSY = SY + 1ãSM = SM + 1ãSC = SC + 1ãIF SX > STARS THEN SX = 1ãIF SY > STARS THEN SY = 1ãIF SM > STARS THEN SM = 1ãIF SC > STARS THEN SC = 1ãLOOP UNTIL INKEY$ <> ""ãENDããRERAND: 'Re-Randomize starsãRANDOMIZE TIMERãIF X(SX) < 1 THEN X(SX) = 1ãX(SX) = INT(RND * 300) + 1ãY(SY) = INT(RND * 200) + 1ãC(SC) = INT(RND * 30) + 1ãIF C(SC) = 16 THEN S(SM) = 1ãIF C(SC) = 17 THEN S(SM) = 1.5ãIF C(SC) = 18 THEN S(SM) = 2ãIF C(SC) = 19 THEN S(SM) = 2.5ãIF C(SC) = 20 THEN S(SM) = 3ãIF C(SC) >= 21 THEN S(SM) = 3.5ãIF C(SC) >= 29 THEN S(SM) = 4ãIF C(SC) < 16 THEN C(SC) = 16ãRETURNãKurt Kuzba SPARKLING STARFIELD SIMULATION FidoNet QUIK_BAS Echo 12-19-96 (21:20) QB, QBasic, PDS 63 2438 STARRUSH.BAS'_|_|_| STARRUSH.BASã'_|_|_| Yet another starfield simulation, with 20 levels of motionã'_|_|_| and full 365 degree directional movement. 20-3000 stars.ã'_|_|_| No warrantee or guarantee is given or implied.ã'_|_|_| Released PUBLIC DOMAIN by Kurt Kuzba. (12/19/96)ãTYPE stardataã xypref AS STRING * 1: xystep AS INTEGER: xyprog AS INTEGERã xylim AS INTEGER: count AS INTEGER: speed AS INTEGERã xdir AS INTEGER: ydir AS INTEGER: xpos AS INTEGERã ypos AS INTEGER: END TYPEãDECLARE SUB starinit (S AS stardata)ãDECLARE SUB starmove (S AS stardata)ãN% = VAL(COMMAND$): RANDOMIZE TIMERãIF N% < 20 THENã PRINT "USAGE: starrush N[number of stars 20-3000]": SYSTEMãEND IFãIF N% > 3000 THEN N% = 3000ãREDIM starfield(1 TO N%) AS stardataãFOR t% = 1 TO N%: starinit starfield(t%): NEXTãstarcolour% = 0: SCREEN 12ãDOã IF INKEY$ <> "" THEN EXIT DOã FOR S% = 1 TO N%ã C% = starfield(S%).count + 1ã IF C% >= starfield(S%).speed THENã PSET (starfield(S%).ypos, starfield(S%).xpos), 0ã starmove starfield(S%)ã PSET (starfield(S%).ypos, starfield(S%).xpos), starcolour% + 9ã starcolour% = (starcolour% + 1) MOD 7ã ELSEã starfield(S%).count = C%ã END IFã NEXTãLOOPãSCREEN 0: SYSTEMãSUB starinit (S AS stardata)ã S.count = 0: S.speed = RND * 19 + 1ã S.xpos = 239: S.ypos = 319: dest% = RND * 659ã IF dest% >= 200 THEN x% = 239: y% = RND * 319ã IF dest% <= 200 THEN y% = 319: x% = RND * 239ã S.xypref = "Y": S.xystep = x%: S.xyprog = 0: S.xylim = y%ã IF x% > y% THEN S.xypref = "X": SWAP S.xystep, S.xylimã S.xdir = -1: IF (RND > .49) THEN S.xdir = 1ã S.ydir = -1: IF (RND > .49) THEN S.ydir = 1ã FOR t% = RND * 50 + 10 TO 0 STEP -1: starmove S: NEXTãEND SUBãSUB starmove (S AS stardata)ã S.count = 0: x% = S.xpos: y% = S.ypos: ny% = y%: nx% = x%ã l% = S.xylim: i% = S.xystep: p% = S.xyprog + i%ã SELECT CASE S.xyprefã CASE "X": nx% = x% + S.xdirã IF p% >= l% THEN ny% = y% + S.ydir: p% = p% - l%ã CASE "Y": ny% = y% + S.ydirã IF p% >= l% THEN nx% = x% + S.xdir: p% = p% - l%ã CASE "": nx% = x% + S.xdir: ny% = y% + S.ydirã END SELECT: S.xyprog = p%ã IF (ny% < 0) OR (ny% > 639) OR (nx% > 479) OR (nx% < 0) THENã starinit S: nx% = S.xpos: ny% = S.yposã ELSEã S.xpos = nx%: S.ypos = ny%ã END IFãEND SUBã'_|_|_| end STARRUSH.BASãNick Kochakian GRAPHICS MELT #3 NickK@worldnet.att.net 03-04-97 (19:28) QB, QBasic, PDS 129 2105 GFXMELT.BAS 'Graphics melt #3ã'ã'3/2/97ã'1997 By: - Nick Kochakian -ã'ã'This melts any graphic you put a "box" around.ã'ã'This program is different from the first two because after you define theã'box the graphics or text fall until they meet up with any other graphic orã'text item. Note: Don't run this if you just have some text (or graphics) andã'nothing to break their "fall".ã'ã'If you have any comments or questions e-mail me at: nickK@worldnet.att.netã'ã'Have fun! :)ããDEFINT A-ZããRANDOMIZE TIMERãSCREEN 13ããLOCATE 2, 2: PRINT "Graphics Melt 1997 By: Nick Kochakian"ãLOCATE 3, 2: PRINT "Melting Lemmings! (Below)"ãLOCATE 7, 2ããFOR i = 1 TO 10ãccol = INT(RND * 150) + 1ãCOLOR ccolãPRINT CHR$(1);ãNEXT iããLOCATE 8, 2ãCOLOR 20ãFOR i = 1 TO 10ãPRINT "Û";ãNEXT iãPRINT ""ããx1 = 7ãy1 = 47ãx = x1ãy = y1ãx2 = 89ãy2 = 56ãã'delay = 7000ãã'LINE (x1, y1)-(x2, y2), 15, B'Uncomment these two to put a box around theã'END 'graphics you want melted. Then recomment.ããpixels = 10000ãpx = pixelsãpy = pixelsãpc = pixelsãonc = pixelsããDIM x(px)ãDIM y(py)ãDIM c(pc)ãDIM o(onc)ããpx = 1ãpy = 1ãpc = 1ãonc = 1ããpixcnt = 0ããDOãIF POINT(x, y) > 0 THENãcol = POINT(x, y)ãx(px) = xãy(py) = yãc(pc) = colãpx = px + 1ãpy = py + 1ãpc = pc + 1ãpixcnt = pixcnt + 1ãEND IFã0ãx = x + 1ãIF x > x2 THEN x = x1: y = y + 1ãLOOP UNTIL y > y2ãã'px = px + 1ã'py = py + 1ãã'x(px) = -1ã'y(py) = -1ããpx = pixcntãpy = pixcntãpc = pixcntãonc = pixcntããcntrr = 1ãã'SLEEP 3ããDOãPSET (x(px), y(py)), 0ããy(py) = y(py) + 1ãIF POINT(x(px), y(py)) <> 0 THEN y(py) = y(py) - 1: o(onc) = 1ãPSET (x(px), y(py)), c(pc)ããoncbak = oncãonc = 1ãonccnt = 0ãFOR i = 1 TO pixcntãIF o(onc) = 1 THEN onccnt = onccnt + 1ãonc = onc + 1ãNEXT iãIF onccnt = pixcnt THEN cntrr = 2ãonc = oncbakããpx = px - 1ãpy = py - 1ãpc = pc - 1ãonc = onc - 1ãIF px < 1 THEN px = pixcntãIF py < 1 THEN py = pixcntãIF pc < 1 THEN pc = pixcntãIF onc < 1 THEN onc = pixcntãFOR i = 1 TO delayãNEXT iãLOOP UNTIL INKEY$ <> "" OR cntrr = 2ãENDããNick Kochakian EXPLODE GRAPHICS NickK@worldnet.att.net 03-04-97 (19:28) QB, QBasic, PDS 210 3931 EXPGFX.BAS DECLARE SUB expgfx (x1%, y1%, x2%, y2%, x%, y%)ã'Explode Graphicsã'ã'ã'3/2/97 - 3/4/97ã'1997 By: - Nick Kochakian -ã'ã'ã'This program gets each pixel in the box you define and explodes the graphic,ã'or whatever.ã'ã'This program has only messed up a couple times. If any one knows why someã'times the dots just freeze on the screen please tell me why.ã'ã'Hint: Don't explode too much stuff at one time... It'll be too slow as you'llã'see if you run the program... But I've added a new feature that will speedã'up the explosion. Before, after a pixel left the screen it kept going. Soã'I made it so after a pixel leaves the screen it stops and the program ignoresã'it until you stop it, which makes the whole thing go ALOT faster! :)ã'ã'You can contact me at: nickK@worldnet.att.netããDEFINT A-Z 'Uncomment this for slower computersããRANDOMIZE TIMERããSCREEN 13ããx1 = 5ãy1 = 1ãx = x1ãy = y1ãx2 = 160ãy2 = 30ãã'LINE (x1, y1)-(x2, y2), 15, B '<---| Uncomment these two to put a box aroundã'END '<---| your desired graphics area. Thenã 'Re-comment them.ãcntrline = 0ããDOãfakex = INT(RND * x1) + 1ãfakey = INT(RND * y1) + 1ãfakex2 = INT(RND * x2) + 1ãfakey2 = INT(RND * y2) + 1ãfakec = INT(RND * 255) + 1ãLINE (fakex, fakey)-(fakex2, fakey2), fakecãcntrline = cntrline + 1ãLOOP UNTIL cntrline = 1ããfakec = 20ãmsgcntr = 1ããmsg$ = "Explode!"ãLOCATE 2, 2ããDOãCOLOR fakecãPRINT MID$(msg$, msgcntr, 1);ãfakec = fakec + 1ãmsgcntr = msgcntr + 1ãLOOP UNTIL fakec = 27ããSLEEP 2ããCALL expgfx(x1, y1, x2, y2, x, y)ããSUB expgfx (x1, y1, x2, y2, x, y)ãpixels = 10000ãpx = pixelsãpy = pixelsãpd = pixelsãoldcol = pixelsãnewcol = pixelsãpcol = pixelsãpgon = pixelsããDIM x(px)ãDIM y(py)ãDIM d(pd)ãDIM oldc(oldcol)ãDIM newc(newcol)ãDIM c(pcol)ãDIM pg(pgon)ããpx = 1ãpy = 1ãpd = 1ãoldcol = 1ãnewcol = 1ãpcol = 1ãpgon = 1ããpixcnt = 0ããcntr = 1ããDOã'PSET (x, y), 15ã'FOR i = 1 TO 999ã'NEXT iãx = x + 1ãIF x > x2 THEN x = x1: y = y + 1ãIF y > y2 THEN cntr = 2ããIF POINT(x, y) > 0 THENãcol = 0ãcol = POINT(x, y)ãc(pcol) = colãpixcnt = pixcnt + 1ããx(px) = xãy(py) = yããdirs = INT(RND * 8) + 1ãd(pd) = dirsããoldc(oldcol) = 0ãnewc(newcol) = 0ããpx = px + 1ãpy = py + 1ãpd = pd + 1ãoldcol = oldcol + 1ãnewcol = newcol + 1ãpcol = pcol + 1ãEND IFããLOOP UNTIL cntr = 2ããpx = px + 1ãpy = py + 1ããx(px) = -1ãy(py) = -1ããpx = 1ãpy = 1ãpd = 1ãoldcol = 1ãnewcol = 1ãpcol = 1ããcntr = 1ããDOãooncit:ãIF pg(pgon) = 1 THENãpx = px + 1ãpy = py + 1ãpd = pd + 1ã'oldcol = oldcol + 1ã'newcol = newcol + 1ãpcol = pcol + 1ããpgon = pgon + 1ãEND IFãIF pg(pgon) = 1 THEN GOTO ooncit:ããPSET (x(px), y(py)), 0ãIF d(pd) = 1 AND pg(pgon) = 0 THEN x(px) = x(px) + 1ãIF d(pd) = 2 AND pg(pgon) = 0 THEN y(py) = y(py) + 1ãIF d(pd) = 3 AND pg(pgon) = 0 THEN x(px) = x(px) + 1: y(py) = y(py) + 1ãIF d(pd) = 4 AND pg(pgon) = 0 THEN x(px) = x(px) - 1: y(py) = y(py) + 1ãIF d(pd) = 5 AND pg(pgon) = 0 THEN x(px) = x(px) + 1: y(py) = y(py) - 1ãIF d(pd) = 6 AND pg(pgon) = 0 THEN x(px) = x(px) - 1: y(py) = y(py) - 1ãIF d(pd) = 7 AND pg(pgon) = 0 THEN x(px) = x(px) - 1ãIF d(pd) = 8 AND pg(pgon) = 0 THEN y(py) = y(py) - 1ãPSET (x(px), y(py)), c(pcol)ããIF x(px) > 320 THEN pg(pgon) = 1ãIF x(px) < 0 THEN pg(pgon) = 1ãIF y(py) > 200 THEN pg(pgon) = 1ãIF y(py) < 0 THEN pg(pgon) = 1ããpgbak = pgonãpgon = 1ãpgcnt = 0ãFOR i = 1 TO pixcntãIF pg(pgon) = 1 THEN pgcnt = pgcnt + 1ãpgon = pgon + 1ãNEXT iãIF pgcnt = pixcnt THEN cntr = 2ãpgon = pgbakãã'FOR i = 1 TO 0ã'NEXT iãpx = px + 1ãpy = py + 1ãpd = pd + 1ã'oldcol = oldcol + 1ã'newcol = newcol + 1ãpcol = pcol + 1ããpgon = pgon + 1ããIF x(px) = -1 AND y(py) = -1 THENãpx = 1ãpy = 1ãpd = 1ãoldcol = 1ãnewcol = 1ãpcol = 1ãpgon = 1ãEND IFããLOOP UNTIL cntr = 2 OR INKEY$ <> ""ããEND SUBããNick Kochakian PIXEL EXPLOSIONS NickK@worldnet.att.net 03-04-97 (19:28) QB, QBasic, PDS 128 2246 PIXEXP.BAS '----------------------------------------------------------------------------ã'Pixel explosionsã'ã'1997 By: - Nick Kochakian -ã'ã'Have fun! :)ã'----------------------------------------------------------------------------ããRANDOMIZE TIMERãSCREEN 13ããDEFINT A-Zããpixels = 100 'How many pixles to explodeãpx = pixelsãpy = pixelsãdir = pixelsãonc = pixelsããDIM x(px)ãDIM y(py)ãDIM d(dir)ãDIM o(onc)ããpx = 1ãpy = 1ãdir = 1ããpixe2 = pixelsããFOR i = 1 TO pixe2ãx(px) = 100ãy(py) = 100ãd(dir) = INT(RND * 13) + 1ão(onc) = 0ãpx = px + 1ãpy = py + 1ãdir = dir + 1ãNEXT iããpx = 1ãpy = 1ãdir = 1ãonc = 1ããFOR i = 1 TO pixe2ãd(dir) = INT(RND * 13) + 1ãdir = dir + 1ãNEXT iããdir = 1ããcnt = 0ãDOããPSET (x(px), y(py)), 0ããIF x(px) = 100 THENãd(dir) = INT(RND * 13) + 1ãEND IFããpix2 = pixelsããIF y(py) = 10 THENãd(dir) = INT(RND * 13) + 1ãEND IFããIF d(dir) = 1 THEN x(px) = x(px) + 1ããIF d(dir) = 2 THEN y(py) = y(py) + 1ããIF d(dir) = 3 THEN x(px) = x(px) + 1: y(py) = y(py) + 1ããIF d(dir) = 4 THEN x(px) = x(px) - 1: y(py) = y(py) + 1ããIF d(dir) = 5 THEN x(px) = x(px) + 1: y(py) = y(py) - 1ããIF d(dir) = 6 THEN x(px) = x(px) - 1: y(py) = y(py) - 1ããIF d(dir) = 7 THEN x(px) = x(px) - 1ããIF d(dir) = 8 THEN y(py) = y(py) - 1ããIF d(dir) = 9 THEN x(px) = x(px) + 2ããIF d(dir) = 10 THEN x(px) = x(px) - 1: y(py) = y(py) + 1ããIF d(dir) = 11 THEN x(px) = x(px) - 2ããIF d(dir) = 12 THEN x(px) = x(px) + 3ããIF d(dir) = 13 THEN x(px) = x(px) - 2ããPSET (x(px), y(py)), 15ããIF x(px) < 0 THEN o(onc) = 1ãIF y(py) > 300 THEN o(onc) = 1ãIF x(px) > 200 THEN o(onc) = 1ãIF y(py) < 1 THEN o(onc) = 1ãã'FOR i = 1 TO 9999ã'NEXT iãã'To make the program run faster comment the stuff below until you hit theã'dotted lineãcntrr = 1ãoncbak = oncãonc = 1ãFOR i = 1 TO pixelsãIF o(onc) = 1 THEN cntrr = cntrr + 1ãonc = onc + 1ãNEXT iãonc = oncbakãIF cntrr >= pixels THEN cnt = 2ã'- - - - - - - - - - - - ---- -- --- -- ---------------------------------ããpx = px + 1ãpy = py + 1ãdir = dir + 1ãonc = onc + 1ããIF px > pixels THEN px = 1ãIF py > pixels THEN py = 1ãIF dir > pixels THEN dir = 1ãIF onc > pixels THEN onc = 1ãLOOP UNTIL INKEY$ <> "" OR cnt = 2ãENDããNick Kochakian SMOOTH SCROLLING WATERFALL NickK@worldnet.att.net 03-04-97 (19:28) QB, QBasic, PDS 86 1432 WATERFAL.BASDECLARE SUB READCOL (red%, green%, blue%, c%)ãDECLARE SUB palcyc ()ãDECLARE SUB writecol (red%, green%, blue%, c%)ãã'Water fallã'ã'This program uses three routines from my palette program: palsubs.basã'It also makes a VERY smooth scrolling waterfall!ã'ã'3/2/97ã'1997 By: - Nick Kochakian -ã'ã'Have fun! :)ãããDEFINT A-ZãRANDOMIZE TIMERãSCREEN 13ããX = 1ãY = 1ãCol = 255ãchar = 0ããããFOR i = 1 TO 255 'Turn off all the colors so you cant see it drawingãCALL writecol(0, 0, 0, i)ãNEXT iãããDOãPSET (X, Y), ColãY = Y + 1ãIF Y > 200 THEN Y = 1: X = X + 1: Col = INT(RND * 255) + 1: IF Col < 16 THEN Col = 16ãchar = char + 1ãIF char = 1 THEN Col = Col - 1: char = 0ãIF Col < 1 THEN Col = 255ãLOOP UNTIL X = 320ããFOR i = 1 TO 255ãblue% = blue% + 1ãIF blue% > 63 THEN blue% = 1ãCALL writecol(0, 0, blue%, i)ãNEXT iããCALL palcycããDEFSNG A-ZãSUB palcycã'Nick's palette cyclingããDOããCALL READCOL(ored%, ogreen%, oblue%, 1)ããFOR P% = 1 TO 254ãCALL READCOL(red%, green%, blue%, P% + 1)ãCALL writecol(red%, green%, blue%, P%)ãNEXT P%ããCALL writecol(ored%, ogreen%, oblue%, 255)ãããLOOP UNTIL INKEY$ <> ""ããEND SUBããSUB READCOL (red%, green%, blue%, c%)ãOUT &H3C7, c%ãred% = INP(&H3C9)ãgreen% = INP(&H3C9)ãblue% = INP(&H3C9)ããEND SUBããSUB writecol (red%, green%, blue%, c%)ããOUT &H3C7, c%ãOUT &H3C8, c%ãOUT &H3C9, red%ãOUT &H3C9, green%ãOUT &H3C9, blue%ããEND SUBããAngelo Ken Pesce CIRCULAR PLASMA EFFECT ken@uniserv.uniplan.it 03-06-97 (15:24) QB, PDS 164 3401 PLASMA4.BAS DECLARE SUB initp ()ãDECLARE SUB init ()ã' ANGELO KEN PESCE 1997ã' COLOR PLASMA EFFECT v4ã' Email: ken at uniserv.uniplan.itã' LOAD THIS PROGRAM USING QBX /AH OR QB /AHã' WATCH THIS: IT's 160x100 but using different colors it looks like 320x200ããã' $DYNAMICãDEFINT A-Zããã' INITIALIZE CIRCLE ARRAYãDIM SHARED aps(250, 250)ãCALL initãSCREEN 13ããã' PALETTE INITãCALL initpãã' PATTER 1 AND PATTER 2 CENTER and INITIAL MOVEMENTãxp1 = 80 + 20: yp1 = 50 + 20ãxp2 = 80 - 20: yp2 = 50 - 20ãxm1 = 1ãym1 = -1ãxm2 = -1ãym2 = 1ãããDOã' FIRST HALF **************************************************************ãDEF SEG = &HA000ãFOR x = 1 TO 160ãax = x + 125ãx1 = ax - xp1ãx2 = ax - xp2ãpx = x * 2ãFOR y = 1 TO 50ãay = y + 125ããy1 = ay - yp1ã' THOSE CHECKS ARE REMOVED TO INCREASE SPEEDã'IF x1 < 1 OR x1 > 250 OR y1 < 1 OR y1 > 250 THEN col1 = 0: GOTO ex1ãcol1 = aps(x1, y1)ãex1:ããy2 = ay - yp2ã' THOSE CHECKS ARE REMOVED TO INCREASE SPEEDã'IF x2 < 1 OR x2 > 250 OR y2 < 1 OR y2 > 250 THEN col2 = 0: GOTO ex2ãcol2 = aps(x2, y2)ãex2:ããIF col1 > 0 AND col2 > 0 THEN GOTO rand1 ELSE col = col1 + col2ããpy = y * 2ãPOKE (py * 320 + px), colãPOKE (py * 320 + px - 1), col + 32ãPOKE ((py - 1) * 320 + px), col + 16ãPOKE ((py - 1) * 320 + px - 1), col + 16ãGOTO next1ãrand1:ãpy = y * 2ãPOKE (py * 320 + px), 0ãPOKE (py * 320 + px - 1), 0ãnext1:ãNEXTãNEXTãã' SECOND HALF *************************************************************ããDEF SEG = (&HA000 + &H7D0)ããFOR x = 1 TO 160ãax = x + 125ãx1 = ax - xp1ãx2 = ax - xp2ãpx = x * 2ãFOR y = 1 TO 50ãay = y + 125ããy1 = ay - yp1 + 50ã' THOSE CHECKS ARE REMOVED TO INCREASE SPEEDã'IF x1 < 1 OR x1 > 250 OR y1 < 1 OR y1 > 250 THEN col1 = 0: GOTO ex3ãcol1 = aps(x1, y1)ãex3:ããy2 = ay - yp2 + 50ã' THOSE CHECKS ARE REMOVED TO INCREASE SPEEDã'IF x2 < 1 OR x2 > 250 OR y2 < 1 OR y2 > 250 THEN col2 = 0: GOTO ex4ãcol2 = aps(x2, y2)ãex4:ããIF col1 > 0 AND col2 > 0 THEN GOTO rand2 ELSE col = col1 + col2ããpy = y * 2ãPOKE (py * 320 + px), colãPOKE (py * 320 + px - 1), col + 32ãPOKE ((py - 1) * 320 + px), col + 16ãPOKE ((py - 1) * 320 + px - 1), col + 16ãGOTO next2ãrand2:ãpy = y * 2ãPOKE (py * 320 + px), 0ãPOKE (py * 320 + px - 1), 0ãnext2:ãNEXTãNEXTããDEF SEGãGOSUB setmovãLOOP UNTIL INKEY$ <> ""ããENDããsetmov:ã' LET THEM MOVE (I HAVE TO IMPROVE THIS ROUTINE!!!)ãxp1 = xp1 + xm1ãyp1 = yp1 + ym1ãxp2 = xp2 + xm2ãyp2 = yp2 + ym2ãIF xp1 > 80 + 20 THEN xm1 = -1 ELSE IF xp1 < 80 - 20 THEN xm1 = 1ãIF yp1 > 50 + 20 THEN ym1 = -1 ELSE IF yp1 < 50 - 20 THEN ym1 = 1ãIF xp2 > 80 + 20 THEN xm2 = -1 ELSE IF xp2 < 80 - 20 THEN xm2 = 1ãIF yp2 > 50 + 20 THEN ym2 = -1 ELSE IF yp2 < 50 - 20 THEN ym2 = 1ãRETURNããREM $STATICãSUB initãã' I HAVE TO USE THIS "TRICK" IN ORDER TO USE INTEGERSããSCREEN 12ãFOR i = 1 TO 180 STEP 16ãFOR i1 = 1 TO 4ãCIRCLE (125, 125), i + i1, i1 + ((180 - i) / 18)ãCIRCLE (126, 125), i + i1, i1 + ((180 - i) / 18)ãNEXTãFOR i1 = 1 TO 4ãCIRCLE (125, 125), i + i1 + 4, (5 - i1) + ((180 - i) / 18)ãCIRCLE (126, 125), i + i1 + 4, (5 - i1) + ((180 - i) / 18)ãNEXTãNEXTããFOR x = 1 TO 250ãFOR y = 1 TO 250ãaps(x, y) = POINT(x, y)ãNEXTãNEXTãEND SUBããSUB initpãFOR i = 0 TO 15ãPALETTE i, i * 4ãNEXTãFOR i = 16 TO 31ãPALETTE i, 256 * ((i - 16) * 2 + 7)ãNEXTãFOR i = 32 TO 47ãPALETTE i, 65536 * ((i - 32) * 4)ãNEXTãEND SUBããAngelo Ken Pesce UPDATED FIRE SPHERE us0082@uniserv.uniplan.it 03-19-97 (00:00) QB, PDS 330 8129 FPSHERE.BAS DECLARE SUB stars ()ãDECLARE SUB DrawPoints ()ãDECLARE SUB flam ()ãDECLARE SUB ppset (x%, y%, c%)ãDECLARE SUB ReadRGB (red%, grn%, blu%, slot%)ãDECLARE SUB Rotate ()ãDECLARE SUB SetPal (start.slot%, end.slot%)ãDECLARE SUB SetupBall ()ãDECLARE SUB writeRGB (red%, grn%, blu%, slot%)ãDEFINT A-Zã'$DYNAMICãDIM SHARED scr(320, 200)ããã' USE QBX /AH OR QB /AHããã'{A little rotating sphere, by Glen Jeh, 8/12/1994, use freely}ã'{Try messing with the constants...code is squished a little}ã' Converted to BASIC by William Yu (05-28-96)ã' Revision + Static FastFireEffect v3 + Stars added by Angelo Pesce (1997)ã'ã' 192 colors version (palette routines by Andrew L. Ayers)ã'ã' COMPILE WITH ALTERNATE MATH FOR BEST PERFORMANCEã' TOTAL JUMPã' DIRECT PSET METHOD / 2 HALFS / ALL INTEGERSã' 5 PIXEL INTERPOLATIONã' ARRAY FIRE (SLOWER BUT CLEANER)ã' 191 COLORSã' STARS BACKGROUNDããPRINT "FireSphere"ãPRINT ".........."ãPRINTãPRINT "press enter for defaults"ãPRINTãã' x and y are multiplied by scale and divided by distanceã0 DIM SHARED Scale AS INTEGERãINPUT "Scale:"; temp1$ãIF temp1$ = "" THEN Scale = 45: GOTO 1ãScale = VAL(temp1$)ãã' mystery constant :-)ã1 DIM SHARED Radius AS INTEGERãINPUT "Radius:"; temp2$ãIF temp2$ = "" THEN Radius = 80: GOTO 2ãRadius = VAL(temp2$)ãã' number of slicesã2 DIM SHARED Slices AS INTEGERãINPUT "Slices:"; temp3$ãIF temp3$ = "" THEN Slices = 24: GOTO 3ãSlices = VAL(temp3$)ãã' points per sliceã3 DIM SHARED PPS AS INTEGERãINPUT "Points Per Slice:"; temp4$ãIF temp4$ = "" THEN PPS = 40: GOTO 4ãPPS = VAL(temp4$)ãã4 CONST Pi = 3.1415ããTYPE PointTypeã x AS INTEGERã y AS INTEGERã z AS INTEGERãEND TYPEããDIM SHARED points(1 TO Slices, 1 TO PPS) AS PointTypeãDIM SHARED Ball(1 TO Slices, 1 TO PPS) AS PointTypeãDIM SHARED XAngle, YAngle, ZAngleãDIM SHARED SinTable(0 TO 255) AS INTEGERãDIM SHARED CosTable(0 TO 255) AS INTEGERãDIM SHARED Distance, DirãCONST nstars = 1000ãCONST scolor = 15ãDIM SHARED y(nstars)ãDIM SHARED x(nstars)ãDIM SHARED s(nstars)ããSCREEN 13: CLSãFOR i = 1 TO nstarsãx(i) = RND * 320ãy(i) = RND * 200ãs(i) = RND * 5ãNEXT iããã FOR i = 0 TO 255ã SinTable(i) = INT(SIN(2 * Pi / 255 * i) * 128)ã CosTable(i) = INT(COS(2 * Pi / 255 * i) * 128)ã NEXT iã SCREEN 13ãã Distance = 100: Dir = -3ã SetupBallã XAngle = 0ã YAngle = 0ã ZAngle = 0ãã' FORM BLACK TO REDãCALL writeRGB(0, 0, 0, 1)ãCALL writeRGB(63, 0, 0, 63)ãCALL SetPal(1, 63)ãã' FROM RED TO YELLOWãCALL writeRGB(63, 0, 0, 64)ãCALL writeRGB(63, 63, 0, 127)ãCALL SetPal(64, 127)ãã' FROM YELLOW TO WHITEãCALL writeRGB(63, 63, 0, 128)ãCALL writeRGB(63, 63, 63, 191)ãCALL SetPal(128, 191)ã'ã' ALL THE OTHERS WHITE (this avoid using IF COL>191 THEN COL=191 in flam sub)ãFOR i = 192 TO 255ãCALL writeRGB(63, 63, 63, i)ãNEXT iãã DOã Rotateã DrawPointsã flamã XAngle = XAngle + 3ã YAngle = YAngle + 2ã ZAngle = ZAngle + 1ã Distance = Distance + Dirã IF XAngle > 250 THEN XAngle = 0ã IF YAngle > 250 THEN YAngle = 0ã IF ZAngle > 250 THEN ZAngle = 0ã IF Distance >= 300 THEN Dir = -3ã IF Distance <= 30 THEN Dir = 2ã LOOP UNTIL INKEY$ <> ""ãCLSãSCREEN 0ãWIDTH 80ãPRINT "Angelo KEN Pesce 1997"ãENDããREM $STATICã'{mystery procedure}ãSUB DrawPointsã FOR i = 1 TO Slicesã FOR i2 = 1 TO PPSã IF (points(i, i2).z >= 0) AND (points(i, i2).x <= 319) AND (points(i, i2).x >= 0) AND (points(i, i2).y >= 0) AND (points(i, i2).y < 199) THENã CALL ppset(points(i, i2).x, points(i, i2).y, 10)ã END IFã NEXT i2ã NEXT iãEND SUBããSUB dstars STATICãFOR i = 1 TO nstarsãIF scr(x(i), y(i)) = scolor THEN scr(x(i), y(i)) = 0ãNEXTãEND SUBããSUB flamãDEF SEG = &HA000ãFOR yp = 1 TO 100ãFOR xp = 1 TO 319ãPOKE (yp * 320 + xp), scr(xp, yp)ãNEXTãNEXTãDEF SEG = &HA000 + &H7D0ãFOR yp = 1 TO 100ãFOR xp = 1 TO 319ãPOKE (yp * 320 + xp), scr(xp, yp + 100)ãNEXTãNEXTããDEF SEG = &HA000ãFOR yp = 0 TO 100ãaa1 = yp * 320ãaa2 = (yp - 1) * 320ãaa3 = (yp + 1) * 320ãFOR xp = 0 TO 319ãaa = aa1 + xpãcol = PEEK(aa)ãcol1 = PEEK(aa2 + xp)ã' ************** JUMP ROUTINE **************************ãIF col = col1 THEN GOTO fastout ELSE col = col + col1ã' ************************************************************ãcol = col + PEEK(aa3 + xp)ãcol = col + PEEK(aa + 1)ãcol = col + PEEK(aa - 1)ãcol = col / 5 - 1ãIF col < 0 THEN col = 0ãscr(xp, yp) = colãfastout:ãNEXTãNEXTãDEF SEG = &HA000 + &H7D0ãFOR yp = 1 TO 99ãaa1 = yp * 320ãaa2 = (yp - 1) * 320ãaa3 = (yp + 1) * 320ãFOR xp = 0 TO 319ãaa = aa1 + xpãcol = PEEK(aa)ãcol1 = PEEK(aa2 + xp)ã' ************** JUMP ROUTINE **************************ãIF col = col1 THEN GOTO fastout1 ELSE col = col + col1ã' ************************************************************ãcol = col + PEEK(aa3 + xp)ãcol = col + PEEK(aa + 1)ãcol = col + PEEK(aa - 1)ãcol = col / 5 - 1ãIF col < 0 THEN col = 0ãscr(xp, yp + 100) = colãfastout1:ãNEXTãNEXTãDEF SEGãCALL starsãEND SUBããSUB ppset (x, y, c)ãIF y < 1 THEN y = 1 ELSE IF y > 199 THEN y = 199ãIF x < 1 THEN x = 1 ELSE IF x > 319 THEN x = 319ããa = scr(x, y)ãc = a + cãscr(x, y) = c + 30ãscr(x - 1, y) = cãscr(x + 1, y) = cãscr(x, y + 1) = cãscr(x, y - 1) = cãEND SUBããDEFSNG A-ZãSUB ReadRGB (red%, grn%, blu%, slot%)ã 'ã OUT &H3C7, slot% ' Read RGB values from slotã 'ã red% = INP(&H3C9)ã grn% = INP(&H3C9)ã blu% = INP(&H3C9)ã 'ãEND SUBããDEFINT A-ZãSUB Rotateã'UPDATES all (X,Y,Z) coordinates according to XAngle,YAngle,ZAngleã ã FOR i = 1 TO Slicesã FOR i2 = 1 TO PPSã '{rotate on X-axis}ã TempY = (Ball(i, i2).y * CosTable(XAngle) - Ball(i, i2).z * SinTable(XAngle)) / 128ã TempZ = (Ball(i, i2).y * SinTable(XAngle) + Ball(i, i2).z * CosTable(XAngle)) / 128ã ' {rotate on y-anis}ã TempX = (Ball(i, i2).x * CosTable(YAngle) - TempZ * SinTable(YAngle)) / 128ã TempZ = (Ball(i, i2).x * SinTable(YAngle) + TempZ * CosTable(YAngle)) / 128ã '{rotate on z-axis}ã OldTempX = TempXã TempX = (TempX * CosTable(ZAngle) - TempY * SinTable(ZAngle)) / 128ã TempY = (OldTempX * SinTable(ZAngle) + TempY * CosTable(ZAngle)) / 128ã points(i, i2).x = (TempX * Scale) / Distance + 320 / 2ã points(i, i2).y = (TempY * Scale) / Distance + 200 / 2ã points(i, i2).z = TempZã NEXT i2ã NEXT iãEND SUBããSUB SetPal (start.slot%, end.slot%)ã 'ã num.slots% = end.slot% - start.slot%ã 'ã CALL ReadRGB(sr%, sg%, sb%, start.slot%)ã CALL ReadRGB(er%, eg%, eb%, end.slot%)ã 'ã rr% = ABS(er% - sr%): rg% = ABS(eg% - sg%): rb% = ABS(eb% - sb%)ã rs% = SGN(er% - sr%): gs% = SGN(eg% - sg%): bs% = SGN(eb% - sb%)ã 'ã stepr = (rr% / num.slots%) * rs%ã stepg = (rg% / num.slots%) * gs%ã stepb = (rb% / num.slots%) * bs%ã 'ã R = sr%: g = sg%: b = sb%ã wr% = R: wg% = g: wb% = bã 'ã FOR t% = start.slot% TO end.slot%ã 'ã CALL writeRGB(wr%, wg%, wb%, t%)ã 'ã R = R + stepr: wr% = Rã g = g + stepg: wg% = gã b = b + stepb: wb% = bã 'ã NEXT t%ã 'ãEND SUBãã'{sets up the ball's data..}ãSUB SetupBall ' {set up the points}ã FOR SliceLoop = 1 TO Slicesã Phi! = Pi / Slices * SliceLoop ' 0 <= Phi <= Piã FOR PPSLoop = 1 TO PPSã Theta! = 2 * Pi / PPS * PPSLoop ' 0 <= Theta <= 2*Piã '{convert Radius,Thetha,Phi to (x,y,z) coordinates}ã Ball(SliceLoop, PPSLoop).y = INT(Radius * SIN(Phi!) * COS(Theta!))ã Ball(SliceLoop, PPSLoop).x = INT(Radius * SIN(Phi!) * SIN(Theta!))ã Ball(SliceLoop, PPSLoop).z = INT(Radius * COS(Phi!))ã NEXT PPSLoopã NEXT SliceLoopãEND SUBããSUB stars STATICãFOR i = 1 TO nstarsãx(i) = x(i) - s(i)ãIF x(i) <= 1 THENãx(i) = 320ãy(i) = RND * 200ãEND IFãIF scr(x(i), y(i)) = 0 THEN scr(x(i), y(i)) = scolor + s(i)ãNEXT iãEND SUBããSUB writeRGB (red%, grn%, blu%, slot%)ã 'ã OUT &H3C8, slot% ' Write RGB values to slotã 'ã OUT &H3C9, red%ã OUT &H3C9, grn%ã OUT &H3C9, blu%ã 'ãEND SUBãXtance Coders Alliance 3D ROTATION OF 2D PICTURE harryst@castel.nl 03-15-97 (21:20) QB, QBasic, PDS 227 5215 2DROTATE.BAS' a Xtance Coders Alliance Releaseã'ã' A realy f***tup 3d some thing shower, ummz, yeah my old name TCPã'ã'ã'mail - mrsnow@freemail.nl (For all your questions..)ã'ã'29-04-96ãRANDOMIZE TIMERãON ERROR GOTO MasterãX = 0 ' \ãY = 0 ' | Clear all VariablesãZ = 0 ' | and Make the ANGãEX = 0 ' | From 10 / 57.29578ãEY = 0 ' | Already Counted for you.ãMP = 1 ' |ãVP = 1 ' | 10 / 57.29578 =ãCS = 1 ' | --------------------ãC = 10 ' | ******.1745329******ãD = 5000 ' | --------------------ãChangeColors = -1 ' | Colors Random (-1) or one ColorãSType = 8 ' | Screen TypeãANG = .1745329 ' /ãDIM M(500, 3) ' Dimension an array to hold the values.ã ã PRINT : PRINTã PRINT "Xtance Coders alliance Presents Sample for 2d Coding in QuickBASIC / PDS"ã PRINT "Coded by Mr. SN()W^Xtance Coders Allaince (Prezident)"ã PRINT : PRINT "To abort press [ESCAPE] Allot....."ã SLEEP (1)ããGOSUB ReadData ' \ãGOSUB BuildScreen ' | - To load and display rotation..ãGOSUB Redraw ' /ããNew:ãDOã 'ãDEF SEG = 0 ' DONNO ãPOKE 1050, PEEK(1052) ' POKE SOME THING INTO MEMORYãDEF SEG ' DONNOãrOTTA = INT(RND * 255) ' INKEY$ Shout be Inkey$ but for demo randomize timerããIF rOTTA = 88 THEN GOSUB XRot 'X ROTATE (x)ãIF rOTTA = 89 THEN GOSUB YRot 'Y ROTATE (y)ãIF rOTTA = 90 THEN GOSUB ZRot 'Z ROTATE (z)ã' WAIT &H3D3, 8ããLOOP UNTIL INKEY$ = CHR$(27)ãSCREEN 0: WIDTH 80ã PRINT "Xtance Coders Alliance sample for 3d rotation.. dunno... Cya..."ãENDããããRedraw:ã IF X > 319 THEN X = X - 640ã IF X < -320 THEN X = X + 640ã IF Y > 199 THEN Y = Y - 400ã IF Y < -200 THEN Y = Y + 400ãNRedraw:ã XP = ((X * D) / (D + Z)) + 320ã YP = (((Y * D) / (D + Z)) / 2) + 100ãRETURNããBuildScreen:ãCLSãFOR I = 1 TO MP - 1ã ã IF ChangeColor = -1 THENã LinColor = RND * 20ã ELSEã LinColor = ChangeColorã END IFã ã X = M(I, 1): Y = M(I, 2): Z = M(I, 3)ã GOSUB NRedrawã IF M(I, 0) = 0 THENã LINE (XP, YP)-(XP, YP), RND * 20ã ELSEã LINE -(XP, YP), RND * 10ã END IFãNEXT IããCOLOR RND * 7ãLOCATE 24, 1: PRINT "A Xtance Coders Alliance Relase";ããGOTO NewãããZRot:ãFOR I = 1 TO MPã X = M(I, 1)ã Y = M(I, 2)ã XN = (.9848078 * X) + (.1736482 * Y)ã YN = (.9848078 * Y) - (.1736482 * X)ã M(I, 1) = XNã M(I, 2) = YNãNEXT IãGOTO BuildScreenããXRot:ãFOR I = 1 TO MPã Y = M(I, 2)ã Z = M(I, 3)ã YN = (.9848078 * Y) + (.1736482 * Z)ã ZN = (.9848078 * Z) - (.1736482 * Y)ã M(I, 2) = YNã M(I, 3) = ZNãNEXT IãGOTO BuildScreenãããYRot:ãFOR I = 1 TO MPã X = M(I, 1)ã Z = M(I, 3)ã XN = (.9848078 * X) + (.1736482 * Z)ã ZN = (.9848078 * Z) - (.1736482 * X)ã M(I, 1) = XNã M(I, 3) = ZNãNEXT IãGOTO BuildScreenããReadData:ãRESTORE pICDATAã READ MPãFOR I = 1 TO MPã READ M, X, Y, Zã M(I, 0) = Mã M(I, 1) = X * 2ã M(I, 2) = Y * 2ã M(I, 3) = Z * 2ãNEXT Iã SCREEN 8ãRETURNããpICDATA:ãDATA 84ãDATA 0,-100, 0, 0ãDATA 1,-100,-45, 0ãDATA 1,-145,-45, 0ãDATA 1,-145,-70, 0ãDATA 0,-100, 0, 0ãDATA 1,-70, 0, 0ãDATA 1,-70,-45, 0ãDATA 1,-25,-45, 0ãDATA 1,-25,-70, 0ãDATA 1,-145,-70, 0ãDATA 0,-60,-30, 0ãDATA 1,-60, 25, 0ãDATA 1,-60, 40, 0ãDATA 1, 5, 40, 0ãDATA 1, 5, 15, 0ãDATA 1,-35, 15, 0ãDATA 1,-35,-5, 0ãDATA 1, 5,-5, 0ãDATA 1, 5,-30, 0ãDATA 1,-60,-30, 0ãDATA 0, 15,-70, 0ãDATA 1, 15, 0, 0ãDATA 1, 40, 0, 0ãDATA 1, 40,-30, 0ãDATA 1, 75,-30, 0ãDATA 1, 75,-70, 0ãDATA 1, 15,-70, 0ãDATA 0,-140,-65, 0ãDATA 1,-140,-50, 0ãDATA 1,-95,-50, 0ãDATA 1,-95,-5, 0ãDATA 1,-75,-5, 0ãDATA 1,-75,-50, 0ãDATA 1,-30,-50, 0ãDATA 1,-30,-65, 0ãDATA 1,-140,-65, 0ãDATA 0,-55,-25, 0ãDATA 1, 0,-25, 0ãDATA 0, 0,-10, 0ãDATA 1, 0,-10, 0ãDATA 1, 0,-10, 0ãDATA 0, 0,-25, 0ãDATA 1, 0,-10, 0ãDATA 1,-40,-10, 0ãDATA 1,-40, 20, 0ãDATA 1, 0, 20, 0ãDATA 1, 0, 35, 0ãDATA 1,-55, 35, 0ãDATA 1,-55,-20, 0ãDATA 1,-55,-25, 0ãDATA 0, 20,-65, 0ãDATA 1, 20,-5, 0ãDATA 1, 35,-5, 0ãDATA 1, 35,-35, 0ãDATA 1, 70,-35, 0ãDATA 1, 70,-65, 0ãDATA 1, 20,-65, 0ãDATA 0,-135,-60, 0ãDATA 1,-135,-55, 0ãDATA 1,-90,-55, 0ãDATA 1,-90,-10, 0ãDATA 1,-80,-10, 0ãDATA 1,-80,-55, 0ãDATA 1,-35,-55, 0ãDATA 1,-35,-60, 0ãDATA 1,-135,-60, 0ãDATA 0,-50,-20, 0ãDATA 1,-50,-20, 0ãDATA 1,-50, 30, 0ãDATA 1,-5, 30, 0ãDATA 1,-5, 25, 0ãDATA 1,-45, 25, 0ãDATA 1,-45,-15, 0ãDATA 1,-5,-15, 0ãDATA 1,-5,-20, 0ãDATA 1,-50,-20, 0ãDATA 0, 25,-60, 0ãDATA 1, 25,-10, 0ãDATA 1, 30,-10, 0ãDATA 1, 30,-40, 0ãDATA 1, 65,-40, 0ãDATA 1, 65,-60, 0ãDATA 1, 25,-60, 0ãDATA 0, 0, 0, 0ãããMaster:ãRESUME NEXTãWarren Seyle GRAPHICAL MENU wseyle@awod.com 03-28-97 (19:28) QB, QBasic, PDS 675 24133 GFXMENU.BAS DECLARE SUB ProcessSelection ()ãDECLARE SUB DialogBox (Cul%, Lin%, BoxLength%, Height%)ãDECLARE SUB DrawWindow (x1%, y1%, x2%, y2%, c1%, c2%, c3%)ãDECLARE SUB PalColors ()ãDECLARE SUB LoadImages ()ãDECLARE SUB CursorDown ()ãDECLARE SUB CursorUp ()ãDECLARE SUB OFont (Text$, X%, Y%, Fore%, Back%)ãDECLARE SUB Frame (X%, Y%, x1%, y1%, LineColor%)ãDECLARE SUB Background (TubeColor%)ããCONST White = 255, Black = 180ãCONST Gold = 200, Green = 181, Blue = 130, Red = 150ãCONST False = 0, True = NOT FalseããUpArrow$ = CHR$(0) + CHR$(72) ' Up arrow key.ãDownArrow$ = CHR$(0) + CHR$(80) ' Down arrow key.ãEnter$ = CHR$(13)ãEscape$ = CHR$(27)ããDIM SHARED SaveScreen(3300, 4) AS INTEGERãDIM SHARED Quit AS INTEGERãDIM SHARED PurpleArrow(649) AS INTEGERãDIM SHARED PurpleArrowMask(649) AS INTEGERãDIM SHARED Back1%(1000)ãDIM SHARED Back2%(1000)ãDIM SHARED Back3%(1000)ãDIM SHARED Area AS INTEGER, Task AS INTEGERããTYPE TypeOfPointerã X AS INTEGERã Y AS INTEGERãEND TYPEãDIM SHARED Arrow AS TypeOfPointerããSCREEN 13ãPalColorsãLoadImagesãBackground GreenããArrow.X = 95: Arrow.Y = 40ãFrame Arrow.X - 39, Arrow.Y - 32, Arrow.X + 164, Arrow.Y + 145, RedãOFont "PLAY GAME", Arrow.X + 45, Arrow.Y + 13, 255, 114ãOFont "READ RULES", Arrow.X + 45, Arrow.Y + 53, 127, 114ãOFont "QUIT", Arrow.X + 45, Arrow.Y + 94, 127, 114ãGET (Arrow.X, Arrow.Y)-(Arrow.X + 36, Arrow.Y + 34), Back1%ãPUT (Arrow.X, Arrow.Y), PurpleArrowMask, ANDãPUT (Arrow.X, Arrow.Y), PurpleArrow, ORããArea = 1ãQuit = Falseãã'Main LOOP which loops until one of the activated keys is pressed.ã'Note: Pressing the Esc key is the same as selecting quit.ããDOã Key$ = UCASE$(INKEY$)ã'This SELECT CASE statement is used to trap the arrow keys and the Escape keyã SELECT CASE Key$ã CASE UpArrow$ã CursorUpã CASE DownArrow$ã CursorDownã CASE Enter$ã ProcessSelectionã CASE Escape$ã Quit = Trueã END SELECTãLOOP UNTIL QuitãSCREEN 0ãCOLOR 15ãCLSããENDãããHelp:ã IF Task = 1 THEN RETURNã WHILE INKEY$ <> "": WEND 'Empty the keyboard buffer.ã CHAIN "help.bas"ãããããããArrowImage:ãDATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,098,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000ãDATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,092,075,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000ãDATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,063,075,056,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000ãDATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,101,092,056,074,000,000,000,000,000,000,000,000,000,000,000,000,000,000ãDATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,113,064,097,073,055,000,000,000,000,000,000,000,000,000,000,000,000,000ãDATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,084,101,098,074,096,055,000,000,000,000,000,000,000,000,000,000,000,000ãDATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,089,058,092,056,096,072,055,000,000,000,000,000,000,000,000,000,000,000ãDATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,089,058,108,097,073,072,072,072,000,000,000,000,000,000,000,000,000,000ãDATA 059,108,100,077,077,077,077,099,077,099,077,099,077,099,077,077,068,090,108,063,102,062,075,073,055,072,072,072,000,000,000,000,000,000,000,000,000ãDATA 058,063,093,077,099,076,076,076,076,076,076,076,076,076,076,077,077,078,067,065,084,089,098,074,055,072,072,072,072,000,000,000,000,000,000,000,000ãDATA 063,084,065,068,077,099,076,099,076,099,076,099,076,099,076,099,077,100,093,067,063,065,098,056,096,054,054,054,072,072,000,000,000,000,000,000,000ãDATA 093,065,084,065,068,077,099,076,099,076,076,076,076,076,099,076,077,077,068,067,108,065,098,074,096,072,072,054,072,072,072,000,000,000,000,000,000ãDATA 077,068,065,102,063,068,077,099,076,076,099,076,099,076,076,099,077,077,068,067,065,090,098,097,096,096,072,054,054,054,072,072,000,000,000,000,000ãDATA 077,077,068,063,058,084,067,100,099,099,076,099,076,076,099,076,077,077,068,090,065,067,075,056,096,055,072,072,054,072,054,072,072,000,000,000,000ãDATA 076,099,077,068,086,058,081,090,092,077,099,076,099,099,076,099,077,092,067,090,065,092,075,074,073,072,072,072,072,054,054,054,054,072,000,000,000ãDATA 076,076,099,077,067,103,058,081,065,092,077,099,099,099,077,077,092,092,090,065,065,099,097,074,096,055,072,054,054,054,049,049,049,054,054,000,000ãDATA 076,099,076,077,077,067,062,062,065,092,099,099,052,052,098,098,098,077,092,092,100,077,098,096,055,072,054,054,049,071,071,071,053,053,071,049,000ãDATA 099,076,076,076,052,099,099,098,100,100,078,078,078,078,078,078,078,078,078,100,078,078,100,074,054,071,071,053,095,095,070,070,070,070,070,053,049ãDATA 076,076,076,098,098,075,097,074,074,074,073,096,096,096,073,073,073,073,074,056,075,075,097,049,053,095,070,070,094,094,091,091,091,091,094,070,000ãDATA 076,098,076,098,075,097,073,072,054,071,071,071,071,071,071,071,071,049,049,054,054,054,049,053,070,070,094,091,109,114,069,069,069,109,094,000,000ãDATA 076,098,098,075,056,096,072,071,053,095,095,095,070,095,070,095,095,053,053,071,049,049,053,095,094,091,109,069,069,069,069,069,069,048,000,000,000ãDATA 098,075,075,074,096,049,053,070,070,070,094,094,094,070,094,070,070,070,095,071,071,071,053,070,091,109,069,069,069,069,069,069,109,000,000,000,000ãDATA 075,097,074,055,071,095,070,094,094,091,094,094,091,091,094,091,094,070,070,053,071,071,095,094,091,043,069,069,069,069,069,069,000,000,000,000,000ãDATA 097,056,055,071,070,094,091,091,048,091,048,048,091,048,091,091,094,094,095,053,071,071,095,094,109,069,069,069,069,069,043,000,000,000,000,000,000ãDATA 074,072,071,070,094,091,091,048,048,048,048,048,048,048,048,048,091,070,095,071,049,049,095,091,069,069,069,069,069,109,000,000,000,000,000,000,000ãDATA 096,049,095,070,091,091,091,048,091,091,091,091,091,091,091,094,094,070,071,054,072,049,095,091,069,069,069,069,048,000,000,000,000,000,000,000,000ãDATA 060,082,105,106,061,051,091,091,091,066,091,091,091,091,091,091,091,051,071,096,072,054,070,048,069,069,069,043,000,000,000,000,000,000,000,000,000ãDATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,073,096,049,070,109,069,069,043,000,000,000,000,000,000,000,000,000,000ãDATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,097,096,071,094,043,069,109,000,000,000,000,000,000,000,000,000,000,000ãDATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,097,096,053,094,109,048,000,000,000,000,000,000,000,000,000,000,000,000ãDATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,074,072,070,094,091,000,000,000,000,000,000,000,000,000,000,000,000,000ãDATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,073,049,070,094,000,000,000,000,000,000,000,000,000,000,000,000,000,000ãDATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,096,071,095,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000ãDATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,072,071,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000ãDATA 000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,072,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000ããDEFINT A-ZãSUB Background (TubeColor%)ããEndTubeColor% = TubeColor% + (TubeColor% + 10)ãX = 1ãFOR PaletteColor = TubeColor% TO TubeColor% + 10ãCOLOR PaletteColorãLINE (X, 0)-(X, 200)ãLINE (X + 20, 0)-(X + 20, 200)ãLINE (X + 40, 0)-(X + 40, 200)ãLINE (X + 60, 0)-(X + 60, 200)ãLINE (X + 80, 0)-(X + 80, 200)ãLINE (X + 100, 0)-(X + 100, 200)ãLINE (X + 120, 0)-(X + 120, 200)ãLINE (X + 140, 0)-(X + 140, 200)ãLINE (X + 160, 0)-(X + 160, 200): LINE (X + 180, 0)-(X + 180, 200)ãLINE (X + 200, 0)-(X + 200, 200): LINE (X + 220, 0)-(X + 220, 200)ãLINE (X + 240, 0)-(X + 240, 200): LINE (X + 260, 0)-(X + 260, 200)ãLINE (X + 280, 0)-(X + 280, 200): LINE (X + 300, 0)-(X + 300, 200)ãLINE (X + 320, 0)-(X + 320, 200)ãããããCOLOR EndTubeColor% - PaletteColorãLINE (X + 10, 0)-(X + 10, 200)ãLINE (X + 30, 0)-(X + 30, 200)ãLINE (X + 50, 0)-(X + 50, 200)ãLINE (X + 70, 0)-(X + 70, 200)ãLINE (X + 90, 0)-(X + 90, 200)ãLINE (X + 110, 0)-(X + 110, 200)ãLINE (X + 130, 0)-(X + 130, 200)ãLINE (X + 150, 0)-(X + 150, 200)ãLINE (X + 170, 0)-(X + 170, 200): LINE (X + 190, 0)-(X + 190, 200)ãLINE (X + 210, 0)-(X + 210, 200): LINE (X + 230, 0)-(X + 230, 200)ãLINE (X + 250, 0)-(X + 250, 200): LINE (X + 270, 0)-(X + 270, 200)ãLINE (X + 290, 0)-(X + 290, 200)ãLINE (X + 310, 0)-(X + 310, 200)ãX = X + 1ãNEXTãEND SUBããSUB CursorDownãã'Moves the cursor down one selectionã'if the down arrow key is pressed.ã IF Area = 1 THENã Area = 2ã OFont "PLAY GAME", Arrow.X + 45, Arrow.Y + 13, 127, 114ã OFont "READ RULES", Arrow.X + 45, Arrow.Y + 53, 255, 114ã OFont "QUIT", Arrow.X + 45, Arrow.Y + 94, 127, 114ã GET (Arrow.X, Arrow.Y + 40)-(Arrow.X + 36, Arrow.Y + 74), Back2%'Get temp backgroundã PUT (Arrow.X, Arrow.Y + 40), PurpleArrowMask, ANDã PUT (Arrow.X, Arrow.Y + 40), PurpleArrow, ORã WAIT &H3DA, 8ã PUT (Arrow.X, Arrow.Y), Back1%, PSET 'Restore BackGroundã EXIT SUBã END IFã IF Area = 2 THENã Area = 3ã OFont "PLAY GAME", Arrow.X + 45, Arrow.Y + 13, 127, 114ã OFont "READ RULES", Arrow.X + 45, Arrow.Y + 53, 127, 114ã OFont "QUIT", Arrow.X + 45, Arrow.Y + 94, 255, 114ã GET (Arrow.X, Arrow.Y + 80)-(Arrow.X + 36, Arrow.Y + 114), Back3%'Get temp backgroundã PUT (Arrow.X, Arrow.Y + 80), PurpleArrowMask, ANDã PUT (Arrow.X, Arrow.Y + 80), PurpleArrow, ORã WAIT &H3DA, 8ã PUT (Arrow.X, Arrow.Y + 40), Back2%, PSET 'Restore BackGroundã EXIT SUBã END IFã IF Area = 3 THENã Area = 1ã OFont "PLAY GAME", Arrow.X + 45, Arrow.Y + 13, 255, 114ã OFont "READ RULES", Arrow.X + 45, Arrow.Y + 53, 127, 114ã OFont "QUIT", Arrow.X + 45, Arrow.Y + 94, 127, 114ã ã ã GET (Arrow.X, Arrow.Y)-(Arrow.X + 36, Arrow.Y + 34), Back1%'Get temp backgroundã PUT (Arrow.X, Arrow.Y), PurpleArrowMask, ANDã PUT (Arrow.X, Arrow.Y), PurpleArrow, ORã WAIT &H3DA, 8ã PUT (Arrow.X, Arrow.Y + 80), Back3%, PSET 'Restore BackGroundã EXIT SUBã END IFããEND SUBããSUB CursorUpã'Moves the cursor up one selection ifã'the up arrow key has been pressed.ã IF Area = 1 THENã Area = 3ã OFont "PLAY GAME", Arrow.X + 45, Arrow.Y + 13, 127, 114ã OFont "READ RULES", Arrow.X + 45, Arrow.Y + 53, 127, 114ã OFont "QUIT", Arrow.X + 45, Arrow.Y + 94, 255, 114ã GET (Arrow.X, Arrow.Y + 80)-(Arrow.X + 36, Arrow.Y + 114), Back3%'Get temp backgroundã PUT (Arrow.X, Arrow.Y + 80), PurpleArrowMask, ANDã PUT (Arrow.X, Arrow.Y + 80), PurpleArrow, ORã WAIT &H3DA, 8ã PUT (Arrow.X, Arrow.Y), Back1%, PSET 'Restore BackGroundã EXIT SUBã END IFã IF Area = 2 THENã Area = 1ã OFont "PLAY GAME", Arrow.X + 45, Arrow.Y + 13, 255, 114ã OFont "READ RULES", Arrow.X + 45, Arrow.Y + 53, 127, 114ã OFont "QUIT", Arrow.X + 45, Arrow.Y + 94, 127, 114ã GET (Arrow.X, Arrow.Y)-(Arrow.X + 36, Arrow.Y + 34), Back1%'Get temp backgroundã PUT (Arrow.X, Arrow.Y), PurpleArrowMask, ANDã PUT (Arrow.X, Arrow.Y), PurpleArrow, ORã WAIT &H3DA, 8ã PUT (Arrow.X, Arrow.Y + 40), Back2%, PSET 'Restore BackGroundã EXIT SUBã END IFã IF Area = 3 THENã Area = 2ã OFont "PLAY GAME", Arrow.X + 45, Arrow.Y + 13, 127, 114ã OFont "READ RULES", Arrow.X + 45, Arrow.Y + 53, 255, 114ã OFont "QUIT", Arrow.X + 45, Arrow.Y + 94, 127, 114ã GET (Arrow.X, Arrow.Y + 40)-(Arrow.X + 36, Arrow.Y + 74), Back2%'Get temp backgroundã PUT (Arrow.X, Arrow.Y + 40), PurpleArrowMask, ANDã PUT (Arrow.X, Arrow.Y + 40), PurpleArrow, ORã WAIT &H3DA, 8ã PUT (Arrow.X, Arrow.Y + 80), Back3%, PSET 'Restore BackGroundã EXIT SUBã END IFããEND SUBããSUB DialogBox (Cul%, Lin%, BoxLength%, Height%) STATICã DrawWindow Cul%, Lin%, Cul% + BoxLength%, Lin% + Height%, 255, 255, 7ã ã 'status barã LINE (Cul% + 5, Lin% + 34)-(Cul% + BoxLength% - 6, Lin% + 34), 0ã LINE (Cul% + 7, Lin% + 7)-(Cul% + BoxLength% - 7, Lin% + 32), 147, BFã LINE (Cul% + 6, Lin% + 35)-(Cul% + BoxLength% - 6, Lin% + (Height% - 6)), 139, BFãããEND SUBããSUB DrawButton (W.X%, W.Y%, W.W%, W.H%, Border%) STATICãCOLOR WhiteãLINE (W.X% + W.W%, W.Y%)-(W.X%, W.Y%): LINE -(W.X%, W.Y% + W.H%)ãLINE (W.X% + W.W% - 1, W.Y% + 1)-(W.X% + 1, W.Y% + 1)ãLINE -(W.X% + 1, W.Y% + W.H% - 1)ãCOLOR DarkGrayãLINE (W.X% + 1, W.Y% + W.H%)-(W.X% + W.W%, W.Y% + W.H%)ãLINE -(W.X% + W.W%, W.Y%)ãLINE (W.X% + 2, W.Y% + W.H% - 1)-(W.X% + W.W% - 1, W.Y% + W.H% - 1)ãLINE -(W.X% + W.W% - 1, W.Y% + 1)ãLINE (W.X% + 2, W.Y% + 2)-(W.X% + W.W% - 2, W.Y% + W.H% - 2), LightGray, BFããIF Border% THENã COLOR DarkGrayã LINE (W.X% + W.W% - 10, W.Y% + 10)-(W.X% + 10, W.Y% + 10)ã LINE -(W.X% + 10, W.Y% + W.H% - 10)ã COLOR Whiteã LINE -(W.X% + W.W% - 10, W.Y% + W.H% - 10)ã LINE -(W.X% + W.W% - 10, W.Y% + 10)ããEND IFãEND SUBããSUB DrawWindow (x1, y1, x2, y2, c1, c2, c3) STATICã ã LINE (x1, y1)-(x2, y2), 0, Bã LINE (x1 + 1, y1 + 1)-(x2 - 1, y1 + 1), c1ã LINE (x1 + 2, y1 + 2)-(x2 - 2, y1 + 2), c1ã LINE (x1 + 1, y1 + 1)-(x1 + 1, y2 - 1), c1ã LINE (x1 + 2, y1 + 2)-(x1 + 2, y2 - 2), c1ã LINE (x2 - 1, y1 + 1)-(x2 - 1, y2 - 1), c2ã LINE (x2 - 2, y1 + 2)-(x2 - 2, y2 - 2), c2ã LINE (x1 + 1, y2 - 1)-(x2 - 1, y2 - 1), c2ã LINE (x1 + 2, y2 - 2)-(x2 - 2, y2 - 2), c2ã LINE (x1 + 3, y1 + 3)-(x2 - 3, y2 - 3), c3, BFã ãEND SUBããSUB Frame (X%, Y%, x1%, y1%, LineColor%)ãLINE (X% + 5, Y% + 5)-(x1% - 5, y1% - 5), LineColor% + 5, BãLINE (X% + 6, Y% + 6)-(x1% - 6, y1% - 6), LineColor% + 6, BãLINE (X% + 7, Y% + 7)-(x1% - 7, y1% - 7), LineColor% + 7, BãLINE (X% + 8, Y% + 8)-(x1% - 8, y1% - 8), LineColor% + 8, BãLINE (X% + 9, Y% + 9)-(x1% - 9, y1% - 9), LineColor% + 9, BãLINE (X% + 10, Y% + 10)-(x1% - 10, y1% - 10), LineColor% + 10, BãLINE (X% + 11, Y% + 11)-(x1% - 11, y1% - 11), LineColor% + 11, BãLINE (X% + 12, Y% + 12)-(x1% - 12, y1% - 12), LineColor% + 12, BãLINE (X% + 13, Y% + 13)-(x1% - 13, y1% - 13), LineColor% + 13, BãLINE (X% + 14, Y% + 14)-(x1% - 14, y1% - 14), LineColor% + 14, BãLINE (X% + 15, Y% + 15)-(x1% - 15, y1% - 15), LineColor% + 15, BãLINE (X% + 16, Y% + 16)-(x1% - 16, y1% - 16), LineColor% + 14, BãLINE (X% + 17, Y% + 17)-(x1% - 17, y1% - 17), LineColor% + 13, BãLINE (X% + 18, Y% + 18)-(x1% - 18, y1% - 18), LineColor% + 12, BãLINE (X% + 19, Y% + 19)-(x1% - 19, y1% - 19), LineColor% + 11, BãLINE (X% + 20, Y% + 20)-(x1% - 20, y1% - 20), LineColor% + 10, BãLINE (X% + 21, Y% + 21)-(x1% - 21, y1% - 21), LineColor% + 9, BãLINE (X% + 22, Y% + 22)-(x1% - 22, y1% - 22), LineColor% + 8, BãLINE (X% + 23, Y% + 23)-(x1% - 23, y1% - 23), LineColor% + 7, BãLINE (X% + 24, Y% + 24)-(x1% - 24, y1% - 24), LineColor% + 6, BãLINE (X% + 25, Y% + 25)-(x1% - 25, y1% - 25), LineColor% + 5, BãEND SUBããDEFSNG A-ZãSUB LoadImagesãRESTORE ArrowImageãFOR R% = 0 TO 34ãFOR C% = 0 TO 36ãREAD P%ãIF P% > 0 THEN PSET (C%, R%), P%ãNEXT: NEXTãGET (0, 0)-(36, 34), PurpleArrowãCLSãLINE (0, 0)-(36, 34), 255, BFããRESTORE ArrowImageãFOR R% = 0 TO 34ãFOR C% = 0 TO 36ãREAD P%ãIF P% <> 0 THEN PSET (C%, R%), 0ãNEXT: NEXTãGET (0, 0)-(36, 34), PurpleArrowMaskãCLSãããEND SUBããDEFINT A-ZãSUB OFont (Text$, X, Y, Fore, Back)ãDEF SEG = &HFFA6 'Stores masks for lettersãFOR Letter = 1 TO LEN(Text$) 'Does each letterãAddress = (8 * ASC(MID$(Text$, Letter))) + 14 'Address for start of letterãFOR Height = 0 TO 7 'Each letter is an 8x8 pixel matrixãMask = PEEK(Address + Height) * 128 'Address for mask of each line of letterãLINE (X + Curntx + 1, Y + Height + 1)-(X + 9 + Curntx, Y + Height + 1), Fore, , MaskãNEXTãCurntx = Curntx + 8 'Advances X axis by 8 for next letterãNEXT 'Continue to next letterãDEF SEG = &HA000 'Change to video memoryãIF Back > 0 THEN 'Background color can't be color 0ãFOR V = Y TO Y + 7 'Again, they're 8x8 pixelsãFOR H = X TO (LEN(Text$) * 8) - 1 + X 'Calculates length of text in pixelsãPK0& = PEEK(H + V * 320&) 'Is point at H,V = to foreground color?ãPK1& = PEEK(H + 1 + (V + 1) * 320&) 'Is point at H+1, V+1 = to foreground?ãPK2& = PEEK(H + 1 + V * 320&) 'Is point at H+1, V = to foreground?ãPT& = H + V * 320& 'Video memory pointerãIF PK0& <> Fore THEN 'If this is foreground, don't overlap itãIF PK1& = Fore OR PK2& = Fore THEN POKE PT&, Back 'Put pixel into memoryãEND IFãNEXT H 'Next horizontalãNEXT V 'Next verticalãEND IFãDEF SEG 'Put us back whereããEND SUBããSUB PalColorsãPALETTE 0, 0ãPALETTE 1, 131586ãPALETTE 2, 263172ãPALETTE 3, 526344ãPALETTE 4, 657930ãPALETTE 5, 921102ãPALETTE 6, 1052688ãPALETTE 7, 1315860ãPALETTE 8, 1447446ãPALETTE 9, 1579032ãPALETTE 10, 1710618ãPALETTE 11, 1842204ãPALETTE 12, 1973790ãPALETTE 13, 2171169ãPALETTE 14, 2302755ãPALETTE 15, 2434341ãPALETTE 16, 2565927ãPALETTE 17, 2697513ãPALETTE 18, 2829099ãPALETTE 19, 2960685ãPALETTE 20, 3092271ãPALETTE 21, 3223857ãPALETTE 22, 3355443ãPALETTE 23, 3487029ãPALETTE 24, 3750201ãPALETTE 25, 4013373ãPALETTE 26, 3091757ãPALETTE 27, 2828585ãPALETTE 28, 2960171ãPALETTE 29, 2565413ãPALETTE 30, 2696999ãPALETTE 31, 1973276ãPALETTE 32, 2170398ãPALETTE 33, 1710104ãPALETTE 34, 1578006ãPALETTE 35, 3617589ãPALETTE 36, 3091245ãPALETTE 37, 2959659ãPALETTE 38, 2564901ãPALETTE 39, 2828073ãPALETTE 40, 2301473ãPALETTE 41, 1575442ãPALETTE 42, 1970200ãPALETTE 43, 917512ãPALETTE 44, 3614513ãPALETTE 45, 3219755ãPALETTE 46, 2166810ãPALETTE 47, 2691617ãPALETTE 48, 1048586ãPALETTE 49, 2162708ãPALETTE 50, 1575956ãPALETTE 51, 1181198ãPALETTE 52, 3605029ãPALETTE 53, 1835026ãPALETTE 54, 2293782ãPALETTE 55, 2687002ãPALETTE 56, 3080222ãPALETTE 57, 3473443ãPALETTE 58, 4143421ãPALETTE 59, 4140345ãPALETTE 60, 2561057ãPALETTE 61, 1312784ãPALETTE 62, 4134963ãPALETTE 63, 4133937ãPALETTE 64, 4133425ãPALETTE 65, 4131887ãPALETTE 66, 918026ãPALETTE 67, 4130349ãPALETTE 68, 3998763ãPALETTE 69, 786440ãPALETTE 70, 1572880ãPALETTE 71, 1966100ãPALETTE 72, 2424856ãPALETTE 73, 2818076ãPALETTE 74, 2949150ãPALETTE 75, 3342371ãPALETTE 76, 3604517ãPALETTE 77, 3735591ãPALETTE 78, 4128811ãPALETTE 79, 3220269ãPALETTE 80, 2825255ãPALETTE 81, 4138295ãPALETTE 82, 2167324ãPALETTE 83, 2823717ãPALETTE 84, 4136501ãPALETTE 85, 1707030ãPALETTE 86, 4135989ãPALETTE 87, 2428958ãPALETTE 88, 1575444ãPALETTE 89, 4134451ãPALETTE 90, 4130863ãPALETTE 91, 1049100ãPALETTE 92, 3867691ãPALETTE 93, 4129837ãPALETTE 94, 1310734ãPALETTE 95, 1703954ãPALETTE 96, 2687004ãPALETTE 97, 3080225ãPALETTE 98, 3473445ãPALETTE 99, 3604519ãPALETTE 100, 3866665ãPALETTE 101, 4141371ãPALETTE 102, 4139321ãPALETTE 103, 4137783ãPALETTE 104, 1970202ãPALETTE 105, 1838616ãPALETTE 106, 1443858ãPALETTE 107, 4133939ãPALETTE 108, 4132401ãPALETTE 109, 917514ãPALETTE 110, 4011323ãPALETTE 111, 3482929ãPALETTE 112, 2561571ãPALETTE 113, 4140347ãPALETTE 114, 786954ãPALETTE 115, 3749689ãPALETTE 116, 2828587ãPALETTE 117, 2960173ãPALETTE 118, 3223345ãPALETTE 119, 2433829ãPALETTE 120, 2697001ãPALETTE 121, 4143935ãPALETTE 122, 1841692ãPALETTE 123, 3354419ãPALETTE 124, 1183762ãPALETTE 125, 2169889ãPALETTE 126, 1051664ãPALETTE 127, 63ã'blue 130-149ãPALETTE 130, 0ãPALETTE 131, 262144ãPALETTE 132, 524288ãPALETTE 133, 786432ãPALETTE 134, 1048576ãPALETTE 135, 1310720ãPALETTE 136, 1572864ãPALETTE 137, 1835008ãPALETTE 138, 2097152ãPALETTE 139, 2359296ãPALETTE 140, 2621440ãPALETTE 141, 2883584ãPALETTE 142, 3145728ãPALETTE 143, 3407872ãPALETTE 144, 3670016ãPALETTE 145, 3932160ãPALETTE 146, 16159ãPALETTE 147, 16144ãPALETTE 148, 16128ãPALETTE 149, 1064704ã'red palettes 150-165ãPALETTE 150, 0ãPALETTE 151, 4ãPALETTE 152, 8ãPALETTE 153, 12ãPALETTE 154, 16ãPALETTE 155, 20ãPALETTE 156, 24ãPALETTE 157, 28ãPALETTE 158, 32ãPALETTE 159, 36ãPALETTE 160, 40ãPALETTE 161, 44ãPALETTE 162, 48ãPALETTE 163, 52ãPALETTE 164, 56ãPALETTE 165, 60ã'green 181-196ãPALETTE 181, 0ãPALETTE 182, 4 * 256'4140342ãPALETTE 183, 8 * 256'4140346ãPALETTE 184, 12 * 256'4140351ãPALETTE 185, 16 * 256'3812671ãPALETTE 186, 20 * 256'3550527ãPALETTE 187, 24 * 256'3222847ãPALETTE 188, 28 * 256'2960703ãPALETTE 189, 32 * 256'2961727ãPALETTE 190, 36 * 256'2963007ãPALETTE 191, 40 * 256'2964031ãPALETTE 192, 44 * 256' 2965311ãPALETTE 193, 48 * 256'2965306ãPALETTE 194, 52 * 256'2965302ãPALETTE 195, 56 * 256'2965297ãPALETTE 196, 60 * 256'2965293#ãPALETTE 197, 3227437ãPALETTE 198, 3555117ãPALETTE 199, 3145728ã'gold palettes 200-215ãPALETTE 200, 0ãPALETTE 201, 1028ãPALETTE 202, 2056ãPALETTE 203, 3084ãPALETTE 204, 4112ãPALETTE 205, 5140ãPALETTE 206, 6168ãPALETTE 207, 7196ãPALETTE 208, 8224ãPALETTE 209, 9252ãPALETTE 210, 10280ãPALETTE 211, 11308ãPALETTE 212, 12336ãPALETTE 213, 13364ãPALETTE 214, 14392ãPALETTE 215, 15420ãPALETTE 216, 528392ãPALETTE 217, 659464ãPALETTE 218, 790536ãPALETTE 219, 921608ãPALETTE 220, 1052680ãPALETTE 221, 1052168ãPALETTE 222, 1051656ãPALETTE 223, 1051144ãPALETTE 224, 1051403ãPALETTE 225, 1051404ãPALETTE 226, 1051405ãPALETTE 227, 1051407ãPALETTE 228, 1051408ãPALETTE 229, 985872ãPALETTE 230, 854800ãPALETTE 231, 789264ãPALETTE 232, 723728ãPALETTE 233, 723984ãPALETTE 234, 724240ãPALETTE 235, 724752ãPALETTE 236, 725008ãPALETTE 237, 725007ãPALETTE 238, 725005ãPALETTE 239, 725004ãPALETTE 240, 725003ãPALETTE 241, 790539ãPALETTE 242, 856075ãPALETTE 243, 987147ãPALETTE 244, 1052683ãPALETTE 245, 1052427ãPALETTE 246, 1051915ãPALETTE 247, 1051659ãPALETTE 248, 0ãPALETTE 249, 0ãPALETTE 250, 0ãPALETTE 251, 0ãPALETTE 252, 0ãPALETTE 253, 0ãPALETTE 254, 0ãPALETTE 254, 3158064ãPALETTE 255, 4144959ããEND SUBããDEFSNG A-ZãSUB ProcessSelectionããSelection: ã'Checks where the cursor is if theã'enter key has been pressed.ã SELECT CASE Areaã CASE 1ã GET (80, 40)-(240, 150), SaveScreenã DialogBox 80, 40, 160, 110ã DrawWindow 140, 105, 175, 135, 255, 7, 18ã OFont "FIRST ROW", 125, 55, 255, 114ã OFont "YOU SELECTED", 110, 80, 255, 114ã OFont "PLAY GAME", 125, 90, 255, 114ã OFont "OK", 148, 117, White, Blackã DOã LOOP UNTIL INKEY$ <> ""ã PUT (80, 40), SaveScreen, PSETã ERASE SaveScreenã EXIT SUBã CASE 2ã GET (80, 40)-(240, 150), SaveScreenã DialogBox 80, 40, 160, 110ã DrawWindow 140, 105, 175, 135, 255, 7, 18ã OFont "SECOND ROW", 125, 55, 255, 114ã OFont "YOU SELECTED", 110, 80, 127, 114ã OFont "READ RULES", 120, 90, 127, 114ã OFont "OK", 148, 117, White, Blackã DOã LOOP UNTIL INKEY$ <> ""ã PUT (80, 40), SaveScreen, PSETã ERASE SaveScreenã EXIT SUBã CASE 3ã GET (80, 40)-(240, 150), SaveScreenã DialogBox 80, 40, 160, 110ã DrawWindow 140, 105, 175, 135, 255, 7, 18ã OFont "THIRD ROW", 125, 55, 255, 114ã OFont "YOU SELECTED", 110, 80, 127, 114ã OFont "END PROGRAM", 120, 90, 127, 114ã OFont "OK", 148, 117, White, Blackã DOã LOOP UNTIL INKEY$ <> ""ã PUT (80, 40), SaveScreen, PSETã ERASE SaveScreenã ENDã END SELECTããEND SUBãAngelo Ken Pesce FAST SCREEN 13 PSET DEMO us0082@uniserv.uniplan.it 04-04-97 (18:54) QB, PDS 142 9424 FASTPSET.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"FASTPSET.ZIP",4^6:Z&=6802:?STRING$(50,177);ãU"%up()%9%%%d-%l,&RG*I>D;L).%%=7%%%1%%%%kf%xyux%jySfRxr.&o42RlC['#ROgMWol[AF=#Wldh5=Xv90p>\ãU"3^Q]-^gAG^RhBZY$A(C4?joUlCs:-obrlaV^Z?f0hWb5'C(lPHHU9QFGs:ch[ilãU"2WIFO/sCvBi8e6tyIgREgDWsJ6Pl8Vpg/\sGiQC,SUONI_VdB5x2ODP/,'6LQãU":yCifa1]n_M$R]jav,poh4G*C4A-lvHW',_$JiEfqm3cD5EG/5>QDbst)W5R?:=ãU".M2:u$%0nuTY6OW)%?BiX%3/S6[LmQ%n1bAcx_ihV'((fX/AY?T8E6$WK*81\xXSmB]*Iu<9\QJj'7ePHZD_ãU"sVIf]8[3Yj)=a0,q5FfNsd$M$aN,kyJr2rlND&s\-ODr%nC'ut4a%Z>eIS[[$2q&05k])kv$SaeTmQY4E8lM2qJecrX&3*1z4.uI=L?$[zx(6nãU"0MY]:bAg1E061eckfX#9xqj3,UYZfE\JsA)E,%?wBhzm=8e;(RAmFe^F5b:1cGeãU"NEqxA+:bVLd-1dWFuudgCKD_CvU?4Ha51,;cãU"pDW]MQh&8YwNWDsdF,\QO6o%4up(%)9%%#%-%pE,RGVa+QvR#)%%=%7%%1%%%%k%qfãU"xm%uxyS[fxr.k&R=\.[9L\CWYg-LwvD1(HAK[)Y1Ep&[Ri;AãU",oolZr&bJa0-dJ\Mrn&8sI0sAk7&1sCW^UeBN$cme_wwWl_j*?,JBGKu/UHI2K]ãU"Wb\9KA^/$(8c1Z/3,;Zn$t$Z6vg&cEt(9Met9'4L8Za4Dt9d,il46i:oQfpRw$vãU"d)rSi,5C[b)\O4?b?^sWEZ=DkmU1[TAn9pCzH>Ocm8hX_A&2J($ud5lzDCHFgV#5A,GJ[XXhdIvYrWovm&g7&9n'EsF8GlxfVM^ãU"W^C&uPH2X0=G%6:c-C1Xj7FU76)J?=fHM>FSnrlEJ$+u;MR<:%RzWrhlt1'Gl06ãU"dg+y:W4Rk_:XE1lrI%^?\$Oga880wSdTu)Iljn-I/bJ&9bJjwF%+GLVv7-3dqA_ãU"nJGi#q5/:y+94<)('x^P2KnoEo=ILG0=6CkZ]isvBU,:ajRe$YMf-(h]8#1O64hãU"cO_J*C[z%+adRLig6c[<^u9>i84)s+WTtAiMy>DtãU"'VR?s_.f5>rF4TV:BG(*a9.r+c\/'[o8?iY#h_(rM0Lx]fZ/j^CBWl[jrlz6j27ãU"KFPFVi7bj6?jH3+qv;P&7l(AcGO(Ovd\_NZJ^lht]ãU"\)E_O?wDHzeg5;<+2+mNk^?6bU3tg_')RZ?l(z5%q=6r8+c84'9K3jg-u-?VI.afp0A[TtZM+M/i\gL]srãU"N9HS%VKh73S.F4lx&wlk4+^M*jJb9(ItFm'Rr1+o)eV.>VdRfA,dVEH=R1o(lpaãU"CmBjG+7>CEt/x.zmzgK&OC)kTGyISH:3wFgf?yAA:wy\_Oe.,\605X.oa:uKR]3ãU"Ixi40i,Bc#/S4T9VzuHEiNlN5QX?yxdER/hm5,VLppnkm>N,j4%up()%9%%%d-%ãU"s,nRGk7'lE)*.%%>8%%%1%%%%ut%pjux%jySfRxr.';:>[kj9v]=,N1DG]fHs]1ãU",H/y.z+bJA,7ukM;W%z_dR,)J1aC;qv0xO$oJP.;NqvZkljB?#[R.x#:.]BZh2pãU"m.X1E_h_-NxZ2Dn*?,JB=nM*<3#%0l3DY/o_#BG,MG#<*CQR;rEsMu=B<[8ãU"dQE/Bf,V[+GL,?JD0owVv/W[lZf^h6KAkbS)SPHHWQKE#fDT4qP18F\U6)Jm7fHãU"KI>ShelGS$sheMX<[*Bz+LQld1;xlP6Sd7NhDFTa3d,-=u#Me3+\oJKd\&Qov$<ãU"^%VJXiv6-4Ps6WLa3b%wXB0GTYU6&QqOF#$;ZZGt['m<:97qhr[XMK,O[par;aGãU"5Yg2[Srw26&Jx;(,Pt2v&VAL3XyCXW43,Hs-eNG%9Pto.ieRangU_)?YoUW?QCd5%d*Z\bU2tC;S]u+m-kX)ãU"yn=#B#J0(3ezhs?>mY((/J6.sUr80_?qC*Hv9p]W-J=]-qPQp*xQNfBA,jR3qB+ãU"Z7[oJ;Qb#G;CP]pA.AY2$L>MOefUce2lE=ew>hNxE$>:n;I18g1d4lS_cAEktLQPq=w3.XQ&g_TnaoCxe8LãU"9.g-Wovw+9ngVIGAB3I?8[C+*(;)Q=5KD8JK6yy/cFc->h.%9mnoãU"ws%o3'9K/;B4,D1(ien/J6H9C6+U2YQEGvBEsrH_ul8J7sr)x>WUSs?&WGnUNh/ãU")=P-/nD7\<)iT/6:kiNhemyJ0L*n2dBNQv9>22v('7)VHTd0(&q.&&rt=4>k&nIãU"SJacquDF&5&/p'tI^?tolBoaG=DK52CjyciJxAQJ+PZ46r#2-v88yPM4>bYoi#_ãU"S$>O;rmnUi(?j]MXEGCP-McR)2$VaVNEF6A\RFKOu7]8I.UKG/GfAKtI_?.t:$_ãU"3(E7YGZ2,?%L7)hBAik.i5NBGH>(W\mr6CY.wNgSczQUj1cu7h%/VglfOZCQr\=ãU"<0>QaN2n[u:H_r^J$/;L2M:w>wm$;/nG'+)O=oo2$NWf*.#)X+ãU"au*:%kY$.J[YaSjk/HXCss%/\r6wdu:=CA=l?+s##H)OfW5e-<\qC;WbcWtlHIWLjEA19RJcOs%aF&/.,yIv:+_'gL=za-/N.:)dDz_wT.y&yZ'oKãU"eIuQ;P=uRmmG8(>fBM?&Uh.zqGOXo*mvOg9ysd4OtxYãU"4IP5'\Dup%()9%%%%-%5w,RG,cu(5&a)%%%c7%%%1%%%#xqt&%uxjy%SfxrW.&TãU"=B\[5LO\YNgSV%4ZIz',kAZ:9TsSWn/1s1Sn)2rM;>YEQgP;JtssYRXSc70etX8ãU"fPcAcinc6]OXxmGe%Gd8(H&XdS-hjh5c;N&1E:KCS+6uv7kMFtvr7b-8:Wa(*NZV/XQZUãU"*0s8Ia[D5[+&:,+QXmlkaiBw'7Q-DSYflffz?=cde=Jmb9SJ&&&wãU"S3,WVVc05Ge5UI(65eGWUU9JpAR=huJC;D(oTbLY-t^Zf0ZhkAQUb(&m>Y5*lE6ãU"aclp7P+WP=#Yq;3T:f+K#:<2h+]WFe_^X+<%z*gFbf[Vxv(2IOH9*o5p5=;-SZ_ãU"#qGaRaX5Gmfb:Z+'nH4%foi0VulVd^DWZ9JIw8BY\?1X7:W$)o'Csr:6*E+EkF)ãU"m(KkM:q:]w:=\JYS[guAj+V(\C]60mH1ai:uQapXYjS:2:B7hr/ãU"/C#03Q#5+UZ.CC)s'4zBHJN,%y3g:Ds[ITPD#;>ewda/d2&9xadLu+d3]o392.rãU"ZI4ZDb)WbiS9O7TB%69tO7:dSazMh]eyj+ornQ%inn8lXy/R_q;m7Aq5rV_/8RhãU"nna+j(:#nyLgd]UFoH6VEhSuU/[9:yãU"CXOo)).jx4:-RBvFR=NgwH3&0$ubmW=^t7ãU"pCEi.wuFwCJ.E>)PRY?/Wq,F7([c/&_<%R#T:2sS*;NH-e\lkbJNpC&>Q&2*n%FãU"XalJru-fv(I(dy]%2/dalAkdP:Wuf])g1dp8OhhYyw/=btXFkUT$o*1bovM'?PKãU"$/W(>>tK:,m'71R<)a=L:O3r?>]q*YN;,R%]9'g#1tAaa';O;I1.jxd\VJ>3l14ãU"BVQa.&kTRZmfE4+-/9guM\%CgJdG1ydr]\sZF6#.>rwEPS3j'Iv8_&=gLr,wXGzãU"/M/:YlZgVãU".nl_eN0'l4up%()9%%%%-%4b+RGML:BQ%/&%%&v&%%%1%%%%kfxy%uxjy%SgfxJãU"4u0:\RU5vaSqDW\Vf\)+y4zKK+4tB(u'#v4\S^v[X;u,hhCsxYM?Q<])$-hNVJFãU"+M=UvDS-EX3Fn+l?&ZYt/#aK$QdnU>'lCKIyq(6vC4Ucc9AH.+zEnWE,$9ãU"Plh+vg:.oSl4lrIm,58kSi.e'FPsXs,q6gHpOy1aE%hn^\90pf(B/HcmEJr/rQaãU"6N,9fBTcSjlB[U5UãU"$Ja#)t)bl8+8v6+,0Ihn#Zs'9#LNbQNjYUP14aPPBBpAWGQ_uippYH3/qA[WjSHãU"7qY]aS=(vim2.wzaOMT6>0BiUN6>09qLhWX-\CQ\&[+d3>XX\<.-OK21y^G1SV(ãU"BTFq#Y9iW,uo$D6xD)xqTfZImx.kP)E1T^E<]\+UG=:lt:D%cu6nSqXIj,J3-8fãU"b94]BW30ARLU1-[zVgJe%2G4q2Dk\\'s9^tc<6g3Sq1,A%Es%%%%1%%%%utp%juãU"xj%ySgf.xx&--AHsz%-MsRavIUO7VyARcA%mF'JTsr>%AHx%my-UmYXLp[rQNCoãU"(uiF.QSxQmQrN]'^OsS7orFxmUY_^%onrx#Msr&')zUV])YXY?^[^o'DTwm?GHBãU"T7Rw)ZRuMB&#UWZT_W%gqhUee5_+dN/;d)?k.+5h/;W[*F%uKX4LMdq,-:Dz%DAãU"l+_*(x(V)_fPTE.q)d%)%up%()9%%%%-%6Q+RG>M3XX&V%%%&x%%%%1%%%#xqt&ãU"%uxjy%Sgfx^x&-GfBT&I[MSnE%pnQo'Jy-M[sRvI+UIXUaxARAo%mFJ#Tsr%-AHãU"xm%y-UY=XLprmQNC(=uiFQ(SxQQsrN]^%OsSo+rFxU=Y_^o'DTwm?GHBT7Rw)ZRãU"uMB&#UWZT_W%eq3?Ue5JMJS>87.]DCM8=4BLE<03J4E1HIEf=624ãU";>E1p4=ELu4B2&42/u%p&'9%%9%%#%-%l*,RG*pID;L#)%%=%7%%1%%%%%%%%%&ãU"%%E%%%%%%%%%kfx%yuxj%ySfx%rup&%'9%9%%%%-U%p,R^GV+Q+vR)%(%=7%%%1ãU"%%%%%%%%%&%E[%%%v%)%%k%qfxm%uxyS%fxru%p&'9%%9%%#%-%s$,RGk-7lE)#ãU"*%%>%8%%1%%%%%%%%%&%%E%%%%%/%%%utp%juxj%ySfx%rup&%'9%9%%%%-U%w,ãU"R:Gcu((5a)%%%c7%%%1%%%%%%%%%&%E%%%%S%4%%x.qt&u%xjyS%fxru%p&'9%%ãU"9%%%%-%bE+RGL2:BQ/#&%%v%&%%1%%%%%%%%%&%%E%%+%c8%%%kfx%yuxj%ySgfãU"%xup&%'9%9%%%%-U%[,R[GT7<(5:&%+%2'%%%1%%%%%%%%%&%E%%%%C%:%%k%qfãU"xm%uxyS%gfxu%p&'9%%9%%%%-%z$,RGfB?\rp[%%%>%%%%1%%%%%%%%%&%%E%%+ãU"%,;%%%utp%juxj%ySgf%xup&%'9%9%%%%-X%Q+RpGM3X(XV%%(%x%%%%1%%%%%%ãU"%%%&%E#%%%M%<%%x.qt&u%xjyS%gfxu%p&'9%%/%%#%%%f$,RGX1XkdH%%%%H%%ãU"%%,%%%%%%%%%&%%E%%%%T=%%%wjf%iSrj%up*+%%%%%%.%.%%*'%%&F=%%%%%ãEND SUBãCLOSE:IF S=93AND 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ãAngelo Ken Pesce BITMAP ZOOMING ALGORITHM us0082@uniserv.uniplan.it 04-04-97 (18:54) QB, QBasic, PDS 168 3879 BMPZOOM.BAS DECLARE SUB baa (xdim%, ydim%, xend%, yend%, xerr%, yerr%)ãDECLARE SUB bmpset ()ãDECLARE SUB bzoom (xdim%, ydim%, xend%, yend%)ãDECLARE SUB display (xend%, yend%)ãã' --------------------------------------------ã' USE QB /AH or QBX /AH (only for big zooms) Iã' $DYNAMIC -- only with quickbasic Iã' --------------------------------------------ãã' Bitmap zooming algorithm testã' By Angelo KEN Pesce 1997ãã' Set up the screen mode and other things --------ãSCREEN 13ãDEFINT A-ZãFOR i = 0 TO 63: PALETTE i, i * 256: NEXTãã' Set up the suorce bitmap -----------------------ãCONST xdim = 50, ydim = 50ãDIM SHARED org(xdim, ydim) AS INTEGERãCALL bmpset: ' does a simple circle patternãCLSãã' Input zooming parametrers ----------------------ãCOLOR 63: ' bright redãPRINT "Bitmap Zoom v1.6"ãPRINT "-------------------"ãPRINT "Current features:"ãPRINT ") Zoom in and out"ãPRINT ") All integers processing"ãPRINT ") Jittered Antialiasing"ãPRINT ") Bitmap streching"ãPRINT ") Little anim :-)"ãPRINTãPRINT "Org. X Size"; xdimãPRINT "Org. Y Size"; ydimãPRINTãINPUT "Dest. X Size"; xendãINPUT "Dest. Y Size"; yendãPRINTãINPUT "Antialiasing value (2=normal,8=best)"; aaãINPUT "Jitter value (25=normal)"; jtãCLSãã' DIMension destination arrays -------------------ãDIM SHARED dest(xend, yend)ãã' DoZoom -----------------------------------------ãCALL bzoom(xdim, ydim, xend, yend)ãã' AntiAlias --------------------------------------ã' antialias is done by shifting xerr and yerrãFOR i = 0 TO aaãCALL baa(xdim, ydim, xend, yend, jt * RND - (jt / 2), jt * RND - (jt / 2))ãNEXTãã' Display result ---------------------------------ãCALL display(xend, yend)ããã' Anim Demo --------------------------------------ãDO: LOOP WHILE INKEY$ = ""ãCLSãPRINT "ANIM DEMO"ãDO: LOOP WHILE INKEY$ = ""ãCLSãREDIM dest(80, 80)ãDOãFOR x = 10 TO 80ãCALL bzoom(xdim, ydim, x, x)ãCALL display(x, x)ãa$ = a$ + INKEY$ãNEXTãFOR x = 80 TO 10 STEP -1ãCALL bzoom(xdim, ydim, x, x)ãCALL display(x, x)ãa$ = a$ + INKEY$ãNEXTãLOOP UNTIL a$ <> ""ããREM $STATICãSUB baa (xdim, ydim, xend, yend, xerr, yerr)ãxratio = INT((xdim * 100) / xend)ãyratio = INT((ydim * 100) / yend)ããDOãxerr = xerr + xratioã3 IF xerr >= 100 THEN xo = xo + 1: xerr = xerr - 100: GOTO 3ãIF xo >= xdim THEN GOSUB ycheck1ãIF ys > yend OR yo > ydim THEN EXIT SUBãIF xs > xend THEN xs = xendãã' ANTIALIASING ROUTINE ------------ãdest(xs, ys) = (org(xo, yo) + dest(xs, ys)) / 2ã' ---------------------------------ããxs = xs + 1ãLOOPãycheck1:ãxerr = 0: xo = 0: xs = 0: ys = ys + 1ãyerr = yerr + yratioã4 IF yerr >= 100 THEN yo = yo + 1: yerr = yerr - 100: GOTO 4ãRETURNããEND SUBããSUB bmpsetãã' Set patternãFOR i = 0 TO 63 STEP 3ãCIRCLE (xdim / 2, ydim / 2), i, 63 - iãNEXTãã' Read patternãDO: LOOP WHILE INKEY$ = ""ãFOR x = 0 TO xdimãFOR y = 0 TO ydimãorg(x, y) = POINT(x, y)ãPSET (x, y), 63ãNEXTãNEXTãDO: LOOP WHILE INKEY$ = ""ãEND SUBããSUB bzoom (xdim, ydim, xend, yend)ãã' Set up x/y zoom ratioãxratio = INT((xdim * 100) / xend)ãyratio = INT((ydim * 100) / yend)ããDOã' check for x errorãxerr = xerr + xratioã1 IF xerr >= 100 THEN xo = xo + 1: xerr = xerr - 100: GOTO 1ãã' if XO = XDIM then update YO and YSãIF xo >= xdim THEN GOSUB ycheckãã' Some bound checksãIF ys > yend OR yo > ydim THEN EXIT SUBãIF xs > xend THEN xs = xendããdest(xs, ys) = org(xo, yo)ããxs = xs + 1: ' Move xs (screen x) one pixel awayãLOOPãã'-------------------------------------------------- SUBSãycheck:ã' When XO=XDIM update YO and YSãã' start a new lineãxerr = 0: xo = 0: xs = 0: ys = ys + 1ãã' Check for y errorãyerr = yerr + yratioã2 IF yerr >= 100 THEN yo = yo + 1: yerr = yerr - 100: GOTO 2ãRETURNãEND SUBããSUB display (xend, yend)ãFOR x = 0 TO xendãFOR y = 0 TO yendãPSET (x, y), dest(x, y)ãNEXTãNEXTãEND SUBãAngelo Ken Pesce COOL BUMPMAPPER LIGHTING EFFECTus0082@uniserv.uniplan.it 04-04-97 (18:54) QB, PDS 2509165832 BUMP.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"BUMP.ZIP",4^6:Z&=124269:?STRING$(50,177);ãU"%up()%9%%%%-%B3nTGrA8+,A17%%QL%%%-%%%%gz%ruSg7fxf?;:BSm]k$zuhV-ãU".+AWiKOR8$o=o/3T+BF+(Vq?1XNAL5UO/=J\smH'U(c8gC615]lpc^Dz&dPFA8YãU"uXL9hA8,m[_H0eN4BgG5p\Pvi(%YIM$?5r*dBUGgVJ8;RG/iB?[&ixJHWM(pGn%ãU"ue?tU$:Se*LAl>=B'P8To87aO23UG^r)XgZw9*8>2+cF)60E?^B3%eABIs\^nW)ãU"]U'(a2j2_-+cm=$0V0>I7,R?qTrbZ5bUOP[i$mX-J7Sul4TZ_<6]-:k?w%tlw.NãU"F#9lzm4hD7N)oDIeIgc<;ZJa2p_fVwCZ[+Fr\=X+5XZF>=]jK.&oL;Gagwp),2jãU"j))/Ze^Xv9ElAmZC*L$[l/^;XZmX?IRYLm$X&-Vw=_VVN(%;ydd&/h?>hDP]h39ãU"p;e#Hm9JGJpyjf;Jofpt14aR6NC?i&Q3_hYJP9RR)z&CHt<$s]avMZUC_V\e,>OãU"JIaa9lcOH3E$egBK\VBwm[rko#4L;Fyg8M7--X6X&4dc6um(Pq[+kKUUuB>+NZ&N/*(J?#.1=tP<.1.J[Qs;UB8Ut+8v&h0#8#QQI6l-gtfãU"e?)5YvbFIaIFI2azm3A_+n#N$dAV)7*oWd4_yWIB/[9(L-npV8kjRwu:o8YbD?eãU"%P%x8a5No/aJ6qTmU-oh>(faEt=DI6VdjV'^Rzsu.;QjFr.'?cTbh#C+Jaq)cM*ãU"R:'M+kKtezN]*4ahk]pPp1bjO==_dS?46]04;AN4l9,,2>S(JAvXbA>or0r9TBpãU")B(lo7)<,-$6(FC?JX9,?0oI)l4QmyVGQ*eEU]EvBD\N%*G0J^$29-BR2z*&+2k3ãU"YqwK8[,MIDyd%NbBZ2-J]8h8'<\'8'mDSV&nx5G<2YVãU"eq?2+'u9/'j2On>_*F5xDN8LhmBXofj:1CM_$&%aw[Bd3,c7aVPm[*bo2*R&df[ãU",L9[,3Rd_rPl52QrE8h-RPIlPIyPHjIW=cl+s1EoJwWR91/h^-qH74B[6i&_fZ=ãU"t[3PVDMvllc:g3sh/k*a[D0c.rbevX9NiUF_0Ey&VLr'W.$Q0ocswEpPB/b#B8gãU"8L<9^8vtEcUP\5\ZNp[vSgCw<8yUDwQ?6iJQwTEq73IvLb]$%NhQ^eZN27X.FHiãU"[M_kt8FcH\1Z?3IAvXnA>sSjfng,/&w-tt*8rQ2q,fqMe9[Ho01xQ7T^(Sl(E.8ãU"/n1.7lAV%,1F\Qg*AFVjujdjrTiDn4xY6Rx(loX-oanJ81_CFdoY1R6TR#?:725ãU"t.SL$J26].W=K%agQeFr[A,^UIE+Q8isFq<\jBX)u.L5PWke'k^QO9%K51yCCK.*3pEIcH5V+LwYydiC+IE#ScAcãU"ssC&^E)f-81wK[&Dxi/PCGC:I%*hL>YC;IX7;9*63oDNl0?GVãU";e3qAa/]1%kK>G[7o;I&W(9Ki)dO)P_uVEH3?0MmdW44.u-I%NY&:/r7ãU"2b[gYj#::fGa,yfB]SI<+7UGxat\mx]l)\R'J]6rd<$32szAjSVz&(o1Llh'.,cãU"XmZJ[ilUnR#uuV=8hV]v5(YtD4$rIF$)/dP'_\.)]:=;w67JY[]Yb%0xbcLc5^FãU"r]O5$5kh5JC:q5K;q3S2m?ce[u5$LL=K0e+;.K]pVGmmk&X#69?QWY#'6\aT3Q(ãU"nCp:fi[i5t.&*Aks5]Xj)ixa'3(\wESb'J3^L/T,DbJOx,nZKGUeGR1-sx)4K+(ãU"1j6J?Nkh/WuJC.^Yv.Efq[I=Cf;q++.=':F5E>quzFUEt:vZ4)%c#4Q+bU\7mBiãU">m,AlIfpUu9uM3,]LNnd.C^bG7yLc#hVaKO5]YV>^bDXhr:e;3gesm>#]=?Tg^ãU"0OhTZsaK8r6tP0n#hSliEn,i*&_.fllcF,W.J[GaKrpsIo0,g(im6l.l/PdH[7pãU"5Unh7PfG4sU4]=G8LkCTCyke4rmngm2*OT#al*cfLGh86vla&g-3P$>^iAmzA'-ãU"jYszq#p%8cH]Uu1Cf\KfNZy36j-?vd[sg37ri4-^*E0[^&nP68b#,&iCE&UDVQ+ãU"AC'b)0cgtXCG\WJCcJ;rgX>xm/2l7,oh(+1.j46uT.B.gJL76TJ?Ge=AJ4%g'.XAFc<$^-u'OWM2AGe%-ct1DS$:UAGO\+HãU"M*tWEZ:Xhxn:V[]O$g)ZW3N&&-;o,tU.gr2RqGl?nxBDuQyWgo:VG5kQ0*ãU"mce4]=d3K]*UB\gu6-+a:a1Zy7-J?R\OXfsgc:S'ãU"RGT,)Mt]*3bqsq'VZQ5g#[[4R6CKwP'I&/\xEYNhbG3CTU%1ce),&:B;f+WOHZZãU"/gK&ya2F9vp3#jvBN.l'h7oCa1^v1OJNL3OxkT',-8egH$.iU]Mt;5U<4ufWmn:ãU"hBU[lYj*GM+Mm.:n=OZf2?2-CaaM3dq+dcm/Y^C<*/l&opW8=ZX=Wi_UgPZfd%qãU"LxyK,YiI$](Fnr0tzJLLLAfyiuVeB^gphcU3c:$1m)W8Yj^1kRh\Qsg#zF(NiD:ãU"s1[7n?ud\KCo=xCe1*7B:9'en,GD%c?%5M*BBcgbcnMq3v_V-/%oqhnEPM'Prw=ãU"wwu_jP5>oQgx^&o4_PRhnwG1]kaVDm,roeBKvU#S2]_-AFg.=be^=det$,;Y)'5ãU"hb-'84FC9;$Y?aDJOC#*vWfI[w]%\;]-q;.y2-t$-q$fcM6J\.(N9exu;hZDwE7ãU"eCxYi'7Ae(G9<:RK.L.*refi*X-m:kI\,-*d0*/U#Oi2KSEl[XjB1RQHWD%j[)xãU"ExGl-jzUiL(5Kj8qmt2j,ufoPZ=fTvK0G%wdvqUgL:&O-P:g6eb-I6>TG3lJsp$ãU"bc^Navh9cJ4fKs/%^*HVJOuuZfnfMI4oY?MuuQt+HmNed;0$KlR]cGkVn?*fKi&ãU"a<(2^9I[Lh(j&p$8%=5Xuc9eB>a7uk1bNN?';oUUZ33BcnaFGqf.=,/F;)ed9#I%O>ss5xmMop/XoZx>KfãU"LfuM1b2qcXg=M5K-;C5:$W(=gN6xd-E-QWWPcS.r'u3N&eJ0gCHQuD+%dRDQDeD42PMcD+R8JãU"$R2j[\EE5R&&Z\%7m-98S);HgI__0*AR5gmgmAXu*HrU;J<$vobynmJ7ki$H_$>ãU"DDDDz&eFz&Fk)dkHE6fy8ZmN01p#2'ht6(,pt-trrjyNNwc4CWuZhHq>XZwtvkNãU"svXcu_\xuuHxuuTXwoY.w^.tMp4Xuvwp8lxPNvoPduZX4xo>uxohxlwhNuo\DxmãU"nvdv#YNu#nuxu$8Hu^T4VN&oFrxxexZxxwQcx7P,fkdd2VAzEdHx0W.lw&MsF,uãU"Y&P%7oNjmi(w_^4nuu0XYXu%%UZ9X7ugpwU82hA&(ZXP&u&>4rqW^P*M#F4wL-tãU",bCjaZu?wlDcFj2&&(zVpNvXsTk^XobmPt;pd)9TJ*J.mjP$jlR\P&yRGNxãU"JrvErpeG^T(uq7kTck>WA5a<^QDBi-ApdzIG2Q(/y+S4*WvãU"_Q&SH:zI5CqN.%=k*]y+8dz?\ZDZF?t5j5xAJ]gzWu]K%=JN7KYb&G%S4N:F/_,ãU">vnX8Y(5&G&zt%ZTC%/gOpBmkCnVZ4l4$^NNtMP6%%/-^.vUSPiMe%bn*EcKz4EãU"/Ydi$#6JW1WxCzSU\+yP95syp_&>oT.oZOlur^+.ãU"DFQMKh7?,Y]oBOuBXPc&LRz*fqR/TF&+L1[SfdH7vu:Hr+7AeiI-rg]Yu5.(oXzãU"XZlk,&zDlNs[<'XBIqoiZD0BL>Kcd?,m:eH.gZ\A:WLu;4$D-+Ix>ScLjHK_:%hãU"*(EZ.J]).9NdaI:V'w(z6>^OF)*'6muzF0^X+F<&n#Si.>;HqOãU"dC,7&:C-M\Y3n'P):bUfi.s(i&BG$knc,fdt>rRRQ%xGdxs%-hj#Z3IAeC2U8ãU"C^kp-F<[J?27]6yA*x$^MrshdP&YwDck8;,4I3mSCG5.&)pJwmCNK&G;M;mr?OQãU"]%YxWP4b:dWl+i]XZ%zf0Z=aUS*EQe0fnpJx3HE[Z+#>tSZnbH0Z=w8>d=ziUA5ãU"MJ/y#d[_oG'MJ/i=%&XLu.&no^\.M[3Ez\AAuw<66Zv%:.S]4O4;TXWv)]1r^A2ãU"k%/]Lj5?;YxTvdZQR]\5P2zR$ZF%IT#3N+2C*QKh;^de3&Z:N^:dRxlD1%8IZ59ãU"GRP&HBTS[T*5eK-+.j$&>mc/pVilãU"IRQP.=2GDXZ>nc9b:i+=Se*l(:EbYd4s_P0/JvDj4:<\Pp8AiRXdis3ai5BiCYKãU"4lXZ015/:ni2oXKqW9:W,2;HYIu)^r,mO'#6Uhm&b(u'CbE5+btR]k[HJH0mgU+ãU"^ri^rNj#Paa8vQSQ-m(UAk(>]A[[]:?HbD)iB9*M6_-j'v*BV8EhcEãU"(']0KGQ(:c/^C'+Cx1i#g1e4'+wjXoPf>P(iLKBDpg:KkJ$C]O,d''v]Qmws_ãU"fYeZ&3(_tC;Mh.h8;=CI[\(BJZR(7onRX03/3j<%MHs3T7ZHBSRyuoA,$?HP<.^ãU">V%0ke;?;'qPQrqU&$Ymkn-zJ*^oaV#BYVv3%*X)]aj3AG6%70&V65)=O=ua%JRãU"k*KDz>p)M,j>(1K7&L6Ogur-jOaE?7aT_g0mhnC81wAN2y?[Y^XtZ]a*AiCkãU"0qOR$]?:sn18mREeRcbKO;gkY:./sfV_MR)m:X-/hYb[8i7q+n\UZb92+b\^A):ãU"(_Q^ie&w%>m+)kmW'w1FE>$\AFja;A'R_txy-^T5Ybo\(-3ZprKrK&K];*A&y;.ãU"j.Lm5MX_7Eu7>EuluCLLh?)U5w*PM1HSFUCh(UUi/BAL^8W=G$=ijYY[qi\dbJMãU"&1:8J#Ia>HF9YfwqUI58Z>dMR(^KH=(:ukgh:<:F3.HkyJ6lvDT1sd-$eCBOrwSãU"..Ma=bu/5=ux1%TcfFeuF0L:X[X&W0>8BFS/jG5HVWnTa.%aq;Wf8$Nit]vZx&JãU"g&XHPM'$&>2A_jIfhmBZO/=QeJ%f:LCB\ãU"G2n+2gWhw<8NM397sbAibF='E12%pWI.B=uQJPe[,*ECAd%MB8IblK7lZ:HA=KX9.so-ra-+'q.ãU";Pg0o8VLBE+=Frq/%BaU-C>5QK2gscq)j90,u8^+bTY2rqE70Di3J+(udDoG?p1ãU"g)tnORj2SVZM6-Zf=/7J3Hgru87F6/qi'/q9xBRJ'*JHO:WF6i+4S5FPBFoQNC;msCE*K%^:\MqH=]*]^N/vOhE(6a?K9rmhv353_3Vta9+M)i*?,L)k'MhãU")*ecEst0d+'G)/:4Hy1LV_h(uIWbgaDmYhQtL.;%bB&YtU[K-*F#8(vUvhO4Xb6ãU"rm4cXnDlAp6tlstK(qRci\_;J'Fl$:X=/VXr0UL_JQ-HOUk0)=f]J(?gY)BbdMDãU"v%N,K>h2m]C9;[ZNc9r&ORaaJA>3R0jhPC13_<4tvPJRObX2LQv2P+]82IvQXn(ãU">+'b_e0D/5w_y>fCE;_qT]K>y>-)c\KfZ^a'^4L(2hSr?)=_NFQ)Hosw<)AIML<ãU";Z36I3s*8aa:h,Bif=CM]VTVXE&hI)V(S$dVãU"biAoYrmH_6Q.5sQ#xj[)\+*pm#/6/BJfomnE5Sjp52.&rB.wkn&9QegQGrOf#RBrfd/\Rd1mR$AXKgt&6'LbWur(LZpU1ti:u*GQpM$.R(YfãU"qEl+2sk;s&D1oJKaYnX%f':\Rp.ARcp>l'7b0fFCC'U9^'eEE?/c%eIFr\(X*;Yn:7wQ7SqCjr_?'OgX>TQ,*;ãU"^>1)/87S&Pw8)Fwij/NQ%kf?=dgo.e:o-DW6y+G.K44^33,l(hRd1#J]\w6/HRkãU"B9ME4_g5c)&pZH]CXJLP%ucuN$HwaOF,^V4?-CQRMqCXA)0kJ^CUP?#M?h?AK)[ãU"39st-B+)KFL)O'DEFHZ,,aCf^3I0E2L\8kBC39tFM8cE#mOL&^q>;__YB#rãU"oQgp5oSAAOzW_(Yvu/)vw1^JGj4772)k0H;;\kec1vA(o'w9_c[%SU&8TbRs-cHãU"kIO:Yt.aP<+pZ3ha[elUuiuQaf0H=MO4T_r>^m:;-Z5vyf^X?pD%'Iq(qB8:ENWãU";RmWvAbIuIaOoDzL)GeAOsUVUIvTDydR;,K-i>M3SMRMNH)]ZM5L9nI6-p3_+0HãU"(XE=P%cuk*BWD#\lD#B_^\SYbOV5b^+M26.xs3S)aag?&z6I+NEg:rG_m?_.Dh*ãU"GAtlG3/YO1q2y:gX9**:IPc3_?5/PEtGL\/?_]+D%\\2REMWOãU"[ne0bF+MqYojb6R%c\Eg#s+IsVbul2EBGW0Sbp8nHi\+820mR]&/CY*_Tzfd<->ãU"=jGSiM5e?FXB)U1M9Dz_n&L:ymYrQ%&ERfs/KWM,M#G5Ql$PWMB_(6+(R:LLv(AãU"RafK/t=_7=g_?KQU1jgenqesVXtRXYtB=gS\gZ/In?uVhdCRV&$yTfBf9qa(GqhãU"93=z[f4TCv/VrQ^'2dq/GhDbvaIV5_hMLLRrNDcY7sU>7W&MOAgI32R:D?[5DaeãU"XJ<]RV/34]bv;aL,pV,SZqFOLakMCkmLJ]rC-d]SgBNjQPS)ep\ZE2'],2'Rgt^ãU"4of$lZ]Q-wAyq*4X[<5wPpJME\e7YTmtZ(Xd7(Z2\B=G.e6V?Ahu4AdeljH+QE3B/[8);]U_[]ET#a%,>)_Lu?:%,ge5H*,ãU"^cr=V:\9BK*>\%Cg6B%i?#BRnM\w2\P>k]U=sH5eSsfggji/Phe;E;5MStK2n^NãU"Dgk=V-O#Kk>?_)7m8^mo1VUEVo2ZNDibPIoYGRBabRDUN[R)$+uRgR//ykBV%.SãU"Hv3TgCNG)9\Jq7&vAL=UUn?*1mUUQogf=BbZ:f)A&KhCvikFãU"GKF?[4&YlcW^asm:4Y>goI^JU<#.o/2ZJCo';,WUQ^6zH82%X%PQRfk&LKyUBW-ãU"-OQPcQDu4'\7I')D#l()iE\*b_BMh99ACOrt(jT<6(Shw=d&o/zRNV:;&*u\O'BãU"W&-^%iSyd=IW,Zhr-X*Z+FKpv8?+))L.9jq3%AHo0WuvqUScU7d:o7_Iv04kc'9ãU"m+'NZY53MnNJVBIA_(>aGC%rqK8%pfwxkbBc:k_$C3J=zmqZ_P&,t'$P'b(4+[EãU"'EPe6HbWfP6hTVOId;L?+Z#rej\E/6_&ShwT9B0KPXebrM,Fbb[>0*LbRognuZp[p(6kv8[P+9BNHb6.bb+l,>E&faDBãU"(ZQqWfQ+785l)%GSB5NJFIh,raX5si[(],HT_Lrb(p871S8E]hV(_T[ePV5$7MMa'kQSIT_/j[qjrl*+lTUETu/VfQS=$uElãU"8FlVip&D)I^H.HSA/UD3dJe\1^XE6CãU";YWhacS7j-(TASa$$>B+J7No4NaA(RD$GQ_UIAb$Q<(RQ#[b3]Ru[0SGuu'egjbãU"2,/OX0LzE<0p7r8I>Uce-v]o*6Ce.+NA7\Xi'\iu'%AaccZ*-%Li6R+7QS]fX/'ãU"W'P_(F;d,D[pIY\(5D[4QR'Trd0i(rGs<W]5H>fyOl>lN;'.8.:G_ãU"m4yJMo'Y+G(K3C_ylcpLU.:*i0]it04pguT4h9GMxyAKIEMA.I^5l*fgB^kI=][ãU"k^dE%o7?kM=IDKFkXVd*^&XH=(Do+CT+/D#c%urpHmmZ%r/R80'<^\y?_a[WwLE)FSmOC.B^;]9YXL_0a;lL*8SD'U]7Y(\X1ãU"&,33Gg#68VM0:DEgFJt)UKW1$xYVuLE$kVxg]]XLf;hvf)*nA1m_ofbYmMFR5dvãU"m_;_Prw6eSih2[tle*:ie>&1^6hYgR8TBK_alq%59gTMh,=DCmS&L+UmB5HK?HYãU"LNp'=/3x%>fd7gNT_RTxG_v,3UyE]gjdwCwGheNJ9Ob$tqnAH[:$NCs%gJ)'bd9ãU"boZhR6:dLmGDGbk3%DUqNGB/4]7k-V[Kn+hY%\bPs7dfbB.'%%ED9E/6b]+7kj\ãU"i^W\]=5HoCO_9]M[][]F,Xe-(d\1m]G6V%&F#eTDjW'P-e9x%M#S;Ch+uCc:I$]ãU"sZt$,vff^KQc,q>-F7)AU0(5Z:H*IzW24+''1jpCf\9,MfO?8VM%Psa1?XRUR.%ãU"wAyD*.uXhaNCad$]>aCjwkL/Pcd.TH]jo##ed0/G3?5[S[bB>'*X3KQfSUSr)l[ãU"&lqsfsLouuC>N[FH_rXE?s2L*LYs,Fb?xCTXBEDSB>='d(e\M%JypVC6H*ziL8RãU"TpOg9oyAhr2o,xDi*+:Ymb&i$Z\Z.ansh,]QJp8EEo+kN[GMgx4y74>veo3),JYãU"SãU"U]nfZCL,#IQfLDi$4bifsQ(CaTb?K7S-1'FY]W:)R#Evb(NM]6*%vrj1MR/=;OMãU"[Lh8Kt)Ed8=*']=NKS4e,<$t'Qo:\*'=p9-$nQ[r0mG_mBT]=T5aSW5?gK>Ag%dãEND SUBãSUB V2ãU"0laCI^2(/b\x7mKI5EPfJh;qPeS+thNf16iK6D^UmT?ae:z89C36VT)I$xAmIq&ãU"]2h+pA1,\J*C-ddDyMn^Wo1Beg&V$*2)KS.GEuAvZu+laZu'Gn%_*fo#$kn4_5*ãU"a-oSW7CZt=eEI40b$5W[$)J.[WJ]owk7k+)u&ãU"(]lJAo'.9f*(R4(Q10DkZ)Sl,0G9[=Y6M?yd.YM_NX7M-['G'H-m;WmfL$TZI>QãU"x18+e^sdbN_<$k.A-i[<UYteDflUDfe2q,A<2.Oa-XNi;XB\lHqRBi-Hf<_RBCãU"VGWrRA3nE#=aF\[Ws>)uFL?r2NBZQ7sXZ5%YxaFMVC#cjj>/I*Tt+]p/x:I)z4$ãU"6dZy7AWF$&&,XV[UoW%J7'v/\l__FbvLqYWO0UjNNSJ^2AfnoAr;4FR&0P*/'gvãU"kMgERO.)m'ZeTr.B#/j9M9?TJN3$I]#2opcWLV.8wLY17+JvgjgqDuQ;)GLzu8\ãU"FE.S#Jx0TMm^w\:(F[\8]c-^F)CWcu46ZoA%Fx03?\xj8PWrvqPMeQJKJS-Anf<ãU"(1kzR:gpoY#G\lZOb]Mnu0IBd)QK#[>'l(5O5NFGYztz#9?^-Yz_Vk34]/WM9.$ãU"T^W3;n2[K[-m#l$?]U#K>ieBR/ib06.t$:jqHS%,OghmE/4,2jNK2=7C5;XOyHhãU"BU%C:-\CUG9IOlu9m$u1ANe[56-:eGQ>IHD%GEf:FiV-L^qV&(RgPE\I[1?(-/.iTV/l$ãU"I=nhAn.96e\FB6C#d^tPL).Bgu%Z+'G1bpO7V\yv$.]:/VJ9OQ2WbsPW&'Rz%g1[>X5K>]O5Z-u2GxRFEmUiQIP-H\(OI^e6fMg\JXP/\]SL2rA,.U[LRãU"QFXuCR2aFq3^eK$I9gV3]rg%K5Obbf(E-TnQPE095h)1>Bo84qambt<$G8n?&IuãU"&t%1/ul(FXZm(R\a)1%cfc:wkHK>dn*y203Gv(L7MTZd#jL250G&g%b\Hq;:x'LrZ,9m0ãU"Mf%0^qTumL-b,GYXS3CUjoUzPE\vjj\e5k*SzYj,##*$%4$IE)I')I+,TM,&R:OãU".%lJ1aJgn8&E=IZcH$sjqEki:-9%G),+?g>M1%ApaXjsJTA.gZaEcXHD#rVhPRrãU"mads+;Q3>Z20E.VDA&rHZ:quU.d-T1#wueJbFDV-N\uE6=\.tNt&Id,b/My.dp\5SZfk-pSU&LGWJn2?S?&Q)^,pKPMFpR6O>ãU"AtCbHtKJmH)3N+w,6W$%%+*,EB(#U_+wr3ZYAeTkCYTkPgiA,,[NQlt*>fSRJLTãU"XWYITf+e_*uP<-e%IJ?l\jpR8bA[b6ER],MhTf0)Q;J#0oo4lm)1w+'ãU"SpOQ;?%RgV6^FfjO'>w(k)W?QuBa,SvR27Le5<4g#+V$$+I8IwO0bJF.5g'bIG=ãU"U)cY*X68e>J>3b*g24a>-*C91gCM8T:rG8iGs27y;4JeCR&mFQg5D_#&=:&w)8#ãU"/U>,6o/qdD0XZC7ve(v\AQj4,/i1Pj$QU);gx/pDjxUE4oNW726;)aqFDT37j(ãU"EagkVZ+_vaH$PZG8UP]F5/w4Z*bGh%,vFzd-r/g29E1rJtRQyNPqeeul28CG\]9%#u9l^nãU"l*3I&Qq%ZK*9\da^My;T-BmM#Eyxy2\lffFUtJwvr6TgLãU",t?wf0O-gDP:p)Tym'SGC_y[XyaWMu#W,pãU">bTlDHW/4=[#U'((UegyVgUw[Z68\Ei]/C/,qwYY[>JmGk42Z?\U1pU)7cF*C3TãU"<&4qCCXUoDc3':I.ua>6-=72kfF#zil8Y]aa4ETF+)83JEq-w2G_V's;gBVfi737)xbNh>_(g_db6KU/\r8J3Y%b;R1+A]ZqM30;TzKglTAGcvn7^256.(+j)UC,/dKT]G)FuVT9n1kYZ_)JX_$t<=>=;Y8A[Ysrdr6GIEShãU"/d;%,-2V7[2sHRm%oJ;1tbLl+l)O(<^r$+W4j98dTE7Y7Vfw<78cS3A'1vY'StVãU"*fBK3D0JY=CE[SIx95E6O2lIelp-vfQy?oj[lcw<4e)LJ1#Rg#*,#%no4D8Yjd.ãU"6#U%ND6uT=rI-N:Uwn?Oe+N-gV%>AGI'F10ãU"_GyI$U7Bo%E?RQGm)C2F&G[0JPCh(.rrbBqhM9FdwzPECspNG9_F_Lf4*FãU"-gSLD],Y*7Re,4Q7wJ[7SD%PVWgreljtU,pV8AHL29Fb$5FVl9ZT4=Eod2Jx-.DãU"Tlh6BxSD1m:7.)8;S<#\BEC^&Eb'm.?BB&z#p.RFNidw1?5IFWQBU*;eK75A4)&ãU")1kF%b7:\bz)r[(,V9:g,K6H<,K*PXF,3X+q1-T322FdWjn3Jen6p4):n=F&M=EãU"G%/EhnI6gHE\ec<+%8qsgChSrm$^Bxe0Cs/i%Xqg.g5,OA2#7k[eo#qaN_X_UZrãU"18xa4KBdrG0/XFQG<_'l.D&,G=p5,nJ,ãU"JjS=z;zY^i-M6]2oq_e;nrO)%[oP6Xo(X;0BiNF]ci4AdSeãU"B\>6,HdR)0e%]3V6nsJhnLJxW,Jox?VtM8bl-Ltdi-Vdk,8En]^pT6kGw;%*0^BãU"zVb]nw5c013JJpbujJa$*)/nAmc)AF(^)Co8]QiJ)Yo7S?M:t>;j.o8:Icz5:(VãU"k-RFS[sp/5(6OF/9e^.AbMGCGs(qq4Dn3ta]#M3$0n)uoR6H$g6dph.K=pmBqNXãU"DDAhHWZjMpmqYaIMqXy:+mjk%)olHc6$c4lxrLpcru.pT.f0RBh9>iãU"5vf]9mrW]4tb3jTURUsNb52&/$)okn'Y#,7jk26k/RJ0*VVNMopjo:2fZ.b]-TBedVeYSeIYm4dNgs1>63\mSFDi5d]srKf*r2e\d88h#QM&TKZa2-_.w211wãU"xOsY/evrOZB;B:#:3Hd6=;J%)1QG(xK0*4&,d$,nUjQ#EW,4jbuPQ3ePq'D1nv0ãU"7//?gAWYg*7Qj#ge0\qsJu2p,PX5;9)x%>V)(uZ7ID4w#=kDR2LqN0#q#%nVb]ZT4]$S^c72en%p4*ãU"xTLeTxzo$HtS,gK'yT$LP4c&RVR6OJ-_I0H:V-#IX$KQ]11\5qS4FY,>vYo%IS1ãU"*4GCWUTE*CG)&'k$CQueO<4nSzc4Kl*BY:6];[dkn1MTEX'&SG1Cyxm?9dRRKsAãU"g\4fIFQro$eqisppNP9gvg#A115tFntY7#wN?(\TETLolqNe:.pU,2cp^N5c?jFãU"B-s60Qk_o->D#Sh$xpU)GA.y3^=K)Kmy6TOosi4;XCt,]#eZKWge$/(J'8Xb%e>ãU"9gfo7kip?#7j3_*xK+fuI;tJi^36LwjEqA_C^&Grhi:^QAJPmAt[O5:+d5iVedm'G%N+bqw-tNu_JHPgãU"Pxs52S6_cA/ib_15Wf2XvTTãU"&E+Up#p:;j%-W&%Ii$5myYLpO('%TNGxPkQymX$C86#sc#$6Bj=->h6p&NBt/dgãU"ujLvKaD3dHoIb/<^?hx+&tU510zF%E\Yup$jqVIk%%o'?P3BA00dXE\wGe2(>>AH1=z6o?UwD3;gtoAk.\:YxBOV_)i7-6H4]vZWVQ\>5S5tIk+1JDK/OãU"w;Ve7IOkwe/h3BD?n3P*&I1=\i6Lx[+UIJmd,on)rNqNDa-k3mV'IDk'T,,V7[YãU"_g8[#tLx7:%)2BlA#nd#n+-IUJ]bFW'WEtAg_\dE\gr\Q_m?atfgszy;i?J1s$.ãU"xO.ttY-6_da-:pbf3S5D-_C[,ãU".)$T;R2wYu5HPuPc:_G-'iQ.sH1IFz/HA*kV:Fn-F4qG^tWv\vRc&TGFN/LT*fxãU"9#9oDx;B/$*;,.vA#Hajx$Xd)>q95)TXV8t)J\6AJx#:[9l5RU4G#azdX\udJQHãU")RJ7b]F:O=jZ:p1j;9G128$f]*#9r0xB*v5>7WQ77deZdGx>sWNOeT\WQi.]V$GãU"+[z6>U[Rj[A4rIo]_5eeOCM3Zhr#$NjrG4VFo[/A],=e?:&P*?NI%$'1e_OQeD>ãU"I#q&iPEPg]j_V.Kdq%H3jX3#A&*37#\acUMUehE8\q<^G\#.r&.9?dLCohlG1uTãU"*+,.[N)N^mO%;csf=I&?=62IBN/2^pn2&mPdI.C?_k(Qb^wa1b7m&VPKxTCuPL]ãU"h4(Nd1:$ZHb4Mqe$#pUf2%3HbuA]Y6S+HhQ1r741iuUY))K(ãU"6/gj]q8p^Uif^XpP-Ynq-aYT8&RG\lMTS3VCfMR/aWNu1%E')8%*OS0(_3CvY/6ãU"*+\7y(=_]#g^$.C)'FJPyTrMak]EHtVe^Hc,X-nn0B8tT6Cf4&PiG9'.nS,x('UãU"[c#o961X>JHtv'v)6/Fl?'nc8mZX+,+OP_zH(LRH%?G-A;(SYu2_2N7KYwt857#ãU";)g2V'=JXi3['gvqE22#RWY,aWNNp<]P)=S.rmS65BXnNXOnv&BH*ZxTpp*y;dmvFi:*t$VzDMrF5'$t<%UOWlãU"u\cGe\e[^E=mQjA4L(n?kh^giHA\dh'r<4siTQsV-a/liD+-\(c\=N%][Ke6YK'ãU"7O78q-YPk0=tjLtP*[Bsh9G-mv\si>OtmC'G=qM2cvAN9_q+b484o6BOB/D>J6mãU"KqJTv&t,12jG7EWDTX$=AiY[7Hma8d2w^F/QMPdq'dSf\j7J#;%zmRz:5S[$QE0ãU"1BT:/s2s\lw$9MD+99x-ShITQcAO&\68(RF$IUP0GD1JQK[AsP-JAJ%7F\F/IDLãU"(jhm^QOA]'6]J5K:CK]X'oK,(fR-4;-^^Pse-oq3=PnHP[D07JnAGybOi,r#B^t)=M<9p)([[8>K[4X_3jYS'Lvf*T,=rJ)b?*F02]Wo:R_,MbG#ãU";/0%Jp'L8YVPkroLdcO0rU&BP*B&sF[G;-'UiL(2Qfmd/erTo/Z\q$72741cE+XãU"\1(/p7sIb/R24)L\ROb6+o2<>JGiei1r,hF+bh%,<7[/bv8f?w_.ONA_dG(=^+kãU"'?+&JiA*uq^F:e7JZsoAhK2Sn3?Yu[Vq9M2z4z[/95dP.haLuWo8$n%T%Y%?=V#ãU"w,p&n&MyG\#0IwSS$Uf=jMtj?4uZ:TZS#e?67V$V]9V?3N,#MZY/akX:2P4Os6&ãU"S2*jd=ult2YW$g5wOGOdiWS=48Cc5s:u_E-wi2FE]skR'FEc&$Uq;7yX9.>\p;7ãU";3GA%/n,qLqZheM#:wYE/rBnX<9iAwh_TV(3bX^6D0*,fhJCB.GTR'6c)LNN%a>ãU"+0)V]iGCbJc[Ls-H;e[&EãU"w;ZxEO.V2C=QCm/qnT>enfK>;I#GLLgK8KWV)Z0QIM;'bO+,7xy'W:28$Gn0DaQãU"*qXT2:IcHB%np\hmyT0J&j4b*iI;^,kpD&-oF7pZ)=N55g_\g8GtpnFU;dp#NI-OWMHX,ZKSprShYrãU",MoW+W'.rT+F(TK1Ho,vV+$v&MrA'ucrJ+tyx=sx(6ZKT$)4/^.EqipZ#8Lvd5+ãU"$oAMqq[.CS:,7Up0.9jj/;;GkK.Rrpo/%.J$;ãU"]iQTn]&tCr=Z-lZ[F3&$9;*jcoFv[b4BsLTA)5_0R1a=wv6:>;M-R,V*Cx2hbT7ãU"^50GQuaS-7XR.JpnW4;kNBnys[koq1W:(F76:FFcnT\UC0miVCAb>ãU"6Ut%YmEkkg.Sks&*%%(C_?E#J;e;EQs]*qqHGdKkWBu6hht4%fb93TJ+KqJ,fatãU"QgGi$?SU-N-/l=eR:Zp%G]c8AY\KCnyRFtC_Xqh?/o:(6+CAb6N%i4u-k.UgP==ãU"kb?9u^h9%qGSCFOv*t3OJJY0B#%LZS_4'T*AI,.*A:\JHcZD:jk&%'6>^cEN5g\ãU"-^7TpWZ07>aOn,VNP0$W&-kaP;Ua;#OV)HQGzs,E(l=^ZYcn_Nl6jATetODII*[ãU"Jg2Y_uCuX/B'(czN,IN9S[V?g&wVKk(g_5-E?O5eCE0xo'+NR-E-4ox&'MR;t8bãU"W/o'3pWhJ>L#E6.gOX'V&zhEwDh?Vxla?$v7)QtxdelwS?ha^h^h?R$2N^:kgo<ãU"_d_&D8-[lE4h#D94YAN6fM[OS9pP+rDH9=bm4Blnx-RWbb8g;EB22=+yt&vns40.q(wSR/hS[tTir5U3Sv_2k*>)7ãU"+kNMxt3&7?+$Q_vxJ&fCSbV->tTvaMcSPH--rbP$4?jo4HUB6W+u^\#4F3U7>Q0ãU"8/TVkSZF3LVJ(:De8mdZ3RAUTHE\pT.J8l2/z?NcU2y/xIofw#0T+yV,Sq'<4VeãU"Rco]VQa2Cz\4Zu8sHU?V;&l'[m;*R5_FUe3lJI^8-mhFF%*p%bilqgaAhDGFDvAãU"?V<]1zT*^/tojgE>Ssroos>-RVleg;;A%Qi&'=R\Rz*vq;dF=A,5w^KZ/I2#r:/ãU"=HcKTOB,qp8sZNsspw\PAdOdaLsoU+JS0Ums,-G?A5l?oHTPp1n;o4Ab4d(xeTY+NYãU"yhTl\U3GbZCy&H1&KPg]9XnH]FUA9b&xN;TJFMfFQkM5u&s>z?Nt(FeE3Hf%1Y++&QI]Wk>9PfãU",=m;5%K_h&y%(r_U.LR+#[eF4sR;MVS7]\9t>ZmhaV']a]0N[[:bG&R;fãU"RAe3AXs6P\udGKkdSx'1K0j=0Ek>XsVeb*FWVrnoaf.YOYGbcw2dRoRp9lKl85&ãU"*nmP*v>JD16,S'\>a\C8A%[.[KD)zo$oi5Hz2>?6xOTT)>s>k4r;tNdTsiLQQ,7ãU"ZaT.jB;lTF\ABj4K/u[JSbpW4+AI$;]cdgW.%1Hy'aY&Q,FKiHAnI0$+8UA'ngQ+lIK95z0ifV#RU,+KgI^G7_r_fNRL0+_A1JeFtD5EcãU"N>2^o6(<\QhW2orf*FC62i%_lq.Mh#+F.qq=mVMr0v3ãU"^*)0NjM#3&8bL2.;^9n?^R+$mF>/_29FJOANg+8,727;3tt8R8FZ0Z-U4$Zub,BãU"a9q,I)=Y*b/H8s_gQ)p%^XILn7S(mqss*l71rOWg+vHF/Ld]-2oCl&=nPN7K2hFãU"baIbV%]&ec>_+>PuC$DpP#Xa'])gfi_EZ2Ip7Buef&j5Zg?u5VJp#>.5T'mk%>ZsãU")FX^J?V''ig(2;#DwagPMH[TssJ=(FClU,2^]I[mk)F9%W]OFLU.L\ypãU"Dd&8ZQSPLC1;<)xSnJSe$W\[#P+7xkgyn=Sit*A[Xa+(It>l2dBMqLQf>h.8)$]ãU")Xgru9C8bC9m)U%MM9jBtKF(csKu7BR12/A9nw.3BoW]%Bzxg3]a_1C.tv_k^/CãU"&a:W3(J0x6\ZkKVi+F-5#%vqu2L#TQq/,uGY#Te2Y'cwG?m5M]AQ.w9N(zhLlmNãU"FaQ*4JMtCizYwdINl,gU.t_s>L2to\V(G8\kTV'auI1CJlR?$%G.c0wW8ic)H/%j''TnACdqMFUr,]K7=+l#gp+voN/B%tn\zcg/aãU"pX[k\3nAvs4aB;HM]f6GK6g]*FXHORD$HM#JcEaE*gq\+:l08h-[b3+/1=SPwHl*TEno3fEãU"bquh5_KAv?Mv5_%o8^pe.l,S)$gLnqcE.oqJ74xwOd7-^rh6jk?-s_$:H5jvMhoãU"$_XfEkt]1[8(.0ME\fW65cw)hK6k=iFzx/Pa=KHeK.E-N<[Rb,gmFqKihc&V9,&ãU"9O&sw*)Box'4$;z:4)/p-1.mB;5p$XG3-7X$sbj,WKq.U+\O;VabTS^[2[PlqU+ãU"jqE$?WH+Y]TZ\L8%:kL&\dq,(L[d;t'[p(ik+PB.68$Apzm85]gR0G*mluwGY#-h(ycP>ãU"MnF7KsOhEUncRvytNL=(7E8O^7xJO,hWC<0OeDE[]xcT%YX*1x9Gga2T=,ZIm.(ãU"[9-$raT3'0AY.n2d\)8*TJ-Te:R/IuVR_2sy^:D?W)H6rB=Y9pJ0x>GPPC+?ql=ãU")sVXG_.jn+]-\;NQLe9WzBKp(nBk.OfY5*-cJn)aeToYq7rJxi-4B8Vh7sOA./>b4'8f(ãU"2*p8WNE]?#ONRI2p/'$KuMrlT17Kq9%S>04Rn?BGT:0QSZ5?EZv<_JA7oY+)tKOãU"T)ulS-8=B0D/Ug;ufjO.Xxap-c[nQ%'>CM.y/p.(\tf8aR'Y.ãU"0BQesGB5%\+-Hn4g(pG.N2'2BHu[fJ+O5Xu3^IqLM??j6;%gz[?nKPJ3-;8hXC'AtSuYrVZ\cgueU$Cl$ãU";BoR3kMk\sx$EYpo'DJBx\D>jC,hKVd+^mqIV[PrL_psbXabjj:/U5U<:Nnli/J]B-#Di=]?1r43I0kCv9X60,ãU"#[XawtFd6U]tO6hMeeXnM60'>kqW*V,vT7?C-QP4My_*0gI,E+TYPQF\:uGI.AFãU"S6[H..B3A4;\?bP')]a4kx,k25h2qnm6(Z&LQpvSFi,]1K3XAeAE+;H0$qF3TVPãU"%8T'go-Vhh8D$6d-5Di5%IGU?ShnXu->R\H2bfsJUYv6_Brm2poX-(7=5jzH^l4ãU";W&8/AAs\+'u.c?jfloOs&(VFH[8dYYYU4^'qM+dGmaPYmT63XtuWKãU"\HVJ=Ev)h>Ml7TM1PqDZWsy7'*h9,c>M1)wshl\;y%W#>']\D[h>g/WJw95'B^_9\85aJ=PNB/6x4GHap_E#,Kag,ãU"?MBlN^(9D^+-v(^QQ=L7A8obo;$)crkwIGQ>G0E?qW%b/]#\OembPIGyJA=*)8qãU"hsR?jt[v)NN#oBA#]MCTN37fu7e;Q_F^4UT6KERF7uIB[%cld\qq\j[?>;dãU"jdWIAc>9,cS]w$geUj9?X_^%PK)Y#YgGK2+XAqIF+uDuWoXd,gQn)7(i;\N=4PYãU"0Q7AmGs4)RED\lE*0h_q)hu*J5ahx_p9PIv[.KRSuH9Z'oT5P(S*DOTZnR3kaI\ãU"KN=F9=8OVqmyh=7da;a$4qW)nEuHRDBR=<:JQhmbãU"pc6fYE%)dASFT&iDKp0PKoMP4LnUyH7ET.<*Kn?]8;\l_-7-wj*0GFG9u*y#(zjãU"#ps/(O3Fj*GuRBCq=WB=v3?':q'b>Q1amGi(tC=PM&qSEJaFqnd-imN*GCUb:[xãU"'v?15*^tBa=J,)P84]q=.;6DFW7/h;%IIb[(5FA(P0/W%AM4L_d4?3u?+&-URA:6MKa'a[YV#zCJ(+l+bNgvãU"XT(u5&f^G'-?U'k]A+u2?Oc6_10#[dX*F#OAR[v1Mx7RnndJl[jD$E'ognnoãU"FfR/93t*fO]\:bG&Uck+.JmVA+#;s4%Jbu4(TF34__MWNbUm'_)$6Teo#;0ZHqY,rR>E&zfjs_h9YH,3V*y+,swA8C5NSM(DwFCe#8yu*S(CãU"V%U^1IJexfDY7tqe0'6F%Q6Bo'#Qq_QGxGRIenO:<>(hjp)oltE>SãU"UeCkD1^kI[Ah9n;cgE+G*dub'SM3kXUw>UW+'O9&9n;I[JBYUO.NKk\4CsN)1_1ãU"#(WLkG\Is%V&#czI#Q3pqC93j#$^AYn9[Wb\2]F8)o:sn0?r_Z^0?gY>;nc5qG3ãU"Z\oJtw%ZPukF'O-UG[7SCwwi<%0I,Q-nXskiwr&p)Hy9jmta$j(i(B#FX:B[fT_ãU"7FFFSG,<:?pO$c9'x5sLHwu7l%YGP;7gbVH9o1vYA0_jjT8FNU7[N3BUh''h\G3ãU"=2kY\t(]#)r8:*j^lPoGGo>\?6H&EW#wctN>B)-nPfFiT$zC]J39)rBrT5?A-?=ãU"BYh(aq=w_g-PS?->qJgEDx3&mGz[-[vT&em3^_%BNZLc_Ys=eJ*zX1%ZyXsG5MKãU"w#Yhpb):;DJ%]:H#,e<0-)]e(yQ\%Jh%km$G,RjeT/\Y18QzQc9[ãU"i%60a)z]4K&YZ?3%y*[S'2RBO50JL.Anrrs)USleE;*eT>J;X[iBtYs;mO]L(YtãU"[D_$jTAo4P0J#_o];#L5QeONgL#Oq&v+HE3tMZ#mg?cj#yvQH1z2O/Gsn#8m^f3ãU"Uj5K)r.fBa[_i7Q7Ui*e0L,YD(O94$GuJ6FkT6o87(0gb+uIP01/>vsJt*9+4djãU"^X;8O0]KRr9aUg8c^+)'aM8NT3d9[g7gM.&X;Ckqg&%GUA2#)5qyR0j7tA[AWg6ãU"B2YhN3ghcrg3ob*ol1Xd25yCW'(-f,#5?<4)ZZ0H+idQ5%hEDJBWe?<=*ubI^WNãU"gQM4.W?>s*Yih2wwc0#i0I2QU6iZ((s7'%nubRkCg1m3L9=;JA?7:mkZJ\3\$9>ãU"uKj_fA^o>HQ8U./o)),EA,907brBK]T_6g[.6p1SxV;jMOHGp5S$gzTU*+qf_A,ãU"b5&%B;W>O7[9=*K;+M\ep^iBFsnwpes1ql5L$aI(g>E?QE:,Xv0FX]FWj7_TRmCãU"jt93B(_[7NqM53Q'P2l,cTs2S4lIb\6o[Dm%+kNR0k(<%yEnLzLhyp[c5T=ZlJVãU"LKEAtUI]H78JsV48P+jf0C&#>ZhBSTD)C1b^>ãU"4CBH0aABq#lP32a-[WBf*qghaZ;Grbp+gPp+XlfrBAHaA(=Q2VV10E*'Cjkebri$[3OGICln),[:yZ#l)L7Lq;5blgaku[Ba/,BãU"m9Otg+]']ftbOE)A+tva>t#Gf2)#Ee?-9dU4,WjOjK^v07NGS.>8=0qj>Z-q8**HF?&8.)9lsX#buK_;S[4l3i]QP/2r'YPH[BAB4T>Wpid%$*02TK_Y4FJYapU]?mjVw^IGB>E-H?Xh^7'(/G'*K^'Rr;%rA2$;#bSãU"ojD[)F?CNcW]oJ4E&X,rsNq;%).E:EXo:P/Z2JcOJ>#7-y&XcdCI9)=a8K#epGlãU"SsG18Cl#M0#Oy>Ypa$c_$#Tyf1<)ckL1d9A-^J\f22Rez\:i&JE\^:Mbu>I?BbrãU".7D&MKq.<#(4(g96_,B'.;l4#4\-tQ')I*EOmDUHdr,EI62/m0-an7DCi\uFFH+ãU"0H+Ook*m(F9NY_p97'$A8ygB'gOaw#Kin(D;8JSbX7fN[FH9.]:e34Zkg'oDQMAãU".*-/A^RE8g8?L\MA,S]b8I]Oj^K\,e':SocV<>qB6+2Ip6%v#p<$c$wVMOzaQE&ãU"_qSHduCI6+^\0tjg^*ãU"Hbe5R'7qXYuG*H;6/d]Jy3*uWE(ba.,t%YllA\B=Z8'[]BgF[:cS.>FLL?jDk^*6JAvWjãU"WMw'fLM;25FU8UFwR9V\q9pBW#NS)bTlR*bUW)3fI#Sk_F&V4PQjEVLYYTm+24eãU"SW;fZkkV,1#N>kzH&gVXkN<^\-pA]dE[we5S6+&Jk_H2XIVk/(mTWPShDXLWUK^f9&Y+)[#:iQ=ãU"Q/'M:*]h,TQ[Wo$L35'af5hVfRijnS]4,*K]mg?s3.LWgo#hs%T1^%=6+#J[ax_ãU"rJy0v_*a5Qgeq+CjI1I,;nwf.k'>Inn-zWI./wAB&YDB$E/g?R=e#_;>jPU5O+=.7ZFOh=2uT7V1*J-l53#EDoJH'bvj1ãU"C$.d2PNQ*M[=puPn33_dpO;Sda:T+rI5zPO[#G+38W_Q#S$E]_U.PAano7(T9$nm&W(Fabn,j?(D.Do1ãU"7IDqpNRT.(Z(spJKYekz;UD.J^T[%BATKX^UYjoW#ea6^q4G)&>Jm0RJSg0?n.2ãU"K2TwK,8T.I5I>1e%E6qR5uuha1B=-Dj+-WP]o=i5hIG.s5*Oa'mnt8k9<6ãU"-6R4$YXd_3/il^.bYfHeg6dm?*3BqV66At\.*;qGsCJYmC[kHS_(#tZ^\TGWIxvãU"h8o'UIu8aGP%oCWo2Ntc$S]Zl6VYIo3^Uf/Ib_+M_a#R>Vl,2,B7WãU"6TX9:$dJ,:sdLpD;B*M1EoUTDSs#A%k/Om-_fSnmb9]Z5ãU"W95Rf>GI6?%K-FzvYH#42iNLT8E\e9CA(ft<;%bdzMLUMJDKg>Fm4b>a(MLdG\<ãU"s%)=-JgkMAqY(V+;FCAOq+qdWK+>uAHTUCxGo=ST+Tq7]D?__Tl#Wm=$0B-RG3Fz4akK%fPTBt\c'm/SSFxtPh(SqVF-\\Z\R*:ãU"?z3I0=^D0nF/'aFMz&'zfvIgXZ[p,o%%FUIowG$JA_O%[4hW77qK1.w'xH?9;NB)fo%*(o/[rj-5ZD3ãU")vx#zS2P*^\OC:;j,K$Fm$>79sSj*Tg.RGTn(PB0^cn#;d(,^yr9,ZJcXVZ$X<#ãU"#ZQeUa))ZINQKcmP*6))b93HLmla.8bt2Md\q_8htH87nnV,+XbJ8b)*+Y/8m#EãU"p4liG;A_kKc%](jl<77W0%K9k/J#)zPyGH&?Oi*iKReOK>poJ\_%,5rk;l%iRJpCn\bs4ZbpLe+C&*'xjo&Rw-M+,uXLJ3ãU"i?<5c>CD:2[))tLY5E2m>=0opnLafx3]*o:V>'RHL8%D:&.iC;r5..0nW)5K&:xãU",]w=YKI_&td30S&Gh=4a_Xg^kMv5'I)f:JnUO0lVc1N8#/'kPT4).(_w/3jYjyLãU"+nWR&.DkI2DeyMEOtlgz$/kzd50qtdkF=3odyFu9.*lZo5yRrGZg0,,\(lsbGEnãU"H)_mQQlqyY#n2v^OwNe6%_>9Q,'b9>E8H+(o,C0Y.Nc)[<^bnfPm,0/+3]/4q[\ãU"6OH5\=*4Z5fsh&uu##aU8lwN1SWY/:S)\D.t;9/GT;Xm3j[6cWlhHI-O,OOpOmvãU"eM6&%%ac$^HMxyyINgBn*q,,v5T$b(utu_rHMNM<A>DZ9[yll#laJr#n[>LRfR^EerQ&7kMd,,,W(INzu344#A\#ãU"\Mluq&8-sN8KCqg]#\1ttH/snbKCtma43Ccxx/vsj[TfZ(HuFmbLk6EgjZSP7ElãU"_Eh6Z66,5EFibJEok^B6_Gl$t>W5rHl$T'r)/Z;MTvlEESqjZd;T-5k3BaLRtdvãU"Dr(JVK/tpfRk*/KrBk:P%W%+2AENyzzk&(-,G5F>6kk*Ef9SXHaul%,Gk)0=VZsãU"nd.ZxsP>lQ)0\3?\j[n<_tec,H^$;kBHbtFl_Fk*/;Rr3Dd/YlX72#n]\5ZãU"d2$Fgsah5lYEfSDuwr$8ij\>UW6Jpj6Wmu0jS1/HembJpug6i;s0pfT,FJjZtphNWljXK0BJfA:]?YRq>HD:\R,T6?mKDSZ4eIpLhf.MKr:&+P#^d&;-DNzhãU"&.LnOZP+BZf.P-kFVDP;.Nv2j\U?\S\\WC]Lr\XkKl*XQsO*=Z2^O*q>LTTuWooãU"0c8vBhbG#$XlrGF6rd,0VtETf0nq=L=drBtGLcxn6wmvdãU"WlhHKlo,nvcU$cplrHNwp0.q;s<8q>:TLbpY.wkfl8kd(PKnz.uvSP7Zon(Nov#ãU"Xqo?\8riF>Ldt*XwoZ08llrhKp4uXvWpu7pvh,Nx,dHq:4NTqh$k0pcS5>2E+QlãU"Hl1*uQPPPlXXNqQiZPPAPHl]dAbImQQ*2FrVDPjH\#tkp]#k]uB4h7itmJgZ2pWãU"Juh4h7uth8xAP,CG-i:,DPIapV:DMqlXdsJ^YNu\n-u]LdHvbtN6o,nb-kAHd?xãU"rHDtLmJ#pCJejf#DN[eXLMjqZ.uktf8uNr(Mn]nbtwsuP8wFq>MlTZXwoFu8tVhãU">NxtdHuZ4Ncu\Dx$mvdvlrHNwrD.wkuP8wnq>NtTuXxwp>Nu\D?xu$dZxn(NuvtãU"XxlwHNwulXxwNpxvm'sdup%()9%%%%-%/%-TG;Fn+]'\N%%%$r%%%.%%%%urfu%ãU"VSuh2'lK,SgBP(ZoUUJ&0:WXtcEKgA+(XfW/mIKCh(e7FYpP;GPm']ãU"Z*Nv)+$9N2#pjye70'RKEvyo&nnt*'&P)mcV?pG8DO*f+JAsGTCf:eR+R+p/t'&ãU")c?LSA?f2m$.0izD+9&1s&7]EeK1gOa.-jrnViTd$JP_/6#RK2%/)JHqOU^q%ãU"C+SMk2i;syu5Y;2)fbLKD'::/GFb4]:4dgvWbcq4:Hr[^'L)*Vj#k:.7:f9:HiIãU"*].V*0YDk;7W0VI[L%mm6U+JYop:ia=5(p:zk[=.q:p-Pk7:.Sh.).b#v]OwfO3ãU"cb/.a#Bd=Mk_U_.)Qjbc0h*7i$6Pm54I>j/Sm*(O7c$_mPbSHOOUqqSzII2[pJgI&OzT_N.U:ijPg_C./ta^.K-&GHN3gtU.6ADg(O?d,3ãU"E0s#rYiB:tBVBFf9Sdr1-bOWX\g)5nCi(,FFXydK2n(nK>=;gaYn's/nUs6,Gb3/yXvG=hs23?,A=te$k]S^x-fO+c\afWOeFãU"c:/pOo0+\c-3L)KXC7#96a)A'mUmgn[-l1xP.xNf$ãU"VahFx:c(Ag,^h>o;a/3JiGK%J$l&,(iIk\wkx1DiKVmpk2lDIEJ*3g=,\h%JH9<ãU"mD+)q=.$fsADcNKd3dBãU"Yvqb#nOYPU.vv[8_W3A3pqGPcKjq%BB>)X2M8&)qSN4l0)x:-=Ga4NeRJRDa/SLãU"81[qcy&PQa691f\6T$F#]S2''4_M^56I.GZV/sK5=D3*z_/HW?#_>BC-1By?JTvãU"jcZJO9T.DSLkj&'iHWTpKTy/)Jiprgx9&Q8NHO&ox;o6)9o#c]a+9\ym5[jWZ>*ãU"1Q^5IS$&UG-Q2ZVM'_q>Wx8^pD]3]gjs)7aIãU"iEnI[G20*7LZji2PD9x2r,PltgpL\ef/jMA7YtB;8,6;tQl/4$:)b=f&$/-gurtãU"Tg(%0$/GB7;$9j6MC0QNv'1/.JM_-YfQLCM4B^CRZ#(G'eMGr-Q+7kc(m*T^s7hãU"a;x*Gb-%4l8:&2,eJqUq4)]z)b;cc$L+ut-#xWsaA\=4R+&:+)MJ]/[][N&<.U\07Z5P2]sF0PEãU"k+^4]_-^E<7/7o'ZD=:c3qrM40(0uq5BAOYoAP9l<*X;&[u4k0\_P-&b7k*\M]RucJmOA.,//W.Uya_&Oxty,bMqw;_V0iJdB%kHOPGbnsqR$P/KODZd72Vm^F&oJ(<ãU"01+h*qkiG;FGSIkLsIlk;Oaw$%h1%K2^oe,1x&k2Sv34KakBu/_t/ãU"6G#43gtp7b%hax=,YCP6zk;%;(r#rG\/XE8:&XUJaJUtQr,.lO\(0+%#t-HVi]'ãU"Uq.hDKrlsI:+1zm7Yj^oGEJVhsJZj/RmVfãU"IMLroP0a:,q/,E7a(Ht60D:)X7_L%IkblW%BGgB?[4elGMRxD6u]MBQ6DW5zmFKãU"Wa;[a+Pbbgr;54*X9+&LU/)*%yUo1<1n7Zg4CK?zNS++.V6>-d%I,zV#ib_#GC+ãU"]OK7NZd/9KF>AK.Sx#^?&2qoh6g+fq-t[d8#D.??.AGWGw(w0W%i?TUz*>(e6Z(ãU"d)LQm.-*SZ)^&/HWr;shO_&wYR5-1hLWvãU"a&fVpukUW%.h5T,PVDs;1;^q&k7Lb?*=j)+R:j'NS9HnUnRVYkVcekSQS;\O9kQãU"1xGLSG=5R._bORWYv[P6F\4jqp_Uwx1Ee$IEX*fzFD1Hv?$M66t^uW^+B)Q>kEPãU"5NiW1E6PZgx10N6XE)nIvPR2)OhKnFp&rVP02=0Qh3_6J1Ea7L6**e7'GTWeBepãU"1):M0INl?7.42bt')g]FnJR6*n-^Lupo_ok5,z=^vCw;Q(:5Aj:9Ud+2U6H]>i[ãU"hp;3hOQUWCEATq[lsWb%?nRM#c2L9ObPcPB&BBpnIGq&.d(L(\H[y^L_i^kmHeOãU"CD(dKa]b/?R?,ms&6K]Fad(J[*'F./'v)rOBrun/fHfcfF;V0.iD6nv60=lF9u)70V,^fN[d0'Ki-I_h[rh&Qx7nb$n7Jza.pW#9K7JKOe$F3(,=6HBkkWbIgy-0_0QGOBX[Ng(&*Igj%hOJ*NsG,5VWNãU"GgGU&R4r??ChDp1jA1t$V:>Y6-=B((#M:xY>H*)i)kQAc:Ee>&Xn8lRX,M++XG\ãU"$Z7^juj:wA,U5d&IqMmqEhPLavejbhs49QuLK)Bf3$+xm$6^;qIYRFkPBD,*#$gfpbkQ1Bg7s^0ãU"trHua0n,^DfKI7vPBm0Kf7Rt[K&:6e*j(tKNfH7.*_wqeaU_Qh65ãU"Z'81D?7)Tn+>fGn+i7t2UFojFB.]bAyIA^u]cA*,ãU"t(n2nSCq+eR(lsIt33QTiRPw&oLJqomh$/2a73a^tHdIqVqy*krkWQ[NN<_F:rz_Lt7'g%mGG/&uXd04mF%2BDrzARKy]1L#bQWa0ovFãEND SUBãSUB V4ãU"jok#:u?HCBRHl,2Hs1cE2cKSC.4]Q)En+[j;bmc;8%T^*981qq7Ou&Nqw\qQ\/_ãU"0>T--,EbwTWG.PVE39jyD,-M:h7t1cQCD##1)3co(;otj^TLcW\a,]_zt?Hg*m-ãU"B-'\_BcxLV'9*%]B(wW^e.KcNs%6=Lw>csF*0)8ãU"(fSdL*:l7mH?32zTAsas-04gD_P?(.;9Y8[zGa?fT>DZvG[AGVg3vl^Zr[^=CJbãU"&YXHw^JVj^0*a;zQ&#g=^2z;jIM/ZOdb:2B;$<,W\[iQSb'89]Nf%.7JL6H%nbCxxsI^Kx/qSy<%7IT6laIijwG$$tUMR)xIlF?3bzqz1Lgdz&e47ãU"'QIvgKivHU96HtB$2lGtfe/(=^BS-7h[](br5:1B?6sBxvf>>BoJk_n.s5$n=,6*R3\n2_J4cTy9D8^GX:Bq]n+0K2#G5*h*ãU"l=3l*?/YS:YZtX/LhLSsmn'Kcf%]vHSf*7URB%*B:^f6x_Hjk?t1$\U#i[gd]fa[]-aPG,.WR.1jHGa5IaTB/-;KAãU"geeci2F_wsC>zãU"mVM83Q%CA$OIg:C&UTEpR(3EOk3cnRBwS%6_#UãU"PlLdh;0frCvZTl/)Vi:YJeM%ZUMDKR^B?iAJywEbCk_6rVi>ko:hel1i'.=c))?ãU"H#4$'\s.qGC]ZFN$edWnpSWMO77y8Z9ULTfGqbfJ5pin#m<4KYEr?]\agbdq7/7ãU"ShBpvm14sPAQOiC]lq?LIY'^6vz*8W]GsgBqUHR:wd:E0b+8cP*Dr%+9M9.Z(+)mI364Ck(uMVOiRUhYcZãU"l'D',wF)6f9Nd0wULsL=jVk$O'gLh&b^7V.dMI-z_#N8T?2hd60<[LNGGpO44]rãU"/,p9E1MtzQ,$''8-ohsOTbZUqT<)f57><0KCIkaii91v9N6X&ntav,0g?.i-bceãU"IEfWBphmJhi4N>D1n^xkQs/D*#,d)2Z-(xn_Hd'qs[hB=WA9YmG]C/#gRo]U'EdãU"gi%N4w,L%=hX^hk-/RVk4Hnp86HiFg9_;dm'Y#ZqTjk50:]DnN,7IpZKU'%'eg)sY/eg9J7\]L7CEns#d2S2$*,q\HZxOHoãU"k9O'Wew2sBgsTh:B]g5XZDtpY8_E;Z(T0i\R5-*0l+2,hZnJXbuo/[DslkiN0qs,iTx\,k=ãU"7y9^24_RF'8qJX$kbT-e[Jr3Syi.rX&SeOygTH%ysy#r%Y,2hkFq6^s%nCqH%UHãU"bd6XQ-$G<<)YZ*TPAw>IM8qo&qa-XGimse2DJA;k#SObbqCF-'Q*]sMTfWkKThgãU"Cab6HnW+:gw:Xz\StD*SJqF#ZIa]>jX>CzN[eH#VyNj7ZXqT'5,EixQxOkC[4K_ãU"b52^nM\muMc_UGysT:XzKO;gZMl],4e^f_-zBCqqa_F6R=:ãU"QpMJ]-)xsz9?p/N#Dq8m-ogV'k%wd4ZJx4','ewDl>Ke._$8#f*B)ab-S:y;dlHãU"4Tl)?dy(3:yAGsO6EH'2#4KgS&v+?%B2Yk*3In(\/kcUCIDSnpHf-]-^p:c>h>6?c9n*98ãU"PSP?:%8/BD=y'[mLf[C27=AACcVVb44UFu5V/0[hS^_u>RWrVCViG.8_][Fs,YnodGYãU"im^Oq0p#SrQKDjc_4_ngEv#?kr3Ko_lãU"7PW40D7ab;OP8e$ds)m2Lnot_>^ohCtEM9-]'mq)lW)%ZQtoscnVf$+m8tNmkkTãU"8yE0PN^MWs(lX(<9bYYX4y.>jbVT,7r4)0Y8RC:S$TRY>N;QT#J[S('fQ>1/+w/ãU"L3Y,dj_n6MH&&8wKzlH1iUYTia4$W=PlU6b=8KDnHygaLe4Inj5m<]o?TE-]G-M,kgF',q+EdãU"JHokK&baNtNbbYjl1+VMh1([f+5t/c.erz-AW5N0RO-#V.rWwfK7[efSMikj/#_ãU"]%W(P2t.PPN9=,ks)c2W#p7RvVpPB-V6tdQBe3PK..Q*.rA9t_jSqkxA2-6t+8XV4YObg(bGTbkWfN#fãU"/kPX'GxU(pDdq_w'S?qKNQmDE(ETZH>0>L=9L9FSV.khJ;C(W(QP^>3Fp5##u66ãU")U])HE7:6\bXt7cfO:2aa-^*>N;5_e:O5J^n5i>f&]:UJ:UL^kFhQ%?$\?PUzDAãU"Xcnb7;&cCai(7_VIdxzX?1[L.[Pz4U,(eyxljI\Ij(^<]4GSDwD.m.3seT6x*EMãU"3Yf1]n'YDst3+3\p:q\>u.eRlj(yo'PuM[p(t1-.EVs,^TyEkuv/34te&^s&(3rãU"S/tMq5-3zi^KR^IH,V8V$*%Hh$[+jT_3zs^Lg)8_U(K8-^G(4PSaW]T?fNB*,s]ãU"a8f2Ep*IncW#'$=092,JB$[6u6jZtuY09ET5Am/&kWMvJp9D.0Ly'\97m[rFt4ãU"E?+Yod]Hlr6^.JseP3.]Y+E$<38kQZWf(fm%$/8NAk=)5\A1r^8R=^?=*&?Ws'%X[rq'TQGP5/^Q$(kRpX3$MKo7EQ?bCo&/B(=XdNo0XOSãU"Pm?8,'twdHYFNEdV:hgc'G3pQc2QW$]-XtM/4aie$i3X72m03na?+jG?Y?WV?)lãU"]kBE#H>;30\nv-xI[Sa7\;dZmLBZW=(9mN]HR0ZV*W,R67U3H+UL9]Q$:]xcF44ãU"S<%QUi_4VirL2'QtVI#k-SA/7Chz&JXGMGbNVPG/bcj&-(fr2Oo^f4GlZu=yY5PãU"Y503jnKq?Y=vE(QU92j;Gv$93$3/U)\%]LDODg]5l,g)+'Kz]?ItWML+U9HH5j8ãU"%hu,DVKdPn$Ur>9$JaS+zOL.s$4fJN2F1.MkvodN0O/Fo3b]31Qu:QcJ:Os$GpNãU"4$3,3Uwj)%RkXw$Ztu9gtA_%NP_;y]]ZkgezU\'l+*&3sj+W6;[k'i/CxjO:l7gãU"?=GYPk^(v,bKN/9q?dA+s++VPn)nMH>VRU7W.gK2(50;Z.+T$XL,+[j\R]ãU"BDC\.o9R8[PW&<]CIHhp5SZ=OxZãU"ILAf<9O6BaM'/+b%KBãU"R)ab0EmZk=arZ?RvEve'EBW9GFg4?sofNGX/(kAGA*I,dkOMJ:Kz7sf;Z3]oO-7ãU"+^(m7m+_vsPO]E]6/?gz'=DRbAfWz6]XYo%^ǗmB^Rcl]0hG,Oh>u%PhPa+&ãU"'^PKGC>li(l?eKneK.l$/MThCIK$;TdTB(Ghfkn402fP-Gr5j21U0$:\21?o&qkãU"1L-8H?l)HVCOPw[$;jbbm[#dG;yBRJ#3sl]ãU"o(])W?0,mZ;F545%F0>B8W$<]FvR#K[drXU,_^Y[P5[Fdr:T\LU?E>sKET69q/R4CP?Rx?hIBqAY#LP'PqEãU"w$uysTY#5/X5St5X*8+j4;Ame6CN9a*]V6W,efaYDwq2Gav9+5MH1ezkG5$4.C4eN7ãU"TX)s6^T1IRxjK:GGmwjQCq*?6sggNX]>LSu&elKBIsajãU"_[G.V^UV+Xp*?c>xgo=%pl[.%:qBOZ,-5cvAAh#587D#*iI8JHn>B$>g&.Ef)%PãU"$Gr)6G.tW%h#Ej[:ILAxt:'lcaU).q(ãU"8_zaaLi-Kc'[6gl+LQXr*YT\Ck>WU0eyxad?,$$fR?GV0GZj+*[S[CNj=Xm*44K2oQ2<*)=v:d%fQOaIãU"6EnqE9jzgk.k'B)pcVsT/KQa?=BplKr^?B44)GF53ic^l-cqVD2D.D0>1'Se2p$ãU"[nz&Q8ZkeJ;aa_a;j6=A2'YJq;R9F*gW12[E)nG1lEMQx-;fZ?$?iS2&lDj+V?<ãU",EEB^%iGtKO,A4Y5)Z=\bjHi_5rol1lgLe7?e<=W??Ab>-Vd*p28kYlãU"*&:Kn%Fr9t4]h??RNXYH)8Y\+'ua=Amv>d)2\Hcm.URqtDCGpt^^M^*O5BbG1U]ãU"\gNB&ee=gS.lA[U7Z\[y]f.t0Mv,z2OZL4Gytf23X$FN$.M4GFbV%;)]R3lSn+?ãU"uM34.cQ8U825*-C([#G#5;8pemf+*,VZjb9jbfa3^O=:.yCnL)8Q)WIqHu$Iv;bãU",J<0^8mUI/(k)5Bx$PYyp>Y=AF:KAT>JmHp\a\#L^ql'^3wpINbkFQ25oJ,flAClroãU",2bVPVNrt>s,mE_Ik/p;$N^uhEe1jQH92N;OdfqvJ00lS+)nAog+>*D>*UPbãU"&%G'K#G.F)EFX;qX)N,0s7R?&WIãU"V.1,n,VM32Y>2lOVDqdyj(,OPOA,)(-w'+)ZNnjEI\:TUY?:Z6KCX,e$oz(DdW+(qPfgSXBiBnS^OY&-CuE?lorK5A%+?^LA#2ãU"[itA_]*N6wOF7[=%'$w-1Iavml)^I)[g&-z+,Ib%q2-3O>[m#EBWkW9LV>WahboãU"#oq[]1U.]sy8oV6KnOLtV_n9A>eHq/s:L/&z4($wu172]B\L/N3XD;xom['Q5SZãU"o[TLMNc19Z^LHdkluAJY:n](-BaDJFs++SMk=btF%6wKP>X6I+DNyWN-nyt&NdnUkrJ;s[XhvuWhvXQxvvutuoeRllc&8]s(cYU(-liuP1ãU"'dqHmht4DqPD]qfDmmfDu:+DuFDTkF(L3f:REhgmmwoI4vI=4t)4cti4xWi^qWYãU"^qA^QuA%zg:U04uV7f/TTccr4ccrd$srd_A2cKY/q]]$YlG#Mle#MUr#LU#YNu#ãU"Nf;LK;:LM[LuGEEU>MtfnYa5gD6(tst$sstwT]twc4trctcvMtvo-tt-X$g1ruTãU"f7wun(xmstxmHrq[HquEHuEuHs%HhillvueHwelHrkHurUHvlU6JpYMW$LlW7LtãU"u____c$$dx9ldx0c7Y07oi08iTG$h+M'''+5+uqT$sqTwT[Twa4TraTHvKT,q))ãU"S8PNx,FQVn4.io4.w<^.w:b.j:DQDD>G'<#3A=]i?\u7jY:)RV3BusC(u6CIrLj7ot:8oMexx.phD.FãU"sumb(xHs(dBu_ER,56Hl$op2XiX2$Hnlx?>u'?0uxohxuwhxjXDxjnlxrnxrn.xnuXxvXcxldx1HS_wpOt-O*?gYro,QãU"Dlf5MY+UQJ6--8XD1X+;M;;==P-7KHq::dCedP&(kãU"-6EfuSndPY>U1#Zl_FJug2$WtJh6hu7tg8lxw*0n=bi9[(4cq'Yh4b?mi<4Z8n&ãU">tLTTWHoAH^Z5vf>>NmJlpDJe*>F5\Bn^dwq[8taj*]btc-nMxt=dvmXoHalGtFãU"7lRh6nLgQ2$mNlwrF6Wd,hMQp4.GrZTp5]$bT7lq[JXQtWf->Ibx%%up()%9%%%ãU"7-%:-\TG&jT?MWUm%%,d%%%.%%%%ur%fuWSIuh'kkKp.N6P+EM;JRKjI*)tWAY9ãU"$%i)ZQ6>2:W:bJhRog.7#:rAcbr0LgtslUWhsbhlEk)TkpcãU"PpAYnnK,xt+8wd+uxxt8lxtNqqVNq#YNu#NisvNsr$NwãU"$PNrfNlrPNvrPNt0YNtpNuxpxqt^xqHuxuHxus(xsuhxwhlxrnxurXxvoXdvbstãU"h=5m88tG?xxxI#[Scc__gEZC)86])Z\0J7KJ0qS_u5XMbGXZ2f_X4&Th+d=Kj*7ãU":8zHm8+-85r?vZq*1'8d>E9c%&AqãU"d>^sTmT*aYKIQE))iRc;GH5NYW)1?mAq/')-CUAp]#ZK86SMH_pQ-tT((?B3P;F\[rg[K,vU/mKrH0wElPPwãU"ajNvhYBZ,=3_1WGDaU)#ucbN]ZEc)5kp,ZJ0Nsj#CH'az*LDV$G9_R(,,6hxluman%*rtzT]ZZr5$4y-7h;5+5ãU"2%r#JHsccKg(+x1hbMJ:[]4#pX8HWlY$to:.<1G[;Q_Z:Z#L%nEm'GKW^WpM^M;ãU"hs1b#NK_/-](##*FfKM-/u2s79/,-X]pM[^0RW84r3HY'U]n$7j7K\tS,87=x(:ãU"m[)hX:vTpU-.p\C$gelkRdA8H]wWmopt[(d)?i[;+_QGjVZv)%rE_5Jg'Ndgkb%ãU"(*&h,#eAVt(\yM9o#mA/ZJFa.*fl65l%o=tkI8fpi__qsK+h]lI^z+IO8(C>?$FãU"U]v:6Rd*au/m]'NJ'M%887j[0gG9)VnKo&Zi_Ile,k8LDYFNV&^?0[MD>H\#3%UãU"Q>I*N%;y]0N>tW-K+l?fYtg.He\6m4Lh&s)iM5KT/H#ni'H[-,+%r;RDb)k?r^aãU"MK--9*L3/_eR\;Gc#$8S\sn)/vFhC>[Dd)#LJWPIrU0r/zh*OpC27X/W-*b_hsiãU"G'gqMTfkkuMK[s.roA7%S?tJ=n+SãU"6'96&rInq?djtd$J*Kxm3:i9Ogn/:>ruKg(jl(7EQ]Y'LG;,mOZ,\3D:a&mN\XfãU"OiyS2:Z#$*W8O?G)1dt;URYM9?0$PeBx8ON1)+J8oysktct\\ZEJ2g^xt-+Uc/aãU"PwpjruPu/]<[x9>Vo&_-EWV,a#s6^)D&SF]EdD%r%LC5;OIoD+u-u?2O_D.J&*IãU"n7CY%g%B\]6&qSZ-B:N8b>]bNnB^NQp#)v8NKO^>su>hm-y7=Ec*G))zkEcl]RSk(IFwIFyãU"g?0M\X&;HlN[qY$GH1h2+It1(_7^ii=IfO'=pE$Atw%T\('oB?8_hS%[%7BKGNaãU"M;aa#oF]iMim%hK%_X(S+U&qK)zD=ECm-/LV]b^MO_o*YzD>1fg7fHGcuj-rWA2CQ&dh>(ER;2ãU"WJz&BH4+6qn$R3FrT[h=>bqi9SmT[<&*:jnGoulN&sDz]mYn$S^L0S:X$SI0Te+ãU"]m$9&HIam\JQM\_Bj0wE,/^M#zCyx'b*Qh8/[PA]'/u%[<%pI9O>%L#kq(q(C2wãU"-Yaa%s;B58;W6,k4nhTiX))r0d%/qhKEGD$E^(N)p-4eQ6BB9RQãU"sLQ.iC;4L.x>+3&?8H.gkJiIkn*-XLLWuHKu#Q1)'P\/6fk6a)i.\$J'gC9GpPaãU"0k+rfm;t+-$[6bhL%WN^Z^bb$&)#Q;$lLS=<*L?3JS/7_KdLfMBt,-\V'ãU"NEF\fr-GJLf/bY-X)4/7#^&RuptIJKsv+K,-/1mX6e5$1.]ukH*Fhml*f;FiVZ)ãU":=$?=neKKA\L6X(W.vwQ_(-cI169HEvw08Lg'9\=aOd_>gorw4ErGs4_]FuiX3j%5;='#WnV-P#J-QbkkMQ7h]UZ1o7jx7E\$&Pu?ãU"1;d(_'_F,?%S[i?b4#1v\6JRFlVLtX-'o+8KvZbc5VHgvv$(R-K=WrpXBDoFXflãU"uS$\K&0o&DL0ZsraN;LK4&HjG.NY?w^&[W2g&Oo&Mt.O2K%[wfsn:TS>qnE_P=^ãU"zC9M/P/r2IYtaBjZHqw0sTmkFRsr%WL]2FtW65jYGA1wc$*W-9N)fSoj/qa\=9HãU"NK3+'.NMQ]c=Nc)7YrlS+b&qFn>BZ./2k*2&8w&I&'1+]dq(1A:*hgBsnRc0'$AãU"#AO1+Y-4_
+#bFZO.A#;>+-n5c.QjO$SqL4o5E*Bc3EA&OQlFRpJW5l/B1%M6ãU"jk+qmD7:[^0T8E1r9jLsuBv$[]f*K>vAãU"08,;4[*-[GWSrYpo/?-#winR0Oo%>o?[x#72nWxI9D(_Fs0_>h)[qy';ãU"7y,?xT$7:P6\-0kCn&AC28(HjY^WKv5F(m'+p3p\Eb-FGo+#%a*VzljMHTCzje)ãU"DbR1Xqjuq%1AfRvgX&miEL_j8Hb1cBW*G0NkMM$1K.6gcmi5Rf\,2'1d[6-O#jjãU"*a'#-/MPIQ#'f=;h[;373-a*$d7<]_q]XVV#8^4Pu-zp:zIrbqI&odS*.4I7.cmãU"5[].toMc-U.uSgVYjB.n8$OtH)C4Gu'9IcP_ARqkIh_eiU6;3-pAD;:OMGTPEg%ãU"-Pm;ASH:7ZK[qZ_l8FcEr<9(eXlZIkj3bG$R[*%^.O(H<5=#;Ts'M]PmWE2X=?pãU"K(cLtD..]xpt4XC.c'NnfhcdKo0wsQcW6qHdC+],s:/5%):vGAAV*1OIW-OsLBgãU"5zX-4De)%j_8Ql?T%4y0%k0aY#.T4XpG3ueA_5$K_P*tEk6K=k\13;o^*>LM'.eãU"_1QN\m-+P.M5f+fin^gg:t,DaOY0bbTd\5lwCMvj,m^m6fP.+cmhl\sOtm/oGlVãU"4Rnj0Y-kKS)h;O-$H[;3o_:wdf[u_R;1e'L%S;u?Mh[Dl0,zWFtMAkMqeO;%J9>ãU"__8]a4$t)\&:z*OA=TP>nZSB=Iu($)/yD]/Y0N/aYTm.u'k'2]ddHE'Innnm:q%ãU"m,1,i=q8w+>UB9&>u8I[YKO8nWIJ/FmDxR4:L[d3O0D$(aen7Q%k+,'DfVkVN)<ãU"0l-):v5D75bX>^tl]8AQENXlOnbu*F-DI->'JM>Y-)8U[^Pr6RN46^mqu&HãU"gi^t4?$Z.V934RI2%l-W?D7XrE;;vR<>Ll/G'7jfJQrqVWY\qq:8Ew8HHGOr%/oãU"9)7aq.kkFq'*nRNOg[7eXV&G,K:?IeUBfaLEFQA1+3yI?a3?&d1=ITNzFRhysIIãU"j%19999&v=_euD)X(8LvhF^=9UeICP&G6M\80tYLDjXE3n9J3OCX?GORsQ-'4OhãU"H8?N;=$lI*9F1arwRB7rombãU"b711OfNR4lAI0kGJY;]K'm&ko7s1X<][OWcsw3'uy^,zMTg8?atX5deO9%>5LmJmãU".KTp$slh7(4(:C)?O0Cj24XZC+.nTr[se(nr-++AU3UMi7>k0^&JwUW2sU%4EHTN7IUBW37yy,\&pznBãU"I6Zrn:kBAF6:U'.IZrk/]=X4E%[9S?U_A-[DPU5I=e3o'ZTn:'I5umFe%Ir#'-O2#')+[ag$OãU"&V)y*zYeZmZ00O]/0HS,m((8wyBg1P%d=TRuO=k1=qqb8LEZvAcJKE/V+g/dJoCãU"eD40n).upIzeTDN/z33i_0q+Cn11Pb3)GAv+CzR>Z3EM;lt#IZ'*$2>i0+'IMz/ãU"Wr)K7G1hCeJd>e(h_uKY_b9QJREi(k45iA.#1K/=SS2=e\iA#\7K[s85]\ph<^hãU"5v6YY&R8xG:Q0kHYYxt6?OCoãU"aV.)14E\#(PDW;>nTJZ)U(Kh+1w#q't+W5D(nPd4QKFAJN,U*b89#pzX0ãU"JU[,T\N)DQYGDEt1sr50DZDw'y#feeNi(1wNN;O=Q-X+74wZBG5XIEmãU"y9?(--?7%0S#[/K)Bm/9k^V].Yk?q\Ltj'n]axL#0[]aUmQ;ME?Ds>Y?n:H+#c7ãU".n5\J'AUYE+Eg^KgpbZ.5gfVI]auVmC?RQddkMA?Z>sG_%VL.vNKp4yCjQDh7^,ãU"L[vDãU"r/CkC\UM1cYFvy[2A\M(9s(]ZEq7o#[6>$K^/KntA+?7S;lR=nidyt?SxIZãU"5+2JNY<#w'rBJoQM#Q.z&Tb6-hZ/etWE_lZ$T:N3$*6a?zKo*Bw,16Z-L$3_Z._ãU"$EA9EU\LbMHCVãU"iC/hIjpfx('3SC87/[7RX61qj9K_ãU"jxW>CqlW8MQ[nW/>qiUJ]^%ZGW%B<_gXHN#aJCLBt=[cJt?Ro0kg$'0O>vGDxQ9ãU",AP64\I[cy;*JYioQs'D^%i:lJf2e^)PyioPH&T?Ccdr9Z99&:(<93.,We,Rn[EãU"[->4:23=nN)8SLt%W8K*;b4Cy:(fFU0nXu0gC4uYSb>LvdrVbiFr.s9N#i#DãU"e21zR\w6v\$sbW;W1=Cm+p39hjudoO;PD-wpq;Z=1.lf]^YK0r%O;vX1/rm^Z&KãU"aUGO3vMgTglSK6Tp#7'*GtTf<=f+)XZ:HTY,]0&h%9]eãU"d)Ypahj-e_#-5<9UF:7x?iiR#0\x7;Dd+KgIhz?&7YWv)?oH+;5?fmãU"Qj\.)a/Eh7.F/d5jz^nHEVMGbV39\&<ãU"RChc:xMO_Gzc=\%dHf8)W)<Rd4Iv*E*QsYcO0u4kH>EK;ãU"(E1+C,)Z3&3RSlSx)Y>naj1F;Q&_E;T5FjkkFmLG/$R'.M03csdG0lQeuTZ=;E<ãU"\'qxX6JLWDIlv%hLFKDi/SV&L1:%Qx3Xy9aX8uw.s2S.MCI^Npm1Hvsii\6,=SAãU"J3P).ixL)YIM&jq=Jk);ajwK2W&>zijC8^GãU"jA=#\Hln2MT=N76/Jx;E\>qY^XoWb7YwaeQ1(+(RxD^RZN<9>VVP2^FKdhM[>*0ãU"9QVE(B:6M)xo_YE0R0J\QpPGWFNO.h94IRC8'PorZXEtj8I;VotãU"D3Zb+^5l>k4:Nk4Z8KjGpT.U5=))OqY5)LusKS4F)[%>ZAv(W'^d9^'Ne\kDN^dãU"ex;\7,0B_#y-j&*2CZQI7zJltGa/L8+>ip:D7382)u1gRsKKmFK_5)\w5xBA()Y4Hea6wOIasmbfPF6U?OSur?sãU"j,]c'>Q&,;Ej$],YeC['PKX3y5'xzx\P].%9DhDxu0JYoaq_NWu:*ZYBA-[(AdjãU"%bOW'(69rni?.N+Ml8Pc.\z)RdP)W7+7Cj6i5w-52;Ie4[YrDCzqIeKB:/TSZk5niN1P4Tf8SS+04aOsLY+9*fvE5,D6.]&8&IjAlp1d;]=/l-h7(r6nãU"Y0HX1c/1r\sB91\%;gLdb98X)j.1WN9,9WF)4=qR;S)t]oAs,\+n[t=S1:ft0p2ãU"P9^Y4%pQuy:0pEh6WNb]Grorh^a0AT]hvHQJ\/Hs(&eE76JW/O5]B:[.LlYIFn%ãU",+L'TF+H4_*-J&>q:h0=a(TE6d6I>A22%f')*iF[TIuT3%+PãU"Dd[pf9Cm(m/DhTgQJ_iy$3*ow4#z6wdD$m:,K4=]2(Ia;fQr2t]Bsr#/*E_A.)v(,^c%2*5/hISOGC9-OeJR*0H%OYãU"82Qd;d&Ivu#j]qESdf>.#YGM1)x05p2:d?G:L1cO,=RQdQi=ZL/$,W.XhsuW,7MãU"uWF*/ih<*4DWOf$,TnI%R?\-IyXdv[IKFRjeX)0uBbIJãU"[p^AW6bapDYgP)Opw7fQ>XaAuhz(v$4ZE.i<1./AO+'-2h$3W2H.d\:p'BN+Dj;lX3XJ<2#6M'')M,Dz%Q.6;Uj\VFE6lHBg30j^']%k+T>kqãU"cMMsJxA2m)-o$gn'e<+/2?as*nLsSWEnV\JO__oHTS=eW4%Nh_VWYRf2*;L>'N3ãU"h#1vLqVz%.C7I2%#LdHi#IRK#NU&l1[R:?.;42)-[#)#\>rNHkVvjqWKeprW9N36f\VgQ8(Rq:2GL-L5OB8A>gb-'226]XNJs9f(EL,yFvãU"ukJS),fVI=XbVY=_Kh?D=j70.w08rIq?fR6?/JmTCYE),J4A4a)>4YmV46Q09?0ãU"dUHyZgyc$F.#?(6*:2;Tu)l9-DXxWL)yYQQ.?HVfP&P$?jTGB3%GdfcTJJ^3M4uãU"B<^GtJjtcTH*N[&q2FIGZPh=#-u'WewohI5jei5K*Yk)6a'9)97)05zx$=lO)3LãU"7I_e-e2v*dF%]]wuR2DgVPX+FcXw(tHpfZJfoDIpZi:v5r(P*ãU"A7wIdscSBg+PHde\5:.OQD2]S)Eaa9SPCKGw4R=(mdmsJ_1mgyK2/Wr'pUhO&tQãU"m-]c=)(KD5>JytTgI?QtW_4Pm4]ãU"LoSm'xpf+\t3CbUd3:r;ro=9*H;,^^H'O(Cf8lg4jRmClG:UcJ9kaKU&Ssro^ene^oU%Gq(_#cd.BR_'kãU"3?8*w4p5MSW$z;:_MTTm;&e#N>;8#/vk0'/p.n+CA]-Pm<'AHjj35tvPH.O0AKeãU"K&)T(6V1M8BQ#GgR.O)&T&Y/DLwNe8OM9^kãU"TfB+PCK[D%,0[901*+#=Pg/,KWRo3tldR)NKw.pp#1D=px(MFBw(,BCiVyDE5kAãU">cOU*S>;Ak:Az#27el&xTm++)X$9p;wH+#t'd]6U:o7X_UKRXv0QhRB6+tB.a(HãU"6sBFXh?I_D^U2;F;V=8O3&kgfP],d5bAW1*Sivk;j2MrIRLtl>ZM73do7o6ãU"#Fnrqo48I.Zu*wudyjt)H4\s>G5YG9UsmTs7NFx&Y^fVfcCSu.d6YefUb8Wk1+_ãU"Q:&eu)c*)hIz//I0m#3BcAcM;z_Z]b,AiGk$,u_E2l=<][*p^FoUJHamTujq];oãU"Rx#f+V=\Ug>TCPF[mQoKkEM7f7u(e-;rYy..6t8$Vc%fg#oT,$5s]Y(C>S\'pWXãU"w_bkOncS&c=a+'j?\?G6f],sOLi2jiF%uRwWIpSZ'Q>uz9Ba-sUc9hehMuzL/d(ãU"pe([YOz%sl&U*+8^4=d)88Y]*8LfnXx_m'R0D>A^kJr2GbkMdzf0ãU"Hfr0fUS.3?(+h0AP5BpthJFbWG>V'q0DsBJiQ_22fnoT?\JKi6#(ZyRQ/-Z?_#(ãU"L1)?b:4^MBBCA0bo/u$-$ãU"F2B5A,'iDxtKo?+5jGQ*^)$Hc\)liO(=6d:KEb1?cDh6R-+>N[?4kd>dPm2DERKãU"H[kz%DRC8og+DM#mS+bZ2F^l]UR6H(61G+Ud?Ao^PP'ZX1wmQ2om+hV<ãU"?XpjBZuM(u9?['zyB+R1RqHT-fBKKMj<$I-?g1X;tlS^As%7(S%EãU"Uf=M2J:r/Ix6N*&U\S$:lv.B%vKvf-)&0Fa6d=N)RV3l[<'&X_$Q^l=;*pl%7/JãU"M:Y'eaZE'VWRvU1rK#tl<#ky+C-R.#\t>A.p\=-C'Dh>b::,8>-BF2T?WPHfbz%;K*9\IaBTj>lCkv^#ccEãU"^2)//&xUTOp=ZA&p>P+8X^d\*U;e+c+4MA$0YAna,&0Cn0gTKwPumUsZD.zP(SEãU"Rf-Hq_DS*0k'9G53,+q?NfugMw'96sg1RVCxT/1'WSb#tlNi7/m1&\6kNhusr4pãU"e\R*4ib'fe?9+]c%C?uS5UTXO2$F))dM%GAfkO39)8mi6]JJ3pw_oAzYm^]lsZFãU"p^Rn*\X8jJ0>vlmw\p0''JSY.2E?:cJSW^D^O[AO0Fz609l-8'-A0]_Z=aB#X1pãU";DKfMc0mhFaePQ))bTj[5cA;rai(AdfwqP#%*]Q/g:&Rt7d>D]AlidV\jhNjE00e=,0^hrãU"lP2v,P2JD954#'b9nY'/+_FK[ElG&jd1N(Q)hu2HP'+Zb+/=%2ODbE%p24^Coz*ãU"DSb%=tgvCj>nseQwQHYEvo8xD&sW??1)jAyL>XPN<1S/tvOYI4mY]5Hs$-Q#aF(ãU"2GQnYWS2oPN#,b_%pReP&9PAkuD]ecVnB:a-WkZGBSS3kãU"+w*>>2;Tkcg[G6T[hs57U&_=Mvitla?*-c'_bYD_[UU_=s?'sK=2]pI,[ZWUiwoãU".ykcT$]N/K>Oy*j#0;Xl*T7?ICZ/A)6,2VDf(d=UEGXVS&d-FZf64A?$Wv,?phVãU"Vu0^GfHpFrBl<5Nlcs.p$#fFeImviJD%MTg#mhpPQIzPeQC8ppz5&ulU:CmN*AjãU"f(q9vZ0kWuf>>?A$*m85Wr1MfkbTl+NI954].D$A-N%Mvw\*#RQj'%,Ito?3JJH2VmDãU"Rxh&GD69vomb#$A#Ci4.;HpymO?+*WBzKDRcXgkãU"*=-f=YFbC/gp$.Brw;aDnRaQsRBS81ELr7,r)msc3xi&$a[DKDLni7tcvqDmKsJãU"(Dil4dDaKmlqJR4r0>j$-N]pRqDU?6SM8x^K]ãU"BFdRPy4bL1sYpJ;JVYrObMt\O8ZYPGmCO0B^[Ea1)D.ya1'*4(Q:EfYrw1pgxOe*TN5sO;-m6Rf0(-[lU#sQqgLG?pJ\tWE6k8Z],HnJKF.ãU"M^&bdroq8rmY2qtb\^Dd1nFlDMmr9\D[pk0M-tx]oMs&nJa(4:Fqtk#39Q4\ãU"AANokk3=O^4k-;$Mx^7&tIqaB9LI;';5pJq&['5d>IujL/nc$T5mA6t_/yarZ[DãU"(n>Mv^u(&:QGfsFkq$RbT8PQãU"*nNRNt8asT8ss:#Hoyr7a(jl]$nAq2IrZm()x6i4F/nTtUsY5+6CfhRWp0uTFH3bJ+)ijM1Fo04ãU"B]k\r+.9fw_KLrdIRo:5#+F5Rx(VNTvz=/7d\8>X64V[Q6QXAwc:o:dQs[2caxrOKputjAL(;mKoN%g#=3atX0gMQZãU"OSH;U06G8fV#5o62P(kz5;Jxz_PDO+Gdf##;)8[CZo.W;;>*T,$<'rJHP91VyKOG$PA)_G,<,MD3VpQ/nxzp>%&v6'm1yi<-lS$-D\3ãU"a$*gpu&26DdoBu]i<#HcQTgr*Cd,Y>^4>rfFX8__fd5PKjlPofT7x9o#1BgeUIn8gcw-[ãU")#y]E?Jcs_^:e<3]Pd+JL0x$rDpu,[d=cuQImz&OT8J5?abHc7Vo9cãEND SUBãSUB V6ãU"Kue=x92MEq;0yE,hP*kiV7j1Y1J9M(&F?V6egMM$e0mdhbRDonIkPa_A;zvHX(iãU"TFRp6xUpi-t$P,B)]hX)tV+=LA\lk_\Z;r9#tT=c[cC>BUMM2PBT;1O<7-tãU"0m*\RLtL5^y1Fp<1JX%'(c*eYNvMMBlACLlj_tru:5+)gyi-60qsmd>JsN<)n:3ãU"d;I?H:.LJ-9,wAWjVjh'k*g=:uJ*'WF1awEiãU"mrYW++BA#oT61Z_4ãU"ROhg173^5%q)0EnveRvRJãU"kwG%mdG8p^F_unDSu,w,a6-Otq9kZgLQ:.sl4riESL,aOERo]\ql/Ze62)LVr3WãU"nUtNQ7LQa%]Ds=K*/99Uv3Dis,^deH8s-,$;EKn7Mtl.8I^VK;a6]T9VF#r&C0OãU"a70#m)d5qrg*;q8&3G1nH\^('dEJ]YPY]#?kfVQEGj[/Trs#LgIn)%uMhQmSbrkn:9ZhqO.kk^zbmIM3/wP36PXYRZ\6=KsvM9ãU"0s6^aR*8q/e/5KlRytYbY^F\VgD$iVZ3rWdCpW&<$,?+tY+H*4T\_eNW&)?TEQHãU"ArdE'_fSI+gus,ih+47pu?,Kx>)DNySyVTi\q0heuLPohHP$^n[fm/_ZooAWU1QãU"W,Ao,y-H]Z6>ml1G5L(&W=\iYCY.Dj,=(Q1ttZlTYpPVUDp.GuuB$;:8G?HbGroãU"aGFIRq>SoxjQ8=sU>viUMv/-OXx9VR\_4]N<>IP9)WMXN8NR$Wau\_cQ1TFr\bK7dRV%Tpg>OTXtNAãU"7rp.80Z=V5IY%<2&H('vH);iM+]a'rrLi(jMKh2G\YdewW1&[f]5NxnK]QwTnT>ãU"zhPn)8?7LA]Aao0STG_qjbNDRdD$Gh'8T_$_E/kUH?mLpa:0Uq1b3pp?1plT3O&XX<]+]ãU"3kUHqA:D,/:\;L9\vo+598U(-S\rIdlM<>7xH-SV\?t&RZ3=SO-XMEld[;pv-pJãU"'V4F6WXs/SIm]xyOUpEOR.Moz]1x1l-2^%c^\i8>_pR^o6hVR\r:z/Xgc&>9L%nãU"2Z47KFQ$Jj5-Ngts1(Z.lW2wJlF5RoCp8Zhn3'?VA\Hbk#G^Aur+Ok,PG?)hI6.ãU"0;F35uLG5X?oQw+&A((DyY=G,xOH'GSo>\hPn/tk>e>f\>1xZOLlU_LESWWm(l9ãU";a0>))+aF-C1'IB9$>:AFelbDe'Vh_%)?V%/_o23UdwYBS^ioGh9FCc[C'G-4XJãU"e#P_Y+;H']%s7JDxk>p6x38&:rxWcS1\pJO5-+XwG0UsEN:6oeut#SBQ>T(yU%;ãU"7v2OugV(Sqh\4U\U5)GkW8C>+$6M0#W9eEf)R>2X*Zd$):yOP3U.0q>qiMTmj$lãU"Jrk,L>^=\_0-/VDLejimwm#EuE'7CewaR\e0M,ZL'-e\]V\dl32LX,J)bEMOqFFãU"NN[RtD4BeV&:U%9reg8f+_C[8J$]^eHVlhLxh/Cs/bW]+q0+VQ[ZL:'1:oz0/S'ãU"qP1HU209RGZJD8u?U8Ao+BefOt?$Wm+8F3IG.su=_f(1fV0b(F3RuC7H7SIhT&HãU"5M-(]S\i#'k'^bpb4_+T]4rl8#68b>shLY.Y\>tTXt./^41incd5uBw^nRi/H^IãU"QIwQcJS,aN2UUm-'27OK9sB%EEGgWP%i=w23#.[2PE,,GKTUwp>pYC\:tW7Rbc$ãU"o7ZVJ4C,Ghh6HhsR^cC%hXRC/hmVQ/*ct[Q4'#[5UEwSwl9rlqdu8k$8Jmukg6Ev)LnlbTC#.Xc[wj4>o6047#z#GSR\D$2W5W2wpS/1gpf>l%iZ,zãU"STthb'N1S\ah=1=TZ>&=RThC$_ZWPJJBpDvxagd%nQcrF7pjwsowtLXZZj(L<%7wYrv)UH?w]\jY-*tG-jfXLnVb]A.k0Z[_a6s2ãU"lZxmaQmQ:ltkGEYWM\TP_3)uv4Or5dY+#Z*l*j,bh')auD<.]gWaj&UfuS6TP;gãU"$F2[=uM-L_[EN#;D2.LsD7-/GLe%V)pN+$oCU%,4Db&T.VIU'mDq-eW;wg,xQtFRBZ3EIDQ?%2g'?NW3.1I^0Vf-N+YJvk*pjK1ldCBp(/ãU"Kz2\G,,tLfl>y'Mfl8wX]POzqSw5f7PzjMGD,YYsmptV:DCxwId9fGc0t?q7ãU"7D1d6o*r46UXUOOhp?;)Cw+y;TLtjI,P8[pg<32#bMQplJ-MhSLg45H-R<ãU"bbhrzG\xezAmfUT8P?Ztf%P[u6t%UWUq#fcM3IG>z$OxI$tfP]FQTMZUl9uw6e:ãU"AgxTMcroNt&>K'QrucEiHw'U/0rhZw20lu%8hDDUQ[9ifqhrcjCu0a)uTemOnSD9*ãU"NZggr.YD5*m\('xGWci>jUnk$(KcXG]taA\\Dq78NI$Xu.7_9'hEVzmiegv+-BPãU"Y>tj5FE*/ND^lbQPff.qENQvsvu3ts\jTgNXCNsadtzjr7xZBRbhgM>zW?cjygKãU"NEdKpJ]_v[Fe&Z^1>*)&5fE#fP[nORh5(YH1#GW_['B.tw/-2ImX3,4d/Q'i2+FE&,;gIdD0ãU"h5\NHTvG$OM<#uwh=.HnlnhCchfE(t=H&pdQ[$l<6\qCPscV8frw,u7rtFs\t>CãU"(ne&BtA?L>nhtk+CrkPw*7DcP-+R(dl\ZNYT9>[8ue0_P#q1:uzTst[=2,(cRaYãU"$:>;f,ll)&[1-#9+jXuG5(_,_*riXhsnDSoN/)hjKJXJ7s$gY&_s-uiaORL&(mVãU"_/ak7fTJMgsdAphx]+1mAXF34wE%(>o8k97o%y)-A5ognqRydM#Lv9YFpHrld?_ãU"0VDbFxcwlMvVg'X$gD^P)DsQorou^Rf$VgdEKWNKNTjRL%J-t&8uu[Xtdr:]RclãU"Z8oiR#ElyMMi7XTkI2VLO,B5cwsewIvXlvqls'm#gUdFxtutHjãU"#ogdbPu8hw&c/Kl3kdOTcbv'1X)%w:KBYC25H*WbãU"AGh&vR36_DTSF7fcGn3,3/1s)VZ<#UXW,+&*lzC.u>:E(YOCkt4bkt&K^&E0d9?ãU"pdQ^k5GSCKu3l&)azBx([G2k'3k;b$Ji>Pi1*\ADb,vyrK?\nJHJtM$>cg=6+_6ãU"g2q'-I8[yEcM4ntL+TBF[&YNfwBNB?L+tMDgKsdtwsp&B[x^&Fxi6xZOb6tFv$+ãU"Uuo=5d_uNtt*(=>R6I8Pt>TLqD;GHjQ*_/[wJG=Cg$;oR$5'cP%Q_x/^BLQjY%aãU"P+&aKR,j=HjlpK7#moL'E9G?Aypg]Ur^>yUn'T>*'nvoPF.Elx=jJ30Hu#s?uh_^6#SyfgowCxa9w$:/hVy-aXDr+ITXdWãU"z1n>,RehN^O?v>$)ifh;k$=yl7[QalZk1A#,$#c+3<.x=OG$ofI6kSarP07pG.vãU"LxD-TLX$n/Rd[DD(Z]#;3p,I[g07)4&FaovcTQoDO$)1_M$mZG;>wOy.tQb-VI?ãU"WdfXct$3(K./Cv8IHw(&F([v*;64vh7BbPlWxa_MQPvv/spv6tu84xRrvNmlrXrãU"62GK>$-'8O>PawXtdoNs-7LlzuY/*momd1E/YV.CnF%NyGP?U[-L=O3TYG,eGoLãU"li.wAvlmiGTd80cTdT7Gzk1yhmY.crXJ0VHoxTpbI^j1XRUh^m6OA-,#pBPS=ND>ãU"koquHjdT,B,X1T-$vgb\0ANG85[$A\5\>mE3oIuakw+pS]#[[iQSQM8cv0NT..LãU"5%H5(b)d3OrfhL0[QF:MnHb&:O5d9spYhAX/Sr*y>0a6;4Rux*NãU"'i(\BgJf6j_0l(9;#,#4r:R/1ZIQGgsIf^w8YZ?BjbmKs.%1Oi0'2='h66[Ve<4ãU"Wq)HL5JFFG=(NKwYCs[.Q<=uAON.-g$w(-KId:yN;9*vNj-K>4.dQn1KI4,g\6vãU"j:LnKa.Eigoy-tCbUa0O4H%^34jB2+4Beoipr>d]PjT2:)mghx6R/=eiQ2=kr]jãU":^Lkf]*M^sa')\boVRGoW<##ZJ\CGk9FhO9iGk]1^8j?Lf-YW]g?=^c=$3pdPCyãU"(U+4FRgF3pSf/h'I;[3TCH0ErdQeeX6;V6ic[pC6n3U[a\CJ+Rte=E=4MHJaowI&dãU")xt$5aBVz8d-*Epii2vx:HUlhnM?Z5pPrhtXNh'#fx1h&c38,ptnl8s:pmD0naZãU"(4T4ls4$ip%D$p0;h\/NVNZ:yyIr%jgZ:1+duãU"r;lkabBfp>mp#9IG-T(DNp.tE\N(^E;<*dN>0ixUKcK/dQ.%cB?l]Egf73tu9KaãU"]i9;*S3y0u9g?pOu[o($Dd:&tcJc^k'T'_8&-dpEb5G6xp'v,;wZWt%xewDn/t#ãU"5xxR04bkQwB_0W.7#wrNI6PmLIuJK6G\1r(Py(QSisOwk4'I>VU%F2dd5g;6c(IãU"IFFN[wR8r=NdV'Of6R#t6C#ZNw09HAHcjZ]O>qc)Hw.(OtjYdMiL'pP9wU?I/6MãU"LBRj+nMw+7A1x:AuPAu%#BKE:9f$ohH]bom9^(r\Neph?su^ZKWsIN^P(D]WBBcãU"BE[z*7TO-J=F&,fM_V9OwfVmZ(llP.rMEHP2_w7&_HW(FpO%o*eP*gslJDfkNfWãU"7u>'oDeH(>#xjO-quZe)3F%*5])_G>/\b6g(i;PP?k,oA2]tugU[IepãU"l/=RQL[FM_NrA)M73wsp;fi<,fJpvI8wx&7bmOmaTTT8)r0e#\oV.p0H:wQy4O/ãU"quTuF4g*q*;z]'9M%uwZ3vHH.:sS>[w1M3p\XctkOxBWk9-^,y(BQu?bc#zCQzFãU"85:#)yu'pfNSVA^;6Q?7%e#veIG9I'SUXpFxM/Bk4#;TTSSpZ+O'rP\F<0Mfd$3ãU"E[yR9j&+VtfW'7,tt2_?5Er1=k\)sdL,?MJpl(EOVsg*9nVmDN9pm1H6HiK?b\sãU"_%_]p$MV7tA)[,GrP\2O(R7i)Ncx;]Nayuw&LYIy5uJcvG^dNIF9JtbA(RgnD]kãU"F9MX7+npK$ILZ'y-Q>_$/nR%=Rb+NQMYzxXK6A+,+3pw6g?+-T;uFak\LPn/PC5ãU"RzB8bi7bwvn(pH-\f/:&K,U<0:X[LTSRU.y8#35=AcfEVP[Q.c#dn%>(PAqstILãU"aF%:=8hMSLuD7KD/?FzsOh(ktFf)U84>%)7BcwiZ)WdMr0EF.M2E&=2sY'VVyLKãU"YJP,o?Vx/xqiMVi;-JV9Yar;=SbCc^,M672DOMlxu6='bNVZs..kpfEduãU"hzV^JxpBBB8qT2jfLVqi(#E/&6yUqlS_nkDc89V>jXLvG$sKaOãU"ZlTne+C0V/A5Cb:VAn4i?e>BQoU'73>xTvePR#ãU"ZYrw7),9P][ZhZhaq.0LbU/6jLN:R2dd6C4>)d?9ddGz+DH#:V]&R&;H>.(EO8*ãU"\==5xTOJ=.9F0qlfm8>'Gpf[5.WQ*diu:0-0X%K4,ta7EAe*)xNcmF4N_'$;(02ãU"OaGh5y:?lc191pX<+f[Bxs.D^*fmFq*[?cDF85Z[2?Nkz(%re8H\3S0f-r.j2P=ãU"5_4M/sC.FJ/B;wB(Q9,6C$-Q9Ocu4Zuxg1$2PqYy[EDyuRHlpPnO,R'WyZ]=XFb]ZldXO'noTnD-RCzH8:_-QVTqKl5q-iC3^;'Hjo_ãU"[.S4?aumMfkf+YA/BZ<3kS1VCcHVde6(FR%64q?E$\o\(zL6W,ZL[Tt/IYQY,mQãU"K$%q8%]Rl\U8')d1J'Xl/j.^Rcove,kn0zhI0pZVvi)-JVg)XSp-Al>PZk?qx&CEcj7qvk=H[<3G-ultqlnWCnAmyPl(d#ThG4b8_]%ybUVj\GA.M9p#ãU"-dK0R^$tU.O0>;/kDbV#L:JU]QQP9f':]V/P.iDt+aAYt5#CF<2G_T/LCzc,VWaãU"1eTtBYVF$Ojx&WdvF++l*uM;,=hjU%)F]k?D9X[6et;&Ku9;v'T>WDwKYMnf.COãU"O&.&7Ykvsid^HtcS5k[R]I,=G3U7BBqYzMãU"]7Sc2',J,c<+koieiãU"Qc3ZeqGUcoRp)*,__?WV%q;FrVZKo%F=\tm-ci'MHH\ZYPab=o%PelI7OdO3d9/cBX[^0N<ãU"W%H/-x\;L*9\%xW[/7L1>kawfWd>7^xjãU"k4*xDc)M(.-Q.YTFM>q+7*\IZ]fon*np?$[P(tXz^lbs.6x2:cn770t8'&KJa88ãU"Nd,yf4O?at,t697Dc)=]79lp$7dta[%\_C&Jmtfd(6)Ax_:u^s,J%8OaCJDKfNuãU"+Kv1iJrooJEQX.4MH>IUC3ClU.Qbu9M<=TDAUa)?bOM$hdkTxn75GAK78*S;2pãU"RkKch6cnU'],6UCVO><4.4mxeumau,HãU"u9Q-sPt<#9G5UR>ig>X$P,SBxJ4\.5pCr)v/gsF/I(GYZeHXjJK52gfs;Et[G*SãU"%3[q.:H=AJGfoI\_OO2aHbzi[JD-NrjY#_jBgtI;^hJk>6hqR4p;b/m^Lli-PGrãU"&tHDRnsUgZaCx6B\orL0F^NvWCdYs(N_J'Hq.izl%X.urf&.P)MqãU"i%>X37nfrZu%tvm:RBB0h,mbB.n'(h%jz]+f9tP.:L(Lp/]Ro$X,H?rfZH4E2N9ãU"8FPCUgE\]rEBqCWlkfnn>fblv.p;yOjG<,NvDwlIBFiWn6p6jMQZmbPF2k*;NUF(y&6Y945jj'g4w=dztJj;D'^ztTpp4B/ãU"3h1'LLd(n[:8(7MXA>&JEr(BJkRnN8bQR^QF0h=#=iZu:.:Xe]RH554nHw0;95[ãU"'>2G_9:DgVh:'fGy=QIqTs&bn4kke#0mC.u(9o3Sw=uãU"WF)QETOA^:<[ihdCfUo$p5[ZOue=RvVlãU"NsQ$r(g#.2V>^)>QN5'/ZGOb6/t,1OP='%+%?8'CHAZR)[HLKAJMrF*/-g::2>DãU"ul^dxXvg[TZ;X]TinLYpY9%ss=6ErAwx2+i5hOC&Q$S5AGsH=6ED)W''t*ãU"Ke2FG_6T'r0i;Do?OToQD,\6YMQxa_-;&x^N%Zs8Bt16W?BM3nB2d&\<-YVoLSvãU"qb]me8dt*>1(*QfI=Ae1XUk,l9\PEKRLi\nHN[W]HZ<7,pkel6U=s-'T5UPqNlJãU"Y1&?;9V=jhM$Hm#\P^e%_*T1T0iP,2L4U)_CM.\5J49JM,\_/ZJAFyp?Fh]X_=GãU"5;zLC3;FLc$47&-;Z_m&8:Lt/hEoS91pQ+j5tOz8t>oi$:w35BWfI&l&K$WB]*cgKãU"ul$IbqK2.^V)5hhpFrwr>)D.un:NHYGa*-zNNHg?50u6_((=co4ZI3I&'P$J1[)ãU"pvQpG\RBK]2jpPk/b&Jkc5F'4A&W*8_K9GZ\c7rGG_BPCT58/z1&Xz?v3*[VDN*ãU"7)RvJIvtS5j>%h)DzmEiFYEruXG)3>'Cs)dkBcK:yKqzWi0iC%N5)I)S$t+Hi0xãU"_4u',zFrPAX'LsJ9CMDUShmA'Q%%v'kYK_v-V[lk[Lthp&'5J%d,JcMg>o3*)ZCãU".6V*0t=wnl0uMWGgDBFSbB$/SFr.IJLv+X#pW&5s>OX8Sv?x(-D/mNNFK4IEjIrãU"uBXOO\5xSI3#2_Q8SX\<(ttIi5s>feãU"ka(DZ2e7A^$(zGX>Llf)ECDMZ]0$6sãU"=3hb^[yeYP#n=qREC6%5-T=I2p$nh5ClesO6KoeqhrRTCuQs?WQKYsNk>C:MB*RãU"nbGx%85.KZ,z/f/sgqBV3pdEAdCtP:i,%-I'oZyAG:D#lbd'j=^?/Xm+4jFJAY8BãU"+u84:'Nzk-38LacVR\&llUMsMa==6S#(Sa^;*g715QI[<>HkVm<>IdBnFaX5bup*IvTnZZDFdTgCLiacg96aqe5Yq>k?BG91TãU"$6F36J+nGM0)hn#wQC/m6X;WTTHpV:9'oULDF*dU2j>v.qDxt_9;-Q164Kp,Vg7748kql9*Qweh>;hyo9PQ59DW$TXIhB(-vWf9Ttrd>J;T\;)?ãU"C4rVVn<#EeQd0L9%7e(vrK/?MP)oLLBhQXqDu/$wpTdWX23Ni\q+1DJ\py/.()-aV/z83]cdFPz7Joh26m(U+*T.:l)v=CpFj(ae+/4q*NtTfãU"HZe%nvKLC=+DDMAVyR.H*%E'2Fn8>QNjMU?EmHHF7M?2qbhZ*)&Y5R4=S)'Z,QMãU"l_5xp__N0HG>\K+fnZC5Tf'V7POb%#W16WDFAwt;F\PjT)B=&;7/'>bmY]os\k5ãU"e01dNQ6^kfJ;(bM+%$_s'Z=4X?EilX6H&4npUZ1'2-7N_zUXa*0:Rk.G$CRBsk9ãU"R4)Z,WS/RGG-.%5nCc(q\#0m:emg\[850tx]q0h=+\c%NHQiKq.*##[V,Lk0tVaãU"8F^3Rgx*u6+4jjdqncO$3IXK&&5R=<8%]MB;)mof?alI8t4G+A*.lrZVgOTp)'b8d\,2ojZT(qkJsm2iAãU"#Q+_Kb):q2#%lV,-7C/)R;Ps_KcfP[N&,tk*;ãEND SUBãSUB V7ãU"KBX\46pU,wQ*(A\0(**W)x:$<]E$L2/vt8;>nenC[bxBY;cK4I>vQ_w$+-t*-0+ãU"(.oe\4rTr(TKLb.iXmRFDhdwub_;r8it6#QTx*$')T2mGw3)kl\QJSV,236f6ErãU"Qn*QnE8-39Q1%aeVHRa4ifkC6SFpI>,e/5RtXuI$kXlrMF%#.PZ>u$rv<0Sq5eSãU"nikK(Y5Ql;-H/1^(R:p7J%&[W>0&bm0eO&xW.7HSL8aM]RP:d4zu4Sk&LrDjgtNãU"v0n9=,leG_T+;L:%lzFCnRLh.'_NcU=6O&[GDBC_FniUz1ãU"#MXAWlqVrx>n(AE'$[Uk=uBij2B+4Ou_<&sJ,2El7Tfg([n7T#XrQ:wn]ADK9pmGsR^Eb8tKfãU"0HL%r1'9YnQker6pD+-7Pua)+;C,R\N<5sydchcCoãU"mrS8'eL9,u+9GTRXuQ1'DRO6u>.0)f&2)62IFhnoW\69H/[fbhP%;g)=jMfVprIãU"#H-P#9#vRT*q3Am2051$TI-uXIi:?M&(8)>I3^Gs/0=(^o\k#$?t\1f=Z,Z*XQSãU"&q[6M-:q=6YYjR)07YL\-yBPr-f#UW:o?58s$V)<9cCEZ*p:PeOJgq.BR':c%cHãU"_k)_XuHebK2zF.%70.?yPeR;%soqo3GR/aK;L\H'9eM:\*lY/U)\%sjP<9Z;U^FãU"3Q+6'XysSUO914hy?QwKqJFa^#YU9\J*3Jt%MO$eJo:%x6O=4RveWiNU9tlk.oaãU"l:uqP1Wa/uV>wf-oQbGpDG,BogM\3rQSe*_znKk78MbuMnsr+kE(aYh,.EpW?jOãU"4*hW=18Px.JF:kBHMqH;/9_VCuKK2kkA^NuLoZG]#/dY=0Yk:7Slhw,p+Ypbu1CãU"+X4CP]6z6fL8dgMYbOYb2ov-i$ydaz=x)K:B26mJKgbU#ABM0.M0+VKa;kYT2BtãU"0^jun18gK)rGsPq)^cF]Dmj>BSxv3:n<8v>e'6Kai4Ds,'ps+NeQYe&[/(#DQ#D2TgãU"?tKVWg6j?tbd&.4;gEC)2/+iS=W936DaTa[0lX:uL.WTJVA;j8,RP[W%ER\1t>*ãU",BDnjw1T:<%'61X5mJM5:-/):?uwQav\wfao0JPãU"tfX2-'Y#0K1StY+g+&\e;q3AYl#ec2CS;o1.\7Jz0lQ-\DP^i>5QVGTh6g$:\\1ãU"e,QX1T_-vc&KKs#%1x4qj#j;9im63]GAVa1'u-saZP+P9rHLFuXk>c$bt]fSSQH,au0Gt2Qji+M$PTnUco=_EpObQE[WãU"?SkzsMnj)28;3ej&&R44W7+RPEf,aR5&PeE1Qa84)MMs7Q^lyG\iGtd+lzgrY-:ãU"#K=JDLn.q4R$9hs.Xh$[K*Xt%$,J5eNqDZrC<.8U.o-'O#?AãU"Jf,rL_;Dh$dwVJH[\ZSGob8qYr[TqT/rx$fgY7)oFLeA1^5;Zh(/x5$tqkJS><3ir_l-l?L(]OeãU"z-=ZL2\el$'SA[9+P[pPrHZ_XlL-15grz4^dWBQ2R1L[6pV20DKB>HokKUqFXB4ãU"FN9vnu6W8/mlBQOBt2q:1;]I=Bg(14F^u1$SB;34c1_rx+caby&Be<ãU"mD-u0#4TLJb]Hi(Ox]'jzUvk;hEJ>tNVRW&[-^d0,f#sfq5s]12N2$$0WlsoO([ãU"+'t$cV7BPl60&7mZ2PT[YwsNl\.Y/A.L0]T'[*H5Jl^lE&.pBd\EYY49sw1%NiKãU"vGp$NLC\tSz9gCLB*u5+:RA4_5jQPpeHaX41ZZ9_Tc2K)&AFlFMOH[J>k6)KBR2ãU"9.9(Z$f9j;+[T043C:DMYKOq;/='Tnnm=odcc5yEP)T>u[[y?-*u0&14QãU"<,c],$pnUP]t&RoKvQ+Dvp[cr*C&HO.KVPRh)CQM1oG.6k&yl2v]ed2D3;Kp%eZãU"1?dwB\Ged$J+Lc->>plkY.520<2#.^$2'glLG3j*NiHmr2'Owa6%1^AnpXQQYVbãU"P/cQ2[trQ5dn;,1cXLk9Q(sO/oM)bjuob9ih[KR>Bpumxw%8VBqICtmwu=g\ZB<ãU"#Ka,%pW03\+r_XDU?[p1BQFz=C1%1Xz:NH9n&.ah\n0Isihw97o0*E;E)S)V9D\ãU"5u%t(2tyqN#AKPk.VFX&Q)Gk]TX?4hgeEp]Jd;fJlr*DZb[Df,C&$Q2ãU"vd=RC*'242p/dM.0-3Ur:2+ZRjjqw)W0rSdqY_y/Svr6ht/gt=G6ZJw,-t\h]9pãU"b9D&+r#[nRp/joExdsxb75\jQioY^4kqLa=pORb$tk+398?jp^S:R4XAt:jAexyãU"Hg:Q274-xnYtYL9V(vN/2*(>Xg1JoNjII[FrZN,Qg<3q9aK*xbjLVQ>.3;V6%D%xi7kAQAãU"UaEu003*vCh0yma[j0a(e))*h1A+MS-1IBg#HcHdgy+.tCf,cK\/f$sDS93h7\/ãU"<9n:Gg7KlpTANbujZ0:?#3Xjf1Ak(<$N)k)522Q+D$oZ#R^d;u.KB1z[RRQ9NhK?v9RSEB;XNVV#<1^W)ãU"VJgh7t-ZEXd$KgkIN](smo9*d+Yt^+tM&+L<4n#/BG*^rxNp=<%&o)J4uVWKHZ0ãU"(I#'7jWqY-Nbg3\#JY%K*9r7QQ;KGEV5O,ObcL09ffSC,?TU$Sro^;tV4S8-z9Jz^/KXc97XãU"S*Y=\+;xkuj_Qf.wr\5&w;c^A5&/q(-t<$(B>:7pKQp?Z)HgNMO%w((e[#$55eG2C(]O[H<$IXQ_l7]ps)-qjyãU"I1/6_rUF>e?^IZE130=QK3c'kpW>M;=9euXQ+XN/AN^#;,_70mm2iYL2/KM1m4TãU"t43f%d3Ro91SGw%SUKJ*BP.S#a%XgsoJf(Nu$KKqtK/Y%*.nheX9\1Fo$HCj015Mx?FGurqf\37%_*8Foc:hRf_fEuãU"v'IPl#&GIãU"KdYjw,dt(*_x)lF.r8;ZNN(O64Q>riWs[pec%[?X89*-D&.h_PjMBaFoF^I>5D9=)=;=ãU"dKStJ.:QrKa2MfY8)hjhX,%hnZhCdEFp#C.#G=PW_[mC&?+14-\zQC:w;6d,rf45'=E/$OMEAsK4s^doX$oVGdR)6dk#;X*N-<]T5qW[ãU"xSIeYIE1X#]*fj*l2RX>g;buDmOXh<9p)A2^Q7naF#Ye'X0TEQ([e%gS;,%'dk#ãU";#%IN,u^%;i0x9Amsvl?iIu*,RrZ+q?1Fb[K8>;I5,B5aLNO'LK#m93DO]5MKcH4?h+<]b*+3ãU"7/GXa#S<]pW$kTB(CL7Um[;1$DNpl4t/JpLV6U)BSu;PkSijH#'#'(Q\gX#bW9CãU"fab8>Hi6GskMSdbC/_u7G,Yg1U)44V%o]LEmcãU"T.75nstJC]?AOCAoSzvn^5^H)vAf0%ui\t&54Z2Y8J&>C8Kj#dfOO\/d;ng'CJWãU"j%6\xE/w/m8s%*MpJz4u7Dl]>X%5o.I&yXW/\a6+h>UYXGr>iq5]Tx19#yPs^NrãU"5_V54&-+iUDj71v^p;-f60m'TmBORY_b[ah(#ebeO,FN40oQOhN#yEhcaimxe0SDdhRt:][UJUf-JHnrq^=qXLkãU"r>A;jbKqZh4aALbN5lU'L([UMXe:&EPWJ2tãU"d3$Dr$RkVH24qUP4I=^hBZtihf-P&?[ihF_5*SmXxK$L^C&qabHd'$1q..1DvBfãU"_ked43?=h9r%DclAdX#D.:jnz\/q^7ed%HEQ+AOH1Re,8Tl$rylUPRrVYxc_P.mHA,+Ofm<.kow/d30Y']R6s-e7J9c^\RpLc1.El0n&jvPZJ:RuKN4+<>ãU"kPvb\KRog;_[kJQff)k\QuZKBDdqNsIp*29Gl70]%wy14kgj^f)EH3G:fX*:P0;ãU"P#Cx\]O>A50LiKw6h%>?Gvn]b/nyaojF;*YO+K7P=lcT:(xqkDJ+31Lj%[gPtytãU"Nn$*r2ci/O)*bHTB=1psskRV&^d)-y(N_uBmh2-)3Jpj=QGNfi-yi#7GU56ppFdãU"qZUr^ZV(NUv\O3>M;=.in(^IUVhJ/P7\CgzggO.lMCzN_c2VhSlo,pGeh,rOZeT84a&nb3ãU"&PPAm?j>-KW:YmlUKHJQ6am,_\B,uf/Ol44Fr#[UNdWf]\;UUYyOv^nml$9a*/yãU"2Azsa3wSq*jSc(5+-xs3MvaE:h0ko-^BM$EF0L;naZ,y6GxaFV7+Jn&[H3M/\c-ãU"IgsCX9_s(lOr$TC8Do;?06Gd*/VVosJ=?PS%vZc:lL^xtU2-+wal&qc'i(aET[tãU"R*NW0A(l6sYE;tKD:FrM(ONnbmFCP^_mwrf1*3$O8r[pn>m;O*#)=[&;P+,Q<7EãU"Bg#CrW1)7\4bva$mV_o,VJ8mJnbH5-a0?]'h,[iAH'u1ePmT;\tGHvL,8s\VDqNãU"jn.6SHx:b;jQn^Nn;Zk4bZV&CbDPgh=EV'ãU"vlmtc]+Rg2gj6s&6bDlG+r\Z2a3Q*P5bf7bQS:/i8fr4e:4>dVp%moAJadw6sHGãU"Y?\MC'PcF+K#)x1n)JS+-i1w/Ska*?uv18h10rHAsJohs^0:+Uqr<5=;0A6jV.hãU"[C>bltrC7tfgpbqOD/'&d/Wfm[&8-cEk/+;+J#-Y8Qc5.vtx^T*#z&vBsTv*mq:ãU"IR/EE3HLVzk5x%'htcdUyNb5Jf$?D'fLkk=_\\/*8BXUo,G%Vi8CL*ElxYK..%8ãU"0+KC*G9H8Cq1'//wZ%jq%6v0=8m6HnH/%;T%)Y/+Z[ãU"+xYvb=Keg>wb&)0kp=omcrJN>(_lBu>aGfRN])VUP$VFpy:3#9TsU[Jkcg8fRm4ãU"00?CXU?ojA-pR[OUtld?'3+qE&bhFO]oIL>TU#%F'*jdTKSiTqETkSs$w3TvxP9djQzInOãU"R.cO#>TphsAUf#:8\Im0p;7V2u#hEPo2'\J;tX4pk;d=*OIZ-*\dqV?8$6d>3v(ãU"1u'Y'bW4PaGm.,:'cVDwfn06Y>l(LVU$mj(ãU"gQK%6&AX%t:A2/]lW4ATaAkvC7Eh't'N:N2DFQ)s2a*8+uFC/Nvz4^\BX-CmkdbãU"5m-fROXUN1_P8eg#bZ?Se8?\%2J8RAx%3hI\(rS<(u&GXKQoo,/ZpWK.J$-rq=RãU"kjCb2W1uMtcB'I^Kb>/>FR#[n*\#_b2fXy.EL<5oY4DAL^D'nQahGBOO2uKof0\ãU"frZ0P>&d_gOJOX\&J&487M)&++ESbem^xMTqqyS_bM1&z-^qC';IRUj$[j/pN<2ãU"1,zD'C=WN.#Un.Bg]#L)Bbht%LGZr-O)LJãU"?il+*Y,.euIC+?][_^1JOhrg^RJ*qntD:Qs>^%gI8mZ45ZF:7t/mNiBtsuwOSGRãU"7SrJ1JXjXu:/tttm\dcBs2_z9u_eMj$:scuUGe4bh;p/EcsYca,8[M;x0pD(35AãU"#oR._CA6Nlg8KAuWr.i,7pw'>Y+KAVtVB:Ew3ZZXPAaU>$?.*3O(EU&7(wjq(-)ãU"t91Nfm)yMF:08'U$3;J;Qn_UH,4_#h)tF[-?.#D4fDv:^J7UFw+>R]7(Pwakm-qIa'>5IIL+pggWHQT6ãU"K_ovFr6LV6tBXW^)aieY;?SO&qZzZt.tBV:;C=;]wZ:VCX5wITtw=Y[Hd4.PB\LãU"kT0p_P/oo#rFnD?RI)tbE*o?[=*7^tc8_6\+dsBO8'4az>0&ns*%z#84A:BSqklãU"Oq8+VBGq6tsRdTY#&b4P=:'PlGlT/3iMM5Yf^e/E9IdC9+,nRZtFQãU"_Fv;0UK=xT%T97a$#s.^=u(kU/9kgABF]ch2oYog\5ãU"[5OFT)67$oVZ9P)Z2%Va>PKXo)#uDdw9xL[B$tUhfN2Oo+cyNTulkg$F=2]?IG+ãU"$3Sw3'ebiCh0tj[B^jBu\1J]Ts+suiZe)6kPdALTbd?m.HE[y^OPxN(A&&B4E+CãU"F2%V-nm[-)-:uRYg9u3444u4444?44d$6VvLXMP4f4ZVVVL?pN6zsbZvx=^e;nIãU"KX,.lR&*N=:J\aEcB&%QNGba&wxyL%N2V6$(#-0)1c.QKU(_Gc-cA1)SMR&Et;uãU"0I$Vr96f=I#SfQt($'at9X(p<3a#/#.d82OPoN_N5F:cH^yC,+uG-7e=B<9lFlQg.YlL7'G8(ãU"Jk#^0&D,S>J&BPc,DV-6bf=l:M+]R&btkY0X,.cC'P)=E),FIooDU[Ip?b%'AyJãU"cp_?_WFHc>Q[YVi/0>Op:>[yWy%dC^,_X5%yB9$CZ/$W&na6$5V.$Q&d'c=HãU"8_=YgF0JYE)HZF-)R-L+[iN^&_vQãU"0w)92lg+1jBi\5,5]s8QB#M\B?kI5klr?rMA]%iTDx/9Jxs#v+m9Ilm*A?k,$T+ãU"4.6,f.eXv-IAW#b%//_%D]9)VpXTPauIJXuH_x,bYBQ944qQvkE9?wUGWUG]L+5ãU"Y=q&8*7+1AfOvOLm9lJ,)$V2n2_4DIxR>^Q3%5*I?wiP_]CvKj08H=WGC\>dGs)ãU"3D[KET0^3&O8Q5x-96U1-f1kI2\B#0QH2&^'f;8(I9XMah3yS?d^>OW^F+o&s>?ãU"Z+>RMfB9SqloN?8=eh$jSG'=R7*8:(L/'Yw[&^iqYHV:jP>d)lCK2\V):):]*gHOGI^pRC_FN]>c9uE&YmwyU5^ngF*f3)WvkãU"*]dxMZ[>d?C]M5xQoSHEXSYjC=$es2tF;/hH5&_-M*[t47F3^w2V#h5%)j$?O(BãU"?[2v6B#ZjP1J:7&bVm4=x>S]dBYw,XYd1q<;8#BWO-EA,_;>+Q=IW&KI#C9Au#fãU"p?HaUAG-]nj-1Gud%B4+Gn'U6MZC-u9[,bkYW[4aPK9Aa5IKTygO/O'LU,ImhãU"ff%I;w_BPh4']rG#7v*1.f_tc1;7GboC)>=6Ap.e,Bud6o:6T*7YimA,fdCLUmBãU"gPB3$+E>N=z5yr5b=,[_9ZA6)aFG=lmN;N.S7%OGfRtWsF;E8Rv:reL)>r&V8f$]&K]6m1^5_oSPnrqFVrãU"[V$aG:=-K;h]B5fu0dI2]6XXo6Bzmp'?]8./,f-\HNoSbHDr?^S9&=sp]*E?4&u5L]E^(]:ãU"WD]klQJ'PmXg^pxi(dfN?mW?N8=_pkQCãU"=9RtVrC^51>XRCq8mh-&A;fC$tR0)Uk$W9X?wY/j(OTxCBc9?n/D<'<8SKICãU"2X%/_1'1'V3a_lcN[k*U%bEVqI/lJReWmt'SaJ/sSAjVJ0?S1q]qfN_,omtzJtlãU"*.m]nI][3*FQR74gb]dKnk7g4k:0ALM)m\']n2G\>GC(+t*rdT*^%GoP6Z0m8Lc;(sLJ<'k;ãU"C7-fMGQYsoUH^JZWD)*f-OcjmBI*'b_z77k*sLEELr>f3:HeO[ecdv:#<7,+m5EãU"[y6s1n09n:6;YIKaNR5aNPZ6bV[\*In>)8mCmDY+--hyGXDUn)S+K3m\yaA#h%Kw1)AUpcl=Z1tyT,QAR_mIDãU"c/YmO*)Y]f-k=.Ux<9]h-eOjP]E^]iM(]D)b4Em9k_1rgbadmVL_ãU"f)ABil^tGRCCP_1CPYCQ=TcF[xS#)Kwm_ucM.ENz)IUG$*0rM-DaãU"/K(8qS#+DEWy)Lanq7zVQJ_9z^F,G>1XSKFI;(Uqv*nNK:DOT9oas]MZ[V*c+#2ãU"knOsRpDfH+:-brG_&*Pl/nq)*Sn9]Gcx%Qik,m4K^Rf,n-FJãU"k2+\Q?_AM)h2Tw*,0txnY2d&)?Mz6E'IdL-&MZ1HBjn>NHeny8RJE+V(G-l'El1ãU"v3+7tc/)wVz1$]GTJde+?F5YN/)3D6/kj\#v/km(K[t^SBE7J,qãU"#&V)$eP>p[hCel*LbdkX+-t#:?tbc%^R7#QZAmudcMr8YJ*1GQ,ePn+p'^%xYaRãU"p;;J%p*XAi.UFUq7I1+Idqpio9Fh&89Zn*_4Xu7GT_ok/nL4>[?7lDU>BZDL\W.5G=CwtcLcNS.%x\:78n?KO,mlZ./?D'pnr2;DãU"7\]mZ0U3F5b$kOs&\Dol&=g6CMU:%ir;LYVr:4DZdO6JNpYYYJ[Yqsi8lbtH]rgãU"pLu(((#zzz,),,xxgx**TJrl^mpbJONuNncNtz777hppp*l**Fh'WrrrZFFFLQsãU"m88t8bT0k>8Mvh)**tHphd/39OP(s,/..#2?Ywl66LiHY:hU#1>_Cla)0<&U4DcãU"P1=W$.Hl]?pZ92^tedaad=bImegV2?A]B$=uU1j\0#tgUY0[=XAbKriUaHkc.NxãU"usel_W5?rl$Tk')/rN^f.0JT:%+PãU"#>d%V)8^dM&-4dLz%,DQNN%*YãU"vZnPX/\R2[U5?<\[WS7\\O\W3bRr[VCcLF[T>;lF\3X1ZRl/UADZ&/S9ud&0Wh5ãU"jxcvpdY&O(3a6i9R3X_aYRR4c]_[h3bm-I<3$?eiãU"<44d[WHn]akA_r]_c3ar^cN_g2]sboQ\n]$gq$\^dZ&S8sa6j=bsX_b]bRtc^c[ãU"xsbn-MLs$?fmLt4d\[XoGalEc,G_d?e,Hci$kBGsbpUloG$huulH8Y\Q0S56i;ZãU"SZ3a[ZXT7]ampS6mcKDS4?ekDT68[YPu'5kCtz'3crcz(7i_i:'u6oSdu'4gsudãU"(8ZeU#=5Qj?j=Z3b_jY>7^eq*=6nlOT=4ZfoT>68\]$ug5lGu4g3dug4h7i$mJgãU"u6pWtug4hwlthNYAP,CK6i:VCYIaZVUDM]$dlCLmHJ#CJ?ej#D5N[XLqmKkBhvmãU"IcNbvnMi_h6wBlDQrkDGHh#h-na2s8)Q.;ptwq66$;&T0g<.KbMtf-MQr^&-YH^N&q.Lf.iP-NvTn\WGc\F\XtKd&ãU"0rWMtfkFWH$WVFXLuh6pW>Nxv4scqY7r_rT>8vug4h7?xwtDtMqZ#pDNubhvnMwQr$.MZr^P.ãU"tNvf0rXMxvopdwqc\Hdxuud(8uwwthtNwr$rXNxv%Tup(%)9%%[%-%-C1TGZW0DãU";K]B%%T'k%%-%%%%g%rfuSIuh'k<561:)&eJM?W6ZHpskiWu#.Hk1eO_h.'.PA2ãU"a_FN\bN.hAl5WG/_&Pu%o]&gmKzRVtdLNN]VZdk_lVW,r3yKEZMu(yowXXugN44ãU"rbyc$dmWbXuODqc?ZX^WWtB[e6iP-:fbc2^[j2qDtVknX?g4MNprVF8vrf>x_Y>ãU"w_Fu8tVXuwfXwuVXvVuXxvXcxu%rV\5g6=FTSgXdB3u0WWB=bR_^*8t.26JZ3TUHQ[(lg5TL9'HQAFãU"NK;:rt9ck(Hyg2q]I'G_Xk7a*/uI_Z$G,KcN^k_.-Hqu[-o:T1Byjr8=iP]+G1yãU"u'?ProK$sg=e(5]p1'Ty/1TZII(v.P.hs5q0fM3Y3MIsN2hqmLICV46='P/aãU"6GafI;q4E1QFPaMeZ_9Wg44p)bl=4\EIAy-3,W2_PH^z1(hc*vEIZ_UmG=hcCjrBe&8BO%KrJãU"ZYsMAi1tFnA>x#Q^i\U2ãU"Z1iGmMjFO6GfbgRi?_QF(Xj)jivKT5Gs=.5_UD*p:a+r,#M]D(Dq(*-kkxC23zY\KnE3mMVcai+=y+#L[yV48-Eg-<-sJ;-?ãU"5eIGw>ca70A.X]BBxA\x_9J6Q688V>/nY)2'9=r2B>Duo#P0#Z3AVFDW\P-D%2LãU"pEgk%0rvFAQZzi-fjYI>agDO):]Yy46T[JItXu.eK#G\y2H1B;dgkSY1#RjIãU"pk;i%I(WcK2T;oH3_*1];G)J[2cPOy>f-9*$3EXMM:MPaF6s%]Bghf<_dRAv/_69CN.mU)8Fi5IwPiVdH3Ndj?'hX.fãU"FbZwX=UHhq##IGupo)3%/?O8m1[:Js:C9/s=g6:0ka^6WD7d_YklQYDCx,W1E4CãU"YehIH6MGsVmtN.yS](m,)G/v[cg(:30fN>C]9nUeeEI8pn$FK7th1YiB?gG6fO=ãU"UK+_)&tKvRbnJHdbuD,ETYZ-Nl+zi6P/b]'nJbiDAel<_SgGQZ>u=6gm$Q_aM3IãU"CRK6EqO#$b8J/P[5tTE>70TC^qDhc-#QP-x=)VE:?;$6EãU",-9)98vG\007biNq=lnA_?U4]l3o.uI3TFfgLudR.5D4ndybA5?f->%n;$E3UQtãU":Q;bzLSXm1pXKAn/Dha*^p:M3rJ=*-:rKqb\g/+x$W]Owk]tãU"15Fe]Ig%DYEWks;U;_sIA*MW$i47Ja6anH*LWR_%6Gj2\7Aw>74HXPRg;Z++PS-ãU"jF_pgP83QF1-JiypCLisQX7t=cQ/O79M]TS5JwI?IGtG7.'(8AGcT%B03dhXz8^ãU"sTr=fKKw,po.Yh^A'Xr(j<5pJ17kLSVNãU"F18S..H\6qahM0^qvInDwp>arb'2(C?jOb8zC3d=9fghXtW,'gãU"XZjh,-sm\jYaW9QZjwiOLCa6>E\E3hy_.w%)se9=78mYjK(K_GX^Pn/5P&bliiyãU"tmL]RP=rCkM)\J[LQlN,^i%GGftZ1Ftrgo3;jg,d#Xs(O<1P%4KJDk(n-='Q_QVãU"U])]'s1]PL'p^]GOmP=1n8YA;HuxgrmmrQh,Rhfh3x&41#j8Jh632FFvJM9/,biãU"Ap>.>Dk7#BV6Mwz]:1h%NY_w#QO7#5'ot,X>N6F7BviKOyx.M*hf(3']o3d2yVM^w,VãU"I.#rY-LFW/Q&vF[jGiTK<$Si>n);Tx)n(IuD%dDA[C:VoKLYj%rZfmPRKl^9fB(ãU"]88pVF_4J.45M_Yf+n6%9*]?lV(+CDAf%i=MoJj9h2vo,WHmd5:InT(,pIoKA.\ãU"[-\1P6s)dbGX.W.NPU:,k$/viqcTIO7IsjN^x3n_'6Rd#$eY9PF-%VjQtn/4k-TãU"OOo3OT0HHu3.:dr33^JiPc,DXH/dtQnIf35DBgshd-sy:C#.Wpb2[gbx(hIt7C_ãU"if*c7A..>?tuVTp+Z;Q.Y9O(>J-XWJMXGkB$%laKBUghTv2'p2wirjIi[6MWoj:ãU"ALGyU-jVRmrNRn0L&Pqjzk/Z21p$.\$#ma:5ZQeYMiNJ31XcMxhP:,RJ*5c^m'iãU"Bp\7QLa^DQsXM-fH,XqN0c&0;(\\QRL)dAS0&Gf[9ãU"*;?UJN=?ZQ]P[)97]hHMMvhmYV+;a5P9_$;Add>miVF578jBuiLh[Vm+i%ãU"gZZb.:p,Rt4Ap_IqQ0tXNZ+$1EpO2>>4uCm.:pJEuI&Jl3D?uYMl#l4B-,jcr\eãU")uaOmZaevR,38F?uAwhr#VXqMJh^tkFE/eZSY,R/>Dgbumgjv&:/;U=O4?RCDmaãU"?Zem*:MR:V]1C*+]Z/9MYO101DT%T#n:73d)^pznAKH1bhRNVN7dxWK_fXr3.G=Sgb/cb*/Sc%YS]aq=WQU0p6KDSvIlSx+*a;.LTNãU"CktGb#FOs67fdImu(NC(BCaq8dx;/lrSO^8i6BMWUIUlMdUjE;v$Wd)K/Og7;LeãU"C;TZ1^#i?vYSeFc#an22Xs3OTPO+*qrsDZvk0SEA2#v01m3t.5,DJBB\J[F?Fj3ãU"hz+/i7>J_u*=7>u=/%K5#9yQ#]3A7OvMe\/H2L(HyK0CW#u8X_\fq+H/Ij9&ãU"ti<3oU\DK8$(h:#ZikFxAiVM/Mc1mY+Oeyz'sK.fax+/sf&$&1MjZFZ3fuLcZZ#ãU"[5nlZrbe/_hui+ZMo^7M=q#q\sNTwBbEl1dYp&neNX'RR?t\kb(_h8.AAcJI0R.ãU"RuPJ2Cp]zL0gyi[T^vi2B9j=.GFTl=y/\QPXLm)I;#j_TgO%bKJl_0'GJ>fBwV=ãU"u42qPQEo2f(R#5$l)wH;vMcXh<$<(o)U6rnzN8ãU"[AA5]BA1Xb7\y:ngrk>8OeEi0\/Mq[?QAnIE[UPVgLac&'dT:nCV8EB,8'Z]_fTãU"dq0,foPA5YV9ll1hxCr%(rd)$0UZxD:JjWLH>C94pfO#C'1[y.V,2ydo/LZGTYgãU"e$x;LZiUse:jcN;ekTCO&7cX?vb(+Jvr1'5mAJ_qVTv^]fy=Z[IvW6#Qb$+ob=ZãU"J.P*m_UabP;&POgxIsr<'+Cw]Wg%xc1\M)0N?<*'pNruoAQou%Ok6cy/6(#I9nwãU"7^])h(ax04dS-3Pgp4jN5B>6QEZZuhxMj2qsL1rwolF)h3N9wxu\ouZE[&n<\>,XqNQ8*M:RR7McZS'lbnIRQo4xrobm51L65\9-7P,gDTKP*]L4JhY?AaCG,^51AT%crlZR:N6I6GjY9:jZ=a';'f5a;QpCdpsDL'F8NLjJ,sE,ãU"8Cbx;MHqFCnb1*6l,0W2ll65\2Q)G$ZV\u0,_1WN#GB'5m7Dw'.m2y^5hxLke$_ãU"C((FhWE[.#oPZ+R=j*)hd#v$B=]YOX4'wBy;t57>DV/00cE9snkIOz:$#mXx:=rãU"E8[mU9Nm^A-s'12C=3sD1YOrO-He(Ry.;,pO'kh4Eim1oWaEFMãU"xuDxZGi;T]c9C?g:3-O+8wpk[S$Qn%59/hgH_1?Uo*T.C3iQPj<]tfIqaQL70rIRIM=>%a&HãU"-H_#'uq#jC02[_e%#VY)mCh2ae\tOqLx$4-0ãU".1;2hv'(6#2d#>+Dq0Z1Du)=*b*:L5_To(,^Ht5wTnqw6e$9P+$']FZq#NHUzhaãU"v3;Q%$N-2iUu;-;#f*m,i,2a%\E4d^Wce*(aNGd,T(#+?W((,oRUSxc[SE,n;dBãU"iq7NaLk'7jxK)Vm[:l3hjh<8sdlP8^ãU"CK-Y2wp,2BmQ&[h(vvV)Wi0_;':Zp$q-Z;ll^GJg(792oxtgL#)xUGmNalDhPlCãU"VX+h)CWgKi;,[h,C7.&O1#\LC7CFj\WdowN-52cl=3.p(uc:Ia#=gPIVO'-*x?NãU".*8a6qIDXBFM:j(N80L/pp5Z1rgC'D(*0VUNb>X+(BPBJyoq\Vo[l_j.2/h]E)3ãU"jI=pu?9i?9VSretp8H(O+?/NP1YPS'ICDzxB[1Q[m]l&sOjQyqA&vqN)lwjE$Z2ãU"qhk;sE)In8wV5SDY/'J)Gz0EnXX)8gaV/Ys92cHXt$#Y^4i_\stH6urn2RO%iuSãU"s^3nncN^NF?3+'FouHZF>B)qãU"O[&T/D2]Vr\=c6%QDgCOayT3)1COiPAH\ESoS*S]/>T_reMdm&RgxX(moN&#eo9ãU"#\0WPOoW]>a,TADVB9[rl&=6C2C-wv]aYe1\d:%Zb(PvOOQ\iUcS]>$GbvXNKjLãU"R]CH9A]],lGYVKi?OgjKb3oMtAjF1XE/fJ*e5]La':IXFVE;89K'%<_bbãU"R];Nr0^g_R'OFl]>^p=aPL7UA&A)lYAdbhZca'ni$9F7$wCp1YL_)Jh-Y7OG'CrRIOCSfPH)KaOeenhHzz#t73[51B]HcãU"[Jax:MqGd]m[yo0iK1ea;wOccDz>;5Ia#B>lvf9HãU"4U2i>U6Y]o5j%Oz-FN1PP\2'%G\P[am%)[18a'JMOP#v16\dx2YSDEX6j1_eq(KãU";f?A=nU&QA7wA#J9#9mh(6HD8C-H.dazp<[Mrek^%;T3)%-.$qp$237B#7O6N=UãU"CbU5?.;Wuog&7T5=(9+p)-nU41%MUcf88'2W/)6Wh\YL$-6/FERpEXa/-BF/)h\ãU"lo0**uUG%FT>3c9+;o)4NY&Inn[uSSrNjVYht97P+not,XKt2rBZA/VnVo8cgY0ãU"n+4e-miaS':oa0G-I0vuSsvfQ,.KQ,1p6_<%2$/YBW/L>:w8[$Lw_Qa\fJ;0bDRãU"(f^RQe.7zPlR1n&+?E1uz88dDMFTm*m$XyL\_E1mOyC_Rwt9juK=9FR0r_761]>ãU"ZF=^R'\;B$_QV)sLaFs'.2wjN]g6Y%YUIL^v,OOAUIk%Efg5sOYBt7I+FGHCV4EãU"VIqDCB(8+$2NSurJ[kh;+EKr&iA/S?b(?U>F9>#MR6+=p5&xI&gd#;qSj2JsvOnãU"TBdF5.URp+trYpX9%Iqo9KFX'mn('S\ip([UE(&A(mj7-fL6(PRGSZ*:Z7S=]/9ãU"jMMA:%-+-^;qD&A%4)]tgsL&Nm(b>vC-kBsnd4JDH0,g8Kk?-zEIf)5:^WiE;%9ãU"IZ2%l9+_#hxmNcsO_tts&r.J>8ET/Y0C'ei0_XsKg*9aLL#OPZ7^U7yJ.)*q0]ãU"/)ZGF52cuigMwuM;]dqVJlot7rehCR(B$zXk:\Dl'Lo)(;t3&KFRHmQ])>I_EAeãU"#]-Gz+eU^nXM\P(cUy$ao]6'+tfq%u\pb3C1TZnT6=0IFh'%9=6JElf52Q&7%%OãU"i?K;2CiR'[IIc/t?5OF8%<2H9IWng2Lr\zeJiexRd15GY&+XXTI-z[EA/eW_W5%ãU"0iC'V2*ae]tW]S4F$2ikeR1A>6.L9n_Cm7cboReEdt3ZEuuM;xt(8-%/XTP&FCgãU"OJye61ES]:-p#=#rgB566CciãU"DjtN'^nuK'dUGt/4L$5e&,.MWu.NEk4mP=-N3;x5:Lf$Y<^7MyAqw&a*c]Ss[1MãU"RAF2v*75ac'8^ix#C,0VJeFD\v%1Vn9z17D;U./sf]6'=BYJd:W-1r=gdtWBs*1ãU"S8D5(KQ^z_6TFT*3q/G_M9fJ,X-aXJ<0MQsN(^T2%ezv?g#=p0&u%8(*ca82jSrãU"bR5u+.0C':o[3EzY+X-w6BCoijKiMGYBA#ZEoQG=Uh&ABE#Hj5*e[ãU"LoZKF%*gLkplR%cu%?3F%eM25n#rQ9m#1;u-[tw$a^ãU"$-ZOBkrN?L5]TqiOW5)d;On_1W3VECBFfd%Meh1OR0bj%HqZZeMi;G&Pj%cC?'IãU"[K9yd'[CvBB1qATXqkEa/f:iTYsVd-K%lyxfSBS4/06$XoCkhfBa*SO5C0t'%F3ãU"-[?ml&BP.Trwy[Sg6^(xSjlqfg:d2Esw>QPMTUM-TaIvãU"M>QiUKd57$+g^d\J('H4osJ,NIJi24uVWkQ_.Zv\b^CQ)*;SufN%YtAyE*-6ãU"i<'io%)R+mvFu[z\ChqU8-VfVW%[Q4Mb-aPLBKE>G:W-OjMf[FWBg=)qJ?)#as.ãU"_Eh-w\hW%5/L$Ad6ZU7;?_#iUQu-g.&j#OQW3ãU"T?pSrg#E;?m,[gUr58lo$.*\hlQ2HHTãU"7\/=k)4#fhuLJ/ZeU*=WveVJ<0<::rO=Q-kM$e&u4WQ/YBT*7BbSW2Vr0JlG$n:[hlV54Lk]f*OZhQ30Hv/Rjp\;X-5=#m2b;v?UZE/.;$LãU"]\WlS+=vh5UjRW32ljNh/T*p\=R4b6#F/td&V7>DF32j$o;VE5L8*f,:F2PãU"Y<#HFYlvV/_nf0dZTZU9]cb6#p$wNDsD..zl%ãU"_2iZPnOWblNpnvZeC$&pTKnFMf.LM?je>TiGLIoH[rPfUS-3K-n,pA&pntNjF$j,fUS-1GQr;&fEH,cJ?wD(S9+0e7r4?w;jMSbãU"T*p$pT+v_*kTTSt+uuDmP<'Y=[Qrple[v$gSKHw-K^0Ng,Tl82GrHc$XNSTLkNFBA*5J)JZBBKBXxhfF$O(r16=#xãU"14]=]I)20NUBW&cgRjJYBOq;OPa*K7'&td8jTrnU=gIPaY]%%W=D8OlãEND SUBãSUB V9ãU"n/L)Zg\7Tl1a,DYSp%VdUm9gp2hE2GUm$%4_2X*r7f:-]]JiRl0FWOcC6qj0X[AãU"2qED/ORuTD+&BCW2#8sfd*'>y&QBPR:sG_'.^Ly8W_GB_ESH.=MB&zGaA73[+;SãU"I*QcFOH*&Jcy7)YdUh3$EYMh$4?29QFZhP'D)4a,W$-nP8IE;N>879#%r'=Rx+VãU"$-VQ.)W2p0/G/cRgQrVNH.f?hN7P:$.M*4[SCw^iJo&YUe)xdIH*/ri^ssvcSJvYtSOB)kJgVRx2Z'pVpCgiNãU".]xuiAAXto:fOx%N:nHabmDw:*;ELX*)PJ)8S/=(%M'mY4[-'\3g\rbb\tC9k&aãU"zkp2qT7h8yv;*B7$WZ=wI=hYX:D.'DYYm2f<;:/_Tee/f4Mi\rLCRAY*a/et3nEãU"ZRPt5]=Z*q;g\b<%SC*EP$f/wYj3Is\e&TCBINHUOE/I4pdf.U7Sz'VUlEKmPe]Uhte=itm_RãU"kI:PK'n=^7:\#A6+'f5w$/QM//sp%jUrk_R/\9eQ]lQjud]&mIãU"v^#6IVPXR/5XRTj^H5ECok%0O/8LsW/+D)-)o^[[]fl[/^C8;3alb)^ãU"8')v_+%DL+8]Q9$:KWiv0_0/AWoq3A-Corb31n_NGc*swp?2V*[nnnkSe*S0XWI%pB([FD\/#KSãU"a><1TN3jS4b*\rPggrO#'aHu6%az,vJgx1d(I[=BOP<=cP]/*ZD>*WLcT+:pu'7ãU"fo6tg,[Q8X\y_wT8D^YxsS16[;hUz%lB_GGhVIklR-EDy.7RKAE%BbU2=K[Eci0ãU"3k0:&Sb[[.hvg(/V3WM3QRD8Gd'hH<:EM6#6GNPbNtZd5Zu;L9pk[fãU"9qV<-GWBJFR+MuD=qMcVDL#m;z&bGw/u$)1Q[G2WZ=+E_uxu(cKj7ag;0mSo\-HãU"q_'MeROo9H*198Nb-0wQr?VH48^eG9WO_]ee<^0U506Tp5=44^VJCNzM:-L0uvLãU"H(tN^rN6Dg)U>h^)hN+W2I+\_1\',M(.hr'wG)i&_W%?[M&'+eG*A6yt[Vu&1wDãU"1LII:=X<)1cROxho)Vfm%sw'NPsLeqiPGUZW1OOnN0/p]92WQQH[piC9&-3&AGPPDRB/ouYMuJLqmIiWNt>h-mY+3'Q:4A+Lhgte()<*_j/LXeR(c^PãU"huVyg7+9?'L6vztkP*bYW)&Upf&pR&j7q/Q[g6zh'^R[b*he$CkG_t.m#[gUE-0ãU"DJP:PmhlX0DF$l^d1Qk_#_BPmfh1B\e6ãU"Cokbs.Bh?knwZfM6=-X2*PNs#ROOt3ET;'5^6.2D%;2YnsYN1drl=fSNRQ*=t,2ãU"cRjZ(;WQ*tl2]hC$i1;JVB)LfBcYHsvbK#dGF-#DtcYAX[H0f5$Lp/r\/2ePT1/ãU"'PXIiVR&G_(0q%vd<&Ls:ãU"?*.I^qEp=93\$2fR/Pdl%.sgt\.q-Ry5F9*WoX/;jM=0JeK&pybr=([+[MZi?0DãU"ikJfuQKa^u$VR)_C0,(Ct*\r&'n[KO\]mV/vGk?4ubLsdum;T>tHkn5LXVr86d3ãU"u$h4*XS,AB.a1;U#Ub++qb1931%.(:hh((YfTq,ZU)RSi*Z*hL&'w3P#.g'=#7TãU"=qDcsZH0P8:[?gQ.4js02eX(oBx'p4BcqACx7B03DJ-hE4duri=JqF-XiiCytL2ãU"H[-Bb7JOc.=;wY8[EElL^Z1g^=oid1UbPi9)l$hX6?Bo,#V*b5]kzW%6h&uU3/ãU"^Y&*M]UI+fL#eVHBhCcI?ua4,ZWQ6/.)s$#_/TGãU"THjTJ[pBuL][Acs3E.;LT7hk_=gny/.\g'Ud:CM[KPOCm:0;R^URyYqqVCYts(KãU"I0,D=H4e2Y/1a4L$[xG;=CJ-xOyQi/8;/ãU",pIigi0I6Aw_:XhKueofUEezLv3r.]f]MDZwEnkjrqk,H>QHrO6Eq;rjQj+U%^(:kEV(2vsxnDQ:VXL&hpx\s)mq:z.$Xj\Dg83e44?9&K&P?g:zãU"CTvMegkwY'G4G&cg%S?4$]o%sra=&RMeqT)7U#ADSEw>5VYkB4n^c0$cQ#<8r3IZ=P$V:n5HuãU"XLS&bA%ZWvibmtdwMu,H&Rt#]]r?(x<\_.+cj6?36D/+VNOPVfYYca%9H\c91&8ãU"Sm==^)PvT(kClz)O=l02)H_eAF(a6unUrDWhNcJGjW]Ml[vR4s\7kEicdzgW4JwãU"+6YY#Ad*1(Nufw;Tq>)-i]O:t(uRwO4mdapjrBRtpr%NeGR#P9GaLFE'gI8WW?UãU"Ht8cfSnK%[QPuEu/.CDYE3Jgf9Os'MPm_SAKãU"Z=i-Wz2g4LNt5jhL'Xcem*hjn.6P3jQxHBWiziVhFdMqtZ>q(AxLuXXoGTbFJClãU"bm$Ps\xYbVJem0-1;a89NVX&9dnSPiTrlCED0ayHkMj-BJ:iS#BlS]VV.G*Z5eZãU"6t-T)tr&2#XuX8p^t,6mc]+dK.lf\En)6#>aC,mP+o9e=.;rH*e9l:0-XQouYx#O2Q'p;/eLTitB_RG/9WAFo10QOãU"VxtopdvC&]hLsVLK_VmDBQiHMkjlSE2DED)7'>$;#-I&8>Wr]S*'R:qUn7E,dsWãU"TBcETOJ2rH2Q4z/^)&3*)*5N;Q\9Qup8jC3C#ijvcGLGhT1oLQbbI,Z%)6<[O/<ãU"6]tf)%g*p9m^cqVjSk]^p/I#5ERS/gwQ6,AU(dKMz-l,]xPat+0$jcr/hD:^T.ZãU"MCYX'\(=?cjI/P'#Q6?>vo&tXapkeR(LGkUb^;KZ_I?v]6t4mDdm?*GDTb?p=k[5a,po[hnD;(MãU"XVsj.hd#kb)q3=<_&*P;Jl^u'Rj?A$4d5nnCXnH[kjbXz]]4\Q&d)2PgIz]YMzUãU"/YJ?&()]TYLJQaXI;*Y,c]ssD&A%Xq,d4fKg]h=Y&2io'Oy:_$d0rzNeUQeM?VMãU"M&X-ãU"ps$gC)Et8qSiR^oe*MC.]Ikn<ãU"UCgPZqB[p97F:[AMH4SX[Y>jC<-/I1#rzWoe5#_W/KULFtGIZun,CsiUK:9]0=3ãU"ZU,QC(-D_U]-/=)J58U'LQU2DFC.F#09n'DZf-O5:4ObX2or6z8xYnxL^scWp6-T#h8[JNOlKb*ZuMu>*G9\y(ãU"$XZRHA'E+EWut0V6Zc>F>tnwu#$X+]-Q^b*z(IOCDb'2B)+]+(x'0Ur#POiRjj+ãU"ushu?Nfpsc,ZfAFd_DcuY$4O['H5inYj#HTV1la,:oel]Ngf<\.1/2aVNR>e;/O>l*oA>FtqH8/B3:uGKU,CEãU"p;BoMmv1WH]9];W7G.T(gL/Gnkz#IHo,6A)Y,'\GoWeYe1b43%5-g>i\HCrDq/fãU";Z#ljHH;WW7F#Up<%VOY\*:PRKY&IB5+V0&R8-Ghuq:#c8>Aa-]VTDcvkdvrJNvãU"_lEw>i%Z1AT;bLcd+:pEULDYW\Z4d/*q=k')CYRK4;>1Bhu(ex]QchLLZZãU"aS4G2Vu#df$09#&:AH1(SF9:#Ec*)8:]HsbW8^>$PoA=^ljLOLo=LQbbVf6X*3vãU")n4^/Utgo9=q-pLl$VAPC8^cK0HRZL2'^T]%9+jj:,CMncKbrUGAxp>ek]JZKb9*f4vS/R9KAW?=s=E&'5(C).fBbt6Y\w6=f%AaGP0Ko5d3rIOg+RR%t9et(ãU"+wAShUbLeJ.iGgZ/I#cL:W2Wp#l*Q<.aj#q>*nK_ULlQs,h86ZbB4><%zKF(%RoãU"0446Ev7kGX7n38\rs^)T;hJ.M$uuhxJGNv4n3gH5n:D;)jc,')Og$=RLGrX45)5idmRtuXUDWlQ68l'O2TdZlifBI$[;WãU"C=X2yibJ-S>FklDS,bsR?49TiDlM>OAa(>UD$Aq.-P1l+I'1Dvr.?NlfT4nsuavãU"0/u7kI&/2MEQ]o9(nq(oRUetPnR<-QdrK&6tEam>dDCGo>]bw)A7.2_KBUXUIngc;rFP#T'&o)P*>jGK6HZJZC/5xãU"veQ,?QO9JsWOQa3o:D00hJ=*C\40_X/bk)e#T9_YFH\v#dpaD[a;JãU"vGAuWiY5$wGDEXW.[7*-WB1gi2[#(*J\Y=z-#;sc*dmU\NiVjd2AuH.^]jOjKiNãU"ilAUcAuYLun&4Dh'ZlH/ãU"/-&P/K'_hZ'u7u_3QiQ$c1oNSVseeLFeb6hBWulcc4M>n.q&Pq(tJV10sufrp6rãU"15H:bFX$o3WXbD8l^#SqkIpY$o&C572;i^R=w0/'g+/ORecMZjDXAuNUTbjG%X_ãU"(c:1L<1vQ(z(1xwrR::Vd^]'=Z4c>'a$3':_-''(lJy-cgX>ELHlG'Odqxm9Ba(ãU"0K)gM;[V(A\AT,9if:nhjuoK[l-J?tabDem^#uua:P0r8Mu\k^WIo(kO0i(aYtuãU"t0[LCLAQV0l:PROp_:VsZ;T$Mox4wV>TpOd.]:wQUSvhJWqxnJZXU6:HH'r:rP>ãU"R5P#ve,u,(82>LFc$h>kiaGPtgBpV#XS7H<7c?p?lpA)syg)UYVC/l/BiphBu=2ãU"Rjb'mC9vbF,0DG?pQT#Vm(*?G;34beS,-U]bszfKb$&>YKlAJJvd06mc_nJd,DmãU"s9a1w]Q+^dVq>8:g%-B%Kh9c'9n1XeXlv;mLK$cM6BfbbUPk&B%++lU_/+BS8a,ãU"C.?.NpU\+6T.z%m.whsru;P'%QKQO[.u'1'J'kAa>2i&T1Omm#O5G'BK_4LdZRAãU"tKZvHEgG<;3Bffsl76LV5ZH>auqjrp_-)1\8q/F,+kyZ>sctoãU"2h_,5d2qC?V6#xVA:_=Ohj?C'6$ZP7uRpfuW2vns\RZ\Olp=(?lI5=&Buj=gxSifk'ãU"34pu$V,oZiRlvBoac0))#k9b[hFh&299B#'-^q8)C=bI)MyaBB1a)nibe0luhkKYTfSVdraZv]#.hKA;VZ\DhHb3\ãU"FoQjJ&e-/YQlBN+z9i:E^--c,-cDN^J4tf.gTQi:fN6i\b#S&sa/ejqv3ivX&0lãU"7*6oLu^ãU"YJ0Yo8jg3V-7,w<=W4BniBvl4=tLkGbB7,-]B9,+Qf]_N>?,(eck?[rLgDlIhQnãU"V*.VHQ&MEex<-uV1lnQ6(>Nb0b)Epv7v'rxn=aEIm9zQ4qXl^D.c8lxRTaDT1aJãU"LtDcKoQLJy&#l/ãU"%=\>W4kfJJ^5?/fiL>&xvDuw$XxreR0Pjb7CJ),z\DQvqrR4d12W#,>1YgXDCe8ãU"nBsFR7oa4jvS9P;2^f$6lN^T3fLCV9upie[<\b/t=DGfhj-Iq*_X37U+IrHj\XCãU"#ocDdMvt/f2_+AXVcA2gpQ+f#o=Ms/O*kq/r2D3/.c<.XQ(SdrãU"pJuTH$>?=#SBSM#OMRYy%h0H^VNM?9I1l1(z*u+uqJr-SIGr]k5K%X2RBPFc^5=ãU"K=iEL.$+8R.$&Z7ua3h8fDCPC(D,2CA-?QC>cZ8pZwY04e0B;nhJYMn)zIG_?kqãU"s[BOo)eq%r>AMlfXBd2=Vl%)g&9/5s#j]<7B\Z4=\UH2p3;d,hA5mVKHtNw>OruãU"/GKksqc,2t6YgthVh7c0tTkW1<5UbLmP4ck;KqãU"TP]REW5J7=Q%1u>Zg0?3N,[9zqZu^':WEd4n=evlE#fsq$J7_H:pMXv)V1:+%sR/1wuWmSOs#rD0yG^<1tv=Cd._3EgMw8:GPi]RãU"(78Y6d[6w+m7#_0KGc(n?b5)T)O%bg,tVJ\b=0ZPFAF-Y[wMsKthEi2h;K1sZ:,ãU"0Vg+jYl47V[m1p=fdN0=KDG8Yo-aAM1mnOC((>Z:p4C[Jls7k<6(kt>[,c&kedQãU"^lITd)NT7cU+Lz%iZngj=5AVan4162BsZM//+^ccC)BdYQãU"ghD\m*MN336gg58\QAcK>84OEw=7U663VIw#6Penpe;U:_B,XHrWLqg?=?DRRH;Y\WaQagSk7THkuGe,^KZ#6A\LEA)os/ãU"GOZ.U3I+_TH5T%\:TTQNSW4AS1pOR5#>*1z[d%NE)AkMu>XNNptTN:zTX]CilkoãU"Ct:9R5hDQE;-*yZLCt^\+D=fT&PGYD$+7R,295nBrby/q>4#Uk6(f3NCAFvGGZdãU"i%R1OAGO$r]<-QL2\l2Lpfg976^Lj<>vKOT4c5)A87OTD1L7r5YNs,:skXuiQnClaEm_xS9Nm90X[aIhu#eãU"#38HzMlo,dxSQYkbhE4d,bn,;GgOrU.+p.c)o>7+PJ,q40\:)E%Eqiq&*R*<4V,ãU"I':JfQ5_Q.il;fuVY;\/V2V7O&8q0e1ln#Ee3Mk_SEfB1_3j\WfCDrhV<6+jg+*ãU"-lLQ$mX??\f8K^.4(\-cDc&V:dDSa'jcrBM+O?E)0N$mrfY>X3+>c[_A6YXpkC5ãU"b%e^gxF\rel2RWZe,(,E^wY_OyW:Jq+1\#+Z2X;RmD[CB?7t>Q;Zt^WwYcuJ$jsãU"i5=V9A(U_'A'5D)d_=20WK+5fK:>EpY<]bJGCacqkyp>ZY^X8g,9&OmJR1XYqO1ãU"jfr&nrkN<&z<=**:I*WsV7(etQ?5jeE%(WF8o*tgmaTN^lC5H1pMUrsJAGXFa+:ãU"zFdkrfx<*A=Uugf_vaNiB/Qx35IMãU"_+%#s)Rq;61,4qm:d3(vh#u[MQ=,&wWooMC5#uF9XAhPm5.nC/e'usvtKtOD8)8sP=YAbpne)=+1pIm=5B_WãU"o#37u;cA%UB+TIrUN29jlIqeEl6<.k;7D\t>p[1fl*2VãU"aMI=I\5nM1'SdXdrWg$#10=QDgl2R04.-P(LB10#B-=.Y5UB/&Un>l'hC$7D1xaãU"%,7VD96u;=fp_DhBVVn7(]d]AY.=q(Y0#e&k&9:%#0I,cY:FSk?dK\nGW-&hD&h-N+q2LjãU">6/g*85ãU";di%(?I.eVogW:1OAJ.JDlcGnawUãU"7JY.c]x-xXZuTnjcXkgg^lncR8]J9Ly=2[4nAxAPIwL'QwjH>f*nXduX'GH9KZ$[k3;1sd,%2opf#>ãU"$eo*4(bEM?]9MHlTwb$V$Pmq.79KQUG)9QCbGJLT)uUhHg$86s>XsT\oC41&GE8ãU")V#>K*I\.vK;hbEs+h<1#-Kjeq/QU/,Z/u]XyD%^(h'Z*CZ%d$wlJ\;uyTOEQK2ãU"a,4IR]^aB6=4OCh1pzYpewMIEX9Scb*T^wCw88VTxbu.iZNUxs6w0hT0C/,(_iEãU"VH5LT?f3m\R'^pqb?LtcxZ,r\j0j/nCSc'$C7x'E]+CbT?+gAN1=vOVrWl>W<;\ãU"+W8phr:ZF.f_IPp2:oup?jV(c-V&O612YAA';5Sap(F?mU6wni:-J[Ql8Wjk6K+:aRaSL;\Lqs)DjgEJK27:20?6GgAU0%IrVb9>S]99S;)0,3c[k]F^X:ãU"aa9F>fI*s'm9]L_1>=*&q:JeBOP?r^q=T&gXIOxG9N[RKLLVcTMg24C1x]6#fL4l9H%YFC%:e-A^R%5;\;Nj;;ZãU"+7n[RnmZfwg*#L8*_T07;MBTlqwk+sx_;xvHK.?4J9nOf&#:aPBmK&W/?9.W*liãU"H,>5VIK0O.N;b1/<+Jme:6.3*KA/##DRsDScIQ[,$TyQ[%7R5Rz507'lgM>&HLoãU"KkSD2L\gJ\u#3O3=Gb][Z_=n<9(9;??=--S7kFaAPB]0am:dVxX]udd&l#8S<6(ãU"?=AeV$Ys?6Nbu]1eR%;)aXzF^q/\KsdTN3p0uN(0[Rw)87q.q=pNa'ipStmeYdUãEND SUBãSUB VAãU"f#$%X<7*fO&X,*3QlUlL?_Kfs?24.O7TP:2%K*u*ruB0A(^a0TBWBA7H'WDV/5aãU"m:FBAdJMF1#y],I;?U10/0I+[$W4%.I]:u56obZFSjZqnG],z#xB\52*A#lnsCFãU"K&$rr%8[bT_qtxUyGv$[6kk4C2'OPF?/7iKha(N,zbgv&Y-W>AdbEQJ'no-6n'sãU"bdjrrd$lFt>'i;7a3(dTtKA^of,/\#RAsnTGdbIY_a=ou%-/:CY'*;NI,?Cu00)ãU"965]aB[fsyTq_d,am8,Sx\alBxP0ft\.&6nM3$&cQ='cM^uWY0]9$Y)Pw:i\nrkãU"Wx^inhNi>A(;42mdJqm5afZGijnB?Ff)2f-jT6I6_GzaVICr?s#fq^+ZVMJLQ0\ãU"IH>0'Pq)H2B9o_cWgmtP3Irw/YGZ>k5CC\?B\8%1g$%\]b$AGbTmLh;prBJ8eU1ãU"P_)/$SUk'VpebseQPADP\kQ'FC(Mk#9;]c,)HL:EM^cLl7QBZM/[[c=sjpNVcf%ãU"5(c%sqpd+LUWNIg?Uas5O3h(Vr4l)bv[O(<4uda.BQn.PygijanGhZtjoMAlW_Elqaimq%\H9ZQg*ip?B(V?Nj#7cp;i:dP#qn2\tRBCHNbUx#xãU"ouJujl>t[q#p6n$ZdUtNrfl*wyqD_ZUa1%f'I1-SlãU"vO/Ck4GY_P5P>BvXdjRU.E0MKqI_ZMKY41mL>',35^JeqcmKoD=k2_n]Zm;LK?NãU"a<$5iJnLuhKBVUrPB4oQM7csL%k7>RUZ$?ZrN4RCHLr4#*,wlB9uNb#joM7gC.iãU"5nNcPDnqx$Z5'CqUWo%Y1AOci-[LHfTPB*FIl'hK'1,L9R'W'-Hju$1ekXoxNt\ãU"r:/m0jk:/,Fn$%NbPXsP$YJ5ZPi_+l$;L94OpJ/qYãU"hpiCKNCT1oUF/YWGk]'fT%&^Q.w/c5K-^9AXVaYhIRS3C\SN3kEH7wxirSkUEKjãU"h:Zh7kso#Ge;$#?g/'5d(iuuMqaBNLxua>'1Em5DBgb]>:\h]m43UP<7CãU"uN-/.EV5EG$kqcZ0$sVls)):3I'#mkbgQ:hj;td-r<:1'n?ZI*(MDSyQ99$Z[##ãU"y[e2V9drL)l#0lYB6DeFs3q//pLg9k>;S+*v*<3t6%[R;Kt>emdBeWipuQ$[Y?rãU"rudTp$?5D(OdTg8p$hg*RHxqwRjJUxnYII%T-/:260?eOxFpC6(Fo]oF;9j8(Zv0bz,BQ$s80i#cHH0IueG2O(c]5baH/>i:6%psdturãU"6i.qyWa<5EB-'UUp%=<(hl-ePs<#g/ZBF0)S4YvI0sC[rq<;B(bm(b1J#aX&_-:ãU"1N5w;$639X$7^/p8f+8D0b1z8kv,O*O=[V5?aJ_p%3:Q^\;-24FgJZ1loA17icEãU"FD[vB=f)/(MB)x9lSpT?8r_L?r\HDBWSb;PySnd9[g1D9\K*\P#g/5k=WpvJXF%ãU"hBFWPJqn2RwmB$bh'XdMr-=q:gJReCW;71CsV%t^QOs5L+t-\q_Qlr]Y+yJC83iãU"AwPkS+YGq+81NrOH04Vrt&zN&r&M]I$aw]Yshn,p%9=3>54qY4>1rf&xjd1x\TFãU"*:[hiMRhXS;Z[%#%kW+.A'mkbp9Fkg?c$(+&Q]E/^eIwMzu]pJ;fo8P[ai<ãU"?H%WaXZA>:vxL&ybD6jJbcCãU"Y1,s1M:n9175\zXTW);]Z;Z=Y]&40Qrqe?$H0mTS43M1DZ].d7ItAOVi#8E;AVeIvcãU"W$_%_j9kL0sA0z&$[$2+imlnVbkie?:No:Y8]6iey?\K(>w=DZxb*u^DLJzxG3\y%G)A/q](tqZi9ãU"N7T5uIWT^<-6WAakb9WW31Gn28GQh3Gt^;nQ8SCvMzF/sZ8pZRu:740RP3_33=1ãU"6JKE/T3X<\o,U>-Xg\>Tn-oD%-0(lyrIDv^+.:j/:wNWo7X;%=mpg$#>jl>O;$DãU"xCGo*(#Z4Gm>37+;_tk]mjEo_tOiQRIxgYbqXB;P5S,al=ujr0P17uoHK9&ãU"k$kMo/DJs8,DcMIf-Nq^vq(?X&.AstY:3&$Y,0I;Q8MmzxX]NcZF>:\U(B=plQMãU"qJ)nIc$Ikxo=fvHq?GjSdfd8Mrd[JAJ%z9\)%rLQa/gM432sBht*(0??c,6AY9]ãU"a:Td2Y/2lXHjpEE(Vb;62Oun?nss0#+[DL_RgdQ6GTB9:Ke=YH'Qin.UL\r\FegãU"xPAjI^-s96?A78HxJ3agh^YHemprdk*DL$Hl\:eL+H5C\cs49Or[kPK6:&>Q.AlãU"LokehIqr$w'tm'4&iPz]^,ss]be4HdDg*E;Pt)fQv#B=j7UKt+N;L:3V#D[c4%kãU")lw7Ko[F]s:0P+g)3.7MJ]V)2R2H^7$6J>QFhVOPp2Ym=XLo;d-84HVq66KDT.^ãU">,G.HI$UB=bVapUtN_oQiS6>XlBXKt51c5n'38p]ud[QtKiD3w_ln<''^$R6QJ3ãU"w<>/5EK+BQsgK0(%q4xYbsfpTL/FVNwk%M5;PDo2e)J?Wk#Q4KBYh]dl&.cPfBLãU"^%+gpCO).Kt6(p90jC3t.or7rr\Bo/YQfJI/B-RR+0>ThU$S?hOiO(I&.ogUSCuãU"XIf0[A4em,F(OH58HJJ0]fJcz&,r5A&gDk+z,,%3dbLMPs%EdãU"c#bU-\OS'?c8#F5ZS$zd<GaP8jqJqZwuKT(8utsãU"v$HhWaj04xHUV72>[rSxpIsiC9lM^nvykE+7;:j0[jldAo0E3PqxI6aBEOV7wD;ãU"IDbv6jMS_m5R)t\+:AaDyK#j]AoE9_>HKK/*v7[;ssãU"8vEvz[_g/Y1(TWnsUAbjJ\(5B1,LW+XEv6[nf%ud*YL[0%?MC1[1\,nl'rFLãU"q]aZwNu7TTss1IH;KfG>F1ugwU,nFdwiHn$t&Z]#DB+b$3IA)rw1WNr(o4QxXVTãU"_TX^bdsQJF68yj/8X_DLPzS1#)4D_ln],e_mk=5&%)zJGzY=R$K]iN4?.5S.[>LãU"]8f,Eh%U^bRn#tGZ+82NG]i>iR34yJKU)k-*BSRwX\KSJog=7f*w.aXYD<0ZLFsEg$BpY,>05VmNrr8A._4eãU">;VtX+?$5GVc/K2s][PLCGVvE'G>N.I=z\ux?AKuCãU"Qn[R],W:Iwu[4H?%[9.1%BjDZP%k4k,/8$ESHdswHaEQ[u'6JLnyR)FOcZLE86GãU"SF5-W\(t^u(cP)E/qVOUa%9Eiiwka[Pq5lQ)dbB''kQ8K22C5Mq6%Fga7[2]/d0#%9#n+(9EkGfJR7]M##9x\;oS_goqmb-FkR+IcN=IeW&8ãU"d<$8gD)**_9DTJ<*ggYAsWt#Y_=c?S-K#Z5PIO0$Z#(XIyMrIz:+JDHxP<:[n%PãU"N;/t]-G/qJSsAo/AQr/7&$ESnoO_S;LH[Zu=\h*rKMj5f0GFHhx]t(So5xWeNFNãU"4OZL)-suOvqlRS3DIvdr0DayDK;RVwdo)Mxs6fEh)BJ#Do&qV;E8B)0rb)-AD/BãU"G^nd\y?w>%x<$1zT8FS^-slL+fu^_W]YIpsVL>:VPMbeTL>Wq.KwN>FX8Ao($-LãU"O3FiKr/BgB-kvXN:3'J-(^8*$_f'Z++z9s]/>U+vDO)YOXEVRv(#01rX2W4D.STãU"2tCAzvwhIvTo02hM$&Kc3*2Aa_r=7HcHkqEm6CzRP*Wll^x#.3ovb]M-a+0b5=4ãU"m*v_a#O%VK:?Gw[#$1EzF;u)v1\Y)ZTel9ãU"x+k9tKA]-9-tnu[L>;vdT#L?OyI$DNZXHu(GrZNvni?RZ>F^bj,&:T\LYikvSQ>ãU"*zAum#iXc]x>w$T^X$22'z((Lp/qAi:zH5iLRU0i)2a$igA4ItY][lpNd^20g4)ãU"]5s[CtwU3?p'#pikP-R>H.fhZXT8r(u2spv\+hn3CiA.TiPUfO1Kj^);4zE'/v&ãU"\t_G16O/_QN*plt/Lt.b=#(XR>aoq(U+K'Bqm/v[GC/_?ZPL$E#_9SIa^49E>OJ0fr\[Q,;%jtonV-fY3sV-2vaãU">todrSI3hJDZ.xey]h\CWLyxaH0&/d&a7MXic9_O=*no/Lf#mqvJP8jzgEv51m+ãU"/iS3%6A\<]^fP..=MjFLGVMu8=JN-%y9k03uq6YjKjMlq$7h$Y0Iv]YOk9LaDk0ãU"+o&#'u(O98f)k_<&N8%5KGwh\Fk^phtVHbM=4mhIHMl:BsrDui+xciT\]LsNChIãU"m]Z-rlrlX3R1$3nkT.bX>0*wLG]gdNU$#?>FjH/AeSGrmhK[Wat;ToApMzK50YiãU".wt($qu&GlrfJIeP2oe=kZa+*g9Mni,GluclZu#dDdjTWNx-lpTCbkT8Yt(h:daãU"HD#,BVz>kuKl9XE%]gJ>m*4V+k,7le9)vHsNl%9c4JPjev9cPu.VbeM=zbz4okQãU"A'q6Rk%CeLEf^dy.H9^*W]Ne.kp+rãU"VZw'Bk8.2(c](dXYIsgRuuj#PflR4BCEM(hbd*[VVqJ:#7O3x%UXtjãU"nrB+=3MJvw;P'r3%C6^-A;dZE=;zZpX7*uf(EYpQKuj[$X#dQ,&6EOJ3<5k_^))hx?(Z]q%s$+vQlãU"&Tk:Uxr$=X6QPL-FYu-]?J],4)2b-tl?:HEH%sh*0'vd\upRFkWLevLuDDh8,]Yl7MStIj=E6;eGtt*X[dN0*BãU"lo^N5Jq$#wWu[O_]n\Hba%KO$F&P&r4WThIrPy=q/H%r=tgvIJaW:(qcQu[YUi'ãU"JW>%PsBd'5LvgDKVB$f==Q2^s>J>Le;19t=_GV:*4PDV=O%$DNIZCkM8^:]Q*%AãU"jojS?G3XxMZdZM3):8AhjW-SoJfnV%Sgb9M<-hI^NKo3vq%pGa0/#42iIFm?))sãU"NBU].dvJchxBM$7>N_s20c/Jkv;2%m>bCC;clefm2$M3Fm7h(_.E;DnHgmMrsG1ãU"sKRjrqfi(b-0,PoSoY+uB)cqK(&0KShhH^J&_tl4T=M/.]B9ZO(HPB;=(eKUiq2ãU"L?bg_tk.xahXiyc5ZFRPt.uil3p>5?AZ7B?WK(%#b%IjcHq=h\>Lk]umhv5P/\5ãU"[<+M^GZDzA0QlAkUa#mX*\B(H)^k*KQ)ePVY-Jg+FY.)A<.bgD)eh%lq_%f:)/dãU"sZCWfd#HIJ-xkj0_U=\=uwU0%bpT[W#*G4Cv$Or<4;uPN=)NRZQr^5.X??[CM(gãU"V+_-2((N[kR8-0-$3jFivEQX$AM:A#EVKol5*Vd#R>l0^[Hr'aSm4./Dh?FLrPpãU"6t&#,Cd*^?w*%B_qO=YhUU)*2.CELj&[R0^9NdA)k/RSe8D*,DTuHtR5#+C),0>ãU"]XFJfl&1#(o0x7Nq'F/]5o5FL%kI9iQUwscYkUuRL*V0SrU;dcKeB(K-rf4DuW'ãU"mP&sHW)ew-sT/P-P8RXp45Ye?3:rl2viIW>V\C&Gj)jj8WSC,/P\Jdl((24a(L]ãU"K'Hb#E>L52>%>)aYdjhpm\mVbPhsh'k$VR#*39lK'_FxusqWV]*&;vRXS^'uliSãU"Oq9NvBdyk:Zc\CD69#XuYuh%O$53e[f#zD;rAO1=R/y0WD#%Gw>(iBor-QUNL8*ãU"C;[^BJYmD?3omp=d#?OvxmSSf_U#ZrAggN1qjrgpj^tFO,A%USv+FuvfOM0&(EkãU"bYnO\;j-2^#)o=$PrJqXfQfol8SK%o;2[W62TNvjpA'TM?WKOGiX8<3Lu,-a'8\ãU"XRgPF.wEjb:dQ$^iza\^$VeR4V#UV2RsJo,bh[Qw%u&G&%]'Fu6?(n31sq(Za9HgZrIr-pYãU"M1FTOH;st5V4N4B4r]s=CRF)+w-=*n:%b0#tc$Ttf;Y6J-gpyGis;HiHoZdw1AGãU"^8nU^^\Yi^,a>:54/,7MJFk1y13j+?W;RmKA4JRZajG2=0Evh-iT\%\^V_PC(vzãU"5t7qE-Rb-9rViWQ5+1JK.pUG4J.hJw0-QQX&R+)O]Wzy3Dd'?^>_;sãU"uod=0<>9,T'$37+XPX#srBI*+,,3[bf.%Cw4I.M#_NQT+p*]o82+6I*mDt;$zjDãU"%Kot3eSw4iM1msSb=Y2*k:m64W\z%J':G)$A7Aky45id8S;=bgG-.(kCN62i$CLãU"lg(=7Nx?59qA;u\ZaMm?V.*ldbi+hRd>N=:JdwK6?ZBsy-d*=$;l)NVZ*n[#.trãU"]8dy*_#RMYk8#6L:25O6v9II-;1[%Gu)pj%bmWC7uI(wFD]:y%P1XD60vi0vr6QãU"&tM.sld&'rw$bR9bl<(up33^'W,xP:#zLbT.,[,(=SgS#wp0MU,/)lW^<\^lP?*ãU"HA5Jn%MsgO#Q:ki8D]tR[Qa=(u1[i$(,iN6eQ0Z(((UNHF[YJ*YMdWOufEKB9RfãU"j;10>\wZM'8ReBk)]a+F*Qnf&j[BqyL1o;KH)OrVXuTdeIcmr7O5sPLq.-ipnX>ãU"^5vfPCyVT2/a>f\GO)),J+Lu7emJ$Br,[]Ve,yH6idMFTu&TF0t)3S(/kbMYX\WãU"FXbaa-fJx?'NK2&LllYo5NWUnT'C?y$iN9r2SBFjrWl5E0um(5(unQ=6R.K_<]PãU"Yjupb6#.g.5idB*T-vjuFrdFQfVL7R#2Dr8^+s+d+l6$SvDnCo\(4WDC6-eW>GHãU"dahj'cIw;Vo:hfTFU,aL]KU=k.Ph4.$Vd30yOHmOr0:)hmjO]Ei8m)Il;)gfMrGãU"rI&l.[h3S/iD)T5Ab=nO'+a--leJ&G8]E1z3c;kG,%O(57V8R[w2\mtt>^d9\['ãU":djhM^pRU/g>?Dw+]fcH9oL)7ãU"#),ojzAj'myRoA%,ZDokg=/hin][c[F02?NadMcich5gbeB&-Y'z9Jm_8k^VhxlãU"e^IXlBMg]tL#T9*>^Z:DUoK(2b1a+f[h?7J3$o4-G1Rw12F^(q449\E,giaP2[aãU"K>SJ_)D9\;83gp1)Y[F0i=#d^p]PSzNNAd4V?YHg^+yVZ_OZUHt\C&5j(,_>kc;D1&T5[Y1(PjD3jx?ãU"q_E8TDrBWkjECM%Fg(2r:a>^Q.=tk9h/0\%4k:hVu<)YU2PSq_sM.NwL0H?=#q'ãU"L3_-kvG\2]bH7_o[^+Ra0HF.q(,7h/j*L?scRA3J6T[vRoB7[]MCp926i%mn(NuãU"1IH\I*9=\/'vaH6nkRZur^eF*5o$Z?pUv:O=ODJ/HZyn.Mg1,j/Q34HX\9\ao&.ãU"HiUP=2a*\X[#7ID%X0$mqT4hjI5l]cbZ:QmQ3Ld4jf>JVlX3eXj,h.PPmF=CALcãU"MD/kK%v'DK^<(r.(DAu%kDHD+x^T[<_L_T$C/&XBm#I_Q-&Q%Wmvm2glhLN4&->ãU"HFX^ei_v_&;o8c2)Hox*P[uc6Jf#DSN1C(8fb]3a1+OvI&>xjwIYe&ZB%gViUk&ãU"Syo,_Kpk&X,QYK3IHb50tqTh^^ãU"n%u[M=CX0^k*Vptr&HSf6198$s72wsP6[9R#zTqO.?nF\B'6$-IrQDdD_?ZuJSLãU"rhJ6Esh')Aq[u7k1Xi\Id2l/QRm9pa.=D&+NIWgR,.nK(HGY<;B2Cc;[(ji=-^&ãU")qR)bj6L7LI>+Vab5EAvIG.rWF/vi:'><)xL.1K%,_mAohQ$P3ema_iJxDb^#$HãU"]ft5fDqlj(g#rrJN]?vn3cLRz?kPiD;N)8z'3Pe#onUKqAoDB=?:^9^KehG9OpUãU"TDZdlq$$w8Vqd.SC:2q8eWiLIS6$qe.>NQF3kV=lWKunREf9[q:=U2qVF)sL8sPãU"d[ZTh&jYL&k]oY:+L]3eGV)?4:]KE$H0qJSO#E$0)V?'.FFPo+Y,&L,xP%rtP3PãU"db75#B\t\5*gkm.Pp-R)Q)a2%-o#cX7AoC+DQbQAp(^)m+&t_PqYZãU"RTPjP2PB#g%Q#,UJkeH>PviDuZ8w5$S?I>AR\pZ22A*)g7#jXXJA%3;480-GwN5ãU"TJp>)X;&M\%EC-989J#.vgu('iMy7W4up7S7i>\dRlo,(+pbr_Wu[,njfTjp1hoãU"*A2I(CossMO[5^hX>-s1hYJEBTD7djsZ/1bTI)BGp#9C;/$c4#,'33jfb\)z[;+ãU"^j2y)tKwYgmx26kO=czM[7e8E:XCNQtqH^Bl&gK-f1a#h/)nyeA_%hD5/3[;WuNãU"OfHTw3]cMx8w>Njd5y2)_P;%3F+(d7k54$JYd;Eb/BA:sgT;G_*-_[ãU"z?C.2:iTjJZObR'Pi0slILStt7DulrHnG/hn[v&(UFRwswr9$;GzxXluPn_]c4)ãU"9+g:Rz?fQ/hHHBY4&U8IHC)Xj1S5*MWR7[$B%vWeeXJ3Kp'^D:N5rOZlsA&,>aDãU"6c5is3Hal?*l5R48Dbc&^,nU,kQyUn;UEIQQKiO?VEH/V/[IUJLsk/GDu)V3OaJãU"NRoJ/U<8).QrjDH3C\d&E#&lW=&(V)[eT5EXM6n?qEMm_3jlqS#7V/xY^?1:8^rãU"EOKf=bf?$t(A=r^JN4%\;E9*Qf]sqAqkM$n_>RO4kNoZfwg-$P04=_cGBcV^2>_ãU"OD0CGM9po(NHOoS:)*uTLihW[eV1Kdvi0:qysQ%.reno_<1n.e$.cnXRD(eYMowXuPZh$G6g&ETd^.r&(;x[xhFOHz2Q9rQyC7MYbMAtP\6KãU"ac$FXn?iCiVK1F,%(;mhY\HabTW7roC*tUyUTbtH_WUDZ&0F'CwinZJ/ag\g]$SãU"%#+>:Xj>4r\Kf+tYS#bD*4;G9_SWQ;CkzGrU.vP9/W[20.jS0YD8r>.Iw'^vP\bãU"yoM=75M*[-zso9.^([aSXQ[T[V$siLQSlsKr_eaI-2&.n1n__N]0oI5[+ITbU^uãU"sHixX>w8_bRuJudTdKlh52E-Q$?hq#(,Xb[xXW\;?]SFl[-I5B?kP7(yR_/0d7YãU"1;gx;i'ti8JeGBcOR1]H$tBbZL3Pjbri#REKr\1:Norpt7]riWxibz$+(y]ipU.ãU"V-AJ#:]/Dfj(w/YzXARE7_nfJopG(h*>P)Zyd1L=7Ho^>7D+()<2K,n5^]4P(\ZãU"[B/nwLbfUm>MjRiiVPODZh\I3:X)mIgOM5Rq91J#QLJ=^A7yPfB/^aMm44:q0b(ãU"V)B?#0zd,L]G+16A65\kRb,SA0#hO6>n/llb49TOoIbsqa5ET9gV:%k&$rf'\A?ãU"K_cU-)JiCh%ymn*9c+FP6$\);#.DXFaBdLi+(Ml$VjT7tKx>d(rG9\]dPOH[yyCãU"D8Qdd9LB5;,bke9eAon56Iv1_9>D=oM1OcgI%>YQON^_Q9aKwi#9\<([Ul=eFjMãU"pj2N95V]d2Pmor8Vxi6/dOl(NNv_+yu5:$J;EaC8;1S#8%#\QC=XOS*u3erJp0cãEND SUBãSUB VBãU"1v8&'LDW5zh,E/O\h&5UgV>0Anfrg)%Gm$LQKãU"_u#Ux5Wd%$V?/V>Zw2O]a.;k(A0n\?^K)Bb_GiSS(Z.H9SEhjrFalQqkkYuw:JVãU"\6+1'uVnVdC#XssRsm[rGqsZ1LnãU"-sfVOX0Y#'qonW=9:gpST[:jaIiQBaAZNI05DdyIY/WQGF[EaqYyUmlEh0/lRr0ãU"+MdVLP[*K8KQ&zpjwF*'tt\dX=7XCR_\Ycreae-#e&ghDHE:.YPht;*/rKd4:MoãU"n0DHVw-Z&&o8=[QWY9#XV9^4HKd$Tm&S<>TGpPNvNu4PklXRrrb?24N*F&OMJ+VãU"$%v+z%AT[LM\+Bam.TSLCgh)Al69%0Ub(u8dKI)bftL0Tt4)4B-m%V44V(l4ibuãU">vi#LX24isTEkIcci#r_Y7&9(UrSYOG;;pWG_RJ9;rc=-((RGCr&I9](k/B9:>WãU"pXq;;Z2eJ0jDd4#Z[n(K'%t>fn,9Z02FSY3f[VBO$PHH;fL/_+tCD^%Jw8>k4-XI'?-+fEq/)rC)lOiAsvh&p>gmkq*LkaiVZHQ>[IJeRr?OãU"m4lotAc4SZ*iw3p0Kou5[/di:r3=Hs(sBhi3omy;*,u2Tcr5h=lHFEc-oX\0wWkãU"Z0nZDh^>:cK2ZbEve95>\wM.2po,^1y+tL:Q:h2AI,)Aga7hE0-hY_%_UOZYZdrãU".tc*?E5?IS)S-:R((3ocsdv&uu4h_')tb;&K4O<1LupRF2SW*lp^$jK)W;]4B/WãU"wZ.Du>FY(,]F6LA--&sHYPMUKaX.0Cw#k+Wg8\JVdA#^XS^paN.Wq,m>d'Au7?7ãU"a9$iaS'f(('q[G%/N8g,/4vD)Xc5/KAKg;&kJOwV2ODV1[u[wI$W6ht2&Cn4EsWãU"moSCE(]8\^x'asz+IU0rI2VPvN[23KxKeSf)Xt)]+qI?;C3yH9?4kd%ãU"#=N)aC36ZrgQNrV*:/g2V5leKuuk>C6V,xSWW=N/pTF3L3G^NJZxcdha0BSK:s(ãU"n5B?YL2BXh;td,+[JR3'HUgBZS5'V66r2qAT8L6>tU%u];(rsYQ6A14\\l&'\X5ãU"xA_bdNl)_D-M[N0l=ikQ%#\r('EWg)F_aXFjRIxãU":nY+:>iAOcEXkQ0W]/mEI^$qQWiMR40;Vv#,?SC\2MWaC?L(X^IO7NjUr7h.2$'ãU"y(B8O[InMU*90;,GkGeT3zhQY.x&ihm^M<^ViN,0eNRi(:;6sd7ukWd>X>sc1-XãU"7D-r^;U[SC4Jq[$'/lF/U)wGWU7T;nj6Yp;]']J?[o+3Md2dNl51gEfbk]k=(0*ãU"k-h3.hrt%wP(E?y8_TL?NAV3cSS#.QoU%sy>muSZ,*sDj&cd2Q6A:5QãU"r#9%]59%angkV/WI]Ens:FZ%8xAc.4YO1?tU0ãU"iaebp#AMNzpD't[9DTO+dSOc'5/NGyR6_B^'GJUD)a2q^IMq(DZ^D/buZs<]h%5gB-0^md+enCtUEmpzx3*lW3DãU"XVd9/sUbNI8YUDe?%cnCxo=\Jhtz]lISRRF:VX:.pH\l78(AiU+n6Lg^-jbaFfAãU"I28G9_^zS;r%x9Em.=+EmA7&Q]LH3VuK=q4$G#AFR]P8mM8C-TvV&Vdu^v$Q1V6ãU"dBjt#ks6rjXw?FXrns<>wX+#O>e\MmCume<>$$7+TfpoiUQ'Lq5[p^uA1ksriEoãU"$qQPE60?(*(M.'uyWRh4.-qXC\]>38hx)W_tLj0ãU"I1Q,dIV5W:.BQ'W3-2m?Ed]Q3)$cOa>u<0fHH).H+cH3j-EK^N[g/-ZvIKb;hJ$ãU"4cfmJeo6WnR=KRMb?^+_Mli//1I+j:b;(ua'f1)ãU"X8eo01Y.C2TDV5lrWIs9T(Vc0$ylqrhb4+<+8=SY;)^Gw.%eU]>c$4pp6<:L)CwãU"KISVcjzglM9Bk6v7<:22i6zs+ZORH--(VPpV13Eg)cAhWIPK5lo1V.nq950T:sh8-g&g&#Q/*7VB9^IHsJ2*-TpdX$)s15:+x]:.vãU"/sIVt7zn7tG8TQ_s3t2/lK3Br?eV+cN/i/yG5(5IBc1Y35[>ok-%7aC54G)eEK'ãU"e.^zff0>7-Wac>4,[**LH+23jh#='ox1*w'$DLtct-$-:m-j-h0u/dr]/TQ(MznãU"*/j2Zk258v9tC9pL#=JL>-9ei?1^O+1Ax(Pc1wHNvSM[RMDA.oKn9vLe>z$Lr7lãU"8fIT?c:qdkn+&]blhj_GmuS<^F?Bo+Y(kRGa.te%M6pb=+JCR)-AW0*&DnOãU"87.kZu+Y$)OTfdN1;7L=XW-(LZL:>gd.9GWlpXRP[9oYOGuTNsgvH*L9ãU"p/pbQ:cs=/K('LoC0%XM'IApe^P'W5J_Qf)c>v>peIUs/0D?1aG[I5N2\f,;^k\ãU"Je[aYR9'gaN%\sMv/Bc/#5gK(4Z#j7]b;'ãU"fqPGl.r/ml-9=X6s+5=W91hnH0DpL<(46K,+M.+s(c0vl[5wM*d-:hNM$zTa]OeãU"ek+%:JE(D7N=_j_QBkcxGPHSTT%)OK/]F&8o/4UtHlQ'%id#]JãU"cF7?\7wFW^1ynY*m9#pngM4H(T/Hyq=e=gahtw+n:D'8/LXBXEX2yMg4UdKJg-.ãU"-rD6)5owAwf/&hTs4Ij/+[N)R%7)LHAq6K-q+*-F)aãU"-EK-+p&:Im5'f4FI-GD>z4.EeXrO:6?QOP-4:Q[/U>^Hq5Mq7ijK.=1<#M],0HdãU"ur$IT$*=h>lB1lwDpz57hTtapBrX&^;2)U^sV'g:%gY-19#3USBfH0vhqKIpkH_ãU"b*q;CUS5CNF;ArbmrTV].7I,#HxbW2AN8-fBlb?Q_2QN'fQ.:<$15NoH_?13Vh#ãU"gAeQBiO](duX5nJhlbzhsrJ1t;DA,v=RtIsV$+rfcSpD7Rc,AZ2lC[ISe-s+DNoãU"Nid)4y#.z8,a\in\lkvfT1;zZh?,W+RL:W<^y(WvPVYzM,7NthP:Y>671,),>oXãU"c1bsg$?5\,[j5SRMAv\RcNFPfGW]=l-%x:+I;/B:nekJ[X;E/=S[Am74k?.O\ZqãU"WJw+JXOC:-3:5*Ds;I3LVQpK$\]lPJek?Wof,/o\',Il(Pq-Ll&O0t-gF$2-g4%ãU"_Si&dRy_&c4nXAjLRHZnc#nr6JcRRSIj3+ooVzASGYU+_l%ãU"5iuu7QP62hM\sHe7n:tg(?(sm(KpV2Bmas4uKkPtlWx?aY\^V=9S;\_k9b'b,p6ãU"DXa0vpf?444DRGGc3)_Yp^:IG%z>g8L?Smg,g7LsHJFU.yX32h0/N0oVP_F]6/#ãU"&-OwL9gTnOD5I5l$+JCA)M\FuVJw:Mb:5%(R>%H&aJ=[7]3BQhx1ViU,wN_=0rIãU"5#8bVvUmD=w[^5P-6]asgJ-sb_%$6tJ>c=>S4Ek^Wd\R)w[p,'#htãU"Be]^?Z\K'40\oIw26gbFSfT1HHe3&7%pIfJ_wMIt[8JL'A/fLgfgyv(pbMdgMJfãU"--*IPoeqpvm/%HsEN$HdcRd34S&t'i$VP+'bF9%UlXMn;*HL8gu&Xo0HMH_N8fssãU"gV-i1lC-%f(M>]b9I1c'bthr2CnFqfm7(+-69\LH]y_E#vV:Pvc]'*Eec;2TV%_ogJYNa-%%=KlJ;0ãU"9::MPFnV>NqdCPFdLQxeeh*FxYz%.?(KQvKqLUD\S1MV>=l3R9_bf?d$G*A=(YgãU"+50]\M'gcW*Kai+.aM+7We=+,d^4#bdj8T7xq2v9$8V4S>_IFY2iqUqh'E\6NR:ãU"3\,CaRE4CaPkt-jJ+MOb&gQ#;l-ABaHAgxr/.*W]xG99UtR_HTSc9Tw5B+2*_G)ãU"LKt)L2x]C$=*eJmXJ%LRm1qDdsqP%kL9:fGr+-?rENphJnjLEbw;;RTolG*)#1xãU"hPS]TU?&lqZf$Jp?o5ie-N.RLL;/3mPwE)B6Yud0U,I$^],WqZr\wC=GFR&1I_2ãU"62.uV'A$Y%1ZfIp15_27Bmak#RVs$qR$1Dk(\-VJ7Ib.V)skM5Br^fPJrEoZPz4ãU"CA*V3E:IW:8^*BA:9G;-ve__0]5F9EB\g0&Zh9^gidB>Zo'B4j??CE\CKd3Qf]\ãU"FR+s%lt)9xI9omhVZ0xm](LuGzk**w(eXvS=9Wg8.7gEEW[s:AGc71:lH9&fMprãU"6a%nzRFQ%AW3YOucag\is'?RWO,%Z8j_X+(dL#/ca[.ãU"/VmR<#wL7D3^=Ga3SlYRoqeI3K)PC#$/GSf/vG%E2iR8DXJrtF.XoXbt[sb1k;5ãU"-=6RR=[3eBh<%g\>c^vIyJPod'xe:GXqt[lILS.LclN:\elgmBC&N$U90=r]DQãU"rkK82+w1C%D/R^$^\Z.k:E.I8-%pEK1Nt'OYg5RFBkv9a;NNG^g]#loQ]#i:&?qãU"2W'p;#FdvwK-S'L6YuThJzD7R>bN[UL,51gF;LRghniiGH..sglpui$5fU&Q(9BãU">##PmJfqXT9e5=Sb?0W+QmQbQmGfoD#]T<1fC%63Z8x8k0;sAT?./ãU"33=6WZ\ixfu83U>sJwLGO0arp/HY[XY>(F%qq.HescVpThA-[.^YgO573Thz\TWãU"_)9256B&)<[[Qejq?0#vQgY>ONq=&::W/Q(avW8?7eDB;9:8D=z]<0iBG1p]I*FãU"YfTh*F%^(QJi^g%tR(4GGkGfp:-pg1BuX7o>O:D5\KD(T_^'m%:aãU"0N2AiEE8YM(o0$m+J6=-=-g%BKSr'Z+^C>*U>dcx$#MDUu.,.nm-r'3ps%2*W'\;HEA'M:z-fVzL&bRyLiGI9FfDL=vlãU"kl.6YJjIP*vJ\d+$4bBA301H#o3^h$)hnr06MI]M$10C.M]S[DDN)3-\qL-eN0KãU"INpnmL;=+OyUyVbr$IZRby,5s>uYYp8?u]_(7Zqn9z%0o6?l_/V0Y.1tjNH=n(:dv#NãU"n_+:fUpl?e\oild%GI.QuA?)oEM&RNsR>mXb-dx0bB(1pSCtEP6^_l+P>Y9O)PVX[:SHEkãU"YO#\XmcHHd'TkJF.xXv>C#(8N?*xSlpD-VnJ?VPDd-ãU"%]CE%QrO'cdK/]#e=U[Px2+_,i*(k$H(/[qv/lDkZ5Q.9nFRZQk_JPnP9nM.J40ãU"/v>bhWNV/+iqg/Ho(+9o8toNo;-692R+7Y86MYd212eq#ii]<9Wc[rQdHk5#*jJãU"zh&c8at?95+3U1vecM4*^ljd/2>9M/ed:4R7ICNc96:]6BPb6W_2>>D+Cqg&A5rãU"E/J8_rs_iM[X>&)WW]NQ9.mhJZCJKHJ;Lmk,8DpQ*dn^N/1Nts9w*oAVTdH$xr4ãU"WmD]5sW:5>?TQ%TWpVTA+P(J''DK6&y\0Otg(Geng^EY<4beg66HU86rlxl>GscãU"L?J[VA8XBO5qCaTXXiiWlZTD6s=PH1A;(9OMwx;RPjDsdS0-dqd6*fPjw?>cO^,t>U6v?_SB-h0_]KãU")Hv2Td;KE<0CyduXnmbD^(gNu%virYT.lvVaEI$?pk7:oP;sU*1hj,.%7:X>:FgLpIJwQQãU"2H?s8h&S]HgkAS_#1[t?oqy#Rc>gvEPf#S-6YEvfFuW6tBtf5(84-od$ls&ij8.Nx:%k')Y(iBU__-r.'QID\gOT,l5&k$Oae^Iqhw#f2HN^ãU"Xdg9yYJB)8i;(QmOB-Imp]?dgql2H/#Lkbn'/zo$9-tJQ\;'Am$1)G)CL2;O0L5ãU"0j/krww&sIXecb?)-ACWb0iWZJ'5KiTmhYkL'*#_'onuYgB-u7omEPãU"9Exd(q=GcZDxdq%1.g(fãU"H+liZT/]x85X-+1,LB88NXWOc.ELY0F3UB\^xWiC8m*Fs)%KpWh?X7AdQrMgsUPãU"lqFX&IA0B)q585]5=[=xt=_0EEY:%Q>,h;?yD:M]'trO8+&>K;dv?-5V[kDbyvgãU"(nMjuN#v4+;/VfE:L]0NjmjrP7;n:cXXb.i_p#i#X.y[)#8pAYp3sgQ9R79#6'oãU"E?JB_0Fk+mf$(:n,MãU"*$1^=w,C7*8-98f8K(M1)Y91$;2B4+tiY\bb4(d^cCp=HpL4lX7#fiOJn*YcwEtãU"m%$rTPp6:mt)wqkf#CM)9LVvW58fwW+Jd4IQ:$?me#+2-%w'g&NB0j/U5maM6ueãU"6QEonngelk7h6%SUsF>(nQsB7_q3FF=AP)J25g/Ird)X4QZH;,.FRtY.0C$b/JKãU"H[]/amvqpfA+k]f4c/?bantu8uu_AP:8ts*rKi$aP[6Ix?ãU"V)hfmW89$j$)Y+Gen_IuYCXtnu4g$hVlJrX;xlfbMbuCd+0E=h3m9eaaNcp0JosãU"SGYV[do_;U3*[gXs#JGYw4jL5G^lDJzquFTT_tE.1[g)XoMcq^qPKErv=l6TNi1ãU"v1q^g8fKUBEl^'-beV563Z3ZaTuh%JH%DMR-G-Z)XOgTaL%pZji'HUie6.6li:>ãU"8?qa&r-LIjxCKDcK)v,\l0fSNG>:vsWAY,y;b.UNaqSjRUcF-H7_XTwB+D,]Y;sãU"S<>%'uT*m^Ff=tK9F5Uy^>8h^2,v3X)3ãU"'x1v->Bi^Tf00nYNtGd\,%5Fe+_RI)\:QFbVM9KO=EOCMT[oO2lQv2/Y%+q$Ay.ãU"'K%p22njBV,OCXK7X-1JfKhAM9[AWSxj/wenK9+5X(d?6l7cargr0x;O/W>Or(MJbFHhb^UBq3>3BeBWjZ%M.4H.84w?L#Db1kck#XlQ?o?*1h^iãU"dMwi7No\bvg3<)kf9b,3^4RaJfOU5OM_w'YfpdFq3c*>a/B4(VF#Z^>o>2EpLF=ãU"]l9)z5W.S4PhMXlzEq\nQVh%=hl&ZBlTh+MBX*s4YZ377y^.:3xsaV\0]e#MVL/ãU"+:y'/zJv0_bEI%3j0OA]YDta;tV/4WN+pV-Sh,[cVhuT)O/Pz6#H-YrXl.ic26hãU"hi8J5D%Q8Hk8h[B#M%(B3u4[2_([b]LLRJ'rM,6oRNqw4yI.du9/TFi2r%vK6t3ãU"#*0ZWvVfYFH(hLg]a+emAYrlncafn&cZEQwgzFTpaSmW.DDC0JAp[:EK$X#VUT#ãU"IjLPv=6IMV8#O*wspJ9qN>m$=IT_yere(-^t3X26\z9$o+B#GJ-_NCHãU"tlpvu.c14_IY))Ki)HimWo;.]5woHtbZOmOe\'h0f/9G%U?;bn\eT;qLFR_;((8ãU"aurev>Z%T_]Jjs_E?pZV#uP(R3QpcJ>Pncld3oYL)9[?[b[Heor.yl*/I(jrapSãU"6eZR-jd6#Y/X['3g.+]Ypa4&$nxh07&?lccãU"$4AkB:e/-0[;86V1yg>W8l(wH.5aA(23%9%ZDB34&5:%DC(ie,skDp%tG^C.kBTãU"eXQXgg=15/ZJNt1Q(71Q._?rZ$30;6)Zr,SvLY1g(5)BHYul[Bq7du(GBMHa+WDãU"_-J9iR=#S$CRbE:>sycbGZ>4sNmboV3loS2V58qy.M03cwF/?YGL(aOj>__/i&8(hM,lC$^.\:ãU"]$%1+7k$7o>\jDVGmZc9JdL4DvDioaSiM7ysU(pdwKfXZ8wucLh7NX^0iVbP%>mãU"U?,l7K:7uNHB+%;NR=Q.o;Hzg44TW<+/\nZpcRLp#n189V9\&Y(Qb$Cy#qh#I.jãU"k#Puuw1ASD\icc#;IWtT]C+$h=/M7o:6Vr>+lp&.,6fnLlcHn23FDuk7;6n8\Y?ãU"[Ah*7pP,\%r,[MpT?smwbLbcL,[sewm_\fbMYNS;&Aq#:-8j&0_1VUtfFChmWFpãU"MkvFnQ2fMG5DxZ4M3bdeUgDuCkF[stf_S)rYIx('WFN;2PM/FELpa3OD$omXGv&ãU"eR%JnWK,20+X+QcãU"2&RVbbU.pRaUpXNVRnN>#pQ0sm(a]^quRU2qS[1.q1(#?&I$FLsu0e;FXalfKxmãU"UqD=YC-jfPC;KZuTHSp\^BhWCCP[1,Y[;n(8Lgr(ãU";)oilMf1d,sR%NXT8.NcFK,3V*jDlIxLCEprl.a'Z*p;sbj14P1nifuHV^=uuwDãU"wjBl*&aU;%\+BF%lg5vTB;dMgU6kUtãU"31itz,TtY*?RSXC\-sM/wSEs7+S3(PuJ5,);]=KHt*JH_g\bãU"l?NR1+rgt]Y(gDWU^QmqTzA.b\GtBY=ggjh]tlSfpm<ãU"qDD.N]Ck1TZHt>X.\2TV)=VThF[J)5^q%'A#JZD>e]iYyiCYYx'O7Au>j-Orz_&ãU"g#mNk97J:u36$sE',cDfQbIsY1Xf^bMn:0IsU*N_q\:voPDVhmjL_wY:fTFV.*UãU"07L9/TmYbUgeI^f[jq\t#[d^>HGK:^3Hj+fSãU"6n)6Dt8,GS?eQT+%d6FeU?dCt*>5b,U?+RO\#Pka1tG>Z_+G7X=ljUr6vW3tAr&ãU"7J:DNU91[31bM__w8dLld:-fu4U)Q8As<*s2_.rZPXc2+PPdFx/-;F66j=>Gq?i-d/\7ML<>fBlSxXkeg9[Yr&mTe&/^YgYi*-jRSA[f[kãU"j0APcWVT8tIiEI*F*\,jS7Hm3YPRTr(.vaqk8\SRLs8N2+tt^(hr?g*=U56[K0EãU"2,YQex*es1;DB]JHU?RReCw[i^C>W%0AWj?LQjMs6e-^M_N[tp*l8_QvfR:^^\.ãU"k.&uxgw#%MYA*<\zHcqKFaCM*[k6_\vEp[+z2E2Z;fLYZlN<^y1^D(IGrvl9/l=ãU"(MSv3eM#iT#b#TZo(;qoiD^=5>DsMnup;rL(L^CdtFbuj'&0\VZfPod^f4_$>_oxc'I\vL'HZJ=PY/ãU"/Nq95&Eq81.SYk#)uRhF16e=+T]FS-DijHCX]HbLbo_ypqmv]ESdPmk*,H$tz(fãU"UZmUC6/eR(a5JSSSYW6bKD:*Z&>9D?.3[_AH3RQ$29DO?LE8eO27ae-U^7pVWV/ãU"u.R#.:&3-NBW-LHd/CiEL0p?J<#T-WwJtW#Fg^G1SVY[a7$D_nGSV-XVB]YDaN<ãU"NdmJ1iws9?+-LbFa[Z$Ak^d#I.;bM[BuexggtbUD(m75F\5]6*eY^6?[3YJp8VTãU"g336D$0YHgM$Xh(8#laAPVQTVfIVnJ_xb6UzHsavuSn<$0u,1jbJkQqM('%$Ov#ãU"hJw7>x=*q*I6IUCk_,eQ;bXBkmWBfW/,y0a(3^Eg*YQ2Mbu*xCN;Z_W1[SaãU"qCFWp$hKsolb0?.;fDIS_W_H\t^35?,6$EiX5Fj24gtJ/SNvlT5[o9+J&gMx;9;ãU"I7%&qwVA,*]nn0/Y8_0dJ;ynjx]G^hCAIu2[^/<5Toj.:OCim)UdI7Mz:fvt>2qbuh7qqlSb2gS$(tFk>h,,Ho2<&N&KAx?tq+lk5WFHrãU"E8gMBb4S+OYxm#+bRA]c;?KFu)QP%+]:XZ^s-l,MDaC#MUz9=3Ca\Lt>W7mTS0,ãU"j)5+2$tUZHsble+$bf4TU)XyMDsFX%5HWIb^xFtfaLtHiK:o&#P'_#&c6$Al$\uãU":bpVjX*zVSlY2r3]cgxCJ*_uqCfl=D7(>07ifIZSirYmIw0BfkhAgqNm4kN;Xm>ãU"$ZX5WN>/V5N$FH$D]IW.RMOp:'-]cm9e2BuEpMc\]+3Uu[^:[7O^\HOb-S\mQgQãU":z,B2AL\EO[4lAEBclNqApGdYlIICtWq%3kdyJP*;yPQ,HEOq%/W^)[pDB*vI(AãU"bZ1nns[#A/&sR:(7fcCuQ%U2teloxvQwRZMW*AFZjtHJMJlVxv/Jw6#3Na-'7L*ãU"fE(vQNLZKBjB6dãU"dYBShsm8uDQani5d%%k%0LXG045[t7mH.W]iG1LpnDFbVw5l98wFAi+\]\0Ij^&ãU"=RR7oiZ7Z]d$\jC6qvcH?RH^27i#oj?83DP5BHrF2\aFHN(gI^L97^<87Jb(W7CãU"sRj:yFmX#nkW*LR15n6ãU")7&yXKmxyj=VIK=Os*SKNja0^$hmUru7gG'6ãU"/j=tDx1$iR9H=w5Z59F^<[N:Y'9h$ll:_Bg(Rt2/k0xE^8j?&7C9qkJ[0-%)CBIãU"NkQ<9o&m2,4omc.)JZteXD7-^=Jo2ILfE%b]CRw.&(?Uhyv*9JT5DW5BVJoha%5>W9OFuB52CbKwUmpk]>5AUk[1*A7rLBãU"pqX6M?a)Yq2tT?xbtQAmCu4Om4u7Q88_AAMK2JsDp(5-^Xe3MlaKikW(Ll2?6N-ãU"$p)doEIVlkcfu5]/v8Y#I7R)Fu0]B4k>^89w5K:wJBma5#E<'J;*\MDSK'_qyT/ãU"\8w4PRk'D&y77CJ-'dwSd%ppReZ*U'+OC_EG)UHAYe#tb>%zKo>I;gOd-1PFm*CãU"/]K.^RdqoADH/)8PiZJeSUr*e#]H#z$kl9?>\K9j5Yi&=ep<1f\3iUuAA,2aQemãU"=_-$p+=5RC$N3yjrs$(j;o9N[Kqjy.rDw1cf5mu^,CQP8$Q0p+\xOvXiAlqF?s1ãU"jC-LL5W9vGQEUUH7Ch-G$[-Y*YL,p^=qT]-+h#+S6DeKVagDmWP$AeAwTcE*EY+ãU"QE155-T;R=D0vAI]B#k5&:_<[fwx9_uozi;=x77:/=_5,r)CH:c8_]k_8*]sCSN18wq4>symFj#^6Au0Nk1DsgJãU"MkLP?eU2$;0F5qtCQiH*iHkX[-4Y)($BASOFMc8\Tu,,p^Q%qUFWZu$)hG??A/SãU";usjkB1(p+N/k>=v0#TQ'fu'QKJjjxPj?T]ioC:a6%PYZ\ãU"Zm&d1J2Okl)'8f277HtYQDEi>6n2#-)Cv&$)FGRa=K%y]Zr]4djisZ5'0.>jj+yãU"*:b)^'qGLl:YE(t?I$;:%:e3R#nO(X,ksPe1R)Pe5mc]bn+?g+;=.H]jJ+/smC*ãU"I<<^:4J4#s.^WZVMPB^a'RG5SspA\^FwQSF-->n=L*O-hDTKN$Ut2p]PJa\k/3cãU"bYfLv](Oe/j)Dz(0T+b-,c#6m8sJ<.U-NC9nw,6^KR8]JGiguE;U0kFhj]$ldLUãU"Uj>aJ4QfC.cB/_m(k1*FF[vsM7xiF%Hf4v8lG:%#tEOfh?dQJIca>yWUfTg.Pl_xBbu=[ãU"j7VhPECN^omOC*FvYmP3:O[aV'.K.2C4XN$bP'VIs1F]%LU/g6u3=&8P=v7v60;ãU"IxA*UAq,2mCd/m5_m&rSAh=E^I%ckeAc?iUH_1RvIhw-$.Vtz3323\NMhrGw,^5ãU"vlsok]2RIAugChRog&CmV(+2.jP19\GIyiweLI_=6>ãU"7x<^^bnXC_TwTGiG[j=Oq*^7AA[3Q]>8n$;z[RVcH/_Q2F,Sy-VPEJ'TWj4K_jqãU"tp]rI]aPDc'Zv<*?-us8VR\#ORD0vJT2*,oUj'7Se#.
BQL9nFGb_&q;HgOkQ,T%+nqi]HIãU"jc]C(&KYZPCvCW7\g/?>gnFJuU=+]Lv[8sV1d5(s9g*/SHknt49)DqfL7hAI'0NãU"nWbTh>c]R)$3OAhSl1aaRqd)Gj#Px,_UM_TuSCs;uoX*JN6/Y=:jCoL#h;rD/5_ãU"]QPw^*r(LP4YGl3RR$['EtJ0eRr2H$'ãU"S&\m=VN8#eYD6TGZZF6jtFih/l7-MNh)gVgmp#O&lX1=tBD#[>lU2:Q5tV)INNi\*Y.R8DufsW&k:PWbi$U\guD64oZgR/HZf?F*l/f)0Q?fL2WH:4ãU"Fo3#Vfj%?I03gN8#pDAL3fn#-SlR4tpet2:PZ%T)DfD_-XlV5#>ãU"swf#xWh^x-[d#o$gwEZbJvB7149e3xuS[Hx3xNMj1vr$w%W1$KRn$[$mULCruo<ãU".xYZtln,&'32TW?5Hi$9NXGd:c'%Ih(\$XE,VMpjRL,&U#huh7loQ.wPps#8$?qB7)hl?nP:6w7zSrxFvc.%KjãU"$jhg\wf:#=xXex&jovhvP,>U?=93cQ\AGBXlF$m[m93#0+ot,s'fm4+bZ4_WMO#ãU">3?q7/A^uvUc8cCXD3E?^(L$vL\hY+4SN]tKdon.>a4qELas*FpP(Z0X2E)dNbaãU"tClf:nF,'VreBt(^2-B3GI$+Nk3S+#1Mq-r8HdG3FzL(DL&,=r4FW_FEPY9Jaia'](#RIpXq+0x[eGmTmx9O-8#_>oUInkT?9h3wIFd+cãU"1aif5#Cyr+$>igV,i/hw*339-G49hT$7b1A8%U[.r13&<6FaW]-bQ/qUPyAk-^IãU"vHVO7I#%^Q$$MyiaBI-nwa)-Xv]S4A5[;kWQu(unQ#^t$7i?#\wE_%n;>k1(fC=ãU"&24^XxF3eTT9)r5WXxaSO%YSO]XigB>UyW+OV:bA\$KZG**_0IoL$'C^i\PY&C7ãU"?>r]HG\R5j#=T[=S?Nx1yfHn)NcSJ\E\Cxj'A75.Qn)$;l-(md0GrInZ)Gc-ãU"AEez%W,FIN'C]9E3%7%pRw^B9N[BEE5/:\c\//QsiN/ukGgdVjuN2Vx,wH6MQWIãU"-.)\/_-d^FVC0oL.(=AX^[>&Mcn_pAgJfQS>$%so,]nDg>a6+%>sL-h0f)+(^C*ãU":F8(CF4:B:9ELyS1/v_JvS)o]QA2(5V/wnj?[aFHURi=-+,XK0k>,NE_7zq,rJwãU"A=W%U;KDnC=Cc(ixe6ZXYP(O;atk:gaH1:^CC6'%i%FCINI)(r02S=yCMsRy3mPãU"mvqOB#(?ãU"_#uDrWA3#rMHV$:osoK_I%n'^5ar;$YFji-SA4%%K1?cSk>5\;#o&W+#k-^6ZXkãU";mZ(/HIbD=3$D.tHM1;[_E6H:sILd]zAmF3M^9(w]?c\c,drW-K%zs^>KA#U2KDãU"oZilNgai_TB=YSV9V.Q8MTv^M(m$UR11jMgkr+g+olP\JI5XVGd6&e\D.YwsbtCãU"_0$,c.,?=15FptsUNC;5?T\ns/Yh'*Z2x/#A^f(sY5\Aj/C^QVMpãU"-'+MP#5=m_EM6',wN=LmO>bHKf=x,#nf?o395(BCp58=NzcqUXEI[I3ãU"T^5<)>2mksRY[r9l;wSlH,doQrcdk_z24&.+ONIãU"njpL9=^wLOje.Us%*Y:+W4F,1?J0M7.oiwtFoK^6g,^cr+/Be<%&Lzp*YSe%*XW?Qt;WRm5/'gg?m'Oi*TãU"g1*Q[*pphF6oL(##PCK?UO&+Ue+mUuE,fQjr43jL/ZD*]>6o-O*hO:;DDbf[BxoãU"qmlkqQ2fgGFBl;#em)G$hGA#%5y/lxl'Hn42.823P:Nd8$T$xks*\[.)LrloMDrx>*/mIM5PgpVxoFXDd.NH5G.rOmB_l=oq.nN.>NwQP=&3EY)/xF4vy.L?&35gnãU"IsoNf?LeOT5Q.uo&[FcM7C'^TO_\bbT-QRN9u\T7A6rr>245uopZs+*_8nJR2-YãU"Wi-wA08#77mrB<_GQOvB'rZZJ)VNb:.PhqVNvCvm%+UA>_=i9)%UW*zL,6J+TEFãU"M;)p36*.tP+/Ca<&cmE^1na4nHB91N7BHR?HSjj]vs3^SyE'mUHmtCNwwXx6oL=ãU"NflKi57LLt:xv$fs^PF8aF3ItLF.8SB&wOLaa&OX5Fqx<7O]EE$=p:rfVZsFgNdãU"^j4tD9G2OkU6dDr;0lQi_CHs;13'VCwFqDjFAKxdA\Ntinlq;xE=tnb2&0xsy,YãU"]K_:l.7k6,FgD<]zPd1Aq43.7U]H(EI?1N0+q$o;Wh:<<^EARpl5YK_iA,ORakgãU"*'sUTEsX>SpOdP&uDZ,ãU"^(X9D.>Zw=6q&T*h8YYGux'7UATE0U?djmfjZ]saJnmMDh4h'wvoWV?vp9*f[f*ãU"J1cB([BV.dj1P6qN+^XJn>mF[u[E\=MTP:T>HHEtiãU",O?VuiGhc2#$X&i6r\M[4Ba/cxi&WbCfD<0nlp+8xUHomBHnT%,3Dbu1xIJ9L,PãU"eYm]=%\jQVl7T5\1/tF+k9\)F1Z,Y[Q>;G_Xnd'e)/CgA19QR7u#EL5_Q+[L7PsãU"w1IfgmL/&$vjI-:4Sx;=gz)+4W2YW99DaaY$i\W*EWW:-rtDvi%mb*8pãU"3+(Ci4UgIdI-&BU\VdV.%K5Vi?t5k+OxcS#&&Lx04oyw8O_<.3L7Yf1+9/E:x#jãU"'8T73nU)$2poZE4?(1;%fh\YiiF,Z:C/zk.p:Z+t<5-GDZ_,;z.fx1O9Pb.Ap7lãU"?LY:wV;wnaXN)fx/NoOhC3M.19=34dur2_sehw7MMrw_Ixjl(nUWA4CvSI)ExOFãU"c4R0>(jZ)>#\8#mFRwq^,&S$]al\c&kz&h*)g3l8.oWm3>\MfAC[(T1&+?jilkNãU"9<]nl'*Oj[nTmGF*4aQ-P&%A(2C'EPcbHXJKztj8'p8yHnM;y3.ZY:=>jL[D6+&ãU"(vd>u'8%-D52r))-,E;'j]$5Tmj\roKCWZd[qe/JezX-*1POa.Y]6=ue)L;Aq'jãU"g,z?76mi28(=.F?W;Q[=gM2dK3WTnc*V2H)]qTG-*lBtBv/Wn4EGBe,:qN62x?vãU"oMID)t,P:MyG=Rb/9zMyHd)AG>dMc<_B_n,9_uJ'd7YsoG9E;pp'_Vh$3YGXAkwãU"g1)p+nxp.XO4PfGlv[#uE?#xr0H3bh4:gV7I:%ZWej4;q&2B*oi\Et+OdPvSM,iãU"k+Uj.m2Bv%=igqFZZ[VUUc1=[0cLMsTh$Rb%].\kLop],=.QDEOXeYwXDg^9GR+ãU"DAk8-xu]J:1AU5#._KjHTxOi;],GWI3WFAP%wLlX;\2?(Htnp'>lz(bxOqJdMkRãU"[80=j-*#lTu,'9lRKR>k&msoD=i,$SFK&/ys0FnH:Fv&7(k##fqgh1DN_KPKjE\ãU"Knr8XgG)&97[:>v-otDDPDBaF$N5Dhn%Ajvlt]cAKDdVV7>K$byF.]a'wNceqieãU"7b)b4#PW&(_kb*0718;lj1O8hZ9*E7(MY[MPzwBN-'pNrJP]7')rLOD*e>xW8'zãU"F=i?e;wO'x^NcE9cEVwU%[8'X=f4_aQye,BLchL%aOcF(R_eL9$8%QGG]#5OnTGãU"6Kp^l%r+cdnEL'sWsB5gVmT(p'8(1T:21S5kShg-5IãU"FCcuxCvr>.xlc>VdYu&qs^,ASPJ]JQ%XSpU,Fa[CnNTon3lNASKeROsZ4bYn0wlãU"rh\'5_1C4gp[z)Gfq#iEM/t0lVPDZid#:5\y$wh1C6J5.^HkOc.(lX>sdOkddT>ãU"nXwI^chWsZ[l6vLmJ\1^M3K>T&:nK%z)X7W=J^I)1JSSLsKFm,ed9X>tfN-[OAqãU"5vjQ4D8dJ'Tr>bfoh\4uE3._5?Zc-.xw/NE;RYYk(vj,'-c^i^%b+6&,n,5q2Q#ãU")xEYL1fPt1=l$21Cziv]bRb[q)E_kHY:>,wWW?ãU"HL&'PD7(l(I-OoEdkr_k%Sh$+6w;mX&[3g<(?GxtyEay2ewrL[dNGgQffVGr[b6ãU"xW6i<>U8U7PVmQ.va1*ZeQwD,L.A0E:L>x^h6/i/w+aHeDV+Ai0eBCj+j5]RmEPãU"knDkpo]ho]csXM:wM_m#jS,d?1[$F*#JUE63>)bX-B4Ixr\OK:h**-)aY/RJWFBãU"J:o.+V)oFP]>xFTJo)OSZ4\(S6(YP12]5F1KHD_3?H(*bT3h_?i).^nxiv%-j%WãU"GrproP0ZY=%;z<7c&)Y)HKwy:Zq=WlhN8A\-1.Uq&#j1pCH;ãU"$Vo:NT=tHVZto->]XjOBtCOKgZ;[#4L;[n)=x2)/T&tLQ0mJ>e>PH0nPk$D8N8sãU"syODX=kxu$W*%q*V1,)oNG1g53g58tkWv,o*rZ*BK8+XW10r/[y;zgnXFq;n.*kKxU[BcVvHhkOe=3':8UUc[Dia0n%LãU"7]VH8niOWh(UIa9&\dU&GLQ0_K7wJ1,$\xN?L(m96%w6B3cjdq6+-H[C?_2pY0RãU"'#s<.YT_qmXq?OON?A7.2=dbIK/eIOJne^TXR2C>n>\[uWc3$vB(u?ikuUAL'njãU"qj;igW,52zl9loS-UkWB.T-QKK6lC+GfZ40CW>T1X8RnDVL,;^2\[qnIanuQp#RãU".D'lt5w_ajg72Tr4PBN#HQXiYU^&DnfVmvW1X[ZK]Y.:yA8.NXw+]#W:NJa.bG2ãU"gppqZ_\^?%H9aJNK=wd$/G0$&=],o[SqdD-,MwR4.Is>0^\Vq^>Z&sF7qSr%''gãU"IXd_v+rX4S]kC[(VmZp.8Zu27Pd''XPJd:#RFk9jwdewGp4+W,D(8#^>j(ka^*aãU"bg.416<8L1;1ePq#E#kaw+G>4L3'q]wB0ZcdsitGWOv_0znB]kC5Dtr-_%6we?/ãU"GDKL\9OqZKLtroVU*z.NKtxL[mwn3Z*O#^M4TwGo.oVID.8'FN[It;GmEYãU"+T/abn']ZEk#7,M-=MI3ãU"/W.7I,QdRN>>)9*E&jI_u3jo:CQn8^nZupOHT5+8ftMT9BigOPL/nQfu,pKx/>;ãU":]e]ZELIX=bkW33ee1*SB*jD#9N0>U0MR+Afd]t+fGR&k[gpfNP;u-i8$Y3cKIOãU"*+p/L0177OHV2O>2Ggj$uTH6%CYI]uJZ*IZa/?$bbNhdr9(9p>Xc=8XC)-8gB3vN(fns[DSvZ[aZPI5-A(7u/Adj*;boUNR[BW?M0A;ywiãU"sS%K/pD'BtV0Co.-Z:<0CkR9]*M$7kU]a;9F>Mu;vC??KQM9D/fALfe<\r[+eIGãU":/aSnPbQ$1C(s/pxirpkLAj>5Zn3j,b=1,df1$8&)PxlC&X/h+1L,:IQxCp6h9]pQOT0Y+YCw7cRe/RBo;B1?ãU"h/]eZyB3<%lF-/fHwn1K?aãU"E8O#Od=RvW^pbvXJ%'8WD$IN#&SNxJg-/VPJ2>SFDW4R=2]U;z\5g%*(jb>1/TXãU"w'+\D[R7ZX3zNI1j%3s_USpo/gE6T(_a=S^^ABãU"BFAb.C6]QjU=MU7sWuoDE3XD2PlkalRaA%\sXk#\o)h,C:%nFHEYnoLpZTaa36:ãU"BC3$*lT>=KUuD[Ko^GC'#R;ysYiCD==[W6??aBU8'p1'Z/6ejHloI7/1M0si*__ãU"dF,&Pz5Qi6yBnH)wZaNEbgG^*K?%'6mBW^z'1*F-sqGBB1U]G[Q7a1kVmLO,%I>ãU"UY47_F^F/m5d2cMaQ%w;7uiYV+*cQ?a2sM%$X90u:VbãU"lPDVLp_D(mRI7j/9=A\9k9a?#cwLaTED3]syI/fX:jTBPR\:3l/'%%;r]_7cW7hãU"Poq?C6w-e7BFDBI_?wP?78rãU"^%x&sNq1F/ANC8YroK1)xbbj*5_niGw_g3iHF*^6KB?/Tf8E'$Ymw]VHN=hgSV'ãEND SUBãSUB VDãU"692-9._y/qKãU"20G^e1/&Xx4FK)aU;H^QRcj_FwMQco9pMa2L$TQ*TPhp*M%V_oGzI2MuãU"lXWtrFX)8bBTB(gS8W9h*(tdeJMdM/E83LbA>:veol]iXVFJE'tccr4>,BT&Ui^ãU"M8QV[(Zz^,iTsRh-tcKX2YHaQIQH4(vor7K]In4+q0#fGd-[xW;)NvMkx]s%_8MãU"+hMq-(]nXP)nX]:,77<#6msd4;.n%B1[(b3\$21C#\WyTF5%9qg?P'n8cS/q<>ZãU"BQYOsa=^o.XC_[3+q276Kulb:M(+[qAm^C/XXACvg>0K?d)lf:XqF3[EGmFbP()PVCDzy?61QuUu/x[igRQ5-(.auK\(JuXeLgeTH%MoqJVãU"eaJ0+4RkeVN.DfM'Zq)eLGtS0*-D+ZnM'h=uTE(oJBODk29kC%eUUn;79,A)Q?-ãU"^igSI=[+:8k(m<.undw?fGVaJK\BI'5dUYE<,+:ZmJ(IkAG4>?DPpgBq[0DeL)FãU"owDC4xs)PFLTUQ^xS:QF$p)ne.s'qJ%V?eIgDByUj%2;]J['Yn1[E?;TDVAAãU"oLS;gJ5S?2i36=ecMW7[RuDbLd,369humq(X'1$$]o8fBNELWlU%pb/,kHbF[a>ãU"wJ$lP?uUCSsH,_[4M9;%i[#)?\3,O]SE83%V1f1dKuZ]GD8cw-=F6#skKF7[#W4ãU"M=q?K'GW,-mHq/]d.Lj=i*UWVT$f%#.W*%Qr+^^3vSF:?LIc)U1m0c:'0H6(.Yum9e$'uD8OyãU"(PeO[wRJfX\C]fY1sVI,KBbH:kU(l3&dIuMyMSPrGf8SLZ#d2aIBY4?M'QQI$nr8Sz&QPO7c=RXVP]7'alZc7i,oJMwd*ãU"mS4U:y&']C^jyIB'U_D,O;kdx6UE'.)h4c+m'A(M+>L1(V,([g^1)Jx\A8JndcbãU"vV(Na&,3eLm&c.2-Hg74JGW.NMGZZ*6:GfEFlE>R&q7A'vA7=o0PG.19CQ7i?q)ãU"L1zsBezJl&G28W/pM:Y7lj&AXxhãU"LBVXY==d/g;_D,lIW+pTqM8'GHDhlkcmr;3Ec6Oeh'PBi%e?vpTyJ(]#x4#TwDsãU"8[ge7XFVjOGFUnLyW0'ey,kZ9A^BZLAQWkK9p)9d9qu.7svCtRRr#bU6]0[1F=>ãU"HaR]0-;2YR1_%u6VHhZ$uZk5fMRnC'%rT#NjR%4]\uf.Y7&NPuUW3KHewj.ZKM(&*MsBãU".q6gtbbmNph9CjM^?DZd(P$;H%d:Oki%sC]sLV5_4-e?^dfDlJ2kUcX2aA5j#OyãU"B$jC&':1Ee_1RãU"F*jaU_4Cc/xxv3R22^A*2KcT.-gpuIM;Zq.MoaI6D+qMMyy9iYud30L=u8emoJDãU"+5;TEAi#D,HX5Gek^:OT%^_gãU"b2G^$qk:'2i_mJgPH_h6WWH$lt>7r_;nNw*g;'/:I*<+7DpT;-,GZj;;(3Jjg<,ãU";*K>;.KKjJe'G1BJfM+9xthe-IbM4e(5NR4f,Y=2^e;.Mr:h%'0>L:&+8Mtd%-GãU"H^z%;(4Nzh&,<.NN%.LTnZO'b2FZPq+:&.iO-JfPDO(6WVDP,t>6nO;.Nv2j[Q/ãU"8vo5bhuj=7Qr_*=Z2^O*t>6f/rT=8voo$g1c\G$hu5d'4ug7tgtJg2$rWJh6uh7tgãU"?8xw,pCGY:7,DEKpLR:eHR,DI3apVD5Mq$lpCHmJdlDJeH*#DNEuXLm>GkBLVnIãU"cxhvnMsMh6mHQoR6ntJg2$VnNwTg<-GjK><.INbtf.PMrd&q-HnNh&.JfQ.P.N$ãU"v\\W>GlF\rXId&l0XMtVlFWHlpVFXtJh6pWXNxRm4cqi]<4ds3ar^d6wqbtscrmãU"Lmtdtec,Hdx$uZT7?qkDTZ8sczu(8wsqj>7rloT>8utg4hZ8xwVpDMqjf#DNsNbãU"vnNQwrf.tMrnPq.Ntfl0XNx$v^dw?qlHduxsd(u8xwtVnNwP,]wdu%p&'9%%9%%ãU"%%-%B^3TGr$A+,A[1%%Q%L%%-%%%%%%%%%&%%E%%%%%%%%%gzr%uSgf%xup&%'9ãU"%9%%%%-F%6/T%GX)u2QQ+%:%;&%%%-%%%%%%%%%%%E[%%%g%1%%u%rfuS.uh'u%ãU"p&'9%%9%%#%-%%C-TGFbn+]\%N%%$%r%%.%%%%%%%%%&%%E%%1%e8%%%urf%uVSãU"u(h'up%&'9%%9%%%7-%:-\TG&jT?MWUm%%,d%%%.%%%%%%%%%%%%E%%%)ob%%%uãU"rfu%WSuh&'up&%'9%9%%%%-F%-1TUGZ0D<;KB%=%Tk%%%-%%%%%%%%%%%E#%%%tãU"%?&%g%rfuS.uh'u%p*+%%%%%*%%*%5%&%%l']&%%%%ãEND SUBãV2ãV3ãV4ãV5ãV6ãV7ãV8ãV9ãVAãVBãVCãVDãCLOSE:IF S=96AND 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ãStephen L. Maxson BUFFERED .BMP VIEWER smax@isc-durant.com 04-06-97 (17:31) QB, QBasic, PDS 122 4255 DRAWBMP8.BAS'-------------------------------------------------------------------ã'DRAWBMP8.BASã'-------------------------------------------------------------------ã'Stephen L. Maxsonã'smax@isc-durant.comã'-------------------------------------------------------------------ã'This is the fastest 8-bit .BMP loader I've come up with so far.ã'Uses Coridon Henshaw's "SetPalette" SUBroutine to speed up colorã'loading; If you want to use DrawBMP8 in another program, SetPaletteã'will have to go with it. DrawBMP8 reads from the file into aã'buffer of up to 32767 bytes, then decodes to screen from there,ã'which is much faster then reading and decoding one byte at a time.ã'Qbasic seems to have a problem with strings of that length; I wouldã'suggest setting BufferMax% to 19000 or so to take care of this.ã'-------------------------------------------------------------------ã'To display an 8-bit .BMP file, just call the SUB, passing the nameã'and the X and Y coordinates to start at.ã'EXAMPLES:ã'DrawBMP8 "funky.bmp", 0, 0ã'File$ = "groovy.bmp": DrawBMP8 File$, 96, 32ã'-------------------------------------------------------------------ã'The SUB takes for granted that you are in screen mode 13 (MCGA/VGAã'320x200x256), and that you are passing it the name of a valid 8-bitã'.BMP file. It also will not clear the screen for you. If the .BMPã'image is larger than 320x200 (- X and Y), only the upper-left-handã'portion of the image will be displayed.ã'-------------------------------------------------------------------ã'Public Domain, (ab)use at your own risk.ã'-------------------------------------------------------------------ããDECLARE SUB DrawBMP8 (Pic$, X%, Y%)ãDECLARE SUB SetPalette (Attr%, Red%, Green%, Blue%)ãDEFINT A-ZããCLSãFILES "*.BMP"ãINPUT "Please enter name of an 8-bit .BMP file -> ", Pic$ãIF Pic$ = "" THEN ENDãIF INSTR(Pic$, ".") < 1 THEN Pic$ = Pic$ + ".BMP"ãSCREEN 13ããDrawBMP8 Pic$, 0, 0ããBEEPãDOãLOOP UNTIL INKEY$ <> ""ãSCREEN 0, 0, 0ãWIDTH 80ããENDããSUB DrawBMP8 (Pic$, X%, Y%)ãã'Maximum size of buffer, change to 19000 for QBasic-ãBufferMax% = 32767ãOPEN Pic$ FOR BINARY AS #1ã'Read width and height of image-ãGET #1, 19, BMPWidth%ãGET #1, 23, BMPHeight%ã'Each raster must be a multiple of 4 bytes, this next line takesã'care of 'padded' bytes at the end of rasters of odd-width images-ãIF BMPWidth% / 4 <> BMPWidth% \ 4 THEN PadBytes% = 4 - (BMPWidth% MOD 4)ã'Read the entire palette into a buffer-ãA$ = SPACE$(1024)ãGET #1, 55, A$ã'Decode the palette from the buffer-ãFOR I% = 0 TO 255ã Blue% = ASC(MID$(A$, I% * 4 + 1, 1)) \ 4ã Green% = ASC(MID$(A$, I% * 4 + 2, 1)) \ 4ã Red% = ASC(MID$(A$, I% * 4 + 3, 1)) \ 4ã 'Henshaw's routine for faster palette settingã SetPalette I%, Red%, Green%, Blue%ãNEXT I%ãN& = 1079ãA% = BufferMax%ãA% = A% - (BufferMax% MOD (BMPWidth% + PadBytes%)) 'Find usable buffer size-ãB% = A% \ (BMPWidth% + PadBytes%) - 1 'Find rasters per buffer-ãA$ = SPACE$(A%)ãK% = BMPHeight% - 1ãDOã 'If current buffer is off screen, read another-ã DO WHILE K% - B% > (199 - Y%)ã 'Read a buffer's worth-ã GET #1, N&, A$ã 'Move file pointer forward by buffer size-ã N& = N& + A%ã 'Decrease image line counterã K% = K% - B%ã LOOPã 'Read a buffer's worth-ã GET #1, N&, A$ã '(B% + 1) worth of rasters in buffer-ã FOR I% = 0 TO B%ã 'BMPWidth% = pixels per raster-ã FOR J% = 0 TO (BMPWidth% - 1)ã 'Decode each pixel from buffer-ã C% = ASC(MID$(A$, I% * (BMPWidth% + PadBytes%) + J% + 1, 1))ã 'If pixel falls in viewing area, plot it-ã IF J% < (320 - X%) AND K% < (200 - Y%) THEN PSET (J% + X%, K% + Y%), C%ã NEXT J%ã 'Done with this raster line, on to the next-ã K% = K% - 1ã 'K% < 0 condition must be checked, in case data at end of fileã 'does not completely fill the final buffer read-ã IF K% < 0 THEN EXIT FORã NEXT I%ã 'Move file pointer forward by buffer size-ã N& = N& + A%ã'If K% is not < 0, there's more image-ãLOOP UNTIL K% < 0ã'Put a fork in it, it's done-ãCLOSE #1ããEND SUBããSUB SetPalette (Attr%, Red%, Green%, Blue%)ãOUT &H3C7, Attr%ãOUT &H3C8, Attr%ãOUT &H3C9, Red%ãOUT &H3C9, Green%ãOUT &H3C9, Blue%ãEND SUBãAngelo Ken Pesce STAR SCROLL us0082@uniserv.uniplan.it 04-07-97 (17:31) QB, QBasic, PDS 92 1904 STARS.BAS DECLARE SUB SETPAL ()ãDECLARE SUB mov (xs%, ys%, xe%, ye%, xm%, ym%)ãDECLARE SUB scrd ()ãDECLARE SUB rndp ()ã' ------------------------------------------ Initã'$DYNAMICãDEFINT A-ZãSCREEN 13: CALL SETPALãDIM SHARED scr(319, 100) AS INTEGERãCONST vgaseg = &HA000ãCLSã' -----------------------------------------------ãã' ------------------------------------------ MainãDEF SEG = vgasegãDOãCALL rndpãã' FIRST LINEãCALL mov(1, 1, 106, 33, -1, -1)ãCALL mov(106, 1, 212, 33, 0, -1)ãCALL mov(212, 1, 318, 33, 1, -1)ãã' CENTRAL LEFT AND RIGHTãCALL mov(1, 33, 106, 65, -1, 0)ãCALL mov(212, 33, 318, 65, 1, 0)ãã' LAST LINEãCALL mov(1, 64, 106, 101, -1, 1)ãCALL mov(106, 65, 212, 100, 0, 1)ãCALL mov(212, 65, 318, 99, 1, 1)ãã' CENTRAL CENTRAL UPãCALL mov(107, 35, 160, 50, -1, -1)ãCALL mov(159, 35, 211, 50, 1, -1)ã' CENTRAL CENTRAL DOWNãCALL mov(107, 49, 160, 66, -1, 1)ãCALL mov(159, 50, 211, 65, 1, 1)ããCALL scrdãLOOP UNTIL INKEY$ <> ""ãDEF SEGãENDã' -----------------------------------------------ããREM $STATICãSUB mov (xs, ys, xe, ye, xm, ym)ãã' xs,ys = start position (x,y) (max 319,100)ã' xe,ye = end position (x,y) (max 319,100)ã' xm,ym = shift value (x,y)ããynd = 320 - (xe - xs + 1): ind = ys * 320 + xsãxs = xs + xm: xe = xe + xmãys = ys + ym: ye = ye + xmãFOR y = ys TO yeãFOR x = xs TO xeãcol = (PEEK(ind) + PEEK(ind + 1) + PEEK(ind - 1) + PEEK(ind + 320) + PEEK(ind - 320)) / 5ãIF col < 0 THEN col = 0ãind = ind + 1ãscr(x, y) = colãNEXTãind = ind + yndãNEXTãEND SUBããSUB rndpãFOR i = 0 TO 200ãx = RND * 319ãy = RND * 100ãPOKE (y * 320 + x), 127ãNEXTãEND SUBããSUB scrdãFOR y = 0 TO 100ãFOR x = 0 TO 319ãPOKE (ind), scr(x, y)ãind = ind + 1ãNEXTãNEXTãEND SUBããSUB SETPALãFOR i = 0 TO 126ãPALETTE i, ((63 - ABS(63 - i)) * 256 + (INT(i / 2) * 65536))ãFOR ii = 0 TO 5ãPSET (i, ii), iãNEXTãNEXTãPALETTE 127, 0ãEND SUBãAngelo Ken Pesce STAR (TITLE) ZOOM us0082@uniserv.uniplan.it 04-07-97 (17:31) QB, QBasic, PDS 184 12238 STARZOOM.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"STARZOOM.ZIP",4^6:Z&=8919:?STRING$(50,177);ãU"%up()%9%%%d-%C+/UGl^(Kij1.%%-F%%%-%%%%fu%xXSgRfxN(;mbb6ãU"vkCtjtH?fWoV6Xj0L^h8/bX.fx4wN_zdWr*wZwF$MEWk)N;eoA.,AIsC0mJB5EoãU"1eDil3u,4Wi/WAyl(ypn&HvRn%%jtFbATlOf;9Zogn<6%]MZ2Jkh2J_c#$twhamãU"xsZ-ei(T]jhH664bGUmG9wz&q9t8PBYPL7Q_M>]-^nQaW:,gWGH]P9v>)Tb[$98[ãU"d*Ij'sqE>UB:Fblrk+&61Zs\JC(+^4g0D,G(XdVoiLr[:NO]&%Eh._QL0'EtL>vãU"Rucs-qlV*1L5f#ixMx%YIp.4fqO;.6qE6BMs7x2bBK__x*%F.wK4-OX;HRR+#([ãU"F&*I8X1='$fOXH-q]HKQl)rY+ZP_?+H%+1+/>72pOQn5d0Iw&+$uaY'X#.Vf++[ãU"z\0ksCG][j5DL8_ZT\kxk9$9jE_ph>]ShXpI%#^=AY^tv&f8E(GA*s.TXBI5w*=ãU"sD)Y.4^G)=^SGTJUHb#1/LFY5jmUU\C,Xak\'0[uVUGo-Nl1wcK2UsSjl;XDTt8ãU"ZK^]T00hnF_1d*HsBLV'^]vF^?3e5bbL_EW'V'60:4ESBMltwG0aLs7$)_XB95HãU"JK7rGZ'Ze8^]Z[^kPt97CxcR_9xBWPYhCMmA]sJbue=3JA;wiqP-(XiCbGq_\7ZãU"aU.s$^j?F_hXYD./AXu7Tw*#zPdZGK%,DlXn>-Wa?6tr*HuvRkGk]Po_)#lP6x^ãU"YJp2&NCoMB3v4>mJxFG79n;s:o>yE?T&7C=2$ãU"NY\ASY1E=KV69r1XMN4#F9y^Oxs7MUlhg3g\q>&5Y>Akg7-:fGOBA:Hu6R+^.H*-q$:]J&umGIka&?1Xm\.%tw:Q?YLQ9)6yov0/^MCãU">B.sa\4evQ>*<OL>--i2i]WRC&E''G$2T:p%*[G=#-39Lk:llKYFCGãU"g-Bva6'KQ6w#X$ZXG_Si7)#9DK7gokxSj-^X0^i7:ZRHDW_11WX([e)bi.dcv'MãU"ywt,8P%3u+F?Bc.K&pLo+Yo^;YB^1qR)*3_e\y[G\*s:THhWp/cJ*U#/+K]FGeQak3X>^GDuXPI]R_OEmrãU"R$kt?R:tPQkeOR[MJZi%?SW$>7N._%KF1h9LiS#%yP+SDzdAv&,T]05).A\bMh'DD;O]QZ?qssãU"u#/pTi,b*U;2.wlkuT=Mm)se4HKus&Wu>lsB%GtjThz^K>j'r8+0EU51=&/[Kp(ãU"Zk'h\N$($$*fJ=xzRlWoUgb;_gIqO)&LnUXa6MjiVoh-VfIc3auU)7*4UJERqDRãU"SSSltIVCD1*-o]3MSu[;_Y?+]tkBach-0n+K]YTm8t(26sYHz<]JdW:x7W3LrkJ=1rUIBY\>:=ONMcW0i4%O8x.Cr_?PxL)CV?>=r6*2s923]#GoZKX#xxE?ãU":_s]Hz=CdMfHpq9bi18)e+1mY3r+V04%&Lw7Xs7M6l)+gR]]'x\eIN)qvNJSG'lãU"?tBga>aB2rYy<4\fK&ht+Ph(:kw.'JERD_jDGr#S?h+lpkRa^OHLk=>B>];o8lkQ6B6iTr\]\sKlI,B^s(U9\fF]CuVXSQm+0pl/+uULI;R3LnJZYnpãU"n,bUkZ0sqLL*m&.du0lpsm/,ML%U_998$-OM5xI9uv]oDoIMM,oS_*g6mw)wqEfãU"e<+ej0#>8*owuUOJK_g\[N,UaogB-l,#uEdruCTg:xM)Lfr-)q;r<].o=4Wn;ZiãU"j$nAX>DVpjT_$&=tHghkPC.QJiB0tq8$-.nBO#HãU"\iwj%8L&)#=G7reT_u_6al%BwvtEL,ea5Cu>(N63tLxZTe[.V\H.&cz2'Ejy-\hãU"Tjmu9s-F.k2XgJtGS-PxA5Q0m?\[,OsG6G;9#7FBYlãU"*1?VJ63=7fV4;:rNE_Is0ZU+K#.TDQMh13w];XaVYi:7*HYFmkQtfRV#NRZ)uGnãU"dDdl:i%c)ddkFTEGR&m#IS,MrãU"I^*8rSsqVFpQa4=1CYRm1LW?F1-,,N(yhrcj,1%?SUe%b9f;XSZI5oKpi3:Chz'rnZãU"4nFY86hesD4_$N0C=b,>V/aEG+(wo(j(ONbs:QBP+M1fDwS01i*=.^7P_\Ods$eãU"8C%UUjVfiV=90=DqiFFE4]rwKRD,LP<1hoY2VmRDhhL-a][2o>qE/'H5r,VK$\*ãU"8_x1A3Es-XT/o*w326##o*z6QQHBFCRc.HJFjH((2(#qT5W?7oXCKs:H(ktTpFaãU"lwxoc2h+6aZJin5i.aMJ87W+p-:8ne;V:VJ:JG\u:s<41T_pQy6FCVuEu8[($LOãU"b=%wIW+P=#l=hz=PC):2nsIMjsZ7z?DZ6G^.f4qtF3IUzht4^=Vwemp^ElE9;2pãU"Q$Gf0_kI6o'0*n57or#k#u]CrZX*(x7'DCmWopAj)/yDjp1f_3;jdPe25fhA_sj;*IH^>Za14Y]bC,fsbG%Z4BV^8:,J-dcqvp$idãU"zvEOk.Zi/FWO33CuLc=$Y;4>nE$2OW_7[YYXu'j[pbcwq2rbS9K)ou0E80OjTv6vfC;7Bt$rWO;2i1ukhX_8r36JhuX;ãU"$_c%FrKqmoS&]t.V2<5=Orr\60E>K<[yLR<%H_rhd_Np=hxJ3hMuiepl7,Y]4%rãU"vdK+>Kgd4'#x<3HG38hk;[WEPGPjI9vxcSgl,t$O$$FMB$Qsn?pBlcZh$tKrxLãU"7X:\v%xFvkFw>EKhGQsZTQkS816Psu][^C=ãU"JEab-D&JikW:I5UYfiuGJJhx+4?Y0l<,mrCG1*6\o>:REMR'pvQ%1H/n1;didac].%rf[kãU",'_$o]5g8C)y944(AT#keA*j)V05-z(_*;;'*tCtj+sZa>%905#P]y1.H.[q)AkãU"h1kVIk_GpjHsky2tdO-O^vAA<5\H\]([,0q[M4bjj$qXF9(/d(c\HP0L3:Dr9/[Ppf=&0n2[sG]o[%m;)*&FgãU"gE0J:],'4'c:?l$is>X+S/h[l:fer>L%dRL-^cv)64LPfXQ\4VSkPa:I5*.>[>GbVãU"Zq=(/;+ejX7%91lSFLaAkW7nP2LMeB:Aj=M0I+)ãU"A1qu/#5>M\8WpFN<'9cKF,34d?$#t$cjq3'CGUZu#\5LL_W\)RTY0C\5&D+=9A[ãU"7#bqkGQAIC#]T_)f$6?$6<:DyoF--AFS9%Ao?0s#9OgXsm4bQ;G\LxBz)bJs+APãU"pW%4B'a[K(t?ueImi+)9+4DO9^;[]^33E3&N\)FQ^B\P%mSGApXI9E^PeMK2eTHãU",8u:_ylN=A$#5dWB1=nmvrnDNP%yzyzmDaUW/pGJ_2j9YXHp>i_$:Jg<2r1bw0]ãU"n$C^aizAU#WZkhKST18H5f\lir2qCz;QCnuHTYJa6Wku4YSr+hwS.BtX0:=X==AãU"nq$>n6[.rJ4nBdxG/MX'OdRNwB%U$\pq_>gP\IU:+G;g'>LU>g-'>D;UF]4Im7mãU"]WL4#NBC]NA./92/F8iM*C)2K*#Vv*A_Z;[eY7'T33lJe1#*)xRbsV6-.qNCuAHãU"Z3((0+E&lWZQ6OuH\)a2*CE8cjUX30qIY)>RU>Put6di6^b3C2XgM^rV?/nYh/%ãU"cVkQ[a[]$([Ms\[^[r%\N(;b,o=p+KXD2,RxT.+x=LEUV:%p:2V/BE#[HsujHYoãU"u>R[S)GqS0yG,>TQ%p+tDQS-U<[G_Vc/+*3#ub_-dNH9ANATU__*ZUfP&)l9el<ãU"-#\nIfb*LPd:a0]aY7b2nf2UYG_M0M($^ZHlNRTt)rSYH%=Yqsr_cM/W.%]6r=bãU"+MbYGQw$t'Y#Em0.1r=R<(Zpg+D&ayx>G&[mOeifD9nF\iCgm40-dbrZQ]/_i$:ãU"]Hs*R)LMCcP_I#tSq#-TNmmWt=DV-5kO1^-gw[[U7&ZDc%D;iRB^J_31&JH\,IAãU"4fI;'6#++bV&^\L]6I__X]#%yH,3ja8l+^Y=l1aSo%?.uWM6&C9P)5ng<*dR\j6ãU"4*:B).dQF2V&;R,cF2=%X:Y]i(ãU"G2^3_N9obFtIlaAUu*G-n?Q:_E,O'oNE?HsCHRon49Rtr]G;$iCA<^P/LIãU"dBnz(^2CV$,U[E*DY8BoZa6kktR=H36lLiM$qj,H6)O5VU5+#S][geExs:?B=)-ãU"[D/7uo?A[cLk0lW,YLSJ*7Ai1iWbadW?2dHYa9m[\3q3n%D$BS2n4Oo%TZr\ItUãU"03I^N7#/KtyRME.$)?+_\3545u\h?:'6e(CHb;[Li$j0uT=)r3+C&D8;/9=:nr_ãU"*^U=eE/a7+i_yTtS'F27I4\rO8E\WZK)RGJF)-niz>)pYW$$Le*RgPePPv06ZW:ãU"Rw$KlogR[2)d[:^CG#8-CC7=mIKlPOUt2F'hHw_7dJeKAs>mX,=7YhNV2:;YãU"7oSizWC42[v34u>5QiH-R5RI[dW3b.G)C#jIoqX*N9ApIla1SY9>;[6JHdKK4'RãU"c&:#J4HlA/&#y?=vaw:_]W>QC]hB-]RV-u5N%tCsw^W%G[&f[$9EolEb)4Q?^e#ãU"_)T;'?1V%6g>IS=sKmLI#^--yDb7&#[2d1L2[9s#0-1cf^pzzX+Dovy#>_V7HT<ãU"JFbRlnUjfd0WPEjhGPF;2Nv<9w1P,[B09Slk=m28K=E=%E?R6?s)<\JcT1L0njXãU"n2Fh:BR)+qC^v\[-O35y^,3kPpv;h)sbV^96e*0Eqo4%fLT^D5CenIe'=.ãU":O=Elrfp*n_bnK?J]m5z$lB2?Iy2gxc-l6\i:>fpTJMWeW\(b=E\>x$aiU'bc(cãU"Ea?+BD?O7YP3O^pTbdq,[3vC(MS7F)jUeZpjPfRcZC3n4i.S5%+UtFM^-KB/cOEãU"3Oj6DX6+u=]AW>#rR>mQOJfpHW-gPW$BL>m'Hj(GNg-u48)SCIM4&wSO)Y&Lp6\ãU"5LGIB5L&XPW9&f+F?anm^N<*qGl%c:n8%+F3h6Z=#KMT7;Rt+Y/ZY1gbB>*8)GEãU"FvavD^9l5^(s1H[RrN5SC1z8-OhU#Ki*el9>6B).ZkegCM(cVC.GLSiQ;v?W-t&ãU"gRf+tyc<=UZ=+;Lpg[dnVOgY-d6Y+VRF$1x,(R2,L$drS-hnAjE)FS5+'>ãU"fSlGE1%^&[5LJ3CHdN1STw25XOn/ZTG=O34ubG=':ãU"C[^QTqoStM22N]LH?iOF&XjM[nR9DT[Pf$Ca16#0kED'kp(02oBFK')\Sg7Od+QãU"&/uAc-PZZTrB;V3.G5GHHJ%fa__bZZIj=ErYc's]7R3Ve2qip$4;uT1zF+)&bd;ãU"UYHbdTfA#U*y.>4C,LT/er$k=>C0GE5[b]GD=OpFf[aWU7]vfc0pF(HmYm1mnR\ãU"&TmJ[]Gf0W.-y=g&Sh:caX],.-V4(Db&3f9f6(/(aHha0W12qC_.oX7O58OQ2yrãU"a)&+jl1^(YXBLIwY3NhjI?p+>9Zm[+[fSX8Ae.w8vfYv9Hlfb1QePGPQd4w\i(6ãU"^9'K4q>6j8IyeHT\54cZboY:N7&G=RPU^DcipR)6VfX1OVM%UAC)#d(s//Ge/mlãU"#l,/cPD_wV[qf\j*D'VHL8ZME4e#G3oF_=9VA&C*5W42b5'H13&g#,hA_?66DkWãU"i;6?:xKZr]cQ7C8qj-*<=fpZVG;7'r6UC#qa*sZdJ<-#hU1hIIg7Cu<&lAãU"P=_pIYS_Sgz[m.4jF6ITO*$'Yb(7u;)rQ;oHN(pUL4VbdR#Wc,k?:-^.misgW,MãU"wvj^2D,KH=L'OUAjl/bk(2OM;Z5^ON[yP?+s9TXdãU"oH3sA=bwiTYOOrWVG<7e%=m14wKxx:mf/E%sGSc1V6%&';GanUF(g#eJ5G9>RI;=Yd4Z/AZoHa'bRxb'i+A-ãU"g+\aU4CO$=[yUEDQoVItfqrGDmuuZ1)J$o]DdPWj6B%vS??F(+OXa8qg+\hU+COãU"E*d\YcJ'YVHw=>EK\*Zlm_=trOm:boMHBn7ex9&x\XM0%$1BW1A3KR(;;C&p=6qãU"=:'txB(O5:-8svG'Y8M)/NN?:5#>svRj-[$YDNXuJ+t9q+S20i_zQ=0I>Lq?n$2.j/(VGV/av*Tmb)HM#C.PtK:vEãU"XC$DBQ&sTjD2HHP7:nN^7NlYdbJTcsS%Rk7=U%?:Q/3Lu:%bkgY]8LeHkySoee+ãU"%#xm0^aHb\,MFRqWbTf&m>-U]7/Wx'][j2KDOOY:d(WWeJK^2t'.l2Ur=orHZ,LãU"hw7/Fx3_K0nyB[;w:<5$/-p'WjwRet=?q0;KfT+u-IZjuf_^n,,/EMsB9YoT5D$]THHQãU"/6qSuI3?lvrx##RZ;iGIB$3ux\yP4K)t$fgc.q<4laBH^:4,OprfNj>1UãU"\,\FpT66=3WA(Q;jrFMr^Mf<<M1666SXikXptK;>u>>NNinbnuãU"MsjjjZ44tv+cnN4%44tt[tTT(ptNsLr4EfkuooW6PJ0^^t^((h86cl>#dddNPNxãU"OOkOHMoN,PPP#fffnZtU$QqRRpeuRlrH&NcII%IYYygOdMZ(0.-0%0044cx[<8%ãU"=666R>>rt(TLNOpO9hWu6JJJY.wkfM2111q228ktd(=>l>B3+W(Mnz?jjj.d...ãU"t-SP78L8baauofTp6n(Nb%^^^JaJ^#XKqk99h9))S=\8rr<2+'usMKLLZ8n&>M4ãU"333h55MtuTXGCuCCGGlwGF7MbbbbMjjjftfpVh&M\ddi8ooYYJXt-q00Zwuvt8xãU"-vh<:%::<TiMjj*)q)MrDt.///?/..BUcKq&H8szJ)JJlll#(NvudGGGu'''Xcu_\VHVVOãU"dhyvv$Z08v>>.Y.XhMup4wwBwHl]uuwp8%D===%AAA?=?s9.lsq#q0j3bIkxJ7-t)fUUuUuu5Lsv*'t'IdnU+R:7%YSSSJiqut)ttãU"8L%sQTTZ(%%kLaHADMDD<5jl?&*0[[[[WtKlFTr0>X2tB$&0lW3Jplg6JpugX8x6oT>dtGiYZrImG$uh5tgu4h6pkmR;w%Dup&%'9%9%%%%-U%C+U(Gl^K&ij1%(%-F%%%-%%ãU"%%%%%%%&%E%%%%%%%%%f%uxXS%gfxu%p&'9%%9%%#%-%T)uUGydrK(=%:%%V%I%ãU"%-%%%%%%%%%%%%E%%(%:1%%%yjx%ySuh&'up*%+%%%%%'%'(%;%%%%zG%%%%%ãEND SUBãCLOSE:IF S=84AND 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ãStephen L. Maxson SAVE SCREEN TO .BMP FILE smax@isc-durant.com 04-08-97 (10:30) QB, QBasic, PDS 169 5131 SAVEBMP8.BAS'-------------------------------------------------------------------ã'SAVEBMP8.BASã'-------------------------------------------------------------------ã'Stephen L. Maxsonã'smax@isc-durant.comã'-------------------------------------------------------------------ã'To save an 8-bit .BMP file, just call the SUB, passing the name toã'save as, the X and Y coordinates of the upper-left corner, and theã'X and Y coordinates of the lower-right corner.ã'EXAMPLES:ã'SaveBMP8 "funky.bmp", 0, 0, 319, 199ã'File$ = "groovy.bmp": SaveBMP8 File$, 96, 32, 159, 179ã'-------------------------------------------------------------------ã'The SUB makes use of Coridon Henshaw's GetPalette SUB, so if youã'wish to use SaveBMP8 in another program, GetPalette will have to goã'with it. The LongToString$ FUNCTION is also required by SaveBMP8.ã'This demo makes use of the SetPalette SUB, but it is not requiredã'by SaveBMP8.ã'-------------------------------------------------------------------ã'The SUB takes for granted that you are in screen mode 13 (MCGA/VGAã'320x200x256), and that you are passing it valid values for theã'upper-left and lower-right corners (i.e., the SUB will not checkã'to see if you are trying to save an image larger than the screen,ã'or if your lower-right corner isn't below and right of your upper-ã'left corner).ã'-------------------------------------------------------------------ã'Public Domain, (ab)use at your own risk.ã'-------------------------------------------------------------------ããDECLARE SUB SaveBMP8 (Pic$, X1%, Y1%, X2%, Y2%)ãDECLARE FUNCTION LongToString$ (L&)ãDECLARE SUB GetPalette (Attr%, Red%, Green%, Blue%)ã'The SUB below is only required by this demo-ãDECLARE SUB SetPalette (Attr%, Red%, Green%, Blue%)ãDEFINT A-ZããSCREEN 13ãRANDOMIZE TIMERã'Create a random palette-ãFOR I = 1 TO 255ã SetPalette I, INT(RND * 64), INT(RND * 64), INT(RND * 64)ãNEXT Iã'Put some stuff on the screen for us to save-ãFOR I = 0 TO 199 STEP 2ã LINE (0, I)-(199, 199 - I), INT(RND * 256)ã LINE (I, 0)-(199 - I, 199), INT(RND * 256)ãNEXT IãFOR I = 3 TO 96 STEP 3ã CIRCLE (99, 99), I, INT(RND * 256), , , 1ãNEXT IããSaveBMP8 "TEST.BMP", 32, 32, 128, 128ããBEEPãDOãLOOP UNTIL INKEY$ <> ""ãSCREEN 0, 0, 0ãWIDTH 80ããENDããSUB GetPalette (Attr%, Red%, Green%, Blue%)ããOUT &H3C7, Attr%ãRed% = INP(&H3C9)ãGreen% = INP(&H3C9)ãBlue% = INP(&H3C9)ããEND SUBããFUNCTION LongToString$ (L&)ããB4% = L& \ 16777216ãL& = L& - B4% * 16777216ãB3% = L& \ 65536ãL& = L& - B3% * 65536ãB2% = L& \ 256ãL& = L& - B2% * 256ãB1% = L&ãLongToString$ = CHR$(B1%) + CHR$(B2%) + CHR$(B3%) + CHR$(B4%)ããEND FUNCTIONããSUB SaveBMP8 (Pic$, X1%, Y1%, X2%, Y2%)ãã'Calculate width and height of image-ãBMPWidth% = X2% - X1% + 1ãBMPHeight% = Y2% - Y1% + 1ã'Each raster must be a multiple of 4 bytes, this next line takesã'care of 'padded' bytes at the end of rasters of odd-width images-ãIF BMPWidth% / 4 <> BMPWidth% \ 4 THEN PadBytes% = 4 - (BMPWidth% MOD 4)ãOPEN Pic$ FOR BINARY AS #1ã'General Picture Information-ã' BMP format marker-ãBuffer$ = "BM"ã' File size minus header-ãL& = (BMPWidth% + PadBytes%) * BMPHeight% + 1078ãBuffer$ = Buffer$ + LongToString$(L&)ã' Reserved 1-ãBuffer$ = Buffer$ + CHR$(0) + CHR$(0)ã' Reserved 2-ãBuffer$ = Buffer$ + CHR$(0) + CHR$(0)ã' Number of bytes offset to picture data-ãBuffer$ = Buffer$ + LongToString$(1078)ã'Information Header-ã' Size of information header-ãBuffer$ = Buffer$ + LongToString$(40)ã' Picture width in pixels-ãL& = BMPWidth%ãBuffer$ = Buffer$ + LongToString$(L&)ã' Picture height in pixels-ãL& = BMPHeight%ãBuffer$ = Buffer$ + LongToString$(L&)ã' Number of planes-ãBuffer$ = Buffer$ + CHR$(1) + CHR$(0)ã' Bits per pixel-ãBuffer$ = Buffer$ + CHR$(8) + CHR$(0)ã' Compression-ãBuffer$ = Buffer$ + LongToString$(0)ã' Image size in bytes-ãL& = (BMPWidth% + PadBytes%) * BMPHeight%ãBuffer$ = Buffer$ + LongToString$(L&)ã' Picture width in pixels per meter-ãBuffer$ = Buffer$ + LongToString$(0)ã' Picture height in pixels per meter-ãBuffer$ = Buffer$ + LongToString$(0)ã' Colors used in picture-ãBuffer$ = Buffer$ + LongToString$(256)ã' Number of important colors-ãBuffer$ = Buffer$ + LongToString$(256)ãPUT #1, 1, Buffer$ã'Save palette data-ãBuffer$ = ""ãFOR I% = 0 TO 255ã GetPalette I%, Red%, Green%, Blue%ã 'Palette is saved B, G, R with unused byte trailing-ã Buffer$ = Buffer$ + CHR$(Blue% * 4)ã Buffer$ = Buffer$ + CHR$(Green% * 4)ã Buffer$ = Buffer$ + CHR$(Red% * 4)ã Buffer$ = Buffer$ + CHR$(0)ãNEXT I%ãPUT #1, , Buffer$ã'Save image data-ãFOR I% = (BMPHeight% - 1) TO 0 STEP -1ã Buffer$ = ""ã FOR J% = 0 TO (BMPWidth% - 1)ã Buffer$ = Buffer$ + CHR$(POINT(X1% + J%, Y1% + I%))ã NEXT J%ã IF PadBytes% > 0 THENã FOR J% = 1 TO PadBytes%ã Buffer$ = Buffer$ + CHR$(0)ã NEXT J%ã END IFã PUT #1, , Buffer$ãNEXT I%ã'Put a fork in it, it's done-ãCLOSE #1ããEND SUBããSUB SetPalette (Attr%, Red%, Green%, Blue%)ããOUT &H3C7, Attr%ãOUT &H3C8, Attr%ãOUT &H3C9, Red%ãOUT &H3C9, Green%ãOUT &H3C9, Blue%ããEND SUBãStephen L. Maxson SINGLE PIXEL SCROLLING comp.lang.basic.misc 04-10-97 (09:00) QB, QBasic, PDS 406 14484 SPSCROLL.BAS'** SPSCROLL.BASã'** QBasic sourceã'** April, 1997ã'** Description:ã'** Demo for single-pixel scrolling, using a graphic image thatã'** is larger than the defined "viewport". Note that the spriteã'** "jumps" when scrolling. This is because the sprite is actuallyã'** scrolled along with the screen, and then erased and redrawn inã'** proper position. The alternative of erasing the sprite,ã'** scrolling, and then redrawing causes the sprite to spend so muchã'** time offscreen that you get an unacceptable amount of flickering,ã'** particularly during diagonal scrolls, when the sprite would beã'** offscreen for twice as long. Page flipping would take care ofã'** it, but I'm using screen 13 for this demo.ã'**ã'** Stephen L. Maxsonã'** smax@isc-durant.comã'**ã'** Public Domain, (ab)use at your own riskã'**ãDECLARE FUNCTION GetKey$ ()ãDECLARE SUB KillPalette ()ãDECLARE SUB CenterColoredText (Text$, Row%)ãDECLARE SUB DrawInitScreen ()ãDECLARE SUB ScrollScreen (Direction%)ãDEFINT A-Zã'** Dimension an array for 320 x 200 screen.ãDIM BigGraphic(319, 199) AS STRING * 1ã'** 20 x 20 sprite, mask for the sprite, and buffer to save background.ãDIM Sprite(202), SpriteMask(202), SaveBuffer(202)ãSCREEN 13ãCLSã'** Kill palette to black to "hide" drawing.ãKillPaletteã'** First, our sprite (The LifeSaver (TM) Invasion craft).ãFOR I = 0 TO 19ã LINE (0, I)-(19, 19 - I), I + 32ã LINE (I, 0)-(19 - I, 19), I + 32ãNEXT IãCIRCLE (9, 9), 8, 15, , , 1ãPAINT (0, 0), 0, 15ãCIRCLE (9, 9), 4, 15, , , 1ãPAINT (9, 9), 0, 15ãGET (0, 0)-(19, 19), Spriteã'** Now the mask.ãFOR I = 0 TO 19ã FOR J = 0 TO 19ã SELECT CASE POINT(I, J)ã CASE 0ã PSET (I, J), 255ã CASE ELSEã PSET (I, J), 0ã END SELECTã NEXT JãNEXT IãGET (0, 0)-(19, 19), SpriteMaskãCLSã'** Let's make some graphics for our array.ã'** The large section following creates a very crowded cityscape.ãFOR I = 0 TO 7ã I0 = I * 40ã I1 = I0 + 10ã I2 = I0 + 20ã I3 = I0 + 30ã I4 = I0 + 40ã LINE (I0, 0)-(I0, 199), 8ã LINE (I1, 0)-(I1, 199), 8ã LINE (I2, 0)-(I2, 199), 8ã LINE (I3, 0)-(I3, 199), 8ã FOR J = 0 TO 4ã J0 = J * 40ã J1 = J0 + 10ã J2 = J0 + 20ã J3 = J0 + 30ã J4 = J0 + 40ã FOR K = 0 TO 1ã K1 = K * 5ã FOR L = 0 TO 7ã L1 = L * 5ã IF INT(RND * 4) > 0 THENã IF INT(RND * 2) = 0 THEN M = 8 ELSE M = 15ã LINE (I0 + K1 + 2, J0 + L1 + 2)-(I0 + K1 + 2, J0 + L1 + 4), Mã LINE (I0 + K1 + 3, J0 + L1 + 3)-(I0 + K1 + 3, J0 + L1 + 5), Mã LINE (I1 + K1 + 2, J0 + L1 + 3)-(I1 + K1 + 2, J0 + L1 + 5), Mã LINE (I1 + K1 + 3, J0 + L1 + 2)-(I1 + K1 + 3, J0 + L1 + 4), Mã LINE (I2 + K1 + 2, J0 + L1 + 2)-(I2 + K1 + 2, J0 + L1 + 4), Mã LINE (I2 + K1 + 3, J0 + L1 + 3)-(I2 + K1 + 3, J0 + L1 + 5), Mã LINE (I3 + K1 + 2, J0 + L1 + 3)-(I3 + K1 + 2, J0 + L1 + 5), Mã LINE (I3 + K1 + 3, J0 + L1 + 2)-(I3 + K1 + 3, J0 + L1 + 4), Mã END IFã NEXT Lã NEXT Kã LINE (I0, J1)-(I1, J0), 7ã LINE (I1, J0)-(I2, J1), 7ã LINE (I2, J1)-(I1, J2), 7ã LINE (I1, J2)-(I0, J1), 7ã PAINT (I1, J1), 0, 7ã LINE (I1, J1 - 3)-(I1, J1), 8ã PSET (I1, J1 - 4), 4ã LINE (I2, J3)-(I3, J2), 7ã LINE (I3, J2)-(I4, J3), 7ã LINE (I4, J3)-(I3, J4), 7ã LINE (I3, J4)-(I2, J3), 7ã PAINT (I3, J3), 0, 7ã LINE (I3, J3 - 3)-(I3, J3), 8ã PSET (I3, J3 - 4), 4ã NEXT JãNEXT Iã'** Let's put a red line around the entire graphic, so we canã'** see where the border is when we scroll.ãLINE (0, 0)-(319, 199), 4, Bã'** Whew! Now let's put it into memory.ãFOR X = 0 TO 319ã FOR Y = 0 TO 199ã BigGraphic(X, Y) = CHR$(POINT(X, Y))ã NEXT YãNEXT Xã'** Clear the screen and perform inital screen setup.ãCLSã'** Print some instructions.ãCenterColoredText "Single-Pixel Scrolling Demo", 1ãCenterColoredText "Use Numeric Keypad To Move", 3ãCenterColoredText "Press To Exit", 23ã'** Let's start at the center: 159, 99.ãPlayerX = 159ãPlayerY = 99ã'** We'll use a 160 x 100 "viewport" centered on the screen,ã'** which means 80, 50 to 239, 149.ã'** How about a nifty border for our "viewport"?ãLINE (70, 40)-(249, 159), 3, BFãFOR I = 70 TO 249 STEP 4ã LINE (I, 40)-(319 - I, 159), 11ãNEXT IãFOR I = 40 TO 159 STEP 4ã LINE (70, I)-(249, 199 - I), 11ãNEXT IãLINE (70, 40)-(249, 159), 15, BãLINE (79, 49)-(240, 150), 15, Bã'** Let's draw the screen for the first time.ãDrawInitScreenã'** Let's save the background and then draw our sprite for the first time.ã'** The values 150, 90 will always be used for our sprite, so thatã'** the center of the sprite will be in the center of the screenã'** (which also happens to be the center of our "viewport").ãGET (150, 90)-(169, 109), SaveBufferãPUT (150, 90), SpriteMask, ANDãPUT (150, 90), Sprite, ORã'** PALETTE statement restores the palette, everything becomes visible.ãPALETTEã'** Now for our main control loop. We'll wait for a keypress, andã'** then scroll in the appropriate direction. If the key pressed isã'** a diagonal key, two scrolls are actually performed, one for eachã'** of the two directions the diagonal leads in.ãDOã A$ = GetKey$ã SELECT CASE A$ã '** Home or 7.ã CASE CHR$(0) + "G", "7"ã ScrollScreen 0ã ScrollScreen 2ã '** Let's put the saved background back in place to eraseã '** the scrolled sprite.ã PUT (151, 91), SaveBuffer, PSETã '** Up Arrow or 8.ã CASE CHR$(0) + "H", "8"ã ScrollScreen 0ã '** Let's put the saved background back in place to eraseã '** the scrolled sprite.ã PUT (150, 91), SaveBuffer, PSETã '** PgUp or 9.ã CASE CHR$(0) + "I", "9"ã ScrollScreen 0ã ScrollScreen 3ã '** Let's put the saved background back in place to eraseã '** the scrolled sprite.ã PUT (149, 91), SaveBuffer, PSETã '** Left Arrow or 4.ã CASE CHR$(0) + "K", "4"ã ScrollScreen 2ã '** Let's put the saved background back in place to eraseã '** the scrolled sprite.ã PUT (151, 90), SaveBuffer, PSETã '** Right Arrow or 6.ã CASE CHR$(0) + "M", "6"ã ScrollScreen 3ã '** Let's put the saved background back in place to eraseã '** the scrolled sprite.ã PUT (149, 90), SaveBuffer, PSETã '** End or 1.ã CASE CHR$(0) + "O", "1"ã ScrollScreen 1ã ScrollScreen 2ã '** Let's put the saved background back in place to eraseã '** the scrolled sprite.ã PUT (151, 89), SaveBuffer, PSETã '** Down Arrow or 2.ã CASE CHR$(0) + "P", "2"ã ScrollScreen 1ã '** Let's put the saved background back in place to eraseã '** the scrolled sprite.ã PUT (150, 89), SaveBuffer, PSETã '** PgDn or 3.ã CASE CHR$(0) + "Q", "3"ã ScrollScreen 1ã ScrollScreen 3ã '** Let's put the saved background back in place to eraseã '** the scrolled sprite.ã PUT (149, 89), SaveBuffer, PSETã '** Any other key.ã CASE ELSEã '** Put the background back, or we end up withã '** LifeSavers (TM) all over the place.ã PUT (150, 90), SaveBuffer, PSETã END SELECTã '** Save the background again.ã GET (150, 90)-(169, 109), SaveBufferã '** PUT our sprite back on the screen.ã PUT (150, 90), SpriteMask, ANDã PUT (150, 90), Sprite, ORã '** The next four lines clear the keyboard buffer.ã DEF SEG = &H40 'switch to BIOS data segmentã POKE &H1A, PEEK(&H1C) '\ make KBbuffer head pointerã POKE &H1B, PEEK(&H1D) '/ equal KBbuffer tail pointerã DEF SEG 'back to default data segmentã'** Pressing ESC will exit program.ãLOOP UNTIL A$ = CHR$(27)ãSCREEN 0, 0, 0ãWIDTH 80ãENDããSUB CenterColoredText (Text$, Row%)ãã'** I is starting point of centered text.ãI = 20 - (LEN(Text$) \ 2)ãFOR J = 1 TO LEN(Text$)ã '** K is the color counter.ã COLOR K + 1ã LOCATE Row%, I + Jã PRINT MID$(Text$, J, 1);ã K = K + 1ã IF K = 15 THEN K = 0ãNEXT JããEND SUBããSUB DrawInitScreenãã'** We need to use BigGraphic, PlayerX, and PlayerY from the main module.ãSHARED BigGraphic() AS STRING * 1, PlayerX, PlayerYã'** Work through the entire "viewport".ãFOR PlotX = 0 TO 159ã ViewX = PlayerX - 79 + PlotXã '** Correct the value if it wraps-around in the array.ã IF ViewX < 0 THEN ViewX = ViewX + 320ã IF ViewX > 319 THEN ViewX = ViewX - 320ã FOR PlotY = 0 TO 99ã '** Find current Y point in the "viewport" in relation the player.ã ViewY = PlayerY - 49 + PlotYã '** Correct the value if it wraps-around in the array.ã IF ViewY < 0 THEN ViewY = ViewY + 200ã IF ViewY > 199 THEN ViewY = ViewY - 200ã '** Find what's in the pixel at ViewX, ViewY in our array.ã Pixel = ASC(BigGraphic(ViewX, ViewY))ã '** PSET the point in the "viewport" (starting at 80, 50).ã PSET (PlotX + 80, PlotY + 50), Pixelã NEXT PlotYãNEXT PlotXããEND SUBããFUNCTION GetKey$ãã'** Wait until a key is pressed, then return it in GetKey$.ãDOã A$ = INKEY$ãLOOP WHILE A$ = ""ãGetKey$ = A$ããEND FUNCTIONããSUB KillPaletteãã'** DIMing this array sets all elements to 0.ãDIM Junk&(255)ã'** PALETTE USING the null array changes all colors to 0 (black).ãPALETTE USING Junk&ããEND SUBããSUB ScrollScreen (Direction%)ãã'** We need to use BigGraphic, PlayerX, and PlayerYã'** from the main module.ãSHARED BigGraphic() AS STRING * 1, PlayerX, PlayerYã'** We need an array to capture all but one line of our "viewport",ã'** so that we can scroll it on screen.ãDIM ViewportBuffer(7952)ã'** Which way to scroll?ãSELECT CASE Direction%ã CASE 0 '** Up, screen scrolls down.ã '** Move player position.ã PlayerY = PlayerY - 1ã '** Wrap-around?ã IF PlayerY < 0 THEN PlayerY = PlayerY + 200ã '** Grab all but the bottom line of the viewport.ã GET (80, 50)-(239, 148), ViewportBufferã '** Scroll it down one pixel.ã PUT (80, 51), ViewportBuffer, PSETã '** We need a new line of pixels at the top, so we'll check ourã '** array to see what has just scrolled onto the screen.ã '** Find current Y point in the "viewport" in relation to player.ã ViewY = PlayerY - 49ã '** Correct the value if it wraps-around in the array.ã IF ViewY < 0 THEN ViewY = ViewY + 200ã FOR PlotX = 0 TO 159ã '** Find current X point in the "viewport" in relation to player.ã ViewX = PlayerX - 79 + PlotXã '** Correct the value if it wraps-around in the array.ã IF ViewX < 0 THEN ViewX = ViewX + 320ã IF ViewX > 319 THEN ViewX = ViewX - 320ã '** Find what's in the pixel at ViewX, ViewY in our array.ã Pixel = ASC(BigGraphic(ViewX, ViewY))ã '** PSET the point in the "viewport" (starting at 80, 50).ã PSET (PlotX + 80, 50), Pixelã NEXT PlotXã CASE 1 '** Down, screen scrolls up.ã '** Move player position.ã PlayerY = PlayerY + 1ã '** Wrap-around?ã IF PlayerY > 199 THEN PlayerY = PlayerY - 200ã '** Grab all but the top line of the viewport.ã GET (80, 51)-(239, 149), ViewportBufferã '** Scroll it up one pixel.ã PUT (80, 50), ViewportBuffer, PSETã '** We need a new line of pixels at the bottom, so we'll check ourã '** array to see what has just scrolled onto the screen.ã '** Find current Y point in the "viewport" in relation to player.ã ViewY = PlayerY + 50ã '** Correct the value if it wraps-around in the array.ã IF ViewY > 199 THEN ViewY = ViewY - 200ã FOR PlotX = 0 TO 159ã '** Find current X point in the "viewport" in relation to player.ã ViewX = PlayerX - 79 + PlotXã '** Correct the value if it wraps-around in the array.ã IF ViewX < 0 THEN ViewX = ViewX + 320ã IF ViewX > 319 THEN ViewX = ViewX - 320ã '** Find what's in the pixel at ViewX, ViewY in our array.ã Pixel = ASC(BigGraphic(ViewX, ViewY))ã '** PSET the point in the "viewport" (starting at 80, 50).ã PSET (PlotX + 80, 149), Pixelã NEXT PlotXã CASE 2 '** Left, screen scrolls right.ã '** Move player position.ã PlayerX = PlayerX - 1ã '** Wrap-around?ã IF PlayerX < 0 THEN PlayerX = PlayerX + 320ã '** Grab all but the right line of the viewport.ã GET (80, 50)-(238, 149), ViewportBufferã '** Scroll it right one pixel.ã PUT (81, 50), ViewportBuffer, PSETã '** We need a new line of pixels at the left, so we'll check ourã '** array to see what has just scrolled onto the screen.ã '** Find current X point in the "viewport" in relation to player.ã ViewX = PlayerX - 79ã '** Correct the value if it wraps-around in the array.ã IF ViewX < 0 THEN ViewX = ViewX + 320ã FOR PlotY = 0 TO 99ã '** Find current Y point in the "viewport" in relation to player.ã ViewY = PlayerY - 49 + PlotYã '** Correct the value if it wraps-around in the array.ã IF ViewY < 0 THEN ViewY = ViewY + 200ã IF ViewY > 199 THEN ViewY = ViewY - 200ã '** Find what's in the pixel at ViewX, ViewY in our array.ã Pixel = ASC(BigGraphic(ViewX, ViewY))ã '** PSET the point in the "viewport" (starting at 80, 50).ã PSET (80, PlotY + 50), Pixelã NEXT PlotYã CASE 3 '** Right, screen scrolls left.ã '** Move player position.ã PlayerX = PlayerX + 1ã '** Wrap-around?ã IF PlayerX > 319 THEN PlayerX = PlayerX - 320ã '** Grab all but the left line of the viewport.ã GET (81, 50)-(239, 149), ViewportBufferã '** Scroll it left one pixel.ã PUT (80, 50), ViewportBuffer, PSETã '** We need a new line of pixels at the right, so we'll check ourã '** array to see what has just scrolled onto the screen.ã '** Find current X point in the "viewport" in relation to player.ã ViewX = PlayerX + 80ã '** Correct the value if it wraps-around in the array.ã IF ViewX > 319 THEN ViewX = ViewX - 320ã FOR PlotY = 0 TO 99ã '** Find current Y point in the "viewport" in relation to player.ã ViewY = PlayerY - 49 + PlotYã '** Correct the value if it wraps-around in the array.ã IF ViewY < 0 THEN ViewY = ViewY + 200ã IF ViewY > 199 THEN ViewY = ViewY - 200ã '** Find what's in the pixel at ViewX, ViewY in our array.ã Pixel = ASC(BigGraphic(ViewX, ViewY))ã '** PSET the point in the "viewport" (starting at 80, 50).ã PSET (239, PlotY + 50), Pixelã NEXT PlotYãEND SELECTããEND SUBãThe ABC Programmer ROTATING TRIANGLES Convert from Pascal Code 04-10-97 (19:22) QB, QBasic, PDS 210 6086 FRAC3D.BAS ' Fractal 3D - Rotating Trianglesã'ã' Programmed by Ryan Jones (Dios@Rworld.Com)ã' Converted to BASIC by William Yu (04-10-97)ããDECLARE SUB Rotate (X!, Y!, ang!)ãDECLARE SUB RotateTris (ang!)ãDECLARE SUB RotateTrisb (ang!)ãDECLARE SUB RotateTrisc (ang!)ãDECLARE SUB ClipLine (X1%, Y1%, X2%, Y2%, C%)ãDECLARE SUB AddTris (n%)ãDECLARE SUB DrawTris ()ãDEFINT A-ZããCONST ZInc = 25ãCONST ZOfs = 256ãCONST ZScale = 256ãCONST Sc = .7ãCONST Pi = 3.141593ããTYPE Triangleã X1 AS SINGLEã Y1 AS SINGLEã Z1 AS SINGLEã X2 AS SINGLEã Y2 AS SINGLEã Z2 AS SINGLEã X3 AS SINGLEã Y3 AS SINGLEã Z3 AS SINGLEãEND TYPEããDIM SHARED Tris(0 TO 100) AS TriangleãDIM SHARED Trin, l, n, hnããSCREEN 7, 0, 0, 0ãã Tris(0).X1 = 0ã Tris(0).Y1 = 86ã Tris(0).Z1 = 0ã Tris(0).X2 = 100ã Tris(0).Y2 = -86ã Tris(0).Z2 = 0ã Tris(0).X3 = -100ã Tris(0).Y3 = -86ã Tris(0).Z3 = 0ã Tris(0).X1 = Tris(0).X1 * Scã Tris(0).Y1 = Tris(0).Y1 * Scã Tris(0).Z1 = Tris(0).Z1 * Scã Tris(0).X2 = Tris(0).X2 * Scã Tris(0).Y2 = Tris(0).Y2 * Scã Tris(0).Z2 = Tris(0).Z2 * Scã Tris(0).X3 = Tris(0).X3 * Scã Tris(0).Y3 = Tris(0).Y3 * Scã Tris(0).Z3 = Tris(0).Z3 * Scãã Trin = 1ã l = 3ã DOã n = hnã hn = Trinã DOã CALL AddTris(n)ã n = n + 1ã LOOP UNTIL n = hnã l = l - 1ã LOOP UNTIL l = 0ãã DOã n = 0ã DOã DrawTrisã CALL RotateTris(Pi / 72)ã n = n + 1ã LOOP UNTIL INKEY$ <> "" OR (n = 144)ã n = 0ã DOã DrawTrisã CALL RotateTrisb(Pi / 72)ã n = n + 1ã LOOP UNTIL INKEY$ <> "" OR (n = 144)ã n = 0ã DOã DrawTrisã CALL RotateTrisc(Pi / 72)ã n = n + 1ã LOOP UNTIL INKEY$ <> "" OR (n = 144)ã LOOP UNTIL INKEY$ <> ""ã ãENDããSUB AddTris (n)ã DIM OX1 AS SINGLEã DIM OY1 AS SINGLEã DIM OZ1 AS SINGLEã DIM OX2 AS SINGLEã DIM OY2 AS SINGLEã DIM OZ2 AS SINGLEã DIM OX3 AS SINGLEã DIM OY3 AS SINGLEã DIM OZ3 AS SINGLEãã OX1 = Tris(n).X1ã OY1 = Tris(n).Y1ã OZ1 = Tris(n).Z1ã OX2 = Tris(n).X2ã OY2 = Tris(n).Y2ã OZ2 = Tris(n).Z2ã OX3 = Tris(n).X3ã OY3 = Tris(n).Y3ã OZ3 = Tris(n).Z3ã Tris(Trin).X1 = OX1ã Tris(Trin).Y1 = OY1ã Tris(Trin).Z1 = OZ1 + ZIncã Tris(Trin).X2 = OX1 * 2 / 3 + OX2 / 3ã Tris(Trin).Y2 = OY1 * 2 / 3 + OY2 / 3ã Tris(Trin).Z2 = OZ2 + ZIncã Tris(Trin).X3 = OX1 * 2 / 3 + OX3 / 3ã Tris(Trin).Y3 = OY1 * 2 / 3 + OY3 / 3ã Tris(Trin).Z3 = OZ3 + ZIncã Tris(Trin + 1).X1 = OX2 * 2 / 3 + OX1 / 3ã Tris(Trin + 1).Y1 = OY2 * 2 / 3 + OY1 / 3ã Tris(Trin + 1).Z1 = OZ1 + ZIncã Tris(Trin + 1).X2 = OX2ã Tris(Trin + 1).Y2 = OY2ã Tris(Trin + 1).Z2 = OZ2 + ZIncã Tris(Trin + 1).X3 = OX2 * 2 / 3 + OX3 / 3ã Tris(Trin + 1).Y3 = OY2 * 2 / 3 + OY3 / 3ã Tris(Trin + 1).Z3 = OZ3 + ZIncã Tris(Trin + 2).X1 = OX3 * 2 / 3 + OX1 / 3ã Tris(Trin + 2).Y1 = OY3 * 2 / 3 + OY1 / 3ã Tris(Trin + 2).Z1 = OZ1 + ZIncã Tris(Trin + 2).X2 = OX3 * 2 / 3 + OX2 / 3ã Tris(Trin + 2).Y2 = OY3 * 2 / 3 + OY2 / 3ã Tris(Trin + 2).Z2 = OZ2 + ZIncã Tris(Trin + 2).X3 = OX3ã Tris(Trin + 2).Y3 = OY3ã Tris(Trin + 2).Z3 = OZ3 + ZIncã Trin = Trin + 3ãEND SUBããSUB ClipLine (X1, Y1, X2, Y2, C)ã IF (X1 > 0) AND (X1 < 320) AND (Y1 > 0) AND (Y1 < 200) AND (X2 > 0) AND (X2 < 320) AND (Y2 > 0) AND (Y2 < 200) THENã LINE (X1, Y1)-(X2, Y2), Cã END IFãEND SUBããSUB DrawTrisã n = 0ã ' Uncomment the two lines below for flicker free rotationã 'PCOPY 0, 1ã 'SCREEN 7, 0, 0, 1ã LINE (0, 0)-(319, 199), 0, BFã DOã SX1 = INT((ZScale * Tris(n).X1) / (Tris(n).Z1 - ZOfs))ã SY1 = INT((ZScale * Tris(n).Y1) / (Tris(n).Z1 - ZOfs))ã SX2 = INT((ZScale * Tris(n).X2) / (Tris(n).Z2 - ZOfs))ã SY2 = INT((ZScale * Tris(n).Y2) / (Tris(n).Z2 - ZOfs))ã SX3 = INT((ZScale * Tris(n).X3) / (Tris(n).Z3 - ZOfs))ã SY3 = INT((ZScale * Tris(n).Y3) / (Tris(n).Z3 - ZOfs))ã 'CALL ClipLine(160 + SX1, 100 + SY1, 160 + SX2, 100 + SY2, 8)ã 'CALL ClipLine(160 + SX2, 100 + SY2, 160 + SX3, 100 + SY3, 15)ã 'CALL ClipLine(160 + SX3, 100 + SY3, 160 + SX1, 100 + SY1, 7)ã LINE (160 + SX1, 100 + SY1)-(160 + SX2, 100 + SY2), 8ã LINE (160 + SX2, 100 + SY2)-(160 + SX3, 100 + SY3), 15ã LINE (160 + SX3, 100 + SY3)-(160 + SX1, 100 + SY1), 7ã n = n + 1ã LOOP UNTIL n = TrinãEND SUBããSUB Rotate (X!, Y!, ang!)ã DIM XX AS SINGLEã DIM YY AS SINGLEãã XX = X! * COS(ang!) + Y! * SIN(ang!)ã YY = Y! * COS(ang!) - X! * SIN(ang!)ã X! = XXã Y! = YYãEND SUBããSUB RotateTris (ang!)ã n = 0ã DOã CALL Rotate(Tris(n).X1, Tris(n).Z1, ang!)ã CALL Rotate(Tris(n).X2, Tris(n).Z2, ang!)ã CALL Rotate(Tris(n).X3, Tris(n).Z3, ang!)ã n = n + 1ã LOOP UNTIL n = TrinãEND SUBããSUB RotateTrisb (ang!)ã n = 0ã DOã CALL Rotate(Tris(n).X1, Tris(n).Y1, ang!)ã CALL Rotate(Tris(n).X2, Tris(n).Y2, ang!)ã CALL Rotate(Tris(n).X3, Tris(n).Y3, ang!)ã n = n + 1ã LOOP UNTIL n = TrinãEND SUBããSUB RotateTrisc (ang!)ã n = 0ã DOã CALL Rotate(Tris(n).Y1, Tris(n).Z1, ang!)ã CALL Rotate(Tris(n).Y2, Tris(n).Z2, ang!)ã CALL Rotate(Tris(n).Y3, Tris(n).Z3, ang!)ã n = n + 1ã LOOP UNTIL n = TrinãEND SUBããNick Cangiani IMAGE MAGNIFICATION gcnc@worldnet.att.net 04-18-97 (09:45) QB, QBasic, PDS 209 5925 MAGNIFY.BAS 'This program uses simple scaling algorithms to create a "magnifying glass"ã'effect. Two windows scroll randomly over a 320x200x256 PCX file. One usesã'a factor of 2, the other a factor of 4. This program could be a LOT moreã'efficient, the flicker could be reduced, etc, but I wrote it while taking aã'break from studying.ã'ã'ã'-Nick Cangianiã' gcnc@worldnet.att.netã'ã'ã'$DYNAMICãCONST FALSE = 0, TRUE = 1ãCONST pi = 3.141, twopi = 6.283ãDECLARE SUB FillWindow (X%, Y%)ãDECLARE SUB FillWindow1 (X%, Y%)ãDECLARE SUB PCXLoad (PCXFile$, PaletteLoad%)ããDIM SHARED c%(99) 'this will hold the bottom area being viewedãDIM SHARED A%(399) 'this will hold the area being viewed for the topãq = 4 + INT((40 - 1 + 1) * (8 + 7) / 8) * 1 * (40 - 1 + 1)ãDIM B%(q) 'this will be used with GET and PUT to store old screen dataãDIM d%(q)ããCLSãPRINT "Magnifying Glass Demo"ãPRINT " by: Nick Cangiani"ãPRINT " gcnc@worldnet.att.net"ãPRINTãPRINT "Enter the name of a 320x200 256 color PCX file."ãINPUT ">", PCXFile$ãPRINT "Do you want to load the palette? (y/n)"ãINPUT ">", p$ãIF UCASE$(p$) = "Y" THEN pa% = 1 ELSE pa% = 0ãSCREEN 13ãPCXLoad PCXFile$, pa%ããWinX% = 1: WinY% = 1 'initial values for windowãt% = 0 'index for A%()ãDir% = 6: Dir1% = 2 'initial directionãWinX1% = 1: WinY1% = 104ãGET (WinX%, WinY%)-(WinX% + 39, WinY% + 39), B%(0)ãFOR Y% = WinY% + 11 TO WinY% + 30 'cover whole 20x20 sectionã FOR X% = WinX% + 11 TO WinX% + 30ã A%(t%) = POINT(X%, Y%) 'store entire window in arrayã t% = t% + 1ã NEXT X%ãNEXT Y%ãt% = 0ãGET (WinX1%, WinY1%)-(WinX% + 39, WinY% + 39), d%(0)ãFOR Y% = WinY1% + 16 TO WinY1% + 25 'cover whole 20x20 sectionã FOR X% = WinX1% + 16 TO WinX1% + 25ã c%(t%) = POINT(X%, Y%) 'store entire window in arrayã t% = t% + 1ã NEXT X%ãNEXT Y%ãããFillWindow WinX%, WinY% 'fill view windowãFillWindow1 WinX1%, WinY1%ãã'main loopãDOããcnt% = cnt% + 1 'increase counterãcnt1% = cnt1% + 1ãd! = TIMER 'Delay - I am working with a 486/66ãDO ' adjust to fit your systemãLOOP UNTIL TIMER > d! + .01ãLastX% = WinX%: LastY% = WinY% 'store old area coordinatesãLastX1% = WinX1%: LastY1% = WinY1%ãIF cnt% = 33 THEN 'change directionãcnt% = 0ã11 RANDOMIZE TIMERã Dir% = INT((9 - 1 + 1) * RND + 1)ãEND IFããIF cnt1% = 45 THENãcnt1% = 0ã12 RANDOMIZE TIMERã Dir1% = INT((9 - 1 + 1) * RND + 1)ãEND IFããIF Dir% = 7 OR Dir% = 8 OR Dir% = 9 THEN 'All the collision detection crapã IF WinY% - 1 < 1 THEN GOTO 11ã WinY% = WinY% - 1ãEND IFãIF Dir% = 1 OR Dir% = 2 OR Dir% = 3 THENã IF WinY% + 1 > 60 THEN GOTO 11 '60ã WinY% = WinY% + 1ãEND IFãIF Dir% = 7 OR Dir% = 4 OR Dir% = 1 THENã IF WinX% - 1 < 1 THEN GOTO 11ã WinX% = WinX% - 1ãEND IFãIF Dir% = 9 OR Dir% = 6 OR Dir% = 1 THENã IF WinX% + 1 > 280 THEN GOTO 11ã WinX% = WinX% + 1ãEND IFããIF Dir1% = 7 OR Dir1% = 8 OR Dir1% = 9 THENã IF WinY1% - 1 < 101 THEN GOTO 12 '1ã WinY1% = WinY1% - 1ãEND IFãIF Dir1% = 1 OR Dir1% = 2 OR Dir1% = 3 THENã IF WinY1% + 1 > 160 THEN GOTO 12ã WinY1% = WinY1% + 1ãEND IFãIF Dir1% = 7 OR Dir1% = 4 OR Dir1% = 1 THENã IF WinX1% - 1 < 1 THEN GOTO 12ã WinX1% = WinX1% - 1ãEND IFãIF Dir1% = 9 OR Dir1% = 6 OR Dir1% = 1 THENã IF WinX1% + 1 > 280 THEN GOTO 12ã WinX1% = WinX1% + 1ãEND IFããPUT (LastX%, LastY%), B%(0), PSET 'put old areaãGET (WinX%, WinY%)-(WinX% + 39, WinY% + 39), B%(0) 'get new areãt% = 0 'index at 0ãFOR Y% = WinY% + 11 TO WinY% + 30 'cover whole 20x20 sectionã FOR X% = WinX% + 11 TO WinX% + 30ã A%(t%) = POINT(X%, Y%) 'store entire window in arrayã t% = t% + 1ã NEXT X%ãNEXT Y%ããFillWindow WinX%, WinY% 'fill view windowããPUT (LastX1%, LastY1%), d%(0), PSET '...and the same for #2ãGET (WinX1%, WinY1%)-(WinX1% + 39, WinY1% + 39), d%(0)ãt% = 0ãFOR Y% = WinY1% + 16 TO WinY1% + 25 'cover whole 20x20 sectionã FOR X% = WinX1% + 16 TO WinX1% + 25ã c%(t%) = POINT(X%, Y%) 'store entire window in arrayã t% = t% + 1ã NEXT X%ãNEXT Y%ãFillWindow1 WinX1%, WinY1%ããLOOPãã ããREM $STATICãSUB FillWindow (X%, Y%)ãXa% = X%: Ya% = Y%ãFOR i% = 0 TO 399ã LINE (Xa%, Ya%)-(Xa% + 1, Ya% + 1), A%(i%), BFã Xa% = Xa% + 2ã IF Xa% = 40 + X% THENã Xa% = X%ã Ya% = Ya% + 2ã END IFãNEXT i%ããEND SUBããSUB FillWindow1 (X%, Y%)ãXa% = X%: Ya% = Y%ãFOR i% = 0 TO 99ã LINE (Xa%, Ya%)-(Xa% + 3, Ya% + 3), c%(i%), BFã Xa% = Xa% + 4ã IF Xa% = 40 + X% THENã Xa% = X%ã Ya% = Ya% + 4ã END IFãNEXT i%ããEND SUBããSUB PCXLoad (PCXFile$, PaletteLoad%)ãDIM buf(32002) AS INTEGER: buf(0) = 2560: buf(1) = 200ãBSEG& = VARSEG(buf(2)): BOFS& = VARPTR(buf(2))ãOPEN PCXFile$ FOR INPUT AS #1: CLOSE 1: OPEN PCXFile$ FOR BINARY AS #1ãfin& = LOF(1) - 767: SEEK #1, fin&: pal$ = INPUT$(768, 1)ãp% = 1: fin& = fin& - 1ãIF PaletteLoad% = TRUE THENãFOR t& = 0 TO 255ã OUT &H3C8, t&ã FOR hue% = 1 TO 3ã OUT &H3C9, ASC(MID$(pal$, p%)) \ 4: p% = p% + 1ã NEXTãNEXTãEND IFãSEEK #1, 129: t& = BOFS&: DEF SEG = BSEG&: CLS : spin% = 1ãRLE% = 0ãDOã p$ = INPUT$(256, 1): fpos& = SEEK(1): l% = LEN(p$)ã IF fpos& > fin& THENã l% = l% - (fpos& - fin&): p$ = LEFT$(p$, l%): view$ = "done"ã END IFã FOR p% = 1 TO l%ã dat% = ASC(MID$(p$, p%))ã IF RLE% = 0 THENã IF (dat% AND 192) = 192 THENã RLE% = dat% AND 63ã ELSEã POKE t&, dat%: t& = t& + 1ã END IFã ELSEã FOR RLE% = RLE% TO 1 STEP -1ã POKE t&, dat%: t& = t& + 1ã NEXTã END IFã NEXTãLOOP UNTIL view$ = "done"ãbt2! = TIMER: CLOSE 1: PUT (0, 0), buf, PSETãEND SUBãMatthew Pulley RESIZING FONTS FidoNet QUIK_BAS Echo 04-18-97 (19:24) QB, QBasic, PDS 91 2522 RESIZE.BAS '//** ROTATE.BASã'//** Donated To The Public Domainã'//** Author - M@ Pulleyã'//** Use At Your Own Risk!ããSCREEN 13ãDIM Word1(1056), Word2(2048), Word3(3040), Word4(4080)ãDIM BackWord1(1056), BackWord2(2048), BackWord3(3040), BackWord4(4080)ãDIM Block1(144)ããLINE (0, 0)-(9, 16), 15, BFãGET (0, 0)-(9, 16), Block1ãCLSããFOR GetPicture = 1 TO 4ãã'//** Scales different sizes of the word, "BoneHead", for GETããLOCATE 1, 1: PRINT "BoneHead"ã FOR X = 0 TO 63ã FOR Y = 0 TO 7ã IF POINT(X, Y) <> 0 THENã ã LINE ((X + 10) * GetPicture, (Y + 6) * 2)-((X + 11) * GetPicture, (Y + 5) * 2), POINT(X, Y), BFã ã LINE ((-X + 72) * GetPicture, (Y + 14) * 2)-((-X + 73) * GetPicture, (Y + 13) * 2), POINT(X, Y), BFã ã END IFã NEXTã NEXTãã IF GetPicture = 1 THENã GET (8, 9)-(74, 25), Word1ã GET (8, 26)-(74, 42), BackWord1 '66 LENGTHã ELSEIF GetPicture = 2 THENã GET (18, 9)-(146, 25), Word2ã GET (18, 26)-(146, 42), BackWord2 '128 LENGTHã ELSEIF GetPicture = 3 THENã GET (30, 9)-(220, 25), Word3ã GET (30, 26)-(220, 42), BackWord3 '190 LENGTHã ELSEIF GetPicture = 4 THENã GET (38, 9)-(293, 25), Word4ã GET (38, 26)-(293, 42), BackWord4 '255 LENGTHã END IFãã CLSãNEXTããPictureCount = 0ããDOãã''//** Spin "BoneHead" from the frontãã PictureCount = PictureCount + 1ã IF PictureCount = 1 THEN PUT (158, 92), Block1ã IF PictureCount = 2 THEN PUT (127, 92), Word1ã IF PictureCount = 3 THEN PUT (96, 92), Word2ã IF PictureCount = 4 THEN PUT (65, 92), Word3ã IF PictureCount = 5 THEN PUT (33, 92), Word4ã IF PictureCount = 6 THEN PUT (65, 92), Word3ã IF PictureCount = 7 THEN PUT (96, 92), Word2ã IF PictureCount = 8 THEN PUT (127, 92), Word1ã IF PictureCount = 9 THEN PUT (158, 92), Block1ãã'//** Spin "BoneHead" from behindãã IF PictureCount = 10 THEN PUT (127, 92), BackWord1ã IF PictureCount = 11 THEN PUT (96, 92), BackWord2ã IF PictureCount = 12 THEN PUT (65, 92), BackWord3ã IF PictureCount = 13 THEN PUT (33, 92), BackWord4ã IF PictureCount = 14 THEN PUT (65, 92), BackWord3ã IF PictureCount = 15 THEN PUT (96, 92), BackWord2ã IF PictureCount = 16 THENãã PUT (127, 92), BackWord1ã PictureCount = 0ããEND IFããFOR Delay = 1 TO 1000: NEXTãã'** Help Needed Here! How can I get RID of this statement, which erases theã'** "BoneHead", but creates a flashing effect, and still have a smoothã'** transition between each picture switch?ã'** ããLINE (33, 92)-(287, 108), 0, BFããLOOP WHILE INKEY$ <> CHR$(27)ãENDãToshihiro Horie 2D TEXTURE ZOOM/ROTATION DEMO comp.lang.basic.misc 04-10-97 (19:58) QB, QBasic, PDS 63 1536 2D.BAS '2d texture zoom/rotation demoã'seriously fast now 30+ fps on 486ã'by Toshihiro Horieã'toshiman@uclink4.berkeley.eduãDEFINT A-Zã'possible modifications:ã'3) reverse rotation mappingãxh = 40: yh = 30: ch = 16ãxd = 160: yd = 100ãv = 0: w = 1ãDIM C(360): DIM S(360)ã'set up sinus tablesãdeg2rad# = .01745329#ãPRINT "Calculating sinus tables..."ãFOR t = 0 TO 179ã C(t) = COS(t * deg2rad#) * 128ã S(t) = SIN(t * deg2rad#) * 128ãNEXTãFOR t = 180 TO 359ã S(t) = -S(t - 180)ã C(t) = C(360 - t)ãNEXTãããSCREEN 7, , v, wã'plot some points in a boxã'LINE (0, 0)-(xh, yh), 15, BãDIM block(xh, yh)ãFOR t = 1 TO 100ã x = INT(RND * xh): y = INT(RND * yh)ã C = INT(RND * ch)ã 'PSET (x, y), Cã block(x, y) = CãNEXTãã'rotate it about its centerãz = 2: num = 1: ST = 1ãDOãA = (A + ST) MOD 360ã k$ = INKEY$ã IF k$ = "8 " THEN z = z + 1ã IF k$ = "2" THEN z = z - 1ã IF k$ = "6" THEN ST = ST + 1ã IF k$ = "4" THEN ST = ST - 1ã ST = ST + 1: 'FOR COOL KALIDESCOPEã IF ST < 1 THEN ST = 1ã IF k$ = CHR$(27) THEN ENDã IF z > 8 THEN z = 8ã IF z < -8 THEN z = -8ã Ca = C(A)ã Sa = S(A)ã FOR x = 0 TO xhã xo = (x - xh \ 2)ã FOR y = 0 TO yhã IF block(x, y) = 0 THEN GOTO skipã yo = (y - yh \ 2)ã xp = xo * Ca * z \ 128 - yo * Sa * z \ 128ã yp = yo * Ca * z \ 128 + xo * Sa * z \ 128ã PSET (xp + xd, yd - yp), block(x, y)ãskip:ã NEXT: NEXTã SWAP v, w: SCREEN 7, , v, w: WAIT &H3DA, 8: CLS 2ãLOOPãAngelo Ken Pesce CIRCULAR PLASMA + FIRE ken@uniserv.uniplan.it 03-06-97 (15:24) QB, PDS 197 3986 PLASMA5.BAS DECLARE SUB wrpal (slot%, r%, g%, b%)ãDECLARE SUB flam1 ()ãDECLARE SUB back ()ãDECLARE SUB initp ()ãDECLARE SUB init ()ã' ANGELO KEN PESCE 1997ã' (COLOR) PLASMA EFFECT v5 PLASMA + FIREã' Email: ken at uniserv.uniplan.itã' WWW: http://www.geocities.com/SiliconValley/Pines/9913/homepage.htmã' LOAD THIS PROGRAM USING QBX /AH OR QB /AHã'ã' QUICKBASIC IS REALLY SLOW...ã' I HAVE TO CONVERT THIS TO PASCAL OR Cã' COMPILE IT USING ALTERNATE MATH OPTION OF QUICKBASIC PDS 7ã' AND USE A PENTIUM PROCESSOR...ããã' $DYNAMICãDEFINT A-Zãã' INITIALIZE CIRCLE ARRAYãDIM SHARED aps(250, 250)ãCALL initãSCREEN 13ããã' PALETTE INITãCALL initpãã' PATTER 1 AND PATTER 2 CENTER and INITIAL MOVEMENTãxp1 = 80 + 20: yp1 = 50 + 20ãxp2 = 80 - 20: yp2 = 50 - 20ãxm1 = 1ãym1 = -1ãxm2 = -1ãym2 = 1ããDOã' FIRST HALF **************************************************************ãDEF SEG = &HA000ãFOR x = 1 TO 159ãax = x + 125ãx1 = ax - xp1ãx2 = ax - xp2ãpx = x * 2ãFOR y = 0 TO 50ãay = y + 125ããy1 = ay - yp1ã' THOSE CHECKS ARE REMOVED TO INCREASE SPEEDã'IF x1 < 1 OR x1 > 250 OR y1 < 1 OR y1 > 250 THEN col1 = 0: GOTO ex1ãcol1 = aps(x1, y1)ãex1:ããy2 = ay - yp2ã' THOSE CHECKS ARE REMOVED TO INCREASE SPEEDã'IF x2 < 1 OR x2 > 250 OR y2 < 1 OR y2 > 250 THEN col2 = 0: GOTO ex2ãcol2 = aps(x2, y2)ãex2:ããIF col1 > 0 AND col2 > 0 THEN col = 0 ELSE col = col1 + col2ããpy = y * 2ãPOKE (py * 320 + px), colãPOKE (py * 320 + px - 1), colããNEXTãNEXTãã' SECOND HALF *************************************************************ããDEF SEG = (&HA000 + &H7D0)ããFOR x = 1 TO 159ãax = x + 125ãx1 = ax - xp1ãx2 = ax - xp2ãpx = x * 2ãFOR y = 0 TO 49ãay = y + 125ããy1 = ay - yp1 + 50ã' THOSE CHECKS ARE REMOVED TO INCREASE SPEEDã'IF x1 < 1 OR x1 > 250 OR y1 < 1 OR y1 > 250 THEN col1 = 0: GOTO ex3ãcol1 = aps(x1, y1)ãex3:ããy2 = ay - yp2 + 50ã' THOSE CHECKS ARE REMOVED TO INCREASE SPEEDã'IF x2 < 1 OR x2 > 250 OR y2 < 1 OR y2 > 250 THEN col2 = 0: GOTO ex4ãcol2 = aps(x2, y2)ãex4:ããIF col1 > 0 AND col2 > 0 THEN col = 0 ELSE col = col1 + col2ãpy = y * 2ããPOKE (py * 320 + px), colãPOKE (py * 320 + px - 1), colãNEXTãNEXTããDEF SEGãGOSUB setmovãã'FireEffectãCALL flam1ããLOOP UNTIL INKEY$ <> ""ããENDããsetmov:ã' LET THEM MOVE!!!ãxp1 = xp1 + xm1ãyp1 = yp1 + ym1ãxp2 = xp2 + xm2ãyp2 = yp2 + ym2ãIF xp1 > 80 + 20 THEN xm1 = -1 ELSE IF xp1 < 80 - 20 THEN xm1 = 1 ELSE GOTO 1ãIF yp1 > 50 + 20 THEN ym1 = -1 ELSE IF yp1 < 50 - 20 THEN ym1 = 1ã1ãIF xp2 > 80 + 20 THEN xm2 = -1 ELSE IF xp2 < 80 - 20 THEN xm2 = 1 ELSE GOTO 2ãIF yp2 > 50 + 20 THEN ym2 = -1 ELSE IF yp2 < 50 - 20 THEN ym2 = 1ã2ãRETURNããREM $STATICãSUB flam1ããDEF SEG = &HA000 + &H7D0ãFOR r = 0 TO 100ãa = INT(320 * RND)ãPOKE (99 * 320 + a), 79ãPOKE (99 * 320 + (a - 1)), 0ã'POKE (97 * 320 + a), 79ã'POKE (97 * 320 + (a - 1)), 0ãNEXTããFOR yp = 21 TO 99 STEP 2ãFOR xp = 0 TO 319ãcol = PEEK((yp + 2) * 320 + xp)ãcol = col + PEEK(yp * 320 + xp + 1)ãIF col = 0 THEN GOTO fastãcol = col + PEEK(yp * 320 + xp)ãcol = col / 3 - RND * 2ãIF col < 16 THEN col = 16ãPOKE (yp - 2) * 320 + xp, colãfast:ãNEXTãNEXTãDEF SEGãEND SUBããSUB initãã' I HAVE TO USE THIS "TRICK" IN ORDER TO USE INTEGERSããSCREEN 12ãFOR i = 1 TO 180 STEP 16ãFOR i1 = 1 TO 4ãCIRCLE (125, 125), i + i1, i1 + ((180 - i) / 18)ãCIRCLE (126, 125), i + i1, i1 + ((180 - i) / 18)ãNEXTãFOR i1 = 1 TO 4ãCIRCLE (125, 125), i + i1 + 4, (5 - i1) + ((180 - i) / 18)ãCIRCLE (126, 125), i + i1 + 4, (5 - i1) + ((180 - i) / 18)ãNEXTãNEXTãããFOR x = 1 TO 250ãFOR y = 1 TO 250ãaps(x, y) = POINT(x, y)ãNEXTãNEXTãEND SUBããSUB initpãFOR i = 0 TO 15ãPALETTE i, 256 * (i * 2)ãNEXTããFOR i = 16 TO (16 + 63)ãPALETTE i, 63ãNEXTãFOR i = 0 TO 63ãCALL wrpal(i / 4 + 16, i, 0, 0)ãCALL wrpal(i / 4 + 32, 63, i, 0)ãCALL wrpal(i / 4 + 64, 63, 63, i)ãNEXTãEND SUBããSUB wrpal (slot%, r%, g%, b%)ãOUT &H3C7, slot%ãOUT &H3C9, r%ãOUT &H3C9, g%ãOUT &H3C9, b%ãEND SUBãAngelo Ken Pesce 2D BUMPMAPPING EXAMPLE UPDATE ken@uniserv.uniplan.it 03-04-97 (18:50) QB, PDS 783 17853 2DBUMP.BAS DECLARE SUB blood ()ãDECLARE SUB bobs ()ãDECLARE SUB sinfade ()ãDECLARE SUB flam2 ()ãDECLARE SUB anim ()ãDECLARE SUB bump ()ãDECLARE SUB bump1 ()ãDECLARE SUB BurnPrint (y%, x%, text$, iter%)ãDECLARE SUB circles ()ãDECLARE SUB envcalc ()ãDECLARE SUB flam ()ãDECLARE SUB flam1 ()ãDECLARE SUB InputValues ()ãDECLARE SUB palinit (n!)ãDECLARE SUB ReadRGB (red%, grn%, blu%, slot%)ãDECLARE SUB setpal (start.slot%, end.slot%)ãDECLARE SUB statef ()ãDECLARE SUB testpat2 ()ãDECLARE SUB TestPatt (n!)ãDECLARE SUB textf ()ãDECLARE SUB waitkpress ()ãDECLARE SUB writeRGB (red%, grn%, blu%, slot%)ã' $DYNAMICã' USE QBX OR QB WITH /AH /NOFRILLS OPTIONSã' ( to say the truth I don't know if Qb has this options...... )ã' You need 612k of conventional memoryãããããããã' ***************************************************************************ã' ******************* History *********************************************ã' ***************************************************************************ã'ã' Demo v1: First version. (not relased)ã'ã' Demo v2: I changed some algorithms and added a "new" (minor) routinesã'ã' ***************************************************************************ã' ***************************************************************************ã' ******************************************* P L E A S E R E A D T H I S *ã' ***************************************************************************ã' ***************************************************************************ã' APSOFTWARE 1997 (Palette routines aren't mine....)ã' Angelo KEN Pesceã' ken@uniserv.uniplan.itã' http://www.geocities.com/SiliconValley/Pines/9913/homepage.htmã' 2d BUMPmapping EXAMPLE + FLAME EFFECT + OTHER STUFFã' I can make better animated bump effects if I find the way to make anã' array to store the pattern instead putting it on the screen. (in fact thereã' is only one problem: the emp array fills all the avaible memory... if anyoneã' know how to get more memory to use for arrays on QuickBasic PDS7 pleaseã' email me, I need 64k more memory)ã' I also need to know a way to use the full 16m color vga paletteã' (white=256*256*256 instead of 64*64*64)ã'ã' THIS NEEDS A PENTIUM 100... (to run Interpreted in QBX PDS 7, not Compiled)ã' QUICKBASIC ISN'T A FAST LANGUAGE...ã' BUT IT'S GOOD TO MAKE "TEST" VERSIONSã' OF PROGRAMS AND ALGORITHMS...ã' ***************************************************************************ã' ***************************************************************************ã' ***************************************************************************ããããã' ***************************************************************************ã' ***************************************************************************ã' ***************************************************************************ã' ***************** THE MAIN CODE *****************************************ã' ***************************************************************************ã' ***************************************************************************ã' ***************************************************************************ãã' LIGHT POSITION (needed later in the bump subroutine)ãDIM SHARED lposx%ãDIM SHARED lposy%ãCLSãCALL InputValuesãã' CALCULATE LIGHT ENVIROMENT MAP "EMP"ãPRINT "Please wait: initializing enviroment map";ãDIM SHARED emp(255, 255): ' Enviroment map arrayã' This routine makes a tiny spheric spot light.ã' you can modify the array to alter the light (eg. you can implement some noise)ãCALL envcalcãã' SCREEN AND PALETTE INITãSCREEN 13ãCALL palinit(2)ããDIM scrb(5625)ã' iNTRO FIREãFOR r = 1 TO 100ãFOR a = 1 TO 15ãx = INT((178 - 143 + 1) * RND + 143)ãPSET (x, 122), 190ãPSET (x, 121), 189ãPSET (x, 120), 188ãNEXTãCALL flam2ãGET (138, 0)-(183, 125), scrbãPUT (138 - 46, 25), scrb, PSETãPUT (138 + 46, 25), scrb, PSETãPUT (138 - 90, 40), scrb, PSETãPUT (138 + 90, 40), scrb, PSETãPUT (138 - 130, 50), scrb, PSETãPUT (138 + 130, 50), scrb, PSETãNEXTãCALL bumpãCALL waitkpressãCALL bobsãFOR r = 1 TO 15ãCALL sinfadeãNEXTãERASE scrbãã' iNTROãCLSãCALL BurnPrint(11, 11, "ApsoftWare 1997", 50)ãCALL BurnPrint(12, 12, "*** PRESENTS: ***", 50)ãCALL BurnPrint(13, 13, "Fire and Bump", 50)ãCALL BurnPrint(14, 14, "A QuickBasic DEMO", 50)ãCLSããCALL palinit(1)ãCALL BurnPrint(14, 14, "2D BumpMaps ahead", 50)ãã' Static Bump EffectãCALL statefããCLSãCALL BurnPrint(14, 14, "Don't play with fire", 50)ãã' Animated Fire EffectãCALL palinit(2)ãCALL flam1ã' Bump fire patternãCALL palinit(1)ãlposx% = 160ãlposy% = 200ãCALL bumpãCALL waitkpressãCALL bloodããCALL palinit(1)ãCLSãCALL BurnPrint(14, 14, "Animated BumpMaps", 50)ãCALL palinit(2)ããCLSã' Animated Bump EffectãDIM SHARED scr(100, 70)ãlposy% = 100ãCALL testpat2ãCALL animããCLSãCALL palinit(1)ãCALL BurnPrint(14, 14, "Text fire effect", 50)ãã' Text FireeffectãERASE scr: ' We have to gain more memoryãERASE emp: ' So we deallocate unused arraysãCALL textfãã' THE ENDãENDã' ***************************************************************************ã' ***************************************************************************ã' ***************************************************************************ã' ***************************************************************************ã' ***************************************************************************ã' ***************************************************************************ããREM $STATICãDEFINT A-ZãSUB animãã' animated 2d bump effectãDOãFOR r = 0 TO 100 STEP 5ãlposx% = rãCALL bump1ãIF INKEY$ <> "" THEN EXIT DOãNEXTãFOR r = 100 TO 0 STEP -5ãlposx% = rãCALL bump1ãIF INKEY$ <> "" THEN EXIT DOãNEXTãLOOPãEND SUBããDEFSNG A-ZãSUB bloodã DEFINT A-Zã DIM ta(100)ã FOR i = 1 TO 30000ã X1 = INT(RND * 270)ã Y1 = INT(RND * 196)ã GET (X1, Y1)-(X1 + 50, Y1 + 2), taã PUT (X1, Y1 + 2), ta, PSETã NEXTã ERASE taãEND SUBããSUB bobsãnumcol = 63ããFOR i = 1 TO 10ãCIRCLE (10, 10), i, numcol - iãCIRCLE (11, 10), i, numcol - iãNEXTããDIM x(20 * 20)ãGET (1, 1)-(20, 20), xããmovx = 1ãmovy = 2ãxpos = 1ãypos = 2ããFOR i = 1 TO 10000ãxpos = xpos + movxãypos = ypos + movyãIF xpos = 300 THEN movx = -1ãIF xpos = 1 THEN movx = 1ãIF ypos >= 180 THEN movy = -2ãIF ypos <= 2 THEN movy = 2ãPUT (xpos, ypos), x, XORãNEXTãERASE xããEND SUBããDEFSNG A-ZãSUB bumpã' bump effect routineããDEF SEG = &HA000ãFOR y% = 0 TO 100ãFOR x% = 0 TO 319ãlx% = x% - lposx%ãly% = y% - lposy%ãã' *********************************************************************ãnx% = PEEK(y% * 320 + (x% + 1)) - PEEK(y% * 320 + x%) + 128 - lx%ãny% = PEEK((y% + 1) * 320 + x%) - PEEK(y% * 320 + x%) + 128 - ly%ã' ORIGINAL VERSION (BEFORE V2)ã'nx% = PEEK(y% * 320 + (x% + 1)) - PEEK(y% * 320 + (x%-1)) + 128 - lx%ã'ny% = PEEK((y% + 1) * 320 + x%) - PEEK((y%-1) * 320 + x%) + 128 - ly%ã' *********************************************************************ããIF nx% < 0 OR nx% > 255 THEN nx% = 0ãIF ny% < 0 OR ny% > 255 THEN ny% = 0ãã' *********************************************************************ãPOKE (y% * 320 + x%), emp(nx%, ny%)ã' ORIGINAL VERSION (BEFORE V2)ã' POKE ((y%-1) * 320 + (x%-1)), emp(nx%, ny%)ã' *********************************************************************ããNEXTãNEXTããDEF SEG = (&HA000 + &H7D0)ãFOR y% = 1 TO 99ãFOR x% = 0 TO 319ãlx% = x% - lposx%ãly% = y% - (lposy% - 100): ' Use ly%=y%-(lposy%+100) to make a tiny 2 lightsã' effectãã' *********************************************************************ãnx% = PEEK(y% * 320 + (x% + 1)) - PEEK(y% * 320 + x%) + 128 - lx%ãny% = PEEK((y% + 1) * 320 + x%) - PEEK(y% * 320 + x%) + 128 - ly%ã' ORIGINAL VERSION (BEFORE V2)ã'nx% = PEEK(y% * 320 + (x% + 1)) - PEEK(y% * 320 + (x%-1)) + 128 - lx%ã'ny% = PEEK((y% + 1) * 320 + x%) - PEEK((y%-1) * 320 + x%) + 128 - ly%ã' *********************************************************************ããIF nx% < 0 OR nx% > 255 THEN nx% = 0ãIF ny% < 0 OR ny% > 255 THEN ny% = 0ãã' *********************************************************************ãPOKE (y% * 320 + x%), emp(nx%, ny%)ã' ORIGINAL VERSION (BEFORE V2)ã' POKE ((y%-1) * 320 + (x%-1)), emp(nx%, ny%)ã' *********************************************************************ããNEXTãNEXTãDEF SEGãEND SUBããSUB bump1ã' animated bump effect routineããDEF SEG = &HA000ãFOR y% = 0 TO 69ãFOR x% = 0 TO 99ãlx% = x% - lposx%ãly% = y% - lposy%ãnx% = scr((x% + 1), y%) - scr(x%, y%) + 128 - lx%ãny% = scr(x%, (y% + 1)) - scr(x%, y%) + 128 - ly%ãIF nx% < 0 OR nx% > 255 THEN nx% = 0ãIF ny% < 0 OR ny% > 255 THEN ny% = 0ãcol = emp(nx%, ny%)ãPOKE (y% * 320 + x%), colãNEXTãNEXTãDEF SEGãEND SUBããDEFINT A-ZãSUB BurnPrint (y%, x%, text$, iter%)ã' burning text routineãã' Sin TableãDIM sn(360)ãFOR r = 0 TO 360ãsn(r) = SIN(r)ãNEXTãã' PRINT THE TEXTãCOLOR 189: LOCATE y%, x%ãPRINT text$ãã' WAIT KEYPRESSãDO: LOOP WHILE INKEY$ = ""ãã' CALCULATE TEXT POSITIONããlenght = LEN(text$)ããxstart = (x * 8) - 8ãxend = ((x + lenght) * 8) - 8ãystart = (y * 8) - 25ãyend = (y * 8) - 8ããFOR r = 1 TO iter%ããFOR y = ystart TO yend + 8ãFOR x = xstart TO xendããcol = FIX(POINT(x + sn(a), y) + POINT(x, y + 1)) / 2 - (3 * RND)ãIF col < 0 THEN col = 0ãPSET (x, y), colãa = a + 1: IF a = 360 THEN a = 0ãNEXT xãNEXT yãNEXT rãEND SUBããSUB circlesã' circle generator routine - test patternããFOR i = 0 TO 12ãFOR x = 35 TO 0 STEP -1ãc = x + (i * i)ãd = ABS(x * x / 4 + i)ãCIRCLE (111, 200), d, cãCIRCLE (110, 200), d, cãCIRCLE (211, 200), d, cãCIRCLE (210, 200), d, cãNEXTãNEXTãEND SUBããDEFSNG A-ZãSUB envcalcã' enviroment map array initializiation routineããFOR y% = 0 TO 255ãFOR x% = 0 TO 255ãnrmx = (x% - 128) / 128ãnrmy = (y% - 128) / 128ãnrmz = 1 - SQR((nrmx * nrmx) + (nrmy * nrmy))ãIF nrmz < 0 THEN nrmz = 0ãemp(x%, y%) = CINT(nrmz * 190)ãNEXTãPRINT ".";ãNEXTãEND SUBããDEFINT A-ZãSUB flamã' fire - fade routineããDEF SEG = &HA000ãFOR yp = 0 TO 100ãFOR xp = 0 TO 319ãcol = PEEK(yp * 320 + xp)ãcol1 = PEEK(yp * 320 + (xp + 1))ã' ************** JUMP ROUTINE **************************ãIF col = col1 THEN GOTO fastout ELSE col = col + col1ã' ************************************************************ãcol = col + PEEK((yp - 1) * 320 + xp)ãcol = col + PEEK((yp + 1) * 320 + xp)ãcol = col + PEEK(yp * 320 + (xp - 1))ãcol = col / 5 - 6ãIF col < 0 THEN col = 0ãPOKE yp * 320 + xp, colãfastout:ãNEXTãNEXTãsg = &HA000 + &H7D0ãDEF SEG = sgãFOR yp = 1 TO 99ãFOR xp = 0 TO 319ãcol = PEEK(yp * 320 + xp)ãcol1 = PEEK(yp * 320 + (xp + 1))ã' ************** JUMP ROUTINE **************************ãIF col = col1 THEN GOTO fastout1 ELSE col = col + col1ã' ************************************************************ãcol = col + PEEK((yp - 1) * 320 + xp)ãcol = col + PEEK((yp + 1) * 320 + xp)ãcol = col + PEEK(yp * 320 + (xp - 1))ãcol = col / 5 - 6ãIF col < 0 THEN col = 0ãPOKE yp * 320 + xp, colãfastout1:ãNEXTãNEXTãDEF SEGãEND SUBããSUB flam1ã' fire routineãsg = &HA000 + &H7D0ãDEF SEG = sgãDOããFOR r = 0 TO 50ãa = INT(320 * RND)ãPSET (a, 198), 190ãPSET (a + 1, 198), 0ãNEXTããFOR yp = 60 TO 99ãFOR xp = 0 TO 319ãcol = PEEK((yp + 1) * 320 + xp)ãcol1 = PEEK(yp * 320 + xp + 1)ãIF col = col1 THEN GOTO fast ELSE col = col + col1ãcol = col + PEEK(yp * 320 + xp)ãcol = col / 3 - 3ãIF col < 0 THEN col = 0ãPOKE (yp - 1) * 320 + xp, colãfast:ãNEXTãNEXTãLOOP WHILE INKEY$ = ""ãDEF SEGãEND SUBããDEFSNG A-ZãSUB flam2ãDEFINT A-Zãsp = 3: REM FIRE Y SPEEDããREM ROUTINE RANGE: X 138-183, Y 0-125ããREM ROUTINE 0 FASTEST *************************************** Pixels 0 - 40ãFOR y = 0 TO 40ã FOR x = 138 TO 183ã col = POINT(x, y - 1)ã IF col = 0 THEN GOTO a1ã col = col - 1ã PSET (x, y - sp), colãa1:ãNEXTãNEXTããREM ROUTINE 1 FAST ****************************************** Pixels 41 - 65ããFOR y = 41 TO 65ã FOR x = 138 TO 183ã col = POINT(x, y + 1)ã col = col + POINT(x, y - 1): IF col = 0 THEN GOTO ken1ã col = col / 2 - 1ã IF col < 0 THEN col = 0ã PSET (x, y - sp), colãken1:ãNEXTãNEXTããREM ROUTINE 2 MEDIUM ******************************************* Pixels 66-80ããFOR y = 66 TO 80ã FOR x = 138 TO 183ã col = POINT(x, y)ã col = col + POINT(x, y + 1): IF col = 0 THEN GOTO ken3ã col = col + POINT(x, y - 1)ã col = col / 3 - 1ã IF col < 0 THEN col = 0ã PSET (x, y - sp), colãken3:ãNEXTãNEXTããREM ROUTIME 3 SLOW ******************************************** Pixels 81-125ãFOR y = 81 TO 125ã FOR x = 138 TO 183ã col = POINT(x, y)ã col = col + POINT(x + 1, y): IF col = 0 THEN GOTO ken6:ã col = col + POINT(x - 1, y)ã col = col + POINT(x, y + 1)ã col = col + POINT(x, y - 1)ã col = col / 5 - 1ã IF col < 0 THEN col = 0ãken6:ã PSET (x, y - sp), colãNEXTãNEXTããEND SUBããDEFSNG A-ZãSUB InputValuesãPRINT "Light position (good values are 160,100)"ãINPUT "x (from 1 to 320)"; lposx%ãINPUT "y (from 1 to 200)"; lposy%ãIF lposx% < 1 OR lposx% > 320 THEN lposx% = 160ãIF lposy% < 1 OR lposy% > 200 THEN lposy% = 100ãPRINTãEND SUBããSUB palinit (n)ã' palette setup routineããSELECT CASE nãCASE IS = 1ããCALL writeRGB(0, 0, 0, 0)ãCALL writeRGB(0, 0, 63, 63)ãCALL setpal(0, 63)ããCALL writeRGB(0, 0, 63, 64)ãCALL writeRGB(0, 63, 63, 127)ãCALL setpal(64, 127)ããCALL writeRGB(0, 63, 63, 128)ãCALL writeRGB(63, 63, 63, 190)ãCALL setpal(128, 190)ããCASE IS = 2ãCALL writeRGB(0, 0, 0, 0)ãCALL writeRGB(63, 0, 0, 63)ãCALL setpal(0, 63)ããCALL writeRGB(63, 0, 0, 64)ãCALL writeRGB(63, 63, 0, 127)ãCALL setpal(64, 127)ããCALL writeRGB(63, 63, 0, 128)ãCALL writeRGB(63, 63, 63, 190)ãCALL setpal(128, 190)ãEND SELECTãEND SUBããDEFINT A-ZãSUB ReadRGB (red%, grn%, blu%, slot%)ã' palette value read routineãã 'ã OUT &H3C7, slot% ' Read RGB values from slotã 'ã red% = INP(&H3C9)ã grn% = INP(&H3C9)ã blu% = INP(&H3C9)ã 'ãEND SUBããSUB setpal (start.slot%, end.slot%)ã' smooth palette generator routineãã 'ã num.slots% = end.slot% - start.slot%ã 'ã CALL ReadRGB(sr%, sg%, sb%, start.slot%)ã CALL ReadRGB(er%, eg%, eb%, end.slot%)ã 'ã rr% = ABS(er% - sr%): rg% = ABS(eg% - sg%): rb% = ABS(eb% - sb%)ã rs% = SGN(er% - sr%): gs% = SGN(eg% - sg%): bs% = SGN(eb% - sb%)ã 'ã stepr = (rr% / num.slots%) * rs%ã stepg = (rg% / num.slots%) * gs%ã stepb = (rb% / num.slots%) * bs%ã 'ã r = sr%: g = sg%: b = sb%ã wr% = r: wg% = g: wb% = bã 'ã FOR t% = start.slot% TO end.slot%ã 'ã CALL writeRGB(wr%, wg%, wb%, t%)ã 'ã r = r + stepr: wr% = rã g = g + stepg: wg% = gã b = b + stepb: wb% = bã 'ã NEXT t%ã 'ãEND SUBããSUB sinfadeããDEF SEG = &HA000ãFOR y = 0 TO 100ãFOR x = 0 TO 318ãcol = PEEK(y * 320 + x + 5) - 15ãIF col < 0 THEN col = 0ãPOKE (y * 320 + x), colãNEXTãNEXTããsg = &HA000 + &H7D0ãDEF SEG = sgãFOR y = 1 TO 99ãFOR x = 319 TO 1 STEP -1ãcol = PEEK(y * 320 + x - 5) - 15ãIF col < 0 THEN col = 0ãPOKE (y * 320 + x), colãNEXTãNEXTãEND SUBããDEFSNG A-ZãSUB statefã' static 2d bump effectãã' TEST PATTERN (You can use any pattern or image)ãCALL palinit(2)ãCALL TestPatt(0)ãCALL palinit(1)ãCALL bump: ' Bump MapãCALL waitkpressãCALL bloodãFOR r = 1 TO 20ãCALL flam: 'More than flam we can call this "fade"ãNEXTãCALL palinit(2)ãCALL TestPatt(1)ãCALL palinit(1)ãCALL bump: ' Bump MapãCALL waitkpressãCALL bloodãFOR r = 1 TO 20ãCALL flamãNEXTãEND SUBããSUB testpat2ã' pattern generator for animated bumpããFOR x = 0 TO 100ãFOR y = 0 TO 70ãPSET (x, y), RND * 100ãNEXTãNEXTãflamãflamãFOR x = 0 TO 100ãFOR y = 0 TO 70ãscr(x, y) = POINT(x, y)ãNEXTãNEXTããEND SUBããSUB TestPatt (n)ã' pattern generator for static bump routineãSELECT CASE nãCASE IS = 0ãCALL circlesãCASE IS = 1ãFOR x = 1 TO 320ãFOR y = 1 TO 200ãPSET (x, y), RND * 100ãNEXTãNEXTãCALL flam: ' this smooths the patternãEND SELECTãEND SUBããDEFINT A-ZãSUB textfã' text fireeffect routineããSCREEN 0: WIDTH 80, 50ãDIM scrbuf(80, 50)ããDOãGOSUB lastlineãGOSUB randputãGOSUB fireãGOSUB updscrãLOOP WHILE INKEY$ = ""ããENDãREM ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ SUBSãupdscr:ãLOCATE 1, 1ãFOR y = 1 TO 49ãFOR x = 1 TO 80ãSELECT CASE scrbuf(x, y)ãCASE 0 TO 9ãCOLOR 0, 0: PRINT " ";ãCASE 10 TO 19ãCOLOR 4, 0: PRINT "°";ãCASE 20 TO 29ãCOLOR 4, 0: PRINT "±";ãCASE 30 TO 39ãCOLOR 4, 0: PRINT "²";ãCASE 40 TO 44ãCOLOR 14, 4: PRINT " ";ãCASE 45 TO 50ãCOLOR 14, 4: PRINT "°";ãCASE 51 TO 69ãCOLOR 14, 4: PRINT "±";ãCASE 70 TO 89ãCOLOR 14, 4: PRINT "²";ãCASE 90 TO 124ãCOLOR 14, 4: PRINT "Û";ãCASE 125 TO 160ãCOLOR 15, 0: PRINT "Û";ãEND SELECTãNEXTãNEXTãRETURNããlastline:ãFOR x = 1 TO 80ãa = CINT(RND)ãIF a = 1 THEN scrbuf(x, 50) = 0ãIF a = 0 THEN scrbuf(x, 50) = 160ãNEXTãRETURNããrandput:ãFOR i = 1 TO 5ãx = INT(79 * RND + 1)ãy = INT(49 * RND + 1)ãscrbuf(x, y) = 160ãscrbuf(x, y + 1) = 160ãscrbuf(x + 1, y + 1) = 160ãNEXTãRETURNããfire:ãFOR x = 1 TO 79ãFOR y = 1 TO 49ãcolr = scrbuf(x, y) + scrbuf(x + 1, y) + scrbuf(x, y + 1) + scrbuf(x - 1, y) + scrbuf(x, y - 1)ãcolr = INT(colr / 5.3 - INT(11 * RND - 5))ãIF colr > 160 THEN colr = 160ãIF colr < 0 THEN colr = 0ãscrbuf(x, y - 1) = colrãNEXTãNEXTãRETURNããEND SUBããDEFSNG A-ZãSUB waitkpressãDO: LOOP WHILE INKEY$ = ""ãEND SUBããDEFINT A-ZãSUB writeRGB (red%, grn%, blu%, slot%)ã' palette write routineãã 'ã OUT &H3C8, slot% ' Write RGB values to slotã 'ã OUT &H3C9, red%ã OUT &H3C9, grn%ã OUT &H3C9, blu%ã 'ãEND SUBãNick Kochakian LCD COUNTER DIGITS NickK@worldnet.att.net 04-24-97 (10:42) QB, QBasic, PDS 471 7930 LCDIGIT.BAS DECLARE SUB lightlet (x3!, y3!, ltr$)ãDECLARE SUB lightdigit (x3!, y3!, num!)ãDECLARE SUB lightpart (x3!, y3!, let$)ãDECLARE SUB cleardigit (x3!, y3!)ãã'LCD counter digitsã'ã'4/8/97ã'1997 By: - Nick Kochakian -ã'I'll make a better verison of this that will support high res. and all theã'letters!ã'ã'Any comments or questions should be e-mailed to: nickK@worldnet.att.netãã' ___a.___ã' | |ã'b. | | c.ã' | |ã' ---d.---ã' | |ã'e. | | f.ã' |___g.___|ã'ã'ãã'Recommended:ã'+15 on X3 for each space rightã'-15 on X3 for each space leftã'+25 on Y3 for each space downã'-25 on Y3 for each space upããSCREEN 13ãã'cleardigit SUB -> CALL cleardigit (x of digit, y of digit)ã'lightdigit SUB -> CALL lightdigit (x of digit, y of digit, number for digit <1-0>)ã'lightlet SUB -> CALL lightlet (x of digit, y of digit, letter)ã'Note: not all letters will work with the lightlet SUB!ã'lightpart SUB -> CALL lightpart (x of digit, y of digit, digit letter )ããCALL cleardigit(1, 1)ãCALL cleardigit(15, 1)ãCALL cleardigit(30, 1)ãCALL cleardigit(45, 1)ãCALL cleardigit(60, 1)ãCALL cleardigit(75, 1)ãCALL cleardigit(90, 1)ãCALL cleardigit(105, 1)ãCALL cleardigit(120, 1)ãCALL cleardigit(135, 1)ãã'CALL lightlet(1, 1, "z")ããCALL lightdigit(1, 1, 1)ãCALL lightdigit(15, 1, 2)ãCALL lightdigit(30, 1, 3)ãCALL lightdigit(45, 1, 4)ãCALL lightdigit(60, 1, 5)ãCALL lightdigit(75, 1, 6)ãCALL lightdigit(90, 1, 7)ãCALL lightdigit(105, 1, 8)ãCALL lightdigit(120, 1, 9)ãCALL lightdigit(135, 1, 0)ããCALL cleardigit(1, 25)ãCALL cleardigit(15, 25)ãCALL cleardigit(30, 25)ãCALL cleardigit(45, 25)ãCALL cleardigit(60, 25)ãCALL cleardigit(75, 25)ãCALL cleardigit(90, 25)ãCALL cleardigit(105, 25)ãCALL cleardigit(120, 25)ãCALL cleardigit(135, 25)ããCALL lightlet(1, 25, "h")ãCALL lightlet(15, 25, "e")ãCALL lightlet(30, 25, "l")ãCALL lightlet(45, 25, "l")ãCALL lightlet(60, 25, "o")ããSUB cleardigit (x3, y3)ãcol = 19ããx = 1 'b.ãy = 10ãx2 = 1ãy2 = 3ããx = x + x3ãy = y + y3ãx2 = x2 + x3ãy2 = y2 + y3ããLINE (x, y)-(x2, y2), colããx = 10 'a.ãy = 1ãx2 = 3ãy2 = 1ããx = x + x3ãy = y + y3ãx2 = x2 + x3ãy2 = y2 + y3ããLINE (x, y)-(x2, y2), colããx = 12 'c.ãy = 10ãx2 = 12ãy2 = 3ããx = x + x3ãy = y + y3ãx2 = x2 + x3ãy2 = y2 + y3ããLINE (x, y)-(x2, y2), colããx = 10 'd.ãy = 12ãx2 = 3ãy2 = 12ããx = x + x3ãy = y + y3ãx2 = x2 + x3ãy2 = y2 + y3ããLINE (x, y)-(x2, y2), colããx = 1 'e.ãy = 20ãx2 = 1ãy2 = 13ããx = x + x3ãy = y + y3ãx2 = x2 + x3ãy2 = y2 + y3ããLINE (x, y)-(x2, y2), colããx = 12 'f.ãy = 20ãx2 = 12ãy2 = 13ããx = x + x3ãy = y + y3ãx2 = x2 + x3ãy2 = y2 + y3ããLINE (x, y)-(x2, y2), colããx = 10 'd.ãy = 22ãx2 = 3ãy2 = 22ããx = x + x3ãy = y + y3ãx2 = x2 + x3ãy2 = y2 + y3ããLINE (x, y)-(x2, y2), colããEND SUBããSUB lightdigit (x3, y3, num)ãã' ___a.___ã' | |ã'b. | | c.ã' | |ã' ---d.---ã' | |ã'e. | | f.ã' |___g.___|ã'ã'ããIF num = 1 THENãCALL lightpart(x3, y3, "c")ãCALL lightpart(x3, y3, "f")ãEND IFããIF num = 2 THENãCALL lightpart(x3, y3, "a")ãCALL lightpart(x3, y3, "c")ãCALL lightpart(x3, y3, "d")ãCALL lightpart(x3, y3, "e")ãCALL lightpart(x3, y3, "g")ãEND IFããIF num = 3 THENãCALL lightpart(x3, y3, "a")ãCALL lightpart(x3, y3, "c")ãCALL lightpart(x3, y3, "d")ãCALL lightpart(x3, y3, "f")ãCALL lightpart(x3, y3, "g")ãEND IFããIF num = 4 THENãCALL lightpart(x3, y3, "b")ãCALL lightpart(x3, y3, "d")ãCALL lightpart(x3, y3, "c")ãCALL lightpart(x3, y3, "f")ãEND IFããIF num = 5 THENãCALL lightpart(x3, y3, "a")ãCALL lightpart(x3, y3, "b")ãCALL lightpart(x3, y3, "d")ãCALL lightpart(x3, y3, "f")ãCALL lightpart(x3, y3, "g")ãEND IFããIF num = 6 THENãCALL lightpart(x3, y3, "a")ãCALL lightpart(x3, y3, "b")ãCALL lightpart(x3, y3, "d")ãCALL lightpart(x3, y3, "e")ãCALL lightpart(x3, y3, "g")ãCALL lightpart(x3, y3, "f")ãEND IFããIF num = 7 THENãCALL lightpart(x3, y3, "a")ãCALL lightpart(x3, y3, "c")ãCALL lightpart(x3, y3, "f")ãEND IFããIF num = 8 THENãCALL lightpart(x3, y3, "a")ãCALL lightpart(x3, y3, "b")ãCALL lightpart(x3, y3, "c")ãCALL lightpart(x3, y3, "d")ãCALL lightpart(x3, y3, "e")ãCALL lightpart(x3, y3, "f")ãCALL lightpart(x3, y3, "g")ãEND IFããIF num = 9 THENãCALL lightpart(x3, y3, "a")ãCALL lightpart(x3, y3, "b")ãCALL lightpart(x3, y3, "d")ãCALL lightpart(x3, y3, "c")ãCALL lightpart(x3, y3, "f")ãEND IFããIF num = 0 THENãCALL lightpart(x3, y3, "a")ãCALL lightpart(x3, y3, "b")ãCALL lightpart(x3, y3, "e")ãCALL lightpart(x3, y3, "g")ãCALL lightpart(x3, y3, "f")ãCALL lightpart(x3, y3, "c")ãEND IFããEND SUBããSUB lightlet (x3, y3, ltr$)ããltr$ = UCASE$(ltr$)ãã' ___a.___ã' | |ã'b. | | c.ã' | |ã' ---d.---ã' | |ã'e. | | f.ã' |___g.___|ã'ã'ããIF ltr$ = "A" THENãCALL lightpart(x3, y3, "a")ãCALL lightpart(x3, y3, "b")ãCALL lightpart(x3, y3, "c")ãCALL lightpart(x3, y3, "d")ãCALL lightpart(x3, y3, "e")ãCALL lightpart(x3, y3, "f")ãEND IFããIF ltr$ = "C" THENãCALL lightpart(x3, y3, "a")ãCALL lightpart(x3, y3, "b")ãCALL lightpart(x3, y3, "e")ãCALL lightpart(x3, y3, "g")ãEND IFããIF ltr$ = "E" THENãCALL lightpart(x3, y3, "a")ãCALL lightpart(x3, y3, "b")ãCALL lightpart(x3, y3, "d")ãCALL lightpart(x3, y3, "e")ãCALL lightpart(x3, y3, "g")ãEND IFããIF ltr$ = "F" THENãCALL lightpart(x3, y3, "a")ãCALL lightpart(x3, y3, "b")ãCALL lightpart(x3, y3, "d")ãCALL lightpart(x3, y3, "e")ãEND IFããIF ltr$ = "H" THENãCALL lightpart(x3, y3, "b")ãCALL lightpart(x3, y3, "e")ãCALL lightpart(x3, y3, "d")ãCALL lightpart(x3, y3, "f")ãCALL lightpart(x3, y3, "c")ãEND IFããIF ltr$ = "J" THENãCALL lightpart(x3, y3, "c")ãCALL lightpart(x3, y3, "f")ãCALL lightpart(x3, y3, "g")ãCALL lightpart(x3, y3, "e")ãEND IFããIF ltr$ = "L" THENãCALL lightpart(x3, y3, "b")ãCALL lightpart(x3, y3, "e")ãCALL lightpart(x3, y3, "g")ãEND IFããIF ltr$ = "O" THENãCALL lightpart(x3, y3, "a")ãCALL lightpart(x3, y3, "b")ãCALL lightpart(x3, y3, "e")ãCALL lightpart(x3, y3, "g")ãCALL lightpart(x3, y3, "f")ãCALL lightpart(x3, y3, "c")ãEND IFããIF ltr$ = "P" THENãCALL lightpart(x3, y3, "a")ãCALL lightpart(x3, y3, "b")ãCALL lightpart(x3, y3, "d")ãCALL lightpart(x3, y3, "c")ãCALL lightpart(x3, y3, "e")ãEND IFããIF ltr$ = "S" THENãCALL lightpart(x3, y3, "a")ãCALL lightpart(x3, y3, "b")ãCALL lightpart(x3, y3, "d")ãCALL lightpart(x3, y3, "f")ãCALL lightpart(x3, y3, "g")ãEND IFããIF ltr$ = "U" THENãCALL lightpart(x3, y3, "b")ãCALL lightpart(x3, y3, "e")ãCALL lightpart(x3, y3, "g")ãCALL lightpart(x3, y3, "f")ãCALL lightpart(x3, y3, "c")ãEND IFããEND SUBããSUB lightpart (x3, y3, let$)ããlet$ = UCASE$(let$)ããcol = 12ããIF let$ = "B" THENãx = 1 'b.ãy = 10ãx2 = 1ãy2 = 3ããx = x + x3ãy = y + y3ãx2 = x2 + x3ãy2 = y2 + y3ããLINE (x, y)-(x2, y2), colãEND IFããIF let$ = "A" THENãx = 10 'a.ãy = 1ãx2 = 3ãy2 = 1ããx = x + x3ãy = y + y3ãx2 = x2 + x3ãy2 = y2 + y3ããLINE (x, y)-(x2, y2), colããEND IFããIF let$ = "C" THENãx = 12 'c.ãy = 10ãx2 = 12ãy2 = 3ããx = x + x3ãy = y + y3ãx2 = x2 + x3ãy2 = y2 + y3ããLINE (x, y)-(x2, y2), colããEND IFããIF let$ = "D" THENãx = 10 'd.ãy = 12ãx2 = 3ãy2 = 12ããx = x + x3ãy = y + y3ãx2 = x2 + x3ãy2 = y2 + y3ããLINE (x, y)-(x2, y2), colãEND IFããIF let$ = "E" THENãx = 1 'e.ãy = 20ãx2 = 1ãy2 = 13ããx = x + x3ãy = y + y3ãx2 = x2 + x3ãy2 = y2 + y3ããLINE (x, y)-(x2, y2), colãEND IFããIF let$ = "F" THENãx = 12 'f.ãy = 20ãx2 = 12ãy2 = 13ããx = x + x3ãy = y + y3ãx2 = x2 + x3ãy2 = y2 + y3ããLINE (x, y)-(x2, y2), colãEND IFããIF let$ = "G" THENãx = 10 'g.ãy = 22ãx2 = 3ãy2 = 22ããx = x + x3ãy = y + y3ãx2 = x2 + x3ãy2 = y2 + y3ããLINE (x, y)-(x2, y2), colãEND IFããEND SUBãBrent Bernstein MANDELBROT SET jmb1@voicenet.com 04-27-97 (12:29) QB, QBasic, PDS 125 3438 MANDEL.BAS DECLARE SUB text ()ãscale$ = "ccaacc"ãPLAY "L32"ãFOR i% = 0 TO 6ãPLAY "O" + STR$(i%)ãPLAY "X" + VARPTR$(scale$)ãNEXT i%ãLOCATE 13, 20ãCOLOR 4ãPRINT "The Mandelbroth Set"ãLOCATE 14, 20ãCOLOR 5ãPRINT "By Brent Bernstein"ãLOCATE 15, 20ãCOLOR 6ãPRINT "Copyright 1997"ãLOCATE 16, 20ãCOLOR 2ãPRINT "Version 9.64"ãLOCATE 20, 20ãCOLOR 9ãPRINT "Press Any Key To Continue"ãSLEEP 5ãCALL textãa$ = INPUT$(1)ãIF INKEY$ = CHR$(27) THEN GOTO 10ã10 DEFSNG A-Zã20 SCREEN 12: KEY OFFã30 INPUT "colors"; numcolorsã40 INPUT "height"; numcolsã50 INPUT "length"; numrowsã60 xoffest = 1ã70 yoffset = 1ã80 INPUT "real part"; acornerã90 INPUT "imag. part"; bcornerã100 INPUT "side"; sideã110 INPUT "maxdwell"; maxdwellã120 CLSã130 COLOR 1ãscale$ = "ccaacc"ãPLAY "L32"ãFOR i% = 0 TO 6ãPLAY "O" + STR$(i%)ãPLAY "X" + VARPTR$(scale$)ãNEXT i%ã140 LINE (0, 0)-(numcols + xoffset, 0)ã150 LINE (numcols + xoffset, 0)-(numcols + xoffset, numrows + yoffset)ã160 LINE (numcols + xoffset, numrows + yoffset)-(0, numrows + yoffset)ã170 LINE (0, numrows + yoffset)-(0, 0)ã180 LOCATE 17, 1ã190 PRINT "done -->"ã200 PRINT "dwell for last pixel = 0"ã210 PRINT "largest dwell = 0"ã220 PRINT "real part = "; acornerã230 PRINT "Imaginary part = "; bcornerã240 PRINT "side ="; sideã245 PRINT "height"; numcolsã246 PRINT "length"; numrowsã247 LOCATE 19, 34ã248 PRINT "Press Escape to Stop"ã250 highdwell = 0ã260 gap = side / numrowsã270 ac = acornerã280 FOR X = xoffset TO numrows - 1 + xoffsetã290 ac = ac + gapã300 bc = bcornerã310 FOR y = yoffset TO numcols - 1 + xoffsetã320 bc = bc + gapã330 az = 0ã340 bz = 0ã350 COUNT% = 0ã360 SIZE = 0ã370 WHILE (SIZE < 4) AND (COUNT% < maxdwell)ã380 temp = az * az - bz * bz + acã390 bz = 2 * az * bz + bcã400 az = tempã410 SIZE = az * az + bz * bzã420 COUNT% = COUNT% + 1ã430 WENDã440 COLOR 1ã450 LOCATE 18, 23ã460 PRINT COUNT%; "";ã465 IF INKEY$ <> "" THEN ENDã470 IF (COUNT% > highdwell) THEN highdwell = COUNT%:ãLOCATE 19, 16: PRINT highdwellã480 IF COUNT% = maxdwell THEN PSET (X, numrows - y + 1), 0ãPSET (X, numrows - y + 1), COUNT% MOD (numcolors - 1) + 1ã490 NEXT yã500 LOCATE 17, 22ã510 PRINT 100 * X / numcols; "";ã520 NEXT Xãscale$ = "dddaaaccc"ãPLAY "L32"ãFOR i% = 0 TO 6ãPLAY "O" + STR$(i%)ãPLAY "X" + VARPTR$(scale$)ãNEXT i%ã530ã540 a$ = INPUT$(1)ã550 IF INKEY$ = CHR$(27) THEN STOPã560 IF INKEY$ >= CHR$(27) THEN GOTO 550ããSUB textãCLSãCOLOR 7ãPRINT "This program shows the famous Mandelbroth Set. The coordinates to see the"ãPRINT "entire Set are -2,-2,4 and the standard window is 200 X 200. The MaxDwell"ãPRINT "is how long the computer takes figuring out whether a pixel is or is not"ãPRINT "in the Set. You should not use coordinates that are outside -2 and 2 for"ãPRINT "the windows and more that 4 for the length of the side"ãPRINT ""ãPRINT "Standard settings are:"ãPRINT "Colors: 16"ãPRINT "Length & Width: 200"ãPRINT "Maxdwell: 150 for fast, 500 for very detailed"ãPRINT ""ãPRINT "A fractal is a geometric pattern that is repeated forever on all scales."ãPRINT "This results in the effect of a fractal continuing on forever, or no matter"ãPRINT "how much you zoom in, there will always be some sort of complexity. In this"ãPRINT "program, blue is within the set, for 16 color mode, and brown is within the"ãPRINT "set for 4 color mode."ãPRINT ""ãPRINT "Press Enter to Continue"ãSLEEPãEND SUBãAaron Koehl GRAPHICAL CHEW (SCREEN WIPE) akoehl@ccsinc.com 04-29-97 (17:56) QB, QBasic, PDS 44 882 CHEW.BAS ' CHEW.BAS - Graphical replacement for CLS ;)ã'ã' Look at SUB Info() for detailsããDECLARE SUB Info ()ããSCREEN 13: CLSãRANDOMIZE TIMERããFOR Temp = 1 TO 63ã OUT &H3C8, Tempã OUT &H3C9, Tempã OUT &H3C9, Tempã OUT &H3C9, 0ãNEXTããFlag = 1ãFOR Temp = 1 TO 320ã Clr = Clr + Flagã IF Clr = 63 OR Clr = 0 THEN IF Flag = 1 THEN Flag = -1 ELSE Flag = 1ã LINE (Temp, 0)-STEP(0, 200), ClrãNEXTããFOR X = 0 TO 200ã FOR Temp = 0 TO 320ã A = INT(RND * 20) + 1ã LINE (Temp, X)-STEP(0, A), 0ã NEXTãNEXTããA$ = INPUT$(1)ãSCREEN 0: WIDTH 80ãPRINT "Graphical Chew demo"ãENDããSUB Infoã' This demo doesn't really do much except clear the screen.ã' Just something to use instead of regular old CLS. :)ã'ã' RELEASED TO PUBLIC DOMAIN 4-29-97ã' -= Aaron Koehl =-ã' akoehl@ccsinc.comã' Pres. Scenix Designs Inc.ãEND SUBãAndrew L. Ayers QB RAYCASTER W/TEXTURE MAPPING andrewa@indirect.com 04-30-97 (20:15) QB, QBasic, PDS 517 34159 RAYCAST2.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"RAYCAST2.ZIP",4^6:Z&=25374:?STRING$(50,177);ãU"%up()%9%%%d-%K(AfGks<%il47%%mZ%%%1%%%%wf&(hfx%yWSgRfxf*rxBS3Z+xãU"rC>ux\-F*r7iG.N.SaQD.mE^$WLãU"$BNGPh/$tlNcrV9No4w:dmw0tNW8t=mx9]BiD(:X20OiB9:q[kHPgG6c.]V\TOqãU"%:BC&UGA5lG_Eq:E9Ap-2O-U'j^2%Sv:%MdE/rCHG-'8F0HaeMr+vYa_tm^;Q\NãU"Kf#%/B$KA(8TQnVBui6V^rjMhCQx_u^5],8)D9qNB'0Fl+>&0PW)qLtU(-JHC]pWI4&,TtãU"R=;Tv<;tk-:>e.:0RPc5VQqSo%MvV#R9HCoMGiMP>l#[KX&>b#_4CeYex%TbHfZãU";Xc^.;D2ZGc^afRvIaCC/Qd']qlD.(0SWFC*u7y*eM_HqYsBZ,0))olCRBsjaN-ãU"t17xYL)enDc:)jhOS7ua*eQSc$>K'8Z0Q/4C0;Jtr6&v:LSdd5#oXQ[uv#0NIELãU"^KG.JTXyo4_K1p?ekcUu-?pPlTX_LãU"=>1tcI+KR_'gG\k.\E%iE?epqVW]NvK6b:li\O2ufãU"i(3)b^]lY1i39,^Cc'xqhrV'K6)ET7r94.JxS#IV.,xP>yj4:(]Wwm_E?(L2>cBãU"4\gIZSJh:)#/pFzSe4n>DG1v'Z8XKkQI#Rs/_BiU16%Q\VqFXdW,VGDi5c$qaiiãU"m3Lk$u3&Clxf-pu8mhh\DNH>NFLM)u$:iHQ=/BdFCy=ZTfsPs)B09bcca*Y_pMuãU"qIr8h#[#7gEWQ;VZ1)*gGekHf]+:)OM]ZgAsnQ*2Vncm%4*m%^KLM/ktccfOhTmãU":.1a5-lsJv+'M4*xKR38Ev+6R9\lVh>c?sZZf/.Jg_eVuDvU*lhHYZTc\6\nkUKãU"+ajkf9<7MHX88%an8Yj$J1rjq&R.bZ&qtanL\Tj^\iO&E1c)7l)QrRecQ)5kU;JãU"xasSN\OO7T0VWy=1e8jzB4P_9*.X-CgY]^K9_'*TGPI4U6H/)D?[(4AmOF3%>T;ãU"0).&*oD/(^oNxq-tMa5vC)N1XqHg0=EnO1PWBo9&G=4\n9S+MLm=->-$VM==nkHR;o_I0f-m'R$ANJ6;ãU"^hE[Tn;HRI:#,:tH+teVs?UwFVkN1QEZ7YUZ4TR/EA*c.ud)ONC\5^rfEe4*gqb$>qDaJDMPem7Vkgv\FBVg?I&njd#4XNE7hB0*g4ac$Q.AãU">K]*^,#+G?\cfe]H3(6Y%Y]pK_L[S4OME60M#M)t-s:,.:QA)WUS3rD8xzz-0ZyãU"B'_xWqth/a$]+8X0ubYofnl];sg&SGKRd%*)SIHAAp?4.m1kk4*t7pT]1hxMv[SãU"e$_NdM4TZitOXSwSAZ\b\&ZbU.PqsVaF7gfje3K<2T7f5'Fxi1rIoH-AL2?*gãU"%+g-:wkM)TWXU_F]-WI:A\*q)o+hN[*gbBSc:?X(qzuoE3&4DIT^+BHx&&UV%PU(_*U^A8]Po*F:tGYãU"s(Z=Z5'[?Ef*LYIiqxVCuiv4pih-X2ttd;\^=;)B$;YQR'?sG6ICbu22r:MMt,-ãU"S%LLt-*oZtMhc(X?V_ew0A;2+N;azAT'34c[l,2l;I4=a^K9I>U?&b^=x?q(=ZeãU"LZ6m0,'d=1oAs?2]uuo&Ya+Q:ePR-dMugG]EVY1VP\g5L7CTQcbpxn.-Ab,&*T_ãU"n7ZUq:hYy*3F>mcc()[/B_yQP[Z&=ULHw23D/t(VkA6L/6WUNXicpjS??/.4sE%ãU"G>M[mZPJJ'[#.T;Xq\jVO:?Nmu[VD<$Kk'iAyG_DNfIgA]DlQu5L8,m0$HFKBMcO+fD#a7T1v*EQP[Pr[S.ESD]m_iy3piH)#8/[n6]UWI9gãU"_%GAngOeQ=&o)XFdA1vb2($T+>MA$1k=#F,t[D:s(e3dum:W09T^PGi?<:&Ni3rãU"Nc);fp7/Km$E#H$nj^m-W#Se^5Y/LpuWI6i(72nx,1Dq3$t8JuQ16s)f?5&'#Q6ãU"oa.cN[.ga.M3zh2[U(E.Mg:fX9#H.21-#B-D7)ws[cg&M/YlcJwuK%3G\6YT7TLãU"ltwUSR#GTG+I:yx]/RUQ*KHkUGW&Rl#oZNBt]?;_19ZL$8$n:S8WgLhjdD]Nq8-ãU"it#px[77X3F1HeZ3K>qX[M7b.J*?+7\Rb/BI6=o_q=d]0?rE&TElG$nãU"K$?;7)KYd1DFZLXM^['rXBM2LYtf6,8%V\Lj(dO*hfPs8xfLeH.W\AF3BegvJibãU"rNP;Tf^Dt)93-EaPiOegsY7n4a*mu.D)Dm)YK=zV]82%KZjPbC7,keLVtOQqmOVãU"BaZc?YBJDoGC0Y\]-=+:u\pB5[pV'bv^:>W[OB/p.Yu5.g89Ggt;an\j=I)BK=/ãU"Z:/'B'TP)n&3Bukp&.[-QT;L#0Zti(25/a8QSHdMuwejsKzN)9xFx]DTnN8z6MFãU"uFcKdYuVMfGC=GU[e#Q)AOXF2<_vBp\cCU6hi1ir:nkoyXh#JN&,27dl-zoBH_H+$uMFuWa/D1gIhGqdSt(8JsSX8B8d57Wjo(XãU"sK4eLiX6#3l]4A=lD4c-=\Aq%/#S6>8rboz?]JxNfdwfI4Z8FlKTwzBqet%2i83ãU"&BYiDSc>_BvnMp#xoZ+?n5/jo()6+T>6I9rz7BKNEGBS5;g+I090daMe-m(x8GlãU"[-+OJmyVt63.cX$T:neDI>#Y)VBF.kr=a9QpU,Eb:BR:cHRh8$3rMpFBeQ1]tfeãU"eRm+P0%9]#-]jFk'+psb,tBrR.AjFr=WmBWy[1\Hnf/e-(')\EQ.:7J0dawdZgxãU"=u2CSqu\%0]gbm\2r3bS(3En20sxYT3MqDKGgxJaC6QDDP]hr[;[1EeT>Y0*M;sãU"D',h,nShe_/eb]OoZR3k.37DieVhEowXafRasãU"R-c:_/MK^RjI=aqp>(#B0,J\r(yMXxt^O3(i)?EYx2ofdJIkYGHaS2j?19B\Q9VãU"Pa(_smA]R6-[+xjK.s7^U$F_[]Ey,coOz'2hwCC1F1HH8U#T'hKwPãU"J^UNS4?VY4w;jS1Z/sDLMpTIc[1V\]t2I+1v#3dQEPfF/o6>E?QnUQ%N>9#^y2qãU"91R'QAVvTM#VD/ci$q+CD\<5re2*mFhB]+0MYrb:MTc#Q^1vWIwJ^r_46JZ51M*ãU"3&Z-z;:ssK4F;OJUK6?<4N_&s\:o2c#]Vcz4oN4zR$m-yujdc:Qw1';rhk.JqheãU"K15H2_jbx_DP*;G5Y.9e&4iuXMiB&lkp2ãU"xR(gGX($YpynCfpoz%C;FYKS>2,upNow1^bnpY-<[8YPnb_^u&Y\mAbtE[2P=u-ãU"MbVGOG.X,hPo*\Uf[UteNmZ?WFfEw6woV=;(KX1Yy+'up;C/=oc=K5MNk9C;ABeãU".iyaj7Z_-.unT%TP$29(uU_i(Wnw25>d9rpCaSPua8HpOXHodGPXGCU#L]QR=*;ãU"kK#Z;7/0AaR[fwNP3itFfksVVr#cq5Tam^9P+'ncrrW>YHw=pAVXfnpVO#\s#=jãU"eOq?Ov8VltS_R=c[d?#X8wr5-:GW<1ljFfx$^q%Dup(%)9%%%ãU"%-%=)KIG=VP;L1%%%%K%&%%,%%%%r%fuSi%fyX)('2hU%U[+W,G2q:,o95gCGXMãU"/8WeM=3lAPr.U&1H&g?h1&B1BvBEV'z(VS(x(xo?X#**X3.%;P'%U0S'.<,XE7%ãU"y=A[&eG_Re6)1_BgS1:-+QA[j<=i&AfE%%up()%9%%%I-%vi7aFaJ4-vsk[%%%YãU"%%%0%%%%yj&'yzw%jSif=ye64LqcHm^K-wvUL7L*UPES)k2P#A,->oo,6Y_y([dãU"hR.L7kqLw\3AW#t+r3:\jGZQ&E;a<*;Xh]o'O-]0H--V]g.1m:>u(#*,V)1p[Z8ãU"xwb_69>5yLu#&JIY?lb<2kpaPnh*WYc/IjcFvS#-0vhvEnKdnuh$xlu7(mLJvp2ãU"^Th2>2D$GaE>FuJu)3ZJXVv:PX7da2>G^>0+Bguxwhxxx'snOWCeOtzmL+QPOuTãU"f;4gtn5&/\bK)JCIE:PKu-;;&%l63P.4SHd2$MYJ)#0r,Vcc('peE#u<-SNiD,oãU"K'3*U2iYlsZ5tmxmbP$k]3,uvgBfsp4CPal[(nnEl*\m-[1c,ãU"?1pah+-fTQ\NQ)7e0M*\RuGY>?1iSii:Rnmp;u>ihMN\?;'r0(WI++t1j5%JR,:ãU"IJ=bM'NYA7).bfD?DefT?PU3/w,x92jIAtnE6n=1bA,zd.>/*%2u^^m=q/Ys5NKãU"RJ:t1XvJBZ%C6s3Ojq1z)oN+5IOP3DYZ0aA''56tm8aTK8rAQD+FBLs+WK>hPI*ãU"Yz#\.bcqtoD+N]-Cu_Dwm0&fl8Ib>3tfD\J.oZn+YJ[iG?pbLmhs:Z^oX\='t^xãU"Z/L$:P4o>sgIfLX?vF,.R8$27.V8p1Kpin-agAaTQ#MjOU-3UdOQxkRkdinmkvj6gLv>[LCHcdGãU"Vk;$+/fOh]PGPnYBjdY^#2xg0=RU<3/6k^DW>*grT&l^gH<\k>VF\4h*mmbs=g5ãU"St^OBEZZ:f08#N9A^2EM4B9S3+*dg2b[7KF-$j*(GW8h=*VNDFWc1*G*]ZapD%uãU"Jz)H7M;dNdP,W#J[,D=fpz0(0Tg^&IvlC:G5R8V3:D+C40>s%tV3.\=ZjU+1)rdãU"JPL^kF\&\:(LDS9<)*0G*U*=8K?'d6m^-2V-/inR1*Z\%_l&YtOw0\3*m')i3M0ãU"053r$ik^'Mp57D]f>SJRR&=t.qe\9OTI/a?JELpu,8t,_1kHU=56tm8Q7[5e[:=D-1\.On?D,5Co04:g+SX#i.9z8cf0+:M(FpvdmEC$8($WBS.%R9%uãU"w]JVCL*c1d1lE2kk/11ddu&HYgj10d1R'0I<#ksWnl/v=t#h2f?,W]U3fh]+d2bãU"UhC:?R>N]*G(3jRuCD3/qG9J'_KVy&Fd-s0qhS#UFoFFajUT&lEHmãU"miI6Y]/-s*<$l)GK1&#ABC/+3TWXWf[8P%dEw,(%]2'#cc)LUoOGYpIC9$WF$7^>%.VB?9c0#RãU"n00E:j-l9DCFd;N=r#1[A-s5Qp)%84OqWr9*1\Sch7&eI*AQr?d/0KU5qMGpbNLãU"RN&qB3YkTVL\^&8)_RT+JD1NB+H0HishcVwK0cj$BJ=8NBH&/DO;wW9OX*],HkDãU"Fd2bW^5SH/E]p7'QO>1f=D<#&SQgnD[fNf7lCC10E#V)AO<1sMTfb1FI,YLSc52ãU"oTtrsxRbQ20_(\rGcB:.vHp5=7CB+/yq.%oGeY:S4fin&l8?_Y:Hq;kP87#lDAdãU"eQ<*LQgjmrLBrj5rT_5d/yeq?o[q]1\96NpYwm:JN3Vy)n$HL:t-8\#Y9DOI+\0ãU"Q?'50_b)xBxe:q9I0j&c*m=>$(Bi9E=NãU"JLQD&)U=e+W9;eXpwYbg5OQnJ?(UQ7%ãU"lx2+W4_&KRDPDjcsfhHa>&EO%=7,SH5ãU"cAYK:MQ:k%ZNpS?t5+f0#*:)Gq^ds0oY'#+y2r2MhYL6OV1q#f8aGAN=D3iurUUãU">bbdghhzuM6jJbF0ClgV80U<*1hV7caDd6e,vHd=9xSX$&GMci'L2neZO=j)AP'LoqYãU"aFORTcz%V^7-Gx1JN2Bl4k%Mue6uq-BNF.eI+=]3uftV[iGI9ftYgM:ug87&Pu4ãU"x9qARoNw/d45Pt/8YyNYTU]j'?kPAe.>,*4wUd01ifYFop6;t7D=A#irj,C^Mf(ãU"OZ>l7>ml'Ht+VI+V[(^.3?sbzxIkOv8QgN5/F&B7<#7S)jIza^e_7V/P>mi^-FdãU"b-:l$-R4%kC()5Y?vLrRfiV+GVkzIKS4C0ViBvM<;KE?tp&wh:%N5sSD5Gh-=j8$FQXMX+Ei$#C&F-?sJ5e>NIkQ*<:[ãU"lbM$Sg0I0gY.t(-1QxE)rgt][%g_Yjjrdweb:Juf]C18K$0J%q5%_S;mR/*J:HfãU"h-=jmK8B1E($\J*:]:_18aW<+efoJh=4xHp-Py#T,\edhX6Sj&>I$iH])dcTw]>ãU")crC?x-jeIAhb+Gx$kMN[-ZQf06tjTA+U^AfgGB+)0Ri6GL7;O/D:(*1U)Tf[^NãU"*Ej((.<+''US;*6ov>3w$^*w?6\*p:73<[CgGR;Y2sLkCW)RH:6HE+fBrwP$BwhãU"E-S$OtY-%XdkF*]uU^iS-_7?hHp5vBffd;vnF.k*mc(BY12di+$/9%gj08$:dC?ãU"wjJz%Y4kWd>45((g[fc'&Ab%Qw'^Ke$]N)vg2GfãU"-e8C'E?_r$6HORxn5Ucp;[cqx91rS/su%d.S#:qnxLu<2:-urxlãU"[-LL8/:qfxt)PvL9SgSxn2[nO(:d,w4$5Pe.NmLOnaSxcix<^WH[qNYAwG[TxLP^thkx$cdP4Yrxbd$ãU"=4\x.TmQxnu^x,uqNexxt.;xf#VuJ-Uc^#HBVawdo71ux.WTpHVMSxBEY:G6TXpãU"hbf8*Sxspx.%W6Kp$bkwW(>ng+\5Nb)[u:xfDuAvnX]acr%\2w0l2pOL>i]2RhHãU"1:R3&+a'+4Bh'+mOI4Z(Xg;fAit7Z?xCAKG'E(k.cINRL0AiNqN>YsoVL04;Ed%ãU"hcjSjw4RT^ãU"H*'m&M-,fg=7ux5r$60<:.kM#)>#ctQ\JbWoPTUe38#+bO%xfZfX*(l+R'Bu/05ãU"FiJ7ehNcDUJ>KU&doso+8+lEdET^XfNv%pWRLo'HO'$xpH6omm6D9+H;Cc;4n-1ãU"dsTMcKF.%nc[iCL5gg.tTx\cdtI-.rYUXi$xkbN*uxVgJ10uPLYAp'83nu]Jn4s_xh;EnR70RsEZi\*Ydr&4ePk]v/FxsãU"5R;8JJi'sIIX:QVg+$a(KbA9Pu[dy'bpJ-mXlqkf&(qBnng.^-ãU"eXkIed4Y'?<&272)O32#Ona7CXKmWKXSt)j)_entRHn[]XtS36Q+%PTY?0ixrqjãU"MwlVa4bB+Vw#1kB$uHc>hqp^teThERT7$aTjCm\Y?qu(e7TOK;F).csPbYTVP+WãU"a\Er0fY\F)*QfT,Zx0Tth3#=(n?Xvc.-3Tsj/x6vT4c78_bJjsatK2=.N23f=crãU"8;j/9FWS1bp(:30HWWMNmNraNvOJur]CA$b<'Tus$.qBPhc2P\EZ(*Yb7+')Dh(ãU".6TS:P%\$'i$Th5M3;%FU=#wc7Y<]aUsJvO%S*F>a'%Q\UPJx\?&+qTEAA.CK6[ãU"sM6uvtPj)T0t=SU^iDf4:'B9QZN0Xx.cenIqadUltG6R\EãU"k]FOO)KH'l5oq9ap3#Zu8Qtjnh&m_lG<$6$u[rtjK.9cBAu]uIBtp/>3lanXBU=ãU"2BMDeWv1FT<*$udT]2bub/uOwP,,8bqEAa_3FjDZZgqvjp\P?k$1fT8^c].:H^JãU"0-=evVIc^1w_ad[4g-V-N5r2Il_M_z=(ZVIvjrjb+)'lbgpt:hO$4I22l+?7ug8hhNdEUW\u.TslL-]QWvx&9EdãU"Y4)D,rKPo9=iW^k5,HlTH[h\HDnf0x#[lpYZExPuTo_R^^2.?an6pxpduYp(;sPãU"jtpNxVB7KalNF5WqJh+.wDeO9+Ke1:rG(_+%1w8>^w'KZ'i%N6q-ãU"vQ,.lU*'mP%CszxNv,NYbLrJEZK:H$InY6YI.Www_3>7rk&b-8l^s%^m]=ãU"_Z2)1XhR3jExK+J8x)IY4LBW?DgKGA&HZpe_.([svkBxLv;ZT5G)a.Ex6J#dV(GãU"xjDrn_&?[Bo>F4KaT)'h'rMGE=f\hoXCCSSR7ly$C;tAx's:E:t*xj[RftnuRWZãU"hd?Gt4umo:4llgBBdvpWZVrUMNM+-q8_d<(.29*x^l[G.+1&'Gd=,Uh2.x;r+MuuAnMãU"BsNo[s\tHxqHxVrjuWG<>Cy=U&TXhNnsC?(3iwod2;,t4y^J6V(cMe.wt^l,W>6ãU"3*n2)I14Z[\Y>;g.YfMV[[D2aSA*su[P'Tqdj>$HL$LN:]QRtWo-8NiNf[5?5;BãU"e3GJ)r7+jxA,?p.tW?(M$C?)ooxu9Z;Iux0_f-dn>cZ2P^ZfãU"m$1JdOH,#wT[E6;(ToPYU1GRrPhXm;xHjdDb1fwU'nm<;pW/RV[f%6>HU(q0I&ZãU"xh2tcc$SVWrOYF7RdBvEnBTj.[lFy((=eãU";rs[x4p<'+9ux(du/nO?=m02u7J:0CkUm+UI;?zJXD_gdTox$W/b3v+l*g/CS/4ãU"hLci85.P[h+3wQEqzsobODkbDwTOZM]kP6ixU+nY)xHoEExh]:I,w;NflPT\,A1ãU"ec%+h(scc.amI\:G6>U68Ffg<_(';iTxqu#YHuBLcZx3Z$xdQ3jM67XM[/cAlixãU"C:5.7^vAD5[ZZe+5\(>ElC6r8+cu9u[YWn^=$7j]L>E\BV5X3:Xd:tYNgqh(bbRãU"Y'?.uix1M'xeeDfQbiUu>JrxjiwOx[8beo]3JXdeqQ%rr%ãU"wl8KdxU-&=jmlEx#p%yq86Q('2uxc[*)&7%Buc*dv_*C,xP6U/Y/]]?huhwf1qVKO8(e4NSjH)LL.7F5TZC8VkãU"kh^_t>>H&.owD$nT\Qm>GX8ex8v]Z%^>R'opQtxvtJH95SZRuN9ucYU#-qIFFtjãU"Di\Yp4W:%9;)8uxbe)DM4T4rslX0>H_mLowJxxv]s&qd/mtNwMT>x#;rMK(SZeKVoq8>/xtfYFLHK7d]-UaL%wmh)AY+y0wxE]c>lLlMNT&?h;?ImM^ra8c)T^^['?tMd,chxiT;bZ(,ãU"]G).)tRx%,6rPPm4G[rwnCx;X6C5q[DmarbB3w?$akx7_AdArUiEx8P<\.KwMMLãU"bBgGfkFjkYZHbYZiX-sxtar8FT/l-&oKFx:N.>HQb>8B6U+hM*f9/nEox*8hJO7ãU"^DHsd,rNPONGX2taq$*wdl:TXxxoxbt'prkwmHbJd\4/w1'8^T7bbf9t^ixc^EYS)[C/%x?YZa:u[Hbs/2,gZ,hx(t*T2(ãU"BuwnPXsuxxrVv>(,[y?M5egZhx3dd)[;o?[NqNCmS?a0[h24PZ]+5ct79x^xF:X^x.:Yr3ãU"bc6o-.W$xN3x<.W8Gokl2'raa(:gBcnEExxtãU"y.qFc>xOq]u\HZY=x/[2%b)XLbL^0iEd&R-paNVsd<..pgAknDh'hSHU6Z%JlbJn:?r2>xZjd$6'i$>T#hãU"tMn5$*Ab<;=N9?u3r>;z%:Hid.30NB6.k$*9B;#SL.^?8jHdM-[m3or1rU2kkdxãU"ZmH:Zp*BO6:'\l8^Z6Vmt.u5v5BWkXkNVZIXxu79*wk\Xb%&qk%dcZ2XY6899NOãU"wZH>xT*Wd-5%Xs?(nL.ItQi(kCwkhA-2Ow:vP>.p+jiqy&[98(Jinisu6lq&ãU"0,5[r;7c(u0\]cXuDsbtQRt<8AcKBL<;6ox0YSH=MC_E/KO?qdbeTtT8^7ne(moãU"_r-cnxCmXYiXZeMN-HBLzP.kIi8Ab.romV3K?SWMxYfVrvYb]:Tbp?DjH.JM*IyãU"'w8g*Tsoiy_kknqB$3QN95?wGNuy&gS;WuHuuM[kk9qBq'bNb.fua-7Gl*]6))7ãU"qej>BGGSN>lv)Pf^V[H.TlRDkb&joH'>0rT2/pc67EGD(uOXwNufD[.QR9VPI^CãU"^9sk$,GOwOr5GLas?PIEI.cf[ID#5X^$FfJJE61(R%DqooDVkdoY#%O=BGK87_aãU"notq:Ha-uAw\VR3UVQn8/>IdnN(pfd2HqdT($=NTulnh.9o8=ws5CPk\NxD:BM<ãU"<<6V6G1N#]?2FqUrJwq$$wGY7-6tZ,,6t5t/t8ZXf=VPE\FJs$8Ys61/tBhn>8=ãU"qflJG*o?]?X300Vutxs0n>pKM+O2Qxw?FT2RfG8=ZU6ãU"rqi2%8^kt*s#300;Kf,gnb\;2)dJ\;PEZ?j'OYcsr8U$bTs=3,.ãU"33wwMtI1./K/D-RTq<]OO3/Vz\gy>Tjm?>S[u+wZwDMMwX2\][VR18?ãU"_$uSJS%lCU?YqZWqa2xuMZTTSLqgPG1+0pljDW3G]^_q$7#jB*NIF[qFmCijNjmãU"-#nkUcqPsvZbwKZ,Fq;j&<&*4*#ãU"6:gWY,74ITM%owjaSOoCsFvB9TD'g40PQ&q2SF?0#POu<6m:'d&q,jxX/Y)g+]STJãU"b+u.?>X\YNwcx&Ri%EiwWRhB;HD]wo)0/RK#b1tlIk#=cE\U,43Dz$ãU"e\P\E.Xe>nd)(C87&E%&M1XM(vF]geL1sLUH[KX.B\VCN7Dn:vfgrFjJE(%$+J>ãU"40/j=t4)=>a9aBDs6LjKWB5'8G)#f?v&W%?q_VuAdR:Tpuq06#jzbkMsN;Sn<-:ãU":EK^-R(s?5gnpXUAZslj5'Od+pMvsOYDE57a7>38(.a1YsH?7;52:y4639VEhZwãU"OFjPhxl?PC8QS^JZ*<^1sL;;yOjZPA(b<8[z36u_(w(t;$4<%MRv)[*q1xBn44zãU"BG*aQS/=.8D'<\[JckZ:\$57tlh'<^D3P(Sbx9->B*)FEEtVVY=%TBYOeO^XD1GãU"dGGf2BeX/MWN861,1HGJg^TnHYp0r=;]uU(/hcvuD/MãU"=d#OiX909ucS;a;W,cgBdnY?gM_w2DBvd).0h^au1qr$;*Z3#468?m)'9sd[pC[ãU":&V]5F)c02?&U.MZ'/DNf>(JZ,-6N#[#yD+mitVt30:c2=4D?gqGwR7Slvv2I%_ãU"O_E4kZ<]g%uII>Zw0&uf0**nl$-9rS2)K?AA)q;AaEY(OQe7(,8*Z/430NlbX\wãU"c#l\/#wH;X$Z$$[8J+1YEwe;#O#m0)O3<#lc4ncQpwZs,r.if4Iz2NlcmlULD'lãU"uU.%_dH7JbBNO%BpUqO$Z?9Nj9h-xVRqeaMb3Id_A6,s8x:D*yA4myGr=[OaamAãU"/s3VS*Uv<9QoxD5Ua$V\%Bm;:kl%?L-n0h58ZCQ[.K.vk0by<\gC^xhoKDDk7SxãU"M>vnm_oQS#bT]E#P:/xAE5dsQSX)6xpH3sD9XV7B;cC_7^Tj6=2(vUHec>4fq2]2><<9rh1u&uw5*.[#(F]$0]jTeF\y:Iv+(s*CgA-HãU"ohLp/76fmXH=AWor:f(u304*04#i\$/o-/k;a41'i1]Pm7RCYN4ReJPV\SusV*&Jly(#f7c/erjr]j?\/KT;Ed;u]]M1ViReUoNãU"jN6JV6N?rA9MJ5%ENw6rq:1ccXFkrGnwmX%*%8X?sBbV)MIDDFãU"erYOim[YL&Vzz#sCiT>^aHEaY)$cHM3%W,321l\#m[<6x8-vh=r_NM(WW%9pUq<ãU"JJtNwW?Kg6eJ%swmi9_Mcvev1%JeMy?5rg;RirWnxrNt\W\\Vabre%V)F74Cg3'K-DU%[4ãU"CitL^N%FPFh=;>;U/2.z-iU2g)J#:\&\$hj40]Ncqti/='VKãU"F2Z%id9>O$%(ySGKw1SGgF[Ql+F9Rii4E/srm#ãU"4:\=1p$6tCHX7wEhp\k(Fcjil]l^6e3^KFvbPXXtsC%^X6>5lqUb,'=IN%[VFt>ãU"UI5ktWQ0(1U^P-D6*+MV*M)>VDmsHZSB6HsiF:c/LkbIKx9Y+A;)RJ/t2Yi+NTPãU"lv'0GlKKU7HXOxXqcFY0dOt8)6ZEtS\K+D>6j&q_2$QU:9rv[bD?GsBqLxxqG>lãU"1>,Gkw1BtFM(y8=6uJ?C$*wVwCqxKB;EuFãU"qsDQ+n)k45)baj,^NnS=EHJVdcKYk82rO/xw&ãU"$lJjx3Pp\;rU4QB\NRww.ScQt?oLqpb]oAsa8h.sfsRZaUAãU"4$jB\r6,B&Dg>xJy>hgS>WcGn;%hZiJsY2f9hP7IXz>4Xe7#/se]Ya_%X_Au?2$ãU"ZX$QKi[T>*5ish_U)qyaT_4<5qo7OA8_r.,cd&F(xH>L=J85S'Ht6fqHdq]MãU"#\7bw;3^nMdpj'tviSqL#uKbNAM^3HJ('s0LvOD;j/)YXve+e;ugACdc>UVz.w4ãU"ZkG\LkfcRnoFz(FQZ*Kw:U%*[d8Md2I4#36c$U5_/OY,bEIW,>kX41$R;0v6]-vE;pSf>L6Ev/nPK#ga2UF(dPf;96=PY1p3)ãU"sfd85LhRU(:iykIONaIRnfi%oDU?'^MmqQJX7OiLNJw-ejXu3;*-/6j%vM1Jw.]ãU"b3'8*\R%eIV(<25FO1l$Dz?G&oghQNDlãU"w/c.+6jS>Pc^XfcpiG+dwNI(QN8pd1/U+DM)3<,cg]/^t'Jrb;RK&P-j(.VHPwqãU"\yw$Q'B,YD)F;H0,D#%aJmg]m4C8=$sZ8$Oon&4(9JmD4qM^jk:OGQC]p')1KmcãU"y'q\b$WaL[akTjXz:\6=N.C4)JnjGiq-*cWJQF6FSZ]_?Y9ZJ,Kj0]-4.+M\rplXhEPKz:DM%M*$[SOx&_f-(0AZ0W69eU&0-XE\J;jZIM=nf[u/14drYJW?q[)(=ZSMiãU"faP\9O[_Z1B/TRSslX#XrWNmwcU0u,\(laZOtwnw>rRV7UMH.NP0oBGt[S&l8&HãU"27U$(2YoM?p29wl>H0]ShAeAur&yk,d)*z5FKR[5J1*>G6kXq[N3E^z?GYgRR[ErFnGbn(25*ciZkg;yC.>j;%?ãU"QYV\pat#Hg0m6Hm<],Q3CM;ZXtY6keiVPw0\J3'E[o/?-8XPj;G]Y^Wm1kQrJ_?ãU"s(M9Wp9r'WHqR*SuW_]-[baKO(k^vzYpZRLxVja071db-U5pus/%YvdbYSTj;eEãU":EET:8gtF:^=3Ip:N/rvsPX%&GZZdRr-Ieg8G<1#EF:FDHT0WVL#\=_m'F8r9^AãU"sjR99?*+khfnY$G-i$qRrbz_P[pB5hq#x/\G(^$Hr(oD-IHS-4BKAy=G+%#tw8-uXy,'PXx+Pibi)dTSk[jRãU"k_.DU.tV'8;GnvgJBOdeJ$sywO([._4Zv6W,ZeXR5BNbãU"]F.MtYX$>N]xchQRI?3uEcp;$8?3a#+K+fbDMk'/;6)Nj7O.e(rfrn^8rH#lf>YãU"dMhyJI_=X/0R9GT/jvU1$k%8Bb/Rv>^*IMTTkw:k/xi^Zx,uNtexHkrx(wx;NgxãU"#umn/sudF>ãU"G2u6Fxnqbclx<#oh1qx5Zk6kBud^NY6?xbcd#qruxlãU"nds,ixBlnlVjKx)IeuxHkxb(wdDcxxTZNxUDo7ozkdO[YDBnuXqxus7,5U7ZiDWãU"_a&2BeG(&Eu.a_0aDU\KOD&fprFIf.p1z/>wSSTcsoPwQH;xMtrt]+&]nRqQN$>ãU"3cDG8UAo>>vPH:oDlwXvkYfuX97RIOOrun==12]n60wTsgrH%lpãU"7dvh[E;8rq.Qs4ny&RSOew.7IX?eI\hv25;jsqdLT+'\kIehmmaoMHtF$]e[]0/ãU"coN9xPnkN]x)MIxH8Ng9FYtEFLz-E>M*^Hw\o(eNg,ChVX]V%8:&#q7-1i:j?:HV0f]YH\bhv8S7HcNHcaWQX%l_Wx150L3:fsqnbãU"M0P?;da/Nk2?ie6glOwrWv%yH*prFl;xjxZMSS.cA(*G+=-[B^7ihddd^RPaqN;ãU"9Y,e6$x[#[;ujX$,Tc:iwCc:n;R%%Hj^,+2RZl0qdiOT]+9n7nvu^GfFH#I.&0Z.V]Fg3wiT0,BD3B#_7W'42?iHãU"LZTdT&xZZZ&T0:9u_v4u(hd0<;E/wYKalEYFãU"&W&KsC9]xn[d=(<_Vv'kpI$3uC;3'c''HRVZOHuVKh8G$nL7xgt[q;YNMvN0qTfãU"dSnm-LiL$jXlvh#7(:T*F6Y=cF7_XUGvLOgQhv]OPwn1s7[:iãU"f0FY]AA9$7=OhxHfx^v^^H(2l29KTmrJ;d5j9[HvJECvF=ZlcHa]qd(gduYw.BzãU"c4>:E)q8nc$x/ãU"H-sr7a$H>y^RhD[GxfVg(sk?CqEE3oNvZc>qqxJfQxnPICwzJfk$=E\zãU")NrO+(9tjF2saZL)x.L,l\Ghx#B?P%<=XIH*wQxLgVlu8(NoHJ3l(&fpF\y;L]\ãU"bU=WUrhL[>v#]kVS+AfThsiN:[dm=9ZxCP\POAJocn.4XE.pa+gZa*u.?5j2csnx<##ãU"3ldpA($xqt-Zx3#4MzuDVlx&YxbvAZLuRtx,lpx6huxHWx>n6ãU"xdutuxxZ,Hx:KSTn*pXLwxl#8k+t5quxq^Nu:Z]nD.uGirxFIu1noxLw#n98wnrãU"D.Gi$rNB(aTYd1WmPoP9x(\,pcãU"hxTt;8IPqV'T0ZhR76KHCKAsDP(0G>xZ&q**T*tB#SMnBEHlTx.uV>QX,btPXLOãU"?/(&riYnMSrOEcUjNYbrr8]xidbrxX?uofl3([-^03TPd?ifaVaETMvlãU"Q2B$dMdhxm8t^0Q\e..s#v_ML&T>:C$?yod'dDgkqanENxP&yFhrPr8rOxHPjGNEXãU"dP&_wN#^fDG+]nZ&b8GxudPbVmbtfw]IjZm*/LS&)XEKco*j6a&E_altJjYNY0ZãU"*$Wdbp_Ism\P(<>tM+=hux46d_F,UFIB8yB'=l1]/)77VC1.sbPeQx:;?T:A#LWXzO';%*wV7sSQ?_ãU"^&RNipMMhjFfd/'Nn><9g8=kVHa8cOvd[[HA''=\xWmetF=D&g'+tuEx$RY(twNbE/08'sãU")/-/m&v2Dqiv+fW-Mx'wtap;U/%tPn'f\fvpuuSB(#)i+M*pGNYJGPQxSncT^2\ãU"bF,9uT+&XKr6XrTQ8xnl9vSOlZfIxxTwttNux1wZuvnn_9tki\J*a-Kq,=jtWpNcVQldwlZq4xMCãU",MBD9;&;js9qL7oxlus,9v(4p(Oxol$_]q)42dIgQtNeQVxP6KeFoP5NrAputxlãU"vHdsK)a5j7Ouov8bfMGOCqXvwF>56rO^^[61SPhY>cdwTsubusL;IZx+:a)Z__yãU">W)t-(HGlSpNJsT*X;?8UW'2NJF1g%N)pãU"tNY(g8B<^<ãU"F;NEY(Webh>HRjDjTt-[]kOV>xL;tRKu,ux]vBe_hL56eT4EqllDãU"2da5u6tV.]wpfvEMqj9s-tZ\qZbca:(u4&xVtl&:Bq^Lo$'6h\VTau64XKPdKERãU"23[VgT'Rvon_uYtvj&9r6%x\tãEND SUBãSUB V3ãU"m,21pkit]S$qrxGhDalh&ãU"b1E*lduE^(Y#cimVwc-8,6Qx]IUtNv$Osbwm]tdd-2DMD)N?MrB:HnxYkI'_v>\ãU"Ohe$sri0(B%M/2\;>ohYl*WVSy/?HV\F.%mjV*?p>;Cjq&:7YKC/tR[X/tRo=#fãU"%00s:#E%zP:AOz//-w>;&F6(?C8ec)X,^S)t=#C1;w+bM^%?rl\ZInNLixXUE>ik*ãU"AZrc'Ai4^%MZOk?E1q?F\AMw7M%8au3gAqKd&631o-&;Hq5tNS2fKf;'j8ow-?\ãU"ZjP7hDw2v(iKefUo)T?,sZ>^6p;$*seVT9NOYJCnc0K757r'+In'5;CR4OXedwNãU":72$[rfYDAWioP.2F7=^u1Xm&6sr/(:o:+\a0*0TL-JZWV-i+IY*3h_/2SCFkITãU"(dSbiC8tBKa&L22+DQ7ERvq+N/W;s7tIOC>y\p+3,W9VTTx8g[aIOOwWGV.NS1:ãU"e'Nsad/)J5kooA.G)9pKZaHL[JG[fkMtRqrOEZ^]8kV;+7F6+%<5nHIjJ9,M<#=0Ld7lF3-M[K$sK9p^48BTV_OQJ*Kj6xkFx%ãU"\E,AsO<5+LJA^fbz2htRml21ARjh'gQkXSLIUT3CE'NiA'qccF:;,iuQ+mnsaHKãU"u9PAoOUkB_(/4kI:)*O+#'c_mSMsk_]4/7r$L#&*,(_GbCOtIz$=g8sH'9cYr)8ãU"OIwV?7=;EQadZP_LKEje7EWRt&HWLT'Po.3ReGl)Ei0**09g'gugMQs+?X6N))qãU"Z\29E4SueoG2QzsFbQMG\kqcEK$J*>TZ'R5E;9Zj;]'x1[dayj8O97oO6f7k*&g2a'+o#6s1$z/8fcA6.ZG,_3EE$Pz8Re9f[.cV%ReM>ãU"6(M*+.0OTo>sdeK>&7qa4q3ZO;WUp-_7d)SZ&vz*7hceL>17-e:k99rs$jI?J#7ãU"]]/K>%yZ8b,[[&jf4_O/3Oj9(5,EVnUC06pu1I$C$8<'/0LeVpI??r*;<5o?Q\>ãU"JCAZZ7^R(6BN7-/*;f^,F67Z9a*VE\+fH/OZz^gWXB9UyZãU"XMUBvBSNBeET9pe*dh_qAo](^10/;fW+,kkQeJ3DdVqao&7M+,oNM^3yO8KPv*WãU"jhFy_y5V:&#[q=JPWa2WQfeU)/XLJI<<(Ank-h]&ov[yEnKv2*u_ns(onf*+._XãU"CP1'CA8sEsCo\%ikpHi_fãU"/5\fFr[QFl[R#A,Oc[GnOv#*R)4RX?^r+AlH$2Wk<'9i]pa4xe/&*dqOBUHPO^XãU"4Jus4d15SsJr,Q\te;I&THE039RS:fHte&g6=TrKCn:1^%?u9BvQdFdo30m;sHFãU"SCMG-?Qa/ek\w>P]/+#k?=sT_apV(Cu]:9>IeZpFg'c]koQye8%LRjQw,#p(KA'<:*kG/J-Gi(5>*ObbCAFsAkTva]K>eF>+jk%Kdl=)UquZ.ãU".Z7ZCSd_KTOc9&8ShEXKR&v/o.l-VhhQ?>YWVRo.#sflG>b*wL-b^QCFEYW;:*DãU"c:BO'*SH_F;6EIzUN)EBZ^Q#ug,Os]9ri3/aCd$x5PRve6igxB,Gb&D:1rlfI#pUd%a<=t]O%IeVY#OF:j^1_fby'uq+M#7jk(raU9N3JN1wc=AC64L+b4Q+^85eEuS'OU'[KãU"w?.LZxI\cD84g;VY?[j]wKR?pG.dbuZ2,9OMHchi8ZJ71h9YV[;nK#C9E1ãU"Cq47N>(ES*WQpN7#eS]+;%]1I\g)U1/[#7G[]w8btM]9/<3Zw76GLos_Z%-/%.=ãU"Y1GQB3AP9$k,EAn?PtF/v#l%WW3:pS-[&>N[]GMhS2gZnau9Z&P;k$N_eHRVYr:ãU"O+Ber<3J%+Wo^_:\XOm[aGYY[B:wkon^,G3o(V%S,B1jn^l0d-:oiJpIZcD[YD:ãU"qdP[wMfr;t&u7R?XtG.;JKEtR^teab,9.mcW4,&8Y6sqo%G?S)*hLJNJBMs<&7#ãU"\832_//?EJt>(gGZ[P^NNWBRlzb=SB>s'*uoZJY;;]g92K&K:B-Bd4i8MZrttJ-XpDu%p()9ãU"%%%%-I%FJf=G_4D&BY-%(%Y9%%%1%%#%yj'%yrfu%VSfxjr.'X>>SC7hMEsuC4BãU"DyjK3kA[+'I21^dyOR4#5Oj:T:&of5wt.$X:#pmB'GIh3YaNYlh>*ãU"_jD$li#J7M]^]^(%.\Gq$fY_B2qC2Dx0S.\Ywpq+K+Qoh&?vC.Got6LCYQSmXB>ãU"It=092Z1aLXJ*;:t]jI2.?U9]1uU&MrWj$(aCiujMO.lDc8R[?E+P\],L&Hpr11ãU"e)JWquPLEbDFZ)-31j]^jG+(;WYY6i_dT.iQBM?O+KlFt.gn6I2G05T[rUQC,';ãU"6Z*+SJtcR#L&4]9>1XMX._>x93MaDagRBh'^*I8(Mc]YD.'pt>b$1eL*[(jF(Q2ãU"JUt_N7&Iqj8P73IHUMTh+(8m$#QtYZgE\l79VWH1KVFo\rHZq#U+8C4Lc$6xãU"qj-$Lq6(K03/=Az*f_7bwL6N/qdi-:r-;K^L)su8^:y_AiBbRo7TB?i31ãU"K,R7]Yul4&Rl=fnc4ECQsMwS?WZ$*0:>XrrhhKw>Q$7Yjg\F1TcuxbDns3KiTD837zO#''s^l^:dDZ=s_AAT+BCtjM\QqXXm6Jb8E/*hGQpE7<_C/kãU"txX[,j(JQ.zAz2WNHGWl*Q1gFFCft0j;mjCATEebTMe>GPhpi(D)g;)ZTiNLX9]ãU"^A[c:u+gOj6bxm1?RNCg5V-ZtGMV$yq8QMLGnY2IjZJ\/_t/8Q/]VKNr.G<4FdhãU"]X>Vr[J7Iy]fv%R-pn6RACi#Xaa=$JeOOJ/_)scZwA[fJVj;EfAn8ãU"c&2k>hK^;qq*C;juJnn(q8h(J.rkU*51R2k[#Gb9x>>%0qYC2d-Fne#7RD-UcKBH4P4seR8P.>4a$kXBirBlQ;0Bb3O>ãU"^A4xGB_\6*UP5y;Fff[j,UQ4AR&D?=#wGIk6h_88&qSiSPnkl:i&L(s'egdoL_qãU"Ppm>_c^5xrr2gppz&c<:r]/r%L*6Vr&Q:Z.Ge,sN(i5]^70AAl5'5[h(ANfMf:bV3lBzv:jywgãU"TN82S#NR6UH>:j?h=hM0?7VwU?P#-Z0T\?jBP>Nj5hR74r5MHo0&k>[Y=vkuZx/ãU"vVD&Ir$9kiiA<46rO$BMiZjJc)w_sTt%Mz>4+%i>RRa*No(Xp8Dkh5vORL_)1cKãU"f36fAt6q/$JjuNEO)8oãU"9Q+:S8ry=+]G>A9.^(Sx6UG6Uhv'9Ur2yOW30_[kK\3>fN5B&uZ1o5=3H8BNHE^ãU"0fhQ*P/X6-'mAIptH&;?gRgqg6Tt]VqcoQ[72Io3:w;:.mMCs[TS5TK)S)_gvd>ãU"oSqcl*oL^+Z(+X&$>UO1KN&qsSb]xE0g+-1dwL#ki'?ed\g)i?5$HC(r8z2P1fFãU"UibUb3phMFHem1\kJp3X8UdEsIi$%xgf9\_(/xãU"8SE2o?(MeN.^pPrf,eEXzY^I%O<^9dYfRsr>E[k<=,CL&vIY8rXu_3Sm1m?OED4ãU"HCU^jQOAj[iXYVQJhrCz-n%03rBma-UcNi=Gey[p6t>/D33dk&'tbO(ZHq:WUãU"(*D'KSXlZ(3^X:B=]Zg^O6g,OqV]5^m)jsSS$&^RqSMF?a4&F.s0>vCs4C1XHbSãU"ZZXydWLezpb?d2h9CV9sgY+1N_Yo.,%M^[4wH/=?uYThM#Vb9.FwfW&q+ggqmr8=nJ-o$s?ãU"&W\r/#k_4>XLZ5y=cWylY%z6p5GxPh*B,Osj^q6*'<$za9ãU"NBZdY9ESJEBIp(3V*jN^gwKHC\],b7wYFY<6Xl$EH\)2,z=:^3Xo?(ju\7^gdoQãU"-C[8V$d^1,RzDLDrsx3T49Hmi2peGQGBrTY3ZK7*RT6&5K0xGB$8yc16w//^\WyãU"PvZ/HfcWW+aKrPpW0W%Z.e&g*LãU"ãU"oo6'Y_y[&dhRL(7kqwh\3A#kt+r:_\jGQ6&E;u#ãU"A*,V1Ap[Zxawb_9*>5yu2#&JYg?lb2GkpanNh*Wcl/IjFovS#0]vhvneKdnhu$xãU"l7Z(mLvgp2^hO2>2$JGaEFHuJu3AZJXv5:PXdFa2>^f>0+gIuxwx;xx'nZOWCO:ãU"tzm+hQPOT?f;4tVn5&\CbK)CLIE:KNu-;&b%l6P_.4SdK2$MJl)#0,>Vcc'&peEãU"ud<-SihD,o'L3*Ui_Yls56tmxbsP$k3,v?gBfp?4CPlT[(nEãU"=l*\-X[1c?B1pa+q-fT\3NQ)eF0M*RRuGY?c1iSi;:Rnps;u>hqMN\;-'r0WAI+ãU"+1Zj5%RL,:I=gbM'Y2A7)bCfD?eJfT?UN3/wx'92jAgtnEnE=1b,Izd./c*%2^ZãU"^m=/tYs5KMRJ:1uXvJZ.%C63?Ojqz))oN5]IOPD)YZ0Ao''5t$m8aKj8rAD3+FBãU"sM+WKhHPI*zQ#\.cTqto+/N]-u/_Dw0X&flIFb>3f?D\JoCZn+Jl[iGpHbLmsq:ãU"Z^XX\='^?xZ/$h:P4>ssgILpX?vZ,bte)C'd]NX%CP&BZ-&nr(q+Kr$#Tf8E,f,ãU"eVT=7[c9#1itV]ETKHt&>3f55[D==3ru?uWR5Y%O9d%F.BR8$7).V81YKpi-=agAT9Q#MOL7CHcGpVk;+S/fO]VPGPYXBjd^6#2x0q=RU3,/6kD8W>*r;T&lgSH<\>%?tV3\ãU"(=Zj+51)rJUPL^F<\&$bLDSe:7=D-\_.OnDc,5C0=4:gS'X#i9^z8c0:+:MF&pvdE=C$8$ãU"&WBS%^R9%w?]JVL/*c11UlE2kSq#UFF=ãU"FajTk&lEmfmiIY*]/-*Z<$lG&K1&A.BC/3]TWXf5[8Pd%Ew,%&]2'cIc)lvt:A(JCFmb*+_ãU"(WU5_&-I5R*c-vwOgt641LUoG3YpI9e$WF78^>ãU"%V^B?90o#Rn0^E:jl'9DCdf;N=#t1[AsB5Qp%A84OW>r9*$Sch&FeI*QIr?d0CãU"KU5MtGpbLMRN&Bt3YkVOL\^8[)_R+jJD1Bh+H0iKshcw5K0c$WBJ=NFBH&D^O;wãU"9kOX*,7HkDd02bW5nSH/]ep7'O3>1fDH<#&Q4gnDfmNf7CrC10#/V)AkP8#+lDAe:Q<*QhgjmLYBrjr*T_5/pyeqo-[q]\)96NYYwm:NL3Vyn&$HLt,-8ãU"\Y.9DO+g\0Q'H50<'6O?=bFA8b_cb)xxde:qIFw<(&W-+5Wg4-MuSvãU"L0VJoyP:1joq7(/J/66-WoK]F\u'#*(3cadP/]j(&c*=ãU"s>$(id9E=JMLQD)%U=eW'9;ep6wYb<;II[QshA4DTEk1RVXOwPsGZ\ZJ(]?_5ãU"Q3nJ?U\Q7%x<2+W_E&KãU"&E%N=7,HO5cAK6:MQk,%ZNS>?t5f'0#*),Gq^sp0oY#[+y22>MhY6MOV1#tfQ8aGãU"Nd=D3uVrUUbHbdghqzuMj$JbFCClgV0+U<*h)V7cDTd6ev]Hd=xFSX$G[MciL#2ãU"neZ=ãU"Nj)A'NLoqalFORc4z%V78-GxJ_N2B4rk%Meu6uqBBNF.Ip+=]u)ftVimGI9t:YgãU"MuGg87P[u4xqaARowM/d4PEt/8y6NYT]Pj'?PWAe.,-*4wdk01iYpFop;*t7DA-ãU"#ir,rC^M(pOZ>7r>mlH%t+V+1V[(.S3?sz9xIkvi8Qg5h/F&7I<#7)4jIz^Te_7ãU"/kP>m^V-Fd-o:l$R'4%k(e)5YvcLrRiUV+GkPzIK4jC0VBVvMw[h:%5MsSDG*h-=8<$FQMlX+E$;#C&-K?sJeãU"E>NIQ<*<:lRbM$g40I0Yq.t(1BQxEr>]%7g_YjWrdwbp:Ju]pC18$L0J%5Y%_ãU"SmGR/*:gHfh=BjmKBa1E(\nJ*::7_18Wo<+eo:Jh=xEHp-yN#T,emdhXS*j&>$LãU"iH]d\cTw>7)cr?Jx-jI:AhbGBx$kNh[-Zf306tT3w^n*w?\**p:3+<[CGVR;Ys_LkC)kRH:H$EãU"+frdwP$wIhE-$jOtY%'Xdk*0]uUi8S-_?FhHpv*Bff;:vnFk(*mcB&Y12ip+$/%ãU"Fgj0$a:dCw-jJzY%4kW>:45(g\[fc&[Ab%M,b_4+dOE.c3XOs1&z:U1bLpl\LtUãU"U3VcWT&R9)-/q487TF8mVGaO.KYd6w=CS.&w#edFzK[;Z-68vH$_7$G->>Qw'KnãU"e$])Mvg2f0-e8'eE?_$>6HO<4UX\4u'a2na)<1m*3O544Goo(WTv4QB\PaWUngjãU"nZBlx#\k1%N's'XDSed4;Q#9,h#),+_T\Mr7MJ-U_59:t1VrO_Q8K#iL?wrju+)ãU"n0+(Dc?yTn*xn5ckp;[qox91S>/sud%.S#qbnxãU"Liox<^HP[qNAlwG[xOLP^hukx$ãU"doP4Yx>bd$4c\x.mjQxn^Zx,uNYexx.?;xfV.uJ-ck^#HVdawd7=1uxWCTpHMkSãU"xBYe:G6Xjphb8:*Sxpux.%6PKp$kTwW(nHg+\N$b)[:uxfDAuvnXaRcr%2Rw0lpãU"_OL>]q2Rh1K:R3+%a'+B*h'+O=I4ZXAg;fidt7ZxHCAK'0E(kc(INR0MAiNNt>YãU"sVXL04Ebd%hjoSjwXGoqd',)*#)+yqdhSf&AajOl^af8P7*Y_x#F$Fn4wR4z/35ãU"$7R.<*Ne/ZAi?w6pcbMTD^k)i]FpmY_x8l?Exhc49w^87,nuho49xPe?-vTGpd4ãU"yZWL)4cRT^*K'm&-2,fg7cux5$>60<.GkM#>\#ct\iJbWPsTUe8)#+b%ixfZX:*ãU"(lRB'Bu0C5Fi7gehNDoUJ>U1&doou+8+EUiQ$xkNT*uxgkJ10P?LYA't83n]?Jn4_uxh;n/R70sOEZi*RYdr4ãU"[ePkv7/Fx5ZR;8J1i'sIgX:Qxbfk$Y'xJ:A%>Vg$Ba(KA99Pud7y'bJt-mXq9hqptneThR/T7$TTjCmY7?que\7TO;gF).ãU"soPbYV4P+W\oEr0Yp\F)Q\fT,xQ0Tt3V#=(?=Xvc-(3Ts/rx6v4Oc78b8Jjst9KãU"2=N(23fc-r8;/W9FW14bp(3b0HWMkNmNaYNvOuLr]C$db<'uOs$.BYPhcP)\EZ*ãU"&Yb7'')Dh.&6TSPb%\$i#$ThM*3;%Uf=#w79Y<]U9sJv%NS*FaH'%QURPJx?m&+ãU"qE4AA.KJ6[s6MuvtjN)T0=uSU^Dqf4:B[9QZ0hXx.e9nIqdTUlt6fR\C3laXXBU=B_MDevk1FT*b$ud]O2bu/TuOw,N,8bEtAa_F_jDZg6qvj\tP?k18fãU"T8cn].:^0J0-ecvVI^91w_do[4gV]-N52YIl__hz=(VlIvjjYb+<^hONwl'xK[4ãU"0.l42J5&+_M8i_NP?LuulAFjp_>)'b+EZKHG$In6lYI.wPw_37Hrk&-98l^%ãU"?^m]ZVrMkNM+q]8_d(b.29xA^l[-qXZu:x\9Gzm\?,R=C+)4N\)L7uc5mHN?iDpH'1LdfynãU"te-m2,e=3+[zd1c'uszc]mFsl93BEl$(%.d4nxK1Hx<5uB-YN.c+1&G%d=,hP2.ãU"xrb+MuA?nMBNZo[stmHxqxfVrjW?G<>ye=U&X4hNnCu?(3wVod2,,t4yJn6V(MTãU"e.w^Zl,W6H3*n)_I14[Q\Y>gG.YfVM[[Da)SA*uu[P'qjdj>HnL$L:M]QRWuo-8ãU"iMNf[?E5;B3:kGJ)7Y+jx,I?p.Wu?(MCn?)oxXu9ZIGux0fS-ãU"dnc-Z2PZ8fm$JDdOH#]wT[6e;(TPXYU1R0rPhm6;xHdrDb1w:U'nHUq\0I&xlh2tco$SVr5OYFRadBvn/BTãU"j[(lFy(\=e;s>[x4U6FFfg<(n';ixOqu#HluBLZox3Zx8dQ3MW6ãU"7X[h/cAiWxC:.E7^vDd5[Ze6+5\>\ElCr$8+c9uu[Yn5^=$ja]L>\/BV536:XdtãU"GYNgh>(bbYj'?.iux1Mx[eeDQpbiU>?JrxiqQr[r%w8V>KO8e&4NSH<)LLãU"7^F5TCQ8VkhW^_t>cH&.wsD$n\OQm>XK8exv+]Z%>8R'oQYtxvJZH95ZjRuNu+cãU"YU-.qIFtKjDiY7p4W%b9;)xbNA]d\$81>X8uxe9)DMT$4rsNb,JBPSp']/#?K'SãU"r(+xsZV&jz>Yx\6XSZxebm:F1TYOE$aNuD0Y,m_za.x4afudBouwxevuxRtxZ,pãU"x6?hxHcuxxxmulxjqb&HRDp1nxx$N&xOp1nxxHN(cjZ57s9>UHxLrZ6qu=dj8wtãU"ji((r7iZlKx_-.r9No]6,q6(/n:K[Z6$xbo]8WlWRTHulruNKrr6quYN+v5uouxãU"(Mm..LsZ<$xVv=9#t9orxZR$x6uhxHWrxn6xUdJxNZorx(owdDxt6rx8s*x0Fn7ãU"JlxkhZbr?8Fo0hLLW.kLtmftJoe:jLp#vYIto.tB...dB$F%a2qIw:dPxuXW0>HmSLowx1xv]&?qd/tsNwM>jx#ãU";/b3wTqg4d?A1cLC49m;u\-P7b/N]vcMO1[xNOWxNUuX7va,dJPl9pJi,'7Bb+/ãU"3#tD:$FgAT^LlNW[xuEYkvd:5rXk_Poi<<(,]/yWYvG,j9vbrFdioDLMN4CZm[2ãU"r+,oB%ow=F044AZ5OQqBvk7xxu$X58VRd98L5Ljjx'#9CE'Ab+H+7(3eotr^xp_ãU"-]h<4A^/Nn>rKM(SZKUVoq>a/xtYpFLH71d]-akL%NwmhA\Y+yw^xE]>TlLlNMT&?;V?Im^hra8)9T^^'7?tM,pãU"chxT;;bZ,&]G))(tRx,#6rPmi4G[wYnCxXG6C5[tDmabtB3w$-akx_aAdAUYiExãU"Pa<\.wLMMLBTgGfFrjkYHlbYZXV-sxaur8F/jl-&KsFx:.M>HQ>98B6+khM*9p/ãU"nExX*8hOg7^Dsfd,rP2ONG2ltaq*8wdlTbXxxx=bt'rtkwmb0Jd\/Ew1'^FT7bfãU"o9t^xVc^<.jxKX8?k8w)'uZJ8d,E+/aguIlVNT8E-YS)Cm/%xYcZa:[ZHbs2C,gãU"Zh]x(tT\2(Bw?nPXuZxxrv5>(,yR?M5gpZhxdDd)[oG?[NNtCmSaH0[h4)PZ]5]ãU"ct7xaa(:BqcnExexyu.qF>oxOquR\HY6=x/27%.nJpHOsN:6V]dV5PHãU"HFTo:i3ZusnbH)XLLo^0id/&R-a>NVs<:..pAVknD';hSH6kZ%JbrJn:rc2>xjlãU"d$6i%$>ThItMn$$*Ab;b=N9uH3r>zb%:Hdq.30Bh6.k*89B;SdL.^8HjHd-h[m3ãU"rX1rUk_kdxm6H:Z*>BO6',\l8ZS6Vm.Zu5vBEWkXNfxT*d5-5%s6?(n.hItQ(VkCwhfZ8lS#B7YrifYP5LhIKovjqh/VsPtl>(ãU"JnqisulEq&05'[r;cF(u0]RcXus/btQtj<8AKTBL<6Gox0S6H=M_/E/K?NqdbT:ãU"tT878ne(os_r-n9xCmYQiXZMpN-HLIzP.IWi8A.Trom3kK?SMPxYfrkvYb:mTbpãU"DHjH.Mg*Iyw[8g*sOoiyknknq$d3QN5a?wGuMy&g;jWuHuZM[k9rqBqb[Nb.uUaãU"-7lK*]6)&7qe>WBGGNO>lvP&f^VH7.TlD4kb&orH'>r(T2/cY67ED0(uOwQNuf[ãU"e.QRV+PI^^e9sk,8GOwr35GLso?PII/.cfI7D#5^Q$FfJ1E61R\%Dqo=DVko:Y#ãU"%=NBGK7a_ant=q:H-TuAwVRR3UQPn8/I-dnNp\fd2qfdT(=nNTunrh.98X=wsC$ãU"Pk\xMD:B8=ftlJGo&?]?3l00VtZx0un>pMg+O2x3w?<6ZiV&VQ4Tp#($dãU"3('RCB3Xxva?eN]p:H#cMK7Fl:k?J*<#_YY[mWoE0E6pfL,gn\9;2)Jp\;PZ/?j'YNcsrãU"U+$bT=u3,.3DwwMIu1.//gD-RA,ES&oqFUZFFU&MZ_9#lgR'Bs0pS7PWWW)6Dl<ãU"O?duZSX0/BYU;.zM*0CK,'%Kk3^xxbt$ãU"U#5fNz$SrH&*7FDJugpF=dJ;/)Vz\y;>Tj?s>S[+ZwZwMJMwãU"X$][V1j8?_u8SJSl#CU?q6ZWq2oxuMTQTSLg>PG10BpljW/3G]_8q$7j.B*NF1ãU"[qFC=ijNmW-#nUWcqGl#DFHhlg4e.y+3OyGhE-x%31?rC10X>PvuZbwZL,FãU"qjb&<&4&*#6g,WY,4+ITMo#wjaO4oCsvKB9T'Jg40QN&q2FO?0PdOu2.?>\lYNwx9&RiE%iwWhOB;H]ewo)/CRK#1TtlI#W=ãU"cEUR,43zJ$e\\NE.X>:nd)C\87&%/&M1Ml(vFg7eL1LuUH[XL.B\CPN7D:svfgFãU">jJE%A$+J4-0/jtH4)=aH9aBse6LjWLB5'Ga)#fvc&W%qH_Vud.R:Tu>q06jIzbãU"ksMN;S+38(a^1Ys?K7;5:_ãU"y469_VEhwQOFjhNxl?C38QSJ8Z*<1SsL;yGOjZAN(b<[az36_Z(w(;?$4*d)FEt/VVY%-TãU"BYeNO^X1JGdGf02Be/QMWN6a1,1GfJg^njHYpr^=;]UãU"u(/hvTuD/=hd#OXq909cZS;aWb,cgd.nY?MV_w2B/vd)0^h^a1Zqr$*,Z3#6E8?ãU"m'&9sdpRC[:V#]5FcA02?U[.MZ/#DNf(cJZ,6'N#[ydD+mtqVt3:(c2=DE?gqwfãU"R7Svif4zg2ãU"NlmTlUL'/luU%(_dHJ+bBN%NBpUOt$Z?Naj9hxBVRqa:Mb3dL_A6sB8x:*/yA4yãU"=Gr=ORaam/Is3V*jUv>fEq2]>_<<9ht1u&w?5*.#m(F]0S]jTF:\y:vãU"g+(sC\gA-oKhLp7(6fmHl=AWrs:f(3u04*4^#i\/So-/;ra41i%1]P7sRCY4MReãU"JVi\uOsV*J%ly(fI7c/r:jr]?r\/K;jEd;]ZãU"]M1ikReUNXjN6Vg6N?AY9MJ%$ENwr$q:1coXFkG>nwm%l*^HTEaY$\cHM%DW,31)l\#[X<6x-avh=_tNãU"M(W5%9pqPVarTeV%)F7C$ãU"g3'-1DU%47Cit^MN%FFNh=;;-U/2zC-iUg))J#\G&\$j;4ãU"0]?ba0['b%qGRjfo(6U6NC6R[/77K\L+*OdR)C/gz'.?#4Imj&1l';Q7*v#.F;NãU"ccqt/q='VFg2Z%dV9>O%S(ySKKw1SgfF[Q+rF9ãU"Ri;4E/r?m#4\b=1p68tCH76wEh\tk(Fjoil]^<6e3KSFvbX3Xts%J^X65HlqU,oãU"'=I%M[VF>ZUI5tFY0Opt8)ZEEtSKm+D>jE&q_$_QU:rFv[b?JGãU"sBLYxxq>Kl1>G]kw1obAe5U;Hu(H=mvZ_[gwFSXajT;gs$D\N?*Be0g]*4O)F6GãU"Q6-C\gFR^2_koxb#dmYi*aMCbn*y)SlEM.rj4j&hZnqV>TBtF(hy8=u$J?C*8wVãU"wqJxKBE,uFqDZQ+n<&/*^c$iZtmlN4<5)bjT,^NSX=EHVLdcKãU"k682r/ixw&lnJjxP_p\;UY4QBN7RwwS^cQtoqhpb]AXsa8.;sfsZO<ãU"YhtiFL6pnn]tg[waF]gRHfw3?6ld48RCj]7x[C;EiK=.2\=5*fvYt%?tDaZWPPFãU"$o,08B>aU4I$jBrR6,BD#g>xyL>hg>OWcG;s%hZJqsY29:hP7X1z>4e67#/eZ]YãU"a%nX_A??2$Z$6QKiTm>*5sVh_UqAyaT4n<5q7XO=MJ85'jãU"Ht6qpHdqMR#\7wT;3^Msdpjt#viSLY#uKNoAM^H)J('0ZLvO;Jj/)XQve+;:ugAãU"dJc>Uzk.w4kQG\LfrcRnFsz(FZ3*KwU,%*[8:Md24g#36$9LU5_O^Y,bIJW,>X<41$;j0v6-7vE;Stf>LEEv/nKN#gaUDF(df3ãU";96PcY1p)Dsfd5+LhR(P:iyI1lDSzãU"?Go[ghQDhlw/.T+6j>4Pc^fQcpi+0dwN(1QN8d>1/UD]M)3,Gcg]^^t'JbY;RKPãU"%-j(VCHPw\tyw$'NB,Y)eF;H,(D#%J9mg]4sC8=s8Z8$o3n&49&JmDqEM^j:ãU"0XwE&]-vid$JLWD$IU>9WaLa7kTjz6:\6NH.C4J\njGqq-*cJ5QF6SfZ]_YH9ZJãU"K]j0]rba#mA(86Qf:QO:QKKyljw8zI<9ziRo_]cv#7[Fu(FMpNMj6qãU"C3bn68]CpBWrRK_e&fLSB?ml$i=nxD[-RE3L7(]TFM\[HZo,I[0H(*>-.$+M\ptlXhPJKz:Me%M*[SSOx_ãU"[f-(ACZ0GW69U:&0-E6\J;ZWIM=f=[u/4DdrYWLãU"?q[(A=ZSiMfaP9mO[_16B/TS4slXX.rWNwscU0,?\(lZTOtwwX>rR75UMHN^P0oãU"GIt[Sl#8&H7DU$(Y)oM?2Y9wlHH0]SAqeAu&>yk,):*z5K0G6Xrq[NED^z?Y0gRRERrFnbKn(2*EciZgãU"<;yC>^j;%Q-YV\a>t#H0;m6H_?sM\9WprF'WHRt*Su_P]-[aTKO(^sPX&%GZZRUr-Ig:8G<#)EF:DfHT0V5L#\ãU"_Hm'Fr+9^AjuR99*c+khnpY$Gi]$qRb>z_PpRB5h#Yx/\(0^$rf(oDI'HS-B*KAyGH+%#w?8-uy6,'PxQ+PiãU"iT)dTkO[jR<.SDU.VZ'8;nfvgJOddeJs8ywO[\._4vl6ãU"W,elXR5N.b]FM^tYX>nN]xhoQRI3-uEc;t$8?a)#+KfBbDM'W/;6N&j7Oe^(rfnãU"t^8r#Klf>dQMhyIL_=X0^R9G/4jvU$_k%8bI/Rv^c*IMTOkw:/rxi^xQ,uNeuxHãU"kxY(wxNbgx#mun0Ks&fG2uFExnuDxãU"*fla+7pV,wxFGl0MYiuxtrq8kxLqblox<#hX1qxZ$k6kuId^N6l?ãU"xbdo#qrx?lnd,uixBnrlVjxg)IexZHkx(owdDxoxTZx2UDoo+zkd[NYDBusXqxsãU"?7,57kZiD_ka&2edG(&ue.a_a^DU\O1D&fr>FIfpC1z/wcSSTsooPwHN;xMrZt]ãU"+][nRqNi$>3DTG8UoI>>vHi:oDwWXvkf6uX9RaIOOutn=<%=2_]n6wCT&ãU"[n=Z+NH'X+xH.AZQ[A;MDS9SVt^8CqXI1q6aqpU;_x:rI%q8A#Nyw*kGY?=ucX$ãU"7k>sr;H%l7>dvhER;8r.YQs4y=&RSe3w.7XL?eIhRv25j,sqdTM+'\I6t.Nuw(a8I98b9cFYtFeLz->eM*^wK\o(NUg,CVVXK]V%:a&#7>-1ijG?:H0kf]Y\KbhvSa7HcHhcaWXi%l_x51ãU"503M:fsnYbM0?N;daN^k2?e;6glw3rWvy[H*pF>l;xxWZMS.jcA(G&+=-BR^7idãU";dd^POaqN9bY,e$*x[#;mujX,nTc:wVCc:;sR%%j0^ãU"YmHZB20<)/LrV39N>,2]RZlq^diO]4+9nnFvu^f0FH#.1&0ZV^]FgwDiT0B'D3BãU"_.7W'2*?iHZMTdTx#ZZZT[0:9_?v4uhAd0mL'iL$X;d59W[HvE1CvFZ-lcH]9qãU"d(d;uYwBCzc4:-Ey^hjD[GVGar-&$i=)\T$aunWk1vDfwTQ^dWuyi_Ny(wqãU"nqlxB\TbNON\&,nN5w8.izAF7v8ujLpkN9U6VwM8eZKsmzj]c8$xhHEmmV0,N^_ãU"Z8acxfgk(skCcqEEo_NvZ>TqqxfLQxnINCãU"wzfgk$=\ez)NOY+(9j?F2sZ9L)xLC,l\hfx#BP-%<=IlH*wxiLgVur8(NH=J3l&ãU"AfpFyR;L]b7U=WrPhL[vH#]kSk+Afh4siN[bdm9HZxC\NPOAo1cn.X*E.p+ogZauA.?_ãU"5j2s9nx<#.3ldAY($xtt-Zx#_4MzG,&uFZ=vs=:U+l80tMfdiaeg9w_Nxpq*8+dãU"W]j3/CI[TMh?ndI.cuGSk](wFHO8u.,scI5cus#luaDba:rxtw[J8F#k]_YIqTxãU".kN32MhW+f6ryTYJu.3\TvwZn]U)ZxG\6>?p0o9#Pwd,hvp6FqY^ucDV<(QGxNRãU"m&Y:x'j6;tr%Hc[Cn18-Rduv*V5&iN'S%xY-qx.5('ls8l(sVG6xF9/am]drk^IãU"N8be1.]srFbdcLxW&YxvoAZLRutx,prxãU"6hxZHWxnc6xdtuuxx,lHx:S1Tn*XtLwx#W8k+5Zqux^tNu:]lnD.G?irxIfu1nxãU"XLw#9s8wnDt.Gir8NB(ToYd1mkPoPxa(\,L,Jwdn4cZtD_cNUFl$xbGsd<$xGbiãU"XKuwx#HjTY6o?uxM2LuK6nixnLwtNowxuevxRutx,pix6nxtn^x,iuNexWxjiN3ãU"T[%W*xn>cYhxT;Z8IPVt'T0hlR76H1CKADZP(0>KxZ&*Y*T*BZ#SMBsEHlxO.uVãU"QHX,bPuXLO/c(&rYqnMSO>EcUNrYbr8>]xi:$/?yo'UdDgqranEx2P&yhKrPãU"rr+OxPfjGNXJdP&wnN#^DUG+]ZX&b8xKudPVombtwp]IjmQ*/L&j)XEcgo*ja*&E_ãU"lTtJjNlY0Z$&Wdb_YIsmPR(<>Mu+=hxZ46dFnUBFIByaB'=1<]/)7+VC1s^bPexi:;?:jA#LXPzO'%ãU",*wVsFSQ?^n&RNpqMMhN,zRe6rwhw0Qgxqn0%*BcV-LtEbVvp:0<'p3A.j&W>NdãU"wt9Gg8=VrHa8O9vd[H7A''\HxWmtUF=Dg['+tEZx$R(QãU"twNEo/08s#)/-mC&v2qeiv+Wp-Mxw#tapUG/%tni'f\vUpuuBj(#)+VM*pNKYJGãU"QixSnTT^2\Fo,9u+j&XK6tXrT8ixnlvaSOlflIxxwjttNxu1wZvunn_tFki\*La-K,t=jtpkNcVlãU"idwlq64xM,eMBD;+&;j9uqL7xXlus9'v(4(tOxo$W_]q4&2dIQqtNeVixP6eLFoãU"PN$rAptuxlvd0sK)5oj7Oouv8bMUGOCXYvwF5-6rO^S[61PjhY>dowTsbZusLI,ãU"Zx+aG)Z_yS>W)-u(HGS1%VN)pNZY(gB+RfjDjtO-[]OrV>xRbRpMY2pM;cpbP=L0WHmd=Y7P#iãU"uAASZbhZV/vLR&jWS]TY-a)J_?A)uTYFwWYSam)OvX^KjtoDsVRVq.BsBaC5UpMãU"4=DHTeHon+J9q4hSLãU"56Tp4Eqlt,X21pirt]SqSrxGD;ahr&b1*eldu^e(Y#iomVw-o8,6xN]IUN?v$ObZwm]dZd-2MeD)NMcrB:nãU"0xYk'L_v>O7he$rui0(%IM/2;R>ohlQ*WVyO/?H\5F.%j=V*?>Y;Cj&t:7YC1/tãU"RXm/tR=s#f%0^s:#%JzP:Odz//w'>;&6K(?CeFc),Q^S)=Z#C1w,+bM%S?rlZ7InNãU"ihxXU>Jik*ZIrc'iI4^%ZhOk?1Jq?FARMw7%h8aug)AqK&p631-X&;H5YtNSf_KãU"f;j[8ow?B\Zj7NhDwvD(iKfpUo)?O,sZ^c6p;*nseV9ONOYCgnc07g57r+#In';ãU"*CR4Xiedw:272$rRfYDW.ioP2(F7=uS1Xm6%sr/:Ao:+am0*0Lj-JZV5-i+YL*3ãU"h/82SCk0IT(SUbV9;n)$E5X(*)J1=k'Z=N1_CY(7syVQ_k*$V8ãU")i)]clt+h#mqen[$H+9m]s4n<*wn_(TKHL_aXD(l8rWRG&U#MvJ]IjPBn8#nZ-6ãU"+u9&iG7o.QRo.p[7o^lqM78ZXSzQ+s&aIpW,xDGwi=f4]*je\2hvS[%_85xtRoOãU"UkQ$bWTZ:q#cATW)0qQS9HBcR2r/&wco\&0ok'oGnlDX2&_0aQ-#05I+O=6'G%SãU"&70<[p%\uAK&sicC8tKIa&L2)+DQE+RvqN'/W;7?tIO>/y\p3B,W9T5Tx8[;aIOãU"w3WGVNCS1:':Nsa/U)J5oWoA.)f9pKaQHL[GL[fkt2RqrENZ^]k+V;+Fa6+%5,nãU"HsIjJ,+M<#0cLd7F<3-MKm$sKpa^48TdV_OJãU"i*Kjx*kFx\%E,AO?<5+JMA^fz92htmOl21R.jh'Q;kXSI2UT3EJ'Ni'.qcc:f;,ãU"iQ?+mnauHKuP+AoOkPB_(4CkI:*\O+#c#_mSs2k_]/*7r$#2&*,_&GbCt3Iz$gcãU"8sH9#cYr8AOIw?k7=;QJadZ_3LKEe<7EWt4&HWT2'Po3^ReG)rEi0*\09gg[ugMãU"si+?XN$))q\629ESEueo20QzsbKQMGkmqcE$gJ*>Zj'R5;J9Zj],'x1dRayjOF9ãU"7<$;BW,YeJ]R5mh-3(=P$%UP&:T#,e[4oOfE7k*g%2a'o'#6s$_z/8cpA6.Gl,_3EJ$PzR+e9ãU"f.7cV%e4M>6M\*+.O(To>dZeK>7#qa43tZO;U5p-_dF)SZv#z*7c;eL>7D-e:9rãU"9rsj8I?J7d]]/>L%yZbF,[[j%f4_/i3Oj(F5,EnkUC0p$u1ICn$8C1AZZ^aR(6N7/'*;f,nF679la*V\J+fHO(ZãU"z^W;XB9y5ZXMBkvBSBheETpFe*d_qqAo(R^10;CfW+kBkQe3LDdVaYo&7+M,oN^ãU"M3yOKaPv*jPhFyyS5V:##[q=PgWa2QPfeU/&XLJi[kpH_Vf/5fmFr[F3l[RA.,OcG7nOv*.R)4X4?^rABlH$W_k<'i+]pax$e/&dãU"&qOBH5PO^46Jusd*15SJZr,QtRe;IT[HE09_RS:H:te&6q=TrC1n:1%n?u9v.QdãU"FoU30ms,HFSMeG-?aN/ekwR>P]+(#k?s-T_aVt(Cu:R9>IZppFgc[]koye%aLRjw3,#pK&A'<*GkG/-LGi(>E*ObCTAFskdTvaKR>eF+cjk%ãU"d1l=)q5uZ.ZC7ZCd4_KTcN9&8h4EXK&4v/olC-VhQq?>YV5Ro.sIflGbc*wLb'^ãU"QCE0YW;*bDc:Od'*S_fF;6IJzUNE\BZ^#3ug,si]9r3;/aC$:x5Pv4e6ixVB,G&ãU"oD:1<>e:R>+lfIp.Ud%<9=t]%NIeV#6OF:^W1_fy9'uqMB#7j(rraUN+3JNw_c<ãU"L2Q%dBuNX#YSffjQDn'W&QBg^npg5(ra%lk+PrHxVJqZcP/^AlZ\iuquY2$+;EJãU"5gaZltlo^uA'_*Blod=#3y3LpaOk]oq]6Y6n??o7*l]-,ew=Cd64LebYSr[6J:QwdS=W#jL)9.ri0Esnnsl[4bãU"$nVr(5cu]5=t#bhU6,<_CZgtwllb[=DpF\[TSGuJ6jw-m+eDTbKV=jh9VãU"l[;n#1C9EC_q47>h(ESW&QpN#+eS];'%]1\1g)U/D[#7[K]w8tTM]9<(3Zw6+GLãU"o_ZZ%-%(.=YGDQB3PI9$kEBAn?t3F/vld%WW:)pS-&m>N[GRMhSg_Zna9ZZ&PkGãU"$N_HpRVY:YO+Br:<3J+#Wo^:8\XO[XaGY[QB:woWn^,30o(VS%,B1n<^l0-U:oiãU"pLIZc[JYD:dYP[wfMr;tu%7R?tQG.;K1EtRtSeab9].mc4P,&866sqoG[?S)hALãU"JNBLMs<7[#\82__//E-Jt>gAGZ[^iNNWR.lzbScB>s*#uoZY1;;]9q2K&:1B-B4ãU"pi8Ma,A+czhG3X*$=kwKN6[7*;q_TpWGfb)0B^jvhJYte>x6_=Tcj6]:2%C#i5lãU"<]BMpqD0M?9rQ*&(1Q&N,Leea*1XoTd9aNpzsrm:mWP&HD+kzn?Ha_hV?=bCcXQãU"VPi8ZGrEiVnDHHiHD,PZ6Ch9ZhknFZ(.w%u8ho%YHXpJt^$RtqIm$plt6>rlttJãU"X'pDup%()9%%%%-%6J),FLC4_m'x)%%&B0%%%/%%%%wjfi%rjSyS'y.%T[C5ãU"ND>O.^f:n]ãU"uVh\g:MGvD$'FdHHWw]J?twvTobcHYpZK0dO#;,-J;;&>>M3wscZwb3T.?(cF4SãU"[oJ;**K+/6h4&R3Ra6aY0t?Wd;E<5iuX63Kp/\'fV;ILWDrj]#td9ãU"v38>NV.3ZrTNV72((rRWGy(Tus8-th]&m^'Rl2ZMhlnQNUT%JG_8UT'IG=7/6+tãU"j7nt6P0*IurqDKFo)d;D_K7xP&lLGRJa$EXJmAR8L(;Ycm?I:b5uIwRU.>Q/E-0ãU"\1/'o3h=4xWo$%3i;G=Ow#[7xM)yo6lWLSy/Q23:#?mSe6gTo+:aC2xZyRHJOkedJJk>qOE$lHC%fErtt^L^wOãU"nW;>66F_]%n0ok8PRBL4C/Toecd0JI)/fv=;(r#I0LB*Q.ZIAK6/XJWLuOCZY8WãU"*NFnh#$DR1cB>1*U<\Ne3Z57T&/RSDAoU3qP;Naz#Qs/?Yn^=$mw>^pCDZp0vN*ãU"CAc5t'WyuU)#1iG2U6Ss#>Uyy]90HkUmaNB#;hyJI&Q$o&g&z=&c[cON'9ãU"$%->[$9.>hKLH.nxKcADaM=o-_D^_4M)-JOcH7cg.y.uZA9uHaI;nW&Gi+.p&]/ãU"KAHvA[.hZS9jD1dzpY8OVw3kf1x_,&Qsz:=AOsao\,KK=P#?&m[>1g3U9ZHbQ6[Yt,_o-SiW5'QJ-Zv'YT/C\QKVui1/ãU",hU:TZVDreSdN29hIx2h'4W'hph;ovIK5).&Edqk7zml/_:qnmc]:v\XyPBAURz\^3r9moW68i4)$>K%TSmxqe$=<1PEgfE^h#>ãU"qY#s;oaWcviiGH0l1sC*Ym#wc8hW?K:;3KpR_q\g9.ruB_Vnsvfk:Uj30?L:2;q*U[Eo[)JY\j7T/-Zdor]3T\D=IãU"Z^A54it*51t^7_V'?OTFDrZbJ^TEk>NkhQR^1G)ULNlLy-EUETv6'2'e\VsVQP;ãU";J1KjZi#9kZ74a[iVw7?Swp$amZBQiX#:fI#E3(CGx4G*p$..A0a>DKsDp-I$a7Jioh]deTãU")/&rr7Q&>h%fãU".8CGw[S4[Mx&cfOV8#ãU"M[0*hr\w,3uy+cF:)ufV'BB\:N(^SHL:AF7E;p,Po[0jq)n:RDLZyr1:34ez:>oãU"a4sM3/>WPiv8'CaPRmEãU"0em&gpsxn7^/8Z8hb2[5$(%vE%(7l1Jp'oEujw\a7YKLsewC1%XRZ/LrZTk>8*qãU"oQ.AgpC'IpUDZ86fatjdX;i)797CL:_Vh)m^D>x>=Jx^x)NJd09PwHMkGãU")7mM(n%zb?fR$&%W?T>lm[Ha]M44=bEp/gB\d&QnT*(8g;DK.G?hmxBJW&37Ji(tl5)ãU"l649E,MezdY+]dM.#-0dJ=/&4N+m0=>XUc'9mk(QwFYG4wVS7s;8MãU"A;uoi4R%,ppx\iBD,GT;^R4$HjQ2fdDcseL=ic$t=a\B57eLYq_wc=#[zFg)UbvãU"F#8zsh$3-d#fj/%TiF&g&ayKa5tt,FK?q%,c^/uQ;Sys/6Xk5Ckf/k8XQIOo6R%9F0\;%9FAMQdd).V#0Q]99P>1P9sTa*UKl^pCWAkãU"A:*i5;0tyZHjclv>wU^jwZ+1-MC1MZE6BãU"#PjvoKlTWqA]\AU5P$.IaV-Jj&V7R6:]BY44\0q(ETY'6'uX,-U51i&V0=s)K]?VPMC:i;Fkk%XwbIF54H,/\jn5ãU"*-&sy*6JDUgDZ%H%'=mn7=?PJG8++pFQ'ft0Q)1ãU">]KxMdWW$yn%qR$OZRA\)1;T$As[KDdB6R\ãU"3_qq'TbF;+#=n7L)mveP$s&0jC\.)#]8:Ic_z-+[]F^OWnxcAsA:Cow(BM0TT64ãU"nIh1SUkGv/GZNMg]LP3G$VjsK)TP:5Y1B]M#5Z%H;azWSk$iO1m-1&:7$jfi33Rq4A\n>ãU"H%*PR9zMk\<1z.DM>i5o($oQdxNd,CXA*1t3uG.]As2URJf0k>va)+u=Ij6M0l\vAbgIk_+ãU"(&Q0+xr,3(f+qEi9NeL8EH&/F+iklj0+VVX>>(ukNog&]B#iLZu/NQamVn(K1bgãU"['P5K%jjyG[34oVssX\5#d^;&JlS/8R:6l'CN+MV#Q[DMe2L)JN=nRTS#DF^p2uãU"I[E6CJfhQl:a=:j1l]FHZOn8_kc,RD,wNmc'f]h?]1qq.=%A+I*CWSolNBRJxG>ãU"l8u--Pu3FnZiUpXYRm)(<,NWPt+GHj8(r8*[47QSAZ?/GJp^+jLJ<7L4Z(bi:=(ãU"O/.I\,Rs3Nd=t/EpB[enT,F9;Mpm8'%(z&eNt[Z*kVMd[#,p,q1fxyxOIOp4eZTãU"RH-KB-Y8UVxbxIwh%%p^lPRKHq5rj-/r4s$N3'=3Po*/Ziq384tl?)k[/LZ(,'ãU"Q\VNXq_^:)w45O46%CtWlEXPudh9S>\CW*gP>:3?nUY#.cmEHo0X6(tp-bES\qZPuMãU"U%s,n$vqN&dKDC<=%2JrY,OJc3bY4-22if-#djZR<4kI:?iI#?-NL3cgQJobAOrãU"(pUrY:bSLA;I90d?^lRtvl/:-'dz:R)t-s8FPC\w9Mdg(Oun6#(1+y_4.9MX_4HãU":uzG0>]hq1oD)KQil(r'm5F4patgg\zo[-56i$Seo&/r:-Zm='^&m*g5p]^:[s.ãU"%/[U5.u+QEr,%Jp=eu^H3Zfq:rYTG#h5Wv&$#5*g134Cs-en'=<.9scc-WM99BRãU"ib2>PkSBrc:.jsPkEc%NYLG[0TqdV,_*ksiX)N?w%bIX29LUTVv#el$*e2W9mDZãU"x$j[#DE:I$lNAHRd;GtZv*%3oiX#(;-g;'<*AN)m;+CZWSJIS=3uil^*)ZYWiO3,&K8e#rk\/ZP'].r89BbD:qIDT]JWQqu7jAEMxwpY7?ãU"x:dlf,j4H7fPaFd\=)L\r2;lNW).\Uz$#-lA6C/\%9;qk(I)0YgX40oJv\J=ntIãU"hxgaKckPv(.^a8\ILl9f4M-B7_JdW]f(w3F>LQeC0J<j0Ok/'P?Nj#7p%bJhyCXNU,*x,3;bb&-j.iYFCZy+$oMãU"_).o$T1ev6uC3+cpOWrsCB^ok\?EKk),W.G(^s,QY.[s9'*M_8BãU"WF\Mo?S*5m,h;),dh,01S*;7496<-a*o3jlVt-wEee(;9h&us6vC#T'A/=/\zRYãU"eUleReMTlL9H$#1c,08xEpXtuo,/qQ,/oS8-QU?(R3eEw>>j5R/Zf=d>U1t6ãU"?Uw5bElPXTYox<5E9JXKAU$BbgTaQwiO,N=XqN%(up&%'9%9%%%%-I%7x([Fgi=ãU"(E1%%%%K&%%%,%%%%%%%%%&%E%%%%%%%%%r%fuSi%fyup%&'9%%9%%%I-%vi7aFãU"aJ4-vsk[%%%Y%%%0%%%%%%%%%%%%E%%%&V%%%.yj'y%zwjS%ifyu%p&'9%%9%%#ãU"%-%o)&I%%H*%%%%%ãEND SUBãV2ãV3ãCLOSE:IF S=146AND 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ãAndrew L. Ayers NEW UPDATED BLAST! LIBRARY andrewa@indirect.com 04-30-97 (20:15) QB, QBasic, PDS 1376 90994 BLAST.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"BLAST.ZIP",4^6:Z&=68067:?STRING$(50,177);ãU"%up()%9%%%R%%Uc&mG%%%%%%%%%%%%%%%+%%%%gq%fxyT%up()%9%%%I%%+$&mGãU"%%%%%%%%%%%%%%%I%%%%if%yfTf%siwj&&Tuw%lwrn%slTv%znhp%gfxT%gqfx%ãU"yTup%()9%%%%%%3UcmG%%%%%%%%%%%%%%%%<%%%%ifyf%Tfsi.wj&T%yjru%TgqãU"f%xyTu%p()9%%%%%O%Ucm%G%%%%%%%%%%%%%%%)%%%%fxr%Tup(%)9%%[%%%U)cãU"mG%%%%%%%%%%%%%%%*%%%%r%nxhT%up()%9%%%R%%Uc&mG%%%%%%%%%%%%%%%*%ãU"%%%ij%rtTu%p()9%%%%%O%Ucm%G%%%%%%%%%%%%%%%*%%%%htw%jTup%()9%%%%ãU"%%3UcmG%%%%%%%%%%%%%%%%,%%%%wjfi%rjTu%p()9%%%%-(%HrvXFRvZ,2Q,%+ãU"%p;%%%5%%%%fxr%Tgqf%xylj%ySfxOr.'<,>T]7]wQ(w(4BD;5#)]F:^]\I]aBIãU"T586??7Ho4.2YMoJ._K%;g*X9[GN8Aa&ajJ*E3F^rM7;A-&n>cA-b]bd9Vs0(lkãU"lhe'aJ).+N=lOBw*L?-4R9v(s8/f?2RIA^)VUDqhoN;X2VjKd4xmf*.$>66KA(9uInG's)z&klYSqBIãU"rgk]3lR'[+GClLXI$E\2]QWlBqbE$#&MGaim1(6F$l'kDQ^DX0p.)cCmhGp'ãU":w/Q>d)gY2_*ixJtVj.7h]x-ODYzNsL8m-a(z::dRciM*ztl4OeEZoXV]&2N&//An;0D9PRãU"p*triGqsmUa%[h&2zGWt'ZTg%E'UF#U&fM;%vtSãU"tLPft_'6QfD7:[GOQ31FLycH9bt^sTK4z%'>AJg)6npYm=j/NF1GW1*zQO['Ri)9ãU"QYXO1SZ4-PnQp;*vL&dddvQo-CVGL'sWjk)-yx&M?jxn9kTFn%ãU"?lga]]nN:hgEXj$pXE21C;%.;tKGQCkVz_uoWcgF7=FjPLu*'YRMhr4R%zx[ãU"E^*d]+my&WfRqS_6fGG4KZkFf&+NU4v+C(E9EP6bzT]L:71Q:xirvVw0t/n4d/NãU"dW\33&$e,UUH%UPE_iGGu,8u8/&1gfhlQ\5L2,ZFgxvb5xf-+j2;^/XIGh*Mk$sãU"0qJwZu$X.v&q-75hSXq[rG2w$rHGxJJC*DIK4XG#hP6>fQmsIUQy$ZbIuf$(wFcXs5E;7\ãU"Aw=&q(WmH]=%g,d7So3mPL:rWQB.1H1IS,lbKE>F:.2CkSP%H>k1\kDSyOL=*#'ãU"q4)DabjwYsTd.'F[7?l:hWXD*1S&b5tXH7DW1E:eUE*fKyPZkwOY^lt=Q$sKM7OãU":8Q;tqMVqKIUeDD5SN#(6C+MFslL70^:^y3VLYT^ãU"Ryy%T3wL'LgSS.s\sRU&j$]c.z2pA:FXUo5\uh:'-4t+?3QECi3OyP>R3P(lVdYãU"Ps23A#,V/\rOc+jKgI,xAdPL\l[Sz'HgB:Tbi+^.(M=yM%71%\6*w.;-gUP?Dm[ãU"WvRNb+YUVnea533c)pT36IbFP#/QCGr9JM6A#LD)n*,H;c/a+m[eT9aS\^rB(+PãU"]Z14Z%1vCbpgQ_B(80NK\*D^NOF(R8;sW:4lH?\O17*;kPpt;+:9/u1Fh$q-=g8K?Se'n)etPmbN42jU#06,47hxo4_p\:^e-zfBãU"VzwEK=V/$0V[53t^w%6(gq7B1(%0p/J'xiEp$v?Vim542fDNX/RYC91DR'mTfmmãU"gLn7oQfMk^vvG]llonh772ogNo4N3Y3lXUo#mYyVNE9zL%bjF&)9vdfJ%f15MVYTz8okFV0&^?NOEcxzpz2F9G-dSãU"<+yG)X\9)XKo:Yh%Swz86sOdiAt:#K^KxymVIq'_/o3BlR=h8oYhBcDEtF(Hj%V4ãU"oYf-G/dyGRVzJnfdiDV8XKpiUTUqDxF,&$)^-mxvbiGaQQcpP96[dF$HW.;&NH?ãU"7VT7UJK5,KVM&pi2[_4UTqma<$Cu4rv.c\3]01AmBO*I8?#o]sWlHLfQ8]sIV54ãU")h;)<:-I'kIN*Ir\Foo%\up(%)9%%#%-%ECl5GjU]_?1[-%%N%=%%4%%%%f%xrTãU"g%fxyu%zySfRxr.';,>T_17Le&WxVRVJZ_Wj,du:$Of0_3kvnTLR=vSjEUq4[XjãU"#=dIjfqaHqXTVVs3BE03._ZGY?;VVB5GKXvuqmhn5rR=%rrkcOm15MW31m;ZN:lãU"1-ac.U/-7+BK9)VGz^W*qsc?>o,p3_Kb+Kmt;Si=r=yR)%%;6p[7;dYm;Rxh\JRãU"tL:X?\U&ttU$^&FhLL1\K6B(b\g6sYbM7ãU"gx$N,.IUt?bR4(mZ#\b.JQGmNx7\kFHq%rs3u>L#U(\Y'qg76[[#D]1dg#7*;YcãU"P0b1eaVTc$Q0>9'QiR+:7J&Yt93#GA&H:]0KnQDg.?uKKMKo6qKSpgbP8[cIZ)\ãU"T&fVfP$tY9nQFe6X?6rY9ovt5Kkg>M1,gM6wRvQM/p+kiX+hdQn>xiL;'.ZFRDjãU"\:p;_Rir:BH;,dY:Rjc4l/Y$u50McS.DNy2RHDYi)5a%n/)mfIS^)Ko;(Gp-^,QãU"Qw8PVF;%Np)tBxD^Cr,q)]4v=nU/,XT=)$\1F0)1GA5sUvC=[I4m7y<(4nEaajwa?8V$y1',P'p7nVãU"/WQ)AQ9)PBNP3dy0y^??%;ZE5Yr7d[cLsX^H,d]-wF-.nnyDN(+AX'=ãU"],q724N3.umI9'4ZtdS'f6acDinM)TjbQ*'t=gBNe*mG?rI2v%pHnVfsa,^,>8uãU"AW\EDvi/HIxc6qR6eW*-pJ/V&JGZ.dY+Lx$v#oF(TX\,RAQRj_A#.Bn#>%mj4Q.ãU"x^U4e$f>7fl5Ht2ZT1*N#apHAd2#(otoR4bl>s*=vx-pKRoJOt;HK7PP8[zg=NV=,.*Uv,&hWs?h$68A-7Z7kuc)X?L^qk9>MCS?fh*0*mCF\gFi3J4j5CnB8NA;0+o9o8ãU"DfG10(0$?7-MBA^vw8YE']gVhp='W,$Izc^:ãU"a+&q#O]eq-rVBI(4$QJF#\4$'la]JkoCh8[,0hzCGEv&5a1[)L([Mb\L,vfB>;-ãU"FqVbef/=OcSIwhVV)6j2x&6D0MDy6ãU"2]dZ0$19Z]$1IY+\w)4?8$=Rid=%MlVFY?6^/T?K?z%iM\mSiGMlJcPX'r9.QtNãU"hhK0m*7r6(gK%3GVPRUDDcXkT$QC5q>#rX*uP2=YBl<$5\H-PB*NOnN*82CLXrqãU"8T<1xc.Gs%DM:gUU_#^DS)__g+LFtU$Rkpx50w&#Cm'9k)OQk5dK6Y<&&*WNXg]ãU"Z]Ggwgd#ISge4lB;,8YsN(^7U'Hm1[lSbFtZKGR]_lFYt.1\Vq.yel/(uv+y6buãU"Je3ojOa3(J0$e*Skg^jT0k-5#*CcYXk>#ho.]h043P1>ph<_lpYloD#Em^t:FlgãU"tN6_Y,VE&^6(XL[>>XfL\hXLrLxnF/2,^0A&7PLJ1>e,/7BRLlT$eZ:NJORV%I1W/=Bd1tN3)TmeRt]42+U4v0dC[BhãU"1u-G*B00g)CS-XEp2;.N%P/M5-f]b<,Q(dD50Y2SQC\PT0JC]3:jj=Oo=5ZãU"VEGXO$6wIiau\t\u_9=3KCaxCs3rA(r80N8TD9-P-FF2O=.+[>uSK1HJ$K2Rf0bãU"(\DksT6YX14Y<4)Foz_+-D64XSN&%up()%9%%%[-%ãU"b.[uF2C:XpP(%%%Q0%%%5%%%%fx%rTgq%xyht(u(SfRxr.%;,>Sm(9L[7ZxZo0sãU":IKeA_)gw<+a*rJYiYTKLYzy14RL.D%\,\o#2utJl42;JamLomHI)hqkJGv/g$KãU"aE^9[i:2_d0,,\5kj.FSY=sC5r$1>qa5eY[Tq'LB<)FAX<>H[ECkEU#*9pn7YvHYBL;1cBãU"LAmkw$R?Lpa5+-xq9D(S8?+VC_K2aC'9s7;$C+iFr?hu9GcJ-%?1N4XA'W3k'^GãU"s6B[yU'Sji'_nrk1W7='h3Y=ZJm]DDRc\?Ixv_wV_P^tt:vS*8ãU"vx)lr:;sni::\wPJ-vJknDT'VtETPcK]dE\^qWSDNj2zR+;hRTdK,[kZ[08f*1yãU"&Vb(=KU+BE3&WWR61S8m-g:wXl']Z1)L2NQZY(A\\G/utCHBbS6;wUEYe2ãU"gF+dm569$K3,8&77leAf'^w=OC$ACXoA0bbI5^^Sh3*AaZZGKNf;RMkYgtB$UntãU"%v_PO0Xv*P%AN8*1jmY]mViF?\1L5AJe5ApbEZ;<_+/)&ASSU$Cs2Vc1:[AyZ>QãU"i'8a?sZFr\rmh7E'eAsPK%&/sCrIHr.7(^&N-AKbg3OzpxeQ9%a:6q&;gi,#JtZãU"VH,d1yxhFjybaca//D0ENt$]SG;9g$,DV4OEQFb%W_lkXHLQ;M8J/>];+ZL(CCQãU"s^LsSb2'+._LWHjrNAH)vo2_/7l#m5q_Du0bKD2sro$]L^/&TXG]iPTD8iev#S]ãU"PmJ(::[cc\Ov<29yJ/Y//J^'k#^r)r;d8l_1uuh6EAwE'6*QnAV-uQ(:6L#n*u*ãU"8n's0YDD3gfBQi'sSdIdA(JyuTcBaWA5-cZKLGZRj#(6bp83VH4C:O$7f:xn12AãU"TZ(hw)4gk&L[S(JGM$cKDrnN8h#g6=xsoO1TGEbO38jB-S#TãU"-F/zn#(7c>zgQOsf(SqãU"U%I,^(Bj1-[voD?,oHc>XAZnWJ$6i$r\BoEHb3(0JQYTKol,gXUNuH17*h1IaUSãU".E>o.x8]NcVR'xup(%)9%%#%-%C]0uF1J[mSe%)%%T%1%%5%%%%f%xrTg%qxyu%ãU"xjyS[fxr.b%XtTIm5MEGsu4B#4zffAAs?AF&=nE/;/aN2%kAy.:4ZbFn%_-;:FVãU"KuxvFg#_K.k0M,9Fu94lFQpF^lWnV0K33l=,ZarE%eG3M:DsYJyadY(U-F$W:nWãU"JqnqK][('tah3Z01[1p(#7?4'[QPkgk)^(J)l&=x]aS+zu.*]mlbahnl\m2m&zJãU"X<$Yd5h9n5;lO0f4F.Q\X3BpaAj.q'=v]^'b1:xEV9P$>=sMf)j\0_k+1XB2?s#ãU"iCR+(qfJZqQ&I9at+Y3VGJisPW,:1e1[TO7_+PO)HRB5yA%+[&p9A75fG7*nq.XãU"SZWjBKdle9>bOQ&nu>d1E#PP#Qzhqdh+-0u'Fk=nZGiu9]SsWp0^u(rp--nDxmqãU"4b\TC-P*j;Io)jJwcLf]Oh1,#rq=:7R/LnHFiat#J#Oc[h/9'I4Lxcsnk1G?G9cãU"gbMJ;5>-noi*m%$)MxM$&YZcXJ',#Jw^xfUdD0jn<')#2z%A+.5Q[EiR:H:+;'uãU"\OS660PMP.2Sy/N/a:th1Rx/;Q(TR&UMgCH&H'\JVwiLsseMZ>C5y+0<3tp#A>NXãU"7e*1;45a#%RL_*1n;u*LzDj9O'Cl+0#Rf,sKUhbyLjcs?/#DHV#qãU"kc7d%E/GXsEHRo7PZ_pXM5,$Q%)oQx;0LkM&-VãU"9GZ'LAI3ju8r%gO0loNvf)WbI.ax+VS_Fo[TB.$2N7Q\JS7o7(rãU"<+dMNZ/GvT_kAm_Rc+wnduJnnSgi$4b>ij(Gctgl\U6WVR*ipa,u;TmJ?&:lu0=ãU"Ct>IObh0fCvnqB[+82GiNX5tkJ]IãU"Htg]?)c2WFTh&wi7m\,ShB4Hl.BgKe6s7naV?21&0Vd&>U>kd7AX2nh)?c2#E5(ãU"_B7^>K1B4Y2]ACGjiSqY?'YhW%]FD+b:1Pu.l,8LYCAixpfUM_0j>8PwX0(/&:<ãU"sq]>_*=7?]i&kP/EP[u7rp;:kpwV6SmoYLm;tg$eu.o:b9A1L7;'u#?Sr%UM.5_ãU"]<7)?\dO5?[:if+.&Jai5\pgbZLWIl-#,gesCqlZHudLQi]dcaBcg?8yu.zGJ.lãU"-ZB\pfbGlAa:2('1t;7d>\R\C)5_ajRd;TFe(V([iPlTk&_Z'e#j+WY?]SEYB5AãU"Ah\X:TaVOaNc,*lOM2F7=f$Y?;].cXj8,1(Cu1_DYW>ãU"Xd.m^Ra>^&N+6GI;Lmud2'\=qqo%Dup(%)9%%[%-%PAJUGbn5p[^[(%%3%/%%3%%%ãU"%f%xrTr%fqqt%hSfxOr.%,,>So5\L[7xM0-yO.o8v.R.FCR12=jP^7KVFpjyk)TãU"*,)9YE&VDs0xwG'g?gcc'M,'qT1EGqmB_E0e]n3\HZ#Fj+IDH5%QV$A%9GT1t?VãU"P.F\/D,hG*d?Bir&hswCGa6_g;iX0_UR3AC_S8grZrjYJgELZ3kM-,,i<.oKpaFãU"t5i4q[>=7Bh)fYxe/JnpvfA,B.,0JQoZfHVBIqN8_Btq$4#?eZ(jdIm,s$'mfQj_Y(J*MN?q5N<3ãU"aY71d-s)J<]G-$ZDF.X*PXj-,5\&WcU7^QRJ'G<-XJP*Hk:d&P&t7Jo-$,UJGe(z7L:BCW;;dhshg[\R48h'$69f_?<4Pj$YYB>Ig(B)9NY-eIpWHOf\4#9JoJUe^ZeãU"fLGPN$oFqa(CV^r;]q[_[TAv,?j-J-uwSpvIx8T:.qP\>T-/oSp*P_3HXge%&pNãU"kNeBGDmsP?l+OOUGGfS5cIpp?fHVG5b:4RokJUV[$BsxN&NT-vfH:2N]K%Y#\\+ãU"d[oRLnt4UcMQjcY9/#j6vD]-98,Y&.)XGU?'3XSHeQ-6[eNjBbE^Z1araJ]P:iBãU"Q)EHtu_&adpqy(vu/Iz'<9WW6PKxJb>E)1')Q]Ce>n6D55$<:XxlEU5\a#',_h?ãU"^;rO&?tLAs$oybySsTj.'gunx3GXV;C4-VqhMLOTwmKul;Ql$'\t//pgu5h1$BCãU"$WEzhjOcI/sp64j.(jFERV$EcmW#UZ>MWJ0r4$Xl>+i%(Xd;qr3XJC#DQh$DXKEãU"8CCfP2i%b?6?PAs?YpHh7$#)+X>90K1Jf.,s_W3G>DgvBT,&bM^MJ,\s_&#qy[JãU"qM9]K29z,=qH>)T4=CH(do<23GkaMjV,i;:'tk*I\lsdEHPH55gR8b(=McJuhBQãU"7_FJdnuaB4/f(&rC._Szw48d(R4cUY\Yvg&&QhN4Q>)_q0ipZB.bDD]Nnp:hS1qãU"kaNd*t>lKUfSJlnv^K-59&R$W6X;HLs:.Oo*_;>44*$rmq.bgj*VQhAjXpY3S/CãU"Lr7-Ycw2tn8kiLTtmht$Cs2JH+,K'>a\)z2u._Y(Sr6kT\-gDGRSFU7syISw-dIãU"cU-R8up%()9%%%%-%&2rVGCd*gãU"b=*b+\gAC:GNA^.pn)UBK'wK<LY,1WU?ePc#LYB/mF_Gl;1cQ[$]u6<_^(F.7VM]h=-k9[6Y$i30_#&M=iYWr-WãU"d.OHsRXTYVE#G8+0g#..wcFOB5aIq.''af$MJ=yq<6YSOAK:H5iYX,PH9ooIkIh>a%_7IFtHSJcjAwj^R1dãU"0n5WAgJ&XA1s0kv__iz_:ZCc;%kKy*(v5OnmRu6o]-w-G3K#kXDlTp[(oTVA,vuãU".x29iwCI^=fw6FA4geo;M:',ITx&R3tP89JMAue<<,QQ9&+Fs.)0b//&233ei/nãU"ZR&ZPvMSI?fkkF^MZ^*FYA58N2W,TWoG2LYh6[G41Y%ymp-;njQb_4F8+9<&sh6ãU"tMsC19LCh,tN=*GBW],ILfq[D+BCqvdOWT4?K7D,bfQlIpGO4m6HMD4x*JBw=,RãU"nrl.()*\p\y>:j&jh;OãU".Sz^*PFZdHVbS)BTnhwQ/5MLQ[mj$0.#D)RB/NJxiwvC9(0SeIM(t1v^$;VlY[)ãU"dj>J)>2a-0?mun/N.PEF;Yp$Rl/H\*rl'tt(CX+:h]Qp1*vj)Q4s'3'$hl8l)beãU"V2yWFgMtnGHGg,Dkwx\kEJEUNPi?+Gp2:)=mrZ=reUR;(959tOP7*w4#7lbN7$MãU"18Cf#$s\bE6^GQ8?NsMhvqXM&61KQ-e8cba_HGA73aC.C2G]<1z1mc)ViFxLg1]ãU"]xMQmHTGi*ztLPDG(_C/:(JO-#^)s7OPp11%mQ7VRYTKAj$'l$#i\XL(fk=V_scãU"rLaIP0wZD*[clCWX-<'s1Kh+Um7s1DL1JHsMS1:rc+TD)r[2Y.7w&V$1ãU"vXU5H.GdXr+SADovBVOeHU[pbj:Rr%h]G/ncK:XRF69T96>QrPqFP6WBlU[xEuHãU"ãU"T]7]wQ(w(4B0AX?\UkK]]]lVoJI*fSQkOPWK-S%jdM;/<0djhRaiq-XX1nrBafoãU"KKh=T,q.m3Q$fh6XMof:acVs0O(qK[HOe7kOYCZ8ta*8:Y*q-'W]B:'R+s2'=UjãU"HTanE]UB+Z<*SozYXTa.gGk(YZS$#Z/U6#WWI;TPN,S:W2oF>4Q%,+Yq;a0o)L=ãU"x)0qW]swdrv#eY'?*\ofLI*;Fqi^ZFp:S.n,v0\ZVU;k?#ehLneZg:=#)%.3ujZãU"][,$rrCA26F:$>i4^qH9gWYMS6v?bbZIãU"gSuVIv&t2J>4T-]WCPay8$cEC0m*(lRIYRj%**6[TI0yEa(k^Q*,f(\4bf6c=LJãU"rC;LiQ)d3wDcJejWdcNZ#ZJEj1*yC1rQeHs.Vv19S/KSx*l)[*#*l=k-ZjijS=$ãU"HV4d6547aVFfFUvMOpD)lTPFFRl'IAg2OJ'.>2Q/drY40MucX9)5[X4O;EGmP_&ãU"9?qSRZw3Y_%3]o+,-qANI=1ffv=B>hd3ueSOhãU"l1,MI5c8q+jg+Yl>9Z*X:Ah'fqAUvIlxLhv<?:HMs%mQ9/Z:iAo$Dz&xDXRPWãU"cKo>iuaJp&2ZJIM*tTF&Gp+5(:ltf,cRev[t7jWX]>B#WSM^6)TBN?#YrQj:.'?ãU"=D?2ueR.hv_/7:vFG=ja&arVYsHLV:w.892FCJ#^Q*Z#u,?CX[j?UZZWG7_:Vq6ãEND SUBãSUB V2ãU"rB8#XP#8ND7$<7ZCW[du]7YG5bsr*n=LR+WHA8Jj:c?uRMmak87I1SmU=oK[.RvãU"2:WuDm\.fwOA=r7,CskR2?>v/oR5td#0BdWRaOr3t-&[']wWB/%xh&,.qS6MnHAãU"9]O,?\BG'6&7^^E1i631yr2^%BxCN6S#Oa)9jdgBlb2$J7R*zr%^LLlL\5x$AwvãU"S=BVY$nza45.p'DrnzLv]gYboãU"LNTdssC=P3)lC+4*aãU"gLoc07$alJZaxwc+ByMRmWJiP%LXU9WOJIplZ(Fs0-q6OV^kI$05k[i,bc^M3(cãU"PBRx=KY1aG3o#V'_Vg[*'V1*lwj'LFOhfn?Pj<7tqB#JlMgspLA9rVp.osRd$;7ãU"fu2:VNC9LA;H9-M'magqF6#AYh9Y?_m2y5lJGF]ZcCPT%=UKHfTy],dOw-kU3c)ãU"*5]vAh3m,AOS'p*8nHe]EOV-,+WN3RA(*daP<;^3aJEOR7;YG-K-Hd5VvPpyHv/ãU"*i4%2?rKRa\^le2GI'&Xv3oc3%k[R*9hS74FuGVMexOKv=#bFGUV_No;x:^$$4A(?1.GEWy&:9ãU"vK>G6%>/2F79U,OvH+0iKD.I]d6O)YbU+[s:($o^1YOR157Sa&?8VrX:_tGHvD2ãU"h[f_9UC>uFI+]3\s_oF1_zJet1f5Vsu.o2(\8hLAorjS)0U+<]LTu\RYq+pZKcMãU"8w%8_n[ETlIk2n_U_?kbWu4xF^n%Hak?EZ]YEMvET_EiOX]r)1-HSY,%pNE;M1:ãU"4j%6EwSZ[ni[;88e[;3:VocK8#KqwjiãU"dM<]_P]pUA<2N+sJ<1[j^1O$E$-hj,Gdsw'JG\/S0B:*-rãU":?oSA9OkM:.:yJ)]ZJIZU:+9lO$>NI++>cv^M&yc7]uKJk,L+OdEO4Y.z#)TEt=ãU"9PodJ0Jr0(Ql?7X2v[8xccZ3c)Lt70[R$m70,uv0T*k[>uYZ^4?K?4xKwk4[,d4ãU"*nB5K7V8.cd]s-qwDgh&0opqa:^nbAQyqySSr7>G-DiaBrt-7.^<(Fc2q8V^W*vãU"%Ua2uf,9EwHXW+>1^f%'H0R;m-'DwE0In*w9*[Jjp^EQg:3Akq:KCF&'>*\(_&XãU"9YPINHYY8VCGU1IMS&/7sEBx12.B>IM.a'S^:%9#HZ_eVJ)ãU"<>nx.VGl>>^1:O&AwjH<+BkTe9-;VZvl$0pX-U%55m_5_Y6Ys/eR[RhvhoQFgU=ãU"hEDq.vZ:cE'Ld)qB#F$\[D+/sL3rFRk8ogW3ed_Ki6DJP[J\y#xOP$1DQK_$WL2ãU"bCj#3$AcmfQMPe(x&jhROPH5G>-*&=ArwT\s$v-b4elTC\_z$;b8](1RTmPwtkQãU"]8RD[$N,X8j,K_BKL-.7nSal,[>B1ddU?(&RPonYãU"&zlo/*sUZORss<$PtHfD2BJ6+b4UtouvHN15&75ic.G8hHLQ>)i&nJXZxZ>N4$<ãU"VH=dB:qZlVqkkS:3$d>ILpAMDvl)+Lk8W^kBPagta/EvltAl&J;x+=f$9?n2I,rãU"WBe*U:6lnR_fD^Qsq=lBXyq5O*T1?8K1JY0r7(-9_laãU":3JTSCr'ka2J&;cutYTb^slFEk?gtBZ4?/I02)yJhT3IYLrj\uXyo./ãU"6g/^teIDXzSdUqqm/H-Be7ziUVr*FC/^_Cy\bQ+.Qs5))e#)?C#4l7DbGzD?DpfãU"7mW&>D9TlpOB/H7bD<,d9uPx*rD)UtLBuy$5QC-)CWfij+cP699aGD.LX/]L=%_ãU"Q-??nY=f9q4K5oGi+SI.BGN-CcL\pd2d:uW^__M\9n8NIP4QaNCZgVlzj#]UR&-t:ZS%t8XBd0J2N:YKKi&6]t-ySVTMãU"lsOFpTqBNVv,r9/\rc?#0+V5]>Kctk6tr:2-M)v6bt7$m[jMk,Tu0*1LD?E.IYKãU"Tw$H87J_H02Z1i:fQ%KtU6cB]u:NBY(Pqorw'Y#1k3G\*npa:Z.DL8>1od%up()ãU"%9%%%.-%El/5Gj]5_?1-7%%N=%%%5%%%%fx%rTgq%fxyu%zySfRxr.';,>T_17LãU"e&WxVRVJZ_Wj,du:$Of0_3kvnTLR=vSjEUq4[Xj#=dIjfqaHqXTVVs3BE03._ZGãU"Y?;VVB5GKXvuqmhn5rR=%rrkcOm15MW31m;ZN:l1-ac.U/-7+BK9)VGz^W*qsc?ãU">o,p3_Kb+Kmt;Si=r=yR)%%;6p[7;dYm;Rxh\JRtL:X?\U&ttU$^&FhLL1\K6B(b\g6sYbM7gx$N,.IUt?bR4(mZ#\b.JQGmãU"Nx7\kFHq%rs3u>L#U(\Y'qg76[[#D]1dg#7*;YcP0b1eaVTc$Q0>9'QiR+:7J&YãU"t93#GA&H:]0KnQDg.?uKKMKo6qKSpgbP8[cIZ)\T&fVfP$tY9nQFe6X?6rY9ovtãU"5Kkg>M1,gM6wRvQM/p+kiX+hdQn>xiL;'.ZFRDj\:p;_Rir:BH;,dY:Rjc4l/Y$ãU"u50McS.DNy2RHDYi)5a%n/)mfIS^)Ko;(Gp-^,QQw8PVF;%Np)tBxD^Cr,q)]4vãU"=nU/,XT=)$\1F0)1GA5sUvC=[I4m7y<(4nEaajwa?8V$y1',P'p7nV/WQ)AQ9)PBNP3dy0y^??%;ZEãU"5Yr7d[cLsX^H,d]-wF-.nnyDN(+AX'=],q724N3.umI9'4ZtdS'f6acãU"DinM)TjbQ*'t=gBNe*mG?rI2v%pHnVfsa,^,>8uAW\EDvi/HIxc6qR6eW*-pJ/VãU"&JGZ.dY+Lx$v#oF(TX\,RAQRj_A#.Bn#>%mj4Q.x^U4e$f>7fl5Ht2ZT1*N#apHãU"Ad2#(otoR4bl>s*=vx-pKRoJOt;HK7PP8[zg=NV=,.*Uv,&hWãU"s?h$68A-7Z7kuc)X?L^qk9>MCS?fh*0*mCF\gFi3ãU"J4j5CnB8NA;0+o9o8DfG10(0$?7-MBA^vw8YE']gVhp='W,$Izc^:a+&q#O]eq-rVBI(4$QJF#\4$ãU"'la]JkoCh8[,0hzCGEv&5a1[)L([Mb\L,vfB>;-FqVbef/=OcSIwhVV)6j2x&6D0MDy62]dZ0$19Z]$1IY+\w)4?8$=RãU"id=%MlVFY?6^/T?K?z%iM\mSiGMlJcPX'r9.QtNhhK0m*7r6(gK%3GVPRUDDcXkãU"T$QC5q>#rX*uP2=YBl<$5\H-PB*NOnN*82CLXrq8T<1xc.Gs%DM:gUU_#^DS)__ãU"g+LFtU$Rkpx50w&#Cm'9k)OQk5dK6Y<&&*WNXg]Z]Ggwgd#ISge4lB;,8YsN(^7ãU"U'Hm1[lSbFtZKGR]_lFYt.1\Vq.yel/(uv+y6buJe3ojOa3(J0$e*Skg^jT0k-5ãU"#*CcYXk>#ho.]h043P1>ph<_lpYloD#Em^t:FlgtN6_Y,VE&^6(XL[>>XfL\hXLãU"rLxnF/2,^0A&7PLJ1>e,/7BRLlT$eãU"Z:NJORV%I1W/=Bd1tN3)TmeRt]42+U4v0dC[Bh1u-G*B00g)CS-XEp2;.NãU"%P/M5-f]b<,Q(dD50Y2SQC\PT0JC]3:jj=Oo=5ZVEGXO$6wIiau\t\u_9=3KCaxãU"Cs3rA(r80N8TD9-P-FF2O=.+[>uSK1HJ$K2Rf0b(\ãU"DksT6YX14Y<4)Foz_+-D64XSN&%up()%9%%%R-%shSlGMZ8Z'1)%%%H2%%%5%%%ãU"%fx%rTgq%xyxh%wqSfRxr.%9JsToL5LEsZu+?'XEG-)3RVcd*5:lhEKo>;fQ2H:ohv;05zrce#4N/3tao-m8jBfu'\D0d.IãU"[Ww7Sv$xQLd5x7M5f:-i9jQmZ<6JXIEkkpdg-*>[T*-&8[mxgq\x+FlMDw0s*eoãU"Lg]XI=T+TyafhnZE/AYAgDGl#5_+J),-_pp8\Ve\&$R8zIxf$dA(vnZO3wH0hY]6iKI'8ak,d05-1C0+0LãU"aH#qM=6IMd&6^jhD>G)L,>/Ga-XqT1ay&i_do[6Jpdg#=k^=l$,*g;?>?RJPD'#ãU"r)E]fq]vX-v$H?/P$WkcmUQZ4v/(crWn#e[&D8>hqdx+-(:hj(L$W;+WO]5iLt,ãU"q6jh^:>/VYhUgpx8;o,069QB_$pcZf8V]f,*%8^,>TRW#UQgq.>8%tZ*otcdw/2ãU"MIWJdU.>ãU"G,SswP)v^_j9%[^q9]E*b/[s7X]xIF4ãU"g>S_q#Q(ZUN.)lcfdb;\dbZZ(*EXs&:ruj:JIbDO]h>Jx$]rq6awcS:JSESEe>YuaAnS]ãU"[Q8uQp70+^n&[mlZM/cFMeleLaAv%2Ka\tK'8[L08NGl7slOY5^?]U(zRl=aJesãU"AEZx_b<>?ept)bsW8be>jno,(_d5HRe:pm'^J>mPhQ\3X[B^fG/*biY03lzeWHkãU"nWJ&pY?lo:#_kMi.0'\B=JlZQ#OJqTG2I1(JtI.4v]*xw26n+*i%qji4jMXlU6oãU"G?m=o6#I,iolG'l$3)cT[1E$bF6B5JhQcgelYPYE0Q:L2WA3JlMN.1hh6'W\y9sãU"YSR0_Fj(m%8Q0o-g*eNup%()9%%%%-%&rrvF*?zyW'0'%%'3,%%%6%%%%rnxh%TãU"gqf%xylj%ySgfFx6z<,>SU5Ww]=N.]F7ho#IT*I8xk=bu#xeevun\OK(2x?:ãU"mTwthYF75_T'v#fmryj\ulV\l*V2\>t,:fsP=BJ-F=m,SpjP0XupppDXrH\[W*MãU"4D)YN5b>KTgSee$g&up4N(1Jh,y#>7Mi>7St,)Bo$lF\AGkãU"T/XgsAQkj1BCC91+kKw%8jqXqeUOP.hK4EX(+d9d[I.C+fRK[M=#nWU]4=(G_q;ãU"rRwD*?tgj=3)'MeVsFL=?LIHgY:x:fWApaYlLP_g^X#bMP#t]1iEQ1d^5oCWhC9ãU"f*V%I3nA#W1qsPCw:1#x.t2Z\3Pp#[J[TH26efgT5U9mP_HsqHFLBC1%b+55)g%ãU";&M4*b?PHxlEdkuoeEdNFMbw/kFYkH1eo$4#e]7O?b]K_Qsb1%/rlfzh>O+fQOQãU"M,3Ysmuq,)Lv4VKYpRn:K0ms_'uR1#?+2*L;Jm.tR-Iv+[23*V=:#>I8TV>+R2QãU"f#'90Pm3RkE?e7FJKejPyrP>2+5p9%Qcdv+/;^jNSlPZ,w1==fdG+KLn:22eAX/d\=^h6$ceeb#kãU":bV$7[a.,1dgxPS6&Q3>_g7cBT'\qm4sãU"/YrNR/4ldsxprh:jDbya*%ta9QTcNNCI5boB9'#eZvU#H1-\,-qi._jT'(4K4%#h),rlCA)pty0[RzãU";>Jgp3jg3%oK/Tw(7)r%>k>h9)-f.WwMYt7EWmG4N;HY=60pU%$(Nr+TH2[$)UQãU"hq=p-E4SX#?*G%#Nkv;B3iAu(k,7*fERAc-F1OEJ\V8s'3WId61E7Odu9i4Dr&TãU"4Ct$[rPW=zT0*ab]J3d$f[>Xbm^)u[qKTLQ$LJ/eWD(Qiu9*y\xEu2X4DmqkC2GãU"^TSY0&hwW[BS$3\]Jlk>QBR5E)n8>[I0E237*%oT^PPr'Bn<4FG4zWEU?h;>yXfãU":e(ZhD/'%%ffL3dpãU"lFld6=WNrBfim.CRDltr&h9hu#EN/PW1ãU">sypc2_86=Ts(%up()%9%%%%-%(OR:F(D=eG1,%%%'5%%%6%ãU"%%%rn%xhTg%qxyh.tu(S#gfxL_&$I-D,sOxjblkl+a$Z,'4$,UhcE5+YtD-Qspa$;NãU"3P-%aRq-Xo'h1N;XSWVZmDr+^???[)h$w&LBQJ,]3qn;ZRw4e(3[9ng*B<9fcgQãU"J',<5OK:TH]9aSFQpaZ$cc9;A&o/-^Jb3GFs8B*arAw7H&k?LP)ta?+4u;B?A:JãU"CHdFBnc,GkZ#Ig^M8:)&8IG/9J*Ud'vOF6I'm\[qwuS.fO-X'.%&Pdv6xBn/arWãU";Q'lB?;+K^^_Q1b2O$Tip[hd9:z5%0-i'6SIjrA0d;7m6aeA.n%fL8MORW6nFl0ãU"w(F91(#Du57xjp)TA)B8BIf;.?Naw;o;7qM5LO._#Kmdi$xJa&z%,ot)k+1i)XCãU"ihu\LJi,5:d3g4&at7)]w$$b>E4w:4Bp5^8I&SG7UJJtQJqMKsi$B'2T+zjF,>iãU"Fa(7]#,wb:WW33*$gxLn&I&CiUiX7Dp_lSgMl-$gsZ4F\jBaVjãU"P79m7,\S%S5)/k/c:1k)FbU(W>z(TjFz#pQ'.n+/Xj3B2ãU"jWz5z\?H5>grn#(>d=Z*3ND'[V74u2LZ?1.g[Llidk6kf/5mLc8J&o8gq2b;W5WãU"cPFEebm5v7M^u[W9]sWH-1KM7T9\GXBJ0HYU%52sY(.uHuoxwHswf5.9b65M96/ãU"ct9cSd+c3Jw_^kY>RPTewCSpkE_I0(%;^ppx^i(AU#y>ãU"V?\r.9,o2iA&xcS&aWSH&.rCgnLa#T(43%h?KMouj]u%EVPlhQ$]A8S4'x8r;=jv>\:-.QyYf7-KA(ukn13J&cãU"OZo964CRbI1HUZ_bhA2+51xS,M%_D7Er^Z,lWJPvPff*88OPPCW9)#FJT0%9)S3J-;%ãU"8m[pr3fVm1duCr5,&d[=mEdsmGm\2\T:%m^qe_BKYD%kcwYVNC-Og(\FF8fnqV,ãU"NZwNF._h2DMpNWC(SPLP<+xIuoa\_ZU:<1])cmu'aTSr0\Kk;zQ^BcNt]L>T-%aãU")xSVm+PW#Z9WU-3Zx26AjRnZ%\FY?rWC8w.H6L>8)tHj&sm+EN2j3C*D#C2.NY*ãU"G^8.3dZZ+To:?]NqCi+LKVGTb=]1SEF%DaLcMtB1p0SC4wOZTJiRH8pFo3bbv+maCBom()TVN2Zmu3qni1i(4%3NFDdaM/>8sbBNC+?D.xãU"b];b0bm99.0kG\LSgc4,AVGf4b9h,^7XcKOmDYt*Pg,&SmSaNGTWd7s8]kU*dqyãU"+'pTOs$:%vY:s>a1.I$5M8Dk5JEt;=?DR??$HA6pgWU^guK)\p,AU[iGY$u4Y_uSf]r6NãU"eg9YHcoer$3puZ)Pu7m=I/o&p,Wmad;f.haTJ_yXfiM:a/CuKJFj:e]ZYãU"\T2%O>sMD/WiucHfu.Bn'I1Gv(:;?LNFi>BV4(=ti:&o'O2.$GX:UiX*0RPd=6ZãU"E[qhwT#O6J*hulM-SsHZ#9FM^4)yuOgGg-Gx%u%p()9%%%%-.%B?;sFX5%)Md(%ãU"%%B.%%%6%%%%rnx%hTgq%xyux%jySg.fxtz;,>[]^9Ll[FdUf4g?EqCgnOUNJEJãU"Vg#>Y9q_SE>&BoFJuJ\/#4qVPwtT*B;S2^%d[Yqm[:gDnBgH.\4>WZ06'+uWYAtãU"zPd.Uqg,S8)r=elfMOCn$JxSknuS+Ffrf\6g&y;1L\57%;ãU"Vz?uM$v(k\vQP]FfG%8\sCgPBwVwN;5-t,sm\nc^f)F.A;=tS/)d6T$(/]/0UwzãU"?=]1K\[F.oA*an(zW0;PGj?bbg,(8W(\Qn%$JJ[s1Yva18H&:^SUGa+c1ULFqw=qVhPYfW#W;^sl233=JkxiLGIXTãU":ZhPx&DBA+)AvIlbdn%F\*b?IRKvsM+39.Nhnrv(N,:8%u%p()9%%%%-.%[dH:FãU"PTF%q'X=wWs6xZW%\lQ'bFMMoAk%FzV,t;f8X8B&=pP\BK(5w^+CsCW$6,Pddg333ãU"#kq:iJKE:7ZCDG(rvbcNYDY70TK#cnG99MY,=SjZ&8sZGHcKu4?iZKrD[FW2*i%ãU")\EsIFq0iWE5BJ0sl]Zd-y]:Fxir+TV%/]7_)Z#,Te<*+\Eg-HaH^,h3QoN7_iYãU"1dcJ?;Gc;EXI<>4Q39=b/<>2x>(9PCyX^cid>5kwER0L(*7)sl3*Z,'a6Ox#+R\ãU"-x*(5C^&[Cd]K_dT)9Ov=7imoG[SWte1P>]#TweApy'PG924cDvB+AFN'.iR1>RãU"%7IP[,pYTGc3O'8Uv'On#sxOLHdQ-0&Ce>ka-f==qd#H)(1aNa'#6re4X%.2htzãU"RoDD$tDq$D?/P1eGw?k9KVi7-,'L_Uu(95-,]J(MH_(JOIxL#pJF_fxXOHhVRurãU"W9w;t,:.5[LQo>ivb3rg&i4k#lozm/TPHX1IRQW$qJpND2aLm533_^*d%5UTa4YãU"?KG38iFPSr)o<$=)A.[#UZV3b/-MUmCha$3]<[i41ERYRS[(AAqmB=)]7L0$_CqãU"5Y+$99NA%sbwvs$000Il?TH9)vA;AA*4?28_%p5c%y_[vWO$4z'Yy4xRqGURQMAãU"d2tx67yi_C)$PoGoe=aGl.AlV'oQc['>=>S**l;f_lAi]C-BH;oTkFu(F'cibYdãU"JhKis0h<5yipJXaOX>kFbaS0D9GGKQ#\E1)+#tu=3=hROK^7kc\FgD7H0Rj2N0cãU"6w5[+?XkU9[&)?JMyF^xtwk2On_ãU"SXx6ID)Ss\uoJEB5Z$rQCCrJYXf%&FoOi?TfnK#+r+3ãU"Z%8Z/suI:9CUtSm9):yip*T)SxP+<,Yx$6mf+lCq^^gDRo6E?ZMS,(uo^7E*MM&ãU">IhAk_[r*dgL-I#R)Q+jiBKoF&DI\3>*ik<2O-)aDfXCUPhiY=F5Kg9C0Kt2M>sãU"2JJS+RDTcro>k3RUie1r'sSKj4\mT[Octg<#Oi%eMVf]$mZXetmVO[7$EW52okRãU"4,9=sIhcq\W_u*Y0O9R;DR+Sq3^]D7Q,E&Sv\Eqmy_;os#',Sgtq7i(T%%aHU67ãU",&Ej_)w#VO3'4JRtRaE;(YR]8TX)bS=v31]ICZr[lShZX_J4Zot\eotU(Gc\]uSãU"4r>Fk\/-wu0SrNJ2Ls2GHG-Hw(u%p()9%%%%-.%qcH[FVQ)&)D)%(%i1%%%6%%%ãU"%rnx%hTgq%xyxu%wWSgRfxF%2<>qoX=vWs6xZ(x)&;nXPO/GBDJbfUP,+%\*Q-\ãU"\Tp(N#:pyK1QQSNN]$j5IU?bvA1>dH^qkHGlsW[sp>_5+MVtDF7Wd/-jm_a&$YBãU"Cci)4C_B:cm?X,9MZXidjD&n4ZHH+?u(]Xnak81fh+'1rQj5%J5KUe^f^86YBlH),hn%CãU"ajVigIaW1Ho7J=Go\n(QCOaq=PgiiNRAJR]eOjYUP*eaRRf55Rx/w9dk\)Y7\XDãU"+ElHgt&>B#F\[3M<1-pYf8+>p1dpFm4$iFnN,L5racBmj_$%*e9e?USMRãU"e=qyDL>5w.bapG2BA6>.y1Wbi&S[(AAqn,=+q.<0f_#qCH?NWW7wJOJ7C)]#F\k6^SGlTm3/wxsD'>UQ5wGf6J[,/EHGH%5ãU"SD.h8?.(HZi1QJXT6uH,0a'K.CKnZC.U*Xm\hDiI44#r'CbViDMlblnlnB3E.,jãU"Rcs\GuEi1eDMa]lY\KEx\:Y+wWt+-j=(?K,_:/)c*gMXd%pH^A'yG[QFZ5wq5j3Gp>i^3/a](fB+e[(2tKwo+.3Hg3s/'O]F,'Q8_dYjRQnNhKGãU"E-v?uD/T;Lo6iDz(-Z3aTAe1'whd%mk]E6RD0c5JmWu[gxFM#5gRsSSnbMkN%\sãU"US+k8'.2Md'f;1$M*7wjWm4NhlR;5XPr[iYlRUdKkfUh4GDX8_rjFKXKF&C#9(,ãU"Q.4+6VViJknUrlh;e$vgpM^F.6$EPP:0KM:W,NN''Ni>D5\XNhfl8M*d-VFSh4eãU"260NlU($ZUnmFo>XJHW4cH'7A^_i$lfup>hvTTYp\'e2+hkGa^v7C4rãU"4ckl'wfu09.olXJw%(up(%)9%%[%-%T\KUGMT\$8I[&%%K%'%%4%%%%r%nxhT%wãU"jfi%rjSy/'yTwq^#Q7a'fk?URãU"$g(Ce7#>YS:&?^m^ITZateYaGE=ngpE2&v1lJ3HDEP3f.UkE,W(sBxBLCQ)ejA6ãU"t9eQs,rbBJqOJtBq0/NM6L1j3Tf%1\bD4&'L2ANax=rB_.EcãU"A,'#gdju4b3;mc+q1B_Bk1iulbOVW11ãU"ngffX=#XR0a+P[HxKJ6)ctmA;S:Gn%=g=iQ5?j4gQP;G>/cjoI3^[Qe;9+<7BpQãU"hXIHphk^V_=>E'Ude;zNAsr.hT05B(7ANcCuz;pwãU"9e4ZGA3A>0u>;a0t#Dkogved+*KMd)dmFgwUt-f%qZChJdN%lj\-vR-K7Q88Agk:r$P78/4v;urYD2IX>-k^p[]Yf-tqe7?Cn=Qc,aAM%_54A4KãU"PF1F[vnpAUH#BYa:tonH1G575Bk/J*h)EJBIhu*tev)Mgv5o*bDu%ur-KuR?reDãU"T0aTQ3n\FZ)822]wZ3wqVLQcYfh7I:hyq:gp(AD]9px/013('Xn5C_;p8eXG')jãU"k<%T?4XdM>C%JMbnV4,X,2)S(y/;Lt_V>19cLbYM07x&ãU"],>pK_5076]AbP-fxO:VUkH9pYMt?$sE)8$9VX<^ycãU"x*61uhHl82,s6Am.8]x%^O?S(bU$8ra*.f;j/JI0eãU"-5q1^s:d&3S'\4xR1w?^Y?Uo;usQxY[./WcQ[qãU"Seh$6L(=PNOoxjrc&$kLqS;b<9V-edxiMh%zi0U7Do_$3P2vF0u)af:[OSJO87nãU"ha'E0sFfa[T[77k1tUrAW]n8A9?RWts7[lTs\$g0^.3Y6r*B^3<$ocwX+$j,&bgãU"6m0\*RE4o,3Zc>angqUZJ>g:7>XA[SA:<[QO)0f9s[_Vg[8Jr1j0+H5BCmN?aV5/*8)J73l6bF1/]8nJ7R6QS059rzG/,ãU">nIc)8Tq%zKs,#=uzq7(rPearRR#?n*9M,8O&>tO0L7Bi0fg?+Va4YãU"'F$Sahe/rbU+2:b*9O>iJs59I3B7%9A\-2#ZOjrmF_kj_&p4Pg1LWXDQ0+-1=%WãU"\5cF6pa;rN=a6&vAh=(W3?d,E0Ug'#zSsg3p57rIkY[rYt>?#;5B86L)jR'(;8PãU"O=#_9e8lC&/>ItsI2SSI>YAk3:Q.D9H=mqGF>/VRj=*iGRxiW7K1:>>svKMX&$.ãU"HRTk8aIMKa6>IfFBlw+F;-_:.e+K;bmJMtZ6;40N[^3?K?Zvq9G%R(Gim?H)G'HãU"B2R89w.MGhJAW194F)YP#TNoGX1X[-]t&,dO1l4SRjH=6iu+&C&UFQUAp&[+Xv2ãU"$VQuR1E7^XvS)GKEZ1=E2#)\;tU$84tN6#aDo%PRb-*0>+fXPqãU"kr-A1Wn&]te%Nr73*gENDKrOJDdSMc5UleB$J)1(Dk$0D9.2#5WlHJFjhCm3_+)ãU"]H&VbiPD]XxHyBXIr?+F%_1s5pT)-WW)x?/5NYg_Z_,>W;UIN1BBHp0%0+YrYX:sF$jF>lJ.aG.L;aUSRYCãU"z6QS4jG.+kx&%*/O:&YkB9KrtS4QU*1w:4ãU"$0vqFZ_j'72K+4ID&T:y.O1)o(qFe5(R&>>0oGK)7w7Sq'al/ObH+l(MP^2F']_ãU"8csYg%p<2?qhWfsOS10DhBdz?\Fpb4R\PZJfXt*0xs'L?f^DwGSU:;^AeãU"%8FTLn&:A?Zo1khkCbZ6F^0hblm>;H)2/n7dLUl,pNl9Jaf>W>ango_=ajc'*HyãU"xT,0,z-2FB8o00L^d8l+Bpbm%lF)NY-$'jICCE\c5VCi$7JzM3x1]m2ra>[Q[ãU"FY\qUJP4M_ISh>\cjxa72zYF]dMZSoLRiL0lc7)Dn(IbCM)?+ãU"Kw3KCIB#%bIsj)zc.P/bJmD8/sP0g*pl)JcjB>1&%G8#Lf[vMzA.sQGA1+-,e3RãU"1'-(Rcjs[&6S=l/<.3BQ7s;EL3>0$TWaYE5k=ABl=z._vAkF,pOY\c8,kZp%\7)ãU"V3]<8-WAc*vM5[k2AbfHRJZ*trHuF'6?gZ62Lp/[M3#SJUoDcppfA/P^:Lon?ezãU"-G\0UclxRwv>bctAb(k)%TS4\*z'5qUcãU"$2HC:^4]Rs>X;rSP'93GVbc1S&1aMeh)t\<).sh)FD+ãU"'W^ui]lR=\qBMm9gCmak0,$1&H_a^ueF(8;TZ21E\lc5SvpJMJopH?FMP3]US.^ãU"D?98d6+gxd^jge,WuY:sc=,(hPl6P'%Z)=Td/H_.R%oHCrbNW$5Rgj9?Gb7OB8hLBHxx^hkl4pp\28F[T25FUcWp3Jlt[dFgg8Zmf\$ãU"wTtrj=2Q1uz4&\d\Of#(nZ#BerDrT<,$o/rTasM'boXrLgE19VmR$LD9wQek^m;ãU"qCt(rV90t?c9*9.xv9,(JaUo#B;vydKT?u[HG?N8:D_Z#]+/EbX4Ko]w)?_3xjoãU"ZtsT75QqVLgOi[lUP7F^Ab^GDp#CKce_m+/aGAesm%FEzNU)3RyZKbd=H#e2Ct-ãU"O)%qwLP-?T'[9CJfoe]JvqL%y1NaTdnZsP.ptJ2ie%gEOqGAr^F^+xkãU"0/GcohK&3bki/1QVyqpDuP=O/1$?:z4IjL1IZjDC<,VfA]u4v.ZNs\V%wn>]HãU"W.2d_P5']WIyPOukII5Ek6zAJg:xZP9+]gmZRc>Rz$#*qRj0DL#(w[LJ*NMqw5I$d)WNMjMSDk\Ku8k[,oUub;->wYãU"rZ#9a5>/ZWGipph3TTx-=5JI$3Q4lssl/'k0UI45aAs_TF*QgaRt+or,T;B&[^,ãU"n+=%PO>^l[4THIw$\1\mrLJãU")%;xv7:*827jvToCJ1F>u(po=U)5Pdpk%,fO&w$z#Ehou2Fz%=cOGHG4gLJ:Ly4ãU"Z-ii<;NVaPWR_&;Y.P<,$dJdpI+]BgãU"?$&YrZcH=:_gHbf9YjA+GX.4,ddN-kJ$[DW]ZE=w-6Zg0pD[?9<0loA/ca[sUãU"3ZniFoljcI/GYa,6XAO3]R8A(GRr7?beZpIQDKTvqmd6ABq-jb%&y7b-iEy3NO$ãU";6wM'FJYpStDx/pM,cjX*9m-,LI3KZ_[vcXjreScd'h).h$oZjZmZt0E6?Yhw7YKtdxUVE'mUA45ims^?4b)WyR-vxãU"0u%p()9%%%%-I%tNm[G'Gl&433%%%9_%%%5%%%%ijr%tTgX%ivgY%ZSgfOxV*:tãU"BSAKiwMyGkNas[j=#fa/U5x\&vo-6mxp)P;_ZH\+>?k#OF*a's#xsL7bX3%p'RPãU"R90OWQWEt$hMmvJIdS7Vht-ihXTx_=N0S[NKf#C^Pa's;tb8Cg1e(%y\ai,jeBXrwwD\]e<#[#y0kV\gVahhãU"1e(*Z8cI/T4('hDeVrW:ctM5R9kJ7_40hiWiZ]=t%x'vVl*mb-),kO:gm%pHmK]ãU"Jbi0'0YO-B*0c_JmD%[:V]_Nh%Of9[b0'slGj=u&cMpLe-/,9aVXlj+4[S/WHo4ãU"]5DhTNTndnM=UW0\4o$-%#HT=pK3F%H4n;u\C&ZFX7)UCRgOoKMI*2CZ>Y,q)IuãU"UXu^156;)k$[f#gBR/+i>]-_;as9_*Vo$S89twIk9B[)CQh]eRT0cO,MJG7'8hTãU"qSmEJW,\$VpVG4TD5Iod0ARTR0AxtQTKS]0F53jR8(=rãU"R81kxsM=qk;,[:d;m*jovo.$]y%<6kh,(_Z7':8.wM(/yv8cK.%QNIMtH9$pX>8ãU"ETs7hR;Ii[IozpOY*oEt*-5FDjuj0.O0z5(+r]/,QVVunva.Q>Qdm+8dHSm_3[IãU"e<93CCKK\j027a>UQl3j?DgG:vF#s-B4(.rZ6h5YwUT4PI(#94X0'8MalK#gVc&ãU"[-ZcxgHunL\Z:KA0'T,7keDO0sG+ezMãU"dbACtc(I3Do3owkhalZwe/-.4og\pcu%V>m=lIcou2[k[q9G_1ivpJnUB:ãU"NI8BhfZ0O[jWWe+*S<>N*wcUF'w>WO=N8jkjg?Q2t>O+$w52j&x,+ZN]_WZ8fo_ãU"uxW&ODMi(0S]wZ(qh[v97FL2tc(D-5T^yJ%Xr3O[zHdlO(x$P/lPFJec8#Jr*J6ãU"EL#N)+7kh6l>:9IhO*9]2q>$%k_$syrVyuPjCY_w]^pq-CQWE>>q([-b>9,RaPQãU"*;JuR6^aWi.lpq-o7n-hSMD_2S]CIy4]E7Fo8D>pUqeHG?2M88.*fãU"Ct\*'A$]Qpb75hk/Y$80'J4CS/:9Bxn)$xxW0Am^zfI)N*9/);-stfT^F?Av6VrãU"qpUeVpMK/nE#slLN.GaSR/+Z#o]*dQA];GXe=pn(sOvKVosEEgãU"'7Z6jlx>H&LEhCH;tpCMkJKoH/#ãU"FA>UiQ)J^;*r]gK'hgUL30XCIqsBqA>ZRfa,Ot.0F*?GiR(BwWH,T]ieQ<]rT^(ãU"423[uQ/Fi$.k,ArvYF4?UYN63aR9=Unks8eceQe%s1n&AC<+Mnl1A#gmQram^KPãU"wZ++W]c'/'+0*A5UUf-$)O[5oMcZ.GKd$]ug<,eJ)j[hGZJzQ>NDN:MlRnmNJ,^ãU"O-[05Vol7MabFJP/qkVWfIR#t;SKK/LRA/8r:U'9a20ki6Rgx0'jO:SXmK8_>IYãU"9xLlcLd?l&MD/a]Zys1nGggcAQ=JW_09a1i7XJU']]v.vg&JePdU*GnE'>DP\00xG-MKcB%pQ'Xe]g50mE/L'%9r?^5i7HMC+B]T;IHV-O:as*\P1^HSBccãU"VFK=WJ\U\o>1T)+8kXcFvrQtEBhwvEbSr8d;Tq2&Og:3#xV0fjLYEãU"4m>tT&E=kQ'3**Xjb()G97>:Bjt$]eCpwQY0Z=j8QBUjE*nsum9:?*YFHh+O6[Ut]p96KKtm+DãU"OK^g''buX;Prnv;KEBVT52J]s.bpPaU0.^7mCku71[_0Ad#L?d#*&4Q9JRUi\BQãU"_:MPUAeUH(M>YEpc$NDdLWnV^k%PA1xCaLd*Ue8\>BjEhbIt'+el4c1aãU"#53o./sHH4)7R;Ct%[]8TBokNZS0ed].*4/:#W44s7/,D3*rZ*:5#Ytx*=77xSTãU"o$WtmT(jXc^W-T;aIu]X7j,hcZ*i43ePxltU<82x49s27awlmlMvooU:kM(j_DyãU"U?q);Zj0$lM]?nCy$^H2Y*V3F4:m88ãU"Rh0WWP'XHT1W/J$c,9b.7HAFUYdKfbdFt4G+4(CkgaHr5U[oU+Ax_=;kb;qH34TãEND SUBãSUB V4ãU"'RYM?fLhh8nL,lifx^gCuRIu2#Sl1,$5OT4?v(]Dj]GdqS#&XqN+ãU"DAwHVs;NOVY]t3[jI7^Z$.q_3iNsI=%U9roU$H223b]x=V%b\5kE,w(89iKe.ZRãU"*VL1b)xMu=bEd2h>0n)/wb)Wz?2Xl(lceUNtNKK$Y)8\M^$5iN9^j2R-ggQyj4Gi*R+&xjo)pSJ<]ãU"pXS\^/wasn&,Qc_Ix__(SAh,0b%\^3/7xAh6,;h2lbEuV?CU)?.t)&zGHK2&l'CãU"&Uc)wwJmznLsU1rBqE_jJXPYUz]P3QHa$Zd$ãU"Qq4UdCR0VUG=[;,ZM#KTãU"j)(N>YRu6mGP/WGH'b?ãU"?6?M0dy;gkEU=%4a<)^5Pa\+no$kS1(a)fvY/Qv'1DVCJpãU"Rc?CNpULlKiTtw-A??VbZe>.cidLO:h\3Dh&h%MRtOB6YH4)hpkCT,CfHXg;r%mãU";:]BP:]ZTf]drPHkrDqqB5B[,v$sKLWJ/<>wM2n^qh[-*(0^5Nc5e^Z_ãU"=]F]05[[x;k>lve+wmmB7xsY6Qe/0'4Kwo2xCPpQYF9v.,T*fJx])([Xlk%Mr7\;>bdE:cXZI^r^0ãU"[PNh:\btd/Hzgn&0Z/v^KV9vtKEX/gTF'n3iGnDGq%vBmqGDMIAxR4h9]xrL[9eãU"MGlk8xlZvKEYN,)\,ix&u%p()9%%%%-L%*NmdGKL0++85%+%[c%%%6%%%%ijr%tãU"Tgi%rtvg%YZSgRfxV)qOiV&so-6XxDS-r\;GOW&*03ãU"%Y[_6#7J.2cG(dV(Xr\1u/j*h*&)L*>rJmXabVbV#bbAMtM>8p9h3jdC1'W\9vjãU"cl(Fked;?bm(t[vdQY\PqA+C:jA?V?gA_]0=>Zi#KnQwe*bA$2kzj2$0)'we]dAãU"1dr(4-P:edA$)%P2xEe:gLS%u.PdKR0Pm13/Q#00%ZZ84c6jWD_NLoj=87caT6SãU"6W*rrk_T8GW>+Fu)Ca1Lh^jz)ig(gj%]:t&Xns61L>hHg=?U?ErLFWqn)MGpeQNãU"83PP[+SWNv/\k#)&)M8WbgrEC1m6C1uSEaG]Mm[x9*%,'ECG<2m#a#?kILZtKrrãU"5>-*MC?'mXHZ4N#cãU"1nT[Jee:)KI)=T32nO=.aqaXB$hjzu'L-#6kR/Cj&kYR_=xR22J0W\r(EGc+rkc0ãU"Ot^YS\cBO:f193[g)GUIxhEnMU72Xoh9/hF4rFS<=nj]R'ey\sbk-+S>8F1UIY0ãU"ldO]>5lD/cKikCCR^jOlj)'QkaFgSkGIO]8w4ckyJ7k$/EuP=yRO4Zc6%<=AM4BãU"uRgYqN';F#;K*/r$e&rrQI\oa=Z[N4$uNV),A_S*hB1>RiOGk&ZaFoE%KEF.31XãU"1me&68iU]h?[u5gk_,U>nXhF>=ag.FH$Q?7ZK;B>tb;0O;hmNK]/KU9%Wlc'#a]ãU"*#)JFYlzA%KAet41:q#WWc'\dXK_=EMw/,6fnI2m]97S[LCC+q'tK/%wj]vrU9.ãU"+E*X=[#/x9tp&t*]Qe=YB_G8JP0p,Dhgfd-(',kO#>-oC8o(3ZHdqk+-+I/\x#JãU"\Mf&*yDJLS[7GAM.NKm&*'GXfh6Np,kx-hPLr,tzs^R.%cRkeZdQ/bA;<.rj%FWãU">AcmF2DR-1cGb81[1[&M[+AhthSZ4tC$qBnqn.9p<,zJ]=(rnP:W=Z]mnmHh$XlãU"^x31QcT2>1._fG>w3kc:(-,9kU3dnY6Y&Vn?ThvcPA(bDckqP7hXk\HIruBsAz>hLm,f-kW<**(0uE'G7XSXf>_qljE99^ãU"D94q6qG'/LyXQ.YFg\+R'0:bM9*MlWZSCAyh_j4khr.]ZgL*Z-HBlEYgF(-\i3v8G]FrAFãU"s0kWoiR*wD'Mlsn5h5*watV7dJywu]$g'A1U0/gC1+Kz\k0^v,M7hAr:E41JG1.ãU"qKXB1LnUMmQ2S#p1PE2juu=,e_+/f4MwtqNC-&-9WWj:'%uP))xNB,KwPn)l:4MãU"49LBiJMG$4LwDeJPNW_&PDXdho=+4[qtp]C:2#P1$V4gT,nDO7R[IQV$&%\#QOFãU"v=F6VYA)+C+LXS3-[0kN1[fuG':=j#;FQm7WOg'rOQV*O;iP2xdO,)]eV#X-1)7ãU"hch'?a93$%'5Ij\ZSD0rZZ6/wi+V*,[=LJO*Yg#1_X*%\*wlQcH(zqet)*?4C0BãU"ZU?g1]_tj-?w*'SAYampZKbFRT\3M&*qI+x_)AghC*%9G6Yl'iPP1sdãU"V%zNOKJ2^h+yG6N#h9+:mC>U/t-ãU"1dFQm\3A+k3J$wPthW]YU'[P>AJxP.mR&AS?>wW-Y8aãU"&bN-(w7P=Ch&KhNrM/n-M<%:VkLknHM43ak2Q]Ct+*C44?*1$81D'-crn8CWjK-2Yls*-C1Zf>,&USI6NQpUYD<*FkXVh'mVãU"?uV9>Vq%7pYa]7_gj,t]bJr++rsbljfpPvWHxdt:j1>s[1^n)am7(r'#OE#jQlCãU"6=s#XtN6.fJt>_(oQ7';#vF1L>j'kg+*de/b[$YZt+7?s0LkC]n34V4(+$)in8$ãU":b*3.LFhv3VUf;?AIQR18F7Su(YK]m.Alj#GCt2:\h^E=VEb;pR3^1AH-Hg*2F1ãU"gt-cjqIFcW%.QD\AOS<_'^T,3k3cA)S]*.U3Y:\mqbW9PuG--/*NRTn'%XDkN/qãU"TAFRV^q8)Z=F*a9(C?KEr_r=d=%mK21,-p.q3A[z3jo[sn9N=pq6AsgL-Q=P:=+ãU"(p5qy7/IpyYoAcKIxyAbbZKt;*+%Q6z3BcNwwhHcsAk3YJYHrBG?EPCãU"UhUjz+G=l<;giYZC\r;Dv)Uk&QpF4%Kg<^j#h0qfT2(W_$;;r/U%9^en$K/6RmoãU"Q$cLhJv3Li+22pPce*EB](o*A9XjInIp6?FJ^XF9Rd1w'xg*l6*$VyEwa<=6kUc[jOXt-I^xhi$G8<(2rtOg[;3x*^0z#i,#ãU"6>t-d&I^lR*p0ea94#'?%Sv*J+/x0dEãU"]5q?4Jmtt#d\5SvAgJQkW2B)QoTMoLs>8&pIi*aJh[:e'9AHIrNTQ=_bb+tU&9uãU"0;tro$E<\UY[.i_HUT0vãU"JR;9'l]k;QpXf'8A'18YR$KURq([28CL%]'hEq((DxZ(&=spL>LTTyCB7D$6ãU"/DcvaJ3mgJO_0gqq:$kZCKK+:51PND72cOX:[6-nfM+lkCdl_1[ar6]p*S'apQ:ãU"uLNb?7DUsohv1<=Y0U/8mTl\u%$ABBFHE\sQC)HGO8d>t3wn_;\Ljl?r-Ol<,ZSqZãU"VfZ^0h1-gxd<$,D\m-W/5G;mBJyZe70^?V$8Y*F\[TLdMOInNa2+THTw9;(bX#kãU"t\P#2wu.xqlETeU^<,>SC9#Cp+uRh/E9jd2*u2P?qeYlRtv3Rqp=.TL(D7*_YxMãU".B6/nc;t]kQ:zbPa'W&L?NP:n5%Zy9t/E^Fr+?v>Y,y$\fY:A)Lk#wjlN)WSR=kãU"]F4N+W]^#$48V.jIf'E3g]&KH5_yo]'+sbyK>a=s#e2hD;:MP%MP2QoT]1f$RV0ãU"IQ9u8DiYFT\6bN5/\U):Vmp8a6i-f0J>N36>pi7dglEYVD%SvX*haQv1wYPW0MvãU"UK*6<$h)v%k7'XluxCy*\J'mCV1gjbrfH5X[DE4r=5P^\5IpX8'fkW=PS7VR>UIãU"_itEqCZ1dj?soX,&itlt+NaS;Ij0Yn;Nv7mcyMf;WAuujXtL4FPbZK6_5y[ukK$ãU",_9j[-OB(;(;y$0QfWW#&B-g9U3Rr>Sr\]GT6VoEi%p:Y?,\N/_(zbM?#lV]Y]OãU"jB/jrr>)gB$*.Elsz>#I=zzS%rfdiE)N*h(N22M(NJeXpAE(mVXl_(gD1JZd$HEãU"No[qLTU9rwYpNhb/VBEBQVe$8R?BW>'_tbcqeBJW**(yL7\Z\V)Ft;R?Z1%BGjHãU"5UMfrAf^KHVrTc_KO[_JXenC$TjV;,IcuE),>eg28ELBznh$ZEaZ8+z^nFXUMdhãU">g0tl.5zjn1X-#bbE1*TrQh)IiK0E)u8#9E-V;hO1pYi&x$bj6d/VB(>V_t;Y9\ãU"K].OOVAGJnDJ-CVwCKglqE,6j#K&mBm+<>zNDuV$[1[ZiL#p7:4c(Sw;$ob7W5wãU":%J3U%-n-;VZ6&&gz[oa*X?7kTpks$ikf_vECnE-5ZKEhYãU"(1L2.6tdG1x%+up(%)9%%%%-%p_NmGr0e?mL[5%%a%d%%5%%%%i%jrtTãU"%gXiv%gVVS[gfxVh*:BS=mOwc+zlDs$5#'jaJ3&;Nl5yS%5VZ)/J2hn-/WTW%YkãU"#FLVaW\kNvmLfV7a1s=5GgEOGWw<4Ds^KPcL$?moV0uwvuLG*u,2mG0%sãU"(GR'2&5P8KjC%Ni-Ga)%=hfO1QEZK>H,FL)OerOwFM5ãU"R='f:]1pBI$,:3Bqgp]hKQ^eI&Yj8-xX\:#C#3&6X;IH*1XknIVY8&NSuUg2#A]467n?:ad/l;5VW'E>T/B46]V]UqfU7msKA7w[)2ãU"ElC.dcTV0sW5yMY&\#lOqo[3HaMCdYO8#fN2oPbZ$b?dtZ-+OOG^ferX'pãU"#GAgm;ON.+M7.8g\0.n[[yC_V+EuH_snV4aPl8=fx]SqWDM=R>$d,2bsj(vsQb$ãU"*$U6=2FfeH^a2v7cSfu836&XD9Nwb\aaBU[>rx?If08gN:q4.V/f(+zTV73tymdãU"=;hb,$4$u_5V>Tk,I9sow?nuNFiUbEsh$9_0WzG:FRFZ8[V51xuv#=;,a$ZD^$CãU"S1=Jk:^2,UA)/dF=d:Y7W>;l**c#jZqyv5%(B&Yz>en\o[XR##Jdk,ee:m>C8ABãU"D2h(=/XeiQjQ&m6Z^[(NK>Pk$J^a1%qId#FwAtt/Ndqt$r<\A^_fCbI+U#S/%%sãU"92D1D;j]pGj(OIf&nY]e97s.HiuVn.J0?'2wBD('BV_mbPZ:a9]hAEbb\OWN:-'ãU"QnFuJH7z(V1BhfZd)9dml[*w)XjkSF7%1pFE5KF&he=e8a#QCj[fOWZB\SjisL^ãU"58ijm<3+A))R1E*if>]m+dx)3LFjEW+?uMq+WS1gY,%3pdONUIj3p7Mong0kxX?ãU"t>xuL9nr0d\c<]ceoqx%rgFPlOn\Zrh.oB\XyGM9>hwKpCunJKJ2p)rb[;%^t-)ãU"llNlr.MQwBL\t+3vd?HNyl%&&G'M'FzqB,l=W>A7.$O\Aeb]:0]nY<^\ff\]ãU"NkUw1?Y6ZqGXhq&=0;>w9b-54RdK^e?C6Tl-oAjN937#kckw3_ueY_B02vB3J,DãU"kNM$q^,h5*sHo[)n+i%ULONTE*^,eyS4n[vyx:>Av1=DAUMv\;hnx-XIL\:hctNãU"I^RYli+HzU9>2gwN:AS.opJu#=s;5)BR)zuMnvMkp0r^t7/lC/^&rVr9^)-0$aEãU"i^,&CuU]5it$b8Ge(CP*Ayf&0g&).YVv.;TIEGi[.97#VVX^0=vE)ãU"WN0MZ(WFNAuz5,M3oJ0Uc:NoND*Wse^oUmvmD74*T6S+dA%Vt>8Cg*.l31hk^wGãU"-hO2;(OA6K[<2PH>'&:zZhlIxZ-7w=yTMXOq.o'k7?]niK^,(RlhdDvX/u:ãU"BvT0hp#>h/v5/'9T6h[u;m1RlKh]2Gna&kiSv)7Fpl#/H\1_bT4p#x;-[b41%S<ãU"#aFK%v](\4=lB9YE#=p[0Z-_gVk#ssv1i#UUYUG)iPiUABlx3MDMMma8*PG^2lYG84S'/3_-As#.z'YDSwiE\RvG2Ci:Tm)'??GW/-K+;#go/;6?i.d0ãU"2_?nj6Vk[6Ggf4p)9sr8V/eZ(?0iX[vvPe,k;FMrR6+jRuG]Y;:>r^yA&UP*.qM^\RLZuELmãU"?E&bV9+0*\bjtQTcFVt63JckE]+q72h2^]MM,.C;djQ5:iMlP^NXT$f1q6c:i?$ãU"JH_^^6[SeJpc:6atutkS?rGk1Vo]_Qgh6HQg,R30?q4Df(/AXar.Er;CSZuaRf\ãU"8A$#LU#Ln4L:?'H0Z'j7svJe)]AY;Kjr^$S,/2K+1jYl)$dt\X#aapH]nT_=.W;ld>ABhkPrzMFsd<)O.hEA6\X-LCnboF'_P>#Vn%M(GjãU"iS>uDr3*cLPuiTe,'+[S1wxs:GTd)4&FTkkviãU"8=vIB:gpzn16+SQbIrae\[ul&0W,f?$%4*A&$%f_[L-/S#=/E4-/H=$/M-/\)d1ãU"U.])+d?I[.hH9d,iN5M_(f-(\WiQQmgfV0JqDvfLV7bAupRqVPMi1#]R1]t7de?ãU"o(T_c:,(US.]X3j.D0bpxl/p5*Vd6&r&dcQ8Tmoa$l)l=TCkWM.E)jpmxQ)qFQjãU"UfIwk1,GJk5G>0XfS/i-PajQFVo:['7U41Onn:s$'H-w1$qdtvJfs.3K/y0SEBYãU"L:.Ms>ETP4BYFcRf^lOgE/%Nj_bQ]fFw7W4xrJ4[]U*_^b-=6nEY5T1>CX7pRbfãU"ZQ7,6\#&u,8n+hutcsd92Zqy$F<4?M[]k^1yv%XSjsF;:>D>Vkl/8/p?D>_PDDCãU";a*d3wdY:tJlga%&$O%$/MtgYA,CIf7T&w4z\6JrZc'jVh$MzA6JhCpr3q1fpnFãU"oMh:er$,Mvot^Y?'(MGBO4$__wpRfu]lJ6*3DXEjEZb.p(,4,kZC+:wdEe\%pzcãU"Psj%L2\&ikbZ?Xmd(UjA\$njn5.[Ha)>9V-9*BNCV'->TDM(y$d(Q-WvG&K5\n0[bCV<+PHT2ãU"vT[M7xq^Xk-Sy)nyn9)\r=A1j:o4q:uu(06>$l6.l3y\f;=>_w%rfPT;)NME'N3ãU"h('NUdPJsZN%g8GDBr_Uta/l3tlOJ-04h$xPD%%ZgW;vZ3a5bgWLwlE(XzZ^gRfãU"q/54)wsp;9?';Ct'oLG#(*(+nF'7Th^NOrC1AHfcWOcc2U%j\cjjq;,mB2T0Lh#ãU"U#Wg*d%P26%c5:KFoDrb8cB7En#1v;t:&RLx^_s+rãU"MRS_X\Z,RM2si&wQ?K#YA)nCRG_n=c2FX&hYCZgk-uN<3;H:Y'b*-/8xu\M-7;hãU"fHC*[f9j]';PLL$V;._sLn-=+FNB$YuRJ&vNp-t\ox4S1%[4Zvt8T8d/b+_%uQ4ãU"$QXh)&P+HW\+BjWA%u>DD+CJt<>YaQZ;]7m=u\\CWHZVA6ZHUrYuQIjrGHãU"Ee+_<7U/&ULLF[70*x4n9b4N'fejY5N3qL7BzqzjCs36H=nIL4V/OQ>w'ãU"#.dOt\8t^eT,?=tz4s*P(P04oWBCVdT9jtV/emX]Nr/GD'FPaI31ZBcãU")N1FLVxY#(KrE)*tg^4^8n6g6V1\+Y[3dSx)jqYuaXZZw$SI9sh?Zevj;V',ãU"+#psF+[-3s>#&BP#8af3f5Sgq5$1l>anbvf2VoU/V]6I;27_d:%gnGAJTn.tjQTãU"abB40)=\5H\NvInzYspBsYl1c?u6l*SFYLpux]8$3Hl(;l&Zbaya*l,bu<^mG)[ãU"^:+k(#V?e4#lO.Hkd0MxBYn[>Gcu^Zjn-av7C8.BXi(Y_$2r7rt\\O>=hn^HsfNãU"bCMe2>2nqgnpr+x+9A8XVN)=C:gwG:#L2V:9fx1muGsr&Vx)A)$c=;J)&ZsD]MSãU"PsAi^qBY(]uupMS?pD3'#PFQaH%q.(Q*\9dD9=JãU"t?pFtt8/C?dyJG#Xw&af/cXD+Hx]k1\6prBA#2R:u^LFaq8^swhJRYLMLDf8/.aãU"9weL\?cD+P^KEh*_.up%()9%%%%-%20NmG>QH2r&'2%%'i_%%%6%%%%ijrt%TxiãU"r%tvgY%ZSgfOxV*:>BS??lwWhw)V\L3M_/FD#f-tj#>n-V4N*,h5i_r1+pIimJ[ãU"I1BYMvRFSFJ&Sr)$dmrExT;h-nLpJHTJrc&0Tq-pltRBsT?aS3CtjEM^gC>Pe9pãU"HKba],QY:_LhN-)#ndQ+\'ãU"f5FUF3VzXVTo(TI]Hss+L33i\Lu5_Ppca]Ih^UDL'1Xr/x&fzh>c[R8l5S$_Ij,GYãU"1P[iHU&c0YC?*m(-,rR,_'B(xMH9N??SDDula)wCnR9>6vUAUP:HY.Amd62n2oeãU"4+eR4tA=$MOPtcYhIiTpmP3)C,$-WhK1LWV%tlX1Iv:dah+jDqT$hH3t7?45p9MãU">csltqoIRkEacc^bV,4A/sN6W3vP*3$(89:[ll5UC]IyI#A8^?sjR&)3Rx]P6kE-c?R^2ZuVT],E6Y5X]\MklL:hNRQV1no[j97QA_x;ãU"7msQ0)0\hF)6F6gQT0&3.h$_2eeqRQ6UB?/[nrZk;[*B1_4rqE>=/qY.p_2f$KJãU"['oGHeJzIAIui>k(auZ$$$aqW2-k'789k&xdL9%Lin5)D:']Q]ex>SN+R9=G34?H,6b/nX:k<$\uJC8f4]-umA3#AAOXoO)>=CpwãU"iNfiv8HG:^i^uBm$/RFBSKSdvXvI%UQR:Y/UKbO:j1g_Y_cn9b=JwZãU"A3RD1>dM7'/w97i+o7T[UEn;)tsJAX3S(r(Itg+]w'Ru/38G$WSH0Yig4I#br;gãU"I>>aF,(026z:d*\>ORIU%Us3:dq[coZ$CLo7ãU"HR-LMwG^53XqES>E2cQKQt-N[/DsYfv>c*sTO]eYs(eV7N6..mMWr2.rl.:MPl8ãU"hYo;OcU^Gj&h7#mIFZC\*HPqj?>M3A)hy'-=Wb*S26\]ksp;f<4^I+4s6XAC8:2ãU"9gh1yv^Z(UTkKglGCZ6/Ho1Y;TD#ia4AQS+a)8-((R(5X9fQPnY&$FXkP07r7YRZsãU"+F'Jl=69,=V>BiQ9)R]*BZ[Nh:=q0$Ai_ft^\Zd8EK_/SkibC,7d\DH=j*U6YSUãU"&cs5uOEqj4r2$4+EfTt>5AcsMSoO\'thJj\nV]Eh+rAs:n$D3,QdãU"<)]uZa7Th#7XV4(19(8+E4.H/W1*2iTuc/ZãU"l*I*;sx1xR*QK6>twkBgfUPWBxKS,;H3DKpq0k]f4bc[]sXRSVv^-vD;^lVIK*BãU"I5_r:_qhVx^V3960*i2TgJGcvu53pRkVEn8MUm*G,]7DY-q1fq);&YqjXRT'lkEãU"QR#*%Lp,MGZIV4cu.LQ4T1tH1AH5ãU"OR[H01La6o2tRcT%_Mj,U._.&Jn=oY?(N.dAz#eMarYJ&Fa*D0-oS9$=BW/Rn[yãU"3D#TsxJbTIw3K/5Yek-$?51#an5A?lDGGI3^pIz2#kJXHãU"BoAUfA+(TRO)GTd*>IGEl8YYioQ?9g'O?Q'X/_xl+]>n-T:N_S_97_4/L2E(_&)ãU"LVDq3,&SSo(=D0/TzDd4&=3/^)hd#S/u9jrOl,z5ROi/mq[?4qNj5xi_4?&=HA5ãU"3\y4#eJd*;lEb]AabXk(:Zhj_0zm_:kj2+CjfhwTe,x3RaOt/>zG_>PnXtxp:d&ãU"eT$AHChUyApli1t$WF-=cD*J,_$CE_x2<)M/?F$o/Z.fBCW_+XK4^0uDj$KLxYQãU"9hdms90PdX,=H$-D(4&u$YrN4>/VT^RLDsUF4mM2O#NX]K%-2>w[AC0j=n(YI>+ãU"Sb?$uAy/x,Gk+sb6oBj:jU9=(MhC,7Fr.4YBeGZZmU\P8u4t(;c-J='S6s,bF,FãU"CKCB7:&MBQojAx$$Q7E*$)P(/Q\bp_?_q/sJ-:/8%1t,Lg2-QBxS1p(cq9LY*S6ãU"A,mIE(AT%RKtP-nWanrE]<^Fm;JhLOVU0vbV2vj_>XpCF9ONVX?^ISESm$A^t3IãU"wKv3l/?>JE&'Mx1BVzq.bef$u_(='\,R1\Lj:.2NHJQ)Y0;)'P2Eat=iX*KnDV<ãU"7TgEw89&lJt]OJ2Ndu3)<:HH%MHYooHN-_aU%TA^/.h(^2XXJ>kyzl\%k^AlQtxGLU9(hz$4TCãU"50lLA&X,/ti3:CBFa\/_30,XSãU"&(>a>?_LrCH$JGDBC1\?2*OTV#Melh0[bC4':/MK1OP8LxVg0htVqzw;^XCKLfEãU"18kkwa)%=qUeqlLJ0J1C(/WIQOyuo_3)S$h\1*%3>twOzr83AhOrNgFu[$o(hiAãU"Gn(i&Xl&[9H*F^=(:&)r]tC+G5q]jJSPo2&sA:)l4IgfZ<11Nx;U07xTãU"/nPbjdJJcVy;\PTl=+C/rq2hS>BM2tVtE^hRdw+b=6wCbqJ&5cUv9\KJm:ebfhhd^%nhHGTQ,A8yH7:IV,]ãU"q72FND-Z7b5'kNu3bjE(KV0WL'odx7)]?u&TTa$Q/htc%A'd(x#W*L7zl4/uSF,ãU"[QfS3-&thHo&Zex*3KWZD=+LF3Fn=;s>[N2g8PZF$5UBNIwUa*vo4xSoNajK>p'8uãU"p(%)9%%#%-%UDimGqSAFD=[4%%8%d%%6%%%%i%jrtT%xirt%vgVV%SgfxWV*vBoãU"S]0w96XvD-M5r(>6rãU"lzr(SrNJJys=>E7ap>7nkb_qoSDq'Z(%QIGWZ1d)PNKO^^O3ZaX#-'5+iK&L8l4ãU"Q*0O;:dYBDD,JY?$AD=%TXFA.3*nuY4Ip:'R?^JAaBt4l&cYKrDqE_iIbOeãU"u.JQMBlpLWdaJ,Sf8kd1gFu.SLe6]FtBYiKF7Yx\sMqk];L:wZ%jHbnUNf1e((IãU",._1C>mJ-?8]un9MJrKw:O&)tMqtIxg]C>4']()k]4hV6v$cillYb?%wO^Dzu(jãU"0O/Td51v*g^&_<^xn3D+6]y6fJ%G/2E04RKxsc-7X3Xomh3>iEj=;b/[OG\t<)JãU"SSYe>sEIv_k]Y:]9x\vu/$#Sc(YFt?3FYZtA#5LzKt])tPoGubbX-.bT/m0p/=psR4MHT_0%&pKawZ,946*Bj>>^W$3o?gãU"6]oxgEjP1_ga0PWMZ2>,haJ[[6hpz>>BK>7#xE_m\R..3H>ãU";(Zmb)J6(<_IGHbUp#L3'bXg?B$A;Pq^h9ãU"A<2DVPYqc>w*BQ'P2P)k_GwB8q:[3GyHW?ZITK.w0onj)Bp0JP$mm&hguhgXhuHãU"BisWsUU,\\,hwl]X.AKJv-0K]3,6C1/Hfjb_]C9+lOv6_/TCUo%=D6=86i.bLRcãU"4pxjMD3K&l6UKT'_+z&P+[:dn*Y.mpkdJ*c2EGr+>-HZ>cJq\PovnOvob>VF1??ãU"D8$ub)wST=3[k=a*ZqlZTps2&VEO%V>R4VZUug3IH[bVmS0lWe-jS?e#9bBnks7\a+?tA%Y78jL_Vkg:^?*qKgNhGãU":Vl&'0k]vF*#'lPkQD1]&;;l0E[Tx[c1IW^[$2QYS\L][0BtqzdUJbQ+p_^mRq;ãU"W3R3r*x1R&#e-_W4o9;MnLC9?gaa)JHF8tf*p7AOeX;c='MpeH^VrgFXzaFãU"5qCaKbS6WGpBY$/RUZnK#IW'7;%;o*=flZaEJx<2&5Sox4AG;JCV^C4nI,v;ahQM,m:j=5?8e:=ãU"O/mmLso%kC9]THtVhRuo7V5\*B9h?J.8O^Hjuph*ArcdE(In;*bdJHr90MA*/sFãU"tCLas-2=t3$Mlt?[s#\=]YVvMat%Y^JFja9V1&Q62K%AqCqDMgk1:rSgke2/Da+ãU"Ns>#hw;c[oYq*J&Cs<]YYPJY(hP/LdNDT^X&1T=Q?lEb&g8*:B4nQYDQY%28cLPãU"j,a*PoQ.+\\qRM_D./ygH?WHO3*W#t0Ll[-Eb2iehG/_AXV*Op\eY+d4Tac^d32v5ãU"XCj0SgPb;V3W8:wl+e>%DBa#3KoTT$/fB4:O8^&j^]BTãU"odKN\BF-$BZIa6z_;H1t(:+UT8pQ),fm3(G>ZsP03pW^ROqR[(BlI69)=[>7fQ9ãU")ZeN=80Alh1^k?r^op7_$x^#Cfq[j=EvZg8;S).M=<;oKF04ZtN1apP_jOFQY_PcSj,JqIBmIJj0sdth<[xetãU"JH^B_0F2x8WN_KVW9$g]SNjtnXxC?Du+$G,DrO<=uxMRtSw8+PTQ9-tN<7sQ:oLãU"ttj-U;s'(g]rb9.aQ':uK>ZW0:X*]Rxp^0^2fYZRFA4#e8LH>ZK4I3uY_zOjs0%ãU"y.caHAUAYfX=$LM^;(&V&Kt,MSeN73LLg+cVF4n;4sTL_TLIbar$-RXtxf)lxB2ãU"2lnJ5-;l^Z=J8hAu]prVYS-]+-$dfx1T%XtL#tS.u%*^S2#b,ln[#0Io9lKS.cvãU"%YPwW=Os^,\gFT]qdE%Xosk8'TSlC-_hX\k4gNe;Zd.OjmUe>6Vx):$axIP:sK%ãU"vfROCmOq-2JuPOE7-LNP%POK-OHpsQk=5SER_N%:_+/v$U#O>7ZLDU(ZGIP&%vZãU"e8G3QM*NcU\gPm_4'^9TX.vpc9E0i#Qp,i*eDb9lM7kmc,YcVJo5VkZ?;#.PQm0ãU"W(CG0Ky96,S#a8,Ol,K1DX9U'$#HO+(S)$5SPj2$7d[H,JunrXC9k\oypHP94yEãU"ss>FSZowc9;Vk*&L*gIdZ8Vv5pXmUp>D2hT3hF8EZ6M=wtU3&X\9lRs:2hxDBoSãU"*SuxRls*),68=^a'/k\6Tp7K(aE^_RRoOGq[t/cm'K4v)zSpabLVPGM>U6Mm,yLãU"&2[q1*;CaVe<$7km2v'w=$Ka3pl2$su_hHo-a+NB[btNwH)^mDe*Rz\Z/%ãU"'0sO'^o:QzT[U:V^<$DD9AQ4ivrOMf-.W0*&miSF;>LwcrR7SNJVX+2<8l;Zu#ZãU"%K)#3m0]1E)RyuBVNoRPPJ%v_/6f#uFnhg'_*J-j2isY(]*)hbEdfn(n#oIa-3>ãU"2'\b-w_dkE4/zO5teFrzLTPF&0e)vJ'WN<2YMbv+e$+PqDB+9h_A6dp-3^Wuq;mãU"p87tHSDBV*#g;4Eh=DKg9vtq?v[XU7f9c/1%V_q?7ZLPeTF^n3IwvAXANyDr*BKãU"I3=Uq(.8LT8FQVV=:=vdW_=vDi(__2i,14g0FmD2IJP6HaLD(.34,$n6nf=YO.TKe>xCH>[Pq>(r=crk[.#TãU"_TlNt9Q(^]%T%,p*Egw/^UD97MO9nP40N6+_iHA(rfBhhDGeko+IO0\<.lV(NNIYHrk2bL/$n#20;z:VRRãU"x4PsPVK,uAX(^z9%2Q?)t;AK.]AG$5*iC[SLWGB8lY_ZbU%x*4STB*Y%rB'e4xuãU"0M.8;(dTC*RLpr;Cq\kTZ,0tW\j0k1\8YfWzl%7=hQ8py+OOvs\G:$uYXOTw,Y>ãU"X^648k(deJXW]:LpuZ%HvGDHZ)<,Mfzca,NZ4=;f-ebQ=WAm3DfrP)u1L[-mãU"+aj/zm2so;d&xYumJo[onRM]qa,ãU"<\[$r1oV&A==KespO7&f:r9W4jG%x*[HAtxpYb7+l68qvjoHNU0v.&J6um>BZ;uãU"vo7::?4$_#$?xzWaRiV,V8_DQ&g6zY?;WtRcHoLg92Jr/ZW3Y*?Fv[^tI^s%X0^ãU"FFz7OdMl720LK&bNPN/VZN.z,C]RtVwetM0?J0:Q]'SA4EM4tAcKV_,LxNMãU"F3#6,tHX6OO5Qd%>SB89[lL4c7tEG[/\CJ6PCV1fBZ.ayO([^rvV75(i+#c.O8&ãU"2[%b.b/5$CdCnrx&N%up%()9%%%%-%1fNmGKRsYI'/1%%'LV%%%6%%%%htwj%TgãU"hw%jvgV%VSgfOxV):b>Tk,iw-oxq0q?*GkQS>(Gx9R%ewyQXy7MABS)].27#46JãU"pmPfiQINvX$,4s:M(+JFD$AoCo/Sf?,HGc%X$Xp?bivPqMMwbF5xh^H^\Qid,UYi9%1dãU"();Ov;ASljK[:UzeW4f:1>te8+N2rG7Y:\47TWlIQN+\wM5sJE&wWGfG<(AC\RoãU"[bc'.ZT.aP_bS>4,VZN]U0e^+ixo/N&SDfVYMNM.]4;bj6KR[J.jSm1KYC>o.mFãU"O].REle+6F=)#n-*9AI#XIbWDH981?^5%0;CTO1#%:1$TjNe*eOD&Z7yd83F:qSãU"q]?X$7v6WCsR'uFfw=VIbiHP%(Kml=%pLM25vwMRw9[R4Q3t^Ng%cPCEV.icY]VãU"SIbO#[3;8H\%:M>P&QM65F1?:t,viZRA0;Qo-E>wD8RzLj7.W-eBe*Q?auG=''&ãU"ERxdYA9l4r%^CHGD'5+#ao'B]^t69J\o=ãU"JvZi6m6?$3Nkz_LS6V;S1#Kr*Lm9z&%nakP3lYgZPvXODC/fMg]Jw\q.^6?1(v#ãU"Mq%hS6IiX7$#lU6u:SF+l8Gh56JrgVe[&#qcmZ5G,CHE;W2p^NQli6pBf?.kM46-FUcwq6(fNCY)98,lm#e(CTve$8:s/[75\LGãU"X89s3SO&/[.X#WxK-ZV1S%TIk?6ZQ6v%[rtfj-Sb^]Anb-_'E;+SB8;7hkt#57$ãU"+cy]0;tYtIcTfUU/l*a*UTwãU"d-TraXdeViKUEX?33*7DRn<85=^D7Xj-kkF2=2ez.V=v.=>EQQH^*?0++$U_ChoãU"CN8sC-zl\ag0W.R/ulC/MIig%<\hoWa\(cToHdfceb%Vu(4GVãU"0IWCGBS-q5x>nnucb[utiX$uf+)2rRr\oAR#GBsAFSC^uKu\0V(AN$h'msOgd,xãU">RNJ?q_&a\P2AkrnH^<6NJHg4+,TN7$o-'fj/QcDK1?7x[wk7NLCFmq8?,mctfKãU"\^Nc;LRR#_]*n><*vcJ'Uh3WQnB[BK/hM)w&)\8Jg3DWBbxSGr;#)?FG[,En]OEãU">EGQj9v#_bb<&w]5>IOnZ7BE5LPRash(CR\?eR.tNNYdJqjkwTGO0$/tV+o\x&OãU";L]s-j2Q_pgUD6ItszI0%O67*C%*ioUn^](etjdBF)9d:1_*Egl\3.8WHDIngqQãU"1\/FJSm//(5.ENBvDO\6iDuTyA^MK2k#N0W)kYMmP\Oy0Cd'n3e%Mt30Im=rAK'ãU"q1e'$gpkSd):$9uQF0.yW]gYyP_#N)o)8biW\b4BmfCs'8<4%Xlv991^lTKYD6?ãU"eRBIHR^+4(7uA;d.fy?,-rGWILKWxeEDQV:]gHyp5h6rc*8F?cRR$OEXt<84mlRãU"IQXwcW*TcZC_:BFRf(ihG0E;W3p[fQ+34>ãU"D(Wp25Y=)F8;:BL>jTmU0gb]ul50Q%1vW4uUvUAv?V>6?=\3CZ6>)ANKt;7Q.>]ãU"=_J%)0kOKZhrHak$<6QãU"*xd_[nwOFQR5xv/X4]?tL;35i(0:dUn*KxH[,nd(3=dsQIelcRwBC%,h\%j6;Evsc;Y>]qP^=--aO+4*?K.bãU"?XWeL)\Zv).Lu)fv)AVd#xYoR(xCrXh2/FbDrOh=Ax&ls-vx]s-*N5oJHtcYJTpãU"d;-mO;heGjW1a,cX)FP[:Xlm7r.MM>?nCy$vH.YJV<&4Tm584m04w7GgaCRCmf0RYOZmI]>cX>auãU"eNS5\t=awQmhZ4tqLWv-1EuSsn\p#74AlDZ]I,FJZND<ãU"xMhv2FvG]f?ul[TMHB>ãU"0#CK3fDh+7COZk>E#Emz9/QA&zWEmgjYE0(2V*r/qroKTfiqY&0PKWA_=qT/::hãU"a$a4pW)?n,JHI_.XafQ^]dQm$,BtK50FY0PvSx2X:RpA3oV_[hB^-rb8#hHt&KaãU"N1MOeqqI3VPt$W0gMicorcMHO[bxVesS#&eP5L+j[6n(N9-B>UIq?tiT3hS(PUWãU"B,[*d_[qyU^bsBWK)tt1'WY&MFWsw7(RQ'd(AW5Up+G&Nh,e+cz/fghjj2imt?>ãU"DDZR+#PoP7iWeSS,^#uQGT%6LXqrYRV?B93D#yKIvY]18?9Fgg#E;rH(0>$tJ.xãU"%,&(:=qz-&SoSP2.rw10wr=90wB-xmwJ(3l29nEjOSNF+efãU"G;XZHL>g/U#i#kkR_Ge;_=^;UjjiJ?zd69f3Wk3tmHgnY+q[cc[(8*ovH4$^YBjQxlqvgKFeãU"&Gyl?[vc2jlNM>K_s87th;>wW-3CSl(=cr*kSrTOtdcLT*x2rsRd:V'CBz6ojh&d#l^C(S%bBtKpQf:i(t&2oeM(=5tãU"n1SBbPO(%^3,Y$NKWr$Qz:Fc/MMO-IjNBM_mãU").gy6EPaxnC.l%7122,xnoKvyF>fJspMbta;kGtaAd8VkDxjqWZ-uK6J.]ncdsrãU"qUhcbi4Jn.-rII*fAral5,&.Lf*bcjhTS/2Rg60>mGLL?$5On3\-2YVD)O4L$%/ãU":>.d&BWCCddroev[f6J-1cAVZkW'VtlcDuOA*DRP*qH.*tu3,tRt:fYxnR3'V/LãU"N)$Todnr(]_%]5IaJ\'Y^HD.uu7G5=Xl>K/G28.RTMnW[t,HS(UqT373m,2(?f*ãEND SUBãSUB V6ãU"$l8s8l426uYFD[:]_E&'7iu)2(]+LI\XP*x1(y(d4?mpRc3HTb_j]HqXh7mx:lXãU"d,?j>S?ukNnYK[+)])gjY^-$(od$/M8,]v+Rw,%^=$I]5E+-Nd]bpbt(&g+n=mX]::f]-6w5f00n<=3c_9sErC0ITRk6^fsqu?upãU"nXLYUuX>FPyB>l\fk&uU4d)\#CIH^hOi\WMdnK\/ãU"1XCFP)Cfh0\Zny77'-;U2r.Nba\#kd$B(k^DG[=>k)Nr?-gxTu%p()9%%%%-I%kãU"NmXGi%b%%60%(%eQ%%%6%%%%htw%jTgh%wjvg%YZSgRfxV(q<>SAs;w7KNwVbw_ãU"8or,GM<[dooo/*a8-YBtU-4vQaYp'7Z[+rs.pPXqB5??%5mE\N6&))l:EG_ShXHãU"HsB$mVgPMMv9^9xh/^:raMmd#eK;l?bK)M^/X5X$0$7S4i6^;Ptb(=eN$ZIawRUãU"A^[ttYG#V2ev%[e=TDs>U]RK0ak1j\AAqeBC^7u4G)hãU"VP#WP0dY(CO6?.Hq+e1>'v7uE^TjRlQqTsSEOw29<0:J(gL\A/,O:^]^peWXO:XWDxAp?WXFUvsV=a\_ZC.NUgXr_b$lãU"i6n[NFrS;h_Gl^$RWjlSk:u0cHp+Go&4iRDG+U9U:z:ãU"q^CKuj/:n.4X?.-bTo;Ijir0o,]%EUjU8^+3^$9f+f'%E%EX'CKu7kgs*P&7HqZãU"#f,XMT/vmE)&jY9^1-,)'+pF^120=]C,IBRD(4;y*DLY?6:?3dXE7AhH.JUU(+VãU"QkF=g:fk+B29M;KmAKX=$bvV;0UhzR4rpe:=Qx:E[Q/[6gt'->)%+CVkg+8?n2UãU";m=d:i7VPIu$GIKw\Ko>>:#LRrdk_1A6U/B^[mL)Gg)y/JWQ)A6G?H[%:*mkN$5q+8p&*^#zuYN5cFb-1kHãU"'qD9_AuNZ7Q*2lnn\OieZ;2b54a21WbgD$30%]Hk.$RNt4\L_[6?dSueY_;KO9FãU"7kg),.A'G;1GUjVI-N%1z8aw]_NF_%kO\,.O8QQddlYUA^RãU"w\36JFI//NH&#VTi#VZg7]S;WB,p)ZMmKQEbIMwI-0Hv,LJZB$L'\GbR1F4[oi,ãU"Hi)&q5wWAy/-]T_t,q.iFb]PqS:eJSpyJ4KRqnJ>d'(F-u3>%TBjvuYgK8kQ8kwãU"7B3abT$1e5D#?/N;T#B2T],D$egUp3[Q4l%]blMg4X7rcBh$2j\e(#W6L)>^dutãU"71;cI)p]6kn*qvfvF,ds::Gk^vk\UJPGaE>,5/Wsfz#%N)'rLh[-$E3cZV4JG?7ãU"2$\z[U^OpCwAs(GD,NH0jWj0mM9Z-p9-1gnOtdF2G->2Z_]9U]W?QCDP\.kjvJ+ãU"'2ik,^ty&dQ:]'#TZEv.)r2N\x15YG_gp'l_1WqB=g\6[*ãU"pLZU9k]*Ye#^3[ovFCo<*V^O-[md^0Y-^^GR>N&JjXK/=Zw>9DvtxPHt18sIOJfãU"J3R_&$Zz>F3L[.IR8>?#J#&2mYt$u1VHnF#Ba14i[oTl+M7.Sp,:PMIVb:S_i1IãU"U>es>=/;ibv/l_-n.BM.\.I\BJ.3LH8B0w4W)Dv?F\\2;d)S3:Sx/MfTOmtPRs-ãU"(dInexy6,Lx>bk0-#2gW4K%pG:dn,Np]mdZ1M8^,ãU"*1FRocVUbFY16iOvMhCrz7Bdgsq/oT]tfntT_Lm;gT-APJ+j1?NJ>:)]r6?U15.ãU"%pauoi,>Kxn^;XdIbS>ND;asntM)/9(fuzvDS?$x4TG*^JMEUfs'3:g:3+f%8+GãU"t5G;\U;ff5;t:U;v5,;Na1BU])+pd_jGXFY_P_cj,J\qBm3o.(vCQxt])lNhm^WãU"B0(Y]w6N_PUW2>0BV*x,Yo8x$Crp2hE?DraOh4x_x&-vhNATQYxWq$kMnRn'toTãU"g\:2p5h<>m'K_xFXd_:&mB9v9k/>?Czu$\n=e:3*HeM9+\',6;JR#bb%vãU"s#cgsBTmZq>0ivm<4hexG5ZhQ7vt/X#(i'q'6CeF_lJm?G]n1PCjIfTaw=ofPzbãU"yO:cSYsqqsfdqf]]=:>_Z,SV4>FM,I?3y6ko.4Su72w<,Nu7.FLnNi&ny>B'4$TãU"8)vzqSa.3>sDFJ5s#OZf]/zO5t9pr4#ZaQOw$&wbXnE$7[fNRn0mAIL/k<>_]j^ãU"Ha0n$kPB4Xm&GCtJ^HPB:lRW]LWV=$>dMW;w=>/Rp3o(V_hBX^-b8o#4u\UKaqLãU"j4#YcNbEfmLHUp7PA/&^YJ/gh2Y0F^D=t\j6oS]mg7wufgMU0K=ONMBbaGWmbmdãU"Oq0J6&ZmQthi_eUR>,Dnevo0HCrqP54'>6Bn?Zo2%yYV+1KV&V*lfWS]OO7gY&*&IxZXqJ#9Rrn7;c)k2DN6WfWUyWv6&ãU"Ikr9'0Y9NO-?B%n;i9RyCKs#Q[dlRN2A;ãU"Mgp8hHTja,N%8gp62>g2k8Eu\;%51B.t)&z,HO1\M-d>gY0$.q5zj1Xom+c-(/VqUlsjFOvN'q(li9cHAMKey\<8s'xnt#(=>crkaaih)dUãU"qC.&O;P%4NGM(+\dYbo^UA;.(SeIOPA(IaP0h(Us\W:'FXUv-qX0d>X1LX2_3hYãU"a5.rJ>br?8u8IieMH'&EbEm:MY]Sv?b_hv[6]4H&SAeTHYH_3&L;G+]vPR#h\[vãU"6jEILGrueF#wC$?IF0T*VCroJ35SovylBUm:(v3h,He;kp\x]eH^.CecGE9PxnCãU"c.%e*6U'ct)t#OW/Fmvu2k%C0KrwC]joQu^%NKDjM)x>CSq'c'2$[3%_ãU"slE,,SXJVbJ,a?MZFkAAHA+B=c$3iCmP=]$.qF?0?r4NLy-uR,UQoq#O?R2i0-?ãU"B0e;FadXE6L\)CVvJa^oK6ZLbQHk86<[t=eVm)MSmm*=iIyt_-%w9sbH^7%nRsãU"tJ4LG9V4dI\]r'$+2$BlrHMH(fjmT(AFSX9t#%ww3FhiAjT$FD+^v$^hly>Wq+NãU"jGrk9N4N6ur?rdU,w.P/?0,NkWR)fAEVw0dWd*57;XMP[YyB6:j\29ãU"5KN*B435F-r+YfU*mbG_-b)Rk2o.OU?5u-=haaP$$_>uXn4V0T^.)qZ#Pvi-$twãU"E&j8JzcYE0d>^B;og7>G^GgC3hxde:-*VJe+^X-[S6au(o'n5#t[3hp=[GX7.n]ãU"%=r2fd&-dc%;L8.2y+4e)Ab(wcgSGL0oifAj_uuIUb)A*5(Lb-*\jlEJ_-K/Yzbr-\C'0:.2j,tf/h=G>VãU"9aOLcpxh&LXgTKGq/Mng]e.yxP1Fa,]TO0+aA)neH(TG0.ztBlOW=%*/tjj>PUWãU"C59F9jNB3B)c\hi6F5io_iA=%D/#eOefnJzbK?EMx7nE7#LUKw3RhIRaj/7gAI*ãU"eErwO2tWBm[6sbG8F5q#Z6O^ca31'*tq'oI%2SAu$V&4?bQeãU"?rlol)X&P0'u+m:IwBCov\'n&Jcm?>u^ydIqJHmbsk.=*T9xQ$[aW4rsXs)ktx\ãU")-&#Hu#[nHqJIK'rP1S:%&0mr\GRNQX:CMpyeRg>0-f%#ãU"ig'M4zm[3aKSL>%?^qT6:TKs-]\^GVPZs%3trIk4o%Mp7ZhZkqh['lR2hs+m(60ãU"Ic2C4?=x,,CNDvgo3v0Se*2FOQe0Up'f1$bo%I/bXL1Z\Kjn?-om5i]&CKpF54CãU"[B.0>=<'eCWMq,**/3O*l/V\Ufq_=k\68k-fsP&%?C]UXK^r5P9Wk=EEãU"7;0]J:JE>'&n6(]O,SGl;l5=GIIBU/THV3:6K0ZS-\=u6lWs2Q[#D=gEhlt#)mRãU"shYO'NSC]9o.TVoE%9av7J:EPZapgUA.4iI'>(6Fm:KsJh=LY$%j/1BS5mZoVc#'F%k\>0_3N%BT%ãU"N[P7dfggahKI,,&#D*?b5o,[bR4fgC2+vxPV,U,ODz1BI0wuVCP&$-b;-.5XIzRãU"(8iM%qT*d/Cso^3w3Tn('63cK/4sP=-GGJIs0tWRtR8G7tSCCMvw*3,ZC%S:FDNãU":X0NiKcJsr)[:,0x_q<1f%nt4bhr3s>:+8kV:hI^[.P?gu%GT6FpL$PRãU"^2JISYlqa.Bhk^WB-rJlMM'A_j>W/TrBG;DTO*MC=7lleID(ãU"6IDOhC+z*Bb5-5:P8GK4Yb0WL9(-\CFkK3jpf8GF&Kl/Z�nc;X+-3xK'9xS-zãU"s(qeYs(Q^JIzy0%h^(Gw$QNdwkGmuC13e]lJ>IpZ5$br6O*O9#,I0]zunOT?r9SãU"Zc'QzTt^sRHh9UgMz;,XnoWKSa3.\VE1Fbvb24SSvgW)OVk^nCZ:>a)85E&^uEX/0?Ji[_=(J0.]m4M?YDFco,5^rA;rdj++'ãU"7iu^4uDj*+lfJHejl4$Zh^IDXc>QVr^&zgbq=:rmdVq/Q8LSNFdKKPF:iqF,>0kãU"py]:z*wJKay6S?m5S9e5aa)OfH&++j+q(Vuhs*aBlX:(5O*1C.6[+b_u(#EEd5PãU"$eI8%Avl)n0+]hKXffj]])q;lnHgx3H$B4&(m;u;cp'H_k%Vl(L&i&d:?4Hgx=>,h4s%0W#YRd_wãU"_7s?1wmPnUPBk7iK:29W_QX-d=+q:b,r\2;D)/FI.]P[.JF0+i=0.o$\sh:P.fMãU":a^()&D9L-dpq$paHh[]8(HWEn]pC1Be#M\9H4A'Di,52Dyl[/:8=3adSDkh_72ãU"#_0N$2%:J,.tGM,anh/g7%pFS;3:u3O)Ix?9IMtYMYl?At_SZu8C8KHB;O5\fm%ãU"=EB/fU_)CLWMjGwMo?ZcF\i5WMu-Zs(vRXC*.Q,p]yk#Lh3'YLuiV7hwKE+kth_ãU"_YD[l:mz>a.T:=7cC*j'csEINvt34#47xpLBsSc)E#G.pQLT3QsRG3A2*vi-KrbãU"..?k30A\OSC=72Lh$5ECYo60:+aXcThBTnYQk.+C;n-0FaYPas.d%Wh,_pLY:HRãU"Q1IX:,U-OeA822/_=l)?&tijD>0^,I4Z:.\:'d]+hK8Ew&-+AC9/]#26)jFhPZcãU"?S/(zV2yM4(6LJ>=/djMMe^+rBrb$2jibUD5l)pOtpp3J)Mt\K-b-.F)VFytYjY,#^qãU"p4i+UNj,cYIo3ckn.P][fb2hXF2Es;Vkm^KI#oNwa_V)i-\fPbc0j;T:vc(a[lFãU"CcC*zZ]GAI>2S;sux))a,s:.USA=iFma4MMn1VURJ:0qbEQE*V*r7a$['9GSVLzãU"<%>rL5,-O$1ptMD;t%GO8Od2aT?[q$$]I+tn>N=9T#rbG9[q\X:\5flWC$v,Zb-ãU"B2#e8hW6Qt/WBSR[CnZ[JeGcoj+?COP2e.L>eB[nzFs9QO4vKH5l5R>Q%UudPG/ãU"YS[SUsp38Ekr-JM]NO6XgL)$O]*wp\e?U(J9%C](&uvr]q9>pj+iko9D6H8)cTcãU"B[]5MZN8Y,ppm%amQd-*(pY-HF?RC\Cdp-1e=$uGjM&k=&:d81DCx?o:C[Q690NãU"m^SM3Q;kZpJtB5A/&sy5rnkN$Ps,+(n3PJ^/76x8;;ãU"[tEP2?ueK,(m^SF)2()+3$r%>ja-dM#)alB445ctm7(8/p7*J8ou_?>Yi;n7tpYãU"QW^wU7R;t6V7=q:nQYqKM,,*&r*BnfRF8Np*ivt*aw'&oemap_L'ynCmg>&OoHFãU"u3'l)TLdwP+?$cswFb#0DQa1N(i(]]WZ8rjIL%W>:F?ãU"*>'[XBq$Kv':p?U#r2poM2eb_%%0D)7)ImhGEw9L/q(J)&A1?lXK7kG)TX+Dx#0ãU"VA#uVg-A#uLe_Z.s:]k]AmE,*uqvb8K*EfvDNWEf\v4)2'uzfCc81LAr:ejar%ZãU"Gk[$gYP=4Z/Z)^R0VWA#WV_Q$PSusYkkuOq3&:(ij-rH5c%[k0(6gx]wB]6qSURãU"A2kf(fVlSNF?2h%_i3YFT)E%3epi,nLASC0QNZ6,2)[Ysb1cMaIMw?t%3ENMTz3ãU"x;11U,fQuvBs;sZmWrFch%_b^^dcB^qoM8]XH#Ddn*?UXl_hwS2ETxw&3t]y-4aãU")&2h)>PMHIJ;_rZyow(zZ\du.OD52W3zVp\MfV_%UZ[?&O3VJATjh=9CYX&%]cz>lQ1,4*O3AIc36hIPhHGfE)r,YCFBaen9dsãU"N4dtz'FB^ãU"2IZ%4zb+s/-s64a,(?7M+-Hrb>I]ZUVa+CCz39i5%D+(Vz(PS4/V^PD(E*T4yhTãU"&bD?prs>gb\H&RUcpPDqx<(UlW>$0q8]CN4Gfq(c4ãU"<\w$;XM/gotr)>0A)*8ZP>r$YAZGvãU"1XE*bLvN<fdn0OXr1j_2B$ZK[7En:'DeyA'.yRãU"'gt?dvn]5[YeF6a2XC[D$AExmz?4&amBOMdHhAard>U$mCn:d)'E%oPpdAk&F6TãU"%jJ+2$#T.kYl1KBMZf+9Z)pP,Xofp9=X7\+82O\;F_V2ost()Lru[Y4gV)>+5V_4i8(FfT95StsãU"afW+l&&M>F(nZm64,^m%pt?&4Q70]9ãU"or[_*%p4lxg0[/=iTqygt_-0/+U#o4x[U(QlAT)NW+I^>VKG3%7fM<:gd>n5VbCãU"BZTgv594qxQLl5qA0U6[S0EX;&upS8IK3ZRDm&FCa1RReeREup0iD\=PXj7Ud$hãU"NL^>ZqUVqaHoD400-q=WC=-\JC[GNPsJQDCI[$Z(Fd$/R;jU1mdit4*v*CY,wfIQql>QsVhxI8>0w.9XhVep.6_z<#5mhAllGuYQwlGf%&Fq,XuI7IpQ(BãU"mm\Bm>4b(,x.?2Uy4m=d):ctl#2>pmmBYogT%YIQ1SHMRjm6k9j+fY\o.A%jK;NãU"PrP;fRN.G;V[iiDWY\Fg6Fx$qVlo5FX$jCAm,H6flEJqgnM:PSW6R93JVjyQ_p5ãU"SQ)tq7TdH8q:Q6?:?2>4m7dLZdZRB[:?CP&4vd2ng/:nIx,C)BZh/VT8uXyShv?ãU"VBi?kENZi(Z'J3idJRbk6j;eu4R<:18;;O5dNff:E6,HU5GWB'EXKl1UzFi6nJ&ãU"lgD'^Q3aO57<5[u*.m%seWpPm3W/bStT^$K%m/DfEqNoq)bgVSW8[vQlCUp#KãU"QLlR,;sC(VF$sS#Xeszk\p,8UKU$x>Ee%o85C2g9QwE$%hh(BXdxwyBjaU2JjVPut8wãU"f1/E8d-v3,*,Z91+wWACe-%LJf=M8_gBl/-EQo]&VV^i4Z>7nm(#.[6^+b?Ilj-ãU"APGq%LnNT_RoEb=9UWPGN:3Sp7w2F[_KUl[2,&zC//:-=nF\-SYd]u0=<2:lM\+ãU"ThcLj-jhpMqG(U:2R?'N?^.yW\RXIutLAN1r=*[?sJevZjF'1X^CiJXI4j'$TT;ãU"xX4f::OjMh\J*7J0p_2Zs/[0&>YlxRY/1>JTfb8o(U\J&oK/jG'P&CMpw=s';OuãU"nYz;Uimg:3S'-m=v+rYhq>U)lF5Y[pr&Q3,cHC=^t:q?B>MqV;,bTBMJ4.ro>NXãU"E8x+'#HeG'TS&YPD[gb*g.r\Y85BP?H.xLDCI22iIuSKg4flpE'=?JE(dsaV9E2_CETe&#N)gJAuJt7mdãU"L:2nvp]xqLm;JNg[Py2vl3f74B;dETyM%du(mtL\0aCDDwt8uZJVf^t.N[.np$iãU"GqZ6a.Ng=FxVx0a^Iaq1:=]CDoe^gNlNtufP-U'Jjx_*6t\0lãU"3Q8$Eb[Sy8YcY^mtD-Pfgfftr3Lq$j03WeJSu8IPrPyqZTI&%fmjIdq=rb+RwcEãU"Ihu\vO]R,xc2aQt5Jn=gMbi/xQ-3g?8)Es'Z)e8:#6^OIfm\2RqVer&D2tnb.PoãU"2A)q>d>:\euNy'TMyhw4v.mX%VmC#K:L3&iuBdo8JGtdrFzZ4Z;bA$N#rãU"$uEDzTg?Q&&Z2m+b\N.xcRSgCnV*h;oD18.a#]I6F=]tKrv3snyE5t%ãU"*a?pFt>tGqr#8E(8d[R7eckHn-v1;jcirHh*kbPdrn#dnY/TgKA_yCT9,p\BVk'ãU"$hEpiW&2WV8C;Rhl],-\cmfx4bni>M$Y.fOv_bn_f8p,w$VI4d)j\:NpWrDiC%7ãU")X*O:rJM2jk-Pq&YM#q1Wt?/Rjqr;9845L\Y>up8K^4]n_x*NF?e'V7:4y>[=gZãU"O3U:l$]y?KB.W:z>P[l#$CohNE5HiGnm8tKsfPWxI_-rdy+lb-%Xs5:u/sO#fCA:l6[4#GhuãU";sx<^b-k9g,h)Jgs=7CBnu#eBA:Q#C+XSbX:r^?06SJ,n18oY:D8*dUal)(j1l-CãU"#l4]lvaA#UaySELrO:EcOO]G>og.<[4JLI^Z9.:cQb)O&RlQ$cMW\[+m/2:-/]-ãU"wCy)Z#kXq3P-G*q88x;pz_aZ\88PRh$2X>A13u/]2?.A8W'..7^$H.ctnnJq=pOãU"Cjg\Yo:Mm1VpAkK'CFnJTbu9r\k;5+PkG\245FtZ$jL=m-&5-r[S;tAE)=3ZsxYãU"^Jkqhd8HBDsoPl1;RuIH&PL&vc&gZU4,GE_D(Eu,dtLA+J&\>nPM1]NGn[6M)HrãU"ow+4Cyq?YcvRNN$Dg0CRq-*7]y0G*#bEl&A*Jt%fs>:qoq'qqM6+.SUlhlN?hU]ãU"<]^%#,-qslB[\]RaqOIWJYmuL.-&z\s,jamyz*??=.igb*bKe6A'u8_0hOJFgT*ãU">]CcT1Q23mbJ(naAO8RSP;zqICe5dr8eQJGT8)xPs+L5jQq_3ow\eq8-_B,#[jkãU"W1(iCJ,#A\_w:24ih-(0Ivkg?s7&+#fyZkl-lbrATxVOSãU"<=363NQZWASo9aAx'u,g-[maNBm2S.&fqn]^SBTpW?sU+V=SvC=9a?&Hp_;)A*aãU"0^Z5(tfAxQF%>;u>W='P%7?)s\6;GMpn*;jawzA'0m2n<7+I*Az5F%AvXs*o:7WãU"Mk<.Z4px-/4Ivr(8:4-,Q2?5BWg2(&C-gZUA5EA1ie=00)Dq5fcT3<>Q5M/uwaXãU"3qoN>9,)2g9/(VSP%kE&h(wF_]$ldM;/(u[,*\O;fPzW5pY[fqA3FQe)ol,Lo7^ãU"pD1;)b$bI75#(DPMXrv\6&f)\c/l0'^1I'Bl&9TGjE,Ou+iql+SXm-bNUTlS6L&ãU"DFS4OBQC6Hb-)O*?aLma%3dIp:?2h,K/mV8M^n'y\0LGJ#[VaANiu,3OsQ]_vbZãU";OfqjwFI*Xi>+w8\T_ht]d._iaLblX^t9]e_X0,$c(jGr^Q$KL9Z;CTNGY)ZJ$>C>AJe[8E$#LM$RkiH[eo,koOi,YY$M\2ei\95UO%ASeãU"i4Aw&F7VauHjcNPjT(+rrJL9-0GvsãU"0)BWZM5DPZY[8BYJ&\>DK\^n%\?jsfu_LB8C6&P):cG[ne&_t]$iez>fgJ=wj\fãU"_#<&%3-0_f&$GI=pi55v7i:K*sZ-K-y*:jA[7'3K=ymtGA:5r*VtUio(+PO'%q?ãU"si'cVH&ou-unmrQ,_e%+h&8B8$,Om_.nn2WSHQJ).t_i:OSE^/ãU"2k[0R(&z2qb^C;.i?)8rOl#9U1[yRG3:?/4z(Li>a9;2q&kDVl8;[fj0>ZVOQ,4ãU"_&/X\uhhYtu0[;&E<8p/Le?2O(E#i>Sg]E&bf3uBX*grjVcN-')UliKg(N>CRw\ãU"My-.onIrR[Ll0sxo)phsqj3uzfb42WBo+dp*q5*o_pOrS#YFR.H[o,Ob#m4\hg7ãU"kyc?[9s]w/pMOp2(**WEZtOxE.$#N]3mgeth-w%%LHU/eJ6?v_W^,.m*1aJUEo;ãU")G3_UI%[^id.enhq%H,0Yi>X4G?bVt$E?GyPd%YK<-#u/^ogRm[\RS$*tePYpdDãU"9FR:0gcd_72xBJ#r30$qqv0UD]FãU"nxwkKe,x9$C(r?E[P788Y0V6n.tL$##X'=I2qt-'LH_2#_)d'lH&Y88iRhyEO,]ãU"DzFv2i)77=#n>l$p&0/mM($vY#dp?ExlEw#n9V0$7]$tlH^U617:F^CW&;/p0rlãU">Kf=5DFMi&N/]QrGz]5&sE3.h-aOA/dSSO*)&+89Y2)+k6flPGz'gL$3oD%LRvbãU"ydPw,NMfR$%b4fb10SO&KK1).AXppXKsãU"zBWbUQbf,OgY7f%$0nc,7rY4+9mp1bl;R'M<':m-0H(PkwJVeoL3ub1*5.VE,Q3ãU"0#zz5sI^?J;r;x#(gbex8k/O$iGO$L-(i;oIC3zaDf?smQ,G\8cg2+kIbIYq'F_ãU"?c$1po(I'w4#V$ag/8bPlN4L\wvjH8[ceX&2lA(EL>AdP[Ae-yuAOMtI4FSC^?PSIep5mh,oB]1Eh&SqXZ;s&ua56B-FVc.6N6p]]crW-LãU"F(Bq>oLvsT;1>0r?6oi$gWZcXWQ+PyW%yYhnpN\'.'[yG^I;MQG90W4TfXR:\e$ãU"[XIO),yF0-w,:^%_UU3;0]6'i?&XADAkDQ8$9jCZm<2$$.SaB+0eO4v%3uIMhY*ãU"CN>6T,RTJyYu-bC%%nJz#oZ(VpX6Oe0x3;T]f\hkA*&67%_vpxMpH_TIE*jvFl7ãU"WttM=3#pJ*2g*PbIx/y<;A,%Yod];YkQU0vH#8L45InMY;o=x+3i)SEmk.:l9]#ãU"p^[Mb7$(5o+];7W5y&ShQI^J^\/U\aik,m;rAW$V$v9mkfI4[,m,=x:(bddJp2)F5TsãU"0b(I96Kl$G7,Z//mHF7J3ZX6pI#-AAtAwkLTrpBeB\\]FCAed+[K$soj\$a9.QIãU"ppU^$qMN'x\njs-0:UWMXU.Bzkk_*fX$Q2M'k:-<\pMO$bzMc\olOw>L/44yE[g.i$4T>zJ(5TRNNkeO,/Uf'(karucA=_^+<%D?/U?2Tl8sCq2ãU"'&ppDsSWo)'D4n%):kLWFj*j7)DTGk*>N=vWGT%%(:8DyZIBh4^8:=*ao7\BDObãU"HsV\/ZSK4[kNTtU;hi7v.X_Nks'dSc+H:s4t\fRd12&9\y,)$N*T$GOfRc*o=Q<ãU"?%r%1X)DzYr6$-5/;+v[p4s.&wqP,(F]ZfoS\mcHv#\&I%cvb_-j5+LBeYJTw+q6;Z.9%N:W4i?j4>1V6RcFFKaw7kmA$+;_1ckv2Lu+ON;-N4;B*=jJ2*HV23l3\csVUqV\UTqb[FcQQW2TEEBcsK&5:o0]%3d:a2GEC#ãU"+_iQBgadE5e1QM6,gM#'+)BPIzb8qA6mmfV2RR#\#]P/BgaqDLuB%C;Lu*jpnBMãU"=,HURCIkvãU"$SJrnIO)st%tgm&(61k,Hs5h%Q#Qd1(7m*CnAZy1WT\wclO%[-:\Fo4C.>%SciNãU"(:\g(2*W[7?gF>)lrEAn#s=TG>GMhK3JY69W)43fd-*'=O]K=/I)pF]NLk)';birP]txw16FW;JC8auu+PhN?n#p\6hgWH=RtD6%B3hMP.MãU"wmcC^yG3E0Ch\jNRU%8nAmqy^/sg.:lkgnp=(ohs2vejKDQrXvFp=i5Fb^1s/T)ãU"\d>%jO246SyG>vJ/XK8k0e&P9%y5V8C#scHO%dZL\[nnZJtFkME)<ãU"59m_.H-Q1#b[EwmLuM+SB32=d)i5dD,Q5ct9Y[XIdpx*If0LrZkpoxT)TjXcf0>ãU"GwL:*UFYK+O?l-DsE:/$)+sAhVNbOmhlKCKp'DUz?c;Y2[?L_zD^\-MN>zV#mM*ãU"dS8Pd-0VF,KUP(t[)unPu\uR,)6X*s%5)[p)D'Z_6=5Z%jycKjuFrl(WA:Ellr5ãU"drS'sjx_fZ0tGZhT=Hh'dKUFdVjVãU"jFPCmkWKJl4U$%CX\f:LuEIlFIA:?CNBKsQaD>-HWwg#hj>.xoO#FZ-e%%9\#fIãU"#-),,k\iSwlPkduIdl<>(Naz>-6KrZ<;2Al(q9J#*h8e.w8qLER%-*Yf(o]%ãU"H.PTa?XpZ&*R4W-aL-Ho'EnY^/l70My%Bs]Q6kC^ta0qY7er>PNBlp#AF0J4m%D;Rx*O#L,l=1^=%CWZYM0<#z6L.23/s3*KK6iUjKFOãU"4v5L.?ir%^l2f,/&32vYxHla2cd]l%AE6eIjvg+,PB&//t&NW(K5NSI>Tf\]honãU"4?s[Z[V(.J_qTq.A$qIlc%w-CB5HAs'N/G)y1XC=\grC6?&^Zsw?(RIuw?5Ika*ãU"gJDZSj')ly]_T<*_1aqc#:9RVL6Os3iMuPsDPmO$Iw&con/:q>O2K.#mkIoXAY8&^WL?4U*PrcLiI6Dv;j;Y>HWto)+msSqãU".L1wubkD(^;f<0X7qrRNlBK?pOy;b2yCEia$Kq_NAVB+]Ch<+=AcSc=fd$VVA(<ãU"CMkUZcZ;_rg7nC'ApVHnofvcbuK:d5AgY*DE:Gh?,u&sj+S2kL;5^UbmufH7UBgãU",+g]n/F.^b'RWA>g\.p[7xcV-,OJ91Yq_.M0OjWp2.qz0CVkK$ãU"u];m>8dm$qQIASf*r\yL7.gMnU+XX0Kxh+cHW*f&Rnn1)kini:JD]B=R_oW=,tVM#.N4aq,sILf3.+SagEedH5tEuouCM]1tPEQ9D#TvW,5wBamBGtFnL$b9-b)gG_mS4Enc&FgãU"*<6vWA#3ODgH[CtoLJSx/p/TBd'YyFOX%xHw>D3u&*#O_F.Jlg>RD:MyaD?s7/BãU"a<^bcMbE_mvB0.#x;e_;jT[3mP+/]^1M$F.0x$da_$uCo)ddpVQd.^k^o<'&b/eãU"Dm$\?ZC=o'i[$sk0a:UGj)qR]tCRHVG4bJ6f;7kLunHPhuagntS^d5unj$33]2gãU"4q?Vnn:lV6nJ?N#PX)I\pY_p:rBEsB8H*w]x5+H>-ym'*xQ)zOdstYsl\(3dQ$pãU"c\UU.mvU^+BhX*dfFEkHh(TmLbJEiLYbV^0xdr^_2>dC?Wfk&&t^(6D6[.t7vAjãU"OkJP4=gBDmjM[j$ItRHG$'T7nJ-ot*ma7]'9(AzmI4[6Nr&bSwtF2lSt$Wj(_XWãU"e\4RdjFp^xrY#p7&P(iW+K1Ls$Lr%(:I=k4rP^iCk1*kU]w:r/vN5*Gnk\\J)IãU"DW8e_K<348%aC]lwvNSc4t0bI^xY*G'htg#MT%K)hL3xHEK%U8/KXIxXlaK%893ãU"'rIL-LnMe^9^Et9&.>KIzaX-)?,&VqcLOCT)25Kf68IU:L#t\1WI'QXbTT\jPR?ãU"[9<=.'#2I'o.X$4=-X_O]s;hO-'\SNQX;oA?YDsãU"33ZCD4D'C?NT9Z2O;&I_t3(Fm'JV5UGu>r,bt1#.JMv[gpf.Em/A2QEB9:]QG:CaRãU"b,LjE)1128(1n2AFlkRBw]l]n,+Iu)b&tkI\EeIj2=d6:T2>TQ'AxãU",Vp33+^\:Mv:nN^6,x*:rKM^&&l4w10i#lZCI9#LigE*G;>C\ãU"fF]k%n-MM<(2=[CjZ>I]6s=:pq>3&q?O1xLAKkWRp#UlN3cEãU"x:EF.$4sc0EVuf49'w]7NtN58f0AMS8_r.%up&'%9%9%%%%%%3UcmG%%%%%%%%%ãU"%%%%%%%+%%%%%%%%%&%U%%%%%%%%%gq%fxyT%up&'%9%9%%%%%%2+$mG%%%%%%%ãU"%%%%%%%%%I%%%%%%%%%&%U%%%%I%%%%if%yfTf%siwj&&Tuw%lwrn%slTv%znhpãU"%gfxT%gqfx%yTup%&'9%%9%%%R%%Uc&mG%%%%%%%%%%%%%%%<%%%%%%%%%&%%U%ãU"%%&5%%%%ifyf%Tfsi.wj&T%yjru%Tgqf%xyTu%p&'9%%9%%[%%%U)cmG%%%%%%%ãU"%%%%%%%%)%%%%%%%%%&%%U%%(%j%%%%fxr%Tup&%'9%9%%%%%O%Ucm%G%%%%%%%ãU"%%%%%%%%*%%%%%%%%%&%U[%%%6%%%%r%nxhT%up&'%9%9%%%%%%3UcmG%%%%%%%ãU"%%%%%%%%%*%%%%%%%%%&%U%7%%Y%%%%ij%rtTu%p&'9%%9%%[%%%U)cmG%%%%%%ãU"%%%%%%%%%*%%%%%%%%%&%%U%%%%(&%%%htw%jTup%&'9%%9%%%R%%Uc&mG%%%%%ãU"%%%%%%%%%%,%%%%%%%%%&%%U%%%%K&%%%wjfi%rjTu%p&'9%%9%%#%-%H[rvFRiãU"vZ2Q[,%%p%;%%5%%%%%%%%%&%%E%%%%p&%%%fxr%Tgqf%xylj%ySfx%rup&%'9%ãU"9%%%%-C%El5CGj]_*?1-%+%N=%%%4%%%%%%%%%&%E%%%%v%.%%f%xrTg%fxyu%zãU"ySf%xrup%&'9%%9%%%[-%b.[uF2C:XpP(%%%Q0%%%5%%%%%%%%%&%%E%%%'Y6%%ãU"%fxrT%gqxy#htu(%Sfxr%up&'%9%9%%%%-%,C0uFE1[mS&e)%%%T1%%%5%%%%%%ãU"%%%&%E%7%%^:%%%fx%rTgq%xyux%jySf%xrup%&'9%%9%%%R-%PJIUGb5=p[^(7ãU"%%3/%%%3%%%%%%%%%&%%E%%%&x?%%%fxrT%rfqq%thSf%xrup%&'9%%9%%%.-%2ãU"rRVGig'F*H)%%%)0%%%5%%%%%%%%%&%%E%%%'3C%%%fxrT%gqfx%yhqx%Sfxr%uãU"p&'%9%9%%%%-%1GPmGV5pK+'v-%%%m#%%%5%%%%%%%%%&%E%%%%0H%%%fx%rTgqãU"%xyqn%sjSf%xrup%&'9%%9%%%.-%CyAdG8P77cI)%%%G2%%%5%%%%%%%%%&%%E%ãU"%%%[Q%%%fxrT%gqfx%yusy%Sfxr%up&'%9%9%%%%-%/El5Gej]_?&1-%%'N=%%%ãU"5%%%%%%%%%&%E%%%%YV%%%fx%rTgq%fxyu%zySf%xrup%&'9%%9%%%R-%shSlGMãU"Z8Z'1)%%%H2%%%5%%%%%%%%%&%%E%%%'=^%%%fxrT%gqxy%xhwq%Sfxr%up&'%9ãU"%9%%%%-%&rrvF*?zyW'0'%%'3,%%%6%%%%%%%%%&%E%.%%yc%%%rn%xhTg%qfxyãU"%ljyS%gfxu%p&'9%%9%%%%-%+%kfFB>mNi6#'%%F%)%%6%%%%%%%%%&%%E%%(%_ãU"f%%%rnx%hTgq%fxyu%zySg%fxup%&'9%%9%%%%-%(OR:F(D=eG1,%%%'5%%%6%%ãU"%%%%%%%&%%E%%%'Ih%%%rnxh%Tgqx%yhtu&(Sgf%xup&%'9%9%%%%-.%B?;sFX5ãU"%)Md(%%%B.%%%6%%%%%%%%%&%E[%%%0%p%%r%nxhT%gqxy%uxjy%Sgfx%up&'%9ãU"%9%%%%-%([dHF,PTF<%n)%%'^1%%%6%%%%%%%%%&%E%.%%Jt%%%rn%xhTg%qxyxãU"%uwVS%gfxu%p&'9%%9%%%%-%q&cHFV4Q))D#)%%i%1%%6%%%%%%%%%&%%E%%+%lãU"x%%%rnx%hTgq%xyxu%wWSg%fxup%&'9%%9%%%R-%TKmUGM\4$8I&7%%K'%%%4%%ãU"%%%%%%%&%%E%%%(f'%%%rnxh%Twjf%irjS(y'yu%p&'9%%9%%#%-%%_NmGkRBl,ãU"3#7%%7%h%%6%%%%%%%%%&%%E%%4%a(%%%ijr%tTgi%rtvg%VVSg%fxup%&'9%%9ãU"%%%#-%tN&mG'G*l433%%%9_%%%5%%%%%%%%%&%%E%%%)J;%%%ijrt%TgXi%vgYZãU"%Sgfx%up&'%9%9%%%%-%2*NmG:KL0+'85%%'[c%%%6%%%%%%%%%&%E%R%%0I%%%ãU"ij%rtTg%irtv%gYZS%gfxu%p&'9%%9%%%%-%p_NmGr0e?mL[5%%a%d%%5%%%%%%ãU"%%%&%%E%%1%tZ%%%ijr%tTgX%ivgV%VSgf%xup&%'9%9%%%%-L%0NmpGQH2(r'2ãU"%+%i_%%%6%%%%%%%%%&%E[%%%s&j%%i%jrtT%xirt%vgYZ%Sgfx%up&'%9%9%%%ãU"%-%2UimG_qAFD&=4%%'8d%%%6%%%%%%%%%&%E%I%%Px%%%ij%rtTx%irtv%gVVSãU"%gfxu%p&'9%%9%%%%-%f_NmGRgsYI/[1%%L%V%%6%%%%%%%%%&%%E%%7%C2%%%hãU"tw%jTgh%wjvg%VVSg%fxup%&'9%%9%%%#-%kNnmGi%&b%60.%%eQ%%%6%%%%%%%ãU"%%&%%E%%%+(?%%%htwj%Tghw%jvgY%ZSgf%xup&%'9%9%%%%-O%0k%=F/ 47 THEN col% = 47ã END IFã 'ã PSET (x%, y%), col%ã NEXTã NEXTã 'ãLOOPããSUB SetBurnPaletteã 'ã ' Original routine by PHOBIAã 'ã FOR slot% = 0 TO 63ã 'ã ' Fade from black to redã 'ã OUT &H3C7, slot% / 4 ' Slots 0-15ã OUT &H3C9, slot%ã OUT &H3C9, 0ã OUT &H3C9, 0ã 'ã ' Fade from red to yellowã 'ã OUT &H3C7, slot% / 4 + 16 ' Slots 16-31ã OUT &H3C9, 63ã OUT &H3C9, slot%ã OUT &H3C9, 0ã 'ã ' Fade from yellow to whiteã 'ã OUT &H3C7, slot% / 4 + 32 ' Slots 32-47ã OUT &H3C9, 63ã OUT &H3C9, 63ã OUT &H3C9, slot%ã 'ã NEXTã 'ãEND SUBããAndrew L. Ayers EXPLOSIONS W/FLAMES andrewa@indirect.com 04-30-97 (20:15) QB, QBasic, PDS 97 2418 EXPLODE.BAS 'ã' Program : Explosion Generator by Andrew L. Ayersã' Palette routine by PHOBIAã' Date : 03/03/1997ã' Description: This program creates explosions which resemble gasolineã' or hydrogen style, sorta like nebulas... Can be used toã' build up a multi frame explosion sprite...ã'ãDECLARE SUB SetExplodePalette ()ãDECLARE SUB Explode (ex%, ey%, rad%, den%, iter%)ã'ãSCREEN 13ã'ã' Initialize palleteã'ãCALL SetExplodePaletteã'ã' Draw some explosionsã'ãCALL Explode(120, 60, 40, 1350, 3)ãCALL Explode(160, 100, 50, 2350, 3)ãCALL Explode(200, 70, 30, 900, 3)ãCALL Explode(220, 150, 45, 1300, 3)ããSUB Explode (ex%, ey%, rad%, den%, iter%)ã 'ã ' Calculate palette step rate based on explosion radiusã 'ã stepr! = 48 / rad%ã 'ã ' Set up random particles for explosion, with pixel colorã ' becoming "cooler" with distance...ã 'ã FOR t% = 0 TO den%ã th! = RND * 6.28ã ds% = INT(RND * rad%)ã px% = ex% + SIN(th!) * ds%ã py% = ey% + COS(th!) * ds%ã PSET (px%, py%), 47 - (ds% * stepr!)ã NEXTã 'ã ' Loop through onscreen matrix of points, doing an 8x8 smoothingã ' interpolation pixel filter to blend adjacent pixels together...ã 'ã FOR t% = 1 TO iter%ã FOR y% = ey% - rad% TO ey% + rad%ã FOR x% = ex% - rad% TO ex% + rad%ã col1% = POINT(x% - 1, y% - 1)ã col2% = POINT(x%, y% - 1)ã col3% = POINT(x% + 1, y% - 1)ã col4% = POINT(x% - 1, y%)ã col5% = POINT(x% + 1, y%)ã col6% = POINT(x% - 1, y% + 1)ã col7% = POINT(x%, y% + 1)ã col8% = POINT(x% + 1, y% + 1)ã colm% = POINT(x%, y%)ã 'ã col% = (col1% + col2% + col3% + col4% + col5% + col6% + col7% + col8% + colm%) \ 9ã 'ã PSET (x%, y%), col%ã NEXTã NEXTã NEXTã 'ãEND SUBããSUB SetExplodePaletteã 'ã ' Original routine by PHOBIAã 'ã FOR slot% = 0 TO 63ã 'ã ' Fade from black to redã 'ã OUT &H3C7, slot% / 4 ' Slots 0-15ã OUT &H3C9, slot%ã OUT &H3C9, 0ã OUT &H3C9, 0ã 'ã ' Fade from red to yellowã 'ã OUT &H3C7, slot% / 4 + 16 ' Slots 16-31ã OUT &H3C9, 63ã OUT &H3C9, slot%ã OUT &H3C9, 0ã 'ã ' Fade from yellow to whiteã 'ã OUT &H3C7, slot% / 4 + 32 ' Slots 32-47ã OUT &H3C9, 63ã OUT &H3C9, 63ã OUT &H3C9, slot%ã 'ã NEXTã 'ãEND SUBããAndrew L. Ayers FLAMING TEXT andrewa@indirect.com 04-30-97 (20:15) QB, QBasic, PDS 102 2059 BURNPRNT.BAS'ã' BurnPrint routine By Angelo KEN Pesce 1997ã' Palette routine by PHOBIAã' Additional mods and comments by Andrew L. Ayers 1997ã'ã' You may use those routines as you wishã'ã' Authors may be contacted at:ã'ã' ken@uniserv.uniplan.itã' andrewa@indirect.comã'ãDECLARE SUB SetBurnPalette ()ãDECLARE SUB BurnPrint (x%, y%, text$, iter%)ã'ãSCREEN 13ã'ã' Initialize palleteã'ãCALL SetBurnPaletteã'ãCALL BurnPrint(8, 13, "BurnPrint - Press any key", 20)ããSUB BurnPrint (x%, y%, text$, iter%)ã 'ã ' Print the text stringã 'ã COLOR 48: LOCATE y%, x%: PRINT text$ã 'ã ' Wait for a keypressã 'ã DO: LOOP WHILE INKEY$ = ""ã 'ã ' Calculate the text positionã 'ã length% = LEN(text$)ã 'ã xstart% = (x% * 8) - 8ã xend% = ((x% + length%) * 8) - 8ã ystart% = (y% * 8) - 16ã yend% = (y% * 8)ã 'ã ' Loop through calculated text fieldã 'ã FOR r% = 1 TO iter%ã FOR y% = ystart% TO yend%ã FOR x% = xstart% TO xend%ã 'ã ' Get a random value from -1 to 1ã 'ã os% = INT(RND * 3)ã 'ã ' Use as a slot offset to drive burn function, which is a simpleã ' pixel color interpolation routineã 'ã col% = (POINT(x% + (os% - 1), y%) + POINT(x%, y% + 1)) \ 2 - os%ã 'ã ' Keep in rangeã 'ã IF col% < 0 THEN col% = 0ã 'ã ' Plot the new colorã 'ã PSET (x%, y%), col%ã 'ã NEXTã NEXTã NEXTã 'ãEND SUBããSUB SetBurnPaletteã 'ã ' Original routine by PHOBIAã 'ã FOR slot% = 0 TO 63ã 'ã ' Fade from black to redã 'ã OUT &H3C7, slot% / 4 ' Slots 0-15ã OUT &H3C9, slot%ã OUT &H3C9, 0ã OUT &H3C9, 0ã 'ã ' Fade from red to yellowã 'ã OUT &H3C7, slot% / 4 + 16 ' Slots 16-31ã OUT &H3C9, 63ã OUT &H3C9, slot%ã OUT &H3C9, 0ã 'ã ' Fade from yellow to whiteã 'ã OUT &H3C7, slot% / 4 + 32 ' Slots 32-47ã OUT &H3C9, 63ã OUT &H3C9, 63ã OUT &H3C9, slot%ã 'ã NEXTã 'ãEND SUBããAndrew L. Ayers PLAID SCREEN andrewa@indirect.com 04-30-97 (20:15) QB, QBasic, PDS 45 880 PLAID.BAS DIM x%(500), y%(500), dx%(500), dy%(500), c%(500)ã'ãSCREEN 13ã'ãMAXX% = 319ãMAXY% = 199ã'ãFOR t% = 0 TO 500ã 'ã x%(t%) = INT(RND * MAXX%)ã y%(t%) = INT(RND * MAXY%)ã 'ã DO: dx%(t%) = INT(RND * 3) - 1: LOOP UNTIL dx%(t%) <> 0ã DO: dy%(t%) = INT(RND * 3) - 1: LOOP UNTIL dy%(t%) <> 0ã 'ã c%(t%) = INT(RND * 256)ã 'ãNEXTã'ãDOã FOR t% = 0 TO 500ã 'ã 'PSET (x%(t%), y%(t%)), 0ã 'ã x%(t%) = x%(t%) + dx%(t%)ã y%(t%) = y%(t%) + dy%(t%)ã 'ã IF x%(t%) > MAXX% OR x%(t%) < MINX% THEN dx%(t%) = -dx%(t%)ã IF y%(t%) > MAXY% OR y%(t%) < MINY% THEN dy%(t%) = -dy%(t%)ã 'ã tick% = tick% + 1ã 'ã IF tick% > 5 THENã c%(t%) = c%(t%) + 1: IF c%(t%) > 255 THEN c%(t%) = 0ã tick% = 0ã END IFã 'ã PSET (x%(t%), y%(t%)), c%(t%)ã 'ã NEXTãLOOP UNTIL INKEY$ <> ""ã'ãSCREEN 0: WIDTH 80: CLSãããAngelo Ken Pesce PB ROTATE & SMOOTH EFFECT ken@uniserv.uniplan.it 05-01-97 (22:01) PB 129 2362 ROT.BAS ' APSOFTWARE 1997ã' POWERBASIC ROTATE+SMOOTH EFFECT TESTãã' ------------------------------------------------------------ã' This is only a test versionã' to do list:ãã' I have to build a new set of points (including mirrored negative points...)ã' I have to use shift left instead of constant mult (*320)ã' I have to make a better smooth effectã' ------------------------------------------------------------ãã$OPTIMIZE SPEEDã$CPU 80386ã$FLOAT PROCEDUREã$LIB ALL OFFãã' ------------------------------------------------------------ã' Some math constantsãpi = 3.1415ãã' Multiplication factorãmult = 20ãã' Number of points in dataãpts = 26ãã' Look up tablesãDIM r(pts)ãDIM alpha(pts)ãã' Points x,y arraysãDIM xp(pts)ãDIM yp(pts)ãã' TEST DATA (X,Y)ãDATA 3,1,4,1,1,2,2,2,3,2,4,2,5,2,6,2,1,3,2,3,5,3,6,3,1,4,2,4,3,4,4,4,5,4ãdata 6,4,1,5,2,5,5,5,6,5,1,6,2,6,5,6,6,6ã' ------------------------------------------------------------ãããã' ------------------------------------------------------------ããFOR i = 1 TO ptsãREAD b, aãxp(i) = a * multãyp(i) = b * multãNEXTããFOR i = 1 TO ptsãr(i) = SQR((xp(i) ^ 2) + (yp(i) ^ 2))ãNEXTããFOR i = 1 TO ptsãalpha(i) = ATN(yp(i) / xp(i))ãNEXTã' ------------------------------------------------------------ãããGOTO maincodeããã' ------------------------------------------------------------ã' Subroutine: RotatePoints(D,COL)ãrotp:ãFOR k = 1 TO ptsãangle = alpha(k) + dãradius = r(k)ãx = INT(radius * SIN(angle))ãy = INT(radius * COS(angle))ãIF x < 0 OR y < 0 THEN GOTO skipdãã' SLOW MULT --- TO BE REPLACED using shift left...---ãyy=y*320ãPOKE (yy + x), 63ããpoke ((y-1)*320+x),63ãpoke ((y+1)*320+x),63ãpoke (yy+x+1),63ãpoke (yy+x-1),63ããskipd:ãNEXTãRETURNãã' Subroutine: Waitkpressãwkp:ãDO: LOOP UNTIL INKEY$ <> ""ãRETURNãã' Subroutine: Flameãflm:ãfor y=0 to 198ãym=y*320ãym2=(y+1)*320ãfor x=0 to 319ãymm=ym+xãcl%=peek(ymm+1)+peek(ymm)ãif cl%=0 then goto skpf else cl%=cl%+peek(ymm-1)+peek(ym2+x)ãshift right cl%,2ãpoke (ym+x),cl%ãskpf:ãnextãnextãreturnã' ------------------------------------------------------------ãããmaincode:ãã! mov ax,&h13ã! int &h10ããOUT &H03c8,0ãfor i=0 to 63ãout &h03c9,iãout &h03c9,0ãout &h03c9,0ãnextããDEF SEG = &HA000ãdoãFOR d = 0 TO pi*2 STEP .05ãGOSUB rotpãgosub flmãNEXTãloopãENDãAaron Koehl SCREEN 13 WIPING ROUTINES akoehl@ccsinc.com 05-01-97 (22:14) QB, QBasic, PDS 200 6309 WIPE13.BAS DECLARE SUB Logo ()ã' RELEASED TO PUBLIC DOMAIN 5-1-97ã' Scenix Designs Incorporatedã' Aaron Koehl - akoehl@ccsinc.comã'-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-ãDECLARE SUB Intro ()ãDECLARE SUB Center (Text$, Res)ãDECLARE SUB Wipe13 (Action$)ããIntroãFOR Temp = 1 TO 63ã OUT &H3C8, Tempã OUT &H3C9, Tempã OUT &H3C9, 0ã OUT &H3C9, TempãNEXTããCOLOR 63: GOSUB DrawStuffãWipe13 "darken": PRINT "Darken": A$ = INPUT$(1): GOSUB DrawStuffãWipe13 "vertical": PRINT "Vertical": A$ = INPUT$(1): GOSUB DrawStuffãWipe13 "horizontal": PRINT "Horizontal": A$ = INPUT$(1): GOSUB DrawStuffãWipe13 "crosswipe": PRINT "Crosswipe": A$ = INPUT$(1): GOSUB DrawStuffãWipe13 "interlace": PRINT "Interlace": A$ = INPUT$(1): GOSUB DrawStuffãWipe13 "dots": PRINT "Dots": A$ = INPUT$(1): GOSUB DrawStuffãWipe13 "junk": PRINT "Junk": A$ = INPUT$(1): GOSUB DrawStuffãWipe13 "hole": PRINT "Hole": A$ = INPUT$(1): GOSUB DrawStuffãCenter "There is definitly more to come here.", 40ãCenter "Stay tuned for future editions!", 40ãA$ = INPUT$(1)ãSCREEN 0: WIDTH 80: PALETTE: CLSãCenter "SCREEN 13 WIPING ROUTINES", 80: COLOR 14ãCenter "RELEASED TO PUBLIC DOMAIN 5-1-97", 80: COLOR 15ãCenter "Scenix Designs Incorporated", 80ãCenter "Aaron Koehl - akoehl@ccsinc.com", 80: PRINTããENDãDrawStuff:ãFlag = 1ãFOR Temp = 0 TO 200ã Clr = Clr + Flagã IF Clr = 0 OR Clr = 63 THEN IF Flag = 1 THEN Flag = -1 ELSE Flag = 1ã LINE (0, Temp)-STEP(320, 0), ClrãNEXTãA$ = INPUT$(1)ãLOCATE 1, 1ãRETURNããSUB Center (Text$, Res)ãLOCATE CSRLIN, (Res - LEN(Text$)) \ 2ãPRINT Text$ãEND SUBããSUB IntroãSCREEN 0: COLOR 10, 0: CLSãPRINT STRING$(7, 13)ãCenter "SCREEN 13 WIPING ROUTINES", 80: COLOR 14ãCenter "RELEASED TO PUBLIC DOMAIN 5-1-97", 80: COLOR 15ãCenter "Scenix Designs Incorporated", 80ãCenter "Aaron Koehl - akoehl@ccsinc.com", 80: PRINTãA$ = INPUT$(1): Logo: CLS : PALETTEãSCREEN 13: CLS : COLOR 14: PRINTãCenter "The Scenix logo appearing earlier", 40ãCenter "in this piece is (C)1997 SDI.", 40: PRINT : COLOR 10ãCenter "These routines are intended for", 40ãCenter "mature audiences. May contain", 40ãCenter "abusive language and/or sexual", 40ãCenter "references. Any and all questions", 40ãCenter "and comments may be submitted to:", 40: COLOR 15: PRINTãCenter "-= Aaron Koehl =-", 40: COLOR 14ãCenter "akoehl@ccsinc.com", 40: COLOR 10: PRINT : PRINT : PRINT : PRINTãCenter "Scenix Designs Incorporated", 40ãA$ = INPUT$(1): SCREEN 0: WIDTH 80: COLOR 15, 0ãCenter "SCREEN 13 (320x200x256) Clear Routines", 80ãCenter "VERSION 1.0", 80: PRINT : PRINTãCOLOR 14: Center "SYNTAX", 80: PRINT : COLOR 10: Center "Wipe13 (Action$)", 80ãCOLOR 13: PRINT : Center "Where LCASE$(Action$) should be one of the following:", 80: PRINTãCOLOR 15: Center "darken", 80: Center "vertical", 80: Center "horizontal", 80ãCenter "crosswipe", 80: Center "interlace", 80: Center "dots", 80ãCenter "junk", 80: Center "hole", 80: PRINT : COLOR 13ãCenter "Stay tuned for future editions and optimizations", 80ãCenter "of these routines.", 80ãCOLOR 15: PRINTãCenter "[PRESS ANY KEY TO VIEW A DEMO OF THESE ROUTINES]", 80ãA$ = INPUT$(1)ãCLS : SCREEN 13ãEND SUBããSUB Logoã' IMPORTANT NOTE:ã' The logo contained here in this code isã' (C)1997 Scenix Designs Inc.ã' ã' Questions and comments regarding this pieceã' may be directed to:ã' Scenix Designs Incorporatedã' Aaron M. Koehlã' akoehl@ccsinc.comã' http://www.scenix-inc.comããSCREEN 13: CLSããVIEW PRINTãFOR Temp = 1 TO 63ã OUT &H3C8, Tempã OUT &H3C9, Tempã OUT &H3C9, Tempã OUT &H3C9, 0ãNEXTããFOR Temp = 0 TO 160ã Z = Z + Flagã IF Z = 0 THEN Flag = 1 ELSE IF Z = 63 THEN Flag = -1ã IF Temp MOD 2 = 0 THEN SOUND Temp + 300, .5ã CIRCLE (Temp, 100), 100, Zã CIRCLE (320 - Temp, 100), 100, Zã FOR Temp2 = 1 TO 700: NEXTãNEXTãããSOUND 490, 5ããFOR Temp = 1 TO 54ã FOR Temp2 = 1 TO 5000: NEXTã COLOR Temp: LOCATE 2, 5ã PRINT "(C) MCMXCVII Scenix Designs Inc."ã LOCATE 24, 15: PRINT "Aaron Koehl"ãNEXTããA$ = INPUT$(1)ããGOTO 3ãFOR Temp = 160 TO 0 STEP -1ã CIRCLE (Temp, 100), 100, 0ã CIRCLE (320 - Temp, 100), 100, 0ã FOR Temp2 = 1 TO 700: NEXTãNEXTãã3ãFOR Temp = 63 TO 1 STEP -1ã PALETTE Temp, 0ã FOR Temp2 = 1 TO 1700: NEXTãNEXTãEND SUBããSUB Wipe13 (Action$)ãSELECT CASE LCASE$(Action$)ã CASE "darken" ' Darken "WINDOWS 95" Effectã FOR Temp = 0 TO 200ã IF Temp MOD 2 = 0 THENã LINE (1, Temp)-STEP(320, 0), 0, , &HAAAAã ELSEã LINE (0, Temp)-STEP(320, 0), 0, , &HAAAAã END IFã NEXTã CASE "vertical" ' Vertical slideã FOR Temp = 0 TO 320ã LINE (Temp, 0)-(Temp, 200), 0ã FOR Temp2 = 1 TO 300: NEXTã NEXTã CASE "horizontal" ' Horizontal slideã FOR Temp = 0 TO 200ã LINE (0, Temp)-(320, Temp), 0ã FOR Temp2 = 1 TO 300: NEXTã NEXTã CASE "crosswipe" ' Crossed wipeã FOR Temp = 0 TO 320ã LINE (Temp, 0)-(320 - Temp, 200), 0ã FOR Temp2 = 1 TO 300: NEXTã NEXTã FOR Temp = 200 TO 0 STEP -1ã LINE (0, Temp)-(320, 200 - Temp), 0ã FOR Temp2 = 1 TO 300: NEXTã NEXTã CASE "interlace"ã FOR Temp2 = 0 TO 5ã FOR Temp = Temp2 TO 320 STEP 5ã LINE (Temp, 0)-(Temp, 200), 0ã FOR Temp3 = 1 TO 100: NEXTã NEXTã NEXTã CASE "dots"ã FOR Temp = 1 TO 5000ã LINE (INT(RND * 320), INT(RND * 200))-STEP(5, 5), 0, BFã NEXTã CASE "junk"ã FOR Temp2 = 1 TO 100ã LINE (INT(RND * 320) + 1, INT(RND * 200) + 1)-(INT(RND * 320) + 1, INT(RND * 200) + 1), 0ã FOR Temp = 1 TO 200: PSET (INT(RND * 320) + 1, INT(RND * 200) + 1), 0: NEXTã CIRCLE (INT(RND * 320) + 1, INT(RND * 200) + 1), INT(RND * 150) + 1, 0ã NEXTã CASE "hole"ã Temp2 = 200ã FOR Temp = 320 TO 0 STEP -1ã Temp2 = Temp2 - .625ã LINE (Temp, Temp2)-(320 - Temp, 200 - Temp2), 0, Bã FOR Timelapse = 1 TO 300: NEXTã NEXTã ãEND SELECTãEND SUBãAngelo Ken Pesce PB SMOOTH ROTATION V2 ken@uniserv.uniplan.it 05-02-97 (00:00) PB 193 3530 ROT2.BAS ' APSOFTWARE 1997ã' POWERBASIC ROTATE+SMOOTH EFFECT TEST v2ãã' ------------------------------------------------------------ã' This is only a test versionã' to do list:ãã' I have to use shift left instead of constant mult (*320)ã' I have to make a better trail effectã' ------------------------------------------------------------ãã$OPTIMIZE SPEEDã$CPU 80386ã$FLOAT NPXã$LIB ALL OFFã$ERROR ALL OFFããã' ------------------------------------------------------------ã' Some math constantsãpi = 3.1415ãã' Multiplication factorãmult = 20ãã' Number of points in dataãpts = (106+7)ãã' Trail lenght ( trf=(63-lenght) )ãtrf = 4ãã' Look up tablesãDIM r(pts)ãDIM alpha(pts)ãã' Points x,y arraysãDIM xp(pts)ãDIM yp(pts)ãã' TEST DATA (X,Y)ãã' line 1ãDATA -4,1,-3,1,-2,1,5,1,6,1ã' line 2ãDATA -3,2,-2,2,4,2,5,2,6,2,7,2ã' line 3ãDATA -3,3,-2,3,3,3,4,3,7,3,8,3ã' line 4ãDATA -3,4,-2,4,3,4,4,4,7,4,8,4ã' line 5ãDATA -3,5,-2,5,2,5,3,5,9,5,10,5ã' line 6ãDATA -7,6,-6,6,-5,6,-4,6,-3,6,-2,6,2,6,3,6,4,6,5,6,6,6,7,6,8,6,9,6,10,6ã' line 7ãDATA -8,7,-7,7,-6,7,-5,7,-4,7,-3,7,-2,7,2,7,3,7,4,7,5,7,6,7,7,7,8,7,9,7,10,7ã' line 8ãDATA -8,8,-7,8,-3,8,-2,8,2,8,3,8,9,8,10,8ã' line 9ãDATA -8,9,-7,9,-3,9,-2,9,2,9,3,9,9,9,10,9ã' line 10ãDATA -8,10,-7,10,-3,10,-2,10,2,10,3,10,9,10,10,10ã' line 11ãDATA -8,11,-7,11,-6,11,-5,11,-4,11,-3,11,-2,11,2,11,3,11,9,11,10,11ã' line 12 (at last...)ãDATA -8,12,-7,12,-6,12,-5,12,-4,12,-3,12,-2,12,2,12,3,12,9,12,10,12ã' latest additionsãdata 4,5,4,6,4,8,4,9,4,10,4,11,4,12ã' ------------------------------------------------------------ãããã' ------------------------------------------------------------ããFOR i = 1 TO ptsãREAD b, aãxp(i) = a * multãyp(i) = b * multãNEXTããFOR i = 1 TO ptsãr(i) = SQR((xp(i) ^ 2) + (yp(i) ^ 2))ãNEXTããFOR i = 1 TO ptsãalpha(i) = ATN(yp(i) / xp(i))ãNEXTã' ------------------------------------------------------------ãããGOTO maincodeããã' ------------------------------------------------------------ã' Subroutine: RotatePoints(D,COL)ãrotp:ãFOR k = 1 TO ptsãangle = alpha(k) + dãradius = r(k)ãx = INT(radius * SIN(angle))ãy = INT(radius * COS(angle))ãIF x < 0 OR y < 0 THEN GOTO skipdãã' SLOW MULT --- TO BE REPLACED using shift left...---ãyy = (y * 320) + xãyy1 = ((y - 1) * 320) + xãyy2 = ((y + 1) * 320) + xãPOKE (yy), 63ããPOKE (yy1), 50ãPOKE (yy2), 50ãPOKE (yy + 1), 50ãPOKE (yy - 1), 50ãPOKE (yy1 - 1), 30ãPOKE (yy1 + 1), 30ãPOKE (yy2 - 1), 30ãPOKE (yy2 + 1), 30ããskipd:ãNEXTãRETURNãã' Subroutine: Waitkpressãwkp:ãDO: LOOP UNTIL INKEY$ <> ""ãRETURNãã' Subroutine: Smoothãflm:ãFOR y = 0 TO 199ããym=y*320ããFOR x = 0 TO 319ãymm = ym + xãcl = PEEK(ymm)ãIF cl > trf THEN cl = cl - trf ELSE cl = 0ãPOKE (ymm), clãNEXTãNEXTãRETURNã' ------------------------------------------------------------ãããmaincode:ãã' Screen mode 13 neededã! mov ax,&h13ã! int &h10ãã' Set up 64 color palette (form 0 to 63, grey background)ãOUT &H3C8, 0ãOUT &H3C9, 40ãOUT &H3C9, 40ãOUT &H3C9, 40ãFOR i = 1 TO 63ãc=40-iãif abs(c)<>c then c=0ãOUT &H3C9, cãOUT &H3C9, cãOUT &H3C9, abs(i-32)*2ãNEXTããDEF SEG = &HA000ããDOãFOR d = 0 TO pi STEP .01ãGOSUB rotpãGOSUB flmãif inkey$<>"" then goto fadeãNEXTãFOR d = pi TO 0 STEP -.01ãGOSUB rotpãGOSUB flmãif inkey$<>"" then goto fadeãNEXTãLOOPããfade:ãtrf=2ãfor i=0 to 3000000ãx=rnd*320ãy=rnd*200ãyy=y*320+xãcc=peek(yy)+1ãif cc>63 then cc=0ãpoke(yy),ccãnextãfor i=0 to 32ãgosub flmãnextãENDãããDenny R. VandenBerg GRAPHICAL USER INTERFACE V1.1 dennyv@juno.com 05-02-97 (22:28) QB, PDS 261 17189 TGUI.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"TGUI.ZIP",4^6:Z&=12628:?STRING$(50,177);ãU"%up()%9%%%%-%gYAMG?x+$tN)%%%%-%%%,%#%%]'%]Sks[yrz6&9Il5%SIXs1+8ãU"lZ\7^^Im(Y/RMjo(PH19T?KBj\3]S/+,uJ3:f;$cd&-5Z*s%A$:1.-K9[#a3k-:ãU"[a+hQJWOV^C&zpMk+rlqiy'wQc0*_tw3rl3_=Dx[zh$U%d2z>:g?>)LKT2-E1Q9ãU"=%7:3e#MJ%UcZbCfm,u_e]EM=gM&FFzutZidu2ctw=bpAvwSmE0&<&%<ãU"4Ik<(0h8/C_,2JW).IvN0Wc99zTNwECCO)lZq.Q0>^3Oy1$ãU"RY#Q-1-o&j^&Xa]TAecoUJ(PDLB_lgE:k%T;,0-91]j^I*&d7IVc4BA/(+KoY_'ãU"/H/Ve\k:Tjfdif5SM)pa&q8qU2/MoR1&C-0C6k;2oN#KsFDJ3o7+P%+ãU"\4l,JAF$I])cT-S^a#C;vymFeN*LV]^I<3ug)%I&J)eAnZ'Bq5A2'UQoxMif5uKãU"eXCxijRa87oqK,,Rh;9Zr5JXJ4T6VGgOCTXD36nLgT(v7uknb/S/RwãU"zT1Qx,8U,HhE:0Vu/x/f+?_)U:Xxhp^%tãU":>jjv?UGN'%A->rH\2duDSa%brGEok]-^)Xhe+$=/uSNwX2)lPPect1'irFjq5]ãU"vPcx]u?Dj1g,IX5nF5$-uF5EmUDn4,[nHfFmkSrTT4iZ4^Zs.9a7wV$dT=?mXVcãU"2d6M^dgnJk[tGFq(9^Nh_8dvwA?fjv^H&,C4cO\_dT>MH5brvUs%pNUSur\n\OTãU"jkuTnF[W+VWVT]/#7jUr^mkBaUv+YQju#;.Cep\Ah(?[W2EBUYO%vTF(H.ãU"r[wXc#]dYOa$]_Bd3,_qI?,?\YKGl6G?GAmhzb#7Qa3qzhh=8u#c]_I2hS^DFat23Q5R,7NmAQIWDoãU"07JYQ1UWGIj9$b.XiIB8O*?TZmmxbd:(4oM3^-maq+25QYD58aSiE<8As5?D]%GãU"7aQnB-V7lsxy[t>+eul_6IxQcNzYqFOqmZ>oPzg<&v*Z]-4)G>4R\8dkS&&7q9LãU"qo1Jq+nPbF.V72SgysI#$*,Q/9[\ZW#bbr2gH.+6VKH._ikV>6+ha'e8T*o$#J)ãU"cQp4QZTPR:/M)nB_Gtbbm6tF8up\;]21P>+u#XCyKCX/3*1J0p('5sK&_*m4us:jIGãU"eDA4>)Qo0z.#kAANHS+MWQaZ;XO'w0Q(ovãU"furqS<)E90xj7nktf]%,fLO[c%95#p2t2C7v0ZphVCqai8I+-x[uhs9ak+r[*UdãU"X.2'&L5Z#bcB=49%Lg-,'G:u;Zjc2v?cTk7MheqK.0JVohcq4.dAoG,+xkNiM)oãU"M&HodwCl1/N'nj$;n:Yke==,HI%5;xTabAs*i[4Y%->O_+jM#K5N\?0]j8x8.6pãU"25Ol:3_td-YL-UZMkSxYV.x1tZPVoZMA,WSsVrt2o%JM&Jg1XãU"JeA9gBUDS;b_?[;U0[bVog$^0gC1MAm6(3oP63&*)ag\kdZkSyg$$M.qdVc2(3\NãU"$Nlvd>AVN-pX+l2UvzD\N6OUCCiDm3Pn4rkbF[.\;[CHXWgYjt$v\vlYvUxkLpxãU"vahwDp7,ywj97;hwin;cruQUN8rlL6;/USVJO,v%lU3]OM9FVtC&U8T^H+nn6,8ãU"\psQcTFm?P2d4WM^%IP+Q(,dInXVJdn18_;$,bt=d%8u9nb-$7-Tn2DIeaYDkfCãU"H?c4xt\KGpd-z_:E]z7A3O:JK4C4PaX#3Wl4(lu4NYdk]0o^vngH^UQ0;>j^BV\[V^)C^D[vdFuL>WHgD=oFPt+,x&u%p()9%%%%-#%hYMdGajV+_%*%%%%5%%%*%%ãU"%%ySkIsyD&*H:#lC9-Gr4-3$jL44wSVcRxOa*Lpn>b$-Uy4SRD9Z?Qt7=ãU"1b\nuM>$mkhH-6m75^>',+(mce60%u,1*OtuveRPWIZoFHlO>.n;?DX7\Y>_vg=ãU"\,W3qqb$D:2i+uR)J%e6>$jlãU"un6e>riD\1WM\5=lfwz)AII]-=>Y,(YW&fhOGIYBDT(KDtVF(*Q,Gfs$D0eU7&cãU"8PNCJMj*NQ#QjjgBJ%pCiiVxIkm#vX$99ajvnvyKna,n7[Pz>L(QsãU"T)\6$pUa';.am_aCM#Fx_#GgB7HXr%6YBi[8(d*Dd#3mpS#,T.fq_,.O/^Nli1(/GVp0_(8bO_9v.fXuy]=\BuDPiE&YN#2U-+lirgR>/r9pamãU";I:h;N\MYeJwO_DldãU"?7UC.zK5>VO+hHxAT\M;gtiU)PZ3Xl(r6m&>'k'26k_j#uL]wpYH8#0/i]:[=u_ãU"#K*k,]AOoNY7$\?t<_L,bD4c;ZI[%ãU"ka1W-6:>IZ6$s5a5hUy4L6>d>cemL59Lt5oqtHm>ãU"6dP>mStGGZeG2n1=lEwf]m6NsKT_,sHtNb:^d-tFTru2#%c2w7M>e*ãU"8=Rz2P8sK2,rhA2N<:g[Z?DcCHn[dIK14(jiu'MMdO]muBI6_=ExOZT?ãU"vR%DX;_s0o6Cors1XOet^p6ptbrtVc#o,vF4O[*#PCn;Q]0)QrF,vFjkB,A$J]AãU"1636zL$O<3enJ[ensGM+ma6CBvQUNF1Yk4\\C.sgiA$?Q8.TM$a)4d,0'lY$T4P>RG8(4Q#lEeb:t2:$p30?i<,i<9*qn]nVX6#>6IYAWN&jummsãU"o]FvcvvTT(/i3llLdZNkzhV6J8go+*/xt7W'/u6ãU"pe+3NVbler6k,YPr9H_MA2jd_VK9:kP7CU#8)m6ZiofAUzj&1ãU"yPX2cT)dIfTInQ==lb/O%P<<]d&+:;7kU79ãU"\vpHV^UZu/EJjc7\.>frvu-vc6A5iT9;s_X]&',tMFi$e&3hnHL+1,pU--Tv:H4ãU")svb+Qpk>-Tcb[7.um5F*/#]JY\pJ^g=0HArs#dtSG8Sm*[w?g*<:pU,xS7nHh]ãU"K3DZyQBho*nMn5KiTOy8?9RBqX+rN7?p_4MK\_'SwDHcTOg4ZTCa%#(v4S=DIG.ãU"49?3ot%sWk&F>dL(25k=?r.t]#9B>RqT9Qi$41=W9T(3;kUnXuxaebpC<\WXV&eãU"UJKn8H4o3jf9hi;?P=bp+s'8'Ad7uBpn+Heq^XghYPv)C#5t+l+]A4=7t^-#9CzãU"p4u#tuB3NI)DKFL.PCth7]6aP+e*up$o\rhZ)*E]A:+jekTfu*2&,)kMK^8b4ZLrãU"jbrbwc6rVu?)HYF/34e2Yemj3U%,ovJ1F,PwIie7T24lZfãU"^J*dqcOQ[j$^34GM]_IF\kT#])N#aC,zR&4],V?LN>s*ju9UdM5j;^A-SPaãU"N58G9=]QTfeTgh6pdE9?FX)LEGvIS-NPjE:;:Uj'qOgaX4hq?jb8H^ucluhSBMJãU"::xRIO3jQ4l^d9c9qTU89oS9IKEYIQKTxa6*m'Kww9'vo'BrPãU"^0zvVSnzP:fu0Z3mx$WXNRXQv;jzXdpM:avA,ZnNaGd8k\BTPw=,86ToM#EkjLtãU"M4Xy*YM$]C3ou&bUSaEr9w%,up(%)9%%%%-%g(YMG9[68np\hFGjpt>hmR*YsLãU"H/H^Tmb4+]Zi0>H*UoB2:i6[wf-G.>(aV3GT?CQo-6om/C]ãU"3/yyR'7naV[$^^B61^&<2fffFeT,>\[.k#j,v7iY08Xn0Vq$A?+jãU"VtrgMuf^d.3o.HY6NQ1]1xu>Lb%15qgr%xWMABeD.#B-d-\B&gWSL9/C5PoWON'ãU"7)aBU&OW^l\R975Lu?d2Y5uWS]])UrN9to%r:l\$H7cDn(^g[kDDtOB60dãU"G1QY]L(fDB_tcV+A/)IZrBUQs\Jm%c9KU&u7)t=2>J:7I^HAj8NQBW/:2rh(Eh1ãU"+2l#kM3.)eh3.,Ht.7UM2Dmoy%WX.5^y-zN#0H;vm:OVNj6\0(iPzwwr?2Gl358ãU"399fH8QlD0jC3kH%(o&em''O+M=]v>a%4aAmCopK37k\^]KsXT*e7kksbr[1viuãU"8?bLbrH4x/K9u1a?Q)<6\-uo(e*vJFfZ*J7o(x%(_4?2XAvWZoãU"Pn5ZlsnIgbn:v(=.LD,73%*KPSNH%J]iyllNHRm#B(+:9_x/BdhSLGJd;7ITBt)ãU"Mc=^wI#ExN>w3D8\TaLtLuij=kOnudr.uq#L;G-(>y]\lp81#[e$*vhg^zQx#&)ãU"Q5X%HIkfM_ax7AjXENK8x<9kM&Op&r'M+HT_,)mngG1oTf0pãU"WrxG[RQ(un]4h6N=*#>VBO4?U.5F[PyQWo+y1%8*?DeOOO$GM6*28/Is-%ld%CtãU"vxGC3CXC)=^EEm3nZ_o,zI>C5iCx?l7$UUQo:Jiozb6hKyIk9c('fqf%V?,r#OQãU",m5xdjvApxYIsZKqf%fDr$zlUKs%J+a?]B3Y)sv[RBC[QVt2ToXKoKGtDxwr>1*ãU"q+WW^8QfTsyd*d^PBO$8MAYnOo)j?uB\:.K(cZcSFFq,jV-l8^il*Y1w\rg1*=8ãU"$LBDbtM(xelx#J.YICfTUMDjYjkp59VYQE[+HkLPa;1YMi#7YJ\*k4k0>GNU=WSYBuOYvtbpx\lãU"+?.hcWVdXStpVZu\MpcmYrHVu\GLM5bQEKI_.BOZ8xM\mt$xQrv)W3Z$j,]Q8KI;[;WD$-78,smãU")&&8W?pGMtz(.#UTo9Vt\0e9k)%#V$:-,V_LWLIUHin2nJ^'YAKsIrvMvBgD=l6MB9mj?4f8Sh\jB4Wx;wEjv1xc=r>u]LYsKB)mr;mU?r.ãU"b=)uFl.f#;GlXzbc-0WnWmCn+W9PP:\Ljptk7iC\vEãU")h*=Nup%()9%(%O-%0$NqGgK.*x%<:%%*3/%%%-%%%%ylzn%SgfxKfa:BZ[?+nRãU"h:xpHP.3_K>QWVQf&GBO1A:9+Vq'c*BM9E+#CE6pIQn^-wo$b+TFmH,;hKL4^2(ãU"Tu/MLVZL(bh)8\MeZPn5wj59v4XCu_=;Rthff&wR[$Ml^4i9T?Z2=,'+EYGc-RpãU"QHn-sl-'q6.C$F/Yd%.O)hE>axd-d8YY.M?&jnP/,AlZ9&9A+swGG9[s)$^G3%6H:=C\*g=L&[)ciwe]UãU"^CW).'%O:i+Fh]kQIA83[>5?g2-;j^sC182dCv?^iK]tJãU"Y+;r-mWM#aV:62Q'.0j?s9][WqD&iYNtB?ufwSsV/c]jCr%KxJ%JrF]?i)RSJXUãU"*QH.mU/m.YiPu'hj)nz5J$CmV[+4FGC>-;?.hbFd&LI.(kD\V6;4O?DMXq*'o4q#/6]6)cE3+#g0gg']57ExX)JKEOC8%XN$^>P)\.idZI]l-BãU"WC2b<5EKBf+*ul-NpMTA]b6c8B2M&\_t?#*Cv[nXhx-075-h50/3[KIpb/+SPbwãU"J4eyi^WoEV2i0eh,kY,2o$GdeAjYd)[8/Z%%]9E%GD[=\/kST9]H?hqa&)jU.$puO1:ãU"#q6RXTY.vmet:;-YTAN8SLi($satorTw.8FxFA9rHqfGFN#6gCl6o^uA>tAoa2UãU"fyhjuDHoHf6fFqOXkIR-5WETQ5;.bfd\+>a)ZaT[1K8Us1h?oPD(:vfen\\,U42ãU"9O\GRjF9)rrN5Zp1OuOWK*0H&OqEjgjWc=Ih$mU(altGkcSPVhT2g>bOtDso^b7ãU"U>Rfo%Y,Vc0bO#tOppOH#J?Z(26n0%\h]ExUGDUlc;0TO06fqvNP.mdeZP;843Q=5eW2G[(.Mpn+nr-uGV&7aArnI\oaLWzpl?ãU"NIJ?k54VhiW-$HD;URj)e=SNbTT(1OE,y'9]XrK]2iO:rm&CUV&+2,8U/c1ãU",upWR&f;PkX1To$%2F?)HD?Xc,+^,l:d5Qk2?8#g*l]Wh2c]wyUCTe4ZO:rSigUãU"b41,AT3Wo0)eCn(*'CtK+VZrv/AT#9*dL6d/;_IeMxxIKb)&gãU"9wbGHC&jX?o>xB$LK.=<:=>uUqnJSq>P_^Mp.'2W=h1Ie)wm+-Mr\M^EP+dO;Di?jah&lE2*'gc9JRVXX;W(-+N^SsWqC6JAyUrVoAhTãU"IlQ]WRKJ1WE$gG>IR.=4isBCoDCuv(R.OJmAs0Zy)IQOYHKEYiLkQ552s(:YTF)ãU"F)iI?*NFU4MB;5\UOC^e5&E%5cv:s$NW?-c$OHeX-:&k/=s,=&k:$WRj956mQYDãU"XX2B:X^Aw5T_c0)wl[:P/=O%E.y%H;=02p1g8In$97k2DOrSzs(IFBHEpDfM=?sãU"oQJuAPj?#cJ&Ueyvrg([0:9_A5L_cthd0]$uLQxlqSWJ.:&yUj^s:E.,pygIgWSãU",&KuqRX'B_loB#wPp7BNuE+(PXy\MX)fqQ?Gxj+j&#i]&LjVq:qOLGqOxqHOL37ãU"/gi'O_e#Q/:12*:kZSEVa2qC1=tDimn8tCSRo2;%d_+)?4fQY,qãU"pcYMksN8%7zh>9$+MvkR)&,4SVG\8,)exF/EpPIB>cZYeL?ZFC<#1M857vQ+;6zãU"zSOgmP)Nsex2antJ#dpnMqeeuEOMr(Uc]$KBrH2BH&y/umqMRtw(HtFJiuH)qrlãU"ci$Y8ZH\3;n6-).z?L_ty98-'EozHl)jG,9UGusMtl;%.0&Pr9IGScvbm>go8]9ãU"*M;z:N3nyoH])kgk8;aYgkax)do/7JecJp_fB$m6Hdj)&3Lv>25m/bWqR^ãU"$[\;o##pYdPKE?XLBLr)b#;95\MQ,5UzU?Vf6Ba_:&&-llVAOS9^H_4Z_G^Mn(JãU"_0JmO[rRRAQMaVP'/EQ[5-g)Pk'+-b6]z>)4OjzR8lgZpkk$MP%bbur*(]l_exvãU"1$A%83VY_mX+k%tlJ9xA8tq/>7by+R7.wMzzZDmLycL.Mrq4$HJQHg9UYtWIV:.ãU"L;zUh0^-Uhh&7i.ZCTOB_BqcM;<-%1(#0f6P_=1dMSO=q'f&T)*17uA$s<9ZRU2ãU"+K6cP_N+e$YIm/72le/],Y0gR[ãU"%iGId2;IM7^L,GdHb(^-N_G0$GI:;$z7eX:NCK&=k#^]H8YcEN?)lcdD6;?bg'tmMB5ãU"41AFY\?6gTGLs;n,;'73PN/'z$1i0CQ*Ikt[8S\8FR,?fS]o^Y4vrãU"X#5nyZi4VrCA*(OfLz$bo6)+*o#DSIf,(:PUr=.)^VZTEM6*q4>VãU"/k9q#rZ:Zhj5keh%9$)=4:>_dE#o0h2J19_]tx5P:m<5V<,j;O&3*6mtDX-)8$wãU"9VpY,)ub8DjnYOP+2G)kZ1w9?3Q+hA+);LcYd9yt\#N;LyU(YE1mQT^Av4+>3yHgq)f,A\HRj1o$lxJtrtgFW4XpãU"eR1:S_1huMu10M1>&3G3iv>JU6ok$v75kriTl)T[gpH^%2\+<>]3LMbu#0SqUa2ãU"ro:aL>$C4>v=Q2CxMAOxbj;bãU"d_I)4yps_DRqXEJvs8/D]mOp)fd.Nc3#I96_U/Ay_nh-=s:bSEEpvYmkdJ/okdcãEND SUBãSUB V2ãU"GGYp#9.WKgR099-5>;W;RpCãU">(tXbgwlWVQ$#_FQEDZnw;Nhn^Se[%w66M^<)S[T4,C30s9&*7Q_eIr3UZSo$1_ãU"ji6T;#pk276xaQ<-_:,<8SqwGSEZE.YUS1%0ZK1_DyNCBww6eqYO1Q*<:ZQnwY5ãU"$n]EZn3vAT*N(z$,33B<#ic?%Q*:YQW#G(?ãU"-:j^pXKU:cWk8GF%1$5Kgbbq$KCY_dh=r/+#V/-rns%fIU#;QfmV2S*7k-dSi$dãU"YB(X^/tkz9)uGn)\ckfgV[n)gQ)+Mu%2XdSZPJ:G\mRcG\5MkAf>T.qGupXA+>FãU"V10Tadnc?oKR1tAHqo:,S>Rwj'k3=)Y%4KPSeXAcJThNe;CCVQfd7([s[ãU"Lny9f]_BH\6epmgLXb4e+ru$VWmaoYt1NK:Sq299h?rA)nz8./)bPzQ_#%cE<)JãU"n4Y&*ad-:0&.lãU":>=gCUu+4]psLUfZP='N6Y2uV-uofB=SuP:%i,(>:a4%2$8_KWV1/AZ1=we,t;:ãU"z.fHn2%zfqXdc3mm-6+2'S$YE3;yn&:aNK2%l6M%o7BdhRe8tRLEA#wp3#,H]qRãU"lsil.))3sCi$F-X%2wI/OjãU"3&97%vMZh8&Z:1,(AWiDgd6iQ?:qcAxWD,LA[P6V,wm_Ai$?K^0[pQ%QtPJphPTãU"M2yCh:9IkS]h6y<=ICI$v2i)$w]Bz,[$*h3#+xLMVO37us\xd\EcHLY$pKi$Dt\ãU"e9?^)Z-+FsMd5dj-%c+Mlwh:a&kn(scsn2nL-=$RBtj6s=QliG[dn?N+.G5Qw5yãU"KhoJF4KWrL,omg$QJV]p2oB88RvZk^=LN>U>EM[l0co>T\Ibq=JJRJKãU"][UYkcVL=P+VM'U$vnCc=h*cTf>5&/xcSyTarHo3cc#x_zH13WCqAZidM$=YHfOãU"i5bg,w;=tWoGk'+9nID;VChP+6i5=BX&p'pi0%+ntF;4iqml_C7dm\8%jmq]OuA)yB79CvsmV*uGfuP9s6gZ_ob;#K]RT_dNq=r5DY1At0WUphF#T9Qn>R\pv>;7e?nãU"d6P'[Z^mK&;gtjDRWp%;LwNta,oQG+?Mk2,_eRZLd/)Y6BR*0FkMEau.(HiX5qgãU"_dIOwSaOb#(L(CFRL+'(Q=;NofZBFqdqhdUrQ,;Mk'&O+f0FNpD41coK9/hZrJpãU"yj,RXO?'9P^-NN>v>vH+yb\h\m?$gLotHWW$-NYWNc;.XjRxt\?^cxaFr]X$MphvsP8nM1K8nv9UAfDyZ6dT0Jn1X/uiãU"?VRmWR);XI;bZ$ZF)wJ#Xy[8hPaR]oDDB(DwYV:.OKL*^M\$L?%F7fhTl7;olaeãU"uVR;7686PaF.1aeYj>n=W7;let$ESY\GP,'ek,rcH,nubB>fQpfIiZ#/+S7kYQFãU"HSoJga7(hqN#NGoToHg$_8&)Em-W$:fDA9t&Go\+QX#2)Y2Xs0Ns3'Gt]l3N8mhrmarZNmxSe.AM3_^DãU"vW;#28M:_bvBmEs?d2XAE:FJPd#KY47:BYmRDb2/Xtzsg=$y(CN$Dn:ozqãU"?$SNwb0XTdK+gb*VXB'uh[?,aZ6Z\:0RbR7^F'jo9fOA]Q_d'WhQ&muu3:^r8B6ãU"=hy8'c0U076R$LvZ=/(RHS5GKsjV>/p#[*65lZui%2;*m2g&Bjk6ER(LQroZ^,sãU"HKJVLl[Gm-Q\nQmc_= 0 AND yvaria% <= ymaxtela% - 1 AND xvaria% >= 0 AND xvaria% <= xmaxtela& - 1 THENã DEF SEG = VARSEG(msprite%(1))ã byte% = PEEK(xsprindex&)ã IF byte% THENã DEF SEG = VARSEG(tela%(1))ã POKE ((xmaxtela& * yvaria%) + xvaria% + 4), byte%ã END IFãEND IFãNEXT xvaria%ãNEXT yvaria%ãDEF SEGãEND SUBããSUB PutSprite (sprx%, spry%, msprite%(), tela%())ãymaxtela% = tela%(2)ãxmaxtela& = tela%(1) / 8ãymax% = (msprite%(2)) - 1ãxmax% = (msprite%(1) / 8) - 1ãxsprindex& = 3ãFOR yvaria% = spry% TO spry% + ymax% STEP 1ãFOR xvaria% = sprx% TO sprx% + xmax% STEP 1ãxsprindex& = xsprindex& + 1ãIF yvaria% >= 0 AND yvaria% <= ymaxtela% - 1 AND xvaria% >= 0 AND xvaria% <= xmaxtela& - 1 THENã DEF SEG = VARSEG(msprite%(1))ã byte% = PEEK(xsprindex&)ã IF byte% THENã DEF SEG = VARSEG(tela%(1))ã POKE ((xmaxtela& * yvaria%) + xvaria% + 4), byte%ã END IFãEND IFãNEXT xvaria%ãNEXT yvaria%ãDEF SEGãEND SUBãCleber de Mattos Casali FLIC PLAYER W/SCREEN BUFFER Landale@usa.net 05-11-97 (16:42) QB, QBasic, PDS 205 6010 FLCPLAY.BAS DEFINT A-Zã' QBX/QB Flic Playerã' Original Program by Carl Gorringe (thank you very very very much!!!)ã' Reprogramed by LanDaLe (Cleber de Mattos Casali)ã' CMC Soft.ã'ã' e-mail : rLanDaLe@geocities.comã' home page : www.geocities.com/siliconvalley/park/3019ã'ã' Now featuring Screen Buffer (I really love Screen Buffers...)ã' obs: No speed limiting, good stuff for my 3x86!!!ã'ãDECLARE SUB PlayFLC (FileName$)ãTYPE FLIheaderTypeã Size AS LONGã ID AS INTEGERã Frames AS INTEGERã Xres AS INTEGERã Yres AS INTEGERã ColorBits AS INTEGERã Flags AS INTEGERã Speed AS INTEGERã Reserved AS STRING * 110ãEND TYPEãTYPE FLIframeChunkTypeã Size AS LONGã ID AS INTEGERã Chunks AS INTEGERã Reserved AS STRING * 8ãEND TYPEãTYPE FLIdataChunkTypeã Size AS LONGã ID AS INTEGERãEND TYPEãSCREEN 13ãPlayFLC "c:\draw\giant.flc"ããSUB PlayFLC (FileName$)ãDIM Header AS FLIheaderTypeãDIM FrameChunk AS FLIframeChunkTypeãDIM DataChunk AS FLIdataChunkTypeãDIM Byte AS STRING * 1ãDIM flitela(1 TO 32002) AS INTEGERãFileNum% = FREEFILEãOPEN FileName$ FOR BINARY AS FileNum%ã GET #FileNum%, , Headerã IF Header.ID <> &HAF11 AND Header.ID <> &HAF12 THENã CLOSE FileNum%ã EXIT SUBã END IFã IF Header.Xres <> 320 OR Header.Yres <> 200 THENã CLOSE FileNum%ã EXIT SUBã END IFããflirotina:ãFOR timming = 0 TO Header.Frames STEP 1ã DEF SEG = VARSEG(flitela(3))ã FramePos& = LOC(FileNum%)ã GET #FileNum%, , FrameChunkã IF FrameChunk.ID = &HF1FA THENã FOR Chunk% = 1 TO FrameChunk.Chunksã DataPos& = LOC(FileNum%)ã GET #FileNum%, , DataChunkãã SELECT CASE DataChunk.IDã CASE 4, 11ã Index% = 0ã GET #FileNum%, , PacketNum%ã FOR A% = 1 TO PacketNum%ã GET #FileNum%, , Byte: SkipByte% = ASC(Byte)ã GET #FileNum%, , Byte: ChangeByte% = ASC(Byte)ã Index% = Index% + SkipByte%ã IF ChangeByte% = 0 THEN ChangeByte% = 256ã FOR B% = 1 TO ChangeByte%ã GET #FileNum%, , Byte: RedByte% = ASC(Byte)ã GET #FileNum%, , Byte: GreenByte% = ASC(Byte)ã GET #FileNum%, , Byte: BlueByte% = ASC(Byte)ã IF DataChunk.ID = 4 THENã OUT &H3C8, Index%ã OUT &H3C9, RedByte% \ 4ã OUT &H3C9, GreenByte% \ 4ã OUT &H3C9, BlueByte% \ 4ã ELSEã OUT &H3C8, Index%ã OUT &H3C9, RedByte%ã OUT &H3C9, GreenByte%ã OUT &H3C9, BlueByte%ã END IFã Index% = Index% + 1ã NEXT B%ã NEXT A%ã CASE 12ã GET #FileNum%, , StartLine%ã GET #FileNum%, , Byte: NumLines% = ASC(Byte)ã LinePos& = StartLine% * 320&ã GET #FileNum%, , Byte: StartByte% = ASC(Byte)ã FOR Y% = 1 TO NumLines%ã GET #FileNum%, , Byte: PacketByte% = ASC(Byte)ã X% = StartByte%ã FOR A% = 1 TO PacketByte%ã GET #FileNum%, , Byte: SkipByte% = ASC(Byte)ã GET #FileNum%, , Byte: SizeByte% = ASC(Byte)ã X% = X% + SkipByte%ã IF SizeByte% > 127 THENã SizeByte% = -(SizeByte% OR &HFF00)ã GET #FileNum%, , Byte: PixelByte% = ASC(Byte)ã FOR B% = 1 TO SizeByte%ã POKE LinePos& + X%, PixelByte%ã X% = X% + 1ã NEXT B%ã ELSEã FOR B% = 1 TO SizeByte%ã GET #FileNum%, , Byte: PixelByte% = ASC(Byte)ã POKE LinePos& + X%, PixelByte%ã X% = X% + 1ã NEXT B%ã END IFã NEXT A%ã LinePos& = LinePos& + 320ã NEXT Y%ã GET #FileNum%, , Byteã CASE 7ã LinePos& = 0ã GET #FileNum%, , NumLines%ã FOR Y% = 1 TO NumLines%ã DOã GET #FileNum%, , Word%ã WordType% = (Word% AND &HC000)ã SELECT CASE WordType%ã CASE 0: PacketCount% = Word%ã CASE &H8000: LastPixel% = (Word% AND &HFF)ã CASE &HC000: LinePos& = LinePos& + (Word% * -320&)ã END SELECTã LOOP UNTIL WordType% = 0ã X% = 0ã FOR A% = 1 TO PacketCount%ã GET #FileNum%, , Byte: SkipByte% = ASC(Byte)ã GET #FileNum%, , Byte: SizeByte% = ASC(Byte)ã X% = X% + SkipByte%ã IF SizeByte% > 127 THENã SizeByte% = -(SizeByte% OR &HFF00)ã GET #FileNum%, , Byte: PixelByte1% = ASC(Byte)ã GET #FileNum%, , Byte: PixelByte2% = ASC(Byte)ã FOR B% = 1 TO SizeByte%ã POKE LinePos& + X%, PixelByte1%ã POKE LinePos& + X% + 1, PixelByte2%ã X% = X% + 2ã NEXT B%ã ELSEã FOR B% = 1 TO SizeByte%ã GET #FileNum%, , Byte: PixelByte1% = ASC(Byte)ã GET #FileNum%, , Byte: PixelByte2% = ASC(Byte)ã POKE LinePos& + X%, PixelByte1%ã POKE LinePos& + X% + 1, PixelByte2%ã X% = X% + 2ã NEXT B%ã END IFã NEXT A%ã LinePos& = LinePos& + 320ã NEXT Y%ã CASE 15ã LinePos& = 0ã FOR Y% = 1 TO 200ã GET #FileNum%, , Byteã X% = 0ã DOã GET #FileNum%, , Byte: SizeByte% = ASC(Byte)ã IF SizeByte% > 127 THENã SizeByte% = -(SizeByte% OR &HFF00)ã FOR B% = 1 TO SizeByte%ã GET #FileNum%, , Byte: PixelByte% = ASC(Byte)ã POKE LinePos& + X%, PixelByte%ã X% = X% + 1ã NEXT B%ã ELSEã GET #FileNum%, , Byte: PixelByte% = ASC(Byte)ã FOR B% = 1 TO SizeByte%ã POKE LinePos& + X%, PixelByte%ã X% = X% + 1ã NEXT B%ã END IFã LOOP UNTIL X% >= 320ã LinePos& = LinePos& + 320ã NEXT Y%ã GET #FileNum%, , Byteã CASE 16ã FOR P& = 0 TO 64000ã GET #FileNum%, , Byte: PixelByte% = ASC(Byte)ã POKE P&, PixelByte%ã NEXT P&ã CASE ELSEã SEEK FileNum%, DataPos& + DataChunk.Size + 1ã END SELECTã NEXT Chunk%ã END IFã SEEK FileNum%, FramePos& + FrameChunk.Size + 1ã DEF SEGã flitela(1) = 2560ã flitela(2) = 200ã PUT (0, 0), flitela, PSETã IF INKEY$ = CHR$(27) THEN CLOSE FileNum%: EXIT SUBãNEXT timmingãCLOSE FileNum%: EXIT SUBãEND SUBãTika Carr QUICK IMAGE CONVERTER t.carr@juno.com 05-11-97 (14:59) QB, QBasic, PDS 245 7097 QIMCV.BAS DECLARE SUB MakeProg ()ãDECLARE SUB BMPLoad ()ãDECLARE SUB PCXLoad ()ãDECLARE SUB TGALoad ()ãDECLARE SUB Menu ()ãDEFINT A-Zãã' QIMCV.BASã' Quick Image Converter 1.0ã' by Tika Carrã' May 4, 1997ã'ã' Freeware:ã'ã' This program can be used as you please, as long as you give credit toã' the respective author(s).ã'ã' No warranties or guarantees are expressed or implied.ã'ã' Credits:ã'ã' Tika Carr (t.carr@juno.com) Put together the pieces :)ã' Dave Shea BMP Decoderã' Jonathan Leger (leger@mail.dtx.net) PCX Decoderã' Erika Schulze (100775.2275@compuserve.com) TGA Decoderã' Earl Montgomery Load/Save QIM formatã'ã' Special thanks to others in the FidoNet QUIK_BAS Echo who helpedã' contribute ideas to this project.ã'ã' Description:ã'ã' Quick Image Converter will convert 256 color 320 x 200 images saved inã' BMP, PCX or TGA format (sorry, no GIF due to licensing requirements).ã' TGA images must be saved in uncompressed format. The result is aã' .QIM file, that can be quickly BLOADed into your programs:ã'ã' Block 1: QuickBasic BLOADable Image (64006 bytes)ã' Block 2: Palette information (768 bytes)ã' Total: Total File Size (64774)ã'ã' This program also saves a .BAS file that you can merge into your programsã' and display the QIM file.ã'ã' Revision History:ã'ã' 1.0 5/4/1997 Put together different sources, and createdã' main and sub menus.ãã'**** Startup ****ãTYPE tgaã info AS STRING * 1ã clr AS STRING * 1ã img AS STRING * 1ã orig AS INTEGERã col AS INTEGERã bits AS STRING * 1ã xval AS INTEGERã yval AS INTEGERã w AS INTEGERã h AS INTEGERã pix AS STRING * 1ã desc AS STRING * 1ãEND TYPEãã'**** Main Program ****ããSCREEN 0, 0, 0: WIDTH 80: COLOR 15, 1: CLSããPRINT TAB(25); CHR$(219) + CHR$(178) + CHR$(177) + CHR$(176);ãPRINT " Quick Image Converter ";ãPRINT CHR$(176) + CHR$(177) + CHR$(178) + CHR$(219)ãPRINT TAB(34); "by Tika Carr"ããLOCATE 7ãPRINT TAB(25); "[L] Load an Image"ãPRINT TAB(25); "[D] Get a Directory Listing"ãPRINT TAB(25); "[Q] Quit Program"ãPRINT : PRINT : COLOR 10ãPRINT TAB(25); "While viewing picture:"ãPRINTãPRINT TAB(25); "[S] Save screen"ãPRINT TAB(25); "[E] Exit to main menu without saving"ãPRINT TAB(25); "[Q] Quit program without saving"ããDO: P$ = LCASE$(INPUT$(1)): LOOP WHILE INSTR("ldqv", P$) = 0ããIF P$ = "q" THEN COLOR 7, 0: CLS : ENDãIF P$ = "d" THEN COLOR 7, 0: CLS : SHELL "dir /w /p": SLEEP: RUNããCOLOR 11: LOCATE 23, 3ãWHILE format$ <> "bmp" AND format$ <> "tga" AND format$ <> "pcx"ã PRINT "File to load (MUST give BMP, PCX or TGA ext) ENTER = Menu: ";ã LINE INPUT file$ã IF file$ = "" THEN RUNã IF LEN(file$) > 4 THEN format$ = LCASE$(RIGHT$(file$, 3))ãWENDããLOCATE 23, 3: PRINT SPACE$(70); : LOCATE 23, 3ãPRINT "Image Filename (no ext): "; : LINE INPUT img$ãLOCATE 23, 3: PRINT SPACE$(70); : LOCATE 23, 3ãPRINT "BASIC Program Name (no ext) or ENTER for same as Image: ";ãLINE INPUT BAS$ããIF BAS$ = "" THEN BAS$ = img$ + ".BAS" ELSE BAS$ = BAS$ + ".BAS"ãimg$ = img$ + ".QIM"ããSCREEN 13ãã'**** Load A BMP ImageãIF format$ = "bmp" THENã LOCATE 10, 5: PRINT "Please wait for image to load."ã SLEEP 2: CLSã OPEN file$ FOR BINARY AS #1ã h$ = SPACE$(14): s$ = SPACE$(4)ã GET #1, 1, h$: GET #1, 15, s$: bz = CVI(s$)ã IF bz = 12 THENã P$ = SPACE$(768)ã ELSEIF bz = 40 THEN P$ = SPACE$(1024)ã ELSE SCREEN 0, 0, 0: WIDTH 80: CLS : PRINT "Unable to load BMP image.": ENDã END IFã i$ = SPACE$(bz): GET #1, 15, i$: nb = CVI(MID$(i$, 15, 4))ã IF nb <> 8 THEN ENDã GET #1, bz + 15, P$ã IF bz = 40 THEN ng = 4 ELSE ng = 3ã FOR x = 1 TO LEN(P$) STEP ngã b# = INT((ASC(MID$(P$, x, 1))) / 4)ã g# = INT((ASC(MID$(P$, x + 1, 1))) / 4)ã r# = INT((ASC(MID$(P$, x + 2, 1))) / 4)ã c# = b# * 65536# + g# * 256# + r#: PALETTE ((x - 1) / ng), c#ã NEXTã y = 199: d$ = " "ã WHILE y >= 0ã x = 0: WHILE x < 320: GET 1, , d$: PSET (x, y), ASC(d$): x = x + 1: WENDã y = y - 1ã WENDã CLOSE #1ãEND IFãã'**** Load a PCX ImageãIF format$ = "pcx" THENã DIM q AS STRING * 768, ver AS STRING * 1ãã OPEN file$ FOR BINARY AS #1ã GET #1, 2, verã IF ASC(ver) <> 5 THENã SCREEN 0, 0, 0, 0: WIDTH 80: CLSã PRINT "Unable to load PCX Image"ã ENDã END IFã GET #1, LOF(1) - 767, qã FOR i = 1 TO 768 STEP 3: OUT &H3C8, Pã r = INT(ASC(MID$(q, i, 1)) / 4): OUT &H3C9, rã g = INT(ASC(MID$(q, i + 1, 1)) / 4): OUT &H3C9, gã b = INT(ASC(MID$(q, i + 2, 1)) / 4): OUT &H3C9, bã P = P + 1ã NEXTã SEEK #1, 129ã ds = 2000: dat$ = INPUT$(ds, 1): dc = 1ã FOR half = 1 TO 2ã DEF SEG = &HA000 + ofsã FOR c = 0 TO 31999ã IF dc > ds THEN dat$ = INPUT$(ds, 1): dc = 1ã cl = ASC(MID$(dat$, dc, 1))ã dc = dc + 1ã IF dc > ds THEN : dat$ = INPUT$(ds, 1): dc = 1ã IF cl > 192 THENã LPS = cl - 192: cl = ASC(MID$(dat$, dc, 1)): dc = dc + 1ã FOR L = LPS TO 1 STEP -1: POKE c, cl: c = c + 1: NEXT: c = c - 1ã ELSE POKE c, clã END IFã NEXTã ofs = ofs + &H7D0ã NEXTã DEF SEGã CLOSE #1ãEND IFãã'**** Load a TGA ImageãIF format$ = "tga" THENã DIM hdr AS tgaãã OPEN file$ FOR BINARY AS #1: GET #1, 1, hdr: CLOSE #1ãã OPEN file$ FOR BINARY AS #1ã IF ASC(hdr.clr) <> 1 OR ASC(hdr.img) <> 1 THENã SCREEN 0, 0, 0, 0: WIDTH 80: CLSã PRINT "Unable to load TGA file."ã ENDã END IFã dcl = hdr.col * ASC(hdr.bits) / 8: dcs& = 19 + ASC(hdr.info)ã dce& = dcs& + dcl%ã SEEK #1, dcs&ã FOR reg = 0 TO 255ã t$ = SPACE$(3): GET #1, , t$ã r = ASC(MID$(t$, 3)) \ 4: g = ASC(MID$(t$, 2)) \ 4ã b = ASC(MID$(t$, 1)) \ 4ã OUT &H3C8, reg: OUT &H3C9, r: OUT &H3C9, g: OUT &H3C9, bã NEXTã SEEK #1, dce&: t$ = SPACE$(1)ã FOR y = 0 TO hdr.h - 1: FOR x = 0 TO hdr.w - 1ã GET #1, , t$: col = ASC(t$): PSET (x, y), colã NEXT x, yã CLOSE #1ãEND IFãã'**** Save Image (or Exit to menu or quit) ****'ãDOã QI$ = LCASE$(INPUT$(1))ã ã '**** Save to .QIM File Format ****ãã IF QI$ = "s" THEN 'Save Screen & paletteã DEF SEG = &HA000 + 4000ã OUT &H3C7, 0ã FOR x = 0 TO 767: cv = INP(&H3C9): POKE x, cv: NEXTã DEF SEG = &HA000ã BSAVE img$, 0, 63999 + 768ã ã '**** Save a .BAS file loaderã OPEN BAS$ FOR OUTPUT AS #1ã PRINT #1, "' Loader for " + img$ã PRINT #1, "' by Earl Montgomery"ã PRINT #1, ""ã PRINT #1, "DEFINT A-Z"ã PRINT #1, ""ã PRINT #1, "SCREEN 13"ã PRINT #1, "OUT &H3C8, 0"ã PRINT #1, "FOR x = 0 TO 767: OUT &H3C9, 0: NEXT"ã PRINT #1, "DEF SEG = &HA000"ã PRINT #1, "BLOAD " + CHR$(34) + img$ + CHR$(34) + ", 0"ã PRINT #1, "DEF SEG = &HA000 + 4000"ã PRINT #1, "OUT &H3C8, 0"ã PRINT #1, "FOR x = 0 TO 767: P = PEEK(x): OUT &H3C9, P: NEXT"ã PRINT #1, ""ã PRINT #1, "SLEEP"ã PRINT #1, "SCREEN 0, 0, 0, 0: WIDTH 80: COLOR 7,0: CLS: END"ã CLOSE #1ã END IFã ã IF QI$ = "q" THEN 'Exit program without savingã SCREEN 0, 0, 0, 0: WIDTH 80: CLS : ENDã END IFã RUNãLOOP WHILE INSTR("seq", QI$) = 0ãAngelo Ken Pesce FAKE SCREEN PSET ROUTINES us0082@uniserv.uniplan.it 05-07-97 (11:00) QB, QBasic, PDS, PB 99 6483 FAKE.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"FAKE.ZIP",4^6:Z&=4589:?STRING$(50,177);ãU"%up()%9%%%I-%pkerGgn),w0(.%%A.%%%/%%%%kf%pjug%SgfxKVz<^\j]5wP]=ãU"Ngjo#H2p(CYqXO&AZ8hQ_XS&3F*ctDsZ$=YH;ãU"nH?[(GE9^^j2XTn5o)bhpqB+Fu/FI3x.'ãU".j0I?6MeCXSZ5p0aUsSksGyV_Vim:Ik+-t-ZqB6Ix6_+NZ,cIn-XO'L,W_W#hf'ãU"i.<(xB]'geU5g)O4JU;-&Dsq-4-$_5wJKQ74)LBeH2*D8=,7ãU"))Zg9Pce0nw4tK^=*ufZ:wF:PG#6m-$.s3)VmwZbdIQKM\0=ZaYV>_CONo\c7'nãU"Wn'N6ga^<\ag3h\GlqqTf+n'W>Wps>4GrJDd5^RV/VY;t'hPaj/u'fK3m_bLVJuãU"R1McDxR%$3%c&?7Yl/M&n/(,j8c[53/z%3PeY+&wOHoeZ8WtCLxU+W4uNO&dZe^ãU"N<6h6q5,;sMU7y8D;l#TZu.tq]:?xccn+P$Yux3FQ\7#U?vwa'9WoM%V*b&YV4dãU"fFMo-_d7WzbyHbwr7ctSx*N6>d-%EU,YrbF3J9>lg40TU^]L0k*k:P*g/0RU#ljãU"^Y.U#6EcvLIPTNU4Q:kC8DR2jpT>>GR'B\4Vs8\pim[\Aw[h7_lF)G^nOfPãU"VHbgAi,$IH5r7hRV=&o\E=hYLC_ct0O5yNUZW&YOQ>%W+rPrB)Mlvw:r<2iHD-9ãU"SX:+4>4*Gi?0ghASF6(>+*HB2B+2'5r,-$h,5AATI2qb*YHkmCewlNg=-4Yed1<ãU"8?=,F'Y5J'4hE]5isYtZ-+SE9$g^ãU",.S-9co0q,7#T,iv[9m$$/8d0xhx-D+QdYLL[DZ1G.[H$1\^bS)/1UIãU"qvcW1]dzu9w'KU(d5J2ufi1-82TZZr(,8QV8v>EGãU"^Fn5bq%VbO6SgD0^bfVYm'LkH7YKb=Q:3v(O=Ed\%up(ãU")%9%%%I-%+tJsGU73k$&)%%%k6%%%1%%%%kf%pjkn%wjSgRfxNe2*^qm=9#XrKuãU"36a)4d*LL9-%FOg+wt(hU;'7]XR\jT-a.)dobp>Nt&OLu=4^cGmc%Vudsn.pDMyãU"#Bt()jdqyPp?oT'sZj7a%3+Y=KustXBw.d'/21nzIu6Y$5q9gM[UVAED15x;b)iãU".HZ9?gWq8Nttpdnp:rJ^76XLXZ=E*NDkPw^]QT9C;66e1UZ#(wBL4\9g>4CQ]ZPãU"DmVIof:6]Tjc](FQ5nu\D6^vu\fs2.n/*RE$SG_%L]Ms<:IcãU"]TZ;,A(4]3V$XQdv^dMc#o(6_/\BG?i]L21^V-9;EO9[]BefWO:*oXjtn>%OwIyãU"$(l^=Rg0Bst;&PGAZAnq)Miw/XjNIy%Ivd??3p\xOwSZ_FyOxa;Dk'z1iY*BhEQãU"eD0qGWwCF*v7Sd*+c;_'(B?0:\.;q/,bF&FNzJTghfmk2$CGaH+gBO<'B>7Gjb(ãU"YVN7et->A)o?iNQjFguI.+R9IalbgJ6*:V]Nm7813E').$QRB5e:u&Z&P:5V-+)ãU"]sVva:QM:GE,\epgnEUA9Csjoa(X^E6L^aSA^mvr=70jNu2cT5auHm3VQ[/4G/BãU"YvjbiLWF]T*I6((Xm1PZniIãU"24XXJO;qeli51e\Nb?+Ab=iW9=[9Or3eHgVtjTnSNZh18l(sAShJQCKV:6/P+A]ãU"jj75P:rpV%iwOtYeOWVRu5$1THv%Tup(%)9%%[%-ãU"%c)IrGVM2O]W#(%%%%3%%-%%%%k%fpjS[gfxFh&<>SRm5w=6Bx09;d1$A0NTX#,ãU"roI,OT:Y2P*oAf'W\MAE.i)3nW)x7gX:e=ReMb,KSG;H2665DTHaH_a)%BrU>R5ãU"F4&Lx(iSq09a7(7(LV-RU0'ODTot%([i7gR/(:9b8&yOr]Hr*4TNs8mCQqXC]r^ãU"HhBYsvTnrFDaq2&GE$/2QUYS6A+sl#cE6P4Nu;JJ3>QQcM/&:Eh6kd,u2'duz,0tOpãU"6aQu.(^6NbJxoi+XVI71/&0,9B-_Y2W5f>gdT3332vLa/*WPrrf]B5ãU"Q+TkT^7U)R^K7Y(DZd<;D-1.ZUFhwiN?L70q<93Lw;=$\UFQP&>Km'UsoM.lh2qrR[:f$<7:hp_Uq'[Xy^=YFxEL[otVãU"?todx>)w-f'T5#_?6:SMTh6'LGCS(+7][n'r[ZN1v*3MAij=J49K)rhkE-y7E&/ãU".Dc$;hn4%VyrKRQQ;SqA8P4YVt&,+./d:Ae]$ãU"Z<_[mfeZh*NNt+ZDL0'[ãU"%YfSJM9-3dc4bqgL9s8UFawyslNETm5qxx&%1>Qh8xBeI^_Y_/6-7nO+7++3n&JãU"2bDv;hGI15lc&X#L,,QTybqb?O&znv/6irNIb-x\#%W\*ZTQ5M/_no+tX*^%8lnãU";h6UGPv2h)wrS)rTZcSp*%T6w,?c-Zj\u%p()9%%%%-O%merdGNy/+>d'%%%B,%ãU"%%.%%%%kfp%jVSg7fxFy2<>iuj9w=[JN]85AT:X-_)*q0,S;znd6-+0>EX-_1l5ãU"dEXKkhF]GjyS>uB/T:Hoparpk$5cWdUT],G+j0q3az)aRI\L#v/iTcEf)R/9q4TãU"qRijf/uzRn7h$hmCW.;X]al>]]lXF2:QsD&brShcX3lX5E=g4,0E]i<:g4c&Zf?ãU"*^3y#kFdrK2iPFH^gh_)7:(p^V0G>8]?%hsA6%GFFK2HWV^=y(H$T4Sb_yYFQPeãU"$XqA$odW9)ii>FyY&g;5Xe3hWE4gOR)q>#iF5[(/Qo.=0j2o_$t5_1Nu_Xzn5mHf7MiD#/f&'$hpzRzGãU"9%;o3Q\L/w4]gnd1P1]=j/#IZnL[N2'kjdTsbM3(T,*JDTjQBmjFLM;['Sa7aooãU"/qN2H5:_C:2(w81ti=/_&5bo5&Jmmo;LSBe>X2R/QCGfs5;Q$T','N]HCd9'f<]ãU"$j$b[f?>NUACOwv\*>SJWJ1.u4Qac$hXbIM]Nh7,I$fd18#O+y&+F_QQX28_&<3jlN4N5;1LM9Y;'y6Sm05MoEi9^8/CãU"k0fjLgn].g65D=E#T3*)2_gAfda'Pj,:VhFW6SRoMpksQAUJy6Oq#tJ>bPi'P6VãU"D93Um(?A,kC?'\Z?EEM.OJ;Xox3(RDiCwDeXyutQ3$'d'%%ãU"%B,%%%.%%%%%%%%%&%E%7%%(2%%%kf%pjVS%gfxu%p*+%%%%%*%%*%;[&%%:%5%ãU"%%%%ãEND SUBãCLOSE:IF S=161AND 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ãBenjamin L. McGee GRAPHICS PUT USING ASSEMBLY FidoNet QUIK_BAS Echo 05-03-97 (00:12) QB, PDS, VBDOS 108 7137 GRAP.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"GRAP.ZIP",4^6:Z&=5084:?STRING$(50,177);ãU"%up()%9%%%#-%S;T&GSea56Hj%DkãU"YvamdGT2swfAj;h1(P9OeF.Pi>S&D%Zod5=trHpVTN8_g\bZ&WEJmX$loF+;1tnãU"rN[I3hX4ot/sq5KsR-FAT)eml>o&2.&>vq2__3;V]YfIUxm[Sb0I?v#CKf[mW'uãU"tO9K2x+j6V1D##Mb2VV:,lql#8pOG*'Th+Pxjo0=]q%dep4W=?W&vd--d_\LA^_ãU"C3,&KzM'.<>4FnK)xDLiUac7U=Eu#ek=X4&Ea1Mucp;DxadG%WJI'%a,AHJp*H_ãU"j6Bb6DiB(2$XTdY-4'n-+7?*Q.M;$\37UJBl(YWI[U7+(U>y#N\.J(s[cW(7d,4ãU"o'rrq*fX8ekLu7W$4WFpXzU-Ema(Vx.#nRn?HHP+]gr;y&#jGX.BJ+Xkz2pk\(0ãU"'?x>r3YRPY&4J>0kK=R-K%o.IR<0$*a/]U=,m(9#&ivF,8]V]s%6RMpt.PzPãU"WFVE=eY*74<.j^Xn#EEekGgEKs>]?V\So_%Gu*&P(fx)mxn,Df#na;(GqV&QC7$tNs?RPNvl#q,fkSIU9L^kcx?#A)f\UX7aI-<ãU"s_=K&'0n?SJhe\&PF6:exg)OJNdN_p5%3[OLdmJY]h##7#KrW2*4K.n43t5-Q9cãU"POx1Fpi\tK*d&d#[Gmdu'T^*=WB;XTE>(76Vb\/'h/,.j+bj>=UVVK*0:T^UYdeãU"AekG8/9IAQtgUMLk7/QE,D)MmS#W1e9g+<;-YI+=a4:ODa*eHãU";6Ms^1u)*T*b1Ud$.&JRVKwg3b?dTVzJV\h8w:(bmdBQO%nbJs:D/im]T_dk1wgãU"g:qr[A[kS=jS-IaM%3S%\R8weL+T(XWC=h&XbNCkGpha7'm9Ik<+Zx.b8rãU"OH47k.aJ/C2qMU*bg)=amqBHl]$9.'md1G<2\8u%p()9%%%%-g%Q9&UG02p&)Z%ãU"%%%%&%%%-%%%%kfh%jSif(y2E)D'O%Xu>;;Ed16O)AOI0kI4vOqCC5/UPpaEoj0ãU"Y/+[E#*_boiFCI=u7w-rA;E'1%up%()9%%%%-%:>:&Gr0LS;'&%%%'5%%%%1%%%ãU"%uzyg%qpVX%StgoM:/5/5C-mKu<99[ueh[CI3GQ,3V(+A7hARf()_HUDRlfRMPPãU"dTmvDAkLm5/5>1U)EMlPXP=F-tr9l#'diV#;V3el=d63Vh_iVMD#ijOGX-3\]e?ãU"m8g]RS5vvQTh&opA*0XY^g3>[$=;maBaStZPfov-h?wMPGm\,sc+JfJj(26HR8lãU"fW4n?mE[/unsEA99'=:5?u[]\hie<7Eu99IV=*-4)%%up(%)9%%%%-%Qb:&G(\aãU"8F\#1%%J%9%%/%%%%u%zygq%pSvqOgffNVCcNhN#nhHN$lgS%ejHwSkM^s6M-/XãU"AYo[+0k#17/a13g(m6_I#87Wh;36W>Pyf9/KSoK8E)/6vBgC)#.bM,FW-\:D'k(ãU"*n2>&ojOhay7ffIRaIg#dbYbRhJu$.omnkbtpbm,Xht67HvQnUJntJXt7XxRI:\ãU"'ib-8a7q1VhW3%NEql3%JG(RSuFL,9Yc)7T%'No^CK<-8QSibTI2/Rl#:-)#4a4ãU"-='Upa8x:u7L1Oo(tuxxu?Xw%xCTVTvCszs(Q.mcMDue>ãU"Jjo(zGACRZt#_xYlLvlxi^szzPY:%+)rnhsimydfd%ByhXk9bChoT,nH\tNpO6sãU"&tx#P2bpnhp$MUdM$Cd/vls^,DyFQC,-pEYc_5/JhDnPJp'J0#46^sl]WZ/;Z2FãU",(M8^XhwU>Vtax*tHk(AQxnlAhZ_qWB>t$q[N9dZ_Wuwu#zlYlQ[v]74+>^__qBMw/qHIH3>nBi;>qqcãU"dlYb[.6lCC3>n?io$x5P^6,ejNf]wdc[TAJrT8[t..lCF.rM_jaYJ&B_uX;A21iãU"?figsXsi=#qB)F#GA_fCrJ:Z,P^63Wcy+iK[=(Pn^N]D+Hn\'x1HSs?3&A3=M'bãU"msf)$mD^<>_Iop/hvDmL,[Um+qBu#ZtJEPeChR.ipQ9FnoQ%iqrrhH*PyRzb.DNãU"v1QvC/L<%&Ll0/5[VUhhk^[9bB_w$['HAZl[#]sserCt/7Bmim];K[,LA7V&LGjPpMKn^Rg77^S>VRU+nS^l+ZcE>f235VQzH(0\s/qn_N0lNRyD6QFe)Or(*+pjfwks8$mB[WHv.1baãU"T_nLNNB^fk2WJYGJ3.7.(#)SeolãU"D/:RX8P-#-=38NV5zhZ0\#9Pte-HF&R7WQBefx-tS0$PU3.j'L$yC0uTDyt>Ih,ãU"[2M[nkCGxil$keEjm=o&qQ1R&p3jG>W^3jP.&__s:bh(uCfF+U?I8U;:X$>Zt)$ãU"AvS7t8X59cy6;9J]H^i;h13E7YR+tenKD2FJmcEtyBC-NQxH_-7rJAZ#*ouo6L?ãU"mBsp)v+]2o)#l%b\-J6Q0EG;+Z8HaXG>(kAc#Nl=sC0=&WQH-f)z,jL;T&[m8NNãU"/?:cA'E1%XM:t8\t7PwG$)^]bXq]Gm7qcNTQR\2wp^\M+ãU")-HA6:zf6jC*)l.33L5Cf^22pd3OZMXx#XrtpGP_22^:n<*SSq.lGVUuãU"wJxb-5h\yTi$wuYc,DkPL=(1FN10KC$AT-:./]kg//[;T+jCb_(Flejn\mBivqbãU"]AE4dkXo:t?2gxDN61b%*=R*n]c8\zcK+k)t&K*0cRpR?R^JrS/MakP4lZPt&^XãU"\99fVBctg8Xv[A.xTS1l5n>LdQc:)X,dK,?QS0W13fGQkVl9R;G3_AE8k62kRj]4j,eJ]*?lR6kVZ#RvkZ&]%O9ãU",gGom]P^%G[,zkZ&_%kB,,]zl[%i,4?G9^i,B%#VhR,IlGOBOc9R+Gp[AO=/(X6ãU"CEG)]:l^%\,WFk.Bu_^E#e(<6xiAhn,C%6/6FfGgk>i;sZXJnNTcnNJn:jTnj4Jnz03d&f9W&x%ãU"+7xJLolTX>kYj>pNotqG:\5[+6F0b=lZ#:XR6PaVR^bqQrk:9z(C8d1CoPe86ijHKNKBDdVdYWm-mD>$?TIqG0?0G#S1HDsoX.n+Ev(N5N8eDhew*Lr#sl$6.knnMrgãU"T$dG7mI9I(Ka)juToKbG\fqGROwgzXSX^\S?bc5MRct\dfX\$wjvDgCss](nIm-ãU"3mTg+r_RgOxFY79p:,v>s&_kYpR_Cnppnmiv5vIXGllsin.0GtlJs0,jjT9$S/3ãU"f?N?ZV7D7n_BFT/L$IkOmOl_Epa$FISQxUkjYpNX>f7j[la*=pDUd5Gr_]a;N6gag8KxãU"gu7]UjM_L(TUE-'Xs/(_JNQCltkm\KZv-B*tTsnu5V^.-9VS8Iajszat<3W'0dG,qvd4U^BPrBk))RWYO[o:h5bmN-MSCufSZrFãU"nv9('MRtfcY%SD+n:pcPr;=bk&J'Cjq'YXVa*<V)S.1ouMm.-nHbsSor:-Pb<%:/R07;xOu656oY08);Cn)_hjbTaOãU"NIuTcWN>kW/GVjqa%ALqsJO05+Pu38;TF-eCJN.42ZA*=$)KFc*cS0SNxLfW\8jãU"='KXhyr-u1=A-wKcna$01M/SiM*$1ãU"/;:+Q;zgN>TqmG7&l*%-zz;XyY_r&aT1a94&'7Qe6Qqs,A77*+?r*:&Gr0LS;'&%%%'5%%%%1%%%%%%%%%&%E%7%ãU"%G)%%%uz%ygqp%VXSt%goup%&'9%%9%%%#-%Q:T&G(a78F\1.%%J9%%%/%%%%%%ãU"%%%%%%E%%%&t*%%%uzyg%qpSv%qgup%*+%%%%%*%%*%;&7%%)7%%%%%ãEND SUBãCLOSE:IF S=134AND 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ãDenis Boyles ANIMATION DEMO W/PAC-MAN FidoNet QUIK_BAS Echo 04-28-97 (19:09) QB, QBasic, PDS 123 3420 PACANIME.BAS'-=[PACANIME.BAS=- v1.00 Public Domain (pd) 1997 by Denis Boylesã'ã'Microsoft QBASIC v1.1ã'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ã' This program demonstrates the following concepts: transparent sprites andã' flicker free animation. The animation is done by using multiple video pagesã' in MODE 7. However it can be slow in QBASIC and you can't readily applyã' this to MODE 13. (256 colors) Since that mode only supports one video pageã' as standard, you would need to resort to a separate buffer. (or try ModeX)ã'ãDECLARE SUB DrawFrame (iX%, iY%, iClr%, iFrm%, iFlp%)ãDECLARE SUB SetFrame (iFrm%)ãDECLARE SUB SetBackGround ()ããCONST PacColor = 14ãCONST YPos = 100ããDIM SHARED LN$(16)ããx% = 0: xDlt% = 3ãfrm% = 0: FrmDlt% = 1ãflp% = 0ããSetBackGroundãWHILE INKEY$ = ""ã DrawFrame x%, YPos, PacColor, frm%, flp%ã ã x% = x% + xDlt%ã frm% = frm% + FrmDlt%ãã IF frm% = 0 OR frm% = 2 THEN FrmDlt% = -FrmDlt%ã IF x% <= 0 OR x% >= 303 THENã xDlt% = -xDlt%ã flp% = NOT flp%ã END IFãWENDããSCREEN 0, 0ãWIDTH 80ããSUB DrawFrame (iX%, iY%, iClr%, iFrm%, iFlp%)ã SCREEN 7, , 1, 0ã PCOPY 2, 1ã SetFrame iFrm%ã FOR y% = 0 TO 15ã FOR x% = 0 TO 15ã IF MID$(LN$(y%), x% + 1, 1) = "#" THENã IF iFlp% THENã PSET (iX% + 16 - x%, y% + iY%), iClr%ã ELSEã PSET (iX% + x%, y% + iY%), iClr%ã END IFã END IFã NEXTã NEXTã WAIT &H3DA, 8ã PCOPY 1, 0ãEND SUBããSUB SetBackGroundã SCREEN 7, , 2, 0ã FOR ct% = 0 TO 199ã LINE (0, ct%)-(319, ct%), ct% MOD 16ã NEXTãEND SUBããSUB SetFrame (iFrm%)ã SELECT CASE iFrm%ã CASE 0ã LN$(0) = " ###### "ã LN$(1) = " ########## "ã LN$(2) = " ############ "ã LN$(3) = " ### ######### "ã LN$(4) = " ### ######## "ã LN$(5) = "################"ã LN$(6) = "################"ã LN$(7) = "################"ã LN$(8) = "################"ã LN$(9) = "################"ã LN$(10) = "################"ã LN$(11) = " ############## "ã LN$(12) = " ############## "ã LN$(13) = " ############ "ã LN$(14) = " ########## "ã LN$(15) = " ###### "ãã CASE 1ã LN$(0) = " ###### "ã LN$(1) = " ########## "ã LN$(2) = " ############ "ã LN$(3) = " ### ######### "ã LN$(4) = " ### ######## "ã LN$(5) = "############## "ã LN$(6) = "############ "ã LN$(7) = "########## "ã LN$(8) = "######## "ã LN$(9) = "########## "ã LN$(10) = "############ "ã LN$(11) = " ############# "ã LN$(12) = " ############## "ã LN$(13) = " ############ "ã LN$(14) = " ########## "ã LN$(15) = " ###### "ãã CASE 2ã LN$(0) = " ###### "ã LN$(1) = " ########## "ã LN$(2) = " ############ "ã LN$(3) = " ### ####### "ã LN$(4) = " ### ##### "ã LN$(5) = "########### "ã LN$(6) = "########## "ã LN$(7) = "######### "ã LN$(8) = "######## "ã LN$(9) = "######### "ã LN$(10) = "########## "ã LN$(11) = " ########## "ã LN$(12) = " ########### "ã LN$(13) = " ########### "ã LN$(14) = " ########## "ã LN$(15) = " ###### "ã END SELECTãEND SUBãEric Carr RENDER 3D OBJECT FidoNet QUIK_BAS Echo 03-08-97 (18:20) QB, PDS 105 6926 R3D.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"R3D.ZIP",4^6:Z&=4925:?STRING$(50,177);ãU"%up()%9%%%R-%(=K&GSp/+(F1.%%vM%%%/%%%%wj%sijw%SgfxKN?:BoLmk4bzuãU"DsB5+I_W,I:Qg;wa&X.a);K(IRsDJdFQ/Dz?w_XxroiP.FHfa>6BWO#0J^nHaLZãU"LVL^bhgvDqPgFvS'e+mGQAGNj*S5%d4,0-6alkTNvãU"ODXfsXxAk7*J-+=(hb92)nIGFcB5(AZjE$[>Ng*jIVpH<^'QjU7F9kaL4onnQP\ãU"hEMI/6h)*E<:;Wl>*rd)%Y)c=VVZRK%B-4CBuYbi\U4-jg]+sYUtYZ/C]gRrC-tãU"t-CH<%7&Crl:tvAolDeib8gqm^k&Jm#kbAw:&wXW-m?h=j1WU&p[yOrJ/W%bJ\cm=Ho]&1V(qiKãU"K+IbUjNc&cRB%3rFyGMdaPs=/T;uXT8L(m/tN-RgUkC33Q_*47oYBI1qN.g(i7+ci;HBW/101F'/6D4M(E-lãU"z%e=3yjU)kZgeu)LRx^P9crQYBWDedoOqw+s;xOK%E&S.?C]_OFc/=8P*\ãU";:&)GC3Na?pA)7J/#n;YgSjrPp'bLiu?0;4=bqM9kiKBxbVg4liurlk0C,-W&P;ãU"Gk<63;.^e6C$#s.lMNbs'25][l$rJn_UUvDmHZ3K5txzLKURD?GT*_Ff/L>6//8ãU"?Q-JVR\/^AE*sgbJU?XhAm'L/nYmO4^4f^1h/^=cg=c,Ma?8^<ãU"%0F?'Ie[Jir7Ej0FxI/k[ih\7s0F?&IU[eip7g8?ePl#9&Kk2M8RFL7\Ae8Y<'LãU"lfGsF6DNbs>6KZj9cn0XBbOTtGQ(#\YXJtPj,ZgVolk]\BC<3nCXm=\E9.)C;6cãU":h5]kJzMoz^/NIqXj/SqFM>D#*Dj#&:CZ^R>MQ4tCS_NrDT3poEMY<5C-sSxUWiãU"^6vx<6Jr+;P_ZE>r1gt48FIg/fn]1X.ClW>=gU_-U3W?IEjm&C95h$7XjG97^x]ãU"2f>W7;askx%6AawDD8]uqojãU"=4Zb]wgbS?WsxU<*QWCTBu.ABRPmp_gmL'cReoX:.Qawp5D1nS,UcXOrEv*42NKãU"pNyY5rO^=2Go<$0JM1tSR[ihsiu%,QFr.'UCklYQRdG3%hC((BT:C/4#;Ch\;)i^]3_LG-%?dBsq_X'<9Xf\rswIJ3QSJ5Kdg4j1F;baprhVioCc07ãU"RQZYI&gd$9SLIfGH.4rf[.OQGs^31(&L7$QET.XYI8v#uY3vmmB*'ECquBEP4n*ãU"j.T,qSbveS68Wq/iãU"l'j_%e&\]=:ObxTSqPR/$z;>it%DP.yP#t3KeK]u$%t6,v;DU=ujKc'tYB3\0VmãU"rNclc_U#v#-v=[46NO2gzKisiN*N'5D$y9l2b7LkLTqPB.WS/]:PjFdDa,P*,DHa:Ght8ãU"L*gcjT*m-E.&6,4W4oAG'B_knX>ZI9^R.I>A<71n+,2Ud?1w&VLYi.kXNc_voP[ãU"bG6o.ct(B#Ru]njX+v?IoNp,W\9#4g$A^\EU0?]U3Z+tK5^W.27,vO'JKexr'5*ãU"]f69$<0?)23FsF6xZRu5DhA;lXF.I*XtbC4P\sI5Cl>k3qaG[\z<)]xAAd6R:;VtjXI_rI*94/vjI(Bq$wãU"23_*FuLbf'Fgm]FFtBR-.6g&XSqnEP6=bLVZp^4,OQ305vkKO,plomCP_[a*&)DãU">rNkHI,p1\BYk*7J3K[bBupCJAIt9xN3QHãU"nxghgF,7AWfJ=s]u8up]j4lo-,#t6%JE9O.SFYQUS4UpSslJCh%fhJM9TbSJZ?vv6lFnb-uPG-=:]7C^fw-pAjiBe/t#FI5/%&#JãU"XG+M,amoay^QJX>12&VF[,*POGF-c>lc>H$(5/1E/]hW%h5K,iz+HOFG$TD?Q?EãU"i/Wh=)*x3Kodf?hMEIV)z\+[T#8rIkqnoU14Ka8n,:CVZBrREc08)fO7/f?l2X+ãU"ej21owu#fgk56KX*,oo6Bj.dT_yOãU"8BRe]'bv&UTH]]Le57ãU"P*kNg%x4eR#z*F_1eSGp^Htn]c1m5nl)o]\Y<[VCqFRB8265lc,_S(7S#CCI67#ãU"MX-dLTTD-8wWe(SYlLAMY1p^hHYdQ$RP,-P$Jm(O19./cLq,bh,5$>31\dvvsBMãU"3%Y1[Ko=^/HFepa]v/;'b_#pQ$7TIA*zcz_jBNa1-]#o6pUFu+E[.q8GsVG80YH;ar3^B;1UBNc):GgxX2DqAYF-kER>gãU"]Hcpc:B+2(6pJ4DowBDlIO?K9xT$Yr28J9Q:g0\m&I%&gz#kW.B,3z*=e48&c&qãU"?/mG9re_#ZH%%%%r%%%%.%%%%xf%ruqj%ãU"SXiX-[^W)%GBx(.B(-S.E.6=)Q7hM.*z1')&2'x&3'z*&q&up%()9%%%%-%(IzVãU"Gp7=I^'P'%%%%5%%%.%%%%rfuU%WSyjh'tf:,QUU-1h^2N$lj(tqHWnEmh$fBb#N5<=RlãU"Dt]O>6_1BMI>NC><0k%[pR4]t3I#l[q%^bJLOSm%])JMN9TS%eC8y%4q)#6)'[)ãU"-gmI==&1MKX%M1aWJjnT;brZ$'8AqBK#qAI[]gWQ#I_W4bj2f#D\vIhXif/-$+WEe&Q,Ybxx\brdUCS]mS7oi_2S2hrb-=M1%H?wQUfBJJ20EcPj15DiRk\cSwJh*6^72rãU"nlnH3hH_#,Ag27,TO-Evl>-vK)^G5c7]I%lrr]fTupH0hr8>X8?X7xp1x(:zXYHãU"JAo.S.,H%/Gt#;y4Tek*\OS&yNQMkruqiMQ[+O5.-y>DdJMsvDNA0=pB^Px];DEãU"/w0$5v^:I.A9=fZYS1/evFQ2Czm=X54m0)SEJF7M)W>f],QQP1J'p[1dNN&%up&ãU"'%9%9%%%%-%<(=&G2Sp+(&F1%%&vM%%%/%%%%%%%%%&%E%%%%%%%%%wj%sijw%SãU"gfx%up&'%9%9%%%%-%'ZH%%%%r%%%%.%%%%%%%%%&%E%%%%)%4%ãU"%x%fruq%jSXi%up&'%9%9%%%%-%(IzVGp7=I^'P'%%%%5%%%.%%%%%%%%%%%E%%ãU"%%s4%%%rf%uUWS.yj'u%p*+%%%%%)[%)%T%%%%q%7%%%%%ãEND SUBãCLOSE:IF S=119AND 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ãDavey W. Taylor FLAMES GENERATOR audio.squad@mailbox.swipnet.se 05-15-97 (10:04) QB, QBasic, PDS 41 779 FLAMES.BAS 'Slow, but it works!ã'Davey W Taylorã'audio.squad@mailbox.swipnet.seãSCREEN 13ãFOR n% = 1 TO 16ãPALETTE n%, 65536 * n%ãNEXT n%ããFOR n% = 17 TO 32ãPALETTE n%, 65536 * (32 - n%)ãNEXT n%ãFOR n% = 33 TO 96ãPALETTE n%, n% - 33ãNEXT n%ããFOR n% = 97 TO 160ãPALETTE n%, (160 - n%)ãNEXT n%ããDOãFOR x% = 0 TO 319ãPSET (x%, 199), INT(RND * 64) + 97ãNEXT x%ãFOR y% = 169 TO 199ãFOR x% = 0 TO 319ãc% = 0ãc% = c% + POINT(x% - 1, y% - 1)ãc% = c% + POINT(x% - 1, y%)ãc% = c% + POINT(x% - 1, y% + 1)ãc% = c% + POINT(x%, y% - 1)ãc% = c% + POINT(x%, y%)ãc% = c% + POINT(x%, y% + 1)ãc% = c% + POINT(x% + 1, y% - 1)ãc% = c% + POINT(x% + 1, y%)ãc% = c% + POINT(x% + 1, y% + 1)ãc% = (c% / 9) - 3ãIF c% < 0 THEN c% = 0ãPSET (x%, y% - 1), c%ãNEXT x%ãNEXT y%ãLOOPãDavey W. Taylor DISTORTED TORUS audio.squad@mailbox.swipnet.se 05-15-97 (10:04) QB, QBasic, PDS 94 2328 TORUS.BAS 'Distorted TORUSã'Davey W Taylorã'audio.squad@mailbox.swipnet.seãDECLARE SUB MakePal (start.slot%, end.slot%)ãDECLARE SUB ReadRGB (red%, grn%, blu%, slot%)ãDECLARE SUB WriteRGB (red%, grn%, blu%, slot%)ãTYPE rgbãred AS INTEGERãgrn AS INTEGERãblu AS INTEGERãEND TYPEãDIM pal(255) AS rgbãSCREEN 13ãFOR n% = 0 TO 255ãReadRGB pal(n%).red, pal(n%).grn, pal(n%).blu, n%ãNEXT n%ãCALL WriteRGB(63, 63, 63, 1)ãCALL WriteRGB(63, 0, 0, 63)ãCALL WriteRGB(0, 63, 0, 127)ãCALL WriteRGB(0, 0, 63, 191)ãCALL WriteRGB(63, 63, 63, 255)ãCALL MakePal(1, 63)ãCALL MakePal(63, 127)ãCALL MakePal(127, 191)ãCALL MakePal(191, 255)ãst = 0ãen = 3.14ãFOR n = 1 TO 4.8 STEP .01ãsa = sa + n / 1000ãs = s + saãc = c + .4ãCIRCLE (160, 200 - (n * 40)), s, c, st, en, .5ãCIRCLE (160, 200 - (n * 40)), s + 1, c, st, en, .5ãNEXT nãst = 3.14ãen = 6.28ãs = 0: sa = 0ãc = 0ãFOR n = 1 TO 7.3 STEP .01ãsa = sa + n / 1000ãs = s + saãc = c + .4ãCIRCLE (160, 200 - (n * 40)), s, c, st, en, .5ãCIRCLE (160, 200 - (n * 40)), s + 1, c, st, en, .5ãIF n > 6.6 THEN CIRCLE (160, 200 - (n * 40)), s + 2, c, st, en, .5ãNEXT nãRANDOMIZE TIMERãFOR y% = 0 TO 200ãFOR x% = 0 TO 320ãPSET (x%, y%), POINT(x%, y%) + (RND * 8) - (RND * 16)ãNEXT x%ãNEXT y%ãDOãWAIT &H3DA, 8ãCALL ReadRGB(ored%, ogrn%, oblu%, 1)ãFOR t% = 1 TO 254ãCALL ReadRGB(red%, grn%, blu%, t% + 1)ãCALL WriteRGB(red%, grn%, blu%, t%)ãNEXT t%ãCALL WriteRGB(ored%, ogrn%, oblu%, 255)ãLOOP UNTIL INKEY$ <> ""ããSUB MakePal (start.slot%, end.slot%)ãnum.slots% = end.slot% - start.slot%ãCALL ReadRGB(sr%, sg%, sb%, start.slot%)ãCALL ReadRGB(er%, eg%, eb%, end.slot%)ãrr% = ABS(er% - sr%): rg% = ABS(eg% - sg%): rb% = ABS(eb% - sb%)ãrs% = SGN(er% - sr%): gs% = SGN(eg% - sg%): bs% = SGN(eb% - sb%)ãstepr = (rr% / num.slots%) * rs%ãstepg = (rg% / num.slots%) * gs%ãstepb = (rb% / num.slots%) * bs%ãr = sr%: g = sg%: b = sb%ãwr% = r: wg% = g: wb% = bãFOR t% = start.slot% TO end.slot%ãCALL WriteRGB(wr%, wg%, wb%, t%)ãr = r + stepr: wr% = rãg = g + stepg: wg% = gãb = b + stepb: wb% = bãNEXT t%ãEND SUBããSUB ReadRGB (red%, grn%, blu%, slot%)ãOUT &H3C7, slot%ãred% = INP(&H3C9)ãgrn% = INP(&H3C9)ãblu% = INP(&H3C9)ãEND SUBããSUB WriteRGB (red%, grn%, blu%, slot%)ãOUT &H3C8, slot%ãOUT &H3C9, red%ãOUT &H3C9, grn%ãOUT &H3C9, blu%ãEND SUBãDavey W. Taylor ROTATING PLANETS audio.squad@mailbox.swipnet.se 05-15-97 (10:04) QB, QBasic, PDS 51 1051 PLANETS.BAS 'Rotating PLANETSã'Davey W Taylorã'audio.squad@mailbox.swipnet.seãã'--- setup ---ãmoonspin% = 16ãearthspin% = 4ãyflip% = 0ã'-- program --ãpi = 3.141593ãa% = 1ãyflip% = earthspin% + yflip%ãDOãSWAP a%, v%ãSCREEN 9, , a%, v%ãWINDOW SCREEN (1, 1)-(640, 350)ãWAIT &H3DA, 8ãCLSãd% = (d% + earthspin%) MOD 360ãr = d% * (pi / 180)ãdi% = (di% + yflip%) MOD 360ãri = di% * (pi / 180)ãs = 10 + (COS(r) * 10)ãx = 320 + (200 * SIN(r))ãy = 175 + (50 * SIN(ri))ãd2% = (d2% + moonspin%) MOD 360ãr2 = d2% * (pi / 180)ãs2 = 4 + (COS(r2) * 2) + (COS(r) * 2)ãt = 50 + (25 * COS(r))ãx2 = x + (t * SIN(r2))ãy2 = y + (4 * COS(r2))ãIF (10 * COS(r)) >= 0 THENãCIRCLE (320, 175), 100, 14ãPAINT (320, 175), 14, 14ãEND IFãIF (10 * COS(r2)) <= 0 THENãCIRCLE (x2, y2), s2, 6ãPAINT (x2, y2), 6, 6ãEND IFãCIRCLE (x, y), s, 9ãPAINT (x, y), 9, 9ãIF (10 * COS(r2)) > 0 THENãCIRCLE (x2, y2), s2, 6ãPAINT (x2, y2), 6, 6ãEND IFãIF (10 * COS(r)) < 0 THENãCIRCLE (320, 175), 100, 14ãPAINT (320, 175), 14, 14ãEND IFãLOOP UNTIL INKEY$ <> ""ããDavey W. Taylor BITMAP LOADER & SNOW audio.squad@mailbox.swipnet.se 05-15-97 (10:04) QB, QBasic, PDS 297 6807 BMPSNOW.BAS 'bitmap SNOW!ã'just create a simple bitmap in paintbrush and try it outã'Davey W Taylorã'audio.squad@mailbox.swipnet.seããDECLARE FUNCTION SetCC! (ch AS STRING)ãDECLARE FUNCTION GetBMPInfo! (f$, info AS ANY)ãDECLARE SUB SetPal (Attr%, Red%, Green%, Blue%)ãDECLARE FUNCTION ShowBMP! (f$, bx%, by%)ãRANDOMIZE TIMERãDIM SHARED usedcs(0 TO 255) AS INTEGERãDIM SHARED unus(0 TO 16) AS INTEGERãTYPE flaketypeãx AS INTEGERãy AS INTEGERãc AS INTEGERãEND TYPEãDIM flake(1 TO 100) AS flaketypeãDIM lflake(1 TO 100) AS flaketypeãTYPE BMPInfoãfilesize AS DOUBLEãoffset AS DOUBLEãsizeofheader AS DOUBLEãbmpwidth AS DOUBLEãbmpheight AS DOUBLEãbitplanes AS INTEGERãbitsperpixel AS INTEGERãcompression AS DOUBLEãimagesize AS DOUBLEãpelspermetrex AS DOUBLEãpelspermetrey AS DOUBLEãusedcolors AS DOUBLEãimportantcolors AS DOUBLEãcolorchart AS STRING * 768ãEND TYPEãCLSãnf:ãPRINT "320x200 bitmap file ( to cancel): ";ãLINE INPUT f$ãIF f$ = "" THEN ENDãDIM nfo AS BMPInfoãON ERROR GOTO NoSuchFileãOPEN f$ FOR INPUT AS #1: CLOSE #1ãON ERROR GOTO 0ãr% = GetBMPInfo(f$, nfo)ãIF r% THEN GOTO bmperrãIF nfo.bmpwidth <> 320 THEN PRINT "Width must be 320 pixels!": GOTO nfãIF nfo.bmpheight <> 200 THEN PRINT "Height must be 200 pixels!": GOTO nfãSCREEN 13ãr% = SetCC(nfo.colorchart)ãIF r% THEN GOTO bmperrãr% = ShowBMP(f$, 0, 0)ãIF r% THEN GOTO bmperrãFOR n% = 0 TO 255ãIF usedcs(n%) = 0 THENãunus(thc%) = n%ãthc% = thc% + 1ãEND IFãIF thc% = 17 THEN GOTO OOOooo...ãNEXT n%ãWIDTH 80, 25ãPRINT "I need at least 17 colors free!!"ãPRINT "Try using color reduction...."ãGOTO nfãOOOooo...:ãFOR cpa% = 0 TO 15ãcpl% = 33 + cpa% * 2ãPALETTE unus(cpa%), cpl% + 256 * cpl% + 65536 * cpl%ãNEXT cpa%ãPALETTE unus(16), 0ãFOR y% = 0 TO 199ãFOR x% = 0 TO 319ãc% = POINT(x%, y%)ãCOLOR 2ãIF ASC(MID$(nfo.colorchart, 1 + c% * 3, 1)) < 16 THENãIF ASC(MID$(nfo.colorchart, 2 + c% * 3, 1)) < 16 THENãIF ASC(MID$(nfo.colorchart, 3 + c% * 3, 1)) < 16 THENãPSET (x%, y%), unus(16)ãEND IFãEND IFãEND IFãNEXT x%ãNEXT y%ãFOR n% = 1 TO 100ãflake(n%).x = INT(RND * 320)ãflake(n%).y = 0ãflake(n%).c = INT(RND * 16)ãNEXT n%ãDOãFOR n% = 1 TO 100ãPSET (lflake(n%).x, lflake(n%).y), lflake(n%).cãx% = flake(n%).xãy% = flake(n%).yãc% = unus(flake(n%).c)ãlflake(n%).x = x%ãlflake(n%).y = y%ãlflake(n%).c = unus(16)ãPSET (x%, y%), c%ãIF POINT(x%, y% + 1) = unus(16) THENãflake(n%).y = flake(n%).y + 1ãELSEIF POINT(x% - 1, y% + 1) = unus(16) AND POINT(x% + 1, y% + 1) = unus(16) THENãflake(n%).y = flake(n%).y + 1ãIF INT(RND * 2) = 1 THENãflake(n%).x = flake(n%).x - 1ãELSEãflake(n%).x = flake(n%).x + 1ãEND IFãELSEIF POINT(x% - 1, y% + 1) = unus(16) THENãflake(n%).y = flake(n%).y + 1ãflake(n%).x = flake(n%).x - 1ãELSEIF POINT(x% + 1, y% + 1) = unus(16) THENãflake(n%).y = flake(n%).y + 1ãflake(n%).x = flake(n%).x + 1ãELSEãflake(n%).x = INT(RND * 320)ãflake(n%).y = 0ãflake(n%).c = INT(RND * 16)ãlflake(n%).c = c%ãEND IFãNEXT n%ãLOOP UNTIL INKEY$ <> ""ãENDãNoSuchFile:ãPRINT "Can't find or open file"ãCLOSE #1ãRESUME nfãbmperr:ãWIDTH 80, 25ãSELECT CASE r%ãCASE 1: rm$ = "Not a bitmap"ãCASE 2: rm$ = "Must be a one plane bitpmap"ãCASE 3: rm$ = "Can't read rle bitmaps"ãCASE 4: rm$ = "Error in file"ãCASE 5: rm$ = "BPP must be 1, 4 or 8"ãCASE 6: rm$ = "Use a 256 color rgb string"ãCASE 7: rm$ = "Not a windows bitmap"ãEND SELECTãPRINT rm$ãGOTO nfããFUNCTION GetBMPInfo (f$, info AS BMPInfo)ãOPEN f$ FOR BINARY ACCESS READ AS #1 LEN = 1ãx$ = " "ãGET #1, , x$ãIF x$ <> "BM" THEN GetBMPInfo = 1: CLOSE #1: EXIT FUNCTIONãx$ = " "ãGET #1, , x$ãinfo.filesize = CVL(x$)ãGET #1, , x$ãreserved# = CVL(x$)ãGET #1, , x$ãinfo.offset = CVL(x$)ãGET #1, , x$ãinfo.sizeofheader = CVL(x$)ãIF info.sizeofheader <> 40 THEN GetBMPInfo = 7: EXIT FUNCTIONãGET #1, , x$ãinfo.bmpwidth = CVL(x$)ãGET #1, , x$ãinfo.bmpheight = CVL(x$)ãx$ = " "ãGET #1, , x$ãinfo.bitplanes = CVI(x$)ãGET #1, , x$ãinfo.bitsperpixel = CVI(x$)ãx$ = " "ãGET #1, , x$ãinfo.compression = CVL(x$)ãGET #1, , x$ãinfo.imagesize = CVL(x$)ãGET #1, , x$ãinfo.pelspermetrex = CVL(x$)ãGET #1, , x$ãinfo.pelspermetrey = CVL(x$)ãGET #1, , x$ãinfo.usedcolors = CVL(x$)ãGET #1, , x$ãinfo.importantcolors = CVL(x$)ãrgb$ = " "ãcc$ = STRING$(768, 0)ãSELECT CASE info.bitsperpixelãCASE 1, 4, 8ãFOR p% = 1 TO 2 ^ info.bitsperpixelãGET #1, , rgb$ãMID$(cc$, p% + (2 * (p% - 1)) + 0, 1) = MID$(rgb$, 3, 1)ãMID$(cc$, p% + (2 * (p% - 1)) + 1, 1) = MID$(rgb$, 2, 1)ãMID$(cc$, p% + (2 * (p% - 1)) + 2, 1) = MID$(rgb$, 1, 1)ãNEXT p%ãCASE ELSEãGetBMPInfo = 5: EXIT FUNCTIONãEND SELECTãinfo.colorchart = cc$ãCLOSE #1ãEND FUNCTIONããFUNCTION SetCC (ch AS STRING)ãIF LEN(ch) <> 768 THEN SetCC = 6: EXIT FUNCTIONãFOR p% = 1 TO 256ãs% = p% + (2 * (p% - 1))ãro% = INT(ASC(MID$(ch, s% + 0, 1)) / 4)ãgot% = INT(ASC(MID$(ch, s% + 1, 1)) / 4)ãbo% = INT(ASC(MID$(ch, s% + 2, 1)) / 4)ãSetPal p% - 1, ro%, got%, bo%ãNEXT p%ãEND FUNCTIONããDEFINT A-ZãSUB SetPal (Attr%, Red%, Green%, Blue%)ãOUT &H3C7, Attr%ãOUT &H3C8, Attr%ãOUT &H3C9, Red%ãOUT &H3C9, Green%ãOUT &H3C9, Blue%ãEND SUBããDEFSNG A-ZãFUNCTION ShowBMP (f$, bx%, by%)ãShowBMP = 0ãOPEN f$ FOR BINARY ACCESS READ AS #1 LEN = 1ãhead$ = " "ãGET #1, , head$ãIF head$ <> "BM" THEN ShowBMP = 1: CLOSE #1: EXIT FUNCTIONãx$ = " "ãGET #1, , x$ãfsize# = CVL(x$)ãGET #1, , x$ãreserved# = CVL(x$)ãGET #1, , x$ãoffs# = CVL(x$)ãGET #1, , x$ãsoh# = CVL(x$)ãGET #1, , x$ãxs# = CVL(x$)ãGET #1, , x$ãys# = CVL(x$)ãx$ = " "ãGET #1, , x$ãplanes% = CVI(x$)ãGET #1, , x$ãbpp% = CVI(x$)ãx$ = " "ãGET #1, , x$ãrle# = CVL(x$)ãGET #1, , x$ãisize# = CVL(x$)ãGET #1, , x$ãppmx# = CVL(x$)ãGET #1, , x$ãppmy# = CVL(x$)ãGET #1, , x$ãused# = CVL(x$)ãGET #1, , x$ãsafe# = CVL(x$)ãIF soh# <> 40 THENãShowBMP = 7ãCLOSE #1: EXIT FUNCTIONãEND IFãIF planes% <> 1 THEN ShowBMP = 2: CLOSE #1: EXIT FUNCTIONãIF rle# <> 0 THEN ShowBMP = 3: CLOSE #1: EXIT FUNCTIONãSELECT CASE bpp%ãCASE 1: cs% = 2ãCASE 4: cs% = 16ãCASE 8: cs% = 256ãCASE ELSE: ShowBMP = 5: CLOSE #1: EXIT FUNCTIONãEND SELECTãrgb$ = " ": x$ = " "ãFOR p% = 1 TO cs%ãGET #1, , rgb$ãIF nol% = 0 THEN GET #1, , x$ãNEXT p%ãSEEK #1, offs# + 1ãr$ = " ": g$ = " ": b$ = " "ãFOR y% = 0 TO ys# - 1ãgot% = 0: c% = 0ãFOR x% = 0 TO xs# - 1ãIF c% = 0 THEN GET #1, , x$: got% = got% + 1ãSELECT CASE bpp%ãCASE 1ãoc% = SGN(ASC(x$) AND (2 ^ (7 - c%)))ãCASE 4ãt% = ASC(x$)ão2% = t% MOD 16ão1% = (t% - o2%) / 16ãIF c% = 0 THEN oc% = o1% ELSE oc% = o2%ãCASE 8ãoc% = ASC(x$)ãEND SELECTãPSET (x% + bx%, (ys# - y% - 1) + by%), oc%ãusedcs(oc%) = 1ãc% = (c% + 1) MOD (8 / bpp%)ãNEXT x%ãDO UNTIL INT(got% / 4) = (got% / 4)ãGET #1, , x$ãgot% = got% + 1ãLOOPãNEXT y%ãCLOSE #1ãEND FUNCTIONãDavey W. Taylor VERTICAL SYNC DEMO audio.squad@mailbox.swipnet.se 05-15-97 (10:04) QB, QBasic, PDS 34 1054 VSYNC.BAS 'Demonstration of how to sync graphics to the screens vertical retraceã'Davey W TaylorããDECLARE SUB SetPal (Attr%, Red%, Green%, Blue%)ãSCREEN 1ãCLSãPRINT ".05 delay without sync"ãDOãSetPal 0, 0, 0, 0 'change palãs# = TIMER: DO: LOOP UNTIL TIMER - s# >= .05 'delayãSetPal 0, 15, 15, 15 'change palãs# = TIMER: DO: LOOP UNTIL TIMER - s# >= .05 'delayãLOOP WHILE INKEY$ = ""ãSetPal 0, 0, 0, 0ãCLSãPRINT ".05 delay with sync"ãDOãWAIT &H3DA, 8 'wait for retraceãSetPal 0, 0, 0, 0 'change palãs# = TIMER: DO: LOOP UNTIL TIMER - s# >= .05 'delayãWAIT &H3DA, 8 'wait for retraceãSetPal 0, 15, 15, 15 'change palãs# = TIMER: DO: LOOP UNTIL TIMER - s# >= .05 'delayãLOOP WHILE INKEY$ = ""ããDEFINT A-ZãSUB SetPal (Attr%, Red%, Green%, Blue%) 'SUB to set a color attributeãOUT &H3C7, Attr%ãOUT &H3C8, Attr%ãOUT &H3C9, Red%ãOUT &H3C9, Green%ãOUT &H3C9, Blue%ãEND SUBããDenis Boyles SMOOTH VGA MESSAGE SCROLLER FidoNet QUIK_BAS Echo 05-12-97 (23:39) QB, QBasic, PDS 36 2271 SCROLLY.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"SCROLLY.ZIP",4^6:Z&=1419:?STRING$(50,177);ãU"%up()%/%%%R%%&S')GX\,dJK%%%%K%%%%0%%%%xh%wtqqA(Sx(dxC%1g%o]Qt]9ãU"7:YE89E]2%*sc3S(eew-DtEew-Cltltt8-DDu%p()9%%%%-d%Sf*[GzGd*CZ)%+ãU"%U.%%%0%%%%xhw#tqq(%SgfxVL%vB]S]8w7bXrDqmABNh+OP]EKs\b5J#ONK75oãU"gU[f2^2F3*5;.<=mnubp(38d3L#sm0[r,-f#Z,H'si5=.v[61;,uB]'LqFR8'u'ãU"i2P$bEVXDT870IMWe;To;ãU"$x9A,pqf;.bui1TW]\r<(UV?tQiZD2KnCndKGO=;LJ^M5B>YIkjJ?#Aq[Mr6k89s[35MTxABZSãU"n2II^E*SS*>02#;K)mNZj(O:=U2Gl)r-R+YU5_9LinaYIVX[VtxJB3:W\;.$k)tãU"Rj[AtaQ9&%+509q16?lF8=/(5PpL\Ki,\VP/_^Ef)EZxJ0HAQ7G5+=u7nf9D\2RãU")A/)yfAkKy[b'65deLD6g42Mel7.pNc1_&P6[\_oE:XP.964&I.d:P)?.QLZU<^ãU"5eo]%.TR1LSidmOu^49No\Hr8&tZ:Q>hIl$r&%F*=sfj/whD[gf6Ngc4/6q=Z/L1Xp/sWWãU"\I*=>a3r[id:fJSp_]OUi%])rq-pUhT.Q+F5mn9,JZ6:LRhS2HV/EZHxC,*aCCuãU"Us<^(=fI*tF:K4BJ6mM)Io>]>BBT6dpH+/EI]<7:64S=YqtB>:7I\Nj#G:w0LJsHt-7_.FVpyRU-QYo4MXãU"-(XUr=,fILo&v&u%:h>:Yl*$Y\K/9r#vLOweO0$;E7ãU"MB$XgXmLVZ+Jt'JXW6\C=.2IL''['hpM3E^sh>/6gB*)R*7mf]*jvCAt9^TLb5TãU"^d'6Zw0Avt;J6Vl9zVZ5Rj=3nNwkDt*0auvawS#acEK4zBZ?$6nlqgJW.:h5g#mãU"4LS[9=A4[U=M;4m8S^NFN)AJaxd-E1(>X7Zw2jK'5:/$(#O\.H5h_Cmp$CYn^C$ãU"bq(tX7LpP?:GYs*$#6ql>Z#w=Rsd6og9E^VM3(iYU=$K]np-=uZTJh=e2]q>?9dãU"uxL,oU1K2XMmyI<=#7$.ftq^N#z()34&s65b2&%tauTfZ^JNA1yt,aL'SX,aq27ãU"pDZrg/tb?LF8)uXhCfB$uRnU%->w4u%p&'9%%/%%[%%%&,S)GX:\dJK%%%%K%%%ãU"%0%%%%%%%%%&%%E%%%%%%%%%xhw#tqq(.Sx(x%up&'%9%9%%%%-%:Sf*GmzGdC&ãU"Z)%%'U.%%%0%%%%%%%%%&%E%%%%t%%%%xh%wtqq&(Sgf%xup*%+%%%%%'%'(%A%ãU"%%%(*%%%%%ãEND SUBãCLOSE:IF S=220AND 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ãDave Shea BSAVE/BLOAD W/PALETTE FidoNet QUIK_BAS Echo 05-06-97 (16:41) QB, QBasic, PDS 66 1477 PALSAVE.BAS '>I'm nearly done with a graphics conversion program that loads BMP, PCX andã'>files, then saves them to a format that is loadable in QB. I'm having problemã'>with that format (I call it "QIM"). I want to tag on the palette informationã'>to a BSAVEd file, but when I load the file, its a mess of colored dots insteadã'>of the original image.ãã'Here's something that I developed four months ago, which did comeã'through the echo at least once. =u)ãã' =-=-=-=-=-=-=-=-=-=-=-=-=-=-=ã' PALS&L.BAS by Dave Sheaã' Released to Public Domainã' on January 12th, 1996. Noã' Warantees expressed orã' implied.ã' =-=-=-=-=-=-=-=-=-=-=-=-=-=-=ããDECLARE SUB PalBLoad (FileName$)ãDECLARE SUB PalBSave (FileName$)ãCLS : SCREEN 13ããTYPE Colrã Dat AS STRING * 3ãEND TYPEããããSUB PalBLoad (FileName$)ãã DIM Col AS Colrãã OPEN FileName$ FOR BINARY AS #1ã FOR a = 0 TO 255ã GET #1, 64008 + a * 3, Col.Datã OUT &H3C8, aã OUT &H3C9, ASC(MID$(Col.Dat, 1, 1))ã OUT &H3C9, ASC(MID$(Col.Dat, 2, 1))ã OUT &H3C9, ASC(MID$(Col.Dat, 3, 1))ã NEXTã CLOSE #1ãã DEF SEG = &HA000ã BLOAD FileName$ããEND SUBããSUB PalBSave (FileName$)ãã DEF SEG = &HA000ã BSAVE FileName$, 0, 64000ã OPEN FileName$ FOR APPEND AS #1ãã FOR a = 0 TO 255ã OUT &H3C7, aã Red = INP(&H3C9)ã Green = INP(&H3C9)ã Blue = INP(&H3C9)ãã PRINT #1, CHR$(Red);ã PRINT #1, CHR$(Green);ã PRINT #1, CHR$(Blue);ã NEXTãã CLOSE #1ããEND SUBãDuct_Tape COLORFUL SCREEN SAVER ducttape@info2000.net 05-13-97 (00:00) QB, QBasic, PDS 130 3181 SAVER.BAS '--------------------------------------------------'ã'All of this source code was written by Duct_Tape 'ã'--------------------------------------------------'ã'If you think of a name for this screen saver then 'ã'email me. Or If you would like for me to explain 'ã'it to you then email me - ducttape@info2000.net 'ã'--------------------------------------------------'ã'Duct_Tape's QBasic Page 'ã'http://www.geocities.com/Area51/Cavern/4315 'ã'http://duct-tape.home.ml.org 'ã'--------------------------------------------------'ãããDECLARE SUB pal.set (lo%, hi%, red%, green%, blue%, r%, g%, b%)ãDECLARE SUB write.pal (r%, g%, b%, c%)ãDECLARE SUB get.pal (r%, g%, b%, c%)ãDECLARE SUB pal.fadeout ()ãDECLARE SUB pal.cycle ()ãCOMMON SHARED x, y, x2, y2, x3, y3, cããSCREEN 13: CLSãRANDOMIZE TIMERããx = 1: y = 1ã'x2 = 50: y2 = 75ã'x3 = 300: y3 = 119ãx2 = INT(RND * 280) + 20: y2 = INT(RND * 160) + 20ãx3 = INT(RND * 280) + 20: y3 = INT(RND * 160) + 20ãc = 2ããFOR c = 1 TO 7ã READ lo%, hi%, red%, green%, blue%, r%, g%, b%ã CALL pal.set(lo%, hi%, red%, green%, blue%, r%, g%, b%)ãNEXT cããDOãLINE (0, y)-(320, y), col - 1ãy = y + 1: IF y > 199 THEN y = 0: col = 1ãcol = col + 1ãIF col > 155 THEN col = 2ãLOOP UNTIL y = 199ããCALL pal.cycleãCALL pal.fadeoutãSYSTEMãããDATA 1, 22, 0, 0, 0, 3, 0, 0ãDATA 23, 44, 0, 0, 0, 3, 1, 0ãDATA 45, 66, 0, 0, 0, 3, 3, 0ãDATA 67, 88, 0, 0, 0, 0, 3, 1ãDATA 89, 110, 0, 0, 0, 0, 3, 3ãDATA 111, 132, 0, 0, 0, 0, 1, 3ãDATA 133, 154, 0, 0, 0, 3, 0, 3ããSUB get.pal (r%, g%, b%, c%)ããOUT &H3C7, c%ãr% = INP(&H3C9)ãg% = INP(&H3C9)ãb% = INP(&H3C9)ããEND SUBããSUB pal.cycleããDOã IF NOT xdir THEN x2 = x2 + 1: IF x2 >= 310 THEN xdir = -1ã IF xdir THEN x2 = x2 - 1: IF x2 <= 10 THEN xdir = 0ã IF NOT ydir THEN y2 = y2 + 1: IF y2 >= 191 THEN ydir = -1ã IF ydir THEN y2 = y2 - 1: IF y2 <= 10 THEN ydir = 0ãã IF NOT x2dir THEN x3 = x3 + 1: IF x3 >= 295 THEN x2dir = -1ã IF x2dir THEN x3 = x3 - 1: IF x3 <= 0 THEN x2dir = 0ã IF NOT y2dir THEN y3 = y3 + 1: IF y3 >= 194 THEN y2dir = -1ã IF y2dir THEN y3 = y3 - 1: IF y3 <= 3 THEN y2dir = 0ãã CIRCLE (x2, y2), 10, cã PAINT (x2, y2), cã LINE (x3, y3)-(x3 + 25, y3 + 5), c, BFã IF c > 153 THEN c = 1 ELSE c = c + 1ã ã CALL get.pal(ro%, go%, bo%, 1)ã ã FOR i% = 1 TO 154ã CALL get.pal(r%, g%, b%, i% + 1)ã CALL write.pal(r%, g%, b%, i%)ã NEXT i%ãã CALL write.pal(ro%, go%, bo%, 154)ãLOOP UNTIL INKEY$ <> ""ããEND SUBããSUB pal.fadeoutããFOR n% = 1 TO 64ã FOR i% = 1 TO 154ã CALL get.pal(r%, g%, b%, i%)ã IF r% > 0 THEN r% = r% - 1ã IF g% > 0 THEN g% = g% - 1ã IF b% > 0 THEN b% = b% - 1ã CALL write.pal(r%, g%, b%, i%)ã NEXT i%ãNEXT n%ããEND SUBããSUB pal.set (lo%, hi%, red%, green%, blue%, r%, g%, b%)ããFOR i% = lo% TO hi%ã OUT &H3C8, i%ã OUT &H3C9, red%ã OUT &H3C9, green%ã OUT &H3C9, blue%ã red% = red% + r%ã green% = green% + g%ã blue% = blue% + b%ãNEXT i%ããEND SUBããSUB write.pal (r%, g%, b%, c%)ããOUT &H3C8, c%ãOUT &H3C9, r%ãOUT &H3C9, g%ãOUT &H3C9, b%ããEND SUBãNick Kochakian BOX ZOOM NickK@worldnet.att.net 05-20-97 (15:00) QB, QBasic, PDS 181 3661 BOXZOOM.BAS DECLARE SUB cleargfx (x!, y!, size!)ãDECLARE SUB zoomgfx (x!, y!, size!)ãDECLARE SUB getgfx (x!, y!, x2!, y2!)ã'Box zoomã'ã'5/20/97 By: - Nick Kochakian -ã'ã'This isn't the fasest zoomer out there, but it could be used for an advancedã'sprite (get) and zoom put!ã'ã'If you have any comments or questions e-mail me at: nickk@worldnet.att.netã'ã'Recommended for use only in QuickBasic... It's too slow in QBasic...ããDIM SHARED bxãDIM SHARED byãDIM SHARED bcãbx = 200ãby = 320ãbc = bx + byããDIM SHARED boxx(bx) 'Box XãDIM SHARED boxy(by) 'Box YãDIM SHARED boxc(bc) 'Box ColorããSCREEN 13ãLINE (0 + 5, 1 + 5)-(1 + 5, 0 + 5), 20, BF 'This is my example graphicãLINE (0 + 3, 1 + 5)-(1 + 3, 0 + 5), 25, BF 'This is my example graphicãLINE (0 + 3, 1 + 2)-(1 + 3, 0 + 2), 25, BF 'This is my example graphicãLINE (0 + 7, 1 + 2)-(1 + 7, 0 + 2), 30, BF 'This is my example graphicãLINE (0 + 1, 1 + 7)-(1 + 1, 0 + 7), 30, BF 'This is my example graphicãã'x,y = Starting points (Probally should be top left corner of your box)ã'x2,y2 = Ending points (Probally should be bottom right corner of your box)ããCALL getgfx(1, 1, 10, 10) 'Get the pixelsããx = 10ãy = 10ããFOR siz = 1 TO 10ãCALL cleargfx(x, y, siz - 1) 'This will clear the old zoomed imageã'PAINT (1, 1), 1 'Comment the cleargfx call and uncomment this paint commandã '... If you had a fast background put (like the BLAST put)ã 'you could zoom these images fine without destroying theã 'background!ãCALL zoomgfx(x, y, siz) 'Zoom the imageãNEXT sizããSUB cleargfx (x, y, size)ãbx = 1ãby = 1ãbc = 1ããx1 = 0ãy1 = .1ãx2 = .1ãy2 = 0ããtimes = -1ããpx = xãpy = yã'size = 1ããzoom = sizeããFOR i = 1 TO zoomããpx = xãpy = yããDOãLINE (cx - x1 + px * size, cy - y1 + py * size)-(cx - x2 + px * size, cy - y2 + py * size), 0, BFã'IF boxc(bc) = 0 THEN LINE (x1 + px, y1 + py)-(x2 + px, y2 + py), 0, Bã'LINE (x1 + px, y1 + py)-(x2 + px, y2 + py), boxc(bc), BFãpx = px + 1ãbc = bc + 1ãbx = bx + 1ãby = by + 1ã'FOR a = 1 TO 999ã'NEXT aãIF boxx(bx) = -2 THEN px = x: py = py + 1: bx = bx + 1: by = by + 1: bc = bc + 1ãLOOP UNTIL boxc(bc) = -2ãtimes = times + 1ãIF times = 0 THEN y1 = 0: x2 = 0: y1 = y1 + .5: x2 = x2 - .5: x1 = x1 + .5: y2 = y2 - .5ãããy1 = y1 + .5ãx2 = x2 - .5ãx1 = x1 + .5ãy2 = y2 - .5ãã'size = size + 1ããbx = 1ãby = 1ãbc = 1ãNEXT iããEND SUBããSUB getgfx (x, y, x2, y2)ããbx = 1ãby = 1ãbc = 1ããpx = xãpy = yããDOãcol = POINT(px, py)ãboxc(bc) = colãboxx(bx) = pxãboxy(by) = pyãbx = bx + 1ãby = by + 1ãbc = bc + 1ãpx = px + 1ãIF px > x2 THEN px = x: py = py + 1: boxx(bx) = -2: bx = bx + 1: by = by + 1: bc = bc + 1ãLOOP UNTIL py >= y2ãboxc(bc) = -2ããbx = 1ãby = 1ãbc = 1ãEND SUBããSUB zoomgfx (x, y, size)ãbx = 1ãby = 1ãbc = 1ããx1 = 0ãy1 = .1ãx2 = .1ãy2 = 0ããtimes = -1ããpx = xãpy = yã'size = 1ããzoom = sizeããFOR i = 1 TO zoomããpx = xãpy = yããDOãIF boxc(bc) > 0 THEN LINE (cx - x1 + px * size, cy - y1 + py * size)-(cx - x2 + px * size, cy - y2 + py * size), boxc(bc), BFã'IF boxc(bc) = 0 THEN LINE (x1 + px, y1 + py)-(x2 + px, y2 + py), 0, Bã'LINE (x1 + px, y1 + py)-(x2 + px, y2 + py), boxc(bc), BFãpx = px + 1ãbc = bc + 1ãbx = bx + 1ãby = by + 1ã'FOR a = 1 TO 999ã'NEXT aãIF boxx(bx) = -2 THEN px = x: py = py + 1: bx = bx + 1: by = by + 1: bc = bc + 1ãLOOP UNTIL boxc(bc) = -2ãtimes = times + 1ãIF times = 0 THEN y1 = 0: x2 = 0: y1 = y1 + .5: x2 = x2 - .5: x1 = x1 + .5: y2 = y2 - .5ãããy1 = y1 + .5ãx2 = x2 - .5ãx1 = x1 + .5ãy2 = y2 - .5ãã'size = size + 1ããbx = 1ãby = 1ãbc = 1ãNEXT iããEND SUBãJim Emptage WIDE FIRE 75504.2526@compuserve.com 05-21-97 (14:55) QB, QBasic, PDS 49 1233 WIDEFIRE.BAS' fire routine by Jim Emptageã' 75504.2526@compuserve.comã' even a wide fire works fairly well on myã' 486 66 computerã' uses colors 1 to 60ã' use the rest of the colors for your otherã' program needsã' you could add a check so the fire does notã' cover colors over 60, even if in fire boxãCLSãSCREEN 13ãDEFINT A-ZãFOR A = 1 TO 60ã PALETTE A, AãNEXTãsx = 10 ' LEFT X POSãSY = 135 ' BOTTOM Y POSãxmax = 300 ' X WIDTHã ' Y HIGHT IS 65ãLINE (sx - 1, SY + 1)-(sx + (xmax + 1), SY - 66), 141, Bã' this line describes the fire boxãPAINT (1, 1), 190, 141ãDOã REDIM sam(xmax, 65)ã RANDOMIZE TIMERã IF UP = 0 THEN T = 1 + INT(RND * (xmax - 1))ã IF UP = 1 THEN T = 3 + INT(RND * (xmax - 3))ã IF T = 1 THEN UP = 1ã FOR A = 0 TO xmax STEP Tã clr = 30 + (RND * 30)ã sam(A, 0) = clrã NEXTã FOR x = 0 TO xmax STEP Tã FOR y = 0 TO 64ã IF sam(x, y) <> 0 THENã IF sam(x, y + 1) = 0 THENã sam(x, y + 1) = ABS(sam(x, y) - 1)ã END IFã END IFã NEXTã NEXTã FOR y = 0 TO 65ã FOR x = 0 TO xmax STEP Tã clr = (sam(x, y))ã IF clr < 0 THEN clr = 0ã PSET (x + sx, SY - y), clrã NEXTã NEXTãLOOP WHILE INKEY$ = ""ãMatthew Pulley FRENZIED LIGHTNING STORM FidoNet QUIK_BAS Echo 05-19-97 (15:34) QB, QBasic, PDS 112 2186 LIGHTNIN.BAS' Here's my latest contribution to the 3AM series. Pretty cool effect. ã'Compile it and run with the command line "/FRENZY". Big Storm. I might addã'rain to it a little later. Enjoy!ããDEFINT A-ZãDECLARE SUB Flash ()ãDECLARE SUB MilliDelay (msecs)ãRANDOMIZE TIMERãSCREEN 13ãIF INSTR(COMMAND$, "/FRENZY") THEN Speed = 1000 ELSE Speed = 5000ããShade(1) = 57ãShade(2) = 32ãXAdd(1) = -1ãXAdd(2) = 1ããDOãX = INT(RND * 310)ãFork1 = INT(RND * 50 + 20)ãFork2 = INT(RND * 100 + 50)ãFork3 = INT(RND * 150 + 100)ãFork4 = INT(RND * 150 + 125)ããFOR y = 0 TO 199ã LINE (X + XAdd, y)-(X + XAdd, y), 15ã LINE (X + XAdd - 1, y)-(X + XAdd - 1, y), 15ã LINE (X + XAdd - 2, y)-(X + XAdd - 2, y), Shade(Colr)ã LINE (X + XAdd + 1, y)-(X + XAdd + 1, y), 15ã LINE (X + XAdd + 2, y)-(X + XAdd + 2, y), Shade(Colr)ããã IF y = Fork1 THENã Length = RND * 50ã LINE (X + XAdd, y)-(X + Length, y + Fork1), 15ã END IFãã IF y = Fork2 THENã Length = RND * 50ã LINE (X + XAdd, y)-(X - Length, y + Fork2), 15ã END IFãã IF y = Fork3 THENã Length = RND * 50ã LINE (X + XAdd, y)-(X - Length, y + Fork3), 15ã END IFãã IF y = Fork4 THENã Length = RND * 50ã LINE (X + XAdd, y)-(X + Length, y + Fork4), 15ã END IFãã X = X + XAdd(RND * 2 + 1)ã IF X > 319 THEN X = X + XAdd(1)ã IF X < 0 THEN X = X + XAdd(2)ããNEXTããColr = INT(RND * 2 + 1)ããRandPick = INT(RND * 2 + 1)ã IF RandPick = 1 THEN Flashã CLSããIF INKEY$ <> "" THEN ENDããMilliDelay RND * SpeedããLOOPããSUB FlashããOUT &H3C8, 0ã OUT &H3C9, 63ã OUT &H3C9, 63ã OUT &H3C9, 63ããMilliDelay 50ããOUT &H3C8, 0ã OUT &H3C9, 0ã OUT &H3C9, 0ã OUT &H3C9, 0ããEND SUBããSUB MilliDelay (msecs) STATICãã IF sysfact& THENã IF msecs THENã Count& = (sysfact& * msecs) \ -54ã DOã Count& = Count& + 1ã IF Count& = Z THEN EXIT DOã IF INKEY$ <> "" THEN ENDã LOOP UNTIL t2 = PEEK(&H6C)ã END IFã ELSEã DEF SEG = &H40ã t1 = PEEK(&H6C)ã DOã t2 = PEEK(&H6C)ã IF INKEY$ <> "" THEN ENDã LOOP UNTIL t2 <> t1ã DOã sysfact& = sysfact& + 1ã IF sysfact& = Z THEN EXIT DOã IF INKEY$ <> "" THEN ENDã LOOP UNTIL t2 <> PEEK(&H6C)ã t2 = 256ãEND IFããEND SUBãAngelo Ken Pesce ANIMATED BLOB ken@uniserv.uniplan.it 05-22-97 (17:01) PB 175 2900 ANIBLOB.BAS ' TO DO LIST:ã' ADD TWO SIDE FIREEFFECTã' OPTIMIZE BLOB ROUTINEã' ANIM OTHER PARAMETRERSããã' INIT -----------------------------------------------------------------ã$optimize speedã' 286 is REQUIRED...ã$cpu 80386ã' ...But 386 is betterã$lib all offã$error all offã$float npxã' Init mode 13ãcall mode13hãcall palsetã' ----------------------------------------------------------------------ããã' INIT VARS -------*ãTYPE blobãx AS INTEGERãy AS INTEGERãradius AS integerãradius64 as integerãstrength AS integerãEND TYPEãdefint a-zãDIM tblob AS SINGLE, threshold AS single, t AS singleãxmin = 50: ymin = 0: xmax = 270: ymax = 200:threshold = .65:' Screen dimens.ã' and thresholdãDIM blobs(3) AS blobãdim deg1 as single, deg2 as single, deg3 as singleãdim aps(3) as singleãdim rpr(900) as single: ' THIS IS FOR BLOBS PRECALC (R<=300)ã' INIT BLOBS -------*ãgosub blobpresetããdoãã' UPDATE BLOBS POSITIONSãincr deg1,0.05ãincr deg2,0.1ãincr deg3,0.2ããblobs(1).x=160+sin(deg1*2)*80ãblobs(2).x=160+sin(deg2*2)*80ãblobs(3).x=160+sin(deg3*2)*80ããblobs(1).y=100+cos(deg1)*80ãblobs(2).y=100+cos(deg2)*80ãblobs(3).y=100+cos(deg3)*80ãããã' DO BLOBS -------*ãFOR j = 0 TO ymax STEP 4ãy = ymax-jãfor k=1 to 3ãaps(k)=(y-blobs(k).y)^2ãnextããFOR i = 0 TO xmax STEP 4ããx = i + xminãt = 0ããFOR k = 1 TO 3ãr=((x-blobs(k).x)^2+aps(k))^0.5ãããIF r <= blobs(k).radius THENãt = t + rpr(k*300+r)ãEND IFãNEXT kãã' DISPLAY BLOBSãIF t >= threshold THENãcol=t*63ã! mov al,colã! mov bx,yã' SHL BX,6ã! dw &he3c1ã! db 6ã! mov dx,&hA000ã! mov di,yã! mov cx,xã' SHL DI,8ã! dw &he7c1ã! db 8ã! mov es,dxã! add di,bxã! add di,cxã! stosbã! stosbã! add di,318ã! stosbã! mov es:[di],alãelseã! mov al,0ã! mov bx,yã' SHL BX,6ã! dw &he3c1ã! db 6ã! mov dx,&hA000ã! mov di,yã! mov cx,xã' SHL DI,8ã! dw &he7c1ã! db 8ã! mov es,dxã! add di,bxã! add di,cxã! stosbã! stosbã! add di,318ã! stosbã! mov es:[di],alãend ifãNEXTãNEXTãloop until inkey$<>""ãENDããããããã' ------------------------------------------------------------------------ã' SUBS -------------------------------------------------------------------ã' ------------------------------------------------------------------------ãsub mode13hã! mov ax,&h13ã! int &h10ãend subããsub palsetãdim k as byteãout &h3c8,0ãfor k=0 to 63ãout &h3c9,0ãout &h3c9,0ãout &h3c9,kãnextãout &h3c8,64ãfor k=64 to 64+63ãout &h3c9,k-64ãout &h3c9,0ãout &h3c9,0ãnextãout &h3c8,127ãfor k=127 to 127+63ãout &h3c9,0ãout &h3c9,k-127ãout &h3c9,0ãnextãend subããblobpreset:ãblobs(1).radius = 90ãblobs(1).strength = 1ãblobs(2).radius = 70ãblobs(2).strength = 1ãblobs(3).radius = 50ãblobs(3).strength = 1ãã' PRECALCSãfor k=1 to 3ãfor r=0 to 300ãrpr(k*300+r)=blobs(k).strength*((1-(r/blobs(k).radius)^2)^2)ãnextãnextãreturnãDaniel Davies REAL-TIME TEXTURE MAPPED TUNNELia53@rapid.co.uk 05-24-97 (15:20) QB, QBasic, PDS 127 8413 TUNNEL.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"TUNNEL.ZIP",4^6:Z&=6042:?STRING$(50,177);ãU"%up()%9%'%R-%mU91G<&%Z)4)7%%H.%%%/%%%%yz%ssjq%SgfxJdz<>]Sm5w5]=ãU"N=Y$IQXHPA]D3j*T#:<7ZRvsvSZK1L;/+QA=;_gJ5+dX=ãU"rRvjKcCkZUVAWkc.<$_irE?1/WcV=Tu2J[ozsgOHE#tFmGa)daZO>nn2B_8&*bvãU"rO_.N8Cc*XSp=0:_sIbtiq7[vm^_R>u3+F5x*G+1RXpM0l?h><9[Jn/qqw.qW'xãU",]''6f8E,G4\Yb=F[Aj1.1ja15G)6m(ms&0.e%&1_R0MU3ga4?7_QDa8_N_>F0=ãU"SF87fBW.v:IB%6;/8aK9mPos(0DJeBnFI[GXB>>gEl3v52UnI5nWN/d:r5vc[#rc<#J=:Vb1pY)D^jA<ãU"Q0o4gE_tz[uL3.lh3$M%o:]ULz7qEYf^u)D$u,0O%lmv?hQa3]A>X?^GiH7)QVUãU"])$[Y_l*iNyeknB*vtlR2AP:z^c2rd%V&+rLc3c+mxGPE^Kz8&p\9Zu?U2>;lP]ãU"V>MG8O?6nBj??,.$7J,UueNOhUmHHMmG>l?7_fL$9*lD]-'0t5Gh3UW&#>ar&k,ãU"VTWFUPn-2g)1,zR=sh6_ZOER^gpTU;C9M'i\<*si-J8)Sjl15\U*m3fpgI)Fu_GãU"_:BJ'gs9ueFWOJRu_]DYVuIp45li(co2AT_<*h6DY%j#'_8j6-U8&_/wOM:Vz2UãU"/;e5p1+J\3Ld+P/S]QY4LL&gA/']BvLFw5d6=o*&PRuU*N':yJDF[KJ'Dl*AWI0ãU"f/hl3AtRtg1xEQDF^vVL6gQ;pXuDt#A$I81VD=(.(OT5De/r&Zq89KVvwt?>>nhYM(ul7j0MP1IãU"_9T>XzUwGcc2Wkac,JBh]3%nu(EDg?6FMc=mm.RuTY5OC*Ao-ET9RI=ztSNY*nsãU"VekQ4bWD&wC57GBlx3j]n/G7/3&rni4774Yz:Z/(m\xWgi_ML*V:xuSAa2UFY4(1N.ãU"N>dT#6sGG1V3$k?nbv^L3L&61ZkFMoj9=r0=8+3J2z*Y,7v(H>d1/=.^/)Acom6ãU"w7gD\,enuTgLHg*9lo$_,[-]x(u%p()9%%'%-.%,bIOG&4M*$7(%%%n.%%%,%%#ãU"%lk'%SufqE6%p][H$1Ta,Ar-u)nj$Bw<#a2ysJb*h0%(7[O/iLvcc0uQWu5l1ZjãU"v=Hrk?eAlkqb'ãU"V?LRSq4om-d.PCYAQh,GcDI[*r;+Y/%U+STdh9P4,4)?-[H1kv*9]&>_lOgjCVVãU"3PF-Z(5]j#M16/->PkJa1=CXnB#n7D_Uq0hTgPE)'2_PH98aSU1IlKDe*6E3,w3Vqx^z^'?ãU"nP=h5Y'IX0-'2H&d/0[=>Am;/Dk[w9tYãU"fp0k>(6',5??Q$JLOh*<'CEc><:9RLnLDY0Onu>cPJS-TC;O,'B7O2'HiD'0ãU"NyNM0zvQDyrgpf6JK-TP*nb7=&byNKLbzdKoA^>-v&8IR>+DE)=jcY2/k]B3*ofãU"M9=pui&^wkYr,qCtM_[X_m_CD;=7d$j3?&usDfH(Wmtut6oN1pWbmS4e^G:DsYJãU"M7,)'wKmx_##.V#GTAxyQk43gKuJS,MO;zL-I]e2a&nu2*15Q/G8cp9t7.k0Z?sfãU"(=)nb$[RaxrAN.qX1CPO\SmD?v\l1rtb7qy:YRãU"0hYjWdxg*wKvm:mK5r3m%%LS%%%,%ãU"%%%lk&'SifOyfl(,A\_7Fjx$q6pieemq)1xM\DSW=3V=jgKbed;(AZL0Dj\[M]=ãU"]O9w.td?xvHdoDS4ec+DS4?e+DSu4e+DsS4e+Ld:BMBQm[NrdB_nlPwtu4Mdj8oãU"Qa+::d.I-f/am,ZM$H:#:cv2Dw=:R^no,^NnLORbH4UgWXIi8.<3ãU"&n_by(&nzl7gKJ3RlZbJK-j7fIg<63'%g?v2Zt>E)Vd)HJn_ItcBsOcN]Y];QFRãU"c&%n/joO9M8PcXvI$c57mq)1S8nMN'B;4#$&K_H(W6*Quio0BBzh:QcL=6xeCJXãU"uM6wi1lLPGv07iPBUZNc=vZ'OaW38x&_ãU"ks=2&EazLzbk,8(x[f>7MV=B?t96k0j8>(:5Nh;CLENG)]-AMid^:OcdQkia]PvãU"T.BHDSN;?HpbyI'P3vNLRiR3k#L^>1gCYD>ADwI\kklh2?_%sWslo]3[Z_yA-Z,ãU"o()DQlR8.KAVc\]#]t/GNEJw$h#kGquE3DKcE#lvI\Gt8xT9)xIR6]_,PM_k7DmãU"DSqJVCXdMtKdPqKRA#$h($%tM4\182YzN\djGF_)]HH+;qr;(]cICTec]e+4R.AãU"=f_1+MSz\,ff*N-%2]m7g%vFpzb:%Yw.2X,n/*O7_MV,b+pgsmhZ?G4e,u]7s7[sDya:MsãU"GUx)uqZX>^z2y32z9,mrl4^pRq[_wB]xzx9lu(fUxmBBDeHkusOH'if17l1D[q#ãU"/#j#v2[2N;9R5pvUGtwjL+bn/UvsKt(vccT:;1HJq1mk]CL%X&0CoT,;WY#aKWsãU"XqexaaLe<(MI=tNj^C$&#x=5=Qm,oYLuIbX+:V]N?J-[>Gz-&dLN'HIL'_Mq>H&ãU"?9IG\kkC$_gBG1HKq&^=HuMkem-rg>3r1=p:MeSqu(f2TDwh][6jDLJpuq$H'lzãU"XPNK+H#)F$?G'_ct$(2J>hZBZ-kWaiX2Hkz5SJkgs*=l_Z_jxIB%BS_7_,OouU)1\0f64WDZ(vmk/c9jt,4Mfz;3YHg8pd8$ng)DOegb&Pf2SãU"q/wl=tlFt]?b>TGMa2mOdAE>=Oo0b'%\gP2$,4:KP$_l?27'W$WpEgc6MciNTQ^ãU"_$hn7*R7_Sk\*.Pbnv>^Hs.mwO5)sDfIsAo-m7BV/%C+HdKoK7\G+QLNc6Y3F3iãU"3wL14[h^LL8c2c0CB#?v)9,RJ6k24LfikGwkYQw*[^FR)P?r#HM\8iG-GOs/L()ãU"H.TKnclB[p8F*DuAH=LE:.c1L3dOe^odnaMmFnT$RL#b'cCRf=ANa:uTlRi=8V6ãU"hYQPFcpXQSmD;wfMhlPqoMswsjRZhLf$6B;H,lC.vW#DnmkF[C^ON)iXnCKG\qtãU"=p*QhO(9cilc7+oaT(RTNIH1ao=I^A(.nAG(IOWKfx#,t?vQ4KI3jM1a2k-35beãU"?SiOVR4Y.2pm>V)Rj7IRBeK=8ayFef4MQMBW\9i4U-(1Jx,U4^jS'1I1yW+r8y,OmVZ6>FiNYm]mGRg=_0/H)x048ZSc1Oy)9>3I;SHd3Y%;\w5kFd&uM7lgPinAnZye0.Fz]+dqYfAoG%q;gwt*>eVcNsCy1HnO;%LLU-_9=7H4L9&ãU"[Y$v%N2?2\oW'MQJBYmpjzuIdVO2Ri(1s7R(efxRbAu+q;>vQ0F>gqp0C-*9p[/ãU"G2Bu59%+g'H]xd3Y)=/yAp%pF]rMoGbc;AVLfAULgICV$mIVecUPDpfx:p]wf%zãU"H\dBFPzK'x.j$'6\dj8PMCiC6m6cEHJ.j2;q.ãU"&OMwUQ]j7H'%jI$PuWwmQawQfEXIImD)TIW.5JPzdy)x2XZ#gqQC%>Q'Ic;%:j7ãU"]-/YiA+f,=6&tO\b4h6zZ+TnTv-,]ByvFwG'v1CW'Nh%rELn:f_o*xSTH4fin.dãU"f,DY\a$7CZ]=MfCnP?jiqCn;B=KsRGbW?5*YKBlqV?_i=uspzIFlbmceVl83AhktYdF8ãU"6C[4Mg5bl)+V%8wr5]fD6cP91&J?vhIks#'#foP^&^gZ>x=N(%dAy/N,SF6736SãU"R$:P:Xi8ITkU+Cd^:r9(NHGC3M'$g88&A'd;M_WlAOk93NChuu%NxãU".H94jMTyRq%m(>aIc#wLjza6Uopf420>mMI_A/4t4G$VtgTvXQ8XT,HJngB6)h=ãU"jpqJT='1hgE:j8H_3]\>c$g$.:sa;$9Ze7vmpR_S[6q\\ei8+qG[?o.)%0mN6eoãU"vjnAI[W/&7>LWR[P^<)rMv5A3o,V3tAo3q2HFMy\Y[C*6?J\nhnR6U#Gu(j.(L$ãU"s^JE?]M-ZoF:KWOB+^sdft#W98B9-&q3+0fBC*l3%n*FIT7(idC\j^ATpA\s%HiãU",hx+ULf/kda)uB5dd+0ofYOXBp:8tM-/$,Z(VRR;^1JtHjlw7N=kH]u6xMU9qk7ãU"a^m6uci*##)+H;d*h+-7hVV>C'*R[j;Vd;t,a(kvOu-c6ljlXuWUuA5qx_w16B:ãU"E=VfoPi]7*dR(A63T(uckR0SH$8l$#<)EN)=:V4N1TJ$9Mi%7F$M\1:7rR<1Mf5ãU"RG0UPraM[h'*\)_n0+H+)c1))BB+xB]uIdnnm]=/H9\i7.#Yc5P/lSPDsFg2X-AãU"yD.5xCNIPh)mH(#?Qor#W;k$RQT&mbZ*];/RBrKXVD*TqYHMOOJ9-oW24kD_JN'ãU",Bs8<8.]d6$hv?-104bypdEFH#ZYTi%Z\WmVTu8+HCy?4W#_'/o9iibQt8q/3JhãU"hRG[r3gE4dUjqrmWFmZ&_VD]5#]i\K?>,uprãU"/\ue$Ns-3IFGe=[YyD9E_$8JCQ.J9(xUg3tYCzMe*XU\_2tW=jnJXQMtBDcCCJ^Q,?Q['5z&eNOo-=.xypt.MK%dHKphQãU"h;>1In=LZuiw3esMbkjI^COCay>>VTnquhwGz4l/79.;=lIV&/nJLE1DEKMzLT\ãU"kj(qkl<7[8*aHHrP]Pd<$UMM7?S<-[#4\nu$v&$AF.3YXa#*9tjDorNO^G's6(QãU")]HiJp-4s?pu4<8UQvEUjt:mGsX8xQ6l=,,*'GPI8_e/x#T7xo6#D35-//Ni6ueãU"d]uSX-rJtraPb-sLQNg,Owrc1?w.b]4v0_GjQf9T\vJNXVkFP/eDeEUY9^m= 320 THEN layer1(checksnow%).X = 0ãIF layer2(checksnow%).X >= 320 THEN layer2(checksnow%).X = 0ãIF layer3(checksnow%).X >= 320 THEN layer3(checksnow%).X = 0ãIF layer1(checksnow%).X < 0 THEN layer1(checksnow%).X = 319ãIF layer2(checksnow%).X < 0 THEN layer2(checksnow%).X = 319ãIF layer3(checksnow%).X < 0 THEN layer3(checksnow%).X = 319ãããIF layer1(checksnow%).y >= 200 THENãlayer1(checksnow%).X = INT(RND * 319)ãlayer1(checksnow%).y = 0ãEND IFãIF layer2(checksnow%).y >= 200 THENãlayer2(checksnow%).X = INT(RND * 319)ãlayer2(checksnow%).y = 0ãEND IFãIF layer3(checksnow%).y >= 200 THENãlayer3(checksnow%).X = INT(RND * 319)ãlayer3(checksnow%).y = 0ãEND IFããNEXT checksnow%ããPCOPY 0, 1ãCLSãLOOP WHILE INKEY$ = ""ãDaniel Davies COMPLEX STAR/CREDIT SCROLLER ia53@rapid.co.uk 05-24-97 (15:20) QB, QBasic, PDS 191 7863 STARS.BAS '=======================================================================ã' Star/Credit Scroller by Daniel Davies 1996ã' Simple use of page flipping to create a complex animation includingã' use of vertically scrolling text, bouncing balls, horizontalyã' scrolling multi-layered star fieldã'=======================================================================ãã'== INITIALISE EVERYTHING FOR THE STAR FIELD ===========================ã'set to screen mode 7 so that we can use page swapingãSCREEN 7, 0, 1, 0 ' Write to Page 1 (Hidden)ã'set size of arraysãDIM SHARED Stars1%(200): DIM SHARED Stars2%(200)ãDIM SHARED Stars3%(200)ãDIM SHARED FlineX1%(1 TO 8): DIM SHARED FlineY1%(1 TO 8)ãDIM SHARED FlineX2%(1 TO 8): DIM SHARED FlineY2%(1 TO 8)ãDIM SHARED MSG$ãã'set initial position of starsãFOR X% = 1 TO 200ã RANDOMIZE TIMERã Stars1%(X%) = INT(RND * 320) + 1ã RANDOMIZE TIMERã Stars2%(X%) = INT(RND * 320) + 1ã RANDOMIZE TIMERã Stars3%(X%) = INT(RND * 320) + 1ãNEXT X%ãã'set initial positions and speed of the shapesãRANDOMIZE TIMERãXco1% = INT(RND * 320): Yco1% = 10 + INT(RND * 180)ãXspeed1% = -1ãYspeed1% = 1ãXco2% = INT(RND * 320): Yco2% = 100 + (INT(RND * 90) - 45)ãXspeed2% = -3ãYspeed2% = -3ãXco3% = INT(RND * 320): Yco3% = 10 + INT(RND * 180)ãXspeed3% = 2ãYspeed3% = 2ãã'set the position of the line and it's speedãRANDOMIZE TIMERãFlineX1%(1) = INT(RND * 320): FlineY1%(1) = INT(RND * 200)ãFlineX2%(1) = INT(RND * 320): FlineY2%(1) = INT(RND * 200)ãxmod1% = -2: ymod1% = 2ãxmod2% = 3: ymod2% = -3ãFOR X% = 2 TO 8ãFlineX1%(X%) = FlineX1%(1): FlineY1%(X%) = FlineY1%(1)ãFlineX2%(X%) = FlineX2%(1): FlineY2%(X%) = FlineY2%(1)ãNEXT X%ãã'set info about the scrolltextãy% = 19ãmessage% = 1ã'========================================================================ãããDOã CLS 'clear page ready for the picãã FOR X% = 1 TO 200 ' move and draw the starsã Stars1%(X%) = Stars1%(X%) - 5 ' move the nearest layerã Stars2%(X%) = Stars2%(X%) - 3 ' move the middle layerã Stars3%(X%) = Stars3%(X%) - 1 ' move the back layerã ' the next section maeans that whenã ' a star goes outside of the screenã ' it is given a new position.ã IF Stars1%(X%) <= 0 THENã RANDOMIZE TIMERã Stars1%(X%) = INT((350 - 320 + 1) * RND + 320)ã END IFã IF Stars2%(X%) <= 0 THENã RANDOMIZE TIMERã Stars2%(X%) = INT((350 - 320 + 1) * RND + 320)ã END IFã IF Stars3%(X%) <= 0 THENã RANDOMIZE TIMERã Stars3%(X%) = INT((350 - 320 + 1) * RND + 320)ã END IFãã PSET (Stars3%(X%), X%), 8 ' draw the back layerã PSET (Stars2%(X%), X%), 7 ' draw the middle layerã PSET (Stars1%(X%), X%), 15 ' draw the nearest layerã NEXT X%ãã ' The next section changes theã ' message on screenã IF TIMER - start# >= .125 THENã y% = y% - 1ã IF y% = 6 THEN y% = 19: message% = message% + 1ã IF message% = 26 THEN message% = 1ã IF message% = 1 THEN MSG$ = "Horizontally scrolling Star field"ã IF message% = 2 THEN MSG$ = "By Daniel Davies"ã IF message% = 3 THEN MSG$ = "This program uses page flipping to get"ã IF message% = 4 THEN MSG$ = "reasonably smooth animation using"ã IF message% = 5 THEN MSG$ = "simple commands in Q-Basic it should be"ã IF message% = 6 THEN MSG$ = "easy to understand, but if you want or"ã IF message% = 7 THEN MSG$ = "need any help understanding it just ask"ã IF message% = 8 THEN MSG$ = "and I'll be pleased to help."ã IF message% = 9 THEN MSG$ = "if you find any of the code useful you"ã IF message% = 10 THEN MSG$ = "can use it in any programs but please"ã IF message% = 11 THEN MSG$ = "give me some credit"ã IF message% = 12 THEN MSG$ = "anyway, some of the technical info"ã IF message% = 13 THEN MSG$ = "it uses mode 7 which is the ega 320*200"ã IF message% = 14 THEN MSG$ = "16 colour mode which has 8 pages"ã IF message% = 15 THEN MSG$ = "this demo only uses 2 different pages"ã IF message% = 16 THEN MSG$ = "the demo has 11 different layers of"ã IF message% = 17 THEN MSG$ = "animation"ã IF message% = 18 THEN MSG$ = "enjoy this demo"ã IF message% = 19 THEN MSG$ = "Sorry the text's a bit crud but It's"ã IF message% = 20 THEN MSG$ = "1 am, so what can you expect?"ã IF message% = 21 THEN MSG$ = "Cee U l8r!"ã start# = TIMERã END IFã COLOR 11ã ' the next line writes the messageã ' to the screenã LOCATE y%, 20 - (LEN((MSG$)) / 2) + .5: PRINT MSG$ã ã ' the next section draws the circleã ' that bounces below the borders andã ' undeneath the other two circlesã Yco1% = Yco1% + Yspeed1%ã Xco1% = Xco1% + Xspeed1%ã IF Yco1% > 189 THEN Yspeed1% = -1ã IF Yco1% < 11 THEN Yspeed1% = 1ã IF Xco1% < 11 THEN Xspeed1% = 1ã IF Xco1% > 309 THEN Xspeed1% = -1ã CIRCLE (Xco1%, Yco1%), 10, 10ã PAINT (Xco1%, Yco1%), 14, 10ãã ' the next section draws the circleã ' that goes underneath the borderã ' and inbetween the other two circles.ã Yco2% = Yco2% + Yspeed2%ã Xco2% = Xco2% + Xspeed2%ã IF Yco2% > 140 THEN Yspeed2% = -3ã IF Yco2% < 61 THEN Yspeed2% = 3ã IF Xco2% < 11 THEN Xspeed2% = 3ã IF Xco2% > 309 THEN Xspeed2% = -3ã CIRCLE (Xco2%, Yco2%), 10, 1ã PAINT (Xco2%, Yco2%), 9, 1ã ' the next section draws the borderã ' lines for the star fieldã LINE (0, 45)-(320, 50), 8, Bã LINE (0, 46)-(320, 49), 7, Bã LINE (0, 47)-(320, 48), 15, Bã LINE (0, 156)-(320, 151), 8, Bã LINE (0, 155)-(320, 152), 7, Bã LINE (0, 154)-(320, 153), 15, Bãã ' The Next section draws the circleã ' that goes over the other twoã ' circles.ã Yco3% = Yco3% + Yspeed3%ã Xco3% = Xco3% + Xspeed3%ã IF Yco3% > 189 THEN Yspeed3% = -2ã IF Yco3% < 11 THEN Yspeed3% = 2ã IF Xco3% < 11 THEN Xspeed3% = 2ã IF Xco3% > 309 THEN Xspeed3% = -2ã CIRCLE (Xco3%, Yco3%), 10, 3ã PAINT (Xco3%, Yco3%), 1, 3ãã ' check that neither end of theã ' bouncing line leaves the screenãIF FlineX1%(1) > 319 THEN xmod1% = -2ãIF FlineX1%(1) < 0 THEN xmod1% = 2ãIF FlineY1%(1) > 199 THEN ymod1% = -2ãIF FlineY1%(1) < 0 THEN ymod1% = 2ãIF FlineX2%(1) > 319 THEN xmod2% = -3ãIF FlineX2%(1) < 0 THEN xmod2% = 3ãIF FlineY2%(1) > 199 THEN ymod2% = -3ãIF FlineY2%(1) < 0 THEN ymod2% = 3ãã ' move line.ãFlineX1%(1) = FlineX1%(1) + xmod1%: FlineY1%(1) = FlineY1%(1) + ymod1%ãFlineX2%(1) = FlineX2%(1) + xmod2%: FlineY2%(1) = FlineY2%(1) + ymod2%ã ' age the position of the linesãFOR X% = 8 TO 2 STEP -1ã FlineX1%(X%) = FlineX1%(X% - 1): FlineY1%(X%) = FlineY1%(X% - 1)ã FlineX2%(X%) = FlineX2%(X% - 1): FlineY2%(X%) = FlineY2%(X% - 1)ãNEXT X%ã ' Draw the linesãFOR X% = 4 TO 8 STEP 2ã LINE (FlineX1%(X%), FlineY1%(X%))-(FlineX2%(X%), FlineY2%(X%)), 2ãNEXT X%ãLINE (FlineX1%(1), FlineY1%(1))-(FlineX2%(1), FlineY2%(1)), 10ããã PCOPY 1, 0 ' Copy Page 1 (Hidden) to Page 0ãLOOP WHILE INKEY$ = ""ããDaniel Davies FOUNTAIN PARTICLE SIMULATION ia53@rapid.co.uk 05-24-97 (15:20) QB, QBasic, PDS 65 1646 FOUNTAIN.BAS'FOUNTAIN PARTICLE SIMULATIONã'keys areã'+ to increase gravityã'- to reduce gravityã'x to increase wind speedã'z to decrease wind speedã'if wind speed is below zero then the wind is blowing left instead of rightã'if you want to use this code, you may, but please give me credit, and tellã'me about.ã'you can e-mail me at ia53@rapid.co.ukããSCREEN 13ããTYPE particleãx AS DOUBLEãy AS DOUBLEãxm AS DOUBLEãym AS DOUBLEãEND TYPEããnum% = 200ãDIM objs(num%) AS particleãDIM new(num%) AS particleãRANDOMIZE TIMERãFOR x% = 1 TO num%ãobjs(x%).x = INT((RND * 20) + 150)ãobjs(x%).y = 0ãobjs(x%).xm = (RND * 1.25) - .625ãobjs(x%).ym = (RND * 3) + 2ãNEXT x%ãwind# = 0ãGRAV# = .1ãst# = TIMERãDOãZ$ = UCASE$(INKEY$)ãIF Z$ = "Z" THEN wind# = wind# - .01ãIF Z$ = "X" THEN wind# = wind# + .01ãIF Z$ = "-" THEN GRAV# = GRAV# - .01ãIF Z$ = "+" THEN GRAV# = GRAV# + .01ãFOR x% = 1 TO num%ããIF objs(x%).y > 200 THEN GOTO skip:ã PSET (new(x%).x, new(x%).y), 0ã PSET (objs(x%).x, 199 - objs(x%).y), 15ã new(x%).x = objs(x%).xã new(x%).y = 199 - objs(x%).yãskip:ã objs(x%).x = objs(x%).x + objs(x%).xmã objs(x%).y = objs(x%).y + objs(x%).ymã objs(x%).ym = objs(x%).ym - GRAV#ã objs(x%).xm = objs(x%).xm + wind#ããIF objs(x%).y <= 0 OR objs(x%).x > 320 OR objs(x%).x < 0 THENãobjs(x%).x = INT((RND * 20) + 150): objs(x%).y = 0ãobjs(x%).xm = (RND * 1.25) - .625: objs(x%).ym = (RND * 3) + 2ãEND IFããNEXT x%ãLOCATE 1, 1ãPRINT USING "##.##"; wind#ãPRINT USING "##.##"; GRAV#ãp% = 0ãf% = f% + 1ãPRINT ABS(INT(f% / (st# - TIMER))); "fps"ãLOOP WHILE Z$ <> "Q"ãDaniel Davies DOT MORPHING ia53@rapid.co.uk 05-24-97 (15:20) QB, QBasic, PDS 160 3328 DMORPH.BAS '*** DOT MORPHING PROGRAM IN Q-BASIC BY DANIEL DAVIESã'*** IF YOU USE THESE ROUTINES IN ANYTHING WOULD YOU PLEASE GIVE ME CREDITã'*** AND E-MAIL ME AT THE ADDRESS BELOW TELLING ME ABOUT IT.ã'*** E-MAIL: ia53@rapid.co.ukãDEFINT A-Zãã'*** INITIALSE THE SCREENãSCREEN 7, , 0, 1ãã'*** SET DATA TYPE FOR MOVEMENT OF POINTS AND CO-ORDINATESãTYPE pixelãx AS INTEGERãy AS INTEGERãEND TYPEãTYPE incãx AS DOUBLEãy AS DOUBLEãEND TYPEãã'*** READ THE NUMBER OF POINTS IN EACH OBJECTãREAD npãã'*** DIMENSION ARRAYS TO THE NUMBER OF POINTSãDIM start(0 TO np) AS pixelãDIM endp(0 TO np) AS pixelãDIM current(0 TO np) AS incãDIM increment(0 TO np) AS incãã'*** SET THE NUMBER OF FRAMES TO DO THE DOT MORPH OVERãframes = 200ãã'*** SET CURRENT FRAME TO START FRAMEãFOR x = 1 TO npãREAD start(x).x, start(x).yãcurrent(x).x = start(x).xãcurrent(x).y = start(x).yãNEXT xãã'*** SET STUFF REQUIRED TO DRAW POLYGONS.ãstart(0).x = start(1).xãstart(0).y = start(1).yãcurrent(0).x = start(np).xãcurrent(0).y = start(np).yãã'*** READ IN OBJECTSãFOR x = 1 TO npãREAD endp(x).x, endp(x).yãNEXT xãã'*** CALCULATE DISTANCE TO MOVE EACH POINT PER FRAMEãFOR x = 1 TO npãincrement(x).x = (endp(x).x - start(x).x) / framesãincrement(x).y = (endp(x).y - start(x).y) / framesãNEXT xãã'*** THE MAIN LOOPãDOã'*** MORPH FROM START TO END FRAMEãFOR Q = 1 TO framesãã'*** INCREMENT POINTS BY VALUE FOR EACH FRAMEãFOR x = 1 TO npãcurrent(x).x = current(x).x + increment(x).xãcurrent(x).y = current(x).y + increment(x).yãNEXT xãã'*** DRAW THE POLYGONãFOR y = 1 TO np - 1ãLINE (current(y).x, current(y).y)-(current(y + 1).x, current(y + 1).y)ãNEXT yãLINE (current(np).x, current(np).y)-(current(1).x, current(1).y)ãã'*** COPY THE HIDDEN PAGE TO THE VISIBLE PAGE AND BLANK HIDDEN PAGE.ãPCOPY 0, 1ãCLSãã'*** CHECK FOR KEYPRESSESãZ$ = INKEY$: IF Z$ <> "" THEN GOTO ENDIT:ãNEXT Qããã'*** THE BOUNCE BACK STAGEãFOR Q = 1 TO framesãã'*** MOVE POINT BACK BY INCREMENT FOR EACH POINTãFOR x = 1 TO npãcurrent(x).x = current(x).x - increment(x).xãcurrent(x).y = current(x).y - increment(x).yãNEXT xãã'*** DRAW POLYGONãFOR y = 1 TO np - 1ãLINE (current(y).x, current(y).y)-(current(y + 1).x, current(y + 1).y)ãNEXT yãLINE (current(np).x, current(np).y)-(current(1).x, current(1).y)ãã'*** SHOW HIDDEN PAGE THEN BLANK ITãPCOPY 0, 1ãCLSãã'*** CHECK FOR KEYPRESSãZ$ = INKEY$: IF Z$ <> "" THEN GOTO ENDIT:ãNEXT QããLOOPãã'*** END THE PROGRAMãENDIT:ãSCREEN 0ãWIDTH 80, 25ãCLSãã'*** THE OBJECTSãã'*** THE DESCRIPTIONS FOR OBJECTS ARE VERY SIMPLE THEY ARE A LIST OF THEã'*** POINTS CO-ORDINATES AND FROM THESE TWO KEYFRAMES THE COMPUTER GENERATESã'*** TWEENS (IN BETWEEN FRAMES) AND DISPLAYS THEM.ãã'*** THE NUMBER OF POINTS IN EACH OBJECTãDATA 18ãã'*** THE FIRST OBJECTãDATA 211,184ãDATA 256,168ãDATA 289,144ãDATA 307,115ãDATA 307,84ãDATA 289,54ãDATA 256,31ãDATA 211,15ãDATA 159,10ãDATA 108,15ãDATA 63,31ãDATA 30,55ãDATA 12,84ãDATA 12,115ãDATA 30,145ãDATA 63,168ãDATA 108,184ãDATA 160,189ã ã'*** THE SECOND OBJECTãDATA 80,130ãDATA 90,160ãDATA 130,160ãDATA 140,130ãDATA 120,130ãDATA 120,100ãDATA 140,90ãDATA 150,80ãDATA 150,60ãDATA 140,40ãDATA 110,30ãDATA 100,30ãDATA 80,40ãDATA 70,60ãDATA 70,80ãDATA 80,90ãDATA 100,100ãDATA 100,130ãDaniel Davies SINUSOIDAL PALETTE GENERATOR ia53@rapid.co.uk 05-24-97 (15:20) QB, QBasic, PDS 92 2411 SINE.BAS 'SINUSOIDAL PALLETTE GENERATORã'This plasma uses moving sine waves to generate the pallette, making for anã'interesting effect.ã'If you want a routine to generate a plasma, don't use this, it's unoptimisedã'and I can write one which runs hundreds of times faster, using lookup tablesã'and other tricks.ã'I haven't got a web site yet but I've almost finished it, but in the meantimeã'if you want to contact me, my email address is - ia53@rapid.co.ukãSCREEN 13ããDEF SEG = &HA000ãsfactor% = 3ãFOR y% = 0 TO 199ãq% = (SIN(y% * sfactor% * (3.141592653# / 180)) * 50)ãFOR x% = 0 TO 319ãPOKE z& + x%, (SIN(x% * sfactor% * (3.141592653# / 180)) * 50) - q% + 127ãNEXT x%ãz& = z& + 320&ãNEXT y%ããDIM rsin1%(360)ãDIM rsin2%(360)ãDIM rsin3%(360)ãDIM gsin1%(360)ãDIM gsin2%(360)ãDIM gsin3%(360)ãDIM bsin1%(360)ãDIM bsin2%(360)ãDIM bsin3%(360)ããFOR x% = 0 TO 360ãrsin1%(x%) = (SIN(x% * 2 * (3.141592653# / 180)) * 17)ãrsin2%(x%) = (SIN(x% * 4 * (3.141592653# / 180)) * 13)ãrsin3%(x%) = (SIN(x% * 6 * (3.141592653# / 180)) * 7)ããgsin1%(x%) = (SIN((x% + 120) * 2 * (3.141592653# / 180)) * 17)ãgsin2%(x%) = (SIN((x% + 120) * 4 * (3.141592653# / 180)) * 13)ãgsin3%(x%) = (SIN((x% + 120) * 6 * (3.141592653# / 180)) * 7)ããbsin1%(x%) = (SIN((x% + 240) * 2 * (3.141592653# / 180)) * 17)ãbsin2%(x%) = (SIN((x% + 240) * 4 * (3.141592653# / 180)) * 13)ãbsin3%(x%) = (SIN((x% + 240) * 6 * (3.141592653# / 180)) * 7)ãNEXT x%ãããDOãWAIT &H3DA, 8ãFOR x% = 0 TO 255ãOUT &H3C8, x%ãOUT &H3C9, rsin1%(x%) + rsin2%(x%) + rsin3%(x%) + 30ãOUT &H3C9, gsin1%(x%) + gsin2%(x%) + gsin3%(x%) + 30ãOUT &H3C9, bsin1%(x%) + bsin2%(x%) + bsin3%(x%) + 30ãNEXT x%ããr1tmp% = rsin1%(0)ãr3tmp% = rsin3%(0)ãg2tmp% = gsin2%(0)ãb1tmp% = bsin1%(0)ãb3tmp% = bsin3%(0)ããr2tmp% = rsin2%(360)ãg1tmp% = gsin1%(360)ãg3tmp% = gsin3%(360)ãb2tmp% = bsin2%(360)ããFOR x% = 0 TO 359ãrsin1%(x%) = rsin1%(x% + 1)ãrsin3%(x%) = rsin3%(x% + 1)ãgsin2%(x%) = gsin2%(x% + 1)ãbsin1%(x%) = bsin1%(x% + 1)ãbsin3%(x%) = bsin3%(x% + 1)ãNEXT x%ããFOR x% = 360 TO 1 STEP -1ãrsin2%(x%) = rsin2%(x% - 1)ãgsin1%(x%) = gsin1%(x% - 1)ãgsin3%(x%) = gsin3%(x% - 1)ãbsin2%(x%) = bsin2%(x% - 1)ãNEXT x%ããrsin1%(360) = r1tmp%ãrsin3%(360) = r3tmp%ãgsin2%(360) = g2tmp%ãbsin1%(360) = b1tmp%ãbsin3%(360) = b3tmp%ããrsin2%(0) = r2tmp%ãgsin1%(0) = g1tmp%ãgsin3%(0) = g3tmp%ãbsin2%(0) = b2tmp%ããLOOP WHILE INKEY$ = ""ãDaniel Davies MOVING SINE WAVE ia53@rapid.co.uk 05-24-97 (15:20) QB, QBasic, PDS 47 1146 SINEWAVE.BAS'moving sine wave BY Daniel Daviesã'This is the sort of sine wave you use to generate moving plasmas.ã'I haven't got a web site yet but I've almost finished it, but in the meantimeã'if you want to contact me, my email address is - ia53@rapid.co.ukããDIM sine1%(0 TO 360)ãDIM sine2%(0 TO 360)ãDIM sine3%(0 TO 360)ãDIM sine4%(0 TO 360)ããSCREEN 7, , 1, 0ãrtd = 3.141592654# / 180ãFOR y% = 0 TO 360ãsine1%(y%) = -(4 * SIN((y% * 16) * rtd))ãsine2%(y%) = -(9 * SIN((y% * 6) * rtd))ãsine3%(y%) = (10 * SIN((y% * 13) * rtd))ãsine4%(y%) = (6 * SIN((y% * 5) * rtd))ãNEXT y%ããDOãs1tmp% = sine1%(0)ãs3tmp% = sine3%(0)ãFOR x% = 0 TO 359ãsine1%(x%) = sine1%(x% + 1)ãsine3%(x%) = sine3%(x% + 1)ãNEXT x%ãsine1%(360) = s1tmp%ãsine3%(360) = s3tmp%ããs2tmp% = sine2%(360)ãs4tmp% = sine4%(360)ãFOR x% = 360 TO 1 STEP -1ãsine2%(x%) = sine2%(x% - 1)ãsine4%(x%) = sine4%(x% - 1)ãNEXT x%ãsine2%(0) = s2tmp%ãsine4%(0) = s4tmp%ãããFOR x% = 0 TO 319ãPSET (x%, 100 + sine1%(x%) + sine2%(x%) + sine3%(x%) + sine4%(x%))ã'PSET (x%, 100 + sine1%(x%) + sine2%(x%))ã'PSET (x%, 100 + sine3%(x%) + sine4%(x%))ãNEXT x%ãPCOPY 1, 0ãCLSãLOOPãDaniel Davies SHAPE-SHIFTING PLASMA 1 ia53@rapid.co.uk 05-24-97 (15:20) QB, QBasic, PDS 151 3802 MOVPLAS1.BAS'SHAPESHIFTING PLASMA BY Daniel Daviesã'this is a sinusoidal plasma which I wrote about a year ago, and haveã'modified to run fast enough to generate an animated plasma about 6 months agoã'but until now I haven't been able to post it on the net, because I didn'tã'have internet access.ã'I've also converted this to asic, so that I could compile it, the compiledã'form is movplas.exe, this is much smoother than this version.ã'I haven't got a web site yet but I've almost finished it, but in the meantimeã'if you want to contact me, my email address is - ia53@rapid.co.ukãDIM PLASMA%(80, 50)ãDIM sine1%(0 TO 360)ãDIM sine2%(0 TO 360)ãDIM sine3%(0 TO 360)ãDIM sine4%(0 TO 360)ãDIM red%(0 TO 255)ãDIM green%(0 TO 255)ãDIM blue%(0 TO 255)ããSCREEN 13ãDEF SEG = &HA000ããDIM rsin1%(360)ãDIM rsin2%(360)ãDIM rsin3%(360)ãDIM gsin1%(360)ãDIM gsin2%(360)ãDIM gsin3%(360)ãDIM bsin1%(360)ãDIM bsin2%(360)ãDIM bsin3%(360)ããFOR x% = 0 TO 360ãrsin1%(x%) = (SIN(x% * 2 * (3.141592653# / 180)) * 17)ãrsin2%(x%) = (SIN(x% * 4 * (3.141592653# / 180)) * 13)ãrsin3%(x%) = (SIN(x% * 6 * (3.141592653# / 180)) * 7)ããgsin1%(x%) = (SIN((x% + 120) * 2 * (3.141592653# / 180)) * 17)ãgsin2%(x%) = (SIN((x% + 120) * 4 * (3.141592653# / 180)) * 13)ãgsin3%(x%) = (SIN((x% + 120) * 6 * (3.141592653# / 180)) * 7)ããbsin1%(x%) = (SIN((x% + 240) * 2 * (3.141592653# / 180)) * 17)ãbsin2%(x%) = (SIN((x% + 240) * 4 * (3.141592653# / 180)) * 13)ãbsin3%(x%) = (SIN((x% + 240) * 6 * (3.141592653# / 180)) * 7)ãNEXT x%ãããããrtd = 3.141592654# / 180ãFOR y% = 0 TO 360ã'temporaryãsine1%(y%) = -(31 * SIN((y% * 7) * rtd))ãsine2%(y%) = -(6 * SIN((y% * 3) * rtd))ãsine3%(y%) = (19 * SIN((y% * 10) * rtd))ãsine4%(y%) = (44 * SIN((y% * 5) * rtd))ãNEXT y%ããDOãs1tmp% = sine1%(0)ãs3tmp% = sine3%(0)ãFOR x% = 0 TO 359ãsine1%(x%) = sine1%(x% + 1)ãsine3%(x%) = sine3%(x% + 1)ãNEXT x%ãsine1%(360) = s1tmp%ãsine3%(360) = s3tmp%ããs2tmp% = sine2%(360)ãs4tmp% = sine4%(360)ãFOR x% = 360 TO 1 STEP -1ãsine2%(x%) = sine2%(x% - 1)ãsine4%(x%) = sine4%(x% - 1)ãNEXT x%ãsine2%(0) = s2tmp%ãsine4%(0) = s4tmp%ãããããFOR y% = 0 TO 49ãymod& = (y% * 4) * 320&ãFOR x% = 0 TO 79ãx2% = x% * 4ãst1% = sine1%(x%) + sine2%(x%)ãst2% = sine3%(y%) + sine4%(y%)ãcol% = ((st2% + (((st1% + y%) MOD 254) + 1)) MOD 254) + 127ããcol% = st1% - st2% + 127ãããPOKE x2% + ymod&, col%: POKE x2% + ymod& + 1, col%ãPOKE x2% + ymod& + 2, col%: POKE x2% + ymod& + 3, col%ãPOKE x2% + ymod& + 320, col%: POKE x2% + ymod& + 321, col%ãPOKE x2% + ymod& + 322, col%: POKE x2% + ymod& + 323, col%ãPOKE x2% + ymod& + 640, col%: POKE x2% + ymod& + 641, col%ãPOKE x2% + ymod& + 642, col%: POKE x2% + ymod& + 643, col%ãPOKE x2% + ymod& + 960, col%: POKE x2% + ymod& + 961, col%ãPOKE x2% + ymod& + 962, col%: POKE x2% + ymod& + 963, col%ããããNEXT x%ãNEXT y%ããFOR x% = 0 TO 255ãOUT &H3C8, x%ãOUT &H3C9, rsin1%(x%) + rsin2%(x%) + rsin3%(x%) + 30ãOUT &H3C9, gsin1%(x%) + gsin2%(x%) + gsin3%(x%) + 30ãOUT &H3C9, bsin1%(x%) + bsin2%(x%) + bsin3%(x%) + 30ãNEXT x%ããr1tmp% = rsin1%(0)ãr3tmp% = rsin3%(0)ãg2tmp% = gsin2%(0)ãb1tmp% = bsin1%(0)ãb3tmp% = bsin3%(0)ããr2tmp% = rsin2%(360)ãg1tmp% = gsin1%(360)ãg3tmp% = gsin3%(360)ãb2tmp% = bsin2%(360)ããFOR x% = 0 TO 359ãrsin1%(x%) = rsin1%(x% + 1)ãrsin3%(x%) = rsin3%(x% + 1)ãgsin2%(x%) = gsin2%(x% + 1)ãbsin1%(x%) = bsin1%(x% + 1)ãbsin3%(x%) = bsin3%(x% + 1)ãNEXT x%ããFOR x% = 360 TO 1 STEP -1ãrsin2%(x%) = rsin2%(x% - 1)ãgsin1%(x%) = gsin1%(x% - 1)ãgsin3%(x%) = gsin3%(x% - 1)ãbsin2%(x%) = bsin2%(x% - 1)ãNEXT x%ããrsin1%(360) = r1tmp%ãrsin3%(360) = r3tmp%ãgsin2%(360) = g2tmp%ãbsin1%(360) = b1tmp%ãbsin3%(360) = b3tmp%ããrsin2%(0) = r2tmp%ãgsin1%(0) = g1tmp%ãgsin3%(0) = g3tmp%ãbsin2%(0) = b2tmp%ãããLOOP WHILE INKEY$ = ""ããDaniel Davies SHAPE-SHIFTING PLASMA 2 ia53@rapid.co.uk 05-24-97 (15:20) QB, QBasic, PDS 113 4313 MOVPLAS2.BAS'SHAPESHIFTING PLASMA 2 BY Daniel Daviesã'this is a sinusoidal plasma which I wrote ages ago, and have recentlyã'modified to run fast enough to generate an animated plasma.ã'I've also converted this intoã'I haven't got a web site yet but I've almost finished it, but in the meantimeã'if you want to contact me, my email address is - ia53@rapid.co.ukããDIM PLASMA%(80, 50)ãDIM sine1%(0 TO 360)ãDIM sine2%(0 TO 360)ãDIM sine3%(0 TO 360)ãDIM sine4%(0 TO 360)ãDIM red%(0 TO 255)ãDIM green%(0 TO 255)ãDIM blue%(0 TO 255)ããSCREEN 13ãDEF SEG = &HA000ãFOR a% = 0 TO 255ãREAD red%(a%), green%(a%), blue%(a%)ãOUT &H3C8, a%ãOUT &H3C9, red%(a%)ãOUT &H3C9, green%(a%)ãOUT &H3C9, blue%(a%)ãNEXT a%ããrtd = 3.141592654# / 180ãFOR y% = 0 TO 360ã'temporaryãsine1%(y%) = -(31 * SIN((y% * 7) * rtd))ãsine2%(y%) = -(6 * SIN((y% * 3) * rtd))ãsine3%(y%) = (19 * SIN((y% * 10) * rtd))ãsine4%(y%) = (44 * SIN((y% * 5) * rtd))ãNEXT y%ããDOãs1tmp% = sine1%(0)ãs3tmp% = sine3%(0)ãFOR x% = 0 TO 359ãsine1%(x%) = sine1%(x% + 1)ãsine3%(x%) = sine3%(x% + 1)ãNEXT x%ãsine1%(360) = s1tmp%ãsine3%(360) = s3tmp%ããs2tmp% = sine2%(360)ãs4tmp% = sine4%(360)ãFOR x% = 360 TO 1 STEP -1ãsine2%(x%) = sine2%(x% - 1)ãsine4%(x%) = sine4%(x% - 1)ãNEXT x%ãsine2%(0) = s2tmp%ãsine4%(0) = s4tmp%ããããymod& = 0ãFOR y% = 0 TO 49ãFOR x% = 0 TO 79ãx2% = x% * 4ãst1% = sine1%(x%) + sine2%(x%)ãst2% = sine3%(y%) + sine4%(y%)ãcol% = ((st2% + (((st1% + y%) MOD 254) + 1)) MOD 254) + 127ããcol% = st1% - st2% + 127ãããPOKE x2% + ymod&, col%: POKE x2% + ymod& + 1, col%ãPOKE x2% + ymod& + 2, col%: POKE x2% + ymod& + 3, col%ãPOKE x2% + ymod& + 320, col%: POKE x2% + ymod& + 321, col%ãPOKE x2% + ymod& + 322, col%: POKE x2% + ymod& + 323, col%ãPOKE x2% + ymod& + 640, col%: POKE x2% + ymod& + 641, col%ãPOKE x2% + ymod& + 642, col%: POKE x2% + ymod& + 643, col%ãPOKE x2% + ymod& + 960, col%: POKE x2% + ymod& + 961, col%ãPOKE x2% + ymod& + 962, col%: POKE x2% + ymod& + 963, col%ããããNEXT x%ãymod& = ymod& + 1280&ãNEXT y%ãããLOOP WHILE INKEY$ = ""ããDATA 15,15,15,16,15,15,18,15,15,19,14,14,21,14,14,22,13,13,24,13,13,25,12,12,27,12,12ãDATA 28,11,11,30,11,11,32,10,10,33,10,10,35,9,9,36,9,9,38,8,8,39,8,8,41,7,7,42,7,7ãDATA 44,6,6,45,6,6,47,5,5,49,5,5,50,4,4,52,4,4,53,3,3,55,3,3,56,2,2,58,2,2,59,1,1,61,1,1ãDATA 63,0,0,63,1,0,63,3,0,63,5,0,63,7,0,63,9,0,63,11,0,63,13,0,63,15,0,63,17,0,63,19,0ãDATA 63,21,0,63,23,0,63,25,0,63,27,0,63,29,0,63,31,0,63,33,0,63,35,0,63,37,0,63,39,0ãDATA 63,41,0,63,43,0,63,45,0,63,47,0,63,49,0,63,51,0,63,53,0,63,55,0,63,57,0,63,59,0ãDATA 63,61,0,63,63,0,63,63,1,63,63,3,63,63,5,63,63,7,63,63,9,63,63,11,63,63,13,63,63,15ãDATA 63,63,17,63,63,19,63,63,21,63,63,23,63,63,25,63,63,27,63,63,29,63,63,31,63,63,33ãDATA 63,63,35,63,63,37,63,63,39,63,63,41,63,63,43,63,63,45,63,63,47,63,63,49,63,63,51ãDATA 63,63,53,63,63,55,63,63,57,63,63,59,63,63,61,63,63,63,63,63,63,63,62,62,63,62,61ãDATA 63,61,60,63,61,59,63,60,58,63,60,57,63,59,56,63,59,55,63,58,54,63,58,53,63,57,52ãDATA 63,57,51,63,56,50,63,56,49,63,55,48,63,55,47,63,54,46,63,54,45,63,53,44,63,53,43ãDATA 63,52,42,63,52,41,63,51,40,63,51,39,63,50,38,63,50,37,63,49,36,63,49,35,63,48,34ãDATA 63,48,33,63,47,32,63,46,31,63,46,30,63,45,29,63,45,28,63,44,27,63,44,26,63,43,25ãDATA 63,43,24,63,42,23,63,42,22,63,41,21,63,41,20,63,40,19,63,40,18,63,39,17,63,39,16ãDATA 63,38,15,63,38,14,63,37,13,63,37,12,63,36,11,63,36,10,63,35,9,63,35,8,63,34,7ãDATA 63,34,6,63,33,5,63,33,4,63,32,3,63,32,2,63,31,1,63,30,0,63,30,0,63,29,0,63,28,0ãDATA 63,27,0,63,26,0,63,25,0,63,24,0,63,23,0,63,22,0,63,21,0,63,20,0,63,19,0,63,18,0ãDATA 63,17,0,63,16,0,63,15,0,63,15,0,63,14,0,63,13,0,63,12,0,63,11,0,63,10,0,63,9,0ãDATA 63,8,0,63,7,0,63,6,0,63,5,0,63,4,0,63,3,0,63,2,0,63,1,0,63,0,0,63,0,0,62,0,0ãDATA 61,0,0,61,0,0,60,0,0,59,0,0,58,0,0,58,0,0,57,0,0,56,0,0,56,0,0,55,0,0,54,0,0ãDATA 53,0,0,53,0,0,52,0,0,51,0,0,51,0,0,50,0,0,49,0,0,48,0,0,48,0,0,47,0,0,46,0,0ãDATA 46,0,0,45,0,0,44,0,0,43,0,0,43,0,0,42,0,0,41,0,0,40,0,0,40,0,0,39,1,1,38,1,1ãDATA 37,2,2,36,2,2,35,3,3,35,3,3,34,4,4,33,4,4,32,5,5,31,5,5,30,6,6,30,6,6,29,7,7ãDATA 28,7,7,27,8,8,26,8,8,25,9,9,25,9,9,24,10,10,23,10,10,22,11,11,21,11,11,20,12,12ãDATA 20,12,12,19,13,13,18,13,13,17,14,14,16,14,14,15,15,15,15,15,15,15,15,15ãDATA 999,999,999ããDaniel Davies SHAPE-SHIFTING PLASMA 3 ia53@rapid.co.uk 05-24-97 (15:20) QB, QBasic, PDS 143 3436 MOVPLAS3.BAS'SHAPESHIFTING PLASMA BY Daniel Daviesã'this is a sinusoidal plasma which I wrote about a year ago, and haveã'modified to run fast enough to generate an animated plasma about 6 months agoã'but until now I haven't been able to post it on the net, because I didn'tã'have internet access.ã'I've also converted this to asic, so that I could compile it, the compiledã'form is movplas.exe, this is much smoother than this version.ã'I haven't got a web site yet but I've almost finished it, but in the meantimeã'if you want to contact me, my email address is - ia53@rapid.co.ukãDIM PLASMA%(80, 50)ãDIM sine1%(0 TO 360)ãDIM sine2%(0 TO 360)ãDIM sine3%(0 TO 360)ãDIM sine4%(0 TO 360)ãDIM red%(0 TO 255)ãDIM green%(0 TO 255)ãDIM blue%(0 TO 255)ããSCREEN 13ãDEF SEG = &HA000ããDIM rsin1%(360)ãDIM rsin2%(360)ãDIM rsin3%(360)ãDIM gsin1%(360)ãDIM gsin2%(360)ãDIM gsin3%(360)ãDIM bsin1%(360)ãDIM bsin2%(360)ãDIM bsin3%(360)ããFOR x% = 0 TO 360ãrsin1%(x%) = (SIN(x% * 2 * (3.141592653# / 180)) * 17)ãrsin2%(x%) = (SIN(x% * 4 * (3.141592653# / 180)) * 13)ãrsin3%(x%) = (SIN(x% * 6 * (3.141592653# / 180)) * 7)ããgsin1%(x%) = (SIN((x% + 120) * 2 * (3.141592653# / 180)) * 17)ãgsin2%(x%) = (SIN((x% + 120) * 4 * (3.141592653# / 180)) * 13)ãgsin3%(x%) = (SIN((x% + 120) * 6 * (3.141592653# / 180)) * 7)ããbsin1%(x%) = (SIN((x% + 240) * 2 * (3.141592653# / 180)) * 17)ãbsin2%(x%) = (SIN((x% + 240) * 4 * (3.141592653# / 180)) * 13)ãbsin3%(x%) = (SIN((x% + 240) * 6 * (3.141592653# / 180)) * 7)ãNEXT x%ãããããrtd = 3.141592654# / 180ãFOR y% = 0 TO 360ã'temporaryãsine1%(y%) = -(31 * SIN((y% * 7) * rtd))ãsine2%(y%) = -(6 * SIN((y% * 3) * rtd))ãsine3%(y%) = (19 * SIN((y% * 10) * rtd))ãsine4%(y%) = (44 * SIN((y% * 5) * rtd))ãNEXT y%ããDOãs1tmp% = sine1%(0)ãs3tmp% = sine3%(0)ãFOR x% = 0 TO 359ãsine1%(x%) = sine1%(x% + 1)ãsine3%(x%) = sine3%(x% + 1)ãNEXT x%ãsine1%(360) = s1tmp%ãsine3%(360) = s3tmp%ããs2tmp% = sine2%(360)ãs4tmp% = sine4%(360)ãFOR x% = 360 TO 1 STEP -1ãsine2%(x%) = sine2%(x% - 1)ãsine4%(x%) = sine4%(x% - 1)ãNEXT x%ãsine2%(0) = s2tmp%ãsine4%(0) = s4tmp%ãããããFOR y% = 0 TO 36ãymod& = (y% * 4) * 320&ãFOR x% = 1 TO 36ãx2% = x% * 4ãst1% = sine1%(x%) + sine2%(x%)ãst2% = sine3%(y%) + sine4%(y%)ãcol% = ((st2% + (((st1% + y%) MOD 254) + 1)) MOD 254) + 127ããcol% = st1% - st2% + 127ãããPSET (x%, y%), col%ãPSET (72 - x%, 72 - y%), col%ãPSET (x%, 72 - y%), col%ãPSET (72 - x%, y%), col%ãNEXT x%ãNEXT y%ãã'FOR x% = 0 TO 255ã'OUT &H3C8, x%ã'OUT &H3C9, rsin1%(x%) + rsin2%(x%) + rsin3%(x%) + 30ã'OUT &H3C9, gsin1%(x%) + gsin2%(x%) + gsin3%(x%) + 30ã'OUT &H3C9, bsin1%(x%) + bsin2%(x%) + bsin3%(x%) + 30ã'NEXT x%ããr1tmp% = rsin1%(0)ãr3tmp% = rsin3%(0)ãg2tmp% = gsin2%(0)ãb1tmp% = bsin1%(0)ãb3tmp% = bsin3%(0)ããr2tmp% = rsin2%(360)ãg1tmp% = gsin1%(360)ãg3tmp% = gsin3%(360)ãb2tmp% = bsin2%(360)ããFOR x% = 0 TO 359ãrsin1%(x%) = rsin1%(x% + 1)ãrsin3%(x%) = rsin3%(x% + 1)ãgsin2%(x%) = gsin2%(x% + 1)ãbsin1%(x%) = bsin1%(x% + 1)ãbsin3%(x%) = bsin3%(x% + 1)ãNEXT x%ããFOR x% = 360 TO 1 STEP -1ãrsin2%(x%) = rsin2%(x% - 1)ãgsin1%(x%) = gsin1%(x% - 1)ãgsin3%(x%) = gsin3%(x% - 1)ãbsin2%(x%) = bsin2%(x% - 1)ãNEXT x%ããrsin1%(360) = r1tmp%ãrsin3%(360) = r3tmp%ãgsin2%(360) = g2tmp%ãbsin1%(360) = b1tmp%ãbsin3%(360) = b3tmp%ããrsin2%(0) = r2tmp%ãgsin1%(0) = g1tmp%ãgsin3%(0) = g3tmp%ãbsin2%(0) = b2tmp%ããLOOP WHILE INKEY$ = ""ããDaniel Davies FAST PLASMA GENERATOR ia53@rapid.co.uk 05-24-97 (15:20) QB, QBasic, PDS 327 10369 QBPLASMA.BAS' FAST PLASMA GENERATION IN QBASICã' BY DANIEL DAVIESã' E-MAIL : ia53@rapid.co.ukã'ã' originally Released 15th june 1996ã'ã' * Introduction *ã'ã' This is a demonstration of how to do plasma effects on the PC in QBASICã' it isn't very fast compared to the routines they use in demos coded inã' languages like C, Pascal, and assembler, but it's still faster than mostã' generators for Q-Basic, the only exception that I've seen is another ofã' my plasmas which can do this in real time when it's compiled.ã'ã' * Disclaimer *ã'ã' I am responsible for nothing! The program has been throughly testedã'ã' I AM IN NO WAY RESPONSIBLE FOR ANY DAMAGE CAUSED BY THE USE OR MISUSE OFã' THIS SOFTWARE. NEITHER AM I RESPONSIBLE FOR ANY LOSS OF EARNINGS OR DAMAGEã' CAUSED BY THE USE OF THIS SOFTWARE. IT IS A GUIDE AND SHOULD NOT BE USED ASã' THE ONLY SOURCE OF INFORMATION.ã'ã' * Operation *ã'ã' Operation is simple! Just load it up in qbasic and then run itã'ã' * Distribution *ã'ã' You are encouraged to copy this program and share it with others. If youã' can personally pass this program to another BBS I would be most grateful.ã'ã' * How is the effect is acheived? *ã'ã' To make the simplest type of plasma, get a full spread of colours down theã' screen, so that the top line is dark, and the bottom line is light. Theã' sine wave acts on these colors and you've made your first plasma. it worksã' by calculating the value of the sine across the screen, and then addingã' them to the colours so if the value is high the colour is darker, and if theã' value is 0 then the colour doesn't change, but if the value is below zero itã' gets lighter.ã' This isn't the type of plasma used in this program because it's too boring.ã' There are much cooler plasma affects to be had than the above like the oneã' in this prog, in this you take two sine waves, one along each axes (X and Y,ã' or if you prefer up and down) and then modify the colours accordingly.ãã'*************************** Declare Subroutines *****************************ã'declare all subs/functionsãDECLARE SUB palgen ()ãDECLARE SUB MakePal (col%(), x%, y%)ãDECLARE SUB setpal ()ãDECLARE SUB cyclepal ()ãDECLARE SUB getcolours ()ãDECLARE SUB resetcolours ()ã'*****************************************************************************ãã'***************************** Set Screen Mode *******************************ã'set the screen to mode 13 so we've got loads of colours to play withãSCREEN 13ã'*****************************************************************************ãã'*************************** Set Size Of Arrays ******************************ã'set arrays for colour cyclingãDIM SHARED RED%(512)ãDIM SHARED GREEN%(512)ãDIM SHARED BLUE%(512)ãã'set arrays for current values of all colours so that we can reset themã'to there exact valuesãDIM SHARED STARTCOLRED%(256)ãDIM SHARED STARTCOLGREEN%(256)ãDIM SHARED STARTCOLBLUE%(256)ãã'setting the sizes for sine lookup tablesãDIM SINTAB1%(0 TO 360)ãDIM SINTAB2%(0 TO 360)ã'*****************************************************************************ãã'********************* Initialise Everything For The Program *****************ã'call routine to get current coloursãCALL getcoloursãã'generate some random numbers to make the sine table different every timeã'and hence the plasma differentãRANDOMIZE TIMERãq% = INT(RND * 25) + 1ãs1a = (RND(1) * 20) + 55ãs1b = (RND(1) * 10) + 20ãs2a = (RND(1) * 20) + 55ãs2b = (RND(1) * 8) + 11ãã'tell them what were up toãPRINT "calculating sine lookup table"ãPRINT "percent finished "ã'calculate the sine lookup tablesã'we need two because the screen is modified along the X and Y axesã'we generate a lookup table because Qbasics Sin command is so slowãFOR z% = 0 TO 360ãx% = z% + q%ãSINTAB1%(z%) = 5 * (((35 * SIN(x% / s1a)) + (15 * SIN(x% / s1b))))ãSINTAB2%(z%) = 10 * (((27 * SIN(x% / s2a)) + (6 * SIN(x% / s2b))))ãLOCATE 2, 18ãfin% = (.27777777777# * z%)ãPRINT fin%; "%"ãNEXT z%ãCLSãsetpalã'*****************************************************************************ããã'********************** Do The Hard Work To Make The Plasma ******************ã'now for the creation of the plasmaãFOR b% = 0 TO 200ãFOR a% = 0 TO 320ãcol% = ((SINTAB2%(b%) + (((SINTAB1%(a%) + b%) MOD 254) + 1)) MOD 254) + 1ãPSET (a%, b%), col%ãNEXT a%ãNEXT b%ã'*****************************************************************************ãã'*************** Do Any Fancy Tricks Like rotating the pallette **************ã'call the routine to cycle the palletteãCALL cyclepalã'*****************************************************************************ãã'***************************** Clean Everything ******************************ã'clean everything up ready for exitãCALL resetcoloursãSCREEN 0ãWIDTH 80, 25ã'*****************************************************************************ããã'************************************ DATA ***********************************ã'now to give some pallete definitions so we don't have to use the crudy standardã'vga palleteãDATA 15,15,15,16,15,15,18,15,15,19,14,14,21,14,14,22,13,13,24,13,13,25,12,12,27,12,12ãDATA 28,11,11,30,11,11,32,10,10,33,10,10,35,9,9,36,9,9,38,8,8,39,8,8,41,7,7,42,7,7ãDATA 44,6,6,45,6,6,47,5,5,49,5,5,50,4,4,52,4,4,53,3,3,55,3,3,56,2,2,58,2,2,59,1,1,61,1,1ãDATA 63,0,0,63,1,0,63,3,0,63,5,0,63,7,0,63,9,0,63,11,0,63,13,0,63,15,0,63,17,0,63,19,0ãDATA 63,21,0,63,23,0,63,25,0,63,27,0,63,29,0,63,31,0,63,33,0,63,35,0,63,37,0,63,39,0ãDATA 63,41,0,63,43,0,63,45,0,63,47,0,63,49,0,63,51,0,63,53,0,63,55,0,63,57,0,63,59,0ãDATA 63,61,0,63,63,0,63,63,1,63,63,3,63,63,5,63,63,7,63,63,9,63,63,11,63,63,13,63,63,15ãDATA 63,63,17,63,63,19,63,63,21,63,63,23,63,63,25,63,63,27,63,63,29,63,63,31,63,63,33ãDATA 63,63,35,63,63,37,63,63,39,63,63,41,63,63,43,63,63,45,63,63,47,63,63,49,63,63,51ãDATA 63,63,53,63,63,55,63,63,57,63,63,59,63,63,61,63,63,63,63,63,63,63,62,62,63,62,61ãDATA 63,61,60,63,61,59,63,60,58,63,60,57,63,59,56,63,59,55,63,58,54,63,58,53,63,57,52ãDATA 63,57,51,63,56,50,63,56,49,63,55,48,63,55,47,63,54,46,63,54,45,63,53,44,63,53,43ãDATA 63,52,42,63,52,41,63,51,40,63,51,39,63,50,38,63,50,37,63,49,36,63,49,35,63,48,34ãDATA 63,48,33,63,47,32,63,46,31,63,46,30,63,45,29,63,45,28,63,44,27,63,44,26,63,43,25ãDATA 63,43,24,63,42,23,63,42,22,63,41,21,63,41,20,63,40,19,63,40,18,63,39,17,63,39,16ãDATA 63,38,15,63,38,14,63,37,13,63,37,12,63,36,11,63,36,10,63,35,9,63,35,8,63,34,7ãDATA 63,34,6,63,33,5,63,33,4,63,32,3,63,32,2,63,31,1,63,30,0,63,30,0,63,29,0,63,28,0ãDATA 63,27,0,63,26,0,63,25,0,63,24,0,63,23,0,63,22,0,63,21,0,63,20,0,63,19,0,63,18,0ãDATA 63,17,0,63,16,0,63,15,0,63,15,0,63,14,0,63,13,0,63,12,0,63,11,0,63,10,0,63,9,0ãDATA 63,8,0,63,7,0,63,6,0,63,5,0,63,4,0,63,3,0,63,2,0,63,1,0,63,0,0,63,0,0,62,0,0ãDATA 61,0,0,61,0,0,60,0,0,59,0,0,58,0,0,58,0,0,57,0,0,56,0,0,56,0,0,55,0,0,54,0,0ãDATA 53,0,0,53,0,0,52,0,0,51,0,0,51,0,0,50,0,0,49,0,0,48,0,0,48,0,0,47,0,0,46,0,0ãDATA 46,0,0,45,0,0,44,0,0,43,0,0,43,0,0,42,0,0,41,0,0,40,0,0,40,0,0,39,1,1,38,1,1ãDATA 37,2,2,36,2,2,35,3,3,35,3,3,34,4,4,33,4,4,32,5,5,31,5,5,30,6,6,30,6,6,29,7,7ãDATA 28,7,7,27,8,8,26,8,8,25,9,9,25,9,9,24,10,10,23,10,10,22,11,11,21,11,11,20,12,12ãDATA 20,12,12,19,13,13,18,13,13,17,14,14,16,14,14,15,15,15,15,15,15,15,15,15ãDATA 999,999,999ããSUB cyclepalã'Cycle the palleteããRESTOREãSPEED% = 1ã a% = 0ã ã DOã READ r%, g%, b%ã IF r% = 999 THEN EXIT DOã RED%(a%) = r%ã GREEN%(a%) = g%ã BLUE%(a%) = b%ã a% = a% + 1ã LOOPãã FOR b% = 0 TO 255ã RED%(a% + b%) = RED%(b%)ã GREEN%(a% + b%) = GREEN%(b%)ã BLUE%(a% + b%) = BLUE%(b%)ã NEXTãã p% = 0ã OUT &H3C6, 255ã DOã OUT &H3C7, 15ã ã FOR c% = 0 TO 255ã OUT &H3C9, RED%(c% + p%)ã OUT &H3C9, GREEN%(c% + p%)ã OUT &H3C9, BLUE%(c% + p%)ã NEXT c%ããã p% = p% + SPEED%ãã SELECT CASE p%ã CASE IS < a%ã WAIT &H3DA, 8ã WAIT &H3DA, 8ã WAIT &H3DA, 8ã WAIT &H3DA, 8ãã CASE ELSEã p% = 0ãã END SELECTãã z$ = INKEY$ã z$ = UCASE$(z$)ã IF z$ = "1" THEN SPEED% = 1ã IF z$ = "2" THEN SPEED% = 2ã IF z$ = "3" THEN SPEED% = 3ã IF z$ = "4" THEN SPEED% = 4ã IF z$ = "5" THEN SPEED% = 5ã IF z$ = "6" THEN SPEED% = 6ã IF z$ = "7" THEN SPEED% = 7ã IF z$ = "8" THEN SPEED% = 8ã IF z$ = "9" THEN SPEED% = 9ã IF z$ = "0" THEN SPEED% = 0ã IF z$ = "Q" THEN GOTO endofplascolourcycling:ã IF z$ = "P" THEN palgenã IF z$ = "R" THEN setpalã LOOPãendofplascolourcycling:ãããEND SUBããSUB getcoloursãFOR a% = 0 TO 255ããOUT &H3C8, a%ãSTARTCOLRED%(a%) = INP(&H3C9)ãSTARTCOLGREEN%(a%) = INP(&H3C9)ãSTARTCOLBLUE%(a%) = INP(&H3C9)ãNEXT a%ããEND SUBããDEFINT A-ZãSUB MakePal (col%(), x%, y%)ãRANDOMIZE TIMERã z% = (x% + y%) \ 2ã IF col%(z%) >= 0 THEN EXIT SUBã q% = ABS(x% - y%) \ 8ã c% = (col%(x%) + col%(y%)) \ 2 + INT((RND * 3) - 1) * q%ã IF c% < 0 THEN c% = 0ã IF c% > 63 THEN c% = 63ã col%(z%) = c%ã MakePal col%(), x%, z%ã MakePal col%(), y%, z%ãEND SUBããDEFSNG A-ZãSUB palgenãFOR a% = 0 TO 255ãRED%(a%) = -1: GREEN%(a%) = -1: BLUE%(a%) = -1ãNEXT a%ããRANDOMIZE TIMERãRED%(0) = INT(RND * 63)ãRANDOMIZE TIMERãGREEN%(0) = INT(RND * 63)ãRANDOMIZE TIMERãBLUE%(0) = INT(RND * 63)ãRANDOMIZE TIMERãRED%(255) = RED%(0) + INT((RND * 3) - 1)ãRANDOMIZE TIMERãGREEN%(255) = GREEN%(0) + INT((RND * 3) - 1)ãRANDOMIZE TIMERãBLUE%(255) = BLUE%(0) + INT((RND * 3) - 1)ããMakePal RED%(), 0, 255ãMakePal GREEN%(), 0, 255ãMakePal BLUE%(), 0, 255ãã'define the palletteãFOR a% = 0 TO 255ãOUT &H3C8, a%ãOUT &H3C9, RED%(a%)ãOUT &H3C9, GREEN%(a%)ãOUT &H3C9, BLUE%(a%)ãNEXT a%ãã FOR b% = 0 TO 255ã RED%(a% + b%) = RED%(b%)ã GREEN%(a% + b%) = GREEN%(b%)ã BLUE%(a% + b%) = BLUE%(b%)ã NEXTããEND SUBããSUB resetcoloursããFOR a% = 0 TO 255ãOUT &H3C8, a%ãOUT &H3C9, STARTCOLRED%(a%)ãOUT &H3C9, STARTCOLGREEN%(a%)ãOUT &H3C9, STARTCOLBLUE%(a%)ãNEXT a%ããEND SUBããSUB setpalããRESTOREã'define the palletteãFOR a% = 0 TO 255ãREAD RED%(a%), GREEN%(a%), BLUE%(a%)ãOUT &H3C8, a%ãOUT &H3C9, RED%(a%)ãOUT &H3C9, GREEN%(a%)ãOUT &H3C9, BLUE%(a%)ãNEXT a%ã ã FOR b% = 0 TO 255ã RED%(a% + b%) = RED%(b%)ã GREEN%(a% + b%) = GREEN%(b%)ã BLUE%(a% + b%) = BLUE%(b%)ã NEXTããEND SUBãDaniel Davies READ FRACTINT .MAP COLOUR FILESia53@rapid.co.uk 05-24-97 (15:20) QB, QBasic, PDS 45 1311 READPAL.BAS 'These routines allow the use of fractint .MAP colour files, without havingã'to convert them.ã'usemap - reads the file straight to the video card's pallette registers.ã'readmap - reads the pallette into three arrays called red, green, and blueã' so that you can use them more easilyã'you have permission to use these for whatever you want, just so long as youã'give me credit and tell me about it.ã'email me at :- ia53@rapid.co.ukãDECLARE SUB usemap (file$)ãDECLARE SUB readmap (file$)ãDIM SHARED red%(255)ãDIM SHARED green%(255)ãDIM SHARED blue%(255)ããSUB readmap (file$)ãfile% = FREEFILEãOPEN file$ FOR INPUT AS file%ãcol% = 0ãDOãLINE INPUT #1, lin$ãred%(col%) = VAL(LTRIM$(RTRIM$(MID$(lin$, 1, 3)))) / 4ãgreen%(col%) = VAL(LTRIM$(RTRIM$(MID$(lin$, 4, 4)))) / 4ãblue%(col%) = VAL(LTRIM$(RTRIM$(MID$(lin$, 8, 4)))) / 4ãcol% = col% + 1ãLOOP UNTIL (EOF(file%))ãCLOSE file%ãEND SUBããSUB usemap (file$)ãfile% = FREEFILEãOPEN file$ FOR INPUT AS file%ãcol% = 0ãDOãLINE INPUT #1, lin$ãred% = VAL(LTRIM$(RTRIM$(MID$(lin$, 1, 3)))) / 4ãgreen% = VAL(LTRIM$(RTRIM$(MID$(lin$, 4, 4)))) / 4ãblue% = VAL(LTRIM$(RTRIM$(MID$(lin$, 8, 4)))) / 4ãOUT &H3C8, col%ãOUT &H3C9, red%ãOUT &H3C9, green%ãOUT &H3C9, blue%ãcol% = col% + 1ãLOOP UNTIL (EOF(file%))ãCLOSE file%ãEND SUBãDaniel Davies BOUNCING LINES ia53@rapid.co.uk 05-24-97 (15:20) QB, QBasic, PDS 87 3435 MYSTERY.BAS 'Bouncing lines by Daniel Daviesã'if you use this routine in a program please give me some credit.ã'Copyright (C) UK 1996 Daniel Daviesã'e-mail me at :- ia53@rapid.co.ukãDIM SHARED FlineX1%(1 TO 10): DIM SHARED FlineY1%(1 TO 10)ãDIM SHARED FlineX2%(1 TO 10): DIM SHARED FlineY2%(1 TO 10)ãDIM SHARED FlineX3%(1 TO 10): DIM SHARED FlineY3%(1 TO 10)ãDIM SHARED FlineX4%(1 TO 10): DIM SHARED FlineY4%(1 TO 10)ãDIM SHARED FlineX5%(1 TO 10): DIM SHARED FlineY5%(1 TO 10)ããRANDOMIZE TIMERãFlineX1%(1) = INT(RND * 320): FlineY1%(1) = INT(RND * 200)ãFlineX2%(1) = INT(RND * 320): FlineY2%(1) = INT(RND * 200)ãFlineX3%(1) = INT(RND * 320): FlineY3%(1) = INT(RND * 200)ãFlineX4%(1) = INT(RND * 320): FlineY4%(1) = INT(RND * 200)ãFlineX5%(1) = INT(RND * 320): FlineY5%(1) = INT(RND * 200)ãxmod1% = -2: ymod1% = 2ãxmod2% = 2: ymod2% = -2ãxmod3% = -2: ymod3% = -2ãxmod4% = 2: ymod4% = 2ãxmod5% = -2: ymod5% = 3ããSCREEN 7, 0, 1, 0ãstarttime! = TIMERãDOãIF FlineX1%(1) > 319 THEN xmod1% = -2ãIF FlineX1%(1) < 0 THEN xmod1% = 2ãIF FlineY1%(1) > 199 THEN ymod1% = -2ãIF FlineY1%(1) < 0 THEN ymod1% = 2ãIF FlineX2%(1) > 319 THEN xmod2% = -2ãIF FlineX2%(1) < 0 THEN xmod2% = 2ãIF FlineY2%(1) > 199 THEN ymod2% = -2ãIF FlineY2%(1) < 0 THEN ymod2% = 2ãIF FlineX3%(1) > 319 THEN xmod3% = -2ãIF FlineX3%(1) < 0 THEN xmod3% = 2ãIF FlineY3%(1) > 199 THEN ymod3% = -2ãIF FlineY3%(1) < 0 THEN ymod3% = 2ãIF FlineX4%(1) > 319 THEN xmod4% = -2ãIF FlineX4%(1) < 0 THEN xmod4% = 2ãIF FlineY4%(1) > 199 THEN ymod4% = -2ãIF FlineY4%(1) < 0 THEN ymod4% = 2ãIF FlineX5%(1) > 319 THEN xmod5% = -2ãIF FlineX5%(1) < 0 THEN xmod5% = 2ãIF FlineY5%(1) > 199 THEN ymod5% = -3ãIF FlineY5%(1) < 0 THEN ymod5% = 3ããFlineX1%(1) = FlineX1%(1) + xmod1%: FlineY1%(1) = FlineY1%(1) + ymod1%ãFlineX2%(1) = FlineX2%(1) + xmod2%: FlineY2%(1) = FlineY2%(1) + ymod2%ãFlineX3%(1) = FlineX3%(1) + xmod3%: FlineY3%(1) = FlineY3%(1) + ymod3%ãFlineX4%(1) = FlineX4%(1) + xmod4%: FlineY4%(1) = FlineY4%(1) + ymod4%ãFlineX5%(1) = FlineX5%(1) + xmod5%: FlineY5%(1) = FlineY5%(1) + ymod5%ããFOR x% = 10 TO 2 STEP -1ãFlineX1%(x%) = FlineX1%(x% - 1): FlineY1%(x%) = FlineY1%(x% - 1)ãFlineX2%(x%) = FlineX2%(x% - 1): FlineY2%(x%) = FlineY2%(x% - 1)ãFlineX3%(x%) = FlineX3%(x% - 1): FlineY3%(x%) = FlineY3%(x% - 1)ãFlineX4%(x%) = FlineX4%(x% - 1): FlineY4%(x%) = FlineY4%(x% - 1)ãFlineX5%(x%) = FlineX5%(x% - 1): FlineY5%(x%) = FlineY5%(x% - 1)ãNEXT x%ããFOR x% = 10 TO 4 STEP -2ãc% = 7ãIF x% = 8 THEN c% = 8ãIF x% >= 9 THEN c% = 0ãLINE (FlineX1%(x%), FlineY1%(x%))-(FlineX2%(x%), FlineY2%(x%)), c%ãLINE (FlineX1%(x%), FlineY1%(x%))-(FlineX3%(x%), FlineY3%(x%)), c%ãLINE (FlineX3%(x%), FlineY3%(x%))-(FlineX4%(x%), FlineY4%(x%)), c%ãLINE (FlineX4%(x%), FlineY4%(x%))-(FlineX5%(x%), FlineY5%(x%)), c%ãLINE (FlineX5%(x%), FlineY5%(x%))-(FlineX2%(x%), FlineY2%(x%)), c%ãNEXT x%ããLINE (FlineX1%(1), FlineY1%(1))-(FlineX2%(1), FlineY2%(1)), 15ãLINE (FlineX1%(1), FlineY1%(1))-(FlineX3%(1), FlineY3%(1)), 15ãLINE (FlineX3%(1), FlineY3%(1))-(FlineX4%(1), FlineY4%(1)), 15ãLINE (FlineX4%(1), FlineY4%(1))-(FlineX5%(1), FlineY5%(1)), 15ãLINE (FlineX5%(1), FlineY5%(1))-(FlineX2%(1), FlineY2%(1)), 15ãã'UnRemark the next five lines to display the frame rate the animationã'is running at.ã'IF q% MOD 30 = 29 THENã'LOCATE 1, 1ã'PRINT (INT(q% / (TIMER - starttime!))); "FPS "ã'END IFã'q% = q% + 1ããPCOPY 1, 0ãLOOP WHILE INKEY$ = ""ãFrank W. Zammetti FLEXIBLE RASTER DISTANCE fzammett@fpsserv.com 05-28-97 (14:06) QB, QBasic, PDS 77 2327 FRD.BAS SCREEN 0: CLS: COLOR 2: PRINTã PRINT "This is a little effect that I did originally about 10 years ago no the C64"ã PRINT "that I ported over to the PC. It was a cheat back then, and it still is!"ã PRINT "This is called (F)lexible (R)aster (D)istance, a relative of (F)lexible"ã PRINT "(L)ine (D)istance, but while FLD was a real technique, this is a fake that"ã PRINT "approximates what FRD would look like if it were actually possible!"ã PRINT: PRINT: COLOR 15ã PRINT "PRESS ANY KEY TO BEGIN..."ã LOCATE 22,1: COLOR 12ã PRINT "(C)opyright 1997 by Frank W. Zammetti": PRINTã PRINT "Use is as you wish... But please give me credit somewhere!";ã DO WHILE INKEY$ = "": LOOPã CLEAR: DEFINT a-z: SCREEN 12: CLSã DIM FieldCols(100), FieldDist(100): GOSUB ReadCols: GOSUB ReadDistancesããMainLoop:ã WAIT &h3da, 8ã FOR z = 1 TO 1000: NEXT zã WAIT &h3da, 8ã ScanLine = 60: GOSUB DisplayFieldã IF INKEY$ <> "" THEN GOTO ByeByeNowã y = FieldDist(1)ã FOR z = 1 TO (FDS - 2): FieldDist(z) = FieldDist(z + 1): NEXT zã FieldDist(FDS - 1) = yã GOTO MainLoopããDisplayField:ã z = ScanLineã y = 1ããDisplayFieldLoop:ã x = FieldDist(y)ã IF x = -1 THEN RETURNã IF x = 0 THEN GOTO DoColorã FOR w = 1 TO x: LINE (1, z) - (640, z), 0: z = z + 1: NEXT wããDoColor:ã x = FieldCols(y)ã IF x = -1 THEN RETURNã LINE (1, z) - (640, z), x: z = z + 1: y = y + 1: GOTO DisplayFieldLoopããReadCols:ã y = 1ããReadColsLoop:ã READ z: FieldCols(y) = zã IF z = -1 THEN GOTO ReadColsAllDoneã y = y + 1: GOTO ReadColsLoopããReadColsAllDone:ã FCS = y: RETURNããReadDistances:ã y = 1ããReadDistancesLoop:ã READ z: FieldDist(y) = zã IF z = -1 THEN GOTO ReadDistancesAllDoneã y = y + 1: GOTO ReadDistancesLoopããReadDistancesAllDone:ã FDS = y: RETURNããFieldColsData:ã data 4,4,4,4,12,12,12,14,14,15,14,14,12,12,12,4,4,4,4ã data 1,1,1,1,9,9,9,1,1,15,1,1,9,9,9,1,1,1,1ã data 2,2,2,2,10,10,10,11,11,15,11,11,10,10,10,2,2,2,2,-1ããFieldDistancesData:ã data 0,1,2,3,4,5,6,7,8,9,10,11,12,11,10,9,8,7,6,5,4,3,2,1,0ã data 1,2,3,4,5,6,7,8,9,10,9,8,7,6,5,4,3,2,1,0ã data 1,2,3,4,5,6,5,4,3,2,1,1,1,-1ããByeByeNow:ã SCREEN 0: CLS: PRINT "Goodbye!...": PRINT: PRINTã PRINT "Frank W. Zammetti (fzammett@fpsserv.com)"ã PRINT: PRINT: PRINT: ENDãFrank W. Zammetti BOUNCING COLOUR BARS fzammett@fpsserv.com 05-28-97 (14:06) QB, QBasic, PDS 144 3294 COLBARS.BAS SCREEN 0: CLSã COLOR 2: PRINTã PRINT "Just a stupid little program to bounce some color bars around on the screen"ã PRINT "to emulate the good old days of the C64 when raster bars were the mark of a"ã PRINT "real programmer! These are fake and not good for too much, but what the"ã PRINT "heck, nostalgia is always fun!": PRINT: PRINTã COLOR 15ã PRINT "PRESS RETURN TO BEGIN (ESC TO EXIT TO DEMONSTRATION)..."ã LOCATE 21,1: COLOR 12ã PRINT "(C)opyright 1997 by Frank W. Zammetti": PRINTã PRINT "Use is as you wish... But please give me credit somewhere!";ã DO WHILE INKEY$ <> CHR$(13): LOOPã SCREEN 7: CLSã DIM Cols(200), CBarA(50), CBarB(50)ã FOR z = 1 TO 200: Cols(z) = 0: NEXT zã z = 1: B1Dir = 1: B2Dir = 0: Zior=1ããReadLoop:ã IF z > 28 THEN GOTO ReadDoneã READ aã CBarA(z) = a: z = z + 1: GOTO ReadLoopããReadDone:ã CBarA(z) = -1: z = 1ããRL2:ã IF z > 28 THEN GOTO AllDoneã READ aã CBarB(z) = a: z = z + 1: GOTO RL2ããAllDone:ã CBarB(z)= -1: GOTO MainProgã data 1,1,1,1,9,9,9,9,11,11,11,11,15,15,15,15,11,11,11,11,9,9,9,9,1,1,1,1ã data 4,4,4,4,12,12,12,12,14,14,14,14,15,15,15,15,14,14,14,14,12,12,12,12,4,4,4,4ããDrawMe:ã WAIT &h3da,8ã FOR z = 1 TO 200: LINE (1, z + 10) - (320, z + 10), Cols(z): NEXT zã FOR z = 1 TO 200: COLS(z) = 0: NEXT zã RETURNããMainProg:ã B1Loc = 1: B2Loc = 160ããDoMe:ãã IF Zior = 1 THEN GOTO OOVertã IF Zior = 0 THEN GOTO ToVeroããOOVert:ã z = 1: GOSUB GetLoop: z = 1: GOSUB NBL: GOTO FinishedããToVero:ã z = 1: GOSUB NBL: z = 1: GOSUB GetLoop: GOTO FinishedããGetLoop:ã IF CBarA(z) = -1 THEN RETURNã Cols(B1Loc + z) = CBarA(z): z = z + 1: GOTO GetLoopããNBL:ã IF CBarB(z) = -1 THEN RETURNã Cols(B2Loc + z) = CBarB(z): z = z + 1: GOTO NBLããFinished:ã GOSUB DrawMeã z = B1Dirã IF B1Dir = 1 THEN B1Loc = B1Loc+1ã IF B1Dir = 0 THEN B1Loc = B1Loc-1ã IF B1Loc > 160 THEN B1Dir = 0ã IF B1Loc < 1 THEN B1Dir = 1ã IF B2Dir = 1 THEN B2Loc = B2Loc+1ã IF B2Dir = 0 THEN B2Loc = B2Loc-1ã IF B2Loc < 1 THEN B2Dir = 1ã IF B2Loc > 160 THEN B2Dir = 0ã IF z <> B1Dir THEN GOTO ChangePriorã z = 1ã x$ = "": x$ = INKEY$ã IF x$ = chr$(27) THEN GOTO BreakOutã GOTO DozeããChangePrior:ã IF Zior = 1 THEN GOTO ZeroSetã IF Zior = 0 THEN Zior=1ã z = 1: GOTO DozeããZeroSet:ã Zior = 0: z=1ããDoze:ã IF B1Dir=0 THEN GOSUB R1Uã IF B1Dir=1 THEN GOSUB R1Dã IF B2Dir=0 THEN GOSUB R2Uã IF B2Dir=1 THEN GOSUB R2Dã GOTO DoMeããR1U:ã z = CBarA(1)ã x = 1: y = 2ããR1Ul:ã CBarA(x) = CBarA(y)ã x = x + 1: y = y + 1ã IF x <> 28 THEN GOTO R1Ulã CBarA(28) = zã RETURNããR1D:ã z = CBarA(28)ã x = 28: y = 27ããR1Dl:ã CBarA(x) = CBarA(y)ã x = x - 1: y = y - 1ã IF x <> 1 THEN GOTO R1Dlã CBarA(1) = zã RETURNããR2U:ã z = CBarB(1)ã x = 1: y = 2ããR2Ul:ã CBarB(x) = CBarB(y)ã x = x + 1: y = y + 1ã IF x <> 28 THEN GOTO R2Ulã CBarB(28) = zã RETURNããR2D:ã z = CBarB(28)ã x = 28: y = 27ããR2Dl:ã CBarB(x) = CBarB(y)ã x = x - 1: y = y - 1ã IF x <> 1 THEN GOTO R2Dlã CBarB(1) = zã RETURNããBreakOut:ã SCREEN 0: CLS: WIDTH 80: COLOR 7ã PRINT "Goodbye!": PRINT: PRINTã PRINT "Frank W. Zammetti (fzammett@fpsserv.com)": PRINT: PRINTã PRINT: ENDãFrank W. Zammetti COLOUR SHIFTED TEXT fzammett@fpsserv.com 05-28-97 (14:06) QB, QBasic, PDS 61 1635 COLTEXT.BAS SCREEN 0: CLS : WIDTH 40: DIM a(40)ã WhatDir = 2ã LOCATE 21,1: COLOR 12ã PRINT "(C)opyright 1997 by Frank W. Zammetti": PRINTã PRINT "Use is as you wish..."ã PRINT "But please give me credit somewhere!";ã a$ = "This is an ages-old effect that used to"ã b$ = " be popular on the C64. Now here it is"ã c$ = " on the PC! It is easy to change the"ã d$ = " direction of the colors (press SPACE)"ã e$ = " And it works in any mode! Enjoy!"ã GOTO Beginã DATA 0,0,1,1,9,9,11,11,15,15,15,15,11,11,9,9,1,1,0,0ã DATA 0,0,4,4,12,12,14,14,15,15,15,15,14,14,12,12,4,4,0,0ããBegin:ã FOR z = 1 TO 40: READ a(z): NEXT zããLoopMe:ã WAIT &h3da,8ã FOR z = 1 TO 40: COLOR a(z)ã LOCATE 9, z, 0: PRINT MID$(a$, z, 1)ã LOCATE 11, z, 0: PRINT MID$(b$, z, 1)ã LOCATE 13, z, 0: PRINT MID$(c$, z, 1)ã LOCATE 15, z, 0: PRINT MID$(d$, z, 1)ã LOCATE 17, z, 0: PRINT MID$(e$, z, 1)ã NEXT zã IF WhatDir = 2 THEN GOTO Yotateã z = a(1)ã w = 1: y = 2ããZotate:ã LET a(w) = a(y)ã w = w + 1: y = y + 1ã IF w <> 40 THEN GOTO Zotateã a(40) = z: GOTO KeyLoopããYotate:ã z = a(40)ã w = 39: y = 40ããYotate1:ã LET a(y) = a(w)ã w = w - 1: y = y - 1ã IF w <> 0 THEN GOTO Yotate1ã a(1) = zããKeyLoop:ã z$ = INKEY$ã IF Z$ = CHR$(27) THEN GOTO EndMeã IF z$ = " " THEN GOTO ChangeDirã GOTO LoopMeããChangeDir:ã IF WhatDir = 2 THEN WhatDir = 1: GOTO LoopMeã IF WhatDir = 1 THEN WhatDir = 2: GOTO LoopMeããEndMe:ã SCREEN 0: CLS: WIDTH 80: PRINT "Goodbye!...": PRINT: PRINTã PRINT "Frank W. Zammetti (fzammett@fpsserv.com)": PRINT: PRINTã PRINT: ENDãFrank W. Zammetti TV STATIC SIMULATION fzammett@fpsserv.com 05-28-97 (14:06) QB, QBasic, PDS 25 896 TVSTATIC.BAS SCREEN 0: CLS: PRINTã COLOR 12: PRINT "It dosen't get any simpler than this! It's a small example of some TV"ã PRINT "Static. Enjoy!"ã PRINT: PRINT: PRINT "PRESS ANY KEY TO BEGIN..."ã DO WHILE INKEY$ = "": LOOPãã DIM PCols(8): SCREEN 12: CLSã PCols(1) = 1: PCols(2) = 2: PCols(3) = 3: PCols(4) = 4: PCols(5) = 5ã PCols(6) = 6: PCols(7) = 7: PCols(8) = 8ã DRAW "bm199,109 c15 r242 d232 l242 u232"ã FOR y = 110 TO 340: FOR x = 200 TO 440: PSET (x, y), INT(RND(1) * 8) + 1ã NEXT x: NEXT yããLooper:ã z = PCols(1): FOR y=1 TO 7: PCols(y) = PCols(y+1): PALETTE y, PCols(y)ã NEXT y: PCols(8) = z: PALETTE 8, PCols(8)ã FOR z = 1 TO 20000: NEXT zã IF INKEY$<>"" THEN GOTO LaterYouã GOTO LooperããLaterYou:ã SCREEN 0: CLS: WIDTH 80: CLSã PRINT "Goodbye!...": PRINT: PRINTã PRINT "Frank W. Zammetti (fzammett@fpsserv.com)"ã PRINT: PRINT: PRINTãFrank W. Zammetti PB SMOOTH SCROLLER fzammett@fpsserv.com 05-28-97 (14:06) PB 649 15333 SCROLLER.BAS$HUGEã CLEAR: DEFINT a-z: SCREEN 7: CLS: RANDOMIZE TIMERã ScrXSize = 320ã ScrYSize = 200ã StartLine = 95ã ScrollSize = 8ã ScrMode = 1ã PALETTE 15,3ã COLOR 4ã Message$ = " (C)OPYRIGHT 1997 BY FRANK W. ZAMMETTI. USE IT AS YOU WISH"ã Message$ = Message$ + "... BUT PLEASE GIVE ME CREDIT SOMEWHERE!ã Message$ = Message$ + " WELL, AS YOU CAN SEE, THIS IS JUST"ã Message$ = Message$ + " AN EXAMPLE OF A SMOOTH SCROLLER IN POWERBASIC."ã Message$ = Message$ + " IT IS 99% PURE BASIC, WITH JUST"ã Message$ = Message$ + " A SPRINKLING OF ASSEMBLY IN IT OF COURSE! IT"ã Message$ = Message$ + " IS CAPABLE OF VARIABLE-HEIGHT SCROLLS, ANYWHERE"ã Message$ = Message$ + " FROM 8 X 8 TO 128 X 128 (ANY EVEN MULTIPLE OF"ã Message$ = Message$ + " 8 IN FACT, SINCE THE BASE CHARACTER FONT DATA"ã Message$ = Message$ + " IS AN 8 X 8 SET, WHICH I COPIED OVER FROM THE"ã Message$ = Message$ + " GOOD-OLD COMMODORE 64!). IT SHOULD RUN SMOOTH"ã Message$ = Message$ + " AS SILK ON A 486 AT 66MHZ AND UP, BUT I HAVEN'T"ã Message$ = Message$ + " TESTED IT BELOW THAT. THE SIZE OF THE SCROLL DOES"ã Message$ = Message$ + " MATTER THOUGH! LATER.... **** @"ã DIM Letter(ScrollSize + 1)ã GOSUB Fontsetupã DEF SEG = &ha000ããResetIt:ã v = 1ããScroll:ã u = 1ã z$ = MID$(Message$, v, 1)ã if z$ = "@" then goto resetItã z = ASC(z$)ã z = ((z - 32) * 8) + 1ã FOR y = 1 TO 8: Letter(y) = Font(z): z = z + 1: NEXT yã w = 0: x = 0: y = 0: z = 0ããScroll1:ã ! CLIã PrevBit = BIT(Letter(1), 7)ã SLine = StartLine * (ScrXSize / 8)ã ZLine = (ScrXSize / 8) * ScrYSizeããScrollLoop:ã FOR z = 0 TO ScrollSize - 1ã FOR y = ((ScrXSize / 8) - 1) TO 0 Step -1ã WhatByte? = PEEK(ZLine + (z * (ScrXSize / 8)) + y)ã PrevBitTemp = BIT(WhatByte?, 7)ã ! MOV al, WhatByte?ã ! SHL al, 1ã ! MOV WhatByte?, alã IF PrevBit = 1 THEN BIT SET WhatByte?, 0ã IF PrevBit = 0 THEN BIT RESET WhatByte?, 0ã PrevBit = PrevBitTempã POKE (ZLine + (z * (ScrXSize / 8)) + y), WhatByte?ã NEXT yã PrevBit = BIT(Letter(z + 2), 7)ã NEXT zã FOR z = 1 TO ScrollSize: WhatByte? = Letter(z)ã ! MOV al, WhatByte?ã ! SHL al, 1ã ! MOV WhatByte?, alã Letter(z) = WhatByte?: NEXT zã u = u + 1ã IF u > 9 THEN GOTO NextLetterããTransferMe:ã WAIT &h3da,8ã FOR z = SLine TO SLine + ((ScrollSize) * (ScrXSize / 8))ã POKE z, PEEK(ZLine)ã ZLine = ZLine + 1ã NEXT zã ! STIã x$ = INKEY$ã IF x$ = CHR$(27) THEN GOTO BreakOutã GOTO Scroll1ããNextLetter:ã v = v + 1ã WAIT &h3da,8ã FOR z = SLine TO SLine + ((ScrollSize - 1) * (ScrXSize / 8))ã POKE z, PEEK(ZLine)ã ZLine = ZLine + 1ã NEXT zã ! STIã x$ = INKEY$ã IF x$ = CHR$(27) THEN GOTO BreakOutã GOTO ScrollããBreakOut:ã SCREEN 0: CLS: WIDTH 80: CLSã PRINT "Goodbye!...": PRINT: PRINTã PRINT "Frank W. Zammetti (fzammett@fpsserv.com)": PRINT: PRINT: PRINTã ENDããfontsetup:ã DIM Font(480)ã z = 1ããLooper:ã READ a$ã IF a$="EOF" THEN RETURNã b = 0ã IF MID$(a$,8,1) = "#" THEN b = b + 1ã IF MID$(a$,7,1) = "#" THEN b = b + 2ã IF MID$(a$,6,1) = "#" THEN b = b + 4ã IF MID$(a$,5,1) = "#" THEN b = b + 8ã IF MID$(a$,4,1) = "#" THEN b = b + 16ã IF MID$(a$,3,1) = "#" THEN b = b + 32ã IF MID$(a$,2,1) = "#" THEN b = b + 64ã IF MID$(a$,1,1) = "#" THEN b = b + 128ã Font(z) = bã z = z + 1ã GOTO Looperãã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ãã data " ##### "ã data " #### "ã data " ### "ã data " ### "ã data " "ã data " ## "ã data " ## "ã data " "ãã data " ## ## "ã data " ## ## "ã data " # # "ã data " "ã data " "ã data " "ã data " "ã data " "ãã data " # # "ã data " ## ## "ã data "####### "ã data " ## # "ã data "####### "ã data " ## ## "ã data " # # "ã data " "ãã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ãã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ãã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ãã data " ## "ã data " ## "ã data " # "ã data " "ã data " "ã data " "ã data " "ã data " "ãã data " ## "ã data " ## "ã data " ### "ã data " ### "ã data " #### "ã data " ### "ã data " ## "ã data " "ãã data " ## "ã data " ## "ã data " ### "ã data " ### "ã data " #### "ã data " ### "ã data " ## "ã data " "ãã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ãã data " "ã data " ## "ã data " ## "ã data " ###### "ã data " #### "ã data " ## "ã data " "ã data " "ãã data " "ã data " "ã data " "ã data " "ã data " ## "ã data " ## "ã data " # "ã data " "ãã data " "ã data " "ã data " "ã data " ###### "ã data " ### "ã data " "ã data " "ã data " "ãã data " "ã data " "ã data " "ã data " "ã data " # "ã data " ### "ã data " # "ã data " "ãã data " "ã data " ##"ã data " ## "ã data " ## "ã data " ## "ã data " ## "ã data " ## "ã data " "ãã data " ##### "ã data " ### ###"ã data " ### ###"ã data " #######"ã data " #######"ã data " #######"ã data " ##### "ã data " "ãã data " ## "ã data " ### "ã data " ## "ã data " ## "ã data " #### "ã data " ###### "ã data " ###### "ã data " "ãã data " ##### "ã data " ## ##"ã data " ## ###"ã data " ### "ã data " ##### "ã data " #######"ã data " #######"ã data " "ãã data " ##### "ã data " ## ###"ã data " ### "ã data " ##### "ã data " ####"ã data " ## ####"ã data " ##### "ã data " "ãã data " ### "ã data " #### "ã data " ##### "ã data " ## ### "ã data " #######"ã data " ### "ã data " #####"ã data " "ãã data " ######"ã data " ### "ã data " ###### "ã data " ###"ã data " ####"ã data " ## ####"ã data " ##### "ã data " "ãã data " ##### "ã data " #### ##"ã data " #### "ã data " ###### "ã data " #### ##"ã data " #### ##"ã data " ##### "ã data " "ãã data " #######"ã data " ## ###"ã data " ### "ã data " #### "ã data " #### "ã data " #### "ã data " #### "ã data " "ãã data " ##### "ã data " #### ##"ã data " #### ##"ã data " ##### "ã data " #### ##"ã data " #### ##"ã data " ##### "ã data " "ãã data " ##### "ã data " ## ####"ã data " ## ####"ã data " ######"ã data " ####"ã data " ## ####"ã data " ##### "ã data " "ãã data " "ã data " ### "ã data " ## "ã data " "ã data " ## "ã data " ### "ã data " "ã data " "ãã data " "ã data " ## "ã data " ## "ã data " "ã data " ## "ã data " ## "ã data " # "ã data " "ãã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ãã data " "ã data " #### "ã data " ###### "ã data " "ã data " ###### "ã data " #### "ã data " "ã data " "ãã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ãã data " ##### "ã data "## #### "ã data "## #### "ã data " ### "ã data " ### "ã data " "ã data " ### "ã data " "ãã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ã data " "ãã data " ### "ã data " ##### "ã data " ## ## "ã data "####### "ã data "### ### "ã data "### ### "ã data "### ### "ã data " "ãã data "###### "ã data " # ## "ã data " ##### "ã data " # ## "ã data "####### "ã data "####### "ã data "###### "ã data " "ãã data " #### "ã data " ## ## "ã data "### "ã data "#### # "ã data "####### "ã data "####### "ã data " ##### "ã data " "ãã data " #### "ã data " # ## "ã data " # ## "ã data " ## ## "ã data "####### "ã data "####### "ã data "###### "ã data " "ãã data " ###### "ã data " ## "ã data " ### "ã data " ### # "ã data "####### "ã data "####### "ã data "###### "ã data " "ãã data " ###### "ã data " ## # "ã data " ### "ã data " ## "ã data "#### "ã data "#### "ã data "#### "ã data " "ãã data " #### "ã data " ## ## "ã data "### "ã data "#### ## "ã data "####### "ã data "####### "ã data " ### ## "ã data " "ãã data "### ### "ã data "### ### "ã data " # # "ã data " ##### "ã data " # # "ã data "### ### "ã data "### ### "ã data " "ãã data " #### "ã data " ## "ã data " ## "ã data " ## "ã data " #### "ã data " #### "ã data " #### "ã data " "ãã data " ##### "ã data " ## "ã data " ## "ã data " # ### "ã data "####### "ã data "####### "ã data " ##### "ã data " "ãã data "#### ## "ã data " ## ### "ã data " #### "ã data " ##### "ã data "### ### "ã data "### ### "ã data "### ### "ã data " "ãã data " #### "ã data " ## "ã data " ## "ã data " ### ## "ã data "####### "ã data "####### "ã data "####### "ã data " "ãã data "### ### "ã data "### ### "ã data " ##### "ã data " # # # "ã data " # # "ã data "### ### "ã data "### ### "ã data " "ãã data "### ### "ã data " ### # "ã data " # ### "ã data " # # "ã data "### ### "ã data "### ### "ã data "### ### "ã data " "ãã data " ### "ã data " ## ## "ã data " # # "ã data "### ### "ã data "####### "ã data "####### "ã data " ##### "ã data " "ãã data " ##### "ã data " ## # "ã data " # ## "ã data " ##### "ã data " ## "ã data "#### "ã data "#### "ã data " "ãã data " #### "ã data " ## ## "ã data " # # "ã data "## ## "ã data "## ### "ã data "### ### "ã data " ### ## "ã data " "ãã data " ##### "ã data " ## # "ã data " # ## "ã data " ##### "ã data " ## ### "ã data "### ### "ã data "### ### "ã data " "ãã data " #### "ã data " ## ### "ã data " ## "ã data "# ## "ã data "####### "ã data "####### "ã data " ##### "ã data " "ãã data "########"ã data "## ## ##"ã data " ## "ã data " ## "ã data " #### "ã data " #### "ã data " #### "ã data " "ãã data " ### ## "ã data " ## ## "ã data " ## # "ã data "### # "ã data "####### "ã data "####### "ã data " ### ## "ã data " "ãã data " ### ###"ã data " ### ###"ã data " # # "ã data " ## ## "ã data " # # "ã data " ### "ã data " ### "ã data " "ãã data "### ### "ã data "### ### "ã data " # # "ã data "## # ## "ã data "####### "ã data "####### "ã data " ## ## "ã data " "ãã data "### ### "ã data "### ### "ã data " ### "ã data " ##### "ã data "### ### "ã data "### ### "ã data "### ### "ã data " "ãã data "### ## "ã data "### ## "ã data " ## ### "ã data "# ##### "ã data "## ### "ã data "###### "ã data " #### "ã data " "ãã data " ###### "ã data " ## ### "ã data " ## "ã data " ### # "ã data "####### "ã data "####### "ã data "####### "ã data " "ãã data "EOF"ãDave Shea SIDE-SCROLLING CITY FidoNet QUIK_BAS Echo 05-16-97 (07:42) QB, QBasic, PDS 67 4344 CITY.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"CITY.ZIP",4^6:Z&=2982:?STRING$(50,177);ãU"%up()%9%%%d-%F-o(G*V=pC/+[%%,s%%%-%%%%hnCy(S%Rlffk;.a\KO5?dygA/ãU"z?^$Uf/$lg0Eo_Z#AO6ke6oVK(3PTHdyr&YqX%EIp-V3JuL'4Z7--a_l\UCV%M+ãU"[x[r*l.(f#5)f*VCPO7HEh8)+Si(d]i(diT4X8:Mo9rfjCq=u]'0yJN=6LM1Ze:ãU">l0&B&F\kgMMT\3bb*fk&Y#Piz5/_)smzq]H8;V8q52P9OP=[BlDCv1MKDQ-nRyãU"p:,40iz>[24'jb%Dwu8-zY,GMY,MKY,MTfqfjG#dE-QD?M34_ln\I2Y7*u^(PDqãU"kPXZl[8\P9.Tz2Uf.gSQS+*&L^Zu8u2S6pUMXu<*XkD7Q0;Yf,qV(I6.YdTfJRwãU"gUG*G^B-Q]HzBZEPgc3j)Eu*H4[aJ?gp$+K7,'uI+'5]B*SVUz:ugC8M?R.zI\[ãU"2q<*DPj981_%6K2_Mc1Au671QEstfkKGvM8?v,I*8P+&3#h1KO9J]j?+5b$>j=UãU"\g[W<=:?gSK1ji[z/F2wIUDT.0jUJuk[cm16ci;SrAstny,#,Id':.]S,IBxza1ãU"Q+4'+Q_J+zN.*+xW02]WZ\D>/JBE6/_HG,%vzs'S_s[I76b]?sLr.E03f1XY;$YãU"GDL'%mxUFuICk?8>B=n)u8G=GGO=qmQD+Srgoai3;'M3EPCM9^bScT-_N9$)WD<ãU"E:lx<'.itOj-TTzVKP,1'?(fN66dWpu6g53fbWn]MBqn+C)7raRqY(n1SN6v\b<ãU"u[2F$'3p05MUe+k%_q\7sXãU"0tNMCVe#)B[J;Edfa(bn,lhEpJlBpB]lD4_+kdAOIrj,J(_qH:-mpt(Nd0t:NfIãU"bw.Ec(_nksWUkb?RK6usOnU]K(lWaxXL]iYWZnv=E'Pv.sDmup?cl\3CD')lynnãU")lIs0jRDbTV]F^o?yXJ+.oB:%V7bBPD1Hjhi/qJ&G^7RO8'sUpn$c#1xrBn9qcFãU"TRW\OaX[D.5i-QeL#hR\ONlBkn[h5)ZouA$$(]N(dTu=DQ;Nkh[]f^VAbyl#TsOHHoY,Dh,$HhFco8grE4ODZE>.ENQDfNMZ7Z5nlul28TuRG>cO*,BWXauuNkF$T>QtXHlãU"_heq>z=hFikF^vzMm9G^D3qMeXXH8u[zgdMKw7%dihowS]psFxfK&[srvV8BXaquCfbQUexNl=ãU"(vX4TZndpTN&Z/v.mGQN^FE[?GwX[aRd&TD^Ix&d)j2JMOTD.CPKXHãU"PWgPffsNrhu[Dtls#wZ_dlQ$,uxfAH$#joWl4?n\o$dQO'k$1?9lXnZZo8ZFVg>ãU"o6p#fh9M>g6HnMRq&0\Bc;DloU=yJjhqYãU".IZXRanEO-mLCW4yL=,Uc^cp6N/>bFce)CeXL(Dl9#y3eGiDR*doWo'waa'cs$=ãU"byd]G3H#M3df5SlhBkn\9tTqffY,MY^,M5qSPDqPdD)MY:,MY,8PDqbXU8j*dGGãU"tWPM:bLjsbP[Ov#%a;E&MlB^#C^VJ[esX1D3HVMZjMqW8khd:&=]L3X7H+38+Mg]86Smj9v]=PN19bc?W7]]j(ãU",MXy;jsJo5ogn9\tFi.v/N]QQ[VlihFgU1Mi7qtd+CRKveJr_+HjSh$PB=*0PTQãU"oT;+l:V?w0%,^vo)n6me*3n0+viBAXd\b5rT9:MQn9=bqLUD+to#x(9KãU"ID\bMGWigFZ%dSgfGQn47v.M4_MRl.8/ipR]Od(M(%w]b<+[mJZL=qe_dE24n0ZJenLWke,F,rSaViB1[+I\HcHMGA.A=s/#-Y#QhWyV4(LY%jvSs#F?VEARCG\FXo#^e[C1%nKxk&j(7D=90O7JErl(MW$WXxoqBB0=4qo6uX'q/V?ãU"H;fu:8YZG?uen^SGY5Yf9V/qEpa/+/l&Bm(B4A6(7BjKdy*1Ij4#,HYs.=a-U]:ãU"1rPjLf1J?da)h-5;BQT'f00t[dxRQ+ekjnp&b;VUrB35YPbHl>NCpE3*8c<h.uI,S^[.RãU"\Q]0?,Z)jYc5^)-_fHa'HRQnXc)X3tT4uD=ãU"C]v3lvVOY#[91*>tMf*7WDfihE4J.C4X;eBKVu:GXAQ;#=4bFCef(+>n9fOdevAãU"n-VL,2gv?9,zk>Bf>YO+lBO,?HM6(Mm0A73^D#ANgoBZWn*LBEbIPR6/VXlF-(Gc*VpC'ãU"/+%%+,s%%%-%%%%%%%%%%%E%%%%%%%%%hnCy(S%%lfup%&'9%%9%%%d-%%-K(GEãU"M-DIG)%%%M3%%%-%%%%%%%%%&%%E%%%'U+%%#hny(%Sgfx%up*+%%%%%%'%'%&;ãU"%%%%I0%%%%%ãEND SUBãCLOSE:IF S=5AND 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ãRobert Claypool GRAPHICS PROTOTYPE hackwrench@hotmail.com 05-30-97 (12:29) QB, QBasic, PDS 311 20510 PROTO1.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"PROTO1.ZIP",4^6:Z&=15123:?STRING$(50,177);ãU"%up()%9%%%d-%h*f3GE:?7&+(%%%u9%%%,%%%%wj%iSnr4lFgp)arU1>U.I&AuqãU"hos'FO#ol6_a)rvR8(ja/LXNuyE1+$2rPRãU"6%dI^MgpBY'M;k/8Gg%X^886_i2$LXlW?#NDAZ;YS5Lo6tmdLua?7Ls(M_$'DUXãU"JQ]H8mmer+bQ+%&F)W=J#q1.P>S%'5UAPsYbB8#(CFKC%GCggURLQ.TXdW%t?CmãU"49TUm^9EY4H=6_D+KA2601-63j1+r7\?95K_ZVg5n4tJd&i,q[PsEBHw+0hnTPtãU".Mc:Y%-8>CUL/J/,#k&(lrPfdJ4Cj\uPv3G9JsP9lf=]:8=]Jm&j$\PE=0/gSk3[ãU",KV+/I+i-5tR>XJ4g2aMuD,u-?]f_4O;uI3&C.UVJ%Z\,?(RãU"c$[WY_p>FiD+,=6=og_%BEP:RD_KXdqQ7Ds\/>_MW9+n.n-&R-ãU"AYGp/mmHv<]aRx](5Fwf#wXM'IYd&6'G2iR&X#-cWR.[v?#.$-+3>RPUBAC5o[%ãU"/ub-I[Xh5X7#?3k)ODsof1/1BN=?4O.vKW=)J>K5Be?>qf9+<*FcU=\uxvq\+#DãU"SF\oZ$ppnoCJ-C9nbW'#W7Pn^>Q=:lL[r^r;cd60aBwnnrGMEtZ-'Y/Y6<\4%fwc]v&/>C$p,iQYPãU"6Uhxhh3o#;1,A#e_?GA986^%&sg,,O#l>:,h.uM,R73ojhkp^Q8U#yh$r1>9?=%ãU",7QAA+QUKk]2/#o5>s#c<7>5E&XL+5w&u%p()9%%%%-p%3*4^Gtoc(Nx(%%%u9%ãU"%%-%%%%gfx%jSnrOlFg8,fcE1DU2p/i3(Nx686(F?MG[ABn3Dy2pk9C5a5p\u1:ãU"B1s1<>(1aU#ANuyE1+$2rPR6%dI3A'AS>gN;w/7Gg%2tKK9qi24IIl>u8LMAZ;SãU"SWKo6tmdLca?]Ks(M_$'DUXJQ]HHhmfr+bN+=&F)W=J#q1.0NS%'5VAPsYbB8#(ãU"CFKC%GCggURLG.TXdW%t?Lm43TUm^9EY4H=6_D+KA2601-63j5+r7\?95K_ZVg5ãU"n4tJd&ilq\PsEBHw+0hnTPt.Mc:Y%-8>CUL/J/,#k.(lrPfdM4hi\?Pj3R9JsP9ãU"lfF0P^c];ãU"4['Y*1orHOFA%e5qh#qf;i;ID_SMb,^6dhC&82r]oh%CoR9>GVKhAeiãU"H7*Iu(L6Q+NA_FMaYfa;b:>kag%.5u0i7eNNPT?o7AgP'Wdd=M'fP*W3Dom[,3qãU".#u^>o*8Rh%V&RQCd1c$?eoF^41G$a*-5J%pw15<(D0eQx#ãU".CM#A>:uY25aSRGAx[.015PRKoM;B,DNnKA:/fFq)yL$:0>2)VRE'd(5Bi=+f:lãU"5I%KW3xU,PD0Wii4R.3g]v^&y,:85Klgl[QgEZd/FNbl:50.?hrQDp.3$XE3Q3nãU"]BGLe)rE1\h7+tAKO/.b:\xtH?7KAlbL-R9Dhf8WJDa6UAkdQ10:5ydhMP2ãU":Hqp$mG4N=(y:Gamw8hlZ8Hp2sbqjRs>hGGgJmlJ6GC+49/rc&hC66)#k$D](q>ãU"^$$xafVLr2/LM.4/6M27668?+d_qeI/qdZ(jqT%t5zkXF6v^;LscQ,BhI&N6&0sãU"150&R1EAnT5d9e?guw%S*V)FaMnbL.]r\f]b=m#I>>GqtknCbno0i5:]GaBg/tzãU">4fGMMW-+iF+hnb79p2Q=5/Jfju(C61qd.GRMo$g[F9'Zj)';dup%()/%%%ãU"%%%9-)4G+N/aQ%X%%%%X%%%%,%%%%wjiS%ufq%I%%//t/AAA?uuuE.EEw%(%?%%ãU"]u%%Y-YYii%iuuuM???OqOO--N-ooo%QQQ]%]]up%()9%%%%-%;Dq6GY)V:9'e(ãU"%%%r.%%%-%%%%hwfg%Sgfx/dz?IP8QqLmfo*#FXHX>pCJ#v8V]1>_TV,v*aI9LU5kvF2G?GãU"51s==KjVEU:sYc<#KA=rTt2S:e0'ãU",.+-:&u(--I/t;KgK\ko(FK85KO-h\g^.UmpNfh55\EMn]LWLjU2(lQ\%TJV*xkãU"6-S3'1%m,G^MhHEavb2v.;;swHd;?03*O;0_v,]d^gY/,#q]PA)=Cx'AlhWPtZ8ãU"HHoZ(-gqIb41rXyrS8?+\bfRNCrPod+?nO1PT2)S/+E,3_Yp,SOnMPq\Ak:/>]bãU"Nr5'V\p,aluLvoJ**VHLbhQSTHubOW0s5'12xUgM67fc+AWObãU"[kVOipãU"rSkJOZ.s*EnsA8.>5WS;(kQB]ecAEbo(a^c*,8wX3>XA2K\Z[T4S?DSvJl>&pA<ãU"_9dgBBb0^8cbsviaBO(&p:3KdAt5J9h^I#u>:m:>HYnZ0$=uv#U+r/e>?;8$:b.ãU"e&cdx.RXSUCIm;jxkOJeeJcOCNWc'ãU"4u$CCKj^0tX*>]vG07Or'0TYDBCCGU2R<7,v;upy^UWtf+Pr#vZ8..Nq?7eC2c7+sf%bWlGU1gG.kmrxf$42Xs$X_Sr(_5u91oEatiu&2ãU"HX7>xN(?Ao'*734w,%up()%9%%%I-%3AT6G0N,+Jy&7%%N'%%%0%%%%kq%fyyj%ãU"sSgfCx\3P+uX[-c/d&XZ?qN>T*a<9KãU"FrSJg'uHgjBCU[Mkhz6,LLZnG^dsq_E\+a*GaYF(?20G,0YTQh1OT4u3(suIgRLãU"KwD%]3_=Us110-]=0]a.szV8D7kD9:c$Dg1>(G690'W]59Q^oezPYqV218/kn)gãU"B\U/?[F2zZsXFle\Z#bIs.e:98cQJdR.m%:*k\14)wygI;%tBqav+,003;$^gjuãU":Wo'Mkfs4t[X5872wWRgmd=n(m-R-jXQqT;<$'V7xl7fQ8\o1PZbG[;cqlOk?<(ãU"beGo5Qu9Z)G':nah4;FLC&oH7Z3E%1,v>8j2*3,wr^Z6D.TzgX%,t%(up(%)9%%%%ãU"-%lbA6G9Wod^Z%&%%I%(%%0%%%%g%fxju%fqSg.fxqe^9LLZ1dkg?5#D=;ãU"VK:KV%&ko;fJ%=cf7vl&-/'YUY9shJL,yKCgLh?gVhB$m32+^t\RM*tTwlPClF\ãU"=Ah1]3b?Y0H;-RW<7&U$YviIMuv#YAP46[?klB)KOg#T-3k5?BN)gXNOb(aU8i1ãU"Q-PJH)''eNu&/Fq='))gTg[]Y%Yh=.TEBaF.%0$=n*JZbG:1GB49oe_s#5r$quOãU"'n^j*HNHqcv_;N910#t,xH0g-)Xm$)XI%Rnvf)rgQsB]\)]_Om;j;Ne&=?Rcx)uãU"wvMr]w=Tdvg=lIwMm1W+KGZA&8&]PtQwG;jlaNEmurMjcIRAq8X%=._dcWs$A+7ãU"k.rL2uq&5UOzU:ZW4GbGdyB8aS/oV#.2j]Nl,XimJPl\g>%;rT;'5nZo^+Uq;U?15%e\sIPhYNe>\3AMLW>[S1]?<^2n#Q(t(Qx7qyrOr0BmnP^ph*%ãU"Z=<^/^a9qa8PM[S^Na&66a)*;F95d%%up(%)9%%#%-%iDukGGV-v8D[%%%.%%%%ãU"/%%%%X%WUWU#USx(Lr2$40Y77%,P?+MM/39O_RRq'^1p&?%k+k+.+AJ>(=s=Ko^ãU"X1q0:)3e%'j1c&=U&p&_eVh%u-qE[9Iu9su<_>69AoF)31GGN:mqãU"?sstV%UMey]dJ;$pOc]&q&up%()9%%%%-%2XukGRxOXV&j%ãU"%%'[%%%%/%%%%XWUW%UUStdgo:Y;3/pZ%[WUW+UqXr2SPP,ECX4#J\-0#3oF#:YãU"m:GosvE9=NEG/Q%V((H(l7%i%.(((DVZDSdR(3tT1fQe(eEu-nSBC9P_7ok2P$PãU"fCS[RKj,;U1O%YJsTu,xO[CWKf0>.iyHd=H:';CgA==&OoV;lãU"S;Huv*iI)(flN/#YlcM+dU]8#pIUj:GJ-%#=JjXRlYMrx&_[1Wo9cw]qV('&Mu[ãU"N/)76Zg5a;LO:x:);9=aPp^'pGjX#T[M/tjH),]Ka8j09aj5ReJ>.qQ+jWFAVqmãU"GYz8S\*d6Ohj$TBa$Lm:CHtBWpL6Pg?#n.JKBkdq'\AZ9a_r]J2ds3a#%[oH#BtãU"gbIT,AshZvddu57:c*EiyN%;uyXF/(T.HfQyu%%d2y+ig.;-8-hUQq**P4nIxhbãU"7RNRn%+]T^#osIRA151Igf]a7..$Ih-B*G;$=IfguE6bOWA,eoSkCSjrgEGLRj)ãU"<67Rec1f_O,uGGeUtRD$LNOX/.g;b4:'e=zcBI4=M0Ib'ZF's+up%()9%%%%-%2ãU"XukG19O7H%c&%%&R)%%%/%%%%XWUW%UUSfRxrFa9Ds6FbSrL=r3rTs-WiJIãU",Ae7u'oxC#L2+:,X7.d76E1odQPpLUJ[OfF=2>Q*?D3Qd#+[,A4_'&Jj;a'*:;qãU"u=VSlZqE(\+<547kpYtwY7pgml.;B3s=h-*O3c-(FGK%P)'#j.:JKnd/gUHV4<:ãU"rCPZ5cR3[g\s.([Eg1dG5>mq8tdfdK>:m9^i+iBFu%e.f%TT$-ot4NcF(;tP4L\ãU"jz:=ZF/.Jpb&HM-lmQNC^_i?Gm]gMCFX9$FEKhAAcq2I3mYaV3>_/mj4Bl1bhWkãU"'BZen(PC$q>^3,bxo*mM]mjKbXkWek9?VY9?6XaD7c.B+S,N:8m?#\s)%up()%9ãU"%%%#-%SrAkGvI'%7h&.%%U)%%%/%%%%XW%UWUU%SjwwWFaD=&RU5jI&194$+Ly_7xi9D(8Ihy<-jbQd3AwãU"dZc.?C.q&%z5[tjOe.\+RxDlL+s]jeKP,7ILJ>7nlJ6,CmA^:oKfaSIlB_dGKWbãU"^^Ao9D*%%up(%)9%%#%-%pH'4GShog[*%(%%u%9ãU"%%-%%%%g%qzjS[nrlFMg463h8CNR5ct3S/47Y6=]ãU"aiXr0U=oX7v+98E;S>3[^:KC(%c?H&dv9GTV'T$db8nND#hEn_TXFa]?4Xi$P71ãU"E&6c=(ij(-8RWe,ZdVunrb-CE5;60Yc,YH?2f;iU#C.'Y'>k5\&R1bQ+FUsd$UO[t,-d:qfK]:3<[22U4h+ãU"2FJhg(SKF3b-9Ep41Q[1s):1>5CZC]gUX$N+XIiM3FMjN.8?bY-&dWZOK8_P?5]ãU"&VWãU"/%4;E$M2C\c]]:ZMl+Fnfr$1yjSU,W9f8q9Z]R(d[H^5Tl9KQN7PY9[/&=p5P^%ãU"4^q8+<26IK1/=2,kPD0i5i4R3(gXv&Sy,:5aKLq[$QgqDT3s8l0:;.Z/Uk(g%dDãU"Gf>C*BAU$+?t5ie?XdJ1Ub[y9cOW?vo\nLr]KYv6+fGVSLqrdUpCi>DRt$='T%8ãU"&SO\+gqZBm-_JP9=/\HD,GnR*IVTCKsiIM(3Tw_*.>e_d3rMOR0/:-4pUG=&g7i+kxHT=sT4O=78-xãU"%%up()%9%%%7-%J0T6G.g;&10&%%%u9%%%-%%%%gf%xjSrRxpN'2Lu*nD0lhl)m.qq)YLQM$?a9oE?+QUãU"/3ua]G;B1qId+=mn7S?G4,4*;DAA7<^0kZn\e[?>zB]x(3IOi+gK-ITz8)Ek($TãU"0C)RRnEQV#8zQ6)7rAyO3\cThY?b7auNieM\]cG.m)vz9J;7;L,D._'vDrK6tRpãU"NdmQW1')5*Rg,k*hb2XmWVLgW^bkEyi+mhkbE5k(]g/Oc7U?yv57GAc.F\]ebpGãU"KIshI'$Icm?xd%(=2kGd8Q)(7%%:*%%%/%%%%uw%tytV.Sy'yA,yr>]][16ãU"j#iNYN&fPPN-Nobb;/B]Jrf5Y^b:ISI;GZUsMf9vKnJ4JbjfJGXu]\J;^cW7P43ãU"RF^17=ZW'NVf2-8r5Y?.)QE#z3LYVkãU"bJdoWQu-Z+3&dupDLDurbuut4#RdV<,&DK\PFuKYBF/MN[cq*u0>zPhx.pjmckSãU";C_OySUv4l_MhIZ(h,Y5saPNEqri1+8+T:ehz+:e*1(ylQv,<Z?^o\=&15#c-7wa#AU(1D_7px6&+HkouqFI4LD%UF/33rLgF9\KA?7p_?Bi%\n4li(7*Nh7ãU"JJ$X$:hj9YhZdFi$+V&:,zPn^/aDOãU"P&a*qs]-F8%up()%9%%%%-%n1]6GI&%JVn%%%%o%%%%.%%%%ij%rtVS%gfx*Fe*ãU"/O7E5V*6xZuSi&.%%k)%%%.%%%%yãU"w%fsxS#gfxljxTYT.U5L\BqD+bN)E#FM2>8p8t47M8Xf7EUPtbjrSW%9Td)>4W0ãU"NX$/,\5T+5or_MiBK5[aLJDc%Y56Nx0*&3,C*iVHeY$*Xx8Arn0(>IbawuL&pEoãU"Y)QD%P9JxEO4&KOhr73PXna-7Rt2[Vio3*/2daSkS[e6X=FJ[L^bWB1PxKDvS$$ãU"lpO5pay.x\BbgDM0B-Unah6^TY%P*>+z/2H<0%%=iZiMk4>a/WfI_2z<)BqNkYpãU"9[WM*KAxI#aP0oVVE8ee^X?8YX_0kfte44uhg_6V\sEBpQyPAOnZU7kLI:JKg?xãU">>o8jd#l^\t)&'l=7P>%ok-;sM6/cS6Iwe?:2*4T,X,N'znW_)='s]PGo/Z'J;;ãU"i^uVXU-lm#%cI,Ab+C?U9&4Ib5Iu&AW?HtpYdi^?K?_%g])c3qrcg#W[y_KhAjqãU"&4rkLOVV_&*%+MAIc:MX%,nn60wU+O55om6BB.1\6RO.ãU"u%p()9%%%%-j%Dy4UG4dc-YkDW,P/<G*]apS0v(qE7>HXDT15AGs^T76]sQ1WkUo(dZcIs8f_qUVWU&GFBqãU"Sr?o-UsV[Y#uqO.2MO/FALHU&tw9[6hBvhr9zrfAmA%Z[J>[NYeR&%FyU/jaA3zãU"RZbg\%)u%QaHiTjx0EL=#'QUuYN)]RSnYrqXK#Xm6QQD^),:YRAt-$fGLBk1vJ-ãU"_]#9IF\/>rZH?c0BZ77XX-]]+]s^-exXLqR47NW^x.63h2A.ax,BhHcH>0^4^;,ãU"VaD0#M]AvFOrEGhH5p^FD/F+k7z'O'Q3GgD[:_i1ka(?wE_cNge.c6[Kn9NbotIãU"D$iF&EaKH^bXG8OZmjB3O4n#A>[\MMO68IAnygPc1s/YZ0#0okM4ak$CXoHT-&aãU"$Z9WT)wLlN^hQk\k9I#9]f(76'7iNTB4w.R/bjyGn'\;<60d2)*>=t+KW'rls+_ãU"^c5h[wcCj5:eyhfa[TX_=n[xE5TU8EGb?U(2mjPpTk[UM3M<]d'55%=n,$qBNW3ãU"MeF8KJ\iaYuuM(2bIW[5O77p-38Ne_g%%%%0%%%%gfx%jufq%SrfpDBA1Ep2?mJX(K5+0:C]f''S5ãU"[%%up(%)/%%#%%%3GA6GE>5>e>%%%%>%%%%0%%%%k%qfyy%jsSr%fpkq%fyyj%sãU"Sgf%x2/x%mfwj%iSgf%x2/u%p()/%%%%%g%7r67G)ph&??%%%%?%%%%1%%%%rprãU"%xpxq%iSrf%prpr%xpxq%iSgf%x2/x%mfwj%iSgf%x2/u%p()9%%%%-j%Rr6LGjãU"r[-]x+%%%=8%%%1%%%%rpr%xpxq%iSgfOx&'<,BSm7cwgOxGV'R6)$1J[hsaGh*ãU"G&*g*;YVuXm]EL:#/9O2SUaiXAwvE6Ha4I]\rw431?\koVt8pQmIF+\>9epuVxHãU"Hn)D]6t0i5PL;H,e-h/OmWR1US8NkcW?_qkUb'_%K*A\nãU"g9?dABm9AYT3j[2FSq&aBw3>Za96n;:'[M%U=]2HQ-(,CP8/7N16*WX#g\([IE\ãEND SUBãSUB V2ãU"Bn;RD_#r:''ZM3.,K\n?8Y==?#;Q2f;_aHw8W44*7tm]?$:/TK7Uh39bT+1'9FMãU"UOoVwG0XKcD2L'Sgboo'K<7GpQW8R[%89*H*O4-DSR_[:-?b/]_6.P(B.S<8'o2ãU"R*n.\6,WG['c#iE/.t5&+=P;O5:b+WQ:ãU"-CfL1U89pm98&'/+i/QH5d?,W>X+CK-vO_mn]gn/)Ir0XXC\.:gg'^kd[P'Jvo$ãU"1IXy6E-k[AUTiq+XSX;\W'?tb)8dTRbgqsij?$d[kk[-$0\l)3Vy4()UorD=>4YãU"'*%x0+;-mEG3u&ZQg.+3Ke:2s^?-LY9x6g&Kp0gu_h49TuEf0ddI_YAW?fxkWqcãU"_8J2g1B'\Oyb#LWV/&T2s1bOuc&A1c*Yh#5yu]A3&Os0ãU"5i=g4+RtuZ>[^5&>b^+'o0+M(gkvCDNsj37lZw:8NBJjOY-a9twfu(L?/Q*ysj9ãU"hFbU;'5qC;qCe)1VOp[&Aw-[CfsM),ZAp9RKDslnfs6iV7Ft&Z&(3Lx(QiUYs+ãU"$cx&fW^r[JCtGV;agp$ts5%OIZ+6w1sf.e,?V+i6g3&F'xãU"^huZmX.s++jhxa?HLK?Qwcz2587dZAacOd,=]#18g\'V>'\96O01Kkdu((/7u\VãU"SO31OJnfq%6OpO[oZ)6tRo8c/RobsfK9%oIB+'GyO4gãU"g99#**];381wJb(XYYSQDeJ-dVIY,X,0(H?dSWJ7?T^L#mr>el6acL[:eu=05^6ãU"Li4fOOiP4&_DDPAPylS(7z7MPoZtd';c60i/W]98/T;]er>A:,0#ufs^XIrE-W)ãU"*5t9qyQafW)EWS+,(YM7qXP\JfPDHE7u=bY;Hi%zFTfZrNE_#9ãU";g*fiM$XFgt8ULdf?26:$Yzp(8BM;>N7V,pnd38?t_**V>Mxraim+J+zP(ci^jBQMhayM1Yj3gCR1[FlC.t:ãU"*f0ZQv+,t97kmcE8PPaB#nIwfja%^2F.kN1h63qVRxp?Sp9J^+//9Pp?f47eJe32crrjxp7=Y&Q;JIfP-O)=)cVH+4]h6jY&Gts^qANf#7ax&CfãU"ET>E]OF\i.3QHKYjOzuTl(?:Wn3tãU"SSyp[Zm#hFnnB,g4GUAp$pk-D7.-tJ#iDFwNBE=YYJJde-w]4B<>[R$G55[-'/RãU"^rt8\%U>g8q.8XSmiffZ6E-kko]nv[$>e5&$x1[O5p$JfoYPde^lR<,[?S;8j<;ãU"r]x)%up()%9%%%%-%N207G[31mLG-.%%A7%%%1%#%%j'%unwj%shSyJ'yT':r>TãU"ma768Y\NM1)'AqE5E+b1_[h3o%V3TQe_08URN>-i3Fncvb*FC\RVBMv%.z\8^aDãU"4=mB-fD:H6Tv5>)KKNARF-Q.Cs716xOsPeQmãU"(w)wl49?42^]ROC/8E'fXãU"R>ZX+LSO]XN.FB]ubkFT60K=%XB^w1d+XUhsD8cXãU"$aDpa;Q5Nj.F.3\;uY-Z9^)/,S;>r5uq'r1>r?CoKEepbVY^PZNfEH*05L^I2iWãU"u/Hm=N]6FC1/?aEkN);8SfN[=#l;6Qi>%[*Qg%GDp3-x9&^fF-Xjm49d.1zDm^0ãU"T8a]H\hRZA0%zAIdI6sszZvnpD6Wm#c:qm,HNE)o%3&w0SHZc,_+Nhe/mHcAQ6eãU"Kc%)0[e_+lCu^kprt+c\F?>T09.3ib9IRy;15YqhLrEO:SDrKn\Mc66ma0Rr+uXãU"ZH)&Ekzq;]0eHpkmekdNg)%:UeD]Vzm\\2GAXO14.G>Pt]e>Fr$jF$?FnNyn,vZ[]o/?>4SB_RãU".6.?3/iV$FG\kp#fZ=SO/m/O#pZcAfXmWL(5Ke[?&8c:-\x/LJ#E,C?cK+tW]rDnbq*q#y7AãU",\9x*VlDH%Ez:iNDzn8$jee+ZmO:RIWbVHmqO\9+%(#BMk9Lv&kqzwop?gwrQ]cãU"[*gB7Yt:m:RaFCx7o8_T0'nq;[_aJhIY_Q(.lOp3W:=xr>2cL_bpSImUOCY=V=zãU"i8jaGKzaUBurq)rrLZ1U[J#Zp5NZ^+K=.N,fXr2NqH;$pY(k7wx[f(x-H8*^(O7ãU"BC5j%C^,waIm_74oEU+Sq5L639S9TTNT'k#X&Hb-fmH$RhfxO+[ãU"O,=duB5+X\?+6ZsRl'iX#xkR[f?1();w/,g&[(k+7Hl<;BQWddy,Df?-zT6&Ey&ãU"igc$2/Gk:WW6SR3[)aL/]Fd<585arL;zwUN/1vam;m$eCmhA3?kIo(%j69w5I54ãU"u$aK3.>:BmKi)i=lf_xKZbQ:E7M;]y)+D+YmnEYCEhHi:qBãU"OZrx*+pmb=+Md3u8fBNy^US_sWdhG'2^DdqAbc4\)W\*6-%e*5;ãU"AfxR[SXHaBTFZwWHw4:A3SnIk2+ev.F4klejECKfBL+yqlJq_sãU"Idas>j+].OqjZ^<\5H-lVFJ4ãU"^onaDC7$Q?-Jth2ObdPHfbU[hF-$.jS.M5>OB;:7Xf::lHdLuu(>kDQVcMH^_R+I[7mnsJQWd3HJea0u?Yn'm57ACuu+2kGãU"PDOL2LhMJH,2<'.8b?$=1LIs1p#Dk5M0%e[V_r^?Y-npX]dSkOPzxnV'x*up%&'ãU"9%%9%%%d-%h*f3GE:?7&+(%%%u9%%%,%%%%%%%%%%%%E%%%%%%%%%wjiS%nrlu%ãU"p&'9%%9%%#%-%3H*4GtFocNx%(%%u%9%%-%%%%%%%%%%%%E%%+%P(%%%gfx%jSnãU"r%lup&%'9%/%%%%%a%-)47GN/a%QX%%%%X%%%%,%%%%%%%%%&%E#%%%u%,%%w%jãU"iSu%fqup%&'9%%9%%%I-%Dqf6G)V<:9e(%%%r.%%%-%%%%%%%%%&%%E%%%'w,%%ãU"%hwfg%Sgfx%up&'%9%9%%%%-%;3A6Gi0N+J%y&%%'N'%%%0%%%%%%%%%&%E%%%%ãU"51%%%kq%fyyj%sSgf%xup&%'9%9%%%%-d%lA6XG9od*^Z&%%%I(%%%0%%%%%%%%ãU"%&%E#%%%\%2%%g%fxju%fqSg%fxup%&'9%%9%%%I-%iuJkGG-5v8D%7%%.%%%%/ãU"%%%%%%%%%&%%E%%%%f4%%%XWUW%UUSx&(rup%&'9%%9%%%I-%Xu&kGxO3XVj%7%ãU"%[%%%%/%%%%%%%%%&%%E%%%'W4%%%XWUW%UUSt%goup%&'9%%9%%%#-%uq/kGuvãU"&+'n&.%%])%%%/%%%%%%%%%&%%E%%%&p5%%%XWUW%UUSt%qiup%&'9%%9%%%I-%ãU"XuAkG9O&7Hc&.%%R)%%%/%%%%%%%%%&%%E%%%%77%%%XWUW%UUSf%xrup%&'9%%ãU"9%%%#-%SrAkGvI'%7h&.%%U)%%%/%%%%%%%%%&%%E%%%&G8%%%XWUW%UUSj%wwuãU"p%&'9%%9%%%[-%,-o/G_T&V;w%.%%6%%%%/%%%%%%%%%&%%E%%%'\9%%%XWUW%UãU"USg%fyup%&'9%%9%%%d-%p'K4GSo;g[*(%%%u9%%%-%%%%%%%%%%%%E%%%&,:%%ãU"%gqzj%Snrl%up&'%9%9%%%%-%9J06GN.g&1'0&%%%u9%%%-%%%%%%%%%%%E%%%%ãU"Y>%%%gf%xjSr%xpup%&'9%%9%%%#-%6:96G%2+YgN%%%%X%%%%-%%%%%%%%%&%%ãU"E%%%%6#%%%gqzj%Sufq%up&'%9%9%%%%-%=r46GE+u>Q%)(%%':*%%%/%%%%%%%ãU"%%&%E%.%%/#%%%uw%tytV.Sy'y%up&'%9%9%%%%-%7n16G+I&JV%n%%%%o%%%%.ãU"%%%%%%%%%&%E%.%%[C%%%ij%rtVS%gfxu%p&'9%%9%%#%-%DGq6GbpNuSi#&%%kãU"%)%%.%%%%%%%%%&%%E%%+%uC%%%ywf%sxSg%fxup%&'9%%9%%%R-%Dyf4G4d>c<ãU"x%%%%O&%%%/%%%%%%%%%&%%E%%%%8F%%%xtqn%ixSy&'yup%&'9%%9%%%I-%cA0ãU"6G]x&5DI'%%%<*%%%/%%%%%%%%%%%%E%%%%_G%%%xmfw%jiSg%fxup%&'9%%9%%ãU"%I-%DqB6G\o-68?%%%%F%%%%.%%%%%%%%%&%%E%%%&UI%%%ywfs%xSrf%pup&%'ãU"9%9%%%%-d%lA6gGKHF&&:%%%%>%%%%0%%%%%%%%%&%E[%%%#%I%%g%fxju%fqSrãU"%fpup%&'9%%/%%%I%%3AK6GE5->e>%%%%>%%%%0%%%%%%%%%&%%E%%%%*J%%%kqãU"fy%yjsS%rfpu%p&'9%%/%%#%%%7,r6G)0ph??%%%%?%%%%1%%%%%%%%%&%%E%%%ãU"%lJ%%%rpr%xpxq%iSrf%pup&%'9%9%%%%-j%Rr6LGjr[-]x+%%%=8%%%1%%%%%%ãU"%%%&%E#%%%Z%J%%r%prxp%xqiS%gfxu%p&'9%%9%%%%-%NF27G[I3mLG#-%%A%7ãU"%%1%%%%%%%%%&%%E%%+%-Q%.%j'u%nwjs#hSy'%yup*%+%%%%%?%?(%v*%(%%Z%ãU"%%%%ãEND SUBãV2ãCLOSE:IF S=150AND 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ãDaniel Davies LENS EFFECT ia53@rapid.co.uk 05-29-97 (23:32) QB, QBasic, PDS 222 5624 LENS.BAS 'LENS EFFECT - By Daniel Daviesã'I know this routine is a bit slow, but I wrote it for using to generateã'glass spheres in a rendering engine I'm writing at the mo, when it's finishedã'it'll have texture mapping, bump mapping, phong, gouraud, lambert, and flatã'shading, glass spheres, environment mapping to simulate reflection, lensã'flare, multiple light sources, coloured light sources, specular highlitesã'I'll speed up this routine some timeã'I'll also add support for using the mouse in Q-BASIC. I'll also give supportã'for loading GIF's for backgrounds if I can find some good code for loadingã'them. I may also include it in the GUI I'm writing at the moment to makeã'the cursor snazier. If you can tell me where I can get a good gif loader,ã'then please do. Oh yeah, I didn't write the PCX decoder, and I don't knowã'who did coz I found it on a local BBS'sã'If you want to use this in a programme you can but please give me credit.ã'and tell me where I can get hold of a copy of this program or e-mail me aã'copy.ã'E-Mail : ia53@rapid.co.ukãããDECLARE SUB viewpcx (file$)ãDEFINT A-R, T-YãDEFDBL SãDEFDBL ZããTYPE coordãx AS INTEGERãy AS INTEGERãEND TYPEããd% = 32ãup$ = CHR$(0) + "H"ãdown$ = CHR$(0) + "P"ãlcur$ = CHR$(0) + "K"ãrcur$ = CHR$(0) + "M"ãesc$ = CHR$(27)ããDIM tfm(d%, d%) AS coord 'The transformation arrayãDIM SHARED buffer(319, 199) AS STRING * 1ãm% = 7 'Magnificationfactorããr = d% / 2 'd% is the Diameter of the lens, I use 64ããs = SQR(r * r - m% * m%)ãy = -rãDOã x = -rã DOãããIF x * x + y * y >= s * s THENã a = xã b = yã ELSEã z = SQR(r * r - x * x - y * y)ã a = (x * m% / z + .5)ã b = (y * m% / z + .5)ãEND IFãtfm((x + r), (y + r)).y = (b + r)ãtfm((x + r), (y + r)).x = (a + r)ããx = x + 1ãLOOP WHILE x < rããy = y + 1ãLOOP WHILE y < rããããSCREEN 13ã'a$ = COMMAND$ãIF LTRIM$(RTRIM$(a$)) = "" THENã PRINT "please enter the name and path of"ã PRINT "a pcx file to use as the background"ã INPUT pcx$ã IF pcx$ = "" THENã FOR x% = 0 TO 319ã FOR y% = 0 TO 199ã buffer$(x%, y%) = CHR$(x% MOD 256)ã NEXT y%ã NEXT x%ã ELSEã viewpcx pcx$ã END IFãELSEã viewpcx a$ãEND IFãFOR x% = 0 TO 319ã FOR y% = 0 TO 199ã PSET (x%, y%), ASC(buffer$(x%, y%))ã NEXT y%ãNEXT x%ããDOãz$ = INKEY$ãIF z$ <> "" THENã IF z$ = up$ THENã ym% = ym% - 1ã IF ym% < 0 THEN ym% = 0ã END IFã IF z$ = down$ THENã ym% = ym% + 1ã IF ym% > 199 - d% THEN ym% = 199 - d%ã END IFã IF z$ = lcur$ THENã xm% = xm% - 1ã IF xm% < 0 THEN xm% = 0ã END IFã IF z$ = rcur$ THENã xm% = xm% + 1ã IF xm% > 319 - d% THEN xm% = 319 - d%ã END IFã IF z$ = esc$ THEN GOTO quit:ãEND IFããDEF SEG = &HA000ãymod& = (ym% * 320&) + xm%ãFOR y% = 1 TO d% - 1ãymod& = ymod& + 320ã FOR x% = 1 TO d% - 1ã POKE x% + ymod&, ASC(buffer(tfm(x%, y%).x + xm%, tfm(x%, y%).y + ym%))ã NEXT x%ãNEXT y%ããLOOPããquit:ãSCREEN 0ãWIDTH 80ãPRINT "LENS EFFECT - BY DANIEL DAVIES"ãPRINT "COPYRIGHT (C) UK 1997 Daniel G. Davies"ãPRINT "E-Mail - ia53@rapid.co.uk"ãPRINT "if you wish to use this in a program you can but please give me credit"ãPRINT "and please tell me about the program, either sending a copy of it or"ãPRINT "telling me where I can get hold of it from"ãPRINT "This may be a little slow but I'm going to make it faster when I get round"ãPRINT "to it, which will be after I have finished my Q-Basic rendering engine"ãPRINT "I'll also add support for using the mouse in Q-BASIC I'll also give support"ãPRINT "for loading GIF's for backgrounds. I may also include it in the GUI I'm"ãPRINT "writing at the moment to make the cursor snazier"ããDEFLNG A-B, R, X-YãDEFSNG C-Q, T-WãSUB viewpcx (file$)ããDIM pcxpal AS STRING * 768, pcxversion AS STRING * 1ããpcxnum = FREEFILEãOPEN file$ FOR BINARY AS #pcxnumãã GET #pcxnum, 2, pcxversionãã IF ASC(pcxversion) = 5 THENã GET #1, LOF(pcxnum) - 767, pcxpalãã pal = 0ãã FOR p = 1 TO 768 STEP 3ã OUT &H3C8, palã red% = INT(ASC(MID$(pcxpal, p, 1)) / 4)ã OUT &H3C9, red%ã green% = INT(ASC(MID$(pcxpal, p + 1, 1)) / 4)ã OUT &H3C9, green%ã blue% = INT(ASC(MID$(pcxpal, p + 2, 1)) / 4)ã OUT &H3C9, blue%ã pal = pal + 1ã NEXT pãã END IFãã SEEK #pcxnum, 129ãã fxsegment = VARSEG(buffer(0, 0))ã fxoffset = VARPTR(buffer(0, 0))ãã datasize = 2000ãã pcxdata$ = INPUT$(datasize, pcxnum)ã datacount = 1ããã FOR half = 1 TO 2ãã fxtotal = fxsegment + fxoffsetã DEF SEG = fxtotalãã FOR c = 0 TO 31999ãã IF datacount > datasize THENã pcxdata$ = INPUT$(datasize, pcxnum)ã datacount = 1ã END IFãã clr = ASC(MID$(pcxdata$, datacount, 1))ã datacount = datacount + 1ãã IF datacount > datasize THENã pcxdata$ = INPUT$(datasize, pcxnum)ã datacount = 1ã END IFã ã IF clr > 192 THENã LPS = clr - 192ã clr = ASC(MID$(pcxdata$, datacount, 1))ã datacount = datacount + 1ã FOR L = LPS TO 1 STEP -1ã POKE c, clrã c = c + 1ã NEXT Lã c = c - 1ã ELSEã ã POKE c, clrã END IFã NEXT cã fxoffset = fxoffset + &H7D0ã NEXT halfããCLOSE pcxnumããDEF SEGããEND SUBãDaniel Davies FULL SCREEN FLAME ia53@rapid.co.uk 05-29-97 (23:32) QB, QBasic, PDS 339 4967 FULLFIRE.BAS'Full screen flame in Q-Basicã'By Daniel Daviesã'e-mail ia53@rapid.co.ukã'hope you like it. BTW the long string of data statments are the pallette,ã'which I made in fractint and then converted.ãDIM fval%(1280)ãDIM disp%(80, 50)ãDIM OLD%(80, 50)ãDIM rand%(5000)ããRANDOMIZE TIMERãFOR x% = 0 TO 5000ãrand%(x%) = RND * 10ãNEXT x%ããFOR x% = 0 TO 1280ãfval%(x%) = (x% / 5)ãNEXT x%ãããSCREEN 13ãOUT &H3C8, 0ãFOR x% = 0 TO 255ãREAD r%, G%, B%ãOUT &H3C9, r%ãOUT &H3C9, G%ãOUT &H3C9, B%ãNEXT x%ããDEF SEG = &HA000ãDOãq% = q% + 1ãFOR y% = 49 TO 1 STEP -1ãFOR x% = 1 TO 79ãz% = OLD%(x% - 1, y% + 1) + OLD%(x% + 1, y% + 1) + OLD%(x%, y% + 1)ãz% = z% + OLD%(x% - 1, y%) + OLD%(x% + 1, y%) - 5ãz% = z% - rand%(q% MOD 5000)ãIF z% <= 0 THEN GOTO skip1:ãdisp%(x%, y%) = fval%(z%)ãskip1:ãNEXT x%ãNEXT y%ããymod& = 12800ãFOR y% = 10 TO 49ãFOR x% = 0 TO 80ããa& = ymod& + (x% * 4)ãc% = disp%(x%, y%)ãPOKE a&, c%ãPOKE a& + 1, c%ãPOKE a& + 2, c%ãPOKE a& + 3, c%ãPOKE a& + 320, c%ãPOKE a& + 321, c%ãPOKE a& + 322, c%ãPOKE a& + 323, c%ãPOKE a& + 640, c%ãPOKE a& + 641, c%ãPOKE a& + 642, c%ãPOKE a& + 643, c%ãPOKE a& + 960, c%ãPOKE a& + 961, c%ãPOKE a& + 962, c%ãPOKE a& + 963, c%ãããOLD%(x%, y%) = disp%(x%, y%)ããNEXT x%ãymod& = ymod& + 1280ãNEXT y%ãããFOR x% = 5 TO 75ãOLD%(x%, 50) = INT(RND * 2) * 255ãNEXT x%ãããLOOP WHILE INKEY$ = ""ãããDATA 0,0,0ãDATA 0,0,6ãDATA 0,0,6ãDATA 0,0,7ãDATA 0,0,8ãDATA 0,0,8ãDATA 0,0,9ãDATA 0,0,10ãDATA 2,0,10ãDATA 4,0,9ãDATA 6,0,9ãDATA 8,0,8ãDATA 10,0,7ãDATA 12,0,7ãDATA 14,0,6ãDATA 16,0,5ãDATA 18,0,5ãDATA 20,0,4ãDATA 22,0,4ãDATA 24,0,3ãDATA 26,0,2ãDATA 28,0,2ãDATA 30,0,1ãDATA 32,0,0ãDATA 32,0,0ãDATA 33,0,0ãDATA 34,0,0ãDATA 35,0,0ãDATA 36,0,0ãDATA 36,0,0ãDATA 37,0,0ãDATA 38,0,0ãDATA 39,0,0ãDATA 40,0,0ãDATA 40,0,0ãDATA 41,0,0ãDATA 42,0,0ãDATA 43,0,0ãDATA 44,0,0ãDATA 45,0,0ãDATA 46,1,0ãDATA 47,1,0ãDATA 48,2,0ãDATA 49,2,0ãDATA 50,3,0ãDATA 51,3,0ãDATA 52,4,0ãDATA 53,4,0ãDATA 54,5,0ãDATA 55,5,0ãDATA 56,6,0ãDATA 57,6,0ãDATA 58,7,0ãDATA 59,7,0ãDATA 60,8,0ãDATA 61,8,0ãDATA 63,9,0ãDATA 63,9,0ãDATA 63,10,0ãDATA 63,10,0ãDATA 63,11,0ãDATA 63,11,0ãDATA 63,12,0ãDATA 63,12,0ãDATA 63,13,0ãDATA 63,13,0ãDATA 63,14,0ãDATA 63,14,0ãDATA 63,15,0ãDATA 63,15,0ãDATA 63,16,0ãDATA 63,16,0ãDATA 63,17,0ãDATA 63,17,0ãDATA 63,18,0ãDATA 63,18,0ãDATA 63,19,0ãDATA 63,19,0ãDATA 63,20,0ãDATA 63,20,0ãDATA 63,21,0ãDATA 63,21,0ãDATA 63,22,0ãDATA 63,22,0ãDATA 63,23,0ãDATA 63,24,0ãDATA 63,24,0ãDATA 63,25,0ãDATA 63,25,0ãDATA 63,26,0ãDATA 63,26,0ãDATA 63,27,0ãDATA 63,27,0ãDATA 63,28,0ãDATA 63,28,0ãDATA 63,29,0ãDATA 63,29,0ãDATA 63,30,0ãDATA 63,30,0ãDATA 63,31,0ãDATA 63,31,0ãDATA 63,32,0ãDATA 63,32,0ãDATA 63,33,0ãDATA 63,33,0ãDATA 63,34,0ãDATA 63,34,0ãDATA 63,35,0ãDATA 63,35,0ãDATA 63,36,0ãDATA 63,36,0ãDATA 63,37,0ãDATA 63,38,0ãDATA 63,38,0ãDATA 63,39,0ãDATA 63,39,0ãDATA 63,40,0ãDATA 63,40,0ãDATA 63,41,0ãDATA 63,41,0ãDATA 63,42,0ãDATA 63,42,0ãDATA 63,43,0ãDATA 63,43,0ãDATA 63,44,0ãDATA 63,44,0ãDATA 63,45,0ãDATA 63,45,0ãDATA 63,46,0ãDATA 63,46,0ãDATA 63,47,0ãDATA 63,47,0ãDATA 63,48,0ãDATA 63,48,0ãDATA 63,49,0ãDATA 63,49,0ãDATA 63,50,0ãDATA 63,50,0ãDATA 63,51,0ãDATA 63,52,0ãDATA 63,52,0ãDATA 63,52,0ãDATA 63,52,0ãDATA 63,52,0ãDATA 63,53,0ãDATA 63,53,0ãDATA 63,53,0ãDATA 63,53,0ãDATA 63,54,0ãDATA 63,54,0ãDATA 63,54,0ãDATA 63,54,0ãDATA 63,54,0ãDATA 63,55,0ãDATA 63,55,0ãDATA 63,55,0ãDATA 63,55,0ãDATA 63,56,0ãDATA 63,56,0ãDATA 63,56,0ãDATA 63,56,0ãDATA 63,57,0ãDATA 63,57,0ãDATA 63,57,0ãDATA 63,57,0ãDATA 63,57,0ãDATA 63,58,0ãDATA 63,58,0ãDATA 63,58,0ãDATA 63,58,0ãDATA 63,59,0ãDATA 63,59,0ãDATA 63,59,0ãDATA 63,59,0ãDATA 63,60,0ãDATA 63,60,0ãDATA 63,60,0ãDATA 63,60,0ãDATA 63,60,0ãDATA 63,61,0ãDATA 63,61,0ãDATA 63,61,0ãDATA 63,61,0ãDATA 63,62,0ãDATA 63,62,0ãDATA 63,62,0ãDATA 63,62,0ãDATA 63,63,0ãDATA 63,63,1ãDATA 63,63,2ãDATA 63,63,3ãDATA 63,63,4ãDATA 63,63,5ãDATA 63,63,6ãDATA 63,63,7ãDATA 63,63,8ãDATA 63,63,9ãDATA 63,63,10ãDATA 63,63,10ãDATA 63,63,11ãDATA 63,63,12ãDATA 63,63,13ãDATA 63,63,14ãDATA 63,63,15ãDATA 63,63,16ãDATA 63,63,17ãDATA 63,63,18ãDATA 63,63,19ãDATA 63,63,20ãDATA 63,63,21ãDATA 63,63,21ãDATA 63,63,22ãDATA 63,63,23ãDATA 63,63,24ãDATA 63,63,25ãDATA 63,63,26ãDATA 63,63,27ãDATA 63,63,28ãDATA 63,63,29ãDATA 63,63,30ãDATA 63,63,31ãDATA 63,63,31ãDATA 63,63,32ãDATA 63,63,33ãDATA 63,63,34ãDATA 63,63,35ãDATA 63,63,36ãDATA 63,63,37ãDATA 63,63,38ãDATA 63,63,39ãDATA 63,63,40ãDATA 63,63,41ãDATA 63,63,42ãDATA 63,63,42ãDATA 63,63,43ãDATA 63,63,44ãDATA 63,63,45ãDATA 63,63,46ãDATA 63,63,47ãDATA 63,63,48ãDATA 63,63,49ãDATA 63,63,50ãDATA 63,63,51ãDATA 63,63,52ãDATA 63,63,52ãDATA 63,63,53ãDATA 63,63,54ãDATA 63,63,55ãDATA 63,63,56ãDATA 63,63,57ãDATA 63,63,58ãDATA 63,63,59ãDATA 63,63,60ãDATA 63,63,61ãDATA 63,63,62ãDATA 63,63,63ããDaniel Davies & Paul Gainer CANDLE FLAME ia53@rapid.co.uk 05-29-97 (23:32) QB, QBasic, PDS 59 1070 FLAMES.BAS 'Candle flameã'by Daniel Davies (ia54@rapid.co.uk)and Paul Gainer(unknown e-mail address)ã'ããDIM flame%(-1 TO 21, -1 TO 41)ãSCREEN 13ãRANDOMIZE TIMERããFOR x% = 0 TO 63ãOUT &H3C8, x%ãOUT &H3C9, x%ãOUT &H3C9, 0ãOUT &H3C9, 0ãOUT &H3C8, x% + 64ãOUT &H3C9, 255ãOUT &H3C9, x%ãOUT &H3C9, 0ãOUT &H3C8, x% + 128ãOUT &H3C9, 255ãOUT &H3C9, 255ãOUT &H3C9, x%ãNEXT x%ãDEF SEG = &HA000ãDOããy% = 40ããFOR x% = 0 TO 20ãIF RND > .4 THEN flame%(x%, y%) = 192 ELSE flame%(x%, y%) = 0ãNEXT x%ããWAIT &H3DA, 8ãFOR n% = 1 TO 40ãFOR x% = 0 TO 20ãcol% = flame%(x%, y%)ãcol% = col% + flame%((x% + 1), y%)ãcol% = col% + flame%((x% - 1), y%)ãcol% = col% + flame%(x%, (y% - 1))ãcol% = col% \ 4ãIF col% > 4 THEN col% = col% - (RND * 4)ãIF col% THEN flame%(x%, (y% - 1)) = col%ãNEXT x%ãy% = y% - 1ãNEXT n%ããy& = 38220ãFOR y% = 0 TO 39ãFOR x% = 0 TO 20ãx2& = (x% * 2) + y&ãPOKE x2&, flame%(x%, y%)ãPOKE x2& + 1, flame%(x%, y%)ãPOKE x2& + 320, flame%(x%, y%)ãPOKE x2& + 321, flame%(x%, y%)ãNEXT x%ãy& = y& + 640ãNEXT y%ããLOOP WHILE INKEY$ = ""ããDave Shea WRITE WINDOWS BITMAPS (.BMP) FidoNet QUIK_BAS Echo 11-23-96 (19:16) QB, QBasic, PDS 52 1280 WRITEBMP.BAS'Well, I dunno if anyone's looking for it, but I finally wrote a routineã'that writes Windows bitmaps. This'll take whatever's on your screenã'(Screen 13), and write a fully-usable Windows bitmap out of it. Try 'erã'out.ãã' =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ã' WRITEBMP.BAS by Dave Sheaã' Released to Public Domainã' on October 29th, 1996. Noã' Warantees expressed orã' implied.ã' =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ããCLS : SCREEN 13: DEFINT X-YãDIM Header AS INTEGERããINPUT "Output File? ", File$ãOPEN File$ FOR OUTPUT AS #1ããFOR a = 1 TO 320ã LINE (a, 1)-(a, 200), aãNEXTããFOR a = 1 TO 54ã READ Headerã PRINT #1, CHR$(Header);ãNEXTããFOR a = 0 TO 255ã OUT &H3C7, aã Red = INP(&H3C9) * 4ã Green = INP(&H3C9) * 4ã Blue = INP(&H3C9) * 4ãã PRINT #1, CHR$(Blue) + CHR$(Green) + CHR$(Red) + CHR$(0);ãNEXTããFOR y = 199 TO 0 STEP -1ã FOR x = 0 TO 319ã Pix = POINT(x, y)ã PSET (x, y), 0ã PRINT #1, CHR$(Pix);ã NEXTãNEXTããCLOSEããDATA 66, 77, 54, 254, 0, 0, 0, 0, 0, 0, 54, 4ãDATA 0, 0, 40, 0, 0, 0, 64, 1, 0, 0, 200, 0ãDATA 0, 0, 1, 0, 8, 0, 0, 0, 0, 0, 0, 0ãDATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0ãDATA 0, 0, 0, 0, 0, 0ãDaniel Davies PARTICLE FLAME ia53@rapid.co.uk 06-01-97 (16:18) QB, QBasic, PDS 134 2634 PFLAME.BAS 'PARTICLE FLAMEã'BY HANG-FIREã'e-mail ia53@rapid.co.ukã'web site www.users.rapid.net.uk/ia53ã'this flame uses moving particles and then smoothes them out to generate theã'flame, although it is much slower than the standard method for generatingã'a flame, it looks quite good.ãSCREEN 13ãRANDOMIZE TIMERãTYPE particleãx AS INTEGERãy AS INTEGERãc AS INTEGERãEND TYPEãnp% = 1000ãDIM particle(np%) AS particleãDIM image(50, 70) AS STRING * 1ãFOR x% = 1 TO np%ãparticle(x%).x = (RND * 40) - 20ãparticle(x%).y = (RND * 63)ãparticle(x%).c = particle(x%).yãNEXT x%ãOUT &H3C8, 0ãFOR x% = 0 TO 63ãREAD r%, G%, B%ãOUT &H3C9, r%ãOUT &H3C9, G%ãOUT &H3C9, B%ãNEXT x%ãDEF SEG = &HA000ãDOãFOR x% = 1 TO np%ãimage(particle(x%).x + 25, particle(x%).y) = CHR$(64 - particle(x%).c)ããIF particle(x%).y > 63 THENã particle(x%).x = (RND * 40) - 20ã particle(x%).y = 1ã particle(x%).c = 0ãELSEã IF particle(x%).x = 0 THENã particle(x%).x = particle(x%).x + ((RND * 6) - 3)ã ELSEIF particle(x%).x < 0 THENã particle(x%).x = particle(x%).x + ((RND * 3) - 1)ã ELSEã particle(x%).x = particle(x%).x + ((RND * 3) - 2)ã END IFãparticle(x%).y = particle(x%).y + 1ãparticle(x%).c = particle(x%).yãEND IFãNEXT x%ããxm& = 63820ãFOR y% = 1 TO 63ãFOR x% = 1 TO 49ãt% = ASC(image(x% - 1, y% - 1)) + ASC(image(x%, y% - 1)) + ASC(image(x% + 1, y% - 1))ãt% = t% + ASC(image(x% - 1, y%)) + ASC(image(x%, y%)) + ASC(image(x% + 1, y%))ãt% = (t% \ 6) - 1ãIF t% < 0 THENãimage(x%, y%) = CHR$(0)ãELSEãimage(x%, y%) = CHR$(t%)ãEND IFããPOKE x% + xm&, ASC(image(x%, y%))ãNEXT x%ãxm& = xm& - 320ãNEXT y%ããLOOP WHILE INKEY$ = ""ããDATA 0,0,0ãDATA 0,0,8ãDATA 2,0,10ãDATA 10,0,7ãDATA 18,0,5ãDATA 26,0,2ãDATA 32,0,0ãDATA 36,0,0ãDATA 39,0,0ãDATA 42,0,0ãDATA 46,1,0ãDATA 50,3,0ãDATA 54,5,0ãDATA 58,7,0ãDATA 63,9,0ãDATA 63,11,0ãDATA 63,13,0ãDATA 63,15,0ãDATA 63,17,0ãDATA 63,19,0ãDATA 63,21,0ãDATA 63,23,0ãDATA 63,25,0ãDATA 63,27,0ãDATA 63,29,0ãDATA 63,31,0ãDATA 63,33,0ãDATA 63,35,0ãDATA 63,38,0ãDATA 63,40,0ãDATA 63,42,0ãDATA 63,44,0ãDATA 63,46,0ãDATA 63,48,0ãDATA 63,50,0ãDATA 63,52,0ãDATA 63,53,0ãDATA 63,54,0ãDATA 63,54,0ãDATA 63,55,0ãDATA 63,56,0ãDATA 63,57,0ãDATA 63,58,0ãDATA 63,59,0ãDATA 63,60,0ãDATA 63,61,0ãDATA 63,62,0ãDATA 63,63,1ãDATA 63,63,5ãDATA 63,63,9ãDATA 63,63,12ãDATA 63,63,16ãDATA 63,63,20ãDATA 63,63,23ãDATA 63,63,27ãDATA 63,63,31ãDATA 63,63,34ãDATA 63,63,38ãDATA 63,63,42ãDATA 63,63,45ãDATA 63,63,49ãDATA 63,63,52ãDATA 63,63,56ãDATA 63,63,60ãKurt Kuzba QBASIC MODEX EXAMPLE Douglas Lusher 05-23-97 (12:20) QB, QBasic, PDS 111 4419 MODEX.BAS '> Well, I want to learn ModeX... So far, the only /wellã'> documented/ versions I can find are for QBASIC4.5 or PDS,ã'> and can not be converted to QBASIC1.1, so could someoneã'> please teach me/mail me about ModeX for v1.1? Thanks.ã'>....ã' The ModeX recently posted by Dave Shea, originally by Dougã'Lusher, will work just fine in QBasic. The text output routineã'will not, however, so you will need to develop your own.ã'Try this one...ãã'Example of how to achieve ModeX in QuickBasic, from Douglas Lusherã'Modified to show QBasic example by Kurt Kuzba, (5/23/1997)ãDECLARE SUB XCLS (Page%)ãDECLARE SUB ShowPage (Page%)ãDECLARE SUB Set320x240mode ()ãDECLARE SUB PutPixel (X%, Y%, Culler%, Page%)ãDIM BitMask%(7): FOR Bit% = 0 TO 7: BitMask%(Bit%) = 2 ^ Bit%: NEXTãSCREEN 0: WIDTH 80, 25: COLOR 10, 0: LOCATE 5, 10ãPRINT "Hit any key to enter ModeX. 0-1-2 for pages. ESC exits."ãWHILE INKEY$ = "": WEND: Set320x240mode: SLEEP 1ãHMax% = 320: VMax% = 240: Pg% = 0ãFOR Scrpage% = 0 TO 2ã C% = 10: IF Scrpage% > 0 THEN C% = 12: IF Scrpage% > 1 THEN C% = 13ã XCLS Scrpage%: ShowPage Scrpage%ã FOR Y% = Scrpage% * 9 TO VMax% - 1 - Scrpage% * 9ã PutPixel Scrpage% * 9, Y%, C%, Scrpage%ã PutPixel HMax% - 1 - Scrpage% * 9, Y%, C%, Scrpage%ã NEXTã FOR X% = Scrpage% * 9 TO HMax% - 1 - Scrpage% * 9ã CALL PutPixel(X%, Scrpage% * 9, C%, Scrpage%)ã CALL PutPixel(X%, VMax% - 1 - Scrpage% * 9, C%, Scrpage%)ã NEXTãNEXTãDOã DO: k$ = INKEY$: LOOP WHILE k$ = ""ã SELECT CASE k$ã CASE "0": ShowPage 0ã CASE "1": ShowPage 1ã CASE "2": ShowPage 2ã CASE CHR$(27): EXIT DOã CASE ELSE: SOUND 999, .5ã END SELECTãLOOP: SCREEN 13: SCREEN 0: WIDTH 80, 25: ENDããSUB GetPixel (X%, Y%, Culler%, Page%)ã SELECT CASE Page%ã CASE 0: VidSegment% = &HA000ã CASE 1: VidSegment% = &HA4F0ã CASE 2: VidSegment% = &HA9E0ã CASE ELSE: ERROR 5ã END SELECTã OUT &H3CE, 4: OUT &H3CF, X% AND 3ã DEF SEG = VidSegment%ã Culler% = PEEK((Y% * 80) + (X% \ 4))ãEND SUBãSUB PutPixel (X%, Y%, Culler%, Page%)ã SHARED BitMask%()ã SELECT CASE Page%ã CASE 0: VidSegment% = &HA000ã CASE 1: VidSegment% = &HA4F0ã CASE 2: VidSegment% = &HA9E0ã CASE ELSE: ERROR 5ã END SELECTã OUT &H3C4, 2: OUT &H3C5, BitMask%(X% AND 3)ã DEF SEG = VidSegment%ã POKE (Y% * 80) + (X% \ 4), Culler%ãEND SUBãSUB Set320x240modeã SCREEN 13 'begin with standard mode 13hã OUT &H3C4, &H4: OUT &H3C5, &H6 'disable "chain4" modeã OUT &H3C4, &H2: OUT &H3C5, &HF 'enable writes to all four planesã CLS 'clear video memoryã OUT &H3C4, 0: OUT &H3C5, &H1 'synchronous reset whileã 'switching clocksã OUT &H3C2, &HE3 'select 25 Mhz dot clock andã '60 hz scanning rateã OUT &H3C4, 0: OUT &H3C5, &H3 'restart the sequencerã OUT &H3D4, &H11: OUT &H3D5, INP(&H3D5) AND &H7Fã 'to reprogram the CRT controller, remove write protect fromã 'the registersã OUT &H3D4, &H6: OUT &H3D5, &HD 'total vertical pixelsã OUT &H3D4, &H7: OUT &H3D5, &H3E 'overflowã OUT &H3D4, &H9: OUT &H3D5, &H41 'turn off double double-scanã OUT &H3D4, &H10: OUT &H3D5, &HEA 'vertical sync startã OUT &H3D4, &H11: OUT &H3D5, &HAC 'vertical sync end,ã 'reprotect_registersã OUT &H3D4, &H12: OUT &H3D5, &HDF 'vertical pixels displayedã OUT &H3D4, &H14: OUT &H3D5, 0 'turn off dword modeã OUT &H3D4, &H15: OUT &H3D5, &HE7 'vertical blank startã OUT &H3D4, &H16: OUT &H3D5, &H6 'vertical blank endã OUT &H3D4, &H17: OUT &H3D5, &HE3 'turn on byte modeãEND SUBãSUB ShowPage (Page%)ã SELECT CASE Page%ã CASE 0: OUT &H3D4, &HC: OUT &H3D5, 0ã CASE 1: OUT &H3D4, &HC: OUT &H3D5, &H4Fã CASE 2: OUT &H3D4, &HC: OUT &H3D5, &H9Eã CASE ELSE: ERROR 5 'illegal function callã END SELECTãEND SUBãSUB XCLS (Page%)ã SELECT CASE Page%ã CASE 0: VidSegment% = &HA000ã CASE 1: VidSegment% = &HA4F0ã CASE 2: VidSegment% = &HA9E0ã CASE ELSE: ERROR 5ã END SELECTã OUT &H3C4, &H2: OUT &H3C5, &HFã DEF SEG = VidSegment%ã FOR Address% = 0 TO 19199: POKE Address%, 0: NEXTãEND SUBãThe ABC Programmer PERSPECTIVE SCROLLER (WAVEY) voxel@freenet.edmonton.ab.ca 06-05-97 (16:45) QB, QBasic, PDS 131 5008 WAVEY.BAS '-----------------------------------------------------------------------------ã'Hmmm, this is a small, but neat routine. Really something to post. I hope youã'like it. Made by Jeroen Bouwens, Holland. This routine is PD, Freeware andã'Smileware, which means bla..blabla...blablabla. Got it? See ya! :-)ã'O Yeah, I nearly forgot. It is a perspective scroller that comes right at you.ã'ã' Converted from Pascal Code to BASIC by William Yu (06-05-97). PUBLIC DOMAINã' Some notes: The scroller is wider in this BASIC version (don't know why).ã' It's much slower, but that's no surprise.ã' When compiled, the colours are mixed up!ã' Something to do with the &HFA6E, and make sure the Tekst isã' defined (ie, don't use Tekst$). Patches welcome!ã'-----------------------------------------------------------------------------ããDECLARE SUB Rotate (X AS SINGLE, Y AS SINGLE, Z AS SINGLE, Alpha%, Beta%, Gamma%)ãDECLARE SUB PrecalcPoints ()ãDEFINT A-Zãã'DIM I, J, XS, YS, TL, XT, YT, ZY AS INTEGERã'DIM Alpha, Beta, Gamma, G, Tel AS INTEGERãDIM XX, YY, ZZ, BX, BY AS INTEGERãDIM TOf, TSeg, SL, ArrayTel, LOff AS INTEGERãDIM SHARED VX AS SINGLEãDIM SHARED VY AS SINGLEãDIM SHARED VZ AS SINGLEãDIM SHARED XT1 AS SINGLEãDIM SHARED YT1 AS SINGLEãDIM SHARED ZT1 AS SINGLEãDIM SHARED Offsets(0 TO 160 * 50) AS LONGãDIM SHARED Colours(0 TO 160 * 50) AS INTEGERãDIM SHARED Cosinus(0 TO 360) AS INTEGERãDIM SHARED Sinus(0 TO 360) AS INTEGERãDIM Tekst AS STRING * 255ããCONST False = 0ãCONST True = NOT Falseãã SCREEN 13ã CALL PrecalcPointsã Tekst = " Well, this is an interesting routine (and it seems to work too :-)"ã Length = LEN(RTRIM$(Tekst))ã TOf = VARPTR(Tekst): TSeg = VARSEG(Tekst)ã Tel = 0ã DOã FOR TL = 0 TO 7ã ArrayTel = 8 * 49 + 1ã FOR I = 1 TO 19ã DEF SEG = TSegã SL = PEEK(TOf + I + Tel)ã LOff = &HFA6E + SL * 8ã FOR XS = 0 TO 7ã FOR YS = 1 TO 8ã DEF SEG = &HF000ã IF (PEEK(LOff) AND (128 \ (2 ^ XS))) <> 0 THENã DEF SEG = &HA000ã POKE Offsets(ArrayTel - TL * 49), Colours(ArrayTel - TL * 49)ã POKE Offsets(ArrayTel + 1 - TL * 49), Colours(ArrayTel - TL * 49)ã POKE Offsets(ArrayTel + 2 - TL * 49), Colours(ArrayTel - TL * 49)ã POKE Offsets(ArrayTel + 3 - TL * 49), Colours(ArrayTel - TL * 49)ã POKE Offsets(ArrayTel + 4 - TL * 49), Colours(ArrayTel - TL * 49)ã POKE Offsets(ArrayTel + 5 - TL * 49), Colours(ArrayTel - TL * 49)ã ELSEã DEF SEG = &HA000ã POKE Offsets(ArrayTel - TL * 49), 0ã POKE Offsets(ArrayTel + 1 - TL * 49), 0ã POKE Offsets(ArrayTel + 2 - TL * 49), 0ã POKE Offsets(ArrayTel + 3 - TL * 49), 0ã POKE Offsets(ArrayTel + 4 - TL * 49), 0ã POKE Offsets(ArrayTel + 5 - TL * 49), 0ã END IFã LOff = LOff + 1ã ArrayTel = ArrayTel + 6ã NEXT YSã LOff = LOff - 8ã POKE Offsets(ArrayTel - TL * 49), 0ã ArrayTel = ArrayTel + 1ã NEXT XSã NEXT Iã NEXT TLã Tel = Tel + 1ã IF Tel >= Length THEN Tel = 0ã LOOP UNTIL INKEY$ <> ""ãENDããSUB PrecalcPointsã FOR I = 0 TO 360ã Cosinus(I) = COS(I / 57.29578)ã Sinus(I) = SIN(I / 57.29578)ã NEXT Iã G = 250 'Find some well working value for this (250 is fine for VZ=300)ã Alpha = 320: Beta = 310: Gamma = 330 'Change these for an other orientation ofã 'the scrollã VX = 0: VY = 0: VZ = 300 'Don't make VZ 0 -> division by zero!!ã XX = -160: YY = -25: ZZ = 0ã DEF SEG = &HA000ã FOR I = 1 TO 160 * 50ã XT1 = XX: YT1 = YY: ZT1 = COS(XX / 10) * 2 + SIN(YY / 5) * 2 'Play with these!ã Colours(I) = INT(ZT1 * 3 + 44)ã CALL Rotate(XT1, YT1, ZT1, Alpha, Beta, Gamma)ã BX = 160 + INT((XT1 * G) / (ZT1 + VZ))ã BY = 100 + INT((YT1 * G * .8333) / (ZT1 + VZ))ã Offsets(I) = 320& * BY + BX 'Must use long unfortunatelyã IF Offsets(I) > 65535 THEN Offsets(I) = 0 'Pascal doesn't need thisã POKE Offsets(I), 15ã YY = YY + 1ã IF YY >= 24 THENã YY = -25ã XX = XX + 2 'Also change size of arrays:Offsets,Colors if you change thisã IF XX >= 159 THEN XX = -160: YY = -25ã END IFã NEXT Iã 'LINE (0, 0)-(319, 199), 0, BFãEND SUBããSUB Rotate (X AS SINGLE, Y AS SINGLE, Z AS SINGLE, Alpha, Beta, Gamma)ãDIM X1 AS SINGLEãDIM X2 AS SINGLEãDIM Y1 AS SINGLEãDIM Y2 AS SINGLEãDIM Z1 AS SINGLEãDIM Z2 AS SINGLEã X1 = Xã Y1 = Cosinus(Alpha) * Y - Sinus(Alpha) * Zã Z1 = Sinus(Alpha) * Y + Cosinus(Alpha) * Zã X2 = Cosinus(Beta) * X1 + Sinus(Beta) * Z1ã Y2 = Y1ã Z2 = Cosinus(Beta) * Z1 - Sinus(Beta) * X1ã X = Cosinus(Gamma) * X2 - Sinus(Gamma) * Y2ã Y = Sinus(Gamma) * X2 + Cosinus(Gamma) * Y2ã Z = Z2ãEND SUBãBrian Bacon PLASMA-TYPE SCREEN SAVER kyberteknik@geocities.com 06-03-97 (23:56) QB, QBasic, PDS 23 513 SCRNSAV.BAS 'A cool plasma-type screen saver...ã'Created by Brian Bacon kyberteknik@geocities.comã'ãRANDOMIZE TIMERãSCREEN 13ãFOR I = 1 TO 63ã PALETTE I, Iã PALETTE I + 63, 256 ^ 2 + 256 * Iã PALETTE I + 126, 256 ^ 2 * IãNEXT IããDOã FOR I = 120 TO 200ã FOR J = 60 TO 140ã a = POINT(I + 1, J)ã b = POINT(I - 1, J)ã c = POINT(I, J + 1)ã d = POINT(I, J - 1)ã clr = (a + b + c + d) / 4 - 1ã PSET (I, J), clrã NEXT Jã NEXT IãLOOPãMatt Bross COMPLETE 3D MODEL W/SHADING ebross@mixcom.com 06-06-97 (17:08) QB, QBasic, PDS 1490 49673 ULTRA3D.BAS DEFINT A-ZãREM SHADING MODELSãDECLARE SUB Wire ()ãDECLARE SUB Flat ()ãDECLARE SUB Gouraud ()ãDECLARE SUB Phong ()ãDECLARE SUB InterPhong ()ããREM RICH GELDREICHãDECLARE FUNCTION GetByte% ()ãDECLARE SUB BufferWrite (A%)ãDECLARE SUB MakeGif (A$, ScreenX%, ScreenY%, Xstart%, YStart%, Xend%, Yend%, NumColors%, AdaptorType%)ãDECLARE SUB PutByte (A%)ãDECLARE SUB PutCode (A%)ããDECLARE SUB SetPal (C%, R%, G%, B%)ãCONST TRUE% = -1, FALSE% = NOT TRUE, PI# = 22 / 7ãCONST WireShade% = 0, FlatShade% = 1, GouraudShade% = 2, PhongShade% = 3ãCONST InterPhongShade% = 4ãã'+--------------------NOTES AND CREDITS FROM GS3D\GS3DO--------------------+ã'|GS3D2.BAS by Matt Bross, 1997 |ã'|The sorting algorithm was originally written by Ryan Wellman, which I |ã'|modified for my own purposes. I made the 3D program with help from |ã'|3D tutorials by Lithium /VLA, Shade3D.BAS by Rich Geldreich; and |ã'|Gouraud fill with Luke Molnar's (of M/K Productions) gorau.bas. The GIF |ã'|support is from Rich Geldreich's MakeGif.BAS. |ã'+-------------------------------------------------------------------------+ã'This version I added every shading model I completely understand.ã'Each model can be individualy optimized but this is pretty good.ããRANDOMIZE TIMERã'ON ERROR GOTO ErrorHandlerãTYPE PointTypeã X AS INTEGER 'X coordinateã Y AS INTEGER 'Y coordinateã Z AS INTEGER 'Z coordinateã shade AS INTEGER 'shade of pointsã Distance AS INTEGER'distance from the origin (0, 0, 0)ãEND TYPEãTYPE PolyTypeã C1 AS INTEGER 'number of the first point of a polygonã C2 AS INTEGER 'number of the second point of a polygonã C3 AS INTEGER 'number of the third point of a polygonã culled AS INTEGER 'TRUE if the polygon isn't visibleã AvgZ AS INTEGER 'used to sort Z coordinates of polygonsã clr AS INTEGER 'color of the polygonãEND TYPEãTYPE FillTypeã X1 AS INTEGER 'starting Y coordinateã X2 AS INTEGER 'ending Y coordinateã Clr1 AS INTEGER 'starting colorã Clr2 AS INTEGER 'ending colorã X3D1 AS INTEGER 'starting 3D X coordinateã X3D2 AS INTEGER 'ending 3D X coordinateã Y3D1 AS INTEGER 'starting 3D Y coordinateã Y3D2 AS INTEGER 'ending 3D Y coordinateã Z3D1 AS INTEGER 'starting 3D Z coordinateã Z3D2 AS INTEGER 'ending 3D Z coordinateãEND TYPEã'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%INFO%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%ãSCREEN 0, 0, 0, 0: WIDTH 80, 25: CLSãPRINT "Ultra3D.BAS by Matt Bross, 1997"ãPRINTãPRINT "3D ANIMATION FOR THE QBASIC LANGUAGE."ãPRINT "COPYRIGHT MATT BROSS. USE FREELY AS"ãPRINT "LONG AS CREDIT IS GIVEN."ãPRINTãPRINT "----------CONTROLS----------------"ãPRINT " 0; 5 - reset, stop rotation"ãPRINT " S; A - reset, stop translation "ãPRINT "2, 8; 4, 6; -, + - rotate around x, y, z axis"ãPRINT " I, K - translate vertically"ãPRINT " J, L - translate horizontally"ãPRINT " Z, X - translate depthwise"ãPRINT " F1 - use wire shading model"ãPRINT " F2 - use flat shading model"ãPRINT " F3 - use gouraud shading model"ãPRINT " F4 - use phong shading model"ãPRINT " F5 - use Inter-phong shading model"ãPRINT " Esc - exit"ãPRINT "----CASE INSENSITIVE----"ãPRINTã'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%VARIABLES%%%%%%%%%%%%%%%%%%%%%%%%%%%%%ãSRX = 320: SRY = 200 'SRX, SRY = the screen's resolutionãdx = SRX \ 2: dy = SRY \ 2 'DX, DY = center of screenãD& = 70: SD = 140 'viewer's distance from objectã'%%%%%%%%%%%%%%%%%%%%%%%%%%GOURAUD SHADE ARRAYS%%%%%%%%%%%%%%%%%%%%%%%%%ãREM $DYNAMICãDIM SHARED Scan(199) AS FillTypeã'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%GIF STUFF%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%ãDIM SHARED OutBuffer$, OStartAddress, OAddress, OEndAddress, OsegãDIM SHARED CodeSize, CurrentBit, Char&, BlockLengthãDIM SHARED Shift(7) AS LONGãDIM SHARED X, Y, Minx, MinY, MaxX, MaxY, Done, GIFFile, LastLoc&ãShiftTable: DATA 1, 2, 4, 8, 16, 32, 64, 128ã'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%SIN TABLES%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%ã'SIN\COS table for 2 PI radians and then scale 1024 times for faster math.ãDIM SINTABLE(459) AS LONGãFOR i = 0 TO 459 'COS(X) = SIN(X + 90)ã SINTABLE(i) = COS(i * PI / 180) * 1024 'use 1024 to shift binary digitsãNEXT i 'over 6 bits.ã'%%%%%%%%%%%%%%%%%%%%%%%%DOUBLE BUFFERING ARRAYS%%%%%%%%%%%%%%%%%%%%%%%%ãDIM SHARED ScnBuf(32001) 'DIM array to serve as page in SCREEN 13ãScnBuf(0) = 320 * 8 'set length (x) * 8ãScnBuf(1) = 200 'set height (y)ãDEF SEG = VARSEG(ScnBuf(2)) 'get segment of beginning of array dataãaofs& = VARPTR(ScnBuf(2)) 'get offset of beginning of array dataã'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%LIGHT TABLES%%%%%%%%%%%%%%%%%%%%%%%%%%%%ãDIM SHARED LX(256), LY(256), LZ(256)ãDIM SHARED LX, LY, LZ, LightDistance&, LD!ã'Location of light source in spherical coordinatesãL1 = 70: L1 = L1 MOD 360: IF L1 < 0 THEN L1 = L1 + 360ãL2 = 40: L2 = L2 MOD 360: IF L2 < 0 THEN L2 = L2 + 360ãS1& = SINTABLE(L1 + 90): C1& = SINTABLE(L1)ãS2& = SINTABLE(L2 + 90): C2& = SINTABLE(L2)ãLX = S1& * C2& \ 8192: LY = S1& * S2& \ 8192 '8192 = 1024 * 1024 \ 128ãLZ = C1& \ 8 '8 = 1024 \ 128ã'find distance from light source to origin (0, 0, 0)ãLightDistance& = SQR(LX * LX + LY * LY + LZ * LZ) * 8 '8 = 1024 \ 128ãLD! = LightDistance& / 8ãFOR A = -128 TO 128ã LX(A + 128) = LX * A 'make light source lookup tables for shadingã LY(A + 128) = LY * Aã LZ(A + 128) = LZ * AãNEXT AãDIM SHARED ThetaShade(90)ãambient! = 10ãdiffuse! = 5ãspecular! = 6ãn! = 2ãFOR theta = 0 TO 90ã ThetaShade(theta) = ambient! + (COS(theta * PI / 180) * diffuse!) + ((COS(theta * PI / 180) * specular!) ^ n!)ãNEXTã'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%LOAD OBJECT%%%%%%%%%%%%%%%%%%%%%%%%%%%%%ãDIM SHARED MaxPoints, MaxPolysãRESTORE ObjectDataãREAD MaxPoints, MaxPolysãDIM SHARED Points(MaxPoints) AS PointType 'at startãDIM SHARED ScnPnts(MaxPoints) AS PointType 'after rotationãDIM SHARED SX(MaxPoints), SY(MaxPoints) 'points drawn to screenãFOR i = 1 TO MaxPoints 'Load and Center Pointsã READ X, Y, Z: Points(i).X = X: Points(i).Y = Y: Points(i).Z = Zã CX = CX + X: CY = CY + Y: CZ = CZ + ZãNEXT iãCX = CX \ MaxPoints: CY = CY \ MaxPoints: CZ = CZ \ MaxPointsãFOR i = 1 TO MaxPointsã Points(i).X = Points(i).X - CXã Points(i).Y = Points(i).Y - CYã Points(i).Z = Points(i).Z - CZã X = Points(i).X: Y = Points(i).Y: Z = Points(i).Zã 'find distance from point to the origin (0, 0, 0)ã PointDistance& = SQR(X * X + Y * Y + Z * Z) * 1024&ã Points(i).Distance = PointDistance& * LightDistance& \ 1048576 '1024 * 1024ã ScnPnts(i).Distance = Points(i).DistanceãNEXT iã'Load Polygon DataãDIM SHARED p(MaxPolys) AS PolyType 'stores all polygon dataãFOR i = 1 TO MaxPolys: READ p(i).C1, p(i).C2, p(i).C3, p(i).clr: NEXT iããPRINT "Press a Key"ãDO: LOOP UNTIL INKEY$ <> ""ã'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%SET PALETTE%%%%%%%%%%%%%%%%%%%%%%%%%%%%%ãSCREEN 13: CLSãFOR i = 0 TO 63ã SetPal i, i, i, iã SetPal i + 64, i, 0, 0ã SetPal i + 128, 0, i, 0ã SetPal i + 192, 0, 0, iãNEXT iã'------------------------------>BEGIN MAIN LOOP<------------------------ãT# = TIMERãDOã'*********************************GET KEY*******************************ãDEF SEG = 0: k = INP(&H60): WHILE LEN(INKEY$): WENDãDEF SEG = VARSEG(ScnBuf(2))ãSELECT CASE kã CASE &H3B 'F1ã ShadingModel = WireShadeã CASE &H3Cã ShadingModel = FlatShadeã CASE &H3Dã ShadingModel = GouraudShadeã CASE &H3Eã ShadingModel = PhongShadeã CASE &H3Fã ShadingModel = InterPhongShadeã CASE &H52 '0ã R1 = 0: R2 = 0: R3 = 0ã D1 = 0: D2 = 0: D3 = 0ã CASE &H4C '5ã D1 = 0: D2 = 0: D3 = 0ã CASE &H1E 'Aã MX = 0: MY = 0: MZ = 0ã CASE &H1F 'Sã MX = 0: MY = 0: MZ = 0ã MMX = 0: MMY = 0: MMZ = 0ã CASE &H50 '2ã D1 = D1 - 1ã CASE &H48 '8ã D1 = D1 + 1ã CASE &H4B '4ã D2 = D2 - 1ã CASE &H4D '6ã D2 = D2 + 1ã CASE &HD '+, =ã D3 = D3 - 1ã CASE &HC '_, -ã D3 = D3 + 1ã CASE &H17 'Iã MY = MY + 1ã CASE &H25 'Kã MY = MY - 1ã CASE &H24 'Jã MX = MX + 1ã CASE &H26 'Lã MX = MX - 1ã CASE &H2C 'Zã MZ = MZ + 1ã CASE &H2D 'Dã MZ = MZ - 1ã CASE 1 'ESCã GOTO ShutDownã CASE &H22 'Gã INPUT "SAVE SCREEN as .GIF"; S$ã IF LEFT$(UCASE$(S$), 1) = "Y" THENã INPUT "Input Filename:", file$ã IF RIGHT$(UCASE$(file$), 4) <> ".GIF" THEN file$ = file$ + ".GIF"ã PUT (0, 0), ScnBuf, PSETã MakeGif file$, 320, 200, 0, 0, 319, 199, 256, 2ã END IFãEND SELECTã'*********************************ROTATION******************************ã'keep SINes and COSines in array limitsãR1 = (R1 + D1) MOD 360: IF R1 < 0 THEN R1 = 360 + R1ãR2 = (R2 + D2) MOD 360: IF R2 < 0 THEN R2 = 360 + R2ãR3 = (R3 + D3) MOD 360: IF R3 < 0 THEN R3 = 360 + R3ã'********************************TRANSLATION****************************ãMMX = MMX + MX: MMY = MMY + MY: MMZ = MMZ + MZã'Keeps variables within limits of integersãIF MMX > 32767 THEN MMX = 32767ãIF MMY > 250 THEN MMY = 250ãIF MMZ > 120 THEN MMZ = 120ãIF MMX < -32767 THEN MMX = -32767ãIF MMY < -120 THEN MMY = -120ãIF MMZ < -327 THEN MMZ = -327ã'*******************************MOVE OBJECT*****************************ãS1& = SINTABLE(R1 + 90): C1& = SINTABLE(R1)ãS2& = SINTABLE(R2 + 90): C2& = SINTABLE(R2)ãS3& = SINTABLE(R3 + 90): C3& = SINTABLE(R3)ãFOR i = 1 TO MaxPointsã'rotate points around the Y axisã TEMPX = (Points(i).X * C2& - Points(i).Z * S2&) \ 1024ã TEMPZ = (Points(i).X * S2& + Points(i).Z * C2&) \ 1024ã'rotate points around the X axisã ScnPnts(i).Z = (TEMPZ * C1& - Points(i).Y * S1&) \ 1024ã TEMPY = (TEMPZ * S1& + Points(i).Y * C1&) \ 1024ã'rotate points around the Z axisã ScnPnts(i).X = (TEMPX * C3& + TEMPY * S3&) \ 1024ã ScnPnts(i).Y = (TEMPY * C3& - TEMPX * S3&) \ 1024ã'******************************CONVERT 3D TO 2D*************************ãTEMPZ = ScnPnts(i).Z + MMZ - SDãIF TEMPZ < zero THEN 'only calculate points visible by viewerã SX(i) = D& * (ScnPnts(i).X + MMX) \ TEMPZ + dxã SY(i) = D& * (ScnPnts(i).Y + MMY) \ TEMPZ + dyãEND IFã'*******************************SHADE POINTS****************************ãX1 = ScnPnts(i).X: Y1 = ScnPnts(i).Y: Z1 = ScnPnts(i).ZãS = (X1 * LX + Y1 * LY + Z1 * LZ) / ScnPnts(i).Distance + 128ã IF S < zero THEN S = zeroã IF S > 256 THEN S = 256ã shade = (LX(S) + LY(S) + LZ(S)) \ 3ã IF shade < zero THEN shade = zeroã IF shade > 63 THEN shade = 63ã ScnPnts(i).shade = shadeãNEXTãFOR i = 1 TO MaxPolysã'*************************CULL NON-VISIABLE POLYGONS********************ãcoord1 = p(i).C1: coord2 = p(i).C2: coord3 = p(i).C3ãZ1 = ScnPnts(coord1).Z: Z2 = ScnPnts(coord2).Z: Z3 = ScnPnts(coord3).ZãX1 = SX(coord1): X2 = SX(coord2): x3 = SX(coord3)ãY1 = SY(coord1): Y2 = SY(coord2): y3 = SY(coord3)ãIF (X1 - X2) * (y3 - Y2) - (Y1 - Y2) * (x3 - X2) < 0 THEN p(i).culled = TRUEã'******************FIND AVERAGE Z COORDINATE OF EACH POLYGON************ãp(i).AvgZ = (Z1 + Z2 + Z3) \ 3ãNEXT iã'******************SORT POLGONS BY THEIR AVERAGE Z COORDINATE***********ãincrement = MaxPolys + 1ãDOãincrement = increment \ 2ãFOR index = 1 TO MaxPolys - incrementã IF p(index).AvgZ > p(index + increment).AvgZ THENã SWAP p(index), p(index + increment)ã IF index > increment THENã cutpoint = indexã DOã index = (index - increment): IF index < 1 THEN index = 1ã IF p(index).AvgZ > p(index + increment).AvgZ THENã SWAP p(index), p(index + increment)ã ELSEã index = cutpoint: EXIT DOã END IFã LOOPã END IFã END IFãNEXT indexãLOOP UNTIL increment <= 1ã'******************************DRAW POLYGONS****************************ã'clear screen buffer. Use a 320 by 200 BLOADable graphic for a background.ãERASE ScnBuf: REDIM ScnBuf(32001): ScnBuf(0) = 2560: ScnBuf(1) = SRYããSELECT CASE ShadingModelã CASE WireShade: Wireã CASE FlatShade: Flatã CASE GouraudShade: Gouraudã CASE PhongShade: Phongã CASE InterPhongShade: InterPhongãEND SELECTããPUT (0, 0), ScnBuf, PSET 'dump array to screen, like PCOPYããF& = F& + 1ãLOOPã'------------------------------>END MAIN LOOP<--------------------------ãShutDown:ãDEF SEGãSCREEN 0, 0, 0, 0: WIDTH 80, 25: CLSãPRINT "Ultra3D.BAS by Matt Bross, 1997"ãPRINT : PRINT "THERE WERE"; MaxPoints; "POINTS AND"; MaxPolys; "POLYGONS"ãPRINT : PRINT "Frames Per Second:"; F& / (TIMER - T#)ãPRINT : PRINT "Free space"ãPRINT " String Array Stack"ãPRINT STRING$(21, "-")ãPRINT FRE(""); FRE(-1); FRE(-2)ãSLEEPãENDããErrorHandler:ãRESUME NEXTããObjectData:ãDATA 5, 8ãDATA 50, 0, 0ãDATA 0, 0, 50ãDATA 0, 0,-50ãDATA -50, 0, 0ãDATA 0, 50, 0ãDATA 5, 1, 3, 0ãDATA 5, 1, 2, 64ãDATA 5, 2, 4, 128ãDATA 5, 3, 4, 192ãDATA 4, 3, 1, 192ãDATA 4, 1, 3, 192ãDATA 4, 1, 2, 192ãDATA 4, 2, 1, 192ããREM $STATICã'Puts a byte into the disk buffer... when the disk buffer is full it isã'dumped to disk.ãSUB BufferWrite (A) STATICãã IF OAddress = OEndAddress THEN 'are we at the end of the buffer?ã PUT GIFFile, , OutBuffer$ ' yup, write it out andã OAddress = OStartAddress ' start all overã END IFã POKE OAddress, A 'put byte in bufferã OAddress = OAddress + 1 'increment positionãEND SUBããSUB FlatããFOR k = 1 TO MaxPolysãcoord1 = p(k).C1: coord2 = p(k).C2: coord3 = p(k).C3ããYMax% = SY(coord1): YMin% = SY(coord1)ãIF YMax% < SY(coord2) THEN YMax% = SY(coord2)ãIF YMin% > SY(coord2) THEN YMin% = SY(coord2)ãIF YMax% < SY(coord3) THEN YMax% = SY(coord3)ãIF YMin% > SY(coord3) THEN YMin% = SY(coord3)ããIF YMin% < 0 THEN YMin% = 0ãIF YMax% > 199 THEN YMax% = 199ããFOR Y% = YMin% TO YMax%: Scan(Y%).X1 = -32767: NEXTãã Val1% = coord1: Val2% = coord2ã IF SY(Val1%) > SY(Val2%) THEN SWAP Val1%, Val2%ã Y1% = SY(Val1%): X1% = SX(Val1%)ã Y2% = SY(Val2%): X2% = SX(Val2%)ã YDelta% = Y2% - Y1%: XDelta% = X2% - X1%ãã IF YDelta% <> 0 THENã XSlope& = XDelta% * 512& \ YDelta%ã ELSEã XSlope& = 0ã END IFã ã XVal& = X1% * 512&ã FOR i% = Y1% TO Y2%ã SELECT CASE i%ã CASE 0 TO 199ã Scan(i%).X1 = XVal& \ 512ã END SELECTã XVal& = XVal& + XSlope&ã NEXT i%ãã Val1% = coord2: Val2% = coord3ã IF SY(Val1%) > SY(Val2%) THEN SWAP Val1%, Val2%ã Y1% = SY(Val1%): X1% = SX(Val1%)ã Y2% = SY(Val2%): X2% = SX(Val2%)ã YDelta% = Y2% - Y1%: XDelta% = X2% - X1%ãã IF YDelta% <> 0 THENã XSlope& = XDelta% * 512& \ YDelta%ã ELSEã XSlope& = 0ã END IFã XVal& = X1% * 512&ã tmp1% = SY(coord1)ã FOR i% = Y1% TO Y2%ã SELECT CASE i%ã CASE 0 TO 199ã IF Scan(i%).X1 = -32767 OR (i% = tmp1%) THENã Scan(i%).X1 = XVal& \ 512ã ELSEã Scan(i%).X2 = XVal& \ 512ã END IFã END SELECTã XVal& = XVal& + XSlope&ã NEXT i%ãã Val1% = coord3: Val2% = coord1ã IF SY(Val1%) > SY(Val2%) THEN SWAP Val1%, Val2%ã Y1% = SY(Val1%): X1% = SX(Val1%)ã Y2% = SY(Val2%): X2% = SX(Val2%)ã YDelta% = Y2% - Y1%: XDelta% = X2% - X1%ãã IF YDelta% <> 0 THENã XSlope& = XDelta% * 512& \ YDelta%ã ELSEã XSlope& = 0ã END IFã XVal& = X1% * 512&ã FOR i% = Y1% TO Y2%ã SELECT CASE i%ã CASE 0 TO 199ã IF Scan(i%).X1 = -32767 THENã Scan(i%).X1 = XVal& \ 512ã ELSEã Scan(i%).X2 = XVal& \ 512ã END IFã END SELECTã XVal& = XVal& + XSlope&ã NEXT i%ããTempOff& = VARPTR(ScnBuf(2)) + (YMin% * 320&)ããCol1% = ScnPnts(coord1).shadeãCol2% = ScnPnts(coord2).shadeãCol3% = ScnPnts(coord3).shadeãpixel = ((Col1% + Col2% + Col3%) \ 3) + p(k).clrããFOR Y% = YMin% TO YMax%ã X2% = Scan(Y%).X1: X1% = Scan(Y%).X2ã IF X1% > X2% THEN SWAP X1%, X2%ã FOR i% = X1% TO X2%ã SELECT CASE i%ã CASE 0 TO 319ã POKE (TempOff& + i%), pixelã END SELECTã NEXTã TempOff& = TempOff& + 320ãNEXTããNEXT kããEND SUBãã'This routine gets one pixel from the display.ãFUNCTION GetByte STATICãã GetByte = POINT(X, Y) 'get the "byte"ã X = X + 1 'increment X coordinateã IF X > MaxX THEN 'are we too far?ã LINE (Minx, Y)-(MaxX, Y), 0 'a pacifier for impatient usersã X = Minx 'go back to startã Y = Y + 1 'increment Y coordinateã IF Y > MaxY THEN 'are we too far down?ã Done = TRUE ' yup, flag it thenã END IFã END IFãEND FUNCTIONããSUB GouraudããFOR k = 1 TO MaxPolysãcoord1 = p(k).C1: coord2 = p(k).C2: coord3 = p(k).C3ããYMax% = SY(coord1): YMin% = SY(coord1)ãIF YMax% < SY(coord2) THEN YMax% = SY(coord2)ãIF YMin% > SY(coord2) THEN YMin% = SY(coord2)ãIF YMax% < SY(coord3) THEN YMax% = SY(coord3)ãIF YMin% > SY(coord3) THEN YMin% = SY(coord3)ããIF YMin% < 0 THEN YMin% = 0ãIF YMax% > 199 THEN YMax% = 199ããFOR Y% = YMin% TO YMax%: Scan(Y%).X1 = -32767: NEXTãã Val1% = coord1: Val2% = coord2ã IF SY(Val1%) > SY(Val2%) THEN SWAP Val1%, Val2%ã Y1% = SY(Val1%): X1% = SX(Val1%): Col1% = ScnPnts(Val1%).shadeã Y2% = SY(Val2%): X2% = SX(Val2%): Col2% = ScnPnts(Val2%).shadeã YDelta% = Y2% - Y1%: XDelta% = X2% - X1%: CDelta% = Col2% - Col1%ãã IF YDelta% <> 0 THENã XSlope& = XDelta% * 512& \ YDelta%ã CSlope& = CDelta% * 512& \ YDelta%ã ELSEã XSlope& = 0ã CSlope& = 0ã END IFã XVal& = X1% * 512&ã Cval& = Col1% * 512&ã FOR i% = Y1% TO Y2%ã SELECT CASE i%ã CASE 0 TO 199ã Scan(i%).X1 = XVal& \ 512ã Scan(i%).Clr1 = Cval& \ 512ã END SELECTã XVal& = XVal& + XSlope&ã Cval& = Cval& + CSlope&ã NEXT i%ãã Val1% = coord2: Val2% = coord3ã IF SY(Val1%) > SY(Val2%) THEN SWAP Val1%, Val2%ã Y1% = SY(Val1%): X1% = SX(Val1%): Col1% = ScnPnts(Val1%).shadeã Y2% = SY(Val2%): X2% = SX(Val2%): Col2% = ScnPnts(Val2%).shadeã YDelta% = Y2% - Y1%: XDelta% = X2% - X1%: CDelta% = Col2% - Col1%ãã IF YDelta% <> 0 THENã XSlope& = XDelta% * 512& \ YDelta%ã CSlope& = CDelta% * 512& \ YDelta%ã ELSEã XSlope& = 0ã CSlope& = 0ã END IFã XVal& = X1% * 512&ã Cval& = Col1% * 512&ã tmp1% = SY(coord1)ã FOR i% = Y1% TO Y2%ã SELECT CASE i%ã CASE 0 TO 199ã IF Scan(i%).X1 = -32767 OR (i% = tmp1%) THENã Scan(i%).X1 = XVal& \ 512ã Scan(i%).Clr1 = Cval& \ 512ã ELSEã Scan(i%).X2 = XVal& \ 512ã Scan(i%).Clr2 = Cval& \ 512ã END IFã END SELECTã XVal& = XVal& + XSlope&ã Cval& = Cval& + CSlope&ã NEXT i%ãã Val1% = coord3: Val2% = coord1ã IF SY(Val1%) > SY(Val2%) THEN SWAP Val1%, Val2%ã Y1% = SY(Val1%): X1% = SX(Val1%): Col1% = ScnPnts(Val1%).shadeã Y2% = SY(Val2%): X2% = SX(Val2%): Col2% = ScnPnts(Val2%).shadeã YDelta% = Y2% - Y1%: XDelta% = X2% - X1%: CDelta% = Col2% - Col1%ãã IF YDelta% <> 0 THENã XSlope& = XDelta% * 512& \ YDelta%ã CSlope& = CDelta% * 512& \ YDelta%ã ELSEã XSlope& = 0ã CSlope& = 0ã END IFã XVal& = X1% * 512&ã Cval& = Col1% * 512&ã FOR i% = Y1% TO Y2%ã SELECT CASE i%ã CASE 0 TO 199ã IF Scan(i%).X1 = -32767 THENã Scan(i%).X1 = XVal& \ 512ã Scan(i%).Clr1 = Cval& \ 512ã ELSEã Scan(i%).X2 = XVal& \ 512ã Scan(i%).Clr2 = Cval& \ 512ã END IFã END SELECTã XVal& = XVal& + XSlope&ã Cval& = Cval& + CSlope&ã NEXT i%ããTempOff& = VARPTR(ScnBuf(2)) + (YMin% * 320&)ãFOR Y% = YMin% TO YMax%ã X2% = Scan(Y%).X1: X1% = Scan(Y%).X2ã IF X1% > X2% THENã SWAP X1%, X2%ã Col2% = Scan(Y%).Clr2: Col1% = Scan(Y%).Clr1ã ELSEã Col2% = Scan(Y%).Clr1: Col1% = Scan(Y%).Clr2ã END IFãã CSlope& = (Col2% - Col1%) * 512&ã IF X2% <> X1% THEN CSlope& = CSlope& \ (X2% - X1%)ã Cval& = Col1% * 512&ãã FOR i% = X1% TO X2%ã SELECT CASE i%ã CASE 0 TO 319ã pixel = Cval& \ 512 + (p(k).clr)ã POKE (TempOff& + i%), pixelã END SELECTã Cval& = Cval& + CSlope&ã NEXTã TempOff& = TempOff& + 320ãNEXTããNEXT kããEND SUBããSUB InterPhongãFOR k = 1 TO MaxPolysãcoord1 = p(k).C1: coord2 = p(k).C2: coord3 = p(k).C3ããYMax% = SY(coord1): YMin% = SY(coord1)ãIF YMax% < SY(coord2) THEN YMax% = SY(coord2)ãIF YMin% > SY(coord2) THEN YMin% = SY(coord2)ãIF YMax% < SY(coord3) THEN YMax% = SY(coord3)ãIF YMin% > SY(coord3) THEN YMin% = SY(coord3)ããIF YMin% < 0 THEN YMin% = 0ãIF YMax% > 199 THEN YMax% = 199ããFOR Y% = YMin% TO YMax%: Scan(Y%).X1 = -32767: NEXTãã Val1% = coord1: Val2% = coord2ã IF SY(Val1%) > SY(Val2%) THEN SWAP Val1%, Val2%ã Y1% = SY(Val1%): X1% = SX(Val1%)ã Y2% = SY(Val2%): X2% = SX(Val2%)ã X3D1% = ScnPnts(Val1%).X: X3D2% = ScnPnts(Val2%).Xã Y3D1% = ScnPnts(Val1%).Y: Y3D2% = ScnPnts(Val2%).Yã Z3D1% = ScnPnts(Val1%).Z: Z3D2% = ScnPnts(Val2%).Zãã X3DDelta% = X3D2% - X3D1%ã Y3DDelta% = Y3D2% - Y3D1%ã Z3DDelta% = Z3D2% - Z3D1%ãã XDelta% = X2% - X1%: YDelta% = Y2% - Y1%ãã IF YDelta% <> 0 THENã XSlope& = XDelta% * 512& \ YDelta%ã X3DSlope& = X3DDelta% * 512& \ YDelta%ã Y3DSlope& = Y3DDelta% * 512& \ YDelta%ã Z3DSlope& = Z3DDelta% * 512& \ YDelta%ã ELSEã XSlope& = 0ã X3DSlope& = 0ã Y3DSlope& = 0ã Z3DSlope& = 0ã END IFãã X3DVal& = X3D1% * 512&: Y3DVal& = Y3D1% * 512&: Z3DVal& = Z3D1% * 512&ã XVal& = X1% * 512&ã FOR i% = Y1% TO Y2%ã SELECT CASE i%ã CASE 0 TO 199ã Scan(i%).X1 = XVal& \ 512ã Scan(i%).X3D1 = X3DVal& \ 512ã Scan(i%).Y3D1 = Y3DVal& \ 512ã Scan(i%).Z3D1 = Z3DVal& \ 512ã END SELECTã XVal& = XVal& + XSlope&ã X3DVal& = X3DVal& + X3DSlope&ã Y3DVal& = Y3DVal& + Y3DSlope&ã Z3DVal& = Z3DVal& + Z3DSlope&ã NEXT i%ãã Val1% = coord2: Val2% = coord3ã IF SY(Val1%) > SY(Val2%) THEN SWAP Val1%, Val2%ã Y1% = SY(Val1%): X1% = SX(Val1%)ã Y2% = SY(Val2%): X2% = SX(Val2%)ã X3D1% = ScnPnts(Val1%).X: X3D2% = ScnPnts(Val2%).Xã Y3D1% = ScnPnts(Val1%).Y: Y3D2% = ScnPnts(Val2%).Yã Z3D1% = ScnPnts(Val1%).Z: Z3D2% = ScnPnts(Val2%).Zãã Y3DDelta% = Y3D2% - Y3D1%ã X3DDelta% = X3D2% - X3D1%ã Z3DDelta% = Z3D2% - Z3D1%ã XDelta% = X2% - X1%: YDelta% = Y2% - Y1%ãã IF YDelta% <> 0 THENã XSlope& = XDelta% * 512& \ YDelta%ã X3DSlope& = X3DDelta% * 512& \ YDelta%ã Y3DSlope& = Y3DDelta% * 512& \ YDelta%ã Z3DSlope& = Z3DDelta% * 512& \ YDelta%ã ELSEã XSlope& = 0ã X3DSlope& = 0ã Y3DSlope& = 0ã Z3DSlope& = 0ã END IFãã X3DVal& = X3D1% * 512&: Y3DVal& = Y3D1% * 512&: Z3DVal& = Z3D1% * 512&ã XVal& = X1% * 512&ã tmp1% = SY(coord1)ã FOR i% = Y1% TO Y2%ã SELECT CASE i%ã CASE 0 TO 199ã IF Scan(i%).X1 = -32767 OR (i% = tmp1%) THENã Scan(i%).X1 = XVal& \ 512ã Scan(i%).X3D1 = X3DVal& \ 512ã Scan(i%).Y3D1 = Y3DVal& \ 512ã Scan(i%).Z3D1 = Z3DVal& \ 512ã ELSEã Scan(i%).X2 = XVal& \ 512ã Scan(i%).X3D2 = X3DVal& \ 512ã Scan(i%).Y3D2 = Y3DVal& \ 512ã Scan(i%).Z3D2 = Z3DVal& \ 512ã END IFã END SELECTã XVal& = XVal& + XSlope&ã X3DVal& = X3DVal& + X3DSlope&ã Y3DVal& = Y3DVal& + Y3DSlope&ã Z3DVal& = Z3DVal& + Z3DSlope&ã NEXT i%ãã Val1% = coord3: Val2% = coord1ã IF SY(Val1%) > SY(Val2%) THEN SWAP Val1%, Val2%ã Y1% = SY(Val1%): X1% = SX(Val1%)ã Y2% = SY(Val2%): X2% = SX(Val2%)ã X3D1% = ScnPnts(Val1%).X: X3D2% = ScnPnts(Val2%).Xã Y3D1% = ScnPnts(Val1%).Y: Y3D2% = ScnPnts(Val2%).Yã Z3D1% = ScnPnts(Val1%).Z: Z3D2% = ScnPnts(Val2%).Zãã X3DDelta% = X3D2% - X3D1%ã Y3DDelta% = Y3D2% - Y3D1%ã Z3DDelta% = Z3D2% - Z3D1%ã XDelta% = X2% - X1%: YDelta% = Y2% - Y1%ãã IF YDelta% <> 0 THENã XSlope& = XDelta% * 512& \ YDelta%ã X3DSlope& = X3DDelta% * 512& \ YDelta%ã Y3DSlope& = Y3DDelta% * 512& \ YDelta%ã Z3DSlope& = Z3DDelta% * 512& \ YDelta%ã ELSEã XSlope& = 0ã X3DSlope& = 0ã Y3DSlope& = 0ã Z3DSlope& = 0ã END IFãã X3DVal& = X3D1% * 512&: Y3DVal& = Y3D1% * 512&: Z3DVal& = Z3D1% * 512&ã XVal& = X1% * 512&ã FOR i% = Y1% TO Y2%ã SELECT CASE i%ã CASE 0 TO 199ã IF Scan(i%).X1 = -32767 THENã Scan(i%).X1 = XVal& \ 512ã Scan(i%).X3D1 = X3DVal& \ 512ã Scan(i%).Y3D1 = Y3DVal& \ 512ã Scan(i%).Z3D1 = Z3DVal& \ 512ã ELSEã Scan(i%).X2 = XVal& \ 512ã Scan(i%).X3D2 = X3DVal& \ 512ã Scan(i%).Y3D2 = Y3DVal& \ 512ã Scan(i%).Z3D2 = Z3DVal& \ 512ã END IFã END SELECTã XVal& = XVal& + XSlope&ã X3DVal& = X3DVal& + X3DSlope&ã Y3DVal& = Y3DVal& + Y3DSlope&ã Z3DVal& = Z3DVal& + Z3DSlope&ã NEXT i%ããTempOff& = VARPTR(ScnBuf(2)) + (YMin% * 320&)ãFOR Y% = YMin% TO YMax%ã ã X2% = Scan(Y%).X1: X1% = Scan(Y%).X2ã IF X1% > X2% THENã SWAP X1%, X2%ã X3D2& = Scan(Y%).X3D2: X3D1& = Scan(Y%).X3D1ã Y3D2& = Scan(Y%).Y3D2: Y3D1& = Scan(Y%).Y3D1ã Z3D2& = Scan(Y%).Z3D2: Z3D1& = Scan(Y%).Z3D1ã ELSEã X3D2& = Scan(Y%).X3D1: X3D1& = Scan(Y%).X3D2ã Y3D2& = Scan(Y%).Y3D1: Y3D1& = Scan(Y%).Y3D2ã Z3D2& = Scan(Y%).Z3D1: Z3D1& = Scan(Y%).Z3D2ã END IFã ã D& = SQR((X3D1& * X3D1&) + (Y3D1& * Y3D1&) + (Z3D1& * Z3D1&)) * 1024&ã IF D& <> 0 THENã 'COS e = (U dot V) / (|V| * |U|)ã UdotV = ((X3D1& * LX) + (Y3D1& * LY) + (Z3D1& * LZ))ã '8192 = 1024 * 8ã A! = ((UdotV * 8192&) / (D& * LightDistance&))ã 'formula for ArcCosã S = 90 - (ATN(A! / SQR(A! * -A! + 1)) * (180 / PI))ã 'fit angle to palette: inverse of 90 degrees / 63 colorsã Col1% = (90 - S) * 7 \ 10ã IF Col1% < 0 THEN Col1% = 0ã IF Col1% > 63 THEN Col1% = 63ã ELSEã Col1% = 0ã END IFãã D& = SQR((X3D2& * X3D2&) + (Y3D2& * Y3D2&) + (Z3D2& * Z3D2&)) * 1024&ã IF D& <> 0 THENã 'COS e = (U dot V) / (|V| * |U|)ã UdotV = ((X3D2& * LX) + (Y3D2& * LY) + (Z3D2& * LZ))ã '8192 = 1024 * 8ã A! = ((UdotV * 8192&) / (D& * LightDistance&))ã 'formula for ArcCosã S = 90 - (ATN(A! / SQR(A! * -A! + 1)) * (180 / PI))ã 'fit angle to palette: inverse of 90 degrees / 63 colorsã Col2% = (90 - S) * 7 \ 10ã IF Col2% < 0 THEN Col2% = 0ã IF Col2% > 63 THEN Col2% = 63ã ELSEã Col2% = 0ã END IFãã CSlope& = (Col2% - Col1%) * 512&ã IF X2% <> X1% THEN CSlope& = CSlope& \ (X2% - X1%)ã Cval& = Col1% * 512&ãã FOR i% = X1% TO X2%ã SELECT CASE i%ã CASE 0 TO 319ã pixel = Cval& \ 512 + (p(k).clr)ã POKE (TempOff& + i%), pixelã END SELECTã Cval& = Cval& + CSlope&ã NEXTã TempOff& = TempOff& + 320ãNEXTããNEXT kãEND SUBãã'ã'-----------------------------------------------------------------------ã' PDS 7.1 & QB4.5 GIF Compression Routine v1.00 By Rich Geldreich 1992ã'-----------------------------------------------------------------------ã'ã'A$ = output filenameã'ScreenX = X resolution of screen(320, 640, etc.)ã'ScreenY = Y resolution of screen(200, 350, 480, etc.)ã'XStart = <-upper left hand corner of area to encodeã'YStart = < " "ã'Xend = <-lower right hand corner of area to encodeã'Yend = < " "ã'NumColors = # of colors on screen(2, 16, 256)ã'AdaptorType = 1 for EGA 2 for VGAã'NOTE: EGA palettes are not supported in this version of MakeGIF.ã'ãSUB MakeGif (A$, ScreenX, ScreenY, Xstart, YStart, Xend, Yend, NumColors, AdaptorType)ã 'hash table's size - must be a prime number!ã CONST Table.Size = 7177ãã DIM Prefix(Table.Size - 1), Suffix(Table.Size - 1), code(Table.Size - 1)ã ã 'The shift table contains the powers of 2 needed by theã 'PutCode routine. This is done for speed. (much faster toã 'look up an integer than to perform calculations...)ã RESTORE ShiftTableã FOR A = 0 TO 7: READ Shift(A): NEXTã ã 'MinX, MinY, MaxX, MaxY have the encoding windowã Minx = Xstart: MinY = YStartã MaxX = Xend: MaxY = Yendã ã 'Open GIF output fileã GIFFile = FREEFILE 'use next free fileã OPEN A$ FOR BINARY AS GIFFileã ã 'Put GIF87a header at beginning of fileã B$ = "GIF87a"ã PUT GIFFile, , B$ã ã 'See how many colors are in this image...ã SELECT CASE NumColorsã CASE 2 'monochrome imageã BitsPixel = 1 '1 bit per pixelã StartSize = 3 'first LZW code is 3 bitsã StartCode = 4 'first free codeã StartMax = 8 'maximum code in 3 bitsãã CASE 16 '16 colors imagesã BitsPixel = 4 '4 bits per pixelã StartSize = 5 'first LZW code is 5 bitsã StartCode = 16 'first free codeã StartMax = 32 'maximum code in 5 bitsã ã CASE 256 '256 color imagesã BitsPixel = 8 '8 bits per pixelã StartSize = 9 'first LZW code is 9 bitsã StartCode = 256 'first free codeã StartMax = 512 'maximum code in 9 bitsã END SELECTã 'This following routine probably isn't needed- I've neverã 'had to use the "ColorBits" variable... With the EGA, youã 'have 2 bits for Red, Green, & Blue. With VGA, you have 6 bits.ã SELECT CASE AdaptorTypeã CASE 1ã ColorBits = 2 'EGAã CASE 2ã ColorBits = 6 'VGAã END SELECTã ã PUT GIFFile, , ScreenX 'put screen's dimensionsã PUT GIFFile, , ScreenYã 'pack colorbits and bits per pixelã A = 128 + (ColorBits - 1) * 16 + (BitsPixel - 1)ã PUT GIFFile, , Aã 'throw a zero into the GIF fileã A$ = CHR$(0)ã PUT GIFFile, , A$ã 'Get the RGB palette from the screen and put it into the file...ã SELECT CASE AdaptorTypeã CASE 1ã STOPã 'EGA palette routine not implemented yetã CASE 2ã OUT &H3C7, 0ã FOR A = 0 TO NumColors - 1ã 'Note: a BIOS call could be used here, but then we have to useã 'the messy CALL INTERRUPT subs...ã R = (INP(&H3C9) * 65280) \ 16128 'C=R * 4.0476190(for 0-255)ã G = (INP(&H3C9) * 65280) \ 16128ã B = (INP(&H3C9) * 65280) \ 16128ã A$ = CHR$(R): PUT GIFFile, , A$ã A$ = CHR$(G): PUT GIFFile, , A$ã A$ = CHR$(B): PUT GIFFile, , A$ã NEXTã END SELECTã ã 'write out an image descriptor...ã A$ = "," '"," is image seperatorã PUT GIFFile, , A$ 'write itã PUT GIFFile, , Minx 'write out the image's locationã PUT GIFFile, , MinYã ImageWidth = (MaxX - Minx + 1) 'find length & width of imageã ImageHeight = (MaxY - MinY + 1)ã PUT GIFFile, , ImageWidth 'store them into the fileã PUT GIFFile, , ImageHeightã A$ = CHR$(BitsPixel - 1) '# bits per pixel in the imageã PUT GIFFile, , A$ã ã A$ = CHR$(StartSize - 1) 'store the LZW minimum code sizeã PUT GIFFile, , A$ã ã 'Initialize the vars needed by PutCodeã CurrentBit = 0: Char& = 0ã ã MaxCode = StartMax 'the current maximum code sizeã CodeSize = StartSize 'the current code sizeã ClearCode = StartCode 'ClearCode & EOF code are theã EOFCode = StartCode + 1 ' first two entriesã StartCode = StartCode + 2 'first free code that can be usedã NextCode = StartCode 'the current codeã ã OutBuffer$ = STRING$(5000, 32) 'output buffer; for speedy disk writesã A& = SADD(OutBuffer$) 'find address of bufferã A& = A& - 65536 * (A& < 0)ã Oseg = VARSEG(OutBuffer$) + (A& \ 16) 'get segment + offset >> 4ã OAddress = A& AND 15 'get address into segmentã OEndAddress = OAddress + 5000 'end of disk bufferã OStartAddress = OAddress 'current location in disk bufferã DEF SEG = Osegãã GOSUB ClearTree 'clear the tree & output aã PutCode ClearCode ' clear codeã ã X = Xstart: Y = YStart 'X & Y have the current pixelã Prefix = GetByte 'the first pixel is a special caseã Done = FALSE 'True when image is completeã ã DO 'while there are more pixels to encodeãã DO 'until we have a new string to put into the tableãã IF Done THEN 'write out the last pixel, clear the disk bufferã 'and fix up the last block so its count is correctã ã PutCode Prefix 'write last pixelã PutCode EOFCode 'send EOF codeã ã IF CurrentBit <> 0 THENã PutCode 0 'flush out the last code...ã END IFã PutByte 0ãã OutBuffer$ = LEFT$(OutBuffer$, OAddress - OStartAddress)ã PUT GIFFile, , OutBuffer$ã A$ = ";" + STRING$(8, &H1A) 'the 8 EOF chars is not standard,ã 'but many GIF's have them, so howã 'much could it hurt?ã PUT GIFFile, , A$ã ã A$ = CHR$(255 - BlockLength) 'correct the last block's countã PUT GIFFile, LastLoc&, A$ã ã CLOSE GIFFileã EXIT SUBã ELSE 'get a pixel from the screen and see if we can findã 'the new string in the tableã Suffix = GetByteã GOSUB Hash 'is it there?ã IF Found = TRUE THEN Prefix = code(index) 'yup, replace theã 'prefix:suffix string with whateverã 'code represents it in the tableã END IFã LOOP WHILE Found 'don't stop unless we find a new stringã ã PutCode Prefix 'output the prefix to the fileã ã Prefix(index) = Prefix 'put the new string in the tableã Suffix(index) = Suffixã code(index) = NextCode 'we've got to keep track if what code this is!ã ã Prefix = Suffix 'Prefix=the last pixel pulled from the screenã ã NextCode = NextCode + 1 'get ready for the next codeã IF NextCode = MaxCode + 1 THEN 'can an output code ever exceedã 'the current code size?ã 'yup, increase the code sizeãã MaxCode = MaxCode * 2ã ã 'Note: The GIF89a spec mentions something about a deferred clearã 'code. When the clear code is deferred, codes are not enteredã 'into the hash table anymore. When the compression of the imageã 'starts to fall below a certain threshold, the clear code isã 'sent and the hash table is cleared. The overall result isã 'greater compression, because the table is cleared less often.ã 'This version of MakeGIF doesn't support this, because some GIFã 'decoders crash when they attempt to enter too many codesã 'into the string table.ãã IF CodeSize = 12 THEN 'is the code size too big?ã PutCode ClearCode 'yup; clear the table andã GOSUB ClearTree 'start overã NextCode = StartCodeã CodeSize = StartSizeã MaxCode = StartMaxããã ELSEã CodeSize = CodeSize + 1 'just increase the code size ifã END IF 'it's not too high( not > 12)ã END IFã ã LOOP 'while we have more pixelsãClearTree:ã FOR A = 0 TO Table.Size - 1 'clears the hashing tableã Prefix(A) = -1 '-1 = invalid entryã Suffix(A) = -1ã code(A) = -1ã NEXTãRETURNã'this is only one of a plethora of ways to search the table forã'a match! I used a binary tree first, but I switched to hashingã'cause it's quicker(perhaps the way I implemented the tree wasn'tã'optimal... who knows!)ãHash:ã 'hash the prefix & suffix(there are also many ways to do this...)ã '?? is there a better formula?ã index = ((Prefix * 256&) XOR Suffix) MOD Table.Sizeã 'ã '(Note: the table size(7177 in this case) must be a prime number, orã 'else there's a chance that the routine will hang up... hate whenã 'that happens!)ã 'ã 'Calculate an offset just in case we don't find what we want on theã 'first try...ã IF index = 0 THEN 'can't have Table.Size-0 !ã offset = 1ã ELSEã offset = Table.Size - indexã END IFã ã DO 'until we (1) find an empty entry or (2) find what we're lookin forã ã ã IF code(index) = -1 THEN 'is this entry blank?ã Found = FALSE 'yup- we didn't find the stringã RETURNã 'is this entry the one we're looking for?ã ELSEIF Prefix(index) = Prefix AND Suffix(index) = Suffix THENã 'yup, congrats you now understand hashing!!!ã ã Found = TRUEã RETURNã ELSEã 'shoot! we didn't find anything interesting, so we mustã 'retry- this is what slows hashing down. I could of usedã 'a bigger table, that would of speeded things up a littleã 'because this retrying would not happen as often...ã index = index - offsetã IF index < 0 THEN 'too far down the table?ã 'wrap back the index to the end of the tableã index = index + Table.Sizeã END IFã END IFã LOOPãEND SUBããSUB PhongãFOR k = 1 TO MaxPolysãcoord1 = p(k).C1: coord2 = p(k).C2: coord3 = p(k).C3ããYMax% = SY(coord1): YMin% = SY(coord1)ãIF YMax% < SY(coord2) THEN YMax% = SY(coord2)ãIF YMin% > SY(coord2) THEN YMin% = SY(coord2)ãIF YMax% < SY(coord3) THEN YMax% = SY(coord3)ãIF YMin% > SY(coord3) THEN YMin% = SY(coord3)ããIF YMin% < 0 THEN YMin% = 0ãIF YMax% > 199 THEN YMax% = 199ããFOR Y% = YMin% TO YMax%: Scan(Y%).X1 = -32767: NEXTãã Val1% = coord1: Val2% = coord2ã IF SY(Val1%) > SY(Val2%) THEN SWAP Val1%, Val2%ã Y1% = SY(Val1%): X1% = SX(Val1%)ã Y2% = SY(Val2%): X2% = SX(Val2%)ã X3D1% = ScnPnts(Val1%).X: X3D2% = ScnPnts(Val2%).Xã Y3D1% = ScnPnts(Val1%).Y: Y3D2% = ScnPnts(Val2%).Yã Z3D1% = ScnPnts(Val1%).Z: Z3D2% = ScnPnts(Val2%).Zãã X3DDelta% = X3D2% - X3D1%ã Y3DDelta% = Y3D2% - Y3D1%ã Z3DDelta% = Z3D2% - Z3D1%ãã XDelta% = X2% - X1%: YDelta% = Y2% - Y1%ãã IF YDelta% <> 0 THENã XSlope& = XDelta% * 512& \ YDelta%ã X3DSlope& = X3DDelta% * 512& \ YDelta%ã Y3DSlope& = Y3DDelta% * 512& \ YDelta%ã Z3DSlope& = Z3DDelta% * 512& \ YDelta%ã ELSEã XSlope& = 0ã X3DSlope& = 0ã Y3DSlope& = 0ã Z3DSlope& = 0ã END IFãã X3DVal& = X3D1% * 512&: Y3DVal& = Y3D1% * 512&: Z3DVal& = Z3D1% * 512&ã XVal& = X1% * 512&ã FOR i% = Y1% TO Y2%ã SELECT CASE i%ã CASE 0 TO 199ã Scan(i%).X1 = XVal& \ 512ã Scan(i%).X3D1 = X3DVal& \ 512ã Scan(i%).Y3D1 = Y3DVal& \ 512ã Scan(i%).Z3D1 = Z3DVal& \ 512ã END SELECTã XVal& = XVal& + XSlope&ã X3DVal& = X3DVal& + X3DSlope&ã Y3DVal& = Y3DVal& + Y3DSlope&ã Z3DVal& = Z3DVal& + Z3DSlope&ã NEXT i%ãã Val1% = coord2: Val2% = coord3ã IF SY(Val1%) > SY(Val2%) THEN SWAP Val1%, Val2%ã Y1% = SY(Val1%): X1% = SX(Val1%)ã Y2% = SY(Val2%): X2% = SX(Val2%)ã X3D1% = ScnPnts(Val1%).X: X3D2% = ScnPnts(Val2%).Xã Y3D1% = ScnPnts(Val1%).Y: Y3D2% = ScnPnts(Val2%).Yã Z3D1% = ScnPnts(Val1%).Z: Z3D2% = ScnPnts(Val2%).Zãã Y3DDelta% = Y3D2% - Y3D1%ã X3DDelta% = X3D2% - X3D1%ã Z3DDelta% = Z3D2% - Z3D1%ã XDelta% = X2% - X1%: YDelta% = Y2% - Y1%ãã IF YDelta% <> 0 THENã XSlope& = XDelta% * 512& \ YDelta%ã X3DSlope& = X3DDelta% * 512& \ YDelta%ã Y3DSlope& = Y3DDelta% * 512& \ YDelta%ã Z3DSlope& = Z3DDelta% * 512& \ YDelta%ã ELSEã XSlope& = 0ã X3DSlope& = 0ã Y3DSlope& = 0ã Z3DSlope& = 0ã END IFãã X3DVal& = X3D1% * 512&: Y3DVal& = Y3D1% * 512&: Z3DVal& = Z3D1% * 512&ã XVal& = X1% * 512&ã tmp1% = SY(coord1)ã FOR i% = Y1% TO Y2%ã SELECT CASE i%ã CASE 0 TO 199ã IF Scan(i%).X1 = -32767 OR (i% = tmp1%) THENã Scan(i%).X1 = XVal& \ 512ã Scan(i%).X3D1 = X3DVal& \ 512ã Scan(i%).Y3D1 = Y3DVal& \ 512ã Scan(i%).Z3D1 = Z3DVal& \ 512ã ELSEã Scan(i%).X2 = XVal& \ 512ã Scan(i%).X3D2 = X3DVal& \ 512ã Scan(i%).Y3D2 = Y3DVal& \ 512ã Scan(i%).Z3D2 = Z3DVal& \ 512ã END IFã END SELECTã XVal& = XVal& + XSlope&ã X3DVal& = X3DVal& + X3DSlope&ã Y3DVal& = Y3DVal& + Y3DSlope&ã Z3DVal& = Z3DVal& + Z3DSlope&ã NEXT i%ãã Val1% = coord3: Val2% = coord1ã IF SY(Val1%) > SY(Val2%) THEN SWAP Val1%, Val2%ã Y1% = SY(Val1%): X1% = SX(Val1%)ã Y2% = SY(Val2%): X2% = SX(Val2%)ã X3D1% = ScnPnts(Val1%).X: X3D2% = ScnPnts(Val2%).Xã Y3D1% = ScnPnts(Val1%).Y: Y3D2% = ScnPnts(Val2%).Yã Z3D1% = ScnPnts(Val1%).Z: Z3D2% = ScnPnts(Val2%).Zãã X3DDelta% = X3D2% - X3D1%ã Y3DDelta% = Y3D2% - Y3D1%ã Z3DDelta% = Z3D2% - Z3D1%ã XDelta% = X2% - X1%: YDelta% = Y2% - Y1%ãã IF YDelta% <> 0 THENã XSlope& = XDelta% * 512& \ YDelta%ã X3DSlope& = X3DDelta% * 512& \ YDelta%ã Y3DSlope& = Y3DDelta% * 512& \ YDelta%ã Z3DSlope& = Z3DDelta% * 512& \ YDelta%ã ELSEã XSlope& = 0ã X3DSlope& = 0ã Y3DSlope& = 0ã Z3DSlope& = 0ã END IFãã X3DVal& = X3D1% * 512&: Y3DVal& = Y3D1% * 512&: Z3DVal& = Z3D1% * 512&ã XVal& = X1% * 512&ã FOR i% = Y1% TO Y2%ã SELECT CASE i%ã CASE 0 TO 199ã IF Scan(i%).X1 = -32767 THENã Scan(i%).X1 = XVal& \ 512ã Scan(i%).X3D1 = X3DVal& \ 512ã Scan(i%).Y3D1 = Y3DVal& \ 512ã Scan(i%).Z3D1 = Z3DVal& \ 512ã ELSEã Scan(i%).X2 = XVal& \ 512ã Scan(i%).X3D2 = X3DVal& \ 512ã Scan(i%).Y3D2 = Y3DVal& \ 512ã Scan(i%).Z3D2 = Z3DVal& \ 512ã END IFã END SELECTã XVal& = XVal& + XSlope&ã X3DVal& = X3DVal& + X3DSlope&ã Y3DVal& = Y3DVal& + Y3DSlope&ã Z3DVal& = Z3DVal& + Z3DSlope&ã NEXT i%ããTempOff& = VARPTR(ScnBuf(2)) + (YMin% * 320&)ãFOR Y% = YMin% TO YMax%ã X2% = Scan(Y%).X1: X1% = Scan(Y%).X2ã IF X1% > X2% THENã SWAP X1%, X2%ã X3D2% = Scan(Y%).X3D2: X3D1% = Scan(Y%).X3D1ã Y3D2% = Scan(Y%).Y3D2: Y3D1% = Scan(Y%).Y3D1ã Z3D2% = Scan(Y%).Z3D2: Z3D1% = Scan(Y%).Z3D1ã ELSEã X3D2% = Scan(Y%).X3D1: X3D1% = Scan(Y%).X3D2ã Y3D2% = Scan(Y%).Y3D1: Y3D1% = Scan(Y%).Y3D2ã Z3D2% = Scan(Y%).Z3D1: Z3D1% = Scan(Y%).Z3D2ã END IFãã X3DDelta% = (X3D2% - X3D1%)ã Y3DDelta% = (Y3D2% - Y3D1%)ã Z3DDelta% = (Z3D2% - Z3D1%)ã XDelta% = (X2% - X1%)ãã IF XDelta% <> 0 THENã X3DSlope& = X3DDelta% * 512& \ XDelta%ã Y3DSlope& = Y3DDelta% * 512& \ XDelta%ã Z3DSlope& = Z3DDelta% * 512& \ XDelta%ã END IFãã X3DVal& = X3D1% * 512&ã Y3DVal& = Y3D1% * 512&ã Z3DVal& = Z3D1% * 512&ãã FOR i% = X1% TO X2%ã SELECT CASE i%ã CASE 0 TO 319ã TmpX& = X3DVal& \ 512ã TmpY& = Y3DVal& \ 512ã TmpZ& = Z3DVal& \ 512ã D& = SQR((TmpX& * TmpX&) + (TmpY& * TmpY&) + (TmpZ& * TmpZ&)) * 1024&ã IF D& <> 0 THENã 'COS e = (U dot V) / (|V| * |U|)ã UdotV = ((TmpX& * LX) + (TmpY& * LY) + (TmpZ& * LZ))ã '8192 = 1024 * 8ã A! = ((UdotV * 8192&) / (D& * LightDistance&))ã 'formula for ArcCosã S = 90 - (ATN(A! / SQR(A! * -A! + 1)) * (180 / PI))ã 'fit angle to palette: inverse of 90 degrees / 63 colorsã pixel = (90 - S) * 7 \ 10ã IF pixel < 0 THEN pixel = 0ã IF pixel > 64 THEN pixel = 64ã ELSEã pixel = 0ã END IFã IF pixel THENã pixel = pixel + p(k).clrã POKE (TempOff& + i%), pixelã END IFã END SELECTã X3DVal& = X3DVal& + X3DSlope&ã Y3DVal& = Y3DVal& + Y3DSlope&ã Z3DVal& = Z3DVal& + Z3DSlope&ã NEXTã TempOff& = TempOff& + 320ãNEXTããNEXT kãEND SUBãã'Puts a byte into the GIF file & also takes care of each block.ãSUB PutByte (A) STATICã BlockLength = BlockLength - 1 'are we at the end of a block?ã IF BlockLength <= 0 THEN ' yup,ã BlockLength = 255 'block length is now 255ã LastLoc& = LOC(1) + 1 + (OAddress - OStartAddress) 'remember the pos.ã BufferWrite 255 'for later fixingã END IFã BufferWrite A 'put a byte into the bufferãEND SUBãã'Puts an LZW variable-bit code into the output file...ãSUB PutCode (A) STATICã Char& = Char& + A * Shift(CurrentBit) 'put the char were it belongs;ã CurrentBit = CurrentBit + CodeSize ' shifting it to its proper placeãDO WHILE CurrentBit > 7 'do we have a least one full byte?ã PutByte Char& AND 255 ' yup! mask it off and write it outã Char& = Char& \ 256 'shift the bit buffer right 8 bitsã CurrentBit = CurrentBit - 8 'now we have 8 less bitsã LOOP 'until we don't have a full byteãEND SUBããSUB SetPal (C, R, G, B)ãOUT &H3C8, CãOUT &H3C9, RãOUT &H3C9, GãOUT &H3C9, BãEND SUBããSUB WireããFOR k = 0 TO MaxPolysãcoord1 = p(k).C1: coord2 = p(k).C2: coord3 = p(k).C3ããCol1% = ScnPnts(coord1).shadeãCol2% = ScnPnts(coord2).shadeãCol3% = ScnPnts(coord3).shadeããpixel = ((Col1% + Col2% + Col3%) \ 3) + p(k).clrããX% = SX(coord1): Y% = SY(coord1)ãX2% = SX(coord2): Y2% = SY(coord2)ãã i% = 0: steep% = 0: e% = 0ã tmp = X2% - X%: SX% = SGN(tmp): dx% = ABS(tmp)ã tmp = Y2% - Y%: SY% = SGN(tmp): dy% = ABS(tmp)ã IF (dy% > dx%) THENã steep% = 1ã SWAP X%, Y%ã SWAP dx%, dy%ã SWAP SX%, SY%ã END IFã e% = dy% + dy% - dx%ã IF steep = 1 THENã FOR i% = 0 TO dx% - 1ã IF Y% > 0 AND Y% < 319 AND X% > 0 AND X% < 199 THENã POKE (Y% + (X% * 320&) + VARPTR(ScnBuf(2))), pixelã END IFã WHILE e% >= 0ã Y% = Y% + SY%: e% = e% - (dx% + dx%)ã WENDã X% = X% + SX%: e% = e% + (dy% + dy%)ã NEXTã ELSEã FOR i% = 0 TO dx% - 1ã IF X% > 0 AND X% < 319 AND Y% > 0 AND Y% < 199 THENã POKE (X% + (Y% * 320&) + VARPTR(ScnBuf(2))), pixelã END IFã WHILE e% >= 0ã Y% = Y% + SY%: e% = e% - (dx% + dx%)ã WENDã X% = X% + SX%: e% = e% + dy% + dy%ã NEXTã END IFãã IF X2% > 0 AND X2% < 319 AND Y2% > 0 AND Y2% < 199 THENã POKE (X2% + (Y2% * 320&) + VARPTR(ScnBuf(2))), pixelã END IFããX% = SX(coord3): Y% = SY(coord3)ãX2% = SX(coord2): Y2% = SY(coord2)ãã i% = 0: steep% = 0: e% = 0ã tmp = X2% - X%: SX% = SGN(tmp): dx% = ABS(tmp)ã tmp = Y2% - Y%: SY% = SGN(tmp): dy% = ABS(tmp)ã IF (dy% > dx%) THENã steep% = 1ã SWAP X%, Y%ã SWAP dx%, dy%ã SWAP SX%, SY%ã END IFã e% = dy% + dy% - dx%ã IF steep = 1 THENã FOR i% = 0 TO dx% - 1ã IF Y% > 0 AND Y% < 319 AND X% > 0 AND X% < 199 THENã POKE (Y% + (X% * 320&) + VARPTR(ScnBuf(2))), pixelã END IFãã WHILE e% >= 0ã Y% = Y% + SY%: e% = e% - (dx% + dx%)ã WENDã X% = X% + SX%: e% = e% + (dy% + dy%)ã NEXTã ELSEã FOR i% = 0 TO dx% - 1ã IF X% > 0 AND X% < 319 AND Y% > 0 AND Y% < 199 THENã POKE (X% + (Y% * 320&) + VARPTR(ScnBuf(2))), pixelã END IFã WHILE e% >= 0ã Y% = Y% + SY%: e% = e% - (dx% + dx%)ã WENDã X% = X% + SX%: e% = e% + dy% + dy%ã NEXTã END IFãã IF X2% > 0 AND X2% < 319 AND Y2% > 0 AND Y2% < 199 THENã POKE (X2% + (Y2% * 320&) + VARPTR(ScnBuf(2))), pixelã END IFããX% = SX(coord1): Y% = SY(coord1)ãX2% = SX(coord3): Y2% = SY(coord3)ãã i% = 0: steep% = 0: e% = 0ã tmp = X2% - X%: SX% = SGN(tmp): dx% = ABS(tmp)ã tmp = Y2% - Y%: SY% = SGN(tmp): dy% = ABS(tmp)ã IF (dy% > dx%) THENã steep% = 1ã SWAP X%, Y%ã SWAP dx%, dy%ã SWAP SX%, SY%ã END IFã e% = dy% + dy% - dx%ã IF steep = 1 THENã FOR i% = 0 TO dx% - 1ã IF Y% > 0 AND Y% < 319 AND X% > 0 AND X% < 199 THENã POKE (Y% + (X% * 320&) + VARPTR(ScnBuf(2))), pixelã END IFã WHILE e% >= 0ã Y% = Y% + SY%: e% = e% - (dx% + dx%)ã WENDã X% = X% + SX%: e% = e% + (dy% + dy%)ã NEXTã ELSEã FOR i% = 0 TO dx% - 1ã IF X% > 0 AND X% < 319 AND Y% > 0 AND Y% < 199 THENã POKE (X% + (Y% * 320&) + VARPTR(ScnBuf(2))), pixelã END IFã WHILE e% >= 0ã Y% = Y% + SY%: e% = e% - (dx% + dx%)ã WENDã X% = X% + SX%: e% = e% + dy% + dy%ã NEXTã END IFãã IF X2% > 0 AND X2% < 319 AND Y2% > 0 AND Y2% < 199 THENã POKE (X2% + (Y2% * 320&) + VARPTR(ScnBuf(2))), pixelã END IFããNEXT kãEND SUBãMatt Bross 3D ANIMATED PLASMA-CUBE ebross@mixcom.com 06-06-97 (17:08) QB, QBasic, PDS 929 31846 PCUBE.BAS 'PCUBE.BAS by Matt Brossã'Homepage - http://www.GeoCities.Com/SoHo/7067/ã'Email - oh_bother@GeoCities.ComããDEFINT A-ZãREM RICH GELDREICHãDECLARE FUNCTION GetByte% ()ãDECLARE SUB BufferWrite (a%)ãDECLARE SUB MakeGif (a$, ScreenX%, ScreenY%, Xstart%, YStart%, Xend%, Yend%, NumColors%, AdaptorType%)ãDECLARE SUB PutByte (a%)ãDECLARE SUB PutCode (a%)ããDECLARE SUB ScanLeftSide (X1%, Y1%, C1%, X2%, Y2%, C2%, PSide%)ãDECLARE SUB ScanRightSide (X1%, Y1%, C1%, X2%, Y2%, C2%, PSide%)ãDECLARE SUB ScanConvert (X1%, Y1%, C1%, X2%, Y2%, C2%, PSide%)ãDECLARE SUB TextureMap (MinY%, MaxY%)ããDECLARE SUB SetPal (c%, R%, G%, B%)ãDECLARE SUB ReadPal (c%)ããCONST TRUE% = -1, FALSE% = NOT TRUE, PI# = 22 / 7ãCONST TOP = 0, LEFT = 1, RIGHT = 2, BOTTOM = 3ããRANDOMIZE TIMERã'ON ERROR GOTO ErrorHandlerãTYPE PointTypeã X AS INTEGER 'X coordinateã Y AS INTEGER 'Y coordinateã Z AS INTEGER 'Z coordinateã SHADE AS INTEGER 'shade of pointsã Distance AS INTEGER'distance from the origin (0, 0, 0)ãEND TYPEãTYPE PolyTypeã C1 AS INTEGER 'number of the first point of a polygonã C2 AS INTEGER 'number of the second point of a polygonã C3 AS INTEGER 'number of the third point of a polygonã C4 AS INTEGER 'number of the forth point of a polygonã culled AS INTEGER 'TRUE if the polygon isn't visibleã AvgZ AS INTEGER 'used to sort Z coordinates of polygonsã Tex AS INTEGER 'texture of the polygonãEND TYPEãTYPE FillTypeã X1 AS LONG 'starting Y coordinateã X2 AS LONG 'ending Y coordinateã Clr1 AS INTEGER 'starting colorã Clr2 AS INTEGER 'ending colorã PX1 AS INTEGER 'starting x coordinate of pictureã PX2 AS INTEGER 'ending x coordinate of pictureã PY1 AS INTEGER 'starting y coordinate of pictureã PY2 AS INTEGER 'ending y coordinate of pictureãEND TYPEãTYPE RGBã R AS INTEGERã G AS INTEGERã B AS INTEGERãEND TYPEã'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%INFO%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%ãSCREEN 0, 0, 0, 0: WIDTH 80, 25: CLSãPRINT "PCUBE.BAS by Matt Bross, 1997"ãPRINTãPRINT "3D ANIMATION FOR THE QBASIC LANGUAGE"ãPRINT "COPYRIGHT MATT BROSS. USE FREELY AS"ãPRINT "LONG AS CREDIT IS GIVEN."ãPRINTãPRINT "--------CONTROLS--------"ãPRINT " 0 - reset rotation"ãPRINT " 5 - stop rotation"ãPRINT " S - reset location"ãPRINT " A - stop translation"ãPRINT " 2, 8 - rotate around x axis"ãPRINT " 4, 6 - rotate around y axis"ãPRINT " -, + - rotate around z axis"ãPRINT " I, K - translate vertically"ãPRINT " J, L - translate horizontally"ãPRINT " Z, X - translate depthwise"ãPRINT " - reverse palette rotation"ãPRINT " V - random palette rotation"ãPRINT " Esc - exit"ãPRINT "----CASE INSENSITIVE----"ãPRINTã'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%VARIABLES%%%%%%%%%%%%%%%%%%%%%%%%%%%%%ãSRX = 320: SRY = 200 'SRX, SRY = the screen's resolutionãDX = SRX \ 2: DY = SRY \ 2 'DX, DY = center of screenãD& = 200: SD = 340 'viewer's distance from objectã'%%%%%%%%%%%%%%%%%%%%%%%%%%GOURAUD SHADE ARRAYS%%%%%%%%%%%%%%%%%%%%%%%%%ãREM $DYNAMICãDIM SHARED Scan(199) AS FillTypeã'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%GIF STUFF%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%ãDIM SHARED OutBuffer$, OStartAddress, OAddress, OEndAddress, OsegãDIM SHARED CodeSize, CurrentBit, Char&, BlockLengthãDIM SHARED Shift(7) AS LONGãDIM SHARED X, Y, Minx, MinY, MaxX, MaxY, Done, GIFFile, LastLoc&ãShiftTable: DATA 1, 2, 4, 8, 16, 32, 64, 128ã'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%SIN TABLES%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%ã'SIN\COS table for 2 PI radians and then scale 1024 times for faster math.ãDIM SHARED SINTABLE(459) AS LONGãFOR i = 0 TO 459 'COS(X) = SIN(X + 90)ã SINTABLE(i) = COS(i * PI / 180) * 1024 'use 1024 to shift binary digitsãNEXT i 'over 6 bits.ã'%%%%%%%%%%%%%%%%%%%%%%%%DOUBLE BUFFERING ARRAYS%%%%%%%%%%%%%%%%%%%%%%%%ãDIM SHARED ScnBuf(32001) 'DIM array to serve as page in SCREEN 13ãScnBuf(0) = 320 * 8 'set length (x) * 8ãScnBuf(1) = 200 'set height (y)ãDEF SEG = VARSEG(ScnBuf(2)) 'get segment of beginning of array dataãAofs& = VARPTR(ScnBuf(2)) 'get offset of beginning of array dataã'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%LIGHT TABLES%%%%%%%%%%%%%%%%%%%%%%%%%%%%ã'Location of light source in spherical coordinatesãL1 = 70: L1 = L1 MOD 360: IF L1 < 0 THEN L1 = L1 + 360ãL2 = 40: L2 = L2 MOD 360: IF L2 < 0 THEN L2 = L2 + 360ãS1& = SINTABLE(L1 + 90): C1& = SINTABLE(L1)ãS2& = SINTABLE(L2 + 90): C2& = SINTABLE(L2)ãLX = S1& * C2& \ 8192: LY = S1& * S2& \ 8192 '8192 = 1024 * 1024 \ 128ãLZ = C1& \ 8 '8 = 1024 \ 128ã'find distance from light source to origin (0, 0, 0)ãLightDistance& = SQR(LX * LX + LY * LY + LZ * LZ) * 8 '8 = 1024 \ 128ã'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%LOAD OBJECT%%%%%%%%%%%%%%%%%%%%%%%%%%%%%ãRESTORE ObjectDataãREAD MaxPoints, MaxPolysãDIM Points(MaxPoints) AS PointType 'at startãDIM ScnPnts(MaxPoints) AS PointType 'after rotationãDIM SX(MaxPoints), SY(MaxPoints) 'points drawn to screenãFOR i = 1 TO MaxPoints 'Load and Center Pointsã READ X, Y, Z: Points(i).X = X: Points(i).Y = Y: Points(i).Z = Zã CX = CX + X: CY = CY + Y: CZ = CZ + ZãNEXT iãCX = CX \ MaxPoints: CY = CY \ MaxPoints: CZ = CZ \ MaxPointsãFOR i = 1 TO MaxPointsã Points(i).X = Points(i).X - CXã Points(i).Y = Points(i).Y - CYã Points(i).Z = Points(i).Z - CZã X = Points(i).X: Y = Points(i).Y: Z = Points(i).Zã 'find distance from point to the origin (0, 0, 0)ã PointDistance& = SQR(X * X + Y * Y + Z * Z) * 1024&ã Points(i).Distance = PointDistance& * LightDistance& \ 1048576 '1024 * 1024ã ScnPnts(i).Distance = Points(i).DistanceãNEXT iã'Load Polygon DataãDIM SHARED P(MaxPolys) AS PolyType 'stores all polygon dataãFOR i = 1 TO MaxPolys: READ P(i).C1, P(i).C2, P(i).C3, P(i).C4: NEXT iããPRINT "Press a Key"ãDO: LOOP UNTIL INKEY$ <> ""ã'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%SET PALETTE%%%%%%%%%%%%%%%%%%%%%%%%%%%%%ãSCREEN 13: CLSãDIM R(1 TO 255), G(1 TO 255), B(1 TO 255)ãDIM SHARED PalR AS RGBãRC = 1: GC = 1: BC = 1ãFOR c = 0 TO 31ã i = c + cã SetPal c, i, i, i 'grayã SetPal c + 32, i, 0, 0 'redã SetPal c + 64, i, i \ 2, 0 'orangeã SetPal c + 96, i, i, 0 'yellowã SetPal c + 128, 0, i, 0 'greenã SetPal c + 160, 0, i, i 'cyanã SetPal c + 192, 0, 0, i 'blueã SetPal c + 224, i, 0, i 'purpleãNEXT cãFOR i = 1 TO 255ã ReadPal iã R(i) = PalR.R: G(i) = PalR.G: B = PalR.BãNEXTã'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%LOAD TEXTURE%%%%%%%%%%%%%%%%%%%%%%%%%%%%ãDIM QTable(1 TO 3, 1 TO 3)ãRESTORE QDataããQData:ãDATA 2, 3, 2ãDATA 3, 1, 3ãDATA 2, 3, 2ããFOR j = 1 TO 3ã READ QTable(1, j), QTable(2, j), QTable(3, j)ãNEXTããDIM SHARED PWidth%, PHeight%ãPWidth% = 50: PHeight% = 50ãDIM SHARED Texture(PWidth%, PHeight%)ã'make random pictureãFOR j = 0 TO PHeight%ã FOR i = 0 TO PWidth%ã PSET (i, j), RND * 10ã NEXT iãNEXT jããFOR i = 0 TO PWidth%ã Texture(i, 0) = POINT(i, 1)ã Texture(i, PHeight%) = POINT(i, PHeight%)ãNEXT iãFOR j = 0 TO PHeight%ã Texture(0, j) = POINT(1, j)ã Texture(PWidth%, j) = POINT(PWidth%, j)ãNEXT jããtimes = 6ã'run through quantization arrayãFOR pass = 1 TO timesã FOR j = 1 TO PHeight% - 1ã FOR i = 1 TO PWidth% - 1ã c = POINT(i - 1, j - 1) * QTable(1, 1)ã c = c + POINT(i, j - 1) * QTable(2, 1)ã c = c + POINT(i + 1, j - 1) * QTable(3, 1)ã c = c + POINT(i - 1, j) * QTable(1, 2)ã c = c + POINT(i + 1, j) * QTable(3, 2)ã c = c + POINT(i - 1, j + 1) * QTable(1, 3)ã c = c + POINT(i, j + 1) * QTable(2, 3)ã c = c + POINT(i + 1, j + 1) * QTable(3, 3)ã c = c \ 8ã c = (c + Texture(i, j) * QTable(2, 2)) \ 2ã Texture(i, j) = c MOD 255ã NEXT iã NEXT jãã FOR j = 1 TO PHeight% - 1ã Texture(0, j) = POINT(1, j)ã Texture(PWidth%, j) = POINT(PWidth% - 1, j)ã NEXT jã FOR i = 1 TO PWidth% - 1ã Texture(i, 0) = POINT(i, 1)ã Texture(i, PHeight%) = POINT(i, PHeight% - 1)ã NEXT iãã Texture(0, 0) = POINT(1, 1)ã Texture(0, PHeight%) = POINT(1, PHeight% - 1)ã Texture(PWidth%, 0) = POINT(PWidth% - 1, 1)ã Texture(PWidth%, PHeight%) = POINT(PWidth% - 1, PHeight% - 1)ãã FOR j = 1 TO PHeight% - 1ã FOR i = 1 TO PWidth% - 1ã PSET (i, j), Texture(i, j)ã NEXT iã NEXT jãNEXT passã'------------------------------>BEGIN MAIN LOOP<------------------------ãt# = TIMERãDOã'*********************************GET KEY*******************************ãDEF SEG = 0: K = INP(&H60): WHILE LEN(INKEY$): WENDãDEF SEG = VARSEG(ScnBuf(2))ãSELECT CASE Kã CASE &H52 '0ã R1 = 0: R2 = 0: R3 = 0ã D1 = 0: D2 = 0: D3 = 0ã CASE &H4C '5ã D1 = 0: D2 = 0: D3 = 0ã CASE &H1E 'Aã MX = 0: MY = 0: MZ = 0ã CASE &H1F 'Sã MX = 0: MY = 0: MZ = 0ã MMX = 0: MMY = 0: MMZ = 0ã CASE &H50 '2ã D1 = D1 - 1ã CASE &H48 '8ã D1 = D1 + 1ã CASE &H4B '4ã D2 = D2 - 1ã CASE &H4D '6ã D2 = D2 + 1ã CASE &HD '+, =ã D3 = D3 - 1ã CASE &HC '_, -ã D3 = D3 + 1ã CASE &H17 'Iã MY = MY + 1ã CASE &H25 'Kã MY = MY - 1ã CASE &H24 'Jã MX = MX + 1ã CASE &H26 'Lã MX = MX - 1ã CASE &H2C 'Zã MZ = MZ + 1ã CASE &H2D 'Dã MZ = MZ - 1ã CASE 1 'ESCã GOTO ShutDownã CASE &H22 'Gã INPUT "SAVE SCREEN as .GIF"; S$ã IF LEFT$(UCASE$(S$), 1) = "Y" THENã INPUT "Input Filename:", file$ã IF RIGHT$(UCASE$(file$), 4) <> ".GIF" THEN file$ = file$ + ".GIF"ã PUT (0, 0), ScnBuf, PSETã MakeGif file$, 320, 200, 0, 0, 319, 199, 256, 2ã END IFã CASE &H39 'SPACEã RC = -RC: GC = -GC: BC = -BCã CASE &H2F 'Vã RC = INT(RND * 5) - 3ã GC = INT(RND * 5) - 3ã BC = INT(RND * 5) - 3ãEND SELECTã'*********************************ROTATION******************************ã'keep SINes and COSines in array limitsãR1 = (R1 + D1) MOD 360: IF R1 < 0 THEN R1 = 360 + R1ãR2 = (R2 + D2) MOD 360: IF R2 < 0 THEN R2 = 360 + R2ãR3 = (R3 + D3) MOD 360: IF R3 < 0 THEN R3 = 360 + R3ã'********************************TRANSLATION****************************ãMMX = MMX + MX: MMY = MMY + MY: MMZ = MMZ + MZã'Keeps variables within limits of integersãIF MMX > 32767 THEN MMX = 32767ãIF MMY > 250 THEN MMY = 250ãIF MMZ > 120 THEN MMZ = 120ãIF MMX < -32767 THEN MMX = -32767ãIF MMY < -120 THEN MMY = -120ãIF MMZ < -327 THEN MMZ = -327ã'*******************************MOVE OBJECT*****************************ãS1& = SINTABLE(R1 + 90): C1& = SINTABLE(R1)ãS2& = SINTABLE(R2 + 90): C2& = SINTABLE(R2)ãS3& = SINTABLE(R3 + 90): C3& = SINTABLE(R3)ãFOR i = 1 TO MaxPointsã'rotate points around the Y axisã TEMPX = (Points(i).X * C2& - Points(i).Z * S2&) \ 1024ã TEMPZ = (Points(i).X * S2& + Points(i).Z * C2&) \ 1024ã'rotate points around the X axisã ScnPnts(i).Z = (TEMPZ * C1& - Points(i).Y * S1&) \ 1024ã TEMPY = (TEMPZ * S1& + Points(i).Y * C1&) \ 1024ã'rotate points around the Z axisã ScnPnts(i).X = (TEMPX * C3& + TEMPY * S3&) \ 1024ã ScnPnts(i).Y = (TEMPY * C3& - TEMPX * S3&) \ 1024ã'******************************CONVERT 3D TO 2D*************************ãTEMPZ = ScnPnts(i).Z + MMZ - SDãIF TEMPZ < zero THEN 'only calculate points visible by viewerã SX(i) = D& * (ScnPnts(i).X + MMX) \ TEMPZ + DXã SY(i) = D& * (ScnPnts(i).Y + MMY) \ TEMPZ + DYãEND IFã'*******************************SHADE POINTS****************************ãX1 = ScnPnts(i).X: Y1 = ScnPnts(i).Y: Z1 = ScnPnts(i).ZãS = (X1 * LX + Y1 * LY + Z1 * LZ) \ ScnPnts(i).Distance + 128ã SHADE = S \ 8ã IF SHADE < 0 THEN SHADE = 0ã IF SHADE > 31 THEN SHADE = 31ã ScnPnts(i).SHADE = SHADEãNEXTãFOR i = 1 TO MaxPolysã'*************************CULL NON-VISIABLE POLYGONS********************ãCoord1 = P(i).C1: Coord2 = P(i).C2ãCoord3 = P(i).C3: Coord4 = P(i).C4ãZ1 = ScnPnts(Coord1).Z: Z2 = ScnPnts(Coord2).ZãZ3 = ScnPnts(Coord3).Z: Z4 = ScnPnts(Coord4).Zã'******************FIND AVERAGE Z COORDINATE OF EACH POLYGON************ãP(i).AvgZ = (Z1 + Z2 + Z3 + Z4) \ 4ãNEXT iã'******************SORT POLGONS BY THEIR AVERAGE Z COORDINATE***********ãincrement = MaxPolys + 1ãDOãincrement = increment \ 2ãFOR index = 1 TO MaxPolys - incrementã IF P(index).AvgZ > P(index + increment).AvgZ THENã SWAP P(index), P(index + increment)ã IF index > increment THENã cutpoint = indexã DOã index = (index - increment): IF index < 1 THEN index = 1ã IF P(index).AvgZ > P(index + increment).AvgZ THENã SWAP P(index), P(index + increment)ã ELSEã index = cutpoint: EXIT DOã END IFã LOOPã END IFã END IFãNEXT indexãLOOP UNTIL increment <= 1ã'******************************DRAW POLYGONS****************************ã'clear screen buffer. Use a 320 by 200 BLOADable graphic for a background.ãERASE ScnBuf: REDIM ScnBuf(32001): ScnBuf(0) = 2560: ScnBuf(1) = SRYããFOR K = 1 TO MaxPolysããX1 = SX(P(K).C1): Y1 = SY(P(K).C1): C1 = ScnPnts(P(K).C1).SHADEãX2 = SX(P(K).C2): Y2 = SY(P(K).C2): C2 = ScnPnts(P(K).C2).SHADEãX3 = SX(P(K).C3): Y3 = SY(P(K).C3): C3 = ScnPnts(P(K).C3).SHADEãX4 = SX(P(K).C4): Y4 = SY(P(K).C4): C4 = ScnPnts(P(K).C4).SHADEããYMin = Y1: YMax = Y1ãIF Y2 < YMin THEN YMin = Y2ãIF Y2 > YMax THEN YMax = Y2ãIF Y3 < YMin THEN YMin = Y3ãIF Y3 > YMax THEN YMax = Y3ãIF Y4 < YMin THEN YMin = Y4ãIF Y4 > YMax THEN YMax = Y4ããScanConvert X1, Y1, C1, X2, Y2, C2, TOPãScanConvert X2, Y2, C2, X3, Y3, C3, RIGHTãScanConvert X3, Y3, C3, X4, Y4, C4, BOTTOMãScanConvert X4, Y4, C4, X1, Y1, C1, LEFTããTextureMap YMin, YMaxããNEXT KããPUT (0, 0), ScnBuf, PSET 'dump array to screen, like PCOPYãã'rotate paletteãFOR i = 1 TO 255ã SetPal i, R(i), G(i), B(i)ã R(i) = (R(i) + RC) MOD 63: IF R < 0 THEN R = R + 63ã G(i) = (G(i) + BC) MOD 63: IF G < 0 THEN G = G + 63ã B(i) = (B(i) + GC) MOD 63: IF B < 0 THEN B = B + 63ãNEXTããF& = F& + 1ããLOOPã'------------------------------>END MAIN LOOP<--------------------------ãShutDown:ãDEF SEGãSCREEN 0, 0, 0, 0: WIDTH 80, 25: CLSãPRINT "PCUBE.BAS by Matt Bross, 1997"ãPRINT : PRINT "Frames Per Second:"; F& / (TIMER - t#)ãPRINT : PRINT "Free space"ãPRINT " String Array Stack"ãPRINT STRING$(21, "-")ãPRINT FRE(""); FRE(-1); FRE(-2)ãSLEEPãENDããErrorHandler:ãRESUME NEXTããObjectData:ãDATA 8, 6ãDATA -50, 50, 50ãDATA 50, 50, 50ãDATA 50, -50, 50ãDATA -50, -50, 50ãDATA -50, 50, -50ãDATA 50, 50, -50ãDATA 50, -50, -50ãDATA -50, -50, -50ããDATA 4, 3, 2, 1ãDATA 5, 6, 7, 8ãDATA 3, 4, 8, 7ãDATA 1, 2, 6, 5ãDATA 5, 8, 4, 1ãDATA 2, 3, 7, 6ããREM $STATICã'Puts a byte into the disk buffer... when the disk buffer is full it isã'dumped to disk.ãSUB BufferWrite (a) STATICãã IF OAddress = OEndAddress THEN 'are we at the end of the buffer?ã PUT GIFFile, , OutBuffer$ ' yup, write it out andã OAddress = OStartAddress ' start all overã END IFã POKE OAddress, a 'put byte in bufferã OAddress = OAddress + 1 'increment positionãEND SUBãã'This routine gets one pixel from the display.ãFUNCTION GetByte STATICãã GetByte = POINT(X, Y) 'get the "byte"ã X = X + 1 'increment X coordinateã IF X > MaxX THEN 'are we too far?ã LINE (Minx, Y)-(MaxX, Y), 0 'a pacifier for impatient usersã X = Minx 'go back to startã Y = Y + 1 'increment Y coordinateã IF Y > MaxY THEN 'are we too far down?ã Done = TRUE ' yup, flag it thenã END IFã END IFãEND FUNCTIONãã'ã'-----------------------------------------------------------------------ã' PDS 7.1 & QB4.5 GIF Compression Routine v1.00 By Rich Geldreich 1992ã'-----------------------------------------------------------------------ã'ã'A$ = output filenameã'ScreenX = X resolution of screen(320, 640, etc.)ã'ScreenY = Y resolution of screen(200, 350, 480, etc.)ã'XStart = <-upper left hand corner of area to encodeã'YStart = < " "ã'Xend = <-lower right hand corner of area to encodeã'Yend = < " "ã'NumColors = # of colors on screen(2, 16, 256)ã'AdaptorType = 1 for EGA 2 for VGAã'NOTE: EGA palettes are not supported in this version of MakeGIF.ã'ãSUB MakeGif (a$, ScreenX, ScreenY, Xstart, YStart, Xend, Yend, NumColors, AdaptorType)ã 'hash table's size - must be a prime number!ã CONST Table.Size = 7177ãã DIM Prefix(Table.Size - 1), Suffix(Table.Size - 1), code(Table.Size - 1)ã ã 'The shift table contains the powers of 2 needed by theã 'PutCode routine. This is done for speed. (much faster toã 'look up an integer than to perform calculations...)ã RESTORE ShiftTableã FOR a = 0 TO 7: READ Shift(a): NEXTã ã 'MinX, MinY, MaxX, MaxY have the encoding windowã Minx = Xstart: MinY = YStartã MaxX = Xend: MaxY = Yendã ã 'Open GIF output fileã GIFFile = FREEFILE 'use next free fileã OPEN a$ FOR BINARY AS GIFFileã ã 'Put GIF87a header at beginning of fileã B$ = "GIF87a"ã PUT GIFFile, , B$ã ã 'See how many colors are in this image...ã SELECT CASE NumColorsã CASE 2 'monochrome imageã BitsPixel = 1 '1 bit per pixelã StartSize = 3 'first LZW code is 3 bitsã StartCode = 4 'first free codeã StartMax = 8 'maximum code in 3 bitsãã CASE 16 '16 colors imagesã BitsPixel = 4 '4 bits per pixelã StartSize = 5 'first LZW code is 5 bitsã StartCode = 16 'first free codeã StartMax = 32 'maximum code in 5 bitsã ã CASE 256 '256 color imagesã BitsPixel = 8 '8 bits per pixelã StartSize = 9 'first LZW code is 9 bitsã StartCode = 256 'first free codeã StartMax = 512 'maximum code in 9 bitsã END SELECTã 'This following routine probably isn't needed- I've neverã 'had to use the "ColorBits" variable... With the EGA, youã 'have 2 bits for Red, Green, & Blue. With VGA, you have 6 bits.ã SELECT CASE AdaptorTypeã CASE 1ã ColorBits = 2 'EGAã CASE 2ã ColorBits = 6 'VGAã END SELECTã ã PUT GIFFile, , ScreenX 'put screen's dimensionsã PUT GIFFile, , ScreenYã 'pack colorbits and bits per pixelã a = 128 + (ColorBits - 1) * 16 + (BitsPixel - 1)ã PUT GIFFile, , aã 'throw a zero into the GIF fileã a$ = CHR$(0)ã PUT GIFFile, , a$ã 'Get the RGB palette from the screen and put it into the file...ã SELECT CASE AdaptorTypeã CASE 1ã STOPã 'EGA palette routine not implemented yetã CASE 2ã OUT &H3C7, 0ã FOR a = 0 TO NumColors - 1ã 'Note: a BIOS call could be used here, but then we have to useã 'the messy CALL INTERRUPT subs...ã R = (INP(&H3C9) * 65280) \ 16128 'C=R * 4.0476190(for 0-255)ã G = (INP(&H3C9) * 65280) \ 16128ã B = (INP(&H3C9) * 65280) \ 16128ã a$ = CHR$(R): PUT GIFFile, , a$ã a$ = CHR$(G): PUT GIFFile, , a$ã a$ = CHR$(B): PUT GIFFile, , a$ã NEXTã END SELECTã ã 'write out an image descriptor...ã a$ = "," '"," is image seperatorã PUT GIFFile, , a$ 'write itã PUT GIFFile, , Minx 'write out the image's locationã PUT GIFFile, , MinYã ImageWidth = (MaxX - Minx + 1) 'find length & width of imageã ImageHeight = (MaxY - MinY + 1)ã PUT GIFFile, , ImageWidth 'store them into the fileã PUT GIFFile, , ImageHeightã a$ = CHR$(BitsPixel - 1) '# bits per pixel in the imageã PUT GIFFile, , a$ã ã a$ = CHR$(StartSize - 1) 'store the LZW minimum code sizeã PUT GIFFile, , a$ã ã 'Initialize the vars needed by PutCodeã CurrentBit = 0: Char& = 0ã ã MaxCode = StartMax 'the current maximum code sizeã CodeSize = StartSize 'the current code sizeã ClearCode = StartCode 'ClearCode & EOF code are theã EOFCode = StartCode + 1 ' first two entriesã StartCode = StartCode + 2 'first free code that can be usedã NextCode = StartCode 'the current codeã ã OutBuffer$ = STRING$(5000, 32) 'output buffer; for speedy disk writesã a& = SADD(OutBuffer$) 'find address of bufferã a& = a& - 65536 * (a& < 0)ã Oseg = VARSEG(OutBuffer$) + (a& \ 16) 'get segment + offset >> 4ã OAddress = a& AND 15 'get address into segmentã OEndAddress = OAddress + 5000 'end of disk bufferã OStartAddress = OAddress 'current location in disk bufferã DEF SEG = Osegãã GOSUB ClearTree 'clear the tree & output aã PutCode ClearCode ' clear codeã ã X = Xstart: Y = YStart 'X & Y have the current pixelã Prefix = GetByte 'the first pixel is a special caseã Done = FALSE 'True when image is completeã ã DO 'while there are more pixels to encodeãã DO 'until we have a new string to put into the tableãã IF Done THEN 'write out the last pixel, clear the disk bufferã 'and fix up the last block so its count is correctã ã PutCode Prefix 'write last pixelã PutCode EOFCode 'send EOF codeã ã IF CurrentBit <> 0 THENã PutCode 0 'flush out the last code...ã END IFã PutByte 0ãã OutBuffer$ = LEFT$(OutBuffer$, OAddress - OStartAddress)ã PUT GIFFile, , OutBuffer$ã a$ = ";" + STRING$(8, &H1A) 'the 8 EOF chars is not standard,ã 'but many GIF's have them, so howã 'much could it hurt?ã PUT GIFFile, , a$ã ã a$ = CHR$(255 - BlockLength) 'correct the last block's countã PUT GIFFile, LastLoc&, a$ã ã CLOSE GIFFileã EXIT SUBã ELSE 'get a pixel from the screen and see if we can findã 'the new string in the tableã Suffix = GetByteã GOSUB Hash 'is it there?ã IF Found = TRUE THEN Prefix = code(index) 'yup, replace theã 'prefix:suffix string with whateverã 'code represents it in the tableã END IFã LOOP WHILE Found 'don't stop unless we find a new stringã ã PutCode Prefix 'output the prefix to the fileã ã Prefix(index) = Prefix 'put the new string in the tableã Suffix(index) = Suffixã code(index) = NextCode 'we've got to keep track if what code this is!ã ã Prefix = Suffix 'Prefix=the last pixel pulled from the screenã ã NextCode = NextCode + 1 'get ready for the next codeã IF NextCode = MaxCode + 1 THEN 'can an output code ever exceedã 'the current code size?ã 'yup, increase the code sizeãã MaxCode = MaxCode * 2ã ã 'Note: The GIF89a spec mentions something about a deferred clearã 'code. When the clear code is deferred, codes are not enteredã 'into the hash table anymore. When the compression of the imageã 'starts to fall below a certain threshold, the clear code isã 'sent and the hash table is cleared. The overall result isã 'greater compression, because the table is cleared less often.ã 'This version of MakeGIF doesn't support this, because some GIFã 'decoders crash when they attempt to enter too many codesã 'into the string table.ãã IF CodeSize = 12 THEN 'is the code size too big?ã PutCode ClearCode 'yup; clear the table andã GOSUB ClearTree 'start overã NextCode = StartCodeã CodeSize = StartSizeã MaxCode = StartMaxããã ELSEã CodeSize = CodeSize + 1 'just increase the code size ifã END IF 'it's not too high( not > 12)ã END IFã ã LOOP 'while we have more pixelsãClearTree:ã FOR a = 0 TO Table.Size - 1 'clears the hashing tableã Prefix(a) = -1 '-1 = invalid entryã Suffix(a) = -1ã code(a) = -1ã NEXTãRETURNã'this is only one of a plethora of ways to search the table forã'a match! I used a binary tree first, but I switched to hashingã'cause it's quicker(perhaps the way I implemented the tree wasn'tã'optimal... who knows!)ãHash:ã 'hash the prefix & suffix(there are also many ways to do this...)ã '?? is there a better formula?ã index = ((Prefix * 256&) XOR Suffix) MOD Table.Sizeã 'ã '(Note: the table size(7177 in this case) must be a prime number, orã 'else there's a chance that the routine will hang up... hate whenã 'that happens!)ã 'ã 'Calculate an offset just in case we don't find what we want on theã 'first try...ã IF index = 0 THEN 'can't have Table.Size-0 !ã Offset = 1ã ELSEã Offset = Table.Size - indexã END IFã ã DO 'until we (1) find an empty entry or (2) find what we're lookin forã ã ã IF code(index) = -1 THEN 'is this entry blank?ã Found = FALSE 'yup- we didn't find the stringã RETURNã 'is this entry the one we're looking for?ã ELSEIF Prefix(index) = Prefix AND Suffix(index) = Suffix THENã 'yup, congrats you now understand hashing!!!ã ã Found = TRUEã RETURNã ELSEã 'shoot! we didn't find anything interesting, so we mustã 'retry- this is what slows hashing down. I could of usedã 'a bigger table, that would of speeded things up a littleã 'because this retrying would not happen as often...ã index = index - Offsetã IF index < 0 THEN 'too far down the table?ã 'wrap back the index to the end of the tableã index = index + Table.Sizeã END IFã END IFã LOOPãEND SUBãã'Puts a byte into the GIF file & also takes care of each block.ãSUB PutByte (a) STATICã BlockLength = BlockLength - 1 'are we at the end of a block?ã IF BlockLength <= 0 THEN ' yup,ã BlockLength = 255 'block length is now 255ã LastLoc& = LOC(1) + 1 + (OAddress - OStartAddress) 'remember the pos.ã BufferWrite 255 'for later fixingã END IFã BufferWrite a 'put a byte into the bufferãEND SUBãã'Puts an LZW variable-bit code into the output file...ãSUB PutCode (a) STATICã Char& = Char& + a * Shift(CurrentBit) 'put the char were it belongs;ã CurrentBit = CurrentBit + CodeSize ' shifting it to its proper placeãDO WHILE CurrentBit > 7 'do we have a least one full byte?ã PutByte Char& AND 255 ' yup! mask it off and write it outã Char& = Char& \ 256 'shift the bit buffer right 8 bitsã CurrentBit = CurrentBit - 8 'now we have 8 less bitsã LOOP 'until we don't have a full byteãEND SUBããSUB ReadPal (c)ã OUT &H3C7, cã PalR.R = INP(&H3C9)ã PalR.G = INP(&H3C9)ã PalR.B = INP(&H3C9)ãEND SUBããSUB ScanConvert (X1%, Y1%, C1%, X2%, Y2%, C2%, PSide)ããIF Y1% < 0 THEN Y1% = 0ãIF Y1% > 199 THEN Y1% = 199ãIF Y2% < 0 THEN Y2% = 0ãIF Y2% > 199 THEN Y2% = 199ããIF Y2% < Y1% THENã ScanLeftSide X2%, Y2%, C2%, X1%, Y1%, C1%, PSideãELSEã ScanRightSide X1%, Y1%, C1%, X2%, Y2%, C2%, PSideãEND IFããEND SUBããSUB ScanLeftSide (X1%, Y1%, C1%, X2%, Y2%, C2%, PSide)ããYDelta = (Y2% - Y1%)ãIF YDelta = 0 THEN YDelta = 1ãXadd& = (X2% - X1%) * 512& \ YDeltaãCSlope = (C2% - C1%) * 512& \ YDeltaããSELECT CASE PSideãCASE TOPã PX& = (PWidth% - 1) * 512&ã PY& = 0ã Pxadd& = -PWidth% * 512& \ YDeltaã PYadd& = 0ãCASE RIGHTã PX& = PWidth% * 512&ã PY& = PHeight% * 512&ã Pxadd& = 0ã PYadd& = -PHeight% * 512& \ YDeltaãCASE BOTTOMã PX& = 0ã PY& = PHeight% * 512&ã Pxadd& = PWidth% * 512& \ YDeltaã PYadd& = 0ãCASE LEFTã PX& = 0ã PY& = 0ã Pxadd& = 0ã PYadd& = PHeight% * 512& \ YDeltaãEND SELECTããX& = X1% * 512&ãCVAL& = C1% * 512&ãFOR Y% = 0 TO YDeltaã Scan(Y1% + Y%).X1 = X& 'polygon xã Scan(Y1% + Y%).PX1 = PX& 'picture xã Scan(Y1% + Y%).PY1 = PY& 'picture yã Scan(Y1% + Y%).Clr1 = CVAL& 'shadeã X& = X& + Xadd& 'Next polygon xã PX& = PX& + Pxadd& 'Next picture xã PY& = PY& + PYadd& 'Next picture yã CVAL& = CVAL& + CSlopeãNEXTãEND SUBããSUB ScanRightSide (X1%, Y1%, C1%, X2%, Y2%, C2%, PSide)ããYDelta = Y2% - Y1%: IF YDelta = 0 THEN YDelta = 1ãXadd& = (X2% - X1%) * 512& \ YDeltaãCSlope = (C2% - C1%) * 512& \ YDeltaããSELECT CASE PSideãCASE TOPã PX& = 0ã PY& = 0ã Pxadd& = PWidth% * 512& \ YDeltaã PYadd& = 0ãCASE RIGHTã PX& = PWidth% * 512&ã PY& = 0ã Pxadd& = 0ã PYadd& = PHeight% * 512& \ YDeltaãCASE BOTTOMã PX& = PWidth% * 512&ã PY& = PHeight% * 512&ã Pxadd& = -PWidth% * 512& \ YDeltaã PYadd& = 0ãCASE LEFTã PX& = 0ã PY& = PHeight% * 512&ã Pxadd& = 0ã PYadd& = -PHeight% * 512& \ YDeltaãEND SELECTããX& = X1% * 512&ãCVAL& = C1% * 512&ãFOR Y% = 0 TO YDeltaã Scan(Y1% + Y%).X2 = X& 'polygon xã Scan(Y1% + Y%).PX2 = PX& 'picture xã Scan(Y1% + Y%).PY2 = PY& 'picture yã Scan(Y1% + Y%).Clr2 = CVAL& 'shading valueã X& = X& + Xadd& 'Next polygon xã PX& = PX& + Pxadd& 'Next picture xã PY& = PY& + PYadd& 'Next picture yã CVAL& = CVAL& + CSlopeãNEXT Y%ãEND SUBããSUB SetPal (c, R, G, B)ãOUT &H3C8, cãOUT &H3C9, RãOUT &H3C9, GãOUT &H3C9, BãEND SUBããSUB TextureMap (MinY%, MaxY%)ããIF MinY% > 199 THEN EXIT SUBãIF MaxY% < 0 THEN EXIT SUBãIF MinY% < 0 THEN MinY% = 0ãIF MaxY% > 199 THEN MaxY% = 199ããY& = MinY% * 320& + VARPTR(ScnBuf(2))ããDEF SEG = VARSEG(ScnBuf(2))ããFOR Y% = MinY% TO MaxY%ã ã PolyX1% = Scan(Y%).X1 \ 512 'get left polygon xã PX1& = Scan(Y%).PX1 'get left picture xã PY1& = Scan(Y%).PY1 'get left picture yã C1 = Scan(Y%).Clr1ãã PolyX2% = Scan(Y%).X2 \ 512ã PX2& = Scan(Y%).PX2ã PY2& = Scan(Y%).PY2ã C2 = Scan(Y%).Clr2ã ã LineWidth% = PolyX2% - PolyX1% 'what is the width of this polygon lineã IF LineWidth% <> 0 THENã Pxadd& = (PX2& - PX1&) \ LineWidth%ã PYadd& = (PY2& - PY1&) \ LineWidth%ã CSlope = (C2 - C1) \ LineWidth%ã ELSEã Pxadd& = PX2& - PX1&ã PYadd& = PY2& - PY1&ã CSlope = C2 - C1ã END IFãã CVAL& = C1ã FOR X% = PolyX1% TO PolyX2%ã Col% = CVAL& \ 512ã TX = (PX1& \ 512): IF TX < 0 THEN TX = 0ã TY = (PY1& \ 512): IF TY < 0 THEN TY = 0ã IF TX > PWidth% THEN TX = PWidth%ã IF TY > PHeight% THEN TY = PHeight%ã Tex% = Texture(TX, TY)ã ColPlusTex% = Col% + Tex%ã IF (ColPlusTex% AND 31) <= Col% THENã ColPlusTex% = (Tex% \ 32) * 32 + 31ã END IFã ã IF X% > 0 AND X% < 319 THEN POKE (X% + Y&), ColPlusTex%ã PX1& = PX1& + Pxadd&ã PY1& = PY1& + PYadd&ã CVAL& = CVAL& + CSlopeã NEXTãã Y& = Y& + 320ããNEXTãEND SUBãSteve Skrla FULL FEATURED PAINT PROGRAM skrla@phoenix.net 06-03-97 (04:48) QB, QBasic, PDS 609 40345 PICDRAW2.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"PICDRAW2.ZIP",4^6:Z&=30029:?STRING$(50,177);ãU"%up()%9%%%7-%^98iGfV0p>K[#%%\D%%%.%%%%fg%tzyS[gqkfi56e]+[IJ/\OEãU"1ZTabByXQh6Frthx,tURO%Z]f]l'lSpRMx*-.6dX:ot,VBC%i7eE$E\#jcxwdxqãU"V_DxrvN^x=G82M/46ri;Yg#QHs^[-Fx;=\HasOY[G;j]cl$th3r&FGQo^qco[0bãU"HUTrx7=qsTnZvfn4fOG-$'EGC08+w[,V4cL7ovJ>0[5Q%7h<,UHF,qileenW,X\-da]7H_Xg)HHsXjd&UM]8:#qNEesdfE8iR:YV&\M;u5i=(?gVKãU"\=4j6Z>nva;Y2[?]\:7XxE#+A,OW?kvbm$i)n43>rg/a]p7Mb_c/g.?VLHnvq_6ãU"xjg5$EDq2psVv<;h2/1Gn:g#Vp\o_VA$a3rV<^%G1=M;L1eg0mv.<0j5uPm_BKRãU"$umhh=0d)2QAj9=jnBmH$f5FpQ[e3N[L=F,]*qNYKeeWU=aX%3gmeWxB6EP88*:ãU"(9pk3E'zEluW8$un$#nu$8xc13\[4(sxm*t<5jOãU".>:LsRGw?(]UV_YH0C*>scN$8d#X#S,JutGgngW=[O/Qs<4hxY$fGbO+SY%J8),ãU"?H659eP*&xUgS#D4O0vveWm<$[1UJ$lkG?hG1rr.U:$uQ8=(j-KiG8^Rm2bBV\=ãU"]G.pFQ7j$=isA6_P>Fj08?bO>t6?MRWoMI1[p^mu5c08kkryJ9]O7KK*sArbd9NãU"j+Kj9'd).V7^ZahUE-19^u.KOsUn(?&[aJ&['hU$_gI8(7Le'ouw(_vkxJo)nxo)d];O>#ãU"fCIY'aTi2:(WKrE]MpB[^iUM_LC:8p)]a=tqSn*9X)w]]nXZ>\9[0%8JK?Zu4qdpm)kp&XDfefm1AT;fnmMWF'NOs5dM*D-ac?DW#FqW]-B>AãU"ljmQo1h)dc/C'6u']6ONU70;o-^$UJZoq)r#D21g7]330g[Ez4u*cv8NQãU"#ka7K[kLH*&l7.?WH)SMc6-vvBHF*ePE+?_J.EUG6Q%V+K0/v/U[nPF;d(5S\a#I5s;-UcOãU"pPv4og]rBZ4t\86eeG*+Iw8&4/5#HhvsY(.9;G\Ny%ãU"frw4q+\m?;XAply_ky6x??v-MnQYlIqC8l0;2uN1SPD+4>9d+?)<;]0)Y7l1GViãU"hIaJth&G]^5?i?dRL8fma,EJ&U2V2n:oVxt'e5uC9^2z#'As>cIFs_gcI9=jAK_ãU"d[>BB?irhIRn8NhJvArkaaxYB>Iz)WAc$sE>ozfU_..gLr*Hf&EzzT4RBHOnZyBãU"Hlpd3BG,n\2]c1HkAQsH%.WTXp.l'r<(l]#m52-9[;'rX$iezc#*i%7O'.X]N$+ãU">7+1qb6Ws#sU:AeJ*MMdF27PY-u(A%t0CCObf3G<613t'c'9o:L)j=jpnB.OyktãU"PHXXCa=_3S1\];VatnwY>xU$8L]m_1qxv2)Wd2K=CCUyC#bc>VK9bx%8.V][B-Qxr9](T+B(3o2SBQ2qeGeq.iI/\:xkm\PnDMlx[yRf4WDk)1)3#w2XC&?XtH8;Gm*YnA=jI.o+\-LUãU"efEHROlW%lIl6lq;:PdLn^NR?*wA8g%P8bc9l&2(+=Szj<;75HZ1+OBG)FX8x=qãU";D:1J#GGm7)V.Fh)YS-axenS[u>+)2G=rI/rNx)rE%R^S?hsxA=pAC(8/Db_*lC=>>J03oEO_)KwVk=h>4lãU"9%pXvx2BdvU2$d7]IxWr2V$1:Lq&7O^OuvW$$BrcCJ<#k_EWxUZ-bkH;vãU"z^?i_?$_TbuJ4L?yHEdf7f,MtVW&MGccsb'n/;BWTQV8B>Uat&<-IY99$%Sg&J9ãU"ZVv:gXb?ef)C'7GIq=bKgC0=%E/(nLPqus0NAc6?OZj':Y7tF]qNY2.2#WwJ<%WãU"3oOJNag;xu%SEi,0$p2\e1gI0mT%.PxUabHFnpzc$?2\GqNpI4C)BXQRbjU&F5hãU"xB$*Ma4,;-cWr5KIc9rlK)i]DMmm-o]Chm*qjqpCM7nC:rJSwNT\E7OqULMt-].ãU"jT8D,9TfWaGs[6c.nxyD$MuOF]:L/lW.Z*KAYrZ$'Rr7jX7;kePc6oN_Q*iW$1mãU"dXGk_3d-$'cAlgF]j3VbrmkSijpyCGZ/b(CeJW4SJHbDVyJaQ.F/&$ta\.AX\jlm.%x+ãU"nE6;&HGPfJY]jdm=kBC%WDTD[Q_A+;XTHl8/dO?Bw%ZRCDTfGJMAdBy0Sud]o#.7D1*dfw=OR-zbRY.9()f+KãU",\lt,3_fHHDmXU>I)#$Tjbe7$G8VJ'3HpJ_#z.t8%vZNT6tB:NfTK2,5-3EqTCaãU"daW7U0+L4uzAp=t5c*EO$.$oCS,U[y_t\Om]:L2*uIT?FbWg,1bi^UaG=#hyQ+k&iT#U(hW+Vz]\%XXãU"+KdIvOewBh&dED$/NO*?%;YK^XZr>D\DM>5l3wSqlE_4H_k5iO1a*0'_PJMp4%jãU"3S/LX]2I3'Ve&,;0?_%u]NzKLiB$t)DC]?SR0piqUekKZPk]n2E;P-Z$O#f?)'fãU"(zS8;\?UFk^#%#kEWIi0uuqpTpC1xr2&22V'lg'HY7ZKcq9,YioK+eO_A0h1^6_ãU"VpCCl>6$Psx+h#1OUqQtei*pP-15N266e*MOw$&Vv*ti7J$tg[)8ãU"0Ss.S/dGNoi7DN7LOWrn/t5';PhwLz+km$dI_4\I+E]]^5uYFdGd^QãU"m2vAC]'/2+r'PM9tiB(p&*7BNs;Y/E,A;&30&Mv'\*h?j;um[r%CL(NeTOatHB\ãU"u<6:\F(C]*c]',[MVBj+(\5uQJ%'u0edlg%QF5TrMac[dfB0H.P)?T.gKRãU"QuiAHvq?O=<$N_:.b5d-Di,uZK5b6#k5cInm4Amgt$#q7ZhJGfga7AS3_kJFTC^ãU"k>*vjhc$+PPXXy.W4VaMN7Aj0$aVJnlToafa?>V6%SWA:ãU"s3UDUD#D&zQc(vCVdS$2wJJiTqwC1hsEkTEPySzOoa^U.>AT0K^:V_V[Or[4Yl5R,p5ãU",mpN:k\9a#W<*9Ei,9*$Ic43kr)=X#0kA+TbpdMlc5&tcBYo;HFx.ODXFK'X2nNãU";Eb_=YaR3RJKaj0*aq#\Xco](kfE^'1U25Pc>dG*H.DABXCJ\YX]vcu$(#.g1J#ãU"on-[C[9qy/7cJA^(l#4KO>u;\kUa1[Z4bH6d^t#rukK1n=)P)5TrYrlpYk3h6T>ãU"Ju3HoVZXTUcJH7NnMEMV5.Cw9x-tDUTf/8)E]csnz<[B,48^dfQdg(QAY:enUYUãU"-tj,lv-,g3cW=,8J$8Bc-ue\jf1IMhm$j5SGUsnYvLclm,\g\M-u#qu\]vN1^P5ãU"pIb-7cc_U:6t^VFVN=5l;\J1fCd\n,rAKn$OOiA*I5*^,WQw6+ZWp,oJ8T#7un1FQ4dS.Cd<*+,ãU"dS]$:Y1Q,f%MddBj6Kkw,4t'w?K^8NH'JqhM/XD_V?M*;AZ7Xr3rus?H4O#6vF9ãU"u$8.A6'f5ac$tmnp^]To\h3TU&=/u]TrD?)bE8/)//FX+&%1&v=N0.r8$(+;S.;D.-_vJS0Zuk&$w;a-9q6JW'i%rJS$HbuN$ãU"#zYurZ+0P;+WbD1vd,g3lA43k=GnqvGe(?DP)*$I7P5>eP<=7t2GYER7<^P^+FprxqF\-AL6HoFo=0Nh>_,e9P#a8E1kEIJFB6KF0J&aIãU"s\NNq,%OeIn]I+$,EM.=\l:VxECN<2Nrh-Z*wdYkO9kãU"qjXXU;>g0YHP(?u(Y'mPvVLKYF./*';COK7,HJ&v4?AY..m=Y=SO][nJ>]R(x0#W'C=&:jxb.^:UBY1c%&oHcQãU"uewI9Xr,V2\D'\n,U8705?Rfxcl=c%RpSnB.$TWp5e2LVZPOs&Gw:>Ze&;+\NEFãU"DJZRV/$)=z^$R)_Hh=sGv^OXw_>2_Yii]:[2u?R/M,fuguDlm/,gAEFD.fZ4fbA1I,MsOLH&jGcFnAr]ãU"8,D-dg'sR1l'3iX3498r:v+FeW&v4IãU"&Ulb\Ftuu1Mz[\]h/1KxAijmq)s,[=lxiX0CaGX3),emPDzvA''2]*mK,9TGcbgãU"5_VUKK*^,E.(D,pm',U>T^+J3c+GãU"wsH%^Q^vjnP?X-Q+Or[7GDDb_<$Gg0f^vD#Ta:8L1MbWP^u%$e\tA:5Sb=UE:>FsãU"nD^-u3'q?m*QpGt[RZ(tvh:\OYwZhPk?V6ad;sUWj:nc=C#pNW&.SfhqgFb5]$ãU"RN0CuX<\A4^8.LTq/G4'$u,Fbjb<]&frac>D[=iWM2V1Shy:,T\UnR#P?vABkC&FB>BmKd?dVkCB93p4\Zf26?/,a/#UsUD[hhATfL?3,6a)VCW#\7H/:*7ãU"ifN7eBOI6.;k/0vw9dwS47A7\tpG8iQ8kBFYLlo-pNHF1::[3\VXg?ly#:<#KCfãU"<;kJOP/4#c7f[2:6V*uP*DPGYwcOCs\v<+RXSe0JI>e1Q,U6fZiFXa9UCpLpiuHãU"NZO9n4VL4hykRa5E;e&7d^>FLG6AFcSlNi=/o#(q$X,\/HI,_([-0]qcULEU&ITãU"hlNRY\n\1_>=L5(8ulDR[Fy+QggaFGvw&8/f9r),b?&+Xw*o8vPP&8(sukd((z%ãU"4CLg2P1AHnOfBNsZK_BJC('IHayBw-aLJfpS-TZ9(c)C-NKd?3+T^:CKfo-D'tHãU"]E]_c$'2>\A45E0KTJaax=_zk:u^bNL0n=Tj.GD#ukOFRy$$riTVl*R/inBx/lyFPJz(AEFwVY3]RFLlLH?;&#&Cg/ãU"y00TZ7d4$5*5-n9%u%cPmF_r_RUe&c*Z5k:/NL_g^CAoC/Nka4W7yOd5A]p&]APãU"iga>h,cv[BzTN)MBVEkn43\U,E\OmBq4w+*BTDbjoE8WA>?:o3xW=55A8j-\'4-ãU"NVUA?ZO)PjKs0g.PnAL>;?u9d&PPapF6%a>ilv;,>rN6]E=wuuãU"Ad<8i[3m[&seC]UV?-fO,NfDPEN^<;o>n'EujL9QYv0[_szr6RO3Afgeiaf&A&p>.McJr#prnF0HRU%\ãU"oErU,+C/\D#B#G/&];a*o938eO\vX^G8foS*+u;j8*\\qI&fEq,8GAAK-MHgoheãU"iSPr(kD;A?_:\8v76Jt^/[Z3(l8^_.ap?lRM:2(^SmD'Ypep&xR$210BW-gIH0^ãU"i+nlWA&+SRu,FhpSu#_5s'dRbVq+it/S$n&V_B'cI5a6;8:3I&vc4'doxSUJngJãU"%ff([$O=24^7a:r]+3Uc:1m>[FQsAE/rS)NPXrgLxLwLdPimSpoG7=M**iM0iBuDaKGivV'nK**]spB#]w+2?#/uN1ãU"^jzQ&p&XzC>A7/(dhC6#])BpmM88S'*:w*/D+XUtg0/h/5EKBOJDk&fKCh3PH7SãU".eM1fZ-E6iLE3YAJ\QLY1n3sx/BBj)H.6N*v0NUcY=Q0M3/)e\QW&FrRL?JfnãU"aOsfmd5QP\\C.-AB,qD%P%1Ve%?dA?nRi=CVohdK_D)uSZ]7ZtFvcC]jn:S6rv%ãU"dEHx0mn$',8R'wT,R(vK-k7djsV:lZ+Mn%DB^8Hn6dsPd^^Kct-Lf^,1/-P+s>+ãU"yRb.h<3Hm4qc6Hl7Ze(E#5CP,3uT9(g3#bx?aCe.FC)QC$TJ8Y=<^KKc.e$>ZFtãU"DzCemD8'j\n$Z3mll9?pp2o+ckmIP2^7unRQk/)RE%:VX9IKVM$lDZWA,R(]V=kãU"HiL^?QjbC6jJ_B$ãU"Z0oY+D*V-CQGy.'i911fG&f->4ReRA4Ek.&fWHrG%J,lRDBMx&12\QkS0&Ba6rRãU"&kKHLU>40is,gUa+$ry&o)>G\s.5-Lqty9;fbJl\\v=^dG1ãU"4D_Zo>,ChbO$MtL*&C_t9d?Z4s1L1Q_nnqEL/MlDWG9K05f;3jR#4T(x4>8B_;jãU"scchlblIq3FdA)]Kk:>O?S8&A0[I)kXd?+m57M[c&Qox.fr*EqChyOOOLIgt8$/ãU"91(]nEhb7SF->y-'wY(^fc9.phwm]?#bQwqsnKrbR=i0(C#pda0ou1S)D/Iw0roãU"ty.&Qk2SkOg4s/<'x3+VJ8C$W(FiJLx'(n93k4*RenjmCCj$)U]s2dRjdj5Z)nãU"b5a#;d>+i%7]ADs-=0Iu.mYduD#=W^Sh+dhh_$9Zb>WaM)ui\YgbOsM=l02>kc4ãU"v+tQ&,/gK^.b4H<#7g>3$CPe^imFi[s6_^60p>;._tHFI&4iNp_WFTvy0/OlIqzãU"jC<:eKRlI-S4fP4NkWKuM=]zx1=U4A2tu&bpmtl>1Y3ObIPG9#.6Rq>J>/GmdQ1ãU"vc>rGtQcBcP*]-?q(-6g*n2wf=4oETVG0uKc,6JJ8kXCk=Q>a8oZ8Rh>QG04PcB5MEA[YT[a,<5G9VrHNKW]dyTi,rd4yo2ãU"c:CZ=IC_I.4k<=4OD$w2<:iV[F7w5KLa#TiOrRZBAk*ãU".dkIce7YTgSVE1jE84Oe6iCA4T&hm:xP632La*:,-NJOfK$+3SM#Fh4JO'MeC]UãU"fwJmsh4(ip]r5^#a0om]p:;iwOY>h[dG*BIB/:PcX[:q>lGp&s)+?5,[q9mT(1RãU"S?8j&iotb4o)jaFsl_B6Dc6snK<[h_9vD[g#TLN/V51ãU"b7b<'_mCKbVShN*a#GSMlqTM=9iqSmK#u%/bG9ujp]O3WZZ>u]lm*'S0\2Y>hk<ãU"uwYl5V:=:6:By\V&3:WWOz_fb\1[f8c^nWCglNqG<3uTn=\RZydmZ>*NlI>yZLlãU"oEJGT&urgB6brh_CU?)lr2I=Sz][1MReuWh0hfw[&eWYZKL9OxWf2KpGF:qs_stM3aB]VKy2<_.ãU"P:f$af[Dk-$lbuQP3PO,D=DR[2nzGN]$?X7?quqHx0:+CVR\'gW(w:b+*xt#$E-ãU"$H.6ZuV)6_;).$Tqkd$R#J=Ffp>ADubt1Y0O:LS;:ea>L8Wdf4z>b5ãU"Ln%aeYLJ[SdT+1f2M^a$\GBG?NDku\<#ItaerUZOcRc&\pchl0Zj_7?F]AbHjQWK3(sPY-LtsrMQc_^w;r0ZB?VzkrrafEmJUWQ-FyhSJWRVHK(+qj.$?=5%9j#:ãU"lafW:u8nH8*=2eA%270*gD5oY2tQxtJPJ=ef2]_vU&EPfF,f;Af=Rgck,1mGA<>ãU"BFm#Q;t/CCnGrshKLiq1HfrCI4VcN,]e9XMK3Vmf&Ie8tKWKUG_WK:VQ.>3XmzdãU"6zF[-G/FR8L4BurYãU";H3HaSh>EWN'3L+.f:X<:My'9ME=:wjpEJU>ns1F39v(>WW*B,JM9t,ZMgEfiZkãU"=.(E/piV;3O6U7CeEhZkTTVHzN2lg/VA4rN,*%;*=L4zRv\pV>9.(&T6*I/H',EãU"6#b9P=93Z<8hotDB.fCA_U=kDBZ9i.j&RPY0#:AEg#YK+d*yz>L)f1hwORPH,mEãU"ZC/$;e4HNKOQ0;#B=A/]N+lO%i.XCd1jA\1e,$CMobgkuKR>^_CG_5C3n*iYSOjãU"b[+XIkx%3pH3oc2mRi)B.9>uTmTj4#1xBDA18agu/ApIB]y>?*+Kw1nOWãU"C%kZM(K2X;MC7ijfxP*mr.hz(a)KX:oj6e-hQmuL,X-gt;?8GDay6G,84;Sn'$%ãU"p-W:I^Ys5KP8G+)2F8jLr*Y+PFCTg]CGZ7[IgCXfE%\nãU"-Bnt(',F<8we'I=L(l#Ko,^5RdFjrzhN7j0]dgcrC3BLCxmKpY)4eGP#j;(qj:McMcP.^*=f):Gw^vF.7o#PYVpeX4s_7aU(H9_=?IQpeAVS[ãU"-1W&zf.fy^M+FLv-H&urq=efkT)yRxB63Kzm$EQvCrA(8Q4]FD#x8D658vwd\stãU"cag$wl%Tdf3ICk%QdFZ+Tq2oY>FbqA4(lO#qB^*w8UrGaMU\ZHBDCegDT0ãEND SUBãSUB V2ãU"\t,',_cD'gpJQKPioSk-](-w:^/&zOcN'RkO$*&k6ct?z.cmjnXAbv7kbWcK]0;ãU"1?LYo=ojGdX^$M99msM1c8lY$no+##%>.89sENFeI7BuGTT8Cp4PhgGI'OSS+RJb2ra4]->>OPVx,MX2kLQ6R(#ou,ETs#Y:a\ãU"vs*PXC(F.L]MzNvaMOSSWp6ogn5H]?o-O?B96hE9Nmh%mmk1Mwsgws/00+Vz:BC16kjJm:xDKl\&S%&4rRPDHP]DãU"a;N)'#A5#[,qd]gF5'i#+lnstNJ)TPb?Fb?xiaFãU"C8h7aYv>,H:?FbnNjkGz\AD$/ouh844L[^d;Ca(8'RMf)5ãU"6Z>U8tBgU-=SsxjJebp=&xURJFVX]f'a^RN5gWFrUet9N5g)lO/HB^w67JM2;L:TYMkdx-^;kOCjaf#kV;Faqo,w3ffR4fng0ahC$2+.nãU"b$QQBfkm61;Gu8LdveObG3I\044pO\^omlX(Em54ãU"Cylu+,8ns3oalcjwK31*3JTQo0^O\R:D$-$$Pp28IXtBWCd'p$khUlhoFYODVD6ãU"6t$v$04SpB]VgM=kAmW&[ktER5(ExC\TTq5Vs2el]BQ2EC0tVHhY73VsvVZ\&ãU"'IH4LN&vZOa=C3q04PFcLU8o>3i(S^FfQwLAJ?czZg]m$KF-q>.twr;j]$AO-91ãU"Mkbkhr9SF>>0KYA$gl07Ay8aE5e[dnRA='&o6E$JwW?Q=<&K/Vt14)\S+27;9GIãU"XX6\ljf&8T2D[u.#M+et4\VX]:u*V;LOF38rNMtMe-G;1*h-L,SUhR-3dcxrjYU[HlfdKN_OI&=EqXFl/;+4ãU"kG7v;+cY2gr***Xdik*MD,f9i5;WT^_*;=GDS'jnc^&M<2d?Zl4S%ck0?bD07uwãU"M]luMFjoJkR+-\UO'0L[>)Pf\K)M19](y_QXN3H%UVTNbZ_ESMsGyKiXbD1i8X?ãU"if0PQo0^s;#_*#d2kQfOi;lc<%oz*d/p]#J.=*(1LW3kPn&u3\&c&:gXfZArS6KãU"_y4dA,,moUqv+xxwy;IW:wBH0&t/e&fl[vPfbdYqGqtdHm,TD;&s:CQk;T^Ki*+ãU"'hes1*pLW('pw]+]3(*W]7xt,O_vnX#+vl><7M$&^D3*1*wjv?r>OjB'u6rS$RrãU"GiUcbUt;f]7eWuu=K5cu6f5g8^Ab,C\RbZiC<_BãU"G*M+pJMKO_+O8&:fP2VQ.(QW8[,3D>qH[>A_XlGiI?-K/]9;A^(YWGaJluX,%GTãU",==/uroRixA$%LM#X2jukwBMXrw2T8'wu:<.B0%r+eN7)hb(Q-GI%fj9\oArwCOãU"yx3dSri,X_590]dCL_=COc7x'1C#9;8IYq7dXNf9^od7RzZ*iR,e+e('Qmv/qY)ãU"]sn?*>7R-(eG8[fsnBB9iCw/$o'76Pni7uw'.RKS)iwiow,]lO;^8qvXeU=h(T*ãU"odqs'AT9?1oRY02&aBkAi\%Z,^Qo\KY&*_/guc[Z(yD,i*/3HN6JK$vrr54;fO&QVf:W:fCS8M'&3/d-rmQkHYz(Td.e,UY7#PKfqwSPUãU"qE,h4st#xVwoDR4L51yHqiI;:_=C2j8nDo5wqbUk\j[=A;M1Koi=[n89snRVIF8ãU"sQ_>BJa/iJAXe$%e66felf&=&8f?BnDMx(Y_D%88k'v4$bg+WejYu1M&&iS1SulãU"e&\F]NjdNWu#zJ/yRk5Rq$kps#8s(j,FMkqf+W(La*K>Ov#U;oXki2F*JglhjO9ãU")>X78=_)%6p';4[1:/[D6x=+7qK+X.uq*-euLorLybQ-S9(a[scS+e#V;S+]OznãU"LlTr]\9:ZM4]nO=$#x+E\wu/^*TeGV2'[oqOL^'oUyT//iduxfgLcHEhw/&8TM)ãU"v4f^vjcq0s92cAQv(I+u[;jV?4vPjCrphi5c_L\\6Wn_kaRN/UpQBEsCv7'A/OjhKQl(eh9m$/IY]Xs*b3\],?VAãU"ad+9omgr.a:YO)LR7M$-MNt_Ix3F>9a$xRoK:)vVuWQG2CbqFG1\E%qkM[_p98+ãU"XT69.#&iKNV2NPY0KxPf=>%.n\/R%p6ecA3x%ROvNo-gE9lh/]9E)P?cãU"rQ]?[SSIY6#im[r:+X3OiK8Y3A=''+ic#Iaih9IxPbC0f9._Z99*i^8Z1RRq?)nãU"L'Ca*qx;lv%Tjqb1E=j'W/ctKqf_F(W+#[d'o1A:w&U6PdQNY8Qn=$>N9U:=:lWãU"RZWdGhE$Z/SrVzg&<2jEAkGoM=jy8Of:Wz0K(%opvFWr-Ixf2*pNuNt]K+W:yP/ãU"M#;%L92u8^m/Bs+rI7%rBJ+;w1m4k>Aiu#swO)t3-KxvrV$.v,$FMOx:A>H]RpFãU"b.gPeO6[ujO(nLf\2'%4=IvN\:4cYLO_RPMd)cZ*b1DnwNs%-gHG.r-vunRq0yCV?L6C8:6TP7d4'q9ZDDaw/*DLvLZjS2t0:.ccDziWn/$HywH1_xhb%AãU":FAwrjUX5Gdn
/M[+Er+kEipY>^uMF=.^/VD17y>O5c$DKi=LLVhOQNIBnãU"XiaP]S'i(.i#26-$//%1>GfeJ+Zr,bl.wRGh,Wn*9Z?<%L>F1\PqZEqAãU"=t'FC7_g]iB_NIb*mxG3r6nhl,oy-HI-uC8CJ&,K+'aOZa7cO1+FW]bwlIKmMSPãU"A+cizGnoBw7YVSpFD9*v%2RnW_8$8J)eKQ8PhUZWMZ?8b?[mBãU"O(Q9YUfJ/aQ=F>Os4cx%l[ipF1=1-_I+9S'MSqK;pR/46zm0Pst]9)Vvl64vt6LãU"B(*v4g;HI>?CPWQuNdRWp=xo&rJgB-.o#z,nh)zr_.m=ZuwGj?dt6j;xS/k0rT,ãU"ZEP%ZA]fn:vPR'i.0h^*#0kgXF2q$/BB&JMCufOq#.Bqrz0&inbOqjxNoP(ntj$ãU"&M7:Dg:_WFn4wZCNZrlx)ZcK0X.NQ'FA&:5Y&POlwq2rf9C\VGuSjx)Z#jpF=wwGSZB8j*fP3sdlUPg^'h$wluXJãU"LsKt$6Nq6&eXUslKnQ8tnC4ExmC?_XXNZvt3oQx1M+ad'DPt^d#nl\s#v31M+dTãU"'DP^ud#n\rs#v1_M+d'jDP^du#nxD-dx(u%p()9%%%%-O%tXuUGo2]+-L%%%%8:ãU"%%%.%%%%hqt%hpSuRhkfe9V/qq#WuãU"X2,^TipZXccPl;[CAu7:8'V3SRSvgQ$Ln,q%:ãU"MCOC*ml]KY^iQmKIEnBsKRrw3T=nAyY(KI+.[dem(7MZM3/RYV,ZUMbf*:Vusk*ãU"G?dEERP(gPB+\O4/._IYP[bOi4#OWF%hl^u;p]U9\Db60S(rQUNjRyjkqHBm)NNãU"*%nHu:uH4lgV:P(PXuM.9/TgPpISI%'up(%)9%%%%-%M_ouG3q6iKG[%%%2%9%%ãU"-%%%%g%tyyS[uhkfAef3S[E1jp=IU>GUWAwb/\M9&A6XeZ1nb.7P0jnTXgF%dWrãU";*9aZlfLe9Ev**?&uãU"xjP7],h>PP2#Fn]6bcG1$yU%p8sV++Ld,/j)E#*GC$]JQ[XLi5CDS-]E$VCGãU"x=jI<$S7m>V1*iLG$wp'7up(%)9%%#%-%rDquG6XB6vp%'%%L%s%%/%%%%u%gwzãU"x%mSgq=kfTr,=TU5j*Y()_)B69G_Yg,%0cpS&_p=c%fQLMP[-*5?068GBJ)j9j9LC>;=T\^VzuG[(^0olYgABjãU"x)zmhoML:F65rkP%QBbi8SkW])-,WgImG#-Ue.*8F&5f/k9KQN0.?72GrG[>W<6ãU"6k;><4rs\85UP,_\pP=T.O:DQ&_9#5tQ9oz_YFKi4=(qal0Rx?M5GnSp^31)W/IãU"ocB<=7<6H5gNw\]ãU"WgG\9n:4xDqJxãU";0JS+[CNOn?PWOvEO6Ih&t0/HEBo*,t)R63XEfvLKpi>l(XcNNel5:ãU"7m]=H+4O7PP,c6++yW],4$f;-:MFE\b(Ag].$u#j]0mg;EFM&[n=S43udprk#?,ãU"brrGaBt/uãU"+G%<\I/#;Dm=BMB3J8lArUe.S=A(ce_0W(%]Aa:74Wr#8dlurkLuWLKr$q+ntd+ãU"=Dj5gj3n5%0;0W2.bHiWW.>NUmC2OoPZ23(IMiSW'u$WUTMgaV8G.W[n%W[Y1dlãU"OBEd%efg6c113&nGdW0fHBOVN.1E8nA;Vf]Kf5GZr&v%x5)*FrS9u#kcjE:fnFOãU"iT1C?rjGFr;JXW;g88hG#H.C3%6X6_D8e=S_D%>WmBUY''pXW\dWm0x3#BS+F6zãU")z4icGUZ1?$qsw(F7#*o2gW#mo_<]\%z5f0'EdEjk#.#&fDEg>=q#86^>3qv2tsãU"NA<'%:2orKGf'7B3k2b%Ng6t^DmBOF.e)#TDmGCnc5gV)2\sqHv^jlY02M-TZOPãU"Ko&BHxvGQUkSsQKRc[]2r=Ng_)JdaCHt\GFb9vqLK-S&Xv)QVoO[,W73s?BA:3;ãU"YW%(#lHWi[d'-3+L2bVx?Z?w*Lna1v>CG',XgGVrO3479To,/uRWE.tX+g($8ksãU"H-e-]kUS'Mcm9V*VZQ]]LNl4\B\dX0o$Og2rS>-MMrbMJ9KBmnGF23%V&fdvsIX83_G)IwYfqPJKqZT.o,T9a8wXãU"gq?A,oG*i&6srfLKv7ecE'H\R:>'$;^Px('SpiPãU"qlzDR)GZQuE;d^ogs4PM8\1ar3>BqR]Kc_Gk/,RiJ0+dg>N7pc3f\jrXZ>LGK>PãU"7ZIfwN7dfioT7w;a]lTsW+R>d+Tkf0nb>ãU"=%f(f>98mU>m[oXUG3?vP%eAk>S%)$%S+gD[]?YHPlYJsAR[qvz*x0rU'q'_\R+HkImU>9\l*8kfcgif.K4XãU"=^C_lc#-C4$E#NuMxt[7ãU"(7T:ZdãU"IRcb#3=_1uz7eG99GB&Z4,[PN6Q^$(kuZX9ihZQ81Skj]L.%-((Xiw$/^jad4+$ãU"Q0ee5d6B>NooOG)<_CLk13LaWnT$_:NVx\,U(Zd4qKi86&%Nq#MqZm(l4*>Phl8ãU"(H=DDSElc'6SV0G0INxhMO?]Ac[0mJB?3P,]<6\bl7f[k:sP5Cbom]gu-Xeg\/OãU">mt2Y:gp3$[L,P0\&pY00x;uBo)QW#l-\vbFf\%15$If7p>Zf\JbDKxem9LL(v2ãU"ohSp\#\B1S)79C_d?[97_+eK957/DM+>OB#*AQ_*uH-p8nN5eo113v#G^B[([/QãU"0k[1SWL/4vN]A??WK3l+Oha&3HaF&]p.qrgA>FsR5*#w+.D+R93L(P<_GQ'\7]0ãU"KB[UYY=8baZ-M5iU8XEp*s?.x*x0A_X%0I]>(CUfOB^CY#G.S_oN/WQx2cQAG8FãU"4gagBA^,l#'R7a0oViB9BZI]NaNB8598yb&4^]M8qvLXc6^XE4Pn]0a:aX2Q+70ãU"uEPJ=#j7-z/%Ad6m82nIkuG8KJS-15:135-Phd]Cef]o$IhmYa9/VfF*$5,2?B#ãU"A&99+%)i15U]sdZboQSo>VaOC/eJtc-4h$hNvNQs>fg)OodOTNod*S1+2LjnadrãU"xk&AhrhbBNr#NgnNtT3o>(2;ge4rQvwYX<#t$B?6qmveO)a,2-aBG)9??U&eH^mãU"q+KZ2i$Z^KXc&s;w84da4R^?uDwWS'p:fIsWrh9k?,?fl3au$fGD-<:u2[Q5q5>ãU"V>^5:t\sVw,:+l3+h+)rVWypouoehhSb=_jb&4$]0)Z86oHPOXg'2e/MFI#ãU"$g'OX.*v.a*dzid^eODory>piwUX/PRWoDsmgslG7v$X(nuOW7N3TlCs$CjE%>SãU"P^BNr3c-9:eQ_'p0X[\da*RK+lg_neZdZ^^x'&hMqQrXVrAk^1c39^=E/:#LuqCãU"n-aH*LQ[$i',p=%QSx7Acjtoq&X06[4Sv=F:3tGnJnK=;xfScb/J5q-Sl^i#c(ttrEX:H)LL?GK1d;gD$r:VWCtoty.ãU"?]a\GBiL6%MA&B>aN9[DpNPHo1^KYs=I[Cqd::a[QATWL\B.a-KD2_gQG/#qKe0ãU"LNHn*C3WE8v#G[+-I7o,$Y\=ax?NGaDU4a3U/Xa5GuãU"kJvjA%'10o(5.8B_#F4Y-IC%jUH(V#[F$0=9=dou=F,w*k1#.++LI'-LjJ(%ãU"s&:FZ)%v.TkiaVODS.6;sAhZ'$dBKkVORWZX3?LwHi8E6[.X('Ao*=0reT:[dsNãU"?Sh]Wh'$-in0rSZ\9>d\ea?-'Fr1hM[cyJ0ZxhãU"C*W4VtaMN)StBus-DPKp.M^zK4)/gpK4$+edu9emgg#c-zM=.0DD3(%?>T.ãU"K)Hr80ss;V?.cJv$lHp)b4+)^V*VHQ#5eP65SUsBhPRiuZhF4tARsZ$O1lt^*[bãU"cf&;5jdjXVF4PfbOO6;lH=<9QCLqyvb];07q:.qJ;i=^8ZS&]G[77adB:h;I)[ADtb$]G%BHjG8nJff]ãU"(b]bl$TT[VwBQUc8(ftr=v1=H:[OOo$1mZX2;HE\r-bSl;DpBYO-h^Y>QcD(Kb3ãU"nj[YBP_zMpZ'xGPc?J_]^VXZx\Ztf_U9XsXh(-Slyt+Xu5C:NbHGAUFb*:o,kdGãU"4PhI&ICF6MgD-U8y,dnN2$-lLr93+-af(jbxs4c#%,jO0[NO[P5M4Gf:=Uu9xHlDUik>eV#dDTRZVh;88DGHãU"(viL3MZ&N1-dMtYNKgY'S\AtR<.7]sI[#X%*hl(V74OlWVG'T*AkVm0yXb?F9^2_+(%w3p/&9/,SKãU"YELH#M*G?vEE(Ki.9?]_&/;IoS9S/R49oLui8$x]lbnio>D.B:8sP+#VaeB$.':ãU"N#[Cqgq&hP^RuGLqJum7sKjS]x\33wP(+hR'XXB<:MJY^,NbZ,)L>_FJrkHOx9oãU"da1fdHrkO[Vws1Un*_qJRkNaZP&JH/F3rljJZ,rbcj*FBJ3PLi?,B#iqAkC='3[ãU"EI9HVfI-heZ/VGRBE9,E6taGnCefK,XmJM:Rvb]%lXqX^3(8^LMuJvnt28Or9RZãU"jQ/O#mX.ept>o=.9)%CMl9XGga;DtX8a+O^ifPxbU.KS?twEsUbC]/aRSIf<>KsãU".o^ykGBtb3^&B*m9:QBP*xXh*y&3=wu#.RMHQipgãU"Q>uIWgz/V_G,_1)/U(n%$IV4D$y%=;Aj[8L:E[uX-Uf_U*VtMs5s7JhhfW^4z5'ãU";3qiG&+GxPB_e%%OBuYnijJ0h^i9G=m[-H?3poeaWa^Mu._l;;Jafna-D]6s'9pãU"=RtCnoPfkwL<9.yAKg)9mRF<'110;oo40WCS_2+s*21mK+Oe]3-l;RT45)xkcE1ãU"NMs?0o]\kA%;9:r)G2nx.4j:\B^^g0#7$j4UãU"nOnI;3;fT0]t,#$:o;O?]_YD8uP1';MQ7qgX/M8[S#4ãU"$l3NUH\u;nrqF-HV,oZMel/?Us7h)Ar%sH#o4I+l2Ge%3LH:o+mIT#ef-^ia$POãU"hy?s>e#1*6.ACQ1RsK[+p0oaJ6Ad/rY\(Q(l%dHUTW=5Fuwk1U'':*9'H?*XaYfãU"C_I&ei:3\#UZ^,]Z%a>hkVRn,H<&HJjeV.s1Yq'_;;BB+X+B>8GGJeKyS%mHzg#ãU"YXz8h<+s_l5Ek/;s52Qq>RfcONQPy=5EH0/%-NnGQNO+D$BDF5'ZC/*PV]%Ci$=ãU"RDY__p:j3ikR6pB)[-/<)^MRr29x>/CC6$hS4=.;EYLUdCbU+*cEE1A\J)$rulEãU"Jj[Hpq(W9aDj#cL[,6qIeCZ[>YtgkpxzxZ]92=nAWch3gon2=qDg6p>^TãU"XD_&TDKhVC6jejWRNE^P+msd>HbrwFrPe1?#)OxV7Jivu-F5YQw86Up-9i\MX_gãU"B,qaA?>Yb3Kb[&3v\.?Fp[J5_<.ymD1EYgTWaJgr,XoQaX#6Kkrb_Us>U$[.AM'ãU"&%fSApW7+>mLh/_3g]?plVVP>\>?SqfF%*p\cZTGB=:KUcteT'9='BADFgx.m1zãU"=uLg1Drod:vvs?euCZYw0f_F9UA*D-f]=4ggI0m'CgLitOiO1$_;/,H_Udg07pBãU"?uZ49%w[1)k#[PIJWmC)Uk0/X,8pG(7DCNSPn[-*7+Nv9TiO=nK./Z8FpQcFs.qãU"z6Q46B94$ao?]?2CbFDQ[f&QF?gMfjcckV5K8:1kE)v4_Z&h0gGgLL%C89vVX//ãU"3m&(/7j*1rGb-dT6?vWCx.c-]tXkY(ct?+SVYHTfj.^:iXZg-Fk4?D8d/43(%Cx77iju'eA.CcNp)ãU"y#GRLdm[mH]\iw,zxy]5AnpApro^YF>DVY3)+k=\f$CjGA9l+S]KIA-iuRNbf[yãU"C.I;[xk0'^?Eai_86^ABI=-KWOA8u>sIBP8Oh6FVSO#4t93EBre($Q%gNog:&:sãU"92yc107GTjs5C$922)ekpC(4;lQ52?Fm)b.OtkpCD$eh\U0=c6hy#dvQrq.s_KDãU"mVcgm&II,s?)X[z$wF,]=:M,dUa;$c=7'6i9tM.i*R)'Y\>p.V%&xM[OE?kYd9XãU"G,iJXu)[nD*dGzNWv'<$?aR$&>\d$(s4Ua-20f2EgMJ[6szk9E(12+R(&EuHSjmãU"v=K1+jOH%)pcx7e0j%W8m0VKl#:xI#V0gLLu'&TqGZLVgB4O3/77L-:m^[Yj4SiãU"C57pW1E<7s-&PIh41zGJncxenG;mãU"wVgk*&uYgWY)BG?N'Yj,%EO5t.-I[,Oe2#mo-OJ[IS6%G0#:?aV[8&xDgkS&[syYe-Ivv8?.W?-_(ãU">]o+-evqW0)V$1&tVZW0)h_1)*VuWCok1t%x2WAU^=tl&F/>3iG4s<5x1Eg#?2sãU"W.xNvu3KwBo%A_]w[$k6WKYZmoj*4UKG1b#sj*tUK,1dAo/ZP7n.DI=nNIQjAndãU"=S/7mq&d3VouZuFu\y9\QA_[hcx6KXH0//f%[%bMp+p[6kK5ttr?b:I-jEIãU"+u;Fb3'6jh(oD]SM7De#Lfzr10Spb>Q%3awCsfaYrYyc578\##UmpAz_>>%(L3:ãU"=URke9cGU9PkAr[dVY2kD\P8Qrwt*UY1TP_a?KrhPzZs'0LXImgMNda/eW0vaTI.ngEEA2.#q^'qZãU"1E:9%eF,XiO.WbQroMP%uXX_z&z[(ad]]PowxW\2hefWSnXãU"/&4?Bwq)d0n:,RB)U3pEROA^y-^mRoDP2*D#Gy;(.%lHMãU"4JLV;8u_IXSJ65F>]&wn=nn))S)((Ofvpq\6_GLG+Sib-PT.2U^Gga4x1]ãU"[A7>pOm+[,[^(4UYDE&H*J7GDq[,wKKcOm__e9dUQvEdb-v?+)8+g['NPm)mO\NãU"dB#w8fhyu')TaWS-GSLtx3dwD:^r(h&gPwLv#Y\nyeP?.Sfam/++0/r9P?E)ZbnãU"6H;E=(YZ70r<'8rFd,ICrGF)vJisholn]CV9R-W%k^'d,(BDTig8T$/.'T&[DwTãU"AQ.L2bRvh+G0KOMlPc1FnVRUniODAc>hArqJ\1CiCi6C(3aL0XQ[9\vjWG15ZC7ãU"RY*$4;aZodk3#8n$f?1WvwI.>KF6UfDETd:F9haF7.ml0jRA53?01?Hvvul\R?lãU"uB[K:r2M_H+=nWmcE>>5/C?q[;Obsb/L(mXD.9C.04GKer8Gc%4K)x-&/u:fN_3ãU"QLc1PFo&gk7'#ZTxãU"#\-<+y:q9;[3d'bUZBBHv#RGHaUDm2+U;fC*#.CN%4q$WwL;/B81C-R*F+)O7iiãU"/Vzk'/%P#OGWI/iEpX)HBBs$$S6Ma=1>_iBOsCf3O5f*pfVCiS3aF&C,=u,ZmeZãU"IKrM=kC9OMN%ip*at/^^]$I>qiqIo+cUVCT>c=eP(mB1+)C'1?<2W<>?O(ciSeqpgSVSGp[Zp32ES7\>)rht%AZONpp?7XiPn'KLãU"7Q2iDHtK=^*EubS^b)f4*4aK43Y5\P4rgMDUu[P.En(<&TUR'0)-%K;O*V:hCcWãU"d;3WcA>esOnW#r[D:&4Y-:Et2BB)2_WtpFCpg>([hJ,6)(;;]>Vj+rDFN(1?t$oãU"TqnmGHf(sZs)w9^D>6^ZZX[X6]e;v%s(OdC,vuG7p21i+.;.Ls,ABpp[)S7%C(+ãU"do9_'r;j8G';5(:wtQSwF^TQ>'L;)WN2D^z,#Ek\3&&4*Rvl-.03?aNaD'sV[g17?w4Yns/W&mg6)ktcTY0s0a]YFI_,0ãU"v5$qy#iBBWUmns%B2?Y.N3\yW[ubcN0Ow['e%e##YN/ttlM),e$Osa7,dvy\Q'.ãU"p(MjQ,[D^(wjF+yjw8+L5^uXf]>J9kr6k3):qnJ,Yx\kuarCj>P,HQ2+mDn4bhCãU"kI_dnKUpj^NSC#\WbaaM8OhrG.I%d[,KsLl7,':E8Og/6bQ^=922]aY,mDdT;mTãU"ND#W0pUleLhslXe$ki]?IFqL2j;K1hV?KãU"MD7-A+^n^cgOI[c4\'0dQnRQciu-j&)+*_ong8TJ*v[pd)9rP9G/?CZ6jdiN+*(ãU"XtjcY;'fdXpb^c(\R.4TM;Er9(l6,s-,'X*5_o1-+HvyoYx80+\nh%pun2AMg]TãU"KkJkMY_0GRcY*kNkA)fNSA4PC=+he(/q[LYWu,,1t]Y-ClJ8MC0RMESphI#oqpmãU"F?cZH_,oj>'6>wMg_mi+X+9;o+(/&jrSD4$2)Op3V#8pUOq,sspuUJ:YLf8oPKCãU"[$*#HMTLBnsUL.;T1HUxJqQw$m1_[Q,-(%Y3UVxe$e*[at[BLãU";>YkeNWHD<\N?A??ftHRfSV*T^+./D5&;$?5Z*.=oe;Ku:[PuMZ*s+^G:T&-B'-ãU"Ii6[u=yuOQ5)8A$_yi49Ybps1FtW)nMwH/5E3hqV+'$a09p?.f'xxEK/F%)/jkzãU"\nT8)J]+Z)Zw4rAp;-la=JCn7VZa1$V0qx;D5G8sHGiksO+_/sjkwDfLGh;-(R<3LPSDk7nx3lHM3r]:ãU"THn>7Qxn'5M\NUyvYs5qHYp?K'FV:VfãU"9JxS9yni[]ATYWSIYNd_3&zD;+9]hC,(rI6o$V*(z+&AW=J[Rsv9&_.prI_EMzVXãU"fhMPH*,o(Jnzn[_QL,bGNI'-3nT2'MKog2W8E%;qMu>ZVãU"Oxn=GD9IE)<+8Wg/%k[gKm%x,o-=*;IT17o5**9?f7_w$+]IoE[-&/*O<0a%&q+ãU"U1&+9iY]Q[fASml=nCT)Nv10%03Ol.Z%P]\*TFIR;b&YfdP7RNY75/JA)uaa.c?ãU")R2&ciDo4&9k)lYv_7ij(JlTlgPJ)dl&z)IULJQ=t;UMC5]un2x$];1x\caC,a1ãU"MIa0?Fj)0X]G8iYjV*6gUtdM;^5tu?,;rFpomDJ2ez.\?0>fSa#_YgIFxUsLJRhãU"Kt.XuiMw%[Btt\+7\MY^0&7ha[3T'+)m.)6Zr4pMLYna7UB-K^iV+QEAnTda;BNãU"j^=EPwrbk5/(=cK($k,sf:\YiFr3Tz7r+S(;0Hq]oG$.%TU^W_eAh7MH2+-k=ShãU"b/'E:'8MyP?S+?U/nt//o6P0OUGdz[28bq2fbuSe51o'$7)?SdWIBh$iR_)cQFgãU"sN6lBN%nd+5b,6Lwn;;EAX_u0XaK,1S>+X8-[uz47E%RJkM_vcytz#c23Xq\R+9ãU"O4:Bf9$TnRjaHiq&O-ftf/_Lmu6pTRR9%9EFOD?qm>2*tKtON3Iu]7#SuJ71zoVãU"e_Y3cQ%Gd$U[fU#O-QuM$'Q]D6p>X_>na;V\MZ*sHt0)nongcC,3B[TG.]4mU&WãU":P(XxZA>QG&A8e?fQJ=$BVJlHG=6fv/U_$O)N/L]nwJLTN)IaP1TVT<^7XeG13FãU"C8X_I*c0E(>T1&xH,qD:jU5*TBGcdE,1NPlrl(3AMAlfthgAFpM*yQcpPTX;W6ãU"noiJM.GnLo]K[n5)Gnk6>,w-7ZNLqA2qDmceGZdui5)0$yMb%hY>K's3,(\F]A1o<&:f%4.wGM4>^du&TFjKdrZX67n2-u3^wãU"6b[l:HaW^%xuj2:8.)'pQ5G%'W0c3Vb(U+BA5m-h8uCpVGI$-1zOãU"jB=cF/B4W4y0MR>s-^BjpI0C=(d1Z$.qOSmr^gv5z[.NIvdGQYV&-II*\aoJ2oLãU"RMRAr(p11&*jnaP78WrK>'VSWn'+[[-E[['\]aF0Y1<2hbL42]eSF>frC;=_7W-ãU"%ot.AlMxC,Mdv&f3aW%8#AjmMOQ\HniaT7-C3.Pr$e'AsZ=u*ubQng7FFiLI^$GãU"RK-%xnn0+W:TsXRTIu*4a;,9c\f[LVFHFSP8Y=bvK=#bh4c:kMAf]$G&25xrshqãU"fg9qXOfb)t'n;m&Cu>hWkSdP&>(W[9Qv'+Mmr'd;-8TVuttXmY8LaejQJ))4qrJãU">S9fAAWa;OrSRme;(0]Jr#AgcYHQnIbpz\7Sv+.1]iu=oifCu,q;EU/5$ly)A%)ãU"*8=05*-AF'i(<8Z2Xa2N&)E\(L:&9k0PM^2c_D/SKuo^0u*SQN4QQaQO*g]IdA'ãU"3cKA_PILsz;fiVFfSIhZFoF&9EeFS;P)#3v])%bF0Y\H/5.[[]P=+.j.raG+rXwãU"Twr9A8(1B?X=1)6?7Tr?]c?=;H6(fBpE#LDHzãU".JsY?P1BL(Db6qpBuohyFbm[-:OJvI16R%_JAW+U6*-NYWtQ_ooVOBHK'TK'S;HãU"?p'OjFcA',J8bx&8iac$ãU"h;I#.93I_\9jT:#.T'8$'\X#,L9vq=^LO#'9J*t)XVs=OCF4YK(p(>s39brhzR7ãU"2(v/OF6J9R:.IW4b:oX\/i:LRu'arIAT_K;b8ntSZ[9P.R)t'KU5\]E-(/r:'0mãU"C\'Y=Q]8=0G.Qf=-[w;YfK-9GJ,]T$elA'Nr='0iq]uwb35zT9iWTR9;LGXm^Z<ãU"2d&;m1Muq_:oq]VAWjKp/eZ-2$4UNTv21;eHHHt0FbYjPVX/&t>ilS%5Pg$-attãU"M$V_3'F;+83ucF\GtL4^D+04.mj_yn9KK3FC-G4'nNJ^&>B1s,[nLNWl;?GQ-Y%ãU"hVf$McN*^dWd;m(Jd:R2a7T;:_Z1T+$t8m1Nhc4R1/jl_QA7SA#0B,(_6Kb6pVVãU"jIuHnaJ)bbVbWMZ7m\WXcAoLzsN[3[Ec[=wQWK$C0vpQ\bC:46ãU"9Z=y?OYjpVXE-T-LMWAA?5/;rru,QA2vE%[tZt3Mc%U$g]v+ne'X]sOUx.I*uj+ãU"NvOTZ8CD.td5ESYtoh]a>K70^Tr3WhCwFOKkG_(fXk&e6ZS.c_*R*fCQ')/JsA$ãU"?s>e$Hu7dSZn1:JIãU"K&NgL0hTmKBg/Vo&OZ,gC/'X=,+50QVxnwr_FPJn$'\&?Q8oGQ0itR%;G40ichNãU"AfilT#[Y\D,>A+Jd#tHPUap;3(%c-2Sf34Sa(fOtkT7k(v*;M4ewpE^X\/rdoxUãU"T(700PMa++g9.pKVnSQ'iEBd:*Y*Ch9\3)4-_R=hRcTxmIB&u<45K94fRGx1\9gãU"u$:IB]Pshj[]#EstdM_8xptl2X:,/dd%jaX?'Lfq7E2kYa:7EM^^ISFr*WVEzolãU"-D,Dxt$=R0)kG0vZY1%0'V,+z/p/#3lv7.s_%GEq;ZQ8-m$o\)+iA0NJ#-uq1H;ãU"0dJpK_%y(*%7Ey;6xPNoQtrVk,)Ax06vvn8OgwYH8OUDHZuv$NK(:y9\Tw*32-wãU"u:osXiU#aixK&7Fg#_j_dL=0Nhw[xhPmL<#MZAHtUf=duvgAHt)TIeD+7XnkãU"\HpBOPx9Dbj'PW]FL>GZ*\6z+miQ8M]Uyb;Vo=l9>_[#LS*hr;GZW;YtRe(%+RwãU"rSXbM82bUYz7gtsV1[zr'e+FuX,<$&%q#z0x5qzrd=pPN7UZVjZZb(.O.1hSsD-ãU"kwjfr7mc(k6mDM]cD3W;ENausZa#wHSP[D&l,[5AjL]b(5JL-o_('*1^$,zH,B=ãU"rI:7h,uL,vH[&m(Ll/+;,d=9nl<+L[PWr#&\+NUCWKNpNbDE9Z/GrXGn11Ur;12ãU"2_Yq+cgE]w*e)+VZh,k\sV]/*wEpaa\qD&/$9[2wc[OQL$tHg?=_E^VTip63(^LãU"o]*j-lIt_Q&6$X/Wjav4hQFCOXIrP?d?/]sarC&5ãU"fJIEVi)PB)&J#HMZkoj?q&oUhN9d\=EwrM)]l2BafME8RBXAScxoBH[e>c'py&JãU"^Klx:m8Kv._Bj5&e>8q3(.sFtZFRF%YxSg]ENpemQK)BwegzD+_dcm7&KW[:)2<['BDãU"+(8XKWRa,=RH#ucFmWjCm2/NZw7?AQtw[3icfa'U*??p#ZN+sWfcZE#J]^I:umk28:aUIWI9*[AoãU"YaG.LU\E]]r.23>pgGKdt:tGZJ\DsFCm:x$FrwKK^J>pB)>l^%M[Os%GWPmH'rWãU"7;N$*3)PWKr<6$j3Z2nrU'A.YE1&#fXnA>k9.uqDB3A6jCAiF3s0Q:3WC#tgbi+ãU"%3E=9oe6%TjamCvT1(Dx[?dF,gkdYhk%C22v4FSJ]xq<-m.drSZrm(8U+^%3[mik)V?ZCt8IaFv)-K-Il'kufVgS([xXD[S),[RTe;sP0VnO7$^^;d(l/'?sMi?tOD1ãU"8hC>=*dUhgZK1GNAI1qV[i8SJz,zGX(DQ_jKLzY4fR5<)A%'7\KdETqx+#Qq[)vãU"^Qe:yT$%AI82b4s5mV;tdriFKI>gM;,HZjv3ãU"H'GgjDMg&Y7)8kb7/&9.ms2tq1^eKp\mMPVNAR1P&AD6yCN3)HFgTuxgI5uZ9>WãU"%M22HgW#p<#c3oN,y*;7(28e_P>'^0soh$11Er^+M[#ehKE>=.l7PRk;BrG+SGpãU"z&34,9B(cBcKeXm<8jO%YjCw2wFEgM<2\r.YI:l\St[$<&9THNG<:SsWp'No6h&g$6:RXãU"tpOk6Y:&UpZOC6:HnguzPFh)zVFw.IWh)dFYw.w_E.5b45eXsuk&k\SIo;pSu;%ãU"w1FOU+D*E.*c7=RxS#1TC.FFl7m74Sn*sAALC1b9ac%]xx[GN2mEFCiMJ$HxIH$ãU"&ZWTESF_gcQ02oN_n^0us]'Q[Tv<^FCo.g<2ãU"[m_z1M7,88+lWgr.psxG8Q^:jkC(&^?A,'\o3%9)P\ob3V45I71hyM#f4f4Okg^ãU"yBk0Fh%Cr8_?KkxNwFhB2&,J)_twnu<\Q*k6nQ63*HjãU"(L^K/bSeY]DcKpo#B&XN1QW^9[h((Xb6j(x11Z)FT052\_/O0>-E&c5:HN)v$Q4ãU"5jX:dW]+\<;&;^.5xf[VDW;DdhQ##\OJkuT[?7w[brJ3HX8WTcF3?GP=sZl7j9;ãU"i17Z4as(gC<&-tIj3]i;h:8p;On4EN7*on,Se\dVwu%w(5/KNNS9Y;IusqtrN0oãU"TRQK&ZJ+[v+-dQ4.UCJ#jNr/&8g[4^'.lHRnuM5.U/q/(gLW#X4C66[hB>rTg>YãU"NAAkL,D*S+0d]>UcqGBFl%U8%/P+L'iyf3;y;9Q'8$eIJz^KXl5sMntF&(3SR#CãU"&o/VeICuP4(j1L2mR\go2b_XRT.;6%ZaA50XW*8,2zs%?:q8C]Zo+ayUVJCvFIbãU"f22kuKq#wb$_RPvccBQa/sx*l':ZsbjDi;;WF&pMBH(If[mãU"_+)SMlaqLXWq1%8iRP^A;,J(Od?P30%AC,%:hvPkgMUFL/.0T^5Ov&EhdwnTv?fãU"BZ9[dls1J+ZPoNMb5:cpiH%t4?2r+Vu,^839_p1zLJHp3:=ELu$nDM-7.B-O]'2Cnsuv.nM(F3vzGOjE2#.bHENA[jAK-C)a_t3wk/IãU"##f?BB5.^bUo;L;*]z7m$Z4$nO4%04T7THxr/600?qH/0i8z;t4OVM*?KffAMQ=ãU"NdPC6BK8S1.X<*(Z0QT:63dD]Ki)[\9nj,O*TWm'2Zj,+]*>ãU">*HkZ'2jE,4BrX52J,Q^/tP$-Uq'hFvjOB4QWkC4k,_NZ^?CAJpx+Wn-F_HWBjeãU"qD%h*g_ZFIYU>q:(,<_DIzcUr\hI>7msG_.)Wghd$=o)Aa]L'bdXg7D5W4q?DD<ãU"SxivCz)O]u[n2ls1m[?4;q=_8Oxqp9msd.de\'Mb0i=:ieVma5<&b-.eN#^CvbFãU"6u+:C7Gi<(kgBv2lz&l5$Juwa(NO*]>eQ$6-Q,o)=JUaIxW:)KiY9UMo3J)_(oqãU"=0l7I23n&[pl5BKI>ijsP]tR6aT7W-*INZ]is>CFS_Cj(_%L#_x?n/t^Hof/vAxãU"?r9B1ATP&zwo.qg7b$RyseR7Gx^#(=#\URws=QRySfC4k%2W2ldcF2kXO2*Ec\UãU"-\a62)8/p$CXe>3h9m-CR,/QC9Dyr+%kO#=UNhjwd#sIALuT^RN:8Q\--hQ%5;/ãU"i\4UZtXdv\Ri*P9Na+]Sm>YEsf=FT:k)EM>+mGxs2[FyL>xucps(u98SCmmh\\)ãU"/CWcO[R7s/?fPXOz6PXbi;)u26ZpMRdiA&omO6fo%zg0Pah4(uB>;2\,TF;y%wbk5porZZVy'ovk&cXNL*\p4v+1+OL%1aH&L#g8;7wsE*58,AG&x#2K-&BKrãU"KD/m$SOrs>M8bU1hEBr+dfh$MiJrt\s2UQZT,v)XSj2cKTVyV9Y8JHD^zT7pfv+ãU"5e$ih-Qi=ZyJV6,_:FC'--cvdWx)E/n2D/1l-g%gsP]wLRGkK[%.%\D%%%.%%%%%%%%%%%E%%%%%%%%%f%gtzy%Sgqk%upãU"&'%9%9%%%%-%3tXuG5o2]-'L%%%%8:%%%.%%%%%%%%%&%E%.%%r[%%%hq%thpS%ãU"uhku%p&'9%%9%%%%-%M_ouG3q6iKG[%%%2%9%%-%%%%%%%%%&%%E%%(%l\%%%gtãU"y%ySuh%kup&%'9%9%%%%-L%rqu^G6B6*vp'%%%Ls%%%/%%%%%%%%%%%E#%%%$%]ãU"%%u%gwzx%mSgq%kup&%'9%9%%%%-j%tLB=G/kj(Ml]%+%dI&%%1%%%%%%%%%&%EãU"#%%%)%$%%u%nhiw(f&WS%gfxu%p*+%%%%%*%%*%;%&%%F&C%%%%%ãEND SUBãV2ãV3ãCLOSE:IF S=63AND 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ãDaniel Davies 3D-DOT MORPHING ia53@rapid.co.uk 06-05-97 (15:20) QB, QBasic, PDS 923 16831 3DDMORPH.BAS'3D-DOT MORPHINGã'By Hang-Fireã'This has two objects, they can take have any number of points, just so longã'as they have the same number of points each, in this case there are 342ã'points per object, it starts off with a sphere, and then morphs it into aã'chalice like object, while it is doing this it spins the object round alongã'two of its axis's. to keep the animation smooth, and to stop it flickeringã'it uses a 64kb array to simulate a hidden page, it then uses a fast assemblyã'routine to copy this page onto the screen, which is using screen mode 13h.ã'My web site is at HTTP://www.users.rapid.net.uk/ia53 and has a load of myã'other programs on it.ã'My e-mail address is ia53@rapid.co.ukã'if you want to use any part of this program then you can, but please give meã'some credit.ã'I don't know who the assembly routines are by, so don't credit me with them.ããDECLARE SUB memcopy (fromseg%, fromoffset%, toseg%, tooffset%, bytes%)ãDECLARE SUB FillChar (segment%, offset%, value%, bytes%)ããDIM SHARED buffer(319, 199) AS STRING * 1ãTYPE ivectorã x AS INTEGERã y AS INTEGERã z AS INTEGERãEND TYPEãTYPE dvectorã x AS SINGLEã y AS SINGLEã z AS SINGLEã xm AS SINGLEã ym AS SINGLEã zm AS SINGLEãEND TYPEããDIM eobj(342) AS ivectorãDIM tobj(342) AS dvectorãDIM sine(360) AS SINGLEããFOR x& = 0 TO 360ãsine(x&) = SIN(x& * (3.141592654# / 180))ãNEXT x&ããRESTORE glassdata:ã FOR x& = 1 TO 342ã READ eobj(x&).xã READ eobj(x&).yã READ eobj(x&).zã NEXT x&ãRESTORE spheredata:ããframes& = 100ãFOR x& = 1 TO 342ãREAD x%, y%, z%ããtobj(x&).x = x%: tobj(x&).y = y%: tobj(x&).z = z%ãtobj(x&).xm = (eobj(x&).x - x%) / frames&ãtobj(x&).ym = (eobj(x&).y - y%) / frames&ãtobj(x&).zm = (eobj(x&).z - z%) / frames&ãNEXT x&ããSCREEN 13ãOUT &H3C8, 0ãFOR x% = 0 TO 106ãOUT &H3C9, INT(x% / 1.666666666666666#)ãOUT &H3C9, INT(x% / 1.666666666666666#)ãOUT &H3C9, INT(x% / 1.666666666666666#)ãNEXT x%ããDOãFOR t1& = 1 TO frames&ãt& = (720 / frames&) * t1&ãFOR x& = 1 TO 342ãx3& = tobj(x&).xãy3& = tobj(x&).yãz3& = tobj(x&).zããy2& = (y3& * sine((t& + 270) MOD 360)) - (z3& * sine(t& MOD 360))ãz2& = (y3& * sine(t& MOD 360)) + (z3& * sine((t& + 270) MOD 360))ããx2& = (x3& * sine((t& + 270) MOD 360)) - (z2& * sine(t& MOD 360))ãz1& = (x3& * sine(t& MOD 360)) + (z2& * sine((t& + 270) MOD 360))ããy1& = y2&ãx1& = x2&ããIF z1& <> 0 THENãpx% = ((x1& * 255) / (z1& + 255)) + 160ãpy% = ((y1& * 255) / (z1& + 255)) + 101ãbuffer(px%, py%) = CHR$(z1& + 60)ãELSEãbuffer(((x1& * 255) / 255) + 160, ((y1& * 255) / 255) + 100) = CHR$(z1& + 60)ãEND IFããNEXT x&ãããFOR x& = 1 TO 342ãtobj(x&).x = tobj(x&).x + tobj(x&).xmãtobj(x&).y = tobj(x&).y + tobj(x&).ymãtobj(x&).z = tobj(x&).z + tobj(x&).zmãNEXT x&ããmemcopy VARSEG(buffer(0, 0)), VARPTR(buffer(0, 0)), &HA000, 0, &HFA00ãFillChar VARSEG(buffer(0, 0)), VARPTR(buffer(0, 0)), 0, &HFA00ãIF INKEY$ <> "" THEN GOTO exitp:ãNEXT t1&ããããFOR t1& = 1 TO frames&ãt& = (720 / frames&) * t1&ãFOR x& = 1 TO 342ãx3& = tobj(x&).xãy3& = tobj(x&).yãz3& = tobj(x&).zããy2& = (y3& * sine((t& + 270) MOD 360)) - (z3& * sine(t& MOD 360))ãz2& = (y3& * sine(t& MOD 360)) + (z3& * sine((t& + 270) MOD 360))ããx2& = (x3& * sine((t& + 270) MOD 360)) - (z2& * sine(t& MOD 360))ãz1& = (x3& * sine(t& MOD 360)) + (z2& * sine((t& + 270) MOD 360))ããy1& = y2&ãx1& = x2&ããIF z1& <> 0 THENãpx% = ((x1& * 255) / (z1& + 255)) + 160ãpy% = ((y1& * 255) / (z1& + 255)) + 101ãbuffer(px%, py%) = CHR$(z1& + 60)ãELSEãbuffer(((x1& * 255) / 255) + 160, ((y1& * 255) / 255) + 100) = CHR$(z1& + 60)ãEND IFãããNEXT x&ãmemcopy VARSEG(buffer(0, 0)), VARPTR(buffer(0, 0)), &HA000, 0, &HFA00ãFillChar VARSEG(buffer(0, 0)), VARPTR(buffer(0, 0)), 0, &HFA00ãIF INKEY$ <> "" THEN GOTO exitp:ãNEXT t1&ããããFOR t1& = 1 TO frames&ãt& = (720 / frames&) * t1&ãFOR x& = 1 TO 342ãx3& = tobj(x&).xãy3& = tobj(x&).yãz3& = tobj(x&).zããy2& = (y3& * sine((t& + 270) MOD 360)) - (z3& * sine(t& MOD 360))ãz2& = (y3& * sine(t& MOD 360)) + (z3& * sine((t& + 270) MOD 360))ããx2& = (x3& * sine((t& + 270) MOD 360)) - (z2& * sine(t& MOD 360))ãz1& = (x3& * sine(t& MOD 360)) + (z2& * sine((t& + 270) MOD 360))ããy1& = y2&ãx1& = x2&ããIF z1& <> 0 THENãpx% = ((x1& * 255) / (z1& + 255)) + 160ãpy% = ((y1& * 255) / (z1& + 255)) + 101ãbuffer(px%, py%) = CHR$(z1& + 60)ãELSEãbuffer(((x1& * 255) / 255) + 160, ((y1& * 255) / 255) + 100) = CHR$(z1& + 60)ãEND IFãNEXT x&ãããFOR x& = 1 TO 342ãtobj(x&).x = tobj(x&).x - tobj(x&).xmãtobj(x&).y = tobj(x&).y - tobj(x&).ymãtobj(x&).z = tobj(x&).z - tobj(x&).zmãNEXT x&ããmemcopy VARSEG(buffer(0, 0)), VARPTR(buffer(0, 0)), &HA000, 0, &HFA00ãFillChar VARSEG(buffer(0, 0)), VARPTR(buffer(0, 0)), 0, &HFA00ãIF INKEY$ <> "" THEN GOTO exitp:ãNEXT t1&ããLOOPãexitp:ãCLEARãSCREEN 0ãWIDTH 80ãENDãããspheredata:ãDATA 0,40,0ãDATA 0,40,0ãDATA 0,40,0ãDATA 0,40,0ãDATA 0,40,0ãDATA 0,40,0ãDATA 0,40,0ãDATA 0,40,0ãDATA 0,40,0ãDATA 0,40,0ãDATA 0,40,0ãDATA 0,40,0ãDATA 0,40,0ãDATA 0,40,0ãDATA 0,40,0ãDATA 0,40,0ãDATA 0,40,0ãDATA 0,40,0ãDATA 0,40,0ãDATA 0,39,7ãDATA 2,39,7ãDATA 4,39,5ãDATA 6,39,3ãDATA 7,39,1ãDATA 7,39,-1ãDATA 6,39,-4ãDATA 4,39,-5ãDATA 2,39,-7ãDATA 0,39,-7ãDATA -2,39,-7ãDATA -4,39,-5ãDATA -6,39,-3ãDATA -7,39,-1ãDATA -7,39,1ãDATA -6,39,4ãDATA -4,39,5ãDATA -2,39,7ãDATA 0,39,7ãDATA 0,38,14ãDATA 5,38,13ãDATA 9,38,11ãDATA 12,38,7ãDATA 14,38,2ãDATA 14,38,-2ãDATA 12,38,-7ãDATA 9,38,-11ãDATA 5,38,-13ãDATA 0,38,-14ãDATA -5,38,-13ãDATA -9,38,-11ãDATA -12,38,-7ãDATA -14,38,-2ãDATA -14,38,2ãDATA -12,38,7ãDATA -9,38,11ãDATA -5,38,13ãDATA 0,38,14ãDATA 0,35,20ãDATA 7,35,19ãDATA 13,35,15ãDATA 17,35,10ãDATA 20,35,3ãDATA 20,35,-3ãDATA 17,35,-10ãDATA 13,35,-15ãDATA 7,35,-19ãDATA 0,35,-20ãDATA -7,35,-19ãDATA -13,35,-15ãDATA -17,35,-10ãDATA -20,35,-3ãDATA -20,35,3ãDATA -17,35,10ãDATA -13,35,15ãDATA -7,35,19ãDATA 0,35,20ãDATA 0,31,26ãDATA 9,31,24ãDATA 17,31,20ãDATA 23,31,13ãDATA 26,31,5ãDATA 26,31,-5ãDATA 23,31,-13ãDATA 17,31,-20ãDATA 9,31,-24ãDATA 0,31,-26ãDATA -9,31,-24ãDATA -17,31,-20ãDATA -23,31,-13ãDATA -26,31,-5ãDATA -26,31,5ãDATA -23,31,13ãDATA -17,31,20ãDATA -9,31,24ãDATA 0,31,26ãDATA 0,26,31ãDATA 11,26,29ãDATA 20,26,24ãDATA 27,26,15ãDATA 31,26,5ãDATA 31,26,-5ãDATA 27,26,-16ãDATA 20,26,-24ãDATA 11,26,-29ãDATA 0,26,-31ãDATA -11,26,-29ãDATA -20,26,-24ãDATA -27,26,-15ãDATA -31,26,-5ãDATA -31,26,5ãDATA -27,26,16ãDATA -20,26,24ãDATA -11,26,29ãDATA 0,26,31ãDATA 0,20,35ãDATA 12,20,33ãDATA 22,20,27ãDATA 30,20,17ãDATA 34,20,6ãDATA 34,20,-6ãDATA 30,20,-18ãDATA 22,20,-27ãDATA 12,20,-33ãDATA 0,20,-35ãDATA -12,20,-33ãDATA -22,20,-27ãDATA -30,20,-17ãDATA -34,20,-6ãDATA -34,20,6ãDATA -30,20,18ãDATA -22,20,27ãDATA -12,20,33ãDATA 0,20,35ãDATA 0,14,38ãDATA 13,14,36ãDATA 24,14,29ãDATA 33,14,19ãDATA 37,14,7ãDATA 37,14,-7ãDATA 33,14,-19ãDATA 24,14,-29ãDATA 13,14,-36ãDATA 0,14,-38ãDATA -13,14,-36ãDATA -24,14,-29ãDATA -33,14,-19ãDATA -37,14,-7ãDATA -37,14,7ãDATA -33,14,19ãDATA -24,14,29ãDATA -13,14,36ãDATA 0,14,38ãDATA 0,7,39ãDATA 13,7,37ãDATA 25,7,30ãDATA 34,7,19ãDATA 38,7,7ãDATA 38,7,-7ãDATA 34,7,-20ãDATA 25,7,-30ãDATA 13,7,-37ãDATA 0,7,-39ãDATA -13,7,-37ãDATA -25,7,-30ãDATA -34,7,-19ãDATA -38,7,-7ãDATA -38,7,7ãDATA -34,7,20ãDATA -25,7,30ãDATA -13,7,37ãDATA 0,7,39ãDATA 0,0,40ãDATA 14,0,38ãDATA 26,0,31ãDATA 35,0,20ãDATA 39,0,7ãDATA 39,0,-7ãDATA 35,0,-20ãDATA 26,0,-31ãDATA 14,0,-38ãDATA 0,0,-40ãDATA -14,0,-38ãDATA -26,0,-31ãDATA -35,0,-20ãDATA -39,0,-7ãDATA -39,0,7ãDATA -35,0,20ãDATA -26,0,31ãDATA -14,0,38ãDATA 0,0,40ãDATA 0,-7,39ãDATA 13,-7,37ãDATA 25,-7,30ãDATA 34,-7,19ãDATA 38,-7,7ãDATA 38,-7,-7ãDATA 34,-7,-20ãDATA 25,-7,-30ãDATA 13,-7,-37ãDATA 0,-7,-39ãDATA -13,-7,-37ãDATA -25,-7,-30ãDATA -34,-7,-19ãDATA -38,-7,-7ãDATA -38,-7,7ãDATA -34,-7,20ãDATA -25,-7,30ãDATA -13,-7,37ãDATA 0,-7,39ãDATA 0,-14,38ãDATA 13,-14,36ãDATA 24,-14,29ãDATA 33,-14,19ãDATA 37,-14,7ãDATA 37,-14,-7ãDATA 33,-14,-19ãDATA 24,-14,-29ãDATA 13,-14,-36ãDATA 0,-14,-38ãDATA -13,-14,-36ãDATA -24,-14,-29ãDATA -33,-14,-19ãDATA -37,-14,-7ãDATA -37,-14,7ãDATA -33,-14,19ãDATA -24,-14,29ãDATA -13,-14,36ãDATA 0,-14,38ãDATA 0,-20,35ãDATA 12,-20,33ãDATA 22,-20,27ãDATA 30,-20,17ãDATA 34,-20,6ãDATA 34,-20,-6ãDATA 30,-20,-18ãDATA 22,-20,-27ãDATA 12,-20,-33ãDATA 0,-20,-35ãDATA -12,-20,-33ãDATA -22,-20,-27ãDATA -30,-20,-17ãDATA -34,-20,-6ãDATA -34,-20,6ãDATA -30,-20,18ãDATA -22,-20,27ãDATA -12,-20,33ãDATA 0,-20,35ãDATA 0,-26,31ãDATA 11,-26,29ãDATA 20,-26,24ãDATA 27,-26,15ãDATA 31,-26,5ãDATA 31,-26,-5ãDATA 27,-26,-16ãDATA 20,-26,-24ãDATA 11,-26,-29ãDATA 0,-26,-31ãDATA -11,-26,-29ãDATA -20,-26,-24ãDATA -27,-26,-15ãDATA -31,-26,-5ãDATA -31,-26,5ãDATA -27,-26,16ãDATA -20,-26,24ãDATA -11,-26,29ãDATA 0,-26,31ãDATA 0,-31,26ãDATA 9,-31,24ãDATA 17,-31,20ãDATA 23,-31,13ãDATA 26,-31,5ãDATA 26,-31,-5ãDATA 23,-31,-13ãDATA 17,-31,-20ãDATA 9,-31,-24ãDATA 0,-31,-26ãDATA -9,-31,-24ãDATA -17,-31,-20ãDATA -23,-31,-13ãDATA -26,-31,-5ãDATA -26,-31,5ãDATA -23,-31,13ãDATA -17,-31,20ãDATA -9,-31,24ãDATA 0,-31,26ãDATA 0,-35,20ãDATA 7,-35,19ãDATA 13,-35,15ãDATA 17,-35,10ãDATA 20,-35,3ãDATA 20,-35,-3ãDATA 17,-35,-10ãDATA 13,-35,-15ãDATA 7,-35,-19ãDATA 0,-35,-20ãDATA -7,-35,-19ãDATA -13,-35,-15ãDATA -17,-35,-10ãDATA -20,-35,-3ãDATA -20,-35,3ãDATA -17,-35,10ãDATA -13,-35,15ãDATA -7,-35,19ãDATA 0,-35,20ãDATA 0,-38,14ãDATA 5,-38,13ãDATA 9,-38,11ãDATA 12,-38,7ãDATA 14,-38,2ãDATA 14,-38,-2ãDATA 12,-38,-7ãDATA 9,-38,-11ãDATA 5,-38,-13ãDATA 0,-38,-14ãDATA -5,-38,-13ãDATA -9,-38,-11ãDATA -12,-38,-7ãDATA -14,-38,-2ãDATA -14,-38,2ãDATA -12,-38,7ãDATA -9,-38,11ãDATA -5,-38,13ãDATA 0,-38,14ãDATA 0,-39,7ãDATA 2,-39,7ãDATA 4,-39,5ãDATA 6,-39,3ãDATA 7,-39,1ãDATA 7,-39,-1ãDATA 6,-39,-4ãDATA 4,-39,-5ãDATA 2,-39,-7ãDATA 0,-39,-7ãDATA -2,-39,-7ãDATA -4,-39,-5ãDATA -6,-39,-3ãDATA -7,-39,-1ãDATA -7,-39,1ãDATA -6,-39,4ãDATA -4,-39,5ãDATA -2,-39,7ãDATA 0,-39,7ããglassdata:ãDATA 10,-40,30ãDATA 19,-40,26ãDATA 26,-40,19ãDATA 30,-40,10ãDATA 32,-40,0ãDATA 30,-40,-10ãDATA 26,-40,-19ãDATA 19,-40,-26ãDATA 10,-40,-30ãDATA 0,-40,-32ãDATA -10,-40,-30ãDATA -19,-40,-26ãDATA -26,-40,-19ãDATA -30,-40,-10ãDATA -32,-40,0ãDATA -30,-40,10ãDATA -26,-40,19ãDATA -19,-40,26ãDATA -10,-40,30ãDATA 10,-35,30ãDATA 19,-35,26ãDATA 26,-35,19ãDATA 30,-35,10ãDATA 32,-35,0ãDATA 30,-35,-10ãDATA 26,-35,-19ãDATA 19,-35,-26ãDATA 10,-35,-30ãDATA 0,-35,-32ãDATA -10,-35,-30ãDATA -19,-35,-26ãDATA -26,-35,-19ãDATA -30,-35,-10ãDATA -32,-35,0ãDATA -30,-35,10ãDATA -26,-35,19ãDATA -19,-35,26ãDATA -10,-35,30ãDATA 10,-30,30ãDATA 19,-30,26ãDATA 26,-30,19ãDATA 30,-30,10ãDATA 32,-30,0ãDATA 30,-30,-10ãDATA 26,-30,-19ãDATA 19,-30,-26ãDATA 10,-30,-30ãDATA 0,-30,-32ãDATA -10,-30,-30ãDATA -19,-30,-26ãDATA -26,-30,-19ãDATA -30,-30,-10ãDATA -32,-30,0ãDATA -30,-30,10ãDATA -26,-30,19ãDATA -19,-30,26ãDATA -10,-30,30ãDATA 10,-25,29ãDATA 18,-25,25ãDATA 25,-25,18ãDATA 29,-25,10ãDATA 31,-25,0ãDATA 29,-25,-10ãDATA 25,-25,-18ãDATA 18,-25,-25ãDATA 10,-25,-29ãDATA 0,-25,-31ãDATA -10,-25,-29ãDATA -18,-25,-25ãDATA -25,-25,-18ãDATA -29,-25,-10ãDATA -31,-25,0ãDATA -29,-25,10ãDATA -25,-25,18ãDATA -18,-25,25ãDATA -10,-25,29ãDATA 9,-20,27ãDATA 16,-20,23ãDATA 23,-20,16ãDATA 27,-20,9ãDATA 28,-20,0ãDATA 27,-20,-9ãDATA 23,-20,-16ãDATA 16,-20,-23ãDATA 9,-20,-27ãDATA 0,-20,-28ãDATA -9,-20,-27ãDATA -16,-20,-23ãDATA -23,-20,-16ãDATA -27,-20,-9ãDATA -28,-20,0ãDATA -27,-20,9ãDATA -23,-20,16ãDATA -16,-20,23ãDATA -9,-20,27ãDATA 7,-15,23ãDATA 14,-15,19ãDATA 19,-15,14ãDATA 23,-15,7ãDATA 24,-15,0ãDATA 23,-15,-7ãDATA 19,-15,-14ãDATA 14,-15,-19ãDATA 7,-15,-23ãDATA 0,-15,-24ãDATA -7,-15,-23ãDATA -14,-15,-19ãDATA -19,-15,-14ãDATA -23,-15,-7ãDATA -24,-15,0ãDATA -23,-15,7ãDATA -19,-15,14ãDATA -14,-15,19ãDATA -7,-15,23ãDATA 6,-10,19ãDATA 12,-10,16ãDATA 16,-10,12ãDATA 19,-10,6ãDATA 20,-10,0ãDATA 19,-10,-6ãDATA 16,-10,-12ãDATA 12,-10,-16ãDATA 6,-10,-19ãDATA 0,-10,-20ãDATA -6,-10,-19ãDATA -12,-10,-16ãDATA -16,-10,-12ãDATA -19,-10,-6ãDATA -20,-10,0ãDATA -19,-10,6ãDATA -16,-10,12ãDATA -12,-10,16ãDATA -6,-10,19ãDATA 5,-5,14ãDATA 9,-5,12ãDATA 12,-5,9ãDATA 14,-5,5ãDATA 15,-5,0ãDATA 14,-5,-5ãDATA 12,-5,-9ãDATA 9,-5,-12ãDATA 5,-5,-14ãDATA 0,-5,-15ãDATA -5,-5,-14ãDATA -9,-5,-12ãDATA -12,-5,-9ãDATA -14,-5,-5ãDATA -15,-5,0ãDATA -14,-5,5ãDATA -12,-5,9ãDATA -9,-5,12ãDATA -5,-5,14ãDATA 3,0,10ãDATA 6,0,9ãDATA 9,0,6ãDATA 10,0,3ãDATA 11,0,0ãDATA 10,0,-3ãDATA 9,0,-6ãDATA 6,0,-9ãDATA 3,0,-10ãDATA 0,0,-11ãDATA -3,0,-10ãDATA -6,0,-9ãDATA -9,0,-6ãDATA -10,0,-3ãDATA -11,0,0ãDATA -10,0,3ãDATA -9,0,6ãDATA -6,0,9ãDATA -3,0,10ãDATA 2,5,8ãDATA 5,5,6ãDATA 6,5,5ãDATA 8,5,2ãDATA 8,5,0ãDATA 8,5,-2ãDATA 6,5,-5ãDATA 5,5,-6ãDATA 2,5,-8ãDATA 0,5,-8ãDATA -2,5,-8ãDATA -5,5,-6ãDATA -6,5,-5ãDATA -8,5,-2ãDATA -8,5,0ãDATA -8,5,2ãDATA -6,5,5ãDATA -5,5,6ãDATA -2,5,8ãDATA 2,10,6ãDATA 4,10,5ãDATA 5,10,4ãDATA 6,10,2ãDATA 6,10,0ãDATA 6,10,-2ãDATA 5,10,-4ãDATA 4,10,-5ãDATA 2,10,-6ãDATA 0,10,-6ãDATA -2,10,-6ãDATA -4,10,-5ãDATA -5,10,-4ãDATA -6,10,-2ãDATA -6,10,0ãDATA -6,10,2ãDATA -5,10,4ãDATA -4,10,5ãDATA -2,10,6ãDATA 2,15,5ãDATA 3,15,4ãDATA 4,15,3ãDATA 5,15,2ãDATA 5,15,0ãDATA 5,15,-2ãDATA 4,15,-3ãDATA 3,15,-4ãDATA 2,15,-5ãDATA 0,15,-5ãDATA -2,15,-5ãDATA -3,15,-4ãDATA -4,15,-3ãDATA -5,15,-2ãDATA -5,15,0ãDATA -5,15,2ãDATA -4,15,3ãDATA -3,15,4ãDATA -2,15,5ãDATA 1,20,4ãDATA 2,20,3ãDATA 3,20,2ãDATA 4,20,1ãDATA 4,20,0ãDATA 4,20,-1ãDATA 3,20,-2ãDATA 2,20,-3ãDATA 1,20,-4ãDATA 0,20,-4ãDATA -1,20,-4ãDATA -2,20,-3ãDATA -3,20,-2ãDATA -4,20,-1ãDATA -4,20,0ãDATA -4,20,1ãDATA -3,20,2ãDATA -2,20,3ãDATA -1,20,4ãDATA 2,25,5ãDATA 3,25,4ãDATA 4,25,3ãDATA 5,25,2ãDATA 5,25,0ãDATA 5,25,-2ãDATA 4,25,-3ãDATA 3,25,-4ãDATA 2,25,-5ãDATA 0,25,-5ãDATA -2,25,-5ãDATA -3,25,-4ãDATA -4,25,-3ãDATA -5,25,-2ãDATA -5,25,0ãDATA -5,25,2ãDATA -4,25,3ãDATA -3,25,4ãDATA -2,25,5ãDATA 2,30,6ãDATA 4,30,5ãDATA 5,30,4ãDATA 6,30,2ãDATA 6,30,0ãDATA 6,30,-2ãDATA 5,30,-4ãDATA 4,30,-5ãDATA 2,30,-6ãDATA 0,30,-6ãDATA -2,30,-6ãDATA -4,30,-5ãDATA -5,30,-4ãDATA -6,30,-2ãDATA -6,30,0ãDATA -6,30,2ãDATA -5,30,4ãDATA -4,30,5ãDATA -2,30,6ãDATA 2,35,8ãDATA 5,35,6ãDATA 6,35,5ãDATA 8,35,2ãDATA 8,35,0ãDATA 8,35,-2ãDATA 6,35,-5ãDATA 5,35,-6ãDATA 2,35,-8ãDATA 0,35,-8ãDATA -2,35,-8ãDATA -5,35,-6ãDATA -6,35,-5ãDATA -8,35,-2ãDATA -8,35,0ãDATA -8,35,2ãDATA -6,35,5ãDATA -5,35,6ãDATA -2,35,8ãDATA 3,40,10ãDATA 6,40,8ãDATA 8,40,6ãDATA 10,40,3ãDATA 10,40,0ãDATA 10,40,-3ãDATA 8,40,-6ãDATA 6,40,-8ãDATA 3,40,-10ãDATA 0,40,-10ãDATA -3,40,-10ãDATA -6,40,-8ãDATA -8,40,-6ãDATA -10,40,-3ãDATA -10,40,0ãDATA -10,40,3ãDATA -8,40,6ãDATA -6,40,8ãDATA -3,40,10ãDATA 4,45,11ãDATA 7,45,10ãDATA 10,45,7ãDATA 11,45,4ãDATA 12,45,0ãDATA 11,45,-4ãDATA 10,45,-7ãDATA 7,45,-10ãDATA 4,45,-11ãDATA 0,45,-12ãDATA -4,45,-11ãDATA -7,45,-10ãDATA -10,45,-7ãDATA -11,45,-4ãDATA -12,45,0ãDATA -11,45,4ãDATA -10,45,7ãDATA -7,45,10ãDATA -4,45,11ããSUB FillChar (segment%, offset%, value%, bytes%)ããasm$ = ""ãasm$ = asm$ + CHR$(85)ãasm$ = asm$ + CHR$(137) + CHR$(229)ãasm$ = asm$ + CHR$(139) + CHR$(78) + CHR$(6)ãasm$ = asm$ + CHR$(139) + CHR$(86) + CHR$(8)ãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(12)ãasm$ = asm$ + CHR$(30)ãasm$ = asm$ + CHR$(142) + CHR$(216)ãasm$ = asm$ + CHR$(139) + CHR$(94) + CHR$(10)ãasm$ = asm$ + CHR$(136) + CHR$(23)ãasm$ = asm$ + CHR$(67)ãasm$ = asm$ + CHR$(226) + CHR$(251)ãasm$ = asm$ + CHR$(31)ãasm$ = asm$ + CHR$(93)ãasm$ = asm$ + CHR$(203)ããDEF SEG = VARSEG(asm$)ã CALL Absolute(BYVAL segment%, BYVAL offset%, BYVAL value%, BYVAL bytes%, SADD(asm$))ãDEF SEGããEND SUBããSUB memcopy (fromseg%, fromoffset%, toseg%, tooffset%, bytes%)ããasm$ = ""ãasm$ = asm$ + CHR$(85)ãasm$ = asm$ + CHR$(137) + CHR$(229)ãasm$ = asm$ + CHR$(30)ãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(10)ãasm$ = asm$ + CHR$(142) + CHR$(192)ãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(14)ãasm$ = asm$ + CHR$(142) + CHR$(216)ãasm$ = asm$ + CHR$(139) + CHR$(118) + CHR$(8)ãasm$ = asm$ + CHR$(139) + CHR$(126) + CHR$(12)ãasm$ = asm$ + CHR$(139) + CHR$(78) + CHR$(6)ãasm$ = asm$ + CHR$(243)ãasm$ = asm$ + CHR$(164)ãasm$ = asm$ + CHR$(31)ãasm$ = asm$ + CHR$(93)ãasm$ = asm$ + CHR$(203)ãWAIT &H3DA, 8ãDEF SEG = VARSEG(asm$)ã CALL Absolute(BYVAL fromseg%, BYVAL fromoffset%, BYVAL toseg%, BYVAL tooffset%, BYVAL bytes%, SADD(asm$))ãDEF SEGããEND SUBãErika Schulze VESA ROUTINES FOR QBASIC 100775.2275@CompuServe.com 06-09-97 (12:22) QB, QBasic, PDS 468 30877 VESAQB.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"VESAQ.ZIP",4^6:Z&=22908:?STRING$(50,177);ãU"%up()%9%%%#-%]^fBGCq0j,B&.%%s'%%%/%%%%wj%firj.Sy'yVT$:]BLU5UF0n96sJY>+xt<2x\X*2GV7fLkãU"3Hm:tX4>]9q$S)Y,nm9ihlNd/GI_E76aEsS^f[^L_pe<&>FxPGm\4oZi7;/iX+f[yMgFSF$?9R2\e)o3riGi1grO:,tYYVk_/(kuZTo7r7T4HZ4+ws3ãU"kvyemdZeTbM+tHg6KkU?U*/tqCc[/iW>/.>+'P\hZq'X#mv$=TaU6cmzS8HcB*nãU"Z;SY0w-5r2u%p()9%%%%-j%'[BaG+TS,-=9%4%44%%%/%%(%%jx%fvVS[gfxfk*ãU"dA\s[+w6bxC$YB1WPHFG4I(8EaG_O#Be<*fGacJeahx6&uOM1m1UG9.)bpM-:./ãU"PNERlBg+eQ79ND<>40G37w>T7W5y*Hs8xR:;N)([Z8v_'PFh.FoQeAac=\8a>ixcWR9w+9lgL.1=#2wIcl2bh&ãU"Vs\d=Tm%A$7+(-_'Y6\>0AhJl\wWV?iI^h%tm[3%g;r*g#X(YTDM]$4#q;Cg+b_ãU"HEQ1$KG8S%>Hd^?o/,)$]//('8H%;&$'9/hV)#4IgZOwA+*BWBvi9+N][_a7=d&ãU"LgFRbfDfg6^1B75r&_Pm):lq>QilvSLO+v[H$lE[5/*^fctDt>_7M5&MU7plUFNJFk)XMl^L7:=Xq3b0%DiM6SnJ#5h(RV#(,$ni3]3;r8#<9DnPEX;'c^$j5^RLIxtU,9R^1\%Aa-GHg6(.aCW<&0ãU"mGm2n0QE73P1>$2;uI7KLJAliqVAjE>,)cQ:[O)*MEc?VPHZEPPe9=fP2z-NV+XãU"jsg?3a1z#GbPuS7j+xHU&JlP(50SmRGh+WAJP4s%[e=w'oVFmW?Gq7ãU"h0/&nZa\EeFqTpI:WUg#-2s'XDp=F%N1K05K7-oe?MM$1QacwhtbyXb&W_vXsjcãU":G%$t+3'YYsI+%$r[)UVPtoui1MXB(jlJ]Oq3p8$d:U?[)rMudeXtcJO$[sKw;H(&uXCq>+xLC^?Ro0RGaXb+U;B;7\l)kavpN0BRXt3i-P^1KP_ãU"eeMBHg0=tg3P#r(To(T2Z4%>ED'bZ'_,Nj9ZxEw&uwN876)sp7tq&A^^(oZM\O,ãU"$x6dDfTpe'NeB-*TLbb/'.B3Z-F_8.j:+<>/dM?u_R[O0Tc0ãU"Fw3LoieU>[B2M:7k=h:Ep2[/a7.;n[r6.li<8j+G9I$?)>THW3&#Wq88?8;_$qg9mQNif0,5F%FT/Vm3B?\9*-f6F*&9LJpãU"ZmO\ml+lMd;n<-*?S]^.4Ban:=t>HnT*-%G.s#R?fj]K.R6p)VFCVc5,]ujY]MeãU"ljI\g5bZ(Dbt#sKh]I7XHvVo_ef1dI9JQ/TIKXJzmQ#L?'+v-kl(sj>9'_5xd]AãU"2YmI4M_(vfa9wC9cNhp=hfg5hE9V$ZnD[[E8R-nYn8%&5ãU"6n0)JHC/?D^6Y0k?(9xD3fY3APj6)&WN3r7i.g70tChi/F:W\+u.OPNdu7m189EãU"KuIkJPHtek+_-$:-fQVfW2[.?1_m9WY4bVHVtngJ*4kOFosOqPw9)=F&Y:s2NMGãU"2w2CdmLr:r6ko'mFVmHJpim6fTQIp5\KGSZbNr5BOSo3Bie96c8\,_3'fqBl/*;ãU"5W8?\=aWpWo(GYDJzA1/%n/^Q:>2xM7Q,n'dU/jJAxfJYI#)4eJj[Y6PM$/]XE/ãU"/1A+1*z0s;_YDeQ3?7YA/a^sh32=s(&f1C3[kUg0q^QC1E6Qh#;-Go.Anz7ecGaãU"?tG*A,Ka&aU1U3PGZ=Bl7(zY7e?[.5>1baoi8r;]+&'tJO1(Y/o%NnLrA-u-u&dãU"W27=X4fHWoP_EFb44+Osh4VUp0h,HoO*.Gb<[4,P*O7Ol2gTZ*p\#0XF,9FXqBBãU"*[abuV^&av7pGmqDJOP?5ICEW._4H>jU(+eOw7,wãU"MCl)-QO4$m^2?s+AF[VB1qX%luER0Ep0]>b=>%3%IDY7bNRClb$&k0#IBHV>?jID8#\5n9M56>*Ahr;#ha2um+YEmf\lArVj.?Y]1zãU"7YRL0\ur:Ucx+hYErbCxt+LTk9U5DUvh+dd-hfY\kq4kãU"^ZZ/4A0NTR_U2?n6_m8ybx/+>reFH4.l(WrQsVka]IBAu?1PPn:nb5s-c1+>+P-ãU"Z?[;01Q]Ah%H[C(&%'Wusp+v2[0W:TT&kLMP)%^([/tI$G[d>pbS_hLTAta-B?NãU"6J:85cGjx+&UDNZ])+BIYCDZ(MZk>1WzQVFr/Nv&RC5'NM7zuQXphWPkF(np_t0Jdq3YvCMlxZ\wVNK,BJYzDu34a8cmV+>Cv&1\)v9'M6o49.3Nc.hGãU"JnA*e>$;-01pe$U*OZC,FDkTBTJBCgn2Ln**OVU&GzE3Gx2'3cxH-w(LsmPS]u37QXG.Kn\VJ\Jf)L[ll=ãU";OXO8uv.]\DSk*V:A'4M'vgw*CJgj5+B(ALBW(^=4%DfO*K'v+E'WLMUF*y(I]kãU"(GQ:/x'>/53OB)GNJ[]OI^:xgHYãU"GYdAlp#qfI'-&'&x8_VZ6Z9ãU"7wHBa,2PPj'te\TFfSb#Wl6Ox.Qk,5#R)3,>5,qC0)%egYUqM'kM&KHIAn*bsGXãU"TvdH_v)ZR*2%c?$3\MZ'.A:3n+oNveXm/binwIsC8.8V:[IU^^)_\k[^>Rx/&:D(2YMmF4Mq2F-JqPc[q[H>/w3Xjn#wVTD$ãU"oTIOle%.^d:j&&J8;/[)ScvUQVQua]QFyCf&5O#GUKZ<4-qhJlAtm$]a_NcE&#$ãU"=]8\$Ex_t=+hj,cs4s.fEcJUJIvAF2I;-8hc2FrSODH;%KMqo$z$hu:7KPE9g%qEi$ZwU/Z&1PClãU"I1l;,#R$)$1b/31AX1PhHUW?rH_p#_#+wS:M_O^/kse1j58G%O(UpnjfiãU"%hq0DBnOV5Ju:^E3(L-b&;ro3]o^qcQIWKb.]_JZ]rHYIwAufIW=\uhRgDhKS7thS5zSCo?J7t\s(SBM8Bqaw=(&O1&X7/uQx92z)o\?2,FWãU"N-e\eaOfo-q4kIY6c3ZdX4j:?sVD?'b&qi3bO/q,<5s22,PP?WNndt7XLflM6PIãU"eAX%(m1utnDT:')]F-vtb$s_4s'us$,V]VJlJnyz_*tk;HZf5)28r,hwJ[bO'%0ãU"E'IIU$kP3X>EWR/cIsMMV,O#cM+mrPp4(O,-jy=g[A:C;MXHggC[+/Tnxbdi(V&ãU"w<bO]QR#45l#EY2EãU",0$JF,VX[xNfh3e*O22Jubaj_8z.Z?n?c-)#4zG=D)N5;H&T0Mf&bpk7MNRyvALãU"X^O(zD#nBTWg\3Jn(U:G+vZGW78],^4RAR*M4fb-6_t:.9w44;*wjgx5wuu/mXdãU"xUYo<2YmDA)X3[(hfW.<,;[:h+ceeOnOTq'>]aH]]onmljh>Y[_o19f9r#Oup:.ãU"?)H4AupNKJ=#qLMp3m=S6*KdaU^9=7+0QvI0u^/*bD\C:uP/y#uA,4k),2Tk;*)ãU"WRN>9Q%ejcE*cãU"iCUt'8JtiWgGrY_m&(\2yTq8FshcH(,V%OJnZT.&O'c$L,E9oUXWSNu/6$wo1',ãU"5A[^hqr]W%jSln..P$3JwmSFM.#7O\TWBGid/&*:mtZOSfP9_Q33$-4zBnD9+IFãU"b6M:G&+iW_1/_VFaf;Y8l&i0etZB2K%#u%_#E.G/2Ewv:O_m+;B)Ls/eX^:(eEHãU"d;O;C]rMH)n;(:msRGEDNwLN^:p3fNk7x3nTa<1P<3/(J.p#O0f:82rkcZ&e[/:ãU"h7dT(k%R77Lq42pTsUE%RDC';e3wXsO/.VIanfF#Q)(tVE(t,qrq:bZY:bZ:*$m<#?=:DMB5ãU"i#%#LSQ7YGXV8)':J1hoK8J'4Jg2nrtT4JgX7J7pMbof(\Xmvp(bTxrR.i+3NtIãU"fCc&T5WuJo(ZULW1Kgm<>D>>Iu2y&wDgQ,FO;sZ_nB9x]h*^8s<&b(Ntfn%3:,ZSmKG&Gt.JgV[$nM;ãU"&&O^?+OUmJ)?k]9RHA;g$vaThCnZDZ>whK,;I\ui8X7I[kq+?Qk'-tu.NVcSeQCãU"sr63N,dtRBELQEH2-TcOceHEiNW6<],T[#*gs>dA]GTcK(pW27[lMdXFLQQ.+I'ãU"J/Q3t#dD7f_g/tn4Gw6dq^bVWIyU/o$VVg,Vi&DIfH[H6x,-TKk1F;B.'TQr9a>ãU"YXE6m8$pcp^+jjFIGIJg&c+oBfDhJu=Fl4-'.dCUfU1g[#lJ:)5sm+x9jgHI$q,ãU"EW6bwoSWeEdL0DXyk.3Id+p-.w4u%p()9%%%%-j%'[B^GUh$%H9?%1%G[%%%/%%ãU"(%%jx%fvWS[gfxe^$8x\6?/nDjzuV73M4;=Uf;,[VVH]-g(5o;G%Qhaao^zB[w#ãU"PAha$396usJsmTw0Mlk;a]WNl'Sp&xHKY6b,CNdwLGQO3=bcG0(KAtt.x''RTBRãU"N4(x*xO'5RTb2O]79bTJORaL.GBj/kFLHg-mN.A][d:[lmfg4Wo+eP(eITp'C%#(gãU"J-^%:#kunmuIl2&+Os/ff'ãU"w,k*;#uL)KQ2\1]=tw)iLZ=tb:t?1??r[blG7s<.s7PJ&+Jv_-te7mK)Z-T_-_uãU"I[jmST*$StjK1hJ3BpaD[F--zSNL-VL('9#2%aLKY5GiqUF=KE0*EIS2KJ85a&6ãU"X.sgJ6-EPO4016t$/FuJ=-K>Zj),K)eLF5juCe)UKK8DI[w69kh6)?as9v>SUSEãU"kV#>28V,FS.VzHk:n;sQheZ^&V,:LAkD:zfIh-Q5DX[tKL,u1JVãU"\V_z_1C7J7*7%[JCk;-*3.loP&xYuLE)+k*hiJ[c7j9&)+YN#L*C-FA+l[i[$eCãU";;-ve*R1(+9=8D&s-'+2Dnez-M)+%qf63u:3,&2DgwRWNZ)69W58U*7#JAuiB4AãU"oVqcYZfI*3mZhU#R7LEhc_gH2fZlidXAE4L$I6EX0O?j0-f3(fSnb7Zc/j2eFZQ6iP+.e]1ãU"7>VDdqPXBU>3FC[bkcB/5?(*=INdrHwY,EAKK8b6,9;sfplFH#U^orHCeev(d^3ãU"LpLpZ(YxGa;DCGIIHky=kBs1*S$?J:6)jUX>v5W%gMc1&LqVblc4_M4lmM1WH,>ãU"*A+c4l6^P>\[i:n5i?HAHEf'2][O8[bbYdKYMU52ãU"*8I3$PcI=c=lZ8qYAVLYRl*[)NU=O5^'i)fp1H0,=NqflGi:%w4e/dAFm5>[_^MãU"4jA3B+d10W)c)yfV>Odt(q8m6#>\o5&bWxU[G8kBn(P=sF*[%s^sIA17?q[(g$uãU"9e[wh<585#/q>\s5e[pmd;c%1\grp8=+rIM8\1U*sh0qbunn(1]Za8=&2C>SX=sãU"_EFk;Gs7/G#=CU6\9[(JDzV9J4As]fS5nrpscDUok>krfb&1ãU"JS5net[>W%b[^PaQ?Ml4ZR[pH)b\,=#?25.QR>B+%TBcr?Ow(<$H[Ao#D5*U8#EãU"-Y:OZKj_5,qV*(G5auCw?x[24ymy/17^l\rUo9'3&%6a3<]Bp/&T.%ln+'.j1'BãU"??tY;LX8^j/eBS%NC<+YX?EH(W&MW-^X#c-&l&KrC3B/;&TQTFJOS6]>q/?vRyiãU"cefCrPLLJnV2beD*Z+koH[myAc+T?&$DW]VB9u.jBAdPHb/&5]?)suJYXF_hA4;ãU"$FGXl7NHG9F42TYYb+S_Hj&Q\YRLUVUwXZ.gq$8XWpQGP:WefF7ihB3lX^/'cBQ3rW^=GrhSQ>\GGGjSJ+q8ãU"[I6CXhJP\B\CN7$%Zq]%*x9K%QBv:gT1,q&^X#TM*jpA0lTj(tKQ4R*YQ*re7kVãU"H;/gSu&,Zb)p6o:_gdnL3H_OSA>uhpCl>J^2pfb-F&,IFqj#R/E#\/c/:3<*lG.ãU"?)BU7X%1-*C;d1FlDpN'E0'V&t4p3sZ%\cWCt0'MG1bXsH=YAK%<(ZãU"FnVi7>y9k,%-=J)FVWqHXDS_NO)d<**QlnlfYV/^Nz=CjnR%c*Q.:#?UFq+d6nsãU"48[UY#3O.qCJ8vI-%eq$ILO]96$_:p^AFe;/jXOMBGtm=ãU"1FMZQ$#+Hh&5WisOnP;kD]\rv-E%e?'pYMiQMiQZqEOA,6mo1+iEs)R;nãU"sm=vOl:&%5FdS%^LtYS+vWT_b)H#MLbA?A:9qG(c#Ebpa_K)eFwf2&\6#)Qv*XuãU"A-Or#*jQC>O.B/(Xd40f$0g1Nl?I%8c:0d%qgYW157,JkG8p*.M93sn#j3V/F1)ãU"9t&u;NnRdYE&q^Sq3HU:8e5rO7.CJ,TcHNgUAVJGW1Xx_9iV9LtosE$[Y0;[2/mãU"R0Ea;6_T$-V8d4DOi)$d%Aa:H9)e;dUE:'^-z7alC7/]ai1#F<^vf*Xo)7Hz8*9ãU"q[?x--lVjV2]O?MHKDE3+vq?jIB7h&VDCDmD\\&(rw0uk%Y8V3GDej53sBb9m>YãU"p0>Ff5erVW&2Z.QV_>J31eilMe:4M<_LP8r6/ãU"9wPLFIjW9I%[(7kDBZ93$8*Hj2nzm\RsfK__4Yj+PuKIamLJe7dh/qmpey+ho+fãU"K'TF?rPZfnChPvO5$'Zk=fH)*jVNx\t^aãU"gO*u-Kjc.;oI#t^nfiwlpKkhO5hn/\_OQx?(Ch7r)egb1^-OWiLck+anDp#bfPiãU"-Oe3fH##)0:=y+7,OF%V$5n-P-1==;#\\8h$O'+2o*lVklT6U)$1BizR#8iO*_7ãU"x,&OH2^hohML)48]Wn9vzjg91ucrudA##NE^c8C1-qaciH?[44[p[A*aa9qRh.8ãU"K[xH-eo/,2KW&UREc3omq/Qhu_5R$pq]B9ãU"gMEt3A._uLq0jCRzo^qRV0$q'vpYj?Gu?cx1Y:q\a>,NY\r58GIS4*,]AlQu*(uI6G<ãU"XC0>60DsUd%7_f]0(bjUr0CFUh'-0UXRbn$j%nf0#OfS+bab*rP*GOC6?TY\4AtQA(q%ExYAdu6Xd;/P:]d,*.Bz^]^ulA_v7$WX+hF23m#j-E\08HSWcj;u9B[h7xeL%ãU"7tjzaRf;.W-jPaR'Z8e./e=rU*Al))AZegLp\qe3UQe5VAlx+\+p>i$T8.*[.RzãU"gq?2SL0Mz>=uMNMNYtgTi?OcTjB&Zw,kB&XLmw+NhDBd6EtYfY8rR91cZ79lW2LãU"00G64.4^:ZPYN)3q)n+Os()OMBi3Ix-^3t;c[,Yn7i:DL-qIr7\P.[9x&#lMfz=ãU"1R.5OBUL2uQK$u1iHE7V=yU3jS:AMfYocV,43S'TR'0Ptp+*QOt<:B23?e?g$TDãU"JB/q89I[d_03l],1;=O0FG?0R?CR<[oF3W7AVGsJ8=1#^JN__:)SK1T7qJ-X71LãU"\vXk6^Ft.>TY#A_Qh&euR-Z8+M9/Tnx:6=cwx>o2-9&s1H6&JO6^4qTt$#qS&]kãU"1-?wVLWnxtz#1XSo<09E.blZ-XQ9%AkXHRwfX%v]OnYi=rqRrvp-8dZ27YãU"-p-9dm+-\V<,*X$YjuZmU*HFg\bAjp,J-e>;u^AUlWwMkKHc3FfC'Q5*20qo6K<ãU"E\63-YzntRsAqr^F6xgA*g/R#mwO4-'#H<84^P%a(-r))EXOio5Qk.a?b2Lj;7?ãU"hkIhU)'w=4lPhIiDh,7F2<ãU"+dRNHt1],1>b5Htd_;bL=f4raMDqs9'Sv^k<[=85e/t=$DqzB>_e1oO.Dfg5e)]ãU"28Gwk7,;TO[i(]4eI8Y4[M8u/*Ae4MGãU"A>ãU"m.i[U>AdC(+h#ESP2Pk#9Q*kmLajF>Vl+UUE(=+lQE%u8UVsjf)ru5sMdix?qijãU"8.1X>hl5)10>E6J--UjS'GG+[W1uZZJOE5Z/uI-ujC\F\\kjSTt0vSVt)q,m?mqãU"YLuo_Sp&ZX4TQ*w22LzSN6cl0\y^^i,O/Vz[w1m2VNvTFW,7X(>1Gf$nn\G-.\uãU"r/NLOyq_x&:aCW;&om)C\v2x:_^8p?kJ[DI0r-bwYHpBwR;(74_E*,fdXRB]wEbãU"#Qb6N5_F#EBZ,1ZdSj,T?a[3m'XX22li0=)aZvBn>OAFH5]C>X^/Ur(v2Z$Df(-ãU"ha6T;taYhJPn;qQ/g6*E6e3f;2qC/*>s:)6WuEK*57yU0OG7Ng4&'Mh08fSh)ZYãU"Bp(JI&fL<]ZCl*JoN9=lsJIY-O<^br^,25Sbh&g[[O;L1Y?wR(+04YSLh%lBFj)ãU"TTd^.opyMD:fG'\.ArhQs*98B5epTFRnAtX\+?rCj5Atb8FsQlrbv$=;]VClKK?ãU"+k1iGB%eX;0X'GM=[_(bAC/iiK2%g;AA5j/<9b]uv#]l^(#8ubCOs7NM_Lg&Q\JãU"&I75Sx2*]EF[vU^rzm1A0z2E8b$FS*Gj/.Du(8.juXvvv[DpiOipKnãU"3Y4QCxFN4I->P.6E[+nkE_^ZD/a=)B0fG_hj0a$tHe$lAqGãU"AvHNcVbl2lhf4WMyCWVrH)e-vJcYYM0'&\.kY4H,(fw^zi6#uZ/;C5voi&&J*dYãU"ILoJjBB^rdKF&ãU"z1q*HUG&bQg>t=%_K^rt)t#fxf'\&NB$$*2x3).z4=?gw%tGyC9N5sKz>,Ev46xvBO*x6rmPywY/L?;ãU"*sXeQS-]VuHWCeceNT5cq*P44Qu49*\cI1do>.#jX-$1V<15#z)5b:q8f&jE_WF%,t?s%RQ$NmXXI#1Z0hP3mNãU"6e5IZ>\KNYaznY/BP=3ut^-S>h),iKP2]X:o(a5DPm#jx<7+d:;+1bWpcz4/<+YãU"%Ns4N7M1+.TFm\[2=%aFQPc]F6rM7]Wks:u_VUuDve2(gqVNI3ZKBvl<1'i9cPRãU"#_&rSrOiu<'x[w35=Wn4^x=LAz%O#-S^wTtqX-''ZH5&Hd[eOi\2X5+pbDK>bKe>bce;Uyd\uF;uhn:bu^rVU&0Ta[)9ZYhT<*aK$ES&Q$M0fUC#*'o5ãU"p211bF45)>N9*8^/W]qVUAZU>/P0pQ0E1SF(SIF/>XV?*Ciu;JBgPGJ6sOL*5)cãU"y9Roi/c\b=j<+s'8qM&]F1UZfT:SHUJ.ZRRuSGs&Qm_c__ochy1TU:EP=$cR[Z.ãU"'V'EVLFPdPs>JK7E$f.sãU"4gm&S'BUbgSZ33ux1ry/1:DP0ZX0;a(tD^3vupoEv3aC$]EpJ4IuW:)vdNb7'W8TãU"*8b^+Cm6Uv,BcTpchW;r%9ZvtmHlD4uFka'8lhcg52;de%mt%Tayo(ODm?#NhzD%m*OORr,+3Fi:z$gGwG-urrnR0?&2ãU"$(ScY(00Jg$pd^4hgeUv-T7(?-6n(V2fGqV]0DH^BYHeA2dlC:]<*NGwkfcXY(QãU"Dn$KQDqAf29eC#FOlyt\P1GnYt$6$j8HD&7VyPDKI;Oo3FlZ9S,,?Uv32oL=X>iãU"i='^,Ps$%yOQ0BaGzCpb=Y:0MeMlUm$Dors/Z2XhoRof<;r\WfgUb'K0bL2q/mPãU"Ii&#sxKb0.Ob2=&5]A1iL?5K$8h9GLB+,3udNPy><=JI5IRL<_Hl7&rX9$Bs&w'[W'7]<ãU"#M&4G0-Vr]Ff7G]ch.aN>[6s>e$ZyNGYq,GMej[vi4f.C9^?R4RGV=tr:Wvg5qcãU"IgI3aJR4;E_AM^?%+:0VwRXmL&7Y^i%Yf:iãU":cBU_k/Y69q?1OIc\2:q?rAo]l4+w=Q5%J3mF'Rz\-&n(u%p()9%%%%-j%'[B+Gw'ãU"](qjL%%%E&&%%/%%(%%jx%fvXS[gfx]g$:BSlA+n(bzuD_,s'(sM3.PL-6f7r57oFqscPJR8h^>&ãU"Xc6$I3L(BJfiL<0P6/vFt>mQmoTluEbIi6r0:n+:dbuPD\:cRNJ2;gJ*$<)qTR=ãU"wHY?$IV]p9\2.AfPDbsj(YKEC7I7)?pPg(*nY]18N3W;lJIvj.\?(<8Ph0wN9qhãU"nh8K#O$VyE8:&\[xBH'g69RlPFq\qU?YM.Ugk<%3VP>V-E2,g($bI2&QK_6DWU:ãU"UO27iQXFVF%a)Ch^k3C9SImXu[I8KYl#7W>=Yb/(=[hn:ok\iat8T-U1(>]JU1;ãU"^RAiEEuaZsrh*(XUFr2>XXsQC%W'^E,QS33uQ;An+NT2Ubd1ce>lo\5+YZ_3YbR$&o))T\>DYsVDg&A_bzW*Zmx6gQ_i(hãU"P#(J'8u^Z-#i:WOQS58P]s-nhUjUivMn^>*'Rh(-SYtD,hL)vaBU\19R=E/50rIãU"_i*h7vflKb5/0cnOcrJtpuKLK2IS;+6uhl2q7sdevWMk)9pU5g%n]%/*e_%XY:k_(E*2p62$hOnBpud,R8;/oKBlIXD.;.Is-%QGJ/w3)':ãU":jM.Px>?toc-+e_,m5-pFccB0R**-D_w;d+E(^S=QH/(;yP[Y0ãU"_%#.=rYQ2$_[F:lL0A'>gTgLM64dA2eb_dk=]/a4/L3kCLZ#.&g,us)DmG_?,W^ãU"*$ulXt+HsS8F_L)r$g8Bb1Nti7oc[?M8QLS**y;JS[j(9l=IpZk#C&(F1l][iW%n3;;v6csl''1iV?F'mãU"CG4#Ubs=C54'\G\4ws^-u2#,SNMgQp)95]LX'--hcv_q]WIm-KCFcob=fA1NqVaãU"i*:?sI[l^M5zQF+0:tfDHbX'DOZXp%[pt)APHzDjg3^9$+:?o,QF^&l:)pt999v\6G430Pd)ãU"+L9+LT:^TF99BSGILãU"XkyIlB?a.+hNpGi-10K-t2F*D&KAGp=13M/BEw4cbp^uogMO[3iH7Q<8Nvk^yeiãU"T8kK$'.7E\J#jYV%EQ;^+\0/UA7>9%eDBYy+C,$P\/u-\iTAY?jKLQZeA_Y)_.AjWL3Dry9[J->(/r$6jeQ7\CãU"0B2?b&fM2NaG\oB&Cwk/5TASwkAKA7&M*d%;pbg,0'L^viPYwc94yP*5^RPR(hrãU"6t*I1W/[VOCG[lH?+^MCYc]Tq98YEb/aD8O*GC0KFr='<9LIUmUc#RRGJK7[0;='-#%5fZYW[:Y#.A/:;vEk_=OOtp8p#R=n4+'.Qd%ãU"Xu'\aiNoMot%v\w8E6^xiDm/Ie3Xr9=wA_+j'aK_OME<]\qKg0DS>/k-GrQAOgR.A;h2WI<+U95^pKd#GspL/2(6RB;UK(VkU4F$um576+nB=&JA([E1qI+FQO=HdYO\'KzCX/z-W*Szacz$IãU"hEE#Q%eLeuXaV+2wM;e)1t&6n-7FVS1H6?[]0(*%1a5+6qb&*uqJ6pCn475T:CNãU"(7JBGM;O.jR-ekL7BG7(HuSiKO<[G*h]Tlq<%Ke*Nwgo>aCLU[fJ'b>CG/VlG/CãU"ch7wmb)fh>_YYrqu,urv4k94hb1Ot&U(35Yi9XeY9;g9kV4*.OZ-2523%e?FsR8ãU"-5E[4\wy/.'c/R.H)%^RuMdKC$_Tx[oMA[D5h,b^hc/uz%;;^&i(Eahdn=1/cDkYuAGUX^6/.-ãU"gCM()eS+mRI?&S$_YOoA0wcLCipe(3&0TD'C&^U>_gu9,eKt[$_5GONNU)^.t'+ãU"f*%A]JU5l(3]XUfP)C1/fF*/Atm/2P/=6nwWAo\XsJ:o/<20,TctTQUgaT$(.,RslP#5wiMx(/^ãU"2'4BB=Bt7/Svh#Q)[4ipg(=:sG3G(R4A$#*J-FKaSSPH+[>tC?n#j))?s$uJc;cãU"W8XIH4Z'-p?()b$0HKV-b7PT)Al;h3g%8J'AL^\4GjvxAJ(UNM&2B)j'K_z%PC8ãU"Y0*'H6S[CQAHg+sc5s//BC$\TSxWS)Y,;BC0b(8TuoP]N=^bf)P=5A%Qc'k:8,mãU"(.nISdDDuJcMnp(OSJVZR#BZti7k,mpSEt8op^%n9P'Q$5#4'-aO/weML:ArI/qãU"[f&G0AkJ\rOCelwQtXq,].T3qL',=3-&hzYO)#aPAr/,Iw=)sQ.LPqoeTL398aQãU"N,,#-.+*cF4++^_ebv\:8sKI$DR<=/b18OD(%ADV[9%j/*FR;W%3'?Tv0h3%%[QãU"GOQ19.t05;&QujHN$ZaZT#h3F^t25N^].:+Rd^dfvLADh1[#iKF'Tn6*I3Ee\PzãU"BdeLM:g3E;:5h-C_V:,vCTCEKib,1jVZ+Xk8,3Kt]]2Fv[E1DxookãU"xjpy;2Ce5ledLv6f2l9;'2#[nXO'UYG8DY1hO0,xp*l+hu'oge9?IwAI*#-Ug+HãU"\C[\Yn9tqgh.HL[(Q$b7RW[k^EaW:-*/A&%gT:r2(bPEoTq3%\DTC=O/ic1ãU"i#7bgyRarrc?gvnyf0u]2l3YQjM9yZl)'Dv&CZWMAs?%KpI_?++F2v<:Q(Q\qSQãU"=DG.582\iR1,]2dJQLc-xk:V#AN&*tQmb?i6#YXkQWL_b(uge:C0IhW)BWa>i$'ãU"G,kPSum=^8k*Gl^r#_8ve,j#_-,1D3&GY*c:xGO$iO4sW42iz+F5aj&]>&p,nk/ãU"0=M_(FPp0+_0SW5M1V(F5Z\:fAguTgEk[1:&eCFu[eVj(F)2;X,G1Ln,d$Rl/C9ãU"h\jCpBwY.o$Fnb3A\Fn9#=QO%M#sãU"y6P#zNeg(K&Ng_D6N5'\GB3?rQAJSA%1,D+9j,n4BdlSZq*LO\/q*O?gat+(*Jbo&aXpm(DãU"($?J7:Y&q/mY5;d>U=>E&M?fAaTKm*:^O9+H4lDE7:jlijH4'#AR1Rlj\(+oQxTãU"s+_O33i#^mG=A4_K5%:jaOvpaSs$U%CG6]=iiT*[A[+rULKI6?LQWJNVHkm0\mcãU"aY=w/uitI#&W,hO4dZSt63sG#bM0UkC63PdI]TEn+TGd+k]XEo:V/jb(3/QoNJ*ãU"rd_).ZJpgwUwf.=Ix0G<8'V^ee&dd1kp'r>wPZ2_GtlN$_wE7n;6+q.''<;ãU"1G:EslMdiUe?IJ^t44lT;'R:9jj5Vjz;f-bwp?5cZr*hf;m,7/nnT=;vuOR+z(;ãU"/SCkaifQ*UWDnGw$-o4xd_g^LBm*84V]pVwwd6?W(Z)N>t8df=jScfKJ4&r(93nm?Y/BWx/&1h&8>Om?Pc+orh9Ye6.rmãU"b'DC\39fM,j#ZGX8iBe)Yp\seP7_J8M4v#Uc:HB(#x?w.'$x/NnqWmUG9IVi^CUãU"v26fxzOddV7DL%qcjB+ZJtt;K_?-bN26KV3RzK%3QULZ:8Z7(Fe/.M$8,m6UUQ.ãU"FW^0&i9E8qVDwK9OvX2oQnt\-Ng-i4O447g0IVD06tuTbo(HG83I5DãU"Ot'nM.w#(mUHZN=YU'0F5s=u]4qw;,KPTjl=aq\%8vt(;DG07Y(]67,FN.[r\J(ãU"CuY[OZkE70/1%n28_:XNd#G/,t\rSzGVk1o+$oMãU"#9$Sj#ePR4tiBX3N94jBGNJkO;,67c*)SC4HajHZp%<>t?Ojc5vnlP,b:+5Q?ZP/&]>=EkqicWm>xE)[zãU"D=(H7:2K06Zj#CLlfV[AAIMWN5l7F'x36N[(J7^ujd'^rR$;Jm>$KCa;=u8rd/b;rp7ãU"4?lBo3dFCl12r'9kbYthD7U66))]+h?I5,]+c+lX0.F*Y?M5*PA7]yttW2sYe(>cR##rgnzPl76i^,%Mw)7g,O,BgF6+K,]ISN]gnImaãU"rYC9^t[D8Vl;AiOJz.eo5k%oadv>tMCpMxdda.'z,o7^E#yVPk%cJka__%wXTJ#ãU"LLJStK#x'^St9qi^sSQhSc90AG=B9*[9Y0u=NO>VtmNiTM?tHAxZ8(MBxX=&H+ZãU"?_#$65k3i'/N5ag)[d9InjMO.%^8o7W*lm:ouGcHdãU"Z8N9&845%a0$?[:z&q)=I3Ay]2RSiAMbtoc4T=A-rSãU"#4Qqfs;a;7f'0E?4YoS6FgiNffE#p/3]JJj)bKwyV't/l\v[bQtrU:w]C,r?eVYãU"V;;;rrUC&A/P>E7$I'JU0I-JCmG2rHdI8pQqc2R/x(\JO_iPn^/T2dgHPc*wXVrãU"WBnCV=5myE=ra^tDxG7A72h-XrRX6i1-K7=ox[%k-<3Oe6t6qmAChdT4m*atnBwãU"X+*a,#e3H+Fh.klxoqlmC=aZs>pioh]Rj_S7YBOh.+lYGJePG28(ky$Bthgo+=D2*-qn5ãU"??9qK[i%Z]uxcJG?&G;'E4=[Da;cN\Py5cyI\qh_Vym?V.tw<7/l(=\IJ(GTF60ãU"scu:.^(3rCeWZ&VIh;EjBvVhms'e8qE?c1Rq1$2AA?tHRElXW^7r5B8qs0UChn1ãU"2Y$QcCO1BVPr]z_KZn7D9*e^E:-izVTcN]p#e0sR*%tJL(*>UMTb5G/fDQ_O'KI[sLL^nfNK%O\QPKC;VGz/3jQ%t^k7ãU"<*,i$/2.4Ywq9B7i=0TOF+qi^5vIYov2[Ku2[q0>z[)MRl,>*kBb*^T*EHSãU"u[1=]V.C)^COg2/0//5PA6.,?JiOOb_\kAnWipb07Jh&M_J'..A0C2>P:-f&5&EãU"$w0&fT^ic-ndMpq,?I1[B-7>9pmC.c3wh-)Pa8+T&eJ9/O/.dl^P'1EK6P\;+hIãU"st+S7Y9C?(DC%,(NJu&Iu?^xEq%majDXt-Zj1H=G3[c,dx7opR4l+qQd#PGOZ[uãU"BW*Aah^._O?KsqNYEG*bWabA+*))Y=B,qn%[hMU/L^/\:?&6RZP'UFIOXOrFelJãU"s/-fTkrF\HT&*3A[m:G%u(eHuL=Ile2[3Lyv9MoA^N]U1'[?#rpiVcKZoTP)Y?.ãU"uU^o82Eb:XH+Oe;6Qwm7gt=ct7gP6il&Kx8iIPZpq>zXCV%AYda#=0U[?Lh21DDãU"eF?J)&TNC3;=n7G&H(?>2W>:[nLF60_t2>RZHFGT4A_AEf%A7o_LTKDUk>,c&4]ãU".M3J4lAGRO0vAj52QAVhq79&N=:4?h;iY^7HirKeGj;S+tdN=,/LyqumD'%n,./ãU"nBRT+1Ch<]1kNXb\RT\x,tNt^YP/b\r^?.:[q7F0L=T6\GDSh];(^i4R0^pJ$SRãU"KjAA[lsClA6ko>M9+:U3ICf)%E*6>h-q/RaQ:R2Zz%:Eu\4Z7=F[0msd1tYt14<ãU"O*0xKNg;6#>26;W'F.hc4oW8z0TeaXr13.L^xDL#Te9[,;68213Q]m_kL-[v#,LãU":CURD1T(]]$/,0t_pRI3Zgfp>4dMFxWpsD=vG'BnBM(xFypYJ[D]r]sZg,*$+cTãU"a=+lMSIBkKm-Us=g/5:[[(Sc\EH*v5=Qi/4Cadg+:eDL2:^Qu2t.x208UAN.-z5ãU"2X9&aB&.os3G*_L_j:#UvkXd2Ta8Qi#rviQoCx;Pa\&5kZZT\K*RkXD5i(Cf8rjãU"_>/E7iJR\VvqVW9//S9:%h1-Uk4.2uMCETnqTy#9mz%/_oPyb4^R:;ufSO^#%>/ãU"/5+*Z\zO-kPcpL%XBxhQ95k(W#NsyQ>r.5n7sRe:&Vx2bS]M;$9#OSo%rãU"=HKFo[A+wg9]B1U%v?Tc>k8^<;cG:HqT](twa5O8dw4'&>tyc9m7Wkqbsd>fowaãU"ZHH4kzC7Nz$BfJ?pKO?VY:jUFjCUY3^6q#fxsi9BL7zsk'h#9ILgwbxo=lN3cãU"1M.iaU:3duSxE%X3R;AAWUV'GoPeP(mWgM.c.ExHJv>=>Qe=3e),id/IQl+qWWbãU"x:iX)jTu/*a$\TJPP][(FW?I.mC]EK#-K_hd%u79X&tj2ni2AMv-ãU"[[f'IIeQcOM8ShG%*CfMG++kVB?h&BHD$S6([?7E1Z-37SM%j6tZ<=;:_ãU"5_$SM8]hem7Z-1sWGYj#3?XKjJ('fJ=]Eoa/Fl-r]C,7TPOhJURrh\,I>FM&[WFãU"-cHlGIfdgjC36jmO>[%^gmHzQ1*]7])Z1]Qtu,-7OfA#'4b*BV&\oaYjt#mb5MNãU"HI#q]Ms=?-jj\C,OXf%p^lHuiYi4I9n/(pk\[r912Ij^0Ow>VKgI2.Il-rB23T%Xv0apthgs+RX:s?IX.c.8($Is;,32ãU"=__rGeFIo1']SzA\tyQB.<^.[;8e.1q#(jj3F?bpj9uLC>GUAq<.A.9=XA_\c3iãU"2tA&-7AE#F&r'dVEWC+'+[0S;t+4F#T27%ARMByL\WHsGJPb.];LR#'z]7N&a6kãU"85A&\s'Gc3jKXk1m;5]d:ãU"&uGa^D0I8q2A.5IO+vYS_IGzn%PACVI.pNgvYBEhm,LL0$mu*L96^V-N--tSfM%45*<.C>__%A9S<%0gBVp9,aãU"roSPBw##(.4tH\*m[&*;%.Kh:wA5rhRRgTmp\z(LL]\.F-W,t0->^8,CQ0%I;rmãU"i%Sd,jxMFI&qP0<\D1WJB:Urjj3'+Ww[#Xe95a911iS5)C$LXPbh>TM,Bd#TQ[7ãU"%+h47YjJ5)JJY5p&qPTt\zH.J,#cTm6o;d7^2iBhul^nQ618yQr6HNpV/W?0ZASãU"s:A89n8R5mbYta':>(ZXS#[l#_[KL4ãU"6gtb[NP(]IJz^kdts%BeI7jFk&bHMX32qeUG$e^i\qTnX?_'KMM97jBA5YU:A$yãU"\:?>V>0%c3i>iU*4iiri%=z1<,A.%<*]MbK9$-'n(xWCb%0VP),ãU"rCroJ'%0qbU6L)G)R=Ib^U;*_j>cL=uyx';Hk^tZCWPi%9$5\Cd#I0%oD9_mjNNãEND SUBãSUB V3ãU"9Za0P6LUCA$/Hol,DWGq9ZN5s,23__N/KQ$4xpD=Z2JHAJ9?wZ#CXwy+ss1E1x;ãU"c9*2_*tUoQYr3;Tff2FBoj9Vx;BrEXk+_P&Wpe;>[65;vDUSdf5IDC<0NsD_[hoãU"<$=X*.3np5ViRrD_Mlo9,0a8^z;?mZS8;b084_$7h33+9t6rA+,AJ]>[eG#b;7MãU"L?YF2dLTdHkW+e;C.qkuGu+S.rP-=Jf86Rn;a8EXOckfIOrO.C1jn03jnaw:k_mãU".Wbp]7VYNkl'yDAFr%BYwl&bB%NWCNM0B,,KhZoYW*OWM(DB'KL3,Cp2Zgq9R^/ãU"/+^5MtI\+a]Q$=,ZSh*FbCUet.xaBerRo9W>Sq/wrmxMUEbzctAi$K(/5(qv,-hãU"M5pl:vTPFs9J4FI:n3^&(_3*vOf4$:%*Adku9=ãU";_0*:G*2E?+n1e4IP<*eGij:8\m;%[_.z8*5*5qIT;G-hZ/I;/TwQ]P2GfjM]t)ãU"J#u7L'\2Kgp[$+BpA<4Stl%%tYLUfc2Gh2iz+j[93kq)z$_*$]hg'X%UC4%mc+SãU"&29_L/W$SIStcP#fe4-G'&_VF4a+Lj#Kds0I2'SHMdiOnMT_P8l[ADyu9]7HdorãU"#8[Z8JjnIUr%<7B;9j[&9pfXQDSan=j)me&up/)]Ab:In%dYf7s3xpmV;'08QIZãU"JABAlFwb$]&GD&Q7(%+g].1UmfrTTdpr%P%2:Ji+PXmSz-o7N)O?'0dA\h)r>d:ãU"T4U=_mJT'aDW8e;Dhv,nIkwZS0L=7o:Sc$Q0a>Kmp8.u7^>D7hr.Mrr^(eghKSDãU"t9[,eqIPs397sx7-/Uh4HL'QV+J^E?=?Ds[ot&l:'C0xbS[bqdLS*p6Dqzxr)pXãU"unefM=0#.V$Tr6\RBDkTD#YXTBcfu5^'>i,TReo(m%6A49JX'WP2wJ]8nsm-c3qãU"VO+?8[STul9F#n9IA=DdY4O(SrKvgkLtC=N8J[mHvm1,'wcãU"al'2V7n]ohHA6XMi]XãU"wQBmjahKqT$JrTQV:amSZRUDYL=J6mA_-1T4wL;<$^)z=u198,F_7[iKIDq?l=pãU"-i0rXOju%=SWL)Z0Kl:0#IdEuUk'4J.9OwT^o*x3N,FPJR&xy;K[A9u+hv%SJ/QãU"q3Q*eY,.HXV:B]RYjRPw.gZN&,8:iC*X+D0,Mt,)T:qDd=4(FLb?CPag5yS^/NZãU"kr\Cu[[bh'=Ia02d7hv:Ba_fFNm(lURu<=P(aE.x8QB51pFE9&EWS%CR?mYB)m(ãU"Y0qk:k^N^;5&o$EXcPgcq)M8lRet=;iXijwt\3tDfh$N(_/jP.yOu\h%#K4wz,>ãU"xN\TE.Igy27<4wNuml&=p*CMR/L0+j>N+4.Wo0ath4vt.w>Dn25234]&2r<-0:UãU"Bm1b1\/$KBy4O0Cv;h=d=gW3yK--PAG_g2Rn#;#7fqVTRxiv920F;:P--Kv*xB4ãU"sl#V^w)s]/bl%/YdhQI(aTnF5pBmO2tf3JF7=aUscUZ6=[ySp4\wYKmHQ;Z?M(1ãU"LLo*fR6A+hu2Iu(D'6CQ3JrS/gn.6sQ+sk%0s^&s=Uv#.PGhAm6i>.+sMwoMK#YãU"Db&RZWcC\[B&ZpY/DH$V^Xa9g9=7zW>&DSj#F)YLK$G#Ly'tr,GwK/-#ktlDPZifGe4L&^1[R9,<<[Y&eH?lWb)&>cM#ny(q*Nk\=KovãU"OOWd8F)$dx)-mSjeV^_WEMe:IGOGhnIrq5hmr;C(Woh:\5eOfp#DB8B61cY>d;OãU"JctDB>(TrXi)=U1&A0Q5x([/xEf=G'KVf6A\yJ'AJp?\vvaCl3cY'SjPD>%OjurãU"(]+dj6)-6JQOOnMfWqcwm6mXNmW)D$ZgVxiE]P;2O1+HJ9EHhK;:>\O.wL&jBcaãU"Sg>a]Ob?5-3ZPA;su/PP/][IsB2[qVHUg5G>Aaw2mY/DEdpC00Y?P4,8DS:K;tVãU"a^GL-mjcJFD>n?V3o8nnm2JRriKxmuufiD#4d'%\pD5(>yT.-n_=I4B,wxq/jG,ãU".C^DOFICk3^K*0>ND%[0[1mGDB;A?j'&(\H7XKO'l\>:iqw\0,W7g.ãU"gsah)tk%mqko2W#P&?Y.7&ih-&^yGX%HDO3UpCWX%s#\9'wp$c2B3cs:7O.O9H9ãU"5%aPF+;KP[PHRf_dT2w'n9WH5w\]iU_2'c6L=6Em%JtU:/aQE?(Iq+cC#I^8vn4ãU"Uo+-nP&0I/w1UKNY&A*QkjJCEWMOWQIt].]rkSGipWf>Pz&q>f6\N%]]jA7dBYqHgBBmgWãU"Go;p0/4u^B_HHDD&dg\v4J7I]2jPQI:j((kn$f?(K\fku&8_-+CcoKv'(40jug]ãU"x$T6:I;]FI/jS7e['+n(O*Y2&jDM.q-Oj'cj.DUMAQhFQB.tJH&AL#T[^Sv9(nQãU"enG:ZrPcuRFiQlr0Rb7GMLY(r;qmY4=Gi$).pFt>22#+^z>N9uK;f.+^LRjV$]+ãU"1lI.cE_/a_gi2(\??[-(E^OlNc1luMV+4l$>r5qJz16i%GKa>M#YB5TCe:Y^$w*ãU"6U%GarX*N&INaMlbJ:O'i('*XCZGXl-;pl:KaZDWgx:5[1B?e_ij]]<(PF;6<(.ãU"GH*4i/*a^p2A^^ug/*0]kjDqz(^D\=HVj\KwF$;v:8lQIdVESdLC$\d+5n,(YfNãU"COfT#-PG91sUnWK)$,Xs8Q[]TV-5u8Q,=q7]z>N1r&(b,fdF0G#)[g^dc\=5j'EãU",XtwZV(;-Re&6FH'QjZ^Z#4(#z1(hL47*cX0f(aG>&3lq=HjrU75b4wNxRãU">d)iCjcg[YWKUrjgp:w&&yrfxc:0QsoVVg1Q5ZldP2%E='r]3^iYqH28pg=^\IQãU"0JCQ(5i6F0],m_Bs:,$Lob[uqP[MrHRr>=BuCCfR\4HG6*IHaUGmY'#mo)%&NhtãU"/SbX4QUDMsLWt?8Kf?PhYXLr:brTj$t#J%5Y%Xt)91RXoUr)K5tqX_[d\_lNsS_ãU".=JX\Oj]RWoDgZ[/%g/3gK&0>JT7CnTt\RT*EESuBNVQfrNGf]/A)i3e;\a\gC-Q&.D=^/irOhm7;bzo2fVWqvI5TehC7qãU"]e1R1PQD$.d.KNu\Mo3hcs4L]&cx(9Ih+g/JQIFrtK8Dzdh3kz#HF&cC\xa9bM+ãU"HUjhG679oi[4Td>G*O4V?/n-B.t=:Nc)SG6k]MIjcf%_qPSMo%s4hf/aCR;&#i3ãU"YC-E&WTNx1H(lQYzvQ/,,kNM+;nH-Vj:EK-l1r66f%-oJiCD:^rKLziszB\Zx]cãU"m8[g4B&p.Y1YEa7I,_kAz-7zC*+sNL6xe9vGFUxwkS(PDoSG&YtZM$Q)C?Hj7Pz7q(wLD#ccW43*7C%rãU"5-xu6l,Nu%p()9%%%%-a%6%>RGYDB,5[.%+%+Z%%%0%%%%kqf%yrjr%SfxrNN**ãU"BHT/7M;u5mDWIv-\)k$:tE?dkDAKrb\E\[TB?Kb]&.IFX.^jA%AteldH+S9$ft'ãU"+]/N?R8RoQ4D>6[<1&j$Gj0cth7#&#kY1r\J+XbV8n;,R4E1,uELfIII.G^WWHJãU"EfC$s/%c-C:DM5K-hX())Zw#W+7?C2hXGg42#w3kp$'AbVfjLzatI?d(AVRJ_^kãU"xGG2w,\KuUWuZ<,]3K(ponD>^cm1D.bnuEB$qMm#GL;ãU"M;KYk(10Y.^3D(U*jG(jIBLEGL+5;$p,+s:/j7OC4W-MaUpf+?ZãU"BxS0(sk69wr[.3rA#rA+y%+AQAfR%giz4sRFxMQfd):&8>p?YuKcF4JtW91afBVãU"5vX1cdIlNVAk7WQTj8YuUI)E,c?BD$Cu'x3/%h)v.RgQUl^Z0A?#^YB9#)MãU"HULSlYrV4xhB[KiS_6tsHu/R#42Up,G?P5)q\GNXGjs[EFW$fK]28xYBiWtDJ8OãU"=4/D/n.^,8X)VJuG\_p'/Gq'dSIp]j,\#_n;;jnY-2bziB3%b=Y=Rs$9dXh\E(NãU"erke0.BsvWJR5&k'I[M2zMAD#gMW3^K^-u9$Ga>K<%%gwSp*pKONf>RY4n9RaC4ãU"CBa/(UlV[=7EkSg,kp4.J%kgmscqayK:-io92+gmaD#JsGnXeTQiCs>Q5)hpA7cãU"BlK/C/&Nry^?'mG#=&VZs+f7QDg12fdUH6[IKG5$r(%=\$Dbx#=n8OVBIW[GAT1ãU"pTk'Eh\eXF%n&KViqo.%w3K6'76N0n]>BGTd$)KPItgQWUkW1BJ2jL$^aT4QYq]ROv[)+*JS<0+1F++6BN>t^#8PgyZ-B#y$#ãU")u&c_c1;eP+/iBve$TKMl?KfMlXWZ*V'H.Z)4_D'tmR\e2h0xM]PU<#n?ue,.O*ãU"5.i>alqsdb>,o+aWTI_p1]o9[mk](Ikr(FF:9UIN,:fqMU6VPAvw8i;Rumo0DsrãU"lwv=8e+dY[XFr/gaLfO4'n3D=i)v/1&grg_$fE5-Z]A2hrY*b+pQXXSk>hXO3FYãU"lqg;$Y%]:]'7T-NFhA;3H_pma>89TNHl1KH3rqm'SAdiM=#KV.;+\wWGi&LC^NbãU"fk>q.#)Gq7\K?.A,>c/4kT9_x%[k^/8Z[q2da3>bXGc$/ãU"s+/uOqo%IL5THvf,.kJgA^H?(,.kJEOV8%kp580X>U8xU-GD&kVTXBPvX>3joH[?nk2wvXãU"c0M'*LnrJ)w4^RX8ue1u:$LgztaIjãU"Pp<>=u5MW8xQMT^jE#*9xB4tQH7\\[a-)0>Qgm6[>ZmPi+_:1u/*>':A:&QRrLdãU"eH4B&Q8XNSHjNM7Q#QWtTI;^%mO.Ql_f7LEcvsUH2D1_RFJErWsx_>1;vhA_/WoãU"Q&*T5Em1;(=WhsKYR/$1=2^HuBP1Xjgn.;XVS&pLZlCU#(S$]xQ,bFhXM&PR81gãU"L#l<8CL77c,IvtSu5Xrtai\PQVw/>-%tu_nfW'qJl:j5-rSCPUc%,9K/?PAM#qDãU"RdO>BIcG)A'Cgb:FAN&YH_LJiKoEaR%9]Yb]JVFm?Cm/l)UoB([pwr#8uV]n4K(ãU"e9hSFG^%QvDUeNKrBsLI7yi-(oR?)tmg[i;;=fE5C$7rj4B[OPjq:*TuLbb$QN.ãU"^rCh?lmP0EQXE[hd2o8>u+a4e/tC$N1&ko+6kY/HDeCR%d4_6b^f6kM4.#BoXgksU%/-;ZvoK[^7$Lc&0vtyuHKQ^gI*ãU"lw3b7[5WqhVW_FYk0D^9*9UvNeQQgB8_pPL+8DZQ_jzOVlfR(4*dC(6hhSTl>(ãU"XvIgbuf(uIv2[(=kf^6Q.+J4pLsQ62H:ur7A^WXPB5Af^;#X2_Z6nOW_,)D,aWQãU"tGI(:Rt:c(G>moIyP';%*4md*UYxKVV=$QK=X*bffr\xFB?DO];z^S05h^GvãU"2f;+o?,uscG_WqTt5a1YJ*;o^ãU",igxv6^>[KPa:*m_ãU"ivv]k*80K]?QTV%E.U:d.syoCsCM*=34G%0du,8oF9(ppXft8%q6YAt5gDsU5e1Y+FDãU"UTa[0=Q-mgay3kjVLAeXeD.gg;*cL[egcgPQsneI1CWVSuK'%e#llrnnHgA<'XdãU"pu\cRf'uDup%()9%%%%-%;Qa=G5Lv$J'h'%%%q/%%%0%%%%kqfy%xzgS[gfx&heãU">>SRU5?.UrLSO&SEG*JW/hy*6B8(\%B,RhUe>88B-N_pLO/sãU"C*AqMjtGFpd]^E6._61/xU_[Sg;wvh,.,brj+ãU":a>*b9=F>HqB9foovj>DKpv5AM,\UC+7iT^JNw*?%^A_iKOBCEiGL*Ik(JTkNM36BSãU"i'\8:tgv).IoNM(MT6bX_qIekae>yHDE#RZ3drãU"&Vk?%fQq_/eDcB5yZBSw-Xq3I.t)s#A02<2Jaa:_[L4/),.;=rU/jOxX,>TIrkdãU"LaJ'XuaQ(=[esZRwk-f>o_+C(ãU"IFgPm5/1.W\M=:(lY:dt2&2.U-8g4;\']*>1SKxuc^m.p[kdx9TãU"WVrp_;.>+-$KDCe6d7AH\Jz,l2:x$%SIYnpmBbx>=/-3\I3]+[TSNQ.UVKTXãU"oS'wZ*v%Cuu.g0Up-zNN7N:3b2qQvI/T>ZkGgXl;qIknnW\(]Uj2+ãU"C;e?pHb^,,_^Td?jrEp%4+f7CGKqcw$UVb(1(h^ZP.<#ExiwQIãU"6dhpTNlBJ$n5Vk[/0i'^Tup%()9%%%%-%8*.#G[h9ki&#'%%'P0%%%-%%%&%jxfãU"%SnshWN%T=B[U5L1+XN=(z*&wTTdQVAS)?<[-z(-2L)hU:eS\yH/LRN98XZwTCgãU"4)4ec)'W[?_[VL5?mZspL\b).cmG2$KWV)?m/l/\f-j>.9&BsR1q7D<^7ZhUiqUãU"wxM4Py_/6#-WB8Ap<1z2.n=59Ti$>])xLguWI$XaJ2cn$S9zHq>TG6a4ffM9c,6ãU"-g_7V'PNR?n&Us-4r6JhcQf*(z;%'.N&)E9);9adqfQY&YfCahhaLe+geiUWstMãU"#88Wsc7jt^j(q2V7SPEMk2E]5Y49oTwQv?iK6F*pk7AaXA-p#k84+01p.vsW>CSãU"uTS>tlf&6i<,%VD0JhqY?p1]r0w>extGm/>H$V0G;5^hon]l9ãU"rD:.*#zU1k.7M'de_^n2R$Wg>QZm_,8O8QL=u#u_F3Cg\v]2C=PYgcfyflIbFvcãU"xYMcO;KuLP0_fcPEn3UBBAw4N%_AHaI]8CEM[veUuwp?pa5?L9b0c4C]=(egHMYãU"pHT0Z1A8bkZ[_p:;VS-:2^\U1,ekT\fG[abrXG,?7ojG]+eiPDkAfLA29/?6dHCãU"CYao2f/[='Lq>Cas\[Wo%m[(]SBMB2gXFnpc;/0lgfUpsa+/T^^L_>+W1sTuJL_ãU"u^i.G'nRzJ'..x_GJtc8Fb\^i0k-3>/$fc.E?WNiAB[5.G,',$/);Y8'aiA;>w%MWp,Y_]])mãU":m>7n8FCIFAXn=X+*r$L,v8HstUgw%+up(%)9%%%%-%wa.#GD)XmaT#1%%+%A%%ãU"-#%%%%%jxfS[ugqN2hNC9oN:#hfesEl.0[_5$*S]u#mIl,NJ/pQ7[#+Vb$F4,'4ãU"nu.j1B;+k4,jgA='ftC&QL##Viipo[v9O^;zw>NSkb%#(Q:WRAQOBCi)it1bAqCãU"iwOQNu36hVcFGqYiImrwfJn5guUht5thpWUZ0hg;<#9BM%0n%kO#IePDJ]5FgEHãU"pF6*I)z>K0As+%3wF92voZG)^uz'hn(eCp^6Y2E=HW42=TzLJEMgH/F14*LB)HZ-aXx+]tN9NpBRãU"bQJkU[fZN9M\Ond=pgAt$iG:URg7O6l1On4H]$sl=ur#ndXm&,BPAtY'B>haUtPãU"%R^W8)-I)l%GQeCkEk;KlaQtNESl[vQ4Q),fesy'f*$l_U_*2zZ5k'3>fVbO>DQãU"g'G'JKO;3ciD&:q<1\K%fVB_fS3*\7>82YWN]SweHw40pfuI]QQ=V2^jDd]\#m7ãU"4Wjt?0niRgT&aeE:/EGo4ySg/>1J(\M.D)XtkA-PnK3t;)H0Jkw>Po,oMG,;j%CãU"f(j9/MXFxn0sNMWOI;-Ut)?Z\IbH[<+^o2PdY>ZnF0Ac>8;)x*bR=yu0YxZ-KP+=w#25u3-T\9v83[VF*O>lZtu'>m'gioJ8dOsJG44g\<'PX*XãU">%Iev2SW.4*>GN.P;GbNVPdTEnT,QJEZu97hb]/8Z0oV4L17RmE.4fP,&o?)o0lãU"QG8GFxYj=n>pEK_1j8_*iHZ()6l%ds)1OE8_#9)CuS+*<+WEwC7Ng-1$h-7<0_pãU"Q7>f1vuXZx<]f+m?%49F+aX:/l'ZsuER1T#,FXe9d7jYkX26hGPfDi#Srq_&Nunnpt-HA0(zAX_ahiOKbm9(>^ri6F6GãU";+tpZ*UP?kBvc*cklkKL8)n;U9AZR<<6r&f*eGAu3L]3$a.sDB<<\G=)q#+\&utãU"rl0jMrRiUl*gY(=3\eZ#ZzZ4-/C7,Isao8Nx.fUDJo&eT,5\n22;n/1^o.?C;2$ãU"*jxn^,O2p*\?cK)QPBRdf8UNuxDJiy.KZqKuQ#PT8IyJ>Alu,(jI\nl;)470+hiãU"RAdi-VwucS=L7dd5e5E&_;ãU"+/;*1vwD%Hh0p.>\^V=zefDjdK88HLha)EYRq1f:%;W(iFy][gLtqQYUMoB;)oDãU"_1Rv$K(JnZ%I#%hz?Ze$#RGV\[zOCCPt$s7[>#,o4?-CK=tY.)\\5SDZPkh%2gIãU"P'WtA&>nP(mbp)H_L;qn*:?j?#_/O3&P/L<.;m_SR)G05oUP4n^ãU"4AQ=OQEKt;)=O>C.gNDy:N^FTMi(o,KJ,GD[(>ay[O4_:Kf0Q_bPO]#8w;M)oWOãU"BU7*JN^fHOh+MhtK'e,MK&,WioauuFfZ;]REP[po:s*aI1:4[U;\c.-?hn_[dY+S4V,0\-mq'Pn$nD_OãU"q3Rd??l%'$KsO8K(xat%uPc*2['FjLVNkrF4G_f*1:O(u%esq%8p9TPu[+%^TsYãU",o2KrT)*fPf-f9)^PD.3x[pPv+*-%Pv-+-sPUvuQvAdiS_FdGXfEF7C[*KA0_(Ct1DH:t_Rr<[:]2\a^kãU"[4,]Li0_'XEG?Hq5YY9>KEk=G2FHJfmAbqXXafk_B7ao[[$kmJ,bf=\A7$m_);XãU"6A#%F8HV?N96.G3k1+SkrW+^WZm%CJ>.h;naqEYHdB;CJ#qWKx&^W/WL8cRwLxIyh^vqoãU"^(8DvtfR=d%#wey%he]i;hwCdsBY#sd*dx0+\sWyc1Zq3bDD[v(+ONlyRitf5NMãU"3d9LF9fm5)HwAAdOK9#utR0)csw^:ilKx&B>ZxYtwr>(?Xn_J9'r5,xM$i6^bx6ãU"(&x#zKc*qY-mMfkNF%x=>qgLxKHW9][oZ5nVOmc3KMadi4lMEb<^3M'_dimM.CbãU"D8_rYycH,(^D.yth>CzqwNOGc[mWsWF]:WdSfNMfI9A_v3dA)ry)N/]IQavNO^(ãU"Gyet7*=^w#NPvBBny^rBczOhPw>I9U+rg&qx^8+Y;)9/[ulb>9OToboT]q+.fRoãU"qVjT65JLl^K_rFXWF4\VF>erFU3JLLcjk\YKP-1ah?#2BDguãU"eq.Re\&A92Iip(Xo9q7REvF>q:.^BgH11__c=XFmOa&c=OAuP&v\[v?B,nJ&Wd3ãU"0o_=*5V&?1.X.>uLO#Q)*J(DBG8%FLx#K+K$(Wr?(j,f#UJWh.=pg[gDZ49/J$uãU"-U]-0m'-mhXkT)0(mu]mA>PZ3&q'Gm_g*,0*h?73C#e+_>a'msV&7\93r>uo]3lãU"[KeVOtP8W<_PdãU"wJ$1's2rvnk^jO$62B/66+,0U4>wTB[tkshb7CãU"(LL6tMdXcZw[g6h1ShSNjtFZUHZMf:JCl%DL%;.(ãU"pr7rl\6of-^87pzfPTCB;'uXX.Q%E2w'RVg3_h?g+4ONCZhxOR/BW^t&;g:SJ60ãU"Uwg=r/ktl3mJI\-\0xL^\yx,QZMB5KTcI*xGb+V,>JZ$Nf18<>merc#B(T+,Yr4ãU"ih\9eKxs*l1wn#M>47v%)_NZ2N?(YmvT+YSV\69H7CK)C1?[t>2t79;VQ.+V1+kãU"oc7?VQyoc9MXfNF=4H84=U5;KDQ_(0iU?e_wYy+pDt'CAi=#8FU&BU8q&5U$VVe]H>rgh5].m_R,J/,1do\ãU"H.bP$K[ZmD#p&dd3$pDlTL2:2utG;txrb)5U3=WZ7??6oLbE)Iln5b']/J>dei1ãU"UCEi_'t4up%()9%%%%-%7]-#GHh%i;%x+%%&[M%%%0%%%&%jxf%fxrS[fxrfh)<ãU">Smm5w5b$kD_5*X7*%Il^dtK/tX7'uhV_rZ3AKg3[:*$Z_FKãU"txSr0rL^;(Y(Ti?raxf&uK=]6D<7CJ9l$rLhD<(kvPL%;SfZ\J5s&6#.WhlSGvZãU"*n_VJ07rT<*+hTR;WcaAVtMiY(A-J#T#FK2+41iFJtTJr-8't041Z(_JQLfn[s#ãU"6BTZ:Z#Mtqx/YucJtMetISnstZfog1JGJ=cn+&^TdhqA5)2F6SZ&LdI[la^'0ZBãU"6%gC4aEcN,vM((>bc#o,c*e[WãU"Rs(TfQkCWRRFluC^ERET,L'ha%'bfK\hFn4wncSm>:A7&sv,-5Wwf$g4^DG-'uGãU"36ds*WKdc(=35(^GTcnGoU_-TrfJO0uLimY\Z-HbCRqQ^5F)C$:]cnh0Bb40^.pãU"40DvbF'EKH5A)HW^21=F#o:?dF-#O/'.YU;s25H=Ft?)\\sa#vb8O,Xr8jj1KB3ãU"qLZT2OiuuPE]%Qiw\oV,5IYagBCI=BI':+2]]D7]2Fuk>&9\S9Nbg-k4]oF'sW.ãU"Md+,T=Yt1I]J_C1)>GU[V]Gv*(Elfw/+B=SFrKql+VpWm6fK.T_hosc5D79-l_LãU"t2Orh\_dbdo;q^f4SK$nyq?>d+gE*s?#ZJQkj#[Pr/OX\\W/7VTO5Sn%.ãU"w0ZtTJJ$LFVuUPw-Qi)-&U[,&\u[,&B1j=6(*)u4W[.ChpEIe94A4tX5fJrZE;_ãU"aiJsaV-#8bAsE?'o/o7BFS,sKUY*[vxNTH.n2&brt:sãU"'_qH\)XA7GZS;\*>+m+P8UKjYo$bX>PR-tYlscvB3o4GvM^_5wTgwZ6\9xJM9LIãU"s9&'-g.F]aP]$3:>gf+L2>Uxj?Kh)BrLXR$eB8a(KUQQ?Mm7A=-Y^ZBgl/mO9O<ãU"EJg^,9SI)1*)TA^9Ge-+G%m[#/gHP]hq33g$dR4-8=Y5Uuhb$#k+a=>u_mlcbrK]ãEND SUBãSUB V2ãU"[zda=+n#R>LF+0U^nPHu-EjQQVs0>2%>ciU+p8)h2a_?hMNm79AgdbJn2rRZsJVãU"^n4_3su#+/9Ntisa892'bW&HK/in>b:O?/IHF#.4.G'6cs>aJL1HJ.j#\(U(dL5ãU".>5U$TV^0]vb/n0utf>=:/T,\BB66iYsqOhrrg6SYe5auQxK*ãU"U'x%up%()9%%%%-%;x[BGS.T,,'/5%%'>f%%%/%%%&%jxf%uVSg7fxN#9TwTm$oãU"hy^LDIxlU*5:4GjDK3&hN#1ijUZDR[q+>MK(=X]+*c0FQXd858j2RDhIHSnW%umC0\E3meTãU"L6_jlW)JN3vFV2VIlGhhL]\&DON;[0,V&V/BG&EdF\&6Ng4VDLcEYv6GBYH0?h+ãU"ecqH_ffT0ENlc*jlBlGek$A_j\RV0q[&\6YJ::WDEqJ(+euosVd+z)ãU")^\bG;'*?2f(qKvX8ub,oFufnR9*?_H=7jnaOf_qTl'R0L>?EnfzbvXb&.+/beOãU"mH(Uu32dmK:/Mx:+Z_gY]vaMC>=U;MlM'#di:B$f,*qFkPN(r[&EJ[N+e\a0j=gãU"0]_6kj(y>_=#'pT'&2.(F6i2k-B)bU(k'Gcpg$g2ECV3':f&I+nc>ãU"Up(CK+E8F6k%Eb+U&q[H[#nh$42q5vPcZr1rUaCRkgp^^I4iJR(+LY)f2S]hYo>u+EMWDSeQ&6fJ4%TDãU"9DZ2[k,qqHl#M*Lcb1[NmjP&^ELHlC$Wd-aq8<-[%#+4u(Iacg(ekMUQ3mxb>/KãU"0m*Ef?Qr>OV.$2;kS_YYNQ2&mA#'op$S>H,*6mLFGYJ=(_&qTãU"+j1xco\HHp/1tw/Z1;d7)kveG)kJW/7F=>i7Moe/s)oFfS8JvK[Yjp:*GUbZPFCGCHHfF(LYMdVt441P(aO,qm[&+M?1nQziãU"bc+N-Y#-47/a5mxkIRILp;SkTcXKP>5<,h*[D*6=(\3voHC>^^zLiDGc)pqjR#mãU"7-&$'WEB#3Iv7LW:Zo(R?ZS0g4M+3.T^EV6406.hB(k08//8k?Ehk&?GU0cCE#HãU"N46K_:c.'F]px6K<+B\W%Uc%sqC=;&P0aec,wfWm,YMYoMKfK8\]RrR3EuK[-lLãU"I<%NwV%>:S:3PG1/_=R4^MT6+xW0RNm1)S8$WL53eT#GjmAQco/(?&Y\sfQKKPNãU"US;'^DKIK*u[WqoFbu;F]UYjlFq&AA:WXU#4oqMjk8LP'c4_e5v>ãU"Q$()i4+fwd'WRO8_j5:&tHm.M5cPSNF$XrvE'6UZ^D[$cu&JSjiS49QADseOp%tãU"rx$IfVD;Mx4\Dl.1sq%R6>o]U;:K2w0]2?/#uW*]BmlXU%bQLh;s[/c900RãU"507Ssh.4d*&$MEa?MG>*rB*.9VbXC/*Jd9_m+Y/8[pI]$hU(?,'CkqK/:.z+UZNãU"o[2fo4E=a3R&Te6rwgEd^Efcwvtjl8$Pvmh]sKsYWmY6\Jv*syj;+kG9/Y9fRm/YNJ?RLsãU"]RAidBXUFUAX.VFM_O3d8k83.xx6j]c5jRQJ>8e)QUDS$L2.Pa\8^9K6\W\$RS;ãU"4sVh;;YgVdCwPj)G;ptI;On\>rj;94F,mq^z$p=7LDUaMV)'1UVq4hk^>%jLaZyãU"t>vj;y(bTG-U8Y605J%#-/PmJjq,aw[5T&YmcMwY=4>He;gR:(JLMT9N:#y61JDãU"FHgiq+Ij(GRWvgTTi].pwo&Zo7f6m>-T\'_](VO.e3;_HD0t\[7A+_-8sm5<9EJãU"CEex(%XF*qXpU&(5-Yu]6kkPVQe]zmA_(m:%TVZNog_;P);Ux>Fq0vNo%k;C,k\ãU"6/AP>nr3OseY_df-ld6'5]sL*N<]B$3L:mI8lS_rsw^f5>]T8XhZoi:_X(u^o7WãU"mvNWY?l2_UV3P^=emj9Ucd=>ob>'\=3+P6V_5VJ8=aFV%6JtgRU:W3[?87nMYg:A)JmTHqjãU"60\mDM^tE0*Qf>KA$,%TsQ]WCp*S+.$?7QZ*)-bPZ:2p*CF&=p(6?FGa8?mNi:%ãU"n*#]+Gsb#5,aqQ20rDXJDe;Iak3eG>$fc>SNIM6*?V[Xp;E?0-1i;O<%=;=bh?oãU"L6?WmQSDc9GB4BZP<9z=F#*9%$&=(;V99HlbsF^qr6%%G_F76.o$sK_P+^qy6oUãU"yS7(OI4reSvfVLr7.Pg__9<:fL93ZjIB[$NliGR[)8=llim):qWb:mkpT2DPQmHãU">r=S*4K;l]kVjeKE.[ZE[3pqbwQ23;WA-'7,%:dãU"#=-cK>wV8EOYG3m+CX^lS\5JCTicUNj%qWKgb8NF)^bVUL,f/QJBf0pIg#:^XN$ãU"QeJtmnCd,W<;RVf$5t'/8T#p?i.E:iC3V-?7Ump;9eClP'59(m**d*)(^gr']>;ãU"CGiuWk#Jc_q8SF:&._M%[Zl$]T^L/]sv,^J>pDFf>Lf?2lQIg(:^N&.DnQ3\Rv/ãU"fvWk.Xm#MBOwOAXaSAQ\7[3dTe?%=-CGb.0_[Wf-?jS#dICw>T:fV)^aOAw_.$7ãU"4ue->W7C[o#kJFIl6&.q\e\g#ET/4c>tEQ:wNZ-LNGNXcEfdH2oot\F_tpnw6$iãU"6]NO4qQ#J.j5U5pTUMApv9Lr/^UpIU,Ep>[j\M+a?NA'C[57+aCj'p1pRUk8Cj:ãU"+g>GMDW1EOo(Sd15mOdPEH$69+CY'DH1D?>TXCM'YFI75t\6<k0lUPiK&l6:j(c:egECHUfRH*_fR34m5VImlhmT\/erqcx(/Y[tHbL2RbCãU"'=V4<9B5^T[I,]vq>u.^t]2O\HH3ZV5:2WPja,svF[C,4Q_P//hgk06^LCOzs(RãU"A13_fGlLFs(#RsnjnI\IHP3-8*cyEt^m<0-'.>3/GVXQO4(,m%m3QWM\=ox0=[DãU"9(uTp.mbgXqoh\1MjJQI/HTR?QfB4Q.jOoT.'^lrwVcmZV[4vo/z$W7Ys(_'6#6ãU"N9;#D[7wr/A3%ejuXtY:pnXU%6$$ZmmSbW<+DJu-JV0#AjN\#dBz:sF54qX5KSlãU":Q<3eR8IHOco/?M_W4ãU"auNda_G0:nF$rrki\er?5+wLel4XkookUGD21+P&w)h8&QnGUCGOmge,DT(d;x<ãU"P3PC/eErf^ltLwcZ/Dx.p/tDgd,YawaC>ytmpkq$9QHfrjAXKpu7lj(b)%$hj[RãU"J4'IQ\zJAH+2_13t-kwv>vc'L2V4NLbH7oP,6M_0j5;o=7./l14hCOiB(kNC0ViãU"Cy_=:?TITsqK7e$bEZSc=_$eM%)[GB0n8xTFz9Z+JYtzi9:cS'KyylBgadkakp5ãU"2(hWf.6WfrN1Nv55j8Uh_4wlr.tD#,j&xn_pn.X#U9q98J9i']n)NNzq+e\N4e<ãU"^RZ_(WDp]%v,SlDL1686O?W,*PPhPJq(eCDTg[QEEi8J1gSNto^If:fZd6GZYI3ãU"bOHr(uPBn;s=PSLk?V1=/)^-?Uy&jKc>)_$b$wyAP7,qjBCdCv]G2#);(pQ]6SLãU"RV]52y?\5+547_Z6\)eU8M$9Nu;aZ\9J[Y\NVTVRSo/#,4i>\x^*^xr2PJz]k9#ãU"hvmN/Yc'x'to$Q]TG9WrM2,';%RrjP2l6IMHgr#68K)fu0%#Qfi4zC>o;XHUE27ãU"v4uwbIk7V59[bp7EuRsp?AZ9(_PD'0wC+8RJYh:SZ=4Nw0%up()%9%%%I-%x[TBãU"Gv>:Eq827%%hT%%%/%.%%%j%xfuW%Sgfx06?:t=#2oXFmu,.2C8o#9K53z6h'yzãU"&m5RFIv77JUd+Bh\#7TlH;\FSt.8$QDmXLh4)3T$]KSxHYHr5LkkKfP8J3opasaãU"lU;2QiE/eG#Ig4Rgueb,xvT5mRBr)N)xZh_YUPK'mNuw-00DfYou5pIZ)&-Kqo&ãU"_C%&r5BN(k^B/Q5>/*\o<[YEG'9)dM[COa]6jj7Id=FJuVx/Bk7I=0ZeFed;KI#ãU"-%Jx?p*[SSh>8s6f$pyrSuXSr&3(3bF&p&'Mls&E\r_QmcX(KhC'k-W6.&.vx6[ãU"LWq46NW/N;4gRPUw:05iãU"3nbO$pyjS\m8f>+ka[,MZ0YZfVhoJkd$#'f<&'fBb'0^%=ASf3u-Do)W2TTkR.LãU"j'T5:p94UWQ?..CoL7>j'HnE,.Khkzb'Q,OXC3othKaIWf00(&[9Ics8UR=ZcX/VI5/.Z-J;,Kqu-1Qf=#\dTFd0ãU";pVeM20,uC]J_O(NI%N5AcVDKBSC/CT'i-g^BPql2+ub*^3Too-8GyE=0=CSQ2OãU"bgd#f]oA/-HN[DeaNKj90%v$qHBXG2+9baI?%'$V$6CJ]-7PprMAIhvmVUBuI+\ãU"1?8rUY]r=2:_e4b[wD3d9X\*F7F^9oO-3[#&Z8-pf:s,gf,EUf)R&q=.%&pbgq3ãU"AG5e=PaC&OEsYZM8.iPJ/aa'Re+kcoQ.V>/[T$a;,t6\hR[tMf;#_U-I]GE;kK.;uWP,u0zD[6B-hOdgd_ãU"t'oV90XWPs_cy&Y68oVR:2:7F;3nrH%:O(NFWA;Q3[J85-cm+;6h0JiJRG-b:kCãU";b.S^Z0iiAnGd&5:=fR]p$O.d5p0B&mo/a#7&TmsãU"%/)gxOc93IW>6O>+gX[,uuoW%K*%hz4yF]Ywj_Uz3]8%vnnFDx.d4&s9uBgw^q.ãU"SAi)3##wXUF1S9B%RW'GAE%&P1QvqlboFr1(&'J<;*.AF-%N3Fu0H<=f<1;+P\CãU"f3LV6P)mm(V]&53z=h:PZC3\PZ:>[&U,_-1[tX(l>59(J0m78zB.z3mDVQdTD_*a?021[hG69Dhj<\hH/hxp1*vL$Fe33\'5ãU"SqL&Dp>rGn*X8^&6-lB=y(mUSi/YfFeyfR45ge/Z[f%:hAYLkL??:?UsGrc4n+kCCCmãU"Lbqt;*Y,-gcf2eN[;2f3cl*F&u<>)$ZH%8X5;SV36>k;S,850B/\z54[Qf2h;UCãU"MEJkH&?A$;KecPDrpTGgn9?adNX>=X<&dqiX0co75kPYJPwKUr.IeuchOqAISO+ãU"4RSQ2;gJvS>0,Jji:8bMv18YoBE3sT/Qh'2.E2KU_#Te:wiX%H).[6w3ZgJ;Lt'ãU">'q%DARdq?(hx>Bw>BtZ7q:LX>tE0%[Q%I/MuSA1RspBOrr()_s]T3fDCoH7OhXãU",mjzHB$k*^))%]\)d)&z]s0q)Ny8luW&u&4o=O]f]#E'1K3O]N'y4Rs0Q\&,hcfãU"KmU3T'c\XD?[%f]mGge1UIHjB?sS+ãU"B9epiDdAk;N.>)p(;;Ww?&ãU"'7lKnWZSX25^=CFUtO8ZXJ[\FdCu;OK/7#M[k-,i)N)-E,AxXg9U(wtg0#>E]jSãU"B=5x2p<#+XZ+8nVELaoZ/;faRL0uOh&nVJ:V4FQ;qG\%R;KfgSt2eV&euD7&U1(ãU"]1>'%a&LSIT1rRQv8-Y^'hZjp(R^6R9PF(?jKp>ec*D7[.<,tJFTt_ZfH)mUd^aãU"0\2Vj1WH6xxMpLu?\k&nmj'uxv?heu2Q?#']PFESNiYHZdlBgDl0I2xpãU"FBe'jG?G;pYVP8Eul)o5UfddEUmFMxq.\S]\Qn5^fa]l%tdLbRd.>./B(z2VS[g:Fex_lE&DEpk.+>dN*r1%:r%_g$4iMoH=W>Rf(;CZLPfOQnc&&m)zSjQãU"aeGD)>?'RUzyaqVjQPH_;B;gqArxT?j52^)p:b_2%l6^WfID8>6tlkgR=Dx[4+ZãU"kVuQNp6L.=hmCNO,7WnTX'aSzdV*G4D]1GxISMS1kAjD]g0Sl?og^VCH2lYT$,mãU",Q\jg6[n8HhFzhOURPN%_3ktH9hZ^A[26:>7=;R6];0.BNzm&.7\3V8-=[:ãU"h9E3aq'X]PppZ=js-(dnB6sh.;lMNX.m8LL>4nT0(k,McY97'3J,xR19[/w%cq3ãU"rlne:6BOi9hih0#Uvgc?&fd1cs&]5j.HXqO%c/z#(4fMorA6DgrjL7wnE:%zBw[ãU"n)IPH]B76%O1&Pc[2i;8H*wL*;3[LiqzO,?cU/pp\'f##.*xve<5St.Mb-RP;SXãU"I',u>^Cl7oe\0G[G,%b6QEG=EP:hhapfW^Z2R),-Fm8Ov\#MdskR^]'%c,+Zw]IãU"j8C$QSvS(&(i%MMxCuh(6I.h[<;L1+\6ZOfD;t25ãU"cJ>D#cQ;ZLoK-P9w;n)'JZC2$J:B_H[6y5L^f2oAOy;XFyw=l69]w&sCinH8n'BãU"(:A7:'Plbe1D&qL8<($hXcOk=S8A?[4#(yuxY\>l?)p,gB%lxvB'5'3-_IstJ_<ãU"oO2D+sR;Kh$0nãU"Tz%Q*9?k;p-WtY^E+XeaQ/Wnri8%+g>'xQQqa0jd^W7^XZ^Q_FHj(K?,IOr(auLãU"7YEr(r^W&al)LorZ*ncNIHQP3GiaroQ2=Y,PS-O>)(_boA*IzTWm/v:T0Z7S_i,K.,qZQN5L'iãU">az%e9K^FF-?=nk,RTrdm)Z$QG0[;m[C*f-9&7+#&VpA/#2%4LZqR(8HRoEYãU"/Bl(8yc*ghC=f)BjNG]-/mhx&&P2zzI4sd6W,*0J]/WvhdX,W2fQbrrm3S05,nqãU"H_SDdjom6ZV6VNlM4&et2bV#%4$$$%ky[3jHna:2^p_7&s,e%M>-CyX(OfDWc\LãU"z/-(?K#G56fJQZPa]6iGXfb3)f$ON#%*XeA6su%UHG?ae&;9_'ttb-4E&ãU"Z+:9UY+p1t4bF'\&'5cvLkfWc[.z5,O8[0,-AC#*QA^PhH6;2[w)ym5S:e?OM8;ãU"6oGp8^+V7OXWk_]5/,pHGUl.Z6$,(=gn1JJeyV_N=gT*=;QwwaJ?l+<-.$3H.CRãU"Y+?h%3++48qGUcj3rX:%?)c%?+%0d1%+$fI(SMHr&.E<K-is^i2T5>.>d4byndPIQVeK2C:pM_FãU"/J/'u%wQ6]+d2-$\VM+X\sGVW0r/%:h&e(e7,(2hkY*.#fk%7ãU"e5KfEc.Tz>7%=h]pW$OX\%g,o6^h/B7(+*t%,e)v%ãU"ghov><0Wmi(Qq$ujuks/)'xy70NK?kD$(:8nHs2]UQfM>%D7w):yTIhB-whSDl;ãU"e7:kf:bN>'Z[;OWfeIeEXxn761$cSV%%>gj&t8;DWz9oF/t6<2V6A'l#Y5feMO1ãU"'I0A5,#5<9+U_':,d$+C35U$Si4uWc>]X?kZd9(BX]$)*_Kqe&_W2u>FID(gG=_ãU"FeU5M:[sH6#Wd2B9TQFx8>().qZU:HhZ9,rPe9\?1siH+rf\K0sjf2[v]#m2Be&ãU"J;Vn?S&)np2iIjlZGkmBV71#fZ,rioDO.HmZbw#?wxD::zo]_%<:d=Q[:A.o-&SãU"V%sL'&b9iHun*?)&nzIQjhEAs_1Qs)O&3Y4j8Ma*AQYPIOA*eZ'Q)xr$;zkM(sNãU"]p;,-Lm^2jV%Yg['WKsuD+eo.42F3jXjP0nZ4AX,5%27,:#at)P-;kA*gDxn4p0ãU"mik#/WMp\2f%%pG2iY[]UDF=%;4qS1&BpW/?DS<3\h>Yf^6B4mOV[\)=.Z0=D5Xz\:<9E[)?7G%r$9ji(tF]Q=)pIn7D3>[E>JxTJcãU"IR;K%dzbwZEHiR&cD$8J>Tx[ZbA2-9/5-0LE+AcvQAG.WG32ki,hUme5i%VCq%JãU"'i0Y]E9PXhBGohaJQ#Bj(&)mh>4?RhnBK[2ãU"Yh;+qgs;:D%qey]PMK42dSu-Z-1'?i.(_OWlmFH2fãU"mSB7OJLQfRxri2VxSfSa4i4^+.+3M$VdJ?nu_?7PYg_0)&2fpQm<'um,hgiAh1zãU"-bL=7Z#=&KVJ8]g/b(dO4-[QH7uCuLcEpDCo6/SQe8>7WUX/*[aueBHBt:D/0jPãU":M)O>*%6*YSHM2*8f6hG>fu+-GyCEYlyY68&o1f>)+[9Zi>;3CJ?Q9N=^zF)=&OãEND SUBãSUB V3ãU"dQ+#:i=Z+CG:2Qe317[2/+;(S)1u*PB^Eegm+%/51?Kx>teAaJ^g[%xB>g%$]hT6[X$Y8'5WhI$*WgkA9ãU"n26UJguBLIGUm_];.gduFu/WYN0WN-0W$gBEU7eaprgSWNtMB:=/bCD;AkC#lqhãU"Oj<:XDs0SJLz0w%x92k(IEx2sEvãU":=DRSuZ(z7wFD8/IS?#xH#.NP'6IjEhU1xL#JaNQ+M\.>&h=]OWyOJ;vc:?O3vjãU"Qj4;,aWM]8;biM2x:OZh1iyiENv8'*f<=^sa\R?Qm4D(H81_X74ZyOUWQ2L3?)5optRth5xCw7$9TY+X=hk.bãU"139qIG49K'rfmIR]5zWB)v5WnqX//6gQMI,lu#n*UFRA2[]>/+w$otrVmP:c2vUãU"nY;8eb6WZnpgn+=CVVr#)YY%ALA7:[\l.An^gLPMVhqNSNVz-+dUy8LN\brC(QDãU"13/;9<4hq/P32t;uh$xU?8j'21x/B]MãU"m^u[.XLAF>KJ*F+7<5oBbj]^[Erff3^vimHP5bbQEVxdOHKU6'dK.,*4RH_nk:EãU":E)/3NmT\EuZLYO\hA>&DG:R;u[%A_\U-N,$_xE)9&I3MHOe)ãU"-WNqFJh$]w5t.z0FZM,C\BLP^Uro*h.xCZG%ie6[$al57i6uB]<2$-P#frwX+x)ãU"'&%VE5:h?sN)x9d4#%Apv$N_:W\SM\^.S8#a^F<3BieR:N$k>s+ip0dKxLUcqjNãU"f5j/yhnJxMF#ww,-:p2r[s*jPH5iG)?6>^9VYPEYj8RTO&G/&xF(WLgRrrg69)yãU"bH_a9A:\(k_#hKHng5G^Rkw2DJR\^iAy-^t(Ore_pkC/X5HtP.nzJãU"oBNS(G^0+aGr5__jd#sb-RaJAu6]2Mt-79]]B[V9prii$T:;m(JToU=s:JFG:$wãU"C^]WWj>dcxr(''&O0[_X69sq54JT$eym)eR&S=9W?6JA*eeJH4Fs^Zb2Noi,;,85%Q0_hz1ãU"[_#spU/D;OtsA#q\f+^LK]K]'j>[>[\bjb4bk6Cq.>nwZk;Mf5KhQ1B*3?vHMfdãU"QUk]rJ^0\O(v)JFn[U>LvqNu3'1P6a[wm)hN3W7]JTX)5>+YspL6cgF/.'MJK?xãU"Z^^/D1*0D-l.lY=Q[q4/0#,*jx,o199MRQ1-Xu\CQ&iyCP4OCdrau,MLR2d-0f3ãU"=1V0QNK$=M1=3ddQ.o--B?x^vhY2+6q9+EW21eb'=';;$2V_G;U1/kJoEb2VJ/#ãU"9o.D#B\RjEs)NwlGT47J^VHmpfiR#,1,8ZiK6.DzT]pdCG?GceO/%aFCXPBMFQbãU"&X;rbLPc&^?TãU"''Hcq0%jn%X4:DY&.URHhlN=Gvquz/TW;05ieX8FxA?D$wkG0?-o3eu0+-XnUSãU"Pj:1)dA+Mm)<)IU\\wX?[)5u[?KD<[>QvKm;e>uXJWS7RDFR]0yI8_x'*lP)u:-1-7+8)]a2:oAGH2jU2t+jFc.P1C>fi*CeãU"YpF8v),_2Pq:dWr_>3#y8RR##rMfs');fv1x=doGO+#,H6oj]=+d%-P5knro,f>XdãU"Oi\NX'x%&up&%'9%9%%%%-p%V3<:G.JR%d^(%(%40%%%-%%%%%%%%%&%E%%%%%%ãU"%%%h%fqhS%fxru%p&'9%%9%%[%-%6+%>GYiDB5[[.%%+%Z%%0%%%%%%%%%&%%E%ãU"%(%.(%%%kqf%yrjr%Sfxr%up&'%9%9%%%%-%;Qa=G5Lv$J'h'%%%q/%%%0%%%%%ãU"%%%%&%E%.%%92%%%kq%fyxz%gSgf%xup&%'9%9%%%%-g%XaB+GSGo,ga&%%%M)%ãU"%%/%%%%%%%%%&%E#%%%Q%5%%w%jfir#jSy'%yup&%'9%9%%%%-^%*.#%Gh9k*i#ãU"'%+%P0%%%-%%%%%%%%%&%E#%%%a#7%%%%jxfS%nshu%p&'9%%9%%%%-%wa.#GD)ãU"XmaT#1%%+%A%%-%%%%%%%%%%%%E%%%%N:%(%%jx%fSug%qup&%'9%9%%%%-[%]-ãU"#=Gh%i&;x+%(%[M%%%0%%%%%%%%%&%E#%%%M#F%%%%jxff%xrSf%xrup%&'9%%9ãU"%%%I-%x[0BG.T<,,/57%%>f%%%/%%%%%%%%%&%%E%%%'sL%%&%jxf%uVSg%fxupãU"%&'9%%9%%%I-%x[TBGv>:Eq827%%hT%%%/%%%%%%%%%&%%E%%%'Q]%%&%jxf%uWãU"Sg%fxup%&'9%%9%%%I-%x[9BG=?12f84%%%pb%%%/%%%%%%%%%&%%E%%%'8k%%&ãU"%jxf%uXSg%fxup%&'9%%9%%%R-%CoK:G0k0[g''%%%F/%%%0%%%%%%%%%&%%E%%ãU"%(u%%%&%jxf%xzgS%gfxu%p*+%%%%%0#%0%5['%%J&'%%%%%ãEND SUBãV2ãV3ãCLOSE:IF S=241AND 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ãMatthew Pulley SLUG SCREEN SAVER airwalk_mp@juno.com 06-10-97 (00:28) QB, QBasic, PDS 46 2956 SLUG.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"SLUG.ZIP",4^6:Z&=1937:?STRING$(50,177);ãU"%up()%9%'%#-%-EoBGtx8r:%(7%%'-%%%-%%%%xq%zlSg7fx6z;:>[kF9vCX*x?ãU"rvQh\oUX$GAãU"l>K3b9ScarvVOB\S=0VaJYR#n/a,NNDkb2Bv?C/rMkT)M9q1]6zãU"AHl&8Rn);.:/jF;'fWP2diOXzT189h4:)KLGOS#HU^pW2c\_$xcJQ4FoD-Rt0GwãU"/sOCSL]j(2\v4NuUJZaS5,fHcs]G0r(kr,F72U#*g%u9-He$]JjM1*_(MHDkVFAO_^ãU"RUsI-fgL14qfdl[P.7VHehGsrYPeI'qoNm;&O%1^X(ELE\0UG+\YLZb:r>B\E4&KiNW(:3IãU"++jPF'h;+gLE(QmD\hKX4G3))?IJol#iODwD7qPrJ*ckQb'_CC8ZfgãU"ro8S]Hd*QusC%qLTHm)&sH46T5hãU"F=??rxe,6Rp%hDisB(pi0ro)JZSXy%C'QUHSb;4UtEQD\G.9H\rPAY>=D-+K4[4ãU"W?9T;se3CQ\'6Y;eFK\Oh\WNT1N_Fj\rA.04A[lhKnhwBL8>FAsy+4$5R^9HKheãU"]8W,SZtFnJ3s:c-BpL,uBDu%p&'9%%9%'%%-%-bEBGt$xr:%[(%%'%-ãU"%%-%%%%%%%%%&%%E%%%%%%%%%xqz%lSgf%xup&%'9%9%%'%-=%s,h^GyGD)%O%%ãU"+%<&%%%-%%%%%%%%%%%E[%%%K%(%%x%qzlS%unhu%p&'9%%9%'[%-%u-1CGvte_ãU"Mp%&%%e%)%%/%%%%%%%%%&%%E%%(%G)%%%wjf%irjS.st&u%p*+%%%%%(#%(%s#ãU"%%%f%+%%eI%x;D&6FExM2A44A=Ex02E4ASIEy78ABEh>M<<4=ACEnBLE(>D/AE)ãU"nIuk8;A4EfDMC74=MC820MC8>=%SãEND SUBãCLOSE:IF S=251AND 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ãChris McKenzie MELTING AND FADING OUT TEXT chrismckenze@earthlink.net 06-07-97 (07:33) QB, QBasic, PDS 131 3617 MELT.BAS DECLARE SUB beta ()ã'I creted this routine entirely myself but I found out it looks like the flameã'routine, I'd like to say that I did not refer to the flame source code toã'create this porgram.ã' The alpha version works and the beta currently does not, but the beta will be more flexibleã' sure you can spend an hour fixing it up and then send it to me so you can say,"Lookie what I done"ã' when truly you're just giving me less workã'ã' Over and out...ã'ã' Digital Reality---Chris McKenzieã' chrismckenze@Earthlink.net (yes, it changed AGAIN)ãCLSãCOLOR 15, 1ãPRINT " Versions "ãPRINT "ÜÜÜÜÜÜÜÜÜÜÜÜÜ"ãCOLOR 15, 0ãPRINT "A B"ãCOLOR 7ãLOCATE 3, 2ãPRINT "lpha or"ãLOCATE 3, 11ãPRINT "eta"ãDOãkey$ = INKEY$ãIF UCASE$(key$) = "B" THEN betaãLOOP WHILE UCASE$(key$) <> "A"ãCOLOR 15, 1ãCLSãCOLOR , 4ãPRINT " T y p e i n s o m e t h i n g t o ";CHR$(34); "m e l t "; CHR$(34); " "ãCOLOR , 1ãLINE INPUT text$ãnumber = LEN(text$)ãSCREEN 13ãCOLOR 31ãRANDOMIZE TIMERãLOCATE 2, 2ãPRINT text$ãDIM graph(100, 100)ããFOR x% = 5 TO 100ãFOR y% = 5 TO 100ãgraph(x%, y%) = POINT(x%, y%)ãNEXT y%ãNEXT x%ããFOR I = 1 TO 3 STEP .025 'change for speed and exactation(is dat a word?)ãLINE (8, 8)-(number * (I * 8) + 13, 60), 0, BFãFOR x% = 50 TO 8 STEP -1ãFOR y% = 20 TO 8 STEP -1ãptclr = graph(x%, y%)ãIF ptclr <> 0 THEN LINE (I * x%, I * y%)-(I * x% + I, I * y% + I), (I * 6) + 42 - ptclr, BFãNEXT y%ãNEXT x%ãNEXT IããFOR x1% = 1 TO 50ãFOR x% = 50 TO 8 STEP -1ãIF INKEY$ <> "" THEN SYSTEMãFOR y% = 50 TO 8 STEP -1ãIF graph(x%, y%) > 1 THENãnumber = graph(x%, y%)ãnumber = number - RND * 1.5 'space between pixels, gets bizarre after 2ãgraph(x%, y% + 1) = numberãgraph(x%, y% - 1) = numberãpointcolor = graph(x%, y%)ãcol = RND * 1 'color differenciation, looks fake after 6ãIF (pointcolor + col) > 16 AND pointcolor + col < 31 THEN LINE (3 * x%,3 * y%)-(3 * x% + 3, 3 * y% + 2), pointcolor + col, BFãEND IFãNEXT y%ãNEXT x%ãFOR atimer = 1 TO 1500 'all you Pentium II and 286 owners change thisãNEXT atimerãNEXTããSUB betaã'Newer version, I'm still working on it.ããCOLOR 15, 1ãCLSãCOLOR , 4ãPRINT " T y p e i n s o m e t h i n g t o ";CHR$(34); "m e l t "; CHR$(34); " "ãCOLOR , 1ãLINE INPUT text$ãanumber = LEN(text$)ãSCREEN 13ãCOLOR 31ãRANDOMIZE TIMERãLOCATE 2, 2ãPRINT text$ãDIM graph(anumber * 8 + 5, 15)ãnmber = anumber * 8 + 5 'this line was so repetitive it was only logicalããFOR x% = 5 TO nmberãFOR y% = 5 TO 15ãgraph(x%, y%) = POINT(x%, y%)ãNEXT y%ãNEXT x%ãã'Real cool magnifying effect.ãFOR I = 1 TO 3 STEP .025 'change for speed and exactation(is dat a word?)ãLINE (8, 8)-(anumber * (I * 8) + 13, 60), 0, BFãFOR x% = nmber TO 8 STEP -1ãFOR y% = 15 TO 5 STEP -1ãptclr = graph(x%, y%)ãIF ptclr <> 0 THEN LINE (I * x%, I * y%)-(I * x% + I, I * y% + I), (I *6) + 42 - ptclr, BFãNEXT y%ãNEXT x%ãNEXT Iãã'MelterãFOR x1% = 1 TO 50ãFOR x% = nmber TO 8 STEP -1ãIF INKEY$ <> "" THEN SYSTEMãFOR y% = 15 TO 5 STEP -1ãIF graph(x%, y%) > 1 THENãnumber = graph(x%, y%)ãnumber = number - RND * 1.5 'space between pixels, gets bizarre after 2ãgraph(x%, y% + 1) = numberãgraph(x%, y% - 1) = numberãpointcolor = graph(x%, y%)ãcol = RND * 1 'color differenciation, looks fake after 6ãIF (pointcolor + col) > 16 AND pointcolor + col < 31 THEN LINE (3 * x%,3 * y%)-(3 * x% + 3, 3 * y% + 2), pointcolor + col, BFãEND IFãNEXT y%ãNEXT x%ãFOR atimer = 1 TO 1500 'change this all you Pentium II and 286 ownersãNEXT atimerãNEXTãEND SUBãPetter Holmberg PALETTE FADING ROUTINES petter.holmberg@usa.net 06-17-97 (11:12) QB, QBasic, PDS 748 49460 PALFADE.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"PALFADE.ZIP",4^6:Z&=36870:?STRING$(50,177);ãU"%up()%9%%%7-%,c0HG,^%:dR-7%%Q$%%%0%%%%uf%qkfi%jSgfjxf*d7xG2;ix=ãU"dxo'COpdV[SS-1?]w1t->)'lSndOFhFEFo?ZaaãU"-2)CoNA07V_AY0WsCeSEBk8aIX]43/aKFLCF%,eu4s?0Ig$mk0$(+n1*Stfg(rXãU"nKE:HvL'D3TQ*BfTEUSLRmoO+6:GMNAAW-=*9I3Iz2_[SEmY'4c69P=8mT_7*slãU"qy#\YF(qkg*3po5Yf;:0PMnkGimIyYWY]KXEDLSM_zOE:A_ojSi+>7YcZ8FS1YWãU"YjhgMG1CMrB;Oy=h/i<$q:Suz*AL[o]D;5&)eGPZ*YTwu?prFzTVYlT_\i\Co/uãU"4l&VWc,;vS)*WnWYApuuVb:WRh49-f-X5I%#V.8N:VQ[3:r2CdmJWK.Q+KO392RãU"&R:ylL0ax_H.c0O,Soks\2ZVu/B662O_x_mlDsãU"o>QZ[IpX_J&n1dsJY%D:[V2=Is>E1igI)?cPJ?eS8HeãU"s+(;I3bk%&u=YF1o$I?64Ssic,9VYco7Ga9pVE/U1QO7P/2.'+wjH;.B7=WBMAOãU"G?a[B.=[uFzqgQTrguHPkC/.-b8+qm:?7]157?.pxR+&1n_?K7='$UTZg:#Zl\aãU"^6\_v6b[2Us8/%2y7$g4oI(j8N0YCco:7m,63p8GASP4[o+2fu&0fdf?j*wJJ\OãU"66WF1,MhLOMsfgY2x:$#epq6+9rd+e[fuew7dM(Ede+YGCk_#GRcr%b*2rmJVK-ãU"$Hgqq%7(iw:R):=IR^pK\qz-&SAqYNffH<;=V2L-r&-*64.q+J&;,iGFOUãU"Mw:\Dj]ZtE6rSq/G^%.:?shoa/5gLQ$71;j3]Sgoc0']5d:4-Sum=D2T)d9/hl8ãU"8=ew9dOr=uf#vI&We,(9cO2=u[Xn'LVhrs:'\BãU"Y?tDkGeN&_V_PECGK>mlNtVh#'FHuZO2IUaN8;rM9.Vkl,zdRk0okeN?.3n&sn[ãU"W_A(Q0rbqq,&q]+^msTEdLefW,#dsXGL'i9#Zt3cS$[G(X1g0iwdVPZa-%(Ve_x,i;yFãU"bSCo/mbe%B:64N?h#Dc%?E1p-A$1)'So?qRc,)9rYRb%0p1TQ<;#pulpk*+g;J;ãU"G4:is.5sWp>g_37?RDt>,[ldCr2ngd.LU,k52lhKGtZY^p;0NH2mg8-Q,Hict;\ãU"TrNPGExBJ^a$gnP#JZ3)Jf=2AUvBTQn5C+qo*VSPu,ui/8X$ãU"Y,pr>*\N9rap_v>SG_q#P7ddQjSG-TQUH,aHVl*U%Uu&vpALfE0gQ\7fhV%%H<,ãU"I#_lgJQbS7vU(RdHQgNhe$eFS86JE;ULC>AetzM2WLu6c/1su;t0uqklrF/KFOzãU"v8zi&x,bP7JZP(fj8irn*f:qãU"rwQuGV/Q>:0QvU6+K25>azA=tkZmuq2sxcb$G_[p44wgq3#Pr/furS-7&)Nk(WXãU"BX2Z$pD]ZA^+FQ#buK9'PV#J5?HxOF4;O)XxD$05ERld4SEl)YpJF8*V)IkSR0>Cc^,d'=0*X9CTx1#EAwãU"e6XxjTjZ8PtlxqZS\^=_/ZpwTJExfWzX:Xr>JAy*m-hxk1[4T82\>w9NT67gz+oãU"_o.'J<;/1*cF6YtXRIcvcQ4$'NKHad&GDOS^.0d-<-6k>E?DG=T\xcU+0opLFM/ãU"XJF-s?>p_^7rDImTG-wS#2P^e])cB+OE9nN]i&51AvgVf?Y(.1G>ToLDd3mBSlyãU"E$%\)'knI7t#k$($V']LX&ãU"v*ymAV4tMq>,[:ExkPt[+W:eYãU"xIY%394ãU"T4=6KkPYqFYWj(>kf[]5Z+7#-lGSn7[n/pBk]2qonS\6pah$lP3G*#r1hlg1S]qãU"Q6e;oO6n2oGuXD6l7gUXJ0=CLsd\Lv4qpN^ZMv*ms[#REt>sL$/M;Op4uN&tãU"t&n\is]^t3*'mq#3'xzTW4eDJd2w\Y*lzC51sTM\P+IxwDZa$7'1[dm5zT.D6fvãU"%vjH'h3ftfvj9&Z.d&U=C#V?g7q%;/PXYZ>mwArSãU"+n,USgO&.ddOOG.TZT6eh#WR)fa&SftF4QLW2i[WEcuY4Slanxftq&G?sdGR#HwãU"m;jDN6XjEz*o^e/h)&4>l<^>^8f,g&uq1,kZmrPPQ(fQybw3j0./G>:&uF+:zhI3V/ol)0>ãU"c7K(7+3jB)U2c,7^hV0\Tttf'ãU"6'p)p7em;%BnR9*i0*V'sOct;5tMA)2PL)dpw;PyO8Qg1Uyo5*5BXuO#uZ7et2jãU"d<1uth9n<+%i'4QTc6Ds$fuX9tfL1Wnj78#T.6NH'X9baH70)(z,qs'vH6gq-)WãU"xdIhhr].>]0D^6#O?XjjTtGm\([L0Ms*1M\(+-T$*lHON>4Riz]kC^l>WCpkf^VãU"^?(E?L.X,+Y'8/HkgLD2wiãU"TT+In:GBJ&1-SUp^(i)f1\#:8>WrYMhKHkcukMmS-4k5Qi\zY+;Pr(R*^8ITDpbãU"jpDnCGe1zVr1zSibRtdm%GS$yeGfgW/]5vIUHjT0ec=8Mn8r2W0k1sbftqMT2]YãU"L5lU-C0(8O6.:Xk$8y'mXnzL;-HD\>jqgBK/D>;Z09%5Zxu-hqjwp:jp5l-cqq=ãU"t9S[+>=ht\o6jf7nH]c&rY,$ZZ[,'wX:xr(s4<^em]boQtwXo2MpN:kbW(SV3,G[Gs2FN#C-EK5lw_a*?WW=x;.%gO;Q4IT/(1mH[>,tJke.j=1AZ(r+\4F0\ãU"\$lD=^#VCB+dA9.p8G6r]Rqn)A#cQUYB;jJBQ[20h;FvL8==w^y'uk%7H2r%FciãU"Hap=xtI'GXX&;gtQ9xY?$cpsNs7bCTdrj?7q20cXBw4WsM;bãU"&gMC/?FBI\sxE/c(9.4WkqT096E9$Uu?(:u#<#yI4cb)iG6mk8=^fINIQ51?)/(ãU"S.IIJsFdCV6QclR/e65M*.+;q0CNeq+mWB(\DnV(gOBT=qeEjErg7I5GBc;B+dGãU"[/e8pNQm:%4oFjUP,6^EFTceB&)rCptj4Ig7*p&CSLqi8Y+,*>Wh:BDe1DS.DlehjZk7BMNENJwUiEVk\e&ãU"Uh3YgZBK&aDw[MY+\pNllP3U;G;Pb.D+81aibs%-g:q:j#'$99x)Z=gHXZ550vxãU"6pfi#_yH)3YpG#Nb&J_:\8&5k>afA/BIcu[+'5X\Daa/&_1qc,NB4BHl;(\0aJNãU"I=8XwolYy;e&7IIlL9xb'pd%-%57LH%_)Rzv9BxntIuaT3u69xAF#v>>.gw#czS[s*('&xãU"R?f2p.k]#z2DmQdgYo)Y-TCFWc8[\.Ognb,QdZJ,ZQ]#q7[K1/QuhUpB*e^KjMgãU"Na8ceWN#FDDubMi3w9U16ttE2mvl8jVtT[iwLP&jGifDDlv&h:tV(JL(vXIeYj6ãU"uipa)e_)1/zOX]Ox+f12qheqc+kR&Y-a3y)OJET4Q67>jRmWAQ>sy=ef+vT/8J)ãU"vpvQ%;h4k\GAZZ.pYgtnf8eF)pi*6BQgBTWe^5^[pR2a7CPf#5LCjL]+aQuE[26ãU"UpgVIDp^%*d:0FE]'0NcF4>_&:V4%N4WEn,j(d*0FgeE5lO'%PnxbAxj)Rf8:sju35YJt%&J.'>/x3S&iOy-]+O1fKtD25AayãU"$q/&?3)Mh940[NPj3aM7yksMsbGF+vZgt\9IK34R_I)wx=m:Uhurk0aXU%5hj'xãU";D_T>l^dYEqIyoc*k/f5G6-'U-1dOy%iD=R(Q;jgvd7'N\-4C';5y_M&yN+EHR4ãU"f(_10eq47]*2'l?p+tCX-[/xS%Q.v0o1hkfR2FBUk=,dlF$W11np]l7;:v-_L:ãU"Kj]M2v)J(88G%sFlPy1y86d4b:Df?PNI&eIEkYDPWElw'YUTvT]j%'v'*]X?e4YãU"tUq2H.fJl0Mk'8=0NLP>oZP07hoShLtinju^S6+fVsgrP(lWj;s(xHt>Iv%i.3ãU".b1/SM6j2D0)kNrQzGN%XJ_0#Gc&lTeyBqnrQ6):w\dp[;m.VCP>65O/sc'(U5VãU"c-u[sYF+gGS_,\Ek30]&W0NQ$/#().OCfnfbdq0dRj-33\?wB%atmT8r'G(dS(UãU"O$P6Lr$,b&M8_tqZMUa%gqms0?d>LO$6cgnX;J#O1b>d65lSZs+6koO9B)hW033ãU"\37dioEsctR,:iI.[hh0NfF6-ux^F2=6MZm]+,bUj\#PVB)&5CpaãU"yh_;QomfCbO4K24DeSyVmt*KU\h#5GK\D#VgH7eOj_BK+c5EQ'dWM0[xSS]5)%=ãU"xJ/PImFB1.)QEh,F13d1_8P)-u^WiTHW7>DVEkaO($^lASao4x\i<^Dtq3+R.>TãU"7'dQWDjXMNb2oaQDPM.trZc\&0Vq:pBaNT)U-FI3d1qoK<[Ej*j(8X;3c&K?wqgãU"4p;;pBCKWP,G*G9CcX(#tLV71&rY*hemf8b4J&o0_Y$$[9X[;v*\+9UM+=d?M46ãU"jHCOlJcTdGwhj((F1G>[5%\M3El&t/YX3+a7gmQ.(jaqUsHuLa-'m=GAltbfrC5ãU"Y=hyCg\TEJ7F9%BWdemS*=Y.pCni\TBtqrf^xs7lkW[/8MMgz1Dj9z?0=8U0)D?ãU"I5HM&m[xeKt\jw+BHuiptQVOx;\\*6rc(7oHAlPKZ4+bYQM*d>LFi6])kGRiaN8ãU"]Ss0Q6c-X8Upt&b3;KRV&f%;K>d/P)=Ogt9OCT?2raSIuBf*0m#NlqYN2rXUX,+ãU"_FFuKI75y&ja:y1)0CTp'eug7P$88ãU"d-&&uexJW.Q\]cV/3c[74-(#9Jc&2aIzaq5:+P$W[E6qXArNmbpqK-uOe#7zJãU"zeA,KI)*sP^5w]cBL&\OF;bEJKsVLLhLY%gB'BHn7j,c+Xhqkk#?[R0rM#x6'Z:ãU"nKm7EfR;]b?MTHCky()l7C1A#?e)T*hOvBCgQ*Vn)r%GMA1XdxUf?:oR#lACf--ãU"6NH]X.HagAfnlNu(,t2DT9cHc\3Pv70Lz^SL_W4&6aH,pQo#Mq+JYiPE[AMa%j-ãU"ZzC4ãU"f\qyJT-ovq2:c0UH:dAJw75jOydk].(\HwãU"Q1%XAAw/#L*b\WSTWpTw&WPdc5(yhwU>hSJPPMbPY_ãU"3z#M$nNci\^O0tO9]tJ*a^K-BOZFou3(FwTSHn>A7.+,j&gVxNO?.D+^a=mYo<'ãU"WU9zIs/AeStVExk%etD\cI&7q(_z7NSRT'3GvcV,AeE9N8]a;ACwLN1'+/WnVãU"pH7U7>kXiTZ*GtSoHF&_N_4A-L2*d:x&eT]R(+,GDjTVC^>W'0Ckl\.hqXJateHãU";1;]b]sr4?wjSMl:Z=b8s8]eB5BCg7yFYae42tqmA#ojc=\%mO+J%kt-hW1t*e,ãU"hC_B7N-_ti4ok2p&quEujBJ-r(D5]fQb<3CMh[8vpavHLA$PilxsGãU"fIEY(Mj86w]XD-MNH?WQFA7B=ATO5,P_%qPoerL9XHA?:AVDãU"NPl3b:^#R#i%rd*vsLmB]EbF.,'uI^,r7s2jnS)T)Y&wJW\*Q9Z2VCHDNW4Y-qUYN-Of3kGUEfYahKp-$WVPãU";k^BID#eM6)%$g+gN)XB\lj-SGLIRn?dmMef;p9Z[JBO-9xj9;=KeCz:z$E'(PvãU"_0>P7BNT?0FHpVXXHZsS(v7DAxhs\mt\iww3U]Lh$n),ZE2b&uwuZv(FfYRg2JIãU"]bCV4ES$Sp-g<9-j'k?K/6D*FwY>y>A.$NPE(*:Ki+vo/K<1e9'8J3Irv\lr)5sX=)xXVStNatMZiEl4e/Vd)\fãU"+SEI6'\sYsc'f5\;m?UzxB'#PNWI6A'1KVtD[-3hSd-hmG^wIx_H6p/\]qI>BBcãU"YIupyl2h]#)r[Xer,q^lR]uTh#OF.z..RNYPCbKCdJEB8GecX1_Yxl$h%p;bMxTãU"NGG:c?sSHPo>PD$*HWkh'qãU"oNk=Bjd>rYT7];DNB0hR;],qQab*a&Ext[#zGiE1oHp%4J^*Z;viO#jfon>JMud12sNfTa9CJ/ãU"UlQuuJppAPTseL*pG5GZTV%+wG^,t3ugãU"8-?>xUgt%RtqIlV$'&G>Pq?6f^1Snit[KUrb:[--ATgl5.IDg,E4EUB[/zn^Yb'ãU"Wy#MORn2ix8;Po(=4AJOUd#Yw8GU:vrQkTAwe4oWyTqv)i=F3&X2e=37NE*>SJTãU"BTif?bv%cUW)9zinVzxL_K0I*ZCjn'Pabc0wWgQ3KDW.Y<)Cq)dJ_/YY9/YVE:mãU"kh:+(>?KZ'YQ=%kZFO\3/uP6&WSQFx_L]?-xZF4rKsc3Z_QEW1D'L1FHCHO6u6TãU"UFb/Ah?yT'k?6PqXgXp\B6,sZajhb;6KL7R-;EWMi9:gZUDIkXJqF1=g[hL*jgzãU"Z7KKULS-.fRoTjS1Bi3?2Lz+RZrWc^A%QVs#rYB5Y,l_p0prFv%T9%tE.dSvH#PãU"h4i-x2sSt45lV-=^*qwd9&qXndI(*6I,%ZL470dPZZlV>-[+9i6&&.nquDTQJy)ãU"3#B1et/T,e3Q/FqU;-9R=n=v3vt\/)*T(UdY&&t'?79ãU"vGWR$Pzj%bY+x6huvxU8ut\;M91,g>\bj8(X$CaJZz$u#nMRQLEaxo#d\XZ_N&?ãU"_bgV$rnnc4S+JF86&a;LHG)idOf&YGN2bNb]/P'z+lj',ltj5i/F$t%3Os&/m'cãU"*&m[:MK0tG(CqYdS*o(.Ol[g:nDkO5-YsKjoGxM(jQ&DMji=>'A.tdd7x9c:G&-_WUbdãU"2>h?0m1^u\G8+GuN-goh]NX1i=D:z/eD<%Mts;YBVBUCImHBi#%Et.7?wE3)bv5ãU"h;P/9NHr(ruEJ0I9n+3RSOEz:w:qNu:&44mR4NTX%vk%cntPY9l9iS,SVPZ#2NiãU"erJa?'?s1jW-D2huG+'FH\'42W*Fhc(HKS/UaSAADNTkTfW*%D,=A%UlãU"$6d+w:#u+s>VpVz]UX:Z7)KFw_:z7xMMY5l30EA87m0H.TO?3.X5G+9oi^maEm7ãU"bdwQt5r\PZ;MFnd?9(6glEt/LPU>LP;[I>YX,H^y:9^%5gB7_m':Zh8CVfjZf[aãU"1?H8P&rC\FBT*Xi0PN;*-Y[rhzX[TF]fT(A'(yBTrS-6;6x9t%YC&>5\P;?ãU"0T_S*h5OV0)NA8GF7^B>4DQS$Z;q'HX=HENo(jDK,=w&o#[b?iZ:cZe>J)2JQ[YãU"1iazylb7.UNUE?\IK7Q$Aj8o%MQ0mY$-DnjG2;gXlHqTN..w[_ZW)w/eixIv3'bãU"$kC?wCj=AyNpAxd4?t??SCtvNIn:DKRjf6Y7U:ecI)X2o>:8_fepq:$K))QKkrihMP-z(ZcmkR=&aTE\$)]Rebc8SQ7D$wB[q*kMãU"M3c7JvuT\q?F'I5qL>[7MJE(lf3N)2+AJ^?mp<(Bs&H8fY\7e*&eAhrL0McYnh0jMHcJvãU"wXn5(kdIgZnn.%&X^GtEaK&eDe[?V[.&C)g0i(DiãU"TharwjM$K_j>3M%#.hN%W%I0:H08GBGOl=%xcH0IZyL9XTp?NiBK(*s*a1jTiQVãU"LPNdm<:a6GyIfcLS\h\T8Axgu4W\2DuG30P>z<%6n;Q=WF8LclMI\8J;BrekCqlKsS?:dN7nãU"%+do]9rx&xdZxPDHpM0mfJrLOc[sAy*qZQ0*P8qaFQnjLmffh=Hb&5hDBg8JaGoãU"Z>rFI6*Y$krb\v]e[[oS=g-7\bYd;wPlfll?px$7DXWWm*QABAf8>[syT1w8lHR7Oh-xd09hWaP]BIVxj09Tm2RãU"<37jgW0L(,Ulbh^X=Sl\yS?nseStv%ysS^^Y]Z4_z/5TS7o'z8stZkVnG^lR'RjãU"h:WO#9>(27Ya$N]?9g#F8M7CM2u_oudSz\x\n.UHuuxvRxTtV1e/IW%OlB27rC\ãU"Nn4WEa$&$Ak^;YpG(jZQh2O5ZN^nZU6l6i^8gorY*Db$m^qcNT'Brh0QEIdeg&mãU"1[6DMS:LjSX?\oKlaCi-^iF$Kq?^FFV9I#xYA]<,oG6Z#Oj#'ãU"FB.M(kbMDM=u$F.q^g*n\0k'e-9usslBX0o$yY3geDea4sc8%jX&;]JH:Kg8M54Gh%RJdDZ;b(_5Vo^$1hV?P'0:4q'5xRM6+XjQ4((*0*DwdL:z>h6B)Bg\VkOãU".(ZrE10>xay45_pUirpxv%mY5)2/buU#SHbw8::(F,^U8nLiESW:fE1.U2l\pl*ãU"StCm:H&V=w7iw63UWf])M[X\\jDBB81v$S-J&_GFd\lf=Pg,HcX4&HMS19V$sa'ãEND SUBãSUB V2ãU"?oC/7(mfa&Rr['2n\LXQn79O)V3lad)=5LX[(iF/hU##J,:4h+dmzãU":>mO)hYPo3jFogf'W365*e7DzY-ZUãU"n>MWMa8t%D9I9ZpF$=\$dB#2lM]y9HCU7S:8B1$Ib^*G_a6jjtZlWAF7fDdCE$/ãU"iFonT)PQHWV[k*n0.*jj+k#p9nXWuI8%jkXhkzI##]ACs'KCZ$+:9*m#IJ8+UFkãU"K\+=M/+Bg%n>Bbt4YJSPtI*-R6FQãU"v?MRriJmVz'AFR&I_mpY4-OY/qWeFHPG:%'b2^n,lP%[xK['-5%Y6[MHzHd?0,3>7Ry>+559<4_tM2*zNSTm>&FfLUuYIX9cãU"('vKZEZBl,G_/Hl\IkgN<0dY=KL?3r>l)Nl&HJQ%tiQB3l/Q$Rx$OhodgztC&Y]ãU"8rTDSHNM,2(hP;Al^s^ZEPPQ,M7[9]xX\>r*'P6xj7Y-W)kgHo%qe_8:E1',.O9ãU"6Ppf[*n'x%jXu;OtRC(3MuVGC?aKMr.QNHuwFmfKkVr32b=VHaJ2]ãU"BWfQH+qa_\KY,Aqo[h+bH=mO\)Wlej:4o_dST:qmgK0nb.\(mKuBGãU"G,dN*=8vKI9,)3Z0NObc4J5H76qw\HtomqM_u%FbIpTL4VjS_,2l*4%9.0XiD-&ãU"Pzgtrux*86]p$dGKSFM9?QIvyhAk;w]X]+MGuuW8*fcK<:+Y.,0HL+M*zjH+3wgãU"R\>o\r9'VHC>aF=*G,M[5V%]A1ZsF\2/(Y#QXh+qNCXr,)63<9mQi>2Ka3)cGqzãU"uKW*=N[kVB(oFB??&c[GSe_:jK[\Rl(kqgH/%ZfUp:m.=5EFI$F7:w+bIZ_33+<ãU"&)PI9<\l;7C4M+uW?NCDu.%r'2'h:0Dla/_-j//tod[J?N-q8OuK$ThIAeby[U9ãU"?oUuG*=sr,S7RHbW<ãU"q;lyhq9ZCZW?6)_pUo7>FlgLs#J74u634VZ0-_'Z814bL;7b;([9)'SedU'LDqOãU"E#\t/=kPb.;)\%K]RCYj'D+drJIOrC%eZI_jZ&.KvI1Aj;VolK+^h2#0EwBk$A)ãU"(%f,)v8.&B'2%LKhhig'&e)M>_yGfBBQCCOhr5rRK^gpd7m91gkFB7$'%1+b09bãU"s_vUF/AJrQiq;gB9SrDU/U*,vEt(F==65hoq:;I0[lSR-Nbul>B_(YdL+Y^DcjXãU">KsBc4KIRl0b&2PvpI/]9/rftc7/fc.4E%8'tp2S8h)#nUJzF:M(emV,u;95ãU"S3rEea0h&53.Z;PXqB)^9k3e[]3#Kktc=xikF;\EBãU"uS'u=K(Kt\\KT>5dfsM2L;ki*Jz68n8I%#58=u.mhaZL#2rx>,FUz+\Q+$4$piTãU"_6%ful(LSK8J2]X,qBmU2,_/QaeMT*9+tx?R,Y[:btTSxXov)APnEkX$ij9%iImãU"w.S2i>5rPCH]OeY^Dhf9?p$;R%$L9902uillI]kWpA$[B7kpLP%'ãU"0N2oIR+Oq;c#.9\h7S84T'O0Nt7;m-7q6h*t\[Bn<,=&fVcMOKo;-;/je[=7\W;ãU"yKB+4.g#cT/CLN9UFDgYDm4qq&t)b?Psl)KeSlPãU"Gz8*[F=M;#l^Y'>h,5X[g;.$/UzECZMF?^^Jrx\r:1#o.3[K8l(FP#i]jgrãU"S(<>U(/l(l_*Jb;tm&8rhw$VjJs**qE/D\*Dw5\cht]#hZO&uO>oOGcKx/UnkH>(q^jQz4J6S6kuH=[EA96pf#3u7TW.OOe=y#*<3T[e-0(5pãU"zPBCf,X[3(t1N\5^_J[R^S;R<'M;4Ok9GfJD.IQbLFYuwKc(^kZSwR%#L:pCz;pãU"ROmTf2fCadB1.tPrq^0b8$v5p)wkLROfo4W,tTH6;,%=AMnjGu+YppR5sBbSM,sãU"9Yx.iMD9T6U(ig3C1wq9dhhucrb=_HoV1D:oWs3ATO9Y'qc2E2$CwSCn(bZ%HKUãU"\B&madxl9LfIQCYVi[l*,0ra(_j;l8]2W,58XfBQF2j^%_kF^2[.7nkPFw__lãU"Xh\n=(nj:qk1Q*fg/WweeDSWZhD6-DH;h8/J$d=DqmOE*=Ng-1ZE_fSjftXoAO*ãU"TWsvFsXQVb7$UgzNtK6uL8j(_pde\Wi=;%yqp4^IhPcUO;bQDl;m4D'7hBO?hs$ãU"jARoN)BB3QTrKcRcrKNCC;Av1#<;ElJ=-_('+?$5Y%(2hfc.muM=v>-''R[?3=\ãU"?_cI7rBua-bK2irnr*]#[Xrf-TDEE0*uf:Z=k6XYj]f>sMg?4p=VKw?\jo&x,fSãU"LZKC;2VOX7QvqpE7b]q3:nSixfvPJ&Ez^cuA\-IXl^(i,ihv1z9)7QrS5.pYV9NãU"[D[0+lKP8l.hMUpZ$F*8$H%)He.)Cl+XL&A?iRRDrY>*a)34x[ãU"-fi]7k3stU-XAHoMF.r_*aTS]ws2#8$BWb]/Ckoe4a)v4[)wt=[*(1pPVOef\dXLV7jXKNw'80qKGu=m7ADOniqtklmrx*TQMvãU"O+N-oxdnBj^PfQ.>M:e4o=F1I3owuDHfP#cFk)$Wf\/;#Yc/QY/'EQm.W/#;Er-ãU"w$I&uaG3,a2VDmr?1=Vj;Gi?7%DmFpka[qkfR>WKlF?#WS(K/.Az^T2bdpAk51noESãU"#x*a'k3(dUa/)*UM,17?.Dg_B;F:&8eUe/iA^9mSFc,V[V)LWCbf55qBPW65NU]D$SvN'Phdhk8V/+aVnN.lt_HZVbj,]Zq)nBuc2xcc6M'SF>Na*W*>88ãU"Quh^5^=yFA;gttzo9C>Tu;wqYB$N=?S7U#.5dL$sg#Ro0]kE7a1B-h/26,-rZHnãU"#lF+_:m;8(LMm9dqnTBoK:.Zkb<-jx]z;#TZ-qO?h,o_wv9e.nw&f86W&B^r_apãU"qEmhW]vChTj=e\f')Lcs>K$H(*mr8L.HZ#MZhKe:T\$p^=['6X1Dz6..Yn3,.0NãU"/p8E_MRNLvtUB_3g5Xc-Ql0Fgynf%kX&6E9rJaII)2J%t>ãU"\d1WNB67rHK9\A%W-#L[SnT])D-\ãU"m9Agu0mg?&&[jeR_+IR::6W&^*GVJ]e6FfI-1scGt]mH$R?&jX#nN?(#2lJlB0KãU"Tf4*tx$[?7z\Ba:D(Y]E[pM_W>Zj/W(CMxO3t=%KTw'8mX#(-?(Sbe,bK;b.nM)ãU"vOT-/rAR++V50J],TLU?1Zavl:kO(m-/72VO*CtAW2*-ejaX8dI\US.c/<ãU"ali\'A%#bMVMmPlt6$0#ZErU=*eM#]Oe#M7lS=R>3NC:j2ãU".i#j;Up&Cbqo%FGH6?d-I74B&nnaV:TQO#&'WSbC1IRPup8<*&Yj.g]/eQ^B#KEãU"R,KRTN-;k#WL.fhSkGZ2#O=f.9T.oU.78pm-)\/;K%/\NV$N1dG*yIY\0ãU"'8=d[$?)h6Xn5A#?lT?V_ZW(QQZmTc,Aq#wUDZ,rDq6hD/fBk7+hV)02]8Uf1U5ãU"42zRNUdc/ecbt,?\a<0BVl])waY7$Rkur?KX3#=ãU"/TsGtjDKIcyJ9u=E'C'[n9<(tPAD_H%ZnV75q0T:99_Et0fV'lA_n4\u;gxYuv_H*;URZP?$Xu0j;'x/3j4kB$H.G\9uQOKãU"ll.%d>;8QKPh>ahsI4Xhh:Xg/_'&-8N;FV=qc)e:.M;m%r0WB=#:%rmAcj?&o-9ãU"[E>bl:UXWHB?>:tL_5aCChG<$m=\d)Rv8($)OtL.S9kNfp._L?n'kpf$1gJa_?pãU"^e0/Xk3S_ca^#^HBrKMp[nuUX>*;2)mlJ89^v7QSHF:.4lCB4b/wWI\ad,4GB(OãU"HBZlgNu&:hXlraS%/lPz;jQ#K(-;E9s>jZJ%Z4+'d&EqZp703Uge%nT:6JfT^..KQ3p&xc:d=?V_pHxk8nYJKZn4_XpOM^YN0sJJCss*f*gãU"S;#4Bq2Aw;f/dãU"wUZ=H1(fmag_ba+xBf?W]Z-WXnFU/C)SD:wB_8(qmi#25#*-a-h2M=+J=dAi*upãU"=nG9))sf>Z5nJZ7F$gUSslA>jFvhrcrLt$O?q&Q&/N>f-icE)k[k8)O9;y?-igdãU":E6.V3(%#?Z'$Cj_bAr<<#9X2r?xO\JS:GAW0N?7xUmWlWC'37mF\6kãU"qz1Y??^T^UmBmfEGb,08_E]%3^]Kbm#0TZXYH)OIodaDXN3riYJTtX(&[BWa64[+V=%]a[s*.hM[P];z]GUeãU"&vDsNy$#xnv2ZHfIL0h8cJ>zci7AdD?Q-n%,grk_pSRAl/B5VxKZ?I$s9Wr5Mj[ãU"78oGq?4bD6uf&^BqABnot%l$#1Yta?(79wf1eseci-c:Z^7&06ISATcbZwPF/7pãU"A9Z&qYPF)CMVQxraa:a&>44-L7Zx1<3D]Q9:\,)Diw-rU^*:h08,S?,-Ns)lAm$U=>ogugR_H=/ODfãU"O)B(-Lw>1zR;-AI?dfP+26EdI8.2gcr<7[wW?\,hãU"k_YyPSZK5esJa[0#tbT&Dp3Kfw>MucXhjrK?+Ky^RM*SUzN(Rq]NiRj7w7_G3IeO3WtIXcSPsuBm*7F],dN%_'6xpl4RD[t/+CuJqq)gj/ftbLsB$mA_6chiDIlOB4i8YQD,7#+radãU"7$qKh9Q)NK]'uXXqwsDuYafp_DOt)kX?%WfMr$1J>g.Cp)PhMlQc)%SQ,.PuMjTãU"v[r()>Lvmc$/?\At[b>6k.).P7LIOV?_2L#$gsV_G)N[XQfL:EbNkg[JP1GMnãU"NlK.gGcvRC/ocqYJS5:vI-j1Ly.he?:9fh-bN#P^,^Nj+9^]T[di*M*DN?j0UPpãU"7DhTMb[H'mg_L=nZ]$Zgu(AXr:EfJ%Y<5>pj$HnPRVZ?9rLu's(pAL;cS3gg?k(ãU"G5o5--MAS+E]ajun'hR;ld:u)02Q&ScM-FGkTc-<%PC3M=J(#M7[uR9?&m7areqsrisNO7Cr7R2jBblZqHqq+kui0/^9C8UrmGrI0.&YlxDãU"3_[lg$YHv#^0,DCaZ##I#,OY4EO=u#+8Ml2.Vq;%-[XTCpYi#7_uaZu5T5%$G3'ãU".\Dt]cYufU)DxW^8cKQX6a_Z,7)UX0U02;=AX*1#DxR'00R?(0C*v#\w$if']wZãU"0>5q_5/\XS?e7LbG/V,>=:n'Ab%nB4UiYd5DRFg&L,Bx'MJKFo2dxGhuãU"nElqD:><>P$Who(wU0a0FCbhMWX8BL]fa]d>OupJxvCl?8/ANB)NeA,Hk]7u9,-ãU"R3+I7h<\UcYo1[Zu%v8BJMp-7ib6#u$$KQlN2BP2j[AL$H*V\;qxSum?GM0LVjTãU"YkAaCo^h9',PupACjFIZU#FwaKHf$Fc5:(l:^lrR-[8Z/dXs?MiAcBc.PN(wTi.ãU"9MH2lmy8p%YLlM8ibXZngMk,Rt:T[_1RXQpt2HU%S7:I(:SA9Y(w#l5PphtmPu2ãU"cjxAuVf^3OUdLu2J7XiNa1wIeWw3lWruX0GXvl^B$d7q;3H,AnjOdKlLT35:V$>ãU"79jBRjO[N^,C\Kau;ls>5^;7W%lRm/NQlB;GcaGM+x^7]GZ[jL/s[0w#6MM)HmoãU"qon7*[UY9?ediA%8\4I/+/4_#m_A'B#v#EhRZROpwA.''>h_nL_\H32Q2H7>Sa.ãU"aReLr;;q^D2F6'cN[e1AYWsit]^tãU"=-I^)e^-eH$?)o+\y=o]'5?IsW%1n+k,ãU";CQ.d/=HIsnHcZB$$QlG]KNaARisem4V?xA>E=derzãU"hgT:X/5jRx$&UhM;mO-cfH[l]%a4yg2N\H1m#Ur4ieN7RR+1^a6]WKA2qSgZkwVãU"(<(LAP4(W1)aGFfVn*F2d*CU?-K9h>%su'l$h7JkD=X#rq1>evUgX(BC.#2t?*+ãU"*ELSX3JOF_E?ve[;sd+.Fg/A\qcwltlU4.3[CL*_ytB1M-&zLMtA*z'REA55Kf[ãU"qIz3S,]6tGXhnev6lP82YdN]D2r\:d)+3xY%AduXvWbHMNaxqhsZMow-ndXNWoXãU"jSvc\YD+/p[r&nns-&8,:0B4=\)cqxtnx5u6'C[SNe/hGnK#k^SZjNkxe<'j9,aãU"oMb\A*DU9zne-9,hL.(^Q,[tX^mBKMSG+:$f5A)N:_YOilcQle+OJV#8?3NV&$]Ii4EmvyVW0h&X]7s9r3w]Y^.H'5=](Jq]rB1s[qKjSGYyPB?TjCCIqMOaBZ-,>ãU"s#=DI$RbO8KR/>=-\*a61G\t*[FxEu-J'tm+S58HM,yci.83.4-BZg&WPH[j;k=ãU"qvZl-FEfb([#Ei)?8I[NHni:d.q'gNDz>)6al]0e/8aHcmwJYrer<:[I8b-)SaYãU"HZPB1?Em8JrK1LrW]*7/Zm8>e_iAEZny)&#nW#Ke:4R:DpRJv$8N3S7q..+>;(AãU"-lW=3;*uoub#Qkv0sL6L[MmtX&4TX-wYsJCt1$&$ue]8BSee0Va0OkLu*x]]M<\$M5W;PBãU")wcbsJxU)nAG#W_8[_5=FJXZQ_m:3Xa5r7(&lTkjt?;vK-]ozsLtFBq2Kqm0#_.ãU"?:AKA+R8'Q<\hqudKLebi:v,Sjn6)KIC#YfrW\p[ALeTkvHG%9SXAXVl/HzJ[D1ãU"yx,rPgVYgC<[?QtLwyml'4L[c#0YDF^GK?Cll)GNd21YENH\1RGWJ[_B_XZVv%XuXK^1rtf4&?II7*.ULRZVO$i#4gcW[\RlqWocW\kt0M+ãU"K)*v6vZQdF&jNrPLS?Jj1D/$)AV[/52Y:qg^<'_b:xSrTaZecPU.iS-0BQNgD>SãU"=t;/>Lf3MQ[7bVm+le7HN'4S8[_BD8PxTnWI_lO2#VVns:n,s+[\=IMes2mW3)XãU".ZYsW?Y>FvLu,Tv$-8hN=VSdYasxS]##7NbclZaRV*h_binyV5&*1^Ho58;-:-8SpMX';CctCH5A?'PI[r*IDT8/&=Ht*ãU"s,VhLj]w=bG'H3I*cmrH'DHjTINuHEg;AKkH6ejHr+NX7i+Lp0gR1-P;8>MRS-tjqEbG_,bRyd=JQx9Fxw/1D:WFye4)qgãU"BFE/]_[%uNhrl-0KA$u[ogxM%NSNX,V/8X99i(,L/vhj#gVepEe];wR[U[=EEflãU"[n#-i7),,TMB'Z^C6MBeAhekrU.YUb$qS6=e&dxpd5LãU"^w-6a'vesA2V3st'e2r'=dqlN-zuhJgU3_=yc]dS0-?l\tF9P/e8sOON3]p43g7ãU"W0ANGa4mXfka3oyTGQ3MzoNThD38N:4&(M5?.e4<3c>+[djX&.Z^LksI$69)urIãU"B4%v,fR/g\(j?kO'$3/a#g;9dhvnnMUtNO[ts:\l4f+7bw5PH7#:=P.ZHJGWãU"SOYj%mGBKha_L>UD0;5>XiFu_Nxv9u51hgG&^hJ&^Q#aLrjN1Oc*)xG%H3JoSYAãU"-J(=(3K(%$YV?Bi:/lmaZFv'HFj96x*#].?Xm63_OkFxJ1p/0:_\H+B2M7LhUbB15.\+-p1u5*_s4ãU"CcT\NG7\OZ/ea$xE2r:+9]BT#.:^mLBs^?=EQ#0:P\3XRwsNw36Y)e97c+gfãU"plLZ6OW=t[IT6<[iXArB$(W\K0CJv7;BxYUuuG%?2NGYpeg\aBXãU"SSK2d\xEDlEk<>H3+rq*m&34FsBJ;R&Tl18&x)*2*fjCn&v_kAdU*R4l>*8YC%U,-75?4_;6-m8oãU"?c6e:YMM77s)F;F>-+.l&*JpLdF>&Vs4&y]w)deo+D?VTp;=1WX7P/.O&_e8nLcãU"mYxs2oY/O,C=\&q[f=5f-]ZJx/$?QuV&_Ti[<_r$acBn7EJ6H&I1JFT6biu4ImJs&m\'#A['^?*k.[aVS>1GRgP$gY?nGUC'i_SY3JãU"l=Bk73qJ5&4\rmBADja+Fk4L4Kf03i21o?rXIn97Ru)#e8ptWreOh9dWMFFFJa0ãU"QJB?BU4kNF6L6Jk,IpF?0/;)y/EH7eqok:9,mo4_l3JALO5D6idu^lgnO)?W0bKãU"jrL*j+\u3<&Z[oltslOej02CR6qJkB[-.8(pLFM]=X*s+wK202AXTBb#qc$p8G_([8lP2>_p\GXãU"J^G+zqTe'XkPp/[NGo_DcKNZ3/adj*L2L13o/Q[[;Rf?.pHyK#ZN%$#)8_\CM9jãEND SUBãSUB V3ãU"9b1ZDgmfMULIT8-&Ib8DE=liP00;A[CqB.oV6qN9f)iMgãU"*eHDQw:rVP-8>kH1a8TZAd$%e(Dg_CJD?$27u=V5u%CnkxVH)kl;97r2VA(g5)RãU"/T5USmf-kI1TD=hw3SN?]bN0+BTMd&<2[1LhR0sg5VZB1e$L/PLg4+^p88FV^QtT*=J4Su0NfQPM.f63#a2kx3oP9N%J&bSãU"1$9xv;8jlo=qM;hax_Ge6Dd;_aP)hBJkDG1mKhJ\*-[Q9KQ8;==_[Ai?90c5_H\/UA-;Z4ãU"4;v1-00.)pzq3:N3V#ilOE3TZvjgaq:nlVw.m>r3C-Icw4rZ?x&WY6pV7ed%MULãU"DkU,NXd5bBj6kpR3b6?u_b92ST?.gK_AzZD.QqD3KA\Hp?Pj,mZD(%9OSn8XeLzãU"86ZqJ3,Q4G/mo]2ag]W5/s*%q0,uI2IY3u9=3HQlEPd1>EG/w<6x\tXFSpzdFTtHx3Sl3([s2auc<2=h*6fPxãU"Ng3I/P0BJU8*s5gR7z)aJ(/cwt\5/V>aEVz.ljGv[6/JKb%UDzJ$GK^tu]osNV^ãU"#?wWhe?\78Qs\A3dgoLrhCE'OB+ei-tnl-'-OAt0GAD=v)vR*Nj,_[XYRqeTe?>ãU"Ens$pQ)Oo'YP_K%b9^?P17DXPrGCFJb%.IjN)uDCYQV.DL$I>Brq:%X9W9YK&(1ãU"(dhg3QwB4R;Pacaj9*Y;fbK,.VRHM'?HeS9e+;xQBrG=3qk'dYSKM42q7]a9IhtãU"rC]03'nQzaBO5s6X?dkKNC<+$ciY3PT9wct+T)Gi,+keBc9/?ITUpb9,a2e_qwaãU"nSA;Ocn=\f1&eWU3>6BWa>N\Jj('Hk-Fgl5uBrS%h.+mVetZMndK06p\mpP-xu+ãU"3*LaJPMM?uFEO.CE6RFLQ+diS;1o5,E,W=,>50\Bq;vh)r=^B$Gk3$q1<\DnVpNãU"rw2'vsv;U1$^6Zq/dp,)Xher5,rPTk_n'SN%;3IL4RJzvsJswtXfjkw[b1>UZP6ãU"Aw;*Xq(RZ_Sc3c^BH7L+_Y-l%U_OZrW=T/J#'H-FSBjxZk5.fh+o^nTvFgiY(X(^>?=g%JF6Ok&l)SnR3f5)a=]b\lQVQR[KFccNNR0b^n2a+MãU"p=%Mw8A#g0&i3AvhZJg4rX'N?'n>)i;FqL.)u(GC?Oa8uU.gc*C'15VX%:lF+FNãU":bkNJ/jHMmr60E7_2/Ty(.#q-wldNTS#=&DKERjN)$$$sy''JBuZbJ],.EMOLx>aZYUMVh]r[&*rQd_OeãU"GZP8*'MT9As\gDHIM$WM*rpJKa5P[STD>A[*hjRmwN6wTB42Q^m;W)Dr^p7x$UqãU"[np_U?]]h$32nd[Q17KTdhqU5VQV<0iH;FC;+ãU"EgvT),+0Pxq.,jf6-67*RWd5exG,MKyr:#i0E];Q_*[ZFd7=,LI_wI0#pG$J^%fãU"BBU3qZol)7RE-GaKuu9td+v6<921OM,lp>,+\6/%RCP47$kYhqHxPg*9ãU"u,7ZHUldVLErE-YQa4x;<(Q+swT9\8Xj?HeM)pkk3i[<1EO*=BsN2*G2P]bIJLoyzQK2,Wrh\&*GTqy-s>:\7'l?=e8P(E7LãU"mX+_E(cA0H0'k'SU2M*h?tQpD,a1v(A)$TsPpJs1Um4NmSBV6XOiãU"ceUTa'FTmv0=[0]117*Q]>5z$xSD/?C3[C/2xce,Yita3/-:AvL%R\ZIx[1^UV1ãU"9qe-XnpmDeQ.T8t7vg49&Vl$-c[lLZTGIDlZ&69u/+k,jH.3GTH_>yfDrLOZkbHãU"-$SCxNieX1nY/1AU2&9$l38AWduq-$-a;2u,QUg0OMl'V);UE+jZw,:tfQMPS&mãU"AKD#xSjJbx0W/W5ONPUK.\EuSUt9UalG\SVsH)KJH?(BgLãU"m88YhtkwpkQ)sCn0lgOfL:M%Bxy2l#u6KHf5ãU"(Fjb;u_1CD8S-TBM-O1NiQUUSpw%NJrNvd_m,as1j?Fre6Ph?9bZaq/o;0[/4=u+.._dl'nbdwq$5pjqRJDãU"(gmF3K4&MaVMQN2PsYct'tTQeI>-BPS;^(62&BN%C=E;dao?*eCIpDR2G8n'FIDãU"B5>$x_a.pT?sSM2m.EKu-nc+R0Hk4UqZC'Y6^Rw]eaiX9KGO)&9/114jwIX;G8ãU"IaluTJzS^1i:1=KK/sSv&?Bz=n_47WB:*uW?\O&>*'lj\P6rw(RZw%v>r;mgMGjãU"g$+&H:DN+MN=Tx.=y^fVt7Z5LmoE=,RFAUjp-i/?x*\j$ED:_z#(z3NETi)p?r*F/SA[s=x0l?Ox_1[A^M9mLMRvH+'joãU"Gb4o89/;VY>SJV<.*zMy*ff/C]JFd*'kHpO_uv$c.tX1nR84'/by:3ALo)L=gsuBOV>xAMvE5QUE483cxFãU")9D1lãU"ud'-GUEVPt7yoV\27UR2;TvFJ1u:pB&M>uKx1Nl(bC]ãU"jRr[;fl_\zl679h2IfmQ.P(*6GHGflbrJ7_R^ka\?-_bfW,Gf*=fYzmnA/RJqs[ãU"Mk^_QZQ-Q:cP9t6'rILKK$Ibk^?N?hGU;&uvKct(:r:N/*MIX*:j5o>Pv[o++sMãU"+&W]EVyOOI9avgP9tTXg]G/IF8KzAH_FãU"G=-5^/'gFYyKhLNT=_z>tx\5yfH5zVy9Pz/LQK3IODzaGãU"%;:U(ea(eyoH0E/LJ]8pa=7m+O4ãU"B[&5WO&/&Q]G83*6(10:[vp1Z#91b(KH=1l+)XR,$-i(n:V_ByFH[itoL0CZ=)bãU"8;QR(^pl92S9\^yY8hU?\F_VWWsjIc.7(f:BpVe3Wm+OodL&?AJF;q5jgXrf780ãU"0_.n/Xs<$L>S;dhOF6ZEcF[s?ueMC+juVnusVT\i=R/Jc*7'TrsBdn?LpM'Sj/'ãU"k/9fo#X[N2,Erf?F>CnhRSzL6XY%>kO#GrCHs6GMYRy_,_PC4qP_$q-)^M,eH&ãU"umy2Jg$IF&d./?jf+0cjlQ[pj3m3([jQ(Aam3YQ)f&mbCr--4o-e+0gsoDKJãU"rPvWKj1pw*1eUsaqKo?S9IeN5GKTM9Eqrcv1O.ISz;:%6J-r40q#a%mznUBsSu'ãU".0sVz)Cs8Kent(rse.Hw#NT:-(XLh=jLZM\<$FsSSA7-.JX=kNs\a::wDsDW'r$Cj^:7=8;U)04,ãU"-x1:0X0Ni7oJeq+xYnz^7vt]=D]k064-BT[4i%9z$fW#D1P0nO#$G5(E/%vnln6ãU"1<3WcrkA];puw([1yk8cTNbxlRdV6XkPV)*5H<*o1'm$7b_DgVEUhZ$Y$uL)hI7ãU"3ABAPid9%e^l%80F[BKPRuvPE_SLq;K8KZJ*3O83IiCmr*_f=gOUZ7/I(ãU"3qZAVA5L&qjcWLB(h*5*(DF3&%R6t=\V$-sIVu8InNPaJ/?Q3tU4qthS<0;K_qdãU"jn8KOZ>rf=0Hp][]$q,+G$qm.9&^4b&.Z'FqM'fpA>zKhAKz=uZni$%aZo*ãU"b;Hm6>_:8Nk%+69Bw[m1XnV>)5\s?3Ym/+ceU8:z(rMkyw+cRCFr\y/.1w/83z68CHC+#iTZZtturj#cL0MeF9kiL1LCx]3IQy$dãU"G.JJZkGFW9tbmVU%v?CBb^\<$ndpJ9&pOSC1#8')h-:S8OwYWdP)6<45-%tDz0mVUtLX5_mzJ1ãU"Q86Ig'-h_Otb/lT/7bs9O&2UFNaokJ7zss^TRTW0(&CY_X->ti,hw+DBmJnF_F\ãU"P,#-2SlK>CbE.5L[#X5Kr%5+0>dA\?k/GJNZ+Du\0B(*hC4LIF),7(q?A-VHtjuãU"PLr#p9b8+*k]B4]%[&]]9JE%rYmCx&#QeP]nSo1ylVY%Y:,r9wFR6'V%IGbcC(IãU";*L,+ZR%7oi=hUb&KialQgxpedD=jWw3xIBsg]#c%-_^_/#i%xBZK<4qr[0dfSY[l)C1jm:=Sxf*O/YpuPuãU"&w/>Dl08(=0/XbenX;WESTt&=g2&1R[DS1n:ãU"1&&Q*WzMkU(ufYlVwva/h\cY>GjP]:'*lN9Fvv9X5vT,R13[f'5J)c:9uBd/0uVãU"&,fP\B,d:4>T,ZvD6D%Z)HcivS\IIc,IH+:P&L.5)yMOQA)KQ+80-WXuKcb*o+#ãU">j^jr,f7F2oRRP=rg_64lZs*VM%e/L)]792W-$bws%g?'#/.k\_=W-_-,d(KoKTãU"KMRsPxc;irZUv00Pe3oixw2UbkVp)]xq?O3/):cGKG[Sb&1_d^LN%BX>S9RXv1RãU"DCpzQ6QKn6g1cA[SO^k)AcZhU^19xpW9*LNtABl'KDxodUpK7qL6b#>]$?^Y.*jãU"3IBCzmB,D/gvXWO\*R^okiI5)[^_CqtxG?,tjãU"OMB:orA60SãU"sf,>Z:jO2k1fLO1q0^P;&l'*\RVof7,0ff#z4_7%b(X/U,iwk8RW/>m-oXY#fu%p\e&Lp3CUrp7..QEHr94QQO9Z^(ãU"yG&'.IJ\o'59)_Q?.gY?z\uhPebZJTZdTD;8/^>TaasF.jEU,lp4^4(Si'U&l)(ãU"GvQpQy'F6pe+DJE7Xx[w>1kCix%;-SMDB=uZ\wKIt_6k:tX:i^Cr3-^ggyo#=WagMa'X_bjk&uCd0'KXL1o'AFG_JãU"^*%3VqMJfXqT\\lAZPQc*JZoAN9PT#=EZ>G1$7[y6.r,BcãU"Mty2I5mmj/kc(^Z&hoNS6fX:B)PkjOJ^h>'Y\1b1m>2IP\5]8qGpNgbZ.8Z%zMBi]o=4($=HãU"#GsAGdkIgjBe,Axq/ScMJRu6aa-.yHeA3YdgrR?uVFUSI*pNmdI[(:_)3^wkx:)/yDRjg4]BWQãU"TYOMQA?pLK'1p6JATOAcv+Y&I<518xc?$pvtgF<5WhT=1Zm#O9.MG;)kU03U3OOu0\UIãU"mArcs/s/igM+X):XyGFqywfmh3mgG%Z7lk[HxA/jdk5)r5#m-R\9T=wEW[,H6$XãU"Z+I3U1EG_XN2mEOOCV7G-.,vd(:OW?*78gYz)S+T)>p'W5OE+nfIu:ZYHx6?xv4ãU"xSDCtBjRW#LmaxVo*).F7vT,Bi$TD9]cbO',.ãU"3UvW7TepMtCLp.t*XvCm>0\J004$sSaLWRKDxpX-'8SWHgtcpRq&:9oSd(DA1LWãU"Z[S'$fBP8\N=DRgOgxzMb\Du-/Q<_IT99mV,aIrQ%UeSm1:8J-:JZ4X7Q*nA\ysãU"*$4Yr&k]gdkFDKy+'sxKfo0RkWRYO0:bAs0Qy3o3fJ'Egqd?,a+U_,6^OHHmtTrãU"P*FhOj.<]j$;PAku-)_+2Wj)f/\*\o9\I5gHVHKB4_OCB]%^cFa#nTp0Sj?^u\Yt>*3H,FF)KZ?5O^^\NHQjl\qxIYEn2t4qRJ[VtciJOV,ãU"8x6=o7vxOMp2;S3e>IQ>)vm42#$\]10J2U\ien]oS-.OXg'G[e=V3OJ[%Vm$3#XãU"d,y?X%cvX>6$-moCLVZ/75>cP\nYb$805s//;TuLPtN0xc.>*J1Hgo._nNqK>86cDwlGRg<8/P%^?JNK\[W;jo/fKI5iYT[RGJN+DVuTS-ll_[-ãU"i$qMDM?j;K++eW?4r5)l0kU3.3+$upec8gPX#k%Qgt4xoo.,S/vX1uE;t_vpxU.ãU"YnRtMlVb]0Ui1-A_qF?&Jq4)'/rx)5TxxH(C=TVCu+2)IepnQs+GtKEK5jAeU3SãU">l#UGh*ww+Y(:][q?qw5KdN-)fRM4_;^zlcp3YXnluJfj9jW(l;^.XKg7%z/0]DãU"(z/b=T[/h3w6r&yc>owN/3ãU"bb:njvwvR/.sNYcWp>#?qfwl8%u4sH8tkN(5#4B0NoVu'NK+WU4a*b[6YM1HTJIãU"vEW]m(X:TI9LOKr*C>iBb+uoErLrRH];laZeS&(^(3N:&7tYb;kcB$toWPrNb;NãU"X?Nm9CDIR;RttF(J/VCf.Ev9S>3mHG&DRkz9CnL_N^'#Wr'):z^*U[rYDY]#]/0ãU"*%k6PqLNiF]n3P5rv=p$doKz6WH0PbcrN+w5jB)uo/y=5%X;R-fn#]mlhW1Cp-1ãU"4&'1jm^L:+Yr5;dT/Z$+g1G25y8aK_8EVa?Rs+H:_Q*Knz]8]>:e(+but9wqN2kãU"\1?l]\+l70gb?dK(72[RMpU;a9Zss^2,;CãU"EB;)L&:K(iqGLVLJ[ZuSXW$Ef0GO_D5)mF9RoMF%IIcKJDmGFY0KvZ7i>jx)_CZãU"dk*h^[qX8W>0zL,ul&k=DVvd?wls5fP5A_mhN+.JA%;cPqs91sGWTPf+E9+70p)ãU"K4GUGDXD(cQ.;'TdEB&jq]9#eCIjb4l=mHqq?Rb1Z8t[?Or?g:+D[?O=RSA:H6&ãU"vK=^^4H_bnQ6fD)M,A<0LmCCQ1UcZLP'Cx5#K-?k5Cn1w[SY9Z>&$9,7ãU"O?7W'pu]O7KrVSQOgl&_[*2xsh8sT'r$xXMdblf5zPFBl>\Md*bRE9H:l5p0*33ãU"vQbGc9qP:k=n-ilQ#7Hu.l4gsrh35-^H&45*jp/:I.eI^xFL8'wk%Ctj,bUVc;gãU"rcH'I/L-,j1T3qf\i6)5U3kR&E=XAMSncWiOJ1C^f%=t_vW%88V787TC(GnB^/7vPu8XãU"6vcd7^W?'72htEOfmPTooQ:/w95s[(>lK'^:c:t)1\2D3(amElJY&(CW<]V2g)uãU"fI.$ps?fIMZJw]IrUB/,&lWJp5x#w]19A#e<[kLbR>T7q\Bh5LjNZz(%3q&M<r*9aTXeiyt/J3mrp-9d9aHfMLLXceUt4-m8,soUkpI/3122EyC=.wFA7ãU"7O7%oMXE/lwO?tiVhqO]vlfQif6vQXx/y1^VMu:X[C+or-CPoZa#Z]bJ[n1H43FHNUrp61m1Y$a9xXh#;o,ND<ãU"9hltg$bt?w:6p22tk9GHEBduD.Wd<'WQnU]lG,L1vtMr/,/2_>BG3_9rSi_x(k]ãU"tcDP-Z-n(]B2C9Te=g3b$-fWlf1U'XrA6_Ov.r:=fISksC<:Alt_cnP2j]FsrXc(.XSf/KArmTW2iY\f375wEpP);/eHk^*V)zn*sBXQGF$4]9sAU.&/qCTP$O7F_NSW30=P<=>Qf76JksjV=?XesUqj0ngJP4E1V%0ãU"uV9Uk,32[F%usmP$_t.vDThwo&TA0O*XUOgv^fst7Yors3[uNrv2o_=^duFW43gguUE9gTmNm4#:XzQXVNJ#[/0[/#cHhHNZl=fCvH.GA=P]rkxgSoxYNjãU":&nlLedO5A^&pk8FC4d0GWO2C)jGQ:c17Z0+(,<.AM7&P&D0fo5BFZFxNhpbLt<ãEND SUBãSUB V4ãU"Wcj]4B3(oGutRT67+G(t9.2..B4kV>kD5HaS%ubshYr1gEm8o'_#/5r4qNeOãU"Io1JK(kLf':m®YeMA+JMsDcT\L9u:QPfmRl8?5VB%);J2WVYo)NWOj\l577[H-/V_>VsNZyu#P44HN>g6V(:prBM\FTp5ãU"U3sWw\GLfnkGOQ,N5DGES-0Y'p3YC2CrTaogUq:03[7oFu2t'_1D&'XZ;FK3c7YãU"j^F;;qh9d'[)g%IFzwc5^M=rlm9agSsY:poC*V#y5nUuYt]ld[>^6_Nn[JulV#NãU"l0N8O)/2^Uw*=kSR\%\=Dq:VH[q=0)kbPngKh]X]E[fWidY5Z5xZ6M4a$D*u4oWãU"qIm14pPd36(OO\m_s-xkMqjot2r8ok>G&pLEPnl]W0i1u1Q'/MXU6II124ZUfM#ãU"%JFMKbF_u?FiE0Lqd3,J4uGGE+%FQ'DP6W=JmorA#59T-oãU"Sq^1Pr]?XXRW>9c:^<&nY.i:'^\QPz4(fT8UK%Qq8G1r+MFH#yS.)*Q*udpãU"\WuSfoq4r$ãU"EA3CQ[,'2j1&*CXD(HdB)ãU"C6)\5SyxN'eO'Hvc&,MU9xcGb3$sxãU"]3*QXnJ>n$03c'GRL<&ja6kwE&%Z-tBZ>Xo1mpsMBpp33>F-?c3EE>Fi[og+_pAãU"7=-AF79CnqEBHNuY6dl\__SsnJLUtDo(\sGg^^7vJnvB;-fOQXS2v*PG]AmshVvãU";pi.Y2KYuxhk_=_8XX()*px<.&)i524H'o1PtB7A6ZguB^.#qE:fMmYT.W(w\s6ãU"y4+X2w6V[IiMXB\SGsKm?oU2GhQBuN3eSzqTQs0ckK&-A-ãU"nkL612e=3+Li^z>_b)[TwNh<'_iJgWd3c.yXjM_LvBd9$W/_;YãU"kQsj.uM+'?7QI8hqOvqx]3_'n3%n\ytcxns]^)*if>]3(/l(WCG_rQ7L&)6&A2YãU"Gu>'WkD.X4Bs$kT?.&qA/8(*?GãU"y[F#MaPf9ffg;b;OTZJ;d+3WSji$A1LAez_i=okbH8k^ETScnSzSf*w.sb]5ir(=mj/o#c%OidSrxcq%%%XF,8YãU"jc,tk2.MizGv:vvm+kxp3B/CJ4u)i3(L$aYRt#I$gQ;wdM-[^iowrDHqYR(H3h+ãU"$jVH0%L'd^xUu[kSãU"C.*ifrDgYD)1r]s\&Ldwad>v.p(OOJF:6*ZT^T^$>HTDH4?qtirNMg0w9GZP.k_ãU"rur]5smQ$xeKs+mhRs&qvdF%1?G?YLiM5Xqtb;$b<ãU"Qoh4C']en)HYbqCc_HQv5d17mNa5\:?RLKLG*ZNQD/SDK^\U_vQ'65/_*N*5;>UãU";qZ\SP.Bns6Qb0Y]Lql6n7JR-Q[04ltw3T9%p5Lgsv?$MC(2d+cY7clhepn(-)rãU"IqPZ*Yw+K(Spff-M+871Zt3bu+4ar#&smlW1n\C?L?mrO^]\YJcm]/K$&k&5w(wãU"%7s746h#G-(EdsY*kC#FcQb*E86l2I3GLkB$mkUit4x(%tk;/pIm+=P3IT4lMfqãU"r0j7n^2uNQ94(ajTV?90;#'7m9krrxjb2?'nD\X6/wQ8Sl18\e=be1>,0Jp*t:lãU"08dF:$JFRUi+*zQKW\KZ*t-%X_\yj4R,SYd<+kq_o/#\%TElYel0oQo,m:QsqRFãU"b64B.dG=u?sd(n-)9hCff/U]0M5L%^TO6LmkO4BSDP.72LJe(*X_W9,JbU.sw6K3:9J,^8Yfe[:<\^Juu+>5zu?uGm):0/_[E+>Iih(h6[J0iC2QtE%i#hyOb8O;ãU"UC>94'(/4qYI\)QSK.Mq=\G?_16%=jJ#?5[b\&rR%52pMaeh?,[cD)DhJ8yk.J+ãU"<:t<*2&Lsc7YzURbqvxt7\xfex/6E:rz&3_I/f%MGW.afgcY9LX$gj8,)&&R;Y?ãU"uTLpCy2'^E<]<7ZtbOoH0.#.Q<*eYa0j^8:8/?\'SL;KX%Y(^Xdpy?-Uu^-p7>5ãU":hEe:KV10?lkn?iS*mRJ/'w\n91gdH.5MH::r7VlE%9mN;07%_s]M5K?l4tgXA/)uxDR,et/UUfbfS81-UL0mVPuP(gGijvT*>Oa6K,$ãU"L3]+z-1sK*TmJB6n_Dp*NDdI?ox'us8MuUE8b\5pnl9Com5/m'hc4H4JqaMVs50Ez9pV]?K&,1$JLs)V6pmnxt($;J+P5w%/3>$&ãU"$YK.tlPbm>\WsdRd],k-(gQ6:66;w/\Ph=waUiWf-';HQ&1&A)uZn;_NY%DOMP9ãU"FGSV%;fq-x94gpGL6?a9*qL'E8=&hYZIXePRD8.-+IL?Cp4b?$$q(&\.nVor0\VãU"a;f9%/2DngCl:]kZ_UGuE>10.uV&'kcgSr90SJYy)Ee8jRGI=G.f6Y.M%d8U8FjãU"vXPK8h7P#1Kh.^y*0Y^o*RO7%fqII,ãU"W.DHM0REjernja.dSP8cmcWFTD5gãU"rlf0?L0>-/)AU&FJpimv91Q&6RAFErm\k:8D&?vtoqicHn$r&A02'rZtigXC&T%ãU"y_10.H#%E$Cr?^f1#U5$hlfg62Y$=[iQTDgzhH9UBnGW=O,aFuQpr1yr5oJRDLvãU"d_1pSA)0EcUw$QOhtWW2^Um,>pt/C&c/4_G$Hfpf?V/sPoFHsLD\a-&-h&[Pj_eãU"dp0*Ayf^Z$I=$N2b>1Rq-Se9hWw9kj2g[?=b.(8*/f:4IOD>wLG?/:qkK^F#kb4Bzk8N22EoCE\'-K1.:/u_ãU"HZEH/Lp'rq0?fhYCi+P]*VG0be0^VW[v)szp6Ph3_CPT$?JG.c/z3)8rGo+NsS*ãU":gz#\9gYDI2j+,7er+K>6fKn-U0v>G,7s[c9.0SJF=/&445%AX)DZu/*r#L#I:MiYdL(35ãU"4%#=ucuKsggN7$&J/EmzH*;s)_b=dw+L)\Z#4&FNeditsp[sT-(=^BJLT+Tdpd(ãU"R?ZO-f-$1hIKDphQHsh/IOFp6.eNJ%U9.cK%_[SktAmP6?sK],hJEdcjt>8Lcu/ãU"dekj\=#3=;$\8F/2aPBny5;2>HY4ZvBJkkfa:\<0fYc,x><'I$XBTc'GPogTgxYãU"H4=VezZRf$,vM)BNz$)XxQFQ$Ps^QL#JlH:(:*eW(rPqA7;R^CmB_*&'s&Q4b^pE]sX4o'ãU"pl?sOuG6\7fT']HAu7)(ra)>[OK,f*#Gw'NStTjU+Q//Hnb;,>=;X\WJoz>NOUEãU"vrKoAm:7xkmN4igMDCyJx-#[aiUYj4q*kE98d0mksvP?CHPM%tmJ).oVr47B'SRãU":y=y.vgD(i&>kv5shH5A1T5ZLR+\gafXS=G*HxrkUSv1R>up\4.Kzv=GiGpHP1QãU"hN=$c>7n6/(sztPr<#9GskZNDq6:E#=u5nL,hCV.P?1'=[sc0b,FWP9]8-5gLU_cV+8QJWr#=+h.uP]LYPqãU"Ao$QK;L<];9py>$MK;v$>TYrW+f?EM&5.'>W=C9SU4'$r64$JFqc;cj\Cn-)ãU"JgJvHpIxikGOY3h(ZX[D/8rBnGA9ZOFOMlEkdb7*A]QBY(&pqpM-ad.yPeXEãU"sH#pdclM#tGIDO9R%n#xfU1g>(noULgãU"KNG(ROpLVY[Cw3C5AR^^=U8I^\B+c1,\:GYu9+mF.,Tdt=:-Zm8flJLR'OKmK:MãU"^Mb4WZP[+z#D:l_HMor5:;bt+.VnYS't.nJ:1G1a8Mm>kA';Uy.N5P^8>12c,[)ãU"tNb+1vU7AaBwCz_sjZ3&D*jb-#[g)/$VbcQJ9LLl0Bhs\)6>nlN?Ur>L0*e,)GgãU"8G:Aca;E2B6n_u$Mub]nM9V;[tv?FYc=,NUi-tUH+\)=%[qE?q6xãU"ackran\g6<ãU"U*-0BpFa,)h3p3v53+p(VN>otLBBwYWu$Wjr^Ah2Sdj[W50-UY$W9ruk5a9oB6)ãU"poAoa<0]A#'eG1>CKh^Ml^geq8Dridjulq89].VMZiW>80rdfR']ZGU]7a.sle_ãU"W:S2E0*YjS/9Vqn\n<$&HK*9St#Ql%X(b/Yf#8ãU"2K+G<[ac0WL*K#B_.GASPvdn=FU2.4o4wiqG;cUT&MZ:2R-?TPPC&z0:s&L?iV.DgcrNujhMãU"s^;p7dz6/u,ch%AM]/oGN+vU&+E*;ywpY;69[s,upCG^hv-Flkr$b>dhr5nTY1RxjQãU"&,w\d+A5MsFwKgkh/(CrYr;bnF?$m;5X&Oq>AhMI092$F*J(%z^K.Ca8kjO]X\LãU"-AqEs(j>drLYW)6j5^S:hi-e.\oAqDasN%\LdWYTWmL544_K)RA&A)]e18iKa#jãU"qx(sWp/s[Nx[N+eI/uw,-XwsY75nTFCg'OHmJ5U]J>Zf=#E1uRw9AmD\)2F#5FAãU"VfH5R(penlR]*$I\tyE$k=$;)$RA_#ql34LVLk:zCbk2R;T-3>D4#+gQGd2EI'0MKo3,Fgw\2KTC,*ãU";VW4%up()%9%'%.-%<+n_Gqg5Vb]%.%%j&%%%.%%%%lw%fxxSIxu'4b_:2<%U1(ãU"x*F_>_)po4\aMqQs*gq*OIp6,oGM=.B.YNNCupPj5W6^lWP(I*'\GNJ*MdM/0;3ãU"Z\X3%.;MVfV,L/oe-.[%kE%(J4L30]V=ft*WU27EUMjL#[-m,X&1LON=e3nM2:VãU"3=6wf-Fpm?+435BVgq5RL6y0qP'fMwrsy?/chmTk%0up(%)9%'%%-%Q^)$GHGOpãU"zC#%%%j%&%%.%%%%r%tzsy#Sxu';,_46&Oe-i*HS/Q<:WcM9?V/T;:#?&2enP,gãU"a=0HTp^'DY=pSf^5$U,Pns89YT:tO%hJSwe-:C._?;l=1+oggn40)ãU"FBeC6t.H-7o+M%wDWeFU3jF9Xq_>LeBLLS-NV%oUb>2fFD%up()%9%'%%-%i,n$ãU"G^<3AW$%.%%j&%%%.%%%%yw%jjxS.xu'zb_*2<%U1):#;Oy6/SyisPTi\%e/>soãU")-hJeW%NBolRIFIeb+NX9PL6D^lIKe+?P<1MlUyg3R8w*8-/4oM/Tlu%h5Bh<>3ãU"bATt.lAr00UdJM#ep&wE])b6J6_Q)S+NdG%A'UeReQ93;))G6,p(EF2C6c_0H1UãU"X>dOVDGl]#Uq\l?GFP^Ohf&N%up()%9%'%.-%w-/$GUm6/xE%.%%j&%%%-%%%%hãU"f&%jSxLu',^0J2OeR-hjV7.A:TPu40[?Xg^Q^K)M;q8A;6q)wp.FB+TvB%WyDVgãU"(5#HIsJ/2ExNO4?a-g;F\06sKi3Je&0vfH%Uec4x-16*/hbH6daW+/lRivK.4]>ãU"^G3F;i0YWv11QvJC&Ckc3w]At=Vx$,%up()%9%'%#-%NMeaGLu)7Ig%.%%j&%%%ãU"/%%%%ij%xjwy#Sxu';\]42%%E-iH*2.kf:fkJP'4k2;g's([a?gY?Ifqw6AMNKePoYcNCg(XQrv&Rt%\8up%()9%%'%-%:A%Z*%ãU"%&+2%%%/%%%%xhwt%qqSgRfxf%Ct7A4s9x6RPhF=E=\Vc+\ayY?KSYfqqmQf:E?ãU"gk;eeZb-Fbaf7(a'5)A$CQT%g4Gb_H(46&'/g.ãU"pCY#YZsWpLN,h\4m4^4)rlLh6uXh6hNHJ>5(;/N_2Y%:Sfo)ãU"Bqa/9_7T#+/7_j=7M(T>&d'\,Hzi)Y:qm'[nKsaDh\slU9LYM$%(C>wQ^;^n058ãU"jNt4g&JuURMcO2&x.]amu)w'1]E1;I'mIIR#P(()xOTG:0ãU"NSb4L'O;;PcndAvV1(hFb5no.:c9:^t.l5.5S>zM;.dNUW5p2Fj90p6:c::OmYCãU"is+/:Rg6%I_:]?/f)Q<3Xx+luQ*6;PZP?%'B3XKw_g18m&bM8xln[ZLVF;2^ApmãU"z.cAUMvMBE?z#,;^[rPpPp2mVyTqsu0_Nci%a(FVzz&G*.TjvPxB[Stl:x89Tb9ãU"6u'(4&\%0=;i0_9D_oX1gclxFx7DP]IW[G;vMuH:C[hbbC0Yt?&;1]wu;efYvVeãU"z1qQ_g'ifdv:8J0R6Obi4aX=v7'P$Id[t.0A$#6s]cV6]Rk,KvgbsyG4-KvM(WWEz0rk_fLãU",Az\Rqec*DOpJYF#.g+gTCXf#FlR\=)X9Zc?D22BG_z8k]l8KVUl[m+Qsl6Qv1\ãU"S?d1GI*2RcBE\j6cSG]=(6:pm5P(k8P>cX**=GgPL8;14s49DhUOACLYY*#'T5rãU"'B7s]'6]rqS='q6ja,Q**PnR5(\aXK2#?;_$/0Uba[d\J70[4LãU"dNuR/^-NT$s$gNS-N7_FwyT0qDãU"h3l&Y?ZrfAM>>Kwo(^de[VTh,Cg;C/jmSI>75].ll_yhhg6bnDC$rTT\Gd3B$ãU"adqpUs+3KsstPVi*nmKl^,yDYF:&VK1qFklbk(NZ^ãU"4YQ=5PXB90:[+H4\qfFtHgnH3BLD2F0V,oWz2JY9bUGJPZ8'*bN&u%p&'9%%9%'ãU"[%-%$)O_GD+1B5f#%%%j%&%%.%%%%%%%%%&%%E%%%%%%%(%&fy%jwSx(u'up%&'ãU"9%%9%'%.-%<+n_Gqg5Vb]%.%%j&%%%.%%%%%%%%%&%%E%%%&7%%%%lwfx%xSxu&ãU"'up&%'9%9%%'%-#%Q)$jGHOp(zC%%(%j&%%%.%%%%%%%%%&%E%%%%B%&%%r%tzsãU"y#Sxu'%up&'%9%9%%'%-%.i,$GZ^Z*%(%+2%%%/%%%ãU"%%%%%%%%E#%%%E%(%%x%hwtq%qSgf%xup*%+%%%%%,%,(%Q&%+%L-%%%%%ãEND SUBãCLOSE:IF S=163AND 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ãThe ABC Programmer PIXEL TUNNEL (WORMHOLE EFFECT) voxel@freenet.edmonton.ab.ca 06-20-97 (11:00) QB, QBasic, PDS 100 2968 PIXTUN.BAS ' °±²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²±°ã'°±²Û Û²±°ã'°±²Û PIXTUN.PAS - This source was coded by The Jerk of Hoaxers aka Û²±°ã'°±²Û Stian S›reng in February 1995. If you have any questions about Û²±°ã'°±²Û this source, email to: stians@interlink.no, 100% answer. (Bug Û²±°ã'°±²Û reports are welcome!) Boy, can this source be optimized !!! Û²±°ã'°±²Û Feel free to use it at any time, as long as you give me the Û²±°ã'°±²Û credits for it. Tested on 486SX/30: ok, 486DX2/66: fast and Û²±°ã'°±²Û 386SX/25 slow. Conclusion: Requires mcga and a 486. Û²±°ã'°±²Û stians Û²±°ã' °±²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²±°ã'ã' Converted to BASIC code by William Yu (06-20-97) Public Domain.ããDECLARE SUB pal (colr%, red%, green%, blue%)ãDECLARE FUNCTION LShift% (Byte%, Bits%)ããDEFINT A-ZããCONST Amount = 30 'number of circlesããDIM circles(1 TO 360, 1 TO Amount) AS INTEGERãDIM ypts(1 TO 90, 1 TO Amount) AS INTEGERãDIM xpts(1 TO 90, 1 TO Amount) AS INTEGERãDIM xsinus(1 TO 720) AS INTEGERãDIM ysinus(1 TO 720) AS INTEGERãDIM r AS SINGLEããã' ** Precalculate circles ** ãã PRINT "Calculating, please wait.."ãã FOR a = 1 TO Amountã r = 0ã FOR x = 1 TO 360ã r = r + (.0175) * 4ã circles(x, a) = INT(SIN(r) * (5 + (LShift%(a, 2)))) + (5 + (LShift%(a, 2)))ã NEXT xã NEXT aãã' ** Precalc x and y sinuses ** ãã r = 0ã FOR x = 1 TO 720ã r = r + .0175ã xsinus(x) = INT(SIN(r) * 140) + 140ã ysinus(x) = INT(COS(r) * 90) + 90ã NEXT xãã SCREEN 13ãã' ** Set grayscale palette ** ãã FOR a = 63 TO 0 STEP -1ã CALL pal(a, a, a, a)ã NEXT aã sinptr = 0ãã' ** Main loop ** ãã DOã WAIT &H3DA, 8ãã IF sinptr > 358 THEN sinptr = 0 'loop sinusã sinptr = sinptr + 2ãã' ** Draw and clear circles ** ãã FOR a = 1 TO Amountã FOR x = 1 TO 90ã xx = xpts(x, a) ' store old ptsã yy = ypts(x, a)ã PSET (xx, yy), 0ã xx = (circles(x, a) + xsinus((LShift%(a, 3)) + sinptr)) - a * 4 ' new pos ã yy = (circles(x + 23, a) + ysinus(sinptr + 90 + (LShift%(a, 2)))) - (a * 4)ã IF ((xx > 0) AND (xx < 319)) THEN ' check if inside bounds ã IF ((yy > 0) AND (yy < 199)) THENã PSET (xx, yy), a + 5ã xpts(x, a) = xxã ypts(x, a) = yyã END IFã END IFã NEXT xã NEXT aãã LOOP UNTIL INKEY$ <> ""ããENDããFUNCTION LShift% (Byte%, Bits%) STATICã LShift% = (Byte% * (2 ^ Bits%)) MOD 256ãEND FUNCTIONããSUB pal (colr, red, green, blue) 'sets paletteã OUT &H3C8, colrã OUT &H3C9, redã OUT &H3C9, greenã OUT &H3C9, blueãEND SUBãThe ABC Programmer TWISTED BAR EFFECT voxel@freenet.edmonton.ab.ca 06-20-97 (11:00) QB, QBasic, PDS 106 3607 TWISTED.BAS ' _______________________________________________________________________ã' / \ã' | TWISTED BAR EFFECT (or whatever) Pascal version |ã' | |ã' | Coded by me (inopia) when i had nothing to do (again?!). This time NO |ã' | thanx to CONO, i did it all on my own! No small line routines ripped |ã' | from your sources this time. This is the STRIPPED version. I also have |ã' | one with a writer, but you don't care about all that. The public only |ã' | wants the plain effect... So here you have it! It's probably the worst |ã' | compilation of this well known effect ever, but don't come kick my ass |ã' | around about it! |ã' \_______________________________________________________________________/ã'ã' Converted to BASIC code by William Yu (06-20-97) Public Domain.ããDECLARE SUB pal (colr%, red%, green%, blue%)ãDECLARE SUB sortx ()ãDEFINT A-ZããCONST pi = 3.141ããDIM CosTab(0 TO 90) AS SINGLE 'SinetableãDIM SinTab(0 TO 90) AS SINGLE 'CosinetableãDIM SHARED x(0 TO 2) AS INTEGER 'Some X-valuesãDIM SHARED x1(0 TO 399) AS INTEGERãDIM SHARED x2(0 TO 399) AS INTEGERãDIM SHARED x3(0 TO 399) AS INTEGERãDIM SHARED L AS INTEGERãDIM turntab(0 TO 825) AS INTEGER 'TableããDIM origin(0 TO 2, 0 TO 1) AS INTEGERãorigin(0, 0) = -30 'The origin of the three points (x and z values)ãorigin(0, 1) = -30ãorigin(1, 0) = 30ãorigin(1, 1) = -30ãorigin(2, 0) = 30ãorigin(2, 1) = 30ããã FOR I = 0 TO 90ã CosTab(I) = (COS(I * (pi / 180))) ' Calculateã NEXT Iã FOR I = 0 TO 90ã SinTab(I) = (SIN(I * (pi / 180)))ã NEXT Iãã FOR L = 0 TO 359 ' Calculate 360 possible rotationsã cnt = cnt + 1ã IF cnt > 90 THEN cnt = 0 ' It's a cube, only two sides needed}ã 'Now calculate the x-valuesã FOR I = 0 TO 2ã x(I) = INT(CosTab(cnt) * origin(I, 0) + SinTab(cnt) * origin(I, 1)) + 50ã NEXT Iã sortx ' Sort themã NEXT Lãã SCREEN 13ãã FOR I = 0 TO 127ã CALL pal(I + 127, I, 0, 0) ' Nice palette (duh!)ã NEXT Iã FOR I = 0 TO 127ã CALL pal(I, 0, 0, I)ã NEXT Iã ' Now calculate a table of rotations, this wil make the bar "twist"ã FOR J = 0 TO 825ã turntab(J) = INT(COS(J / 100) * 100) + 100ã NEXT Jãã DOã L = L + 3 ' If this goes too fast for ya, try increasing l by less than 3ã IF L > 625 THEN L = 0 ' Make sure the table loopsã FOR I = 0 TO 199ã J = turntab(L + I) ' Grab a value from the Turn-Tableã ' after 20 lines change colorã IF clr = 20 THENã IF S = 128 THEN S = 0 ELSE S = 128ã clr = 0ã END IFã clr = clr + 1ã LINE (x1(J), I)-(x3(J), I), (x3(J) - x1(J)) / 2 + Sã LINE (x3(J), I)-(x2(J), I), (x2(J) - x3(J)) / 2 + Sã LINE (0, I)-(x1(J), I), 0ã LINE (x2(J), I)-(100, I), 0ã NEXT Iã LOOP UNTIL INKEY$ <> ""ãENDããSUB pal (colr, red, green, blue) '{ sets palette }ã OUT &H3C8, colrã OUT &H3C9, redã OUT &H3C9, greenã OUT &H3C9, blueãEND SUBããSUB sortx 'This sorts the xvalues from small -> bigã x1(L) = x(0)ã IF x(1) < x1(L) THEN x1(L) = x(1)ã IF x(2) < x1(L) THEN x1(L) = x(2)ã x2(L) = x(0)ã IF x(1) > x2(L) THEN x2(L) = x(1)ã IF x(2) > x2(L) THEN x2(L) = x(2)ã x3(L) = x(0)ã IF (x3(L) = x1(L)) OR (x3(L) = x2(L)) THEN x3(L) = x(1)ã IF (x3(L) = x1(L)) OR (x3(L) = x2(L)) THEN x3(L) = x(2)ãEND SUBãJay Cook SPRITES USING PEEK & POKE jay.cook@sandh.com 06-26-97 (11:54) QB, QBasic, PDS 85 2848 QSPRITE.BAS 'Qsprite.bas _ Jay Cook _ 6-25-97 _ http://members.tripod.com/~jaycook/QB.HTMã' I needed to write some sprite routines for the game in QB I was programmingã'and I was currently "borrowing" some routines from someone else's program.ã'I found out how to POKE it up. How it works is 1-64000 and color. 1=(1,1)ã'64000=(320,200) using the formula (y * 320 + x). What I did was build an arrayã'of a 16x16(256) sprite and the value represented the sprite color. If the colorã'was 0 then it would skip the plot and leave the background. I also desided toã'make a reverse sprite by having the x plot in reverse(instead of adding itã'would subtract) and just move the X value of the sprite over 15 pixels. I didn'tã'add Y-flip, but that could easily be done. I also added PSET plotting so itã'can be run in Qbasic without overflowing. If you use poke, you will have toã'compile because when it POKEs beyond 32000, it crashes. It is pretty fast andã'sure beats the hell outa PSET. Not bad for 3 am programming?ã' - Jayã'jay.cook@sandh.comãDEFINT A-ZãDECLARE SUB gets (x111%, y111%, s11%())ãDECLARE SUB puts (x111%, y111%, s11%())ãDECLARE SUB putr (x111%, y111%, s11%())ãCOMMON SHARED x111%, y111%, s11%, xz2, xz, yz2, yz, xz3, px, px2ãCLSãDEF SEG = &HA000ãSCREEN 13ãpx = 256: 'Amount of data for a single sprite arrayãxz3 = 15: 'X width of spriteãDIM SHARED gfx(px)ãã'(\/ Sprite)ãLINE (0, 0)-(15, 15), 12ãLINE (0, 0)-(15, 15), 9, Bã'(/\ Sprite)ãã'\/ Gets sprite in array(Upper left X,Y)ãgets 0, 0, gfx()ããCLSããLINE (1, 1)-(100, 27), 1, BFã'\/ Puts down regular spriteãputs 20, 20, gfx()ã'\/ Puts down reversed spriteãputr 40, 20, gfx()ãããSUB gets (x111%, y111%, s11%())ãxz3 = 15ãxz = x111%: yz = y111%ãxz2 = xz: yz2 = yzã FOR b = 1 TO pxã IF xz > xz2 + xz3 THEN xz = xz2: yz = yz + 1ã px2 = yz * 320 + xzã s11%(b) = PEEK(px2)ã xz = xz + 1ãNEXTãEND SUBããSUB putr (x111%, y111%, s11%())ãxz = x111% + 15: yz = y111%ãxz2 = xz - 15: yz2 = yzãFOR b = 1 TO pxã IF xz < xz2 THEN xz = xz2 + xz3: yz = yz + 1ã IF s11%(b) = 0 THEN sc = 1ã IF sc = 0 THEN : px2 = yz * 320 + xz: POKE (px2), s11%(b)ã '| use this line instead of above to run in Qbasic, otherwise compileã '\/ using the line above(faster)ã 'IF sc = 0 THEN : PSET (xz, yz), s11%(B)ã xz = xz - 1: sc = 0ãNEXTã'yz = yz - xz3ãEND SUBããSUB puts (x111%, y111%, s11%())ãxz = x111%: yz = y111%ãxz2 = xz: yz2 = yzãFOR b = 1 TO pxã IF xz > xz2 + xz3 THEN xz = xz2: yz = yz + 1ã IF s11%(b) = 0 THEN sc = 1ã IF sc = 0 THEN : px2 = yz * 320 + xz: POKE (px2), s11%(b)ã '| use this line instead of above to run in Qbasic, otherwise compileã '\/ using the line above(faster)ã 'IF sc = 0 THEN : PSET (xz, yz), s11%(b)ã xz = xz + 1: sc = 0ãNEXTããEND SUBãDenis Boyles PLAY .FLI FILES FidoNet QUIK_BAS Echo 06-20-97 (15:39) QB, QBasic, PDS 287 7279 VIEWFLI.BAS '[VIEWFLI2.BAS] - Public Domain 1997 by Denis Boyles. All Rights Reserved.ã'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ã' * UPDATE * - added Page Buffering to scene changes.ã'ã'Intrigued by Carl Gorringe's FLIPLAY2 program, I thought it'd be a funã'project to work on. Armed with the PC Game Programmer's Encyclopedia andã'Carl's program for reference I set forth.ãã'To my surprise, viewing the .FLI was pretty straightforward. However I'veã'tried to make it a bit faster then Carls'. Using a little bit of assemblyã'code, I think I've managed that, slightly. On my 386-20, I'd say for now,ã'that mine is about twice as fast. (though it's still slooow)ãã'However, my player is only limited to .FLI files and not the newer .FLCã'ones. Mainly, the PCGPE seemed to only outline the .FLI format and not theã'.FLC. (plus I couldn't seem to find any .FLC to test with anyway) Also, likeã'Carl's there is a 320x200x256 color image limit on the animation.ããDECLARE SUB ReadMLXData ()ãDECLARE SUB DoLC (FileHandle%)ãDECLARE SUB DoCOPY (FileHandle%)ãDECLARE SUB DoCOLOR (FileHandle%)ãDECLARE SUB DoBRUN (FileHandle%)ãDECLARE SUB DoChunk (FileHandle%)ãDECLARE SUB DoFrame (FileHandle%)ãDECLARE SUB PlayFLI (FileName$)ãDECLARE FUNCTION FixFileName$ (FileName$, Ext$)ããCONST FLIID = &HAF11ãCONST FRMID = &HF1FAããCONST FLICOLOR = 11ãCONST FLILC = 12ãCONST FLIBLACK = 13ãCONST FLIBRUN = 15ãCONST FLICOPY = 16ããTYPE FLIHEADERã FileSize AS LONGã ID AS INTEGERã NumFrames AS INTEGERã across AS INTEGERã down AS INTEGERã PelDepth AS INTEGERã flags AS INTEGERã speed AS INTEGERã expand AS STRING * 110ãEND TYPEããTYPE FRMHEADERã size AS LONGã ID AS INTEGERã NumChunks AS INTEGERã expand AS STRING * 8ãEND TYPEããTYPE CHNKHEADERã size AS LONGã ID AS INTEGERãEND TYPEããTYPE RGBã red AS STRING * 1ã green AS STRING * 1ã blue AS STRING * 1ãEND TYPEããDIM SHARED memcpy%(18), memset%(15), pg%(32000)ããReadMLXDataãINPUT "[drive:][path]filename[.FLI]"; FileName$ãPlayFLI FixFileName(FileName$, "FLI")ãBEEPãã'36 bytes of MLX data for the MEMCPY procedureãDATA &H55,&H8B,&HEC,&H1E,&H8B,&H5E,&H0E,&H8EãDATA &H07,&H8B,&H5E,&H0C,&H8B,&H3F,&H8B,&H5EãDATA &H06,&H8B,&H0F,&H8B,&H5E,&H08,&H8B,&H37ã3 DATA &H8B,&H5E,&H0A,&H8E,&H1F,&HF3,&HA4,&H1FãDATA &H5D,&HCA,&H0A,&H00ãã'29 bytes of MLX data for the MEMSET procedureãDATA &H55,&H8B,&HEC,&H8B,&H5E,&H0C,&H8E,&H07ãDATA &H8B,&H5E,&H0A,&H8B,&H3F,&H8B,&H5E,&H06ãDATA &H8B,&H07,&H8B,&H5E,&H08,&H8B,&H0F,&HF3ãDATA &HAA,&H5D,&HCA,&H08,&H00ããSUB DoBRUN (FileHandle%)ã offset& = 0ãã FOR y% = 1 TO 200ã NumPackets% = ASC(INPUT$(1, FileHandle%))ã x% = 0ãã FOR packet% = 1 TO NumPackets%ã SizeCount% = ASC(INPUT$(1, FileHandle%))ãã IF SizeCount% < 128 THENã DataByte% = ASC(INPUT$(1, FileHandle%))ãã DEF SEG = VARSEG(memset%(0))ã CALL absolute(VARSEG(pg%(0)), offset& + x%, SizeCount%, DataByte%, 0)ã ELSEã SizeCount% = -(SizeCount% OR &HFF00)ã buffer$ = INPUT$(SizeCount%, FileHandle%)ãã DEF SEG = VARSEG(memcpy%(0))ã CALL absolute(VARSEG(pg%(0)), offset& + x%, VARSEG(buffer$), SADD(buffer$), SizeCount%, 0)ã END IFãã x% = x% + SizeCount%ã NEXTãã offset& = offset& + 320ã NEXTãEND SUBããSUB DoChunk (FileHandle%)ã DIM CHUNK AS CHNKHEADERãã FilePos& = SEEK(FileHandle%)ã GET FileHandle%, , CHUNKãã SELECT CASE CHUNK.IDã CASE FLICOLORã DoCOLOR FileHandle%ãã CASE FLILCã DoLC FileHandle%ã DEF SEG = VARSEG(memcpy%(0))ã CALL absolute(&HA000, 0, VARSEG(pg%(0)), 0, &HFA00, 0)ãã CASE FLIBLACKã CLSãã CASE FLIBRUNã DoBRUN FileHandle%ã DEF SEG = VARSEG(memcpy%(0))ã CALL absolute(&HA000, 0, VARSEG(pg%(0)), 0, &HFA00, 0)ãã CASE FLICOPYã DoCOPY FileHandle%ã CALL absolute(&HA000, 0, VARSEG(pg%(0)), 0, &HFA00, 0)ã END SELECTãã SEEK FileHandle%, FilePos& + CHUNK.sizeãEND SUBããSUB DoCOLOR (FileHandle%)ã DIM RGB AS RGBãã GET FileHandle%, , NumPackets%ã index% = 0ãã FOR pack% = 1 TO NumPackets%ã index% = index% + ASC(INPUT$(1, FileHandle%))ãã change% = ASC(INPUT$(1, FileHandle%))ã IF change% = 0 THEN change% = 256ãã OUT &H3C8, index%ã FOR ct% = 1 TO change%ã GET #1, , RGBã OUT &H3C9, ASC(RGB.red)ã OUT &H3C9, ASC(RGB.green)ã OUT &H3C9, ASC(RGB.blue)ã index% = index% + 1ã NEXTã NEXTãEND SUBããSUB DoCOPY (FileHandle%)ã DEF SEG = VARSEG(memcpy%(0))ã offset& = 0ãã FOR ct% = 1 TO 200ã buffer$ = INPUT$(320, FileHandle%)ã CALL absolute(VARSEG(pg%(0)), offset&, VARSEG(buffer$), SADD(buffer$), 320, 0)ã offset& = offset& + 320ã NEXTãEND SUBããSUB DoFrame (FileHandle%)ã DIM FRAME AS FRMHEADERãã FilePos& = SEEK(FileHandle%)ã GET FileHandle%, , FRAMEãã IF FRAME.ID = FRMID THENã FOR ct% = 1 TO FRAME.NumChunksã DoChunk FileHandle%ã NEXTã END IFãã SEEK FileHandle%, FilePos& + FRAME.sizeãEND SUBããSUB DoLC (FileHandle%)ã GET FileHandle%, , StartY%ã GET FileHandle%, , NumLines%ã offset& = StartY% * 320&ãã FOR y% = StartY% TO StartY% + NumLines% - 1ã NumPackets% = ASC(INPUT$(1, FileHandle%))ãã IF NumPackets% > 0 THENã x% = 0ãã FOR packet% = 1 TO NumPackets%ã x% = x% + ASC(INPUT$(1, FileHandle%))ã SizeCount% = ASC(INPUT$(1, FileHandle%))ãã IF SizeCount% < 128 THENã buffer$ = INPUT$(SizeCount%, FileHandle%)ãã DEF SEG = VARSEG(memcpy%(0))ã CALL absolute(VARSEG(pg%(0)), offset& + x%, VARSEG(buffer$), SADD(buffer$), SizeCount%, 0)ã ELSEã SizeCount% = -(SizeCount% OR &HFF00)ã DataByte% = ASC(INPUT$(1, FileHandle%))ãã DEF SEG = VARSEG(memset%(0))ã CALL absolute(VARSEG(pg%(0)), offset& + x%, SizeCount%, DataByte%, 0)ã END IFãã x% = x% + SizeCount%ã NEXTã END IFãã offset& = offset& + 320ã NEXTãEND SUBããFUNCTION FixFileName$ (FileName$, Ext$)ã FOR ct% = 1 TO LEN(FileName$)ã IF MID$(FileName$, ct%, 1) = "." THEN EXIT FORã NEXTã FixFileName$ = UCASE$(LEFT$(FileName$, ct% - 1) + "." + Ext$)ãEND FUNCTIONããSUB PlayFLI (FileName$)ã DIM FLI AS FLIHEADERãã FileHandle% = FREEFILEãã OPEN FileName$ FOR BINARY AS FileHandle%ã GET FileHandle%, , FLIãã IF FLI.ID <> FLIID THENã CLOSE FileHandle%ã PRINT "ERROR: "; FileName$; " isn't a true FLI!?"ã EXIT SUBã END IFãã IF FLI.across <> 320 AND FLI.down <> 200 THENã CLOSE FileHandle%ã PRINT "ERROR: FLI does not conform to 320x200 dimensions!?"ã EXIT SUBã END IFãã IF FLI.PelDepth <> 8 THENã CLOSE FileHandle%ã PRINT "ERROR: FLI isn't 256 colors!?"ã EXIT SUBã END IFãã SCREEN 13ã FOR ct% = 1 TO FLI.NumFramesã DoFrame FileHandle%ã NEXTãã CLOSE FileHandle%ãEND SUBããSUB ReadMLXDataã DEF SEG = VARSEG(memcpy%(0))ã FOR ct% = 0 TO 35ã READ byte%ã POKE ct%, byte%ã NEXTãã DEF SEG = VARSEG(memset%(0))ã FOR ct% = 0 TO 28ã READ byte%ã POKE ct%, byte%ã NEXTãEND SUBãAngelo Ken Pesce WAVING FLAG us0082@uniserv.uniplan.it 06-30-97 (18:51) PB 209 3850 WAVEFLAG.BAS' INIT -----------------------------------------------------------------*-*----ã$OPTIMIZE SPEEDã' 386 is REQUIRED...ã$CPU 80386ã$LIB ALL OFFã$ERROR ALL OFFã$FLOAT NPXã$DIM ARRAYã' ----------------------------------------------------------------------*-*----ããã' --------------------------------------------------------*-*--ã' WAVETEST By Angelo KEN Pesce 1997 ken@uniserv.uniplan.itã' With FakeDoubleSmoothingã' --------------------------------------------------------*-*--ããã' --------------------------------------------------------*-*--ã DEFINT a-zãã' INIT MODE 13hã! mov ax,&h13ã! int &h10ãã' DIMENSION RADIANS VARSãDIM rr as DOUBLEãã' WAVE LENGTH FACTOR1 *********ã %factor1 = 10ã' FACTOR2ã addval = 38ã' *****************************ãã' INIT SIN LOOKUP TABLEãdim sint(3600) as integerãfor i=0 to 3600ãsint(i)=%factor1*sin(rr)ãincr rr,(3.14159*2)/3600ãnextãã' INIT BUFFERã DIM bf(32000) as INTEGERã DIM segm as WORDã segm = varseg(bf(0))ãã' INIT PALETTEãfor i=0 to 63ãsetpal i,i,0,0ãnextãfor i=0 to 63ãsetpal i+64,i,i,iãnextãfor i=0 to 63ãsetpal i+128,0,i,0ãnextã%coladd=63-(%factor1*2)ãã' --------------------------------------------------------*-*--ããã DOãã' DO WAVE ------------------------------------------------*-*--ãã' RESET Gã g = ggããFOR y = 20 to 180 step 2ã' INIT X1 : RESET G1ã x1 = sint(g) : g1 = ggããFOR x = 35 to 277 step 2ã' INCR G1ã IF g1 > 3600 THEN g1 = 0 ELSE incr g1, addvalã' INIT Y1ã y1 = sint(g1)ãã' PUTPIXELã select case xã case <116:col=(x1+y1)+%coladd:'REDã case <197:col=(x1+y1)+(%coladd+64):'WHITEã case else:col=(x1+y1)+(%coladd+128):'GREENã end selectããx2= x + x1ãy2= y + y1ãã !Mov es, segmã !Mov di, y2ã' SHL DI,8ã !Dw &hE7C1ã !Db 8ã !Mov bx, y2ã' SHL BX,6ã !Dw &hE3C1ã !Db 6ã !Add di, x2ã !Add di, bxã !Mov dl, colã !Mov es:[di], dlã !Sub dl,10ã !Mov dh,dlã !Mov es:[di-1],dlã !Mov es:[di+319],dxã !Mov es:[di-321],dxããNEXTãã' INCR GãIF g > 3600 THEN g = 0 ELSE incr g, addvalãNEXTãã' --------------------------------------------------------*-*--ãã' DOUBLESMOOTH BUFFER (remove this routine to gain more speed)ã! mov es,segmã! xor di,diã! mov cx,&hfa00-320ã! xor bx,bxãjmp1:ã! mov bl,byte ptr es:[di-1]ã! mov dx,bxã! mov bl,byte ptr es:[di+1]ã! add dx,bxã! mov bl,byte ptr es:[di+320]ã! add dx,bxã! mov bl,byte ptr es:[di]ã! mov ax,dxã! add ax,bxã' SHR AX,2ã! dw &he8c1ã! db 2ã! jz jmp2ã! dec alãjmp2:ã! add ax,dxã' SHR AX,2ã! dw &he8c1ã! db 2ã! jz jmp3ã! dec alãjmp3:ã! stosbã! dec cxã! jnz jmp1ããã' COPY BUFFER TO SCREENã !Push dsã !Push siã !Mov ds, segmã !Mov si, 0ã !Mov di, 0ã !Mov ax, &ha000ã !Mov es,axã !Mov cx, &hfa00ã !Shr cx, 1ã !Shr cx, 1ã' rep movsdã !Db &hF3ã !Db &h66ã !Db &hA5ã !Pop siã !Pop dsãã' CLEAR BUFFER (I HAVE TO WRITE A FILLMEM4 ROUTINE)ã !Mov es, segmã !Xor di, diã !Mov cx, &hfa00ã !Shr cx, 1ã !Xor ax,axã !Rep stoswãasmjmp10:ã !Test cx, cxã !Je asmjmp9ã !Jmp asmjmp10ãasmjmp9:ãã' INCR GGã IF gg > 3600 THEN gg = 0 ELSE incr gg, addvalãã' WAIT VRT (Vertical ReTrace, remove this routine for more speed)ãasmjmp14:ã !Mov dx, &h3DAãasmjmp12:ã !In al, dxã !Test al, 8ã !Jnz asmjmp12ãasmjmp13:ã !In al, dxã !Test al, 8ã !Jz asmjmp13ãããLOOP UNTIL len(inkey$)ããã' SUBROUTINEZ *******************************ããSUB setpal (BYVAL slot as INTEGER, BYVAL red as INTEGER,_ã BYVAL green as INTEGER, BYVAL blue as INTEGER)ã' Sets palette color number slotã' Max red:63 Max blue:63 Max green:63 Max Slot:255ãã out &h3C8, slotã out &h3C9, redã out &h3C9, greenã out &h3C9, blueãEND SUBãAndrew K. Dart CLOTH TEXTURE BACKGROUND FidoNet QUIK_BAS Echo 06-26-97 (19:37) QB, QBasic, PDS 32 910 CURTAIN.BAS 'Curtain.bas 02/25/1997 by Andrew K. Dart --= PUBLIC DOMAIN =--ã'Background for full-screen messageãSCREEN 12ãRANDOMIZE TIMERãLINE (0,0)-(640,480),15,BF ' This line is optionalãFOR x=1 TO 640ã Fox = x+SIN(x/9)*8-COS(x/5)*5ã Golf = x+SIN(x/6)*7+SIN(x/11)*9ã LINE (Fox,0)-(Golf,480),6+x MOD 2,,INP(64) IMP NOT INP(64)ãNEXT xãFOR y=1 TO 480 STEP 3ã Able = y+SIN(y/3)*18ã Baker = y+SIN(y/2)*28ã LINE (0,Able)-(640,Baker),0,,INP(64) AND INP(64)ãNEXT yã'Optional second layer of horizontal lines:ãFOR y=1 TO 480 STEP 7ã Charlie = y+SIN(y/7)*4ã Dog = y+SIN((y+1)/5)*5ã LINE (0,Charlie)-(640,Dog),6,,INT(RND*32765)*SGN(RND-.5)ãNEXT yãa$ = " Does this look like cloth or wood? "ãVPosition=15ãLOCATE VPosition, 40-LEN(a$)\2ãPRINT SPACE$(LEN(a$));ãLOCATE VPosition+1,40-LEN(a$)\2ãCOLOR 14ãPRINT a$;ãLOCATE VPosition+2,40-LEN(a$)\2ãPRINT SPACE$(LEN(a$));ãSLEEPãENDãBrian Bacon SCREEN 13 BOX DRAWER kyberteknik@geocities.com 07-03-97 (17:48) QB, QBasic, PDS 65 2962 BOX13.BAS 'BOX13.BAS - by Brian Baconã'Box drawing routine for screen mode 13 (actually any graphics modeã'will work.. just make sure to use legal x, y, and color values)ã'ã'note: If you dont want to use both the outside border colors,ã'just set it to the same as the back ground color.ã'ã'it is easy to add your own box styles in the Box13 sub..ã'just add another CASE statement...ã'ãDECLARE SUB Box13 (x1, y1, x2, y2, style, inside, outside1, outside2)ãSCREEN 13ããLINE (0, 0)-(319, 199), 9, BFããBox13 70, 40, 190, 125, 2, 0, 5, 13ãBox13 5, 40, 65, 120, 1, 0, 7, 15ãBox13 195, 40, 255, 120, 1, 0, 7, 15ãBox13 25, 130, 235, 175, 1, 0, 7, 15ãSLEEPããSUB Box13 (x1, y1, x2, y2, style, inside, outside1, outside2)ã SELECT CASE styleã CASE 1ã LINE (x1 + 1, y1 + 1)-(x2 - 1, y2 - 1), outside1, Bã LINE (x1 + 1, y1)-(x2 - 1, y1), outside2ã LINE (x1 + 1, y2)-(x2 - 1, y2), outside2ã LINE (x1, y1 + 1)-(x1, y2 - 1), outside2ã LINE (x2, y1 + 1)-(x2, y2 - 1), outside2ã LINE (x1 + 2, y1 + 2)-(x2 - 2, y2 - 2), inside, BFã PSET (x1 + 1, y1 + 1), outside2: PSET (x1 + 1, y2 - 1), outside2ã PSET (x2 - 1, y1 + 1), outside2: PSET (x2 - 1, y2 - 1), outside2ã CASE 2ã LINE (x1, y1)-(x2, y2), inside, BFã LINE (x1, y1)-(x2, y2), outside2, Bã LINE (x1 + 1, y1 + 1)-(x2 - 1, y2 - 1), outside1, Bã CASE 3ã LINE (x1, y1)-(x2, y2), inside, BFã LINE (x1 + 1, y1 + 1)-(x2 - 1, y2 - 1), outside2, Bã LINE (x1 + 3, y1 + 3)-(x2 - 3, y2 - 3), outside1, Bã CASE 4ã LINE (x1, y1)-(x2, y2), inside, BFã LINE (x1, y1)-(x1 + 3, y1 + 3), outside1, Bã LINE (x1 + 3, y1 + 3)-(x2 - 3, y2 - 3), outside1, Bã LINE (x1, y2)-(x1 + 3, y2 - 3), outside1, Bã LINE (x2, y1)-(x2 - 3, y1 + 3), outside1, Bã LINE (x2 - 3, y2 - 3)-(x2, y2), outside1, Bã PSET (x1 + 4, y1 + 4), outside2ã PSET (x1 + 4, y2 - 4), outside2ã PSET (x2 - 4, y1 + 4), outside2ã PSET (x2 - 4, y2 - 4), outside2ã LINE (x1, y1 + 5)-(x1 + 1, y2 - 5), outside2, BFã PSET (x1 + 2, y1 + 5), outside2ã PSET (x1 + 2, y2 - 5), outside2ã LINE (x1 + 5, y1)-(x2 - 5, y1 + 1), outside2, BFã PSET (x1 + 5, y1 + 2), outside2ã PSET (x2 - 5, y1 + 2), outside2ã LINE (x2 - 1, y1 + 5)-(x2, y2 - 5), outside2, BFã PSET (x2 - 2, y1 + 5), outside2ã PSET (x2 - 2, y2 - 5), outside2ã LINE (x1 + 5, y2)-(x2 - 5, y2 - 1), outside2, BFã PSET (x1 + 5, y2 - 2), outside2ã PSET (x2 - 5, y2 - 2), outside2ã END SELECTãEND SUBãBrian Mahocker REALLY SIMPLE STARFIELD Kain121182@aol.com 07-03-97 (12:01) QB, QBasic, PDS 27 683 STARS.BAS SCREEN 13: RANDOMIZE TIMERã'320 LR - 200 UDãDEFINT A-ZãLET NOS = 100ãDIM x(NOS), y(NOS), c(NOS)ãFOR GetInfo = 1 TO NOSã LET x(GetInfo) = INT(RND * 320) + 1ã LET y(GetInfo) = INT(RND * 200) + 1ã LET ctemp = INT(RND * 3) + 1ã IF ctemp = 1 THEN LET c(GetInfo) = 15ã IF ctemp = 2 THEN LET c(GetInfo) = 7ã IF ctemp = 3 THEN LET c(GetInfo) = 8ãNEXT GetInfoãFOR P1st = 1 TO NOSã PSET (x(P1st), y(P1st)), c(P1st)ãNEXT P1stãDOã FOR MS = 1 TO NOSã PSET (x(MS), y(MS)), 0ã LET x(MS) = x(MS) + 1ã IF x(MS) = 320 THENã LET x(MS) = 1ã LET y(MS) = INT(RND * 200)ã END IFã PSET (x(MS), y(MS)), c(MS)ã NEXT MSãLOOPãTom Watson LOAD/EDIT RESIZABLE FONTS awatson@wctc.net 07-04-97 (09:26) QB, QBasic, PDS 146 9662 FONTPACK.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"FONTPACK.ZIP",4^6:Z&=6979:?STRING$(50,177);ãU"%up()%9%%%R-%;t0]GYw:m>d+7%%d:%%%1%%%%kt%syji%nySgIfxt';t?'6t$_1L1V#?Ggs(wvf+o+R>GaK[hg&8F.BãU"S\b)-J0,hi#R=dVnI&>TpkVX42Ljp.-wNb,jtNY)Cd6RT+YRp8MruYGO?a9B;_/ãU"i%epPGfDUj&^u.5ft?ux;N6JTx981RGS11(0;IT%cKEH4YI$OB+bpEnx5]=uofQãU"OSN-cjmF2s8C\0Hy)54IdToYY\ie_s7b5tRWN]Vw0a?O1Sd%'(.JOB\?>+&boDHãU"_lzxb_n_cf:r;T&r,,(nOkLI\M4t-z*P+,c$RN\SAu3D,YYZ8z7MPBkas7rIx%4m#XD,O8-E71G]Q%ãU"uUshXdQ[y+Euu/([k;O57;wj:pCa%XE,hqNpzVVgRHHLTdsfrH?If28^U$HTPB<ãU"\'\2lu3A7]+Kgii^#YZ(BYD3'c8]z&BSdew0ks:B:7_bNNIQxJ3]paETH=/=D_iãU"oN;<4IfSHE_69?d9I>WXo4&OF^il_V;3B=RLu&2L=Q]XKnS?;O2ENFsYb'I;^USãU"W0/KWnwYm'FUNGWBYJ.K,\gU*r)Ki\9q\I_&gxY\30o-h#LVUu=&(Qv7FDl^6\#ãU"BcXb_ZW6Prcl(hGI,CJYhCq)G_'c+#z?PWUnkRbeXvrWs:_jrIMP_C=a,.Tmw7mãU">4p\HX#MC?4Aa)aE0xeHF6:Id,=ZFDeYy3=*.)Q,J>Jl#XYqãU"kV2Nj?LB4_6/:y5p8GW92\'Bchj(ThuPGCGFS+UB'H'6$Tp<57NU0bKMmItJMaHãU"C:c*tz$gZIQAãU"'UWWSoHm8Sd.,P2(7chH]$r'NUG)eIaVT_:n]o-GTo5HD?_X'Iory(jUPU'ejgauhHIOvo6$$z'2_tãU"3&&d7Gsk;h5;8]K.,1B00nPtgob\rQ_tsAEk\:n4Ap(u>:Z)8cjnF,Oa4g,e(DRãU"v/&\0P9-(QNT2ExYFxHZY[Ffml;T(&bW=?Hm019rOq9i(j7ãU".$c=It+x1wS>[=3Mmtw-,2=,,%N=W)j_X6%Ityl)qIs1auBWsA9n)bNMMon:7(B%vtXZ+*pM:d;tr.Opd$bpjwRQ0L]+ILcelHB^D,7a:$nvQIM:SoiDmQgãU"e2Lhw0#9U6LXl2P29(IAI[R]b9WR\,AkIBEBM>OE>&mWyX+5_6kf/ZFsQ#ynJJ1ãU"t;qqoNyB^cwfOBK-Jr]eTROVxi>;ãU"]f=_+(+sh6mna9&kTeYHl[Q?\o^eB-L\f4^SeM3u:Fj*)IeK6h;c0_Rlf[SeB;GãU";9JIeH*P)z/SlCJsY/>5bLGU6G783aU\Ejz<[:w#K#t+s7:r[\DOf')q#\*8)X3ãU"2'R4C#=,Z.2ke$tUPY>c.m[$7W#iiu,]]0J[mF40b4gzFthmB3^ãU"NHLljGXYQNC%RSZ6(],$72[NKZ8E.3t7DjSjy:Tca,+>^d\6iw,&jCH8Rn?RuEm.RfKa/KWx<7e;;FnDn83DFLN?%Y7MG>0D[Rk5w=QãU"Bx0]Rh_t1#leoz)Zim)DeZJn=f*(r6tFPJd]]E3n-9qp)lhZ[02i9OCz\--ohalãU"e?,l?iCqRMPP$xv<+r=]AfV-W85.:yQ.Y]zQDf,4ESZWp/QHX:h?V(.,HHRwI;?ãU"&_p+=>5,HJPuGSO5^P<'mipVImv?aãU"#xlHj[^>sm4#&qrrto88qWGOh9wk5K[uWHPjLP<.*x'xowE2?,l(XqH[+QsY#JN9^lP>:s:uo6O#bR7ãU"p)6S86M[D3y8/\gVIZ3iRSRVs=k8&+1^=+[N-P&#]$Y5Vkj'$.zm%QgVs//aYjaãU"rAp-*%7W]TG([k*oAcOFjok$TD$.fp-2jh7A.l?<=Fu1[3dtYD[1HqR.=*G];CtãU"QU5iDS4hSu,ER+4il1K[c5F1M=uFluPspid'%V(4jYnMN^9eLU'Q'X=bHIsLW.zãU"xpDsfBUu\oZ%p0IK&x'5%,,d*u&uP>$BRckj=8q/)Pf)uMcA6cq_&Ns8g$[s3\nãU";buusCZTpBGLNEcDrR;hAAABueudn%FYa%'ãU"bph%6;$pz[$t>$1Or]B9#052Dym;q>e7W$j6[>y(6LeexzoLlH(p)BQl8E3Tq;8-Rbr_iX_ncNeQzoM*b[x3Zl1vM6bUd64>K#0f#fy2Ml/Omq\(rYxdsyx5HfiKjV):X]:ãU"OPNjG3^qekxjYfiBgafGB7_DIRR7b[YlcT4k->=DO[&=K7uIv0lYNQ?x9Vr_SeNp6#Jxz_jX=LTKh>Jg^yorPFAtH9?ãU"tIlWbxm.Zb1p-OBk5DTskODS_X#vly^WD[?iW$ãU"BSrvFfwK2cYlcWC+FDwi;*Ho'b;:_U9YqJKJS-rGeQl(sxg2bSAWO0t:F_3B)<ãU"vaNL>L50pF\>8W?&Uz(HBs4NhkUdGK1ãU"^#k4MVkQ])o76gFZrRA57ZUh'-4Hc)vM$[Uju8HiM>9ZVxLJL.d\(g2*&EPG3CW4eBlRjL0NãU"Tki+&r.uoe%qOW2)nl8h30EKNGF;&Or3J/MECr%%Ber3FB4$s[W?Lu2:of,hRJUãU"^U3P9hAj+9+UH'H;Cpo8&d5eJ%k*'=#FUHW]3$5Z4v)dNb\[ni0q964G=\MOND'ãU"OKC_n&l<1r0oXiS2NxaKOji'\U32ZK-%s;J]?8ch&E[+*MB7rG^6_RDOgl4knEEãU"Jw='l;>_^zB?w5R/J7WY].:t*GhKfRtiO4L*?tk6Nf#P$97WktrNIrupT.=j$]VpLzt#R2m=:J?ad?ãU"8I3M2btst%vHVN5ULq7VCq]dDTsU22c9^XdI\bqWB3\f-I\bqWB(IbqW0BIbqFWãU"BIb7qWBI\bqWB(IbqW0BIbqFWBIb7qWBInbqkq8tD#(%%#%-%%/%%%%w%jfir#jSy'gyLãU"%X,>T[5nMTIx]ZC+-L*;2ET):F*/&IOV4YVe1<:O6u?MB_qJ$O^[tqvn4%HJj3tãU"[6B]WVFXLWpRw1K6c0GnF40XogCYdi$.>wb'(#hFGOK=oi>X7>Ht_t(gWlh8?y'ãU"C8o0w57y0JhAzs-Rdt&Kh4euOU(7N*mie4+2Bvb>Lus^lv?wD]rd7KO+^;EdvO1ãU"swQ]K6(&qO^6,p(V=>92%jt'h.\%5Nj^[%vAteUf>cG%)K-lgYV2ELAA?pu>)6ZãU"rt1NR1ibhZ6&Z;JPjV]$7DIJN->WUd?_atAPMC'q8We(w_>[jCJfg,]W%&nu+wxãU",M:K1X'dOWk/M#KiP(Lxik'^+EBm5B-7SmIA?.:8yQhmRl4)CmqYiW4AS2*eUwHãU"PrEh8&jc*fsMel%jBf;:0fS/F^X+9'LY=uDAMnk#hK_2TO=Jqlp$%Squi<+2H=yãU"s-bLZYEBl]Fq$^nbJ]oq0XU3qA1q8d8L3d&pt-o>tVzznEcpjhGT&\xg#m>,7J7ãU"P>8CBV36=9B\'oCksuijW=Jh5?Flh'']gswt)CX;,iCf[ysNN=9;x[gi?fdbcz/ãU"Q,1->MN+V?T?Ohw?#ZL1qPa*78Xc20f>)q3ãU"YRT_3?&Nveq>.zYiJOAY/mc)]IZ0]h/&AnH_a%CVrsZ*og,531>s3$/o'JeugjuãU"X1'AWK$2_&RLãU":q\-kGZ#4eQa]&Jj;MH\C9k+M1,^AR?B&SassFyX\omE+^1Dq(mx9gFqIjoI36uãU"CV0W)Qq6bUUsifqx+1]o.LvED%p\S>z+Er>8b+:#lKT=5T#aj>cO45_N)'rW7oFãU"++=^CR3cGHr\?yysWADl+$0$hRk'gQ#sGB+1io41##VIaJO^Gmaj:epH.Zv,<#uãU"#:4N]C_Xo7;%bmT&:&O5q)E>moVutia:0EiwGHW0QfvmtD>$G5VO2ePPhX,\h.nãU"A-#?nkj/4V=/Lx%%up()%9%%%#-%1y'*Gme&1wS+#%%/J%%%/%.%%&n%onyx%SkãU"syNfi*a'T]1j0xxdbfE7OnE(=K<%.]<)+J2$ZWwPLEq/Y;>SjI]NrUNxscs)t61ãU"+Io,DIo,IJo,Io1,Io,DIo,ISo,s>Oetv-XdMSN5wnNAY-hxfKU>KrQ]Xk*u-WFãU"hu=xbUNe8zãU"eW-_^JxJa(3i71h471bT6:[sBC7;cetkLBrC7ig;f=vR0E7%;a5nw,Z[%ssfw#FUCkY'l4'5;.8y?aN2PK,3'rD'ãU"N2hwBFzyD\zT$03dNJRrvd^aV/;3gGjoK*[HFnL6%;m&l(10B7oJãU"l6AtK?R;OWoDK;eQgetet-2Wj>V%5*2%wkpKKVf-E,bK)[%]rGjgPAxBDGQRAK+o.'Nk=nE-[HiJãU"dUm_>MVirX%k2)qwU,f&A'vzC6bQ*=G5TX'=\*YG:=e.l:BXJj?5-NbJ^-VVlS7BD>L%p$Kt4RnhO4iIWoVs:dWCLdc3.0jK5p(k\)zãU",26-.&9;G-smxy42&*V[l4%S0N>cT]N2B>I0uFk*mtjZ(m(URllb4'\+*MM]r8:ãU"?)d(C4U=&]%3B3HZmOsyGN]#_oa?gMV-HNF?erC5yy;+0(bK54jp#3jW\'j#om6ãU"190V$#7[P60u/<.j2LwRl^GFj9%kM>QZ4e?*kS(#[wbqK+uNQLQ8G+P]$,i^n$CãU"U0F]sSd/KPBgh:]UvElsFr=RCTAt90)q?&5<-n9m\baKll\6==^r4PW2sGMKlxYãU"i&]JM;q_a=:=DOl*VVDck:)1P(6-*g*[sQI>;WB5kgP>hWqjMnK,;3YAntmaOw2ãU">_K:];l5(aKVE?S=2tR2f#3R6-G-\:7E(UkHhoES+hvLkQkv]y.K-st4^OK8f'jãU"H[.:M[b9%VkVYQ?hJsMx-e9oP)Gxm5mHATQ;7JAr?=19>lfjjx6\Op<^BT2zTULãU"$/B[Hf(_l]I([?Z(ea9o_7SV,UJkQta6\OQ[aqPãU"6Oiu_>;9/ksi(gCbwL)=$KSHUC*kq;.ItIS&(<<3R%lD*P3=BY3F)ZbVAlkES8\ãU"=+CC[u->nmf.XI-O%G#Ii1]o2A1\mN$(waw:R&+.e0mW5)2[=\t4q;jv'ZpSeF]ãU"R;Ikz0vi>=+^MCLmak)l(-Ke8Wg^4a]qt(d+7%%d:%%%1ãU"%%%%%%%%%&%%E%%%%%%%%%ktsy%jiny%Sgfx%up&'%9%9%%%%-%D(%(%#-%%%/%%%%%%%%%&%E[%%%B%4%%w%jfir#jSy'%yup&%ãU"'9%9%%%%-d%1y*#Gme1%wS+%.%/J%%%/%%%%%%%%%&%E[%%%5#8%%&%nony%xSkãU"s%yup*%+%%%%%*%*%%#&%%%7?%%%%%ãEND SUBãCLOSE:IF S=119AND 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ãMichael S. Halpin WINDOWS-LIKE SCREEN calvarygames@juno.com 07-05-97 (19:14) QB, QBasic, PDS, PB 637 23725 WINDOWS.BAS '+----------------------------------------------------------------------------------+ã'| Windows Basic Source Code (c) For Microsoft Quick Basic, QBasic, and Power Basic |ã'| Copyright 1997-98 |ã'| |ã'| Author: Michael S. Halpin |ã'| Date: 7-5-1997 |ã'| Created by: Calvary Games |ã'| |ã'| I Michael S. Halpin do here by release this source code to public domain. |ã'| This code can be included in any commercial or noncommercial programs as long |ã'| as proper credit is given to the author and Calvary Games. |ã'+----------------------------------------------------------------------------------+ããDECLARE SUB MINButton31 (X, Y, ButStat)ãDECLARE SUB MAXButton31 (X, Y, ButStat)ãDECLARE SUB MAXEDButton31 (X, Y, ButStat)ãDECLARE SUB Dash31 (X, Y, DashStat)ãDECLARE SUB MINButton95 (X, Y, ButStat)ãDECLARE SUB MAXButton95 (X, Y, ButStat)ãDECLARE SUB MAXEDButton95 (X, Y, ButStat)ãDECLARE SUB Close95 (X, Y, ButStat)ãDECLARE SUB CommandButton (X1, Y1, X2, Y2, ButStat)ãDECLARE SUB Frame (X1, Y1, X2, Y2)ãDECLARE SUB Form31 (X1, Y1, X2, Y2, FormStat)ãDECLARE SUB Form95 (X1, Y1, X2, Y2, FormStat)ãDECLARE SUB Pause ()ããSCREEN 12ããForm95 10, 10, 630, 470, 1ãClose95 607, 16, 0ãMAXButton95 587, 16, 0ãMINButton95 567, 16, 0ãMAXEDButton95 547, 16, 0ãMAXButton31 527, 16, 0ãMINButton31 507, 16, 0ãDash31 15, 16, 0ããSUB Close95 (X, Y, ButStat)ããIF ButStat = 0 THENã LINE (X, Y)-(X + 15, Y + 13), 7, BFã LINE (X, Y)-(X, Y + 12), 15ã LINE (X, Y)-(X + 14, Y), 15ã LINE (X + 15, Y + 14)-(X + 15, Y), 0ã LINE (X, Y + 14)-(X + 15, Y + 14), 0ã LINE (X + 1, Y + 13)-(X + 14, Y + 13), 8ã LINE (X + 14, Y + 1)-(X + 14, Y + 13), 8ã LINE (X + 4, Y + 4)-(X + 5, Y + 4), 0ã LINE (X + 5, Y + 5)-(X + 6, Y + 5), 0ã LINE (X + 6, Y + 6)-(X + 7, Y + 6), 0ã LINE (X + 7, Y + 7)-(X + 8, Y + 7), 0ã LINE (X + 8, Y + 8)-(X + 9, Y + 8), 0ã LINE (X + 9, Y + 9)-(X + 10, Y + 9), 0ã LINE (X + 10, Y + 10)-(X + 11, Y + 10), 0ã LINE (X + 10, Y + 4)-(X + 11, Y + 4), 0ã LINE (X + 9, Y + 5)-(X + 10, Y + 5), 0ã LINE (X + 8, Y + 6)-(X + 9, Y + 6), 0ã LINE (X + 7, Y + 7)-(X + 8, Y + 7), 0ã LINE (X + 6, Y + 8)-(X + 7, Y + 8), 0ã LINE (X + 5, Y + 9)-(X + 6, Y + 9), 0ã LINE (X + 4, Y + 10)-(X + 5, Y + 10), 0ãEND IFããIF ButStat = 1 THENã LINE (X, Y)-(X + 15, Y + 13), 7, BFã LINE (X, Y)-(X, Y + 13), 0ã LINE (X, Y)-(X + 14, Y), 0ã LINE (X + 1, Y + 1)-(X + 14, Y + 1), 8ã LINE (X + 1, Y + 1)-(X + 1, Y + 13), 8ã LINE (X + 15, Y + 14)-(X + 15, Y), 15ã LINE (X, Y + 14)-(X + 15, Y + 14), 15ã LINE (X + 5, Y + 4)-(X + 6, Y + 4), 0ã LINE (X + 6, Y + 5)-(X + 7, Y + 5), 0ã LINE (X + 7, Y + 6)-(X + 8, Y + 6), 0ã LINE (X + 8, Y + 7)-(X + 9, Y + 7), 0ã LINE (X + 9, Y + 8)-(X + 10, Y + 8), 0ã LINE (X + 10, Y + 9)-(X + 11, Y + 9), 0ã LINE (X + 11, Y + 10)-(X + 12, Y + 10), 0ã LINE (X + 11, Y + 4)-(X + 12, Y + 4), 0ã LINE (X + 10, Y + 5)-(X + 11, Y + 5), 0ã LINE (X + 9, Y + 6)-(X + 10, Y + 6), 0ã LINE (X + 8, Y + 7)-(X + 9, Y + 7), 0ã LINE (X + 7, Y + 8)-(X + 8, Y + 8), 0ã LINE (X + 6, Y + 9)-(X + 7, Y + 9), 0ã LINE (X + 5, Y + 10)-(X + 6, Y + 10), 0ãEND IFããIF ButStat = 2 THENã LINE (X, Y)-(X + 15, Y + 13), 7, BFã LINE (X, Y)-(X, Y + 12), 15ã LINE (X, Y)-(X + 14, Y), 15ã LINE (X + 15, Y + 14)-(X + 15, Y), 0ã LINE (X, Y + 14)-(X + 15, Y + 14), 0ã LINE (X + 1, Y + 13)-(X + 14, Y + 13), 8ã LINE (X + 14, Y + 1)-(X + 14, Y + 13), 8ã LINE (X + 4, Y + 4)-(X + 5, Y + 4), 8ã LINE (X + 5, Y + 5)-(X + 6, Y + 5), 8ã LINE (X + 6, Y + 6)-(X + 7, Y + 6), 8ã LINE (X + 7, Y + 7)-(X + 8, Y + 7), 8ã LINE (X + 8, Y + 8)-(X + 9, Y + 8), 8ã LINE (X + 9, Y + 9)-(X + 10, Y + 9), 8ã LINE (X + 10, Y + 10)-(X + 11, Y + 10), 8ã LINE (X + 10, Y + 4)-(X + 11, Y + 4), 8ã LINE (X + 9, Y + 5)-(X + 10, Y + 5), 8ã LINE (X + 8, Y + 6)-(X + 9, Y + 6), 8ã LINE (X + 7, Y + 7)-(X + 8, Y + 7), 8ã LINE (X + 6, Y + 8)-(X + 7, Y + 8), 8ã LINE (X + 5, Y + 9)-(X + 6, Y + 9), 8ã LINE (X + 4, Y + 10)-(X + 5, Y + 10), 8ãEND IFããIF ButStat = 3 THENã LINE (X, Y)-(X + 15, Y + 13), 7, BFã LINE (X, Y)-(X, Y + 13), 0ã LINE (X, Y)-(X + 14, Y), 0ã LINE (X + 1, Y + 1)-(X + 14, Y + 1), 8ã LINE (X + 1, Y + 1)-(X + 1, Y + 13), 8ã LINE (X + 15, Y + 14)-(X + 15, Y), 15ã LINE (X, Y + 14)-(X + 15, Y + 14), 15ã LINE (X + 5, Y + 4)-(X + 6, Y + 4), 8ã LINE (X + 6, Y + 5)-(X + 7, Y + 5), 8ã LINE (X + 7, Y + 6)-(X + 8, Y + 6), 8ã LINE (X + 8, Y + 7)-(X + 9, Y + 7), 8ã LINE (X + 9, Y + 8)-(X + 10, Y + 8), 8ã LINE (X + 10, Y + 9)-(X + 11, Y + 9), 8ã LINE (X + 11, Y + 10)-(X + 12, Y + 10), 8ã LINE (X + 11, Y + 4)-(X + 12, Y + 4), 8ã LINE (X + 10, Y + 5)-(X + 11, Y + 5), 8ã LINE (X + 9, Y + 6)-(X + 10, Y + 6), 8ã LINE (X + 8, Y + 7)-(X + 9, Y + 7), 8ã LINE (X + 7, Y + 8)-(X + 8, Y + 8), 8ã LINE (X + 6, Y + 9)-(X + 7, Y + 9), 8ã LINE (X + 5, Y + 10)-(X + 6, Y + 10), 8ãEND IFãããEND SUBããSUB CommandButton (X1, Y1, X2, Y2, ButStat)ããIF ButStat = 0 THENã LINE (X1 + 1, Y1)-(X2 - 1, Y1), 0ã LINE (X1, Y1 + 1)-(X1, Y2 - 1), 0ã LINE (X1 + 1, Y2)-(X2 - 1, Y2), 0ã LINE (X2, Y1 + 1)-(X2, Y2 - 1), 0ã LINE (X1 + 1, Y1 + 1)-(X2 - 2, Y1 + 1), 15ã LINE (X1 + 1, Y1 + 2)-(X2 - 3, Y1 + 2), 15ã LINE (X1 + 1, Y1 + 1)-(X1 + 1, Y2 - 1), 15ã LINE (X1 + 2, Y1 + 1)-(X1 + 2, Y2 - 2), 15ã LINE (X1 + 2, Y2 - 1)-(X2 - 1, Y2 - 1), 8ã LINE (X1 + 3, Y2 - 2)-(X2 - 1, Y2 - 2), 8ã LINE (X2 - 1, Y1 + 1)-(X2 - 1, Y2 - 1), 8ã LINE (X2 - 2, Y1 + 2)-(X2 - 2, Y2 - 1), 8ã LINE (X1 + 3, Y1 + 3)-(X2 - 3, Y2 - 3), 7, BFãELSEã LINE (X1 + 1, Y1)-(X2 - 1, Y1), 0ã LINE (X1, Y1 + 1)-(X1, Y2 - 1), 0ã LINE (X1 + 1, Y2)-(X2 - 1, Y2), 0ã LINE (X2, Y1 + 1)-(X2, Y2 - 1), 0ã LINE (X1 + 1, Y1 + 1)-(X2 - 2, Y1 + 1), 8ã LINE (X1 + 1, Y1 + 2)-(X2 - 3, Y1 + 2), 8ã LINE (X1 + 1, Y1 + 1)-(X1 + 1, Y2 - 1), 8ã LINE (X1 + 2, Y1 + 1)-(X1 + 2, Y2 - 2), 8ã LINE (X1 + 2, Y2 - 1)-(X2 - 1, Y2 - 1), 15ã LINE (X1 + 3, Y2 - 2)-(X2 - 1, Y2 - 2), 15ã LINE (X2 - 1, Y1 + 1)-(X2 - 1, Y2 - 1), 15ã LINE (X2 - 2, Y1 + 2)-(X2 - 2, Y2 - 1), 15ã LINE (X1 + 3, Y1 + 3)-(X2 - 3, Y2 - 3), 7, BFãEND IFããEND SUBããSUB Dash31 (X, Y, DashStat)ããIF DashStat = 0 THENã LINE (X, Y)-(X + 15, Y + 14), 7, BFã LINE (X + 4, Y + 7)-(X + 13, Y + 9), 8, Bã LINE (X + 3, Y + 6)-(X + 12, Y + 8), 0, Bã LINE (X + 4, Y + 7)-(X + 11, Y + 7), 15ãELSEã LINE (X, Y)-(X + 15, Y + 14), 7, BFã LINE (X + 5, Y + 7)-(X + 12, Y + 9), 8, Bã LINE (X + 4, Y + 6)-(X + 11, Y + 8), 0, Bã LINE (X + 5, Y + 7)-(X + 10, Y + 7), 15ãEND IFããEND SUBããSUB Form31 (X1, Y1, X2, Y2, FormStat)ããIF FormStat = 0 THENã LINE (X1, Y1)-(X2, Y2), 0, Bã LINE (X1 + 1, Y1 + 1)-(X2 - 1, Y1 + 17), 1, BFã LINE (X1, Y1 + 18)-(X2, Y1 + 18), 0ã LINE (X1 + 1, Y1 + 19)-(X2 - 1, Y2 - 1), 15, BFãEND IFããIF FormStat = 1 THENã LINE (X1, Y1)-(X2, Y2), 0, Bã LINE (X1 + 1, Y1 + 1)-(X2 - 1, Y2 - 1), 7, Bã LINE (X1 + 2, Y1 + 2)-(X2 - 2, Y2 - 2), 0, Bã LINE (X1 + 3, Y1 + 3)-(X2 - 3, Y1 + 18), 1, BFã LINE (X1 + 2, Y1 + 19)-(X2 - 2, Y1 + 19), 0ã LINE (X1 + 3, Y1 + 20)-(X2 - 3, Y2 - 3), 15, BFã LINE (X1 + 19, Y1)-(X1 + 19, Y1 + 2), 0ã LINE (X1, Y1 + 19)-(X1 + 2, Y1 + 19), 0ã LINE (X2 - 19, Y1)-(X2 - 19, Y1 + 2), 0ã LINE (X2, Y1 + 19)-(X2 - 2, Y1 + 19), 0ã LINE (X1 + 19, Y2)-(X1 + 19, Y2 - 2), 0ã LINE (X1, Y2 - 19)-(X1 + 2, Y2 - 19), 0ã LINE (X2 - 19, Y2)-(X2 - 19, Y2 - 2), 0ã LINE (X2, Y2 - 19)-(X2 - 2, Y2 - 19), 0ãEND IFããIF FormStat = 2 THENã LINE (X1, Y1)-(X2, Y2), 0, Bã LINE (X1 + 1, Y1 + 1)-(X2 - 1, Y2 - 1), 1, BFã LINE (X1 + 5, Y1 + 5)-(X2 - 5, Y2 - 5), 15, BFãEND IFããEND SUBããSUB Form95 (X1, Y1, X2, Y2, FormStat)ããIF FormStat = 0 THENã LINE (X1, Y1)-(X2, Y2), 0, Bã LINE (X1 + 1, Y1 + 1)-(X2 - 1, Y1 + 19), 1, BFã LINE (X1, Y1 + 19)-(X2, Y1 + 19), 0ã LINE (X1 + 1, Y1 + 20)-(X2 - 1, Y2 - 1), 15, BFãEND IFããIF FormStat = 1 THENã LINE (X1, Y1)-(X2, Y1), 7ã LINE (X1, Y1 + 1)-(X2, Y1 + 1), 15ã LINE (X1, Y1 + 2)-(X2, Y1 + 3), 7, Bã LINE (X1, Y1)-(X1, Y2), 7ã LINE (X1 + 1, Y1 + 1)-(X1 + 1, Y2), 15ã LINE (X1 + 2, Y1 + 2)-(X1 + 3, Y2), 7, Bã LINE (X1, Y2)-(X2, Y2), 0ã LINE (X1 + 1, Y2 - 1)-(X2, Y2 - 1), 8ã LINE (X1 + 2, Y2 - 2)-(X2, Y2 - 3), 7, Bã LINE (X2, Y1)-(X2, Y2), 0ã LINE (X2 - 1, Y1 + 1)-(X2 - 1, Y2 - 1), 8ã LINE (X2 - 2, Y1 + 2)-(X2 - 3, Y2 - 2), 7, Bã LINE (X1 + 4, Y1 + 4)-(X2 - 4, Y2 - 4), 15, BFã LINE (X1 + 4, Y1 + 4)-(X2 - 4, Y1 + 22), 1, BFã LINE (X1 + 4, Y1 + 23)-(X2 - 4, Y1 + 23), 7ãEND IFããIF FormStat = 2 THENã LINE (X1, Y1)-(X2, Y2), 0, Bã LINE (X1 + 1, Y1 + 1)-(X2 - 1, Y2 - 1), 8, Bã LINE (X1 + 2, Y1 + 2)-(X2 - 2, Y2 - 2), 7, Bã LINE (X1 + 3, Y1 + 3)-(X2 - 3, Y2 - 3), 15, BFã LINE (X1 + 4, Y1 + 4)-(X2 - 4, Y1 + 22), 1, BFã LINE (X1 + 2, Y1 + 23)-(X2 - 2, Y1 + 23), 7ãEND IFããEND SUBããSUB Frame (X1, Y1, X2, Y2)ããLINE (X1, Y1)-(X2, Y2), 7, BãLINE (X1 + 1, Y1 + 1)-(X2 - 1, Y1 + 1), 8ãLINE (X1 + 1, Y1 + 1)-(X1 + 1, Y2 - 1), 8ãLINE (X1 + 2, Y1 + 2)-(X2 - 1, Y2 - 1), 15, BãLINE (X1 + 3, Y1 + 3)-(X2 - 2, Y2 - 2), 7, BFãLINE (X1 + 3, Y2 - 2)-(X2 - 2, Y2 - 2), 8ãLINE (X2 - 2, Y2 - 2)-(X2 - 2, Y1 + 3), 8ããEND SUBããSUB MAXButton31 (X, Y, ButStat)ããIF ButStat = 0 THENã LINE (X, Y)-(X + 15, Y + 15), 7, BFã LINE (X, Y)-(X, Y + 14), 15ã LINE (X, Y)-(X + 14, Y), 15ã LINE (X, Y + 15)-(X + 15, Y + 15), 8ã LINE (X + 1, Y + 14)-(X + 15, Y + 14), 8ã LINE (X + 15, Y)-(X + 15, Y + 15), 8ã LINE (X + 14, Y)-(X + 14, Y + 15), 8ã LINE (X + 7, Y + 5)-(X + 7, Y + 5), 0ã LINE (X + 6, Y + 6)-(X + 8, Y + 6), 0ã LINE (X + 5, Y + 7)-(X + 9, Y + 7), 0ã LINE (X + 4, Y + 8)-(X + 10, Y + 8), 0ãEND IFã ãIF ButStat = 1 THENã LINE (X, Y)-(X + 15, Y + 15), 7, BFã LINE (X, Y + 15)-(X + 15, Y + 15), 15ã LINE (X + 15, Y)-(X + 15, Y + 15), 15ã LINE (X, Y)-(X, Y + 15), 8ã LINE (X + 1, Y)-(X + 1, Y + 14), 8ã LINE (X, Y)-(X + 15, Y), 8ã LINE (X, Y + 1)-(X + 14, Y + 1), 8ã LINE (X + 8, Y + 6)-(X + 8, Y + 6), 0ã LINE (X + 7, Y + 7)-(X + 9, Y + 7), 0ã LINE (X + 6, Y + 8)-(X + 10, Y + 8), 0ã LINE (X + 5, Y + 9)-(X + 11, Y + 9), 0ãEND IFããIF ButStat = 2 THENã LINE (X, Y)-(X + 15, Y + 15), 7, BFã LINE (X, Y)-(X, Y + 14), 15ã LINE (X, Y)-(X + 14, Y), 15ã LINE (X, Y + 15)-(X + 15, Y + 15), 8ã LINE (X + 1, Y + 14)-(X + 15, Y + 14), 8ã LINE (X + 15, Y)-(X + 15, Y + 15), 8ã LINE (X + 14, Y)-(X + 14, Y + 15), 8ã LINE (X + 7, Y + 5)-(X + 7, Y + 5), 8ã LINE (X + 6, Y + 6)-(X + 8, Y + 6), 8ã LINE (X + 5, Y + 7)-(X + 9, Y + 7), 8ã LINE (X + 4, Y + 8)-(X + 10, Y + 8), 8ãEND IFããIF ButStat = 3 THENã LINE (X, Y)-(X + 15, Y + 15), 7, BFã LINE (X, Y + 15)-(X + 15, Y + 15), 15ã LINE (X + 15, Y)-(X + 15, Y + 15), 15ã LINE (X, Y)-(X, Y + 15), 8ã LINE (X + 1, Y)-(X + 1, Y + 14), 8ã LINE (X, Y)-(X + 15, Y), 8ã LINE (X, Y + 1)-(X + 14, Y + 1), 8ã LINE (X + 8, Y + 6)-(X + 8, Y + 6), 8ã LINE (X + 7, Y + 7)-(X + 9, Y + 7), 8ã LINE (X + 6, Y + 8)-(X + 10, Y + 8), 8ã LINE (X + 5, Y + 9)-(X + 11, Y + 9), 8ãEND IFãããEND SUBããSUB MAXButton95 (X, Y, ButStat)ããIF ButStat = 0 THENã LINE (X, Y)-(X + 15, Y + 13), 7, BFã LINE (X, Y)-(X, Y + 12), 15ã LINE (X, Y)-(X + 14, Y), 15ã LINE (X + 15, Y + 14)-(X + 15, Y), 0ã LINE (X, Y + 14)-(X + 15, Y + 14), 0ã LINE (X + 1, Y + 13)-(X + 14, Y + 13), 8ã LINE (X + 14, Y + 1)-(X + 14, Y + 13), 8ã LINE (X + 3, Y + 3)-(X + 11, Y + 11), 0, Bã LINE (X + 3, Y + 4)-(X + 11, Y + 4), 0ãEND IFããIF ButStat = 1 THENã LINE (X, Y)-(X + 15, Y + 13), 7, BFã LINE (X, Y)-(X, Y + 13), 0ã LINE (X, Y)-(X + 14, Y), 0ã LINE (X + 1, Y + 1)-(X + 14, Y + 1), 8ã LINE (X + 1, Y + 1)-(X + 1, Y + 13), 8ã LINE (X + 15, Y + 14)-(X + 15, Y), 15ã LINE (X, Y + 14)-(X + 15, Y + 14), 15ã LINE (X + 4, Y + 3)-(X + 12, Y + 11), 0, Bã LINE (X + 4, Y + 4)-(X + 12, Y + 4), 0ãEND IFããIF ButStat = 2 THENã LINE (X, Y)-(X + 15, Y + 13), 7, BFã LINE (X, Y)-(X, Y + 12), 15ã LINE (X, Y)-(X + 14, Y), 15ã LINE (X + 15, Y + 14)-(X + 15, Y), 0ã LINE (X, Y + 14)-(X + 15, Y + 14), 0ã LINE (X + 1, Y + 13)-(X + 14, Y + 13), 8ã LINE (X + 14, Y + 1)-(X + 14, Y + 13), 8ã LINE (X + 3, Y + 3)-(X + 11, Y + 11), 8, Bã LINE (X + 3, Y + 4)-(X + 11, Y + 4), 8ãEND IFããIF ButStat = 3 THENã LINE (X, Y)-(X + 15, Y + 13), 7, BFã LINE (X, Y)-(X, Y + 13), 0ã LINE (X, Y)-(X + 14, Y), 0ã LINE (X + 1, Y + 1)-(X + 14, Y + 1), 8ã LINE (X + 1, Y + 1)-(X + 1, Y + 13), 8ã LINE (X + 15, Y + 14)-(X + 15, Y), 15ã LINE (X, Y + 14)-(X + 15, Y + 14), 15ã LINE (X + 4, Y + 3)-(X + 12, Y + 11), 8, Bã LINE (X + 4, Y + 4)-(X + 12, Y + 4), 8ãEND IFããEND SUBããSUB MAXEDButton31 (X, Y, ButStat)ããIF ButStat = 0 THENã LINE (X, Y)-(X + 15, Y + 15), 7, BFã LINE (X, Y)-(X, Y + 14), 15ã LINE (X, Y)-(X + 14, Y), 15ã LINE (X, Y + 15)-(X + 15, Y + 15), 8ã LINE (X + 1, Y + 14)-(X + 15, Y + 14), 8ã LINE (X + 15, Y + 0)-(X + 15, Y + 15), 8ã LINE (X + 14, Y + 0)-(X + 14, Y + 15), 8ã LINE (X + 7, Y + 3)-(X + 7, Y + 3), 0ã LINE (X + 6, Y + 4)-(X + 8, Y + 4), 0ã LINE (X + 5, Y + 5)-(X + 9, Y + 5), 0ã LINE (X + 4, Y + 6)-(X + 10, Y + 6), 0ã LINE (X + 4, Y + 9)-(X + 10, Y + 9), 0ã LINE (X + 5, Y + 10)-(X + 9, Y + 10), 0ã LINE (X + 6, Y + 11)-(X + 8, Y + 11), 0ã LINE (X + 7, Y + 12)-(X + 7, Y + 12), 0ãEND IFããIF ButStat = 1 THENã LINE (X, Y)-(X + 15, Y + 15), 7, BFã LINE (X, Y + 15)-(X + 15, Y + 15), 15ã LINE (X + 15, Y + 0)-(X + 15, Y + 15), 15ã LINE (X, Y)-(X, Y + 15), 8ã LINE (X + 1, Y)-(X + 1, Y + 14), 8ã LINE (X, Y)-(X + 15, Y), 8ã LINE (X, Y + 1)-(X + 14, Y + 1), 8ã LINE (X + 8, Y + 4)-(X + 8, Y + 4), 0ã LINE (X + 7, Y + 5)-(X + 9, Y + 5), 0ã LINE (X + 6, Y + 6)-(X + 10, Y + 6), 0ã LINE (X + 5, Y + 7)-(X + 11, Y + 7), 0ã LINE (X + 5, Y + 10)-(X + 11, Y + 10), 0ã LINE (X + 6, Y + 11)-(X + 10, Y + 11), 0ã LINE (X + 7, Y + 12)-(X + 9, Y + 12), 0ã LINE (X + 8, Y + 13)-(X + 8, Y + 13), 0ãEND IFããIF ButStat = 2 THENã LINE (X, Y)-(X + 15, Y + 15), 7, BFã LINE (X, Y)-(X, Y + 14), 15ã LINE (X, Y)-(X + 14, Y), 15ã LINE (X, Y + 15)-(X + 15, Y + 15), 8ã LINE (X + 1, Y + 14)-(X + 15, Y + 14), 8ã LINE (X + 15, Y + 0)-(X + 15, Y + 15), 8ã LINE (X + 14, Y + 0)-(X + 14, Y + 15), 8ã LINE (X + 7, Y + 3)-(X + 7, Y + 3), 8ã LINE (X + 6, Y + 4)-(X + 8, Y + 4), 8ã LINE (X + 5, Y + 5)-(X + 9, Y + 5), 8ã LINE (X + 4, Y + 6)-(X + 10, Y + 6), 8ã LINE (X + 4, Y + 9)-(X + 10, Y + 9), 8ã LINE (X + 5, Y + 10)-(X + 9, Y + 10), 8ã LINE (X + 6, Y + 11)-(X + 8, Y + 11), 8ã LINE (X + 7, Y + 12)-(X + 7, Y + 12), 8ãEND IFããIF ButStat = 3 THENã LINE (X, Y)-(X + 15, Y + 15), 7, BFã LINE (X, Y + 15)-(X + 15, Y + 15), 15ã LINE (X + 15, Y + 0)-(X + 15, Y + 15), 15ã LINE (X, Y)-(X, Y + 15), 8ã LINE (X + 1, Y)-(X + 1, Y + 14), 8ã LINE (X, Y)-(X + 15, Y), 8ã LINE (X, Y + 1)-(X + 14, Y + 1), 8ã LINE (X + 8, Y + 4)-(X + 8, Y + 4), 8ã LINE (X + 7, Y + 5)-(X + 9, Y + 5), 8ã LINE (X + 6, Y + 6)-(X + 10, Y + 6), 8ã LINE (X + 5, Y + 7)-(X + 11, Y + 7), 8ã LINE (X + 5, Y + 10)-(X + 11, Y + 10), 8ã LINE (X + 6, Y + 11)-(X + 10, Y + 11), 8ã LINE (X + 7, Y + 12)-(X + 9, Y + 12), 8ã LINE (X + 8, Y + 13)-(X + 8, Y + 13), 8ãEND IFããEND SUBããSUB MAXEDButton95 (X, Y, ButStat)ããIF ButStat = 0 THENã LINE (X, Y)-(X + 15, Y + 13), 7, BFã LINE (X, Y)-(X, Y + 12), 15ã LINE (X, Y)-(X + 14, Y), 15ã LINE (X + 15, Y + 14)-(X + 15, Y), 0ã LINE (X, Y + 14)-(X + 15, Y + 14), 0ã LINE (X + 1, Y + 13)-(X + 14, Y + 13), 8ã LINE (X + 14, Y + 1)-(X + 14, Y + 13), 8ã LINE (X + 6, Y + 3)-(X + 11, Y + 4), 0, Bã LINE (X + 4, Y + 6)-(X + 9, Y + 11), 0, Bã LINE (X + 4, Y + 7)-(X + 9, Y + 7), 0ã LINE (X + 11, Y + 5)-(X + 11, Y + 8), 0ã PSET (X + 6, Y + 5), 0ã PSET (X + 10, Y + 8), 0ãEND IFããIF ButStat = 1 THENã LINE (X, Y)-(X + 15, Y + 13), 7, BFã LINE (X, Y)-(X, Y + 13), 0ã LINE (X, Y)-(X + 14, Y), 0ã LINE (X + 1, Y + 1)-(X + 14, Y + 1), 8ã LINE (X + 1, Y + 1)-(X + 1, Y + 13), 8ã LINE (X + 15, Y + 14)-(X + 15, Y), 15ã LINE (X, Y + 14)-(X + 15, Y + 14), 15ã LINE (X + 7, Y + 3)-(X + 12, Y + 4), 0, Bã LINE (X + 5, Y + 6)-(X + 10, Y + 11), 0, Bã LINE (X + 5, Y + 7)-(X + 10, Y + 7), 0ã LINE (X + 12, Y + 5)-(X + 12, Y + 8), 0ã PSET (X + 7, Y + 5), 0ã PSET (X + 11, Y + 8), 0ãEND IFããIF ButStat = 2 THENã LINE (X, Y)-(X + 15, Y + 13), 7, BFã LINE (X, Y)-(X, Y + 12), 15ã LINE (X, Y)-(X + 14, Y), 15ã LINE (X + 15, Y + 14)-(X + 15, Y), 8ã LINE (X, Y + 14)-(X + 15, Y + 14), 8ã LINE (X + 1, Y + 13)-(X + 14, Y + 13), 8ã LINE (X + 14, Y + 1)-(X + 14, Y + 13), 8ã LINE (X + 6, Y + 3)-(X + 11, Y + 4), 8, Bã LINE (X + 4, Y + 6)-(X + 9, Y + 11), 8, Bã LINE (X + 4, Y + 7)-(X + 9, Y + 7), 8ã LINE (X + 11, Y + 5)-(X + 11, Y + 8), 8ã PSET (X + 6, Y + 5), 8ã PSET (X + 10, Y + 8), 8ãEND IFããIF ButStat = 3 THENã LINE (X, Y)-(X + 15, Y + 13), 7, BFã LINE (X, Y)-(X, Y + 13), 0ã LINE (X, Y)-(X + 14, Y), 0ã LINE (X + 1, Y + 1)-(X + 14, Y + 1), 8ã LINE (X + 1, Y + 1)-(X + 1, Y + 13), 8ã LINE (X + 15, Y + 14)-(X + 15, Y), 15ã LINE (X, Y + 14)-(X + 15, Y + 14), 15ã LINE (X + 7, Y + 3)-(X + 12, Y + 4), 8, Bã LINE (X + 5, Y + 6)-(X + 10, Y + 11), 8, Bã LINE (X + 5, Y + 7)-(X + 10, Y + 7), 8ã LINE (X + 12, Y + 5)-(X + 12, Y + 8), 8ã PSET (X + 7, Y + 5), 8ã PSET (X + 11, Y + 8), 8ãEND IFããEND SUBããSUB MINButton31 (X, Y, ButStat)ããIF ButStat = 0 THENã LINE (X, Y)-(X + 15, Y + 15), 7, BFã LINE (X, Y)-(X, Y + 14), 15ã LINE (X, Y)-(X + 14, Y), 15ã LINE (X, Y + 15)-(X + 15, Y + 15), 8ã LINE (X + 1, Y + 14)-(X + 15, Y + 14), 8ã LINE (X + 15, Y)-(X + 15, Y + 15), 8ã LINE (X + 14, Y)-(X + 14, Y + 15), 8ã LINE (X + 4, Y + 6)-(X + 10, Y + 6), 0ã LINE (X + 5, Y + 7)-(X + 9, Y + 7), 0ã LINE (X + 6, Y + 8)-(X + 8, Y + 8), 0ã LINE (X + 7, Y + 9)-(X + 7, Y + 9), 0ãEND IFããIF ButStat = 1 THENã LINE (X, Y)-(X + 15, Y + 15), 7, BFã LINE (X, Y + 15)-(X + 15, Y + 15), 15ã LINE (X + 15, Y)-(X + 15, Y + 15), 15ã LINE (X, Y)-(X, Y + 15), 8ã LINE (X + 1, Y)-(X + 1, Y + 14), 8ã LINE (X, Y)-(X + 15, Y), 8ã LINE (X, Y + 1)-(X + 14, Y + 1), 8ã LINE (X + 5, Y + 7)-(X + 11, Y + 7), 0ã LINE (X + 6, Y + 8)-(X + 10, Y + 8), 0ã LINE (X + 7, Y + 9)-(X + 9, Y + 9), 0ã LINE (X + 8, Y + 10)-(X + 8, Y + 10), 0ãEND IFããIF ButStat = 2 THENã LINE (X, Y)-(X + 15, Y + 15), 7, BFã LINE (X, Y)-(X, Y + 14), 15ã LINE (X, Y)-(X + 14, Y), 15ã LINE (X, Y + 15)-(X + 15, Y + 15), 8ã LINE (X + 1, Y + 14)-(X + 15, Y + 14), 8ã LINE (X + 15, Y)-(X + 15, Y + 15), 8ã LINE (X + 14, Y)-(X + 14, Y + 15), 8ã LINE (X + 4, Y + 6)-(X + 10, Y + 6), 8ã LINE (X + 5, Y + 7)-(X + 9, Y + 7), 8ã LINE (X + 6, Y + 8)-(X + 8, Y + 8), 8ã LINE (X + 7, Y + 9)-(X + 7, Y + 9), 8ãEND IFããIF ButStat = 3 THENã LINE (X, Y)-(X + 15, Y + 15), 7, BFã LINE (X, Y + 15)-(X + 15, Y + 15), 15ã LINE (X + 15, Y)-(X + 15, Y + 15), 15ã LINE (X, Y)-(X, Y + 15), 8ã LINE (X + 1, Y)-(X + 1, Y + 14), 8ã LINE (X, Y)-(X + 15, Y), 8ã LINE (X, Y + 1)-(X + 14, Y + 1), 8ã LINE (X + 5, Y + 7)-(X + 11, Y + 7), 8ã LINE (X + 6, Y + 8)-(X + 10, Y + 8), 8ã LINE (X + 7, Y + 9)-(X + 9, Y + 9), 8ã LINE (X + 8, Y + 10)-(X + 8, Y + 10), 8ãEND IFããEND SUBããSUB MINButton95 (X, Y, ButStat)ããIF ButStat = 0 THENã LINE (X, Y)-(X + 15, Y + 13), 7, BFã LINE (X, Y)-(X, Y + 12), 15ã LINE (X, Y)-(X + 14, Y), 15ã LINE (X + 15, Y + 14)-(X + 15, Y), 0ã LINE (X, Y + 14)-(X + 15, Y + 14), 0ã LINE (X + 1, Y + 13)-(X + 14, Y + 13), 8ã LINE (X + 14, Y + 1)-(X + 14, Y + 13), 8ã LINE (X + 4, Y + 10)-(X + 10, Y + 11), 0, BãEND IFããIF ButStat = 1 THENã LINE (X, Y)-(X + 15, Y + 13), 7, BFã LINE (X, Y)-(X, Y + 13), 0ã LINE (X, Y)-(X + 14, Y), 0ã LINE (X + 1, Y + 1)-(X + 14, Y + 1), 8ã LINE (X + 1, Y + 1)-(X + 1, Y + 13), 8ã LINE (X + 15, Y + 14)-(X + 15, Y), 15ã LINE (X, Y + 14)-(X + 15, Y + 14), 15ã LINE (X + 5, Y + 10)-(X + 11, Y + 11), 0, BãEND IFããIF ButStat = 2 THENã LINE (X, Y)-(X + 15, Y + 13), 7, BFã LINE (X, Y)-(X, Y + 12), 15ã LINE (X, Y)-(X + 14, Y), 15ã LINE (X + 15, Y + 14)-(X + 15, Y), 0ã LINE (X, Y + 14)-(X + 15, Y + 14), 0ã LINE (X + 1, Y + 13)-(X + 14, Y + 13), 8ã LINE (X + 14, Y + 1)-(X + 14, Y + 13), 8ã LINE (X + 4, Y + 10)-(X + 10, Y + 11), 8, BãEND IFããIF ButStat = 3 THENã LINE (X, Y)-(X + 15, Y + 13), 7, BFã LINE (X, Y)-(X, Y + 13), 0ã LINE (X, Y)-(X + 14, Y), 0ã LINE (X + 1, Y + 1)-(X + 14, Y + 1), 8ã LINE (X + 1, Y + 1)-(X + 1, Y + 13), 8ã LINE (X + 15, Y + 14)-(X + 15, Y), 15ã LINE (X, Y + 14)-(X + 15, Y + 14), 15ã LINE (X + 5, Y + 10)-(X + 11, Y + 11), 8, BãEND IFããEND SUBãDyselxic DJ METALLIC TRIANGULAR TUBE Dislexic@Earthlink.net 07-05-97 (08:46) QB, QBasic, PDS 34 901 METLRING.BAS 'DANIEL'S HI-REZ-LOW-COLOR METALLIC TRIANGLULAR TUBE ON BROWN PLAIDã 'WRITTEN BY DYSLEXIC DJã 'JULY 5, 1997ã 'YOU ARE A NEMOTOAD.ã ãSCREEN 12: RANDOMIZE TIMERãã 'the backgroundãã PAINT (1, 1), 6ã FOR T = 1 TO 640 STEP 10ã LINE (T, 1)-(T, 480), 0ã NEXT Tã FOR T = 1 TO 480 STEP 10ã LINE (1, T)-(640, T), 4ã NEXT Tã PAINT (FIX(RND * 640) + 1, FIX(RND * 480) + 1), FIX(RND * 15) + 1, 4ã ãã 'the triangleã X = 50ã Y = 89ã10 FOR Z = 1 TO 400ã CIRCLE (200, Z), 40, 7ã CIRCLE (201, Z), 40, 8ã NEXT Zã FOR Z = 200 TO 600ã CIRCLE (Z, 400), 40, 7ã CIRCLE (Z, 401), 40, 8ã NEXT Zã FOR Z = 400 TO 1 STEP -1ã CIRCLE (Z + 200, Z), 40, 7ã CIRCLE (Z + 201, Z), 40, 8ã NEXT ZãDyselxic DJ MAC-SCREEN SAVER LIKE LINES Dislexic@Earthlink.net 07-05-97 (08:46) QB, QBasic, PDS 159 7184 MACLINES.BAS '***************MAC-SCREEN SAVER IMITATION***************ã '*************** WRITTEN BY DYSLEXIC DJ ***************ã '*************** JULY 5, 1997 ***************ããã CLSã LOCATE 11, 33ã COLOR 1ã PRINT "DYSLEXIC DJ'S " 'This is just theã LOCATE 13, 33 'title screen.ã COLOR 14 'Nothing special.ã PRINT "SCREEN SAVER!"ã LOCATE 19, 15ã COLOR 8ã PRINT "(Yes, it's a rip-off of that old Mac Sceen Saver.)"ã DO: LOOP WHILE INKEY$ = ""ã1 CLSã LOCATE 5, 33ã COLOR 9ã PRINT "YOUR OPTIONS:" 'The user chosenã4 LOCATE 9, 1 'variables.ã COLOR 2ã INPUT "HOW MANY LINES LONG(1 - 100)"; linã IF lin > 100 OR lin < 1 THEN 4ã5 LOCATE 10, 1ã INPUT "WHAT COLOR SECTION(1=BLUES,2=GREENS,3=GREYS,4=REDS,5=VIOLETS)"; colsecã IF colsec > 5 OR colsec < 1 THEN 5ã IF colsec = 1 THEN sel$ = "BLUES"ã IF colsec = 2 THEN sel$ = "GREENS"ã IF colsec = 3 THEN sel$ = "GREYS"ã IF colsec = 4 THEN sel$ = "REDS"ã IF colsec = 5 THEN sel$ = "VIOLETS"ã6 LOCATE 11, 1ã INPUT "WHAT SPEED(1 - 10, 1 BEING FAST, AND 10 IS SLOW)"; spedã IF sped < 1 OR sped > 10 THEN 6ã sped = sped * 100ã7 LOCATE 12, 1ã INPUT "HOW MANY LINES SHOULD BE DRAWN BEFORE A COLOR CHANGE?(50-500)"; chngã IF chng < 50 OR chng > 500 THEN 7ã CLSã COLOR 3ã PRINT "IS THE CORRECT?" 'Make sure theã PRINT 'user is o.k.ã PRINT lin; " LINES LONG" 'with the selec-ã PRINT 'tion.ã PRINT "COLORED IN "; sel$ã PRINTã PRINT "AND CRUISES AT "; sped \ 100ã PRINTã PRINT "WITH A COLOR CHANGE EVERY "; chng; " LINES"ã COLOR 1ã INPUT "(Y/N)"; correct$ã LET correct$ = LCASE$(correct$)ã IF correct$ <> "y" THEN 1ã CLSã LOCATE 12, 35ã COLOR 9ã PRINT "GET READY!"ã LOCATE 15, 21ã COLOR 6ã PRINT "(hit 'Q' exit the program at any time)"ã SLEEPã IF colsec = 1 THEN C1 = 1: C2 = 9: C3 = 11 'Get colorsã IF colsec = 2 THEN C1 = 2: C2 = 10: C3 = 14 'ready.ã IF colsec = 3 THEN C1 = 8: C2 = 7: C3 = 15ã IF colsec = 4 THEN C1 = 4: C2 = 12: C3 = 15ã IF colsec = 5 THEN C1 = 5: C2 = 13: C3 = 15ã CLSã SCREEN 12 'Switch to rightã 'mode of display.ã10 CLSããã DOã IF B = 1 THEN x = x + 10 'This is theã IF B = 0 THEN x = x - 4 'opening loop.ã IF H = 1 THEN y = y + 7 'The line startsã IF H = 0 THEN y = y - 6 'at location 1,1ã IF B1 = 1 THEN x1 = x1 + 3 'which is theã IF B1 = 0 THEN x1 = x1 - 8 'common startingã IF H1 = 1 THEN y1 = y1 + 5 'point for theã IF H1 = 0 THEN y1 = y1 - 2 'earaser line asã IF x <= 2 THEN B = 1 'well. The firstã IF x >= 639 THEN B = 0 'loop will go asã IF y <= 2 THEN H = 1 'long as theã IF y >= 479 THEN H = 0 'user told itã IF x1 <= 2 THEN B1 = 1 'to. When theã IF x1 >= 639 THEN B1 = 0 'trail is longã IF y1 <= 2 THEN H1 = 1 'enough, then weã IF y1 >= 479 THEN H1 = 0 'will jump to theã LINE (x, y)-(x1, y1), z 'loop thatã R = R + 1: IF R = lin THEN 20 'includes theã FOR T = 1 TO sped: NEXT T 'earaser line.ã LOOPããã20 DOãã 'This is the loopã 'contains theã IF B = 1 THEN x = x + 10 'the eraser line.ã IF B = 0 THEN x = x - 4 'It will followã IF H = 1 THEN y = y + 7 'The exact sameã IF H = 0 THEN y = y - 6 'path as it'sã IF B1 = 1 THEN x1 = x1 + 3 'predecessor,ã IF B1 = 0 THEN x1 = x1 - 8 'beginning withã IF H1 = 1 THEN y1 = y1 + 5 'location 1,1.ã IF H1 = 0 THEN y1 = y1 - 2ã IF x <= 2 THEN B = 1ã IF x >= 639 THEN B = 0ã IF y <= 2 THEN H = 1ã IF y >= 479 THEN H = 0ã IF x1 <= 2 THEN B1 = 1ã IF x1 >= 639 THEN B1 = 0ã IF y1 <= 2 THEN H1 = 1ã IF y1 >= 479 THEN H1 = 0ã IF B2 = 1 THEN X2 = X2 + 10ã IF B2 = 0 THEN X2 = X2 - 4ã IF H2 = 1 THEN Y2 = Y2 + 7ã IF H2 = 0 THEN Y2 = Y2 - 6ã IF B3 = 1 THEN X3 = X3 + 3ã IF B3 = 0 THEN X3 = X3 - 8ã IF H3 = 1 THEN Y3 = Y3 + 5ã IF H3 = 0 THEN Y3 = Y3 - 2ã IF X2 <= 2 THEN B2 = 1ã IF X2 >= 639 THEN B2 = 0ã IF Y2 <= 2 THEN H2 = 1ã IF Y2 >= 479 THEN H2 = 0ã IF X3 <= 2 THEN B3 = 1ã IF X3 >= 639 THEN B3 = 0ã IF Y3 <= 2 THEN H3 = 1ã IF Y3 >= 479 THEN H3 = 0ã LINE (x, y)-(x1, y1), Mã LINE (X2, Y2)-(X3, Y3), 0ãã N = N + 1ã IF N > 0 AND N < chng THEN M = C1ã IF N > chng AND N < chng * 2 THEN M = C2ã IF N > chng * 2 AND N < chng * 3 THEN M = C3ã IF N > chng * 3 AND N < chng * 4 THEN M = C2ã IF N > chng * 4 THEN N = 0ã FOR T = 1 TO sped: NEXT Tã T$ = INKEY$ã LET T$ = LCASE$(T$)ã IF T$ = "q" THEN 200ã LOOPãã200 ENDãã 'I'm sure there are easier ways to do this program, but I don't knowã 'how to do it. I only had one year of QBasic in high school, andã 'didn't pay much attention to boot. Please e-mail me if you haveã 'suggestions on how to shorten this code, improve colors (I don'tã 'know how to use PALETTE), or just want to congradulate me onã 'actually doing a program that a little 4-year-old would have troubleã 'doing. My name is MR. DYSLEXIC DJ, and this is my address.ã ' -dislexic@earthlink.netã 'Again, thanks for taking time out and reading this over abundantã 'REM statements.ãJon Olick MASTER CASTER V.040 (3D ENGINE)jariot1234@aol.com 07-06-97 (21:32) QB, QBasic, PDS 397 26286 MC.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"MCV039.ZIP",4^6:Z&=19469:?STRING$(50,177);ãU"%up()%9%%%[-%v'oIGk+7lGP)%%%d5%%%0%%%%hz%wwjs%ySxyOx.&<,BSk5QwQãU"X6TuD/y/61u[aT/L/&Qak'#A7>JXI\-$nOf[))dW8HI.L8v6x6JL[.py;qs8FYlãU"4VLoR2N#75hMBXm/i.CO#NãU"udV%_YsGHtEfjVoW_#G*8#CZ4_.1HWPs?H1(BnFDBR,geV2m2wnne3v4^#rrl9IãU"fe8Vu#%2KlEjW+p:t]hvqe:((2wRElo+jL+2.jeh4RMyb=^J13Xx5fwl0VmS9J8ãU"nHn#24vEt:P&pRB5)0WwKkh<]ps1+GdoBMãU"SOSj#5257O6DDZK$b=RKIDwj(5)Fg*]]jDm11W*P2TBkTSdh??viRg^Qc?j_(:h6=LKMK?3^rQHH0s)ebH?b=vhj_ãU"P^ILmk5G_/\nOtaCd.E-gsSKcC?NR;iCf(I:5(:4qzSfZ6;$K5XTM]SUnm(Q1GDãU"G%Lw:1;?^PsFM\3-.R*re.#*L46#vEQ8Nvi4jtm&XpK&&(vLR^j1zdEki7.sY*kãU"-l4j\u#seNGP\:zu5$^HjuD8RjtsoCpkhfc>RoN.;3j,v7DãU"E]JiPN=)r(WrD#PaX?wXjZHlbSSe\J1,>&%t.3<-;ãU";S2b(EYnP3.h_+i#FLlD0PAwjSSkDD6gsQ/k^e_ixJ,\9VZ$<.N=G/ROlkbFgl7ãU"TV(rUnJ[-vUYkO<1Gu0rOvjfE3l-)Cwn)m0tiueW7U=v.8\];_In.v;]??mCB%ãU"yr'W]>km1*7u)yg+7o>^v:)AYo[LkR04/_o:x=#rV(0+sTVB>j;X;ãU"i8kRBkoS)M*T_Juvo/B']Z%YV4Z&RMo7z;LfmMMo*58'aPQkQ,=(#d.243*E=;yãU"F.gDe1XE0mmu+4,4,2iDD]w[AV8gJ:;6F\85CS6XB_=jt.d8AmQnzLrCcW;1tS8ãU"=6G++ZII7w2cuJR+Mb#tB?v^L[5lS[UuLf1+6.=9cm>kN?VAFNw>c5ee&[4JLIRãU"mJ*n-)?g7aN4ae5+>b]H7*Mv2%up()%9%%%[-%z7IS5x?;nXG..%%K/%%%1%%%%ãU"lw(f(gw%npSl#nkJb_L+4OFC#tm%Kjoy(/dxNLbx.H+='gA38q%L+bAzv]-s9*ZãU"?-KR?;Kbfbt/MBMpzpr>E*rN4O[WeJY(%?1]((ãU"+'&,O9eU4E]O7&_=m+/sAc)#='+PAS5eW(F35o&W%i=IG+$S.)eQF)0_mm(&s=wãU"1+xSACe]F6&_pM%%9=/+/TA?,1JUaf.N,<'&[%he[G-5=%-W)J#g%F[%5hmGR'5ãU":W#UiIq.%v[M%hyG345#WX'=J7%(.[)h%g3IkR7HB_;cRJ&(KO6E#.))1I'>Pa%ãU"Ee5K&W6I.1&S/g.=Fau#eMKc%6O.,;S2;>*Za-e.)KQ67F,'m.IKa67N,H..U*[ãU"'.nFo5FxAMc.9&YU(j[Gn(.o)xK;M$c#'oVt&[wn^\oAxG(Mfy%#OU:[#/^eU#oãU"qJr%w3G'Sg(?PK]5?W(^3AoA]%lgjH?$]1)?Q^)0kms1&vgxD?2:Pu.BlkGKkSLkDu^[UtW7,IA&?,lN9YXa0ãU"ew1K?CQ0;+Ml-V-1v3/q<2=]2MEH._o--;&$cORDV^BSwfãU"]olZhGkd-)-RD[vmfDLEG_&j??^iM84;jnwPXhIG;lT58c9wjT4m\K4fc5RF85wãU"mZsmr?79%8Z??'t1>Dk_cOECx=kLXuZRcwOn7VI0TW%c6+S)w3qytL%OE]Q;x4l.n+<)RGãU"wfmZM&_u8GA:un7\?[X9sr*hGl;UF8rCRG*o=tnBM.[<6)I.7Nsd&m/Vx/zQ#kbãU"=qY]Y$k(,*7(Y8xl4,w/$rECRIO^k)(*+A9Y=0kdBeE]xp1fJVW>><<,oarL+-8FpNRbcG1X66=d/4mO$u6qkoEV1vr=l+TLKpwN6M1rh/BT^dqxX:0ãU"&^qqWIYmMp(C>jAAYDDDN)it=XvWI;qH%3dqx&]0-.jH$]kG?-J9[6yL;x1vn:YTBbohvF6e&ZR%,S1\FEqJkYK.C?cX8Nsp[o[XS(rwM(M?+HSdBLm80l)j'NNEqkrG>&h.gqo;hl,08]dXv_1Ag6/Kx+F*Fgah_$ZK3ngGi/;ãU":co?XzV,.Y^sO^-;X,=\kQTxLHs:^2mC;QTeP.\ZW/DC^8?ZvapDKukR>S9c;jOãU"^hHeI,k3;9VnpJ#[CX7=sJ?D4>BiKP=ItãU"H;1Zwu?g)$-+]Zfol4/nhU4UxNe0.Fko:J*eL%j5ic5NglZw7>X(v*b:miwNKTlãU"=haCWIg?H*gdN-_)*N^f2[:KE=88Z./c.t:(*+Rr_PRHY488nzjt6HPhKFJ-lh#ãU"4Np'<0%*_07z4dG3'p%W0JF[r*/v)'k6zLH0w9nZvYdDSHjpJ8ZlS>7<$kXO,DeãU"iox?5s&b2fzZg:OE$Vx-?C*kNz1c9f>0%n.9JtXB;b2c]SiSINbEMpTm_)M\#NmãU"b6HGagDlB&;BE]rP=I\,dw$L[Zt8WExV,Ms4qB0s\X<:2FA.G&k+Tl1R]bKeaypDH8S*Rf/LPCD=MGU&P*FZc-:w$P6$ãU"g=ATZ\\LQ>_NLb1aFd05g2otd$bvXPS:2r_>uui8PxTVuM3Bq^6GDN^EN;d0WMVãU"=Ak\$4$e4bcGLWV979bB9pzRRt]0*/jOh')M9RR\.gC):Pi6GVLt#MOe:TjNvsxHmWr.X,k%Sq[#c[iS6t/_;CZYOBnBSqw^Sh#jãU"CfC32\ZkwkjiD],VJFV18tr3W>'h)RfL_ãU"_A3J9%5U-I&S%g1(FRug7)E;5(VWII%%71.&Rig/4E>_W7mJ]%AA1^RA+g&o'9uãU"UM-])_M(Vc1o#^G8/%)='7(fOEk&_FM6I'-0S%=g76AO-kS%FG6*)W1i>Jq7#O.ãU"]kkF(S$%m&/I=7GAQVaI=nUs+A*3U(&[%n%EE580A-c)(&QUf&[En-[E)8;1-$SãU"'IgVp[%un]E7A8G-&fi%G.U6[-(^KjG1V$[mC^AsO(N/9mI/&TgIgkps.-uSN&1ãU"9no.%Jg71kXs9CuYN48coC&3^gAk*2s'u2Px/y*A0WyA1O>d\A)69%AU3I_VOhEãU"FF\uA7)];A(V]IL8O8E.0\iA/4]>kWRsJ$ObBE^\_+A&1*9+US0]Ui?3F'rEVjJd%1,K4opS)#8Ec8^7N1QT*4O%L:)B?eru>6.P6k&\_T<2dnbF_ãU")Pb>TWCP:?FvmwTkiR/((zeHOKjr.pP7:%SC9hLhj$cUMSG-cm$A.v:'Yrj%gq)ãU"#\zF?Ar=[Y4MtB2_EqS=:'IIow'pGWHjVM25K&lbA5tbXg$\,>),I%>RetTtK.1ãU"Gh6,H28,I1Y)N5nyciZ_07l*XymL^3#hQeY)T>0NY(r.TuYlXdgCs)C*[HT>+u?ãU"qqfnQL=Zp4,pEid\f?MF'[JQL%VP7.SX?o3D608sl)M\5Tx>Yf0=tRw=7iãU"KCj&snL/:fwd%:-nC-raiYGTUNypRcYmW0uq:bW#8c1.\dbJWe9d)A=aWtpkrJ8tk%$x-*0GR.xWZlib5.L^Z)v1$,ok3ek>DC.y_Re>jp(QiTj&reIq1C/pG765-]cCQ'c9pVI[p9=pT_fgvhFVq>_M?+-r)uOwn\2gVPCKCãU"Sj=$f&,_ecs%O(a)#UWudVF,I4#_2S3u]$?zDOZsFT>Ar>akpXD#7QM+aAbOK>%I>r]Yjc'_CDp#DoV&.Qxf,ãU"=C/_NIW9by&k4*vGllzi]i6LpZ>c7T5D&^KrEBmkX6,=V/YJnãU"^zuzr#.\w5K$yzo[TT=MhI%CWV+&+=g$9Z,Ns4e$X/d%jOXNuwZJEA\GtSmj[7Ub0oHfJqKZ)jEJTnJkZ*4wãU"MFu+f#W>J62SxcSk]=YUPljlchFLXC=>a\&PW:tR\4DoE3sAsfK:)avaDs-$3PMãU"udZuv?[dnwl*iOgX]Q\.X[u6mce7-&,nqkS0(D2sdN#8G:FQDJHjp3Tg;mQFGTUZ?nOtQ$;Wk;ãU"u]-2^^p?6^r_lJQgH&v[Qpm2tTMN^#..rtmV:w4]#d1Vp7gb(T4[SDQ;6oN>P.pãU"#Jahfj;z\tdqWgbpH,D<&GjkzLMr)rd18+;c^VXB;r?Zw;j[xDbjzTx&ComB*jDãU"*pIiK*0m>#bn*Q7nPy]#3,l\kWsvkrwOB3q2vc89Cf>adnP>6D'J^t>gcUQ7okmãU"n,$X;Nt+o:XmSC#og.0hP;H*Nip0*Sor,DG6P1xtdlD,tpfHn2gpB+Lbqhd4bqlãU"1,;D?8Ji[LJ;7OzW.8xd$##<1RASl]INF_CI5reP[Cu>B/7Ud;lOkrP.oC+cNe868Fx\6q.3/cCG]*>TLJbmfm*A8ãU"2t&=v_64w;nkl[s2S/6IHt=]QL]q?S*_q(mC%Y%W0ãU"9%Pf('r-1#6]E?FmY9P(HQ%).&.QGI-i_O%EFfw()X-?#5YI7_Yo6:1%QP)#h61ãU"I&Nj'f%'v)gGB$)_%)9.5AX&7R.Ik$=^G#e[,_=N7%lI&m('a)j(7WI&Ingas.mãU"7$Y^E8mK#9nHa%&I(n\UG>m/m1XEAXM7p[^i%KDOq&qIVe2_'?M?h.Y37A]K]j\ãU"&WK%rLeio7F'JIo.nmb9.rGi+IY28i)q8iX_O5EFduYRWELu6s%6jHY&VBe+%u1ãU"e1%+=1WO=>/W0:&Rh(+v=A.V)/-'A59h(EU)1I.>a1Xm=IO&pFhx(1\=+.U13=qãU"Y0It%+V-WDW15i/z7O-Fuahh%5+6k8p4Y6#36sp(4_5&.6fp4%,jIiCITcS%lYiãU"Y&Tc=j#1i1T(cWG)U6qW>Yqx0.Rh=/L^>dketColjBj6^6sTplo)($1ai$-2g%rãU"g^-s=g./;NlPsq[j/W4oF'OiLE[$O^HS&sn[%$N>fxCq)tOWWpiB=]Cj6#/=xjRãU"C$:zi;0LWu,uA0[g*3xSM)YV1t+MeZASrJ$FV;eXc\Vnnju.zOua,ZH^EMv\ZbYãU"PI2<]n]9XUS]=Z%EP^y8dne\\6>,G=[RYpO/D.kD84q/>G6O=i1+)r<>QK)b)kPãU"F-H;o8W6mq/miiM7KO7)5,hee1vJH_&I4FkxlGYH15P+kiMe;'->l]cxfUqN1Y'ãU"JG*%y5d^r#0:SLr_jqDMj6%q]#\fzTo+W+p(R*#q\%s\k8bw(HoK:1DKMQ.*20%ãU"dB.tHvwp$_,LQO2b)qf%i*U:6K+wFGqIpSvHv?EOu$r*F$?;xruBTW391/ãU"7gf._\8Pootsq)qxV/k9=Y%MOc\I3n1Zc+2HjQU$fDCaD:wmA/g\_l+tIf^jrd&ãU"eQu;?ef3x5*_x=J8da'4zp?wk,.7,lSl.c6S>Y:lB/eZ-e&2]LtL7;cQDHg_qtgãU"6c\.[7-tD5#u&0xePI(^ZCB9ttGUa;B5w8Ykq^U0QuNc^bIv.ieE-c#J\ey[X\WãU":sj:>TwtgYuAu<4ygeY1PAbeaoYcubPoZ2w5?SHs3,c?J%mitrpo0YdrQsh7LXN+8QM*J*ãU"$Xd0pal]vjZjX,>HYt\+t2_0Z#W6UVrrI?BK#^eq3wbWH\^l.Xf$Vh5%AY&DsmWãU"fd?T?WComteUQ2A=ecdi)#A-piGuLtoiH*PdbBsdWP#$n;tfaMGE5QoPY)Z2F6nRgqlZ4'Kmg^KnRlãU"'h#LzW(VH8*a1aB*+6pWmK)S=8C,4(uz<(;W_iqh&HhK-/JffMkãU"SafqrsgGv5TN8dnH<tNg(j/D6teEYDvM%awG_3c_D>%'DLP(qEVPp3mOX>O7ãU"xZHcS>9%9l2nZK]>-XTz9eu->$Y+xduNGWk4^gn'NHrZ.ZEU^gS=Rts(YUr'1n8ãU"tI'e-&F1l5iS[kJfq7rJC-xL<:bJ>L5b#7#0g)o$rrHi[$BSQV[paFw$Cm]vWxAãU"VUR?5-b\*,:ãU"S;D#k01rKqrb/r=:;V:)^Fu1nHvWs&TJcv<'%^#=ar]5u]*tly,IRIL\%>4CjmIt#I.\ik:^bFR=k26v=\LW2ãU"t=5$7O'5EeOlOeMp*jqFxaF.RmgD=t8LYS#G'G4#1Q;6XiN:/8R8pu[5\HXQ?6HãU"Syk$k80$VZs'0qj9N\ReK[2_MjA.Yd5A?F\].qZ83^ldF:(J#tpJhOkcsyA'\6&$lCfsm1d9Er3U&0fg4<]L>vd4;5(]s][/5?e%s0T7H0)rL1.8&32S;;,)&tVZa5hCTJ:DskiQãU")=P6+M>?#&?]T6jG2qp_rMD6/+?WB;T]/$Ib+pS1^USp:Fm,/5Rd$X1jeC6=/AHYVb:um$AfC)unilPI0:a12r9usãU"(uv2xr#gQOZ^GUFZ6pMHX*e0m-'>R[W\#$E7^qAQP+86lPNR6BYwcosXExgM/(^ãU"2Ht$'Hk8DwB3d2YChkgHelrfFX$Klg&v--)zSip6.RF>RJSI\PN\i-d6v(G2zluãU"B13Rig_sKeoaFd;)pG=RVH)C;8nrFXYVW=b1drw*;B,1i*j[4loVCwDS*kBo/baãU"Pkj((D4_G]?Z0RL=(F]U4E(?pB,KJdRM4E^6h&J+G/W[fM1]$XlIxQ&UdP(JngdãU"w9,c*/BU>S(:vXr\>P#$4xeGuUxIpB:5=GHt/,WJjDi03h]o:/Z)Rk-)#l9e.V*ãU"7dJGLr4rs#+_Nw3/+V,aU>-6_iu?oS.hPr5ZxaAIcRq2$TCl4+;Zs\b_;2\cdMCãU"n>KwYv;H%mM)0T8ml+$kvW+cp1:wOdH_;)83[uHY<_v:'Oa\x\*]TBDU:uSjedYg6G#$ZJ*xHE4:rTL&bãU"j($P2EMf9mtxXsnH^vi\9\kM3boGK&at('2JSfE.y#x0FQJbm(DNBYU's*e8wBSãU"c*EYXTJA0Vfk/.&7XPwdRb,7i)hC]%cmwo.rR;ZAc<\2ep8
.>p5t85rN*54VãU"[M^bEO_ic,&XNs,%ys=DC=t$TCx:]$n.?.Nn8kfxe^Kwj+H)Pf=ycrf42tfBOHhãU"A:uneMht'J]hTt4:V]d-75>6kLCca7B7b$+T,nU?KgttoUl>o]D$\f$4np\kWOitB'l_sJmMUlPXMn]zgn<4ãU"%LQb#ND[[MRo(rB>WFpR*i0LHj:k[_<74?xVGzY-i&A=DqGr'QX]pFyU;uERn[gãU"_-x\I\bz\VtB/tWZYIeJr3dsrIX3>BHqdufTXoV.A+>$_AfW+e+r4]c[Z<4->SrãU"_$]vMmG*Ga13s$.rkG('Op>]tB=qN9k,T8wr==G#*aVpE=5N/1x.PWRuQSSX(f/ãU"I>fT7TI$K1c4QO&J6(zEah0b(jj#*-IHrld+HKN#%H)VãU"Kt^#re?aA=m6/0Bw0%BxE_CYm/=xp>:f4$%$2gj,=9odaGf.5(snuRO8p5mR5k&ãU"n+cuL,k\+OWWijG1qv1G/2O:N[j?qYrF3iWrãU".[s^U.2fXn<+HE4YT[WHVo+Lg>4?FGQ&^2pqVu0OlvSggbJ-GUNfS5rQo]W8m4-ãU"IW=QH*'dmXH),FWW*#[K+Knv9oNV2;;Jc&>5=c20_AUãU"+(>[5\0iTh&2898d'NlddoFLye4.F8R$gBEzUvHn$l#6p/gGZ*_Vj^nx?IdNZb(:*u;)(.Cpg+2DS&&cãU"I?G2(OFgMAPMGbo?Zdwj>H3$Hb=4Ml3SJt6yE#=fuMvvvvPv4v6tu\OBocc2.<&ãU"NKw]v;ZsG+f9F>^Yf4=wtrHbGNãU"a]k87-HH.B9#36nMC?Gf6beMSU4/NlHc9Nd[VAVn7[*#+LX.'t6-l8j>bY]ToDLãU"_>96W=RY_f9m8?fliGJGtmN?K1:(J3e1*'GXEi5FSp4]h9>Rveu0Fd6sAO_7O^\ãU"T,h^*+=2eweZiW:lWR]$8Z%#.b=HMy5661,Mn*LF'Teif]0;raTi4Qf4-'sOhgvãU"Pff\F5UW3^2>lVBRIWkuS*FUHHw681:DEi-'03P$H=lQ?0]5c3_NOo:4qRQ(AprãU"iQ%j5_8jIBj)'x[a^6LIlrt-L7xHFqqAi8Gt?hWV[^c=op+zQSYwX-z]&kR0qe*doJ'0'.ãU"BgWhy$SjFNVNW4IGv6ZOTlshj(ZOf,;I%.3/R0ZC5)OãU"V4aDwoRC&CV=>P\?No&MgmNGb:4ZaZkc<.su)?gUb+Yk9sI+*'T?.r0qWqN9-8\ãU"*\#%G8Wfq00tcpE(])38hfR.7ãU"vh42M*ZvJGIC'>dP)F:4D#6Vm1&e3-XGkrx]p^Eg;49K0'eXG(=fS77dH#NxgiQãU"^q40IC^BUd]iZ&]5qW+Us7H0=jXFL)hSMGsJYAO7fs_rw&d-5)NEBVi\/d6%Mi;ãU"cG.3g?_\3-\b.H7/v5n'k**1T(M4**aEKK$PIW%kxm3TY9Ca]vxMv,(o0.Ko0z/Z8RbCLãU"vtA:H;]so)c*8ko=0UQEb$2zHJg4IYU)b\sacr3#nH(XM'+QG#S6z&'DU$7LX1SãU"p.+t-e_Icih<(j2Zj#$oN2w>7z$M1#C&HMHk2h0+zAjaC1.B8OtC0NS#svY8N6>ãU"-[;Yh(N.ORN)v]VDedkQjL)qvYP*e1DZ4*^qOHkE2wC*$lPAoosji\Z)rUSxb66ãU"su%tEmMMKN=DFDf6t+TR'7AM?B7b7=qWf(cA'QPQ/fbF?=_L92Uv#DVQ2.z=AbyãU"?n)Ikfw&(Q4mZ2jb[B,oO[D43Bp:*[q67uH9%'/&Pd8r^M#FR1BJu<#9v5fN\iE*->2Z[K8PtY\o0uqdVZ+XOW+NOvf(D[GALbo3nM$T2spãU"Ht$%p[^--?\#^fGZ(kam?c$cG/Y#1OZ=A<0h$PZ.:PmW^l.IFNyUsQUtSa9n>5WãU"lE6*k=+bC+Tt72Tigl&[c_Z+x\8.;eZ>9Ax$ie\dAY-b(\w3px^i)#Ow,F._qyfãU"71I?Hc.RtO#a+kH>NXEh#U94rm>b]ON'sh-8.mdETv6OxFNb.&f%twdQ%;luWZRãU"Ui(wAf[mBW]O.+\,0Ub71G2AA:53E2bS)qmjAs]*x^FIi5cW9I2D9<]]F^*H>r'ãU"op'Na2;.,&vhL3nDLo6/Rf*1cse+gKf]]Y0d=]xA[[=Y9:K?50$d9IXQaoF]HD^ãU"7-*Hzo'B1Ph,6k9(H'u1z,DRAY'3r0\Eu7+fl$$zg?\5L(/VTEB(Mp4k(BDq+JAãU"Owtrm'C&H.&DRa-6ywnQ2Ct*tI(Mn/jM%(Mjrd&qcDB[CWg\&*QU-%+eDT&?m4)ãU"7W=eXLHH/9pzG;j3j1>\QH7F:;y+E()rr*v_D(lm0YD3co<=VUZsA7uY*J;M,Nr^Xb'>[J9$4u-APYTq9-ãU"wk(2McKY/fKLh/iS,oUdF(=#1A0>z,4\Q^01hq#E245Fn5]xZ$Nj_-yVWNafCo&ãU"[%\bseqe)vDaSSQk4Jd^eFn907gr>wm0w4Cpnd+Koa.f4F'&ZRbD?5Rt'h'YPIxãU"GHCE,kfkh%LGZQ3&hfo6ND6\EE.FHHFkAgI+O>FF9GZ)=p1mjK,'k9kRE)t5'6SãU"q6]eHANbRH[xd;(%U)cN?\IIU16IlR9#$7C97*sm%SZl4^[Oo]4$7zndTd4*1i.ãU"<2mFhPnp$X(O:4rH)67*L9aVP)PH7;,g*:M,kCBiF1Tn?=M.SBI.J6E'DRoLU3oãU"=VV$\17h5dn,yJUJ657W\rX/$W'07>pUQãU"Up=nNT6CZNLQ-3qNaJ*c3>t&YPCoueO7]LV=$t&r\pPP^si\\><(a/FSJZZUoi?ãU"R(cwkrq^H?&bb[Ufiwt+aM7p]NQ)xo.-<2WeM\dZJ:yqokoA2Hp(U9H-1UaAa9FãU"'w7C;FaB1v#D?.I+DWjk.:D^lUCtEO8_WOUW'Jm[4_+;f-8e243I7ZzMFX#lX<)ãU"=kwZ(3X,%hn]t3(+x0NE\L/A)jQ5X>4BF&/TU[&7D/i*D1$4DCe?O)=rmV-7l77ãU"TInAAoLI1K05.7>Oh)Y[%QZq+U)ol37,Xt1cV?'pN;S^tqIcIhFij#j:m,/loP^ãU"i#j$BVIl[+DyI:AVM*TOC'E0cN7hD29DI\\zKsWq+gg2Zf<=hkGwq+Tw:GJ8evãU"9x7BvT4QfZryUMZi-9%+SriB0CVrZJp7(bh]HEEwux+5dP3;e)Nk:#IN#Cq*)MXãU"38K7(nl-:qB:VG/F0[wk80;KY[to1u]s[)S.TaV=wHq9,65xN#?(8NN6gDam?G/S#DuiI7eN6[h$*=aHb6u>r59&2m3i/FpVM/QCmTGcãU"or0jGHG6n71Ln+mY:/$UHd8ggR2YU*rv3+a#:^5nI/FXBcHrk#AEB>5Rf;EM=6,ãU"CxB6L+N7xi&T\iy&Gxi>[97GCPojfYV7ZD7b>Hy'^n-zNAS?kGfhPSkKjoPXbd=:ãU"gP%qj_XV'o#I=5mFC2dtKM#M7l;#[RI.W\Q(p\:u<$',4uDe2F\1MM:QB(Lesk%DUa-fãU"NJ*a%fC>5skRVMmcwDm9Ov]4L9oNVPKSe?P#])+ImytBWGn(.d?c;fH>r%ugE7/ãU"LH2b2R1N\b0,rKWm=B1Zh8CWr8a1p,9$F(3m8e$&0ZbTGE38'd[U.t<.vb&ppnx^TC%#7uOgPSNe2b'%q;MHCU#sNãU"el9TtxlC+0g2Gc2n?E+dF$V^NF%,HLtãU"]5Ri=ph\h9fhD*4Uqx\8emQ>YUqx\8=[mk^Uj4V#xnu#jV7g(V206V()YxqVzFOãU"7Z[4F8=4q#R$VXIY^'o>P?'6F8IQJWo=FpNB)ekLDX6L)MTtd3TA<6Fe*_X7wVw?hYM(.H.34ujCXQ?4>4tHXqGãU"^j:HbgI.olsu1a/tX01GtF-AMbC2_?46:K^3c0HlP]3SLkWt<./2>L\cE2X6oj%ãU"n;Y6s>vebkpva7>e.VtS,z'IIK$6N]#\3^FBiO8,BBv[pbF^L'R)j>h,[y2dK([ãU"f,ODWX=P7xz1mRV:N6o-iL#F)]gYeP1il7]x:acWeJWM[vqY0RV2r#*wYB'kn+[QJFxIãU"'K:;t&ri0Va2:0gR)/Qi*#HAecL&b?&=CJ.m>)k2W^;4i)W]ZU)Awzjmoeb.%L_ãU"&6IHkO'7Z6Cg[fgAG'rs/iC)Aa7)c/^S\NJWE&NU2(dce-hu0h_8,CKãU"lb$CF2b\;Ks\[9L0nI%R0[sRoc%X?k,km,pmwDca)#tb=lguJ_$oSZU4(ips\OlãU"TGLhJTI7aTMBmw(3K8e$V[MRb;q,i<'k0#bQKN%7Ql2:N_b^;I]7m];h&SErr&ZãU"S=yb)hLWBF[,YJRlXI?%j[#J=8XRGe#1lIsAcNj?&jXk0XS8hkkN^o(,SmzU9uZGG-h0q$BsKj[.yaãU"u(gf4fUMuD*u]\6iNuU7/lGa50GH-&q;aQN=Nm;W6:ayC5Zs-/v+0/]rqq2JGe2ãU",vsKb#=yIY^/hsmS-q?T/xTGD5>bDp*UEvG6-(tesZ%Y?JoKa_gS\#Y1xk[N[^>ãU"\NlBzVPNfuJkHO;MtoW:E&Q4Dcb?P7tdH%7HY,X2Bl$?-ja-Xub?Hg-w\6;w7&SãU"Q,4rg,aFT;r\ZM7LB:7,s]-bm5<#s454+av[TRt?i.$=dOiTodMp9YL&6x)ABO_ãU"8#M)Olm[4qG>oypP#+V3JzwxqPD2sX_LZf0u6:Xjr\>?ktH]2HQdX?6id]lnl(%ãU"ig271'Y?4c6i^#.VUS(\.&d*^HQh5?m+:mX=1\asE_kS2M&G&-)0h3>Zp)KKoQ8ãU"L^-*I(GJp3fT/(K(FMF.=*1S7GXig,JuhL(q_#+ubIX9,?;Xo:j=HK4ZUa*Lg1UãU"0;>anDPi-s%PofXs.^1Mi;4xujrUA=A=zYECscWtW);Y\/+Mmib_];XC*Xfh_T,ãU"lk<EUgk'B22_#jPSor^dN\I<8j9]lWLhWV%4VI3uC&v)&7S^>NQ]?>kG>\%]ãU"1vi[4H\Q8e)8jnhi\NGQa:m]f?3[6&pb+_:CgQtmfYrL?Ij#[?w:&8jna/((',$ãU"-uS,B&-\lRZPetpROFWfSZS^O9t2#oBTjm8_G*,_Lg&X9BU6n4MC55ydjPIE_f+ãU"k0^]Om'qcQ$TWmVS0j[Gm(>IuiZe4bP'W8GPU_E)uvlq]YgkfE2R?Mc^(N$T^:HãU"u)Qni/+kkooE\NMUz/*x_uzGu]n.'j:9yqVcj0++n.BE-Xi'5)Wg:*q#LE;rNNmãU"Ccketg:t%m5i*oL/Oi/QJHa,y5B(AN['af>rub5?\TKgBk;SA\U#RbIWB*ãU"vDAy>Lo*u%q%[p3)wO5#99ceF1jKx.jaJj*Ae[N^ONpdU6[-J:70#5xM$*F&rfBãU"aw7HeX67G.wb5OYcGex*k\=%gM>YRB&pk_?i3cVr,z1ledtg?;kX',>A(:7L3'BãU"J4?+MGpIQ23p\DG#0ob-\PZo1Hl;I5I2Pu2d:$,X#T[)#rZ>n]U>q;nXT:\)FJWZ7N=rP=u:+ãU"L?-1XQ9CaWk7oa*8./,QaUDVET61E,MP(Y0beL8FE2+Wn'*JR78)N6.PW>6xb_%ãU"7b%&ftV-7:xg(cNG)&WKS/^2DDJtBeJRm1\tGDWz.8<^RfxMw)Xi4.RxrfsnSrbãU"j/P$rquU,cA^mS*PxE=PXY,Kjia)xZc*LZK)d8*]v=Tq(vR64*TAyGB\L(t4%j/ãU"QTR\^D'Amq/IdZi7a;mMupyZJ\pk$QaTS2MIgU+\ãU"nrR+f6w#Y[F7Uv2.O4(eREaMpj:&/JMwM+K9W'[-NM#3Gs+.eDMWmnqAN9S=d3(ãU"kayBr=CAQf*+4:/uYpV?N//qgh4kTn)CV8co(X$YkX2x;mcr0'k8E&=C9xD.&UOãU"%%'E&W)oO'u()Yf.A7%ro4>-O&dU)U:(-'%pS/>%OC(?)]?:B)7C-PUW.)IP5%=ãU"f5&&$5>v%u&Og*>w)ZSoKM[,)I%?4g<7)^RoJ-;[%I&m_g#a,3QB//pUY)A;'N/ãU"(*q59/ag%MCoPws%9PJo5RKsYRPRCO(Ws1PjHCQ+&sQPPNCPAs[APL<2Xd_7e%GãU"PaIe?'RJ7)\sJ$ZY%eo:8>V)XOoUZ8F)/Z[o2Y8>k5XJ/YF>FkZ(V/1>lDN?Y#/mA>#ãU"?'BU>H23S\m.%6_*]/E;:LG(3Z/1:'jG%*z1CZ'r%6,N12n'hO)CZ1R'spO+./1ãU"B'l6O*DWFqT/(\0P7943]OB/Wh?m43Rp].*s$x*ec]2psbLe]-](GS_Xe[R]0GaãU"?,e%]O,G$B*ek1TBA.^0.L7g7n_%DAAg)n_84)5M+7>W'InYX5%>Ny1)X0>.pTeãU"=+&[=:l*['kiIjmSV8Nxx$V0X(3-W:HsM4.YmnHu?Y#8JDVXãU"Z2[WWu1#+jb2PRaJQB?(pcpOl\&lh.iFp4ewYXNd>VV^smuKW4JDiJ,zZwj#cg4FKR)B5x=daMM_Uf1PZ,rSUL%LW:/.P0(IM.fvcLTr.hPcYãU"qjadR3xh?s:dxeQc'7mQVsI?*3lLh*JfwFYjeNq(EHUT<.8LSFkQalj\8sZ?YYkãU"TTn7jfZ7gGELUV:v\h*yMWofttNar8TxalVt(q+&8v1PyãU"Y-ofRTai(,DYN6aB.OYhg#s?[=*($VLfãU"]n8_1Q>.*kt4ZQHOY9Vd2d[qz7NK)LINvzl&GCveCk;B(1dDAdwq+-VZBl4aFO3ãU"hKpa[wmOrjl0XV=zA*t#x;bri]-/-8V]^j$d0n=QX#:pfc+xãU"4LVj0OTq*5s/+2P$gn=C3.9kLx?3vDRLZgQnd\:O+80GV&dZwt7qTU=xuMfa-G6ãU"PP-:cu\r272VXKd;+Lsik$cgJg^lzt*d(mkGC^0Z73(tADpwJZ>.;rZDT0FZ(KhãU"JE_lMw8*asu?\.V,mp$Po*VKOH6uB\*K2xuF;MB4W[Hc'__eKcMt+,qw;:FSF-MGv2R2Y&]1?,'qdu%p()/%%%%%g%Z'3aGO^>%?,%%%%,%%ãU"%%-%%#%xn)%jSrf%uZVQ%ZU2/%up()%9%%%#-%Lz9_G%-3A:w)7%%>9%%%/%%%%ãU"wj%firj(S%YU3N'16*-ãU"dL0KgBMK.o+haF\$)31=^:Y)gn^%Hac4Prhfv:X)MB(0ZSBW/:=n:fWl'K=heOTãU"ot&-*64&Dj,PJolstjw:-hq>wvaP)SkkBn=-G_,8Y?p4w.-#;:yw^p81(i:dYh:vyQ$nqMEGr:9PR;x1C84JN=+cHW[g*A3V<,gM=%jG0ãU"NHfm6/AxMvZXt9&[JEd6rAQmd[9-;%Yo^xI/g/65G'TFFUH_xrLbpm/(X$zmNT19g'twq5DsTvOSZ?q_e3:#/6nlT2lRNãU"'bp6L(pr>Ffq-..Z+*d]=GMb(V&RX:+3In\D2_=:r''A]f$_d/Fj[/jwY9S?e$EãU"TPSWta:?=>PFLds]:JL#?Jz)<1[05$iRn2WIdXdVh<-aCNVrV%b9]p%/oLW#1.8ãU"G$cr/;K#3?Y%.\;w.OP(U2y60oiGBu730_ZPoh'qL$BC't6;AC[Iw\/mE)i.<,7ãU"&ntgE#eR#^^dGg,uo30j,QkS0m.[,1a/$b9q1Tr=*0H/gekYPJ'7Q1KQBZ?,m\cãU"F53&\4?DQ\#;3Ck5n?6f#'61wd8Q:^f?1?2hn#%$2Cf$>s,_$#(]/Xo3UcD1GnRãU"=;+Pc[[?.;C'>>jt]S;lSd>4k.C+4o34l4<=8$0F1V0WvN*EDmHn\DlEM6m'C])ãU"(0#e67$Rh]<,v<.:Fv?^I6?g0+^6/9K1?BhetET#6j6+C_2F-Rd6+OlK<(1g9)aãU"VrUI,v)zoGo_x+5aC-etgX;EM'aQ$^Fuxw8K>dr8vPb?5##BG_kP82]VWX<9?Y[$*Q/*e5cZAk[gHP9R0hMZSrM26My%oT3l5ZrhN%?,%%%%,%%%%-%%%%%%%%%&%E[%%%H%i%%x(n)jS%rfuu%p&'9%%9%%%%-%LãU"bz_G%O-A:w[)%%>%9%%/%%%%%%%%%&%%E%%+%ui%%%wjf%irjS&%YUu%p*+%%%%ãU"%/%%/%P['%%E%n%%%%%ãEND SUBãV2ãCLOSE:IF S=80AND 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ãBS V/D Berg TEXT PLASMA buzz@ddsw.nl 07-07-97 (13:00) QB, QBasic, PDS 142 2543 TXTPLAS.BAS DECLARE SUB txtpalget (col%, r%, g%, b%)ãDECLARE SUB txtpalset (col%, r%, g%, b%)ãDEFINT A-ZãRANDOMIZE -TIMERãCONST PI = 3.14159265358#ãDIM COSINUS(160) AS INTEGERãDIM RAND(255) AS INTEGERãDIM oldpal(16, 3)ããFOR i = 1 TO 15ã txtpalget i, oldpal(i, 1), oldpal(i, 2), oldpal(i, 3)ãNEXT iãã'made by :ãã'omega , omega@inorbit.comã' buzz , buzz@ddsw.nlããFOR c = 0 TO 160ã COSINUS(c) = COS(c * 2 * PI / 80) * 16 + 16ãNEXTããFOR c = 0 TO 255ã RAND(c) = INT(RND * 4) + 1ãNEXTããWIDTH 80, 50ãLOCATE , , 0ããr = 3ãg = 5ãb = 5ããFOR i = 0 TO 6ã txtpalset i, i * r, i * g, i * bãNEXT iããFOR i = 7 TO 15ã txtpalset i, (15 - i) * r, (15 - i) * g, (15 - i) * bãNEXT iããWAVESIDE1 = 1ãWAVESIDE2 = 3ãWAVESIDE3 = 2ãR1 = 1ãR2 = 10ãR3 = 20ãDEF SEG = &HB800ãa$ = "ºúþ based þú"ãl = LEN(a$)ãFOR i = 0 TO 8000 STEP 2ã POKE i, RND * 256ãNEXT iãposition = 8000ãposition = position - (l * 2)ãFOR i = 1 TO lã POKE position, ASC(MID$(a$, i, 1))ã position = position + 2ãNEXT iãposition = 7840ãa$ = "ÉÍÍÍÍÍÍÍÍÍÍÍ"ãl = LEN(a$)ãposition = position - (l * 2)ãFOR i = 1 TO lã POKE position, ASC(MID$(a$, i, 1))ã position = position + 2ãNEXT iãDOã WAVE1 = WAVE1 + WAVESIDE1ã IF WAVE1 >= 80 THENã WAVE1 = 0ã R1 = (R1 + 1) AND 255ã WAVESIDE1 = RAND(R1)ã END IFã WAVE2 = WAVE2 + WAVESIDE2ã IF WAVE2 >= 80 THENã WAVE2 = 0ã R2 = (R2 + 2) AND 255ã WAVESIDE2 = RAND(R2)ã END IFã WAVE3 = WAVE3 + WAVESIDE3ã IF WAVE3 >= 80 THENã WAVE3 = 0ã R3 = (R3 + 2) AND 255ã WAVESIDE3 = RAND(R3)ã END IFã position = 1ã FOR i = 1 TO 2ã WAIT &H3DA, 8, 8ã WAIT &H3DA, 8, 0: NEXT iã FOR y = 0 TO 49ã E = COSINUS(y + WAVE1)ã FOR x = 0 TO 79ã col = COSINUS(x + WAVE2) + E + COSINUS(x + WAVE3) + COSINUS(x + y)ã IF col > 127 THEN col = 127ã POKE position, colã position = position + 2ã NEXTã NEXTã IF INP(96) = 1 THEN EXIT DOãLOOPãDEF SEGããFOR i = 1 TO 15ã txtpalset i, oldpal(i, 1), oldpal(i, 2), oldpal(i, 3)ãNEXT iããSUB txtpalget (col, r, g, b)ãc = colããSELECT CASE cãCASE 6ã c = 20ãCASE 8 TO 15ã c = c + 48ãEND SELECTãã OUT &H3C7, cãã r = INP(&H3C9)ã g = INP(&H3C9)ã b = INP(&H3C9)ããEND SUBããSUB txtpalset (col, r, g, b)ããc = colããSELECT CASE cãCASE 6ã c = 20ãCASE 8 TO 15ã c = c + 48ãEND SELECTãã OUT &H3C8, cã OUT &H3C9, rã OUT &H3C9, gã OUT &H3C9, bããEND SUBãKurt Kuzba FLYING SAUCER ANIMATION Tony Cave 07-07-97 (05:17) QB, QBasic, PDS 113 4944 ANIMA.BAS 'The following is by no means a finished product. I just thoughtã'you might want to see the no-flicker animation and page swappingã'on screen 13. The program uses PUT to copy the page to the screen.ã'Copying a whole page, though, slows down the animation considerably.ã'Any suggestions would be appreciated. Just bear in mind that theã'program is not finished, and some of the subs with "Page" in the nameã'only work with page one. The animaiton is done by:ã'1 copy screen to memory pages, page1 and page2ã'2 doã'3 place a sprite on page1 (color 0 is transparent).ã'4 copy page1 to the screenã'5 erase the sprite from page1 by copying part of page2 (PageCopyBox)ã'6 loopããDECLARE SUB Attrib (Attribute%, r%, g%, b%)ãDECLARE SUB InitPalette ()ãDECLARE SUB DrawBackdrop ()ãDECLARE SUB DrawSprite ()ãDECLARE SUB PageCopyBox (x AS INTEGER, y AS INTEGER, PageNumber AS INTEGER)ãDECLARE SUB Stamp2 (x AS INTEGER, y AS INTEGER, s AS INTEGER)ãDECLARE SUB PagePSet3 (x AS INTEGER, y AS INTEGER, Page AS INTEGER, C AS INTEGER)ãDECLARE SUB Snapshot (x AS INTEGER, y AS INTEGER, s AS INTEGER)ãCOMMON SHARED snap() AS INTEGER, leaf() AS INTEGER, swp() AS INTEGERãCOMMON SHARED OldX AS INTEGER, OldY AS INTEGERãCOMMON SHARED Page1() AS INTEGER, Page2() AS INTEGERãCOMMON SHARED CurrentSegment AS LONGãDIM Page1(32001) AS INTEGER, Page2(32001) AS INTEGERãDIM snap(15, 15, 20) AS INTEGER, x AS INTEGER, y AS INTEGERãDIM leaf(10, 10, 20) AS INTEGER, swp(10, 10, 20) AS INTEGERãDIM t AS INTEGER, T2 AS INTEGER, T3 AS INTEGER: SCREEN 13ãCurrentSegment = &HA000: DrawSprite: InitPalette: DrawBackdropãGET (0, 0)-(319, 199), Page1(0): GET (0, 0)-(319, 199), Page2(0)ãstep1 = 3ãDO: FOR t = 0 TO 628 STEP step1ã y = COS(t / 100) * 320 / step1 + 100ã x = SIN(t / 100) * 240 / step1 + 160ã Stamp2 x, y, t / step1 MOD 5ã PUT (0, 0), Page1(0), PSET: PageCopyBox x, y, 1ã IF INKEY$ > "" THEN DEF SEG : EXIT DOã NEXT: LOOP: SCREEN 0: WIDTH 80, 25: SYSTEMãSUB Attrib (Attribute%, r%, g%, b%)ã IF -1 < Attribute% AND Attribute% < 256 THENã OUT &H3C8, Attribute%: OUT &H3C9, r%ã OUT &H3C9, g%: OUT &H3C9, b%ã END IF: END SUBãSUB DrawBackdropã 'Draw Skyã FOR y = 0 TO 199: LINE (0, y)-(319, y), y + 56: NEXTã 'Draw Planetã CIRCLE (160, 800), 770, 2: PAINT (160, 190), 2, 2ã FOR y = 0 TO 5: CIRCLE (160, 800), 770 + y, 50 + y: NEXT: END SUBãSUB DrawSprite : DIM t AS INTEGERã FOR t = 0 TO 2: CIRCLE (6, 5), t, 21 - t * 3 + 16ã CIRCLE (5, 5), t, 21 - t * 3 + 16ã CIRCLE (6, 4), t, 18 - t * 3 + 16ã CIRCLE (5, 4), t, 18 - t * 3 + 16ã IF t > 4 THEN Snapshot 0, 0, t ' X, Y, snapshot#ã NEXTã FOR t = 3 TO 4ã LINE (-t + 6, 2 + t)-(t + 6, 2 + t), 21 - t * 3 + 16: NEXTã FOR t = 0 TO 4ã LINE (-4 + 6, 7)-(3 + 6, 2 + 4), 21 - 4 * 3 + 16, BFã LINE (t * 2 + 2, 6)-(t * 2 + 3, 7), 14, BFã Snapshot 0, 0, t ' X, Y, snapshot#ã NEXT: END SUBããSUB InitPalette : DIM pu AS INTEGERã FOR y = 0 TO 199ã Attrib y + 56, 0, 0, INT(y * 63 / 199): NEXTã FOR y = 0 TO 5ã Attrib 50 + y, 0, (5 - y) / 5 * 20 + 20, y / 5 * 40 + 15ã NEXT: END SUBãSUB PageCopy (PageNumber AS INTEGER)ã IF PageNumber = 1 THENã FOR count% = 0 TO 32001: Page1(count%) = Page2(count%): NEXTã ELSEã FOR count% = 0 TO 32001: Page2(count%) = Page1(count%): NEXTã END IF: END SUBãSUB PageCopyBox (x AS INTEGER, y AS INTEGER, PageNumber AS INTEGER)ã DIM xt AS INTEGER, yt AS INTEGER, P AS LONG, c1 AS LONGã PCBSeg& = CurrentSegmentã FOR xt = 0 TO 10: FOR yt = 0 TO 10ã P = 320& * (y + yt) + x + xtã IF P < 32000 THENã CurrentSegment = VARSEG(Page2(0)): DEF SEG = CurrentSegmentã PagePSet3 x + xt, y + yt, 1, PEEK(P + 4)ã ELSEã CurrentSegment = VARSEG(Page2(0))ã CurrentSegment = CurrentSegment + 2000ã DEF SEG = CurrentSegmentã PagePSet3 x + xt, y + yt, 1, PEEK(P - 31996)ã END IFã NEXT: NEXTã CurrentSegment = PCBSeg&: DEF SEG = CurrentSegment: END SUBãSUB PagePSet3 (x AS INTEGER, y AS INTEGER, Page AS INTEGER, C AS INTEGER)ã IF (x < 0) OR (y < 0) OR (x > 319) OR (y > 199) THEN EXIT SUBã DIM P AS LONG, c1 AS LONG: c1 = VARSEG(Page1(0)): P = 320& * y + xã IF P < 32000 THENã DEF SEG = VARSEG(Page1(0)): POKE P + 4, Cã ELSEã DEF SEG = c1 + 2000: POKE P - 31996, Cã END IF: DEF SEG = CurrentSegment: END SUBãSUB Snapshot (x AS INTEGER, y AS INTEGER, s AS INTEGER)ã DIM xt AS INTEGER, yt AS INTEGERã FOR xt = 0 TO 10: FOR yt = 0 TO 10ã snap(xt, yt, s) = POINT(xt + x, yt + y): NEXT: NEXT: END SUBãSUB Stamp2 (x AS INTEGER, y AS INTEGER, s AS INTEGER)ã DIM xt AS INTEGER, yt AS INTEGERã FOR xt = 0 TO 10: FOR yt = 0 TO 10ã IF snap(xt, yt, s) > 0 THENã PagePSet3 x + xt, y + yt, 1, snap(xt, yt, s)ã END IFã NEXT: NEXT: END SUBãBobby K. WINDOWS LIKE FONTS christie@intonet.co.uk 04-01-96 (00:00) QB, QBasic, PDS 870 57455 WINFONTS.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"WINFONTS.ZIP",4^6:Z&=42867:?STRING$(50,177);ãU"%up()%9%%%[-%2+A+GAA-p7P-%%%OX%%%.%%%%wt%rfsS[vgkf/'rWIIn:M$^6dãU">NDd)JY(9'q\<3VJxYy\IV_0zA>CbWEWlYFQjZ[+)Dej;J&;+E)r\aGEA030YjnLu6V4dmRDFP_($6hr6Gjw.GJ\ãU"m9IBsSrVrXJ5:m>?2W^WteXTW(>Z4[^Wj*jJ9j\jD.V/=)KX/]Rlt:rYK&EeXf5ãU"N>Ba$klk4:r6>Jwtz>>w4c\Zc*svo;r6.mwrMJ4pkXiEq=qq,U70tNX]nXEHSKqUOi%WL3XxW?iH[;NãU"fib)kkJQaTPXwh7dj?W88nm(mCtKa&3k>v=^qqUM4q)K-HsC[sY0-2$I.IA2WhhEZchjB*Y(s0MAg?em_sI:mc=T#'_E%NJãU"WcqpU^*I&aMV'L1nO$2s(0;qfQ)Yna=-o2$c%i(p)>qP4=UY&X:q1=KQ'X1C*0)ãU"o\SKAlEE%?&AixO7P\^[9i.4$S/:j5Z#WqkOsu$fyPW;8-*4GcELO/+*5]D?V?a'qUovmãU"mc:%JAA5s,/Z;P6B$*jD[S6Z=0\Vik^>kv:Og*=5D9Jx1.?K%fbXoJpvS*RTD0kãU"2b5YqiSxCLyAEswu>hD/qesTW:6a1=R.$C_=0ugIH9^p>SJZ*HqE4LMc3h*>Cjf=DY;fPp5m0&wq(i_(9EKYky[#&4)/C+=Nm;/0]d(ffãU"EnCHDCK._'LN%=EXV,4n>WoAV4&P*CCN\[aOu5i+wdd^Ae4i9'Fd$AbF06AM8-1ãU"RAkmpj;tm2k?/Kk8.U7'P__a'iY[:87s:+2dX9kNbãU"+5s%/F)iSR_6G[gTsK_kP0w_#WNu-IhF<+PNJVyF[V/:\;FA<[68_O\;14qc,%T(^KyP[*7X*pe+-2qCJw>'tBOz*g)zkLPH(=-ãU"MYuFmfPX(X-USIS#J48'Q2NHlJEv='rG=S;r*Lm_3;>b\Z-BAJepi_y1$liNpa+Q4Oy\kYnN1*/9i]qaM=x4a$-h-4VRcbtP#P_A_\l0q]9$%TR56+j?V/bB6l[9II9:9/wep1n$\?AU#ãU"B]\i-FzZFul1*A:Eim52AZD,>yt<(VF^ãU"+F4EZ9oE_\DGilDJ,uuY*)h#*FSp^I8keSt9uR7PHpi4]I=oAB+=jB:kQ?+Z2H9ãU"C]#/k'HED./TK1.VS$b-/hH):NaCA_)0z5f>l*wYBAsx6VEd]hGFq.JYx>5k\H*ãU"Yp(:=TZoJue$J7w3Zc,6:DJ^x$Yd'S+M6z/ljS7^lQxjB3:cR=:J8jp/4Yps+&HãU"i_a'\4O7nnz9ZDkkNo7hudhM*w__j[\f/_Ep'EQU34*?0;L=2wrWH%V/5<3$4AwãU"EK:];0MaXa9j9lb;Lm._DU[nrT<*U7tvGngcW4B]ut0TtNO0v6-_h;HQofEcoRXãU"kJJc]B-hW+\AuNx0A3NG*p9-m.Kf4R5DZ),Tur>I'tMT%zk'$ASE&:1c;A24h3VãU"^_rfL4FlQiF2yW3>%>uP6MRlmL=NX?j?WlB+r3yW?sR2H-_^<)$[uNMIDF$Q;GTãU"CUQliYs%fFqA7t6/uãU"4v9L?mMeKj]B.Ryy4.WdV\w9ok,<:Cx1Os;q;sFQ2T_(/.E:]g3bQH#RoH;kTwpG-A3+a9[zevt%T)7Qt,s;a_5s>FD_\.jHv;sos.bv_czI7SD((VãU"n,X3)JV1U^5iAWddZs0s4fviu$:>Z*$UT10xU+b?t=RTtlvrRVNm6AY=hU>KGBm*q*HhC^l&cãU"83kRd#OP8*HY2^VzMn)LIlntz8Y)v#9i*IMflCS6PtM+oK?S8P[dkt]7sasoau?ãU"agaLdr^\98_7cMM#K>-uc]W[D[*F_Wwu,UHVqL&w-byrv=0ohgW7A7](SVM$EnWãU"nmhxl,)7S$_5bWF9v>(g5X6Ol9XoYXaw(??8m#?;XMQGQSXh2g<+I$5SBqV_n:ol*Y00ãU"9jLiVNnn6\k'ix+0qWYK5x1;_X-yLScVF'#t0+2:'Cf&id/#ãU"78Gqg\J8*<)V#oxãU":UqI%HBoRz7LEN9kk]TRLE/Nt9Eb:^hppJda;Aouc](BBZ[YF>h-;&K.7[JW^KZãU"L1Eh6Vtc]W(h%prgr\xZhMJm#NQFAcE+D$Wpq_5lL:jx8t5$Jru#[0Qb:v0Ke(bt;#=I9H^^>7C=OfNhQVSiV_ET8T'W5T.]Gg4?Q50\*XSRYãU"dfvN*r(OtF2'PTHSpq*l-]1xW'pNmvYbCJmy2UDxi+CRMmpJX2EbXsTFãU"XEHvNy>%$NB;-Qjm7VG2\D:pJ;*-<#t-'(?v$FBIs.e5l/Nr_e.SLwX+\_Vf,=6c9CCObFyg9r[TE#'B7,n(B\nalH9BBHUXDM:Dqx^FmQe-==9J7u*q=lT9mRo,]aNcn)rnvOPjTo5U-Zy;&gãU">w7vflq1:7jhEGEEHp9cUSHXqWyD,?NwlW#w7g+w')Rl>Ni3I+SYb(0c&t^C3BIãU"A,YkgrG>\F6RTX#VKey?I[_JVG^C[tnstn4_.F=NZcvMz>>38Dp2sJ;Hl#$5BI7X)cl#ãU"V&M*BKk/)'I,\f%bdAR0kc.[UO+YSKruQTZa,\-4Q;XP*0_0(cV3E$Z%Ern3BKY12s)beTA0)Z;P0s&AUe+(+/'n[6v*-sRuU%hiz3'fãU"5-0'QXZDKoFtPO-El%WbQD9Y'a(*+J]]e_J%ux]R:BYSJ55bJ^[]u'ZpA1w1#yjãU"s8ni*L[XmpNBe=kqa8opu\E>H#f9&=pGY]C,.Ga_yuUWe2Xk1h\BftRX]?*o[_OS=)_9Q0A3=tQB(+wE;$eW*iD=an(M(H:iuAF;Lb):7#>N$>&nVljy5ãU"UtEtzA\0BO2aNmw810u$0X>M[C9IpFFp5)LQWJa>'084fVekF#3rU>N>Z[/WYN,$se>3^8S\f/_DXx=eH+2LrtPl:9cNqok;B=t)(-swoZC%Tdz8**c3GPãU"42i4Gho<#9pFe<=aB$u(d-0pCI4a>.2*NgeQn%1W:1Gk]MmWZc3e1pR6uo*o>n<ãU"3?<+Hgs/,MWt+:YDkz:8,xCFrV=fiFP=u64/HprPzI/X9O]pptAq=0AS*dh-f7)ãU"E8HPMd1*'FrVT-6(%jHp-$4W+X;?4iFtaCrHVL4YXJm=$[Yg6hL,MaLtMp\IAB<ãU"mD(yg/j8Vx^Tf-p;P4&C.M&iCXLeJQ_/?Mq^Z9rDospse5mhev/P;fDwqnh/6GoãU";.LEcHk7Cpx.f(jpPWT(?X>H>U/jG7cf6,iBBK+$.g,k/O,a%)2^VC.(;97-+gNãU"CUs:or[O\.s<5_83/nAQ:X\Z*Z<9DEBRVKt/QDP/T$oN0d\fEW:$r1_RXD,u9.Z6fkNdbiGnOB:2srWSXigd>R#d5[)?Zr0tf5V3\t]ãU"qb[v^GFnuAbS59:Uj=]^VQ(IV3;(B:>;]X,h)igCtzwVtmEjx6iOnrOcJx&?JR^ãU"U8Lkl8)&iG[WCy[>=/'x'_hPt=Fd\+D&tfGbU'oCZs:l]wA5m2ZM*[irG5kK(jiMeCfRMWD0*p%)C8xi+oq(eaoaMr\;MãU"Nq)97w51NYcKLwY+Bjojc&MA)8d&W3)2pgQc:0Ji'WHoE#J6Iivj*vBgYX><ãU"WK8bDSfFQcpZhq4'7V$\?)tYFLq8mu;ban3aKCV9396Du?#j(9jdj0KqOe'WZ45UYnZ0GL#^?RH8ZxK(VãU"HJ^_n+mW%rcmcFr7n=4Ipa,ZB\]^Q]h3$8mpXoj4KzbunmlmQ4m%I/gCvdMvNtgãU"tlBWEHceoEaRt]taOtF4SnbCM*B;;T7sRGS3W(g'g_99)kQEP3d,hwBA#-6Jb;bãU"9\+A#E=U%*m'a[I-OGHHNAtvLb(Lmb,wI-RL'9Svka/7an#cs,J(t_ub'fbRfVJãU"^E#'NCiKyUI+[7>PrSKIppt.:O8dn4$Cd6OPa*g(hLoHE;]qA)mJGfBDVwt:/Y6ãU"FFYDC,%B^pm0P6EAFPKR6VW^C)gj7t(.Qj:I'lRSUg\yygO3]<-MJN-B?qeãU"\QPuOcKr]9:Y[2B(H_TUI3zc^%JxGPe4,]-v>,7OkfdItuFYQh+A&%p;Qnc2HL1ãU"CK;-VFCYa;e5_EFP(SZMq&>5'DE,mxZ(ATUlIF]PpRo3>=F>T9u'H&]IaLj[i'BãU"?-_o:_PL4=E5qudtFY4?,xh2>d.cv0\c9MCFc>VNQ^VBM_SO*HTi^B62?jOqmtnãU"kg_S73,0ZV\iBxE$9<C)o:rC=YBP$3>\xOwV\%n*Bfj_*lX$xSU]v>ãU"]e)=idJ=AYy;Fr\\qsbHQg)hL_K%/VlJl8D>\tO$EB_sdVeWe9]0ht,fTW:'iM9ãU"z:8Cx^CA5\qAyDd1BmX6'1M<,gfsA)3#u2i%.tãU"CP>7Rn2uN1\/%f>Jzs<((hDedA;8h9AzbP)hdiKm/6haZ%-tFy8>H1o6)^TI/n8M0V2ãU"%0Ehf7Q;1f)OHVlHQmM])Lvu&>6:)*_aX<'G>n+g-rc9.7MxerL#Utb-TJ>3.r6IncKBBTDLqKCpaQZJbrãU"J&Kvb;jbhK/^K^L0HL>AqNCunTjT#fK#\u60LTv4DuNsf^LvLX\ma_Z9R$,4t6$ãU",Hk6p5d'RDXXqJLw:?u,r\9lD$T>ZL>w2MFY%O+2\=#_OeFm'p0Ag5wZ;3p+e'6d;A)r0di.u)D3'fUJS8RMEgi]D,2qãU"2ltAVU;BphdbADu2X[[5v,Tk9Tb\7+=dT7S?#H5TKBvg0<*HpS;$RqkfT?>>+nPg0H_ryjlOT)*gt9WU\($7VsFkB_-2ãU"?TlEP:oni-=?Ui+/51.^df*]j/o[6tjmF$DTP[^*=cvSK'?.U'ãU"W=FcmN'Cw.pP*vA0[3dpTTCv0(hv4:1^+qre^0LeXEI6AZ3t(=zF>+$rIH(\z7%ãU"W8BPdvV9bvEjWi'(=e7^7(O8pw26p;(?;pze^;Cg4kw(].0pt-*IITC-JV^fdX;ãU"Lg%wzM8(WwVRgvv;,n$yU$2glgrum#ll_i17V.$aãU"j9cX](=hiETQ]c5Z4&%2p^]riO5p[R+3L,2E1GCDuwS$9[/d4'Uf=PTEVT0n^'0ãU";t-ãU".-&5#Uv59e=\C,&Z[pEocMQSL+JC6ãU"pDD)fR3$a0/6X5,5LbãU"&x4EAwLqm[kwt/]HBz4dG?5M'EslR1y<%1KlI%N=WTH[&L$9Iuce)Bm[VpCyhPZ?d*B_Tk4'#Bd,I6wx:U*U>QcãU";y\?UOc1-9rF6;3JfzW'l()]r\:2TVZJpX\eC]-8XwoU6A+ZppBx>izCUJB;j$)ãU"X%;SR,r;6bZb7'^aB'HU:5o_m#c]fk]qrMBI3Zo#>tQ)w:I2%y6.dIH[>(RbCB#ãU":U,edgJdUV$S1dF4wt0sHU$usUIbS8qrepUXm(I3[L\^GYsna.InaI(naInAaInãU"a.InaI(naInAaIna.InaI:na]*'kTup%()9%%%%-%46++G_XPSI'N,%%%3n%%%0ãU"%%%%xyjs%hnqS[vgkf2(,7A]P:c,6,S,nXP&mc7NNRujobr9)H'#l1P7puq7nS$ãU"\y9wK_Vq7S.MsqB%H7#7BApNUd+ipmd,/tIIc9YLV\*4_+wLc9B^N\D=#$:4S2gãU"e(P:+bJr7Bhe_,8HDU7M4V3^2g^tBgr4*$mX#]L7jmabsVvV[=K_;%rhiLd[-^8ãU"M6vRKs]iz;LpoqZfT.Zr..NwUx:=vu\$\0u\dj6Tqpn-9v#nuZU;HsEtZPlãU"o$$8bWeE_fu73mc]K$pnN^6fNu)u?kptfx-Zugk(NCWwsouO)mlIU(>#xj)mWvgãU"Jg(cZl$PUQ0Rk)9+)FpMIHu'6\c9r_n$A#7^F(_qTe647gHX,Wx%+Yy,/ãU"Em<8SDnX5<.(*lu3HkãU"KF3Jx_saiI)ntQ:#XI^tj1eLm^fLKJK-77nKb6mR/=J49\Tl3X36MM9f:-W(.0pãU"B5rSG9Ww-JBub:Iub%;Ie%L0$hfkeWv(+mj+L;$qg9],'E]9>9DiwUOkk%DVYo]ãU"0AIS$Q:>8g&K?Ob2XSH,8G#pj+D2Ht\TxU*uSK?#V*kk*QUXj+i=(?kãU"#EyvZ'YDC0evJR$pTlqZ^V',IbRlKVDOx?bCJ8])lM;S0RG,(HG)R[/fN*EKsa4ãU"n,2r>gGnx-A^WV(C[ZYyQNhYDb)la'zQEkDbpJ6956BkF2B7r<2a?L_T3W)VRqIãU";4no9:AXiZlz4t_Xmc+#oNL_ypx9>*iH[*$N7$kJ4_O]pItn#taky$%WvL\-erDãU"sN8:1D:?mf]'F2A$Z_7^KiS35(e\]?7t3Qwt*X3#iCbDo;-Q%8_3mRi(0mj:XZhãU"n,+O0b2I\RAsbAC_)&w0io>BFHFS6mSkdlTRx5k0X9lRlvB(60.7=B\NPPbwc7tãU"uI2CHin(mK8'JF:EvnccYFVu:u\CvG7tQc6gZ5]hlnPbb?eJLUãU"HV23%x,_hthJH/+:DAm#dkUhB[:.eY>aN(/&YHGJW6%?)>UU6B[s2%W_Y/*'zf9ãU"cj9Hr)gy?lq0,1)t^Wp5K=gqK&X,J#SX7EJn$L3(:=h3Am*lziiaSBW7)crmyy0\>C.\ãU"GsMX-.^mEr_NfrXLYLABtJP>ApREBj*R/]v[SJI4uMm^VnJaL($JkL$zl6;p?4KãU"A$.X*i1z:I-5m/EiPs$%?#&n?B>a/0LTDMlY%o^#_P51'9/k;(n>/iCx3rD^0pdãU"a:d3>*'2m]DEmq5;uY?b<5/gFtneCD)z8WX#4Zud?g&.83]BtLd/o:=lj6SS_drãU"k^j=1;xmUe53eWBCGS8A^bEqYa.lrnH$tvq#(\ãU"AwtAKo^XAA:BTu>M5w,bLoKq]&c/s_W%*h=6O&0Ur3k\i:n)r81p7(o5boE7v$rãU"n(b*izCz;r\QD\x&co&)sip/Jg0rFRD#)Zs'?^3%lu0jh]2ilccLIfbb.[;_xFeãU"_d/T\jQg>kU?:c%6VWqd%Hp2G,Z$uaoX;Z5X%i+im1BTCTYxqCdiHO+)fr=hAreãU"7t/PPFkqw#(CG:b)UUc#?/dOmdUzL.V_HInX/vVI(1JP^l7]C[UP_k9QMwwL2ETãU"s(LZ3Ru0N_NR*floJ[Cz^/]('-WtC4EdeEwx60i[.92m3D%lp&w5iUm9hOr4%%KãU"3.wR'0+5wKST)2]wcU//>N8c5NbC#jBI-y^sãU"q&hU*eoernp]ECJ/w[Znb:V8jz8IrOdu.IoB]Y^PbwWopS^R8-_M-A#ZH_-vWzEãU"lLCgV:[?Ns>pSR(\KwWXLdY%UDJ8aD5A_ZiTrMjc#dLm[Yq*/q#l<_F*U;M7RWLãU"&apQz1)IaCKile]%&uSl)fGLW2BgugR;(AC)1JBugR];A9_AoU,T7^MEfA03_K4ãU"3+:LS+-0I3:&+5$[Y9_&GgY^w+V0a$S(*6l7RKb;iJEGf^HpqhLlWeãU"j\>.7c$:aVEbV0atQFtu97nGhH<>FuTi/6u70hvugvbv6\F4?YhnE-V5_rgthn4ãU"wYuxKNo\DqhTuwo;nERTH:C4$K8=rerR1Ku/Fc18;X+4:0fiF7$XC_oBsl22uH&ãU"usMP_$T=>00il>03QSB':\YlT>Mj_wgPFkd'dg2f-f+,t8oXl^rA0YK.5(BWODcãU"3XdvPHfCk4u4K(u/)^yq\%TzPSz$N.qyRcT?c#cQ8fQ5=B>m_$sEC=M/YuA7KrA8/k$PãU"z0;lk8>T\,\XkZa36oKWI>BGo*B4OP3ARt;l0.I2xa$'t$v\dg4nFVc-ui$57-5ãU"k5hOBfr=zdHq#ie8Mv-Q7Fc+Tc'D9^,I994+/D_tOo5INc1)tAq>6qBNn1$m3u/ãU"r:rWxS_$^+PhaO+uMV=4hK00.WLwN%^_ZH\h6-CdV>6cht?uCNq)sGãU">uGAqlYZPd*tTfiTB^D_\WgdGAf4\9xVL7x#iZ3gIfWg\1Nx=Etk3^bB]nAMOA>IRYf*W.)dvD%LYiYJXuE?fm,qs]W1Mk:/IFqtt=vãU"I4K.L?HQXs%ssss%ssss%ssss%ssss%ssss%ssss%ssss_.x=t%z,xFz,1'cãU"[1x\SIuuzn45sIqE&,;'1<:)ptQNqtRY:7XQ-+=Xjp3],YeMC\+vt+s,p]:nZE4ãU"R*Vr3CH_]rEAx6:DX3_CWet3,7Bpjk5gy4&0N,mSK0EaqHt-5p[Z6h6WN%_Is9aãU"xm9$Vo*M.zTSGli3uibY2oYl:Du:&YPãU"6:6oB97Luuoqyq6RU2hUY:J4rJ^j.Y2-YM6K6?,7XaWQY)ãU".;C\'h[DYsT.WR?3WsqFy%3WOGcO6WhR/[*aM7\G-&KL=PvET5Klrm[]uZPrmPKSJ)d[2PDB?;g'_):lu;GE%ãU">E7-0ZtT$)+9].agteRKg^UaeG)UeoS'DR[0-\aNdm]X(e[NtFA>W0_nJauCrAjãU"[I7dtm=t&EC?d^UWãU"=,F611;8:4T/T*2k]CIkJJEq6,ELW?1EkZFL]ifI2U3c(AH;?E&4Cp=1kl)VgSAãU"gK0HP$%8BJ[aYnEA$ktn45*Vtj#diPPPbO,]1;G]3pYOnC6afVHkf-HL+_X$aDyãU"U7HuK(XU?I8HCKLf7J>Qs9.3wpCE?#?NQeaf^C:gãU"5JuX](?U=LxN9Er'0>6au-]^fnT35gn08>#CnMV'XD-u*go?*YIv()Jtps7rTc.ãU"j9wbD78_LiNqI*G?[sHcEqVFl'ZG=]Fy,%6*c>o+,l1ap?Yn*Y9hO[#n.63aGY1ãU"-g''oRp8]kIU>OuTETH=aR\BILi0w%M,q$&8So8_aF(SFq<]9>4,*=[^Nt)3=hJãU"#k+g;qoaUO?4;>P#6,38ungzMQjf&u4Iw3gO*w^42UFB6eSRsE''^DU#vO-uU6,ãU",VdP,d:FaV3WuV&s1H6nNT:OIfp&L62]c>C#2.G)I:XChFerS[bPFU8,cWHb>DLãU"d$DH[[US5KcIjVW7/f(_v$jRwfPBoY,Qwe%AbdTg-aYg_7AAb>ORh^EZ,tbKa^MãU"5DY0K0AQn=sp6;We(AP2PLDH65-9U[)*qrO9Gk1ebWwD%V*-N+05/%zZ'F>4iUvãU"p,fqaKWZ>wMzK+zlsO(rpCL7hkp;y+zqoMoVEfCknoDP;-M9_ãU"ecTEYkqTsi8E5$60ge5<:>6FL>XEhg6KQB**aS6WFzbXzV2M\_T+q6OqjK%]+K$ãU"<;LPkD,QWRt*Jwf\gb:hR$kB+cgv6w-i228bm5NiTpEE,FoZz4M4bYjDsy2Kdc^h4XTI[D)<++hR4=>ãU"6DZp7]VrA^\oi1jCO5x#m,#tRn.$U1o>mPYLXV\8ZbeIpAKU;3])PS[U<,Z(:o'ãU"ftBr)-b4sPe_OeFO%GTnx:VOlf,xQk(>.<<5RzWE&96WWX5jjFtO=7p_Z+aOv]*ãU"J./q\8>b$tB?w$A$s>?ZTX[KJ_mPdb^lodlEmJDn]_reJAXiq_'96#F\1+64L.hãU",>6(xd/N5X>LH%o<%iF54nG;4DTKVDW,TlBA[7DWDV/KS3--(jGTmL:-Tcr$Nh;ãU"wT5N6rrG$WPYVKJEIzWTCUlDuidWfH\nmXFFLY0=7?wvA4q&3RxK&JzCV[mtG:IK.6q9BJ'f2wIn.5_JJok.eqZ^8?D4d$^H;WBbp:st5s'=n6s?XyqQ8MwxuiM9yxuMãU"i9yxMui9yMxui9MyxuiM9yxutiwXa%dup(%)9%%%%-%%*++GDa-QpF#.%%9%f%%ãU"0%%%%r%xxjw%nkSvRgkf((fWIn4:v$6Vl$Vldx^wY'9[xN/Jyp<#fo=u./944&JãU"w9*CFVbGO6bRVn(=3,\(>v:*2GuafQ\T6>w%1ES7S\Y[L*TC$+934fD/QMQ3)e'ãU"rL4updXOr,My6Iu_J>>LUaYAWsDxxq6xvW=^rfnJc,mzsF+6mNMr^w6uM$NPWM<ãU"n2rn6n3rsn+J^UI_3^6LLsPHm)s9nln<3mpMfoxwXNchaLFt6FPF4P?=qp[mTq-ãU">?d\;mW890xEMV9wpufWt[vp>LN7dNrCA_0uOHXu23r^0FD82vu7m\bu$KvmbT-ox8cSK4Y+s[tNTfMIlb(f/%+DCaabãU"1VqZgYPRj]t'ot;ofesLRH+Ud5h5_B*6J:Gzh6+1nDkDXsLS3(k&3Nn__7mnãU"9;n/YpHiR#O#<<^Y90G+UzYa'1h*,]6E[kzUUHbI6?lTl5>ML8]OPhti*ãU"+^.&)-J$3XD#^/w>8C.*Y3qyc^dMS&[a3KL^x.?5tNff5\%LxXDADz7r=&D0.$2ãU"ik&ko3?4(;#D9PHO%h%U]tNO'ny.pA%Y&%+JHP4kpE*9A:1.ls8PfJ4Vx3dp18cãU"itet$?%MCy_^XkB*Nt($#(]85b]kzkC^Q$EKFik-zqSg<0PNQ0+t[TXKo8_W.$[ãU";]?r328s^>66vm;dX9osXYmY$On'WZ6&)/cC$[a:(D9TjxObRHiOzl]TO:QnHl6ãU"0]td00W*]\8YKu^B?wK>:vIizakCQr^888CJp22xg/3Y](b]6vJyo3ASkl5YbaE'3gQBB.5452^sãU"$gdCa2vTk$-u7SNKDosWc[lT2-Q&lb?Z-uLU1M/E%PsR,$0\i-;PJ_IvN#-q.rCãU"Zt:=wUQ*%<9G(TfO=;%a5p_f(,#:IW>Cfn^6+)pAeQl0xI,maSaL5Px18GE?3'?ãU"+W25NNUlb9EwM3AkJd:[h4+/:fZCc0n/uhh(EvFc?qP)t[\iPmpk>q,3GYlftI[ãU".Q?1ljWL?b\avZIQ?2bhrbXeGn[h3VCBsZz_,AIiEcV_V>0E999$U1%UsONSi8eãU"n]C=u$g&D1.XUmB,1f=tUEL7cmg:cTw\nOXme2X,dlI*.Q=_*Fb?7-::YHq47K%ãU"?*x/NeO/YcGp3<*.E(BFgVgl(h*g#FhThnCywrW^:ywm4KqgEWXbsFFXvzdZ;WEjrG$q_grM3'FVD^gR[XQ>n9=i[6ãU"UkxjZ_SAb\HGlg$fFS-)OOvUQh*Q;h=8Ha)W%srEpTmLIvHeG:q>[Vj.$$]r1.mãU"AJmm/4y;6C.kw4,eEHZO:#_OY7$,Y*pqmSp_+3CENzQscI(U_4YM#v+WTãU"U_5]6VXTH'$n+(oe^]oZIl*ntxlJ9z5w%6?LD.*3vJ)i1bkD1qnAM$?u(Nw+pf2k3QV2w.-g^*S,[GooZGaKãU"Tp=..ODSQt^ImeOLn;BW:KFEu%>5[:1FX^56=1T's&l=]RKtOnF2,]IUqR05EW67gqJen/TC*JQ;)J2:9RãU"La3,649:e9q]W,\M*pW_T,T<''h-yQ$0zS.j:?/r45)dF_e?q$K(k7PREiG#S_VãU"NGeP%V=:+1_ET:eB:s-<=4P50sPXl_$1?+$8UyPNMi$P2H5,;2S2aDft;%'^)K<ãU"q)[\h,i_ibED.YalF+RG2v2*efZL5gZob#6Z\a^BN&OK;1_K18'T\8f,cEV235kãU"1g^P,FVDAiskw5&Y=I:/,-ETLC/>WNbN)),OG::FL2$(rt9,wjPYwzm=a:fj$$;ãU"xRRH*7D$l5#2u\H2Z-,s=#g>Ai5C:;GlRTx7^OO\UdJucBLj.-YPnJzoP>8;-.PãU"l#Ww11v+0'M2;5W?2'/83S4>9AaN#Nky/jAKZ+Q<0#K[ZrM$;GUuBãU"jG%<>?)Y9JZSq^,X_KR]H.;0FR^2_wM;wS3]k7X0]Ur5eFY0cX7T(WVAdhK#)sd>.rDPX+D9XKWK-)gq1l?O(Q%>ZYQ>DRu$oliW=C^viJ-HãU"2km7xUJ(7GY.,sR+LCJ5v?&obr32lcbY6S+,Kh1[q+K&-\,\A'Tb+9BtgikVO2oãU"#=a?fMamJ=n1$Z7q?x9\l\bpb=hU:hzAa]Ef=3Q4b^6]g<7>FSg+wBfXB,bE2zyãU"v6-$esP7HGc8m&fJ/k'JX:K[VNRz#mX'Cv6X\eVabK:RTl=?48cãU"#$DKH96j)\F0ivL;D07bf0Kl6*Q6Do&U/#U>zBn\__t?j.ra>YD&=Z#Y=nP%Jgs+m$JwgR%2DTk6kbJaC[),Io_8f/nzEI1LPDãU">^c356TbDX?f^MR0RZg?##KK=h#**Oci2%M^fhKjQJdnBHQtw2GUw%BiP=*&?+g4qp_+3xiV6ZZ&.>TBjb]A9rND_<&]Pfw&UCN;cPãU"*szRuZU7ni&>Ldt*XsOu07n&V>Ld*uXsO0Z7n&>kLd*XusO07Qn&>Lrd*XsZO07ãU"l,zvDu%p()9%%%%-R%(++7GIV4+.8-%%%;f%%%1%%%%rxx%fsxx%jSvg4kf(f)WãU"3l>iwz:/-Xeqt]8z.-%UqPC4aSSAfWSbf^5rlB[juI)QY:ZS>v_i3F(l[rHTYFJãU"ol9+=AR,T-[1+rQI/8qoT)<:+0=\Wi4j<*Yej<'sYtwhNZN(3.Ep;tER747ncZ\ãU"rNk.x.xq.Nvn5&.uptsaTmq,iI(TaBsa2I)Lxgbz]MlDc^c-HcbZUznfKu2lnGSãU"^_(C6wOHipdx8(qNyhal0nXw-M?x#rH<55ZjW?2j<7BZS6\JGk6s^pl8JN7WxZwNãU"$tn487;KZtr;*Zd?Z8ONIM68iQV,NCFbeNkCXI.:;Qh&qBop8qVJbteHãU"6x?KdlyR-o&mO-SucA*Qz;M*Nzq,cam4%QObU'/bQp)Vs,>)^3YO0+(A:[L;N00ãU"ckc2%F^Eo2o2y=n>%.oA#8=p]0%LH^IpY=$9zeT80#&SNTgArQJUgV*etv4dX>'ãU"713_KAc:EAKg1CEa?Z)2kViAdb%FrRCGantI2n69Wn42GQ989,&BOVe8V$-Zc#vãU"GfsIb&L>+'X*CJWPC\U,-(?fCMQ(lO:a+8ACPDCpC>nq&Ot,&'b0k'-APP&<9NWãU"=JOvcOCCtiJDBi^-:+WT)N*52mMl^h*dãU".X*'q:eY\p#Yj(:OUuaP6rhD0YShVCIVC][P(.':E:;$3aioP1es(Q19rllaUh,ãU"$12=.eWFN_gr^3#Enh#?QM)I[h.tCOV0+5^_cK5kPK.6,V=POvS9TC,,)CQvvU_ãU"^#7pXUD:r?4nIW&T%ZãU"W%$%f3%,BrWP.R0<^qm2YG_=(_92c_.^IXe%3AQ>c:*XSq(9r+3wrqãU"_&R^h3+Ar]yk?Q9,-A;M]Ir/#3aiZVtqgaEl,Qmr&oJWe*STjlq4%EA#WzgXTkWãU"e5+*.T\s#2,diOM3WXEdOCk(g/0LA2hRs,fSlV_B[eKeGlZ\.^r,bamNLyHAC.YãU")$:Kapv&Fn=\_<+lw?s3=G'*sQbaT([J,nNWRA3C3jbHwAPsS'HvhGUhCM1e5M*ãU"9a0i^sPqGHQ-v0&vda[IJ\$y[/a0dWshfD=>D(w]uON#Qc]_R/ywvP*]&Lg#+d#ãU"S8zyq^JAjQiAADDJS71R2FNocn_qxk7$Mgz#tnNkV?63Sa[#[JD^N.OGE92qdJbãU"7AHQbc'fhNaTsM%GS.3?Yko'_?PJeDjpcX#:QdU&xlyQD0kJ-V&O:Kff,p#9pZMãU"Kk>;lN%1F7VKE-#gxnjWKb^uB6WhQ#-Ye(6c62mLIQ^RtDABq/Nb7dt?RRj_OQ.ãU"6EkP,x=-v^[Tpb&&gi]4bpLvbegYd^5=DZN:vK's-i2\p46%2Uxn\]_a:b:9FPlãU"Nn8q5o3I6VfI\[d7-2FmQHjeX-.B8ER;zM\bvQ:K^\$[kI1X_ooo-h75zQahSKmnwt$F-Dl-p,(2?%J;.7iim#;Rs2%BFW8ãU"hXXQcdQ_kHDqURanBiG[qqCf;OXm.82we8aJ,y(l_otEh^SX8fTN%48q'&tJm&UãU"#fsZ<6Q595xHGzjJ'9m?)%u_9%khvN5RU>=7r)(TG\>Sru]0VtEY)bk<8&q#RGX6^*3KD\mP4^TntNGm(VInZIF$sT]%2*ãU"ZkO8:rqo0/n+(?)k=]r-Q);q<67Y'ãU"?83e+/+dYp:q),y(yFwX9hox3WvjK%llA?<>#t2g-V8+?H&XR[beqm=\<8[bdqiãU"O$Hg34;0<(H5WDZx0rp32ZjXiu7M_qn&UG=:-3IQLo%2p%cE%2$zxg-GWrR/tgDãU"LonX)TK)Yw=b?r1$>zC:/^A$$R/iCgj#6akH_LFp#Zn&UNrJyc:l)_0wr9lY?GbãU"bper:g,jez]y8qz&^KrjnDQ+keJN,%])Vron3WPw'5J-n0NBY^iD'#d'FNC),HGãU"(EU\WU$1EG1Lc&5Mi,WB&x]gt9\/hz*,dz8$=ZYt1do&hKi1Pw)&r)-:^+8*cq&ãU"L9S>b,.hHm?8bxBbVq=YTA/VhM,e/tu:acMHVDEJX+Vab6-&&x9RQaF8mijOS7e5G,YYJ2O+MRG1vWVeW#b[t0r>a^dQ>z7Zcc'm;lhe37f5ãU"sJMKxxIQncz&6h6ysdmB1mFO6f6Ta0s$Q'L=E1ZH>4r[YYk=cr)a1S.fDZAlkaTurW_tFãU"-o.CC7B8pB:6LR%Rc4MeeeU9TP4xUvHXRC]n7]S'07iB4\hbQfM7dl/92oRS9#ãU"X\:=HtVt[H[g4Z'Dw+:+uOB-*XzqTRIf4_B1/J^mWk[a;r]Ssv=TILi%0pOtN0)ãU"e9H0vWB#]Uqv1p;K;J:\I&6>'G[l)w_Hl2FT%ZEDf/8^Na]0=1+8UiYMwbe&3uZ(Cro0IiEr,m^1cnW&.kh-AFpBlgA_Xc+oãU"Nq;'9K-X+H>%/<,4)_/Ws3<=70X$>Dw?:q\Ndu(:Po,1%qHTC.M:uGUJi[1k7c[ãU"_f%164hITpTM$Q5Yt(DG;=&Q3oCb4KCp,46[?5\2.YWw)j==ve$U]3Lc%5X=Fr_ãU"&hH7^%sow47x1oU0.4j/^8(zHS>#3aaKD:fNceX484>SNãU"hE%(Rq]I4d.EK$$Y-2&lEnmx71P6cf'$KP72#WO<'?soSr#(IJfW;P54n-jp*&eãU"ED/JCE]EPe;pN,1$DPgR,^8PzYsKFzvkcCAI3&U+lT^lpNT^p=,PsOv5%SAjWHOãU"\Y;3?Q4GBLr8lh(=-hY?S3-q[K0wdRjy&xYdF(>KiwYb6cZsoY%,_=Mx_E,?D:kãU">tXFfeh=q4#GPMqs.n]V\D_M7tUL$iUJS\S&X#N57#R]$He'j$UK+&(-J)H$Ii,ãU"Yj'*$=X)8v.D&)hVklPoUSdArCOjq-z$_-wxfk6g#Grv[A6F+Nb/ãU"W,JY<:OENNHnW[Z=yW'zl0.?4Gq6Czsj5n0&\/Zoo\>eajbS8e8p)k8]Y+B/:1=ãU"HrN\uu/F/u?G]Gy.\d\;gg5DeF2D6ctH8VX#o)HWbs;MVH3Vkafc[v?z(61gcQEãU"iBfI(f$?0dFQW*(ukXW$&l91gwS)3%wbAXbPAA30lzq_P:T>DDVY)+gu0cA.O<#K&dO:=?C]N1GcB?%GI<(GraWãU"5vf,j,0Am%z=D0MBlC&h4/ENR6W^h#Dv(-ORO?IT*q1<3+(2XY:+V1CVKQeO_-^ãU"XAMd6r2'XLan?hL5^Ksnro\^E-l5&wflu7zj0diDNVHT0SãU"R&ig+BDutDGv^(BJ_4oa>f>XJ'Yki606XGQh%*=7vi>:<,='C_oADW5MDafKV\fãU"5o9e'Z^*hhyykQ]dzax$a$Y[PO/ndtMilHfcbPuSG+ZxYkX1Fk>SBX7V\at\GotãU"Iu(c?UG:F:&0w_]p(s2'q;Z^ãU",OG(no9#Nai8;MI^]F2Xwf0XLHut4%qX6A574t=cwwZC'\c2*LA\'D&.1w&ZC/9>8Q/PMV$,$Z?j)IsuR73>Jk1,ãU"uVr<9*G4u;$:R-_Q11J(BRA)x<:qLDjTk&wky%yb$Wh*:b[h;4cHeBfVL6hVqJ>e6u,pWWsLp(fqN:xNuv0oxf/DUHVVãU"ri:sl9(#kãU"'08Yx=Xl5JY8eaE4i;wqxJMC&KãU"4J.7iim.sV2B#0ZTe+v<_2&*wãU"Z,_Mo=H+aE=%Z49=5Vw%ZS0a&T^d,+6*$]24G3L'6fT=hd,S-i)QNmqv1#*Ws;CdQ]%/8h6FGD[cXX8o%g,I/6O;&WT[j6MWMyM8;IXw%AãU".+DO5VVu#?]kG:q_Ph[9)X>#1zG2PtS]];ByoqQV,Jk-TZqF)6]3LOxNBPHp;8OãEND SUBãSUB V3ãU"G.?whf&GBgQEN-*tJ0M?dA^1igfh.zjãU"ObYt78g=A=Q&]]q[b/Nnhphap^a8ehkNHoI6qgJAAuRoCTSPZR42/.Lbx'dom;7ãU"dCx0fGHC8O6D0+N4f\na+OJ(Ml:H+O+dDpFqXSgj;c1LuQHSWA*FD*1>bkLyji^+Bc=cdf+x=Y8IO6fL:i412'fNPlTTam8,P3O-sztkKH$hR^zV/0NãU"EIs(\GozC\G>nF0$.dW^c%kE9IdFQSIry10dBoFZ3SH:^=.830b^5?0n5;d^L_RãU"PBk)usYi#-CiCK;_7K3xV/(^%KcDPsXD*wWãU"jUW3Lk#HLRyD+m$J>F[m.3k-G-8,2P&\$x]kW.2V1T?9*YRci_idrPh+97XM2ObãU"+$[JtN*Z?UJ5eJ>DdAYsg2Ar]h^Dn+W(a1UBCHQN?BQ7o$=QRXmZbr:$fW,>R3lãU"cR3\0Lba$NWG#AkUh3s[Y(Eqbgje$e35]6W0#Xvs2x[waP,$],sxte:R#&&m$66ãU"yB4qVz6Io;JVXbNG#bm6T$9RCi9GW,76TCPAl5BaK&Ak&X6,.?bzB_GsaK\?e65ãU"&0UHHJC#SkTk=VWoyqfl<''%ieW:nZ2Oa2c(YGT,OCsvNpmz*q>H7UD8-<9,*:tãU".cTG^UZ22K-7zq(6RRYn_RHC3:en7/as(49)9;=0kVR_rBW=^eI)zLg6DoE^7p/ãU"BCuFV-1p*YI1oMm2<6gFCO?/]vT>_3Y3,h[#_Sa8dKBeQCDAG9+QJ^X7Zoh7q8[Zj'PV?$tw?9e8l=.APIFf^kW4^xo.'nZ:TfDYfVnsS#aC^Z$2KCãU"We)tF_VxzX-cP?qA^t]:1whn6H5=j?SG&<77Xv7cOaFG0M>=%XYdLVA=(1#upCoãU"S0Q37:td&3b-\%3AGzN8^WVsBbZ%;3[\bA>I]\Ws71/v[w*.[k9B^Sc\S)f.)ujãU"J,46'Ze:lX[0;Lrl$[hb)W7dJA1WW=x0,2*VtKGJa&3g\EtBG,a-EBBd*N)R,&]ãU"qf>tVDwEVET)to'G)0\?uo.9gf2jD$?\WNI5*gT'2J^sB&hNU,:_:CLfp:hKotiãU"og/IVYOQB3?IXC(ON_1;[.EvgPpM\K.Xr]cPS]MqCn=5/5y:jiM;qHepRjhD.X8ãU"piw;Ut]q_KnM/\+/aZ'hfkjl<9E/0ET&a8*\0-a^&M%5;^'[dd6kb9eXbX<^&?'ãU"E15t_>LgNXbZk(XOivGI;8JujFtt06x0UYz_ãU"4xK=+.3DuP;07E\Hs#Bd^W4&;h2Z'Muh2+ZMuh72ZMu[h2ZM%uh2Z'Muh2+ZMuhãU"72ZMu[h2Zm8Nex*%up()%9%%%[-%-+/+G8i(Ny=4#%%/%%%%1%%%%qz%hnif%mfãU"SvRgkf)D.[#&Tnc\#1aj3W'\KNZQcM-misU+kIu,hl&deym$uHfuPHr0c^,-O[hãU"yQ')\,tnN/dud%%t-z:]5EyWdFgWW1zoHf+)b,7CE7LYeogYS;X).ko1Cgrrg+HãU"*,60nvhHjzNrPCf2upuvGU^FOtI[^C]T7kXp6dM?C&#S]<_ln^x)C]ZccSqg\ZjãU"?-#Vt#4#Q8t8FuPv2thYJ.lG$_\iKH\.7iwtHcKAL]KQdA^^i5D3QWS2d_ioV2hj$wN#VNGu\r\6ul9wtvdWs>ãU"sj.LcFG=^j6800sK]/g+N3l3Z65r:]\xKNkwJb3xFpdeL#GTbM$*YcdQohSr4Jn7cemY'JãU"hit(6LeD)8^H?1%FOh8/eu9M2^)Y#MKTt0eVYXTCk-GnZmJLM)afxJx:nJf7[\kãU"m_bwv:Q3Ea:[ZKlk[*r#l8MJ3%NJb/[Xw(cEb^[8kvHnHusuvmj+JcM=r?]?bnDãU"gm:Fe?.0\Q2RQ_sj65onR9-aFdmo&Kd9^]pMYbB$FhX^'%dC(sx?7[QAQ+XD^ee.oY+RNF+o*].)O9ãU"_\_8Kj(F+5%_#M]ZgTHhwaw_OfHLUnA'o-R]RCMLP^)H1wC;jsOOV5kJe[(7tUMãU"s3Uat(;#X3,;Kh+*pY-:cOV5HãU"5E==f0>(<+'<4zIZeh:Al_%,uUWRvc9*eHKVpRhhPKbXkcEEk'eWM84Ad=uGLURãU"d5c)Qu*7Y&+bbOkQw^moOIj1SuJRqA1nZElZXN9S=tg'8/%mX#>J:cKi2OZ>h9yL(]b%tnvK;2=[ye%D=r=#,hyYegRko#]K8L0C[ãU"AU&4Snw2%)2/THKYB$/3/;5PQC(_hA8[T6'r-1*iYa482r/orrWFJ_nB^O\]IpYãU"rjtWl?Xbggy)h.>^;8ZRsom0SnmsL)^FmB3d7f_UN*?nqpUGRFW&F;'Kji*'Q2=ãU"%FHY5#:$Xq$3R(%XtlkGCh3k08'Rfa8d;m:1qDPomX3$BlF&:7=[D]S*4F)/Xc&bcrM&gHq[PQ:,TRSQALm8'%ãU"Eb9Rm*<.hmBNZvP0]1_((J=(z)PuGl[pq6*m+XMa1.Avt-d&fyu=W3gq.pDIlVDãU"OQ;(qe/\s1cG.ZWCE]f%z1_c0mUZ0?)Ob0&5V2QX_[*sc6i=zau:H&$e'bA6p7p85*^>q)azN3)[TBHHPM[Z#GG]bt_WMkq,[6jmHaeV#Oe1ãU"n]hn'+?X6Noko%V6/tcjULd1FA)?qj4[XQEmbbb24=ojkl4;<:)Gq-B^0S$GD,TãU"WbK:,4X0f.Ls4uejB:^)h5q-T5W>Pg%A.x0c<4=>iTG_+-leQuG7RK0aTZ%Ok&uãU"x]ldG$Z^elq0Ss*h_)Zv(2\IAw4%N/Tg-oFi\QE#vGZTFqhc^GCP/Yi9Px1L=VWãU"M*h;ne_sP.lG\xlkw5n:FHcEc9%=:ZXBTT[M#eXPYãU"'E/Fq6bgK7K#mz4)97KhQI\QrGãU"QA3([0*%C3CeIOl>e;>,SmSeSll)]HT32Eo?/5h%eF:CO/ooEcV=^M46DNNpNTZãU"Vc1%K27$10F&-JyTsW7jO1mLALFss2aa?[QKL^tMHBQ5:GS7FjG3rc4>L3+b?pFãU"tgF\Ll$'ldl#[s*NNtQ/>,]1k$M]yOg34(_qo6P*,i$kR*DhNI9]SpKjOD:-)dpãU"\mcq1%*_,El](mE?-P<]8Ujn1%C294=F>1]M)31,cM$8stJ*2Ql]=3iM'j6D7Q*ãU"NmccH]mGw/Uy_*n[n'A.-x.W&0DxOQFbkb5Ks1NQ8fMV,AK:;dRcgRl,EKPshm?ãU"):h+eHHR%?PRkgCp1.h[AxCR-A00=LRzS;4)3j\^Mh%,5JEptFãU"J%SGYD)Rt.-^&UbaNUvTIndWOh/X/EnB)luOz[)K.2a?B$'J.$*HPXmVc$e<[a$ãU"HcMvDvc,07=t3r&LB:Lim5q$LMP9FhtE;HB1vgO3y+;xH2x7]M.s[Y8M[sV,5gYãU")JSFoa>rw%^Hd+%gwDb1nOmFLi+HtL,f,K-n?]7YfHRIMSfDIW*)X6[GehJ&8u>ãU"k]Dcovl01CMAWiDr05WAkiqGbEjOgrE7$']g^PcY5XR=,_u('g'^?cãU"nHCjI13dg[?=oxcy73laZKG&vãU"k<5x2:2nPck_wjHe1]Q=H$EjH)0U_UeF4QM1$?4?H^gu/&*tc#jB7ZA[qbLvg%gãU"Jt_omu;q)Ga]SfX_:M:<&'pdT_[He7x7VtDtcK'm>S2hh;m#9)\*4L)eãU"H++_fVfB=oaSf8rw=29'+(WT/jWw[*#Bxs&wrgh0oa#IZki'4h2ãU"&xts/A8gdL^rjTI1&6czW(INzP-ny&c6cz(PINz-iny&6Tcz(IHNdb.'x&up%()9%%%%-%4*++ãU"G]a3%q&,3%%'7l%%%1%%%%qzhn%ifgq%SvgkEf)r[B]k:MZNg.J/FbETgE3Wb3gãU"Oa(Ff:FQd]w:3(vsES.-SW()WUeGD#'_?V8XJ];6F>M57Rd%JXAeS%(A]&%77ffãU"_)>KB#iGqA*Y_(,1tQ'3)_G:)pk#SMutCN'5hRd-(o=Sj?XmSzQ(7INEnyAZ9sIãU"a&Ks;L^hmtNIu#>P>k8jWq)hGsQr>)$/KGblV7_dcaWRH2B3Ui'4Y'X0M5:f*LZãU"4hhMtst^gX43HCc,gB#Q_#MHQeN2nu)0eXZQx+2<$ZG^9$>$2T$06.um'p?l#0^ãU"8Y?uQXiHmGm$=nsUP#kpbmdbr#_bN$rsSp>nlãU"/1N2qRH(+C)x+mG$9R4DlCWq)z3pqJS$6[1Ju1Ck#hC?d?pE1gL<2%GZZV?rG_fãU"ih+TKdOubBVb#9B5AW$Uu53#_T(^bMeFEpV%fdZH$RU8u6m.y8^0X/;PveCaãU"Z_Io,*qL0=/GQZ$\37*\..aN\ri=Y&NaNz-kXt%Ic#c97QN*7LouA:_Gho<.3(UãU"D=RGWgTSa:Z>F((&n5Rpq*T9Vi[;P2\R,CG_pE.VSwr*'[YRD(v19N$J4U09uxHãU"gf&JeYhquP<;g>G1=zer,$)p8]6SQHB:UV/+aFxT?E\m(vpbl)aS)j$-rKdR(l9ãU"8kRDY#^[7f7),bXv46.&t7)u,w8GLiYJ?4G#d0WFJ5BBr+#Jp-djgQ>29FQOzl_ãU"9K9^mqUI_q$hb[[rRCQW]S&s:U&CGHq_SLisBW4iQ4&,L#EBNU4%ãU"OWCAZ:vAYqAtxm;/GgwBatrFD*Qoms#vWhxeQ6?_E)Q=LRoBSA(=FA[;J4*s4]OãU"<^g9eQVYBQ6O[:[wg181Y&cuHxraO_:3.V,KUe5,ZO*rF3P26_b_\\s8qsk+>KFãU"I_3,ZS[N,6R[=*qm6$I86#q8lY(Pt*F':K0%t^/hZlyUE_G#.+Es528-IsI%2W3ãU"144A(_pH&Spe0/mYTEA(BGN_>98mO(OQ,:&bdoSTfI$Kie5Dd^?7+9#R2KFãU"OZAJ_3?(yvg_5h2A/Mw1XG9(5&CuiãU"5L])'tt,&7(bEh'XD]-1Lxs:$Jta$(VbVq*A;jDA31fb&$,E3=^H:WGQpo<'[#\ãU"bTt)pih\HZnkh]t20bZ7a:kp]s2eJE>K9bvQS'O,^[onGqYd>4hU2JIql^fH#&hãU",;>jXl?q3U,r9b'Z2.8C\-9[fp6-I9>)ãU"YAoJym'ELXU=,C$VK-)CP36/tJaW.I6#\jau(-n9K9Aqm>K$hEdI^ADCXD$E8joãU"NSdcBc(+Nws0WbA^5C8S=wDtmI^Vjo'#G)Lk1PYaEoPEPP4bO2e5[+Ss)^GE-74ãU"1%ES9IV'fye^ZDf,P>4GqMI3Y:3J)<]thie%4X1og:YAA+m)$T6f3/r06sEg0m/ãU"HN*h.cWj[h.3IWv#yQc*3w:^[9Fdh/c7^\1AEA(3XH%2qOUHBBdrMJuW7l6:oKAãU"0qlwI8XaV36+A01MJTRsZ6?S:s.\_=IBRwawG+]9I/.Y*,cAeb:9<^#s]*JL]RJ)ym2a\TY/G:P-QiJpiIV3qtB/uãU"G3Og'npGJ&JA&H?%a3m.4RzlgFot%A_Qu^j>epa8iBãU"OL>UoBRO4hL[opF?PU)f+(pX::[cGjP0$Ke8ekrAO>a0+vkUL_U7<9H2J?0g*-IãU"$cX9QV.1S%pavNIwGy$02yVj6GE+1?Ve;9I7teNI\ptL-)Yo/t4A1&Y,vTZfri-ãU"c$)4X2XdM+t)S<'JC.KKNi#ekC%kwnBh3jSGO-3yg*jt6]Sjiq.,H1mB6'vO.X*ãU"bsf*_HT8-Y93Kd:V29UihuNWi1UWP?oxpiX=>;z'UI#p,ke9AnV]%r6l>=]]iPãU"/GQ1agg-hNEa2j9uhd'k/-&xJ;s=;'.8HYzksUKWQ5KHA+2RN%6lAgvh,AtnJ[&ãU"5[$ZNaP/5R0F0jI\V?P9Am_\S_l9M7_PI.87>G7)zTS-%8d#qu0LOYOgZNt2->sãU"?leBK6kdWRmy2Z*n8xVG0hT243'Dyn#hAjjF#\-r$[cEHIU6dD1DMe%fLWOZ]B0ãU"ogg_,JWQu8;SAMBsOfDAP,nhzOãU"ptI_Uijs5_k?]RAa#;y>ihQicIfBoSQWM[&qgt7Zf5]Et]:y-ãU">-V=X8xL\tCDCJ:ZdV6LnbqzYfAQ.WPEb\J.NhX]7pqX+[eYn4gVyMIrsX]fãU"UPytnt7pZjJQm:rI#;1%ez_,tu95K^ZUzX=2?a>C>Dx6Ddxd8/s>H(iru9edjh2E^(^v4;Ux_L:Cw=C$:HtqKZAcWQt[YFa\0ãU"G.?I*3AE4cuH(c/T9nD2Z%-C#eN;Kfy1Pc<0Kil\9a^_Bta6wgj[4c+wp4Qx,NYãU"NXLFZr(Jags+#-ik_PW63GK(Y.z$Qv$'8*ui&q:iTUxB=UJW0bn2ãU"V0(hB^+>i2^kXXGExe[1E\mTHsdYRp8N18P7#+1Vz36:FN.fxTww(/O1kTZ1*krãU"ck\M'v(af=+L,=%>QBCQ7T.q]x_ZXb#;i$dzpM)b2%C(X^]9)8JOI29HdYFj3]*ãU".qW>??xMw;ãU"dI,LtV_M+u%?ylBJD8dN.84E?QXdPBS.V#b^1AwELw.I>_7JBKtN'H22SD84G.gãU"G]3/oNxdXoMOrA&w/ZUMX[^Yn(vG>;ltp#JSq?8+;'uvldIM-t:)JLd+Ok02^C:ãU"F85\)O\GXpdjdFO3%F]onofgptGnN#hY;;0#5Ag]aX)xra5u.c]N?^iwd,^elsMãU"dM6Ki4G5H&./seMLKCMa-tljg/GhkvL%'>hW]otyt9KBLg.1,cR<2)AKhEE\_;MãU"&wdU+$NbJ2GwH&Sb_\76wsWTv-r\lBFF]m\K(5jk,p,CN^1TpX+A4;%Zhk)3DC\ãU"BCoQ2dt-^YN9GJ3fXud)_a?9d0IxJsuTSO/Z/.&jY=iA[h3%S_m15a^-C3?ikKKpOO,SO-&7,]1LMJ'XZbJjF6^nãU">\nQw(yvQSL2Fg;QAaXqHLSK6kNp_Ymv(JwDwnPzXwNãU"twJYjK:8R6[,\+XjBu;iH$:$Rh^Hnjb-k36gdIvWt/fkScn.T(u63o4u.JsLTd\ãU"PNi1MJvN&D>Gt4qUi=PVLAd:t*XSsljO>0Zw7npt$:9Fq9=3F.W#tfOOY[O1%K?W?#>rR9vGãU"2c^>E[3L2>/,^n7tW%3NhL^)ix^y#P;i^(?$sg%f9a#ZZiZ3j+yIQP9nNR_K7bAãU"hOm^pfPI/6DGR8skx)K5*:P?)Y3fJ9lK^VA^P>(&eqJi%Sva8&+_PGIp_I'p_WnãU">7P7K8%Vp\LU2gltAVE\WQ2'[V-VS];6xdGdH:/bE)y^&qPm:4qU;:+0%^&*J5RãU"nDbmXH8G]jL)KI(6/d:Q5#FJ[u$UU4taX+,9]Tf^74eerjD$ãU",b,E^>)ãU"sec-.*R1UoI^kãU"1lo,WH]^?k8(#pTv7,.D+7xggN-XDScb-jj*C&lO6?7EQbRwWNe)Wkd#l3DiTI$MoãU"$bp=mMJDtblI\&s=t,s<7/5J>0+qSfd$TnIRG:vWFzm[n&^G'^J=)'CKqs^S,QrãU"y6Yh36yE2*?PW_ph(t5I?iO5IOIOQ'SZfB52hyScp=P3a'fkt4c^ãU"V+,1>uZ\5k)2)aooEU7tw))K^;8=Gc_1eLF^ddqB1jFtp%GjKJdxs8PihY_ej\V1p0g6LQ[sgV6dkXS[Zm)4WãU"qZVt/;k:qh\B34FSsfu-L,VvCVXnUYO&OtmN7MTiejW&c).N9M%Nsp2INC<:SD0ãU"rAiZkLm)XGr$r:)zK5$l[&GWMt^yjf0$e3i]ptO*%xRa5S.V)d4SIFR]'h/5ehgãU"8ru,-'Bh9n7fqSE0U*vmDFB&8L2:pC-K;hfXZ<1feTJsj(#]ZPBEN+T13b',qV(ãU"0q-0>)[$l'vL5lX;VU-nfr5fhpp_1J3dSp[&nMu^)&-0DRPVq5VR:4T&lvkIh0[tf6HofC$h/NybrJ=?^Kt^'?9r1]x2nuãU"G:OVr-o=>9_6WsQ0iTk2/bHX/XW2B;L+$')^:-oYWYu$llkCFhXmB-Xc63]jrORãU"6ja&;2L2T:4$JWrXDDYMr#gwy2Bcj$)5#*+7PRN=Lh4H7=mHGZ.1^nFrXn(WvS/hw]xcg'p]ãU"QwQxvV)aT/S-uwKs'Wn?ttuãU"oDf,ufDfdufx/8k>x9Z000>RtK/if?;W;HkZ8.UY+5/Gt:jo[Tl^#fxu-uok+\DdQadK^NZ2Iro>B&ljQ$Xlp9c8Jm]n,iuNU&S$1AHsm(zk3v4PãU"#\))^aC6rV?^qce0iS#L_mXbbbUiO=b3C;ZCkpsX3PG?PxN]ULzqP$^$Z2eBHTi5>rcvi8r,GU)3,0D%=H,T>rVJX*W_ãU"1Xa7+)evcP1U'KIv_g##Dm;R8#\rjH?wO?\WI=1WãU"_<5<.u(bU+m,+FGc\3+cK.MH['4dk5O);?>$FJ=q5w9orlpM>ZS4;G/8L*SoPGPãU"A2zeM]=HwMN0oJ=%(h/1sb\lvT#yo[I?H]2kJElH<5#3X-cPb?X:_,\zakNpiLaãU"ANbYqVugR-iV/EfP0+bT3&J=j%[pn/1M[nH2aT&d3E2T:61%GuMG:ESWq]&vv_\ãU"RKZ&>7GaUViWW(hX&Q)Z+x%.riC%&WQ:*))\P8$']KiM0frS3o,/HOqq4:pd)\sãU"G2qyDfS>LmhkRW2k7OQ#,JWa#^C$fY'*9?NW-]?VqJ^yp&>(l8Qu,uTdv#zKuArãU"gF8_0ZtMDHF6Gd,&F/*,i1?FhNDt0ape.=TSZ;*5rSS;%bY7R\;r<4W,ReZGxQvãU"c_,nQqSWhGfrVheU&B+^^NVoJ/lQvx4O&Gzj='_H3S(iLãU"3CD&kbg9m5M&XWt9bãU"(qE[ST8M0UmW\tG_b3&V<\R2#X3FXU?fL^,ic?Ba\0:#pkyiBC5AA[Ws&H>1ZjUãU"#FR&C0I8H3smX)>lrIpV#iHl.9hG$f5'jHUy*.XjBZ;kfzGM1.\Z0_sQMc(qvT\r>wQ9h_,q>ãU"8EDagj#YD#7^6]7n+C4yelQ;Ys^zoRy=rE7^rIr?vR4iYsvQKw]NYu?vetiV4:'ãU"r6y/A66o8Y>qm\a(]DFH4MKp(Y%8Kr]vH*$6PwS+ãU",k^7G$a0c5LDka$Dn?reh;\$X2Q_fZBESf#uat'3;B(s^KBgPGG-i3Td7Pwk3ukãU"&Y,UF5tGU7&)y5*Dt9m?3qPUX<%J*9fK-g''0..PGcw,vV0jcQEXãU"'$*>aSh%Uboe?^'/-M\'*9nbxIj&JhxDG$#;Dwg#Ti#6AvpAn0C_H/KJt*Pch)+ãU"&7Eh6se6;U&-fgr+ZNyx7rZNy[xrZN%yxrZ'Nyxr+ZNyx7rZNy[xrZN%yxrZ?v;ãU"al%up()%9%%%m-%l*J+GVI*fe*/m%%wx%%%.%%%%fw%nfqS[vgkf/htWBRnB#zSãU"uLLb3E5*5G5LJWVVSSq5W&I5iTnIVc:eZgJI%Y7XbM]_R_i:jZ+Qd:jãU"Q10-U5)sV^).TSYEHc:CB.5l3X3+svjivuekV0oVz8sZpãU"tvy]3KWhjUOKB>K>UXs4Ed_PRojEuXw9wZUwSmV_\M7vOVS'LY0nVzqn'66us\NXr'MYKn&TvaEKnS<3&L;Rq*J)olp.N'T6PãU"wCZu&q0TukuponT(xtCvHdD*fdDKr$f^jT8G^il&-7Hk4PNu6+3jEG\4>ns#XWuãU"qR?hp\qJtCln#LtLmCaVfrX[#sk#jLT;MEqBNlNfFd;'S]L\^b^8Uwlgq?uuOq6ãU"Bq6a4BapBPBYR]ns2XuTVds#wt8,l?V>RchcovW\oKXR7l1eF\nIqNe\m^:t_G&ãU"glS>aJ>pbE?*P'SBxiaw+9.MdJG;lLUgv57cCt#l9\\KPaiee-0j2:/d&WhvuCfãU"S-X>]4=G,tigqX?YiUd-83/-/\,T_t0/khODa)jQ8Y8aBu\5;MZ?=?cHk)]_LWdãU":t3/q4YCrtd*<0+b:)w$L+P4UJw$S+Vx7t_]#\HHH&m?>bE?b'tl6_ODdOT%jXsãU"gOEUDQP<*K>8LzOJ.e)gu:9r=;SqGTm[mUbhpfn4ki%pe9RRrgd.FICowqoHSU7qUR2ok5S\AW#R=]=iF'N%5f7lQGL3A><ãU"cW;pv5Yx2Ry>pPcM)9n0,OMtAQf)3(xht_ZZ-]k_2-<\'OHoLP*rd))I:BLk7,DãU"I2_U=(hvwk=G[=o'E[;6q6u2%l.-KF3]%)TUQqQYu^Cqj-c1YsEtI1Le3x''dO>ãU"o]5Pd((kmgVlz738DI\Ok$^Y?Tp[?ySxdhy:dgkiK_XD2jd+(Z-,^WbV]s]X0&o($0*uhãU"'oRwe$-i3jzUDz*u9niM*Z.]H)BsQsA#5nkLF>^4pa:--en7CO.NID#:ScGqA8C#q1pak:kQ9AK(H;PWe(X?_z_eZ5PL,al(>n>NG2:_XJ=#E3FK.UM'L:9]eQX%EãU"M=F>p8;O'hvH5oFL+8l]1*b*(t+'al/.*[Rl[Dlao=zpsjLtJLZwBPfmEAFPupqãU"9=Te\[eWjxm?42<.jYnãU"P<(*J'fkECDTghHNBxTtheR$TWK]QHr>Lr'4-5]Oz$WtuSH3YE5*k8-IWPbe0q'L>G<78[<*dN-Ju,RdPãU"emRXx?MsTOJ>s=blH;9..4B3#4\=m[[^iNGLSqIdlnV9FZtDzeSy;*.]zcB'J-1ãU"[a2XcqE9t9G_-dCkkTnapt[t-clu>ie)(hIY99U1:x/&]XZv7N=A:w^gNoE>BZ8ãU"B=7Erz7AU'HMp4'Qp/me_\+/l[8D_Tkiv04dhk'-Wi$Z9Xe5>k?O#mNQ>mToiH&ãU"XZi26u0slTj4-65Ol*hBL$N6Jvq3MAMQ,OEoz+HrhW.[es'VG9SFjNH_l;*s;>HãU"hwtEMtuSXjZ,Jn0XU'L6Y&$:dGka1ArkK(UdVo'OvGc8FvbQk6Go]]hNfVn'_2s2k2ãU"E2zbVxd_AK'mf4WVAa%5pD,>kAP]eL]=Z>rvMh4+lH2P9_k/0au_,m8OLA;)jkD:Vc+V4ZUKhlIY?OJr8AD$L,aK28%57R.TkJAj^kImI;]o?9FClteQUl1b(=XCZMiRt6;7F/fu:ppQ3Ibko?Gd^oMãU"D6Fj'M:Tm[l&Eay25s$5&3,^n2ZA>XzS]wA\[^'^#RCSn9uB==p[e7e2lmZ]n\XãU"H2CE:voc7lMbhjnEL'U;.$&*lve:KP=U):]g^,Jn(2vr(%$-RtorYEb>p[8ax8DãU"27d'5KrfetKO,B)2%9>F4o%TjTE=kzJMP$U2C1rHk;tZEtY'0XbT0\$ZTJ_YzIlãU"tZxRU/-K:d)ZRV4wHc.&+Eu*RhHmkk>fWokgjoEXUn=sSle8&b29xo'KZl8:ãU"l8l\nYlLsE&bY%zBih^#CJ5/:=xEr9pbnox3SD*_uR5b3q0ãU"j#Gqxq_AI*p3VKGjd9Eq+p9c&O'%;DNM0fToRtNl1Xeq5mpH?xMB;&<7g-(FS5gãU".-FS5#g-FS%5g-F&S5g-(FS5g.-FS5#g-FS%5g-F&S5g-(FS5g.-FS5#g-FS%5gãU"-F&S5g-(FS5g.-FS5#g-FS%5g-F&S5g-(FS5g.-FS5#g-FS%5g-F&S5g-(FS5g.ãU"-FS5#g-FS%5g-F&S5g-(FS5g.-FS5#g-FS%5g-F(=W2<ãU"HBnvEu8cPvS&tP;-F'/gLbU>6V:-6IXznWz<'%m)b4m;6mhDKPimO%RkteAok)oãU"=o_(E\tg^JcF[L0AZd;NgRm-7N5KNHhBHNru$kBNC0z\&jD%=(E7.b-pbz(aj#sewpn*vU*:ãU"z,DaDUbqlvYx<7<4Xcr5IqBKZ\V%qhYA*Rwi;_C1C/pCKBvgU8d;)o,5?bOY['zãU"CNpF2LkxymL&lQ\U]iO)'N4qmRYGd$w/Ywwzkp#glN(]Uim;l%$/R/_0Bd-NT&:cãU"VBd25B)&miNiL$mLwL(gv6kXTZuZ>J-$1eRi8jG'6>b$e=kjXG5hs(s/drUBG+nãU"+W'0THz;#MFj3S1=b't4s*mktWn)[>9ba*pf[H-/$Yj)5O1l.VRIfmscQjWpF/79orziF?;*r'CãU"4DkWNfw^Ek1o#F08_1]48XWB9*Bnh9jUifP^VdciUai29)Z#'qWE%+n%=3P:#W&ãU"'qwPae$G,'\;q>Q6a2[eW\)j]Y-xpTX$YjP,)]iPtaaVzAuJHv9pX^xW5X?W_;7ãU"N98ifS;_N9,C(d,hSyvKsgFZ7ãU"XnMBx'+gr5u<:6g5Lo26ahZT6/7nHBrãU"rxkr_IRc*l^cn[3E>>j4pcrL['f0'_6>^P5Dx)xkj$lWW$.[gJ6DcohvHqb&lemUu/D;x^,In1\:TZ8,FEasDJV3TZgM>Jxfu?17]\PQ-kRfwh-T:v1$?X7OXR#;)7/F/4cm:?sf(ãU"_97RK^ON*lmJ9?2VO/NhvRI_wP*I.-hL,&^tBR#zd-25mXQ_A7LU%Fn)GRRIabHãU"s4b_LBGOna.InaI(naInAaIna.InaI(naInAaIna.InaI^naIr?XAXu%p()9%%%ãU"%-U%s/+OG2Wx(Q/*%+%X1%%%1%%%%kts%yqtf%iSgfOxN%<,B[[5iwmhu&VJ8K5ãU"_\7Epr.1_2u_gC#bE.?bfWq7U-J:ij=Dd]X5gPF&&WTntB6b-*Lh_)QTS6nJ,bzãU"d:]9HQV9']0F1Lix#-i?P;(q)Z])oKg3V9dt=8%J0%YFthQ.A3Q:6Keebu^'nHwãU"WvuNN+ZT%�+J4y52z+j7O2ãU"b7AlH[Zdkw857=QCf2Ed6lQi_W2DMCr3QpiIV=Lq&SyCJjP3r:*Mi;&fa(N3UotãU"KGHDp$UgN>?;XHu1b-#]60W6?aksTK(ro*=R&>9LMxD9,dp_\8Ez^>'pwHwMãU"8&?x8$*\nY-C2+;qMmA:H+Y9/D0IXD'xAAJREoMZLb;[hSVt-#V29aO$Aa1V1\dãU"_SoEq+.cES?1H80>&rk75Kd%b'Vs^Iy)=aB,'*?)?PNj6h)Vdq&VVymXJ>U/.y;([9uCvb-uiQ)z#o;3ShnR_B3CCJ5)PyU;vãU"&2%O\921h$Z;A)zgw*DQ1n[jN%o(XF+ZNzrODQlf=LEJ'1Tutq+H.I-Kr?_c2GYãU"]gX^vmi0?RUk^:/Eg#6qsy<)E*E'&Qj8%>&XRPT>B^2YãU"mL?SjJ^b-[juR=;]j2RV6u[6YP]jWguhXnneppLSRZMnJ99qUhvYyV?O79ZãU"l-Dg8iwK]NvQjvN4jLgB&spThI]6'%.AiUF]vB5$/Q,=(Dy8nrIpXu*q7M8UKJXãU"QttY*gpoy-'D$xbF9L2lkA5*YO\9V3;9//+iPS1$VJ?j[QGB;0*1u\aãU"-]_^?lg:LgAXPlHT?Z8j*f64pJ?UXd2](dqY*96CNWXW7z2+j9YdWg&Y?$n&C05ãU"&#m:9,a,6VB0j5_1\O-um;39g31>MU3VBh$tJ&%.^dZ(JHMHãU"LV,*j1T(2vn'tBcWdKI5Uow:v0YxXQsLgLifm*shDkphDo3tIkoj_sIO4?[>DkkãU"9.OdqoT'H$/3I^IaY$Py7i\[Er?bLxIuPsQhb\SYqgn\tZM$*m^]4jx9AZeh:&7ãU"T;ddR_9x\j8JL7E5t%+\,,hp,IawC*.87()7^b)Es3b6KB&]M>t1UoZ5nkUGU;mãU"yfKq8)K*W'k4?)[:si'BA[NtHM-?3DIjVs?>]G,P-CJGh8'ivonrw>.vbj4>B;aãU"3+*/X$7W$K_\(+^xAINL;8)N>PvC#)K8pWtd#u)3mSs4Plp=S5ãU"jyBZZYNQmI-frJ>ZMS5YbZ*]DJ;[&*8DJeVPmb4k(oIZ042yAB*ãU"jiWgmbfi3JI->BgQc87Xg$?g_?ssHwZLc.DR_#'hMF9e_UcNG+V5)WjpXM#P3ELyF+Bw#XbZVWpI=+BGnECY:_2/gl9hL$UB$p+:KgT?/f^_FãU"'e8.c.3DL%lQSNah;WM#DI>q,)aBO0_^Wgb)OK9300St?ACQ3QkbV^1Ett$9Mi*ãU"QhHQnJ3w6pHiLDLr3u^bRlL6^GR*KZ8ZeUj1LbUA#t]I)eIf.j(S$4lDHMEgA.wUUkFPI>hLpWg51Y]$QDAtãU";-kgBgS%[(s]&sOTtrZ-:a'KAf?=RMN7on)ZJw>b+ndeknLVOKg&g%a3$DgSY+grkrvdT782X8^_Di4p3]G7hf)=G]VCeBfM3+a;QãU"BhT?8j4B3dBa1G\j88g^F*#^Iy:4>9264e3ACDSKbF$UãU"AA].M2(]LSN#;AkS(IY3'Hvg^OQ>qB&oEl#eoFEOhVf>HEpX'3Lrp2H.L.ãU"kBo22UtCV'7,;P-'tA)+'7A0nC.ha(1A,Gy97WD7ekGeir1]^W8*s7c+ml1b%$rãU"?4Z?].ruhbo7jZ\IZ]7H4DL*)$%Z8)?XjtKbor0iLSdKBF^T:e0-loemOcKMl>O.2ãU"F=g>Fnm=F;keQu?wErQgOVk'tD1U$wFBah%a3e+78Gw/uV<&%&vabaCZVAc7IiqãU"+fr[jGK[*GKF,O&'>_IVa5>>p$bc7jK<0*&ukI>-)p,eIWpF9LUGY#79%)=3k;ãU")U_mCj>JC&jXzB]'2Ol:JeY8CTJgYJ1xNfJ[2d\=1#XJ;oQrR9k:szA+_7m<$j'ãU"T0C_kROMhq#^wZm-rEmF;7,Z6LYD;%d9xAJmCQNfjfJ%b(Ae9Q1nwBF*(DX:W,BãU"&4kL8IT;*C/g8[z^#2,=&;7O1G2iuo7[5*mrEKMW?iiW;iC=>soQLfkm2-je.$;ãU"5<^-u.iVc[2rAhc+7>_r&#>'QJT^x#J4I(/WBn)RndR-;7D^Kt2lw=LP6+QgdC)ãU">rV'ZBsp0(C;OFjJ4_i7JKR>/sYe_&%%m3zw%_/.7d&zjo0fmj#K2Y&,gasXoqAãU"QAxz;(Woh6cQnLXve&#\?UrC4&CzTEi0n:WMBSRWODVUXP]kjvm'WBMllR9.;tq5fSaMW&i3qqi^f.6Jf_\k-\)+g8QFj9Z)jk=De[;Lz9iY=#,P1m6qoH+<9&mgBãU">[K$]h7gZ<=ePkbf*3M$rs(A]Ulkq9*upsw]bz/K(aTq:TDbwd&LS=j09EnhjãU"c;$sI_H[l3&qFnHP:#te,.^)<;;WcPJk8utz:R/a=(pm2Ic*nq,L\-%OUN+MD]q)KGgbF^8TpAqyT;-:XRk*.ãU"Z$9.:e$=9E%hBI3d4cY8b*Vpp=TE18'sGr,>ipBO7>m[fuPc^1%E#3J9i_>uIA7ãU"Q9UPq9M=LNak^1*W2LP;R[Fp&^Nh<8*D^hD)t2w[Qt8felpK=72fENDLT\VyãU"6?>w_f$y%Y+zRqONFvgM-jvss*090qKF[XE_^)A8ucvP'F]k0]UUiF5_T%o6=ujãU"rj9Gic?*:s\C=h:aAo*&peYhG.&r_cJrUVJ[M.Jgt#/HOb^8f639;2dp:XofkM'ãU"(GZP33NGvF$r7r;p/xXJTBH)7Eh03DloAd-%HMNAiãU"FaB2LTMuIiT^5/Z.\G+gSb9\b20rg:vp],wMHObmYx*iC58kCa%8b/hjbb<+qnlãU"ST'%PD9y+L'.viaRSIogj48gDO,_xk2:TkdU:yX&3Xa1,/^uINbc#QCJM/T6%v3ãU"wMS-;^3p9?xDs&jooDeq:^[$Rfscr?mB3>;4H)4OBjLo+*EPãU"6;kV9evK8fxZALhoyO%L.B\gq?s%:nYqo4H#$7]9p*(o8HqUZBxVww0)Q,pK3kSãU"ngsrN7,lC#fAKM7zdQmuJHkJK#E#R>FlRMFU9$_%q$sg5&afXsR>u>ww1n_8IvPbMjDbR/k?*WPbBs_KhEKgLN$,*d#9]UO0vqMG1,1*\ãU"8vG>eKr0q$8m\bZuiD4<%?IvWmaBF*_E$WllmOk(')mYOL=F6YM0m#]Ri;bYY8sãU"Ffsfc&:0XP/pq+LV^uQ/s4e:*_Pz3[*z^uHRXkNF\Q-Iffvo'1tEieI8L),cc;yãU"^H?RR7\Mg?;K.HE]RVmnO0M=PU7HNgãU"d\s%+$mcJt;p/5HFn*8o&d.dk$75SEaJ:oOVuE)T_JeV/Qk\L:c8,R/'p#;[,hcãU";_4'M:YrBrC7Z$erd]ZXM*[tbsZ'eqC4RDd=Eh^)MF(94LRc&9a0ZDjlr:jaG%pãU"8d\6MS(%V>(:Mhv4o*erCsGq;Q$q;q-8z)md%up&'%9%9%%%%-%42++GpAAp7%PãU"-%%%OX%%%.%%%%%%%%%%%E%%%%%%%%%wt%rfsS%vgku%p&'9%%9%%%%-%<*++GGãU"'gNF=%/%%g%g%%1%%%%%%%%%%%%E%%%%w-%%%ynr%jxsj&&Svg%kup&%'9%9%%%ãU"%-R%9++(G)lm'k3)%(%qC%%%1%%%%%%%%%%%E#%%%c%7%%y%jwrn%sfqS%vgku%ãU"p&'9%%9%%%%-%8$++GN7tMfo[*%%g%]%%/%%%%%%%%%%%%E%%+%E;%.%x(x%yjrãU"S%vgku%p&'9%%9%%%%-%6E++GXnPSIN%,%%3%n%%0%%%%%%%%%%%%E%%%%cA%%%ãU"xyj%shnq%Svgk%up&'%9%9%%%%-%/]j+GVZtL=%D)%%%;c%%%1%%%%%%%%%&%E%ãU"%%%aI%%%xr%fqqk%tsSv%gkup%&'9%%9%%%[-%3+n+Gw3%sp1-%%%WS%%%/%%%%ãU"%%%%%%%%E%%%&TM%%%xhwn%uySv%gkup%&'9%%9%%%[-%%+&+GD-9QpF..%%9f%ãU"%%0%%%%%%%%%%%%E%%%'2U%%%rxxj%wnkS%vgku%p&'9%%9%%%%-%(*++GI]V4.ãU"8%-%%;%f%%1%%%%%%%%%%%%E%%+%(_%%%rxx%fsxx%jSvg%kup&%'9%9%%%%-X%ãU"u*+LGt\T)=v+%(%=S%%%/%%%%%%%%%%%E#%%%g%h%%r%tijw%sSvg%kup&%'9%9ãU"%%%%-R%0++XG&cL%cL.%+%gc%%%1%%%%%%%%%%%E#%%%6%o%%q%zhni%fxfS%vgãU"ku%p&'9%%9%%%%-%-E++G8.iNy=%4%%/&%%%1%%%%%%%%%%%%E%%+%1x%%%qzh%ãU"nifm%fSvg%kup&%'9%9%%%%-R%*+++Ga3%*q,3%+%7l%%%1%%%%%%%%%%%E[%%%ãU"s&1%%q%zhni%fgqS%vgku%p&'9%%9%%[%-%s**+G;$%[G3%,%%[%a%%/%%%%%%%ãU"%%%%%E%%1%P#%%%nru%fhyS%vgku%p&'9%%9%%[%-%q$*+GVZ:RTj[,%%W%a%%1ãU"%%%%%%%%%%%%E%%1%2H%%%htz%wnjw%sSvg%kup&%'9%9%%%%-X%l*+gGVIf&e*ãU"/%=%wx%%%.%%%%%%%%%%%E%%%%M&P%%f%wnfq%Svgk%up&'%9%9%%%%-%6n*+G_ãU"\n(F&1*%%%sa%%%0%%%%%%%%%%%E%#%%yZ%%%ht%zwnj%wSvg%kup&%'9%9%%%%ãU"-U%s/+OG2Wx(Q/*%+%X1%%%1%%%%%%%%%&%E[%%%X&_%%k%tsyq%tfiS%gfxu%pãU"&'9%%9%%#%-%b$.+GJZmEJ\#1%%S%Y%%1%%%%%%%%%&%%E%%1%8e%%%kts%yrfpãU"%jSgf%xup*%+%%%%%8%8%%b)%.%Er%%%%%ãEND SUBãV2ãV3ãV4ãV5ãCLOSE:IF S=204AND 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ãPeter Barney CGA 136 COLOUR MODE QBTIPS_M.DOC 06-14-93 (11:54) QB, QBasic, PDS 443 12879 CGA136.BAS '>Is there a way to run a CGA card in 16-color mode? 4-colors is kinda tiring!ã'>and does the code work with qb 4.00? If you've got some, send some. Thanx.ã'ã'The following messages are some code that I was working on a coupleã'years ago when I had a cga monitor. Included are a 16-color mode and aã'136-color mode.ã'ã'This should get you started in the right direction.ããDECLARE SUB Moire ()ãDECLARE SUB Demo ()ãDECLARE SUB GPrint (A$, x%, y%, Colr%, Size%)ãDECLARE SUB Mode (M%, BG%)ãDECLARE SUB PCircle (x%, y%, r%, c%)ãDECLARE FUNCTION PixColr% (x%, y%)ãDECLARE SUB PixSet (x%, y%, Colr%)ãDECLARE SUB SaveScreen (f$)ãDECLARE FUNCTION Sequence% (PickCol%)ãDECLARE SUB Setup ()ãDECLARE FUNCTION Spectral% (PickCol%)ãDECLARE SUB TextDemo ()ãDIM SHARED ModeNumããSCREEN 0ãã'=================== Main Code ===================ããBegin:ãã Setup ' this creates the screen modes (do this only once)ã Mode 136, 0 ' or Mode 136 , Colorããã' This is where you would add your code.ã Demoã TextDemoããDone:ã SOUND 1160, 2ã SLEEPã WHILE INKEY$ = "": WENDã SCREEN 0, 0ã ENDãã'================= End Main Code =================ã'ã'ã'initial data for 6845 chip (80 x 100 pixels)ã'ãDATA 113: 'register 0 horizontal totalãDATA 80: 'register 1 horizontal displayedãDATA 90: 'register 2 horizontal sync positionãDATA 10: 'register 3 horizontal sync widthãDATA 127: 'register 4 vertical totalãDATA 6: 'register 5 vertical adjustãDATA 100: 'register 6 vertical displayedãDATA 112: 'register 7 vertical sync positionãDATA 2: 'register 8 interlace mode (non-interlaced)ãDATA 1: 'register 9 maximum scan line addressãDATA 32: 'register 10 cursor start (32 makes cursorã' invisible)ãDATA 0: 'register 11 cursor endããDEFINT A-ZãSUB Demoã'draw screen (136 color demo)ãã' You MUST use this command to set up the screen properly.ã' (note that the number may be changed, however)ãMode 136, 0ããã' draw Spectral circleãFOR r = 0 TO 19ã PCircle 60, 60, r, Spectral(r)ãNEXTãã'this one shows how to blend the two colorsãFOR x = 0 TO 31ã FOR y = 0 TO 63ã c1 = Sequence(x \ 2 MOD 16)ãã c2 = Sequence(y \ 4 MOD 16)ã Colr = c1 * 16 + c2 ' this blends color 1 with color 2ã PixSet x, y, Colrã NEXTãNEXTãã' this draws the rainbow squareãFOR y = 0 TO 19ã FOR x = 0 TO 19ã PixSet 40 + x + (19 - y), x + y, Spectral(x)ã PixSet 40 + x + (19 - y), x + y + 1, Spectral(x)ã NEXT xãNEXT yãSaveScreen "Demo.scn"ãSLEEP 5ããEND SUBããSUB GPrint (A$, x, y, Colr, Size)ã'ã' This Sub will print text on the graphics screen.ã'ã' Exampleã' Gprint "Hello",10,5,23,1ã'ã' Will print Hello at position 10,5 in color 23.ã'ã' The 1 on the end specifies big or small text.ã' Use a 1 for big, 0 for small. Add 2 if you want wide letters.ã'ã' If you make Colr < 0 then it will use the Spectral Color Set,ã' starting at color # ABS(Colr)ã'ãREDIM A(0 TO 7)ããFOR M = 1 TO LEN(A$)ã N = ASC(MID$(A$, M, 1))ã DEF SEG = &HFFA6ã FOR l = 0 TO 7: B = (N * 8) + l + 14: A(l) = PEEK(B): NEXTã DEF SEG = &HB800ã FOR r = 0 TO 7ã FOR J = 7 TO 1 STEP -1ã IF (A(r) AND 2 ^ J) <> 0 THENã IF Colr < 0 THEN Co = Spectral(r - Colr) ELSE Co = Colrã SELECT CASE Sizeã CASE 0ã PixSet x + (7 - J) + ((M - 1) * 8), y + r, Coã CASE 1ã PixSet x + (7 - J) + ((M - 1) * 8), y + r * 2, Coã PixSet x + (7 - J) + ((M - 1) * 8), y + r * 2 + 1, Coã CASE 2ã PixSet x + (7 - J) + ((M - 1) * 8) * 2, y + r, Coã PixSet x + (7 - J) + ((M - 1) * 8) * 2 + 1, y + r, Coã CASE 3ã PixSet x + (7 - J) + ((M - 1) * 8) * 2, y + r * 2, Coã PixSet x + (7 - J) + ((M - 1) * 8) * 2, y + r * 2 + 1, Coã PixSet x + (7 - J) + ((M - 1) * 8) * 2 + 1, y + r * 2, Coã PixSet x + (7 - J) + ((M - 1) * 8) * 2 + 1, y + r * 2 + 1, Coã END SELECTã END IFã NEXTã NEXTãNEXTãEND SUBããSUB LoadScreen (f$)ãBLOAD f$, 0ãEND SUBããSUB Mode (M, BG)ãIF M <> 136 AND M <> 16 THEN ERROR 5 'illegal function callã'ã'clear screen: Character = &HB1, Attributes=0ã'ã' this part is necessary to run before any pixels are drawn, because itã' layers a specific bit pattern on the screen that produces the colors.ã'ã' BG is the background color.ã' for example, if you want a dark blue background, do ClearScreen 1ããDEF SEG = &HB800ãIF M = 136 THEN ch = &HB1 ELSE ch = &HDEãFOR CHAR = 0 TO 15998 STEP 2: POKE CHAR, ch: POKE CHAR + 1, BG: NEXTãModeNum = MãEND SUBããSUB MoireãIF ModeNum = 136 THEN XM = 40: tc = 255ãIF ModeNum = 16 THEN XM = 80: tc = 15ãIF XM = 0 THEN STOPãYM = 50ãFOR y = -YM TO YM: Y2 = y * yã FOR x = -XM TO XMã r = INT((1E+07 * (Y2 + x * x)) ^ .255)ã IF r MOD 2 THENã PixSet x + XM, y + YM, 1 '(r / tc) ANDã ELSEã PixSet x + XM, y + YM, ((r / 15) AND tc) + 1ã END IFã NEXT xãNEXT yãEND SUBããSUB Outline (x1, y1, x2, Y2, Colr, Colr2)ãFOR x = x1 TO x2ã FOR y = y1 TO Y2ã IF PixColr(x, y) = 0 THENã IF PixColr(x + 1, y + 1) = Colr2 THEN PixSet x, y, Colr: GOTO Skipã IF PixColr(x + 1, y + 0) = Colr2 THEN PixSet x, y, Colr: GOTO Skipã IF PixColr(x + 1, y - 1) = Colr2 THEN PixSet x, y, Colr: GOTO Skipã IF PixColr(x - 0, y - 1) = Colr2 THEN PixSet x, y, Colr: GOTO Skipã IF PixColr(x - 1, y - 1) = Colr2 THEN PixSet x, y, Colr: GOTO Skipã IF PixColr(x - 1, y - 0) = Colr2 THEN PixSet x, y, Colr: GOTO Skipã IF PixColr(x - 1, y + 1) = Colr2 THEN PixSet x, y, Colr: GOTO Skipã IF PixColr(x + 0, y + 1) = Colr2 THEN PixSet x, y, ColrãSkip:ã END IFã NEXTãNEXTãEND SUBããSUB PBox (x1, y1, x2, Y2, Colr, Style)ãIF x1 > x2 THEN SWAP x1, x2ãIF y1 > Y2 THEN SWAP y1, Y2ãIF Style = 0 THENã FOR x = x1 TO x2: PixSet x, y1, Colr: NEXTã FOR y = y1 TO Y2: PixSet x1, y, Colr: NEXTã FOR x = x1 TO x2: PixSet x, Y2, Colr: NEXTã FOR y = y1 TO Y2: PixSet x2, y, Colr: NEXTãELSEã FOR x = x1 TO x2: FOR y = y1 TO Y2ã PixSet x, y, Colrã NEXT y, xãEND IFãEND SUBããSUB PCircle (x, y, r, c)ã'ã' Draws a circle at coordinates x,y with radius r and color cã'ã'ãFOR xv = 0 TO rã yv = SQR(r ^ 2 - xv ^ 2)ã PixSet x + xv, y + yv, cã PixSet x - xv, y - yv, cã PixSet x + xv, y - yv, cã PixSet x - xv, y + yv, cãNEXTãFOR yv = 0 TO rã xv = SQR(r ^ 2 - yv ^ 2)ã PixSet x + xv, y + yv, cã PixSet x - xv, y - yv, cã PixSet x + xv, y - yv, cã PixSet x - xv, y + yv, cãNEXTãEND SUBããSUB Pget (x1, y1, x2, Y2, v())ããIF x1 > x2 THEN SWAP x1, x2: SWAP y1, Y2ã'REDIM v((x2 - x1) * (y2 - y1) + 4)ãv(1) = x2 - x1: v(2) = Y2 - y1: P = 3ããFOR y = y1 TO Y2ã FOR x = x1 TO x2ã v(P) = PixColr(x, y)ã P = P + 1ã NEXTãNEXTãEND SUBããFUNCTION PixColr (x, y)ã'ã' Returns the color of the pixel at the specified coordinatesã'ã' To find the two colors that were blended to create the color, useã' c1 = PixColr (x,y) \ 16ã' c2 = PixColr (x,y) and 15ã'ãIF ModeNum = 136 THENã PixColr = PEEK(((2 * x + (y * 160)) AND &HFFFE) + 1)ãELSEã PIXELADDR = ((x + (y * 160)) AND &HFFFE) + 1ã NIBBLE = (x + (y * 160)) MOD 2ã IF NIBBLE = 0 THEN PixColr = (PEEK(PIXELADDR) AND &HF0) \ 16ã IF NIBBLE = 1 THEN PixColr = PEEK(PIXELADDR) AND &HFãEND IFãEND FUNCTIONããSUB PixSet (x, y, Colr)ã'ã' Plots a point at x,y in Colr color.ã'ã' Colr is calculated by: color1 * 16 + color2ã' this will give you a blending of the two colorsã'ãIF ModeNum = 136 THENã POKE ((2 * x + (y * 160)) AND &HFFFE) + 1, ColrãELSEã PIXELADDR = ((x + (y * 160)) AND &HFFFE) + 1ã NIBBLE = (x + (y * 160)) MOD 2ã IF NIBBLE = 0 THEN POKE PIXELADDR, (PEEK(PIXELADDR) AND &HF) + Colr * &H10ã IF NIBBLE = 1 THEN POKE PIXELADDR, (PEEK(PIXELADDR) AND &HF0) + ColrãEND IFãEND SUBããSUB Pline (mx1, my1, mx2, my2, MColr)ã'ã' Not tested, may not work...ã'ãx1 = mx1: y1 = my1: x2 = mx2: Y2 = my2: Colr = MColrããIF ABS(x2 - x1) > ABS(Y2 - y1) THEN 'x is majorã IF x1 > x2 THEN SWAP x1, x2: SWAP y1, Y2ã IF x2 - x1 = 0 THEN ys! = 0 ELSE ys! = (Y2 - y1) / (x2 - x1)ã FOR l = 0 TO (x2 - x1)ã PixSet x1 + l, y1 + M!, Colr: M! = M! + ys!ã NEXTãELSE 'y is majorã IF y1 > Y2 THEN SWAP y1, Y2: SWAP x1, x2ã IF Y2 - y1 = 0 THEN xs! = 0 ELSE xs! = (x2 - x1) / (Y2 - y1)ã FOR l = 0 TO (Y2 - y1)ã PixSet x1 + M!, y1 + l, Colr: M! = M! + xs!ã NEXTãEND IFãEND SUBããSUB Pput (x1, y1, v(), M)ãIF M = 1 THEN M = 0 ELSE M = 256ãx2 = x1 + v(1): Y2 = y1 + v(2): P = 3ãFOR y = y1 TO Y2ã FOR x = x1 TO x2ã IF v(P) <> M THEN PixSet x, y, v(P)ã P = P + 1ã NEXTãNEXTãEND SUBããSUB SaveScreen (f$)ãBSAVE f$, 0, &H3F1EãEND SUBããFUNCTION Sequence (PickCol)ã'ã' This was designed for the 136-color modeã'ã' places colors in Sequence order. Used by this program to make a niftyã' color arrangement, not very usable in your programs.ã'ãSELECT CASE PickCol + 1ã CASE 1: Colr = 0ã CASE 2: Colr = 8ã CASE 3: Colr = 1ã CASE 4: Colr = 9ã CASE 5: Colr = 3ã CASE 6: Colr = 11ã CASE 7: Colr = 2ã CASE 8: Colr = 10ã CASE 9: Colr = 6ã CASE 10: Colr = 14ã CASE 11: Colr = 4ã CASE 12: Colr = 12ã CASE 13: Colr = 5ã CASE 14: Colr = 13ã CASE 15: Colr = 7ã CASE 16: Colr = 15ã CASE ELSEãEND SELECTãSequence = ColrãEND FUNCTIONããSUB Setupãã'Color/Graphics Adapter DefinitionsãMODEREG = &H3D8: COLORREG = &H3D9 'control registersãMODESAVE = &H465: COLORSAVE = &H466 'BIOS saves the regs hereãCRTREG = &H3D4: CRTDATA = &H3D5 '6845 CRT controller regsãã'set up Color/Graphics Adapter for 160- by 100-block graphicsãDEF SEG = 0: SMode = 0ãPOKE MODESAVE, SMode: OUT MODEREG, SModeãPOKE COLORSAVE, 0: OUT COLORREG, 0ãã'Load new parameters into 6845 CRT controllerãRESTOREãFOR REGISTER = 0 TO 11ã READ REGDATAã OUT CRTREG, REGISTER: OUT CRTDATA, REGDATAãNEXTãã'set mode for 80 column color enableãHIRES = 1: GRAPH = 2: BW = 4 'Mode register bitsãVIDEO = 8: G640 = 16: BLINK = 32 'Mode register bitsãSMode = HIRES + VIDEOãPOKE MODESAVE, SMode: OUT MODEREG, SModeãDEF SEG = &HB800ãEND SUBããFUNCTION Spectral (PickCol)ã'ã'converts ordered color numbers to a Spectrum --19 of 25 usedã'ã' This will give you the number of the color on the spectrumã' Example:ã' x=Spectral(10)ã' will give you the 10th color of the Spectrumã' right now, I have only a 19-color spectrum set upã' so the values used should be 0-19.ã'ãSELECT CASE PickColã CASE 1: Colr = 16ã CASE 2: Colr = 17ã CASE 3: Colr = 145ã CASE 4: Colr = 18ã CASE 5: Colr = 2ã CASE 6: Colr = 160ã CASE 7: Colr = 162ã CASE 8: Colr = 174ã CASE 9: Colr = 238ã CASE 10: Colr = 230ã CASE 11: Colr = 236ã CASE 12: Colr = 228ã CASE 13: Colr = 102ã CASE 14: Colr = 108ã CASE 15: Colr = 204ã CASE 16: Colr = 68ã CASE 17: Colr = 64ã CASE 18: Colr = 65ã CASE 19: Colr = 81ã CASE ELSEãEND SELECTãSpectral = ColrãIF ModeNum = 16 THEN Spectral = Colr AND 15ãEND FUNCTIONããSUB TextDemoãMode 136, 0ããFOR y = 0 TO 15: FOR x = 0 TO 44: PixSet x, y, 255: NEXT x, yãFOR y = 0 TO 15: FOR x = 45 TO 77: PixSet x, y, Spectral(y + 1): NEXT x, yãFOR y = 0 TO 15: PixSet x, y, 255: PixSet x + 1, y, 255: NEXT yããGPrint "Hello", 1, 1, 152, 1: GPrint "Hello", 2, 1, 1, 1ããFOR y = 17 TO 35: FOR x = 0 TO 79: PixSet x, y, 153: NEXT x, yãGPrint "Isn't this", 0, 19, 8, 0: GPrint "Isn't this", 1, 19, 15, 0ãGPrint "cool?", 21, 27, 8, 0: GPrint "cool?", 23, 27, 15, 0: GPrint "cool?", 22, 27, 7, 0ããFOR y = 37 TO 101: FOR x = 0 TO 79: PixSet x, y, 254 - (y - 37): NEXT x, yããGPrint "Add life", 9, 39, -1, 0ãGPrint "to your", 12, 47, -6, 0ãGPrint "old CGA!", 9, 57, -13, 0ãGPrint "CGA", 41, 58, -14, 0ãGPrint "Nothing is", 1, 67, 0, 0ãFOR J = 1 TO 10: A$ = MID$("IMPOSSIBLE", J, 1)ãGPrint A$, (J - 1) * 8, 77, J - 11, 1: NEXTãFOR x = 1 TO 78: PixSet x, 93, 0: NEXTããSaveScreen "TextDemo.scn"ãEND SUBãDavey W. Taylor RAINBOW PLASMA audio.squad@mailbox.swipnet.se 07-22-97 (10:17) QB, QBasic, PDS 75 2117 PLASMA.BAS 'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ--ÄÄÄ--Ä -ù ùã'³ ** PLASMA EFFECT **ã'³ Created by Davey W Taylorã'³ã'³ Please mention my name if you use this code in your program!ã'ÀÄÄÄÄÄ--ÄÄù- ù ùã' ** If you have any comments / suggestions / questions, my email is: **ã' ** audio.squad@mailbox.swipnet.se **ããDECLARE SUB setpal (Attr%, Red%, Green%, Blue%)ãDECLARE SUB getPal (Attr%, Red%, Green%, Blue%)ãSCREEN 13 'Gee...ããFOR o% = 0 TO 63 'Set a rainbow paletteã setpal n% + o%, o% - 1, 0, 63ãNEXT o%ãn% = n% + 64ãFOR o% = 0 TO 63ã setpal n% + o%, 63, o% - 1, 63 - o%ãNEXT o%ãn% = n% + 64ãFOR o% = 0 TO 63ã setpal n% + o%, 63, 63 - o%, 0ãNEXT o%ãn% = n% + 64ãFOR o% = 0 TO 63ã setpal n% + o%, 63 - o%, 0, o% - 1ãNEXT o%ãsetpal 0, 0, 0, 0 'Fix missed colorsãsetpal 64, 63, 0, 63ãsetpal 128, 63, 63, 0ãsetpal 192, 63, 0, 0ããFOR y% = 1 TO 200 'Draw the sinus patternã s! = y% / 10ã n% = INT(SIN(s!) * 20)ã FOR x% = 0 TO 319ã c% = (x% - y%) MOD 256ã IF c% = 0 THEN c% = 1 'Color 0 is not usedã PSET (x% + n%, y%), c%ã NEXT x%ãNEXT y%ãLINE (0, 0)-(319, 19), 0, BF 'Clear the sidesãLINE (0, 180)-(319, 199), 0, BFãLINE (0, 0)-(29, 199), 0, BF 'Clear top and bottomãLINE (290, 0)-(319, 199), 0, BFãLINE (29, 19)-(290, 180), 1, B 'Draw a borderãLOCATE 1, 9ãPRINT "Plasma by Davey W Taylor"ããDOã WAIT &H3DA, 8 'Wait for screen retraceã getPal 1, rr%, gr%, br% 'Rotate ' - the safest way to makeã FOR n% = 2 TO 255 ' - the ' - a delay in a programã getPal n%, r%, g%, B% ' - paletteã setpal n% - 1, r%, g%, B%ã NEXT n%ã setpal 255, rr%, gr%, br%ãLOOP WHILE INKEY$ = ""ããSUB getPal (Attr%, Red%, Green%, Blue%)ãOUT &H3C7, Attr%ãOUT &H3C8, Attr%ãRed% = INP(&H3C9)ãGreen% = INP(&H3C9)ãBlue% = INP(&H3C9)ãEND SUBããSUB setpal (Attr%, Red%, Green%, Blue%)ãOUT &H3C7, Attr%ãOUT &H3C8, Attr%ãOUT &H3C9, Red%ãOUT &H3C9, Green%ãOUT &H3C9, Blue%ãEND SUBãDavey W. Taylor SINUS SCREEN audio.squad@mailbox.swipnet.se 07-22-97 (10:17) QB, QBasic, PDS 239 15703 SIN-SCRN.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"SIN-SCRN.ZIP",4^6:Z&=11507:?STRING$(50,177);ãU"%up()%9%%%#-%_hTlGeB'rG6).%%5/%%%1%%%%xn%sRxh%wsSgIfxd%*:v7Oz:EWTy)QFg1[jB0f?2Czs>%L<2L&\ME4rkYuXX'Kb7E1ãU";;bNtfImmGkgcLJ$,%NiQj'Y$W.h;'LV0fiht8UUU/;LYKW?k=0u63jXW7Ot:S8ãU"xNe.u(4a9K&nGf>8M/Flm_Q:$pXS1vXn4^1X5vQ^^ap24,RA+eXH$i:u.Q44q?CãU"c;]9]QZ5)#$+wLecR/:6VY&DAhfUOlb2_/OLL9m/7?)GW^a5]J6'uu6oq>Li6p?ãU">g5,0&SlY04q]W5_$$)GXFB_B_m_bSYLHCFYR%lW[*F)BBHjiSB=Wd_Y6Bp[ur8ãU"Kb.qcnJED/FGqIUw6K8-x-LPX9F\88lk)Xbd29q*3Rg]/8bFHky-7(;BqAs/O(\ãU"?qU[_KQ(P:[c3t7m(t0;SPYnUh>fk2Iv?7^3U$*I(ac2ix4d-$v)e&aq\c0O9Hd1U/^[H/ãU"nj2HrGn/YUEvgz>.;%laX5Dw8E?5.x14XsmN4Uhl.jjr5p[2N=ci?]qKD_]+p2FãU"w(FfD#-Js]tKBd#A5*4('E]eBrFA;MtMZRW;xfKHSGy.E#(M/&SOm];VZ_P1?lFãU"Z03#\oE*;]yBMSãU"=j9Ruud[#M9]7P8ciLIhYn^Ctq1Mo%sMLv/4t[GlK^:N&8rfngt4ãU"M>?Wa'$eIN/6c3naE_/E^?1[w9Hwlq8LGQq+cj\b.w'91FW]1_g+I,02Z%t8Q0dãU"Uybcj4&?%0(1._EKxNh+:_qz+j>WSZ-=rZ\H9%Ku^?ãU"-X%:dR5-%pcv>UhL10?ZDJkru\Y&Z.*F&cOm(pJXQm+_,5vgK(&LW.86f9mm&'2ãU"/)rJlrp]ToN7#hofH?>ll&ql-g4>S]*qIz;\SqqUi?CfAZFT]Q%:iUuF7*Ku2iGãU"Qy'Ql2ie&=Jnz[QR3_A^NIPN8A4KddJSPDa79T^zDj.60ks-q7lGZe7YU(>FoI'ãU"uTrFspkrpqq'4Q3$*lNmoEdc.4(x2(&\9xnZ399b=FkAuLdg49:SrXDug3vHI+MãU"c\E]AlA:zgQ7=9O/ij%#\TR(f'=UIp\>)&+_31(RM[Y8,0[j>3Y15ofq'XX?F-W-+Iq[xLGFkY:$-58j'*ãU"Mu'P4ej_GM+F>Ugil]]J:NI,fN2OWg\S,Kdkv#s9j98zduUpQ]p1BLOA<_U28BbãU"91S,rLqf1Q')dnD%TZQC3cn]bH^nQrS+e7#B5gQUdKQK.*DI&?R5u(BwX5uqrq6ãU"Lo%[Q+?gHVf72?C-YxP(Zuyqf*W3/-b7*ACWx+&.NBbS4_,Yrb%?##5_9cV:<,CãU"NfR]HlfjZUEoWitXFUjU2t>&JQI#$%[Hc2yd>ZB]t/)A[>gPuG<1krBFM0X'epgãU"g??,)+fR[5%+=U;nAQJzNhhX2mNu]ãU"=fhRH(MfL;L;Y5waE'WVNMZJ0HIB)q7%Me*f]6[FKze:=uaKgR(DpI\wn7ed6sRãU".XPwNn9ukVKJawP1bg+VIrJYgN-;+h1JFWaOkZCqlFE*gw1AJBn[QYDbf1rUs/1ãU"pkjYqdAb<]0nX^C_Js9-dUcC*C5PJz^R/\l\5-1Mu]a7Ld-J/CmWQqhJ]xw^hsoãU"baSkqPuU2M[Vy>-FJXDaglFWfOm6<[eC:,m%.0;R:a3b;7rUj]brR9Trtrlc)HFI&;Z8*Hub7^4WNB=IãU"u,uJh].QpaA5=e;n8,jXzhBF*movwe?fn%n%&J7=7o=[DIeMxnFcJCD5VbxTpA5ãU"U)()]CynKJu6ZAx/h6>C&Nrju3-sWJ*hO61%*4t0V3&q:F7l3OjQfK*82p5Xc.0ãU"ntD66P4fiDe9NylOsHM5o2ie)&Y?3OcSt/PdDsbh8uicy,4bNãU"*';ZgV4E?6sw,N/AR1d\:i%HwNu>ul5wcl#4Ehi?A%'t595rVkmS?f>SpJBRG(oãU"hj7]D1vZ7mSr<dbNO)f-P'L5]u[D%#^OãU"N1wD8W>7c)2j^s[Fgd$[McHO9O8o/.n_Hzf&I&THpDvhY4QhfE<$0Nc1_ãU"O4QN[oDq:%f4ZMZlL4_J=bLP24n8-(nXOEdMF]fZ^t^.X'7l8vKKUz(tr3ãU"?743>0k[Fb6%>oJY+(yOuSk4,:^x96Ne,5JP+$^iCwCUJR8e/6*?3NE%slt0PJ4gS/0nistu(F/:MtG%YV3Iiqs7YuKDUT0e#H,K30TRQEhYVKW5zãU",;;,zF/Rf7SJ8rN5H)e)Q%Dt(6&.^C*is/2se)h&%(o)-l2>i%egeZt<$E\;eR[ãU"r+3n'YL.7ipd5)2R6%q,j[M/.$B_H#A=6*g=aYbCuHB-ZS37AiFuOãU"gjRQr/)?vI_0O[Z[](0nEFktHuZq1RaI7^O-n;adMp'KV$&BN8at*\AalSoRjE^ãU"O%n.A__=q*-,_l;7Jq9s:T](UasuzqOfKvjl&oH]DPN&5=)*n5J1T-=6b1B>yg=ãU"v[AGg6G-c.zK.FabblNERjRFa%M6wm/U$F39+Wn[Rk**3BuCVR.pZN-K_e?$E17ãU"')UTUn>%UN10OV]S/O?5=+b.I9=Ia)]bLECr&fR5#,;CcQKV/*M/6(KsaG#le?3ãU"_bxlQP;&w:EAAwsJ?>R1dInOw4o&%FR1hR/7:BCG%Elw0<&fGv0S7$-D8S1lL75ãU":dfo0QPcT^J-][MyK#vxjx08zoF1n9v)0-//:/^6)DD$)mv_]Z\RU_6QHq9K;.H4%GffPe_FHdD5o:WI8p3si(-QG/7gxS)G;+9qdIKloF5a(ãU"O:DfTQRoY#T0TK,QMP'WjET(PeZ*m3--C0#Kk+4$9ãU"vZ#J'R7.hNy9&RMsu2$CUMlJ=OD#vm4rW&dBe.zQ^YXXvS7Y+licYESA#C^PNq:ãU"VkO=pSoST&iNb:(xv350'qU0V'L%v^vk8).^ubmWdpXvL(,Dna-mMYYA3_o0hU[ãU"mS_aWKIq.4YM'MWAZ&>I]r]3:vOkKM]'9xIoC+Q2WT:2ZgZ0dPZV-/1Kpgw(3t\ãU"Z[J[CvLh/zD#6TRx(^X'-$G&CY&GauShbKEK%:55T2:ZcV0G-%RHSIE>Pwbt;S%NAa)Djk8_;ãU"A&EfWm0'O=%uT;pG-;pf>Pk4:T&a'T9]'-19qDRãU"&v.Q65A$x-IskK]3%%[('2Z9c<^C,3RHC'7S5R'WfXCM'IeYnJ+9+;IOSMUjp=UãU"f1kHXYO[?2o\qmy#r^9D28'1S6Q[1OFIGO*7IU?TYGy:w7Rc>aQ9RNiLF/1y.%aãU"0Xc0A,e':tf\wP]cW,;9b=J>g?[V+Y6#f'u*Rh3u+*1^IUyNXAV4J*?%H3-0#.GSl8oorWLX7_fhz<;f+>]?(9[FXjE7c]&1xB[uEJYX2j%]t.,ãU"usQS#[Qo\'f/Su+2Qv%B&cv&)PwiIX=bqO'TiR(Rz;3vZ6.tEi(M0J$HisSDcDpãU"'e=:cO:f*MsPT]wwgI7$mBakBfV2q[7_0Et=/ag+9D+inWH\K/O*)E(SAv-1u15ãU"*O,E\K;2Q1]'()p#2OZO;.&BP\nRV-GTH.E4%ehãU"v^uSE)eU)S.7.(SdAGDE+ujSE_:CI#v%b^*]EL]\7](lhvTE#pm[s)&#OCrYLU'ãU"ZWfa+,DQY18rl1XT7EYQ0s:KN.,DPES]HD#;O+9+ODH6r1\>C)pGaGCZQRY8%caãU"HNMzpBi+0HJTSC:=GCkzT/mfU+<9t(HHlNz:;EO9q0%0k]q%D3?ZP?LT\d:&-T-ãU"6CZ50o7aUCYjt8Y;FDFQ-k=#2\Ol)QI$y]*Z^YG[gQDuv=x_gdq;V;sGg=:SVegãU"JklxmXP/EaYt<7R6.ROpY,Y;fncs'jfOA=9QT%'(h(;U.TNHx0_)]Ow-;1^(;.9ãU"/zrR.W2#;)+Oi:tfpA/lzz_a]Tv\cJNDHG(2fK?Zy[2)f4hOn0Qq#t7ZãU"l8R^f?5.XgO-2=Pt:UR(3rytmLS,[Y#:Tc[5\Q>+sãU"Y7Tfn[LM=%r0tgXX/4u,8hdmNr5?biB=%ElTpr;csRIPL-MHUv2'''ZBI_Nc:W<ãU"t:v2P(csP#DS^f_iN&ug[OU4ae>CMxHagI,.#X\Xq>.MF9m#M+5lzf%]nr?j7'TãU"gb%uN>W(ow->>u$VjUNs,UkzlYZRVt?4&m1k)U+_s?V*sd*e5R$kLD8Hu(C*r6aãU"'>HekW+3dfy4F1,M$)w;-ZdT&a0J&yNmN:Lu>%NV\K]etb%GfBI#:._5BRl1T]9C4l;[Ix)ZE1q;QtUS%(l6*6NH'^rDCLãU":$]FBd%nZD*CIoNP%Nn/M8>py?IYBO2+\F>m]D:XNV7?io'kH(_$>DN3vj2=Cx#ãU"f'2f?TWOHndr^A+QOf5&nfI3pAXvnzk9:g&ZqF0Mr.BFCBVTVl+=i']HtDvcFwOãU"e[7:Ih-SgXa#7A=Q]Fvp,/tvf2+N]Cu:JBZuy:w>%1dI=Fd/[*#o[As;H<<;J*FãU"ojaR;Tu\ybYbaji^?'4*RW#-oXFngl'+f5e=.[usjDoguVp1vs(dY<>aqwJ?U&4ãU"A(o1\#'0(PO[*#eTVq.8MlBod4qFLuc9DD5GJu&e-[4(3i7V4?HOq*bYf)MJJZdãU"Pf'<.9H#c(8WhTk),.1QVP8exSj.*JnxY?)$svNS'QK^Xn(,/<5]M7Jd^Y$6+EVãU"dle[ht^eo]fTUKx56S^1)\_Ho=hwuw1W:UB=U?jc[il7.]p>4\dHo&]:-zj9BbUãU"bqCyKJ]1aj^MUNc?0LZa_4u4-=90+BiXdyMtxcu[?]7v2,H=oU38[[=tJWm66a'ãU"-QZR%HngmYpNWIJ64r2m&W<$;Wa+?q7mtJ0T.66Ntu+WH?Uwf#:kO&C7z]T:b)uãU"KmHwv[tTfdPaP(Z1BkHn(n%EDd<E6I+I\otfOO>_q;Tv^ObYq.?PXrw^H]>U/s_dPehzk5oW*xY&MEwBq4J,dãU"kVB*Lgzmd8u\K\86U6AZ4D\Ld_+s8#\cR-k;*J%g*RchAVQVj,*,ep->Zs9Z-&U(J>Tu,B'Dj^cT$uNmKlqZ-Q752nybhJ-nãU"TiU13l5i.vff.WNl.6E]jp6PXO(GZIO5l0AOe&Gz1?&F9G/%p1):J^^Eig(>$NgãU"-?><55bs%t42SWIwXL5=0)PJ9(D[FM27Lmv>axThcayJd:_4a('?km5d00UG(]_ãU"Fo^o5d:#(=e9n[M)uqs(=^L[1[RQK71+gZqKg.ZgDãU"3C7CM3/O*0,2N[UC-6'')^\#qI&T18v6j^/Iu*Vpw(Ox)YrPp?saMqa^a?L.RmpãU"8-oeZ,Hh-]7TPlYK>Rm3HYs#5f<.-$m'X+fpe33E)rMz(jho'9'3jD?ECggqE>L=).F&vr1r33H$ãU",G8l?>N1#.-0P.pe$Eef',R$9$ae'nVKst[h4#a=v8rg$ak=qa4tmd[oOR3ij:MãU"/A#3d)0cR[fC7(>2;^iVDEPqv,c]hog?8z7Fyd2KGEYX_>)U,+h\V;[k=/RKP]DãU"(N0FLO0A;:&FPXMI:-6WtLi^+dNp6$S%>dqm4'ROJkGl6Oz))aSK<)323FF-r];ãU"+b:]m$miY0DauBL9=;q\Zn.AAãU"BZC)CxT04L^spv>ceiHWD*=u0eYE,OG-6x+AV*/vm/dgQMBDmVx/f3,X_8qb<=+ãU"eax_qhJD.+wR*NQjM^C%3QgDsR?zCEXz[49lzW/OPCScposh[iQD$J<&0^dPz8[k:))$U%+-Ytv'hãU"+6xDf;M8AY0G+$kZ#/hB,S%&c-272B+_hHOMF,Z6$5Y0M_fO$kISV]:HTn0GCZ-ãU"_1)Q$[D^tvaAP5.;8.E4?b(+/6%=iC.&Ufm&4)&WSWwX%1.EWV^R47Bt4&W8yF0s*#t(md'R0G&y51m,dr+A^1ãU"aEs#iJggzdi=$7V['YM8l#=a^ax6\#:+K+Uc)JsBC'8YaXuE%1V/O;,ATtah8'GãU"#=Nxf#D^&FE(=&>*H=%=7e8,r^>q.Dd2LPo.mtJf^%er&UDi+fi5pem'[$m,d+DãU"Ar6^Jv77zW+COQnxt>R%N7XpVejEV4K;c)6HV>JAp)7YnhzeD/1Y,&6r=ad07fe/x#hRS4O#WIR9ZgangECkU44\(')54pYlOCG)MARãU"lB1r*]_?57]7$Xt+asK--EãU"L.:s&Q\EEaSA?q3tNLjaA=Spt#l_fRbDh<=/9j2G08B^EMk'$XkS&1K+l$;U1;DãU"7k3+o=F'Dir&Pm%SH'k'69$_V>4*n&80atF'ãU"S6pA[gS]vEI:AoXT=0XeP%+YsI>9sertãU"TtaA,3I,s%X$7XQR2oMAb0'8HnTChk)fjWjS39Ab^A+?f&(+]QStcc9$cj;3mRvãU"2f&kcqe2Ckpb)p0ZaOsIk%go2z18:N'+i*$?>>AJNN-t)jA4bd:o[VBfC;G4BS%ãU"iQ^O4fpJCpX3rtTecRIYIh',;ZrW6^V6m8GCKhazkJqdQIyQ(lij2zBLm[Uf6.J_Lc?y=P.8Mw8(3S;B6kaãU"ej/cm#Le=5Z+1uGh&a(LX;kKr5:^cbDd,u$w_fQ)q.4,5EJn/aCVIkQ%7Rw,/M2ãU"p2es1-MvsG8;S._T:,T;<+8=m[aK[P(ZhR,E?F3p+ls7h:iRq.lu[(9xUSEHaWNãU"146NBa3U\?\9(>mq/o?++$c5It&$$Pi\lqV5(U01j^9ZJxXv/9,^J$TBn>r)(wHãU"%hr^nkGJ48H/a,\+JTpn-u>pKiOB^h#YDL%1JWJLBWYG*-E_S2%lu<9Wx;8mxolb)L^Eh1h2+>6s)aU-ANjnPZUqBV^*RxkKI&bU0(MdJ+1J6W:jvãU"vPmokH^HAuU-k)7qMK$tC]5kBIufO(Lxji$WsY'P^Y\KdcJs^%FW4fwYw98cJ^6ãU"C7I\;GnaAEw.nKXtJ6f^\v3Yd8$r_Dzih%?QAs/KdENqkBMK.eF-dNsmsCl,'siãU"EJ.47^)HoKl=/_;-Wxs]o)gwNbJfH(+C+8n2bCJ2Sh1:g%.,S2-_Oeo#i[KG&s,ãU"s$N+i;rDnk^?ptloCn9bJNeoBg6Mq;oCk5Z+H0YM7^hF7oC%qKf=K;6Mstmtj#Xv;&TTKtiJg[ie.sMRCphbs[Gb9I^HkbPQ%Ny,a]8VdlJ#ãU"MuH=;Lnu;i];eaLMuWQr,IG:6wgqz/SPFDw^[sGE7w$6TtG,N[Ld%r9/Ak=p\'(VVmIUIm;?.Rk0KN+g.5H[C^(BTue8AkO\.BX2K6WM+wP/78osed.3ãU"d/K*&r/+0D54,)Qj4UDXlE8TXoO,$E5hr,6_Qz49^e4x=?huiLgE;Bw>&Gx)pq6ãU"wvj4gGq-gT1G5XfD$UMc_CIr8k=jvE2p0qrvC.y.E0)exxjsVXf]Wa8pdTT3am[ãU"NMnYT$Roji?vS;7mg[;ãU"GSe:CN1S\myngn5vrr)=Fc6EUYo10*Se;,N2/0jU2*Bt4Eaw5)?3j;1geMC://KãU"IM9o%hQZ6OnUIUGUz9FV_3=LFJFgjvVNRK>YfJtZEw5CHr1w1q68XHCg3i^&Jnkl=90M]tBãU"2VC_e^44KHjRjj,6ãU"RcqD5-UV$SYFH1,\oiEp6vTE0*Rqa-BRg>j+j?MOhe0MpS\2?Am.1L6Ij6?*2,L?W]+]45d+0cA1U>kL66+iãU">1#X>In=1_zg4N;1jUqH62jpe&nfX.j*g82JH>NH5ZVBP2[:LãU"Ql_TH&Don.eCgx0N-uPW_P:_L^[%StF^Nijbl6XiN2z<%a*d]D5Es?VLQ)apNVoãU"^UNcP0&VE5Q'OLK^_Kh4GO1IUN?q4E4>i0Ummp_Seen.x.DeA6Ay?$T;\_.^-sNãU"Ag'LEfl:+'90]leTN/O*Qeoju)XY1w'Aq0VL>cDR_LAcueEuA.XsB.)*l=9/HMjkkO\Tu10&SFC;c-aOmy3_G'q+O^4ãU"o8&Yi$pH-lewJwl*P\;$+vD69\&kmoJasY.xjN,u)wq*%$-jVhp;WkZJhCr^q9/ãU"*D4O0[R5glo;#=eGr9Q8Y)NPeA\OiFLs.re2<,H;g4BI'fAkK7VPR]09[Q60:T$ãU"/8/A7_MPP#D:1NR=PV^4Y1>^->V.c:^<3V(?,DIOak8s'ub9sv]YsISD*AnRrA<ãU"554uF:U]bX)5X'm0AhBC$+W4x*F;UhJIXJZdjjB6&x'yXYl73ftQ8B'rtdyY?rZkqqJbVAFa_:=+o#RBKgu,CsãU"%4W&Zh6PGG]+^L#99^MF$Q5b#v].RDj,K,X#Y7y6+aãU"[AYUw[6y=(ho;/)+ejA<+*-mF=#6r/CSH5lL$\((0Gg-a0axLbS_3T(?bK]ãU"9+[qsQD\Ph'caHe[A^.ZgFZ(U[9cU)S:6xMp#SISP\1):D:0_t2]jfDkE0GOCqcãU"tsBplu]XRWpNxJW,5FIYCou6kIk9kN[7$?8viab=%Vv3[%m*-0FzãU"8JlT>+Q3:t*)9UMJO\%y+++tqpl];#]&%rXb8rx.KO0-;irB6+WEN%=%C2u1)aCãU"oIVuLxD%=Dvm>A+Mfg7(PACr5i>UF$*5ePidniXd8]huxlan&%^P((U)N7/J->._AxP69b+t8PN/Xl,2mPpLc$ãU"J(em16/)At9rF(mSsoR&wnqV&u+vhSR.l9SeQ=F=bpuG'OC3<164(iBL:-jjyL'ãU":Q96ixd3MãU"TICKWD-6i0aXBT_Rs$-#2AqOG40cUI;J^,SF:?ro\&#)m-aCXU54p?QaOS%PC4ah[E6x3^UN,%up()%9%%%R-%rd]lGTY>9xr&%%ãU"%%(%%%1%%%%ht%ijRi&&ySu#fq2a+6ISVd1jR:<[9)=e[;R>J7V'[g;ZZNu>>>NãU"B>4DM?s\hU,>_XoOO;Y5Q$2]PWe%)Gu/)gP$iEãU"9kUF0i\k=70j:L9sq>ukzE6,c*NmS-0rJdi0G7VTZãU"A0nE;Fn4r\^gp<[>^DN\.2d0*K%g*H8:10ob?/<]c72QhS%/aFu=A85la:q/('GãU"hno>Yh4?jHq7JQe0[zvx/0.rOWFNPgnLmn]J6>k(lz?$$14enoApaZ2^b3BLaRn9Lr,WnhcRuw$rU6$N:$P2X:FJxxLãU"8.dZ=BapuO*20Y+DV]i1tKp$sg_^3.):g=9(TC(fk;:I-w(N<+fQ/AHF-bZrxs_ktTB+dR1okr6_S-V#vArFUlrACvIZOT*0rXq,#0j*&.,s3yrbTãU"Zu4.$#Lbu<&]Kg/J;B6oK>'DI:rX:z2J*?e)A87,'5dBãU"Y38hKgL#^oR2MveTw1+\TOw(P=[\a^sRGS=D99)<%a_5pWLGYrZUBSY03KQ]EseãU"<;BK>#7N$R4Klo54%VXE(A&pN]#Esn>9qS)G?8k_H+rb(r6-)mKBi)]l%r)QO]7ãU"e'G0A,.pZ2dCt7o+kdg)xX]G8s:Sp0c+WDiO\Gv&N.m1#y<4*RJpbHY.Om]dz'+ãU"37;C&9gO]wk*C1#v]\5_,YvJP;11b8c9EC4._ZLeK#m,*7:n8[fd5<-;8MHD2_rãU"+5ts3r/x1]I>%bC;Q*DNKBsC+r6UArV:#L2E*\B,[o]<;0ct-I6y/MeGqs71NERh)D;v\r%hGYBu0$U;:MmFg5'puZ'pbog+?,OãU"La_K]*Y$eK?6kNF-ZfpS?Cs_t^S]ioYvlUEM'#JouB1.&uYa/CgJENE0cF(V)X&ãU"vWs0kg*sfQ5&CwF)Vm%l)6.DL;VvHwxWHbcVRQtls6q4OflKt\K2oBcr70m2$Z#ãU"X.MUWOGKYi0dk'9TJ+;G4^3k<0\k2HcAnMm1Z3%eBQ06bE'?9kr,cKE4N18sK0KãU":y6NuH-'Ire8j&u*r7L*J0[Q;SaKf4kMvY9uWQhgQxqpp1WeXSKZJJk^q./q8cAãU";D-ql_U(sZd+#fmAt)%MT.[5M\QYx?Jp=e%/#L$riF*A%va2K%=>/kFXF=\F+D8$C3HZc(=Qg_%IL0,?3qb:H#y+0u+DRN-5bv3FãU"P%d+Y2g(mqL%F7]C0oW(#'#37kFC(;(Zw:qLT0()D=/H;%/qo59RobZK,-:OdRzãU"0:Vq&*5h^KQT,#g2->FwkPg#H3l[KHqA:JzrW1l9*L(>sK#ãU"Q^=zmYtI&8Bhea+as?3i7',=-/98ErPIV,<8qnt;zdZ;p%M$R[HC%Y7(\*;+^JDãU"3u'V9($&X#-CdYcQ.#\NTP=VS]>^II>-poL(e_P2a'%He_Jw&*(g9agf,cmqhp5ãU"mqAkh(S]:=xEW.f_6r*V0Nz'uY.f[QwyV*(^mM4%74=/=IcOeh=?Y-*CpR#Cx#QãU"/7]i5[E,lURT%?Rq4S\9\J3G6'SzqgNEr8*NQgQ>BDaM=:iPr2OCg=KNGS;u?W?ãU"&h]CuYqCUN4en0]IZ'%8nWieB'b=m$W*MpH]%$[VEs/oPmjFkpuBD2Gw$I&mg4]ãU"NzHkLf'NmHg;QO(pQvKkTeNnZo3AyV?#UhEYu;XV-^Lw:40h[g_z3x?dL<,.\v)ãU"akY%.mY\KB-)Bnd.uXOB-O7S'C)3D>sV-6.rI2L:4'%QF_Gt%$>i,XdEYYnKdbZãU"7QaOWk*W5aD)x'22f5R8t>,4K_yiYu%8WSV<^t)Wb0o9#Di9lhSxeE]'/:;QvqGãU"Z73sw:W>Q6S8'lICN4KgB,Q:9R1A6;XHR;YBtE3i:Jc]01cE+pe3ujKN+ãU"4cJKj^a6G5sbdgw4pH0]Usfl[ZkU-ZkJW)GX5f*6Xfc^Y6AgIt/]P1DtbHm/2b8ãU"AOLl>O5J&ZK-l?9rJjZc%ED4;[uag;]B0FcqAu[:y^-P1%wvmN9x9Oe83f90+)uãU"<>pF4?uW02C#Zg]j'Zn_T[jwbZYyhKATQ:MUu*4fN.J+eIAQ/^b^lme\9s1;YrfãU"-<41]/BH#QiUUK,PyNrKXb897JUP;/A'*V&bVsRI4<%.Eb+xgc)QTx=ãU"-Pt,6Y$,6lv^a%l_4r0G*0kbdnb=F?/Vd1X,'RP,ROzuXL/%)&VKn)Hk_]xOPDsãU"5g6=rA$-py\rFB6uqYIbvdzbl966>^wAyrXLVh4V%&iZ/BP#7yJ-^7f-IDãU"#>ic_XmZ^#vU3pBNmK=[#0(WlraV9_yFwqeV4asSs'+56Cmgt/-EPn;PO>33Qr/ãU"+0PU$^dFLsHHUNOB'F$ptU4wZbChhS%JX,N_[t5W'UbyzeD)k>aSF__8jyYo?%-ãU"_KY&MP*9^S7XWggP8f59EFHkBV4oodccVYn+6#sdf(QAUFj1wxvGcX.qxJ*7KuQãU"$%M6hy:rNg+ett0PFbJl)K9fmTOLA$Wa]'UEC2j1ZbaqWC#%c7si?Q3h&u?f]]RãU"\+NOYDjtxlr?e._e/d:-r6_ti8Tp%lfoE(35&3CBZ&Nz:#U3=.Ge1S.ghY[-B&NãU"%up%()9%%%%-%:$7kGQoPl<%H&%%%b*%%%,%%%%ylfS[nsh&PcJ9RdU9U(1:KVhãU"lR)T.G>)02RW.LCtwfQNM?*;tV9U_1,JtJWK*gD['_eE^Yklrnmd=pWS+]/j4+WãU"UW+D'4rpXyF*8>gCC:<)[8I/*nbZX33K,j0+jD#v0btGn9ãU"-vd/k&Ou.#^[KMHa>)aLBQcNfBmKif^ohLkARE_1mdToVtV[VaBlx3e45?2Ol]EãU"X5-o--cHT=XO2Td2>*S_(MfoyOQO27y.q;q+pyYpL)4/iv(4sQJU&XHgU8G&I5]ãU"(vpMc%aGEVOHK:49.sszJJ?H6wVz#4aQ9VMHMXaR5_oo=zGn=33GZrYqvusx:Q*ãU"KwYx26'b.-EuJHu2N*fU%1G,(:TZjL'^,up%()9%%%%-%:$7kG(ojcf&x&%%%N'ãU"%%%,%%%%ylfS#ugq<4vH:87f9wKQ,VS.U+?(C,vI2)j\&Y0HW[oF^d;=^s%q(h9%[+A*W8m,(lkjuB'EW'+BxPKGãU"=]473pNW66+,=;u9:);%aI;'h\?0F4,Wi8:VYfnZHxuHjSIc_qkW3K'bX2K_'Z#ãU"-/Xp(-eqc#,GX$TrBr>KcTX(_HI:XoiJjaE%VPZE]T$L2N*v8o2HSt^::GSw;_NãU":C*&.?cXh=*rGN1hNQ_/i9^)Fl8]Z+nf2F_W=6_dL*r2\6:B)DVf.Arys+pMhnUãU"9BBf*fId+7.THzK0hLz\hEdNKvj]iZTAfabneMmljLF7uB8Ud3=v*8jjd3/eSBKãU"ou$(MtPxjg&Y'h7tx%up()%9%%%#-%P60kG'8ãU"&thA-7%%:Q%%%/%%%%yl%ffxr%SfxrWf)X>BT]7M;5Ou4Ql/F,&>FLfX5QA,?[mãU"#?CmijlBUb9HAoJO%(PZ'nu>CwnE#pM*9/nRsGlg:FMMw0U*l#]A5Ml$QgF>^H#ãU"s.FL2iuK+;6Pw..nKdM:gdiqmCC9Cu$soc*kI)ZãU"fox\u9jDpRdHZN-1+SY4c221?^L?-0V=zI5=Avn-?f#oD<1HEGe+mNkcsWn(:_JãU"n.w$r5]iiwHs&*X^SPIqtnza.FCRhDaH4F%5p3,-n]al13Lp8m5BCAvQx3B?j)TãU"t3VL3olTQZC6Ljb]lI)Z0o]m-ãU"UN=h5V*VSMnA*VYrãU"plIoi3uzD\h0C[SFq>ISIsrb3ru4Lp-Q\2iTL)oEgPu2_B)qW4Z74:3>x6(ãU")uvYKo7(jcUN3T3#WMDQYw/L4jT_I4nii1rQWnC;ãU"BVt*AkUskHqP'ZYLY0Nhqz7bGAG-H2uãU"Qus$3>NP[$Z_Zrep$HG47[;xl1f1ECKJpPo0NA3+s+sId\YRSiChDv6%s,1Z_U(BQ0H:RQhAu#_2#jM3Ojssz;e;IhI*tn&R]/5UlpBIbQK*X4l'7mLrX/PUlplU[KL:MZGDM01.\IqJn9)(g2fAmhKA0ka::4Do;Y1(%Jf+*rK+80:q3*TuCdIe.)II/p3j:h&[r$_YãU"V.3kOITQIS)kuqNY%#UxVbZMQG04C(_0r:3G,%-D&g7q>pe;ãU"Iy'g9\2)CuZD1MF&?xaq/$jC<,_H=JIJO8ejMHauIMfh2#>4'V^Q*;JNx7RGJ6n[=V,o[nV;-CONKotO1XT?WZym%dA1WTUyãU"qbkp6\b?R2?*_DSUV'gMgp*P4C#nk,4GE#1xSzL]rX*bw3m59fMbQd8RQ0GJ+yyãU"SM7:*Xd8;M'W].f$9ccPqYf#DDID]tn^c:SnIi%(cl?YtL+Aewh?1-iA'y-v?p&ãU"SWAtwF&d;xB<_:OYqX0.^yYYGn^daN(s:GZgI6uFH(/tm12#x_4f-n6Ou>w'6kjãU"J_lO+_'ZPo?)#NoGi?0+=0*tNV-R*jjPjr9m+:NlMC/48N[PnABA]Rc7PhET90lãU"3FS;8fp+5UPyikji%6U[aWJmbXPZ%k'S[?'#LG^J%Bpb[:X53R73;M4p.zT4oXqãU"AIib<+Mg:tU202,s2$S/Y+kL6jw>INXzMSpB7K,CIaJ'sJUC5ãU"m?tbeoZ=tdw;yCRdB#NUL(=65?bG()o8oG3lNvu^.%*->>Ff;0NE*ChzMoeP.O[ãU"jZm.Z$WsO&re>Y5.-a&47/ash.tO\V;rYeoN=gx)OB-ZL)W50*B8KIkXMj+)&kLd*,$Th[AC:\8^;TsNa=GXv%0.Xi]K*<#PI)96#ãU"don^r7QK,TpBAhJI,?bT3qI4rU$39+po)&oTP2MICQWanxdaZOJJVa4h#ãU"froVp]QR5d=]nhs\__Ar&s.MwL/0fcK4Y7vrb#r).>>*#^a2nqxOPn&s?nthDEAãU"Zdw7FQ-^nDZ.jk4pqX1H6rf/vdK^u.K&D/S7^\\WbtNoNa^=,4ZCL,BX3Mpnb_,ãU"_xlFWYQ>0cDb-q,_^>e'PsoyEjOal7]WlulW;S#xL(eio+jkJJ\]W]kYaHb:ul/ãU"6.KL#.a;br0LQ#.)+u=;\6vfHx(;hT;d?vT/)%m'$GX094tLF\<'ef1#UbdãU"x#Af.bxNY-aqx#pnYF9ba6Z&5)W6\;?m.\)S-:M4_Um\2p*ii6H;#qzu?t6KRO,ãU"1t=2$;)IG?be.6DSI'dy\Oze4SI'fz4Zb<=/C[]pR?1W1ãU"Na]b4\Z(G59x^s,n#H=/Kb3JSClYf<,xhXnrH8(?3.q#eM2?l;T1_6G^)XKv;+)ãU"BsU2b7e^dD'rP:_AMVsq%\?gt85iRT<_WCuObv*_0Q.0&l$8*QMdWc#d'Jpl5%0ãU"l5C*oVn'jAqFw[t6>bwi05HT-H/P9K$*7t.=]4asT%s75'SX-gWePmGKeDE2,9X&tZmJ\QXPEqMIfq#xc\TV>1ãU"uAH[BTp?I^O_5VlT*6H9:SxN1V4EXo/-8.PfME8U1#>3a^n6oãU"3.\Xz+mO:Wk^J00[+*oRj\o]enLKBnP896[e6+D&v)](-i_6lCZ#E)-0'VT8G4nãU"YgeACXKS)dgK.&D&Z2t\h'F]f)m)?Q4nguFo0JH]%e1-Z>.L=Y]jopU^LGTqv5VãU"e8UViV.T'm'**sW)\boGpmMgjDsI?A8CY^Ole#JT=tb?>maCC$&89.s,K3%\g8VãU"AJn%t\'km;Li_+mTqO?'+?^%)'m;aI0p0wB7.j)Y$pLmLkAetmA25qQO$B=%y&NãU"fv'+\XOlCtP/0%fZ>h&=G36*0'o9Yeo?Y86$KT<=o.POaTxtaZf$H/5L]yXhh).ãU"oH^fK7EsP+1&Zj3Y&mroesZ)%0Hf7fe3g#XQe_egrd14VfGij:&8f;jbsq^,$2<=.XfãU"cv#.k/P_OV.$%3'WXWz%^N^)WF:m?Qhu+[nf#C.&V#v)=/B5TYf>='MBn77S.nblNK6**H+'3(^,LEnGjFn[7>^ãU"Q&i%athL-l;jt<56=WRjHPLLg/N$D[8aD-ei'Q9&]cA1C23t7)%j*5SZP\cc?XmãU"d/YvN,;$Ztl92mI,SrN\VQ.gynfQowfGg=tsIG:5CutN_&,_p$r?T7R[q-+8SvVãU"pko$53gqXzKkC#I+?T/([D>whDiLPvSk35WOoBI/93[aAR?K7B%wMImTx%e>FAXãU"S'#0G<#eyt1en%mr4N.6<43B9:mq%a%fB#U)zpz2uv'/oi^#mFs)J_fD;4+IJC6ãU"XKoD,bK(cs\52j&mTK273A->&S=>hERE,P/tBCA2ms+D,jks+I8=hcUtZ8z,8*?A.Z6Z8=9FGUH.p+gqNROt8iPg^;SCK\(ãU"IH-wX>d;rR[plgPs8Fnqo0EO%e_&GF0*&)ehOO?ch]B]K2tgha$.4]s9cW2K0(eUZNQ)19&d3IR2X<$q:/Oj8[YoM1t22?t3EU3_ycr9M0mGyo+ij65(Em3m5-l=CxdJ%R'z^X,jkbuMk,r+Xjwv:ãU"bzN;qcQPi.$[[-3DKJ0yls+EmR>[Gvo]mf3ikQa'me&ao1;I.M'cEaE\c910/;JãU"62Ti)l[lf&gS<'K7Pr2JTwciw-.]svet33qy=7%z4CUqXoO\X_Efk3K]HoD$NPyG4z(Sv[K7]3g-p?/T07Ax/AoAãU"yV\:-pjFxabU<1]CeAOQPY,+GJdJ6VrS8gV,81G]pO(Hsz+n]yX**%rz%/>K/VaãU"d=R4UBXDK8Pa&F%)+(LPLJ:OCrU9:Omk1R9=Pz3_s#1MXAO,*&H9b;TWbr:Z5ECãU"_aQ^5.$NA/#%J[#*/1+*\(p6AVH8<_HC?>#o6Ikf-No;2BVAV*7K$BU(r/IN-?(ãU"=lNULA_gAz92A?eE0G1Vh\??70bD.*t(GnZ>%AO6YBHAqRsWMtg6uUIwW&=BD:8ãU"tMPg['fL=,v/Q(ALLEx(Zb(sp_Rf&T#EBh_Kir^KlV_$.;>C64$$cM_-*LH0ZzeãU".#Id:cf2DBq&QLT^=YY)+E[K_Hj=%mbLbEiWo%h1MYACKãU">9D\'mWPQWicnbw6m5BVc.AHjctDulO2S):KI8,Y&oEEW2F^&h4l>EE#;Q1]Dj*DKD%YXua7U]efb.VãU"U6A9/3c-w#MShq]KdTT]sN1URY0+>uAjtpV>^Nk4BTFwdDi,f['U4?W/5xkR9nxãU"T5c5RF%o5?2;(I4Ylfth+g#e$.Cn93n1Py+Msxd;c9Fm(X0>_NXc(sO^DuNIc%rkd.LPgGD_61*F4BbEU-u4&oK>h:1ossg3(g)<*9?VaDQo>,CG=L:Pe?I/ãU"(Jk+dT7d1i&RLOX&P+Qu6bgbDD_Q1LoF4>D'zO5-ccI'Fa?y(J#t9*S,p/)UbK9mu&UU8uTU9qiZF9KUJ5mfo4bS,H)Q2;G;j)95#3LS.+2,]8z5ãU">Q>q*8GAEgCou:b'R'+6bHq9g/DG#R/IR%igM:e/xPUZT7$59TW+4g,3(C3j*0)./?OK9P9I,;jU+ãU"C2<7-JRDn))2r$N+=\$v0t:Lpu5uel6?eãU"#)wF\5DOn%O3r\3>St$i.dz)P%-oo1gs]uZC+n_3IInltRA:Z-2=>'s4^Ekr,-RãU"N?NZ2_KlwuHxKae=Lb9c=AFhe.sAKlT\$[IUVfW?\&;piP^:A)d4($b#MQ?u*zHãU"/#G)-Wj<0UAv]1>C7X_2'Fqk-2W:2t6.EX%\;peQ1i\u;I=7=s\'gp/FI2-aco=3o&\x^2-\irHaXbkd%ãU"is6r/.:&Mm(gH8->5y,AIj#pVGGãU"B>>>J42*dRh0cKV[KD^Q_0%$4xq_<8h%r'o[%d_(bY?G>>-^:4nfnIC28wyX:]=ãU"/)A_jqmWk_0d]$Cd;,^-T:9.xMp\,M[IlhãU"Lj)\%E\wwaAGE]\m854Gu*kvHi#IEPpQ)a4HR4Ct[HQ;N[d>>knv_E6q-PãU"%GLvhvus52)bpSrpn#ckK]6Vw7ODb6ql15,.&dBc2Jaq4ãU"yxi4/7E-D?'nZ&R#;B7inNypesv&Kc1Rqk71z>lIt&BTa7G\ãU"eEJ?<;ãU"A,eA[B'Q.6LIaeZdqjSRiM)[-km\0ZF#+Q.JzO=HUP$5B_gãU"lm%lvG;Q(r1itEG6?_$=c&MxaKZh&,BK_UvAwUz^9NeNL[W*OmfS:9/sq9JntgKãU"4bcG7FH#kSrlrK1O&6.>;#ZD=O%+Q]/u9]>?_:UbxOP],-Af?Tq6uAO#/*xKxLiãU"x,0$,/x2bVRU_x,$(iHDf;*>4T+JY&J-PEB[Yy>'3vzPEC-lHA%F6Z/<^mOEr5IãU"N#nrhfTd6hjZfZdkRz^$RVGu95$m$hmAx>FXit%_q[JGX2bEnt):Incx?c)IruOKVRp7]iVB)9pIdNS1o_MM*-ãEND SUBãSUB V2ãU"Fvq9fX4k.TãU"Uo9;is\Ge;#>9ikefIXL#]^#B\x:FOk&+<&QE*TS*Ws^Aj2j<9u2dfG(UoE[/Q\ãU"h)OF],v4*7&67=hrNRR%GzfjAme2\\qTUTF511.0F\KL&7lHLj(kp+B[n3DYdqvãU"&N+NAC=)hZBkZx?h+(tbT*B-6QmTp^7B_*D282is03aLw]FB'mafWg?CY-YoQpMãU"5pq\IfK5^'P)oEJ8g;bl76Gpcahm&pr'dck,)>=Nu9TC6g)M1sW5[W40#.,hYc^ãU"adN3P6&ia\FP3X4>T35-cWenKIzRz&+c*%aQ5GxTn&d*i0CdCW-6ec:pS-q<[8XãU"$2(X;,-[LI22l$\Abo7:JhY7S]]0'ONbp'wnrVcj]Mb1Kef1ãU"WpXV]LFHLSCC,cYJZ,-6^vTd)Y0QN9]-+a_N02pctE*5Jp$ncAbuS>6KulUqN/s5m$xKC*1o9>rZWklz3Ho'jrfl:T)ZWzw/JTãU"xz-57+Phpj8cia'p=n,jf1%qR$v0u9trTMcAa8[c\Rh.FIil1,cLbD,<>8nXL8AãU"DS,:s[?jo:DY17MnTU^#JdC#r*'K9iFrM.rincal+k5p3_yB&H?Nu&Zfec<(jphãU"b_If&6QH']4*nBz]Ih36nl:5K?sG[9TFMk*gT#GMIL/^).Z?[?:=+>0(QCv)S([ãU"-UuIn)y<;EW5y$0*drb[wb;3ST=XM&drPq0tusBFBQ=L::UoAQCj:Q&d6u:WgcpoXRp^zTL,_O6q&IF*cd-*lãU"7CoM5)bj?,ocBI\?/mfk_0Ece7(Vp$(f[_P)k8l(\BT;LDP]5y1]KãU"39Wpq(jY7CApFpp#zV?$\=(M#^_;NEhE#9K63[Y$&=gBbTNzS)pDbHkzVN.n/d/ãU"v>aRviMAy1LYpjik(e.osVD_Hjcu(6]\003-5MgF.DD_TkPqq#9WhAW-4idhfowãU"^jv7D<]vP=cTMxM((d>Mf4EERd;cJYjI3>Xl>4sFclfeãU"cLs_Q=%5mrNU*Jgog?%?>J*8ZYE1[6Vv*;U$OW,1=UN5/p=W+#ffoFY=Y0,Q?eiãU"&vrD2=:*vD7r2A)AgUyx[G\5m%TENi,SS?7;xoI9CCgn0DEFcQm^?g-SD6cT7[YãU"Lb<1aSeIki$_0A9YO)\_s_E.SCW2qoZaB$0EOnK_fj*^v>qD_SS(e]LJ6:sJ=^'ãU"Qdb'\w#6G7Rz#fiJJ5F.O=,]ogk;iNeq:li+]#W/8P9N=-uJ_g*r^)AzN*2^hemãU"G]^(8pLEsp7u'L7/&NB(+CY&Wq:[?CX0j*gk$p2YKi0n>'_0E$3]va$'?ãU"tJ+xsY<4%D;#Zu*t1ptd0k=/PCB0%a5Q(X,b*>8;Tq+ko+7NWV+rSR*2&OEAq;4==Dk?;2*SrgNdOq(%P_Bg1'+T*5GgC,yr?rR^^ãU"N_a$Sgw#7RF0Ix1QG+R%9E'c688DpE9dt4H%LCmcnt<#/?x5>CxHOTLvaByKYw'ãU"TN%)Kj&tlD.J%s(Ls$tqM]ou5:DgV5A^>LhJ?T(L.T7jq#TrH9,Um6e-15+Cz_OãU"5U4?625cux#).qR/Ft4ow]OQ0[o$uxvLFTtw/IMVan77[XC78m?Nm]7lvuDJ6O,ãU"l<94jD8A*tOMcla2kS[X<<;[[in%-Da)g:B1x;-y3EhaG0,nBi1V>&[Ao4nIBqTot^?k+?'J+2&ãU"$=#KAe(+:ZIdPPVyYvU]G\gC=URaz5hG)9(9lXT$OFy=gw,b%PCq(6Jl=ok1t^cdGzT5Eh%Z%G/zC]:[jRZSp*5c_W[D,_ke9r&lKG'NZ37W,jj=5*eXALG(e_o0'b.S_hi-'2k97v]ãU"Pd8H/rC+KmstJx4;-Ph/b]3OCL9M:1<6uE,B;].62nleP7VN/_e]:?)p,6f./H2ãU"xm;;?K7p=^]D8:M>NYaA)s]4d$)tgZ2q1+X]#duDa2v:/[X#fB;ãU"=$GiZ)ST-rMu=WAgbk\bj:B>tjn_58Cr,d87tN0eN#iNNLqw*A,(9I9CsY\0\];ãU"X=b6a$$%c%ER1=y#WKm45l9M%?4v=c&8^zK3^W#ZKIIAGKO4%6Pedh-I2B>n4mdãU"1U\->nq_I4KvZqRB?qb9)bgh2]qLA:7F1Z%[+5exU*CVNux0sHr(xvr4)vbWYrT/59((,t:uQvJJodnmDm;EãU"Erdm5pJI5SGOgP=>o8Sp2Q(#8mf8=lcI.An.T?N6I#OxK3ecOhJ>d.uwCI'WY:IãU"fc(WV#+iOAV,F15'A.D)mdL]?:=(G97AELKOuJ/ãU"(Ge4]c'USh*^7#t4XEM>4Hqj>k0)-F&9ZoS(sk.o#9I/F2S0$IFy69,5n?k_25Y5)PL-3dfz,*ma6#f0C4sl5G4p1oaw+ola$Y\<&Y1vJ=sCãU"zPv3lK5HCwUJe,=OQj;U5+oNQG0[H=rk%&Uqg?Az'e#L[nW\l_mWVB5o(E?l7omãU"+^v%7C>uc$D2N8a9aq=\6,x)Y:;qOTlU_j1jZ]TUzpM4g6b(]SDYãU"W77qqK)o.A*s=Ug42nPn4kgbQMwzn-Z>u%qAciH6G:EpBCdWrGa0YehV0ui:)JcãU"[F>gMtJ0<^;ZopqT0>Cf=5'd.d*XPD:E6&7\N(W-\8YlMjYrU_oQJEY1J?UPdBoãU">7jXoFca?p-23]VnV(b.TeNgUwM'dM::_90#8l9B2ls;N\9tKETP+jfiQ'648leãU"\7J\etrs3xsd*XYu1ibr4kmn0&MzU#a>)5(Ps)QTg=4p2C_z4N%ckzhuDFgCY;tãU"TIWkoP.ZfBLC,p#ixtN7q\l>7E&Yc=*DYxu+$D?1[EL>na3F;2wrbhv#h1Pmhx<ãU"^W,V&an'_gO:tRHRr]D?C5WsgW(WfrSg*Y]<=/J(QkW,[(T/WMd'NH1Ju7k;gWDãU"S$,E[p-h=k'%SXa#s6D:tP=IDM;(fD4dZ3qPk8Xu=leadT>S:>VlE%o4O]o=c:sãU"X4+f(dqaP2u[Agw9;Dof=Xscpm\nabMBZ=*.sJ4evh*t%E[rN-(ãU"ptrxb-QHUy&MC4(bUu%XJqkF3sFwR*jU]q*:[.hGL)8*6#fp6iD)x8BnDs+M^\pWwUZ-:NUX>(\'ãU"NxaJh:B1WyEY8ku=.=lgg'5c'xup(%)9%%%%-%$G7kGrL$4cãU"l['%%A%/%%,#%%%'%rxSnRshF%SUC5N+XcxZy.#/m*D,LT(h2Ks,YI-:p*?tãU"a9f[b7#RnU[tdDFEo&%coLfetkY]s]pt1ZD>/&+dWzOVIF6w1;S<]6u+;lEn%OmãU"qERi#kX.GL*cm9/R*TZ1F+_&PmKFZ*S1O,$5-nG<0*rcq]&iXcHNacoOON2J#P:ãU"$Mc4TAq_?D#/AVfdS04yF9).q_P&&/CVw.d2wcY**t,muD]gf/o;6=moqoP[WTXMãU"7[.O9(c)s3]H.N#xg#\Un,yIQ9,t.u/_TPl>)X/SZu0R'd#6Sgk;d*pdqj,au'cãU"4_:Ctr&P2^JP(Me-)ns^I[Gi0UlF*jy5Hj^H/E^1Rf,j,nIvejr=D0RJXAgO/Z_ãU"I)m8*EY.+*ayxn4cftkGh?RCao(=_mR7==ho:rQ?h6'VJ0D\/i==%Z[/iS&9<9TãU":NeyByt9Zsrrg]$FPQYVMG36$;Gi>C^ugCKmn%caNi5:q7]F-/A7kr1ggWs<%P*ãU"aCl49eQ<0WJV&tE&5yrWtB't?/]7w%wbUVCsw54rPrY2k6M=H%f#%NP9Fuw(doyãU"peu]Z&iUSSet^1+l[>o:m0YND0+Sozi9c1R\Blv&aYK1;H^>OOQCãU"nm6A^tEbI05W2Umt;BSgLAWJ9i4g(G?xOhaRcv_eyv8B)wp1Q/tk'SsV2_a8qCmãU"$u-R35^k'S5+e=fN6WzJR>YxRe6sxYlR*Lv*+&&#cX6$o%%.EEG*]^QaZtelLXdHtJWR,/;Mr)fo.Fi:I'e5m.ãU"5kxbr0[l5xYl6K7(\'P#TgXR;g;*\*Q7C+*n.rK%:[bVsC[F/S89Nu7DqhT7)CzãU"Rz#KGD%]Kg[c>'>I-N0HsWm\Iik=C)'qdgG/CSr8Eq]vITj0,FNhr7ia$H#;G9[ãU"/+(:#7/btJmSN*9Q#ixY^DdbfUJg,n?3.sCI&mqbaXr4^(,fS7>1-,\,BJTg6GOãU"':n3s(t0cfaBmnBa7dQ22C,$Moas0\-8hcd/Fv09eWS'RjD'%m\MM9Kw8ko%LsYãU"IOO::SK.CQlr\<-,kpgff^3,RWRw75^x$ãU"UETuZo;ySc^2TN-Q]^0VQDh9f3UC2\\n(=S4;(*/a?_;ilUtH'd\i,7Po]AFOx(ãU"nESTI#r5Kg]5gmdP7I;E'w[RNS,U'6-?OgwãU"WO#:8a;oW;Y=Rf-oQ*ir,K8bK.GXu6)(O1[O'cmZpwofiK4J.NQil3d/&e#0UmNãU"Vq_+\3[BD?4SGYTbVN:m,U4x[lXF(j)<*.X9,^7xKQJcLD]4Xbh4XQUW;G4'K9tãU"2MDdK#L8z7'8.=XKfãU"n&%1jM7MBNk?0K3k'5m296FFNnFD;;cQC>?S<*w,qtItEv&&s1$HXd7QnbX+SfuãU"oV.?bHntiqF]/lNb61-&N2tB8ugN4#bg*tcD/tD=,^jF0>ãU"S^V3ZmShD>%'Rs4-3^McD]$6,((Y#U89lpHg9NYJ+%3HM>m9a1$3#9xGYJZC:DpãU"q>dkVCr[_S;dV?IILF,>O[3OPRRNnL,[[QE+k1)HYm#Iqs$^0?H=P10*Por]O29ãU"jW5no'=*;ljf$JO;*;&+srltY+GbJ[gx*9)ylv_\hOhcIpZ43+y3q6Gs_;wkw2[CMaxFv4^.-rHVN%dIPx6$ãU"AIkr,/4yPqfff98Si_Gw9RW..Mxb9y&fvjWpzXM12i959DdxGsYuMMr)[)ExVnMãU"Bxcr,yM#qkRe&xdHz2puu)qoeCMfdm(NBMJkd'DyDwIcZDg[v:WNPQMOiWc5M2+ãU"Wn=wPvMcl.vP4OL4xZ9J9>r%QBMV.P?cui0KXyoku?_sS+rV//Fl\qI2Fd*2wqUãU">M4exfQ+J-6o)y'NWwHbJãU"(IB:alA:cLUOcT\Wn:ByOHt-m4&hGk2V$no+4anrO6J7TJNXlL-rlx.iLNrãU"Nnt.F4&zx_hF76FASF-oV#I$ia.bGXSff?Sx(n77X[$-t6$:+5]^N5TY5RpP9>nãU"dF?]+u6PJ9YyAPJ/e;o<_\D'i]aDpvW(#;0GrA'E'&R%(o\^+sk^D&o)SDPkku_mD,TYgFYXETH4/_mDKCih54:rmJYb.Bw_jkmkI0>.$Jk6?b,aKtwjDcuU&ãU"0G5b20&r3[T+yWt9L?AurNogUiaE76;;&SV4B2oHh$nW4,*LLZL?guCdzjh5UGDãU"0HsgOgO?eB8-+uH6B+Ndtp;3MfCEY[yZPb4TcGv,K*Uw8V8QVP;w$mz2bEãU"wNhFCn1SkXUA+72id>7WA\][k&<-(,L8&s0I>u*ph^rr83PQmb?a\.iO4qXr01uDsV)j^K^__ãU"CcU#/7r32/:BadPc\wTD8VmNGI:0kslGZZ0M[<+JVKãU"aR&<4DM(M[d;]SJ%7vm#\,E/[0aWWCm6*Va>FZ;']OE/s]JK]6-Le9k:\P[(Wd5ãU"cBFqV&9[dM,:2]Pl%%$0[3ToCQ<)V?N#]%(%'rx%Sugq%up*+%%%%%%.%.%'b&%%'0g%%%%ãU"%ãEND SUBãV2ãCLOSE:IF S=39AND 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ãDavey W. Taylor BITMAP LIBRARY audio.squad@mailbox.swipnet.se 07-23-97 (15:17) QB, QBasic, PDS 113674701 BITMAP.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.3ãSUB V1:OPEN "O",1,"BITMAP.ZIP",4^6:Z&=54823:?STRING$(50,177);ãU"%up()%9%%%m-%i3]pG?C:xeV5%%%Rm%%%0%%%%gr%uRqn%gSgfjxN*VYAT1a]7tãU"zWPp\n$5cAXJPvOece'ZY%W+c]k,j&GN1m1TGnHmC+c>?7BURfãU"3&_Yk^w;HQM%aaRN%vp6Ja=YU?/bNWxvqBnCI7Y0a4Odb-8Ovd<9LWi7TjG6idDãU"Di3ljtldtNkJa:\N()E9Va]o,)#wTBEm5O1ãU"?[\=q[H['D.0'5j-G+ãU"oyG.82UI5WFSYYI>3>;JaK$)WrUnb4jhZãU":U.-89r.jVdft[KwNO:q_(^0yDGhGccZf$X:ãU"/ix4%X#LX7Xr4pZM]:lFnoLK]hmjC3zg7B4;/](RH6rp7J-3?bt_K]ãU"Xg[SL<:jXjS+]4\qE(pFZs+:fh0a&wg=>Ify/H/t&ZãU"gDTe&hJI0arE]w/^/Vz'CaO)Oqs7*M+FhXVe+Frl#b8ku.%)KiA0u/BA/d+BxN,ãU"L>kN)$V;&;,.lNC\pP\j1Q1S3VEB-HFdfjb&k'j,'4)isaY&pS90TLt>Gu6u1/ãU"'PDI0b,;JqN[bA-26I[lJy'P+3piPm8.T$^]^_I<3r>+(FFq.7.nsaL.\s2n35lãU"cr0NhCXtcQT6ek1(i]D>lOi;3G^zuad^dh6sfmIu=R4bomUM7S=[TRs&U0(D*?bãU"OKv?CH0,Pw6Z=Q;-Q[nv+8Zz5IIoi_QjRbãU"F>'\r(0DNpw+r_gy3=D)rxW)a+<0IneZXWGae1bP^uo9fl_-;Y8U*ISRHuSuy'bãU",g7I6^0\sKbjHqGAd\+nEcoajGV]*9ambPC)jMdJ%T1kALTOOTJmXvD?5ETyUf$ãU"Pzgk]PLl_1,6#0g(?ãU"m:4Xt''a[sH6&]rD\-mlQYm$/9QfH-l^ml1(lO1fH;Bpyp?xb&Y\Q6\x7;0,z&yãU"4z36Xfh&2[=,<*lV(cs9Pc3]A4)Fx6U=%=7k/uNxc7L#;dC?;Hbg*pQ0tzG1:zvãU".F]lw)ãU"w7f*;pwHNo0O47=#M.ZB_]SfqubM.N4RE+utFvbnI0pF$WtY>c\5pOsjI+^%;_IãU"VLQ?O^9qY>L$Z1Y*..,Rr1rN.,EDI0;Q[tW#-Lh<.TDls3Dm5o#1zlkf?V_EhB7Ak>YIm*2(pp7(z8Nk.yy_i^(]XI]kl/3_8ãU"/C?ZkUAE$$g4^QMf-Z;sntMdhipvTo.c\9fQ*iS(u.J]%z#ATc^S14oZ[6js*;?ãU"C^$kWAJn>7.>sh'[MjX[_RNhZV>FIU&lcJd3i5Mi&XCc3KG0Es4qN^u=w64F(c0ãU"&3Vifba8byl5]2c$[NxSbZ+l)L.jJE9[(n/Qh/Zxtm]lK6(C,w)?TfSZFZ/=m,'ãU"PXkeh%\S&o4paWuVnZ#VxSl9GtE/ZZn)dSubb^UDKAXgrsiOb*Wo'=9m'QIJ.F\CDHSkP3>PQT._uv#o9.Q1Rrj.qVDãU"$,53$tgH05V>E2nOXsXBEwI^ZNvQ)DvCLiV:]J6>C]1mGEWX4)\V9\J;PG+wcu5ãU"II2QUoZ3#FwT_[Bvp26tkLeARpO[\paSl)>2wnsUI4eR(OkusIkPw6R0igv<]pCãU"v-aZC/Q^dZwuQT)g8s3:/.ry3MJn8=kr%bpsn?h*05:=pBP._;W3K%*]'=za.NeãU",\)($aP9eB_b1ti&?#1zKXC,E^p$XrMqI=ubJR?P+?oh8LNK_)uDk*_kWJE$n8IãU"KMS%VX,+$v.kC*f7dJimKXz_f.7G#,OFkoDlpfuDkhdK??,0Xyf/Fu3VQ5dusp-ãU"hYuemm]jqeX.O+18(eWcFIw\.YSGacOTGBo*#)4ãU"X$faO#d^^lj1gM1H+U6Pj>=dWc#x;ji+c,*uãU"E80[$^#H2m2f+B531w^xQGGqf5G#'AATFGLGkTO>H$kBl.0Mj,.DdgK-6K>Eb_#ãU"A]tnS9lpk,,>Y8.*:Kx6%/mRy&X+s6EI7cjIRjm\,RJTYuf:i76LtAu7S\Y-.]FãU"M0^-a#53^.d/kK6:Z,8TVBDMRTkr;mM*54%2xLo?iV^WP^U+B^^fãU"5\Bn2DsqeXsW%qC.HUkH2AKrd]3b=b2CLrJ:'ea+r05V;6QYM[B=,W,[OrgBg4]ãU"%^>b^hA?Ilw9EpsZZV$8e)VdO1-7mm8EvR/+*p)EaItmPb3Yz;GmjrAjtK4J3BeãU"VwHsfKV#W08ZjEU4*(rwP5%*\E73<7sRg(B7S=aeuNJL.[t+;3KSãU"Be=:wJMoXK/d+td*h1:cPxkud)'+9B$gm1FIUIahL>]QgFH:4e.rW4y)750Xf%\ãU">ha4CAf^Rkw%Fp8LhZsbq5tu-4I,:?3-=R9:o#yia]a&]F_t*0ONl-RKW'RK-I(p0M35p;F&;2/pJ2ãU"4'5bbV1.Dahd:p3[/;wdLXn^l[r,c]$qDBQG.h[8wd(QkYI<_Li-SQrcBHuJB=+ãU"]Ez[s(V9AncIU:YXDL)xAXSR\x^cARuhG(06Y1uMK,fE^/B9gH%EsXGWv8sc7I>ãU"aLgbh'V0xK61_4SM?pYrK4E2'yh0*BS6C3HjOWã'>>> Page 1 of BITMAP.ZIP ends here. Continued on next page.ã'>>> Page 2 of BITMAP.ZIP begins here.ãU"/dVx$6Qt4knS(?Ej;4sCe??926NuVrh;CjufOnOl%GoQoatRI2_)E$B6[na*1wAãU"nSpSoB+g&zi:uHl^Mb/Dgj69RF^;8R#olnKkW^pa\rm\xqMSG3OiC0;(rB$$\07ãU">.&&pab>I$u.3LX^#.3Qh0wDiWBuuVToJR'Ser<9'=m4E'_-mRqY(r-62f=sR%MãU"iAi*OSDSd1#m'1=?R$5/i$ih[\QpM2ãU"N5kb9HKD3X8B&kMYR_L])[,dq8tgrM=kYbleHTIL[H1X$i/a2n>wA)O]Y40XJp&ãU"Se;qqjh\CP=,oqI+;)UMnQ,pNaxZ95AiyO*7Dkc_qD,48[q3,3#E(?r(E2,ZHJiãU"1_Fb%O]ZnVi/W^$&P^N4[>eSTI5tCxBmf2W^53-QM6j3TgVL)u-PqM1;fon>3FHãU"AVw*jn9wNUd_<(DoJ5E5HA#9NV/:^tQQojy#1%YX$KGGW\R4k.BLTj9F-bP9w%\uafkSka[d+E2=GY\q2cId0Q$Ql.$WmPS56c=?g3VV95z4]PãU"E:W$N#,*>e>62Yd7(Oe4\q=QA3AHAg>_pLGuKLXAu9n(wdJ_Z6]>hE3,=GK7N1VãU"%IsFU3hxQ^m()A-oqt1q_Z\[o&'[;+MYN?lq-GmUJqFl5QEv2rfhjV1pTDTO7F<ãU"Hm$lmjY[IhT4G7f/cmwD>\FT=O*BgQ:TQz+$cW/6S/Zi3TU#W6GcuaOQ7=T>1e9>0m5=3&C76B.)[sx'\KHOBãU"$=2:7#NNSFt6lm3th(4\8&?ZPR[XT4r)gSOX9;2XLNOHw66;EN6HmBW?IXb7?bhãU"Nr0GT4IH43n,H;M0?5yk<.t,^-R'sdup%()9%%%%-%>r2pG'nicH%R^%%%-x%%%ãU".%%%.WY&n%sSgrXu&5(nCxP3OSALznV$c2FCg]JhnO<.T/QRe=#B&IHp6R(tL(.ãU"-m_Rn6ys$7rD#o6+ZãU"G=z0^V(hWf)ljlXpNxOd$+ql7vNdZV=vd]:d&u-L:d4Qut>j$w^ruTXPxJ9gDxLãU"&$yoIAt7nX.mIf;mzRe8XY3ng#qvPe.ynsz77n.ie)PdO:ps&7_8jiK:Q$ci0[?ãU"$=G-Pnt>T2TTj[YX>^1A#ãU".Y$ImF$e_h+H^0c&PeRH;0#B&zI=(6Y?)>QC5a*>eR7Dpom%2'%+y2$n.M.7zXJãU"1r1#xGM7q>i9-Kb)ZBlMubLU06ãU"?6+tGRbZvOf.Y=6p*DI7tMCfpu'omdw#E8T8Bt>8xH,21TsuAhTu<)MsoMe;:ZTc>[3ãU"**1(EM>$DCZunfv6(3n\cs_5-xr9TNN'DIZQAdOiqXo*1#0D;8MZ7vOleNcBjW\ãU"YCuUR^]yHHxl//j'Z5snBNHNq:ZO$$Xao]O.1oãU"*'-<)/]OE1MOGUqAg8jNPjfXD:6;WG,H]6nnMfjK]c0\W]tL8T'2Jt%&2I7zp0S>ThFnãU"I\H_H$fEGXJ4]r*W4pP#u]Gj$SN?WRfNLS<+L?m3F>EXa,2BSM7e;Y4Cg,T3eEjãU"&FZ>L2QQ)jEqx,rh-4jHLZH&H/h]MumQNv2V.yyBN0)A&].J,a*3T[VGy[/]:PWãU"g&dg3m&hyOh\gO^uciRGqZ/'VFQ_2^-l7orV>lS+jo7J(:T[n7GKf,RXHUk-KB(ãU"vQ=*RaL0UJEWGHtp(:2&4A:\[Hu._4Z->ZlT8n1_N&z3TmnL)=7W3o1wvo_GHz,ãU"M'q-+f2A]F'^Fq5GQ.G0&XuuF^;PBMPX>)p^u*QPpAMeSe:\MW5J]4W-/Ljrl-nãU"I>Ya;F^.a'5v)OQNkr#9:-Y\FSblZ?&XveãU"6DVZR;9a3MYudrgT4Up%&9uHI=l--h(&n$r>zX76usRC1($fLeem_uRYrs6YnxuãU"d*PNU$Dq/vQm'*5.GHlH*[[d'[uR*tUZA=ZQ/QO$mN#\\eG:nAu(_puH2b:&DPLãU"^t:pd'UJtNtT8Td(ot:-MbQ:AãU"]':dkGWQp\W5Md^l,HNS$Q5SAV&Wx/4sp:Xx3o>He'=T$qãU"M*]?M^Ce9s62tkL%FQ2iyLggckIIpBE6whN$]?,&$mWaY#ms*VN;VIU1;O0n4(ãU"E=?[KrPu(wqKcnX'J%BaK.-P$W3%r2Lg#Jl06L;aAS2x[B4Ni>TqMsdpvGEhcD-ãU"ZCbT.VK$9\Zi%-drMyV-.$qa3,afLu$]P3fr6hLs#4oofh<.uqyxNs6p8>6F.D[ãU">O;Q+$p\=vl?kDX)9R>(Tgpa24qEnV8eErp%00_2P,z(9o(:Q'6X\7dgYOtsQ.'ãU"j,h6$KPD2D$mHL/sbsKNitZJHa(Xq;H7me4ltOwqxUGCIpO\]n/M6=sKoQ6C>bH;T)ucUZouuKn4zPUoãU"kp,4)mU591-3KI'^UfxI<;d%dy\%NLYz9*XpCds$>dg*RGT8?^p-vWAegFAId*^ãU"x)gZL^YF%^_hdAgY&dWy#(ZAou)pZm#pENuv5>K=(loSj8V+M^M,:4>WC5cT5p#ãU"JjC0P;JqA'E7X^/TG*oNq6qQc0&>ruKsu?VBRX7zZ&gZAx;YCRjjjfl)*kAS55HãU"M*SH*^iQ')MuaQQqY9&D]eBvN/F0Tw[3l2P)liAz#MF-c/Q'7:1gP)Ii%UW]WW9ãU"Y)42P4VSVn?V#v>D$(:k&',HY6wRn#p\,)'zf%g799V&x-vuH7pcNnnJ\OyWeKDãU"PoUinkbvehV:^6:>Xf95X90:PR\:rf,t$joVR6wsG]a2?ZD>lW'vnku,b1#ImRQãU"Q#o=Cp#E<5Dqk;MU]44:AqL-8a]s(.Tyj)PwITLten&ãU"s):=PD,D#o&7]*YVA,Dt_L\iUc;8zDQ\G$$rtYo(q7A#U_R9c6H'Pk9]7'wl%+-ãU"hzATUZADv>9X.o0Zok;QsJqdxOmd;O9lBljGc4tZK_,p)su7u2O39Nw'0IE1$w,ãU"UhvZsdO2g]]WuGi&BLED,.R$i-#-'$Zdv#rls^Jk:qu^O.D$&TF#/S%$z^0P1AC^J&#ãU"^byAKge4Fv9rUGNj8Ux4FWSB&h6t5e\YtUmt,ihm8lX:IwXyNu6,cU(B&F+2daIãU"dH*fg3D5Da:\G//J^Nt6]N5jr]9iG+?g58WU^U$(2OW[522uNq9GU4?2Z\8#xYkãU"XC=?Gb9QEG_)-vNoU*D2DrY4lb\jy4%&xBTb$c2Up\?vF]>8qRWNKroN[ZW1UsMãU"cVtgM5o%o^qw9w/20M%A.yQ$UpTM&oeJHUEh&flk-DMr.^pQUiwGCe9CFRHT)DDãU"6(4uondaM^Pj$kãU"Va^SUhF2OOZHyWYz>9$i/CLo3Z.iU;*>Bju#^1&5(KBEpPWMGE)V=UYN.BUBN_DãU"Unfl)u+mmx^p-eUtodckAf%uZ,>3QiOh'VVg4uea$q7d(EO./pC)tFydCãU"s6^8d#$J+QAWr83cO\6DZ5((bo^C9tFkF2U(Vx35p7O]0NWZ?(^W4]0XK?2--r#ãU"BRq$PYeDVBh,XbVNE#uL?,NM>oyX1DXktXPru-=Gwlt6BD:bK$MBzD.j[pXnl>> Page 2 of BITMAP.ZIP ends here. Continued on next page.ã'>>> Page 3 of BITMAP.ZIP begins here.ãU"bLGlD*rD1JQx-g:l2);QBI*2)VedM=__=SjWaGh)sTTO.k&?*BT?I4M^g'v&2VtãU"\2sJ[3qhB%+GTDm=#-/Gxb.d%tALt4d,RgvfUtP'^W6Bjj0*8+kPcZ'u<'p9257ãU"=,P*1:&k[]ixVFhU3,#hjjaP34ARnb=%wd5Hx-D0s?M[Y$4-U90cj+Xl(V_*BANãU"5gaqtH>q%e91/:GxYy\Gc\B=JH&8V\S4Ju8?SG(GtEV+3zuTI4368sC:^DfWgmIãU"oWS?NuRY##K99jc7:qDKi#X\kXTe*gF%$^qdBAChHyAM4[j2u*.paxKlJA]/aomI%^d[^?ODq/3&U6Phv'd]^Fo?W8s9ãU"uID8rrWSGrO;'AL^qi&IB4l:U8)qd&:]G*FPv_Q.E%$$dxE.bz?LTAn-aNpQD^3ãU"A\Va5ftGV>cl:yc;6z=ibv_\4q:LwN.p'wK$lziRT+CHrjflb5*30+>.N=ãU"Aq=vWMCb/V'(ALkl;DL(mAs6.B92F09;lZ9/ug%275cj&xfk[kdAD:T)RJt9IagãU"EJ)nYdP*[6W.PPYqi5i6cw\V8%jYsO\J$t+%](7FzfCXOMG4%=OE%k.GODj'OSxãU"f<-)C?CVeih;3gAdABaocyPsUxy$rKwG/:t>&ge%rF)=E]Rp3vVf6fcB9oDF5M9ãU"UZd[79'2FkejSB]rSdr?$#%NXd%P;ãU"fDxG6%e>E*>%4h>dPnD4gh+P&>kN1c$NB3FgieEZ<;4D3Q#sLA,pcn:[.RR><.-ãU"pGn6MkRzQ+:HYcq*xi(H]gBJeUYdqLDV<,DVhzF_/y4ISQ=ea;;>C.jghu(%:A%ãU"Ox9&=+wW.Plqs56-\NazTNaL4CAT_M2hKLUbc5cDc1u)UM'k=jNDBuMeEm3DLZ->2w=ãU"XhI31q:I,gz)q-]KEN%.:/SG\0&d4jNZr)5kh)BS>t2w3CHK>gdTw$VzE^IOnm?ãU"*muGX-?B_oe2BGLsZ(PZ#]TbC0uH$:vCcQW)05zyS-QE:-EC0zXBtwV>U$7V)NkãU"_v+*+x5.p0t+CG5Pg.HajC5o&2XP_/nznJ^zE6boN=?g#lBfQq7=1Z8O+r6-G*MãU"rPA+EN:a):O)hQ1=F\*ORE0>fxu2_vw[fãU"-6Vd=Q,>r(V82R>x9>::CXKN=v3=o>v1URl';s.(i0(xBK?xE(4y1xO?T+ZJFtlãU"MYq1KW[Ml_E*F3:aa\C2;aPZPtbD8T$2#frz_Kp5o/1[ãU"Koo*m+:bR]a+LOMUs3Q_$P)HdOEhcZ3^^zDR3d3H/;[&2GB$$VUk,PiU'-pLI6_ãU"/w%<%Eef_19uQ6SNUe6(hO10Cj?[;QpKi5Xx*5Pdpjq;^WZ#&,71m81M9/:HF*/oRodW/Ij/;C?hJ3;.:?aXpH$qHIdãU">nuOprA9fVo_c#%2Y4J4hB^u2Lea%[$6KEIj4R#5GUk^IK)gLH#Qp'A%h,[(qM=ãU"()RyUCmUGM.i://E\;-2];=8mfIfrV;.,PJh$%faoa?lg5ITPKcHJ;XT*;h$4+TãU"YoW8z%<1qu\:A8HW,(1)V_UkY-pRgr-s7^vR$V+:Su?*fK_d;%bCK1zuEli42[%ãU"2Zu*A.lPG'TS6/OvO%c]OYYpJF=l,g;&VBNWd.Jm[6.omqUicHUK/lW?vXo/ãU"46W=87QkXbNY'YxcXyA7nH3NS7#25+WkMfOJO/PaOs)gd->Ru'*hMR]MFF*,KV;&^6>J<*)mO#'7?2=u%E^ãU"%i0IIXU%*'Fu+B=80BSHh0=G=BT.=KQ6_S[.[XY\9Rl&WgTaJ8O1HNSXtV+u\.WiHl-[VNcvT9&^>Hx+]1NzWeeR9U?fqkLãEND SUBãSUB V2ãU":hV8#sdsv=,$hl4hNf+wRa]tPbNk2PlilUanb_$7k9<[+Y:-%Bks52)JsJr7(oPãU"?p_iaz6mHZ?bPID]90\y8lLkqE#9k8w0aM)Z)0uoDxP^Bl=J_ulgCWn':'qsOT-MV6DYA#1B=b0(UHmM%;ãU"'e1%icY'&+%='_:Wib.UeX [71(]U5K:i'9:NAOk+)r&($e>keXC(a7V[crCsãU"=Y+h8kEZR9Z'p;ZmDioW8\Q8#iWLZSeE2j1oc=5]==5a=bI7\q>c?3wfJZ&JQ6&ãU"qJ,y-ZxB%2Pi+G^BN\4lwW19cc#1[;Bg.>T_PAy_r=[Xs>6)M7(C5;9\>)kWI]%ãU"3]b+u4Tamhg+-,QT08bVbq5WdI;o9F6r#3BQu-peXjRjA7E?5)r0K1'*:)Ba+;MãU"/QEZLeiE45ot%s9VceclJ)d^hp5FRt$HEuBKftR;_=2xO#H=O\,m8T4?XS\L&l*ãU"B:wqx:EeD*?AWhk>#(6Ncfyl6ld6($cBHCW,yu:2d/ICo*F\1Vaa;E'oe?EYe-tãU"k)P2n%'EPsniV8B_Vja1*BZ(WPr#6A\J230HWZCON_CBgTU9f4bRW%+)6W7W7AKãU"<6+]K6i%wU;3(iQe4*916nA;EA?H*L(Xs0WjdDXLD\OA4f,ota+hUhK_u:JHF;iãU"80]Wu)>X)=i(d(hfJw,QsI8Bos^#aZDegFE\Jd1Y6X*vY.bmnlKR&.r/RNs(b4BãU"xAYKidA+<'am/#u[2q9$EaDi9Bkd3=\R%;)_j&,n/Bqne5f?-rHs4FY>q\-Ee9jãU">V-m>Y,D,2n%Kh.OT_;T3<)&?9ne.7%QU8YW*=4eZ?eqq1:SR6nZ_UNCQeVLdUIãU"pXJilV$2Xs2^M5D32)>aGxg_(QPp;rcrrKDW>5tt3cmvO/i4w_kf-evu6:LEZgTãU"BReniEVh#4-hbvHZ2S^[4^t7%tD=$0D#kV1CEQC-C0Dl&y'gRbfOfc_Je:=o*7;ãU"[dY%)0S*Ldq==9t?6#(*p1(-Y_TYAC>,CZr#:pr7Ac=8$DI'9XxI#U$i?9cC*S.ãU"1%M++6%3k6V2;g0g7ux)q+]Y4LHFjXmuJPR2HTb(./s3L>5*2:o>+Ia4ED9;Ye9ãU"4c/:a%%b;)'0GGxSv':V-SUPxgm:UF]46W'VpKj=VLP4ZmUVEkK$M5qJBy&:d-/ãU"dyY^CQ-j1,2'upiLO:(,(4svX(f*./YiBHgX.C[V0]sgVGK9,OEiM4=-iq+a:CRãU"T^:%gUSkzP2lGHf=VFN]2U&LfId%a9GuJ=2P6(,qF[7?/>gIA?wb,oo0)-;-TYJãU"1n+At^5:Go7*gm2P:u4BE]qHLoBXm5Y6q+ãU">]mO^vq5/oVuiut=i]je=s0fw#&jal?u%tNv[udrAN.x1,)s'#5q%gcSe\3a-(6ãU"s:?^n(-?jgI59']Lr]n0%Xl6[v-ef_XG5sK(#]2#jksQ,#<#]4&>E#Z'f6FE]j;ãU"I*%h^+2svy&TM9kCFWLw0smek7ReLf0;BkW3>.C3l6:;8:8l80a;#S5:D*wI974ãU"Ri,A^XUlkZrp[W,dnG>63EqV\8_MnIbi]2nrX;35X.Qe5\\&.XiSM7,:)$Tp+DPãU"A.0v<+2+mSfSMU:fM;otb'T]&sn$f&)5t%J][bOeXY1wm&DJhCJIbMu9M$:6sVmãU"&90#QWB3AK^18]5\_y0>O12goEXjAIS];D/r%F.jELFPNV)ooEh#16iM#t+mJP?ãU"OkK.2DN$H/ivAubL9Gg$P,h5voN>P,sg,BqU2hcbibI;3Gjhl#Iz'ueDQQln9]TãU"lEUJeT'$97P7w,Kl[FPAStkpii?EoW<-&V\G*WV%T%hN/)$U:z:?*n;.,2Om+P=ã'>>> Page 3 of BITMAP.ZIP ends here. Continued on next page.ã'>>> Page 4 of BITMAP.ZIP begins here.ãU"5f#&hKQ4[rx&>[el7dbCqTk\pI)7C\O(rNS*$0N]+ukNqZZtB6n=,$hKEpNCãU".Nw[iRPSm8Klh#pVTh8T=[3iTS4X(/8_>U^grUu2x,MPPH1ZSF(T>T4+(E[5ãU"tZ2J&Ze4szh%+5L-',ESZ:8qQq+Wcc?sY4(-6kDg7(s^Jk?9hxM[e0KpAwdApLvMYRq(OãU"(tIH6c]&R&MY_;$H]r=l];.<8VDWElqHHkQ(/TAVwUG2uk\Zv1?H35hIo8VB(VRãU"TP4FTO$O)Ti87hNdhR.S[BrEkGnj=Wk6Z,aDqLWNc2npLY0C79pDJ&GS#i\'Nd3nx\FCO'q^%d0%\]4P:_5fH#TsaIbN[=Ml/XãU"4oeNB.uMgkIv.,UHC-NS3yloHf/5^Bj7M_H0)+T&4Ol4$cfT4OSq;_bE-:;2k,RãU"1]V^sv6I5sIA(#4hoQrnGV6#lThEp[&tS$YOLO>#(qSY/CX[\qS5(7&?=0(&Q]:ãU"hPOQ3aInIw';[Y#F$5K&?(DY_7>vAB4VU&7lsbjd[Bbd;mrsãU"ThRSnJoLeQr,dU.lc/%sY]3h%je<=0hEaZov=r14o'Dk,v5auY6Ierteq^+3x8?ãU"]d&zx;KHPiUnB+'.U'VKLãU"9VF>9N+UsrT0YCSt;2%cB>14/Q9*>UvI&THyQfGIaZdy_gGI)XRPDCUrt%%A>*jãU";L]MUXP&F5VoL$c,o89nibrdNu8OD=d-t(kAg,i>WMC<6eUJ(Tj0cP8t+T&t;ukãU"QH*(l]eMdA]c4:hX73BqO06'B5HA5TE0Lt9B;zD_bY9v/Y]'6JM*aiujeJk:XA,ãU"XU*TNXT1mseb_(E8#j)Rr#^I*g/#eD)5mBsqcnHR$j-og+L,74]%AgK[p6%-x%aãU"5Q,U-U8^,X/GUh%#M%P_?C)b9ebqaj#];DD^3,1FVL_VFt>qIv*Zrd10(bgcZjlãU"/bXd>oNrci7b-XwCcG#T5Li2TG5??-]Ai5_-2;b(6g,zeBTn8nB.W:a?GRzT%CKgO=m]N=keUI4lb39e\)X*K9ãU"e(>ycA4=;[cDckQ-?0>dWE2OIjK:+g;'AHM%']2+V=m.JM%2R;0.Gq#[Jd15O*&ãU"CU(-)+qO)Tt;a.8TV;8/ctnP?pvPc>HgDA.I4MpZCe4lAC6Q;]FiBlh+BhKT+.<ãU"Vrnao,]<9HN1?j,uuI8v>,h=RZ$QT];XFvXAFaH>#3iTCUVvSWT\r'd5)\+jEXGãU"n:D)p0ec/=P4'/[^4NC*Fw93lfyC%/f6[EGTJAt4gZRDUY/=$Wlro8BUvpf;h#rq]T:-rpX,pc6$WE*tSCrI^T+ZHLT>PiãU"K&I+gH>8pT'+(R]kW?2\+F2D.D2,dVLmdg2m9#tpcT&EgnS:dDQynXsDrw/4?+Z:Q=X-NaVG$SHGRV(K_+Ft6o[C6e)lG*_/ãU"7DK6Yj7_hK2&(DQkQ&h*vFbHMfjXr6_MHpB_g,DE+VbzA^d0bV1L[[Ocjk:fmjKãU"[eYZB:U=L3j>L%J2lkTyeU=eOGASwr0VoO5tuR.Va/^]8E+.N6K(d8FnRLãU"n27O]slS)>IvpMlu5.pHE6NkO&e-XJsiTMM;)2SW[4E6c\vAF8(K%cgGcrQVIp^$6bãU"T.q_:fetrV:\Q?q(AEeTc1ItrF'/2?&4EE7AJj_b26o:LEB>vthdfP59\An'#3b;1*moa*+?JR#9qSYMEQ&bes#0;qkgTgAB_UvHN\UãU"J/,(-T/74a83EnQF4D1G)0&]OrHI*-GI)%Y3UW$e/)37]YsYK<'heE>>nuSr/k,ãU"&B&j9P0SCS.nH8DfWHb?,TeG+QK.UC-t;*jhDKODvci5L6\^<'Dhxp#FmsNpSUfãU"rDyIwLq#HbN1s*qEoxrBGle6Jf_N2eTvJM7ãU"]#M38P)-i^Udgm#Eeh$rZ$YA.qPHg8)rQXP^r6-$eZbVmfDho.TYiw'Cktjal1PãU"qs=.d?fM8.F_nLUnTqyG-$8ãU"ZA/*tONO*Z/.DI'yJfUGR2/Lob34nA5c-<4)%M4*y&$Az93%vGm';r7sMQOFp'eãU"*qU2NQX$3%Bpy;jo\.1Kh/5stBiY2/;GY[aY7Eg3TV?GIVvp01i2o5*K^8-LHj<ãU"r(I?HNoU]C2V^(,QHq6.U>+tGiTx>$tm78n'jTx,NWD^.9a3'Zltp862Z,PzYJoãU"%FE]qXJ]OA$Jo#CeifHZJ/fcA*d$F2z6MhYm;H*S-*3878jCIdM\sjF<^.Bnzd2ãU"/VHS\]m'48BHf&L\c^uALY,Z)uK1*--2E$VBtuu[ru.ZD$gD%MXOs3Va]>x.iG_ãU"qi*w]A/U+VglY[RãU"QY$:\V>:25(\xmbT)-B2c)ãU":Xd>_gHc6ZpOApB4$sMW6?oV&d0dSknx8H$r.jB.t7l47DV.G'QaEwIqVzt#A92x)$T]KPk;6H+f+$,SCCf\/Z[;kD4q)$RIRQQD7E<<_+mãU"-C&5]$UJ:Sio%%h1Ye+h\&?'iFq-.G(T9;K;LKLOhpbINWms[8N/..IE2wA8K*TãU"^hUk)SU(R$cYiid\OPd8(e2qxa$Xo'f5dMef,Bvgoh^p<;PZ8C>Mw0HsTu*s0uTãU"VSuv7h;h>Jnv>HHR,SBL8Tp[J[Wc]SLvs^;b5f)NkAc9..EX&[e='=)/P%+0>Ooi<)7)77U9#IKQOo.RCCOZc_7>KLHcc?s9'MUUi-FWqCrq7mQPfãU"L^N?0lbDteGv-Qx;>:k&w#untdO'?u#:pux*keZ(D$MJidHNQTj>65]Wj]rk8o9ãU"uVmkt8xb08qZ>*,](^,Hu/ZtdFR,zLhrt;>UW_-p[+aTfC>y0EzomãU"1SO*;ZdhmPu#we4l:>qLh(y9-U&HHNj,T3EdQ8G_tGE62ZqchNH9?CãU"6duvqplstx-tQU(Jnut^Y>fX3+uZfY>NUQmx4HpL45jCv5s3Q&2l]7=_mlBYP4DãU"hd$X?^p;0r0Q,P_Lr<:b(cR4_c7<33'+&Yt+g;H8/8/0?&uXHyVIgB]E1ãU"Q.(A8jfMIfr>Y$Q#X5/C\J=pUL,nAX,06tNWxUB(,TqYEY;>otTw7PKwfTtv8XjãU"uqv&#]8>dklNapHJU4Lg$RNL*r$lA;k\9]Pn+h$4&gH2;,gHKJ5461vlb8;DOEjãU"Xt,\2jm8;A/B1Dc/?nt&=Ki9SKL/%lT#[=)'JãU"8eep%x>'U;tV9BF'RvI1(uY;='To_E4GLHiabX\lXGlwp6QbibtX48]i$]>owp8ãU"f>HoPbYObERoRLgHkmqEtlj(vP$g\CwpMJYvW=m0R6,($X:T*Lt>RocQ'T:Rf_8ãU"8$Ukw*0,BlFI8gv#f>%&z6m%3VfEKrft/-or5QJ7)PoZY1BVn(UE[j,=g>C,Di;ãU"&GGWY#?CAU6=CHBR=BEPHvR+afH6_#,ttM0lB$hEbjrF]#ge\Hj1pãU"8.5B;;NNX,IB5cZJgX&D>mN<_0YO4ttK+xeXK0*tqEYoC^7s,>kWeea.m?l&hV1ãU"v9;&+bkK>6>ou%P=/0?j312\V+#l=SC/O#G%I&ivU'BIaB/PHh?9kkKJjznQ5m'ã'>>> Page 4 of BITMAP.ZIP ends here. Continued on next page.ã'>>> Page 5 of BITMAP.ZIP begins here.ãU"j.W^^KS+n?P2klJM2XmSdtD>$Dx]coKd:ip]+wY2nK>m,Tu/kAwf^8Bdg^?lvgXãU"j4okwG=$8.QF%LaQVxM;fw21[:*JcqsT,Oc0Vx:=LT>4tl^)J4rjU]UC+\u-\%3ãU"pum5qI%d])bXd'XD(7,Kd%];'G=dUYN;1^a?Ad6+zF)7.Ha#_8Am.33\h%yV>31ãU"rUrL.Xgs%HF)dh(Ja>a;m%b_j0kSkhy]Pqt2w&(Z#pVls^jFg],dC1?mtJPfx]IãU"^gd%nxg(;1hH,8QlrtHbet^DHur)Go:OG;C>Zsa#hbLhk_G-l1l#XksCBJ,?,hBãU"DUZB+;kqJ;ãU"fXU:C_rDTO>m699Z4>iG&aGe5c>,)=,;:L7c(L7TU#Y6=k.%HoWFE,fs--]5&'#ãU")%oHt\NNRYn=beGaxbFY9bUg7(H4h>jJ]qKGw?Zic#b2:.MPb,Wlv7.savv;HLpTE5B]ãU">_pKF8E1ãU"qlrK-G3XLC1PJln*C9rGeh+MHZ8Zgqb\;8O?0-TuFg;&P1>]7BO4_JM48S%ãU"HA\].g6E)/.XV]kQabo_5095vbeWLg9eQlOuGwE)h+Cl(h)x0a^CmsfVDRGGXZ>ãU"[w'fEcU&I]H%/myk;Ji\H/qcIusBieZrAeT69o6bLH^D/fL_:3WJeNhãU"#WUVx59>z_R(Udyj\=yS1.(\v+wSOOCwB:zEq.=IG'bns.BKZ:1RPpbjL-d_g(jãU"OF%L/=W/0I;fU2/iY>N9d,1_p2bss9$P-4jc,///\q2TVvg*5Y$Aq1&#t=K-p)Kj5dP9*d'FNfjg*q7pq2%d^JD(:MU-yu/Zu9R81j&u%w/dãU"zPVv'Pme18:O;:[+IvPex(iaw6'UfKOiu.qr'LB??*JIWo?+Uc/:sAYM\=0/V[pãU"U%A/?3k<(,a1CS=PMT-p4V31xKCK5Y5K/;qYEsa5bV9%ign)8e&qw,Rwi+:K\W5ãU"[QT*3dRsx%,c8R7gKs?d\^gI&[9o9UaRCGgCS&FymeDwQ.c\>:o'\Bx(XiAEqtyãU"?Y$n*NO4g)%W8/HJ62E;OIoQ7Yp.]]?]b4i7):4yp7Zi9]r[1SAg&d%qHaX*69:ãU"Y$,.#Obk5-?B1A:lxeMS$>_/Gt:H+a&OfLQNS5p,/\BKa7gcd5VVfa:Q#wRhx,Iac+*pN%te/;sWC(OenJs.=l+eãU"rN_[W>*fU2\,/+8RVK.Xo6K,We]^*ApA))?/ANdQ7F*9%X9YDEC.Td#,)kn&)KxãU"D&Oi?hvYq%:'+Di7EeUo(WF0&?0mH&bqFi98OV)2Gopg/^F?+=4;sO>hVqk+q/SãU"Rd)VG??d23\*JRuz]LUR2/\RY%Ch]$R\.9YoO[b-v^J\i+;#%Uf,(N$Nj5Nw&h<ãU"x.xi]U5NN].b3(&d.&P.;W7J%>X>=Ti,E39Iq)K.G%*u+km/X/O(<&a8B?JDMK%ãU"oU(=ge[(yg:o6EAD*#OC7+rIl(.ur3Lbxm]jUuM\'AA-p3dn?7JE[ãU";P_#3gf%[tjx5^5y&a2*uArVQo(Wptv&>/I(&0Yu+wNW9Aij>a&A1kT;qlAGS&bãU"CI1SLH(o0;O/n]BI8Y$%f%)M1&Yh/YjA)X&Y=&;+>/u-8bBU)aq=0l%LA1$%Z+VãU"iU2Ph\KZng(I%h2/3fGI1Lp^IblZO=iRqyIY;oSe&:]U&yX=m?#7(l9&J1(=AãU"JOek0JS._$+F9/2(COb_\/m-?NYUGq:+0C,8-%7U0:n='WUPA[QrLrOI.t]IX8<ãU"G''O6r_/QV*E)3qe(IfH7RF1cVuoPrmtAwS,%HVMN&A%oIT:Evx>&k-6HE]imu=ãU"MLn=&/yqq-MEi&/b*G/(i;AQI0*L3.v=$FAS.f0C+WEFFv9)>/TeG(mi-GIG^*KãU"Gs/)u%XBQ>wI&4)^%e;cnIep^1JxvNIik0YCGAAwr?7=)$_eDkLWo/;['?Y1?oIãU"h%s1>Rn[BqNbk:.vO784J^7exqWg3cIwqCn0v#M(t+(szTUJZf=ECãU"]=ilIL60Y()hWR56.IoG1;/(NC-cEq#)*uOA:fHQ%'Mh-S\dQVsH&aj^5/Wq5(9ãU"3*]1=XY&r6tu[fq6RgNN5;Dnh)y-ub6EPXC[Rp-p%9ta<7=Jo$iEVUb//HM;n4#ãU"%k/6HYG*7n_LIv^0_g9)F8=uf/4rTCqEr6Yn/4.lTRzda[-?fr6--BA;)3o9DE)ãU"eK=CW*F=Yc9+(B&QmK/Jgb/;5o%;7^*/OX$mAGkSmTE9;3WmVmG.u4i)-kuFHR6ãU"[rRYOW[VRzX1LJ[fgu,XeYb*5di4#K&>m:?Vui%EquIk\sb<;G1I#0H]rN/JM=.ãU"jiF_]#n5$+(2t28;]E4EoBH;uS_G2o242%[R+laA;],a6/G?GU9a,A%r*#m=4AIãU"']4kJZq'A&aF%T,41CHV+'FM)eG%Fbos'e%CYe?IhA&7d;Weo;StBZq=2'mwKD'ãU"qCbYmh2GIahL)-1f/:7%(TDi:NY\.g)XGkOI+]'BCCn))R#8BKK8o#O+V_PAwG+ãU"oauoHr%>u;f4GZC:[W,u%ae==276ljfeq6VI-*)6P]YeR[BY?]m.H5E+l9=_4&iãU"Do68#%Z*Y.e#g7cTUs=5aj*AOL5-W8^fVT#cO[],kee%J^T,>IA:N_1?+$=-w2pGK'zQãU"6%G^%%'ew%%%.%%%%WYtx%WSgrsu&5pnByP3sRCvvTw&0-0V_JD2Rs]w)z*wP3-ãU"AFPn6n&Gi2&-6:_6^m&_egmCEQ%0)[\2+nR2QY&S2[+####6I#,;kWfLoxlpLJXãU"k+Fa^5Lhzx-nWxrM%D+:8]^?\r7>G2>i3/DT4\jNox,utchit8uB,b8GdBhi3A6Ci)R$lãU";dI2f5zmXOOD>e7Uz>02P9TXT0NKuq2>5lo#pPg4$jGs^s]1vaI)$waLOl.4Z%qQOu*]f9;tc^__%pI:w_(rãU"yShgjza^\/T7Zm>2ZsD/m\tt.&C=/6PdunKdpF.xiJpTMrcfP<.uq19wB$bTX\TãU",L$eqmMdosT0Wt7RZ-L.\T.QjSqnxclXgju20XxZ$/rb/HGxi)qeoPTZ7FlV]hVãU"6/a8zZj2Vq5=ab,AãU"HT;fWdDVHs9ZkvWIp+DD,T(m4O==g*1q#IO5Z#JGnM&mmQ;((c'&j8)'G<\_ju%ãU"YaQ:Q5j&mTYZ*'mvvWQ-L^vN5:=1ZU4wUVdJCNku?=eB-AY/#2mDG8qE.cKQDp-ãU"N3dfe3D6=3kLzjjzHM0=n?4kRPfPD/E:i='1eIyoIWe,6KQcUJtE^<3;6eQb\YzãU"d3BSBP=q\9zvVZUk,:+tWIh.XwhgpGxDFXv0-hu'5snPBHNqt>cHF&$9NZJd?,MãU"Oc9Q$XP\tx[7UNrkv>K0Jp(AxN-[>TI4Vd4(nao9W2HK?tKZkDY.hWBVu+L_Mf&ãU"mf2vhm$ujcFXZm&/NSNi-H5Ze$lP32HT^pzTUPGhn;5C$eA16[$i%wJ7d]_Nue'qjhb>m4EuHlfYv)10?nJd[)6;p32[8RiA+QzwKlzdHIG>7ãU"-aO&<^9N%:tqlLpS)\n3Dl2+L#rjr#'9gduw*2usIFwkqwSHMIL+.Hx*.40-vuiãU"(]lReo]Aa*;yG<\VH;Z90n:d=4qMel*YJ2wãEND SUBãSUB V3ã'>>> Page 5 of BITMAP.ZIP ends here. Continued on next page.ã'>>> Page 6 of BITMAP.ZIP begins here.ãU"58leAmjU7l??T8D5'4yuD9/AP/yR*IpMmXwuvMr4qii/ULA8Lrk#9de-,#oPqisãU"+CW>dDp$a+3;.)F'H.6UsVLIoãU"#C==vmM-p9+F^swI&GDe&gZQ#]i]cCoqI-5s?fD(d0a[_^.^wh1oBtTQZxeln?8ãU"ks4&5l)QLocvQK0[>M>3D_l#ea$E/n#h]2kf&Ft$ar*ZJj&]'#yP;\::oVrcr(5ãU"GCf,ZO$k>NEtF=sYkF2y/qwjbge_Rn33E$m%I)uV]Ho:XaC3(xP%*+-eUUxqku]ãU"*Z^H^m6umAd0ow]tunv2&_W5+Fe0Fz,+-ka8\9DOSiOG1Mz_'+LFb&h$kCGggK)ãU"7NsSn[6=2[kGzfpbK^_GJxAjC^mLQCMx:XaoCPchlms+#mdaD;K=H>kX-S#Ys$JãU"Ou4Oit*/]vrv>xOrS=8kfC4>7rln*mOSiAmD^ãU"KCV\i,yBld%g0L4OtcBBZ-bMif3#uOGxvO<89;u*wvhS*I[a*FãU"jj[P&q\*ux5ukd\&=?cdDuMZQ'V66p(,xtxd%G?aCcP3rAdMjt;^hm_KY7%STtzãU"Y*X*CcY>xHfUbHs5l>LVJ<%0.kZ#t2[i$rg#%vQuz]:hui'h;ãU"Fq'igb=;Z'%NsNd03kUSJ6F8TCLubcv>H6$0d6>iIs%sjQb#4^kx&y'^f=A]_;fãU"M\E6uic0P,>uaYVIo6pQQ68bpH3)Ikdn<2Z22cYZG2^ãU"f)5Fb2%FM7NSSmC1MQ%h.gu+%NRuvVs)x8NOE&dAvy('ãU"ugcqmcu*eUl%E22Q&od[fwAP.G*ev#\miGBIM-i&'7naM()Cgr$Llo6&(QxU2sYB/]ãU"Yjir$=6eb6dq+JeF2?Cvi.'3z?CA.#lhLYYf,=gF/M_r6V[T#DRtmOjG,u$DHr.ãU"WkCV0G=qn;eMkr+x]X_Lwew.Jv:OrogLduJsP6nSww)wOO*LãU"(Spy^eg?q'L\mI->r*jp[;KaLo&8J]kzZ2]27.C_v?c6_'+PCJz':V89NT*(5UiãU"w4RmwoO=d;F]+>MdHORc5E(.Nbl.k-'(:cvP$is8I2:Tu8O-Da&RJ=/[%dzNDaTãU"RUC=c'A;%<4Vzil;pSL.y3?#qvCy3+swcEF-)I?JE0;*wb2g-K%po+?,7]jO?_(UQ11=\%.PP[QAiK&ãU"(>R9L_\ud&jJg?4ND]\kwsh:F+FLJ.lKN/$vBT5tDO'ODKAd#/'2\_.)cgd9SI'R=tZ7#UN/p7xS9nLbXXS;a:c'6wMD%Yg6vuãU"AD(k(Fuof,J>aKi2?Te=*DrTuNjgI[QMu#Cd=7oA&/k-LHo.^Ypei7.)ed'Bg+fãU"/?dG+CFqdT%:/f'(sD)IxTLWSxoIRPixUSBxk(^Jxg?gd?FUOoVãU"NDO?3o+)TM/v,qf=O/lD,&\VJyv:$sx;k_O=h;0&6GOa8?Ndp6A:DBN'E\Nio'wãU"]=pDk/cB]od&x$9(xhuR)%P,0YgO&x>()Q/MPR)0-=.#UHbr4cO-,R\V#rvz5ldãU"TX9(p3y3IyE(Rtw7&Ad#Q&WYSãU"ofa)]v+4E[K7ZxK*_3XIWb.6S9*O:qS[*gEaD'uL70ky*r-p)Djw5cS+JMJiRX/ãU"B7hT(78Iy?XMj,;y[<]zk1tzT)03S^QE=9F*K%0>lhXDWR;:yrH'c$%'S'#cponãU"i.gRf_Z*oR6F?JQwguTD*L*<0gn_kxapoCOTS&.0Zdg[Uy:h[[jagnYGGOHAy8+oPg$xsB5xQx9RUIZKu$(Ml,ZfF87ju:MyTmãU"qm&'\YW4oZZ3LI0OkuV_%/:*BxL0I&>4UB\zq9lYX0dh.RTEK+f9O/OL?VYaZ.#ãU"W([(*QlYrp)M^gB1#.n/o.uGh+3r[;]R]*#tm]jr6/9lR-jFG0.#IP&t&n9'5[wãU"*:niRM'Jt?4[fU.^jt5X]NgcFS]iOhclxO8C?0CuC6eRpC[9Z'q*J%>,t)?y^FkãU"$D_\SdOC.kOH)3t'zD(9#T:VwQu&mz/JMAeaA/PItU:[(OpSS/&)J/Pz'G\eFo5ãU"9:syK;I8r%rm)r;%>AL$qRvf_[R2$nEPreU>K.f9ãU"xTi>0A2BZZ-46l*6]gãU"JDS&JNHFS2T1eEW:C'0opoD*;k$f[AM0X.[Ge<0/%^*RKIn//2[m/lb\Ix-*[zãU"QY91/*J?(fSz#cAO-K*'Yz-D.S;GW]RBK4QV[?(elSZLd.lfHP6)GZãU"apTi[%Gf7ZE;/:P.5rNvO?K^^z7/S)C+/r#/ecGP;r%Ac>gGTy5tzV0P:ALKA%$Z5^HRDAãU"2%ad#,E>1vãU"]>yCIosC'.E[;[k^BãU"FWbH.v8T'^ki^3K0EK8z71vJ>5-$suR(thLxO4X9&[Zc>)<,\88g\j*BH5PgHZHãU"LfDOXJomQ4k78nZ%'qE-,\[gi^E[,;RSWI<6ka*1]>J_Qe:5Zr.bk/s8%uN\Uy<ãU"R(*Uev[.L&eg=&t^zSc)1x9nKc[Fg1B,5Lf;)Il&05gIJUxs^*=L9sT+Y^62hOãU"n2F+ReOI3)w/&gey&8u5G*dV[S*%&48UiSXySUsh5yFmHyj>FPR31YI][Et]ZJYãU"^MT%=Yv4ob)#93_7PS%0Ilp:;q21e=>> Page 6 of BITMAP.ZIP ends here. Continued on next page.ã'>>> Page 7 of BITMAP.ZIP begins here.ãU"F4q3p+RO8c7;d/Tjn1VCSty[csPu7ErZ,L[9=\R4qJ]rjK%-/k%13iSk%u)sx3-ãU"np^/e.A-Cx_(y/we_)Ga1%Nf]UevO2uk8SãU"%MMm$dC9kqB\B)zE3%lyJg'g+,SUSzLFL1CikMLEFfQNN4#DD*A,b%Y.1(FpVe.ãU"12a(%eIhv:-bXD+)Nfa)#obOd=GR5'u'FWm5kAQ=%G)3saI[VfODJSL$Hlmf68*ãU"w4W*CTH/qj1ihfprP^ix*HOMpU$Ah;u;?4X[dzp)R/gM;qPe/5Y>jKC+[e;z024ãU"y\XHnOB)oTsiq;q]-qk2vZsiwSTO3;/rpPxK7j]t_r'q-j0DJY%D*J+b%G5YSurãU"%e1jvAWI;_0Z9j*-=K&dlIV[9E09%Vq,GJWaxF$gzWE&w$lp[_koTg,ZiLGãU"y?Iw**wVvBJXw&XYNW$iPkxCPjl[oS%';SQ/5>qbmPZDãU"9C4B?-,uOhmn7$a6[YF(VRXCQV(PK6E&,nV(CO&2dp(ne*M)SnJ^\]-)AM/OU/pãU"/VvJm-0)qR+4Q?WA^QQkwkj2R^xka,FkO^ip57r66]$TLW:.6M]Mb)fv_LiWDpNãU"J7hlgJC4L?,MM^lJTL$ja1VEuT$uSNoe3,H-uO545_6*jX3-uFw'R=x[8SoS7l^ãU"VR^N6hqe+-;IP$TW.gI-Pxw*hDx(U=<'q7sT-cYVDYAI#B=b.0UHMãU"7M;ue%1icY(7+%=(':-lAg5eX%'9SA23HU5dKigXK^tRkh+r&vL$>UffX(a[&VcãU"rAosY5h:8=Z(?x'pgeZDSp]W2T8O#SLZEWE2jc1c=5o]=5a:=I7LricO3FwO^&uãU"O.&%;:y1JD,w0xj?Tw&yO_q&=Xs#96)-&m4[Y?%1siãU"7.A,kCPRV*_Ic+psW$eJPDYV=5nruAC#:tt4UK:BEw3-7v;[ol+*n=+2nruP=D'u*DqmãU":z;k?LVD\l/L0](uZlFg<.iwJOrHKHfH3Dt&WgDvraQ>F-j[;mY2%%w&hTM5+A1ãU"Jgq,xh//I&_:GvE=0-kZK4Y=k[OZEajhiU-R<6Vh?4UeB3Hgq=ij8A&(D'RXi.#ãU":/vp.UAhU%GN52Hr<&oL,/#WaIGDkZ41bPoq*hqZnq7^pk]VD$%LCWBpFcBWLa1ãU"5,ZVUlP=Q1>n'GPtrvf4bu,v:LQ_MB]rJf2VZh?oMZ=F72=t6KfYkKT&5D/Rz$vãU"JoSJvy\W(Otc-=I^P8EKQOX7M5Q1JZhãU".bcr#LFR5EbH%C9l]lBIN5_;'(d]G.%m'e5%k6[?%*Ma3#myA'%$GN9[Y*4TFW(ãU"w*D>53MUcAejuMJHeUH&d[%LP$tcOocTq/M7JYA*BMVxytxE+u(iJ]Jl48NtYYlãU"4tE[TYLZ,qF+bPNtgB\$grrgpH)dwrK]fC&UFcBAB/Bbk.dd]e&Nc>OZs]=d$+7ãU"%CI:JHde=8:.n8U#=U5Xh\.t\K3D[GX\aMoYNY\)QGM'9nãU"';)#V9*R#-*GWm=S=+(fwN]+[]LgU.Be[P6mD=rgEc9F?l,hTpeK9)5=#WlfkCrRa8m$qI>wg3PEre$Df7e+#6orQ8bnL7\Yxc4^ruJ]wg#j;Gr$mN6DN4+DMt8:o,+umDSMri>4uSL[rRqãU"J;I4TFkJ;a3._[>.U6c.RL2YJ>-5H0EAK+^ZP]ngga=bL>8o1RA=\ER$2UdYTm,ãU"6W[RdEl&#&'jCz_k0L9SGQ;y^[=-Mu184EVPNaxej$oI#eop$$r4q/#U;?tJ^t5ãU"1t_r(I%c(#HDcI:TLixk1dD):$;uZG1crIB_KbLhblL#-8l[[bMF57qoB&b;;VcãU"RKDzUl?coB'/LO.)uI4VmyPBlW[E?V8ãU"\[a$pC0'd3U?DkN*$/N]+ukNqZWtX6n=,_hKEoãU"NC*Nw[mRPSm8;uh#:VWhbT=[3iSS6L(/8_>U;W>^erUu*x,]PPHqZYFvT>o4+(/ãU"\btZ3P&.e4srH%3,<-u4ESZ;7L(aam_yU3Y4(-6kAg=(s^JkC9fbc[c0ju,CQ+LãU"\D32LlSq>f]J'5q_p;106r=D/7%2U+??OaV6c3QTDCJfasO^X'/)=qfv#ZWgE3PUORD8ãU"t?Qsf[[cd26:D$r(iOIGO76Xtu3GNs^TvhMjKm=&*v[c/vK0ãU"eG$Li?,q7ti)x:Vo:xfeqXI#:OOLA7iZlh#i7nGmR&9dr,zX1BK5zL'gnByH]<'zAK>Fs?AuD,y;wMMm/7+[)SãU".Di0C+?/f6LaE=Plo-jj:^+O((gEj&#F9nApUB\-*jiMeh/sK5Pmod5d_an#%ljãU"O$>cHrq[NdVqpLXGc%v))85tw_eN?/VX4gwO)iJJV3Kd))P^-b3W<4JgLD]WN)lmQCw<4JlH9wuJ.:+u/-G7ãU"i4I//qqJ/RpAVKF#fV[i[&l\kp/S9[od-Ea3nhKcl,HZ5KU2u6LD?'HRq=DG#6KãU"dGC)>20m[;\['*eG3.u%ed,h_wnL[$o1[VQ[cFA3=kotE,hlWipt0TA9sODMPqU'Rj4%CKgO;i]N?ke(9/D%1zD3(10kD[os;(QT[Dhe+eaF&/(q[']6Y%'k+'=GsSmS/P;\+C5u=fmq)K9ãU"/%O_+A'>[hE=a0m2XfR0:UnvIc)txxr[6:^[T7,8R?_o,GG^X;T#$q]tF22pq'1FRJMm;NfP$#DX^o/2i[,1_q]6]F5PATsBoyPH?5J.w_2kPd.ãU"BT9nkxmP[i_'H$9Ok$f,4D3riPwloI(Qw\.%8sPGwpeV/%7YIKUg/%rU:?km;qãU"E5>G+5B(osE1q[&03/o\bXm6&+NtY8t-d#1_eGLMyGU.u/uA+9fE-U,XT#AnBUHqk%(VQ[/hl&%cd^/PI'X:ãU".?98:.BQmn_fL8&_d;2.I7p92Yy/_m8?E)Uh*FR4DpMPugJDWMX&oãU"Rco:<*Nb:mh(#_zLh^LdWGNPXAE2Xa9Usm0s=T-LLu42,v3*60w]UDdL:DNGZBsãU"Gc#W>i7/n[aV>=bOY+$rf$B,Ed+ucah^2))10-NEI-MlR'eãU":Cd_]goeu;Dm;8IoZkAP*nEQ9v:f5<.aW_5;+?0OCoWEDod4o\Av3t]MQ#'afHG3Zp)1Mg+YT\)(uRM\;Sm^V0V3$C/skzãU"#0oT3+5-'ICILAgd*Q:c?jUD)#%jh/q0i%-%9skvCkl7qK5y5kliY5.Qc2)r7sa5oR'[Xdq+csNbEtIPJY+$W&>8UJh'e.ã'>>> Page 7 of BITMAP.ZIP ends here. Continued on next page.ã'>>> Page 8 of BITMAP.ZIP begins here.ãU"3Tefyov>h;Kke8vf%NK&8ildY]QBLt>rn^\ro>8s0;30u4jmB7qJIxnJ\YH03:oãU"0g8.9#<,G_m'P>9QNCf*K=/ZIThJ8KKj1=u;d;UYOEcB)jKCUOhiAwA-(F>%UiiãU"G*Y;u$uq\I[_P37JAR%2T&Vl'H7XRM./H:8tmdkE5fQ#L38l^WjIQYgaBc+t(_JãU"wXis=6d?fM8.F_nLUnKqQyp'9[evt*+W2ãU"i,T-b.3A;Ltfmo2PywxqE?_y-mO:$Cd/P0ngt-hBu(EmtdGSe.ELk2$+i4M++=kãU"%t4Yb0m.T(^.NQQ#br1R9&p=5;)Crju5DQtzcDeq1/SYHTU'u)kC%UNlKH,5.h45.$-_X1TQ5ZjHepd#S;cMObivA3^HG]8.n>dvVuqjHãU"vuG7.O:]pbBXzãU"Oss:7':8>pnO''Q,.9cM?2WC%'D79HsI3)a#5%>ZoIe+:>xjNQYvL[Ts485j.x_hGABsTB$RRy+CrQii7?qGqRYuAFBNL3swJ%]WDdo$R]xprpktZ69>.4XdxT$OkAfbZ7h%gRG;m^6Hk-PDfS7N+G\S4g8y,?ãU"oI_xyehW+2[/>[_-SgI+Qf;cv#3B?E7\H^o.:I_='#E1&1FV8DR&1:uGJ'1'X2ZãU"0/%VOv]o1d$08#N[&OCwO1g,2\N3,tSfK&hfDmI4xx$$CU39%ydUi-HWqArq7mQãU"PfL^N?0lbDteGv-Qx;>:k&w#untdO'?u#:pux*keZ(D$MJidHNQTj>65]Wj]rk8ãU"_9uVMktoBb0\hZ>#,](^,Hu/[tdaQ,:6tr>&*L'?VQJ)cgs2N1aLãU"wphFGTliTo&aJN9(wKy^8$':<+=wV0+nRsfgGUviC>WãU"LN5IAn?0]wRQo9'Z>CEseM1noVn.4VxF#_^)gQ5Zsy'%WT\Q0O_pGF62ZtcbNH9ãU"?C6duvqplstx-tQU(Jnut^Y>fX3+uZfY>NUQmx4HpL45jCv5s3Q&2l]7=_mlBYPãU"4$bd$j-^pg0o0',P_Lr<:b(cQ4$M7<iãU"-lJ#D4--%l8Qy'4(huA=e*^Ifa#R>rwm-SfCov(XMYtjg;r[.N?0?G5KHCV9gF[ãEND SUBãSUB V4ãU"01'#jM#(-=D-Dta$U#X-/C\B=pUL,nAX,06tNWxUB(,TqYEY;>otTw7PKwfTtv8ãU"Xjuqv&#]8>dklNapHJU4Lg$WNL7r$li;j2x]P8+h$$9RHn;GgHK3%Jbwnlj8;DaãU"Ejn^*&LkC:8:\8X4%h(4VUQ8Pwh7t2[nU58s*+Ras9,%U)0>O8v%]xc)c1-9:%9ãU"oF&+Yb1qbONmZ)gY*H[W#CUdZbuQ/P20>$Xh\nqAxYEgm^.5qVTWvMqTcX:Nok.ãU"s>milnh(h#Hp5BgML\iH3RiI?i-&:R$'93AãU">ZTYkJ\2jl74FB0%/$R3DwYeA\W.7B[4O*,3HV/f%Hn)*]#rcE)Q0;'(52;DoM6ãU"JZYXiI7)7?=7OPhD/8CU0BF)BFUBKHq9\gs44ChXgD\TML01i:Ftt+oHXS]DqGHãU"c=\ZuHu1s-u(lTrx#qrpd]5ict:p89&ap#Zi-$h^DFbrcVGL8?Tn=\7$C4\;];[ãU"sb;jK4ovzHa7Jhais#*(GmaxUEg;cFB9^Jx0+r[gzYX:fBXU53G66RP79aZ_XJ2ãU"=qSg,3Jq5YHY6X%P=2(?j33&\,,lJ'cCO(#G%&K=IVx#)aBP^HdAk&Uxj:2DqkaãU"Rzz8Biq+GZV%1^rYx#7,5MofHkfx#ehtNQhsB2u#4Gv?U-?S;Bpk0pE\=2BR2X?*+s:ãU"9eqFMgo(#7-K;':XD(,aKd%;7'G=UUYN;H)a?A6U+zF7&.HY_.8=m3(1\hy**8CãU"r)ivLb[gK&FUU$A_&XYCpG8mBH1^14j9teeVt1dd*2LF6stK,te\^,Sv>MmCdV]ãU"-r^?N$x%tjQteRTp$Mn-_t\'kXdQVmL)W4UVjcis#IXu4Z2PRah$[fZ8lESP+P+ãU"W&01shhdxTPsaen>NV_Q[OP\3]65S9SV*liIbS'8OZ:)Yo#(n0HRd[qj+LF(QJ$ãU"RA4Ao<12=>n0UU#lHhaF6Vu%(O^m%J&r+V^tB'C7^KyYj4kACJY7<:ãU"TF9$SMJ3C>JkQ<9,L8(nhB3qBDv%ClZ0L$hN)M_>v>,dmQblZmS#rbVWpeB7st,l+>naJ64C/ZlFoh3c-'y&ãU"#p0Op[5TntjGSs#1[7K*E6*x?i1ES>'^$NgX>EkmuIoN=f*^ANc24iL2nHklqAtljHuO#c?dKsL,p&3Y]faãU"^hv2:>RfQSr&8)-nTQ%/;E>O6'DG*hz_,oVYW?V:Eh\$.RYRPãU",gZsVW=qVv#b3d#0bUsk$X1Bk/+?#Rm=1-^[4J4V$Kp=$)%nVU>UMP/LvXfEX=%ãU"L;#NLCAYC?bipYTXl>Q147rli=DFJ<[c_J?e/UUH)#R0rC0g3TãU"9c6/v%b>#;QFUq+-)#(CV<=c[.,jd)8'iC-_DlDmow2.)UcAK?8R3C/C]W0#8'YãU"dkir7q?sHfSbPY=dJV>.g*AD,oGA,>9oVLtVU5HVn6Tq0Fdd>Hf%BjO\*x2/P[WãU"cU&Xnj0Y-JZV2(&lF,)JkOqy\+[%;nfJb.*oxMTpVdSmqW=<+'J74=SBg_*8c)OãU".QKq&PF8k9:;M%++(5(S-'aS)]D$&sDJh?/JBON%]W:?&m/3t9K>9Y(oukm[]GqãU"Y.edoBMBk\zP]>;RrrR^MCT:ãU"R%E6+x6Y/(e9rHãU".:p'G8GgAP%C>rKI6E;8OIQ7F5o]Ge?]q]-8ãU"u(eCjt?WR.0>(*IyPg;2tv;*S>I%:&Q>TthLvInL1gx:%m9Q)wM4%('LwK$1D'^ãU"YvAA3+)-\YEGPr3??QmM)bmEXH\ME^SA59PS#I*?6E>#ssdTIW.N;>A57R.66AxãU".&5a9lODyaW?.R8X%ojPBumR)uK.d4WV_bM(?];[e8#<'0PmXE/I+,E]9-^-*H$ãU"F-'[)87YU+Y?2g9&_;3)]P2W%%MXkp2]LI;OyME(id\AhE#M91)DtqqpeurS.2vãU"NiaNx%Z%\x&X*Bhmd\;f>J+Pe%3--rr9n6itj_MãU"O31*r*3uR.*pQ%ETD(&IMYf+DnhZ2$hsxc\]hr2\2XFUQm:r^N>]c0m,;1U,FucãU"lO0WJWvqxN'Y&0N=ucYlIH]26DQ%K7&Pk*5^-aXY+A9W6%A'f+[2Ia^+qiG.-qYãU"X&70B-X%F#Y_e/(QJBF$UNh1P[](-dAfI4Ema]ABmA*8h.GCX]H.hV[dj4k\ESMã'>>> Page 8 of BITMAP.ZIP ends here. Continued on next page.ã'>>> Page 9 of BITMAP.ZIP begins here.ãU"3P#3)R<[tq(20+\qC2*Y'EXQZo(ptiv&/I9(&YuS'yS1hAi(a,&Ik,q<;IGbU%qãU"941Sr]ho0O]3s#oL)/q'%%-u'9%XBWv%F8B[#'QO3&p6K$K1.gW+<_t]1=EA1)1ãU"WC'9X#<8FU,%Uu?9Sj0M=e?fnKUVE*[PkB),G%>NAE):,7'40$_kihHLz+l%/s+ãU"?7)1ArE_xJ<;NFCEsgy%i%x:ac.9;&eX2ja&O:f.6Sv?1b(b5aG\$+]8O(=+EU3ãU"&P%]h-8LErQO%:?a%VJC9_>_%:2]ji4;8c45%MK0Qf9U)1(&hCHw)rO.tq[I\<<ãU"G7?6%n]'vJjd7q%f(&H_7R/mM2;^jZelJlj3%y*ChxSf-Bkfs'xP].7GkE\AXgzãU"qTh[9wPgQWh&\%K0ci]4T)G';?6sApU)qQ-8GQ;3_O&wqOF.W/Q9i+AE_kp4\FqãU"i9/^6kBQ->a&4))^e;%cngp;\1Bv7GZrULj4G3KBv.K9QBF].HNJE/=k2?7'2mhãU"T%7%P\/1)VC46gjW&;(VY;a0wMzDYq1wh+F1kFDb^yuQ8Po)s+Px'w8P9hA1J5KãU";16;aWUjj&;Q3_^'=[u6,)'%Y)o.%vQ'ZAH0O#6f&c1fSU--m[mP*vG5U%>-3U\ãU"(&S?a3q==%8y5x235Ym7t5bnDoYm\I%nCI#Ai-4^*e=oT>,V$ecXc)#*G;-%O(UãU"w.]0FSCeRaP3g.O9s'7D9;OA6=WL9+:L$ID,5L3]ChLfp>Y7hjqCr5H?C%,+PQrãU":mKK+DqCãU"X[Yh4G7UhLIK-f/:%7(TDdiNY$I.)XGHk=X],7KCs&'(V8+8eLf9\Q3F%(vj3(eãU"pqE'r>u;RfGZD7:Ytv9%e==]r6ljCfp6VQI*?0+PYeR-eY#]GmvVK=u_^LIzuuR0n^rN/J]82N=p^_:F_Q-*CO8uRGhf1#e2*(Fd>2O^HPZ*#ãU"&P,,5UW#E2&O4ih*27a2pv%[2/6PR']3%-q]O?g74_Yj#+2.Wjn]UIs9P%e5y%-6F2]n+nst>*-r-LK[)OMb.iZ+fel;QP/wOefImA7N\iNo'ãU"*jqj_In5i0D-otHWp>HW$rswul-V8apLtnHlvcwwah,*v8#si;?k8j.rCTWD>zjãU"5(jAg'q[pT7R8cHj><.A_JpeY_mmC2ahhn?+++m)--CVShq=/BAH_lOC#C3\?UkãU"5'WSWUI5FLL%8I=1>$''f%7-15kzNZ\pV1*1A#r5BsB=fg.'Xb=h\%kp)R8&P[<ãU"QbO6JZ+;sc$[,LCnDG)vn2IFp$JhS(;5[RI\(^'a2fW4=sQ1C1-J,T:.[?1,#\6ãU"'#(IpIDEL''PD=Ir3+EL:^?fz&+#Hfk7eQ?d%YIvGL=2,:37+e>ZB[*.H4:=l9jãU"1':#B&IaP005p-Gi].-5z\7gQg.S1Un$aaDEOK,7lpqZ3cvJ'LUDOGYEP7#%PpjãU"1iwH.Z7Vd^'ESQ:31-3)/=D=6I&VT8l.uc]i68=-?fDECkZDB^KWcHb^lk%TZJwãU"/F1d41;Lk0+-:a'(0debS]PgqIDdt\0a3m#U6IgO+.\YgmH':-N*2/3GqU%a)%5ãU"l%a6a+GL#U\i[^3kXsgVnIHUHHIxBD05roBo5i?(HFHcWYz[NgY0=()BLU:\S.rãU"Sgt$I0:=O+XH_;n%J-B3;a:cGJIHAb/:jkQdI0-kt[A6WOeuL&3:[P>^&B'Eg5gãU"RY$:r(23GBO:C)z0kO%mGXgC#Btn$$=RtWskpZ>YBQo1)ZDbSrY7>M=?0:r=ElVãU"]pN/nP7-6,F=OUOevoUR'F[O:+b44udK5]HZS&169SIH0^]W:NsCW*X;u3ãU"Rg6+Vqh2l+%Gr#_(^H'c$8b,\7slMN645TZBv\BWXg21KI]3(faIf*0%P-JQM53M3WãU"Gv>>KIhQ(6u*ilwE#,B0#1THROL_6Vk6>2\+LiNac+4Mt>B.NOdE&xUrw&xyWlgãU"OGSG#*HrrusXxP#->>8+h0STFCP_=J,ykb-l(PDb)r\R*0:y\k(+nMLmQuGi^r\ãU"P%yOn%LPhbmIsVaItKalT=\W/m77iFBQRDfuAszS.4P''&tK\+en\]cABWM.g?&ãU"KY*G]=fk*,CmP\4-p7ulI<$8e9]QOPOW8kdX)_oI-;?C,fS(EJgS7^[nq#BãU"6rOkk'6%)_##A3a[^?hGo;*bbtZh&Me7Y83'ez%m=tW+udoP'*r5'4[4e3WEA9IãU"v+csYR0jR7I:+B[?VHF,_6kR_XijR3p\:O10m)O-ãU"agml*U8CiNfY4:/%^Yz[NNNE+o2'ãU"ndn6%'mrwm6P(BNw29;>2oSY:vãU"))ii4Et=[E5I%65P#x6Cx[a2_exrw2dOzxIY?dc37vov=J+?6YsdP(K[itM;?k>L\RCp8u7YTD2EswQ*D&=y$KãU"r4&+O?nve3X?f5D93s,1)i.;+_E6/sj:A/>=])_ãU"As67w4TM9f^frmD4z5mS]i)LHd5Wc5%LBzJ7]'^-1>aYkVP->iDm,JWLnIs[-47ãU"Im,//95*^oO)IcbRRBQ?nQ?=(]m.Wla^n1+^i],nEwMlMec5D7PHLu]cCLfQr'\ãU"snn_+-BAfBZ-/VM(Y-/K:IiogTO4JYCP47qwj.7>n*m2Y^gu%PnWlZg;1mR#**j&ywWgãU"-;)w_&[HMA,PVTSW)BkbE'>pk3[5,xGKAw(_NAE;(45HRWYXhb177mY&>ãU"Yd2a=YMA)aJo]r_1taqo6j>LI>\u3t-_uZ-^Dxx;dC0;CX3fa65Fx9+\EC\Af9FãU"PE0gMBUS.wRMxxxp*43:7Z8vLjK.GR\)Gc7EA$,y/&L_jVa%6OB=^_HZjqp,dMFãU"=L32lK:u-B0tn2YRcy-CvZJ5^ac[A,q)QDybSct=R+>dyx%/*LLfy,,6&ITjo3PãU"18l99;H9]%MzSiOYx-%pZ44ZrKKX4J-=1GJfsa'BAkMk7AyV&a=yPo)4_DI/ND&ãU"ffX<7XT66bU24v*Xj>-_EãU"Q;NdXcPBk*M7YZ^:o5[sRX1(M-Oi6nnR5t-g40Nk6)p%,5vHwa'=x#RC$\I#wx>ãU"Ut$_-es>&t)lHPb8q^]WW*WKD)6Nm>:l[jZP\eo=([IIO4)YBGXG$*o_'=+D-=5ãU"M4TRdd8F&.t\e?vvTI8-&5m'jz$w#a)34CIBGpdu-#StEQQRNR8KpLMnAop0Q/pãU"hgHcbCRlIGX1irbl]dPoeVEJ>2;-rR,YahjKR+Wt%#Pjn.-SCãU"F[7-nv7%L7n2aB&T*Z8u\f'&[tjqLvR$ElDx_r2;4R8&Ch:MdI=7Eaj]pm4(.oBãU"YS1v-DLCUhiZY3&Lc-W8fZq/T\r0CS7[:X8M*_mYLtjod:=zNq5>daXQfX=1S1oãU"hj27AGrJ%GGJQXz?\ahQ4fsr,&3#4d,4)NE)3/C=\ej#Ik>LVVbo^QnP?-Z*VO/ãU";:EV9YbXF8'U[[H%qIob13ei'ozN=xTWsE6h#KorbV7GmNq^'3][[%[ZjF.hx[8ãU"%ru=Lik5l#m^5-211=9_T*UFw37SaPAxEãU"iOx#Txt7FoHbpu'],dUlOTl'g2HwBIDbmnc8&u12HKWv;12ZU?-ECArAhZ'4w(sãU"kCwV$9j6\/VrvNs=>.v>8Odu0$u2l1FP%k[FsT&fu,<^<=PTBpkP('65S5koD9^ãU"/Dd5;2;[tfD^BIRNxGm+V'n3Q,m_jTf$#N:x[A[sQ1G>;;Pq/Ck%I,BI4[IIO7BãU"M)zlm$S)iRJ=TH;](6AvH7u]VrCh#Z3?_#_eMx00O^fEzrFUc*5,f-^GR()RDg-&fpsvF7s&7Ei<.>n]fFzg4kãU"a#6,8[8[AqUILw$\,z4\;JJxu-P4puiw6WZ\Oc9^yDbTsh92T0Pjb:S5h_+r7[sãU"ZPcZ0hl->=&WS,nAsj>W6ln?KlNWqY9rmhFGI]c;7ltp>^1f]Rc_rkM,IZaK8g?ãU"c7]=(tLzr4Fh+CDF^lmJ&(ji)z9Pi'9zd=>(j*8Ck(4#B#sOW?7[4UsWchr7CbKã'>>> Page 9 of BITMAP.ZIP ends here. Continued on next page.ã'>>> Page 10 of BITMAP.ZIP begins here.ãU"RYu\7qsO&6WLoV<,Zktn.ãU"4%=thSz#z:a=90d_blUW1>q=5,RKduWcMb>Mp,76wfhkBhtJ1zGXP]b.rqj;(5,ãU";V*3r3y,OP4,fcGcQpmp.C[_DYe\f#;ZMkiQvn?HniGc^^6diVo)eWXsIgAZ3c5ãU"Dtm3#c#Ooo9cTd'QVSK6TH_GNuP1$XfNN8Vs:Fw_R[9ãU"j$PV.y&Y&WGA_d]hMCw4ot6eF9^jVnB/93\NFC3)9LãU"lrlwP.Ud2u.dm,Zd4R#?OfmBbMVr,VV4%yx/l^FPXF(E;qqLu]vtl2BNi6f0.dGãU"GijN[x8j.Y>Wu%lbJU:=CrWSiFU=i(:tA_PUZZQQ?:#%b&rNa_.(Y^X;1kXsVCrq3ãU"e(hW[bVbfWI-4?l3NHkc>0>a[j+_JiKIyCP5$3tRQCIvBc7<>$Jcm>ld$X.<$%M$OD?,,E<-^)G?=Cw&kVJuVTF]8SzhpãU"$=WuM/rQ_V4$Xl$Nrs?VQQa9AQ^U+NLAXCav7]hm=<',=kXt[YaLsg[lIdsqFJgãU"mboSx2:miID];/oAhonDZZIbeMP5iw%8LsY;l7gh1Vnx^EhMi$qrm^/tc$*R9RUãU"$qrDkAEjA'*p_>v[nrnlatKb#>;6sburJvtN?c]ITXj6\^45B-CMeTcBAMA58k.ãU"L9:XM$h(IZn3l>tmsrHgtL?m?url$]$xF6^AG6x%qGeV]?^5l=Irl5q=hjx,i85w<;bb*n'rãU"&VQ(dEUb%.3eXtpaqPC&cEB5YusUp;5_]K7mO/5;gjMEPoKeNmGW64WR0aCc+tcãU"O#tip*^9K^nKãU";M(5;/oB[qLPCAcXHmVa'NPy83x.WAn[%n^.qIM;mv1,khngOie=oqaKFMBX8CnãU"S^_[+Mv$[BX<]n3I:7KWiyMyf^uxNkB,bldkq]E[j1/5&$XR#p(Rg6#U]WV%V73ãU"LRFgU(5kvY=uKYqmIeIl'BLy4q:kQ>+#;&Rom,8MAD]aYfXv)N[y4F8ãU"%,up(%)9%%[%-%B-2pGJ5)HBg%9%%)%B%%-%%%%]%wqjS#gruliIMWGn&b5nMcxukB/7JLGennBH;T-'EãU"///&'nn.\B]AE/5P0jUj%5&0=S,oXV(0fm23?R09eS*nRFOT)JX*'tREbmH[v9zãU"Vw7?ijE)=OcUU0GQ>E=F*[Bd]+P9z17SP[9cZ,'uq,[8&cq4-H6m0\:p9HR[\Q/ãU"aeQ%13OD(3-UIy&(R]/T[]o5<[+CT)HF9_(^f#Tq-[YhsKg%BI6\%q^3;;]ãU"&/%w#.rjk%AHOD;*3vWbgJk]GJ]:#%(PfR_ru.QGUTw]1ZQ:f5E9$E)(3YO=PKkãU"OAOnN%uia)WYtp,h6;I4qS(spuqUe]=-_^4u5xX7[\B\65A6BYeA7ROO'/a3aO)ãU"L_OPMn*X-4)pp>?XA%Q5plM>YB5)4loIv:UF&if&AT\';tWRVqHEg,m/AT0J*I(ãU"y7M/EVbqH$8.N1SHRN0(B>a/Q])C6/hWff%m))-?1geRB']/&6S3d\PEm^WzB.UãU"NE;vL/%O+joew6?N?u(60:h'/6Ak6V?U9Hp.KAJh\)f1B::)&^TG'Ii\4%qcOelãU"fcY,Bv'^DmF8v/q7^i-3Y$B.d5'jgxX$iwV-0SO_0SC;RwH'iB-%*+ND]muE=ZUãU"IY7ICe+y7p.O3IW#1*Zf=\5FsaPQn>*A07^=#_$q^]>DW2jk4'i%]uViTGXAiV]ãU"rs*Z4+:SA:Osq'P(_cU#eATPgj'].e8Oc4(A-9(R>I2j?Wd;m-$*\^aaZ)[5P&ZãU"CQAv'agOhE2XjBl/gh&jl_W:UPstT)qEP]w-[kh?+$,270;aãU"l>\R,h<\1EAExHk%#zzS)M2e4(#vQ;Z2Q6IwhVnK\q\qNH>g08YNH5J8k0JkãU"f=K\o0/6xClF+-+O%Ju/QOS,kOz.qMJoD0I0*6'AHKuZ8xPCI*QH'<ãU"^pPZ#FgkL*dz%?vlkLkfx4ZLaboz4Mu]nedrdDSn^qh^EwWQEwSnfc(D,HN\y#KãU"Tq4l-Gk4edX:L6T^pBXka61P+ZgFlC*wGYkHãU"RaN4PUdg%k+1L(Khd60Lhy%ZS5rTR0z^PTNT^#H(h&2ZWmKJU3gggmWW]^,:k2/ãU"h*3m4W]OGcP05N3jaFqkG6?idW^jU^sS&HHHX7Q&XfQNT0pv-T=;'Bxayj^Tz)1azhQg1(%Uv&&/0a\y]\6Oi[;YaxdKR7ffZhgIzFgQA+-0<,6S-Eh:KLiBQYC$rFãU"1,;f;H5^OeS,+.cXtr'w=#YY;D\*NFel.q^8+Tcf'Us=g0I/i*:;3'-P\uE\n\tãU"/GDPYa8uua:BLPG?I_R6=1A<%?DRyVg)HCFBL<7Zq]bJ6A/.KãU"NJ83FXJ2_3utu<$A]ScEHo(6$n?zk6?8Za%lw[Mm9F,V4WQNbLOk.hC830ccer\:YãU"pIF?=E^V]]_9mW97jS8OK%(xcQzOzL*rkg__L)MszQ+A6^a;K_Dm1y6NCQ$qovMl_WF3+mSE]>q7nu.r7l5JRbSDy.<2V[^XXJBnumU^ãU"VB5NKbHBZ,GkbB9sN9sr\\->*ghPUn&S92'uWf03sds9bEX]u3yqKGHjud;ks.tJvbQ5LYoQzLWuPPwjE'ZZJC:0+>\_ZTmPKoss+c:ãU"Wh3BR8Ygj&THKo+I9usPP'l%&,xUf.rTr&*]4SGb.b'ul+VRNKQREjGaKM_npQPãU"$3xuVvumpESdP&HO'dBtu86_f;;TQ]niFJ;+3k/$jj2U&J_FJC7a)ep5KMGQ%T&ãU"pZZtX.-xIh40&LapffZJO(bdCl6FwhK4:qeE(KD.bjmQkIli-hXaqssq5KvtqEeãU"/^6$GkNn4fAm0;*3FJ'cPc>> Page 10 of BITMAP.ZIP ends here. Continued on next page.ã'>>> Page 11 of BITMAP.ZIP begins here.ãU"tBpq.C+I$_o6$dT0^)^2s)6ed77r\C^i.M=C.MR3SQIua$WPmS&&rfA2ctmnSDVãU"L_YJ$'cHDnLP.'kqSgd4JY[w;Ek^nSpxtyk,(Ml(z6zpQV7mA>nHPlkoki&?^7SãU"Q:f6Mr1#5%p_p^'&3'oMLY*I]8ob/QDr01D+&K0YcãU"IBLh,vRG/l$F_Slz'29Vb4Sn;RX?Xv#TL9.ObW'Ptrr#24tXr]WAF,/,5tKsr*:ãU"nZLLBK_H-:hF/BHuOkkoKww.._.NRftA?HEi*?g9Iqdd$$]d&Os=PVKE#hjA(,OãU"4[%Z*bSjtIB-Pt.zZq3f0tXottK0vPxSMB[dx/?]h)^pA=/vãU"fWVY#>*VYpdM9z=97A1/Ur*gVpt;B7/h%Wyl^cPgtmoptHcA0*.=cEmNeu4V;J[s0XwlUTNt:k.T%WPB3yyTs*hMuc3ãU"KPb9(3,9E9D1DBqNiLa1hkU1XIq]4JoeUfs\x5ykGasR>NNnDT9SKO;fvGtFpl]ãU"tA]cO8E_1&119xoQdaW.'>Xn#MnXoD*zuhe/zb,i*xt.X:73+uNHg0>R:Sv#o1wãU")0>1Vchsjc[GSwrlqzyB^)A%z^iC#Z>uVCncuãU"6a7VAgg?Q_BwvnIZDnFlI2$zykzx085FxX\*pJt$m##J'ZtquQK\F.>%O:sn^V8ãU"O\1KnGg&2(#>Mpi=E.^#E\i5)&0GNxcJY8rwEwaãU"r&\nYbeDO*Xg%pjGwpdSJ24FihClo%YZz,H5o8m)Ul$#_lm<5rofJa_6K=0F=3oãU"YT:ncX#tn+*\$EFj6q=\#%\KeZl+bVGhUUUV/\Cf89Y8oSF7[iRO*o>ttXb*VW'YA\^#,sK=]CRqUs2oi='(V#zpdKN2I8Ag$Dm%tdtz33SFzvgo^,v:_r0KãU"P/)E5qVQ)>RhD/o1H+?KHakYH6S5IWbckFãU"kf#9DTm)o3(4)rTy.oX8T?W[jqmB=d[n\*Qrhhuh5RnX0tWNpZ5]n9NBoD(cU;bãU"or2,ifsosiro5YPp/:07$2<16YaYL9?I3edLLON1raiptn>DTPtBkCWgRPep-uhãU"B2ZQTTFRYDUJi?F0Pi>^9Sut^TkVB%d'CGio4OJq-)I9GQXp.CAIZII.ZRPt7AuãU"eaJ'lp4NZtH(ZicJgCt2X,j(q*:/g$r7tF?jo6]S+Cuq\D12;8A739&D+KJ.cVqãU"V'U=?xl(5LgY6$XHYvtQ/H$(_^tC6,dVQr4:lL_ZxtEc\\_LLtZuA'VO%,,Ya8EãU"Qv)d)ER#)VUOXSEu^:gA,R8-kt$4XDV-vu8oj7\^tB#N.0,.=d82M/dFCM3CvbWãU".Z2.C1>XB2b7F#=YA^QucF$[wtoLx\+24fX>?mj,-x*T:tQFePJ7LA$H#.rRSMs'PP]2*>0?V'-H8w8X)nãU"v1Ks^uMK#Q(gG=B?_]eK$nJ2wV_VW(Z#4DcAZ]AJ&rGR\.B.]vDC\DFLTCe&SAHãU"rXO8OX]l6U?[BH'YE37u:4N9A;b>r?0wCJeq\=JE+wg_QZa&r#\mH>umSnCYãU"x;7($1>Q4vML+LDkOo(AdWXzL8eY=;1H^2ZNU2kbgub+6xb3l[Gi1w0C#OdtHf,ãU"zbbduL8Dg)tAuc/VFrPW)z_R,ducR3avG;F^QNoF,x2BsGZSIg5)[F&XiKGd88=ãU"l;6&HD2(j8X4psAS92BGC^IZ'T*6NVedC2&$[noS'n1gpVbQ/Hw8j6[.:h&$ãU".+jJ.Eu$Y#Ldj\^*$.1_R6(_6I*&?wj34Awkq>1)G%W_RnNA#,/GsLJN33c]0KlãU"B>S4kZvj4+L*hJGc\*rhnKy,\1(Tk:\M<3,9eIGZ'=ibk>'G-Een_NmM?2vNo<+ãU"JHM5DEmjBQGg3fZJsQnftiHcwhf-CZ-N6;_$okC=36CO+bMZwAY0X+p$mpbJ/lcãU"eZ&mH\>b&)inwW+n$yO&TBj/BLRNxYnK>_M=SL#1grWtps2iOZwD2\.((6,6wg6ãU"d6TqF#^\mdxuZB\8uu2;hkS,vb:%S$]+r:FfkPgig\i=f/Nk3KAYY'c:l(5Dg[LãU"d^pEZxP&Q'e7=l?\x.]qoMa7kv0^,O[755u4-Q:AjK_)$9lApGE3=lha*CG*C+Hj]?4k$fJ-dK=.7jq55qqLãU">7#-(nKzqbnC-H;30Y_.K8sHFYU-#2of;lU+ãU"M]Dsj(;2Dm_XY,Ewt](G_YzVJ7Z-k05r/_gj\dw9#[J;G23aD5qH(Mr3LlC=lm#ãU"qKnZQ1R;Jk0=B)L[>MAxMRvBNq-t1uGe8t0,Vg'BM*J4X#\^pY.LPTRQ%Xb0&=NãU"k,P\bDrcD%QX\EN_QWV3FiZv>C[yGDMd#I9C[8mX4vvDKY$w)UR5KU=%RX]jL[+ãU"^\+WvY8Ck2Ve=B>W+MkspqK]8hLZrk8.3_D#xHOiQujpF\+V++OqTJ5&ZdwW2JQãU"dPr2222wvPgTb4COWPt_'6=/j7hF5grv\P(e^&[[r&Nup(%)9%%[%-%G-2pGdO&ãU"KUp%6%%a%D%%-%%%%]%txWS#gruLJf4/bV4M#2o\_[5)lme_WB*WCSjS3BH_'jQãU"X'4%GgXmj5asIyeE_*jWa-bp6r:jmXV18lvGtfpO5awtN?TGUN%=mP&TMS$XMeAãU"r8t^.*2d..,(eHxV)UdVpJPmpHbF9xa%<***P)&%vZLbnIl,R;*S'=?;RU=nI-Z/E,/[cDkahCXj^R<:sP#JD_R%.0abs56M92m_Bu:0aãU"2QsuHbm%'BA[W<:$a/EZ3Tc2%$ljd\wn?I^lA^=qQHGY=XM-Z[s5QZ'EãU"+=n,k:).QR7)Bg%H#tQkJo\gD>I?A-L+b*66YnueU]aiP1aVn<^7k$?P';5=:i>ãU"]2dqe6mA\ix$2$S*-O]UM]#<=X6FY*3.(gv\>7>,DliE+g*+)nkst6)qu>0WZX?ãU",5T.0Hk$-;kfXCBL[#Rk,V//UIqbR\ãU"VP[R11t'6:]ii\gE<5$ZA9w9hpn?gE[5]+]6F8dXisf5RE.l15dG:Z*N*=7W0<:ãU":gecCZti'7=Lid2KZ>[2\0%^Hq\+S5cE?7f(\U\('kO9(\j_1Hv6)FXD>[/[TKrãU"U-uUPbSC+pKU*iQ5:73.^397Ng9&y<(%]G&ãU"6HG+v\A'i:KctZlGLd]oM9.b)p4*Pj$-c_2.%mFzzMZãU"OO51(VOID]iN,K5mz,MI.R)'&SY9f(+Oqi]6;kdP&yYP4D98-qV)sb4j4VE#ãU"9K$ORJa-WU1eqW]Ziwh%Dcc<9KDpEyEbqguDGlosfNpYhAnw\c4d.[WiUtT1SraãU"IiSdJd%L$ycH;HHQF3hy>wl$kwzdBãU".Y>i[$o3WbqGxV%b[j](GM*3U?9#LmP?-SelPfJZiBdY]x->TXy57_#;<:7-O(7ãU"V#))vzWgBUa9pd\4%;XEmCIoQ6?u:PZ^\YYsJv/Z7pZrp=^p)tF:Q>(%PAãU"S+,nU^^Tx(lXx_:i)9Dr7x?]l(+p]h^&.Q(q)Nt[\*NR,.7.hTZ6fr#JdwD_b0CãU"4gtkC4q3pzE7P6[q4#x?oST-orQOoXQsokNscsic+OqLãU"rf\>?hC2OnkQe9Xq/WEXh8XpOTb,0?WD9u?uMO-'w=;,,Me$Sa+\DX,PCFY5TSKã'>>> Page 11 of BITMAP.ZIP ends here. Continued on next page.ã'>>> Page 12 of BITMAP.ZIP begins here.ãU"f&eVfFIwG+b#)AYI]F[+zI$4b$yWEDp5V.O7dMa/aSUHmqSY-GJH;4RxaE4/TafãU"&W(zf,$bj)&SdHl45vdA4v[W7&VSgA-kXA5;H^w;?^Hr+C3T]1KG2(]&;6JJSfhãU"^A^MhhBOA5o5=]-mSE#2[/.ysKIIfi^a1mOhj9=p'C21aaV[0]9Zeo]ro[FA?H0ãU"H.B;=hV%l9E-;AJ3:vfna^2bjgPB[dG0)9(fLO.?C6xKR3JW+NCcgx\6'gnIh)0ãU"L<2nq:1AYK/93Gn<3g,(4&TXKONBSqkY']=V*Gy:jJXHD0XkHFQEiuOf(1dZQ8fãU"3_upWV;t9>judA8#7tNdSb\W,gbMLomWRaF$>fX<\(41)XaE7OL#9Y(h=;0kn3JãU"8]m'%7,e-9Dp[EqL,FSS*BaWJIH*WOL66Kh:IW?Pf/IW]^fmiO&C_,ie$%4m\+>ãU"BfW9Q+:VkC,+1C3>vMaC5[3Bhf]r8N^CBEq()-&bGnA_MRBaoR2/=lE^i&WGRkCãU"pkP&MM>55V5C2s7gITd6S%4>MG3qcF*JIo=9gL>SS&I:Mqc2AZ':3fY>U.xx<:4TSdf'^*4GfGMaJrtQdTDn;W3GC3fYqks-Txef/sjVS3*3Y4gãU"cOZBT\w*Is#P]-b#qI7b(BaX:YyDSPlS+JcQO',*&&VYY$Q-$5)\erx-R>;vcJ2ãU"s[f]Lbr0r%Ygi5t\t]Sjul$UB:p*UBt*r[[-P1[>+HA5fIDlqQhJ2bn^VngY(:>ãU"6-I6W(F);%d?hh1h4-5TMa5\-C=TxJ*o9y(fpmof'Wk=;+1+&:mC4CW=C&,E7u#i)nB4ãU"wV4#olZ..Z_]]*r3IW&kiW^tL%&7rS=0PRdK)%UT_5^hf0_N*4%SoHmIY[$[pu]ãU"2NXbmf]l^.jzT.roZP5FFxX[/CU2u4Ad*XfOSEe>jubhe\u,Pk]&/Y]/nlj-kOZqHj60MNo5GGV.7Rj30JdRãU"-lL_%s(LR)BAhQH2sz:>Z#>pm().mct03e<))T,lD5pI\/BsvJDrKAU7PY$Vmh:ãU"I1WSz=-\i(KEaC+,qE&INr\8bdshW%fZW+:__F?RO)ryor=sGEEcAa1_aI,9EsnãU"5Nc/#kQ[kfVB;U(_W9>^#LdEifT)IPFBA\pueNLJB+PDkI4?ocDãU"qJknVJho6dsWcpQ[46Ln[>G9k,^hfd<(2o=l?W>cM3da3)Km7,]EU6&r&Tl8r2]ãU"vR5\G/d(Nlk=.vo>8XxhMtDYkSF%vc%)4NtERo3hZgQ^dEsiaMhjjbVK,6YTl4/ãU"+p[jD^Nkgyz3dnT=<0GeSLtzOI<]#YY%I.L:[,s_d&:S^L^Na]I%4[myZI_]j2kãU"me;YW+V--vQc;X]?v4d>3a,/Oh[f??Jqzu6V_-3THj2ty#oE4XI4muU,9*T/d7NãU"tNV1EB:==&U%Uno>$Zuh$n.dVH]-^R0(+RU06C+_8l[tXcYD/76o(lgE2Y8&HKqãU"a\m^v;:>w0eduUV1T;%,vt3tSLl+3e8s'irru3N;;uUL]+9lUr-44En5Lo(k#4NgX,Bgh4CyZBqX8-4ki'%pNQãU"Ls':2LDDp).zD;FFhuT>DY>D%qpZ)A-chgWH#8bqs2GrA%4Q+\LRRnRLs1i_kL(ãU"vK&g**uTth0;k=fl(0;*b-=+,IO3WTbVWRcV\?Ib8lu$-HXchJ2<4ivRfGk6Du9ãU"9jwKLlNM]Q_aYuhpP9mOTO*[lOL+/kq.5g3EDgrqP7puQ6x']CP1NYFr3I2pW^cãU"nqv7/s;e56#:]#cC#EAw>kACn,5tBM0xbZ^nn-H6HVT[?Zm;WeãU"7ATtK7G'SmRFRGDX2L,KeUA/O[U+ijp['&YKJshMeRsO8bP1$?k06k*/mWfugvhãU";\fo%XMUl0Hl?uJZt?S2JVhRJQjWtk&$^W.F],=Q.lQU]>mg'siXpFWYH\IpMfKãU"llX-N04cDTZ#BSl+t*6,ql5>kdimAY?9%<'r&u#RMa1hoF%nS]GgHgFT>4&4R:HãU"--J^.K&Q5/(^xb/>-2Q^^7_V=.MHãU";WB#-29n/u<-%+sh;pr&F&1eOXhbkIEP+K2QRO<\MH*s&;ZRkRmO,QggfJ3t:9,ãU";4*[M;(K]AsuZT.DAI\=rLB%GKbtaGGL$fGnãU"cR?Qe%hYBv[hOC$xfQW:ofOUa3F6HbMp6l?]N5qa$Ls2.WMRZ7;leP9F]Rc<='r2n2qYCPãU"_9WR#d>yVn&SxC^>%KLscvoRi_2p6YAãU"Sx:DPiA]A3/eBp2qk[TZXV$LScwbILtEm'e/hVqn<7Y8-HDv_tXRr^aes#g.6%[ãU"sI__ZT72xEDIB]K=Wu\\uXUu\WFjHkuriaZGn8p6Y]4lwAC5*l#^I^8O9$g;A1ZiObnZwmmVf#S+1Z)DfU$#i2+dLyTKAx*B+4KJhZ#c>L#Je^BB6BXo$NãU"bFNENZ6=_kO8(L62XFF*ChGkE%G?>9kwWnD[58BuBJEpH:(>yQqmC9\)_E?_t2,ãU"OGb^%7gSiksC_OA3(g$s/2b#;s*cZQ-5[FN80^_wn]^A4Z[qK^E<=Van172.X7YãU"iFYepr6tRb;D1l?_qL/bx.0F7$&ODqBNTkmI.KG'AfLI/rQlxHM#FlS^BMg2O2OC1s1/V7'+]L8848aJ=E[kdnGb)t$LTA-nQG?dãU"O5qa&3C6[pf%K%,J12k';^)IcvX9b:\5b3Cx[]e0s;P.]_gCnOX7.yNm8^gj$%uãU"p()%9%%%m-%c2BpGP.&=<^+.%%W3%%%-%#%%Y&%nsSgRrufe$::##4<#vF]#7=^ãU"^5qrM.o]=(W2S^&#O*q1A%bIDX3;,8MBCzdH9Ih\]P[N6^I\IAStQQ-2vSYJd.mãU"/Q*Mg8'_[Eq-AFãU"SRVp#:Q0&nG<5YQ#HLCiH;9/-I_:WBH_9U],k;=CUiEZ.mtlSe?wK'i+a=-wQt9ãU"8[08*f7,=-HPieM3QX3dY&J&UgHqCiJio2F)UqA6l-CZ;EW9ãU"27.T>9S3W.]ljr%,gTUSs2ggPsZJI.Rr5P8a*Ir&%wSl2Q*5T8lnz:ãU"jkk5?DUDevI7\dMi>pm%0a*)/uYLzP'-1[a)M\*2^M\D^)boo',EdUVH%bZ=?AFãU"p>=9X?3'#mNvdO^KC?AI(E+6<6w_oIAWa17Z]U#s9.3ZEa9[j1P9mu#^e_lF5,cãU"vd5gA3mM'\dMC7VU2CkH:#5jNXM1y1GO1EjQ.32gDU0YEo&8=>eD[Xv'^:0ddV9ãU"eAY#Qtrl[,Kz_[W95STLN;BOjFxypwQR,?Z#QQN2].KT,eACM0)n&K^7B,;UiueãU"QMjgnjyk]A$[qa8*Z%W\F2DgL/5^;8,%yb:7-llLkDgMKq3d3210oYlEãU"d/H3OjI?2_MX4WMmx5dU[+32q]TWMpAtFrGa%T]Q(+9Bs,+oN=,QcZ2A#483lJqãU"(hA>cB%a>+atzZF_5dm4h[s-KqyQ/A75\ãU"A*,mHtBOXjDA.ktMTF-BG;:0u\wm[6/?UEd.?=v8+ap$iJ=D9<^xgTc#>,?93qbã'>>> Page 12 of BITMAP.ZIP ends here. Continued on next page.ã'>>> Page 13 of BITMAP.ZIP begins here.ãU"YbU=3sCEQA&ykp5Lli-Mv_Xr/-S_gCsz.xQ%o24M5=a_g>f0*DL0XãU"p0o\qVdlIa48+p'>/1/Ej%Bs9Ko\E(DMeHF5fDBVCBZ2QEb_v/LIgikKPwuv=(21DhjTT(-:U^HlD(8uqSyt,ãU"d%B]%Q[(Wnn:qBbfue?4=X.%Kkc7YXQAk3_8:QhB+cnU(VE;uD.;5wPMl$Lu3J2ãU"'OfD'U^YaK]_gWrg?1IX3X0hcZ?Rm2bp72ltSov?5Xk6hãU"fmog*EY44)quLJN,(hvgjdK2qU.(TQj1ngNaz8D.k)J>]0lSO.;JBaQ3TRbdãU"b6E5R,iu5/JLZR=mJ+katu%p()9%%%%-s%h2p#GeN3'8L,%+%1/%%%-%%%%Ywq%ãU"jSgr1u\%v8:#R>06BQ=nS53Sk_F95dxpGN.)q0$hxxc>>3FA4\jK4?XX4FrD*\)ãU"U[cYi/XnbDu0*)HN=(*^R/pg3<7IUE[/_8iSYg]^cBa_wUaNwkãU"/kb*EW0Mr6:w'1j-ggcJX\gwj=QXSL=d5*p<'+x2;H6rSPHllz?]F2P>3rs2<+KãU"nO?2+5AO6Acu$(vMBSxx2kO_fMdC#yx(QssXN&_)ja:fxcuO,XB^FTKlPkmD,QlãU"t_n+1yhE)L'&-0\nsxsZ>Tm-%[l:bXp8Aa>buf>4obfycF2,s>_W4iEL>dADcxbãU"I0hGDmSYHkcssEJmRjojBq)qx5&kCg9b$hn2]eVgJ/V8fNfv(Cb]-dqhd.iIGDBãU"]6C_A^g;H\DAZAa)G$Iscrp8b]?EBs=VcIY.uCO[;+IEon0J.TV(Jjb]aaXyoRrãU"jt?g2uV(m8LA2EvB7i''pYs8s*7fx*XKw*mF$DmaG27h8-x\^_C&bSKIszfD&dAãU"ivSt<2Aa?XzvDxI.N]$7ycCp]oH#Pm/TrcJ(wcMr[#etNLvgLwy$__BYced_i>KãU"0Id)Vv7m%)MKtvaNy_*_p^\2hTEVAd>GFStTgb*7ok[c/AGkNfCBaQãEND SUBãSUB V6ãU"$R8FLrlTF)2V+xTQ*X=6y.7lCY7GG'ccR)1<\ãU"wYZ&uLJ-';W^Q-lcJ7)^,jZ=LRzp8f>s*dlk2Rf&[8m1ZrHvDBVW^3^:%(Ko^x=ãU"I+?'%1r$mMChU8h_ZCCtW0;AcPPds_]0fAWj/4Yn5^H2n(u*ãU"i4yjNcFn:Wqg.T,'IB)q*Ahdgl':/i39y?$lXV;MZddNIQj5q#n'=+AcLruYr5UãU".nH)63r0cd=-_wH[owtn=R;Ipr*Ix3Xy-/U]>4Ap13-Sv].E(ItJs(+tpds[Dq$l%B*-h-8;5jnãU"/=AR0g[2$Ad_^R/niz4a(iCm0CE.J#n^q3mahE*ASOV84Pn#]_'WB\QE[abaYBpãU"b>;\#CJtzKe[kg9M>mjr4gm%keL>h+*MMG[tyfVgKp#jA;GNmF4Sgv*8:5[[L6jãU"d^IUIm<#RJzre[a\%ZtJNXo5U\o(A#+mM0.fAOFGLE4Oc$UcqGPãU"4P3SBLl$.i:c,dJ,'S9sMcB\bB.:Zm>(]9ryLu)'w%ca5=-%X=;%A6a.[Q\lr#mãU"[mAT:Uk\T&CPwI/:6+;=R$$Ly,)'lA8$Ho(de>Lv2al/Wyw(sT9ruVXdx(b>M#jãU"78ocL5-e(e,km'DU-tXBb?'MIYNAP-l;>]#gK$Xh)?V'BVFXeH(16W=l[TVJ/cLãU"+7&R)W&BeN[MA5han#Cd*'JS>C5]uQD*)$RXc78,lQ34RL?-$7Pse/,6P0GiSpaãU"C*Lu4L'(v<>>K6Ud80hBie&n%aPiEo+TflqL>4P:hLKcashEw%GW6bLJR<]i$ybãU"Y^gmq-n'vC:cZ1?Y_^5=w7ZJx*%up()%9%%%m-%n2]pG\]'s/K+.%%+3%%%-%%%ãU"%Yt%xWSgRrufeW::T%sA#.K\2Nappu9.S5;K[gmTj%E^SS[A+$-p4mKtVC+sRQ#ãU"['$Q=XnaQt),nGWfQP*9U,UPoUsg>/ZW4&/)(>WWV#vKIH*Y$#^T8]sh1j)V\Sh8RLXD=kaw.0-=ZHh-ãU"YptaVM2C[aegUD+d_7&#)jsRaWqP54-GOp56EwA09^Tj5UWeOe8n]tCan>OBj'WãU"rZtGw0L-L,mSJMepiebncA):O+f(RH=UlqYttZ'#ieM]Uq_61t=='g'+?-GQpl3ãU"]r5.#fh(q[,8\/02=nmd3^OV<\VKKt,u4ViOKX]),RW7GTY:0[2FK>4$mPn_\0KãU"-D)E'uC7qsw\\-sU7WX.DfIKY[9x09hwLe?v:s1T>pDJ4dWGT9=Aq-=O(81Wi6cãU"oJN3Nunw73/pvaT[JJT4qk7T+xu?HxE7p=\d;1kfFt=LCUhY8=H=5+VW8s_TgeoãU"85o9MgtO$E_si&XTCKnurS/.,Ja:ãU"a9&z>]D#>P5ETm73(%r5[zbvT/shRgEJ3:1A8ntwhp;DG=K'DEFm0,gLJYXXD2,ãU"i7_A-OC75hPYJdnX9T0[W8\AC%ZWS:>K-/=EbjFOQ#'_I/&MSMWMTu03%%vkET)O;ãU"M-Ok>Q+P+aZJDCg3,TB5e.mtv-3pdK[)n&oUJJ_KPrGabq->0/=dtz.3TXgv-L/l$nOU>4''ãU"bgCt_dYU,hOG6+B]rXWMbmFPR.>:Aj;<.AFJkp)[;HqA>P%2ah/u2yxk5:02b;TãU"83,l:>>ZD>B[[ajbt[zZBO=DHmQN]hO(EF0QR0$O.*e1B-8g_o2.58/Z=$8*oEOãU"LWS#f9'xbgniZIe3yv^pVa%Ybao+aYca9aqm0q\9ao.Q&z*ht6BIqn])Z(pãU"=Vn07#lX>(Su(Lbs&\)w9-EkW1BJ8S;blC;u:-'oDC'ze2D*$:Tau'kdPãU"1(F&qC$\hDPe4_[*XoCu,96%&N_MwL-qa)\NãU":*Y1fOSiKMicgP'f\X)[FCHLYK)Rw]apaia^?Ry_oujfCQKe7)U::nt/S[.f+zVãU"+$.UNyhs6l,R**;v>5Todz%6sF(4j6+E?>Rf;&sW$t;ch2nq[6Mk>CjCu&dVS8YãU"qt;q1gl>j&L3p]PJ2m'cN>Ie/Y+kMsy?_5pSj?.BbVQt[w]PcYq0T8MJo9fA?E'ãU"_6ne^1JeI8C%94gSQ/4+ePZcgC#5y,^m'H:M3]kiYmaBA>*u'YqnC2_GL=(M,\4ãU"Ly<8n*aUJ3*L\3v+2oD%2,QNTlx8eof'y)oãU"Mh5^p&xq8=\ipoZkRC[3#N\>bDa?_&4wtgKIUyãU"x>OaTh\w+%up()%9%%%[-%^30pGZ*9V-Q&7%%i)%%%-%#%%ãU"V&%nsSgmruNM(VZ8fm9%Y0N4PGY00,um16=&5MBlT\YQU]](h>> Page 13 of BITMAP.ZIP ends here. Continued on next page.ã'>>> Page 14 of BITMAP.ZIP begins here.ãU"h#?,Ym*LGhHhof\b/=X;E;qM8g?]5xcYzAPWd(=K9rS'>tK\fuLLH-k^Kp#fzH[ãU"LuDr.zL[6u&Y#*8j;Pun%j\,4jrbfJbzB0+=yy$4kQ=puP'r*lCH[UYXSy=TiS=ãU"itvW?7Jh$PV;\xXFXH=h]R4>^=x\]+YzH?Cc>(vdjjHg_fpVF$,A++ãU"bDhpVGldãU"hr:=PM1)[N^+XrE/?iEu;]sp:/pdHmA]s,qI=][9S2szp^f4a37?Tsf?XT8^NinãU"$?Dp?4lujrwt/AoZ7u5-I%6NskOoB5$LB&_PE9)PnX1T^LJfm4ãU"6QggA9SH#V83z6[arU6)I:,m^=kTXv'u*up%()9%%%%-%=b3pGi+xD*'G&%%'I)ãU"%%%-%%%%VtxW%SgruHNKd:%9f9%?i04,Y6u0PM'+#3#t5TlDT\g/Rs6.$'t-;6'ãU"u%[C.-$,eUId6'G(s*SS;m*wgG+Z,?qeTX7tJt_VreJsãU"cJs,5\ca7np)BG(.),Wmt1r:CT3k(Nn?qyãU">Ug0N,>zt=vg1h-x,d;Vvn\ZnAM;V6vn'h\[jRCw[:gekd^HT>^.o'&+'TVl#)VãU"-aUU1u79GqPn1[Kj=rJ]YM]($,bAymGeW1fcwUE#szABi71hWqZub55\4qvLAGD_AK%F*c3V=&&yb7',,#/gczIãU"wtG,3:5wx'V0^jGd3Cul9]ud]ZcT]G,8<6?+pEWVRqj>buSbxYcH<%rS,U$t>:fãU"7]Dn=x?+h[nteY7t[T.ef*dbL4<5N91\lX3e^uUAcO^=p[uV^($aijZxMz]S:oWãU"MfrH4qp2afXm1/KfrGt/#mOiU)_2E*qnyW9m&mIO3b/0Q%>*V=dQLD-A8(>uV=yãU"(55%(XxOc>,2P2&_::LkYbBs>'ixDqq16Smf_C3E[^qU1t/#_w-s'I)-kHpCG)H)SQoLv>MãU"&zdAld-J&&J,_4q=JQnh+WR^76APy,4D7J&3AsL,7v;k-:JSm1k-QDFe;]jNhh/ãU"kqa4/#R[HJ1?/#oA$]ht[4(%bYgABBT-tm.$g,FW2#*doDWA%qfPzCoLBh]SgS6ãU"[fVEp/[StUW5[R*rzOxF7?vaEE;z0TVg,yQm5E:NaOxRãU"_H=hTWdHp;l_wLP:BQOsAqI**W4QK7m.HC5['2e,_p/^Tl1=Kke7hz3B6S5U+0u1e&K<$+5(kU4)?Q9I*,?-&)Jv\?ãU"OC.48ZJHTZXmT2]),?rQ8J6\j;>I#6RpX?D&Kem?3R^sMOg_\H/^75RxjT4766J4L_GC1dfQãU";Nd3P<5ntv>_:uN.r;bLnK,YLFAHsFmr^QBafdq?8VSKY,W$5soBIQB?ITBe)Z(ãU"+);58i7:KZe%YP4T\.ME8+)hn+fiE1_FIn_vk,#)ae$pHLV1dZ?s#b/Xc&cqwW;ãU"tRpS\Fzc;MgebV;E:YA:BFVdJkl)E94BY+rfz?L_gfYsda&B&>9BaT>*as&*mT+ãU"Rpyg&Y#?qc_0NpKyB<[ptBQ&:\XzKu%Tg_:B0k+mkE:bpAt7N?#P*]kfLYakQK$ãU"RAo;W48jt&1SdYu-P83B/V5Dze(6O-5m3I^*#rTE^YkNdD%3/bz5x^L[')3^,8EãU"5ZTNe_jE*eq?5-%^jXZ2fQVV=_(-C^7Y>4BMiUdm6Wxvln+d/m^y9c8:s\,/u$8ãU"<\4T'uO-Q-zJ6U0V=Nfro<9p+^Zm&Bq,SJ$5R#0h,z32,;$7n/LIm2uU0()kN.FãU"H1.1*abU3]Y]W7$H:e_uaPpr2Vv3s1&vMW]No+h^nVvGlCUa]>ve06Rhv\kk^&-ãU"p/>,=CV=N[DA2bcAFqRvUtM,QgV-%pD2PCRJ2C8p8NJ[R4lqS?kpztPF[b7NRnUãU"k=j]Cy\^C_4ZjPaF9m9Dk\es>V7K_ILAAl,)R70kA<2NYl(+3UsJ.1#o)*pMK*JyOK#vS:buAPZ[[ZaãU"z&MX%cr0?*cwjhg.9:a;pa]*1$\$A&vW=CxFREsO)#=_FazlG-?NM6MDSCZxF)]ãU"QQW,(6bJwYkV=?R=0_49&sTL4Q^j=)cU3\Sl/.POM(5l#OnPwJ8-;rQ9GK]e4OhãU"^IAdwmO>6YihT9K)R4Fo;]tSoVd^5]f-x=-02[y[klu6$b-Wf$lZ.VNtW#hDg2_dR+SPe,Fk]Fm9N4$KGJ9Zlo;tz+cf<46N?s$i0n,;M6XãU"^-T.2Fl:$h81UODgOF8N06^,Wc%&AMA0i:Q>Rt*LOZ]NI/$]>%up()%9%%%I-%aãU"00pGU*'Wm\&.%%R,%%%*%%%%uS#nrlTDyK(_7OAqJv_8YQA/B5p#cãU"I[M<'&iMmja_+%hpxVK1-T+od1j8qE(:8U\,Eau_EW:$7)OqYvD_YYsaduo$iTIãU"*$5B%z[SL##;mFPRA;]]0QjTT1d'hSD,bAgG-Op+a\?ea$<+,4McUEgEA$;V/kãU"Hyi].Mxu7(ltcl$\7\ybzxP.>HyVãU">XD?,BPIwKXUcPDxOQtD6:Z]*o]KMD>n5TC5T5TC5T5TC5T5TC5T6Tg6,41E2:7ãU"xn>=C9dyeeK-,.?lAJl8cCg/AUwI/%ãU"W\7h75QkS?IgYS7F-J5q#FihW&U52F#?kY[oaO8g/AwkI/%\P7h7Q*kS_g;CSa-0J6qHIiãU"lW]%5BF_gkC[aXO4ZnG<ãU"l'rc,V4rCF.htyXN82zO&(0(/-B95o1R^A:]on?Q[QQ=*Y2F<#W]hCVqW7_mZ?,'2Y.#;]&\BP$_EEQfcQSNSssjo4>]KXb5]m>1)VãU"0_PrDz)6FN#EqbhL#H(/^BCRpa/Gu%jQ\Q*A2b_vwa>-^h_obNp]KB8VAUcb%Q(ãU"6;ouA2RW5s/>a:b$oIQouQe*SY20#AP^fmqop988odMvVo\mx?e?=u,c+5/T)jAãU"1Gni^6ju%sQnl*e2TQ#3^L%D0d[;MYkxYkx'r3mF^HTv#<0tgGCkgO;>CgVW7_uãU"m?,w>2x#,a%7%i1.O>%8K)YP)OA+uWgO4]HKXb]Em>1V\0_PD>z)6NK#Eqh9L#HãU"La&7.i:vO('nK;Y4[%D+q1Wok+tcTY'PrmF^aHv#KCVW7H_m?mW(ãU"Sida577;8&gqo^-..Z.PFKJFi27q/+.FB5t8JA-bX=3N%ãU"*%%q%tfiS%gfxu%p&'9%%9%%#%-%aG0pGU+*Wm\#&%%R%,%%*%%%%%%%%%&%%E%ãU"%(%C+%%%uSn%rlup%&'9%%9%%%R-%9-BpG.p87NX(.%%n<%%%-%%%%%%%%%&%%EãU"%%%'G,%%%kfij%Snrl%up*+%%%%%%)%)%'N%%%'L0%%%%%ãEND SUBãCLOSE:IF S=143AND 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ãJoe Davison JFONT! lithuania@geocities.com 07-30-97 (15:11) QB, QBasic, PDS 81 5327 JFONT.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"JFONT.ZIP",4^6:Z&=3721:?STRING$(50,177);ãU"%up()%9%%%[-%],KvGmm*^\N(%%%UX%%%1%#%%k>M=C30DC0S3V0Cfe(v]AV7-iãU"xHo^KlZZ3x^qGs#Y/1/2Fle$G:.HK5*y[%XvSPvnnn4dSP(%,3A]Y?Y9P[(,3u$ãU"HO2Ya'24_K9*Yo?MibdMx8eeehgj[M%2$-#(?>LK7N&\GPOdUif+N9NN]O$FC9.ãU"?Tbd8)cSEXj_P%03;]JT&^K,)oRI3+i47e\Ra'kEoF:?m#jCOwtVe3<#ob\ZFIhãU"?U*C:G&e]3+&Ub8jg]q246cb_=,X8^'1H61L[ec_\?^&&zapZ_<_$Y^,6dVKQ-'ãU"/)j+$H^6^8L&KcCiO]RAOlCDr;2sxBQtl?neuHG_82;[)T7Dh\9//=cuR6*A):JãU"X'BIZjgbi33W(qJQ%+'kV9Uu>C:/+,t$gu/](O=RPAZP^f3+'_k6_u#&gC8Kt*WãU"x.$Dfj6KdQ;*vZBh:6c-Kqaw1str-Fp\c$M0s)8HV?nVHKIFk6P+[bH/qJi6j1)TipklmKãU"]tm$IS8$9K<'^jP^9oaHqmCLK6hGR5F+LznE%::#XZhs3r9KU6&4HmrIS5ji2BPãU"\9>0ZWkV?9kmSa&Re&o9lm>b6;0ut:X#bhk6+l*rEoNoU)31:?FUoerKIFdoJi7?L9#%:u'w9*)g72h^QPt.VTp(\ãU"O;goRl?tO#puOWxJ9tupo/c48O[Uqgyh/ES*+u>uRA%rKPMAjB_\_/,X/$g-.0nãU"8LeNe]K+Mr=-ASD=CS1V0B&';Elctw_^rsãU"nneWhdjH3LD)hAV+sz^hr\gJ_Slzlw9p0sh0pF>>[ACYZdHHnO08mBfzA86sQ;AãU"$JGrX$?a_[V2o[WX\TjKJl)bxtu_rr&B+m\n8=Xc&tmIz*=lMCVz)5VDVVYc/$tãU"AKMQ_CKaf7*qtv;J(7LWo'mBmNi][>&S+C4/gexMW5,?ZpD1Tsv7OaoJr9?tg2WãU"V1xQO^<2&^T*hC2nYm+'C%zxpEUb-+k&+cm[eK9]IY3v(Ei=?H0%+.b7:L($>lIãU".VOGdG^fFv5bs^y[Bd;__C/2t7.U/\%1WpxmGKk(DuP)kYkF1]-8'VLk*NdwP2)ãU"beP^rb=+FWSw\K5][bj?6:#J#'mOT-khZq.U:(4WN&)'H'/)QSG>[,_6Bd_JãU"msTDVu4L>S05bzMMnKdjwR;HgcxobZT,.G#b+8,gTZ,A.-(T(+PQ$9C>;Ily\sfãU"o?xBHcGo2U6a-UPKPqH>U\5.UiBm.wwvU*VGNãU"8%tMnJ:.T9T^pyiWIGnoz&?2JS])\t[J#M6y8-L\m+k9V$9DosNJuD3q%(MLzg]ãU":hJoRMrp=gbY;9T_)&3=st+V+,FT26OL+tiZ)NqvBFjUVZZ+8PTRy;^UCKB3+WcãU"%Q5ps-j&Z.qgUIImhg&>1)S9KYAlq1QLG1t:N$Ed_LSc:_y1)&P=pMGmhJw;fLOãU"B,*TG6>Iz-lU7r=?p^;;N#F5Gts1w(S7Or.m.UaL3+IS#*1%aBSG7U_Mn:UNSadãU"bdLsiD'w9/:qDOMqJ:1P^F1;#&kKXPgN7=l>/H>m)Bi*CcdVS&)qKw&8H9y;hBkãU"$gyIGa>-Xm,Mr%>C-qR4u96,XXu*WiGsSE2EA?#Tr[q=HNN#OL,:tTWU+pF+V8eãU"nivI?ZZT5m;uC.'aOrYfL9jKKqYwYodmxB4[GXDX(RtD5poy+*nu3*'M76IX5XhãU"c5$BpRsysBHO5-zdya;2ITPZtPA8)sr$^&MAMqv;3[gb8+HA9Me__fI]eW%;kTWãU"phQ:_kM*Y[EX)eW'.1AM2,Z'[_$b<[33q^_2$0lZveK:3nM[';MNe^H(ãU"Thpu1)0;FzIqS+T=oA/mQ#ctWN0x8mQr(WaGgM\D+Lu;R,h>0y8rVeu7M6N^Nm_ãU"s4T#g8ZK;JhoVL:#O)*s'Bzr/][)8Jr<\+]WV:j(RwK(aMvHEumzp-;+m79*[kMãU"CBjin\96p,sYLleQpUZ?8HIX_wg.*9gãU"OE6Krtg4e?G>WvxJ>>eh^T632&mehV77&sr=?nJO5kRdzc/kGNhAu;WM+6j6.#8'cr77OaãU"5A,g^VYwJyakdOG>,_O/52Zzr#D.;pNibIV&[HZWmQb$VYWOECro4.8G6w0-;;FãU"thMV.=)D,6YAZaqawRklulJDv8mrZ:la;w)\B#+YjLUxV29iDdgFc2lgKSgG$O1ãU"6*[I+JAcf.I#U;>fu-PcvJB66*h\k7(2b0S_fp'nrx/ij[eW25<0I=J1-)1caL9ãU"3;Xf\B,?0lB?pcC>.]bUbfHUnYE^3,E&Wm?WpuUim()N$ekpAw\k/^(GFol&PGgQTZQ94r#7MaG?gPctR&+>.2UãU"TpqDOr\SJ.6dm%i\8]jR]<'Wi,HKkuemer5ZlrLh.N#iqfNuno)w&8?stHTY.x$ãU"NsDwt05)\.j2n8mau9O$mSQeSK>e4O(^ml_piH^DEn[G$d]e&9fUiiZ0-57M3o+ãU"JdEuoUlMH&r,rs?[wa&Q's#.MIL#3EEld38sO?&P(5O)4J*ãU"MPNEIDIAkV+1Fy]_*xUG?LTJ69qUB(nz1IfWp>a
]E$l:7BWUDgU+T[R]/AbOãU"dvG'k0W[G(zE%?:D1,s]pT_gXuR9onst^qpU#)-RrPD2Y*.5xUmof1KFe,g'5][ãU"DV;s7;'LzSw[$.u+%>\F[T+FJa0ox&XTr_jP)mk2)+Ho=#GD\%.G9OR=X4#*=H(ãU"ve)%&4Z>q*v?EV4>JeV&#=0CAqF[sh'q[KI<%'.I9?B==O:w,L[=FQ.3,'/ZBPmãU"BrL*:I+S98-Y$O+]ArNAF*yEZbkr6TDW3eyxtd-mY>za]V.w.[Soj5q2[;F4foOãU"WRBA?l%IFn%DUK#kekXUXt=Kwu>3+EIA^thb%>pgsD'VGGPju8/)1RD'c:cnPPZãU"6R7Xr(opLh;2lu0UfZC^:],rK)13S:TyTH]5\LS4P;/6u;#X//U<=?/FaGC3sjsãU"0]I2KXVsk&?^SUVQ'%A;dm#&mt3m#\mWsSSpI:+K(nUa^,1iN;6o[oo>2D'1yG[ãU"i.m]8+35Ng_Vu_+dS8C%3]qNIF:1Xp5ta;jf36V$^_,KauGcBnaU]Hk_ICqrM/NãU"^]bU[8xJ+8#Zg80ãU"q]%HW(hhfG64U;anYa_%JJfKjZ)>J&=YD(c0\M+xZ,%ILKk,v9$786CE-gaO7akãU"]6?cbN3/2vil&jNOS5.pt?ohp]%,d7wNiO%7hUL'ãU"DvXqXukB3\*OzhB.]BreyAPt5?U%'^jPL)=_=&SVwT45*%;C$_A:jl.sEwuRYE?ãU"r0ln#)z2>SJev*<_7S==?Q$%gFQ'92m[=[.kw'&49C$D:c=Bsq8M/)F9+zR1M)hãU"ERqK>;('x,up%&'W0%9%%%[-%],KvGmm*^\N(%%%UX%%%1%%%%%%%%%&%RE%/P%ãU"%%%%Lk>=CM30C0LS30C%up&'%W09%%%%-%;fCwGmo?FJ&W/%%'e?%%%.%%%%%%%ãU"%%&%E%*/Px(#%%o52>=CS210Bu%p*+%%%%%'#%'%#%%%%'%3%%%%%ãEND SUBãCLOSE:IF S=239AND 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ãBen Paine SPECIAL EFFECTS (LOADS GIFS) lozt@hotmail.com 08-01-97 (17:33) QB, QBasic, PDS 197 5697 EFFECTS.BAS DECLARE FUNCTION pixelate$ (sz!)ãDECLARE FUNCTION fx1$ ()ãDECLARE FUNCTION fx2$ ()ãDECLARE FUNCTION size$ (n!)ãDECLARE FUNCTION PalBSave$ (FileName$)ãDECLARE FUNCTION loadgif$ (a$)ãTYPE Colrã Dat AS STRING * 3ãEND TYPEãSCREEN 13ãc$ = loadgif$("c:\bud\hbclogo.gif")ãc$ = pixelate$(1)ããFUNCTION fx1$ãfx1:ãp = POINT(a, b)ãPSET (a - 1, b), pãPSET (a + 1, b), pãPSET (a, b + 1), pãPSET (a, b - 1), pãa = a + 2ãIF a > 320 THEN a = 0: b = b + 1.5ãIF b > 200 THEN ELSE GOTO fx1ããEND FUNCTIONããFUNCTION fx2$ãfx2:ãp = POINT(a, b)ãPSET (a - 1, b), pãPSET (a + 1, b), pãPSET (a, b + 1), pãPSET (a, b - 1), pãa = a + 1.2ãIF a > 320 THEN a = 0: b = b + 1.5ãIF b > 200 THEN ELSE GOTO fx2ããEND FUNCTIONããFUNCTION loadgif$ (a$)ãDEFINT A-ZãDIM Prefix(4095), Suffix(4095), OutStack(4095), ShiftOut(8)ãDIM Ybase AS LONG, Powersof2(11) AS LONG, WorkCode AS LONGããFOR a = 0 TO 7: ShiftOut(8 - a) = 2 ^ a: NEXTãFOR a = 0 TO 11: Powersof2(a) = 2 ^ a: NEXTãIF INSTR(a$, ".") = 0 THEN a$ = a$ + ".gif"ãOPEN a$ FOR BINARY AS #1ãa$ = " ": GET #1, , a$ãIF a$ <> "GIF87a" THEN PRINT "Not a GIF87a file.":ãGET #1, , TotalX: GET #1, , TotalY: GOSUB GetByteãNumColors = 2 ^ ((a AND 7) + 1): NoPalette = (a AND 128) = 0ãGOSUB GetByte: Background = aãGOSUB GetByte: IF a <> 0 THEN PRINT "Bad screen descriptor.":ãIF NoPalette = 0 THEN p$ = SPACE$(NumColors * 3): GET #1, , p$ãDOã GOSUB GetByteã IF a = 44 THENã EXIT DOã ELSEIF a <> 33 THENã PRINT "Unknown extension type.":ã END IFã GOSUB GetByteã DO: GOSUB GetByte: a$ = SPACE$(a): GET #1, , a$: LOOP UNTIL a = 0ãLOOPãGET #1, , XStart: GET #1, , YStart: GET #1, , XLength: GET #1, , YLengthãXEnd = XStart + XLength: YEnd = YStart + YLength: GOSUB GetByteãIF a AND 128 THEN PRINT "Can't handle local colormaps.":ãInterlaced = a AND 64: PassNumber = 0: PassStep = 8ãGOSUB GetByteãClearCode = 2 ^ aãEOSCode = ClearCode + 1ãFirstCode = ClearCode + 2: NextCode = FirstCodeãStartCodeSize = a + 1: CodeSize = StartCodeSizeãStartMaxCode = 2 ^ (a + 1) - 1: MaxCode = StartMaxCodeããBitsIn = 0: BlockSize = 0: BlockPointer = 1ãX = XStart: Y = YStart: Ybase = Y * 320&ããDEF SEG = &HA000ãIF NoPalette = 0 THENã OUT &H3C7, 0: OUT &H3C8, 0ã FOR a = 1 TO NumColors * 3: OUT &H3C9, ASC(MID$(p$, a, 1)) \ 4: NEXTãEND IFãLINE (0, 0)-(319, 199), Background, BFãDOã GOSUB GetCodeã IF Code <> EOSCode THENã IF Code = ClearCode THENã NextCode = FirstCodeã CodeSize = StartCodeSizeã MaxCode = StartMaxCodeã GOSUB GetCodeã CurCode = Code: LastCode = Code: LastPixel = Codeã IF X < 320 THEN POKE X + Ybase, LastPixelã X = X + 1: IF X = XEnd THEN GOSUB NextScanLineã ELSEã CurCode = Code: StackPointer = 0ã IF Code > NextCode THEN EXIT DO 'bad GIF if this happensã IF Code = NextCode THENã CurCode = LastCodeã OutStack(StackPointer) = LastPixelã StackPointer = StackPointer + 1ã END IFãã DO WHILE CurCode >= FirstCodeã OutStack(StackPointer) = Suffix(CurCode)ã StackPointer = StackPointer + 1ã CurCode = Prefix(CurCode)ã LOOPãã LastPixel = CurCodeã IF X < 320 THEN POKE X + Ybase, LastPixelã X = X + 1: IF X = XEnd THEN GOSUB NextScanLineãã FOR a = StackPointer - 1 TO 0 STEP -1ã IF X < 320 THEN POKE X + Ybase, OutStack(a)ã X = X + 1: IF X = XEnd THEN GOSUB NextScanLineã NEXTãã IF NextCode < 4096 THENã Prefix(NextCode) = LastCodeã Suffix(NextCode) = LastPixelã NextCode = NextCode + 1ã IF NextCode > MaxCode AND CodeSize < 12 THENã CodeSize = CodeSize + 1ã MaxCode = MaxCode * 2 + 1ã END IFã END IFã LastCode = Codeã END IFã END IFãLOOP UNTIL DoneFlag OR Code = EOSCodeãGOTO dunããGetByte: a$ = " ": GET #1, , a$: a = ASC(a$): RETURNããNextScanLine:ã IF Interlaced THENã Y = Y + PassStepã IF Y >= YEnd THENã PassNumber = PassNumber + 1ã SELECT CASE PassNumberã CASE 1: Y = 4: PassStep = 8ã CASE 2: Y = 2: PassStep = 4ã CASE 3: Y = 1: PassStep = 2ã END SELECTã END IFã ELSEã Y = Y + 1ã END IFã X = XStart: Ybase = Y * 320&: DoneFlag = Y > 199ãRETURNãGetCode:ã IF BitsIn = 0 THEN GOSUB ReadBufferedByte: LastChar = a: BitsIn = 8ã WorkCode = LastChar \ ShiftOut(BitsIn)ã DO WHILE CodeSize > BitsInã GOSUB ReadBufferedByte: LastChar = aã WorkCode = WorkCode OR LastChar * Powersof2(BitsIn)ã BitsIn = BitsIn + 8ã LOOPã BitsIn = BitsIn - CodeSizeã Code = WorkCode AND MaxCodeãRETURNãReadBufferedByte:ã IF BlockPointer > BlockSize THENã GOSUB GetByte: BlockSize = aã a$ = SPACE$(BlockSize): GET #1, , a$ã BlockPointer = 1ã END IFã a = ASC(MID$(a$, BlockPointer, 1)): BlockPointer = BlockPointer + 1ãRETURNãdun:ãCLOSEãEND FUNCTIONããDEFSNG A-ZãFUNCTION pixelate$ (sz)ãpxlate:ãp = POINT(a, b)ãLINE (a, b)-(a + sz, b + sz), p, BFãa = a + sz + 1ãIF a > 320 THEN a = 0: b = b + sz + 1ãIF b > 200 THEN ELSE GOTO pxlateããEND FUNCTIONããFUNCTION size$ (n)ãsizer:ãr = INT(RND(1) * 2)ãp = POINT(a, b)ãPSET (a / n, b / n), pãa = a + 2ãIF a > 320 THEN a = 0: b = b + 2ãIF b > 200 THEN ELSE GOTO sizerããEND FUNCTIONãDavey W. Taylor CIRCULAR PLASMA EFFECT audio.squad@mailbox.swipnet.se 08-02-97 (20:02) QB, QBasic, PDS 77 2186 CPLASMA.BAS 'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ--ÄÄÄ--Ä -ù ùã'³ ** PLASMA EFFECT **ã'³ Created by Davey W Taylorã'³ã'³ Please mention my name if you use this code in your program!ã'ÀÄÄÄÄÄ--ÄÄù- ù ùã' ** If you have any comments / suggestions / questions, my email is: **ã' ** audio.squad@mailbox.swipnet.se **ããDECLARE SUB setpal (Attr%, Red%, Green%, Blue%)ãDECLARE SUB getPal (Attr%, Red%, Green%, Blue%)ãSCREEN 13 'Gee...ããFOR o% = 0 TO 63 'Set a rainbow paletteã setpal n% + o%, o% - 1, 0, 63ãNEXT o%ãn% = n% + 64ãFOR o% = 0 TO 63ã setpal n% + o%, 63, o% - 1, 63 - o%ãNEXT o%ãn% = n% + 64ãFOR o% = 0 TO 63ã setpal n% + o%, 63, 63 - o%, 0ãNEXT o%ãn% = n% + 64ãFOR o% = 0 TO 63ã setpal n% + o%, 63 - o%, 0, o% - 1ãNEXT o%ãsetpal 0, 0, 0, 0 'Fix missed colorsãsetpal 64, 63, 0, 63ãsetpal 128, 63, 63, 0ãsetpal 192, 63, 0, 0ãFOR n% = 1 TO 319 'Draw the circle patternã c% = (c% + 1)ã o% = INT(c% - (c% * .012)) MOD 256ã IF o% = 0 THEN o% = 1ã LINE (n%, 0)-(319 - n%, 199), o%ãNEXT n%ãFOR n% = 1 TO 199ã c% = (c% + 1)ã o% = INT(c% - (c% * .012)) MOD 256ã IF o% = 0 THEN o% = 1ã LINE (319, n%)-(0, 199 - n%), o%ãNEXT n%ãLINE (0, 0)-(319, 19), 0, BF 'Clear the sidesãLINE (0, 180)-(319, 199), 0, BFãLINE (0, 0)-(29, 199), 0, BF 'Clear top and bottomãLINE (290, 0)-(319, 199), 0, BFãLINE (29, 19)-(290, 180), 1, B 'Draw a borderãLOCATE 1, 9ãPRINT "Plasma by Davey W Taylor"ããDOã WAIT &H3DA, 8 'Wait for screen retraceã getPal 1, rr%, gr%, br% 'Rotate ' - the safest way to makeã FOR n% = 2 TO 255 ' - the ' - a delay in a programã getPal n%, r%, g%, B% ' - paletteã setpal n% - 1, r%, g%, B%ã NEXT n%ã setpal 255, rr%, gr%, br%ãLOOP WHILE INKEY$ = ""ããSUB getPal (Attr%, Red%, Green%, Blue%)ãOUT &H3C7, Attr%ãOUT &H3C8, Attr%ãRed% = INP(&H3C9)ãGreen% = INP(&H3C9)ãBlue% = INP(&H3C9)ãEND SUBããSUB setpal (Attr%, Red%, Green%, Blue%)ãOUT &H3C7, Attr%ãOUT &H3C8, Attr%ãOUT &H3C9, Red%ãOUT &H3C9, Green%ãOUT &H3C9, Blue%ãEND SUBãDavey W. Taylor BIDIRECTIONAL CIRCLE PLASMA audio.squad@mailbox.swipnet.se 08-02-97 (20:02) QB, QBasic, PDS 90 2566 BIPLASMA.BAS'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ--ÄÄÄ--Ä -ù ùã'³ ** PLASMA EFFECT **ã'³ Created by Davey W Taylorã'³ã'³ Please mention my name if you use this code in your program!ã'ÀÄÄÄÄÄ--ÄÄù- ù ùã' ** If you have any comments / suggestions / questions, my email is: **ã' ** audio.squad@mailbox.swipnet.se **ããDECLARE SUB setpal (Attr%, Red%, Green%, Blue%)ãDECLARE SUB getPal (Attr%, Red%, Green%, Blue%)ãSCREEN 13 'Gee...ããFOR o% = 0 TO 63 'Set a rainbow paletteã setpal n% + o%, o% - 1, 0, 63ãNEXT o%ãn% = n% + 64ãFOR o% = 0 TO 63ã setpal n% + o%, 63, o% - 1, 63 - o%ãNEXT o%ãn% = n% + 64ãFOR o% = 0 TO 63ã setpal n% + o%, 63, 63 - o%, 0ãNEXT o%ãn% = n% + 64ãFOR o% = 0 TO 63ã setpal n% + o%, 63 - o%, 0, o% - 1ãNEXT o%ãsetpal 0, 0, 0, 0 'Fix missed colorsãsetpal 64, 63, 0, 63ãsetpal 128, 63, 63, 0ãsetpal 192, 63, 0, 0ãFOR n% = 1 TO 162 STEP 2 'Draw the circle bidirectional patternã c% = (c% + 1) MOD 256ã IF c% = 0 THEN c% = 1ã CIRCLE (159, 99), n%, c%ã CIRCLE (159, 100), n%, c%ã CIRCLE (160, 99), n%, c%ã CIRCLE (159, 98), n%, c%ã CIRCLE (158, 99), n%, c%ãNEXT n%ãDIM lin(1 TO 162, 200) AS INTEGERãFOR n% = 1 TO 200 STEP 2ã GET (0, n% - 1)-(319, n% - 1), lin(1, n%)ãNEXT n%ãFOR n% = 1 TO 162 STEP 2ã c% = (c% + 1) MOD 256ã IF c% = 0 THEN c% = 1ã CIRCLE (159, 99), n%, 255 - c%ã CIRCLE (159, 100), n%, 255 - c%ã CIRCLE (160, 99), n%, 255 - c%ã CIRCLE (159, 98), n%, 255 - c%ã CIRCLE (158, 99), n%, 255 - c%ãNEXT n%ãFOR n% = 1 TO 200 STEP 2ã PUT (0, n% - 1), lin(1, n%), PSETãNEXT n%ãLINE (0, 0)-(319, 19), 0, BF 'Clear the sidesãLINE (0, 180)-(319, 199), 0, BFãLINE (0, 0)-(29, 199), 0, BF 'Clear top and bottomãLINE (290, 0)-(319, 199), 0, BFãLINE (29, 19)-(290, 180), 1, B 'Draw a borderãLOCATE 1, 9ãPRINT "Plasma by Davey W Taylor"ããDOã WAIT &H3DA, 8 'Wait for screen retraceã getPal 1, rr%, gr%, br% 'Rotate ' - the safest way to makeã FOR n% = 2 TO 255 ' - the ' - a delay in a programã getPal n%, r%, g%, B% ' - paletteã setpal n% - 1, r%, g%, B%ã NEXT n%ã setpal 255, rr%, gr%, br%ãLOOP WHILE INKEY$ = ""ããSUB getPal (Attr%, Red%, Green%, Blue%)ãOUT &H3C7, Attr%ãOUT &H3C8, Attr%ãRed% = INP(&H3C9)ãGreen% = INP(&H3C9)ãBlue% = INP(&H3C9)ãEND SUBããSUB setpal (Attr%, Red%, Green%, Blue%)ãOUT &H3C7, Attr%ãOUT &H3C8, Attr%ãOUT &H3C9, Red%ãOUT &H3C9, Green%ãOUT &H3C9, Blue%ãEND SUBãDavey W. Taylor BIDIRECTIONAL LINE PLASMA audio.squad@mailbox.swipnet.se 08-02-97 (20:02) QB, QBasic, PDS 72 2051 LIPLASMA.BAS'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ--ÄÄÄ--Ä -ù ùã'³ ** PLASMA EFFECT **ã'³ Created by Davey W Taylorã'³ã'³ Please mention my name if you use this code in your program!ã'ÀÄÄÄÄÄ--ÄÄù- ù ùã' ** If you have any comments / suggestions / questions, my email is: **ã' ** audio.squad@mailbox.swipnet.se **ããDECLARE SUB setPal (Attr%, Red%, Green%, Blue%)ãDECLARE SUB getPal (Attr%, Red%, Green%, Blue%)ãSCREEN 13 'Gee...ããFOR o% = 0 TO 63 'Set a rainbow paletteã setPal n% + o%, o% - 1, 0, 63ãNEXT o%ãn% = n% + 64ãFOR o% = 0 TO 63ã setPal n% + o%, 63, o% - 1, 63 - o%ãNEXT o%ãn% = n% + 64ãFOR o% = 0 TO 63ã setPal n% + o%, 63, 63 - o%, 0ãNEXT o%ãn% = n% + 64ãFOR o% = 0 TO 63ã setPal n% + o%, 63 - o%, 0, o% - 1ãNEXT o%ãsetPal 0, 0, 0, 0 'Fix missed colorsãsetPal 64, 63, 0, 63ãsetPal 128, 63, 63, 0ãsetPal 192, 63, 0, 0ããFOR n% = 0 TO 319 STEP 2 'Draw the bidirectional patternã c% = c% + 1ã IF c% = 0 THEN c% = 1ã LINE (n%, 0)-(n%, 199), c%ã LINE (319 - n%, 0)-(319 - n%, 199), c%ãNEXT n%ãLINE (0, 0)-(319, 19), 0, BF 'Clear the sidesãLINE (0, 180)-(319, 199), 0, BFãLINE (0, 0)-(29, 199), 0, BF 'Clear top and bottomãLINE (290, 0)-(319, 199), 0, BFãLINE (29, 19)-(290, 180), 1, B 'Draw a borderãLOCATE 1, 9ãPRINT "Plasma by Davey W Taylor"ããDOã WAIT &H3DA, 8 'Wait for screen retraceã getPal 1, rr%, gr%, br% 'Rotate ' - the safest way to makeã FOR n% = 2 TO 255 ' - the ' - a delay in a programã getPal n%, r%, g%, B% ' - paletteã setPal n% - 1, r%, g%, B%ã NEXT n%ã setPal 255, rr%, gr%, br%ãLOOP WHILE INKEY$ = ""ããSUB getPal (Attr%, Red%, Green%, Blue%)ãOUT &H3C7, Attr%ãOUT &H3C8, Attr%ãRed% = INP(&H3C9)ãGreen% = INP(&H3C9)ãBlue% = INP(&H3C9)ãEND SUBããSUB setPal (Attr%, Red%, Green%, Blue%)ãOUT &H3C7, Attr%ãOUT &H3C8, Attr%ãOUT &H3C9, Red%ãOUT &H3C9, Green%ãOUT &H3C9, Blue%ãEND SUBãDavey W. Taylor STAR PLASMA EFFECT audio.squad@mailbox.swipnet.se 08-02-97 (20:02) QB, QBasic, PDS 77 2105 SPLASMA.BAS 'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ--ÄÄÄ--Ä -ù ùã'³ ** PLASMA EFFECT **ã'³ Created by Davey W Taylorã'³ã'³ Please mention my name if you use this code in your program!ã'ÀÄÄÄÄÄ--ÄÄù- ù ùã' ** If you have any comments / suggestions / questions, my email is: **ã' ** audio.squad@mailbox.swipnet.se **ããDECLARE SUB setpal (Attr%, Red%, Green%, Blue%)ãDECLARE SUB getPal (Attr%, Red%, Green%, Blue%)ãSCREEN 13 'Gee...ããFOR o% = 0 TO 63 'Set a rainbow paletteã setpal n% + o%, o% - 1, 0, 63ãNEXT o%ãn% = n% + 64ãFOR o% = 0 TO 63ã setpal n% + o%, 63, o% - 1, 63 - o%ãNEXT o%ãn% = n% + 64ãFOR o% = 0 TO 63ã setpal n% + o%, 63, 63 - o%, 0ãNEXT o%ãn% = n% + 64ãFOR o% = 0 TO 63ã setpal n% + o%, 63 - o%, 0, o% - 1ãNEXT o%ãsetpal 0, 0, 0, 0 'Fix missed colorsãsetpal 64, 63, 0, 63ãsetpal 128, 63, 63, 0ãsetpal 192, 63, 0, 0ããFOR y% = 0 TO 199 'Draw the star patternã c% = NOT c%ã FOR x% = 0 TO 319ã c% = NOT c%ã IF c% THEN n% = x% + y% ELSE n% = x% - y%ã n% = n% MOD 256ã IF n% = 0 THEN n% = 1ã PSET (x%, y%), n%ã NEXT x%ãNEXT y%ããLINE (0, 0)-(319, 19), 0, BF 'Clear the sidesãLINE (0, 180)-(319, 199), 0, BFãLINE (0, 0)-(29, 199), 0, BF 'Clear top and bottomãLINE (290, 0)-(319, 199), 0, BFãLINE (29, 19)-(290, 180), 1, B 'Draw a borderãLOCATE 1, 9ãPRINT "Plasma by Davey W Taylor"ããDOã WAIT &H3DA, 8 'Wait for screen retraceã getPal 1, rr%, gr%, br% 'Rotate ' - the safest way to makeã FOR n% = 2 TO 255 ' - the ' - a delay in a programã getPal n%, r%, g%, B% ' - paletteã setpal n% - 1, r%, g%, B%ã NEXT n%ã setpal 255, rr%, gr%, br%ãLOOP WHILE INKEY$ = ""ããSUB getPal (Attr%, Red%, Green%, Blue%)ãOUT &H3C7, Attr%ãOUT &H3C8, Attr%ãRed% = INP(&H3C9)ãGreen% = INP(&H3C9)ãBlue% = INP(&H3C9)ãEND SUBããSUB setpal (Attr%, Red%, Green%, Blue%)ãOUT &H3C7, Attr%ãOUT &H3C8, Attr%ãOUT &H3C9, Red%ãOUT &H3C9, Green%ãOUT &H3C9, Blue%ãEND SUBãDavey W. Taylor 3D WAVING FLAG audio.squad@mailbox.swipnet.se 08-02-97 (20:02) QB, QBasic, PDS 479 20148 3DFLAG.BAS 'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ--ÄÄÄ--Ä -ù ùã'³ ** 3D WAVING FLAG **ã'³ Created by Davey W Taylorã'³ã'³ Please mention my name if you use this code in your program!ã'ÀÄÄÄÄÄ--ÄÄù- ù ùã' ** If you have any comments / suggestions / questions, my email is: **ã' ** audio.squad@mailbox.swipnet.se **ã'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ--ÄÄÄ--Ä -ù ùã'³ ATTENTION! ATTENTION! ATTENTION! ATTENTION! ATTENTION!ã'³ This program contains more than just 1 flag. Checkã'³ the variables below! It canã'³ also be used to save the flag as a series of bitmap'sã'³ to be used in an animation for example an animatedã'³ GIF. You can also easily modify the program to displayã'³ the flag at a higher resolution by modifying the vars.ã'³ If you do this you should also implement reading fromã'³ file. I will probably write a flag editor where youã'³ can also change the flag resolution!ã'ÀÄÄÄÄÄ--ÄÄù- ù ùãDECLARE SUB Fill (x.ul%, y.ul%, x.ur%, y.ur%, x.ll%, y.ll%, x.lr%, y.lr%, c%)ãDECLARE SUB GetPal (Attr%, Red%, Green%, Blue%) 'declare subs and funcs.ãDECLARE SUB SetPal (Attr%, Red%, Green%, Blue%)ãDECLARE FUNCTION GetCC$ ()ãDECLARE FUNCTION SaveBMP! (f$, x%, y%, w%, h%, bpp%)ãã'- theese variable should be changed! --ãskip% = 0 'flag number (0 - 8)ã 'sweden (0) / usa (1) / ireland (2)ã 'iceland (3) / norway (4) / spain (5)ã 'denmark (6) / finland (7) / france (8)ã ãcnt$ = "sweden" 'name of flag files (max 7 chars)ãoutdir$ = "c:\temp\flags\" 'where to save the filesãsav% = 0 '1 = save files, 0 = just animate on screenã'-------------------------------------ããTYPE pointsã ul AS INTEGERã ur AS INTEGERã ll AS INTEGERã lr AS INTEGERã c AS INTEGERãEND TYPEã ãCONST pi2! = 6.283186 'pi * 2ãCONST speed! = .6283186 'flag speedãCONST movement! = 2.5 'movement amountãCONST space% = 10 'space between pixelsãCONST startx% = 0 'start x coord. of flagãCONST starty% = 0 'start y coort. of flagãCONST xsize% = 22 'amount of horiz. pixelsãCONST ysize% = 12 'amount of vert. pixelsãCONST wavem! = .5 'waves multiplierãCONST cinc% = 16 'color fix aãCONST oinc% = 7 'color fix bããDIM d!(1 TO xsize%, 1 TO ysize%) 'dimension varsãDIM xc(1 TO (xsize% - 1) * (ysize% - 1)) AS pointsãDIM yc(1 TO (xsize% - 1) * (ysize% - 1)) AS pointsãDIM cr(1 TO (xsize% - 1) * (ysize% - 1)) AS INTEGERãDIM flag(1 TO xsize% - 1, 1 TO ysize% - 1) AS INTEGERãDIM buff(1 TO 23102) AS INTEGERããRESTORE flagsããFOR n% = 1 TO (xsize - 1) * (ysize - 1) * skip% '(skip flag(s))ã READ dummy%ãNEXT n%ãFOR y% = 1 TO (ysize - 1) 'read flagã FOR x% = 1 TO (xsize - 1)ã READ flag(x%, y%)ã NEXT x%ãNEXT y%ããSCREEN 13 'gee...ããbuff(1) = 1736 'initialize bufferãbuff(2) = 117ããFOR o% = 1 TO 13 'set paletteã SetPal o%, 0 + oinc%, 0 + oinc%, o% + 15 + cinc%ãNEXT o%ãFOR o% = 14 TO 26ã SetPal o%, 0 + oinc%, 0 + oinc%, (25 - o%) + 15 + cinc%ãNEXT o%ãFOR o% = 1 TO 13ã SetPal o% + 25, o% + 15 + cinc%, o% + 15 + cinc%, 0 + oinc%ãNEXT o%ãFOR o% = 14 TO 26ã SetPal o% + 25, (25 - o%) + 15 + cinc%, (25 - o%) + 15 + cinc%, 0 + oinc%ãNEXT o%ãFOR o% = 1 TO 13ã SetPal o% + 50, o% + 15 + cinc%, 0 + oinc%, 0 + oinc%ãNEXT o%ãFOR o% = 14 TO 26ã SetPal o% + 50, (25 - o%) + 15 + cinc%, 0 + oinc%, 0 + oinc%ãNEXT o%ãFOR o% = 1 TO 13ã SetPal o% + 75, o% + 15 + cinc%, o% + 15 + cinc%, o% + 15 + cinc%ãNEXT o%ãFOR o% = 14 TO 26ã SetPal o% + 75, (25 - o%) + 15 + cinc%, (25 - o%) + 15 + cinc%, (25 - o%) + 15 + cinc%ãNEXT o%ãFOR o% = 1 TO 13ã SetPal o% + 100, 0 + oinc%, o% + 15 + cinc%, 0 + oinc%ãNEXT o%ãFOR o% = 14 TO 26ã SetPal o% + 100, 0 + oinc%, (25 - o%) + 15 + cinc%, 0 + oinc%ãNEXT o%ããFOR x% = 1 TO xsize% 'calculate 3d patternã FOR y% = 1 TO ysize%ã d!(x%, y%) = (x% + y%) * wavem!ã DO WHILE d!(x%, y%) > pi2!ã d!(x%, y%) = d!(x%, y%) - pi2!ã LOOPã NEXT y%ãNEXT x%ããDOã FOR x% = 1 TO xsize% 'increase all pointsã FOR y% = 1 TO ysize%ã d!(x%, y%) = d!(x%, y%) + speed!ã IF d!(x%, y%) > pi2! THEN d!(x%, y%) = d!(x%, y%) - pi2!ã NEXT y%ã NEXT x%ãã p% = 0 'calculate positions andã FOR x% = 1 TO xsize% - 1 'colorsã FOR y% = 1 TO ysize% - 1ã p% = p% + 1ã xc(p%).ul = ((x% + 0) * space%) + COS(d!(x% + 0, y% + 0)) * movement! + 1ã yc(p%).ul = ((y% + 0) * space%) + SIN(d!(x% + 0, y% + 0)) * movement! + 1ã xc(p%).ur = ((x% + 1) * space%) + COS(d!(x% + 1, y% + 0)) * movement! '- 1ã yc(p%).ur = ((y% + 0) * space%) + SIN(d!(x% + 1, y% + 0)) * movement! + 1ã xc(p%).ll = ((x% + 0) * space%) + COS(d!(x% + 0, y% + 1)) * movement! + 1ã yc(p%).ll = ((y% + 1) * space%) + SIN(d!(x% + 0, y% + 1)) * movement! '- 1ã xc(p%).lr = ((x% + 1) * space%) + COS(d!(x% + 1, y% + 1)) * movement! '- 1ã yc(p%).lr = ((y% + 1) * space%) + SIN(d!(x% + 1, y% + 1)) * movement! '- 1ã xc(p%).c = (xc(p%).ul + xc(p%).ur + xc(p%).ll + xc(p%).lr) / 4ã yc(p%).c = (yc(p%).ul + yc(p%).ur + yc(p%).ll + yc(p%).lr) / 4ã cr(p%) = INT(d!(x% + 0, y% + 0) * 4) + 1ã IF cr(p%) > 25 THEN cr(p%) = 25ã cr(p%) = cr(p%) + 25 * flag(x%, y%)ã NEXT y%ã NEXT x%ãã p% = 0ã FOR x% = 1 TO xsize% - 1 'draw it!ã FOR y% = 1 TO ysize% - 1ã p% = p% + 1ã LINE (xc(p%).ul, yc(p%).ul)-(xc(p%).ur, yc(p%).ur), cr(p%)ã LINE (xc(p%).ur, yc(p%).ur)-(xc(p%).lr, yc(p%).lr), cr(p%)ã LINE (xc(p%).lr, yc(p%).lr)-(xc(p%).ll, yc(p%).ll), cr(p%)ã LINE (xc(p%).ll, yc(p%).ll)-(xc(p%).ul, yc(p%).ul), cr(p%)ã PAINT (xc(p%).c, yc(p%).c), cr(p%), cr(p%)ã NEXT y%ã NEXT x%ã ã FOR x% = 1 TO xsize% - 1 'remove upper/lower edgesã p% = 1 + (11 * (x% - 1))ã LINE (xc(p%).ul, yc(p%).ul - 1)-(xc(p%).ur, yc(p%).ur - 1), 0ã LINE (xc(p%).ul, yc(p%).ul - 2)-(xc(p%).ur, yc(p%).ur - 2), 0ã p% = p% + 10ã LINE (xc(p%).lr, yc(p%).lr + 1)-(xc(p%).ll, yc(p%).ll + 1), 0ã LINE (xc(p%).lr, yc(p%).lr + 2)-(xc(p%).ll, yc(p%).ll + 2), 0ã NEXT x%ã FOR y% = 1 TO ysize% - 1 'remove left/right edgesã p% = y%ã LINE (xc(p%).ll - 1, yc(p%).ll)-(xc(p%).ul - 1, yc(p%).ul), 0ã LINE (xc(p%).ll - 2, yc(p%).ll)-(xc(p%).ul - 2, yc(p%).ul), 0ã p% = p% + 220ã LINE (xc(p%).ur + 1, yc(p%).ur)-(xc(p%).lr + 1, yc(p%).lr), 0ã LINE (xc(p%).ur + 2, yc(p%).ur)-(xc(p%).lr + 2, yc(p%).lr), 0ã NEXT y%ã PSET (xc(231).lr + 1, yc(231).lr + 1), 0 'remove an ugly dot inã 'lower right cornerãã IF sav% = 1 THEN 'save or animate?ã in% = in% + 1ã file$ = outdir$ + cnt$ + HEX$(in%) + ".bmp"ã IF sav% = 1 THEN r! = SaveBMP(file$, 7, 7, 217, 117, 8)ã IF r! THEN WIDTH 80, 25: PRINT "ERROR!": ENDã END IFãã IF sav% = 1 THEN 'stop if saving?ã c! = c! + speed!ã IF c! > pi2! THEN ENDã END IFãLOOP WHILE INKEY$ = ""ããflags:ãsweden:ã DATA 0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1ã DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1ã DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1ã DATA 0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0ãusa: ã DATA 0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2ã DATA 0,3,0,3,0,3,0,3,0,3,0,3,3,3,3,3,3,3,3,3,3ã DATA 0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2ã DATA 0,0,3,0,3,0,3,0,3,0,0,3,3,3,3,3,3,3,3,3,3ã DATA 0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2ã DATA 0,3,0,3,0,3,0,3,0,3,0,3,3,3,3,3,3,3,3,3,3ã DATA 0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2ã DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3ã DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3ã DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2ãireland:ã DATA 4,4,4,4,4,4,4,3,3,3,3,3,3,3,1,1,1,1,1,1,1ã DATA 4,4,4,4,4,4,4,3,3,3,3,3,3,3,1,1,1,1,1,1,1ã DATA 4,4,4,4,4,4,4,3,3,3,3,3,3,3,1,1,1,1,1,1,1ã DATA 4,4,4,4,4,4,4,3,3,3,3,3,3,3,1,1,1,1,1,1,1ã DATA 4,4,4,4,4,4,4,3,3,3,3,3,3,3,1,1,1,1,1,1,1ã DATA 4,4,4,4,4,4,4,3,3,3,3,3,3,3,1,1,1,1,1,1,1ã DATA 4,4,4,4,4,4,4,3,3,3,3,3,3,3,1,1,1,1,1,1,1ã DATA 4,4,4,4,4,4,4,3,3,3,3,3,3,3,1,1,1,1,1,1,1ã DATA 4,4,4,4,4,4,4,3,3,3,3,3,3,3,1,1,1,1,1,1,1ã DATA 4,4,4,4,4,4,4,3,3,3,3,3,3,3,1,1,1,1,1,1,1ã DATA 4,4,4,4,4,4,4,3,3,3,3,3,3,3,1,1,1,1,1,1,1ãiceland:ã DATA 0,0,0,3,2,2,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,3,2,2,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,3,2,2,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 3,3,3,3,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3ã DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 3,3,3,3,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3ã DATA 0,0,0,3,2,2,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,3,2,2,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,3,2,2,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,3,2,2,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0ãnorway:ã DATA 2,2,2,3,0,0,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 2,2,2,3,0,0,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 2,2,2,3,0,0,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 3,3,3,3,0,0,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3ã DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 3,3,3,3,0,0,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3ã DATA 2,2,2,3,0,0,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 2,2,2,3,0,0,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 2,2,2,3,0,0,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 2,2,2,3,0,0,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2ãspain:ã DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1ã DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1ã DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1ã DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1ã DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1ã DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2ãdenmark:ã DATA 2,2,2,2,2,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 2,2,2,2,2,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 2,2,2,2,2,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 2,2,2,2,2,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3ã DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3ã DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3ã DATA 2,2,2,2,2,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 2,2,2,2,2,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 2,2,2,2,2,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2ã DATA 2,2,2,2,2,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2ãfinland:ã DATA 3,3,3,3,3,0,0,0,3,3,3,3,3,3,3,3,3,3,3,3,3ã DATA 3,3,3,3,3,0,0,0,3,3,3,3,3,3,3,3,3,3,3,3,3ã DATA 3,3,3,3,3,0,0,0,3,3,3,3,3,3,3,3,3,3,3,3,3ã DATA 3,3,3,3,3,0,0,0,3,3,3,3,3,3,3,3,3,3,3,3,3ã DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 3,3,3,3,3,0,0,0,3,3,3,3,3,3,3,3,3,3,3,3,3ã DATA 3,3,3,3,3,0,0,0,3,3,3,3,3,3,3,3,3,3,3,3,3ã DATA 3,3,3,3,3,0,0,0,3,3,3,3,3,3,3,3,3,3,3,3,3ã DATA 3,3,3,3,3,0,0,0,3,3,3,3,3,3,3,3,3,3,3,3,3ãfrance:ã DATA 0,0,0,0,0,0,0,3,3,3,3,3,3,3,2,2,2,2,2,2,2ã DATA 0,0,0,0,0,0,0,3,3,3,3,3,3,3,2,2,2,2,2,2,2ã DATA 0,0,0,0,0,0,0,3,3,3,3,3,3,3,2,2,2,2,2,2,2ã DATA 0,0,0,0,0,0,0,3,3,3,3,3,3,3,2,2,2,2,2,2,2ã DATA 0,0,0,0,0,0,0,3,3,3,3,3,3,3,2,2,2,2,2,2,2ã DATA 0,0,0,0,0,0,0,3,3,3,3,3,3,3,2,2,2,2,2,2,2ã DATA 0,0,0,0,0,0,0,3,3,3,3,3,3,3,2,2,2,2,2,2,2ã DATA 0,0,0,0,0,0,0,3,3,3,3,3,3,3,2,2,2,2,2,2,2ã DATA 0,0,0,0,0,0,0,3,3,3,3,3,3,3,2,2,2,2,2,2,2ã DATA 0,0,0,0,0,0,0,3,3,3,3,3,3,3,2,2,2,2,2,2,2ã DATA 0,0,0,0,0,0,0,3,3,3,3,3,3,3,2,2,2,2,2,2,2ãblank:ã DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ã DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0ããDEFINT A-ZãSUB Fill (x.ul, y.ul, x.ur, y.ur, x.ll, y.ll, x.lr, y.lr, c%)ã uw% = x.ur - x.ulã lw% = x.lr - x.llã uh% = y.ur - y.ulã lh% = y.lr - y.llãã l% = uw%ã IF l% < lw% THEN l% = lw%ã IF l% < ABS(uh%) THEN l% = ABS(uh%)ã IF l% < ABS(lh%) THEN l% = ABS(lh%)ãã FOR n% = 1 TO l%ã ux% = x.ul + (uw% / l% * n%)ã uy% = y.ul + (uh% / l% * n%)ã lx% = x.ll + (lw% / l% * n%)ã ly% = y.ll + (lh% / l% * n%)ãã' th% = ly% - uy%ã' tw% = lx% - ux%ã' FOR tl% = 1 TO th%ã' y% = tl% + uy% - 1ã' x% = ux% + tw% / th% * tl%ã' PSET (x%, y%), c%ã' PSET (x% + 1, y%), c%ã' PSET (x%, y% + 1), c%ã' PSET (x% + 1, y% + 1), c%ã' NEXT tl%ã LINE (ux%, uy%)-(lx%, ly%), c%ã LINE (ux% + 1, uy%)-(lx% + 1, ly%), c%ã NEXT n%ãEND SUBããDEFSNG A-ZãFUNCTION GetCC$ 'Reads palette and returns it as a 256 color rgb stringãcc$ = STRING$(768, 0)ãFOR p% = 1 TO 256ãGetPal p% - 1, r%, g%, B%ãMID$(cc$, p% + (2 * (p% - 1)) + 0, 1) = CHR$(4 * (r% + 1) - 1)ãMID$(cc$, p% + (2 * (p% - 1)) + 1, 1) = CHR$(4 * (g% + 1) - 1)ãMID$(cc$, p% + (2 * (p% - 1)) + 2, 1) = CHR$(4 * (B% + 1) - 1)ãNEXT p%ãGetCC$ = cc$ãEND FUNCTIONããDEFINT A-ZãSUB GetPal (Attr%, Red%, Green%, Blue%) 'SUB to get a color attributeãOUT &H3C7, Attr%ãOUT &H3C8, Attr%ãRed% = INP(&H3C9)ãGreen% = INP(&H3C9)ãBlue% = INP(&H3C9)ãEND SUBããDEFSNG A-ZãFUNCTION SaveBMP (f$, x%, y%, w%, h%, bpp%)ãSELECT CASE bpp% '--------------ãCASE 1: cs% = 2 'do needed calculationsãCASE 4: cs% = 16 'ãCASE 8: cs% = 256 'ãCASE 24: cs% = 0 'ãCASE ELSE: SaveBMP = 5: CLOSE #1: EXIT FUNCTION 'ãEND SELECT 'ãvl% = INT(8 / bpp%) 'ãIF bpp% = 24 THEN vl% = 1 'ãIF INT(w% / 4) <> (w% / 4) THEN 'ãaa# = 4 * (INT(w% / 4) + 1) 'ãapl% = aa# - w% 'ãEND IF 'ãIF bpp% = 24 THEN 'ã'isize# = 0 'havn't figured out how toã'fsize# = isize# + 54 'calculate file size inãELSE '24 bit mode....ã'isize# = ((w% + apl%) * h%) / (8 / bpp%) 'and the other modes tend toã'fsize# = isize# + (cs% * 4) + 54 'cause an overflow... theyãEND IF 'are not nescessary anywayãoffs% = (cs% * 4) + 54 '--------------ãOPEN f$ FOR BINARY ACCESS WRITE AS #1 LEN = 1 'open fileãx$ = "BM"ãPUT #1, , x$ 'headerãx$ = MKL$(fsize#)ãPUT #1, , x$ 'filesizeãx$ = MKL$(0)ãPUT #1, , x$ 'reservedãx$ = MKL$(offs%)ãPUT #1, , x$ 'offset to pict dataãx$ = MKL$(40)ãPUT #1, , x$ 'size of headerãx$ = MKL$(w%)ãPUT #1, , x$ 'widthãx$ = MKL$(h%)ãPUT #1, , x$ 'heightãx$ = MKI$(1)ãPUT #1, , x$ 'planesãx$ = MKI$(bpp%)ãPUT #1, , x$ 'bits per pixelãx$ = MKL$(0)ãPUT #1, , x$ 'compressionãx$ = MKL$(isize#)ãPUT #1, , x$ 'image sizeãx$ = MKL$(2835)ãPUT #1, , x$ 'width in pels per metreãx$ = MKL$(2835)ãPUT #1, , x$ 'height in ppmãx$ = MKL$(0)ãPUT #1, , x$ 'used colors (who cares if itãx$ = MKL$(0) ' says all???? )ãPUT #1, , x$ 'important colors (i don't :)ãFOR p% = 1 TO cs% '--------------ãGetPal p% - 1, r%, g%, B% 'Save paletteãro$ = CHR$(((r% + 1) * 4) - 1) 'ãgo$ = CHR$(((g% + 1) * 4) - 1) 'ãbo$ = CHR$(((B% + 1) * 4) - 1) 'ão$ = bo$ + go$ + ro$ + CHR$(0) 'ãPUT #1, , o$ 'ãNEXT p% '--------------ãIF bpp% = 24 THEN cad% = 255 ELSE cad% = cs% - 1ãFOR yp% = y% + h% - 1 TO y% STEP -1 '--------------ãgot% = 0: c% = 0 'make a loop to save fileãt16% = 0 'ãFOR xp% = x% TO x% + w% - 1 'ãcr% = POINT(xp%, yp%) 'get POINT from screenãPSET (xp%, yp%), cad% - cr% - 1 'ãIF cr% < 0 THEN cr% = 0 'ãIF cr% > 255 THEN cr% = 255 'ãSELECT CASE bpp% 'ãCASE 1 'if b/wãIF c% = 0 THEN v$ = CHR$(0) 'calculate the 8 bitsãp% = cr% MOD 2 'ãa% = 2 ^ (7 - c%) 'ãIF p% THEN v$ = CHR$(ASC(v$) + a%) 'ãCASE 4 'if 16 cãIF c% = 0 THEN t16% = 16 * (cr% MOD 16) 'calculate hi/low of byteãIF c% = 1 THEN t16% = t16% + cr% MOD 16 'ãv$ = CHR$(t16%) 'ãCASE 8 'if 256 cãv$ = CHR$(cr%) 'use entire pointãCASE 24 'ãGetPal cr%, r%, g%, B% 'check the paletteão$ = CHR$(((r% + 1) * 4) - 1) + CHR$(((g% + 1) * 4) - 1)ãv$ = CHR$(((B% + 1) * 4) - 1) 'ãPUT #1, , o$ 'put the values directlyãgot% = got% + 2 'to the file, leaving blueãEND SELECT 'for the loop PUTãc% = (c% + 1) MOD vl% 'ãIF c% = 0 THEN PUT #1, , v$: got% = got% + 1 'PUT byte to fileãNEXT xp% 'ãIF c% <> 0 THEN PUT #1, , v$: got% = got% + 1 'if not done PUT bytes inãx$ = CHR$(0) 'the fileãDO UNTIL INT(got% / 4) = (got% / 4) 'ãPUT #1, , x$ 'PUT the extra line-bytesãgot% = got% + 1 'to fileãLOOP 'ãNEXT yp% 'ãCLOSE #1 'close fileãEND FUNCTIONããDEFINT A-ZãSUB SetPal (Attr%, Red%, Green%, Blue%) 'SUB to set a color attributeãOUT &H3C7, Attr%ãOUT &H3C8, Attr%ãOUT &H3C9, Red%ãOUT &H3C9, Green%ãOUT &H3C9, Blue%ãEND SUBãBrad Bailey MONITOR MADNESS 2 ducttape@info2000.net 08-02-97 (08:44) QB, QBasic, PDS 76 1957 MADNESS2.BAS'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ã'³ Moniter Madness 2 BY: Duct_Tape ³ã'ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ã'³ I was playing with COS and SIN and I made this ³ã'³ neat looking screen saver type thing. ³ã'ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ã'³ If you would like for me to explain this code ³ã'³ to you then email me at ducttape@info2000.net ³ã'ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ã'³ Duct_Tape's QBasic Page ³ã'³ http://duct-tape.home.ml.org ³ã'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙããDECLARE SUB pal.set (lo%, hi%, red%, green%, blue%, r%, g%, b%)ãDECLARE SUB write.pal (r%, g%, b%, c%)ãDECLARE SUB get.pal (r%, g%, b%, c%)ãDECLARE SUB pal.fadeout ()ãDECLARE SUB pal.cycle ()ãCONST speed% = 250 'change this to make it go slower or fasterããSCREEN 13: CLSãxpos = 220: ypos = 220ãsize1 = 25: size2 = 25ãaddx = 1: addy = 1: col = 40: n# = 0ããDOã x = size1 * COS(n#)ã y = size2 * SIN(n#)ã CIRCLE (xpos + x, ypos + y), 10, colã PAINT (xpos + x, ypos + y), col, colã xpos = xpos + addxã ypos = ypos + addyã col = col + 1ã IF col > 55 THEN col = 32ã IF xpos > 300 THEN addx = -1ã IF xpos < 20 THEN addx = 1ã IF ypos > 180 THEN addy = -1ã IF ypos < 20 THEN addy = 1ã IF n# < 6.28 THEN n# = n# + .04 ELSE n# = 0ã FOR i = 1 TO speed%: NEXT iãLOOP UNTIL INKEY$ <> ""ããCALL pal.fadeoutãSYSTEMããSUB get.pal (r%, g%, b%, i%)ããOUT &H3C7, i%ãr% = INP(&H3C9)ãg% = INP(&H3C9)ãb% = INP(&H3C9)ããEND SUBããSUB pal.fadeoutããFOR n% = 1 TO 63ã FOR i% = 1 TO 255ã CALL get.pal(r%, g%, b%, i%)ã IF r% > 0 THEN r% = r% - 1ã IF g% > 0 THEN g% = g% - 1ã IF b% > 0 THEN b% = b% - 1ã CALL write.pal(r%, g%, b%, i%)ã NEXT i%ãNEXT n%ããEND SUBããSUB write.pal (r%, g%, b%, i%)ããOUT &H3C8, i%ãOUT &H3C9, r%ãOUT &H3C9, g%ãOUT &H3C9, b%ããEND SUBãBrad Bailey MONITOR MADNESS 3 ducttape@info2000.net 08-02-97 (08:44) QB, QBasic, PDS 119 2943 MADNESS3.BAS'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ã'³ Moniter Madness 3 BY: Duct_Tape ³ã'ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ã'³ I was playing with COS and SIN and I made this ³ã'³ neat looking screen saver type thing. ³ã'ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ã'³ If you would like for me to explain this code ³ã'³ to you then email me at ducttape@info2000.net ³ã'ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ã'³ Duct_Tape's QBasic Page ³ã'³ http://duct-tape.home.ml.org ³ã'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙããDECLARE SUB pal.set (lo%, hi%, red%, green%, blue%, r%, g%, b%)ãDECLARE SUB write.pal (r%, g%, b%, c%)ãDECLARE SUB get.pal (r%, g%, b%, c%)ãDECLARE SUB pal.fadeout ()ãDECLARE SUB pal.cycle ()ãCOMMON SHARED cãCONST speed% = 1 ' makes this a smaller number to make this progã ' go faster and vice-versaããSCREEN 13: CLSãRANDOMIZE TIMERããFOR c = 1 TO 7ã READ lo%, hi%, red%, green%, blue%, r%, g%, b%ã CALL pal.set(lo%, hi%, red%, green%, blue%, r%, g%, b%)ãNEXT cããCALL pal.cycleãCALL pal.fadeoutãSYSTEMãããDATA 1, 22, 0, 0, 0, 3, 0, 0ãDATA 23, 44, 0, 0, 0, 3, 1, 0ãDATA 45, 66, 0, 0, 0, 3, 3, 0ãDATA 67, 88, 0, 0, 0, 0, 3, 1ãDATA 89, 110, 0, 0, 0, 0, 3, 3ãDATA 111, 132, 0, 0, 0, 0, 1, 3ãDATA 133, 154, 0, 0, 0, 3, 0, 3ããSUB get.pal (r%, g%, b%, c%)ããOUT &H3C7, c%ãr% = INP(&H3C9)ãg% = INP(&H3C9)ãb% = INP(&H3C9)ããEND SUBããSUB pal.cycleããxpos% = INT(RND * 200) + 60ãypos% = INT(RND * 140) + 30ãaddx% = 1: addy% = 1: col% = 1: n! = 0ããDOã x! = 25 * COS(n!)ã y! = 25 * SIN(n!)ã CIRCLE (xpos% + x!, ypos% + y!), 10, col%ã PAINT (xpos% + x!, ypos% + y!), col%, col%ã xpos% = xpos% + addx%ã ypos% = ypos% + addy%ã col% = col% + 1ã IF col% > 153 THEN col% = 1ã IF xpos% > 300 THEN addx% = -1ã IF xpos% < 20 THEN addx% = 1ã IF ypos% > 180 THEN addy% = -1ã IF ypos% < 20 THEN addy% = 1ã IF n! < 6.28 THEN n! = n! + .04 ELSE n! = 0ã CALL get.pal(ro%, og%, bo%, 1)ã FOR i% = 2 TO 154ã get.pal r%, g%, b%, i%ã write.pal r%, g%, b%, i% - 1ã FOR dlay% = 1 TO speed%: NEXT dlay%ã NEXT i%ã CALL write.pal(ro%, og%, bo%, 154)ãLOOP UNTIL INKEY$ <> ""ããEND SUBããSUB pal.fadeoutããFOR n% = 1 TO 64ã FOR i% = 1 TO 154ã CALL get.pal(r%, g%, b%, i%)ã IF r% > 0 THEN r% = r% - 1ã IF g% > 0 THEN g% = g% - 1ã IF b% > 0 THEN b% = b% - 1ã CALL write.pal(r%, g%, b%, i%)ã NEXT i%ãNEXT n%ããEND SUBããSUB pal.set (lo%, hi%, red%, green%, blue%, r%, g%, b%)ããFOR i% = lo% TO hi%ã OUT &H3C8, i%ã OUT &H3C9, red%ã OUT &H3C9, green%ã OUT &H3C9, blue%ã red% = red% + r%ã green% = green% + g%ã blue% = blue% + b%ãNEXT i%ããEND SUBããSUB write.pal (r%, g%, b%, c%)ããOUT &H3C8, c%ãOUT &H3C9, r%ãOUT &H3C9, g%ãOUT &H3C9, b%ããEND SUBãPaul Maunders 3D ROTATING STARFIELD Cyberax@hotmail.com 08-04-97 (01:22) QB, QBasic, PDS 60 2570 3DSTARS.BAS SCREEN 12ãRANDOMIZE TIMERããMaxStars = 60ãPI = 3.141592654#ãRad% = 360 / (2 * PI)ãYA% = 79ãSB = .0001 'Magnification AcceleratorãZA% = 0 'Roll Direction (Angle)ãSC = 0 'Magnification FactorãHYP% = 300 'Maximum SizeãHS% = 320 'Middle X Co-ordinateãVS% = 240 'Middle Y Co-ordinateãSpike = 0ãLines = 0ããDIM S%(1000, 10) 'Starting Co-ordinate (Relative Position)ãDIM P%(1000, 2) 'Current Co-ordinateãDIM Old%(1000, 2) 'Previous Co-ordinate (Last Position) ããFOR STAR% = 1 TO 1000ãS%(STAR%, 1) = INT(RND * 360) + 1ãS%(STAR%, 2) = INT(RND * 360) + 1ãS%(STAR%, 3) = INT(RND * HYP%) + 90ãNEXTããFOR REVS% = 1 TO 1000 'Revolutionsã FOR YY% = 1 TO 360 STEP 4 'Single Spinã ZA% = ZA% + 1 'Change Roll Direction (Angle)ã FOR STAR% = 1 TO MaxStarsã ã SC = SC + SB 'Magnification Factorã XA% = S%(STAR%, 1) 'Relative X positionã YA% = YY% + S%(STAR%, 2) 'Relative Y position + Spin Amountã HYP% = S%(STAR%, 3) 'Relative Distance from Center Pointã ã XXX% = (COS(YA% / Rad%) * (COS(XA% / Rad%) * HYP%))ã YYY% = ((SIN(XA% / Rad%) * HYP%) * ABS((SIN((90 - ZA%) / Rad%) * HYP%) / HYP%)) + ((COS((YA% + 90) / Rad%) * (COS(XA% / Rad%) * HYP%) * ABS((COS((90 - ZA%) / Rad%) * HYP%) / HYP%)))ã ã P%(STAR%, 1) = HS% + (XXX% * SC) 'Work out Position using Center Points + Position * Scale Factorã P%(STAR%, 2) = VS% + (YYY% * SC)ã ã IF NOT INKEY$ = "" THEN ENDã IF SC < -1 THEN SB = -SBã IF SC > 1 THEN SB = -SBã NEXTã 'CLSã FOR STAR% = 1 TO MaxStarsã PSET (Old%(STAR%, 1), Old%(STAR%, 2)), 0ã PSET (P%(STAR%, 1), P%(STAR%, 2)), 15ã IF Spike = 1 THEN LINE (Old%(STAR%, 1), Old%(STAR%, 2))-(HS%, VS%), 0ã IF Spike = 1 THEN LINE (P%(STAR%, 1), P%(STAR%, 2))-(HS%, VS%), 15ã IF Lines = 1 THEN col = col + 1: IF col > 15 THEN col = 1ã IF Lines = 1 THEN LINE (Old%(STAR%, 1), Old%(STAR%, 2))-(Old%(STAR% + 1, 1), Old%(STAR% + 1, 2)), 0ã IF Lines = 1 THEN LINE (P%(STAR%, 1), P%(STAR%, 2))-(P%(STAR% + 1, 1), P%(STAR% + 1, 2)), colã Old%(STAR%, 1) = P%(STAR%, 1)ã Old%(STAR%, 2) = P%(STAR%, 2)ã NEXTã NEXTãNEXTãThe ABC Programmer SIDE SCROLLING DEMO voxel@freenet.edmonton.ab.ca 08-03-97 (19:16) QB, QBasic, PDS 106 6965 SLIDESHW.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"SLIDESHW.ZIP",4^6:Z&=4950:?STRING$(50,177);ãU"%up()%9%%%I-%C?d'H*=.I&$'7%%q*%%%.%%%%jl%fxxS#gfxTgy0>S7e1vC=NxãU"Z.7VZbg\D&[Shyjc;1&p_iN2CRLM2,uqLf*Tol&xMopJcIKd;j+gP;8JM*/B)^NãU"ioeZn.NMfWv.uKZ=p>A<2g(U0T%e]h\v+QR_]rL,#CãU"AobN]pZ1BKH8mG8rV#fWsHdnaJH=j.HQYp1h9'rN$&?l;B:WmJbpFC+jm_)Cn$ShvopW]OAKil1I*KC0ãU"-(E].1H+,8Xd'muIea_3bHX,gC9IS'Tl9(N76AjRãU"Tqf,QAO)it7teZ$2GTc6&4y16>O3?JVc7)8/w)=kOfV%Dw\cAFF#oe+#wTiOLJeãU"8gU.t%I64,\a1\Io(LDpJdI>2du?JOc0>Bits>mq,b)rF#QuMl>#+XW;^l<ãU"UJD*OaERG37cgqeMz8N-^I5xMa:$5%fJA??JC\?F)U?gO1xz(ZsdEIB6VD4d/T[ãU"K/J>ra\8BhE9/F8q^Ko]B\uu'C1QE5u(\;siif[EVOG6PXW5\niDNsSJCãU"5ea)<:YN>Vc+oVA;/7t0P'*oIY[g8F^&]PwFkU4^=k[SA#]mMp8RuD=4#>K'H)zãU"1h;bhoGYJFI3;<5jYE/LKSm>_Ls7)HuAH%/t^FUDLilu<0kkDZVEtqQ_hK-m13zãU"=rDU%>C5m$7:bB%3,$cig5l9KOci9#44OP=i%+n5u^.Rdd7Bgk8%RPo8/7[R%3)ãU"yrNt$8OzqszOM5eQi\=p0y/^ju-HR%iYri62&%8[v00MHPa+*WY*neIR0V[?9g#k:Un_8va-GYx%0up(%)9%%#%-ãU"%ZAy(H'tk;Ug[*%%+%0%%1%%%%m(t&yt%zxjSCy'y\h%0>T7[5vSXexZY&MmW]aãU"O+3V:u;O'=_4ukV4pWg]5h4d;AãU"3Hpr=e:\2ALG&mV)rEvLj:GVD3(Ctww=Yi*rtblxxJfK8AWZKQb%K%p(8tjZ6qKãU"\Ya+>.#eM6)7)?$:/?u?P,E^fE&S']W=0i)?GXr%25LlD-4e5ãU"mX\1&ia2pN5=D]ojRdS(G%h$?mZU\Gvi5NtZf7?xBz[9KPVC9B;cgbHwRMQ%&7C.?i*7.ãU"nBLtS#Bek9wg,YSrf?6*5)aqkT]K<]w_KN,:']ml\,BuXp\um$*#tCKL6_#wB](ãU",T+WoFve:Vm>R?\+>u1*/eFt..)Kc'5NTWZo;oBFAUM8bPH*du2DyZjT2X&yRm$ãU"f(PhxObB,-<>n:]f<,+5b#X)#KssYC-O->(9'Dn4FdimS[73EOWitCP'PTaaJ0rãU"NU3+31R8+'<3R.\J^B_ED&Ud8T:/0,08I2h?2E1mj$YsS]M7e6t/1\BLiM6^%D*ãU"fpK%-ID/)45BN$.7-&*)kK5Qeuq8G.lT?WW$$v87uIDdJ)LeynMZ1FHI&_&*;>mãU"mcg\;J#but_MGi,Yp%7AUVS4r5;UH%-FOd%rxpsz?NdK=;J721Eyj:IVt$bm%D$HpXBki5F9E'L%KL[2\H%7rUKehãU"P:xR;)pV3nRBx--a5Ir7f9eGY^hJ?C+bQ24VuX0jAB:S^t15rJ0j-G'%yl+a,kAãU"=NN5vR\+Qo:t4A_Jl'CsB=v:,_[uuMB6Y5GJ>k$n85GK5,=)=lQWaenRNHhUD5vãU"6]Rqq/eJSU7l+>KhZt4WL7ALAIPtN8l.\[d1'6ZT78]N3T-v7.T4CsTXUV^,^#,ãU"#bcu-fY[32NUFe?C3jgDGsIu&aEOgcCMFJlKQ))'j#P_ZãU"OADJx_uM)?#?s=C$)%1u7;5FNL=\bqkcK&v*C15-?z&unMp'*ToLId,WR-k5RkCãU"/VwP7TzBIoQ+[?RbtJHs1wmDo4\hWeT;aZOu^B_)D5,*3%)t3Z6c7VtUt$Z_4ND22xA6UãU"e(J##P^N#sq2wnH:Q#ZPqIy,TwrQ=^E\odx2ãU",Nr[5CLd7E\\a)rp?/&a*YiT3Vv6#6Q#>*eirsXcXPj229t4%okpC%jLZSJo58DãU"ijUjRpja]8?N[KãU"15g4LLIchEgQ-B*kXO4pCgeb<%%s*$2Gr\uv\$kq5p*-C#S)=bzdãU"7*^Z]^ytD)8Si/fh.b7m[9Oem54\t_Xk&[lG9%dh5GRBOtS&FGc>D=HW]G+I[,$ãU"ymt[(QiKj^8ooWDV+ZZP&HXkn#YKD?LU:z2-\#_8j%tYXL]&.up(%)9%%#%-%T\ãU"?'Hp/06VT[(%%5%-%%/#%%%%%lflw%uSgfOx&d:,>[k9bU8HjFDWj9U((QIVKvcãU"%1W3?Q7v#Rs-Mf\T6dVoJ[eruTkNXB?5fQ_mb$STBuQH25Wlm:BMTH$6+tr6td4ãU"^Er[_dC,K[D+Nci\:7b=/i7og0UtM-aKgnHn8PuhVArEKZJao4>uu58.(d)lYAhãU"-8A34#d1lrG=Ar$ovZDOQXv1NrSL:i:*K4d4BlYQ/QUT\tM4Vei7\0a'StKc6;N_v0,a*dk/iH4D.ND/hãU"BSpb9MHq2+oduEb\qB'(N0)Td&Zf7,[N[$63D6Jhc0:X_4xvbfE'Xm>xx6CWH\7N^'2'.rsI#A_(.qb?r.0*WA&4ãU"0lEmTIJKb.:z)n]jY=c]2)s(u..lr6'&aSgl=&XBZm83tu8F&0F$lnuci;M68dVãU"CHWO#=;X$kD3g'Ybed/JoED1:+Dc<_mM[0TGT<#wF$r*y4a3;w,_ãU"<\K^2',%n,eF;R-eSZ;SikULPdLYRQSE8g4hE8H90fg>ei[7ct%/j_:_q._]=[^ãU"]mq86e5/J5k]<1[&b\m+bMSudVlu.9t9Q17qy&BD&YTg$BVhhZ)cN3_7ãU"df$2H]%VH#cUz9'N=X.Q2w3pA&/4Og%8df=0dL]kxNZe=Y0.Gqm05ZL;cop_ikmãU"g0'T83AiiT[EvHj2[y<^19<-[%6r8v;=zNiHM;jFo#k&Gr[TJG7XoloD3.Ed,4MãU"+\qwyLF;9\-Gx'gqVj,aC:qN7tQzLlk]jZV0P>$_M4ãU"iFJ25cadS%hY0MXaN+*W:6nfI4jV[?g+#k8n5_8v-9GYx0%up()%9%%%I-%gyd(ãU"HaF1,HP'7%%P*%%%.%.%%%l%fxxS#gfxT^ysxZ.V0(J1h)/q?LRx?PãU"aGU[6?N:7VQP>5ohuc;wNtlB*T]jMSrIm0$acH^$foX=taCMav8deVdZw>H6nKtãU"$lYC/9CU*'G(rV8MHoTZLq>[jet,Q^Op?iu1gr/IYcJM9m+8H/rHQg+3e=LAh8dãU"aIFBSA^Dm)#Cg>WqlGb2t8gkD&Ck-gIo='LEbNHYgW^[Y7JDvj?#J7Y[ZNNAgkLãU"_1OU+RXM/=&#Y>eD#GFI+=W3w=J9e7,um,RL-6^G3*IC?]*;hx(]*GQJdGgiZãU":;ej=[Y?Me+^ta3;6^^Up7LuX'2jx23XL+MrvNj]ma*;S*]pGtBh#dTxvNJD6lK/ãU"x$CJYTek&>dBw,%up&'%9%9%%%%-%)C?'H,*=I&&$'%%'q*%%%.%%%%%%%%%&%EãU"%%%%%%%%%jl%fxxS%gfxu%p&'9%%9%%#%-%'&?'HN-j(bV[(%%;%-%%/%%%%%%%ãU"%%&%%E%%+%1'%%%jlf%lwuS%gfxu%p&'9%%9%%#%-%ZAy(H'tk;Ug[*%%+%0%%1ãU"%%%%%%%%%&%%E%%%%6+%#%mt&%ytzx#jSy'%yup&%'9%9%%%%-1%T?'4Hp06&VTãU"(%+%5-%%%/%%%%%%%%%&%E%%%%N#1%%%%lflw%uSgf%xup&%'9%9%%%%-1%gy(:ãU"HaF,)HP'%+%P*%%%.%%%%%%%%%&%E#%%%O#4%%%%lfxx%Sgfx%up*+%%%%%%*%*ãU"%%=&%%%M7%%%%%ãEND SUBãCLOSE:IF S=11AND 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ãDavey W. Taylor 3D WAVE PATTERN audio.squad@mailbox.swipnet.se 08-13-97 (08:25) QB, QBasic, PDS 54 2598 3DWAVE.BAS 'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ--ÄÄÄ--Ä -ù ùã'³ ** 3D WAVE PATTERN **ã'³ Created by Davey W Taylorã'³ã'³ This is the original pattern I used for the 3d-flag program.ã'³ I would like to know if it is possible to map an image toã'³ this pattern using pure basic (no asm). I'm not looking forã'³ speed, just a good, working program!ã'³ Anyway, if you use this pattern directly or as a base forã'³ some other graphical thingy, I would appreciate if you mentionã'³ my name... So if you have some code for the image mapping, email!ã'³ã'³ NOTE: This program uses real time calculation for the pixel pos'sã'³ precalculating this into an array would increase the speedã'³ tremendously! I simply didn't have the time or will...ã'³ã'³ ALSO! THE 3D-FLAG EDITOR IS DONE! YOU CAN DOWNLOAD THE PROGRAM ATã'³ http://dix.dubna.ru/flagdraw/ã'³ I WILL RELEASE THE SOURCE IN THE NEXT PACKAGE...ã'ÀÄÄÄÄÄ--ÄÄù- ù ùã' ** If you have any comments / suggestions / questions, my email is: **ã' ** audio.squad@mailbox.swipnet.se **ãSCREEN 1ããCONST pi2! = 6.283186 'pi * 2ãCONST speed! = .1 'flag speedãCONST movement% = 2 'movement amountãCONST space% = 10 'space between pixelsãCONST startx% = 100 'start x coord. of flagãCONST starty% = 70 'start y coort. of flagãCONST xsize% = 10 'amount of horiz. pixelsãCONST ysize% = 5 'amount of vert. pixelsãCONST wavem! = 1 'waves multiplierããDIM d!(1 TO xsize%, 1 TO ysize%)ãFOR x% = 1 TO xsize%ã FOR y% = 1 TO ysize%ã d!(x%, y%) = (x% + y%) / wavem!ã DO WHILE d!(x%, y%) > pi2!ã d!(x%, y%) = d!(x%, y%) - pi2!ã LOOPã NEXT y%ãNEXT x%ãDOã' WAIT &H3DA, 8 'make it not so fast...ã FOR x% = 1 TO xsize%ã FOR y% = 1 TO ysize%ã d!(x%, y%) = d!(x%, y%) + speed! 'calc. and draw pixelsã PSET (startx% + (x% * space%) + (COS(d!(x%, y%) - speed!) * movement%), starty% + (y% * space%) + (SIN(d!(x%, y%) - speed!) * movement%)), 0ã PSET (startx% + (x% * space%) + (COS(d!(x%, y%)) * movement%), starty% + (y% * space%) + (SIN(d!(x%, y%)) * movement%)), 15ã IF d!(x%, y%) > pi2! THEN d!(x%, y%) = d!(x%, y%) - pi2!ã NEXT y%ã NEXT x%ãLOOP WHILE INKEY$ = ""ãAngelo Ken Pesce PARTICLE FOUNTAIN ken@uniserv.uniplan.it 08-20-97 (18:41) PB 151 2511 FOUNTAIN.BAS' Original particle fountain source: Daniel Daviesãã' PB PORTING, MODE13ROUTINES, SMOOTH EFFECT, DOUBLE BUFFERING,ã' CODE REVISION AND ALL THE OTHER THINGS NEEDED TO MAKE A GOODã' EFFECT: Angelo KEN Pesce ;-)ãã' Email me:Ken@uniserv.uniplan.itãã' W ITALY!!!!!!ãã' TO DO LIST:ã' 1)OPTIMIZEã' 2)WIND# & GRAV# ANIMATION (I'm not too good with those x=f(t) functionsã' mabye x-bios can do something...)ã' 3)EVERY PARTICLE MUST HAVE ITS OWN WIND# AND GRAV# VALUES (needed for w&g anim)ããã$OPTIMIZE SPEEDã' 386 is REQUIRED...ã$CPU 80386ã$LIB ALL OFFã$ERROR ALL OFFã$FLOAT NPXããã' Init mode 13hã!mov ax,&h13ã!int &h10ããã' Init Screen bufferãDIM screenbuffer(32000+(320/2)) as wordãDIM scrseg as wordãscrseg=varseg(screenbuffer(0))ããã' Paletteãmaxcol%=128ãOUT &H3C8, 0ãFOR i = 0 TO 63ãOUT &H3C9, 0ãOUT &H3C9, 0ãOUT &H3C9, iãNEXTãFOR i = 0 TO 63ãOUT &H3C9, 0ãOUT &H3C9, iãOUT &H3C9, 63ãNEXTãã' UNCOMMENT THOSE LINES FOR 192 COLORS VERSIONã' maxcol%=192ã'FOR i = 0 TO 63ã'OUT &H3C9, iã'OUT &H3C9, 63ã'OUT &H3C9, 63ã'NEXTãããTYPE particleãx AS singleãy AS singleãxm AS singleãym AS singleãEND TYPEããnum% = 3000ãDIM objs(num%) AS particleãwind# = 0ãGRAV# = .019ãDOããFOR x% = 1 TO num%ããIF objs(x%).y > 199 OR objs(x%).x > 319 OR objs(x%).y < 0 OR objs(x%).x < 1 THENãobjs(x%).x = 158 + (RND * 4)ãobjs(x%).y = 0ãobjs(x%).xm = (RND * 2) - 1ãobjs(x%).ym = (RND * 3) + 2ãELSEãã' Put pixel into bufferãx1%=int(objs(x%).x)ãy1%=int(199-objs(x%).y)ã !Mov di,y1%ã' SHL DI,8ã !Dw &hE7C1ã !Db 8ã !Mov bx, y1%ã' SHL BX,6ã !Dw &hE3C1ã !Db 6ã !Add di, x1%ã !Mov es, scrsegã !Add di, bxã !Mov dl, maxcol%ã !Mov es:[di], dlããincr objs(x%).x, objs(x%).xmãincr objs(x%).y, objs(x%).ymãdecr objs(x%).ym, GRAV#ãincr objs(x%).xm, wind#ãEND IFããNEXT x%ãã' SMOOTH BUFFERã !mov es,scrsegã !Mov di, &hF8c0 ; 64000-320:Don't smooth last lineã !Xor bx, bxãjmp1:ã !Mov bl, es:[di]ã !Add ax, bxã !Mov bl, es:[di + 320]ã !Add ax, bxã !Mov bl, es:[di - 1]ã !Add ax, bxã !Dw &hE8C1ã !Db 2ã !Mov es:[di], alã !Dec diã !Jnz jmp1ããã' COPY BUFFER TO SCREENã !Push dsã !Push siã !Mov ds, scrsegã !Mov si, 0ã !Mov di, 0ã !Mov ax, &ha000ã !Mov es, axã !Mov cx, &h3e60ã !Db &hF3ã !Db &h66ã !Db &hA5ã !Pop siã !Pop dsããLOOP until len(inkey$)ããããããããããããAngelo Ken Pesce PARTICLE EXPLOSION (FIREWORKS) ken@uniserv.uniplan.it 08-20-97 (18:41) PB 244 5050 EXPLODE.BAS ' ***********************************ã' ANGELO KEN PESCE 1997 *ã' Email me:Ken@uniserv.uniplan.it *ã' ***********************************ãã' (Smooth routine made by X-Bios)ãããã' Some "standars" pb initsã$OPTIMIZE SPEEDã' 386 is REQUIRED...ã$CPU 80386ã$LIB ALL OFFã$ERROR ALL OFFã$FLOAT NPXã randomize timerããã' Init mode 13h + SQUARE PIXELSã !Mov ax, &h13ã !Int &h10ã !mov dx,&h3c2ã !mov al,&h0e3ã !out dx,alãããã' Init Screen bufferã DIM screenbuffer(32000) as WORDã DIM scrseg as WORDã scrseg = varseg(screenbuffer(0))ããã' Generate Paletteã maxcol% = 255ã CALL setpalããã' Init particle arrayã TYPE particleã x as SINGLEã y as SINGLEã xm as SINGLEã ym as SINGLEã END TYPEã num% = 4000ã DIM objs(num%) as particleããã GRAV# = 0.01: 'TRY OTHER GRAV# VALUES LIKE 0;0.01 etc...ããã' ********************************************>>>>>ã' MAIN ********************************************>>>>>ã' ********************************************>>>>>ãã DOãã' FLASH EFFECT ********************************************>>>>>ãã' Clear screenã !Xor di, diã !Mov es, scrsegã !Mov cx, 16000ã !Xor ax, axã !Push axã !Db &h66ã !Db &hC1ã !Db &hE0ã !Db 16ã !Pop axã !Db &hF3ã !Db &h66ã !Db &hABã FOR i = 0 to 4ã out &h3C8, 0ã out &h3C9, 0ã out &h3C9, 63ã out &h3C9, 63ã !Mov dx, &h3DAãasmjmp12:ã !In al, dxã !Test al, 8ã !Jnz asmjmp12ãasmjmp13:ã !In al, dxã !Test al, 8ã !Jz asmjmp13ã out &h3C8, 0ã out &h3C9, 0ã out &h3C9, 0ã out &h3C9, 0ã !Mov dx, &h3DAãasmjmp12b:ã !In al, dxã !Test al, 8ã !Jnz asmjmp12bãasmjmp13b:ã !In al, dxã !Test al, 8ã !Jz asmjmp13bã NEXTããã' GENERATE PARTICLES ********************************>>>>>ã xsrc% = rnd * 320ã ysrc% = rnd * 200ã FOR x% = 1 to num%ã objs(x%).x = xsrc%ã objs(x%).y = ysrc%ã lx! = (rnd * 2) -1ã ly! = (rnd * 2) -1ã dist! = rnd * 5ã ln! = sqr(lx!^2 + ly!^2)ã IF ln! = 0 THENã objs(x%).xm = lx!ã objs(x%).ym = ly!ã ELSEã objs(x%).xm = lx! * (ln! * dist!)ã objs(x%).ym = ly! * (ln! * dist!)ã END IFã NEXT x%ããã FOR sloop% = 1 to 600: ' Main smoothing & grav loop *****************>>>>>ãã FOR x% = 1 to num%ã incr objs(x%).x, objs(x%).xmã incr objs(x%).y, objs(x%).ymãã IF objs(x%).y > 199 THENã objs(x%).y = 199ã objs(x%).xm = objs(x%).xm / 4ã objs(x%).ym = - objs(x%).ym / 2ã ELSEIF objs(x%).y < 0 THENã objs(x%).y = 0ã objs(x%).xm = objs(x%).xm / 4ã objs(x%).ym = - objs(x%).ym / 2ã ELSEã incr objs(x%).ym, GRAV#ã END IFãã IF objs(x%).x < 3 THENã objs(x%).x = 3ã objs(x%).xm = - objs(x%).xm / 2ã objs(x%).ym = objs(x%).ym / 4ã ELSEIF objs(x%).x > 316 THENã objs(x%).x = 316ã objs(x%).xm = - objs(x%).xm / 2ã objs(x%).ym = objs(x%).ym / 4ã END IFãã' Put pixel into bufferã x1% = int(objs(x%).x)ã y1% = int(objs(x%).y)ãã !Mov es, scrsegã !Mov di, x1%ã !Mov ax, y1%ã !Dw &hE0C1ã !Db 6ã !Add di, axã !Dw &hE0C1ã !Db 2ã !Add di, axã !Mov al, maxcol%ã !Mov es:[di], alã NEXT x%ãã' SMOOTH BUFFERãã '!mov es,scrsegã !Mov di, &hF8c0 ; 64000-320:Don't smooth last lineã !Xor bx, bxã' !Mov bl, es:[di]ãjmp1:ã !Mov bl, es:[di]ã !Add ax, bxã !Mov bl, es:[di + 320]ã !Add ax, bxã !Mov bl, es:[di - 1]ã !Add ax, bxã !Dw &hE8C1ã !Db 2ã !Jz jmp2ã !Dec alãjmp2:ã !Mov es:[di], alã !Dec diã !Jnz jmp1ããã' COPY BUFFER TO SCREENã !Push dsã' !Push siã !Mov ds, scrsegã !Xor si, siã !Xor di, diã !Mov ax, &hA000ã !Mov es, axã !Mov cx, &h3e30ã !Db &hF3ã !Db &h66ã !Db &hA5ã' !Pop siã !Pop dsãã NEXT sloop%ãã LOOPãããããããããããSUB setpal ()ã out &h3C8, 0ã FOR i = 0 to 63ã out &h3C9, 0ã out &h3C9, i / 6ã out &h3C9, i / 8ã NEXTã FOR i = 0 to 63ã out &h3C9, iã out &h3C9, 0ã out &h3C9, 0ã NEXTã FOR i = 0 to 63ã out &h3C9, 63ã out &h3C9, iã out &h3C9, 0ã NEXTã FOR i = 0 to 63ã out &h3C9, 63ã out &h3C9, 63ã out &h3C9, iã NEXTãEND SUBãAngelo Ken Pesce SMOOTH FADE ken@uniserv.uniplan.it 08-20-97 (18:41) PB 543 35915 SMFADE.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"SMFADE.ZIP",4^6:Z&=26698:?STRING$(50,177);ãU"%up()#9%%OI-%hYI9H_c0+FãU"adNU5)[\*>0M+w[?w8Pi%9.5H0L;8vL6&7f$ji4[%+sF87tg5^/#7r?=1?)$gb?ãU"pgRb(0653hLNALf0B&PU+t?*x+RãU"Hsw<2'kXQRh9#_)=OiN(7Hta,gãU"]yI83UDuh[B/u#86sELS9xIlWAj94]i.,oouP7Hl#8>?avZgL]E,V=(6jRf-qzNãU"?]Xt(WXm973u]ND;G,),X(itLgcAR9=4o\(?c4P[U1L#T$3deNV9gdU58'*xBWsãU"#i1dhu.0Lr]=/>NtVc[,cgTEC1b1.&c;#^y7zoPW9MT.c(UC^P.K/Xr:D8MN<,dãU"H1fIVKS-CY<]7jIatSnApZdVuY8q7GgZVpequQj$V#E)3XQ2th;,ZJdA=)-%PnIãU"y07_R74&E/j4V:3F+oWTGImvy:KLJ\1YG:KH19r)AB^T1hCK0c[EMXO(SE*=cO%ãU"*k5Om=q1&h0]jjIXEoQOoGf;;XI/R?/um+9b78-=S;TC'6UyL&lRShOtc_p.Y0rãU"JpdC0FA1bJKI0D\bvCXl0czJlrlRNY\YG7LNrkpk_Vy2Lu5Q>H9N)>\--66)?wfãU"=#H23[vL>;GQ*UO(+S/^h&MuxU1XVFQ&X\oKUnAgb)cvu(/>ZHFJ27lZgJAZ*roãU"g2Twrx^#lf8v^5+E==K1.Q[;K29MY,em&GW7bl[ku[M29:5'5hY0wU=.;qgi*#&ãU"^mdGu3m+t-M(svH\/)ZL*)FZm3o]Z=k,W=v;/Rl?3DP)an^S>B+OOkzAXU[tQ*BãU"qA2pVPWqKo/)uB13JE;LLv:h,Y4+513,Q.*z*PUW#PA3^Cir'D&e38MDi^a,?56YNnVZw*w&X>,\'$?qWpdx.%ãU"AVW>v9VIeFCVDkf?^U0eA,2/qãU"bhqS0qnlsseES7OVn^LktuKY'mzixm;<8ASSQMZ'Qgr3%]%V;JhMe;H5i_e]Q;>ãU"S0i67M10$F;t836iw^ek07IL+YF74Mb;^Nj'TndXoK0];O5l-<)NW.1h&?w50/SãU"g;JF]%fXf,t%A0&2%%,'s%%/%%%%x%rkfi%jSifOyãU"eLDMK+6e-^uV$9TnHq,BKnLBV&LUg]X2/IBL55)55KnVe;B1M5555&yO:m#JSVrãU")hEI5ZHvWJFz(oao\Yege>\.K0&i%yUzvGtkBhFdc(x7r=TxkTuHxn$ullãU"rr3uKMcgdnnHuH$$lulrru5KwN]?x\hcuxsx9rZ.C86Jrn]689H2Z$nP.oxJG8uãU"xt8xr#Nu#tN[uc>&8sZNG>?M,Zl$_?8$GD>Sl?pk]oVqul>Q*6\?\Dpd0;=&X8LrAiY>61/lx(ãU"=3to90u^M1dda0;uqj\?n\Bt>JgVnNQoRvrClNW9c]A61j#8Lrhus^m(56EibPFWQTDZfQ*W7ANiH.d[;lU-4dH/f$EZgS6ãU"6uh7vt#4AaGuaIZ<(l]A^mO_qP*'0Y5^ktSZ;EjCX:+ãU"Oeka#uKQVnN6sBw6f<>Y=%n(5>g>h#xBLVAc5Fi6AhG[E)]L4cu-a\6H7d&b-N4ãU"x.MpZ2oU1*ZeSk..5v,u&$-Q1\v[rGm,)N+D?#-pk2-L3Z[X[tqnH-EBPQ)eeMyãU"P4cYy3ci)r),LhhLh222IhhLLVlu/uGy+g,;ycDImj*2R:>8B.G#J6pFfwcm9'sãU"o[ke_u?&vtAbr-NHG_NmZ,*):ki.Cg/]m=4xn1ãU"DNM?qGnlYFVWR-r/1n3q\*/hrSJYiN*b6OPl.lrVZV0.D/7iCpAoDCfFTaC)d4:ãU"z(ZD2rCR?XgB8*\&,C6fQkpd6OPUuSd3<_.7RT)q';SLxhab0,(p\:GutT]mãU"OYM0826?haeossH#H%dUM]%YQGW%_[SF%V^JR%bHXP%$L\\#TãU"TTns37__N_364M5svumIJ?#B>ijU)VT),X+qrIqJH14]3]^QA$TaFuOqEB$\kTUãU"R'+'Q(Pkd4TlãU"K#o.V\]X>\,5H$FT'>(TS^m]_21Q32JG>HtqW#9hg(Tae]W)Z^t5PlqGS[6)6=kãU"_I_Y/o%NgNGboBqEA)0u,*/5;/MW1Eil_#Zmi:L)JE'dZ1N+-Q>u#g6t#4B^E9[9iXLbãU"6=07n%S$%]_X)%b^-(%'&Gu%1200.44^5+3w^Q%QYY)'A*+7&Ec1aR\5H$Mp648ãU"q0MGer%XJb.xL]Bj^-Nh%5/)8qHQHqQEbbSNXPLJtEfQ/AHHQãU"gd=]Ng_;?=8IJEPN4IYU]LR]hrhqtC/tN6ERB&BXWVKYoXjb,vãU"H=85M)/U-I?;12CA5-%'g4t-Vj7Dos+wQN%T^B\S4nHOn.H=0^ãU"D'DKWB*l0hSn[Ca1lXbBq6d/47:[&m[em)331)Y^0B9jd4]MZ^bbebHp#9oZd\d\B8h\=OKS];_=.wv%WwWdãU"J1>Kb,\4D06b+i5i,2N,&D76tVd,oCeq_hQSTS-#e]vI(T%E9$>(i10k%e8Hc&YãU"AYU,0*SMI9HIh^EvyxRB%7Qoj3gt5G&>5QqAIXSMgcAe]p,%#>QaSpa7eQkAI(\ãU"h'((JC2?vX^%K^t+1Y8j>-7a5&1,ãU"4D$,-k8Yr#AK>xmYx.dW/%M7:vF;;DQ&%_PpAfso/lXI]E(o=hGIDDxY>$96sb6ãU"Z#tVWAsnc6bHCKHu'MW-uf%3-ftibsF9#BVLcp8,d_fhT(Fv[hXM+ci%^n9RcbqãU"S.Hu?UIP;+t4-9B'5O%cHa0_&MmTj=>ek[\rot%ub'i.JTYf2iY[04D%5F$=)s4ãU"GtbZLHCImEAS3)QZA3hk.CI46Ghz_HKi_%GX0Hhm#wch_:q+sjttb3(L(7;]N*?SnV1'O*,:&?[d4)9n);n-J[5'NpRhI^YSaãU"jOgIZ^il0n<3gqocBOv$Y)DuTZf[I=FwsLMO>^oIdGCd8C%;.Bk%/(KYdVP/N0KãU"T&6D,Dkvq8Z'\:PtBc9vzWAV.R35(NhuTViI;>RaZ(hS[-TpHqUH0g<#n\J'((iãU"1;J+W$]8S51MB5P5cE1OTh4p9DO>58Y^':]wW\ju%Ntg:[f*8>\PQ7_FQSb:o/eãU"fl5-100<^A)a0S27Cg-\+yg^RVU4KI/,LI0Hq/Axk(AsF1qTeKO-1*^eO+H-[fJãU"LGD1MY^:Cqe5s<635*HoxY+rMO76mK,GrqgWEX#(IwY3MZ-aUN69&]IMK&q-ZUQãU"(6':2^\\m&\6O<$7>GaDV1Z_;X(Sapuz=)RIkXQ_hqTEGEiX)Ch5VRX&qKyCr.XãU"G,HWLwT%i?J2m:d$uiq2dfmtI:3mIl]Tr)^f%Zn+m-M.;q18RQ*$xS=km7%nY:8xn+nh0hu_3i1oE/4>l6>XJT2g-w6:)QgZy.F\S07A17FC_d(2qVp];QBnVG$shU2GOSBEhãU"Kr+TYo]*2.jdv$'*CSZ0:tnctDcMB\bLta:DK$9.i-w]#KKAYH__'WhI)q1XREiãU"2'V5B&'P.)YQ)Y&D&P+%3oKKxJrQ0Yu$mij3df(u/t+I;#uu77]nx:fqF+q>9BYãU"CdE/[KE4uL='a9IuhvR77JSRLRE'eSG6K/)\8R*u%(Re)TSiR2J&i(_s*0,di5wãU"$;^^8/&QI,r;6;PhaDAPi$#Cl8RklZwvt?EeQfV.EJSR^kEP\p-gãU"G5gHl8=5-]j_&L%r'*=bN:pW:+1n[m0_KdQi6X-F[/-VD6gp%qYLFEMkq-t>HteãU"pi%%riN/L,mOmo*6(OsVio+ubsfTr0umrV&L(1*7xcH,n7;;FãU"O*(?UgHo/:/q_GUC05S?DoeZC[;]57XD,Wphj<)q+=vixgSEq?GiOdXW?u1xAd(ãU"AG$TPAgpK;S1V#Ro;lU18l,5jr,#KQ3PDoTcOW3=AM\LRua5xdfF]509sIFduusãU"/q6o6kQ:5ma16XUKu27.L2SNgZl%(M<>'*_:\ph9>Vc6'l-$er0MV3K.]:?ri4VãU"3Kn%#b%3gh)2(9Bs'=foGVD#bs=mFXKocLbnFhm_Ao3_g^tTiD&8F-s2UV8)&7\ãU"L=kC2G%(G/]#a639P;gaScnbig_[jPK^p;MqYPkd/v(^V'[Ml.-=>BE;n/2'JIpf?/VU3Q()Q_/:39=+ãU"m1a(>BHE/>rN&lr?bM:_bi[I?')1F%U,vXolWHoiF:H?;W\A$RXg(PW(\/B84iaãU"80R2Fa9$IKhRXuE,KrnFH73'M<5ekw9q+)4Ki6MZ[;V%BbYn>AKre]O+lm7>dx6M5=0]KãU"eiJ7y:XyJEf45i4Fm)%73Bp#oF\02HfVsZGIZF-Oz%tdH&]8HQgZgJ>,Z&h\[PfãU"I*s((_HEX(IIQ.*%H+U7Q$GfZp39tIhqn_5/7LTs8X%]^+E53CObwdWq[&]ucãU"-qVpl#av\'XuFieZD6<[1dgIOqh#^ID8^C=-Lr(Yc9:AK9Fa7ahu+Gc3aOX\fITãU"T*2MTDg/D]AD[r%-F(lf+?UNCQ0t,Ptg#JHum;TOr4d+.huui7f-PZLKdEh_#iHãU"';8qVj>-YLs\YPmWFFYoknqM#5OU(uVlHpF#id:2Zqj(04uqE#l9#tFãU"rDHu=*j&#dl=q
z]Qh\Z&YN)N7S%/:l1+7s*cP\xTLYHd;wYGpbLmm:7^GK[NãU"60]Ue$al#_C.3Cke&1TR^h+tDcB*veU)Kr1?/R3R;>juwhb=Cw%s\k:&1>4LI6,ãU"3q56Fie&.6LZ6=+bwUea^I<'+-8f,FJnW(6Z)]+^t2^NUãU"jeWFM$o-CIQ09(9R&'YwY#rleRFAs4R&tUA&eNIIaGhh]#$P25h,F=U--kiv$'AãU"%ccPCa;fd0BQj+?;\I,M[?i7:(R=QLdt=suL0?4,'.Hopjg&G7uP]l8b0G(ãU"ANQE9#S*:V',X=idQinYr#>OKPueFC;Gh(*Wc0ZLUt]#cch(X3D%k+*+IF2-Q+>ãU"9A8D)BO+&kSlN3FC:fRPh9ne%'?=U#tdcIsUlN+HhVfq7Wx.'uãU"#Ut%Yui=%a'4UM.mLQHpLpml2/$:X2:fRb4*k[++q>6SKl=15xQG*9dJsR*\_85ãU"I98?dqpcC\,V#;=qwLt-1CSZCu5t\\eV[RZd'->9SINm_'&]6&u>_D&+IZxdH'mãU"%KH5t#y-qQ_%+dgJ=ljY#aHj7t;r61$0Ae'UFTOUJMWn9O3']6AeE9fj/-&p5J1ãU"%Iy*2&E:$XF-wX>%>ay*%f$eq]O8]p\bb2Ude4?c?tS49T0dBRk$8C),.&d]Vb*ãU"Y>FYAV&l%GM=m$GW3iOmFnK+O4Y0tw2Xk$m^qhhJJW6*OW(1(9fm1w96XgiP$]XãU"i49?,SB+P$erlS-ãU"8.I;ePP81%.N>[Ox2[IED?8C6q59h'.jKi7MkbR4EuR*w9&1mph*cle(vs-7XvZãU"ZF0SSTShNa%kVoG\si[TXq:KTP/_JHiM^01oR\._#&JfXRFGkNZ\&nYMsW>s0.AãU"pdA&JGtqnqvZop8NE\^=E&0PFe$6^cwuq\Z<:l]u)ERZ]JoOD2;e:dLGãU"2iE.Me)Uf;S?;%f%'w3HP')XMa9WTgdI6OuF*ZNb(L[j-RC^;oh^3g:ca\,qkãU"Mv*)O4?ZkKhh)Cp]1]A8$HiZEWa_[kq.^82ãU"c-r\1=lHu_'V?2m**0M#kaXi\UBQV;DRqMak4c5fZrLPfS+:D*),fd%I*w#)ITuãU"3iLL(PIkm,[LK'HymiNHW)u.gH3BC#W&Q^0w1rkACsjAk&4,E;XAouAt:rU6KhNãU"Re.lwCtSXY\UG2+MãU"$94<_6KUjTqG$rUi>^LvI>dl)ItlstV?,s_9;%:::-#w8=PE*CAo^k<6ãU":Umd#.76n9%B66rLPz?1m7xKKsW+,L3[r?4%FGaI%IMIWmc_APuD>ST2qITs+sJ5OIm&9Z61Os8]^_##=AUmP31bm5A]d?Zcg#LãU"7bcc#5:6b%9D:7#9A;jtS#CBIntYZ3#d$mEgAiON0zZrH6N^%)\_j%4fgIP'$m[ãU"vC;T1C'bGIW/.rl]%C^1%K]o/<./MGeshuYwbMnPIchFdw-bHD1I#cY<*UsX;H*ãU"uXOsmmL4#KMsmp4l=)B:*lFst3O:9&:j0SX-o4,BjYJKgBWz,M:fFgFMgibEl/iãU"MDr86%L,[$>HWQA%xx[;;uu$RZeVVlt7QF\]5cg^i=k+DG8pfe>nG]T*[>7P'nãU"^e'iTMnqaARm(xk_TYZU?qZiazD;HenXBs;cX\c*xC9aVoE:S'1-&(\D3u9-hPMãU"auwqo4$hNYu>bH#'XO/'dg9<)JL_5[wfqU_''oAbhk*vk59v'bw+0TO\e8O=lKIIX(>&hiNt5i9Png-.)UXdZcBk1IIOQsL9R#0Soj\W%(ãU"*G%c&]+[nYkkj.9FX\pBB3VdZ8P#.0&S2BNoDZ5XTN?wY\ti?[nkXJ>QHYB$Ek:ãU"VLc9Im728oFUi\>Qh;JVI,Xrak$TQ=]3tl9=L\'M/91;Lq3GC\K96J<#VZ,#'7ZãU"Ri57?Ud0uI)hf0HZ7Agf>A20#*_Jz0O]/sS7&osMSH,Zk$2^zr#Tgx3G61LQFC#ãU"*LE.$&FBk;ib/fOsmW2odVHam^kd2ZQQeO]56=]Wf6*Rn>2W^kA_KaGUcECL6=\ãU"uXe$fK_I+?H)-]6-?'\EJl^Mk#22DuãU"N0#+/3_QZpn3r7>wj,lpd?urrqBNL6P2)7LFF5iBe\A]D\Ms'TAB3(c+F>QhINdãU"X#&8PW=;X(o,vvLv-y_CnZpcPa5[s,g)EdA.ttF2F&FTlxIwqOmkQ$'1*=>jiPmãU"vtQuUf[Rqq&leeleJ;Bk,B6'H#IZU[=$9T+tl;cL6eL'K6L&krZ[,j83&r)4<%?ãU">C:VfW4S+v114vCJ3l6M^YHU$r[lv6pmcviH]hW1X%KPK/'woãU"Dd.ITN%TvcuG>tdTd>3+H]<7a9]lpUIL,j9?tD:]Ef78Oi>j=l?=k%j)**fq*Tre?\euF(:[>1\FneCD>DFLLsk-&PãU"fFf^c?;quTVNT2^,[2X0op6up[Q.(]gRpl(AtI%R^\\L<__,195\zH'Lnz&ZsB$ãU"W->P%m%]hdSx8#Lg[iy1m4dqY;LOA[Z>5tv-0W'*YNpT.j#[Va6jGJD\\?XZWD(ãU"le*%OEg,Bwp<#W+smk[QPY.Vp'j?EfmHZV\AhQl_%E)]=cfjvB(1L^mde[-%HELP\[5sbAU#p>Pf2YcBnESg1Hse*[9[wKW^wbW,&?WxãU"7.7wa8$jFAf2m[W)8LM,.M\OLJqHGsZS\.krqjk:1mgAGX9W1m0,u=KQdG7F,;2ãU"(s9[CCoi'[L('ARh(_=1s)*fKU2/W,W4a<Bd3:C06tnUWPf9ãU"Qtqr^[cgBt]ZU%raCNHYLE;'[CDY4gih*NwP/qv2DvKb>W5Y8vSd7p;ãU"GJ;(;S9W=](6WGl87WbYNC(fiDO2nN?i/Co5s(s5kSrVjGãU"H#ot(YN14mQ&.<:xc\%nnnpP/pU2e2GQ;J2%,C2;ãU"+;AiTjYd3;cA+EZ#6g16/_1O+I,DAFkfit20^#l,b.%+QEqsRBb1J?DS^026NT=ãEND SUBãSUB V2ãU"RgwcW46<#cLC]1EF=>8?#5[Q3AO1dYr7>wbFTO\?#..a&]41kWir[i\F>9YKBtLpbNbc2\*po-gW*%/&TãU".qUPc8qW5HWQ>tDRSS1[a[,q<)hMa%]=HWwF$Q*B(w,pCPO,zCzJtGbR9#www%CãU"z*xptaB]CHK+wD1z4x1*Z_;f#99;dBA0Xb48\2Gb/.>2X*>>TGT>WdIov)zlb5CãU"vLo>2hFg'ydjO^au>C=n]cS1&mDrbw#&>dJPD.%G$(osJJZk+ciMiiAdJqi%gMbãU"$kgMkimd/bT$;O2p>b.rãU"uRL#oY=X)AcjU>LgKrQqAkdy\$jj(X>J$f\?>qvosUXH?Utj.?->3R$/o-p_lU7ãU"HV_y40$EGi^Bu?%RldtLW]]fZb*O^R.YpKdTxpPSU\l?j\?Wq8D=#sD7pgWT)ãU"uMuB\poh.U\sP1[&Bs<(S1&L\G(Owl,*+\'kWg)0;G=A17zfd[=V&Pd_1Z&g-2)ãU"K;ks)9=soIiysfM.7C1=O0qU%JcW9%6UIQ%W_FN%RP$$+0HDN+)uu%n1I8hb^/:ãU"1gGXoB&7iDT19K#.EB8>h&TZ--5JP[$H*j%\a/zs%kbE4A/7I+2GTF[FS1(%UMIQ&c[_HjMsHãU"2Ix)E#-lm.1D\Y(IG(R^dZ&pgd$C4wF66#1U-Q,5EEg^:uOeR,6$EmZqbd-I.;k^=kulN9S^jX^^kLVbGz2p&t>SãU"7$CED(^XCW8JZ$_n:jm4+7JABLjs;QL6?%l_&EJPwHDDDh,an'Q.[M8T7Moo_l)ãU"+_UL*8_cvPp5yur/u3+M+,%yOwAYA[5X8q/tIXQ)C?+=1CXQFLXVqYZ-wJrXsI(ãU"'QJIy_9CZHD5f]tLUjVqJc32]4T+45Ot6YogVsuZlMrTx8Vx8qTrmm=IN4bg[%iãU"cX80?epHp*WJcPF]R;0H1MS++qF%kbtBp0ik1hM:77dmvU7fQge/4q=KkI,mf#nãU"^pg4\ej\nGtQrl$<*4SRDjXFiBKvGk')KVF;I1h[.:XAf>\0=J5*ãU";FEL]bV)]lW[1$>P#W6]w/geCx5*5usx%yuywn+y9&13adE3sQ>>)8()mn#.t9;ãU"]Ks)qO+]Oqxxbbeo*JF^NGFeAbv-\r][euCGXiqh;IK((f(GR&uHzYCdJw).-'UãU"*uIDnkKj4utXjje24++Amnk*^j>z,RWDqs)eBI%z5X02-#%LHR:L%ac_1-/xgA6ãU".c3:/y'f87TsAC2opjqGQbTmS3O_gKv]elT.H<_9uoL7)Bnu28mg?Ef.rj=YwlvãU"F_uMJXfmv?$=6mw=;(U%BlbqlYg\mHRI$/;qsEes9F$oAgc=CoBu*pe\#+l?^LsãU":AJ:#z/09w4[*Ybo67TZ.-GPk7H^n$A>sU[&-'1ETLmP8j+\'wg115iwTUW/LxbãU"xRmiN+Xc8&h^*Wqdu'^3Krv\J)?zsG/,i,tJ^t$UBD^9.j73M?p9mqo]^-WmnJBãU"DEGdywdJjT>n4Z.N#z:zdK^/(MeIWAb,[EG^LC'-'\Wy.j#\PT^ucjU;/k'x?HhãU"0oa&d?D'st$ceMF6J:*]Ol4?gR/>'6r[w*+a$Pq/WIqãU"D6LbDZKQHG$u-Lup5LxmKWlnKsVbd2jpO;S?/$96oc)KWqTL4aAr1[;dikBi*1$ãU">O),J7WXHUKt_jcp*sb$K^nI=LbHUn,yDrnBD'C&enaJju[(xnuP$HãU"7n:TGGu&v_rs4xnXsd5qZQ>,z0DMmCyaLXdv?wr,<$HmbtM%%'E4BxtorNEhrGZãU"$TMcqd4XDNNpdF2y+;vjg3I#Z=OM,r2D02Ok&e5#kje3-ilg%*/q95Xg;O\X#I$*uDgXJfPZzQu-YãU"5R/.rlUjk9^UdDj.Mk=\uGk+)Kf/eBJ4jWu7h^'LEGbeF5sBoAaEQ?eQ\*6bX_4ãU"iWPc)w\770DO_7Xp]cY*+Ausepi]UlNNF\Qwv>=M+99;ucagb3dzzQISQ$w:#IsãU"ShEF,2Qvi-NChgX<2D6N?Q#QA]ãU"yyN']Uu0kodWddF[a>V%C;Q3SxrtVofU=s0B[(wj/F=$85vH(q9Jkn?l&8z*l51s3u'6,4/rsru%\Y\[0.Zcwwsh13Vbl>C*pEstjH1j?6jR:\h8KkmS\AXfb+lomJkãU"S%v:M;w%VaKJOyMKobkmgq(HfHbV,^4T:Nypz.sg,j_W.Z>w[ycDpD-^\wJ>LJiãU"mZ-6&5H84-_wCn4dmM%zceN]dd&V%yMw:>Z+WokxY7D6ãU"Xa-4VzPedo9cNtJjy[z/a&p7d3+qrz,6)%(yuJ'w&*e,xuCCP_94Mv53G9R$1iVãU"tt,3aLSDB+DYXc>LuifZO\#p76r/rPOd'2rW7r[or50q737i(0v5Llq]hqNkk>zãU"Ot>V>i:(OYE):bC]tCaAjoLK$&UB+J1ARM>g2__Te(>20--[rkhC7ãU"1$&d*fr-grA\\Dd5v#pg#-3.^doSJsJl9Y;8G5ih+(]S9^wtut[^g#K:R.gyc8StIS4SXYN>dcN&bP3ãU"sIz:gJaq5W%k-/%Dl$LqncE-uEME]gI1n2Pxjx2GVpx25BTEYhGoseSpCL=,=[)ãU";W51BQg^.8j3\a6iQX*b6E9K\;jHu]I.QBtUKUS$2B#t>h5,)Dg-wc42%SFJ*LgãU"8KELkA5It=*5--5/sxA*vGvm5wOIuNRSONK+,%_%-vPuIPPPuTLWOuTLPX0Ry*'ãU"J2TRpu$Dcs1SEeLqvTAPi;RãU"KVtxn]ZpiWTt:_z^JC)nwxdOxzNgoHX3Yph_\iãU"oeAud#bbOrg]GOK+o((t:dNw)z,:zdO>IiFj26MBal*TtuK[?,c=]\Pzl6\7suZãU"j.rrGcq9_JSPY6;1e;0VXiKTB78iOYlumt\4GW78/Z7DP<6W7JTa6gM4%u&0+&SãU"-KmG,%B+5_%re8^0Dr.Pk]zt(OMKuORLMP)Po8'&zX(Mywz:V9R,zDxxu&syO.oãU"t.ehdNd7<9r2Kdw?6'G/'./x-&H*wr)>>tZShSmte[qH#\\P2kuuuU%kqsV0)cgãU"v-,SK?9p?&jqJ0C-%FIuDIX;GgMgF#i$dto4C&Y$tTR[\WIMKxx%?LxV\B6OU]]ãU"IPJ)*M4:Z6v0mcQ5Rux^vf(;]+_][-GSo]%hMb2Mi9t+pKzf1rQBtsYtwgmIP\>ãU"+h>efA/aB;R+qHAl$RTcUn5/4Ul>7Lt*1X$[cg/+ua8iHxalmHbk4EsbVBe%+$8ãU"4,4T?pd9'Qm$*:7+#\&2b3T6K9RhAqw04C2DB&>.5q&>XPF#]&\_T_995$L/ZZ4ãU"[222FIrRDi1WD4z2r9rq/va*opDJF5OfpQgFRaTND8XfãU"mYt.>;h=mPY&_]yTS_4:%/wãU"wv>w;x:pY,6VRIf6dVdv3#',^bWKQDYueNm[kEbF*8pNX*J,4*CS:5.5(7GxhdTãU"hyA:l7xu.u3o[<[lRz.X474-%4NzK_&o(Q>Jv4LuXW8NmwxROQLT,P*;**6Z/3/ãU"zYv6.uCopu$CdSY'Jyf,-1zx[paht)keNe?)l46hBlb\VI>OT)C',APV]]*%R\OãU"PXXh<*(qjeutoquOX(5NHad[mTUX#ZMYEt$wG>'PTHvO[CK?Ug;7(T0SEuDm_[N,Hf\Q8IUlj6DDYgZiUsXkkSdqiu7WugG'/h]eãU"e?C+d),1F(Dl+l,_dshKUU%ItKZSUOOa$W*\DWl8.=t$kSJV/pM]M)dwZ,2*TRUF/f9zOd$S,Oq7)cdV9Z,BMY:*)_)jyK.7:T8'YLPyKMãU"yztW>TJE/%c-&cIxFk]tAb)5:TUZ0Dm2fTH,0+d;R2F]gRy7-J_e[dxUNoA[TL^ãU"l^LfPbgm'^PCskTUP%,X8'Om[WI;X]K6,]m[Y[Z0r/RAg7fp((\RGW+'lE3NPcrãU"ac8C?o0BATycDwc:ds:k%MfMGT+l3*x.?.25yVuwOo5Kd8PdTR>%u(LMBulKK+4ãU"PN\2_dhVJTr^aiMxar7^v#slM\]Q'YwgjXh(4F([zjeRT#E.ZRleORT#waSBj2TãU"39gso[=[oGC]w6RHch/d5aQFk:=wlivixl*cDKiSsVE6^tWtF3y\celOPJdEFA\ãU"kx*q,pE>9M>W%jNj9MWaT4.U9dYmLaAB[bM/c^bUAE?G;rvEDE33ut(7?ãU"PopK1*YIIW*U[J\e7cF_$mx8#a-qVbs*JpdN2Zoa)1uBdjppxO,=Qm_Bw.ok#B6ãU"$w8Aho<17lvwnyyY7'5U\90wN1n]ZotcmW45g#i$&#n>z5F(eIrtJ4ãU"IJix6^k_4^4(8b8W$hL#c3eOPHdiV^9cu$dU-x'[(rfP%+a#HCUBdQsqORi(oq/ãU"#f&kV0)MD7Q[FLbGCr<.p7?ntJc-s7E*O8%gHz?ZRD.o8gA\KN=6\^.Z1:3-%CiãU"to>b\Q40='[jX<1-EsJ25jF0(U(CXXM5K&AG2_Iob]tq9rh\0WWv?=vZ\ZwwOh-ãU"P=6[K^GMI>OakDqSj%^p$L.\4QT%E]Q_InK:;Zdc8Cu28/6K5qhjn,uJStD$SVYãU"*0T)qzd>>)At?:-i.Pbiv&>XW8N^)2*tsmlOMDnc?Fpat9oX33L*&97lp)HtbkcãU"TR$#djgTMB01JbUb4GK32PlpNG5C\)zM8cldMtdlb>>?N,dbzDP7DoUAJ;SgnZ0ãU")+DnC4ugN8NG'I7:d_nkwMwW<.8mb3tH*pcYd7WjtFhXhãU">:?4yqpya7tG^cN$WAZC[^>yUo;'MVMaKD:WXt'=&\YPHsVMPMU3aNeGDMZiCf&ãU"VvpqloNI1?fqZV'eIgCTdr;B/6xCKKV)YZXTNmC[k,7.18z'e?5#Duu&,*MA5rWãU"H*RPkMMFmV\[Fal.M.7t#x:v34fI$gYiYCuC?swpPFJnr6D*037)%M8&OCPsS0pãU"ok,4Hp2InuyO'P-+;))LyZXSM#0$kNzn-7sP'-$aYpWz)^NkdzfgY(piE&7JfloãU"UGiZaB6*
-krR/+hMQ\R.Y)D.j]0T:seaOVJY*,leQ/GtFb>0Js(,Ujj.LO>bãU"35lj9%kRpu#UHPvu)+hoR\4(,KOesxue8PVJ-z))rPB\?]&$4hY.bd:5SmVi%ddãU"\$%bJcF[KlwTQOW*ia5_X18FvUQRlq53jj'9VRKãU"9n2poX0qJ9Q+Z\&F6JarUEN>s5vJglV5Bx0JX5aGMq0BL8$xx\x>^>5HR(n5#B#ãU"nMX#x8M7,1u7$,HM#JJPZp/wC_qyA2%%UTL#*kHKaRK)6kZe-ESeSM)o:tZ=v/nãU"*U*1LrhB/OSu0jjpO-qgcq=HIY5nmUãU"0g5i8=+fV,K>u'A)%Ew-$rd--=j9:QF-tW4/-v#K/QxKk2-MEY>uV[XaW,wkEksãU"7d05=(9/)VgxnY.<5(TaoLja7tb&h8l39ekH-[('I4W>S),+?oãU"Z'/,X<\^2pk^I#k>uc(/6T'gj+^e8iFWiHgar>u7;ltr^HL,ãU"k6%sBdgl_4M^9K*,V30P$lR1A)hOl/4B0w'/WYffboKd2n]iu'SX&VHdB(\H_#^ãU"41]HMjZHRQ2lf/n_(JZ5X.&&vCZãU"ok;#&\KecFi7RsC[k1i2AYSZif_=JYql:8qWq&8KZxs4>>l?6zD-jeg;QA/,JaB.l<8/8.W^$1qoxQ0-koBognãU"HGg*6)uV1x4zkw':s-N;b,uU?rvOQ>??8ãU"0J8'e'1vKV_/h:g*/bCM%KnXW]&CTj4ts*fa:Va,,#mI&h19&1W.HUJbF$q;9neãU"TwlM^nL]O0vdzl6vwg?A>f%/H;SLLWE;ffi7iuGRnN-F8rYBL+l#Na3->Yl>hYTãU"(*oUmFjxl5A(51X5x%aO7JKfn)t+6kSAflRSdLiãU"eZ4v+^sj1A.60661.R^z>01#;nRL#q&R(ST)f..A3#$,5PV-:[JpneSvoKKJ1csãU"O-aB7t_qbs'Kv-=>,$R&s_&EAN,DW-U69YuWPP'NXe_i2dJo=dIdMLCIzYF5CnOãU"m1g11LtNIfU:[wVsbk8aulw$nvrPNu\ll8LoTt#8KHp[^piZQgãU"D;ma>+x?,k9a6HLL.yyyJW?NTr(Y4,&+e$_Hr--h4+&\7,LG8Q<-?sXLxmIA>Q:hF=+YL%8?Sl2^;(klI1i>YjR.HKe%+/N?GiSe%d>]LoN=#=b1[uQ[1CPwe0ts+cQpGTztf'vkif:fãU"HdHtR6ZQPTJPs&dXbQj0:PZ\OYTIxuF>WJoMTVDwRe>+'>V#E,(X$%>X(K]qYE0f^1md6'tbCu%th6m]Sl:2MacphCãU"mmZ-bmVr9iD&CToTH50RYzLV*1Fhv53^ndyCtgAVjI=;gbdeH'#N[f;GtFq5;F<ãU"ZvS2dG)nMobw(d//B<dL7w?vc%Qc2_E>X][x[I8z*aCe(nptc4ZbX._^[\s:Rw/C\lU6+ãU"dHRI\E7nVRD%:0?Gv0nY.4srGOZPrãU"JI1+IiA.BrLEfQ2ushV3?A&Ret;uC(dU\w=w)>V,c3z6h.5pJJUi-)2q+apE]X+ãU"U>p+?T/v_(jdLOq[1gcg>j=I1$Co:>lSHUF-(*.C/TY^CSj-c,c1uPqQNKFnUjKãU"qX#RC>x_-:h&v#2c^h:3XX'QQk#1Y%puQntT7kPA&S3mOD7A8p=[RDIFkuN^m*ãU"s[9MaSs(3/4>>ZQxB-VV=A&%z:x#Z2z.T%E.PtERT^15sL$C_g7TfGq#$t]&T=.ãU"]jhlK)xhRBD.7lJM1s%ra8nn%o,j>WW0_KS//OL$wMA-58q17PJSXWoiR4X7hYxK,hRv:f?chcbNf'8F,./QfF_1conAfãU"*^UC]kFkGhb8)n:E6rCs4&mvKrCPcd1PpAPNGV?iPI-'9E;r[;lZQd6G?:T=pL%ãU"%u%;;l7+$/O(O[\ulAi&_E.c*#]HmC>84z_P:*v=kJ>1)--6C*+NHr9T2nm7m)>ãU"F>B32&.eM?U7Xgo)rr_gxcNYH8idc9l86lhwoH9EYFdtdDulDND3bnMQ7nZ>%pMãU"6pSLZtiD...AEpgAlS71U#8Uh;sl2PNO3+&b^o5l4Bt,slcgdD=Sk;;T_2_nBW\ãU"'qp4\.q.8N9.'iZri(br4D[\^kOJ:u;MzFzNCQ$1z8vrK5EwDzz4$4_42h?MS.vãU"I#[=bmwj?((3M?bB]9Aa<'RLSp9ZBbP(CBdLjpID/crkhuQ4CwZ5-aON+Su8O\RãU"HXjy590XkH?$EKK5E9=7QP=XbhcYZ[(4ydC?1XqDGWom++Hqo*J,\mk+ãU"MG6tgtLEO5krZN2iH2(m?.R>*^;([mAj*KL.P/*:(7Al,]neS;DQqNf+Qs6rF\1ãU"XjCfsSYt62ru,,8peGdq.tzpMR)PPx(VLO/XCJ)z#6ww1yOCqMBu,,=cA34kVd=ãU"doxYRJF%/$jQa)Q1TNF>TX&8H/Zt&oyf[U'\,W]hfG<_edpb\QS#?Xs]bFRxiLVãEND SUBãSUB V3ãU"4D%_'Ot\-V'dJSBP3sa7D93m/^*&uE^zg,K%+B+7PF>=((tq55i>oR&$Kh]IGujãU"YK-cBlDP%crNZ7HYFE(7T8Y*k)A$FhE7=hUGxqnlrU]ujp8ct[/bc:?HD,pady1ãU"(Y0J%0zANJ\Bl^D9PopG&^lB8]bEflSd#eoU2nXyYgRDFUoO=?^E+>T,X/clkD6vsMNepãU">K4hmf3bMp_?:T13KR5c'[intqyab1$]fhE.=CL#JvHLWE^CfU/A*wJ(rãU"3\&[-ev#Bt,:FqVj^KuVKJ?$d2H^)nw(#MsYpQT_ubPF'OwhM1]deUIbWggzsm7ãU"ZoSpH;h'5-jOkh,JusUK,:;h5auLf;Qq8_N\NDgIl*vbp)5GAsQs_c6\ub$tB2JãU"dW\]rrHgQy9h;2^k?F]2Ia*[V]Y()%N)XBa5P&O_aYnSC)5b&rHm[L6)Ql(vo$&ãU"mb('JBpB*/Fdsi'$eUdC\K2,ZmdãU"K0;K]t:qctUl6&Alf>;mx:9x$.0IC1D8y&;[*no>8E'IJgIJP=Cq3x0.0+*A=nvãU"/HWMI$0%4hqX_*)/Dj>gkGy;Aq5yX=.kVQ(L$21>=2p/fQ/Zpbdk:'#Laqm,.#AãU"ivm#x)3[$D4uGN+[g*EcTc>,nAj$tx+T8t2iFIew4.C=O#bbXJ*(MNoNU1d,dLSãU"1qC\2I3orts&,F&<()1[4;OR=%re0C\;?B%1)o%i)9Y?TQVP=Q_^\NwJ0o#nSfl3YRp4+_cBGpX2bY*ãU"H(hKt_]F^70-DXN/.W]Cy>-rgg5+C5hdrbH[]\4Xsu7gQ$'Idq#FE1-YeN=]:#nãU"O4ZclXG-K,F.,E*Ix+Gq1Z4pO^QUe[bK'%Lp1$E.,mm\Qt^h-gHX+Oo'Tqudue0ãU"#dzS1\:U$Q:6n-\b,(AnFxBdWJq=Aj[kmU:Pb(o(%'[U3T=_]]d;M9)^xj$9,q(ãU":8JiO-iC?i?j[#eb$$7t)4i7$,E>%JMghh-T;]6%2,ZEmEkZv1a&Sc9]sGPuQNaãU"P-(>_TI^SANTQI>M?Mnn^bAa40j.0&Cti;Ypj1H)sJ6g>?RkZQA>K.ap869J%BCãU"ScC-sEt>ofDsZO*?7a[P[EiCQw^9vnw\qc,HRzv[\B,J[-3&,sXNZmU0D/=SMaSãU"1%kLbQ1%=IAW5U7rUzaG.xM&;ryAiLMp'BsU(^owJ&Ib,kY=+*1*2P&m8(2H%%gãU"2V])UIZF-JMi<)VOOsdf98,V6BT*Xu\xO5kfXldv7p)xi?:Hote3?%gkN,5Hbh0ãU"e2H8uehf8ijpNCGVqlfq-P[^SLP6j(EAamv++eI(*jdrC1TpT1k6Owd7%ãU"THH0:v,)dp0j1)N1qcu2*7^x-A=Y'jv8C&1?i#\Z#8Oq:wQg:)a:-rY7>JWEXU;ãU"v5u')_\7:-7+amUw69+\z#A(9RLM--N$r4?CgSmzs=-12b(XhKKjMwKqbHetf%-ãU"9,el^7Zd.A&c->KJ14W&ZZ[qg1E1/,YnwWwr[m53u*bDOog+]a\#U?>'ãU"26_GFnSJh^2$P%PS=5[&A%vNqXSmj:#Ffj7.ZUJUp3*S>Fc^U*e%=[0T-vXU-uTãU"efJI2W+Gy,z*dl%Bo_4uKgRqe\1Mv1h=qW(.[Lz#2j(Lqpfb?C8[PNioWãU"4H6,yRuFN[F#dh;>$teELj1-&a-ZDPWGu%'],#):GBScQ0,f-=6]F8OIg[hjr&7ãU"Kj/t*AZV-0(dYUc=Xjj.78C7d<=NpC/:,J'BI[el-'He%2W8OV^5ZvgcRC%FMAnãU"35s.V9'2Pf35S2GdZ'9Mu]R8xi(L]Gx:I7mIIa,A8rdVNi;EmVOG#=xb[5'GmFYãU"VdE((3zMn<;;f7P(&I,c9a4SYr:lRkgvp^8+t6#%G6\E>E[ssU1?3?Ss:u%KUI#ãU"*O_K+*,%1dTdHN=$Q/n:&XQtoK_P?3s6rLvqnGUQx[^M%vcwRX.U&tqn&Y*;%#IãU"hs+e/YOSZ;NY6a'IZ:cFK[59/0(2Go*V-Dt\ad9b?CfWb5&6Ut?lepR*V?>Ps2JãU"R#(kC?DvM[ihCkx>ctY[H*wxK/o:9QGxVtR$enb_qXpw\dH=7d+%]6]_FPVYSDRãU"ecqTqkHfO+AStMUS:VeZ)vX+mf/(DOP:/IP&k-2Y.#*CTt$pdv1_i*(-po=AD4mãU"]ZQuuM\w%C$&x[qFqPrmOIug%C<[%B&8u*BAO,28)%3;Jwv75d/r't#-,__n*;]ãU"/g0CQiT+BuCa7/&]S):.0_:;'l\V9Vs*lZvB8:gE\Np2-kf_X^Fk#F2,c5i>h86ãU"LuQutt$.?vvLHcQX$i0VZ=Y%&Mj1PEiB]1,oHet/&?H)'7pAA7HybkQl.ãU"R0fR;%pIQ+;Z<$smtIW'i(b-6'_n#S/4t8*1?84gC/vH?9#&]X;F%3tO0Q&w&X1ãU":H*a)cAeBFF;Op;KoR56W1D4b'ozãU"$MoPcw5gt&G+pl3dtl)ZFP3V.1%Si8IH>Q?;T+dERi8YeX6.Mn'QNVXmQpT/lcSãU"FuqQdMhZ5bãU"rWo]k;'Ze).hpRmWZ4sJT#]zRt&'\CxH+\0h*(w(UoDWVnZ5uZSHXAtvnS.84EgãU"]AO#Wz/MbS_Jt.6DRDU(1(1=y]gL>G1+CIaM[O=GjGQIu=I9$S/)bT4EDoS6^WJãU"TIX>a2R,pQ?v>a<,zGd3kV[df;G/o-%x$,Kq.\WQT*)i=(BPFNfQDO_L:dO6#)qãU"PZ$Xc_w(=M*3eMSQrlrox]V-T68GgvãU"d]qx>U4T(T;T-EWo.VK?Z$9\[[Y'6-0Ylz%DUU%/L#g.RiqRCId_^loGgZa9Bw5ãU"9P08Sk$d=CWK%#y>*+X:8k2XJ6gjnLE]Cqiv;w3kP>.'AEdM%yqU8bLoTe&?slpãU"ZhIZilg-p*n;HL8O.F4x),(/)LoVH;0%cj1;*i'gI\%Fru.^K#E''k7od#-JX/fãU"B?EECC;HiAufVgk=Z5a:#M4ip10dyzCwq%C]jpnWK&n?piR2ptfgl/$N9SnN'p7ãU"d2b/1%-9TUoJ']$f$M'lOq=_=fyrZF)QJKttY$6uUmge7,$%)h3SgZ>7,BEUVT9ãU",P7YtB?cIJbDa/(LcF7)WYnUi=&$u+FZu+2U\gzL/.gL>1&_.e]ZL)YT=UZ6^J.tq_\ka?&]BXG,OWãU"AAqp\)WdJZugn$%EFf\\GIhM&TU1u\0E5ScXIBZyKi$>NvfmP\Z_ESV(p:x>/yeãU"%N])u;(A*^?&AV>WZ$psCZfIU0-q?ia1'Lly\z8Bk2cwãU"B20_356bg'[)ARDi)[ZgmZ.GfcMXo)AF5*%:h?WkkrlPN,K4sBf/&(sa<$4yOp9ãU"F#vnR*d.J\TNNcqVG$i70NvaGVX-L.(DKH+%a^'jHf/$Ib:lR(JTU%2hOpS1OvJãU"I]R&AIDYYk(PxPwORNd]_eerxf,*3+TgvH%QlE?H1M]+zIfl>zBn%TLZ=lqK:YKãU"c.hhWVn8\:?u3>S9$&+UK33UM15>F&T$'%vaYL$7W&AKvpCj<\3?x1k/F)ãU"MXoY-m5=L.V'FudWo]8N#ãU"2Do6P.mT8l4U1^4\_e%nCHItCCu#PE)KF)e*.VJ)0NCe-[y%[LrviCF+s:/5gBvZ,'5&UU:e6DxlM7ãU"mZR(CqnHLYMn.),'1)ET&sIqZs1Pj&n,gGKW7;1DmV?qMJ\bIqGN?FZZ#CZOfDeãU"CMOsUr%V\3O8SFDGW1MdVqv-B-x>Qnn5fi&o][4NJQVm$3/%8^r&m'60b2dQ%eCãU"V/Uiab(mh3Renj'U#fB3TGek'OOad0pIm]zp-\UIfad?I/PKXx-C_IX\\,JPN5;JVg*)&OKZãU"N]R6wGga6\VCB\0U*.*dR]w%#PH=e.WQ#h7'Z0R(Nh#Hxj&lsB^;OfV+yq^_+RvWDHLRfqjZ7J#&]cc7>bLG[Jm$I_9v_='MY#dSJK[;1iãU"FxRP(eE-Q%B_Z5lwR&\r[$u9;3TgEst4^(a;#.]7T*9<9p3$O9o4_K9;ZhSc=9kãU"h^/bRNLv#5gB;&B6j$34G:O#i2It.?j/XWfY%q(0dj>nqVEu4lnRL)&jjm1U-O49/%PãU"Qm1KC8$w8s-OMc\MqxQf?0%4M>xE[fLWw&nu5ObO\d0*;aFQ;O;7X$ZYlOLn2k4ãU"%jbe-^E%jm/C;])o=XLMCCHA.Ptc62.6VUQ,\G2cFPe:o6bllQj\cf$Zts3tKMPãU"UF^V)cH4-_WP29LILU'.3d0Uc6lU\PTw4cm_%mTNVW=)[y(Zi2FeCH;o;]f+ZA;ãU">eCAyfP5-]43*t4UNng6VhUO$t]I^-*0C(pi0+w:E(%K3ZsW_;n-$sE6_Nr[=tVãU"$Te+ar/YjX4P,JQc)-vF)ta-s5mc-mb]ukIj&q>xecE4Qy)%pre20De&S>=cNQdãU"dBKW<6:c;p:K:vscda4a*mGe$ZoQ;/zm?-AI4fVFX^BN3dZk,Jm6%T\m]^i7^QLãU"yL\B;+K(WV6KG$Ju=Ph1H/J\+-2)J'B&QF%sjXM]>%?exmJzQk/[x(BmeS_/_1fãU"Em2U?KMIhUcEu&(<4PYBQiHg7V6hq]NAVu4w+^YeJl%(W%C[DVo\Z87%&Y7G6a%ãU"0asTX[yDf:_&y,djZO3'K*nv2ZB#g[.i2X?rngFELN,iZ=_uQWndf22AD5cJKhWãU"#_Yp_4C(]J\Iuq?U?iknQwF5-?Q(Q3q$hPJ'kZ)W;[*9'b:Je11Y.e2nN52E+iAãU"ajL&Urgb*e0(EX/bF*B>+L4A^byvw7Wc3mPOgk[hbZA6m>WTyZJ&<^W,J]cv9FvS3fh0tRHPJkLHBa*G7.guB8ãU"+CJh6*.TrdRkP&H.<+M#p\>\,dQN8-KL\\K:yO-jAElF7^in^DFcm*hbPa3-$-mãU"TBR$F-q5th442#CUCOsjfbgRu%4p9MdOT%90:\)W^JW$=WOcY48a/HXX#VReb]dãU"b9#rVPC'LEb4CPq:qWUr14tGt,-XBGe0AyG9>/al7,6Gi6D#qWC^XLWh68Glx<.ãU"xQ_?>NcptdwlbHnxin>NxTt5I\.aS7H$49rxGKVNv2tgXtS_y+^X;=>tJA>eX5+4bf_Ihf=-DRoComS#=/wfãU"\OtH_^^G3bX>[,OcNJx//uN2lyoS<$g]G]fS:O/g%Odwt)pV#7V9GpDkg4W9H6s5e'4yn;_(\HjQ$Rm^DaãU"t9uH=HA$H[T9l(lD[tChP7h5K=-^zU'Eoa3?uLD'2>VJ\r9YL.7)t.&(Ok&dzn<ãU"x>v\%up&'%9%9%%%%-%)hY9H;_cA(02%%+,s%%%/%%%%%%%%%%%E%.%ãU"%$)%%%xr%kfij%Sify%up*+%%%%%%'%'%&?%%%*=6%%%%%ãEND SUBãV2ãV3ãCLOSE:IF S=86AND 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ãPetter Holmberg CROSS-FADING DEMONSTRATION petter.holmberg@usa.net 08-22-97 (17:10) QB, QBasic, PDS 286 8276 CROZFADE.BAS' A crossfading demonstration by Petter Holmberg, -97:ããTYPE PalTypeã red AS INTEGERã green AS INTEGERã blue AS INTEGERãEND TYPEããDECLARE SUB BuildPic1 ()ãDECLARE SUB BuildPic2 ()ãDECLARE SUB BuildEffect ()ãDECLARE SUB PalMorph ()ãDECLARE SUB Crossfade ()ããDIM SHARED picmem%(32001)ãDIM SHARED palmem(0 TO 255) AS PalTypeããDIM SHARED colormem%(255, 1)ãDIM SHARED morphpic%(32001)ãDIM SHARED morphfrompal(0 TO 255) AS PalTypeãDIM SHARED morphtopal(0 TO 255) AS PalTypeããFOR memfill% = 0 TO 255ã FOR fillarray% = 0 TO 1ã colormem%(memfill%, fillarray%) = 256ã NEXT fillarray%ãNEXT memfill%ãã' --- Print start text:ããCLSãSCREEN 0ãWIDTH 80, 25ããPRINT "A crossfading demonstration by Petter Holmberg, -97:"ãPRINTãPRINT "Crossfading, or palette morphing, is a cool graphical effect mostly used in"ãPRINT "television as a method to switch between two pictures. On the screen you can"ãPRINT "watch how the present picture slowly fades away, while at the same time a new"ãPRINT "picture emerges and become more and more prominent. Finally, the first picture"ãPRINT "has completely disappeared and been replaced by the new picture."ãPRINTãPRINT "This effect can also be used in computer programs, and it's a really cool way"ãPRINT "to switch between pictures. The good thing with crossfading is that it only"ãPRINT "requires a gradient change between two palettes. No pixels need to be read or"ãPRINT "written during the effect. However, a picture containing information about both"ãPRINT "the pictures in the crossfade and two palettes, one making this picture look"ãPRINT "like the first picture in the crossfade, and the other one making it look like"ãPRINT "the second one must be calculated."ãPRINT "This program shows two pictures, builds the crossfading picture and palettes"ãPRINT "and then cycles between them until a key is pressed."ãPRINTãPRINT "If you want to, you may replace the simple pictures used in this demo with some"ãPRINT "other pictures and save the crossfading picture and palettes for use in your own"ãPRINT "programs, as long as you credit me in your code. Also note that I don't take any"ãPRINT "responsibility for any kind of damage due to the use of this program."ãPRINT "Petter Holmberg, -97"ããDO: LOOP WHILE INKEY$ = ""ããSCREEN 13ãã' --- Display and save the first picture:ããBuildPic1ããLOCATE 1, 1ãPRINT " Press any key to show picture 2... ";ãDO: LOOP WHILE INKEY$ = ""ãCLSãã' --- Display the second picture:ããBuildPic2ããLOCATE 1, 1ãPRINT " Press any key to build the effect... ";ãLOCATE 25, 1ãPRINT " (This will take a few seconds) ";ãDO: LOOP WHILE INKEY$ = ""ãLOCATE 1, 1ãPRINT " ";ãLOCATE 25, 1ãPRINT " ";ãã' --- Create the crossfading effect:ããBuildEffectããCLSãLOCATE 1, 1ãPRINT " Completed. Now press any key to look ";ãPRINT " at the crossfading effect... ";ãDO: LOOP WHILE INKEY$ = ""ãCLSãã' --- Do the crossfading:ããDOã Crossfadeã FOR swappalettes% = 0 TO 255ã SWAP morphfrompal(swappalettes%), morphtopal(swappalettes%)ã NEXT swappalettes%ãLOOP WHILE INKEY$ = ""ãã' --- End the program:ããSCREEN 0ãWIDTH 80, 25ããPRINT "That's all for now..."ãPRINT "Petter Holmberg, -97"ããSUB BuildEffectãã' This SUB builds the crossfade picture and palettes.ãã' --- Memory locations for the three pictures:ããpic1seg& = VARSEG(picmem%(2))ãpic1ofs& = 4ãpic2seg& = &HA000ãpic2ofs& = 0ãdestseg& = VARSEG(morphpic%(2))ãdestofs& = 4ãã' --- Set value for first color index to be used in the crossfading picture:ããdestcolor% = 1ãã' --- Create the picture and palettes:ããFOR buildpic& = 0 TO 64000ãã DEF SEG = pic1seg&ã pic1pixel% = PEEK(pic1ofs&)ã DEF SEG = pic2seg&ã pic2pixel% = PEEK(pic2ofs&)ãã oldpixel% = 0ãã FOR scanpixels% = 0 TO destcolor%ã IF colormem%(scanpixels%, 0) = pic1pixel% AND colormem%(scanpixels%, 1) = pic2pixel% THENã oldpixel% = 1ã DEF SEG = destseg&ã POKE destofs&, scanpixels%ã EXIT FORã END IFã NEXT scanpixels%ãã IF oldpixel% = 0 THENã IF destcolor% = 255 THENã BEEPã SCREEN 0ã WIDTH 80, 25ã PRINT "Sorry, the pictures are too complex for the crossfading effect. Reduce the color"ã PRINT "depth or picture detail and try again."ã ENDã END IFã colormem%(destcolor%, 0) = pic1pixel%ã colormem%(destcolor%, 1) = pic2pixel%ã DEF SEG = destseg&ã POKE destofs&, destcolor%ã morphfrompal(destcolor%).red = palmem(pic1pixel%).redã morphfrompal(destcolor%).green = palmem(pic1pixel%).greenã morphfrompal(destcolor%).blue = palmem(pic1pixel%).blueã OUT &H3C7, pic2pixel%ã morphtopal(destcolor%).red = INP(&H3C9)ã morphtopal(destcolor%).green = INP(&H3C9)ã morphtopal(destcolor%).blue = INP(&H3C9)ã destcolor% = destcolor% + 1ã END IFãã pic1ofs& = pic1ofs& + 1ã pic2ofs& = pic2ofs& + 1ã destofs& = destofs& + 1ããNEXT buildpic&ããDEF SEGããmorphpic%(0) = 2560ãmorphpic%(1) = 200ããEND SUBããSUB BuildPic1ãã' This SUB initializes and saves the first picture and its palette.ãã' --- Draw sample picture:ããCIRCLE (159, 99), 100, 15ãPAINT (159, 99), 32, 15ããLOCATE 13, 15ãPRINT "Crossfading!"ãã' --- Save the first picture and its palette:ããGET (0, 0)-(319, 199), picmem%ããFOR readpal% = 0 TO 255ã OUT &H3C7, readpal%ã palmem(readpal%).red = INP(&H3C9)ã palmem(readpal%).green = INP(&H3C9)ã palmem(readpal%).blue = INP(&H3C9)ãNEXT readpal%ããEND SUBããSUB BuildPic2ãã' This SUB initializes the second picture and its palette.ãã' --- Draw sample picture:ããLINE (55, 13)-(263, 185), , BãPAINT (159, 99), 40, 15ããLOCATE 12, 10ãPRINT "A cool effect coded by"ãLOCATE 13, 11ãPRINT "Petter Holmberg, -97"ãLOCATE 14, 10ãPRINT "petter.holmberg@usa.net"ããEND SUBããSUB Crossfadeãã' This SUB crossfades between the two sample pictures.ãã' --- Set the first palette and display the crossfading picture:ããOUT &H3C8, 0ãFOR setpal% = 0 TO 255ã OUT &H3C9, morphfrompal(setpal%).redã OUT &H3C9, morphfrompal(setpal%).greenã OUT &H3C9, morphfrompal(setpal%).blueãNEXT setpal%ããPUT (0, 0), morphpic%, PSETãã' --- Save the palette for use in the crossfading code:ããOUT &H3C7, 0ãFOR getpal% = 0 TO 255ã palmem(getpal%).red = INP(&H3C9)ã palmem(getpal%).green = INP(&H3C9)ã palmem(getpal%).blue = INP(&H3C9)ãNEXT getpal%ãã' --- Crossfading code:ããFOR morphpal% = 0 TO 63ã FOR morphscan% = 0 TO 255ã IF palmem(morphscan%).red < morphtopal(morphscan%).red THENã IF 63 - morphtopal(morphscan%).red < morphpal% AND palmem(morphscan%).red < morphtopal(morphscan%).red THEN palmem(morphscan%).red = palmem(morphscan%).red + 1ã ELSEã IF 63 - morphtopal(morphscan%).red > morphpal% AND palmem(morphscan%).red > morphtopal(morphscan%).red THEN palmem(morphscan%).red = palmem(morphscan%).red - 1ã END IFã IF palmem(morphscan%).green < morphtopal(morphscan%).green THENã IF 63 - morphtopal(morphscan%).green < morphpal% AND palmem(morphscan%).green < morphtopal(morphscan%).green THEN palmem(morphscan%).green = palmem(morphscan%).green + 1ã ELSEã IF 63 - morphtopal(morphscan%).green > morphpal% AND palmem(morphscan%).green > morphtopal(morphscan%).green THEN palmem(morphscan%).green = palmem(morphscan%).green - 1ã END IFã IF palmem(morphscan%).blue < morphtopal(morphscan%).blue THENã IF 63 - morphtopal(morphscan%).blue < morphpal% AND palmem(morphscan%).blue < morphtopal(morphscan%).blue THEN palmem(morphscan%).blue = palmem(morphscan%).blue + 1ã ELSEã IF 63 - morphtopal(morphscan%).blue > morphpal% AND palmem(morphscan%).blue > morphtopal(morphscan%).blue THEN palmem(morphscan%).blue = palmem(morphscan%).blue - 1ã END IFã NEXT morphscan%ãã WAIT (&H3DA), 8 ' Wait for a screen update.ã WAIT (&H3DA), 8, 8 ' Wait for the vertical retrace.ãã OUT &H3C8, 0ã FOR setpal% = 0 TO 255ã OUT &H3C9, palmem(setpal%).redã OUT &H3C9, palmem(setpal%).greenã OUT &H3C9, palmem(setpal%).blueã NEXT setpal%ãNEXT morphpal%ããEND SUBãMoritz Muehlenhoff ROUTINE TO DRAW PENTAGONS UMuehlenhoff@t-online.de 08-27-97 (14:34) QB, QBasic, PDS 20 784 PENTA.BAS DECLARE SUB Pent (x%, y%, size, farbe%)ãã' Pent by Moritz Muehlenhoffã' Can be used in any graphic modeããSCREEN 13ãCLSããPent 60, 80, 3, 4ãPent 240, 80, 3, 4ãPent 150, 90, 2, 12ã ããSUB Pent (x%, y%, size, farbe%)ã LINE (CINT(x% - (size * 19)), CINT(y% - (size * 4)))-(CINT(x% + (size * 19)), CINT(y% - (size * 4))), farbe%ã LINE (CINT(x% + (size * 19)), CINT(y% - (size * 4)))-(CINT(x% - (size * 13)), CINT(y% + (size * 17))), farbe%ã LINE (CINT(x% - (size * 13)), CINT(y% + (size * 17)))-(CINT(x%), CINT(y% - (size * 15))), farbe%ã LINE (CINT(x%), CINT(y% - (size * 15)))-(CINT(x%) + (size * 15), CINT(y% + (size * 17))), farbe%ã LINE (CINT(x%) + (size * 15), CINT(y% + (size * 17)))-(CINT(x%) - (size * 19), CINT(y% - (size * 4))), farbe%ãEND SUBãJoshua Dickerson 3D MODELING comp.lang.basic.misc 06-29-97 (22:30) QB, QBasic, PDS 271 8700 3DMODEL.BAS 'From: iowrath@aol.com (IO Wrath)ã'Newsgroups: comp.lang.basic.miscã'Subject: 3Dmodel.BASã'Date: 29 Jun 1997 22:30:46 GMTããDEFINT A-ZããDECLARE SUB SetPal ()ãDECLARE SUB Tri (i%, c%)ãDECLARE SUB QwkSort (l%, R%)ãDECLARE SUB MainLoop ()ãDECLARE SUB DrawObject ()ãã'A simple example of 3D graphics by Joshua Dickerson (C) SEPTEMBER 1996ã ãDIM SHARED rX!, ry!, rZ!, tx, ty, tZ, nPts, nPlãREAD nPts, nPlãDIM SHARED World(nPts, 2), Plane(nPl, 2), Index(nPl), mp!(nPl), pX(nPts)ãDIM SHARED pY(nPts), Z!(nPts), Dst, frameããFOR i = 0 TO nPtsã FOR j = 0 TO 2ã READ World(i, j)ã NEXTãNEXTããFOR i = 0 TO nPlã FOR j = 0 TO 2ã READ Plane(i, j)ã NEXTãNEXTããDst = 1100ãtZ = -1270ããty = -70ãtx = 90ãrZ! = 2.8ããSCREEN 9ãi = INP(&H3DA)ãFOR i = 0 TO 15ã OUT &H3C0, iã OUT &H3C0, iãNEXTãOUT &H3C0, 32ããSetPalããMainLoopãENDãã'DATA 16,17ã'DATA 0,0,-100, 15,0,-20, -15,0,-20, 0,-5,0, -15,0,-50, 15,0,-50, 40,0,-30ã'DATA -40,0,-30, 41,0,5, -41,0,5, 42,0,-30, -42,0,-30, 40,0,-80, -40,0,-80ã'DATA 140,0,-25, -140, 0,-25, 0,-15,-20ãã'DATA 0,1,2, 1,2,3, 0,1,5, 0,2,4, 1,5,6, 2,4,7, 1,6,8, 2,7,9, 6,8,10, 6,10,12ã'DATA 8,10,14, 7,9,11, 7,11,13, 9,11,15, 0,2,16, 0,1,16, 1,3,16, 2,3,16ãã'DATA 32,44ã'DATA 0,-50,0, -23,-47,0, -34,-32,0, -37,-6,0, -33,10,0, -12,35,0, 12,35,0ã'DATA 33,10,0, 37,-6,0, 37,-18,0, 34,-32,0, 23,-47,0, -23,-27,10, -23,-23,12ã'DATA -10,-18,2, -6,-25,8, -5,-4,10, -10,2,5, -23,-13,10, -23,-17,12ã'DATA -37,-18,0, 0,14,7, 0,18,5, 0,24,5, 0,29,7, 10,2,2, 23,-13,10, 10,-18,2ã'DATA 6,-25,8, 23,-27,10, 23,-23,12, 23,-17,12, 5,-4,10ã'ã'DATA 1,2,12, 1,12,0, 12,15,0, 0,15,28, 15,16,28, 28,16,32, 0,29,28, 0,29,11ã'DATA 10,29,9, 2,20,12, 12,14,15, 27,28,29, 10,11,29, 20,12,13, 12,13,14ã'DATA 27,29,30, 29,30,9, 20,3,18, 20,19,18, 18,19,14, 27,26,31, 26,31,9, 8,9,26ã'DATA 14,17,16, 14,16,15, 28,32,25, 25,27,28, 18,14,17, 27,26,25, 3,18,17ã'DATA 17,4,3, 25,26,8, 25,8,7, 17,25,16, 16,32,25, 17,21,25, 17,21,4, 25,21,7ã'DATA 4,21,22, 21,22,7, 4,23,24, 23,24,7, 4,5,24, 5,6,24, 24,6,7ãã'BacterioPhage.ãDATA 108, 185ãDATA 0,70,0, 17,50,30, -17,50,30, -35,50,0, -17,50,-30, 17,50,-30ãDATA 35,50,0, 17,-10,30, -17,-10,30, -35,-10,0, -17,-10,-30, 17,-10,-30ãDATA 35,-10,0, 3,-40,5, -3,-40,5, -6,-40,0, -3,-40,-5, 3,-40,-5ãDATA 6,-40,0, 6,-40,10, -6,-40,10, -12,-40,0, -6,-40,-10, 6,-40,-10, 12,-40,0ãDATA 6,-45,10, -6,-45,10, -12,-45,0, -6,-45,-10, 6,-45,-10, 12,-45,0ãDATA 3,-45,5, -3,-45,5, -6,-45,0, -3,-45,-5, 3,-45,-5, 6,-45,0ãDATA 3,-50,5, -3,-50,5, -6,-50,0, -3,-50,-5, 3,-50,-5, 6,-50,0ãDATA 6,-50,10, -6,-50,10, -12,-50,0, -6,-50,-10, 6,-50,-10, 12,-50,0ãDATA 6,-160,10, -6,-160,10, -12,-160,0, -6,-160,-10, 6,-160,-10, 12,-160,0ãDATA 3,-160,5, -3,-160,5, -6,-160,0, -3,-160,-5, 3,-160,-5, 6,-160,0ãDATA 3,-165,5, -3,-165,5, -6,-165,0, -3,-165,-5, 3,-165,-5, 6,-165,0ãDATA 6,-165,10, -6,-165,10, -12,-165,0, -6,-165,-10, 6,-165,-10, 12,-165,0ããDATA 6,-170,10, -6,-170,10, -12,-170,0, -6,-170,-10, 6,-170,-10, 12,-170,0ãDATA 3,-170,5, -3,-170,5, -6,-170,0, -3,-170,-5, 3,-170,-5, 6,-170,0ãDATA 3,-175,5, -3,-175,5, -6,-175,0, -3,-175,-5, 3,-175,-5, 6,-175,0ãDATA 33,-155,50, 27,-155,53, -27,-155,54, -33,-155,50, -60,-155,4, -60,-155,-4ãDATA -33,-155,-50, -27,-155,-54, 27,-155,-54, 33,-155,-50, 60,-155,-4,60,-155,4ãDATA 40,-260,69, -40,-260,69, -80,-260,0, -40,-260,-69, 40,-260,-69, 80,-260,0ããDATA 0,1,2, 2,0,3, 3,0,4, 4,0,5, 5,0,6, 6,0,1, 6,12,1, 12,7,1, 7,1,2, 7,8,2ãDATA 8,9,3, 2,3,8, 3,9,4, 9,10,4, 10,11,4, 11,4,5, 5,11,6, 11,12,6, 7,8,13ãDATA 13,14,8, 8,9,14, 14,15,9, 9,15,10, 15,16,10, 16,10,11, 16,17,11, 17,18,12ãDATA 17,12,11, 7,18,13, 7,18,12, 13,19,20, 14,20,13, 20,14,21, 14,21,15ãDATA 21,15,22, 15,22,16, 16,23,22, 16,17,23, 17,23,24, 17,18,24, 18,24,19ãDATA 13,18,19, 19,25,26, 19,20,26, 20,26,27, 20,21,27, 21,27,28, 21,22,28ãDATA 22,28,29, 22,23,29, 23,29,30, 23,24,30, 24,25,30, 19,24,25, 25,36,31ãDATA 25,30,36, 25,26,31, 26,31,32, 26,27,32, 27,32,33, 27,28,33, 28,33,34ãDATA 28,29,34, 34,35,29, 30,35,36, 29,30,35, 37,38,32, 37,31,32, 32,38,33ãDATA 33,38,39, 33,34,39, 39,34,40, 34,40,35, 40,41,35, 35,36,41, 41,42,36ãDATA 31,37,42, 42,31,36, 37,43,38, 43,44,38, 38,44,39, 44,45,39, 45,39,40ãDATA 45,40,46, 40,46,41, 46,47,41, 41,47,42, 47,42,48, 48,42,37, 37,43,48ãDATA 49,43,50, 43,44,50, 44,50,51, 51,44,45, 45,51,52, 45,46,52, 46,52,53ãDATA 46,47,53, 47,48,54, 47,54,53, 43,49,48, 48,49,54, 55,49,56, 49,50,56ãDATA 56,57,50, 50,51,57, 51,57,58, 51,52,58, 52,58,59, 52,53,59, 53,59,60ãDATA 53,54,60, 49,55,54, 55,54,60, 55,56,61, 61,62,56, 56,57,62, 57,62,63ãDATA 57,63,58, 63,64,58, 58,59,64, 59,64,65, 65,59,60, 65,66,60, 66,60,55ãDATA 66,55,61, 61,67,68, 61,62,68, 68,62,69, 62,63,69, 69,63,70, 63,64,70ãDATA 64,70,71, 64,65,71, 71,65,72, 66,65,72, 66,72,67, 61,66,67, 67,68,73ãDATA 68,73,74, 68,74,69, 69,74,75, 69,70,75, 70,75,76, 76,70,71, 71,76,77ãDATA 71,77,72, 77,78,72, 72,78,77, 67,73,78, 73,79,74, 74,80,79, 74,75,80ãDATA 75,80,81, 76,81,75, 81,82,76, 82,83,77, 82,76,77, 83,84,78, 83,77,78ãDATA 73,79,84, 73,78,84, 85,79,86, 79,80,86, 86,87,80, 80,81,87, 81,87,88ãDATA 81,88,82, 82,88,89, 82,83,89, 83,89,90, 83,84,90, 84,90,85, 85,84,79ãDATA 91,92,73, 93,94,74, 95,96,75, 97,98,76, 99,100,77, 101,102,78, 91,92,103ãDATA 93,94,104, 95,96,105, 97,98,106, 99,100,107, 101,102,108ããSUB DrawObjectã 'I will clean up any inaccuracies, shortcuts, and inefficienciesã 'in my third release...ã ã CrX! = COS(rX!)ã SrX! = SIN(rX!)ã CrY! = COS(ry!)ã SrY! = SIN(ry!)ã CrZ! = COS(rZ!)ã SrZ! = SIN(rZ!)ã ã 'Pre-Construct a table of rotated/translated/projected points.ã FOR i = 0 TO nPtsã X! = CrX! * -World(i, 0) - SrX! * World(i, 2)ã Z! = SrX! * -World(i, 0) + CrX! * World(i, 2)ã y! = CrY! * World(i, 1) - SrY! * X!ã Z!(i) = (CrZ! * Z! - SrZ! * y!) + tZã pX(i) = (Dst * ((CrY! * X! + SrY! * World(i, 1)) + tx) / Z!(i)) + 320ã pY(i) = 175 - (Dst * ((SrZ! * Z! + CrZ! * y!) + ty) / Z!(i))ã NEXTãã 'This provides the Z midpoint for a primative hidden surface removalã 'routine.ãã FOR i = 0 TO nPlã mp!(i) = (Z!(Plane(i, 0)) + Z!(Plane(i, 1)) + Z!(Plane(i, 2))) / 3ã Index(i) = iã NEXTã ã QwkSort 0, nPlãã FOR i = 0 TO nPlã Tri i, (14 * (i / nPl)) + 1ã ' ^^^^^^^^^^^^^^^^^^^^ã 'A novel shading algorythm I came up with. This is not entirelyã 'accurate, but I thought it would provide an adaquate illusion.ã NEXTãEND SUBããDEFSNG A-ZãSUB MainLoopã DOã rX! = rX! + .1ã IF rX! > 6.28 THEN rX! = 0ã Page = 1 - Pageã SCREEN 9, 1, 1 - Page, Pageãã WAIT 986, 8ã LINE (0, 0)-(639, 349), 0, BFã ã DrawObjectã LOOP UNTIL INKEY$ <> ""ãSCREEN 0ãEND SUBããDEFINT A-ZãSUB QwkSort (l, R)ãi = lãj = RãX! = mp!(Index((l + R) \ 2))ããDOã DO WHILE mp!(Index(i)) < X!ã i = i + 1ã LOOPã DO WHILE X! < mp!(Index(j))ã j = j - 1ã LOOPã IF i <= j THENã SWAP Index(i), Index(j)ã i = i + 1ã j = j - 1ã END IFãLOOP UNTIL i > jãããIF l < j THEN QwkSort (l), (j)ãIF i < R THEN QwkSort (i), (R)ããEND SUBããSUB SetPalãFOR i = 0 TO 15ã OUT &H3C8, iã OUT &H3C9, i * 4ã OUT &H3C9, i * 4ã OUT &H3C9, i * 4ãNEXTããEND SUBããSUB Tri (i, c)ã DIM xpos(-100 TO 449, 1)ã ã x1 = pX(Plane(Index(i), 0))ã y1 = pY(Plane(Index(i), 0))ã x2 = pX(Plane(Index(i), 1))ã y2 = pY(Plane(Index(i), 1))ã x3 = pX(Plane(Index(i), 2))ã y3 = pY(Plane(Index(i), 2))ããmny = y1ãIF y2 < mny THEN mny = y2ãIF y3 < mny THEN mny = y3ãmxy = y1ãIF y2 > mxy THEN mxy = y2ãIF y3 > mxy THEN mxy = y3ãs1 = ABS(y1 < y2) * 2 - 1ãs2 = ABS(y2 < y3) * 2 - 1ãs3 = ABS(y3 < y1) * 2 - 1ããy = y1ãIF y1 <> y2 THENã DOã xpos(y, ABS(y1 < y2)) = (x2 - x1) * (y - y1) \ (y2 - y1) + x1ã y = y + s1ã LOOP UNTIL y = y2 + s1ãELSEã xpos(y, ABS(y1 < y2)) = x1ãEND IFãy = y2ãIF y2 <> y3 THENã DOã xpos(y, ABS(y2 < y3)) = (x3 - x2) * (y - y2) \ (y3 - y2) + x2ã y = y + s2ã LOOP UNTIL y = y3 + s2ãELSEã xpos(y, ABS(y2 < y3)) = x2ãEND IFãy = y3ãIF y3 <> y1 THENã DOã xpos(y, ABS(y3 < y1)) = (x1 - x3) * (y - y3) \ (y1 - y3) + x3ã y = y + s3ã LOOP UNTIL y = y1 + s3ãELSEã xpos(y, ABS(y3 < y1)) = x3ãEND IFãã'Polygon is broken up into horizontal lines (No painting nessesary this way)ãFOR y = mny TO mxyã IF xpos(y, 0) > xpos(y, 1) THEN SWAP xpos(y, 0), xpos(y, 1)ã IF xpos(y, 0) > 0 THEN LINE (xpos(y, 0), y)-(xpos(y, 1), y), cãNEXTãLINE (x1, y1)-(x2, y2), c - 1ãLINE -(x3, y3), c - 1ãLINE -(x1, y1), c - 1ãEND SUBãDanny Beardsley FAST FIRE beards@dnai.com 08-28-97 (13:59) QB, QBasic, PDS 84 2232 FIRETEST.BAS' $DYNAMICã'FAST FIRE BY DANNY BEARDSLEYã' COMPILE ME! 10 TIMES FASTERã' COMPILE ME! 10 TIMES FASTERã' COMPILE ME! 10 TIMES FASTERã'_______/----------------\______________ã'This is the fastest fire routine that i have ever seen.ã'If you COMPILE it will be !!!10 times faster!!!!ã'This is not true fire it only spreads to the leftã'If you want more code for other amazing feats thenã'----------------------------ã'Email: dsb@cyberdude.comã'Homepage: www.dnai.com/~beardsã' FFFRRREEEEEEWWWAAARRREEE (just put my name in somewhere if you use it)ããSCREEN 13ãCLSã FOR t% = 0 TO 63ã 'ã ' Fade from black to redã 'ã OUT &H3C7, t% ' Slots 0-15ã OUT &H3C9, t%ã OUT &H3C9, 0ã OUT &H3C9, 0ã 'ã ' Fade from red to yellowã 'ã OUT &H3C7, t% + 63' Slots 16-31ã OUT &H3C9, 63ã OUT &H3C9, t%ã OUT &H3C9, 0ã 'ã ' Fade from yellow to whiteã 'ã OUT &H3C7, t% + 126' Slots 32-47ã OUT &H3C9, 63ã OUT &H3C9, 63ã OUT &H3C9, t%ã 'ã NEXTããtim = TIMERãDEF SEG = (&HA000 + &H7D0)ãRANDOMIZE TIMERãDOãLINE (0, 198)-(320, 198), 0ãFOR r% = 1 TO 320ã POKE (31360 + 320 * RND), 180ãNEXT r%ãcnt% = cnt% + 1ãFOR y% = 31 TO 98ãFOR x% = 2 TO 318ã v% = y% * 320 + x%ã c% = PEEK(v%)ã 'IF c% < 0 THEN GOTO 1ã c% = c% + PEEK(v% + 1) + PEEK(v% + 320)ã IF c% < 10 THEN GOTO 1ã c% = c% \ 3 - 2ã POKE (v% - 320), c%ã1ãNEXT x%ãNEXT y%ãLOOP UNTIL INKEY$ <> ""ãs = TIMER - timãCOLOR 180ãPRINT cnt% / sãSLEEPãSCREEN 12ãPRINT "FAST FIRE BY DANNY BEARDSLEY (made in QB4.5)"ãPRINT "COMPILE ME! 10 TIMES FASTER"ãPRINT "COMPILE ME! 10 TIMES FASTER"ãPRINT "COMPILE ME! 10 TIMES FASTER"ãPRINT "_______________________________________________________"ãPRINT "This is the fastest fire routine that I have ever seen."ãPRINT " If you COMPILE it will be !!!10 times faster!!!!"ãPRINT " This is not true fire it only spreads to the left"ãPRINT " If you want more code for other amazing feats then"ãPRINT "-------------------------------------------------------"ãPRINT "Email: dsb@cyberdude.com"ãPRINT "Homepage: www.dnai.com/~beards"ãPRINT "FREEWARE (just put my name in somewhere if you use it {:-)"ãSLEEPãENDãDanny Beardsley FAST FIRE 2 (TORCH-LIKE FLAMES)beards@dnai.com 08-28-97 (13:59) QB, QBasic, PDS 127 3260 FIRE2.BAS 'FAST FIRE BY DANNY BEARDSLEYã' COMPILE ME! 10 TIMES FASTERã' COMPILE ME! 10 TIMES FASTERã' COMPILE ME! 10 TIMES FASTERã'_______/----------------\______________ã'This is the fastest fire routine that i have ever seen.ã'If you COMPILE it will be !!!10 times faster!!!!ã'This is not true fire it only spreads to the leftã'If you want more code for other amazing feats thenã'----------------------------ã'Email: dsb@cyberdude.comã'Homepage: www.dnai.com/~beardsã' FFFRRREEEEEEWWWAAARRREEE (just put my name in somewhere if you use it)ãDIM xo(23) AS INTEGERãRANDOMIZE TIMERãSCREEN 13ãCLSã FOR t% = 0 TO 63ã 'ã ' Fade from black to redã 'ã OUT &H3C7, t% ' Slots 0-15ã OUT &H3C9, t%ã OUT &H3C9, 0ã OUT &H3C9, 0ã 'ã ' Fade from red to yellowã 'ã OUT &H3C7, t% + 63' Slots 16-31ã OUT &H3C9, 63ã OUT &H3C9, t%ã OUT &H3C9, 0ã 'ã ' Fade from yellow to whiteã 'ã OUT &H3C7, t% + 126' Slots 32-47ã OUT &H3C9, 63ã OUT &H3C9, 63ã OUT &H3C9, t%ã 'ã NEXTããtim = TIMERãFOR cnt% = 1 TO 14000ããxx% = RND * 315ãyy% = 99ãclr = RND * 180ãPOKE (yy% * 320 + xx%), clrãPOKE (yy% * 320 + xx% + 1), clrãPOKE (yy% * 320 + xx% + 2), clrãPOKE (yy% * 320 + xx% + 3), clrã'LINE (0, 199)-(319, 199), 180ããIF cnt% MOD 2 = 2 THENã DEF SEG = (&HA000): ty% = 100ãELSEã DEF SEG = (&HA000 + &H7D0): ty% = 99ãEND IFããFOR i% = 0 TO 23ã xo(i%) = INT(RND * 3 - 1)ãNEXT i%ãããFOR y% = 0 TO ty%ãFOR x% = 0 TO 319ã v% = 320 * y% + x%ã c% = PEEK(v%) + PEEK(v% + 320) + PEEK(v% - xo(co% + 1))' + PEEK(v% - 320)ã IF c% >= 4 THENã c% = c% \ 3 - 1ã POKE (v% - 320), c%ã co% = (co% + 4) MOD 23ã END IFãNEXT x%ãco% = (co% + RND * 6) MOD 23ãNEXT y%ããIF INKEY$ <> "" THEN EXIT FORããNEXT cnt%ããs = TIMER - timãCOLOR 180ãPRINT cnt% / s '* 64000ãSLEEPããSCREEN 12ãPRINT "FAST FIRE 2 BY DANNY BEARDSLEY (made in QB4.5)"ãPRINT "COMPILE ME! 10 TIMES FASTER"ãPRINT "COMPILE ME! 10 TIMES FASTER"ãPRINT "COMPILE ME! 10 TIMES FASTER"ãPRINT "_______________________________________________________"ãPRINT "This is another one of the fastest fire routines that I "ãPRINT " have ever seen."ãPRINT " If you COMPILE it will be !!!10 times faster!!!!"ãPRINT " This is true fire it only spreads by random amounts"ãPRINT " If you want more code for other amazing feats then"ãPRINT "-------------------------------------------------------"ãPRINT "Email: dsb@cyberdude.com"ãPRINT "Homepage: www.dnai.com/~beards"ãPRINT "FREEWARE (just put my name in somewhere if you use it {:-)"ãSLEEPããENDã'c% = PEEK(v%) + PEEK(v% - 320) + PEEK(v% + 320) + PEEK(v% - 1) + PEEK(v% + 1)ã'+ PEEK(v% + 1)ãã''''''''Torch ideaã'TYPE trchã' x AS INTEGERã' clr AS INTEGERã' tim AS INTEGERã'END TYPEã'FOR r% = 0 TO 20ã' IF torch(r%).tim = 0 THENã' torch(r%).x = RND * 315ã' torch(r%).clr = 180ã' torch(r%).tim = RND * 65 + 10ã' END IFã' POKE (31680 + torch(r%).x), torch(r%).clrã' POKE (31680 + torch(r%).x + 1), torch(r%).clrã' POKE (31680 + torch(r%).x + 2), torch(r%).clrã' POKE (31680 + torch(r%).x + 3), torch(r%).clrã'torch(r%).tim = torch(r%).tim - 1ã'NEXT r%ã'DIM torch(70) AS trchãDanny Beardsley FAST SNOW FALL ROUTINE beards@dnai.com 08-28-97 (13:59) QB, QBasic, PDS 110 3089 FASTSNOW.BASSCREEN 13ãCLSãDEFINT A-Zã'init the paletteãFOR I = 1 TO 60ã OUT &H3C8, Iã OUT &H3C9, I / 2 + 33ã OUT &H3C9, I / 2 + 33ã OUT &H3C9, I / 2 + 33ãNEXT IããNUMFLK = 1000 'Number of flakesãã'Define the snow flake variable typeãTYPE snfkã X AS INTEGERã Y AS INTEGERã C AS INTEGERãEND TYPEãã'- -ã'Draw what you want the snow to fall on hereãCOLOR 64ãLOCATE 15, 15: PRINT "ESC to exit"ãLOCATE 16, 9: PRINT "Any key to clear screen"ã'- -ãã'Dimension the snow flake arrayãDIM FLK(NUMFLK) AS snfkãã'Init the flakes pos and speedãFOR I = 1 TO NUMFLKã FLK(I).X = RND * 320ã FLK(I).Y = -4000ã FLK(I).C = RND * 50 + 50ãNEXT Iãã'Move the flakes a little so they're not so bunched upãFOR REP = 1 TO 80ã FOR I = 1 TO NUMFLKã FLK(I).Y = FLK(I).Y + FLK(I).Cã NEXT IãNEXT REPããTIM! = TIMERã'Do the snowãDOãCNT = CNT + 1ãRANDOMIZE TIMERãFOR I = 1 TO NUMFLKãã MVD = 0 'Set up theã OY = FLK(I).Y 'ã OX = FLK(I).X 'ã OC = FLK(I).C 'temporary (not array is faster)ã TC = OC 'ã TY = OY 'ã TX = OX 'variablesã TYH = TY \ 100 'Set another variableãã IF POINT(TX, TYH + 1) <> 0 AND TY > 2000 THEN 'Check if the current pixel is filledã MVD = 2ã IF POINT(TX - 1, TYH + 1) = 0 THEN 'how about the down & left pixel?ã IF POINT(TX - 1, TYH) = 0 THEN TX = TX - 1: MVD = 1 'no so move the pixel thereã ELSEIF POINT(TX + 1, TYH + 1) = 0 THEN 'how about the down & right pixel?ã IF POINT(TX + 1, TYH) = 0 THEN TX = TX + 1: MVD = 1 'no so move the pixel thereã END IFã END IFãã IF MVD = 2 THEN 'If the flake cant move then put it on the topã FLK(I).X = RND * 320ã FLK(I).Y = 100ã FLK(I).C = RND * 50 + 50ã GOTO 1ã END IFãã TY = TY + TC 'Increment the flake verticallyãã PSET (OX, TYH), 0 'Erase the flakeã PSET (TX, TY \ 100), TC - 40 'Draw the flakeãã FLK(I).X = TX ' Put the flakeã FLK(I).Y = TY ' where itsã FLK(I).C = TC 'supposed to beã1ãNEXT IãA$ = INKEY$ãIF A$ = CHR$(27) THEN EXIT DOãIF A$ <> "" THEN CLSãLOOPãSCREEN 12ãPRINT CNT / (TIMER - TIM!)ãDOãLOOP UNTIL INKEY$ = ""ãPRINT "FAST SNOW ROUTINE BY DANNY BEARDSLEY (made in QB4.5)"ãPRINT "COMPILE ME! 2 TIMES FASTER"ãPRINT "COMPILE ME! 2 TIMES FASTER"ãPRINT "COMPILE ME! 2 TIMES FASTER"ãPRINT "________________________________________________________"ãPRINT "This is a fast snow routine in 320X200 with 1000 flakes!"ãPRINT " If you COMPILE it will be !!!2 times faster!!!!"ãPRINT " I think that every variablle here is an integer"ãPRINT " If you want more code for other amazing feats then>"ãPRINT "--------------------------------------------------------"ãPRINT "Email: dsb@cyberdude.com"ãPRINT "Homepage: www.dnai.com/~beards"ãPRINT "FREEWARE (just put my name in somewhere if you use it {:-)"ãSLEEPããENDãDanny Beardsley 3D LANDSCAPE GENERATOR beards@dnai.com 08-28-97 (13:59) QB, QBasic, PDS 278 6612 3DORG.BAS '|______________________________________________________|ã'| A 3D LANDSCAPE GENERATOR USING FRACTALS IN SCREEN 13 | ã'| DANNY BEARDSLEY |ã'| EMAIL: dsb@cyberdude.com |ã'| HOMEPAGE http://www.dnai.com/~beards |ã'|------------------------------------------------------|ããDECLARE SUB LOADVAR ()ãDECLARE SUB INITPAL ()ãDECLARE SUB Splitbox (X1%, Y1%, X2%, Y2%)ãDECLARE SUB Newcolor (XA%, YA%, X%, Y%, XB%, YB%)ãDECLARE SUB DRW3DLAND ()ãDECLARE SUB DRAWLAND ()ãDECLARE SUB MAKELAND ()ãDECLARE SUB setpal (Attr!, Red!, GREEN!, Blue!)ãSCREEN 13ãCONST normaL = 0ãCONST GREENVALLEY = 1ãCONST ALPS = 2ãDIM SHARED MAXX AS INTEGER, MAX.Y AS INTEGER, MAX.COLOR AS INTEGER, ROUGH!, K AS STRING, MUX AS INTEGER, MUY AS INTEGER, MBY, MBX, BBB AS INTEGERãDIM SHARED ww AS INTEGERãDIM SHARED ColrãRANDOMIZE TIMERãMAXX = 175ãMAX.Y = 175ãMAX.COLOR = 254ãDIM SHARED Z(175 ^ 2) AS INTEGERãããDOããRANDOMIZE TIMERã ã '-------------SPECIFY THE VARIABLES HERE---------------ã Colr = 3 'THREE DIF COLOR PALETTESã ww = 20 'WATER LEVEL 0-250ã ROUGH! = 1.8 'ROUGHNESS OF TERRAIN 0 = SMOOTH 5 = VERY ROUGHããMAKELANDãCLSãINITPALãCLSãDRW3DLANDãSLEEP 4ãLOOPããããREM $DYNAMICãSUB DRAWLANDãDEFINT A-ZãããRANDOMIZE TIMERã'SLEEP 4ãCLSãPSET (0, 0), (RND * MAX.COLOR) + 1 'set the cornersãPSET (0, MAX.Y), (RND * MAX.COLOR) + 1 'set the cornersãPSET (MAXX, 0), (RND * MAX.COLOR) + 1 'set the cornersãPSET (MAXX, MAX.Y), (RND * MAX.COLOR) + 1 'set the cornersãã'use Set13Pixel to plant "seed" pixels here, if wantedããSplitbox 0, 0, MAXX, MAX.YããEND SUBããDEFSNG A-ZãSUB DRW3DLANDãDEFINT A-ZãLOCATE 25, 7ãPRINT "(PRESS THE SPACEBAR TO EXIT)"ãN = 0ãX1 = (6) / (374 / 300) + 174ãY2 = 255ãX2 = (MAXX * 6) / (474 / 300) + 174ãY1 = 255 - 255 / (474 / 300)ãAX1 = 6ãAY1 = MAX.Y * 2ãAX2 = MAXX * 6ãAY2 = MAX.Y * 2 + 254ãFOR Y = 1 TO MAX.Y - 1ã IF INKEY$ <> "" THEN ENDã FOR X = 1 TO MAXX - 1ã YO = Z(N) / ((175 - Y + 300) / 300)ã YO2 = Z(N + MAXX) / ((175 - Y + 300) / 300)ã N = N + 1ã X1 = (X * 6) / ((175 - Y + 300) / 300) + (175 - Y) - 2ã Y1 = Y * 2 + 254 - YO - 2ã X2 = ((X + 1) * 6) / ((175 - Y + 300) / 300) + (175 - Y) + 2ã Y2 = Y * 2 + 254 - YO2 + 2ã LINE (X1 / 3.2, Y1 / 3.2)-(X2 / 3.2, Y2 / 3.2), Z(N), BFã NEXT Xã N = N + 1ãNEXT Yã ã ã ã EXIT SUBã FOR X = 1 TO MAXX - 1ã YO = Z(N - MAXX)ã YO2 = 0ã N = N + 1ã X1 = (X * 6) - 2ã Y1 = 174 * 2 + 254 - YOã X2 = ((X + 1) * 6) + 2ã Y2 = Y * 2 + 254 - YO2ã LINE (X1 / 4, Y1 / 4)-(X2 / 4, Y2 / 4), 0, BFã NEXT Xã'DRWBOX 1, 253, AX1, AY1, AX2, AY2ãEND SUBããREM $STATICãDEFSNG A-ZãSUB INITPALãSELECT CASE ColrãCASE normaLã FOR I = 1 TO 63ã setpal I, 0, (63 - I) / 2 + 20, 0ã NEXT Iã FOR I = 64 TO 85ã setpal I, (I - 64) * 1.5, 21 - (I - 64) / 4, 1ã NEXT Iã FOR I = 1 TO 63ã setpal I + 85, 32 - (I / 4), 15 - (I / 8), 3ã NEXT Iã FOR I = 149 TO 170ã setpal I, 16 + (I - 149) / 1.3, 7 + (I - 149), 4 + (I - 149)ã NEXT Iã FOR I = 1 TO 84ã setpal I + 170, 32 + I / 3, 28 + I / 2.5, 25 + I / 2.6ã NEXT IããCASE 3ã FOR I = 1 TO 63ã setpal I, 0, (63 - I) / 2 + 20, 0ã NEXT Iã FOR I = 64 TO 85ã setpal I, (I - 64) / 1.5, 21 - (I - 64) / 1.5, 1ã NEXT Iã FOR I = 1 TO 63ã setpal I + 85, 16 + (I / 4), 7 + (I / 8), 3ã NEXT Iã FOR I = 149 TO 170ã setpal I, 32, 15 + (I - 149) / 1.6, 4 + (I - 149)ã NEXT Iã FOR I = 1 TO 84ã setpal I + 170, 32 + I / 3, 28 + I / 2.5, 25 + I / 2.6ã NEXT IããCASE 4ã FOR I = 1 TO 63ã setpal I, 0, (63 - I) / 2 + 20, 0ã NEXT Iã FOR I = 64 TO 85ã setpal I, (I - 64) * 1.5, 21 - (I - 64) / 4, 1ã NEXT Iã FOR I = 1 TO 150ã setpal I + 85, 32 - (I / 10), 15 - (I / 20), 3ã NEXT Iã FOR I = 235 TO 255ã setpal I, 16 + (I - 235) / 1.3, 7 + (I - 235), 4 + (I - 235)ã NEXT IããCASE GREENVALLEYã FOR I = 1 TO 85ã setpal I, 0, ((85 - I) / 1.349) / 2 + 20, 0ã NEXT Iã FOR I = 85 TO 170ã setpal I, (I - 85) / 2.666, 21 - (I - 85) / 16, 1ã NEXT Iã FOR I = 1 TO 85ã setpal I + 170, 32 - (I / 4), 15 - (I / 8), 3ã NEXT IããCASE ALPSã FOR I = 1 TO 63ã setpal I, 32 - (I / 4), 15 - (I / 8), 3ã NEXT Iã FOR I = 64 TO 149ã setpal I, 16 + (I - 64) / 5, 7 + (I - 64) / 4, 4 + (I - 64) / 4ã NEXT Iã FOR I = 1 TO 105ã setpal I + 149, 32 + I / 4, 28 + I / 4, 25 + I / 3ã NEXT IããEND SELECTãFOR I = 1 TO wwãsetpal I, 0, 0, 255ãNEXT IãEND SUBããSUB LOADVARãOPEN "C:\WINDOWS\LANSCAPE.INI" FOR INPUT AS 1ãIF LOF(1) < 1 THENã Colr = INT(RND * 3)ã ww = INT(RND * 70)ã ROUGH! = (RND * 3)ã KILL "LANSCAPE.INI"ã CLOSE 1ã EXIT SUBãEND IFãINPUT #1, Colr, w$, ROUG$, CR, WR, RORãww = VAL(w$)ãROUGH! = VAL(ROUG$) / 10ãCLOSE 1ãEND SUBããREM $DYNAMICãDEFINT A-ZãSUB MAKELANDãDRAWLANDã FOR X = 1 TO MAXXã 'MOUSESTATUS MUX, MUY, BBB%ã 'IF MBX <> MUX OR MUY <> MBY THEN VIDEOMODESET VMODE: ENDã 'MBX = MUX: MUY = MBYã IF INKEY$ <> "" THEN ENDã FOR Y = 1 TO MAX.Yã R = POINT(X, Y)ã IF R < ww THEN R = wwã Z(N) = Rã N = N + 1ã NEXT Yã NEXT XãCLSãEND SUBããSUB Newcolor (XA, YA, X, Y, XB, YB) 'puts a new color based on averageãIF POINT(X, Y) <> 0 THEN EXIT SUBãavg = ABS(XA - XB) + ABS(YA - YB)ãCOLOUR = (POINT(XA, YA) + POINT(XB, YB)) / 2 + (RND - .5) * avg * ROUGH!ã IF COLOUR > MAX.COLOR THEN COLOUR = MAX.COLORã IF COLOUR < 1 THEN COLOUR = 1ã PSET (X, Y), COLOURããEND SUBããREM $STATICãDEFSNG A-ZãSUB setpal (Attr, Red, GREEN, Blue)ã OUT &H3C7, AttrãOUT &H3C8, AttrãOUT &H3C9, RedãOUT &H3C9, GREENãOUT &H3C9, BlueãIF INKEY$ <> "" THEN ENDãEND SUBããREM $DYNAMICãDEFINT A-Zã'ãSUB Splitbox (X1, Y1, X2, Y2) 'this is the main subroutineãIF (X2 - X1 < 2) AND (Y2 - Y1 < 2) THEN EXIT SUBããX = (X1 + X2) / 2ãY = (Y1 + Y2) / 2ãNewcolor X1, Y1, X1, Y, X1, Y2ãNewcolor X1, Y2, X, Y2, X2, Y2ãNewcolor X2, Y2, X2, Y, X2, Y1ãNewcolor X2, Y1, X, Y1, X1, Y1ã 'MOUSESTATUS MUX, MUY, BBBã 'IF MBX <> MUX OR MUY <> MBY THEN VIDEOMODESET VMODE: ENDã 'MBX = MUX: MUY = MBYããIF POINT(X, Y) = 0 THENã IF INKEY$ <> "" THEN ENDã COLOUR = (POINT(X1, Y1) + POINT(X2, Y1) + POINT(X1, Y2) + POINT(X2, Y2)) / 4ã IF COLOUR > MAX.COLOR THEN COLOUR = MAX.COLORã IF COLOUR < 1 THEN COLOUR = 1ã PSET (X, Y), COLOURãEND IFããSplitbox X1, Y1, X, YãSplitbox X, Y1, X2, YãSplitbox X, Y, X2, Y2ãSplitbox X1, Y, X, Y2ããEND SUBãDanny Beardsley ANIMATED BUMP MAP beards@dnai.com 08-28-97 (13:59) QB, QBasic, PDS 179 4389 ANIBUMP.BAS DECLARE SUB init ()ã' $DYNAMICãSCREEN 13ãDIM x AS INTEGERãDIM y AS INTEGERãDIM D AS INTEGERãDIM SHARED pic(32200) AS INTEGERãDIM SHARED mp(15751) AS INTEGERãDIM vsp AS INTEGERãDIM vsp2 AS INTEGERãvsp = VARSEG(pic(0))ãvsp2 = vsp + 2000ãPRINT "hold on"ãinitãFOR i% = 1 TO 127ãOUT &H3C8, i%ãOUT &H3C9, 0ãOUT &H3C9, 0ãOUT &H3C9, i% \ 2ãOUT &H3C8, i% + 127ãOUT &H3C9, i% \ 2ãOUT &H3C9, i% \ 2ãOUT &H3C9, 63ãNEXT i%ããDEF SEG = (&HA000)ãFOR y = 1 TO 100ã FOR x = 0 TO 319ã POKE (y * 320 + x), RND * 250ã NEXT xãNEXT yãDEF SEG = (&HA000 + &H7D0)ãFOR y = 1 TO 99ã FOR x = 0 TO 319ã POKE (y * 320 + x), RND * 250ã NEXT xãNEXT yãFOR w% = 1 TO 9ãCIRCLE (160, 100), w% + 35, 250ãLINE (160 - w%, 100 - w%)-(120 + w%, 180 + w%), 250, BãNEXT w%ããtim = TIMERãFOR D = 1 TO 3ã ã DEF SEG = (&HA000)ã ã FOR y = 1 TO 100ã FOR x = 0 TO 319ã ã s% = PEEK(y * 320 + x) + PEEK(y * 320 + x + 1) + PEEK(y * 320 + x - 1) + PEEK(y * 320 + 320 + x) + PEEK(y * 320 - 320 + x) '+ PEEK(y * 320 - 320 + x - 1) + PEEK(y * 320 - 320 + x + 1) + PEEK(y * 320 + 320 + x - 1) + PEEK(y * 320 + 320 + x + 1)ã s% = s% \ 5ã POKE (y * 320 + x), s%ã ã NEXT xã NEXT yã ã DEF SEG = (&HA000 + &H7D0)ãã FOR y = 1 TO 99ã FOR x = 0 TO 319ã ã s% = PEEK(y * 320 + x) + PEEK(y * 320 + x + 1) + PEEK(y * 320 + x - 1) + PEEK(y * 320 + 320 + x) + PEEK(y * 320 - 320 + x) '+ PEEK(y * 320 - 320 + x - 1) + PEEK(y * 320 - 320 + x + 1) + PEEK(y * 320 + 320 + x - 1) + PEEK(y * 320 + 320 + x + 1)ã s% = s% \ 5ã POKE (y * 320 + x), s%ã ã NEXT xã NEXT yãNEXT DããDEF SEG = (&HA000)ãFOR yy! = 1 TO 100ã FOR xx! = 0 TO 319 STEP 2ã e = (PEEK(yy! * 320 + xx! + 1) + 128) MOD 256ã e1 = PEEK(yy! * 320 + xx!) - 1ã pic((xx! + yy! * 320) \ 2) = e * 256 + e1 - 32767ã NEXT xx!ãNEXT yy!ãDEF SEG = (&HA7D0)ãFOR yy! = 1 TO 99ã FOR xx! = 0 TO 319 STEP 2ã e = (PEEK(yy! * 320 + xx! + 1) + 128) MOD 256ã e1 = PEEK(yy! * 320 + xx!) - 1ã pic((xx! + (yy! + 100) * 320) \ 2) = e * 256 + e1 - 32767ã NEXT xx!ãNEXT yy!ãCLSãtim = TIMERãFOR l% = 1 TO 180 STEP 3ãlpy% = l% * 1ãlpx% = l% * 1ãDEF SEG = (&HA000)ãFOR y = 1 TO 100ã ym% = y * 320ã ly% = y - lpy%ã FOR x = 1 TO 319ã lx% = x - lpx%ã yd% = ym% + xã DEF SEG = vspã c% = PEEK(yd%) - 125ã ny% = PEEK(yd% + 320) - c% - ly%ã nx% = PEEK(yd% + 1) - c% - lx%ã IF ny% < 1 OR ny% > 249 THEN ny% = 1ã IF nx% < 0 OR nx% > 250 THEN nx% = 0ã nx% = 125 - ABS(125 - nx%)ã ny% = 125 - ABS(125 - ny%)ã DEF SEG = &HA000ã POKE (yd%), mp(nx% * 125 + ny%)ã NEXT xãNEXT yãDEF SEG = &HA7D0ãFOR y = 1 TO 99ã ym% = y * 320ã ty% = y + 100ã ly% = ty% - lpy%ã FOR x = 1 TO 319ã lx% = x - lpx%ã yd% = ym% + xã DEF SEG = vsp2ã c% = PEEK(yd%) - 125ã ny% = PEEK(yd% + 320) - c% - ly%ã nx% = PEEK(yd% + 1) - c% - lx%ã IF ny% < 1 OR ny% > 249 THEN ny% = 1ã IF nx% < 1 OR nx% > 250 THEN nx% = 1ã nx% = 125 - ABS(125 - nx%)ã ny% = 125 - ABS(125 - ny%)ã DEF SEG = &HA7D0ã POKE (yd%), mp(nx% * 125 + ny%)ã NEXT xãNEXT yãIF INKEY$ <> "" THEN GOTO 12ãNEXT l%ã'GOTO 23ã12ãq = 60 / (TIMER - tim)ãDEF SEGãCLSãFOR i% = 1 TO 255ãOUT &H3C8, i%ãOUT &H3C9, 63ãOUT &H3C9, 63ãOUT &H3C9, 63ãNEXT i%ãSCREEN 12ãPRINT qãDOãLOOP UNTIL INKEY$ = ""ãPRINT "ANIMATED BUMP MAP BY DANNY BEARDSLEY (made in QB4.5)"ãPRINT "COMPILE ME! 5 TIMES FASTER"ãPRINT "COMPILE ME! 5 TIMES FASTER"ãPRINT "COMPILE ME! 5 TIMES FASTER"ãPRINT "_______________________________________________________"ãPRINT " This is a VERY! fast animated bump routine"ãPRINT " If you COMPILE it will be !!!5 times faster!!!!"ãPRINT " it is very delicate dont mess up the source"ãPRINT " If you want more code for other amazing feats then"ãPRINT "-------------------------------------------------------"ãPRINT "Email: dsb@cyberdude.com"ãPRINT "Homepage: www.dnai.com/~beards"ãPRINT "FREEWARE (just put my name in somewhere if you use it {:-)"ãSLEEPããENDããREM $STATICãSUB initãSCREEN 13ãFOR y% = 0 TO 125ã LOCATE 1, 9ã PRINT CINT(y% / 1.25); "%"ã FOR x% = 1 TO 125ã nx = (x% - 125) / 125ã ny = (y% - 125) / 125ã nz = 1 - SQR(nx ^ 2 + ny ^ 2)ã IF nz < 0 THEN nz = 0ã mp(x% * 125 + y%) = CINT(nz * 250)ã NEXT x%ãNEXT y%ãEND SUBãDanny Beardsley FAST ANIMATED BUMP MAP beards@dnai.com 08-28-97 (13:59) QB, QBasic, PDS 331 7879 ANIBUMP2.BASDECLARE SUB plasma ()ãDECLARE SUB Splitbox (X1%, Y1%, X2%, Y2%)ãDECLARE SUB Newcolor (XA%, YA%, x%, y%, XB%, YB%)ãDECLARE SUB init ()ã' $DYNAMICãSCREEN 13ãTYPE pntã x AS INTEGERã y AS INTEGERãEND TYPEãDIM x AS INTEGERãDIM y AS INTEGERãDIM D AS INTEGERãDIM SHARED pic(32200) AS INTEGERãDIM SHARED mp(15751) AS INTEGERãDIM SHARED SN(360) AS INTEGERãDIM vsp AS INTEGERãDIM vsp2 AS INTEGERãDIM rond(360) AS pntããDIM u1 AS INTEGERãDIM l1 AS INTEGERãDIM r1 AS INTEGERãDIM le1 AS INTEGERãDIM u2 AS INTEGERãDIM l2 AS INTEGERãDIM wv AS INTEGERãããvsp = VARSEG(pic(0))ãvsp2 = vsp + 2000ãPRINT "hold on" ' (NUMPAD MOVES THE LIGHT)"ãinitãCLSã'PRINT "(NUMPAD KEYS MOVE THE LIGHT) press a key"ã'SLEEPãFOR i% = 1 TO 127ãOUT &H3C8, i%ãOUT &H3C9, 0ãOUT &H3C9, 0ãOUT &H3C9, i% \ 2ãOUT &H3C8, i% + 127ãOUT &H3C9, i% \ 2ãOUT &H3C9, i% \ 2ãOUT &H3C9, 63ãNEXT i%ãFOR i = 0 TO 360ãrond(i).x = SIN(i * (3.1415929# / 180)) * 60ãrond(i).y = COS(i * (3.1415929# / 180)) * 60ãNEXT iãCLSãRANDOMIZE TIMERãplasmaãGOTO skipitãã'DEF SEG = (&HA000)ã'FOR y = 1 TO 100ã' FOR x = 0 TO 319ã' r = SQR((x - 160) ^ 2 + (100 - y) ^ 2)ã' c = PEEK(y * 320 + x) + (SN((r * 30) MOD 360) \ (r \ 10 + 1))ã' IF c < 0 THEN c = 0ã' IF c > 250 THEN c = 250ã' POKE (y * 320 + x), cã' NEXT xã'NEXT yã'DEF SEG = (&HA000 + &H7D0)ã'FOR y = 1 TO 99ã' FOR x = 0 TO 319ã' r = SQR((x - 160) ^ 2 + y ^ 2)ã' c = PEEK(y * 320 + x) + (SN((r * 30) MOD 360) \ (r \ 10 + 1))ã' IF c < 0 THEN c = 0ã' IF c > 250 THEN c = 250ã' POKE (y * 320 + x), cã' 'POKE (y * 320 + x), SIN(r / 2) * (120 - (r \ 2)) + 128ã' NEXT xã'NEXT yãskipit:ã'FOR w% = 1 TO 9ã'CIRCLE (160, 100), w% + 35, 195ã'LINE (160 - w%, 100 - w%)-(120 + w%, 180 + w%), 195, Bã'NEXT w%ã'tim = TIMERããFOR D = 1 TO 1ã ã DEF SEG = (&HA000)ã ã FOR y = 1 TO 100ã FOR x = 0 TO 319ã ã s% = PEEK(y * 320 + x) + PEEK(y * 320 + x + 1) + PEEK(y * 320 + x - 1) + PEEK(y * 320 + 320 + x) + PEEK(y * 320 - 320 + x) '+ PEEK(y * 320 - 320 + x - 1) + PEEK(y * 320 - 320 + x + 1) + PEEK(y * 320 + 320 + x - 1) + PEEK(y * 320 + 320 + x + 1)ã s% = s% \ 5ã POKE (y * 320 + x), s%ã ã NEXT xã NEXT yã ã DEF SEG = (&HA000 + &H7D0)ãã FOR y = 1 TO 99ã FOR x = 0 TO 319ã ã s% = PEEK(y * 320 + x) + PEEK(y * 320 + x + 1) + PEEK(y * 320 + x - 1) + PEEK(y * 320 + 320 + x) + PEEK(y * 320 - 320 + x) '+ PEEK(y * 320 - 320 + x - 1) + PEEK(y * 320 - 320 + x + 1) + PEEK(y * 320 + 320 + x - 1) + PEEK(y * 320 + 320 + x + 1)ã s% = s% \ 5ã POKE (y * 320 + x), s%ã ã NEXT xã NEXT yãNEXT DããFOR y = 1 TO 100ã ym% = 320 * yã FOR x = 0 TO 319ã yd% = ym% + xã DEF SEG = (&HA000)ã e = PEEK(yd%)ã DEF SEG = vspã POKE (yd%), eã NEXT xãNEXT yãDEF SEG = (&HA7D0)ãFOR y = 1 TO 99ã ym% = 320 * yã FOR x = 0 TO 319ã yd% = ym% + xã DEF SEG = (&HA7D0)ã e = PEEK(yd%)ã DEF SEG = vsp2ã POKE (yd%), eã NEXT xãNEXT yãCLSãtim = TIMERãr:ãlpx% = 160ãlpy% = 100ãwv = 79ãDOããlpx% = rond((l% * 2) MOD 360).x + 160ãlpy% = rond((l% * 2) MOD 360).y + 100ããl% = l% + 1ãDEF SEG = (&HA000)ãu1 = lpy% - wvãl1 = lpy% + wvãr1 = lpx% + wvãle1 = lpx% - wvãIF r1 > 320 THEN r1 = 320ãIF le1 < 0 THEN le1 = 0ãIF l1 > 100 THEN l1 = 100ãIF u1 < 0 THEN u1 = 0ãIF u1 > 100 THEN GOTO sktpããFOR y = u1 TO l1ã ym% = y * 320ã ly% = y - lpy%ã FOR x = le1 TO r1ã lx% = x - lpx%ã yd% = ym% + xã DEF SEG = vspã c% = PEEK(yd%) - 125ã ny% = (PEEK(yd% + 320) - c% - ly%)ã nx% = (PEEK(yd% + 1) - c% - lx%)ã IF nx% < 10 OR nx% > 240 THEN nx% = 1: GOTO kã IF nx% > 125 THEN nx% = 125 - ABS(125 - nx%)ã IF ny% < 10 OR ny% > 240 THEN ny% = 1: GOTO kã IF ny% > 125 THEN ny% = 125 - ABS(125 - ny%)ã DEF SEG = &HA000ã POKE (yd%), mp(nx% * 125 + ny%)ãk:ã NEXT xãsky:ãNEXT yãsktp:ãDEF SEG = &HA7D0ãu2 = lpy% - wv - 100ãl2 = lpy% + wv - 100ãIF l2 > 99 THEN l2 = 99ãIF u2 < 0 THEN u2 = 0ãIF l2 < 0 THEN GOTO skbtãFOR y = u2 TO l2ã ym% = y * 320ã ty% = y + 100ã ly% = ty% - lpy%ã FOR x = le1 TO r1ã lx% = x - lpx%ã yd% = ym% + xã DEF SEG = vsp2ã c% = PEEK(yd%) - 125ã ny% = (PEEK(yd% + 320) - c% - ly%)ã nx% = (PEEK(yd% + 1) - c% - lx%)ã IF nx% < 10 OR nx% > 240 THEN nx% = 1: GOTO sã IF nx% > 125 THEN nx% = 125 - ABS(125 - nx%)ã IF ny% < 10 OR ny% > 240 THEN ny% = 1: GOTO sã IF ny% > 125 THEN ny% = 125 - ABS(125 - ny%)ã DEF SEG = &HA7D0ã POKE (yd%), mp(nx% * 125 + ny%)ãs:ã NEXT xãsky2:ãNEXT yãskbt:ãLINE (le1, u1)-(r1, l2 + 100), 0, BãLINE (le1 - 1, u1 - 1)-(r1 + 1, l2 + 101), 0, BãLINE (le1 - 2, u1 - 2)-(r1 + 2, l2 + 102), 0, Bãa$ = INKEY$ãIF a$ = CHR$(27) THEN GOTO 12ã'IF a$ = "6" THEN lpx% = lpx% + 2ã'IF a$ = "4" THEN lpx% = lpx% - 2ã'IF a$ = "2" THEN lpy% = lpy% + 2ã'IF a$ = "8" THEN lpy% = lpy% - 2ããLOOPã'GOTO rã12ãq = l% / (TIMER - tim)ãDEF SEGãCLSãFOR i% = 1 TO 255ãOUT &H3C8, i%ãOUT &H3C9, 63ãOUT &H3C9, 63ãOUT &H3C9, 63ãNEXT i%ãSCREEN 12ãPRINT qãDOãLOOP UNTIL INKEY$ = ""ãPRINT "FAST ANIMATED BUMP MAP BY DANNY BEARDSLEY (made in QB4.5)"ãPRINT "COMPILE ME! 5 TIMES FASTER"ãPRINT "COMPILE ME! 5 TIMES FASTER"ãPRINT "COMPILE ME! 5 TIMES FASTER"ãPRINT "_______________________________________________________"ãPRINT " This is a VERY! fast animated bump routine"ãPRINT " If you COMPILE it will be !!!5 times faster!!!!"ãPRINT " it is very delicate dont mess up the source"ãPRINT " If you want more code for other amazing feats then"ãPRINT "-------------------------------------------------------"ãPRINT "Email: dsb@cyberdude.com"ãPRINT "Homepage: www.dnai.com/~beards"ãPRINT "FREEWARE (just put my name in somewhere if you use it {:-)"ãSLEEPããENDããREM $STATICãSUB initãSCREEN 13ãFOR y% = 0 TO 125ã LOCATE 1, 9ã PRINT CINT(y% / 1.25); "%"ã FOR x% = 1 TO 125ã nx = (x% - 125) / 125ã ny = (y% - 125) / 125ã nz = 1 - (SQR(nx ^ 2 + ny ^ 2) * 1.5)ã IF nz < 0 THEN nz = 0ã mp(x% * 125 + y%) = CINT(nz * 250)ã NEXT x%ãNEXT y%ã'EXIT SUBã'FOR y% = 0 TO 100ã' LOCATE 1, 9ã' PRINT y%; "%"ã' FOR x% = 0 TO 320ã' nx = (x% - 160) + .00001ã' ny = (y% - 100) + .00001ã' nz = SQR(nx ^ 2 + ny ^ 2) + .000001ã' a = ATN(nx / ny) + ((180 - nz) * .002)ã' qx = (SIN(a) * nz) MOD 320ã' qy = (COS(a) * nz) MOD 200ã' IF qy < 0 THEN qy = 200 + qyã' IF qx < 0 THEN qx = 320 + qxã' rd(x%, y%) = qy * 320 + qxã' NEXT x%ã'NEXT y%ã'ãEND SUBããDEFINT A-ZãSUB Newcolor (XA, YA, x, y, XB, YB) 'puts a new color based on averageãIF POINT(x, y) <> 0 THEN EXIT SUBãavg = ABS(XA - XB) + ABS(YA - YB)ãCOLOUR = (POINT(XA, YA) + POINT(XB, YB)) / 2 + (RND - .5) * avg * 3ã IF COLOUR > 250 THEN COLOUR = 250ã IF COLOUR < 1 THEN COLOUR = 1ãPSET (x, y), COLOURããEND SUBããDEFSNG A-ZãSUB plasmaãDEF SEG = (&HA000)ãPOKE (0), RND * 250ãPOKE (320), RND * 250ãDEF SEG = (&HA000 + &H7D0)ãPOKE (100 * 320), RND * 250ãPOKE (100 * 320 + 320), RND * 250ãã'use Set13Pixel to plant "seed" pixels here, if wantedãã't# = TIMERãSplitbox 0, 0, 320, 320ãEND SUBããDEFINT A-Zã'ãSUB Splitbox (X1, Y1, X2, Y2) 'this is the main subroutineã 'ãIF (X2 - X1 < 2) AND (Y2 - Y1 < 2) THEN EXIT SUBããx = (X1 + X2) / 2ãy = (Y1 + Y2) / 2ããNewcolor X1, Y1, X1, y, X1, Y2ãNewcolor X1, Y2, x, Y2, X2, Y2ãNewcolor X2, Y2, X2, y, X2, Y1ãNewcolor X2, Y1, x, Y1, X1, Y1ãIF POINT(x, y) = 0 THENã COLOUR = (POINT(X1, Y1) + POINT(X2, Y1) + POINT(X1, Y2) + POINT(X2, Y2)) / 4ã IF COLOUR > 250 THEN COLOUR = 250ã IF COLOUR < 1 THEN COLOUR = 1ã PSET (x, y), COLOURãEND IFããSplitbox X1, Y1, x, yãSplitbox x, Y1, X2, yãSplitbox x, y, X2, Y2ãSplitbox X1, y, x, Y2ããEND SUBãDanny Beardsley FAST STARS (SPRAYING EFFECT) beards@dnai.com 08-28-97 (13:59) QB, QBasic, PDS 69 1722 SPRAY.BAS SCREEN 13ãDEF SEG = (&HA000 + &H7D0)ã'DEFINT A-ZãDIM num AS INTEGERãDIM i AS INTEGERãnum = 5000ãTYPE pntã x AS INTEGERã y AS INTEGERã xs AS INTEGERã ys AS INTEGERãEND TYPEãDIM p(5000) AS pntãFOR i = 1 TO 50ã OUT &H3C7, i ' Slots 0-15ã OUT &H3C9, 0ã OUT &H3C9, 0ã OUT &H3C9, iã OUT &H3C7, i + 50' Slots 0-15ã OUT &H3C9, iã OUT &H3C9, iã OUT &H3C9, 50ãNEXTãFOR i = 1 TO numã p(i).x = 16000ã p(i).y = 9000ã p(i).xs = RND * 120 - 60ã p(i).ys = RND * -90 - 40ãNEXT iãtim = TIMERãDOãRANDOMIZE TIMERãFOR i = 1 TO numãPOKE ((p(i).y \ 100) * 320 + (p(i).x \ 100)), 0ãIF p(i).y > 9200 THENã p(i).x = 16000ã p(i).y = 9000ã p(i).xs = RND * 120 - 60ã p(i).ys = RND * -90 - 40ãEND IFãp(i).y = p(i).y + p(i).ysãp(i).x = p(i).x + p(i).xsãp(i).ys = p(i).ys + 1ãPOKE ((p(i).y \ 100) * 320 + (p(i).x \ 100)), p(i).ys \ 2 + 35ãNEXT iãw% = w% + 1ãLOOP UNTIL INKEY$ = CHR$(27)ãPRINT w% / (TIMER - tim)ãSLEEPããDOãLOOP UNTIL INKEY$ = ""ãSLEEPãPRINT "FAST STARS BY DANNY BEARDSLEY (made in QB4.5)"ãPRINT "COMPILE ME! 10 TIMES FASTER"ãPRINT "COMPILE ME! 10 TIMES FASTER"ãPRINT "COMPILE ME! 10 TIMES FASTER"ãPRINT "_______________________________________________________"ãPRINT "This is the fastest STAR routine that I have ever seen."ãPRINT " If you COMPILE it will be !!!10 times faster!!!!"ãPRINT " This true movement (800) stars (not just incremented)"ãPRINT " If you want more code for other amazing feats then"ãPRINT "-------------------------------------------------------"ãPRINT "Email: dsb@cyberdude.com"ãPRINT "Homepage: www.dnai.com/~beards"ãPRINT "FREEWARE (just put my name in somewhere if you use it {:-)"ãSLEEPããENDãDanny Beardsley FAST STARS (COMING AT YOU) beards@dnai.com 08-28-97 (13:59) QB, QBasic, PDS 63 1935 STARS.BAS ' $DYNAMICãPRINT "Start 800 stars up/down control number"ãSLEEPãSCREEN 12ãTYPE starã x AS SINGLE'INTEGERã y AS SINGLE'INTEGERã z AS SINGLE'INTEGERãEND TYPEãDEFINT A-FãDIM star(1800) AS starãRANDOMIZE TIMERãdiv = 1000ãtim = TIMERãstrz = 800ãDOãFOR f% = 1 TO 3ãFOR i% = 0 TO strzã ã 'wh% = ((star(i%).z - div) \ 20)ã 'LINE (star(i%).x, star(i%).y)-STEP(wh%, wh%), 0, BFã PSET (star(i%).x, star(i%).y), 0ã IF star(i%).x > 640 OR star(i%).x < 1 OR star(i%).y > 480 OR star(i%).y < 1 THENã RANDOMIZE TIMERã star(i%).x = RND * 640ã star(i%).y = RND * 480ã star(i%).z = divã END IFã star(i%).z = star(i%).z + 1ã star(i%).x = (((star(i%).x) - 320) * (star(i%).z / div)) + 320ã star(i%).y = (((star(i%).y) - 240) * (star(i%).z / div)) + 240ã 'wh% = ((star(i%).z - div) \ 20)ã 'LINE (star(i%).x, star(i%).y)-STEP(wh%, wh%), , BFã PSET (star(i%).x, star(i%).y)ãNEXT i%ãnum = num + 1ãIF MID$(INKEY$, 2, 1) = "H" THEN strz = (strz + 50) MOD 1800ãNEXT f%ãIF MID$(INKEY$, 2, 1) = "P" THEN strz = (strz - 50): CLS : IF strz < 1 THEN strz = 1ãLOCATE 1, 1ãPRINT strzãLOOP WHILE INKEY$ <> CHR$(27)ãLOCATE 1, 1ãPRINT num / (TIMER - tim)ãDOãLOOP UNTIL INKEY$ = ""ãSLEEPãPRINT "FAST STARS BY DANNY BEARDSLEY (made in QB4.5)"ãPRINT "COMPILE ME! 10 TIMES FASTER"ãPRINT "COMPILE ME! 10 TIMES FASTER"ãPRINT "COMPILE ME! 10 TIMES FASTER"ãPRINT "_______________________________________________________"ãPRINT "This is the fastest STAR routine that I have ever seen."ãPRINT " If you COMPILE it will be !!!10 times faster!!!!"ãPRINT " This true movement (800) stars (not just incremented)"ãPRINT " If you want more code for other amazing feats then"ãPRINT "-------------------------------------------------------"ãPRINT "Email: dsb@cyberdude.com"ãPRINT "Homepage: www.dnai.com/~beards"ãPRINT "FREEWARE (just put my name in somewhere if you use it {:-)"ãSLEEPããENDãDavey W. Taylor FLAGDRAW (FLAG EDITOR/VIEWER) audio.squad@mailbox.swipnet.se 09-02-97 (15:36) QB, QBasic, PDS 198 13169 FLAGDRAW.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"FLAGDRAW.ZIP",4^6:Z&=9619:?STRING$(50,177);ãU"%up()%9%%%R-%eP%3Hng87aj67%%+h%%%-%%%%kq%flSgRfx&*$dAGB,Awt)3h_ãU"1J#(7UOr'rVRN.S_UA'2MOxQMHHr^+Xc:0VPNdC.uYrnZLjc;ãU"r\=^ql'Q=kPtGKWR=/7:u;*#Df2U_8]:X+)BP:c7BI5dL&*)G;92C:=#ek:/;E.ãU"x02Ll*g/kgIMc11:^4SR5^\4XF4UM6u6'OKE&/_9B+?L)%e^2GohPT)KY0Fx3Z5ãU"R-HckGoV8P6lXpB$ww'uF&K1w\?l'F/S3SIX)vXL6n4QgQ)2ãU"5?>pJ6Yd6G8wlQ)9gch7[wG&%B(iHHOr)ax=/bHnAYI[+]]D_SdNanM%=s;6UBhrãU"8Og4mVn\L[;XIT32uZqxAL2E%u%gO]hG[Zlmgh^+pYR=K7xVrD\75Rv76Z.GViUO%D?#BGtaU<(1Q9H5Q,K3n-$V/51rpvs&ãU"Dp?VUB3(2pj-o8xP]&PW\oR/k?2G,Q\Rtuq,\2*=AM;wY\qXvKuQM=j$FKsAãU"CHSFm(elgc5vbe^Z2X;aKH2NJ2:R<>bu$/2DK]?F?37.&9spPq$V=YN-ãU"qYToGB_L6T__wv(VrTZx9l*?LAt+1J_yx/IARiRvi2=;EYhb[OHw'^U=[[Ez.mpãU",G;dcMz;7cZApoza*b[O1tRz*N9-Y.e184P;0#J<2>5/mU1Li^1\06b7_SxRpO?REc;X9u=Hg(.Y.3=A?d%5l5V[tEn*VG&W>$k.I.%LtaJ=d9QuPãU"QLf'rhbD8#2SO[6,=q()+h%9PVdd[Fq0uM(6pVj$x>SUFKj+w(ihFOK=j>/kw%X+L&er.)FNHJfwWZãU"esAX1/_HTEVN3XDFMAPq?HFJK7j^'>tFLfwc&DdTIHcZ:0HliPEkoV6)w2\<7FoãU"#u2n-YJ60/)1.*;2*aYt36\TmdKbZZUfR?HZ-ASy*_%NTNMIfW4_Hj_TCrTM%JxãU";U1NAZg'2PyW%G[Rt69?a_.AYTic7/RPA_lqij^W5K=OeSLZBFF%#PG\xpiQSMQãU"ZaHxYfe,A-F$=e#=fzwS2%B,p')1NU#cA5$[FBf>UxDm(8=(.D8de)&tE2_BVqmãU"P[qsELMT+8v?DMAEDbbnu&,moK2Mgl?WT4[p8l[-p',x?wOEL0EKSJbb1nu,mdoãU"Kl?&rUGSS1c6WoRWsf9Y3jO[S1f%/15z=]=O+*iSSg(OsOJIMrEL*Q8vGbA&h*aãU"fu)DRAXJbMA.ihr9gE'M3hCVJK%$VzuS#DD64s4^BedF$]j:Bo+BH&k7D?eE[gJ_2*#]oB+^\oG+,r2FJRnqbY#FC+FjRnspI\V$?$HãU"rTy$A6:;0]g4O>TuEr9&L*BO\)vCoLi#VUIAr9d2W;r,tI_[rD-_OmI5im7ykuPn1rC+IGEMbl]vdPn%X+3Iq&1mBO/ScBw_<6MDe,aebs5I%_8o/(=->?[wãU"EW,T6DQP*?+J_1CyS$53$pUIq-+s/+:D#;ys]-6\j)i'iC^\B;S=u7-r-Lwt6uhãU"Wi/e%X\2l_*.I8:'#UHHYL7MwDjTo0Z(LkEL/CrH.'RHn_^kH<;j:on0ZCv?%&6q]K#kQ63RGlK.=2BãU"oVPo\A\,dneEx#ZHYaQovtYtMdT/tYP_Bg]Sbk2ULA+=V5>ae\r>xjuhgBpC3Q8ãU"/Nr-DVgc#:$?E>U>=27,:BJN6Xn_CJA5C(K4g,LY7?rV-;RKU#pd9.BEcj/)M'N2ãU"3:^nTxVcX+qHgULU;7nXK2Wxp;gj;Y\2aVnBC:2XB8:=dTXZ&dHhY2aIiM8]uJNãU"E#p6GA+15Jq=2And[K#/;Wl>lxrlHsrDwVS#bxLr*+v,NW7--t,XUW\LQiAb.-JãU"U16sZe\uJ93(tu09kmj)0>zFRbR9O:dW'[g':'OC=G_JIyY-TVa>y?\NE.\xx(%ãU"q:Zr2jZ](C6u6HWb3U$vay'('._t&v&j*^UD(06]:5O#.rXe4N0TouN8/w#Sx9?ãU"kkv:x?h7r0C9Mi,PJ&V0=#ic4hV_vWZ6Idc>E;Q&-gbq5N7EVlY&qSIF=-vYpx;ãU"2IUOOI06&).m,QOh>^)TYG7Kq)D&[WSEiZSmh-R7,tkUU/NT/,X_2vsnjj'J#1_G+%Vk&&cOY+L5XyãU"Apv7i;D87b;>Q1:oU1iTsn6jL:'ga>[Ci^z*SQ+dF:i[;2&2KA1utf:PLT'JpwZ'0bJsNP0mW6cD/3su3Lfif4gãU"S5+w[QO%a=,tay>Df4mVDt'M/M4W#+#^EEx(oDav-pi]MO.iA[IEM)rE[jyKdK8ãU"kOPk:88KfTd9H1mOpeqD_ljAMq=J.Nd3Wv;6mgPM)3,dq+dP&uyM/\DB8B:H0#RãU"_(n#N^Y438,s4U8NNDuhK^Vk#0[OenJ3%1pE8be+,DnW,nG*b&a0#_dlo((p;gkãU"m&yg,5?j[Y](VtOaY4UGdi%u?n_G;X\^HY50e+R#uQBe5Ha^L61hm2gLSKsP#ãU"[%=1tYlgD8ubo_'L'gSSFC*hV4-OKs7J(SO\j)xq;ug1LVScV*Od&w\C9mkeBeEãU"bTC3cNZVQ%?&k'bw\q-hq*t^8*:ddbW8Z2:xgfYL:TD6sH)'l8-Ut8t9IA8(te-ãU"mAG7AI;qhp,i+8OKa\$_^H%6T(hqfrHf&T%/5oy/A=J%qMg)e\%I:wZãU":>4t;l6&JFKmu3S(HfO5?i+sq6gpx9[GbH660\CC<6>TnPIwA*/dW[5\=i+''f3ãU"/Oo*$<9:rD,Qo?nW%hH>K1j2x6<*Y&IppRjd:D2csF4Qf8CU4v[9v/Hk)[BT'ZnãU"kJ$6c,5Y3cXmhe2Bbapfs.N(]u]j'?$R,QQL)\z&B-G.N5vgm);ZuvEgUx2>8(TãU"/J/UFZr/AE6:F;t80>Y:G(^WNwN-XDwY;?nthr_zN[UqJ#<+-fAUYHVp/n5R9,aãU")OI9CwoBbo2gJT1kn\.)WnhXZOdg-TiSzHUYkX_u^PPãU"B+lu2'_%LUvMp..Q:W8pc4x)g,h:-^DssdxW38on$vgSG[*\ZQI[%+)7j>Is5CQ-/]p8Y_8&xPBãU"3>K=?M6h514>>(CaX*5#VW]ovumfI0GI:HdLJA\dTFZZm4*+M[?E82[ZK.*+pI.ãU"DTj1n['Gt&\,:(yD$bpIqWj&[\Yd>1UfC\wKf&d#rsgR^%Mfpfy>lW0G-]h1YYqãU"e4\Ea64Hi#?\,tB8:zA:IX8a/rp5y>1*vGXx)aCt$jO,Rd2E3wC9\.[IcQsGmV#5#q-cS0tO?.ddBSQVMK]k];YLbbk4QNK0wi=zBx(ogãU"tD(hRn8*/-cHO*>:<%Wte#By&e2)UR'.HmVaq\+mj2DwgXEcGpp97S1LNv(5;5/ãU"+)(SjkP#Am(wdk'YwJ,eSdiQXUssFRwR4NUWh0_4yopl%jOASY>u1gk&&QXTEgaãU"qm2p6mR*4\vLB$5t6Bx]m3C?\,]lf_mqS/Isj#l%Xr$l.rGGP5O[y\Pw#Cz<:&ZãU"]arxS+=AQI#iHA7'L%6C8>yWn^Nqk21#^)kRH7INn6L^es/(&r6m4VonW>GpWOqãU"lMIR4nn7&+OG*nE,r/d\4-JM(5n0i<%Ns:^:,=6\1bB/*KReg'fEu$DLhVeU05:ãU"?MqMxEP3]:1v:C?0l.14\*hL\]K5>)=j/mAj210+=OB7Ca$t,vh17?3TY$]_OhrãU"7D__^7hrF5Se,?D2q-4hi]oS%%%-%%%%jin%ySgfaxf?fb=[mkSNIWpB[r;g%F^cãU"Ka.TlyF29zPgg:kI1BdRvSq1Z)acu*ulioeqT1Q7L42>B*ehEBãU"L3+x/RK'Ks38U8Dblo8U_E]>]If\S^vU,:Z_rYg+r$uVvSi:]<<(uDh#HatTK1qãU"cKf7r6A;MreI?T6>NUN$$#/%lqn3fZk3CF/g-?*d$.H&AtaD.ri<6\*6oeXnv%eãU"0JO;o%mN_&[qQIe>IJjK&XZL3sXH6b]r>G1##pZo:0nOP]9C?FmWudJH^NpD5g>u_mbMejbdãU"ZAc>DQox9m..$2hipBIu;qgji&-Q<\k\pL:._L8KNe.X6GZS(3+u:FRR%6-0),-ãU"AY7urInf+qsJc^)#ql5u_zn2s5)Q24apsUc#1zzV;)r)lRz8//K0t#=J)3Utu))ãU"Pbe^7:*a-SB/'(:&o.keVHQIBRa%g+9W-Y7Ff%z/zLJ%EPIa9MHo.g'\M_7SsTkãU"e$->TIwTVUP^U*5=afJ\ScjaQ4_3d'6FB>YUG7S3Upo3TXltzL8MqrgdT[HWgOcãU"GYsoN]:&lomnTtqx;osbd_y.3CA79+%eC*nJcjR\l>F'==b29V=PeRSt8AQ7vScO]%GdfV>?m8W66c,wZ,r$]4qHcrfG6x)[CY:n?jtbL,_TTOLg;/(SãU"6Sa7tiN'Qu.)L1#$C1o#n&?RuO'Ys35YZkI&fn7L=:x8kmE?A-Uu7ãU"OSZ[p3qK/j&Y0ON^8/?l:d4E/YMMHi/PlhIiTcYoemw4\0[e2aIG3U:7L.P'dB,ãU"?/Mu^[0/X#u'&LCgcG9V(Y:ypLuC#4n>bH[Q/U$V;d9.0mH(=+vqW^n;fJ]R6y#ãU"US+n:1c+bPQh9x4o7zJAuo&XQa;LsaF^0j7:utHmz+c'6;5=eN:[I]tX22YpqKIãU"mcoi0-.$BDYPQdp5&wNlp1yCv\7aMj(G$b.HB?ZOC1]^Sl]aXmu*UM+N0S+XDKEãU"1xgB#Oo+ZVQ_Gi/m'o[]h$W\R8RbC3UoKAVObpsdYDKL.=a[rT;j6MxNtLMEãU"b2=e\*vwFI0\[zuK-HZ'SK0iw+JGICeB[X1IjM2&)tT>)N=B1MLNaDBhi&IBs'LR&GA,k.f*:c+u++PNsMlZ=QEDgxRf(G*9/&ãU"q4QHird(IDCrYs$?M*.(\4_ud8A,0mZ(7h=Z3f/:Y00I>A?'iZ7d:\S<^,.2n8pãU"\[Iah^b7szbQtW8DfD8dl[^H6I^deH2>[Eeuf=i*5%K,P'42fr_VSFYN]#(K<,xãU"k]nb0$'ZmZA,v5[iGO^jL4.$sha*mJ;^RCueeR765jC#)$S2a4XR$JO.\HOMe3jãU".n]nlRmgG:V6V4_^5Xu%m^s[%'Wg^HIKLfaMHoKgw=KvHyp3ROqB]5u2D:Lk:n%sNFFPY-07fCxKU0Qe+-Pj]M^/(mU*:oP(l?Bn'M\6h5RwH&:ãU"WM>mcB,YLwMu_2xD)J*(li.rOGz2tuoR>d05eIG5M=0ppcgkH&-YMb=7L5UrmlCãU".p8$PSYS'G,j2P3NWFp:kSwKte8)FdMS9jp$U1EV2L)t-=hNAi3pV^[DQNK0h9TãU"3sfTlUg,eo9g6KCh1.C'[eif1X85grpXL_CL6.*PzYZRc_G/eDGpãU"R,1HCiuTXFkYE?HDlb/wEGs',h1bO7k+JD42(]uSOWHJ3c;ZNF38VMe..lo*-tdãU"Q*]c-p'kr9,=E_)f*pZ;Oi*Eys)^damM\6>'-])/1VpfZ4fSDtdzh#-[n2kdJQqãU":bee)p;;kH7=bF+T-.^T)q6%srHO06]k%X:R>jw>$VSfdO1'Q?k9VSYf?+4K*LyãU"1Mhq'BMt=4ZX?:SilQ0d=leqUE2qJ)UVxe\Q*Mcz6I\zrUY94DZ#vq8#b#twF:;ãU"&iKsFJG)+6UHkQKG8^(_tJ<[RtJbKxaPbimkm9>X/9n&)o.s(V^i&2q?dJE.u&dãU"=TEi;cMSKMnUgM0uM:k+-&%PVEx;>[?noaA6_Lx4JrB*(Cq%,bTULVB'3#e#JMkãU"V4hj3N#_wRRJ.p]GK23)jE]p[FLTUqM^V)(d8J:B+]^n#JQVtI^qxl%HT4Eu,cRGV#SK?&o'BV3s3ãU"Y19l^/$iFUj=pAXw3)tou9fGnSs=d(M]d]Fr$Ld*uKT,LAAjPg0+2P2o27s,O;/ãU"DWV1?g4oG>#=68h+v1EC%trI3,YAg7bd+a]0T5q*_$&cH=T3'h[W,PH5o^[^iFrãU"bEDgV<]F/Rs$.sCS^gp7cLMIhl\e#ma/=<_KpRa0Hx6rSI\F&5$^W<83h?[*Pn6ãU"-<2*dbs1%fwA2;I$=6\E_Z]Z;2I-8;6\$]JZBAS(3(g4qx&0ZThIH.Y,M_a7uH?ãU"[-loknl'7H(XsWdq\-Pl%F2]smrn]%dDB8t-OKfX_g[XmHFnDwbEshe_D:Ut.;BãU"bX*u6e+?VuY]$/VleIqY.I]/bke*#Jdi_\gqS^5*];w7,V^kru?ZHtE[hM:s+\fãU"]_0tS*QReVYL^T>XyqDocXYkNkI[E-uvvc^qfwXg:3d2guv2xwjEfKrXC,'9jNvãU"ql*2\]2nlVtZt#Y;Q,Dg.PPsDha],zl)VWA*]Fc(*0XRHnbDnBz*IVxG8DGUy+RãU"cr3/6bM9'o'pY0+.-FHT8n9>)3?R&>nAYkd'cd:7L.qq^'nJInu)&_hM3e(,\wDãU"u%p()9%%%%-1%'%)4H.]+%V=%%+%f%%%%/%%.%x&j%ijsS#rfu29]7\VA1''5)5ãU"5KM:ERBq.-u=*(:g%u%p()9%%%%-1%?g)+H/ns*.P%%(%<)%%%1%%%%gwn%yyfnãU"%sSrfLutc,(7OE-5SBhagh,rl,.'D:s\#NR9[juCJ/f?(;^<0=\ajXmd.SM\Qo*ãU"VxBqk)J,%#.5.1,->-':UKH>'-C12?x0nY#ZU^A:M<73^4s=\ao>/1u\^ãU"7*8qhtGx**Krn(.F2jYQAKa/GYr'qlErAp2MTu**anup%()9%%%%-%(0d*H/lFNãU"A'G%%%%*)%%%.%%%%rxit%xSrf1ulbv+7;U-Oi.lc,+:Tb]xR2)Z9?]vEKhyHT9ãU"'J6MJN-lIq;j,_^.82ZCw>+_kdyU?2/_=>L?$1HQ\/o*S[6EO/T0^Ze+^7uj%S6ãU"e7KB$h-d5e-LUvXteK_&S8zSgn9U'S0E/KM;TNWr>IX7u%p()9%%%%-1%V:)sH'=;%_=%%+%e%ãU"%%%0%%%%ijs%rfwp%Srfub2]7\(V1%'%[[[+dMEeBIk-_84S&g%%up()%9%%%I-ãU"%s:d)HET,JH=%7%%e%%%%0%%%%kn%sqfs%iSrf:u2]70\V1(%'KKK#[MEeBBi-_ãU"S8S&g%%up(%)9%%[%-%J\:)HL8A%o5[%%%e%%%%/%%%%k%wfsh%jSrf:u2]7K\VãU"1q1K/rK)/oK%%%up(%)9%%%%-%M&;)H]1Y\4F[%%%e%%%%0%%%%n%hjqf%siSrdãU"fu2]F7\V1M1112M//2Q%%Qq[%E%WFI9[Os2Oo0('?)%u%p()9%%%%-.%_;).H+MãU"y&P5%%+%e%%%%0%%%%nwj%qfsi%Srfub2]7\1V1sKD/rK/&uK%%%up()%9%%%#-ãU"%z;I)HIl+KsF%7%%e%%%%/%%%%stCw&f(%Srfub2]7\LV1//M/211)2O%Q%q[E%ãU"%WF9[MOsOo80(?)%%up(%)9%%#%-%4A;)Hg&Zc)6[%%%e%%%%.%%%%x%ufns%SrãU"fub2]7\LV1//&/+&+7U=/q%%up(%)9%%#%-%XA;)Hm3$h+E[%%%e%%%%,%%%%z%ãU"xfSrdfu2]F7\V1&Q%[+%[+K[R5(;32Q?7EO/,\Pm23b9%)%up%()9%%%%-%*Ph)ãU"H^qFHN%g%%%'P%%%%1%%%%rnsn%kqfl%SrfuV23N5L8011)51g50EEOK\UE]9eOãU"2WQ/OI[%p.O>R6QQ_9N9S_3Xv-*#gEx0\,Oc&nP0PP3FEU?g1+SDA&;%up%&'9%ãU"%9%%%R-%eP%3Hng87aj67%%+h%%%-%%%%%%%%%&%%E%%%%%%%%%kqfl%Sgfx%upãU"&'%9%9%%%%-%(oP3H,B-Gk'[0%%'>S%%%-%%%%%%%%%&%E%%%%<7%%%ji%nySg%ãU"fxup%&'9%%9%%%I-%'%R)H.]%+V=%7%%f%%%%/%%%%%%%%%&%%E%%%%DC%%(x&jãU"i%jsSr%fuup%&'9%%9%%%I-%?g7)H/n4s.P%.%%<)%%%1%%%%%%%%%%%%E%%%&.ãU"C%%%gwny%yfns%Srfu%up&'%9%9%%%%-%(0d*H/lFNA'G%%%%*)%%%.%%%%%%%%ãU"%%%E%%%%/D%%%rx%itxS%rfuu%p&'9%%9%%#%-%V\:)H'-=;_=[%%%e%%%%0%%%ãU"%%%%%%&%%E%%+%xD%%%ijs%rfwp%Srfu%up&'%9%9%%%%-%)s:)HkETJH%=%%%'ãU"e%%%%0%%%%%%%%%&%E%%%%eE%%%kn%sqfs%iSrf%uup&%'9%9%%%%-4%J:)4HLAãU"%'o5%%+%e%%%%/%%%%%%%%%&%E#%%%P%E%%k%wfsh%jSrf%uup&%'9%9%%%%-.%ãU"M;)#H]Y\&4F%%+%e%%%%0%%%%%%%%%&%E[%%%2%E%%n%hjqf%siSr%fuup%&'9%ãU"%9%%%#-%_;#)H+M(yP5%7%%e%%%%0%%%%%%%%%&%%E%%%%(F%%%nwjq%fsiS%rfãU"uu%p&'9%%9%%%%-%zA;)HI8lKsF[%%%e%%%%/%%%%%%%%%&%%E%%%%aF%%%stw/ãU"&f(S%rfuu%p&'9%%9%%#%-%4A;)Hg&Zc)6[%%%e%%%%.%%%%%%%%%&%%E%%(%TFãU"%%%xuf%nsSr%fuup%&'9%%9%%%I-%X;d)Hm$)h+E%7%%e%%%%,%%%%%%%%%&%%EãU"%%%'6F%%%zxfS%rfuu%p&'9%%9%%[%-%P&h)Hq8FHNg[%%%P%%%%1%%%%%%%%%&ãU"%%E%%%%'G%%%rns%nkqf%lSrf%uup*%+%%%%%3%3%%4(%(%=G%%%%%ãEND SUBãCLOSE:IF S=97AND 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ãSami Kyostila 3D FILLED POLYGON hiteck@mail.freenet.hut.fi 09-05-97 (19:51) QB, QBasic, PDS 913 25505 3DPOLY.BAS '----------------------------------------------------------------------------ã' 3D Filled Polygon by Sami Ky”stil„ 1997 - [v1.1]ã'----------------------------------------------------------------------------ã'ã' Here it is! My first real polygon engine! The sorting and cullingã' algorithms aren't the fastest/best ones around, since I had to makeã' up my own routines, because every other 3D-program I've seen had onlyã' 3 or 4 point polygons (This program can have polygons with virtuallyã' unlimited amount of points). This program doesn't apply any officialã' shading methods, only my own shading models (looks kewl, though ;),ã' but most importantly, it runs fast. It uses a virtual buffer to hold theã' VGA screen for flicker-free animation, but that takes up lots of memory,ã' so if you run out of memory, then adjust the MaxPoints(per polygon)/ã' MaxPolygons values below.ã'ã' Features:ã' - Polygons can consist of any number of pointsã' - Full 3-axis rotationã' - Filled and shaded polygonsã' - 5 different shading modes:ã' + Wireframeã' + Flatã' + Shaded 1ã' + Shaded 2ã' + Transparentã' - Backface culling and polygon Z-sortingã' - Double/Single sided polygonsã' - Disable/Enable culling during runtimeã' - Flicker-free animationã' - VGA 320x200x256 graphicsã' - Point number displayã' - Panningã' - Zoomingã'ã'---------------------------------------------[Made in FiNLAND]--------------ãããDEFLNG A-Z 'For speedãDECLARE FUNCTION PPoint% (x&, y&)ãDECLARE SUB TheEnd ()ãDECLARE SUB StartUp ()ãDECLARE SUB Separator (Col&, Char$)ãDECLARE SUB SetPal (i&, r&, g&, b&)ãDECLARE SUB DrawLine (x&, y&, X2&, Y2&, Col&)ãDECLARE SUB PPSet (x&, y&, Col&)ãDECLARE SUB RotatePoint (x&, y&, Z&, rX&, Ry&, Rz&, Nx&, Ny&, Nz&)ãDECLARE SUB t3d2d (x&, y&, Z&, Sx&, Sy&)ã ãTYPE Filltype 'Buffer to hold polygon dataã X1 AS LONGã X2 AS LONGãEND TYPEããTYPE Pointtypeã x3 AS LONG 'Original Xã y3 AS LONG 'Original Yã z3 AS LONG 'Original Zã x AS LONG 'Screen Xã y AS LONG 'Screen Yã Nx AS LONG 'New Xã Ny AS LONG 'New Yã Nz AS LONG 'New ZãEND TYPEããTYPE Polygontypeã Points AS LONG 'Number of pointsã AvgZ AS LONG 'Average Z coord.ã Col AS LONG 'Colorã Culled AS LONG 'Culled/Not Culledã Dbl AS LONG 'Single/Double sidedã ZNormal AS LONG 'For shading and cullingãEND TYPEããã'----------------------------------------------------------------------------ã' Constantsã'----------------------------------------------------------------------------ãCONST True = 0ãCONST False = NOT TrueãCONST Pi = 22 / 7ãCONST MaxPoints = 25 'Max number of points/polygon, adjust ifã 'low on memoryãCONST MaxPolygons = 30 'Max number of polygonsãããDIM SHARED Polygons, PointsãREAD Points 'Read max pointsãREAD Polygons 'Read max polygonsãDIM SHARED Zoom AS INTEGER 'Zoom factorãDIM SHARED Sine(360) 'SIN tableãDIM SHARED Cosine(360) 'COS tableãDIM SHARED Fill(199) AS Filltype 'Polygon data bufferãDIM SHARED Upper AS INTEGER ' Highest scanlineãDIM SHARED Lower AS INTEGER 'Lowest scanlineãDIM SHARED Vx, Vy, Vz 'RotationãDIM SHARED ShadingModel 'Shading modelãDIM SHARED Culling AS INTEGER 'Culling On/OffãDIM SHARED MaxZoom AS INTEGER 'Max Zoom levelãDIM SHARED Pnt(100) AS Pointtype 'Point arrayãDIM SHARED Sec(100) AS Polygontype 'Polygon arrayãDIM SHARED SecPnt(MaxPolygons, MaxPoints) 'Polygon point arrayãDIM SHARED Pointer(Polygons) 'Pointer for sortingãDIM SHARED AvgZ(Points) 'Z ArrayãDIM SHARED SrX, SrY 'Screen centerãDIM SHARED Mx, My 'PanningãDIM SHARED PDisp 'Number display (True/False)ãDIM SHARED Xr, Yr, Zr 'RotationããSCREEN 0: CLSãCOLOR 15, 4ãLOCATE 1, 1ãPRINT STRING$(80, " ")ãLOCATE 1, 1ãPRINT " 3D Filled Polygon Engine by Sami Ky”stil„ 1997"ãCOLOR 7, 0ãStartUpããDOã'----------------------------------------------------------------------------ã' Rotate all pointsã'----------------------------------------------------------------------------ã FOR i& = 1 TO Pointsã RotatePoint Pnt(i&).x3, Pnt(i&).y3, Pnt(i&).z3, Xr, Yr, Zr, x3, y3, z3ã AvgZ(i&) = z3ã t3d2d x3, y3, z3, Sx, Syã Pnt(i&).Nx = x3ã Pnt(i&).Ny = y3ã Pnt(i&).Nz = z3ã Pnt(i&).x = Sxã Pnt(i&).y = Syã NEXTããã ã ã'----------------------------------------------------------------------------ã' Calculate average Z values and cull non-visible polygonsã'----------------------------------------------------------------------------ãã FOR i& = 1 TO Polygonsã Sec(i&).AvgZ = 0ã NormalZ = 0ãã FOR i2& = 0 TO Sec(i&).Points - 2ã Sec(i&).AvgZ = Sec(i&).AvgZ + AvgZ(SecPnt(i&, i2&))ã NormalZ = NormalZ + (Pnt(SecPnt(i&, i2&)).Nz) * 10ã NEXTãã Sec(i&).AvgZ = (Sec(i&).AvgZ \ Sec(i&).Points) * 20ã NormalZ = NormalZ \ Sec(i&).Pointsãã IF NormalZ < NormalZ \ 10 THENã IF Culling = True AND Sec(i&).Dbl = 0 THENã Sec(i&).Culled = Trueã ELSEIF Culling = True AND Sec(i&).Dbl = 1 THENã Sec(i&).Culled = Falseã NormalZ = -NormalZã ELSEã IF NormalZ < 0 THEN NormalZ = -NormalZã END IFã ELSEã Sec(i&).Culled = Falseã END IFã Sec(i&).ZNormal = (NormalZ) \ 10ãã IF Culling = False THEN Sec(i&).Culled = Falseã NEXTã ã ã'----------------------------------------------------------------------------ã' Sort polygons by their average Z valuesã'----------------------------------------------------------------------------ã Closest = 32000ã Furthest = -32000ã FOR s& = 1 TO Polygons 'Find out closest/furthest polygonã IF Sec(s&).AvgZ < Closest THEN Closest = Sec(s&).AvgZã IF Sec(s&).AvgZ > Furthest THEN Furthest = Sec(s&).AvgZã NEXTãã Sort = 1ã FOR s2 = Closest TO Furthest STEP 2 'Loop from closest to furthestã '^ã 'Adjust this value to get moreã 'precise sorting/less speed (def:2)ã FOR s& = 1 TO Polygonsã IF Sec(s&).AvgZ = s2 THEN 'Found a match?ã Pointer(Sort) = s& 'Store itã Sort = Sort + 1 'Update counterã END IFã NEXTã NEXTããã Upper = 100 'Reset High/Low scanline valuesã Lower = 100ããã'----------------------------------------------------------------------------ã' Create a buffer to serve as page in VGA 320x200x256 modeã'----------------------------------------------------------------------------ã DIM SHARED Buffer(0 TO 32001) AS INTEGERã Buffer(0) = 2552ã Buffer(1) = 199ããã'----------------------------------------------------------------------------ã' Calculate polygonsã'----------------------------------------------------------------------------ã FOR ii& = 1 TO Polygonsã i& = Pointer(ii&) 'Get sorted pointerã IF Sec(i&).Culled = False THEN 'Visible?ã FOR i2& = 0 TO Sec(i&).Points - 2ã Col = (Sec(i&).Col - 40 + (Sec(i&).AvgZ \ 16)) * 1024ã IF Col < (Sec(i&).Col - 60) * 1024 THEN Col = (Sec(i&).Col - 60) * 1024ã IF i2& < Sec(i&).Points - 1 THENã DrawLine Pnt(SecPnt(i&, i2&)).x + SrX, Pnt(SecPnt(i&, i2&)).y + SrY, Pnt(SecPnt(i&, i2& + 1)).x + SrX, Pnt(SecPnt(i&, i2& + 1)).y + SrY, Col \ 1024ã ELSEã DrawLine Pnt(SecPnt(i&, 0)).x + SrX, Pnt(SecPnt(i&, 0)).y + SrY, Pnt(SecPnt(i&, i2& + 1)).x + SrX, Pnt(SecPnt(i&, i2& + 1)).y + SrY, Col \ 1024ã END IFã NEXTã ã'----------------------------------------------------------------------------ã' Draw polygons into screen bufferã'----------------------------------------------------------------------------ã IF Upper <= 0 THEN Upper = 1ã DEF SEG = VARSEG(Buffer(2))ãã FOR i2 = Upper TO Lowerãã 'Calculate shadeã Range = (((Fill(i2).X2) - (Fill(i2).X1)) \ 2)ã IF Range = 0 THEN ColStep = 0 ELSE ColStep = ((30 / Range) * Sec(i&).ZNormal / 6) * 1024ã ColMax = (Sec(i&).Col - 1) * 1024ã Col = (Sec(i&).Col - 50 + (Sec(i&).AvgZ \ 16)) * 1024ã IF Col < (Sec(i&).Col - 60) * 1024 THEN Col = (Sec(i&).Col - 60) * 1024ãã 'Draw scanline into bufferã SELECT CASE ShadingModelã CASE IS = 5 'Transparentã FOR Fl& = (Fill(i2).X1) TO Fill(i2).X2ã TCol = ((PPoint(Fl&, i2) MOD 63) + (Sec(i&).Col) - 50) * 1024ã IF TCol > ColMax THEN TCol = ColMaxã PPSet Fl&, i2, TCol \ 1024ã NEXTã CASE IS = 4 'Shaded 2ã FOR Fl& = (Fill(i2).X1) TO Fill(i2).X2ã PPSet Fl&, i2, Col \ 1024ã Col = Col + ColStep \ 2ã IF Col > ColMax THEN Col = ColMaxã NEXTã CASE IS = 3 'Shadedã FOR Fl& = (Fill(i2).X1) TO ((Fill(i2).X2) - (Fill(i2).X1)) \ 2 + (Fill(i2).X1)ã PPSet Fl&, i2, Col \ 1024ã PPSet Fill(i2).X1 + Fill(i2).X2 - Fl&, i2, Col \ 1024ã Col = Col + ColStepã IF Col > ColMax THEN Col = ColMaxã NEXTã CASE IS = 2 'Flatã FOR Fl& = (Fill(i2).X1) TO ((Fill(i2).X2) - (Fill(i2).X1)) \ 2 + (Fill(i2).X1)ã PPSet Fl&, i2, Col \ 1024ã PPSet Fill(i2).X1 + Fill(i2).X2 - Fl&, i2, Col \ 1024ã NEXTã END SELECTããã 'Empty the keyboard bufferã a$ = INKEY$ã Fill(i2).X1 = 321ã Fill(i2).X2 = -1ã Fill(i2 - 1).X1 = 321ã Fill(i2 - 1).X2 = -1ã NEXTã END IFã NEXTãã'----------------------------------------------------------------------------ã' Dump buffer to screenã'----------------------------------------------------------------------------ã PUT (0, 0), Buffer, PSETããã 'Print Point numbersã IF PDisp = True THENã FOR i = 1 TO MaxPoints - 1ã Ty = (Pnt(i).y + SrY) \ 8 + 1ã Tx = (Pnt(i).x + SrX) \ 8 + 1ã IF Ty > 23 THEN Ty = 23ã IF Ty < 1 THEN Ty = 1ã IF Tx < 1 THEN Tx = 1ã IF Tx > 40 THEN Tx = 40ã LOCATE Ty, Txã PRINT LTRIM$(RTRIM$(STR$((i))))ã NEXTã END IFãããã'----------------------------------------------------------------------------ã' Handle keypressesã'----------------------------------------------------------------------------ãã DEF SEG = 0: k = INP(&H60)ã WHILE LEN(INKEY$): WEND 'Empty keyboard bufferã SELECT CASE kã CASE &H3B 'F1ã ShadingModel = 1ã CASE &H3C 'F2ã ShadingModel = 2ã CASE &H3D 'F3ã ShadingModel = 3ã CASE &H3E 'F4ã ShadingModel = 4ã CASE &H3F 'F5ã Culling = Trueã CASE &H40 'F6ã Culling = Falseã CASE &H41 'F7ã PDisp = Trueã CASE &H42 'F8ã PDisp = Falseã CASE &H43 'F9ã ShadingModel = 5ã Culling = Falseã CASE &H52 '0ã Zoom = 100ã Xr = 400ã Yr = 315ã Zr = 0ã Mx = 0ã My = 0ã CASE &H4C '5ã Vx = 0ã Vy = 0ã Vz = 0ã CASE &H1E 'Aã Zoom = Zoom - 10ã IF Zoom < MaxZoom THEN Zoom = MaxZoomã CASE &H50 '2ã Vx = Vx + 1ã CASE &H48 '8ã Vx = Vx - 1ã CASE &H4B '4ã Vy = Vy + 1ã CASE &H4D '6ã Vy = Vy - 1ã CASE &H4A '+ã Vz = Vz + 1ã CASE &H4E '-ã Vz = Vz - 1ã CASE &H2C 'Zã Zoom = Zoom + 10ã CASE &H17 'Iã My = My + 5ã CASE &H25 'Kã My = My - 5ã CASE &H24 'Jã Mx = Mx + 5ã CASE &H26 'Lã Mx = Mx - 5ã CASE 1 'ESCã EXIT DOã END SELECTãã'----------------------------------------------------------------------------ã' Update rotation velocitiesã'----------------------------------------------------------------------------ã Xr = Xr + Vxã Yr = Yr + Vyã Zr = Zr + Vzãã IF Xr < 0 THEN Xr = 360 + Xrã IF Yr < 0 THEN Yr = 360 + Yrã IF Zr < 0 THEN Zr = 360 + Zrã ERASE BufferãLOOPãããTheEndããã'----------------------------------------------------------------------------ã' Object dataã'----------------------------------------------------------------------------ã' I've included a hexagonal shape for the demo, but it may be too muchã' for some machines, so there is also a simpler cube shape at the end ofã' the data lines. To use it, REM the data lines of the hex-thingy.ããã'Number of pointsãDATA 16ãã'Number of polygonsãDATA 10ãããã' X Y Zã'ãDATA -15, -25, 15ãDATA 15, -25, 15ãDATA 30, -10, 15ãDATA 30, 5, 15ãDATA 15, 20, 15ãDATA -15, 20, 15ãDATA -30, 5, 15ãDATA -30, -10, 15ããDATA -15, -25, -15ãDATA 15, -25, -15ãDATA 30, -10, -15ãDATA 30, 5, -15ãDATA 15, 20, -15ãDATA -15, 20, -15ãDATA -30, 5, -15ãDATA -30, -10, -15ãã'----------------------------------------------------------------------------ã'Polygon data format:ã'----------------------------------------------------------------------------ã' First number - Specifies if the polygon is double sided (1:yes, 0:no)ã' A double sided polygon is never culled, ie It is visibleã' from all directionsã' Second number - Number of points in polygonã' Next n numbers - Index numbers of the points that form the polygonã' Make sure that the polygon is fully closed, otherwiseã' it won't be filled correctly:ã' For example (a filled square):ã' 5, 1, 2, 3, 4, 1ã' ^ ^ã' | |ã' 5 points return to first point to completeã' NOT 4! the polygon.ã'ã'ã' Last number - Color of polygonã' 1 - Whiteã' 2 - Redã' 3 - Greenã' 4 - Blueã'----------------------------------------------------------------------------ããã' Pts. Col.ã' | |ã' Dbl. | |ã' | | |ãDATA 0,9,1,2,3,4,5,6,7,8,1, 2ãDATA 0,9,9,10,11,12,13,14,15,16,9, 3ãDATA 0,5,1,2,10,9,1, 1ãDATA 0,5,2,3,11,10,2, 2ãDATA 0,5,3,4,12,11,3, 3ãDATA 0,5,4,5,13,12,4, 4ãDATA 0,5,5,6,14,13,5, 1ãDATA 0,5,6,7,15,14,6, 2ãDATA 0,5,7,8,16,15,7, 3ãDATA 0,5,8,1,9,16,8, 4ããã'----------------------------------------------------------------------------ã' Alternate object for slower machinesã'----------------------------------------------------------------------------ã' To use, REM the above data linesãã'Number of pointsãDATA 8ãã'Number of polygonsãDATA 6ããã'Point dataãã' X Y Zã'ãDATA 15, 15, 15ãDATA 15, -15, 15ãDATA -15, -15, 15ãDATA -15, 15, 15ãDATA 15, 15, -15ãDATA 15, -15, -15ãDATA -15, -15, -15ãDATA -15, 15, -15ããã'Polygon dataãã' Pts. Col.ã' | |ã' Dbl. | |ã' | | |ãDATA 0,5,5,8,4,1,5, 2ãDATA 0,5,6,7,3,2,6, 3ãDATA 0,5,1,2,3,4,1, 4ãDATA 0,5,1,5,6,2,1, 1ãDATA 0,5,3,7,8,4,3, 2ãDATA 0,5,5,6,7,8,5, 3ããSUB DrawLine (x, y, X2, Y2, Col)ã'----------------------------------------------------------------------------ã' Calculate the points of a polygon into the bufferã'----------------------------------------------------------------------------ãããIF x < 0 THEN x = 0ãIF x > 319 THEN x = 319ãIF X2 < 0 THEN X2 = 0ãIF X2 > 319 THEN X2 = 319ããIF y < 0 THEN y = 0ãIF y > 199 THEN y = 199ãIF Y2 < 0 THEN Y2 = 0ãIF Y2 > 199 THEN Y2 = 199ããIF y < Upper THEN Upper = yãIF y > Lower THEN Lower = yããã'Calculate deltas and scale by 1024ããSteps = SQR((X2 - x) ^ 2 + ((Y2 - y) ^ 2))ãIF Steps > 0 THENã XStep& = ((X2 - x) / Steps) * 1024ã YStep& = ((Y2 - y) / Steps) * 1024ãEND IFããTempxx& = xãTempyy& = yããxxx& = Tempxx& * 1024ãyyy& = Tempyy& * 1024ããDEF SEG = VARSEG(Buffer(2))ããIF ShadingModel = 1 THENã FOR i& = 1 TO Stepsã IF xxx& \ 1024 < Fill(yyy& \ 1024).X1 THENã Fill(yyy& \ 1024).X1 = xxx& \ 1024ã END IFã ã IF xxx& \ 1024 > Fill(yyy& \ 1024).X2 THENã Fill(yyy& \ 1024).X2 = xxx& \ 1024ã END IFã ã PPSet xxx& \ 1024, yyy& \ 1024, Col&ãã xxx& = xxx& + XStep&ã yyy& = yyy& + YStep&ã NEXTãELSEã FOR i& = 1 TO Stepsã IF xxx& \ 1024 < Fill(yyy& \ 1024).X1 THENã Fill(yyy& \ 1024).X1 = xxx& \ 1024ã END IFãã IF xxx& \ 1024 > Fill(yyy& \ 1024).X2 THENã Fill(yyy& \ 1024).X2 = xxx& \ 1024ã END IFãã IF ShadingModel = 1 THENã PPSet xxx& \ 1024, yyy& \ 1024, Col&ã END IFãã xxx& = xxx& + XStep&ã yyy& = yyy& + YStep&ã NEXTãEND IFãããEND SUBããDEFINT A-ZãFUNCTION PPoint (x&, y&)ã'----------------------------------------------------------------------------ã' Returns a pixel from the screen bufferã'----------------------------------------------------------------------------ããIF x& > 319 THEN EXIT FUNCTIONãIF x& < 0 THEN EXIT FUNCTIONããOffset& = VARPTR(Buffer(2))ãPPoint = PEEK(Offset& + (y& * 319&) + x&)ããEND FUNCTIONããSUB PPSet (x&, y&, Col&)ã'----------------------------------------------------------------------------ã' Writes a pixel to the screen bufferã'----------------------------------------------------------------------------ããIF x& > 319 THEN EXIT SUBãIF x& < 0 THEN EXIT SUBããOffset& = VARPTR(Buffer(2))ãPOKE Offset& + (y& * 319&) + x&, Col&ããEND SUBããDEFLNG A-ZãSUB RotatePoint (x, y, Z, rX, Ry, Rz, Nx, Ny, Nz)ã'----------------------------------------------------------------------------ã' Rotate a point in 3D spaceã'----------------------------------------------------------------------------ããSine1& = Sine(rX MOD 360)ãSine2& = Sine(Ry MOD 360)ãSINe3& = Sine(Rz MOD 360)ããCosine1& = Cosine(rX MOD 360)ãCosine2& = Cosine(Ry MOD 360)ãCOSine3& = Cosine(Rz MOD 360)ã ãããTEMPX& = (x * Cosine2& - Z * Sine2&) \ 1024ãTEMPZ& = (x * Sine2& + Z * Cosine2&) \ 1024ããZ2 = (TEMPZ& * Cosine1& - y * Sine1&) \ 1024ãTEMPY& = (TEMPZ& * Sine1& + y * Cosine1&) \ 1024ããX2 = (TEMPX& * COSine3& + TEMPY& * SINe3&) \ 1024ãY2 = (TEMPY& * COSine3& - TEMPX& * SINe3&) \ 1024ããããNx = X2ãNy = Y2ãNz = Z2ããEND SUBããSUB Separator (Col, Char$)ã'----------------------------------------------------------------------------ã' Prints a separator lineã'----------------------------------------------------------------------------ãããSELECT CASE ColãCASE IS = 1ã Col1 = 1ã Col2 = 9ã Col3 = 3ã Col4 = 11ã Col5 = 15ãCASE IS = 2ã Col1 = 2ã Col2 = 10ã Col3 = 14ã Col4 = 15ã Col5 = 15ãCASE IS = 3ã Col1 = 8ã Col2 = 7ã Col3 = 15ã Col4 = 15ã Col5 = 15ãEND SELECTããããCOLOR Col1ãPRINT STRING$(5, Char$);ãCOLOR Col2ãPRINT STRING$(5, Char$);ãCOLOR Col3ãPRINT STRING$(5, Char$);ãCOLOR Col4ãPRINT STRING$(5, Char$);ãCOLOR Col5ãPRINT STRING$(40, Char$);ãCOLOR Col4ãPRINT STRING$(5, Char$);ãCOLOR Col3ãPRINT STRING$(5, Char$);ãCOLOR Col2ãPRINT STRING$(5, Char$);ãCOLOR Col1ãPRINT STRING$(5, Char$)ããEND SUBããDEFSNG A-ZãSUB SetPal (i&, r&, g&, b&)ã'----------------------------------------------------------------------------ã' Sets a palette valueã'----------------------------------------------------------------------------ããOUT &H3C8, i&ãOUT &H3C9, r&ãOUT &H3C9, g&ãOUT &H3C9, b&ãããEND SUBããDEFLNG A-ZãSUB StartUpã'----------------------------------------------------------------------------ã' Read objects and print StartUp messageã'----------------------------------------------------------------------------ããPRINT " þ Calculating Sine/Cosine table..."ããã'----------------------------------------------------------------------------ã' Precalculate tables for speedã'----------------------------------------------------------------------------ãFOR i = 0 TO 360ã Sine(i) = SIN(i * Pi / 180) * 1024ã Cosine(i) = COS(i * Pi / 180) * 1024ãNEXTãããSrX = 320 \ 2 'Screen centerãSrY = 200 \ 2ãããZoom = 100 'Initial valuesãXr = 400ãYr = 315ãZr = 0ãMx = 0ãMy = 0ãPDisp = FalseãShadingModel = 3ãCulling = TrueãPRINT " þ Reading"; Points; "points..."ããã'----------------------------------------------------------------------------ã' Read object data (See end of program)ã'----------------------------------------------------------------------------ãMaxZoom = 0ãMinZoom = 0ãFOR i = 1 TO Points 'Read pointsã READ Pnt(i).x3, Pnt(i).y3, Pnt(i).z3ã t3d2d Pnt(i).x3, Pnt(i).y3, Pnt(i).z3, Sx&, Sy&ã IF Pnt(i).x3 > MaxZoom THEN MaxZoom = Pnt(i).x3ã IF Pnt(i).y3 > MaxZoom THEN MaxZoom = Pnt(i).y3ã IF Pnt(i).z3 > MaxZoom THEN MaxZoom = Pnt(i).z3ãã IF Pnt(i).x3 < MinZoom THEN MinZoom = Pnt(i).x3ã IF Pnt(i).y3 < MinZoom THEN MinZoom = Pnt(i).y3ã IF Pnt(i).z3 < MinZoom THEN MinZoom = Pnt(i).z3ãã Pnt(i).x = Sx&ã Pnt(i).y = Sy&ãNEXTããIF MaxZoom < 0 THEN MaxZoom = -MaxZoomãIF MinZoom < 0 THEN MinZoom = -MinZoomãIF MinZoom > MaxZoom THEN MaxZoom = MinZoomãMaxZoom = MaxZoom * 1.3ããPRINT " þ Reading"; Polygons; "polygons..."ããFOR i = 1 TO Polygons 'Read polygonsã READ Sec(i).Dblã READ Sec(i).Pointsã FOR i2 = 0 TO Sec(i).Points - 1ã READ SecPnt(i, i2)ã IF SecPnt(i, i2) > Points THENã PRINT " - Point"; SecPnt(i, i2); "in polygon"; i; "not found!"ã ENDã END IFã NEXTã READ Sec(i).Colã Sec(i).Col = Sec(i).Col * 64ãNEXTã ãSec(i + 1).Points = -1ãSeparator 1, "Ä"ãCOLOR 7ãPRINT , , " Keys"ãSeparator 1, "Ä"ãããCOLOR 3ãPRINT " Arrows/Numpad",ãCOLOR 7ãPRINT "- Control Rotation"ããCOLOR 3ãPRINT " J/K/L/I", ,ãCOLOR 7ãPRINT "- Translation (Doesn't quite work yet ;)"ããCOLOR 3ãPRINT " A/Z", ,ãCOLOR 7ãPRINT "- Zoom In/Out"ããCOLOR 3ãPRINT " 5/0", ,ãCOLOR 7ãPRINT "- Stop/Reset rotation"ããCOLOR 3ãPRINT " F1", ,ãCOLOR 7ãPRINT "- Select wireframe mode"ããCOLOR 3ãPRINT " F2", ,ãCOLOR 7ãPRINT "- Select flat mode"ããCOLOR 3ãPRINT " F3", ,ãCOLOR 7ãPRINT "- Select shade mode"ããCOLOR 3ãPRINT " F4", ,ãCOLOR 7ãPRINT "- Select shade mode 2"ããCOLOR 3ãPRINT " F5/F6", ,ãCOLOR 7ãPRINT "- Backface culling On/Off"ããCOLOR 3ãPRINT " F7/F8", ,ãCOLOR 7ãPRINT "- Point number display On/Off"ããCOLOR 3ãPRINT " F9", ,ãCOLOR 7ãPRINT "- Select transparent mode (Sets culling off)"ãããCOLOR 3ãPRINT " Esc", ,ãCOLOR 7ãPRINT "- Exit"ããSeparator 1, "Ä"ãSeparator 3, "Ä"ãCOLOR 9ãPRINT " You may use this code freely, as long as I am credited for it."ãSeparator 3, "Ä"ããDO: LOOP UNTIL INKEY$ <> ""ããã'----------------------------------------------------------------------------ã' Set paletteã'----------------------------------------------------------------------------ããSCREEN 13: CLSãFOR i = 0 TO 63ã SetPal i, i, i, iã SetPal i + 64, i, 0, 0ã SetPal i + 128, 0, i, 0ã SetPal i + 192, 0, 0, iãNEXT iããFOR i2 = 0 TO 199 'Initialize screen arrayã Fill(i2).X1 = 321ã Fill(i2).X2 = -1ãNEXTããããEND SUBããSUB t3d2d (x, y, Z, Sx, Sy)ã'----------------------------------------------------------------------------ã' Transforms 3D coordinates into 2D screen coordinatesã'----------------------------------------------------------------------------ãããIF Z - Zoom <> 0 THEN Sy = (y + My) * 60 \ (Z - Zoom)ãIF Z - Zoom <> 0 THEN Sx = (x + Mx) * 60 \ (Z - Zoom)ããEND SUBããSUB TheEndã'----------------------------------------------------------------------------ã' Ending messageã'----------------------------------------------------------------------------ããSCREEN 0: CLSãWIDTH 80, 25ãCOLOR 15, 4ãLOCATE 1, 1ãPRINT STRING$(80, " ")ãLOCATE 1, 1ãPRINT " 3D Filled Polygon Engine by Sami Ky”stil„ 1997"ããCOLOR 3, 0ãPRINT " Final location of points:"ãSeparator 1, "Ä"ãCOLOR 11ãPRINT " X", " Y", " Z"ãSeparator 1, "Ä"ãCOLOR 7ãFOR i& = 1 TO Pointsã PRINT Pnt(i&).Nx,ã PRINT Pnt(i&).Ny,ã PRINT Pnt(i&).NzãNEXTãSeparator 1, "Ä"ãCOLOR 14ããLOCATE 6, 40: PRINT "String Space:", FRE("")ãLOCATE 7, 40: PRINT "Stack Space:", FRE(-1)ãLOCATE 8, 40: PRINT "Array Space:", FRE(-1)ãLOCATE 9, 40: PRINT "Shading mode:", ShadingModelãCOLOR 7ããEND SUBãSami Kyostila DOOMED V3.2 (RAYTRACER) hiteck@mail.freenet.hut.fi 09-05-97 (20:15) QB, QBasic, PDS 1424 37439 DOOMED.BAS '-------------------------------------------------------------------ã' DooMed Raytracer v3.2 for QBasicã'ã' by S A M i K Y ™ S T i L Žã' ã' ã' 1 9 9 7ã' ã'ã' Well, I finally finished my first raytracer. It's still has some bugs,ã' but it works! And it's quite fast also (around 30 fps on my Cx6x86 P150+)ã' This is the only QBasic raytracer I've seen with distance shading andã' a map mode. Special thanks to Peter Cooper for his DOOM RayCasterã' (modified by A LOT of people), it helped me to get the basic idea behindã' raytracers.ã'ã' If You have any questions, comments, bugfixes, etc. please mail them to:ã'ã' hiteck@freenet.hut.fiã'ã' or:ã'ã' kemple.oy@mbnet.fiã'ã' or contact hiteck in IRCã'ã'ã' You may use this code freely, as long as the original author is credited.ã'ã'-------------------------------------------------------------------ãããã'-------------------------------------------------------------------ã' Known bugsã'-------------------------------------------------------------------ã'ã' - Texture-engine sometimes shows a large block in the middle ofã' the screen.ã' - Sprite-engine has some alignment problems.ã' - If the Viewwidth-constant is changed, sometimes the screen won'tã' center properly and will have alignment problems. 40 or 30 works fine.ã' (or even 100, if you want a bug-eyed effect ;)ã' - Different screen sizes may cause screen alignment errors.ã'ã'-------------------------------------------------------------------ããã'-------------------------------------------------------------------ã' Revision historyã'-------------------------------------------------------------------ã'ã'v1.0ã'====ã'ã' The first and the slowest version of them all. Still used screenmode 7.ã' Around 0.5 fps, with textures 0.1 fpsã'ã'v2.0ã'====ã'ã' Rewrote the whole engine, but now it's a Doom-style thingy, with polygonalã' sectors. Actually this is now a separate project, since it's completelyã' different from the other versions.ã'ã'ã'v3.0ã'====ã'ã' Rewrote the whole engine again. Now it uses screenmode 13 with distanceã' shading. Added all the tables, so no floating point calculation was usedã' during rendering process. Had a simple map mode. Also had texture- andã' sprite-engines.ã'ã'ã'v3.1ã'====ã'ã' Added even more lookup tables for speed. Rewrote map mode and keyboardã' handler. Added Intro screen. Added compass. Added framecounterã'ã'v3.2ã'====ã'ã' Added distance shading to map mode. Added Exit screen and error handler.ã' Optimized speed. Fixed most of texture-engine's bugs. Added a colorã' lookup table. Fixed some alignment bugs with map mode. Added strafeã' and run keys. Runs at a playable speed. Fixed some sprite-engineã' bugs.ã'ã'-------------------------------------------------------------------ããDECLARE SUB ShowExit ()ãDECLARE SUB Update ()ãDECLARE SUB DrawScreen ()ãDECLARE SUB Smooth (xpos&, YPos&, XLen%, YLen%, Times!, Rate!, Lowest!)ãDECLARE SUB DrawMap ()ãDECLARE SUB ShowIntro ()ãDECLARE SUB Center (Text$)ãDECLARE FUNCTION Trim$ (Number!)ãDECLARE FUNCTION Error$ (Virhe!)ãããDEFLNG D, X-YãON ERROR GOTO ErrorHandlerãããããCONST Pi = 22 / 7 'PI (close enough)ãCONST LevelXLen = 20 'Level X LenghtãCONST LevelYLen = 20 'Level Y LenghtãCONST ScreenXLen = 240 'Screen X LenghtãCONST ScreenYLen = 140 'Screen Y LenghtãCONST Viewwidth = 40 'Player's view width in degreesãCONST Turnrate = 6 'How fast the player will turn (degrees)ãCONST Textures = 0 'Draw Textures (1: on, 0: off)ãCONST WalkSpeed = 200 'Player's walkingspeedãCONST Sprites = 0 'Draw Sprites (1: on, 0: off)ãCONST SkyColor = 1 'Color of skyãCONST FloorColor = 0 'Color if floorãCONST Darkness = 1 'Darkness level (higher = darker)ãCONST Framerate = 1 'Display Framerate (1:yes, 0:no)ããCONST UpArrow% = 72, DnArrow% = 80, LArrow% = 75, RArrow% = 77, Esc% = 1 'KeysãCONST Alt% = 56, Shift% = 42ãããDIM SHARED Level(LevelXLen - 1, LevelYLen - 1) AS LONG 'LeveldataãDIM SHARED Visible&(LevelXLen - 1, LevelYLen - 1)ãDIM SHARED Shade&(LevelXLen - 1, LevelYLen - 1)ãDIM SHARED OrgShade&(LevelXLen - 1, LevelYLen - 1)ãDIM SHARED Sine(-Viewwidth TO 360 + Viewwidth) 'SinetableãDIM SHARED Cosine(-Viewwidth TO 360 + Viewwidth) 'CosinetableãDIM SHARED Px&, Py&, Pa& 'Player coords. and view angleãDIM SHARED Tx&, Ty&, Sprite 'Texture and sprite coords.ãDIM SHARED SpriteX&(20) 'Sprite coords.ãDIM SHARED SpriteDist&(20)ãDIM SHARED SpriteMapX&(20)ãDIM SHARED SpriteMapY&(20)ãDIM SHARED Spritecount&(20)ãDIM SHARED Sprite&ãDIM SHARED Message$ 'Message displayed on screenãDIM SHARED Dist&(300) 'Distance tableãDIM SHARED Dist2&(300) '-ãDIM SHARED ScreenStepãDIM SHARED YStart&ãDIM SHARED MapMode, ChangeãDIM SHARED Frame&, Start&ãDIM SHARED Strafe&, Fast&ãDIM SHARED Colr&(16, 300)ããRESTORE TextureãREAD Tx&, Ty&ãDIM SHARED Texture(Tx& - 1, Ty& - 1)ãScreenStep = ScreenXLen / (Viewwidth) \ 2ãYStart& = 100 - ScreenYLen \ 2ãDIM SHARED BufferDist&(ScreenXLen / ScreenStep) 'Buffer 1ãDIM SHARED BufferCol&(ScreenXLen / ScreenStep) 'Buffer 2ããããMessage$ = "DOOMED v3.2 BY SAMI KY™STILŽ"ãMapMode = -1ããShowIntroãSCREEN 13: CLSããã'-------------------------------------------------------------------ã' Read Paletteã'-------------------------------------------------------------------ããRESTORE PalããFOR i = 0 TO 255ã READ red, green, blueã OUT (&H3C8), iã OUT (&H3C9), redã OUT (&H3C9), greenã OUT (&H3C9), blueãNEXTãã ãããã'-------------------------------------------------------------------ã' Draw border and textã'-------------------------------------------------------------------ããFOR xx& = 0 TO 20ã LINE (xx& + 19, xx& + 9)-(319 - xx& - 19, 199 - xx& - 9), (xx& + (14 * 16)) \ 2, BFãNEXTããDEF SEG = &HA000ããLINE (7 * 8 - 2, 22 * 8 - 3)-(8 * LEN(Message$) + 7 * 8 + 2, 22 * 8 + 8 + 1), TextCol * 15, BFãTextCol = 12ãLOCATE 23, 8: PRINT Message$ãFOR y = 22 * 8 - 2 TO 22 * 8 + 8ã FOR x = 7 * 8 - 1 TO 7 * 8 + LEN(Message$) * 8 + 1ã IF PEEK(y * 320 + x) = 0 THEN POKE (y * 320 + x), (TextCol - 1) * 16 ELSE POKE (y * 320 + x), TextCol * 16ã NEXTãNEXTãSmooth 7 * 8, 22 * 8 - 1, 8 * LEN(Message$), 8, 1, 1, (TextCol - 1) * 16ãLINE (7 * 8 - 2, 22 * 8 - 3)-(8 * LEN(Message$) + 7 * 8 + 2, 22 * 8 + 8 + 1), TextCol * 15, Bãã'-------------------------------------------------------------------ã' Initialize player position and angleã'-------------------------------------------------------------------ãPx& = 1351ãPy& = 1605ãPa& = 360ãUpdate 'Calculate & Draw ScreenãDrawScreenãã'-------------------------------------------------------------------ã' Draw compassã'-------------------------------------------------------------------ãCIRCLE (20, 179), 20, 8ãPAINT (20, 179), 8, 8ãCIRCLE (20, 179), 19, 7ãPAINT (20, 179), 7, 7ãCIRCLE (20, 179), 18, 15ãPAINT (20, 179), 15, 15ãCIRCLE (20, 179), 17, 7ãPAINT (20, 179), 7, 7ãCIRCLE (20, 179), 16, 8ãPAINT (20, 179), 0, 8ãã'///////////////////////////////////////////////////////////////////ã'\\\\\\\\\\\\\\\\\\\\\\\Start main loop\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ã'///////////////////////////////////////////////////////////////////ããDOã'-------------------------------------------------------------------ã' Draw headingã'-------------------------------------------------------------------ãIF OldPa& <> Pa& THEN LINE (20, 179)-(20 + Sine((OldPa& + 360) MOD 360) * 10, 179 + Cosine((OldPa& + 360) MOD 360) * 10), 0ãLINE (20, 179)-(20 + Sine((Pa& + 360) MOD 360) * 10, 179 + Cosine((Pa& + 360) MOD 360) * 10), 14ããOldPa& = Pa&ãOldPy& = Py&ãOldPx& = Px&ãturn = 0ãã'-------------------------------------------------------------------ã' Handle keypressesã'-------------------------------------------------------------------ããGetkey:ãDOãKeycode% = INP(&H60)ãIF MapMode = -1 THEN DrawScreenãLOOP UNTIL Keycode%ããDO WHILE LEN(INKEY$): LOOPãããSELECT CASE Keycode%ã CASE RArrowã Dummy% = INP(&H60)ã IF Strafe& = 0 THENã IF Fast& = 0 THENã Pa& = Pa& - Turnrate: turn = 1ã ELSEã Pa& = Pa& - Turnrate * 2: turn = 1ã END IFã ELSEã IF Fast& = 0 THENã Px& = Px& + Sine((Pa& + 90) MOD 360) * -WalkSpeedã Py& = Py& + Cosine((Pa& + 90) MOD 360) * -WalkSpeedã ELSEã Px& = Px& + Sine((Pa& + 90) MOD 360) * (-WalkSpeed * 2)ã Py& = Py& + Cosine((Pa& + 90) MOD 360) * (-WalkSpeed * 2)ã END IFã END IFã CASE LArrowã Dummy% = INP(&H60)ã IF Strafe& = 0 THENã IF Fast& = 0 THENã Pa& = Pa& + Turnrate: turn = 1ã ELSEã Pa& = Pa& + Turnrate * 2: turn = 1ã END IFã ELSEã IF Fast& = 0 THENã Px& = Px& + Sine((Pa& + 90) MOD 360) * WalkSpeedã Py& = Py& + Cosine((Pa& + 90) MOD 360) * WalkSpeedã ELSEã Px& = Px& + Sine((Pa& + 90) MOD 360) * (WalkSpeed * 2)ã Py& = Py& + Cosine((Pa& + 90) MOD 360) * (WalkSpeed * 2)ã END IFã END IFã ã CASE UpArrowã Dummy% = INP(&H60)ã IF Fast& = 0 THENã Px& = Px& + Sine(Pa&) * WalkSpeedã Py& = Py& + Cosine(Pa&) * WalkSpeedã ELSEã Px& = Px& + Sine(Pa&) * (WalkSpeed * 2)ã Py& = Py& + Cosine(Pa&) * (WalkSpeed * 2)ã END IFããã CASE DnArrowã Dummy% = INP(&H60)ã IF Fast& = 0 THENã Px& = Px& + Sine(Pa&) * -WalkSpeedã Py& = Py& + Cosine(Pa&) * -WalkSpeedã ELSEã Px& = Px& + Sine(Pa&) * (-WalkSpeed * 2)ã Py& = Py& + Cosine(Pa&) * (-WalkSpeed * 2)ã END IFãã CASE Esc: EXIT DOãã CASE 15 AND TIMER > Change + .2ã Change = TIMERã MapMode = -MapModeã xx& = ((160 - ((ScreenXLen) \ 2)))ã LINE (xx&, YStart&)-(xx& + ScreenXLen - 1, YStart& + ScreenYLen - 1), 0, BFã IF MapMode = 1 THEN DrawMapãã CASE Altã Strafe& = 1ãã CASE Alt + 128ã Strafe& = 0ã ã CASE Shiftã Fast& = 1ãã CASE Shift + 128ã Fast& = 0ããã CASE ELSEã GOTO GetkeyããEND SELECTãã IF Pa& < 0 THEN Pa& = 360 - Turnrateã Pa& = Pa& MOD 360ãã'-------------------------------------------------------------------ã' Update Screenã'-------------------------------------------------------------------ã IF turn = 1 THEN Updateã ã IF Level(Px& \ 1024, (Py& \ 1024)) > 0 THENã Px& = OldPx&ã Py& = OldPy&ã ELSEã IF turn = 0 THEN Updateã END IFãã IF MapMode = 1 THEN DrawMapãã IF MapMode = 1 THENã xx& = ((160 - ((ScreenXLen) \ 2)))ã LINE ((xx& + (OldPx& / 1024) * (ScreenXLen / (LevelXLen)) + Sine((OldPa& + 360) MOD 360) * -5), YStart& + (OldPy& / 1024) * (ScreenYLen / (LevelYLen)) + Cosine((OldPa& + 360) MOD 360) * -5)-((xx& + (OldPx& / 1024) * (ScreenXLen / (LevelXLen)) + Sine((OldPa& + 360) MOD 360) * 5), YStart& + (OldPy& / 1024) * (ScreenYLen / (LevelYLen)) + Cosine((OldPa& + 360) MOD 360) * 5), 0ã END IFãã IF MapMode = 1 THENã xx& = ((160 - ((ScreenXLen) \ 2)))ã LINE ((xx& + (Px& / 1024) * (ScreenXLen / (LevelXLen)) + Sine((Pa& + 360) MOD 360) * -5), YStart& + (Py& / 1024) * (ScreenYLen / (LevelYLen)) + Cosine((Pa& + 360) MOD 360) * -5)-((xx& + (Px& / 1024) * (ScreenXLen / (LevelXLen)) + Sine((Pa& + 360) MOD 360) * 5), YStart& + (Py& / 1024) * (ScreenYLen / (LevelYLen)) + Cosine((Pa& + 360) MOD 360) * 5), 14ã END IFãLOOPããDO WHILE LEN(INKEY$): LOOPãã ã ãã'Leveldataã'-------------ãã'a number between 0 - (-16) : a Spriteã'a number between 1 - 16: a WallãããLeveldata:ãDATA 008,011,008,011,008,011,008,011,008,011,008,011,008,011,008,011,008,011,008,011ãDATA 011,000,006,005,000,000,000,000,000,008,000,000,000,000,000,000,000,000,000,008ãDATA 008,000,005,006,000,005,006,005,000,011,000,000,000,000,000,000,000,000,000,011ãDATA 011,000,006,000,000,006,000,006,000,008,000,000,006,003,006,003,006,000,000,008ãDATA 008,000,005,000,000,005,000,005,000,000,000,000,000,000,000,000,003,000,000,011ãDATA 011,000,006,000,005,006,000,006,000,008,000,000,000,000,000,000,006,000,000,008ãDATA 008,000,005,000,000,000,000,005,000,011,000,000,000,-06,000,000,003,000,000,011ãDATA 011,000,006,005,006,005,000,006,000,008,000,000,000,000,000,000,006,000,000,008ãDATA 008,000,000,000,000,000,000,005,000,011,000,000,003,006,003,006,003,000,000,011ãDATA 011,008,011,008,011,008,011,008,000,008,000,000,000,000,000,000,000,000,000,008ãDATA 008,011,008,011,008,011,008,011,000,011,008,011,008,011,008,011,008,011,000,011ãDATA 011,000,000,000,000,000,000,000,000,008,005,006,000,000,000,000,000,005,000,008ãDATA 008,000,000,000,000,000,000,000,000,011,000,005,000,005,000,006,000,006,000,011ãDATA 011,000,000,006,005,006,000,000,000,008,000,006,000,006,000,005,000,005,000,008ãDATA 008,-11,000,005,000,005,000,000,000,000,000,005,000,006,000,006,000,006,000,011ãDATA 011,000,000,006,000,006,000,000,000,008,000,006,000,005,000,005,000,005,000,008ãDATA 008,000,000,005,000,005,000,000,000,011,000,005,000,006,000,006,000,006,000,011ãDATA 011,000,000,000,000,000,-05,000,000,008,000,006,000,005,000,005,006,005,000,008ãDATA 008,000,000,000,000,000,000,000,000,011,000,000,000,006,000,000,000,000,000,011ãDATA 011,008,011,008,011,008,011,008,011,008,011,008,011,008,011,008,011,008,011,008ãããã'Palettedataã'-----------ããPal:ãDATA 0 , 0 , 0ãDATA 0 , 0 , 42ãDATA 0 , 42 , 0ãDATA 0 , 42 , 42ãDATA 42 , 0 , 0ãDATA 42 , 0 , 42ãDATA 42 , 21 , 0ãDATA 42 , 42 , 42ãDATA 21 , 21 , 21ãDATA 21 , 21 , 63ãDATA 21 , 63 , 21ãDATA 21 , 63 , 63ãDATA 63 , 21 , 21ãDATA 45 , 0 , 45ãDATA 63 , 63 , 21ãDATA 63 , 63 , 63ãDATA 26 , 8 , 8ãDATA 29 , 11 , 11ãDATA 32 , 14 , 14ãDATA 35 , 17 , 17ãDATA 38 , 20 , 20ãDATA 41 , 23 , 23ãDATA 44 , 26 , 26ãDATA 47 , 29 , 29ãDATA 50 , 32 , 32ãDATA 53 , 35 , 35ãDATA 55 , 37 , 37ãDATA 58 , 40 , 40ãDATA 63 , 45 , 45ãDATA 63 , 48 , 48ãDATA 63 , 51 , 51ãDATA 63 , 54 , 54ãDATA 11 , 0 , 0ãDATA 13 , 0 , 0ãDATA 15 , 0 , 0ãDATA 17 , 0 , 0ãDATA 19 , 0 , 0ãDATA 23 , 0 , 0ãDATA 27 , 0 , 0ãDATA 31 , 0 , 0ãDATA 35 , 0 , 0ãDATA 39 , 0 , 0ãDATA 43 , 0 , 0ãDATA 47 , 0 , 0ãDATA 51 , 0 , 0ãDATA 55 , 0 , 0ãDATA 59 , 0 , 0ãDATA 63 , 0 , 0ãDATA 8 , 26 , 8ãDATA 11 , 29 , 11ãDATA 14 , 32 , 14ãDATA 17 , 35 , 17ãDATA 20 , 38 , 20ãDATA 23 , 41 , 23ãDATA 26 , 44 , 26ãDATA 29 , 47 , 29ãDATA 32 , 50 , 32ãDATA 35 , 53 , 35ãDATA 37 , 55 , 37ãDATA 40 , 58 , 40ãDATA 45 , 63 , 45ãDATA 48 , 63 , 48ãDATA 51 , 63 , 51ãDATA 54 , 63 , 54ãDATA 0 , 11 , 0ãDATA 0 , 13 , 0ãDATA 0 , 15 , 0ãDATA 0 , 17 , 0ãDATA 0 , 19 , 0ãDATA 0 , 23 , 0ãDATA 0 , 27 , 0ãDATA 0 , 31 , 0ãDATA 0 , 35 , 0ãDATA 0 , 39 , 0ãDATA 0 , 43 , 0ãDATA 0 , 47 , 0ãDATA 0 , 51 , 0ãDATA 0 , 55 , 0ãDATA 0 , 59 , 0ãDATA 0 , 63 , 0ãDATA 0 , 8 , 26ãDATA 0 , 11 , 29ãDATA 0 , 14 , 32ãDATA 0 , 17 , 35ãDATA 0 , 20 , 38ãDATA 0 , 23 , 41ãDATA 0 , 26 , 44ãDATA 0 , 29 , 47ãDATA 0 , 32 , 50ãDATA 0 , 35 , 53ãDATA 0 , 37 , 55ãDATA 0 , 40 , 58ãDATA 0 , 45 , 63ãDATA 0 , 48 , 63ãDATA 0 , 51 , 63ãDATA 0 , 54 , 63ãDATA 0 , 0 , 11ãDATA 0 , 0 , 13ãDATA 0 , 0 , 15ãDATA 0 , 0 , 17ãDATA 0 , 0 , 19ãDATA 0 , 0 , 23ãDATA 0 , 0 , 27ãDATA 0 , 0 , 31ãDATA 0 , 0 , 35ãDATA 0 , 0 , 39ãDATA 0 , 0 , 43ãDATA 0 , 0 , 47ãDATA 0 , 0 , 51ãDATA 0 , 0 , 55ãDATA 0 , 0 , 59ãDATA 0 , 0 , 63ãDATA 7 , 7 , 7ãDATA 10 , 10 , 10ãDATA 13 , 13 , 13ãDATA 16 , 16 , 16ãDATA 19 , 19 , 19ãDATA 23 , 23 , 23ãDATA 27 , 27 , 27ãDATA 31 , 31 , 31ãDATA 35 , 35 , 35ãDATA 39 , 39 , 39ãDATA 43 , 43 , 43ãDATA 47 , 47 , 47ãDATA 51 , 51 , 51ãDATA 55 , 55 , 55ãDATA 59 , 59 , 59ãDATA 63 , 63 , 63ãDATA 26 , 2 , 0ãDATA 31 , 4 , 0ãDATA 35 , 4 , 0ãDATA 38 , 5 , 0ãDATA 41 , 6 , 0ãDATA 43 , 8 , 0ãDATA 45 , 10 , 0ãDATA 47 , 12 , 0ãDATA 49 , 14 , 0ãDATA 51 , 16 , 0ãDATA 53 , 18 , 0ãDATA 55 , 20 , 0ãDATA 57 , 22 , 0ãDATA 59 , 24 , 0ãDATA 61 , 27 , 0ãDATA 63 , 30 , 0ãDATA 17 , 12 , 12ãDATA 20 , 15 , 15ãDATA 23 , 18 , 18ãDATA 26 , 21 , 21ãDATA 29 , 24 , 24ãDATA 32 , 27 , 27ãDATA 35 , 30 , 30ãDATA 38 , 33 , 33ãDATA 41 , 36 , 36ãDATA 44 , 39 , 39ãDATA 47 , 42 , 42ãDATA 50 , 45 , 45ãDATA 53 , 48 , 48ãDATA 56 , 51 , 51ãDATA 59 , 54 , 54ãDATA 62 , 57 , 57ãDATA 13 , 0 , 4ãDATA 20 , 0 , 6ãDATA 23 , 0 , 6ãDATA 26 , 0 , 8ãDATA 30 , 0 , 8ãDATA 33 , 0 , 10ãDATA 36 , 0 , 12ãDATA 39 , 0 , 14ãDATA 42 , 0 , 16ãDATA 45 , 0 , 18ãDATA 48 , 0 , 20ãDATA 51 , 0 , 22ãDATA 54 , 0 , 24ãDATA 57 , 0 , 26ãDATA 60 , 0 , 28ãDATA 63 , 0 , 30ãDATA 12 , 12 , 17ãDATA 15 , 15 , 20ãDATA 18 , 18 , 23ãDATA 21 , 21 , 26ãDATA 24 , 24 , 29ãDATA 27 , 27 , 32ãDATA 30 , 30 , 35ãDATA 33 , 33 , 38ãDATA 36 , 36 , 41ãDATA 39 , 39 , 44ãDATA 42 , 42 , 47ãDATA 45 , 45 , 50ãDATA 48 , 48 , 53ãDATA 51 , 51 , 56ãDATA 54 , 54 , 59ãDATA 57 , 57 , 62ãDATA 22 , 14 , 0ãDATA 25 , 17 , 0ãDATA 28 , 20 , 0ãDATA 31 , 23 , 0ãDATA 34 , 26 , 0ãDATA 37 , 29 , 0ãDATA 40 , 32 , 0ãDATA 43 , 35 , 0ãDATA 45 , 38 , 0ãDATA 47 , 41 , 0ãDATA 49 , 44 , 0ãDATA 51 , 47 , 0ãDATA 53 , 50 , 0ãDATA 55 , 53 , 0ãDATA 57 , 56 , 0ãDATA 59 , 59 , 0ãDATA 10 , 8 , 0ãDATA 12 , 9 , 0ãDATA 14 , 11 , 0ãDATA 16 , 12 , 0ãDATA 18 , 13 , 0ãDATA 20 , 14 , 0ãDATA 22 , 15 , 0ãDATA 24 , 16 , 0ãDATA 25 , 16 , 0ãDATA 27 , 17 , 0ãDATA 30 , 18 , 0ãDATA 33 , 20 , 0ãDATA 37 , 22 , 0ãDATA 40 , 24 , 0ãDATA 41 , 26 , 0ãDATA 42 , 28 , 0ãDATA 0 , 11 , 11ãDATA 0 , 13 , 13ãDATA 0 , 15 , 15ãDATA 0 , 17 , 17ãDATA 0 , 19 , 19ãDATA 0 , 23 , 23ãDATA 0 , 27 , 27ãDATA 0 , 31 , 31ãDATA 0 , 35 , 35ãDATA 0 , 39 , 39ãDATA 0 , 43 , 43ãDATA 0 , 47 , 47ãDATA 0 , 51 , 51ãDATA 0 , 55 , 55ãDATA 0 , 59 , 59ãDATA 0 , 63 , 63ãDATA 11 , 0 , 11ãDATA 13 , 0 , 13ãDATA 15 , 0 , 15ãDATA 17 , 0 , 17ãDATA 19 , 0 , 19ãDATA 23 , 0 , 23ãDATA 27 , 0 , 27ãDATA 31 , 0 , 31ãDATA 35 , 0 , 35ãDATA 39 , 0 , 39ãDATA 43 , 0 , 43ãDATA 47 , 0 , 47ãDATA 51 , 0 , 51ãDATA 55 , 0 , 55ãDATA 59 , 0 , 59ãDATA 63 , 0 , 63ããShowExitãENDããããTexture:ãã'XLenght, YLenghtããDATA 3,5ãããDATA 07, 07, 07ãDATA 06, 07, 06ãDATA 07, 07, 07ãDATA 06, 07, 06ãDATA 07, 07, 07ãããããããErrorHandler:ãSCREEN 0: CLSãWIDTH 80, 25ãCOLOR 15, 4ãLOCATE 1, 1: PRINT STRING$(80, " ")ãLOCATE 1, 1ãCenter "þ ERROR þ"ãCOLOR 7, 0ãPRINTãPRINT " Error number";ãCOLOR 11ãPRINT ERR;ãCOLOR 7ãPRINT "has occured."ãPRINTãPRINT "Error description: "ãPRINTãCOLOR 15ãPRINT Error$(ERR)ãPRINTãPRINTãCOLOR 14ãPRINT " þ Memory status"ãCOLOR 7ãPRINT " ú String Space:",ãCOLOR 11ãPRINT FRE("")ãCOLOR 7ãPRINT " ú Unused Stack Space:",ãCOLOR 11ãPRINT FRE(-2)ãCOLOR 7ãPRINT " ú Array Space:",ãCOLOR 11ãPRINT FRE(-1)ãCOLOR 7ãPRINTãCOLOR 2ãPRINT " Aborting program..."ãENDããSUB Center (Text$)ã'-------------------------------------------------------------------ã' Centers Text$ on screenã'-------------------------------------------------------------------ãããLOCATE CSRLIN, 40 - LEN(Text$) \ 2ãPRINT Text$ãEND SUBããDEFSNG DãSUB DrawMapãã'-------------------------------------------------------------------ã' Draws the map with raytraced wallsã'-------------------------------------------------------------------ããMapX& = 0ãMapY& = 0ãFOR yy& = YStart& TO YStart& + ScreenYLen STEP ScreenYLen / (LevelYLen)ã FOR xx& = ((160 - ((ScreenXLen) \ 2))) TO ScreenXLen + (160 - (ScreenXLen \ 2)) STEP ScreenXLen / (LevelXLen)ã IF MapX& > LevelXLen - 1 THEN EXIT FORã IF Visible&(MapX&, MapY&) THENã LINE (xx&, yy&)-(xx& + ScreenXLen / (LevelXLen) - 1, yy& - 1 + ScreenYLen / (LevelYLen - 1)), Shade&(MapX&, MapY&), BF 'Level(MapX&, MapY&) * 16, BFã Shade&(MapX&, MapY&) = Shade&(MapX&, MapY&) - 1ã IF Shade&(MapX&, MapY&) < (OrgShade&(MapX&, MapY&)) THEN Shade&(MapX&, MapY&) = (OrgShade&(MapX&, MapY&))ã END IFã MapX& = MapX& + 1ã NEXTã MapY& = MapY& + 1ã IF MapY& > LevelYLen - 1 THEN EXIT FORã MapX& = 0ãNEXTããDO WHILE LEN(INKEY$): LOOPããã'-------------------------------------------------------------------ã' Update framerate every 2 secondsã'-------------------------------------------------------------------ã IF Framerate = 1 THENã IF TIMER >= Start& + 2 THENã COLOR 14ã LOCATE 1, 1: PRINT INT(Frame& / 2); "fps "ã Frame& = 0ã Start& = INT(TIMER)ã END IFãã Frame& = Frame& + 1ã END IFãããEND SUBããDEFSNG X-YãSUB DrawScreenãxx& = ((160 - ((ScreenXLen) \ 2)))ãVIEW SCREEN (xx&, YStart&)-(xx& + ScreenXLen - 1, YStart& + ScreenYLen - 1)ããã'-------------------------------------------------------------------ã' Draws the screen from the bufferã'-------------------------------------------------------------------ããxxx& = 0ãyyy& = 0ãBuffer& = 0ãDown& = YStart& + ScreenYLen + 1ããIF Textures = 0 THENã FOR xx& = ((160 - ((ScreenXLen) \ 2))) TO ScreenXLen + (160 - (ScreenXLen \ 2)) STEP ScreenStepã LINE (xx&, YStart&)-(xx& + ScreenStep - 1, Dist&(BufferDist&(Buffer&)) + YStart&), SkyColor, BFã LINE (xx&, Dist&(BufferDist&(Buffer&)) + YStart& + 1)-(xx& + ScreenStep - 1, Dist2&(BufferDist&(Buffer&)) + YStart& + 1), BufferCol&(Buffer&), BFã LINE (xx&, Down&)-(xx& + ScreenStep - 1, Dist2&(BufferDist&(Buffer&)) + YStart& + 2), FloorColor, BFã Buffer& = Buffer& + 1ã NEXTãELSEã FOR xx& = ((160 - ((ScreenXLen) \ 2))) TO ScreenXLen + (160 - (ScreenXLen \ 2)) STEP ScreenStepã OldDist& = BufferDist&(Buffer&)ã IF (BufferDist&(Buffer&) \ 4) > 15 THEN BufferDist&(Buffer&) = 15 \ 4ã TyStep = (Dist2&(OldDist&) - Dist&(OldDist&)) / Ty&ãã YPlace1& = Dist&(OldDist&)ã YPlace2& = Dist2&(OldDist&)ã yyy& = 0ã YStep = (YPlace2& - YPlace1&) / Ty&ã FOR y = YPlace1& TO YPlace2& STEP YStepã Col& = (Texture(xxx&, yyy&)) * 16ã YPos& = y + YStep - 1ã IF YPos& >= YPlace2& THEN YPos& = YPlace2& - 1ã LINE (xx&, y + YStart&)-(xx& + ScreenStep - 1, YPos& + YStart&), Col& - (BufferDist&(Buffer&) \ 4), BFã yyy& = yyy& + 1ã IF yyy& > Ty& - 1 THEN yyy& = Ty& - 1ã NEXTã yyy& = 0ã LINE (xx&, YStart&)-(xx& + ScreenStep - 1, Dist&(OldDist&) + YStart& - 1), SkyColor, BFã LINE (xx&, Down&)-(xx& + ScreenStep - 1, Dist2&(OldDist&) + YStart&), FloorColor, BFãã xxx& = xxx& + 1ã IF xxx& > Tx& - 1 THEN xxx& = 0ã yyy& = 0ã Buffer& = Buffer& + 1ã NEXTãEND IFããã'-------------------------------------------------------------------ã' Draw spritesã'-------------------------------------------------------------------ããIF Sprite& > 0 AND Sprites = 1 THENã FOR i& = 1 TO Sprite&ã xx& = ((160 - ((ScreenXLen) \ 2)))ã IF Spritecount&(i&) > 0 THEN SpriteX&(i&) = SpriteX&(i&) / Spritecount&(i&)ã Size& = 16 - SpriteDist&(i&) \ 2ã IF Size& < 0 THEN Size& = 0ã CIRCLE (SpriteX&(i&) + xx&, YStart& + (ScreenYLen \ 2)), Size&, Colr&(-Level(SpriteMapX&(i&), SpriteMapY&(i&)), SpriteDist&(i&))ã NEXTãEND IFãããVIEW SCREEN (0, 0)-(319, 199)ããã'-------------------------------------------------------------------ã' Update framerate every 2 secondsã'-------------------------------------------------------------------ãã IF Framerate = 1 THENã IF TIMER >= Start& + 2 THENã COLOR 14ã LOCATE 1, 1: PRINT INT(Frame& / 2); "fps "ã Frame& = 0ã Start& = INT(TIMER)ã END IFãã Frame& = Frame& + 1ã END IFããDO WHILE LEN(INKEY$): LOOPãããããEND SUBããDEFINT X-YãFUNCTION Error$ (Virhe)ãã'-------------------------------------------------------------------ã' Returns error description for error number Virheã'-------------------------------------------------------------------ããSELECT CASE VirheãCASE IS = 1ãError$ = "NEXT without FOR"ãCASE IS = 2ãError$ = "Syntax error"ãCASE IS = 3ãError$ = "RETURN without GOSUB"ãCASE IS = 4ãError$ = "Out of DATA"ãCASE IS = 5ãError$ = "Illegal function call"ãCASE IS = 6ãError$ = "Overflow"ãCASE IS = 7ãError$ = "Out of memory"ãCASE IS = 8ãError$ = "Label not defined"ãCASE IS = 9ãError$ = "Subscript out of range"ãCASE IS = 10ãError$ = "Duplicate definition"ãCASE IS = 11ãError$ = "Division by zero"ãCASE IS = 12ãError$ = "Illegal in direct mode"ãCASE IS = 13ãError$ = "Type mismatch"ãCASE IS = 14ãError$ = "Out of string space"ãCASE IS = 16ãError$ = "String formula too complex"ãCASE IS = 17ãError$ = "Cannot continue"ãCASE IS = 18ãError$ = "Function not defined"ãCASE IS = 19ãError$ = "No RESUME"ãCASE IS = 20ãError$ = "RESUME without error"ãCASE IS = 24ãError$ = "Device timeout"ãCASE IS = 26ãError$ = "Device fault"ãCASE IS = 27ãError$ = "Out of paper"ãCASE IS = 29ãError$ = "WHILE without WEND"ãCASE IS = 30ãError$ = "WEND without WHILE"ãCASE IS = 33ãError$ = "Duplicate label"ãCASE IS = 35ãError$ = "Subprogram not defined"ãCASE IS = 37ãError$ = "Argument-count mismatch"ãCASE IS = 38ãError$ = "Array not defined"ãCASE IS = 40ãError$ = "Variable required"ãCASE IS = 50ãError$ = "FIELD overflow"ãCASE IS = 51ãError$ = "Internal error"ãCASE IS = 52ãError$ = "Bad file name of number"ãCASE IS = 53ãError$ = "File not found"ãCASE IS = 54ãError$ = "Bad file mode"ãCASE IS = 55ãError$ = "File already open"ãCASE IS = 56ãError$ = "FIELD statement active"ãCASE IS = 57ãError$ = "Device I/O error"ãCASE IS = 58ãError$ = "File already exists"ãCASE IS = 59ãError$ = "Bad record lenght"ãCASE IS = 61ãError$ = "Disk full"ãCASE IS = 62ãError$ = "Input past end of file"ãCASE IS = 63ãError$ = "Bad record number"ãCASE IS = 64ãError$ = "Bad file name"ãCASE IS = 67ãError$ = "Too many files"ãCASE IS = 68ãError$ = "Device unavailable"ãCASE IS = 69ãError$ = "Communication-buffer overflow"ãCASE IS = 70ãError$ = "Permission denied"ãCASE IS = 71ãError$ = "Disk not ready"ãCASE IS = 72ãError$ = "Disk-media error"ãCASE IS = 73ãError$ = "Feature unavailable"ãCASE IS = 74ãError$ = "Rename across disks"ãCASE IS = 75ãError$ = "Path/File access error"ãCASE IS = 76ãError$ = "Path not found"ãCASE ELSEãError$ = ""ãEND SELECTãEND FUNCTIONããDEFLNG X-YãSUB ShowExitã'-------------------------------------------------------------------ã' Shows the exit screenã'-------------------------------------------------------------------ããSCREEN 0: CLSãWIDTH 80, 25ãCOLOR 15, 4ãLOCATE 1, 1: PRINT STRING$(80, " ")ãLOCATE 1, 1ãCenter "DooMed v3.2 - Raytracer for QBasic by Sami Ky”stil„ 1997"ãCOLOR 7, 0ãPRINTãPRINT " You are free to use this code in your own programs, as long as"ãPRINT " credit is given."ãPRINTãCOLOR 14ãPRINT " þ Final location of player"ãCOLOR 7ãPRINT " ú X:";ãCOLOR 11: PRINT Px&;ãCOLOR 7ãPRINT "Y:";ãCOLOR 11: PRINT Py&ãCOLOR 7ãPRINT " ú Sector (";ãCOLOR 11ãPRINT Trim$(Px& \ 1024);ãCOLOR 7ãPRINT ",";ãCOLOR 11ãPRINT Trim$(Py& \ 1024);ãCOLOR 7ãPRINT ")"ãPRINT " ú Angle:";ãCOLOR 11ãPRINT Pa&;ãCOLOR 7ãPRINT "degrees"ããFOR y& = 2 TO LevelYLen + 1 STEP 2ã FOR x& = 2 TO LevelXLen + 1ã IF Level(x& - 2, y& - 2) <> 0 THEN Char$ = "ß"ã IF Level(x& - 2, y& - 1) <> 0 THEN Char$ = "Ü"ã IF Level(x& - 2, y& - 1) <> 0 AND Level(x& - 2, y& - 2) <> 0 THEN Char$ = "Û"ã IF Level(x& - 2, y& - 1) <= 0 AND Level(x& - 2, y& - 2) <= 0 THEN Char$ = " "ã COLOR 3, 0ã IF Px& \ 1024 = x& - 2 AND Py& \ 1024 = y& - 2 THEN COLOR 3, 4ã IF Px& \ 1024 = x& - 2 AND Py& \ 1024 = y& - 1 THEN COLOR 3, 4ã LOCATE y& \ 2 + 4, x& + 40: PRINT Char$ã NEXTãNEXTãããLOCATE 11, 1ãCOLOR 14ãPRINT " þ Memory status"ãCOLOR 7ãPRINT " ú String Space:",ãCOLOR 11ãPRINT FRE("")ãCOLOR 7ãPRINT " ú Unused Stack Space:",ãCOLOR 11ãPRINT FRE(-2)ãCOLOR 7ãPRINT " ú Array Space:",ãCOLOR 11ãPRINT FRE(-1)ããPRINTãCOLOR 14ãPRINT " þ Toggles"ãCOLOR 7ãPRINT " ú Framerate display:",ãCOLOR 11ãIF Framerate = 1 THEN PRINT " On" ELSE PRINT " Off"ãCOLOR 7ãPRINT " ú Textures:",ãCOLOR 11ãIF Textures = 1 THEN PRINT " On" ELSE PRINT " Off"ãCOLOR 7ãPRINT " ú Sprites:", ,ãCOLOR 11ãIF Sprites = 1 THEN PRINT " On" ELSE PRINT " Off"ãCOLOR 7ããEND SUBããDEFSNG X-YãSUB ShowIntroã'-------------------------------------------------------------------ã' Shows the welcoming screen and calculates tablesã'-------------------------------------------------------------------ãããSCREEN 0: CLSãWIDTH 80, 25ãCOLOR 15, 4ãLOCATE 1, 1: PRINT STRING$(80, " ")ãLOCATE 1, 1ãCenter "DooMed v3.2 - Raytracer for QBasic by Sami Ky”stil„ 1997"ãCOLOR 9, 0ãPRINTãCenter " Keys:"ãCOLOR 1ãCOLOR 15ãPRINTãPRINT " Up arrow",ãCOLOR 8ãPRINT " - ";ãCOLOR 7ãPRINT " Move forward";ãCOLOR 15ãPRINT , , "Alt ";ãCOLOR 8ãPRINT " - ";ãCOLOR 7ãPRINT " Strafe"ãCOLOR 15ãPRINT " Down arrow",ãCOLOR 8ãPRINT " - ";ãCOLOR 7ãPRINT " Move backward";ãCOLOR 15ãPRINT , , "Shift ";ãCOLOR 8ãPRINT " - ";ãCOLOR 7ãPRINT " Run"ãCOLOR 15ãPRINT " Left arrow",ãCOLOR 8ãPRINT " - ";ãCOLOR 7ãPRINT " Turn left";ãCOLOR 15ãPRINT , , , "Esc ";ãCOLOR 8ãPRINT " - ";ãCOLOR 7ãPRINT " Exit"ãCOLOR 15ãPRINT " Right arrow",ãCOLOR 8ãPRINT " - ";ãCOLOR 7ãPRINT " Turn right"ãCOLOR 15ãPRINT " TAB",ãCOLOR 8ãPRINT " - ";ãCOLOR 7ãPRINT " Enable/disable map mode"ãPRINTãCOLOR 2ãCenter " Modify the constants at the start of the program to create"ãCenter " custom shading levels and toggle framerate display etc."ãCOLOR 7ãPRINTãCOLOR 14ãPRINT " þ Init game engine ";ãCOLOR 7ãPRINT "(";ãCOLOR 11ãPRINT Trim$(ScreenXLen); "x"; Trim$(ScreenYLen);ãCOLOR 7ãPRINT " mode)"ãCOLOR 7ãPRINT " ú Calculating Sine and Cosine tables...";ãã'-------------------------------------------------------------------ã' Make SINE & COSINE tablesã'-------------------------------------------------------------------ãFOR i = -Viewwidth TO 360 + Viewwidthã Sine(i) = SIN(i * Pi / 180)ã Cosine(i) = COS(i * Pi / 180)ãNEXTããFOR i = -Viewwidth TO 360 + Viewwidthã Sine(i) = SIN(i * Pi / 180)ã Cosine(i) = COS(i * Pi / 180)ãNEXTãPRINT "Done"ãPRINT " ú Calculating Distance table...";ãã'-------------------------------------------------------------------ã' Make Distance tableã'-------------------------------------------------------------------ããFOR Colorvalue& = 1 TO 16ã Level(0, 0) = Colorvalue&ã FOR d& = 1 TO 300ã Distance1& = 480 / d&ã Height& = Distance1& + Distance1&ã Distance2& = ScreenYLen \ 2 - Distance1&ã YPlace2& = Height& + Distance2&ã YPlace1& = Height& \ 30 + Distance2&ã Dist&(d&) = YPlace1&ã Dist2&(d&) = YPlace2&ããã Col& = Level(0, 0) * 16 - (d& \ 4) - 1 - Darkness - Light \ 1024ã IF Col& < (Level(0, 0) - 1) * 16 THEN Col& = (Level(0, 0) - 1) * 16ã IF Col& > (Level(0, 0) + 1) * 16 THEN Col& = (Level(0, 0) + 1) * 16ã Colr&(Colorvalue&, d&) = Col&ã NEXTãNEXTããããããããPRINT "Done"ãPRINT " ú Reading Level (";ãCOLOR 11ãPRINT Trim(LevelXLen); "x"; Trim(LevelYLen);ãCOLOR 7ãPRINT ") data...";ãã'-------------------------------------------------------------------ã' Read LevelDATAã'-------------------------------------------------------------------ããRESTORE LeveldataãFOR y = 0 TO LevelYLen - 1ã FOR x = 0 TO LevelXLen - 1ã READ Level(x, y)ã NEXTãNEXTãPRINT "Done"ãããPRINT " ú Reading texture (";ãã'-------------------------------------------------------------------ã' Read Textureã'-------------------------------------------------------------------ããRESTORE TextureãREAD Tx&, Ty&ãCOLOR 11ãPRINT Trim(INT(Tx&)); "x"; Trim(INT(Ty&));ãCOLOR 7ãPRINT ")...";ããFOR y = 0 TO Ty& - 1ã FOR x = 0 TO Tx& - 1ã READ Texture(x, y)ã NEXTãNEXTãPRINT "Done";ãCOLOR 8ãIF Textures = 1 THEN PRINT , "(Textures:on)" ELSE PRINT , "(Textures:off)"ããããCOLOR 14ãPRINT " þ Memory status"ãCOLOR 7ãPRINT " ú String Space:",ãCOLOR 11ãPRINT FRE("")ãCOLOR 7ãPRINT " ú Unused Stack Space:",ãCOLOR 11ãPRINT FRE(-2)ãCOLOR 7ãPRINT " ú Array Space:",ãCOLOR 11ãPRINT FRE(-1)ããCOLOR 4ãCenter "- Press any key to continue -"ãããDO: LOOP UNTIL INKEY$ <> ""ãEND SUBããDEFINT X-YãSUB Smooth (xpos&, YPos&, XLen, YLen, Times, Rate, Lowest)ãã'-------------------------------------------------------------------ã' Smooths an area of the screenã'ã' Xpos&, Ypos& - Start X,Yã' XLen, YLen - Lenght X,Yã' Times - Iteration timesã' Rate - Smoothing rateã' Lowest - Lowest possible color valueãã'-------------------------------------------------------------------ããããDEF SEG = &HA000ãdone = 0ãDOã FOR y& = 0 TO YLenã FOR x& = 0 TO XLenã avg% = 0ã avg% = avg% + PEEK((y& + YPos& - 1) * 320 + (x& + xpos&))ã avg% = avg% + PEEK((y& + 1 + YPos&) * 320 + (x& + xpos&))ã avg% = avg% + PEEK((y& + YPos&) * 320 + (x& - 1 + xpos&))ã avg% = avg% + PEEK((y& + YPos&) * 320 + (x& + 1 + xpos&))ã ã avg% = avg% + PEEK((y& + YPos& - 1) * 320 + (x& + xpos& - 1))ã avg% = avg% + PEEK((y& + YPos& - 1) * 320 + (x& + xpos& + 1))ã avg% = avg% + PEEK((y& + YPos& + 1) * 320 + (x& + xpos& - 1))ã avg% = avg% + PEEK((y& + YPos& + 1) * 320 + (x& + xpos& + 1))ã avg% = avg% \ 8ã avg% = avg% - Rateã IF avg% < Lowest THEN avg% = Lowestã POKE ((y& + YPos&) * 320 + x& + xpos&), avg%ã NEXTã NEXTã done = done + 1ãLOOP UNTIL done >= TimesãããEND SUBããDEFLNG D, X-YãFUNCTION Trim$ (Number)ã'-------------------------------------------------------------------ã' Converts integer numbers into strings and removes null paddingã'-------------------------------------------------------------------ããããTrim$ = LTRIM$(RTRIM$(STR$(Number)))ãEND FUNCTIONããDEFSNG D, X-YãSUB UpdateãON ERROR GOTO 0ãã'-------------------------------------------------------------------ã' Updates the engineã'-------------------------------------------------------------------ãBuffer& = (ScreenXLen / ScreenStep)ãSprite& = 0 'Set sprite index to 0ãSpritecount&(0) = 0ãã FOR A& = Pa& - Viewwidth TO Pa& + Viewwidth STEP 1ããã'-------------------------------------------------------------------ã' Calculate ray anglesã'-------------------------------------------------------------------ãã x& = Px&ã y& = Py&ã XStep& = Sine(A&) * 480 \ 4ã YStep& = Cosine(A&) * 480 \ 4ã d& = 0ã ãã'-------------------------------------------------------------------ã' Fire a rayã'-------------------------------------------------------------------ããScan:ã DOã d& = d& + 1ã x& = x& + XStep&ã y& = y& + YStep&ã Found& = Level(x& \ 1024, y& \ 1024)ã LOOP UNTIL Found&ãã IF Found& < 0 AND Sprites = 0 THEN GOTO Scanã Visible&(x& \ 1024, y& \ 1024) = 1ã ãã'-------------------------------------------------------------------ã' Get wall height from Distance tableã'-------------------------------------------------------------------ãã YPlace1& = Dist&(d&)ã YPlace2& = Dist2&(d&)ããã'-------------------------------------------------------------------ã' Calculate spritesã'-------------------------------------------------------------------ãã IF Found& < 0 AND Sprites = 1 THENã IF SpriteMapX&(Sprite&) = x& \ 1024 AND SpriteMapY&(Sprite&) = y& \ 1024 THENã SpriteX&(Sprite&) = SpriteX&(Sprite&) + (Buffer& * ScreenStep)ã Spritecount&(Sprite&) = Spritecount&(Sprite&) + 1ã ELSEã Sprite& = Sprite& + 1ã Spritecount&(Sprite&) = 0ã SpriteMapX&(Sprite&) = x& \ 1024ã SpriteMapY&(Sprite&) = y& \ 1024ã SpriteDist&(Sprite&) = d&ã END IFã GOTO Scanã END IFããã'-------------------------------------------------------------------ã' Get wall shade from Color tableã'-------------------------------------------------------------------ãã IF Level(x& \ 1024, y& \ 1024) > 0 THEN Col& = Colr&(Level(x& \ 1024, y& \ 1024), d&) ELSE GOTO Scanã Shade&(x& \ 1024, y& \ 1024) = Col&ã OrgShade&(x& \ 1024, y& \ 1024) = (Level(x& \ 1024, y& \ 1024) - 1) * 16ã ããã'-------------------------------------------------------------------ã' Store wall heightsã'-------------------------------------------------------------------ãã BufferDist&(Buffer&) = d&ã BufferCol&(Buffer&) = Col&ã Buffer& = Buffer& - 1ã NEXTãããEND SUBãSami Kyostila WINDOZE ENGINE V2.0 hiteck@mail.freenet.hut.fi 09-05-97 (20:15) QB, QBasic, PDS 649 42837 WIN2.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"WIN2.ZIP",4^6:Z&=31892:?STRING$(50,177);ãU"%up()%9%%%.-%Vg#-HKvSC5CG.%%=d%'%-%.%%&n%sWSgRfxeL$TAH26*YJlKmdãU"/CeIIA3AsFNxG*&BH%3JvRQga5$AL$$6(\YImSez%qhzYaalQ#LWqvLR8V?Sv=gãU"lGM;ronm<'?GX ugx(]ujux:rc>W5?wpFJ_NmdTt/?HX5M;ndNv\MNIwDNqB%d6OjqDcvl<ãU"XNHlQXNx8VdITsbwvhZ8xlnlwo&ui9>coVVa+N6rbvdZc+OV.gR/zuRHel$$ncxãU"]mlOtnfd[hEXNt^HEq5Np=5*8X-qHqk+7IqSvmxJr7I%Qi'-fNj*%5xlf(NwC8MãU"Q7ionx4lxs6sfvnLu>d+wo#%WrcoF9HwK-c.K>Mt2R-w/C+?WXxTfh#*.uS8hh&ãU"f&#h/=bxDSZ(]7?umLDm4dHx-kLD$hnjnHpdJ[b5VHncZxhHluHVHWu$,Hx'lTdãU":74gSJANzB2gaxn>KVEXwcxmku;JlOH$w>c[2^spbk3l??H?gR6e=U6v8?WZfm7ãU"$e0#XCL-p=W#W,;=Gc[2Hm$1nNZrYLg?k]>a=),3ELQ+.LF=nJ.hXcudU[saYBOãU"2Ge;2(bh#kFNU2nd-a*Z*u.Lb.%YO)mBf[oL8XZH1&:.D$&qBFHGk$d#IK9n+[^J3=Z2T:1'>2^+[,v8?;2H:cw+Ik3,g,t3e>%%D3]I5ãU"gQIXoHD9)7lQ50eg$lsP-Xd2?f?E4eR6K/eh$0vAW4aw&B=kUTM^SG+Uk'S%/38ãU"C=VPpB'_J#Va0;i9T4.\=[a,7ggGPVf6eN9TehTY=RQA+'suJ$e[dzJ/euDVE=0ãU"sw1oa;N2l6ie,)-GTejLu=ERH3UOKMtr?+928vJhibtlf*M7)H;3f2mJ+ki?hBFãU"8N$lGm=RH$s_OU?mvi3AIP/ãU"6g.[S'G6#fGs6ãU"cvIB]J9_DRVglFQ,'-uyio9vOP87>db%OnUIMfU37(cm'+vC69-Mg#ZZj4ty;OUãU"l5pInc5eKhr)f$JX#lGV$t#$&GwL5DGL)nv]9cLkm]*wE;K.'6edqHFJqP>n)EaGk]\eyãU"PGm1H/;R7[Kresrd$-.uC$4#Aodb<9ff5$[NUY2&*+Sc9Q&j+o,g%^IãU"'_LAk%cUD:HF;84C>]EEkU(NkSiTkFL)1R]_Iv..(TX:nyPXãU"fGB2C2tT)a[YIEsQg/o^:93LDCRfK#u&1$e45jn1O9=:F3(8.v^-,?V.SZi47rCãU"OJ1&?TW?k2IKe<>=HTSw\ZbS8=2$Z$HRO\OWBP(/YpkMKb2emO\Aos]t:l3vqQ8ãU"'I/IUas+$J,Sis:QuIKNQ^4B_tJQ8lU=a7L)NHiPaHF8G;I=xK:/6:E$fd4gdR9ãU"_^*e13OD%0E)9c2FoI+F^PuPh;aLkrIJDDAbjIJXPy.:j0I/(Paa\03idIC=JbgãU"B\Hx7K+]S)X(3>T*.S\-5B0%12R*COJIcSV^/%ab_>n]7*Hc63csg*4XX6x&FU5ãU"^m76ma6tInrO]A<77d$mnFEUwA*Eb)UuJul5NAjImpDU9(kvWO#*QL8960v(9qVãU"$<[b_='j]nBsw1.^2[tj+4*tW,:ADT'g2]XUkznqiC3F*q,yJ=ãU"OLkCqOSULj)AhkU7IL2/w;*^XVgTx=vi8tn*]>dLULr5qd&zv1n'XolZ6N5c[ILãU":fgTF'XjHIo/5l4HRJ;gutKBte7\Q6R4#+Wp^srm7ao4^^F-I.WrktB)E=u%g)PãU"j3TBQU#VN:$[&IM##3/T]s[:Ot+BsZ\CSJ<^KJ,UA\p#Y;4)=M*d7;LoZiCpg.nãU"SJPkF/%CvEX/9ucZ&UM=UcVEcv:WKr]apb?$+a9%w7e7g_)Ro5+ru0FFdrDBJYNãU"R?w'hM::D%J$(V'aM)q-:x4A9r&mE%TKZqNuP\FjU8B$6X(UZ'&R0Opo>X.k(^<ãU"]js#-XTnn58Lkzaqj+3+X42AyE4\kOrS<[QlDf[fLs=40I#)&X#>>19C-i41oh3ãU"&]seyQ]s7j$:B6M=lP:nun=pQ?h;f'o/e*FaI1XAjMV].7J3dE24*[,7#)72bg4ãU"BAw*Y,mO8GiG1>[*r=)YnU&BY/CdisL^_kOg.W^^J)kY;49G/+r1RXE9[i/;Lq/ãU"*q%2#V#&P;Kd?XlwQOf:vft4S:ãU":pMu351(ws;MsG]9>RFMI[i+IE:(c?u*VWLePjHPZo*3M\EUW](*MQqALMa/.\QãU"xoI[;IoChQe_UB:?e1L7'J\4[IQ'JO,;/U2+4?ãU"_V*nS-xJ;4&Dbz(GKJb^Ro,EDPo.G.#8sKQ71y]G$SHCG47JUFBaWEClejb[2ScãU"KkA%eJdVuItS*/2J[S1Tar(.#3u1#Oke[,q5YH;,,la?XIZ[yY;E/]V^7et>t/+ãU"=-e-sGew)/]A7tak[(OoX?wXD=Wd\tiq,O$^#GBt.<^2j#FGjsas(?5Nl^2A$TPãU"_rlJ?s\0=2[pY(-Gidv.xg$2bi4;p2mc<0L'^DfukuiHIlbLK7E#*+$[Z/'I6TMãU"^MGSt&J5\d[O)p,WLJjJgyMMk)d#BmaB:%a_]G,3'b,M)oJizK>mYs9Gac(?9nOmoSj;AkwBQ2kC8/g5DFHptH_cGãU"A0'WhCNJeVHRX=DQ0Vjjlg2)g<=dqRi^D9qv:6M3H,>2IgYEs:Ci]#yXsM<;1?H7N^)I17_?'7Z[>sY,_^-eb#v1ãU"Xofv[)bBMIwLfh*9>JgrvQ_Kn4J'W;uxaw,fS\=nvS^$QEo(fi6ulot-x-?Ya,DãU"]kuT4C4q74]EYh#vx'B*v-<\8IA$Z&q&f%qg=VAT4t)4Q(\)R53Jy;]QP^AO,N(y)0qB]JRnA(79#Cat=7/]K]($SS9ãU"%Yq0,^t>jM>/ZZk(_7TtinT_kq,%lG3v&(0k##UM,6p?cK3f^D#tdl[1Cn'Q%JiãU".[%o&E/LwI:_M=SfR*JDN'(bDKR$EUJnCuErQ&+UVv?/#fD>7$BsQkmJE;9uV.$ãU"W]0iSZLE'^[K6IPQ]/Xm..;VyQ+p12HfbH7,+_MZZNty\;JN^>6o,\ogUC/P8xCr_uHVpM/\i#sPqãU"y%/YmlHg908)g19/t9x=BRoBsM*H\mY(rGU8XrdALBC:mTep(G.Vt'OR%'(\o$:ãU"Ol9&,(lYKX_WJT_yBXg:(_kFdF47QvuOz/W7yVPBtXFãU">*%6Z94EP\\(8f)Nx#*+,[x,cMNP6.[a+Z[PUHJpF#Z(zK-TM72LI$dd9k*f:^'ãU"[\QZUw]I7N_UoR$QGSZa%_&]rcC&J8lcnN7HbYpZ9j9i%5>.QxFk^/>?c;$c6WJãU"V;&w$JabbR&F9'Gthlt;PiZ,P?+%vV]MCrqY'mYXMNOLcfYF19d)C[v2\,_*F;8ãU":uY4yDYcvCIVdt*&PR85[AQc'X$qr8&,Y&bISou[bShqVIc,'KHI?&nUL?%vXoAãU"rD&lS2j;+:%Ag06i=YUDM02G.So]&^4EcQpC8utaY#sL#E:V[UE8Aoz_YLeHQBOãU"/-Ub;i=nDY2$)mh#H-89BS-3f&80>;2-;L<)=F'KUKpTdL.vR0w*;w;yi1m.;HuãU"QC7kydQsO%2t:D_G0paQVKU_FNR8kakU(n0cUOY9%1XaVqRJJ6O4o[vS'RMTNplãU"Zew:I.97:E(Xcr())?4ew#=iIkik(-5$AN+xpUc[LMecl1mg4ebzU2UrW^$eW)1ãU"Jf86aYrSv1r?c%<-57_2t/$)Z(xI4?,;nwRJHsh\Zmj1Q^KtC?F0f4?,y;8aQtKãU"Y_k#m=c=g_GFbu;)3c)#0[y[?toM:(),QN/:pm.)Q.1q7,_e%F%maa3TL)goFx6D2OK8mãU"]*=iWsR3)1&9gXuY%YqkT\V7H974;gL3V;,4\=l[?-T:2Y^fL5L?R[2/MO*VEowãU"SqA9H&JNiqI\'9cHD'eNWãU"lsQaA<)\7m5,CUC&L$ARHYQvH6[+BuQ^BZY_WN=C4%K&-hNPl4n]>C^z#a^58t]ãU"ce<\Fnc?2'H$%UuonZGcJZNWLgDL2zb)W^J&4A#T64ATj9SdjkA]-GkãU"TlTt#A?,,$9hs_jSmrW67x#SXt,<)k_fdKTIb.'J%*3TXvarIbGemb2YrjvkZ_Htuar,\TOnãU"tqiDijxF+Hl6lFde*JQAm.K*/(SgT5b(dBkNhu>hud$MZ)/q+5Z,0IB/vm%\k-QãU"x?*mpAIBPK%':y.e).WC]W%+(vNK*WfrDA4/'HW_ZQ0(6PlHo1,=*T^(mJ_#]iJãU"r8an/z__YK?20&=WlGK3sTby3/fs)0)-G9JeDtCo*sG+;AcEFQ%3f+v#fiQãU"k/v7VMb'M$a-.rZ.\wGnr)9vKX1BA5d9l'wz9/2gR8./)^s=9G,blin/Uz7:''IãU"1zSdSM'QnFuY$1y1cNHc)4$:$L:OjM*tA_Ts1+MFw?$D-eB)>CXGKqEuU6BZv,KãU":X'^W]1A3,Vkq5I&DTt^gD3Jqbi#absA_iDZ;YNv$Cniu?0dRs(]>wB[Bc'VPDVãU"0Q(7PwaPkj/c>[Pl*kDXWK<)jw_\.$]1pAF']h9)'/8BJF&P.^YRps?OeqC*P%aãU"Gc%&<9\rzm=J[*YLvda,4UBAL\^;1?eUGzP8'7AGH/V'T,]X)][dpKq66iT^MkrãU"NCi%1X78LZ*VKX1?d3$IfFR%Y,g9Y4?f(^6#In&'f)n\QIOtãU"'i6?%[&$7Q78HcjTP]CCCUN1F?Q2aWD&Cqg(UPf??%UP=[,V/DxdOMzxwe2u:0&ãU"%%N/oSeA.uGD319NE<7%BP4gBV1ZL>I:Ej,IgQ_iIET4;fCwgs$jd_Z>j^HltX)%KTc>,CdNkfROS9+kL99cotVskT/T9xTãU":s4K0P:X2YdQjQn$)U/0L-?lLJmPtiXwPM8?8xZcSY1U,/?W&'IFtIM++Et5fY9ãU"Q67V_rQ59jGu8,vrmB[YYev9Bb:8Ahr858_s]Ym(%55Sl?7K%SzPKm)It3sIWD^ãU"m3A30]FN>\FwqpwWo;J3A#LVaj1rQQJHO#psK$6:m,'CMeS)#G0B_qKanpeYO8ps.t'RH_lPh0-'Ua=ãU"2hQ)*%kbaK+w]fqCC>adkPj3e#Q\\,?H^ZP5:PgV1:X\skKS&U3oJ%o'S^SN#6iãU"4h2g?SI$1LSR7\7Pb9aWgg;zO:78q$(jcQ64&DuNDK2Hs3m8)KJ]V&yls0U[;O0ãU"2GupUn'9s8$r,NgvzeU_6fYC_md2rkO/RV0lgDct[Rt#+)\bPv(5Ac\rXi&6(A?ãU"#67X\9+%R)0MK]g98MrUJnSd].qOwDJ%w];A<(qetsuãU"UFUgOta_lqq,V(9M80UgYm0-a-lQ_B*]%3RZ:ON#-c-&uDK^3F\Ak*fZ056&4$cãU"1Lnq'MSKZ$RTr;W^0RPVMgqb#a#;?S5&nGc^JsãU"e/M3N=Wd/p6V&^o]'#En7^*U_NU>AT2a0-?]P_6?0$d?Jx?rVs5?l]c(ZLkcy(PãU"iz*=xhKD']w0Jc_HBiRAWIBqM=,ltaluc&chQ7;O4f&kkj*Dkefpv+fc]#GV$#oãU"T^KCjYQn53'[s60]Qi$)e\5WGdS*i%en\5CrlE5a1Q)P_d9;Na,6\Gq*imU]D>?ãU"uWEU7sp+=GStNimt7^6q'Tq2CD&j;f'f.&2:eQ##'QOQ-4csh^S:bZ-ck=/[wBFMJ3h2v5Us.XW3>.'K_O]B,E*7Q&l\0s%HY$p:0S1hYGaEt(Q4n];>Ni]eGq1_b#AkJsxl5Zx5eLE0P8>4ZqI-$IQ/]^4x/A(s$C_=>ãU"O9Yy,I4X;3+k:Ma,S'ehPH=>0'=cS\VT]D>C\(+*A2PlTMUybro2'e:N2]+q#L3ãU"]BiGbHcVuVRZ0eBI.Ea/gC-&mazPO%?+:Xj?ktm5j1YZbãU"i#u.tmW&oq'Hi(Bk_6g;$*tORqvct^qp-9/KW/V>VtA5B+u*#_i>mh3JpFTd%m+ãU"%E?YN_ty4J#84,[-1y^Q*[/';[?9,cJ2VX/C3[0dY%vjq(3%i\'*GCq_RtP:,YylãU"bLK87.s955#Cm?ZgfZ;F]]vtl?3f%Y%.35N(%z4-:J$JYfarkmSL$+)sNp[V(I4ãU"'cBY?\[*Hfe$3s#e%5;-I1mmf83R0JmqC9+A>OT)3YzhQ\-%TrYl'ggd#e+'+*+ãU";PoR+e'bJZuwZ.j0/suZQBEPfvQ5%:0?x=Ose)Dj7=.<+__y\eJIckzMzXmCARfãU"B?N1%ha)+-+IAsGVC4&g0$Y)1E]G>0=rcKW3+UEdCX8Ep/q3J5_B93BMOp:%^/zãU")turN_M9dh5\e*krvSqGH[(miPr.G,uvXH%[.jTg*)9?CW_dZU4s-Q>MMh/YFQAãU"x\?2'))#k/V1DoFSG_s8WClN-q^Ax#1#l-?n>N5sw&(?bfqmJQ(,s:knET*1%H-l3>/7/M'n640Ptd1eãU"vPtq]MuaPspax\cbkYOIY'FFZZoRBmBU6qaDdK(V=z;DDfFf,lejm_jnw$a$JQrãU"JCYER>OtKFRTh(#d:WBx'Jkatk;4&V*gDaX8.Qt-o?3p)45-hzH1F>hbmMT'KN%ãU"+yS98jQEs^y+B<4hWLQA1*70FPWoO#0KxMnla1nJq5ra'ãU"b%K=[:wk/DL+gm.dX+oXxGFG/d?*O\HoP(JugaLldnO&4ZO[i#ao:XQ.S)YOjvrãU":oU,%/>>X0;Wi:t9^Gb,GXxg_3U#BJo^Dl+fbrqpe8':\fZ5G#>/hRJPg$Jo-HgãU"MfcgZ-&&SHs;hjB)&tud-b2hEaj$kYW)85vLv2bO:M/ZãU"'F/,&l3WUs_Hn0.t'j56Oy=&+.BI$'PdPaMq*SJ1ekNbT$/&VZ2+-af1I2[\cUoãU"99TQpH/?)w'.%DUa>eT8=[d%L_3M-^rF13;/rhqdY=^HnetSxHPnJDp(L;H/%pXãU"obcW[s?>KkaIQYE,&7X\V:jp,7>k*(=V<<;P#F/o71H>NqO92+qyU1?XG.5jr=aãU",A%a6rM,$?4+0t)[l4)h2x>,<_T2B>Q=P9YKEi(2u'j+(vj5S*#YWy>6&,s):0FãU"]HrG;cP8Hnt9/0KQ(quWqC/I7t[k)Pbt['[ddY:Q<_gKt7hmRvrMy5nH\Ve[gTTãU"luHQ[7qotH$FoF*lh[s/lA.6xqWdl1O-;3=K3OO*;Ty0ZI\^I*vG%4u8#b;_gcNãU"$TGoJj]&fpV7HNC7Y[?0N+XOELbsFQ'6.ve561jeLBPQ/pi,O/Ej_mmWn$5h%XD#p(NB:3+ãU"F+YT$zrjGV6V=n8w-YJg(eR6j.^zz[m,)c2+%[G>jRq*k40x'52bU3aQ9P#NRBkãU"Aa/MvBl)m\whLC[yMQO_U9I:*#T&4HXZoitq*b/gMyz^ABvBe=fiãU"SeP/WKrYcGJDDzD&u#MYR/MN+m,Y-,s]jh;)hZ[QxPn7&k&%&O'R3mWmF?h_Giv]9GD?x<(emia+^:6#1n,N(p5n=bH'40PFC-7VoRdiK6R?hqpEnTRyãU"XJTV2Gvx?$H8w[W=[gX4+Vm$:EkiVPCo;&&B+KJgY4vQ3ESI\2r-5Xj0Oaih%$XãU";DwuZ[B^RI3h.$BqbUIJGPF*_g6R->I'\-y=zoWR%v5G18U&?7%,a9q(o.a9VD=ãU"DTC]uE+'b0ZUR]#7^%R1EY=d%\OO9,j\.3I.ySgF._FKmwUngh1Wgh6+wp%NjPlãU"g$vNUd*]Cr5)Vdur,,DKDP<%HvcK6$**SEdSeV(M#xe^>nãU"B[FG3bN9GKg%/6$'hk>k?+eEI_[sScT078\ZEH4LWV3,S1_5ySpHH$B=leW(9cRãU"IAEKB,CC2J;aDjGBa*-sa_YnDhGcI(Re84*M\hD/V.kj$>ba_gWVC;D+N'P7n:gãU"Y0l7+R86vEF)isCcc6%Ia&ps&6K^EiR:($j%%Q->)^+SjErn\w9ZjL=y$Qe5ps;ãU"[gF[e]L,^%=7nRhTaJ0YF>Z:;S^k';7S-+mtW*+51-bãU"m(4l/8CLEW9m++r\SV/>(XDhmiNilNIswF)*YL?]1)&P-TvU5pk#7B$sK<0gNtKãU"isHssu/%GeTR#2mB+BP,FRK_hB>aUaH$kbqJUq:.0G$RZs0ERT]NJ.=g8*.1t5dãU"'8.#LW5-_/SW0ZM#*D:'RK$*(3f$D1:*bO4+SsySsM7PC;$/YeuLf^r&gHi#x5sãU"(W-[;ht%cte1)=T]?%*H_B5D+IPj7p>-165zPzD=%B6.*6M,X>z;A7D,lVSqd8DãU",efq_f]<8W$K'3_Iwa,;4z<#%Cu+a_h3ZG#2uZgP-x*;-&X/;R#bNqi%<,-k;?[ãU"qbp9_slqMYWguM.ww/^.nq/NAX?<0M$rCfXãU"98KiZ-b&tMyRhO6pNT6E%&X:L2zQYU\:f.$Yj)e8feKhy]9&V8B3*5qg,F4=\/7ãU"E]qwJm\dm46fJ:HUN2h+$9JfLVsWzrb&V'?<*,/.jdmx(5+ad$S6fqEq,O^'_E?2B?$q4RiãU"z?/\uR%?20eaj-90T_EV:xmZ%v1%;4/%x[$ua*Iy,e6'&0(VSt]4;C4U_WM[0]O;k^%+G5qim/LB*Bo\a()ãU"b-jsS6kX'B^d/oMdRuI9WZ:&0)*RNb%JRj6epqh9fQP3hu?R,2nc&M=*9<,Tse)PkfMI<ãU"B$,9:=vH5/a*qo6*v%TgudzM$CJ#Xd8'yWdTrC4:myalhk,0[Mx*:4OHb*^zk6CãEND SUBãSUB V2ãU"X_jMlgT%x8IgkARYGc;J1$yz0c?Vc*m_xRJdf]k.UT)=gHNF/]RozS:]fA='#q3ãU"3p#v/?&/cRZw]/&%cgA?YqReQ]BaeXBb(B-3S381xG2?T]%Hkq2NHlkWhCo[WxOãU"-ED=V2#$5u3BgX'+cQ=qg;xON7oBZX?81NYfc'VkUipw#z*;C)=I-Mu+M]sWg&+ãU"waaRNceE.OGaT^q8mQwR$K^mfgLTT,i=>M^]_=6V#I:z3b\8faQ4,RU9]mgF\pSãU"^15nJ01Woc=IF[yJ,%6wC3L^TIEw<1MM=m9wy,8#HzCmkoZ*I/dR-YãU"Kb9J68Zp3xfsX)V_DQOR4]1jJjTcBwkyrTj=Eg54>K-]vL^/MoI2[H0%=#Y4w*6SflF=\ZãU"^1\?D97-5jCM)\F1_bhSSK$s95A=j/%:gi_mqTnWEIrK&#NzN/Iuvsb\Mw)hameãU"J_u$a?)E#w>p/ezeGW8ZG#Q);RCb'2,sE'H.g,[8>l=ãU"'kX)ADcL5yGZ3u?CDWRhYQDK>LP6Lj+J'JjpmSVr'9I[WyK0r2qQ/)]e-ro+kOAãU"VLa[Fq2y,U5.BAhaA7?#Uta7KIM03N8h$=mxESTkee9LIc*_^1W%Sm\$tP*gu1&ãU";fnoK#F9$9iS[#wIlcVOS.uN,F^ISW5$&1SEp7jPN>F>a_#D1^o#dfNcNZP%%ãU"2oz?7]>8kCZk;b1&llNQ&Lox-XM1\uPK:lALcCcd0p'd^po+Ne%O^'u:)v,oGTIãU"e%4H;&]u0ec]a),8^[QPGeDOI[jDhj_EV[^Uk0,pfrITb:?husPUp0vQHVH&JbrãU"&)b]I#w3Yd:T(o8Yz5Ih(Yd+nYocEUz:LK=F)*yK:oDu_&yX.jw*qlT[zfi(MylãU"VI0?Ha$D\9Bf[K[6qcg)o;11#,cB*[*1S#ry9-/rZZlw9.XgjP+:>/i4i^WwvuqãU"9F(at*Nw,8p%94O9-Z<):8euxp)jXotX=$U>\mdC%-N91o.D,R,9X_?iJrd\r_eãU"2jU;NjxpPuZ>cw9>.(,gOZ?v?&,tOn^p3MnoZ'Fx50>NN88onI^=TrZGV:%m%3HãU"cg&^._M%o&3.^eJyakKto%-KHAD8RAvIrr9S\;m<]DHLDe$<0&EhQ[V*>PeãU"3\%b'9TGz9*33IuF:()YuG]&dL/^I%T5j&]oU]LD0Jz6lJrvGZ#G9XT-/80/[^6ãU"sAJX*eaGY?o(WbHJ_Qh')en-%^/cT*k4f]w(\3QPvb_K4,cbc]:'YLPd4LQ[ac[ãU"(([FX49?3:P5-?.)K9Y'-)Qa$PTd^igvr_sBCsj6cTftfOxwUV6;N<=jI9J7]%AãU"-d/G*423)1CG93_liVf9wn0Kp[\ãU"o[5ImT#+9jhmG)dGH7%JMZv/h773;6IK]<\Q1?1&B6ng-f\sTYF7yG7.NX$2tFFMaZ.ãU"i(E&](?;W*>5_oUR'TH,YWq5?tRdMFRI6dO#G&Lc\6i1?BsW[R^>6xTM/krN6fdãU"Da.swLr+'CXf=Dp-0ta&oyZ7_Z;A2GY[[o*CpPFt2XãU"jrW;L;FjVis9al&Te;L_X]>_]DN=Ps9R&S5On:Dnf?/8M)db&k7C2w&1VPdH3>RãU"$G$^R6ep\v]_V)wFh.kshZJaK]4eYQkpI_7DM0ODJvlJ;NgZWDNNT.xXWt$vDHQãU"t-jY2DO24T-xjfu\NOU_eB8\+:$?z8e5$h3\;3kQN.sE,Q^l'=K.(>:'s\*X*FBkfrT(,[z^&ãU"'l9Rt[Yvs9ir,*-TygBuZ8t5[a3zR-(;%#F1m*GTa98:(hwr_DVs2hMb5b=0^i:ãU"*[3zNQ16YCo8ng\ak0NpAn9lvDb?5^qd^=9a$TzomR6#e*LKh7PdPv3O8=-_[[dãU"-MOvXM,NvAS]$g&e6:x[qz(ZD$O57OvlS<;FDhoP9XYxv55C^iV3lD+W0>F&D3<ãU")Ga\%3Qy>#z55'R]/HVMn/2g%S<.jC;6:fl>W3c/Jh^4?Ae3'%_9NUD4eW.gmz3ãU"Bp6Aga?CIKyCV8m,*NLD$%y$OH\?jjW7u&'u$\l^XE=3pS#>NwU%:E\ZLBrOe^fãU"Y<&5).Yx$C_9cPt=MpI;q??JR0^#5K0a$J8N&q'j:hwUUsen:ffJTre'aEG/g>gãU"9e^KN3//VD$2L>gegoph21y(=q%Nc_tkTcS1\:IdgTrVi;PI0DG-(tz5(rE(j2aãU"A0Jp)X%4vKgPcA1PU)6/LC?),OnKpjTg8c_7o,B]I\fFsALHESq_(Lv&m(/Pw]bw.s,AU?&U+B%m_#<%RGyHLS.9ehyz2mSeDfB3Gf:AVO,l9eAHRpYF1api&eh=\d^TtaHa4&'C1J5v*sEZ#GMãU"s,#n3r'OBXJtv)ogeL4gOzU0+EV*(UV+u,IdgcU>HQnãU"L,y68R7=e,-FF%Hu-tLqoouIsfq.qO/Z+uveK4'6e$L5<2Oo?X-mW_HFkh&J9.xãU"D,=AVg=QDAQT)tHwEY+dUs:c73:gATL-qm-Ur/hwkoQIRM6ãU"AkJZ?RZ.n+vlloK:iD)ZdiF0_JsAd%e%lvE$BFrMCTT1H)-nNSeE**yIitGb[Z0ãU"+*UJdzr/PSINtLzvTV/U5dt08ws+rNMp(5u3IV9sqRãU"Qb=$PO-,ATa'4zMC'YOPpH,7dNsxpnr/nG61U,7,Fm^of,*6Ao1VkwzJ$vnoKBsãU"xm^w4z6tcsAPQf%U$oNEF*f[2(H_FR#2eUo*nA,-VUqIkn*?J1NupBm[Q*w1AP(ãU"#z49()fkK8\bZu$q2-RSc+0^^u*m79Fa)3=vMn;&L'hFWWWWk7r6\'G/W:ãU"dGb>OD&VZEacZ/xYO?)YW(??TxljNPWpyv?#:qowD[N3b5BDS8p;nAoi%k[WdQ]ãU"5c47WFrN&:4b&XQ&TKqf-2gV<;4B*hfEX.%Jy8^H3-DN+H1mM9P'S-+bNz+t(rC(QXJu-f/v>$5&-2S-7cJJrjãU"Ap5Y32mq'PT[Q[e1Q2:umVT\bjfCkGU1]9egF18qk#hnãU"W6f?9%,/$u1dhl/3*jT<)eF'UB[\[I,=(rFOL#4j>d/AO]4G*,$>Fc=1t?m\9u?ãU"c/Z:()Y1?).LB/+]MbbDi4o8h*g\ye\ZGN*jl1F*Pul8'g$d#5R)jD?O.ZkIGAlãU"\FOgczCqj-gN%4$eA]\[^aI3BVG]kXq>P[R0>J8;e]E:pwi_*dvr-Yy,<-+?uf>.l3\^/L$CYh\ãU"csST$U>V,8]#$*8a*]1^(V2lBs86M%rH9sg5SV*VMzzdFPXT0b82;t6:dT?nSdkãU"(.KH4WXGNwlhec9Zh]ZFd#$\6967qb29z3&,VKNr42-e+bhwnl^P(%4GNmUtC(SãU"yqq;0X*W?E&em_g*'F\Zl0.5HZZVE.ZU(4N)o1QR/DmGTZ#\lP=uMila1oAgCp6ãU"8acAc^NqwE;u>MUsooW='kvYq.P%WI[gY4/)zxEP^9UFrpdV/A9nLy:0DRk:T7pãU"7j2vq/0_mGhjwBkYDAMh[nG1Qhe5gTZ\l$<3PYV=>6V8SJ+AO7])wO8,eYmkGrvãU"Cc,qK_-%;5GWI+,YoL1.v>hq[X?Y%^+PK.Qy-U0\Vy/aub;+ep)urY0-gGVVQFhãU"CnT$$EiWg34d'MFU:m\_W#%A51B8)YUn.xSpqV:vs3)sK2l$GC:LK+?[PRiOo,HãU"Y_/RB*##*%ckQ\.YCv[3Ls>=prn+v1q9YEKh38ãU"S,FQNkr,,nO%kl)kL?m[X:w.%(n5+dJFC??oti.4:<8J,=Y'Y9wSf;:s&,_;Uo[ãU"1^9OU32,/m7g&AWo6),Ol'e8Tw4KsG5^M_vl.^+uxl5cW#-;gP&px>W,teB0T86ãU"Jfi^EOuxQ_nw9I-%=2/rhFIUG%Z,Ii>BJg2$(7XQhLIlGkB9Lt5O&L#'A(g(2vMãU"cWt)>6P,$pxaduc\5m4J:6(IDQq#F0p%#n$UYkhZ1a$]K??Gsg>6:L?)vPxAe1(ãU"v'Gso;Er1dS&-K2hQYyn*;)E8'Q^v#)QhyNWyR.6NrX_geh2nW3j70PJYU^>dOFãU"ptZkE;cMgC8/ab,nXSu&H;'1W^(N'bRQl5rLi)n9Z:yurLn*_,De6S9PUw:aLZ'ãU"][4[Y#r%GCZxfBi/G\2(z1cei=_.+f(lU1Jr2B6*:v/iN>XA2A$)p3>2<6)kye.ãU"3o1xLjcXw(GxqQT;d.X=]);238(*M;f0S&;GoTM0MeHrWHAJtZ/.Nsf'6wHBcW?e=pG/aJSbs*36R?Jh:K0FNVs(ayD22AtH;+q]gPmNnDX]llSUW8-16xXãU"mkd[:C$_M'9B0U]LCJKQ%6eH0uQ$Z7/Iq<#/x>#5tD8AWB<3[v%$p0ãU"oocSdaR,CBbmFc9Bmq_b).qKiMd1qWL/6>ãU"*tx+_bps5wAfP&ZEu9Yx/HZH:]:xpH$\x;EUNfd2&cO%Jb?ad]%(e)Jph57b*XPãU"Gm#$Fo8-HT)0kmiCQxV'bP%;kT6BY946X*&o(;l6.B.:>c7HlAbIwq?c;Ci#>IwãU"eUefs0*Ke<;3DR3bNPu[,4gh/dF7UP5C1zPBEdDMz'0pKybi],c+Z7*.OlrJh35ãU"L7]x^1^M&uVO[6oOd-L;qLOxHh+iLGyhJM02V$<$9\Cr.vCtMZqMYaR;NQvoR#.ãU"kVli.JD%DYARYZkj*89:(lvRSKor-)\PF8aFfdJBOr+qJQe]zBg5A2\=Oym8l2EãU"2u)FjjN9k_cVM*=%z*B%74>BnoID7K9UxDX:-oro3K3+mm;-EI<7ohZ[iR=wa4NãU"JR792F=C08Bjw$X_CL[Y<9BS)%q2mj8o;G+R^gKQM^a7,)XqbNMM/-+tF(T$%TOãU"*66T5DBQU&Yf-'dYV[oeN)6T([.)2:8:Ft3zK?=]E(WwHb1?Val#WEF3J'mCleQ0$uV6<8uQNX:N,cBkt.PãU"X<:RJ*C*ukh.Seu13S=p_S;j1*es2j*]j;P<;%;5w7u/a89PãU"+KxzR5Z;R$&.:7Lp8KhrFX3T>bTP(qM^&e-.*v.e:TOlu0o2z5#_1'r[tnmKFgh#1T0JZTRI:kiUF+2fh:\=I\ObKh-v:,gLgRN5Mtmhiw#i4J'JJãU"If]^60s[Pt&y03iNECm+3S_(c*G>*MãU"=W[hWNrhb+**2OFB&c'3w3EF;cy$n8/&/h370SDrJxrZSwA\24;+*gdldsTd7f:ãU"Us643%%BK^HYmVgãU"V7EA2jBQF?Buuo?if,s.P$$;G]5B^=GLAF)vO+,'m;4aOR7nkBQUn9uTti%e]Y&ãU"EEc.B,muEG;h84..;':D0%.fn>HMK&A\;0UfuO:2<\p?$FDRt^#BJ#szOq_19yRãU"]Vv[#IW2aj<70*<(ZLx;rRiW)M;)h);nd7NL#/%IRRT65Md>98MLPe+EP)j;I'cãU"(G,n&FZ[z6p).q^:o#eskXL2:1<;%1<9>J#&Zh*?SVSHJG*.=xd)p0KAP\u9wm,ãU"ZEu?P5_Q$JL)[xMPOYH#p*&lgZ2k>SYV4b)0]eãU"7[=e9:f^]]VxAh<(d>t-oE;dyixDXeCtEQW].,UmPIT/6r$?UM5gCE?P[Df5q#ãU"+1xfQXaB#UN[7)O_MYYo:Ld8kE+DF*-o<>HjP:>:P,2Spc?_NDUH\akMmlFYAiKãU"EBLOoBo*VDPAvl[3ODc>.Ff2)*x_nvLf<1\^#8#=]o4*9GRN5ZC*2fA_A[5Rm[#ãU"cEk&6?i/Z=T?/*Nai?RpPTAUdnLE7;dx[Bq:o=^6T#cBJER/.p$-j[F'?G0_AfnSM)O;hvXA;ho5GI9ãU",0&20lqQC9\^s;Kej,$uhL_unc$qoWjãU"[5NTrMWs*7y)ND\dhB)5?dN#Z(EWx=mV58PBJUh,X68E:?Ov2y).OvX9u#RU<&wN#DeYJ&:(Tb3bT=K68#n?l.ãU"^rn_ol#5LLH#Ujc>hg$LM-kZ[_#)4ãU"Frlc2BmcoeE=]OZiDZM4vWSWiC&1D.iVIU?q(UH#x0HN;$579Nift,\e0%o>B9xãU"o0JXB%r9ASaI0GO(&i.\*bfRk8#w-U;$uTV94mj.1s'EKgijAp9B7a7gBO$ipMGb4R4Ds*5GA3FH_fu9%#maQOlq=Qa\91g.h2&KQO^ta(iPEnINh8ãU"[O-;_a0:BBi$EV[Qs2u.9*'m<$='.?7VA&S2wc]oERh32eFgTO_w9ONsndmV$B0ãU"OjoFv$VK/k,&Dx^7ags&f.gVA3GR?U-g4Q3:']%\WJh-UNR#VoV=P4rgx9<,ãU"^L;F(hHy)tRA+esiNHFIQKF*:%7GmRU\:$]hu],h6ShIQ0o,-gK'89irYS$gi1>ãU"_RV[A]]daH*&mKDW/*p4Fdf-3Fn*7wz.AaJR?6c=iBUmb=Be5_tOmF$\,Iv=+SfãU"gE&vjZ&=FEi117)Lz-/S>\/i?O7FUqCv2K$d)RX/ByI;kIX^vNIo<7r-JfOBwS0ãU";[hihdk#f0eSTh0>i*RUO?X/VCq+-Z*.FAR2HGrqzhB7YWFhcE5T$%=sC89KetYãU"GmY,UOCMQIfVmWTj+/-]bHn+h,kwRe):%9IGuGC'lf:p$=7f%Q_Re%V0b1)$mM*ãU")-?R36N2odD_1r*vfT9+g?kY=IfKPZ,#3.]VSg%?QrQc=iyVEQ:/paSGba,/5dQK_2pu6E/+BGbcX.==VU=bmp#^nD6WEmw=FknPFTfEA$RxI/_3sNbN$:7zãU"UhL#1s5J:4FB0E6?lS;.ZomEV;n?i;[0n^EwELVlYJjãU",hRw(=OAs69p[=tm$i$/\<.,9vLDUij]?'TgB%-Fxg&,(arhePEV?(GORy(ãU"(%9SN,W);qNGCCLZ\>TMNEYOwq'5B#V4])1HU:b8$=P69WMME&s+eR/IDdRFCONãU"=J4ARG06cjr75IPYãU"kRmDo,ed,]b#+v>k[(#$]Bo8;0_HNNuu(G+$23FA48R^q'T8deYs*m/AvPh%+#R\g=iP(/9](Fq(9mTli>vl)^ebãU"Iz-)0np91NOtCWu*('o&fUx15G_\A5;Nn_Pkci,D1sb+jlt4]7ktw\>#EFL1zu&AV7HVo&R0ãU"tZjB^C^*l:>.i:+cqhMWE)H\X0_;^)rwqKXtBc^>'&3Ne?QvLKmNnR:.>1/P?;GãU"t^GQ5IYEt]8[>=o^+igsV[nRn5sos6TiS2lODjdlK*f&:vtMu74PYUXxTNULiiQãU"0n)lP%%^oqHA+DT$kG77iYE,vZ#A=N^\xR>J;^9vv90AKN;LhW;?Y3Y=L8'D_vuãU"A%ccdMetwKT6Kw4j2gGhe3a]#sp)1oL^BVKRPEaEW#0=&\DV3*GG\D+fT]QQj+(ãU"Fx9>jsãU"\Yv*k7r$7xa)SIUt\vLnkH?CHi&BiyJ0i9'&JQy^EMivG#$#],W7da]x_7#B=/GãU"*2F1:-v8A4EpWXQ)xslLhNi]ic>:?=nqzHZ0NFOzikUcwYVXWjaBDjNK\&k;fROãU"VX\7g=lvQk8,OYa6&RT3Pv?dQ*pR5$&]+;B*w'Mn_q\1(tqKxWXWfcN#9IPlI0<ãU"(w4j44>k?tQ8q33Sbng$)6GXPB2I45>=RV]FUFS8uSpX5T^FdZ7_LEk=t+K*F83ãU"ZVEeT//^;kJel-AY*M9p3rT6QC^*DZkqI6,mH,pni>.bJ/Y==;X*BSP$t,5wO;[hcb6w5/X_f^%Whn/ebng\.sWhmvBgz?T>3^_I]TasB[OkBio%ãU"gqaWs*e0qKv3A1DeMp+bBO>Xt),=^5Sb-byAO7K9K*X6U0bWmPqjLLy$VE)kh4VãU"Y?Gv=sAs%agsmcRs>uc;?(W].8E)7E99ZYn3kpG.ga^dd?)>HX_Mpweu,Qf#2mVãU"W7[m3pA1sBF\nn>qb.'KlBm&*U,OMa^29Hw?WWHo=mJL$]r6*6YaO[i0eqhlDY2ãU"Uef(89]5RuuwXlmfbg]snGFeuHo?AOJM=oJ\V?h\nDYW,$B%9xU%sM-ãU"L?8lbB['#aE3'yJk<8B*TYnw&JKiA2BkVrPf.\R.MZT/XASCT]?FCKh.<4/mk>vãU"mpC%LziS$XDOYktdy5ptl#6,[s/067MrsAq]Ieos4R,/2RJgoSZ)#SwLq*kwtUlãU",g3deVDU5_Dbt9fSH%$RnsFcJ]Vz:^uH\$DfFxeqFIpkmsd(5^[FYCtYViCV^1pãU"XK%x4=SdO2rI/\Zh8i(hIxQo+_m5MI-Yvw4C*#QZ7[c.wa]Y49q2aB(a+5GO,:puãU"7H$oJxn$WcB$(i(8a[Pd8XA.Tf2rm32pOOJ.owV7t7#W#ãU"A]5S,:rYPkbuQmOBS^X_9c&9Ja:^Lvo75e[(GJu&5%'aJ8Pe#U-,=pD2/RqZ0k8ãU"IglNna86hmXTG/Rjc>G8:]jFvT\A\F$r?Z,rcki(*xgc9pErszd8aD%zãU"&7^ISt$Ei;1xnLE%#9Bh#p,MNLe(XvS2nmh1\>UP5y(*pp//]J,_O:s&T>.IBuIãU"1dn+q5V:I_r?'gdp\)<+nA[inByK_cY#(K4ArX23WKja=tj0eLr3pEC]Dht<_#cãU"*X_r\3g3e6>6M1grmz1>nI%n(A:k1w2#q*VwaZHG\ydPX)v?5W\eZn:znCNãU"Ocdct'eDN#9CbbhddV9t9S3:q8wmeMzy(K\PFJRKc]jADogRJ.33$[oK6=dMU-;ãU"7Pb0N\q;[0M7KDA/0]4MVd9^hD_ZiAqLix/OGdd'bp?[%WA_*h9T2=Jds0\3+jyãU">4kpp/qIkKH]t$gcgOV\iPHI8x#91envtgn)rNd1i*3+1=,F;JN-hjV1#9LkLFyãEND SUBãSUB V3ãU";zhlPA)Pe$?GUg:#08?*JrmI+A_JQ]^x8yEi[#DNJ8-zB*j8$g:[Y']nD(#>ky3ãU"]%Q&lh,?eC7=r+*6ZHm5f/g[1R3W0bBwMHUv;IcPv[%$54Z6es=d*1/j&kq9fP]ãU";MD=A:t_WREq;V=Wn)q84;r(Q8hU/4Hm7nGP3ADq6djPo#]9i[=MN6Z-%+,[d'XãU"^A>Oni#uuK%3PT2G_ccCp<_t4_ot^QWTZI5-H_eg#Ib-J[J9[.uQI&2Zq4?(;0v]ajv3or/Z*]iyRmãU"\H=1iqpW_,(81TLsdaX[v,WHWeXT:z?E3BUnãU"_]4jp.Q^3&OX]B-p6c3GH0,cPSo-R%-e:wl$^<$#+qWH$B?9L/kmS8c7D(T%,o>Y/bsDp6O.Va6k_?onrf&BaN.$h=P[k?6;TE4?mZx_sMz)TfD?,q7OlXib)[,_**TãU"8^5=o$UA8w\Z),B[NEq?yGn]f$:IQ1;0SPa8Ch1AnO?V]YMwQ\q35E+>8q7T(3&ãU"lTFRYF?Z.U0E->e-p%qTG(6GILyba,vhkbZk3ãU"Y-;WY>^^$JJVa=6Wb0_Ee:J/14Qf9U46]]^+q5tYHys8uNY]k-app9i$oVewl60ãU"FVbc'LK'o1%v,AqJ*H_le[<5s_ce+JAVL7jgG];vWABc$YãU"d^TNp+WG?q>XdEK2O:r=E;^heSupT7A8pG+6odCxonZYegHAL4swXjWAT;,jwãU"YDHICSYm;?KAWu9s,:e-a'H\c)'g,(tPY]O,.Nq.-9q4D])(]K3ug3Tm.0Eba]]ãU"zr8+t2XzR7]UV#OnA_nq$B+,g_/Cj[Z9dY-*RTk%KBsS_w7H:'5E-SIdHCpfK29ãU"_bI)+oF&/:d:q?ZuBh^pEDlpOCus](_Kt:4+_D&_k1ofT6-k8wBP:%p'A*O&)KsãU"U=1'?0DssHs$t;.C05iug[Meo6kLFajNWgJ16^l/'=T82Tui02.GMSBGCaOdQ:tãU"_)g[C^)=GY6qpcq#^U^JzzTXiE$v92ncI$Mfiv;7HZF#VsKtkc*h46gTW--n^VOãU"<\Nf=V^=RdHu_&egXS^Zj/IQAtTIV,+NdIDBOãU"&]BJ8(wYC:VmM>#9s&rX;^>o:RO[KZ6:LCa/.PbOGgNK]adbNS2v>j],Z;PK'K&WLOGcu5l36NMZU^3OqG^oZe8&2xMSpãU"PlgbL*Tbx\c0Tq+jen*>_f$vF*N;M5k$,(w\LqVZlPc,uL&?V>r\c,uyr+*r6e:ãU"]LbmB*qQlt:tYq,0W3iA6oW+eTuw+.]mB[:Jz?h'lpVv*U3$]'WXF+jL)CU6o\PãU"$m7pB$B1oznFJXNp6*k7_IZ=uH:1C<1VmK\,Wq#CYV\kmM$I1TF3uH-d2bTpY^OJI&OEX/X]X-]IjO*,]8Hy=m$^k%U)F;ãU"sG;eiRi%TPb+flrK9+G=uet*X-6ctFNP6zzJ7C?W3GZ2=&ysFe=+OFHO=8G[m1kãU"Ir9-w9*cW9B&4VO]H13JjI,=&aG79K9[D5.XV]vC/-u/f#J]*P#8+'N0]V2a-SfCOZ?YãU"VRf1(J2=[4alc5?KkQ+-Y4j<6Vr4C(jedU08AP:r^8xwIKYmfr0a9,#I4&=/*DWãU"N'#9iC41\=-;pD;Yf3IFQggj,.X3og5#s%Zj.jX%A%eM/0K?95kI'mUA<018[%uãU"O?aN)Y)fpC['S3VD0Fq#A:x;I4(PVxm[_xl+zoN=$,=UgWpgT^I'+VX#FPU]b]xãU",JQ/g(?3f0(VU=Z%PcV1x6'+]UID+/&'T>U1(P2eQ5?/6cDSDvjS?a\[*7mf&^&bL7J33S;iOX<])T;)k_R\Cm=E1&IOlFf^k=?($nm/]\Xh;FPU>S8=c#.C)Li%ooijUcO5Z2rV:]Ag)&[IHãU"'wTj?2[A(u8#Yctv%*0#6&Cq[RIrO8R0yCik')N&>d]OPFRk/d-y*;g);wa5^OBãU"*4D1T+?u)V%a,zl\#5gX(.1ez/Y(WOGS585IW6Bc39y3l/V5kI3\%fb4MAãU"B[>l+P1,U6tAt+dFJTb6d+Err8w8$sr2+v_5CE#03-R)TE#$Y2-(&(;)E7pTN'cãU"Ne)vbW-wU-]voBe;o',t/=[DdU=.Y&gXC1N.Mb.G[XPF)+?kY=naug.'e]f\tL8ãU"'2m^]WGBeBlm-gQ;MKTW6(-0,R%u+rE>%V,;_':\OgibiYupl%+km.VV;_oHl/sãU"Rtinu?iQhII3r5(tk*Rh4laM,;<=N;kx\fg\+Q']d]i8>8<<.0T^9st)Kq>wf$pSw.3WãU"#q2qYn*?j^u_G&N_RiOUSFeix(fB+F2EU%Ahzn52**F^?,Vj[JQP2P1qiG(KN_AFff')SUuX*YH=#_RR'U2i,NmãU"f2QI#OFe,1RAjW(.].5PIO*Ndd5,C>wJ^NFOlKc>.>9lZ)Y=(6BTmUDI&?MvM&JãU"\=c$YiCP-gfItGL^Sn>3OfWD89Le_:EmA05Rw0AHfEelj0'=;ZuLWX\Po[NF,\NãU"+JCEK,AjBsLy;3eL/\yRTd)7+,f=Y8/v]fwCOnG&#CNpP)irR'.QX1g_PX-ZpWFãU"K*9GXbh3dggXi;)hq*>yX=&lw_=[m1r.5Fbj3#kt$?ovJr5Nw$nn=t$Ynwu6]slDxcrHdvuf(xqX$w:>?meH^u5xj\D^NnHB.dgãU"CIgPGNn1dvm]\tdwqTGx\XTqhn2Nq^qWrbu1>g=wHbpxNZ$D54x;XqxXejb5%V6ãU"nkup1).xujp8vX:xEwcoXmVbNx#votvurR$Jvl+-qXBt(MoLZsbivR\d.bQX&t;ãU":ouiIKbp#gjG'J<[0Ds,rX+sV:pEb3PJiMRN#,?fq$HPWRUk19+3T_2Z?e?^1S0ãU"E?*1&Ca1-(?XO9ta4?_oA*Xn[q,t>i3.9/QpG0#CR%A(]+PK<1G\3ZgG,OB+C1sãU"gs/b*G*md*]*tq#QoRFcX;+7Qvk*$&Zs*lTLHo)E24Gd[3#V>H0)-V3BthsXe.]ãU".H*a8oOTti<>Ql4'HpM_g=n;krL3ZdKby^e,L;[C8'+Orr:s3_z=MB;N)d[_VC(ãU"VqFi_P*7ci87gLvp;3>'VA-KZhwKJy[/ILfVigUCW*u,E5c&c;7G17JZfRT=i5aãU"Lx_YEOY4-Uf]a<&r+1j'LO-4>*jCnzdNC2u2[W=*bDwT#8Gq&$[:v+&(?_TASnNãU"\28-QRbKC?Dxq['8NR$\o6.[P>_o&nfoCHU(lNm)NqZ%p.>\9e3oh,3+v]R3R8WãU"+0^wBXx?*YKE*TkVdSfjb&3X<5e>%I:=85FXF?&Qg4RzpjhT8U:1n_cRko0PGJcãU"Ah4Ul5t](pbt*mju1*SKvmHVao1m.8[OD%jNDx-cv8RT3OZYt[Z[r99ii.?4,K;ãU"ozZSBhCQarpZT10U#,,K$tp#>#l\#yo-mH*&=07s<3j_Tki[lU[(3..]/)S5w=WãU"2tLG/2YtcI+pO74b1^PEtQGMLPeyw/Z-TWNvmM$FãU"RHDj#c+L5B_Gcao5oRQ,BOmlhZ&Y-OzjKy\_tJrRyF#ãU"-*0=1+Eop%9Amaw$mLC-v/p^F$??Sf4^/_cãU">gQDV&2q0%Bhvbz,_Yg7<&h5J/(69fidy^].&uflfO6c*sUV(q66+PrQ_T&;OqkãU"0*GjY0#G]b=tFCKlR*W_CQnweDtxh,f.=)TE2lpF[vO98vq86E&hN[fogjZGJvOLb?Yse#79'ãU":,Y.oY7^A9L#1:ay;nxWcNlK%TYeZWãU"\IVu9w9OLjtW3OGbpuA]0+5mvc$#_qrdS%jeu8Sj??)mT&ãU"HqupQ[hz.ju64/kR0[eG+;s;&tQ3C$E'UXq=')sML/fU<8DF?#P)sX)v]:NeGnEãU"1pub_mINVOw7QX#5&b5#i^askj[R2wN-&B=tUyp,VU9b+)N.$6u]9#dgV-9El$QãU"\b;d1R6V3x/zN2w_>F0Y]7NV\5dZe*+6q+alu%%Qy(FVoQ%D,sHqRCwomBzvGP[^ãU"v%.uleY;2T;yn$YB9q1w/ZP(=e'bT]#41/cAltJHR^'K1Bb%y_1F\hLIQ[e/r\XãU"z08.e8Ku4qli[.,+p_.6dJlsarZwJZSCeYaNcCLp$$[w?+27Qt=(%DXPdte'^weãU"2\FbwEdNFx_gw>*AQ0.]qB;h5v4[#6A\&^*3:z#gyX=VwSuF^f8Y'eh<*I&ERc2ãU"hn7(cwpoH,>*U6\l+<+,9wR?i+roF5G?5CJ$X2Kmqx513maohft_Z)#-GWFESOZ?Km.C-snMMt/hT%w+ycKylukH&kub'C8'iR?WnK&zK]0w.XH0/RDy78L(zAãU"0/x)tDY6Z-K^l%j.pvEated%]TH0Faeqfo(G^.rSjgaaj-M?aUMa$g&L.N/ãU"L?)D$6Rhn>LUb##]Jf<7ãU"//ECMt,$eb'^xWhvKr?m_IU5$ClMh#\DNlcr(,7J>$+&_N+;Os;1f'RQN5+f9T(ãU"grRI&)Wz9\%(0kU,*cGqE(Qk3/LE_qI3Z-^K[)KbAjg^nUGF%jCDwYPj,6gtZbEãU"qC\^7d9KSXJIx#^PK?u9OolJqi)O&tKxaaV'K_EmzMaY21SR?uU>t75tBly3aSg[o)I\jZxu_+wDgaN$_S8V/9LR:b%9;rVOJH5/%4dãU"R<5/bK$m-V#CURiJ_2t1hlEH$Rf#ct65ãU"#.oozV78#=F9V)0EsA1l^hhQ.qQN&/mRk1-qV$XlW_=h'dQ$:NO4Mt;V$Wnaoc#ãU")elNV>(k.1rLlq(Cm5nH=x>)%xgUK$gqX><98itoD;$petv8P-q7&A7RfWga+m+9iE(A^/Nb1_9^^xnXãU"iaM4?9qvniCAkyv3,w8-N3)42BtsN[o[XMc9'cV0Q6hd6$c90HuIdrWKEW2WrM4FReHU*5ytc&ãU"0iP\PXpMG0bnN)VJB5FRWC#2g>=yh3mtZP6VH;i*v?T5Q$voSW'jg8Z<\E(UqycãU"eg/.kEhtR6HA8xRQ_gf*))DL=i:7tF+84&a-.;r%F%gj:qf&Sq>eZ/i:v-%VFeX>3%WL;TX,AILR%LãU"#b9rgymRp1GMov38R:FJsE]_*0S/fShK^8kH[cj\ogXmlU^p*YojIMXC;1x2*F)ãU"y]Nyn>A<]Jg1o<>6.1M[nXt\luEs1(nPT^7%8C=Ua\-cM1#?D*77w6QmI-EW?&'ãU"9vg.&;C^lfUi1\W.oI;E*,5kWwWoW)IxieYtt&lsx/Leo-=ãU"_,]k-d01$1z+hnqzpuXUZQC2v*dc=JnoQ5,?9QKMCij(QTI+-c_fSB9sL2\o0o0ãU"IX'\BC^CIP)sUh?WPr\>\u#<9\MOM,-c9BJ>9J?Cg*HyM%CyrJ=A37(1lC+BP;fãU"Uq%F6'+E;FC0T1)4o3J%5VXauLlHR8a#4C]bcr(8G*^.,6'+cz+,_#RBj7:yF58AZ_DREe[Fu<(IFI+IJgd/DãU")\o]]p3/>F#PyO*l%$l4W\MEm3+B'5RjVVh$+*L'IBkHRt[H3&LWRuYRXcSZFwDC/(G+W]0<'CJ?&(WãU"Bi94sy4tNM&'<#sLI2Kro#97*syq<>)2v#8F?:_0c)HGGnzPãU"DAYdLWzc%8ZoA36sqd#T_MgRAZIEy\dlcX2ZOK1(V9KV>QHãU"3MVl%04O-uUFYI8CYw*U6:t+Wru$KXGvTilIfBRPZ1*D3fghYXmLraYsLBjz;z_ãU"49B5tq(ZCQ(9Vo96^BqccFBr*qtHO]PsOs5G)8hunY:^Q6J$%pk8L(&?s2RMM5iãU":wsXkY2-Id&e3RxwteCOnWduozBa,7Xwk$W(a'DLgal\h/[?i3&;T+NNG6JcU;pãU"0iBL/e:).'Jx-o&a-6IVekvv?e.S0Dc?sCFrGM-j?&1]UVjbN2Bu(zo'v%X=A>MãU"j+Mfqv6nRq/%dQwC26]_d.SGs[XlAx,:eW,^XlAx(=iAD^=gwXG*Nx-F6FG]^#;ãU"&JSMP%:j70mSQ^N,230J\959hOTi-Pbyc]$P(c2:ggUf6;viPumh+'nI3e'ed__ãU"BDyIK.7.nyk(AqA.hoa^>r;uuqU+kaplTo=[]gJV<_r2CrL#ugXYfZ4UQ'*gPj^ãU"9amJ)bMI\F'qKL_,$NZ0KLl?p]22'i'dah-?u5#pq[14Ffy9Ky+Za[]C%u%s,,dãU"WZMb(CiiQ%WMYyMkKiYYDFb$=^^%M-$JL8G)p(hdWH5G'AAD&+Y$)p1_L)o/J&)ãU"?/b.K[,2HMsTCq%3iH,zqO';c%OdHcS%k[dlLFzC?Lq&YQE3KUoLWd3)LW,dVj1.rJ89JRdJ]X+HnEEãU"'[AAl[4RD^,0gmqzdI1y:(+=TFeuXw;+'^bjP(BJpO$iS;*uaL?CoX)E\lrQFH5K75^.G5BlQ9>/(H[=M,i$l3#$u$$BPSrK,w,QR1sSDy/HãU"O>a?3S%M+;ICOieLe+ifS$.5cs*.C_)bq=R,iB1%7<85J2jjSa2xcD=Wg(&BbuaãU"375>H:AL8T;-XKb2G,WNz3QT0tRtA.iT9%;0V4z.>g5\ãU"2BWu_umHGs.CP=t7&Ni(3U,EY%Be:jx0/8h%*Xv#$^bEq*J%L8Ih\JmCt<2,_Q+&ãU"Lkw%:t8XUgsYX01pKm,;Y)tic9Y3O#_\)hG\BYQOME)4%oXo8f1Js*>s>TthC/yãU"*dV(<,-\x-zZE,hWz2(h>s#3dtuhbdHKHSvahc.%qKI8>(uyL[D8z>sSGKm]U^PkfIKSoP0vdfRx*T_FãU"1Tm('%a?1ClnT^J+Y09FHC_t\72XM[B]NE-?-rZSKE6X^6Z_6\JawlBc?]32&-mãU"5O2Y?oRN'(IGoURm^fkt*uKRxs%>:.h*tkNRlZtQ4vBFAjbBxfrgunf&tfTJ)JJãU"y%A,9B]3?137[O^XwGwhkfd4Z3efsvaX8cKq-YU;jWLj'S4=rmuGBe9s/T^6Y>sãU"Pl$8+X5I(Q;Dv80CLh'S-h5\l#YHG_HkQLMB3)H>SA-=t2w:d_FR&=fFP'0i)0rãU";uR;t(]Xt-ZL0,DW([odq:LShn*h(_%]AyNEDZ.$*uYnD%BQboQjãU"nKwj9pgY$8o1YSl#UxA1<%WPo/xSpu>rgIIk>vZDgckutSPDdi)g02DX'fVLd$4J3hT$Da1P3U]h')g;(Rl^0bxN-JgSjeãU"aGW_,3CQhzR#XM(aL9^/Cb40x$)-vb=x.^MS]8SYe^>FUYPH7lfwVYvfw4TRDIhãU"JzD1$JzX2ZAbTSSCzfk^qJ>OL,UVWXg'grSCuTZjX:dD7v;E>Jo22,?XSb)&/'2ãU"rFvG=hBayDW#x38V4)puHAGZ>TUU5k+bgZY7RNwnIL&GHbJnZ$v=A=HY8d8pZF:ãU"T:38q1hl$v>kb<,o7ZheCbCV=weHITRs3rjTP2bD&U?tC\n0BmWk]Z?i;Z=.3o/ãU",$Qsw4))S;%D#g=+Sgk/YTH+Gob;RU]#DP)Hl=E^ClVLpw%a0M4p$2I+sG)eh((ãU"2e1ZO;U_i.o8#:BIxa5;l>jd7M,4N&Og^4f,ER.pX>e='Vze=KgHoWL*[J\QaX=ãU"F'-k8p^8&b8Yb2[OD_b1ãU"h68l4duBQ'ZPv1nSHY2%0]'\,Yu0]&R6,e5;^C9cGcAG'Lpd')rOSY;]aM#Od7sãU"<4pUZh74$gAqmXV?9^AQ%oEH.k9QJMoeGC.$?pd5gEtUWmE%phA?1,>*U-Tn;(abxkTRyqI5,?Em8o0%]OIr8ãU"51tvLrfR#>=8sL^^bHQ-5.CXdWJUBV^=SMQ+k9di,Me,h_;o-V7.pQZ$+R=ZFCrãU"1_7Hq0cl]qxfN<>*n:CvY1P?dOo(u=Eu'>Mv)#ko?b8od_uHdq-6[;=5j6u=E:pDcX?ZpEX.M/YSWe8qgpGFLbEOCxLorYWãU"mNyA%-Hf*NyQV&1oped^S%/&Lz5s+z;tXd-2X_067qchHQ6Iq*+sM]N$pSQlC*<ãU"DkGb[C\b$-[p=&FB)8*_O1/[LT3$:$?Z&?HRRWX&B(45chY:\YHDi&FED5mE1bTãU"7&c:T>BrT(JTX;RTY3i>-P?Kn1gN83ZzEJ85v*L1[5YVwZPRg8NLd%Ugd+Ihv5%ãU"S.u'Cg_5]t9.C:SwEHjNDon=NGY4iC0JvqUY4_0*qbMbDA$;#(^VV5Ub>;f=Gi'ãU"(M(Xdp:5g)nm>goS_a_Ji/Cfh3p:crjGS+]\lY;-1,V)>u7<&VH0Ci'#6wI\bs)ãU"U1h?WTWh*vwB6S5B)LT)_;si>v]oO=v,G2C&LqeMVK%A$txAj-p#iSMFbDf#s23ãU"W[&L$VFyINaobrx35snMBpWrc1>6ya8nOHLZO[]ei?)g5B+e'V\hWtl%f38pDaEãU"W*YN^>3gaya)JYTOt%_rxA2ciu^>g8UHZ1L*>_h8jFN-q4i1z%)%%xX^mkLhRgIãU"XP;T)aUet:cn:p/kJI36i9ZUHD1E8S\&p'jUXNM_FOgwQ,R1fnQãU"fAMJain,SHprsou\WdK[-$eE-(b[Yn>7Gspm.<,&0R_m=p>'X4-os6RYS7_2\8YãU"c4KxM.=oSn+Iot,H2CCkadEPQPYUfo0Hl]8:5EQ&s%(t^gCãU"13)vkfo^o>YB,7jZ*MxLdoj\7qT6iYF^8co$RuãU"eh/lWm)FMl&n^Vek*S2w.AUPU\%HdTGe;fV(xX2YpBMt[[X[/LNm-K#%nS()':HãU"?=4CZA/0IL5c$.[qp-93x45J622iDM6#3CrS1KFdHCrK9f.2y#Oq4imPEC/u'=jv:k-ãU"(7e$pMdCVhmEFmmX#\I&PI,W77RgR[)ZSsI2WfIV)So:cE/xyu1;%$t$26WN\q'ãU"X*0IZka6-=yOOl[6x5F20zdR\6C8ez*gUCss5Q^NI9H$QCogYI(+e?^9HwE-9g\H%=x9;crvYERFJ.mmLP+RrMobth52>]ãU"/XljxZE2i;TJ0EI.9id]G*1;fRoetQlX;6Q2E*p+Ye$I1s$hDcKZ-Ne4uPnM9XIãU"bDsORLhf+\Fj&$l\fUQ:QL>Cu3>bB6egRt+h&4-olq9?CDOc+HA4wL9s,:ju2GhãU"XOY40;'uHsImx(D_;-6dnRXs\nFL&q>3H1t5ocLBBdyDPD]sq8mMZN5Pk#)zP1)l2oX-&%up()%9%%%I-%5(KvG/>7mHo'%%%T:%%%0%.%%&n%sktsãU"%ySifjy&gJ(w+V1=hn9HXh7xBQD+XL83L2U$L_RRavKBlttPdnPLuK*-JrãU"eh+6bP_UkHFG\O26[^2);D/fMNJgU)eqotx=4:YzAlY0=]6.%sfeF*JwtZ9ãU"1G23O0qRh0x,2vY-r>CLHA74h%1omKCjtjJPC3Oed\ãU"RsC3XB80u+HeTp[MZ7R#OIgVzwYsVJ>#=Zn4K%%4nXo\sYnYvLMBM^w\s0_mWAjãU",.4sR0JK9ieSrNZ#9ce9PppmD(\aaU7h&2C[%2ScQ_JAVQKbOjptBWUoR40-j*kãU"%(+AqU)S%YV_(Q,.VX[]&'uFVt)Y7Nq29Lm-YaWSTt%3E1y[dXmu1<#mUW4+M>W'xP0IF#UTãU"Q%X_$P&tcS(u>Y/qcendl2puBRSlBDrnmsuUn,=p>e8Ll8gvZKãU"draYoeNij*YQ:](L^sbtmHkul991*:,0kTDG''a'ZcdbPv/pn^L>a=9jhR<)+&5ãU">GY+M?tnN'i7.5bh4b+,LyP5f&>&s=;JFGWC)BQb:aoR[cidn/.(,TNg,8M*ZtjãU"X5VO+2c=P&XcL[P3*in7(cdtGgP2#+#+?fW^uV<.==]ePe^N).;a5H$&1O;'UqJãU"56_\B/D]mFj7GH'uFuUh](iU'd]NDLWGo2Yk+mZl^m]qOR>nko*I9?5;3^ILp;RãU"s9cCY?hM7C$ik5:piAE7rm+Ho'%%%T:%%%0%%%%%%%%%%%E[ãU"%%%iAG%%&%nskt%sySi%fyup%*+%%%%%'%.'%>%#%%4K%%%%%ãEND SUBãV2ãV3ãV4ãCLOSE:IF S=5AND 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ãSami Kyostila ADVANCED BASIC PAINT PROGRAM hiteck@mail.freenet.hut.fi 09-06-97 (01:04) QB, QBasic, PDS 570 37712 XPAINT.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"XPAINT.ZIP",4^6:Z&=28049:?STRING$(50,177);ãU"%up()%9%%%%-%l/72HCV?oYx+.%%=S%%%/%.%%'u%fnsy%SufpEf(rZ'\k5RX.:ãU"9/GqTm9lB,Jm'QKq[=>dcee'-SV.e;axOE0TkZo]8b#d?mN3pz9nN/b_TEYmBJ3ãU"v+,Do(c3furj0XN8IMMtMlZvftDMs6k4>dr5Mvs?R(<\lH\nm.,6D2r'%('/r#EãU"*k%BDu.+A,O(VE.stW:E;fãU"YS&fC&75X1V_HC;W]E#fi-Q>r0TXrãU"2bog?=pgL9[usjuTgoUUkw.S]B_=A49W/l&m'^h\mHui60X<29OL%1craLqhBg2ãU"Gsb>6UDPgL5hrMtr%8=:D?#;joqxCG4d>;MUr.?.:vLu]ãU"V]W&LG0nM6-CH:EZk5T<\n],3JUYN*J%#2vQs4#3F^CVttL,mn$AnB+Q4=.^BmFãU";wVX'G.Od:.>uqdS_=-un8KrZVP9ou4]XU4>uey3+G4]5BLah;oDe..ggdvrn_GãU">8(.?MI/hZt=o]nyDNZ;ove7/uGLoY?.(Q=T&#wBV4CZfmj[lT$UGnWX:r:jO#nãU"<2MLJtc?;T#4z=isHRbaouV[1Rr5?43ugmO&^#4&,HLH:/$k(\Oj[MnjeG5En-SI8bt#xu51Thk^OAr-,MM5Gg'#I\C'U?u1'LQdhFIo73o0ePZ=Ywk3ouBd_0\R9kUbBn?#qL)rc^YERkf2,\+C$RNDiNãU"[VA?x*rQ:2cl47$u[nq*sb)GDP0P.;bMZd8p>+uu&5'\yTP0pvb2lNztnn'oip5ãU"SGQ$.nam.l%98,EK[trw$fV2,o^/;.:>GkuK1sZunR1iVS\xp/JIdt>dLF=pwjXãU"l#Jh(u+Si69O247PbdU,tRbWOV.6nRitw1Pa24'4W&N/MuwwVTcphcQ1d_Sdk^5ãU"Kl3_:N=-Ngp7Wv+TvGOs\w;uW]7923*aUCdNS(OkwFgq+SK_ewH,47x(L)kvNQ\ãU"c-sG[pIBl)%1qV^%Y9N3k,yv4G>)XtO8Zf\*BF]V/nI+^B6Q*=ai+soQeS$V_$#U$:MAuãU"h?$#6xyYeH7XDCJs38(kisJGd>'D33kjX%97p^.PRy^P_?\W&2SvIIx.K.=.M,8ãU"DUFMB%Bop'K;/jJ(X%=r11lEBBD2]*pM<;*I1.w0&Q6O)A)Ng;\SRX?#+ka'T9hãU"M$=&D&C&z[2bYga=1Ah+E:i,[p$_Qo?#]$)u<#a:j$P&+o<_u9'v8$gmXhv-mAIãU"]%hvV'GQ'$Jf9wrR'[u=-Zl8&g6yxRkFjP7Y8D9__\pO.2>rw9ByoNteQ2e:L=1ãU");3N7P2:eq0D:[NTS1]Xd[fF[9aI)U#TGrD'bouKl_>(&CG9e0PtQhX0nmIu?gB?'DlJON>+TãU"8)%656:>dA0lj8CD0KAwkpU/3./Bh:(gXe5*U6^UsR:$#4^??w-=#JE[qZ69_h'ãU"gA?usC%TWTWDKJIZ%[IfcD.p%%=<_=Wo%rUAjsJP9R1I?#J',(,A\rymw+<,DdgãU"[Ra>P'=deBXcKO=9&]H9,Gxl;w[tV7PV(Y2n,+z9O<*#AB.-42u.'JN\ln1Y0:NãU"_,_,-5gP]k_dg,_a.QvY45-8ãU"-zr%>ndAYu,h-PE/O+*mTu%p()9%%%%-.%1XGFHD&'(xDr%.%UA&%%/%%(%'uf%ãU"nsyS[gfxe2L,&H=^+Y$c$iDM=C3)#s#e-rMkyiRo:9U[5:)z?ZgGGm'=sq[+KL\ãU"XXrRn+J6DF.r_4xeCbz-L7PXvfpfDXVSu/ec(gpuMC9agp?ANC0]wQT&QKxS+P.ãU"3M_V_vSIB.oOsofcs]Q\].#T[47$?Sgg[L(KTyop([okmUodHnA5X.=k0dSADB,ãU"^=$X8L#T#G;f_8\?VQh'eTZ-+$fHI2?pA6\:=a=#:L'[Vn[aKla7PD=bsQBq'V,ãU"7+a-q\[',Tn=U3=VwK=6,H9xVkHHhJ0aJGt?S+yAcj^[Ybr/G#]7Q+2(tX-hA,UãU"iz8DD2^aIH-G.RXG]]]T1&jqp-7j[6QfJIToDvP4#JI*-Mc*jsj*)+DzS'Zes]XãU"u\oT%\YpTn%0DeEejKZWm*;/ZF6pgbl]5EAn0h*srHI3jFpzrtWq\I6A\v]5xq:ãU"DgCuZFrwuRB:krK0dac]5hoaPx3Xm4sp(V)svx#nci=lHpQ]<9^3(e^9jZ?qs$WãU"\pD\eZ\SZ^cGHJ,fazg1#.RWu7%8s$a+A.u9R4s(.T*N181w-7+4v].Dr-;e/R.ãU"tMH/*-QINn(TlSB3YStMnU=(0d^]b';Y62PF8NadhOSpDHUa_l+BBuR$C\r,TAaãU"E+qoFDY)Nlr^udTVcOq9jr/Pdk.\Db8c?aLrfZ$][ãU"kbKi7W\)wald(/G_k]*2VLMpnf+vq]qG%%/)2FF-\bRP;QY8aoiM6fsGc]s(XmkãU"'2PefBid=45%q^hIJ>eNDHJnssB^_sdn,^+NAqsxPjA1G&-W2YQu4)\;s7L4Ug>ãU"Hm(*I?gXW3ma*vdu6X68d-waWJEvG8$TP,9MQ+YlUQY,oIT,rg3;MEHl4/%HRtSãU"VPefI-41#H-e>z'JoG:LO>MP5-p?quacFjxn?m1XWjJj?%Ya$En/=E#Shh4'bH;p+qh\wf5ãU"CUjSjW20aDP1d72lgdnIVv58Av5tKR&.Yi8NK(v+^+s$cmVfQãU"?He3p2l\W.U60Fx5YV-XX?>p-nkgn:jp=?*D(DDM4^lQvsO\EnZLI#MBHpfzS#[ãU"o29IT/W\b%lws=kGVLl>TRhd8x=(01d1f+zPTtL114>Z6]LjwU^3-pw89GQ+&o(ãU"NbxT9aLpd_(cC24bH83,7byH[s'db610R1UcPC^YPZ94Z>gExj/#3WW1dmFjGx$ãU"/WnKmG9d>SqLgkV.5%KS1L,=Kn6F_.H\FmpY+%[(,8awnIãU"uaEKvR[[[gZqom(PRB<9Dbc^UAn_KHO7a8\t:J2ySRwE_U\v&lKG34'IlU/#,5PãU"$f9>Anl4c?:4WDy\gnduF$1]>5FAtt9W6#F1#3*I9*S4cKmD8%iVxibR\QVx$CCãU"=I.Yjed?otp(Mg$81e?tv9rCk$lY'-iNzZV#JYfrA(HX(d26Fc[;kk;:>7R(qFg95Gh;u;se%ZãU"f=/RUm*9K.]Pn/0an)\iW3XPRI1W\q_d1:s2o]Z,MãU"\mR?N9c(%Z:_M+(eJbRBlK<>3=wxz3DSNNVhI/9i;V26gG5]*48'l9)Wh'0S'daãU"RHV='kWGS=ma'-q2&f&5/G?SWVZY>VlOvR\hM/^y5KakuC*)NW00N:E[eyfkNUuãU"tj]8KlcYB2NC9G*m&snk:]KbVXJ^DWWF,CN%poo9/[*MU^f-HIn,7*,c^3l_Y5=ãU"jm(2sGdPr+Ou255R(X2tuFAR=CAkP[0mR%'nj8*&[qIX0pVbh';=0(FW,E-AXh8ãU"toPdS4tVU-PFa,=h4DX9U2%%QTr1g9[:e1XxK7>HQC(ytW[\oV'_V)d:',O/9XqãU"R#YU0tgIq#sz;2(''4z:?>tUSALE5n-xG2]kmVyqGgAH9k-%d/lf)^Cva;Z&1?,1$)nam[TgmuPãU">QM?MKTI6V\LTuI2Kzb-:8%E9C'Q++%UEv_W-+=[s:EU&P0M+&(M[&O%ãU"p%xazPbEo3PoSEf2=GF47\oB=,)F+]DpAKkB8.TgD-%DYjeg0*WFHU\#VOXIw9tãU"IZB,+46x6uT1U$v0pI_2<:X^-ãU"'5*eJ2#/e?TGx.=QGRH&lh'/<$^^7R>:fn6EYO33rPGj9M:2nk>AG+-nQ[+I^G0%R1//6%Kh*D;s+SHgHs%xG&L*OU*gS?nG/;Mq_i6c5terZrfKA=2ftM0aerãU"e=NE#jYIr+_&$z0k0;*[F**-0/xd?Im=83E&aclF+/1NLLFAv+L$Rw5S/eO*>I2ãU"?644*O]lZSv+a;XgNK=LobtWAhV&pXj?fvHR[w=*6/?bHA.;=z[.Vt)VY$8U?/8ãU"7Ph<_QR7uYrm[f[7HP[_HPf*GM,sUKDdgME=0'i?s0%Zmk#sK1U]X:p=H8kQ8+&lNlãU"7/T[od+jIa*0o4E32mEh^Be)qdPQ?4ãU"4ElqQ*d(E:)<=g9,\1F:nG+_KrVK?wW>t+9*d_+_?[T2zLNC'd7)4c7tjVPhG)+ãU"ZrKPNlGgBJV[N&z0U\tzjLrR$<45bDZQwAY'xgV*fEth(1?6ALTQ[V_hFEF3I_<ãU"$0u-v]5m^H,+l:5>4]2v*.4Z;pov[ãU"KS^%*<<]#IiPAI=>:J;Z>1mudyK?wu#oJ.eQzW9mFYF2,;ãU".c;AZjsN#.3fk=OI9-aN:S)euJF8sb#.[\DuEsg.E8cgCwãU"YCYDZA^RWTJ3a.&^*SaidLN3H-_:GA;gzv0i-Mp/fdR&XV0NCESxx#WY2((t\V=ãU"E2*1sI;Ag^5fBs]]iXL$t&;79wp>\:ZeE;$YP.VX#=IZ]a?CM\FH0e-ad9-_-QJãU"gpiXam4i9cvof*X.NdX5fQ=k&h[wED(2^RiN'MRbuN9#/Ga](8Tg)aT?;nHV?IJãU"=ZjOQ[Q+5Tg.DfXPFsq3)O6,;T#Ey1k1>^#>ArD:sTRqHb/Nyj%w)3WqFISãU"b(SR8Tn0-LV$e8Q+;E>#Wx4-/^J*0Ci'0_NQhLO(_;a3Rg+jgDJAn&CqGCBK4&hãU"GqcL'M+G.qs55[&iqmyW'mXK1S25K5SW\f'248Ln8ZKW5rE8f8/.:8N>;W1iKwnz,4(:4RDj/ox&S8+PWk-LãU"6F5#FF<1VJ'[w^&,q#Qp:%X;8.+Hoj?+ãU"eS\;q>*s=JRb>OhCK5$GKX#u5,#%:>3?Q'kBXnS)fJ^8NEPwDi9QBlCk?Ur=4ceãU"l-WMBuSe3E_6p5M+\YDx$O>2&f&BeDi(:36NGEm(02:i$1*r+59A'_Y)ppy0b5>ãU"L6J/St)4f2PI/3QU03+_\mquuq9pfuXicmUj.K_2;9a5^0ucx*?rCx2mb:,z5Q/ãU")*54>e]AYr#-OFSzK7zPY>CRjKwV&>ror,VEbECt3>\3dtBMEgyUB'mWsZOX%KhãU"q&(\KWb^-w$&C3#tcbdL_ff8DuAs^hB<&Cui$Wh':E2X=O8VZ+k+[Z&c28:k_HXãU"36)g2[z[WjguR>O$AT[9%;-f4QJ;K,Lolidx;7LW6zmj?0XZ&6n1CP?NKBn+dQOãU"c3&07R-L$fsjAQ^4P?=d+Pj[H5$4_$0NWxz(#4w]iRRblPE$9tI-OZM^T_/2UwxãU"VWUJMIaKsQxx=JV+IWq0$R';kTJao)aEG02WU)Ae$>gQFu,$UHcD1^OrEgA8FPLãU"$4eO/O$nupvEtZF>Uk8^Bn3o6T&dGgadS3[a^72JTx,l*AZ:U60+:['>gPm$5W1ãU"2Q&[]R0e:Gxfm(''EpWdV6gãU")+52/Zws[*onWisk;n$DS:sP]D7PW'q<7JgpgMN,TbjYBe0tJA(mBPHNBijMhI:ãU"v$+Cc51&8hGks8Ls2J:6gmC%mZQH&2\QnUpIriQU^a8K4Zu>uF.s?uZ>u>B7PpPãU";bLpY3l>8xu#/4^n*9K-;qOSHsN/n(,8nsO'ha=DZ3x+KT+I61%=(a51HgWK.ZyãU"_r\^7e%i'qLR;Cz8\P(l*a6:%l/B*sup8:PfxsNXqb,/m1(VJ#CfRH?LcoQ0#M?ãU"[QE&K)j7Af&.&F(^.%Z#fb+#:;]e,'QDiAZ2;,u0T5*Dr<+8mOeU_g0S)=mlYw;YIr.Kjj+_<7C5B/fW9bl^E&j:m0?h>eSeA1xV]_XdãU"kYTw*^m:)U':*V#%)h_2&I.qtNKkU=(G?r=:I'7ISZwB<'?0YK=$4$W=82pEHU7ãU"immt;N.uQ&3\pW(0av4VmD1]vq10:?UTY_U*B<6&=oBB3QGP70pZgAaM/gELW^rãU"AiK/?dJJnGI$Lvq3T?Py)zfwXgs]a%84NB1iF&:-se$muMS+L7o+$HjU1DPUM1.ãU"ogU$3w[Ixo;Y&Ice&>09]pQiu1*,qQ&9(0V8g1Dk.u.dww5pCz8]bfX;^\ju)hHãU"_4f^YK2pv-N3Ho6.*DtEW;gF(j$xI6Mf4:N*u2Hl*J??U9Ji1^v-:-KF&4qRWx?ãU"ORwJ8w*Lgw94ReiZ1g_$[^lcX&:5'*2WE9-PN*yR?9i8(q#.bIaPFe2\N%&:k;&ãU"giC?'7BXrOnq^]0DobQUo$(M5niR)OGEP+$dB^FCdN?i%G[o'bAz%_&pS'HAj()ãU"bl1X3)5zYBrND(s:1JxaM$=efMgm0UOoZ2.;%]Kw'DU06S2h&)DRZ,tO/x%TFhEãU"B3R%,Q5&x>%+:-qQ;X%G/\mgz*&-kRd3C*&rE(5YRGtTE\)?uChu_Q(D(Q1<=G;ãU"Fb-$B&p;Js%fsRJ(Mv.f^NU^83nOmbl2*OM8d.p0?Qfv=8%/J0u)h:sgUru*C9eãU"8ff=uqLb5^l5wb-B.oN?l^(Fqio(-?v#:q\RShGh7]6UjY6RAoYH6Z(FhHX:I7kãU">w<[[GG[ELoQUP$7C4bAPM,ON'-:?i^6N&HgLhRV=JTGRtU[A(-dggP?m;]bH.BãU"jR4Oa6nQd-d+x<9%Z*)fG*sk?.$oaUN9XRrn#G1N&WUknomg<]sUiOBOk9:FfBHãU"S)Apzba]T.>;.WB=PM?C\JrZIdn6)mR\dn\LOuM7q-l7QcwY[buJYuk>vfj*vigãU"*v>5tp6;(4sTixpi5LUsnQB_fQF>:Rv+?.?tPvpfEA2OF)+K)7;A%sVefKFnm;4ãU",)SFctG)87M.DQDFtYV+3qOb/r)KPWbVPAuOOS#AA[7cTUe,lkJ(mrC*l..\b90ãU"XHy_b%F[9S\d97mnve1LZp>tWtZ+5vr?h't&1JhwG6PC?<7;48,pI#q$$*Q3*0*ãU"gxAo)b/m;'1.+vs3D0R4WTjuK(AsaI*^=Z8.)l5$$5R0e,(r]1:jW=qd-A;k(7KãU";).3SMB%cPDlj8=TElE>h0bO:J,il:gHJry5R7EHd=:ZQMm(vYiNX#5'Pm$'u]RãU"a,3p+fPnv>-^C&?XM9#%'a<^$knrE8&GQfIKEERkCnwbSYmSL,E1mn.UL\0GOc+ãU"_S5jKP?)RUX#S#'*JI)p,7v+vUGrt&=iDw]V>dPb\M&tHvoP=V>9S?:.W'4$]91bUt1=Q_xf,9Y$yh2:zUTUZ2X&Rh#/'n;gEVxIKvO-sy)5<0pn:$HSNãU"P4&9?[*vE85UJRDcmZW(i*t;0(s*,B1'vvej;0^;0LnjjEj//[T>?Nv[##y3>4WãU"E)'&0u>C5D?CRhelo:Aw\pk4uki-H*(cN02mW.48[J%uR00/]gwAoUjYO58N>.bãU"7_^Ct]nQpIGM/6[,POe$pM#>(.#>9f%;UC4]3v36PeMJ3S,QQLL)jm3f&vl?qmGãU"hHFGY9N/yoHudGoOU;KYbSoP97hP?n/>ZG'0CvWFOK$F>&Mc/pT5vnBrk)s35W[ãU"xYAP7)P8(wb^Mu.;GeK;Ul6,e&tPOP$]kW;\RTeBPe\IkkMmBCE^?ZmYK5GT.ypãU"lfRTK=ZfES[yt:SEv,I&:]QHHf5sDssu(<-HPQyccn5c&7P+KG(c.SipA.aF^jjãU"9x>RvLxFPY^)::S4_O=6gPhPJyl49286(k7[:'jhk:U+PF]dQK:/r4SbAewqJcJãU"j_U_mkQ^S+-D&;Xh:oag8diDC,K?V+AV>,MJk?&9'ãU"bgI-D>&0;kk0$A&G%?\P9oC7u\6QToQ/]Ug+.)IlLv1l\EW)GEE7mhO$KãU"L(8-gM3)X8[p,ZW=l$8sg*NBtDsk,_X-T4av8PTs)p37%w^'&uxP6M]T1K02'Y:ãU"wqr/dZ7.s9[plrb8?jLPCqM[rW^Z<5HeMbtC8&9oQ9h)&MdMInN.N;;jfUdO8H6HQFN;wX^Tv;mYU83h&)ejN&wZ2/GmXg+8-BaqPBJRc-pI:+/O$-[ZGc_7tA_:&ãU":Z4:.J$^4x'rr)%'+LOJ+ZQ_Jt-sq-4BH4UkuPn;s1(tIcf>a-9GPMsHT?+tU(#ãU"?y_1.MeD$21F01cCDl+e$fG%dH)d5zoo2q-sq=/8s&ZI6WBf:)t;f.X<#E%eQ%:ãU"O*%O%(L0zZCPC8(<'uY]Kv6[.^WLHMb7JSYhL7ztwrFcU_UTEXrL$g6b(X_n]'XãU"EJIBXzlhi0#$'T]ue?,/p-iQ/;8F-l&%nuLpLa5o[?H;\+-k995u>0aL^LWlq:0ãU"8eE$&2Yi,Y+oX9cB1zF<8aKbfs\^7ki_pgKefmg^5HBToe+l_^iN8FHDY>FiigUãU"s=_ifM,EV2_Yyt6fpF**t&1j.Tg]XxTR*?IDhOjxg3vO.S)rXX-;_t$#98_n^B9ãU"[+Zc_,^JkCkl\+un[g;i):;/DjVk4bBcFWp%-T%ZI64=1/*5+\vJ_#fnkop?wWiãU"Luav0lh=)c%k,5Xl^AVc0IS;39kqHccQE#GU%Je0r%6jMBK.e6AMcb0)Ag\g/rsdãU"OKJ2RiyjjN7e4/LQG)w\,N'KYv(3DpJ:?CDG*BZPDG2o0,,71N/+As.N]AI7^w=ãU"p$1'/q4,+]405dwb;KfGD6JMFs+/&R%-1\F9l2v.Ib+]2_]P<ãU"bKPLM0Z2mT8WKD;sGMBV0G5?'f(e9*gug%yP>5oXuO2E)xz/5]aMl8[F7O9]*hGãU"lsTv8]0W,CPfBO5p17?YF;<*P%$3J;M#&'0Lm&22=%\[3'#)'T+TnzCrq,XnQ.5ãU"*dR,CMF$0)C>VY[2ZCM]cMcdL70QqfEHDIgID/*3\59Jt;/9JFN:x8?;ãU"uC$wew7h=;F+#xT86g4sVKa1R;Sn?E#]iD>]hDC_ps4UlZIVPãU"+1I'fAWx(rTXMegVT>#JG#k2/$#2Qp+V>Rs#+3\qnBTt2jZsx7'C;UlcrPd%KcãU"wV;Pq6N+j4m)Jp=Ikkk%mJi/n[r9GY/$[TL7LD-$L7oRK2&R89ZsKIj7Y7O4s/jãU"Pd]p*7L0]+la\MES2jlMnB)uGXLYPt1mgE_uFlJ^$Hc65bhr\iDM57Rnf.xa_,nãU"NuU*A>81O$sS]u\yo0WQ3^UG-RmpcAQM_z8't\p:Z1.ZTuk:Rnm#nuQba95_+xy7ãEND SUBãSUB V2ãU".cY&$Egb$/K(eH?FD[QY_TdK\ua;)h-+9;d0ea;V,Ba1#XLGdNUuz^Qsk>5\_w[ãU"zX+nYLB0p;2B$F5dS*M^<4diYc;k20tWG#:JEbb2'rtd-)/+,0Q]Z3SSp^?LH8ãU"'ZTHLV\^6?gqM0]1&70GcKV.%iyvjE2lUDqy>SlL%P=a:g%g-'D*A<1Gea6Dq[5ãU"0/Ya-N)I8=q\/3Vya$o,xIkS-]otsãU"KX]y>okPQ.0lrBC]C0y#SS:Ohi]ga:nn'FY]c5]'Uu+tg/S.kzOd.,ãU"->64EAVVOcc>gTF#92q,pXrk:6k3lV^=+&09r9,Lci6f9q&10a>,N,,-T+AtkIQãU"VUk,X0Qf33rn9&M-+[NgCiQ*;o-&\3%8vyF&Egg#,L:EqHPI*NwC5?pXGUj-An,cV*$%-:iMX40U&p^ed&TiOG1pFb$=Fr9akpH[VzwkãU"Xt>OmLclk$,]tY'W\&4BJDgBM?ZTWz>Aof#,+-B1)/h2PGyJOhZUp5O4ImJe_UMãU"Wkb2hFof>qn6I7K^-umiYx#;+FTY,Pe?]%*NXg-%9xQB>48<[J6UhU:])r8Zu#IãU"vmn22F,wN)5To,ATYHE/hSloVmpkZII.tbI=$-6ow7IaW^tG3RWAsw=(q0ZSmH_ãU"M%uQa0py/lE,]7VD7RD<,;oR.m+Am(Jk?EXv5c+TIPXd1NW=XD'U:cBrbNh,uNcãU"n^X-Bk7??,vYY%A3laKw>oc:keN&o]a2BN3-BEW6/>#:D,kU,qnq+;R>dNZu?\iãU"b%VT=-RUW?r0jL1M^ciOF15L>C72#0Sxt:0HH$y8)dvQpJ:qiCL2YNhIo1+q8mgãU"Eh.=bGHJ\?v]TMYOpgU7kVDecoTqrãU"fJ+lgQpSV7[M8B^V)c4_$+tTu(K95op)D)lI$&)8hO%<9woo-ClTD:AWv+/S3d;ãU"8;5vEUl^ccD[Uo7XOlf_SsIov]j#ALi3i*ueLãU"/naGaF+gUyP7.UmRVCg\I7n&Y9Tl\P0#Gjw3#4EeSiDfF+'6^YAs8b2b16Y*-40C%Pj-+^0;/E:5WXIm4ck_ãU"&9pãU"kk#E;tTwheb-YTInHwn-I$KV#t\mK_rAZ*TWZv##>k7%X>=n:3/25P9LMjdI/\ZãU"QUJZZ3e)KL9+xX9UrTO9^[$#;V]'jma[km#Y?Jrjv)m\/Jn5Wopw,oPTQ.yYFOf*0dx+CK>/*-^qP:aBI0-B?THãU"8yMOw&09Fpgbq'scLjH>w2:ULWdjRKcnS:-_,,a'qG*rULx)C?]T%7/p&g#+=Fz*>BF^X*0ãU"tj2mCVQG4_.>qnY8vencU)#SJOVa#GoqeRhãU"39(/ub;Y.b-FY3)nS*%;rf\\Y0F?V=P\bU)A4Qd9JN,OiO[+l?lH]o$?L7G5/uwãU"mLpdLn1iV)p(f\]9Nhnj;G+61wF9'gdWTn=ZIX]01oaU#ttj%=rpFhh<)mHJx;rãU"pu(q77_I8O=-:O=$Kl5,gt%[\1e'Be]$#(BvUmf(d-7Myfeh(\)K:_ZNnD%uR,wBBIt_2[__zI8eJfno):2$Tyv=p;dZ;;iHãU"-ZAAE:pOH_v_BRNLuaZn[h(zr(>wG6TV+Rio>_?Fh>$tobTLX9+gRãU"\(gsb/WIffi838hD-3gT?ioAt99SP>)/3]Mp(+$;Ez%:*?synh+)F]\I[-Z1wbFãU"?i]M(N8*I41s5<;X=&+m1vtEJ3#MP&:VHjsWi-]AKki^3&#EXt1YmVTHMsq^;4/ãU"W:'C7t^Wt3LdFpM9Y);QQFFW>dBL%s*qFTlip,:2_:IN\AX5if#EO+IJ[&ONa_r62L[Vj;9>MCp^)eVkpd6Cypt[:/'mJãU"WvuptCf^NW(T,r?)'W1(.;GrH%[jKhT4QIFN_(J%TX.DeQ,.r(JuEqPBr]b*^7WãU"nh6Q#i7)C'TgNKJ0K(Q%:ãU"\v(DKH[u+PiY_6$ceD=hgz;Go5,,f)qZ+-G1GQGnaaiN3eO?$e%Zl>X3g3%#^XfPOfoEN\ãU"DhHih/L?:Xl9/;_[=h5ReP$Sa8nPuatA>QJGf7do&C+wr4ENQFAj=nSo[pWJ^lUãU":S3/9zpp&j4CiCkaPKx_5LWDwxk=(eNpa5ZqO8X*/_fN;6I;?*abQXt,+qp;*#SãU"jww$CNnY7>(tI32Rojn(>AV2?_mOfH9#NqV>#)B$;TFT&oF5ST7ãU"9QXH/Qu_Fi6;+_ncqv$l))>=;Q4T&YEfcXixCg1T9kJR5%?+AdX>iY5u141,T9UãU"%lba8L#+onWfYYd6SGYk4jh2G9%ma1mQ1bN.c]sTNHLfFTV6Gsp)P7'Zaj%LãU"UER[+5'w*^_92BLk02P?=9)vhvDcB5j\rHM'IAmWht(L7N47^#;boc\-k&QTãU"WslZ#dg4XBFA>$%;'t0\CdmKS5l;?R>cWX/(??G,^:Q>bxr2,8K,5fYd^V>&t-ãU"7XCcJTGS'1&Ozqvkf_jf]&$+_GC>LkzBEGqD6R1X^ãU"ipzDq;0K,eAd.2_Rx\+an+x%pJIrNVP2$m,T'-BqVL&L,vuCDcnxVgNQH1XVM;zãU"iY6]Ko(l8;3xag$Rzn*-EA4ioijja52dtGEãU"ueD/vn'4b/Vw7NB:J:ZjP/WTQaD+Y-V+:82\<](L:'ZDVGLYg4SvNSlhx+WMvs/pPYwcd0x43j&yRJZFT7J+dm\q2?ãU"sUtgMI;d>[)fxPsO$7EICL=c(5f)/-^X/GV'K_\-nm.mh-_#tnEsC75>#:vf#,eãU"f*X[Q\6nq4OkmlkIbB1$o5,AknqãU"XZ:4Q[Yjus?nmV2_EWudfvH=Rl3rhh;-:T=-:0ãU"?0^Q#g14%h^O8b.5$qYMIXeRnFY<>tMp(v'_yRd+ãU"u&a9LT-4QaOV>]%Bi#JtEH\QPp_CuB^e=L3\V(0D_&gTiXAB$3UIL;&MfW\kPvmãU"e0G6<7jqtGmR/]5cfDbs9#5V6'2&hHH,..:Ux&>O_k[l&xCa-Y71f3?1nA5b;\\ãU",r/5RFX2vq^ES%qS38:+/F[.(.XmP[o(V/RSDGYxBSAMd1ox.>ns#qH=[n#E=6_.1K/bdK6/tC9J9bjD<)o0G4IUQIBfJ+Tk)o>+ZãU"?K0_WXhJ++F8n))j,KZbfzi]ZnUI('>kCi=\P09nMg]JiV5c?\ZmR86ev8\8u,/ãU"M%F]]*%K4dk,R^'4,e53$XzZ*O#9o56lOJ,A-QQcnDP.1NYnx6\nW<^j0i3/04%ãU"mZ(:IbR$7juM&947/?E*rHgV=.rUCdJ1yKJ8rATBdS&uoy6pW$tJo5%YMvlzb<,ãU"d[:*t_%Jku8t0$3_3DP&VIuMIoAãU"pkVua1R]1gI7K&6GN5o+fp_e:q/D.RmWhoPLkduT(At0+^n2fg:nKdHrZ6,ãU"qp-t=#6W.p8F9d^zGP.1baI>pH.**l'Idm[$z,PWEKo&:)48mQF3/>'8NRL#u$)ãU"-F;h3z^z:=4?);8z&:W';O,Q5x%>%+-,qQ;%6G/\gsz*&kBRd6u(/Km6#/avzfNãU"7J8p5ZMjJdBEY$p)]1X:TV3f#hjs]4QW+Z)\7y9pB+/G0lez=#,QFQ)DQG1m.pkãU",E1Z2L1K3jgO[pmY=wC94=P?,7vF.b:WxZKDrqjfYgH9&'-MoTL#UlhzfyOB=pzh6R#IxQd/KnMãU"yR?\[WNAUnVFGRsCRaOhyF0]onHI=O#V9d>C*RUL2BW9>2YVJhgV]-=#:fMOn;OãU"<[#=7$-Ofcq$>P<:(VBHeLYS0(1Lf$av#0JK/an+h%i*)(.D2S#^H,YIMNuãU"'buLl5/i05NttXj=e1j9bW+#tw7M/+MS*NywYJXN*\CMd6r8gfFnOr'b9ãU"$R%RinGF>HY==3^AMvl<5gp]yIE6v?JmenBd;u;wROG^>lQnT(uuw;HreW\$HPQãU"J206V-u2HlL7J:5x/&Zm\1Dr-1Jb+WgAZ1p)M/g:V6M-_'4QP-MU),79+L.n:ZoãU"NbKl?gUJEUF>Al.#L-1HoGzE#nN*-HTSHlTA2[pp0E9Kj4W\k%;,n913-BPK36/ãU"D7:'P=Tga(6Ov>j-Ijj$#td^MQ$RU6Is)__Q;lS%2-ELnE[sCV:dij;3jnãU";9m5e7%R]C^[#L47>J9?lp+tLFj^XDOgP\mNuo.G.;Tr(>)SdãU"v-%8$DiZvZMBu5c]7r[;n3a?cIlai0-ohUm[A/ZF-Z];'%;;S:)(CohlWi)$&O]ãU"+#(:OhDCiT/?8W?T$j<^tdU'3AJQ_VDLtuwRp7M+:.0i((V&RJaVwa1mr$I;NiaãU"2#0_Rci(4vOl/c3TH\uh)lV&nHaaz*D-13.CQuLk3&#ZQY*pA7b++NãU"Cs7U-ahuSf)%_*^NsPL%S1YplJf/s(r(tyo#*Hwy8fPAPvNW58,a_&x800?k&ãU"Kmv-jkcic:p&nXfnOP[L6cEy/*^a$H_-CSAOFFSj[n>Zt3YUr2=$TsX\Ta](&&vãU"ByaBL0vLt-7)tbd.K1A[8yLpBo9[qlzq[[4bGR1Ixi.,nL+,axb,1766+,axZ4,ãU"aV>mcwHaFnxopRroP&vF%+)fF9c$BG/SN8*oD=kq>X*Q20P3KCOlTI\aG\k#0>;=/#DgWkIx?+67\KN/QI5tpM%X5IBjmMghyãU"u>)g6/8^UtUk06p3SKCM2(Y<>+KOAcYU'U[E9f?'VcQ^P.a7Q=^e.D]e#hhn^)8ãU"5OiKwHpH4.JXwX(8^/lW1i.Zpj3b'tmTG$.gdkkd^L0TI]Rlw[2T4,$1c/v&W_sãU"0;7A,)r#>C+w+^Ra2#%^zNEa=62%vnAR-F&KDn_/]*eK4h+ãU"OIt[Uxkh21/(_P9s=\31((YTMDZ<]o/SIvWH9d[;eihX6L8v;b0/c)Y(j#:Hu%kãU"588_%li0isHuD&nd8cz-s_Wwg)tChx/GF&tIsa22dCFx;7IãU"IMK1eP^eENMVG51_1a]'>heltd>3M*>8;tbQR6u&V&Yg>DzNuKa&gAni^YKUxsZãU"avp[S#exxH,u_dpFhpF%dcpbtWJgOm&u26l;az+RRY'R#S\eaIO7snntu:*kPEwãU"^Z*.[RmJ3x'eb_.tL(LcLC^/%'-ul+C-)*?$/k-IBs94Wl5&5O2nFbe3>2rP8-TãU"kc4t9&HlQc2A_=\FTUQS:qQ*?O]q4+8/4^s9p=5MT[Wf5LAZv9^Z4Z*$qy9g#UiãU"Uh?6028gVVIbH-ZTh+(xjXãU"kT+1+&($nOdZXeqS>PM(\d0b$S3OD07y\'4ge>_'fVD8%jXw4v<(v#hXlNnI0YXãU"PB?\GQE/],2A*$?49WM^.l(:ABiZJY>1$Ns'#njns;&Cu=qlSnc(m4kRg:i.0eU,nS;#Lp8ZPfJ;n'r:^/>-^m+28TJq8r6P8FiãU"s[aGH4Kn.HsgscvsDckvvF7Y%ãU"[0XUYc0nkwB<)%MIl5[K8$*oC[skw.].wwN:[//GFTa(v%9&Woj#>;ZGIk.fãU"kw13%wa>^rHD)'e:*8tiSsRI*dm=NU=:Q/p$%kk5l1'vSP;YNQMfnQ[jlTb$O7cãU"2D$j%IrRv^T9H]6dFzWQ_]iVLyCX)cYNK:NQG_mãU":cBkweTmn%u+X=bUXtTP24/T]2cur:v0=lG3Kmacv\Y]uZ30&zyGyGMU.uoQgPgãU"sA14.7KR?h+x)ZSLDnkdLFCf]jUtm)B/TqQ)at:8qO\U>F:6dV?WoIj2Ti(unrfãU"pOpX5u62UZN+)U431U-opc2-'QtExG\M83&waS0Er:ew$JYt(OQZk>Wp\?:9w78ãU"o<#lFaUM=3X]yM3D(?;H7&oAUV=#2\%+4OFODD&M0h>RM(O^(%[+I03g.L8,^2&ãU"XkJJ]#=T9>]1C]rcm+q#JZkfjgVXCW]u^#9p\/44O?A*p)a;G$[3WX71CJuRo.UãU"g7je7Z6l.\QM]qwh>Xf-:9Fu_X+qr$wX+lQ$78><*HvkM#%W3H=1_QEUKp_yC7XãU"'U1GvtJ8U>i0Fv0>BcM]9f#GCk48[1,TSiFBhNR0aH$AkFMC]W*ãU"B#u6_zg-&av&1cXs<$7k-Ixs]pL**0?sAEnwD\drY.=P$gfLnqYLY_5h%EsL.q#ãU"0*5'ILuq^ElfljYf.(uJa6?ZX(O7hc.bWlag_cL3w1_5k%phBW?AMNd2zq2BJ^*ãU"JH]7'(&.V4KxG+gbi&U?^0fl5Ae9VQ/B_dq#r9Onp&#CNGis71]'X,cYZSO=6v$ãU"5ch&O/jkUJV#[J.*IQ$_vwWuRbb:X6W9&1BEL'G?D^/m[N7IDfG/S)D9mm=+osqãU"*x?8nf[4M#e'/vIyuwWYHa;v%63fmJQ-WO38gv($)7.R^c3<3)vZT,J6M5QJsN_ãU"u[?._dAUR.fs,onkad6OtãU"m%Z'CiSRVApPYh+1zPJ[d(oiFB[p*9ekB58TTz=u00dlC05hG[6U<:YM0)pImPHãU"1]aNM7NX92T8a5.t.&V64Jp[y'[Of$Od_-Z+b2;FI[[a>pPE*>)kC^:hbH*w1)\ãU"J+rb,c'pQQ47I;-(8KkQE?pi,MLVK>ViJ2YM&h1DT8>fXwd'(mP>vh5:Qjo#iziãU"&dP%4DD'CpS?W(M0B(=vd'9dVvO#6&6XBWk#RWW$)d5cTnA.-GW\5'8U;znG6]EãU"$^8&/fY*?S#2-rq-hk2>B\iB32Zftr5NlV>U'6$H%d_C8ãU"NID7tLH[_'E8)+Q>stbwP+UxL&)nhCa'#*qV%k1hq(:Uh3heKbbO02cJ4QflrV0ãU"?iu2GO5RjlbCUIb:QAPnB]YL8OG,WL&GL&M6GK'kogZo?/mFQ\_%?cEU^.;:?>]1[4^',3LpãU"xZ7'ESdA69-=7QOlN*gREnm<%9$q*%50A6J)/Zs%ilUmctm]gs3JtE=U#Mowq'sHoEjmBãU"6L5\HH3(%_]zQ&i+Md.V&H71EvfLm6*'7Xceuh4-oQBa'%-[A/&JCwVt0JsL1?DãU"J=AC_[]2DJ*UCxYV&x3ec;#l%qbB)v4\[[e,R5h/tGc+XR=C01;rxr-'TALYãU"V7q_1CC>.QJNR,)q7W,A62EUSUx(_$9Mkak.'-U+HAm6R<&+[;)F#sw$S_5;;Q(ãU";a7iNem18u;ltF/lAuY1icZ_Aj:b7M:.H&tY_nDQ5gmm5HVTV'T'BS^?'MM1?kLCb2$Ul?ãU":]AP'ws4>;T[7BrGS$K(Br4WuWgj(Q7af_H*R80ku^X?*kNMEB/=vRD=jzg]Bw+CsKD4UzEWTc,RtBSF'1B5J:ãU"-G)/?;b/LHzbV8:]*.3?B5H*3X0%FB=le4.R2F66Lh**_X>H_/wh%PE5g/MyOLeãU"A2tw)SOrx09te'R7;Mr>'A_8)S;ShAbgFT5iups?LnY?3O;X1urrRPJ9)ViROMS^o4%F5T$(YC#D5#^J'i*AwãU";yK9KOHG$-2\l6e:kweJ$biXD\uNe;UNW++lU>%E/\Z3vv'Kc;?QMa\oopt3$FlãEND SUBãSUB V3ãU"?#%dRC^Z=4T'gx4b78'$eO>mvadcBYEd,kRV=EpzuOVh[.Qt>Oo&ALjN9jmupaãU"Y1rg_0R*<^3b&#?U9P[bN#Xqek6-=UOX($:yo.s8i5w>0QD#Eon?7\M>T%*37t_ãU"TM-o=j+uJa6*i92b+k)XTU/u:.5,N3)IF8NHX9jW+RU/kY^y\')6OX=y3r+4Gh0>$Ih+'kcuW858Ze50h$%#TWUiU/)&2ãU"\cJ4hezn(Rv^-e=5&RG2hvC6h0CB&iKG/j;jSLs-i%Ir3)H4IR(uaYwzbl,5Z+5ãU">\3I.hhNUHx7Og$oBE^p;tM[6b%&>dA1YwJyGEGf-=?0^4E=)=VE4].U2qh34a%ãU"S-?_6kcVZvdm*vdWHmkd?YGe?/XJL6(sN/9*1F=<][/cZ&isQ8:/Mj0v([8#D%3ãU"TtR>W:p%VHgp4*eg71N=r#V&&4ORF*8qN;SãU"]Ij1?-5#L9UxZ>*$B%p=+7FX-RiQU:$mck9.p3/(4o#2;;6?^t78cMnNk,FSkVBãU"'?DCbj+2(CJvTQKMD/FWTv/KC#E#Sjpbc3168b7UP*ãU"?Y6nL-)7hbJ4[dO]>#I#seJGRp4/sPB)9ok#.V,[\XCãU">9VR#^V$F/#+d'6sgVQYv[V;qVFJf30j376:n:btEWf>X.VCeo&/+w?qAEaZgoaãU"hZSLoWXq_I0(SCii/:]%c<:B\zZPk<3fq=t\A[Dx6=ukR]2\VLO9OY3t%CHE4p+ãU";MfHna/PdzyMCLUzXVe#'fehOEzsSmyK>hgHhcOj$K,hcMtie5qrD't:B6KQZ4CãU"&XF#Je(a]r:RUYa?s)uC/X.3N*3.2'TmPsc.fOC]uqiq([ObI[iZjG1R74PW+XqãU"6k/'sORI91jY=UGlM9WDbba6h.6nN8hXZwnuh_MpG:WfW*VP>09276'9N25R)<,ãU"Q7nfDn=a.QKg7lMd^VrC,Cw($(15/*Ed\aImãU"N2Rk3Q&V<['.dOE(o:._c1ON4i^\AT)*-N68FS'?Uj1$)Gx+OO9Z#h_lYoV\eQmãU"LRqBe83yxSBb.'msdtMF*qtQ%#Ij_y[jkl*DYX\^DLx*PmR457qDcm9Cf-7vWM,ãU"Go$j3i(%AE8tpj/'BEE26oATW8Kb^syfQEdC+/.?6]j93>r[tHvx;)nWDhD+daNãU"QFbde-20jqHMuZPr>4f7g2\z$mCS^6PI]GbCErpIQgj])JZO9RLm%sGlXw%kDNT[u#SSAjt%c5AUQPI'uU_p59I(u0JG1AoaGFc(t=QYF_HãU"*=IQAd601DGvK^oVrg9HK0ru+bK.S0):ek:cSm;l_og.]k&lVRG]#^r,KA=.sisãU"mqDWRHG3cj)PTVqpE*PDZEOKK2_nmR:H2x(%up()%9%%%%-%&)[5HD(6iGJ+%%%ãU",W%%%0%%%%yt%tqgf%wSifjyfhX,^Ti5-#pQp,&KmvtA.6W'.xF)QC>URQ;ROS+ãU"-8O)6mgdLbmtkss9^8ZdDj1oMVF6;;.M-nnzGHnbAcl,l87hVW.6w4TxU?mFJQ]ãU"'5i+PB?:;/2fe]e$2He4wLopx$5dh9SZ:A,$9,%t*NC)ET+Q>8T9sSH\4kJWQãU"&JV%/8:Z)It4#1,^4F&KJ2lod0E^9EDP[HD<:';aowWo.5n#H,bzk/?FG7uFA1NuDs;a*$ãU"g.E3M%n#qrOEH#R'V_>ODsdUC&Fjuc]49Ab>21n>>4&>7>XxBHfKT?ãU"*7-P.IxC^XnMgalUtow5LvaQvLqb7Y-?&g5l)?BB)$F>8K1;BLM))d0IX<=h>^tEW1Ln2yOd[De]0#d,rf_1M:gc]vq%sX^Zr+Z86IXs?vivp?m\cJs60VagãU"p/[mGRd\P8Fmw-9g4P;ugWo1Z%Rwx86_m[7K%v_ZuvdhY-,YS0N82iB838\nKRvãU"ErfPt\NjR)0MUmnLV*NhJ,ea%q^mNKwr)Mim4<>#AgbhH8+0OB<_j4#vE)5dlpDãU"IwT3J%:Jpxh-nn:XJAi#xM-u8->k:,(Y2?t2p4B=78L)m\[#PLw\.l6;MLj>QCHãU"?1sF(\-&=pJ;(2=KeL8**e.,)W2\.Z/lqGHZvR#66FKmVBW0+jYfRHFCafyti+GãU"bPj?Q$%A<($UQ:WUCYeEEz5Y/PB0:+JXFp)2D;\pwV9MdW\?_ok_j1P>.FkiIQIãU")Es\i+K]dO&TB^SJC/-OeOGfKXxlSQHY4O.$[H(bU]hsR*\hr;MD.3VdOt9d3L3ãU"F7kmnxb8\WCaY?qB*03RdaJb7,m<1wVGRTbmnZ_x/8ãU"P7iI;:RF0-sbRqbg/xa(LDRK91>vo8'/N8lAx6=l(J^)W+p49%B[Gvn8rl3'=8?skROREãU"D7NBu2AyNh<:J5ga^S=mELtssfu/+$Xtxsd+u_u0O=DY0owDY[U8G_M%cPWo^XNtãU"JwDHsdvqZS37xM0o.vH/,]W?ãU"fRAL/OGPc+kDxBQVp-IS<[KlXu9wfd:f_&i+Fhc?>enbc$GV3=yNBlxe\O)aTR=ãU"hv2_wN1n_^P2nY^,QN%up()%9%%%.-%$1I6Hfg/DW$%.%%;(%%%.%%%%gw%zxmSãU"#ifyd#sn3RRU54*0ktAEsRIovUT:/a,0?my^gObW[WvC[Fv7N^FD>ãU"X7Q=+og6FFYM7nNGiX-IM5f\XT%up(ãU")%9%%%%-%\#[6H*39.Mqc5(]?^TD<+a#bu:,x#(3)XMT%W0M[#Y8h]HRFGlx.Nls9\PD,?HW#Mu3+&ãU"OeeIJW;1WI=HuW4^[.d933'0.v)c'9$E=e.dBOLm(t'8?2dn_UnaV=ãU"7\Q0MtY3'46'4+S%(d?8%WZ2\.UdfstkqBpu$w1]TNK(NYfF79g4qz3?7dHwiCzãU"Nn9FZWHppp7C9$i=?dwhu/;3p]p/(u(VoR9kMWUHn<);[cQuNl#lQ2/]\n[slMjãU"b)(B*8yG6QN7T,2L,6=7&a1tYaz>DW/ziXFFãU"wkdx&wk.rN^rxdxx4XxN%%up()%9%%%d-%X4m#H*Q>z&X0%%%SG%%%-%%%%mj%qãU"uSiRfy&(q.BT1:6N$1?8f4mKelc'/qaG[Q?'^UJS^52a(uR)4d%HzHãU"ov-v9NV,OcjQ$5S(MHvqO'tNFYN45.e:4\,CPvO'[P40=.?/*Ze7UoR?;?b5u)GãU",>I;sYfFdFzt?ZzoCXHQ%DE*U2$TãU"/s(C'&16JS)\:*rqoU3tl]RY0_(+7'x79n+euA]fT+,\.-;<%dBE'tp%<<8;H%.ãU"iu,;C3of57QC;ch7BIzQ:1n6/p(4*t4\d0cH$maiTRxzPKr;P&4(lM)IYr*nY>MãU"le7oayZ)BMqUxJ%rS(Gt/gj2d=H8-sWIMhm21oyUtqãU"D8#D'/Si093h7y,u+c1,0R?(tm-93erbP:rh:sl^7KE#J/ne/)(r%ALIJfqrd:4ãU"Z+E[-9eJL>*sNAvem)7\$-LLxUu3?a:gmd-wl,n;-]sj%%Y<4cQ%K^y*7_nC5%4ãU"3VGV8:,T/&dlcu7un-MZ,]Csh$O/+Z]vqMsU3Z%_<:[q/fkX_7zãU".U,Z;AxI*>Swn26a5;+l9leEãU"Q]WpyK3nY]#Cq)Q)V1.1SUsYenLOuPEOcVg71STWcXL[bX.Dj8J[Kyj;P;H.P_ImuA;.VuEE+ZFFXI80k;72YDp4T*eX2^AWsH172,n6&&#%ANHE/ch0EfãU"suqT->DDI9/]j_'8x_64+Na'i2;VV?sT$7(zjeai1>AJ$F;Cb'DP_F6hrm;-[SSãU"Q&lkl[ybWslAS0^OD9D>f&:1Q^X^4vd%<141V^g+NwXKBXn#fGkKl8W+a^[kyv-*ãU"GZN+5&$UmZ;XZT&G):?[+NH9Lu_U6Op?pJ0&QC6UYYQ\f:ãU"j[Z+RoeW[TM1OG[p1HOks16gAVN-,:G,:.NU$DkZV=+.NQIx,=j'\HGqO)5\ãU"^2_FhOGF,_b_0w+wLrk1tjDipE*+dj)'<9=\)(tnm2QVjgY,$5#kODrowvf9BY_ãU"Y<\E8xKTD$5Hpq=mqch?bqi4$$4B=WE;xZ&=e&7AJto[,Q.*b8IK*Imd^JPQe1]PApf;T:CLMVaMmi6Jbk=H;?7dLbR:W^v>3++o?_r4AD4cQQqWr+FMlqU-;S,yjJ#I+NEW2Ch$wsk8m+ãU"-HgAJpUH<*gdOg\VX1Y6S$4+w$V[qOt;)$X_1.]CcVj,HVe54>\=^l_'%ej?CNOãU"Ukf8X$F#jrVOu&-)fPH#k>w8Td&rnKO[m&ZcAr*5$UP*E%tlAA*oRz^w0'$6&\WãU"X\Q\A?NR:24*qt(C>KT)Ok'7PHc0p7[ZLrR>f,.^Klp*d=6,*2Ic]KtY,P#X_hkãU"55%L;'eC9'(wqguU%Ki-]S-T&L=S=b,dyFp^h1BM*mONKq[s=cQMOj_+e$3+X+t#WQ7U4zT=[&iC+:;?\I[D,rVUJ;]e)S,uX))[W,f$1S4N)$nUq&+64bãU"%UEm3\p3nR42>'ksG3C$%B?+SbyCb/P?q6PiL+T(8]nf5D,7c3K;%L*#_E>h:&ãU".\Q:Qd&Z=1m>DZ1D:qUUqBRCrU3b+fC7N[MfdVXXK6$;.$e6W[5&^^+?phJYpU5ãU"(5S?-5%R5r>^iKZ38lm0rif)x*'upkTi:O?Mr0M4Jeez6;ji6+I%EMD_POWj^osãU"C[5me;uWJ(s59mZUFdQ7Qk)y+JsYo?]RTDd\ulT&U2gd63hOt7\vEZXSt1[1pICãU"X=g:0oq_+*nN'2A2<%tmCsFR&kqPJ,u3scgB6D>ej$WMdn?H\0k=\i8UX>^Ra0GãU"[+B=Gsu1'cvD(b#8AV]6_m+E2iN[5m6m(C]P+Oi;(ãU"Y=_k]*PQlIXF(3h(bfZ4j1%Y.2y(BCBhI.2TB^xCnF\47ptjP0'UuCzfN=Ky8Vz3]Ze4d47ãU"*\9J?>JaP528/lipwBRu.<=,f0kpPD^#GNhWf,kbRQ'I8][YKhxãU"#'X3leKe&fnltbdjq#&27FIO\:AaySJfT9#j+p=-W,qWj._S^llMh%HE/WtR:kdãU"DjMuBrv[dJE.NL]vPQ/,;.f4ja3B(TK#:;DYFe846n=_Yk92Kk#*.ãU"\[IxXQ6\a^jLARM\b6KQ/I]Qx===QDNo+FjBLa$79nH1E$gV\Ka'a#ds*kiDVb&ãU"K$n2'CO#KR?NpcHVFtWHO0A8BKgdhQF]0kAH^HsW?24\j:kt>a-rg#t^DH1p&pfãU"(h8:)n61t8egglI/]z\8APe&-T#BonbLkO^BP$PS]$Dn5$pdG2\]oD?pZjHHMLmãU".leW?L#-#kCiw^ef2GEL&Q[j2+JJ5nkoqA^V7CQHwn6>ELtawfDTZMnd.GS+^I+ãU"[yXD0N=URl=^/dw^%+aDq>\'8up(%)9%%[%-%q\YGHSD:J-g#&%%3%'%%0%%%%kãU"#nqj.%niSiLn)4$7tt\eX1>h$0kBK)mN2^++P1Z9NfPEjmzP=N_qU]l:Tijy8jbãU"$HiãU"Zvcr#,0k.T6hM22mtAt9LGw\L#=5wW+.6s+A:6sP-:[6*cH=GB3a6vLfmZ;8St%ãU"$9h7xB]$vgYLdX3WI/]D$jpT/FSCB^:;'Bo*RoxJDx.m$NP(;yYL<8FCfe*Vir9ãU"5%rIe);.8kB?i-Yi5K&:jaefMwj,pWS;JaD1oHz4KtH[kV=aLr6im;6R:^J7-WqãU"Uj53Pd'RW/XeC?f_,hxup%&'9%%9%%%%-%l/72HCV?oYx+.%%=S%%%/%%%%%%%%ãU"%%%%E%%%%%%%%&'ufn%sySu%fpup%&'9%%9%%%#-%1X7GHD&/'xDr#%%UA%&%/%ãU"%%%%%%%%&%%E%%%%L,%%&'ufn%sySg%fxup%&'9%%9%%%%-%&)[5HD(6iGJ+%%%ãU",W%%%0%%%%%%%%%%%%E%%%'=y%%%yttq%gfwS%ifyu%p&'9%%9%%#%-%$#16HfDãU"gDW$#%%%;%(%%.%%%%%%%%%&%%E%%1%7*%%%gwz%xmSi%fyup%&'9%%9%%%%-%\ãU"#[6H*3 0 THEN sp(x, y) = surndpoint(x, y)ãNEXT yãNEXT xããLOCATE 10, 2: PRINT "Scan 2: Adding Special Effects "ããFOR x = 1 TO 192ãFOR y = 1 TO 64ãsp = sp(x, y)ãIF sp < 6 AND sp > 3 THEN PSET (x, y), 7ãIF sp < 4 AND sp <> 0 THEN PSET (x, y), 8ãNEXT yãNEXT xããLOCATE 10, 2: PRINT "Scan 3: Reading points "ããFOR x = 1 TO 192ãFOR y = 1 TO 64ãp(x, y) = POINT(x, y)ãNEXT yãNEXT xãCLSããcs = 0ãFOR y = 265 TO 32 STEP -1ãSCREEN 7, , cs, 1 - csããLINE (0, 0)-(320, 200), 0, BFãFOR xx = 1 TO 192ãFOR yy = 1 TO 64ããIF p(xx, yy) <> 0 THENãã' The next two lines are the only ones that REALLY do anything in this programããnx = (((xx - 96) * ((y - (64 - yy)) / 320)) * 2) + 160ãny = (y - ((16 - yy) * (y / 320))) - 50ãã' Great eh?ããPSET (nx, ny), p(xx, yy)ãPSET (nx + 1, ny), p(xx, yy)ãEND IFããNEXT yyãNEXT xxããcs = 1 - csãNEXT yããFUNCTION surndpoint (x, y)ãsp = 0ãFOR xx = -1 TO 1ãFOR yy = -1 TO 1ãIF POINT(x + xx, y + yy) <> 0 THEN sp = sp + 1ãNEXT yyãNEXT xxãsurndpoint = spãEND FUNCTIONãDavid Calhoun EXPLODING TEXT _gotmilk_@geocities.com 09-18-97 (21:59) QB, QBasic, PDS 83 1369 XPLODE.BAS DEFINT A-ZãDECLARE SUB explode (w$, x, y, z)ãDECLARE SUB setcolors ()ãDIM SHARED xx(10000), yy(10000)ãDIM SHARED xi(10000), yi(10000)ãSCREEN 12ãRANDOMIZE TIMERãSLEEP 1ãsetcolorsãexplode "DaViD CaLhOuN", 260, 150, 1ãexplode "PrEsEnTeS", 262, 150, 1ãexplode "SoMeThInG", 262, 150, 1ãCOLOR 8ããSUB explode (w$, x, y, z)ããCOLOR 1ãLOCATE 1, 1ãPRINT w$ããFOR y1 = 0 TO 15ã FOR x1 = 0 TO LEN(w$) * 8ã IF POINT(x1, y1) = 1 THENã xx(arr) = x1 + xã yy(arr) = y1 + yã1 :ã xi(arr) = (RND * 10) - (RND * 10)ã yi(arr) = (RND * 10) - (RND * 10)ã IF xi(arr) = 0 AND yi(arr) = 0 THEN GOTO 1ã arr = arr + 1ã END IFã NEXTãNEXTããFOR c = 0 TO arr - 1ã PSET (xx(c), yy(c)), 15ãNEXTããFOR atrib = 0 TO 63ã FOR c = 1 TO 100ã WAIT 986, 8ã NEXTã OUT &H3C8, 15ã OUT &H3C9, atribã OUT &H3C9, atribã OUT &H3C9, atribãNEXTããIF z <> 0 THEN SLEEP zããDO UNTIL atrib <= 0ã WAIT 986, 8ã FOR c = 0 TO arr - 1ã PRESET (xx(c), yy(c))ã xx(c) = xx(c) + xi(c)ã yy(c) = yy(c) + yi(c)ã PSET (xx(c), yy(c)), 15ã IF INKEY$ <> "" THEN ENDã NEXTã aa = aa + 1ã IF a MOD 2 = 0 THEN atrib = atrib - 1ã OUT &H3C8, 15ã OUT &H3C9, atribã OUT &H3C9, atribã OUT &H3C9, atribãLOOPãCLSããEND SUBããSUB setcolorsããOUT &H3C8, 1ãOUT &H3C9, 0ãOUT &H3C9, 0ãOUT &H3C9, 0ããOUT &H3C8, 15ãOUT &H3C9, 0ãOUT &H3C9, 0ãOUT &H3C9, 0ããEND SUBãDavid Calhoun COLOR MIXER _gotmilk_@geocities.com 09-22-97 (21:59) QB, QBasic, PDS 74 2314 COLORMIX.BAS'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ã'³ This is HEXCOLORS.BAS by David--- ³ã'³ Calhoun '97. This is a helpful--- ³ã'³ prog. for finding the RGB value-- ³ã'³ of just about any color. -------- ³ã'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙã'ãSCREEN 12ãCOLOR 4ããPRINT "Press R for more red", : COLOR 2: PRINT "Press G for more green", : COLOR 1: PRINT " Press B for more blue"ãCOLOR 4ãPRINT "Press 1 for less red", : COLOR 2: PRINT "Press 2 for less green", : COLOR 1: PRINT " Press 3 for less blue"ãCOLOR 7ãPRINTãPRINT " Press "; CHR$(24); " for all up Press D for Default color. Press "; CHR$(25); " for all down"ãCOLOR 3ããr = 0: g = 0: b = 0ãrr = 310: gg = 310: bb = 310ãl$ = ""ããDO UNTIL l$ = CHR$(27)ã l$ = UCASE$(l$)ã l$ = INKEY$ã IF l$ = "r" AND r < 63 THEN LINE (30, rr)-(50, rr), 0: r = r + 1: rr = rr - 3ã IF l$ = "g" AND g < 63 THEN LINE (90, gg)-(110, gg), 0: g = g + 1: gg = gg - 3ã IF l$ = "b" AND b < 63 THEN LINE (150, bb)-(170, bb), 0: b = b + 1: bb = bb - 3ã IF l$ = "1" AND r > 0 THEN LINE (30, rr)-(50, rr), 0: r = r - 1: rr = rr + 3ã IF l$ = "2" AND g > 0 THEN LINE (90, gg)-(110, gg), 0: g = g - 1: gg = gg + 3ã IF l$ = "3" AND b > 0 THEN LINE (150, bb)-(170, bb), 0: b = b - 1: bb = bb + 3ã IF l$ = CHR$(0) + "H" AND r < 63 AND g < 63 AND b < 63 THENã LINE (30, rr)-(50, rr), 0ã LINE (90, gg)-(110, gg), 0ã LINE (150, bb)-(170, bb), 0ã r = r + 1: g = g + 1: b = b + 1ã rr = rr - 3: gg = gg - 3: bb = bb - 3ã END IFã IF l$ = CHR$(0) + "P" AND r > 0 AND g > 0 AND b > 0 THENã LINE (30, rr)-(50, rr), 0ã LINE (90, gg)-(110, gg), 0ã LINE (150, bb)-(170, bb), 0ã r = r - 1: g = g - 1: b = b - 1ã rr = rr + 3: gg = gg + 3: bb = bb + 3ã END IFã IF l$ = "d" THENã LINE (30, rr)-(50, rr), 0ã LINE (90, gg)-(110, gg), 0ã LINE (150, bb)-(170, bb), 0ã r = 0: g = 0: b = 0: rr = 310: gg = 310: bb = 310ã END IFã LINE (40, 122)-(40, 309), 4ã LINE (100, 122)-(100, 309), 2ã LINE (160, 122)-(160, 309), 1ã LINE (30, rr)-(50, rr), 4ã LINE (90, gg)-(110, gg), 2ã LINE (150, bb)-(170, bb), 1ã OUT &H3C8, 3ã OUT &H3C9, rã OUT &H3C9, gã OUT &H3C9, bã CIRCLE (400, 240), 131, 8ã CIRCLE (400, 240), 130ã PAINT (400, 240)ã COLOR 8ã LOCATE 7, 4ã PRINT rã LOCATE 7, 11ã PRINT gã LOCATE 7, 18ã PRINT bã COLOR 3ãLOOPãCOLOR 8ãDon Schullian DISPLAY MONOCHROME .BMP FILES d83@ath.forthnet.gr 10-07-97 (16:03) PB 116 6154 MONOBMP.BAS '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ã'' Display monochrome (2 color) .BMP files on SCREEN 11ã''ã'' by Don Schullianã'' October 1997ã''ã'' This routine is released into the PUBLIC DOMAINã''ã'' fMonoBMP%( X%, Y%, FileSpec$ )ã'' PARAMS: X% left most pixel column to start displayã'' Y% top most pixel row to end displayã'' FileSpec$ the file to be processedã'' RETURNS: 0 if all clear and as the image was displayedã'' 53 if FileSpec$ did not existã'' 54 if FileSpec$ did not appear to be a 2 color .BMP fileã'' nn any/all other PB error codesã'' NOTE: This routine is in its most basic form and can be speeded upã'' with a bit of work. I left it this way so modifications canã'' be made without doing a bunch of reverse technology.ã'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ãTestCode:ã DECLARE FUNCTION fMonoBMP(BYVAL X%,BYVAL Y%,SEG F$) AS INTEGERã DIM FileName AS STRINGãã SCREEN 11ã FileName$ = "IMAGE4.BMP"ã LOCATE 25, 1ã PRINT "ERROR CODE:"; fMonoBMP%( 0, 0, FileName$ )ã WHILE NOT INSTAT : WENDã SCREEN 0ã CLSã ENDãã' -------------------------------------------------------------------------ããTYPE BMPheaderTYPEã Ident AS INTEGER ' 19778 = CVI("BM") if .BMP formatã Fsize AS LONG ' File size in bytesã Reserved AS STRING * 4 ' junkã Offset AS LONG ' file offset to start of dataã Version AS LONG ' 40 = Windows 3.x 12 = OS/2ã Pwide AS LONG ' width in pixel columnsã Phigh AS LONG ' height in pixel rowsã Planes AS INTEGER ' number of color planesã ClrBits AS INTEGER ' number of bits per colorã Packed AS LONG ' 0 if not packedã PackSize AS LONG ' actual length of dataã ''''''''''''''''''''''''''' OS/2 stops hereã Xscale AS LONG 'ã Yscale AS LONG 'ã Colors AS LONG ' actual # of colors usedã ImpColors AS LONG ' important colors used 0 = allãEND TYPEãã' --------------------------------------------------------------------------ããFUNCTION fMonoBMP( BYVAL Col AS INTEGER, _ã BYVAL Row AS INTEGER, _ã SEG FileSpec AS STRING ) LOCAL PUBLIC AS INTEGERãã DIM tBMP AS LOCAL BMPheaderTYPE ' header typeã DIM BperRow AS LOCAL INTEGER ' bytes per row of dataã DIM D AS LOCAL BYTE ' incoming grfx dataã DIM FileNo AS LOCAL INTEGER ' file numberã DIM Oops AS LOCAL INTEGER ' returning error codeã DIM P AS LOCAL INTEGER ' loop counterã DIM X AS LOCAL INTEGER ' screen X positionã DIM Z AS LOCAL INTEGER ' loop counterã 'ã ON LOCAL ERROR GOTO MonoBMPoops ' local error trapã 'ã IF LEN(DIR$(FileSpec$)) = 0 THEN ERROR 53 ' file not foundã 'ã FileNo% = FREEFILE ' next file numberã OPEN "B", #FileNo%, FileSpec$ ' open fileã GET #FileNo%, , tBMP ' read in header dataã IF tBMP.Ident <> 19778 THEN ERROR 54 ' test if this is a validã IF tBMP.Fsize <> LOF(FileNo%) THEN ERROR 54 ' monocrome BMP fileã IF tBMP.Version <> 40 THEN ERROR 54 ' 54 = BAD FILE MODEã IF tBMP.ClrBits <> 1 THEN ERROR 54 'ã IF tBMP.Packed <> 0 THEN ERROR 54 'ã 'ã BperRow% = ( ( tBMP.Pwide + 7 ) \ 8 ) ' compute whole bytesã INCR BperRow%, ( BperRow% MOD 4 ) ' pad to 4 byte gulpsã INCR Row%, ( tBMP.Phigh - 1 ) ' set bottom rowã WHILE Row% > 479 ' all this is off theã INCR tBMP.Offset, BperRow% ' screen so just skipã WEND ' itã 'ã DO ' start processing dataã X% = Col% ' set left most columnã SEEK #FileNo%, tBMP.Offset ' set file pointerã FOR Z% = 1 TO BperRow% ' read row dataã GET #1, , D? ' read next byteã FOR P% = 7 TO 0 STEP -1 ' bit by bit data readã PSET(X%,Row%), BIT(D?,P%) ' set pixel valueã INCR X% ' next columnã IF X% > 639 THEN EXIT, EXIT ' past end of screenã NEXT 'ã NEXT 'ã DECR Row% ' up one rowã IF Row% < 0 THEN EXIT LOOP ' past top of screenã INCR tBMP.Offset, BperRow% ' increase file pointerã DECR tBMP.Phigh ' decr data row counterã LOOP UNTIL tBMP.Phigh = 0 'ã 'ã ExitMonoBMP: ' clean-up before exitã IF FILEATTR(FileNo%,0) THEN CLOSE #FileNo% ' close the file if openã FUNCTION = Oops% ' RETURN error codeã EXIT FUNCTION '------------------------ã 'ã MonoBMPoops: ' local error trapã Oops% = ERR ' store error numberã RESUME ExitMonoBMP ' jump to clean-upã 'ãEND FUNCTIONãAngelo Ken Pesce ASSEMBLY BUMP MAPPING ROUTINE us0082@uniserv.uniplan.it 10-05-97 (11:53) PB 103067963 ASMBUMP.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"ASMBUMP.ZIP",4^6:Z&=50755:?STRING$(50,177);ãU"%up()%9%%%#-%W>#FHtq'R:G+7%%W3%%%1%%%%fx%rgzr%uXSgRfx&&qJB[34:xãU"n>u7Ge[vV1FT9a^02nRiC7eQeM+SVhFJ1B,'XãU"qLB*)3'WIF.FPGTD^X+1)h/;pW$IIu[6M1'YYob=EmEA/67?+;lmvJPW^V+aZp'ãU"EnTi=])_,/L:TgTGc>ak;PB3'-B$ael%PUm(.49)7kBrGF6K<$dW:Y<=acA&l='ãU"%w^GqibK6Wg[5V5,Vw$tO$IQ46TVJzPD1n#Q[K'R0)n]wugu.4WaOC3N9kLsnF*^m3knFQ=s*^dP'*:g'zkX340>^MhF75.GãU"_G0N/aCLndFJfIe;k%HsEphlUJ$v7/xu1g:VEN+n^ãU":dB>%aU(c>sPcKtQShRuUkTbz5l[JTfL\3lAkCm?ocAIcd&-1O=vMjvw&4'qk]jãU",6vU?dL5S;+TQ2L8B7v'nl()He*UZB=?+Tt.gq%e=n+2usd;C$[.(S:b&bOR)fBãU"F7mD/ihiUh3uQ3,-aX%]%ga<^9&>PVq20Fa.,0%XD=#m99?Hl'E_yr>*g?;K[Zzl*ãU"Q9J9-'/2XDU2)digULO%qFHpkS0w(z;LRO3atHRtMwH1lG($DcJ9W^9/,YEyWYlãU"/i0#>PDHPrx0cgiM0k.&['^%dc.8iU6>NW6V=Mz(G0%[Td=XmLQHR1$aiumx:HGãU"a,(n(xM?bYnkhyVc.[IDiQ9vDXV.ju*QI-DDh+ijMR5i2[N&PkiecA9R(m3VqTmãU"PmoMO#=lot.l7%2*21#nm0g;fPJbkUjYXV[dhaNc*D?XD5NR\oa,Q7-JPk\rq,ZãU"0WV%r8:b*RpAG_psIWtvK>ka9CBZDHaJwInBdoO[TIUCumY?JUYf(b*gx*(/zy?ãU"lG?,3/6:.f4;80Z<>E_+-GJ+MjZi#N7eNAi9=q;?[yo<%DbL#yOxwaa+E+$$/p\ãU"lYftbsMUb=Y,g$j#Yt>&e(xkex>]l4qiãU"8ePZfs*gd0d(EBgnDi,*pt]iXGC%cuUdJ$F8V+*BXYg_%N6o6_P=3t6Q:I\;/n2ãU"TU/AGbb<5Mg9GHMZG#xa2ReAr;TZF=uD%W>pCxW_J_qEFc57Jqqd?\JPhdGo=;BãU"+vf8$VASrk])6-Bkk]?#W=Y\-I5j/c*tIBJ:[?ZL.Yrom(M6iILL*6PJtQnaYx-ãU";#Pkq(+n)k$:6V<]/Kp:1zU6AExb/QpwpjBP?K>jNJ8l4Hcrq0S6Y%>R+./R?PGãU"qt;J:;TWCnt0'g\H$i:?UCE=NJJhkeN>dFHah8ihF*7%%o2%%%/%%%%fx#rjs%%SgfxW&&xB]S[9xSl$wãU"VEP=Q_1_x\84oatb77mC;R-,-fYzZ)e6>UcrdLRdW=igW/D3anbcht\JãU"ttg:6C#xB)SS-[zPlIGsIDLp=E#\ow)'sW,=.q]Y>,C^F/GbYw\vG#[=3MNdzLFãU"7Y=;zlpsfT?Bvtva4c0[&;5ai9c5p0Po$pj_k_m9U/2:GcQA1:uVYoV,;S&p#IEãU"7a#U9oAoM&k5t'w[?e)AcM?W.TGK:9ãU"Ijvv>PSMM4jjE2XtM4]0,pp8/W$6Ahf4N(%ãU"a7C(4YFFZEb8vUb=(UR>_hbH+i6DUAs)mTP&%3^^BMaUs/L[O)GiKh&ãU"&6u(dDV^>o1HNqsn2Z9?0r%ztk_O[T7=V%>G&:7:3?lI*b:?)6p%,2bISAU0gwbãU"D]gpD)s[EWnslRZ+J4<-gQonTpFU&$^S0t4ãU"UTwDv(tAoM$iAF:xW?lHU-,7qf&yS80L8k2;AO+\4^u2'0ZpGqr>)J%sO.G-UA6ãU"5RT[4ye*n-tiHXxnE\9r?\PgGg*E#r9ku:\24x8RKxugw^Vs%Qw(fo_i2;UJB'.ãU"j.39YF7LYdAoL_cFf=Jf[uHu1Jy_T?hVJm9%inwl3_v\$*HcOtF=c/8^O)$cDv1ãU":%exUk&Z4m9yGIYUMi;9y38h>c?J<:tUhD#pF]I9i;829)&GhKJEH+hZH'CDn7XãU"iFG-raELM6+g%[EVbrFi+%6x2PT:7r1vsd7Q8ãU"H#q*d$=Ns7_/ZPvf[Qwb/uIp+kP?#40#p>f&s\L$i[6yxg?*xs)7ãU"$R,\Nn3$+^ycKS&.up(%)9%%%%-%*A>FHei>bjV&e%%,'s%%-%%%%g%zruS[rfuãU"e35Fk:-Nv\CkEhlW?tEUNZ0gVY+QNeeCicGY$[rMJ\7YOK1;_qG%i&JO2egwvMYãU"OWT\7YV:o=MKf(?:9f'>;#-bw*EHutE64ug[prrv-Hx*HV_$kJHkl+chtdK,,MAãU"fttMkDb>g^IwImt8BSh-ERue?R>kKGgsFJ-R);f*s)64s5WK5r6PRc1j:Xw-xj9b)?1qBEIZJ5&*Xbt/)LK16Ba7^DeNqt=WHP=\.o84=JAW;AU,=fEp=aed<'?//ãU"2^V)*joY%Hwy2.Rv%cj;Vug_#rHd(?v]9Sv=7v1Mm'TMt'\$6\9eYrG;:,8D$&[ãU"f]I.BA4yzCN=opwnggUY;#COUX(#DGB3Nuq1Shi>K$BPxJ4]ipV4RZ9F:%veoc1ãU"SBDUhg2_%F?4?pDR12>Y#cS2P3hg;G-pUrUJ'H:JQ(E)+\7R11HZFN*S.t%l*?:$aRErJcAdhk78^q+u7]ST>,xZ.]S\kD79#V9/C%*:%zsãU"]C+g:-^L9TWCQFHP-GZ11n386,Z.#b?FmFM/5ZRnp.M?:MyDuU;2A%MhZalF4p.ãU"8J$Ti\]UqsC;Dia]lne]SGK2wYpjY9v)D#RP8Vq1B[NZ0*HLXz:pD>#_t^'iqW#ãU"7BzsC]PoxQ5BF2fk_.DeU_,iN&Klu>9/:Mi/a5^P+=6;#p7M)6Y>C2q.bg?)1ZHãU"F1rt'l7-YfBUH:f+e:RKNãU"j;1jhYtN)_2rnWAw33_XAuAPetP/t5M(>6eRzEG(*Ky<2O[>*#Abx&DW2*ieR9)ãU"J)K637)$oZFR$]]Nbg(-P[CicEZDc4hhig_7)x\=-V%r.mSL)7l[yIPP2wv(Xn%1i-Kq*dF*EUgFD2yW6WQEX5c>)ZJãU"S%iBStiC0M(wDZPt)a)JqãU"Fp_m+pJH%giEA2cYHIHUGZgw3%F%=^x1Rh$':$F]#Ano0Xa74iWc%DsD\ksC7RO='Dja)jE^4oE(*(P<[XGJSVemhãU"(^WQqac)+Lb4AP7erBGSA'o/A*(ka;r)-5>sDb7R*?G=Vh-PY:JWCAb[M2diL2\ãU"bAu&ApX9lRi[55vsUO-l'e.5ud4i:fFgUK^>%3)v4P1bAFSd]_*sGci%,&E$K=NsXCQ'D=QSt0ãU"I938r3&h)T'IjeBP?o8BBXIb/UO93^Ccsj\;yQkpZ+/2/3=m3j:_[1Y7,.k^;j>ãU"X8DaaT'DoWy:bw0j*B/qD8iG1of?xG#]lB$dfrcGF&ZZ/1?3fJwg9U$Ckw/oDAaãU"Mp=R3]jKFn%rXSuSKyROm'(hnbR9&$0&m_37*LOOT)oIdce4X6+Cw,N.(S4HnPPbu:I^nQX(\JAKojcHqjA1a_J+H9wj,O[CjX5ãU"yD[*tUv]aUcUW*5;;I?EX;?OrQ#\#ZioX1Rye.),$.b;gA'JZXL%:?zvA4Zx^dB^z,Ro9B0J;+u:T+kWs(YP.(k$.(1%3O-Qs\IUsL_,d'FjãU"[w5G,a0klYq#?rOSAYj]P0a8i9XEMj(re$L<^gH'INYmv9*Yrx;mHm#G>0F:G8:ãU"cN1)5)r0hke[$0mKaXM#3[wbtgcQ0YX#VAttd_g7RSvr2AUAZ5'Mvhlen]9]jN#ãU"lIO4T\t%#sK<5GFv1p$5Eq'LlCX6[]rxg?1t9UZY/o^*T;,WHWZve]CDE4V#k]eãU"IEbJn9MG^F[avURãU"8G$dZJ]vIUx>s#^OdC-Ei8L9u7labE)Gl_mv:\M[(._#2bH?pQ*PQ0IE4Qn]VD*ãU"BZ=M]NX,4AmMZ0ãU")GpJa5WmRJ.#NOR,4[(y-U#6Wvx?p?G\2E.wXRsEL=Os,L4Xe$HD]ãU"i5>L+H<^b21XIAO<]q+HãU"hV1R4]1DAiL=cFO]'wSS,d0$;r3RhV??Kpqr\-R/=glnWxSYF/qClo>ebãU"AGN:>G'I_13rdbh3L<5ria3#Acbu&kBRgc>x'3W3s4CBBi+mU5oD^'61SuPr?\DãU"Q4OaJ7VAp3:eG/2hQs9<+[E?,p',jYPO\u%m<^z^w;rGHP$=\=8fA:63*WCW]K#ãU"q*sH>r9^6<=\\2jn3YpA/&dk9:>CpUSC1zqQ[]2#2#Ar2*7'Zg_b\#^:cP>m_JBb+fJq^df%1MK0:P%Ih^hv=S(SxãU"YgJ(z]c<-wR'E5$O:Sp;tk2mJ_1\M^&jdf6%G$,(nHg/)q8e&Qk8WYYX+tHN.h$ãU"Y1>#-OksVr[*B&L:&.LH>[j&sS5g?ZXx_YIPLSAuCkt]qs1;?Tr0'+kKnqrD&+rãU"U\,#^9JxsBj?A6TS&0oU?CSN^DwkMwM=p/6RLKI,4tw9-L(,v8'HK<[1lt(p<'d(KS/O.[5yakeãU"5ujalRVjFP-K=+t$ndWrbBPmKbTYC=EsAU*&I248BpãU"Eh?pcFPA]P#CQycVR=lGc_(eJqgBxU=*:;5]5\i>=tnoLVjI/UH[;zkGr]cm]+)ãU"7n+or$_k'ks>vKbHTB9lI;Ytme6,+yH0k>Rkk]YXAãU"k82ot\0&T1\Crr&e5pQAiJk3;^^VjO1[$1E&CyA9^hkm%>0+l3)EepiF7/#E?2:ãU"P4mCOl2Lyyj)Va+&zYZQ,qZ0Bd?S>N]CT#8cAtA_*A]8.lEuãU">k%]NRGHI=%P-D(QWlrb^IM[Vh>'P.833MLFc#cm8&:N>zd)39J#_ETAJ'&ny/4ãU"r*vPCX];L.]j2#>V-YSAkp45YO_SpvtH4G[n^9^tQ:B;%bDDZsu0r*SC26^K0Q$OuRHX$0DoQ'E:M1pr#mruAiY9ãU"8]:zDBw]xDVSpZL^(uGP\ZCh5z^j'#ZDm)&cTG.Q%&tG/Tf]5ZkbSclCC1O&^/_ãU"U+^h:(O0,CNCriV4'F]-;T3*K)nq'NBDQZA>ERF*%pnB=JCD2Y_ãU"Nq>byTC)8bH,na^_a$=AF'k%FG5PfRS;KTzGsIdYM.EfRK5?)en&=Jnc?.gILMXãU"ak#frItn3rSJW;Qdr[akWaQ)EBHJPoZ8%v7bZqzX3:9r[EZ3+r?%X>Y^\j#0;WWãU")8lZOna)w%P,/R]tw7[V='80HD_rjL\uU-nj/\t<ãU"oP1JTw)t3(nC4bur*]chxkcZKAK^x4lmvbDEVbZV^Y>W)DEDurjL[;k+[1Q,^7oãU"=r9l^QX$PeKk6K:mj)Z?pmG[#.+^=_+[2[y2jUKj-xW+]E;9_m1vl+_(7/qK(tirMN'v9ye8[fJWcY7Y)sSv^b.HãU"V3E$g?tS4IXD1xIkz'LKomN+6w-F7W_)l:K1Dh?Nmq?u?ws&YxgP[.LGHX9E%W7ãU"GAUk-'GxI#nR]c%A:)FC<6ZsK^+#NI#NUF%iTw.tMhmOQE)VmNZ'T/]tiM3(&9+ãU"kbqToR7ha=/Z7:M9+>,=G;=O&8R^Rjg>]f;D*L[5OG)p7p*M;kmN5__BKWKCsXJãU"6%p#A>M)pZ;719'ffK8jcrd.tF'/iMwJ+L#xicVyZ5kC]?n/B-YYm0=)>\%E*h5ãU"$>uv$ar#*d%Uy#vd-x8J4RAmJNSD]$qu']C2AzrG)B#ILlOkw#cq/fN3Kw)\9$rãU"k5+;>k,^.oRDu]+72m**Qk-]_r#o/Kbg:7&-y3FCqv^nqwOOvc4,=t>m]W.SRãU"4R=9w9;:bVh?u^qOuhk3f--=\Ks.cs$bX?b70rRA:*bU8iF='SvKxOP>ggkHPxV5GãU"W#Yi[=kp#q%rnAoGRpQ4PN't1pw-eZ,4JdbD5+f_hyHu.JVZWt5VW[p)2mM?j8'ãU"dxCR29mklqg]YEecuzL7>JFuGCke%(Qep/R816EZM5T1A9Xy[7ãU"X;A'o:K&t,QjpO0jjQ:fBLji1;E=jjzA1ej)erzYnG=c_sU6c&)9C1m:_Q6RB)>JUjwr:/1;d*T$MFfK?Q=K^+kfn^ãU"W25%qS=^AW/m-72/*44LAYObpZ[q\_jbQZ#*ncHatQ2f+WJnp$lgvN&N3iN7zs_ãU"(3\nwRBZI'Lb2hmK;mpOLSp)f30CZoI/;T+9J9Ie[qP_<6B'aBfnuv:f>*,YMGXz0CW(Y0%h5-B.tMl?AxYGAOF]S[^TãU"ARvYJa51E^1pA(5UMQchaCc;XeCvVu2)%DuVsbhu='i=:X+zfJT3Z^34oD7f<=EãU"&2F#62Zev9/+LU+^.a5s4Q3l/:-;36/RO7p.KTz^gnOV,'dJVMJ52&?FM6Q6e_\ãU"6[5aP3$#/-FoWM6$4[9Cp$6X5q&9n2hA-lB$ZRh#*(b:9&5>j3FcwY[rN'3_\K/B2]Z]+\Y49hNNãU"H93BBkkD+)/E>?as;>'qjn9'cbY=oJi\jRQ+fdC+&jjl([6O*ãU"#hP:7ngVRI'KYrpgjRu^m7;^rSal*y_Xkfm.?]vV.eJ-w#xQud+x5;$dgVRw_Q1ãU"^3?UIQH(#RrW_ipFsQQ'4rU*R/gXwC$s61arluZ4RILT'wKkY3X.PJaqzPUhYcEãU"gDd+Ru'#3cVIed5OF3ogW6r0E.Tng?S'^G:NAuWJP.IX/T)Pq_ov&aghn/#piN*T9RlIl^*#av;mtUr;&yãU"Hriayh14r9OyIY458mb6't-kR\rN2V=2T[bF]j-\G%JfDDyO:y/Y5cH4<.hMA;uãU">lIxnGS\m?o]raE/si2kjFo]%)P1=zuFPw5q*pM04I[^nQd%V[)&#P<_eOE4AWlãU"rI8<+2l3_E4]64]r9J[A)e8d*OD8O-^_xu;ãU"C^J)^Lm-i0G%1o2_/((fW)SAX_FWre0ApLo23,TE)')h&n=-;sGnnj%AZ,A\?CoãU"Qk^)y[;W)>3(xj2m)=17ourKUxRR)QOE:&'ioO+Okcj04Yn7:gk#u_k[FlN5Ua\ãU"2RA\QP6IcqX)FdHG'xcYCy[W9jyE(*D^b?u,rRWgahDZf_1-l6&b2=3/JNz'CTrãU"'>'$?99&d9P/e$By(zF=ai5qZ33fq[CEDWH4bT,*G'-Y2B_?ãU"CXNu?9PG>m9xPI'tU&[)wU6=)RO1t'Iss5:d=B\LT-907ãU"_kpH7)pL92d*lECSEh,3*b5+lXs]1/;Ziag.f*Xw+B8cH(mugO2eq4gWJ;mQI9sãU"W18;YSEu5YZM#-hV8hPbGqs'#(Lk_Y20AYj\R^KlG]BcB(x[[J\AN.ak^Kq%Pb:ãU"7qkQ^-PjPN)p0B-*_O;,ZQ\YSSm0t]+vpDJkS7DaVPR>$r\?hE$G)N6^?n+4OsXãU"UI32L_'h:W]6l:eb0GPcJT=$FM)cFAjKE,MlMP)[(JeqZtoKoAjk7fuKE=Om)#hãU"hk5<>Qd*3-E'F$CyAAaJI17hyr>b2Z#s>=_GFA&5mZsRkV27F5qk[ao=Wm%M7qU]T\=/u53=Q_vJCuãU"O\HshJ)s3S/[rpvjJbCC*)HJ3pqG+s3%v(gh'^'A(gB:l%s)V2D2pNT,A6IZ%6<ãU"&,_U3]EexwS+XG>B[7JZPn*+xo]6vYr0stLS7<8k9FIonB5k-n:B80V#vfL(vGnãU"gZv['bXLrqmC:]rlvF4Hm;p5CtjY8lC%XL/usma5jvd4^,5q?8iK>#8KrlXc&&<0Gj<ãU"XE(gcL$;S>LCTg]HZ_>LvrG74YkQbg^tTL$v8I+7cYJC-XHL_sl>HZ(TemV<ãU"?Dc8Xu^rmb4tP\'>:.t127p;kRxtWw>]$9l*,5$3[50)Ya>:jkVEt/y$%TãU"?4dWZtFV*u6/^FSu2n/^Up&&'r71^c$T&Q46fo4Prg+*ml/TeXr,5^+U$=8BFrWJ#+4JDfãU"RJ,sU'r.I>cq4ziB:$%(I1k4$D&S4P:^adK0R,BiPA[5Y1R+tuDg5pBgz=;iryJhB6,0*r*1b+ZNp'+tE$+^ãU"kF%(.e;:u*kCbY^iD>,+>;FK:^PfR8rl]4gr32nfQ0()HNp,z&WW##YuTh2pJm:ãU"zegR,AthiJf(D+L,9#GDRWS8rLBAhqQdSjY>]0D-qYgnf?Qjv.#GO?6k)OfN1XUãU"A[JH([2G,J#zCck_Go-RRp5OL(la9M$2=%)2mhj\%:b,CSV82+*2+lKM1k0CPIbãU"<&(Uj_kZcG9O/*\QMhd$7ZO$=wXNIJp(:7V8)W[=^,)GjD]Phn9mUuMH&eZAzf?ãU">1VZIl3u7WZ.onpto)IQwvA;]V4SJ:]Gjdx>C7Q4:*YhPiZno5iZM)kP-&f2^]7ãU"$_<0.f]E^+#7D$D>$'t/E^']XeU8Q/E_)Y)?:fn0npM;5&<ãU"vFrlU\)d1R3KIqd?:W$^HMjd2]NFI-xISwP.:3LGa_yYMdhpRkZM$LãU"/HNfjAPt1.2d3jd%-9rjG<];?IEX%wq%IP7C2c9Iht+5VD1(Nr]j&40F\2MY8q5ãU"3=Y#p^93B-J'9btngQGop\VaC7Ho=nn%z;je.3vF9l?/vWGg/Pdqpo^'AVjy5T=ãU"+0Y]0YWDs_ZZFdf?RkdZKWj,V3lB$6Vo5jb?-Bko%NEb5\hsN3kYl\]omJ\jhKLL'sF_=QoAãU".bS_=k>OSZf%9A0swlp+(B?hmlDK[NJrNFw.KRBPOy,.jQ$4FZDk(A8gqPn._:6C7d:F^]o5/pVnTgED?ãU"j.s*RaZ8u,QR9[.y0%TJKU/2'OjhHPV#B,H$53LkN*^iuy0.vtN;HGF6nxs/IãU"#ywuUsx;9OFhBYHT&AaGa&;U)%626sGJ,/z,edomE9AAYI?cqEFXiv?BLR*D[LNãU"r#qw;[&L=\eA&);rxNS^*FZhW,6lH$nhEvKT3UD$v_sT7ukuD(7uQc8.LlnNNxuãU"tX(7Qws:A=#X,4u87v_;j>7JVQNANN7z+DWAFXMXl]9FR,_]Z=TB(h?]txfm3A9ãU"h&]d,3)_#3IuYd4XdqYLJQ#ORo5hwePI$l,64WL45NZND>LuBãU"l+edHGcxr-xZ[kVF$XR%liHENk*R6=+05&<-\M.z7N&/f;&8$P-bOYDI*R*FE*:ãU">Df^T(WZ#CFLM?hvuduBLi%\^dFXE/nqHS.,^yhS;VgX5m77O,'zK;h_u5m)4uiãU"&z'Ic=rit':eLsn,4J:-,XeKa-um8gCg;Nu;X\WxQ2nEQ6Vd>eu/8w_oo\0hqGBãU"#oU\FeGulVpWqL>P4-4Aw-\GD8aC-I.Q:.2XLl4)6HGN8&S0Xy7w2t.qyWXLx,]ãU"#[(80H8QzPd0lN-BS-X>#l7Z^c=YãU"dD-gi<(y8./SdwT&'1%dC)ID%Z$4d,#qCtS4%;^.tStp.c\P&VYPGa0S8:aEFKkãU"?$*CN$eEeQEPH&k<$XT8%O?pRti'WqI&/0$$\MoZ>N6q:V=A5\Yh<)CxLCik^Qhv5XoM+QNQ\#BwhKRJlI*hCaãU"UQ1O$:_w.8&k1/+ZHd)/'jT^F-*1'$$p:sk+m'^-abva&6ijpdGxvIB$E/,8(5CãU"sbpe,$HadHe/c>5Zws',/>LY1L-FNi-aqLE^Num91(-j[q=Gm*f#C,xqL*RãU"Jk4=?-\0$>P([D6oh:lHh,/Ij%h\fRT'26iAcnV)%h$ft#top0WH91-:Y,_/OpmãU"w=fhLta8i7eVmIcxpR*/Y\_iG1moeUr=;euFOA%G]'hPOe$QZZ7foOO8?f=ãU"8sL?+DdcwoLArvNtdmh4v\_$\#/V5qmHLT[=PK]nNcvdhp7hUpdZ&tdr\^K57rs5;:Bvz%zr8za:qãU"50b(j6iOVR(4UFEXiZ:-g;TGupVp9s(Y:OMvnMP4Mk^5]%)$Q[%u4Yj&4DNOFg+ãU"BUL$NFi',JxivNL]nn]/pEmZT<8NHZEUUSXLBfZU9Zls8RVEF()>AlF\ZW11,Y=ãU"5jeV*e%+>DHSduxrhd-P(,Nj[&.8-gh4%H$4FFrVDpSr.Nrt9\#/a]n7&iRH7f%ãU"?;,G&-fpz*4si:\hNJzqFzf;PuhX(8Hmmx*m\akAXhp(,#poMwkMUMtqlFwj,^YãU"5E7).XqX%u[ZbEe3-QEDQNvdp&WQfNn*nU^C&5eOu[9wbãU"gacirXk9X=c=n\q+Nvn4\VC8J9Sz&Z(6xpdl[JSE^Ip?7X0,qvX&bty7tob&Bh[Jv\-N=.avHU&>rL0>;q#DWh(nViX,JNf;p6HemV4[f=nw4CtiYx<&&P,njTrqBfhV=(/9rf.w*$^x<0RL1U*\\RO7'08*Pp-ãU"%jT8f)H:9\l/CZ*td/sDYt\i6zfXtILnPe+^NwlU2fEel$FWfujZ(?8r/:tNuL3ãU"(ln)(,F54#d-+%kr&S6=50/rlk%7GJhQHB_$Emb6sO,$E>h0i\ZPwoe8tPS6TeiãU":Eokza4*gPZdI1V:)pz5F3r]a2l(.UB-B;3G),Mrj=ETNaCiXy48W4=Z4W,6-\QãU"xN(6elV=Ui1nbXZ8q^(B8?d40?jB7j1x?DdRp>2j*cLNW;.Hh5BJ;mPA\etTpcmãU"^m2t85#Bv[?>x?G,U3C1^V9mMP5.[IP97(8csJq6vQs8.K\9PK+bIRD'u4sC24<ãU"Hk_bHC)AScNL5e,W>wl[df%H1ht^D=U6K-xvtdf&''NfV4E7rs+tKuBC$EbmW[jãU"?ulH^<$k,Ei$kBw9r8T%H[(<,YJGgQChGX$hãU"eBoGclEaXHctZelGj_OX%;Wd>3\[E-hq]mXT8-mKXt2RKN&ur'4srkZS?PntZnVãU"nIkX'#D0>S]d#nkGkx\uGq^q^nelsarHWpNPmhKCA7rf$;pOBW2N=l_oN,PhBMsTR#NZ0wwiWrfGis[ãU"ZU,uHurbhvlESNbvnH$oSN,pS()q0_::C7E%g%bONaf%p'DGk]P/lmDHU4P0jQHãU"*,vtaKxA?/6eQbOpWEe1aXG_$WuXL6rxIZ.-8>caNIXQnazB,qmCJaV8K(:DiinãU"B_NbvlANCgYkPAC8gE#Hxu$Fk$xei/QYQY/6m-R32;u$W^0V-F>t><\H?kFkX#RãU"3d_w$:R+vS;E]W':l3b?_Q\smA$g%\.&NI#2oV20?9?9d9bDej]E:u/s>B;t-4eãU"WKtCP(ZV7d2;a3v5WYE]ãU"[;p)h#bS3P$-YMnhf?(w\hixK3\]?2#Zleg,whJ_>kc28]r'q6l2X?Q8>HhWbJZãU"oaJrY6HWL-tnD]YGai2dtI*q4PiFCa6*<]a'e*]7Y%6l3BjVãU"scL*Hj'/.7%X8*ro/EGa&4/osO]4^>9,m0G'GHAVDb3*io&(#3LW/E9ofR&V1D.ãU"d-.Q8q-Cg?)6EB%smI^<)K?tctDHsdH^4EEãU")r$Yj^r2fvm]Y1a9M<6J/Y=\N0p^xBpH?Wvs4p_9q*$#naoNM#SD%BAB]b7ivãU"aYihMLI.Q//EVu-/oc?L$i&JR-S2:.Ql;.6/%BcjGoUulQ3t/aFutja$[*CL[aIãU">wE0qMHSan0lE8DD'xLe,VãU"fDmki+Rt+7'7c72lh'7dBY0q=168^JQ2ZeWlw6JãU"-+Y\api2pp2Yt.XO.Hl[Fs%W)[N7DjnhJ\7iMv._W:^+9P3I_xd#X>jCZ6\S&0iU);SLãU"s3.Ai3EZ)cmVqAdl[/Ato+#/Kuv.S/c6diPC4qQP$)tlHQW)[S=#GypT=Zbv,rt]xrqU>&ãU"u=uRvxUnY=_\u6t8fr]O8hiY.QX?W'izliTTIj4O>rrhp6$em[I_H]j(jcCr]AYãU"G'dIVhb#]s#S6Hho029qB7i3%Rt6DP+B%.bz;lOsco1ZtRBK*Ziu*f4duAlrhHPãU"Ofd&12APE]Giq#2H/i]JC(&_iWt_=pU9)-ubW\s\]:+I9DghkIv*O,Bhu5ui^s(ãU"l9)8tlh&^::Wn#774asen[Bo8afqep(J(7o%P'Ph81#Td1ãU"jZIUSFguTQ,gSmZMt3g%BE$mc5uQ9WFmtA%554ufhgcF6W.I5Uv%[lQHC3J^El#ãU"FJd,it1?YMc(5t-j4Ng4tJN5b&0TCRv]p=D?=#p;RPp*Kw.%BDyW,-[_7?qAS4oh*mka(gbq+dDb()O/ãU"pT+ui)%&g=fwS'e/%=vx*EP.8%QHWQhN9AltQ*':Fh*mSZFI9i'ITBJ,uVkFsgRãU"6lmm]Eg1T'4:j&q;sWnE5\l_;LpX\r-&(;*MxHrT-RwuW#tãU"8FmCTdEqtw.BdM&ENgF_]F,[fQ9XXTCW2Nn<$P+_f;fvvDd;Df4RDcmsAE'cf\cãU"GnUj,Nz9Yf%6kY>rJ*1ml3n+p71/R3_sSt#$-FeP6++,QM.-SKivV_OKe(cxx&6ãU"k32fZJ.Gh++h(fEREQYLlA8-TM(P>,g,K3f>TU)DM:=6HM8'+7b7bXY-a\O%ta[EãU"FFIk&K^HV5w=;[bduOUG+K'N&96aWvdUGQL_DaklQUzq6DE2:$Ml'DH6SRvys4/fR'M:mLFQ-AMQmQB5OT3hG[5)C(qaop7#:\QgYl9ãU"Pz4*(pq-tZ(ToWWjqB5&^Mc[FdQ6lHvk$rAp(I)eG$RjMK$D[r'.):BNfUr(-&W>;K^#iJ*oR#fCkQI>$mWHs\BdYp^ãU"fX-2oF1XW=bj=_oY=%W)gORIkA\^l^]+)N>abj]*Ataf'h34E16QAP3T$.U1R\tãU"BaK\NBf^FPrsmRe]d2Kl^9>\T,.xaTszKklq7run+vYve.yDpqz9<1,QXPtt;sdãU"S6T'nd?f5LkaBR4h4M1UOuj%6+6\biB,e34=p^=[5f>PaUlZ2yo$G8$dPsZRInPãU"_ZVZfXujT%sE\Y4R/legA,dcWZ:T,Q1y*NiKc4VurU?7k*7gZUQwMEXm.)AD-GdãU"RFk.:3=mr'ia?:X&Pl3h\Uc1Z29^Ugr]\'U4b5QB/nm6/pAKI&&OlJwcvZp#NR0ãU",^>P#wAa3]3YQp_JSkNX%1-P>%C;7>L58>Mw%.Dv^CIkãU"GpAeAh)dUcgQe5h(a>gtFmQl/X&+l[_gzfqlMGQq$Rs-t/x$/Qx5UPXO*OGT*BZãU"r0dEkJ_z&L-=T^=q%*e7o)n^_NG>rpk-9Pc)L[PgLNnu]f/5(1lGJãU"p#G6]IplOGb<=QA\4pH]W0Kapg8n)7dgyV'&[C_)Rs(qFjZf?.c_X_;nfc$/YYowvI$p7S>j>#wãU"u(A[)[nphq*nlNqOSC0at+w?2B]=UXr>ew:X,k>f4dãU"a=*<8Lt-bMHbr?aXOQ*25C9GG=6LAi0]6mM8uS>N;QfH5K=dRP+i5kaub--Z7J\ãU"4isohkZ2],r'r%FyS&KHJ'%WP+]SbOuc9VE(LãU",%IP.K](<_FU.g=G]Nxwzy9U3YRJE+-skx.FX*7L&D1v.*tqM[=Q#)bvadP'VZqãU"FD>HrX?r^UPE0.l6I]XTq)86smu085rv$)XVX0Fusj$DFD9p]p?LlfN7LnKluWjãU"(Xa0r>Zp&18'JJ:*+SZ2h1>>dv[lzD,Rlu&ooM_a1+XSm)[-'c/Hg:Z?4C$^#O.ãU"\Vbo:zl7qv(?[[RL8?'2g.wFe39G.%5$h2J?Hz^'/PK-ZZM8.3F$Hd-y9X4&5;1ãU"Eq+1$B(36V'Q(%M?D8(3\#a^>#mwgcrs_g^jhHyY+\5'CB;::kO,]O?\;N>WH]c\m.o;>_AhMlAN&eeãU"5FQ'5Vk-+Ib5YcF2Sy%Q>096R,krQa9k6(8xJXWGD>&0UEsg'JI(18eu[B,]2YwãU"ZVlY9YoEHGogGa6Uk&Jpe=&ciD5meo'Xlm[OJ+T]Tu#b'6$r/J;GvjIw2kH^8,MãU"ZH6r=_TN,7cdMasl7vGQWp.v?LszIW(/.fC'SuB%m=2h#51j[AQqdU%)W%ãU"7(+dOf]iM/$G'%K_.)-70a36,n,%>H-FOOol6iMP_'0/'/eweaXWlM8:6&6E'r$ãU"6h6YNVH(]N/no^\JbdYlX$L60mz?jr-mGC8sir#dBVwQ)8[_9NQ_nsd/:g1'OGmãU"8HW5A1d]mH*bIAINrqN,ny1w$Ze4QNu(*3.hvGkOB-w_n1h(L\=V.^-KHz52O?pMJ\WKR)-v9GeMG/ãU"g?W:8$5w1SoSEJ>R^%#Ia>#Qi-0On1?%F%HME/3alC8>%?X1qãU"ebPLcA]x'TJ-tFb2ImheEcr=8,V8BGBaqYAo&Fsd+$r?PWt-6jl(NovmsXLShxrãU"Ha'qN35CX&]qJ&AYbRsh\bl;pGZ<(Za599u0s6My*1-PwjJ84MSH'ãU"9PPNJ56mZ^CPtsZ:nm2+fS9Ab^:c;3:?N/?P\oof_\$YBXG%\PgmD\.?Z9I&hmt2La_3VP'32A+SLG76rj+gg:CãU"aKe(D8(UC$98o%q]DvT;88aãU"bjx2>^''9ibbYMnA#fQ]EJ^W+3mZw*G[a=xFRRm'U)r5,/=Lpidw72gNR=da&Zd=jZ,FbZ;3ãU"pY]bI[2a5)Ghn::Q+F1QyvlRETvk=tHCp.V3&xDmN]kCCwZQ(hy\<72Id5s4t1iãU"04b>/w/u6st$7'wN):*RJUN4q;FN.nfb%LaEcKB)QzX\o0ãU"F-/3-^u)(Nb^l)ZsqUHDPj\hHs:ZcxMbLãU"dqZid2f5LjI+4DE>N>A4JH0CoU1^i(7g'ãU"DK0EU5cYJb_=4Rt>>FNN0>9TNrJfVXT6M&UFHoSFtZulqv5S*LHVnTO%;z]CQe9ãU"',I(,=>MEx7PM4x7KE)D7L&AdX/x\^wKd=%1;-FHbLyl)??L=ZjK+la&^v=,OO-ãU"l'T+&CJlDU3&oB75d9k'&'L$-0bC2RDWo2V$sXSjGH]0GXiM*K0nCbA5lR#<#mHãU"%0+3jDDu'&ZraK1YeW24a&MM2Eh.UGU8[wsZkW$.kbwEC)xVw\Ha5ãU"1MTB%*Zoj57s7/?uG4QYl3g:W-Asx4]6/]hPDu4rK*'LuD*tãU"*\X9$ao/F==;RjTq:Bh,wWm08QMAj\OKlOe3f<'Rea(wq;1Nu#JM5Q4&002'NZkãU"1og<$q%RxC&-lNQpd3)K5HmneS_yRhD0Cf'EiXRust_w%5K9Ro%kx5k7^+>;OY>ãU"Q1y9czpZbrsqNbJ?u7)w9CJ<:2qJMjB9U+1\ChJRv_6m/a7-MN%WA&/>d6AHsGXãU"WX=-KNO$ka2r#=uR04E.6JiX\:R'*3WEu&oFw&fXbUUY#(tzQt=W9MFUtoS[Va%ãU"5S:H/w7*vYlqqi(,3S8X1R#Mux,,2m57e00QK+vBl%AJF./sUAjtA2GLNT95cAbãU"q1oNcNk6>kRkHiIhS'vtdZ8J=/fFQdMC,B6=hXhb>7lNH8h:+Fwv,bK<0yP;pckãU";4LZpFI)*=)#_0+_IjUQC\.$yqSRHLHwc8fC)u&/\g&xebC?qãU"J[(JR7$FKxo6s*.)yxIlykQLDzD&6G%*h7B7mlEg:g)8(c-EgC?wj$dE#AHX4N%ãU"??>TKZh^]r9aa4fra'8b%CZKF*3yl\rRDgOuBjhJ\YH:L'nY;X^ãU"EaVdSiqf3\kE=rix1OdmBpf9#%ELJ/_QY']t)YVBN/5Q^>/\MrA87m4um&GkskWãU"(G<>qP.tO*FwuXKuENyh[uJ&FsH%s;eSQ(?8%wh9DP$Qt0q..Ob-HGrAVswXh8-he2t,fEemgO>vs#L_>\k%?>\%/nVB[;V*8]wd08<1SXb2ok=LãU"7o:#4*Lm5CUJrgMUnzh;N]]4-qr57CIZgGp)s9%dw8Z>?xAãU"8]C%80)sHL$Ei(x$i7#I\L43vZ/B7eY>09ZrPV>x42jxdm$t^urN67RaHE)i#=>eA+E]=M*ig'B(ue55MA^dEx\Lw].UtDDb(j98ci,43Q^Y\]G&oxq8gVbP4id\i40EfW]:HpA$Edf9;W4c[o>QX,-8/;VYJe,;xKq:eyoix>H\EnROanB(K[ãU"\;d(a&rC%E9(aKh#)[c,jhsM^/[Gt3I=d-KLHO0/icN.PwP:jt%*/Oq_KBuetPdãU"5E88=M=ydC,pvAASu&d:oc]iNOF4FRW,nHbhuOV0'GUCxX5WYjxkF#LFRBteN3fãU",Qtm6d2m]PJ2afB9gW*SzC'?[qfs*[6XPcqRJu0c^Mo?w?+O8x^rwW1QXw[9(MVjãU"gsd.%M]=k,l,_O5/'sQ$rGbcYHfdRP56j:H>^WPC=_YFDi$>\V+06ivhz-'7dPmãU"tC*?8VAuN5AQD>KnP>uA'rxRZp(9zDeIVp(%1JNWn>mA=FVvNj?iWl+ãU"-X-fBX)2UwYlGM&.qPe\#[AU%UCFX9N=)*5&]>H=>Pt3u5%[=SH,Umpm17K&43uãU"_?p96q]AMdk8-c;8v2'<9Fk#m?TfbdFSxFV/6c'ãU"_:fO/C&Mdksw\Pxjoq<_0nPCd&g(K(%=z:d:B-UtPpMlkgj+5)F8Apbrq4-n09tãU"cH398A3lAc&ZQ%uP[0[WLKPGqOpJGeES.$Ed)tBu5mH<=kwb_9HmJODR^d6Hai>ãU"l'a.rXu/6KHAI\/s4pXDZlTESEOjB;aNCZN167rW7IA.Ftua0%>dUDVxMs*L]_8ãU"22G(sh/aC-dkd3b\_(F7-#eYi$11YU9Zj\qp9Wt-Cd%Md)bF)HA'3(e7CMctpeSãU"(ABDl$)zr=^Z$'ij.2_G\#1?]NJJ=#8:*iMjbZ\JPoi$:+3Yui&S);xLhX[TDfRãU"YmcG6BZDSEMuu5,blc&OhnX.vBx.dy$XB(AViD'zet\G0-BEh(b9'2#-e;=O$XrãU"f$8DUV$BS(dP<3l1%Yo5iH<%X/(5U9C#o#cjttn=6-o46v#MhYoc)dU2\D&k0_;n5y?U?ãU"p/,1hEi\y7p2ak;o/oCTE7fttu*+v2Upy:T5-<>qX-Nqts]XD[T$s[6On:^U5JZãU"Pn&Pv?jG0V:b-MhTfoO[S:n0+*S62]4ãU"/cw-oH=Xj')D48^tob^L-\-oQw\O:fCPvHDz*sScWnY230k+[#:3eT1/3LOTuM-3s>$WOHdN_#cEFPu2%qgãU"^ig:\:Y)^>lp#Nd=vM4R#N9ovwr=#p9>VcF3GR%#Ff.Rj8RHQ2rgUWBsws/loNAãU"07\*JVBzNZ%[t]4^Zc#$G/'+[qA+d:AXKw>0rU-\uq&;D4v>LW8Kqs-^cacB$\-ãU"wrY,Ne/q6yuv?89hN][Dme^Pck:ICgE-\b)uc=EKY'qr>)[92y2d=ZYPoEwp<'WãU"o^SlfHpLgA]I&U*CI=aSWJ[(;#_7(EMIXIYm[i(;.cl4YRBgtQw\s*VyfL?fZ;iãU"4k,8u*\=[6js/I.k?A6:7;Zc-2ICktw&XAlwt#Awy]i>DN(:E\45(R8SEM[-rI2ãU"X.Pv%)T\c8pF\NY8$FãU"[++T#N6GBOp<-^uf1Z7?.O&^nD2]NPXnP+gaRKLWClbYvxrb]x,or(Q\pH[Zh[nãU"NjVo%o-Eb;6V&h;p:Pmce,%N3NxLbqMvMsknUvH0(xaTPgCGk#.N%[UMsZ]^/I+ãU"uO-W0)4M6d\X0tm$$i:Lp+#ECus[Z_c^zFdINUUPsc/_RpHVJ]NR_jU3qgtWEWbãU"oM%#Cuai#O8rj^f2Iq7U6w2kRha[CZIJ7LWI9%ZJHJ.GdxrdB8<4P09kK>)%*SJãU"C&s30>D0;yQU.w_[xuag-;b/&os9g6rHb+kY$s[e7u$Bn6=<[EDswUW7A4Fm]1bãU"C?T9A7wOhG-^Dh_gãU"BNsc%^nwdK[jdf81AHN'HGYML+6ch\KL.Lsf8QRtTiãU"klZiDxN4Dtx9ZH(D50u,YSV=vhC/c5n=uHZD1Z0;N\W8nu9Oo2dq#/ãU"s^N$4abgEe/B#:KMgUWm)E.oJidLCt//AQvciy(/c06tDS]C+ãU"+C7mkc,':'-+Z(%*c[p8n7pn'/tzeLr9#Yrq,:wcjsz(EsPLsi;^Ep+Usb9N19KãU"(jVjnbug&_jj,(?h?xgCmM6FN+BcDfLkXd$P=4,G*Hr2.5#'N8(2wm.x3Lff6]tãU"'L=H]w64dDUN=LcJoDcHLTecXx1]P>fAy9oX?hYPUR&NC17F'IANrtQ8pjAfLsQãU"9wH0G.xY'NC?wb?Yyvt>uj\n8PmnzXZLdO_]wC^k]_6[4o.&.2cBY+)R7#4JulqãU"DA6YbD^$=lE_&]Qaj.k8I'?Am9xLf[kj(B6'ml2)HZV43ib]rCB*UT?;?UnonaiãU"rzk6AKb?_jTeNZqTvp-V=)T?s03>2Oi[-$#QPw(^[NU=E(]=G#=g(K(L8Buo$JNãU"3I73.&T+[(%fMy%c>4itw]'dXuR'bdv9vp?r>vupNiS4A]+UQWR)[?n1iaSKpc1ãU";Zx/p;ptK/yhW6ECsLhns7qUY(doãU"PuP2/Q4T;[n-,JrxL,1oel$Sd76[h%&f3hM_)taxixpWXW9$HSxB)k-.7nOk]>VãU"jJuWibzYlKOhf?%:w0L#_C#+&UIO1JLNR<1oW(RM3Ypw56I9EK,'7Cc3aPi;I$fãU"LS&(7eAmF:i(.:nL>3t[xTci<=NYenD6J&gLX+fTM\Ai1-dN57;P6N)3R4KI72]ãU"?cCMg+h_D4rN<+WykNWzxapu(iN(/L&5bnO'7D_mQ$#>+iGrRPãU"U[D%yILHAd^h^Nwa>ZKF<+05sdVo';^E*sby:H'uMsDZ)D$md12MONizoh5)Ht%ãU"VtiS-wXRR=HVC,&fR88U2Ak<:*OC$ECVws8veu9?2FISMD:Fek$j;S1nby3nY/=ãU"\'OXRlLq#w0:63:p#eAup(T8*_]MdqDbrP0.cCqb^KV3fe6>?\iuyX50fãU"JrNMPgH1&XP1K[>8?Og2H'\SM6F]'NJugmN8G(fD)HF+jHwQ793g_]gHlBxeCtuãU"a^?cj$YLpc6uWZuP3boNcy#78f7Ph([nr+bPqLvao?zNG_v^CHmQlsf6Odf%qrcãU"SsJ#G4\c7E(*Xz)xJ#Q;\rK&6r.TWN-*wn2EG$u\HH(UNxlj4B\[ibfvYF[hh%H1TNEOY+_uAwOV9:-]ym&In&JjZtkkh8xpHV4]eSãU"S40]B=[6^dP1='\Mtn&)1YLuC109J'YlX1ur,h4_FU/7f]60+8[7xlAz^J\(IRaãU"o$.foETgc+6HXl,.bJrEir4jEXr9;c.oDrrgTx*u+Dpk&4>GudDDIKdk*hfL9lXãU":28XS^8,p/+BoW(c8t#U8ylR\.7re[&l]]x.nu.isONW(i8I9vh%(6;/eEiuzoiãU"/>%*<_#I6,Bty^0)cYA?LS/Md7.EMtfSa?Sl=>>9=Rn]):p8Vt4S1Zdj*(kcEvbKo]?YD_1XRchvsg+m%o]46X);9GRãU"9h8W;r17Oe8kz?^2l/N^WSCR)Di?*SG1H&pwjyR6)HsE7j_mYGw9:?(7sAlUh,.ãU"U\^4UfQG5\WXaq$GzGhss2pPo9]FkC5+uaztfG''k3>(j<4A$rpO4naM.Eys>^=ãU"hU](nr$l_Hu[5^,7\(')j*ht^jr<[QF9]6ywmpQvbV?Vor0=ãU"2&/bWEwPs]VV18qqpO(%i-gUxJnz]wKY(W;&QscgFCX7[Uwr6iYWw2Rjvsz6NvPãU"_'D&oo*R-S^nzb=(dD=mZX.pl[=:vUoIKutA5jcs6Y#UQhY+qL$+zkhW+jc?u>^zJDr*E1dJSwQX,6J^0mA)DCDNp#pW,uãU"lhp'%(r.atmPM8[4$I'eDVQ/jmdGnN4IB]m3pxSju5q3?=K/r&Q5ghdG2:SW1L&ãU"]yS(z5jV6a8JY&F4Mlq9;K2m*d8[>rFW^4TSY=,ptCt:1nIfQp,B254&ãU"W&;nFu9oIh7?nwun]M2c_sP]IJ.etf+(URsZlTo>M*d5N-O))9=*V91;XY&2<*BãU"KIDLY+c+Nt/aiV6+tc'ZxO35ilHnZYmN;#i3()OHQG*:N:LO4\4bk5/J%/6#+sHãU"PA+'Gcc.?OdZ;?08vHKrjJgNp\?6o0;CUDf;VP.wT^*0klO;pWZ:RC60[neyYWXCsOcigP$fhjhg#iV\FXHcp6d:LwI[;FxAZz/MXOl#kg,UN2Nlwp4g]/3Ife'ãU"w?Upd7\FkD0mpYh?A1KDg2Sk4u7B1WCK.i+_pC4TU;T1W?Ir4ClKV[5p1%\vu/&ãU"V3D\$ru>=Csj'ms/.YX/%%slo9#aKC6;*TRHKh's=GtYkoqQ5aqGbhDBt[cDcrt'qur>X,$QM>ecDAnG^kAMfm.D1?+y*#y3;fFR8)y,%dQ81pmJgRk9VDapScY7OJRtOrãU"kI[E??pB4H(=R,)rDAE0I:T*:hkLiãU")-FRpaLoY29pr:Vh5os'l8[yc-;F8\c*(AZQnvZlD?&W1YbbpJzK\tKf^$ãU"OkApvPBL''vrDbUxE[EReQ84*UP>ecjT_S;CrcqrLOVX)soWfJvmn:JS&G.kcjGãU"l.^HhO7K2o&q48-2sMmOT(*mt-rYAldD39jX^DRV5_a?qjc:eTT:0NeIUTnNytdãU"jzfb)FpOqbTE2wd[0b)i=A&IblG0>it998hB4%YQ^3Lv[HI*sSKgHce#mL#s,g/Y+uEEyziK94J8nBux[QK*b6lãU"E&.34']5?Cs4P3^g-*^Qg09q*5OOBjVa-^-jMFWWE1m-Zm:P=t9T,xo^\Wt?i,HãU"c?tiV\X3edGTY3CNmVaY+.K$PMbD,^NS*?O=?Rt;6\11n>]8yLJetMz%KCoT^-<ãU"EdD.nRNYF^vcjDkurCEl.oPZeCPLY[V5/-gE#KIX&[TW5htaWXMtpW>b+WeMUykãU"97hBTcL6Xq]CL86bKF?=&_P;F)V0;UTa>wEr0ItSOI?/wbknmk*Dvl*/W#&]791ãU"7^jp9lXunED-u.h,HXdxiRmdBU0-l:$vANN#g[Bwm*5;tcTXOnbi5Hqf7dcPP,DãU")P:2/gI$X0uw+-T<4gRonWAutDxEdV,a8IO-Y[8+8#mI52P[PpY=^fqNrR65Bb*ãU"u&N#JV5W;&Q/iz(sgSg]1?$+t45ddhA83[a^p2dBXr4o6-u0r,(CdrZilHfHqNgãU"*6.Cd1mMQEh)t951BosKnW_Y$tQ^Qi^393su]'SbGPd-sPsj*wa%ouk#jT_O9ypãU"QH?>=Fr6amgda(PRk3q^tp*bR'IL%8L1ZIdB+]%wfãU"n?&XX0fPXzH2tTc?21>6I\Wp=\-R>4qnxbvVat,NNYQc82/GGb&\''C&ãU"QN\q+?Kj)(6iffOZ#Yfhw=q=W;bVkMvZdok]\NtFxUImj')2,+^>5jJC)Ro2]iBE#+2aXdRc5=Jkr.%EsZLãU"sK8t3wRo+m/EgM(lZ3U(c8OchS^pX\lH]Q3xPx'81xH,R/\4%OSBhJZ^7L.Vr$aãU"*Df<(]9^zuj-Cerj6891WxFeSY6h8BS9cfA.p5v?f3$itV^m;F26sfYlOL\._7,*JãU"BufuTQ+d-BvT8JJ>2bEmXU.r_jH+ZfwcK,ajq6>d=kãU"Q-Q[#+*CcM6u4sq;I+c>ruxwMDxyNC5Ew_G;O;r5]TbiD3(wlf%'m%3Pa-$%XdKãU"W.E0V6iSBmsUh^4*en&\*^j3EROrHtNZG;t]yRrmq$l-[q]UZ$>&?(\OV%5W6xbãU",nM8(7KTC)5*=J+%ZiOE#^NtUHw[q[c'L).H/#)3_3urqn.03q8Blg>vqU:Z:pVãU"FWXnri.;.r(upi60HPWWDq;8j9YM22R\vtTCdT=KF]a.\GtRq:t>askBV&lBNWtPh>[w%)f(a8%nU%fE67%o+i0c-4/X+2r1+#6k5bK]cZ:%74(:KKR+ãU"NVju[RDX5s<1w)d.zab<=oi-k8?=81O&(zogãU"%rT<%kr%fExEq)jcF-SizgH.Pr)gJ1tãU"yE=qo?tbt4N.=eSxl:pnN$bCGoD]Z<7V6j9xX+,l$YJh5DcZãU"e#(nnUgSCvrkfk^6=cQFl9&QV6xD'HXT8-Zw#?jy6w_hkExnT0xfSAbZQ%HgtFxãU"o:A8,\6&Ef)nc%iLxr]5'hOv=ICbq[3grSU#M#Vi%+'.)(I-#[XWxB7.-t0=,gOãU"A%+f=W\Crja#%GeAXDa,=PL(EbvCqjV:f:Gumc+g'6?(I/_'G$TtRv\2XJk^]otãU"x<*B.Hk^B\VHOjtz$QhKjQ/Bd%tx8l?bP$CXujivdP=8D#un5R,D>hb:QW;UdtãU"FUv9IHyx01$Ac:nXN6i0MrvOItQ2Z/n^v-rYTMneXWO4b8VtL:BzR-0\Ac\/6qnãU"sDZKUV7p.hwg)L3r:]I]eG#JS-jgipF?pIvHdP+W,k5J=[s>qhUa*mgrADtJT3hãU"*Ev'd9*1fb-)$3G]g$&&_&lQE>2zh.Q.6SPb1v;mdZ$uBYhGVsD5pGWx\;hHãU"TI>(kYMg'NsI3HreT-Dpj%VpOJmwI.p%A6JcCQK#ibdq8mB:s(E^j4ZYIdo.dGXãU"e7;pi6tO9hKbF-pv8R4W^tKY26bJ/&:VDFVHl$fFW>Hp64?u_Z3CU[3puGsr$*-ãU"4hs'9SXs)xEFn_LeImB%o%bEq$)M'mV&-mwDZIluIeFMw\;oov4u;\n%BV^fZ/6ãU"*ptpg0i.AJO)9UDqchI>Y-ChkOjE_'t(qGl[p6frdF5S9B)n_QenEPp1]\]BbHlãU"MQ/ryR_$DUKb([?\dMLFUan_4wsBoP,mZT0$Fe*DMiZ:thN-Yw,ChKG*#rhnQp6ãU"uDwYXUqqU2E4^uA^yr,0kxYU8a+\<8A0qx\A8#<-h=Y-T;-2fQm1EXHSR9U6\).+FJ1mNãU"l)#l?JRcnM1#D/stU4lqZmAtTu\,Z8wnl]P4Dqu\7686X*2#e,$EeVH1XB27#qqãEND SUBãSUB V4ãU"HFZxeSOnkvK;N(STbqCoUwQrmbLugC(;(*eXEqWjS>7(HoxXHI&Scg8'1/N+HO$_.Ni2t?.:C)hNocX%cZhx6n^u8sFpM^LKk8pl3pãU"'J#\g(QQF%]Hu9qWb.XM+0#A]9iA43dC]?qpt>5tKW,nN?onPmlmGA*(vBn:g4jãU"AnlwdFeWl6q62vw[EX,i=fA_f]a,295Ec7w_Z;w+m*i;O[W9j9m9X-xo.6ew.d$ãU"Eq?ra_U0lLIIll/a-mt:cTWloedEZ(dUHcQwczbOuqB;;-k$54A4Z\cD&-^Koq:5or6FWrd%Ra(Xns7fbs_w+hQ_[u%wo+N]nP+iX>ãU";h++Tu5$1FY6oZu>$Oli\^XpdUdF9M09B'\Kt+.tV0W)SN$sWWSt3Br_O2WwdeCãU"j:RbXquC?B\>JxibMc.u_W2qmpEJXKQU?(HqkO)YVF#Zv.0dl&qQNxtmdcv]GbpãU"FSuh5nOY$0XH?pf0d?qY,t:FKXuqpPgrm'xX]K1lvybYN(5ns0?x8l^lB'x)?:)ãU"Q;8^i^_6H>MlF\#Lsg^]8Efe/DB&Q/-OG/DSvI*BAEm-FW]/I3$J:-r7Gg5'm5yãU"lpAbw^1lKX83A7FUt)s(Dsii8$f1Jk3[s?dLsk=Zx7eD/xz%'Irjo%ãU"gnpQ:HjDgm/y>97O[jWdXHiK^,^D42c8upogbOVSB4Q^a0w7EG2KF$0pbLsE]pAeb1(_MwYxjp+(ãU"-(erC=m]hVILD=.ENFNL]s7AO7?-_V.u;e2kqo,;J]x;Kr-I94LRfsqmsPD:H&KãU"lW=?jb]uT(i9#DHUF)8'5omT8wG#_YHP6K#DWrX\ACnEBlV,y;d?sbC&Hm0IOm1ãU"eN$MwwS_#UaPPYG'$dkq'f20x9,sZ2'myh-Eivg5nuq&ebV>pqUe2rlY_C*7RJDãU"U/O1dDnM)QJvsluJNsn5cQjd;tCB0s]L*JqH4k_k2->c%-uo9%?ug%I,Pm^m#dNãU"D6%FFmt8U(AEsaDwZtBA<;DfL/t*Cv.Z^lWFvMXUS%'=b.Ltl_]<%aDcWS4m<-IBEX((0T]fw<#ãU"WwxdALWfQk^_(tfVHtucb;?$^E]n$.+Ctf)>N5iHXFq+gu=ãU"cDF.0(&QS#cy4%,TIF_LXKX(u_WdJhCThK=ndS.GwOfP<\QSTmXkT)v$[WãU"oBa,H2ouun701.q5vT[r0:Kn,#4b5=-4v3)Lnc_,lJ3G8=E_9H9oPW/6^U*VX2WMU[Q%fY]B$:gH[GA=i^^T55eD-^c,J>>k8%2:3VF>E?jãU"FZY[geQ;v:?Y-2bp3bYeW$F=l2Ml733mF9X/C+rkDCHA534/?$V,GT(MoXh<)%lãU"VhThCa#C;^CCeDf=8o1ZZ+Bah=.Q04\1Ue?t1CklfzpZiV>e8>LeI[vBd*?\\D\ãU"A?h1D*V0FNhFX$o)r(F[A9sqI2_>PIJH+gb4._I4gMZsG^D5[U/?:S19m1?Qfl$\+F4JZ*e/gXXe-8U*ãU"bO$SW=mP*egbr'$._BYg'PjFRJQFW93MYK?qr%^-82Ghg,[S_<)x9BZ7)*p]1P3ãU"En1M,26[hYd?V3NowgX(:U9/^rnE6G3dC(i\R^(HuNZj?05[6GiH5^T0[[fPqi6ãU"C):*Db+&^P=;D\QF78B=KBD5\=F_5hZWb/A?.n*WtosDY.2klG;('XI+8U&zXs3ãU"p7k&dLCnNAu\jZ6LKD;Lh)nCP&QRH/aqzxK(:L(g6N=xl7O7U/oqFe\Q4\q%52PiBX>/;qPWY^IGBVkbWXx.g;;QO6J\0GS)]wT?+7;((WsãU"zmMCa:F,'d/+rtQ<3?Is)U_ejQJnV$8nXaãU"6-d,K](\6H,A>hs+f\q\27,$%)Drh[Y^B%^[;?R7(aVvq%<1[R2uIkS)bw:18Q5ãU"m:(1#lrd>3vPUGIv%t2=(LC#\K>nuh$*J*A-RoWCAGDAh1qE6NQ1rOJ=-jcOC,YãU"/DC\P*&UC/zPeNn9XKnm[x/XMoFT;(K\V/sZI45X+&aWGJV;fdYSn#G9/>ãU"CHv([)9Uf4^7aUX>QiblXkWXqD91OV6&E=(;MF-Nrk7+i;n-\iIlrn)\aTm*YYtãU"^=L)=&aCAC=1=YRW]E92WEsjlU2o6?-ugq>I3YiM+d'B8Orv^Z'HvI7Cj7>B?lXãU"hRQ7i,gV+4*Bn&H[>]ZY+4TZ[u,Wd*0p2)1psrW_L03V[4gU;/Q3EeWQ#bBW/1EãU"1s;FJ%?&*i-e?kKLZM=l-2CVgj^^Pi>O8v#t_[W,+\;ElT?Z)ae-V,iNa1F37jJãU"^d/ZGSUFfiN7D3rv00WsM?UjAgL$0'L_fXmY^eWdEQY<19D9Y3SC:MemPspj6UXãU"unWTgNld.%0$/^5a+#1a0cm:t:eTK#UipYf?C&X(v^'FE#ãU")#amZD['hHnh34a/C$+[OpAcequF2/.m\Z3e\3>M?[0RbnãU"5fiaRVD$OrwZZw9RCZ<&8kLYcX[Wrk1j;8FJc48J\&FEG$<9Al4VM0RZ7ngnlF4ãU"XI?-YUjc_w#6VPY\H&p_BAQkxi?OZBD,/,^Xm1_&/9HTmcWa_?3Tg1NxãU"L.DkF8%8r%0b+'cj0jPdePãU"9N\OTl'&z'P-SG:uV;cc7JPdoãU"0R(&V(+41+>3b2h:i=8i6pIwl;si>9nPd'uU)%'i/IMFE+d2D$DfT:&8p;ãU"TJ-UN0(RW5pPzJ/xY-11IA#R3'sv8c'FZD?y/:#eQn*z,)?7wGZtFU7+Z/oO*I<ãU"T,(Q8-x#s>g+'t5J[?bdnpc.#<&TW%(5CRn2G>M7w,+N6ou=*>l2PD&%(_h4:eOãU"-OPs%ML)j=>QIpVL#TM3KXRbm]2QleYN'D+Q8JhKXg3L9=9LU_SBii3t5v2tPN'ãU"nL-v4V9X0stIVDq:g0Z0(GrJo\sjdwNvY*wxJ^Z2A>&i:5XL1mO%*-s0F,nH9TcãU"QiZ?p_i0.l0f=dqG;TOYe_/efOB*Te*$E.Z..0Fc-.YhuURwtuXfS7l..L$lO&*ãU"JP[b7:6TJPdl.f;XuRwAO6/O]BV^E->t::x/l//E-u0.eU?JS/:_N>fPq5*d/BfãU"$C:QX2B:p#-X3qDF#OHo&$Eig=N#.**6//Car/LTOml$iP?&F&RrTF-hNa7>=kLmãU"FTZ0ZN7kbYlx37DJluDO&TZT/.>DJ;LM3'LJp$T2B4uT/./U[>f7ZVW32qJ:tg:ãU"l*/cuKU5&T&2$;q<=gauQJ*t3*]?^Y%ApggQ=b&ih\Nujrg]dg%^mV_;s).7WaqInV]g.34$VG\374UH5WMhAQ]PSVf?ãU"N2+=N&ubC5e8t]VucI2Yk7.=uV=^D=#5Q;JMu*C+ifC3?dBK^#YtHa2XY1+1*WWãU"X5-M41[3Jl8YhhKRUmm,%j,oO=2^E5q=#XXXT_CVkmH>m;>UkU>0X;.?_fXMS+IãU"a.\/apP/wD?%e>ok>%bqIzNh45lQkY2Q\OZ,ns;J58q4W(()ILa02is;ZaN$vBBãU"_S'iI9^RQ$#,]UIAWJ:nWR^2wWq-2irm2K:%0P^l_shEggG:oFiX7+nuQ;5?=uMãU"$DA6It<&&^R=4hh\5:'[62>sc6ajp]<_;(AF-y$Mwb]oBRs^NNh-nTB;p9NnEb%ãU".q8Cv.#My[Y>ON0Q,>jb58Mh6*RZK63<&QXI$Taf.JE%V.=QQki-',JCAnS,7HiãU"v3Y^#\Dj=f#:\;[=EK'&0Znw0r;p6nX$;#Tm?\2U=.#=hSJE/(egjC+51(Wlm(7ãU"rc,8/>W/40#hUiq+rB)-2F[l6w9wRs5BE;gRuvbpQM(DM4AZ-:fV0N6[J(WfmKRãU"<_;Z)nmg]ep=+,::X[r;Kzc#ãU"VTT58O2QTM6BFUi_qHMR5^,%#1(Ta2K'J4*'3M/YL=9^HEii'?1p9Rt^TyKjhOYãU"';m=(j^:WD(Pihv5z:bB8E?VKK(=ATq+P%7$JgBJpSU5Ujs,(I&GWh;Q0F8R3i(ãU";FB::X+2tFZkDsL>L*K\CVN<7E5?$Q%3kjF1jRkH2EAZ$hzf0?\o7e9Rna?k-83ãU"Gddec?Ul$)U9=qJ#iIQNO:['e%[)ifX(jOJB6*hAIqER*0E3:9^H9+6BQdT9-EI+il&V:.'2uxU&7*pm+56;LãU"-13S&U>fXoHn1RQcX^3^DI,gU$G6[Qf,WpMD)lSih2VK\-_m6l[]LXYW)I+A;,qãU"NHb7e+E+0dB&/jsZi5.iJWqC=&?j;m:.&8+BW[I1$1JkSz(h2DJmbqB0f0i-UY:ãU"ria1#GK[*C1i1bFkMfD*&qjLkgt7iS+aJzQVb8QEJ8U)2,-O8:47&[7t1b^%w.pãU"%LxQ)r*DqX,Ug#tO05ECHh[YTam>5*>kB\qRhb$0.%%j,W/*8A$CR935dfi=$6nãU"ckC052j0hc*ZL>5-SqKGqb,^iWRQ\_-*,NVGm(&06o+qK\bO9e&viIfPsjP0u[%ãU")Bi=YnX+J$[:2MFT],EpnWUT,ViLI5%9JgK%r_WR04Z;W&u.C8P3EaX,cC9esãU">?'.L0%Z/L0'DUtORdmF?F;nlXa\1A[S8ds=u1FbwRC/K1bpwXh(03&6JGCc4P=ãU"mbU+UK?hnbqhP+VBkoP'<;%ZVNQqeIjsVLd-NQ8k%b>+:^SgQ7wcTffuVzBt[^fãU"ZpA[/=QWJP*%bRN$aZ)'lIA/q\[aKWJu,VTs:?/I]2)r[Nv5/86;1)&r:tlZm#<=W:KFwk:nãU"5JuelcL2/a,_>f>_?p$5m=4.^dxhv-NVz>d3ET_QVi[UC:e,aDm3]y88lãU"'6=U?.^\kn]?_mC+,+zan\24sA<(tEN\x>Yw5wu;X2?#(jjZ;Z-QnMouW0Pnfd7ãU"krS8l'VjC\S0CWnLYo*1,5)X[.[xLs2coSNLt5FsNeD:dP[kZ303>;F=H'&=,+6ãU")*+&\DzVk4'&=\./4?wjq](-9gOgDStwFa-I0M/HV=maV+y_ibSui9wl4/AcãU"Z1Cd6n+4Ckl./ãU"5t5vXIe/)dw(tLoD*8LZ[o?[F&MTAO4mWrG-F1q)'rf>K=xK'Wv\x,cO0YTqakNãU"VYJo'6H7,Wzu+WHvOatkBY.VaP]N(?;qa_NI%W;[6>mQ?=UP[*R#%GApY_M0*WVãU"OSoRE-Z$%lqaEfe^LX2LPPBjF,]zDu*Vpm:>C#cqDFf%lUrLXQsO)hãU"3$V.l7.7-Gh4lU_dxDMe]Kh,3Cs/6K]w_OtnY:UlUnu_N]wx&tGTr8S6XGjt<7cãU"Nfo9Tc7X;a=&$:OK1o9gxco5bcp4r6zA\y'zP&[]0a7ãU"^]QnRKod4n6^yYFX[UUW0jd*ddat0rYqvM[CPnqj:Pf7jQaDYPXXy:jt]pb(rm^ãU"/BfudPho>t?^%4%$vdbj0)DriZqXhb7lHYj%8y^01wi:\]ANG((>dnX>m(cvfX5ãU"VE&BDu9cosUbN[[T^aV>V;)XI\8=49H1^Vg#[u;Sd556j*I2G'lm==0*TQt6Q78ãU"u9CS$nr)K0_ZTUc$0CAQF2lxx=#ZoOw+E=aDID3zD,rxHV\t*I&#N3L8T[Rdt*oãU"qm>SPElvnH1otjlFfPHsBKDhBt5)'JloqNcks$W2/EFG:Pp_\nKvMl<*'H8bAp^ãU"w6xrjV;X26>C#e4XBOQ1\PM^:NZtG8=3LOU_GsBL]A82RWYugLFX3^lf%San7b=ãU"CMk*.N+;7V2uX_TOK7?0kD3rE=O/6OB904)OWUTmG)4.:o6_OKdOvtB0pJlhGbqãU"$#8T_nMKUU4RaA5ugv0Wo444WG>8\>O\t=kXU7T]wR/DHHpq&[kWpM$FiWH:ROiv\>tM\VXPIp-ESgS,_Z1reh6Zlgv>u6vgt*pNnX#4ekI/T+._&Dni?n;OKOU&D]b^Vy$o524n=NFjcEJ],zOãU"1iRXH/^0Nnscx%rN;A9uqRiZt9MB4E^saãU"+,=4Ju&yLf*#.oSL-e*L&?ej?$Dj;9>a1lrwiHLKr*$l(o]E(>V1[ZT+u:-pA]wãU"G3un)O,,NwS$<6_j[GxLNQhGbhS>[6yhUI-g6xd-?AS.5]5wpbvIAzGda#>wa77ãU"v4,[YvIF?kFIOV/zG<,V=67K>K1#&K;WSW9o(QKl(j^12H7qs[$_8G[SfBr,jgKãU"s#W+2Q4Q;H;J/ZDl[>nNC^tadiRKEZ[4Ty^%_gzqSR_Tm)jO_-g';HMnWgCC_8MãU"MXbg$t>epT490$hfCM4ENH4*)0(tBt[A2sotsgj4j^jm)AA,1ch>t79HKt/WkvTãU"^MrhEr\i$=^x6vKgtwek6d/^O,RGDZ:^8-Puh&eMYvpbmAs6,LTUn6QV6l_ul*DãU"8dSsL[8hvG,Sqb8&gk#of\q\u9PbUGtibtYu#M_A<$Sim#T-&?5W?uB?#mw*u%ZãU"1aU3BTZrM(_j1=yxol=Dxr\QBAr1r+I^rLT,'AeB3W>VPn[fHD#lN-mR/?oD?E/ãU"Ge(Tt:w%2AIJ?[n)jBHoF>p\gJpV'p$4[s-ixP\d>%KFiN&-7oi[SeAo^]IDm0ty(aE56.HkqeA7Md8hivãU"KSNf9V.LI#FHMtS3JUMNU?p>MpSbvu,ZXj/ZXu4ue.=PXxqNd3krm\EvqctPSwNãU"iD5at_Jsg?HGbEa3+P-0:Wbp#],jT'WbYd;JueCJxFCsoUK/st=Yfoz5*iHrkbZB[2v;L-):I]/8+$C1ScP1C3=+c0A-ãU"QjZbVe^dKo\/^eb.0YxyRiH6k=Iu:,dDaIuuqZL#^4MrXVSOAA>*M7OWbjXJZkeãU"JR2V^maGG-AT?jV%xqq4nf2nmfo)Rm2.kseZ(cGl,efMsE3VivZ>JmaKQftbJouãU"uB(hL?n%o].Yy'rM*c#;Y&+127%uR[./^\_fn8>gdmV[A=TL]'wb?&dCHQHRa>XãU"lh-kKm*iR,4emSoqcG675/eu&0pYHm]*ZR,4[DThubRQh64yF5CBLl4npcIsq-<ãU"$DcPGqZxi'1zK9lI_KI5wS93UYKQ^hx_\O[,MDQ5,:3D;+(e.(Rx&:c7tqa*llwãU"meqSK5'i#cl$m89ldkZckE#PDmw20?=Dx*xGh.b.%ãU"sI3Id/-n?-E][$gI^fubv$LwgE?I';#>mYX8v/bpMVucf>^Ex\kLIE+;AWAOeG0ãU"2kL.kF1&LFaBf+Vv0Al+jZ<*hePioKz;g8J%JTI:^T#UEi_*4o\)jsmm/JgBt5qãU")yzIMQb'PjRu>VZqMyCyhuq+s9]9e3bNAMj5:UKMlsN>DBYSO>']u.90iWEE\KjãU"W'+aV/eLX;/JBQtRYQMn&J:bRCKGSN:46hk/]3G36Qh&NI'X#2o,Akx1=dA]n8#ãU"EP5m,_[e2;#L:jm_YQ(h\riLpIJLUA.f*KPx2PQ1lYPHZKl$34vXk3V.Ffl,X8#ãU"M\/uS$u6wc5xwkpUOm3UAV>gdN6wjGA0fZ^xVO.N9w'THnbaBmX1q:6)k8&isu<ãU",/'L6\AX*]80K-suAc31M#&Ryu'VzLNLFxm$8Bm%c)cjVhkUecBWv4wi*[dVZ1AãU"??>Ie^1bnC2bn[j[s:fcp7#s?&XkVhH/0PwW;X5U.&kCFãU"WvTN=o;zqQj[9Jy\NCQv$VF1#pCMr?Ux:*n:DB/<2V1,zewqQiVS+8iU<)A%J;PãU"usDjLJ2ãU"3P(JK],lPb$Y8\*wl%1bRtDr:jbO/iBqE.h[_$^2/'DUReZ)4K8sI&-S6lr0#Zt=^IR>2BH0_Q7rL'4Mn)U#[KN_ZnãU"gu8XEDpU//H-4(RW8j\6ãU"OO6THq2f1ofn;VMT(s>DGVd7fvS$A/cKk3bUC,C5Yn_Ki&*XPptnH8ouN<ãU"uiJN\A[]Mk98fXcwXD4Eo.cj\]=7Aq227)o-_#4*2Yr3GEMJm.i(7o^0Ro7Y3%KãU"9V%>0n/EfGxQN)LKfwdNe85d1tNpni=Dno9sEwZde?j(?&TX'fB0OS<^$sMDEbBãU"0aSg^q#?aBba[[L:-Sa'6)Esixw\\vNjNI6W*DW't0)Op*%(Pj[05[8DFiSx]UnãU"Mg5;d^CEzAlU_3D<-0bFG^5It8HmYd$DFORhd2]7=k(65Y;1'F=E64Peb:B:&rXãU"NCYZ*X4D0;We3;+6[5uhxMMEf25RrdQ)7+9,#x11=GQqKn^zK6^_a%j6*TdQU0%33C=+1SnTa\*K7qBCpbDãU"VO*2Su6TU1P8D(d9PMqRQBqWH0/3b8.[)*9ZJaq/g9VmS#O>ZI,NoB\0/f*g1O)ãU"$DY:(YC7rn'AiU'#\hX%-ZRm\GnNlf\7U6DUhbaBwyw'M[SZjM]xZ&FXW=y*OymãU",JWcE7)EH/tXkG\;NT9Kg7K:5ldG:?B=^^->I3rL$FJ=j6ii5xS/G\=k[CN2gGVãU"eq2ZIN%iIS/c&_(Vv*)Pa'd%HM)'R,Kw0*GliA9aCPIGxiU7kVa)ãU"KGzya8#,+;9J^xzK:5Ion8OPKqyS$))s$lv#R2(\fM0Vcd^u9<9/U&kk&W#8d-iãU"d/B2Gnlo0'oOLES_(F+/>W1DvdK8#gcQb=o;=gT(Z_c5T3'Dzi[RKO=r*Fr+cX$ãU"1yja:9XdkZM/m*dowMtpbgg5PM]H$XX[Jsa-*AdT\N%p#5(6Cac1=gpJqS-:++FK>$JC2MkAs]n;(oTGod3PJy7Cxm/VK>.9ãU"49TP^Ev,P>SAQ(Wfkf1.Vq>VY3gx[fryO5&4xyJjbSI0=$[35w%*LH1Gk0=-h#6ãU"O^Ke&R>&xqF+F=(=fk/)0lHG(ns&,],)$)6YQSV;02mYAL0*e3<^z3wkMah/.3)ãU"P$F5K'FF&05/i.b15TEqNVq6?c;+$VFW[H9NQ>=BSz?t\NCFbB1]BYk[sBXU4nEãU"EW-t%cdk5VvJ71S'^ruDTfFC+k/S^['.=X171+'=%W6'>nws(h,D45=^4IFO#.%'eY+1JfS:$p40cgd=ãU"tpbW8A5gt=V74+pP9;D'eefMe,c+RYGiac\g5&M5:AB^a#B:*.0Av(SxR1LJXRzãU"U^[Qk$38h\EW=#\*4w+A%.CP/qOXlIR(x^%^vUY?5bJDVo%).fK41?x%$ZAGUP3ãU"f_F4v6.:4WL-WZ&T]5r=VnAZck4X++.O8';%hLJrhK7GUQ;4[b^Z;wH1c>Qsk[ZãU"uboOr](GSYiAO$pM95Q2+s#m59Ln\M<)g9>70YTT\]CsXR+l[d5Q.Qm=g0^:FhHãU"v7dhnc;k.W'7,o[n*dKxiFg16m>bFVf.e4no8w]i?PIJc4E=lhd(\dm%'aYaDV4ãU"w0lS,lBu3A0h*;Ft#N6hZ>O9KOo>,;BcM]B+5W2tKD;X\qka^B'4Q&u&Wn_YC(TãEND SUBãSUB V5ãU"34QC,)JWL\(%RqNLzf?t_9)=S,q;mJW:>3LUCW5TEYRU3.Ws972ZyNzk?IF'TJ2ãU"-1$1h0^iX'#D_vb9)ETRDT6,=C^^iDfZtP8lS/6/mn/dEH7LiA(bVeR#zWC&'U$ãU"5WJs1-3E3=UAf^NQ#41(t4Mf:Nca=:NV-N65L(PiPM0,9'B3y?f/rI,yDc]shH)ãU"8>_Q:%$X;wg:8^:ajC%%i:Amjw6.rgFVO8;?7p:%miVU;0]XYVb04a=O3QAWPO\ãU"IEw%-H>IZBo+r^1LF=2#;EmC1Y73\+Sw;j$T;cr=)mc+ET%qgIxqsB[aZcF^A];ãU"i&_^C>M1N%-ja=jMG7a-eU>VeellCAFT*XODGm=U,kJNTU[G*Y+L1du\sOCipKXãU")f:&??CSZ[Lh:adi=g.UY1-k&=XD%rx^YX7)tr,zI;R.(WmLw/ssUqvlrco6](3ãU"+cVn58%Z$l1(H6%lL\9n?.J55B#,'h13.;JJhXSd8g3F1SR%28c?RREk:_xOZ9kãU"5aKkWZ_0.l/2n)CU^1Ic>C3O6()]cUz7ZjBldFkg0j?,YZ;2Y5E&Pn(+J)vp-TSãU"AMsqcug*:boL7-'?Qpd+xAcI89%$#Eh;I2?w(>>7n*ST#HWblA1O'duoNf/Oj?43cPqJ?'n:wY\E;j-f8GQãU"*=XPUSET\^/j:eJb2mDn7TuC)?W=&(W>]h1oBH'b_G_^1[*$U4XdA/K3.(me)**ãU"KI9'\41QY(>dJoZ4TgUKKz2pYR.g;c]gAp7.b8q=WMu?8OQ.gTPsFDNv[?aQgo(ãU"Z7B-JO//rqkg&GQ?R77.N)2)^0RiC95(NcnVT;3Y>CL0oN*5=ik9Y=9?ESkH:t;B-hkOãU"$Piebd#K3+HcT=3^F/anPT%(K7*FBc+nXGeAO.QKRZd7.4d(Uh/.Xr((gMlI7AlãU"aCg70QAE7Sn2I&AOR16C(oSb3S0r&9WAc_Ml3/SI%N$l.?x9eY7XDieG:3tLba*ãU"$bXR7P&76'D9F=pyIgMT>Z&BLp;TRALkTn/\DpoXj0Lc8/bF]h=)&:Tv^c\n'+QãU"u]Yolvd+%]NjVW.Wwb0J-gf5O\z5CGozP4;_k^)sd*Y$gG*jo1sM/gr_HcJ#owRãU"$:U9U\]5The-9(RA272[>-'H\%NO2Dq)l+2o0%8WShfs$bix%7?\Ubr+SbQQj]qãU"Dq*r$fL0=<4Q01#U+:EYS$c#DYAp_*O)k(B0=DezBR%J,s\n;RccXI63yQIvJW^ãU"EajiKIz]$iv0rlu=f-BS+f-/bvEm1JEK]u#ciX79k?T\b=Vo\Wke&w*8QXNf0YWãU"LXS[J(=)>L081+C\_3H*Q44?w1TGG^JMd+*=N*e0LB(pIM7*Bpkn\+jOCcG#b/uJB:^6-j=)K%G7DL#&myU3gCe*ãU"2VycTACs$F%%%%e%%%,%%%%js&%SrfãU"1uDJ,q*dPKio>HXFI?9\-*>S;#iv5t=mh6ochK[6QpWJ>,YK))XvMmBlGhHhDJ5ãU"bJkbl,XH3'iTk6hJs3EihL%YW[FNrH9ICk%s-3:ZawD*Hj4J4jH(iBZQUl%mc=WãU"Qwi_So%86OcW--M-m--cWWcH>Kvu(.'(R'm((vv_Lnbl?jj?T#bbbnNkGIH=dlnãU"4%13.2%0022%.3/1uilnotK[ZgloapdnR,p^paGYsuAVNuF?X^Cq]ZDv+,'4nGU4fL0a/m1jxp,qIãU"5CHO#leK]i#20tuw640hl=+8bEn/HrNzP'Y,8bCut'Dh$\l74etR_vj\'lX1#\,uLRFVPa1FG^AIZaW6N$a+Hr#axGg1PbL\:S&SxAuZuãU"2,jdxK_iEhnHem$NZ$[tPPt=W2hucwMTBPdMS)%_1#uAGBFlBGscRHguLtm343pãU"]z]'PYQcQL$Fd48O8k_m3CY*YsD$SsUuws1Zq.a>No$XCdlcLlcMxL_vN_l?l2lãU"eS4G.d#CKbaãU"Vw:x_iT34^_6d$+n;TgrLHr2nWCiXtluo=DX>skZqo]FCdk_B73'1(mTYqJ5#jXãU"nZBBBX^.O4krnKecFgqPSW8/Y>'UyL5rDB+\ZL'HlB.Dw?7_urãU"_=BEhNaLoo'jfoul#?%LIKKaK=H_O*tHHUaC2J^pTt_VNP6-m,_fShTmMpd3*/bãU"k&iNOIH)kv2zhn>uqh:viP.Lni8.LnTn\XMupNn+v6w^zer8BE*2,/isq1NMljj7is.m(K7c#a3ãU"q&>_kZq8xOv9^ZM^Z\Xp1V\*/e4:7WmJp,sJ5[1]4VQV92JgLRI]=2cNnzU*'ubs%>xbTUTP='V\&5#6][%TYH;QpEL0thyKRgãU"tCTrwIH=Y^.Tw.5bBSXh)v^f&gR$p97f'aãU"1,\Ms9=p(1o+Au7%&uE#/5(SivLNc?ErD\fgcK[l&K&g&rHHgYRu58>K[r7WC=WãU"U;dIInn_K[[787YGfJ60:C9Qn?REg,[$=0)YHd?Sc[%+d\p%?9(EaNdkZwr;dPjãU"G=mcm6-SMm$M?eOimT,_wJ./H\=^mxpw:A0vwz2stvF=g?#i%g-&cJw&mad-K(QãU"GrLrb;QkMQ4=r0*,]il/o7^jf9pdw)rlF3p/'/OM'):D<=,o*#gc/c,a[GNduESQ?i)I5[VlD(/vCuãU"uV$Q9sA-,&6fe)KtTfn+NO&cFLfc#WM1<:c?R>?Ekh>[^K*8M86?KCKZXGfJ,_\Pl%EKXFa':fJEp9KpV0pdkcnB3R$'WHTdãU"&wZK3Ki.3.>s(?lW\Vk>NXBT]SQH\a*LB/pD;dZDunnn.WNd^t#5gs%(oAwG.*<ãU"pI)G$)\/SlelV1b0w:(gZ*lFxsY=,]XXS/D[F_V/BelLoL=Eq=o1Xf=8D_KFCNcsaTeXmNIV(qjvr0JhXx(ru>^NnZF&flVllf<#RãU"r2Dg5Q\>J1s%5\)ow5d]to8=T&j.;z1&aJT'iP+N9Ihc)qfnZ^oM.Lg^ulGWIe0ãU"*XTj,KV=0^HKp4XMYNmhD&3(K2*6FtM>>F&D6JPS1u&2P4h*--\*E**\cf%gR)MãU"3nUcL[?[pVi\JYwO-'+1pH^TLD7jLe:F3>q]vNpPjv&>uiQkcxq%ky'x&<,v(DAãU"v4ICMOSuiEcy/*S8V%$'w5l,m3/mp<\t=pB=e/+]M7BZk$R[NN0f>7hGcU7P7smãU"nh^vVT%(kEW-3fJ?[+P(Te6S#45wLR(Rg2CIoGs;RNU;gu.pCi6V65O(aIh/HuMhãU"dplFXc9IUHQIYo_-IWopVwx-d%9WII#Le)s[%VF9IDi778AM[[Q8PhXLA4V._/wãU"Iv$qGkWXu>$,F.GP&:BUV5E3-Ss>.XUSBiHHr7]H<9LhNF6:,<*;+)55PCm3=0%ãU"y/.3.3/qV[u/u>G20lA_2$0Mf\LmAS5M3sB]oqWFXqc-eIvKqA_<^^Avc'nJex'ãU")t(TMOoNpqJBJV^r%HHhhGL6b,=B&F3('mLJ.mqY-+4#*yFzZl4Mw&oCZZnJVe&ãU"ye57NNHxuY7[utaIiM18HW\5(XOunAtH(>pkt,%&d[[%ccVV%cs7kpFQWgt]/_sãU"YiC+1's&7hgGzwaSwM]8#H-A)LJwGul0$/WmKcHAIR9G$scY:uu]]MMJsC70tw80ãU",W&x7u^gi+R%74f&d8OwY;PTBdfFd?V,6DFX%PL\4f*Hfp'6IFe7i*]-8x+\fh1ãU"I%W5ZKY?g+mmwSp6^LM99IIsoH=qQaA/.5&4'%L*_bdV$msk#9IKW&+<08eg%MRK\;(qK93U3ax;/-qCO&Edb2ff.u0AA=_.RZs?9*(J0gãU"9WK92D)IKCcOl.=U\N\l./FnKm6MY9IX,]W_^bxkXJpwig]e?L_Rnb)\k)/2G?jãU"yn5*,18s)f:2*H4zJDr<,JLh22RhbmuMmbT*^Ts+Fhs43^f_ãU"<%-.ine_%5K)R.3GZXpCCz%u\Y/J?l6&Lt>..Bx%s.[tdy#h^ep^l=HaQLw*4DjãU"R=R#JV\$ON\U%)/%3=?_i*$Y<8_[=Q8C7#MEIA9+1O0J-MPyz5cT;[YH1B_I/FP'ãU"fl.q(Q%cHxL,N*g)jh=B1IM,:DLxE.44s'T[Q8'ljRfl6uv<)X>hRr*hK^KJuCkãU"[U?UMQU3A>:f.jz\xsxPIM(g:,Y%WBI*hjnTYpFBY7T;&izmZ^qd?[uEIP'a9:&ãU"1%iN1w'Oxoqg:>WQ:>N]Yc8L&B0pP?qid\qA-(6M+-iRKw+Jh#h?v'+gbEz9LALãU"1.*tCw^1?&>D(JR.)PNQScEK%4ETh&;FyZ0/sP$^iEiy?YL8HJ7MCAE#Zr^SjY\ãU"F&-&SEKO+ptR/O_>5*HS)uhv80bEH-k-:.l\_'W)A](3e]=%+b>O.N:ãU"a[osZK]?+yE=RYE^2\rFsS''&q>=heugff6tJ000-4l;)#QTeO0<(LQt5SN]O5aãU"7#bW'kh(Pz'S[WH&9t.XQQ]U%&D\E*Y,%O<#Gg]p:dHaeRSIDCjiV*IrIqBJpV6ãU"w:J^s,thoWW=5-A,)(r7E%^yD&&\y6DwPF8)N\QEZ0SzCTXMVj95%qmr7)+&39eãU"#B'hZ')t;(>Qj&xx:*yhBu)YXguf8xi4vGV4nV,t42*>-SBl0kV5_#Jv*R)[t$wãU"vJWFepT.L6M22T%8+M(inhn1-ãU"g;qto221n_P0D,EmwBdD?TKZ8MJt>xi\PvH.M?vnPTe.cNsQqZ/>_JL2qdXm1i*E7&ApAz#\\1FZO:1F/ãU",2XeZ0?li#jP-(=)LN#(\]J[5FcsjSq1/gUq,>387J8e4L(BuD]Eiu\NYHplopYãU"9eIkK(O_wWBg,0PS8t6hBBLvBn?r/.+:p9)sY$J9>6&,W+ReFg)-SxT#VuFkqxHãU">7D9_6kUS?KS7tu.2g>u%YKS8T&^%aMI3QLTNS)U=:JO*x1r/hk<1uqoQãU"9OeYq0BvFMis4x1-%&zaw?u/1&N/y6x$ne?#*i4-00I8(^]mmsjmofS]/xZ50w.]a+xH\kAp4]Anmh0\i3o>'_>bg&e5\x;moMETQ<3rfD9\Ht7viwJãU"0X%34'9YncXK].YTbVfFA5E9&ze'lyyofbEdD^ELulX%\i#'qBNK9omK(RC9Z\>S0RoIv[ed\&yzP.C\O^JJãU">1kV>jaJ&QO,:HFZ,m]Mct9EtMd[d^WI6&>J.:p6:TT.^iJ%J%U'PZn>;awiGs:($eL<[)$=4cZXãU"RN/G?7>h98QnKHwRk#+.H(P7vFm4-9V)kf;N_,#:9i.4IOQC:j*4957C2U\kgl'ãU".orj,wpMc0m2[-,ivS2I,d027b5E;Y.kMM\N:*ãU"BmSgtTq:wF#$*an^v*/uo'C[L%,Y+mTmhmpEq.S[R4gsIYD^N\S&L2K-T>dU:a9ãU"grN[JON\6^;.-x>9YT9,)m[tl-&_S6=+Fq>CQ7&to43p0LP/BHLBHFnzASBPIJaãU"HNT[V>;Jms4;x5N9j;qIC,Z6dN2$x55cxTLQyH7/K/>'kp[N/7X7ok9/SBcU.?YZiqHRjp7/L->w+&Rd5ãU"jtvKEjao(sORH]D90mXmn\T89?K8YhKu7JsYOVQI-di_^rkT?[r8wOXjpiTXF>gãU"RK7PwiA?j2vb0Ub.S.s4F[kXm\oQ>wY7cxKX9qtl?0E1Q7AED?G.K>MF3$ZNvFPãU"N]T]-wws8eanS4%GWMpRQhgLZIG'+,L$K,0T#yB*?6\%T>ljPMZr+-7ueh5rVQ$ãU"rn3)sRJo$+=r#]7\+58bW^8L#idmb2vr&9ua4bjW(Ru&9>Og8H/jiRN<1/)Qb8CãU"tGd=Nw$TE[=3Cc>V[^DO%&1ALD:-V7;K1ãU"n.Sg-$s^3uRt/'FD8q$9UwxF[Wl(qG]c%t6lVSG,sKPgJtP'?S0x4M(usV;ws7QãU"X]a*;=w7lpwg+&*Ny+fXW*Mg%0*)%]Y;=p>h#GGU=5ZJ/a$pwUcf$U+7/mBKtZjD;&gr#Ut3,)d]kWuNjzsVcccdDC&ãU"olnwsiao:ldfhQFW+Nlw)pp.E-[m=Rf[)=0R=Fte^57Py.%bH.c3x_N>=#gfbU(ãU"riL;Smnr'+tKc3Q^SeBiS>E[<+Ri9KAL[rR:_Ceu9:3U:d'wP$pA(+L-?gO7bM7:6oJCifãU"DqI/+JKVl38gVRf\'Y8,)=dWc:IPcn&Dwq.f^fU/zfEpKTUyI)T.z6]%>8)3cTFãU"kIr7Gw/Ky,zd[q[QOPPbd1rK]AUU9eP-nHQAQ#09*9<$73r?3.=nsXskV'Fqd84ãU"'Oz23&[997,bhurfEtLJgKs2hbmsg'W>pUcR8tE_>O:VdtcAc<-iNuiEvLOG;cZãU"K5H8'qu$'&4wsRw3mdf9V5uCo)Ur?B=n^8MjN(1il.\Zt$LXQ2O0q]iTuP#$odTãU"Tk.nH3X'lHI[Ze>A\DCr8:89S6o#ãU"q:;>rrR8BJ*Q'UXIlS/u,5]99lLw/xkiuHfmvZge2'FL[TVU5'/_KbY8Jya'lFZãU"cr2TE=rf\3-CnsP'X5P-*w2_b$72^\f%OB1UA%(YJR4P(wq',Dl+jXl%tD&i/%]ãU"<0rHc>r^Gp%tT=32_oT7QAdgYhO*EN&3)ol6_$wQgOU9L#cni1=Rd4).hn,C+$%ãU"[5J*4xXSj(fI888Lr:_Oe(27oCP,x(EBu]5k_dE<^P=#mdY2nG.;hc-Kr69?v/EãU"=.nLfEIA&+y5k0gAGd0l0_B'UI6eAT)Ehkc-\?-oAjBg'SbãU"CvE'dCWM9$0YJ2(oZJgLWq-]aNv?;kM/B,eBOfe3mq'#f$>i%-'lVPOH_aplM[qãU"n4N8DcZ%5xx_7IEl/gc<5LrKUMBNJy)vn]os>6pAMo/KywDheu?)BO-./%:OSN[ãU"ZxKW:9O/dO^&jnI\o-u?[BuMnEeIdE^SmU_q/Car=mM^(%lBRO=ToIr_3KLQjPUq1<^qFG)%*B=7O6&:-h4dD3Y=:bn11lT-YP:A&-S.]h'<8W8+;60_>_ãU"#nquaEKaj+Kh^;wg,cNMKtTo2>Ujd3;KR-b#s+[*%8E/31o%5?rFq<;Cmbm(-GuãU"QR%5vq,IU,hBUF)pRLiJfJvlV9Jd_2nDxK_ld[s'b+=4n7,^ib*2VC?L6b_k%k&ãU"U,tCAqNq;kAWeR%?p/4eUZ:(R\G,5J$.Gb&9CfwlsrIdVtr,%rZzF[ILzR?z/qZãU"u%-c;S7Yxrx_8iHhHZ?/)e=F7ReSTJkcBm1Uq:\5+5$s(bu9ARz.?[Qk'c0^1pDãU"Y0mfMN:wjIC2z[IJ$kvJ#s(XH#iDI>]9l6?%;-\%eCSX(E>NW09;4ihh$[;\&/<-2eC1oiUP;$#LãU"j]:1gHrEc3)sQCIHkSgu3)Aca,^t-myej_LbsK-T:Oe*.Wrk,9BmAs/VQ655.up4/R#Kb#ãU"KLZ5)Tpz*[UaGWFokEKTbTd4tnh1A$?^zvIJI'*svR2r3SQzG<5[*#F#EmwZ*BEãU"F1^'%(bsF0lXe#aQB,(Sx/y%UYb%i&fjTTsNARP,ycwmYeMlt'*Fo+?d1fC-ee4ãU"nw/Geia5''r/mJR1gDS^k_dGl+''#R#I'hJw1l[e)UAbOILUs\BK'r-IkF&a3NmãU",f;d(ezgh+=Q=&Ql%%Wk]d1_i:Vb[ckPuo*KJGoj:cX>*9VC:[W%CH<#:5%*)fLãU"((MeGC,>%QPB&haJF4hh,^D]T>,6E+>5Gwi..RH)MZUk/[W.qB[0;,+?zJd7qT^Vaz0kãU"x$7W,VUXRHoFnqsl4QbCfY=TK7K_N_^7MUpzcEYn96>QT%^S%yT+.IR>C8e5?&iãU"ryFP:+#3$#feVSFO^Nb)\$Oj+]/b&;6>_]syQ$h&x(6r:xZg]ãU"sU]i4uJ>)7k&jpxn=jh]_5\s//;y$a/6;SospB,Zh)(bf#Yk=m\%0Da*+'g/-c%ãU"rWjCu-0?JbOy3^ZqwnusiX-&E#.X.tk=+H>yM823AAV.9X&Y8I*Bb*4.js-/QgQãU"N)Qpq3T.KCHrv\]CR2[6o+YS5%F,$-28Uc5'iCsm=dZfcq3??1EvURuO?IKZWJNãU"4/t?=<]Di;YmW;%))eY=)JwBp\2MToO7B9LdP7_m,2v'v34zbkej\iToTNYJw_LãU"4k\;i3RSsF7>E(ix$>m1?pY'lYrof?/ya;r?Xt'sL=Ci-ZD/;wQaCb?GG.Ja'JnãU"T2omH:1-c2W_H[*8y8[p/CWv9BMnMw2zt/IDw9#V%&1+uDXtTKS(PfV:/1YPi_GãU"zI>CS%c)vXY3MKXyelXAA00?2:[MvJ4d,q/?UdTKNdu+JRB9*&kXZQS]7Gzck-(%ãU"701.T9p(gdSANl?8hF^5uQM*xSJS(nOtM;;4BdTaUVUCx-A$+4^PGmj=&TSZgwuãU"V;*liqq^e(+2$]i^Hiim-z]kK>8,zY%/[4i,j,%Y;'VYT.hd+QA?YLVQ=>BRVDfãU"mFmReN2mPUtd&LmOl7(UX.;P.;MbHcY+oaHh'sYiCEYIKãEND SUBãSUB V6ãU"D%*C;?pA7W<*ãU"If#C$dTDp?fix(%up&'%9%9%%%%-%(W>FH:tqR:%G+%%'W3%%%1%%%%%%%%%&%EãU"%%%%%%%%%fx%rgzr%uXSg%fxup%&'9%%9%%%#-%F>dFHah8ihF*7%%o2%%%/%%%ãU"%%%%%%&%%E%%%%q+%%%fxrj(s%Sg%fxup%&'9%%9%%%#-%*>dFHe>VbjVe[%%,sãU"%%%-%%%%%%%%%%%%E%%%%f1%%%gzru%Srfu%up&'%9%9%%%%-%(r6FHpD_0>'$FãU"%%%%e%%%,%%%%%%%%%%%E%#%%ir%%%js&%Srf%uup*%+%%%%%)%)+%V%%7%u>%%ãU"%%%ãEND SUBãV2ãV3ãV4ãV5ãV6ãCLOSE:IF S=117AND 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ãSeppo Vuolteenaho AN OPTIMIZED BUMP MAP seppo@geocities.com 10-04-97 (17:46) PB 631 15940 ABA_BUMP.BAS'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ã'ã' A bump map.ã' You should like it.ã'ã'ã'ã' Original code: Danny Beardsley (QuickBasic version)ã' dsb@cyberdude.comã' http://www.dnai.com/~beardsã' It was called "ANIBUMP.BAS" in some ABC packet.ã' And it was very nice indeed...ã'ã' Optimized and modified by:ã' Seppo Vuolteenaho (aka Abacus of coi)ã' seppo@geocities.comã' http://hem.passagen.se/abacusã' http://hem.passagen.se/coiã' Called "ABA_BUMP.BAS"ã' And I think it is pretty good!ã' More:ã' Tab size in this source is 4.ã' Danny and I worked togetherã' to bring out new and faster ways forã' this bump map. He helped me to solveã' some problems with the the asm.ã'ã'ã' Wishlist:ã' - Even faster routine. (Yes, of course it is possible)ã' - Lots of snow this winter.ã' - More colors! Not only one shade, but eight (or more)ã' Blue, green, red, yellow, grey, and.. well, anything!ã' It is quite simple, but I haven't bothered to do it yet.ã' - Some credits from coder to another (as I am giving Danny) ifã' you use this anywhere, or get inspired to do anything similiar,ã' or just because you like this code and wish you could doã' something like this :)ã' - That you e-mail me (and Danny too) newer versions you make!ã' (After all, I gave you this code.)ã'ã' - Let inphormation be phree!ã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ãã $DIM ALLã $CPU 80386ã $OPTIMIZE SPEEDã ' No error handling needed, sinceã ' it shouldn't do anything weird.ã ' (The code was created with error all onã ' ON, but was later changed, for more speed)ã $ERROR ALL ONã $LIB ALL OFFã $STATICã $STRING 1ã $STACK 3000ãã '$COMPILE EXEãã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ãã ' My main idea for speedup is to decrease theã ' resolution to 160x200 pixels.ã ' This constant here will compile the codeã ' in two different ways. For slower machinesã ' let it be = 1. If it runs too fast (huh, youã ' can never get too fast!) then set it to = 0ã ' and you'll get higher quality, but slower.ãã %SkipOnePixel = 0ãã ' Special effect! Try to set it to 1, andã ' watch everything... disappear.ãã %SinkDown = 0ããã ' He he, Danny doesn't know that I amã ' naming this variable like this... :)ã ' He had a small trick, that wouldã ' increase the framerate considerably.ã ' Try it out! (I admit, really smart,ã ' but it leaves some ugly trails behind)ãã %DannyCheater = 0ãã ' You'll get the fastest bump map if youã ' enable the both constants, %SkipOnePixelã ' and %DannyCheaterãã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ãã DEFINT A-Zãã DECLARE SUB Bumpize ()ã DECLARE SUB FadeOutPic ()ã DECLARE SUB PreCalculate ()ã DECLARE SUB LoadLogo (FileName AS STRING)ã DECLARE SUB SetMCGA ()ã DECLARE SUB SetPalette ()ã DECLARE SUB SetText ()ã DECLARE SUB Soften (BYVAL nTimes)ã DECLARE SUB WaitRetrace ()ãã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ãã DIM x AS INTEGERã DIM y AS INTEGERãã ' A virtual screen to store the graphicsã ' we are to draw in the bump map.ã DIM STATIC pic(31999) AS SHARED INTEGERãã ' The environment map, 127*127ã DIM STATIC EnvMap(16129) AS SHARED BYTEã ' we use bytes!ã ' Danny insists on keeping integers.ãã ' Some global variables.ãã DIM PicSeg AS SHARED WORDã DIM EnvMapSeg AS SHARED WORDã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ãã ' Do some important light calculations, and setã ' some global variablesã PreCalculateãã ' Load a 64000 byte raw data picture.ã ' It should be a general image loader thatã ' would automatically detect if it as .GIF,ã ' .PCX or something.ã LoadLogo "f:\big_coi.raw"ãã ' Add some bumps to the image.ã Bumpizeãã ' Soften, so it'll look really nice.ã ' Uncomment too see how garbled it looksã ' without this. (Or try a lower value as parameter)ã Soften 3ãã ' Finally set the graphics modeã SetMCGAãã ' And a nice palette for our bumpsã SetPaletteãã DIM LightPosX AS INTEGER, LightPosY AS INTEGERã DIM ym AS INTEGER, lx AS INTEGERã DIM yd AS INTEGER, ly AS INTEGERã DIM nx AS INTEGER, ny AS INTEGERã DIM i AS INTEGERãã 'ã ' Main loopã 'ã DOã ' FOR i=1 TO 360*3ã ! Mov i, 1ã ForLoopWith_i:ãã WaitRetraceãã ' The path for the traversing light is a circle.ã 'ã LightPosX = COS( 7*i*3.1416/180 )*77+160ã LightPosY = SIN( 11*i*3.1416/180 )*40+100ãã ' Commentned lines tell what we areã ' doing in our asm code:ã ym = 0ã ly = -LightPosYãã 'FOR y = 0 TO 199ã ! Mov SI, 199ã ForLoopSI:ãã lx = -LightPosXã yd = ymãã $IF %SkipOnePixelã ' Only render halv of the pixels horizontally.ã ' Better for slow machines.ã ! Mov DI, 159ã $ELSEã ' Every pixel is rendered. Should be OKã ' with faster machines. Gives better quality.ã ' (Personally I like the other onne a bit more)ã ! Mov DI, 319ã $ENDIFãã ' Our inner loop This is the place that shouldã ' be optimized.ã ForLoopDI:ã ' Read a pixel from the picture andã ' calculate with one pixel below andã ' one to the right.ãã 'DEF SEG=picSegã 'c=PEEK(yd)-125ã 'ny=PEEK(yd+320)-c-lyã 'nx=PEEK(yd+1)-c-lxã ! Mov ES, picSegã ! Mov BX, ydãã ! Xor DX, DX ; Clear out these registersã ! Xor AX, AXãã ! Mov CL, ES:[BX]ã ! Sub CL, 125ãã ! Mov DL, ES:[BX+320]ã ! Mov AL, ES:[BX+1]ã ! Sub DL, CLã ! Sub AL, CLã ! Sub DX, lyã ! Sub AX, lxã ! Mov ny, DXã ! Mov nx, AXãã $IF %DannyCheaterã ' This is what Danny came up with:ã ! Mov AX, nyã ! cmp AX, 10ã ! Jb skipã ! Cmp AX, 249ã ! ja skipãã ! Mov BX, nxã ! cmp BX, 10ã ! Jb skipã ! Cmp BX, 250ã ! ja skipã $ELSEã ' Almost the original code, now in asm:ã 'IF ny < 0 OR ny>247 THEN ny=1ã ! Mov AX, nyã ! Test AX, AXã ! Jbe SetNyTo1_001ã ! Cmp AX, 247ã ! Jbe NoNeedToChangeNy001ã SetNyTo1_001:ã ! Mov ny, 1ã NoNeedToChangeNy001:ãã ' IF nx < 0 OR nx>247 THEN nx=1ã ! Mov AX, nxã ! Test AX, AXã ! Jbe SetNxTo1_001ã ! Cmp AX, 246ã ! Jbe NoNeedToChangeNx001ã SetNxTo1_001:ã ! Mov nx, 1ã NoNeedToChangeNx001:ã $ENDIFããã ' I guess this part is quite slow?ã ' And really, I dunno if it is needed at all.ã 'nx = 125-ABS(125-nx)ã 'ny = 126-ABS(126-ny)ã ! Mov AX, 125ã ! Mov BX, 125ã ! Mov CX, 126ã ! Mov DX, 126ã ! Sub AX, nxã ! Jns NotSet001ã ! Neg AXã NotSet001:ã ! Sub BX, AXã ! Mov nx, BXãã ! Sub CX, nyã ! Jns NotSet002ã ! Neg CXã NotSet002:ã ! Sub DX, CXã ! Mov ny, DXãã 'DEF SEG=&hA000ã 'POKE y, EnvMap(nx*128+ny)ãã ! mov BX, nxã ! Mov AX, EnvMapSegã ! Db &hC1ã ! Db &hE3ã ! Db 7 ; Shl BX, 7ã ! Mov ES, AXã ! Add BX, nyãã ! Mov DX, &hA000ã ! Mov AL, ES:[BX]ã $IF %SkipOnePixelã ' Fill entire AX registerã ! Mov AH, ES:[BX]ã $ENDIFã ! Mov BX, ydã ! Mov ES, DXãã $IF %SkipOnePixelã ' Plot two pixels at once.ã ! Mov ES:[BX], AXã $ELSEã ! Mov ES:[BX], ALã $ENDIFãã skip:ã $IF %SkipOnePixelã ' Since we plot two pixels at once, weã ' skip the next one by adding 2.ã ! Add lx, 2ã ! Add yd, 2ã $ELSEã ' Get next pixelã ! inc lxã ! inc ydã $ENDIFãã ! Dec DIã ! Jz SkipTrick001 ; PB has these annoyingã ! Jmp ForLoopDI ; fixup overflow errors...ã ' So we can't just haveã ' Jnz ForLoopDIã SkipTrick001:ã ! Add ym, 320ã ! Inc lyãã ! Dec SIã ! Jz SkipTrick002ã ! Jmp ForLoopSIã SkipTrick002:ãã ' Chck if ESC was pressed.ã ! In AL, &h60ã ! Cmp AL, 1ã ! Je ExitLoop001ãã ! Inc iã ! Cmp i, 3*360ã ! Jne ajmp_001ã ! Mov i, 0ã ajmp_001:ãã $IF %SinkDownã FadeOutPicã $ENDIFããã 'NEXT iã ! Jmp ForLoopWith_iãã LOOPãExitLoop001:ãã ' Clear keypress from keyboard buuffer.ã ! Mov AH, 0ã ! Int &h16ãã SetTextãã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ããSUB PreCalculate ()ãDIM X AS LOCAL INTEGER, Y AS LOCAL INTEGERãDIM nx AS LOCAL SINGLE, ny AS LOCAL SINGLE, nz AS LOCAL SINGLEãDIM I AS LOCAL INTEGER, t as LOCAL INTEGERãã RANDOMIZE TIMERã picSeg = VARSEG(pic(0))ã EnvMapSeg = VARSEG(EnvMap(0))ãã FOR y = 0 TO 127ã FOR x = 0 TO 125ã 'ã ' This defines the light source (environment map)ã ' Change the division values to something elseã ' to get another shape on light. Bigger valuesã ' make it larger.ãã nx = (x - 125) / 122ã ny = (y - 127) / 110ãã ' This formula could be changed too,ã ' if you want a square light, or something.ã ' I won't present any code for that,ã ' you should be able to figure it out.ã nz = 1-SQR(nx!*nx + ny!*ny!)ãã IF nz < 0 THEN nz = 0ã EnvMap(x*128 + y) = nz * 255ã NEXTã NEXTããEND SUBãã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ãSUB LoadLogo (FileName AS STRING)ã'ã' A very simple image loader. I didn't care to includeã' any TGA, GIF or PCX routines, else the code would have beenã' bigger than it already is.ã' For the wild programmers out there:ã' Add a multiple file format loader... perhaps... withã' pull down menus and file boxes? And send it to me ;)ã'ã'ã DIM ScrnPtr AS LOCAL DWORD PTRã DIM BufPtr AS LOCAL DWORD PTRã DIM Offset AS LOCAL WORDã DIM Buffer AS SHARED STRING * (1024*16)ãã IF DIR$(FileName) = "" THENã BEEPã PRINT "File: "+ FileName+" does not exist!"ã PRINT "Cannot proceed. Program ended."ã PRINTã SYSTEMã ELSEã OPEN FileName FOR BINARY AS #1ãã ScrnPtr = picSeg*65536??ã BufPtr = VARPTR32(Buffer)ãã ' Expected:ã 'ã ' A 64000 byte .raw image.ã ' These can be created e.g. in theã ' painting program "PSP"ã 'ã DIM i AS LOCAL BYTEã DO UNTIL EOF(1) OR i>=4ã INCR iã BufPtr = VARPTR32(Buffer)ã GET #1, , Bufferã FOR Offset=1 TO (1024*16)\4ã @ScrnPtr = @BufPtrã INCR ScrnPtr, 4ã INCR BufPtr, 4ã NEXTã LOOPã END IFãã CLOSEããEND SUBãã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ãSUB Soften (BYVAL nTimes AS INTEGER)ãDIM Offset AS LOCAL WORDãDIM tmp AS LOCAL INTEGERãDIM m as integer, counter AS LOCAL BYTEãã'ã' How many times to go through the screen and soften all the pixels.ã'ã IF nTimes < 1 THEN nTimes = 1ãã' A simple status bar.ãã COLOR 7: PRINT STRING$(40, "°");ã LOCATE , POS(0)-40ã COLOR 14ãã' Ouch, the bottleneck in my initialization!ã' Would someone care to asm optimize this?ã' My asm version just crashes, so I am skipping it :(ãã m = (63999/40) * nTimesã DEF SEG = picSegã DOã FOR Offset=0 TO 63999ã IF (Offset MOD m) = 0 AND Counter<40 THEN PRINT "Û";: INCR Counterã $IF 0ã 'ã ' Badoumm. Doesn't work. Why, why, why!?ã 'ã Mov ES, PicSegã Mov BX, Offsetã Mov AX, ES:[BX]ã Add AX, ES:[BX+320]ã Add AX, ES:[BX+1]ã Add AX, ES:[BX-320]ã Add AX, ES:[BX-1]ã ' It claims "Division by zero"!?ã Mov CL, 5ã Div CLã Mov ES:[BX], ALã $ELSEã tmp=PEEK(Offset+1) + PEEK(Offset+320) + PEEK(Offset) + _ã PEEK(Offset-1) + PEEK(Offset-320)ã tmp=tmp\5ã POKE Offset, tmpã $ENDIFã NEXTã DECR nTimesã LOOP WHILE nTimesã DEF SEGããEND SUBã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ãSUB Bumpize ()ãDIM Offset AS LOCAL WORDãDIM C AS LOCAL WORDãã'ã' Add random "bumpiness" to all pixels on screen.ã'ã FOR Offset = 0 TO 31998 STEP 2ã ' The RND function shouldã ' be replaced.ãã C = RND*120 + (RND*120)*256ãã ' ES must be changed in the loop sinceã ' RND seems to destryo it. (Why elseã ' would my system crash?)ã ! Mov ES, picSegã ! Mov BX, Offsetã ! Mov DX, ES:[BX]ã ! Or DX, Cã ! Mov ES:[BX], DXãã ! Mov BX, &HFA00ã ! Sub BX, Offsetã ! Mov DX, ES:[BX]ã ! Or DX, Cã ! Mov ES:[BX], DXã NEXTããEND SUBã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ã'ã' Standard wait retrace sub.ã' Can be used anywhere, sinceã' it doesn't destroy anyã' CPU registers.ã'ãSUB WaitRetrace ()ãã !Push DXã !Push AXãã ! mov DX, &h3DAãWRLoop:ã ! In AL, DXã ! Test AL, 8ã ! Je WRLoopãWRLoop2:ã ! In AL, DXã ! Test AL, 8ã ! Jne WRLoop2ãã ! Pop AXã ! Pop DXããEND SUBã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ã'ã' Generates a random palette from black, to ???, to white.ã'ã'ãSUB SetPalette ()ãã RANDOMIZE TIMERã DIM R AS SINGLE, G AS SINGLE, B AS SINGLEã DIM I AS LOCAL INTEGER, T AS LOCAL INTEGERãã ' ..ã R=RND*5+2ã G=RND*5+2ã B=RND*5+2ãã FOR I=0 TO 127ã OUT &H3C8, iã OUT &H3C9, i/Rã OUT &H3C9, i/Gã OUT &H3C9, i/Bãã OUT &H3C8, i + 128ã t=(127+i)/Rã IF t>63 THEN t=63ã OUT &H3C9, tã t=(127+i)/Gã IF t>63 THEN t=63ã OUT &H3C9, tã t=(127+i)/Bã IF t>63 THEN t=63ã OUT &H3C9, tã NEXTããEND SUBã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ãSUB SetMCGA ()ãã ! Mov AX, 19ã ! Int 16ããEND SUBã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ãSUB SetText ()ãã ! Mov AX, 3ã ! Int 16ããEND SUBãã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ã'ã' Makes everything "sink" and disappear.ã'ã'ãSUB FadeOutPic ()ãã ! Mov ES, picSegã ! Mov BX, &HFA00ãã FDOP_002:ã ! Mov AL, ES:[BX]ã ! Cmp AL, 2ã ! Jna FDOP_001ã ' Decrement value on picture if it is above 2ã ! Sub AL, 2ã ! Mov ES:[BX], ALã FDOP_001:ã ! Dec BXã ! Jnz FDOP_002ãããEND SUBã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ãRyan Shaw READ SPRITE kathleen@iafrica.com.na 10-10-97 (20:02) QB, QBasic, PDS 260 10172 RSPR.BAS ' RSPR.BASã'ã' Description:ã' Read SPRite is an example of how to open a RGB encoded BMP file andã' retrieve information about the bitmap, display the image, save the imageã' to another file using BSAVE and then reloading the image into an arrayã' using BLOAD and finally tiling the image across the display. RSPR alsoã' describes how to use user defined data types (BMPPal and BMPFile).ã'ã' It also describes how palettes and setting them works. All sectionsã' seperated by the ' ****************, can be used seperately (well, theyã' were meant to be, but if you can actually do it, I'm not sure, thoughã' you can figure out what's wrong - probably the DIM's and DataReq& wouldã' be the only problems.) in your main programme.ã'ã' Remember: this program is a sub-set of code, eg. use it as a sub. Thisã' is the reason why there are no other subs in this programme - none areã' required.ã'ã' Author:ã' Ryan Shaw (kathleen@iafrica.com.na)ã' Date: 10/10/97 (mdy), 19:47.ã'ã' Other:ã' Use at own risk! If your computer crashes suddenly while reading theã' bitmap and you lose the image, your problem, not mine! Make backups!ã' All credits used in program (including who programmed your program :),ã' should be directed to the name above and left (under the Author: bit)ã'ã' Um, use wisely, and no *interresting* pictures... this programme canã' detect what you display :) (maybe I should add that... need a lot ofã' testing though...).ã'ãã' ********************************************************ã' Sets all undefined variables to be used as INTeger dataã' types (eg. if you typed 'X = 3325', but haven't declaredã' X as anything (as in 'DIM X AS INTEGER'), then X wouldã' be thought of as an SINGLE data type (which uses moreã' memory than an INTeger, and is also much slower inã' calculations. SINGLE is the default data type. DEFINTã' sets the default to INTEGER), though I doubt there areã' any.ãDEFINT A-Zãããã' ********************************************************ã' Read BMP codeã' ********************************************************ãã' The following is a file format of the BMP files...ã' The record format for a palette entryãTYPE BMPPalã Blue AS STRING * 1 ' Blue colour component of palette entryã Green AS STRING * 1 ' Green componentã Red AS STRING * 1 ' Red componentã Reserved AS STRING * 1 ' Reserved (mostly unsupported intensity comp.)ãEND TYPEã' The record format for a BMP file headerãTYPE BMPFileã bfType AS STRING * 2ã bfSize AS LONGã bfReserved1 AS INTEGERã bfReserved2 AS INTEGERã bfOffBits AS LONGã biSize AS LONGã biWidth AS LONGã biHeight AS LONGã biPlanes AS INTEGERã biBitCount AS INTEGERã biCompression AS LONGã biSizeImage AS LONGã biXPelsPerMeter AS LONGã biYPelsPerMeter AS LONGã biClrUsed AS LONGã biClrImportant AS LONGãEND TYPEãã' Create a string limited to one character (a byte)ãDIM PCol AS STRING * 1ã' Create a record for the BMP fileãDIM BMPHeader AS BMPFileã' And a temporary palette entryãDIM BMPPalEnt AS BMPPalãã' Open imageãOPEN "SPRITE.BMP" FOR BINARY AS #1ã GET #1, , BMPHeaderã ' In all valid BMP files, the first two bytes are the string "BM".ã ' If it's not, then the file is probably not a bitmap image.ã IF NOT BMPHeader.bfType = "BM" THENã PRINT "File is not a valid Microsoft BMP image."ã ENDã END IFã ' The image may not be wider than 320 pixels or higher than 200.ã IF BMPHeader.biWidth > 320 OR BMPHeader.biHeight > 200 THENã PRINT "Image exceeds maximum dimensions for screen mode."ã ENDã END IFã ' The image must be saved as RGB encoded, not run-length encoded (RLE).ã IF BMPHeader.biCompression > 0 THENã PRINT "Compressed formats are not supported."ã ENDã END IFã ' The image must be a 256 colour bitmap.ã IF BMPHeader.biClrUsed <> 256 THENã PRINT "Image must be a 256 colour bitmap."ã ENDã END IFã' Create an array to store the sprite which is a bitmap of 20x20 pixels.ã' SizeOfArray = XSize * YSize + 4ã' The value returned is how many *bytes* are required. Because an integerã' takes up two bytes of memory, the answer is divided by two.ããDataReq& = BMPHeader.biWidth * BMPHeader.biHeight + 4ãREDIM Sprite(1 TO DataReq& \ 2) AS INTEGERãã' Another bitmap array - notice that this array is not altered until theã' end of the program when the image is loaded from disk and how muchã' quicker it is than the bitmap routine reading from the BMP file.ãREDIM Example(1 TO DataReq& \ 2) AS INTEGERãã' Video modeãSCREEN 13ãã ' This sends out the value 0 to the graphics card. The graphics cardã ' interprets this and sets the data at the *read/write* port (&H3C9) toã ' prepare to receive the Red, Green and Blue components of paletteã ' entry no. 0. After receiving them, the card will prepare for theã ' next palette entry (no. 1) automatically, so we tell it to get readyã ' once. The r/w (read/write) port is also used to receive informationã ' about the palette (eg. if you were saving an image), but in thatã ' case you would OUTput a byte to port &H3C7, and not &H3C8 as here,ã ' and you would INPut a byte from &H3C9, and not ouput a byte to &H3C9.ã 'ã ' In 16 million colour modes (16 million is the maximum colours an humanã ' eye can differentiate between), there are 256 shades of Red, Green andã ' Blue and theses shades make up the colours on the screen. In memory,ã ' there are no palette entries, only data for each pixels Red, Green andã ' Blue components. This is why you have 16 million colours - 256 ^ 3ã ' (256 * 256 * 256) = 16 777 216 colours. This is also why a modeã ' requires three bytes per pixel (the first byte represents the red, theã ' next the green, the next the blue, the next the pixel's red, and nextã ' the pixel's green, and so-on), but in mode 13, a palette of 256 coloursã ' is used. The palette entries (Red, Green and Blue) can only have aã ' range from 0-63 (64 shades) of each RGB component. When the image isã ' saved, the palette stored along with the file has a range of 256 shadesã ' per colour so that it can be loaded into a 16mil GFX mode, 65kb GFX mode,ã ' and so-on without loss of colout detail. In mode 13, this means weã ' have to divide each palette entry by 4 (256 \ 4 = 64) to get the correctã ' shade of the colour.ã 'ã ' The palette in the file is stored as one byte per component (3 bytes perã ' palette entry), with 256 entries: 1 * 3 * 256 = 768 bytes palette.ã ' What the ASC function does is returns the ASCII equv. of the byte read.ã ' eg. The red palette component in the file reads as the character '!'.ã ' Character '!' is the 33rd ASCII character, and so the shade of theã ' palette entry's red component is 33. Divided by 4, this is 8 in theã ' 64 shade mode 13 palette.ã 'ã ' You might have noticed a 'Reserved' STRING * 1 above in the BMPPal TYPE.ã ' This is not used (it is for 4gig colour modes, where there is a fourthã ' byte which represents intensity of the colour (I think), but it isã ' reserved until more graphics cards begin to support 4gig colour modes,ã ' because at the time of creating the BMP format, possibly no cardsã ' supported it and it was still being developed).ã OUT &H3C8, 0ã FOR SetPal% = 0 TO 255ã GET #1, , BMPPalEntã OUT &H3C9, ASC(BMPPalEnt.Red) \ 4ã OUT &H3C9, ASC(BMPPalEnt.Green) \ 4ã OUT &H3C9, ASC(BMPPalEnt.Blue) \ 4ã NEXTãã ' Bitmap data is stored from the bottom, right, going up to the topã ' left.ã 'ã ' This is certainly not the quickest way to load and display an image,ã ' but it is the easiest.ã 'ã ' *Up* Y (pixels begin at 0 and go on to 319, eg. if sprite is 20, thenã ' go on to 0 from 19)ã FOR Y% = BMPHeader.biHeight - 1 TO 0 STEP -1ã ' Across X, from *right* to *left*ã FOR X% = BMPHeader.biWidth - 1 TO 0 STEP -1ã ' Read a colourã GET #1, , PColã ' Draw the pixelã PSET (X%, Y%), ASC(PCol)ã NEXTã NEXTãã' Close the fileãCLOSE #1ãã' Grab the picture to a bufferãGET (0, 0)-(BMPHeader.biWidth - 1, BMPHeader.biHeight - 1), Sprite(1)ãããã' ********************************************************ã' Saving codeã' ********************************************************ãã' Change the data segment to that of the bufferãDEF SEG = VARSEG(Sprite(1))ã ' Save DataReq bytes of information at Sprite_SEG:Sprite_OFFSET to a fileã ' called SPRITE.DATã BSAVE "SPRITE.DAT", VARPTR(Sprite(1)), DataReq&ãã' Save the sprite's palette (the palette MUST be the same throughoutã' your entire program, otherwise some sprites will look deformed).ã' Probably best to use something like "GAME.PAL" as a single mainã' palette, though perhaps you would like to show an picture afterã' something occurs in your program, but the palette is different, thenã' seperate palettes is what you use.ãOPEN "SPRITE.PAL" FOR BINARY AS #1ã' Retrieve palette data from r/w port and save it the sprite's palette.ãOUT &H3C7, 0ã FOR PalEntry% = 0 TO 255ã ' Create a character, and convert to a 256 shade (only forã ' compatibility, as the shades won't be enhanced to 256 seperateã ' shades as in a 16mil colour image).ã FOR RGB% = 1 TO 3ã PCol = CHR$(INP(&H3C9))ã PUT #1, , PColã NEXTã NEXTãCLOSE #1ãããã' ********************************************************ã' Retrieval codeã' ********************************************************ããCLSãPRINT "Press a key to tile the image."ãSLEEPããDEF SEG = VARSEG(Example(1))ã ' Retrieve the saved image into the array Exampleã BLOAD "SPRITE.DAT", VARPTR(Example(1))ãDEF SEGã ãOPEN "SPRITE.PAL" FOR BINARY AS #1ã OUT &H3C8, 0ã FOR SetPal% = 0 TO 767ã GET #1, , PColã OUT &H3C9, ASC(PCol)ã NEXTãCLOSE #1ãã' Tile the image across the screenãFOR Y% = 0 TO 200 - BMPHeader.biWidth STEP BMPHeader.biHeightã FOR X% = 0 TO 320 - BMPHeader.biHeight STEP BMPHeader.biWidthã PUT (X%, Y%), Example, PSETã NEXTãNEXTãAlexander Meyer DRAW SHADED BOX Meyer.Karl@t-online.de 10-19-97 (09:09) QB, QBasic, PDS 55 1434 SHADEBOX.BAS' ////ã' 0(o o)0ã'-------------------------ooO (_) Ooo---------------------ã' SHADEBOX.BAS -- Written in QuickBasic 4.5ã'ã' Name: Draw shaded boxã' Author: Alexander Meyerã' Date: 10-18-1997ã' Description: This program draws a shaded box on theã' screenã'ã'For questions or comments mail to: Meyer.Karl@t-online.deã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ããDECLARE SUB DrawBox (x, y, Lang, Hoch, Farbe)ããSCREEN 13 '--> VGA 640 x 480ãCLSãã'****** THE BEST SETTING FOR 'Farbe' IS 31 !!!!******ãCALL DrawBox(50, 20, 200, 100, 31) '--> Call routineããENDããSUB DrawBox (x, y, Lang, Hoch, Farbe)ãã'Draw shaded box--------------------------------------------------------ããLang = Lang + xãHoch = Hoch + yãUntenA = xãUntenE = LangãUnten = HochãRechtsA = yãRechtsE = HochãRechts = LangããLINE (x, y)-(x, Hoch), Farbe '--> Draw boxãLINE (x, y)-(Lang, y), FarbeãLINE (Rechts, RechtsA)-(Rechts, RechtsE), FarbeãLINE (UntenA, Unten)-(UntenE, Unten), FarbeããFOR i% = 1 TO 15 '--> Draw shadeã UntenA = UntenA + 1ã UntenE = UntenE + 1ã Unten = Unten + 1ã RechtsE = RechtsE + 1ã RechtsA = RechtsA + 1ã Rechts = Rechts + 1ã Farbe = Farbe - 1ã LINE (Rechts, RechtsA)-(Rechts, RechtsE), Farbeã LINE (UntenA, Unten)-(UntenE, Unten), FarbeãNEXT i%ããEND SUBãAlexander Meyer VARIOUS CIRCLE EFFECTS Meyer.Karl@t-online.de 10-19-97 (09:09) QB, QBasic, PDS 181 3549 CIRCLS13.BAS' ////ã' 0(o o)0ã'-------------------------ooO (_) Ooo---------------------ã' CIRCLS13.BAS -- Written in QuickBasic 4.5ã' ã' Name: Circles in SCREEN 13ã' Author: Alexander Meyerã' Date: 10-18-1997ã' Description: Various circle effects in SCREEN 13ã'ã'For questions or comments mail to: Meyer.Karl@t-online.deã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ããSCREEN 13 '--> VGA 320 x 200ãRANDOMIZE TIMERãCLSãDOã Stepped% = Stepped% + 1ã FOR z% = 1 TO 15ã FOR i% = 1 TO 200 STEP Stepped%ã z% = z% + 1ã CIRCLE (160, 95), i%, z%ã IF INKEY$ <> "" THEN GOTO NextCircleã NEXT i%ãNEXT z%ãLOOP UNTIL Stepped% = 400ããNextCircle:ãStepped% = 400ãDOã Stepped% = Stepped% - 1ã FOR z% = 1 TO 15ã FOR i% = 1 TO 200 STEP Stepped%ã z% = z% + 1ã CIRCLE (160, 95), i%, z%ã IF INKEY$ <> "" THEN GOTO NextCircle2ã NEXT i%ãNEXT z%ãLOOP UNTIL Stepped% = 1ããNextCircle2:ãStepped% = 0ãDOã Stepped% = Stepped% - 1ã FOR z% = 1 TO 15ã FOR i% = 200 TO 1 STEP Stepped%ã z% = z% + 1ã CIRCLE (160, 95), i%, z%ã IF INKEY$ <> "" THEN GOTO NextCircle3ã NEXT i%ãNEXT z%ãLOOP UNTIL Stepped% = -240ããNextCircle3:ãCLSãz% = 16ãDOã FOR i% = 1 TO 200ã z% = z% + 1: IF z% = 25 THEN z% = 16ã CIRCLE (150, 95), i%, z%ã IF INKEY$ <> "" THEN GOTO NextCircle4ã NEXT i%ãLOOP WHILE INKEY$ = ""ããNextCircle4:ãCLSãz% = 33ãDOã FOR i% = 1 TO 100ã z% = z% - 1: IF z% = 1 THEN z% = 33ã CIRCLE (150, 95), i%, z%ã NEXT i%ãLOOP WHILE INKEY$ = ""ããCLSãDO WHILE INKEY$ = ""ãRadius% = INT(RND * 400)ãFarbe% = INT(RND * 254 + 1)ãIF INKEY$ <> "" THEN GOTO NextCircle5ãCIRCLE (160, 95), Radius%, Farbe%, , , 2ãLOOPããNextCircle5:ãCLSãStepped% = 0ãDOã Stepped% = Stepped% + 1ã FOR z% = 1 TO 15ã FOR i% = 1 TO 200 STEP Stepped%ã Timing% = Timing% + 1ã a% = a% + 1ã b% = b% - 1ã z% = z% + 1ã CIRCLE (160, 95), i%, z%ã PRINTã IF INKEY$ <> "" OR Timing% = 300 THEN GOTO NextCircle6ã NEXT i%ãNEXT z%ãLOOPããNextCircle6:ãTiming% = 0ãStepped% = 100ãDOã Stepped% = Stepped% - 1ã FOR z% = 1 TO 15ã FOR i% = 200 TO 1 STEP Stepped%ã Timing% = Timing% + 1ã a% = a% + 1ã b% = b% - 1ã z% = z% + 1ã CIRCLE (160, 95), i%, z%ã PRINTã IF INKEY$ <> "" OR Timing% = 300 THEN GOTO NextCircle7ã NEXT i%ãNEXT z%ãLOOPããNextCircle7:ãCLSãDOãFOR i% = 0 TO 300ãCIRCLE (i%, i%), i%, i%ãVIEW (1, 1)-(100, 99)ãPAINT (1, 1), i%ãIF INKEY$ <> "" THEN GOTO NextCircle8ãNEXT i%ãLOOP WHILE INKEY$ = ""ããNextCircle8:ãCLS : VIEWãFOR i% = 0 TO 300ãCIRCLE (i%, i%), i%, i%ãNEXT i%ãDO WHILE INKEY$ = "": LOOPããCLSãFOR i% = 1 TO 135ã FOR z% = 1 TO 40ã CIRCLE (i%, i%), z%, i% + z%ãNEXT z%, i%ãDO WHILE INKEY$ = "": LOOPããCLSãFOR y% = 150 TO 300ã FOR x% = 100 TO 300ã FOR i% = 1 TO 99ã FOR Delay% = 1 TO 20ã IF INKEY$ <> "" THEN GOTO NextCircle9ã z% = z% + 1ã CIRCLE (y%, x%), i%, z%, , , -i% / 25ãNEXT Delay%, i%, x%, y%ããNextCircle9:ãCLSãDO WHILE INKEY$ = ""ãFOR i% = 0 TO 300ã IF INKEY$ <> "" THEN GOTO NextCircle10ã CIRCLE (i%, -i%), 300, i%, , , i% / 50ãNEXT i%ãLOOPããNextCircle10:ãCLSãFOR i% = 200 TO 1 STEP -1ã CIRCLE (i%, i%), i%, i%, , , -i% / 50ãNEXT i%ãDO WHILE INKEY$ = "": LOOPããCLSãDOãFOR z% = 1 TO 15ã FOR i% = 1 TO 200 STEP 50ã z% = z% + 1ã CIRCLE STEP(0, 1), i%, z%ã IF INKEY$ <> "" THEN ENDã NEXT i%ãNEXT z%ãLOOP UNTIL INKEY$ <> ""ããENDãNigel Traves (6) VARIOUS FRACTAL SETS FidoNet QUIK_BAS Echo 10-09-97 (01:29) QB, QBasic, PDS 130 8566 FRACTALS.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"FRACTALS.ZIP",4^6:Z&=6153:?STRING$(50,177);ãU"%up()%9%%%[-%6%.xH/x2U<,'%%%d*%%%/%%%%rf%sijq%SgfxJDx,>BSe5KFl[ãU"d;CDyI_pu?T#.i/Uo[m)lYAy[4dX3,:vtmhSlsvC8hl'j6SY'+ejhlllV?.(;99ãU"Znab)ylZ3MACrMZ(X4i]BaV8HJ[CE26gq[QK.XvIyOSb0*dscr9Z*)ngc:n.NZcãU"QSDGpw8luc12X$iyIA:A7:XG*Gnp-U*CkagU+g$NIZ.*o-O9,f'hW8,ãU"DxTbR^c5$-4^2'>kV]'7c9RAZFIl9k:&pA+(^_^.WJhfPKME/VJ]hH1I6Z352^4ãU"qwqo$#Jn3Hq:e98a=#C8J;'Jo3GAV87l..#NbPn(7cb(?cr1GH\?iL/xQr6\=FR?S[+'u+CuãU"BY6'-#c;3ZKtEhZGOPHZI&m)sk#CV\a%+gjkfmcb2R8_:WSO'x?cjNi[.sIum^^ãU"^.TrZ=#0OyE.=Hs6TCb1w);qo1lkL>^)Gjy[Kr,t\-+-I1>gfVrZSe=K=j3\Y.8ãU"Mis*2E=)6HiD:gSedRYVsls=*0KCMãU"-Lq\^k1y0B;xUzhM]UnN5hV?FBVgKGBDNfEA9CTj5nJ>sXgpw%'up(%)9%%%%-%ãU"J'%xH;4Uj:Y%'%%G%*%%.%%%%o%zqnf%SgfxJDx,>BSU9Lal[dURbqV7iCOL5B&ãU"72;21qsGqhceF.nA1NrQ,e%6ihFT3rA'p113y)h]6nBahAh:EZ(.8#uj[&6;WhfkqCadA6JxcLãU"Zd_Q.cMHrMj/RgahB4%4q*:Bd9ptu#)kZjT3F3+ADI0<7*lo>M14Aw4Y87Zp$AYãU"8LP5SaF3=:4-*')1:T^Y'gP?pdo_QBTH7RPh[B5+T&qtKs^=hY=GIB:-.9o'Dn=ãU"ohKNnEMO.KL&:G>ZPKN+o_O2^Zh*#j)R5=Bm9iKZzUS8>QS+L(.)8c[HdLOn70tãU"3RB%EkA07o&jH$-HBCXPHlb'hk=Dh\JIUnM,p2TwdsFu1J-.8U&d:CLYcUx]04\.S$V[R5NRx3C)Mj*I,S,gHJVQn4/r,<_K6\RF*Hqw:Q5+r#XBP2JMãU"aUzbKIGRl\T_<9Fq&zt:opZz$k+9I0.qPjC=SxKtVZ[derdT2I9+:L(7jRv1:J<<9l+7RwEaFDK2ãU"GA.EnrURGlT]d%C;3fN?_$&^*fq_*Cfe_8Vu.icX')Vg4=5lnYMDME-_HW#)$6hãU"1c&W33bB=9xFhYvP2ahW-aa*3gXQ2-=aVMj+RU$93BX7)Rf)uFEAXObw+f?--O3ãU"Cjh>D9UH$2FOxwV;Ynt_qMr'XEkVZ.0G[XwF=0Ajl#6j+[NKx)3V\t#$snqwI>HãU"YnY?l<,FAvs#GLvjfoYLeW,wr,u%p()9%%%%-7%p%x+HRPi(ii'%+%D)%%%1%%%ãU"%npj%ifrf%uSgf[xzxh,>SU5]vCNx$x9,Y]qr3K'7Y)gJ_I\)>Hl[BY9.p*tPKAIvxW#)l%^X?orcW+U7UJbldKGtJMA2Dh2'Gt2']IH1L9Je77B;ht-.9+4ta[&K:ãU"a1:B9k:r3:f'Dppzi5_DMLj8Uf)gãU"T-/8l2=lZYtD87RCjHKQA^\/5ZEAasd])hpNlL&NQgGu_C\&I*%F/MWrhdAj#coãU"c0&2E)3hEx?5))YDoMZH#A%&9Wx^nA\]BN&seSlkVWXnp/gZIW1+LU9CU[,=;EvãU".N4L4%6v7_W#n'X'>v9v1y44oQjNg:udq_SW8bHqYi->2Lkebf:]m:zI=qmeG0iãU"UNbPu(d$993J:JN;%Tahf):fXJ=gSo&9Flaj?+36/+muvYakCvM8A5LRLUW.oKBãU"UIqje's6xmJ;ugZVk9r)*eaj;,Z3?]&G+7M+b<*([7RTEW9+\q(,\1r_lVm;#M;ãU"sOsQZ4<5qR7IdF>?[%rEb[qyhw#sQpZ#pfãU"7;tcn%C\/(rOSuhl]?mb;H7Q8&9,T:du%p()9%%%%-:%;%xdHy,G-YP)%+%[.%%%1ãU"%%%%kwf%hxyf%wSgfCxLz<,>Sm5]wCNx)0SO:&Ie(rlK4-TebFU1IJK6b(K$sLjãU"Ro1($)FRhm_Apd5>?:'4IN(o]5$THjal5W%so;>Jef7'&xtts4tWI5sPrO9))y2ãU"=StE(q+9Qwz7+qCFO:SwAL09T&;p0NEVg<:Pox8j;CEYnh#ZTodJcQV)K)w(u%[ãU"?[q&ROjG=ID+R+9NW8+_^V-m.1[C5/=tw8:)cfkzZw4h_B=O_d[j;J0Jayi]a+1ãU"n_VHMK8m]f4NDSq,)I[J/b_2k(MX]jW?h_N)C/x/k2I>2DT:YO^>z[5+95)K>2YãU"*U0A(d3]+;KfhQb:[DHXMgãU".<&>iAe68ucP=hN09yHYVPR#VUT?JTg%.6vL4f,gh'PR(BlSaaf500&uwqCtev4ãU"uqZ;I0/X[ArT=2kJ+a>SE66,w?Tk8(mUwIãU"DAk4SM6tIW'$;8ZZgRfxdW4P,gF,&hjq?P(b,jo5xP7n)lC(lbI-wfBgErD,x)fãU"T77Q43:oV04dF3i^[((C&6ROB%'3<)PfXQa:oRPU:$0Q6O7&2>wl(*-hAJcZAI\ãU"a91y?WS0aa$>Qnv0bMf;PmgCi#)nu2uxaIEY?S8G25PR9K=bUcknVUãU"<,u.lxtGJDPWn/Dh%ZBcITa$\u96D2-A,c4jEhv5,hObx9MD^_(sL7EpVC2sxv*P=I$E:ZbN_o>ãU"r8;%(:Zd/KJgW0p47pdCZ*;#kE(ri;H_P'/Fgo$$Epk>mJoGp$+<65vDik&-CoeãU"qNpei(&B168o5SnIw47'PVAQ]m9c5tP8Yte-ajHY>p0>A7eaãU"vnJ6^xAOu&uBi2.]i$0JMZRdb*3uGo4+bxmdElKSn0t\c\FZmrJ2OãU"Iq(YFw;jA(zP;R&;MmtDdm=ln(EXSI$]tMy[_kK?I1(Uy4E?Go6QYIw:toZd1p3ãU"uPYm]\HLcfY&G:[]fObh9W=7'4[vG>ccniTcjdF(Tp(WbCO?.'RO88ãU"<;S-^r\Nn&a*2-j\agDfMFp$s5txMqc)BC0LowH):O8/rdnL(C/l:S9ee)rKi_^ãU"G76G0Uc.h-H^RJOe#/j^hjzW3a1*[QX*g0Ik2usm%0[?MCO[[:E%f('h2WrfIEVãU"(Ui2x)tJC0#N:0l-_DEO%E1KTSJSSfElX3D'bFg>UDs%v#]9fiX/UE1\+OYa,HkãU"#s*miBc+IdxSMrTU_[0^r7)nIlãU"7):sSc?V^)IVdUl,sC_9P]WMps\Tqjp(>W[:#[MNKcfJb4/eyp-ptAk4.KhG5o(ãU"dTlHJ)TC3pPelv>d7)\Ai]INn=SgAI-en:94k7iDhKDb%?x?ZDcX]q27.%J-W<]ãU"st$'$'\:67?cvayNhz10DuK'ua,H]VD0N=gAoBu^BpI58c99[#Hjpv83/qMzJiPãU"06=#,$'GIwsZY^%3y>Dq$TT%S>lu]aOTtY0f6sR5f'Qpv;:M>ofAsdp0Pc?xP&pHd9hs$TWRqiW7hH5s%5,19ãU"vwVH2V4eu$(RoHm*U+Q1S)InalxB_Y&1c6Z.V5muFg3NkeG$-\uGE#8>T(M<[*?Q_AoULlHTp=MN%up()%9%%%[-%;&.xHLKãU"/I^k'.%%Q*%%%0%%%%kw%fhyf#qSy'ay&wH,>Ta1o6#ix69T)EQfK,Ua+QFbpTGãU"ds8pr0BI,j514Z+gntCv^8%DNLB?S&0/[mEx]l\\Ju3mUvQ+eHbr2/IL2i(nj'hãU",/k9?Ftb5Q1'aWwPsNNN>=ZUXrW8.EnDRkv_%G1;Lt?t&sEkB[l*EnrQ_V'[&R02F'14*D7Q#hn-APPyãU"cK&PBmUv=QC[OFG+0z7)KMgo<$dQ3)r_k*s-fE/E;P#Q/pV^-D6&ãU"xwoCghZUBRuB[P'YasMpDz5ãU"UZpp=QNH.$h,%PJi:QdR3O?#P(u7k2[*Pi'5p$fo1f9x^RITe0Yw:*jsqvU-&PAãU"ppV/_Kp-bO=+ZkmdGS./5=E]f)Y)wRP8[S(_W2t#+Z8Q_?2(WMGn,PlGGUZP'5XãU"q00]DSO)U)IcKsbEaV.?zW2RN\j2#,8MoF[NFm\;wk&fUk/51=H*SNnz%M^Zpk8PW=__epZ*a<ãU">*V7.7ZB?%fpnr\7e8rain;:'QmNNWM=bTq=(u,B)\FBS,,cpD$n9x[vn)q%2up&%'9%9%%%%-7%ãU"6%xCH/xU)<,'%%%d*%%%/%%%%%%%%%&%E%%%%%%%%%r%fsij%qSgf%xup&%'9%9ãU"%%%%-7%J%x[H;Uj&:Y'%%%G*%%%.%%%%%%%%%&%E#%%%T%'%%o%zqnf%Sgfx%upãU"&'%9%9%%%%-%+$%xH<&n(y%F'%%%X)%%%1%%%%%%%%%&%E%7%%Y)%%%mj%stsr%ãU"fuSg%fxup%&'9%%9%%%[-%p%7xHRP.iii'7%%D)%%%1%%%%%%%%%&%%E%%%%P,%ãU"%%npji%frfu%Sgfx%up&'%9%9%%%%-%,;%xHpy,GY'P)%%'[.%%%1%%%%%%%%%&ãU"%E%7%%h.%%%kw%fhxy%fwSg%fxup%&'9%%9%%%d-%Y%RxH/-6I\W).%%y.%%%/%ãU"%%%%%%%%&%%E%%%'i3%%%ytum%frSg%fxup%&'9%%9%%%[-%;&.xHLK/I^k'.%%ãU"Q*%%%0%%%%%%%%%&%%E%%%&o8%%%kwfh%yfqS(y'yu%p*+%%%%%,#%,%]#&%%4%ãU";%%%%%ãEND SUBãCLOSE:IF S=146AND 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ãYariv Habot CAPTURE SCREEN 12 TO .BMP mastic@israelmail.com 10-19-97 (21:36) PB 159 5497 SAVEBMP.BAS ' SAVEBMP.BAS - Public domain PowerBASIC sub to capture screen 12ã' images to 4/8 bit BMP files (no compression).ã'-------------------------------------------------------------------ã' Yariv Habot, mastic@israelmail.com.ã' Based on Stephen L. Maxson's (smax@isc-durant.com) SAVEBMP8.BASã' Adjusted for PB 3.2+, probably works on earlier versions as well.ã'-------------------------------------------------------------------ã' Call the SAVEBMP sub by using:ã' SAVEBMP BMPFileName$, Colors%, X1%, Y1%, X2%, Y2%ã'ã' BMPFileName$ - The .BMP filename. SAVEBMP kills the file if itã' exists!ã' Colors% - SAVEBMP saves .BMP files in either 8-bit (256ã' colors) or 4-bit (16 colors). Colors% should beã' 16 or 256. Any other value is equal to 256.ã' X1%,Y1% - Coordinates for the upper-left corner. Theã' values must be valid, as SAVEBMP does not checkã' these values for validity.ã' X2%,Y2% - Coordinates for the lower-right corner. Theã' values must be valid, as SAVEBMP does not checkã' these values for validity.ã'ã' There are differences in speed and output file's size between 4ã' and 8 bit .BMP file processing.ã'-------------------------------------------------------------------ã' The SUB makes use of Coridon Henshaw's GetPalette SUB, so if youã' wish to use SAVEBMP in another program, GetPalette will have to goã' with it. ã'-------------------------------------------------------------------ã$STRING 32 'See line 72ãDECLARE SUB SAVEBMP (BMPFileName$, Colors%, X1%, Y1%, X2%, Y2%)ãDECLARE SUB GETPALETTE (Attr%, Red%, Green%, Blue%)ãSCREEN 12ããTYPE BMPFileHeaderã FileType as string*2ã Size as longã Reserved1 as integerã Reserved2 as integerã OffBits as longãEND TYPEããTYPE BMPInfoHeaderã Size as longã ImageWidth as longã ImageHeight as longã Planes as integerã BitCount as integerã Compression as longã SizeImage as longã XPelsPerMeter as longã YPelsPerMeter as longã ClrUsed as longã ClrImportant as longãEND TYPEããSUB GETPALETTE (Attr%, Red%, Green%, Blue%)ããOUT &H3C7, Attr%ãRed% = INP(&H3C9)ãGreen% = INP(&H3C9)ãBlue% = INP(&H3C9)ããEND SUBããSUB SAVEBMP (BMPFileName$, Colors%, X1%, Y1%, X2%, Y2%)ãdim FileHeader as BMPFileHeaderãdim InfoHeader as BMPInfoHeaderããif Colors%<>16 thenã Colors%=256ã WriteIterations%=5 ' Every 5 lines, Buffer$ reaches 32K, so writeã ' data to fileãelseã WriteIterations%=10 ' Each byte holds 2 pixels, so write every 10ã ' linesãend ifãBMPWidth%=X2%-X1%+1 ' Width andãBMPHeight%=Y2%-Y1%+1 ' height of the imageãã'Each raster must be a multiple of 4 bytes, this next line takesã'care of 'padded' bytes at the end of rasters of odd-width images-ãIF BMPWidth% / 4 <> BMPWidth% \ 4 THEN PadBytes% = 4 - (BMPWidth% MOD 4)ãã' BITMAPFILEHEADERãFileHeader.FileType="BM" 'BMP format markerãif Colors%=16 thenã FileHeader.Size=((BMPWidth% + PadBytes%) * BMPHeight%)\2 + 118ã FileHeader.OffBits=118 ' 16*4+54ãelseã FileHeader.Size=(BMPWidth% + PadBytes%) * BMPHeight% + 1078ã FileHeader.OffBits=1078 '256*4+54ãend ifãã' BITMAPINFOHEADERãInfoHeader.Size=40ãInfoHeader.ImageWidth=BMPWidth%ãInfoHeader.ImageHeight=BMPHeight%ãInfoHeader.Planes=1ãif Colors%=16 thenã InfoHeader.BitCount=4ãelseã InfoHeader.BitCount=8ãend ifãInfoHeader.Compression=0 ' No compressionãInfoHeader.SizeImage=(BMPWidth%+PadBytes%)*BMPHeight% ' Image size in bytesãInfoHeader.XPelsPerMeter=0 ' Picture dimensions in pixels per meterãInfoHeader.YPelsPerMeter=0ãif Colors%=16 thenã InfoHeader.ClrUsed=16 ' Colors used in pictureã InfoHeader.ClrImportant=16 ' Important colors in pictureãelseã InfoHeader.ClrUsed=256 ' Colors used in pictureã InfoHeader.ClrImportant=256 ' Important colors in pictureãend ifããif dir$(BMPFileName$)<>"" then kill BMPFileName$ãopen BMPFileName$ for binary as #1ãput #1,,FileHeaderãput #1,,InfoHeaderãã'Save palette data-ãBuffer$ = ""ãfor i% = 0 to Colors%-1ã GETPALETTE i%, Red%, Green%, Blue%ã 'Palette is saved B, G, R with unused byte trailing-ã Buffer$ = Buffer$ + CHR$(Blue% * 4)ã Buffer$ = Buffer$ + CHR$(Green% * 4)ã Buffer$ = Buffer$ + CHR$(Red% * 4)ã Buffer$ = Buffer$ + CHR$(0)ãnext i%ãput #1,,Buffer$ãBuffer$=""ãã'Save image data-ãfor i%=(BMPHeight%-1) to 0 step -1 ' scan lines, beginning from bottomã if Colors%=16 thenã for j%=0 to (BMPWidth%-1) step 2 ' scan columns, 2 pixels per byteã Buffer$=Buffer$+CHR$(16*POINT(X1%+j%,Y1%+i%)+POINT(X1%+(j%+1),Y1%+i%))ã next j%ã elseã for j%=0 to (BMPWidth%-1) ' scan columns, 1 pixel per byteã Buffer$=Buffer$+CHR$(POINT(X1%+j%,Y1%+i%))ã next j%ã end ifã line (j%,i%)-(0,i%),0 'Wipes screen during scan. Remove if not needed.ã if PadBytes%>0 thenã for j%=1 to PadBytes%ã Buffer$=Buffer$+CHR$(0)ã next j%ã end ifã if i%/WriteIterations%=i%\WriteIterations% thenã put #1,,Buffer$ã Buffer$=""ã end ifãnext i%ãclose #1ããEND SUBãDavey W. Taylor TRANSITION EFFECT GENERATOR audio.squad@mailbox.swipnet.se 10-21-97 (10:51) QB, QBasic, PDS 229 15052 TRANSIT.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"TRANSIT.ZIP",4^6:Z&=11019:?STRING$(50,177);ãU"%up()%9%%%#-%[r[ZHy=+0BF4%%%]j%%%-%%%%kw%trSgRrufj=r']mg:T.S43#ãU"NI$DOB9&O.78RII?;/P^2+gQP<)U2e9Wjb)S[DkBHkVE57I8MzV77Y>cyq&4SZrãU"q=Uxt?v_pZ8ufjr?njrm^cx;T$4q+?W;T=YNr.LPMo5npT.75$6TTu=87q\scx=ãU"XrxPHXcjr#7BxPcNl;$^qKu3n.QZlZMupTTn:Z-\ZG-\Z-9\Zw4pk:fsm8B&N3,ãU"?n6i;NT=b)>].b](Rp]w-)cAUH;fctg*p:8g=ce'\NwdVRT7QJZsIs]nLI)hUy4F-u+YãU"W*(GbRFJ[HtJZ/7eYp>]dHUNu=ãU"HWTR#c^JeBTm\>UL9F]).hY;L\8]G'I'$E;csV_4BPiFe2aqtl._Y:HbK?1rkãU"os&RS&MOQFnbR_w>GL;#$3xsJaS==g6R31ytaeN.D5K8WkfF,eAK:C&mIrZjZRXãU"=%tm)N6cf_5)*u;pM8<02hX1B=Zg*?lq=APJ_S*F#PCRTca5(d=J0-r)G:b\maAãU"Lp5GNGeE;jNq'11P1zH\_2[q[(NtXg*+KI.aNUrU8KQj+GQa+kFG1#=3'I3tr:vãU"9V;4(&qX:3*N.:F-G<%u:U=;wmS<)lW&ng_ac=T-M8Hx:FawsBrd>hb__+NU/_<ãU"y;v^?oFMf.k4.)C1=,TRG0]?t[28C4;/:72d&c]fC*/L:R?'GHJ[\N.3xFOq_HRãU"TQc8#(tLn360n0v&'x[D50*];2mJInJz6k8j='\#U%&l/m(lU4ur)Si[c:N6AT_ãU"NI'pWW$c*VGU[L=DRp?u7*cN9ZZL&CA'J7zyS50wsm.:N0Sszdh?-S62X#?_E$PãU"SsSk$n'g1<*DL=mN=RqleQF:66j\YSUqDjnQmD:Q9X2Z7uu.lTeyãU"3m320k3rC0?s?/-F^;#9eecxm;ãU"*;S[luRMSMtvn/%#Pv9'VL5n2;G=>P;+[70sxBUnl.7((x;jN&1#^#$V2KTDi=fãU"nn;07]NP$=%)9w)SfL3/2lCZ%f$%6'j+n/v1V>;E#uuG_\T3QmNEsyVz+qkCwbaãU"C5Y6^#&RL81/1J>.C6ogIiTA/QOv;Q4Bft9T)q1j0m6FGP6,'9kb-EqlC$W;&6f&RX[+b]aRM:JBMKãU"=KG.7;mE2O?dD2zcT74RiO8A60;YdyKKbD1KA\2=i$u<%fKC6R=)-Gr+s?FYl9&ãU"hWk][XL)1A+#of\'q(>%/2gvh,O,;%U\qPnN'*/4PO*so+ZEEMãU"zA6rArm*.>e'*yWv83+D=CSDs[Hf^g<59,9QgYwobb1m29;z^XoE,yACz$3c[-[ãU"iN#pJ1$DkzcCr3o[:wT9?ThO2mq:r\S--*nJl*]xh#KC8&s\n#XoosSjA7j3swS%=<;dt\FcgrV3U3Inz)ob[/>$-fs-eA>M))0Ev]]_X1dHU..ND4IãU"?5*WCV[9t:8fRsn_5V7fBAMO9,P[xCjs4\QcCl%2hA:#y-A=IWIxH+K'mDZD]5XãU"PNgn<00'2];0:G[an6kWR_4/s$8_2_t5Cd;E3)O'9QbRw<3^YuTNigBL>;uxGd>16ãU"qmB7W;IqF.2=(3jUI'?u^nJzB+*l;fJ;f%GSP$axL,Niq.ZHI4bwCAZD6DCusL)ãU"1i55gf^KAX.dmsidOVm1loWA3,Y9;q/ZqD,rALZ;;)iA9?7/EtJ>AjkY3::1LIFãU"8>6Im1.m))mD1blj=uAM/2vQAFT/?^zM,:a5taIecV6lp50-UIc?c8LzFb5grhjãU"&gEj^:-Q/+zZrf_\1N+9,:JãU"KMnyz2QQka)z8.d\iHY/b<\E.$Ah'xpmRT3,NoCQOzC>e6C:)/ZrBB+##[kãU"jHi2d3?kg?c,[[ZD;36O3c4..t14#X9-2akd/vFD3MFf?.?&N&y32O7BnWw5jD<ãU"E+LjOgF(3,k/?Z&d2^[ãU"=KTL*5?0^9C^QoRp'-a-D_*JoBkTJAJjjGtV7i>t$s/Qrp;G*)k6l?5eZe9\[/KãU"DtS3n50lFpM/^kQ.z69o^^i1>U_EETobNE8ja^9,)-Iw[K5<+=qMEqu>K\O$acbNTLXtgZZQQ5<,=C.e74;9_Pfa-\V66eãU"N]nHeuu=[qvcah3$cmo2_TCWv%b0?^&bIeja4&$vL,&QAeRTUqxmXk,2:h:;1pwãU"$atuH(Gcd$L=_fTRkK6d:.uG7sY25dIQ[T>VF2D9Mgo#oJ3QpF*6E(zM%mya#F*ãU"]I0(NkbLpZmSe2RALTTiagU6tx-C5oGJ&-y%8GN;e*ãU"2agl17wrsC#)Zddy0_?9HxLwQ/SO#4Hb%0j'i2L=AL\0O6h%#bx81J3X*$jeGj)ãU"G$NLGSV-z3TLaKhv<'c2L,gcmvZM5W)Q=SUo%3('q)oMTbHNNtr[9m/efAvX=f<ãU"4Rh0vpm3OMJZ%%6oNDM-WGf;d2[vLãU"1uxmB(Vxd;V+:SwW8'?>cMXe.znSkp-30=dUveUNBU>.W[ãU"?vBJ9o&l&B]JteG?Y_3XcT,wkK+H#_3d4w#(o:'5+:?'W,?kk](iGp:Sedp7+0UãU"#*K0B*ScQ]oNQiãU"RiW$'&N*n0ns*4WK'6ER2[5xNwO*H:]:vrlORA+3%cln(14-P#c;$rr.k%IX^#?ãU",Xs#pE#qLQshwSFOD]1MtA].RCc(Sj5Hmo+B;ZMo:/t77OY\g9#On2vFg_[*U);ãU"Qv<^Ej[9LQI$yQv-(tDc6tz#QlckBEnNLTallgaMnW,XL76$3.,I>mJ2JKDEoltãU"lm\fDbKxsMtDP.gSF$lsWMUDGYqNxHCA.MfXdt_pu5BZ*Mu8=K\xrHoHNNJ]7Q\]CGSVz(Ao,.;0O6XHDãU"Xn$.Iu8-eXVR2b?ZpO^<]2/CPuLx3Zq-uvDi\A)JKT5F:;;D5)ehD=)h&MnuqASãU"dpuh]K?5&H-fH1+&JdbZm7txwmX8Ba5]i6NTwrRZoTk:N.LboOCXQA7JncjjZbqãU"bMk#$w&TX-lH8cljn:5r?:5?Y:5?:fu4\0-0x%u%p()9%%%%-.%_rZ4HqR&(&:.ãU"%%%]j%%%+%%%%ytS[grufnjp'e.Y5UtiKHCpbX4>++)Q&8LK&1W,SQ+hFI?1'1'ãU"*/.);PJUUg;^alQ'yxdT$^L]$GIMMeAtbV]bs+i^yARZp<0.bLl7Tstln>GKvZ.ãU"lXF&lhAM$oulPbs0eJ,DgdMkxV,MxKl77k(s4lnvGKvU.adGdvgc.NErPnlnjLpV6J/6PJ/6Ji/6bO=Qfwd;;\/hs47r.?px'Z]Q3bn?_PgdPCx&)ZãU"3/P4G%$>pAr*jo>#D,QVU9?\<0T&4><#LP'8J7qK\%dãU"ayKg0Y=ul:943sU1]\%V2-^u+kT](g+:1QjV6\YOG[3H)d&,3V_r?E[(Ki/eeb3ãU"taic;\PYQmG7hL;=YiCFm5mVa?O=yQq8ed&]8ToEayrT//WrsCsg9K5kP?T0)6fãU">citCcZ64CAUMw82H,sRGS0e.ch;*;+P_19vx)^Z-G5%STq]+3Yk.um081%*/0eãU"]&p$^p'aDvAMRcpw2<0)=[A%?SFG[]5I^n#sa,a>N#[SR^a-5CB_kpdCi?pWI%aãU"Ap6N:u8Y/AWjXCVPp9t*sE6daA(;fi5+\QZCSojW\&InuNDbn[wfS:IcpgsL.DUãU"b[E1vLb;d+RL4Zoj(DB(F8-vs>k5[5F2Y;bCAU.I'J<)R=?eYQWv0/Sr=90i/Mt*gjO=,MqEH%Srd*wk08:V&xsC,Qd;E21AUMP%5Wc^*ãU"PSf<.$5rg,#W+8Ve^+YH4aK<;/^j<\f)U?*?bi<61Mu+%8]Y)\Q2bruEE&7Fr.NãU"As>BYpf#?b6MRPhW_LeWgd_n?%'%%;eM_Gh^1/O;eibg=(:$]2RwC%5xE;3X_KgãU"Gf?Qyjr3hcI%R7j9x=W%V&*VmgEP/.WbF>N+zI;Ndh.6L175<4&;-\?t)?k_/?%ãU"=#jr\&H=fA?YNJ\rqA,S/V+>[nABX]F+%[n>7\O#.FWTI&7gv42(BA.ivsG=Hi8ãU"FLuXMq,1Z)?sD<4(^fc<+X36J=gJ[q+((lh_hbS;UB^'nX_]ZAb-[l7.RWm.;N7ãU"67S)E5a>FaK&_q79Mv?YeZB+*bUz=<0=c=LC-N?ãU".aJ66RKX_>(hDh?RRT,3\ZZ(*qcra8EB=.+RhUN.,../.8kq^3[8RK+L?TJbjOjãU"0+*/8FY.,?.w$?j:bu<]p)e,?.;u<0KSgvYBD15XXV2;G_.Tp8GlHa$E#PV;Qh;]qek-vPXehc$B/3GRvHg:Vj%pwXBAI3t:2;5a64sRu6aYf9\56fSãU">dmCX=bE6K1,7cH:G]/9vuDc2#*Yay=0i%]4T%9nU_;fX4#aq\8Uk$04n'xTNcQãU"=MFmQ4)2-eIgX>x&iSCZjIromSHF1MjdU2Y1r^UD'1;F?d56K1rrsmo?$XC]gSnãU"oih5G.;E<70/uo:BgKEjS(h)DguvZ2fF.6wQ>ãU">C5#g%S&8WRagIEpp]+7Xwi4]jajKU1aAD,oNjV3Sv0DrkKfXJ*W/3VTH=FOgG;ãU"Ij5osKJ_9(4:QCoG)GJ7fE+tr),rANP\]+E5T&y]r#%;b)H>7JXoSDHqG&P$P%6,k%)KOãU"G5XbEJWrpJ*HK8,d9[e[2d?^(3*yAZMuJ>IrU'g*N6*qO?82Q6=wiW#BQbB[#&2ãU"Rq=VQ/P\+r\h6QjOcI+,NNNhTPaP*fRjoR;kZce/Q/mjMuOAMRW$fWv30&-THT-ãU"&J/L&yXf[I6wVZ)mTx+rCVb\[=9m/?V?+k&k%/%KRu,WSXY132n;\)2*q^EP.z#ãU"A%%E4KXu<+i;?;_e2*]MqeV=Ko'R/5sef&-;X*/;DQgR'd/Yy[)C\QPFc#kHX\OãU"pw'g3c/hZG/Fov&/4i(ikia=:QOAW$la7a]-F6P82=l1]tOamtrQ%.rD7aB&zCCãU"ylKy^azZLibT4*g5;6f9'q?r1Z'w<.f**FOd8+fI-o,cC#*DuuY%ãU"M%;#O3[3_e.Pph0EXuQ,O4]9u1\pFA%1)#>s9X/,]0$.E$$A'&0g=Rpj31zU]t)?kcn[IMm+#9J&0W]53]6VS36cio%2HtNãU"n'hjjnb;/MaLQ/\on9VODLZH;tFWl)SBF5&+e$2U_rz%9MeSSb&w_vYPl%#2o?HãU"O\VHrWnAY7z;6*:5zCpV\DkNQ/IAK:*uQ[Nf,ktSAhmN>ãU"U76F;J%prL+%BZ1wl2L[.HgC8unkoH/U]fnU),LAvg$$V3h;0rNCfb.&6m8E-klãU"W96cDTQA>p<$2u0S6s>(/n8djj^N?,iiwUvgh(qM\w=7fbixttsoKRj0Q:/s,lhq=)V6JãU"/6MJ&JH'r,up%()9%%%%-%*M9nHR,M*A&v0%%%=E%%%0%%%%ywfs%xnyS[gfx.jãU">TESsmkV$oqDCqVQc:]CJ.7J4K,ZfMECUOs4ABE_2R?I)X_YwM2/N:_N/DoaPotãU"_VhN]^N7,Ax*?iPgsEvnuLcW5&(HXe3+lHãU"fD:Q26D)=C-ssZLdn#'j.ac$&cX:SL='o9FCr/W7O#%_0k7)4giuf%+n?t%w[(AãU"0GXS<(V[IODWcj((EQ]'RcCl$_O#5k41?Y+%5a)66%[H/R8[g&ZY$>i+;>()c*cSZuOfp#sDB7cãU"nS31s(qem$xOtG,/il(a+6cw>7WmCLaS8I)?<;)TghG_*^[lw-2R/G/cCQV2xqtãU"fhB[189MtdjjwuzirQ.#a%Qu3HjD2Y;O9f\9W(_;[hg_,+0pgC9.AAJv1/BdWto+d$E9x$&3c\^n/L-aWZp8ch^.lwIj]-ZbHfbwCf*65MvãU"G,q?$;&vaVVA2YB#KbTyWjT/o9Qn\>/3][HimFgj7+1$gSb>*W81QkJAhQ/a/S0ãU"'qDHYi0[70-=(CGx;,LFMs4jcn$>tIhd/XCUf'(=p0w&xãU"3[)p*U7mRJ^n7m;3a+*o12q/-h]&&>:7*,4$Eg#6VVpX,zXlb3gI-4)qGA+KP]J^M[BH=A#zV7p3/X3ãU"2U%v\2??sM0uh:'r5G&4+ch7F6IBc$-:Ml$3*\K*tePI\EjSC=/)EG/%LPvR%ãU"ENB0z58J+Ok'Q**m\my1DN=xxm[w^iF\pm-rHD(JwP<'xFg8Z87(\0[lmt1J.eCãU"'6:1dGpLU6i_SCYRDv8SGv/G6oNo\]x?TAv#kv8[Ej9[J/17:A#g8WSa9bY/B998bR;MDlod/uoR9ãU"(e,.+RXw2R>A^-:f*(j%H*zi)0Ao_'R<<]AfD?C4iIpV-:xF6aR-zXk7S^v#(HjãU"J6cZsAO3b/Po;;ctm$U3GfhCAWiclv7jfXnSb*Vx%6MvcRJ/AshVO_&GaO&X9CtãU"h\AM*m(&s2)''HE=d'GjG1TXjTA<8II\ãU"T+g>2.Uc/p6W4H%Lvbk*\lXEm^(?3R0Y[Ev:xeQ*QGY,Rq[/')Qsd:+27_O(5FsãU"*HaEuVVB=^cK%HZv]mFAF]j>jvtdr1$^bw9?LnDWM*3fVi=bv_EFiB^,]&2K_xwãU"$Cfr\/\lwW*UspW^6$+I%(0KcgVepU&9OCW(iD_(hvSAKRYspciNsuM.Qwn=:x&0IP-2>3Y5UVHDWwJW]'p?FãU"4-_971]$RNBDEC\T_Npt')7XTU2A%*+_bN88^np7q=F$RI/;L#)z2zN#Pt]nRpCãU"Z_:IG?idmIC2hn:E%T<%7/1PbcWfs_oe4=nU$oPftJe7_8-K'_\'F']N13^v=$oãU"zV%Rr1s^[.PK%<]/fEHC6hziXE1.DpJ7%U0)uE(y,b:JWEibyuFycGqW3OJc(j7k.UgYO0T6LI(0&7Ht:0WrU9kN5D_=I4V9/Fff,ãU"9pBOOE?7URHH(SrCHjEVKkET#S\I0Xzab(F8RMJY*_SM6A1ONb67aN4:),'3d9$ãU"[\1g:e7Jv0M8c$V$4h*P\3+KTFAxg2UYyGU*_i$zlN,j#Q*Et*XE;Ol(rGLsFRbãU"u/_nJ*r7+*Ty$7(CfO,W62i?WRam2q\UyKF+sCJRWp^S0K^RK=G\3L6]Z5)-jtWãU"YxK^H%cVy8N$v&fY:mfkH7v1LrtVad6\mxCK3JKsWXerNIzN64;NRN4V9vHM/_VãU"dJjj*^Uu,<.153b7OT(+,/C;SQdk;V*6dT5d;/cY=GFr*[XZ+B9b.$ve(/SQBM,ãU"QasE.$yl%bMx)OVI/c*EfWTY*,Qlg)=)7F-#/TS^:rW4np_PYQugId[YM83L7*1ãU"9N:8%;-ES]PO*7MH=4B6#'HjW&K-aqMW:F>orR&\D=EpHSBUWãU"A92GKchnp;#2:l:02kZF:ja07d:O7Dni1'WqR&Uc(mp+ILt-=_Ot,qGGsOyyT(aãU"jBPml''JcDATQ]'vbApqgC>Mdvn(N$[3p^h_ISUMc(4(GsR'dJ:7tWa$X/ljF:zFZI84P(lU%>Q6]1_CJK9[;R$'\kqãU"r;ATL8;Di:^xQjmr[\qkM6ZHCP#CK.Q.WuIf_s#p3g,ts*Ym^33t7iFq\kuY:J#ãU"c,O$v^OrWn*7kGZ>sBh2,)2GBecwj,4w>\nT+8SusUJp7=cBRwGC^6fR,AZx=U,ãU"EZe8[OfY<92_O#)6*S/P+>GN0gT;4S_:uIwKdu0BYfcW_b.HJNc5j&7Ds357TB6$U[&B]+(cR[LfA-ãU"AvFChT%Ds_-8HHbkkdAO7BUgPh$b9CwnILZlT&dj3mgr$d<+qg*A2]nkJr-w/u/ãU"se%Nd^kqEbTV4aUJ8NZRYt7R+$B.xKM9D7yIwN$\\YoJDB.*bMTG%i6+T7/\SZ9S9l#*NQa9QtqAN)htWãU"9$Ni-B=zsPhhZcT[vhB5e0j95,EH5b1rS.a5A8HIKf;s\nXcrq\56qDZ$SRIjIsPãU"9rbvMOtH_93#Dhj0KaIsgxhiidNGTF91ys/1KQ>*E)%LAaf3m[U^sQ[%H&Gq7j8ãU"5q<_=?I)a85r)cjY/#;0F0%^8._.*de5KAH?6OascaVge,'EUZi#oG8*07[bOBAãU"CA+rBTPmTaAk5cIBNbbIK]1Q5NtX5L6M.T/h]8yXPgV_YPL8ye%EPGR-qD4kL_/ãU"P:TF6w)f(bENL9t)^>DB?mQ]896i_J--_UOQUrHtvQ]gx9&t$=z%Ph,XMQizF7WNucR5p]xs*0dfDvF]$>wpwvXR0Ti:]YpQ/dE&0H*.-q3fPsX,tl-aa6?p<+U/^2^qZãU"FHu-5/0]S3_,v)FEv_pJ)'WnkG'&?+KT3+hD%Vsth=f\)J51l2$fM]ãU"(5%)MOmd%9UXaV?%bn2]XeSKG1R_6B3MDQBl=v0gBq2'k3/o6t+pb.&9$O[A\tOãU"KR[_s0I2inO,4N#Di<;Q)9;l[$_pM5>\7.d'H^9AVt\/.^I9A+cB+.C7+cOBU1NãU"B1m-d'PCVjb<.g+_xnZZ?%JE\Vqy5L7.(TCZ;&^iR(U&Fie]GhoW]#nElZ+0#wNãU";xMqfIL&js5R,pau<1*rgsZ3<%wl'b];AyhF,\BN06ke'\g2d_M.Nbf_MO.bd_nãU"-.b^N]uZbd7X>G$O:1T[xc6=cELPu)idhRi;BYj72KHsBd^+IN^HHhWNr(DKQp3ãU"gAyN81Nd[yxl2<#qfQV,qlj_qP58;*?3Q&F%)4-MVnDgdmiS#oe\dYTjZfhPin=#Z>YKL_Wm?kdk5tIC(Fqfq$YI#1kylXh8_%6czd<,lw:EUB)sBãU"mt&]G0=]g^+2=#D0kec0Fb$=;3:;I&]sJI/1S?Qi8Qhc./kf_2D8r0,.rGkGuDIãU"e5Qg8l6c?\hSC(#1MDN=Qao2Um?ojIT8Ij^6Z63kgV)x7B[FP9b&.up&%'9%9%%ãU"%%-.%[rZ7Hy=0'BF4%%%]j%%%-%%%%%%%%%%%E%%%%%%%%%k%wtrS%gruu%p&'9ãU"%%9%%%%-%_\rZHqAR&&:%.%%]%j%%+%%%%%%%%%%%%E%%%%l4%%%ytS%gruu%p&ãU"'9%%9%%[%-%M&9nH,OM*Av%0%%=%E%%0%%%%%%%%%&%%E%%+%O=%%%ywf%sxny%ãU"Sgfx%up&'%9%9%%%%-%*Q9nH]?*+0%o*%%&i6%%%0%%%%%%%%%&%E%.%%uI%%%xãU"m(t&yw%xSgf%xup*%+%%%%%)%)+%U%%%%>O%%%%%ãEND SUBãV2ãCLOSE:IF S=78AND 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ãMichael G. Stewart TRANSPARENT FONT IN ANY SCREEN mikegs@juno.com 10-30-97 (10:48) QB, QBasic, PDS 72 4702 QBF.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"QBF.ZIP",4^6:Z&=3252:?STRING$(50,177);ãU"%up()%9%'%R-%ml8-Hwm2z_j(7%%JZ%%%-%#%%k>D=CSCVGCF*&j(HxgBnr-Vp(Mf;9uãU"sUmx\&8%(bnpQM=y5fvj)5.SDttVZm/n<[6h3+D1d.L.[u*__isG**d1+IP<(5?ãU"g&JQy)f'uH5bK?bcl$plGSVNf'aW%;cFqVS0qhL,[gewR0_Lwq*jhXa6c3r)<&-r)J#XF2ARI^,\FnHh%(76^'O\lAU%g$o$9OS%5.70lTãU"#B,qd/x5Yg3*cxTCF;Fh*+HvPbh38s#7K8LI+CyppYDQ*-YiXzYp'S>o'y,RLvTãU"G1fMS(i:H-D]2At-JQYQsU#)QynE:\TS#lRiq2;u_?GOB/#L0\K7(4qI^9.VbL=ãU"Q-'5nicM%2Wg._A+zNO%hCwM78V'KKa>c]_398;.3x+3pUi/Ku'RH&egB4S=xH*ãU"DuGq(B.x:/m=)eZFI,wb8QVC-$?NN[a'PMsp.=>B_CxVRS+A=V0#6&t(&7[]?Ko;uui)NOost.K%e.kwNWãU"jTK$1:+Xv1;LKti7UqE#Bow7n8B=__:eg5VuYRrEQxZIMuLvmC(GD5rCumI0Hx2ãU"K7trHVQee;9ggcv_JjKcKk<2yDM_wcT)5gAqd2^QLdgx9ZHvLVvj*+D%pM3g0Z(aT+.J6SU<]I5)g#6H^0081d1&qMnFnk+)+h#E;B8k;+\uPKpDVWra\ãU"K=8,VegcTK43ZP<#FqF\rydaY7rF56b3gbBHEkxP,$pFO_B#_/F#K9gMqaMC4&UMsJ3p/2]h\OXQ-VgxNãU"r4j1Q=B$RUDBQNvS+.uuh>0OZrb?Y598;-d_P#+Af\b],#qsfG;dk\.q^d>aChMãU"KNv%(up(%)9%'#%-%V_q-HF0>DPr#-%%\%V%%,%%%%vD15S1V0Bf)h,BqEX77XyãU"Kv4l;sw?%*F)8Kxd_2hiJaxcw&:?#[K,2*M8*KffNKhE#,F4hãU";$hiu/woHZm>DaM3DgRN33R1sNGdGU?-MLm*GIfW]Vx8O)\&1ETJ3o;h0L2&LXdãU"ns'a_WRM5vGD\a^bBe(t9qc'1:NCAf)Gt$=qx#p5ftN1aE=DaQT?I^HS7qe*Q)J%1p.F6U[Z^w-ãU"\B.Q&(Wf_kgS(/SV\1U8ia<]5OZWW1L.(ãU"bL_6P1PAWlFFEJrYU]hU<*hPB'$=?o;+Z>&0E(8d0_zu%>CO,._Su*'*_\OU5>EãU"7$/-+K6kvNH)*#Hn>0Vic&)R#u;nrh:wn7[d#HcsA*Oo(*]4/CO)0C6V973oP#hãU"#hmzW3Mq+F9R:ilF20'^K+B'*SIW]1r3]axFrV,F$/V)ODv,hg/Q:#-=lKGfN*#ãU"=_l>[JTKii;*ImM5c>).S/E;>ebat1+V6Ahyhz.9GXfrbJZIIf;^<9K:-JB)/yRãU"n_fv:cDQA)G_r;6g.B3i01P:XhTXr)Dc$.=n+Qn\;g>F=6'Eb>Ft*jCpR04eHU,ãU"ug6&a-]ZTaS_5Ot7>$=xi90o:8k\SIa&,UbVoq0ZY]Cd-Ue3)h]Z4^Rk+7gn+8_ãU"dPa)D5bx>*:XIKfdCV9mDU,:UMFR.Fk\WvDuxwFHrFv;j+UVhtGJ^3Cb+U.QRAyãU"F(gvmr4?iDO;2BLy>3iojX-dV^^pRO]vK(;oS3c,<3ka_o()SAr67\E?'k&[9#nãU"PZWT(vd/ET\t&Q)vA:tC7etN0\yrL&Arq;cW%z(WdjtpL2.d<9i6^yZE/TI1.dFãU"Pf0KY\=cC,DWvlcbA.=0OFAAz^m0yrZ6/LtBoAdc\+>gNs:t>YfZf07N78Ls<9VãU"6[;b>6D=12-vB>+YY7;[>Nc9gwuhV;==_?uN>))MY^DEbF^.g%sqR7s't]d^tYgãU"hb'pHm$fZr^O0*kPQ$<$n*eh?#SYb(8j7KI<)\fA%6E3CBZ('tPy:4QXowlyF4(ãU"*fU.?xHWFVPRoD)1xZ5g<(_?h%pAnXDM^B+K9?v$P&:\tY_)XMDE_dQ6KTskC_(ãU"o;iJ1jv9qhv9YBW.wBn(j7Roe7bTIV9cI)1/nd=GlNMjeg2oLDuC5X>GbLHE7k9ãU"l<*OX#,bj%p,[A=cgZQbkHBgAdJguE6;z9MbS:NW(2ZI6b9>^dv$$3NGWBqGHklãU"[kP+v$1gqTt>[ADQ;bi\,Y#$4k?hmwQW^%9k\&ICzyiD1DR5Nn6$);^aCw+]&jNãU"E&vU)/\6)$XM[^25\xy?ZH+NGte&?,J;JX4GzjQ2V\6R:jaD)\b(??Hu+NqHmEYãU"2?E,;Zm>4&jQsV[D#+?x:Zhm4zjLQ*\6cRC6Dk'\(Os?H+PqGe.?H,%ZmY4%jnLãU"f9A\56R9a\ãU"a2$4n%D1V2REi=a2]8/+t6\r1$)jL7bVd[5/)[2bc_HMzkwS$#D%n2X6X_[5g3<ãU"g8X_0(a<#73oy,3E9E3XJ?FC'UPe=V2.:tEmV63[2^ySaQfI#1&I^^3sg\]kuO9ãU"+$.;n=RWx$I,DBiY9;Z%r5Y)DdO\WRkrHHIO>]JOLK*3dl43a^ZZ\B].4\&]ejWpOcm]aWPvgyLXt#&-kG'4:?6bc+%Y1(+fHE/IK+q]CLNReY[WãU"?H^PqP8l^*E[IIaNnvdj6\]M+*N('SA+pL7M=kaWv_-rsp#b*bIs3.n'Hl_QYrl,(8CCCoANãU"%8FJzQ?FgSYMQGJ5j%(R-ãU"2HD.gb%u<8J-6Q5wPSN]4*azGFG71$,ikTu%ãU"p&'W%09%'[%-%m_l-HwLmz_j[(%%J%Z%%-%%%%%%%%%&[%E%/&P%%%I%k>=JCSCãU"G&Cup&%'W09%%'%-L%Vq-=HF>D&Pr-%(%\V%%%,%%%%%%%%%&%Ej%/P:%(%%vD1ãU"5S1)0Bup%*+%%%%%'%.'%:%%%%X1%%%%%ãEND SUBãCLOSE:IF S=142AND 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ãAndrew S. Gibson TEXT PLASMA / TAKE TWO zapf_dingbat@juno.com 10-31-97 (19:23) QB, PDS 525 18498 TXTPLAS2.BAS' * YOU MUST LOAD QuickBASIC 4.X WITH /L/AH TO USE THIS PROGRAM *ã' * (This code should be BASIC Professional Development System 7.1 / VBDOSã' * (comapatible.) If you can use this read all the comments before running *ã'ã' -----Compile this for maximum speed ! (after testing)ã'ã' This first appeared in the September ABC packet (09/97)ã' Original TEXT PLASMA made by :ã' omega, omega@inorbit.comã' buzz , buzz@ddsw.nlã'ã' The major changes:ã'ã' o All screen maniplulation is either Direct Video Memory Access,ã' controlled by INP/OUT commands, and DOS function calls !ã'ã' o Reworked for EGA & VGA video systems using 2 scan lines per byte atã' 32k -- ALL of the color video segment (I think ?!) !!!!ã'ã' o More Plasma variants & possible colors !ã'ã'ã' Disclamer: I hearby disclaim all warranties to the fitness of thisã' program - I cannot be held liable for unpredicted eventsã' that may happen while you used the revised version ofã' Text Plasma. I have tested this on 2 computers and itã' works, although I will not (cannot) garanteeã' functionality under your computer system's environment.ã'ã'TEXT PLASMA / TAKE TWO by Zapf_DingBat@JUNO.COM (It's my Email address)ã' ^Please feel free to Write to me, I'll absorb yourã' comments (by osmosis :}), but reserve any flamesã' for a fire !ããDEFINT A-ZãDECLARE FUNCTION Monitor% (VSSegment)ãDECLARE SUB ColorSelect ()ãDECLARE SUB GenLookupTables ()ãDECLARE SUB Help ()ãDECLARE SUB MakeGarbage ()ãDECLARE SUB STDOUT (MESSAGETEXT$)ãDECLARE SUB txtpalget (col%, R%, G%, B%)ãDECLARE SUB txtpalset (col%, R%, G%, B%)ãã'REGTYPE.BAS - Include file for CALL INTERRUPT & CALL INTERRUPTXãTYPE RegTypeã AX AS INTEGERã BX AS INTEGERã CX AS INTEGERã DX AS INTEGERã BP AS INTEGERã SI AS INTEGERã DI AS INTEGERã flags AS INTEGERã DS AS INTEGERã ES AS INTEGERãEND TYPEããCLEAR , , 2048ã' don't change the constants !ãCONST PI = 3.14159265358979#, Spaces$ = " "ãDIM SHARED Registers AS RegType, SinusLimit, TextPlasVariant, ColoringMethodãDIM SHARED COSINUS#(0 TO 278), COSINUSx(0 TO 278), RAND(0 TO 278)ãã'test for helpãIF COMMAND$ = "?" OR COMMAND$ = "/?" THEN Helpã'test video capabilityãSELECT CASE Monitor%(SSeg)ã CASE 4, 5ã 'set screen modeã Registers.AX = &H3ã CALL InterruptX(&H10, Registers, Registers)ã OUT &H3D4, 9: OUT &H3D5, 1 'Fourteen Scan linesã Registers.AX = &H1003 'turn blinking off !ã Registers.BX = &H0ã CALL InterruptX(&H10, Registers, Registers)ã CASE ELSEã STDOUT "VGA or EGA Graphics adapter is required to run Text Plasma." + CHR$(10) + CHR$(13)ãEND SELECTãã'Seed the psuedo-random number generator with the current time.ãDEF SEG = &H40ãNewSeed& = PEEK(&H6C) + PEEK(&H6D) * 256& + PEEK(&H6E) * 65536ãDEF SEGãRANDOMIZE NewSeed&ãã' blank screenãFOR Blank = 0 TO 63ã txtpalset Blank, 0, 0, 0ãNEXTããTextPlasVariant = INT(RND * 10) ' select Text Plasma VariantãGenLookupTablesãMakeGarbage 'create random pixelsãColoringMethod = INT(RND * 13) ': ColoringMethod = 13 'used for testingãColorSelect 'select colorsããWAVESIDE1 = RND * 1: IF WAVESIDE1 = 0 THEN WAVESIDE1 = 1: 'prevent 0 movement initiallyãWAVESIDE2 = RND * 3: IF WAVESIDE2 = 0 THEN WAVESIDE2 = 1: ' ""ãWAVESIDE3 = RND * 2: IF WAVESIDE3 = 0 THEN WAVESIDE3 = 1: ' ""ãR1 = RND * 5: IF R1 = 0 THEN R1 = 1: 'prevent 0 movement initiallyãR2 = RND * 15: IF R2 = 0 THEN R2 = 1: ' ""ãR3 = RND * 35: IF R3 = 0 THEN R3 = 1: ' ""ãMethod = INT(RND * 6) 'choose form of sinus clippingãDEF SEG = &HB800ãDOã WAVE1 = WAVE1 + WAVESIDE1ã IF WAVE1 >= SinusLimit THENã WAVE1 = 0ã SELECT CASE Methodã CASE IS = 0ã R1 = (R1 + 1) AND 255ã CASE IS = 1ã R1 = (R1 + 1) OR 255ã CASE IS = 2ã R1 = (R1 + 1) XOR 255ã CASE IS = 3ã R1 = (R1 + 1) IMP 255ã CASE IS = 4ã R1 = (R1 + 1) EQV 255ã CASE IS = 5ã R1 = (R1 + 1) MOD 255ã CASE IS = 6ã R1 = (R1 + 1) 'basicã END SELECTã 'prevent ubound array overflowã IF R1 < -278 THEN R1 = 0ã IF R1 > 278 THEN R1 = 278ã WAVESIDE1 = RAND(ABS(R1))ã END IFã WAVE2 = WAVE2 + WAVESIDE2ã IF WAVE2 >= SinusLimit THENã WAVE2 = 0ã SELECT CASE Methodã CASE IS = 0ã R2 = (R2 + 2) AND 255ã CASE IS = 1ã R2 = (R2 + 2) OR 255ã CASE IS = 2ã R2 = (R2 + 2) XOR 255ã CASE IS = 3ã R2 = (R2 + 2) IMP 255ã CASE IS = 4ã R2 = (R2 + 2) EQV 255ã CASE IS = 5ã R2 = (R2 + 2) MOD 255ã CASE IS = 6ã R2 = (R2 + 2)ã END SELECTã 'prevent ubound array overflowã IF R2 < -278 THEN R2 = 0ã IF R2 > 278 THEN R2 = 278ã WAVESIDE2 = RAND(ABS(R2))ã END IFã WAVE3 = WAVE3 + WAVESIDE3ã IF WAVE3 >= SinusLimit THENã WAVE3 = 0ã SELECT CASE Methodã CASE IS = 0ã R3 = (R3 + 2) AND 255ã CASE IS = 1ã R3 = (R3 + 2) OR 255ã CASE IS = 2ã R3 = (R3 + 2) XOR 255ã CASE IS = 3ã R3 = (R3 + 2) IMP 255ã CASE IS = 4ã R3 = (R3 + 2) EQV 255ã CASE IS = 5ã R3 = (R3 + 2) MOD 255ã CASE IS = 6ã R3 = (R3 + 2)ã END SELECTã 'prevent ubound array overflowã IF R3 < -278 THEN R3 = 0ã IF R3 > 278 THEN R3 = 278ã WAVESIDE3 = RAND(ABS(R3))ã END IFã FOR I = 1 TO 2ã WAIT &H3DA, 8, 8ã WAIT &H3DA, 8, 0ã NEXT Iã'**********************************DON'T CHANGE !!***************************************ã Position = 1ã FOR Y = 0 TO 199ã E = COSINUSx(Y + WAVE1)ã FOR X = 0 TO 79ã col = COSINUSx(X + WAVE2) + E + COSINUSx(X + WAVE3) + COSINUSx(X + Y)ã POKE Position, colã Position = Position + 2ã NEXT Xã NEXT Yã'**************************************************************************************** ãã XXXX$ = UCASE$(INKEY$)ã' Scancode = INP(96) 'a cheap easy way to recognize scan codes - unusedã IF XXXX$ = CHR$(27) THEN 'Exitã Registers.AX = &H1003 'turn blinking on !ã Registers.BX = &H1ã CALL InterruptX(&H10, Registers, Registers)ã 'set screen modeã Registers.AX = &H0ã CALL InterruptX(&H10, Registers, Registers)ã Registers.AX = &H3ã CALL InterruptX(&H10, Registers, Registers)ã EXIT DOã END IFã IF XXXX$ = CHR$(71) THEN 'New Garbageã MakeGarbageã DEF SEG = &HB800ã END IFã IF XXXX$ = CHR$(73) THEN 'Invert Paletteã FOR IC = 0 TO 63ã OUT &H3C7, IC: red = INP(&H3C9): green = INP(&H3C9): Blue = INP(&H3C9)ã OUT &H3C8, IC: OUT &H3C9, NOT red: OUT &H3C9, NOT green: OUT &H3C9, NOT Blueã NEXT ICã END IFã IF XXXX$ = CHR$(78) THEN 'New paletteã ColoringMethod = INT(RND * 13)ã 'ColoringMethod = 13 'used for testingã ColorSelectã END IFã IF XXXX$ = CHR$(84) THEN 'New Tablesã 'comment the line below if want a different sinus limitã TextPlasVariant = INT(RND * 10) ' select Text Plasma Variantã GenLookupTablesã END IFã IF XXXX$ = CHR$(127) THEN 'Restartã DEF SEGã Registers.AX = &H1003 'turn blinking on !ã Registers.BX = &H1ã CALL InterruptX(&H10, Registers, Registers)ã 'set screen modeã Registers.AX = &H0ã CALL InterruptX(&H10, Registers, Registers)ã Registers.AX = &H3ã CALL InterruptX(&H10, Registers, Registers)ã CLEAR : RUNã END IFã IF XXXX$ = CHR$(22) THEN 'Variable dump - used for debuggingã DEF SEGã Registers.AX = &H1003 'turn blinking on !ã Registers.BX = &H1ã CALL InterruptX(&H10, Registers, Registers)ã 'set screen modeã Registers.AX = &H0ã CALL InterruptX(&H10, Registers, Registers)ã Registers.AX = &H3ã CALL InterruptX(&H10, Registers, Registers)ã STDOUT "Variable Dump" + CHR$(10) + CHR$(13) + CHR$(10)ã STDOUT "NewSeed&=" + LTRIM$(STR$(NewSeed&)) + Spaces$ + "TextPlasVariant=" + LTRIM$(STR$(TextPlasVariant)) + Spaces$ + "SinusLimit=" + LTRIM$(STR$(SinusLimit)) + CHR$(10) + CHR$(13)ã STDOUT "WAVESIDE1=" + LTRIM$(STR$(WAVESIDE1)) + Spaces$ + "WAVESIDE2=" + LTRIM$(STR$(WAVESIDE2)) + Spaces$ + "WAVESIDE3=" + LTRIM$(STR$(WAVESIDE3)) + CHR$(10) + CHR$(13)ã STDOUT "R1=" + LTRIM$(STR$(R1)) + Spaces$ + "R2=" + LTRIM$(STR$(R2)) + Spaces$ + "R3=" + LTRIM$(STR$(R3)) + CHR$(10) + CHR$(13)ã STDOUT "WAVE1=" + LTRIM$(STR$(WAVE1)) + Spaces$ + "WAVE2=" + LTRIM$(STR$(WAVE2)) + Spaces$ + "WAVE3=" + LTRIM$(STR$(WAVE3)) + CHR$(10) + CHR$(13)ã STDOUT "X=" + LTRIM$(STR$(X)) + Spaces$ + "Y=" + LTRIM$(STR$(Y)) + Spaces$ + "E=" + LTRIM$(STR$(E)) + CHR$(10) + CHR$(13)ã STDOUT "Position=" + LTRIM$(STR$(Position)) + Spaces$ + "Method=" + LTRIM$(STR$(Method)) + Spaces$ + "Color=" + LTRIM$(STR$(col)) + CHR$(10) + CHR$(13)ã STDOUT "ColoringMethod=" + LTRIM$(STR$(ColoringMethod)) + CHR$(10) + CHR$(13)ã ENDã END IFãã' Auto Reinit - prevent 'zero motion' side effect of sinus clippingãIF WAVESIDE1 = 0 AND WAVESIDE2 = 0 AND WAVESIDE3 = 0 AND WAVE1 = 0 AND WAVE2 = 0 AND WAVE3 = 0 THENã WAVESIDE1 = RND * 1: WAVE1 = RND * 1ã WAVESIDE2 = RND * 3: WAVE2 = RND * 3ã WAVESIDE3 = RND * 2: WAVE3 = RND * 2ã IF WAVESIDE1 = 0 AND WAVE1 = 0 THEN WAVESIDE1 = 1: WAVE1 = 1ã IF WAVESIDE2 = 0 AND WAVE2 = 0 THEN WAVESIDE2 = 1: WAVE2 = 1ã IF WAVESIDE3 = 0 AND WAVE3 = 0 THEN WAVESIDE3 = 1: WAVE3 = 1ãEND IFãLOOPãDEF SEGãSTDOUT "TEXT PLASMA made by: Omega, omega@inorbit.com / Buzz, buzz@ddsw.nl" + CHR$(10) + CHR$(13)ãSTDOUT "Heavly modifided by: Zapf_DingBat@JUNO.COM" + CHR$(10) + CHR$(13)ãENDããSUB ColorSelectãSELECT CASE ColoringMethodã CASE IS = 0ã R = (RND * 63): G = (RND * 63): B = (RND * 63)ã FOR I = 0 TO 15ã txtpalset I, I - R, I - G, I - Bã NEXT Iã CASE IS = 1ã R = (RND * 63): G = (RND * 63): B = (RND * 63)ã FOR I = 0 TO 6ã txtpalset I, I * R, I * G, I * Bã NEXT Iã FOR I = 7 TO 15ã txtpalset I, (15 - I) * R, (15 - I) * G, (15 - I) * Bã NEXT Iã CASE IS = 2ã R = (RND * 63): G = (RND * 63): B = (RND * 63)ã FOR I = 0 TO 6ã txtpalset I, (I / R) * 127, (I / G) * 127, (I / B) * 127ã NEXT Iã FOR I = 7 TO 15ã txtpalset I, ((15 - I) / R), ((15 - I) / G), ((15 - I) / B)ã NEXT Iã CASE IS = 3ã R = (RND * 63): G = (RND * 63): B = (RND * 63)ã FOR I = 0 TO 6ã txtpalset I, (I / R), (I / G), (I / B)ã NEXT Iã FOR I = 7 TO 15ã txtpalset I, ((15 - I) / R) * 127, ((15 - I) / G) * 127, ((15 - I) / B) * 127ã NEXT Iã CASE IS = 4ã R = (RND * 63): G = (RND * 63): B = (RND * 63)ã FOR I = 0 TO 6ã txtpalset I, (I / R) * 127, (I / G) * 127, (I / B) * 127ã NEXT Iã FOR I = 7 TO 15ã txtpalset I, ((15 - I) / R) * 127, ((15 - I) / G) * 127, ((15 - I) / B) * 127ã NEXT Iã CASE IS = 5ã R = (RND * 63): G = (RND * 63): B = (RND * 63)ã FOR I = 0 TO 15ã txtpalset I, INT(R + R2), INT(G + G2), INT(B + B2)ã R2 = (R + 1) * I ^ .11: G2 = (G + 1) * I ^ .22: B2 = (B + 1) * I ^ .33ã NEXT Iã CASE IS = 6ã R = (RND * 63): G = (RND * 63): B = (RND * 63)ã FOR I = 0 TO 15ã txtpalset I, INT(R + R2), INT(G + G2), INT(B + B2)ã R2 = (R + 1) * I ^ .22: G2 = (G + 1) * I ^ .33: B2 = (B + 1) * I ^ .11ã NEXT Iã CASE IS = 7ã R = (RND * 63): G = (RND * 63): B = (RND * 63)ã FOR I = 0 TO 15ã txtpalset I, INT(R + R2), INT(G + G2), INT(B + B2)ã R2 = (R + 1) * I ^ .33: G2 = (G + 1) * I ^ .11: B2 = (B + 1) * I ^ .22ã NEXT Iã CASE IS = 8ã R = (RND * 63): G = (RND * 63): B = (RND * 63)ã FOR I = 0 TO 15ã txtpalset I, INT(R + R2), INT(G + G2), INT(B + B2)ã R2 = ((R + 1 + I) * .11): G2 = ((G + 1 + I * .59)): B2 = ((B + 1 + I * .3))ã NEXT Iã CASE IS = 9 'GRAY 1ã R = (RND * 63): G = R: B = Rã FOR I = 0 TO 15ã txtpalset I, XC, XC, XCã R2 = ((R + 1 + I) * .11): G2 = ((G + 1 + I * .59)): B2 = ((B + 1 + I * .3))ã XC = INT(R2 + G2 + B2)ã NEXT Iã CASE IS = 10 'GRAY 2ã R = (RND * 63): G = R: B = Rã FOR I = 0 TO 15ã txtpalset I, XC, XC, XCã R2 = ((R + 1 + I) * .11) ^ 2: G2 = ((G + 1 + I * .59)): B2 = ((B + 1 + I * .3))ã XC = INT(R2 + G2 + B2)ã NEXT Iã CASE IS = 11 'GRAY 3ã R = (RND * 63): G = R: B = Rã FOR I = 0 TO 15ã txtpalset I, XC, XC, XCã R2 = ((R + 1 + I) * .11): G2 = ((G + 1 + I * .59)) ^ 2: B2 = ((B + 1 + I * .3))ã XC = INT(R2 + G2 + B2)ã NEXT Iã CASE IS = 12 'GRAY 4ã R = (RND * 63): G = R: B = Rã FOR I = 0 TO 15ã txtpalset I, XC, XC, XCã R2 = ((R + 1 + I) * .11): G2 = ((G + 1 + I * .59)): B2 = ((B + 1 + I * .3)) ^ 2ã XC = INT(R2 + G2 + B2)ã NEXT Iã CASE IS = 13ã R = (RND * 63): G = R: B = Rã FOR I = 0 TO 15ã txtpalset I, XC \ 2, XC \ 4, XC \ 8ã R2 = ((R + 1 + I) * .11): G2 = ((G + 1 + I * .59)): B2 = ((B + 1 + I * .3)) ^ 2ã XC = INT(R2 + G2 + B2)ã NEXT IãEND SELECTãEND SUBããSUB GenLookupTablesã' compute look up tablesãDOãSinusLimit = INT(RND * 80) ' not make bigger than 80, it doesn't work !ãLOOP UNTIL SinusLimit >= 30 'this is to prevent most visual distortionãFOR C = 0 TO 278ã ' We calculate these variants double precisionã SELECT CASE TextPlasVariantã CASE IS = 0ã COSINUS#(C) = COS(C * 2 * PI / SinusLimit) * 16 + 16 'Originalã CASE IS = 1ã COSINUS#(C) = SIN(C * 2 * PI / SinusLimit) * 16 + 16 'Variant 1ã CASE IS = 2ã COSINUS#(C) = (SIN(C * 2 * PI / SinusLimit) * 16 + 16 + COS(C * 2 * PI / SinusLimit) * 16 + 16) \ 4 'Variant 2ã CASE IS = 3ã COSINUS#(C) = (SIN(C * 2 * PI / SinusLimit) * 16 + 16 - COS(C * 2 * PI / SinusLimit) * 16 + 16) \ 4 'Variant 3ã CASE IS = 4ã COSINUS#(C) = (SIN(C * 2 * PI / SinusLimit) * 16 + 16 * COS(C * 2 * PI / SinusLimit) * 16 + 16) \ 4 'Variant 4ã CASE IS = 5ã COSINUS#(C) = (SIN(C * 2 * PI / SinusLimit) * 4 / COS(C * 2 * PI / SinusLimit) * 4) 'Variant 5ã CASE IS = 6ã COSINUS#(C) = TAN(C * 2 * PI / SinusLimit) * 2 'Variant 6ã CASE IS = 7ã COSINUS#(C) = SIN(C * PI / SinusLimit) * 32 + 16 'Variant 7ã CASE IS = 8ã COSINUS#(C) = SIN(C * PI / SinusLimit) * 32 - 16 'Variant 8ã CASE IS = 9ã COSINUS#(C) = COS(C * PI / SinusLimit) * 32 + 16 'Variant 9ã CASE IS = 10ã COSINUS#(C) = COS(C * PI / SinusLimit) * 32 - 16 'Variant 10ã END SELECTã ' clip values to within Short Integer ranges (2 bytes)ã ' limit to avaliable colorsã IF COSINUS#(C) < -32768 THEN COSINUS#(C) = -255ã IF COSINUS#(C) > 32767 THEN COSINUS#(C) = 255ã ' put result in to integer arrayã COSINUSx(C) = INT(COSINUS#(C))ãNEXT CããFOR C = 0 TO 278ã RAND(C) = INT(RND * 4) + 1ãNEXT CãEND SUBããSUB HelpãSTDOUT "TEXT PLASMA made by: Omega, omega@inorbit.com / Buzz, buzz@ddsw.nl" + CHR$(10) + CHR$(13)ãSTDOUT "Heavly modifided by: Zapf_DingBat@JUNO.COM" + CHR$(10) + CHR$(13) + CHR$(10)ããSTDOUT "Press G for new bit garbage." + CHR$(10) + CHR$(13)ãSTDOUT "Press I for a reversed palette." + CHR$(10) + CHR$(13)ãSTDOUT "Press N for a palette." + CHR$(10) + CHR$(13)ãSTDOUT "Press T for new a plasma table." + CHR$(10) + CHR$(13)ãSTDOUT "Press CTRL-Backspace to restart TEXT PLASMA." + CHR$(10) + CHR$(13)ãSTDOUT "Press ESC to exit." + CHR$(10) + CHR$(13) + CHR$(10)ããSTDOUT "L8tr kids !" + CHR$(10) + CHR$(13)ãENDãEND SUBããSUB MakeGarbageãFOR StringAdd = 0 TO 511ãZ$ = Z$ + CHR$(CINT(RND * 255))ãNEXT StringAddãRegisters.AX = &H1100 'AX tells call DOS set font routineãRegisters.BX = &H200 'BX tells DOS to store 08 lines per char and font bank 0ãRegisters.CX = &H100 'CX tells DOS to change all charactersãRegisters.DX = 0 'DX tells DOS which char to start fromã' for PDS change VARSEG to SSEGãRegisters.ES = VARSEG(Z$) ' ES tells DOS where the segment isãRegisters.BP = SADD(Z$) ' BP tells DOS where the address isãCALL InterruptX(&H10, Registers, Registers) ' call int 10 and make changesãZ$ = ""ãDEF SEG = &HB800ãFOR I = 0 TO 31998 STEP 2ã 'POKE i, 32ã POKE I, CINT(RND * 255)ãNEXT IãDEF SEGãEND SUBããFUNCTION Monitor% (VSSegment)ãDEF SEG = 0 'first see if it's color or monoãVSSegment = &HB800 'assume colorããIF PEEK(&H463) = &HB4 THENãã VSSegment = &HB000 'assign the monochrome segmentã Status = INP(&H3BA) 'get the current video statusã FOR X = 1 TO 30000 'test for a Hercules 30000 timesã IF INP(&H3BA) <> Status THENã Monitor% = 2 'the port changed, it's a Hercã EXIT FUNCTION 'all doneã END IFã NEXTã Monitor% = 1 'it's a plain monochromeããELSE 'it's some sort of color monitorãã Registers.AX = &H1A00 'first test for VGAã CALL InterruptX(&H10, Registers, Registers)ã IF (Registers.AX AND &HFF) = &H1A THENã Monitor% = 5 'it's a VGAã EXIT FUNCTION 'all doneã END IFãã Registers.AX = &H1200 'now test for EGAã Registers.BX = &H10ã CALL InterruptX(&H10, Registers, Registers)ã IF (Registers.BX AND &HFF) = &H10 THENã Monitor% = 3 'if BL is still &H10 it's a CGAã ELSEã Monitor% = 4 'otherwise it's an EGAã END IFãEND IFãDEF SEGãEND FUNCTIONããSUB STDOUT (MESSAGETEXT$)ã'writes text to dos's standard outputãRegisters.AX = &H4000ãRegisters.BX = &H1ãRegisters.CX = LEN(MESSAGETEXT$)ã' for PDS change VARSEG to SSEGãRegisters.DS = VARSEG(MESSAGETEXT$)ãRegisters.DX = SADD(MESSAGETEXT$)ãCALL InterruptX(&H21, Registers, Registers)ãEND SUBããSUB txtpalget (col, R, G, B)ãC = colãSELECT CASE CãCASE 6ã C = 20ãCASE 8 TO 15ã C = C + 48ãEND SELECTãOUT &H3C7, C: R = INP(&H3C9): G = INP(&H3C9): B = INP(&H3C9)ãEND SUBããSUB txtpalset (col, R, G, B)ãC = colãSELECT CASE CãCASE 6ã C = 20ãCASE 8 TO 15ã C = C + 48ãEND SELECTãOUT &H3C8, C: OUT &H3C9, R: OUT &H3C9, G: OUT &H3C9, BãEND SUBãJohn T. Pope HOLIDAY SCREEN SAVER 74676.2453@Compuserve.com 12-06-93 (00:00) QB, QBasic, PDS 398 9147 HOLIDAY.BAS ' Holiday Screen Saverã' by John T. Papeã' CompuServe 74676,2453ã' GEnie J.PAPE1ã' 12/06/93ã' holiday.basã' requires MicroSoft QBasicããDECLARE SUB treelights () 'subroutinesãDECLARE SUB makehouse ()ãDECLARE SUB tree (tx%, ty%)ãDECLARE SUB lightsoff ()ãDECLARE SUB lightson ()ãDECLARE SUB delay ()ãDECLARE SUB pause ()ãDECLARE SUB playmusic ()ãDECLARE SUB Initializeflakes ()ããDIM SHARED FlakeX(200) AS INTEGERãDIM SHARED FlakeY(200) AS INTEGERãDIM FlakeEraseX(200) AS INTEGERãDIM FlakeEraseY(200) AS INTEGERãDIM FlakeColor(200) AS INTEGERããDO 'configure PC speakerãSCREEN 0 'text 80x25ãCLSãLOCATE 1, 26ãPRINT "PC Speaker Sound Setup"ãLOCATE 10, 30ãPRINT "1 - Sound On"ãLOCATE 12, 30ãPRINT "2 - Sound Off"ãLOCATE 16, 23ãPRINT "Type selection then [ENTER] "; 'get user inputãINPUT A$ãIF A$ = "1" OR A$ = "2" THEN EXIT DOãLOOPããIF A$ = "1" THEN musicon% = 1ããDO WHILE INKEY$ = "" 'main loopãSCREEN 13 'mcga/vga 320x200x256ãRANDOMIZE TIMER 'initializeãCounter% = 0ãty% = 99ããCOLOR 15 'draw groundãLINE (0, 99)-(319, 99)ãPAINT (1, 100), 15, 15ããFOR tl% = 1 TO 3ãtx% = 4ãDO 'make 3 rows of treesãCALL tree(tx%, ty%)ãtx% = tx% + (INT(RND * 3) + 5)ãLOOP WHILE tx% < 320ãty% = ty% + tl%ãNEXT tl%ããmakehouseãInitializeflakesããDOããFOR i% = 1 TO 200ãFlakeColor(i%) = POINT(FlakeX(i%), FlakeY(i%))ãPSET (FlakeX(i%), FlakeY(i%)), 15ãNEXT i%ããIF INKEY$ <> "" THEN SYSTEM 'exit to systemããIF Counter% MOD 10 = 0 THEN lightson 'Christmas tree lightsããIF Counter% MOD 15 = 0 THEN lightsoffããIF Counter% MOD 100 = 0 THEN Drift% = Drift% + INT(RND * 5) - 2ãIF Drift% > 8 THEN Drift% = 8ãIF Drift% < -8 THEN Drift% = -8ããCOLOR 15ããsx% = INT(RND * 320) 'accumulating snow on treesãsy% = INT(RND * 20)ãIF Counter% MOD 5 = 0 THEN PSET (sx%, sy% + 79)ããdx% = INT(RND * 79) + 41 'accumulating snow on driveãdy% = INT(RND * 65) + 135ãPSET (dx%, dy%)ããrx% = INT(RND * 89) 'accumulating snow on roofãry% = INT(RND * 11)ãIF Counter% MOD 3 = 0 THEN PSET (rx% + 116, ry% + 109)ã ã 'accumulating snow on stepsããIF Counter% MOD 24 = 0 THEN PSET ((INT(RND * 17) + 152), 142 + INT(RND * 6))ãã 'accumulating snow on sidewalkããIF Counter% MOD 24 = 0 THEN PSET ((INT(RND * 68) + 119), 148 + INT(RND * 3))ããFOR i% = 1 TO 200ãFlakeEraseX(i%) = FlakeX(i%)ãFlakeEraseY(i%) = FlakeY(i%)ãNEXT i%ãããFOR i% = 1 TO 200ãFlakeY(i%) = FlakeY(i%) + 2ãFlakeX(i%) = FlakeX(i%) + Drift%ãIF FlakeY(i%) > 199 THEN FlakeY(i%) = FlakeY(i%) - 200ãIF FlakeX(i%) > 319 THEN FlakeX(i%) = FlakeX(i%) - 320ãIF FlakeX(i%) < 0 THEN FlakeX(i%) = 320 + FlakeX(i%)ãNEXT i%ããFOR i% = 1 TO 200ãPSET (FlakeEraseX(i%), FlakeEraseY(i%)), FlakeColor(i%)ãNEXT i%ããCounter% = Counter% + 1 'counter incrementããIF Counter% = 10000 THEN EXIT DO 'enough snowããLOOPããpauseããCOLOR 0ãLINE (130, 125)-(145, 135), , BF 'lights out in picture windowããpauseããLINE (170, 125)-(180, 135), , BF 'lights out small window 1ããpauseããLINE (185, 125)-(195, 135), , BF 'lights out small window 2ããpauseããFOR f% = 16 TO 31 'fade in moonãCOLOR f%ãCIRCLE (159, 29), 30ãPAINT (160, 50), f%, f%ãdelayãNEXT f%ããLOCATE 9, 12 'text messageãCOLOR 43ãPRINT "Season's Greetings"ããIF musicon% THEN playmusic 'play music or notããsx1% = 122 'chimney smokeãsx2% = 124ãsy% = 104ããFOR f% = 103 TO 0 STEP -1ãCOLOR 24ãIF POINT(sx1%, f%) = 43 THEN COLOR 43ãPSET (sx1%, f%)ãCOLOR 24ãIF POINT(sx2%, f%) = 43 THEN COLOR 43ãPSET (sx2%, f%)ãsx1% = sx1% + INT(RND * 3) - 1ãsx2% = sx2% + INT(RND * 3) - 1ãdelayãNEXT f%ããFOR f% = 1 TO 5 'long pauseãpauseãNEXT f%ããCLSããLOOP 'restartããSYSTEM 'exit to systemããSUB delayããFOR increment% = 1 TO 5000ãNEXT increment%ããEND SUBããSUB InitializeflakesããFOR i% = 1 TO 200ããDOãBadflake% = 0ãFlakeX(i%) = INT(RND * 319) + 1ãFlakeY(i%) = INT(RND * 199) + 1ããFOR j% = 1 TO i% - 1ã'IF FlakeX(i%) = FlakeX(j%) AND FlakeY(i%) = FlakeY(j%) THEN Badflake% = 1ãIF FlakeX(i%) = FlakeX(j%) THEN Badflake% = 1ãNEXT j%ããIF NOT Badflake% = 1 THEN EXIT DOãLOOPããNEXT i%ããEND SUBããSUB lightsoffããCOLOR 119ããPSET (134, 134)ãPSET (138, 134)ãPSET (141, 134)ãPSET (136, 132)ãPSET (140, 132)ãPSET (138, 129)ããEND SUBããSUB lightsonããCOLOR 10 'tree lights onãPSET (134, 134)ãCOLOR 11ãPSET (138, 134)ãCOLOR 12ãPSET (141, 134)ãCOLOR 13ãPSET (136, 132)ãCOLOR 14ãPSET (140, 132)ãCOLOR 15ãPSET (138, 129)ããEND SUBããSUB makehouseããCOLOR 0ãLINE (120, 120)-(200, 150), , B 'draw houseãPAINT (160, 130), 4, 0ããCOLOR 0 'draw roofãLINE (115, 110)-(205, 120), , BãPAINT (130, 115), 21, 0ããCOLOR 0 'draw chimneyãLINE (120, 105)-(125, 110), , BãPAINT (122, 108), 4, 0ããLINE (130, 125)-(145, 135), , B 'picture windowãLINE (170, 125)-(180, 135), , B 'small window 1ãLINE (185, 125)-(195, 135), , B 'small window 2ãLINE (155, 125)-(165, 140), , B 'front doorãLINE (125, 125)-(128, 135), , B 'left shutter frameãLINE (147, 125)-(150, 135), , B 'right shutter frameãããPAINT (175, 130), 92, 0 'light in windowsãPAINT (190, 130), 92, 0ãPAINT (135, 130), 92, 0ãPAINT (126, 130), 23, 0 'shutter fillsãPAINT (148, 130), 23, 0ããLINE (175, 125)-(175, 135) 'window trimãLINE (170, 130)-(180, 130)ãLINE (190, 125)-(190, 135)ãLINE (185, 130)-(195, 130)ãLINE (175, 125)-(170, 130)ãLINE (175, 125)-(180, 130)ãLINE (190, 125)-(185, 130)ãLINE (190, 125)-(195, 130)ããPAINT (160, 130), 23, 0 'front door fillãPAINT (171, 126), 54, 0 'bedroom curtainsãPAINT (178, 126), 54, 0ãPAINT (186, 126), 60, 0ãPAINT (193, 126), 60, 0ããCOLOR 0 'porch lightsãPSET (153, 125)ãPSET (167, 125)ããCOLOR 14ãPSET (153, 126)ãPSET (167, 126)ããCOLOR 15 'ground in front of houseãCIRCLE (160, 157), 71, 15, , , .2ãPAINT (160, 145), 15, 15ããCOLOR 4ãLINE (155, 141)-(165, 141) 'stepsãLINE (154, 143)-(166, 143)ãLINE (153, 145)-(167, 145)ãLINE (152, 147)-(168, 147)ããCOLOR 113ãLINE (154, 142)-(166, 142)ãLINE (153, 144)-(167, 144)ãLINE (152, 146)-(168, 146)ããCIRCLE (160, 130), 2, 2 'wreathããCOLOR 119 'Christmas TreeãFOR f% = 134 TO 141ãPSET (f%, 134)ãNEXT f%ããFOR f% = 134 TO 141ãPSET (f%, 133)ãNEXT f%ããFOR f% = 135 TO 140ãPSET (f%, 132)ãNEXT f%ããFOR f% = 135 TO 140ãPSET (f%, 131)ãNEXT f%ããFOR f% = 136 TO 139ãPSET (f%, 130)ãNEXT f%ããFOR f% = 136 TO 139ãPSET (f%, 129)ãNEXT f%ããPSET (137, 128)ãPSET (138, 128)ãPSET (137, 127)ãPSET (138, 127)ããCOLOR 0 'drivewayãLINE (120, 140)-(105, 140)ãLINE (120, 135)-(90, 135)ãLINE (105, 140)-(90, 199)ãLINE (90, 135)-(40, 199)ãPAINT (60, 195), 7, 0ãCOLOR 15ãLINE (119, 140)-(106, 140)ããCOLOR 7 'sidewalkãLINE (168, 148)-(100, 148)ãLINE (168, 149)-(100, 149)ãLINE (168, 150)-(102, 150)ããCOLOR 0ãLINE (151, 148)-(103, 148)ãLINE (169, 148)-(169, 150)ããEND SUBããSUB pauseããFOR f% = 1 TO 50ãdelayãIF INKEY$ <> "" THEN SYSTEMãNEXT f%ããEND SUBããSUB playmusicããPLAY "MB ML L8 O2" 'Tis the season...ãPLAY "A. L16 G L8 G- E D E G- L16 D . ."ãPLAY "E G- G E L8 G- E L4 D D-D ."ããEND SUBããSUB setsoundãããEND SUBããSUB tree (tx%, ty%) 'make pine treesããtc% = INT(RND * 9) + 116 'select tree colorããDOãtt% = INT(RND * 9) 'tree trunk colorãIF tt% = 0 OR tt% = 6 OR tt% = 8 THEN EXIT DOãLOOPããCOLOR tc% 'draw treeãLINE (tx%, ty% - 20)-(tx% - 7, ty% - 4)ãLINE (tx% - 7, ty% - 4)-(tx% + 7, ty% - 4)ãLINE (tx% + 7, ty% - 4)-(tx%, ty% - 19)ãPAINT (tx%, ty% - 18), tc%, tc%ãPAINT (tx% - 3, ty% - 8), tc%, tc%ãPAINT (tx% + 3, ty% - 8), tc%, tc%ãCOLOR tt%ãLINE (tx%, ty%)-(tx%, ty% - 5)ããEND SUBãTika Carr NOEL CANDLE AND FLAMES t.carr@pobox.com 06-20-97 (00:00) QB, QBasic, PDS 65 1771 FLAME.BAS ' Fire and Flamesã' by Andrew L. Ayers (andrewa@indirect.com)ã' April 30, 1997ã'ã' Modified by Tika Carr (t.carr@pobox.com) on June 20, 1997ããDEFINT A-ZãDECLARE SUB Flame (ix%, iy%)ããSCREEN 13ããRANDOMIZE (-TIMER)ãã'Make some random starsãFOR i = 0 TO 100ã x = INT(RND * 319): y = INT(RND * 199): c = 80 + INT(RND * 8)ã PSET (x, y), cãNEXTãã' Make a red candleãLINE (135, 83)-(175, 181), 16, BFãã' Put in text & color in text background (messy, I know...)ãCOLOR 68: LOCATE 15, 20: PRINT "N": LOCATE 16, 20: PRINT "O"ãLOCATE 17, 20: PRINT "E": LOCATE 18, 20: PRINT "L"ãLINE (151, 111)-(160, 144), 0, B: LINE (150, 110)-(160, 145), 68, BãPAINT (159, 114), 16, 68: LINE (150, 110)-(160, 145), 16, BãPAINT (155, 123), 16, 68ãã'Light the candle :)ãFlame 155, 80ãããPALETTE: SCREEN 0, 0, 0, 0: WIDTH 80: COLOR 7, 0: CLS : ENDããSUB Flame (ix, iy)ãã' *** Original palette routine by PHOBIA ***ãFOR slot = 0 TO 63ã ' Fade from black to red (slots 0 - 15)ã OUT &H3C7, slot / 4: OUT &H3C9, slot: OUT &H3C9, 0: OUT &H3C9, 0ã ' Fade from red to yellow (slots 16 - 31)ã OUT &H3C7, slot / 4 + 16: OUT &H3C9, 63: OUT &H3C9, slot: OUT &H3C9, 0ã ' Fade from yellow to white (slots 32- 47)ã OUT &H3C7, slot / 4 + 32: OUT &H3C9, 63: OUT &H3C9, 63: OUT &H3C9, slotãNEXTãã'CIRCLE (159, 100), 2, 47: PAINT (159, 100), 47, 47ãCIRCLE (ix, iy), 2, 47: PAINT (ix, iy), 47, 47ããDOã 'FOR y = 98 TO 69 STEP -1: FOR x = 157 TO 161ã FOR y = iy - 2 TO iy - 31 STEP -1: FOR x = ix - 2 TO ix + 2ã c = POINT(x + (INT(RND * 3) - 1), y) + POINT(x, y + 1)ã c = (c \ 2) + INT(RND * 3) - 1ã IF c < 0 THENã c = 0ã ELSEã IF c > 47 THEN c = 47ã END IFã PSET (x, y), cã NEXT x, yãLOOP UNTIL INKEY$ <> ""ããEND SUBãMark Junker WINDOZE ENGINE FOR PB mjs@prg.hannover.sgh-net.de 11-02-97 (18:53) PB 660 43523 WIN2_PB.BAS ' Run/load under PowerBASIC to extract WIN2_PB.ZIPãDEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"WIN2_PB.ZIP",4^6:Z&=32366:?STRING$(50,177);ãU"%up()%9%'%#-%0T&1HkmWM#?H%%%*n%'%-%.%%&n%sWSgRfxU*(pB#lGa7tS0xhãU"(F,)Y3-qbcuKHg%2Q/s-ZT48I:K\5\/aI'u5r+#g,.s]_1$jbf4xnTHe4:B0v.PãU"(xSvTvW,yBJ%?cE<:_1.<7PkJFz%%n%c7EmOaQ;$d>TSkv4\6S5lN)hjyr#e%blãU"vq&iRiXdMG6qnLkpW&.rI'ht4yZbnD:YMvqZ?u6oD4dCrDqtP40uMpt0oXNnoZ4ãU"h8fjd2KtQo4nMHu^2Noi\2p&V$/PWtFtZkpãU"SNE5$l>VsP4VT7pVfA.,\vd\t=SJGdGFl\#^xroK0*u6vp#,^PZSXRr;dJNR7O\ãU"*2QYuWFe$KPdC=&i\L\C;&t>t-VupOr$uJM2>]>Kw8:+K2-B$65jQNt,rPf_1?qãU"ec5w1x1ch^hLbiPmA3Ku(Z%G\:kb9ISORNjx&bT$oM.9DqSbpn41C,iiQN?.vJ.ãU"qa022srM'7WnH:B]/G\bZ',RN)0Mi#f2*7bu,]J&HL4Mc]5y:D^#KuCK3smK\)gãU"4];4T:Dy=qW[SgjH%XubZIaMwfMigV$A[V>Nri];P5sf.I172W0vvmZF+Ob\;bHãU"4p.X+lkjat1U2rUtkTYHCCUdB-cS\ytqAD9()iI_V9g*ãU"aW9o_zXn?7[r*c;yu*-XKc#H_qVKQpIDD*X]RAuh_2/a1kh)T$00eD;mwq_(wIWãU".q<.4.$Ox/\J7mng1vJ)O*NZv\7_[PãU"%H(Ve:#gtn#7hG2=1_AQulot'6;hwFN%BF/TG<_jTUK-)m[Yb\fr1Ya06*v(fr^ãU"PN+EWaxC$^cH)iLmpmHP,2lWXPIlZR8PlJsGsJx_SxikGmSW#fG.MxB(oE*TgT7ãU"_?_uuI#c=Eob]\U,hs9ptv/(*'E?$VF6TF:J:NJ((B_-14iyC.ACHuYG.ES=XOqãU"1u0Yj#$)_*I[)l_fSjn?c$5<2[:U[(n&).)ndPv&PaHTD:F;Rj^-\93QE&>7^^zãU"[c)d'829gyGAebs^-4GtotiWcT7QcTOXmM'sA1^T\_C7,(Q6(?mD\>.JcS&yer,ãU"[&_aUu6u,%)DitM:E;G,ubmBZ/z9KK:DU*3\%k_Kgvy]l+M>1VlQ#^/=$F$,S:,ãU"d34_B'F(z/+[+g(_]WQmg=Q\hr^CPG]XlBlHZB&sYX)J'70R#=c>KJ)+/a1T4FMãU"kU&)>bYb\2HkP5KpdKE?3th$lTT\g0DSe^.1rnA:H%pm+LBqb2j[D]Pv,FA<7tAãU"\N0*6*>dkqwn^f4L(uJ_D\]G1P+CJxD;b_=jh?^g;5UFWl2/moibHGãU"5LL_1v^DtQWshhS\*/pt91e5$^2k,fB5,sZZg_+.L:K_WG2ch0*TNnr/qR[?#o*ãU"T^8U4I%s9oByUtL?:kIj't5Y)cKpYa7Fw24VJ_[f%cP>_U3uIq^g7AKlVT0.gs]ãU"yj$+(c1nlV?<''[V#4mffZ\*cR+0[tvNUBL*?mIiyeHCS[$23E=u>k4RãU"%2;5&2Eq7Ju+Sf?KtBqcGW05xgT:B\g,/nT_*iDGPY)+7UfyBVXV*SUDrMu:+=NãU".x#Uz4B#S/)+2[WbGFE70oB.Y/nhyXEkJQ.IMT=L?qu%J8$ve)o1gpZF8kMgIp*ãU"MaO_1MZcVc1%][-X.,RkEfS;wKD6aq4fucBrZ1jm6^%mBI.P+5w%i[Cq5%5,xw9ãU"eRN?4&fui2+ZjZ'mER\KfKEK;ni?6K%crxD35m:[*#p,()-wI%Gg'5Lu*N-M3KZo=vC+=7cf1(JN#H#=#h;Cd+Zq?e=itHa?%.yb;K0ãU"EIL-F?4,MfyKQFM/]0]x/7F6j'e?D-*>zA\5F(^4jQVWc[[:A1;Dz_2fMh8*B?hãU"DYH[lQi;:5,QuOu23la0X]#jS;dlOX6Zi:H-j3U75pO]K_H%utdO\X><%Zo?SIdãU"Fk99zfy^xSd=/ajKjtE&b>T#1cyDu,SI_$*fCf<6/Eh=[u*U:K_AC_1ãU"Xs3Ee[XUIb21R[h:_Ve#0dik;9DTE9iseH+M;$B%JpgmFAS-Pr.X^YWPxSxzstccLu3s%'YE/jVR#$4DãU"'o.$4MtBpdJWxbheB1*c(>8\l=[oC7-<]vPjt,GecUt='+**aLqza#FF-'/'2f?ãU"jNd$$Hu,d9M'R.K1a]cz73J77N1XWQ3_2q9v>ãU"NIA<1)R;OIM1>cSFl,:Xbtu==y,4)j2.Ik6%&9tI7bP1n1JQ6::Y/NL]\o+&.lwãU"y)?HavHl2+1\>[Gm(%slx:ej*+F)KOQ$p'IB$c9='-3g1T'S>LuS2blm$%OVUD0ãU"yNxO'>-mD4#)4D%L/d?eJ:?*t1pCDjw&0DVP9y+-$:UC&MWT*6T_FFC\mKBiaBlãU"/jAHsSqiEvCSc.]5TN_*6aY:=)SjRz09?g(5o]_e\g0Mi3Z0'iecg)e0^.zTVSUãU"4D3*N[_'8G-$9)nci-r&NTrk,a,o(Ob^s&d%.;$$%LeWn0[MkCWL^5RI_%yW,i5ãU"=[i8FH%PK:EtissvFMmEl[B.C6eJP/rzkhKr_$AXEAdkn[k2M(]5*9KC&J21?=7ãU"W'[2f?5)E2Ue[h%CDi[v'8XHH7/tJ;woYRC5JfJc_&,x15I\nyLOtk6?4efX?m:ãU"(hjcAp3iW?3]m/RG2o\]5jk0IYeKN#hss;NaZVcMlHI8fgk1X_AOX?Pc-+RNNQ/ãU"^Efm[o2,xJ7X(;W$]C;PcH28:KqoYOBWPrY$eXp#3Wc#;;hUs3[RcMw=llxV4tGTV?ZT6'PmãU"w.tpI]aFboUyTJW8dwffX;*%0o*#XIz50u,,vr$PNM%Kh:v2QEjPãU"-+abG%Qq%Y:$Rr^tAfO,To'7.f>q)n2uow9fAJuwSARit]Zg9'l^LS_:wV2Rg1'ãU"uQds&2]W\,3XP56(pzrD6^$bcbe]INCNGJji_Rm=]4p3VB(qBI+WYZ->pWIO0qVãU")'uxRbehLM0KSz<)5nNv%Ec?uGuX%MtlK3J5W+-ftp*HYdIglEk)-1&AKTZ52-LãU"d*Y1&&6um4gc:J=V=L_XSpE=e0T'=tnTãU"$cOb5VTb]Z#$T)IH5;)ah>B$Gg#$f6;\K=e9K'ohOXYA*IIxh&X2_lE4AFt(MUOãU"ft>Y97dZ-vDal_N8#8XFmmn25SD%gE/nIx,E)ACTnkWfiB_#HEo&F_*ARV*A071ãU"nd&$S[qYiMTH0\S]%JaT_pGxk-M3tVcVh?<%0/IJyjZ$5kuR<_en=_B:;Qm;:P\ãU"7Yg$]zNZ[^+F7<%q1J*BCL>G/?>:qp[oScm+8?KsqlHHB[P7ãU"E810)'j,q8M-'lmL_)*7QxCs-:$tk5YMO$LblW:='9FV<.]Dx-GBP19ci0Mj94#ãU"Q20?q)]^pm4;of6]9=$#y6sCH=_Hh$E5?ww''KXnsW6n1rX/Kcz3rQFR_-?9jdsãU":ZN-HezZhI:EB3(>xKU\0rB))+rdhL95pYHhDs\SHSFT%m4C:ms\y+Oe6%=#FerzV#LãU"6=\70PqcL.0Q?Y(PEh>Q2QWO?#3bA8,:&^dY$PMuYR0uiIBpi-=PC6O]3k^jqT]ãU"B3x])aQXN4'3jjXbZ0BA?ZF*Ht1q&uQbQmevcD8wOf?9Z&m#gP0mOfH1--1FH5+ãU"_&_jthJ]fgu$(>YW't3l+ov&=m,Q_-Mu$EH&D/U/K[1t\B1o/l.oFQ.^Zq1_O7mãU"WTI7VQ,(ZHq;wKSswa1NBKAZ]pxJj-)Yc4_uh)Q$rO+8%Ql#zI]r.dQeDtE2CQlãU"ISMm7rQlDZQL(#ZW^hpO5U5Mve_IReC#\bgC[]1>xYTCHGbQ1=R3;A(7i?F2NW:ãU"R#?q)8h-#gzROtiANBLK^]Vc(9]S3uW'h1,AuZb2z*\Q1bX8^H*NVoI+El^\59pz:iLx]+,L8B%&&f,)XAiZYJ<6zl?Gr3vT*bg*g0yvnB[')<2zg[\ãU"'8/IyESITRVpAc_lCgoHbkh1lQu**5%tH_NQQDVFi/6E_h%pE%MJcxelCwj-M-CãU"k_JyAbOk^8cG.d^WqA4h<]l2cvr)o/hw8Bv\A;]I?,%8N.A0OzjwYT[eP3FO,rnãU".x)*_AYjj60[c,TiQ+Eb#^%A0gu%9pP3SSP2[0+gAA$V%;5D$8Vin?*Ge8^hw&;ãU"[UGUmB0RQ'u1RxDw^.j+_3=LM9hS^'C;rUT9DsBV3=3+TfX2q]$HDpJSte0nG%GãU"^pH]9Gmed:D0JEWo:P+:Sd\i5\.WfXL6ZteãU"=4vv6*V-s'dp#0\Yhh:&TãU"eu1Kr[n-F+T%vc)BF^-NSlu2f[Qu1r&JwR_%/1OuyOA2SmsHg]=l8uãU"vP+;Zg>hjh?-pOzsc/2\j\,X\>'Q6e:W0%mqdCOko*i1SRn$oEghhK8_ãU"wsC#ks>>;G41rkwHGtQ9W*/Xcwr[NfHsu&\_>dfN+fMlkziEMn&%ReoWviqjNq=#niDMtExIDf:aE^Y9,p:J2$ac;hJ(tIAII_Z606)Ma3TT:aL>(_7&ãU"7L0'=c1'2t*HD4^l9(LSinTY.%R_j7?6'>RHU2x[NhiSk2'K&POle%$L.t*j[]WãU"Yl-<.Xlabk2Tpk0ie(v8RB)TCf-_H_$]_[ãU"n+o%UL//)K-s#;>&PUc7oh2dGqPgaUGewO.rijrJbq*uZt&t:BPA4lBM0DEtcIz'J$Ba.Y]t,/l2,egRv,J?5tt_YkSãU"rkPjS&YC=2j=Rp\1EyE;\l2+D>y[H61<1m=d8QZqo;E#eZe&IFGlbEpNhNWc3ZRãU"4NJkY4[A]>7)(+%%LCEX07BSU#L?)S*5^3Ixw-7*__qlxRhPktO)lR2BgmO5h(KãU"mL3?6UeC4#Sy2R-9U%>'F^eUFST<.9&.^_/;i2(KS:^.t9qB-x1i-)H36*?IãU"<>kv+2#d&ag8GxoONBubhO/F3)>;>nG*u%3_S^0N--\VhRUie.r_D_/mlZ0md?=ãU"r9Bup24UrK3$F,2%aY=L:X5bN6on+nru$W%Zdm9DOY0>w..]u?>*c;XZo'4MF0zãU"o)+PE*\0j(R&0Wlb&kw;s8D5eWTsCNkBi?kS*GBJD4V-,F338RrXan/5OX0,:RPãU"j08;;8O)(e:HdJ.xEEG+#WJkuzkhaR'8.c7dNB[B-e*E4;GNV:UE;WeFa2Zz+LgãU".H]a2ePDaGL1t6pK7UbdS*#K_3u00j;o&q7&&[rd+B[lI0S0d7oztb\2_f>3BH&\%lQFDJH=neFãU"]pP/xOOVnU:<'8fCU_9ha%i4mwL+^$&z4DQvLoF:TprijH8Kpp*9*3CmW;N%?'eãU"pB9.,XCkFN8XwF)PdY9:;P4loiT?r3=Pv-rZNQ'JlmOv0nOV[RU^bQ:\E39vgsdãU"OQZ>>RT;IAObI(KrnD#12^iuPFsbFJaVdd$8xfneDT[L,A[TSHnW]tc33YUo$(#faxPw78mbdoNT\]\tUgj0&=W(SNcSK5HcpSV,FVT0>LcGdf]Q4wQ2\_ZGdR-]E9>r5VIgOZãU"S6iDhd9Cw[Sf1MS9>I43J%FHas%CCCLY^HãU"4#eF$'(T<'jma>j=GZRaS>7,oq/=t9iV+TWlqeV*gjgaK?jlg%tgb7Z]pEZRe-ZãU"gg/Ruo>rJ?BDY>caUeWlUk/:I6UUR1aC-Y0Qy%\LeNCAEJI.b#p5qlãU"VswWP\4pbst%pMqc6h8vL&RVcY4+\^=TOhJ7[ou3#;vVquax--,qQR=J5vQ9v*LãU"94Ql)3Cvn[Na5=Z(_uB1[5rIjD(dFFum&W/8*%SKe/zev]3GL7Cr#>SB^w+H0GtãU"SjZowl5*E,2'pDU0+$ãU"q76:DW*CS&BPHC>ãU"L+.ba+lBEe'T&(I0uO)Fh(Sw[#,T8WP9aA>i0mAQh-?UU-$IvTmp(s.2k-Bh&A0ãU"+X6.'XOXm9VJ=*iq>U[4:/M*mxYdB67HyXPN>)sv(8MQdcRrQPIT4JE](P6w[ãU"6L2aU=i.QolB6f1WyTuSlb;lrIBjZEm;S6EqI.7xpE9.ãU".jSTv6tg26fH_MKNnei_H,-+uG71M4,E#'g5>B&br(.%GJP;4>%-:_;5)ms]jGnãU"oK&P&jw+#0SsR>)>Sd5;N9Znh9/GJc)MxUcek&F2/Up*R.Pg_Vy?MVjdEeJ*;PjãU"/9oYd6D_CAcL)r05u*3fuKCeG&[>]JR]x.5j,eg*3R,:FfKB\_;V4d)S-pITIJaãU"J%n,1.E3nwr_g;MdnTrb_56o2Y%Cr6=ds?X(H>%>a,#1U^-J#T)%H$xYu6N%/-(ãU"qEm*MHDb:?7n+38KFgO2TB=e[xK*so%sZc'r0$)-9g5R7M\0ehYiDaWQ?,1dr]_ãU"o8;4B?bWI;'$(&qoU>\QM<.JW_get'ZS.wvhLUG0)2t&r_L1.T53-q[)W>'Z.Z3ãU"$5)OrKp15z1ipUkakylQX=/&+bn_]Ku:d>j?)8sK_DJ.\_7D,F*mDãU"e9JbLbrngbKe^kW+fBe*m^If7:y*cdnhGnA[?MsA9OsOPliDaeEYPMCN5-L&W5nãU",h=3y:=P*pk]928(166z^lh'z-I2^WV2/1De[=mzr%yAZ(hS)nek2HXU.XhPHLjãU"oxY6w&-jB\TF9Tq8bD;9I/QNwKQsN[^XQ2:unmt]J=fTv$wP\i0nInu.\nsT)pJãU"rrko3t7ej';yNwy=ZHQN_T0aQT.z&6?6is*W8\q(h^Bze?j&D;i/ew32>4\Y[=hãU"nJ4)r:D8+g=bn8aBc<#-B_(t2Z6IreUbY76Y[Rz/-I9Hri[h0A>ELEk['A[d\mqãU"c62(muMR0SgC&>I=GhO'I/^=Q)G5^Xl&WQ(ve/JFT/JAFK&Q0]d++%PP+Y\itnaãU"J:%#]YT]1[GmoM[tBWIVRA+Hp]mrST;Ze6PomD2Z6'U3\ktKqYa7UMd=E*D)?.JY#]4,Gc-'t'twIe^KRTP'&b.(_J'TãU"1I2[::xR'(['.oVPo^9A)uae)?N>:lG[eA>H-Pq0br\+jj8>^\vRh>(QOjR$*X]ãU"q%]qbco\+5QKtD\vT$fkS-i2s(_E1EHXZDBbQCS\W(\:gFCIDak%U)xrHiGt?=8ãU"GFGlm$#KHsb''e>QvV&xg1**,G*])eIH%C#($?>bi#AiT0QU/3:**BIA0:SwC-]ãU"?T&2.9Z3TrjQ*rãU".X$u,RI#?wJY:b^rJ_;J_I\#I#^=','n\/m6H+XP4#.gIoc#XWS\I.S&tJep\s2ãU"2K=Cj5s\$;hZ+s/EO#Px),Iiaxu(+ku-6j6U?>MOGXyqIIAM$,*um_Gpv9po1*+ãU"lxc+M*8(6dTHTG^\-dO\h06WI?=5-o*>uS>BLS]h2__1/9O\q;c/E&'-eZAW6%%ãU"$>TYsi98yhdQ?m?-vdf/9iazlW)LvT:oUl4*(4M0H;Ad/S;6cF;K_pjnLTFIE5&ãU"aH&r%K&[k)Tw>Us2i40j%=(T8;Lb[bASALDVd*3hh;n_W8x]^7P=i'O*sh:K=.G,[yjI[6xE91uSSsz&Uctkii5.zSdO/BXY_sD$_,ãU"X?GD6JFYYuQllx&SA]Z3JHkM$RY1UGdWC[=e]=mZc]r[I+]4J$UT]3z*vy_e'/c'Ubiu+hT81W#eX&EI8SW6s56p1;g)idjk0L0:Yc%Aka9)B6g26?g0ka\C&M1/jrSE[m-hWOf)CãU"O>pK(+Fj&?P];akqjS\Z'wo>;,+RCQ'gjH0]j:#_*5QffAjxQlZf-e#+Fbu'tR4P%.zãU"33XP9q\m'5p)j4W<=J19xzu>W%z:4:\I>m-ãU"PO1VW5Feo7vTS&H[iIC?w1t4IQp?kLi'UfCUMdWCOLkc9,MbrXk%[60jmst?B;eãU"x+QD)]XjM_U=u;9(isqgaAvgJC%vXIgr&NEKZBK*QPSgwn0R/t9l<5/K2OziH8-ãU"_3.FGX(W8s4Wu3BX]N:,/O8c\&(UERuD1%U2:x^]i[_e&C9pY0I<=^'ZwjspWFiãU"aS6;3O/vgy95r]N*Q2skSQf:$Bbcb4(nF&-B4M$$nF3Yh1&(N5+%uEqq_1D4k5pãU"n'9%gIyD-)LocR#89/n;dm$sl)e?a&?oI4b2?LK/G8.mS-BB.JrK8D*wmUS-f-%ãU"]B'TJmL/V/MI<32,PMO]V2nx6]=U&4:DhJpI+TUbQex#4F2Q$'e2+D)xndlRxSiãU"scMEkY:/KQHS0W/khS%#FjEoeI;K7glhSe[\HdmD?U8NWIIBa9.Ee-%kTYRJgJYãU"zJq+G]yx.GKb0%(/M+:B%0;Dk^WfRS/:b:/U3nf&m':N?&YqCw]SsRXG08jCI5JãU"1WXdua;4lm77K/Z]Tf$gj1s,\9_x,DUUx^r:]zYVG09;1U&zeBK+u*:0m1>L8gpãU"+'n*ECCpL,lKi7lE2o6ZDul][kZ-ZSqR5D/N+b&Ed8m;QUwS:62)axãU"-R6,S17)p/kIVD)^H5Em*mZc(?.,X';9iZCmRx3idQQe'ãU"8uzv:TTZcJ(uMqM]Dx'TPt4x<1V>%/iJ31JF4IXW;B7-)#M%;R%3,RPl,)^GKn:Zw\N-^HJO::^3f3ãU"/EQ)awJsP_)1nS*pv#e9oRkdiR?jc6=lw4's65UI%O=0z>c%R^GtãU"\ssWV9v/_QyUBKQf0d7KCd+hc_VMG/?2nsCpq^#sTckmV0>Eqo\Vt#%$u]?U9&*ãEND SUBãSUB V2ãU"LE=Zy;+1R*,P^hX?Nu*?6uaIyRh7]P[G^+I4<.]V^i[fY2UPyqBe'kz?pOs>jJ6ãU"CUoGs's(NqLgW:&FWsavj;g#zo&S5iCsg/kS[43.&o<*7TePoqwn.3H?9[wN3v_ãU"*[ZG1vD%4s_[qaSsj[(e(R2Xsy]*)dB(l_$=/l+UyVa_#K#Rb#wYHOSTBAZ0q,BãU"FoL+s'Uo*[KPArXx,K]O$sGA_Hr%blL:]T)YIk85gj#G5'fG1Y:cU>XGb6(lc=R?9?[r:Gm'U+<IONjEbiDIjsg$:VveR\RW7)e08&kE&A[ãU"Au8>o8T\jjL;:6'pjh#pAO;mr3N)sbXCDI-/-2$<3/(lLm=l7=yMwy%[uãU"b,7/J;-9S&;[;Kk+2SKjaM5=r3=HMrK2+zpl2%?qy*Mk0UPfSY,9Ah,?CaH:=MpãU"WyY59bbR]S60i],Wt./-.M;#Wqia(L-OU:QGk/;tYffr-K3.P((9$p7.+qD6qIlãU"#88p&jM,7sXp2DoJAxS,J%'(gt0gjb-wgjP7%DHEM71rS7r:6Ff/3C.d/&(_PGUãU"i'QY3KJo01/fXP0GPln[za/ruB*Q=u+j7O7J6nFL'u8,oaJUnXtXazr5FSDsH)bVona='0=ZEFDM&+fj?(vS7CR$P/tK2p,P.l7y*JãU"8Ia-V,*(9[/MyCTRP(su_I*%nB]udQjGUKmxhIf)A$-1IMs^&hDW0n3]_a5t2KqãU"[Q9VW7(j-,DZa1*anIECS-$]8/^.1i%qP25?>:3#S9;aXde^AeuD-iS=;ND0+62ãU"S0W/4),LPflPj?+#(PN/LFvR?;')6x6ZS5td31BA0(84lVlYJ_PQUylq0j\qPwBãU",dnFuVWsf;6p]0>\MQfq+BkXP+'gk&^K'vHkOkBhG*(SxyS%B/x>R5W]9OEHLd*ãU"*2zDWvmYi=s6RSq5O^UC1wOjhPtm\br-vNI0A-Eh#A[RhPAoraO/h5ADHXr]#+9ãU"A#1$$D9g-L([,,0RNLeN-i+%&c8syOSB)kGB=mãU"E_Pkg']nVCD%uPz9F$Y+MoX8_9ugQA[sk],5N]5k?mtF]&br*Q72>9ZKRJ28czRãU"-(5_3s*8?c/.p4De$Dc:8r[o(-\93&4Au9\a'm[Wem^_.-0Q)IãU")9MF2$:nNiYiO0)XaEk:'sTq?5]'5ZdykNoi8&/l$*N'4IS-5,yzDiriXnXXOx<ãU"lfx0AxxO6&[-lOAN)=.m*MIqabSwI$>$FQIH'<:tp\fT+X^FAJ>GD9/QA.jGBfEãU"Qs41^HkTLn+Y7EIlzdHc7)mY*,<>i3(TRsDgr9REc(o]WQS_0ãU"j:<$a5y#.Hh?YL:00[dUwKeKl5g^UeA=cb3#m.f9hOoOBJyg6u2ZJ:ixSfuZ+;pãU":MKH2)&&1qYu%q[2E2#IA2$I:e%1X:&]6.ZH8KegaZ8S[_]#.dUdr's'nC??ZcrãU"f:mT(8ElSiZEj22-0=SX6JG$ml#F:gpiZHOVãU"[NPtO/b_R,]vo\^NEBfV(Exe)*de^^]'JdPwB_;%i-1#iYcx)Z-;cS%b(w#6VEoãU"S,q$S+uK5VgCOyjd=Q5(,6V]YQ+UjfKIOw9sL_'oPQeia,8K&=lgdWSK,TpqB')ãU"HT/-qOyV.XhgM.^,i%+^JV/>Jp?MlfFjDS$BcMUCp6*>G[IdB?3.Os?vEXuk%JxãU"4JG(0J+ibnfPG^L(<,o8d*hlm/y)A*r\j(W821u?K*[pFZ6wtc^1$R&eFO.C+66ãU"I$Qd)x=kMHkM,>\wF_rji4\V39#N6sj:dbg]QIh6bSo32kRn)%%k6o)]cw%ãU"B7(P+kc-;^Gd)\0B.XX4(urq&ãU"B[,k*s>^.hqArvlA\RL7]5Ar7a&9n0e#MNud5(9x9:7EgAXFf93x#\[PFlA*yr^ãU"0H\vC^>y[MHav8Zhg484Ymp?gyP5fJ]rz9UF$&BVB=%*0hI;tHh,;aL/ks[Po:mãU"Z9]Je>-FmVK45coA1*8AbfeJ&YI,;^5:PT6o%hLL0UB=AbrDk4_HEv;*i4x3kl)ãU".w0%g[m\RSuYD;ZKU'pwpsT]6*J1Y>'H'JWy7mZUrkV=JISmg.r,%Y-p]YpIPI]ãU"1A>wNU9[ZyZ]s-*He++^866gGd]Isvu(83Jc)xXf4Cq-G2_krZf??;w#lvlQ]uwãU"O-&BYP2AE\e;ZGS2eVmdm-M.QfO7(PkF8W4mr:^ThgNi[,=^gcSJ/:;R-hRq*YoãU"o(2178A03.TCdn:oXl:I?JVh2PEg>G7OCRBEc>p/+DwJ:IZBQ1)'kkkkS$Vt8>_ãU"gOqEOkCZbmv*g4[uHNDXAc':qJ[*RED.<$70mb;PR(1NKC^EãU"eS*PmS&$),YIfY2Zv=wajO]#M--;U+]VO9Zl/;r(DK<=XaL4jr]MMj*HcZhYZz,ãU"ANft><_41%ibkm$cWE_2F[vMc]1w7OWY8,uFhx-Ud]X^U7?1H&t6]K'\CIgkSE:ãU"m?eji&SbdU,tHV=;H\kVaSw/=B*KX?lhmC+SQ6V4fkEb-]cT\*X,HFS\DbR)jQ%ãU"HCZa0bJLeqVPDFrig%08/RQ3OLx#(,z)Tp#KI-W+7M[JOqg*f-nK>i-wKl&dPBaãU"8,o-W5t;jLbcrB24DTKvM08XQE(RiX2S_7+D]SoC]n/fHGdN9YiDQy-X6(d.YpwãU"N'JmNqhk94'D.gL+b%DoZa5%L1e4a:bal.ucdG%>J2Uy.0r[g;:KQc*k+U*f6wTãU"xvGpok=tlL%_YSP1d/r5#8p=k=k7Up_^;sfcR0m+wH=%/ZOpXj(ib:oZDZK.BWd%E5z/CdD[z3.wbeu6R&*zbE:waHeJO8g*B+%Gsi[;qãU"#RgC5fsa=jF]2vg[['5Ms_dCMj]<'reEVmM)JgIP-5[-T#pHgofw%jlA9hHIknNãU"K;WV^uIH]%=;YN:?0gv(S#S?rXkA60r?li%rm]e2U7sV)-el/gq7CVYL.MNb7>pO*o[Mf0z3X-]8Vw=LaRLmkXs?Z+Wr99VX[SãU"8(0eFD=Sx3.LN:3HP9(n33.-wXvKRDRD0&+>e5fK:4ãU"aDAamcnC8bKbQI^BN'L6Zjnjo.(9y/DW2Gi_>Kp0;]*t5blP<51$.dh81j*ãU"xYjG2]p*>A'jpQ+X97rDwLr+cGbNZ/=ch[2poPol:EYWB:tMc-:C:mu_:gLM5L&ãU"g>9Q\Ki'baz$#IQNUze3LyA>\4)[6fd#ET#O^qc2v$hkkU'LunRzbj>u/%\0e3=S\N[<:oãU"iC/nCe:h;>T4?vC1S?>I\xBJN1ZKQ8wk05f4iIR]-.O55;,Y?]YyDE4Ts-p#00UãU"fg#h3sy.P0-O/-?;Y$qf>cFS0nQov>c0(Vev73sXFH$z]:P)CLRIZru8B,BK#qN.m.5L??aIuJIxãU"%7PT9a#9A>3v#D3w)6k**9c1Y5D(R9NK>TrZuIQuMIdG.%ae=fPXf_Gn*9rwWn0ãU"9Is/9'yjxM,swjecNe(crmQQ.'xLQ6.Gn_cCD07?=4xg*/CF>Lm,E:N;nvGSusdãU"g$7yr-JfZ:yjHstFYjgUh6:widPPW3aEFmh,Xe+U(mtbSl2Od(x/1;_1kLE$LF*ãU"';z]Ob#u>zZxR:*h(u\:k^O55Jx7qc)pd=ajh0Nn8c6XS&uK<:7&_NaEH93d>,KãU"(*z\p?:L5uYdAMn5u7+oV%J.'ae6ctjS#,CH9nR4WM_r=6J$eZ\6]8qTEy3pIWNãU"B>,X4_7f;*:,1nnj^D:krjf3Vj3Zb&lu*,]UV5Y)86%_2wOlFW>jMJ7h*uaJY0^ãU"xu7.&>n%%y6UjuEV^^)w8,g;=(3?POPeueyXIPArãU"b#sCb6B5W3xII^x1>c7hUM:$kspfsFE=EQa9ai18iRHLDxd61mU_YELr;IYqMIeãU"%ybUKTGTG^A-dOJ4uWaLR?5'Q>>*dY(MAm.U1]49$-f6^(iiyaX0/i/'7gP:[5vãU"]gDj&*MmWG>Qg]W6[8kH7ydb4YVU74r8kY7RLD.fq2<$7qh30R5mIa/3]?QHH=NãU"/15HjnZABD$*?'=AE>Hd9^T2WD;ftuIe%fB*VTJ;6D5s8rR:+Vo#5cS3DYu^56HãU"?:oG$Re$>yS=WPB114>X,V;K6;+&[N&0_uGX-P;;G6W%tUl#Kj6s7/)m/An#>hPãU"lIMst>I,^ah_WM>6>HU:/GhAZxig%ga'gFEBt6*Oq/5)0/v%*0oge3Dcr)YWJ0rãU"gXVYS;$1,UQthgd>T6$1-n5K\>le-prr?TX.bce(+-L^4jBQqeGhC'UH7.%)bddãU"Bq8w+#Y5RBXqE%6Ddn0sj..:;MP4fb#nJ]g+R',&=)Y5dci4e*2F>3GM5m;yBFabmfAb/Ak#:FLd*#3rãU"$A6zH17fJA'=lN31^W]^kVo]sWRoH\^^&-r;xA(5?GS&0OL*)s)4q[aIv#BragdãU"c>XiP&jFO4UE]VEH+00u%i%H#FZ/[\q^2r[u\r>IOaOELcD?dWDsMj&)-/iUV$PãU"DK5qR6T30z7rR;WC:k9_#n6)Cu*:qyu&oX't&xmj\HSu(6I?iEuk.KXwjp-/,>w$4v1CãU"LP15M52>/u(3]MX=&Q)L(ZKZH:<1H'lC/1&>+f<_fTY;/y*'e#OgEV2,^]t;$;cjJaQãU"Z_qhMhezYB&pkx#21)GR=:GwQ/E05NDW0p7t.kx*pHle+?a9CJ%7B;%us^a+zdX80YjKbAc5oIpcqr=';,Jb_16RNRsZ)?Ohvcs_EyC1WKãU"y'Qrrd2OM(),9Lcp*C&xXVm8]=+N'AãU"DzGg.R.j#C81JxuC#e(mFOq-yo>urJBDUl4fdo7/A(j:/m5S\W/p(9fWUksLx^4ãU"B<6yFVa.DSNi+BN8r[mH$0538yd;UMGãU"hNN1hog^xrUzM_X3E[vZnmXs)i_kg(94LY;7Fwa%SVw&=\.],^Ed-#;VZi^*ipiãU"0l<.L<6.pdnXaNq'uUj-Pwl?NH&[yHY%i,JFJ&/ãU"^]b6R71$uWZ-*]WTqJ*)].604ai?]r'(-LqF8pB=DGHh)>;E^b?X)L[\$#)nuu&ãU"<;#DdYDMYrNxI)o.y[:F]Cz)'$%ksp,^$LãU"_N(fvqe>Z8LIGblohjgRV_Z,r*\=vAnYIjtw^<+rs]aA5HR2YfUMlj'hG,n+nkDãU"mu(Z)dqILUi9igRZUWNiOf]jSsDa,93<[.#KfI4CY8%eABPxA-r1WWJ[s/+WeJBãU"eGtW2+KI5h>:pSfF.(KVKizl:aIKVZQj/UE$k=dq/jt?t]ui,Pa=W'4(3zXãU"dtsoq=F;BdE]>.;NKVW3+)BI:61.I]Sg#S/\dWd(Jl]=XLP*o%Zy#chyz7K/2Y-ãU"^R#k7rN4(>cc\CvuN4X_.4h1=8RCC.]14QP$?-PfvãU"%(cek\LVAepc-0#8#IPVpxq)^7OY'][h4n$y-^./Ea1OzLnxsZwOP$,(ãU"j6,$Q+s,R:U[i6Adr0LW/bpk=]dd-mCkXB882$EFg0pk_'rãU"w#9Nr*j\/KeGjmHO06)#Yec[&oX,PPbCc[SpDj%.qIWPcjl/am>.HV-uVhF\Mi;ãU"3KL'9:'aUIl:k%+64>V23K6?;P]Ac3Y;D=5ao8O-&%r.C;1j]ãU"Ust0'E)5H]&1i*8#d2-_B7l.]t46,]Y\T)?=?h&tefZ>qAs9?WHBmuYTGO6qieaãU"+e0%K\s?GEW9BYYhiZRKLX$aqAQ&^uWJBglr4/0gBKzb*b8QeMxx_YJ482f;Z5vãU"7=1G]5%)dAB[Dxf_0KhvI2c2.g73n\CTYB7M+Xar%[MFf(2B^zfeAA.:o8T\jSvãU"fh#U6aW%glhV(\&dvrU(Ar1I(REqmvv1Mc+2gIGt4by#,2'17&]]((tLKko+IdqãU"[w[grB7):)jjNb?4*2G*FaKbp9n-?;f(Em52QTq5#YzrL9uQThaMDaNR_=AbV$]ãU"_WJfoq8L7QtHE?p5dQUSOFU2dXYIOC/$dP1NNMROxdW&7;-4'Gb%T2uAs]qMw^dãU"OjSPT9-3q)OojJMszqvAq3t0hzbO(#\15D?4x7:ZNZ44,73'78tRl[#Au66(-J\ãU"yQ91a:R$+bhO_MHBCMPIkw+DaD';()-W4;ZpykOJqD'c:pyao4+M\jNb3#lPbHLãU"*&6B_Bt#dsk>BsDW42a1GB,Ul43jV+&D3IWj=R#bhH^H%;G4KFnDYo7i=pf]MJ>ãU"8gOqCJi/GK/qJ[O%UZBTE0NsMDNhW8odQD*(M;%m>NZ:oRbrP&q0:9zdN+aQ(%tãU"S6p_>bcMGB&#\+pgw6M.UDbD:;.Qh9c:)Nuuf:BHgYtOwj1%gonG[.DcGBQj$&E3rqR-..Z-^t-lbK#B\9VHBlSj+bx=g2(ãU"d3.8GvxLPayqAs3vYBd%f['w>N5JEW8v[QgO-&GWR7ehzEemt%6?0suA*_RxPX2ãU"l+.t;TMarpIYktJG14%B*i/quoYXHR5z2^8MDZ<]il9,l\iaK>h'I:^XnPPgDJ^ãU"C)E4PK^B:uF79nNd/7BY&9nweLP7&]LOdUx>&.'Ry4NR8Ynokn?hey4Hhysy[KRãU"CKfkbC]wN.AlC_x1yRWDdWbLoD'vt4<;GT-Dc$K:$A1p4(/*wb%'eMDr,^BdmkZjTK>>Cc3o\BVo'+DB0fF8VY(=/VgpYEm3DãU"$grT$7vdkvS&o1e?+];+)ibqf0$NcALZWVV&NOz1*J5KRP2bN><2And[oKN6_h&ãU"ji>yV+39Is.LZEmLhK5SW>-[G)lPOS;^PWk0/.w.8as14kLZg)T*bNk+d=r5XpR_D.x8e\.IWRb?+rW;1;$lãU"5G.Nd>?Sqxju+X1&uUDUa\:'-&1_PR:wZh1dIl[T*\T4G\&\ggYvq>:CkhFfGqWãU"bglcqJ+S^q=#*,=>,[XBlu4Jl7=,<\N:?aM+-3N2Mz>Qm5'\un^:au9-nYx5TVyãU"xJGiu4jE[ax+BsM_kkq\raVAY'qAoEV0eO,w?EEifQdOauAB&>w+6WEw>LwC=5]ãU"M1N3^\yK<]:5^_T\]RB1S66'k4J]]bi=-6?6Xx>O6-im58OL3]c4Lv\^gnK)pT6ãU"$R9_2$+&+DKE\CW]]=woL%i^aA+l\n?ecdXv2=.3WRmc?$Qqp2knMq=8t_jmj$KãU"=jM&HBV^c>C:B9]kg;sy,3ZA0Z3>FAVgE'l>C)*=%)?:78M&F99K%;wc\nt[BsJãU"2?gOX8FfXDfYom3B;o#)e8T>/HLjDO;cIDGAAãU"1zR.PLOdqU0.9.FZQ9y#R^As_*J9vXW>Stgew/PunY,EikHv7:CcpP7f$3seQDuãU"xhc]bWmDoc>bk5N08y6;^4)7-:tN&[YP:\SrE/p,SF*d-12jGãU"&l+7Q_-4,SeUS^gkn3&LoYf39Iq515:mv3bN:efX1C6Tc6p[=c:2hH;WHãU"VW,Sca&9BA+FJU[3rtCXR>jK+yinCF[q$C/VN[\[64KK3a(qNdFIE4HãU"L#aU=o\ypL(fArcH)fypaoZto.sLB##T7[x$jpw9NMr3bkk#+\D]mAd0p_mGhE?6US^b/6SPu25hTULI\UvFo,hIcj>rkBmdLij9G40_RCTV9xeãU"N+3*98O%VkDU]d*$M2vPDRyE)bse>6JXgb79Do=ZMybupELSZ.Rf^BiLy),&ii,ãU"kG,zW_pf,jB?PkCaãU"S&islwQe*bDH;+31YM&s.Wg7j.GIJãEND SUBãSUB V3ãU"^9n_1Ur>C=GucYOLcfrU'/fPB6)X\'rA.%6WXkgbY<0mcJ=X)u)6;PfelSrGE#/ãU"I7Q/vD:AiZBCnK=OO;:hsnAUZnrpZ4w3^PpA?RRn6]Y9+G&)h\2^Ebz#2o*A7N^ãU"CwPo1et;^OT][/.J03awC\GDcI:-U+SMP*+]C.cj#E*8]s)cMãU">._zRYK2sI1JxKSSnQ/+vDeonz0K$OML4\ToPu-x(+2=e'(^d$>C6v=cl.v]YnHãU"6>bXlMsA$3RrfES;Mf_mdiD'LV=Us2'Aq8ywI#JZEGZ6.-G2S6bmy8z?9.T\e-3ãU"PsGhQS79dV]Z*yb:A\GcZ=C))Gi+1t14#X35_IR%k-bzJBY?(d.^Mi'L>xe-$A4ãU"+^isE?sRh:%n3prMLKgzY;YZgsv:Nwg5ãU"QDibj>>;NU9g%l/5ju.3,X%U)$Bw(L2rn8NN#Np^9]a_ZJd.V(4'4o9L'6q//veãU"z^%k4T..jxG\_14]L,z[x_whf%H3SbQ<,z\g)o],t%Y*?mCeOl2%>V5Zp_Xo#uDãU"anEN=bxbjaOw3eM4/K2BKgZ59+e#_9A$vkp-/wO))4dIfuzBNDopTlLFHEcYuQ_ãU"-,4b3%nRb%*8^CKVG^(7pd3E4C[R&FLAu;DEjQKWv2hMG&j47ãU"X-v^g]A;P[al%8+;K7Wht[*gfTp1?G$5H]7CllXh3APST1iLTG3Dx\J+6*ãU"mb2XAr.gaVGSTp;m=9&YQ?h80:sQT^iq,dU5(O'9^;q34KVmjB1?CG$vKRHZ6-EãU"v(&.1Xv+i04x^YdGZw6\*=+Xp$MOa8]UM*k>\TYZ>Qht#1$^E_&iOQ\\J3ps\xdãU"=(9RsDh=Tc'/pOl1O,NzOX=A-dJQY>mK20mG+2W&D..vy6-\eGt4C--$YDntAXOhoãU"IGG-n4marnB-jnIB6<*F\Zg>i_1S\V6ZUYmu4Gm9U;Y(+E(&Zkjf3;k;=>m$)ceãU"r,PH*Bw1<28ij3;:(P29N/A%SQ[UQgXF'U,ZH>e<%=lWãU"\gVBQ\RaXwh?6P([..RV*qo$IWQF9/^TKug/N%SqpWy>v?%3VN[+oPiih;D\&DyãU"Lw4=(g/A''-+\rfD9pOJi;F\2/%?dk?N=>Lv7^1Zp=oup=%2PFF)mofbpZYwmENãU"BZh<%ssT'B_izP;<0TR.Tp?YjH8D;#h_Q.c&,iK7H.>A,q#7n*6fpR>2A8.Rr?=ãU"K*xS&=(..:?]d=r+rtN##f3tK%NON#K:QcEflMV7O.I50:emD^?7ERXQA0zhWLPãU"$Q'^mrt]CdxRMS;%59h0yc\d7G/]8G5m+Hkoz%j,h+D1Lvq0^S)LfbrL8]^.26eãU"a;ZHa%F+ofe',u1qloE7>m*b:mI0V'%pY5f?s]NSrGv)L#i_eBVTZ;UKjPEKE3JãU"EH%&;El%Lao]z528X<-Xc01FX0XX3p]NQP#rhhOcEuNVHM+G$s5[vkãU"Hd/j+5SPj]ãU"-OW7]U'/#cCG55OY?>eMnFUFpoPkkpFRVA;^8CwexhMq[)De4r';#kP>p:jj%N_ãU"c:ia0IqIl.4eI&'\)*2SOj-&JIH&ãU"]u-on+dq(.__t*8JjIl^06NcO._AT(XCU>2oifxmO'e4/]va)fdJr5IesSpn7'SãU"milDPQY%mQF-C\(i=1XNVrqpP;YCDpg:SQtb(#a_p=)1+5b/TOZVO$$Q7jBmU>Xkl^6Y4&Q32(5z*qK_j6X9&ãU"I;QS.sJwS;)DuUEUOsMlw^iDM\VpR1]%DD?;0;=]637\:5u?iiD]_j/%RwqfvPwãU"V$mF\7lv8XRF$/xP/7ãU"Bd5Y/(Ij2:6*Hr.?Z/9fsgn>2I=uJY,Yrlz:$BqxaytYE=c2-,sBJJgRe8WY&g+7R'd]u:U=7a.20nOyutAoK>2G9H6?$E]XãU"_X[?SkWkVr<']l[(PTs)sjWL'DF)cTp%Ytp1'VRITauC'X.?,j*21[Q=hL.LeiSãU"gEL1TBYI*;EmaaK#d7;N?WY,>:?A:ZjEm)7Bfd+f-1p*^LCKb;_<;[/k\I4,O6]ãU":ho']9#.TA')z;:IgG.(rbBrKP6v/FrkN-N3SkZ6CFVU4arGo8=[*bSUe^ihoQ+ãU"VS3F;fK9'cL[0VEWA;F:qO-^6wZuV<%iyuh%K&_TL5EM,YNzM9o5#9n2HPR[XdSãU"NnIWZ4)2%\B=Y2:J3sbzekDdx(]+,Y^g:*Y&h3**^kU0F+]WnkC,I:1;]InKMa-ãU"A6#I1P)I8=w.Xc/kK\Hdo\TpUh8^UiMbm<$Kwo\tqXjDxRwounvl:lYsH+6AULuãU"f8u^;nRYTcxuTxpgNa$t.wkHuxo#xTqXwR8.9oTp^8xvUtNs&>lOsl/4R7zHS8+ãU"NlvdnwNsvNtu-xw(cq$Tx[qd(ob^qP9>wYX*$v.j3>;jidXzn83kZ#QfN[D)lW9ãU"9oNuurXwYWxE7co864lxu>mT$tcnRdxMneXeUR27w-,_SNbr?dD8CPX8*TKUu9;ãU"+86^Ce8mN*7jmY*Hu$4X5'sN578H3gDS&UGK^=Wl1yN[UKa79ELOE?nbbm(EswPãU"J#7='='NmB.,CwY2?&f3GN=$b743/,:j#BWoKOW)eTJf6w#HYe=-Ye0j'P%7q/VãU"-WJjdV5kA94M6_EnGZUWdK8*/2z[r=*HRxZ*Y_=V^4g?.XxM*Mz#g5bEnyMU5NCãU"4dvP'fX)H=Aj;:&7Cd(^Ax23wv6HQbMzu*c4Z2Bc'ãU"t:3u(/8>3vF52y)(yE9\]k4ZX,MZ7-x4=DP_o,iK?;E^ztEF-TC'5.UW,#l]K+QãU"vn9oT8VfBuSd+GJ%dB3D0H(%:UiPqotM)lr3OPb=/OAA&+QãU"^p/NQ(/eujd7es)gr^;q)dA4-rãU">KEf+c*1>tREOMzZvUng*tfR>_77T<.wbXoND]&)*vboo3$'UF=Joau]]0)ImV'ãU"]$e/][N2MBHJB*CHwf;PQC(nNO2YZdF,]$qGYl,rM#x1URJo56<&p>rFrqY_7ixãU"XpEv0se-+6OjTs$2.y1_GFfTn;-7CIf>:BEIRLZB]Rs+$#q)*e)$U%zq)c$t2irc$ãU"\Q9T?c&Pl:e2jMa\\)$u[8ySIKMI6WuqU7c]8CAp(c4C^2;(SLUR\lceB=)?4&cãU"Te]qU&DlGsAZp&lV%0g9+J]Eruic^6:iZS+*.KXb9*'b.G=,JbMH0FG]Fj1OX0gãU"c]DRmJ3L3'^ndT$O*H3ãU"7%KD?8Lbs;13=jGKi46W_OPolKe'SzZKd&&RE.nV4jpqL-gAAj8VpXwVN_Zqfe=ãU"f)Me[>NTQF[*mGl',70-#j576(4P:56<1<_'T.Pe8N6smPceFIlj;KCj;-F:ãU"wS2*0*nS]'72qL3b&I*v40L%-f'X'\ScL6jDyshwSDP(Lt;zD(NFBc&v+mALXTvãU"INT>9Ov2A:P$NjHi-i[\aK3$Z#>#cGqxVEBU^3JkCjy1F',L*;c.8wRjy-G,5asãU"Ih&=&2]4;J%Wpb/7km3X%+buki>6^)'PdSuv&u;d.^/z#SBUzQCãU"kE,4;(G*qE&C79(BXn:AU]k#1PfJ046f^7UC>9=]Ri*aD7f7kCU-6%;i&yU%''>ãU"vyU'Z-q2SyfK2zxd2/\\f>FWHV0tEg7qKkAN(Wk]$.+3iG.ON=G#^>,>_H0t$ePãU"sRv)W49$>(D9NFZ+H-EiNp\ND0hVxfj*l:W=]PKLl:m2Q.e$)%N2x)4;6Y=32v<#aC6K+ZaV=UtH74SEãU"L.(;9'ZzQ']nr7%1P'-tRBj7]pZ?2q?UC]NyXN_wp/l-Ai*Xj62_b'']g,#nKKSãU"-8HGRp3NZO3F3ttXHRRN5-#(q^[HQ;2X=6B_a8$:]Of>lHl+EArBW?uFsb&m)o?6N5R8/s-].ts%M0IV24ãU"8x8k$G(kgOYwO_7AUg%zGGãU"'03k2IOX'L=[#:MaR71WZ9*P;c\C+MK^w^Vb1,2C&Jw9*g;TAmhbVG#g6+'w[vuãU"nud=L:l_7yk1$RR0<$B2<>af)?t(GD>dJ3&YNNP\rW7;AZ9KãU"V3Qv=3u'571dtF,B=TK^KHA\ku77:O^h%sEMãU"8r[GUFsq19cPw>h545U]*cvn\_mJn]X6l%WgT8Kr0%Fj:uda964N5.*Q)igf]l&ãU"#m<8mDNXx(xjmigV3s^SY[WaDd+3W;.I?Pja#k$<)VLzKaB:Ua9ng>5:;EQtDI.ãU"KP<8oi)WvD/k\z#qW\.dMpPqjvaE?k99N0Q6Yq*c$nz3W8kNEhMJStn%/8OQjqNãU"(PViZ?;JHFXUaptolP4O(ciQbk/H#LGJzpGL9:ãU"c94k'&5e)prt)o;(?n,[e$IDb6;qRmj-b/j'eW(3xz7k^s=#q(9BpBtG$GT7t(AãU"B.Za>r+JT#,9<3;u&?lI9EãU"HT3&f4s1Gu%6hIE#g>Uk_HiaYyFgQXOp.nE0d&p&S4qHVo.7wKWI8r4*^K)--m(ãU"BmtKE\XVM3nG:H9L-daHS*daT$i?2bjgppF=Tbha3ucYccTAQ($BJ]FL\zD=cZHãU"auu;EcvEgxd6Dc?tlg_ãU"rS4Wn;w,i4vJpR,hI.6oE#U_O/4uãU"JbF.X:_Td)^F0/-pfJRiSei2U1Z%lgjlMLOM[/QWY91kE?Pp8cdd=\nnoAD3S]]ãU"s4_nOnD4kZ4i*GX#P;+GãU"N,:TgJIrssk=jr?,nMPR*l]a3iQrJA,B<%)&%/wW'fQmGO5Y1y%)s)qt*0=Gi[vãU"JU93f('rWx'3-U:5a5'sãU">vJN7\u[J:BSrJVj^>7C\#kEu:16'I$r1$AF]CoI_A0Vr8W(%b5J=Bj&)U)MM_v&E^jLO/ClVUN8ãU"f-5LCbjh#g;7'2=)o$g>9_m.6;C+&Rvs-AZK0X%lB(&M'tArx_'Hk:cqlEaDKW%Y1[5=n6dwJXF1eP9HIu4_A$&>-*wwouU>Yv\JeF5XAm31O0ãU"kK?DDD$=P-gXcjG4'G$go-g9;iAKMbXfTjSdwgE1EB,Xl6[G1[#G[4&ML)cG80\ãU"dKdy]V,$lfl+H3/7=8^t%8bV>1QRfH_VfJ*fL*Rg3KlG^0S/avuH%k>BK[Ep^OOdvig8FFUWdhmncm#+/FY>4nYãU"#*j[6?I=<$u49n:*5e;54i./XtJui)WT):5)Mi0aUY+#tZk=WpaRbx-KSl-VSdtãU"J9p?R=lqs^MH0pM8Z+PMEcta*g;>&81Z:MN#y\/Nix+/'[vo:cHCo.ykuI3qrytãU"1;?9st8t5-HRK9958[T[9huaC+TMPl>.S%DIbJGI0npZ^9p9\/Ec[W3+N-b%%1bãU"3\dJbe[I3*Ke^c$\ZIdb$?u\ijg,XkwFN01VHf&U,BR2ldjJen7u(q.vM#JitE#ãU"LG7;#kaJZ:kNHl)PZwd;rISeK>N2E5qx&K>iN]+X>tF0mqxRM6GEy^:$zKD(;xtãU"]LLbN)UIb?k=qwH'MhS*BXWrXZ53k1s=KxXG3Fxxq:Yy8rg.Eon-?O'^8dy(D'_b&Y0g7o,qYpPH2C?qcQN9u&ãU"-?#jt(l2qJTA/49]Yn[:B1jUNP$9xdXBRZy$p6x.\g9XãU"%OXHBG_Oj#SA;&>*2U3-N)ll';9d2Oo0-xzC'^Ujj]AJiiqc[JU9v/AHVs7U?'KldVjxZf7VZ1JP&2)*eC7()H&05n4$.DsgpH*f3XhDPãU"KLpAvo_W\PlPuHFrEL'G9Hxc^VzNVoC>*4-I6zS1uc/KdYynU[L<>z37bBTO2L8ãU"KCjlVRVlv#?sX)8:L=LsjhPFM?R:T1PC(cG$oc?jft41%Fi3Hz3%\4(dTh6^6WdãU"r#qUP1S6q)(v4Df9PwYN#bZr*\[R+/'AbnN>eyRlAL2-gvVD&9F[uãU"J5p?OQp_e/jHGHJQ_+T')78/s):=vS_y%;-1Q*a&Vw)1g,(9aS7Mt/eDR3xz9S-ãU"gXO$ba#s57p_Bnv+:)==V?Td%EyO>9P>2KRbnY>xt6&\YC#)LmOpmiy['+bUkz7ãU"^EWDOqs7v8XZ=H6FYfnExrtT&>yy:sarJ.?:%bf<]WxEL;'EEZ9aV,9<(VGnK_;ãU"%$tGiF=[]DspSQ-690)l'r?ADQ',EPoQ)QT-TU3Q&h\u:*9muV,I6RDoSChO^NnãU"?Znr,BKVDY-%1a]d52T+WHtX^TZ.eIO\lqkW0+?V(AZ6=T&l0#R%4)q&R%k2IR3ãU"XVelZ*2#W>PcpuO+.r;arhlo\[G;3Cnq3s.%,8\;C[o:3:*^\p*1mQKF1J*n^%/&Z.od^W$6:>/A[&y#vr4125-JM#r:d#Ll+Q:sW<ãU"=p0Cg#M1S+5ixKGmc[DT8rN>4zlh:=\(cQL&dCMrVsuaeox**?J?DSZ)Gru0+IBãU"MAwfOlD']8?IWT,o49k='<0TIyL]HaM,F:EM#*X#+;G2b5%yc^:Py_qD9K;ug8EãU"Ug%0?]Afp%(>*Tn5.[bg\k0NRTn%FU'd2b[ãU"ZpS4>))a8PCf8r;SL.01q2L6*,=_^wVZ\v%gZ7=d](hf3klB2hHq#7fqo9IQP9OãU"9Y%z=[X$HI[HGf$L.he6gFll5Di_4H[/>Bqp*GH+ZSoeoH,)vEac]Tb3C&?A[75ãU"NWZd\ftODpX+=0#JvU[kIj'aPslfJ8z]D9cnC.GY8oJ7V^h\\jEm+ekdBk(FX1CãU"YR^tSUW7VAfg]ULJ8f56,qg1RQE;%n\-v&O_0'wnTtot%Hupo$^p8.X0'>wS;YYãU"b-NVIDnG\8/?sgatq.+*NwCH^-uTgv:8_6l5x.9bAK8XxDk?[=lD\(60GX[[+<1ãU"'7oN?]Wp.Jd52,DLyOlFOBMx3=CMiTU=(2bEm#s:s4/54VfDSc%ACo1#jPPIrI]ãU"NAOiMA5'#4A=YLV+,?qo1Qu%KbfãU"-+D]w8a*93M+X/aC%KpE)V*O,0&wWc/_RNP];ibeuKM1mn9'sX2(PhL&9sd]NWcãU"*la8/>kX/*ZleB^>oVn6\k7497j0.Kf)zGy>%L3emfy]x;Xp)Vw0%F:,oP%%4NcãU"rBb2J*vV#8jw;iS.x?ENJU_^>lK%Y0?0xUF%$sya]QMZtD;h\C721tW_803iS)-SJiO#KjbãU"5H+1hXQ:H1/_]TttChUynLoOyJT/OO-Y'YPs6X^l8WaQ(6]M[6x^%QIZ$dR3rsRãU"%v:a-3,913_ue0^\OSwl-qMIa4e*L4a;[r,-?bZdYk5>.5/Kv-GsYYFNfIC)Og2Sfj=/Y,\<$^BV$1arw/aBE]#]hm1LO>_P.5^Eh_.,V=e+?=dgOu3QK^Q,_ZIb#mlZ\FYt]3rQ_%^2%uZj?\GWY\S5GER[#ngF'tqFãU"hq):=>nTa0:y)hsINIfx9^?/xagn0j5DQOyBJ1'cmM'=]Qft$Y(yMNfYgQ:i.s+ãU"&.zdi[r_y42qIb]B68Ab:8Dbpi6L#wUm#8ah271b*A4MFE+yv?^#8'76V*Rw[aMãU"MY+cA4F8TkRi6iUId\?Rj]^S*h55_=^37eT-H*kV[6IJj3e81o003JãU"fCl/bhq#h2'HOe06Gk++=\;SZJh[5D>Q%#8X.ppoaMvS9N]x:UZ=\/;G5?CNY0RãU"%6oq]pE2_m3?p)eLzzWLNrNvãU"HbV8GphN8V)NY6C;vXQu?*YlUSG1Pb&VjIbg?=p>oc0:+zuC>6GO9=-/5\JlL4i$1*Na372PEjHI'U$ui;ubqm)+Q;OW&ãU"N>3tRbZcMSAEs2O/cq(>r>4.rR_p&*imMBc>PvKa<4vA)gA7V.-bNB2pl?B,;_MãU")Rs#S6?4t&l&4hgm4ZUOidcIo\Eh;N=EA9ehHn[cpL?6bw\\U&vGZ/$vhQ=YhF(ãU"O)t&7rNu..B>9Jtr/6,8[XqAO):M<&]G%Xg1fx8yYU3.VB^%\I8aW_ISCE^lA)J8;Yexz5xpãU"REPQ6FNx.Hip/z/35w[8Z=S*d+%9&O1Nfa4=s*OhLehPhMKDLS)e[81]k:5BJDQiwhy1-oY_+(5-6N>55We)sl1XRTãU"jwu8vQ#^k[^<93d.4$u#,C<(,Q3,09s?M0/zVlZ#&thp+473T77t&][Ev?NNoP/ãEND SUBãSUB V4ãU"(Sqw+#(n^6YPMNoZREs4LV-//t=&Y4WlyO=s*bcZk[WKGwBSeW0J4V-Pjf>9ãU"(uI^,dQIhR=s%T)^'QOd:_rxWW+l\$F\7?CBRuWf):?;0LZObmAIC*ãU"g<3gEOIepXsS4TiFnV:0f3_##[[mn?XBIT-G'q%YLg*v/$A>AmaP(=TpLz>D3'kãU"\Q-q-J;$iph93Vm'ZE\gMrf)\:de-FYW'&hGG8)g')JTT&&W(0DXaN'6(KPgnY[ãU"kpX4)n>'4#s-nU&C7mUP=zNlc,g-mB3#x+[<%13/jT$\g;^*rwDdeL-_%T+xq[JãU"X[Ki^>OcaC-+%rZ>vgM.ãU"us/P7lKu=bwjH]DxI+sp'%rsebw6PKPOMM'o;]*mbQF5%O3^])TJk*1KAy?VhYuãU"C_I]eRPep^9T)\1H[Q[EB)\'[:l*_&A(9SdasgmbG.]'z])+t2K'\ECjjN1:sI/ãU"pN/MUMMV7Ci+yj\Cq(:Je/^#Y&WaRsvN,Cy&[,U\g'lRIX+H#uLmo2IK1P3=3yQãU"9f-f7eNjrpNjWMvZ6:$1j;Ser)+JA4lZameDY>O1Thq.t7M]AT1HZua6cZRXl*_ãU"apa1ixWaWI.E-Y?+H:wF9Z3QOzQJ_T7M)[(.n_T;54d.I)[3e'#We$QhwO:4772ãU"PXILYrWBw\F5jPnyoXbZ3lMmIo?gv6t&w&3C1+YW.n_&kvwTNkh:ku$cSpedht,ãU";c(H#,Hao#a2YLwkROP<^bZb5UnFNa0Y]qVp*txEmjDfkfIF=)V^'aP*62ffx_'ãU":+F/67q/%92zSGTbSTU,s-s/My%i\zOBUoM&*:9i#gEOd'S1Jm3F97U:BYnat6PãU"svsjBas$x(2KlCDhX;yR.s%utDEut%&uhkS+K^L$RWb]K<l=I5&+N?hãU"9a750OB,KCgtL?qYx,%up()%9%'%I-%5(KvG/>7mHH'%%%T:%%%0%.%%&n%sktsãU"%ySifjy&gT%sIV1FiH(^XHuxN'40qA/fTlEdVgQoR=$7dpP6RZDY2RTk06n_mkX&$U_qOY=QK[6ULphUaWJ;]8hãU"&mz8DBr?pHsly9/XSJqS[;kC)P2W%c&Y&#:s7BKqM$Bu\d,Q>0;ãU"/VY9UVaVi-(B6ZL'ZQAq#g=omwgSss+AqQbUS(aGfZ9k?77P?bts34HTugZy\##ãU"CxTT5k^Dg>/u*U)VHf_OmX\cefJqqo\j&DQ5ix:I4&fPt$$r3xa\P(UC$$Gro&0kWv$'*p/JvJo8.n'-[^vSSNnphtoZ_-ãU"YA:]KxRAvg#^2CDfg1/f(GVRSx+Pnjm+HH'%%%T:%ãU"%%0%%%%%%%%%%%Ej%/PeAH%%&%nskt%sySi%fyup%&':0%9%'%I-%5Ee1HER/dKãU"p%7%%M%%%%1%%%%%%%%%&%RE%/P*]K%%%wjfi%ktsy%Sgfx%up*+%%%%%%(%(%&ãU"x%%%*(L%%%%%ãEND SUBãV2ãV3ãV4ãCLOSE:IF S=193AND 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ãAndrew S. Gibson DOS FONT TRANSLATOR zapf_dingbat@juno.com 11-05-97 (01:11) QB, QBasic, PDS 204 13562 FNTRANS.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"FNTRANS.ZIP",4^6:Z&=9915:?STRING$(50,177);ãU"%up()%9%'%d-%S1&3HDf'Ed5)7%%,5%%%1%%%%hl%fkyw%fsSgIfxtg2L>rk:5VãU"xlT[$E0\.47#F'uOv>\-:p2Q9202?J&z;y?5v?IrY)W1]8LJF<2VW=eVDm9j)ENãU"u5mlO*F3W,<#2%-VuJp^h61p;jkMz^BQ.mLY(iI3ex1bjE1^[OUVOlK=^wE'-I?ãU")e8=6D%UtwubnbD]3tGKdNsuPdOQAQYR2%>Zbc%fn&j?ai0lQX&KY4a5F66Wi'3ãU"W%CCiek]PZ:#v[X?UQfuI_8:5WOZUgck10.Y*j?1:0$4.ZheA##k8*mZYqnm3qãU"6VkVY$SG>pGGeXWo8)#ah-q;6s(_Lg<49,tj8+*,k8aD<%)%$aLF?/F/#CY$d%MãU"G%b(Luu4e3.wh2u.+\C,X(k\v^vv\Cb1GW.sC63SaW.84<9ãU"gR&&3W+$qQKlv.%tptSrl(CJ,Dc6gyrF5V=DN76I;8(dMq[K6=q/wMygtX/HytzãU"Pi-]yf-pboCvds8fK^yK7Rr3l1zItn*hO/dW)^q:S,j7t2ejrVIpj&YH,D/13+QãU";TQ'Rrr;]FU6B2h=0J&b/pd:*qC0+)?u2,6Dd[IsD71Y7;ackjvh,bGY\T#cE=,ãU"W+#LKR2#Ef\7E\D+ExcTVaB=PY,jV-QHi\KHj>XGq0sqZ0=J*Vfc6DLSJ*ci6LaãU"6sRGW75S6LSeJlc6;Ba6HZGW2SE6BSJV&c6Jba6PGlW6S6/JSJtPc6Fao6LGWsPãU"Lxxk.3Yd=3uHYoCn8m:[g0ct$PTdypãU"W,C/M*tck8%0*=QBX#^=JRZ*Tl$EFU.,u_dDU49b=1OMXRLVM9?.HCRJwj6Fp*UãU"'x>q:Xj_BF2?bOZ8C+>a3SXTi?oãU"+yb:=Pv_e_eKa;a;njM^)JCXs,sN_=?SF'[YowqFAw>2MQ:39)$.rGNEg*usESn0Y.y$Gf2$9^TãU".Mwl'I)jyBDQomDAa]xS?6s>>nyA,VYv\<8cW6K^8N-Q1nhalbACdG.LbT#k<]&ãU"ii2fqGjYiFV8nM#K]c[9#9XHjBKG'*bAeG7m+O3z/N:8rtR&JbE+\frãU"ME'=Y=J+J5c8>dTn,OiuE^jwoe>Bw#dhn2CU[6WR#s,voh2943bE^_1KI/=3U/6q8%eIYZjãU"U73(x*92]rmm)[lL,]b_W6wFe#Y%6s,)*R,GP^q-e'eNnh]PM#%5*dUn_\juo?hãU"8*-A)G0S'+e\:7oRG]i(mpS/jUo;MUSQ>o:7?>(Ip*A4p999\*vqRsmER(NmiM)l9,Ep8#,LYqBjftVX<30&^ãU"b)(seGa=VQ'AKFDY\_nsY[o.503_6wA>38DtC-HOlA0?u[$1))-yZ9&&K:(m?(TãU"kUgp3AkfP;Ci)TMi698#TJEJN1]uG+'L:=Qo7[KvrH:h/LuGQ;Dbe2*u.;k8+:DãU"AX=]VP,9E*RCWSh0$ZbP^\%u(_RT:Eelg6'5.21U#gdLfa)FU0Q^scwj'MYg+hqãU">Qj]ZO^/ubkA+X^sMm2P_C^x7M'Hl4812$p9M)j]OEd#^/J8n:xfN+0My4%MxXiãU"j_wJK2MYej7mlzS24ntwo7L\bA=zb_K$VrO63UsFyhtnjmL4wW+Ldp>D,(p1^KXãU"AT*Xo&%qAHoYmYamZwiDR?Jh(1<]BA,Qc.YZHJ?fa+y6T7:bWP4HF3p,>eV9;P(ãU"s^h%cI3Vwf_2zL*uNkQcYf)NBu*.D*W.bQ);H;f58E^$t5wTfx]0tw0oDx08tceãU"o2rQlD*7$L*$H^*$.Q;gkZcV6A4SJ74*=C4tJueg2QZ6D*JjL*J^i*J.;iglZVTãU"8A4N474.C5*1e%ZGvOwbN?F>kF2vC=bVMX#zw))W*rCe?4bCWn$f:'edT>H8=$7ãU"bC[CDPuZ2/^LYGzcPi8Ge9l-Ku*p/Ck^]PJlJt]Q)c&oXh?j^-Vo4+.NKsjPN?KãU"We+uMt-Z-LKKX5<[[^C31b]JR:.g<1?^B*E5oIJ'?OR67r*C*NY=53Zydg1P.7<ãU"O,NYVD;3U._lhEP1:h0Dij=H5ZtKO2JhsEh$qZQYEXWQP8M4az#'&qRh(IPYNpwãU"ucFjU8;mD;UbHkhfQk&+gHi=<4CN(FZ7I+IU_<;[YI33qOdE;SC\*M*TB]/VLZiãU"#IKPGtQ?Z;m*dNO(_^M;ViS5F45N5&($OwD;mpYX9TdaaG>+58sm*j#TNw;0[pYãU"96TuaGW>Z9hXGumv[ZyM,Wn^R-4Z(^nBwt5Mf&I>[ZW328,.8+vaiaZ5E+pU)NYãU"5B,HFTF,-]6aH>#ErT-Ixup%()9%%'%-%)z_rF]NW$^'1)%%%Z>%%%1%%%%jlfkãU"%ywfs%SgfxMthL>\rk5?Zx0=F2g1.43k1H&E8-#X\_Jf.f**s6&zOz].K/93dseãU"iq*TF<1[339-miv=DZE,tj),>KtP=)=gL3wfNGA6#2s*Pt=##-H?NOO3$$dãU"i#0O5+tP#Bff4RR))VN0oi?Gg\WnVCI[eG[IdyTr?zd^R\6-?l$fWS4'M/ac2g<'?/%.*$0:',bX;,HrTx:wQNVbfU#;_pãU"Mobo;5'NUc3[IU3-D.SE:6M2'\Hax9T2HjVA)]tM+1]$-L8?P%55oU95yoYtYv.7F$kHnr51mt0=/C<^NU:y\+,;&imItq\hãU"SYhi1Lh)=-udj.V(nfmPUd]tYim31&xSppmz7KPYulp\Ecwib6dbM9#L#\]nãU"+,td$ADLH/aX%$m(Hse[BLOP4R6Pl&2:VoVF_oR3ZpFJwhRVAss*7cV\F_#K4ZFDHwhjMVYãU"%\PT8c+cYx6r2XVcajDJKD<*[Ne?Am=9*-;PA;vMmF)ApjNPEm=qN#'Jrn9]t4-ãU"o5marG92OIy,R5n*p<5AoCge_I>#_jRiy6_Q6diD1GJx\XQQMe_DY6,l>R:nRMKPNQ0i:aLF\rARãU"L0*FfVH)M\4#kV6md-CN&QLS:c.'C;kf$,choMZXb_?NLPmnuecbrM_\aK[tQ]\X_o^SKF0c;$)4z:N04o[G54XXv,seqV;ãU"Yc6Ppk$+4]>Mwo]8=jC.3>rm0Rh29jN4;%Yjf=VD2d^#3c'4sK5a%hX80(td1bpãU",:tIbU:M]q4J6s#gQ^xqoU;EqgH3\lZ?we:2AQU^R=,kA4t-5Z):]BW4V80tMYTãU"L%%%1%%%%jk%syWi%fySgIfxthãU"3f>ymX9?8j0qdkj/F0LVs3[dVJ\rEaO=asv:,80obXnãU"Rrme[nU7*2a3QU_s+UHB[iT'xNR#%yr0L00c]_'d%.+qn(u+zZ;pPcZndE-#Bf]QãU"#:Q,lCtIsxC5qLdn<(L;#0e/hjGpRUh7^a,LQ$F;#0ZjC#22I\%E3fn%-_.n+y]ãU"Ii9GzbI1Fl+:#J.vA+z3nmL\&tf5SmAz'snmdM&4_SC1AzUFnAU&U*tLZr7gXv=ãU")$HU^ov=^'HVoL^>L[D\;#dY'hrvZr#1+e^7\9SH4LoFJjqF*]uG\^hetws1)5'ãU".ogekL?OGf#kTQ&WD#zf;k4*u^ãU"l*^1g;hDG*w1jaTr0cZGrMl+gc3dVDvK15FC1PE$2PT]Q/d/.w.*N,ZVbDi4*WVãU"Z^#g%l;ge>igl^VsP=gjG2pO0lpC1p?H#g=W&C4U+ãU"]sZy6U)p/IB#azi*f=SR5lPU,YT[yMp>ZBhHwb=tcpH9/\AsI<2W_?;#=%J=V7%ãU"r#iubxbTpEUxjK%,H4.ZlIClãU"],\jk\6cUuX*xe?.wVKwjQN;1.Z/uI0Q%2_2RIR[E?:9#3MEQ)0C3N*.gKXnVX2ãU".0R[eZ#X&RMcI\,t/nc.e[6djR_kni2X6GqAAz7Q(2RR4Na4Z;G\$T$z?LPB3ucjãU"CAR,<5Wl)U+n>3s_]tPI_0_5MgkaPBKV($kn;cb+tTEs#X4rtfH/$-rJJanbp'0ãU"q#)&mhhB'K?9_LHe542s+fjdu%p()9%%'%-1%h_r7FieN+[f)%%%rk9rv=BxTZ;4,uAU[M-\OiA_'H.**3E4*zy\?q9M4ãU"Q%OY?j8h1[=AA,/oFYGjCpm2H$GUk1A=Wc(\;uTWx90=o_p1Wi>=&e,R6'AsnfOãU"Sk30THK0O+J978ge+4u=i3VJEJT)h#^)ml]-LfKsNayDGD6d>&.W-/d=+NS1ynNãU"#3((E)b.,=6r9oq%iR.2H^Cb0(TEdE>sV,)E2'2B2Ltj,-FXM,Wn+3il>Sp)^BjãU"RH#s$n]14YC*-BI[;,5h;Z?(e9q:_cX0a/*IP(W8T'q1,7vWdUqG?V&Qch-l=B6ãU"2K%k;/_.2oVzjRa/4jZP0*fKjcY]0P=oSv/QF:YMX0QtBZO-wsf1=3)Gq0WuPrEãU"Smh\ddv5SD146gd&V=csy=s%^#Et.\egwOucWGcta,BaKA<[wj%$?(Sx;bY\JG7ãU"6[GA/C.P6]Wu.9xH(22_d\jB0PAPYbsP:LkYãU"YF1ts&-V>>X*pUtSfUXz%Vh),#Epj:V/U0Rw3U0A;2W^0erO\O/BW_Jr\s<,;2oãU"fmQh:E'WsgFgTY)V_1j9Gg]w&cf;W#Mj>5FFTwoE8V+f8F=l;22H^VJ>WeFF>l[2DHnV>UYmcCWkGX$^ãU"T,v..YV*e^7Z9sjgss,7zP,zB4d]6]0o8(naiN1\P*V=[86w3eYNA4^*?760HC]ãU"xuYm_L.*BjQIQwi,Jhq:j,_^Sh&Afrl2Dv1$PsSPStãU"cYt1cwscEYvc7jWfR3rUV5UVVdUV6uUVrT14dA4DjAD^zADj\BDZZUcyD,?Z^'yãU"qA&q27Pr1PPD2^H$2^P2Y^r2^g#;D\c3ML5fMLdM=LuML1ruLwPftcflt-atqcnãU"t-O.p8m9Ttx$87xfJZdg)=>G%5?QHca1)):zCHxhAqm66(>7ãU"*KyMjO5hkZ2#:$uwYr$Wi#0:EwO7SmbX\$YdK#0'4lsi$65KVXxvDs+QhxXG:XxãU"^(E3q2:9yJdr7SMOOLm,mLy(VOC]eãU"*&P=O=(A3fYiGzK51kiB[JPn]K=^V^pGl(f#otubPYX*wnRM&Wnk'qx)3h;kFTw;Qa55=/SP#rnq1?X5%MSBnfBpVãU"pXYPW*GMv]t\7eKO,u%mXSitwO(3-I,iEIsL\%/w-#M^fY%KKLm?J_])IN?pkIEãU"jzcL8s7u_AQ9fJ%s_q+FD.w3-;H-<5Ul]OVTE>$2E0_B3dPãU"VS0([GCXN;jrrZjK<3g>-&Rl]EoDKG=q7xA.cglba]7D=,6ieTkHwZTcd^$YBtFãU"r1]VTnkq9/(&'x&up%()9%%'%-%2/N(FU0K+7%$*%%'EA%%%1%%%&%ksy%Wify%ãU"SgfxMth>>\ym9?>YãU"NK^l$4J8=7G:a-XepS7e,SlSC]eaqV_5(H=-?]HlHr)P'SBY2:GMWf=.$8.mNZ#,2xB:ãU"-Y2%wUHW\5w-q%B)FC-ki9>289'8VzD&i];3F6ms>_p&%'FLE4yF.)O?+'YkS0dtCcS;v_ZQpwBkQA(:T<;7ba.A8NWsKp,,5/Ch9TTECE'-(OPR*ãU"uBggv)c2Ws7X7x$3c3Lu%xKU0,_)d05Q3WgOcQ&Pu=%5k0$F1BUf\3JR$9$0+VnãU"xW&;IIFR+)d07WoEãU"z:-H5qnLop*G(^UuJ?Ku?2)>3E(Wqu4?uL_2)7ruwKeYU1NM7YjNAGZB+aq7sIWãU"lVpCXrCCX?_.Ax'2'Y9q_/u>[[,6w5qNbTfRm_31D$Roa/ZYF>6$?)7?\DãU"3n94>hBJxi4c(.;LX/KDG]kTRK%e)?[F'^q\S\wt9#WXj3#X(;.9Z;SnkC5-nAWãU"]GI7FY7u^Lx[2]B1sZe(*ãU"TI;k/7Od%RcMI\l/6\N:>RPX\e,\cZxMj82aDza5<<23Dh4ce'\GxpIv*$E_$F\ãU"nTNj(xIwRPiHE/C;Q2+4oO[gux$U^7EH748eKQPG]AM[(&CvrFI>eTS,c>b>5:qãU"a&16%nKLmGpG?WU+UCBnCnv3V8g0pRLbNkadZ+h^RMPKW3]:Ne7(TQr(imss2W?>8.KL6YZ_puF58LiQzP7-/w,u%p()9%%'%-X%r731H\SC*ZãU"s,%%%^8%%%0%%%%ksy%wfsx%SithN.'<>\rm7wP]=NwaBbYjj-t[X$[3dUN.pl?ãU"bR:(Qk(HfT:[=#MR=Q9bZnwszG=)(hKJr=d:h$Urn&dnMM*&b8Ai953OQB2%Ss>ãU"E(-q=C^8Ga_QH$YK+JRzIS_KfC\=2eQ\I3Q]piQ#+W7kVHz<^H#8p]pM0JWd:OaãU"]u4/\^7S=?YHaE(*>zjpzKG+A?h0B/k&j)J-wp?mJg'p%mv\3%3TkB=7Dm,S8^F%cXG3r<&4*5;g1SOãU"fhI8W/r;aBl#G6ngo08?bs#O3nEF?I72+lan>4:(Ow[m1,37Z>VHWP0U$x(UzXFãU"_MXZefo?'3dZ<(:vk2>1\)GãU"%x$-i;.rW#24,RU/:rirPDx3rBzX8tH*jE_:G$=r0rj3eFBEPb6%K(%p3ytRR\YãU"vCtd>Q(wNY=j1d:P[bnn12?o^/SQPZ;V2G\(usuy54ãU"F0B#JQ$P?bs):R*TD%kWiwQ'jqzm>mlv_^k$.=gvQZTIY(ekj)qP\T)9Yh<%=U^ãU")0H9'C_ie-)o]bt,Y5HmObeq?+,lXNgXT6r_u_zxR4Fkq-)_7ziJ*\K5PoZ.-rRãU"+9DG4hbVATT$tHmc2(7JE<.Lochatd3?B)cFGdpzI&:kHuu^\L\V)L<]CV+Cp*SãU"\7qpug^4bUC7VjTJj0yrUvHF);0wl6$83Pf?T]^8PTt&QgWsaakJqA7m7F4:a[/ãU"L]R07/3$_=vDVyye5,%QPh$?H:8a2D[g-hf[,W+jhn*B)/%7i/l>Hk*5[xz.L4QãU"\0v;)'J]Db_Q(CKygs)n'6.+Rsn'fH6i*akP9bcZ9\i#pzy_pCZPBiqGB3iHr]Sx6pY(fCelãU"tQ0N$n#nyGDpD[zORq%rJ5c*kuK1WM?+3u>d\e;ZiBm#Ph(ic=%W5wN7=t>%585ãU"yt,Oe>zz3:D&O#BdozMpw'ioK3wdn^9eqil]+X^stq/eFVng_?=IwN8i5#LUNniãU"y)ll3m%Sf(\$%/5,7Z8,^2ac^Pk]S.ljv*g)\]J(%C2$a;bCF%.*8z_07m+rZjGx;pZ,GIl_wvcLb%xãU"4H]Vgmzc6DUH>N/^kH=,Y7H,zK5*NV1,e4QdNGmXne'lki3n#/^6\?B1a5+K^[SãU"=)TfV']IY%a;FWw1F'J_TBtDnth]:b*+j-g,hQ\#eCPC6$:,\v>IE\8]?]Tqske(GAD9dN;Ng'ãU"v1C[Iloh%%UC*_$^7w-gnI%0nQ1$Tic<)K9*Ycl9FDFOGNãU"pgIO_.;Zd)9d$P/we&e/K-+.DZ9p]%J81;AI3*vP%Yo-Pg[gwNCkGPe4Q;[r:KZFM,nq6#AãU"Zh7D5#e>n6Q,s36,&U$Y(*AtOz8Je&9BmB/MogNy(3Ko7X*4sB&+.5b0SFãU"1bQ$EIeDG$O3FOMs2KF(?oryL8(Zm>hQ-1L0i0)LCI&s%hZw:2sU=jb^R?q2B9'ãU"=CFc[+3#v.;K1E-gS3kg7A(6zH,+cezJyg_Ma^$iYQCswns+'pv9w>+LVn4e+=AãU"tauP.IzYi1kiM&uW,u#.+#H_WFx][T3gD%hj'%?>AC?CpdMo,MEKFaV;&J-pRh>.v-r00AY(j_\^[c9FiplGQUhP(oãU"c&RN:e'0ky-N0+xDT$(N]u=Gx$IN768J$Hq=oCA'vDbuFK\tHR17u+%%%1%%%%%%%%%&%E%7%%3-%%%jl%fkyw%fsSg%fxup%&'9%%9%'%#-%.O/ãU"(F9v,Zh&*7%%u>%%%1%%%%%%%%%&%%E%%%&k2%%%jksy%Wify%Sgfx%up&'%9%9ãU"%%'%-%)h_rF+ieN['f)%%% UBOUND(IntoPal) THEN EXIT SUBããFOR a = 0 TO UBOUND(FromPal)ã IntoPal(a) = FromPal(a)ãNEXT aãEND SUBããSUB DumpPal (WhatPal() AS PalType)ãFOR a = 0 TO UBOUND(WhatPal)ã SetPal a, WhatPal(a).R, WhatPal(a).G, WhatPal(a).BãNEXT aãEND SUBããSUB FadeIn (WhatPal() AS PalType)ãDIM WorkPal(UBOUND(WhatPal)) AS PalTypeããDOã Count = 0ã FOR a = 0 TO UBOUND(WhatPal)ã IF WorkPal(a).R < WhatPal(a).R THEN WorkPal(a).R = WorkPal(a).R + 1: Count = Count + 1ã IF WorkPal(a).G < WhatPal(a).G THEN WorkPal(a).G = WorkPal(a).G + 1: Count = Count + 1ã IF WorkPal(a).B < WhatPal(a).B THEN WorkPal(a).B = WorkPal(a).B + 1: Count = Count + 1ã NEXT aã DumpPal WorkPal()ãLOOP UNTIL Count = 0ãEND SUBããSUB FadeInto (FromPal() AS PalType, IntoPal() AS PalType)ãIF UBOUND(FromPal) <> UBOUND(IntoPal) THEN EXIT SUBãDIM WorkPal(UBOUND(FromPal)) AS PalType, Direc(UBOUND(FromPal)) AS PalTypeããFOR a = 0 TO UBOUND(FromPal)ã Direc(a).R = SGN(FromPal(a).R - IntoPal(a).R)ã Direc(a).G = SGN(FromPal(a).G - IntoPal(a).G)ã Direc(a).B = SGN(FromPal(a).B - IntoPal(a).B)ã WorkPal(a) = FromPal(a)ãNEXT aããDOã Count = 0ã FOR a = 0 TO UBOUND(FromPal)ã IF WorkPal(a).R <> IntoPal(a).R THEN WorkPal(a).R = WorkPal(a).R - Direc(a).R: Count = Count + 1ã IF WorkPal(a).G <> IntoPal(a).G THEN WorkPal(a).G = WorkPal(a).G - Direc(a).G: Count = Count + 1ã IF WorkPal(a).B <> IntoPal(a).B THEN WorkPal(a).B = WorkPal(a).B - Direc(a).B: Count = Count + 1ã NEXT aã DumpPal WorkPal()ãLOOP UNTIL Count = 0ããEND SUBããSUB FadeOut (WhatPal() AS PalType)ãDIM WorkPal(UBOUND(WhatPal)) AS PalTypeããFOR a = 0 TO UBOUND(WhatPal)ã WorkPal(a) = WhatPal(a)ãNEXT aããDOã Count = 0ã FOR a = 0 TO UBOUND(WhatPal)ã IF WorkPal(a).R THEN WorkPal(a).R = WorkPal(a).R - 1: Count = Count + 1ã IF WorkPal(a).G THEN WorkPal(a).G = WorkPal(a).G - 1: Count = Count + 1ã IF WorkPal(a).B THEN WorkPal(a).B = WorkPal(a).B - 1: Count = Count + 1ã NEXT aã DumpPal WorkPal()ãLOOP UNTIL Count = 0ãEND SUBããSUB FillPal (WhatPal() AS PalType)ãFOR a = 0 TO UBOUND(WhatPal)ã GetPal a, WhatPal(a).R, WhatPal(a).G, WhatPal(a).BãNEXT aãEND SUBããSUB GetPal (Col, R, G, B)ãOUT &H3C7, ColãR = INP(&H3C9)ãG = INP(&H3C9)ãB = INP(&H3C9)ãEND SUBããSUB InvertPal (WhatPal() AS PalType)ãFOR a = 0 TO UBOUND(WhatPal)ã WhatPal(a).R = 63 - WhatPal(a).Rã WhatPal(a).G = 63 - WhatPal(a).Gã WhatPal(a).B = 63 - WhatPal(a).BãNEXT aãEND SUBããSUB LoadPal (WhatPal() AS PalType, FileName$)ããff = FREEFILEãOPEN FileName$ FOR INPUT AS #ffãLINE INPUT #ff, x$ãIF x$ <> "PALDATAv1.0 by HD" THEN GOTO ExitLoadãLINE INPUT #ff, x$ãx = VAL(x$)ãIF x <> UBOUND(WhatPal) THEN GOTO ExitLoadããFOR a = 0 TO xã LINE INPUT #ff, x$ã WhatPal(a).R = VAL(x$)ã LINE INPUT #ff, x$ã WhatPal(a).G = VAL(x$)ã LINE INPUT #ff, x$ã WhatPal(a).B = VAL(x$)ãNEXT aãããExitLoad:ãCLOSE #ffãEND SUBããSUB MakePal (WhatPal() AS PalType)ã x = 0: y = UBOUND(WhatPal)ã DIM cStack(256) AS STRING * 2ã ã TopStack = 0ã cStack(TopStack) = CHR$(x) + CHR$(y)ã TopStack = TopStack + 1ã DO UNTIL TopStack = 0ãRePalMake:ã TopStack = TopStack - 1ã IF TopStack = -1 THEN EXIT DOã tmp$ = cStack(TopStack)ã x = ASC(LEFT$(tmp$, 1))ã y = ASC(RIGHT$(tmp$, 1))ãã z = (x + y) \ 2ã IF x = y OR x = z OR y = z THEN GOTO RePalMakeã q = ABS(x - y) \ 8ã '*** redã R = (WhatPal(x).R + WhatPal(y).R) \ 2 + (INT(RND * 3) - 1) * qã IF R < 0 THEN R = 0ã IF R > 63 THEN R = 63ã WhatPal(z).R = Rã '*** greenã G = (WhatPal(x).G + WhatPal(y).G) \ 2 + (INT(RND * 3) - 1) * qã IF G < 0 THEN G = 0ã IF G > 63 THEN G = 63ã WhatPal(z).G = Gã '*** blueã B = (WhatPal(x).B + WhatPal(y).B) \ 2 + (INT(RND * 3) - 1) * qã IF B < 0 THEN B = 0ã IF B > 63 THEN B = 63ã WhatPal(z).B = Bã '***ã cStack(TopStack) = CHR$(x) + CHR$(z)ã TopStack = TopStack + 1ã cStack(TopStack) = CHR$(z) + CHR$(y)ã TopStack = TopStack + 1ã LOOPãEND SUBããSUB RndCol (Clr AS PalType)ãR = RND * 64ãG = RND * 64ãB = RND * 64ãClr.R = R: Clr.G = G: Clr.B = BãEND SUBããSUB RotatePal (WhatPal() AS PalType)ãFOR a = UBOUND(WhatPal) - 1 TO 0 STEP -1ã SWAP WhatPal(a), WhatPal(a + 1)ãNEXT aãEND SUBããSUB SavePal (WhatPal() AS PalType, FileName$)ããff = FREEFILEãOPEN FileName$ FOR OUTPUT AS #ffãPRINT #ff, "PALDATAv1.0 by HD"ãPRINT #ff, UBOUND(WhatPal)ããFOR a = 0 TO UBOUND(WhatPal)ã PRINT #ff, WhatPal(a).Rã PRINT #ff, WhatPal(a).Gã PRINT #ff, WhatPal(a).BãNEXT aããExitSave:ãCLOSE #ffãEND SUBããSUB SetPal (Col, R, G, B)ãOUT &H3C8, ColãOUT &H3C9, RãOUT &H3C9, GãOUT &H3C9, BãEND SUBããSUB SwapPal (Pal1() AS PalType, Pal2() AS PalType)ãIF UBOUND(Pal1) <> UBOUND(Pal2) THEN EXIT SUBããFOR a = 0 TO UBOUND(Pal1)ã SWAP Pal1(a), Pal2(a)ãNEXT aãEND SUBãHauke Daempfling ITALIC FONT hcd@berlin.snafu.de 11-11-97 (11:43) QB, QBasic, PDS 33 879 ITALFONT.BASDEFINT A-ZãDECLARE SUB ItalicFont (text$, xTxt%, yTxt%, CL%)ã'ã' *** Italic Font ***ã' by Hauke Daempflingã' hcd@berlin.snafu.deã'ã'(c)1996 Hauke Daempflingã'ã'This program displays text$ in a italic font at position xTxt,yTxt in theã'foreground color CL in any screen mode with a character box size ofã'8x16 except 0.ã'ããSCREEN 12ãPRINT "Press any key to see the italic font..."ãDO: LOOP UNTIL INKEY$ <> ""ãItalicFont "Hello! This is an Italic Font Generator!", 10, 10, 15ããSUB ItalicFont (text$, xTxt, yTxt, CL)ãIF xTxt < 1 OR xTxt + LEN(text$) > 80 OR yTxt < 1 OR yTxt > 25 THEN EXIT SUBãx1 = (xTxt - 1) * 8: y1 = (yTxt - 1) * 16ãx2 = x1 + (LEN(text$) * 8) + 1: y2 = y1 + 16ãfar = 8ããCOLOR CL: LOCATE yTxt, xTxt: PRINT text$ãFOR y = y1 TO y2ã FOR x = x1 TO x2ã PSET (x - far + x1, y), POINT(x, y)ã far = y \ 2ã NEXT xãNEXT yãEND SUBãHauke Daempfling BOLD FONT hcd@berlin.snafu.de 11-11-97 (11:43) QB, QBasic, PDS 45 1413 BOLDFONT.BASDEFINT A-ZãDECLARE SUB BoldFont (text$, xTxt%, yTxt%, Clr%, dir%)ã'ã' *** Bold Font ***ã' by Hauke Daempflingã' hcd@berlin.snafu.deã'ã'(c)1996 Hauke Daempflingã'ã' Give me credit if used!... thanx! :)ã'ã'This program displays text$ in a bold font at position xTxt,yTxt in theã'foreground color Clr in any screen mode with a character box size ofã'8x16 except 0. The argument dir means in which direction the text fontã'should be extended. It dir is positive the font is exteded to the right,ã'if it is negative the font will be extended to the left. Try it outã'and you'll see. (Gives really cool effects :) )ã'ããããSCREEN 12: CLSãPRINT "Press any key...": SLEEPãBoldFont "Hello and Welcome to this Program!", 10, 10, 15, -1ãBoldFont "This program displays a BOLD font!", 10, 12, 15, 1ããSUB BoldFont (text$, xTxt, yTxt, Clr, dir)ãIF xTxt < 1 OR xTxt + LEN(text$) > 80 OR yTxt < 1 OR yTxt > 25 THEN EXIT SUBãdir = SGN(dir): IF dir = 0 THEN EXIT SUBãx1 = (xTxt - 1) * 8: y1 = (yTxt - 1) * 16ãx2 = x1 + (LEN(text$) * 8) + 1: y2 = y1 + 16ãIF dir = 1 THEN SWAP x1, x2ããLOCATE yTxt, xTxt: COLOR Clr: PRINT text$ãFOR x = x1 TO x2 STEP -dirã FOR y = y1 TO y2ã cP1 = (POINT(x, y) = Clr)ã cP2 = (POINT(x + dir, y) = Clr)ã cP3 = (POINT(x + 2 * dir, y) = Clr)ã IF cP1 AND (NOT cP2) AND (NOT cP3) THENã PSET (x + dir, y), Clrã END IFã NEXT yãNEXT xãEND SUBãHauke Daempfling BIG FONT hcd@berlin.snafu.de 11-11-97 (11:43) QB, QBasic, PDS 43 1503 BIGFONT.BAS DEFINT A-ZãDECLARE SUB BigFont (text$, xTxt%, yTxt%, Xpos%, Ypos%, FGC%, BGC%, Fill%)ã'ã' *** Big Font ***ã' by Hauke Daempflingã' hcd@berlin.snafu.deã'ã'(c)1996 Hauke Daempflingã'ã' Give me credit if used!... thanx! :)ã'ã'This program generates a font double the size of the normal font. Worksã'in any screen mode with 8x16 character box size except 0. Arguments are:ã'text$ - The text to be displayedã'xTxt - The X position for the normal size text (has to be displayed inã' order to generate the big font)ã'yTxt - The Y positon of the normal size textã'Xpos - The X coordinate for the big textã'Ypos - The Y coordinate for the big textã'FGC - foreground colorã'BGC - background colorã'Fill - Look at the example.ã'ããSCREEN 12: CLS : PRINT "Press any key...": SLEEPãBigFont "This is a pretty big font!", 1, 25, 10, 20, 12, 15, 0ãBigFont "Yeah, it's cool, man!", 1, 25, 10, 160, 9, 15, -1ããSUB BigFont (text$, xTxt, yTxt, Xpos, Ypos, FGC, BGC, FillOut)ãxTxto = xTxt: yTxto = yTxtãLOCATE yTxt, xTxt: COLOR 15: PRINT text$;ãxTxt = (xTxt - 1) * 8 - 2: yTxt = (yTxt - 1) * 16ãxTxt2 = xTxt + 8 * LEN(text$) + 3ãFOR x = xTxt TO xTxt2ã FOR y = yTxt TO yTxt + 16ã Xp = (x - xTxt) * 2 + Xpos: Yp = (y - yTxt) * 2 + Yposã IF POINT(x, y) = 15 THEN CL = FGC ELSE CL = BGCã PSET (Xp, Yp), CLã IF FillOut THEN PSET (Xp + 1, Yp), CL: PSET (Xp, Yp + 1), CL: PSET (Xp + 1, Yp + 1), CLã NEXT yãNEXT xãLOCATE yTxto, xTxto: PRINT SPACE$(LEN(text$));ãEND SUBãHauke Daempfling VARIOUS STARFIELDS hcd@berlin.snafu.de 11-11-97 (11:43) QB, QBasic, PDS 390 11677 STARFILD.BAS' ***** Starfields! *****ã' by Hauke Daempflingã' hcd@berlin.snafu.deã'ã'(c)1996 Hauke Daempflingã'ã' Give me credit if used!... thanx! :)ã'ã' Check out the examples below to figure out how it worx.ã'ãDECLARE SUB SFExpl (Star() AS ANY)ãDECLARE SUB SFBlackHole (Star() AS ANY)ãDECLARE SUB SFInitBoom (Star() AS ANY, x%, y%)ãDECLARE SUB SFBoom (Star() AS ANY)ãDECLARE SUB SFBounce (Star() AS ANY)ãDECLARE SUB SFClear (Star() AS ANY)ãDECLARE SUB SFStd (Star() AS ANY)ãDECLARE SUB SFInit (Star() AS ANY, x1%, y1%, x2%, y2%)ãDECLARE SUB SFSuck (Star() AS ANY)ãDECLARE SUB SFTwinkle (Star() AS ANY)ã'$DYNAMICãDEFINT A-ZãTYPE StarTypeã x AS INTEGER 'current screen posã y AS INTEGERã s AS INTEGER 'speed (x speed)ã b AS INTEGER 'bounce (y speed)ã c AS INTEGER 'colorã x1 AS INTEGER 'field bordersã y1 AS INTEGERã x2 AS INTEGERã y2 AS INTEGERã xc AS INTEGER 'center of fieldã yc AS INTEGERã v AS INTEGER 'current explosion statusã d AS INTEGER 'distance to explodeã sx AS INTEGER 'spray distanceã sy AS INTEGERã xv AS INTEGER 'explosion centerã yv AS INTEGERãEND TYPEãSCREEN 13ãRANDOMIZE TIMERãOUT &H3C8, 200ãFOR t = 1 TO 20ã OUT &H3C9, t * 3 + 3ã OUT &H3C9, t * 3 + 3ã OUT &H3C9, t * 3 + 3ã 'OUT &H3C9, INT(RND * 64)ã 'OUT &H3C9, INT(RND * 64)ã 'OUT &H3C9, INT(RND * 64)ãNEXTããDIM Stars(300) AS StarTypeããSFInit Stars(), 0, 16, 320, 200ããLOCATE 1, 1: PRINT "Standard"ãDOã SFStd Stars()ãLOOP UNTIL INKEY$ <> ""ããLOCATE 1, 1: PRINT "Suck "ãDOã SFSuck Stars()ãLOOP UNTIL INKEY$ <> ""ããLOCATE 1, 1: PRINT "Boom"ãDOã SFBoom Stars()ãLOOP UNTIL INKEY$ <> ""ããLOCATE 1, 1: PRINT "Bounce"ãDOã SFBounce Stars()ãLOOP UNTIL INKEY$ <> ""ããLOCATE 1, 1: PRINT "Twinkle"ãDOã SFTwinkle Stars()ãLOOP UNTIL INKEY$ <> ""ããLOCATE 1, 1: PRINT "Black Hole"ãDOã SFBlackHole Stars()ãLOOP UNTIL INKEY$ <> ""ããSFClear Stars()ããLOCATE 1, 1: PRINT "Multiple starfields"ãDIM Stars1(100) AS StarTypeãDIM Stars2(100) AS StarTypeãDIM Stars3(100) AS StarTypeãSFInit Stars1(), 0, 16, 320, 61ãSFInit Stars2(), 0, 61, 320, 122ãSFInit Stars3(), 0, 122, 320, 200ããDOã SFStd Stars1()ã SFTwinkle Stars2()ã SFBounce Stars3()ãLOOP UNTIL INKEY$ <> ""ãSFClear Stars1()ãSFClear Stars2()ãSFClear Stars3()ãSFInitBoom Stars1(), Stars1(1).xc, Stars1(1).ycãSFInitBoom Stars2(), Stars2(1).xc, Stars2(1).ycãSFInitBoom Stars3(), Stars3(1).xc, Stars3(1).ycãDOã SFBoom Stars1()ã SFBoom Stars2()ã SFBoom Stars3()ãLOOP UNTIL INKEY$ <> ""ãDOã SFStd Stars1()ã SFTwinkle Stars2()ã SFBounce Stars3()ãLOOP UNTIL INKEY$ <> ""ãSFClear Stars1()ãSFClear Stars2()ãSFClear Stars3()ãSFInit Stars1(), 0, 16, 320, 200ãSFInitBoom Stars1(), RND * 320, RND * 200ãSFInit Stars2(), 0, 16, 320, 200ãSFInitBoom Stars2(), RND * 320, RND * 200ãSFInit Stars3(), 0, 16, 320, 200ãSFInitBoom Stars3(), RND * 320, RND * 200ãSFcount = 1ãDOã IF SFcount = 25 THENã SFClear Stars1()ã SFInitBoom Stars1(), RND * 304 + 16, RND * 200ã END IFã IF SFcount = 50 THENã SFClear Stars2()ã SFInitBoom Stars2(), RND * 304 + 16, RND * 200ã END IFã IF SFcount = 75 THENã SFClear Stars3()ã SFInitBoom Stars3(), RND * 304 + 16, RND * 200ã SFcount = 1ã END IFã SFcount = SFcount + 1ã SFExpl Stars1()ã SFExpl Stars2()ã SFExpl Stars3()ãLOOP UNTIL INKEY$ <> ""ããREM $STATICãSUB SFBlackHole (Star() AS StarType)ãMaxS = UBOUND(Star)ãFOR a = 1 TO MaxSã PSET (Star(a).x, Star(a).y), 0ã SELECT CASE Star(a).vã CASE 0ã IF Star(a).x > Star(a).xc THEN Star(a).x = Star(a).x - Star(a).sã IF Star(a).x < Star(a).xc THEN Star(a).x = Star(a).x + Star(a).sã IF Star(a).y > Star(a).yc THEN Star(a).y = Star(a).y - Star(a).sã IF Star(a).y < Star(a).yc THEN Star(a).y = Star(a).y + Star(a).sã s1 = Star(a).x > Star(a).xc - 2ã s2 = Star(a).x < Star(a).xc + 2ã s3 = Star(a).y > Star(a).yc - 2ã s4 = Star(a).y < Star(a).yc + 2ã IF s1 AND s2 AND s3 AND s4 THEN Star(a).v = -1ã 'IF (s1 AND s2) OR (s3 AND s4) THEN Star(a).s = Star(a).s + 1ã CASE -1ã Star(a).x = RND * (Star(a).x2 - Star(a).x1) + Star(a).x1ã Star(a).y = RND * (Star(a).y2 - Star(a).y1) + Star(a).y1ã Star(a).c = RND * 20 + 1ã Star(a).s = Star(a).c \ 8 + 1ã Star(a).c = Star(a).c + 200ã Star(a).b = RND * 4 - 2ã Star(a).v = -3ã CASE ELSEã Star(a).v = 0ã END SELECTã PSET (Star(a).x, Star(a).y), Star(a).cãNEXT aãEND SUBããSUB SFBoom (Star() AS StarType)ãMaxS = UBOUND(Star)ãIF x2 - x1 < y2 - y1 THEN m = x2 - x1 ELSE m = y2 - y1ãFOR a = 1 TO MaxSã PSET (Star(a).x, Star(a).y), 0ã SELECT CASE Star(a).vã CASE 0ã IF Star(a).x < Star(a).sx THEN Star(a).x = Star(a).x - Star(a).sã IF Star(a).x > Star(a).sx THEN Star(a).x = Star(a).x + Star(a).sã IF Star(a).y < Star(a).sy THEN Star(a).y = Star(a).y - Star(a).bã IF Star(a).y > Star(a).sy THEN Star(a).y = Star(a).y + Star(a).bã IF Star(a).x <= Star(a).x1 + Star(a).d THEN Star(a).v = -1ã IF Star(a).y <= Star(a).y1 + Star(a).d THEN Star(a).v = -1ã IF Star(a).x >= Star(a).x2 - Star(a).d THEN Star(a).v = -1ã IF Star(a).y >= Star(a).y2 - Star(a).d THEN Star(a).v = -1ã CASE -1ã Star(a).sy = RND * (Star(a).x2 - Star(a).x1)ã Star(a).s = (Star(a).c - 200) \ 8 + 1ã Star(a).d = RND * (m \ 3)ã Star(a).v = -2ã CASE -2ã IF Star(a).s \ 2 = 0 THEN s = 1 ELSE s = Star(a).s \ 2ã Star(a).x = Star(a).x - sã Star(a).y = Star(a).y + Star(a).bã IF Star(a).x < Star(a).x1 OR Star(a).y > Star(a).y2 OR Star(a).y < Star(a).y1 THENã Star(a).x = RND * ((Star(a).x2 - Star(a).x1) \ 16) + Star(a).x2 - ((Star(a).x2 - Star(a).x1) \ 16)ã Star(a).y = RND * (Star(a).y2 - Star(a).y1) + Star(a).y1ã Star(a).c = RND * 20 + 1ã Star(a).s = Star(a).c \ 8 + 1ã Star(a).c = Star(a).c + 200ã Star(a).b = RND * 4 - 2ã Star(a).v = -3ã END IFã CASE -3ã Star(a).x = Star(a).x - Star(a).sã IF Star(a).x < Star(a).x1 THENã Star(a).x = RND * ((Star(a).x2 - Star(a).x1) \ 16) + Star(a).x2 - ((Star(a).x2 - Star(a).x1) \ 16)ã Star(a).y = RND * (Star(a).y2 - Star(a).y1) + Star(a).y1ã Star(a).c = RND * 20 + 1ã Star(a).s = Star(a).c \ 8 + 1ã Star(a).c = Star(a).c + 200ã Star(a).b = RND * 4 - 2ã END IFã END SELECTã PSET (Star(a).x, Star(a).y), Star(a).cãNEXT aãEND SUBããSUB SFBounce (Star() AS StarType)ãMaxS = UBOUND(Star)ãFOR a = 1 TO MaxSã PSET (Star(a).x, Star(a).y), 0ã Star(a).x = Star(a).x - Star(a).sã IF Star(a).x < Star(a).x1 THENã Star(a).x = RND * ((Star(a).x2 - Star(a).x1) \ 16) + Star(a).x2 - ((Star(a).x2 - Star(a).x1) \ 16)ã Star(a).y = RND * (Star(a).y2 - Star(a).y1) + Star(a).y1ã Star(a).c = RND * 20 + 1ã Star(a).s = Star(a).c \ 8 + 1ã Star(a).c = Star(a).c + 200ã Star(a).b = RND * 4 - 2ã Star(a).v = -3ã END IFã Star(a).y = Star(a).y - Star(a).bã IF Star(a).y < Star(a).y1 OR Star(a).y > Star(a).y2 THEN Star(a).b = -Star(a).bã PSET (Star(a).x, Star(a).y), Star(a).cãNEXT aãEND SUBããSUB SFClear (Star() AS StarType)ãMaxS = UBOUND(Star)ãFOR a = 1 TO MaxSã PSET (Star(a).x, Star(a).y), 0ãNEXT aãEND SUBããSUB SFDraw (Star() AS StarType)ãMaxS = UBOUND(Star)ãFOR a = 1 TO MaxSã PSET (Star(a).x, Star(a).y), Star(a).cãNEXT aãEND SUBããSUB SFExpl (Star() AS StarType)ãMaxS = UBOUND(Star)ãIF x2 - x1 < y2 - y1 THEN m = x2 - x1 ELSE m = y2 - y1ãFOR a = 1 TO MaxSã PSET (Star(a).x, Star(a).y), 0ã SELECT CASE Star(a).vã CASE 0ã IF Star(a).x < Star(a).sx THEN Star(a).x = Star(a).x - Star(a).sã IF Star(a).x > Star(a).sx THEN Star(a).x = Star(a).x + Star(a).sã IF Star(a).y < Star(a).sy THEN Star(a).y = Star(a).y - Star(a).bã IF Star(a).y > Star(a).sy THEN Star(a).y = Star(a).y + Star(a).bã IF Star(a).x <= Star(a).x1 + Star(a).d THEN Star(a).v = -1ã IF Star(a).y <= Star(a).y1 + Star(a).d THEN Star(a).v = -1ã IF Star(a).x >= Star(a).x2 - Star(a).d THEN Star(a).v = -1ã IF Star(a).y >= Star(a).y2 - Star(a).d THEN Star(a).v = -1ã CASE -1ã Star(a).sy = RND * (Star(a).x2 - Star(a).x1)ã Star(a).s = (Star(a).c - 200) \ 8 + 1ã Star(a).d = RND * (m \ 3)ã Star(a).v = -2ã CASE -2ã IF Star(a).s \ 2 = 0 THEN s = 1 ELSE s = Star(a).s \ 2ã Star(a).x = Star(a).x - sã Star(a).y = Star(a).y + Star(a).bã IF Star(a).x < Star(a).x1 OR Star(a).y > Star(a).y2 OR Star(a).y < Star(a).y1 THENã Star(a).v = -3ã END IFã CASE -3ã Star(a).v = 0ã Star(a).d = RND * (m \ 3)ã Star(a).x = Star(a).xv + RND * 3 - 1ã Star(a).y = Star(a).yv + RND * 3 - 1ã Star(a).c = RND * 20 + 1ã Star(a).s = Star(a).c \ 8 + 1ã Star(a).c = Star(a).c + 200ã Star(a).b = RND * 4 - 2ã END SELECTã PSET (Star(a).x, Star(a).y), Star(a).cãNEXT aãEND SUBããSUB SFInit (Star() AS StarType, x1, y1, x2, y2)ãMaxS = UBOUND(Star)ãIF x2 - x1 < y2 - y1 THEN m = x2 - x1 ELSE m = y2 - y1ãFOR a = 1 TO MaxSã Star(a).c = RND * 20 + 1ã Star(a).s = Star(a).c \ 8 + 1ã Star(a).c = Star(a).c + 200ã Star(a).b = RND * 4 - 2ã Star(a).x1 = x1ã Star(a).y1 = y1ã Star(a).x2 = x2ã Star(a).y2 = y2ã Star(a).xc = (Star(a).x2 - Star(a).x1) \ 2 + Star(a).x1ã Star(a).yc = (Star(a).y2 - Star(a).y1) \ 2 + Star(a).y1ã Star(a).x = RND * (x2 - x1) + x1ã Star(a).y = RND * (y2 - y1) + y1ã Star(a).v = -3ã IF RND > .5 THEN Star(a).sx = RND * ((Star(a).x2 - Star(a).x1) \ 16) ELSE Star(a).sx = (Star(a).x2 - Star(a).x1) - RND * ((Star(a).x2 - Star(a).x1) \ 16)ã Star(a).sy = RND * (Star(a).x2 - Star(a).x1)ã Star(a).d = RND * (m \ 3)ãNEXT aãEND SUBããSUB SFInitBoom (Star() AS StarType, x, y)ãMaxS = UBOUND(Star)ãIF x2 - x1 < y2 - y1 THEN m = x2 - x1 ELSE m = y2 - y1ãFOR a = 1 TO MaxSã Star(a).v = 0ã Star(a).d = RND * (m \ 3)ã Star(a).x = x + RND * 3 - 1ã Star(a).y = y + RND * 3 - 1ã Star(a).xv = xã Star(a).yv = yãNEXT aãEND SUBããSUB SFStd (Star() AS StarType)ãMaxS = UBOUND(Star)ãFOR a = 1 TO MaxSã PSET (Star(a).x, Star(a).y), 0ã Star(a).x = Star(a).x - Star(a).sã IF Star(a).x < Star(a).x1 THENã Star(a).x = RND * ((Star(a).x2 - Star(a).x1) \ 16) + Star(a).x2 - ((Star(a).x2 - Star(a).x1) \ 16)ã Star(a).y = RND * (Star(a).y2 - Star(a).y1) + Star(a).y1ã Star(a).c = RND * 20 + 1ã Star(a).s = Star(a).c \ 8 + 1ã Star(a).c = Star(a).c + 200ã Star(a).b = RND * 4 - 2ã Star(a).v = -3ã END IFã PSET (Star(a).x, Star(a).y), Star(a).cãNEXT aãEND SUBããSUB SFSuck (Star() AS StarType)ãMaxS = UBOUND(Star)ãFOR a = 1 TO MaxSã PSET (Star(a).x, Star(a).y), 0ã IF Star(a).x < Star(a).xc THEN Star(a).x = Star(a).x + Star(a).sã IF Star(a).x > Star(a).xc THEN Star(a).x = Star(a).x - Star(a).sã IF Star(a).y < Star(a).yc THEN Star(a).y = Star(a).y + Star(a).sã IF Star(a).y > Star(a).yc THEN Star(a).y = Star(a).y - Star(a).sã Star(a).v = 0ã PSET (Star(a).x, Star(a).y), Star(a).cãNEXT aãEND SUBããSUB SFTwinkle (Star() AS StarType)ãMaxS = UBOUND(Star)ãFOR a = 1 TO MaxSã PSET (Star(a).x, Star(a).y), 0ã IF Star(a).s \ 2 = 0 THEN s = 1 ELSE s = Star(a).s \ 2ã Star(a).y = Star(a).y + sã Star(a).c = Star(a).c + 1ã IF Star(a).c >= 220 THEN Star(a).c = 201ã IF Star(a).y > Star(a).y2 THENã Star(a).x = RND * (Star(a).x2 - Star(a).x1) + Star(a).x1ã Star(a).y = RND * ((Star(a).y2 - Star(a).y1) \ 16) + Star(a).y1ã Star(a).c = RND * 20 + 1ã Star(a).s = Star(a).c \ 8 + 1ã Star(a).c = Star(a).c + 200ã Star(a).b = RND * 4 - 2ã Star(a).v = -3ã END IFã PSET (Star(a).x, Star(a).y), Star(a).cãNEXT aãEND SUBãHauke Daempfling BITMAP-TO-BASIC CONVERTER hcd@berlin.snafu.de 11-11-97 (11:43) QB, QBasic, PDS 151 4328 BMP2BAS.BAS DECLARE SUB LoadBmp (file$, xpos%, ypos%, mx%, my%)ãDEFINT A-Zãã'ã' by Hauke Daempflingã' hcd@berlin.snafu.deã'ã'(c)1996 Hauke Daempflingã'ã' Give me credit if used!... thanx! :)ã'ã'ããSCREEN 0: CLSãPRINT "***** BMP2BAS - The Bitmap-to-Basic Converter ***** "ãPRINT "By Hauke Daempfling"ãPRINT "June 9, 1996"ãPRINTãPRINT "This program creates text BAS files from Windows"ãPRINT "bitmaps. Bitmaps must be 16 color and RGB (not RLE)"ãPRINT "encoded. Useful for adding small bitmaps into your"ãPRINT "programs, eliminating the problem of lots of small"ãPRINT "data files. Maximum bitmap size is 640x480."ãPRINTãINPUT "Bitmap filename? ", INf$ãINf$ = UCASE$(INf$)ãIF INf$ = "" THEN PRINT "No filename!": SYSTEMãINPUT "Output filename? ", OUTf$ãOUTf$ = UCASE$(OUTf$)ãIF OUTf$ = "" THEN PRINT "No filename!": SYSTEMãOPEN OUTf$ FOR BINARY AS #1ãl& = LOF(1)ãCLOSE #1ãIF l& THENã PRINT OUTf$; " already exists! Overwrite?";ã DO: a$ = INKEY$: LOOP UNTIL a$ <> ""ã IF LEFT$(LTRIM$(UCASE$(a$)), 1) <> "Y" THEN : SYSTEMãEND IFããSCREEN 12ããLoadBmp INf$, -2, -2, mx, myãmx = mx - 1ãmy = my - 2ãOPEN OUTf$ FOR OUTPUT AS #1ãx$ = CHR$(34): y$ = CHR$(13) + CHR$(10)ãão$ = ""ão$ = o$ + "defint a-z" + y$ão$ = o$ + "declare sub Draw" + INf$ + "(Xpos%,Ypos%)" + y$ + y$ão$ = o$ + "screen 12 'Any 16-color or more mode will do" + y$ão$ = o$ + "Draw" + INf$ + " 0,0" + y$ + y$ão$ = o$ + "'Call this procedure to draw " + INf$ + " at Xpos,Ypos" + y$ão$ = o$ + "sub Draw" + INf$ + "(Xpos,Ypos)" + y$ão$ = o$ + "Rpos&=66:restore Pic" + INf$ + "data" + y$ão$ = o$ + "read Xmax,Ymax" + y$ão$ = o$ + "for x=0 to Xmax" + y$ão$ = o$ + " for y=0 to Ymax" + y$ão$ = o$ + " if Rpos&>65 then read InBuff$:Rpos&=1" + y$ão$ = o$ + " i$=mid$(InBuff$,Rpos&,1)" + y$ão$ = o$ + " col=val(" + x$ + "&H" + x$ + "+i$)" + y$ão$ = o$ + " Rpos&=Rpos&+1:pset (x+Xpos,y+Ypos),col" + y$ão$ = o$ + " next" + y$ão$ = o$ + "next" + y$ão$ = o$ + "end sub" + y$ + y$ão$ = o$ + "Pic" + INf$ + "data:" + y$ão$ = o$ + "'*** Pic data from picture file " + INf$ + y$ão$ = o$ + "DATA" + STR$(mx) + "," + STR$(my)ãPRINT #1, o$ãão$ = "DATA "ãFOR x = 0 TO mxã FOR y = 0 TO myã r = POINT(x, y)ã s$ = HEX$(r)ã o$ = o$ + s$ã IF LEN(o$) = 70 THEN PRINT #1, o$: o$ = "DATA "ã NEXT yãNEXT xãIF LEN(o$) > 5 THEN PRINT #1, o$ão$ = "'* End pic data for " + INf$ãPRINT #1, o$ãCLOSE #1ããSCREEN 2: SCREEN 0ãPRINT "Done converting. Goodbye!"ãSYSTEMããSUB LoadBmp (file$, xpos, ypos, mx, my)ãIF LTRIM$(RTRIM$(file$)) = "" THEN SCREEN 0: SYSTEMãFFile = FREEFILEãOPEN file$ FOR BINARY AS #FFileãIF LOF(FFile) = 0 THENã PRINT "Error: "; file$; " not found!"ã CLOSEã KILL file$ã SCREEN 0ã SYSTEMãEND IFãtable$ = INPUT$(54, #FFile) 'Get the file header (54 bytes)ãDIM table&(30) 'Create numerical array for headerãDEF SEG = VARSEG(table&(1))ãpointer% = VARPTR(table&(1))ãã'Poke the data from string "table$" into numerical array "table&"ãFOR x% = 0 TO 51ã POKE pointer% + x%, ASC(MID$(table$, x% + 3, 1))ãNEXTãDEF SEGãã'Check for valid file typeãIF MID$(table$, 1, 2) <> "BM" OR table&(4) <> 40 THENã PRINT "Error while loading "; file$: SCREEN 0: SYSTEMãEND IFãIF table&(8) <> 0 THENã PRINT "Error while loading "; file$: SCREEN 0: SYSTEMãEND IFãIF ASC(MID$(table$, 29, 1)) <> 4 THENã PRINT "Error while loading "; file$: SCREEN 0: SYSTEMãEND IFããthecolors$ = INPUT$(table&(3) - 54, #FFile) 'Read in pallette infoãã'Read in Bitmap data and set pixels accordinglyãy% = table&(6) 'Put number of vertical pixels into y%ãmy = yãxdata$ = INPUT$((((table&(5) - 1) OR 7) + 1) \ 2, #1)ã IF (table&(5) \ 2) < LEN(xdata$) THENã linelength% = table&(5) \ 2ã ELSEã linelength% = LEN(xdata$)ã END IFãmx = linelength% * 2ãDOã xdata$ = INPUT$((((table&(5) - 1) OR 7) + 1) \ 2, #1)ã IF (table&(5) \ 2) < LEN(xdata$) THENã linelength% = table&(5) \ 2ã ELSEã linelength% = LEN(xdata$)ã END IFã IF linelength% > mx THEN mx = linelength% * 2ã FOR x% = 1 TO linelength%ã pixel% = ASC(MID$(xdata$, x%, 1))ã PSET (x% * 2 + 1 + xpos, y% + ypos), pixel% AND 15ã PSET (x% * 2 + xpos, y% + ypos), pixel% \ 16ã NEXTã y% = y% - 1ãLOOP UNTIL EOF(FFile)ãCLOSE #FFileãERASE table&ãEND SUBãWoody Pope XMAS SNOWFALL comp.lang.basic.misc 12-19-96 (21:26) QB, QBasic, PDS 311 6798 XSNOW.BAS 'Here's a QBASIC program I whipped up for your Xmas Cheer, enjoy!ãã' XSNOW by Woody Pope (c) 1996ã'May be freely copied for nonprofitããDECLARE SUB windmove (mydata AS ANY)ãDECLARE SUB putit (mydata AS ANY, x%)ãDECLARE SUB moveit (mydata AS ANY)ãDIM tree%(2900)ãDIM moon%(2800)ãDIM moonblnk%(1000)ãDIM santa1%(1600)ãDIM santa2%(1600)ãDIM SHARED flake%(18)ãDIM SHARED blank%(18, 10)ãDIM SHARED maxsnow%ãDIM x%, z%, wind%, s%, m%, v%, n%, st%ãDIM santaflg%, santaph%, repeatflg%ãDIM SHARED d%ãRANDOMIZE TIMERããTYPE fdataã xpos AS INTEGERã hilimit AS INTEGERã lolimit AS INTEGERã ypos AS INTEGERã ftype AS SINGLEã offset AS INTEGERãEND TYPEããDIM sflake(0 TO 9) AS fdataãmaxsnow% = 470ããsflake(0).offset = 32ãsflake(0).xpos = 32ãsflake(0).hilimit = 57ãsflake(0).lolimit = 0ãsflake(0).ypos = 25ãsflake(0).ftype = 1ããsflake(1).offset = 96ãsflake(1).xpos = 96ãsflake(1).hilimit = 121ãsflake(1).lolimit = 64ãsflake(1).ypos = 360ãsflake(1).ftype = 0ããsflake(2).offset = 160ãsflake(2).xpos = 160ãsflake(2).hilimit = 185ãsflake(2).lolimit = 128ãsflake(2).ypos = 100ãsflake(2).ftype = 1ããsflake(3).offset = 224ãsflake(3).xpos = 224ãsflake(3).hilimit = 249ãsflake(3).lolimit = 192ãsflake(3).ypos = 275ãsflake(3).ftype = 0ããsflake(4).offset = 288ãsflake(4).xpos = 288ãsflake(4).hilimit = 313ãsflake(4).lolimit = 256ãsflake(4).ypos = 0ãsflake(4).ftype = 1ããsflake(5).offset = 340ãsflake(5).xpos = 340ãsflake(5).hilimit = 377ãsflake(5).lolimit = 320ãsflake(5).ypos = 400ãsflake(5).ftype = 0ããsflake(6).offset = 416ãsflake(6).xpos = 416ãsflake(6).hilimit = 441ãsflake(6).lolimit = 384ãsflake(6).ypos = 75ãsflake(6).ftype = 1ããsflake(7).offset = 480ãsflake(7).xpos = 480ãsflake(7).hilimit = 505ãsflake(7).lolimit = 448ãsflake(7).ypos = 27ãsflake(7).ftype = 0ããsflake(8).offset = 544ãsflake(8).xpos = 544ãsflake(8).hilimit = 569ãsflake(8).lolimit = 512ãsflake(8).ypos = 60ãsflake(8).ftype = 1ããsflake(9).offset = 608ãsflake(9).xpos = 608ãsflake(9).hilimit = 631ãsflake(9).lolimit = 576ãsflake(9).ypos = 150ãsflake(9).ftype = 0ãããSCREEN 12ãGOSUB clrblackãGOSUB flakeãGET (0, 0)-(6, 7), flake%ã'draw santaãGOSUB clrblackãGOSUB santaããããã'get moonãGOSUB clrblueãCIRCLE (52, 48), 48, 3, , , 1ãPAINT (50, 50), 3, 3ãGET (0, 0)-(100, 100), moon%ãGET (0, 30)-(100, 55), moonblnk%ãm% = 100ãn% = 220ãããGOSUB clrblueãGOSUB treeãGET (0, 0)-(100, 110), tree%ããGOSUB clrblueã'set treesã PUT (100, 364), tree%, PSETã PUT (288, 364), tree%, PSETã PUT (433, 364), tree%, PSETãã PUT (m%, n%), moon%, PSETã'set snowy groundãs% = 476ãLINE (0, s%)-(639, 479), 15, BFãcounter% = 2500ãz% = 1ãwind% = 0ãsantaflg% = 0ãrepeatflg% = 0ãsantaph% = 0ãst% = 0ãCOLOR 4ãLOCATE 2, 22ãPRINT "MERRY CHRISTMAS AND A HAPPY NEW YEAR!"ãDRAW "bm200,20 c1 p1,4"ãCOLOR 15ãã'main loopãmylp:ã'adjust snow heightãcounter% = counter% - 1ãIF (counter% = 2500 / 2 OR counter% = 0) THENã wind% = 1: santaflg% = 1: repeatflg% = 1ã v% = 100 + INT(RND * 100)ã IF RND < .5 THEN d% = 1 ELSE d% = 0ãEND IFãIF counter% = 0 THENã IF maxsnow% > 400 THENã maxsnow% = maxsnow% - 2ã s% = s% - 2ã LINE (0, s%)-(639, s% + 2), 15, BFã END IFã counter% = 2500ãEND IFãã'put flakesãFOR x% = 0 TO 9ã CALL putit(sflake(x%), x%)ãNEXT x%ãã'move santaãIF santaflg% = 1 AND repeatflg% = 1 THENã IF santaph% = 0 THENã PUT (m%, n% + 30), moonblnk%, PSETã PUT ((m% - 100) + st%, n% + 30), santa1%, ANDã santaph% = 1ã ELSEã PUT (m%, n% + 30), moonblnk%, PSETã PUT ((m% - 100) + st%, n% + 30), santa2%, ANDã santaph% = 0ã END IFã st% = st% + 4ã IF st% > 200 THEN st% = 0: santaph% = 0: santaflg% = 0: repeatflg% = 0ã savecnt% = counter%ãEND IFãrepeatflg% = 0ãIF savecnt% >= 10 THENã IF (savecnt% - 10) = counter% THEN repeatflg% = 1ã ELSEã savecnt% = 2500 - 10ãEND IFããIF wind% = 1 THENã FOR x% = 0 TO 9ã PUT (sflake(x%).xpos, sflake(x%).ypos), blank%(0, x%), PSETã CALL windmove(sflake(x%))ã NEXT x%ã IF counter% = (1250 - v%) OR counter% = (2500 - v%) THENã wind% = 0ã IF m% < 300 THENã m% = m% + 2ã n% = n% - 1ã PUT (m%, n%), moon%, PSETã END IFã END IFãELSEã'clear flakes & move to next posã FOR x% = 0 TO 9ã IF sflake(x%).ypos >= maxsnow% THENã sflake(x%).ypos = 0ã sflake(x%).xpos = sflake(x%).offset + (RND * 5)ã IF RND > .5 THENã sflake(x%).ftype = 1ã ELSEã sflake(x%).ftype = 0ã END IFã ELSEã PUT (sflake(x%).xpos, sflake(x%).ypos), blank%(0, x%), PSETã END IFã CALL moveit(sflake(x%))ã NEXT x%ãEND IFããã'check keys for exitãa$ = INKEY$ãIF a$ = "" THEN GOTO mylpãENDããflake:ãDRAW "c15 bm3,4 nh3 nu3 ne3 nr3 nf3 nd3 ng3 nl3"ãRETURNããclrblue:ãDRAW "bm0,0"ãDRAW "p1,5"ãRETURNããclrblack:ãDRAW "bm0,0"ãDRAW "p0,5"ãRETURNããtree:ãDRAW "c2 bm50,0 m30,30 m40,30 m15,60 m30,60 m0,100 m100,100 m70,60 m85,60 m60,30 m70,30 m50,0 bm50,2 p2,2"ãDRAW "c6 bm45,101 m55,101 m55,110 m45,110 m45,101 bm48,104 p6,6"ãRETURNããsanta:ãLINE (0, 0)-(200, 25), 15, BFãDRAW "c1 bm5,12 m10,14 m20,14 m22,12 m20,9 m28,12 m27,14 m32,17 m34,17 m36,14 m41,14 m41,16 m38,16 m36,24 m0,24 m0,22 m5,22 m5,12"ãDRAW "bm10,17 p1,1"ãdeer$ = "m+2,-2 m-2,-2 m+2,-2 m+2,+2 r20 m-4,-4 r2 nh3 ne3 r4 nh3 ne3 r2 m-4,+4 d4 m-4,+4 l16 m-4,-4"ãDRAW "bm60,16" + deer$ + "bm+24,-6 p1,1 bm -20,+6 p1,1"ãDRAW "bm105,16" + deer$ + "bm+24,-6 p1,1 bm -20,+6 p1,1"ãDRAW "bm150,16" + deer$ + "bm+24,-6 p1,1 bm -20,+6 p1,1"ã'draw legsãDRAW "bm64,20 m-4,+4 bm80,20 m+4,+4"ãDRAW "bm109,20 m-4,+4 bm125,20 m+4,+4"ãDRAW "bm154,20 m-4,+4 bm170,20 m+4,+4"ã'draw reinsãDRAW "bm41,14 m60,16"ãDRAW "bm84,12 m105,16"ãDRAW "bm129,12 m150,16"ãGET (0, 0)-(200, 25), santa1%ãLINE (60, 20)-(174, 24), 15, BFã'draw legsãDRAW "c1 bm64,20 m+4,+4 bm80,20 m-4,+4"ãDRAW "bm109,20 m+4,+4 bm125,20 m-4,+4"ãDRAW "bm154,20 m+4,+4 bm170,20 m-4,+4"ãGET (0, 0)-(200, 25), santa2%ãRETURNããSUB moveit (mydata AS fdata)ã ã IF mydata.ftype = 1 THENã mydata.ypos = mydata.ypos + 1ãã ELSEã mydata.ypos = mydata.ypos + 2ãã END IFã IF RND > .5 THENã mydata.xpos = mydata.xpos + (RND * 3)ã IF mydata.xpos > mydata.hilimit THEN mydata.xpos = mydata.hilimitã ELSEã mydata.xpos = mydata.xpos - (RND * 3)ã IF mydata.xpos < mydata.lolimit THEN mydata.xpos = mydata.lolimitã END IFãEND SUBããSUB putit (mydata AS fdata, x%)ã GET (mydata.xpos, mydata.ypos)-(mydata.xpos + 6, mydata.ypos + 7), blank%(0, x%)ã PUT (mydata.xpos, mydata.ypos), flake%, ORãEND SUBãã'ãSUB windmove (mydata AS fdata)ã IF d% = 1 THENã mydata.xpos = mydata.xpos + 5ã IF mydata.xpos >= 631 THEN mydata.xpos = 0ã ELSEã mydata.xpos = mydata.xpos - 5ã IF mydata.xpos <= 0 THEN mydata.xpos = 630ã END IFãEND SUBãWilliam T. Jones ROTATING 3D POLYGON wtjones@tcac.net 11-17-97 (20:11) QB, QBasic, PDS 499 17063 3DCUBE.BAS ' ********** Polygon 3D dev 3.1 **********ã'ã' November 1997ã' byã' William Jones wtjones@tcac.netã'ã'---------- Overview -------- ã' Basically a cube you control with the keyboard. Press "f" for filledã'mode.ã' There are countless numbers of this tired type of demo, but I am in theã'learning process and it is my duty to make one. This may not be original,ã'but I bet this is THE MOST THOROUGH 3D cube progam ever madeã'for QBASIC. Scroll down a couple of pages to see the controls.ãã'---------- The story thus far... ------------ã' This demonstration is loosely based on the "VGA Trainer Program 8"ã'by Denthor of Asphixia. I first ported the C version of his trainer toã'QBASIC, then wrote this.ã' In order for a program to be a tourial, it must be very readable and easyã'to understand. Because of that, his version is not optimized for speed.ã' The basic elemet was a line, which means the starting 3D point and theã'ending 3D point. There were of course 12 lines to make a Wireframe cube.ã'That's 24 points to manipulated each frame of animation, 3 times as many asã'a cube has. While messing around, I connected lines in through the center.ã'The more lines to be rendered, the slower it got.ã' I then re-wrote it so the basic element is a point. In the case of a cubeã'there are 8 points. That is all that needs to be calculated. Each point isã'perspective projected into 2D screen coordinates and stored in an integerã'array. Then the points can be used for polygons.ã' Here's how the points are indexed:ã'ã' 1- - - - - 2ã' /| /|ã' 5/ -|- - - -6/ |ã' | | | |ã' | | | |ã' | 3- - - -| - 4ã' | / | /ã' 7/ - - - - -8/ã'ã'1 through 4 in the back, 5 through 8 in the front.ã'ã' The polygon() array contains the indices of the four points that make upã'each polygon (for use in the cubePoint() array). There is of course one forã'each side of the cube. Having the polygon structure address already madeã'point's instead of having it's own is probably against good practice, butã'I don't see the need to keep rendering points that in the same exact spot.ã'You will notice that the only data types are for points. That is becauseã'QBASIC doesn't allow structures to have arrays. If I move this to C it willã'look completely different (and easier to read).ã'If someone has a better way that I should be doing things and you have theã'time, please email me at wtjones@tcac.net and explain.ã' Each polygon isã'drawn by connecting its points. The first polygon (array element 1,X) isã'the top of the cube. Its points are 1, 2, 6 and 5. They are in that orderã'(clockwise) so that when the normal is found, the outer direction is drawnã'when visible. (It doesn't make much sense to me either)ã'ã'---------- Controls ----------ã' -num lock must be onã' -on numerical keypadã' -"8" and "2" rotate on the x axisã' -"4" and "6" rotate on the y axisã' -"7" and "9" rotate on the z axisã' -"5" stops all motionã' -"0" resets valuesã' -"+" and "-" move along the z perspectiveã' -arrow keys change x and y valuesã' -"p" toggles printing variables to screenã' -"h" toggles hidden surface removalã' -"f" toggles filled polygon modeã'ã'---------- Features ----------ã' -Decent speed for QBASIC.ã' -Many aspects can be controlled with keyboard.ã' -Set 'VariableOutput' to 'true' (or press "p") to print the angle andã' velocity of each axis.ã'ã'---------- Errata ----------ã' -I want to implement a freely movable 'camera'. That way I can set up a 3dã' world and use the keyboard to wander around it. It seems the way to do itã' would be to tranlate all objects using a constant factor when a certanã' key is pressed, sort of like it is now but instead not having theã' perspective fixed.ã' -Also planned is matrix mathmatics. Almost all references to 3Dã' programming have matrix content so it seems standard. It's best I learnã' too.ã' -If you give points decimal values, 'CubePoints()' must be declared ofã' type 'Point3d' instead of 'Point3dInt'. (another picky optimization)ã'ã'---------- Updates ----------ã' Febuary 1997ã' -Finished dev 2ã' April 19, 1997ã' -Cleaned code/typos and such. Now called dev 2.1.ã' November 14, 1997ã' -The line-connecting system is gone. Four points can be declared asã' a polygon to be drawn (conneced with lines).ã' -Hidden surface removal is added. Only visible polygon surfaces will beã' drawn/outlined. Press "h" to turn it off.ã' -When moving the cube with the arrow keys and plus and minus, the cubeã' doesn't rotate around the same axis like before. The points areã' first rotated and then added to a base to fix this. xLoc, yLoc, zLocã' is the base. If anybody knows why it moves so jumpy please tell me.ã' -Program is now 3.0ã' November 17, 1997ã' -Added filled polygon mode. Press "f" to use. I might put in a fillã' routine, but for now the PAINT statement goes outside the lines.ã' I don't know how to fix it, but it's annoying.ã' -The frame rate is now printed at the bottom of the screen, but theã' numbers don't seem right. When I turn on fill mode it feelsã' sluggish, but I still get an FPS of 90 or more.ã' -Program is now 3.1 (who cares?)ã'ã'|---------- CONSTANTS ------------------------|ãCONST pi = 3.141592 'single precision for speedãCONST true = -1, false = 0ãCONST NumPoints = 8 'the original 8 make a cube, you can easily add moreãCONST NumPolygons = 6 '6 faces of a cubeãCONST XOff = 160 'VGA sceen offsets for projectionãCONST YOff = 100ãCONST ZOff = -60ããCONST HScale = 256 'change these to make it look really weirdãCONST VScale = 256ãCONST OutlineColor = 15ã'|---------- DATA TYPES -----------------------|ãTYPE Point2DType 'VGA screen coordinatesã x AS INTEGERã y AS INTEGERãEND TYPEãTYPE Point3dType 'floating point values for translation equationsã x AS SINGLEã y AS SINGLEã z AS SINGLEãEND TYPEãTYPE Point3dIntType 'used for 3d offsets from DATA if they are whole numbersã x AS INTEGERã y AS INTEGERã z AS INTEGERãEND TYPEãã'|---------- VARIABLE/ARRAY DECLARATIONS -----|ãDIM n AS INTEGER, m AS INTEGER 'looping indicesããDIM polygons(1 TO NumPolygons, 1 TO 4) AS Point2DType 'point referencesãDIM visiblePolys(1 TO NumPolygons) AS INTEGER 'true or falseãDIM cubePoint(1 TO NumPoints) AS Point3dIntType 'loaded from DATAãDIM cubeVidPoint(1 TO NumPoints) AS Point2DType 'projected 2D pointsãDIM ccos(0 TO 359) AS SINGLE, csin(0 TO 359) AS SINGLEãDIM trans(1 TO NumPoints) AS Point3dType 'final translated pointsãDIM boxErase(1 TO 2) AS Point2DType 'holds the immediate box around the cubeãDIM xDeg AS INTEGER, yDeg AS INTEGER, zDeg AS INTEGER 'axis degreesãDIM xRate AS INTEGER, yRate AS INTEGER, zRate AS INTEGER 'axis velocitiesãDIM xLoc AS INTEGER, yLoc AS INTEGER, zLoc AS INTEGERãã'-tempsãDIM midPoint AS Point2DType 'for finding mid-points of polygonsãDIM temp AS Point3dType 'temporary buffer for translationãDIM timeTemp AS SINGLEãDIM nextSec AS SINGLEãã'-boolean flags-ãDIM done AS INTEGER 'boolean for escape keyãDIM variableOutput AS INTEGER 'boolean to print angle/velocityãDIM wireFrame AS INTEGER 'false for just dotsãDIM hsr AS INTEGER 'hidden surface removalãDIM filled AS INTEGERãã'|---------- SETUP ----------------------------|ãDEFINT A-Z 'all variables integers by defaultã 'load nessesary values of sine and cosine into lookup tablesãPRINT "Creating tables..."ãFOR n = 0 TO 359ã ccos(n) = COS(n * pi / 180)ã csin(n) = SIN(n * pi / 180)ãNEXT nã 'read in point offsets from dataãRESTORE CubeDataãFOR n = 1 TO NumPointsã READ cubePoint(n).xã READ cubePoint(n).yã READ cubePoint(n).zãNEXTã 'read in the indices of the 4 points each polygon consists ofãRESTORE PolygonDataãFOR n = 1 TO NumPolygonsã FOR m = 1 TO 4ã READ polygon(n, m)ã NEXTãNEXTããxDeg = 0: yDeg = 0: zDeg = 0 'degrees to refrence sin/cos tables,ã 'each will only be in range of 0-359ããxRate = 0: yRate = 0: zRate = 0 'degree incementsãvariableOutput = falseãwireFrame = falseãhsr = true 'hidden surface removal onãfilled = falseãã'|---------------------------------------------|ã'|---------- MAIN PROGRAM ---------------------|ã'|---------------------------------------------|ããSCREEN 7, , 1, 0 'page 0 is visual, page 1 activeãtimeTemp = INT(TIMER): nextSec = timeTemp + 1ãDOã GOSUB RotatePointsã GOSUB ProjectPoints 'produce 2D coordinates ready for drawingã GOSUB FindVisibleSidesã ã '-do all drawing-ã IF variableOutput = true THEN GOSUB PrintOut 'angle/velocity '''''ã ã '-draw the visible sides of the polygon-ã FOR n = 1 TO 6ã IF visiblePolys(n) = true THEN GOSUB OutlinePolygonã NEXTã IF filled = true THEN GOSUB FillPolygonsã ã PCOPY 1, 0 'copy active page to visualã GOSUB UpdateFrameRateã ã '-do all erasing-ã GOSUB EraseCube 'fill cube's bounding box with blackã ã IF variableOutput = true THEN GOSUB ErasePrintã ã GOSUB GetKeyã GOSUB Motion 'inc/dec angles based on ratesãLOOP WHILE done = falseãENDãã'|---------------------------------------------|ã'|---------- END MAIN PROGRAM -----------------|ã'|---------------------------------------------|ãããRotatePoints:ã FOR n = 1 TO NumPointsã trans(n).x = cubePoint(n).x 'restore original cube dataã trans(n).y = cubePoint(n).yã trans(n).z = cubePoint(n).zã GOSUB DoXAxis 'translation equationsã GOSUB DoYAxisã GOSUB DoZAxisã trans(n).x = xLoc + temp.xã trans(n).y = yLoc + temp.yã trans(n).z = zLoc + temp.zã NEXTãRETURNããDoXAxis:ã '-rotate on x axis-ã 'x is unalteredã temp.y = ccos(xDeg) * trans(n).y - csin(xDeg) * trans(n).zã temp.z = csin(xDeg) * trans(n).y + ccos(xDeg) * trans(n).zã ã '-put new values into translated array-ã 'x is unalteredã trans(n).y = temp.yã trans(n).z = temp.zãRETURNããDoYAxis:ã '-rotate on y axis-ã temp.x = ccos(yDeg) * trans(n).x + csin(yDeg) * trans(n).zã 'y is unalteredã temp.z = (-csin(yDeg)) * trans(n).x + ccos(yDeg) * trans(n).zã ã '-put new values into translated array-ã trans(n).x = temp.xã 'y is unalteredã trans(n).z = temp.zãRETURNããDoZAxis:ã '-rotate on z axis-ã temp.x = ccos(zDeg) * trans(n).x - csin(zDeg) * trans(n).yã temp.y = csin(zDeg) * trans(n).x + ccos(zDeg) * trans(n).yã 'z is unalteredã ã '-put new values into translated array-ã trans(n).x = temp.xã trans(n).y = temp.yã 'z is unalteredãRETURNããFindVisibleSides:ã IF hsr = true THENã FOR p = 1 TO 6ã zNorm1 = (cubeVidPoint(polygon(p, 2)).x - cubeVidPoint(polygon(p, 1)).x) * (cubeVidPoint(polygon(p, 1)).y - cubeVidPoint(polygon(p, 3)).y)ã zNorm2 = (cubeVidPoint(polygon(p, 2)).y - cubeVidPoint(polygon(p, 1)).y) * (cubeVidPoint(polygon(p, 1)).x - cubeVidPoint(polygon(p, 3)).x)ã zNorm = zNorm1 - zNorm2ã IF zNorm < 0 THEN visiblePolys(p) = true ELSE visiblePolys(p) = falseã NEXTã ELSEã FOR p = 1 TO 6ã visiblePolys(p) = trueã NEXTã END IFãRETURNããFillPolygons:ã FOR p = 1 TO 6ã IF visiblePolys(p) = true THENã FOR n = 1 TO 4ã total = total + cubeVidPoint(polygon(p, n)).xã NEXTã midPoint.x = total / 4ã total = 0ã ã FOR n = 1 TO 4ã total = total + cubeVidPoint(polygon(p, n)).yã NEXTã midPoint.y = total / 4ã total = 0ã PAINT (midPoint.x, midPoint.y), 4, 15ã END IFã NEXTãRETURNããMotion: 'make sure degrees are in range of look-up tablesã xDeg = xDeg + xRateã IF xDeg < 0 THEN xDeg = 359 + xDeg 'add the negative value toã IF xDeg > 359 THEN xDeg = 0 + (xDeg - 359) 'be more accurateã ã yDeg = yDeg + yRateã IF yDeg < 0 THEN yDeg = 359 + yDegã IF yDeg > 359 THEN yDeg = 0 + (yDeg - 359)ã ã zDeg = zDeg + zRateã IF zDeg < 0 THEN zDeg = 359 + zDegã IF zDeg > 359 THEN zDeg = 0 + (zDeg - 359)ãRETURNããProjectPoints:ã 'project 3d coordinates into 2d integer screen coordinates suitible forã 'VGA and store them in an arrayã FOR n = 1 TO NumPointsã project = trans(n).z + ZOffã cubeVidPoint(n).x = ((HScale * trans(n).x) / project) + XOffã cubeVidPoint(n).y = ((VScale * trans(n).y) / project) + YOffã NEXTãRETURNããEraseCube:ã FOR n = 1 TO 2ã boxErase(n).x = 160: boxErase(n).y = 100 'start from center of screenã NEXTã FOR n = 1 TO NumPointsã IF cubeVidPoint(n).x < boxErase(1).x THEN boxErase(1).x = cubeVidPoint(n).xã IF cubeVidPoint(n).x > boxErase(2).x THEN boxErase(2).x = cubeVidPoint(n).xã IF cubeVidPoint(n).y < boxErase(1).y THEN boxErase(1).y = cubeVidPoint(n).yã IF cubeVidPoint(n).y > boxErase(2).y THEN boxErase(2).y = cubeVidPoint(n).yã NEXTã 'fill in bouding box with blackã LINE (boxErase(1).x, boxErase(1).y)-(boxErase(2).x, boxErase(2).y), 0, BFãRETURNããOutlinePolygon: 'where n is the polygon to outlineã FOR I = 1 TO 3ã LINE (cubeVidPoint(polygon(n, I)).x, cubeVidPoint(polygon(n, I)).y)-(cubeVidPoint(polygon(n, I + 1)).x, cubeVidPoint(polygon(n, I + 1)).y), OutlineColorã NEXTã LINE (cubeVidPoint(polygon(n, 4)).x, cubeVidPoint(polygon(n, 4)).y)-(cubeVidPoint(polygon(n, 1)).x, cubeVidPoint(polygon(n, 1)).y), OutlineColorãRETURNããUpdateFrameRate: 'I don't know if these numbers are rightã frameRate = frameRate + 1ã timeTemp = INT(TIMER)ã IF timeTemp > nextSec THEN 'one full second has passedã LOCATE 23, 1: PRINT frameRate: frameRate = 0ã timeTemp = INT(TIMER)ã nextSec = timeTemp + 1ã END IFãRETURNããGetKey:ã k$ = INKEY$ã SELECT CASE k$ã CASE "8"ã xRate = xRate - 1ã CASE "2"ã xRate = xRate + 1ã CASE "4"ã yRate = yRate + 1ã CASE "6"ã yRate = yRate - 1ã CASE "7"ã zRate = zRate - 1ã CASE "9"ã zRate = zRate + 1ã CASE "5"ã xRate = 0: yRate = 0: zRate = 0ã CASE "+"ã FOR n = 1 TO NumPointsã zLoc = zLoc + 1ã NEXTã CASE "-"ã FOR n = 1 TO NumPointsã zLoc = zLoc - 1ã NEXTã CASE CHR$(0) + "K" 'leftã FOR n = 1 TO NumPointsã xLoc = xLoc + 1ã NEXTã CASE CHR$(0) + "M" 'rightã FOR n = 1 TO NumPointsã xLoc = xLoc - 1ã NEXTã CASE CHR$(0) + "H" 'upã FOR n = 1 TO NumPointsã yLoc = yLoc + 1ã NEXTã CASE CHR$(0) + "P" 'downã FOR n = 1 TO NumPointsã yLoc = yLoc - 1ã NEXTã CASE "0"ã xRate = 0: yRate = 0: zRate = 0ã xDeg = 0: yDeg = 0: zDeg = 0ã xLoc = 0: yLoc = 0: zLoc = 0ã RESTORE CubeDataã FOR n = 1 TO NumPointsã READ cubePoint(n).xã READ cubePoint(n).yã READ cubePoint(n).zã NEXTã CASE "p"ã IF variableOutput = true THENã variableOutput = falseã ELSEã IF variableOutput = false THEN variableOutput = trueã END IFã CASE "h"ã IF hsr = true THENã hsr = falseã ELSEã IF hsr = false THEN hsr = trueã END IFã CASE "f"ã IF filled = true THENã filled = falseã ELSEã IF filled = false THEN filled = trueã END IFã CASE CHR$(27)ã done = trueã END SELECTãRETURNããPrintOut:ã LOCATE 2, 2: PRINT "X:"ã LOCATE 2, 4: PRINT xDegã LOCATE 2, 8: PRINT " at rate of "ã LOCATE 2, 19: PRINT xRateã ã LOCATE 3, 2: PRINT "Y:"ã LOCATE 3, 4: PRINT yDegã LOCATE 3, 8: PRINT " at rate of "ã LOCATE 3, 19: PRINT yRateã ã LOCATE 4, 2: PRINT "Z:"ã LOCATE 4, 4: PRINT zDegã LOCATE 4, 8: PRINT " at rate of "ã LOCATE 4, 19: PRINT zRateãRETURNããErasePrint:ã LOCATE 2, 2: PRINT " "ã LOCATE 3, 2: PRINT " "ã LOCATE 4, 2: PRINT " "ãRETURNããCubeData:ãDATA 10,10,-10ãDATA -10,10,-10ãDATA 10,-10,-10ãDATA -10,-10,-10ããDATA 10,10,10ãDATA -10,10,10ãDATA 10,-10,10ãDATA -10,-10,10ããPolygonData:ã'topãDATA 1,2,6,5ã'frontãDATA 5,6,8,7ã'bottomãDATA 7,8,4,3ã'backãDATA 2,1,3,4ã'leftãDATA 1,5,7,3ã'rightãDATA 6,2,4,8ãXtance Coders Alliance CREATES A WAVEY EFFECT ON IMAGEharryst@castel.nl 11-15-97 (00:24) QB, QBasic, PDS 326 8151 INTRO.BAS ' .$$$$$$$$. .$$$$$$$$. .$$$$$$$$. .$$$$$$$$$. $. .$ã' $$$$$ $$$$ss$$$$ $$$$$ s$$$$ $$$$$ $$$$$ $$$$$ $s s$ã' $$$$$ $$$$$$$$$$ $$$$$ $$$$$ $$$$$ $$$$$ $$$$$ $$.$$ã' $$$$ $$$$$$$$$$ $$$$ $$$$$ $$$$ $$$$$ $$$$$ $$s$$ã' s$$ $$$$$$$$$$ $$s $$$$$ $$s $$$$$ $$$$$ $$$$$ã' s $$$$$$$$$$ s $$$$$ s $$$$$ $$$$$ $$$$$ã' $$$$$$$$$$ $$$$$ $$$$$$$$$$$ $$$$$ã' $$$$$$$$$$ $$$$$ $$$$$ $$$$$ $$$$$ã' $$$$$$$$$$ $$$$$ $$$$$ $$$$$ $$$$$ã' $$$$$$$$$$ $$$$$ $$$$$ $$$$$ $$$$$ã' s $$$$$$$$$$ s $$$$$ s $$$$$ $$$$$ $$$$$ã' s$$ $$$$$$$$$$ $$s $$$$$ $$s $$$$$ $$$$$ $$$$$ã' $$$$ $$$$$$$$$$ $$$$ $$$$$ $$$$ $$$$$ $$$$$ S$Sã' $$$$$ $$$$$$$$$$ $$$$$ $$$$$ $$$$$ $$$$$ $$$$$ .ã' $$$$$$$$$$$$$$$$$$$$$$$$ $$$$$$$$$$$$ $$$$$ $$$$$ s$sã' .$$$$$$$$$$$$$$$$$$$$$$. .$$$$$$$$$$. .$$$. .$$$. $$$$$ã'ã' Xtance Coders Allianceã'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ã' This program is made by Mr. Snow from Xtance Coders Alliance andã' DeeJee'z Team 1997ã'ã' for All Basic Programmers in the Big Fat Worldã' ã' E-Mail to harryst@castel.nlã' or to mrsnow@freemail.nlã'ã'ã' Credit me please.. if you use any routines from my sourceããDECLARE SUB Center (Text$)ãDECLARE SUB Wave ()ãDECLARE SUB DeInit ()ãDECLARE SUB Init ()ãDECLARE SUB txtpalget (col%, r%, g%, B%)ãDECLARE SUB txtpalset (col%, r%, g%, B%)ãDECLARE SUB SinusWave ()ãDECLARE SUB PcxLoad ()ãDEFINT A-Zã'$DYNAMICãRANDOMIZE -TIMERãDIM SHARED B1%(2890), B2%(2890) 'punch picturesãDIM SHARED COSINUS(160) AS INTEGERãDIM SHARED RAND(255) AS INTEGERãDIM SHARED oldpal(16, 3)ãDIM SHARED WaveSide1, WaveSide2, WaveSide3ãDIM SHARED Wave1, Wave2, Wave3ãCONST PI = 3.14159265358#ãããPcxLoadãSinusWaveãããCALL InitãCenter ("Hello, I'm Mr. Snow and has programmed all this stuph... okay i ripped some")ãCenter (" routines, pictures and music files.. but that s all..")ãCenter ("")ãCenter (" Please enjoy you looking at the sources.. this are the sources from")ãCenter (" 1996 and 1997 (not all are sources..) the moast are things that i")ãCenter (" like the moast..")ãCenter ("")ãCenter (" B.T.W There is also another pack of me... but you can only get it")ãCenter (" for F 5.- or $5 that's not much but atleast a bit for my study")ãCenter ("")ãCenter (" My e-mail is: harryst@castel.nl or (This is the best...)")ãCenter (" mrsnow@freemail.nl")ãCenter (" xca@freemail.nl")ãCenter (" djt@freemail.nl")ãCenter (" hstok@freemail.nl")ãCenter ("")ãCenter (" my page is for now http://www.page4life.nl/mrsnow/")ãCenter (" but it could change to http://www.page4life.nl/xtance")ãCenter (" or to http://www.page4life.nl/xtance1 (or xtance2)")ãCenter ("")ãCenter (" Thanx.. Please send this allover the world")ãCenter ("")ãCenter ("MAIL ME ALOTTTTTTTTT")ãCenter ("")ãCenter ("[Any key to return to your normal dos prompt or windows prompt/system...]")ããDOã CALL WaveãLOOP UNTIL INKEY$ <> ""ãããCALL DeInitããPRINT " ----> Xtance Records <----"ãPRINTãPRINT " Rensumaheerd 102"ãPRINT " 9736 AD Groningen"ãPRINT " The Netherlands"ãPRINT " +31(0)50-5417749"ãPRINT " Ask for Eric (Only English or Dutch)"ãPRINTãPRINT "enjoy.... "ããREM $STATICãSUB Center (Text$)ãi = CSRLIN + 1ãLOCATE i, 40 - (LEN(Text$) / 2): PRINT Text$ãEND SUBããREM $DYNAMICãSUB DeInit STATICãDEF SEGãCLSããFOR i = 1 TO 15ã txtpalset i, oldpal(i, 1), oldpal(i, 2), oldpal(i, 3)ãNEXT iããWIDTH 80, 25ããEND SUBããSUB Init STATICãDEF SEG = &HB800ãr = 3 '-\ãg = 5 ' |- For the RGB Colors (3,5,5)=GrayãB = 5 '-/ããWaveSide1 = 1 '-\ãWaveSide2 = 3 ' |- Think it's for the speedãWaveSide3 = 1 '-/ããR1 = 1 '-\ãR2 = 10 ' |- Think it's the start positionãR3 = 20 '-/ããWIDTH 80, 50 ' Set the screen mode to 80 x 50ãLOCATE , , 0 ' Set the cursor offãã'--------- Counting / calculate part ------ãFOR i = 1 TO 15ã txtpalget i, oldpal(i, 1), oldpal(i, 2), oldpal(i, 3)ãNEXT iããFOR c = 0 TO 160ã COSINUS(c) = COS(c * 2 * PI / 80) * 16 + 16ãNEXTããFOR c = 0 TO 255ã RAND(c) = INT(RND * 4) + 1ãNEXTããFOR i = 0 TO 6ã txtpalset i, i * r, i * g, i * BãNEXT iããFOR i = 7 TO 15ã txtpalset i, (15 - i) * r, (15 - i) * g, (15 - i) * BãNEXT iããEND SUBããSUB PcxLoad STATICãDIM Buf(32002) AS INTEGER: Buf(0) = 2560: Buf(1) = 200ãDIM i AS LONGããBSEG& = VARSEG(Buf(2)): BOFS& = VARPTR(Buf(2))ããã' Change Back.pcx with one of your pcx files..ãOPEN "BACK.PCX" FOR BINARY AS #1ãã Fin& = LOF(1) - 767ã SEEK #1, Fin&ã pal$ = INPUT$(768, 1)ã ã p% = 1ã Fin& = Fin& - 1ããã SCREEN 13ãã FOR T& = 0 TO 255ã OUT &H3C8, T&ã ã FOR hue% = 1 TO 3ã OUT &H3C9, ASC(MID$(pal$, p%)) \ 4: p% = p% + 1ã NEXTã NEXTãã SEEK #1, 129ã T& = BOFS&ãã DEF SEG = BSEG&ãã CLSã ã DOã p$ = INPUT$(256, 1): FPos& = SEEK(1): l% = LEN(p$)ã ã IF FPos& > Fin& THENã l% = l% - (FPos& - Fin&): p$ = LEFT$(p$, l%): view$ = "done"ã END IFã ã FOR p% = 1 TO l%ã dat% = ASC(MID$(p$, p%))ã ã IF rle% = 0 THENã IF (dat% AND 192) = 192 THENã rle% = dat% AND 63ã ELSEã POKE T&, dat%: T& = T& + 1ã END IFã ELSEã FOR rle% = rle% TO 1 STEP -1ã POKE T&, dat%: T& = T& + 1ã NEXTã END IFã NEXTããLOOP UNTIL view$ = "done"ãCLOSE 1ãPUT (0, 0), Buf, PSETããããEND SUBããSUB SinusWaveãDIM lines%(1 TO 144, 1 TO 200) 'allocate memoryãrmovement% = 20 'the movement amountãrspeed% = 25 'the movement speedããFOR n% = 1 TO 200ã GET (19, n% - 1)-(299, n% - 1), lines%(1, n%) 'get the 200 linesãNEXT n%ã'CLSããDOã s! = s! + rspeed% / 100 'increase start valueã FOR n% = 1 TO 200ã c! = s! + n% / rmovement% 'calculate positionã p% = (19 + SIN(c!) * 19) 'for this lineãã LINE (0, n% - 1)-(p% - 1, n% - 1), 0 'clear the left andã LINE (p% + 279, n% - 1)-(319, n% - 1), 0 'right sideãã PUT (p%, n% - 1), lines%(1, n%), PSET 'draw the lineã NEXT n%ããLOOP WHILE INKEY$ = ""ãããEND SUBããSUB txtpalget (col, r, g, B) STATICãc = colããSELECT CASE cãCASE 6ã c = 20ãCASE 8 TO 15ã c = c + 48ãEND SELECTãã OUT &H3C7, cãã r = INP(&H3C9)ã g = INP(&H3C9)ã B = INP(&H3C9)ããEND SUBããSUB txtpalset (col, r, g, B) STATICããc = colããSELECT CASE cãCASE 6ã c = 20ãCASE 8 TO 15ã c = c + 48ãEND SELECTãã OUT &H3C8, cã OUT &H3C9, rã OUT &H3C9, gã OUT &H3C9, BããEND SUBããREM $STATICãSUB Waveã Wave1 = Wave1 + WaveSide1ã IF Wave1 >= 80 THENã Wave1 = 0ã R1 = (R1 + 1) AND 255ã WaveSide1 = RAND(R1)ã END IFã ã Wave2 = Wave2 + WaveSide2ã IF Wave2 >= 80 THENã Wave2 = 0ã R2 = (R2 + 2) AND 255ã WaveSide2 = RAND(R2)ã END IFã ã Wave3 = Wave3 + WaveSide3ã IF Wave3 >= 80 THENã Wave3 = 0ã R3 = (R3 + 2) AND 255ã WaveSide3 = RAND(R3)ã END IFã ã FOR i = 1 TO 2ã WAIT &H3DA, 8, 8ã WAIT &H3DA, 8, 0ã NEXT iã ã position = 1ã FOR y = 0 TO 49ã e = COSINUS(y + Wave1)ã FOR x = 0 TO 79ã col = COSINUS(x + Wave2) + e + COSINUS(x + Wave3) + COSINUS(x + y)ã IF col > 127 THEN col = 127ã POKE position, colã position = position + 2ã NEXTã NEXTããEND SUBãThe ABC Programmer 3D BOX ROTATION voxel@freenet.edmonton.ab.ca 11-28-97 (23:55) QB, QBasic, PDS 172 5871 BOXROT.BAS 'PUBLIC DOMAIN 1993 Peter M. Gruhnã'Converted from Pascal to BASIC by William Yu (11-28-97)ãã'Program draws a box on screen. Allows user to rotate the box aroundã'the three primary axes. Viewing transform is simple ignore z.ãã'I used _Computer_Graphics:_Principles_and_Practice_, Foley et alã'ISBN 0-201-12110-7 as a referenceãã'Okey dokey. This is kinda slow, and does a nice job of demonstrating theã'problems of repeatedly modifying the same data set. That is, the more andã'more you rotate the box, the more and more distorted it gets. This isã'because computers are not perfect at calculations, and all of those littleã'errors add up quite quickly.ãã'It's because of that that I used reals, not reals. I used floating pointã'because the guy doesn't know what is going on at all with 3d, so better toã'look at only the math that is really happening. Besides, I still have toã'think to use fixed point. Whaddaya want for .5 hour programming.ãã' DIRECTIONS:ã' ',' - rotates around the x axisã' '.' - rotates around the y axisã' '/' - rotates around the z axisã' ESC - quitsãã' All rotations are done around global axes, not object axes.ããDEFINT A-ZãDECLARE SUB Init ()ãDECLARE SUB myline (x1!, y1!, z1!, x2!, y2!, z2!)ãDECLARE SUB Drawit ()ãDECLARE SUB RotX ()ãDECLARE SUB RotY ()ãDECLARE SUB RotZ ()ããCONST radTheta = 1 * 3.1415926535# / 180'per degreesã ' sin and cos on computers are done in radians.ããTYPE tpointr ' Just a record to hold 3d pointsã x AS SINGLEã y AS SINGLEã z AS SINGLEãEND TYPEããDIM SHARED box(0 TO 7) AS tpointr ' The box we will manipulateãDIM SHARED SetColor AS INTEGERããSCREEN 12ã Initã SetColor = 14ã Drawitã DOã A$ = INKEY$ã IF A$ = "," THEN RotXã IF A$ = "." THEN RotYã IF A$ = "/" THEN RotZã LOOP UNTIL A$ = CHR$(27)ãENDãããDEFSNG A-ZãSUB Drawitã' my model is hard coded. No cool things like vertex and edge and face lists.ã CALL myline(box(0).x, box(0).y, box(0).z, box(1).x, box(1).y, box(1).z)ã CALL myline(box(1).x, box(1).y, box(1).z, box(2).x, box(2).y, box(2).z)ã CALL myline(box(2).x, box(2).y, box(2).z, box(3).x, box(3).y, box(3).z)ã CALL myline(box(3).x, box(3).y, box(3).z, box(0).x, box(0).y, box(0).z)ãã CALL myline(box(4).x, box(4).y, box(4).z, box(5).x, box(5).y, box(5).z)ã CALL myline(box(5).x, box(5).y, box(5).z, box(6).x, box(6).y, box(6).z)ã CALL myline(box(6).x, box(6).y, box(6).z, box(7).x, box(7).y, box(7).z)ã CALL myline(box(7).x, box(7).y, box(7).z, box(4).x, box(4).y, box(4).z)ãã CALL myline(box(0).x, box(0).y, box(0).z, box(4).x, box(4).y, box(4).z)ã CALL myline(box(1).x, box(1).y, box(1).z, box(5).x, box(5).y, box(5).z)ã CALL myline(box(2).x, box(2).y, box(2).z, box(6).x, box(6).y, box(6).z)ã CALL myline(box(3).x, box(3).y, box(3).z, box(7).x, box(7).y, box(7).z)ãã CALL myline(box(0).x, box(0).y, box(0).z, box(5).x, box(5).y, box(5).z)ã CALL myline(box(1).x, box(1).y, box(1).z, box(4).x, box(4).y, box(4).z)ãEND SUBããSUB Initã' turns on graphics and creates a cube. Since the rotation routinesã' rotate around the origin, I have centered the cube on the origin, soã' that it stays in place and only spins.ã box(0).x = -75: box(0).y = -75: box(0).z = -75ã box(1).x = 75: box(1).y = -75: box(1).z = -75ã box(2).x = 75: box(2).y = 75: box(2).z = -75ã box(3).x = -75: box(3).y = 75: box(3).z = -75ã box(4).x = -75: box(4).y = -75: box(4).z = 75ã box(5).x = 75: box(5).y = -75: box(5).z = 75ã box(6).x = 75: box(6).y = 75: box(6).z = 75ã box(7).x = -75: box(7).y = 75: box(7).z = 75ãEND SUBããSUB myline (x1!, y1!, z1!, x2!, y2!, z2!)ã' Keeps the draw routine pretty. Pixels are integers, so I round. Since theã' cube is centered around 0,0 I move it over 200 to put it on screen.ã' if you think those real mults are slow, here's some rounds too... hey, youã' may wonder, what happened to the stinking z coordinate? Ah, says I, thisã' is the simplest of 3d viewing transforms. You just take the z coord out ofã' things and boom. Looking straight down the z axis on the object. If I getã' inspired, I will add simple perspective transform to these. There, gotã' inspired. Made mistakes. Foley et al are not very good at tutoringã' perspective and I'm kinda ready to be done and post this.ã LINE (INT(x1!) + 200, INT(y1!) + 200)-(INT(x2!) + 200, INT(y2!) + 200), SetColorãEND SUBããSUB RotXã' if you know your matrix multiplication, the following equationsã' are derived fromãã' [x [ 1 0 0 0 [x',y',z',1]ã' y 0 c -s 0 =ã' z 0 s c 0ã' 1] 0 0 0 1]ããDIM i AS INTEGERã SetColor = 0ã Drawitã FOR i = 0 TO 7ã box(i).x = box(i).xã box(i).y = box(i).y * COS(radTheta) + box(i).z * SIN(radTheta)ã box(i).z = -box(i).y * SIN(radTheta) + box(i).z * COS(radTheta)ã NEXT iã SetColor = 15ã DrawitãEND SUBããSUB RotYã' if you know your matrix multiplication, the following equationsã' are derived fromãã' [x [ c 0 s 0 [x',y',z',1]ã' y 0 1 0 0 =ã' z -s 0 c 0ã' 1] 0 0 0 1]ããDIM i AS INTEGERã SetColor = 0ã Drawitã FOR i = 0 TO 7ã box(i).x = box(i).x * COS(radTheta) - box(i).z * SIN(radTheta)ã box(i).y = box(i).yã box(i).z = box(i).x * SIN(radTheta) + box(i).z * COS(radTheta)ã NEXT iã SetColor = 15ã DrawitãEND SUBããSUB RotZã' if you know your matrix multiplication, the following equationsã' are derived fromãã' [x [ c -s 0 0 [x',y',z',1]ã' y s c 0 0 =ã' z 0 0 1 0ã' 1] 0 0 0 1]ããDIM i AS INTEGERã SetColor = 0ã Drawitã FOR i = 0 TO 7ã box(i).x = box(i).x * COS(radTheta) + box(i).y * SIN(radTheta)ã box(i).y = -box(i).x * SIN(radTheta) + box(i).y * COS(radTheta)ã box(i).z = box(i).zã NEXT iã SetColor = 15ã DrawitãEND SUBãDanny Beardsley ANIMATED TUNNEL2 beards@dnai.com 12-02-97 (00:36) PB 189 4206 TUNNEL2.BAS 'ANIMATED TUNNEL2 BY DANNY BEARDSLEYã'MADE WITH POWERBASIC 3.2ã'USE THE ARROW KEYS TO MOVE THE TUNNELã'IF YOU HAVE ANY IDEAS ON HOW TO IMPROVE IT EMAIL MEã'ã'EMAIL: DSB@CYBERDUDE.COMã'HOMEPAGE: HTTP://WWW.DNAI.COM/~BEARDSã'ICQ#: 3758561ã$DYNAMICãDECLARE SUB plasma ()ãDECLARE SUB Splitbox (X1%, Y1%, X2%, Y2%)ãDECLARE SUB Newcolor (XA%, YA%, x%, y%, XB%, YB%)ãDIM absolute scrn(319,200) as byte at &HA000ãDIM x(319,200) AS byteãDIM y(319,200) AS byteãDIM PIC(255, 255) AS byteãDIM MAX.Y AS INTEGERãDIM MAXX AS INTEGERãshared maxxãshared max.yãMAXX = 256ãMAX.Y = 256ãshared scrn()ãshared pic()ãDIM CONV AS SINGLEãDIM CONV2 AS SINGLEãCONV = 3.141592 / 180ãCONV2 = (256) / 360ãDIM s AS INTEGERãDIM x AS integerãDIM y AS INTEGERãDIM i AS INTEGERãDIM COLOUR AS INTEGERãRANDOMIZE TIMERããRANDOMIZE TIMERãPRINT "ANIMATED TUNNEL2 BY DANNY BEARDSLEY"ãPRINT "MADE WITH POWERBASIC 3.2"ãPRINT "USE THE ARROW KEYS TO MOVE THE TUNNEL"ãPRINTãPRINT "PRESS Z....NO W...NO Q....AH THE HECK WITH IT, PRESS ANY! KEY"ãSLEEPãCLSãPRINT "INITIALIZING...(HOLD ON)"ãPRINT "GENERATING TEXTURE..."ãplasmaãPRINT "SMOOTHING TEXTURE..."ãFOR repet = 1 TO 4ã FOR y = 0 TO 255ã ky = y - 1ã IF y = 0 THEN ky = 255ã FOR x = 0 TO 254ã kx = x - 1ã IF kx = -1 THEN kx = 254ã s = PIC(x, y) + PIC((x + 1) MOD MAXX, y) + PIC(kx, y) + PIC(x, ((y + 1) MOD MAX.Y)) + PIC(x, ky)ã s = s \ 5ã PIC(x, y) = sã NEXT xã NEXT yãNEXTãPRINT "GENERATING TUNNEL..."ãFOR y = 0 TO 200ã LOCATE 4,21ã PRINT Y\2;"%"ã FOR x = 0 TO 319ã A = (x - 160): B = (y - 100)ã IF B = 0 THEN ANGLE = 90*SGN(A): R=5000/(ABS(A)+.0001):GOTO SKIPANGLECALCã R = 5000 / (SQR(A ^ 2 + B ^ 2))ãã 'SQR(A^2 +B^2)ã ANGLE = ATN(A / B) / CONVãSKIPANGLECALC:ã 'CORRECT ANGLEã IF B < 0 THEN ANGLE = ANGLE - 180ã ANGLE = (ANGLE + 360) * CONV2ã x(x,y) = ((R) MOD (MAXX ))ã y(x,y) = ((ANGLE) MOD (MAX.Y - 1)) + 1ã NEXT xãNEXT yã! Mov AX, 19ã! int 16ããFOR i% = 1 TO 128ã OUT &H3C8, i%ã OUT &H3C9, (64-((I%+1)\2))ã OUT &H3C9, ((I%-1)\2)ã OUT &H3C9, 0ãNEXT i%ãFOR i% = 1 TO 128ã OUT &H3C8, i%+128ã OUT &H3C9, 0ã OUT &H3C9, (64-((I%+1)\2))ã OUT &H3C9, 0ãNEXT i%ããTIM!=TIMERãDOã SELECT CASE INP(96)ã CASE 72ã inx! = inx! + .5ã CASE 80ã inx! = inx! - .5ã CASE 77ã iny! = iny! + .5ã CASE 75ã iny! = iny! - .5ã END SELECTã i% = i% + inx! MOD 255ã iy% = iy% + iny! MOD 256ãã XSEG??=VARSEG(X(0,0))ã YSEG??=VARSEG(Y(0,0))ã PICSEG??=VARSEG(PIC(0,0))ã !XOR SI,SIãã SILOOP:ã !INC SIã !MOV ES,XSEG??ã !MOV BL,ES:[SI]ã !MOV ES,YSEG??ã !ADD BL,I%ã !MOV BH,ES:[SI]ã !MOV ES,PICSEG??ã !ADD BH,IY%ã !MOV DX,&HA000ã !MOV AL,ES:[BX]ã !MOV ES,DXã !MOV ES:[SI],ALã !CMP SI,&HFA00ã !JB SILOOPãã IF INP(96) = 1 THEN EXIT DOã F&=F&+1ãLOOPãFPS!=F&/(TIMER-TIM!)ãSLEEPã! Mov AX, 3ã! int 16ãPRINT FPS!ãSLEEPãENDããDEFINT A-ZãSUB Newcolor (XA, YA, x, y, XB, YB) 'puts a new color based on averageããIF PIC(x MOD MAXX, y MOD MAX.Y) <> 0 THEN EXIT SUBããavg = ABS(XA - XB) + ABS(YA - YB)ããCOLOUR = (PIC(XA MOD MAXX, YA MOD MAX.Y) + PIC(XB MOD MAXX, YB MOD MAX.Y)) \ 2 + ((RND - .5) * avg * 8)ã IF COLOUR > 250 THEN COLOUR = 250ã IF COLOUR < 1 THEN COLOUR = 1ãPIC(x MOD MAXX, y MOD MAX.Y) = COLOURããEND SUBãã'DEFSNG A-ZãSUB plasmaããPIC(128, 128) = RND * 250ããSplitbox 128, 128, 384, 384ãEND SUBãã'ãSUB Splitbox (X1, Y1, X2, Y2)ããIF (X2 - X1 < 2) AND (Y2 - Y1 < 2) THEN EXIT SUBããx = (X1 + X2) \ 2ãy = (Y1 + Y2) \ 2ããNewcolor X1, Y1, X1, y, X1, Y2ãNewcolor X1, Y2, x, Y2, X2, Y2ãNewcolor X2, Y2, X2, y, X2, Y1ãNewcolor X2, Y1, x, Y1, X1, Y1ãIF PIC(x MOD MAXX, y MOD MAX.Y) = 0 THENã COLOUR = (PIC(X1 MOD MAXX, Y1 MOD MAX.Y) + PIC(X2 MOD MAXX, Y1 MOD MAX.Y) + PIC(X1 MOD MAXX, Y2 MOD MAX.Y) + PIC(X2 MOD MAXX, Y2 MOD MAX.Y)) \ 4ã IF COLOUR > 250 THEN COLOUR = 250ã IF COLOUR < 1 THEN COLOUR = 1ã PIC(x MOD MAXX, y MOD MAX.Y) = COLOURãEND IFããSplitbox X1, Y1, x, yãSplitbox x, Y1, X2, yãSplitbox x, y, X2, Y2ãSplitbox X1, y, x, Y2ããEND SUBãSteven McGranahan USING 64K BUFFERS FOR VIDEO mcgrnhns@mc.net 12-04-97 (02:43) QB, QBasic, PDS 139 4987 BAGPAGE.BAS 'BagPage.BAS by KAOS Soft-Ware.ã'This is a small demo program on using 64k buffers as video page buffers inã'screen 13. If you like these subs then please e-mail me at: mcgrnhns@mc.netã'Thanks to Jonathan Leger for memcopy and fillchar.ã'KAOS Soft-Ware:ã'http://user.mc.net/mcgrnhns/ãDEFINT A-ZãDECLARE SUB NEWPUT (x%, y%, array%(), subscript%)ãDECLARE SUB NCLS ()ãDECLARE SUB COPYVPAGE ()ãDECLARE SUB NPSET (x%, y%, pcolor%)ãDECLARE SUB MemCopy (fromseg%, fromoffset%, toseg%, tooffset%, bytes%)ãDECLARE SUB FillChar (segment%, offset%, value%, bytes%)ãã'$DYNAMIC '*** Hey it runns faster :)ããDIM SHARED buffer(1 TO 32000) AS INTEGERãã'*** Go to screen 13.ãSCREEN 13ãCLSã'*** first make a block 20 x 20 pixles big in buffer.ãFOR y% = 0 TO 19ã FOR x% = 0 TO 19ã NPSET x%, y%, x% + y%ã NEXTãNEXTã'*** now copy that to the screenãCOPYVPAGEã'*** Capture image on screen with GETãDIM array%(((20 * 20) / 2) + 2)ãGET (0, 0)-(19, 19), array%ã'*** now clear the bufferãNCLSã'*** now use NEWPUT to put the image on the buffer 10 times.ãFOR yay% = 0 TO 9ã NEWPUT yay%, yay%, array%(), 0ãNEXTã'*** copy the buffer to the screen then clear the bufferãCOPYVPAGEãNCLSãSLEEP 0ãCLSããSUB COPYVPAGEã'This sub copys the contents of the buffer into the screen.ã'To use it just type COPYVPAGEãMemCopy VARSEG(buffer(1)), VARPTR(buffer(1)), &HA000, 0, &HFA00ãEND SUBããSUB FillChar (segment%, offset%, value%, bytes%)ã'Do not use this rutien directly use NCLS instedãasm$ = ""ãasm$ = asm$ + CHR$(85) 'PUSH BPãasm$ = asm$ + CHR$(137) + CHR$(229) 'MOV BP,SPãasm$ = asm$ + CHR$(139) + CHR$(78) + CHR$(6) 'MOV CX,[BP+06]ãasm$ = asm$ + CHR$(139) + CHR$(86) + CHR$(8) 'MOV DX,[BP+08]ãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(12) 'MOV AX,[BP+0C]ãasm$ = asm$ + CHR$(30) 'PUSH DSãasm$ = asm$ + CHR$(142) + CHR$(216) 'MOV DS,AXãasm$ = asm$ + CHR$(139) + CHR$(94) + CHR$(10) 'MOV BX,[BP+0A]ãasm$ = asm$ + CHR$(136) + CHR$(23) 'MOV [BX],DL <------+ãasm$ = asm$ + CHR$(67) 'INC BX |ãasm$ = asm$ + CHR$(226) + CHR$(251) 'LOOP 0112 -------+ãasm$ = asm$ + CHR$(31) 'POP DSãasm$ = asm$ + CHR$(93) 'POP BPãasm$ = asm$ + CHR$(203) 'RETFããDEF SEG = VARSEG(asm$)ã CALL Absolute(BYVAL segment%, BYVAL offset%, BYVAL value%, BYVAL bytes%, SADD(asm$))ãDEF SEGããEND SUBããSUB MemCopy (fromseg%, fromoffset%, toseg%, tooffset%, bytes%)ã'Do not use this rutien use COPYVPAGE insted.ããasm$ = ""ãasm$ = asm$ + CHR$(85) 'PUSH BPãasm$ = asm$ + CHR$(137) + CHR$(229) 'MOV BP,SPãasm$ = asm$ + CHR$(30) 'PUSH DSãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(10) 'MOV AX,[BP+0A]ãasm$ = asm$ + CHR$(142) + CHR$(192) 'MOV ES,AXãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(14) 'MOV AX,[BP+0E]ãasm$ = asm$ + CHR$(142) + CHR$(216) 'MOV DS,AXãasm$ = asm$ + CHR$(139) + CHR$(118) + CHR$(8) 'MOV SI,[BP+08]ãasm$ = asm$ + CHR$(139) + CHR$(126) + CHR$(12) 'MOV DI,[BP+0C]ãasm$ = asm$ + CHR$(139) + CHR$(78) + CHR$(6) 'MOV CX,[BP+06]ãasm$ = asm$ + CHR$(243) 'REPZãasm$ = asm$ + CHR$(164) 'MOVSBãasm$ = asm$ + CHR$(31) 'POP DSãasm$ = asm$ + CHR$(93) 'POP BPãasm$ = asm$ + CHR$(203) 'RETFããDEF SEG = VARSEG(asm$)ã CALL Absolute(BYVAL fromseg%, BYVAL fromoffset%, BYVAL toseg%, BYVAL tooffset%, BYVAL bytes%, SADD(asm$))ãDEF SEGããEND SUBããSUB NCLSã'This sub Clears the buffer to blackã'Usage: NCLSãFillChar VARSEG(buffer(1)), VARPTR(buffer(1)), 0, &HFA00ãEND SUBããSUB NEWPUT (x%, y%, array%(), subscript%)ã'Replaces PUT by puting an image to the buffer insted of directly to the screenã'Usage: NewPut x%, y%, array%(), subscript%ã'x%, y% - the position to put the spriteã'array%() - the array that contains the spriteã'subscript% - the starting position of the sprite inside the arrayãxlent% = array%(subscript%) / 8ãylent% = array%(subscript% + 1)ãPtr& = VARPTR(array%(subscript% + 2))ãysize% = y% + ylent% - 1ãxsize% = x% + xlent% - 1ãseg1& = VARSEG(array%(subscript%))ãseg2& = VARSEG(buffer(1))ãFOR yp% = y% TO ysize%ã FOR xp% = x% TO xsize%ã DEF SEG = seg1&ã byte% = PEEK(Ptr&)ã DEF SEG = seg2&ã IF byte% <> 0 THEN POKE xp% + (yp% * 320&), byte%ã Ptr& = Ptr& + 1ã NEXTãNEXTãEND SUBããSUB NPSET (x%, y%, pcolor%)ã'Places a pixle inside the bufferã'Usage: NPSET x%, y%, pcolor%ã'x%, y% - the position of the pixle to placeã'pcolor% - the color to place ãDEF SEG = VARSEG(buffer(1))ã POKE x% + (y% * 320&), pcolor%ãDEF SEGãEND SUBãJohn Charles Bull III VIEW .PKG FILES vividbarrier@hotmail.com 12-11-97 (00:34) QB, QBasic, PDS 103 2438 VTOOLS.BAS DECLARE SUB VLOAD (FileName$, Picture%, XRes%, YRes%)ãDECLARE SUB VPAL (FileName$)ãDECLARE SUB WriteRGB (red%, grn%, blu%, slot%)ãDEFINT A-Zã' /........................\ Vivid Barrier Software 1997ã' |.oO..oOo.oOo..vivid.....| QBasic 4.5x Useful SUB Proceduresã' |.oO.oOo..oOo....barrier.| by John Charles Bull IIIã' |.oO.oOo..oOOOOo..=O97O=.|ã' |.oOoOo...oOo.oOo........|ã' |.oOOo....oOOOOo.........|ã' \......................../ã'ã' This is an example of how to put an PKG image onto the screenã' Use this source code to load PKG files and palettes created withã' vEDIT (http://pages/prodigy.net/wyzel/)ããSCREEN 13ãVPAL "title.pal"ãVLOAD "pkg\title.pkg", 1, 135, 80ããSUB VLOAD (FileName$, Picture, XRes, YRes)ããif$ = FileName$ãib = PictureãOPEN if$ FOR BINARY AS #1ããGET #1, 1, ivãGET #1, 3, iaãã' IF ib > ia THEN EXIT SUBã ã d = 5: in$ = ""ã DOã a = a + 1ã z$ = RIGHT$(LEFT$(in$, a), 1)ã GET #1, d, bã in$ = in$ + CHR$(b)ã d = d + 2ã LOOP UNTIL a = 30ããin$ = LEFT$(in$, 21)ããd! = ib * 4 + 66 'caculate where to get resulutionããGET #1, d!, ix 'xresãGET #1, d! + 2, iy 'yresã ãa! = ib - 1 'image numberãb! = 7200 'image lengthãc! = 150 'added from aboveããd! = a! * b! + c! 'caculate where to start getting gfx dataãa = XRes: b = YRes: c = 0: d = 0ããDOã GET #1, d!, cã IF c = 0 THENã ELSEãã IF b >= 100 THENã DEF SEG = &HA7D0ã POKE ((b - 100) * 320 + a), cã ELSEã DEF SEG = &HA000ã POKE (b * 320 + a), cã END IFã ã END IFã d! = d! + 2ã a = a + 1: IF a = ix + XRes THEN a = XRes: b = b + 1ãLOOP UNTIL b = iy + YResããCLOSE #1ããiy = iy - 1ãix = ix - 1ããEND SUBããSUB VPAL (FileName$)ããOPEN FileName$ FOR BINARY AS #1ã ã DOã b = b + 1: GET #1, b, red%ã b = b + 1: GET #1, b, grn%ã b = b + 1: GET #1, b, blu%ã CALL WriteRGB(red%, grn%, blu%, a): a = a + 1ã LOOP UNTIL a = 249ããCLOSE #1ããEND SUBããSUB WriteRGB (red%, grn%, blu%, slot%)ã 'ã OUT &H3C8, slot% ' Write RGB values to slotã 'ã OUT &H3C9, red%ã OUT &H3C9, grn%ã OUT &H3C9, blu%ã 'ãEND SUBãBert van Dam SPRITE MASK MAKER bd1rsd@usa.net 12-14-97 (17:05) QB, QBasic, PDS 236 7442 MASKMAKE.BAS'Here's another program for the abc's. It will take a sprite andã'autoamtically generate a masking for it. Then you can see a (silly) exampleã'on how to make an animation using the mask, with preservation of theã'background, and use of vertical retrace. The mask itself can be saved toã'file for use in other programs. Not very spectacular but if you're new toã'animation (such as myself) this will clearify a lot. ããã'-----------------beginning of source code---------------------ãã'Mask Maker produces masks to mask colors in animations dec 1997ãã'Program by Bert van Dam, donated to the public domain. I can be reachedã'at Fido 2:285/750.16 or the internet BD1RSD@USA.NETãã'The masking technique is based on the program MASK.BAS by Dave Sheaã'which was donated to the public domain on January 19th, 1997,ã'adapted for use with screen 9 (needed for reasonable resolution withã'2 screen pages) and for sprites which are designed with the SHAPEã'sprite designer.ãã'The mask can be saved to data lines, which can be merged into anotherã'program, an example is maskdemo.basãã'The animation demo uses a separate array to preserve the background. Toã'prevent flicker drawing waits for the video retrace. The way to do thisã'is from a mail by Steve Gartrell.ããCLSãSCREEN 9ããElem = 385 'These dimensional parameters are generatedãx = 64 'by the sprite designer SHAPE and recordedãy = 48 'in rem statements near the dataããDIM Rups(Elem - 1) AS LONG 'DIM the array to hold the spriteããDIM Mask(Elem - 1) AS LONG 'Do the same for the mask arrayã 'and dim an array to preserve theã 'backgroundããDIM Preserve(Elem - 1) AS LONGããTCol = 0 'Color you want to be transparentãMCol = 15 'Mask color, this must beã 'a color that is not used inã 'the background nor the spriteããFOR i = 0 TO Elem - 1 'Read the sprite into the arrayã READ Rups(i)ãNEXT iããPUT (1, 1), Rups 'and put it on the screen on 1,1ããLOCATE 20, 1ãPRINT "---===[ MASK MAKER ]===--- Masking in progress...."ããFOR a = 1 TO xã FOR b = 1 TO yã 'The following commands search the sprite, andã 'change any pixel that's NOT the transparentã 'color to the transparent color, and any pixelã 'that IS the transparent color to the mask colorã '(This is the masking process)ãã IF POINT(a, b) = TCol THEN PSET (a, b), MColã IF POINT(a, b) <> TCol AND POINT(a, b) <> MCol THEN PSET (a, b), TColã NEXTãNEXTããGET (1, 1)-(x, y), Mask 'Get the mask for the spriteããLOCATE 20, 1ãPRINT SPC(70);ãLOCATE 20, 1ãPRINT "Would you like to see the result (y/n)? ";ãAnswer$ = INPUT$(1)ãPRINT Answer$ãIF UCASE$(Answer$) = "Y" THENãã CLSã FOR a = 1 TO 100ã 'Draw some lines for a backgroundãã LINE (a + 80, 80)-(a + 80, 150), a / 6ã NEXTãã PUT (100, 90), Mask, AND 'Lay down the mask using ANDã PUT (100, 90), Rups, XOR 'Lay down sprite using XORãEND IFããLOCATE 20, 1ãPRINT "Would you like write the mask to disk as data statements (y/n)? ";ãAnswer$ = INPUT$(1)ãPRINT Answer$ãIF UCASE$(Answer$) = "Y" THENãã LINE INPUT "Filename (incl. extension and path) "; FileName$ã OPEN FileName$ FOR OUTPUT AS #1ã PRINT #1, "'Mask generated with the MaskMaker"ã PRINT #1, "'Elem = "; Elemã PRINT #1, "'x = "; xã PRINT #1, "'y = "; yã PRINT #1,ã Regel = 0ã FOR i = 0 TO Elem - 1ã IF Regel MOD 5 = 0 THENã PRINT #1,ã PRINT #1, "DATA "; Mask(i);ã ELSEã PRINT #1, " , "; Mask(i);ã END IFã Regel = Regel + 1ã NEXT iãã CLOSE #1ããEND IFãLOCATE 21, 1ãPRINT SPC(70);ãLOCATE 20, 1ãPRINT "Would you like to see an animation using the newly generated mask (y/n)? ";ãAnswer$ = INPUT$(1)ãPRINT Answer$ãIF UCASE$(Answer$) <> "Y" THEN ENDããCLSãFOR a = 1 TO 600ã 'Draw some lines for a backgroundãã LINE (a, 1)-(a, 250), a / 39ãNEXTãLOCATE 22, 1ãPRINT "Animation demo using the new mask and video retrace timing..."ãããDEF SEG = &HA000 'Define video segmentãããFOR xp = 1 TO 260 STEP 2ãã 'Save the backgroundãã GET (xp * 2, 90)-(xp * 2 + x - 1, 90 + y - 1), Preserveãã WAIT &H3DA, 8, 8 'Wait till _start_ of vertical retraceã WAIT &H3DA, 8 'method by Steve Gartrellããã 'Draw mask and spriteã PUT (xp * 2, 90), Mask, ANDã PUT (xp * 2, 90), Rups, XORãã 'Wait a bitã FOR t = 1 TO 200: NEXT tãã WAIT &H3DA, 8, 8 'Wait till _start_ of vertical retraceã WAIT &H3DA, 8 '(method by Steve Gartrell)ãã 'Put the background back to erase the spriteã PUT (xp * 2, 90), Preserve, PSETããNEXT xpããããENDããRups:ã 'Designed using SHAPE sprite makerã 'ELEM: 385 X: 64 Y: 48ãDATA 3145792 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA -2139095040 , 0 , 0 , 0 ,-2134835200 , 0ãDATA -2134835200 , 0 ,-2134835200 , 0 , 0 , 0ãDATA 6488064 , 0 , 6488064 , 0 , 6488064 , 0ãDATA 0 , 0 , 2228224 , 0 , 2228224 , 0ãDATA 2228224 , 0 , 0 , 0 , 2228224 , 471604224ãDATA 4070428 , 0 , 2228224 , 0 , 0 , 0ãDATA 0 , 1044266496 , 4079166 , 0 , 0 , 0ãDATA 0 , 0 , 1310720 , 2139062016 , 7044991 , 0ãDATA 0 , 0 , 0 , 0 , 0 ,-33024ãDATA 16777215 , 0 , 0 ,-2139095040 , 8421504 , 0ãDATA 0 , 2139062016 , 7044991 , 0 , 1310720 , 0ãDATA 0 , 0 , 0 , 1044266496 , 3554878 , 0ãDATA 524288 , 0 , 0 , 0 , 0 , 471604224ãDATA 1842204 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0 , 0 , 0 , 0 , 0 , 0ãDATA 0ãAndrey Berezansky SINUS - COSINUS GRAPHICS nikolai@nsi.co.il 12-17-97 (01:04) QB, QBasic, PDS 36 1249 SINUS.BAS 'Just a simple (SINUS - COSINUS) graphics ,with circles instead of points.ãã'Programmed by BEREZANSKY ANDREY (email - nikol@cs.bgu.ac.il)ãã'DATE - 07/12/97ãããããSCREEN 9ãpi = 3.141592ããFOR x = 0 TO (pi * 4) STEP .01ã col = col + 1: IF col = 15 THEN col = 1 'chahging colorsã y = 60 - SIN(x * 6) * 8 'functionã ã CIRCLE (x * 50, y), 5, col: CIRCLE (630 - x * 50, y), 5, colã CIRCLE (x * 50, y + 100), 5, col: CIRCLE (630 - x * 50, y + 100), 5, colã CIRCLE (x * 50, y + 200), 5, col: CIRCLE (630 - x * 50, y + 200), 5, colãNEXTããSLEEP 1&ããFOR x = 0 TO (pi * 4) STEP .01ã col = col + 1: IF col = 15 THEN col = 1 'colorsã y = 100 - SIN(x * 4) * 20 'function (change it if you know better)ãã CIRCLE (y, x * 50), 11, col: CIRCLE (y, 393 - x * 50), 11, colã CIRCLE (y + 100, x * 50), 11, col: CIRCLE (y + 100, 393 - x * 50), 11, colã CIRCLE (y + 200, x * 50), 11, col: CIRCLE (y + 200, 393 - x * 50), 11, colã CIRCLE (y + 300, x * 50), 11, col: CIRCLE (y + 300, 393 - x * 50), 11, colã CIRCLE (y + 400, x * 50), 11, col: CIRCLE (y + 400, 393 - x * 50), 11, colã CIRCLE (y + 500, x * 50), 11, col: CIRCLE (y + 500, 393 - x * 50), 11, colãNEXTããDO WHILE INKEY$ = "": LOOPãJodie J. Cunningham SHADED BALLS SCREEN SAVER jodiej@prodigy.net 12-18-97 (16:26) QB, QBasic, PDS 39 599 SCREEN.BAS 1 SCREEN 13ãCLSãPRINT "Press CTRL+ Pause to exit this screen saver"ãPRINT "Initializing......."ãFOR i2 = 1 TO 10000ãNEXT i2ãPRINT "Starting..........."ãFOR i2 = 1 TO 10000ãNEXT i2ãCLSãRANDOMIZE VAL(RIGHT$(TIME$, 2))ãa = 31ãb = 0ãDOãCIRCLE (50, 50), b, aãCIRCLE (51, 50), b, aãa = a - 1ãb = b + 1ãLOOP UNTIL b = 15ãDOãe = 1ãDOãi = INT(RND * 320)ãii = INT(RND * 200)ãLOOP UNTIL POINT(i, ii) <> 0ãa = 31ãb = 0ãFOR q = 1 TO 1000ãNEXT qãDOãCIRCLE (i, ii), b, aãCIRCLE (i + 1, ii), b, aãa = a - 1ãb = b + 1ãLOOP UNTIL b = 15ãe = e + 1ãIF e = 100 THEN GOTO 1ãLOOPããJodie J. Cunningham CIRCLE PLASMA SCREEN SAVER jodiej@prodigy.net 12-18-97 (16:26) QB, QBasic, PDS 49 1071 CPLASMA.BAS RANDOMIZE TIMERãSCREEN 13ãsubt = 3ãmaxx = 319ãmaxy = 199ãFOR s& = 0 TO 63ã PALETTE s&, s& * 65536ã PALETTE 63 + s&, 63 * 65536 + s& * 256 + s&ã PALETTE 63 + 63 + s&, s& * 256ã PALETTE 63 + 63 + 63 + s&, s& * 65536 + 63 * 256 + s&ãNEXTãx = RND * 319ãy = RND * 199ãxb = xãyb = yãc = 1ããFOR cs = 127 TO 1 STEP -1'1 TO 127ã CIRCLE (160, 100), 128 - cs, csã PAINT (160, 100), csãNEXTããFOR a& = 1 TO maxx * maxy * 15ã c2 = POINT(x, y)ã IF c2 > 63 + 63 THEN c2 = c2 - (63 + 63)ã IF c2 = 0 THEN GOTO skipperã c3 = c + c2ã IF c3 > c4 THEN c4 = c3ã IF c3 > 63 + 63 THEN ELSE PSET (x, y), c3': PSET (320 - x, 200 - y), c3': PSET (x, 200 - y), c3: PSET (320 - x, y), c3:ãskipreturn:ã y = y + ((RND * 2) - 1)ã x = x + ((RND * 2) - 1)ã IF x < 0 THEN x = 0ã IF x > maxx THEN x = maxxã IF y < 0 THEN y = 0ã IF y > maxy THEN y = maxyã ãNEXTãENDããskipper:ãIF x < 160 THEN x = x + 1ãIF x = 160 THEN x = xãIF x > 160 THEN x = x - 1ãIF y < 100 THEN y = y + 1ãIF y = 100 THEN y = yãIF y > 100 THEN y = y - 1ãGOTO skipreturnããBert van Dam CLIP PIECES FROM .PCX bd1rsd@usa.net 12-18-97 (23:15) QB, PDS 112 3861 CLIP.BAS 'CLIP.BASãã'Program to cut (clip) pieces out of .PCX files. The selected parts will beã'copied with GET and saved to disk. Change the screen and filenames to yourã'liking. You need PICEM to make this program work.ãã'Mark the top lefthand corner by pressing the right mouse button. Then markã'the bottom right hand corner with the left mouse button. Press space toã'check the result. If you like it press S to save the clip to disk, orã'press Q to quit without saving.ãã'If the text on the screen is in the way you can move it, or prevent itã'from being shown.ãã'This source is donated to the public domain by Bert van Dam. I can beã'reached at Fido 2:285/705.16 of the net BD1RSD@USA.NETããã' $INCLUDE: 'qb.bi'ãSCREEN 9ãCLSããDIM Reg AS RegTypeXãã'Vertical screen position for text (change if the text is in the way)ãVertOff = 1ãã'Filename for the clipped part of the screenãBewaar$ = "c:\qb45\pictures\test.dat"ãã'Source (.PCX) file nameãsource$ = "c:\qb45\games\tafels\kop1.pcx"ãã'Do you want text on the screen (1 = yes)ãToonTekst = 1ãã'If your copy of Picem is in a different directory modify the next line.ãSHELL "c:\qb45\utils\picem\picem /e /k " + source$ãããLOCATE 1, 1ãIF ToonTekst = 1 THEN PRINT "QB4.5 picture clipper 1996 Bert van Dam"ããReg.ax = 7 'Horizontal limitãReg.cx = 0 'MinãReg.dx = 632 'MaxãCALL INTERRUPTX(&H33, Reg, Reg)ãReg.ax = 8 'Vertical limitãReg.cx = 0 'MinãReg.dx = 478 'MaxãCALL INTERRUPTX(&H33, Reg, Reg)ãReg.ax = 1 'Switch onãCALL INTERRUPTX(&H33, Reg, Reg)ãã'MainãDOã Reg.ax = 3ã CALL INTERRUPTX(&H33, Reg, Reg)ã LOCATE VertOff + 6, 20ã IF ToonTekst = 1 THEN PRINT "Status & pixel position "; Reg.bx; Reg.cx; Reg.dx; " "ã Positie = INT((Reg.cx / 8) + 1)ã Regel = INT((Reg.dx / 20) + 1)ã LOCATE VertOff + 7, 20ã IF ToonTekst = 1 THEN PRINT "'Locate' coordinates "; Positie; Regel; " "ã LOCATE VertOff + 8, 20ã IF Reg.bx = 1 AND neehoor = 0 THENã x1 = Reg.cxã y1 = Reg.dxã neehoor = 1ã LOCATE VertOff + 9, 20ã IF ToonTekst = 1 THEN PRINT "Lefthand top corner "; x1; y1; " "ã END IFã IF Reg.bx = 2 AND neehoor = 1 THENã x2 = Reg.cxã y2 = Reg.dxã neehoor = 0ã RectHeight = ABS(y2 - y1) + 1ã RectWidth = ABS(x2 - x1) + 1ã ByteSize = 4 + RectHeight * 1.4 * INT((RectWidth * 4 + 7) / 8)ã PicSize = INT(ByteSize / 2)ã REDIM Image(1 TO PicSize) AS INTEGERã GET (x1, y1)-(x2, y2), Imageã LOCATE VertOff + 10, 20ã IF ToonTekst = 1 THEN PRINT "Righthand bottom corner"; x2; y2; " "ã LOCATE VertOff + 11, 20ã IF ToonTekst = 1 THEN PRINT "Image is recorded, press space "ã plaatje = 1ã END IFãLOOP UNTIL INKEY$ <> ""ã'Switch mouse offãReg.ax = 2ãCALL INTERRUPTX(&H33, Reg, Reg)ãCLSãLOCATE 1, 1ãPRINT "QB4.5 picture clipper 1996 Bert van Dam"ãIF plaatje = 1 THENã PUT (50, 50), Imageã LOCATE VertOff + 8, 20ã PRINT "Press S to save clip, or Q to quit without saving."ã antw$ = INPUT$(1)ã IF UCASE$(antw$) = "S" THENã OPEN Bewaar$ FOR OUTPUT AS #1ã PRINT #1, PicSizeã FOR t = 1 TO PicSizeã PRINT #1, Image(t)ã NEXT tã CLOSE #1ã END IFãELSEã LOCATE 10, 10ã PRINT "No clip has been made."ãEND IFãBert van Dam READ FILES THAT WERE CLIPPED bd1rsd@usa.net 12-18-97 (23:15) QB, QBasic, PDS 22 535 READCLIP.BAS'READCLIP.BASãã'Program to read files that were made with clip, and display them onã'the screen. This is meant as an example source.ãã'This program is donated to the public domain by Bert van Dam. I can beã'reached at Fido 2:285/750.16 or the net BD1RSD@USA.NETããSCREEN 9ãCLSãã'Filename of the clipped fileãBewaar$ = "c:\qb45\pictures\test.dat"ããOPEN Bewaar$ FOR INPUT AS #1ãINPUT #1, PicSizeãREDIM Image(1 TO PicSize) AS INTEGERãFOR t = 1 TO PicSizeã INPUT #1, Image(t)ãNEXT tãCLOSE #1ãPUT (1, 1), ImageãThomas Nyberg BMP LOADER/MAKER thomas.nyberg@usa.net 12-19-97 (09:36) QB, PDS 197 5906 BMPLOAD.BAS '-----------------------Bmp loader/maker by Thomas Nyberg---------------------ãã'A little program that loads a BMP-file in less than 0.2 seconds, thenã'you can save the image into a new BMP-file and that takes about 0.2s!!ã'It doesn't use any assembler at all, instead it uses interrupts, so ifã'you don't know what that is then don't try to modify the code.ãã'This program doesn't check the format of the BMP-file because I thinkã'it's alot easier to read and understand it if no format check is done.ã'If you want that it's not hard to write it yourself.ã'Because of this the BMP-file must be 320*200*256, there shouldn't beã'difficult to modify the code so that it opens all kinds of sizes.ã'If I get the time the next few weeks (alot of homework, you know:) I willã'do that myself.ãã'The format of the BMP-files has been taken from a file called BMP.BAS,ã'unfortunatly I have lost the authors name but I give all credits for theã'format of the headers to him (or her).ãã'If you use parts or the whole program or ideas based on this code pleaseã'give me credits. This program may not be used in any kind of non-freewareã'programs without my knowledge (If you or anyone else earns money sellingã'programs that uses parts or the whole program or ideas based on this code)ãã'It should be very easy to change this program so that you can open TGA orã'any other format saved like the BMP (64000 pixels in a row).ãã'If you have any questions or improvements on this code please send them to:ã' thomas.nyberg@usa.netãã'IMPORTANT!!ã'This program is used at your own risc. I, Thomas Nyberg, does not takeã'any responsibility if any information, data, files or any other kindã'of software or hardware is damaged or destroyed in any way.ã'I can't garantee that this code is safe but I think it should be, thereforeã'beginners should not try to modify or use this code in their programs.ãã'Please excuse my english, it's very late :)ã'-----------------------------------------------------------------------------ããDECLARE SUB savebmp (filename$)ãDECLARE SUB loadbmp (filename$)ãã'$INCLUDE: 'qb.bi' 'Needs QB.QLB/LIB to be loadedãã'The header:ããTYPE bmpinfo 'what it should say for a 320*200*256 bmpã bm AS STRING * 2 'bmã size AS LONG 'wid*hei+1078= 65078ã r1 AS INTEGER '0ã r2 AS INTEGER '0ã offsdata AS LONG '1078ã hsize AS LONG '40ã wid AS LONG '320ã hei AS LONG '200ã planes AS INTEGER '1ã bpp AS INTEGER '8ã comp AS LONG '0ã isize AS LONG '64000ã xpm AS LONG '3790ã ypm AS LONG '3780ã colus AS LONG '0ã impcol AS LONG '0ã pal AS STRING * 1024 'blue, green, red, 0ãEND TYPEããDIM SHARED bmpheader AS bmpinfoãDIM SHARED regs AS RegTypeXããSCREEN 13ããt = TIMER 'Time how long it takesãloadbmp "boris.bmp" 'loads a BMP-fileã'savebmp "test.bmp" 'Saves a BMP-fileãPRINT TIMER - t'If you can't figure this one out...ããDEFINT A-ZãSUB loadbmp (filename$)ãã'Loads the headerãOPEN filename$ FOR BINARY AS #1ãGET #1, , bmpheader 'read itãCLOSE #1ãã'Loads the paletteãOUT &H3C8, 0ãFOR I = 1 TO 1024 STEP 4ã b% = ASC(MID$(bmpheader.pal, I, 1)) \ 4 'blueã g% = ASC(MID$(bmpheader.pal, I + 1, 1)) \ 4 'greenã r% = ASC(MID$(bmpheader.pal, I + 2, 1)) \ 4 'redã OUT &H3C9, r%ã OUT &H3C9, g%ã OUT &H3C9, b%ãNEXTããfilename$ = filename$ + CHR$(0) 'filename must be ASCIIZ (zero terminated)ãã'opens the fileãregs.ax = &H3D00ãregs.ds = VARSEG(filename$) 'segment of nameãregs.dx = SADD(filename$) 'offset of nameãCALL INTERRUPTX(&H21, regs, regs)ãregs.bx = regs.ax 'filehandleãã'move filepointer to &h436 in the fileãregs.ax = &H4200ãregs.cx = 0ãregs.dx = &H436ãCALL INTERRUPTX(&H21, regs, regs)ãã'Read and display the fileããFOR y = bmpheader.hei - 1 TO 0 STEP -1ã regs.ax = &H3F00ã regs.cx = 320 'widht of the fileã regs.ds = &HA000 'screen 13's segmentã regs.dx = VAL("&H" + HEX$(y * 320&)) 'Has to do wiht QB integersã CALL INTERRUPTX(&H21, regs, regs)ãNEXTãã'close itãregs.ax = &H3E00ãCALL INTERRUPTX(&H21, regs, regs)ããfilename$ = LEFT$(filename$, LEN(filename$) - 1) 'resore the filenameãEND SUBããSUB savebmp (filename$)ã'reads the paletteãOUT &H3C7, 0ãFOR I% = 0 TO 255ã r% = INP(&H3C9) * 4ã g% = INP(&H3C9) * 4ã b% = INP(&H3C9) * 4ã a$ = a$ + CHR$(b%) + CHR$(g%) + CHR$(r%) + CHR$(0)ãNEXTãã'creates the headerãbmpheader.bm = "BM"ãbmpheader.size = 65078ãbmpheader.r1 = 0ãbmpheader.r2 = 0ãbmpheader.offsdata = 1078ãbmpheader.hsize = 40ãbmpheader.wid = 320ãbmpheader.hei = 200ãbmpheader.planes = 1ãbmpheader.bpp = 8ãbmpheader.comp = 0ãbmpheader.isize = 64000ãbmpheader.xpm = 3790ãbmpheader.ypm = 3780ãbmpheader.colus = 0ãbmpheader.impcol = 0ãbmpheader.pal = a$ãã'saves the headerãOPEN filename$ FOR BINARY AS #1ãIF LOF(1) > 0 THEN 'file already existã CLOSE #1ã KILL filename$ 'delete the file and reopen itã OPEN filename$ FOR BINARY AS #1ãEND IFãPUT #1, , bmpheader 'write the headerãCLOSE #1ããfilename$ = filename$ + CHR$(0) 'filename must be ASCIIZ (zero terminated)ãã'opens the fileãregs.ax = &H3D01ãregs.ds = VARSEG(filename$) 'segment of filenameãregs.dx = SADD(filename$) 'offset of filenameãCALL INTERRUPTX(&H21, regs, regs)ãregs.bx = regs.ax 'filehandleãã'moves the filepointerãregs.ax = &H4200ãregs.cx = 0ãregs.dx = &H436ãCALL INTERRUPTX(&H21, regs, regs)ãã'saves the screen into the fileãFOR y% = 199 TO 0 STEP -1ã regs.ax = &H4000ã regs.cx = 320 'number of bytes to writeã regs.ds = &HA000 'screen 13's segmentã regs.dx = VAL("&H" + HEX$(y% * 320&)) 'Has to do with QB integersã CALL INTERRUPTX(&H21, regs, regs)ãNEXTãã'close the fileãregs.ax = &H3E00ãCALL INTERRUPTX(&H21, regs, regs)ããfilename$ = LEFT$(filename$, LEN(filename$) - 1) 'restore the filenameãEND SUBãAlexander Meyer COLORFUL BOUNCING LINES Meyer.Karl@t-online.de 12-20-97 (10:33) QB, QBasic, PDS 57 1171 LINEBOUN.BAS' ////ã' 0(o o)0ã'-------------------------ooO (_) Ooo---------------------ã' LINEBOUN.BAS -- Written in QuickBasic 4.5ã' ã' Name: Colourful bouning linesã' Author: Alexander Meyerã' Date: 11-23-1997ã' Description: This shows four bouncing lines in VGAã'ã'For questions or comments mail to: Meyer.Karl@t-online.deã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ãSCREEN 13 'VGA 320 x 200ããDIM x(1 TO 4)ãDIM y(1 TO 4)ãDIM XDir(1 TO 4)ãDIM YDir(1 TO 4)ããx(1) = 0: y(1) = 0ãx(2) = 319: y(2) = 199ãx(3) = 0: y(3) = 199ãx(4) = 319: y(4) = 0ããDOããFOR a = 1 TO 4 'For all four linesããIF x(a) >= 319 THEN XDir(a) = 1ãIF x(a) <= 1 THEN XDir(a) = 0ãIF y(a) >= 199 THEN YDir(a) = 1ãIF y(a) <= 1 THEN YDir(a) = 0ããIF XDir(a) = 0 THENã x(a) = x(a) + 1ãELSEã x(a) = x(a) - 1ãEND IFãIF YDir(a) = 0 THENã y(a) = y(a) + 1ãELSEã y(a) = y(a) - 1ãEND IFããNEXT aããc = c + 1ãIF c = 248 THEN c = 1ãIF INKEY$ <> "" THEN ENDãPSET (x(1), y(1)), c 'Draw linesãPSET (x(2), y(2)), cãPSET (x(3), y(3)), cãPSET (x(4), y(4)), cããLOOPããENDãAlexander Meyer WINDSCREEN WIPER Meyer.Karl@t-online.de 12-20-97 (10:33) QB, QBasic, PDS 42 985 WIPER.BAS ' ////ã' 0(o o)0ã'-------------------------ooO (_) Ooo---------------------ã' WIPER.BAS -- Written in QuickBasic 4.5ã' ã' Name: Windscreen wiperã' Author: Alexander Meyerã' Date: 11-23-1997ã' Description: This looks like a windscreen wiper from a carã'ã'For questions or comments mail to: Meyer.Karl@t-online.deã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ãDIM Wischer(640)ãDIM KeinWischer(640)ããSCREEN 13 '--> VGA 320 x 200ãCLSãRANDOMIZE TIMERããLINE (5, 1)-(1, 480), 15ãGET (1, 1)-(6, 199), Wischer 'Get wiperããDOã ã IF Richtung = 0 THENã x = x + 1ã IF x = 315 THEN Richtung = 1ã END IFã IF Richtung = 1 THENã x = x - 1ã IF x = 2 THEN Richtung = 0ã END IFã ã PUT (x, 1), Wischer, PSET 'Show wiperãã PX = INT(RND * 633 + 2) 'Show raindropsã PY = INT(RND * 479 + 1)ã PSET (PX, PY), 9ããLOOP UNTIL INKEY$ <> ""ããENDãAlexander Meyer SIN/COS/ATN/SQR CIRCLES Meyer.Karl@t-online.de 12-20-97 (10:33) QB, QBasic, PDS 95 2793 SINCOSC.BAS ' ////ã' 0(o o)0ã'-------------------------ooO (_) Ooo---------------------ã' SINCOSC.BAS -- Written in QuickBasic 4.5ã' ã' Name: SIN/COS/ATN/SQR circlesã' Author: Alexander Meyerã' Date: 11-23-1997ã' Description: Circles with sine (SIN), cosine (COS),ã' arcustangent (ATN) and square root (SQR)ã'ã'For questions or comments mail to: Meyer.Karl@t-online.deã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ãSCREEN 7ããRANDOMIZE TIMERã'***** Kreis zeichnen *****ãNext0:ãCLSãDOãFOR Winkel = 0 TO 3.18 STEP .01ã CS% = 50 * COS(Winkel)ã SN% = 50 * SIN(Winkel)ã CIRCLE (100 + CS%, 100 + SN%), 20, INT(RND * 14 + 1)ã CIRCLE (100 - CS%, 100 + SN%), 20, INT(RND * 14 + 1)ã CIRCLE (100 + CS%, 100 - SN%), 20, INT(RND * 14 + 1)ã CIRCLE (100 - CS%, 100 - SN%), 20, INT(RND * 14 + 1)ã IF INKEY$ <> "" THEN GOTO Next1ãNEXT WinkelãLOOPãNext1:ãCLSãDOãFOR Winkel = 0 TO 3.18 STEP .01ã CS% = 50 * ATN(Winkel)ã SN% = 50 * ATN(Winkel)ã CIRCLE (100 + CS%, 100 + SN%), 20, INT(RND * 14 + 1)ã CIRCLE (100 - CS%, 100 + SN%), 20, INT(RND * 14 + 1)ã CIRCLE (100 + CS%, 100 - SN%), 20, INT(RND * 14 + 1)ã CIRCLE (100 - CS%, 100 - SN%), 20, INT(RND * 14 + 1)ã IF INKEY$ <> "" THEN GOTO Next2ãNEXT WinkelãLOOPãNext2:ãCLSãDOãFOR Winkel = 0 TO 4.8 STEP .01ã CS% = 50 * ATN(Winkel)ã SN% = 50 * COS(Winkel)ã CIRCLE (100 + CS%, 100 + SN%), 20, INT(RND * 14 + 1)ã CIRCLE (100 - CS%, 100 + SN%), 20, INT(RND * 14 + 1)ã CIRCLE (100 + CS%, 100 - SN%), 20, INT(RND * 14 + 1)ã CIRCLE (100 - CS%, 100 - SN%), 20, INT(RND * 14 + 1)ã IF INKEY$ <> "" THEN GOTO Next3ãNEXT WinkelãLOOPãNext3:ãCLSãDOãFOR Winkel = 0 TO 6.5 STEP .01ã CS% = 50 * ATN(Winkel)ã SN% = 50 * SIN(Winkel)ã CIRCLE (100 + CS%, 100 + SN%), 20, INT(RND * 14 + 1)ã CIRCLE (100 - CS%, 100 + SN%), 20, INT(RND * 14 + 1)ã CIRCLE (100 + CS%, 100 - SN%), 20, INT(RND * 14 + 1)ã CIRCLE (100 - CS%, 100 - SN%), 20, INT(RND * 14 + 1)ã IF INKEY$ <> "" THEN GOTO Next4ãNEXT WinkelãLOOPãNext4:ãCLSãDOãFOR Winkel = 0 TO 3.18 STEP .01ã CS% = 50 * SIN(Winkel)ã SN% = 50 * SQR(Winkel)ã CIRCLE (100 + CS%, 100 + SN%), 20, INT(RND * 14 + 1)ã CIRCLE (100 - CS%, 100 + SN%), 20, INT(RND * 14 + 1)ã CIRCLE (100 + CS%, 100 - SN%), 20, INT(RND * 14 + 1)ã CIRCLE (100 - CS%, 100 - SN%), 20, INT(RND * 14 + 1)ã IF INKEY$ <> "" THEN GOTO Next5ãNEXT WinkelãLOOPãNext5:ãCLSãDOãFOR Winkel = 0 TO 3.18 STEP .01ã CS% = 50 * SIN(Winkel)ã SN% = 50 * SIN(Winkel)ã CIRCLE (100 + CS%, 100 + SN%), 20, INT(RND * 14 + 1)ã CIRCLE (100 - CS%, 100 + SN%), 20, INT(RND * 14 + 1)ã CIRCLE (100 + CS%, 100 - SN%), 20, INT(RND * 14 + 1)ã CIRCLE (100 - CS%, 100 - SN%), 20, INT(RND * 14 + 1)ã IF INKEY$ <> "" THEN ENDãNEXT WinkelãLOOPãRichard Colletta RDRAWPRO (LIKE TURTLE DRAW) riley007@hotmail.com 12-19-97 (17:34) QB, QBasic, PDS 120 5123 RDRAWPRO.BAS'RDRAWPROã'EMAIL ME!ã'Send me your cool programs!ã'Please read the RDRAWPRO.TXT file!ã'Draw a gridã' FOR X = 110 TO 500 STEP GridSizeã' LINE (X, 2)-(X, 386), GridColrã' LINE (110, X - 108)-(494, X - 108), GridColrã' NEXTãCHDIR "c:\tools\grafix"ãSCREEN 0: CLSãCOLOR 13: PRINT "RDRAW FOR QBASIC by Richard Colletta 1997"ãCOLOR 15: INPUT "PICTURE NAME: ", file$ãfile$ = file$ + ".Bas"ãOPEN file$ FOR OUTPUT AS #1ãPRINT #1, "'RDRAW FOR QBASIC by Richard Colletta 1997"ãPRINT #1, "'FILE: "; file$ãPRINT #1, "'Use Dim, Get, and Put"ãPRINT #1, "'For help read RDRAW.DOC"ãPRINT #1, "'EMAIL ME AT RILEY007@HOTMAIL.COM"ãPRINT #1, "SCREEN 13"ã1ãCLSãCOLOR 13: PRINT "RDRAW MENU"ãCOLOR 15: PRINT "SELECT OPTION"ãCOLOR 9: PRINT "1) DRAW"ãCOLOR 9: PRINT "2) HELP"ãCOLOR 9: PRINT "3) QUIT"ã2 ans$ = INKEY$ãIF ans$ = "1" THEN GOTO rdrawãIF ans$ = "2" THEN GOSUB help: CLS : GOTO 1ãIF ans$ = "3" THEN COLOR 13: PRINT "BYE!": COLOR 9: PRINT "EMAIL ME AT RILEY007@HOTMAIL.COM": ENDãGOTO 2ã'Main programãrdraw:ãCLS : SCREEN 13ãDIM box(1 TO 3000) AS INTEGERãFOR x = 1 TO 70ãPSET (x, 1)ãNEXTãFOR y = 1 TO 70ãPSET (x, y)ãNEXTãFOR x = 1 TO 70ãPSET (x, 70)ãNEXTãFOR y = 1 TO 70ãPSET (1, y)ãNEXTãGET (1, 1)-(72, 72), boxãCLSãDIM dot(0 TO 200) AS INTEGERãPSET (2, 2), 8: PSET (3, 3), 14: PSET (4, 4), 14: PSET (5, 5), 14: PSET (6, 6), 13ãGET (1, 1)-(10, 10), dotãCLSãx = 100: y = 100ãdx = 100: dy = 100ãcol = 1ãPUT (x, y), dotãpcol = 1ãbcol = 1ãcrad = 1ã3ãLOCATE 22, 1: COLOR col: PRINT x; y; col: 'COLOR pcol: PRINT "P"; pcol:ãLOCATE 21, 1: COLOR bcol: PRINT "B"; bcol: LOCATE 21, 15: COLOR pcol: PRINT "P"; pcolãLOCATE 21, 7: COLOR 15: PRINT "C"; cradãans$ = INKEY$ãIF ans$ = "u" AND crad > 0 OR ans$ = "U" AND crad > 0 THEN crad = crad - 1:ãIF ans$ = "i" OR ans$ = "I" THEN crad = crad + 1ãIF ans$ = "p" AND bcol < 255 OR ans$ = "P" AND bcol < 255 THEN bcol = bcol + 1ãIF ans$ = "o" AND bcol > 0 OR ans$ = "O" AND bcol > 0 THEN bcol = bcol - 1ãIF ans$ = "p" AND bcol = 255 OR ans$ = "P" AND bcol = 255 THEN bcol = 0ãIF ans$ = "o" AND bcol = 0 OR ans$ = "O" AND bcol = 0 THEN bcol = 255ãIF ans$ = "]" AND pcol < 255 THEN pcol = pcol + 1ãIF ans$ = "[" AND pcol > 0 THEN pcol = pcol - 1ãIF ans$ = "]" AND pcol = 255 THEN pcol = 0ãIF ans$ = "[" AND pcol = 0 THEN pcol = 255ãIF ans$ = "+" AND col = 255 THEN col = 0: newcol = 1ãIF ans$ = "-" AND col = 0 THEN col = 255: newcol = 1ãIF ans$ = "+" AND col < 255 THEN col = col + 1ãIF ans$ = "-" AND col > 0 THEN col = col - 1ãIF ans$ = "8" THEN GOSUB dot: y = y - 1: PUT (x, y), dot: PRINT #1, "PSET ("; x; ","; y; ")"; ","; col: PSET (x, y), col:ãIF ans$ = "2" THEN GOSUB dot: y = y + 1: PUT (x, y), dot: PRINT #1, "PSET ("; x; ","; y; ")"; ","; col: PSET (x, y), colãIF ans$ = "4" THEN GOSUB dot: x = x - 1: PUT (x, y), dot: PRINT #1, "PSET ("; x; ","; y; ")"; ","; col: PSET (x, y), colãIF ans$ = "6" THEN GOSUB dot: x = x + 1: PUT (x, y), dot: PRINT #1, "PSET ("; x; ","; y; ")"; ","; col: PSET (x, y), colãIF ans$ = "9" THEN GOSUB dot: x = x + 1: y = y - 1: PUT (x, y), dot: PRINT #1, "PSET ("; x; ","; y; ")"; ","; col: PSET (x, y), colãIF ans$ = "3" THEN GOSUB dot: x = x + 1: y = y + 1: PUT (x, y), dot: PRINT #1, "PSET ("; x; ","; y; ")"; ","; col: PSET (x, y), colãIF ans$ = "1" THEN GOSUB dot: x = x - 1: y = y + 1: PUT (x, y), dot: PRINT #1, "PSET ("; x; ","; y; ")"; ","; col: PSET (x, y), colãIF ans$ = "7" THEN GOSUB dot: x = x - 1: y = y - 1: PUT (x, y), dot: PRINT #1, "PSET ("; x; ","; y; ")"; ","; col: PSET (x, y), colãIF ans$ = "w" OR ans$ = "W" THEN GOSUB dot: y = y - 1: PUT (x, y), dotãIF ans$ = "x" OR ans$ = "X" THEN GOSUB dot: y = y + 1: PUT (x, y), dotãIF ans$ = "a" OR ans$ = "A" THEN GOSUB dot: x = x - 1: PUT (x, y), dotãIF ans$ = "d" OR ans$ = "D" THEN GOSUB dot: x = x + 1: PUT (x, y), dotãIF ans$ = "5" THEN PAINT (x, y), pcol, bcol: PRINT #1, "paint ("; x; ","; y; ")"; ","; pcol; ","; bcol: PUT (x, y), dot:ãIF ans$ = "f" OR ans$ = "F" THEN PUT (1, 1), box: PUT (73, 1), box: PUT (145, 1), box: PUT (217, 1), box: PUT (1, 72), box: PUT (73, 72), box: PUT (145, 72), box: PUT (217, 72), boxãIF ans$ = "C" OR ans$ = "c" THEN CIRCLE (x, y), crad, col: PRINT #1, "CIRCLE " + "("; x; ","; y; ")"; ","; crad; ","; colãIF ans$ = CHR$(27) THEN COLOR 13: PRINT "BYE!": COLOR 9: PRINT "EMAIL ME AT RILEY007@HOTMAIL.COM": ENDãGOTO 3ãhelp:ãCLS : SCREEN 0ãCOLOR 13: PRINT "RDRAW HELP"ãCOLOR 15: PRINT "(+/-) These are used to change color"ãPRINT "Use number pad to draw. NumLock should be on."ãPRINT "(*) This is used to toggle between move mode and draw mode"ãPRINT "To move without drawing controls are:"ãPRINT "W: Up X: Down A:left D:right"ãPRINT "Toggle paint fill color: [ , ]"ãPRINT "Toggle paint border color: O, P"ãPRINT "Press U to decrease circle radius."ãPRINT "Press I to increase circle radius."ãPRINT "Press C to make a circle"ãPRINT "Press F to toggle sprite frames on/off."ãPRINT "Press escape to quit. Saving is automatic."ãPRINT "Press any key to exit help"ãPRINT "Richard Colletta 1997"ãSLEEPãRETURNãdot:ãPUT (x, y), dotãRETURNãPetter Holmberg FLOOD FILL ROUTINE petter.holmberg@usa.net 12-23-97 (00:57) QB, QBasic, PDS 225 5468 FFILL.BAS ' SCREEN 13 flood fill routine by Petter Holmberg, -97:ãã'$DYNAMICããTYPE pixtypeã x AS INTEGERã y AS INTEGERãEND TYPEããDECLARE SUB FloodFill (x%, y%, col%)ããCLSãSCREEN 0ãWIDTH 80, 25ããPRINT "SCREEN 13 flood fill routine by Petter Holmberg, -97:"ãPRINTãPRINT "Finally! The routine everyone have been waiting for: A fully functional non-"ãPRINT "recursive flood fill routine for SCREEN 13!"ãPRINTãPRINT "This routine is similar to the PAINT statement, it will fill an arbitraty area"ãPRINT "with any color. but unlike PAINT, who fills the area until it hits a certain"ãPRINT "bordercolor, this routine will stop filling when it hits any other color than"ãPRINT "the one being filled. This is the kind of flood fill routine you would like"ãPRINT "to have in a paint program. I'm sure many of you know what I'm talking about."ãPRINT "The routine is a little slower than PAINT in large areas, but in complex"ãPRINT "images it will actually be faster than PAINT. This routine is small, doesn't"ãPRINT "need much memory and works for all images. You'll never use PAINT again! :-)"ãPRINTãPRINT "You may use this routine in any way you like, as long as you give me credits!"ãPRINT "If you use it in a program of yours, I would be glad if you sent me a mail and"ãPRINT "told me about it. my email address is: petter.holmberg@usa.net"ãPRINTãPRINT "Now enjoy the demonstration of this routine..."ãPRINTãPRINT "Special thanks to Thomas Nyberg for advice and testing!"ããDO: LOOP WHILE INKEY$ = ""ããSCREEN 13ããLOCATE 1, 1ãPRINT "In the beginning, there was only PAINT! "ãPRINT " Good enough for most images... "ããCIRCLE (159, 99), 100, 15ããDO: LOOP WHILE INKEY$ = ""ããPAINT (159, 99), 14, 15ããDO: LOOP WHILE INKEY$ = ""ããLOCATE 24, 1ãPRINT " ...but far from all!!! ";ããDO: LOOP WHILE INKEY$ = ""ããPAINT (159, 99), 0, 15ãLINE (65, 23)-(253, 175), 12, BããDO: LOOP WHILE INKEY$ = ""ããPAINT (159, 99), 14, 15ããDO: LOOP WHILE INKEY$ = ""ããCLSãLOCATE 1, 1ãPRINT " Then came this flood fill routine... "ãCIRCLE (159, 99), 100, 15ãLINE (65, 23)-(253, 175), 12, BããDO: LOOP WHILE INKEY$ = ""ããFloodFill 159, 99, 14ãLOCATE 24, 1ãPRINT "...and there was never more a problem!!!";ããDO: LOOP WHILE INKEY$ = ""ããCLSãFOR y% = 0 TO 199 STEP 2ã FOR x% = 0 TO 319 STEP 2ã PSET (x%, y%)ã NEXT x%ãNEXT y%ãLOCATE 1, 1ãPRINT "With the usual PAINT..."ãPAINT (159, 99), 6, 15ããDO: LOOP WHILE INKEY$ = ""ããCLSãFOR y% = 0 TO 199 STEP 2ã FOR x% = 0 TO 319 STEP 2ã PSET (x%, y%)ã NEXT x%ãNEXT y%ãLOCATE 1, 1ãPRINT "With this flood fill routine..."ãFloodFill 159, 99, 9ããDO: LOOP WHILE INKEY$ = ""ããCLSãx1% = 4ãx2% = 319ãy1% = 0ãy2% = 199ãFOR i% = 1 TO 24ã LINE (x1% - 4, y1%)-(x2%, y1%), 7ã LINE (x2%, y1%)-(x2%, y2%), 7ã LINE (x2%, y2%)-(x1%, y2%), 8ã LINE (x1%, y2%)-(x1%, y1% + 4), 8ã x1% = x1% + 4ã x2% = x2% - 4ã y1% = y1% + 4ã y2% = y2% - 4ãNEXT i%ãLOCATE 13, 16ãPRINT "Watch this!";ãLINE (130, 101)-(131, 101), 12ãFloodFill 199, 99, 12ããDO: LOOP WHILE INKEY$ = ""ããCLSãPRINT "The final challange! The following image"ãPRINT "is too complex for PAINT to fill. With"ãPRINT "PAINT, you will run out of memory when"ãPRINT "trying to fill it."ãDO: LOOP WHILE INKEY$ = ""ããCLSãFOR y% = 0 TO 199ã IF y% AND 1 THENã FOR x% = 2 TO 319 STEP 4ã IF POINT(x%, y%) = 0 THEN PSET (x%, y%), 7ã NEXT x%ã ELSEã FOR x% = 0 TO 319 STEP 4ã IF POINT(x%, y%) = 0 THEN PSET (x%, y%), 7ã NEXT x%ã END IFãNEXT y%ãLOCATE 1, 1ããDO: LOOP WHILE INKEY$ = ""ããFloodFill 159, 99, 15ããLOCATE 12, 13ãPRINT " "ãLOCATE 13, 13ãPRINT " Satisfied??? "ãLOCATE 14, 13ãPRINT " "ããREM $STATICãSUB FloodFill (x%, y%, col%)ããDIM pixdata(1278) AS pixtypeããbcol% = POINT(x%, y%)ããfirstentry% = 0ãlastentry% = 1ããDOãã fx% = pixdata(firstentry%).xã fy% = pixdata(firstentry%).yãã DOã IF POINT(x% + fx%, y% + fy%) = bcol% THENã PSET (x% + fx%, y% + fy%), col%ã IF POINT(x% + fx%, y% + fy% - 1) = bcol% THENã pixdata(lastentry%).x = fx%ã pixdata(lastentry%).y = fy% - 1ã lastentry% = lastentry% + 1ã IF lastentry% = 1279 THEN lastentry% = 0ã END IFã IF POINT(x% + fx%, y% + fy% + 1) = bcol% THENã pixdata(lastentry%).x = fx%ã pixdata(lastentry%).y = fy% + 1ã lastentry% = lastentry% + 1ã IF lastentry% = 1279 THEN lastentry% = 0ã END IFã ELSEã EXIT DOã END IFã fx% = fx% + 1ã LOOPãã fx% = pixdata(firstentry%).x - 1ã fy% = pixdata(firstentry%).yãã DOã IF POINT(x% + fx%, y% + fy%) = bcol% THENã PSET (x% + fx%, y% + fy%), col%ã IF POINT(x% + fx%, y% + fy% - 1) = bcol% THENã pixdata(lastentry%).x = fx%ã pixdata(lastentry%).y = fy% - 1ã lastentry% = lastentry% + 1ã IF lastentry% = 1279 THEN lastentry% = 0ã END IFã IF POINT(x% + fx%, y% + fy% + 1) = bcol% THENã pixdata(lastentry%).x = fx%ã pixdata(lastentry%).y = fy% + 1ã lastentry% = lastentry% + 1ã IF lastentry% = 1279 THEN lastentry% = 0ã END IFã ELSEã EXIT DOã END IFã fx% = fx% - 1ã LOOPãã firstentry% = firstentry% + 1ã IF firstentry% = 1279 THEN firstentry% = 0ããLOOP UNTIL firstentry% = lastentry%ããEND SUBãSami Kyostila 3D TEXTURED POLYGON ENGINE V2.0hiteck@freenet.hut.fi 12-24-97 (15:25) QB, QBasic, PDS 1393 36384 3DPOLY.BAS 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' 3D Polygon Engine v2.0 (C) Sami Ky”stil„ 1997ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Comments & questions can be sent to hiteck@freenet.hut.fiã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã'ã' Here's a new version of my previous 3d engine. Actually it's almost aã' complete rewrite, with tons of new features. Currently there are 4ã' drawing modes:ã'ã' + Z-Shaded Wireframeã' + Z-Gouraud shaded and filledã' + Z-Shaded Flat, ASM-Filledã' + Z-Gouraud shaded and texturemappedã'ã' These drawing modes can be selected with the F1-F4 keys. In additionã' there are also 4 animated textures:ã'ã' + Fire - Looks very kewlã' + BumpMap - Nice and fast bumpmapã' + Panning textures - Looks like flowing green oozeã' + Sinus plasma - An animated plasmaã'ã' These can be toggled on/off with the F9-F12 keys. NOTE: After you haveã' selected an animated texture, you must press that same key again toã' disable it.ã'ã' The object is rotated with the arrow keys and the plus/minus keys. Zoomã' in/out with the A/Z keys. The object can be panned with the J/K/L/I keys.ã' 5 stops movement, and 0 resets the object to the starting position.ã' You can also rotate the object with the mouse by pressing the left mouseã' button.ã'ã' All of the drawing modes are shaded, and the ambient lighting level canã' be varied with the F5/F6 keys. F7 toggles point number display on/offã' F9 toggles FPS display on/off (this slows the engine down a bit, you canã' also see the FPS in the exit screen)ã'ã' If the texture mapping seems too slow, you can adjust the texture sizeã' by changing the TSize-constant below.ã'ã' See the end of the program to find out how to make your own objectsã' If you want to save you objects to a file, insert the followingã' statement to the SUB TheEnd:ã'ã' SaveObject "filename.dat"ã'ã' When you press ESC, the object is saved. To load a saved object, use theã' SUB LoadObjectã'ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' You may use any of this code freely in you own programs, as long as youã' mention my name somewhere in you program.ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄãããDEFINT A-Zã'$DYNAMICãDECLARE SUB HiiriLue (vasen%, oikea%, keski%, x%, y%)ãDECLARE SUB Hiiriajuri (ax%, bx%, cx%, dx%)ãDECLARE FUNCTION Hiiritarkista% ()ãDECLARE SUB LoadObject (File$)ãDECLARE SUB SaveObject (File$)ãDECLARE SUB HandleKeys ()ãDECLARE SUB TheEnd ()ãDECLARE SUB RotatePoints ()ãDECLARE SUB ColPrint (Text$)ãDECLARE FUNCTION ShadeName$ (Model%)ãDECLARE SUB Separator (Col&, Char$)ãDECLARE SUB MakePalette ()ãDECLARE SUB MakeFirePalette (MaxColors%)ãDECLARE SUB MakeTexture ()ãDECLARE SUB Switch (Var%, Value1%, Value2%)ãDECLARE SUB MakeLight ()ãDECLARE SUB Fillchar (segment%, offset%, value%, bytes%)ãDECLARE SUB Memcopy (fromseg%, fromoffset%, toseg%, tooffset%, bytes%)ãDECLARE SUB t3d2d (x%, y%, z%, SX%, SY%)ãDECLARE SUB RotatePoint (x%, y%, z%, Rx%, Ry%, Rz%, Nx%, Ny%, Nz%)ãDECLARE SUB DrawPoly (x%, y%, x2%, y2%, x3%, y3%, P1%, P2%, P3%, Num)ãDECLARE SUB DrawLine (x%, y%, x2%, y2%, Col1%, Col2%, Tx1, Ty1, Tx2, Ty2)ãDEFINT A-ZããTYPE Filltype 'Buffer to hold polygon dataã x1 AS INTEGERã x2 AS INTEGERã Col1 AS INTEGERã Col2 AS INTEGERã Tx AS INTEGERã Ty AS INTEGERã Tx2 AS INTEGERã Ty2 AS INTEGERãEND TYPEããTYPE PointTypeã x3 AS INTEGER 'Original Xã y3 AS INTEGER 'Original Yã z3 AS INTEGER 'Original Zã x AS INTEGER 'Screen Xã y AS INTEGER 'Screen Yã Nx AS INTEGER 'New Xã Ny AS INTEGER 'New Yã Nz AS INTEGER 'New Zã Shade AS INTEGER 'ShadeãEND TYPEãããTYPE Polygontypeã P1 AS INTEGER 'Point 1ã P2 AS INTEGER 'Point 2ã P3 AS INTEGER 'Point 3ã Col AS INTEGER 'Colorã Culled AS INTEGER 'Culled/Not Culledã AvgZ AS INTEGERãEND TYPEãããã'----------------------------------------------------------------------------ã' Constantsã'----------------------------------------------------------------------------ãCONST True = 0ãCONST False = NOT TrueãCONST PI = 22 / 7ãCONST TSize = 40ãCONST LSize = TSize \ 2ããDIM SHARED Polygons, PointsãDIM SHARED Sine(360) AS INTEGER 'SIN tableãDIM SHARED Cosine(360) AS INTEGER 'COS tableãDIM SHARED Fill(199) AS Filltype 'Polygon data bufferãDIM SHARED Upper AS INTEGERãDIM SHARED Lower AS INTEGERãDIM SHARED SrX AS INTEGERãDIM SHARED SrY AS INTEGERãDIM SHARED Zoom AS INTEGERãDIM SHARED Buffer(319, 199) AS STRING * 1ãDIM SHARED ShadingModel AS INTEGERãDIM SHARED Ambient AS INTEGERãDIM SHARED Mx, MyãDIM SHARED Fire AS INTEGERãDIM SHARED Anim AS INTEGERãDIM SHARED AnimType AS INTEGERãDIM SHARED l(0 TO LSize, 0 TO LSize) AS INTEGERãDIM SHARED MaxPoints, MaxPolygonsãDIM SHARED Xr AS INTEGERãDIM SHARED Yr AS INTEGERãDIM SHARED Zr AS INTEGERãDIM SHARED Vx, Vy, VzãDIM SHARED FDisp, PDispãDIM SHARED FPS&ãDIM SHARED WaveSide1, WaveSide2, WaveSide3ãDIM SHARED R1, R2, R3ããFOR i = 0 TO 360ã Sine(i) = SIN(i * PI / 180) * 1024ã Cosine(i) = COS(i * PI / 180) * 1024ãNEXTãããSrX = 320 \ 2 'Screen centerãSrY = 200 \ 2ãããZoom = 700 'Initial valuesãXr = 200ãYr = 315ãZr = 100ãMx = 0ãMy = 0ãAmbient = 10ãPDisp = FalseãFDisp = FalseãFire = FalseãShadingModel = 2ããSCREEN 0: CLSãWIDTH 80, 25ãCOLOR 15, 4ãLOCATE 1, 1ãPRINT STRING$(80, " ")ãLOCATE 1, 1ãPRINT " 3D Polygon Engine v2.0 by Sami Ky”stil„ 1997"ãCOLOR 3, 0ãPRINTããRESTORE ObjectDataãREAD MaxPointsãREAD MaxPolygonsãDIM SHARED Pnt(1 TO MaxPoints) AS PointTypeãDIM SHARED Poly(1 TO MaxPolygons) AS PolygontypeãDIM SHARED Pointer(1 TO MaxPolygons)ãDIM SHARED Txt(-1 TO TSize + 1, -1 TO TSize + 1) AS INTEGERãDIM SHARED ASMMemCopy$ãDIM SHARED ASMFillChar$ãããasm$ = ""ãasm$ = asm$ + CHR$(85)ãasm$ = asm$ + CHR$(137) + CHR$(229)ãasm$ = asm$ + CHR$(30)ãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(10)ãasm$ = asm$ + CHR$(142) + CHR$(192)ãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(14)ãasm$ = asm$ + CHR$(142) + CHR$(216)ãasm$ = asm$ + CHR$(139) + CHR$(118) + CHR$(8)ãasm$ = asm$ + CHR$(139) + CHR$(126) + CHR$(12)ãasm$ = asm$ + CHR$(139) + CHR$(78) + CHR$(6)ãasm$ = asm$ + CHR$(243)ãasm$ = asm$ + CHR$(164)ãasm$ = asm$ + CHR$(31)ãasm$ = asm$ + CHR$(93)ãasm$ = asm$ + CHR$(203)ãASMMemCopy$ = asm$ãããasm$ = ""ãasm$ = asm$ + CHR$(85)ãasm$ = asm$ + CHR$(137) + CHR$(229)ãasm$ = asm$ + CHR$(139) + CHR$(78) + CHR$(6)ãasm$ = asm$ + CHR$(139) + CHR$(86) + CHR$(8)ãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(12)ãasm$ = asm$ + CHR$(30)ãasm$ = asm$ + CHR$(142) + CHR$(216)ãasm$ = asm$ + CHR$(139) + CHR$(94) + CHR$(10)ãasm$ = asm$ + CHR$(136) + CHR$(23)ãasm$ = asm$ + CHR$(67)ãasm$ = asm$ + CHR$(226) + CHR$(251)ãasm$ = asm$ + CHR$(31)ãasm$ = asm$ + CHR$(93)ãasm$ = asm$ + CHR$(203)ãASMFillChar$ = asm$ãããPRINT "Number of points:", , MaxPointsãPRINT "Number of polygons:", , MaxPolygonsãPRINT "Starting position (XYZ)", , Xr; Yr; ZrãPRINT "Texture size: ", , TSize; "x"; TSizeãPRINT "Initial shading model:", , " "; ShadeName$(ShadingModel)ãPRINT "Ambient lighting level:", , AmbientãSeparator 1, "Ä"ãCOLOR 7ããPRINT " þ Reading points...";ããFOR i = 1 TO MaxPointsã READ Pnt(i).x3ã READ Pnt(i).y3ã READ Pnt(i).z3ãNEXTãPRINT "Done"ããPRINT " þ Reading polygons...";ãFOR i = 1 TO MaxPolygonsã READ Poly(i).P1ã READ Poly(i).P2ã READ Poly(i).P3ã READ Poly(i).Colã Poly(i).Col = Poly(i).Col * 64ãNEXTãPRINT "Done"ããPRINT " þ Generating texture...";ãMakeTextureãPRINT "Done"ãPRINT " þ Initializing mouse...";ããRESTORE MouseDataãDIM SHARED hiiri$ãhiiri$ = SPACE$(57)ãFOR i% = 1 TO 57ã READ a$ã h$ = CHR$(VAL("&H" + a$))ã MID$(hiiri$, i%, 1) = h$ãNEXT i%ãnapit% = Hiiritarkista%ãIF (napit% = 0) THENã PRINT "Mouse not found!"ã MouseNotFound = 1ãELSEã PRINT "Done (Press left MButton to rotate)"ãEND IFãããPRINTãSeparator 3, "Ä"ãColPrint " &FF1&7 - Wireframe &FF2&7 - Z-Gouraud &FF3&7 - Z-Flat &FF4&7 - Textured"ãPRINTãColPrint " &FArrows/-/+&7 - Rotate &FA/Z&7 - Zoom In/Out &FJ/K/L/I&7 - Pan &F5&7 - Stop &F0&7 - Reset"ãPRINTãColPrint " &FF5&7/&FF6&7 - Adjust ambient lighting level "ãPRINTãColPrint " &FF7&7 - Point display toggle"ãPRINTãColPrint " &FF8&7 - Frame rate toggle"ãPRINTãColPrint " &FF9&7 - Animated texture 1 - &EFire"ãPRINTãColPrint " &FF10&7 - Animated texture 2 - &EBumpmap"ãPRINTãColPrint " &FF11&7 - Animated texture 3 - &ETexture panning"ãPRINTãColPrint " &FF12&7 - Animated texture 4 - &EPlasma"ãMakeLightãDO: LOOP UNTIL INKEY$ <> ""ããSCREEN 13: CLSãMakePaletteããCOLOR 255ããDIM Temp(0 TO TSize, 0 TO TSize) AS INTEGERããFOR y& = 0 TO TSizeã FOR x& = 0 TO TSizeã Temp(x&, y&) = Txt(x&, y&)ã NEXTãNEXTããDIM Cosinus(160) AS INTEGERãDIM Rand(255) AS INTEGERããFOR c = 0 TO 160ã Cosinus(c) = COS(c * 2 * PI / 80) * 16 + 16ãNEXTããFOR c = 0 TO 255ã Rand(c) = INT(RND * 4) + 1ãNEXTããXAdd& = 1ãYAdd& = 1ãAnim = FalseããDOã RotatePointsãã FOR i& = 1 TO MaxPolygonsã Poly(i&).AvgZ = (Pnt(Poly(i&).P1).Nz + Pnt(Poly(i&).P2).Nz + Pnt(Poly(i&).P3).Nz) \ 3ã Pointer(i&) = i&ã Poly(i&).Culled = Falseã NEXTãã FOR i& = 1 TO MaxPolygonsã coord1 = Poly(i&).P1ã coord2 = Poly(i&).P2ã coord3 = Poly(i&).P3ãã z1& = Pnt(coord1).Nzã z2& = Pnt(coord2).Nzã z3& = Pnt(coord3).Nzãã x1& = Pnt(coord1).Nxã x2& = Pnt(coord2).Nxã x3& = Pnt(coord3).Nxãã y1& = Pnt(coord1).Nyã y2& = Pnt(coord2).Nyã y3& = Pnt(coord3).Nyãã IF (x1& - x2&) * (y3& - y2&) - (y1& - y2&) * (x3& - x2&) < 0 THEN Poly(i&).Culled = Trueã NEXTããã FOR i& = 1 TO MaxPolygonsã FOR ii& = 1 TO MaxPolygons - 1ã IF Poly(Pointer(ii&)).AvgZ > Poly(Pointer(ii& + 1)).AvgZ THEN SWAP Pointer(ii&), Pointer(ii& + 1)ã NEXTã NEXTãã FOR ii& = 1 TO MaxPolygonsã i& = Pointer(ii&)ã IF NOT Poly(i&).Culled = True THENã DrawPoly Pnt(Poly(i&).P1).x + SrX, Pnt(Poly(i&).P1).y + SrY, Pnt(Poly(i&).P2).x + SrX, Pnt(Poly(i&).P2).y + SrY, Pnt(Poly(i&).P3).x + SrX, Pnt(Poly(i&).P3).y + SrY, Pnt(Poly(i&).P1).Shade + Poly(i&).Col, Pnt(Poly(i&).P2).Shade + Poly(i&).Col, _ãPnt(Poly(i&).P3).Shade + Poly(i&).Col, INT(i&)ã END IFã NEXTã Memcopy VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), &HA000, 0, &HFA00ã Fillchar VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), 0, &HFA00ããã 'Print Point numbersã IF PDisp = True THENã FOR i = 1 TO MaxPointsã Ty = (Pnt(i).y + SrY) \ 8 + 1ã Tx = (Pnt(i).x + SrX) \ 8 + 1ã IF Ty > 23 THEN Ty = 23ã IF Ty < 1 THEN Ty = 1ã IF Tx < 1 THEN Tx = 1ã IF Tx > 40 THEN Tx = 40ã LOCATE Ty, Txã PRINT LTRIM$(RTRIM$(STR$((i))))ã NEXTã END IFãã HandleKeysããã SELECT CASE AnimTypeã CASE 1ã ShadingModel = 4ã FOR y = 0 TO TSize - 1ã FOR x = 0 TO TSizeã Txt(x, y + 1) = (Txt(x - 1, y - 1) + Txt(x, y - 1) + Txt(x + 1, y - 1) + Txt(x + 1, y) + Txt(x + 1, y + 1) + Txt(x, y + 1) + Txt(x - 1, y + 1) + Txt(x - 1, y)) \ 8 - 1ã NEXTã NEXTã FOR i = 0 TO TSize \ 4ã XPos = RND * TSizeã Temp = RND * 63ã Txt(XPos, -1) = RND * Tempã Txt(XPos, 0) = RND * Tempã NEXTã CASE 2ã ShadingModel = 4ã Lx& = Lx& + XAdd&ã Ly& = Ly& + YAdd&ãã FOR y& = 0 TO TSizeã FOR x& = 0 TO TSizeã Txt(x&, y&) = Temp(x&, y&)ã NEXTã NEXTãã FOR y& = 0 TO LSizeã FOR x& = 0 TO LSizeã Txt((x& + Lx&) MOD TSize, (y& + Ly&) MOD TSize) = Txt((x& + Lx&) MOD TSize, (y& + Ly&) MOD TSize) + l(x&, y&)ã NEXTã NEXTãã Lx& = Lx& + XAdd&ã Ly& = Ly& + YAdd&ãã IF Lx& = TSize THEN XAdd& = -XAdd&ã IF Lx& = 0 THEN XAdd& = -XAdd&ãã IF Ly& = TSize - 2 THEN YAdd& = -YAdd&ã IF Ly& = 0 THEN YAdd& = -YAdd&ãã CASE 3ã ShadingModel = 4ã FOR y = 1 TO TSize - 1ã FOR x = 0 TO TSizeã Txt(x, y - 1) = Txt(x, y)ã NEXTã NEXTã FOR i = 0 TO TSizeã Txt(i, TSize - 1) = Txt(i, 0)ã NEXTã CASE 4ã ShadingModel = 4ã WAVE1 = WAVE1 + WaveSide1ã IF WAVE1 >= 80 THENã WAVE1 = 0ã R1 = (R1 + 1) AND 255ã WaveSide1 = Rand(R1)ã END IFã WAVE2 = WAVE2 + WaveSide2ã IF WAVE2 >= 80 THENã WAVE2 = 0ã R2 = (R2 + 2) AND 255ã WaveSide2 = Rand(R2)ã END IFã WAVE3 = WAVE3 + WaveSide3ã IF WAVE3 >= 80 THENã WAVE3 = 0ã R3 = (R3 + 2) AND 255ã WaveSide3 = Rand(R3)ã END IFã FOR y& = 0 TO TSizeã E = Cosinus(y& + WAVE1)ã FOR x& = 0 TO TSizeã Col = Cosinus(x& + WAVE2) + E + Cosinus(x& + WAVE3) + Cosinus(x& + y&)ã IF Col > 127 THEN Col = 127ã Txt(x&, y&) = Colã NEXTã NEXTã END SELECTãã'----------------------------------------------------------------------------ã' Update rotation velocitiesã'----------------------------------------------------------------------------ã Xr = Xr + Vxã Yr = Yr + Vyã Zr = Zr + Vzãã IF Xr < 0 THEN Xr = 360 + Xrã IF Yr < 0 THEN Yr = 360 + Yrã IF Zr < 0 THEN Zr = 360 + Zrãã Xr = Xr MOD 361ã Yr = Yr MOD 361ã Zr = Zr MOD 361ãã IF TIMER >= start& + 2 THENã FPS& = INT(Frame / 2)ã Frame = 0ã start& = INT(TIMER)ã END IFã Frame = Frame + 1ã ã IF FDisp = True THENã COLOR 255ã LOCATE 1, 1: PRINT FPS&; "fps "ã END IFãã IF MouseNotFound = 0 THENã HiiriLue B1, B2, B3, MouseX, MouseYãã IF B1 = -1 THENã Xr = MouseXã Zr = MouseYã END IFã END IFããLOOPããã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Object dataã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄãObjectData:ãã' Number of pointsãDATA 5ãã' Number of polygonsãDATA 6ãã' Point dataã'ã' X Y ZãDATA -100, 0, 100ãDATA -100, 0, -100ãDATA 100, 0, -100ãDATA 100, 0, 100ãDATA 0, -190, 0ããã' Polygon dataã'ã' Pnt1 Pnt2 Pnt3 Color (1-4)ãDATA 5, 1, 4, 1ãDATA 5, 4, 3, 2ãDATA 5, 2, 1, 3ãDATA 5, 3, 2, 4ãDATA 4, 1, 2, 1ãDATA 4, 2, 3, 1ããããMouseData:ãDATA 55, 89, E5, 8B, 5E, 0C, 8B, 07, 50, 8B, 5E, 0A, 8B, 07, 50, 8BãDATA 5E, 08, 8B, 0F, 8B, 5E, 06, 8B, 17, 5B, 58, 1E, 07, CD, 33, 53ãDATA 8B, 5E, 0C, 89, 07, 58, 8B, 5E, 0A, 89, 07, 8B, 5E, 08, 89, 0FãDATA 8B, 5E, 06, 89, 17, 5D, CA, 08, 00ããREM $STATICãSUB ColPrint (Text$)ã'----------------------------------------------------------------------------ã' SúYúSúTúEúMã'----------------------------------------------------------------------------ãã'----------------------------------------------------------------------------ã' Prints color-coded textã'----------------------------------------------------------------------------ã' Color codes:ã'ã' & followed by a color value between 0-15 (in hex)ã'ã' Example:ã'ã' This text is &Credã'----------------------------------------------------------------------------ããFOR i = 1 TO LEN(Text$)ã Done = 0ã DOã IF MID$(Text$, i, 1) = "&" AND INSTR("0123456789ABCDEF", MID$(Text$, i + 1, 1)) AND i < LEN(Text$) THENã COLOR VAL("&H" + MID$(Text$, i + 1, 1))ã i = i + 2ã ELSEã Done = 1ã END IFã LOOP UNTIL Doneã PRINT MID$(Text$, i, 1);ãNEXTããEND SUBããSUB DrawLine (x, y, x2, y2, Col1, Col2, Tx1, Ty1, Tx2, Ty2)ã'----------------------------------------------------------------------------ã' Calculate the points of a polygon into the bufferã'----------------------------------------------------------------------------ããIF y < Upper THEN Upper = yãIF y > Lower THEN Lower = yããIF Upper < 0 THEN Upper = 0ãIF Lower > 199 THEN Lower = 199ãã'Calculate deltas and scale by 1024ããSteps = SQR((x2 - x) ^ 2 + ((y2 - y) ^ 2))ãIF Steps > 0 THENã XStep& = ((x2 - x) / Steps) * 1024ã YStep& = ((y2 - y) / Steps) * 1024ã ColStep& = ((Col2 - Col1) / Steps) * 1024ãELSEã EXIT SUBãEND IFããTempxx& = xãTempyy& = yããxxx& = Tempxx& * 1024ãyyy& = Tempyy& * 1024ããCol& = CLNG(Col1) * 1024ããIF ShadingModel = 4 THENã Tx& = CLNG(Tx1) * 1024ã Ty& = CLNG(Ty1) * 1024ã TxDelta& = ((Tx2 - Tx1) / Steps) * 1024ã TyDelta& = ((Ty2 - Ty1) / Steps) * 1024ãã FOR i& = 1 TO Stepsã IF yyy& >= 0 AND yyy& < 204800 THENã IF xxx& \ 1024 < Fill(yyy& \ 1024).x1 THENã Fill(yyy& \ 1024).x1 = xxx& \ 1024ã Fill(yyy& \ 1024).Tx = Tx& \ 1024ã Fill(yyy& \ 1024).Ty = Ty& \ 1024ã Fill(yyy& \ 1024).Col1 = Col& \ 1024ã END IFãã IF xxx& \ 1024 > Fill(yyy& \ 1024).x2 THENã Fill(yyy& \ 1024).x2 = xxx& \ 1024ã Fill(yyy& \ 1024).Tx2 = Tx& \ 1024ã Fill(yyy& \ 1024).Ty2 = Ty& \ 1024ã Fill(yyy& \ 1024).Col2 = Col& \ 1024ã END IFã END IFãã xxx& = xxx& + XStep&ã yyy& = yyy& + YStep&ã Tx& = Tx& + TxDelta&ã Ty& = Ty& + TyDelta&ã Col& = Col& + ColStep&ã NEXTãELSEã FOR i& = 1 TO Stepsã IF yyy& >= 0 AND yyy& < 204800 THENã IF xxx& \ 1024 < Fill(yyy& \ 1024).x1 THENã Fill(yyy& \ 1024).x1 = xxx& \ 1024ã Fill(yyy& \ 1024).Col1 = Col& \ 1024ã END IFãã IF xxx& \ 1024 > Fill(yyy& \ 1024).x2 THENã Fill(yyy& \ 1024).x2 = xxx& \ 1024ã Fill(yyy& \ 1024).Col2 = Col& \ 1024ã END IFã END IFãã xxx& = xxx& + XStep&ã yyy& = yyy& + YStep&ã Col& = Col& + ColStep&ã NEXTãEND IFããEND SUBããSUB DrawPoly (x, y, x2, y2, x3, y3, P1, P2, P3, Num)ããFOR i2 = 1 TO 199ã Fill(i2).x1 = 321ã Fill(i2).x2 = -1ã Fill(i2 - 1).x1 = 321ã Fill(i2 - 1).x2 = -1ã Fill(i2).Col1 = 0ã Fill(i2).Col2 = 0ã Fill(i2 - 1).Col1 = 0ã Fill(i2 - 1).Col2 = 0ãNEXTãããDrawLine x, y, x2, y2, P1, P2, TSize \ 2, TSize, TSize, 0ãDrawLine x3, y3, x, y, P3, P1, 0, 0, TSize \ 2, TSizeãDrawLine x2, y2, x3, y3, P2, P3, TSize, 0, 0, 0ããSELECT CASE ShadingModelãCASE 1ã OldPos1 = 321ã OldPos2 = 321ã FOR yy& = Upper TO Lower - 1ã XLen = Fill(yy&).x2 - Fill(yy&).x1ã IF XLen > 0 AND Fill(yy&).x1 > 0 AND Fill(yy&).x2 < 319 AND Fill(yy&).x1 < 319 AND Fill(yy&).x2 > 0 THENã IF OldPos1 < 320 AND OldPos1 > 0 THENã IF OldPos1 > Fill(yy&).x1 THENã FOR xx& = OldPos1 - 1 TO Fill(yy&).x1 STEP -1ã Buffer(xx&, yy&) = CHR$(Fill(yy&).Col1 MOD 255)ã NEXTã ELSEã FOR xx& = OldPos1 + 1 TO Fill(yy&).x1ã Buffer(xx&, yy&) = CHR$(Fill(yy&).Col1 MOD 255)ã NEXTã END IFã ELSEã Buffer(Fill(yy&).x1, yy&) = CHR$(Fill(yy&).Col1 MOD 255)ã END IFãã IF OldPos2 < 320 AND OldPos2 > 0 THENã IF OldPos2 > Fill(yy&).x2 THENã FOR xx& = OldPos2 TO Fill(yy&).x2 STEP -1ã Buffer(xx&, yy&) = CHR$(Fill(yy&).Col2 MOD 255)ã NEXTã ELSEã FOR xx& = OldPos2 TO Fill(yy&).x2ã Buffer(xx&, yy&) = CHR$(Fill(yy&).Col2 MOD 255)ã NEXTã END IFã ELSEã Buffer(Fill(yy&).x2, yy&) = CHR$(Fill(yy&).Col2 MOD 255)ã END IFã END IFã OldPos1 = Fill(yy&).x1ã OldPos2 = Fill(yy&).x2ã NEXTãCASE 2ã FOR yy& = Upper TO Lower - 1ã XLen = Fill(yy&).x2 - Fill(yy&).x1ã IF XLen > 0 THENã ColDelta& = (Fill(yy&).Col2 - Fill(yy&).Col1) / XLen * 1024ã Col& = CLNG(Fill(yy&).Col1) * 1024ã IF Fill(yy&).x1 + XLen > 319 THEN XLen = 319 - Fill(yy&).x1ã IF Fill(yy&).x1 < 0 THEN XLen = XLen + Fill(yy&).x1: Col& = Col& + ColDelta& * -Fill(yy&).x1: Fill(yy&).x1 = 0ã FOR xx& = Fill(yy&).x1 TO Fill(yy&).x1 + XLenã Buffer(xx&, yy&) = CHR$(ABS(Col& \ 1024) MOD 255)ã Col& = Col& + ColDelta&ã NEXTã END IFã NEXTãCASE 3ã FOR yy& = Upper TO Lower - 1ã XLen = Fill(yy&).x2 - Fill(yy&).x1ã IF XLen > 0 THENã ã IF Fill(yy&).x1 + XLen > 319 THEN XLen = 319 - Fill(yy&).x1ã ã IF Fill(yy&).x1 < 0 THENã XLen = XLen + Fill(yy&).x1ã Fill(yy&).x1 = 0ã END IFã IF Fill(yy&).x1 < 319 AND XLen > 0 THEN Fillchar VARSEG(Buffer(Fill(yy&).x1, yy&)), VARPTR(Buffer(Fill(yy&).x1, yy&)), (Pnt(Poly(Num).P1).Shade + Pnt(Poly(Num).P2).Shade + Pnt(Poly(Num).P3).Shade) \ 3 + Poly(Num).Col, XLen + 1ã END IFã NEXTãCASE 4ã IF Anim = False THENã FOR yy& = Upper TO Lower - 1ã XLen = Fill(yy&).x2 - Fill(yy&).x1ã IF XLen > 0 THENã TxDelta& = (Fill(yy&).Tx2 - Fill(yy&).Tx) / XLen * 1024ã TyDelta& = (Fill(yy&).Ty2 - Fill(yy&).Ty) / XLen * 1024ã Tx& = CLNG(Fill(yy&).Tx) * 1024ã Ty& = CLNG(Fill(yy&).Ty) * 1024ãã ColDelta& = (Fill(yy&).Col2 - Fill(yy&).Col1) / XLen * 1024ã Col& = CLNG(Fill(yy&).Col1) * 1024ãã IF Fill(yy&).x2 > 319 THEN Fill(yy&).x2 = 319ã IF Fill(yy&).x1 + XLen > 319 THEN XLen = 319 - Fill(yy&).x1ã ã IF Fill(yy&).x1 < 0 THENã XLen = XLen + Fill(yy&).x1ã Col& = Col& + ColDelta& * -Fill(yy&).x1ã Tx& = Tx& + TxDelta& * -Fill(yy&).x1ã Ty& = Ty& + TyDelta& * -Fill(yy&).x1ã Fill(yy&).x1 = 0ã END IFãã FOR xx& = Fill(yy&).x1 TO Fill(yy&).x1 + XLenã XPos& = Tx& \ 1024ã YPos& = Ty& \ 1024ã Buffer(xx&, yy&) = CHR$((Txt(XPos&, YPos&) + ((Col& \ 1024))) MOD 255)ã Tx& = Tx& + TxDelta&ã Ty& = Ty& + TyDelta&ã Col& = Col& + ColDelta&ã NEXTã END IFã NEXTã ELSEã FOR yy& = Upper TO Lower - 1ã XLen = Fill(yy&).x2 - Fill(yy&).x1ã IF XLen > 0 THENã TxDelta& = (Fill(yy&).Tx2 - Fill(yy&).Tx) / XLen * 1024ã TyDelta& = (Fill(yy&).Ty2 - Fill(yy&).Ty) / XLen * 1024ã Tx& = CLNG(Fill(yy&).Tx) * 1024ã Ty& = CLNG(Fill(yy&).Ty) * 1024ãã IF Fill(yy&).x2 > 319 THEN Fill(yy&).x2 = 319ã IF Fill(yy&).x1 + XLen > 319 THEN XLen = 319 - Fill(yy&).x1ã ã IF Fill(yy&).x1 < 0 THENã XLen = XLen + Fill(yy&).x1ã Col& = Col& + ColDelta& * -Fill(yy&).x1ã Tx& = Tx& + TxDelta& * -Fill(yy&).x1ã Ty& = Ty& + TyDelta& * -Fill(yy&).x1ã Fill(yy&).x1 = 0ã END IFãã FOR xx& = Fill(yy&).x1 TO Fill(yy&).x2ã XPos& = Tx& \ 1024ã YPos& = Ty& \ 1024ã Buffer(xx&, yy&) = CHR$(ABS((Txt(XPos&, YPos&)) + Ambient) MOD 255)ã Tx& = Tx& + TxDelta&ã Ty& = Ty& + TyDelta&ã NEXTã END IFã NEXTã END IFãEND SELECTããEND SUBããSUB Fillchar (segment%, offset%, value%, bytes%)ããDEF SEG = VARSEG(ASMFillChar$)ã CALL absolute(BYVAL segment%, BYVAL offset%, BYVAL value%, BYVAL bytes%, SADD(ASMFillChar$))ãDEF SEGããEND SUBããSUB HandleKeysãã DEF SEG = 0: k = INP(&H60)ã WHILE LEN(INKEY$): WEND 'Empty keyboard bufferã SELECT CASE kã CASE &H3B 'F1ã ShadingModel = 1ã CASE &H3C 'F2ã ShadingModel = 2ã CASE &H3D 'F3ã ShadingModel = 3ã CASE &H3E 'F4ã ShadingModel = 4ã CASE &H3F 'F5ã Ambient = Ambient - 1ã IF Ambient < 0 THEN Ambient = 0ã CASE &H40 'F6ã Ambient = Ambient + 1ã IF Ambient > 63 THEN Ambient = 63ã CASE &H41 'F7ã Switch PDisp, True, Falseã CASE &H42 'F8ã Switch FDisp, True, Falseã CASE &H43 'F9ã Switch Anim, True, Falseã IF Anim = True THENã AnimType = 1ã MakeFirePalette 63ã FOR x = 0 TO TSizeã FOR y = 0 TO TSizeã Txt(x, y) = 0ã NEXTã NEXTã FOR i = 64 TO 255ã OUT &H3C8, iã OUT &H3C9, 63ã OUT &H3C9, 63ã OUT &H3C9, 63ã NEXTã ELSEã MakePaletteã MakeTextureã AnimType = 0ã END IFã CASE &H44 'F10ã Switch Anim, True, Falseã IF Anim = True THENã AnimType = 2ã FOR i = 1 TO 63ã OUT &H3C8, iã OUT &H3C9, 0ã OUT &H3C9, 0ã OUT &H3C9, iã NEXTã FOR i = 64 TO 128ã OUT &H3C8, iã OUT &H3C9, iã OUT &H3C9, iã OUT &H3C9, 63ã NEXTãã FOR i = 128 TO 255ã OUT &H3C8, iã OUT &H3C9, 63ã OUT &H3C9, 63ã OUT &H3C9, 63ã NEXTã FOR y = 0 TO TSizeã FOR x = 0 TO TSizeã Txt(x, y) = RND * 64ã NEXTã NEXTã ELSEã MakePaletteã MakeTextureã AnimType = 0ã END IFã CASE &H57 'F11ã Switch Anim, True, Falseã IF Anim = True THENã AnimType = 3ãã FOR i = 1 TO 63ã OUT &H3C8, iã OUT &H3C9, 0ã OUT &H3C9, iã OUT &H3C9, 0ã NEXTã FOR i = 64 TO 128ã OUT &H3C8, iã OUT &H3C9, iã OUT &H3C9, 63ã OUT &H3C9, iã NEXTãã FOR i = 128 TO 255ã OUT &H3C8, iã OUT &H3C9, 63ã OUT &H3C9, 63ã OUT &H3C9, 63ã NEXTã ELSEã MakePaletteã MakeTextureã AnimType = 0ã END IFãã CASE &H58 'F12ã Switch Anim, True, Falseã IF Anim = True THENã AnimType = 4ãã WaveSide1 = 1ã WaveSide2 = 3ã WaveSide3 = 2ã R1 = 1ã R2 = 10ã R3 = 20ãã FOR i = 1 TO 63ã OUT &H3C8, iã OUT &H3C9, iã OUT &H3C9, 0ã OUT &H3C9, 0ã NEXTã FOR i = 64 TO 128ã OUT &H3C8, iã OUT &H3C9, 63ã OUT &H3C9, iã OUT &H3C9, iã NEXTãã FOR i = 128 TO 255ã OUT &H3C8, iã OUT &H3C9, 63ã OUT &H3C9, 63ã OUT &H3C9, 63ã NEXTã ELSEã MakePaletteã MakeTextureã AnimType = 0ã END IFã CASE &H52 '0ã Zoom = 700ã Xr = 400ã Yr = 315ã Zr = 0ã Mx = 0ã My = 0ã CASE &H4C '5ã Vx = 0ã Vy = 0ã Vz = 0ã CASE &H1E 'Aã Zoom = Zoom - 10ã IF Zoom < 0 THEN Zoom = 0ã CASE &H50 '2ã Vx = Vx + 1ã CASE &H48 '8ã Vx = Vx - 1ã CASE &H4B '4ã Vy = Vy + 1ã CASE &H4D '6ã Vy = Vy - 1ã CASE &H4A '+ã Vz = Vz + 1ã CASE &H4E '-ã Vz = Vz - 1ã CASE &H2C 'Zã Zoom = Zoom + 10ã CASE &H17 'Iã My = My + 5ã CASE &H25 'Kã My = My - 5ã CASE &H24 'Jã Mx = Mx + 5ã CASE &H26 'Lã Mx = Mx - 5ã CASE 1 'ESCã TheEndã END SELECTããEND SUBããSUB Hiiriajuri (ax%, bx%, cx%, dx%)ã DEF SEG = VARSEG(hiiri$) 'Segmentti talteenã hiiri% = SADD(hiiri$) 'Offsetti talteenã CALL absolute(ax%, bx%, cx%, dx%, hiiri%) 'KutsuãEND SUBããSUB HiiriLue (vasen%, oikea%, keski%, x%, y%)ã ax% = 3 'Funktio 3ã Hiiriajuri ax%, bx%, cx%, dx% 'Kutsutaan hiiriajuriaã vasen% = ((bx% AND 1) <> 0) 'Luetaan nappien asennotã oikea% = ((bx% AND 2) <> 0) 'bx:st„ã keski% = ((bx% AND 4) <> 0)ã x% = cx% 'ja hiiren koordinaatitã y% = dx% 'cx:st„ ja dx:st„ãEND SUBããFUNCTION Hiiritarkista%ã ax% = 0 'Funktio 0ã Hiiriajuri ax%, bx%, 0, 0 'Kutsutaan hiiriajuriaã IF (ax% = 0) THEN 'Onko ajuri k„yt”ss„?ã Hiiritarkista% = 0 'jos ei, palautetaan 0ã ELSEIF (bx% = 3) THEN 'Kolminappinen hiiri?ã Hiiritarkista% = 3ã ELSEIF (bx% = 0) THEN 'Ep„standardi hiiri?ã Hiiritarkista% = 1ã ELSEã Hiiritarkista% = 2 'Tavallinen kaksinappinen hiiri?ã END IFãEND FUNCTIONããDEFSNG A-ZãSUB InterPolate (x, y, x2, y2)ãP1 = POINT(x, y)ãP2 = POINT(x2, y)ãP3 = POINT(x, y2)ãP4 = POINT(x2, y2)ããYDelta1& = (P3 - P1) / (y2 - y) * 1024ãYDelta2& = (P4 - P2) / (y2 - y) * 1024ããCol1& = P1 * 1024ãCol2& = P3 * 1024ããFOR yy& = y TO y2ã PSET (x, yy&), Col1& \ 1024ã PSET (x2, yy&), Col2& \ 1024ã Col1& = Col1& + YDelta1&ã Col2& = Col2& + YDelta2&ãNEXTããXLen = x2 - xãFOR yy& = y TO y2ã P1 = POINT(x, yy&)ã P2 = POINT(x2, yy&)ãã XDelta& = (P2 - P1) / XLen * 1024ã Col& = P1 * 1024ãã FOR xx& = x TO x2ã PSET (xx&, yy&), Col& \ 1024ã Col& = Col& + XDelta&ã NEXTãNEXTããEND SUBããDEFINT A-ZãSUB LoadObject (File$)ãOPEN File$ FOR INPUT AS #1ãLINE INPUT #1, Temp$ãINPUT #1, MaxPointsãINPUT #1, MaxPolygonsããLINE INPUT #1, Temp$ãLINE INPUT #1, Temp$ãFOR i = 1 TO MaxPointsã INPUT #1, Pnt(i).x3, Pnt(i).y3, Pnt(i).z3ãNEXTããLINE INPUT #1, Temp$ãLINE INPUT #1, Temp$ãFOR i = 1 TO MaxPolygonsã INPUT #1, Poly(i).P1, Poly(i).P2, Poly(i).P3, Poly(i).ColãNEXTãCLOSE #1ããEND SUBããSUB MakeFirePalette (MaxColors) 'Asettaa paletinããFOR x% = 1 TO MaxColorsã OUT &H3C8, x%ã OUT &H3C9, 63ã OUT &H3C9, 63ã OUT &H3C9, 63ãNEXTãããFOR x% = 0 TO (MaxColors \ 4) - 1ã OUT &H3C8, x%ã OUT &H3C9, x% * (63 / (MaxColors \ 4))ã OUT &H3C9, 0ã OUT &H3C9, 0ãã OUT &H3C8, x% + (MaxColors \ 4)ã OUT &H3C9, 63ã OUT &H3C9, x% * (63 / (MaxColors \ 4))ã OUT &H3C9, 0ãã OUT &H3C8, x% + ((MaxColors \ 4) * 2)ã OUT &H3C9, 63ã OUT &H3C9, 63ã OUT &H3C9, x% * (63 / (MaxColors \ 4))ãNEXT x%ãããEND SUBããSUB MakeLightãFOR x& = 0 TO LSizeã FOR y& = 0 TO LSizeã Xd! = (x& - (LSize \ 2)) / (LSize \ 2)ã Yd! = (y& - (LSize \ 2)) / (LSize \ 2)ãã Light! = (1 - SQR(Xd! ^ 2 + Yd! ^ 2))ãã IF Light! < 0 THEN Light! = 0ã l(x&, y&) = CINT(Light! * (LSize * 4))ãã NEXTãNEXTãEND SUBããSUB MakePaletteããFOR i = 0 TO 63ã OUT &H3C8, iã OUT &H3C9, iã OUT &H3C9, iã OUT &H3C9, 0ãNEXTããFOR i = 64 TO 128ã OUT &H3C8, iã OUT &H3C9, iã OUT &H3C9, 0ã OUT &H3C9, 0ãNEXTããFOR i = 129 TO 192ã OUT &H3C8, iã OUT &H3C9, 0ã OUT &H3C9, iã OUT &H3C9, 0ãNEXTããFOR i = 193 TO 255ã OUT &H3C8, iã OUT &H3C9, 0ã OUT &H3C9, 0ã OUT &H3C9, iãNEXTãããEND SUBããSUB MakeTextureããFOR y = 0 TO TSizeã FOR x = 0 TO TSizeã Txt(x, y) = RND * 32ã NEXTãNEXTããFOR Iter = 0 TO 0ã FOR y = 0 TO TSizeã FOR x = 0 TO TSizeã Txt(x, y) = (Txt(x - 1, y - 1) + Txt(x, y - 1) + Txt(x + 1, y - 1) + Txt(x + 1, y) + Txt(x + 1, y + 1) + Txt(x, y + 1) + Txt(x - 1, y + 1) + Txt(x - 1, y)) \ 8ã NEXTã NEXTãNEXTããEND SUBããSUB Memcopy (fromseg%, fromoffset%, toseg%, tooffset%, bytes%)ããDEF SEG = VARSEG(ASMMemCopy$)ã CALL absolute(BYVAL fromseg%, BYVAL fromoffset%, BYVAL toseg%, BYVAL tooffset%, BYVAL bytes%, SADD(ASMMemCopy$))ãDEF SEGããEND SUBããSUB ReadObject (File$)ãIF File$ = "" THENãEND IFãEND SUBããSUB RotatePoint (xo, yo, zo, Rx, Ry, Rz, Nx, Ny, Nz)ã'----------------------------------------------------------------------------ã' Rotate a point in 3D spaceã'----------------------------------------------------------------------------ããs1& = Sine(Rx MOD 360)ãs2& = Sine(Ry MOD 360)ãs3& = Sine(Rz MOD 360)ããc1& = Cosine(Rx MOD 360)ãc2& = Cosine(Ry MOD 360)ãc3& = Cosine(Rz MOD 360)ããx1 = (xo * c1& - zo * s1&) \ 1024ãz1 = (xo * s1& + zo * c1&) \ 1024ããz3 = (z1 * c3& - yo * s3&) \ 1024 + ozãy2 = (z1 * s3& + yo * c3&) \ 1024ããx2 = (x1 * c2& + y2 * s2&) \ 1024 + oxãy3 = (y2 * c2& - x1 * s2&) \ 1024 + oyããNx = x2ãNy = y3ãNz = z3ããEND SUBããSUB RotatePointsã FOR i& = 1 TO MaxPointsã RotatePoint Pnt(i&).x3, Pnt(i&).y3, Pnt(i&).z3, Xr, Yr, Zr, x3, y3, z3ã t3d2d x3, y3, z3, SX, SYã Pnt(i&).Nx = x3ã Pnt(i&).Ny = y3ã Pnt(i&).Nz = z3ã Pnt(i&).x = SXã Pnt(i&).y = SYã Pnt(i&).Shade = z3 / 6 + Ambientã IF ShadingModel = 4 THENã IF Pnt(i&).Shade > 32 THEN Pnt(i&).Shade = 32ã ELSEã IF Pnt(i&).Shade > 63 THEN Pnt(i&).Shade = 63ã END IFã IF Pnt(i&).Shade < 1 THEN Pnt(i&).Shade = 1ã NEXTãEND SUBããSUB SaveObject (File$)ãOPEN File$ FOR OUTPUT AS #1ãPRINT #1, "--------[ 3D Engine (C) Sami Ky”stil„ - Object Data file ]--------"ãPRINT #1, MaxPointsãPRINT #1, MaxPolygonsãPRINT #1, "---------------------------------------------[ Start Point data ]-"ãPRINT #1, "X", "Y", "Z"ãFOR i = 1 TO MaxPointsã PRINT #1, Pnt(i).x3, Pnt(i).y3, Pnt(i).z3ãNEXTãPRINT #1, "-------------------------------------------[ Start Polygon data ]-"ãPRINT #1, "Point 1", "Point 2", "Point 3", "Color"ãFOR i = 1 TO MaxPolygonsã PRINT #1, Poly(i).P1, Poly(i).P2, Poly(i).P3, Poly(i).ColãNEXTãCLOSE #1ãEND SUBããDEFLNG A-ZãSUB Separator (Col, Char$)ã'----------------------------------------------------------------------------ã' Prints a separator lineã'----------------------------------------------------------------------------ãããSELECT CASE ColãCASE IS = 1ã Col1 = 1ã Col2 = 9ã Col3 = 3ã Col4 = 11ã Col5 = 15ãCASE IS = 2ã Col1 = 2ã Col2 = 10ã Col3 = 14ã Col4 = 15ã Col5 = 15ãCASE IS = 3ã Col1 = 8ã Col2 = 7ã Col3 = 15ã Col4 = 15ã Col5 = 15ãEND SELECTããããCOLOR Col1ãPRINT STRING$(5, Char$);ãCOLOR Col2ãPRINT STRING$(5, Char$);ãCOLOR Col3ãPRINT STRING$(5, Char$);ãCOLOR Col4ãPRINT STRING$(5, Char$);ãCOLOR Col5ãPRINT STRING$(40, Char$);ãCOLOR Col4ãPRINT STRING$(5, Char$);ãCOLOR Col3ãPRINT STRING$(5, Char$);ãCOLOR Col2ãPRINT STRING$(5, Char$);ãCOLOR Col1ãPRINT STRING$(5, Char$)ãããEND SUBããDEFINT A-ZãFUNCTION ShadeName$ (Model)ãSELECT CASE ModelãCASE 1: ShadeName$ = "Wireframe"ãCASE 2: ShadeName$ = "Z-Gouraud"ãCASE 3: ShadeName$ = "Z-Flat"ãCASE 4: ShadeName$ = "Textured"ãEND SELECTãEND FUNCTIONããSUB Switch (Var, Value1, Value2)ã'----------------------------------------------------------------------------ã' Switches valuesã'----------------------------------------------------------------------------ã'ã' Var - Variable to be changedã' Value1 - Value 1ã' Value2 - Value 2ã'ã'----------------------------------------------------------------------------ã'ã' if Var = Value1 then Value2 will be assigned to Varã'ã' if Var = Value2 then Value1 will be assigned to Varã'ã' This SUB is used with Checkboxes and Radiobuttonsã'ã'----------------------------------------------------------------------------ãããIF Var = Value1 THEN Var = Value2: EXIT SUBãIF Var = Value2 THEN Var = Value1ããEND SUBããSUB t3d2d (x, y, z, SX, SY)ã'----------------------------------------------------------------------------ã' Transforms 3D coordinates into 2D screen coordinatesã'----------------------------------------------------------------------------ãããIF z - Zoom <> 0 THEN SY = CLNG(y + My) * 100 \ INT(z - Zoom)ãIF z - Zoom <> 0 THEN SX = CLNG(x + Mx) * 100 \ INT(z - Zoom)ããEND SUBããSUB TheEndããSCREEN 0: CLSãWIDTH 80, 25ãCOLOR 15, 4ãLOCATE 1, 1ãPRINT STRING$(80, " ")ãLOCATE 1, 1ãPRINT " 3D Polygon Engine v2.0 by Sami Ky”stil„ 1997"ãCOLOR 3, 0ãPRINTãPRINT "Average FPS:", , , FPS&; "fps"ãPRINT "Ending position (XYZ)", , Xr; Yr; ZrãPRINT "Shading model:", , " "; ShadeName$(ShadingModel)ãPRINT "Ambient lighting level:", , AmbientãSYSTEMãããEND SUBãKa-Lok Fung BMP PALETTE STRIPPER kalok@vcn.bc.ca 01-03-98 (14:37) QB, QBasic, PDS 215 5990 BMPPAL.BAS 'BMP Palette Stripperã'Programmed by Jason Downey ã'Public Domain.ã'Various Portions Leeched by Publicly Avaible BMP Loading Source Codeãã'Requirements : VGA Monitor and Graphics Cardã'Purpose : Loads a .BMP and saves its palette to disk.ã'Instructions : 1) To create palette file, run programã' 2) To load palette file, copy LoadPal subroutine into yourã' programã'Comments : Code such be self explanatory. As with most public domainã' programs, author asssumes no liability for the use of this ã' program! Use it any way you want.ãã'DeclarationsãDECLARE SUB Delay (Seconds!)ãDECLARE SUB LoadPal (FileName$)ãDECLARE SUB WritePal (FileName$)ãã'Introduction StuffãPRINT "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"ãPRINT "BMP Palette Stripper"ãPRINT "Version 1.0"ãPRINT "Programmed by Jason Downey"ãPRINT "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"ãPRINTãã'Input BMP FileãPRINT "þ Enter .BMP File: ";ãLINE INPUT ; "", FileName$ãFileName$ = UCASE$(RTRIM$(LTRIM$(FileName$)))ãIF FileName$ = "" THENã PRINT "Cancelled..."ã SYSTEMãEND IFãIF RIGHT$(FileName$, 4) <> ".BMP" THEN FileName$ = FileName$ + ".BMP"ãPRINTãã'Get InformationãPRINT "þ Retrieving Information...";ãOPEN FileName$ FOR BINARY AS #1ãheader$ = SPACE$(14)ãsizing$ = SPACE$(4)ãGET #1, 1, header$ãGET #1, 15, sizing$ãbmpinfosize = CVI(sizing$)ãã'bmpinfosize - Is the size of the information header for the bitmap.ã' Different bitmap versions have variations in filetypes.ã' 40 is a standard windows 3.1 bitmap.ã' 12 is for OS/2 bitmapsããã'Reads in the appropriate headers and colour tables.ã' nbits is the number of bits per pixel - i.e. number of coloursã' 1 bit = 2 colours, 4 bits = 16 colours, 8 bits = 256 colours, etc.ã' the 24 bit mode does not have a palette, its colours are expressed asã' image dataãIF bmpinfosize = 12 THENã infoheader$ = SPACE$(12)ã GET #1, 15, infoheader$ã nbits = CVI(MID$(infoheader$, 15, 4))ã IF nbits = 1 THENã palet$ = SPACE$(6)ã GET #1, bmpinfosize + 15, palet$ã ELSEIF nbits = 4 THENã palet$ = SPACE$(48)ã GET #1, bmpinfosize + 15, palet$ã ELSEIF nbits = 8 THENã palet$ = SPACE$(768)ã GET #1, bmpinfosize + 15, palet$ã END IFãELSEIF bmpinfosize = 40 THENã infoheader$ = SPACE$(40)ã GET #1, 15, infoheader$ã nbits = CVI(MID$(infoheader$, 15, 4))ã IF nbits = 1 THENã palet$ = SPACE$(8)ã GET #1, bmpinfosize + 15, palet$ã ELSEIF nbits = 4 THENã palet$ = SPACE$(64)ã GET #1, bmpinfosize + 15, palet$ã ELSEIF nbits = 8 THENã palet$ = SPACE$(1024)ã GET #1, bmpinfosize + 15, palet$ã END IFãEND IFãIF LOF(1) = 0 THENã PRINT "File Not Found."ã PRINT "þ Aborting..."ã CLOSE #1ã KILL FileName$ã SYSTEMãEND IFãCLOSE #1ãDelay .3ãPRINT "Done."ã ã'Check for BMP FileãPRINT "þ Checking for BMP File Declaration...";ãft$ = MID$(header$, 1, 2)ãIF ft$ <> "BM" THENã PRINT "Failed."ã PRINT "þ Aborting..."ã SYSTEMãEND IFãDelay .3ãPRINT "Passed."ãã'Determine Correct ScreenãPRINT "þ Changing to appropriate Screen Mode...";ãIF nbits = 1 THENã SCREEN 11ãELSEIF nbits = 4 THENã SCREEN 12ãELSEIF nbits = 8 OR nbits = 24 THENã SCREEN 13ãEND IFãã'Determine PaletteãPRINT "þ Getting Palette...";ãIF bmpinfosize = 40 THEN ngroups = 4ãIF bmpinfosize = 12 THEN ngroups = 3ãIF nbits = 24 THENã IF ngroups = 3 THENã FOR c = 0 TO 63ã d = c * 4ã palet$ = palet$ + CHR$(d) + CHR$(d) + CHR$(d)ã palet$ = palet$ + CHR$(d) + CHR$(d) + CHR$(d + 1)ã palet$ = palet$ + CHR$(d) + CHR$(d + 1) + CHR$(d)ã palet$ = palet$ + CHR$(d + 1) + CHR$(d) + CHR$(d)ã NEXT cã ELSEIF ngroups = 4 THENã FOR c = 0 TO 63ã d = c * 4ã palet$ = palet$ + CHR$(d) + CHR$(d) + CHR$(d) + CHR$(0)ã palet$ = palet$ + CHR$(d) + CHR$(d) + CHR$(d + 1) + CHR$(0)ã palet$ = palet$ + CHR$(d) + CHR$(d + 1) + CHR$(d) + CHR$(0)ã palet$ = palet$ + CHR$(d + 1) + CHR$(d) + CHR$(d) + CHR$(0)ã NEXT cã END IFãEND IFãPRINT "Done."ãã'Load PaletteãPRINT "þ Placing Palette...";ãFOR x = 1 TO LEN(palet$) STEP ngroupsã zb# = INT((ASC(MID$(palet$, x, 1))) / 4)ã zg# = INT((ASC(MID$(palet$, x + 1, 1))) / 4)ã zr# = INT((ASC(MID$(palet$, x + 2, 1))) / 4)ã zc# = zb# * 65536# + zg# * 256# + zr#ã cres = ASC(MID$(palet$, x + 3, 1))ã PALETTE ((x - 1) / ngroups), zc#ãNEXT xãPRINT "Done."ããã'Save Palette to DiskãPRINT "þ Saving Palette....";ãPosition = INSTR(FileName$, ".")ãSavePalName$ = LEFT$(FileName$, Position - 1)ãSavePalName$ = SavePalName$ + ".PAL"ãWritePal (SavePalName$)ãã'Clean up codeãWIDTH 80: SCREEN 9: SCREEN 0ãPRINT "þ Palette saved as: "; SavePalName$ãPRINT "þ Operation Complete."ãPLAY "T120L16MLO3BF#"ããSUB Delay (Seconds)ã JINX = TIMERã XDELAY = JINX + Secondsã WHILE NOT (TIMER > XDELAY): WENDãEND SUBããSUB LoadPal (FileName$)ãDEFINT A-Zã'Routine "borrowed" from M \ K Productionsã'All Hats Off to Themã'LoadPal: Loads palette fileããDIM Byte AS STRING * 1ããOPEN FileName$ FOR BINARY AS #1ã FOR Att% = 0 TO 255ã OUT &H3C8, Att%ã FOR RedGreenAndBlue% = 1 TO 3ã GET #1, , Byteã Valew% = ASC(Byte)ã OUT &H3C9, Valew%ã NEXT RedGreenAndBlue%ã NEXT Att%ãCLOSE #1ããEND SUBããSUB WritePal (FileName$)ã'Routine "borrowed" from M \ K Productionsã'All Hats Off to Themã'WritePal: Creates the palette file.ããDIM Byte AS STRING * 1ããOPEN FileName$ FOR BINARY AS #1ãFOR Att% = 0 TO 255ã OUT &H3C7, Att%ã FOR RedGreenAndBlue% = 1 TO 3ã Buffer% = INP(&H3C9)ã Byte = CHR$(Buffer%)ã PUT #1, , Byteã NEXT RedGreenAndBlue%ãNEXT Att%ãCLOSE #1ãEND SUBãDavey W. Taylor 3D IMAGE WAVE PATTERN audio.squad@mailbox.swipnet.se 01-05-98 (12:24) QB, QBasic, PDS 214 14067 IMGW.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"IMGWAVE.ZIP",4^6:Z&=10279:?STRING$(50,177);ãU"%up()%9%%%#-%TYmII?FEc[ap=udC-ãU"2$AMM0aBK%yS\oO1b%M9,m7_+*'kq\_545==hUIQX\%g_3&UDSis16wYf03-1&uãU"[#*>#F?EXpUx9C.)9TE0H0Paj-\/C&oO&:(j_sg.ImYGQ=dPQ.amfh994*UkX[HãU"D#E9EtJ#mvoSq9KdL5Z_yJAMY$SC:=2II?PY%Iyzg033Qf#738,^,n4kZk9hV%eãU"%gF#mIEhGS+Is1Opu;,9dE;CL$MM%gzR9#)m^Eq*s$r.F?Vy(RSG5<#PNgIE)4dãU"R5RK2R.M(TJ/)Ya^u).BJ)7]R'#0cdC9SE]T\TOZ.xIeI,t.I9AVm'1ani,JLKXãU")aCcq\iBpfExm,x387mT93cDnu&'gt5t%%'NbD'r,ãU"9hC.kqSbipR.\gW<0u:I&&%;8D*oXb)B98G-.QKDttc]NaDHdC.c2gpbFCm+XT0ãU"ype*bs%m(%KZCt>2'\V^TW1D,^8>kd#*\gFG^[aBh*9KtO\Fop^u(bosaVNFLMMãU"hMMD'b#IT4EjP-V?d+>4bU<6BDng_D0cI5:EK^n'YcuLvUtn:[babD?7t2D^-KP6dMMOpdS*4.RGYEeFNpO0ãU"50Yt\v_Y[-B-v_N0oW;#w7d[qhoGdw3m2s$ut2(8w;yGgv_C^.v?8mKpPr[?U3*ãU"1']*vP(,>sjgd;?/8]l56Jp,YwvQrx+mhlW6*mKpP4G3_h6+)AtfQ'w'ia?JNnyãU"Q'm3&_&fKrc4*KtJZdTTT#f?rJWcMzUcU_E=uI****HxlK#4h0]6d[vnJ3X#PjEãU"Q]rhhq'l4mrc;\rk,b.V0h)+:Z5^7<+ãU"]QaY)\<#MqcbH=3/\Ny,[y1c8k6HW.?sEJXtM]A1e2,hxjcG#;)EI^RX5]>ZeAXixTtvBKN9QBqJ;NGãU"xs,TCW[q>HQ-^DsI+sj6A2GA_c3&X3]06-'&FZV8&:u%q/q5GU=(ojãU"&t?i8(0Zhq*=5-j?:k2V7)+ir4SZA>fxD1\-^UKur7y6wHM3<*gT^LPZTnbuqyOãU"S=yunNuJU5rs*YjhbYJGhtf-sXvutgO+]2GUycH[Zsss)2wpnXNjr-irW?;2[=vãU"2SB>+Oc6W\W=/<<6mFMPsZ^krãU"JCMA;u'VJKLJw,LuP$1/kx,nWFcK/=3k?aHps.qT>D>tqF.Ac>LM5RO>fãU"K:.(-_'(Il_5]gWj7=RIc[==\P^*#?hSy;G.1hwUAUMkUUrWV[?e.[d84_)g]a%ãU"*>WGP7l49Hg59r(Rf0ID%alONtI)P[l_d$D#lA>g_?rlFQIJTYNo]%u*(#)9;FlãU"2r>T-)Zs\ExYZ:k+v?D,ypIre%H.%>uqC/g81NP$wZ:xsOqxRF3;)?6nN&TG-qtãU"ZaN'[*aiqcko:g0ZY,kj^pT?lHkx(n\3_n,zsz^_8m5NH>'%QN>H=HwãU"ptkn#*W/%-^uMLW1N&ppXg;AA-624,TZlPh*tXcSQtãU"xIy0e8lft,:vf0T14f2zAM9:;Kr$qW%?%HCF-JuoeZwjC-'n.E?(\:u=YbtãU"h=)hHY:hh>HWS$a^/?sf[ftp]Fm6f$m2xd8R[c's:>pg(:Qu/)*K<.ãU"9[C\m>#0;T.#5;euUPUIYDT8ãU"N%niVr$#'CitprmGU79[*k0DJ.Y:<^Yn&[*LZ.0p2)>ukTucU<.#\Ote:4V8C-LHL\6cNp&w6C>dHKpQdLXw9=]cA1J>ãU"XP018T1]K?*U_r6o;[>'oDafAJN$FUk*:h#[##>0nxasmrYiG7_:I.aM3S]E&DAãU"50A=uAhFx%DW0Mx.jd&:Ev]<=E)n0ZDMvS/9i.?6A,t]Yj2f#W21Jnxm0HqMHRbãU"Q'm_[,qd8]rvp,*/UF4'&vB,/tl*WNSavn9hC*[ER-xD\Uj(QGF<ãU"701g%#WFax>8$3+LM'WTN=%r*Z-kT9QB#2/ehqk'/o/zLSM=oeD?wwsBO']b6%hãU"y+CW+lvp'$Lg'<<0w>Q-B*kR6WgC:f4#6F4bbs6$pK>j)Vbgl%MIGbDcjOV$ãU"U;>QBRh3(Aq,#=B984L;8ceo$Zu,:9++mDY1:YOu-:\*D:)9v6^SlQSh>eR4*h&P[k=n*[XTe5dVIHãU"qL4,O7PgnNqb=xq7*nF-TfC74[Oda,hjr$G6lR.u4J9PZ%G(Kg^V4Cqd77oosQ7ãU"Q+G'2NVeK_Bm+c4=q5/xqV8]>\QoPfv=SwG[+UHss.X;Wp^ARib3SI]7evsyD?FãU"U>1gLqgjCFR#YGkGxLAmf3b'&^1X6MmMsa4h(#1yIOZ/?x[m^EN*'tQ>juUs.9WãU"[9gX05'A*R1/6uQa5mjn4$=vU3S3T5Rvi?7)00NYi'9u9e\w&RW=v'8P9[XW#[NãU"cT;AqRq>3i5j-,1hO<,=V_*p(a\l;-(oYd>ojN-9U7NC/6o;WtDãU"hH1)kdl23E;Wtp$>ylJ#%VcD(m]t2qr$lxHoav2e1\D>D$rlTeH_BK'E]A$]BHzãU"8:dDC[:j$T7-^ckB'j$<_0t:47Olp:[Fke^Oku8hEY_^L/Eo)VI-QTTt,fHFXJ3ãU")dp8A]L:R=uc2qUcR_?KHI:-m\n$SYDQ=*KUxC529o,(Z;J-#4s7*Mk*gj&s[^cãU"oSBX$rZxtf9PUm3E5^lwigB;JEC1y=Tr1f=+9cTC=DF0=\&Nn]]oYpZ<+\/Aa]:Y_JF^XHV[oIp_$\5EoG%G6uNVYjGho.SwjPKop^u2ãU"Z\jP,3$s>=U;rK?olx:Zi_v9r1lr-wT\rU#GI$>XJtTEC^$V.sKaCxãU",$4k(X6ieZ9mT]G8'\+n]-&ElvV4[,<4j8CuTgOZ'P5:]XHFoM4+VsNC&\'lYV-A^db&w21]6RV,NWHL='#=mãU"40=^Vv+=0gq:%KIS/NF3%ceK<[SMNE%Cqo9PQ)FNrhk?L4t>K]BE'Cv1oJ8CxW#ãU"-4?<2kAwjkhTCQ^6DH]uWeR=:$PE]C9s&l2q[nQ_dM)4jãU"<,nSIN%4DpGEJhH,PFmbCH[Hc++(-#89X(C=y0Pw\PFqAi\'colPKk/Ay\iQU]XãU"h++m$xwWUg3G^hLD\o)u=Er>z+M,_plB[gjFt9^/C4Lw%K''J4tP3ttmx,-I=eNãU"wG)g'JR.1te/QR1HccP0u9ZcOb2D/D//PL,Ph.u%EJUQ'T$$r,r620kJ*O%XMfzr#ihFpeHaV:coR[T-I#JM:N5LAãU"dkXsb1fpV?uoG>eSI8,4kFe17tR/;Ah0K'r=v\?+,)fh;)=/ebd6UuSdNxCdUy)ãU"fhV/xtN&Pd'u%p()9%%%%-1%JKIaIag(,#u*%%%%8%%%.%%(%&fy%jwSwUf&Nf-ãU"6/PZ^1Tl/K]Q))M))))tmx*IQ00lhVkJ1cIQK(XsRB+%qnllDDvVI,8,uPhPãU"nW#DvHM,NTmWdYDNp?9%ru^2aPhp.uh*rmBRhjMLKcpHrp=I/g]ZTeBpM.6Gz/IãU"0-DiO->>s4sn^8HCanovLs$K+4IKX630ZsLv<-$$%4#2LgETVG]/fT7U7m^TM]iãU"OliM_(ZC&(G:Mq,)jEFa^qFz.iZum'&*L\kh)-F_rMR68TI'3WKosU-pKTãU"WH*;jJ4&?TI6SSp?)OkOZZ5%t/pE9GS_lAs'b?/k-UKmo0.u>&;'lmgBQ#aEIb8ãU"5mYD/G),2T=8LQ7R7PcTqA;l7(-lqiT;g:C1U1>^PDV)5eHq6eK:yXH&6_Zr5aFãU"r)T>R9YYUIsB0#EQM13$aOQQYA0PJ1b5Ef1x$PKj(^22H9#OMK<=1-'u:/5'9fwãU"92Q.-qjjhf+EDa>da^#qsEqX/n2Y-B5rlq);JUo$*uc4Zh;)1vfi=v\Xjr88KvUãU"epPifo0nl.oXEZ903tnu,L>jhHFV\>q>eul2Ur&dPãU";ii6Z*D(b/xTwrc\e.e0_5q-y)jH6YUn)bWuNW/y_A*9cTC^\,y%n77EEaIxh>bãU"J]E>_LNvf[x\[j0*U)4fu+bdTWQ1,zEvKR-n+jEEzuEJPat\KKUc)4WQ(nH$.SAãU"TNI2zSiyce0dh8tSUK=lMxS=xHeLzOt9^g'EfeRtq)*,,a]rxJ>qOu&)KTP(T7VãU"b-Ctp_D(y#O[tAWk2(JV&kVgsFS7MxGu#rsJoTZ')-PcqCdOM0/u2hYE/K$xHT'G?+ãU"R77q:N^*rm)9f*+jnx*ekUjrKt%RsjT#)N/\,q(#lNwaRC.2>E\m3&jC4r:gG>9ãU"Q.%$k6K;Oh[ãU"CLsnuS\RldLt;YY;C7=tnJB>6aKH6WYg%[bT9a0bh]w/sRG.t8=/IG6tDCU+1wEãU"AT439]V.\)^(cC\kCR6$DSJc$rmL5IzXBQ=b=P?6#IOPW2(>#\p,8?4^?k$0$\RãU"x5iL1>9V'qkh\Qs/l?R.korXf)k;+-WAQSk,PhLY/*?CoQe%In(UxKJiJ'dd9rhãU"J/(pC8Q9$qo5nT,wp8e%k^OPTF:CHI2]L5d>qCnmJpDUspuX^v=YVJmqPBZ]Qre7EYB?u]+c^KmBxXBro$0fcsBVãU">nFSUcd;;?d4\=31xeJ2;,x4<20lbd1esp;$o3bxfUu6\#Z)\4[9x$O)dY5$HmnãU"l>Qngu4g%dkUG'V>ENNxlCIt]iNy:.S>g1ttZBvqeãU"?MEp%mQ$.fMQ=7;i#jz7x%)?k5T3ECz*#=>'LuU:;?)Yc7g?JoV#?PtG[d'U]=_ãU"[BV?0S+\7CU:%.\$,KV7d?eM^^.O$+k>Mh5:2F+G,:cIOJ6CE[&RZ7=RnãU"SMgtnm;q[MnKKdPC54h2x&DZ;280u\q=vS*w>up%()9%%%%-%)THIIlsdZF%:&%%%%,%%%-%%%%knqãU"f#Swf&EfbfZ&RU5k7d8>Q\Gne&N-E#',q.ZbtGiY:?Xx,[=;/NyuPVD+&Vc+)*XãU"[8Km3%Xp&T5v97nN\]cG+QHSBGK)NPD<[t8T/dZ37hV80=l&.&iO)A1E(A\O%2MãU"JO&)og(I/EH?hOU>&5[4I(C2KF*?aG.a-&.c1#'j*/Y-=j0f22KS;U[eV[:2l6vãU"AAB&4^+I/OOj5)mspsrd7I6$D(lwLA#_dHUãU"$a_]:V&Px,H*TLj]lhNY^1lluo01p1Hd1xrAjV(XoKV[%Yv8TqbLg)Xt]$nHsD$xoZxWS^u&vSSuH&vw%)up(%)9%%%%-%n&YII+leOfh%(ãU"%%^%-%%-#%%%&(f%jS#gfxlgz:>SRm9v]E=N]3(n27m&GQne3VC,XpI=9/M;vc^ãU"RS1=y<*(T)QqpJ6A;Cjx$/)Ii?E2$cW$G17$noT5X^#AJ?\)5Yi^#Whk*m78o>-ãU"'0:2q1yUQ+MM'lhyRI/x>aY1:ZtM,Gzx^D,Lxu%5bXa0H47Uljd3BfThme-LkqQãU"Eq1]7puB/mG\UEpxSYpXXrMstZH)2\%'JjAbzq6sZK0clrx*7Eo5ãU"Nab9JU)nAt)^6S)Dp]i#W(':Tf?cvYFq5#-9BA4'n?YjcG?:#KrS<<:1$/2VF-NãU"8W])i<3+*EUWw68+#*id&Nk#Ohrq#'BIriM\eAT\-=A6quk?W>abR%dkR+$ni^33L?:N8&ãU"?CCh$Y1,,[tg+YLv[('8niU]'OV3EpjTQ>htw5fqcy>?m7imD-64<6RtiJrc_:WãU"1<0*sWt'T$e(8\-CGx'PdEPW=+t_wOT>Q+P;HtsYMOG69VufVIyr2]g(jx6mqm>ãU";skaP*Ly\dd64TJ_T0l_a)tYO[r^;AZqMqF/PwEK#fbm)S_,dqVQvo-;5^ElOOJãU"JcpBWPPj0+UYvVWB(qmF9kX6E_>X\*^xGCEcX_E&8tEh(x&W'PxKvNVG520r?nvãU"hu$yDRyb.Y*t+wwM4l]gde(]DjQMs-*Wb#3;8sGJE/c?6We(BSnMJU'[E)j$D)$ãU"7x1mu4cNh-ikRI*Rq7nQHtu[hSQ<24c]qEye5To?:$(mS9,DuuYSJe+5.(QsABeãU"yy9YQgo&>cN*o3V(N[/p[4R?#$X]8V;&QJuVuME3'TL,lRn?1=%lTGo8[4[j-nmãU"t5StI:drF&DBO2<6i\7T>.On$QQr=nA7R(;-]j#m'x'up%()9%%%%-%)0JII?ljPO&\+%%'9-%%%+%%%%rjSwãU"Cf&rb(0Gyls:#b>5S^A$ql-(LA#_>IRBSLjYDV?D2,2s4SomdrBSMc*+C>X]=d0oLP.zg?gOaGkQEN:Ybi;w*f0+nfM-.9tIQ1F8+]HU/IP-7E^z*7osr[1IM_UwQ&sãU"0[.^zgnygf=ve;j7]Mg7efEYFbS[C,FJ5V[B?T*Z<9e>g[gG0ãU"+Y'mA)i69^U,j6_0b';57k+BGA=.Pb$%*Z)&_d[qed&AF=3M6cBg2*1(K&t3yYEãU"FW5cChbuk^^S_SF#KNP>(PlCmVv=-AvsZ_XiA1ir78nF<_d0Q>/Pk*_>nSNAD:oãU"yBTO2PozW'L,'KQu4bcI9Usr(+vsShwB:?Wog*ãU"P;7P>>g^X_4#8DFl]cC]AJcyfWk#p^]Pzmm_/q'8=6F6?L/9T0>wDjdrv_iP\hZãU"pS*MeFlGb5wU\.wz;%8o'4R2Kl4GWYvxR:-:6,kDncLFyS&^mUAu3^:HMi'Stg%ãU"BQ1MR8_7eUPL+92QV.?non't)ay&7T;HMXgwn%1Xu\t%fcFx0=L5jlUd<7:bGSY92Lif+\REpd1t^_H9^+QEQu*%7/ãU"PMjUFkK4HTkldI7?pF?h3>ppF?Y(5wlA$RYQ=P:&uOfV/ifPU?4_bLbMnLFIllRK.=L=guhfsVr,,VpXdlTnWãU"eMo$4bVNB%>/\U+C2ZfEAuB*-+04)rfSU=*Tmr2>HãU"'ptC-Xi,K6D4LH[9>D].&dY%FQV_-j\r_l9T#$[[MZ^eJ_%,8&AW&+*Jtf_p-sdãU"U,bMT$P15#a7FA[EUPt>VuR1tFE%?xJ?L(4nB=#=M3[/copEBx_=PQn(bT[;f6k%Q9]0luqugsh47MlRrxGb,8ex-Ig((;?LRQT,*XkT<%U9&)P$)cu'0f*OAQ2L-5S,a=/?*K2D(cgiqop(/D+;W?jcw)&.yPrãU"tqZ9^LVC5N.W=uR;?Oaf,WTrf*31TVm3ggI0ãU"gJed#swsmZX^h$FS?^b\8JBiKl=aGUmQw99#\'T9j()6\3;xV\1uE(4[ID7w.4zãU"ZO[EVfr&Wf&S/)LwSQD:\hD1Hg$4v2C(#Vf;o1YkAXgMhKal.GG)f$GWofBp-5?ãU"[]u[ieHo/JvLFZ9gTncHeKiP_^O,/Lw0uR;1M9U.^l1_gf-a#b$=;rM5J;UaatBãU"-5*&q,.88cx+6],C)%WfCQpX3-H\Aa37'8L?JMAniSA^r$M]8nxCnqMk]B%_vCDãU"/:T;$K*aDvojH*Wedz4;/[C[6*&gD1XnQo:XUP,JaG0c1QeE#gy/^iP#0TjDF#vãU"Xc5_1,_aH5,PIxBVMP>KX]+d&if%vP:=kaUWT6uJ6CxmHWPDwelZjyV+e4Qh#(hãU"5Ko0^ZPlf9DWg\\QVpKyUC##v4%M60j82Fk]u8*o'sS;[f#+G#1teHAmGA6tt*[ãU"XU,i:)EgaG*+)x07gpu]B\U>O>5CvGmvYS6n/Gpox%')ãU"cmiRvc4,-E74xV,+f/S-e8-?&EedXaCAdt6HClpV#p8W&22$&1yZxaViX;'Pe,2ãU"NM<:sj;R4H6Zg4Iap[HC[i\'+hdmg2%mHp\%?nFjMSJr(S-hP']lBqAGTw'XYdrãU"%:8gx2u;A(#f*Z6o4LQxP[CvVw.'X8E;Co3&wIy/,F:(a67+)%Ys)GO5i_J#v5+ãU"ix'u%p&'9%%9%%%%-%T\YII?lFw7J%5%%%%h%%-%%%%%%%%%%%%E%%%%%%%#%yjãU"'%ySwf&&up&%'9%9%%%%-1%JKIaIag(,#u*%%%%8%%%.%%%%%%%%%%%E[%%%p#5ãU"%%&%fyjw#Swf&%up&'%9%9%%%%-%)THIIlsdZF%:&%%%%,%%%-%%%%%%%%%%%E%ãEND SUBãSUB V2ãU"%%%?<%%%kn%qfSw(f&up%&'9%%9%%%#-%nY[II+e FINI THENã sta = 0ã RANDOMIZE TIMERã FINI = INT(RND * 100) + 100ã RANDOMIZE TIMERã CCX = INT(RND * 159) + 10ã RANDOMIZE TIMERã CY = INT(RND * 300) + 10ãEND IFãREM --------------------------------------------------------------------ãREMãREM Wait Loop! Change the 300 to another number to change speed.ãREMãFOR tim = 1 TO 300: NEXT timãREM --------------------------------------------------------------------ãPSET (y, x), 0ãPSET (yy, xx), 0ãPSET (yy2, xx2), 0ãPSET (yy3, xx3), 0ãPSET (y2, x2), 0ãPSET (yyy, xxx), 0ãPSET (yyy2, xxx2), 0ãPSET (yyy3, xxx3), 0ãPSET (y3, x3), 0ãPSET (yyyy, xxxx), 0ãPSET (yyyy2, xxxx2), 0ãPSET (yyyy3, xxxx3), 0ãPSET (y4, x4), 0ãPSET (yyyyy, xxxxx), 0ãPSET (yyyyy2, xxxxx2), 0ãPSET (yyyyy3, xxxxx3), 0ãPSET (y5, x5), 0ãPSET (y6, x6), 0ãPSET (y7, x7), 0ãPSET (y8, x8), 0ãPSET (y9, x9), 0ãPSET (y10, x10), 0ãPSET (y11, x11), 0ãPSET (y12, x12), 0ãx = x + Dãy = y + D24ãxx = xx + Dãyy = yy + D24ãxx2 = xx2 + Dãyy2 = yy2 + D24ãxx3 = xx3 + Dãyy3 = yy3 + D24ãx2 = x2 - D2ãy2 = y2 + D17ãxxx = xxx - D2ãyyy = yyy + D17ãxxx2 = xxx2 - D2ãyyy2 = yyy2 + D17ãxxx3 = xxx3 - D2ãyyy3 = yyy3 + D17ãx3 = x3 - D3ãy3 = y3 - D18ãxxxx = xxxx - D3ãyyyy = yyyy - D18ãxxxx2 = xxxx2 - D3ãyyyy2 = yyyy2 - D18ãxxxx3 = xxxx3 - D3ãyyyy3 = yyyy3 - D18ãx4 = x4 + D4ãy4 = y4 - D19ãxxxxx = xxxxx + D4ãyyyyy = yyyyy - D19ãxxxxx2 = xxxxx2 + D4ãyyyyy2 = yyyyy2 - D19ãxxxxx3 = xxxxx3 + D4ãyyyyy3 = yyyyy3 - D19ãx5 = x5 + D5ãy5 = y5 + D20ãx6 = x6 - D6ãy6 = y6 + D21ãx7 = x7 - D7ãy7 = y7 - D22ãx8 = x8 + D8ãy8 = y8 - D23ãx9 = x9 - D9ãy9 = y9 + D13ãx10 = x10 + D10ãy10 = y10 - D14ãx11 = x11 - D11ãy11 = y11 - D15ãx12 = x12 + D12ãy12 = y12 + D16ãPSET (y, x), CLãPSET (yy, xx), CLãPSET (yy2, xx2), CLãPSET (yy3, xx3), CLãPSET (y2, x2), CL2ãPSET (yyy, xxx), CL2ãPSET (yyy2, xxx2), CL2ãPSET (yyy3, xxx3), CL2ãPSET (y3, x3), CL3ãPSET (yyyy, xxxx), CL3ãPSET (yyyy2, xxxx2), CL3ãPSET (yyyy3, xxxx3), CL3ãPSET (y4, x4), CL4ãPSET (yyyyy, xxxxx), CL4ãPSET (yyyyy2, xxxxx2), CL4ãPSET (yyyyy3, xxxxx3), CL4ãPSET (y5, x5), CL5ãPSET (y6, x6), CL6ãPSET (y7, x7), CL7ãPSET (y8, x8), CL8ãPSET (y9, x9), CL9ãPSET (y10, x10), CL10ãPSET (y11, x11), CL11ãPSET (y12, x12), CL12ãIF x > 198 THENã PSET (y, x), 0ã PSET (yy, xx), 0ã PSET (yy2, xx2), 0ã PSET (yy3, xx3), 0ã x = CCXã y = CYã xx = x + 1ã yy = yã xx2 = xxã yy2 = y + 1ã xx3 = xã yy3 = y + 1ã GOSUB one:ã END IFããIF x6 > 198 THENã PSET (y6, x6), 0ã x6 = CCXã y6 = CYã GOSUB six:ã END IFããIF y > 320 THENã PSET (y, x), 0ã PSET (yy, xx), 0ã PSET (yy2, xx2), 0ã PSET (yy3, xx3), 0ã x = CCXã y = CYã xx = x + 1ã yy = yã xx2 = x + 1ã yy2 = y + 1ã xx3 = xã yy3 = y + 1ã GOSUB one:ã END IFãIF x2 > 198 THENã PSET (y2, x2), 0ã PSET (yyy, xxx), 0ã PSET (yyy2, xxx2), 0ã PSET (yyy3, xxx3), 0ã x2 = CCXã y2 = CYã xxx = x2 + 1ã yyy = y2ã xxx2 = x2 + 1ã yyy2 = y2 + 1ã xxx3 = x2ã yyy3 = y2 + 1ã GOSUB two:ã END IFãIF y2 > 320 THENã PSET (y2, x2), 0ã PSET (yyy, xxx), 0ã PSET (yyy2, xxx2), 0ã PSET (yyy3, xxx3), 0ã x2 = CCXã y2 = CYã xxx = x2 + 1ã yyy = y2ã xxx2 = x2 + 1ã yyy2 = y2 + 1ã xxx3 = x2ã yyy3 = y2 + 1ã GOSUB two:ã END IFãIF x3 > 198 THENã PSET (y3, x3), 0ã PSET (yyyy, xxxx), 0ã PSET (yyyy2, xxxx2), 0ã PSET (yyyy3, xxxx3), 0ã x3 = CCXã y3 = CYã xxxx = x3 + 1ã yyyy = y3ã xxxx2 = x3 + 1ã yyyy2 = y3 + 1ã xxxx3 = x3ã yyyy3 = y3 + 1ã GOSUB three:ã END IFãIF y3 > 320 THENã PSET (y3, x3), 0ã PSET (yyyy, xxxx), 0ã PSET (yyyy2, xxxx2), 0ã PSET (yyyy3, xxxx3), 0ã x3 = CCXã y3 = CYã xxxx = x3 + 1ã yyyy = y3ã xxxx2 = x3 + 1ã yyyy2 = y3 + 1ã xxxx3 = x3ã yyyy3 = y3 + 1ã GOSUB three:ã END IFãIF x4 > 198 THENã PSET (y4, x4), 0ã PSET (yyyyy, xxxxx), 0ã PSET (yyyyy2, xxxxx2), 0ã PSET (yyyyy3, xxxxx3), 0ã x4 = CCXã y4 = CYã xxxxx = x4 + 1ã yyyyy = y4ã xxxxx2 = x4 + 1ã yyyyy2 = y4 + 1ã xxxxx3 = x4ã yyyyy3 = y4 + 1ã GOSUB four:ã END IFãIF y4 > 320 THENã PSET (y4, x4), 0ã PSET (yyyyy, xxxxx), 0ã PSET (yyyyy2, xxxxx2), 0ã PSET (yyyyy3, xxxxx3), 0ã x4 = CCXã y4 = CYã xxxxx = x4 + 1ã yyyyy = y4ã xxxxx2 = x4 + 1ã yyyyy2 = y4 + 1ã xxxxx3 = x4ã yyyyy3 = y4 + 1ã GOSUB four:ã END IFãIF x5 > 198 THENã PSET (y5, x5), 0ã x5 = CCXã y5 = CYã GOSUB five:ã END IFãIF y5 > 320 THENã PSET (y5, x5), 0ã x5 = CCXã y5 = CYã GOSUB five:ã END IFãIF y6 > 320 THENã PSET (y6, x6), 0ã x6 = CCXã y6 = CYã GOSUB six:ã END IFãIF x7 > 198 THENã PSET (y7, x7), 0ã x7 = CCXã y7 = CYã GOSUB seven:ã END IFãIF y7 > 320 THENã PSET (y7, x7), 0ã x7 = CCXã y7 = CYã GOSUB seven:ã END IFãIF x8 > 198 THENã PSET (y8, x8), 0ã x8 = CCXã y8 = CYã GOSUB eight:ã END IFãIF y8 > 320 THENã PSET (y8, x8), 0ã x8 = CCXã y8 = CYã GOSUB eight:ã END IFãIF x9 > 198 THENã PSET (y9, x9), 0ã x9 = CCXã y9 = CYã GOSUB nine:ã END IFãIF y9 > 320 THENã PSET (y9, x9), 0ã x9 = CCXã y9 = CYã GOSUB nine:ã END IFãIF x10 > 198 THENã PSET (y10, x10), 0ã x10 = CCXã y10 = CYã GOSUB ten:ã END IFãIF y10 > 320 THENã PSET (y10, x10), 0ã x10 = CCXã y10 = CYã GOSUB ten:ã END IFãIF x11 > 198 THENã PSET (y11, x11), 0ã x11 = CCXã y11 = CYã GOSUB eleven:ã END IFãIF y11 > 320 THENã PSET (y11, x11), 0ã x11 = CCXã y11 = CYã GOSUB eleven:ã END IFãIF x12 > 198 THENã PSET (y12, x12), 0ã x12 = CCXã y12 = CYã GOSUB twelve:ã END IFãIF y12 > 320 THENã PSET (y12, x12), 0ã x12 = CCXã y12 = CYã GOSUB twelve:ã END IFãIF x < 5 THENã PSET (y, x), 0ã PSET (yy, xx), 0ã PSET (yy2, xx2), 0ã PSET (yy3, xx3), 0ã x = CCXã y = CYã xx = x + 1ã yy = yã xx2 = x + 1ã yy2 = y + 1ã xx3 = xã yy3 = y + 1ã GOSUB one:ã END IFãIF x6 < 5 THENã PSET (y6, x6), 0ã x6 = CCXã y6 = CYã GOSUB six:ã END IFãIF y < 5 THENã PSET (y, x), 0ã PSET (yy, xx), 0ã PSET (yy2, xx2), 0ã PSET (yy3, xx3), 0ã x = CCXã y = CYã xx = x + 1ã yy = yã xx2 = x + 1ã yy2 = y + 1ã xx3 = xã yy3 = y + 1ã GOSUB one:ã END IFãIF x2 < 5 THENã PSET (y2, x2), 0ã PSET (yyy, xxx), 0ã PSET (yyy2, xxx2), 0ã PSET (yyy3, xxx3), 0ã x2 = CCXã y2 = CYã xxx = x2 + 1ã yyy = y2ã xxx2 = x2 + 1ã yyy2 = y2 + 1ã xxx3 = x2ã yyy3 = y2 + 1ã GOSUB two:ã END IFãIF y2 < 5 THENã PSET (y2, x2), 0ã PSET (yyy, xxx), 0ã PSET (yyy2, xxx2), 0ã PSET (yyy3, xxx3), 0ã x2 = CCXã y2 = CYã xxx = x2 + 1ã yyy = y2ã xxx2 = x2 + 1ã yyy2 = y2 + 1ã xxx3 = x2ã yyy3 = y2 + 1ã GOSUB two:ã END IFãIF x3 < 5 THENã PSET (y3, x3), 0ã PSET (yyyy, xxxx), 0ã PSET (yyyy2, xxxx2), 0ã PSET (yyyy3, xxxx3), 0ã x3 = CCXã y3 = CYã xxxx = x3 + 1ã yyyy = y3ã xxxx2 = x3 + 1ã yyyy2 = y3 + 1ã xxxx3 = x3ã yyyy3 = y3 + 1ã GOSUB three:ã END IFãIF y3 < 5 THENã PSET (y3, x3), 0ã PSET (yyyy, xxxx), 0ã PSET (yyyy2, xxxx2), 0ã PSET (yyyy3, xxxx3), 0ã x3 = CCXã y3 = CYã xxxx = x3 + 1ã yyyy = y3ã xxxx2 = x3 + 1ã yyyy2 = y3 + 1ã xxxx3 = x3ã yyyy3 = y3 + 1ã GOSUB three:ã END IFãIF x4 < 5 THENã PSET (y4, x4), 0ã PSET (yyyyy, xxxxx), 0ã PSET (yyyyy2, xxxxx2), 0ã PSET (yyyyy3, xxxxx3), 0ã x4 = CCXã y4 = CYã xxxxx = x4 + 1ã yyyyy = y4ã xxxxx2 = x4 + 1ã yyyyy2 = y4 + 1ã xxxxx3 = x4ã yyyyy3 = y4 + 1ã GOSUB four:ã END IFãIF y4 < 5 THENã PSET (y4, x4), 0ã PSET (yyyyy, xxxxx), 0ã PSET (yyyyy2, xxxxx2), 0ã PSET (yyyyy3, xxxxx3), 0ã x4 = CCXã y4 = CYã xxxxx = x4 + 1ã yyyyy = y4ã xxxxx2 = x4 + 1ã yyyyy2 = y4 + 1ã xxxxx3 = x4ã yyyyy3 = y4 + 1ã GOSUB four:ã END IFãIF x5 < 5 THENã PSET (y5, x5), 0ã x5 = CCXã y5 = CYã GOSUB five:ã END IFãIF y5 < 5 THENã PSET (y5, x5), 0ã x5 = CCXã y5 = CYã GOSUB five:ã END IFãIF y6 < 5 THENã PSET (y6, x6), 0ã x6 = CCXã y6 = CYã GOSUB six:ã END IFãIF x7 < 5 THENã PSET (y7, x7), 0ã x7 = CCXã y7 = CYã GOSUB seven:ã END IFãIF y7 < 5 THENã PSET (y7, x7), 0ã x7 = CCXã y7 = CYã GOSUB seven:ã END IFãIF x8 < 5 THENã PSET (y8, x8), 0ã x8 = CCXã y8 = CYã GOSUB eight:ã END IFãIF y8 < 5 THENã PSET (y8, x8), 0ã x8 = CCXã y8 = CYã GOSUB eight:ã END IFãIF x9 < 5 THENã PSET (y9, x9), 0ã x9 = CCXã y9 = CYã GOSUB nine:ã END IFãIF y9 < 5 THENã PSET (y9, x9), 0ã x9 = CCXã y9 = CYã GOSUB nine:ã END IFãIF x10 < 5 THENã PSET (y10, x10), 0ã x10 = CCXã y10 = CYã GOSUB ten:ã END IFãIF y10 < 5 THENã PSET (y10, x10), 0ã x10 = CCXã y10 = CYã GOSUB ten:ã END IFãIF x11 < 5 THENã PSET (y11, x11), 0ã x11 = CCXã y11 = CYã GOSUB eleven:ã END IFãIF y11 < 5 THENã PSET (y11, x11), 0ã x11 = CCXã y11 = CYã GOSUB eleven:ã END IFãIF x12 < 5 THENã PSET (y12, x12), 0ã x12 = CCXã y12 = CYã GOSUB twelve:ã END IFãIF y12 < 5 THENã PSET (y12, x12), 0ã x12 = CCXã y12 = CYã GOSUB twelve:ã END IFãa$ = INKEY$ãIF a$ = esc$ THEN GOTO done:ãGOTO begin:ãdone:ãSCREEN 0ãWIDTH 80ãCLSãENDãThe ABC Programmer SMOOTH MODE13H TEXT SCROLLER voxel@freenet.edmonton.ab.ca 01-14-98 (21:45) PB 93 2175 SCROLLER.BAS'=====================[ Mode 13h TEXT Scroller ]=======================ã' Scrolls using an 8x8 Character Font (more like 16x16)ã' Programmed by William Yu (1-14-98) for PowerBASICã'ã' I don't know who wrote the original Pascal code, but I used that asã' my basis for this demo. I had to use 16x16 for it to work properlyã' but at the moment I don't know why... if you can tell me, that wouldã' really be appreciated! This code is Public Domain.ã'======================================================================ãDEFINT A-ZãDIM FOFS AS SHARED WORD, FSEG AS SHARED WORDãDIM Bits (0 TO 7) AS SHARED BYTEãDIM ColTab (0 TO 15) AS SHARED BYTEãDIM ScrT AS SHARED STRINGãDIM Position AS SHARED BYTEããFOR I = 0 to 7ã READ Bits(I)ãnext IãFOR I = 0 to 15ã READ ColTab(I)ãnext IãDATA 128,64,32,16,8,4,2,1ãDATA 1,1,9,9,3,3,11,11,3,3,9,9,1,1,9,3,1ãScrT =" Hi folks, this scroller was brought to you by William Yu "ãScrT=ScrT+"with the help of some Pascal code! "ããGetFontãMode13hãã Position = 1ãã Mode13hã GetFontã DOã Scrollã LOOP UNTIL INKEY$<>""ã TextModeãendãããSUB Scrollã DIM I AS WORD,J AS WORD,A AS WORDã DIM CharPos AS BYTE,Character AS BYTEã DIM Colour AS BYTEã DIM Addr AS WORD,COL AS BYTEãã Character = ASC(MID$(ScrT,Position,1))ã for CharPos = 0 to 7ã for I = 0 to 15ã DEF SEG = FSegã Addr = PEEK(Fofs+(Character*16)+I)ã IF (Addr AND Bits(CharPos)) <> 0 thenã Colour = ColTab(I)ã elseã Colour = 0ã end ifã DEF SEG=&HA000ã POKE ((23*8)+I)*320+319, Colourã next Iã WAIT &H3DA,8ã DEF SEG=&HA000ã for J = 0 to 15ã for I = 0 to 318ã A=((23*8)+J)*320+Iã Col = PEEK(A+1)ã POKE A,Colã next Iã next Jã next CharPosã incr Positionã if Position = len(ScrT) then Position = 1ãEND SUBããSUB TextModeã ! mov AX, &h3ã ! int &h10ãEND SUBããSUB Mode13hã ! mov AX, &H13ã ! Int &h10ãEND SUBããSUB GetFontã ! push bpã ! mov ax,&H1130ã ! mov bh,6ã ! int &H10ã ! mov fseg,esã ! mov fofs,bpã ! pop bpãEND SUBãNick Kochakian STAR FIELD 3D NickK@worldnet.att.net 01-07-98 (19:26) QB, QBasic, PDS 139 2512 STARF3D.BAS DECLARE SUB draw.stars ()ã'Star Field 3Dã'ã'verison 1.0ã'ã'This is my first GOOD and FAST 3D star field. (Compared to SField.bas)ã'Please adjust the settings before running the program.ã'ã'This program currently has 3 layers of stars. But that's going to changeã'to 3 to 10 layers by Star Field 3D ver. 2.0ã'ã'(If you didn't change the settings yet they are currently set for:ã'a P60... Look at the chart below...)ã'ã'High res mode looks impressive with 500 stars. :)ã'ã'Have fun!ããDEFINT A-ZãRANDOMIZE TIMERãã'Computer speed chart: (values recommended for best performance)ã'286, 386 -> stars = 50 to 150, res lowã'486 -> stars = 100 to 200ã'Pentium -> stars = 100 to 500ããres$ = "low"ã'res$ values:ã'lowã'highããvideo$ = "vga"ã'video$ values:ã'vgaãããIF res$ = "low" AND video$ = "vga" THEN scr.mode = 13: GOTO ok.ok:ãIF res$ = "high" AND video$ = "vga" THEN scr.mode = 12: GOTO ok.ok:ããPRINT "That's not a valid configuration!": ENDããok.ok:ãSCREEN scr.modeããDIM SHARED starsãstars = 500ãDIM SHARED x(stars)ãDIM SHARED y(stars)ãDIM SHARED z(stars)ãDIM SHARED c(stars)ãã'z ===> 1 - 2 - 3ã' far --------- nearããFOR i = 1 TO starsããIF scr.mode = 13 THENãx(i) = INT(RND * 320) + 1ãy(i) = INT(RND * 200) + 1ãz(i) = INT(RND * 3) + 1ãEND IFããIF scr.mode = 13 THENãIF z(i) = 1 THEN c(i) = 20ãIF z(i) = 2 THEN c(i) = 25ãIF z(i) = 3 THEN c(i) = 30ãEND IFããIF scr.mode = 12 THENãx(i) = INT(RND * 640) + 1ãy(i) = INT(RND * 480) + 1ãz(i) = INT(RND * 3) + 1ãEND IFããIF scr.mode = 12 THENãIF z(i) = 1 THEN c(i) = 8ãIF z(i) = 2 THEN c(i) = 7ãIF z(i) = 3 THEN c(i) = 15ãEND IFããNEXT iããdraw.starsããi = 1ããmove$ = "<"ããDOããPSET (x(i), y(i)), 0ããIF move$ = "<" THENãIF z(i) = 1 THEN x(i) = x(i) - .7ãIF z(i) = 2 THEN x(i) = x(i) - 1.5ãIF z(i) = 3 THEN x(i) = x(i) - 3ãEND IFããPSET (x(i), y(i)), c(i)ãã'FOR a = 1 TO 999ã'NEXT aããIF x(i) < 0 THEN GOSUB re.rand.star:ãi = i + 1ãIF i > stars THEN i = 1ãLOOP UNTIL INKEY$ <> ""ããENDããre.rand.star:ããIF scr.mode = 13 THENãx(i) = 320ãy(i) = INT(RND * 200) + 1ãz(i) = INT(RND * 3) + 1ãIF z(i) = 1 THEN c(i) = 20ãIF z(i) = 2 THEN c(i) = 25ãIF z(i) = 3 THEN c(i) = 30ãEND IFããIF scr.mode = 12 THENãx(i) = 640ãy(i) = INT(RND * 480) + 1ãz(i) = INT(RND * 3) + 1ãIF z(i) = 1 THEN c(i) = 8ãIF z(i) = 2 THEN c(i) = 7ãIF z(i) = 3 THEN c(i) = 15ãEND IFããRETURNããSUB draw.starsããFOR i = 1 TO starsãPSET (x(i), y(i)), c(i)ãNEXT iããEND SUBãNick Kochakian PIXEL ANGLE BOUNCE NickK@worldnet.att.net 01-07-98 (19:26) QB, QBasic, PDS 61 1608 PIXANGLE.BAS'Pixel angle bounceã'ã'11/4/97 By: - Nick Kochakian -ã'ã'Ever see thoes balls that every time they hit a corner of the screenã'they angle another way? Well, here's the basics to that bouncing ball thing,ã'only I've put in pixels instead of the classic ball.ã'ã'e-mail: nickk@worldnet.att.netã'web page: http://www.geocities.com/siliconvalley/heights/5914/ãã'DEFINT A-Z 'This is so the program runs fasterãRANDOMIZE TIMERãSCREEN 13ããpix = 10ããDIM x(pix)ãDIM y(pix)ãDIM dir$(pix)ããFOR i = 1 TO pixãx(i) = INT(RND * 319) + 1ãy(i) = INT(RND * 199) + 1ãdir = INT(RND * 4) + 1ãIF dir = 1 THEN dir$(i) = "7"ãIF dir = 2 THEN dir$(i) = "9"ãIF dir = 3 THEN dir$(i) = "1"ãIF dir = 4 THEN dir$(i) = "3"ãNEXT iãã'x = 100ã'y = 100ãã'dir$ = "7"ããi = 1ããDOãPSET (x(i), y(i)), 0ãIF dir$(i) = "7" THEN x(i) = x(i) - 1: y(i) = y(i) - 1ãIF dir$(i) = "3" THEN x(i) = x(i) + 1: y(i) = y(i) + 1ãIF dir$(i) = "9" THEN x(i) = x(i) + 1: y(i) = y(i) - 1ãIF dir$(i) = "1" THEN x(i) = x(i) - 1: y(i) = y(i) + 1ããIF x(i) < 0 AND y(i) < 0 AND dir$(i) = "7" THEN dir$(i) = "3"ãIF y(i) > 199 AND dir$(i) = "3" THEN dir$(i) = "9"ãIF x(i) > 319 AND dir$(i) = "9" THEN dir$(i) = "7"ãIF y(i) < 0 AND dir$(i) = "7" THEN dir$(i) = "1"ãIF y(i) > 199 AND dir$(i) = "1" THEN dir$(i) = "7"ãIF x(i) < 0 AND dir$(i) = "7" THEN dir$(i) = "9"ãIF y(i) < 0 AND dir$(i) = "9" THEN dir$(i) = "3"ãIF x(i) > 319 AND dir$(i) = "3" THEN dir$(i) = "1"ãIF x(i) < 0 AND dir$(i) = "1" THEN dir$(i) = "3"ããPSET (x(i), y(i)), 15ãFOR a = 1 TO 99ãNEXT aãi = i + 1ãIF i > pix THEN i = 1ãLOOP UNTIL INKEY$ <> ""ãNick Kochakian COOL LINE NickK@worldnet.att.net 01-07-98 (19:26) QB, QBasic, PDS 32 485 COOLLINE.BAS'Cool lineã'ã'This was originally made on my color casio graphing calc.ããSCREEN 13ããx1 = 319ãy1 = 0ãx2 = 319ãy2 = 199ããcol = 16ãcf = 0ãcc = 16ããsiz = 7ããcolway = 2ããFOR i = 1 TO 50ãLINE (x1, y1)-(x2, y2), colããx2 = x2 - sizãy1 = y1 + sizãIF cf = 0 THEN col = col + 1ãIF cf = 2 THEN col = col - 1ãIF colway = 2 AND cf = 0 THEN cc = cc + 1ãIF colway = 2 AND cf = 2 THEN cc = cc - 1ãIF cc = 30 THEN cf = 2ãIF cc < 16 THEN cf = 0: col = 16: cc = 16ããNEXT iãNick Kochakian ENLARGE A GRAPHIC AREA NickK@worldnet.att.net 01-07-98 (19:26) QB, QBasic, PDS 54 1253 ENLARGE.BAS '-------------------------ã'ENLARGEã'-------------------------ã'10/20/97 By: - Nick Kochakian -ã'ã'This will enlarge a graphic area whose color is 255ã'* NOTE: *ã'This program was initally designed to enlarge text!ã'ã'If you have any comments or questions please e-mail me at:ã'nickk@worldnet.att.netã'ã'check out my web page: http://www.geocities.com/siliconvalley/heights/5914/ããSCREEN 13ããLOCATE 1, 1: COLOR 255: PRINT "A"ããx1 = 0 'x and y(s) for the box "pset"ãy1 = 0 '""ãx2 = .1 '""ãy2 = .1 '""ããxstart = 0ãxmax = 8ããx = start 'Where the x and y pixel read beginãy = 0ããscale = 1 'Don't change thisããgfx.x = 8ãgfx.y = 8ããgfx.size = gfx.x * gfx.y 'Just like DIMing an array.ããxdraw.start = 100ãxdraw.max = xdraw.start + gfx.x * scaleãxdraw = xdraw.start 'Location of the scaled drawing... Make sure xdraw dosen'tãydraw = 40 'go under 100ããyour.color = 15ããFOR i = 0 TO gfx.sizeãIF POINT(x, y) = 255 THENãLINE (x1 + xdraw * scale, y1 + ydraw * scale)-(x2 + xdraw * scale + scale, y2 + ydraw * scale + scale), your.color, BFãEND IFãx = x + 1ãxdraw = xdraw + 1ãIF x >= xmax THEN x = 0: y = y + 1ãIF xdraw >= xdraw.max THEN xdraw = xdraw.start: ydraw = ydraw + 1 + scaleãNEXT iããCOLOR 15ãNick Kochakian XOR PIXEL NickK@worldnet.att.net 01-07-98 (19:26) QB, QBasic, PDS 45 766 XOR-PIX.BAS RANDOMIZE TIMERãSCREEN 13ã'XOR Pixelã'ã'11/5/97 By: - Nick Kochakian -ã'ã'This does a pset put but after the pixel moves, it dosen't erase theã'background!ã'ã'If you like my XORed pixel, please use the source, but it'd be nice if youã'gave me some credit for making it! ;)ã'ã'e-mail: nickk@worldnet.att.netã'web page: http://www.geocities.com/siliconvalley/heights/5914/ããx = 1ãy = 1ãoldcol = 0ãnewcol = 0ããPAINT (0, 0), 1ããFOR i = 1 TO 10000ãa = INT(RND * 320) + 1ãb = INT(RND * 200) + 1ãc = INT(RND * 255) + 1ãPSET (a, b), cãNEXT iããoldcol = POINT(x, y)ããDOãPSET (x, y), oldcolãnewcol = POINT(x + 1, y)ãx = x + 1ãPSET (x, y), 15ãoldcol = newcolãFOR i = 1 TO 999ãNEXT iãã'ãIF x > 319 THEN ENDã'ããLOOP UNTIL INKEY$ <> ""ãDavid A. Wicker FULL SCREEN FIRE SIMULATION pyramax@fastlane.net 01-23-98 (18:52) QB, QBasic, PDS 71 2519 FIRE.BAS ' Fire Competition Entry by David A. Wickerã' Very quick fire! Change SP to any value from 5 to 20, greater than that,ã' it doesn't look like very good fire.ã' ---------------------------------------------------------------------------ã' As always, if you borrow anything from any source code for yourã' shareware projects, please give credit to the original author!ã' ---------------------------------------------------------------------------ããDEFINT A-Zã'$DYNAMICã' These two yield maximum speed and memoryããDECLARE SUB RGB (N, R, G, B)ã' Get in the habit of making Subprograms to handle all your GOSUB needs.ã' It's much more powerful and easier to use and maintain in the future.ã' Tap [F2] to see existing Subprograms and Functions.ã' Use ALT-E "S" to create a new Subprogram. They can each have an argumentã' saving you from having to use temporary variables in a GOSUB routine.ã' Also, any variables used inside a Subprogram unless defined otherwise areã' not carried over to your main program!ããDEF FNR (A) = INT(RND * A)ãRANDOMIZE TIMERã' My little Random function routine. I like to use this instead ofã' using RND* in my statements.ããSCREEN 13ã' Yield 320x200x256ããFOR I = 0 TO 63ã RGB I, I, 0, 0ã RGB I + 64, 63, I, 0ãNEXTã' This uses up 128 colors to make our fire, black to red to yellowããSP = 5: ' Speed of Fireã' As always, you can compile this to an .EXE to see it running full speedããDOã FOR I = FNR(SP) TO 199 - FNR(SP) STEP SPã FOR J = FNR(SP) TO 319 STEP SPãã A = I - FNR(64)ã' FACT: Using RND inside a statement that does not return a value is =MUCH=ã' quicker than putting the results in a variable. Don't believe me ?ã' REM out the A=I-FNR(64) and put in a new line beneath: A=Iã' How much faster does it run ? Whenever QBasic needs to store a computedã' result, it takes longer than to just compute it for a one time task likeã' plotting or printing. Use this knowledge to your advantage.ãã IF A < 0 THEN A = 0ã IF A > 127 THEN A = 127ã LINE (J, I)-(J - SP + FNR(SP * 2), I + FNR(SP)), Aãã ã NEXTã NEXTãLOOP UNTIL INKEY$ > ""ããREM $STATICãSUB RGB (N, R, G, B)ã OUT &H3C8, Nã OUT &H3C9, Rã OUT &H3C9, Gã OUT &H3C9, Bã' Routine I "earned" by trading source code of paint routine for C++ã' Apparently this is common in good QBasic programming practice so Iã' will probably not give tell from where I got it again in new programs.ã' =NEVER= use PALETTE. It's much too slow.ããEND SUBãDavid A. Wicker ROTATE PICTURE 360 DEGREES pyramax@fastlane.net 01-28-98 (10:33) QB, QBasic, PDS 89 2969 ROTATE.BAS DEFINT A-Zã'$DYNAMICã' Free Rotate v0.23 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>ã' Thought up and Written by David A. Wicker Jan 28, 1998ã' pyramax@fastlane.netã' http://www.fastlane.net/~pyramaxã' ---------------------------------------------------------------------------ã' As always, if you borrow anything from any source code for yourã' shareware projects, please give credit to the original author!ã' ---------------------------------------------------------------------------ãã' DEFINT A-Z and '$DYNAMIC as the first two lines of every QBasic programã' ensure maximum speed and maximum memory capability.ã' They are chiseled in every single program I write.ãããDEF FNN$ (A) = MID$(STR$(A), 2)ã' Easy way to convert a number to a string without the preceding space.ããSCREEN 13ã' Many a good graphic program and game are written in this favorite of allã' resolution modes, 320x200x256. You could be the next grand prize winner!ã' :)ããPRINTãPRINTããCIRCLE (28, 28), 24, 13ãPAINT (28, 28), 5, 13ã' Yes, we're using fixed size images for this example, but you can modifyã' it to work with an image of any size, especially if you store theã' "string" as a random access file.ããPRINT " Hello"ãPRINT " There!"ã' There is a preceding SPACE before each printed item because we want aã' little bit of BLACK pixel space to pad the rotation. Try taking outã' the spaces to see what happens.ããA$ = "H28"ã' Jump UP and to the LEFT 28 spaces from our beginning start position.ããFOR I = 0 TO 55ã FOR J = 0 TO 55ã' This LOOP will include J for horizontal position, and I for vertical.ã ã C = POINT(J, I)ã' Read our pixel starting from LEFT to RIGHT.ãã IF I MOD 2 = 1 THEN C = POINT(55 - J, I)ã' Read our pixel starting from RIGHT to LEFT.ã ã A$ = A$ + "C" + FNN$(C)ã' Change the color to the one selected. Note the use of FNN$.ãã' Type out DRAW on a blank line and hit F1 to see how this complexã' image drawing command works. Be sure to press [PGDN] once the help isã' up because there's more.ãã IF J < 55 THENãã IF I MOD 2 = 0 THEN A$ = A$ + "R" ELSE A$ = A$ + "L"ã' Add our PLOT to the RIGHT or LEFT depending upon our vertical stepping.ã' Please get in the habit of using ELSE in your programming instead of GOTO.ãã END IFã NEXTã ã IF I < 55 THEN A$ = A$ + "BD"ã' Move our plotter down one pixel WITHOUT drawing a dot behind it.ããNEXTããLOCATE 8, 10ããPRINT "Munched " + FNN$(LEN(A$)) + " string space!"ã' See how much string space can get eaten with a DRAW pixel image!ããFOR I = 0 TO 720 STEP 4ã' Variable "I" represents the rotation factor, valued 0 to 359.ãã DRAW "s4BM160,100TA" + FNN$(I MOD 360) + A$ã' Scale 4 (or 1 as QBasic divides by 4), plot in center of screen,ã' Horizontal=160, Vertical=100, and then rotation plus the actualã' Image.ãã' NO DELAY is needed! It's quite slow enough on my pentium! :)ããNEXTãKyle Petersen FIRE GENERATOR Kyle_Petersen@cocc.edu 02-05-98 (20:08) QB, QBasic, PDS 236 4962 FIREB.BAS DECLARE SUB fire (y%, x1%, x2%, cnt%)ãDECLARE SUB makepal (tpe%)ãDEFINT A-ZããSCREEN 0: WIDTH 80ããCLSãPRINT "Choose a size for the x from 0 to 100."ãPRINT "25 is generally a good number. A higher"ãPRINT "number will result in lower, but bigger,"ãPRINT "fire."ãINPUT "XSize:", xsizeãIF xsize < 0 OR xsize > 100 THEN xsize = 25ãCLSãPRINT "Choose a size for the y from 0 to 197."ãPRINT "150 is generally a good choice. A"ãPRINT "higher number will result in faster,"ãPRINT "but smaller, fire."ãINPUT "YSize:", ysizeãIF ysize < 0 OR ysize > 197 THEN ysize = 150ãCLSãPRINT "Choose a palette:"ãPRINT "0 - Fire."ãPRINT "1 - Grayscale."ãPRINT "2 - Red."ãPRINT "3 - Green."ãPRINT "4 - Blue."ãPRINT "5 - Shaded primary's."ãINPUT "Palette #:", paletãIF palet > 5 OR palet < 0 THEN palet = 0ãCLSãPRINT "The skip number determines how"ãPRINT "much the fire should decrement"ãPRINT "with each average. A higher"ãPRINT "number results in a higher"ãPRINT "fire. Some interesting side-"ãPRINT "effects will happen after the"ãPRINT "number 1. A range of -10 to"ãPRINT "10 is supported."ãINPUT "Skip:", cntãIF cnt < -10 OR cnt > 10 THEN cnt = 0ãCLSãPRINT "The number of flames can be from"ãPRINT "0 to 20. A 20 will cause a wall of"ãPRINT "flame. 10 is the recommended number."ãINPUT "# Flames:", amntãIF amnt < 0 OR amnt > 20 THEN amnt = 10ãCLSãPRINT "Movement is what determines how"ãPRINT "fast the flames switch positions."ãPRINT "Lower numbers cause faster switching."ãPRINT "Try 3 to begin with."ãINPUT "Movement:", movemãIF movem < 0 OR movem > 10 THEN movem = 3ãSCREEN 13ãCLSããRANDOMIZE TIMERããDIM scx(99), scy(99), frãDIM SHARED divfour(2048)ãã'Make a look-up table for the divisions.ã'Dividing and multiplying is one of theã'slowest operations on the pc. By makingã'this table, the program can run faster.ããFOR t = 0 TO 2048ã divfour(t) = INT(t \ 4)ãNEXTãã'Create neat-o palette :)ãmakepal paletããx1 = 159 - (xsize / 2) 'Determine where to place the fire.ãx2 = 159 + (xsize / 2)ããFOR t = 0 TO amntã scx(t) = INT(RND(1) * xsize) + x1ã scy(t) = 197ãNEXTããcount = 1ãã'The Flame loopããDEF SEG = &HA000ãDOã fire ysize, x1, x2, cnt 'The fire subãã FOR t = 0 TO amnt 'Redraw the flame ignitors.ã IF INT(RND(1) * movem) + 1 = 1 THEN scx(t) = INT(RND(1) * xsize) + x1'Randomly move the ignitorsã PSET (scx(t), scy(t)), 255 'Plot em.ã NEXTããLOOP UNTIL INKEY$ <> "" 'Continue until keypressãã'Let the fire burn out...ãFOR t = 0 TO 127ã fire ysize, x1, x2, 0ã IF INKEY$ = CHR$(27) THEN EXIT FOR 'If escape hit, exit.ãNEXTãDEF SEGãã'A fairly fast fire routineã'I replaced the points with peeks and the psets with pokesã'I only multiply once and my division is stored in memory.ã'I think this could be faster still...ã'(Without converting to assembly that is.)ãSUB fire (y, x1, x2, cnt)ããadd& = (320& * y)ããFOR t = y TO 198ã FOR x = x1 TO x2ã add1& = add& + xã ã c = divfour(PEEK(add1& - 1) + PEEK(add1& + 320) + PEEK(add1& + 1) + PEEK(add1& + 320))ã ã IF c > 0 - cnt THEN c = c + cnt - 1ã 'IF c > 255 THEN c = 255 'Uncomment this if you don't want the funnyã 'things that run through your fire when youã 'use higher numbers. (If you don't knowã 'what I'm talking about, don't uncomment this.ã 'You'll know when you see them.)ã POKE add1&, cã NEXTã add& = add& + 320ãNEXTããEND SUBããSUB makepal (tpe)ãOUT 968, 0ãIF tpe = 0 THENãcol = 0ãFOR t = 0 TO 15ã OUT 969, 0ã OUT 969, 0ã OUT 969, colã col = col + 1ãNEXTãFOR t = 0 TO 15ã OUT 969, 0ã OUT 969, 0ã OUT 969, colã col = col - 1ãNEXTãcol = 0ãFOR t = 0 TO 63ã OUT 969, colã OUT 969, 0ã OUT 969, 0ã col = col + 1ãNEXTãcol = 0ãFOR t = 0 TO 127ã OUT 969, 63ã OUT 969, t \ 2ã OUT 969, 0ã col = col + 1ãNEXTãcol = 0ãFOR t = 0 TO 31ã OUT 969, 63ã OUT 969, 63ã OUT 969, colã col = col + 1ãNEXTãEND IFããIF tpe = 1 THENã FOR t = 0 TO 255ã OUT 969, t \ 4ã OUT 969, t \ 4ã OUT 969, t \ 4ã NEXTãEND IFããIF tpe = 2 THENã FOR t = 0 TO 255ã OUT 969, t \ 4ã OUT 969, 0ã OUT 969, 0ã NEXTãEND IFããIF tpe = 3 THENã FOR t = 0 TO 255ã OUT 969, 0ã OUT 969, t \ 4ã OUT 969, 0ã NEXTãEND IFããIF tpe = 4 THENã FOR t = 0 TO 255ã OUT 969, 0ã OUT 969, 0ã OUT 969, t \ 4ã NEXTãEND IFããIF tpe = 5 THENã 'black to redã FOR t = 0 TO 31ã OUT 969, t * 2ã OUT 969, 0ã OUT 969, 0ã NEXTã 'Red to blueã FOR t = 0 TO 63ã OUT 969, 63 - tã OUT 969, 0ã OUT 969, tã NEXTã 'Blue to greenã FOR t = 0 TO 63ã OUT 969, 0ã OUT 969, tã OUT 969, 63 - tã NEXTã 'Green to whiteã FOR t = 0 TO 63ã OUT 969, tã OUT 969, 63ã OUT 969, tã NEXTã 'White to blackã FOR t = 0 TO 31ã OUT 969, 62 - (t * 2)ã OUT 969, 62 - (t * 2)ã OUT 969, 62 - (t * 2)ã NEXTãEND IFãEND SUBãKyle Petersen SPREAD PALETTES Kyle_Petersen@cocc.edu 02-05-98 (20:08) QB, QBasic, PDS 65 1315 SPREAD.BAS 'Simple program that illustrates using a spread for the palette. Thisã'function is highly recommended for anyone dealing with the palette, whetherã'it be in games, drawing programs, or anything else.ã'----------Have Fun!--------------------------------ã'Kyle PetersenããDECLARE SUB spread (col1%, col2%)ãDEFINT A-ZãSCREEN 13ãCLSããFOR t = 0 TO 255ã LINE (t + 10, 10)-(t + 10, 190), tãNEXTããLOCATE 1, 1: PRINT "Before spread..."ãw$ = INPUT$(1)ããFOR cnt = 0 TO 3ã READ number$ã LOCATE 1, 1: PRINT "After " + number$ + " spread. "ã READ first, lastã spread first, lastã w$ = INPUT$(1)ãNEXTããDATA "first", 0, 31ãDATA "second", 31, 63ãDATA "third", 63, 127ãDATA "fourth", 127,255ããSUB spread (col1%, col2%)ããIF col2% > col1% THENã OUT 967, col1%ã r1 = INP(969)ã g1 = INP(969)ã b1 = INP(969)ãã OUT 967, col2%ã r2 = INP(969)ã g2 = INP(969)ã b2 = INP(969)ãã ml = col2% - col1%ãã pl! = r2 - r1ã pl1! = g2 - g1ã pl2! = b2 - b1ã pl! = pl! / mlã pl1! = pl1! / mlã pl2! = pl2! / mlãã r! = 0: g! = 0: b! = 0ã FOR t = col1% TO col2%ã OUT 968, tã OUT 969, INT(r1 + r!)ã OUT 969, INT(g1 + g!)ã OUT 969, INT(b1 + b!)ã r! = r! + pl!ã g! = g! + pl1!ã b! = b! + pl2!ã NEXTãEND IFãEND SUBãKyle Petersen RANDOM (ROTATING) STARFIELD Kyle_Petersen@cocc.edu 02-05-98 (20:08) QB, QBasic, PDS 296 5709 SIMSTARS.BASDECLARE SUB setGrayPal ()ãDECLARE SUB moveStars (xInc!, yInc!, zInc!)ãDECLARE SUB readData ()ãDECLARE SUB transformZ (nCnt%)ãDECLARE SUB initStars ()ãDECLARE SUB dispStars ()ãDEFINT A-Zãã'$DYNAMICããCONST NSTARS = 50ããTYPE starã x AS SINGLEã y AS SINGLEã z AS SINGLEã trueX AS INTEGERã trueY AS INTEGERã trueZ AS INTEGERã dest AS SINGLEãEND TYPEããDIM SHARED star(NSTARS) AS starãDIM SHARED flyTypeãDIM SHARED text$(10)ããflyType = 0ããSCREEN 7, , 1, 0ããRANDOMIZE TIMERãreadDataãinitStarsãã'Part IãflyType = 0ãtransformZ 0ãst! = TIMERããWHILE tElapse! < 5ã CLSã moveStars -5, 0, 0ã IF tElapse! < 2 THENã LOCATE 1, 1: PRINT text$(0)ã ELSEã LOCATE 2, 1: PRINT text$(1)ã END IFã dispStarsã PCOPY 1, 0ã et! = TIMERã tElapse! = et! - st!ãWENDããã'Part IIãst! = TIMERãet! = TIMERãtElapse! = et! - st!ãlastElapse! = tElapse!ãflyType = 1ãxDir! = 0ããWHILE tElapse! < 15ã CLSã moveStars -5 + xDir!, 0, 0ã dispStarsã IF tElapse! > 10 AND tElapse! > lastElapse! + .1 THEN xDir! = xDir! - 2ã IF tElapse! > lastElapse! + .1 THEN transformZ 1: lastElapse! = tElapse!ã PCOPY 1, 0ã et! = TIMERã tElapse! = et! - st!ãWENDãã'Part IIIãflyType = 2ãst! = TIMERãet! = TIMERãtElapse! = et! - st!ãlastElapse! = tElapse!ãxDir! = xDir! + 5ããWHILE tElapse! < 20ã CLSã IF tElapse! > lastElapse! + .2 AND xDir! < 0 THEN xDir! = xDir! + 1: lastElapse! = tElapse!ã moveStars xDir!, 0, -.1ã dispStarsã PCOPY 1, 0ã et! = TIMERã tElapse! = et! - st!ãWENDããã'Part IVãflyType = 2ãst! = TIMERãet! = TIMERãtElapse! = et! - st!ãlastElapse! = tElapse!ãangle! = 0ããWHILE tElapse! < 20ã CLSã IF tElapse! > lastElapse! + .1 THENã angle! = angle! + .2ã IF angle! > 6.3 THEN angle! = 0ã lastElapse! = tElapse!ã yDir! = SIN(angle!) * 10ã END IFã moveStars 0, yDir!, -.1ã dispStarsã PCOPY 1, 0ã et! = TIMERã tElapse! = et! - st!ãWENDãã'Part XãflyType = 3ãst! = TIMERãet! = TIMERãtElapse! = et! - st!ãlastElapse! = tElapse!ãangle! = 0ããWHILE tElapse! < 20ã CLSã IF tElapse! > lastElapse! + .1 THENã angle! = angle! + .2ã IF angle! > 6.3 THEN angle! = 0ã lastElapse! = tElapse!ã yDir! = SIN(angle!) * 5ã END IFã moveStars 0, yDir!, -.1ã dispStarsã PCOPY 1, 0ã et! = TIMERã tElapse! = et! - st!ãWENDãã'Part XIãflyType = 3ãst! = TIMERãet! = TIMERãtElapse! = et! - st!ãlastElapse! = tElapse!ãangle! = 0ãyDir! = 0ãzDir! = -.1ããWHILE tElapse! < 15ã CLSã IF tElapse! > lastElapse! + .1 THENã IF zDir! < 0 THEN zDir! = zDir! + .001ã IF zDir! > 0 THEN zDir! = 0ã lastElapse! = tElapse!ã END IFã moveStars 0, 0, zDir!ã dispStarsã PCOPY 1, 0ã et! = TIMERã tElapse! = et! - st!ãWENDãã'Part XIIãflyType = 1ãst! = TIMERãet! = TIMERãtElapse! = et! - st!ãlastElapse! = tElapse!ãangle! = 0ãxDir! = 0ããWHILE tElapse! < 10ã CLSã IF tElapse! > lastElapse! + .1 THENã IF xDir! < -5 THEN xDir! = xDir! + .1ã IF xDir! > -5 THEN xDir! = -5ã lastElapse! = tElapse!ã END IFã moveStars xDir!, 0, 0ã dispStarsã PCOPY 1, 0ã et! = TIMERã tElapse! = et! - st!ãWENDãã'Part XIIIãflyType = 0ãst! = TIMERãet! = TIMERãtElapse! = et! - st!ãlastElapse! = tElapse!ãangle! = 0ããWHILE tElapse! < 10ã CLSã moveStars -5, 0, 0ã LOCATE 1, 1: PRINT text$(2)ã dispStarsã PCOPY 1, 0ã et! = TIMERã tElapse! = et! - st!ãWENDãããDATA "A simple starfield..."ãDATA " ...Or is it?"ãDATA "That's All Folks!"ãDATA "END"ããSUB dispStarsãFOR cnt = 0 TO NSTARS - 1ã x = star(cnt).trueXã y = star(cnt).trueYã z = star(cnt).zã col = 8ã IF z < 2 THEN col = 7ã IF z < 1 THEN col = 15ã PSET (x, y), colãNEXTãEND SUBããSUB initStarsãFOR cnt = 0 TO NSTARS - 1ã star(cnt).x = INT(RND(1) * 320) - 160ã star(cnt).y = INT(RND(1) * 200) - 100ã star(cnt).z = 0ãNEXTãEND SUBããSUB moveStars (xInc!, yInc!, zInc!)ãFOR cnt = 0 TO NSTARS - 1ã star(cnt).x = star(cnt).x + xInc!ã star(cnt).y = star(cnt).y + yInc!ã star(cnt).z = star(cnt).z + zInc!ã x! = star(cnt).xã y! = star(cnt).yã z! = star(cnt).zã ã x! = (x! / (z! + 1)) + 160ã y! = (y! / (z! + 1)) + 100ãã IF x! < 0 AND flyType = 0 THENã star(cnt).x = 160ã star(cnt).y = INT(RND(1) * 200) - 100ã star(cnt).z = 0ã END IFã IF x! < 0 AND flyType = 1 THENã star(cnt).z = RND(1) * 3ã star(cnt).x = 160 * (star(cnt).z + 1)ã star(cnt).y = (INT(RND(1) * 200) - 100) * (star(cnt).z + 1)ã star(cnt).dest = star(cnt).zã END IFã IF (z! < 0 OR x! < 0 OR y! < 0 OR x! > 320 OR y! > 320) AND flyType = 2 THENã star(cnt).z = 3ã star(cnt).x = (INT(RND(1) * 320) - 160) * (star(cnt).z + 1)ã star(cnt).y = (INT(RND(1) * 200) - 100) * (star(cnt).z + 1)ã END IFã IF (z! < 0 OR x! < 0 OR y! < 0 OR x! > 320 OR y! > 320) AND flyType = 3 THENã star(cnt).z = 3ã angle! = RND(1) * 6.3ã star(cnt).x = COS(angle!) * 80ã star(cnt).y = SIN(angle!) * 80ã END IFãã x! = star(cnt).xã y! = star(cnt).yã z! = star(cnt).zã x! = (x! / (z! + 1)) + 160ã y! = (y! / (z! + 1)) + 100ãã star(cnt).trueX = x!ã star(cnt).trueY = y!ããNEXTãEND SUBããSUB readDataãcnt = 0ãDOã READ a$ã text$(cnt) = a$ã cnt = cnt + 1ãLOOP WHILE a$ <> "END"ãEND SUBããSUB transformZ (nCnt)ãFOR cnt = 0 TO NSTARS - 1ã IF nCnt = 0 THENã star(cnt).dest = RND(1) * 3ã ELSEã IF star(cnt).z < star(cnt).dest THENã star(cnt).z = star(cnt).z + .1ã END IFã END IFãNEXTãEND SUBãMarc van den Dikkenberg PCX SAVER/LOADER FOR PB excel@excelsior.xs4all.nl 02-08-98 (15:37) PB 275 7970 PBPCX.BAS 'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»ã'º PB-PCX Version 1.0 8 February 1998 ºã'ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹ã'º PCX Save: Marc van den Dikkenberg ºã'º PCX Load: Dave Navarro, Mark Phillips, Al Musella ºã'º ºã'º Status: Freeware ---------> internet: pb@excelsior.xs4all.nl ºã'º ºã'º The PowerBasic Archives -------> http://www.xs4all.nl/~excel/pb.html ºã'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼ãã$LIB ALL -ã$DYNAMICãDEFINT A - ZããTYPE Pcxheaderã Mfg AS BYTEã Ver AS BYTEã Enc AS BYTEã Bpp AS BYTEã Xmin AS INTEGERã Ymin AS INTEGERã Xmax AS INTEGERã Ymax AS INTEGERã Hres AS INTEGERã Vres AS INTEGERã Pal AS STRING * 48ã Resrv AS BYTEã Colpl AS BYTEã Bpl AS INTEGERã Paltyp AS INTEGERã Filler AS STRING * 58ãEND TYPEãDIM Header AS SHARED PcxheaderãDIM Times AS SHARED BYTEãDIM Chunksize AS SHARED WORDãDIM Maxscrnptr AS SHARED WORDãDIM Textofst AS SHARED WORDãDIM Handle AS SHARED INTEGERãDIM Buffer AS SHARED STRING * 32256ãChunksize = 32256ãã' Screen 13 (320 x 200 x 256)ã ! MOV AX,&H13ã ! INT &H10ã DEF SEG=&HA000ãã' Put some lines on the screenã for t=0 to 199 step 2ã poke$ t*320,string$(160,t)ã next tã Sound 420,.5ã a$=input$(1)ãã' Use PCXDisplay to view any 320x200x256 PCX fileã'ã' PCXDisplay("picture.pcx")ã' Sound 420,.5ã'ã'ã' Important! This version of PCXSave will only work with Screen 13hã' ( 320 x 200 x 256 ) See The PowerBasic Archives,ã' http://www.xs4all.nl/~excel/pb.html for possible updates.ã'ãPCXSave("PCXSave.pcx")ãsound 420,.5ããENDãã'********************************************************************ã'* PCX-Save, By Marc van den Dikkenberg *ã'********************************************************************ããSUB PCXSave(F$)ã header.mfg=10ã header.ver=5ã header.enc=1ã header.bpp=8ã header.xmin=0ã header.ymin=0ã header.xmax=319ã header.ymax=199ã header.hres=300ã header.vres=300ã header.pal=string$(48,0)ã header.Resrv=0ã header.colpl=1ã header.bpl=320ã header.paltyp=1ã header.filler=string$(58,0)ãã filhandle=freefileã open f$ for binary as #filhandleã put$ #filhandle,headerãã DEF SEG=&HA000ã for t=header.YMin to Header.YMaxã temp$=peek$(t*320+header.XMin,Header.bpl)ãã' ****************ã poke$ t*320+header.xmin,string$(header.bpl,0)ã' Erase the current line from the screenã' ****************ãã count=0ã while len(temp$)>0ã CheckFor$=left$(temp$,1)ã while left$(temp$,1)=CheckFor$ and count<63ã count=count+1ã temp$=mid$(temp$,2)ã wendã if count=1 thenã if CheckFor$>chr$(191) thenã put$ #filhandle,chr$(val("&B11000001"))+CheckFor$ã elseã put$ #filhandle,CheckFor$ã end ifã elseã temp2$=bin$(count)ã while len(temp2$)<6ã temp2$="0"+temp2$ã wendã put$ #filhandle,chr$(val("&B11"+temp2$))+CheckFor$ã end ifã count=0ã wendã next tã put$ #filhandle,chr$(12)' Start of Palette Markerã OUT &H3C7, 0ã FOR T = 0 TO 255ã R = (INP(&H3C9) * 65280) \ 16128ã G = (INP(&H3C9) * 65280) \ 16128ã B = (INP(&H3C9) * 65280) \ 16128ã PUT$ #filhandle,chr$(R)ã PUT$ #filhandle,chr$(G)ã PUT$ #filhandle,chr$(B)ã NEXT Tã close #filhandleãEND SUBããENDãã'********************************************************************ã'* FAST PCX *ã'* Original idea from Dave Navarro. *ã'* Changes by Mark Phillips and Al Musella, DPM *ã'* revised 9/23/93 by David Yunker see PCX.BAS for original code *ã'* Source code formatted by BFLite, by James Davis. *ã'********************************************************************ããSUB PcxDisplay(F$)ã'display .pcx f$ on screen - only works for mode 13h nowã'Set up the buffer to hold raw dataã Textofst = VARPTR(Buffer) 'the seg = ds for fixed len stringãã'Open the file and get the dos handle and file sizeã filhandle=freefileã OPEN F$ FOR BINARY ACCESS READ SHARED AS #filhandleã Handle = FILEATTR(1, 2) 'The dos handle for this fileãã'Make sure we can do this fileã Get# filhandle, , Headerã IF Header.mfg <> 10 AND Header.ver <> 5 THENã PRINT "Not a 256 color PCX file!"ã ENDã END IFã Wid = Header.xmax - Header.xminã Dep = Header.ymax - Header.yminã IF Wid + 1 > 320 OR Dep + 1 > 200 THENã PRINT "is too big for Mode 13h"ã ENDã ELSEã PRINTã END IFããã'Load PCX Palette (have to divide the raw values by 4 toã'get them into 256 color formatã Tmp& = LOF(filhandle) - 768ã Seek# filhandle, Tmp& 'this is where the pallette data is storedã DIM Palete AS STRING * 768 'ã GET$ filhandle, 768, Palete 'read it all in in 1 chunkã'Now divide each entry by 4 to scale to 256 colorã Paloff?? = VARPTR(Palete)ã ! mov AX,DS ;set es=ds to set up stosbã ! mov ES,AXã ! mov CX,768ã ! mov AX,Paloff??ã ! mov SI,AX ;let si and di point to palete stringã ! mov DI,AXãPalShift:ã ! Lodsb ;al<-ds:si incr siã ! shr AL,1ã ! shr AL,1 ;divide by 4 (quickly:) 'shift bugã ! Stosbã ! loop Palshiftãã Seek# 1, 128 ' go to beginning of graphic dataãã'Set the graphics mode 320x200x256ã ! mov AX,&H0013 ; set mode 13hã ! int &H10ã'set up the new palletteã Palptr = VARPTR(Palete)ã Palseg = VARSEG(Palete)ã ! mov AX,&H1012 ;set new paletteã ! mov BX,0ã ! mov CX,256ã ! mov DX,Palptrã ! mov ES,Palsegã ! int &H10ãã Maxscrnptr?? = (Wid + 1) * (Dep + 1) 'points to the highest posible postion on screenãã CALL pcxshow 'actually decodes and displays the fileã CLOSE filhandleãEND SUBããSUB PCXshow()ã'must be called from PCXDisplay - not directly!ãã'Set up es:di to point to next location on screenã ! mov AX,&h0A000ã ! mov ES,AX ;es points to VGA bufferã ! mov DI,0 ;di holds screen offsetã ! call getchunk ;returns dx=buffersize, si offset of bufferãpcx2:ã ! lodsb ;al now holds the color byteã ! dec DXã ! jnz pcx2aã ! call getchunkãpcx2a:ã ! mov BH,1 ;bh holds run count, assume 1 for nowã ! mov BL,ALã ! and BL,&hc0 ;check if the 2 most sig bits are setã ! cmp BL,&hc0ã ! jnz pcx3 ;if not run byte, just display color al, bh Timesã ! and AL,&h3fã ! mov BH,ALã ! lodsb ;al now holds the color byteã ! dec DXã ! jnz pcx3ã ! call getchunkãpcx3:ã ! xor CX,CXã ! mov CL,BHã ! rep Stosbã ! cmp di,Maxscrnptr??ã ! jz pcxdoneã ! jmp pcx2ããGetChunk:ã' return dx with # of bytes in the string to processã' return si with start of buffer in dsã ! push axã ! push bxã ! mov AH,&h3Fã ! mov BX,Handleã ! mov DX,Textofstã ! mov CX,Chunksizeã ! int &h21ã ! mov SI,DXã ! mov DX,AX ; DX=len si=offsetã ! pop bxã ! pop axã ! retnããPCXDone:ãEND SUBããSUB PCXResetScreenã ! mov AX,3 ;'set text mode and reset paletteã ! int &h10ã CLSãEND SUBãSami Kyostila CONVERT BMP/PCX/GIF FILES hiteck@utanet.fi 02-09-98 (23:31) QB, PDS 3536 96057 CONVERT.BAS 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' C O N V E R T v1.0 - by Sami Ky”stil„ 1998ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã'ã' See Program/About for more info on program.ã'ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' You may use this code freely, as long as you give me some credit for it.ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããããããDECLARE SUB About ()ãDECLARE SUB Append.Code (Code$)ãDECLARE SUB SaveBMP8 (Pic$, X1%, Y1%, X2%, Y2%)ãDECLARE FUNCTION LongToString$ (L&)ãDECLARE SUB Load.RAW (File$, XLen%, YLen%, Segment%, Offset%)ãDECLARE SUB Load.BSave (File$)ãDECLARE SUB Save.Palette (File$, InpFormat$, OutFormat$)ãDECLARE SUB Draw.PaletteMenu (Col%)ãDECLARE SUB SmoothPal (Iter&)ãDECLARE SUB Draw.Palette (ActiveCol%)ãDECLARE SUB View.Palette ()ãDECLARE SUB Edit.Palette ()ãDEFINT A-ZãDECLARE SUB RotatePal ()ãDECLARE SUB Roller (x%, y%, XLen%, Text$, FCol%)ãDECLARE FUNCTION FindBrightestColor% ()ãDECLARE FUNCTION FindBrighestColor% ()ãDECLARE SUB Save.Image (InpFile$, InpFormat$, OutFormat$)ãDECLARE FUNCTION QueryFile$ (WildCard$)ãDECLARE FUNCTION ScanDir% (FileSpec$, Output$)ãDECLARE SUB SeekFileItem (File%, Item%)ãDECLARE FUNCTION RealLen% (Text$)ãDECLARE SUB Center (Text$, YPos%)ãDECLARE SUB ColPrint (Text$)ãDECLARE FUNCTION DirEntry% (Entry AS STRING)ãDECLARE FUNCTION DirFirst$ (Mask AS STRING, Attrib AS INTEGER)ãDECLARE SUB SetDTA (FileInfo AS ANY)ãDECLARE FUNCTION DirNext$ ()ãDECLARE SUB DrawFileList (File%, Offset%, Selected%, Max%)ãDECLARE SUB DrawWindow (x%, y%, X2%, Y2%, FCol%, BCol%, Topic$, Shadow%)ãDECLARE SUB EraseMessage ()ãDECLARE SUB ErrorDialog (Desc$)ãDECLARE FUNCTION InputField$ (Text$, Key$, MaxLen%, TPos%)ãDECLARE FUNCTION Query$ (Text$, Topic$, MaxLen%, TField$)ãDECLARE FUNCTION Load.Palette% (File$, Format$)ã'$DYNAMICãDECLARE FUNCTION Load.Image% (File$, Format$)ãDECLARE FUNCTION Getbit% ()ãDECLARE SUB Plot (a%)ãDECLARE FUNCTION ReadCode% (CodeSize%)ãDECLARE SUB Show.Image ()ãDECLARE SUB Gauge (XPos%, YPos%, XLen%, Value&, Max&, Char$)ãDECLARE SUB PrintText (Text$)ãDECLARE SUB ClearScreen ()ãDECLARE SUB Set.Palette ()ãDECLARE FUNCTION ReturnNibble% (Byte%, WhichOne%)ãDECLARE SUB FillChar (Segment%, Offset%, Value%, Bytes%)ãDECLARE SUB MemCopy (fromseg%, FromOffset%, toseg%, ToOffset%, Bytes%)ãDECLARE FUNCTION ReturnBit% (Byte%, Bit%)ãDECLARE SUB Create.MenuItem (Num%, Caption$, Style AS STRING, Selected AS STRING, Active AS STRING)ãDECLARE SUB Create.Menu (Num%, Caption$)ãDECLARE SUB Set.MenuTopic (Num%, Topic$)ãDECLARE SUB Main ()ãDECLARE SUB Set.MenuItem (MenuNum%, Num%, Caption$, Active AS STRING, Style AS STRING, Selected AS STRING)ãDECLARE FUNCTION Get.MenuItem$ (MenuNum%, Num%)ãDECLARE SUB Get.MenuItemInfo (MenuNum%, Num%, Style AS STRING, Selected AS STRING, HelpText AS STRING)ãDECLARE SUB Draw.Menu ()ãDECLARE SUB Init.Menu ()ãDECLARE FUNCTION Exist% (File$)ãDECLARE SUB MStatus (x%, y%, B1%, B2%)ãDECLARE SUB UpdateMouse ()ãDECLARE SUB PPrint (x%, y%, Text$, FCol%, BCol%)ãDECLARE SUB PokeChar (x%, y%, Char$, FCol%, BCol%)ãDECLARE FUNCTION PeekChar$ (x%, y%)ãDECLARE SUB Draw.Border (x%, y%, X2%, Y2%, FCol%, BCol%)ãDECLARE FUNCTION Get.MenuTopic$ (Num%)ãDECLARE FUNCTION PopupMenu% (x%, y%, Num%, Click%)ãDECLARE SUB MHide ()ãDECLARE SUB MShow ()ãDECLARE FUNCTION MInit! ()ãDEFINT A-ZããTYPE RegTypeã ax AS INTEGERã bx AS INTEGERã cx AS INTEGERã dx AS INTEGERã bp AS INTEGERã si AS INTEGERã di AS INTEGERã flags AS INTEGERãEND TYPEãããTYPE RegTypeXã ax AS INTEGERã bx AS INTEGERã cx AS INTEGERã dx AS INTEGERã bp AS INTEGERã si AS INTEGERã di AS INTEGERã flags AS INTEGERã ds AS INTEGERã es AS INTEGERãEND TYPEããããTYPE MenuItemTypeã Caption AS STRING * 50ã Active AS STRING * 1ã Style AS STRING * 1ã Selected AS STRING * 1ãEND TYPEããTYPE MenuTypeã Topics AS INTEGERã BarSize AS INTEGERã MenuFCol AS INTEGERã MenuBCol AS INTEGERã MenuDisabled AS INTEGERãEND TYPEããTYPE MenuSelectedTypeã Menu AS INTEGERã Item AS INTEGERãEND TYPEããTYPE DOSFileInfoã fiReserved AS STRING * 21 'for DOS' internal useã fiAttribute AS STRING * 1 'file attribute codeã fiFileTime AS INTEGER 'file time (in DOS format)ã fiFileDate AS INTEGER 'file date (in DOS format)ã fiSize AS LONG 'file size (in bytes)ã fiFileName AS STRING * 13 'file name (without path)ãEND TYPEããã' Type directory entry:ãCONST IsNONE = 0 'directory entry doesn't existãCONST IsFILE = 1 'is a fileãCONST IsDIRECTORY = 2 'is a directoryãCONST IsDEVICE = 3 'is a deviceãCONST IsVOLUME = 4 'is a volume labelãã' Maximum length of directory path in DOSãCONST MAXDOSPATH = 67ãã' Bit value of carry bit in flags registerãCONST CARRY = 1ãã' Boolean valuesãCONST False = 0, True = -1ãCONST Lines = 25ããCONST F.NOR = &H200 'constant for "normal" files (*files* displayed with DIR)ãCONST F.NON = &H100 'constant for files without any attributeãCONST F.ARC = &H20 'constant for archive file attributeãCONST F.DIR = &H10 'constant for directory file attributeãCONST F.VOL = &H8 'constant for volume file attributeãCONST F.SYS = &H4 'constant for system file attributeãCONST F.HID = &H2 'constant for hidden file attribute (may return directory)ãCONST F.RDO = &H1 'constant for read-only file attributeãCONST F.ANY = &H0 'constant for any of the aboveãã' Named common block with DOS error codeãCOMMON SHARED /DOSError/ DOSError AS INTEGERããDIM SHARED Pal AS STRING * 768ãDIM SHARED Regs AS RegTypeãDIM SHARED ASMMemCopy$ãDIM SHARED ASMFillChar$ãDIM SHARED Buffer(0 TO 319, 0 TO 199) AS STRING * 1ããDIM SHARED Powers(8) AS INTEGERãDIM SHARED Prefix(0 TO 4096) AS INTEGERãDIM SHARED Suffix(0 TO 4096) AS INTEGERãDIM SHARED OutCode(0 TO 1024) AS INTEGERãDIM SHARED codemask(12) AS INTEGERãDIM SHARED MaxCodes(12) AS INTEGERãDIM SHARED Powers2(16) AS INTEGERãDIM SHARED Xstart, XendãDIM SHARED FList AS STRING * 12ããDIM SHARED Num AS INTEGERãDIM SHARED Bitsin AS INTEGERãDIM SHARED BlockLength AS INTEGERãDIM SHARED FileInfo AS DOSFileInfoããasm$ = ""ãasm$ = asm$ + CHR$(85)ãasm$ = asm$ + CHR$(137) + CHR$(229)ãasm$ = asm$ + CHR$(30)ãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(10)ãasm$ = asm$ + CHR$(142) + CHR$(192)ãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(14)ãasm$ = asm$ + CHR$(142) + CHR$(216)ãasm$ = asm$ + CHR$(139) + CHR$(118) + CHR$(8)ãasm$ = asm$ + CHR$(139) + CHR$(126) + CHR$(12)ãasm$ = asm$ + CHR$(139) + CHR$(78) + CHR$(6)ãasm$ = asm$ + CHR$(243)ãasm$ = asm$ + CHR$(164)ãasm$ = asm$ + CHR$(31)ãasm$ = asm$ + CHR$(93)ãasm$ = asm$ + CHR$(203)ãASMMemCopy$ = asm$ãããasm$ = ""ãasm$ = asm$ + CHR$(85)ãasm$ = asm$ + CHR$(137) + CHR$(229)ãasm$ = asm$ + CHR$(139) + CHR$(78) + CHR$(6)ãasm$ = asm$ + CHR$(139) + CHR$(86) + CHR$(8)ãasm$ = asm$ + CHR$(139) + CHR$(70) + CHR$(12)ãasm$ = asm$ + CHR$(30)ãasm$ = asm$ + CHR$(142) + CHR$(216)ãasm$ = asm$ + CHR$(139) + CHR$(94) + CHR$(10)ãasm$ = asm$ + CHR$(136) + CHR$(23)ãasm$ = asm$ + CHR$(67)ãasm$ = asm$ + CHR$(226) + CHR$(251)ãasm$ = asm$ + CHR$(31)ãasm$ = asm$ + CHR$(93)ãasm$ = asm$ + CHR$(203)ãASMFillChar$ = asm$ããDIM SHARED MenuItems(1 TO 40) AS INTEGERãDIM SHARED MenuItem AS MenuItemTypeãDIM SHARED FBuffer(0 TO 2000) AS INTEGERãDIM SHARED QMenu AS MenuTypeãDIM SHARED MenuSelected AS MenuSelectedTypeããSCREEN 0: WIDTH 80, 25ãCOLOR 7, 0: CLSãIF NOT MInit THEN PRINT " þ Mouse not found!": ENDããIF Exist("Menuswap.tmp") = True THEN KILL "menuswap.tmp"ãIF Exist("Itemswap.tmp") = True THEN KILL "itemswap.tmp"ããOPEN "Menuswap.tmp" FOR BINARY AS #250ãOPEN "Itemswap.tmp" FOR BINARY AS #251ããSCREEN 0: WIDTH 80, 25ãCOLOR 7, 1: CLSãPALETTE 1, 40ãPALETTE 3, 35ããDraw.Border 1, 1, 80, 25, 7, 1ãVIEW PRINT 2 TO 25ããMShowãInit.MenuããDOã Mainãã IF MenuSelected.Menu = 2 THENã LOCATE 3ã SELECT CASE MenuSelected.Itemã CASE 1ã PrintText " þ View BMP File"ã File$ = QueryFile("*.BMP")ã IF File$ <> "" THENã IF Load.Image(File$, "BMP") THEN Show.Image ELSE DO: LOOP UNTIL INKEY$ <> ""ã END IFã ClearScreenã CASE 2ã PrintText " þ View PCX File"ã File$ = QueryFile("*.PCX")ã IF File$ <> "" THENã IF Load.Image(File$, "PCX") THEN Show.Image ELSE DO: LOOP UNTIL INKEY$ <> ""ã END IFã ClearScreenã CASE 3ã PrintText " þ View GIF File"ã File$ = QueryFile("*.GIF")ã IF File$ <> "" THENã IF Load.Image(File$, "GIF") THEN Show.Image ELSE DO: LOOP UNTIL INKEY$ <> ""ã END IFã ClearScreenãã CASE 4ã Show.Imageããã CASE 6ã PrintText " þ BSave BMP File"ã File$ = QueryFile("*.BMP")ã IF File$ <> "" THENã Save.Image File$, "BMP", "BSAVE"ã END IFã ClearScreenã CASE 7ã PrintText " þ BSave PCX File"ã File$ = QueryFile("*.PCX")ã IF File$ <> "" THENã Save.Image File$, "PCX", "BSAVE"ã END IFã ClearScreenã CASE 8ã PrintText " þ BSave GIF File"ã File$ = QueryFile("*.GIF")ã IF File$ <> "" THENã Save.Image File$, "GIF", "BSAVE"ã END IFã ClearScreenãã ã ã CASE 10ã PrintText " þ Save BMP File As Raw Data"ã File$ = QueryFile("*.BMP")ã IF File$ <> "" THENã Save.Image File$, "BMP", "RAW"ã END IFã ClearScreenã CASE 11ã PrintText " þ Save PCX File As Raw Data"ã File$ = QueryFile("*.PCX")ã IF File$ <> "" THENã Save.Image File$, "PCX", "RAW"ã END IFã ClearScreenã CASE 12ã PrintText " þ Save GIF File As Raw Data"ã File$ = QueryFile("*.GIF")ã IF File$ <> "" THENã Save.Image File$, "GIF", "RAW"ã END IFã ClearScreenãã ã CASE 14ã PrintText " þ Save BMP File As DATA Statements"ã File$ = QueryFile("*.BMP")ã IF File$ <> "" THENã Save.Image File$, "BMP", "DATA"ã END IFã ClearScreenã CASE 15ã PrintText " þ Save PCX File As DATA Statements"ã File$ = QueryFile("*.PCX")ã IF File$ <> "" THENã Save.Image File$, "PCX", "DATA"ã END IFã ClearScreenã CASE 16ã PrintText " þ Save GIF File As DATA Statements"ã File$ = QueryFile("*.GIF")ã IF File$ <> "" THENã Save.Image File$, "GIF", "DATA"ã END IFã ClearScreenãã END SELECTã END IFãã IF MenuSelected.Menu = 3 THENã LOCATE 3ã SELECT CASE MenuSelected.Itemã CASE 1ã PrintText " þ Edit Raw Palette"ã File$ = QueryFile("*.*")ã IF File$ <> "" THENã IF Load.Palette(File$, "RAW") THEN Edit.Palette ELSE DO: LOOP UNTIL INKEY$ <> ""ã END IFã ClearScreenã CASE 2ã PrintText " þ Save Raw Palette As BMP Palette"ã File$ = QueryFile("*.*")ã IF File$ <> "" THENã IF Load.Palette(File$, "RAW") THEN Save.Palette File$, "RAW", "BMP" ELSE DO: LOOP UNTIL INKEY$ <> ""ã END IFã ClearScreenãã CASE 4ã PrintText " þ View BMP Palette"ã File$ = QueryFile("*.BMP")ã IF File$ <> "" THENã IF Load.Palette(File$, "BMP") THEN View.Palette ELSE DO: LOOP UNTIL INKEY$ <> ""ã END IFã ClearScreenã CASE 5ã PrintText " þ View PCX Palette"ã File$ = QueryFile("*.PCX")ã IF File$ <> "" THENã IF Load.Palette(File$, "PCX") THEN View.Palette ELSE DO: LOOP UNTIL INKEY$ <> ""ã END IFã ClearScreenã CASE 6ã PrintText " þ View GIF Palette"ã File$ = QueryFile("*.GIF")ã IF File$ <> "" THENã IF Load.Palette(File$, "GIF") THEN View.Palette ELSE DO: LOOP UNTIL INKEY$ <> ""ã END IFã ClearScreenããã CASE 8ã PrintText " þ Save BMP Palette As Raw Data"ã File$ = QueryFile("*.BMP")ã IF File$ <> "" THENã Save.Palette File$, "BMP", "RAW"ã END IFã ClearScreenã CASE 9ã PrintText " þ Save PCX Palette As Raw Data"ã File$ = QueryFile("*.PCX")ã IF File$ <> "" THENã Save.Palette File$, "PCX", "RAW"ã END IFã ClearScreenã CASE 10ã PrintText " þ Save GIF Palette As Raw Data"ã File$ = QueryFile("*.GIF")ã IF File$ <> "" THENã Save.Palette File$, "GIF", "RAW"ã END IFã ClearScreenããã CASE 12ã PrintText " þ Save BMP Palette As DATA Statements"ã File$ = QueryFile("*.BMP")ã IF File$ <> "" THENã Save.Palette File$, "BMP", "DATA"ã END IFã ClearScreenã CASE 13ã PrintText " þ Save PCX Palette As DATA Statements"ã File$ = QueryFile("*.PCX")ã IF File$ <> "" THENã Save.Palette File$, "PCX", "DATA"ã END IFã ClearScreenã CASE 14ã PrintText " þ Save GIF Palette As DATA Statements"ã File$ = QueryFile("*.GIF")ã IF File$ <> "" THENã Save.Palette File$, "GIF", "DATA"ã END IFã ClearScreenã END SELECTã END IFãã ã IF MenuSelected.Menu = 4 THENã LOCATE 3ã SELECT CASE MenuSelected.Itemã CASE 1ã PrintText " þ Append BLoader"ã Append.Code "BLOAD"ã ClearScreenã CASE 2ã PrintText " þ Append RAW-Loader"ã Append.Code "RAW"ã ClearScreenã CASE 3ã PrintText " þ Append DATA-Loader"ã Append.Code "DATA"ã ClearScreenã ã CASE 5ã PrintText " þ Append RAW Palette Loader"ã Append.Code "PALETTE"ã ClearScreenã CASE 6ã PrintText " þ Append DATA Palette Loader"ã Append.Code "DATAPALETTE"ã ClearScreenã END SELECTã END IFãã IF MenuSelected.Menu = 1 AND MenuSelected.Item = 1 THEN About: ClearScreenããLOOP UNTIL MenuSelected.Menu = 1 AND MenuSelected.Item = 3ããMHideããCLOSE #250ãCLOSE #251ãIF Exist("Menuswap.tmp") = True THEN KILL "menuswap.tmp"ãIF Exist("Itemswap.tmp") = True THEN KILL "itemswap.tmp"ããCOLOR 7, 0: CLSãSYSTEMããGifDATA:ãDATA 4,8,16,&h20,&h40,&h80,&h100,&h200,&h400,&h800,&h1000,8192ãDATA 1,3,7,15,31,63,127,255ãDATA 1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384ããREM $STATICãSUB AboutãClearScreenãLOCATE 3ãPrintText " ú C O N V E R T - (C) Sami Ky”stil„ 1998 ú"ãPRINTãPrintText " Convert is a multifunctional image convertion utility for MS QB 4.5"ãPRINTãPrintText " This program can convert BMP/PCX/GIF files into formats that you can"ãPrintText " use in your own programs. It can also extract palettes from BMP/PCX/GIF"ãPrintText " files that you can edit and save to RAW palette files. If you are not"ãPrintText " sure how to load the files made by this program, not to worry! It even"ãPrintText " writes the loading routines for you!"ãPRINTãPrintText " Images can be saved into the following formats: BSAVE, RAW, and DATA"ãPRINTãPrintText " - BSAVE is a very fast format, good for full screen logos and such."ãPrintText " Palette can be appended to BSAVED files, too (320x200 only, see Options)"ãPrintText " - RAW is good for saving sprites and other small images. You can load these"ãPrintText " files on screen or into an array. Palette can't be saved with this format."ãPrintText " - DATA is also good for small images. These files are stored directly into"ãPrintText " a QBasic source file (QB45 File must be saved as ASCII)."ãPRINTãPrintText " ú Press any key to continue..."ãDO: LOOP UNTIL INKEY$ <> ""ããClearScreenãLOCATE 3ãPrintText " ú C O N V E R T - (C) Sami Ky”stil„ 1998 ú"ãPRINTãPrintText " Palettes can be saved into the following formats: RAW, and DATA"ãPRINTãPrintText " - RAW is a 768 byte binary file, that contains RGB format data."ãPrintText " - DATA is saved directly into a QBasic source file as DATA"ãPrintText " statements (QB45 File must be saved as ASCII)."ãPRINTãPrintText " NOTE: In order to edit BMP/PCX/GIF palettes, you must first save them"ãPrintText " to RAW palette data files and then edit those."ãPRINTãPrintText " ú This program is Freeware! ú"ãPRINTãPrintText " You may use any part of this code, as long as you give me some"ãPrintText " credit for it."ãPRINTãPrintText " This program was completely made by Sami Ky”stil„, except for:"ãPrintText " - The BMP-saving routine, which was made by Stephen L. Maxson"ãPrintText " - The BMP/PCX/GIF loaders were modified from Otso Karhu's/"ãPrintText " Kurt Kuzba's/Unknown's programs."ããPrintText " ú Press any key to continue..."ãDO: LOOP UNTIL INKEY$ <> ""ãEND SUBããSUB Append.Code (Code$)ãMHideããOut$ = RTRIM$(LTRIM$(UCASE$(Query(" Enter the output file ", "&0%7 Save Image ", 60, ""))))ãIF Out$ = "" THEN MShow: EXIT SUBããLOCATE 3ããOPEN Out$ FOR BINARY AS #1ãTemp$ = SPACE$(1)ãGET #1, , Temp$ãCLOSE #1ããIF Temp$ = CHR$(252) THENã PrintText " þ This file is probably a QB compressed file!"ã DO: LOOP UNTIL INKEY$ <> ""ã EXIT SUBãEND IFãããSELECT CASE Code$ãCASE "BLOAD"ã PrintText " þ Appending BLOADer..."ã OPEN Out$ FOR APPEND AS #1ã PRINT #1, ""ã PRINT #1, "DEFINT A-Z"ã PRINT #1, "SUB Load.BSave (File$)"ã PRINT #1, ""ã PRINT #1, "' BLOADER from CONVERT (C) Sami Ky”stil„ 1998"ã PRINT #1, ""ã PRINT #1, "DEF SEG = &HA000"ã PRINT #1, "BLOAD File$, 0"ã PRINT #1, "DEF SEG"ã PRINT #1, "File = FREEFILE"ã PRINT #1, "OPEN File$ FOR BINARY AS #File"ã PRINT #1, "IF LOF(File) > 320& * 200& THEN"ã PRINT #1, " TempPal$ = SPACE$(768)"ã PRINT #1, " GET #1, 320& * 200& + 7, TempPal$"ã PRINT #1, " FOR i& = 0 TO 255"ã PRINT #1, " r = ASC(MID$(TempPal$, (i& * 3) + 1, 1))"ã PRINT #1, " g = ASC(MID$(TempPal$, (i& * 3) + 2, 1))"ã PRINT #1, " b = ASC(MID$(TempPal$, (i& * 3) + 3, 1))"ã PRINT #1, " OUT (&H3C8), i&"ã PRINT #1, " OUT (&H3C9), r"ã PRINT #1, " OUT (&H3C9), g"ã PRINT #1, " OUT (&H3C9), b"ã PRINT #1, " NEXT"ã PRINT #1, "END IF"ã PRINT #1, "CLOSE File"ã PRINT #1, "END SUB"ã CLOSE #1ã PrintText " þ Done"ãCASE "RAW"ã PrintText " þ Appending RAW Loader..."ã OPEN Out$ FOR APPEND AS #1ã ã PRINT #1, "DEFINT A-Z"ã PRINT #1, "SUB Load.RAW (File$, XLen, YLen, Segment, Offset)"ã PRINT #1, ""ã PRINT #1, "' RAW Loader from CONVERT (C) Sami Ky”stil„ 1998"ã PRINT #1, ""ã PRINT #1, "File = FREEFILE"ã PRINT #1, "OPEN File$ FOR BINARY AS #File"ã PRINT #1, ""ã PRINT #1, "DIM ReadByte AS STRING * 1"ã PRINT #1, ""ã PRINT #1, "IF Segment <> -1 AND Offset <> -1 THEN"ã PRINT #1, " DEF SEG = Segment"ã PRINT #1, " POffset = Offset"ã PRINT #1, " FOR y = 0 TO YLen"ã PRINT #1, " FOR x = 0 TO XLen"ã PRINT #1, " GET #File, , ReadByte"ã PRINT #1, " POKE POffset, ASC(ReadByte)"ã PRINT #1, " POffset = POffset + 1"ã PRINT #1, " NEXT"ã PRINT #1, " NEXT"ã PRINT #1, "ELSE"ã PRINT #1, " DEF SEG = &HA000"ã PRINT #1, " FOR y = 0 TO YLen"ã PRINT #1, " FOR x = 0 TO XLen"ã PRINT #1, " GET #File, , ReadByte"ã PRINT #1, " POKE (CLNG(y) * 320& + CLNG(x)), ASC(ReadByte)"ã PRINT #1, " NEXT"ã PRINT #1, " NEXT"ã PRINT #1, "END IF"ã PRINT #1, "DEF SEG"ã PRINT #1, "END SUB"ã CLOSE #1ã PrintText " þ Done"ãCASE "DATA"ã PrintText " þ Appending DATA Loader..."ã OPEN Out$ FOR APPEND AS #1ã ã PRINT #1, "DEFINT A-Z"ã PRINT #1, "SUB Load.DATA (XLen, YLen, Segment, Offset)"ã PRINT #1, ""ã PRINT #1, "' DATA Loader from CONVERT (C) Sami Ky”stil„ 1998"ã PRINT #1, ""ã PRINT #1, "IF Segment <> -1 AND Offset <> -1 THEN"ã PRINT #1, " DEF SEG = Segment"ã PRINT #1, " FOR y = 0 TO YLen"ã PRINT #1, " FOR x = 0 TO XLen"ã PRINT #1, " READ ReadByte"ã PRINT #1, " POKE POffset, ReadByte"ã PRINT #1, " POffset = POffset + 1"ã PRINT #1, " NEXT"ã PRINT #1, " NEXT"ã PRINT #1, "ELSE"ã PRINT #1, " DEF SEG = &HA000"ã PRINT #1, " FOR y = 0 TO YLen"ã PRINT #1, " FOR x = 0 TO XLen"ã PRINT #1, " READ ReadByte"ã PRINT #1, " POKE (CLNG(y) * 320& + CLNG(x)), ReadByte"ã PRINT #1, " NEXT"ã PRINT #1, " NEXT"ã PRINT #1, "END IF"ã PRINT #1, "DEF SEG"ã PRINT #1, "CLOSE File"ã PRINT #1, ""ã PRINT #1, "END SUB"ã CLOSE #1ã PrintText " þ Done"ãCASE "PALETTE"ã PrintText " þ Appending Palette Loader..."ã OPEN Out$ FOR APPEND AS #1ãã PRINT #1, "DEFINT A-Z"ã PRINT #1, "SUB Load.Palette (File$)"ã PRINT #1, ""ã PRINT #1, "' RAW Palette Loader from CONVERT (C) Sami Ky”stil„ 1998"ã PRINT #1, ""ã PRINT #1, "DIM Bt AS STRING * 1"ã PRINT #1, "TempFile = FREEFILE"ã PRINT #1, "OPEN File$ FOR BINARY AS TempFile"ã PRINT #1, "FOR I = 0 TO 255"ã PRINT #1, " OUT &H3C8, I"ã PRINT #1, " GET #TempFile, , Bt"ã PRINT #1, " OUT &H3C9, ASC(Bt)"ã PRINT #1, " GET #TempFile, , Bt"ã PRINT #1, " OUT &H3C9, ASC(Bt)"ã PRINT #1, " GET #TempFile, , Bt"ã PRINT #1, " OUT &H3C9, ASC(Bt)"ã PRINT #1, "NEXT"ã PRINT #1, "CLOSE TempFile"ã PRINT #1, "END SUB"ã CLOSE #1ã PrintText " þ Done"ãCASE "DATAPALETTE"ã PrintText " þ Appending DATA Palette Loader..."ã OPEN Out$ FOR APPEND AS #1ã PRINT #1, "DEFINT A-Z"ã PRINT #1, "SUB Load.DATAPalette"ã PRINT #1, ""ã PRINT #1, "' DATA Palette Loader from CONVERT (C) Sami Ky”stil„ 1998"ã PRINT #1, ""ã PRINT #1, "FOR x = 0 TO 255"ã PRINT #1, " OUT (&H3C8), x - 1"ã PRINT #1, " READ Red, Green, Blue"ã PRINT #1, " OUT (&H3C9), Red"ã PRINT #1, " OUT (&H3C9), Green"ã PRINT #1, " OUT (&H3C9), Blue"ã PRINT #1, "NEXT"ã PRINT #1, "END SUB"ã CLOSE #1ã PrintText " þ Done"ãEND SELECTããPRINTãPrintText " ú Press any key to continue..."ãDO: LOOP UNTIL INKEY$ <> ""ãEND SUBããSUB Center (Text$, YPos)ãLOCATE YPos, 40 - RealLen(Text$) \ 2ãColPrint Text$ãEND SUBããSUB ClearScreenãMHideãPCOPY 0, 1ãSCREEN , , 0, 1ãCOLOR 7, 1: CLSãPALETTE 1, 40ãPALETTE 3, 35ãDraw.Border 1, 1, 80, 25, 7, 1ãDraw.MenuãSCREEN , , 0, 0ãMShowãEND SUBããSUB ColPrint (Text$)ã'----------------------------------------------------------------------------ã' SúYúSúTúEúMã'----------------------------------------------------------------------------ãã'----------------------------------------------------------------------------ã' Prints color-coded textã'----------------------------------------------------------------------------ã' Color codes:ã'ã' & followed by a color value between 0-15 (in hex)ã' % same as &, except for backround colorã'ã' Example:ã'ã' This text is &Credã'----------------------------------------------------------------------------ããFOR I = 1 TO LEN(Text$)ã Done = 0ã DOã IF MID$(Text$, I, 1) = "&" AND INSTR("0123456789ABCDEF", MID$(Text$, I + 1, 1)) AND I < LEN(Text$) THENã COLOR VAL("&H" + MID$(Text$, I + 1, 1))ã I = I + 2ã ELSEIF MID$(Text$, I, 1) = "%" AND INSTR("01234567", MID$(Text$, I + 1, 1)) AND I < LEN(Text$) THENã COLOR , VAL("&H" + MID$(Text$, I + 1, 1))ã I = I + 2ã ELSEã Done = 1ã END IFã LOOP UNTIL Doneã PRINT MID$(Text$, I, 1);ãNEXTããEND SUBããSUB Create.Menu (Num, Caption$)ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Creates a main menu number Num, with the text Caption$ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããIF Num >= QMenu.Topics THENã QMenu.Topics = QMenu.Topics + 1ã Num = QMenu.TopicsãEND IFãSet.MenuTopic Num, Caption$ãDraw.MenuãEND SUBããSUB Create.MenuItem (Num, Caption$, Style AS STRING, Selected AS STRING, Active AS STRING)ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Adds a menuitem into the menu Num with the text Caption$ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã'ã' Style - "1" or "0" - If 1, then Item can be toggled on/offã' else it is a normal menu itemã'ã' Selected - "1" or "0" - If Style = "1", then you can choose whether theã' item is initially selected or not (1/0)ã'ã' Active - "1" or "0" - Specifies if the menu item is active, orã' grayed out.ã'ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããSet.MenuItem Num, MenuItems(Num) + 1, Caption$, Active, Style, SelectedãMenuItems(Num) = MenuItems(Num) + 1ãEND SUBããFUNCTION DirEntry% (Entry AS STRING)ã'----------------------------------------------------------------------ã' Establishes if a directory entry exists and returns type of entryã' (file, subdirectory or device).ã' Type of directory entry returned by the function is one of theã' following values:ã' 0 (IsNONE )ã' 1 (IsFILE )ã' 2 (IsDIRECTORY)ã' 3 (IsDEVICE )ãã' Examples:ã' FileExist = (DirEntry(FileName$) = IsFILE)ã' DirExist = (DirEntry(FileName$) = IsDIRECTORY)ã'----------------------------------------------------------------------ã DIM fiAttrib AS INTEGERã DIM Temp AS STRINGã Temp$ = DirFirst$(Entry, &H77) 'attribute for everything except labelã IF LEN(Temp$) THENã fiAttrib = ASC(FileInfo.fiAttribute)ã IF fiAttrib AND &H40 THENã DirEntry% = IsDEVICEã ELSEIF fiAttrib AND &H10 THENã DirEntry% = IsDIRECTORYã ELSEã DirEntry% = IsFILEã END IFã ELSEã DirEntry% = IsNONEã END IFãEND FUNCTIONããFUNCTION DirFirst$ (Mask AS STRING, Attrib AS INTEGER)ã'----------------------------------------------------------------------ã' Gets the first file name with matching mask and attributesã' If an error is encountered the function returns "" as its value.ã'----------------------------------------------------------------------ã DIM MaskZ AS STRINGã DIM Reg AS RegTypeXã DIM Zero AS INTEGERã MaskZ = Mask + CHR$(0)ã SetDTA FileInfo ' Set up FileInfo as DTAã FileInfo.fiFileName = STRING$(13, 0) ' Clean the data structureã Reg.ax = &H4E00ã ' search attributes including read-only filesã Reg.cx = Attrib OR 1ã Reg.ds = VARSEG(MaskZ) ' address of file maskã Reg.dx = SADD(MaskZ)ã CALL InterruptX(&H21, Reg, Reg)ã IF (Reg.flags AND CARRY) THEN ' if errorã DOSError = Reg.ax ' error number in DOSErrorã DirFirst$ = ""ã ELSEã DOSError = 0ã Zero = INSTR(FileInfo.fiFileName, CHR$(0))ã DirFirst$ = LEFT$(FileInfo.fiFileName, Zero - 1) ' the file nameã END IFãEND FUNCTIONããFUNCTION DirNext$ã'----------------------------------------------------------------------ã' Gets the next file name with matching mask and attributes.ã' If an error is encountered the function returns "" as its value.ã'----------------------------------------------------------------------ã DIM Reg AS RegTypeXã DIM Zero AS INTEGERã FileInfo.fiFileName = STRING$(13, 0) ' Clean the data structureã Reg.ax = &H4F00ã CALL InterruptX(&H21, Reg, Reg)ã IF (Reg.flags AND CARRY) THEN ' if errorã DOSError = Reg.ax ' error number in DOSErrorã DirNext$ = ""ã ELSEã DOSError = 0ã Zero = INSTR(FileInfo.fiFileName, CHR$(0))ã DirNext$ = LEFT$(FileInfo.fiFileName, Zero - 1) ' the file nameã END IFãEND FUNCTIONããSUB Draw.Border (x, y, X2, Y2, FCol, BCol)ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Draws the menu borderã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããFOR I = x + 1 TO X2 - 1ã PokeChar I, y, "Ä", FCol, BColã PokeChar I, Y2, "Ä", FCol, BColãNEXTãFOR I = y + 1 TO Y2 - 1ã PokeChar x, I, "³", FCol, BColã PokeChar X2, I, "³", FCol, BColãNEXTãPokeChar x, y, "Ú", FCol, BColãPokeChar X2, y, "¿", FCol, BColããPokeChar x, Y2, "À", FCol, BColãPokeChar X2, Y2, "Ù", FCol, BColããEND SUBããSUB Draw.Menuã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Draws the menu bar at the top of the screenã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããMHideããIF QMenu.Topics > 0 THENã xx = 1ã yy = 1ã FOR I = 1 TO QMenu.Topicsã Menu$ = Get.MenuTopic$(I)ã IF xx + LEN(Menu$) + 2 < 81 THENã PPrint xx, yy, " " + Menu$ + " ", QMenu.MenuFCol, QMenu.MenuBColã xx = xx + LEN(Menu$) + 2ã ELSEã PPrint xx, yy, STRING$(80 - xx + 1, " "), QMenu.MenuFCol, QMenu.MenuBColã yy = yy + 1ã xx = 1ã PPrint xx, yy, " " + Menu$ + " ", QMenu.MenuFCol, QMenu.MenuBColã xx = xx + LEN(Menu$) + 2ã END IFã PPrint xx, yy, STRING$(80 - xx + 1, " "), QMenu.MenuFCol, QMenu.MenuBColã NEXTã QMenu.BarSize = yyãEND IFãMShowãEND SUBããSUB Draw.Palette (ActiveCol)ãBCol = FindBrightestColorãCol = 0ãFOR y = 20 TO 140 STEP 10ã FOR x = 20 TO 280 STEP 10ã LINE (x, y)-(x + 9, y + 9), Col, BFã IF Col = ActiveCol THENã LINE (x, y)-(x + 9, y + 9), BCol, Bã END IFã Col = Col + 1ã IF Col = 256 THEN EXIT SUBã NEXTãNEXTãEND SUBããSUB Draw.PaletteMenu (Col)ããCOLOR ColããLOCATE 16, 34ãPRINT "R G B"ãLINE (299, 130)-(300, 193), Col, BFãLINE (283, 130)-(284, 193), Col, BFãLINE (267, 130)-(268, 193), Col, BFããLOCATE 17, 1: PRINT "ÚÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄ¿"ãLOCATE 18, 1: PRINT "³ Save ³ Restore³"ãLOCATE 19, 1: PRINT "ÀÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÙ"ããLOCATE 20, 1: PRINT "ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿"ãLOCATE 21, 1: PRINT "³ Gradient ³ Smoothen ³"ãLOCATE 22, 1: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÙ"ããEND SUBããSUB DrawFileList (File, Offset, Selected, Max)ããBlockPos = (Selected + 1) / (Max) * (Lines - 9) + 4ããCOLOR 0, 7ãFOR I = 4 TO Lines - 5ã LOCATE I, 31ã IF I <> BlockPos THEN PRINT "°";ãNEXTãLOCATE BlockPos, 31ãPRINT "Û";ããLOCATE 3, 31ãPRINT CHR$(24);ãLOCATE Lines - 4, 31ãPRINT CHR$(25)ããCount = OffsetãSeekFileItem File, CountãFOR I = 3 TO Lines - 4ã GET #File, , FListã LOCATE I, 16ã IF Count = Selected THENã COLOR 15, 1ã ELSEã COLOR 7, 4ã END IFã IF FBuffer(Count) THENã COLOR 10ã PRINT CHR$(16);ã ELSEã PRINT " ";ã END IFã PRINT FList;ã Count = Count + 1ãNEXTããEND SUBããSUB DrawWindow (x, y, X2, Y2, FCol, BCol, Topic$, Shadow)ãSCREEN , , 1, 0ãPCOPY 0, 1ããCOLOR FCol, BColãXLen = X2 - xãLOCATE y, x, 0ãPRINT "Ú" + STRING$(XLen - 2, "Ä") + "¿";ããFOR I = y + 1 TO Y2 - 1ã LOCATE I, xã PRINT "³" + STRING$(XLen - 2, " ") + "³";ãNEXTãLOCATE Y2, x, 0ãPRINT "À" + STRING$(XLen - 2, "Ä") + "Ù";ããLOCATE y, x + ((X2 - x) \ 2) - RealLen(Topic$) \ 2ãColPrint Topic$ããPCOPY 1, 0ãSCREEN , , 0, 0ããIF Shadow = True THENã FOR I = y + 1 TO Y2 + 1ã PokeChar X2 + 0, I, PeekChar$(X2 + 0, I), 8, 0ã PokeChar X2 + 1, I, PeekChar$(X2 + 1, I), 8, 0ã NEXTãã FOR I = x + 2 TO X2 - 1ã PokeChar I, Y2 + 1, PeekChar$(I, Y2 + 1), 8, 0ã NEXTãEND IFããEND SUBããSUB Edit.PaletteãMHideããSCREEN 13: CLSããActiveCol = 0ãSet.PaletteãDraw.Palette ActiveColãOrgPal$ = PalãRotPal = -1ããCol = FindBrightestColorãDraw.PaletteMenu ColããMemCopy &HA000, 0, VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), &HFA00ãRBar = ASC(MID$(Pal, (ActiveCol * 3) + 1, 1))ãGBar = ASC(MID$(Pal, (ActiveCol * 3) + 2, 1))ãBBar = ASC(MID$(Pal, (ActiveCol * 3) + 3, 1))ããOrgPal$ = PalããGradient = 0ããDOã Key$ = UCASE$(INKEY$)ãã MStatus HiiriX%, HiiriY%, HiiriV%, HiiriO%ã Mx = HiiriX% \ 2ã My = HiiriY%ã Ml = HiiriV%ã Mr = HiiriO%ã IF OldMx <> Mx OR OldMy <> My THEN MouseMove = 1 ELSE MouseMove = 0ãã IF Ml = 0 AND Click = -1 THEN Click = 1 ELSE IF Ml = 0 THEN Click = 0ã IF Ml = -1 AND Click = 0 THEN Click = -1ãã IF MouseMove = 1 THENã WAIT &H3DA, 8ã WAIT &H3DA, 8, 8ã WAIT &H3DA, 8ã MemCopy VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), &HA000, 0, &HFA00ãã IF Gradient = 1 THENã LOCATE 1, 1ã PRINT "[GRADIENT] - Set color to fade to";ã END IFãã LINE (297, 193 - BBar)-(302, 193), Col, BFã LINE (281, 193 - GBar)-(286, 193), Col, BFã LINE (265, 193 - RBar)-(270, 193), Col, BFã PSET (Mx - 2, My), Colã PSET (Mx + 2, My), Colã PSET (Mx, My - 2), Colã PSET (Mx, My + 2), Colã ã PSET (Mx - 1, My), Colã PSET (Mx + 1, My), Colã PSET (Mx, My - 1), Colã PSET (Mx, My + 1), Colã END IFãã IF Mx > 20 AND My > 20 AND Mx < 289 AND My < 119 THENã IF Ml = -1 THENã OldCol = ActiveColã ActiveCol = POINT(Mx, My)ã IF OldCol <> ActiveCol THENã WAIT &H3DA, 8ã WAIT &H3DA, 8, 8ã WAIT &H3DA, 8ã MemCopy VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), &HA000, 0, &HFA00ã Draw.Palette ActiveColã MemCopy &HA000, 0, VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), &HFA00ã RBar = ASC(MID$(Pal, (ActiveCol * 3) + 1, 1))ã GBar = ASC(MID$(Pal, (ActiveCol * 3) + 2, 1))ã BBar = ASC(MID$(Pal, (ActiveCol * 3) + 3, 1))ã LINE (265, 193 - RBar)-(270, 193), Col, BFã LINE (281, 193 - GBar)-(286, 193), Col, BFã LINE (297, 193 - BBar)-(302, 193), Col, BFãã PSET (Mx - 2, My), Colã PSET (Mx + 2, My), Colã PSET (Mx, My - 2), Colã PSET (Mx, My + 2), Colã ã PSET (Mx - 1, My), Colã PSET (Mx + 1, My), Colã PSET (Mx, My - 1), Colã PSET (Mx, My + 1), Colã END IFã END IFã END IFãã' IF My >= 130 AND My <= 193 AND Ml = -1 AND MouseMove = 1 AND Gradient = 0 THENã IF My >= 130 AND My <= 193 AND Ml = -1 AND Gradient = 0 THENã IF Mx >= 265 AND Mx <= 270 THENã MID$(Pal, (ActiveCol * 3) + 1, 1) = CHR$(ABS(63 - (My - 130)))ã RBar = ASC(MID$(Pal, (ActiveCol * 3) + 1, 1))ã Set.Paletteã END IFã IF Mx >= 281 AND Mx <= 286 THENã MID$(Pal, (ActiveCol * 3) + 2, 1) = CHR$(ABS(63 - (My - 130)))ã GBar = ASC(MID$(Pal, (ActiveCol * 3) + 2, 1))ã Set.Paletteã END IFã IF Mx >= 297 AND Mx <= 302 THENã MID$(Pal, (ActiveCol * 3) + 3, 1) = CHR$(ABS(63 - (My - 130)))ã BBar = ASC(MID$(Pal, (ActiveCol * 3) + 3, 1))ã Set.Paletteã END IFã END IFãã IF Click = 1 THENã IF Mx >= 5 AND Mx <= 58 AND My >= 133 AND My <= 147 THENã LOCATE 23, 1: PRINT "[SAVE] - Enter Filename:"ã File$ = ""ã DOã Key$ = INKEY$ã WAIT &H3DA, 8ã LINE (TPos * 8, 24 * 8)-(TPos * 8 + 7, 24 * 8), 0ã IF Key$ = CHR$(13) THEN EXIT DOã IF Key$ = CHR$(27) THEN EXIT DOã File$ = InputField(File$, Key$, 30, TPos)ã LOCATE 24, 1: PRINT File$ + SPACE$(30 - LEN(File$));ã LINE (TPos * 8, 24 * 8)-(TPos * 8 + 7, 24 * 8), Colã LOOPã IF Key$ = CHR$(13) THENã OPEN File$ FOR BINARY AS #1ã PUT #1, , Palã CLOSE #1ã END IFã Key$ = ""ã END IFã ã IF Mx >= 61 AND Mx <= 130 AND My >= 133 AND My <= 147 THENã LOCATE 25, 1ã PRINT "[RESTORE] - Are you sure? [Y/N]";ã k$ = UCASE$(INPUT$(1))ã IF k$ = "Y" THEN Pal = OrgPal$: Set.Paletteã Col = FindBrightestColorã COLOR Colã RBar = ASC(MID$(Pal, (ActiveCol * 3) + 1, 1))ã GBar = ASC(MID$(Pal, (ActiveCol * 3) + 2, 1))ã BBar = ASC(MID$(Pal, (ActiveCol * 3) + 3, 1))ã LINE (265, 193 - RBar)-(270, 193), Col, BFã LINE (281, 193 - GBar)-(286, 193), Col, BFã LINE (297, 193 - BBar)-(302, 193), Col, BFã END IFãã IF Mx >= 5 AND Mx <= 90 AND My >= 157 AND My <= 171 THENã Gradient = 1ã GradientStart = ActiveColã END IFãã IF Mx >= 93 AND Mx <= 178 AND My >= 157 AND My <= 171 THENã SmoothPal 1ã Col = FindBrightestColorã COLOR Colã RBar = ASC(MID$(Pal, (ActiveCol * 3) + 1, 1))ã GBar = ASC(MID$(Pal, (ActiveCol * 3) + 2, 1))ã BBar = ASC(MID$(Pal, (ActiveCol * 3) + 3, 1))ã LINE (265, 193 - RBar)-(270, 193), Col, BFã LINE (281, 193 - GBar)-(286, 193), Col, BFã LINE (297, 193 - BBar)-(302, 193), Col, BFã END IFã END IFãã IF Gradient = 1 AND ActiveCol <> GradientStart THENã Gradient = 0ã IF ActiveCol < GradientStart THEN SWAP ActiveCol, GradientStartã r& = ASC(MID$(Pal, (GradientStart * 3) + 1, 1)) * 1024&ã g& = ASC(MID$(Pal, (GradientStart * 3) + 2, 1)) * 1024&ã b& = ASC(MID$(Pal, (GradientStart * 3) + 3, 1)) * 1024&ã Ln = ABS(ActiveCol - GradientStart)ã RDelta& = (ASC(MID$(Pal, (ActiveCol * 3) + 1, 1)) - ASC(MID$(Pal, (GradientStart * 3) + 1, 1))) / Ln * 1024&ã GDelta& = (ASC(MID$(Pal, (ActiveCol * 3) + 2, 1)) - ASC(MID$(Pal, (GradientStart * 3) + 2, 1))) / Ln * 1024&ã BDelta& = (ASC(MID$(Pal, (ActiveCol * 3) + 3, 1)) - ASC(MID$(Pal, (GradientStart * 3) + 3, 1))) / Ln * 1024&ã FOR I = GradientStart TO ActiveColã MID$(Pal, (I * 3) + 1, 1) = CHR$(ABS(r& \ 1024) MOD 256)ã MID$(Pal, (I * 3) + 2, 1) = CHR$(ABS(g& \ 1024) MOD 256)ã MID$(Pal, (I * 3) + 3, 1) = CHR$(ABS(b& \ 1024) MOD 256)ã r& = r& + RDelta&ã g& = g& + GDelta&ã b& = b& + BDelta&ã NEXTã Set.Paletteã END IFãã IF Key$ = "R" THENã RotPal = -RotPalã IF RotPal = -1 THENã Pal = RotPal$: Set.Paletteã ELSEã RotPal$ = Palã END IFã END IFãã IF RotPal = 1 THEN RotatePalãã OldMx = Mxã OldMy = Myãã IF Key$ = CHR$(27) AND Gradient = 1 THEN Gradient = 0: Key$ = ""ãã 'LOCATE 1, 1: PRINT Mx; My; ActiveColãLOOP UNTIL (Key$ = CHR$(27) AND Gradient = 0)ããSCREEN 0: WIDTH 80, 25ãCOLOR 7, 1: CLSãDraw.Border 1, 1, 80, 25, 7, 1ãDraw.MenuãMShowããEND SUBããSUB EraseMessageãPCOPY 2, 0ãIF Row > 0 THEN LOCATE RowãEND SUBããSUB ErrorDialog (Desc$)ãRow = CSRLINãPCOPY 0, 2ãDrawWindow 40 - RealLen(Desc$) \ 2 - 2, Lines \ 2 - 2, 40 + RealLen(Desc$) \ 2 + 3, Lines \ 2 + 2, 7, 4, "&0%7 Error ", TrueãCOLOR 14, 4ãCenter Desc$, Lines \ 2ãEND SUBããFUNCTION Exist% (File$)ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Checks if a file existsã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã'ã' File$ - File to checkã'ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Returns True if file exists, else Falseã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄãããIF File$ = "" THEN Exist = False: EXIT FUNCTIONãCheckfile = FREEFILEãOPEN File$ FOR BINARY AS #CheckfileãIF LOF(Checkfile) = 0 THENã Exist = Falseã CLOSE #Checkfileã KILL File$ãELSEã Exist = Trueã CLOSE #CheckfileãEND IFããEND FUNCTIONããSUB FillChar (Segment%, Offset%, Value%, Bytes%)ããDEF SEG = VARSEG(ASMFillChar$)ã CALL absolute(BYVAL Segment%, BYVAL Offset%, BYVAL Value%, BYVAL Bytes%, SADD(ASMFillChar$))ãDEF SEGããEND SUBããFUNCTION FindBrightestColorãBr = 0ãIndex = 0ãFOR I = 0 TO 255ã OUT &H3C7, Iã r = INP(&H3C9)ã g = INP(&H3C9)ã b = INP(&H3C9)ã IF (r + b + g) \ 3 > Br THEN Br = (r + b + g) \ 3: Index = IãNEXTãFindBrightestColor = IndexãEND FUNCTIONããSUB Gauge (XPos, YPos, XLen, Value&, Max&, Char$)ãLOCATE YPos, XPosãPRINT LEFT$(Char$, 1);ãPRINT STRING$(Value& / Max& * (XLen - 2), MID$(Char$, 3, 1));ãPRINT STRING$((XLen - 2) - (Value& / Max& * (XLen - 2)), MID$(Char$, 2, 1));ãPRINT MID$(Char$, 4, 1);ãEND SUBããFUNCTION Get.MenuItem$ (MenuNum, Num)ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Returns the menu item number Num caption in menu number MenuNumã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããSEEK #251, (CLNG(MenuNum - 1) * 6100) + (Num * 122)ãGET #251, , MenuItemãTemp$ = MenuItem.CaptionããTemp2$ = ""ãFOR I = 1 TO LEN(Temp$)ã IF NOT MID$(Temp$, I, 1) = CHR$(0) THEN Temp2$ = Temp2$ + MID$(Temp$, I, 1) ELSE EXIT FORãNEXTãGet.MenuItem$ = LTRIM$(RTRIM$(Temp2$))ãEND FUNCTIONããSUB Get.MenuItemInfo (MenuNum, Num, Style AS STRING, Selected AS STRING, Active AS STRING)ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Returns info about item number Num in menu MenuNumã' See SUB Create.MenuItem for info on menu item variables.ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããSEEK #251, (CLNG(MenuNum - 1) * 6100) + (Num * 122)ããGET #251, , MenuItemãStyle = MenuItem.StyleãSelected = MenuItem.SelectedãActive = MenuItem.ActiveããEND SUBããFUNCTION Get.MenuTopic$ (Num)ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Returns the caption of a main menu item number Numã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããSEEK #250, CLNG(Num) * 16ãTemp$ = SPACE$(16)ãGET #250, , Temp$ãTemp2$ = ""ãFOR I = 1 TO LEN(Temp$)ã IF NOT MID$(Temp$, I, 1) = CHR$(0) THEN Temp2$ = Temp2$ + MID$(Temp$, I, 1) ELSE EXIT FORãNEXTãGet.MenuTopic$ = LTRIM$(RTRIM$(Temp2$))ãEND FUNCTIONããFUNCTION Getbit STATICããSHARED ByteBuffer AS STRING * 1, Powers() AS INTEGER, Bitsin AS INTEGER, BlockLength AS INTEGER, Num AS INTEGERãBitsin = Bitsin + 1ããIF Bitsin = 9 THENã GET #1, , ByteBufferã TempChar = ASC(ByteBuffer)ã Bitsin = 1ã Num = Num + 1ã IF Num = BlockLength THENã BlockLength = TempChar + 1ã GET #1, , ByteBufferã TempChar = ASC(ByteBuffer)ã Num = 1ã END IFãEND IFããIF (TempChar AND Powers(Bitsin)) = 0 THEN Getbit = 0 ELSE Getbit = 1ããEND FUNCTIONããSUB GetFileInfo (pFileInfo AS DOSFileInfo)ã'----------------------------------------------------------------------ã' Gets FileInfo about file which name was returned by DirFirst/DirNextã'----------------------------------------------------------------------ã pFileInfo = FileInfoãEND SUBããSUB Init.Menuã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Call this at the start of your programs, initializes the menuã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããQMenu.MenuFCol = 0ãQMenu.MenuBCol = 3ãQMenu.MenuDisabled = 8ããCreate.Menu 1, "Program"ãCreate.Menu 2, "Image"ãCreate.Menu 3, "Palette"ãCreate.Menu 4, "Code"ãCreate.Menu 5, "Options"ãã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããCreate.MenuItem 1, "About", "0", "0", "1"ãCreate.MenuItem 1, "-", "0", "0", "1"ãCreate.MenuItem 1, "Quit", "0", "0", "1"ãã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããCreate.MenuItem 2, "View BMP...", "0", "0", "1"ãCreate.MenuItem 2, "View PCX...", "0", "0", "1"ãCreate.MenuItem 2, "View GIF...", "0", "0", "1"ãCreate.MenuItem 2, "View Currently Loaded Image...", "0", "0", "1"ãCreate.MenuItem 2, "-", "0", "0", "1"ãCreate.MenuItem 2, "BSave BMP...", "0", "0", "1"ãCreate.MenuItem 2, "BSave PCX...", "0", "0", "1"ãCreate.MenuItem 2, "BSave GIF...", "0", "0", "1"ãCreate.MenuItem 2, "-", "0", "0", "1"ãCreate.MenuItem 2, "Save BMP As Raw Byte Data...", "0", "0", "1"ãCreate.MenuItem 2, "Save PCX As Raw Byte Data...", "0", "0", "1"ãCreate.MenuItem 2, "Save GIF As Raw Byte Data...", "0", "0", "1"ãCreate.MenuItem 2, "-", "0", "0", "1"ãCreate.MenuItem 2, "Save BMP As DATA Statements...", "0", "0", "1"ãCreate.MenuItem 2, "Save PCX As DATA Statements...", "0", "0", "1"ãCreate.MenuItem 2, "Save GIF As DATA Statements...", "0", "0", "1"ãã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããCreate.MenuItem 3, "Edit Raw Palette...", "0", "0", "1"ãCreate.MenuItem 3, "Save Raw Palette As BMP Palette...", "0", "0", "1"ãCreate.MenuItem 3, "-", "0", "0", "1"ãCreate.MenuItem 3, "View BMP Palette...", "0", "0", "1"ãCreate.MenuItem 3, "View PCX Palette...", "0", "0", "1"ãCreate.MenuItem 3, "View GIF Palette...", "0", "0", "1"ãCreate.MenuItem 3, "-", "0", "0", "1"ãCreate.MenuItem 3, "Save BMP Palette As Raw Byte Data...", "0", "0", "1"ãCreate.MenuItem 3, "Save PCX Palette As Raw Byte Data...", "0", "0", "1"ãCreate.MenuItem 3, "Save GIF Palette As Raw Byte Data...", "0", "0", "1"ãCreate.MenuItem 3, "-", "0", "0", "1"ãCreate.MenuItem 3, "Save BMP Palette As DATA Statements...", "0", "0", "1"ãCreate.MenuItem 3, "Save PCX Palette As DATA Statements...", "0", "0", "1"ãCreate.MenuItem 3, "Save GIF Palette As DATA Statements...", "0", "0", "1"ãã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããCreate.MenuItem 4, "Append BLoader...", "0", "0", "1"ãCreate.MenuItem 4, "Append Raw Byte Loader...", "0", "0", "1"ãCreate.MenuItem 4, "Append DATA Loader...", "0", "0", "1"ãCreate.MenuItem 4, "-", "0", "0", "1"ãCreate.MenuItem 4, "Append Palette Loader...", "0", "0", "1"ãCreate.MenuItem 4, "Append DATA Statement Palette Loader...", "0", "0", "1"ãã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããCreate.MenuItem 5, "Add Palette To BSaved File (320x200 Only)", "1", "0", "1"ããEND SUBããFUNCTION InputField$ (Text$, Key$, MaxLen, TPos)ãIF Key$ = "" THEN InputField$ = Text$: EXIT FUNCTIONããSELECT CASE Key$ãCASE IS = CHR$(8)ã IF LEN(Text$) > 0 THENã Text$ = LEFT$(Text$, TPos - 1) + MID$(Text$, TPos + 1, 255)ã TPos = TPos - 1ã IF TPos = -1 THEN TPos = 0ã Key$ = ""ã ELSEã Key$ = ""ã END IFãCASE IS = CHR$(0) + CHR$(75)ã IF TPos > 0 THEN TPos = TPos - 1ã Key$ = ""ãCASE IS = CHR$(0) + CHR$(77)ã TPos = TPos + 1ã IF TPos > MaxLen THEN TPos = MaxLenã IF TPos > LEN(Text$) THEN TPos = LEN(Text$)ã Key$ = ""ãCASE IS = CHR$(0) + "S"ã Text$ = LEFT$(Text$, TPos) + MID$(Text$, TPos + 2, 255)ã Key$ = ""ãCASE IS = CHR$(9)ã Key$ = ""ãEND SELECTããIF LEFT$(Key$, 1) = CHR$(0) THEN Key$ = ""ããIF Key$ <> "" THENã Text$ = LEFT$(Text$, TPos) + Key$ + MID$(Text$, TPos + 1, 255)ã IF LEN(Text$) > MaxLen THEN Text$ = LEFT$(Text$, MaxLen)ã TPos = TPos + 1ã IF TPos > MaxLen THEN TPos = MaxLenãEND IFããInputField$ = Text$ããEND FUNCTIONããSUB Load.BSave (File$)ããDEF SEG = &HA000ãBLOAD File$, 0ãDEF SEGãFile = FREEFILEãOPEN File$ FOR BINARY AS #FileãIF LOF(File) > 320& * 200& THENã TempPal$ = SPACE$(768)ã GET #1, 320& * 200& + 7, TempPal$ã FOR I& = 0 TO 255ã r = ASC(MID$(TempPal$, (I& * 3) + 1, 1))ã g = ASC(MID$(TempPal$, (I& * 3) + 2, 1))ã b = ASC(MID$(TempPal$, (I& * 3) + 3, 1))ã OUT (&H3C8), I&ã OUT (&H3C9), rã OUT (&H3C9), gã OUT (&H3C9), bã NEXTãEND IFãCLOSE FileããEND SUBããSUB Load.DATA (XLen, YLen, Segment, Offset)ããIF Segment <> -1 AND Offset <> -1 THENã DEF SEG = Segmentã FOR y = 0 TO YLenã FOR x = 0 TO XLenã READ ReadByteã POKE POffset, ReadByteã POffset = POffset + 1ã NEXTã NEXTãELSEã DEF SEG = &HA000ã FOR y = 0 TO YLenã FOR x = 0 TO XLenã READ ReadByteã POKE (CLNG(y) * 320& + CLNG(x)), ReadByteã NEXTã NEXTãEND IFãDEF SEGãCLOSE FileããEND SUBããFUNCTION Load.Image (File$, Format$)ãMHideãCOLOR 7ãLOCATE 3, 3ãPal = ""ããIF Exist(File$) = False THEN Load.Image = False: PrintText "File not found!": EXIT FUNCTIONãClearScreenããFillChar VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), 0, &HFA00ãCOLOR 7ãLOCATE 3, 3ããPrintText "Loading " + UCASE$(File$) + "..."ããSELECT CASE UCASE$(Format$)ãCASE "BMP"ã DIM Tavu AS STRING * 1ãã OPEN File$ FOR BINARY AS #1 ' Avataan tiedosto binaarimuodossa.ãã FOR Otto = 1 TO 2ã GET #1, , Tavuã Tyyppi$ = Tyyppi$ + Tavuã NEXTãã IF Tyyppi$ <> "BM" THENã CLOSE #1ã PrintText " þ BMP: File is corrupted"ã Load.Image = False: EXIT FUNCTIONã END IFãã GET #1, 11, Tavu 'Ottaa tavusta tiedon, mihin palettitiedotã PaletinLoppu = ASC(Tavu) 'loppuvat.ãã GET #1, , Tavu 'Sama kuin yll„.ã PaletinLoppu = PaletinLoppu + ASC(Tavu) * 256ãã GET #1, 19, Tavu 'Kuvan leveys tavuista 19 ja 20.ã Leveys = ASC(Tavu)ãã GET #1, , Tavuã Leveys = Leveys + ASC(Tavu) * 256ãã GET #1, 23, Tavu 'Kuvan korkeus tavuista 23 ja 24.ã Korkeus = ASC(Tavu)ãã GET #1, , Tavuã Korkeus = Korkeus + ASC(Tavu) * 256ãã GET #1, 29, Tavu 'Tieto kuvan tyypist„ tavusta 29.ã IF ASC(Tavu) <> 8 THENã PrintText " þ BMP: Color depth not 8-bits!"ã CLOSE #1ã Load.Image = False: EXIT FUNCTIONã END IFãã PrintText " þ BMP: Loading palette..."ã FOR I = 0 TO 255ã GET #1, 54 + I * 4 + 3, Tavuã MID$(Pal, (I * 3) + 1, 1) = CHR$(ASC(Tavu) \ 4)ãã GET #1, 54 + I * 4 + 2, Tavuã MID$(Pal, (I * 3) + 2, 1) = CHR$(ASC(Tavu) \ 4)ãã GET #1, 54 + I * 4 + 1, Tavuã MID$(Pal, (I * 3) + 3, 1) = CHR$(ASC(Tavu) \ 4)ã NEXTãã JotainTarkistuksia = (LOF(1) - PaletinLoppu) / Korkeus - Leveysãã RuudulleMahtuvaKorkeus = Korkeus - 1ã RuudulleMahtuvaLeveys = Leveys - 1ãã IF Korkeus - 1 > 199 THEN RuudulleMahtuvaKorkeus = 199ã IF Leveys - 1 > 319 THEN RuudulleMahtuvaLeveys = 319ãã IF Leveys < 320 THEN XAlku = (320 - Leveys) / 2ã IF Korkeus < 200 THEN YAlku = (200 - Korkeus) / 2ãã PrintText " þ BMP: Loading data..."ãã Rivi = CSRLIN - 1ã COLOR 14ã FOR y = 0 TO RuudulleMahtuvaKorkeusã FOR x = 0 TO RuudulleMahtuvaLeveysã GET #1, PaletinLoppu + 1 + Korkeus * CLNG(Leveys + JotainTarkistuksia) - (y + 1) * CLNG(Leveys + JotainTarkistuksia) + x, Tavuã Buffer(x, y) = Tavuã NEXTã Gauge 40, INT(Rivi), 20, LOF(1) - SEEK(1), LOF(1), "[úþ]"ã NEXTã COLOR 7, 1ã CLOSE #1ã PrintText ""ã PrintText " þ BMP: File loaded successfully!"ããCASE "PCX"ã PrintText " þ PCX: Loading palette..."ã OPEN File$ FOR BINARY AS #1ã fin& = LOF(1) - 767ã SEEK #1, fin&ã Pal = INPUT$(768, 1)ã FOR I = 1 TO 768ã MID$(Pal, I, 1) = CHR$(ABS(ASC(MID$(Pal, I, 1)) \ 4))ã NEXTãã SEEK #1, 129ã rle% = 0ãã PrintText " þ PCX: Loading data..."ã ã Rivi = CSRLIN - 1ã COLOR 14ã DOã p$ = INPUT$(256, 1): fpos& = SEEK(1): L% = LEN(p$)ã IF fpos& > fin& THENã L% = L% - (fpos& - fin&): p$ = LEFT$(p$, L%): View$ = "done"ã END IFã FOR p% = 1 TO L%ã dat% = ASC(MID$(p$, p%))ã IF rle% = 0 THENã IF (dat% AND 192) = 192 THENã rle% = dat% AND 63ã ELSEã x = t& MOD 320ã y = t& \ 320ã IF x > 0 AND x < 320 AND y > 0 AND y < 200 THEN Buffer(x, y) = CHR$(dat%)ã t& = t& + 1ã END IFã ELSEã FOR rle% = rle% TO 1 STEP -1ã x = t& MOD 320ã y = t& \ 320ã IF x > 0 AND x < 320 AND y > 0 AND y < 200 THEN Buffer(x, y) = CHR$(dat%)ã t& = t& + 1ã NEXTã END IFã Gauge 40, INT(Rivi), 20, SEEK(1), LOF(1), "[úþ]"ã NEXTã LOOP UNTIL View$ = "done"ã CLOSE 1ã PrintText ""ã PrintText " þ PCX: File loaded successfully!"ããCASE "GIF"ã DIM ByteBuffer AS STRING * 1ãã RESTORE GifDATAãã FOR a = 1 TO 8: Powers(a) = 2 ^ (a - 1): NEXTã FOR a = 0 TO 11: READ MaxCodes(a): NEXTã FOR a = 1 TO 8: READ codemask(a): NEXTã FOR a = 0 TO 14: READ Powers2(a): NEXTãã Num = 0ãã OPEN File$ FOR BINARY AS #1ãã FOR a = 1 TO 6ã GET #1, , ByteBuffer: a$ = a$ + ByteBufferã NEXTãã IF a$ <> "GIF87a" THENã CLOSE #1ã PrintText " þ GIF: File format is not GIF7a"ã Load.Image = False: EXIT FUNCTIONã END IFãã GET #1, , TotalXã GET #1, , TotalYã GET #1, , ByteBuffer: a = ASC(ByteBuffer)ãã BitsPixel = (a AND 7) + 1ã GET #1, , ByteBuffer: Background = ASC(ByteBuffer)ãã GET #1, , ByteBufferãã IF ASC(ByteBuffer) <> 0 THENã CLOSE #1ã PrintText " þ GIF: Bad file."ã Load.Image = False: EXIT FUNCTIONã END IFãã PrintText " þ GIF: Loading palette..."ãã FOR a = 0 TO 2 ^ BitsPixel - 1ã GET #1, , ByteBuffer: Red = ASC(ByteBuffer)ã GET #1, , ByteBuffer: Green = ASC(ByteBuffer)ã GET #1, , ByteBuffer: Blue = ASC(ByteBuffer)ã ã MID$(Pal, (a * 3) + 1, 1) = CHR$(Red \ 4)ã MID$(Pal, (a * 3) + 2, 1) = CHR$(Green \ 4)ã MID$(Pal, (a * 3) + 3, 1) = CHR$(Blue \ 4)ã NEXTãã GET #1, , ByteBufferãã IF ByteBuffer <> "," THENã CLOSE #1ã PrintText " þ GIF: Bad file."ã Load.Image = False: EXIT FUNCTIONã END IFãã GET #1, , Xstartã GET #1, , Ystartã GET #1, , Xlengthã GET #1, , Ylengthãã Xend = Xlength + Xstart - 1: Yend = Ylength + Ystart - 1ã GET #1, , ByteBufferãã a = ASC(ByteBuffer)ãã IF (a AND 128) = 128 THENã PrintText " þ GIF: Local colormap encountered."ã CLOSE #1ã Load.Image = False: EXIT FUNCTIONã ELSEIF (a AND 64) = 64 THENã PrintText " þ GIF: Image is interlaced!"ã CLOSE #1ã Load.Image = False: EXIT FUNCTIONã END IFãã GET #1, , ByteBufferã CodeSize = ASC(ByteBuffer): ClearCode = Powers2(CodeSize)ã EOFCode = ClearCode + 1: FirstFree = ClearCode + 2ã FreeCode = FirstFree: CodeSize = CodeSize + 1ãã InitCodeSize = CodeSize: Maxcode = MaxCodes(CodeSize - 2)ã Bitmask = codemask(BitsPixel)ãã GET #1, , ByteBufferã BlockLength = ASC(ByteBuffer) + 1: Bitsin = 8ã OutCount = 0ãã x = 1: y = 1ã ã ã PrintText " þ GIF: Loading data..."ãã OutCount = 0ãã Rivi = CSRLIN - 1ã COLOR 14ãã DOã Code = ReadCode(CodeSize)ã IF Code <> EOFCode THENã IF Code = ClearCode THENã CodeSize = InitCodeSizeã Maxcode = MaxCodes(CodeSize - 2): FreeCode = FirstFreeã Code = ReadCode(CodeSize): CurCode = Codeã OldCode = Code: FinChar = Code AND Bitmaskã Plot FinCharã ELSEã CurCode = Code: InCode = Codeã IF Code >= FreeCode THENã CurCode = OldCodeã OutCode(OutCount) = FinCharã OutCount = OutCount + 1ã END IFãã IF CurCode > Bitmask THENã DOã OutCode(OutCount) = Suffix(CurCode)ã OutCount = OutCount + 1ã CurCode = Prefix(CurCode)ã LOOP UNTIL CurCode <= Bitmaskã END IFãã FinChar = CurCode AND Bitmaskã OutCode(OutCount) = FinCharã OutCount = OutCount + 1ãã FOR I = OutCount - 1 TO 0 STEP -1ã IF x% > 0 AND y% > 0 AND x% < 320 AND y% < 200 THEN Buffer(x%, y%) = CHR$(OutCode(I))ã x% = x% + 1ãã IF x% > Xend% THENã x% = 0ã y% = y% + 1ã END IFã NEXTãã OutCount = 0ã Prefix(FreeCode) = OldCode: Suffix(FreeCode) = FinCharã OldCode = InCode: FreeCode = FreeCode + 1ã IF FreeCode >= Maxcode THENã IF CodeSize < 12 THENã CodeSize = CodeSize + 1: Maxcode = Maxcode * 2ã END IFã END IFã END IFã END IFã Gauge 40, INT(Rivi), 20, SEEK(1), LOF(1), "[úþ]"ã LOOP UNTIL Code = EOFCodeã ã COLOR 7ã CLOSE #1ã PrintText ""ã PrintText " þ GIF: File loaded successfully!"ãCASE ELSEã Load.Image = Falseã CLOSE #1ã PrintText "Only BMP/PCX/GIF formats supported!"ã EXIT FUNCTIONãEND SELECTãCLOSE #1, #2ãLoad.Image = TrueãMShowãEND FUNCTIONããFUNCTION Load.Palette (File$, Format$)ãMHideããCOLOR 7ãLOCATE 3, 3ãIF Exist(File$) = False THEN Load.Palette = False: PrintText "File not found!": EXIT FUNCTIONãClearScreenããFillChar VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), 0, &HFA00ãCOLOR 7ãLOCATE 3, 3ãPrintText "Loading palette from " + UCASE$(File$) + "..."ããSELECT CASE UCASE$(Format$)ãCASE "BMP"ã DIM Tavu AS STRING * 1ãã OPEN File$ FOR BINARY AS #1 ' Avataan tiedosto binaarimuodossa.ãã FOR Otto = 1 TO 2ã GET #1, , Tavuã Tyyppi$ = Tyyppi$ + Tavuã NEXTãã IF Tyyppi$ <> "BM" THENã CLOSE #1ã PrintText " þ BMP: File is corrupted"ã Load.Palette = False: EXIT FUNCTIONã END IFãã GET #1, 11, Tavu 'Ottaa tavusta tiedon, mihin palettitiedotã PaletinLoppu = ASC(Tavu) 'loppuvat.ãã GET #1, 29, Tavu 'Tieto kuvan tyypist„ tavusta 29.ã IF ASC(Tavu) <> 8 THENã PrintText " þ BMP: Color depth not 8-bits!"ã CLOSE #1ã Load.Palette = False: EXIT FUNCTIONã END IFãã PrintText " þ BMP: Loading palette..."ã FOR I = 0 TO 255ã GET #1, 54 + I * 4 + 3, Tavuã MID$(Pal, (I * 3) + 1, 1) = CHR$(ASC(Tavu) \ 4)ãã GET #1, 54 + I * 4 + 2, Tavuã MID$(Pal, (I * 3) + 2, 1) = CHR$(ASC(Tavu) \ 4)ãã GET #1, 54 + I * 4 + 1, Tavuã MID$(Pal, (I * 3) + 3, 1) = CHR$(ASC(Tavu) \ 4)ã NEXTãã COLOR 7, 1ã CLOSE #1ã PrintText " þ BMP: Palette loaded successfully!"ãCASE "PCX"ã PrintText " þ PCX: Loading palette..."ã OPEN File$ FOR BINARY AS #1ã fin& = LOF(1) - 767ã SEEK #1, fin&ã Pal = INPUT$(768, 1)ã FOR I = 1 TO 768ã MID$(Pal, I, 1) = CHR$(ABS(ASC(MID$(Pal, I, 1)) \ 4))ã NEXTã PrintText " þ PCX: Palette loaded successfully!"ããCASE "GIF"ã DIM ByteBuffer AS STRING * 1ãã OPEN File$ FOR BINARY AS #1ãã FOR a = 1 TO 6ã GET #1, , ByteBuffer: a$ = a$ + ByteBufferã NEXTãã IF a$ <> "GIF87a" THENã CLOSE #1ã PrintText " þ GIF: File format is not GIF7a"ã Load.Palette = False: EXIT FUNCTIONã END IFãã GET #1, , TotalXã GET #1, , TotalYã GET #1, , ByteBuffer: a = ASC(ByteBuffer)ãã BitsPixel = (a AND 7) + 1ã GET #1, , ByteBuffer: Background = ASC(ByteBuffer)ãã GET #1, , ByteBufferãã IF ASC(ByteBuffer) <> 0 THENã CLOSE #1ã PrintText " þ GIF: Bad file."ã Load.Palette = False: EXIT FUNCTIONã END IFãã PrintText " þ GIF: Loading palette..."ãã FOR a = 0 TO 2 ^ BitsPixel - 1ã GET #1, , ByteBuffer: Red = ASC(ByteBuffer)ã GET #1, , ByteBuffer: Green = ASC(ByteBuffer)ã GET #1, , ByteBuffer: Blue = ASC(ByteBuffer)ã ã MID$(Pal, (a * 3) + 1, 1) = CHR$(Red \ 4)ã MID$(Pal, (a * 3) + 2, 1) = CHR$(Green \ 4)ã MID$(Pal, (a * 3) + 3, 1) = CHR$(Blue \ 4)ã NEXTãã COLOR 7ã CLOSE #1ã PrintText " þ GIF: Palette loaded successfully!"ãCASE "RAW"ã PrintText " þ Loading Raw Palette..."ã OPEN File$ FOR BINARY AS #1ã GET #1, , Palã CLOSE #1ã PrintText " þ Palette loaded successfully!"ãCASE ELSEã Load.Palette = Falseã PrintText "Only BMP/PCX/GIF formats supported!"ã CLOSE #1ã EXIT FUNCTIONãEND SELECTãCLOSE #1, #2ãLoad.Palette = TrueãMShowãEND FUNCTIONããSUB Load.RAW (File$, XLen, YLen, Segment, Offset)ãFile = FREEFILEãOPEN File$ FOR BINARY AS #FileããDIM ReadByte AS STRING * 1ããIF Segment <> -1 AND Offset <> -1 THENã DEF SEG = Segmentã POffset = Offsetã FOR y = 0 TO YLenã FOR x = 0 TO XLenã GET #File, , ReadByteã POKE POffset, ASC(ReadByte)ã POffset = POffset + 1ã NEXTã NEXTãELSEã DEF SEG = &HA000ã FOR y = 0 TO YLenã FOR x = 0 TO XLenã GET #File, , ReadByteã POKE (CLNG(y) * 320& + CLNG(x)), ASC(ReadByte)ã 'PSET (x, y), ASC(ReadByte)ã NEXTã NEXTãEND IFãDEF SEGãCLOSE FileãEND SUBããFUNCTION LongToString$ (L&)ããB4% = L& \ 16777216ãL& = L& - B4% * 16777216ãB3% = L& \ 65536ãL& = L& - B3% * 65536ãB2% = L& \ 256ãL& = L& - CLNG(B2%) * 256ãB1% = L&ãLongToString$ = CHR$(B1%) + CHR$(B2%) + CHR$(B3%) + CHR$(B4%)ããEND FUNCTIONããSUB Mainã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Handles the mouse and menu.ã' Call this once per frame.ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããSTATIC ClickããREDIM Ml&(0 TO 1)ãMl&(0) = &HB31003B8ãMl&(1) = &HCB10CD00ãDEF SEG = VARSEG(Ml&(0))ãCALL absolute(VARPTR(Ml&(0)))ãERASE Ml&ãããMenuSelected.Menu = 0ãMenuSelected.Item = 0ããMStatus HiiriX%, HiiriY%, HiiriV%, HiiriO%ãMx = HiiriX% \ 8 + 1ãMy = HiiriY% \ 8 + 1ãMl = HiiriV%ãMr = HiiriO%ããIF Ml = 0 AND Click = -1 THEN Click = 1 ELSE IF Ml = 0 THEN Click = 0ãIF Ml = -1 AND Click = 0 THEN Click = -1ããDEF SEG = &H40ãIF ((PEEK(&H17) AND &H8) / &H8) AND DragWin = 0 THENã Mx = 1ã My = 1ã Click = 1ãEND IFãDEF SEGããIF My <= QMenu.BarSize AND Click = 1 THENã IF QMenu.Topics > 0 THENã xx = 1ã yy = 1ã FOR I = 1 TO QMenu.Topicsã Menu$ = Get.MenuTopic$(I)ã IF xx + LEN(Menu$) + 2 < 81 THENã xx = xx + LEN(Menu$) + 2ã ELSEã yy = yy + 1ã xx = 1ã xx = xx + LEN(Menu$) + 2ã END IFã IF Mx >= xx - LEN(Menu$) - 2 AND Mx < xx AND My = yy THENã NewPopup = Iã DOã MHideã PPrint xx - LEN(Menu$) - 2, yy, " " + Menu$ + " ", QMenu.MenuBCol, QMenu.MenuFColã MShowã NewPopup = PopupMenu(xx - LEN(Menu$) - 2, yy + 1, NewPopup, Click)ã MStatus HiiriX%, HiiriY%, HiiriV%, HiiriO%ã Mx = HiiriX% \ 8 + 1ã My = HiiriY% \ 8 + 1ã MHideã PPrint xx - LEN(Menu$) - 2, yy, " " + Menu$ + " ", QMenu.MenuFCol, QMenu.MenuBColã MShowã IF NewPopup <> 0 OR Click = 1 THENã xx = 1ã yy = 1ã FOR ii = 1 TO QMenu.Topicsã Menu$ = Get.MenuTopic$(ii)ã IF xx + LEN(Menu$) + 2 < 81 THENã xx = xx + LEN(Menu$) + 2ã ELSEã yy = yy + 1ã xx = 1ã xx = xx + LEN(Menu$) + 2ã END IFã IF Click = 1 AND Mx >= xx - LEN(Menu$) - 2 AND Mx < xx AND My = yy THEN NewPopup = iiã IF ii = NewPopup THEN EXIT FORã NEXTã END IFã LOOP UNTIL NewPopup = 0ã EXIT FORã END IFã NEXTã END IFãEND IFããEND SUBããSUB MemCopy (fromseg%, FromOffset%, toseg%, ToOffset%, Bytes%)ããDEF SEG = VARSEG(ASMMemCopy$)ã CALL absolute(BYVAL fromseg%, BYVAL FromOffset%, BYVAL toseg%, BYVAL ToOffset%, BYVAL Bytes%, SADD(ASMMemCopy$))ãDEF SEGããEND SUBããSUB Message (Text$, Topic$)ãRow = CSRLINãPCOPY 0, 2ãDrawWindow 40 - RealLen(Text$) \ 2 - 2, Lines \ 2 - 2, 40 + RealLen(Text$) \ 2 + 3, Lines \ 2 + 2, 7, 4, Topic$, TrueãCOLOR 15, 4ãCenter Text$, Lines \ 2ãEND SUBããDEFSNG A-ZãSUB MHideã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Hides the mouseã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄãã Regs.ax% = 2ã CALL INTERRUPT(&H33, Regs, Regs)ããEND SUBããFUNCTION MInitã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Initializes the mouseã' Returns -1 if mouse is present, 0 if it isn'tã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄãã Regs.ax% = 0ã CALL INTERRUPT(&H33, Regs, Regs)ãã MInit = Regs.ax%ããEND FUNCTIONããSUB MShowã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Shows the mouse after hidingã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄãã Regs.ax% = 1ã CALL INTERRUPT(&H33, Regs, Regs)ã WAIT &H3DA, 8ã WAIT &H3DA, 8, 8ãEND SUBããDEFINT A-ZãSUB MStatus (x, y, B1, B2)ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Returns location of mouse & status of buttonsã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄãã Regs.ax% = 3ã CALL INTERRUPT(&H33, Regs, Regs)ã x = Regs.cx%ã y = Regs.dx%ã B1 = (Regs.bx% AND 1) <> 0ã B2 = (Regs.bx% AND 2) <> 0ãEND SUBããFUNCTION PeekChar$ (x, y)ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Returns the character stored at x,yã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããDEF SEG = &HB800ãPeekChar$ = CHR$(PEEK((y - 1) * 160 + (x - 1) * 2))ãDEF SEGãEND FUNCTIONããSUB Plot (a%) STATICããBuffer(x%, y%) = CHR$(a%)ãx% = x% + 1ããIF x% > Xend% THENã x% = Xstart%ã y% = y% + 1ãEND IFããEND SUBããSUB PokeChar (x, y, Char$, FCol, BCol)ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Writes the characted Char$ at x,y in color FCol,BColã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããDEF SEG = &HB800ãPOKE ((y - 1) * 160 + (x - 1) * 2), ASC(Char$)ãPOKE ((y - 1) * 160 + (x - 1) * 2) + 1, FCol + (BCol * 16)ãDEF SEGãEND SUBããFUNCTION PopupMenu (x, y, Num, Click)ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Handles the menu when popped up, called by SUB Mainã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããItems = MenuItems(Num)ãIF Items > 0 THEN DIM Menu$(1 TO Items)ããLongest = 0ãFOR I = 1 TO Itemsã Menu$(I) = Get.MenuItem$(Num, I)ã IF LEN(Menu$(I)) > Longest THEN Longest = LEN(Menu$(I))ãNEXTããMHideãPCOPY 0, 1ãSCREEN , , 0, 1ããIF x + Longest > 78 THEN x = 78 - Longest - 3ããIF Items > 0 THENã Draw.Border x, y, x + Longest + 3, y + Items + 1, QMenu.MenuFCol, QMenu.MenuBColãã X2 = x + Longest + 3ã Y2 = y + Items + 1ãã FOR I = y + 1 TO Y2 + 1ã PokeChar X2 + 1, I, PeekChar$(X2 + 1, I), 8, 0ã PokeChar X2 + 2, I, PeekChar$(X2 + 2, I), 8, 0ã NEXTãã FOR I = x + 2 TO X2ã PokeChar I, Y2 + 1, PeekChar$(I, Y2 + 1), 8, 0ã NEXTãã FOR I = 1 TO Itemsã Get.MenuItemInfo Num, I, Style$, Selected$, Active$ã IF Active$ = "1" THENã IF Menu$(I) = "-" THENã PPrint x, y + I, CHR$(195) + STRING$(Longest + 2, "Ä") + CHR$(180), QMenu.MenuFCol, QMenu.MenuBColã ELSEã IF Style$ = "0" THENã PPrint x + 1, y + I, " " + Get.MenuItem$(Num, I) + SPACE$((Longest + 1) - LEN(Get.MenuItem$(Num, I))), QMenu.MenuFCol, QMenu.MenuBColã ELSEã IF Selected$ = "1" THENã PPrint x + 1, y + I, CHR$(7) + Get.MenuItem$(Num, I) + SPACE$((Longest + 1) - LEN(Get.MenuItem$(Num, I))), QMenu.MenuFCol, QMenu.MenuBColã ELSEã PPrint x + 1, y + I, " " + Get.MenuItem$(Num, I) + SPACE$((Longest + 1) - LEN(Get.MenuItem$(Num, I))), QMenu.MenuFCol, QMenu.MenuBColã END IFã END IFã END IFã ELSEã IF Menu$(I) = "-" THENã PPrint x, y + I, CHR$(195) + STRING$(Longest + 2, "Ä") + CHR$(180), QMenu.MenuFCol, QMenu.MenuBColã ELSEã IF Style$ = "0" THENã PPrint x + 1, y + I, " " + Get.MenuItem$(Num, I) + SPACE$((Longest + 1) - LEN(Get.MenuItem$(Num, I))), QMenu.MenuDisabled, QMenu.MenuBColã ELSEã IF Selected$ = "1" THENã PPrint x + 1, y + I, CHR$(7) + Get.MenuItem$(Num, I) + SPACE$((Longest + 1) - LEN(Get.MenuItem$(Num, I))), QMenu.MenuDisabled, QMenu.MenuBColã ELSEã PPrint x + 1, y + I, " " + Get.MenuItem$(Num, I) + SPACE$((Longest + 1) - LEN(Get.MenuItem$(Num, I))), QMenu.MenuDisabled, QMenu.MenuBColã END IFã END IFã END IFã END IFã NEXTããã Selected = 1ãã Get.MenuItemInfo Num, Selected, Style$, Selected$, Active$ã IF Style$ = "0" THENã PPrint x + 1, y + Selected, " " + Get.MenuItem$(Num, Selected) + SPACE$((Longest + 1) - LEN(Get.MenuItem$(Num, Selected))), QMenu.MenuBCol, QMenu.MenuFColã ELSEã IF Selected$ = "1" THENã PPrint x + 1, y + Selected, CHR$(7) + Get.MenuItem$(Num, Selected) + SPACE$((Longest + 1) - LEN(Get.MenuItem$(Num, Selected))), QMenu.MenuBCol, QMenu.MenuFColã ELSEã PPrint x + 1, y + Selected, " " + Get.MenuItem$(Num, Selected) + SPACE$((Longest + 1) - LEN(Get.MenuItem$(Num, Selected))), QMenu.MenuBCol, QMenu.MenuFColã END IFã END IFããEND IFãSCREEN , , 0, 0ãMShowããOldSelected = 0ããMStatus HiiriX%, HiiriY%, HiiriV%, HiiriO%ãMx = HiiriX% \ 8 + 1ãMy = HiiriY% \ 8 + 1ãMl = HiiriV%ãMr = HiiriO%ãOldMx = MxãOldMy = MyããDOã Key$ = INKEY$ã MStatus HiiriX%, HiiriY%, HiiriV%, HiiriO%ã Mx = HiiriX% \ 8 + 1ã My = HiiriY% \ 8 + 1ã Ml = HiiriV%ã Mr = HiiriO%ã IF OldMx <> Mx OR OldMy <> My THEN MouseMove = 1 ELSE MouseMove = 0ã ã IF Ml = 0 AND Click = -1 THEN Click = 1 ELSE IF Ml = 0 THEN Click = 0ã IF Ml = -1 AND Click = 0 THEN Click = -1ã ã IF Key$ = CHR$(0) + "K" THENã NewMenu = Num - 1ã IF NewMenu < 1 THEN NewMenu = QMenu.Topicsã PopupMenu = NewMenuã END IFãã IF Key$ = CHR$(0) + "M" THENã NewMenu = Num + 1ã IF NewMenu > QMenu.Topics THEN NewMenu = 1ã PopupMenu = NewMenuã END IFãã OldSelected = Selectedãã IF Items > 0 THENã IF Key$ = CHR$(0) + "P" THENã Selected = Selected + 1ã IF Selected > Items THEN Selected = 1ã IF Menu$(Selected) = "-" THEN Selected = Selected + 1ã IF Selected > Items THEN Selected = 1ã Key$ = ""ã END IFãã IF Key$ = CHR$(0) + "H" THENã Selected = Selected - 1ã IF Selected < 1 THEN Selected = Itemsã IF Menu$(Selected) = "-" THEN Selected = Selected - 1ã IF Selected < 1 THEN Selected = Itemsã Key$ = ""ã END IFãã IF Key$ = CHR$(13) THENã Get.MenuItemInfo Num, Selected, Style$, Selected$, Active$ã IF Active$ = "1" THENã MenuSelected.Menu = Numã MenuSelected.Item = Selectedã ã IF Style$ = "1" THENã IF Selected$ = "0" THENã Selected$ = "1"ã ELSEIF Selected$ = "1" THENã Selected$ = "0"ã END IFã Set.MenuItem Num, Selected, Get.MenuItem$(Num, Selected), Active$, Style$, Selected$ã END IFã ELSEã Key$ = ""ã END IFã END IFã END IFãã IF Items > 0 AND (MouseMove = 1 OR Click = 1) THENã IF Mx > x AND Mx < x + Longest + 3 AND My > y AND My <= y + Items THENã Selected = My - yã IF Click = 1 THENã Get.MenuItemInfo Num, Selected, Style$, Selected$, Active$ã IF Active$ = "1" AND Get.MenuItem$(Num, Selected) <> "-" THENã MenuSelected.Menu = Numã MenuSelected.Item = Selectedãã MenuSelected.Menu = Numã MenuSelected.Item = Selectedã IF Style$ = "1" THENã IF Selected$ = "0" THENã Selected$ = "1"ã ELSEIF Selected$ = "1" THENã Selected$ = "0"ã END IFã Set.MenuItem Num, Selected, Get.MenuItem$(Num, Selected), Active$, Style$, Selected$ã END IFã EXIT DOã ELSEã Click = 0ã END IFã END IFã END IFã END IFãã IF OldSelected <> Selected THENã IF Menu$(Selected) = "-" THENã Selected = OldSelectedã ELSEã MHideã Get.MenuItemInfo Num, Selected, Style$, Selected$, Active$ã IF Style$ = "0" THENã PPrint x + 1, y + Selected, " " + Get.MenuItem$(Num, Selected) + SPACE$((Longest + 1) - LEN(Get.MenuItem$(Num, Selected))), QMenu.MenuBCol, QMenu.MenuFColã ELSEã IF Selected$ = "1" THENã PPrint x + 1, y + Selected, CHR$(7) + Get.MenuItem$(Num, Selected) + SPACE$((Longest + 1) - LEN(Get.MenuItem$(Num, Selected))), QMenu.MenuBCol, QMenu.MenuFColã ELSEã PPrint x + 1, y + Selected, " " + Get.MenuItem$(Num, Selected) + SPACE$((Longest + 1) - LEN(Get.MenuItem$(Num, Selected))), QMenu.MenuBCol, QMenu.MenuFColã END IFã END IFãã ã Get.MenuItemInfo Num, OldSelected, Style$, Selected$, Active$ãã IF Active$ = "1" THENã FCol = QMenu.MenuFColã ELSEã FCol = QMenu.MenuDisabledã END IFãã IF Style$ = "0" THENã PPrint x + 1, y + OldSelected, " " + Get.MenuItem$(Num, OldSelected) + SPACE$((Longest + 1) - LEN(Get.MenuItem$(Num, OldSelected))), FCol, QMenu.MenuBColã ELSEã IF Selected$ = "1" THENã PPrint x + 1, y + OldSelected, CHR$(7) + Get.MenuItem$(Num, OldSelected) + SPACE$((Longest + 1) - LEN(Get.MenuItem$(Num, OldSelected))), FCol, QMenu.MenuBColã ELSEã PPrint x + 1, y + OldSelected, " " + Get.MenuItem$(Num, OldSelected) + SPACE$((Longest + 1) - LEN(Get.MenuItem$(Num, OldSelected))), FCol, QMenu.MenuBColã END IFã END IFã MShowã END IFã END IFã ã OldMx = Mxã OldMy = MyããLOOP UNTIL Click = 1 OR Key$ <> ""ãKey$ = ""ããMHideãPCOPY 1, 0ãMShowãEND FUNCTIONããSUB PPrint (x, y, Text$, FCol, BCol)ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Prints text Text$ at x,y in color FCol, BColã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããxx = xãFOR I = 1 TO LEN(Text$)ã PokeChar xx, y, MID$(Text$, I, 1), FCol, BColã xx = xx + 1ãNEXTããEND SUBããSUB PrintText (Text$)ãCOLOR 7, 1ãLOCATE , 3: PRINT Text$ãEND SUBããFUNCTION Query$ (Text$, Topic$, MaxLen, TField$)ããRow = CSRLINãPCOPY 0, 2ãDrawWindow 40 - RealLen(Text$) \ 2 - 2, Lines \ 2 - 3, 40 + RealLen(Text$) \ 2 + 3, Lines \ 2 + 3, 7, 4, Topic$, TrueãCOLOR 15, 4ãCenter Text$, Lines \ 2 - 1ããCOLOR 0, 3ãLOCATE Lines \ 2 + 1, 40 - MaxLen \ 2ãPRINT STRING$(MaxLen + 1, " ");ããTextField$ = LEFT$(TField$, MaxLen)ãTPos = LEN(TextField$)ãããCOLOR 0, 4ãLOCATE Lines \ 2 + 2, 40 - MaxLen \ 2 + 1ãPRINT STRING$(MaxLen + 1, "ß")ãLOCATE Lines \ 2 + 1, 40 + MaxLen \ 2 + 1ãPRINT "Ü"ããCOLOR 0, 3ãLOCATE Lines \ 2 + 1, 40 - MaxLen \ 2ãPRINT InputField(TextField$, k$, MaxLen, TPos); " ";ãLOCATE Lines \ 2 + 1, 40 - MaxLen \ 2 + TPos, 1, 29, 30ããDOã k$ = INKEY$ã IF k$ = CHR$(13) THEN EXIT DOã IF k$ = CHR$(27) THEN TextField$ = "": EXIT DOã IF k$ <> "" THENã LOCATE Lines \ 2 + 1, 40 - MaxLen \ 2ã COLOR 0, 3ã PRINT InputField(TextField$, k$, MaxLen, TPos); " ";ã LOCATE Lines \ 2 + 1, 40 - MaxLen \ 2 + TPos, 1, 29, 30ã END IFãLOOPããLOCATE 1, 1, 0ãQuery$ = LTRIM$(RTRIM$(TextField$))ãEraseMessageããEND FUNCTIONããFUNCTION QueryFile$ (WildCard$)ãMHideããWCard$ = UCASE$(RTRIM$(LTRIM$(Query$(" Enter directory/file ", "%7&0 Directory ", 60, ""))))ãEraseMessageãIF WCard$ = "" THEN MShow: EXIT FUNCTIONãã'IF (INSTR(WCard$, "*") = 0 AND INSTR(WCard$, "?") = 0) THENã' IF RIGHT$(WCard$, 1) <> "\" THEN WCard$ = WCard$ + "\"ã' WCard$ = WCard$ + WildCard$ã'END IFããIF RIGHT$(WCard$, 1) = "\" THEN WCard$ = WCard$ + WildCard$ãIF WCard$ = "." THEN WCard$ = WCard$ + "\" + WildCard$ãããIF INSTR(WCard$, "\") > 0 THENã Directory$ = ""ã FOR XPos = LEN(WCard$) TO 1 STEP -1ã IF MID$(WCard$, XPos, 1) = "\" THEN EXIT FORã NEXTãã FOR I = 1 TO XPosã Directory$ = Directory$ + MID$(WCard$, I, 1)ã NEXTãEND IFããMax = ScanDir(WCard$, "temp.tmp")ããIF Max = 0 THENã ErrorDialog "No files found!"ã DO: LOOP UNTIL INKEY$ <> ""ã EraseMessageã MShowã EXIT FUNCTIONãEND IFããOffset = 0ãSelected = 0ããOPEN "temp.tmp" FOR INPUT AS #1ãOPEN "temp2.tmp" FOR OUTPUT AS #2ããFOR I = 1 TO Maxã LINE INPUT #1, Temp$ã Temp$ = Temp$ + STRING$(12 - LEN(Temp$), " ")ã PRINT #2, Temp$;ãNEXTãCLOSE #1, #2ãKILL "temp.tmp"ãNAME "temp2.tmp" AS "temp.tmp"ããDrawWindow 15, 2, 32, Lines - 3, 7, 4, "%7&0 Files ", TrueãCOLOR 0, 3ãLOCATE Lines, 1ãPRINT STRING$(80, " ");ãCenter " &EEsc&0-Cancel &EEnter&0-Select", LinesããFile = FREEFILEãOPEN "temp.tmp" FOR BINARY AS #FileããFOR I = 0 TO UBOUND(FBuffer)ã FBuffer(I) = 0ãNEXTããDrawFileList File, Selected, Offset, MaxããDOã k$ = INKEY$ã IF k$ <> "" THENã ã IF k$ = CHR$(0) + "P" THENã Selected = Selected + 1ã IF Selected > Max - 1 THEN Selected = Max - 1ã IF Selected > Offset + Lines - 7 THEN Offset = Offset + 1ã END IFãã IF k$ = CHR$(0) + "H" THENã Selected = Selected - 1ã IF Selected < 0 THEN Selected = 0ã IF Selected < Offset THEN Offset = Offset - 1ã IF Offset < 0 THEN Offset = 0ã END IFãã IF k$ = CHR$(0) + CHR$(81) THENã Selected = Selected + (Lines - 7)ã Offset = Offset + (Lines - 7)ã IF Selected > Max - 1 THEN Selected = Max - 1ã IF Offset > Max - 1 THEN Offset = Max - 1ã END IFããã IF k$ = CHR$(0) + CHR$(73) THENã Selected = Selected - (Lines - 7)ã Offset = Offset - (Lines - 7)ã IF Selected < 0 THEN Selected = 0ã IF Offset < 0 THEN Offset = 0ã END IFããã IF k$ = CHR$(0) + CHR$(79) THENã Offset = Max - (Lines - 7) - 1ã IF Offset < 0 THEN Offset = 0ã Selected = Max - 1ã END IFãã IF k$ = CHR$(0) + CHR$(71) THENã Offset = 0ã Selected = 0ã END IFã ã IF k$ = CHR$(13) THENã SeekFileItem File, Selectedã GET #File, , FListã QueryFile = Directory$ + RTRIM$(RTRIM$(FList))ã EXIT DOã END IFãã IF k$ = CHR$(27) THENã EXIT DOã END IFã DrawFileList File, Offset, Selected, Maxã END IFãLOOPãCLOSE #1, #2ãKILL "temp.tmp"ãClearScreenãMShowããEND FUNCTIONããFUNCTION ReadCode (CodeSize)ããSHARED Powers2() AS INTEGERãCode = 0ããFOR Aa = 0 TO CodeSize - 1ã Code = Code + Getbit * Powers2(Aa)ãNEXTããReadCode = CodeããEND FUNCTIONããFUNCTION RealLen (Text$)ããLn = LEN(Text$)ãFOR I = 1 TO LEN(Text$)ã Done = 0ã DOã IF MID$(Text$, I, 1) = "&" AND INSTR("0123456789ABCDEF", MID$(Text$, I + 1, 1)) AND I < LEN(Text$) THENã Ln = Ln - 2ã I = I + 2ã ELSEIF MID$(Text$, I, 1) = "%" AND INSTR("01234567", MID$(Text$, I + 1, 1)) AND I < LEN(Text$) THENã Ln = Ln - 2ã I = I + 2ã ELSEã Done = 1ã END IFã LOOP UNTIL DoneãNEXTãRealLen = LnããEND FUNCTIONããFUNCTION ReturnBit (Byte, Bit)ã SELECT CASE Bitã CASE 1: IF (Byte AND 128) THEN ReturnBit = 1ã CASE 2: IF (Byte AND 64) THEN ReturnBit = 1ã CASE 3: IF (Byte AND 32) THEN ReturnBit = 1ã CASE 4: IF (Byte AND 16) THEN ReturnBit = 1ã CASE 5: IF (Byte AND 8) THEN ReturnBit = 1ã CASE 6: IF (Byte AND 4) THEN ReturnBit = 1ã CASE 7: IF (Byte AND 2) THEN ReturnBit = 1ã CASE 8: IF (Byte AND 1) THEN ReturnBit = 1ã END SELECTãEND FUNCTIONããFUNCTION ReturnNibble (Byte, WhichOne)ã IF WhichOne = 1 THENã IF Byte AND 128 THEN Total = Total + 8ã IF Byte AND 64 THEN Total = Total + 4ã IF Byte AND 32 THEN Total = Total + 2ã IF Byte AND 16 THEN Total = Total + 1ã ELSEã IF Byte AND 8 THEN Total = Total + 8ã IF Byte AND 4 THEN Total = Total + 4ã IF Byte AND 2 THEN Total = Total + 2ã IF Byte AND 1 THEN Total = Total + 1ã END IFã ReturnNibble = TotalãEND FUNCTIONããSUB Roller (x, y, XLen, Text$, FCol) STATICããCount = Count + 1ããIF Count = 8 THENã LOCATE y, 40ã COLOR FColã IF RPos = 0 THEN RPos = 1ã TText$ = SPACE$(XLen) + Text$ã' PRINT MID$(TText$, RPos, XLen) + STRING$(XLen - LEN(MID$(TText$, RPos, XLen)), " ");ã PRINT MID$(TText$, RPos + 40, 1);ã RPos = RPos + 1ã IF RPos > LEN(TText$) THEN RPos = 1ã Count = 0ãEND IFããWAIT &H3DA, 8ãREDIM ScrollBuffer(0 TO 8 * 320) AS INTEGERãGET (1, (y - 1) * 8)-(319, (y - 1) * 8 + 7), ScrollBufferãPUT (0, (y - 1) * 8), ScrollBuffer, PSETããEND SUBããSUB RotatePalãã'FOR i& = 0 TO 255ã' OUT (&H3C7), i&ã' r = INP(&H3C9)ã' g = INP(&H3C9)ã' b = INP(&H3C9)ã' MID$(Pal, (i& * 3) + 1, 1) = CHR$(r)ã' MID$(Pal, (i& * 3) + 2, 1) = CHR$(g)ã' MID$(Pal, (i& * 3) + 3, 1) = CHR$(b)ã'NEXTããTemp$ = RIGHT$(Pal$, 3)ãPal = Temp$ + MID$(Pal, 1, LEN(Pal) - 3)ããSet.PaletteããEND SUBããSUB Save.Image (File$, InpFormat$, OutFormat$)ãMHideããOut$ = RTRIM$(LTRIM$(UCASE$(Query(" Enter the output file ", "&0%7 Save Image ", 60, ""))))ãIF Out$ = "" THEN MShow: EXIT SUBããLoaded = TrueãSELECT CASE UCASE$(InpFormat$)ãCASE "BMP"ã IF File$ <> "" THENã IF NOT Load.Image(File$, "BMP") THEN Loaded = Falseã END IFãCASE "PCX"ã IF File$ <> "" THENã IF NOT Load.Image(File$, "PCX") THEN Loaded = Falseã END IFãCASE "GIF"ã IF File$ <> "" THENã IF NOT Load.Image(File$, "GIF") THEN Loaded = Falseã END IFãCASE "BSAVE"ã IF File$ <> "" THENã IF NOT Load.Image(File$, "BSAVE") THEN Loaded = Falseã END IFãCASE ELSEã MShowã EXIT SUBãEND SELECTãIF Loaded = False THENã DO: LOOP UNTIL INKEY$ <> ""ã MShowã EXIT SUBãEND IFããSCREEN 13: CLSãSet.PaletteãMemCopy VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), &HA000, 0, &HFA00ããLOCATE 25, 1ãCol = FindBrightestColorããText$ = File$ãCOLOR ColããSELECT CASE OutFormat$ãCASE "BSAVE"ã Get.MenuItemInfo 5, 1, Style$, Selected$, Active$ã IF Selected$ = "1" THENã DEF SEG = &HA000ã BSAVE Out$, 0, 64000ã DEF SEGã OPEN Out$ FOR BINARY AS #1ã SEEK #1, LOF(1)ã PUT #1, , Palã CLOSE #1ã Text$ = Text$ + " - Image BSAVED to " + Out$ + " with palette"ã ELSEã DOã Key$ = INKEY$ã MStatus HiiriX%, HiiriY%, HiiriV%, HiiriO%ã Mx = HiiriX% \ 2ã My = HiiriY%ã Ml = HiiriV%ã Mr = HiiriO%ã IF OldMx <> Mx OR OldMy <> My THEN MouseMove = 1 ELSE MouseMove = 0ãã IF Ml = 0 AND Click = -1 THEN Click = 1 ELSE IF Ml = 0 THEN Click = 0ã IF Ml = -1 AND Click = 0 THEN Click = -1ãã Upper = Myãã IF MouseMove = 1 THENã WAIT &H3DA, 8ã MemCopy VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), &HA000, 0, &HFA00ã LINE (0, My)-(319, My), Colã IF My < 100 THENã LOCATE 25, 1ã PRINT " Set the upper bound with the mouse ";ã ELSEã LOCATE 1, 1ã PRINT " Set the upper bound with the mouse ";ã END IFã END IFãã OldMx = Mxã OldMy = Myã LOOP UNTIL Click = 1ãã DOã Key$ = INKEY$ã MStatus HiiriX%, HiiriY%, HiiriV%, HiiriO%ã Mx = HiiriX% \ 2ã My = HiiriY%ã Ml = HiiriV%ã Mr = HiiriO%ã IF My <= Upper + 1 THEN My = Upper + 1ã IF OldMx <> Mx OR OldMy <> My THEN MouseMove = 1 ELSE MouseMove = 0ã ã IF Ml = 0 AND Click = -1 THEN Click = 1 ELSE IF Ml = 0 THEN Click = 0ã IF Ml = -1 AND Click = 0 THEN Click = -1ãã Lower = Myãã IF MouseMove = 1 THENã WAIT &H3DA, 8ã MemCopy VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), &HA000, 0, &HFA00ã LINE (0, Upper)-(319, My), Col, Bã IF My < 100 THENã LOCATE 25, 1ã PRINT " Set the lower bound with the mouse "ã ELSEã LOCATE 1, 1ã PRINT " Set the lower bound with the mouse "ã END IFã END IFãã OldMx = Mxã OldMy = Myã LOOP UNTIL Click = 1ãã MemCopy VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), &HA000, 0, &HFA00ãã DEF SEG = &HA000ã BSAVE Out$, CLNG(Upper) * 320&, (CLNG(Lower) * 320&) - (CLNG(Upper) * 320&)ã DEF SEGã Text$ = Text$ + " - Image BSAVED to " + Out$ã END IFãCASE "RAW"ã DOã Key$ = INKEY$ã MStatus HiiriX%, HiiriY%, HiiriV%, HiiriO%ã Mx = HiiriX% \ 2ã My = HiiriY%ã Ml = HiiriV%ã Mr = HiiriO%ã IF OldMx <> Mx OR OldMy <> My THEN MouseMove = 1 ELSE MouseMove = 0ãã IF Ml = 0 AND Click = -1 THEN Click = 1 ELSE IF Ml = 0 THEN Click = 0ã IF Ml = -1 AND Click = 0 THEN Click = -1ãã X1 = Mxã Y1 = Myãã IF MouseMove = 1 THENã WAIT &H3DA, 8ã MemCopy VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), &HA000, 0, &HFA00ã PSET (Mx - 2, My), Colã PSET (Mx + 2, My), Colã PSET (Mx, My - 2), Colã PSET (Mx, My + 2), Colã ã PSET (Mx - 1, My), Colã PSET (Mx + 1, My), Colã PSET (Mx, My - 1), Colã PSET (Mx, My + 1), Colã IF My < 100 THENã LOCATE 25, 1ã PRINT " Set the upper left corner "; RTRIM$(LTRIM$(STR$(X1))); ":"; RTRIM$(LTRIM$(STR$(Y1)));ã ELSEã LOCATE 1, 1ã PRINT " Set the upper left corner "; RTRIM$(LTRIM$(STR$(X1))); ":"; RTRIM$(LTRIM$(STR$(Y1)));ã END IFã END IFãã OldMx = Mxã OldMy = Myã LOOP UNTIL Click = 1ãã DOã Key$ = INKEY$ã MStatus HiiriX%, HiiriY%, HiiriV%, HiiriO%ã Mx = HiiriX% \ 2ã My = HiiriY%ã Ml = HiiriV%ã Mr = HiiriO%ã IF OldMx <> Mx OR OldMy <> My THEN MouseMove = 1 ELSE MouseMove = 0ãã IF Ml = 0 AND Click = -1 THEN Click = 1 ELSE IF Ml = 0 THEN Click = 0ã IF Ml = -1 AND Click = 0 THEN Click = -1ãã IF Mx < X1 + 1 THEN Mx = X1 + 1ã IF My < Y1 + 1 THEN My = Y1 + 1ãã X2 = Mxã Y2 = Myãã IF MouseMove = 1 THENã WAIT &H3DA, 8ã MemCopy VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), &HA000, 0, &HFA00ã LINE (X1, Y1)-(X2, Y2), Col, Bã IF My < 100 THENã LOCATE 25, 1ã PRINT " Set the lower right corner "; RTRIM$(LTRIM$(STR$(X2 - X1))); "x"; RTRIM$(LTRIM$(STR$(Y2 - Y1)));ã ELSEã LOCATE 1, 1ã PRINT " Set the lower right corner "; RTRIM$(LTRIM$(STR$(X2 - X1))); "x"; RTRIM$(LTRIM$(STR$(Y2 - Y1)));ã END IFã END IFãã OldMx = Mxã OldMy = Myã LOOP UNTIL Click = 1ã MemCopy VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), &HA000, 0, &HFA00ãã OPEN Out$ FOR BINARY AS #1ã FOR yy = Y1 TO Y2ã FOR xx = X1 TO X2ã Byte$ = CHR$(POINT(xx, yy))ã PUT #1, , Byte$ã NEXTã NEXTã CLOSE #1ãã LINE (X1, Y1)-(X2, Y2), Col, Bãã Text$ = Text$ + " - Image Saved to " + Out$ + " as Raw Data - Saved Image Size: " + RTRIM$(LTRIM$(STR$(X2 - X1))) + "x" + RTRIM$(LTRIM$(STR$(Y2 - Y1)))ããCASE "DATA"ã DOã Key$ = INKEY$ã MStatus HiiriX%, HiiriY%, HiiriV%, HiiriO%ã Mx = HiiriX% \ 2ã My = HiiriY%ã Ml = HiiriV%ã Mr = HiiriO%ã IF OldMx <> Mx OR OldMy <> My THEN MouseMove = 1 ELSE MouseMove = 0ãã IF Ml = 0 AND Click = -1 THEN Click = 1 ELSE IF Ml = 0 THEN Click = 0ã IF Ml = -1 AND Click = 0 THEN Click = -1ãã X1 = Mxã Y1 = Myãã IF MouseMove = 1 THENã WAIT &H3DA, 8ã MemCopy VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), &HA000, 0, &HFA00ã PSET (Mx - 2, My), Colã PSET (Mx + 2, My), Colã PSET (Mx, My - 2), Colã PSET (Mx, My + 2), Colã ã PSET (Mx - 1, My), Colã PSET (Mx + 1, My), Colã PSET (Mx, My - 1), Colã PSET (Mx, My + 1), Colã IF My < 100 THENã LOCATE 25, 1ã PRINT " Set the upper left corner "; RTRIM$(LTRIM$(STR$(X1))); ":"; RTRIM$(LTRIM$(STR$(Y1)));ã ELSEã LOCATE 1, 1ã PRINT " Set the upper left corner "; RTRIM$(LTRIM$(STR$(X1))); ":"; RTRIM$(LTRIM$(STR$(Y1)));ã END IFã END IFãã OldMx = Mxã OldMy = Myã LOOP UNTIL Click = 1ãã DOã Key$ = INKEY$ã MStatus HiiriX%, HiiriY%, HiiriV%, HiiriO%ã Mx = HiiriX% \ 2ã My = HiiriY%ã Ml = HiiriV%ã Mr = HiiriO%ã IF OldMx <> Mx OR OldMy <> My THEN MouseMove = 1 ELSE MouseMove = 0ãã IF Ml = 0 AND Click = -1 THEN Click = 1 ELSE IF Ml = 0 THEN Click = 0ã IF Ml = -1 AND Click = 0 THEN Click = -1ãã IF Mx < X1 + 1 THEN Mx = X1 + 1ã IF My < Y1 + 1 THEN My = Y1 + 1ãã X2 = Mxã Y2 = Myãã IF MouseMove = 1 THENã WAIT &H3DA, 8ã MemCopy VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), &HA000, 0, &HFA00ã LINE (X1, Y1)-(X2, Y2), Col, Bã IF My < 100 THENã LOCATE 25, 1ã PRINT " Set the lower right corner "; RTRIM$(LTRIM$(STR$(X2 - X1))); "x"; RTRIM$(LTRIM$(STR$(Y2 - Y1)));ã ELSEã LOCATE 1, 1ã PRINT " Set the lower right corner "; RTRIM$(LTRIM$(STR$(X2 - X1))); "x"; RTRIM$(LTRIM$(STR$(Y2 - Y1)));ã END IFã END IFãã OldMx = Mxã OldMy = Myã LOOP UNTIL Click = 1ã MemCopy VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), &HA000, 0, &HFA00ãã OPEN Out$ FOR APPEND AS #1ã PRINT #1, ""ã PRINT #1, "' þ Image converted with CONVERT.BAS by Sami Ky”stil„"ã PRINT #1, "' þ Input file: " + File$ã PRINT #1, "' þ Image size: " + RTRIM$(LTRIM$(STR$(X2 - X1))) + "x" + RTRIM$(LTRIM$(STR$(Y2 - Y1)))ã PRINT #1, ""ã PRINT #1, "' þ Start of Image Data"ãã PRINT #1, "DATA ";ã XPos = 1ã FOR yy = Y1 TO Y2ã FOR xx = X1 TO X2ã Byte$ = RTRIM$(LTRIM$(STR$(POINT(xx, yy))))ã Byte$ = Byte$ + SPACE$(4 - LEN(Byte$))ã PRINT #1, Byte$;ã XPos = XPos + 1ã IF XPos >= 50 THENã XPos = 1ã PRINT #1, ""ã PRINT #1, "DATA ";ã ELSEã PRINT #1, ",";ã END IFã NEXTã NEXTã PRINT #1, ""ã PRINT #1, "' þ End of Image Data"ã CLOSE #1ãã LINE (X1, Y1)-(X2, Y2), Col, Bãã Text$ = Text$ + " - Image Appended to " + Out$ + " as DATA Statements - Saved Image Size: " + RTRIM$(LTRIM$(STR$(X2 - X1))) + "x" + RTRIM$(LTRIM$(STR$(Y2 - Y1)))ããEND SELECTããDOã Roller 1, 25, 40, Text$, ColãLOOP UNTIL INKEY$ <> ""ããSCREEN 0: WIDTH 80, 25ãCOLOR 7, 1: CLSãDraw.Border 1, 1, 80, 25, 7, 1ãDraw.MenuããMShowãEND SUBããSUB Save.Palette (File$, InpFormat$, OutFormat$)ããOut$ = RTRIM$(LTRIM$(UCASE$(Query(" Enter the output file ", "&0%7 Save Image ", 60, ""))))ãIF Out$ = "" THEN MShow: EXIT SUBããLoaded = TrueãSELECT CASE UCASE$(InpFormat$)ãCASE "BMP"ã IF File$ <> "" THENã IF NOT Load.Palette(File$, "BMP") THEN Loaded = Falseã END IFãCASE "PCX"ã IF File$ <> "" THENã IF NOT Load.Palette(File$, "PCX") THEN Loaded = Falseã END IFãCASE "GIF"ã IF File$ <> "" THENã IF NOT Load.Palette(File$, "GIF") THEN Loaded = Falseã END IFãCASE "RAW"ã IF File$ <> "" THENã IF NOT Load.Palette(File$, "RAW") THEN Loaded = Falseã END IFãCASE ELSEã MShowã EXIT SUBãEND SELECTãIF Loaded = False THENã DO: LOOP UNTIL INKEY$ <> ""ã MShowã EXIT SUBãEND IFããSCREEN 13: CLSãSet.PaletteãDraw.Palette -1ããLOCATE 25, 1ãCol = FindBrightestColorããText$ = File$ãCOLOR ColããSELECT CASE OutFormat$ãCASE "RAW"ã OPEN Out$ FOR BINARY AS #1ã PUT #1, , Palã CLOSE #1ã Text$ = Text$ + " - Palette Saved to " + Out$ + " as Raw Data"ãCASE "DATA"ã OPEN Out$ FOR APPEND AS #1ã PRINT #1, ""ã PRINT #1, "' þ Palette converted with CONVERT.BAS by Sami Ky”stil„"ã PRINT #1, "' þ Input file: " + File$ã PRINT #1, "' þ Palette size: 786 bytes, RGB format"ã PRINT #1, ""ã PRINT #1, "' þ Start of Palette Data"ãã PRINT #1, "DATA ";ã XPos = 1ã FOR I = 1 TO 768ã Byte$ = RTRIM$(LTRIM$(STR$(ASC(MID$(Pal, I, 1)))))ã Byte$ = Byte$ + SPACE$(3 - LEN(Byte$))ã PRINT #1, Byte$;ã XPos = XPos + 1ã IF XPos >= 60 THENã XPos = 1ã PRINT #1, ""ã PRINT #1, "DATA ";ã ELSEã PRINT #1, ",";ã END IFã NEXTãã PRINT #1, ""ã PRINT #1, "' þ End of Palette Data"ã CLOSE #1ãã Text$ = Text$ + " - Palette Appended to " + Out$ + " as DATA Statements"ãCASE "BMP"ã SaveBMP8 Out$, 0, 0, 318, 198ã Text$ = Text$ + " - Palette Saved to " + Out$ + " as BMP Palette"ãEND SELECTããDOã Roller 1, 25, 40, Text$, ColãLOOP UNTIL INKEY$ <> ""ããSCREEN 0: WIDTH 80, 25ãCOLOR 7, 1: CLSãDraw.Border 1, 1, 80, 25, 7, 1ãDraw.MenuããMShowããEND SUBããSUB SaveBMP8 (Pic$, X1%, Y1%, X2%, Y2%)ãã'Calculate width and height of image-ãBMPWidth% = X2% - X1% + 1ãBMPHeight% = Y2% - Y1% + 1ã'Each raster must be a multiple of 4 bytes, this next line takesã'care of 'padded' bytes at the end of rasters of odd-width images-ãIF BMPWidth% / 4 <> BMPWidth% \ 4 THEN PadBytes% = 4 - (BMPWidth% MOD 4)ãOPEN Pic$ FOR BINARY AS #1ã'General Picture Information-ã' BMP format marker-ãBuffer$ = "BM"ã' File size minus header-ãL& = (CLNG(BMPWidth%) + PadBytes%) * BMPHeight% + 1078ãBuffer$ = Buffer$ + LongToString$(L&)ã' Reserved 1-ãBuffer$ = Buffer$ + CHR$(0) + CHR$(0)ã' Reserved 2-ãBuffer$ = Buffer$ + CHR$(0) + CHR$(0)ã' Number of bytes offset to picture data-ãBuffer$ = Buffer$ + LongToString$(1078)ã'Information Header-ã' Size of information header-ãBuffer$ = Buffer$ + LongToString$(40)ã' Picture width in pixels-ãL& = BMPWidth%ãBuffer$ = Buffer$ + LongToString$(L&)ã' Picture height in pixels-ãL& = BMPHeight%ãBuffer$ = Buffer$ + LongToString$(L&)ã' Number of planes-ãBuffer$ = Buffer$ + CHR$(1) + CHR$(0)ã' Bits per pixel-ãBuffer$ = Buffer$ + CHR$(8) + CHR$(0)ã' Compression-ãBuffer$ = Buffer$ + LongToString$(0)ã' Image size in bytes-ãL& = (CLNG(BMPWidth%) + PadBytes%) * BMPHeight%ãBuffer$ = Buffer$ + LongToString$(L&)ã' Picture width in pixels per meter-ãBuffer$ = Buffer$ + LongToString$(0)ã' Picture height in pixels per meter-ãBuffer$ = Buffer$ + LongToString$(0)ã' Colors used in picture-ãBuffer$ = Buffer$ + LongToString$(256)ã' Number of important colors-ãBuffer$ = Buffer$ + LongToString$(256)ãPUT #1, 1, Buffer$ã'Save palette data-ãBuffer$ = ""ãFOR I% = 0 TO 255ã OUT &H3C7, I%ã Red% = INP(&H3C9)ã Green% = INP(&H3C9)ã Blue% = INP(&H3C9)ã 'Palette is saved B, G, R with unused byte trailing-ã Buffer$ = Buffer$ + CHR$(Blue% * 4)ã Buffer$ = Buffer$ + CHR$(Green% * 4)ã Buffer$ = Buffer$ + CHR$(Red% * 4)ã Buffer$ = Buffer$ + CHR$(0)ãNEXT I%ãPUT #1, , Buffer$ã'Save image data-ãFOR I% = (BMPHeight% - 1) TO 0 STEP -1ã Buffer$ = ""ã FOR J% = 0 TO (BMPWidth% - 1)ã Buffer$ = Buffer$ + CHR$(POINT(X1% + J%, Y1% + I%))ã NEXT J%ã IF PadBytes% > 0 THENã FOR J% = 1 TO PadBytes%ã Buffer$ = Buffer$ + CHR$(0)ã NEXT J%ã END IFã PUT #1, , Buffer$ãNEXT I%ã'Put a fork in it, it's done-ãCLOSE #1ããEND SUBããFUNCTION ScanDir (FileSpec$, Output$)ãFile = FREEFILEãOPEN Output$ FOR OUTPUT AS FileããFile$ = LTRIM$(RTRIM$(DirFirst$(FileSpec$, F.NOR)))ãIF File$ = "" THEN Found = 0 ELSE Found = 1ãPRINT #File, File$ããDOã File$ = LTRIM$(RTRIM$(DirNext$))ã IF File$ = "" THEN EXIT DOã PRINT #File, File$ã Found = Found + 1ãLOOPãCLOSE FileãScanDir = FoundãããEND FUNCTIONããSUB SeekFileItem (File, Item)ãSEEK #File, (Item) * 12 + 1ãEND SUBããSUB Set.MenuItem (MenuNum, Num, Caption$, Active AS STRING, Style AS STRING, Selected AS STRING)ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Sets menu item Num in menu MenuNum information variables, seeã' SUB Create.MenuItem for information about the menu item variables.ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããSEEK #251, (CLNG(MenuNum - 1) * 6100) + (Num * 122)ãTemp$ = LEFT$(Caption$, 50)ãTemp$ = Temp$ + SPACE$(50 - LEN(Temp$))ãMenuItem.Caption = Caption$ãMenuItem.Active = ActiveãMenuItem.Style = StyleãMenuItem.Selected = SelectedãPUT #251, , MenuItemãEND SUBããSUB Set.MenuTopic (Num, Topic$)ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Sets the main menu topic number Num to text Topic$ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããSEEK #250, CLNG(Num) * 16ãTemp$ = LEFT$(Topic$, 16)ãTemp$ = Temp$ + SPACE$(16 - LEN(Temp$))ãPUT #250, , Temp$ãEND SUBããSUB Set.PaletteããFOR I& = 0 TO 255ã r = ASC(MID$(Pal, (I& * 3) + 1, 1))ã g = ASC(MID$(Pal, (I& * 3) + 2, 1))ã b = ASC(MID$(Pal, (I& * 3) + 3, 1))ã OUT (&H3C8), I&ã OUT (&H3C9), rã OUT (&H3C9), gã OUT (&H3C9), bãNEXTãããEND SUBããSUB SetDTA (FileInfo AS DOSFileInfo)ã'----------------------------------------------------------------------ã' Sets up FileInfo as Disk Transfer Areaã'----------------------------------------------------------------------ã DIM Reg AS RegTypeXã Reg.ax = &H1A00ã Reg.ds = VARSEG(FileInfo)ã Reg.dx = VARPTR(FileInfo)ã CALL InterruptX(&H21, Reg, Reg)ãEND SUBããSUB Show.ImageããSCREEN 13: CLSãSet.PaletteãMemCopy VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), &HA000, 0, &HFA00ãOrgPal$ = PalãRotPal = -1ããDOã Key$ = UCASE$(INKEY$)ã IF Key$ = "R" THENã RotPal = -RotPalã IF RotPal = -1 THEN Pal = OrgPal$: Set.Paletteã END IFãã IF RotPal = 1 THEN RotatePalãLOOP UNTIL Key$ = CHR$(32) OR Key$ = CHR$(27) OR Key$ = CHR$(13)ããSCREEN 0: WIDTH 80, 25ãCOLOR 7, 1: CLSãDraw.Border 1, 1, 80, 25, 7, 1ãDraw.MenuãMShowããEND SUBããDEFLNG A-ZãSUB SmoothPal (Iter)ãDIM TempPal AS STRING * 768ããFOR I& = 0 TO 255ã OUT &H3C7, I&ã MID$(TempPal, (I& * 3) + 1, 1) = CHR$(INP(&H3C9))ã MID$(TempPal, (I& * 3) + 2, 1) = CHR$(INP(&H3C9))ã MID$(TempPal, (I& * 3) + 3, 1) = CHR$(INP(&H3C9))ãNEXTããRVal1 = ASC(MID$(TempPal, 1, 1))ãRVal2 = ASC(MID$(TempPal, 4, 1))ãRVal3 = ASC(MID$(TempPal, 766, 1))ããGVal1 = ASC(MID$(TempPal, 2, 1))ãGVal2 = ASC(MID$(TempPal, 5, 1))ãGVal3 = ASC(MID$(TempPal, 767, 1))ããBVal1 = ASC(MID$(TempPal, 3, 1))ãBVal2 = ASC(MID$(TempPal, 6, 1))ãBVal3 = ASC(MID$(TempPal, 768, 1))ããMID$(TempPal, 1, 1) = CHR$((RVal1 + RVal2 + RVal3) \ 3)ãMID$(TempPal, 2, 1) = CHR$((GVal1 + GVal2 + GVal3) \ 3)ãMID$(TempPal, 3, 1) = CHR$((BVal1 + BVal2 + BVal3) \ 3)ããFOR Iteration = 1 TO Iterã FOR I& = 1 TO 254ã RVal1 = ASC(MID$(TempPal, (I& * 3) + 1, 1))ã RVal2 = ASC(MID$(TempPal, (I& * 3) + 4, 1))ã RVal3 = ASC(MID$(TempPal, (I& * 3) - 2, 1))ãã GVal1 = ASC(MID$(TempPal, (I& * 3) + 2, 1))ã GVal2 = ASC(MID$(TempPal, (I& * 3) + 5, 1))ã GVal3 = ASC(MID$(TempPal, (I& * 3) - 1, 1))ãã BVal1 = ASC(MID$(TempPal, (I& * 3) + 3, 1))ã BVal2 = ASC(MID$(TempPal, (I& * 3) + 6, 1))ã BVal3 = ASC(MID$(TempPal, (I& * 3), 1))ãã MID$(TempPal, (I& * 3) + 1, 1) = CHR$((RVal1 + RVal2 + RVal3) \ 3)ã MID$(TempPal, (I& * 3) + 2, 1) = CHR$((GVal1 + GVal2 + GVal3) \ 3)ã MID$(TempPal, (I& * 3) + 3, 1) = CHR$((BVal1 + BVal2 + BVal3) \ 3)ã NEXTãNEXTããRVal1 = ASC(MID$(TempPal, 1, 1))ãRVal2 = ASC(MID$(TempPal, 763, 1))ãRVal3 = ASC(MID$(TempPal, 766, 1))ããGVal1 = ASC(MID$(TempPal, 2, 1))ãGVal2 = ASC(MID$(TempPal, 764, 1))ãGVal3 = ASC(MID$(TempPal, 767, 1))ããBVal1 = ASC(MID$(TempPal, 3, 1))ãBVal2 = ASC(MID$(TempPal, 765, 1))ãBVal3 = ASC(MID$(TempPal, 768, 1))ããMID$(TempPal, 766, 1) = CHR$((RVal1 + RVal2 + RVal3) \ 3)ãMID$(TempPal, 767, 1) = CHR$((GVal1 + GVal2 + GVal3) \ 3)ãMID$(TempPal, 768, 1) = CHR$((BVal1 + BVal2 + BVal3) \ 3)ããFOR I& = 0 TO 255ã OUT &H3C8, I&ã OUT &H3C9, ASC(MID$(TempPal, (I& * 3) + 1, 1))ã OUT &H3C9, ASC(MID$(TempPal, (I& * 3) + 2, 1))ã OUT &H3C9, ASC(MID$(TempPal, (I& * 3) + 3, 1))ãNEXTããPal = TempPalããEND SUBããDEFSNG A-ZãSUB Switch (Var, Value1, Value2)ãDEFINT A-Zã'----------------------------------------------------------------------------ã' Switches valuesã'----------------------------------------------------------------------------ã'ã' Var - Variable to be changedã' Value1 - Value 1ã' Value2 - Value 2ã'ã'----------------------------------------------------------------------------ã'ã' if Var = Value1 then Value2 will be assigned to Varã'ã' if Var = Value2 then Value1 will be assigned to Varã'ã'----------------------------------------------------------------------------ãããIF Var = Value1 THEN Var = Value2: EXIT SUBãIF Var = Value2 THEN Var = Value1ãEND SUBããSUB Toggle.MenuItem (MenuNum, Num, State)ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Sets the menu item Num in menu number MenuNum active or disabledã'ã' State: True - Active, False - Disabledã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããCaption$ = Get.MenuItem$(MenuNum, Num)ãGet.MenuItemInfo MenuNum, Num, Style$, Selected$, Active$ãIF State THENã Set.MenuItem MenuNum, Num, Caption$, "1", Style$, Selected$ãELSEã Set.MenuItem MenuNum, Num, Caption$, "0", Style$, Selected$ãEND IFãEND SUBããSUB View.PaletteãMHideããSCREEN 13: CLSãSet.Paletteã'MemCopy VARSEG(Buffer(0, 0)), VARPTR(Buffer(0, 0)), &HA000, 0, &HFA00ã'FOR i = 0 TO 255: COLOR i: PRINT "Û"; : NEXTãDraw.Palette -1ãOrgPal$ = PalãRotPal = -1ãCol = FindBrightestColorããCOLOR ColããLOCATE 23, 1ãPRINT " R - Rotate Palette ESC - Return"ããDOã Key$ = UCASE$(INKEY$)ã IF Key$ = "R" THENã RotPal = -RotPalã IF RotPal = -1 THEN Pal = OrgPal$: Set.Paletteã END IFãã IF RotPal = 1 THEN RotatePalãLOOP UNTIL Key$ = CHR$(32) OR Key$ = CHR$(27) OR Key$ = CHR$(13)ããSCREEN 0: WIDTH 80, 25ãCOLOR 7, 1: CLSãDraw.Border 1, 1, 80, 25, 7, 1ãDraw.MenuãMShowãããEND SUBãMatt Sams TILE SCROLLING DEMO hack@dcr.net 02-12-98 (00:25) QB, QBasic, PDS 314 15685 SCROLLER.BAS' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Tile Scrolling Demo/(c)1998 V0id- ³ã' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙã'ã' Introduction:ã' Heya! =] V0id- here just explaining why I wrote this, and neat stuffã' like that. Basically this is an extremely simple tile scrolling engineã' for beginning RPG coders. I'm not saying this is the best way, it's just aã' way, k? =] Anyway, if you have any questions, send email to hack@dcr.netã' and I'll be happy to help, write more example code, etc. Ta, ta.ã'ã' Shameless Plugs:ã' ù UCDOD - A engine (game(?)) I am currently working on. It is reallyã' ³ a dev kit for creating small miniRPGs. The game will workã' ³ on a level by level (dungeon type) type thing, butã' ÚÄÄÄÄÄÄÄÙ depending on how you design it, may or may not matter. ;]ã' User Included is a complete set of ready to go, customã' Configurable tools to create custom sprites, maps, items, monsters,ã' Dungeon magic spells, and your own story for each scenario. Itã' Of will be EXTREMELY easy to use, your only task is to developã' Death your game idea, and leave the hard stuff to the engine.ã' 255 items, 255 monsters, 255(?) spells, x amount of levelsã' (may be limited to certain amount of levels... who knows.)ã' Anyway, comments, suggestions? EMail: hack@dcr.net'ã' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄããREM $DYNAMIC ' Use w/ /AH to allow better memoryã ' usage.ããDEFINT A-Z ' Default type INTEGER, allows forã ' maximum speed.ããCOMMON SHARED PLAYERx%, PLAYERy% ' ¿ã ' Ã Give all SUBs access to these vars.ãCOMMON SHARED KEYBOARD$ ' Ùã ãDECLARE SUB HANDLEkeyboard () ' ¿ãDECLARE SUB HANDLEsystem () ' ³ã ' ³ãDECLARE SUB LOADtiles () ' ³ã ' ³ãDECLARE SUB MAPcreate () ' ³ãDECLARE SUB MAPupdate () ' Ã Lotsa, and lotsa SUBs! =]ã ' ³ãDECLARE SUB MOVEdown () ' ³ãDECLARE SUB MOVEleft () ' ³ãDECLARE SUB MOVEright () ' ³ãDECLARE SUB MOVEup () ' ³ã ' ³ãDECLARE SUB SCROLLERend () ' ÙããCLS ' Clears our screen.ãSCREEN 13 ' 13h (320x200x256)ãRANDOMIZE TIMER ' Seed the random number generator.ããCONST MAPmaxX% = 63 ' Maximum width of map.ãCONST MAPmaxY% = 63 ' Maximum height of map.ããCONST PLAYERmaxX% = (MAPmaxX% - 15) ' How far the player can go (width).ãCONST PLAYERmaxY% = (MAPmaxY% - 9) ' How far the player can go (height).ããPLAYERx% = 0 ' Starting position of player (width).ãPLAYERy% = 0 ' Starting position of player (height).ããREDIM SHARED SPRITES%(807) ' Large bin for sprites.ãREDIM SHARED MAP%(MAPmaxX%, MAPmaxY%) ' Map array (Each number represents theã ' index number of the sprite toã ' display...ããCALL LOADtiles ' Load our tiles from the below DATA.ããCALL MAPcreate ' Randomly create a map.ããCALL MAPupdate ' Show our starting area.ããCALL HANDLEsystem ' Main SUB.ããEND ' Not needed, but you never know. =]ããTILEdata: ' Oi! That's alot of DATA, no?ã ' I could have just included the spriteã ' files, but I like the easy use of aã ' single file...ãã DATA &HA0, &H14, &H7676, &H7676, &H7676, &H7676, &H7B76, &H7676, &H7676ã DATA &H7676, &H7676, &H7676, &H7602, &H7674, &H7676, &H7B76, &H767B, &H7676ã DATA &H8C76, &H7676, &H7676, &H7602, &H7676, &H276, &H7676, &H767B, &H767Bã DATA &H8C76, &H768C, &H768C, &H7676, &H7676, &H7676, &H7676, &H7B76, &H276ã DATA &H767B, &H7602, &H8C76, &H276, &H7676, &H7676, &H7676, &H7476, &H7476ã DATA &H768C, &H8C76, &H7676, &H7B76, &H8C8C, &H7676, &H7676, &H7676, &H7676ã DATA &H768C, &H7B76, &H7676, &H7676, &H7B7B, &H767B, &H7676, &H7676, &H8C76ã DATA &H8C76, &H27B, &H767B, &H7676, &H7B76, &H7B76, &H7676, &H7676, &H7676ã DATA &H8C76, &H768C, &H7B7B, &H7602, &H7476, &H7602, &H28C, &H8C8C, &H7676ã DATA &H7602, &H8C8C, &H7B02, &H7676, &H8C7B, &H7676, &H7676, &H8C76, &H7676ã DATA &H7676, &H7676, &H768C, &H7676, &H7676, &H7B76, &H8C02, &H7674, &H8C76ã DATA &H768C, &H7676, &H7676, &H7676, &H7674, &H768C, &H7B76, &H7476, &H8C8Cã DATA &H768C, &H8C76, &H7676, &H7676, &H7676, &H8C02, &H7676, &H27B, &H7674ã DATA &H768C, &H7676, &H276, &H768C, &H7676, &H7676, &H768C, &H7B76, &H7476ã DATA &H7676, &H276, &H7676, &H7676, &H7676, &H768C, &H7676, &H7676, &H7402ã DATA &H7676, &H7676, &H7676, &H7676, &H7676, &H8C76, &H7676, &H7676, &H7676ã DATA &H7B76, &H7676, &H7676, &H7676, &H276, &H7676, &H768C, &H7676, &H7676ã DATA &H276, &H7676, &H747B, &H7676, &H276, &H7676, &H7676, &H768C, &H7676ã DATA &H7676, &H7676, &H7B8C, &H7676, &H8C8C, &H7676, &H7676, &H276, &H7676ã DATA &H7676, &H276, &H7676, &H8C7B, &H8C02, &H7674, &H7676, &H7676, &H768Cã DATA &H7676, &H7676, &H7676, &H7674, &H7676, &H8C76, &H7674, &H8C76, &H8C02ã DATA &H7676, &H7676, &H7602, &H7676, &H7676, &H7676, &H7676, &H7676, &H7676ã DATA &H768C, &H7676, &H7676, &H7676, &HA0, &H14, &H7676, &H7676, &H7676ã DATA &H7676, &H7B76, &H7676, &H7676, &H7676, &H7676, &H7676, &H7602, &H7674ã DATA &H7676, &H7B76, &H767B, &H7676, &HA76, &H202, &H7602, &H7602, &H7676ã DATA &H276, &H7676, &H20A, &H202, &H8C76, &HA0A, &H20A, &H202, &H7676ã DATA &H7676, &H7676, &HA76, &HA0A, &H202, &H202, &HA0A, &HA0A, &H202ã DATA &H7676, &H7676, &H7476, &HA76, &HA0A, &H20A, &H202, &HA0A, &HA0A, &H202ã DATA &H7676, &H7676, &H7676, &HA8C, &HA0A, &H20A, &H20A, &H202, &HA0A, &H202ã DATA &H7676, &H8C76, &HA76, &H202, &HA02, &HA0A, &HA0A, &H202, &H202, &H202ã DATA &H7676, &H8C76, &HA0A, &H20A, &H202, &HA02, &HA0A, &H20A, &H202, &H7602ã DATA &H7602, &H8C8C, &HA0A, &HA0A, &H202, &HA02, &HA0A, &H20A, &H602, &H7676ã DATA &H7676, &H768C, &HA0A, &HA0A, &H202, &HA06, &HA0A, &H20A, &H602, &H7676ã DATA &H7676, &H7676, &HA0A, &HA0A, &H202, &HA06, &HA0A, &H202, &H602, &H7676ã DATA &H7676, &H7676, &HA0A, &H20A, &H202, &H7606, &H202, &H202, &H702Aã DATA &H768C, &H7676, &H7676, &H28C, &H202, &H2A02, &H7670, &H676, &H2A06ã DATA &H7676, &H7670, &H768C, &H7676, &H7676, &H606, &H762A, &H7076, &H2A76ã DATA &H7606, &H7676, &H8C76, &H7676, &H7676, &H7676, &H62A, &H7676, &H7676ã DATA &H2A76, &H206, &H7676, &H768C, &H7676, &H7676, &H276, &H62A, &H747Bã DATA &H7676, &H2A76, &H7670, &H7676, &H768C, &H7676, &H7676, &H7676, &H702Aã DATA &H7676, &H8C8C, &H762A, &H7076, &H276, &H7676, &H7676, &H276, &H2A76ã DATA &H8C7B, &H8C70, &H7674, &H7676, &H7676, &H768C, &H7676, &H7676, &H7676ã DATA &H7674, &H7676, &H8C76, &H7674, &H8C76, &H8C02, &H7676, &H7676, &H7602ã DATA &H7676, &H7676, &H7676, &H7676, &H7676, &H7676, &H768C, &H7676, &H7676ã DATA &H7676, &HA0, &H14, &H600, &H606, &HF70, &HF0F, &H1E1E, &H2A70, &H2A2Aã DATA &HF70, &HF0F, &H1E1E, &H7006, &H7006, &H2A2A, &H1E0F, &H61E, &H7006ã DATA &H7070, &H2A2A, &H1E0F, &H61E, &H606, &H2A70, &H2A2A, &H2A70, &H62Aã DATA &H7006, &H701E, &H2A2A, &H2A2A, &H606, &H670, &H7006, &H702A, &H701Eã DATA &H606, &HF70, &H1E1E, &H2A70, &H62A, &H7006, &H701E, &H606, &HF70ã DATA &H1E1E, &H7070, &HF0F, &H1E0F, &H701E, &H606, &H1E70, &H1E1E, &H7070ã DATA &HF0F, &H1E0F, &H701E, &HF2A, &H1E1E, &H606, &H7070, &H1E0F, &H1E1Eã DATA &H7006, &HF2A, &H1E1E, &H606, &H2A70, &H2A2A, &H606, &HF70, &HF0Fã DATA &H2A1E, &H606, &H2A70, &H62A, &H7006, &H701E, &H2A2A, &H7006, &H2A2Aã DATA &H1E0F, &H2A2A, &H606, &H7006, &H606, &HF70, &H1E1E, &H670, &H2A70ã DATA &H2A2A, &H2A2A, &H2A2A, &H62A, &H606, &H7070, &HF0F, &H1E0F, &H701Eã DATA &H2A2A, &H2A2A, &H2A2A, &H2A2A, &H62A, &H606, &H2A70, &HF2A, &H1E1Eã DATA &H606, &H2A70, &H702A, &H2A2A, &H2A2A, &H606, &H7006, &H2A2A, &H2A2Aã DATA &H2A2A, &H606, &H7006, &H1E70, &H2A70, &H62A, &H606, &H2A70, &H2A2Aã DATA &H2A2A, &H2A2A, &H606, &H7006, &H1E0F, &H701E, &H670, &H7006, &H2A2Aã DATA &H2A2A, &H2A2A, &H2A2A, &H606, &HF70, &HF0F, &H1E1E, &H7006, &H2A70ã DATA &H2A2A, &H2A2A, &H2A2A, &H62A, &H7006, &H2A2A, &H1E0F, &H61E, &H606ã DATA &H2A70, &H2A2A, &H2A2A, &H2A2A, &H606, &H2A70, &H2A2A, &H2A2A, &H2A2Aã DATA &H62A, &H7006, &H2A2A, &H2A2A, &H62A, &H7006, &H2A2A, &H2A2A, &H2A2Aã DATA &H2A2A, &H2A2A, &H606, &H2A70, &H702A, &H62A, &H2A70, &H2A2A, &H2A2Aã DATA &H702A, &H2A2A, &H2A2A, &H606, &H7006, &H1E70, &H7070, &H2A2A, &H2A2Aã DATA &H2A2A, &H1E70, &H2A70, &H62A, &H606, &H7006, &H1E0F, &H701E, &H2A2Aã DATA &H2A2A, &H702A, &H1E0F, &H701E, &HA0, &H14, &H6969, &H6969, &H6969ã DATA &H6969, &H6969, &H6969, &H969, &H6969, &H6969, &H6969, &H6969, &H6969ã DATA &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969ã DATA &H6969, &H6969, &HF69, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969ã DATA &H6969, &H6909, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969ã DATA &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969ã DATA &H6909, &H6969, &H6969, &H6969, &H6969, &H6969, &H969, &H6969, &HF69ã DATA &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969ã DATA &H6969, &H6969, &H6969, &H6969, &H6969, &H690F, &H969, &H6969, &H6969ã DATA &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969ã DATA &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969ã DATA &H6969, &H6969, &H6969, &H969, &H6969, &H6969, &H6969, &H6969, &H6969ã DATA &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969ã DATA &H6969, &HF69, &H6969, &H6969, &H6969, &H690F, &H6969, &H6969, &H6969ã DATA &H6969, &H6909, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969ã DATA &H6969, &H6969, &H6969, &H6969, &H6969, &H969, &H6969, &H6969, &H6969ã DATA &H969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969ã DATA &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969ã DATA &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6909, &HF69ã DATA &H6969, &H6969, &H6969, &H690F, &H6969, &H6969, &H690F, &H6969, &H6969ã DATA &H6969, &H6969, &H6909, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969ã DATA &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969ã DATA &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969, &H6969ããREM $STATICãSUB HANDLEkeyboardãã SELECT CASE KEYBOARD$ ' Let's pick out which key was pressed...ã CASE (CHR$(0) + "H"), "8" ' Up arrow key or '8' is using NUMPad.ã CALL MOVEupã CASE (CHR$(0) + "M"), "6" ' Right arrow key or '6'...ã CALL MOVErightã CASE (CHR$(0) + "K"), "4" ' Left arrow key or '4'...ã CALL MOVEleftã CASE (CHR$(0) + "P"), "2" ' Down arrow key or '2'...ã CALL MOVEdownã CASE "7" ' Up/Left diagonal (NUMPad ONLY!). Use '7'.ã CALL MOVEupã CALL MOVEleftã CASE "9" ' Up/Right diagonal (NUMPad ONLY!). Use '9'.ã CALL MOVEupã CALL MOVErightã CASE "1" ' Down/Left diagonal (NUMPad ONLY!). Use '1'.ã CALL MOVEdownã CALL MOVEleftã CASE "3" ' Down/Right diagonal (NUMPad ONLY!). Use '3'.ã CALL MOVEdownã CALL MOVErightã CASE CHR$(27) ' Press ESC to end.ã CALL SCROLLERendã CASE ELSEã SOUND 100, 1ã END SELECTãã WHILE INKEY$ <> "" ' Â Clear our keyboard buffer. Kill the BEEP.ã WEND ' ÙããEND SUBããSUB HANDLEsystemãã DO ' DO...ã KEYBOARD$ = UCASE$(INKEY$) ' KEYBOARD$ = The uppercase value of the key...ã IF KEYBOARD$ <> "" THEN ' Was a key pressed?ã CALL HANDLEkeyboard ' Yup, handle it.ã CALL MAPupdate ' Update our map.ã END IF ' End our IF.ã LOOP ' LOOP!ããEND SUBããSUB LOADtilesãã RESTORE TILEdata ' Start loading from TILEdata:ã ã FOR TILEindex% = 0 TO 807 ' Read 808 DATA statements.ã READ TILEdata% ' READ it.ã SPRITES%(TILEindex%) = TILEdata% ' Load it into the right array index.ã NEXT ' NEXT DATA statement.ããEND SUBããSUB MAPcreate STATICãã FOR MAPy% = 0 TO MAPmaxY% ' Loop to our max Y position.ã FOR MAPx% = 0 TO MAPmaxX% ' Loop to our max X position.ã MAP%(MAPx%, MAPy%) = CINT(RND * 3) ' Put a random number in there (0-3).ã NEXT ' NEXT MAPy% position.ã NEXT ' NEXT MAPy% position.ããEND SUBããSUB MAPupdateã ã FOR MAPy% = 0 TO 9 ' Top toã ' bottom.ã FOR MAPx% = 0 TO 15 ' Left toã ' right.ã TILEnumber% = MAP%((PLAYERx% + MAPx%), (PLAYERy% + MAPy%)) ' Get ourã ' index.ã ã ' Put our tile according to the MAP% array, and our current position.ã PUT ((MAPx% * 20), (MAPy% * 20)), SPRITES%((TILEnumber% * 202)), PSETã NEXT ' NEXT Y pos.ã NEXT ' NEXT Y pos.ããEND SUBããSUB MOVEdownã ã IF PLAYERy% < PLAYERmaxY% THEN ' Are we below the limit?ã PLAYERy% = PLAYERy% + 1 ' Yes, so move up.ã ELSE ' No, annoy the user.ã SOUND 100, 1 ' BEEP.ã END IF ' END IFããEND SUBããSUB MOVEleftã ã IF PLAYERx% > 0 THEN ' Are we above the minimum?ã PLAYERx% = PLAYERx% - 1 ' Yes, so move left.ã ELSE ' Nope, annoy the user!ã SOUND 100, 1 ' BEEP!ã END IF ' END IFããEND SUBããSUB MOVErightã ã IF PLAYERx% < PLAYERmaxX% THEN ' Are we below the limit?ã PLAYERx% = PLAYERx% + 1 ' Yes, move right.ã ELSE ' Nope, annoy the user! >=]ã SOUND 100, 1 ' BEEP!@#ã END IF ' END IFããEND SUBããSUB MOVEupã ã IF PLAYERy% > 0 THEN ' Are we above the minimum?ã PLAYERy% = PLAYERy% - 1 ' Yes, move up.ã ELSE ' Nope... BEEP!ã SOUND 100, 1 ' Muahaha. ;]ã END IF ' END IFããEND SUBããSUB SCROLLERendã ã CLS ' Clear the screen.ã SCREEN 0 ' 3h (80x25x16)ã WIDTH 80, 25 ' Make sure it's 80x25.ã ã COLOR 7 ' ¿ã PRINT "Tile Scrolling Demo/(c)1998 V0id- "; ' ³ã COLOR 15 ' Ã Print some end info...ã PRINT "³" ' ³ã PRINT "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ" ' ³ã COLOR 7 ' Ùãã END ' Fin.ããEND SUBãDavid A. Wicker SIMPLE EXAMPLE OF PCOPY pyramax@fastlane.net 02-16-98 (17:39) QB, QBasic, PDS 65 2066 PCOPY.BAS ' Simple example of PCOPY >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>ã' Written by David A. Wicker Feb 16, 1998ã' pyramax@fastlane.netã' http://www.fastlane.net/~pyramaxã' ---------------------------------------------------------------------------ã' As always, if you borrow anything from any source code for yourã' shareware or freeware projects, please give credit to the original author!ã' ---------------------------------------------------------------------------ãã' DEFINT A-Z and '$DYNAMIC as the first two lines of every QBasic programã' ensure maximum speed and maximum memory capability.ã' They are chiseled in every single program I write.ããDEFINT A-Zã'$DYNAMICããDECLARE SUB Update ()ãDECLARE SUB CLR ()ããSCREEN 7, , 1, 0ã' Setup a screen 320x200 with 16 colors. Also, set it so we are VIEWINGã' Page # 0 but WRITING to page # 1 .ããD = 1ãN = 50ãDOãã CLRã ' This is a simple SUBPROGRAM to clear graphics display.ãã N = N + Dã IF N = 50 OR N = 100 THEN D = -Dã ã CIRCLE (160, 100), 25, 2, , , N / (101 - N)ã ' The "CIRCLE" command has quite a few options! Tap [F1] with theã ' cursor sitting on the word "CIRCLE". Oh, and call it, heads orã ' tails. :)ãã Updateã ' The real magic of SCREEN #7 - up to 8 available playfields !ããLOOP UNTIL INKEY$ > ""ã ' Exit when any key is pressed. "<>" is not needed because noã ' keystroke can be less than nothing. :)ããREM $STATICãSUB CLRãã LINE (0, 0)-(319, 199), 0, BFã ' Use "B" for drawing a hollow box.ã ' Use "BF" for drawing a filled in box.ããEND SUBããSUB Updateãã PCOPY 1, 0ã ' Very quick and efficient way to copy screens. You could easily do allã ' your graphic work first, then clean it up, then call UPDATE to showã ' what changes have occurred since the last time UPDATE was called.ã ' Tap [F1] on the word "PCOPY" to see full help for this QBASIC command.ã ' Good usage of the "PCOPY" command can ensure completely flicker-freeã ' graphic displays every time.ããEND SUBãPetter Holmberg BEZIER CURVE DRAWING ROUTINE petter.holmberg@usa.net 02-23-98 (08:40) QB, QBasic, PDS 222 4654 BEZIER.BAS ' B‚zier curve drawing routine by Petter Holmberg, -98:ããDECLARE SUB DrawBezier (x1!, y1!, x2!, y2!, c1x!, c1y!, c2x!, c2y!, col%)ããRANDOMIZE TIMERããCLSãSCREEN 0ãWIDTH 80, 25ããPRINT "B‚zier curve drawing routine by Petter Holmberg, -98:"ãPRINTãPRINT "A B‚zier curve is a mathematical curve based on an iteration of two third-degree"ãPRINT "equations, and it can be used to draw almost any type of simple curves."ãPRINT "The B‚zier curve was invented in the early seventies by Pierre B‚zier, a french"ãPRINT "engineer and mathematician, to be used in CAD/CAM applications. Nowadays, a"ãPRINT "B‚zier curve drawing function exists in most sophisticated drawing programs."ãPRINTãPRINT "A B‚zier curve is defined by four points; the endpoints and two control points."ãPRINT "By setting these points to different locations you can draw curves, straight"ãPRINT "lines or even loops."ãPRINTãPRINT "This demo demonstrates the possibilities of the B‚zier equation."ãPRINT "If you are making a painting program and want to include B‚zier curves, feel"ãPRINT "free to use this routine. All I demand is that you give me the credits."ãPRINT "If you use it in a program of yours, I would be glad if you sent me a mail and"ãPRINT "told me about it. my email address is: petter.holmberg@usa.net"ãPRINTãPRINT "Press any key to continue this demonstration..."ãPRINTãPRINT "- This routine was based on information at:"ãPRINT " http://www.moshplant.com/direct-or/bezier/math.html"ããDO: LOOP WHILE INKEY$ = ""ããSCREEN 13ããLOCATE 1, 1ãPRINT "A simple B‚zier curve:"ãCOLOR 12ãPRINT "Red : endpoints"ãCOLOR 14ãPRINT "Yellow : control points"ãCOLOR 15ãPRINT "Press any key to draw the curve..."ããx1! = 100ãy1! = 150ãx2! = 200ãy2! = 100ãc1x! = 130ãc1y! = 100ãc2x! = 170ãc2y! = 80ããPSET (x1!, y1!), 12ãPSET (c1x!, c1y!), 14ãPSET (c2x!, c2y!), 14ãPSET (x2!, y2!), 12ããDO: LOOP WHILE INKEY$ = ""ããDrawBezier x1!, y1!, x2!, y2!, c1x!, c1y!, c2x!, c2y!, 15ããPSET (x1!, y1!), 12ãPSET (x2!, y2!), 12ããDO: LOOP WHILE INKEY$ = ""ããCLSãLOCATE 1, 1ãPRINT "With the B‚zier formula you can draw..."ããDO: LOOP WHILE INKEY$ = ""ããPRINTãPRINT "Lines..."ããx1! = 100ãy1! = 20ãx2! = 200ãy2! = 20ãc1x! = 130ãc1y! = 20ãc2x! = 170ãc2y! = 20ããDrawBezier x1!, y1!, x2!, y2!, c1x!, c1y!, c2x!, c2y!, 15ããPSET (x1!, y1!), 12ãPSET (c1x!, c1y!), 14ãPSET (c2x!, c2y!), 14ãPSET (x2!, y2!), 12ããDO: LOOP WHILE INKEY$ = ""ããPRINTãPRINT "Curves..."ããx1! = 100ãy1! = 50ãx2! = 200ãy2! = 50ãc1x! = 130ãc1y! = 80ãc2x! = 170ãc2y! = 80ããDrawBezier x1!, y1!, x2!, y2!, c1x!, c1y!, c2x!, c2y!, 15ããPSET (x1!, y1!), 12ãPSET (c1x!, c1y!), 14ãPSET (c2x!, c2y!), 14ãPSET (x2!, y2!), 12ããx1! = 210ãy1! = 50ãx2! = 310ãy2! = 80ãc1x! = 240ãc1y! = 100ãc2x! = 280ãc2y! = 30ããDrawBezier x1!, y1!, x2!, y2!, c1x!, c1y!, c2x!, c2y!, 15ããPSET (x1!, y1!), 12ãPSET (c1x!, c1y!), 14ãPSET (c2x!, c2y!), 14ãPSET (x2!, y2!), 12ããDO: LOOP WHILE INKEY$ = ""ããLOCATE 15ãPRINT "And even loops..."ããx1! = 150ãy1! = 150ãx2! = 150ãy2! = 130ãc1x! = 200ãc1y! = 110ãc2x! = 200ãc2y! = 170ããDrawBezier x1!, y1!, x2!, y2!, c1x!, c1y!, c2x!, c2y!, 15ããPSET (x1!, y1!), 12ãPSET (c1x!, c1y!), 14ãPSET (c2x!, c2y!), 14ãPSET (x2!, y2!), 12ããx1! = 250ãy1! = 130ãx2! = 220ãy2! = 120ãc1x! = 250ãc1y! = 180ãc2x! = 310ãc2y! = 170ããDrawBezier x1!, y1!, x2!, y2!, c1x!, c1y!, c2x!, c2y!, 15ããPSET (x1!, y1!), 12ãPSET (c1x!, c1y!), 14ãPSET (c2x!, c2y!), 14ãPSET (x2!, y2!), 12ããDO: LOOP WHILE INKEY$ = ""ããCLSãPRINT "Press any key for a random B‚zier curve."ãPRINT "You can quit at any time with ESC."ããDOã DOã key$ = INKEY$ã LOOP WHILE key$ = ""ãã LINE (0, 16)-(319, 199), 0, BFãã x1! = INT(RND * 320)ã y1! = INT(RND * 184) + 16ã x2! = INT(RND * 320)ã y2! = INT(RND * 184) + 16ã c1x! = INT(RND * 320)ã c1y! = INT(RND * 184) + 16ã c2x! = INT(RND * 320)ã c2y! = INT(RND * 184) + 16ãã DrawBezier x1!, y1!, x2!, y2!, c1x!, c1y!, c2x!, c2y!, 15ãã PSET (x1!, y1!), 12ã PSET (c1x!, c1y!), 14ã PSET (x2!, y2!), 12ã PSET (c2x!, c2y!), 14ã ãLOOP UNTIL key$ = CHR$(27)ããCLSããSUB DrawBezier (x1!, y1!, x2!, y2!, c1x!, c1y!, c2x!, c2y!, col%)ããx! = x1!ãy! = y1!ããcx! = 3 * (c1x! - x1!)ãbx! = 3 * (c2x! - c1x!) - cx!ãax! = x2! - x1! - cx! - bx!ããcy! = 3 * (c1y! - y1!)ãby! = 3 * (c2y! - c1y!) - cy!ãay! = y2! - y1! - cy! - by!ããPSET (x!, y!), col%ãFOR t! = 0 TO 1.05 STEP .05ã x! = ((ax! * t! + bx!) * t! + cx!) * t! + x1!ã y! = ((ay! * t! + by!) * t! + cy!) * t! + y1!ã LINE -(x!, y!), col%ãNEXT t!ããEND SUBãDavid W. Hayward SCROLLING TEXT/SPRITES V1.0 dhaywa01@mail.orion.org 03-09-98 (15:31) QB, QBasic, PDS 137 9074 SCROLL10.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"SCROLL10.ZIP",4^6:Z&=6538:?STRING$(50,177);ãU"%up()%9%%%I-%Gw\7I1C56xx1.%%ob%%%1%%%%xh%wtqq%VUSgRfx6)qWxU'D#sRr3UzsuM:n)>wk1n;RY$]Dt*Lh#oeQIkrMq_c4lFm.V>vWVq$tpDSbãU"ho,-<8u4%(N$;..^.)_\$m%4BHS;G9)%.,b:Pdwkt7MWlWC_s1nMD,r76TU.Bh^ãU"bDS/yy,#6oOl7sZ,FlnoxVUDHV-i7'lu2$[$S'NnmnV8)U[*1a#D0==c6Z\[*aFC+r^wm4vKR]O?qQE.9D4;-pãU"7,HwuuBEe*3)m_)D/':#&4-pkRAJHS%f:FgsaD3GhQ]7\ãU"020D9M&n'c<'/gSKcVmSadM#IIQa&XA^O]1,>a9GnD2uG$jb].%PU0pH/#;E?FIãU"jQc'0V.9e6:gZe9Z;[5+U#DO2d/I&lHtuK&%XD:;j%vtE9L+L2>q[K?[8p69y^shV8/6Y29Y2<#]<8ãU"rRt%CRl*.*I.O\/9Te#%Va7U%aiWf4ag)V0mMr)5#=OtyWqeJh7.\t%pu+QW39EãU"I7ad6A00+edP+0M3VB:fr\#;e8pOCc10um#?i7Fi)^qM+TFz+\2oZXZ&lW\El79ãU"7tRiaL(lAuK%*rSH-[22?nQwED4ieGo9)YUj*M)J]?+T);w)[wYtY9b>k3TE3OeãU"y-0gErFfm9M4,E\s=Xi)+?;pYfCInkTrM.O5Ympq#qH*IdgUI/Gm)97bt6;\ovHãU"R,N:G-/h(qX-M,7RA24FF7QG/m#q^[q7[ct]]\c8D((h&ipIZxUmT4X*rp[g):5,'chK<'R2K:&pHDwU-G7a.*miJV3[_+g[nu67N0=<;?oXn:6DE1oãU"JwZZlt32f>/%X('Qg2gy2^$>w$s%1AtQq1Y2eU'BBbuKL*cfi2*mOb-A,pK.cV8ãU":PY(t)hWF-qYsc%ByCy:wNXU)qMfN'rTRLnv:QuLS)TalU?;*L[XsVkU:i-e22(ãU"575Z(MYF[xJ>SPrqZc>E;eNWEQ^9g86pU4:MjFi6+D7*^;S'ãU"FDK+2#i0=FO,o;W&9N*8#/z/),cW3QBTk&n/(hVz+gMin#/L3qWm7]4P7i+g)GBãU"GK1oskjag^-_gYEfwD4)5t7'M1WIBB#fm>uYZp,B]Y0Guo?g53MA5;*tFn*W=>nãU"q[*gkxPXst;_A%mz-0oRu]mr?^K/X79iW44bewW^r.';WGktma$'eh>qWw3s3Y/ãU"Tb98btqshq=L^h#XVi>NJt-2ãU"PrYk]4p^4xH+Utnfee,z'mLi46ME/T4;?PYM^U8HUZxC=A,QBI/jy(E2rz\A4+:ãU"T%T2b%lYMLAdr0suQPn6nJVM9btW7^sYGJlo7mti/:iZ7D\.o)O(Jn1gNup3c:bãU"t8Lm0rH;M(hY;pJt?^MvhQ4$l59,R%6[H&w9[Cu'dNmhnuTk^0t.2iHY&a7s*#GFIbtUEãU"j]m;%&,Fit%Fm#FW&a=Pp[977BCOHdB\&w'C\B,QGjss;EH^'oãU";S'8vR2q]DL'O6_xP(fef%8dKZM$l9nARY0bK%HX23;K$y4tJ:W+>&8FCg:(q5NãU"kkb>'GMkFp*cBLfccEhHL-h=Z>)Z8d97<7BtAU6U2wwi%uq4S7]D=9v]\=aI%9tãU"C]J&2O;C+IHY2H$gq;>V;C)fC.9W]FJT#$Pm*V0(ZZ/V:;,Q.0(T-f&=0boJ?-SãU"XY=de[xhQ:[<^WkyDFuajR$CQem%']Q-A7OJJtW7>=8B;bUm+:aIc^[I+Vq)cKZ*1k;w7AKYz;\T)*>b?O$(pmu'2;ZJM42/AdTgi,N\=g66[X3pt$>rOW3NytW?Ypd\]BeJ#mb>\l_0K5l?TSY;>ãU"-xk:XNMTue&LfRap[BNp]ymCo2Q*?CHX29c9xS*xm1[.D#,Ju+jgS8Z?(9S\lQ&ãU"esM=4U/*mSW)>(JZP9UpBUJIj2ixu)$R;\)DMJPãU"9YM/+1Ax^w$[CI\0K6zA1^Ia8l)(xQ82X)dK>'6V]8JgdY>Wrx%\xb>]BmxeWJ+ãU"o8s,RxRw=A<.e;N=]373d>/u\i*8Rt4Xf#GbbUOknboP]PomXC=HR&)kvS[zl,NãU"mWy\.$cs;(+zD+vun:\ScmssD5W.q&>gN3vtk4.*M<9rtLj;[2dlj^oi9^Gc#x%(i(+b*Fu$$1ãU"pTeB>G)UcIuC3J<7KVW?m9MLEcB\[Z/J+xg9JBV.&SJ[T'ElbjW5SnZ0$n=kB0GN,9e;HD?-+rmiEf_8FbYOãU"GDQ#:R?0nQEehkvBwC/LSv%HpZTdeq8bJ5R)cf*0/(U';Xm8j8\DcuC<>H&8?#EãU"#^$PXxDr#8a=X^A#8cc=^E3#Hr8]$MD$f&sk\DKk0l7]Lr]CRl]vor]8Pd_tzr4ãU"eX7*RwU;t&%E*J)+8*w/?g*P__Q9'B.'N'BZkP_SQ;W87*wigIlP_QO=3)Ps9EIãU"LH3+OgEZ%P_nQ>7NL/s/U3p)P9QEil%#E*XKKI/s//Ud7*IwURp7:m:1)u%E*=XãU"M-':NgZeS:S%/8Uh&e^/5]KL/s/U,2&e/85]J/2s/UxB&e/5HQJ/sV/UX9[*wU<ãU")m%E*+XunP__Q>76O3JzOUel7IwI9FQ).$B^z%id\8OlS:vl\RvRW+<_ãU"xuqC#qV?KN<==1^T9Li)7FduOR2GX5ID*laxlN*qN]k*#/2Z=ml6^mZ'BRJT%=zãU".aZ=lk0ENDFMzt?Kh\5%Z,a/r,Np[gy=6'Em[\jw&rp7#jKFãU"A\Nj$Sv=&feh>4.P[+R[l+<[+qr[+\P[+b[H+LQjfB6I(i2%$^V\$^]P$^^$i^_ãU"$^2$$?n+q9t.qR$^4Y$^5$6^6h:#kXX]M(mj(Mmj(mMj(mj*b/w9_qYQ(oEQ(EOãU"Q(9(t-N+5_y43H2S&#e6WP*bcqnj&mvTdBK5NYfndzjcZhn^D'6&*ODxoqpLq<=I2l3jmXChO08%ãU"dx9FuP\7M%PMLS&>20Ff5s;Z.bN8060.>-d(=4):1r9Fr7G%&Y81:-Ku3.jmsO678%fOIUãU")[NvTCPm_1\H0m^^a*+2#EnT<;BrI)*Vs,fTlbV%aTUeFX6YQWID()Z_6hzãU"3Z7KLHb'cReIpOE:?6Ha5pWu6+hW,g/bb-:A:&iq=vAMA_$49m8(c8?B\I[[kG&ãU"t;;JA+TwxY6^=V_t.F4Tq5u0Y%j)h,/pbP1M(^yT]MH**24.NNF:m=1k&:Yh&.VãU"htprw5hO7DofVc%'1'1jmRE=BsNP_DB5MU'vKNY(QsBd5an8F['lfC,BG$WaT$fãU"\2IgS+)b&kCh>OF00yDHhhn.p?F'pM4w3g$iD('mGIYh=yHxwPv4rq(TSYFW09ZFPvt46nEg[ip9JEmU:&e2KN:Om:_)MN9MEa'ãU"DR:oacYK;S\=]L,u[v_Soq3Np#EZ6c0>g0n,2W=r]JP,uUU<^?Hmx&%up()%9%%ãU"%R-%L887IY=16Sx&7%%#7%%%-%%%%xm%nuSxRuwfe:rYUU(5Tpb)/*EJ'5h7NHK[=H3\qI7$0KGD\L(Xlmz)7D^+BEWeãU"bUZVr[mBL_VA:O#$WMNl^D9J4sicxQt0DNSYA>kp1MkP6aU949='wU-M22uUbt7WV-1ONb?CQmo\5c[iPK%ZãU"MoILs#l7).SQ-S+HKcP]w/1&fC24KIJl,^96MB_7&(5D*v5.1mUpO3a_AowaLM_ãU"5%+9q?aN]ArW4\FbPnl)%LIt$MH-Lf5tm[nbMrjfYt=BFf0D?JHNI=ixQSp7WbtãU"[xkz9lgNIbv,IJw&0lxKOl6(cqDU9A2wãU"C4ExPVtAQ4dZg;d-cS4hL1[>VQ5i=V_cvIt>gmqsbM]5cHrj)>vEqaA8t&d=g,jãU"4U1#nhcKBAF^k7T9lW5X)(Gnx0TWuJ(;Xw_jrtV_sqQJO%GãU"'<4%#Y':N/tr3Z0^0M$)4zI0-eyf-scnBw$Iag;d1*6#7m(:b.=9jhmcu.36mv(ãU"D4iQqV?Yz7N42OLz2AMFSo4(q3RML2_6s)kOf%F_MBA#QHhJ)W=8>cgIT4fR9)+ãU"\QM(UFu353P]]fHfu<;Evg(_O<]r#qtYSRrZz^Z3rUmHFR3EAptf==53Fr])hYRãU"vevdq;:7x,AnmMh%14J<1%9-z3./7<$Xl22\oK_(x$:-#i^9Rbr>Wp9V=#Nn+ãU"g(;pJQPu-igylWA2mPc6FfnCJ]^VXar6:5cIE]u*dO0J$SFiEJ^Qr>OQ)&Tj_#=ãU",S,YK&/43ssAb)04R2^%fRASy)7%:v7t)'h3$hN[5tZE/qb<52k,tChLx['r69-JFFc7>&Iy+Ph&9fãU";%>].%CF$7qP,;gPqtB7Ke%j15DHE3xgOaINr$%->.;&?aGmJ:aRxR7[pWesBhSTNM5g^k>IR?3<*V?nld)+9hG\-+ãU"GowQP>rd2_PufrGCWgG[WZBOhEm.cKcU7(nU9MpJ[]$8jbviA/sDwm_](tDEkr#ãU"^wVruBEpTF-t5el6O93B8:CO7W;8UN0wUeEX/e+)WC'ee:SCjYuVB2DW)[SQkZ]ãU"C>8b#s;/q+KfGnq3t:qpi9?f.XA6/Rf4lyG$szsb5I[*Jttt1qAJ_XL2VAy.Ao*ãU"F\3zz+Uh;w7R[_:iLO:1jk;MU.:ay+Bf4'ALs<#5maGjz]a(::B8eR(<=kRV=%)ãU"cg17OTsC(h3&KB)P9gK.#UlkKDhlCjrãU"2KAgaK?c3Bp(gB_j/$y'XHkz(Y^ii4wYYVF64-&f3,CN:/45eãU"H=-=-vtzl'G8nN[CDD_'dT8hLef,3aK4X,*QA+VCSFauOr6pBSk]2H0HCosB94fãU"8V\iZgNlN,css\Xa.;\m3/SfduFS>xnA<3ltYrf0X%(0&u(W6QW7Nl6VIlD=;49ãU")STk^XqtxqUe/l2it+d7yN+$=[KYX&ãU"]LAI3E64Mmy9L.HbWlJh3tUKXP&Pb:)AR^*%7b62&RO&')an0^GW/eOdvjq+j=eU)Im\l3fl?&=4SJVU$Sp.Q,y^R_?Xu*HEG:lPZ.m8PcNcC6hJ8aW%d&up%&'9%ãU"%9%%%I-%Gw\7I1C56xx1.%%ob%%%1%%%%%%%%%&%%E%%%%%%%%%xhwt%qqVU%SgãU"fx%up&'%9%9%%%%-%)HlbI7lQ\P&*'%%&r-%%%-%%%%%%%%%&%E%7%%L1%%%kt%ãU"sySk%syup%&'9%%9%%%R-%L887IY=16Sx&7%%#7%%%-%%%%%%%%%%%%E%%%%y4%ãU"%%xmnu%Sxuw%up&'%9%9%%%%-%2#Q7I''w75%p,%%'L8%%%/%%%%%%%%%&%E%%%ãU"%H6%%%wj%firj.Sy'y%up*+%%%%%%)%)%'W%%%&e=%%%%%ãEND SUBãCLOSE:IF S=13AND 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ãWayne Wallace FLUORESCENT CONES www.qbasic.com 03-18-98 (21:30) QB, QBasic, PDS 90 2349 CONES.BAS 'Title: Fluorescent Conesã'File: CONES.BASã'Source: Computer Doodles: (ISBN 1-887112-01-4)ã'Date: May 1996ã'Author: Wayne Wallaceã'Send all comments to: Wayne Wallace, 3129 25th St. #212, Columbus, IN 47203ãã'*********************** Please Note *******************************ã'The program line "speed = 10" controls the speed of the program. ã'Adjust this value to match the program to the speed of your computer.ã'To stop the program while it is running, press any key.ã'********************************************************************ãã'How it Works:ãã'Three different colored circles are drawn at the starting coordinatesã'of (50, 50), but each circle is slightly out of phase by one row. Theã'cones are made by increasing and decreasing the size of the circles asã'they move diagonally across the screen. ããSCREEN 12ãDEFINT A-Zãspeed = 10ãRANDOMIZE TIMERãã'Select plaid colors-for backdrop---ãk1 = 4: k2 = 8: k3 = 0: cc = 31: aa = 480ãb2 = 480: d2 = 480: i1 = 8: i2 = 8ãGOSUB backdropã'--------------ãa = 50: B = 50: c = 25ãd1 = 1: d2 = 1: d3 = 1: d4 = 1ãk1 = 10: k2 = 13: k3 = 0ã FOR m = 1 TO 9463ã IF INKEY$ <> "" THEN ENDã CIRCLE (a, B - 1), c, k1ã CIRCLE (a, B), c, k2ã CIRCLE (a, B + 1), c, k3ã a = a + d1: B = B + d2ã IF a > 620 THEN d1 = -1: k1 = INT(RND * 7) + 9ã IF a < 6 THEN d1 = 1: k3 = 0ã IF B > 480 THEN d2 = -1: k2 = INT(RND * 7) + 9ã IF B < 6 THEN d2 = 1: k1 = INT(RND * 7) + 9ã IF k2 = 11 THEN k1 = 15ã IF k1 = 11 THEN k1 = 12ã IF m > 4283 THENã c = c + d3ã 'cone effectã IF c > 50 THEN d3 = -1: vx = 2.5ã IF c < 1 THEN d3 = 1ã IF c < 10 THEN vx = 4ã END IFã FOR delay = 1 TO speedã NEXT delayã NEXT mã SLEEP 3ã'clear the screen in whiteãk1 = 0ãGOSUB clswipeãENDããclswipe:ã'---black cls-----------------ão1 = 640: p1 = -1: o2 = -1: p2 = 480ãf1 = 1: f2 = 1ãFOR m = 1 TO 325ãIF INKEY$ <> "" THEN ENDãLINE (o1, p1)-(o2, p2), k1, Bão1 = o1 - f1: o2 = o2 + f2ãFOR zz = 1 TO 20 * spdãNEXT zzãNEXT mãPALETTEãRETURNããbackdrop:ãLINE (0, 0)-(640, aa), k1, BFãa1 = 4: b1 = 0: a2 = 636ãc1 = 0: d1 = 0: c2 = 640ãFOR m = 1 TO 40ãLINE (a1, b1)-(a2, b2), k2, Bãa1 = a1 + 8ãa2 = a2 - 8ãNEXT mãFOR m = 1 TO ccãLINE (c1, d1)-(c2, d2), k3, Bãd1 = d1 + i1ãd2 = d2 - i2ãNEXT mãRETURNãMarc van den Dikkenberg SINGLE PARTICLE EXPLOSION excel@xs4all.nl 04-05-98 (17:20) PB 198 4156 EXPL.BAS ' PARTICLE EXPLOSION (FIREWORKS)ã' Original Code: Angelo Ken Pesce -- ken@uniserv.uniplan.itã' Smooth routine made by X-Biosã'ã' Modified by Marc van den Dikkenberg -- pb@excelsior.xs4all.nlãã'---------------------------------------------------------------ãã' Some "standard" pb initsã$OPTIMIZE SPEEDã' 386 is REQUIRED...ã$CPU 80386ã$LIB ALL OFFã$ERROR ALL OFFã$FLOAT NPXããRandomize Timerãã' Init mode 13h + SQUARE PIXELSã !Mov ax, &h13ã !Int &h10ã !mov dx,&h3c2ã !mov al,&h0e3ã !out dx,alãã' Init Screen bufferã DIM screenbuffer(32000) as WORDã DIM scrseg as WORDã scrseg = varseg(screenbuffer(0))ãã' Generate Paletteã maxcol% = 255ã CALL setpalãã' Init particle arrayã TYPE particleã x as SINGLEã y as SINGLEã xm as SINGLEã ym as SINGLEã END TYPEãã num% = 1000ã DIM objs(num%) as particleãã GRAV# = 0.01: 'TRY OTHER GRAV# VALUES LIKE 0;0.01 etc...ãGRAV#=0.001ãã' ********************************************>>>>>ã' MAIN ********************************************>>>>>ã' ********************************************>>>>>ãã DOãã' Clear screenã !Xor di, diã !Mov es, scrsegã !Mov cx, 16000ã !Xor ax, axã !Push axã !Db &h66ã !Db &hC1ã !Db &hE0ã !Db 16ã !Pop axã !Db &hF3ã !Db &h66ã !Db &hABãã' GENERATE PARTICLES ********************************>>>>>ã xsrc% = rnd * 320ã ysrc% = rnd * 200ã FOR x% = 1 to num%ã objs(x%).x = xsrc%ã objs(x%).y = ysrc%ã lx! = (rnd * 2) -1ã ly! = (rnd * 2) -1ã dist! = rnd * 5ã ln! = sqr(lx!^2 + ly!^2)ã IF ln! = 0 THENã objs(x%).xm = lx!ã objs(x%).ym = ly!ã ELSEã objs(x%).xm = lx! * (ln! * dist!)ã objs(x%).ym = ly! * (ln! * dist!)ã END IFã NEXT x%ãã FOR sloop% = 1 to 400: ' Main smoothing & grav loop *****************>>>>>ãã FOR x% = 1 to num%ã incr objs(x%).x, objs(x%).xmã incr objs(x%).y, objs(x%).ymãã IF objs(x%).y > 199 THENã objs(x%).y = 199ã ELSEIF objs(x%).y < 0 THENã objs(x%).y = 0ã ELSEã incr objs(x%).ym, GRAV#ã END IFãã IF objs(x%).x < 1 THENã objs(x%).x = 1ã ELSEIF objs(x%).x > 319 THENã objs(x%).x = 319ã END IFãã' Put pixel into bufferã x1% = int(objs(x%).x)ã y1% = int(objs(x%).y)ãã !Mov es, scrsegã !Mov di, x1%ã !Mov ax, y1%ã !Dw &hE0C1ã !Db 6ã !Add di, axã !Dw &hE0C1ã !Db 2ã !Add di, axãã if x1%>3 and x1%<316 and y1%>0 and y1%<199 thenã !Mov al, maxcol%ã elseã !Mov al, 0ã end ifãã !Mov es:[di], alã NEXT x%ããã' SMOOTH BUFFERãã' !mov es,scrsegã !Mov di, &hF8c0 ; 64000-320:Don't smooth last lineã !Xor bx, bxã' !Mov bl, es:[di]ãjmp1:ã !Mov bl, es:[di]ã !Add ax, bxã !Mov bl, es:[di + 320]ã !Add ax, bxã !Mov bl, es:[di - 1]ã !Add ax, bxã !Dw &hE8C1ã !Db 2ã !Jz jmp2ã !Dec alãjmp2:ã !Mov es:[di], alã !Dec diã !Jnz jmp1ããverder:ãã' COPY BUFFER TO SCREENã !Push dsã' !Push siã !Mov ds, scrsegã !Xor si, siã !Xor di, diã !Mov ax, &hA000ã !Mov es, axã !Mov cx, &h3e30ã !Db &hF3ã !Db &h66ã !Db &hA5ã' !Pop siã !Pop dsãã NEXT sloop%ãã LOOPããSUB setpal ()ã out &h3C8, 0ã FOR i = 0 to 63ã out &h3C9, 0ã out &h3C9, i / 6ã out &h3C9, i / 8ã NEXTã FOR i = 0 to 63ã out &h3C9, iã out &h3C9, 0ã out &h3C9, 0ã NEXTã FOR i = 0 to 63ã out &h3C9, 63ã out &h3C9, iã out &h3C9, 0ã NEXTã FOR i = 0 to 63ã out &h3C9, 63ã out &h3C9, 63ã out &h3C9, iã NEXTãEND SUBãLior Zur COMETS FALLING AND EXPLODING zur@inter.net.il 05-23-97 (00:00) QB, QBasic, PDS 295 9005 LSTARS.BAS '+---------------+------------------------------+-----------+ã'| Lior's Stars | Lior Zur | 23/5/1997 |ã'+---------------+------------------------------+-----------+ã'| This is program is amazing: it shows comets falling of |ã'| the sky, and exploding on the ground. Try to change the |ã'| constants for great effects. My favorite is to change |ã'| NumLeft to 50. Or change WindPower to 0, also nice |ã'| effect of raining. If you don't know what to change and |ã'| how much, I've added examples with explanations. |ã'+----------------------------------------------------------+ã'| For more excellent QB graphic demos, stuff and goodies |ã'| please visit my homepage at: |ã'| |ã'| http://www.geocities.com/SiliconValley/Heights/9246 |ã'+----------------------------------------------------------+--+ã'| !!!!!!!!!!!!!!!!!!!!!!!! IMPORTANT: !!!!!!!!!!!!!!!!!!!!!!! |ã'| |ã'| You can publish this file anywhere, as long as you haven't |ã'| made any change in this file. If you use any of this code |ã'| in your own program, please make sure to give me a credit. |ã'| Also: I don't allow to publish this file on a CD without |ã'| my permission. |ã'+-------------------------------------------------------------+ããDECLARE SUB NewLeft (num!)ãDECLARE FUNCTION INT1! (number AS SINGLE)ãDECLARE SUB DrawPart (action, num)ãDECLARE SUB CreateNew (num)ãã'----------------------------------------------------ã' change the following arguments for diffrent effect:ã'----------------------------------------------------ãã'==================================ã'these are to do with the little stars that remain when the mainã'comet has crashed into the ground:ã'==================================ãCONST ExLevels = 50'Explosion levels: the bigger, the longer each explosion(50)ã ' TRY THIS: change to 200, and change Pulse to 0.04ããCONST Grav = .2 'gravitation to pull leftovers to the ground...(0.2)ã ' TRY THIS: change to 6 for interesting effectããCONST Pulse = .025 'energy pulse for leftovers when the comet hit.(0.02)ã ' TRY THIS: change to .06 for interesting effectããCONST FloorJump = 1 'will the leftovers jump on the floor? 0-no 1-yesã ' TRY THIS: change to 0...ããCONST LWind = .01 'what's the wind for leftovers? (0.01)ã ' TRY THIS: change to .07 to see explosives all over theã ' screen!ããCONST NumLeft = 20 'number of leftovers. put here 10 for greater speed.(20)ã ' TRY THIS: change to 40 or 50 for bigger collisions!ã ' * Changing this to 50 is my favorite! do it now!ãã'==================================ã'these are to do with the main comets:ã'==================================ãããCONST WindPower = .1 'wind power (can be negetive too.)(0.1)ã 'TRY THIS: change to -.3 for larger and strongerã ' comets!ã 'OR: change to 0, for raining effect!!!ããCONST JumpWalls = 0 'if you wanna the comets to jump from the walls,ã 'change to 1. it's good only in strong wind.ãããCONST NumParts = 70 'number of comets(70)ã 'TRY THIS: if demo speed is too slow, dicrease.ãã'you'de better not mess with the following:ããCONST StartCols = 23 'start of comets colors. better not change...(23)ã 'TRY THIS: change to 78 or 63 for rainbow effectããCONST NumCols = 8 'don't change this! number of colors effect speed.ã'----------------------------------------------------ããããCLSãSCREEN 13ãCLEARãRANDOMIZE TIMERãTYPE LeftOverã x AS SINGLEã y AS SINGLEã Col AS INTEGERã wind AS SINGLEã d AS SINGLEãEND TYPEãTYPE CometTypeã active AS INTEGERã level AS INTEGERã lx1 AS SINGLEã ly1 AS SINGLEã lx2 AS SINGLEã ly2 AS SINGLEã lx3 AS SINGLEã ly3 AS SINGLEã lx4 AS SINGLEã ly4 AS SINGLEã lx5 AS SINGLEã ly5 AS SINGLEã lx6 AS SINGLEã ly6 AS SINGLEã lx7 AS SINGLEã ly7 AS SINGLEã swind AS SINGLEã wind AS SINGLEã x AS SINGLEã y AS SINGLEã Col AS INTEGERã power AS SINGLEã loops AS INTEGERãEND TYPEãDIM SHARED s(NumParts) AS CometTypeãDIM SHARED l(NumParts * NumLeft + NumLeft) AS LeftOverãFOR i = 1 TO NumPartsã CreateNew iãNEXT iãDOã FOR i = 1 TO NumPartsã s(i).loops = s(i).loops + 1ãStartLoop:ã IF s(i).loops >= s(i).power THENã IF s(i).active = 0 THENã FOR nn = i * NumLeft TO i * NumLeft + NumLeftã PSET (l(nn).x, l(nn).y), 0ã NEXT nnã s(i).level = s(i).level + 1ã IF s(i).level = ExLevels THENã CreateNew iã s(i).y = 0ã s(i).ly7 = 0ã s(i).ly6 = 0ã s(i).ly5 = 0ã s(i).ly4 = 0ã s(i).ly3 = 0ã s(i).ly2 = 0ã s(i).ly1 = 0ã GOTO StartLoopã END IFã FOR nn = i * NumLeft TO i * NumLeft + NumLeftã l(nn).d = l(nn).d + Gravã l(nn).x = l(nn).x + l(nn).windã l(nn).y = l(nn).y + l(nn).dã IF FloorJump THEN IF l(nn).y > 199 THEN l(nn).y = 199: l(nn).d = -l(nn).dã PSET (l(nn).x, l(nn).y), l(nn).Colã gg = INT(RND * 2) + 1ã IF gg = 1 THEN IF l(nn).Col > 20 THEN l(nn).Col = l(nn).Col - 1ã NEXT nnã END IF 'active 0ã IF s(i).active = 1 THENã DrawPart 0, iã s(i).loops = -1ã s(i).y = s(i).y + 1ã IF s(i).y > 199 THENã s(i).active = 0ã NewLeft (i)ã GOTO StartLoopã END IFã s(i).x = s(i).x + s(i).windã IF s(i).x > 319 THENã IF JumpWalls = 0 THENã s(i).lx7 = 0ã s(i).lx6 = 0ã s(i).lx5 = 0ã s(i).lx4 = 0ã s(i).lx3 = 0ã s(i).lx2 = 0ã s(i).lx1 = 0ã s(i).x = 0ã ELSEã s(i).wind = -s(i).windã END IFã END IFã IF s(i).x < 0 THENã IF JumpWalls = 0 THENã s(i).lx7 = 319ã s(i).lx6 = 319ã s(i).lx5 = 319ã s(i).lx4 = 319ã s(i).lx3 = 319ã s(i).lx2 = 319ã s(i).lx1 = 319ã s(i).x = 319ã ELSEã s(i).wind = -s(i).windã END IFã END IFã s(i).lx7 = s(i).lx6ã s(i).lx6 = s(i).lx5ã s(i).lx5 = s(i).lx4ã s(i).lx4 = s(i).lx3ã s(i).lx3 = s(i).lx2ã s(i).lx2 = s(i).lx1ã s(i).lx1 = s(i).xã s(i).ly7 = s(i).ly6ã s(i).ly6 = s(i).ly5ã s(i).ly5 = s(i).ly4ã s(i).ly4 = s(i).ly3ã s(i).ly3 = s(i).ly2ã s(i).ly2 = s(i).ly1ã s(i).ly1 = s(i).yã DrawPart 1, iã END IF 'activeã END IF 'star's turnã NEXT iãLOOP UNTIL INKEY$ <> ""ããSUB CreateNew (num)ãRANDOMIZE TIMERã s(num).active = 1ã s(num).level = 0ã s(num).wind = (INT(RND * 13) + 7) * WindPowerãã s(num).swind = s(num).windãã s(num).loops = -1ã s(num).Col = INT(RND * NumCols) + StartCols + 1ã s(num).power = NumCols + 1 - (s(num).Col - StartCols)ã s(num).y = INT(RND * 200)ã s(num).x = INT(RND * 320)ãã s(num).lx7 = s(num).xã s(num).lx6 = s(num).xã s(num).lx5 = s(num).xã s(num).lx4 = s(num).xã s(num).lx3 = s(num).xã s(num).lx2 = s(num).xã s(num).lx1 = s(num).xãã s(num).ly7 = s(num).yã s(num).ly6 = s(num).yã s(num).ly5 = s(num).yã s(num).ly4 = s(num).yã s(num).ly3 = s(num).yã s(num).ly2 = s(num).yã s(num).ly1 = s(num).yãããEND SUBããSUB DrawPart (action, num)ã SELECT CASE actionã CASE 0 'eraseã PSET (s(num).x, s(num).y), 0ã LINE -(s(num).lx1, s(num).ly1), 0ã LINE -(s(num).lx2, s(num).ly2), 0ã LINE -(s(num).lx3, s(num).ly3), 0ã LINE -(s(num).lx4, s(num).ly4), 0ã LINE -(s(num).lx5, s(num).ly5), 0ã LINE -(s(num).lx6, s(num).ly6), 0ã LINE -(s(num).lx7, s(num).ly7), 0ã CASE 1 'drawã PSET (s(num).x, s(num).y), s(num).Colã LINE -(s(num).lx1, s(num).ly1), s(num).Col - 1ã LINE -(s(num).lx2, s(num).ly2), s(num).Col - 2ã LINE -(s(num).lx3, s(num).ly3), s(num).Col - 3ã LINE -(s(num).lx4, s(num).ly4), s(num).Col - 4ã LINE -(s(num).lx5, s(num).ly5), s(num).Col - 5ã LINE -(s(num).lx6, s(num).ly6), s(num).Col - 6ã LINE -(s(num).lx7, s(num).ly7), s(num).Col - 6ã PSET (s(num).x, s(num).y), s(num).Colãã END SELECTãEND SUBããFUNCTION INT1 (number AS SINGLE)ã she = number - INT(number)ã IF she >= .5 THEN sh = 1 ELSE sh = 0ã INT1 = INT(number) + shãEND FUNCTIONããSUB NewLeft (num)ã FOR ii = 1 TO NumLeftã l(num * NumLeft + ii).Col = s(num).Colã l(num * NumLeft + ii).d = -(INT(RND * 100)) * Pulseã l(num * NumLeft + ii).wind = INT(RND * 100) * LWindã ã gg = INT(RND * 2) + 1ã IF gg = 1 THEN l(num * NumLeft + ii).wind = -l(num * NumLeft + ii).windã gg = INT(RND * 10) + 1ã IF gg > 2 THEN l(num * NumLeft + ii).wind = l(num * NumLeft + ii).wind - s(num).wind * 1.5ã ã l(num * NumLeft + ii).x = s(num).xã l(num * NumLeft + ii).y = s(num).y '- 70ãã NEXT iiãEND SUBãLennaert van den Linden BLUR PORTION OF SCREEN luckyone@xs4all.nl 04-20-98 (18:58) QB, QBasic, PDS 234 6994 BLUR.BAS ' blurã' blurs part of the screen in mode 13, with the use of aã' temporary file(BLUR.TMP). It does not change to current palette butã' but seeks nearest color in the palette.ã' It can be used with any palette.ã' uses a maskmatrix of 5x5, which can be altered. Have fun.ã'ã' larger areas may take a bit longer to blur.ã'ã' you are free to use this code, as long as you don't put your own nameã' above it pretend it's yours.ã'ã' Lennaert van der Linden. April 20th 1998ã' any question/suggestion can be mailed to : luckyone@xs4all.nlããDEFINT A-ZãDECLARE SUB Blur (x1%, y1%, x2%, y2%, matrix%())ãSCREEN 13: CLSãã' ******** make some art ****************ãLINE (0, 8)-(319, 199), 1, BF ' draw a blue backgroundã' let's draw some random linesãFOR t = 1 TO 100ã LINE (RND * 320, 8 + RND * 192)-(RND * 320, 8 + RND * 192), tãNEXT tãã' draw some random filled circlesãFOR i = 1 TO 50ã x = RND * 320: y = 8 + RND * 192ã CIRCLE (x, y), RND * 25, iã PAINT (x, y), iãNEXT iããLOCATE 12, 17: PRINT "THIS WILL"ãLOCATE 13, 20: PRINT "BLUR"ã' *********** end of art **************ãã' set a blurring mask. see end of program for masksãRESTORE Blur:ãã' create the matrix and read the valuesãDIM matrix(-2 TO 2, -2 TO 2) AS INTEGERãtotal = 0ãFOR x = -2 TO 2ã FOR y = -2 TO 2ã READ matrix(x, y) ' read valueã NEXT yãNEXT xãã' set values for box that is to be blurred.ãx1 = 120: y1 = 70: x2 = 200: y2 = 130ãã' draw a box around the area so the user knows where to lookãLINE (x1 - 1, y1 - 1)-(x2 + 1, y2 + 1), 15, BããBlur x1, y1, x2, y2, matrix()ããENDããã' the 5x5 matrixesã' the total is calculated automatically.ã' the more the values are spread over the matrix, the more blurringã' will occur.ãã' NW wind effectãwind:ãDATA 0, 0, 2, 4, 8ãDATA 0, 1, 8,16, 4ãDATA 2, 8,32, 8, 2ãDATA 4,16, 8, 1, 0ãDATA 8, 4, 2, 0, 0ãã' slideãslide:ãDATA 1, 2, 4, 0, 0ãDATA 2, 4, 8, 1, 0ãDATA 4, 8,16, 2, 0ãDATA 2, 4, 8, 1, 0ãDATA 1, 2, 4, 0, 0ãã' very blurãvery:ãDATA 0, 1, 1, 1, 0ãDATA 1, 3, 4, 3, 1ãDATA 1, 4,16, 4, 1ãDATA 1, 3, 4, 3, 1ãDATA 0, 1, 1, 1, 0ãã' normal blurãBlur:ãDATA 0, 0, 1, 0, 0ãDATA 0, 1, 4, 1, 0ãDATA 1, 4, 8, 4, 1ãDATA 0, 1, 4, 1, 0ãDATA 0, 0, 1, 0, 0ããSUB Blur (x1, y1, x2, y2, matrix())ã' blurs part of screen. assumes you are in screen 13.ã' matrix is an integer array with dimensions : (-2 to 2, -2 to 2)ãã' make sure distance is at least 2 (horizontal as well as vertical)ãIF (x2 - x1) < 2 THEN PRINT " x2 must be bigger than x1 and distance must be at least 2.": ENDãIF (y2 - y1) < 2 THEN PRINT " y2 must be bigger than y1 and distance must be at least 2.": ENDããtotal = 0ãFOR x = -2 TO 2ã FOR y = -2 TO 2ã total = total + matrix(x, y)ã NEXT yãNEXT xãã' make sure the total is not 0, or we'll get a divide-by-zero error.ãIF total = 0 THEN PRINT " Total can not be 0.": ENDãã' now lets read the palette into an array, so we can lookã' up the values quicklyãDIM palet(255, 2) AS INTEGERãOUT &H3C7, 0ãFOR a = 0 TO 255ã palet(a, 0) = INP(&H3C9) ' red valueã palet(a, 1) = INP(&H3C9) ' green valueã palet(a, 2) = INP(&H3C9) ' blue valueãNEXT aãã' we can't write directly to the screen, if we did we would read alreadyã' altered dots. We could write to memory, but might end up with memoryã' shortage problems. So we'll write to a temporary file on disk.ãff = FREEFILEãOPEN "BLUR.TMP" FOR OUTPUT AS ff: CLOSE ff ' make sure file is emptyãOPEN "BLUR.TMP" FOR BINARY AS ffãã' this string will hold a buffer, so we don't have to write a single byteã' every time. Writing a multitude of bytes is a lot faster.ãbufsize = 0ãmaxsize = 2000 ' we'll flush the buffer to disk, if it reaches this sizeãbuffer$ = ""ããtotaldots& = 1& * (x2 - x1 + 1) * (y2 - y1 + 1)ãdotsset& = 0ãpDone = 0ãLOCATE 1, 1: PRINT USING " done : ###%"; pDoneããFOR y = y1 TO y2ã FOR x = x1 TO x2ã red = 0: green = 0: blue = 0ã FOR xx = -2 TO 2ã FOR yy = -2 TO 2ã px = x + xxã IF px < x1 THEN px = x - xx ' mirror the dot if it fallsã IF px > x2 THEN px = x - xx ' off the borderã py = y + yyã IF py < y1 THEN py = y - yyã IF py > y2 THEN py = y - yyã ã ' add RGB valuesã index = POINT(px, py) ' read color indexã red = red + palet(index, 0) * matrix(xx, yy)ã green = green + palet(index, 1) * matrix(xx, yy)ã blue = blue + palet(index, 2) * matrix(xx, yy)ã ã NEXT yyã NEXT xxã ' divide by total and we've got the RGB values of the blurred dot.ã red = red \ totalã green = green \ totalã blue = blue \ totalã ã ' find the closest color (closest RGB values)ã td = 12288 ' set total difference, bigger than will occurã cc = -1 ' closest colorã FOR a = 0 TO 255ã ' calculate differenceã rd = palet(a, 0) - redã gd = palet(a, 1) - greenã bd = palet(a, 2) - blueã t = rd * rd + gd * gd + bd * bd ' distance = r^2+g^2+b^2ã ' we don't have to do a SQR(),ã IF t < td THEN ' it's very slowã ' this color is closer than the last close color foundã cc = aã td = tã IF td = 0 THEN a = 255 ' found exact match, quit searchã END IFã NEXT aã ã ' cc should be greater than -1 by now.ã ã ' add byte to bufferã buffer$ = buffer$ + CHR$(cc)ã bufsize = bufsize + 1ãã ' flush the buffer is size equals maximum buffer sizeã IF bufsize = maxsize THENã PUT #ff, , buffer$ã buffer$ = ""ã bufsize = 0ã END IFãã dotsset& = dotsset& + 1ã IF (dotsset& * 100) \ totaldots& > pDone THENã pDone = ((dotsset& * 100) \ totaldots&)ã LOCATE 1, 1: PRINT USING " done : ###%"; pDoneã END IFã NEXT xãNEXT yãã' there could still be bytes in the buffer, that have not been flushed yet.ãIF bufsize > 0 THENã PUT #ff, , buffer$ã buffer$ = ""ã bufsize = 0ãEND IFãã' we now have a temporary file (BLUR.TMP) that contains the blurred boxã' all we have to do now is read back from this file to the screen. QBasicã' does not support a poke$ statement, so we have to PSET each single byteã' which will be a bit slow.ãSEEK #ff, 1 ' go to start of fileãã' read a dot and write itãindex$ = " "ãFOR y = y1 TO y2ã FOR x = x1 TO x2ã GET #ff, , index$ã PSET (x, y), ASC(index$)ã NEXT xãNEXT yãã' we are done on the screen. we can close the temporary file and delete it.ãCLOSE #ffãKILL "BLUR.TMP"ããEND SUBãAndrew S. Gibson SAVE PALETTE AS DATA STATEMENTSzapf_dingbat@juno.com 04-21-98 (04:10) QB, QBasic, PDS 173 8351 PAL2DAT.BAS 'Converts 256 color palette file that are 768 bytes in length to DATA lines.ã'You'll need QuickBASIC, E-mail address is Zapf_DingBat@JUNO.COMã'Program has internal, but dated help - I wrote this when I didn'tã'know any direct access VGA stuff...ãDEFINT A-ZãDECLARE SUB Help ()ãDECLARE SUB Pause ()ããIF COMMAND$ <> "" THEN Help: ENDãCLSãPRINT "Palette file converter version 1.0 for BASIC by Andrew Gibson": PRINTãLINE INPUT "Input Name for Palette data file >"; InpName$ãLINE INPUT "Output Name for BASIC data statement file >"; OutName$ãIF InpName$ = "" OR OutName$ = "" THEN PRINT : PRINT "Conversion aborted.": ENDãLOCATE 10, 29: PRINT "ÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¸";ãLOCATE 11, 29: PRINT "³ °°°°°°°°°°°°°°°°°°°°° ³";ãLOCATE 12, 29: PRINT "³ 0% Percent Complete ³";ãLOCATE 13, 29: PRINT "ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¾";ãHandle = FREEFILEãHandle2 = Handle + 1ããON ERROR GOTO HandlerãOPEN InpName$ FOR BINARY AS #HandleãOPEN OutName$ FOR OUTPUT AS #Handle2ããFOR PalFile = 0 TO 767 STEP 3ãRed$ = INPUT$(1, #Handle)ãGreen$ = INPUT$(1, #Handle)ãBlue$ = INPUT$(1, #Handle)ããPRINT #Handle2, "DATA " + STR$(ASC(Red$)) + "," + STR$(ASC(Green$)) + "," + STR$(ASC(Blue$))ãPercent$ = Percent$ + STRING$(INT(PalFile * 22) \ 768, 219)ãLOCATE 11, 31: PRINT Percent$; : Percent$ = ""ãLOCATE 12, 29: PRINT USING "³ ###% Percent Complete ³"; (101& * PalFile) \ 768;ããNEXT PalFileãCLOSEãENDããHandler:ãCLOSE : LOCATE 14, 1: PRINTãIF OutName$ <> InpName$ OR InpName$ <> OutName$ THENã KILL InpName$: KILL OutName$ãELSEIF OutName$ = InpName$ THENã KILL OutName$ãELSEIF InpName$ = OutName$ THENãKILL InpName$ãEND IFã SELECT CASE ERRã CASE 5ã PRINT "Error Number :" + STR$(ERR) + " Cannot perform internal function request"ã CASE 7ã PRINT "Error Number :" + STR$(ERR) + " Program Error: Out of memory"ã CASE 14ã PRINT "Error Number :" + STR$(ERR) + " Program Error: Out of string space"ã CASE 51ã PRINT "Error Number :" + STR$(ERR) + " Program Error: INTERNAL ERROR"ã CASE 52ã PRINT "Error Number :" + STR$(ERR) + " Disk Error: Bad File Name or number"ã CASE 54ã PRINT "Error Number :" + STR$(ERR) + " Disk Error: Bad file mode"ã CASE 55ã PRINT "Error Number :" + STR$(ERR) + " Disk Error: File already open"ã CASE 57ã PRINT "Error Number :" + STR$(ERR) + " Program Error: Device I/O error"ã CASE 58ã PRINT "Error Number :" + STR$(ERR) + " Disk Error: File already exists"ã CASE 59ã PRINT "Error Number :" + STR$(ERR) + " Program Error: Bad record length"ã CASE 61ã PRINT "Error Number :" + STR$(ERR) + " Disk Error: Disk FULL"ã CASE 62ã PRINT "Error Number :" + STR$(ERR) + " Disk Error: Input past end of file"ã CASE 63ã PRINT "Error Number :" + STR$(ERR) + " Program Error: Bad record number"ã CASE 64ã PRINT "Error Number :" + STR$(ERR) + " Disk Error: Bad file name"ã CASE 67ã PRINT "Error Number :" + STR$(ERR) + " Program Error: Too many files"ã CASE 68ã PRINT "Error Number :" + STR$(ERR) + " Program Error: Device UNAVAILABLE"ã CASE 71ã PRINT "Error Number :" + STR$(ERR) + " Disk Error: Disk not Ready"ã CASE 72ã PRINT "Error Number :" + STR$(ERR) + " Disk Error: Disk-Media error"ã CASE 73ã PRINT "Error Number :" + STR$(ERR) + " Program Error: Feature unavailable"ã CASE 75ã PRINT "Error Number :" + STR$(ERR) + " Disk Error: Path/File access error"ã CASE 76ã PRINT "Error Number :" + STR$(ERR) + " Disk Error: Path not found"ã CASE 53ã CLOSEã PRINT "Error Number :" + STR$(ERR) + " Disk Error: File not found"ã CASE ELSEã END SELECTãPRINT : PRINT "Pal2Dat file coversion cannot continue."ãENDããSUB HelpãVIEW PRINT 1 TO 24: CLSãPRINT "Palette file converter version 1.0 for BASIC by Andrew Gibson": PRINTãPRINT "This program is used to convert DAC palette files to DATA statements"ãPRINT "for BASIC. The DAC palette files are exactly 768 bytes in length with"ãPRINT "3 bytes that represent Red, Green, Blue for all 256 colors. 256*3=768"ãPRINT "The resulting DATA statement file will have 256 lines is this format:": PRINTãPRINT "DATA 42, 63, 0": PRINTãPRINT "The palette is calculated in BASIC as follows:": PRINTãPRINT "'Read Palette data statements"ãPRINT "ColorChange = -1: FOR N = 1 TO 768 STEP 3"ãPRINT "ColorChange = ColorChange + 1: READ R, G, B"ãPRINT "CL& = (B * 256 ^ 2) + (G * 256) + R"ãPRINT "PALETTE ColorChange, CL&: NEXT N": PRINTãPRINT "This code sets a variable name ColorChange to -1, initializes a"ãPRINT "for/next loop which causes ColorChange to advance one, reads three"ãPRINT "bytes, sends the three bytes to the Long Integer calculator, and the"ãPRINT "palette statement Loads the appropriate color for the color number."ãPauseãPRINT "You should use the RESTORE statement with a data label to help"ãPRINT "organize your code. The Palette Calculator formula shouldn't be"ãPRINT "changed at all, except if you want to change the letter variables"ãPRINT "to different positions which will change the order of your colors"ãPRINT "or make new ones. If you are using a an all gray palette then the"ãPRINT "three variable's postitions do not matter (in the Palette"ãPRINT "Calculator formula).": PRINTãPRINT "If you need to store the calcuated results you HAVE to use a Long"ãPRINT "Integer array like this,": PRINTãPRINT "DIM SHARED Paldef&(255) - (You might need to reference this array"ãPRINT "somewhere else in your program.)": PRINTãPRINT "and to store the Palette Calculator results insert after the"ãPRINT "Palette Calculator line like this:": PRINTãPRINT "'Read Palette data statements"ãPRINT "ColorChange = -1: FOR N = 1 TO 768 STEP 3"ãPRINT "ColorChange = ColorChange + 1: READ R, G, B"ãPRINT "CL& = (B * 256 ^ 2) + (G * 256) + R: Paldef&(ColorChange) = CL&"ãPRINT "PALETTE ColorChange, CL&: NEXT N"ãPauseãPRINT "There are many different ways to do this, the information is aimed"ãPRINT "towards the beginner, who may be trying to figure this process out."ãPRINT "I was ignorant of this process, learned it, and now shared it with"ãPRINT "all of you. The process described herein is compatable with QBasic"ãPRINT "and Microsoft QuickBASIC 4.x": PRINTãPRINT "Basic program operation:": PRINTãPRINT "You will be asked to the proper name for the palette file, the"ãPRINT "name can be any standard normal filename. The same idea is in"ãPRINT "order for the output file name, too. You can (just like using copy)"ãPRINT "use pathnames to specify the location of a Source or Destination"ãPRINT "filename even across diskdrives and directories. If you make a"ãPRINT "mistake then you have the chance to correct it, the left and right"ãPRINT "arrow keys are used to move the cursor to the place at which you"ãPRINT "have made an error and type over it, or if you have to insert"ãPRINT "some text you can press the insert key to activate the text"ãPRINT "insertion mode. The cursor will change slightly when you press"ãPRINT "insert. A flat cursor means that overstrike is active, tall cursor"ãPRINT "means insertion made is active. If you bump certain keys you will"ãPRINT "hear an annoying beep which means that the key will not be accepted."ãPRINT "Blank filenames (at either prompt) are not accepted and are"ãPRINT "considered to be the `signal' to abort the program."ãPauseãPRINT "If anything goes wrong the program will cease to operate and"ãPRINT "describe what happened. If you see this,": PRINTãPRINT "Error Number : 5 Cannot perform internal function request": PRINTãPRINT "then you would have to start over, because i'm using a clever but"ãPRINT "`touchy' conversion scheme. This program is bug free when used"ãPRINT "according to the instructions. An error that is caused is most"ãPRINT "likely of human origins. Errors may also be issued because of a"ãPRINT "potential equipment failure. Most errors aren't serious."ãVIEW PRINT 1 TO 25: LOCATE CSRLIN, 1, 0ãEND SUBããSUB PauseãLOCATE CSRLIN, 1: PRINT "Press a key to continue ...."; : WHILE INKEY$ = "": WEND: LOCATE CSRLIN, 1: PRINT STRING$(28, 32);ãEND SUBãRichard Colletta ZGUI VERSION 1.0 riley007@hotmail.com 04-30-98 (14:24) QB, QBasic, PDS 109 7198 ZGUIV1.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"ZGUIV1.ZIP",4^6:Z&=5128:?STRING$(50,177);ãU"%up()#9%%O.-%LGnjIJ)%%%/%.%%)l.zn%V%SgfxN6'*BBSo7MqvYãU"xIhuKP.D?C&[7xnG63K/z;dI;0#$Bj1+#v*I]UI1QVQlTFI\Cj-Tq#EP^p7rg(?ãU"8bg>rn+G7P.X9?k6tP\f2E+iuNCR;3^hZoB+uO+Db0%2Ap\m8ãU"uQl?goB]gVU:yJ$)Rs-XXW'ajh..((#BLBUmjãU"1\'HPY'(YP7N7]c.qw2-]Mj-0.P$7IHY*ZB05ae.;Y[WK:4Hi[(ufWG$FlSO(XJãU";^/]hALnO89._;9hmQKpmKn:.ZUI/FgJfH&2S54w)\*0LUQ;\U)ZqWs8Fs2UYn$'_CSunk^bw=AA[H]H9#k=;8JmmVb,qgm^HmYoZfL2dJv-kNgWnmVp?f'Xgc[&g#)BRGrq7>;5GH1.^kxFm09W_)zlXr8t:ufhV072LMoQwhãU"luaw&'#qYh^7qYP.Lto-/_*q/8r*AFUGhR,;.gP+,^u.aIMMLK;SgA6^4?M9Q$dãU"yVMK78g7.hWuY9S5E#(oskQ]#9hE\XVKN2Yx[.BJf5zAdm,n9:AB/=^'0T:N(X=ãU"DREgT#'q17).%P%J2Gz/:B2l+ujCFq*1ML4Zc.Lj(?kxzVrPCp8uCPHM%]a?[EYãU"MsnU?c]\MgJM(ZHGhl4FD(.]gnbB'r]-f:+NB-.riG0$JX:hdFh5bn9_Qd5M[7JãU"E^PoMXqAal=.tQXOd[YL6EB,mUnuSY4(v,Az3/$,.^9>dVa.&RM(,)L>igr5;AzãU":9&43V#&yq=;W-&1TA)]p_#:7EA(r\99N/JzlIsJ3t>=%>K\6^Gk=9#%Ut?*[a0ãU"ilSMJ%-Ga3x$K%:,G[PGsonCd9)mhx8R6;#?Bf8f?h%.T8oE7Im*ABBy.tãU"VW>K0IoVt3$A%6bJ<=nS')S[I*s7XT8T1;Ae2=p,=0Cj-]V)I//Ef1)HCCOBmJwãU"0k.Y>qz=i=Wi_t_jNHGqxQ\'R;NN2')K,e8YOU[c[=GiL60n$->mE*AK/#TB39QãU"J?Z[ar%l;[*4JTi')5P*[T]r3.m#tdq3I0hbXpLf?NKNYCNq9*Ogl^2GjUxIXZkãU"Y/'F=r9+,bEs)QXbGmk7dRi[8Pk1ab*aVAF=LSuhvYpNwDAzrG&lL[(&,kB5]?DãU"N;+Zt(.T'nBg4huBJs^(kl/VN0a3b2^))ckfE)Y61C*sU.vIi;e>\iobi=o^979ãU".k]PKp-/2,Fys.&I<]^toT94FG00NE,j?T%^cJC/ãU"Im9TS>l[Ct]oAXZ'v0O^W6%xQ7HXv?qIc#>5j)f5=8W&ãU"a7xe.lJOHx;[$]?9HWPi6Wu#a-FTOjVKS#(ygUpnH=+ZgIFcmJ6hm2SWlV?C[R#ãU"tsp#,0\l8Y\$DT>FwAn8%Ynso<\$W5mtW76cuUa#KNNij#g_\T;7=Kk'ebX?EBGãU"IYaF&)K9CWngi7*>iXTfa&c5D*n;yN>1l_7lXp_jZP=D6]oMdq\d(f)%ILS-*saãU"kE<>ke1cq\-'s3_Z$^Wrm:Br_fvom?*\*cb.,w(kTxnPbt5JW:<#^vueO8mHEw#ãU"6cTPklqNjnpB*DGWDAgi(3?b4EOh6#b#-61D8hS6WJK+px%N5(g$,(A_D'>9*3f7n53KlkI:tm:/OKuL$+D7FPhM2ãU"eZ3Iuq]HBVa(s7*HiemM8_+kK-2tiATfvdSJGD7Zn;T>dkh1d;Gq&,96s:,;dOYcYL$.I8X^VK&lGoi]ãU"-r*>[)9PJM>+#l+>WO]U'gElC%^b^qmnW9nZujr1+Zet*QãU"Y(A9uh^F-#n3K:r&HJd-:0)xa^%FH5daWEW'Se+)j:JORNjsqE$+9w&H4gw(<;)ãU"c.pEX3xxB,#J3][M$WILZwAVHQH&H9J/cO?=l0Zh-#B>wL$0k4/P3g0DTeKTZt45TC5c$G=1tdg[73]S8l+*:(gJ%qV,Px4u%p()9.%%O-C%7ãU"HjaI'h)&?z0%(%sQ%%%.%%%%lfx%nrSgRfxF);*BSoL7MvYu8)T#J4,'ZRiT=M/9F&*E1rQVvfBTbXaIk<;kPb,DydM=DptKVvnD75Ywum^_ãU"GSUtg5cdrPIg-bd&KZWv\;pXV'8,'1fU(hxZU*fM,K>EXsrgzjN8#B^IH'TãU"B2uZtBTIU&K*UCb:wi=gX-L]i=)d6G4FpbFr:jBX+#>ufHXWltDFxuVE7(ou2o4ãU"bmV,w;5Z&p/Gex<+AY(yk04EV:^b'\rgE4T]1ga4DFh]?Df:9,UkeefsU_4Rh1#ãU"O2PJ8#6q*f)#p'rSp\n9=1;B>0yQYOJGFi^2FhjzBI5Z4h*TM<2ggP/M#'d,o(6sjRo4YQPv1rTjDvãU"qbafdo7ALa;IBãU"pm_n/;eK/u-Kaj8#s'SX^jTH#Q:J13Jr>Pv>'0#C'8,S*,U06joC%l^l#5:c[KbãU"%*Uf.sQ:-Di-Q?gBKOblQe)$$^I8:]'l8iISuwPgXQI,J'%g'e545$cM5Jtugf]ãU"5ZuBefZHWUm0:JyO[:w3eNWHhrIO-qOS%fd*Te]-MJDuQp_h].n63K9P1;M.N\DãU"pv40MujoA,2JuIQ.Jpu5>]P2p(R?U?iZ4apJQcHKfNUbpM2JUPEJ58ORB*;bWD;ãU"c45soh9__i8JoPI%#zR;l3v8*(Ug7l5#BZ*0t?UHm,mZUP)<1p/>^/3CkFxZ#]$ãU"#]EGY*:9Q(t_YrtFiMmXIWAYp*vJ)HM8b/Shq;;2&dPrxGQ7v:sY,[/'_mZyu;mãU"[79?C_bN?G5('FaX445]hSq6E^=VrTt(u>n?XT3Ta?,(Z1p4TW4TAEBn%^zf:>IãU"]OF=Bc;Pt;Tj*irNTqtSu2u5;y(6tvHUVyHuiG7K?C_Bj*n\9_=*Ziw]PhaSwsVãU"PMKEdk1\Y(nfpC*4YP^O2&f)'zwR/rZ+WgFE0&O/dGD1RD2bT1V,zJ_%T%PGQtQ+^*F(erG5WGBmH4WYI1wuD.C)AfI^7*3c%>iNTN+*OsivãU"lGPEG19]dO?c*f'ffS^LOCSI\*/S/2h1:TiCVgMsiCML_.=E:&%\.2W-id6j)V6ãU"%D9Z3&=zN\DYud7r1,d'sQ2%.7\D9O4%mLI\m8)uMZO7<2d])/9u^Upn$lF6=u3ãU"$*84w;^^2ZK^nB].aKi)98(K\11H9VTjYfuATbTMxPebd1=gc>7)A(ãU"8^0BKiqS2ya22Z?O=C>ACU;O^,pi_fB$En('B]fVci0$OIKjZoJ=(r0kET;xDd^sw3rXJpkb0=LSa8(D?pc9.,wJ#'E[&[iN1ãU"0w?-[9_)-;BF#tPJfQdt,f9L,PãU".VOP;hD9p#+GSpyeH,o>''u$V9cTXA)UrPrDK9M.V$HBXgNK1)A**L25zHCILtjãU").y+?Gbu5(7DIdhq3LYOgqYmb)XY6[3ci]*E3].F//apL_i;]of.9\OS=(O),Y=ãU"uZgKX2Ik9fS]db7q*o6v5dKfm*2tqr44s//i)Ao,->Wn_k)rDG&PWL-n)rC8&::ãU")07a:%:QP-nqW9EhSFSXum(m2Pm?NhnH-pkm$p?Kcl9FW/-sd*Kl7I-ãU"dr%$_0JtBFupLlb(GDOo6HO'DF/5Il>WA>q?9xA6'^wYg&\v.[K4)$T64si0=F4ãU"2)nHYgYY\T$bb7Srj.cg+I$m2DZGFm3HatRq1[V(q.%>uWfD=#CZ'a??7]gWLY8ãU"XQNc#VNIK.bicxutl?.i86Iv>WZAv==#qdH#I#k5P]%vRuIdbR+oH.G3SFSvgUPãU"ioiP9uu]NW(eYDw-S:d-MMO;jcj3WlonkGpXJU?<91)d$uz'2SAoGQqalk$I8ZNãU"_],.aW1dHToMSRW/sVqhuyxvA1Nh']MvYq*smFT_<%2FSaa73/E)\^g2FGZDxTyãU"MZ3rpux4Ds(/ijt7vDox+:1JrX[M,USfãU"n<4#'v1]8L3[WAPM#ug5hfpH-rh\&oT1La[qm44em$Y.58re'Qp-p(>0T59o7;WãU"^g'K?Y*6;ZRjN=XbUw_2RIkOI+WusS2b$DW11vaC6&aK'JVF+dKD+N[qjbIXh<.7C5M\yw#gI&^W]XBmFX\vJ7J+QW,A5laP?Iot4jcOH^5bTBãU"4q=9s2?f2#[]nLd.TBt1eAB\>UP3cvb)h0PnV5Ud&_$hoq7*S,4B:dkuUK$RW'BãU"itVth.LBCYM?h^T[qfV6aryYPrEHeQS$R5cA;nJ3?v_or5V_i2:IK/[+?wk1]C%ãU"KCBRr0q^5W)M?9dm6=XTG5#'ln*?eE1w&ok<.wJ>sJtu=/NHA=Z^4Xn7Dv?K%LGãU"R\;q1Zl0xvtRCA:p*/Gc1h8_o.A&qyG=$s.iW^*U5S0dE-UMrZzK:lIS6KqJQOnCGu.t3D$wvk(tumdAmtG]3U;GAlH^a[II\j_PbUK[a8k.deJJ^FgpãU")9qlQMq*Yxj*X[26bdmY[b1:zgMgqb)EM:XKPseWTAmPiass_-[TFqoChuf'\(aãU"cg$W<$XQ'9gI/9VjEjnE7.[=0#eqL]m>d9M6en3juPep:?u3n];vyo+'Lv=q_.hs%eogI]i5Z:$RG<=0IãU"ZeVk:gh#(C:DSG]21(KAtm>d*h?f6r1B&1sHxQf=\Aj+8>G02MO+S)rQBMe::GxãU"[6y+-4nbCn30^Um&f(BGgfiOmFqm$-d-Q\u-no<%?$JT'YM7rjfaB'vu&sD,GFbãU"X>45CFh6.FUr<)+LPD-3)f/?+6ISsxLzoaJ47.ZQb>2lp8UGD%Vl<=$FwEEeH/cãU"hZ&EHX)8Y9?#q#8[RdDP4&UwFR5WvfVWJx)]_9iG&)+CZG/5ofh<[r./9D5HGA$ãU"IE5SWMAN)h>([i:_Xg(P\O+0$F1:SKj$,2PUS-Q>=1P%-g#xw7%%/%%%%%%%%%&%%E%%%%%%%ãU"(%)lz(n%VS%gfxu%p&'9%%9%%#%-%7^HjI'4h)?z#0%%s%Q%%.%%%%%%%%%&%%EãU"%%%%,-%%%lfx%nrSg%fxup%*+%%%%%'%.'%>%.%%R8%%%%%ãEND SUBãCLOSE:IF S=221AND 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ãAndrew S. Gibson SVGA TARGA IMAGE VIEWER zapf_dingbat@juno.com 05-15-98 (02:52) QB, PDS 1081 43550 TGAVIEW.BAS ' This is a SuperVga Targa image viewer, I am able to use this on my 386sxã' that has a Trident 8900 (512k) with a VESA BIOS Version 1.2 tsr resident.ã' It worked charmingly... Alas now I have a Phoenix S3 Vision 864 with twoã' megabytes of display ram and these QuickBASIC SuperVGA Routines says itã' can't find any display modes (BS, I have used 8 other programs and theseã' find everything !). As we all know Vision 864s have VESA BIOS 1.2 supportã' built in. If anybody knows where I can send email to Glenn Stumpff, Authorã' of QBSVGA 3.2 - I'd really appreciate this. I'd like to get an upgrade, orã' find something much better.. anyway this program has internal help - it'sã' meant to be used as a command line utility. You need QuickBASIC 4.5 !ã' If you can make sense of all these things feel free to translate this toã' another form of the basic language. Hey as least the VESA detectionã' actually works... only a couple of routines from QBSVGA 3.2 are used, andã' I got the VESA bank switching code from somebody else's submission andã' incorporated it in this and other programs.. My mail address isã' Zapf_DingBat@JUNO.COM - a text only mail service.ãDEFINT A-ZãDECLARE FUNCTION BIN$ (NUM AS LONG)ãDECLARE FUNCTION DPOINT% (XCOORD, YCOORD)ãDECLARE FUNCTION SelectTGAImageMode% (TGAFILE$)ããDECLARE SUB BSCREEN (MODE, CL, APAGE, VPAGE)ãDECLARE SUB DCLS (HorizMax, VertMax)ãDECLARE SUB DPSET (XCOORD, YCOORD, CL%)ãDECLARE SUB FINDVESA (MODE, HR, VR, NC)ãDECLARE SUB HELP ()ãDECLARE SUB PAL (Act$)ãDECLARE SUB ParseCmdLine (cmd$, Params$(), Found%)ãDECLARE SUB PressAnyKey ()ãDECLARE SUB STDOUT (MESSAGETEXT$)ãDECLARE SUB SwitchBank (NB%)ãDECLARE SUB TGALoad (File$)ãDECLARE SUB WriteSuperVgaRaw (SRWName$)ãDECLARE SUB XBeep (High, Low, Duration)ãã'REGTYPE.BAS - Include file for CALL INTERRUPTãTYPE RegTypeã AX AS INTEGERã BX AS INTEGERã CX AS INTEGERã DX AS INTEGERã BP AS INTEGERã SI AS INTEGERã DI AS INTEGERã flags AS INTEGERã DS AS INTEGERã ES AS INTEGERãEND TYPEããTYPE TGAã Info AS STRING * 1ã Clr AS STRING * 1ã Img AS STRING * 1ã Orig AS INTEGERã Col AS INTEGERã Bits AS STRING * 1ã XVal AS INTEGERã YVal AS INTEGERã W AS INTEGERã H AS INTEGERã Pix AS STRING * 1ã Desc AS STRING * 1ãEND TYPEããCONST TRUE = -1, FALSE = 0ãDIM SHARED Registers AS RegType, DisplayPictureWhileLoading, ApplyEightBPPGScaleãDIM SHARED r(255), g(255), b(255), SixteenMillionColors, ForceGrayScale, ConvertToSRawãDIM SHARED Bank%, Table&(0 TO 1600), HDR AS TGA, Ingraphics, BPP, VesMode, SeeInfoãDIM Params$(1 TO 10)ããCOMMON SHARED /DEFAULTS/ ACPAGE, DEFLTC, VESSUP, HMAX, VMAX, BVCBL, BITPLANES, BITSPIXELãCOMMON SHARED /VIEWPORT/ VXL, VYL, VXR, VYR, VCOL, VBORDã'$DYNAMICããCLEAR , 2048ã' Mode listã' MODE = 26: 640 x 400 x 256ã' MODE = 14: 640 x 480 x 256ã' MODE = 16: 800 x 600 x 256ã' MODE = 18: 1024 x 768 x 256ã' MODE = 20: 1200 x 1024 x 256ã' MODE = 22: 1600 x 1200 x 256ãã' program defaultsã Hrequest = FALSEã SixteenMillionColors = FALSEã ForceGrayScale = FALSEã DisplayPictureWhileLoading = FALSEã ApplyEightBPPGScale = FALSEã ConvertToSRaw = FALSEã SeeInfo = FALSEããParseCmdLine COMMAND$, Params$(), NumParams%ã'IF NumParams% = FALSE THEN Help: Noff = TRUEããFOR II% = 1 TO NumParams%ã Q$ = Params$(II%)ã IF LEFT$(Q$, 6) = "-CSRW:" THEN 'This HAS TO BE LAST !!!!!!!!!!ã SRWN$ = UCASE$(RIGHT$(Q$, LEN(Q$) - 6)): ConvertToSRaw = TRUEã EXIT FORã IF SRWN$ = "" THEN STDOUT "You need to specify a conversion filename." + CHR$(10) + CHR$(13): ENDã END IFã ã SELECT CASE Q$ã CASE "?", "HELP", "-?", "-HELP": HELP: Hrequest = TRUE: EXIT FORã CASE IS = "-C:16M": SixteenMillionColors = TRUEã CASE IS = "-GRAYDISPLAY", "-GD": ForceGrayScale = TRUEã CASE IS = "-DISPLAYPICTUREWHILELOADING", "-DPWL": DisplayPictureWhileLoading = TRUEã CASE IS = "-A8GS", "-ABP8GS": ApplyEightBPPGScale = TRUEã CASE IS = "-PI", "-PICINFO": SeeInfo = TRUEã CASE ELSEã Filename$ = Q$ãEND SELECTãNEXT II%ãIF Hrequest = TRUE THEN GOTO Term 'bail outããON ERROR GOTO HandleErrorsãIF Filename$ = "" THENã STDOUT "You must specify a file name on the command line." + CHR$(10) + CHR$(13)ã GOTO TermãEND IFããVesMode = SelectTGAImageMode%(Filename$)ãSELECT CASE VesModeã CASE -2: GOTO Termã CASE -3: GOTO Termã CASE -4ã STDOUT "The Targa image you want to view is too large for any modes supported." + CHR$(10) + CHR$(13)ã STDOUT COMMAND$ + CHR$(10) + CHR$(13)ã STDOUT "has a Height of " + LTRIM$(STR$(HDR.H)) + " pixels and a width of " + LTRIM$(STR$(HDR.H)) + " pixels." + CHR$(10) + CHR$(13)ã STDOUT "This Targa Image viewer currently only supports these VESA Video Modes:" + CHR$(10) + CHR$(13) + CHR$(10)ã STDOUT "Width x Height x Maximum Colors" + CHR$(10) + CHR$(13)ã STDOUT " 640 x 400 x 256 Colors" + CHR$(10) + CHR$(13)ã STDOUT " 640 x 480 x 256 Colors" + CHR$(10) + CHR$(13)ã STDOUT " 800 x 600 x 256 Colors" + CHR$(10) + CHR$(13)ã STDOUT "1024 x 768 x 256 Colors" + CHR$(10) + CHR$(13)ã STDOUT "1200 x 1024 x 256 Colors" + CHR$(10) + CHR$(13)ã STDOUT "1600 x 1200 x 256 Colors" + CHR$(10) + CHR$(13)ã GOTO Termã CASE IS = 26ã FOR Height% = 0 TO 399: Table&(Height%) = Height% * 640&: NEXT Height%ã CASE IS = 14ã FOR Height% = 0 TO 479: Table&(Height%) = Height% * 640&: NEXT Height%ã CASE IS = 16ã FOR Height% = 0 TO 599: Table&(Height%) = Height% * 800&: NEXT Height%ã CASE IS = 18ã FOR Height% = 0 TO 767: Table&(Height%) = Height% * 1024&: NEXT Height%ã CASE IS = 20ã FOR Height% = 0 TO 1023: Table&(Height%) = Height% * 1200&: NEXT Height%ã CASE IS = 22ã FOR Height% = 0 TO 1199: Table&(Height%) = Height% * 1600&: NEXT Height%ãEND SELECTãBSCREEN VesMode, 0, 0, 0ãIngraphics = TRUEãTGALoad Filename$ãIF ConvertToSRaw = TRUE THENã WriteSuperVgaRaw SRWN$ãEND IFãXBeep 5, 8, 350ãZX$ = INPUT$(1)ãPAL "FADEOUT"ãBSCREEN 0, 0, 0, 0ãTerm:ãENDãã'256 Gray Scale - if needed (0 to 64)ãGrayTFSC:ãDATA 0,0,0,0,0,0,0,0,0,0,0,0ãDATA 1,1,1,1,1,1,1,1,1,1,1,1ãDATA 2,2,2,2,2,2,2,2,2,2,2,2ãDATA 3,3,3,3,3,3,3,3,3,3,3,3ãDATA 4,4,4,4,4,4,4,4,4,4,4,4ãDATA 5,5,5,5,5,5,5,5,5,5,5,5ãDATA 6,6,6,6,6,6,6,6,6,6,6,6ãDATA 7,7,7,7,7,7,7,7,7,7,7,7ãDATA 8,8,8,8,8,8,8,8,8,8,8,8ãDATA 9,9,9,9,9,9,9,9,9,9,9,9ãDATA 10,10,10,10,10,10,10,10,10,10,10,10ãDATA 11,11,11,11,11,11,11,11,11,11,11,11ãDATA 12,12,12,12,12,12,12,12,12,12,12,12ãDATA 13,13,13,13,13,13,13,13,13,13,13,13ãDATA 14,14,14,14,14,14,14,14,14,14,14,14ãDATA 15,15,15,15,15,15,15,15,15,15,15,15ãDATA 16,16,16,16,16,16,16,16,16,16,16,16ãDATA 17,17,17,17,17,17,17,17,17,17,17,17ãDATA 18,18,18,18,18,18,18,18,18,18,18,18ãDATA 19,19,19,19,19,19,19,19,19,19,19,19ãDATA 20,20,20,20,20,20,20,20,20,20,20,20ãDATA 21,21,21,21,21,21,21,21,21,21,21,21ãDATA 22,22,22,22,22,22,22,22,22,22,22,22ãDATA 23,23,23,23,23,23,23,23,23,23,23,23ãDATA 24,24,24,24,24,24,24,24,24,24,24,24ãDATA 25,25,25,25,25,25,25,25,25,25,25,25ãDATA 26,26,26,26,26,26,26,26,26,26,26,26ãDATA 27,27,27,27,27,27,27,27,27,27,27,27ãDATA 28,28,28,28,28,28,28,28,28,28,28,28ãDATA 29,29,29,29,29,29,29,29,29,29,29,29ãDATA 30,30,30,30,30,30,30,30,30,30,30,30ãDATA 31,31,31,31,31,31,31,31,31,31,31,31ãDATA 32,32,32,32,32,32,32,32,32,32,32,32ãDATA 33,33,33,33,33,33,33,33,33,33,33,33ãDATA 34,34,34,34,34,34,34,34,34,34,34,34ãDATA 35,35,35,35,35,35,35,35,35,35,35,35ãDATA 36,36,36,36,36,36,36,36,36,36,36,36ãDATA 37,37,37,37,37,37,37,37,37,37,37,37ãDATA 38,38,38,38,38,38,38,38,38,38,38,38ãDATA 39,39,39,39,39,39,39,39,39,39,39,39ãDATA 40,40,40,40,40,40,40,40,40,40,40,40ãDATA 41,41,41,41,41,41,41,41,41,41,41,41ãDATA 42,42,42,42,42,42,42,42,42,42,42,42ãDATA 43,43,43,43,43,43,43,43,43,43,43,43ãDATA 44,44,44,44,44,44,44,44,44,44,44,44ãDATA 45,45,45,45,45,45,45,45,45,45,45,45ãDATA 46,46,46,46,46,46,46,46,46,46,46,46ãDATA 47,47,47,47,47,47,47,47,47,47,47,47ãDATA 48,48,48,48,48,48,48,48,48,48,48,48ãDATA 49,49,49,49,49,49,49,49,49,49,49,49ãDATA 50,50,50,50,50,50,50,50,50,50,50,50ãDATA 51,51,51,51,51,51,51,51,51,51,51,51ãDATA 52,52,52,52,52,52,52,52,52,52,52,52ãDATA 53,53,53,53,53,53,53,53,53,53,53,53ãDATA 54,54,54,54,54,54,54,54,54,54,54,54ãDATA 55,55,55,55,55,55,55,55,55,55,55,55ãDATA 56,56,56,56,56,56,56,56,56,56,56,56ãDATA 57,57,57,57,57,57,57,57,57,57,57,57ãDATA 58,58,58,58,58,58,58,58,58,58,58,58ãDATA 59,59,59,59,59,59,59,59,59,59,59,59ãDATA 60,60,60,60,60,60,60,60,60,60,60,60ãDATA 61,61,61,61,61,61,61,61,61,61,61,61ãDATA 62,62,62,62,62,62,62,62,62,62,62,62ãDATA 63,63,63,63,63,63,63,63,63,63,63,63ãããHandleErrors:ãIF Ingraphics = TRUE THENãPAL "FADEIN"ãPAL "RESTORE"ãEND IFãBSCREEN 0, 0, 0, 0ãCLOSEãSTDOUT "The following error has occurred:" + CHR$(10) + CHR$(13)ãSELECT CASE ERRã CASE IS = 5: STDOUT "Illegal Function Call." + CHR$(10) + CHR$(13)ã CASE IS = 6: STDOUT "Math Overflow." + CHR$(10) + CHR$(13)ã CASE IS = 7: STDOUT "Program Error: Out of memory." + CHR$(10) + CHR$(13)ã STDOUT "I used up all of the DGROUP space, Try again." + CHR$(10) + CHR$(13)ã CASE IS = 9: STDOUT "Program Error: Array Subscript out of range." + CHR$(10) + CHR$(13)ã STDOUT "Upper limit of allocated space exceeded." + CHR$(10) + CHR$(13)ã CASE IS = 14: STDOUT "Program Error: Out of String Space" + CHR$(10) + CHR$(13)ã CASE IS = 24: STDOUT "Informative Error: Device timeout" + CHR$(10) + CHR$(13)ã STDOUT "Turn on your printer or activate `on-line' mode." + CHR$(10) + CHR$(13)ã CASE IS = 25: STDOUT "Printer Error: Device fault" + CHR$(10) + CHR$(13)ã STDOUT "I can't talk to your printer or print que." + CHR$(10) + CHR$(13)ã CASE IS = 27: STDOUT "Printer Error: Out of paper" + CHR$(10) + CHR$(13)ã STDOUT "Put Paper in your printer." + CHR$(10) + CHR$(13)ã CASE IS = 52: STDOUT "Program or User Error: Bad File Name or number" + CHR$(10) + CHR$(13)ã STDOUT "You provided a bad file name or I tried to use a file number that's closed." + CHR$(10) + CHR$(13)ã CASE IS = 53: STDOUT "FileManager/User input Error: File not found"ã STDOUT "I cannot find the file you requested." + CHR$(10) + CHR$(13)ã CASE IS = 54: STDOUT "FileManager/Programmer Error: Bad file mode" + CHR$(10) + CHR$(13)ã STDOUT "I am unable to read a file properly. Make sure the input file is NOT a" + CHR$(10) + CHR$(13)ã STDOUT "text file !" + CHR$(10) + CHR$(13)ã CASE IS = 55: STDOUT "FileManager Error: File already open" + CHR$(10) + CHR$(13)ã STDOUT "A file was already opened, all files are now closed." + CHR$(10) + CHR$(13)ã CASE IS = 57: STDOUT "System Fault: Device I/O error" + CHR$(10) + CHR$(13)ã STDOUT "I can not 'talk' to a specific device." + CHR$(10) + CHR$(13)ã CASE IS = 58: STDOUT "Informative Error: File already exists" + CHR$(10) + CHR$(13)ã CASE IS = 59: STDOUT "FileManager Error: Bad record length" + CHR$(10) + CHR$(13)ã STDOUT "A database record of some sort is not long enough or is too long." + CHR$(10) + CHR$(13)ã CASE IS = 61: STDOUT "Informative Error: Disk FULL" + CHR$(10) + CHR$(13)ã STDOUT "Free up some disk space." + CHR$(10) + CHR$(13)ã CASE IS = 62: STDOUT "FileManager Error: Input past end of file." + CHR$(10) + CHR$(13)ã STDOUT "Attempt to read beyond the end of current file." + CHR$(10) + CHR$(13)ã CASE IS = 63: STDOUT "Program Error: Bad record number" + CHR$(10) + CHR$(13)ã STDOUT "A database record of some sort doesn't exist." + CHR$(10) + CHR$(13)ã CASE IS = 64: STDOUT "User Error: Bad file name" + CHR$(10) + CHR$(13)ã STDOUT "You specifically told me to use a file name that is incorrect." + CHR$(10) + CHR$(13)ã CASE IS = 67: STDOUT "FileManager Fault: Too many files open" + CHR$(10) + CHR$(13)ã STDOUT "I can't open more files than listed in your CONFIG.SYS file." + CHR$(10) + CHR$(13)ã CASE IS = 68: STDOUT "System Error: Device UNAVAILABLE" + CHR$(10) + CHR$(13)ã STDOUT "A user serviceable device is not accessable to the computer." + CHR$(10) + CHR$(13)ã CASE IS = 71: STDOUT "User or System Error: Disk not Ready" + CHR$(10) + CHR$(13)ã STDOUT "Insert a diskette in the current drive. (Excepting Hardrives)" + CHR$(10) + CHR$(13)ã CASE IS = 72: STDOUT "Serious Informative Error: Disk-Media error" + CHR$(10) + CHR$(13)ã STDOUT "The recordable media surface of the current disk has developed a defect." + CHR$(10) + CHR$(13)ã CASE IS = 73: STDOUT "Informative Error: Feature unavailable" + CHR$(10) + CHR$(13)ã STDOUT "An advanced capability is not available within this computer." + CHR$(10) + CHR$(13)ã CASE IS = 75: STDOUT "FileManager/User input Error: Path/File access error" + CHR$(10) + CHR$(13)ã CASE IS = 76: STDOUT "FileManager/User input Error: Path not found" + CHR$(10) + CHR$(13)ã STDOUT "The path to a file is non-existant." + CHR$(10) + CHR$(13)ã CASE IS = 77: STDOUT "FileManager/User input Error: File doesn't exist." + CHR$(10) + CHR$(13)ã CASE ELSEã STDOUT "Error is unprintable. The Errorlevel is" + STR$(ERR) + "." + CHR$(10) + CHR$(13)ãEND SELECTãENDããREM $STATICãFUNCTION BIN$ (NUM AS LONG)ã'ã' This is a "functionized" version of code extracted from a more generalã' numeric base conversion program by Robert B. Relf, (C) 1984. This justã' uses the part of Mr. Relf's code that converts decimal to binary.ã'ãDIM x AS INTEGERãNUM = (NUM + 65536) MOD 65536ãBIN1$ = ""ãFOR x = 15 TO 0 STEP -1ãIF NUM >= (2 ^ x) THENãBIN1$ = BIN1$ + "1"ãNUM = NUM - (2 ^ x)ãELSEãBIN1$ = BIN1$ + "0"ãEND IFãNEXT xãBIN1$ = LEFT$(BIN1$, 8) + RIGHT$(BIN1$, 8)ãBIN$ = BIN1$ãEND FUNCTIONããSUB BSCREEN (MODE, CL, APAGE, VPAGE)ã'ã' Subroutine BSCREEN emulates the function of QB's SCREEN statement.ã' It uses subroutine FINDVESA to find a video mode supported by a VESAã' bios that corresponds to a "QB-type" mode specified by MODE. Theã' resolutions for each supported MODE integer are given below.ã'ã' MODE = 26: 640 x 400 x 256ã' MODE = 14: 640 x 480 x 256ã' MODE = 15: 800 x 600 x 16ã' MODE = 16: 800 x 600 x 256ã' MODE = 17: 1024 x 768 x 16ã' MODE = 18: 1024 x 768 x 256ã' MODE = 19: 1200 x 1024 x 16ã' MODE = 20: 1200 x 1024 x 256ã' MODE = 21: 1600 x 1200 x 16ã' MODE = 22: 1600 x 1200 x 256ã' MODE = 23: 132 x 25 x 16 (text)ã' MODE = 24: 132 x 43 x 16 (text)ã' MODE = 25: 132 x 50 x 16 (text)ã'ã' These routines should not be used with modes not specified here. Modeã' 0 is an allowable input; it corresponds to QB's SCREEN 0 and getsã' translated here to bios mode 3. (Except for more colors, I'm not awareã' of any higher modes, anyway, and why would you want to use theseã' routines with the lower modes? QB's SCREEN statement will do that.) Ifã' a mode with the desired resolution and colors cannot be found, a modeã' will still be selected if one can be found with the desired resolutionã' and *more* colors than necessary.ã'ã' The first four inputs are just as would be used with QB's SCREENã' statement except that CL is the default color to print with, not someã' switch that determines whether color is displayed at all. Unlike theã' SCREEN statement, all parameters much be specified in the CALL. If theã' input video mode is the one that is already in effect, BSCREEN can beã' used to simply change default colors or displayed/active pages. (Youã' might want to use subroutine BCOLOR for the former purpose.) BSCREENã' should be called before any of the other routines are called.ã'ãDIM CMODE AS INTEGERã'ã' Store active page and default color in global variables. (Alias VPAGEã' with VP and make sure its value is valid.)ã'ãACPAGE = APAGE: IF ACPAGE < 0 THEN ACPAGE = 0ãDEFLTC = CL: IF DEFLTC <= 0 THEN DEFLTC = 7ãVP = VPAGE: IF VP < 0 THEN VP = 0ã'ã' Get current video mode. If it is same as one being set, no mode changeã' is made. The routine is just being used to change default colorsã' (subroutine BCOLOR is simpler to use for that purpose) or pages. (Theã' value of CMODE may get changed after VESA-awareness is determined.)ã'ãRegisters.AX = &HF00ãCALL InterruptX(&H10, Registers, Registers)ãCMODE = Registers.AX AND &HFFã'ã' Set visible page.ã'ãRegisters.AX = CINT(VP) + 1280ãCALL InterruptX(&H10, Registers, Registers)ã'ã' Make correlation between "QB-type" modes and resolution of bios mode toã' be searched for. (Set default mode data in case invalid mode was input.)ã'ãHR = 800: VR = 600: NC = 16ãIF MODE = 14 THEN HR = 640: VR = 480ãIF MODE = 15 OR MODE = 16 THEN HR = 800: VR = 600ãIF MODE = 17 OR MODE = 18 THEN HR = 1024: VR = 768ãIF MODE = 19 OR MODE = 20 THEN HR = 1280: VR = 1024ãIF MODE = 21 OR MODE = 22 THEN HR = 1600: VR = 1200ãIF MODE = 23 THEN VR = 25ãIF MODE = 24 THEN VR = 43ãIF MODE = 25 THEN VR = 50ãIF MODE = 26 THEN HR = 640: VR = 400ãIF MODE = 0 OR MODE = 15 OR MODE = 17 OR MODE = 19 OR MODE = 21 OR MODE > 22 THEN NC = 16ãIF MODE = 14 OR MODE = 16 OR MODE = 18 OR MODE = 20 OR MODE = 22 OR MODE = 26 THEN NC = 256ãIF MODE = 23 OR MODE = 24 OR MODE = 25 THEN HR = 132ã'ã' Define global resolution limits (zero-based) and viewport defaults.ã'ãHMAX = HR - 1: VMAX = VR - 1: VXL = 0: VYL = 0: VXR = HMAX: VYR = VMAXã'ã' Set VCOL to a negative number so other routines can tell that BVIEWã' wasn't called yet.ã'ãVCOL = -1ãIF MODE <> 0 THENã'ã' SCREEN is not being reset to text mode. Find VESA mode with desiredã' resolution. If FINDVESA can't find a requisite VESA mode, whetherã' because system isn't VESA-aware or other reasons, BMODE is returned asã' -1. (If system is detected as VESA aware, an "error code" of 0 isã' defined via VESSUP variable. If VESA cannot be detected, VESSUP is setã' to unity.) Before using FINDVESA, however, look for overriding biosã' mode definition via DOS environment variable. (This environmentã' is SET with the syntax "MODE##=bios-mode", where ## is the two-digitã' QB-type mode integer that corresponds to bios-mode.)ã'ãQBMODE$ = "MODE" + LTRIM$(RTRIM$(STR$(MODE)))ãEMODE$ = MID$(LTRIM$(ENVIRON$(QBMODE$)), 1, 80)ãBMODE = VAL("&H0" + EMODE$)ã'ã' In case FINDVESA isn't going to be used to find a VESA video mode orã' it *is* going to be used and in case it fails, set default bit planesã' per pixel and bits per pixel parameters.ã'ãBITPLANES = 1: BITSPIXEL = 8ãIF BMODE = 0 THENã'ã' "MODE##" environment variable didn't exist for input QB-type mode.ã'ãFINDVESA BMODE, HR, VR, NCã'ã' Except for text mode 3, there are no bios modes less than 4 that areã' of concern here. (There aren't likely any below 13h of any importance.ã' I'm just taking into account "wierd" video adapters, such as mine, whichã' will do a hex mode B.)ã'ãIF BMODE >= 4 THENã'ã' VESA mode was found, hence, system is VESA-aware. Redetermine currentã' video mode.ã'ãRegisters.AX = &H4F03ãCALL InterruptX(&H10, Registers, Registers)ãCMODE = Registers.BXãIF CMODE <> BMODE THENã'ã' VESA mode was found and it is different from current mode; change videoã' mode.ã'ãRegisters.AX = &H4F02ãRegisters.BX = BMODEãCALL InterruptX(&H10, Registers, Registers)ãIF MODE < 23 THENã'ã' Initialize mouse if driver is installed via interrupt 33h.ã'ã'IF QRYMOUSE = -1 THEN CALL MOUSINITãEND IFãEND IFãELSEã'ã' VESA mode couldn't be found. Assume "OEM SVGA" and ask user forã' hexadecimal mode integer that corresponds to desired video mode. Setã' VESSUP according to value of input bios mode. (Put screen in standardã' QB text mode so prompt can be seen in case it was already in someã' QB-unreadable graphics screen.)ã'ãRegisters.AX = 3ãCALL InterruptX(&H10, Registers, Registers)ããRES$ = LTRIM$(RTRIM$(STR$(HR))) + " x " + LTRIM$(RTRIM$(STR$(VR))) + " x "ãRES$ = RES$ + LTRIM$(RTRIM$(STR$(NC)))ãSTDOUT "VESA video card may not support this resolution:" + RES$ + CHR$(10) + CHR$(13) + CHR$(10) + CHR$(13)ãSTDOUT "Type this from DOS and try again:" + CHR$(10) + CHR$(13)ãSTDOUT "SET MODE" + LTRIM$(RTRIM$(STR$(MODE))) + "=(Vesa BIOS mode number in hexadecimal)" + CHR$(10) + CHR$(13)ãENDã'ã' Video mode is changed regardless of its present state when mode had toã' be prompted for. (Even if the above text-mode change hadn't occurred,ã' the prompt for the mode needs to be cleared.)ã'ãVESSUP = 1ãRegisters.AX = VAL("&H" + M$)ã'ã' Use VESA call to set video mode if it is 100h or above. Otherwise,ã' use standard bios call.ã'ãIF Registers.AX > 255 THENãVESSUP = 0ãRegisters.BX = Registers.AXãRegisters.AX = &H4F02ãEND IFãCALL InterruptX(&H10, Registers, Registers)ãIF MODE < 23 THENã'ã' Initialize mouse if driver is installed via interrupt 33h.ã'ã'IF QRYMOUSE = -1 THEN CALL MOUSINITãEND IFãEND IFãELSEã'ã' "MODE##" environment variable exists for desired mode. Set VESSUPã' according to value of bios mode.ã'ãVESSUP = 1: IF BMODE > 255 THEN VESSUP = 0ã'ã' Re-acquire and test current video mode before changing it.ã'ãIF VESSUP = 1 THENãRegisters.AX = &HF00ãCALL InterruptX(&H10, Registers, Registers)ãCMODE = Registers.AX AND &HFFãRegisters.AX = BMODEãELSEãRegisters.AX = &H4F03ãCALL InterruptX(&H10, Registers, Registers)ãCMODE = Registers.BXãRegisters.AX = &H4F02ãRegisters.BX = BMODEãEND IFãIF CMODE <> BMODE THENãCALL InterruptX(&H10, Registers, Registers)ãIF MODE < 23 THENã'ã' Initialize mouse if driver is installed via interrupt 33h.ã'ã'IF QRYMOUSE = -1 THEN CALL MOUSINITãEND IFãEND IFãEND IFã'ã' Global variable BVCBL is normally 0. BVIEW sets it to 1 just beforeã' calling BLINE to draw a border around the viewport. (BLINE uses thisã' variable to know not to enforce viewport constraints when BVIEW tries toã' draw a box just outside of the viewport. (BVIEW resets it to unity whenã' it's finished.) Define fictitious values for global mouse positionã' variables.ã'ãBVCBL = 0ãELSEã'ã' SCREEN 0 is being emulated. Use what should be a standard text modeã' for any SVGA system. (This mode is also set regardless of whether orã' not the video state is already there.)ã'ãRegisters.AX = 3ãCALL InterruptX(&H10, Registers, Registers)ã'ã' Just to be safe, make sure QB knows what screen mode it's in. (Theã' above call to interrupt 10 could probably be skipped, but QB's SCREEN 0ã' by itself doesn't necessarily leave you in the text mode you want whenã' the screen isn't initially in a mode that QB recognizes.)ã'ãEND IFãEND SUBããSUB DCLS (HorizMax, VertMax)ãFOR VMx = 0 TO VertMaxã FOR HMx = 0 TO HorizMaxã DPSET HMx, VMx, 0ã NEXT HMxãNEXT VMxãEND SUBããFUNCTION DPOINT% (XCOORD, YCOORD)ãNewBank% = (Table&(YCOORD) + XCOORD) \ 65536ãIF NewBank% <> Bank% THEN SwitchBank NewBank%ãDEF SEG = &HA000ãDPOINT% = PEEK((Table&(YCOORD) + XCOORD) MOD 65536)ãDEF SEGãEND FUNCTIONããSUB DPSET (XCOORD, YCOORD, CL%)ãNewBank% = (Table&(YCOORD) + XCOORD) \ 65536ãIF NewBank% <> Bank% THEN SwitchBank NewBank%ãDEF SEG = &HA000ãPOKE (Table&(YCOORD) + XCOORD) MOD 65536, CL%ãDEF SEGãEND SUBããSUB FINDVESA (MODE, HR, VR, NC)ã'ã' This subroutine returns the VESA bios MODE integer (decimal) that hasã' resolution HR x VR x NC, as input via the parameter list. If no suchã' mode can be found, MODE is returned as -1. (If it finds a mode withã' the desired horizontal HR and vertical VR resolution but with more thanã' NC colors, the mode is considered valid and is returned in MODE. (Itã' will first try to find a mode with NC colors.))ã'ã' To qualify as a valid, the mode must be supported by both hardware andã' bios. (FINDVESA is usually called by BSCREEN. There is not much reasonã' to call it directly.)ã'ãDIM VESA(1 TO 64) AS LONG, Byte AS LONG, MD(1 TO 257) AS INTEGER, COLORS(1 TO 256)ãDIM PLANES(1 TO 256)ãSM = VARSEG(VESA(1)): OS = VARPTR(VESA(1))ã'ã' Set VESSUP to unity in case VESA bios cannot be detected.ã'ãVESSUP = 1ã'ã' Confirm VESA support and get pointer to list of supported VESA modes.ã'ãRegisters.AX = &H4F00ãRegisters.ES = CINT(SM)ãRegisters.DI = CINT(OS)ãCALL InterruptX(&H10, Registers, Registers)ãDEF SEG = SMãT$ = CHR$(PEEK(OS)) + CHR$(PEEK(OS + 1)) + CHR$(PEEK(OS + 2)) + CHR$(PEEK(OS + 3))ãIF T$ <> "VESA" THEN GOTO NOSUPã'ã' VESA = VESA bios version number.ã'ãVESAFRC = PEEK(OS + 4)ãFIXFRC:ãVESAFRC = VESAFRC / 10ãIF VESAFRC >= 1 THEN GOTO FIXFRCãVESA = PEEK(OS + 5) + VESAFRCãPSM = PEEK(OS + 16) + 256 * PEEK(OS + 17): POF = PEEK(OS + 14) + 256 * PEEK(OS + 15)ã'ã' Look for video mode that supports desired resolution.ã'ã' NMODES counts number of modes (possibly with different colors) withã' desired resolution.ã'ãNMODES = 1ãNEWMODE:ãDEF SEG = PSMãMD(NMODES) = PEEK(POF) + 256 * PEEK(POF + 1): POF = POF + 2ã'PRINT PEEK(POF) + 256 * PEEK(POF + 1): SLEEPãIF MD(NMODES) = -1 THEN GOTO NOSUPãRegisters.AX = &H4F01ãRegisters.CX = MD(NMODES)ãRegisters.ES = CINT(SM)ãRegisters.DI = CINT(OS)ãCALL InterruptX(&H10, Registers, Registers)ãDEF SEG = SMã'ã' First byte at segment SM stores "support information" about mode underã' analysis.ã'ãByte = CLNG(PEEK(OS) + 256 * PEEK(OS + 1))ãb$ = LTRIM$(RTRIM$(BIN$(Byte)))ã'ã' Bits 0 and 2 indicate support (or lack of it) in hardware and BIOS.ã'ãHARD$ = MID$(b$, 16, 1)ãBIOS$ = MID$(b$, 14, 1)ãIF HARD$ = "0" OR BIOS$ = "0" THEN GOTO NEWMODEã'ã' Bit 4 indicates graphics or text mode.ã'ãGMSW$ = MID$(b$, 12, 1)ã'ã' Bit 1 indicates the presence of extended information. If no extendedã' information is available for this mode, it cannot be determined thatã' it supports the required HR x VR resolution.ã'ãEXTINF$ = MID$(b$, 15, 1)ãIF EXTINF$ = "0" THEN GOTO NEWMODEã'ã' Character sizes are needed to correct stored resolution data for someã' VESA bioses.ã'ãHS = PEEK(OS + 22): VS = PEEK(OS + 23)ãHRM = PEEK(OS + 18) + 256 * PEEK(OS + 19): VRM = PEEK(OS + 20) + 256 * PEEK(OS + 21)ãIF VESA < 1.2 THENãIF GMSW$ = "0" THEN HRM = HRM / HS: VRM = VRM / VSãIF (MD(NMODES) >= 0 AND MD(NMODES) <= 6) OR MD(NMODES) = 13 THEN VRM = VRM / 2ãIF MD(NMODES) = 14 OR MD(NMODES) = 19 THEN VRM = VRM / 2ãEND IFãIF HR <> HRM OR VR <> VRM THEN GOTO NEWMODEãCOLORS(NMODES) = 2! ^ CSNG(PEEK(OS + 25))ã'ã' Get number of bit planes. (Subroutines BGET AND BPUT need it. Theyã' also need the number of bits per pixel. This is actually what was justã' reported by the VESA bios, above. It will be reobtained from the COLORSã' parameter later.)ã'ãPLANES(NMODES) = PEEK(OS + 24)ã'ã' Get all modes with required resolution, regardless of color. (Laterã' on the one with NC colors, if it exists, will be chosen. (But theã' possibility that the one with the right number of colors will be foundã' first is taken into account.))ã'ãIF COLORS(NMODES) = NC THEN GOTO RETMODEãIF NMODES < 256 THEN NMODES = NMODES + 1: GOTO NEWMODEãRETMODE:ã'ã' Since VESA was detected, store corresponding error code.ã'ãVESSUP = 0ãFOR I = 1 TO NMODESãK = IãIF COLORS(I) = NC THEN BITSPIXEL = INT(LOG(COLORS(I)) / LOG(2) + .001)ãIF COLORS(I) = NC THEN MODE = CSNG(MD(I)): BITPLANES = PLANES(I): GOTO QUITãNEXT IãFOR I = 1 TO NMODESãK = IãIF COLORS(I) > NC THEN BITSPIXEL = INT(LOG(COLORS(I)) / LOG(2) + .001)ãIF COLORS(I) > NC THEN MODE = CSNG(MD(I)): BITPLANES = PLANES(I): GOTO QUITãNEXT IãNOSUP:ã'ã' Requisite VESA mode couldn't be found. Return negative mode value asã' switch for calling routine to recognize that fact.ã'ãMODE = -1ãQUIT:ãDEF SEGãEND SUBããSUB HELPãSTDOUT "Targa Image viewer Version .7200á" + CHR$(10) + CHR$(13)ãSTDOUT "Command line arguments available are:" + CHR$(10) + CHR$(13) + CHR$(10)ãSTDOUT "/? or /HELP - This help text. This switch takes precedent over any parameter." + CHR$(10) + CHR$(13) + CHR$(10)ãSTDOUT "/C:16M - Allow use of Hicolor/Truecolor palette in the Targa image. (If" + CHR$(10) + CHR$(13)ãSTDOUT " any such palette exists.) Video adapters that only support 256" + CHR$(10) + CHR$(13)ãSTDOUT " thousand colors will not display a Hicolor/Truecolor Targa" + CHR$(10) + CHR$(13)ãSTDOUT " image in the right colors!" + CHR$(10) + CHR$(13) + CHR$(10)ãSTDOUT "/GD - Force displaying of picture in gray scale. (If the Bits Per" + CHR$(10) + CHR$(13)ãSTDOUT " Pixel in the image header equals eight then a gray scale" + CHR$(10) + CHR$(13)ãSTDOUT " palette based on 0 to 63 will be used, otherwise a full" + CHR$(10) + CHR$(13)ãSTDOUT " two hundred fifty-six gray scale palette will be used (0 to 255)." + CHR$(10) + CHR$(13)ãSTDOUT "/DPWL - Display picture while it loads, otherwise you see a black screen." + CHR$(10) + CHR$(13)ãSTDOUT "/A8GS - Apply the 8 BPP gray scale palette to a 24 BPP Targa image." + CHR$(10) + CHR$(13)ãSTDOUT " This only happens if the image has 24 bits per pixel." + CHR$(10) + CHR$(13)ãSTDOUT " Recommended for 256k color video adapters. (Takes Priority over" + CHR$(10) + CHR$(13)ãSTDOUT " 'GD' switch when applicable.)" + CHR$(10) + CHR$(13) + CHR$(10)ãSTDOUT "/PI - Display picture info for 8 seconds." + CHR$(10) + CHR$(13)ãPressAnyKeyãSTDOUT "/CSRW:Name - Converts TGA file to a RAW image format, Replace 'Name' with a" + CHR$(10) + CHR$(13)ãSTDOUT " valid DOS filename, a pathname may be included. *THIS PARAMETER" + CHR$(10) + CHR$(13)ãSTDOUT " MUST BE THE LAST IN THE COMMAND LINE SEQUENCE !!!!!*" + CHR$(10) + CHR$(13) + CHR$(10)ãSTDOUT "Any valid DOS filename that is a Targa image, a pathname may be included." + CHR$(10) + CHR$(13)ãSTDOUT "Images that are eight & twenty-four Bits Per Pixel are supported." + CHR$(10) + CHR$(13)ãSTDOUT "Pictures that don't seen to have palettes in them are displayed in gray scale." + CHR$(10) + CHR$(13)ãSTDOUT "A space must be present between a filename and *any* parameter !" + CHR$(10) + CHR$(13)ãSTDOUT "You can press ESCape to abort loading a picture." + CHR$(10) + CHR$(13) + CHR$(10)ããSTDOUT "This Targa image viewer was coded by Andrew Gibson, whom in no way is liable" + CHR$(10) + CHR$(13)ãSTDOUT "for any problems that may occur or accidents that may happen to your computer." + CHR$(10) + CHR$(13)ãSTDOUT "I have tested this program to the best of my ability and have not found it to" + CHR$(10) + CHR$(13)ãSTDOUT "be an unstable program. Although this image viewing program supports many" + CHR$(10) + CHR$(13)ãSTDOUT "modes of operation not all of them will be available to you." + CHR$(10) + CHR$(13)ãEND SUBããSUB PAL (Act$)ã SELECT CASE UCASE$(Act$)ã ' "save","fadein","fadeout","restore","blackout"ã CASE "SAVE"ã FOR colour% = 0 TO 255ã OUT &H3C7, colour% ' Set color to readã r(colour%) = INP(&H3C9) ' read red valueã g(colour%) = INP(&H3C9) ' read green valueã b(colour%) = INP(&H3C9) ' read blue valueã NEXTã CASE "FADEIN"ã DOã done% = 0ã FOR colour% = 0 TO 255ã OUT &H3C7, colour% ' Set color to readã red% = INP(&H3C9) ' read red valueã grn% = INP(&H3C9) ' read green valueã blu% = INP(&H3C9) ' read blue valueã ' Test the color values, decrementing if necessary.ã ' Set loop variable if saved palette not in use.ã IF red% < r(colour%) THEN red% = red% + 1: done% = 1ã IF grn% < g(colour%) THEN grn% = grn% + 1: done% = 1ã IF blu% < b(colour%) THEN blu% = blu% + 1: done% = 1ã WAIT &H3DA, 8, 8ã OUT &H3C8, colour% ' Set color to writeã OUT &H3C9, red% ' write red valueã OUT &H3C9, grn% ' write green valueã OUT &H3C9, blu% ' write blue valueã NEXTã LOOP WHILE done% <> 0ã CASE "FADEOUT"ã DOã visible% = 0ã FOR colour% = 0 TO 255ã OUT &H3C7, colour% ' Set color to readã red% = INP(&H3C9) ' read red valueã grn% = INP(&H3C9) ' read green valueã blu% = INP(&H3C9) ' read blue valueã ' Test the color values, decrementing if necessary.ã ' Set loop variable if colors are still visible.ã IF red% > 0 THEN red% = red% - 1: visible% = 1ã IF grn% > 0 THEN grn% = grn% - 1: visible% = 1ã IF blu% > 0 THEN blu% = blu% - 1: visible% = 1ã WAIT &H3DA, 8, 8ã OUT &H3C8, colour% ' Set color to writeã OUT &H3C9, red% ' write red valueã OUT &H3C9, grn% ' write green valueã OUT &H3C9, blu% ' write blue valueã NEXTã LOOP WHILE visible% <> 0ã CASE "RESTORE"ã FOR colour% = 0 TO 255ã OUT &H3C8, colour% ' Set color to writeã OUT &H3C9, r(colour%) ' write red valueã OUT &H3C9, g(colour%) ' write green valueã OUT &H3C9, b(colour%) ' write blue valueã NEXTã CASE "BLACKOUT"ã FOR colour% = 0 TO 255ã OUT &H3C8, colour% ' Set color to writeã OUT &H3C9, 0 ' write red valueã OUT &H3C9, 0 ' write green valueã OUT &H3C9, 0 ' write blue valueã NEXTã END SELECTãEND SUBããSUB ParseCmdLine (cmd$, Params$(), Found%)ã'This parsing sub does NOT mistake filenames like "F-14G.ZIP" asã'containing a switch. That's why it looks so big.ã Found% = FALSE: Sep$ = "-/": Temp$ = LTRIM$(RTRIM$(cmd$)): InParam% = FALSEã FOR p% = 1 TO LEN(Temp$)ã C$ = MID$(Temp$, p%, 1)ã IF InParam% = TRUE THEN 'Inside of a switch?ã IF INSTR(Sep$, C$) THEN 'Found another switch?ã 'Terminate current switch, then start parsing the next one.ã GOSUB MakeParam: MID$(Temp$, p%, 1) = LEFT$(Sep$, 1)ã ParamStart% = p%ã ELSEIF ASC(C$) = 32 OR ASC(C$) = 9 THENã GOSUB MakeParam: InParam% = FALSE 'Terminate current switch.ã END IFã ELSEIF InParam% = -2 THEN 'Inside of a parameter?ã IF ASC(C$) = 32 OR ASC(C$) = 9 THEN 'Terminate parameter withã GOSUB MakeParam: InParam% = FALSE 'space or TAB.ã END IFã ELSEã IF INSTR(Sep$, C$) THEN 'Found start of a switch?ã 'Make sure all switches start with "-".ã MID$(Temp$, p%, 1) = LEFT$(Sep$, 1): InParam% = TRUEã ParamStart% = p%ã ELSEIF ASC(C$) <> 32 AND ASC(C$) <> 9 THEN 'If char isn't aã InParam% = -2: ParamStart% = p% 'space or TAB it's a parameter.ã END IFã END IFã NEXTã IF InParam% THEN GOSUB MakeParamã EXIT SUBãMakeParam:ã Found% = Found% + 1ã Params$(Found%) = MID$(Temp$, ParamStart%, p% - ParamStart%)ã IF Found% = UBOUND(Params$) THEN EXIT SUBãRETURNãEND SUBããSUB PressAnyKeyãSTDOUT "Press any key to continue." + CHR$(13)ãZX$ = INPUT$(1)ãSTDOUT " " + CHR$(10) + CHR$(13)ãEND SUBããFUNCTION SelectTGAImageMode% (TGAFILE$)ã'Test for Vesa Support before AnythingãDIM VESAX(1 TO 64) AS LONGãSM2 = VARSEG(VESAX(1)): OS2 = VARPTR(VESAX(1))ã' Confirm VESA support and get pointer to list of supported VESA modes.ã'ãRegisters.AX = &H4F00ãRegisters.ES = CINT(SM2)ãRegisters.DI = CINT(OS2)ãCALL InterruptX(&H10, Registers, Registers)ãDEF SEG = SM2ãT$ = CHR$(PEEK(OS2)) + CHR$(PEEK(OS2 + 1)) + CHR$(PEEK(OS2 + 2)) + CHR$(PEEK(OS2 + 3))ãDEF SEGãIF T$ <> "VESA" THENã STDOUT "A Video Card with VESA support *IS REQUIRED* to use this Targa Image viewer." + CHR$(10) + CHR$(13)ã SelectTGAImageMode = -2: 'No Vesa Supportã EXIT FUNCTIONãEND IFãERASE VESAXãã'Test Tga FileãON ERROR GOTO HandleErrorsãOPEN (TGAFILE$) FOR BINARY AS #1ãIF LOF(1) = 0 THEN CLOSE : KILL TGAFILE$: Ingraphics = 0: ERROR 77ãGET #1, 1, HDR: CLOSE #1ã'BSCREEN 0, 0, 0, 0ã'PRINT ASC(HDR.Clr), ASC(HDR.Img): SLEEPã'PRINT ASC(HDR.Pix): : SLEEP: STOPãã IF ASC(HDR.Clr) > 1 OR ASC(HDR.Img) > 2 THENã BSCREEN 0, 0, 0, 0ã STDOUT "Possible Reasons why this will not work:" + CHR$(10) + CHR$(13)ã STDOUT "1) Unable to load TGA file." + CHR$(10) + CHR$(13)ã STDOUT "2) Image may not be a TGA file." + CHR$(10) + CHR$(13)ã STDOUT "3) TGA compressed images are not supported." + CHR$(10) + CHR$(13)ã SelectTGAImageMode = -3: 'Can't load Targa Pictureã EXIT FUNCTIONã END IFã ã STDOUT "Picture Info" + CHR$(10) + CHR$(13)ã STDOUT "Filename: " + TGAFILE$ + CHR$(10) + CHR$(13)ã STDOUT "Width:" + STR$(HDR.W) + " x " + "Height:" + STR$(HDR.H) + CHR$(10) + CHR$(13)ã STDOUT "Bits per pixel:" + STR$(ASC(HDR.Pix)) + CHR$(10) + CHR$(13)ã STDOUT "X origin point:" + STR$(HDR.XVal) + " x Y origin point:" + STR$(HDR.YVal) + CHR$(10) + CHR$(13)ã IF SeeInfo = TRUE THEN SLEEP 8ãã' Get bits per pixel so image doesn't get screwed.ãIF ASC(HDR.Pix) = 24 THEN BPP = 24 ELSE BPP = 8 'Bits per Pixelãã' Mode listã' MODE = 26: 640 x 400 x 256ã' MODE = 14: 640 x 480 x 256ã' MODE = 16: 800 x 600 x 256ã' MODE = 18: 1024 x 768 x 256ã' MODE = 20: 1200 x 1024 x 256ã' MODE = 22: 1600 x 1200 x 256ããSTI = FALSE 'Assume Worst Case - picture too bigãIF HDR.W >= 0 AND HDR.W <= 640 AND HDR.H >= 0 AND HDR.H <= 400 THEN SelectTGAImageMode = 26: STI = TRUE '640x400x256ãIF HDR.W >= 0 AND HDR.W <= 640 AND HDR.H >= 401 AND HDR.H <= 480 THEN SelectTGAImageMode = 14: STI = TRUE '640x480x256ãIF HDR.W >= 641 AND HDR.W <= 800 AND HDR.H >= 481 AND HDR.H <= 600 THEN SelectTGAImageMode = 16: STI = TRUE '800x600x256ãIF HDR.W >= 801 AND HDR.W <= 1024 AND HDR.H >= 601 AND HDR.H <= 768 THEN SelectTGAImageMode = 18: STI = TRUE '1024x768x256ãIF HDR.W >= 1025 AND HDR.W <= 1200 AND HDR.H >= 769 AND HDR.H <= 1024 THEN SelectTGAImageMode = 20: STI = TRUE '1200x1024x256ãIF HDR.W >= 1201 AND HDR.W <= 1600 AND HDR.H >= 1025 AND HDR.H <= 1200 THEN SelectTGAImageMode = 22: STI = TRUE '1600x1200x256ããIF STI = FALSE THENã SelectTGAImageMode = -4: ' Can't match an Image size to an available screen modeãEND IFãEND FUNCTIONããSUB STDOUT (MESSAGETEXT$) STATICãRegisters.AX = &H4000ãRegisters.BX = &H1ãRegisters.CX = LEN(MESSAGETEXT$)ãRegisters.DS = VARSEG(MESSAGETEXT$)ãRegisters.DX = SADD(MESSAGETEXT$)ãCALL InterruptX(&H21, Registers, Registers)ãEND SUBããSUB SwitchBank (NB%)ãRegisters.AX = &H4F05ãRegisters.BX = 0ãRegisters.DX = NB%ãCALL InterruptX(&H10, Registers, Registers)ãBank% = NB%ãEND SUBããSUB TGALoad (File$)ã'OPEN File$ FOR BINARY AS #1: GET #1, 1, HDR: CLOSE #1ã' IF ASC(HDR.Clr) <> 1 OR ASC(HDR.Img) <> 1 THENã' BSCREEN 0, 0, 0, 0ã' STDOUT "Unable to load TGA file." + CHR$(10) + CHR$(13)ã' EXIT SUBã' END IFããON ERROR GOTO HandleErrorsãOPEN File$ FOR BINARY AS #1ã dcl% = HDR.Col * ASC(HDR.Bits) / 8: dcs& = 19 + ASC(HDR.Info)ã dce& = dcs& + dcl%ã SEEK #1, dcs&ã PB$ = SPACE$(3)ã FOR reg = 0 TO 255ã GET #1, , PB$ã IF SixteenMillionColors = FALSE THENã Rr = ASC(MID$(PB$, 3, 1)) \ 4: Gg = ASC(MID$(PB$, 2, 1)) \ 4ã Bb = ASC(MID$(PB$, 1, 1)) \ 4ã ELSEã Rr = ASC(MID$(PB$, 3, 1)): Gg = ASC(MID$(PB$, 2, 1))ã Bb = ASC(MID$(PB$, 1, 1))ã END IFã OUT &H3C8, reg: OUT &H3C9, Rr: OUT &H3C9, Gg: OUT &H3C9, Bbã NEXTã FOR BlackoutTest = 0 TO 255: OUT &H3C7, BlackoutTestã Red1 = INP(&H3C9): Blue1 = INP(&H3C9): Green1 = INP(&H3C9)ã ColorExist& = Red1 + Blue1 + Green1ã NEXT BlackoutTestã IF ColorExist& = 0 OR ForceGrayScale = TRUE THENã IF BPP = 8 THENã GOSUB LoadLowGrayScaleã ELSEã FOR GraySM = 0 TO 255 'Sixteen million Gray scale if neededã OUT &H3C8, GraySM ' Set color to writeã OUT &H3C9, GraySM ' write red valueã OUT &H3C9, GraySM ' write green valueã OUT &H3C9, GraySM ' write blue valueã NEXT GraySMã END IFã END IFã ã IF BPP = 24 AND ApplyEightBPPGScale = TRUE THENã GOSUB LoadLowGrayScaleã END IFã ã PAL "SAVE"ã IF DisplayPictureWhileLoading = FALSE THENã PAL "BLACKOUT"ã END IFã ã SEEK #1, dce&ã IF BPP = 24 THEN T$ = SPACE$(3) ELSE T$ = SPACE$(1)ã FOR YY = 0 TO HDR.H - 1ã FOR XX = 0 TO HDR.W - 1ã GET #1, , T$ã IF BPP = 24 THENã IF BPP = 24 AND ApplyEightBPPGScale = TRUE THENã ByteColor& = ASC(MID$(T$, 3, 1)) \ 3 + ASC(MID$(T$, 2, 1)) \ 3 + ASC(MID$(T$, 1, 1)) \ 3ã ELSEã ByteColor& = ASC(MID$(T$, 3, 1)) \ 3 + ASC(MID$(T$, 2, 1)) \ 3 + ASC(MID$(T$, 1, 1)) \ 3ã END IFã IF ByteColor& > 32767 THEN ByteColor& = ByteColor& \ 2ã 'STDOUT STR$(ByteColor)ã ELSEã ByteColor& = ASC(T$)ã END IFã DPSET XX, YY, CINT(ByteColor&)ã Abort$ = INKEY$ã IF Abort$ = CHR$(27) THENã CLOSEã BSCREEN 0, 0, 0, 0ã STDOUT "TGA image loading aborted !" + CHR$(10) + CHR$(13)ã ENDã END IFã NEXT XXã NEXT YYã IF DisplayPictureWhileLoading = FALSE THENã PAL "FADEIN"ã END IFãCLOSE #1ãEXIT SUBããLoadLowGrayScale:ãRESTORE GrayTFSCãFOR GrayTFS = 0 TO 255ãREAD Red2, Blue2, Green2ãOUT &H3C8, GrayTFS ' Set color to writeãOUT &H3C9, Red2 ' write red valueãOUT &H3C9, Green2 ' write green valueãOUT &H3C9, Blue2 ' write blue valueãNEXT GrayTFSãRETURNãEND SUBããSUB WriteSuperVgaRaw (SRWName$)ãON ERROR GOTO HandleErrorsãOPEN SRWName$ FOR OUTPUT AS #1ãPRINT #1, "SuperVGA_TGA_viewerSuperRWformat";ãFOR PalSave = 0 TO 255ã OUT &H3C7, PalSave ' Set color to readã PRINT #1, CHR$(INP(&H3C9)); ' read red valueã PRINT #1, CHR$(INP(&H3C9)); ' read green valueã PRINT #1, CHR$(INP(&H3C9)); ' read blue valueãNEXT PalSaveã' Mode listã' MODE = 26: 640 x 400 x 256ã' MODE = 14: 640 x 480 x 256ã' MODE = 16: 800 x 600 x 256ã' MODE = 18: 1024 x 768 x 256ã' MODE = 20: 1200 x 1024 x 256ã' MODE = 22: 1600 x 1200 x 256ãSELECT CASE VesModeãCASE IS = 26: H = 639: V = 399ãCASE IS = 14: H = 639: V = 479ãCASE IS = 16: H = 799: V = 599ãCASE IS = 18: H = 1023: V = 767ãCASE IS = 20: H = 1199: V = 1023ãCASE IS = 22: H = 1599: V = 1199ãEND SELECTãFOR VPIX = 0 TO VãFOR HPIX = 0 TO HãPIXELCOLOR = DPOINT(HPIX, VPIX)ãPRINT #1, CHR$(PIXELCOLOR);ãNEXT HPIX, VPIXãCLOSEãEND SUBããSUB XBeep (High, Low, Duration) STATICãOUT 97, INP(97) OR &H3: OUT 67, 182ãOUT 66, High: OUT 66, LowãFOR Z! = 0 TO Duration: NEXT Z!ãOUT 97, INP(97) AND &HFCãEND SUBãAndrew S. Gibson SVGA RAW IMAGE VIEWER zapf_dingbat@juno.com 05-15-98 (02:52) QB, PDS 1136 49770 RAWVIEW.BAS ' This is a SuperVga Raw image viewer, I am able to use this on my 386sxã' that has a Trident 8900 (512k) with a VESA BIOS Version 1.2 tsr resident.ã' It worked charmingly... Alas now I have a Phoenix S3 Vision 864 with twoã' megabytes of display ram and these QuickBASIC SuperVGA Routines says itã' can't find any display modes (BS, I have used 8 other programs and theseã' find everything !). As we all know Vision 864s have VESA BIOS 1.2 supportã' built in. If anybody knows where I can send email to Glenn Stumpff, Authorã' of QBSVGA 3.2 - I'd really appreciate this. I'd like to get an upgrade, orã' find something much better.. anyway this program has internal help - it'sã' meant to be used as a command line utility. You need QuickBASIC 4.5 !ã' If you can make sense of all these things feel free to translate this toã' another form of the basic language. Hey as least the VESA detectionã' actually works... only a couple of routines from QBSVGA 3.2 are used, andã' I got the VESA bank switching code from somebody else's submission andã' incorporated it in this and other programs.. My mail address isã' Zapf_DingBat@JUNO.COM - a text only mail service.ãDEFINT A-ZãDECLARE FUNCTION BIN$ (NUM AS LONG)ãDECLARE FUNCTION DPOINT% (XCOORD, YCOORD)ãDECLARE FUNCTION SelectRAWImageMode% (RAWFILE$)ããDECLARE SUB BSCREEN (MODE, CL, APAGE, VPAGE)ãDECLARE SUB DCLS (HorizMax, VertMax)ãDECLARE SUB DPSET (XCOORD, YCOORD, CL%)ãDECLARE SUB FINDVESA (MODE, HR, VR, NC)ãDECLARE SUB HELP ()ãDECLARE SUB PAL (Act$)ãDECLARE SUB ParseCmdLine (cmd$, Params$(), Found%)ãDECLARE SUB PressAnyKey ()ãDECLARE SUB STDOUT (MESSAGETEXT$)ãDECLARE SUB SwitchBank (NB%)ãDECLARE SUB RAWLoad (File$)ãDECLARE SUB XBeep (High, Low, Duration)ãã'REGTYPE.BAS - Include file for CALL INTERRUPTãTYPE RegTypeã AX AS INTEGERã BX AS INTEGERã CX AS INTEGERã DX AS INTEGERã BP AS INTEGERã SI AS INTEGERã DI AS INTEGERã flags AS INTEGERã DS AS INTEGERã ES AS INTEGERãEND TYPEããCONST TRUE = -1, FALSE = 0ãDIM SHARED Registers AS RegType, DisplayPictureWhileLoading, ApplyEightBPPGScaleãDIM SHARED r(255), g(255), b(255), ForceGrayScale, AdjustTFS, ForceHicolorGrayScaleãDIM SHARED Bank%, Table&(0 TO 1600), Ingraphics, VesMode, RawHeight&, RawWidth&, SeeInfoãDIM Params$(1 TO 10)ããCOMMON SHARED /DEFAULTS/ ACPAGE, DEFLTC, VESSUP, HMAX, VMAX, BVCBL, BITPLANES, BITSPIXELãCOMMON SHARED /VIEWPORT/ VXL, VYL, VXR, VYR, VCOL, VBORDã'$DYNAMICããCLEAR , 2048ã' Mode listã' MODE = 26: 640 x 400 x 256ã' MODE = 14: 640 x 480 x 256ã' MODE = 16: 800 x 600 x 256ã' MODE = 18: 1024 x 768 x 256ã' MODE = 20: 1200 x 1024 x 256ã' MODE = 22: 1600 x 1200 x 256ãã' program defaultsã ApplyEightBPPGScale = FALSEã DisplayPictureWhileLoading = FALSEã ForceGrayScale = FALSEã ForceHicolorGrayScale = FALSEã Hrequest = FALSEã AdjustTFS = FALSEã SeeInfo = FALSEããParseCmdLine COMMAND$, Params$(), NumParams%ã'IF NumParams% = FALSE THEN Help: Noff = TRUEããFOR II% = 1 TO NumParams%ã Q$ = Params$(II%)ã SELECT CASE Q$ã CASE "?", "HELP", "-?", "-HELP": HELP: Hrequest = TRUE: EXIT FORã CASE IS = "-A8GS", "-ABP8GS": ApplyEightBPPGScale = TRUEã CASE IS = "-AJ256", "-ADJUSTFOR256": AdjustTFS = TRUEã CASE IS = "-DISPLAYPICTUREWHILELOADING", "-DPWL": DisplayPictureWhileLoading = TRUEã CASE IS = "-GRAYDISPLAY", "-GD": ForceGrayScale = TRUEã CASE IS = "-FHGS", "-FORCEHICOLORGRAYSCALE": ForceHicolorGrayScale = TRUEã CASE IS = "-PI", "-PICINFO": SeeInfo = TRUEã CASE ELSEã Filename$ = Q$ãEND SELECTãNEXT II%ãIF Hrequest = TRUE THEN GOTO Term 'bail outããON ERROR GOTO HandleErrorsãIF Filename$ = "" THENã STDOUT "You must specify a file name on the command line." + CHR$(10) + CHR$(13)ã GOTO TermãEND IFããVesMode = SelectRAWImageMode%(Filename$)ãSELECT CASE VesModeã CASE -2: GOTO Termã CASE -3: GOTO Termã CASE -4ã STDOUT Filename$ + CHR$(10) + CHR$(13)ã STDOUT "The Raw image you want to view is too large for any modes supported." + CHR$(10) + CHR$(13)ã 'STDOUT "Width of " + LTRIM$(STR$(RawWidth&)) + " pixels and has a Height of " + LTRIM$(STR$(RawHeight&)) + " pixels." + CHR$(10) + CHR$(13)ã STDOUT "This Raw Image viewer currently only supports these VESA Video Modes:" + CHR$(10) + CHR$(13) + CHR$(10)ã STDOUT "Width x Height x Maximum Colors" + CHR$(10) + CHR$(13)ã STDOUT " 640 x 400 x 256 Colors" + CHR$(10) + CHR$(13)ã STDOUT " 640 x 480 x 256 Colors" + CHR$(10) + CHR$(13)ã STDOUT " 800 x 600 x 256 Colors" + CHR$(10) + CHR$(13)ã STDOUT "1024 x 768 x 256 Colors" + CHR$(10) + CHR$(13)ã STDOUT "1200 x 1024 x 256 Colors" + CHR$(10) + CHR$(13)ã STDOUT "1600 x 1200 x 256 Colors" + CHR$(10) + CHR$(13)ã GOTO Termã CASE IS = 26ã FOR Height% = 0 TO 399: Table&(Height%) = Height% * 640&: NEXT Height%ã CASE IS = 14ã FOR Height% = 0 TO 479: Table&(Height%) = Height% * 640&: NEXT Height%ã CASE IS = 16ã FOR Height% = 0 TO 599: Table&(Height%) = Height% * 800&: NEXT Height%ã CASE IS = 18ã FOR Height% = 0 TO 767: Table&(Height%) = Height% * 1024&: NEXT Height%ã CASE IS = 20ã FOR Height% = 0 TO 1023: Table&(Height%) = Height% * 1200&: NEXT Height%ã CASE IS = 22ã FOR Height% = 0 TO 1199: Table&(Height%) = Height% * 1600&: NEXT Height%ãEND SELECTãBSCREEN VesMode, 0, 0, 0ãIngraphics = TRUEãRAWLoad Filename$ãXBeep 5, 8, 350ãZX$ = INPUT$(1)ãPAL "FADEOUT"ãBSCREEN 0, 0, 0, 0ãTerm:ãENDãã'256 Gray Scale - if needed (0 to 64)ãGrayTFSC:ãDATA 0,0,0,0,0,0,0,0,0,0,0,0ãDATA 1,1,1,1,1,1,1,1,1,1,1,1ãDATA 2,2,2,2,2,2,2,2,2,2,2,2ãDATA 3,3,3,3,3,3,3,3,3,3,3,3ãDATA 4,4,4,4,4,4,4,4,4,4,4,4ãDATA 5,5,5,5,5,5,5,5,5,5,5,5ãDATA 6,6,6,6,6,6,6,6,6,6,6,6ãDATA 7,7,7,7,7,7,7,7,7,7,7,7ãDATA 8,8,8,8,8,8,8,8,8,8,8,8ãDATA 9,9,9,9,9,9,9,9,9,9,9,9ãDATA 10,10,10,10,10,10,10,10,10,10,10,10ãDATA 11,11,11,11,11,11,11,11,11,11,11,11ãDATA 12,12,12,12,12,12,12,12,12,12,12,12ãDATA 13,13,13,13,13,13,13,13,13,13,13,13ãDATA 14,14,14,14,14,14,14,14,14,14,14,14ãDATA 15,15,15,15,15,15,15,15,15,15,15,15ãDATA 16,16,16,16,16,16,16,16,16,16,16,16ãDATA 17,17,17,17,17,17,17,17,17,17,17,17ãDATA 18,18,18,18,18,18,18,18,18,18,18,18ãDATA 19,19,19,19,19,19,19,19,19,19,19,19ãDATA 20,20,20,20,20,20,20,20,20,20,20,20ãDATA 21,21,21,21,21,21,21,21,21,21,21,21ãDATA 22,22,22,22,22,22,22,22,22,22,22,22ãDATA 23,23,23,23,23,23,23,23,23,23,23,23ãDATA 24,24,24,24,24,24,24,24,24,24,24,24ãDATA 25,25,25,25,25,25,25,25,25,25,25,25ãDATA 26,26,26,26,26,26,26,26,26,26,26,26ãDATA 27,27,27,27,27,27,27,27,27,27,27,27ãDATA 28,28,28,28,28,28,28,28,28,28,28,28ãDATA 29,29,29,29,29,29,29,29,29,29,29,29ãDATA 30,30,30,30,30,30,30,30,30,30,30,30ãDATA 31,31,31,31,31,31,31,31,31,31,31,31ãDATA 32,32,32,32,32,32,32,32,32,32,32,32ãDATA 33,33,33,33,33,33,33,33,33,33,33,33ãDATA 34,34,34,34,34,34,34,34,34,34,34,34ãDATA 35,35,35,35,35,35,35,35,35,35,35,35ãDATA 36,36,36,36,36,36,36,36,36,36,36,36ãDATA 37,37,37,37,37,37,37,37,37,37,37,37ãDATA 38,38,38,38,38,38,38,38,38,38,38,38ãDATA 39,39,39,39,39,39,39,39,39,39,39,39ãDATA 40,40,40,40,40,40,40,40,40,40,40,40ãDATA 41,41,41,41,41,41,41,41,41,41,41,41ãDATA 42,42,42,42,42,42,42,42,42,42,42,42ãDATA 43,43,43,43,43,43,43,43,43,43,43,43ãDATA 44,44,44,44,44,44,44,44,44,44,44,44ãDATA 45,45,45,45,45,45,45,45,45,45,45,45ãDATA 46,46,46,46,46,46,46,46,46,46,46,46ãDATA 47,47,47,47,47,47,47,47,47,47,47,47ãDATA 48,48,48,48,48,48,48,48,48,48,48,48ãDATA 49,49,49,49,49,49,49,49,49,49,49,49ãDATA 50,50,50,50,50,50,50,50,50,50,50,50ãDATA 51,51,51,51,51,51,51,51,51,51,51,51ãDATA 52,52,52,52,52,52,52,52,52,52,52,52ãDATA 53,53,53,53,53,53,53,53,53,53,53,53ãDATA 54,54,54,54,54,54,54,54,54,54,54,54ãDATA 55,55,55,55,55,55,55,55,55,55,55,55ãDATA 56,56,56,56,56,56,56,56,56,56,56,56ãDATA 57,57,57,57,57,57,57,57,57,57,57,57ãDATA 58,58,58,58,58,58,58,58,58,58,58,58ãDATA 59,59,59,59,59,59,59,59,59,59,59,59ãDATA 60,60,60,60,60,60,60,60,60,60,60,60ãDATA 61,61,61,61,61,61,61,61,61,61,61,61ãDATA 62,62,62,62,62,62,62,62,62,62,62,62ãDATA 63,63,63,63,63,63,63,63,63,63,63,63ãããHandleErrors:ãIF Ingraphics = TRUE THENãPAL "FADEIN"ãPAL "RESTORE"ãEND IFãBSCREEN 0, 0, 0, 0ãCLOSEãSTDOUT "The following error has occurred:" + CHR$(10) + CHR$(13)ãSELECT CASE ERRã CASE IS = 5: STDOUT "Illegal Function Call." + CHR$(10) + CHR$(13)ã CASE IS = 6: STDOUT "Math Overflow." + CHR$(10) + CHR$(13)ã CASE IS = 7: STDOUT "Program Error: Out of memory." + CHR$(10) + CHR$(13)ã STDOUT "I used up all of the DGROUP space, Try again." + CHR$(10) + CHR$(13)ã CASE IS = 9: STDOUT "Program Error: Array Subscript out of range." + CHR$(10) + CHR$(13)ã STDOUT "Upper limit of allocated space exceeded." + CHR$(10) + CHR$(13)ã CASE IS = 14: STDOUT "Program Error: Out of String Space" + CHR$(10) + CHR$(13)ã CASE IS = 24: STDOUT "Informative Error: Device timeout" + CHR$(10) + CHR$(13)ã STDOUT "Turn on your printer or activate `on-line' mode." + CHR$(10) + CHR$(13)ã CASE IS = 25: STDOUT "Printer Error: Device fault" + CHR$(10) + CHR$(13)ã STDOUT "I can't talk to your printer or print que." + CHR$(10) + CHR$(13)ã CASE IS = 27: STDOUT "Printer Error: Out of paper" + CHR$(10) + CHR$(13)ã STDOUT "Put Paper in your printer." + CHR$(10) + CHR$(13)ã CASE IS = 52: STDOUT "Program or User Error: Bad File Name or number" + CHR$(10) + CHR$(13)ã STDOUT "You provided a bad file name or I tried to use a file number that's closed." + CHR$(10) + CHR$(13)ã CASE IS = 53: STDOUT "FileManager/User input Error: File not found"ã STDOUT "I cannot find the file you requested." + CHR$(10) + CHR$(13)ã CASE IS = 54: STDOUT "FileManager/Programmer Error: Bad file mode" + CHR$(10) + CHR$(13)ã STDOUT "I am unable to read a file properly. Make sure the input file is NOT a" + CHR$(10) + CHR$(13)ã STDOUT "text file !" + CHR$(10) + CHR$(13)ã CASE IS = 55: STDOUT "FileManager Error: File already open" + CHR$(10) + CHR$(13)ã STDOUT "A file was already opened, all files are now closed." + CHR$(10) + CHR$(13)ã CASE IS = 57: STDOUT "System Fault: Device I/O error" + CHR$(10) + CHR$(13)ã STDOUT "I can not 'talk' to a specific device." + CHR$(10) + CHR$(13)ã CASE IS = 58: STDOUT "Informative Error: File already exists" + CHR$(10) + CHR$(13)ã CASE IS = 59: STDOUT "FileManager Error: Bad record length" + CHR$(10) + CHR$(13)ã STDOUT "A database record of some sort is not long enough or is too long." + CHR$(10) + CHR$(13)ã CASE IS = 61: STDOUT "Informative Error: Disk FULL" + CHR$(10) + CHR$(13)ã STDOUT "Free up some disk space." + CHR$(10) + CHR$(13)ã CASE IS = 62: STDOUT "FileManager Error: Input past end of file." + CHR$(10) + CHR$(13)ã STDOUT "Attempt to read beyond the end of current file." + CHR$(10) + CHR$(13)ã CASE IS = 63: STDOUT "Program Error: Bad record number" + CHR$(10) + CHR$(13)ã STDOUT "A database record of some sort doesn't exist." + CHR$(10) + CHR$(13)ã CASE IS = 64: STDOUT "User Error: Bad file name" + CHR$(10) + CHR$(13)ã STDOUT "You specifically told me to use a file name that is incorrect." + CHR$(10) + CHR$(13)ã CASE IS = 67: STDOUT "FileManager Fault: Too many files open" + CHR$(10) + CHR$(13)ã STDOUT "I can't open more files than listed in your CONFIG.SYS file." + CHR$(10) + CHR$(13)ã CASE IS = 68: STDOUT "System Error: Device UNAVAILABLE" + CHR$(10) + CHR$(13)ã STDOUT "A user serviceable device is not accessable to the computer." + CHR$(10) + CHR$(13)ã CASE IS = 71: STDOUT "User or System Error: Disk not Ready" + CHR$(10) + CHR$(13)ã STDOUT "Insert a diskette in the current drive. (Excepting Hardrives)" + CHR$(10) + CHR$(13)ã CASE IS = 72: STDOUT "Serious Informative Error: Disk-Media error" + CHR$(10) + CHR$(13)ã STDOUT "The recordable media surface of the current disk has developed a defect." + CHR$(10) + CHR$(13)ã CASE IS = 73: STDOUT "Informative Error: Feature unavailable" + CHR$(10) + CHR$(13)ã STDOUT "An advanced capability is not available within this computer." + CHR$(10) + CHR$(13)ã CASE IS = 75: STDOUT "FileManager/User input Error: Path/File access error" + CHR$(10) + CHR$(13)ã CASE IS = 76: STDOUT "FileManager/User input Error: Path not found" + CHR$(10) + CHR$(13)ã STDOUT "The path to a file is non-existant." + CHR$(10) + CHR$(13)ã CASE IS = 77: STDOUT "FileManager/User input Error: File doesn't exist." + CHR$(10) + CHR$(13)ã CASE ELSEã STDOUT "Error is unprintable. The Errorlevel is" + STR$(ERR) + "." + CHR$(10) + CHR$(13)ãEND SELECTãENDããREM $STATICãFUNCTION BIN$ (NUM AS LONG)ã'ã' This is a "functionized" version of code extracted from a more generalã' numeric base conversion program by Robert B. Relf, (C) 1984. This justã' uses the part of Mr. Relf's code that converts decimal to binary.ã'ãDIM x AS INTEGERãNUM = (NUM + 65536) MOD 65536ãBIN1$ = ""ãFOR x = 15 TO 0 STEP -1ãIF NUM >= (2 ^ x) THENãBIN1$ = BIN1$ + "1"ãNUM = NUM - (2 ^ x)ãELSEãBIN1$ = BIN1$ + "0"ãEND IFãNEXT xãBIN1$ = LEFT$(BIN1$, 8) + RIGHT$(BIN1$, 8)ãBIN$ = BIN1$ãEND FUNCTIONããSUB BSCREEN (MODE, CL, APAGE, VPAGE)ã'ã' Subroutine BSCREEN emulates the function of QB's SCREEN statement.ã' It uses subroutine FINDVESA to find a video mode supported by a VESAã' bios that corresponds to a "QB-type" mode specified by MODE. Theã' resolutions for each supported MODE integer are given below.ã'ã' MODE = 26: 640 x 400 x 256ã' MODE = 14: 640 x 480 x 256ã' MODE = 15: 800 x 600 x 16ã' MODE = 16: 800 x 600 x 256ã' MODE = 17: 1024 x 768 x 16ã' MODE = 18: 1024 x 768 x 256ã' MODE = 19: 1200 x 1024 x 16ã' MODE = 20: 1200 x 1024 x 256ã' MODE = 21: 1600 x 1200 x 16ã' MODE = 22: 1600 x 1200 x 256ã' MODE = 23: 132 x 25 x 16 (text)ã' MODE = 24: 132 x 43 x 16 (text)ã' MODE = 25: 132 x 50 x 16 (text)ã'ã' These routines should not be used with modes not specified here. Modeã' 0 is an allowable input; it corresponds to QB's SCREEN 0 and getsã' translated here to bios mode 3. (Except for more colors, I'm not awareã' of any higher modes, anyway, and why would you want to use theseã' routines with the lower modes? QB's SCREEN statement will do that.) Ifã' a mode with the desired resolution and colors cannot be found, a modeã' will still be selected if one can be found with the desired resolutionã' and *more* colors than necessary.ã'ã' The first four inputs are just as would be used with QB's SCREENã' statement except that CL is the default color to print with, not someã' switch that determines whether color is displayed at all. Unlike theã' SCREEN statement, all parameters much be specified in the CALL. If theã' input video mode is the one that is already in effect, BSCREEN can beã' used to simply change default colors or displayed/active pages. (Youã' might want to use subroutine BCOLOR for the former purpose.) BSCREENã' should be called before any of the other routines are called.ã'ãDIM CMODE AS INTEGERã'ã' Store active page and default color in global variables. (Alias VPAGEã' with VP and make sure its value is valid.)ã'ãACPAGE = APAGE: IF ACPAGE < 0 THEN ACPAGE = 0ãDEFLTC = CL: IF DEFLTC <= 0 THEN DEFLTC = 7ãVP = VPAGE: IF VP < 0 THEN VP = 0ã'ã' Get current video mode. If it is same as one being set, no mode changeã' is made. The routine is just being used to change default colorsã' (subroutine BCOLOR is simpler to use for that purpose) or pages. (Theã' value of CMODE may get changed after VESA-awareness is determined.)ã'ãRegisters.AX = &HF00ãCALL InterruptX(&H10, Registers, Registers)ãCMODE = Registers.AX AND &HFFã'ã' Set visible page.ã'ãRegisters.AX = CINT(VP) + 1280ãCALL InterruptX(&H10, Registers, Registers)ã'ã' Make correlation between "QB-type" modes and resolution of bios mode toã' be searched for. (Set default mode data in case invalid mode was input.)ã'ãHR = 800: VR = 600: NC = 16ãIF MODE = 14 THEN HR = 640: VR = 480ãIF MODE = 15 OR MODE = 16 THEN HR = 800: VR = 600ãIF MODE = 17 OR MODE = 18 THEN HR = 1024: VR = 768ãIF MODE = 19 OR MODE = 20 THEN HR = 1280: VR = 1024ãIF MODE = 21 OR MODE = 22 THEN HR = 1600: VR = 1200ãIF MODE = 23 THEN VR = 25ãIF MODE = 24 THEN VR = 43ãIF MODE = 25 THEN VR = 50ãIF MODE = 26 THEN HR = 640: VR = 400ãIF MODE = 0 OR MODE = 15 OR MODE = 17 OR MODE = 19 OR MODE = 21 OR MODE > 22 THEN NC = 16ãIF MODE = 14 OR MODE = 16 OR MODE = 18 OR MODE = 20 OR MODE = 22 OR MODE = 26 THEN NC = 256ãIF MODE = 23 OR MODE = 24 OR MODE = 25 THEN HR = 132ã'ã' Define global resolution limits (zero-based) and viewport defaults.ã'ãHMAX = HR - 1: VMAX = VR - 1: VXL = 0: VYL = 0: VXR = HMAX: VYR = VMAXã'ã' Set VCOL to a negative number so other routines can tell that BVIEWã' wasn't called yet.ã'ãVCOL = -1ãIF MODE <> 0 THENã'ã' SCREEN is not being reset to text mode. Find VESA mode with desiredã' resolution. If FINDVESA can't find a requisite VESA mode, whetherã' because system isn't VESA-aware or other reasons, BMODE is returned asã' -1. (If system is detected as VESA aware, an "error code" of 0 isã' defined via VESSUP variable. If VESA cannot be detected, VESSUP is setã' to unity.) Before using FINDVESA, however, look for overriding biosã' mode definition via DOS environment variable. (This environmentã' is SET with the syntax "MODE##=bios-mode", where ## is the two-digitã' QB-type mode integer that corresponds to bios-mode.)ã'ãQBMODE$ = "MODE" + LTRIM$(RTRIM$(STR$(MODE)))ãEMODE$ = MID$(LTRIM$(ENVIRON$(QBMODE$)), 1, 80)ãBMODE = VAL("&H0" + EMODE$)ã'ã' In case FINDVESA isn't going to be used to find a VESA video mode orã' it *is* going to be used and in case it fails, set default bit planesã' per pixel and bits per pixel parameters.ã'ãBITPLANES = 1: BITSPIXEL = 8ãIF BMODE = 0 THENã'ã' "MODE##" environment variable didn't exist for input QB-type mode.ã'ãFINDVESA BMODE, HR, VR, NCã'ã' Except for text mode 3, there are no bios modes less than 4 that areã' of concern here. (There aren't likely any below 13h of any importance.ã' I'm just taking into account "wierd" video adapters, such as mine, whichã' will do a hex mode B.)ã'ãIF BMODE >= 4 THENã'ã' VESA mode was found, hence, system is VESA-aware. Redetermine currentã' video mode.ã'ãRegisters.AX = &H4F03ãCALL InterruptX(&H10, Registers, Registers)ãCMODE = Registers.BXãIF CMODE <> BMODE THENã'ã' VESA mode was found and it is different from current mode; change videoã' mode.ã'ãRegisters.AX = &H4F02ãRegisters.BX = BMODEãCALL InterruptX(&H10, Registers, Registers)ãIF MODE < 23 THENã'ã' Initialize mouse if driver is installed via interrupt 33h.ã'ã'IF QRYMOUSE = -1 THEN CALL MOUSINITãEND IFãEND IFãELSEã'ã' VESA mode couldn't be found. Assume "OEM SVGA" and ask user forã' hexadecimal mode integer that corresponds to desired video mode. Setã' VESSUP according to value of input bios mode. (Put screen in standardã' QB text mode so prompt can be seen in case it was already in someã' QB-unreadable graphics screen.)ã'ãRegisters.AX = 3ãCALL InterruptX(&H10, Registers, Registers)ããRES$ = LTRIM$(RTRIM$(STR$(HR))) + " x " + LTRIM$(RTRIM$(STR$(VR))) + " x "ãRES$ = RES$ + LTRIM$(RTRIM$(STR$(NC)))ãSTDOUT "VESA video card may not support this resolution:" + RES$ + CHR$(10) + CHR$(13) + CHR$(10) + CHR$(13)ãSTDOUT "Type this from DOS and try again:" + CHR$(10) + CHR$(13)ãSTDOUT "SET MODE" + LTRIM$(RTRIM$(STR$(MODE))) + "=(Vesa BIOS mode number in hexadecimal)" + CHR$(10) + CHR$(13)ãENDã'ã' Video mode is changed regardless of its present state when mode had toã' be prompted for. (Even if the above text-mode change hadn't occurred,ã' the prompt for the mode needs to be cleared.)ã'ãVESSUP = 1ãRegisters.AX = VAL("&H" + M$)ã'ã' Use VESA call to set video mode if it is 100h or above. Otherwise,ã' use standard bios call.ã'ãIF Registers.AX > 255 THENãVESSUP = 0ãRegisters.BX = Registers.AXãRegisters.AX = &H4F02ãEND IFãCALL InterruptX(&H10, Registers, Registers)ãIF MODE < 23 THENã'ã' Initialize mouse if driver is installed via interrupt 33h.ã'ã'IF QRYMOUSE = -1 THEN CALL MOUSINITãEND IFãEND IFãELSEã'ã' "MODE##" environment variable exists for desired mode. Set VESSUPã' according to value of bios mode.ã'ãVESSUP = 1: IF BMODE > 255 THEN VESSUP = 0ã'ã' Re-acquire and test current video mode before changing it.ã'ãIF VESSUP = 1 THENãRegisters.AX = &HF00ãCALL InterruptX(&H10, Registers, Registers)ãCMODE = Registers.AX AND &HFFãRegisters.AX = BMODEãELSEãRegisters.AX = &H4F03ãCALL InterruptX(&H10, Registers, Registers)ãCMODE = Registers.BXãRegisters.AX = &H4F02ãRegisters.BX = BMODEãEND IFãIF CMODE <> BMODE THENãCALL InterruptX(&H10, Registers, Registers)ãIF MODE < 23 THENã'ã' Initialize mouse if driver is installed via interrupt 33h.ã'ã'IF QRYMOUSE = -1 THEN CALL MOUSINITãEND IFãEND IFãEND IFã'ã' Global variable BVCBL is normally 0. BVIEW sets it to 1 just beforeã' calling BLINE to draw a border around the viewport. (BLINE uses thisã' variable to know not to enforce viewport constraints when BVIEW tries toã' draw a box just outside of the viewport. (BVIEW resets it to unity whenã' it's finished.) Define fictitious values for global mouse positionã' variables.ã'ãBVCBL = 0ãELSEã'ã' SCREEN 0 is being emulated. Use what should be a standard text modeã' for any SVGA system. (This mode is also set regardless of whether orã' not the video state is already there.)ã'ãRegisters.AX = 3ãCALL InterruptX(&H10, Registers, Registers)ã'ã' Just to be safe, make sure QB knows what screen mode it's in. (Theã' above call to interrupt 10 could probably be skipped, but QB's SCREEN 0ã' by itself doesn't necessarily leave you in the text mode you want whenã' the screen isn't initially in a mode that QB recognizes.)ã'ãEND IFãEND SUBããSUB DCLS (HorizMax, VertMax)ãFOR VMx = 0 TO VertMaxã FOR HMx = 0 TO HorizMaxã DPSET HMx, VMx, 0ã NEXT HMxãNEXT VMxãEND SUBããFUNCTION DPOINT% (XCOORD, YCOORD)ãNewBank% = (Table&(YCOORD) + XCOORD) \ 65536ãIF NewBank% <> Bank% THEN SwitchBank NewBank%ãDEF SEG = &HA000ãDPOINT% = PEEK((Table&(YCOORD) + XCOORD) MOD 65536)ãDEF SEGãEND FUNCTIONããSUB DPSET (XCOORD, YCOORD, CL%)ãNewBank% = (Table&(YCOORD) + XCOORD) \ 65536ãIF NewBank% <> Bank% THEN SwitchBank NewBank%ãDEF SEG = &HA000ãPOKE (Table&(YCOORD) + XCOORD) MOD 65536, CL%ãDEF SEGãEND SUBããSUB FINDVESA (MODE, HR, VR, NC)ã'ã' This subroutine returns the VESA bios MODE integer (decimal) that hasã' resolution HR x VR x NC, as input via the parameter list. If no suchã' mode can be found, MODE is returned as -1. (If it finds a mode withã' the desired horizontal HR and vertical VR resolution but with more thanã' NC colors, the mode is considered valid and is returned in MODE. (Itã' will first try to find a mode with NC colors.))ã'ã' To qualify as a valid, the mode must be supported by both hardware andã' bios. (FINDVESA is usually called by BSCREEN. There is not much reasonã' to call it directly.)ã'ãDIM VESA(1 TO 64) AS LONG, Byte AS LONG, MD(1 TO 257) AS INTEGER, COLORS(1 TO 256)ãDIM PLANES(1 TO 256)ãSM = VARSEG(VESA(1)): OS = VARPTR(VESA(1))ã'ã' Set VESSUP to unity in case VESA bios cannot be detected.ã'ãVESSUP = 1ã'ã' Confirm VESA support and get pointer to list of supported VESA modes.ã'ãRegisters.AX = &H4F00ãRegisters.ES = CINT(SM)ãRegisters.DI = CINT(OS)ãCALL InterruptX(&H10, Registers, Registers)ãDEF SEG = SMãT$ = CHR$(PEEK(OS)) + CHR$(PEEK(OS + 1)) + CHR$(PEEK(OS + 2)) + CHR$(PEEK(OS + 3))ãIF T$ <> "VESA" THEN GOTO NOSUPã'ã' VESA = VESA bios version number.ã'ãVESAFRC = PEEK(OS + 4)ãFIXFRC:ãVESAFRC = VESAFRC / 10ãIF VESAFRC >= 1 THEN GOTO FIXFRCãVESA = PEEK(OS + 5) + VESAFRCãPSM = PEEK(OS + 16) + 256 * PEEK(OS + 17): POF = PEEK(OS + 14) + 256 * PEEK(OS + 15)ã'ã' Look for video mode that supports desired resolution.ã'ã' NMODES counts number of modes (possibly with different colors) withã' desired resolution.ã'ãNMODES = 1ãNEWMODE:ãDEF SEG = PSMãMD(NMODES) = PEEK(POF) + 256 * PEEK(POF + 1): POF = POF + 2ã'PRINT PEEK(POF) + 256 * PEEK(POF + 1): SLEEPãIF MD(NMODES) = -1 THEN GOTO NOSUPãRegisters.AX = &H4F01ãRegisters.CX = MD(NMODES)ãRegisters.ES = CINT(SM)ãRegisters.DI = CINT(OS)ãCALL InterruptX(&H10, Registers, Registers)ãDEF SEG = SMã'ã' First byte at segment SM stores "support information" about mode underã' analysis.ã'ãByte = CLNG(PEEK(OS) + 256 * PEEK(OS + 1))ãb$ = LTRIM$(RTRIM$(BIN$(Byte)))ã'ã' Bits 0 and 2 indicate support (or lack of it) in hardware and BIOS.ã'ãHARD$ = MID$(b$, 16, 1)ãBIOS$ = MID$(b$, 14, 1)ãIF HARD$ = "0" OR BIOS$ = "0" THEN GOTO NEWMODEã'ã' Bit 4 indicates graphics or text mode.ã'ãGMSW$ = MID$(b$, 12, 1)ã'ã' Bit 1 indicates the presence of extended information. If no extendedã' information is available for this mode, it cannot be determined thatã' it supports the required HR x VR resolution.ã'ãEXTINF$ = MID$(b$, 15, 1)ãIF EXTINF$ = "0" THEN GOTO NEWMODEã'ã' Character sizes are needed to correct stored resolution data for someã' VESA bioses.ã'ãHS = PEEK(OS + 22): VS = PEEK(OS + 23)ãHRM = PEEK(OS + 18) + 256 * PEEK(OS + 19): VRM = PEEK(OS + 20) + 256 * PEEK(OS + 21)ãIF VESA < 1.2 THENãIF GMSW$ = "0" THEN HRM = HRM / HS: VRM = VRM / VSãIF (MD(NMODES) >= 0 AND MD(NMODES) <= 6) OR MD(NMODES) = 13 THEN VRM = VRM / 2ãIF MD(NMODES) = 14 OR MD(NMODES) = 19 THEN VRM = VRM / 2ãEND IFãIF HR <> HRM OR VR <> VRM THEN GOTO NEWMODEãCOLORS(NMODES) = 2! ^ CSNG(PEEK(OS + 25))ã'ã' Get number of bit planes. (Subroutines BGET AND BPUT need it. Theyã' also need the number of bits per pixel. This is actually what was justã' reported by the VESA bios, above. It will be reobtained from the COLORSã' parameter later.)ã'ãPLANES(NMODES) = PEEK(OS + 24)ã'ã' Get all modes with required resolution, regardless of color. (Laterã' on the one with NC colors, if it exists, will be chosen. (But theã' possibility that the one with the right number of colors will be foundã' first is taken into account.))ã'ãIF COLORS(NMODES) = NC THEN GOTO RETMODEãIF NMODES < 256 THEN NMODES = NMODES + 1: GOTO NEWMODEãRETMODE:ã'ã' Since VESA was detected, store corresponding error code.ã'ãVESSUP = 0ãFOR I = 1 TO NMODESãK = IãIF COLORS(I) = NC THEN BITSPIXEL = INT(LOG(COLORS(I)) / LOG(2) + .001)ãIF COLORS(I) = NC THEN MODE = CSNG(MD(I)): BITPLANES = PLANES(I): GOTO QUITãNEXT IãFOR I = 1 TO NMODESãK = IãIF COLORS(I) > NC THEN BITSPIXEL = INT(LOG(COLORS(I)) / LOG(2) + .001)ãIF COLORS(I) > NC THEN MODE = CSNG(MD(I)): BITPLANES = PLANES(I): GOTO QUITãNEXT IãNOSUP:ã'ã' Requisite VESA mode couldn't be found. Return negative mode value asã' switch for calling routine to recognize that fact.ã'ãMODE = -1ãQUIT:ãDEF SEGãEND SUBããSUB HELPãSTDOUT "Raw Image viewer Version .4210á" + CHR$(10) + CHR$(13)ãSTDOUT "Command line arguments available are:" + CHR$(10) + CHR$(13) + CHR$(10)ãSTDOUT "/? or /HELP - This help text. This switch takes precedent over any parameter." + CHR$(10) + CHR$(13) + CHR$(10)ããSTDOUT "/GD - Force displaying of picture in gray scale. " + CHR$(10) + CHR$(13)ãSTDOUT " (Takes Priority over the 'AJ256' switch.)" + CHR$(10) + CHR$(13) + CHR$(10)ãSTDOUT "/DPWL - Display picture while it loads, otherwise you see a black screen." + CHR$(10) + CHR$(13)ãSTDOUT "/A8GS - Apply the 64 shade gray scale palette to a Hicolor/Truecolor Raw" + CHR$(10) + CHR$(13)ãSTDOUT " image. Recommended for 256k color video adapters, if the image" + CHR$(10) + CHR$(13)ãSTDOUT " doesn't look right. (Takes Priority over the 'AJ256' switch.)" + CHR$(10) + CHR$(13) + CHR$(10)ãSTDOUT "/AJ256 - Adjust Hicolor/Truecolor palette in Raw file to work with 256k" + CHR$(10) + CHR$(13)ãSTDOUT " color video adapters. (Can be used to darken an image.)" + CHR$(10) + CHR$(13) + CHR$(10)ãSTDOUT "/FHGS - Force the use of the Hicolor/TrueColor Gray scale." + CHR$(10) + CHR$(13)ãSTDOUT " (Takes Priority over 'GD', 'A8GS', and the 'AJ256' switch.)" + CHR$(10) + CHR$(13) + CHR$(10)ãSTDOUT "/PI - Display picture info for 4 seconds." + CHR$(10) + CHR$(13)ãPressAnyKeyãSTDOUT "Any valid DOS filename that is a Raw image, a pathname may be included." + CHR$(10) + CHR$(13)ãSTDOUT "Images that are 256 colors and above are supported." + CHR$(10) + CHR$(13)ãSTDOUT "A space must be present between a filename and *any* parameter !" + CHR$(10) + CHR$(13)ãSTDOUT "You can press ESCape to abort loading a picture." + CHR$(10) + CHR$(13) + CHR$(10)ãSTDOUT "This Raw image viewer was coded by Andrew Gibson, whom in no way is liable" + CHR$(10) + CHR$(13)ãSTDOUT "for any problems that may occur or accidents that may happen to your computer." + CHR$(10) + CHR$(13)ãSTDOUT "I have tested this program to the best of my ability and have not found it to" + CHR$(10) + CHR$(13)ãSTDOUT "be an unstable program. Although this image viewing program supports many" + CHR$(10) + CHR$(13)ãSTDOUT "modes of operation not all of them will be available to you." + CHR$(10) + CHR$(13)ãEND SUBããSUB PAL (Act$)ã SELECT CASE UCASE$(Act$)ã ' "save","fadein","fadeout","restore","blackout"ã CASE "SAVE"ã FOR colour% = 0 TO 255ã OUT &H3C7, colour% ' Set color to readã r(colour%) = INP(&H3C9) ' read red valueã g(colour%) = INP(&H3C9) ' read green valueã b(colour%) = INP(&H3C9) ' read blue valueã NEXTã CASE "FADEIN"ã DOã done% = 0ã FOR colour% = 0 TO 255ã OUT &H3C7, colour% ' Set color to readã red% = INP(&H3C9) ' read red valueã grn% = INP(&H3C9) ' read green valueã blu% = INP(&H3C9) ' read blue valueã ' Test the color values, decrementing if necessary.ã ' Set loop variable if saved palette not in use.ã IF red% < r(colour%) THEN red% = red% + 1: done% = 1ã IF grn% < g(colour%) THEN grn% = grn% + 1: done% = 1ã IF blu% < b(colour%) THEN blu% = blu% + 1: done% = 1ã WAIT &H3DA, 8, 8ã OUT &H3C8, colour% ' Set color to writeã OUT &H3C9, red% ' write red valueã OUT &H3C9, grn% ' write green valueã OUT &H3C9, blu% ' write blue valueã NEXTã LOOP WHILE done% <> 0ã CASE "FADEOUT"ã DOã visible% = 0ã FOR colour% = 0 TO 255ã OUT &H3C7, colour% ' Set color to readã red% = INP(&H3C9) ' read red valueã grn% = INP(&H3C9) ' read green valueã blu% = INP(&H3C9) ' read blue valueã ' Test the color values, decrementing if necessary.ã ' Set loop variable if colors are still visible.ã IF red% > 0 THEN red% = red% - 1: visible% = 1ã IF grn% > 0 THEN grn% = grn% - 1: visible% = 1ã IF blu% > 0 THEN blu% = blu% - 1: visible% = 1ã WAIT &H3DA, 8, 8ã OUT &H3C8, colour% ' Set color to writeã OUT &H3C9, red% ' write red valueã OUT &H3C9, grn% ' write green valueã OUT &H3C9, blu% ' write blue valueã NEXTã LOOP WHILE visible% <> 0ã CASE "RESTORE"ã FOR colour% = 0 TO 255ã OUT &H3C8, colour% ' Set color to writeã OUT &H3C9, r(colour%) ' write red valueã OUT &H3C9, g(colour%) ' write green valueã OUT &H3C9, b(colour%) ' write blue valueã NEXTã CASE "BLACKOUT"ã FOR colour% = 0 TO 255ã OUT &H3C8, colour% ' Set color to writeã OUT &H3C9, 0 ' write red valueã OUT &H3C9, 0 ' write green valueã OUT &H3C9, 0 ' write blue valueã NEXTã END SELECTãEND SUBããSUB ParseCmdLine (cmd$, Params$(), Found%)ã'This parsing sub does NOT mistake filenames like "F-14G.ZIP" asã'containing a switch. That's why it looks so big.ã Found% = FALSE: Sep$ = "-/": Temp$ = LTRIM$(RTRIM$(cmd$)): InParam% = FALSEã FOR p% = 1 TO LEN(Temp$)ã C$ = MID$(Temp$, p%, 1)ã IF InParam% = TRUE THEN 'Inside of a switch?ã IF INSTR(Sep$, C$) THEN 'Found another switch?ã 'Terminate current switch, then start parsing the next one.ã GOSUB MakeParam: MID$(Temp$, p%, 1) = LEFT$(Sep$, 1)ã ParamStart% = p%ã ELSEIF ASC(C$) = 32 OR ASC(C$) = 9 THENã GOSUB MakeParam: InParam% = FALSE 'Terminate current switch.ã END IFã ELSEIF InParam% = -2 THEN 'Inside of a parameter?ã IF ASC(C$) = 32 OR ASC(C$) = 9 THEN 'Terminate parameter withã GOSUB MakeParam: InParam% = FALSE 'space or TAB.ã END IFã ELSEã IF INSTR(Sep$, C$) THEN 'Found start of a switch?ã 'Make sure all switches start with "-".ã MID$(Temp$, p%, 1) = LEFT$(Sep$, 1): InParam% = TRUEã ParamStart% = p%ã ELSEIF ASC(C$) <> 32 AND ASC(C$) <> 9 THEN 'If char isn't aã InParam% = -2: ParamStart% = p% 'space or TAB it's a parameter.ã END IFã END IFã NEXTã IF InParam% THEN GOSUB MakeParamã EXIT SUBãMakeParam:ã Found% = Found% + 1ã Params$(Found%) = MID$(Temp$, ParamStart%, p% - ParamStart%)ã IF Found% = UBOUND(Params$) THEN EXIT SUBãRETURNãEND SUBããSUB PressAnyKeyãSTDOUT "Press any key to continue." + CHR$(13)ãZX$ = INPUT$(1)ãSTDOUT " " + CHR$(10) + CHR$(13)ãEND SUBããSUB RAWLoad (File$)ãON ERROR GOTO HandleErrorsãOPEN File$ FOR BINARY AS #1ã SEEK #1, 33ã PB$ = SPACE$(3)ã FOR reg = 0 TO 255ã GET #1, , PB$ã IF AdjustTFS = FALSE THENã Rr = ASC(MID$(PB$, 1, 1)): Gg = ASC(MID$(PB$, 2, 1))ã Bb = ASC(MID$(PB$, 3, 1))ã ELSEã Rr = ASC(MID$(PB$, 1, 1)) \ 4: Gg = ASC(MID$(PB$, 2, 1)) \ 4ã Bb = ASC(MID$(PB$, 3, 1)) \ 4ã END IFã OUT &H3C8, reg: OUT &H3C9, Rr: OUT &H3C9, Gg: OUT &H3C9, Bbã NEXTã ã IF ApplyEightBPPGScale = TRUE OR ForceGrayScale = TRUE THENã GOSUB LoadLowGrayScaleã END IFã ã IF ForceHicolorGrayScale = TRUE THENã FOR GraySM = 0 TO 255 'Sixteen million Gray scale if neededã OUT &H3C8, GraySM ' Set color to writeã OUT &H3C9, GraySM ' write red valueã OUT &H3C9, GraySM ' write green valueã OUT &H3C9, GraySM ' write blue valueã NEXT GraySMã END IFã ã PAL "SAVE"ã IF DisplayPictureWhileLoading = FALSE THENã PAL "BLACKOUT"ã END IFã ã 'This is much faster than traditional X,Y loading !ã XX = 0ã PicBuffer1$ = SPACE$(RawWidth&): PicBuffer2$ = SPACE$(RawWidth&)ã PicBuffer3$ = SPACE$(RawWidth&): PicBuffer4$ = SPACE$(RawWidth&)ã PicBuffer5$ = SPACE$(RawWidth&): PicBuffer6$ = SPACE$(RawWidth&)ã PicBuffer7$ = SPACE$(RawWidth&): PicBuffer8$ = SPACE$(RawWidth&)ã FOR YY = 0 TO RawHeight& - 1 STEP 8ã GET #1, , PicBuffer1$: GET #1, , PicBuffer2$ã GET #1, , PicBuffer3$: GET #1, , PicBuffer4$ã GET #1, , PicBuffer5$: GET #1, , PicBuffer6$ã GET #1, , PicBuffer7$: GET #1, , PicBuffer8$ã FOR Writebuffer = 1 TO LEN(PicBuffer1$) STEP 8ã ByteColor1 = ASC(MID$(PicBuffer1$, Writebuffer + 0, 1)): ByteColor2 = ASC(MID$(PicBuffer1$, Writebuffer + 1, 1))ã ByteColor3 = ASC(MID$(PicBuffer1$, Writebuffer + 2, 1)): ByteColor4 = ASC(MID$(PicBuffer1$, Writebuffer + 3, 1))ã ByteColor5 = ASC(MID$(PicBuffer1$, Writebuffer + 4, 1)): ByteColor6 = ASC(MID$(PicBuffer1$, Writebuffer + 5, 1))ã ByteColor7 = ASC(MID$(PicBuffer1$, Writebuffer + 6, 1)): ByteColor8 = ASC(MID$(PicBuffer1$, Writebuffer + 7, 1))ã DPSET XX + 0, YY + 0, ByteColor1ã DPSET XX + 1, YY + 0, ByteColor2ã DPSET XX + 2, YY + 0, ByteColor3ã DPSET XX + 3, YY + 0, ByteColor4ã DPSET XX + 4, YY + 0, ByteColor5ã DPSET XX + 5, YY + 0, ByteColor6ã DPSET XX + 6, YY + 0, ByteColor7ã DPSET XX + 7, YY + 0, ByteColor8ã ByteColor1 = ASC(MID$(PicBuffer2$, Writebuffer + 0, 1)): ByteColor2 = ASC(MID$(PicBuffer2$, Writebuffer + 1, 1))ã ByteColor3 = ASC(MID$(PicBuffer2$, Writebuffer + 2, 1)): ByteColor4 = ASC(MID$(PicBuffer2$, Writebuffer + 3, 1))ã ByteColor5 = ASC(MID$(PicBuffer2$, Writebuffer + 4, 1)): ByteColor6 = ASC(MID$(PicBuffer2$, Writebuffer + 5, 1))ã ByteColor7 = ASC(MID$(PicBuffer2$, Writebuffer + 6, 1)): ByteColor8 = ASC(MID$(PicBuffer2$, Writebuffer + 7, 1))ã DPSET XX + 0, YY + 1, ByteColor1ã DPSET XX + 1, YY + 1, ByteColor2ã DPSET XX + 2, YY + 1, ByteColor3ã DPSET XX + 3, YY + 1, ByteColor4ã DPSET XX + 4, YY + 1, ByteColor5ã DPSET XX + 5, YY + 1, ByteColor6ã DPSET XX + 6, YY + 1, ByteColor7ã DPSET XX + 7, YY + 1, ByteColor8ã ByteColor1 = ASC(MID$(PicBuffer3$, Writebuffer + 0, 1)): ByteColor2 = ASC(MID$(PicBuffer3$, Writebuffer + 1, 1))ã ByteColor3 = ASC(MID$(PicBuffer3$, Writebuffer + 2, 1)): ByteColor4 = ASC(MID$(PicBuffer3$, Writebuffer + 3, 1))ã ByteColor5 = ASC(MID$(PicBuffer3$, Writebuffer + 4, 1)): ByteColor6 = ASC(MID$(PicBuffer3$, Writebuffer + 5, 1))ã ByteColor7 = ASC(MID$(PicBuffer3$, Writebuffer + 6, 1)): ByteColor8 = ASC(MID$(PicBuffer3$, Writebuffer + 7, 1))ã DPSET XX + 0, YY + 2, ByteColor1ã DPSET XX + 1, YY + 2, ByteColor2ã DPSET XX + 2, YY + 2, ByteColor3ã DPSET XX + 3, YY + 2, ByteColor4ã DPSET XX + 4, YY + 2, ByteColor5ã DPSET XX + 5, YY + 2, ByteColor6ã DPSET XX + 6, YY + 2, ByteColor7ã DPSET XX + 7, YY + 2, ByteColor8ã ByteColor1 = ASC(MID$(PicBuffer4$, Writebuffer + 0, 1)): ByteColor2 = ASC(MID$(PicBuffer4$, Writebuffer + 1, 1))ã ByteColor3 = ASC(MID$(PicBuffer4$, Writebuffer + 2, 1)): ByteColor4 = ASC(MID$(PicBuffer4$, Writebuffer + 3, 1))ã ByteColor5 = ASC(MID$(PicBuffer4$, Writebuffer + 4, 1)): ByteColor6 = ASC(MID$(PicBuffer4$, Writebuffer + 5, 1))ã ByteColor7 = ASC(MID$(PicBuffer4$, Writebuffer + 6, 1)): ByteColor8 = ASC(MID$(PicBuffer4$, Writebuffer + 7, 1))ã DPSET XX + 0, YY + 3, ByteColor1ã DPSET XX + 1, YY + 3, ByteColor2ã DPSET XX + 2, YY + 3, ByteColor3ã DPSET XX + 3, YY + 3, ByteColor4ã DPSET XX + 4, YY + 3, ByteColor5ã DPSET XX + 5, YY + 3, ByteColor6ã DPSET XX + 6, YY + 3, ByteColor7ã DPSET XX + 7, YY + 3, ByteColor8ã ByteColor1 = ASC(MID$(PicBuffer5$, Writebuffer + 0, 1)): ByteColor2 = ASC(MID$(PicBuffer5$, Writebuffer + 1, 1))ã ByteColor3 = ASC(MID$(PicBuffer5$, Writebuffer + 2, 1)): ByteColor4 = ASC(MID$(PicBuffer5$, Writebuffer + 3, 1))ã ByteColor5 = ASC(MID$(PicBuffer5$, Writebuffer + 4, 1)): ByteColor6 = ASC(MID$(PicBuffer5$, Writebuffer + 5, 1))ã ByteColor7 = ASC(MID$(PicBuffer5$, Writebuffer + 6, 1)): ByteColor8 = ASC(MID$(PicBuffer5$, Writebuffer + 7, 1))ã DPSET XX + 0, YY + 4, ByteColor1ã DPSET XX + 1, YY + 4, ByteColor2ã DPSET XX + 2, YY + 4, ByteColor3ã DPSET XX + 3, YY + 4, ByteColor4ã DPSET XX + 4, YY + 4, ByteColor5ã DPSET XX + 5, YY + 4, ByteColor6ã DPSET XX + 6, YY + 4, ByteColor7ã DPSET XX + 7, YY + 4, ByteColor8ã ByteColor1 = ASC(MID$(PicBuffer6$, Writebuffer + 0, 1)): ByteColor2 = ASC(MID$(PicBuffer6$, Writebuffer + 1, 1))ã ByteColor3 = ASC(MID$(PicBuffer6$, Writebuffer + 2, 1)): ByteColor4 = ASC(MID$(PicBuffer6$, Writebuffer + 3, 1))ã ByteColor5 = ASC(MID$(PicBuffer6$, Writebuffer + 4, 1)): ByteColor6 = ASC(MID$(PicBuffer6$, Writebuffer + 5, 1))ã ByteColor7 = ASC(MID$(PicBuffer6$, Writebuffer + 6, 1)): ByteColor8 = ASC(MID$(PicBuffer6$, Writebuffer + 7, 1))ã DPSET XX + 0, YY + 5, ByteColor1ã DPSET XX + 1, YY + 5, ByteColor2ã DPSET XX + 2, YY + 5, ByteColor3ã DPSET XX + 3, YY + 5, ByteColor4ã DPSET XX + 4, YY + 5, ByteColor5ã DPSET XX + 5, YY + 5, ByteColor6ã DPSET XX + 6, YY + 5, ByteColor7ã DPSET XX + 7, YY + 5, ByteColor8ã ByteColor1 = ASC(MID$(PicBuffer7$, Writebuffer + 0, 1)): ByteColor2 = ASC(MID$(PicBuffer7$, Writebuffer + 1, 1))ã ByteColor3 = ASC(MID$(PicBuffer7$, Writebuffer + 2, 1)): ByteColor4 = ASC(MID$(PicBuffer7$, Writebuffer + 3, 1))ã ByteColor5 = ASC(MID$(PicBuffer7$, Writebuffer + 4, 1)): ByteColor6 = ASC(MID$(PicBuffer7$, Writebuffer + 5, 1))ã ByteColor7 = ASC(MID$(PicBuffer7$, Writebuffer + 6, 1)): ByteColor8 = ASC(MID$(PicBuffer7$, Writebuffer + 7, 1))ã DPSET XX + 0, YY + 6, ByteColor1ã DPSET XX + 1, YY + 6, ByteColor2ã DPSET XX + 2, YY + 6, ByteColor3ã DPSET XX + 3, YY + 6, ByteColor4ã DPSET XX + 4, YY + 6, ByteColor5ã DPSET XX + 5, YY + 6, ByteColor6ã DPSET XX + 6, YY + 6, ByteColor7ã DPSET XX + 7, YY + 6, ByteColor8ã ByteColor1 = ASC(MID$(PicBuffer8$, Writebuffer + 0, 1)): ByteColor2 = ASC(MID$(PicBuffer8$, Writebuffer + 1, 1))ã ByteColor3 = ASC(MID$(PicBuffer8$, Writebuffer + 2, 1)): ByteColor4 = ASC(MID$(PicBuffer8$, Writebuffer + 3, 1))ã ByteColor5 = ASC(MID$(PicBuffer8$, Writebuffer + 4, 1)): ByteColor6 = ASC(MID$(PicBuffer8$, Writebuffer + 5, 1))ã ByteColor7 = ASC(MID$(PicBuffer8$, Writebuffer + 6, 1)): ByteColor8 = ASC(MID$(PicBuffer8$, Writebuffer + 7, 1))ã DPSET XX + 0, YY + 7, ByteColor1ã DPSET XX + 1, YY + 7, ByteColor2ã DPSET XX + 2, YY + 7, ByteColor3ã DPSET XX + 3, YY + 7, ByteColor4ã DPSET XX + 4, YY + 7, ByteColor5ã DPSET XX + 5, YY + 7, ByteColor6ã DPSET XX + 6, YY + 7, ByteColor7ã DPSET XX + 7, YY + 7, ByteColor8ã XX = XX + 8: IF XX = RawWidth& THEN EXIT FORã NEXT Writebufferã XX = 0ã Abort$ = INKEY$ã IF Abort$ = CHR$(27) THENã CLOSEã BSCREEN 0, 0, 0, 0ã STDOUT "Raw image loading aborted !" + CHR$(10) + CHR$(13)ã ENDã END IFã NEXT YYã IF DisplayPictureWhileLoading = FALSE THENã PAL "FADEIN"ã END IFãCLOSE #1ãEXIT SUBããLoadLowGrayScale:ãRESTORE GrayTFSCãFOR GrayTFS = 0 TO 255ãREAD Red2, Blue2, Green2ãOUT &H3C8, GrayTFS ' Set color to writeãOUT &H3C9, Red2 ' write red valueãOUT &H3C9, Green2 ' write green valueãOUT &H3C9, Blue2 ' write blue valueãNEXT GrayTFSãRETURNãEND SUBããFUNCTION SelectRAWImageMode% (RAWFILE$)ã'Test for Vesa Support before AnythingãDIM VESAX(1 TO 64) AS LONGãSM2 = VARSEG(VESAX(1)): OS2 = VARPTR(VESAX(1))ã' Confirm VESA support and get pointer to list of supported VESA modes.ã'ãRegisters.AX = &H4F00ãRegisters.ES = CINT(SM2)ãRegisters.DI = CINT(OS2)ãCALL InterruptX(&H10, Registers, Registers)ãDEF SEG = SM2ãT$ = CHR$(PEEK(OS2)) + CHR$(PEEK(OS2 + 1)) + CHR$(PEEK(OS2 + 2)) + CHR$(PEEK(OS2 + 3))ãDEF SEGãIF T$ <> "VESA" THENã STDOUT "A Video Card with VESA support *IS REQUIRED* to use this Raw Image viewer." + CHR$(10) + CHR$(13)ã SelectTGAImageMode = -2: 'No Vesa Supportã EXIT FUNCTIONãEND IFãERASE VESAXãã'Test Tga FileãON ERROR GOTO HandleErrorsãOPEN RAWFILE$ FOR BINARY AS #1ãIF LOF(1) = 0 THEN CLOSE : KILL RAWFILE$: Ingraphics = 0: ERROR 77ãRawHeader$ = SPACE$(32): GET #1, , RawHeader$ãFileSize& = LOF(1): CLOSE #1ããMatch = TRUE 'assume best caseãSELECT CASE FileSize&ã CASE IS = 64800: RawWidth& = 320: RawHeight& = 200 '320x200x256ã CASE IS = 77600: RawWidth& = 320: RawHeight& = 240 '320x240x256 modex m1ã CASE IS = 128800: RawWidth& = 320: RawHeight& = 400 '320x400x256 modex m7ã CASE IS = 173600: RawWidth& = 360: RawHeight& = 480 '360x480x256 modex m8ãã CASE IS = 256800: RawWidth& = 640: RawHeight& = 400 '640x400x256ã CASE IS = 308000: RawWidth& = 640: RawHeight& = 480 '640x480x256ã CASE IS = 480800: RawWidth& = 800: RawHeight& = 600 '800x600x256ã CASE IS = 787232: RawWidth& = 1024: RawHeight& = 768 '1024x768x256ã CASE IS = 1229600: RawWidth& = 1200: RawHeight& = 1024 '1200x1024x256ã CASE IS = 1920800: RawWidth& = 1600: RawHeight& = 1200 '1600x1200x256ãCASE ELSEã Match = FALSEãEND SELECTããSELECT CASE Matchã CASE IS = TRUEã STDOUT "Found right image size !!!" + CHR$(10) + CHR$(13)ã STDOUT "Picture Info" + CHR$(10) + CHR$(13)ã STDOUT "Filename: " + RAWFILE$ + CHR$(10) + CHR$(13)ã STDOUT "Width:" + STR$(RawWidth&) + " x " + "Height:" + STR$(RawHeight&) + CHR$(10) + CHR$(13)ã STDOUT "Header: " + RawHeader$ + CHR$(10) + CHR$(13)ã IF SeeInfo = TRUE THEN SLEEP 4ã CASE IS = FALSEã 'BSCREEN 0, 0, 0, 0ã STDOUT "Possible Reasons why this will not work:" + CHR$(10) + CHR$(13)ã STDOUT "1) Unable to load Raw file." + CHR$(10) + CHR$(13)ã STDOUT "2) Image may not be a Raw file." + CHR$(10) + CHR$(13)ã STDOUT "3) Raw file size doesn't match." + CHR$(10) + CHR$(13)ã SelectRAWImageMode% = -3: 'Can't load Raw Pictureã EXIT FUNCTIONãEND SELECTã'SELECT CASE RawHeader$ã' CASE IS = "SuperVGA_TGA_viewerSuperRWformat"ã' CASE IS = "GIF_2_RAW_Save_File" + STRING$(13, 32)ã' CASE ELSEã' BSCREEN 0, 0, 0, 0ã' STDOUT "Possible Reasons why this will not work:" + CHR$(10) + CHR$(13)ã' STDOUT "1) Unable to load Raw file." + CHR$(10) + CHR$(13)ã' STDOUT "2) Image may not be a Raw file." + CHR$(10) + CHR$(13)ã' STDOUT "3) Raw file size doesn't match." + CHR$(10) + CHR$(13)ã' SelectRAWImageMode% = -3: 'Can't load Raw Pictureã' EXIT FUNCTIONã'END SELECTãã' Mode listã' MODE = 26: 640 x 400 x 256ã' MODE = 14: 640 x 480 x 256ã' MODE = 16: 800 x 600 x 256ã' MODE = 18: 1024 x 768 x 256ã' MODE = 20: 1200 x 1024 x 256ã' MODE = 22: 1600 x 1200 x 256ãã'Try 1ã'PRINT RawHeight&, RawWidth&ãSRI = FALSE 'Assume Worst Case - picture too bigãIF RawWidth& >= 0 AND RawWidth& <= 640 AND RawHeight& >= 0 AND RawHeight& <= 400 THEN SelectRAWImageMode% = 26: SRI = TRUE '640x400x256ãIF RawWidth& >= 0 AND RawWidth& <= 640 AND RawHeight& >= 401 AND RawHeight& <= 480 THEN SelectRAWImageMode% = 14: SRI = TRUE '640x480x256ãIF RawWidth& >= 641 AND RawWidth& <= 800 AND RawHeight& >= 481 AND RawHeight& <= 600 THEN SelectRAWImageMode% = 16: SRI = TRUE '800x600x256ãIF RawWidth& >= 801 AND RawWidth& <= 1024 AND RawHeight& >= 601 AND RawHeight& <= 768 THEN SelectRAWImageMode% = 18: SRI = TRUE '1024x768x256ãIF RawWidth& >= 1025 AND RawWidth& <= 1200 AND RawHeight& >= 769 AND RawHeight& <= 1024 THEN SelectRAWImageMode% = 20: SRI = TRUE '1200x1024x256ãIF RawWidth& >= 1201 AND RawWidth& <= 1600 AND RawHeight& >= 1025 AND RawHeight& <= 1200 THEN SelectRAWImageMode% = 22: SRI = TRUE '1600x1200x256ãIF SRI = TRUE THENã GOTO FirstPassOkãEND IFã''Try 2ãRawWidth2& = RawHeight&: RawHeight2& = RawWidth&ãSRI = FALSE 'Assume Worst Case - picture too bigãIF RawWidth2& >= 0 AND RawWidth2& <= 640 AND RawHeight2& >= 0 AND RawHeight2& <= 400 THEN SelectRAWImageMode% = 26: SRI = TRUE '640x400x256ãIF RawWidth2& >= 0 AND RawWidth2& <= 640 AND RawHeight2& >= 401 AND RawHeight2& <= 480 THEN SelectRAWImageMode% = 14: SRI = TRUE '640x480x256ãIF RawWidth2& >= 641 AND RawWidth2& <= 800 AND RawHeight2& >= 481 AND RawHeight2& <= 600 THEN SelectRAWImageMode% = 16: SRI = TRUE '800x600x256ãIF RawWidth2& >= 801 AND RawWidth2& <= 1024 AND RawHeight2& >= 601 AND RawHeight2& <= 768 THEN SelectRAWImageMode% = 18: SRI = TRUE '1024x768x256ãIF RawWidth2& >= 1025 AND RawWidth2& <= 1200 AND RawHeight2& >= 769 AND RawHeight2& <= 1024 THEN SelectRAWImageMode% = 20: SRI = TRUE '1200x1024x256ãIF RawWidth2& >= 1201 AND RawWidth2& <= 1600 AND RawHeight2& >= 1025 AND RawHeight2& <= 1200 THEN SelectRAWImageMode% = 22: SRI = TRUE '1600x1200x256ãRawHeight& = RawHeight2&: RawWidth& = RawWidth2&ã'PRINT RawHeight&, RawWidth&ããIF SRI = FALSE THENã SelectRAWImageMode% = -4: ' Can't match an Image size to an available screen modeãEND IFãFirstPassOk:ãEND FUNCTIONããSUB STDOUT (MESSAGETEXT$) STATICãRegisters.AX = &H4000ãRegisters.BX = &H1ãRegisters.CX = LEN(MESSAGETEXT$)ãRegisters.DS = VARSEG(MESSAGETEXT$)ãRegisters.DX = SADD(MESSAGETEXT$)ãCALL InterruptX(&H21, Registers, Registers)ãEND SUBããSUB SwitchBank (NB%)ãRegisters.AX = &H4F05ãRegisters.BX = 0ãRegisters.DX = NB%ãCALL InterruptX(&H10, Registers, Registers)ãBank% = NB%ãEND SUBããSUB XBeep (High, Low, Duration) STATICãOUT 97, INP(97) OR &H3: OUT 67, 182ãOUT 66, High: OUT 66, LowãFOR Z! = 0 TO Duration: NEXT Z!ãOUT 97, INP(97) AND &HFCãEND SUBãDieter Folger PB ICON VIEWER folger@bamberg.baynet.de 05-28-98 (20:19) PB 251 7887 ICONSHOW.BAS'--------------------------------------------------'ã' ICONSHOW.BAS for PowerBasic 3.x 'ã' Version 1.4 05.07.1998 'ã'--------------------------------------------------'ã' Shows all *.ICO files in current directory, 'ã' 36 per screen using original icon palette. 'ã' VGA card and color monitor required. 'ã' Freeware (c) 1997/98 by Dieter Folger 'ã' E-mail: folger@bamberg.baynet.de 'ã' For comments, improvements or questions 'ã' I'd like to hear from you. Have fun! 'ã'--------------------------------------------------'ã'==================================================ã' MAIN PROGRAMã'==================================================ã DEFINT A - Zã File$ = DIR$ ("*.ICO") 'get first *.ICO file in dirã IF File$ = "" THEN 'no *.ICO files foundã PRINT "No icons found in current directory"ã GOTO Quitã END IFã 'switch to graphic mode, setã 'palette and prepare screen:ã SetScreenã DOã IF File$ = "" THEN GOTO Finish 'quit if there are no more filesã X = 50 : Y = 60 'position of upper left iconã FOR Icons = 1 TO 36 'maximum 36 per screenã OPEN File$ FOR BINARY AS #1ã 'Check if it's really an icon file (has always 766 bytes):ã IF LOF(1) <> 766 THEN DECR Icons : GOTO NextOneã Count = 0ã REDIM Pixel?(1:1024) 'dim array for icon pixelsã FOR i = 1 TO 1024 STEP 8 'get AND mask of iconã GET #1, 638 + Count, Bã 'When a bit is set in AND mask then background should lookã 'through and we mark this position with a dummy (16):ã FOR j = 0 TO 7ã IF BIT(B, j) THEN Pixel?(7 + i - j) = 16ã NEXTã INCR Countã NEXTã Count = 0ã FOR i = 1 TO 1024 STEP 2 'get XOR mask of iconã GET #1, 126 + Count, Bã 'when pixel array is still 0 at "i"-positionã '(=no dummy set) we have to calculate pixel color:ã IF Pixel?(i) = 0 THEN Pixel?(i) = (B AND 240) / 16ã IF Pixel?(i+1) = 0 THEN Pixel?(i + 1) = B AND 15ã INCR Countã NEXTã 'Make a button as icon background:ã MakeButton x - 6, y - 6, x + 38, y + 38ã 'Prepare to write file name centered under button:ã f = (12 - LEN(File$)) \ 2ã F$ = LEFT$(SPACE$(f) + File$ + Space$(f) + " ", 12)ã PPrint F$, x - 29, Y + 40, 14, 6ã Count = 1ã FOR Row = 32 TO 1 STEP -1ã FOR Col = 1 to 32ã 'When pixel in array is a valid colorã '(i.e. not 16) then show it:ã IF Pixel?(Count) < 16 THENã SetPixel X + Col, Y + Row, Pixel?(Count)ã END IFã INCR Countã NEXTã NEXTã INCR X, 102ã IF X > 600 THEN X = 50 : INCR Y , 64ã NextOne:ã CLOSEã File$=DIR$ 'Get next *.ICO file in DIRã IF File$ = "" THEN EXIT FORã NEXTãFinish: 'No more icons in dir or 36 shown:ã IF File$ = "" THENã PPrint "No more icons found. Press ESC to end.", 160, 440, 15, 6ã ELSEã PPrint " Press a key to continue (ESC = end) ", 160, 440, 15, 6ã END IFã DO : K$=INKEY$ : LOOP UNTIL LEN(K$)ã LOOP UNTIL K$ = CHR$(27)ã SCREEN 0 'back to text modeãQuit:ã COLOR 10 : PRINT "þ ";: COLOR 7ã PRINT "ICONSHOW is freeware (c) 1998 by D. Folger"ãENDã'==================================================ã' END OF MAIN PROGRAMã'==================================================ã'------------ãSUB SetScreenã'------------ã SCREEN 12ã FOR Clr = 0 TO 15 'Set paletteã READ b, g, r 'read dataã SetRGB Clr, r, g, bã NEXTã MakeWindow 0, 0, 640, 480, 6ã PPrint "I C O N S H O W 1.4", 235, 10, 11, 6ã PPrint " Freeware (c) 1998 by D. Folger ", 165, 25, 15, 6ãEND SUBã'------------------------------------------ãSUB SetPixel (BYVAL x, BYVAL y, BYVAL colr)ã' This routines replaces PSETã' because it's fasterã'------------------------------------------ã ! mov dx, &h03ceã ! mov ax, &h0205ã ! out dx,axã ! mov ax, yã ! mov bx,axã ! mov cl,6ã ! shl ax,clã ! mov dx,axã ! mov cl,4ã ! mov ax,bxã ! shl ax,clã ! add dx,axã ! mov ax, xã ! mov bx,axã ! mov cl,3ã ! shr ax,clã ! add dx,axã ! and bl,7ã ! xor bl,7ã ! mov cl,blã ! mov al,1ã ! shl ax,clã ! push dxã ! mov bx,axã ! mov dx, &h3ceã ! mov al,8ã ! out dx,alã ! inc dxã ! mov al,blã ! out dx,alã ! pop siã ! mov ax, &hA000ã ! mov es,axã ! mov al,es:[si]ã ! mov al, colrã ! mov es:[si],alã ! mov dx, &h03ceã ! mov ax, &hff08ã ! out dx,axã ! mov ax,5ã ! out dx,axãEND SUBã'----------------------------------------------------ã'Following routines paint window, button and framesã'----------------------------------------------------ã'------------------------------ãSUB MakeButton (x1, y1, x2, y2)ã'------------------------------ã LINE (x1 - 1, y1 - 1)-(x2 + 1, y2 + 1), 0, Bã LINE (x1 + 1, y1 + 1)-(x2 - 1, y2 - 1), 7, BFã LeftLine x1, y1, x2, y2ãEND SUBã'-----------------------------ãSUB RightLine (x1, y1, x2, y2)ã'-----------------------------ã LINE (x1, y2) - (x1, y1), 0ã LINE (x1, y1) - (x2, y1), 0ã LINE (x1, y2) - (x2, y2), 15ã LINE (x2, y2) - (x2, y1), 15ãEND SUBã'----------------------------ãSUB LeftLine (x1, y1, x2, y2)ã'----------------------------ã LINE (x1, y2) - (x1, y1), 15ã LINE (x1, y1) - (x2, y1), 15ã LINE (x1, y2) - (x2, y2), 8ã LINE (x2, y2) - (x2, y1), 8ãEND SUBã'-----------------------------ãSUB MakeBoard (x1, y1, x2, y2)ã'-----------------------------ã LINE (x1 + 2 , y1 + 2) - (x2 + 2 , y2 + 2), 8, BFã LINE (x1, y1) - (x2, y2), 7, BFã LINE (x1, y1) - (x2, y2), 0, Bã RightLine x1 + 5, y1 + 5, x2 - 5, y2 - 5ã LeftLine x1 + 1, y1 + 1, x2 - 1, y2 - 1ãEND SUBã'-----------------------------------ãSUB MakeWindow (x1, y1, x2, y2, col)ã'-----------------------------------ã IF x2 < 100 THEN x2 = 100ã IF y2 < 32 THEN y2 = 32ã MakeBoard x1, y1, x2, y2ã LINE (x1 + 7, y1 + 7) - (x2 - 8, y2 - 8), Col, BFã LINE (x1 + 6, y1 + 6) - (x2 - 6, y1 + 6), 0ã LINE (x1 + 7, y1 + 7) - (x2 - 7, y1 + 7), 8, BãEND SUBã'-----------------------------------ãSUB PPrint (Text$, x%, y%, fg%, bg%)ã'Allows to print text in VGA modeã'at any screen position in anyã'foreground and background colorã'-----------------------------------ã SHARED Seg16??,Ofs16??ã LOCAL i%,j%,k%,z%,char%ã IF Seg16?? = 0 THEN GetFontAdr 'first time onlyã DEF SEG = Seg16??ã FOR i = 1 TO Len(Text$)ã Char% = ASC(MID$(Text$, i, 1))ã Adr?? = Ofs16?? + 8 * Char%ã FOR j = 1 TO 8ã FOR k = 1 TO 8ã z = PEEK(Adr?? + k - 1)ã IF BIT(z, 8 - j) THENã SetPixel x + j, y + k, fgã ELSEã SetPixel x + j, y + k, bgã END IFã NEXT kã NEXT jã INCR x, 8ã NEXT iã DEF SEGãEND SUBã'-------------ãSUB GetFontAdrã'-------------ã SHARED Seg16??,Ofs16??ã ! push bpã ! mov ax,&H1130ã ! mov bh,3ã ! int &H10ã ! mov Seg16??,esã ! mov Ofs16??,bpã ! pop bpãEND SUBã'---------------------------------------------ã'palette data as stored in every icon fileã'(would be slower to read them from file):ãDATA 0,0,0,0,0,32,0,32,0,0,32,32,32,0,0,32,0ãDATA 32,32,32,0,48,48,48,32,32,32,0,0,63,0,63ãDATA 0,0,63,63,63,0,0,63,0,63,63,63,0,63,63,63ã'------------------------------------ãSUB SetRGB (BYVAL c AS BYTE, r, g, b)ã'------------------------------------ã LOCAL Col?ã ! mov ax, &h1007 ; get palette colorã ! mov bl, c ; register valueã ! Int &h10ã ! mov Col?, bh ; bh holds value nowã OUT &H3C8, Col? : OUT &H3C9, rã OUT &H3C9, g : OUT &H3C9, bãEND SUBãViktor Rootselainen TV-TEST SCREEN viktor.rootselainen@pp.inet.fi 06-03-98 (19:13) QB, QBasic, PDS 242 8059 TVTEST.BAS 'TV-test v1.0 1998 (c)Viktor Rootselainen ã'this program is freeware(z)ããDEFINT A-ZãDECLARE SUB dely (time%)ãDECLARE SUB DrawTV ()ãDECLARE SUB GfxPrint (txt$, x%, y%)ãDECLARE SUB Makepal ()ãDECLARE SUB pal (r%, g%, b%, c%)ãDECLARE SUB palsub (Act$, delaytime%)ãCOMMON SHARED orgpal$, tvtext$ãDIM SHARED palr(255), palg(255), palb(255)ãtvtext$ = "Nelonen": RANDOMIZE TIMERãIF LEN(COMMAND$) THEN tvtext$ = COMMAND$ '<-- remove this line in QbasicãIF LEN(tvtext$) > 14 THEN tvtext$ = LEFT$(tvtext$, 14)ãSCREEN 13ããDrawTVãSLEEP 10ãpalsub "save", 0: palsub "BW", 0 ': palsub "fadeout", 30ããDEF SEG = &HA000ãFOR x = 0 TO 319: FOR y = 0 TO 199ã POKE y * 320& + x, RND * 255 'RND is very slow...ãNEXT: NEXTããFOR i = 1 TO 20: k$ = INKEY$: NEXT 'clear keyboard bufferã'palsub "fadein", 20ããDOã pal RND * 63, RND * 63, RND * 63, (RND * 254) + 1ãLOOP WHILE INKEY$ = ""ããpalsub "fadeout", 15ãSCREEN 0: WIDTH 80, 25ããpalsub "save", 0: palsub "blackout", 0ãPRINT "TV-test screen by Viktor Rootselainen 1998"ãpalsub "fadein", 10ããDATA 31,14,11,10,13,12,9,0ãã' Millisecond delay routineã' The time variable can be any integer valueã' 1 = one millisecond, 1000 = one second 32767 = 32 seconds.ãSUB dely (time)ããOUT &H61, INP(&H61) AND &HFCãOUT &H43, &HB4ãOUT &H42, 166ãOUT &H42, 4ãOUT &H61, INP(&H61) OR 1ããFOR N = 1 TO time STEP 1ã DOã OUT &H43, &H80ã t = INP(&H42)ã LOOP WHILE INP(&H42) > 2ã DOã OUT &H43, &H80ã t = INP(&H42)ã LOOP WHILE INP(&H42) <= 2ãNEXT NãEND SUBããSUB DrawTVãboxstep = 20ããFOR i = 0 TO 63: pal -i, 0, 0, i + 100: NEXT 'redãFOR i = 0 TO 63: pal 0, 0, -i, i + 163: NEXT 'blueãFOR i = 0 TO 5: pal 63, 47 + i, 0, 44 + i: NEXTãpal 45, 49, 45, 42ãããFOR x = 0 TO 320 STEP boxstepã LINE (x, 0)-(x, 200): LINE (0, x)-(320, x): NEXTãFOR x = 1 TO 320 STEP boxstep: FOR y = 1 TO 200 STEP boxstepã PAINT (x, y), 8, 15ãNEXT: NEXTããLINE (60, 19)-(260, 180), 15, BFãFOR i = 61 TO 240 STEP 25ãREAD colr: LINE (i, 20)-(i + 24, 60), colr, BF: NEXTãLINE (260, 19)-(260, 70), 15ããLINE (61, 61)-(99, 90), 17, BFãLINE (99, 61)-(137, 90), 25, BFãLINE (137, 61)-(175, 90), 27, BFãLINE (175, 61)-(213, 90), 28, BFãLINE (98, 92)-(213, 105), 0, BFãLINE (79, 106)-(259, 123), 28, BFãLINE (200, 106)-(250, 123), 43, BFãFOR x = 0 TO 5ãLINE (195 + x, 106)-(195 + x, 123), 48 - x, BFãLINE (247 + x, 106)-(247 + x, 123), 43 + x, BFãNEXTããFOR i = 0 TO 24: IF i AND 1 THEN COLOR 15 ELSE COLOR 0ãLINE (170 + i, 106)-(170 + i, 123): NEXTããFOR i = 0 TO 25: IF temp <= 1 THEN COLOR 0 ELSE COLOR 15ã LINE (125 + i, 106)-(125 + i, 123): temp = temp + 1: IF temp > 3 THEN temp = 0ãNEXT: temp = 3ã ãFOR i = 0 TO 34: IF temp < 3 THEN COLOR 0 ELSE COLOR 25 + tempã LINE (84 + i, 106)-(84 + i, 123): temp = temp + 1: IF temp > 6 THEN temp = 0ãNEXTããLINE (157, 124)-(157, 150), 0: LINE (163, 124)-(157, 150), 0ãLINE (157, 124)-(163, 124): PAINT (159, 130), 0ããLINE (160, 60)-(160, 123), 15ãLINE (61, 140)-(120, 160), 101, BFãLINE (61, 161)-(120, 179), 9, BFãcolr = 100: FOR x = 117 TO 180ãcolr = colr + 1ãFOR y = 140 TO 160: PSET (x, y), colr: NEXTãFOR y = 161 TO 179: PSET (x, y), colr + 63: NEXT: NEXTãLINE (180, 140)-(259, 179), 42, BFãLINE (220, 140)-(220, 179), 15ãCOLOR 15: GfxPrint tvtext$, 94, 95ãCIRCLE (160, 100), 118, 15ããEND SUBããSUB GfxPrint (txt$, x, y)ãDIM bitmask(7)ãFOR a = 0 TO 7ãbitmask(a) = 2 ^ (7 - a)ãNEXT aããDEF SEG = &HF000ãFOR luuppi = 1 TO LEN(txt$)ãFOR loopx = 0 TO 7ãFOR loopy = 0 TO 7ãIF PEEK(&HFA6E + (ASC(MID$(txt$, luuppi, 1)) * 8) + loopy) AND bitmask(loopx) THEN PSET (loopx + luuppi * 8 + x, loopy + y)ãNEXT: NEXT: NEXTãDEF SEGãEND SUBããSUB MakepalãPRINT "wait a moment..."ããpal2$ = orgpal$: pal3$ = orgpal$ãMYPI! = 8 * ATN(1) / 240ãFOR colr = 0 TO 239ã R1 = 32 + SIN((colr + 0) * MYPI!) * 31ã G1 = 32 + SIN((colr + 80) * MYPI!) * 31ã B1 = 32 + SIN((colr + 160) * MYPI!) * 31ã R2 = 32 + SIN((colr + 10) * MYPI!) * 31ã G2 = 32 + SIN((colr + 30) * MYPI!) * 31ã B2 = 32 + SIN((colr + 50) * MYPI!) * 31ã OFFSET = ((colr + 16) * 3)ã MID$(pal2$, OFFSET + 1, 1) = CHR$(R1) '* REDã MID$(pal2$, OFFSET + 2, 1) = CHR$(G1) '* GREENã MID$(pal2$, OFFSET + 3, 1) = CHR$(B1) '* BLUEã MID$(pal3$, OFFSET + 1, 1) = CHR$(R2) '* REDã MID$(pal3$, OFFSET + 2, 1) = CHR$(G2) '* GREENã MID$(pal3$, OFFSET + 3, 1) = CHR$(B2) '* BLUEãNEXT colrãCLSãEND SUBããSUB pal (r, g, b, c)ãOUT &H3C8, cãOUT &H3C9, rãOUT &H3C9, gãOUT &H3C9, bãEND SUBããSUB palsub (Act$, delaytime)ã SELECT CASE UCASE$(Act$)ã ' "save","fadein","fadeout","restore","blackout","bw"ã CASE "SAVE"ã FOR colour% = 0 TO 255ã OUT &H3C7, colour% ' Set color to readã palr(colour%) = INP(&H3C9) ' read red valueã palg(colour%) = INP(&H3C9) ' read green valueã palb(colour%) = INP(&H3C9) ' read blue valueã NEXTã CASE "FADEIN"ã DOã done% = 0ã FOR colour% = 0 TO 255ã OUT &H3C7, colour% ' Set color to readã Red% = INP(&H3C9) ' read red valueã grn% = INP(&H3C9) ' read green valueã blu% = INP(&H3C9) ' read blue valueã ' Test the color values, decrementing if necessary.ã ' Set loop variable if saved palette not in use.ã IF Red% < palr(colour%) THEN Red% = Red% + 1: done% = 1ã IF grn% < palg(colour%) THEN grn% = grn% + 1: done% = 1ã IF blu% < palb(colour%) THEN blu% = blu% + 1: done% = 1ã WAIT &H3DA, 8, 8ã OUT &H3C8, colour% ' Set color to writeã OUT &H3C9, Red% ' write red valueã OUT &H3C9, grn% ' write green valueã OUT &H3C9, blu% ' write blue valueã NEXTã IF delaytime THEN dely delaytimeã LOOP WHILE done% <> 0ã CASE "FADEOUT"ã DOã visible% = 0ã FOR colour% = 0 TO 255ã OUT &H3C7, colour% ' Set color to readã Red% = INP(&H3C9) ' read red valueã grn% = INP(&H3C9) ' read green valueã blu% = INP(&H3C9) ' read blue valueã ' Test the color values, decrementing if necessary.ã ' Set loop variable if colors are still visible.ã IF Red% > 0 THEN Red% = Red% - 1: visible% = 1ã IF grn% > 0 THEN grn% = grn% - 1: visible% = 1ã IF blu% > 0 THEN blu% = blu% - 1: visible% = 1ã WAIT &H3DA, 8, 8ã OUT &H3C8, colour% ' Set color to writeã OUT &H3C9, Red% ' write red valueã OUT &H3C9, grn% ' write green valueã OUT &H3C9, blu% ' write blue valueã NEXTã IF delaytime THEN dely delaytimeã LOOP WHILE visible% <> 0ã CASE "RESTORE"ã FOR colour% = 0 TO 255ã OUT &H3C8, colour% ' Set color to writeã OUT &H3C9, palr(colour%) ' write red valueã OUT &H3C9, palg(colour%) ' write green valueã OUT &H3C9, palb(colour%) ' write blue valueã NEXTã CASE "BLACKOUT"ã FOR colour% = 0 TO 255ã OUT &H3C8, colour% ' Set color to writeã OUT &H3C9, 0 ' write red valueã OUT &H3C9, 0 ' write green valueã OUT &H3C9, 0 ' write blue valueã NEXTã CASE "BW" 'blackwhite is not correctã FOR c = 0 TO 255ã a = (palr(c) + palg(c) + palb(c)) / 3: pal a, a, a, cã NEXTã END SELECTãEND SUBãDieter Folger REALTIME PLASMA FOR PB folger@bamberg.baynet.de 06-18-98 (12:31) PB 75 2630 PLASMA.BAS '-----------------------------------------------ã ' PLASMA.BAS for Power Basic 3.x (Public Domain)ã '-----------------------------------------------ã ' Realtime plasma by T.C.P. of DiABOLiC FORCEã ' This source is PD. If you use it, credit me.ã '-----------------------------------------------ã ' Turbo Pascal -> Power Basic: Dieter Folgerã '-----------------------------------------------ã DEFINT A-Zã DIM Stab1?(0:255),Stab2?(0:255)ã Setmode ' VGA Mode 320x200ã FOR x=0 TO 63 ' set paletteã x3 = x : x2 = x : x1 = xã SHIFT RIGHT x3,3 : SHIFT RIGHT x2,2 : SHIFT RIGHT x1,1ã Setpal x, x3,x,xã Setpal 127-x,x3,x,xã Setpal 127+x,x,x2,x1\3ã Setpal 254-x,x,x2,x1\3ã NEXTã FOR x = 0 TO 255 ' make tableã Stab1?(x) = CBYT(SIN(2 * 3.14159 * x/255)*128)ã Stab2?(x) = CBYT(COS(2 * 3.14159 * x/255)*128)ã NEXTã i1? = 40ã j1? = 90ã DOã K$=INKEY$ã INCR i1? ' i1 and j1 influenceã DECR j1? ' speed of plasmaã FOR y = 9 TO 89 ' 9 -> 89 pixels verticalã i2? = Stab1?((y+i1?) MOD 255)ã j2? = Stab1?(j1?)ã FOR x = 10 TO 149 ' 10 -> 149 pixels horizontalã c1?= x-i2? : c2? = y-j2? ' get colorã c? = Stab1?(c1?) + Stab2?(c2?)ã y8 = y : y6 = y : x1 = xã SHIFT LEFT y8,8 : SHIFT LEFT y6,6 : SHIFT LEFT x1,1ã Address = y8 + y6 + x1 ' get pixel offsetã DEF SEG = &hA000 ' VGA segmentã POKEI Address, c? ' write 2 pixelsã DEF SEGã NEXTã NEXTã LOOP UNTIL LEN(K$)ã SCREEN 1 ' back to text modeã ENDã '----------ã SUB Setmodeã '----------ã ! mov ax,&h13ã ! int &h10ã ! mov dx,&h3D4ã ! mov al,9ã ! out dx,alã ! inc dxã ! in al,dxã ! and al,&h0E0ã ! add al,3ã ! out dx,alã END SUBã '--------------------------------------------------------------------------ã SUB Setpal(BYVAL c AS Byte,BYVAL r AS Byte,BYVAL g AS Byte,BYVAL b AS Byte)ã '--------------------------------------------------------------------------ã ! mov dx,&h3C8ã ! mov al,cã ! out dx,alã ! inc dxã ! mov al,rã ! out dx,alã ! mov al,gã ! out dx,alã ! mov al,bã ! out dx,alã END SUBã '=== eof ==================================================================ãRyan White PHOENIX (PLASMA-LIKE EFFECT) bigfooty@yahoo.com 06-18-98 (09:12) QB, QBasic, PDS 97 3355 PHOENIX.BAS 'Phoenixã'By Ryan Whiteã'bigfooty@home.com & bigfooty@yahoo.comã'6-18-98ãã'Yes I'm back for a while making more eye candy for everyone.ã'I now have an even bigger collection of stuff so if you would like toã'share learn etc, just gimme a shout.ããSCREEN 13ãDEFINT A-WãCLSãDIM c(255, 2), co(255, 2)ãFOR n = 0 TO 15ãc(n, 0) = n * 4: c(n, 1) = n * 4: c(n, 2) = n * 4: c(n + 16, 0) = 63: c(n + 16, 1) = 63 - n * 4: c(n + 16, 2) = 63 - n * 4: c(n + 32, 0) = 63: c(n + 32, 1) = n * 2: c(n + 32, 2) = 0ãc(n + 48, 0) = 63: c(n + 48, 1) = n * 2 + 31: c(n + 48, 2) = 0: c(n + 64, 0) = 63 - n * 4: c(n + 64, 1) = 63: c(n + 64, 2) = 0: c(n + 80, 0) = 0: c(n + 80, 1) = 63 - n * 2: c(n + 80, 2) = n * 4ãc(n + 96, 0) = 0: c(n + 96, 1) = 32 - n * 2: c(n + 96, 2) = 60: c(n + 112, 0) = n * 3: c(n + 112, 1) = 0: c(n + 112, 2) = 60: c(n + 128, 0) = 45 - n * 3: c(n + 128, 1) = 0: c(n + 128, 2) = 60ãc(n + 144, 0) = 0: c(n + 144, 1) = n * 2: c(n + 144, 2) = 60: c(n + 160, 0) = 0: c(n + 160, 1) = 30 + n * 2: c(n + 160, 2) = 60 - n * 4: c(n + 176, 0) = n * 4: c(n + 176, 1) = 63: c(n + 176, 2) = 0ãc(n + 192, 0) = 63: c(n + 192, 1) = 60 - n * 2: c(n + 192, 2) = 0: c(n + 208, 0) = 63: c(n + 208, 1) = 30 - n * 2: c(n + 208, 2) = 0: c(n + 224, 0) = 60 - n * 2: c(n + 224, 1) = n * 2: c(n + 224, 2) = n * 2ãc(n + 240, 0) = 30 - n * 2: c(n + 240, 1) = 30 - n * 2: c(n + 240, 2) = 30 - n * 2: NEXT n: FOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT m: NEXT nããn = 0: x = 5ãFOR I = 200 TO 40 STEP -1: n = n + 1: IF n = 256 THEN n = 1ãx = x / 1.003: FOR j = 1 TO 10: CIRCLE (160, I), x, n, , , .5: x = x * 1.003: NEXT jãNEXT Iããn = 255: x = 5ãFOR I = -10 TO 160ãn = n - 1ããIF n = 0 THEN n = 255ãx = x / 1.003ããFOR j = 1 TO 10 '6.28= 2PI= 360deg so 1.05 = 1/6th a circle.ãFOR w = 1 TO 9 STEP 2ãCIRCLE (160, I), x / w, n, 0, 1.05, .5ãCIRCLE (160, I), x / w, n, 2.1, 3.15, .5ãCIRCLE (160, I), x / w, n, 4.2, 5.25, .5ãNEXT wãx = x * 1.003ãNEXT jãNEXT Iããã'!!!! BLURSãFOR g = 1 TO 7ãFOR h = 1 TO 99 'this and j will cover one quadrant, which I can use on allãFOR j = 1 TO 159ãã'1st quadãk0 = POINT(319 - j, h)ãk1 = POINT(319 - j - 1, h)ãk2 = POINT(319 - j, h - 1)ãk3 = POINT(319 - j, h + 1)ãk4 = POINT(319 - j + 1, h)ãã'2nd quadãb0 = POINT(j, h)ãb1 = POINT(j - 1, h)ãb2 = POINT(j, h - 1)ãb3 = POINT(j, h + 1)ãb4 = POINT(j + 1, h)ãã'3rd quadãl0 = POINT(j, 199 - h)ãl1 = POINT(j - 1, 199 - h)ãl2 = POINT(j, 199 - h - 1)ãl3 = POINT(j, 199 - h + 1)ãl4 = POINT(j + 1, 199 - h)ãã'4th quadãm0 = POINT(319 - j, 199 - h)ãm1 = POINT(319 - j - 1, 199 - h)ãm2 = POINT(319 - j, 199 - h - 1)ãm3 = POINT(319 - j, 199 - h + 1)ãm4 = POINT(319 - j + 1, 199 - h)ããc1 = INT((k0 + k1 + k2 + k3 + k4) / 5)ãc2 = INT((b0 + b1 + b2 + b3 + b4) / 5)ãc3 = INT((l0 + l1 + l2 + l3 + l4) / 5)ãc4 = INT((m0 + m1 + m2 + m3 + m4) / 5)ããPSET (319 - j, h), c1ãPSET (j, h), c2ãPSET (j, 199 - h), c3ãPSET (319 - j, 199 - h), c4ããNEXT jãNEXT hãNEXT gããDO UNTIL INKEY$ <> ""ãFOR n = 1 TO 255: OUT &H3C7, n: FOR m = 0 TO 2: co(n, m) = INP(&H3C9): NEXT m: NEXT nãc(255, 0) = co(1, 0): c(255, 1) = co(1, 1): c(255, 2) = co(1, 2)ãFOR n = 1 TO 254: FOR m = 0 TO 2: c(n, m) = co(n + 1, m): NEXT m: NEXT nãFOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT m: NEXT nãLOOPãLeandro Pardini PATTERN GENERATOR V1.0 lpardini@cefex.com 06-18-98 (17:14) QB, QBasic, PDS 120 4383 PATTERN.BAS '==========================================================================ã' Pattern generator v1.0 lpardini@cefex.comã'==========================================================================ã' This is a simple program that captures a screen area of 40x40 pixels andã' rotates it 90 degrees, creating a pretty pattern. This program fills theã' screen with the 80x80 bitmap they created. Then the program saves theã' graphic in BMP format, using the name "PATT0000.BMP" (of course,ã' increasing the number). The program continues until you press a key.ã' The program uses Windows' standard palette. You can use the BMP filesã' they generate as Windows' wallpapers. Better, you can (like me!) createã' 366 miniwallpapers and then use the PC Magazine's CHANGER utility to setã' a different wallpaper every day. Enjoy!ã'==========================================================================ã' | I like mail, so contact me forã' __________ ____---____ | any doubt or suggestion youã' \_________D /-/---_----' LL&P | have for this/another program,ã' _H__/_/ Leandro Pardini | for get my last routines, toã' '-_____|( lpardini@cefex.com | chat about computers and/orã' | programming or to say "Hello".ã'==========================================================================ãã'$STATICãDEFINT A-ZããDIM Matriz(1601) AS INTEGERããRANDOMIZE TIMERããSCREEN 12ãã'Set the Windows' paletteãOUT &H3C8, 0: OUT &H3C9, 0: OUT &H3C9, 0: OUT &H3C9, 0ãOUT &H3C8, 1: OUT &H3C9, 32: OUT &H3C9, 0: OUT &H3C9, 0ãOUT &H3C8, 2: OUT &H3C9, 0: OUT &H3C9, 32: OUT &H3C9, 0ãOUT &H3C8, 3: OUT &H3C9, 32: OUT &H3C9, 32: OUT &H3C9, 0ãOUT &H3C8, 4: OUT &H3C9, 0: OUT &H3C9, 0: OUT &H3C9, 32ãOUT &H3C8, 5: OUT &H3C9, 32: OUT &H3C9, 0: OUT &H3C9, 32ãOUT &H3C8, 6: OUT &H3C9, 0: OUT &H3C9, 32: OUT &H3C9, 32ãOUT &H3C8, 7: OUT &H3C9, 32: OUT &H3C9, 32: OUT &H3C9, 32ãOUT &H3C8, 8: OUT &H3C9, 48: OUT &H3C9, 48: OUT &H3C9, 48ãOUT &H3C8, 9: OUT &H3C9, 63: OUT &H3C9, 0: OUT &H3C9, 0ãOUT &H3C8, 10: OUT &H3C9, 0: OUT &H3C9, 63: OUT &H3C9, 0ãOUT &H3C8, 11: OUT &H3C9, 63: OUT &H3C9, 63: OUT &H3C9, 0ãOUT &H3C8, 12: OUT &H3C9, 0: OUT &H3C9, 0: OUT &H3C9, 63ãOUT &H3C8, 13: OUT &H3C9, 63: OUT &H3C9, 0: OUT &H3C9, 63ãOUT &H3C8, 14: OUT &H3C9, 0: OUT &H3C9, 63: OUT &H3C9, 63ãOUT &H3C8, 15: OUT &H3C9, 63: OUT &H3C9, 63: OUT &H3C9, 63ããDOãã'Put random boxes on screen.ãFOR a = 10 TO 0 STEP -1ã FOR b = 1 TO 50ã x = RND * (39 - a)ã y = RND * (39 - a)ã c = RND * 16ã LINE (x, y)-(x + a, y + a), c, BFã NEXT bãNEXT aãã'Rotate one triangle.ãc = 0ãFOR a = 0 TO 39ã FOR b = 39 TO c STEP -1ã PSET (a, b), POINT(b, a)ã NEXT bã c = c + 1ãNEXT aãã'Copy and rotate the two triangles into a 80x80 area.ãFOR x = 0 TO 39ã FOR y = 0 TO 39ã PSET (x + 40, y), POINT(39 - x, y)ã PSET (x, y + 40), POINT(x, 39 - y)ã PSET (x + 40, y + 40), POINT(39 - x, 39 - y)ã NEXT yãNEXT xãã'Capture 80x80 bitmap.ãGET (0, 0)-(79, 79), Matrizãã'These FORs copies the bitmap to the screen.ãFOR a = 0 TO 639 STEP 80ã FOR b = 0 TO 479 STEP 80ã PUT (a, b), Matriz, PSETã NEXT bãNEXT aããStartTime& = TIMERããFile$ = "PATT"ãIF FileNum% < 1000 THEN File$ = File$ + "0"ãIF FileNum% < 100 THEN File$ = File$ + "0"ãIF FileNum% < 10 THEN File$ = File$ + "0"ãFile$ = File$ + LTRIM$(RTRIM$(STR$(FileNum%))) + ".BMP"ãOPEN File$ FOR OUTPUT AS #1ã PRINT #1, "BM"; MKL$(3318); MKL$(0); MKL$(118); MKL$(40); MKL$(80);ã PRINT #1, MKL$(80); MKL$(262145); MKL$(0); MKL$(3200); MKL$(0); MKL$(0);ã PRINT #1, MKL$(16); MKL$(16); MKL$(0); MKL$(8388608); MKL$(32768);ã PRINT #1, MKL$(8421376); MKL$(128); MKL$(8388736); MKL$(32896);ã PRINT #1, MKL$(8421504); MKL$(12632256); MKL$(16711680); MKL$(65280);ã PRINT #1, MKL$(16776960); MKL$(255); MKL$(16711935); MKL$(65535);ã PRINT #1, MKL$(16777215);ã FOR b = 0 TO 79ã FOR a = 0 TO 79 STEP 2ã v = (POINT(a, b) * 16) + POINT(a + 1, b)ã PRINT #1, CHR$(v);ã NEXT aã NEXT bãCLOSE #1ããFileNum% = FileNum% + 1ãIF FileNum% = 10000 THEN EXIT DOããWHILE (TIMER - StartTime&) < 5: WENDããLOOP WHILE INKEY$ = ""ããSCREEN 0ãSYSTEMãLeandro Pardini MULTI-SPACED FONT MANAGER V1.5 lpardini@cefex.com 06-10-98 (21:21) QB, QBasic, PDS 98 6451 MSFONT.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"MSFONT.ZIP",4^6:Z&=4566:?STRING$(50,177);ãU"%up()%9%%%#-%^\KCIwi8M;)1%%%VX%%%/%%%%rx%ktsy%SgfxNf)J>[G^7x7dwãU"7h1Rf+e9LU5giA76$[-F\U#67*%7X^&WaWVsaFrLk<:8Q-Drw+^gDuH\BDhJmVnãU"ceT^bnDz^kIQLkHjFcV7,LP8jt2AEY;g9rKi:[giHm+x%.'Vvc'HJ%3tG2;s]'hãU"wl>_^uN./Z$$?Ix?]Yo)Y*s^G=aV^/XVQ#9tqSzL;ejtdool,-:;Bn2;5ad(EO*ãU"Q)3cEOw\h)IP?0s;NYpbM^l6ri8>,ZrX%%lq+/'mwfsqmm1=nt'E=:i2v;q2,;tãU"$uJiKGNr*M^$ldXG9%FJ%F3e2k,rmrIg2Ho.JKm'X[+_:uuorTu0pXW[L&]lnleãU"9&:vw?gU=G[ICvid^In:jQR*o='XL-'>MN30bCn7QJ'A9%#n7%I;C?\LYm,w0q3ãU"GJa\=9l6VMrX=dCC+/?'SVc=Ykx]Oa9v5Vv#PãU"QcW(>36cEmR.V)^_TjãU"U2&EbfQwkLMC#BJtuF--O:l+*icuGUbTiAvn+Kb0W(pp(DBA.&3;&fql*\;25+*ãU"oy,r2t_JQ^oU[AI4ULlA8Vm,\0&gS3I6WO,tyq?DLF?9NFBY+-4\34J7Y5j&-43ãU"g)\p>7mYtDI1%7n.f$_pO*C:dTuSwN$%fifn,V[3]Fk^c#A$m8>el5ZndH.M*L\ãU"2;PdYW(C1fVhfo\Y=_'H6i'S?45VfmJ[+r3du/7o$[bvlUdohx.ZNb.qcgT$U^%ãU"hKl.t9GM*YSMHkqWL(HX3[2N4f)MM)NljD-Z)IkGI:W-.-7oM)\lE90*RGdSMn&ãU"szG.k^sB;a3hZzil(O7QG,&zCHxRwN3.%\.?GG$%GIWkv5bQ0m;;u*Ehb[F1k11ãU"][$V,9he-oTLI1W4$-f^[(2%:iKc,efl;:+ZG/-'$[50/=fkt%psUh&;rEd#8'JãU"+Dn-1]=(.g/LxFJK=A>A[F',JoB?us]q'Fafc,goD'Ud.c;?=&WeTx=a;^r74k;ãU"<8Xex.-'2+5pd8Om5IE%qo'Z_%,yxWb4&f?WDVQ1[)E53;N3H?LETj]iUmBG.WRãU"7e#mhtdj2SGeKAw['f&H;1Kd/INZj&lE+h%z9Ok;Z7&_\+NnK]*7nD[/OQ&6/8cãU"K)M=STk87U;%aux\N[[5Rm9^7U+1cR'B]1DT'611Aib+I]YqXeXdf]zc'4XCCB#ãU"w$B9ZP-J'?EGLUMT^(u.&=*8)uO/pboGh$PX]?]M/tmaD0Yl[FoI*,=#jCFDMu)ãU"Ixw*5pu[vj:YQTX1R)8C0o67/SuLI&gLFA[b2U#HZG_=Z0(0+jti?H^T_k)OMqQ$Cl)wpo2Ocg0ILct6rpoK'JUXrX69m#VãU"?sbO<#56lGs>^ANt/_f%_ow8ONV$-+i$.?h9f4i:rY7'%Tb]Cv5r+Toc;)gL^h[ãU"=.fH(&BDr/8ksYUBH^+7>I>MAt+Sga38.f8fH6o:z*CII&;D(/U1JMQ]3NBI?WcB2xa9n^MHQRGF(.Ddvqw\QD$Evs*fãU"gXP*p3ZSh4itHN6I*rU#1*3j/or/0DKq2e-GE9be52/24zx\PZ_k:u]Dnn+i4-8=tn>M7P4IWuInJ,FH8FlRo[:2\lfIQ-ãU"JfZ+40+S^V4[<(R+_VP*300m6/QQSE\JAC+;W(rxX]tSCS1(pU4lgNC5zM_<6*4Z5AE=%PW(v#;#slnen&m;w$]w^y=ihãU"7KxPYhdF)YSs?ngJI_$wDpprbCijVTXJi.tA02(.c9#C,-JUpjLoax'P6/i/A1NãU"A-MOZXQX[>M6h72w;8A2My?IvWLc[J>S*T8ZkHobk,jbiArj[QI=cjhuyP?Ij8=hcvE:bE[>8>p+ãU"tllEsFyi.pP]3uI[>c4>b++atug?&t*t'EQ_XvF%0Celo]'j3[-knFJãU"HXs?O;bQmm2G=:)^ob=VWi-O&\9pxh%vW[W=&p3kjC8^S(%k=V&g*:&=0WãU"bq2itmt1$acRh08B%'9rrIvm^a.oE,UtCn1asOK>u99yn'wKFOM^sigJ3eg?5[<ãU"/JB-0c2/pVmRA+eJg$xT1ox*\Z^fVP6d/qFF+GluNRDCY,Y%QjBDGh*Bjo3^Rq-8*hgT=D_cs;:XQdVRQ8*&BgR]wM,.>Wv/sn96txt]cXaPw;f3)/u^7/xot>'v^?u9TI$xj7xfKVCiVAM5c'vxBDJ?;ad>^:5J30l=ho.eh0#Ry0UãU"Q0x?de//Sh_M\u,e\B.iVMFZC5KrDc:rGf_R?PK#g.dkFVUQFVt<2iEa^=Z/R?2ãU"Ejo0)DfpjãU"X:9gI[5E+NFD),1hjZaZC5w:rmiRd-o^v)%k(RM9^7-MLUs\M* y/:K.wcUYTãU"OqPd/FS3_BF(6:#OWI\YdBQOn5V#&]v4G*=Y30,6:kZ796:6LH^i>Nx$4n1mbKWãU"EMJMz+YXlju#Y))COpp[cK#,;mO06PDxHqe%SsFumd8m-Po)Z#DaiHb4Ld8WPaeãU"f/jp2<6T\w3#_N'%up()%9%%%.-%)8dM%Aa)2:u)%%%s.%%%/%%%%xx%jwnk%SkãU"tsT6z*=%A\5Bta<^CI_McD\Wz=:7GuZwJT0d&/;Fsw0ZWT78smbwI&)3ZqBq;>NãU":?$A70:r%#3V2^mEd%hD(ãU"8%*zgfHJmFi-$%lãU"2e(Sj/K8/:F[t0)&1?9J^FVTLx$'JNB5YV0^7$aBl>PCaDCmp>w_pZ9$-sBa5BHãU"BsRq(N]U4\_)ENk82#V/8x#Jphih'E0Ep/t/L=K;HT6VfZ/9AOh&56#:ãU"QG;GQ==MZDbLQdFb?f8#/36:?[FdIPd-.'Uf\K7JGeQ2%)q%;C]OH>i8b-:ãU"XspZ6O3v*=^=k52;87B=ARk&]tNmLn4xS]sK(VxfNK^xi6.(kdlHHvjnk9]Pc8EãU"NWB<,Aq&e7+IGp^JCDe]jaJw2ve]/'QaTv#whYn*^(HKJOc/+X7Ek&cA>4$?vldãU"Tq>VlWm[5-YzNb6SgL,_$bAL3$3f?&dFD\-b]_ajU8G?lrz-e1UV5_$oa\xQ^'[l(p;/5y^XjCBW[:LHo=;HWvFHgIFm:.34d'JalURz1CãU"p*BZUU-QfX_5h#yaFRtLhWrSqc%:z8/7?Y:=FzfU0&7L_[A%WBFW;$s=I-D/LrpãU"c8\aNQpQD)(WAkh1*.47so.W?7OqEk8qK5y5'[(vGv]M(-7$1dS,AA0l0FOfCDKãU"8>8PNlhRJGQQCW1#f*U6>JZ?&Rd7tRpR6g1:u=KPWsHDf9Btct/MW%dSY^H4G0[ãU"CdNUratr_Ji+ebcaCr7oSP5EZT*DJZ\w&7Y[U7GtfCp$)5m(.*>v(Qw%;kJG;CTãU"bCwyB&lS-BL$U.\f]9pgd#wkUN-G[Q&MS1TGaDh:f0,76/WJ$uIHC%;G]w*%up&ãU"'%9%9%%%%-%:^\CI2wiM;')1%%%VX%%%/%%%%%%%%%&%E%%%%%%%%%rx%ktsy%SãU"gfx%up&'%9%9%%%%-%&)8M%PAa2:%u)%%%s.%%%/%%%%%%%%%%%E%7%%Q1%%%xxãU"%jwnk%Skts%up*+%%%%%%'%'%&?%%%%u6%%%%%ãEND SUBãCLOSE:IF S=44AND 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ãLeandro Pardini 90 DEGREE KALEIDOSCOPE lpardini@cefex.com 06-19-98 (18:22) QB, QBasic, PDS 81 2762 CALEI.BAS '==========================================================================ã' 90 degree caleidoscope v1.0 lpardini@cefex.comã'==========================================================================ã' This a simple caleidoscope I created today (06-19-98) at work. It's veryã' simple, and I think that put any comment here will be useless. :-)ã' Enjoy!ã'==========================================================================ã' | I like mail, so contact me forã' __________ ____---____ | any doubt or suggestion youã' \_________D /-/---_----' LL&P | have for this/another program,ã' _H__/_/ Leandro Pardini | for get my last routines, toã' '-_____|( lpardini@cefex.com | chat about computers and/orã' | programming or to say "Hello".ã'==========================================================================ãã'$STATICãDEFINT A-Zãã'Initialize random number generator.ãRANDOMIZE TIMERãã'Set graphics mode 640x480.ãSCREEN 12ã ã'Set random values to line's coordinates.ãx1 = CINT(RND * 319)ãy1 = CINT(RND * 239)ãx2 = CINT(RND * 319)ãy2 = CINT(RND * 239)ãã'Set random values to change the line's coordinates.ãx1i = CINT(RND * 4)ãy1i = CINT(RND * 4)ãx2i = CINT(RND * 4)ãy2i = CINT(RND * 4)ã ã'Set the starting line's colorãc = CINT(RND * 15)ãã'Loop until a key is pressed.ãWHILE INKEY$ = ""ãã 'This will change the line's color every 100 lines.ã IF cc = 100 THEN c = CINT(RND * 15): cc = 0ã cc = cc + 1ãã 'This will clear the screen every 10000 lines.ã 'If you don't want to clear the screen, just comment these lines.ã IF lc = 10000 THEN CLSã lc = lc + 1ãã 'Change line's coordinates.ã x1 = x1 + x1iã y1 = y1 + y1iã x2 = x2 + x2iã y2 = y2 + y2iã ã 'Check that coordinates don't go out of bounds.ã IF x1 >= 319 THEN x1i = CINT(RND * -5): x1 = 319ã IF x1 <= 0 THEN x1i = CINT(RND * 5): x1 = 0ã IF x2 >= 319 THEN x2i = CINT(RND * -5): x2 = 319ã IF x2 <= 0 THEN x2i = CINT(RND * 5): x2 = 0ã IF y1 >= 239 THEN y1i = CINT(RND * -5): y1 = 239ã IF y1 <= 0 THEN y1i = CINT(RND * 5): y1 = 0ã IF y2 >= 239 THEN y2i = CINT(RND * -5): y2 = 239ã IF y2 <= 0 THEN y2i = CINT(RND * 5): y2 = 0ãã 'Draw the lines!ã LINE (x1, y1)-(x2, y2), cã LINE (639 - x1, y1)-(639 - x2, y2), cã LINE (x1, 479 - y1)-(x2, 479 - y2), cã LINE (639 - x1, 479 - y1)-(639 - x2, 479 - y2), cãã 'Set here the proper delay for your system.ã FOR Delay% = 0 TO 4095: NEXT Delay%ããWENDãã'Restore screen mode and exit.ãSCREEN 0ãSYSTEMãRyan White VARIOUS GRAPHIC EFFECTS bigfooty@home.com 06-20-98 (03:32) QB, QBasic, PDS 238 15625 FOOTY.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"FOOTY.ZIP",4^6:Z&=11449:?STRING$(50,177);ãU"%up()%9%'%7-%9>]MI6\>LPF)%%%g3%%%/%%%%yj%hmst%SgfxWV%X>Ark5M4l[ãU"N=tlS?7?Q':=$(PAeB30cVQwnl(A'(F$3l_vKpvev_uãU"#GGEU\?+3,MA*1:+RGS1n?PQ6m+b9T5]gi-?Bj3ulU\iJ6=4[9ov)64GDN4aj;+ãU"7%m%3u*gTg52UIFV'lw+NW\:iG(3*N']bJN]e1,XpGd:kqA#;kx&efK%VLqjaFuãU"upAlY43>7I-G359C?1PXY(W/#+1%L%nq>L1SS[2+J_X^tqLm;D<:RY0K\:c-TljãU"]3,nmNA?0hO47WT7i\TRVi_7,Na>FapZTIZCGRRbO#_6cbjd6E]R\KL[w6[*9Q8ãU"w&uj.mo5?$4>;bk)X'11bC2/_z,T-t:fZEDQib=flK8^zqP-HxomZsHGb1QTrdiãU"]I+3Us0*4ra#''+?$t(u'C;qkRAjB.l#W[/yaCLEQJar#mg;>'*Q9AsL$-hMpvVãU",\i&p5#MKN(7tM2Vs[GWDsx9a0,Q(z61q2#^GFVN'sHL15q(g?uQ\m9Es$r[;qAãU"AdGsr\C6emqfiH*x*njL0gIF_LPSG4Oh.Ozi^8uV2+ReJ&<1Et)_ke%'FyFC+M7T^Nfn&hm-lh]S;t5Yi:ãU"vCF^2fERF(8RM.MRF]hqH=M;SVsEJ]mxK+kjp>Q6=xB=A;QbaiY_c04Y==&bWQ]ãU"UKA#dqOA[']ei97)z_Zj)VzAKL1*A+[4X2MFItIhtA-/[1TAE$)w3Ergfi,fvqI'u5.*LjHu?ql,\uMKlWrZW/HZ245n.tNj>TFtRg3%675<-_N8ãU"As-1.?UktOg]CdJTOA2y3\aROt.LSdT.tJYMRtIY>Nf:)cxZ$.ãU"2TkvW>Sc*Y>Pm%cNljx2z;(zoHSs*V*s**Dsp94Iqu>q;2q:oeDgP>Qq8kp/G.DiB%)M%-\ãU"+u#g[c-#B;;(*?etxV-(qQZ&\X8?kchqãU",IVCctYdgw%(up(%)9%'%%-%na+H#'%%d%-%%1%%%%w%fnxm%fwiS[gfãU"x.jzX>LIU5M^YcxZgC5:lilRG^.%:EkmW.W'xfSqR#2xcD8UrsJVZo8$;0#n;,9ãU":0bh>bhgcDNFcnEHZaV?T4]+>adRQq*s(i;#llt1L'lC=o1XbsB/ut-bjlz#BsDãU"FWNMd>&ybe(/lCEz9>VmpuD$c]=_',s;%83%s?1G$^9X014CVBhCW.HclV;59,qãU"A([Em/xxkFPh^7PMZbI5MAo5$d;+Jt,3W%u.<5[sf%M^)g392*o#BI<,,W[o-k/ãU"+\d\*9EG[u1HPDvK:fS;=i;*:ECp[c=lJ'n'?PI3)jGx:I\vliUhIugHMj?q2fOãU"Dr&<>z/PbQsg\wO+E)sgYzG;5N4,lv0Y;g95'LWrhyS/=NZU*iFo5/\UgmJey#cQyT*f(]IAN;:yL/F3#XHcoO-xuãU"moU]1CDr1_qe+_[dxRwjWU0Q6d8Ddn0xtA=^1js&b-mOVUIHBv1toIa$*cH?=.EãU"E?p1WkLtW6Y(Yl=kUxW=ceY&#[tTj2n*.7gB^kXA66LZP4vK+-NGCJ5o,w&oh.]ãU"mZwgBKocfYLGNj2L%aL6oP$7qa\7x:17u:)p5\p'3DFZGjXh/qa_MJ2hXc9R(;JãU"VRrYGNTSkGxXO.hM*QC,qDJ?s)7V<>h:5iC.vc(CtRoV*c.7WpA&T&Tbw?^J+9hãU"c]wXj=dGRaWHf5y'8&up%()9%%'%-%8IAjU5M4l[N]OzLi=Ps;UsjJcy&:.(Jw\W-v0N6t[T.i*qYlLCN8rãU",\rV]#N4:lXVLwEgKcnitj,sPcvT88Eaw^Pk+rytkX^Y*$j9CH\VN1ZdVoFqelkãU"HD#eif)0e%e5X^j]KD=W]YE3HArQs8Y[=Jvk[9BZQ?9Dg^dot_eeamRVm0Gj_G?ãU"A^?exOy+tis/f#'Vy4,5HB\>ORivazuTgNEJ?M'S5]4c/(OLB>/bk#,-,COYKO-ãU"e755kS*z_m.4NK'[B'4A7mz;fMyPMP[u/D9&k%,m(#or%%c'><2#2r3m6&:)9drãU"tr++f5V_wcedsM$I2n;iEdIsMRy[u;jc#K6T$r*(?0#zV88.wXw>bN&5kQA%Ro?=c/F0#m2\cS)Z4YPãU"cVEE]gqu4j:uC1[%dRWgULCcY4XO9ty#>[ãU">\UMYQQER'.#]0UYK,NN5Rj*%]$x:e63*1t0bW\PCWUqJr]IZkb#yZkS\#^:B&WãU"VSI8DyNZSX21apwK>v:HR2j2/T;%E*A9+v;MD9]QP*1A9pWgWVPqZt#KET952&5ãU"Fhg=vt6a\)xy7n%wg&':C4WQeMjxCGL3QXA&tq-eqDF49*O.;o=/?j.R$1p..6NãU"9s3;A#ZRa>oBiTgq[:HRHB(1UF5o^$0HMãU"xu:wp-g3d>:F6Ee$w1O0qiuJs'=lx157OB%L&,Cvdu%p()9%%'%-[%Y=MOIL8-(ãU".<)%+%*2%%%1%%#%ux(%hhtr%gSgfjx.&T,AT[5bL$1xq0jbM8AQD)5G*xn#Xr9ãU"H;q%.Y/aa8DCj):8?l[cwthvsgm')hG3qtI55X,64(3O:%YlFphf8Ct*Mv:6ngXãU"'3da)7*ZS0hf?3t&iC3+.QY9W1uY^+O'D0Ofi7PW=.^Bt(AQcm12aX>gZc(Cr,-ãU"F[JX;uwRe+FYRegW9E0M.3gN4cH49X]\]q/F(IZ,_*];\'jBUxQP7[>^LFPqbCrãU"rP+kLJ'tbX:h>#Tg(OdhRntehxg&I3cWbIa?/9Q^u1E?_'k8-,/R[?KZq2OXUJ^ãU"#]1RHM++KaMNi\>)P+wLQzY4=z*%Knez>+qyg'VKG;__jA%59V;,lJ#nD11aIiCãU"%.F-OZ^&-,Yg'gb$C^5:1:7QD[2jFVqBW7GwQ)9zwKIUS[a8PUMvO8&h^Y8yF1sax;z,P7kuSk*E1:h5[&OuH%:%ãU"JuPo5C[&X7NRH65jRO_Y1\TS?s%,%_R-)M-%d&\2+]&N9)_k%(_jD.#.MI)J>EfãU"-OP(:\dU9'6c,gTShPP*)>K5;z&m(\S^#MUZg2USWZCIGv$S<_hk#z&
NG1SãU"tK/rk2DGVhct51a?4#x3*Q3-k9t/-VL?SVb5pPq$bz^;Yp]j'Sl7_tNZ1oLPP8/(7_qUmu:.=+ãU"meaT1/[:]1kyPq<8/2Nn9oGyn+y2,mDiBv3^bF;+\'iAsTe#2;W8gFz)A6$\so-ãU"Y6O&m&d_HRuwHMK94KmKWTeA42092FRR3Y_tEj.;W:=_5H91_JTvSvFcWHO0g6NãU"DTP44D>Aa<.'h7&qc9#pD>#8:MN%rw(,R/P14U5ru,y'b>p=jHiGaJXhqZzxQ8VãU"%(44t%XxcZ$VWJ$h0Y;h,*0O>,)i%1=\Z;-=:XrdweUãU"],O/Nk=Flcg[yDDG++ms5wNHJK?$AA:H$R:MbEqe&lw8rh(GDE,,>BPUyA\&rOxãU";Y?(_$cP2lDUnC#8+8AzHc[^Fkh&XsqQjEuq4C4e)M?ZNi/V;3s+Tja[Hl=lW$FãU"6HPHbu[j=)ZW<6.TG-yTkQ>Z&X<8T^K-q5u1YbS/K^-f?.Eja///%%K(%9Gp-j&ãU"m+oIO[+%np46k$eGM.5?N$0iqJ<^>\d)NS4DuZV4ka;Uc?0'$^Vl5dZ)%%%O1%%%1%%%%Xixn%srsy%SgfxN&%*BES%5MrP[ãU"w3Z(Fp/L1XW:vY07CjBsX(wA0H3\FKJ,)X^s\8sãU"D\t+0w3FVH?$O9ZiFGQQG+'w\y$)ZwQ0iUPrA_QE(+)*+S^t2D$(c?\nfr75oHaãU"6^mGp/2^G0>b01Y]%clRpf*8.()v4VcH1Sr2c^+Y1t8O-_30L2:nJ4fq_>?)Z(YãU"7suVanGmP7[Lvib'K0t8J'*pV'seG\/FAeacjPZ5Yntr#PP/:=r-Q;nS^$7W+GSãU"x:4zb)bbJ]e$ou3$ojREQIJnkjbOo6x&FZ*Yrf^ntJiKzyK.#t00>&99>+(Wu:LãU"Y.W;2zGS9=y/iChg-TX2oP&kBOD3;en-r7(g'=]+5'd8>Uxtx_dh^.o%6)3m+_9ãU"b_fM,S%rBFZ4TmN5:bOWWY/uRP\.,2lggR<2T3i>>?%/a7-LZ1?R+a^sgrYhwMUãU"5a=<6]J'St.LxFd?Za^LE+JZs4U8Cx-q#&Q,8^ãU"(17u:G&'_Ar1b<$uI=['Y85,_z]t%8bf)s'GU2KNAIVSJ#otU;sj'+hn_R;_c#1JfK,h%;S4hnI7)ãU"-0Lwq:AAAkTT.m2QmB:\o=DT]h#mI)ldfnPLb(N4CkY9(w-,da7xrVa?'HEQ1eUãU"]AQH]$e5ACQTOwZI_V#B'.-o%ãU"JRZk([7KoATPXE*r]MHr;,RI5H(LON,Ed+F..Z'vHL0lb_Y7\Nu%R%++V=4>uuaãU":7Uv0qW$cC>^'SYZeP=+AbU:jnAE,-RpeXKJr('e'/hpaX8nI.Ev+Wn.rSz)ãU"gH6m*BVsNQmH#\.\,yk(u%p()9%%'%-[%H?M^IDY_'DP'%(%$)%%%1%%%%uqf%xãU"rfy%WSgfCxDw0)>iu9Tvs;N1]8ez_&;)-hls:O1Nu3/pk8/n+#[hmD$6)*Zb(XLãU">O%/qUd?XHipmJg5L$K;tJb?D0Q3yQ>lxAVcH6)8f;M2[aA&(Gl,uJAs\eK$##%ãU"Ze8JF$'AcJoD''yTm5l3\\QG.mepNãU")2XaLkNe*e3?1g0jo#:l[[9TQoB>ygL$r.1$_u8hND38](?AKAAk*/Z4oGH>O^9ãU"Mp6:wo0j?guGCm^xdJ_S:rFr2O?GIA,KRj/PPSSfJ8D:uo/.+_Y0Y8+e(eprOVcãU"AoDXI_4UQRE_>$JL'qz6.-#LefHNeHuLZ/1U&Nri(b,d?AONIIst:]ãU"Y:,E&.Qrtvr$L8==#)E%KCImI=#<(zgV5oQBh-L.>&j0<:*/ouiakãU"^Q&c?-?LY:%ml&/4sr4;M;&3fs51b9;/O5])M'*P--?-rX=SLU?1s;o;nCoL?)LãU"LK1X\g+bt8%up()%9%'%%-%)?9MIAJ%PpF'7%%H)%%%1%%%%uq%fxrf%yVSg.fxãU"Dw2,^iu^5LLZLdk;i<'EJ/Uy*FEEL%V:KO:r;6sjU-I0NA\oISutEG+5DH.5UBEãU"ghXn?PlQrp\=_hqozCnf0'Z;Frib[pWnva%^5GPi7S1\90b*&1u2T#O/:oyF5N.ãU"rm9GjZOdtWKem[^VS,F\9T5Me#<ãU"k+fA1H)%>CdxzULhty[%rj3_Yb:d#B][IF9[ZAL2IãU"bpoCVQB=P#%Acb[+6.4:jwj5imQ]#tW/)6qz.jy)(;m,>Vq4ybg_Q2$1a8?yBCqãU"ydicMz(Lr%wcRhQ[?N?Kl=n(pdk+^6v)CCYeJfytYv]YHf6^sjokRPfPu\j#AXSãU"/*5Yh;;hpP>2o/rhS:=RG/i^bNuF^:sTr+0FH13OXnHZ&>M;SF+MFZ>l1HZZT&yãU"W>xoIBF2=4RGRNfm[Q=U6XTOr?kJU_ql)^y4j_$UePK[uY,if]m=):?O=bU7qRcãU"-jknz9_pDfLnve(V39TBiwBB^O>Arc,Zk?_V*Rvt.?Z7A+e,+4eVAke$?:).k/9ãU"jVSZ+.3d*#JQpaPd.()f8A[Rd=YD3xfhKdZ5+o9s,iA+SS*+zw&u%p()9%%'%-^ãU"%J#MUIA40*Ca*%%%w4%%%1%%%%qtl%tgqz%wSgfOx.&<,B[[5cwG1xq0bbm*AT5ãU"pQ/2_8'(r]W*#c0YZZ_S^9?]Qf9/xTALlNLFsJD(]TSTn3t1maJbrNoW>,62:f4ãU")5jjKgEWoUCYZoYii>d4W^SH:_N]Z,<(M(AI(\.3&n'.a]MA=8SfE,Fb,N*=$,vãU"5kZ*ACEL.qF9UE#qTf;DXSj=p14z,+J]m2'HZ=N3K7,xj;G-M,(L)HR%pvRa8O#ãU"#'>q9VgL54#TgMH8_.I>yD&+6i#(IZ]nR,%pmqbP8leNf$X2F-i*RV?ZT[sE%PtãU"OoXY-aY.3fj3K$2zV9,S80B3Cc]3ci*Xk$'BnXT2f=6aeJi/sa.UC0ofci,jcS-w9w$b2HHãU"3BK9*Xq>)[:g]$v3(y,aGF3gUS%V78p:D*3mYfnj\&kc7kUM,92z,t#]ãU"n7kQoF=(eMn(R(^r&gFiJ+JIu+lBED).hQA.:7IX&E+iCP_uãU"J9xIUYP/QAp)Sc(1G;OJU7kFJ_k1hU&tb%Z?Rso%MPcQwLR1J?9Q,j).KvY?rALãU"AJuOn5I1tBhJ31D,GVMpYJ1SF4dr2.9JZaMT]Y&(]5Vje&1\.]ãU"0f5,g?T8[&.3XD8kat25cI-05\Y#^5(I=51A:GM^(NqW4zhBeRPMer0*/H4X](&ãU";NO++feC;5i6jm0aAjetL1IUP>8T;,luhDU;1yYpqXX)xln=O3n=Db/sD/YS\iSãU":f7fNSdiGBw37SRV2moY(0,fH4^C7L#f8sp.v;nDHbv_[y2C?HH)4kS9-\3EC;$&Hqd65Iap]xqG?0+%ZK-%Y7tKf7ht9COQ$C,Gow;QShdLyãU"com[lJCgO;#l&H4.OF+pg8Gbth0(4HC:a]beiF:_I'uhzq?'1:?)XlJLYS$-;iDãU"1La7r>-b\l6?]U-3l'nW=l-EN+ZJM01Bi*:7C^3J:\K^un%=uNQj2lpBr_h(4#7ãU"AOSy[43I.VI*uCZq.fYdy?j5:Wj%=*^6>zkaqF8=a8=8=+ãU"8=8JZHK5_8GFjg<[T=0p0-0,DGkQpQsv2U81?O%K(%IHp-j&ZedsZMn:FIHTX#cãU"hcF#\D^.?8,pQuv>+(VAsrndd]^yM0''hi=RH]POrg3-s5Uc/a'>J;JbdNOtnW8lL?$DwX?2jcFw9W9S^?uVJAG]0rRk5v]E=N=l\ãU"y+\YX?1Ut3aA9T(F\z5lW7hVLBKAãU"xXiG2<_lKw)Ryq9fqq;n5kK1f+az8;+H[Lq%^%Jm*Rgo;;70bPj*RO9AF/O%RVuãU"d.A)PXAo?J-n[A:pNigNI-t9IoA[>kNI;pAi%__+_FI2UQX,f'RhU*Ai1FR>Or\ãU"kR%XsA#U\I'n^yQ\vEH[h]6;T,otbY2wko^%?W3#P3B$zUK>EC=xWlN992(fN)YãU"AMT;)3QXE7;DR-eHc9v0DWClg+[21ad#tn9hbccox0.JãU"^:pTj5ne=YRt*W6.FBPX.^IbC]8oRcRD(TMh]?^5Y41R%D>uq?j%$^0gLafv(KqãU"p->WQHOu?EU2K5ObFZT)H7:QF[>*i)c4<\_0cQbPfq._wVcG3O%4,MnaE\G;UisPDN>NJ[x,kKKsyZMo9GJXMeeCY)3vq'$N:ãU".EniBKoPNWh_vt\YpsYJ6-+gm*VbXaG/e=CYWROD]3)&sW[tYnY0(2,$<^\ZHãU"^2012g0i'#H=C^TiJC]^eWJj).:G>X)d?Te9rT3W06GKM^Iu?0t_]>1kD[+3nMvãU"cVQ-?JAc6&hSzc2OEsqH+8wK3/8nB&x<=5E]Nu%p()9%%'%-^%9=MCIJcA&n<'%%%y+%%%0%%%%hãU"tW#kqt&%SgfxVdcT=Aje5UNh$GV[vyZIE[E4U2cwv9F8NOTd-8tf2lT8fIOkAkQãU"A5L6'P0=hZ%MUGQ7rFUivfllo>h2FeZZSRqA*bS$rf?[kI2U465Q5GsSwu';y1Q:,^E_iYrYaMQ&(eri%$:U6.5:?:KA5-RdXz9.8%F2+K4GGZãU"r:0c1:'4h+.JIbZO]>?'.m/io5?m:j^S:P#0f[%mcmg-7;,rkU3,6i/]jH1og+VM.pQsEE_9VQu)AãU"[l09j8TlQ*GCto.I8XMeMu4*>)v>TWIj#-*YRfB,QtG)RrO*m#a0pG=Fe,e7aynãU"Matp/_Gp%l#5Tdi8RhC)?iFpu-[xO31ar?^hElLnq0YeMF47cT,FntyAg_ecVhIãU"X=L;R9n$2=r26W%T%RW5Tv8WP,^=$Ux>I=9V.J^:5ãU"2_:bKc;4DHYp4=GYFn2H%X1JWq#K12bHYOpwjcxl*5Kx-66+Gn4u%p()9%%'%-^ãU"%^=MRI*up)p:'%%%Y+%%%0%%#%gt'%htwj%SgfxMDc,>BSU9U9hH^d8kzL?:[/=ãU">S7fV&&8uv>gqcyT,t\I(^:Wy1u)ld$hB1jH2#PKCT8c(Lcro2%%ãU"aQ\s>p6d\**X>X\i5'NgA[fqNZ+UPxhZAbl0j2^+?mj^j(Gl4b&kTDej<'=PQ7QãU"e&P'i[RQ\[=Z$Ta9LHQRqA'jfR3yG.l8Za#':QnK75k7\m=dsW&,WArl_irnQ%#ãU"rnmE'OfIZF9oJG]lPSSTIPKr9II/X-38';+G8.U1s.%G8u-pDopB5w.T+XD.s?>ãU"YOoG)7h)+RlZWvO.R6bIL/DG)m[),X$*A42Qbnx6>E3cfW+#o[DCBkOnkJ-+DR;ãU"PW=1*=6Pput2BGFDa2ms]LcYj/rCGGQg*U&*;Fx-h:$]\cdy:h.bokbBTjoso)GãU"LZWMt18d#o26]KYM[29FW,OQ,=mRWTBYRgJ*AãU"(aiI5=mWM#G9-'hTcfS7)qw4Y;xpIubk;q2A8+.M0Az.Zc/+DTdu%p()9ãEND SUBãSUB V2ãU"%%'%-^%V?M:Iz]')E;'%(%T*%%%1%%%%uqf%xrfy%ZSgfLxDb.)Bie9l>XhZU$kãU"BC/y[9*/y8lY;maC<:%dd-ãU">^wnjQ]?QnYIi>-'DUcH0e[G+G:hs4Me1Fg$7V\f/I:z(^V&u2OV5wCGN7%dXC^ãU"lR;YKbuqcje#UbuWD-b0-iiNM)0^t^a:/IUU_ND\_^#.iKk9>zt(-U7C4,JS&JpãU"Fm+e$K;LB+2n[San%:02/>h:n6&c:)4vCqImmXCY_Fmu?2F?xif7mF0::I]M'PnãU"5i_TeS-Qo#):U\5-.aXSwE*:eLn0iASg_mJg^**x4Y?v__x>zId;P9?hi32#QuYãU"uZ,?CPZl$?1?YhJ$-d\N9JAA05ILv7&_QDS2H#dF1RMCg1\u$\1WEH*+UoJhkK4ãU"MduTcdR[IP.HZ?V.egd;j'(?e8U2opx,T&L#/>D[Vj^R&,80#>28nXv'F8fzl[GãU"t=mXkA=o$Prs-Zi-)6VByDrHrl2=Nh?DdO,gZ9]&;85a87$ImyjeEjS'wCe;ojgãU"bwGhA2C=x,_8_6L5UMRI6\L-PF)%%%g3%%%/%%%%%%%%%&%E4%/P%%%%%y%jãU"hms%tSgf%xup&%'W09%%'%-[%n-+H'%(%d-%%%1%%%%%%%%%&%Ej%/PnãU"%)%%w%fnxm%fwiS%gfxu%p&'W%09%'#%-%IF%)%%O%1%%1%%%%%%%%%&[%E%/,P74%%%Xix%nsrs%ySgf%xup&%'W09%%'%-[%ãU"H?M^IDY_'DP'%(%$)%%%1%%%%%%%%%&%EO%/P&%9%%u%qfxr%fyWS%gfxu%p&'WãU"%09%'%%-%)a?MIA%JPpF['%%H%)%%1%%%%%%%%%&[%E%/,P%;%%%uqf%xrfy%VSãU"gf%xup&%'W09%%'%-^%J#MUIA40*Ca*%%%w4%%%1%%%%%%%%%&%Ej%/Pp%=%%q%ãU"tltg%qzwS%gfxu%p&'W%09%'[%-%]a=MI3hhhf%[(%%Y%-%%/%%%%%%%%%&[%E%ãU"/,P,C%.%h(s%ijjS%gfxu%p&'W%09%'#%-%9F=MIJ1cAn<%'%%y%+%%0%%%%%%%ãU"%%&[%E%/)PVG%%%htW#kqt&%Sgfx%up&'%W09%%'%-%8^=MIO*upp&:'%%%Y+%%ãU"%0%%%%%%%%%&%E% 0 THEN LINE (x, y - 1)-(x + 3, y - 3), C, BFã NEXTã NEXTãLOOP UNTIL CurrentColor < 5ãDEF SEGãSCREEN 0ãWIDTH 80, 25ãCOLOR 14, 4ãLOCATE 1, 2: PRINT " Flame effect "ãCOLOR 7, 0ãPRINT "By Anders Olofsson, May 1998."ãENDããDEFSNG A-ZãSUB fPRINT (sx%, y%, Text$, C%)ãx% = sx%ãDEF SEG = &HF000ãFOR T% = 1 TO LEN(Text$)ãFOR ty% = y% TO y% + 7ã mask% = PEEK(&HFA63 + (ASC(MID$(Text$, T%, 1)) * 8) + 11 + ty% - y%) * 128ã LINE (x%, ty%)-STEP(7, 0), C%, , mask%ãNEXTã x% = x% + 8ãNEXTãDEF SEGããEND SUBããDEFINT A-ZãSUB Palet (Attr%, Red%, Green%, Blue%)ãOUT &H3C8, Attr%ãOUT &H3C9, Red%ãOUT &H3C9, Green%ãOUT &H3C9, Blue%ãEND SUBãDon Schullian CIRCLE DRAWING ROUTINE d83@ath.forthnet.gr 06-08-98 (04:14) QB, QBasic, PDS 106 3817 CIRCLE.BAS DECLARE SUB DRAWcircle (Xcen%, Ycen%, Radius%, Colour%, Sdeg%, Edeg%, Aspect!)ãDECLARE FUNCTION fDeg2Rad! (Degree!)ã'ã' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ· GENERIC ã' ÚÄÄ´ DASoft ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ·ã' ³ ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¶ Copyright 1998 ³ DATE: 1998-06-06 ÇÄ·ã' ³ ³ FILE NAME CIRCLE .QB º by ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÄ º ºã' ³ ³ º Don Schullian, Jr. º ºã' ³ ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼ d83@ath.forthnet.gr º ºã' ³ º ºã' ³ Public Domain º ºã' ³ º ºã' ÔÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼ ºã' ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼ã'ã' This routine draws a circle or arc with or without a pie wedge. Theã' parameters are the same as the CIRCLE command with one exception:ã' Sdeg% and Edeg% are the starting and ending DEGREEs, not radians.ã' (I don't think in radians!) 0 degree is assumed to be at the top ofã' the circle and they proceed around the circle clockwise (to the right).ã' eg: 90 degrees is EAST, 180 is SOUTH and 270 is WEST.ã'ã' The STEP value in the FOR/NEXT loop can be adjusted as required dependingã' on which screen you are using. I've found that values from -.005 to -0025ã' work with most VESA screens but #13 may not require such fine stepping.ã'ã' Please, let me know if you experience any problems with this routine.ã'ã' C'ya,ã'ã' Donã'.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.ø.øã' ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø ø øããCOMMON SHARED pPi!: pPi! = (4 * ATN(1))ããSCREEN 12ããLINE (320, 0)-(320, 479), 7ãLINE (0, 240)-(639, 240), 7ããDRAWcircle 320, 240, 140, 14, 0, 0, 1.51 ' complete circleãDRAWcircle 320, 240, 205, 13, 81, 163, 1! ' small arc in lower R quadãDRAWcircle 320, 240, 130, 12, 175, -40, 1! ' pie shape in upper L quadãDRAWcircle 320, 240, 130, 11, 40, 175, 1! ' complete the arc aboveãDRAWcircle 320, 240, 319, 10, 0, 0, .75 ' one BIG mamaããDO: LOOP UNTIL LEN(INKEY$)ããSCREEN 0ãCLSãENDãã' -------------------------------------------------------------------------ã' -------- see CIRCLE help for parameter detailsã' -------------------------------------------------------------------------ãSUB DRAWcircle (Xcen%, Ycen%, Radius%, Colour%, Sdeg%, Edeg%, Aspect!)ãã IF Aspect! < 0 THENã Xrad! = ABS(Aspect!) * Radius%ã Yrad! = Radius%ã ELSEã Xrad! = Radius%ã Yrad! = Aspect! * Radius%ã END IFã Srdn! = fDeg2Rad!(ABS(Sdeg%))ã Erdn! = fDeg2Rad!(ABS(Edeg%))ã IF Erdn! >= Srdn! THEN Srdn! = Srdn! + 6.28ãã Xo% = -1ã Yo% = -1ãã FOR Rdn! = Srdn! TO Erdn! STEP -.003ã X1% = (Xrad! * COS(Rdn!))ã Y1% = (Yrad! * SIN(Rdn!))ã IF (X1% <> Xo%) OR (Y1% <> Yo%) THENã Xo% = X1%ã Yo% = Y1%ã X1% = Xcen% + X1%ã Y1% = Ycen% - Y1%ã PSET (X1%, Y1%), Colour%ã END IFã NEXTãã IF (Sdeg% < 0) OR (Edeg% < 0) THENã X1% = (Xrad! * COS(Srdn!))ã Y1% = (Yrad! * SIN(Srdn!))ã X1% = Xcen% + X1%ã Y1% = Ycen% - Y1%ã LINE (Xcen%, Ycen%)-(X1%, Y1%), Colour%ãã X1% = (Xrad! * COS(Erdn!))ã Y1% = (Yrad! * SIN(Erdn!))ã X1% = Xcen% + X1%ã Y1% = Ycen% - Y1%ã LINE (Xcen%, Ycen%)-(X1%, Y1%), Colour%ã END IFããEND SUBããFUNCTION fDeg2Rad! (Degree!)ãã IF Degree! > 89 THEN F! = 2.5 ELSE F! = .5ã fDeg2Rad! = (F! * pPi!) - ((pPi! / 180) * Degree!) + .0001ããEND FUNCTIONãPer Larsson 3D LANDSCAPE CREATOR www.algonet.se/~emden/ 06-21-98 (11:19) QB, QBasic, PDS 195 6046 3DLAND.BAS 'ã' ÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛ ÛÛÛÛÛÛÛÛ ÛÛÛ ÛÛ ÛÛÛÛÛÛÛã' ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛÛ ÛÛ ÛÛ ÛÛã' ÛÛÛ ÛÛ ÛÛ ÛÛÛÛÛ ÛÛ ÛÛÛÛÛÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛã' ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛÛ ÛÛ ÛÛ ã' ÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛ ÛÛÛÛÛÛÛã'ã' Gizzmet productionsã'ã' This program makes a nice 3D landscape.ã' You can change the variables a bit down to make a supercool-lookingã' landscape.ã'ã' Please tell me what you think!ã' Per Larsson [eliott@kd.qd.se]ã'ã'ã'ã'ã'ããDECLARE SUB land.3d ()ãDECLARE SUB initcolor ()ãDECLARE SUB palman (ent!, r!, g!, b!)ãDECLARE SUB smooth ()ãDECLARE SUB greg ()ãDIM SHARED Xsize%, Ysize%, Smoothing%, Water%, Pixelsize%, Scale, Height, Tilt, Landtype%, palettetype%ãããã'************************************************************************************ã' *ã' You can change the vaules below: *ã' * ã Xsize% = 120 'Xsize of map *ã Ysize% = 120 'Ysize of map *ã Smoothing% = 2 'Amount of smoothing. For a funny ,fast map try 0! *ã Water% = 3 'Amount of Water (not 0) *ã Pixelsize% = 2 'Size of pixels in first draw (not 0) *ã ' * ã Scale = 2 'Size of 3D map, dosen't effect height (not 0) *ã Height = 1 'Height of mountins (not 0) *ã Tilt = .2 'Tilted 3D map (0 gives untilted map) *ã ' *ã Landtype% = 1 'Type of 3D map *ã '1 = Solid map *ã '2 = Dotted map *ã '3 = Grid map *ã '(1 looks best whith low scaling 2 and 3 looks *ã 'best on a small map with much scaling) * ã ' * ã palettetype% = 1 'Whith palette? *ã '1 = Nature (sea, grass and mountins) *ã '2 = Gray (grayscale) *ã '3 = White (dosen't look THAT good!!!) *ã'************************************************************************************ãããIF Landtype% > 3 OR Landtype% < 1 THEN Landtype% = 1ãIF palettetype% > 3 OR palettetype% < 1 THEN palettetype% = 1ãIF Pixelsize% < 1 THEN Pixelsize% = 1 'Correct invalid vaulesããSCREEN 12ãRANDOMIZE TIMERããinitcolor 'Inizialiting colorsããgreg 'Make random mapããFOR i = 1 TO Pixelsize% 'Black around mapã LINE (-1, -1)-(Xsize% + i, Ysize% + i), 0, BãNEXT iããFOR i = 1 TO Smoothing%ãsmooth 'Smooth mapãNEXT iããland.3d 'Make 3D mapããSUB gregãWater% = Water% + 1ããFOR x = 0 TO Xsize% STEP Pixelsize%ã FOR y = 0 TO Ysize% STEP Pixelsize%ã vaul = INT(RND * Water%) + 1ã IF vaul = 1 THEN vaul = 15 ELSE vaul = 1ã LINE (x, y)-(x + Pixelsize% - 1, y + Pixelsize% - 1), vaul, BFã NEXT yãNEXT xãEND SUBããSUB initcolorãSELECT CASE palettetype%ãã CASE IS = 1ã GOTO Natureãã CASE IS = 2ã GOTO Grayãã CASE IS = 3ã GOTO WhiteãEND SELECTãããNature:ãpalman 1, 0, 0, 32ããFOR i = 2 TO 7ã palman i, 0, i * 2, 0ãNEXT iããFOR i = 8 TO 15ã palman i, i, i, 0ãNEXT iããpalman 8, 8, 16, 0ãGOTO okãããGray:ãFOR i = 1 TO 15ã palman i, i * 2, i * 2, i * 2ãNEXT iãGOTO okãããWhite:ãFOR i = 1 TO 15ã palman i, 63, 63, 63ãNEXT iããok:ãEND SUBããSUB land.3dãSELECT CASE Landtype%ã CASE IS = 1ã GOTO Solidãã CASE IS = 2ã GOTO Dottsãã CASE IS = 3ã GOTO LinesãEND SELECTãããSolid:ãFOR y = 0 TO Ysize%ã FOR x = 0 TO Xsize%ã vaul = POINT(x, y)ã LINE ((x * Scale + y * Tilt) + Xsize% + 8, (y * Scale - vaul * Height) + Ysize% + 8)-((x * Scale + y * Tilt) + Xsize% + 8 + (Scale - 1), (y * Scale) + Ysize% + 8 + (Scale - 1)), vaul, BFã NEXT xãNEXT yãGOTO readyããDotts:ãFOR y = 0 TO Ysize%ã FOR x = 0 TO Xsize%ã vaul = POINT(x, y)ã PSET ((x * Scale + y * Tilt) + Xsize% + 8, (y * Scale - vaul * Height) + Ysize% + 8), vaulã NEXT xãNEXT yãGOTO readyããLines:ãFOR y = 0 TO Ysize%ã FOR x = 0 TO Xsize%ã vaul = POINT(x, y)ã vaul2 = POINT(x + 1, y)ã vaul3 = POINT(x, y + 1)ã LINE ((x * Scale + y * Tilt) + Xsize% + 8, (y * Scale - vaul * Height) + Ysize% + 8)-(((x + 1) * Scale + y * Tilt) + Xsize% + 8, (y * Scale - vaul2 * Height) + Ysize% + 8), vaulã LINE ((x * Scale + y * Tilt) + Xsize% + 8, (y * Scale - vaul * Height) + Ysize% + 8)-((x * Scale + (y + 1) * Tilt) + Xsize% + 8, ((y + 1) * Scale - vaul3 * Height) + Ysize% + 8), vaulã NEXT xãNEXT yãGOTO readyã ããready:ãEND SUBããSUB palman (ent, r, g, b)ãPALETTE ent, 65536 * b + 256 * g + rãEND SUBããSUB smoothãFOR y = 0 TO Ysize%ã FOR x = 0 TO Xsize%ã c = (POINT(x - 1, y) + POINT(x + 1, y) + POINT(x, y - 1) + POINT(x, y + 1) + POINT(x, y) + POINT(x, y) + POINT(x + 1, y + 1) + POINT(x - 1, y + 1) + POINT(x + 1, y - 1) + POINT(x - 1, y - 1)) / 10ã IF c < 1 THEN c = 1ã PSET (x, y), cã NEXT xãNEXT yãEND SUBãPer Larsson AMOBE PLASMA www.algonet.se/~emden/ 06-21-98 (11:19) QB, QBasic, PDS 199 5604 AMOBE.BAS 'Nerladdat fr†n Qbasic Universeã'http://qbu.home.ml.orgã'Flera hundra andra qbasic-program att ladda ner.ããããDECLARE SUB quit ()ã'AMOBE.BASã'CODED BY: Per Larssonã'ã'This program demonstrates some palette manipulation stuffã'ã'ã'This is one of those build on programs, thereforeã'the code may seem a little weirdã'ãDECLARE SUB palcycl ()ãDECLARE SUB initpal ()ã CONST PI = 3.141592654#ã COMMON SHARED melã COMMON SHARED band1r, band1g, band1b, band1w, band1pos, band1sã COMMON SHARED band2r, band2g, band2b, band2w, band2pos, band2sã DIM SHARED palett(255, 2)ã RANDOMIZE TIMERãSCREEN 13ãã '*** You may change these vaules to find a different pattern ***ãres = 1 'Resolution, higer vaule=faster rendering lower qualityãzoom = 128 'Those two variables changes styleãzoom2 = 64 'and dimention of the patternãnoise = 1 'Adds "noise" - try 256 :-)ããCALL initpal 'fix the cool yellow paletteãã '*** Paint the pattern ***ãFOR x = 0 TO 320 STEP resã FOR y = 0 TO 480 STEP resã LINE (x, y)-(x + res - 1, y + res - 1), ((((((SIN(x * (PI / zoom))) * 255) + ((COS(y * (PI / zoom))) * 255)) / 2)) + (((((SIN(x * (PI / zoom2))) * 255) + ((COS(y * (PI / zoom2))) * 255)) / 2))) / 2, BFã NEXT yãNEXT xããFOR x = 0 TO 320 STEP resã FOR y = 0 TO 480 STEP resã IF POINT(x, y) = 15 THEN z = 1ã IF z = 1 THENã FOR x1 = -1 TO 1ã FOR y1 = -1 TO 1ã IF POINT(x + (x1 * res), y + (y1 * res)) > 128 THEN c = 1ã NEXT y1ã NEXT x1ã END IFã IF c = 1 THEN LINE (x, y)-(x + res - 1, y + res - 1), 0, BFã LINE (x, y)-(x + res - 1, y + res - 1), (POINT(x, y) + INT(RND * (noise + 1))) MOD 256, BFã c = 0ã z = 0ã NEXT yãNEXT xãããããDO 'start of main loopãã '*** Find random vaules ***ãband1rz = INT(RND * 64)ãband1gz = INT(RND * 64)ãband1bz = INT(RND * 64)ãband1pos = INT(RND * 64) * 4ãband2rz = INT(RND * 64)ãband2gz = INT(RND * 64)ãband2bz = INT(RND * 64)ãband2pos = INT(RND * 64) * 4ãband1w = INT(RND * 112) + 16ãband2w = INT(RND * 112) + 16ãband1s = INT(RND * 3) + 1ãband2s = INT(RND * 3) + 1ãIF band1s = 3 THEN band1s = 4ãIF band2s = 3 THEN band2s = 4ããã '*** Fade in ***ãFOR i = 0 TO 64ã band1r = band1rz - ((band1rz / 64) * (64 - i))ã band1g = band1gz - ((band1gz / 64) * (64 - i))ã band1b = band1bz - ((band1bz / 64) * (64 - i))ã band2r = band2rz - ((band2rz / 64) * (64 - i))ã band2g = band2gz - ((band2gz / 64) * (64 - i))ã band2b = band2bz - ((band2bz / 64) * (64 - i))ã band1pos = band1pos + band1sã band2pos = band2pos - band2sã IF band1pos > 511 THEN band1pos = band1pos - 256ã IF band2pos < 256 THEN band2pos = band2pos + 256ã CALL palcyclãNEXT iãã '*** Main part ***ãband1r = band1rzãband1g = band1gzãband1b = band1bzãband2r = band2rzãband2g = band2gzãband2b = band2bzãFOR i = 0 TO 512ã band1pos = band1pos + band1sã band2pos = band2pos - band2sã IF band1pos > 511 THEN band1pos = band1pos - 256ã IF band2pos < 256 THEN band2pos = band2pos + 256ã CALL palcyclãNEXT iãã '*** Fade out *** ãFOR i = 0 TO 64ã band1r = band1rz - ((band1rz / 64) * i)ã band1g = band1gz - ((band1gz / 64) * i)ã band1b = band1bz - ((band1bz / 64) * i)ã band2r = band2rz - ((band2rz / 64) * i)ã band2g = band2gz - ((band2gz / 64) * i)ã band2b = band2bz - ((band2bz / 64) * i)ã band1pos = band1pos + band1sã band2pos = band2pos - band2sã IF band1pos > 511 THEN band1pos = band1pos - 256ã IF band2pos < 256 THEN band2pos = band2pos + 256ã CALL palcyclãNEXT iãLOOPããSUB initpalãFOR i = 0 TO 127ã OUT &H3C7, i: OUT &H3C8, i: OUT &H3C9, INT(i / 2): OUT &H3C9, INT(i / 2): OUT &H3C9, 0ãNEXT iãFOR i = 128 TO 255ã OUT &H3C7, i: OUT &H3C8, i: OUT &H3C9, INT(64 - ((i - 127) / 2)): OUT &H3C9, INT(64 - ((i - 127) / 2)): OUT &H3C9, 0ãNEXT iãEND SUBããSUB palcyclã FOR i = 0 TO 255ã dist1a = band1pos MOD 256 - iã dist2a = band2pos MOD 256 - iã IF dist1a < 0 THEN dist1a = -dist1aã IF dist2a < 0 THEN dist2a = -dist2aã dist1b = band1pos MOD 256ã dist2b = band2pos MOD 256ã dist1b = dist1b + (256 - i)ã dist2b = dist2b + (256 - i)ã dist1c = 256 - (band1pos MOD 256)ã dist2c = 256 - (band2pos MOD 256)ã dist1c = dist1c + iã dist2c = dist2c + iã IF dist1a > dist1b THEN dist1 = dist1b ELSE dist1 = dist1aã IF dist2a > dist2b THEN dist2 = dist2b ELSE dist2 = dist2aã IF dist1 > dist1c THEN dist1 = dist1cã IF dist2 > dist2c THEN dist2 = dist2cãã r1 = band1r - ((band1r / band1w) * dist1)ã g1 = band1g - ((band1g / band1w) * dist1)ã b1 = band1b - ((band1b / band1w) * dist1)ã r2 = band2r - ((band2r / band2w) * dist2)ã g2 = band2g - ((band2g / band2w) * dist2)ã b2 = band2b - ((band2b / band2w) * dist2)ã IF r1 < 0 THEN r1 = 0ã IF g1 < 0 THEN g1 = 0ã IF b1 < 0 THEN b1 = 0ã IF r2 < 0 THEN r2 = 0ã IF g2 < 0 THEN g2 = 0ã IF b2 < 0 THEN b2 = 0ã ã r = (r1 + r2)ã g = (g1 + g2)ã b = (b1 + b2)ãã IF r > 63 THEN r = 63ã IF g > 63 THEN g = 63ã IF b > 63 THEN b = 63ãã palett(i, 0) = rã palett(i, 1) = gã palett(i, 2) = bã ã IF INKEY$ = CHR$(27) THEN CALL quitã NEXT iãã FOR i = 0 TO 255ã OUT &H3C7, i: OUT &H3C8, i: OUT &H3C9, palett(i, 0): OUT &H3C9, palett(i, 1): OUT &H3C9, palett(i, 2)ã NEXT iããEND SUBããSUB quitãSCREEN 0ãWIDTH 80ãCLSãPRINT "Code by Per Larsson"ãPRINT "E-Mail elliott@alfaskop.net"ãPRINT "Homepage www.alfaskop.net/~elliott/start.htm"ãPRINTãPRINT "Greetings goes to: nuzic & Damn You"ãENDãEND SUBãEverett Arvin BOUNCY FIREWORKS www.algonet.se/~emden/ 06-21-98 (11:22) QB, QBasic, PDS 201 5582 FIREWORK.BAS'Nerladdat fr†n Qbasic Universe.ã'Flera hundra andra qbasic-program att ladda ner.ã'http://qbu.home.ml.orgãDECLARE SUB ResetPal ()ãDECLARE SUB Pal (Pn!, I!, C!)ãDECLARE SUB GetOrigPal ()ãDECLARE SUB RestorePal ()ãDECLARE FUNCTION Bucket! (I!, C1!, C2!)ãCOMMON SHARED C1, C2, C3, C4ãSCREEN 13ãRANDOMIZE TIMERã' Programmed by: Everett Arvin (|Malice| on IRC)ã' Structuring sucks, so if you don't like myã' programming, please feel free to bite meã' This thing was made on a 5x86 133 w/ 16mb ram don'tã' complain about speed problems... Edit the Speedã' variable below. And for even slower computers outã' out there please edit the MaxExpRad variable too.ã' send questions, comments, etc. to jester@si-net.comã' watch what you didn't think QB could do...ã' Special thanks to Destruct for the Elastic ideaã' Actually it was just some suggestions, but Iã' gave him credit anyways...ã 'Rec.=RecommendedãElastic = 1 'Elastic fworks! 1=bouncy, 0=not bouncy (1's cool)ã '**Note: The fireworks are launched furtherã ' and faster when this is on... It addsã ' to the elastic effect...ãSpeed = 5000 'Speed of launch >=slowerã '{0 - 10000 Rec.}ãMaxExpRad = 100 'Fragments >=more {50 - 500 Rec.}ãGravity = .1 'Gravity >=more {.01 - 2 Rec.}ãTFrag = 1 'Type of fragment: {1 - 4}ã '1=Regular dot (default)ã '2=Circle <- these can look funky at times... ã '3=Box <-ã '4=NIN (for those nine inch nails fans :)ãTail = 5 'Length of fragment tail (some bugs occur here) 5's defaultã '{1 - 63 Rec.}ãIF TFrag = 4 THEN MaxExpRad = MaxExpRad / 2ãDIM EX(MaxExpRad)ãDIM EY(MaxExpRad)ãDIM EXD(MaxExpRad)ãDIM EYD(MaxExpRad)ãDIM EC(MaxExpRad)ãDIM SHARED OrigPal(255, 3)ãGetOrigPalãCLSãIF Elastic = 1 THEN Inc = 7 ELSE Inc = 2ãExpSize = .01ãDOãX = INT(RND * 320) + 1ãY = 199ãYD = INT(RND * 3) + 2ãIF X > 160 THEN Xd = -(RND * Inc) ELSE Xd = RND * IncãC1 = INT(RND * 7) + 1ãResetPalãC = 1ãLaunch:ãDOã'IF Elastic = 1 THEN IF Y + YD > 200 OR Y + YD < 0 THEN YD = -YDãY = Y - YDãYD = YD - RND * .09ãIF Elastic = 1 THEN IF X + Xd > 320 OR X + Xd < 0 THEN Xd = -XdãX = X + XdãLow = 1: High = 63ãIF TFrag = 1 THEN PSET (X, Y), HighãIF TFrag = 2 THEN CIRCLE (X, Y), 2, HighãIF TFrag = 3 THEN LINE (X - 2, Y - 2)-(X + 2, Y + 2), High, BãIF TFrag = 4 THEN DRAW "BM" + STR$(INT(X)) + "," + STR$(INT(Y)) + "C" + STR$(High) + "d5u5f5u5br2d5br2u5d5e5d5br1bd1u7l16d7r16"ãFOR S = 1 TO Speed: NEXT SãIF TFrag = 1 THEN PRESET (X, Y)ãIF TFrag = 2 THEN CIRCLE (X, Y), 2, 0ãIF TFrag = 3 THEN LINE (X - 2, Y - 2)-(X + 2, Y + 2), 0, BãIF TFrag = 4 THEN DRAW "BM" + STR$(INT(X)) + "," + STR$(INT(Y)) + "C0d5u5f5u5br2d5br2u5d5e5d5br1bd1u7l16d7r16"ãLOOP UNTIL YD = -ABS(YD)ãExplode:ãI = HighãFOR O = 1 TO MaxExpRadãEX(O) = XãEY(O) = YãEXD(O) = RND - RNDãEYD(O) = RND - RNDãNEXT OãDOãFOR Boom = 1 TO MaxExpRadãIF Elastic = 1 THEN IF EX(Boom) + EXD(Boom) > 320 OR EX(Boom) + EXD(Boom) < 0 THEN EXD(Boom) = -EXD(Boom)ãEX(Boom) = EX(Boom) + EXD(Boom)ãIF Elastic = 1 THEN IF EY(Boom) + EYD(Boom) > 200 OR EX(Boom) + EYD(Boom) < 0 THEN EYD(Boom) = -EYD(Boom)ãEY(Boom) = EY(Boom) + EYD(Boom)ãEYD(Boom) = EYD(Boom) + Gravity * RNDãIF TFrag = 1 THEN PSET (EX(Boom), EY(Boom)), IãIF TFrag = 2 THEN CIRCLE (EX(Boom), EY(Boom)), 2, IãIF TFrag = 3 THEN LINE (EX(Boom) - 2, EY(Boom) - 2)-(EX(Boom) + 2, EY(Boom) + 2), I, BãIF TFrag = 4 THEN DRAW "BM" + STR$(INT(EX(Boom))) + "," + STR$(INT(EY(Boom))) + "C" + STR$(INT(I)) + "d5u5f5u5br2d5br2u5d5e5d5br1bd1u7l16d7r16"ãNEXT BoomãI = INT(I - ExpSize)ãIF Tail <> 0 THEN IF I < 63 - Tail THEN Pal I + Tail + 1, 0, 0ãLOOP UNTIL I < LowãCLSãResetPalãLOOP WHILE INKEY$ = ""ãRestorePalããFUNCTION Bucket (I, C1, C2) STATICãM1 = 0ãM2 = 0ãIF C1 = 1 THEN M1 = I * 65536ãIF C1 = 2 THEN M1 = I * 256ãIF C1 = 3 THEN M1 = I * 65536 + I * 256ãIF C1 = 4 THEN M1 = IãIF C1 = 5 THEN M1 = I * 65536 + IãIF C1 = 6 THEN M1 = I + I * 256ãIF C1 = 7 THEN M1 = I * 65536 + I * 256 + IãIF C2 = 1 THEN M2 = (63 - I) * 65536ãIF C2 = 2 THEN M2 = (63 - I) * 256ãIF C2 = 3 THEN M2 = (63 - I) * 65536 + (63 - I) * 256ãIF C2 = 4 THEN M2 = (63 - I)ãIF C2 = 5 THEN M2 = (63 - I) * 65536 + (63 - I)ãIF C2 = 6 THEN M2 = (63 - I) + (63 - I) * 256ãIF C2 = 7 THEN M2 = (63 - I) * 65536 + (63 - I) * 256 + (63 - I)ãBucket = M1 + M2ãEND FUNCTIONããSUB GetOrigPal STATICãFOR X = 0 TO 255ãOUT 968, XãOrigPal(X, 1) = INP(969)ãOrigPal(X, 2) = INP(969)ãOrigPal(X, 3) = INP(969)ãNEXT XãEND SUBããSUB Pal (Pn, I, C) STATICãSELECT CASE CãCASE 0ãOUT 968, PnãOUT 969, 0ãOUT 969, 0ãOUT 969, 0ãCASE 1ãOUT 968, PnãOUT 969, 0ãOUT 969, 0ãOUT 969, IãCASE 2ãOUT 968, PnãOUT 969, 0ãOUT 969, IãOUT 969, 0ãCASE 3ãOUT 968, PnãOUT 969, 0ãOUT 969, IãOUT 969, IãCASE 4ãOUT 968, PnãOUT 969, IãOUT 969, 0ãOUT 969, 0ãCASE 5ãOUT 968, PnãOUT 969, IãOUT 969, 0ãOUT 969, IãCASE 6ãOUT 968, PnãOUT 969, IãOUT 969, IãOUT 969, 0ãCASE 7ãOUT 968, PnãOUT 969, IãOUT 969, IãOUT 969, IãEND SELECTãEND SUBããSUB ResetPal STATICãFOR C = 1 TO 63ãPal C, C, C1ãNEXT CãFOR C = 64 TO 126ãPal C, C - 63, C2ãNEXT CãFOR C = 127 TO 189ãPal C, C - 126, C3ãNEXT CãFOR C = 190 TO 252ãPal C, C - 189, C4ãNEXT CãEND SUBããSUB RestorePal STATICãFOR X = 1 TO 255ãOUT 968, XãOUT 969, OrigPal(X, 1)ãOUT 969, OrigPal(X, 2)ãOUT 969, OrigPal(X, 3)ãNEXT XãEND SUBãJohn Mair SINUSOIDAL FLOWING TEXT www.algonet.se/~emden/ 06-21-98 (11:25) QB, QBasic, PDS 34 920 WAVETEXT.BAS'*************************************************************ã'Author : John Mair of SipSoft #P^bã'If you would like to use this program in one of your programsã'PLEASE give credit where due....ã'*************************************************************ãSCREEN 9ãDIM PI AS DOUBLEãPI = 4 * ATN(1)ãtext$ = "Sine"ãDIM TeXtMaTriX(LEN(text$) * 8, 16) AS INTEGERãPRINT text$ãFOR y% = 1 TO 16ã FOR i% = 1 TO (LEN(text$) * 8)ã TeXtMaTriX(i%, y%) = POINT(i%, y%)ã NEXT i%ãNEXT y%ãCLSãcc% = -LEN(text$) * 8ãInC% = 8ãXRaDiuS% = 50ãDOã SCREEN 9, 0, 1, 0ã CLSã IF cc% > 640 THEN cc% = -(LEN(text$) * 8)ã cc% = cc% + InC%ã FOR y% = 1 TO 16ã FOR x% = cc% TO cc% + LEN(text$) * 8ã x2% = (SIN((x% * (PI / 180))) * (XRaDiuS%)) + 270ã LINE (x%, (x2% + y%) - 100)-(x%, (x2% + y%) - 100), TeXtMaTriX(x% - cc%, y%), BFã NEXT x%ã NEXT y%ã SCREEN 9, 0, 0, 0ã PCOPY 1, 0ãLOOP UNTIL INKEY$ <> ""ãAlan King ALAN'S PLASMA V5.0 www.algonet.se/~emden/ 06-21-98 (11:25) QB, QBasic, PDS 318 8469 PLASMA.BAS 'Nerladdat fr†n Qbasic Universeã'http://qbu.home.ml.orgã'Flera hundra andra qbasic program att ladda ner.ãããã' ============Alan's Plasma Version 5.0=============ã' * Coded by Alan King *ã' November 1996ã'This program creates a plasma effect by averaging two points' colors andã'adds a random "noise" to that value. All created clouds are tileable,ã'meaning the left edge matches the right and the top matches the bottom.ã'ãDECLARE SUB AltrntPal ()ãDECLARE SUB Instruct ()ãDECLARE SUB DrawPlasma ()ãDECLARE SUB LivePalRot (S%)ãDECLARE SUB MakeRGBPal ()ãDECLARE SUB PaletteRot ()ãDECLARE SUB InputCommand (Cmnd$)ãRANDOMIZE TIMERãDIM SHARED StartRes%, StartNoise%, NoiseReduction, TotalColors%, S%, d%ãDIM SHARED ReportTime$, StartI%, StartZ%, Z%, I%, ScreenX%, ScreenY%ãã StartRes% = 32 'Starting res. Powers of two for best result.ã StartNoise% = 1 '"Noise" in the paltette transitionã NoiseReduction = 0 'Reduction of noise per resolution increaseã TotalColors% = 193 'Total colors. Default 193. Max 255.ã ScreenX% = 320 'Size of plasma on X-Axisã ScreenY% = 200 'Size of plasma on Y-Axisã ReportTime$ = "n" 'Report the elapsed render time (y or n).ã ãCLS 0ããInstructããCLS 0ãSCREEN 13ãREDIM SHARED Pal.G(1 TO TotalColors% * 2) AS INTEGERãREDIM SHARED Pal.R(1 TO TotalColors% * 2) AS INTEGERãREDIM SHARED Pal.B(1 TO TotalColors% * 2) AS INTEGERããCOLOR 1ãPRINT "INITIALIZING PALETTE...PLEASE WAIT"ããS% = 1ãd% = 1ããMakeRGBPal 'MakeRGBPal creates a RGB palette with 193 valuesããCLSãVIEW (0, ScreenY% - 1)-(ScreenX% - 1, 0)ããDrawPlasmaããSUB AltrntPalã ã'This section alternates the "center" of the color bands.ãã RndmAdj.R% = RND * TotalColors%ã RndmAdj.G% = RND * TotalColors%ã RndmAdj.B% = RND * TotalColors%ã FOR Col% = 1 TO TotalColors%ã Pal.R(Col%) = Pal.R(Col% + RndmAdj.R%)ã Pal.G(Col%) = Pal.G(Col% + RndmAdj.G%)ã Pal.B(Col%) = Pal.B(Col% + RndmAdj.B%)ã NEXT Col%ãã'This section copies the palette to the second half of the color arrays.ã ã FOR PalCopy% = 1 TO TotalColors%ã Pal.R(PalCopy% + TotalColors%) = Pal.R(PalCopy%)ã Pal.G(PalCopy% + TotalColors%) = Pal.G(PalCopy%)ã Pal.B(PalCopy% + TotalColors%) = Pal.B(PalCopy%)ã NEXT PalCopy%ããEND SUBããSUB DrawPlasmaããCLS 0ããStart:ãã'This section resets all values in the "start" loopããX% = 0ãY% = 0ãCurrentI% = 0ãNoise% = StartNoise%ãRes% = StartRes%ãRndmNoise% = 0ãredraw: 'This loop drops the draws a more detailed grid with eachã 'iteration until the resolution <= 1.ããIF ReportTime$ = "y" THEN TimeStart# = TIMERãFOR Y% = 0 TO ScreenY% STEP Res%ã FOR X% = 0 TO ScreenX% STEP Res%ã IF Noise% > 0 THEN RndmNoise% = RND * (2 * Noise%) - Noise%ã Col% = (POINT(X%, Y%) + POINT(X% + Res%, Y% + Res%) + POINT(X%, Y% + Res%) + POINT(X% + Res%, Y%)) / 4 + RndmNoise%ã IF Y% + Res% >= ScreenY% THEN Col% = POINT(X%, 0) + RndmNoise%ã IF X% + Res% >= ScreenX% THEN Col% = POINT(0, Y%) + RndmNoise%ã IF Res% = StartRes% THEN Col% = RND * (2 * TotalColors%) - TotalColors%ã IF Col% < 1 THEN Col% = 1ã IF Col% > TotalColors% THEN Col% = TotalColors%ã IF Res% > 1 THEN LINE (X%, Y%)-(X% + Res%, Y% + Res%), Col%, BFã IF Res% <= 1 THEN PSET (X%, Y%), Col%ã NEXT X%ããLivePalRot S%ããCmnd$ = INKEY$ãIF Cmnd$ <> "" THENãInputCommand Cmnd$ãEND IFããNEXT Y%ã ãIF Res% <= 1 THENãIF ReportTime$ = "y" THEN PRINT TIMER - TimeStart#: SLEEPãPaletteRotãEND IFãLET Res% = Res% / 2ãIF NoiseReduction = 0 THEN GOTO redrawãNoise% = Noise% / NoiseReductionãGOTO redrawãEND SUBããSUB InputCommand (Cmnd$)ãSHARED ScreenX%ãSHARED ScreenY%ãã IF Cmnd$ = CHR$(32) THENã DrawPlasmaã END IFã ã IF Cmnd$ = CHR$(43) AND S% < TotalColors% THEN S% = S% + 1: GOTO EndInptCmndã IF Cmnd$ = CHR$(45) AND S% > 1 THEN S% = S% - 1: GOTO EndInptCmndã IF Cmnd$ = CHR$(8) THEN : S% = TotalColors%: GOTO EndInptCmndã IF Cmnd$ = CHR$(61) THEN S% = 1: GOTO EndInptCmndã IF Cmnd$ = CHR$(122) AND d% = 1 THEN d% = 2: GOTO EndInptCmndã IF Cmnd$ = CHR$(122) AND d% = 2 THEN d% = 1: GOTO EndInptCmndã ã IF Cmnd$ = CHR$(97) THENã AltrntPalã GOTO EndInptCmndã END IFã ã IF Cmnd$ = CHR$(100) THENã MakeRGBPalã GOTO EndInptCmndã END IFã ã IF Cmnd$ = CHR$(114) THENã FOR Col% = 1 TO TotalColors% * 2ã Pal.R(Col%) = Pal.R(Col%) + 1ã NEXT Col%ã GOTO EndInptCmndã END IFã ã IF Cmnd$ = CHR$(103) THENã FOR Col% = 1 TO TotalColors% * 2ã Pal.G(Col%) = Pal.G(Col%) + 1ã NEXT Col%ã GOTO EndInptCmndã END IFã ã IF Cmnd$ = CHR$(98) THENã FOR Col% = 1 TO TotalColors% * 2ã Pal.B(Col%) = Pal.B(Col%) + 1ã NEXT Col%ã END IFãEndInptCmnd:ã StartZ% = Z%ã StartI% = I%ããEND SUBããSUB InstructãCOLOR 2ãPRINT " INSTRUCTIONS"ãPRINTãCOLOR 2ãPRINT " Spacebar:";ãCOLOR 1ãPRINT " Start a new cloud."ãCOLOR 2ãPRINT " + key:";ãCOLOR 1ãPRINT " Speed up color shifting."ãCOLOR 2ãPRINT " - key:";ãCOLOR 1ãPRINT " Slow down color shifting."ãCOLOR 2ãPRINT " = key:";ãCOLOR 1ãPRINT " Return to default speed."ãCOLOR 2ãPRINT " Backspace:";ãCOLOR 1ãPRINT " Freezes the cloud motion."ãCOLOR 2ãPRINT " a key:";ãCOLOR 1ãPRINT " Alternate colors."ãCOLOR 2ãPRINT " r key:";ãCOLOR 1ãPRINT " Shift all red values."ãCOLOR 2ãPRINT " g key:";ãCOLOR 1ãPRINT " Shift all green values."ãCOLOR 2ãPRINT " b key:";ãCOLOR 1ãPRINT " Shift all blue values."ãCOLOR 2ãPRINT " d key:";ãCOLOR 1ãPRINT " Use default RGB palette."ãCOLOR 2ãPRINT " z key:";ãCOLOR 1ãPRINT " Dissolve effect."ãCOLOR 2ãPRINT " Cntrl + Break keys:";ãCOLOR 1ãPRINT " Exit program."ããFOR a = 1 TO 8ãPRINTãNEXT aãPRINT "Press any key to continue."ãSLEEPãEND SUBããSUB LivePalRot (S%)ãSHARED CurrentI%ãIF CurrentI% > TotalColors% THEN CurrentI% = 0ãFOR X2% = 1 TO TotalColors% STEP d%ãOUT &H3C8, X2%ãOUT &H3C9, Pal.R(X2% + CurrentI%)ãOUT &H3C9, Pal.G(X2% + CurrentI%)ãOUT &H3C9, Pal.B(X2% + CurrentI%)ãNEXT X2%ãCurrentI% = CurrentI% + S%ãEND SUBããSUB MakeRGBPalãã'This section resets the RGB arrays.ãã FOR Col% = 1 TO 2 * TotalColors%ã Pal.R(Col%) = 0ã Pal.G(Col%) = 0ã Pal.B(Col%) = 0ã NEXT Col%ãã'Use this section to define the palette colors.ãã FOR Col% = 1 TO 63ã Pal.R(Col%) = 63 - Col%ã Pal.R(Col% + 130) = Col%ã Pal.G(Col%) = Col%ã Pal.G(Col% + 63) = 63 - Col%ã Pal.B(Col% + 63) = Col%ã Pal.B(Col% + 126) = 63 - Col%ã NEXT Col%ãã'This section copies the palette to the second half of the color arrays.ã ã FOR PalCopy% = 1 TO TotalColors%ã Pal.R(PalCopy% + TotalColors%) = Pal.R(PalCopy%)ã Pal.G(PalCopy% + TotalColors%) = Pal.G(PalCopy%)ã Pal.B(PalCopy% + TotalColors%) = Pal.B(PalCopy%)ã NEXT PalCopy%ãã'This section substitutes the colors to RGB.ãã FOR Z% = 1 TO TotalColors%ã OUT &H3C8, Z%ã OUT &H3C9, Pal.R(Z%)ã OUT &H3C9, Pal.G(Z%)ã OUT &H3C9, Pal.B(Z%)ã NEXT Z%ããEND SUBããSUB PaletteRotãSHARED CurrentI%ãSHARED StartI%ãSHARED StartZ%ãStartI% = CurrentI%ãStartZ% = 1ãDOãrestart:ãIF S% <= 0 THEN S% = 1ãCmnd$ = ""ãFOR I% = StartI% TO TotalColors% STEP S%ã FOR Z% = StartZ% TO TotalColors% STEP d%ã OUT &H3C8, Z%ã OUT &H3C9, Pal.R(Z% + I%)ã OUT &H3C9, Pal.G(Z% + I%)ã OUT &H3C9, Pal.B(Z% + I%)ã Cmnd$ = INKEY$ã IF Cmnd$ <> "" THENã InputCommand Cmnd$ã GOTO restartã END IFã NEXT Z%ã StartZ% = 1ãNEXT I%ãStartI% = 1ãLOOPãescape:ãEND SUBãRyan White TIE DIE SCREEN SAVER bigfooty@yahoo.com 06-25-98 (05:45) QB, QBasic, PDS 85 3172 TIEDIED.BAS 'Tiedieã'By: Ryan Whiteã'Bigfooty@home.com Bigfooty@yahoo.comãã'Only the best gets out. 8')ã'You'll notice alot of my programs have the same code, just a few differentã'lines. That is all it takes to make some of the coolest screen savers ever.ã'If you make anything cooler out of this, let me see.ã' -BFãSCREEN 13ãDEFINT A-WãCLSãDIM c(255, 2), co(255, 2), zr(6)ãzr(1) = 0: zr(2) = 1.05: zr(3) = 2.1: zr(4) = 3.15: zr(5) = 4.2: zr(6) = 5.25ããFOR n = 0 TO 15ãc(n, 0) = n * 4: c(n, 1) = n * 4: c(n, 2) = n * 4: c(n + 16, 0) = 63: c(n + 16, 1) = 63 - n * 4: c(n + 16, 2) = 63 - n * 4: c(n + 32, 0) = 63: c(n + 32, 1) = n * 2: c(n + 32, 2) = 0ãc(n + 48, 0) = 63: c(n + 48, 1) = n * 2 + 31: c(n + 48, 2) = 0: c(n + 64, 0) = 63 - n * 4: c(n + 64, 1) = 63: c(n + 64, 2) = 0: c(n + 80, 0) = 0: c(n + 80, 1) = 63 - n * 2: c(n + 80, 2) = n * 4ãc(n + 96, 0) = 0: c(n + 96, 1) = 32 - n * 2: c(n + 96, 2) = 60: c(n + 112, 0) = n * 3: c(n + 112, 1) = 0: c(n + 112, 2) = 60: c(n + 128, 0) = 45 - n * 3: c(n + 128, 1) = 0: c(n + 128, 2) = 60ãc(n + 144, 0) = 0: c(n + 144, 1) = n * 2: c(n + 144, 2) = 60: c(n + 160, 0) = 0: c(n + 160, 1) = 30 + n * 2: c(n + 160, 2) = 60 - n * 4: c(n + 176, 0) = n * 4: c(n + 176, 1) = 63: c(n + 176, 2) = 0ãc(n + 192, 0) = 63: c(n + 192, 1) = 60 - n * 2: c(n + 192, 2) = 0: c(n + 208, 0) = 63: c(n + 208, 1) = 30 - n * 2: c(n + 208, 2) = 0: c(n + 224, 0) = 60 - n * 2: c(n + 224, 1) = n * 2: c(n + 224, 2) = n * 2ãc(n + 240, 0) = 30 - n * 2: c(n + 240, 1) = 30 - n * 2: c(n + 240, 2) = 30 - n * 2: NEXT n: FOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT m: NEXT nããFOR i = 1 TO 260ãn = n - 1: IF n = 0 THEN n = 255ãFOR x = 1 TO 360ãPSET (160 + COS(x) * i, 100 + SIN(x) * i), nããNEXT xãNEXT iããã'!!!! BLURSãFOR g = 1 TO 4ãFOR h = 1 TO 99 'this and j will cover one quadrant, which I can use on allãFOR j = 1 TO 159ãã'1st quadãk0 = POINT(319 - j, h)ãk1 = POINT(319 - j - 1, h)ãk2 = POINT(319 - j, h - 1)ãk3 = POINT(319 - j, h + 1)ãk4 = POINT(319 - j + 1, h)ãã'2nd quadãb0 = POINT(j, h)ãb1 = POINT(j - 1, h)ãb2 = POINT(j, h - 1)ãb3 = POINT(j, h + 1)ãb4 = POINT(j + 1, h)ãã'3rd quadãl0 = POINT(j, 199 - h)ãl1 = POINT(j - 1, 199 - h)ãl2 = POINT(j, 199 - h - 1)ãl3 = POINT(j, 199 - h + 1)ãl4 = POINT(j + 1, 199 - h)ãã'4 th quadãm0 = POINT(319 - j, 199 - h)ãm1 = POINT(319 - j - 1, 199 - h)ãm2 = POINT(319 - j, 199 - h - 1)ãm3 = POINT(319 - j, 199 - h + 1)ãm4 = POINT(319 - j + 1, 199 - h)ããc1 = INT((k0 + k1 + k2 + k3 + k4) / 5)ãc2 = INT((b0 + b1 + b2 + b3 + b4) / 5)ãc3 = INT((l0 + l1 + l2 + l3 + l4) / 5)ãc4 = INT((m0 + m1 + m2 + m3 + m4) / 5)ããPSET (319 - j, h), c1ãPSET (j, h), c2ãPSET (j, 199 - h), c3ãPSET (319 - j, 199 - h), c4ããNEXT jãNEXT hãNEXT gããDO UNTIL INKEY$ <> ""ãFOR n = 1 TO 255: OUT &H3C7, n: FOR m = 0 TO 2: co(n, m) = INP(&H3C9): NEXT m: NEXT nãc(255, 0) = co(1, 0): c(255, 1) = co(1, 1): c(255, 2) = co(1, 2)ãFOR n = 1 TO 254: FOR m = 0 TO 2: c(n, m) = co(n + 1, m): NEXT m: NEXT nãFOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT m: NEXT nãLOOPãRyan White STAR PLASUM bigfooty@yahoo.com 06-25-98 (05:45) QB, QBasic, PDS 97 3397 BLMSTAR.BAS 'Star Plasumã'By:Ryan Whiteã'Bigfooty@home.com Bigfooty@yahoo.comãã'This is just something Bill thought was neat.ãããSCREEN 13ãDEFINT A-WãCLSãDIM c(255, 2), co(255, 2), zr(6)ãzr(1) = 0: zr(2) = 1.05: zr(3) = 2.1: zr(4) = 3.15: zr(5) = 4.2: zr(6) = 5.25ããFOR n = 0 TO 15ãc(n, 0) = n * 4: c(n, 1) = n * 4: c(n, 2) = n * 4: c(n + 16, 0) = 63: c(n + 16, 1) = 63 - n * 4: c(n + 16, 2) = 63 - n * 4: c(n + 32, 0) = 63: c(n + 32, 1) = n * 2: c(n + 32, 2) = 0ãc(n + 48, 0) = 63: c(n + 48, 1) = n * 2 + 31: c(n + 48, 2) = 0: c(n + 64, 0) = 63 - n * 4: c(n + 64, 1) = 63: c(n + 64, 2) = 0: c(n + 80, 0) = 0: c(n + 80, 1) = 63 - n * 2: c(n + 80, 2) = n * 4ãc(n + 96, 0) = 0: c(n + 96, 1) = 32 - n * 2: c(n + 96, 2) = 60: c(n + 112, 0) = n * 3: c(n + 112, 1) = 0: c(n + 112, 2) = 60: c(n + 128, 0) = 45 - n * 3: c(n + 128, 1) = 0: c(n + 128, 2) = 60ãc(n + 144, 0) = 0: c(n + 144, 1) = n * 2: c(n + 144, 2) = 60: c(n + 160, 0) = 0: c(n + 160, 1) = 30 + n * 2: c(n + 160, 2) = 60 - n * 4: c(n + 176, 0) = n * 4: c(n + 176, 1) = 63: c(n + 176, 2) = 0ãc(n + 192, 0) = 63: c(n + 192, 1) = 60 - n * 2: c(n + 192, 2) = 0: c(n + 208, 0) = 63: c(n + 208, 1) = 30 - n * 2: c(n + 208, 2) = 0: c(n + 224, 0) = 60 - n * 2: c(n + 224, 1) = n * 2: c(n + 224, 2) = n * 2ãc(n + 240, 0) = 30 - n * 2: c(n + 240, 1) = 30 - n * 2: c(n + 240, 2) = 30 - n * 2: NEXT n: FOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT m: NEXT nããx = 160: y = 100: xc = 1: yc = 1: c = 1ãDO UNTIL INKEY$ <> ""ãIF yc = 0 THEN y = y + 1 ELSE y = y - 1ãIF xc = 0 THEN x = x + 1 ELSE x = x - 1ãIF x < 0 THEN xc = 0: x = 0ãIF x > 319 THEN xc = 1: x = 319ãIF y < 0 THEN yc = 0: y = 0ãIF y > 199 THEN yc = 1: y = 199ãããFOR m = 1 TO 360 STEP 3ãz = z + .01: IF z > 255 THEN z = 1ãn1 = COS(m) * (m / 4)ãn2 = SIN(m) * (m / 4)ãLINE (x, y)-(x + n1, y + n2), zãLINE (x, 199 - y)-(x + n1, 199 - y + n2), zãLINE (319 - x, y)-(319 - x + n1, y + n2), zãLINE (319 - x, 199 - y)-(319 - x + n1, 199 - y + n2), zã'FOR d = 0 TO 10000: NEXT dãNEXT mããLOOPãã'!!!! BLURSãFOR g = 1 TO 4ãFOR h = 1 TO 99 'this and j will cover one quadrant, which I can use on allãFOR j = 1 TO 159ãã'1st quadãk0 = POINT(319 - j, h)ãk1 = POINT(319 - j - 1, h)ãk2 = POINT(319 - j, h - 1)ãk3 = POINT(319 - j, h + 1)ãk4 = POINT(319 - j + 1, h)ãã'2nd quadãb0 = POINT(j, h)ãb1 = POINT(j - 1, h)ãb2 = POINT(j, h - 1)ãb3 = POINT(j, h + 1)ãb4 = POINT(j + 1, h)ãã'3rd quadãl0 = POINT(j, 199 - h)ãl1 = POINT(j - 1, 199 - h)ãl2 = POINT(j, 199 - h - 1)ãl3 = POINT(j, 199 - h + 1)ãl4 = POINT(j + 1, 199 - h)ãã'4 th quadãm0 = POINT(319 - j, 199 - h)ãm1 = POINT(319 - j - 1, 199 - h)ãm2 = POINT(319 - j, 199 - h - 1)ãm3 = POINT(319 - j, 199 - h + 1)ãm4 = POINT(319 - j + 1, 199 - h)ããc1 = INT((k0 + k1 + k2 + k3 + k4) / 5)ãc2 = INT((b0 + b1 + b2 + b3 + b4) / 5)ãc3 = INT((l0 + l1 + l2 + l3 + l4) / 5)ãc4 = INT((m0 + m1 + m2 + m3 + m4) / 5)ããPSET (319 - j, h), c1ãPSET (j, h), c2ãPSET (j, 199 - h), c3ãPSET (319 - j, 199 - h), c4ããNEXT jãNEXT hãNEXT gããDO UNTIL INKEY$ <> ""ãFOR n = 1 TO 255: OUT &H3C7, n: FOR m = 0 TO 2: co(n, m) = INP(&H3C9): NEXT m: NEXT nãc(255, 0) = co(1, 0): c(255, 1) = co(1, 1): c(255, 2) = co(1, 2)ãFOR n = 1 TO 254: FOR m = 0 TO 2: c(n, m) = co(n + 1, m): NEXT m: NEXT nãFOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT m: NEXT nãLOOPãRyan White ANOTHER STAR PLASUM bigfooty@yahoo.com 06-25-98 (05:45) QB, QBasic, PDS 101 3722 BLMSTAR2.BAS'Ok... yet another star plasumã'By: Ryan Whiteã'Bigfooty@yahoo.com Bigfooty@home.comãã'This one is another Bill liked. BTW Bill is the computer operator at work.ãã'Wait for a while, and when it is in a position that YOU think would beã'neat morphed as a fractal, press space. Then it blurs, then color phases.ã'Neato This was made on a pentium 75 with 9 Lan apps open at the time.ããSCREEN 13ãDEFINT A-WãCLSãDIM c(255, 2), co(255, 2), zr(6)ãzr(1) = 0: zr(2) = 1.05: zr(3) = 2.1: zr(4) = 3.15: zr(5) = 4.2: zr(6) = 5.25ããFOR n = 0 TO 15ãc(n, 0) = n * 4: c(n, 1) = n * 4: c(n, 2) = n * 4: c(n + 16, 0) = 63: c(n + 16, 1) = 63 - n * 4: c(n + 16, 2) = 63 - n * 4: c(n + 32, 0) = 63: c(n + 32, 1) = n * 2: c(n + 32, 2) = 0ãc(n + 48, 0) = 63: c(n + 48, 1) = n * 2 + 31: c(n + 48, 2) = 0: c(n + 64, 0) = 63 - n * 4: c(n + 64, 1) = 63: c(n + 64, 2) = 0: c(n + 80, 0) = 0: c(n + 80, 1) = 63 - n * 2: c(n + 80, 2) = n * 4ãc(n + 96, 0) = 0: c(n + 96, 1) = 32 - n * 2: c(n + 96, 2) = 60: c(n + 112, 0) = n * 3: c(n + 112, 1) = 0: c(n + 112, 2) = 60: c(n + 128, 0) = 45 - n * 3: c(n + 128, 1) = 0: c(n + 128, 2) = 60ãc(n + 144, 0) = 0: c(n + 144, 1) = n * 2: c(n + 144, 2) = 60: c(n + 160, 0) = 0: c(n + 160, 1) = 30 + n * 2: c(n + 160, 2) = 60 - n * 4: c(n + 176, 0) = n * 4: c(n + 176, 1) = 63: c(n + 176, 2) = 0ãc(n + 192, 0) = 63: c(n + 192, 1) = 60 - n * 2: c(n + 192, 2) = 0: c(n + 208, 0) = 63: c(n + 208, 1) = 30 - n * 2: c(n + 208, 2) = 0: c(n + 224, 0) = 60 - n * 2: c(n + 224, 1) = n * 2: c(n + 224, 2) = n * 2ãc(n + 240, 0) = 30 - n * 2: c(n + 240, 1) = 30 - n * 2: c(n + 240, 2) = 30 - n * 2: NEXT n: FOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT m: NEXT nããx = 160: y = 100: xc = 1: yc = 1: c = 1ãDO UNTIL INKEY$ <> ""ãIF yc = 0 THEN y = y + 1 ELSE y = y - 1ãIF xc = 0 THEN x = x + 1 ELSE x = x - 1ãIF x < 0 THEN xc = 0: x = 0ãIF x > 319 THEN xc = 1: x = 319ãIF y < 0 THEN yc = 0: y = 0ãIF y > 199 THEN yc = 1: y = 199ãããzz = zz + .1: IF zz > 10 THEN zz = .1ãFOR zzz = 1 TO 360 STEP zzãz = z + .01: IF z > 255 THEN z = 1ãn1 = COS(zzz) * (zzz / 4)ãn2 = SIN(zzz) * (zzz / 4)ãLINE (x, y)-(x + n1, y + n2), zãLINE (x, 199 - y)-(x + n1, 199 - y + n2), zãLINE (319 - x, y)-(319 - x + n1, y + n2), zãLINE (319 - x, 199 - y)-(319 - x + n1, 199 - y + n2), zã'FOR d = 0 TO 10000: NEXT dãNEXT zzzããLOOPãã'!!!! BLURSãFOR g = 1 TO 4ãFOR h = 1 TO 99 'this and j will cover one quadrant, which I can use on allãFOR j = 1 TO 159ãã'1st quadãk0 = POINT(319 - j, h)ãk1 = POINT(319 - j - 1, h)ãk2 = POINT(319 - j, h - 1)ãk3 = POINT(319 - j, h + 1)ãk4 = POINT(319 - j + 1, h)ãã'2nd quadãb0 = POINT(j, h)ãb1 = POINT(j - 1, h)ãb2 = POINT(j, h - 1)ãb3 = POINT(j, h + 1)ãb4 = POINT(j + 1, h)ãã'3rd quadãl0 = POINT(j, 199 - h)ãl1 = POINT(j - 1, 199 - h)ãl2 = POINT(j, 199 - h - 1)ãl3 = POINT(j, 199 - h + 1)ãl4 = POINT(j + 1, 199 - h)ãã'4 th quadãm0 = POINT(319 - j, 199 - h)ãm1 = POINT(319 - j - 1, 199 - h)ãm2 = POINT(319 - j, 199 - h - 1)ãm3 = POINT(319 - j, 199 - h + 1)ãm4 = POINT(319 - j + 1, 199 - h)ããc1 = INT((k0 + k1 + k2 + k3 + k4) / 5)ãc2 = INT((b0 + b1 + b2 + b3 + b4) / 5)ãc3 = INT((l0 + l1 + l2 + l3 + l4) / 5)ãc4 = INT((m0 + m1 + m2 + m3 + m4) / 5)ããPSET (319 - j, h), c1ãPSET (j, h), c2ãPSET (j, 199 - h), c3ãPSET (319 - j, 199 - h), c4ããNEXT jãNEXT hãNEXT gããDO UNTIL INKEY$ <> ""ãFOR n = 1 TO 255: OUT &H3C7, n: FOR m = 0 TO 2: co(n, m) = INP(&H3C9): NEXT m: NEXT nãc(255, 0) = co(1, 0): c(255, 1) = co(1, 1): c(255, 2) = co(1, 2)ãFOR n = 1 TO 254: FOR m = 0 TO 2: c(n, m) = co(n + 1, m): NEXT m: NEXT nãFOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT m: NEXT nãLOOPãMatt Gulden FAST FIRE EFFECT www.thrillhaus.com/basic.html 06-29-98 (00:08) QB, QBasic, PDS 101 2744 QBFIRE.BAS ' QBFiRE.BAS by Matt Gulden (aka Folter) -- mattg@thrillhaus.comã' This file originated at www.THRILLHAUS.comã' Fastest QB fire! Probably...ã' Compile to EXE and it's like 5 times faster. The EXE should be included inã' the zip. If not, grab it at www.THRILLHAUS.com/source/qbfire.zipã' My favorite, at least :)ã'ã' A couple of reasons of why it's so fast:ã'ã' 1) Doesn't PSET, it POKEs to video memoryã' To do this you only need to DEF SEG = &HA000, then to draw theã' pixel, just do POKE Y * 320 + X, COLOUR.ã' 2) Doesn't read from the screen. Instead it stores the fire in anã' array and reads from that. Reading from the screen is SLOW.ã' 3) Uses integer division... Use a backslash instead of a frontslashã' 4) Screen is modified to 320x100 so the fire looks bigger.ã'ã' This is PUBLIC DOMAIN! But pleace give me credit if youã' modify and redistribute this or make a demo out of it or whatever!ããDEFINT A-ZãDECLARE SUB pal (a, r, g, b)ããDEF SEG = &HA000ããCONST StartX = 0ãCONST EndX = 319ãCONST StartY = 40ãCONST EndY = 105ããDIM fire(StartX TO EndX, StartY TO EndY) AS INTEGERããSCREEN 13ãã' Modify screen to 320x100ãOUT &H3D4, 9ãOUT &H3D5, 3ãã' Set kewl fire colorsãFOR num = 0 TO 63: pal num, num, num \ 2, 0: NEXTãFOR num = 64 TO 127: pal num, 63, num \ 2, 0: NEXTãFOR num = 128 TO 191: pal num, 63, 63, num \ 2 + 31: NEXTãFOR num = 192 TO 255: pal num, 63, 63, 63: NEXTããCOLOR 191ãLOCATE 2, 13: PRINT "Folter's QBFiRE"ããWHILE INKEY$ = ""ã ã ' Creates line of randomly colored pixels on bottom of screen.ã ' This will be our "seed" line.ã x = 0ã DOã x = x + RND * 10ã IF x > 319 THEN x = 319ã fire(x, EndY - 1) = (RND * 250) + 50ã LOOP UNTIL x = 319ãã FOR x = StartX TO EndXã FOR y = StartY TO EndY - 2ã ã ' Gets the average of 3 pixels and decrements, and plots pixelã IF x > 0 AND x < 319 THENã PixelColor = (fire(x - 1, y + 1) + fire(x, y + 1) + fire(x + 1, y + 1) + fire(x + 1, y + 2)) \ 4 - 3ã ELSEIF x = 0 THENã PixelColor = fire(x + 1, y)ã ELSEIF x = 319 THENã PixelColor = fire(x - 1, y)ã END IFã IF PixelColor < 0 THEN PixelColor = 0ã fire(x, y) = PixelColorã IF y < 100 THENã POKE y * 320 + x, PixelColorã END IFã ã NEXTã NEXTããWENDããDEF SEGãSCREEN 0ãWIDTH 80ããPRINT "QBFiRE by Folter"ãPRINT "Have you ever seen a better fire effect done in QuickBasic?"ãPRINT "I'll answer that for you... No, you haven't ;)"ãPRINTãPRINT "Hehe..."ãPRINTãPRINT "QBFiRE by"ãPRINT "Matt Gulden (aka Folter) -- mattg@thrillhaus.com"ããENDããSUB pal (a, r, g, b)ã OUT 968, aã OUT 969, rã OUT 969, gã OUT 969, bãEND SUBãAnders Olofsson DOS '97 (GUI) anders.olofsson@mail.bip.net 06-28-98 (19:52) QB, QBasic, PDS 807 53391 DOS97V10.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"DOS97V10.ZIP",4^6:Z&=39825:?STRING$(50,177);ãU"%up()#9%'O7-%1QA8AK#-].N*%%%%5%%%-%%%%xf%sxSkIsyL&(t:H\79D+Ukv:ãU"jWgi2aDMMOpT23oR2ap8gh+h0qTgh:IA.?O5\Gfv-Tkt$-s.B;U=JC?A+(1Ers$ãU"jt9<,QP,XrcJst2ssLs3)NIt-KtTNnHifF%D\\DuWXU-O+DdckZ&c&)d7+EM-k)ãU"KD)?/(V(=0*K?oV*bgE=l2JOWfOwJEPd#Ex:r+Mr+dSbNjlw4tVn0]egH40/nqsrlBãU"#U^DtdLsLI-6./L9.Kq[Qd(%z5.H_9*]qO?(FiG8DkG:,=;&Pw3EkN19i#;uU[3ãU"=J(n-2zUs2ODTVeYZ,)OTa[aR/GqVPa;>HZ\:46=ui_4[c.c.LvLp1\sPiSA#T0ãU"jYLLZ1.Y%n3Q(=L$\Yu=N'P5W(:&JVm&:ALEzW40?]eNt1W;3ScJNQ3r7bVIWF8ãU"n?)DF]%nvd8e>-g1HTeDS[2,wo^E]bO?,\aBq0Zc$4dn9iãU"*KG_.JWmD^n.iwo1/m8WCv:=TLa]NLs3C=VL]_.O*w$-lWEFk]?_>rgP-.?Koj0ãU"gO+o-GTxN3G3]n8Yq.Us)lQ8#5EUIWqJScrOAE6b^gMk5Hf\2clc?MX7l&MlGhkãU"VR4P/rA;C9(Iokv:LX?pH/LThXl3H[]'?W6u78M(x.?5X8O3$qQGp=vUgD>\HZ_ãU".$v>c]8DAo-7>ap1&N9Pbrh](+OUaDaLJ*Iqh2x;N$TDa92c4K>5'T;t^Y^pB1FãU"Qf3Dh.453bR*Dis$dRzdun$#YB)gdmz4-VXrx&]rTHYp9\N+.FYqFD'NH,Yw*u%ãU"p()9.%'O-#%gYM.G?x$'tN)%%%%-%%%,%%.%]']%SksyRrz69%Il5S%IXs+D8lZãU"77^^I(XY/Rjho(P1f9T?Bgj\3Sm/+,JZ3:f$bcd&5'Z*sA%$:1-(K9[a.3k-[baãU"+hJ3WOVCS&zpkM+rlity'wcN0*_wu3rl_)=Dxz7h$Ud%2z>g,?>)KhT2-1/Q9=7ãU"%:3eMdJ%UZ9bCf,su_eERM=g&hFFztuZid2cwZ=bpvdwSm0/&<&<[4I^O)y1$Y4ãU"#Q--)o&j&nXa]A4ecoJ5(PDBh_lg:Jk%T,,0-9]_j^I&Ad7IcP4BA(C+Ko_Q'/HãU"V^e\-k:TfWdifS*M)p&9q8q25/Mo1j&C-CC6k;o)N#KFuDJ37=+P%\B4ãU"l,AgF$I)RcT-^Oa#CvGymFNp*LV^mI<3gZ)%IJ#)eAZX'BqA$2'UoixMi5:uKeCãU"6xijaO87oKY,,R;V9ZrJ$XJ464VGgCiTXD<_MEJoGpeEkt.SDlj52M_Qn.hR*$<ãU"CQ\TTR5BCVq[l$Jc/UY^i['^^\&AitFK/7?7C2FjDhMD;iu4QQnk:aChDiec4S5ãU"6vEVStax]N1mx^oUo9VaD;L=AJx;Wa*%j4lIUYhn*LgTvA7ukb=/S/wjzTãU"1xi,8Ulb0ETNj7pz=aVd*^Fr1yfl*hUVJ_B$QQC=Dy:Ct(1\IHbpUn_vkQiJ&*6ãU"*%SGMKuzLG-HW[_V7=rTw[^PZl*T;VE.s8P>,HEq:0V/?x/f?'_)UX,xhp%8t:>ãU"jWv?UNf'%A>BrH\d)uDS%obrGo/k]-)8Xhe$B=/uNOwX2l\PPeto1'iFtjq5vmPãU"cxu7?DjgD,IXn$F5$u'F5EUXDn4['nHfmfkSrT44iZ^$Zs.aa7wVd8T=?X=Vc26ãU":M^dnVJk[GuFq(^FNh_davwAfcjv^&f,C4Oo\_d>OMH5r9vUsp[NUSr?\n\TijkãU"un4F[WV]WVT/7#7jrk^mkaIUv+QQju#.GCepA7h(?W72EBYkO%vrbZd>Fj(H.[>ãU"wXc].dYO$9]_B3:,_q?L,?\KQGl6?KGAmzqb#7aN3qzh;=8ucI]_Ih)S^D,&7#l;oXM3.VpJ+i/eWt_ãU"GJT8=LdSExqR>LTW's.#j7iVt2_M7VBfk;A[pj5po#:7F2)a\ON$A#a^0+2POPUãU"#.Tgxsp%5m'P'BMsH]Ugpd9Kd1IF]^]Y3Z]13tlpWeZEeG=[StEbZ0h6hs\hv_QãU"F%?n9Q8&4h9NJphZ(l[sjp/tY4$Wq]GQotLEei31]x)apii_3E'qyKY;4'l=ob:ãU"A_/aGxS+tgD:_FAd3hp%Yb[5CaC$:\=c5TGs)$PDdb-bZc-n'jkeoEh-D3(;S)PãU"naW\kqO+D;iK%a45]oHUJLNVincEFB[UGWossh,IkTWVP521-R/zNJj)ZXt0V/nãU"*ZSm<,vR7g*3e?IfsYeKQj\_V+7?hTuu\ec?P8r6(m+5w]bnx:(FDR*dZT;t2(TãU"cjT##Rt'bf-N+E=w'SP,/U6uuqC*1?Jwl_su;Ld?k^*oKEe-c68)0JpC)r=T?c;x^d+O?CJcAãU"NZ\OT-#R2H*2EyzrC?oQ6?,Zr5I9ped#IG.%$Io9#UGxE3UsB.lguW3',?Qm.guãU"qAXK35,#mQK[qF9RIKf)$>xqM4fvQ8g'MXecd-%7)ok*[pQ7'5Tom^82V?681c_ãU"Lw'F29*=:h.:L:*>I&ay]pacITZlwTGVc1#'DI$/*bn%%tLoOsF1N&E#/._Cea6Lj[PIhu[>lN:JjJrLbkME3ãU":g7za.g\c-$w(f'gxO$dzQFa8MsvuV.y.A#8xX4Y>8nllcnU4J)ãU"Km?snH[fc1ih*4Q,$22X^TfPhk&:Q61m'660Op#jgj$ãU"lA'dx,p\u$lrrdtT.wXxLh>^Z_;dP>^h2W2>(lZp\L6sbvSc*_>4AlieB2>2OsWãU"Sls)=&%Bpa-ACJ-YhhAUYpj_AZWefqXkn.tooyZ)_YwC?r7D[=7#dPl+Ng9ZAc_ãU"w;=Trqm%/*))07fxrbVKtIh#zO_G5K)%Pl%&/0?d\[+5]V%(bi[C?-Ln$5-s3^JãU"yuPQ9Vg?t&>;]xY>mv-tUlf)Q^'q)ãU"vY>TYUYVmCFrnndDiD\R-'w'J%/zdteW5sKGYu0';i8B]$^0'HB>^xs4Yf)qGt5ãU"W9[?\Ir&Zkc(Ai2Xld%c*;[DpM[mea2GH7.-eRf)GXdX:SI3DHJ+qjWnOJ^EBTsãU"3_\#l*P^#0>f55nKD8mDmCdVbJ/mdu=Wc6css?;aJ6JeLRQdt:ãU"^ET*P>QJfL1tr2SXt7'%sulju:WjAQj>nYLTK;bL:umIaoWZ,lRP'x=Hv\F8.Nqzge(/lD]qQX,O^O$T,p7ãU"(7Gge3ZUE30h$kbt#pxy2r%$v?/t?w<,1H1[C$lsFqKv+\f9/o\,lvZkK9q8\JBãU"+#Dmg1N-stJqlnG*Z4IkOeTJFC8]^xIx&;a\G+'x?*K+#$pVWSVwHueq>ãU"YHlFrlwv;sMdX%:]&f358PX2Ad^FwnZJ[VCL.-OIW]Ip.Mvid$/<6-)LpK+'Y6sh26Si:=Okl5G?-??9ãU"j:z(^wcqwJnbI6/PcZo*obI$DC3m/%p%*z5C-m+7a_/N+[k?LZ^.l4z/tF0jfWYãU"<>Jb(*^X)YTj8Gb3GP0]A5zF1S3:gdAWE18ke%TjD0VFaE9ey:^IsfãU"8+7->=l_Fjp6ãU"F5h^qAspx]UdbRHP3^>]GS?v>o'dOmmgãU"M0.Hx^%$^bbg^:e'tKmTZ-ZZyOMt3srnhY$0Qz_JZC59cMKWCohMt?R\#4b*&;nu/l+E$xh?%A)#$gLZOB&a-Y9[4S\sMãU"T%hYq2;+^X0/SYg_Rt$Fms/Gq_:?#WSJ7;G.FcdNIrZmc_q-F6%/3LdO*[)no+fãU"ovcJJHQ3#E.1Qx*o'm)f93sW(lKO]%SGihk\nC,V6HFcE0aSydSiRm7RF[%ufofãU";q8_&bR8ãU"DIu%MN*dMFN:odKo(vdIW.nO9LeWP8L.YraI_las3SH\Jel#45v5j]2wh5jqU.IãU"Uvj6Xp#vRYn4(j\VuVg=SLT*pU#Ehi;\sk;HD:?1r5=$w'CBRPkgu[4FHhD'n2$ãU"Y&=(k#b$nes(_NzgXpãU"A1(Ts^%QB8kbi9KK\=ja/tGkI^3^fO^=B&Mz?>b$nfI1PY-5:i85#Jz/(ymqh7VVkeãU"Xek.670A'aCVpSmIZfl(F'[D=dA>&>p*EGtpa_bSc[/8iORJG'gJCiZ;EDcIC/mãU"b#5w-mDd_ucRanA6dCG,3'&bBRo,8:0%qsR,iB$YLgv4knl.GQx\&K7eTV\ãU"6>l>EL(8iC=bn2-W-S0QZqG[?7JUaq+_UDJh&4Wc.o,WRJkpF(\i'T1tV;EN[xlãU"BboD&q%dup(%)9%'&O-%IbPNIZV71N;\4%%q&w&%.%%%%i%tx^\%SgfxEeLrBjHãU"2aQ8(BJd]9\1&CC$XcCCzmYOyh7E^nYyL8r;nmroV?dIhnSsfSKz-Oz>%:O4tj;ãU";naoZEh;cTULj<=7%Ah2_aVIBEW?ãU"$SzlKZ[;YnBS3>Xs/8A$U=GWJvop%i?1>0W&V0GpFBCZ?K4G$6+%;ãU".:J81OYgQ3jf+g%G$BQWm;,]pGL]G48hN]RNaa5c2$q31n[JdtfeH2];Yd0E0D]ãU"'%gJUTEs'QhGXmC7+fXB_DSGr'RC-(J[fW/G5eX>R])$4b)_[jQ'FHSW+_T'X?fãU"lBzd29LLlhU>6tOP3Yb%li%_:,qcI)r8k<65UeT]A'xRM,OSG;\p3YYYP0FU,q6ãU"UEtzE+/a:4]nXF+TNvSQOax;Ww25l5EHMeS[S=41=E5LIcV2Vb:^M[Kb[fQ?po(ãU"E\YFO5dW>7?Dgu%vX_gl_jVHLdU'5ar,5DLQKI2\TKl(s79b>ap9yrMvB&OmwF#ãU"C931ePkJ*ibW=4Z&A>+P5A2%uSF6r?U<5mFRL1/nMSZ*iPYE8G\Llsb_A$uo7nIãU"7.hqck&/rY[yOv:YuSsD%>9hG];Bw$>]l?$BK6TxhJNfm+m6pW],ga2?Onj3Be2ãU",nKmUg7GSoJGNDV&Dk$rvjfO-BYzR8VA6$XDE#bSBWrkUQRt&YssJ2q?fider4nãU"Y$PfKton-87--YxpIL&T\&Q*Bl_s9JH$83<:Nkc5s&IBT><_cv$>4xssICc/f8kãU"il=g=H?;]52cJO^va\4g3+%c49HtfpF+)$X6Y3PT8B%BHvA46eHK5pTpQwjRt_)ãU":4>[Y/2Jdw<8oBZP\+M_X9A8p=Ft6-PPE/lII1[Le)*.Y:$vGM4lddRYn0j6rC:ãU"$,3foc''kxc-v;De>63H&DS,b]1plQQRb:ZWLGMKTnp[l,U_q4?9d$/r2LQ4sFX:(,A.2(mãU"Yfc\[6CM'v6f0xWl?bqfSOhSDE04T0/PlskbbhJE2Q7d4(nAzOr/7',9g+]J?4gãU"asOH?O8;Ju]H3.-LX8kA-[hBhDtafiXlKY/jA'G(9suEZJur:Wp>vF+DqireacAaãU";NNFc)P4g6[ii;Uk+RZGv:G[qDT#R4&s[AL5#Ao&.=Zu,'N.Qq)R#d7J:\lbpcuãU"I6]c>=:GfZ1G&:#wZjWEhQ?gj<.%CM.*,b]boc9Cf<#.-.Rg2oABS#fd0C_('VQãU"#Ginvn57\fHMoZ2+blk^jq:\Z/&3ta+3&%xwb(W6io.TB>.SaG-^mEpa;N(prZ1ãU"Els/nmAHDNT>9Ok,TR#?7#ks'Cv7_o#*H?x[ci[::N,KEGthBgZY[;F[MiãU"\c5%Ay1K)c(g6Up^k_-t=OJ.%8+%k4n)qJ#QV?+R\okJhZT;f2&HB<3$Dr.V3PGãU"XLNndAiFEwIdt1U0+BahV?xVvGWA/gul-1d192m;Mf\8V'nK*6<)D]A+[)H]D3\ãU"//&tN]Sr']75KcqmVFNa9SJN[yJX8WzTUhdA_WaW?n76)kN#PS>Yr6]V:t-%8r)ãU"eiE[gN&4O3%7,HANVI1w/E2]kNLB(el-6gp6tPA^hIrej>4VYKYpm';J3p>$p^7ãU"^b'sO.dTf_0cT,L/cGy3U$Dd>??An(EL;2nFb:bQP:(e^Q#^;Lc[0l&N6INJ,e5YJ4U9ãU"bO#u)gIgNg$(mD?QsoO$)(dn]yGQHI/p#A_U&T0cLr8K*09x#w%u:r^>8_qbRsmãU"g\D7eLD'XXt%h&?p_pYaY8T%oh\DYa[.e%?hMuc[adF9ãU"i.<8J;[GNUKãU";cLBnnaWhWh#U5'OU5&d[VD;RmWNd:iuEl?jZ(iC-u]WW-Y8;;wBBF>^j;knka3ãU"2d?U]bZrJuv_3-sL?NMbs%ICSBfE[3P^582.i.drs%/n(BfEkHfS2euU4G;cHM)ãU"NQ/be1W#/4#n4)'M;K&hm>VJ/E>;2b\lZN%XCqM#NI+00h>mx_rW>&l44r>B>G*ãU"\8z\0[[T2V?0KN5p%>8VfJ5Ry(TsY04N&N_*>IDI%FYvoT7JãU"P#()6TS[Z#qG_6BWcklFU]SgYc3CcL,nfobhpa[qG?U8eU5%5Q&1sLi.Bo8/B)jãU")H>\/CUMph5>IL]Z.qL+'63kjdoj(57:yy[Kfs1_b],j3REKIYk-'ngf.kB>mV+*).^gK,ãU"tc5?eHqX_ktjlio=Biw4OQ2%Gqg^3aLj$s9nJS?^4v5C:A4e)WB)asK]b=Ta8A$*D;niEM?vfb[XPoJG$nA;WJl:_85ãU"K,R,>I)#Zj*h[90)a1x3_B2:Q:%433OtNjk>8GiGL>BVk[ANXaVJ0B8HKf_8PB9ãU"*BALCBCA.(*NhAO+>mPniP<%awJS*[WCy3=&\8'Qj'8GG'Og6)0e*IGUxWm8FHXãU",1]I(IkKXfnx]Z?\8/x=4+n'$V;w//bOl?iI0dD(/tPag&t3'b)yrMOZ,Wr[ttYãU"IBnVrr44v\i^*4ZD+ZDqsbCMRPLPdJO#*L:WO\M(M:,U\?%eH.dg&fSA.G&cKzmãU"ZEstdZr07jOI;0)Di7QPvasEK33TPM(K;EpZF5$+bc7PUqg:/QYP9buTGR8U]I_mi1Q^Io&Mk7Ild)4=;G/rQ$;RãU"6C:^E00+PFM0cA)e[W7w,JR[98z\bRIoIIpm?8Gt#o=gZs5/E*Ag,cQ$KwtesQ9ãU"cxpb'SUiF2X?jSP;'o\uUhG21DK$,buNrqfh?fz35^Fdmn42HETz)LN;Y'Jsybp9L&T/Tk;G#cu:V-S]Om;Oy?wGãU"\HNAYIv2EdE(R.BYyu^YcJrBãU"dPi/TWE?352G^S.RGt&RRJz0rWxCj]?+o;BJ.qSUYrh4TKHQ#7u&'TuBx:nK*S*:r9I,B%s#)z-h1iNdãU"bB3ewBU[Cq/sNpC^yK95k5NdjjYrc&)J),VXmCQ]C9X):gtbpP.mF1XVS2gBhN#ãU"XE,dHiZhvN&SURs-0/W]9/2sMe3923#9jBd0%NO7kH7C%+b$)$fTKlA0-ev+C^fãU"jEg7g0Z-(mvYbWBVTWJ([;./;rltAoV&Z;m58]Z8&tq,:-?pZ%Gg,+\]gsh[5A%ãU"h-XAF;F5bxEjj<1tL5od.=la/66t).*1*P,WI;I=c9:1Z>HwYDNxm5(lkyJz]sH8Y;ãU"GekKA=.T.NO>=$^QSkpNdFrW;d\n2p/Eg[a;x3?RrjBN^aAeghF&AKu[_<-gL1MãU"8>&vEGEg0pP-Q42cixY=poZSAA%Gk\t#=Tc$F%VhCsDO8Uo/lc\p:x?ãU"JBk6A>h>ORmC#]^VLW?C#\][cEo?rY/YHA1RO6_.&qx1h9Mxj1bK6ZTF#CC&,Og2koB;9E0mqQOve'[cA.gmjn]X2IQNVãU"gB(20kq$*mVO6e>:*Qwk>QKvTILQ'nZddZkH4P:p2/-zP*oQ*n70kJN+iO#BpFGãU".6OhJ,u+UL1H3-tex'ir/]icDGl8?/KA/*Ip\F8$kDCJ0r?agr[Mp+Pq2jeqGu/ãU"ceijkPq\/Vw]8\Ce)jPcq)go1IT6-Ms8%dafe6&D:^HQ5tiPzHofGheex1A#WA9ãU"P'.kU2(Dz:m;C?#8JQ)Iv$_huN*AOG(Rij#Pa8FUS&W)EIJ[/7?F5sI--5G1iSCãU"xSWo?Fgr85b#*a8\k5?8(M]c]Wnq[^i(JLW[w%ooa76$V+]'fR$7&lY9ZXMcP(gãU"TI-VR%[[7e7>gdx,IxI?d%>'3C>8h8o26b0u%chPb0oIDP>Y++M9Atu-dw1\Tg*ãU"fn6BvKf'xF*sk,VT_3]obX?)P1lX$bFV'4+.U(>>f']9].-PF9)MF,P8jY_w71#ãU"9JkQ%RoXj$lUShg0QP=Da0fg?AU^m)1iNr]#jlQ%LV6/C15tS',4sB<)X=>uU$/4tkY059)P.1cbY?SrT/l[/4:305XãU"OecB$no:-=9RFpn1%9DLACZN65?N:trm%cgWy/aiWLJG3w+]>%XmSpSU$,08I*HãU"kz'9uX]tf5Xg9)Pc.xtHU(wIH+a8#lGv]r?J#d[5iX_LN=bU?+fH<:4\K#RG#6fãU"PYdR^B&l79S9Jf?gj_IY5b;;o[H0Xevzks\f)0\Z<_AãU"u*iWE1,G2)rn$^pgW/:45'=4rnYrQktJNS\BwvDRNsG'jprSe]bh%B-McQqo^^8ãU"G3F0$#Gr.Y=9uR1^-M2V/]c90k%?JJZK0Mx2EM*Tx9dMBT:Nx.j:n,6IB.zH6\qãU"=^utAVci0F/;SE#3>M_q?%;5VV1^&=7l*O7[+1J:WK.q)3^p3v6a]5ANUDB$Y/,ãEND SUBãSUB V2ãU"G4\AwpaWMJc?M^8eP)iu&;/_+KoPX*_$e8v=q*Z]&%Y3\Bq+1Xju+q)BZlhQ^UHãU"zWMQhA9DCH8D=5#D_W2*XPB:(2c,7&'RnisWooGRm6QF7Z3U[<76EmPt-bi/$KSãU"el2]eN(EpUBuH_LVb9gl:[4>iU(gx.q2d?$#OEf/>%E_H:a9/,k^>SBocK65+V>xT6CrGC?S.SQiRyS\DLgQ*i=#j-rp4gh]mdU\*bIXwDIPrkãU"mu/r:50P'V2hHGyUCXS\Z0[08:Rro1(j',r_lmlUNCG-S/n2'#=])^WBl9PX^*HãU"HMqgKV7;K=8'HfWM(+;W'ZtIyS598FLF1.'#PB0W)9L=%XHKnb0kg&KccPKa=6FãU"mWZU(GH3sHmaO:=R^h4wtyZjZd/aUD;7zj.YV.l9Eg]S)N/%RH<2pY%riLhEd2-ãU"Vg*)hM(9q6_;RnmWkp)d0D*;f(ãU">8=fX\kRT:qSZAcaSuiekxk37Z+023qb>[P>%A8gU[Xx0jv&YmqãU";L$HpISha/%;[0>EOuQYq[nB0v2/u$-C+OQ+:vs%--TL63^o9AW'RU[H>3gh0<-ãU"3Q(d0mB3=u\l-L[G6_]&pHptnH_Lic7fNJ:>Nu8d?miFRj[]:QMa0KQ5-']0)aNvV2GZhNy(E(v-K(*IW7kUV0i_OVwJQqãU";c'rB)\5RQ6*MVhYyr(;c5]%j13hdVM<_AnfIZN?Ss+N9[$s]&1rSSEQãU"Ns,An$T-ig1cn8;9Os?8o)O9$XU7-+8WLpCU/RHEggpKXh5SQ9F7(_q$CDO$GE.ãU"/Oe;ayOOU+Zc_p3O5p5FuFK/GX:/#\b7l=UD%p^,.s7lNvH'2t%BO(M*$:d&1P?ãU"vv?lvUo>hY&?,O46Z\;E[sk?D9D<.$#<8m$tgo.J44WdX,9\(CVG%HP1cSD$4b&ãU"KpCKDdRl+f=EXCek*['Q1X^T0[Poidu45er.J,CFlk3'(m;\DdY&De>*)I:a6$MãU",s&I2sCP^=OKe4325mrs+&Y$M[W>h)L_4^&bct[0L7fvH#'teA1:Y?Nb)ãU"T:-k=^]Mf_s(s=6#[fA-RA.;>TPp.YTJ;Y[H?cOH2bwLggMxeJ)lAf:2:^4V'O\fzmb)EaVPcãU"R&hDT1ZLdS=.D=i\=R:?Jf+C;=ul$oD#[ãU"MxdJ9u]o&U,MXuQpC1Fei/T1du>+c>['InGiY#$EY::V#k$U::ES#N(n,[OGcK*ãU"TM7l^UBSi8a]97#.[;UyX_Te=^'-?>_%24WJI07vZz\HsKxrLev(0ZqE]/jtuhOãU"1FRB12gRe^C7ikC#K'jC3JLK$NJ>(_F.hF0N\'j]e\O5l3<^\C^_5M'R5FrtkEKFfi0aaaMGa-=VDtAI0ZeD7vjãU"1rEoVC=vuJ2W3L2Sj=3?si+'la]O^O.]h[QrGQ^k.vjt3[H-3V^_7P9'vkJij]#jSq.J[)93\^?YW9e^%AXTIT:QMãU"-Vz/[n7//^YU>Yg*,U*=/'hEkiJD5no'*Vr'FtnfZ%M0GVn+M9i_nk'(c_9gUl%ãU"6*Jx4_EiJYQ$xVlnXCtS/$9a3<7biUvoVDO4HVsvvKWfgu(T/+1]7vDn06L;#U2DGY/8T\$3VYTcexsvh7_fN7^)o);=rW>3]si2%.Xe=U4B4QS'XB8W9?oãU"]e\rL5zNSIZ_aDga1DMWcM=:5)h]u[obm:BCo_gBg5;Wjh(Q<:q6n^ZCe]t1u'SW;brmãU"0=d0:-(>D6J5dBwyjt\N,vbB#OOLunmV15u>u\c*Fmn7,GAb/SvJ%/B:[l\^GOuãU"jG/#h)Q[g-%wR]a1e0(Fj5T*Z1E5qJOY6^r.Y)6DCU_h_9rj)/_=8Z&$*aE-hxTãU"An_7gZ7lr?e:D\Y\>->N4)-q_J^:>aSoOCK2_<[9iHl6=XAMTdtm7Kj.ãU"nqy5'50c_T\Bl?*#HYZ6=:xu4gh\HEmYfZ1?5,Ho[Bsm$A4nãU"f_/K'W27m$K/q4804a?Vq.[E49)p2'E:keUWF(luu.vX+ynB.ACEQ1MSa(F*jbBãU"*sSSdV%$K$>8Td?.i>Xov%&[oe>2556Ckt^BH>OO^p+-d]7G7LgYi46?dlP#>eTãU"g(2[TbC%qchSk\HnVA*/Y.vaRe:,/9%.VPT2F6AP<^^Fn8k,,>';2rP%lP0afq$iQ=+OT$_=d-Z4EjW<:b%jG5+.b'A=npZ<+]pe-837>4L,1?VãU"E,'cLrj,)ScOC*9J3oIA>Ru'4]G6z1_D,he%Nd0aW\NWX?,)V?%d0a=,lHP1m<(ãU"*nDcVLK3^b-4/QixbK-9^Co25*VQla=D,Tsb4);DWAY$RicIvwPnXVWN,Y_U6QuãU"2xv1,Y#+5?Q3Se?'khCu)rP=\>D'K%lDUcr7Ir[d7d,+:t6iF2f_c,$INJv&f=1ãU"_G_qT.d)Csoq5RcTZjB';CrS+6#BSW]Tu(Yp9)(89PXp5U&WL#'Q+:HW,-Bk6Z.ãU"^gd75(pOlEK1f+&t$.9ubYh&F\J'p:?99R^K\+ecTK#^E7>$&:KT4iDHQ#\/k'.ãU"AL5sDd+kF'lInk#\uM[ãU"]ljUrHU+eg%TbmY/b%Zjx%qVfWY6)8V:Rarj(/SgFruBumVg=.GccDls=nPL)'QãU"9l+Ek+*%wxA+0H2hs+a2:.%TeaR;GE/3Xb^Cs7MKr*XLA2CZqZ?qsc<*Nl=WgãU"A6[[AUCQEm2O?x5D3qb-T75\T#L;_9CfSXJaFT\OCq1nzAPn/m2+OzQBXMeanB;ãU"[b2TGq5f7E#;o[?DLIm_/LUB%'T=1J:>M[+&?.pbN*ge>k3P7.KHA666VgV%yOYãU"V]1V*G%U+j$Ijs&A-09cE0=lMaP9fkK#6K77:%FkQ7sLqr=[bPohD*k<2U=YITfãU"wM8Qm&\u++7GSJ?ilQC_(/z2TE\t?FOhmm2HN/\5c39BTMA;*YUb<.YPTBK.u;pãU":S_9QPP^LwuzYjb#mLKSkI49t2BI3oMR&-fkghR*IVwrt7TQY-$25Snmx(k^QjI6TmrCW>.eqI=E;q#O:ZsElrj_5]v/:OwN=86AKGi\9a\MNãU"&]g31_YlIl[=U(H)>GOc4NX[u11'*o3D/NfF9Tk%HM>YnkorZkgq<\nm?OksEq;ãU"akNt5Q;7gbLS_S*4beoG;$0>E14A;Yd=s3WvCsGP;]6;du1myY?lM?>0/dToSRuãU"goq;gsi1=O7EJbXb\TlkHu'$REj#R$Xch>hSDgaEDT-h^:o8-Gg5s)up]?)><<&Bjwe9GVHO+/?kA,:p>:3,J*z28DGzJ[ãU"&=OFLSW#4&Zye)mHw?4gKLK-;]cF[*Fz&A+tDDYVLb3mo34kg;E0MfKIoo_+aDgãU"NjpE\kmXd\LAIB^/ErJ-Z-ups%L*Kb.]94^oH9.i==>xbYx5w:rih$[p,neUR$#ãU"D8uYu\N1qxf1>zOFVPwCkn.kqSDAtU(8h-8BF74rqFZFrarGa^;%?ãU"Ir[h_>[\Q(tI]aU=lm3L]ilnlk0gfMFF(Tc$ZgU2_Uv4sK(20$IV\\B,Ft48T&EãU"4Qub1jr-I_RYM/0e:DZ:\YLNAR:7'DHudf([$L.DJf'L8oQUofm/5XH23($hM)fãU"jvSE:9.>gii';8:P40'(djYjr&;-AqPHgSVk)UgW/yhVA_p]lbS=i&dhb)t9GRãU"pVs\LU8/<:b3,BhL:R0([3(dAR/k&TG+0:A%g4cE-U4bxãU"k#Gmlrtq+U1%tI7Uv>[Cl#XgZ=m^GN:W$-y9/^;esb=4lO1oTZt7B:yrWH7(*'uãU"Uj5_%,Vk_WgDj<#+P,\u-&PqakTVj9=R=26&b9sn#\O^b4mEu6-NP%sãU"4V\G/C//+&Gepki6jm,X1+tX>6(CJfBiabQtQ:78Q,cGd*N3Qe7eHj(>RTSe]YHãU"#lYNu7u/hGv$d/\aSc1[#cQNF6p9?F2r55rPFOB&p;#/ghP%Fl0'9KD='=&ãU">ls_]azb^H7yKLrkO[d<-;BdVH?DR%r6?_$:bFNp>Gp9Se9e/-%'AiT-&5\YJC-ãU"9KbQG>7bptO6XI2/w=IaL*RQD&b2'kJ/0ZzM-4)o5pqGn[g_>1LãU"L.#8JMAt[8tOP94=L?a6T#g,+M6XVap\E$l$pL.;W35w$c=lR5ku[[f(dv.UBB4ãU"e7EQa+BuIBOfYKHVcQD_zR=X]>fh66)ãU",Cerr]-*+OiwU)vSdA4cpe#$Moch,:#fhVYOzNpl%jrx+GhByDhR<ãU"t/Rnac7H(%tD_[O1o\OO+L8Ky^0cD;9*G2Fay[_o\:h_3z8GVoVz-*.E?_i=kgDãU"e]o*U_A0Cbs0Y'&K$+spcABZW.Sj1=tV+KeN;l>/ia:iZWIaIk,nu_1X^pbrV+bãU".Hl&'ZVA70&[,cDU2mtE=7hhPaWa8qmJ*t4XR^w/ps&Ze5n-c.9((j=(Ro/;CMiãU"A[qurd'gP)/D8arUQQZ8-=A?ãU"2GpS6]:OGx1=3k+*f:\wdiUz_0^.NF&lM>WunJL(6#uhBhAaOqw,t'NV_cl(aStãU"8Lfwaw='\>*.Chr3E:O4[tuK%F17+X6VbKLH$kj2]LIQLs2**WK7Nko7Y&;:^BLãU"Q_HJ3FO(_A[P6KKaG9jI,XiQNXtH2r;#A7Y([AOxAV;]ZpBqeOU.z1=bLcn&6SJp263_0JMM_\anlãU">+XV2l'3tvw$fzH.fEOC]:6KP)_:)Li'ex\t6;Z_ls$/Cn)se?,DM\Gv_Hiue=rãU"#Y/u/^9hYibwãU"JC[kLGY)PimGghOVU.mVIVeF?&4;96dG#=M;8A]P0m/omssY4:,.Gd?uL[,+y?\ãU"R;GD3D5ETVzit7Ss5UB(DI'#n>bQ.ljjq7&u1[09OmLK\g-SA5?&(KFK_.P><_nãU"AA>zT.9z-rN%x+MU(mS-)G9DF32BJ7K1Us&/P/N+P;]M&BOZC\ao7;EK2zzQ*$qãU"nS*%J\_hcCFDBb]FkcpF1qf$v#j/3v7_2r%;e/B9(UbTAf*#q7][/:e%:gV**,;ãU"Y/*\^H:oXp9OgãU"0+Jbeu/%\HltU1i#+(8;?P%WFx1?-,Nw<22Rz$2Ym&eBjqpS5mPK/&GHXSo2Yf/k8cc2PpU7BJ.^28&&4ãU"&sY2PPDXHpJB.uO+hKf=SY7oKfqm_B$]0YB:]53,=4ug6T7*1S8*kr>rV(zAAEz3C9T?sIP>g)bK=d[rc30&l;PGFt]set1lHIxD^8i?4r,cFA?V-WegLY-bmb;,aãU"J)[,KSmBh:uSmNc;KhO\f3d[%ZMQDj'5lEILRLA.5#),?^MS18pUWWOiK#irz3'ãU"nj5;%0oWOi8m)[uSE=5lU,b7mNhy>wrth]?\,gjPNarkqf4LCU7YAsahKZev,LhãU">O%0]#z%x5ZZ5bD))Vr_G(&w5v/svW:bCQt=tQ2Xj\^,JNWf$Jn:hcG/c<)qNEdãU"KRW$_+s\c4VURr1/=.]mCk[7r*MTQ8[u\38'Uu7,uRPwtTAv4A/=3aQd4-e:J&(ãU"i&C^H2_myItQt]vG'2177B(m)We3:3P/FQ06Mun7ctaHjk>#>+G%<*]0F]SiT85ãU">2.qf4qfT?k]WSK/+/O>XqoB]=oa&>/F&at'_bmA&Tp_/JrjNL-lkjoibqG3ãU"CRQ;o)[9Z:;W'$/fOI,7eGEJ]kL5+(CM(+&nCn'Z%=hQ_FE'qdZX2#q3csAuGxbãU"\eD/$9YELA)x_03%r(Qw;y%*(Y/LOpGM?.k3'ejM6OM.2%weTseW'f+]\p58>h8ãU"b5XU0e?^F<_CiHGNuiX+4\0m5YIXBLjCHw$4YHpkw9O_4b3Rjo4';Yb\)uXbo^bãU"AS=Uf9;r$SaUg',\;-&kKH;93TgoIH1euAqk/&:Z*)6+F3Mnf/#K=#,Csyj]5(:ãU"8mP1(Cll';56gXs_6i4q#/=t1-ML243_CtSL9:.X4Yv'^fV5=uu:CjETixBNK(RãU"830<5$js&g=>.C>ue[qEt*U>'lERa4*jWy^M$j4?qj1xmmojU).JQjwAtfH;e]WãU"37TN-X+t>H_4t'gM[8D?SCRfI;bZ&F/Idw17BtOq'#W=/S$r8#cY)>Y6WlrBKf(ãU"0wBVnKM,bX#H:ARo^PK\N=iPqC8K9,vG1G(A9HF>C1j)Sp)(509H5r&-<%;hb%pãU"/ISgMPfIFN/BDIYt2&#kfZeLtD(kb'V9db(aPb^8U%QbB';R7/%fw?$U0*;mHZ[ãU"KDVYEf*)&rU>^4qWCy=42S9RLdbP\6%j+7HV%,\YYR-X5.+c8%h98DK;05Q#0ChãU"1zj\+kNhgHjpLxU*6F#2?rUNl^]s'P](NHmFBJYKJnY^91'l+_N:S.iJQGvG%m&ãU",gXD:sW]ORU:hpz;&M];x6H%WN'k0*VUL_Pb]BubRg=m?$d72T>-\zjrV;$B?9fãU"71vYGYH0OXpd:Qss]dKQs4+wYQSt)e1Ch5GRAXV9&_tbp?a6=#yds6+oZ.GL_+tãU");7%+\,-:x?[fIom#Xcm4=&ao?n;/_tq*9;XE)&C>dD_N(ãU"Jh\O+\pXDk.t,w)sa3oCYQ:\5/OWxa,[)p-?UYw\:>>qt9PNpBOd>,7]+tpVW&bãU"X-xn=+5[JYR%#CDaUrq8e9FfhCFif:E_I_FHxn>GEZ_V$.daLEE/H(zU<*1Xv'EãU"hY/bY_k(FcS4X#JFei=_*M]N\;dkkd-vU'QXPi,;H7hG=GSIkRZ=.[t$_NG[/k.BlKãU"pX[&kfchSUMknc.s$rfg)VJeM;O\:y)4nvãU"17]oXZXTks/n$#L^F$lGDL6ksHC$h1Wh=P^^WttQt3n&igeK)4c'gG/__=6u:eMãU"iXfxFm)q2&Aj.c'X:k0AItF1kN/K=4UwW*YR3QoLm+KAmq?dZG#ZQ(%xUrWG'=fãU"]09oh%hZDGD&zvL\0%])<&?^q9h6WclqV+==c6ETsbG&dUH\%M_:X+vTf[HmIhLRYb0AP=YSMXC^b4:SeãU"bBWx2)Az+qeF%6->\=3)-(]poDpxWv-d'CR>sgmq&%1-?(6%gkOl(7ua\q4AA1fãU"u9y=7?8?_%9Y[4HHjE)(otXC3i]CBdn]w_9m*>6j]gy&,k2k12JeG?/jF]$QFQ\ãU"J/fb,Ow>vKFE^K+NkWr7+_JwO\7Z)4%:3Zz&h*[+'v.BngeMc(n'='EF#A=4AQ:ãU"f/;Z3i%d>rV]gOl9&Bu#$6b4JSB*GQYp%L:6bFulVcRA3Ipv-.3',ZãU"LKR3X[Mi,J%C##AX$X:d4H\qOMx6G4:BKRa(htv]dhnx9suKdBdhnN0O,^uCDYsãU"u\R_>N:o-R%ZTH9?qJJkjGZg+'lHjcYCKvvV[POcJ6om*/B3hHI2;i&U]/fNsk%ãU"sEeF_^>'0[;7$W8yTtk%DkK%1Hx1ig1'B]uX*3%ilv6cfK-M^KRdigLQ#6,lJzOãU"V[7fUeG#%g;*Yj0mZPX91B[AuL;[aL6?;GW0xM1wI/K3AK&5MAMoTnc%+p0,HGXãU"=z%pOGKYYH#=5/#JuX=3gkclnB8Q;-EãU"A$KL-w&DIiN<-q77BT$j7sFBKXCOmRHcNBtMo:t4qra7fBvz=H)O=PnHVvI5T+kI<ãU"bZU&.XnML[\WN0UE=a6w=jgOc/RT6vb0o=jEqpX>Z)xDVCk<;ed#$c1gJ:G.wE2u=;'mesj1MQ7wDZ'>('RjAf_Rs#JVh)W7KJN_SdãU"I%+htCdHFR)\XFYXl6H#6QF0e+^??4Iga&>uJq?3]jjW&U^J6o#5q.D)C3].=WobIsqi.9nZE4T0&8-^B*?e/*n5UGSX9hãU"_.tc)w$L&tP-1&\wg,Pt[6QR)C^-Hs8M?-ãU";#3]6I'[i0]8<,rGh5F-i(e=>UkMMmFciN\bBS&:EEZ(P8_-.'LY*.kc$qU+A2Exfj15<ãU"*Car%4/G6X&^$JskVlFLNlKT$LP];XcP++6'ixE\JH*=4L:2*a8eRJ\Ou;Sr%>PFãU"G*l&QpPl.gZn=&l.oJhc[Z]V^b&\cX[)XJ6fPIT$]PNF(g>r9isU=Fju((oBNivãU"6(xUEssUk)gh%wIP0^%vODGqkT?3(;fI>L_L_G5ul_]x9[ãU"sIYL&[x6U4H8H((q'y[%$Yb?96+RnA&ozplm]Pq-4PqFo0r-6*MnETy_NRycRYNãU"q1;&xtcpS'Mt2deneM(tsO>8ãU"IocLUud%I+ocLstd%t?D8kUplUlrC?t_ZC7W8]Z;Q(kge'\pR6P5EEX,?k^VD2raR$9A$gr+.7>JX^>5.8ãU"QTA#sMC%l]o=+Q+oGR9AY9/_wye+Rr<->tj8NQO?7q('>ebs8&RA[mr>T*5ZxUkãU"xi)S4mlrqnDJaaOOg2RãU"q?YVh\\2Uz>4NYyWr3Cf18G&P)I4;Y:dbphNpBqG7%<27Ij=&wQuT5LR6tZ-rlj%e&]KG/uL&*rh1%%Pl^;OmCAx)='sn_Juh<5'C>/Dd2ãU"SgS:;^dRJ%YIy9,6Vls(lO5&)Q*$'41lãU"C>kqWpQ%)Kr9b'\1^r6]*GoKmMg9%c.pãU"\hc/y3Smg-F\799GmC1.KOlEqN]^Y_c<.F6_QsP-n[iYuFVd_BPa#nplXiB$fr0ãU"h)%)&9-t?,*Svwig,Z%YQ[2zmj7H,n)TWtBHDhOM3oK$G79ZchD$,\gg,$?W*)sãU"OP<39DeqG2+jv]ttJjM'kyY2,o3Yr2&/TVC:ed[JP1eY[n7o0'8(xO%C6$gku&9ãU"Oq<ZHjxf9F7^U2L]?bO-RwO2uUlv*v7&jOs)On3oF=ac#L5u_ihBi.1GãU"#qYvs]SK7D//SRUuGZ+'xIuX,=wx*=%%p>h>Fi31o_f,?(Xnk\;ZqnZ=LiQ_h)+ãU"?V\r0$$(E5)tD1Hxgr:T%m^k'N$1Zh=9ilJFf45H+k3*FC/Dnu_/G6?ãU"9'Vp63B94/&zoW4zmRpyOv=bI[=BR(%8Jue&6JkwQ*X#^V3YkNh'$$<+AH6\k(hãU"IYaJ\mVF$8[oV,BV77+kf.T'+6p*##iCr_ãU"p,PGApq9/rici.E[7Ip)h_PFNzpA9(:%BBi?JO\R^t83-Cg9pnF)jw=?aMS9jB?ãU"v_+NL92#K##2zUC1+vp/WgDm4)aCA??rI:nn6L4U]4nQ7;7+?%W_=dx=n-hoW*H7l\A88e%PG3,&fm2F)K-ãU"m^7RVzEAI82;)6RUF44c^E*L%FRi*:Aa,eFG;*,?JEI$j..BCkokj%FBY-S:$z4ãU"C:22SxCsolQUb,5C4\JLqAMB.tXRlh?3#ApDJ>8#I&q&igNBNycTs:ai_tn7fT1ãU")'It.9SD-mSqPo+s0JPT#GFWhHwP&VL^U([jL\Ej?^^lpR>B'u0/97eE*%N6j>/ãU"C=hJt=0ohrG%Vd/F\B7yiGqH3ExkhaBOoDr>jtJYn=JP7BOZ]e9CI&ercXR[j<+%&R7d[qu4RN##/1Qe4JXpa#cH[YvM^JdNb0I+ãU"1%]kpVX0ek-xQ8=^n_b73g/C$3XX,M4I%#_$jEFN=b-^2Ny=,:FN[2zcm5dXR/pãU"gc6a.H6R[BOVx86l%l*\9CgN'cN_e05GH:lU\wP9#'FLV6DãU"3b>qkdehC#%cEl4FAk#_[atDh:LkDG:MWAPB8v?H%L0T%k9pB0zICoC%\n1Q-KnãU")bh;J.h6r?R]A8Kp(Xuk92o8*O(^&g6hYP[h>1Hw#_#k8:q7h/+DdWml+=YZpLg8&m]$$$<83XãU"%,v?U-;iLg&X),3_Z_1xE$ZDtt&0lcvr(T;rU,4cx$E'-4ZPOBq^.GFbR(C]%87ãU"yR&T\JcODkp&HWQ18BL2z%Wmdd/HgMPVPpE>j&LW,hKd69bN+1;&JshB7fV:Iv=ãU"IfH3bRAtbg#+g[(.%-qbtC39oJEO8%BL_vgLl9#J+OKEUBE4?do,jBq:Csk0i^4ãU"dt?(NYf>G6\/Ydf*j%-DcejB9VqE[>T^_D0_JGMQc7LfcS:.eW$N3i[qUXNt-soãU"*)e^ZXJ7(gXZpt(:D/imV0.;V]*V4Y1_a$X.>M]S,ZPbSf/J(FW4&iMASM3H\B'lp8Gf&=^sM&raKu^8A,RbusãU"Y1g%#:/(P2Y)z#][w5V_9ti0V99ISkoqJVEZiqk6?=I&mhL-:)vW,Yz(\xAD#4SãU"bP^yP/g5,sS4TkH'0A)su^TPgMYUv(Uk%NNN4zf-,M,D_qo(q>THKioo*j35E64ãU"eR?-#;Nr>a)T;K[t]V:iH+TjHu]a/0u3rvU*aj)2j,ãU"?8od3x3JPX)SVC:l'KqXU4j3\%M:pE4b>$?/F+NhXvJJ^MEO\Vx??tG'5k#twNRuB>u%U[,rr5(M3AcnL>&(hh-/<1oNdV%qF+0-5/BdãU"==GsooDCX0FE_%+&$Ukv:UJk/<7)80[Qus2']t$a_C1'#idj72t5:0?_or9>OY^ãU"qC.iY$&TJ['C7%\C9*z*.2aB2(rFh$eF2-Sa_32#TAP$;SQR%Mg_0J-3bi$?Fz?ãU"Z2==00rcLo+?5Pb*Jis5X7WHa6\YuK#sZNI0ACUU.mC'r]v#c?+>-Tk&Sa2F_$OãU"DG*,I+4c-6ok[Q>9,MWuTvh6r6NvdDSJF,u)0xCut000lpXSiOYDjl4cqT$ko&]ãU"/JMP*jQT[fx<64.F_F$#Xbr*[-glrw[MSG9n7W7f$_B:#4=m\[P8G='LãU";*x]suYQ,(S\:#R(x$,,/LVLsaC[2G,]3(/niz9.1NM:0]:#/V4eu%k.zmHpScpãU"HF#1\dTU^ViJiHoJIh]B^^fxdMH>Lu-b1lm]t,(:n(=(e[;>VNLMeoWE+e6xd5aãU"8C^D3W2yp,.nLC(4VN,=S0TT&ãU"+bmkTNV#LcN:].0d$Ph=#%4XC7YGh^&,2Qr1+'F&J[HMu5UãU"6BAT0H.58cW/z5Ap3D-bf^vgm$Bn3t[,Pm$F_R4FQ^iiao-*P0MR6fU8RA:u'D$ãU"f+tpCtw>po1#;oNac5PkVOS.YS>Z7.Jph>>V.dK.5=$WQE>GU7X1HOOmZ-m;_Q^51&QqN]Uy8gDB-FZdglãU"mH*+\5y3E^l'vhn\u,b432,h1Rf1_\Kc]&JfDAM(^fC/f*:3$vxyt%;TxN3h4IkW3L4vUNVGDEpfVsgaMwRb)gjãU"%JtytqkYxEW/9l7/C$k(>^.S?/Q<.k<8P,[mCF^DbT(=haLPQ=#KR$*L9\h+gKWãU"gMFVDu7b:gEDsYp)5a,\_QDNW8uKE:)ss8WqrgBW.Y=*gmu<)Na9nR[Lg3upkOeãU"<.8YCG[^Y69];FnST?\3C?6*^E61eZ39DwBC&DUPgbD%CRANRb7#8o%?Rp/Aa%[ãU"UbrbetSJ*'HL>jI/D6Mh.=j-Hrhk%7\mN&D;=jq7\ml&^8AA)T7L(2^Re5lSJC<ãU"^&HZmX4=2Z=UpCats/;h1vytn5('a(4'AD1Or.jQ#HHxnJ*_[n-\Ok?]&h1u0(FãU"N:a(Bwq2M]IS<\i#+foa*V8ZrYCpb=nokCD\Y.b?6RCV+=P[UB>W)MRBh20(Bu'ãU")=1,Ah$lNKlzBsK6eAJ6dd;:(,#<7cr#8ãU"4m3>LG>qw'U%uiA56c3cnTgHY&XXG*6V1a/Mh%M'%-8N9HEerqv3JPWj1m.nWXxãU"oX,[ET7:m,,dFke9K:_LtfoZ*Lc%NkXlfC96ZKoWpQdU2uT0wu>9h8l]RmaãU"1go^3M;9NcaXB8DHe-\fFhLf;J#Pla-r((Y^5*b;zS&[1)FK&r7JB>Vf3r:.&rsãU"wuw)]MK])sfDn'u17tFHh[Ae4:0tR*:Qe5/^4ãU"AjTN7?a(LyOO(uG_EhB4K%2Xe8\BciGjj1(Mjz)JD35Wq.UosEd0j^]d+q)U.emãU"%%TYeQd36M.cMsL)&4*^A4]Mo#gD>%-V$4MO&/jht>K=w&FoVJVWnGI4_j>nwtQãU"T]4F1bHxkM7\juL8ist/eTd4o.Y:J$J;YIsu9bE8oA.HuQN-8>h(^xJ6-:WsY\-ãU"q-%&Fgg-<Xob]JnD:SC4ãU"5YMC>a#*9Cl$?wnCwNf4yg281da)ZsJ.&L4c;7X8#*U;si8P5bOtVpirKsR:d+JãU"6B0e[92l;\3H%;,NwJo3&RMQ>V8e<,gH^RHMTm>RL(Rp;G3JCVQwGaãU">#xC8$0ooPHtrRX6E)S8Pj4qnl)IY&$m9S7-U.Y_p:jLx7?G[ewPGGpw#-aIpAFãU"Oqi\A&R[*&)y*(XCaãU"7^:NG2I(GTNE0Nn'QXu%?KrLW5ãU"r*$ogQRi07Yg(CO^,WuYXP&fD(%h)1TtF]ãU"*11P<<&ZSGZ1(o[R-SlneIqiH-FeR8;z\S]u5thbU=MZX5c/aWjD9inF)1p]BG:ãU"u9)2RK\V^x[4rrWgtpkXV%Nc$vDZu)e((wB/CAAu2D>;W)KfsS\,nT'U0CH=.kAãU"Wd$;=l9JP]-<7d;*&#_5N0IQLk)Z61Ba0^d]3V4=Z/J2Tq7J0w2X/3wl>0EGQ3sãU"&TiE9f=(tptQ4]L,Ak>B:vJuGj03QCZA^.bBr7$t#j%B+_8vwA)3w.\V&I0q=0BãU"G;#SR*7BU7?wXIZ=X4(4w%Asf*HnJ9>MO40o16wl>^Y-Q[,UjYBH5UQ58ou6HjVA7_*Lbe%vR9:R)2ãU"HpfEj#aaM2mt2Lr3MN:'PZOZ*l-9p(d?/'nV^m>>?pjM'U[*=F.8ECl#0[*kQ\TãU"Kc&uuQ.0)MSV.zRK#Y\#eBcO9]3GX:TD7YtJX4Z&9Zr6v/2<$#SI-B&[+r7L_j\ãU";CT+;]8\Mc)eXO]6DR94$rG-A,R<#G/E'1qyq,D0bre(i-JiEJ2[(]6LJ;AsXgwãU"7M+0rX)Wz/Ftg-NuNQpp$UX&Kzpotpb,)n0zX*xMXMep)w290*03^)xy_1_-:?3ãU",hjq7E2AS)bwP>zbRv/tdIlCZuhOWHcFeJ8OoW-tA(iaq(Gmu&I;2Qis25Ej&]jãU"?tttQs7IM/\s*hvuoVxGZY9sdu&yFz>ujST6A'UD1G/?9F'<%?zbE9*+*wZ>XIpHãU"O(OM5o0wt0tU6]'Nu;_'KluN)ILkh/kj?>M;+gVrg)haNJWBXRtugM58Z(\KhmE57CEVM<ãU"fKHph8pnCg3+g/4u56TXB<6qAJDE.xOZ>#Lbrogki3^cZ*pAcdi)WH)mcitQ$a<ãU"BSFD(\07be9N614HoE)tDBO7FNY*LGI$r.R,4TVvrmdãU"S(482:9E&&[z=]R$+Sd)O-_^bb3?/Fbcl82)n>mEL\Vu&gSãU"K:f:cI#yrzU3s/O(Q)1=0]RGh0-'9zJwF4Ypje<5]'%3X#MDU;/fãU"*8:r:*m9eTU)Z]8hQ^4\%]Q3F^Z$cB*ye0D'l#rYLwGpUkqZ4f9GOH-q$k0#b%5ãU"0X(%^:M#j+&VOoo1f/+w7'xYCYZ8a_Y\4q1c%vjc^B:WR,A.9mWR>O/EoN*it:xãU"kKX5=C((9LfR53'O.5UGxA*aZER?>rkmcXugeGrO&Q%ozmi,+CB'cnJ&jJNãU"ul#OZdNl19Vwq:TnalgmGaE&&f=tq[ea4DãU"DumhO7BC]WOW/qH,9wFA0&G+cIRL1aRI-TgkaJ9_%xIK=.n-r(fNv1V23J-F1d3ãU"d],5^+z117k'EF>PHX_(9rHoM%fhWDDZN=Jl*_4bjBO[FNevz&$ãU"e;D65n#Y$JI;a+c\)nWZTcvKpJG2+)9]yvZk[]iu.8G#6Jed#5,sp7u)#exVV9oãU"([RG'vn'&$N9]xn&u7lY574ziGOr_V^$i,]1O;&nqrM9=*JPYq]V9].(N(1S.e/Ss&3,h/yFamY4._;^=t6*HhZjptR2HQ.jW6VãU"#.[(L;_bavZ$lF#+ie1)pqTp$W6OfdQ<)-66X?>eI.2/_YbJVLWCU9TIARãU"]nmfeZAmNajIG-B=9F]GrT1S^6v=?ZrkVP.o./s)U-K/ptm&Z%Br:&WtT*FUiu7ãU"gg,%N,teZ0T0aU^K=T9,G%DT*HEix2wC%S.;\;-i&.JHX-eh=laRexgxaQIfnc(ãU"WTV,c?fUhWVCYpt<:>0HL*,G?4INuu9Rm-JZ$1PLJ7q9Zw>wHjR[dh5F#uB]3-AãU"dHwYq)hjHSlc9Wc?u';szoLLG,A]k\Z?7ORW4%iGNy-S*k4Au)K3PX/Akze7Av%ãU"TI-QD-9W*1YQC.Nuf+Ph4P&I%oGO=(kr%WjWdljzobuuQSC?8Rro*7oS:fo#)#pãU"73j(-y4;uO&*e;>/lKGs7)1.MuStg=h).g,cUam^X6KH/F0J<$&\HOrsP17P)QmãU"we/?G:KxnMvG*Y8;qB_dCeEoAV=PG#*'h29i?'dn/,9serNM\[ZQ9W;C\Pd<9Hr?WPg>oaD#d>(j[2jCpq.>\DHp3qpGRZ^c=:2B$4.^%3lwWa\SSiH=ZkQ$4>aE4ãU"/a0(W?=j&<+(WBw*Z3T(hj,(HoYTGhN[&sW23ydEEH5Ic_bV*ra.u]k1ndYjXq3ãU"c-R#n^)Vt]CDP&8yWN5A35b3ULK?_Pj]n];jr-#GorLYXa0>8;B9j+>q>FG2>p7ãU"k>7?beouo-XP]P&u??rb5Ba^ca=UJWXfq08c7+[ejLFl877))PWt>r=je7\GQ/WãU"W+S%248lIq.&,qwut0[:k?#*JuJC<\u&;^rl82A?a$wkIbWwnl?-:Z5P(X(a\U>ãU"etI1BH.N:TD/6=>ovW?F.-x)]i'%0)8vEL7/T^WR.e+BB.ucg+k-'\mkdE27ackãU"TX4JfM_3fmB+/?M+U>Pb54^rHP18^bWrQT>C9X4QDGQj'hphT%E-P[&Yi,7UBMZcH\:0GEG1K(V2hKHãU"+RZ4v=#TO/m&HPdP]IY+)%)1p[>D+ãU"/a?V8LJ_We=vK%frFpB;U6i%XxXW1jr'YaAdYmeO\FãU"NNP:'(L\z5Be4DnadtGLvWXC\ccjxM9>+6S6TElCT.S$=[n3d&j/pjSMf8/Ndm/ãU"/_M2^F_h(haqs3BqF[(QpcW;M18dd,x8^f=(c$]ltDUP9pnwprfn9-Nb+elwj_/:a\XS8RãU"B./VaZ<'F#&z_Kh1Kmi:]s?b$4R+cXA[oJW&]CHscGd-Imhp0]bfr#3IhjPb9%*ãU"r[y35V/s7[>yE5nKoF)s=\paY8rF(*3[Er\e8)Y1DWI$P9%E[Q*ct+$_]bznZF_ãU"UFODKz7G[+3C05NsB&[]Cd0x)V9/lziQN&eW-11Vd$,I]F?]ZVaYTBRoU+zd[(MãU"WhQbKh&rH72&r]7ãU"FlAD?-4t%gCTodT;a3(Fq1FTs.H>m)lsk.aDeZQ,[k)XC8NcqnxW]$Bb*xolKãU",h[1Cf&IY19iu./5U#o2D2e1tEx6y\M(vEr[FqA-[kuv<,2.LgtbZ>4^JKoINkkãU"q8d,t(b8yilI]vH;nnK_e=ZJu_mjQk8:qoju.8%za/3G.=&K8r&#fljK;%?w#%^ãU"k<6nUZ+,?o-)s;>48lSMIx5-Wasl#[a*stfu7kC8+jlj#aib5Q]9N)ssS0qf,M,ãU")(x(9;D8JudCyK#>Ru-/JbHD;b1A\n83/g\l*]hEn?h,-%pjDtMrT>BuR0o3xspãU"X8Vk.[G?Yara=pY\?C1QayE.ke*?kD?B]5;4oOYh+T#2C6'0a.k*#7&Cf.S-+&1ãU":q+t&dA47sDAIX^ZBv;CR=d9kGrraIbc:d+u/(?DqTIM*o0emnsk\ag5y;r*#.KãU"&S+V3_I_,4y*5)Eq#dUPn=Lh_n]q464JURwjR$9BCx&B>Te'1opURpkLc7R7oRFãU"+RNW#ZNH1WXar?k.bez-?k-4&Dqc\\TR9t9VMG)3O(fp#.]7]TM9gãU"h^(o*M_5V8#9h*]Dan<7QP2:=oMQjit1%/y-:aKI;0\PVR;*(7O?Z7RzjrdH<07ãU"OkX%>HAV3w>>F\na)T6.G[Nv((4-_.=Cu^\suW[#H3Il4X_IPO6do2a#>L\/&M+ãU"CYC/Lgq_$EEOnpQ98NulTusypntb56y[fAr&#<.dk-*kk1zp6qYCUjPL_hpqI_\ãU"DIC.UrwtOFrfI9Vx4W2WowXofD^+B)=mY>=EN\C,pFUC]rOLNQ%Nz][uO&HqX&fãU"DUt,wZHn+oWDqyWp#vKy4a)$sLV.HU4x^x%7%%w'%%%.%%%%it%x^\S[nhtNat42;.U5LEãU"C?*iq8qsB=_[e6U03pZibEi-M_hOR;AJM:8+E]+ZSA9e7A^2Ua_)ãU"Tk]HE8VJ;;f?d>oh/<9=5.^mmj(m/r,&/I,W$x/S3D5#)m^4yr5o\\Hk2\>c-TDãU"&6<6>A]7\OEN98-X8=2'1Ji3bR,3iMo;qOB*RTKiu#or&uEZDeQee+QOZ$]uG1^iN1A]%sS%[tAS%nC56f>aq,_c>KUGt3pLJipBãU";2u^Ko'j.q?sqbwe=0:FDs(8rt?cqiãU"k&V%ZHk>pOFpbbXDs^l=qgOux*FMeD3)ZNGRJ0-C/Zt:vHjMGlHRSCp+%9MrL'2ãU"gu-IYANMDU(od5/d2(_O3tD+d/7$fuG2&S:25;WW,W.q>$s$SO3,Y>MTOJKW8CMãU"VS9gUU&NrXu0n(mfnvzMDDiu>,ICgLHIX+v8Tv]N96PYIy\,As:WwaFudT+&:^,ãU"SEaEMI=E$e4=9iA6CmO0y]2^=]k5JSYãU"7UOi1F_&,b$B3_UNo(A$ax(,&KOXyMp.dgf_x;hUGPC6tfE$MO>JnE2R=gX4DZNbwww1$VDoSH.i3ZchJeãU"j5f=bgcA6kOI00bda0tA;dn#]Twcn0+se%bGD[lJ6:JLm4le-c]c*)d8eãU"M,&I'qJrt(D9M'[nuH+HposlSDQC\[/djDpssRmpY1bhhd)T*t;:I-kIiiSJ^DBãU"tu&]W='ts1%QiIR\5XNmv'_H;J[*\6Zm=xBwNF/EC=<'U8dQ#0^EA<1&Beoi9qwãU"D42ouO(:Ie\g>lXlD[[?gr9yx9PKCM)hn.txãU"=D%O8Wn&A3E5ktqG&c(v3tLyv7k-o#c$q.H0i.+2Tu5o:'TtT1nE,Ada^]X\'XPãU"U8jJi0n[;(\(r2l.GH8-fc0WaY-s#fWeb5tPhh^5w$Y^g8WkVAYxohQD$^0smZQãU"TEEk:$J5fmf<-E^;i^>NJ5_7CJrs&$DTxa3dICruhZldoc%NMw%,FLh-=RãU"5?5Sm))PRg_V?:7\N4?=DcmfoplI<[uvh.YqV)Vl6ãU"G)dl#pAN?6'ãU"H+Kh&8G?e4gw,>/mC=7NMAT4QI]j[ls$]fEp'w9nkA,uZ>;IS>ce%8xagN;FjgrãU"Y?h3)ad7,iX0(;N%up()%9%'%%-%hYSMG]X&zFr*%%%%5%%%*%%%%rS#ksyD/&tãU"ZHIj9>aSt2Q5&R,Nm'AQWD)o0JY'Q17aZaFlmoS>a2pY:\;L?sxm-nY,u&%A5aGãU"Hi#Gq(7EKeG-hTa7A5?-D]G7.a1B-ZV7s.<(5oJsFr^6>Ixdzi.FV[WbZf>T$TGãU"v?*=-b;.>TR_\diS4'JgM[qe):9qnTcsF*>/f*5$[URvfKT7:8S*BC_rP22EjB]pErjqtRp8w-h1d3W1<+un##L.ãU"q+_],PQK1epL16X#DDvI=Ygt'L4qqX)OiG?cia*:l0-N<)wkqKpA]RG1*MROeYuy]o[D['XX8/g\o\itW.v;B_0eLo8e'TãU"[&0Q<-^JIFC.K$Inb%G[OgSNNO)?dL]Qd:Z.\iK$(7xH\&BJ=V:r4a9VorN>9FD$.*Rcr'WHjhV\anAi2-tlxs5,?%.wgoãU"rPfLd8k\jUt?X;j/82[iT:JY/Nc1*tej/C;.1#xj$jPL,Xk4-47Wu+evVXLX^;IãU"p9KdJT>Xe8]BMI7C;E%j7eF_Q(Tl:=1WU3n*/E_n-CF;]fpfh#DW$mC>K;%>&rQ'P+B.c6hc1>?cJ'B3G]Y=ãU"IuoQi+iN3x6L&j$.:hB#Pz.04c?wqoKCs,:t1Hrxp6%'v*m4n+^H,=QtAX&jR'AãU"PHa?RG%&O:adkh-r+*/jrN5ukEhbYRuf)ujutY9YtCrL(pgSd,W_V$DOLR9dUr[ãU"/;%WAsW>=Y4&_MHT6?XfH4bn\<2;n=hej^e4M#5(,%+>)hGzerGI&H$qR#AZB8GFrd_2La0ãU"S^mKIFFlMh#j6is?KvrP:Q7)f10[_D,.K2bC0.PMZQCNP_GHR.V'DfaCIXMg6fBw4&t1'vTgãU"f(+t):sQNg&i]2rRqV4lQX8kKha;LtlW5Hh*Fj\HT\AKl1DFECZehesqcf,+>kGãU"DW/4?#&D$Gp[1THXqmR%_l$24&GIx]'?Mq1$>OJ?KY7Ke94:fC\kg)SK3uxY:wPãU"cC*\k^';w4+*8ue4-/:m.-h-m$3=Y%ILa00,5q\pdmIBK&>gRX>NXmf]Lv>]bncãU"RW?KJ;Z-u;>aZEjg374(N5BQW-NYN9N1[jW6sfCG4:tjq,fCUAãU"P2VIFKS^TcjVa&[^f64]kirCKbgqbf[G7jIaa$%Jnvm07IXLKOpRV+&x6/=xp*GãU"tFVE>4DE9Z]8$%&P9^u.bzZLV$hI2Tm#Ax3jlP6v>n]W4ZXUxiHsg]PP1(=p<^AãU"%_F4Oi_(']e.1GxGQYz]Ra+CC>N,IQyoeãU"bXbBt-NmEKcC*,J'Tf>'XT#2Yu83i>g\jRt5Hh_\6tIt'^g*#UA?rzcxKT8=B,fãU"*V=\#:LB0nG+S>p^%0_6:\(V.NHIFHxlXri^C8C'Z0atK=v\unGãU"[,Mvke$6#\_Cd_DA+&K\:r0f>c,Z)D#Abl?jl^+^^P]nms.C??8;:aT[D;s'YdheH*Ygq)ZDjãU"J;aN3Z>>s2aS&d]7HE&dlJh-*P:GS%F='%%oX2Qc=+iL5blHW=Ej0Eh2\C'Y2LLãU"LvUrSEkNJ9FRPoT=hL:nm>i]W*Zff*=R.Q-LcfQ%uHf^m._qw$DU)EXI=U<D5doT1B6H=W>eLnkinãU"4:ZT6Xf8x//,MOCL9Z3*Tco%f_?QmtVnYy(HNLw.NKZ&7%FK\y2kf4)>aDNfs*UãU"M+PN22ALBG3-KNS2;[E\UvmpjGe^O['sZxJf:LG6:K^/b,Xwgu%[7>r?:SD8)c'ãU"O3w.D_*C;Bltd8NgVBtj%^#NzBmtNmbGG'trjP.Kb'opbc&<>_oH5DGNhs4kD#tãU"l#.Pyw'ItMnn[Boo2U]uX/[+i<*2TcU7Tc\1TsK,Du08g+:j-stN14U==y#o^00ãU"(pR#]GbOT]0JS6elF:f'KvPLK:f0ppC0_D?]eaLVbhndE[h]BdB#R]le^kWrHKRãU"qC_gY.bfdYg)'js5I=fYQG%a'C3)JzdTq']anGhpUIuV_5Jh;)1.cR0hKk,bD6mãU"ySi)^lYhRebXDgf#/N9r8,92&JC(?THFCD#QY,VOsiZ)dcNPj+Su4u%p()9%%'%ãU"-1%0w2dFdrk*+L*%%%%5%%%+%%%%rqS#ksyD.b$-+y)^i1IqPis5jMm.L9)UXb$INfIp/Bi;uV>37dT2mso93+:LeVãU"u=edEGjpRFue.Xe$Ej\X>>/,(uBJlftZ\$H_^^7;f2]=/^g;^Z\lqEiSSV.R7&0ãU"[+Frg.#>^*=F7$]*MA=Np;)Z1pP%_W$_'C7pT;].7amS9vOCLnV-UE?BPb:G=ukãU"aA-Uux-Pd0&Sf7rV2t0u81vrlpxKPXD?k;-OiiIo5vubYA._KN6)usavMDG^]n2ãU"tj6ZJLAD$*7cPLb-S-(%_E58%m'V>2%d5D]#\z\LTN#FU#l5+-^(%maN<'D]HpEãU",(N)H3wPQS16SEf\\1RXKc0-ops-[4EiRkPdZ],M+=?Nc-o90g+:+ãU"gXLV9:k#MD%7\3AJ\X1Us-pJ]7CXj<>pVTHkJCk1b.(-hy1(#x_HbX7N$'/Sr-(ãU"CgfSHJr$XIx]8>)r_ga;*'Y+B#?m+kILãU"/H[x]7,3%?#POtQSd?oF?+)53d)b.O1^]X_[)Yu[HY-Gx%/kk+G$Qv%JFh](wv;ãU"z1U??sU?D8RH2:Q8C0[X]^xKMmufx[)rLw*r,Q6LlMpb6Tn6A'\huz+PB4>)?H.ãU".jET4YVNSlUR7e\64D%Kx>2swUL^+-xX9)sDqxsGW6TutA/O1WoHbXCkW4p\>_8ãU"I6AKPVD?.m%zt&PiLsm_dRqsB>BbUd'3;u2=8v6dcTM$=4's$]\8VH6b'iY#Rc'ãU"g;um^eT*44?6uaq[KC3V??>pLhbLnX'BDa4ueo]\]rS3fq:VgS5ZtãU",ATrB573uMeel&2GEk)8.BBu=aJ>*PnhM+^a3W*G-'J&zDy?HlkLil#t(<:$8-oãU"aj)X2XF5#G_et(FLaL_Y#6RR[d%CE&IbY-BD00;iGl+\nIEKv'&aRpuE_ZZ6ZZGãU"rO2]lY](#D=h,Nyq,jlF8bLvF0bks'EO[UohVWoqS)yFqz>?8&,b.Bgo;5?NPn[SgQcIIV>78l1?F1rw#HxubuUriFLMsl?x0PãU"H<^3yiWw0jfUq\C[ED4rrHrAeui:qG?U8=U\[P8c#;DRX3_t<)x7'dD$%khvYX>g$JX**BV/-X7E1XãU"#XW$9\fRYY[6SoP/8$6-nj8Mui8j0s-9Gm[)<&U7/EUlTi93*kDo'Vj,>zc::eaãU">0OE+xb59wUn,sBp=ZF4]Y/[ncL#pjZ=?:UdeB'mKX-saF4Z9_(/HHPP>6BwLiEãU"KuSh0E?iS1Ph5:a]\*t%crq>pUxiqnE\_us]HlEn&dCEaJ1)XH#b2UaCt^el,SlãU"*1n4Ym?J'-5^93mD_P/U):8c<^M(e\bY\+TuccCQ'v%#_.gzp^kCXgcNXãU"S8%IAkx.)h.zL=[z]6xf8c7d(q4%up()%9%'%7-%0QS8A]g(EC(+%%%%5%%%0%%ãU"%%fs%ynvz%jSksgyD&F&:#l9t.[)qu)Ac>F1NGj%wqMJCQeve)I':x%i4Kbr.SIãU"<;3&%j9+M;.2]7ezBUhsp$#Qp(c6m4A&pYEQd5^S-)c/1o1f_1B;)+J9o#,,TVhãU"lHlB1tsscX7\h>JWE?n>v+tZ=h\0+#z5.e]lsãU"(&O'L>G*=yO)I.(+sLFV.eMN-3<\\5jow?hq=78)Q%i>\ãU")<6:MlraMg,vs%LOmP79[R:Vk;VDbNUgoEsLL4j67C]GW%kwrZC\XMPl>-DQjTg9lmãU"AJãU"Z+aZBH[[P?hPXN%iUU0(2S06LC1*Sb;BJ%'Q%8ip88&#t47J>K4YF_ZsMJ01HKEãU"qB,PRscKwW;i\08/vOMGJc0l\WcGV$>-BXD0T/WxWBnPDaU7tl+gk.vP=FE]vj[n5a7vZ:lJ7om,T8+x5[Fg/u[H.[ãU"%n,P7QruL^Xh,BdqWLV-.Np(K_ffY$k+rhãU"#I^ecarpcKXWioq7V]a>iYTP=]V%d:T)/*F\j]MrR$upk)6=(eI=]3NZf2j^*Zs&Gi99l-&p)M^XãU"TeIJvsw7^3ug_*9c(v_-6$D1j-KE,u-w4igw%V$W1d5:BU(NmSzQr-B?NnDO)DQcNu6%f?h?:lxn]J8x6[MãU"W1B8NqJZ^PSOv]x)v$#j]'64]&nsZI;?lK.?t'lPn'&dkgãU"Lu_PtX'OqpLuQFKeny+heAN-g6?yr08y_,=EL]X\,C9gf%ku(iPsf-_K+Nq5N>8ãU"90%ZkG$x\vmRLXW7cd(9kebnH/t-A,adWR.30wq^t.Phr5>^qvp&H,YãU"w%bW8I6S'7qHh;L\;YEL7frT[W*T_rwH$',1P20^%[;k-Uv:fa;HFB\DIJ4JV3I)M;nSa8#Cv,%up&'%9%9%%'%-ãU"%01Q8ApK#].%N*%%%%5%%%-%%%%%%%%%%%E%%%%%%%%%xf%sxSk%syup%&'9%%9ãU"%'%%-%gYAMG?x+$tN)%%%%-%%%,%%%%%%%%%%%%E%%%%t*%%(]']S%ksyu%p&'9ãU"%%9%'%%-%h(YMGo$Z49L%+%%%%5%%/%%%%%%%%%%%%E%%(%l.%%%xhw(f&qS%ksãU"yu%p&'9%%9%'#%-%/Aw2FMO),9W%)%%%%-%%0%%%%%%%%%%%%E%%(%g5%.%]']%ãU"ymns%Sksy%up&'%9%9%%'%-%:IPNIiZ71N);4%%*qw&%%.%%%%%%%%%&%E%%%%nãU":%%%it%x^\S%gfxu%p&'9%%9%'%%-%Mc'FI>TUx^x[%%%w%'%%.%%%%%%%%%%%%ãU"E%%4%UI%%%itx%^\Sn%htup%&'9%%9%'%%-%hY&MGm6&yaN+%%%%5%%%.%%%%%%ãU"%%%%%%E%%%*%J%%%wtrf%sSks%yup&%'9%9%%'%-#%hYMOG]Xz%Fr*%%%%5%%%*ãU"%%%%%%%%%%%E[%%%u&P%%r%Sksy%up&'%9%9%%'%-%00Q8A8aQD:'6*%%%%5%%%ãU"1%%%%%%%%%%%E%I%%;V%%%gw#tfi&(f(Sk%syup%&'9%%9%'%I-%0w#2Fdr6k+LãU"*%%%%5%%%+%%%%%%%%%%%%E%%%(x\%%%rqSk%syup%&'9%%9%'%7-%0QS8A]g(EãU"C(+%%%%5%%%0%%%%%%%%%%%%E%%%*ma%%%fsyn%vzjS%ksyu%p*+%%%%%0#%0%*ãU"%'%%E&h%%%%%ãEND SUBãV2ãV3ãV4ãCLOSE:IF S=40AND 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ãDavid W. Hayward SCROLLING TEXT/SPRITES V1.1 dhaywa01@mail.orion.org 06-29-98 (18:08) QB, QBasic, PDS 157 10412 SCROLL11.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"SCROLL11.ZIP",4^6:Z&=7545:?STRING$(50,177);ãU"%up()%9%%%#-%#[nkIc'l%%%1%%%%xh%wtqq%VVSgRfx6*;awãU"gONxU:JP6O%\B%:JJ??\DIlJQA%P\X18LWhzz%ofGI#FK.TI%Rz9]xzcfXpNgVlãU"v)*.Tt(gM*Fp&ueqIY?TEU#xe'7Pg/v#7a0V%hbt'4wruh[dH*T*^w\NWDVOfERãU"OmjHaJdl.-FOpTZs*Kzd$D(8Tc[_H4EbVpZ1FE,NXeLLxTAO7fp%B7;eUmPAv,tãU"uV'?M6(vkw?2?4HnFyjMnmB1V_7+.(CUY)aq/d%LymJ[P[pj==sBm\OAP4[_5vcãU"GR]U3G^.r'ixI17Hw1.z(\5'K7VD>I:yese8Q%q5YgUT;EZ_ly02/177XnN<19[ãU"HG$i0u#'EVTU&nE1[[?p^tdpsn4Vm6tk[5h[VCM4KLMvww%u/R/'B1GS&ptF6CãU"/\jImS/*3M2t)zf$Vk[-%>(kAQLQk-=Ut+jw9cBdVts3N:cKp_3i&D:98UU\.M]SQ1?[bJ=N?cupLF/1e*EWbuA+V#tR+ãU"Vnh2SpAd+Ipm'*a'?A,TlJM#s?*q/2)r5gjn)D%h;VV)uM_.u.[JqN]da-q6lgbãU"h4zBNu7DiM%K0$U(E$3g+$UxW$g%qKãU"Y7BA:VsKrCwBTuRãU"Q-%x1oTSNb^h\?K?tX_F]D9Gj)Z;gRw:sX6Ue&l#&au4ekCBBIfwtV+nMw9.v];ãU"g&(ZY(^M5gKKZ4Td+<.IfXraMaoiS&?Plwg,$r'LN7EgD$iQYoluoCk$\SmB=8MBOCqZswj=imwjFn&/M$YXsx#c8W5Bviw+\)]Q:'%+R&(&^ke=)ãU"'jzA(;2Q3=v8JeS^7ADROt$$2a-L=#'hF^0w]Bi:m&9;m&dP8W(&G#IQo8RXl[]ãU".7dsZ9rM*d.2'boAgzlr[8kl+[&[uf]fLZi/=VH5V>jM=IS%b4uSSXãU"rI7+g.=qf%=7,v*Sz'?qmCrH9.SQ3WTTZKMvD4*92[&16.EPu3Q?Y$l-0NMV3q*ãU"#]kH,+*)'CK4ezfdOWhq2$%s+3?IKU(xETc3'O76'S%97<7qUjluP)MO7miMZjyãU"ETAC.7^dX+\D+(^jS?vTnRWV?CZ(PTWfcqrD&+8eQP%IaT%9sOu8(DXX#s*7'bnãU"tX9#/wnh84NZcK[x$U0;Eui:wgKcOqAWY%:bx7+neKIqX$Fe8Q#>a;h/_hh2'suãU";Zwu/qbkYIac1wg](MW4MqRR\NtmRRM)=sO^rl5)MJ*95%0=?-Pig;_6.Pshu[LãU"-SM;r07JVS]L(dugeJn+Ki[8k*PnN9nwHX8dDcv.mu\fL[DMNU.Y->x),[,#+r9ãU"Ye.cCF-q^\NN;xrTb7xcHS1T]bZNP$i[Rh6F51HHGnbuBQF6',Lc+qK4Py;d_ZpãU";mfu]b*uyWrBS=/L(O%=59D)4zmKNaU1O]*6,yrrxq\9L.:*Zi+ttJ+'G_tyO8VãU"Q]Zt:I^bKWNDhk/RdnHT%E+rka(atqlif3lVH5iPoFJQ3w06<#]';*ChM$?OS(VãU"I2K_WhHDmgESd<'bx_mTICzG/hCy\I1)Z(FrFA7WN+9Tjg:/\7CL/eQRe.=Z^yTãU"1Bu)s;fW]?>DVL0C'Q])?eIv^S8m?SS8n+0eO%n.Sq_&]ilrFqYc%422tB]MM)_ãU"*7c_k)MR/<]Wdb$9gaY;w2JT9vj)ohqG(p\L3qcd'5$o2cagãU"l#H#,?X-h3l*d>scbYNAr4R$)d_pjl[ZCNL8:-:^e'ij/Z16lbZ8By)M#8W[6$uãU"Guirh%Lu]r63T\,7:oW>NT*Zb86RY\P&,CR,q[AJ'Sc&.$$,:jfNn1D7kK'(l_VãU"86#adm;pY,p5b&M%#]8v'Zam#.Ywi%LYIR3:XhpV*09rjWY;xjH::5cd?un%/TãU"paY#542zV$FC4q,OYNL;YsXD'&]\B)de&4q%DYeMsgzUKJ$AãU"eU1N7#-Dl3IImkcaAD\zgh(Ee&_2OMhDhbYUjff?7(KT$yY-1zvm+Lq$G;sj?jUãU"2CMEmF9aU/Jb.Uk(cWrP&.5=g(=NqOP64vFufo./%k,'Q:&B9xtT)(L/>K.qA(UãU"tN[F+w?(Np8NYi]L_DjB>4e,U*]:o4GVX_t3uDF(=cXmfR$Kj?)\ck2D)ra-THPãU"D%uBtg6oQ.MW*uYlVj71wgr2T^g9X_n=q_C6OH>Zov_;LA4?t16Xj[MTaXqF^CaãU"Pc\9IJ[gohjn7UHMeL_1_#9q8,G5aWdRi[xZd*J3dVZ)bzO8P6eJ^1tsR9b:aq.ãU"h%%6L,V*^:5DmJkca?%7Mpz)J=g[M3FHBZSc.D%i\/XEAmRX9EYY33>3BbS+=b5ãU"D'Nsgp);M$b=:qhk[mPVWWD'Jr)jlQ4m402lUNzwj+W,pC_femf:<ãU".;Q'3X.oXe$sQToV6Nc&UT*5rOA*Pz%dq=>fo);/65AIIEsagYoDe]7Mc5D2)OrãU"[PYWs(ksSf'9,=>y)(4F=efMeOJqVNj%<#IOImI#3-3g9VEcorKk3aL5))XE2KuãU"R,j*VV%J+SXFjoa.p--N$EE3Wh6feOntx1Qh\x^E\)$3vg>:.SS&]t:ap4vx_Y%ãU"vf+r008'&=Bz3ro.ON<056ws*nro[a#(R^JTC>KEt:RVnaaMA89(ys_SnV-BTDiãU"q?IR.LzdXdayneB,i+.\%1IWqMa0?S$VX4ãU"O7K(+TdlkjS.#2OxAcCZ5r\QcK'%$\lQt0O]([CC6+emKIl\+*G;ãU"g^QDU7qwU^TnwMf48g[tpi:MBL]4&?re5(cfWS'cY>_fdXZN764$4nQ%;g:/OqeãU"R]o),>v6MHhYw-j5wZTNp,]O0%DLYE[IJp>sjx4&KC+,HvVEImSd45s<.X74B=3b%]cVãU"/y#AL7^YbfAA4anFTMX_0in,/q1F4e'd/jkQ8aBQGG+pSqUXhtE&S&5oPWh]Kb?2Oc*+?R_#%pWQ?ncf^jBXLSXpt\hHM0l.Z.lcV>UcãU"6&NQG[,(h\uIU*WA]\#uw&\pkA%isSTPtf3>DZ*w,D7(q1;nE4F\,t\QrF[BUX+ãU"J8(in_d0:Nuwg-NnC=K3^UHv=K_*#_5vqEiP=g8^Td8cV=oXe=/cAi2ftQãU"_FwJzxMo]+C/,OwH4>Vc/ccAk0_tQ_KNJFtQX_kJ,Mxo]S]MR:MM$$ItJ%1][-mãU"'yumlks7%yulkDI.Ow7HHvu(OwHH\LM:MV$$wz%yulkBko*DD3skxho][MRQ:M$ãU"\$3pV[t]WKLvxo]>[m+y#ulkI.zOwH.HBf/ccAm(Ip*D3MsIxo;][-x(OwHHALzãU"OwRHHfd=/cAmnNMn-i:$$w',yul%k_N:NM$$9)tQ_W+w.yumlks+%yulk*sqyu.ãU"lkIx(OwHH]6M:M)$$3oL*D3s#DpbZhC3sxRS:M$2$M&O\wHHfnf/cA(mdwfmB>bãU"d.wf&>UnNYZO4iW^nYCjNs:(2m.m*n+>DX6rdD)LcV*pT*?R4a>1aDpH#pgT+eSãU"59fe(yy;07vyDFE&bZNCNE3Hs_cR5)qgcDY)1*9$A_Tbnc.E65U(*uvASDfo_EcãU"inyoPru#/ct685)?pjvB.XI.QViiopY1oFzor8o>bC[$)5ZblbZ##kVhD[yE8[\ãU"+\G5H<^$]dgtoaUTVP*cGsaGJso6kG6t5G6<)kJl^rp-_UhJdBhsãU"]$Wd:ajJ6hKZ/&+FH#T]HBTH7DTHF+THHTN\a-O#DX2-Pmh-mil-mpP\58;Q]G2ãU"m$$\aH1#Hm\0ka>QRtKGQYIH-CX,JDTlG/-W'6fB?a/8vtAX0giMfLv/9e,dãU"M7NJHKL_R,k0xNLoVOo2lfV4tV'Hn<:B5jCr0U32:z5f3ufx$3SzDWFH'jjTe%<ãU"M\9&dId4_KHwbFr2+UwiQgGM$F4n.]65Zb/&U8[2x,%up()%9%%%R-%Zk&eI%V4ãU"+?T'%%%o.%%%-%%%%kt%sySkIsy\%-2'BFa1fH^LDm=lN[P0e0XfcykeqM>+#DUãU"X'BP=[mT,tQEpM7U$eYpRPt[AjQv-ExRgg9'2LyKg(Dhn04hC$Iq_T,t0uFJSnnãU"IdIrb/r;ot]f^gqs^=-Ge--)Y6]^9IC=QDl$nVqC]IEJaOH#9ni)P[L(=(%1[(BãU"[4p7GF7BCZ+aZhyoHD*LlV&U=JWQkGiUpãU"]e-?oEb5Yfh&6cXb,-I=<-R:?r_ORIH6-/4ON?c2?RgaYc'*if[iX0N2U7V*kV-ãU"rC_KV:(Mab_BSfu4BoKdãU"h*XEOZqu:l:l8:O6;*+^LMhoZEqM+0TMZTVA_*p\5'xPxRUB/kQ*vKoQB0yMl2OãU"jsS;1_rq<>rMyShOb#T#6x=Xex<'&?oNFe(v\L3Q\bMAew6$%JHwd'-M5Qa%CqRZ?YI\'H]:E&CHfc7K%jOdQEãU".FPS8V(_GR[W4A]sP]5-&*-;W;ZVG'#O^K\%WRyNfV=SBX#.-+[.2c=i^a;n(6eãU"G6fb$NL#[8f(^xN[g?Op13$18bL.b#rGp_#o]#MN9G,5uhrJWGeUTe?qliq0z-2ãU"UTSaA(82/TF5^M:Dt)s$vZ3&$:p./8Gir-(A02:0Vh2KnVqj=Q)0Ok>kb>(In99_pOr5*4u](Gu3/g_M3oYTVsCãU"/]g4*?q1iu.-yXtsgE1b[_;/%RF9if-=46sJX*lYNi)_++J'Gj4Q6q_6^-x4^NfãU"DELrcr4U=HiqpCg4nm5AW?Fo3q7N.C1tH-kf46k7aglDU5CCkN-e^ROuA(It>hgãU"8Qh.(S&k)pyHou7)[KFu0I%hcbBEQH?&:b3l6vxFi4PsRn_RwGBARV9BpU^-8RpãU"G[iDH[0lZB,3D=RPI+n#t6MR=*Rb'Q=I^gtqnG_Iw5.6/ts#8m49[FEM]8-i/QA&=ãU"<$OrTfgCv/kpAtaãU"*.8X1foH7^UgE;kthhAezsJ)J>:i.eR3rlNHZk%B&fS1',LQQ(NNG8q)rI:<[nNãU"1+Cd)qbg+mq92C&0sin&;XYfCHe(_Xj\W%8C78hE$[a4IGzqF.v*sãU"xQMWv?&U+?)(-PFa29*pm%S+(vBtJavsw+-FqObR+B]wXkXs32r[Ngr0jCIum2uãU"c-+^nZNnXRKO*]Llb08OYZu.qK,)VYuBQ+q&M^jxxSKN_cPphOYY]1wzyG/iKH+ãU">pY\'7i1/9qpxMJ&BV>Y#RW*:Ml[_ieDHYY7+[QlT?Hgmk>E4B>%nA4qUwI$AD_ãU"%ZArYw5u=>/.UCrrPU',##A\Jkw7E<(p'bIo67+SKUa,l6pX6mmt&y*Qi3/53yRãU"Dr.B0'KsyU=pVj(]q);,n:P]6:>Q;$,^qb*r^2bNU,-+mL5upXjCEENpCFFZKfkãU"f[ddtT;XC1X^#;UDuNFd,K40g\q#nWXowa87\Rh_m'ZLM*n?Z87/OH3_C^mAL'nãU"JHAH\T=M*q#uOGMh*YUiknBN/ePxTHKxO^H==A;fXCDKh6i'gSW_c(_kuuB6mryãU"1L(qU04J#zLY(WKqVHRW/b4nCtEDhsi^w.7ihfNbnfTt^i-.]tu^0vkVjMry;.MãU"JTXLvkfYMrHMQr#MHfMT^tZ^p-sqRB5lmmOk5Yj]IIe)uxRto*iq+cVxp^n(hOrãU"x.'(uiIlro$%$lQTP&6'l\_jL%z\+3.dY>:^^Yv.UFJ'eapbI.ecyM/8qsl:D%9*o7I(8\')Hb<5/ãU"NpGLJ_0#xk^H.fMnAUNg4MI[[94xf/4*Od;^gov(''?bD70eOqV5;L$lI$%*6WF9Cpfp#2#t-st1JãU"?-r[Nm2')I8as'*odxfO[FdAX&Z1NOwXAaC$exzd'v.5'q?;ZhkZ\CTZwM*rZA1ãU".EDO0h9Io71&#UlT)BCRL8320*'K5B*N[:*eEK4o7]kpC,T9Gbg&w27yUC3b]Aa7rFTqjlAne4qAsTNbd1zSDk%ãU"A]wJ(b5IlbjXaL>O&[fndsB?pgllD2HqR;hZu*$v<_Kb.]p*TqB$eJ_P0M_42WwãU".:3Tk-Xrn9cE#FdRuQi,LUnhf1)M$\EG^_>cuhtqmM;Evgl9.n>\3&uP**=^x/eãU"qCZ1k1Ro$W;>yN9$W9N50U2mfJxGW\YKsm84o1RL'x+up%()9%%%%-%3L87IBY=ãU"6S&x&%%'#7%%%-%%%%xmnu%SxuwEferYBUU5TIpb/*J'(5hNH]K[H3'\q7$h0KD\^L(lm(z)D^T+BWepbUVr<[mL_CVãU"AO#K$WNl;^DJ4osixQs0DãU"lNSA>EkpMk\P6U9a49'wKU-22huUt7sWV1OmNbCQ0mo5cj[iK%;ZMILus#7)t.SãU"-S;+HcP2]w1&JfC4KnIJ,^P96B_D7&5Dd*v.1AmUO36a_owLaL_5;%+q?9aNAr4ãU"W4FbsPn)%kLI$MHH-f5)tmnbaMrfY>t=Ffp0DJH]NIixoQSSp7bti[xz9YlgIb)vãU",Jwq&0xKtOl(cSqDmHT^Dt96vKu:r$yv8aGS(nd#G$TS&GndpR&dJ%Dup&%'9%9ãU"%%%%-I%#[ksIc'C,og3%%%>l%%%1%%%%%%%%%&%E%%%%%%%%%x%hwtq%qVVS%gfãU"xu%p&'9%%9%%[%-%Z)keI%RV+?T%'%%o%.%%-%%%%%%%%%&%%E%%%%=4%%%kts%ãU"ySks%yup&%'9%9%%%%-O%5Pj#I.:%+XD-%+%K<%%%/%%%%%%%%%&%E[%%%<%6%%ãU"w%jfir#jSy'%yup&%'9%9%%%%-O%L87+IY=6)Sx&%+%#7%%%-%%%%%%%%%%%E[%ãU"%%/%?%%x%mnuS%xuwu%p*+%%%%%)[%)%W#%%%T%A%%%%%ãEND SUBãCLOSE:IF S=8AND 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ãMatt Gulden SINGLE PIXEL SCROLL-TEXT www.thrillhaus.com/basic.html 06-25-98 (00:00) QB, QBasic, PDS 91 2776 SCRLTEXT.BAS' SCRLTEXT.BASã' by Matt Gulden (mattg@thrillhaus.com)ã' http://www.thrillhaus.com/ã' A single pixel scroll-text demonstration. Not much more than that. Enjoy!ã' This is public domain and may be redistributed in any form but if modifiedã' must be accompanied by the original version which can be grabbed fromã' http://www.thrillhaus.com/source.htmlããDEFINT A-ZãDECLARE SUB DrawDumbStuff ()ãDIM DataString(638) AS SINGLEãSCREEN 13ãã' Draw nice background graphics.ãDrawDumbStuffããWHILE INKEY$ = ""ã ã ' Get a line from the DATA statements belowã READ TEXT$ãã NextPrint = 8ãã ' If "END" is encountered in DATA statement, start from beginning of text.ã IF UCASE$(TEXT$) = "END" THENã RESTORE ScrollTextStartã READ TEXT$ã NextPrint = 8ã END IFã ã FOR num = 1 TO LEN(TEXT$)ã ã IF NextPrint = 8 THENã BYTE$ = MID$(TEXT$, num, 1)ã ã ' If the ascii code is over 150 then the it will be colored text whereã ' 150 actually equals 0, 151 is 1, and so on... Feel free to change thisã ' it won't harm anything.ã IF ASC(BYTE$) > 150 THENã COLOR ASC(BYTE$) - 150ã BYTE$ = MID$(TEXT$, num + 1, 1)ã num = num + 1ã END IFãã LOCATE 13, 40: PRINT BYTE$;ã NextPrint = 0ã ELSEã num = num - 1ã END IFã ã GET (1, 96)-(319, 103), DataStringã PUT (0, 96), DataString, PSET: NextPrint = NextPrint + 1ã ã ' Wait for vertical retrace, reduces flicker, also causes nice pause.ã WAIT &H3DA, 8ã ã IF INKEY$ <> "" THEN ENDãã NEXTããWENDããScrollTextStart:ãDATA "This is ½s¾m¿oÀoÁtÂh¥ scrolling text... "ãDATA "do you like it? "ãDATA "It's just a small, yet cool routine by me, Matt Gulden (aka Folter)... you can mail me at: "ãDATA "¶w·e¸b¹mºa»s¼t½e¾r¿@ÀtÁhÂrÃiÄlÅlÆhÇaÈuÉsÊ.ËcÌoÍm¥ "ãDATA "... and you just GOTTA check out my site! at: "ãDATA "¶www.thrillhaus.com¥ ... It has more high-quality sources for "ãDATA "Qbasic, C/C++, and soon Assembly-language... "ãDATA "This smooth scrolling text looks œmuch¥ better than those ugly demos "ãDATA "with text moving from block-to-block. "ãDATA "One downside to this little scroll-text routine is that I ran into a "ãDATA "bug that for some reason skips the last character of a DATA statement "ãDATA "and after trying to figure it out for quite a while, "ãDATA "I just gave up and put an extra space at the end of each string... That's all, and "ãDATA "happy coding! "ãDATA " —Restarting Demo...¥ "ãDATA "END"ããSUB DrawDumbStuffã ã FOR X = 16 TO 43ã LINE (X, X)-(319 - X, 199 - X), X, BFã NEXTãã LINE (0, 94)-(319, 105), 0, BFã LINE (0, 93)-(319, 106), 8, Bã LINE (0, 92)-(319, 107), 7, BããEND SUBãMatt Gulden SCROLLING WITH BIGGER TEXT www.thrillhaus.com/basic.html 06-25-98 (00:00) QB, QBasic, PDS 142 3858 SCRLTXT2.BAS' SCRLTXT2.BASã' by Matt Gulden (mattg@thrillhaus.com)ã' http://www.thrillhaus.com/ã' The second version of smooth text scrolling... Now with biggerã' text! ;) ... This doesn't run very smooth when other programs are runningã' under Win95... Freakin Microsoft ;)ã' This is public domain and may be redistributed in any form but if modifiedã' must be accompanied by the original version which can be grabbed fromã' http://www.thrillhaus.com/source.htmlããDEFINT A-Zã' Prints text double sizeãDECLARE SUB BigPrint (BYTE$)ã' A fast palette routineãDECLARE SUB PAL (A, R, G, B)ã' Draws stuff in backgroundãDECLARE SUB DrawBGStuff ()ãDIM DataString(1193) AS SINGLEãSCREEN 13ãDEF SEG = &HA000ããDrawBGStuffããWHILE INKEY$ = ""ã ã ' Get a line from the DATA statements belowã READ TEXT$ãã NextPrint = 8ãã ' If "END" is encountered in DATA statement, start from beginning of text.ã IF UCASE$(TEXT$) = "END" THENã RESTORE ScrollTextStartã READ TEXT$ã NextPrint = 8ã END IFã ã FOR NUM = 1 TO LEN(TEXT$)ã ã IF NextPrint = 8 THENã BYTE$ = MID$(TEXT$, NUM, 1)ã ã ' If the ascii code is over 150 then the it will be colored text whereã ' 150 actually equals 0, 151 is 1, and so on... Feel free to change thisã ' it won't harm anything.ã IF ASC(BYTE$) > 150 THENã COLOR ASC(BYTE$) - 150ã BYTE$ = MID$(TEXT$, NUM + 1, 1)ã NUM = NUM + 1ã END IFãã BigPrint BYTE$ã NextPrint = 0ã ELSEã NUM = NUM - 1ã END IFã ã GET (2, 94)-(319, 108), DataStringã ã PUT (0, 94), DataString, PSETã NextPrint = NextPrint + 1ãã ' Wait for vertical retrace, helps eliminate flicker and adds pauseã WAIT &H3DA, 8ã ã IF INKEY$ <> "" THEN ENDãã NEXTããWENDããScrollTextStart:ãDATA "½S¾C¿RÀLÁTÂXÃTÄ2Å.ÆBÇAÈS¥ -- The 2nd smooth scrolltext demo by Matt Gulden "ãDATA "(aka Folter) ... "ãDATA "This may not run all that smooth in Win95 with other programs running, "ãDATA "but it may just be my crappy computer. "ãDATA "I don't really consider this a 'demo' in the conventional way, "ãDATA "but it's just a demonstration of the routines... "ãDATA "feel free to use code in this source file in your own program but if "ãDATA "you do, please give me credit. Also if you have made any changes, "ãDATA "and think I should know about them, you can mail me at: "ãDATA "¶w·e¸b¹mºa»s¼t½e¾r¿@ÀtÁhÂrÃiÄlÅlÆhÇaÈuÉsÊ.ËcÌoÍm¥ "ãDATA "... That's all for now... Happy coding! ;)ãDATA " —Restarting Text...¥ "ãDATA "END"ããSUB BigPrint (BYTE$)ã ã LOCATE 1, 1: PRINT BYTE$;ã FOR X = 0 TO 6ã FOR Y = 0 TO 7ã IF PEEK(Y * 320 + X) THENã PSET (X * 2 + 305, Y * 2 + 94)ã END IFã NEXTã NEXTã LOCATE 1, 1: PRINT " ";ããEND SUBããSUB DrawBGStuffãã ' Set colors 64 through 191 from shades of black to red to whiteã FOR NUM = 64 TO 127ã PAL NUM, NUM, 0, 0ã NEXTã NUM2 = 63ã FOR NUM = 128 TO 191ã PAL NUM, NUM2, NUM, NUMã NUM2 = NUM2 - 1ã NEXTãã ' Draw starsã FOR NUM = 0 TO 500ã PSET (INT(RND * 320), INT(RND * 200)), INT(RND * 10) + 17ã NEXTãã ' Draw cool red patternsã FOR X = 0 TO 99: LINE (X, X)-(319 - X, 199 - X), X + 64: NEXTã FOR X = 0 TO 99: LINE (319 - X, X)-(X, 199 - X), X + 64: NEXTã FOR X = 0 TO 99: LINE (140, X)-(180, 199 - X), X + 64: NEXTã FOR X = 0 TO 99: LINE (180, X)-(140, 199 - X), X + 64: NEXTã ã ' Draw gradiated box around scrolltextã LINE (0, 92)-(319, 109), 0, BFã LINE (0, 91)-(319, 91), 25ã LINE (0, 110)-(319, 110), 25ã LINE (0, 90)-(319, 90), 28ã LINE (0, 111)-(319, 111), 28ã LINE (0, 89)-(319, 89), 31ã LINE (0, 112)-(319, 112), 31ããEND SUBããSUB PAL (A, R, G, B)ãã OUT &H3C8, Aã OUT &H3C9, Rã OUT &H3C9, Gã OUT &H3C9, BããEND SUBãMatt Gulden VERTICAL SCROLLING TEXT www.thrillhaus.com/basic.html 06-25-98 (00:00) QB, QBasic, PDS 133 3077 SCRLTXT3.BAS' SCRLTXT3.BAS -- by Matt Gulden (mattg@thrillhaus.com)ã' Found at http://www.thrillhaus.com/ã' This is the third smooth scrolling text demo, now scrollingã' vertically! Uses new scrolltext keywords;ã' WAIT4KEY - stops scrolltext and suspends until key is pressedã' PAUSE n - Pauses for n seconds (type double)ã' END - marks end of text (required!)ã' The DATA statements need the color, then the text.ã' All text is right-aligned, you can edit it though.ããDEFINT A-ZãDECLARE SUB DrawStuff ()ãDECLARE SUB PAL (A, R, G, B)ãDECLARE SUB RightAlign (y, text$)ãDECLARE SUB PAUSE (LENGTH#)ãDIM DataString(6240) AS SINGLEãSCREEN 13ããDrawStuffããWHILE INKEY$ = ""ãã IF NextPrint = 16 THENã READ Colour, text$ã IF UCASE$(text$) = "END" THENã RESTORE ScrollTextStartã READ Colour, text$ã COLOR Colourã RightAlign 24, text$ã NextPrint = 0ã ' These next two lines make the text look skinnyã GET (1, 184)-(319, 192), DataStringã PUT (0, 184), DataString, ANDã ELSEIF UCASE$(text$) = "WAIT4KEY" THENã WHILE INKEY$ = "": WENDã NextPrint = 0ã ELSEIF LEFT$(UCASE$(text$), 6) = "PAUSE " THENã PAUSE VAL(RIGHT$(text$, LEN(text$) - INSTR(text$, " ")))ã NextPrint = 0ã ELSEã COLOR Colourã RightAlign 24, text$ã NextPrint = 0ã ' These next two lines make the text look skinnyã GET (1, 184)-(319, 192), DataStringã PUT (0, 184), DataString, ANDã END IFã END IFãã NextPrint = NextPrint + 1ã ã ' Wait for vertical retraceã WAIT &H3DA, 8ã ã ' move text up a pixelã GET (0, 115)-(319, 192), DataStringã PUT (0, 114), DataString, PSETã ã ' Make text italicã 'GET (1, 184)-(319, 192), DataStringã 'PUT (0, 184), DataString, PSETã ãWENDããScrollTextStart:ãDATA 30, "Smooth scrolling text #3!"ãDATA 40, "by Matt Gulden (aka Folter)"ãDATA 50, "webmaster@thrillhaus.com"ãDATA 0, "PAUSE 2.5"ãDATA 0, ""ãDATA 50, "This is just another example of"ãDATA 60, "the quality source code found at:"ãDATA 70, "http://www.thrillhaus.com/"ãDATA 0, "PAUSE 2.5"ãDATA 0, ""ãDATA 70, "Also check out our free software,"ãDATA 80, "compiler(s), utilities, and screen"ãDATA 90, "savers"ãDATA 0, "PAUSE 2.5"ãDATA 0, ""ãDATA 90, "Look for projects like THScript,"ãDATA 100, "LightBasic, SpASM, Bastard 98, vTXT,"ãDATA 110, "and more!"ãDATA 0, "PAUSE 2.5"ãDATA 0, ""ãDATA 0, ""ãDATA 0, ""ãDATA 80, "Restarting Text "ãDATA 0, ""ãDATA 0, ""ãDATA 0, ""ãDATA 0, ""ãDATA 0, "END"ããSUB DrawStuffãã FOR NUM = 0 TO 63ã PAL NUM, NUM, 0, 0ã NEXTã NUM2 = 63ã FOR NUM = 64 TO 113ã PAL NUM, 63, NUM, 0ã NUM2 = NUM2 - 1ã NEXTã NUM2 = 63ãã FOR y = 0 TO 113ã LINE (0, y)-(319, y), yã NEXTããEND SUBããSUB PAL (A, R, G, B)ãã OUT &H3C8, Aã OUT &H3C9, Rã OUT &H3C9, Gã OUT &H3C9, BããEND SUBããSUB PAUSE (LENGTH#)ãã START# = TIMER: WHILE TIMER < START# + LENGTH#: WENDããEND SUBããSUB RightAlign (y, text$)ãã x = 40 - LEN(text$)ã LOCATE y, x: PRINT text$;ã ãEND SUBãAnders Olofsson LOAD/SAVE 320X200 BITMAPS anders.olofsson@mail.bip.net 07-06-98 (22:27) QB, QBasic, PDS 181 4970 BMPVIEW.BAS 'ã' Fast BMP-viewer for screen 13, by Anders Olofsson 1998.ã' This program loads a 320 x 200 256 color bitmap picture in about 0.15ã' seconds. (On my 486/66 mhz in QB 4.5)ã'ã' Thanks to Jonathan Leger for the Memcopyã' routine and Davey W. taylor for his BMPSNOW.BAS, where i foundã' the BmpInfo type def.ã'ã' E-mail: anders.olofsson@mail.bip.netã'ããDEFINT A-ZãDECLARE SUB ShowBMP (File$)ãDECLARE SUB SaveBMP (Filename$)ãDECLARE FUNCTION getfilename$ (Text$)ãDECLARE SUB Memcopy (fromseg%, fromoffset%, toseg%, tooffset%, bytes%)ãããTYPE BmpInfoã id AS STRING * 2ã filesize AS LONGã reserved AS STRING * 4ã Offset AS LONGã SizeOfHeader AS LONGã BMPWidth AS LONGã BmpHeight AS LONGã Bitplanes AS INTEGERã Bitsperpixel AS INTEGERã Compression AS LONGã Imagesize AS LONGã Pelspermetrex AS LONGã Pelspermetrey AS LONGã UsedColors AS LONGã importantcolors AS LONGãEND TYPEãããZ$ = getfilename$("Select 320x200 256 color BMP file to view: ")ããSCREEN 13ããT! = TIMERãShowBMP Z$ãPRINT USING "It took##.### seconds."; TIMER - T!ããSLEEPããCLS : ShowBMP Z$ãLOCATE 1, 1ãPRINT "Saving BMP...";ãT! = TIMERãSaveBMP "TEMP.BMP"ãPRINT "done."ãPRINT USING "It took##.### seconds."; TIMER - T!ããWHILE LEN(INKEY$) = 0: WENDããFUNCTION getfilename$ (Text$)ãSCREEN 0: WIDTH 80, 25: CLSãLOCATE 1, 1ãPRINT Text$ãLINE INPUT I$ãIF I$ = "" THEN ENDãgetfilename$ = I$ãEND FUNCTIONããSUB Memcopy (fromseg%, fromoffset%, toseg%, tooffset%, bytes%)ããDIM MemCopy.ASM AS STRINGãMemCopy.ASM = ""ãMemCopy.ASM = MemCopy.ASM + CHR$(85) 'PUSH BPãMemCopy.ASM = MemCopy.ASM + CHR$(137) + CHR$(229) 'MOV BP,SPãMemCopy.ASM = MemCopy.ASM + CHR$(30) 'PUSH DSãMemCopy.ASM = MemCopy.ASM + CHR$(139) + CHR$(70) + CHR$(10) 'MOV AX,[BP+0A]ãMemCopy.ASM = MemCopy.ASM + CHR$(142) + CHR$(192) 'MOV ES,AXãMemCopy.ASM = MemCopy.ASM + CHR$(139) + CHR$(70) + CHR$(14) 'MOV AX,[BP+0E]ãMemCopy.ASM = MemCopy.ASM + CHR$(142) + CHR$(216) 'MOV DS,AXãMemCopy.ASM = MemCopy.ASM + CHR$(139) + CHR$(118) + CHR$(12) 'MOV SI,[BP+0C]ãMemCopy.ASM = MemCopy.ASM + CHR$(139) + CHR$(126) + CHR$(8) 'MOV DI,[BP+08]ãMemCopy.ASM = MemCopy.ASM + CHR$(139) + CHR$(78) + CHR$(6) 'MOV CX,[BP+06]ãMemCopy.ASM = MemCopy.ASM + CHR$(243) 'REPZãMemCopy.ASM = MemCopy.ASM + CHR$(164) 'MOVSBãMemCopy.ASM = MemCopy.ASM + CHR$(31) 'POP DSãMemCopy.ASM = MemCopy.ASM + CHR$(93) 'POP BPãMemCopy.ASM = MemCopy.ASM + CHR$(203) 'RETFããDEF SEG = VARSEG(MemCopy.ASM)ã CALL Absolute(BYVAL fromseg%, BYVAL fromoffset%, BYVAL toseg%, BYVAL tooffset%, BYVAL bytes%, SADD(MemCopy.ASM))ãDEF SEGããEND SUBããSUB SaveBMP (Filename$)ãDIM BMPHeader AS BmpInfoããBMPHeader.id = "BM"ãBMPHeader.SizeOfHeader = 40ãBMPHeader.BMPWidth = 320ãBMPHeader.BmpHeight = 200ãBMPHeader.Bitsperpixel = 8ãBMPHeader.Imagesize = 64000ãBMPHeader.UsedColors = 255ãBMPHeader.Bitplanes = 1ãBMPHeader.Offset = 1078ãBMPHeader.Pelspermetrex = 3780ãBMPHeader.Pelspermetrey = 3790ãããF = FREEFILEãOPEN Filename$ FOR BINARY AS #Fãã PUT #F, , BMPHeaderããFOR C = 0 TO 255ã OUT &H3C7, Cã B = INP(&H3C9): G = INP(&H3C9): R = INP(&H3C9)ã PData$ = CHR$(R * 4) + CHR$(G * 4) + CHR$(B * 4) + " "ã PUT #F, , PData$ãNEXTããDIM Buffer AS STRINGãSegment = &HA000 + (64000 \ 16) - 20ããFOR y = 200 TO 1 STEP -1ã Buffer = SPACE$(320)ã Memcopy Segment, 0, VARSEG(Buffer), SADD(Buffer), 320ã PUT #F, , Bufferã Segment = Segment - 20ãNEXTããCLOSE #FããEND SUBããSUB ShowBMP (File$)ããDIM BMPHeader AS BmpInfoããF = FREEFILEãOPEN File$ FOR BINARY ACCESS READ AS #FãGET #F, 1, BMPHeaderããIF BMPHeader.id <> "BM" OR BMPHeader.SizeOfHeader <> 40 THENã PRINT File$; " is not a valid bitmap file": ENDãELSEIF BMPHeader.BMPWidth <> 320 OR BMPHeader.BmpHeight <> 200 THENã PRINT "Size of image has to bee 320x200!": ENDãELSEIF BMPHeader.Compression THENã PRINT "This program does'nt show rle compressed bmp's!": ENDãELSEIF BMPHeader.Bitsperpixel <> 8 THENã PRINT "Only 256 color bitmaps can be displayed!": ENDãEND IFããPal$ = INPUT$(1024, F)ãFOR C = 0 TO 255 'Set palette to black while drawing to screenã OUT &H3C8, C: OUT &H3C9, 0: OUT &H3C9, 0: OUT &H3C9, 0ãNEXTããDIM Buffer AS STRINGãSegment = &HA000 + (64000 - 1280) \ 16ããFOR y = 199 TO 0 STEP -4ã Buffer = SPACE$(320)ã GET #F, , Bufferã Buffer = INPUT$(320, F) + Bufferã Buffer = INPUT$(320, F) + Bufferã Buffer = INPUT$(320, F) + Bufferã Memcopy VARSEG(Buffer), SADD(Buffer), Segment, 0, 1280ã Segment = Segment - 80ãNEXTããCLOSE #FããFOR C = 0 TO 255ã B = ASC(MID$(Pal$, C * 4 + 1, 1)) \ 4ã G = ASC(MID$(Pal$, C * 4 + 2, 1)) \ 4ã R = ASC(MID$(Pal$, C * 4 + 3, 1)) \ 4ã OUT &H3C8, Cã OUT &H3C9, R: OUT &H3C9, G: OUT &H3C9, BãNEXTãEND SUBãAnders Olofsson PLASMA, 320X200X256 VERSION anders.olofsson@mail.bip.net 07-06-98 (22:27) QB, QBasic, PDS 291 7502 PLASMA1.BAS 'ã' Plasma, 320x200x256 version.ã'ã' By Anders Olofsson 1998.ã'ã' E-mail: anders.olofsson@mail.bip.netã'ã'-------------------------------------------------------ã' ** Compile for maximum speed **ã'ã' Press space to change palette rotation directionã' Press "P" to get a new paletteã' Press "N" to get new plasmaã' Press Enter to save current plasma in a bitmap file!!!ã'-------------------------------------------------------ã'ã' Thanks to:ã' Davey W. Taylor for the bmpinfo type def.ã' Jonathan Leger - Memcopy routine.ã'ã'ã'-------------------------------------------------------ããDEFINT A-ZãDECLARE SUB Memcopy (fromseg%, fromoffset%, toseg%, tooffset%, bytes%)ãDECLARE SUB CyclePalette (Dir%)ãDECLARE SUB Paletteget (A%, R%, G%, B%)ãDECLARE SUB MakeRandomPalette ()ãDECLARE SUB Pal (A%, R%, G%, B%)ãDECLARE SUB SaveBMP (N$)ãDECLARE SUB SetScreenmode (SM%)ã ããCONST Noise = 0 ' If you want noise, change the value to 1ãCONST StartSize = 5 ' Bigger value = bigger clouds...ãCONST Plasmatimer = 120 ' Changes plasma every .. second(s).ãCONST PaletteTimer = 30 ' Changes palette every .. second(s).ã File$ = "PLASMA" ' Name of the captured files... (this will turn outã ' plasma.bmp, plasma1.bmp, plasma2.bmp and so on...)ã'-------------------------------------------------------ãããã' Needed to save screen-shots in bitmap format...ããTYPE BmpInfoã id AS STRING * 2ã filesize AS LONGã reserved AS STRING * 4ã Offset AS LONGã SizeOfHeader AS LONGã BMPWidth AS LONGã BmpHeight AS LONGã Bitplanes AS INTEGERã Bitsperpixel AS INTEGERã Compression AS LONGã Imagesize AS LONGã Pelspermetrex AS LONGã Pelspermetrey AS LONGã UsedColors AS LONGã importantcolors AS LONGãEND TYPEãããSCREEN 13ããGOSUB ChangePaletteããCurrentDir = 1ããRedrawPlasma:ããFOR y = 0 TO 199 STEP StartSizeã FOR x = 0 TO 319 STEP StartSizeã C = RND * 254 + 1ã LINE (x, y)-STEP(StartSize, StartSize), C, BFã NEXTãNEXTãããDEF SEG = &HA000ãFOR s = StartSize TO 1 STEP -1ãFOR y = 0 TO 199 STEP sã Y2 = y + s: IF Y2 >= 199 THEN Y2 = 199ã FOR x = 0 TO 319 STEP sã C = (PEEK(320& * y + x) + PEEK(320& * Y2 + (x + s)) + PEEK(320& * Y2 + x) + PEEK(320& * y + (x + s))) \ 4ã IF s > 1 THEN LINE (x, y)-STEP(s, s), C, BF ELSE POKE 320& * y + x, Cã NEXTãNEXTãNEXTããIF Noise THENãFOR y = 0 TO 199ãFOR x = 0 TO 319ã C = PEEK(320& * y + x + 1) - (RND * 10) + 1ã POKE 320& * y + x, CãNEXTãCyclePalette CurrentDirãNEXTãEND IFããPlasmaCounter! = TIMERãPaletteCounter! = TIMERããDOã Keys$ = UCASE$(INKEY$)ã IF LEN(Keys$) THENã IF Keys$ = " " AND CurrentDir = 2 THEN CurrentDir = 1: Keys$ = ""ã IF Keys$ = " " AND CurrentDir = 1 THEN CurrentDir = 2ã IF Keys$ = "P" THEN GOSUB ChangePalette: Keys$ = ""ã IF Keys$ = "N" THEN GOTO RedrawPlasmaã IF Keys$ = CHR$(13) THENã filen$ = File$ãFileCheck: F = FREEFILEã OPEN filen$ + ".BMP" FOR BINARY AS #Fã IF LOF(1) > 0 THENã CLOSE #Fã FCounter = FCounter + 1ã filen$ = File$ + LTRIM$(RTRIM$(STR$(FCounter)))ã GOTO FileCheckã ELSEã CLOSE #Fã KILL filen$ + ".BMP"ã END IFã SaveBMP filen$ + ".BMP"ã Keys$ = ""ã END IFã END IFã CyclePalette CurrentDirã IF TIMER - PlasmaCounter! > Plasmatimer THEN GOTO RedrawPlasmaã IF TIMER - PaletteCounter! > PaletteTimer THEN GOSUB ChangePaletteãã 'Lots of retraices... else it goes to fast!ã WAIT &H3DA, 8: WAIT &H3DA, 8, 1ã WAIT &H3DA, 8: WAIT &H3DA, 8, 1ãLOOP UNTIL LEN(Keys$) AND Keys$ <> " "ããFOR x = 0 TO 63 'Fade outã FOR C = 0 TO 255ã Paletteget C, R, G, Bã IF R THEN R = R - 1ã IF G THEN G = G - 1ã IF B THEN B = B - 1ã Pal C, R, G, Bã NEXTã WAIT &H3DA, 8: WAIT &H3DA, 8, 1ãNEXTããSCREEN 0: WIDTH 80, 25ããENDããChangePalette:ãPaletteCounter! = TIMERãR = INP(64) \ 5: G = INP(64) \ 5: G = INP(64) \ 5ãPal 1, R, G, B: Pal 255, R + (10 * RND), G + (10 * RND), B + (10 * RND)ã MakeRandomPaletteãPal 0, 0, 0, 0ãPal 64, 63, 63, 0ãRETURNããSUB CyclePalette (Dir)ããIF Dir = 1 THENãFOR T = 2 TO 255ã Paletteget T, R, G, Bã Pal T - 1, R, G, BãNEXTããPaletteget 1, R, G, BãPal 255, R, G, BããELSEããPaletteget 255, R, G, BãPal 1, R, G, BããFOR T = 254 TO 1 STEP -1ã Paletteget T, R, G, Bã Pal T + 1, R, G, BãNEXTããEND IFããWAIT &H3DA, 8ãWAIT &H3DA, 8, 1ããEND SUBããSUB MakeRandomPaletteãDIM used(0 TO 255) AS STRING * 2: used(0) = CHR$(1) + CHR$(255): s = 1ããDOãgetnext: IF s = 0 THEN EXIT DOã s = s - 1ã c1 = ASC(used(s)): c2 = ASC(RIGHT$(used(s), 1))ã current = (c1 + c2) \ 2ãIF c1 = c2 OR current = c1 OR current = c2 GOTO getnextãã Paletteget c1, r1, g1, b1: Paletteget c2, r2, g2, b2ã T = (ABS(c1 - c2) \ 8) * ((INP(64) MOD 3) - 1)ã R = (r1 + r2) \ 2 + T: G = (g1 + g2) \ 2 + T: B = (b1 + b2) \ 2 + Tã Pal current, R, G, Bã used(s) = CHR$(c1) + CHR$(current): s = s + 1ã used(s) = CHR$(current) + CHR$(c2): s = s + 1ãLOOP UNTIL s = 0ãPal 0, 0, 0, 0ããEND SUBããSUB Memcopy (fromseg%, fromoffset%, toseg%, tooffset%, bytes%)ããDIM MemCopy.ASM AS STRINGãMemCopy.ASM = ""ãMemCopy.ASM = MemCopy.ASM + CHR$(85) 'PUSH BPãMemCopy.ASM = MemCopy.ASM + CHR$(137) + CHR$(229) 'MOV BP,SPãMemCopy.ASM = MemCopy.ASM + CHR$(30) 'PUSH DSãMemCopy.ASM = MemCopy.ASM + CHR$(139) + CHR$(70) + CHR$(10) 'MOV AX,[BP+0A]ãMemCopy.ASM = MemCopy.ASM + CHR$(142) + CHR$(192) 'MOV ES,AXãMemCopy.ASM = MemCopy.ASM + CHR$(139) + CHR$(70) + CHR$(14) 'MOV AX,[BP+0E]ãMemCopy.ASM = MemCopy.ASM + CHR$(142) + CHR$(216) 'MOV DS,AXãMemCopy.ASM = MemCopy.ASM + CHR$(139) + CHR$(118) + CHR$(12) 'MOV SI,[BP+0C]ãMemCopy.ASM = MemCopy.ASM + CHR$(139) + CHR$(126) + CHR$(8) 'MOV DI,[BP+08]ãMemCopy.ASM = MemCopy.ASM + CHR$(139) + CHR$(78) + CHR$(6) 'MOV CX,[BP+06]ãMemCopy.ASM = MemCopy.ASM + CHR$(243) 'REPZãMemCopy.ASM = MemCopy.ASM + CHR$(164) 'MOVSBãMemCopy.ASM = MemCopy.ASM + CHR$(31) 'POP DSãMemCopy.ASM = MemCopy.ASM + CHR$(93) 'POP BPãMemCopy.ASM = MemCopy.ASM + CHR$(203) 'RETFããDEF SEG = VARSEG(MemCopy.ASM)ã CALL Absolute(BYVAL fromseg%, BYVAL fromoffset%, BYVAL toseg%, BYVAL tooffset%, BYVAL bytes%, SADD(MemCopy.ASM))ãDEF SEGããEND SUBããSUB Pal (A, R, G, B)ãOUT &H3C8, AãOUT &H3C9, RãOUT &H3C9, GãOUT &H3C9, BããEND SUBããSUB Paletteget (A, R, G, B)ãOUT &H3C7, AãR = INP(&H3C9)ãG = INP(&H3C9)ãB = INP(&H3C9)ãEND SUBããSUB SaveBMP (Filename$)ãDIM BMPHeader AS BmpInfoããBMPHeader.id = "BM"ãBMPHeader.SizeOfHeader = 40ãBMPHeader.BMPWidth = 320ãBMPHeader.BmpHeight = 200ãBMPHeader.Bitsperpixel = 8ãBMPHeader.Imagesize = 64000ãBMPHeader.UsedColors = 255ãBMPHeader.Bitplanes = 1ãBMPHeader.Offset = 1078ãBMPHeader.Pelspermetrex = 3780ãBMPHeader.Pelspermetrey = 3790ãããF = FREEFILEãOPEN Filename$ FOR BINARY AS #Fãã PUT #F, , BMPHeaderããFOR C = 0 TO 255ã Paletteget C, R, G, Bã PData$ = CHR$(R * 4) + CHR$(G * 4) + CHR$(B * 4) + " "ã PUT #F, , PData$ãNEXTããDIM Buffer AS STRINGãSegment = &HA000 + (64000 \ 16) - 20ããFOR y = 200 TO 1 STEP -1ã Buffer = SPACE$(320)ã Memcopy Segment, 0, VARSEG(Buffer), SADD(Buffer), 320ã PUT #F, , Bufferã Segment = Segment - 20ãNEXTããCLOSE #FããEND SUBãAnders Olofsson SVGA PLASMA, 640X480X256 anders.olofsson@mail.bip.net 07-06-98 (22:27) QB, QBasic, PDS 281 6489 PLASMA2.BAS 'ã' SVGA Plasma, 640x480x256 version.ã'ã' By Anders Olofsson 1998.ã'ã' E-mail: anders.olofsson@mail.bip.netã'ã'-------------------------------------------------------ã' ** Compile for maximum speed **ã'ã' Press space to change palette rotation directionã' Press "P" to get a new paletteã' Press "N" to get new plasmaã' Press Enter to save current plasma in a bitmap file!!!ã'-------------------------------------------------------ã'ã' Thanks to:ã' Andrew S. Gibson - Switchbank & dpoint & dpsetã' (Switchbank has been converted to asm-code, so thatã' Qbasic users can run this program.)ã'ã'-------------------------------------------------------ããDEFINT A-ZãDECLARE SUB Switchbank (NB%)ãDECLARE FUNCTION DPOINT% (XCOORD%, YCOORD%)ãDECLARE SUB dpset (XCOORD%, YCOORD%, CL%)ãDECLARE SUB CyclePalette (Dir%)ãDECLARE SUB Paletteget (A%, R%, G%, B%)ãDECLARE SUB PutBox (x%, y%, c%, s%)ãDECLARE SUB putpix (x%, y%, c%)ãDECLARE SUB MakeRandomPalette ()ãDECLARE SUB Pal (A%, R%, G%, B%)ãDECLARE SUB SetScreenmode (SM%)ã ããCONST Noise = 0 ' If you want noise, change the value to 1ãCONST StartSize = 7 ' Bigger value = bigger clouds...ãCONST Plasmatimer = 120 ' Changes plasma every .. second(s).ãCONST PaletteTimer = 30 ' Changes palette every .. second(s).ã File$ = "PLASMA" ' Name of the captured files... (this will turn outã ' plasma.bmp, plasma1.bmp, plasma2.bmp and so on...)ã'-------------------------------------------------------ããTYPE RegtypeXã AX AS INTEGERã BX AS INTEGERã cx AS INTEGERã DX AS INTEGERã bp AS INTEGERã si AS INTEGERã di AS INTEGERã flags AS INTEGERã ds AS INTEGERã es AS INTEGERãEND TYPEããDIM SHARED Bank%, Table&(0 TO 485)ããFOR Height% = 0 TO 485: Table&(Height%) = Height% * 640&: NEXT Height%ããSCREEN 13ããSetScreenmode &H101ããGOSUB ChangePaletteãCurrentDir = 1ããRedrawPlasma:ããFOR y = 0 TO 479 STEP StartSizeã FOR x = 0 TO 639 STEP StartSizeã c = RND * 254 + 1ã FOR tx = x TO x + StartSizeã FOR ty = y TO y + StartSizeã dpset tx, ty, cã NEXTã NEXTã NEXTã IF LEN(INKEY$) THEN EXIT FORãNEXTããDEF SEG = &HA000ãFOR s = StartSize - 1 TO 1 STEP -1ãFOR y = 0 TO 479 STEP sã FOR x = 0 TO 639 STEP sã c = (DPOINT(x, y) + DPOINT(x + s, y + s) + DPOINT(x + s, y) + DPOINT(x, y + s)) \ 4ã FOR tx = x TO x + sã FOR ty = y TO y + sã dpset tx, ty, cã NEXTã NEXTã NEXTã IF LEN(INKEY$) THEN EXIT FOR: EXIT FORãNEXTãNEXTãããIF Noise THENãFOR y = 0 TO 199ãFOR x = 0 TO 319ã c = DPOINT(x, y)ã dpset x, y, cãNEXTãCyclePalette CurrentDirãNEXTãEND IFããPlasmaCounter! = TIMERãPaletteCounter! = TIMERããDOã Keys$ = UCASE$(INKEY$)ã IF LEN(Keys$) THENã IF Keys$ = " " AND CurrentDir = 2 THEN CurrentDir = 1: Keys$ = ""ã IF Keys$ = " " AND CurrentDir = 1 THEN CurrentDir = 2ã IF Keys$ = "P" THEN GOSUB ChangePalette: Keys$ = ""ã IF Keys$ = "N" THEN GOTO RedrawPlasmaã END IFã CyclePalette CurrentDirã IF TIMER - PlasmaCounter! > Plasmatimer THEN GOTO RedrawPlasmaã IF TIMER - PaletteCounter! > PaletteTimer THEN GOSUB ChangePaletteãã 'Lots of retraices... else it goes to fast!ã WAIT &H3DA, 8: WAIT &H3DA, 8, 1ã WAIT &H3DA, 8: WAIT &H3DA, 8, 1ãLOOP UNTIL LEN(Keys$) AND Keys$ <> " "ããFOR x = 0 TO 63 'Fade outã FOR c = 0 TO 255ã Paletteget c, R, G, Bã IF R THEN R = R - 1ã IF G THEN G = G - 1ã IF B THEN B = B - 1ã Pal c, R, G, Bã NEXTã WAIT &H3DA, 8: WAIT &H3DA, 8, 1ãNEXTããSCREEN 13: SCREEN 0: WIDTH 80, 25ããENDããChangePalette:ãPaletteCounter! = TIMERãR = INP(64) \ 5: G = INP(64) \ 5: G = INP(64) \ 5ãPal 1, R, G, B: Pal 255, R + (10 * RND), G + (10 * RND), B + (10 * RND)ã MakeRandomPaletteãPal 0, 0, 0, 0ãPal 64, 63, 63, 0ãRETURNããSUB CyclePalette (Dir)ããIF Dir = 1 THENãFOR t = 2 TO 255ã Paletteget t, R, G, Bã Pal t - 1, R, G, BãNEXTããPaletteget 1, R, G, BãPal 255, R, G, BããELSEããPaletteget 255, R, G, BãPal 1, R, G, BããFOR t = 254 TO 1 STEP -1ã Paletteget t, R, G, Bã Pal t + 1, R, G, BãNEXTããEND IFããWAIT &H3DA, 8ãWAIT &H3DA, 8, 1ããEND SUBããFUNCTION DPOINT% (XCOORD, YCOORD)ãNewBank% = (Table&(YCOORD) + XCOORD) \ 65536ãIF NewBank% <> Bank% THEN Switchbank NewBank%ãDEF SEG = &HA000ãDPOINT% = PEEK((Table&(YCOORD) + XCOORD) MOD 65536)ãDEF SEGããEND FUNCTIONããSUB dpset (XCOORD, YCOORD, CL%)ãNewBank% = (Table&(YCOORD) + XCOORD) \ 65536ãIF NewBank% <> Bank% THEN Switchbank NewBank%ãDEF SEG = &HA000ãPOKE (Table&(YCOORD) + XCOORD) MOD 65536, CL%ãDEF SEGããEND SUBããSUB MakeRandomPaletteãDIM used(0 TO 255) AS STRING * 2: used(0) = CHR$(1) + CHR$(255): s = 1ããDOãgetnext: IF s = 0 THEN EXIT DOã s = s - 1ã c1 = ASC(used(s)): c2 = ASC(RIGHT$(used(s), 1))ã current = (c1 + c2) \ 2ãIF c1 = c2 OR current = c1 OR current = c2 GOTO getnextãã Paletteget c1, r1, g1, b1: Paletteget c2, r2, g2, b2ã t = (ABS(c1 - c2) \ 8) * ((INP(64) MOD 3) - 1)ã R = (r1 + r2) \ 2 + t: G = (g1 + g2) \ 2 + t: B = (b1 + b2) \ 2 + tã Pal current, R, G, Bã used(s) = CHR$(c1) + CHR$(current): s = s + 1ã used(s) = CHR$(current) + CHR$(c2): s = s + 1ãLOOP UNTIL s = 0ãPal 0, 0, 0, 0ããEND SUBããSUB Pal (A, R, G, B)ãOUT &H3C8, AãOUT &H3C9, RãOUT &H3C9, GãOUT &H3C9, BããEND SUBããSUB Paletteget (A, R, G, B)ãOUT &H3C7, AãR = INP(&H3C9)ãG = INP(&H3C9)ãB = INP(&H3C9)ãEND SUBããSUB SetScreenmode (SM)ã'SM (ScreenMode) may be any one of the following:ã'3 = Text Modeã'&H100 = 640x400x256ã'&H101 = 640x480x256ã'&H102 = 800x600x16ã'&H103 = 800x600x256ã'&H104 = 1024x768x16ã'&H105 = 1024x768x256ã'ã'Interrupt converted to assembly code by Anders Olofsson.ããasm$ = CHR$(&HB8) + MKI$(&H4F02)ãasm$ = asm$ + CHR$(&HBB) + MKI$(SM)ãasm$ = asm$ + CHR$(&HCD) + CHR$(&H10)ãasm$ = asm$ + CHR$(&HCB)ããDEF SEG = VARSEG(asm$)ã CALL Absolute(SADD(asm$))ãDEF SEGããEND SUBããSUB Switchbank (NB%)ãã'DIM Registers AS RegtypeXã' Registers.AX = &H4F05ã' Registers.BX = 0ã' Registers.DX = NB%ã' CALL InterruptX(&H10, Registers, Registers)ã' Bank% = NB%ãã ã ã 'Converted to Qbasic code...ãã asm$ = CHR$(&HB8) + CHR$(5) + CHR$(&H4F)'MKI$(&H4F05)ãasm$ = asm$ + CHR$(&HBB) + MKI$(0)ãasm$ = asm$ + CHR$(&HBA) + CHR$(NB%) + CHR$(0)ãasm$ = asm$ + CHR$(&HCD) + CHR$(&H10)ãasm$ = asm$ + CHR$(&HCB)ããDEF SEG = VARSEG(asm$): o = SADD(asm$): CALL Absolute(o): DEF SEGããBank% = NB%ããEND SUBãAnders Olofsson SVGA PLASMA, 800X600X256 anders.olofsson@mail.bip.net 07-06-98 (22:27) QB, QBasic, PDS 281 6488 PLASMA3.BAS 'ã' SVGA Plasma, 800x600x256 version.ã'ã' By Anders Olofsson 1998.ã'ã' E-mail: anders.olofsson@mail.bip.netã'ã'-------------------------------------------------------ã' ** Compile for maximum speed **ã'ã' Press space to change palette rotation directionã' Press "P" to get a new paletteã' Press "N" to get new plasmaã' Press Enter to save current plasma in a bitmap file!!!ã'-------------------------------------------------------ã'ã' Thanks to:ã' Andrew S. Gibson - Switchbank & dpoint & dpsetã' (Switchbank has been converted to asm-code, so thatã' Qbasic users can run this program.)ã'ã'-------------------------------------------------------ããDEFINT A-ZãDECLARE SUB Switchbank (NB%)ãDECLARE FUNCTION DPOINT% (XCOORD%, YCOORD%)ãDECLARE SUB dpset (XCOORD%, YCOORD%, CL%)ãDECLARE SUB CyclePalette (Dir%)ãDECLARE SUB Paletteget (A%, R%, G%, B%)ãDECLARE SUB PutBox (x%, y%, c%, s%)ãDECLARE SUB putpix (x%, y%, c%)ãDECLARE SUB MakeRandomPalette ()ãDECLARE SUB Pal (A%, R%, G%, B%)ãDECLARE SUB SetScreenmode (SM%)ã ããCONST Noise = 0 ' If you want noise, change the value to 1ãCONST StartSize = 7 ' Bigger value = bigger clouds...ãCONST Plasmatimer = 120 ' Changes plasma every .. second(s).ãCONST PaletteTimer = 30 ' Changes palette every .. second(s).ã File$ = "PLASMA" ' Name of the captured files... (this will turn outã ' plasma.bmp, plasma1.bmp, plasma2.bmp and so on...)ã'-------------------------------------------------------ããTYPE RegtypeXã AX AS INTEGERã BX AS INTEGERã cx AS INTEGERã DX AS INTEGERã bp AS INTEGERã si AS INTEGERã di AS INTEGERã flags AS INTEGERã ds AS INTEGERã es AS INTEGERãEND TYPEããDIM SHARED Bank%, Table&(0 TO 805)ããFOR Height% = 0 TO 805: Table&(Height%) = Height% * 800&: NEXT Height%ããSCREEN 13ããSetScreenmode &H103ããGOSUB ChangePaletteãCurrentDir = 1ããRedrawPlasma:ããFOR y = 0 TO 599 STEP StartSizeã FOR x = 0 TO 799 STEP StartSizeã c = RND * 254 + 1ã FOR tx = x TO x + StartSizeã FOR ty = y TO y + StartSizeã dpset tx, ty, cã NEXTã NEXTã NEXTã IF LEN(INKEY$) THEN EXIT FORãNEXTããDEF SEG = &HA000ãFOR s = StartSize - 1 TO 1 STEP -1ãFOR y = 0 TO 599 STEP sã FOR x = 0 TO 799 STEP sã c = (DPOINT(x, y) + DPOINT(x + s, y + s) + DPOINT(x + s, y) + DPOINT(x, y + s)) \ 4ã FOR tx = x TO x + sã FOR ty = y TO y + sã dpset tx, ty, cã NEXTã NEXTã NEXTã IF LEN(INKEY$) THEN EXIT FOR: EXIT FORãNEXTãNEXTãããIF Noise THENãFOR y = 0 TO 199ãFOR x = 0 TO 319ã c = DPOINT(x, y)ã dpset x, y, cãNEXTãCyclePalette CurrentDirãNEXTãEND IFããPlasmaCounter! = TIMERãPaletteCounter! = TIMERããDOã Keys$ = UCASE$(INKEY$)ã IF LEN(Keys$) THENã IF Keys$ = " " AND CurrentDir = 2 THEN CurrentDir = 1: Keys$ = ""ã IF Keys$ = " " AND CurrentDir = 1 THEN CurrentDir = 2ã IF Keys$ = "P" THEN GOSUB ChangePalette: Keys$ = ""ã IF Keys$ = "N" THEN GOTO RedrawPlasmaã END IFã CyclePalette CurrentDirã IF TIMER - PlasmaCounter! > Plasmatimer THEN GOTO RedrawPlasmaã IF TIMER - PaletteCounter! > PaletteTimer THEN GOSUB ChangePaletteãã 'Lots of retraices... else it goes to fast!ã WAIT &H3DA, 8: WAIT &H3DA, 8, 1ã WAIT &H3DA, 8: WAIT &H3DA, 8, 1ãLOOP UNTIL LEN(Keys$) AND Keys$ <> " "ããFOR x = 0 TO 63 'Fade outã FOR c = 0 TO 255ã Paletteget c, R, G, Bã IF R THEN R = R - 1ã IF G THEN G = G - 1ã IF B THEN B = B - 1ã Pal c, R, G, Bã NEXTã WAIT &H3DA, 8: WAIT &H3DA, 8, 1ãNEXTããSCREEN 13: SCREEN 0: WIDTH 80, 25ããENDããChangePalette:ãPaletteCounter! = TIMERãR = INP(64) \ 5: G = INP(64) \ 5: G = INP(64) \ 5ãPal 1, R, G, B: Pal 255, R + (10 * RND), G + (10 * RND), B + (10 * RND)ã MakeRandomPaletteãPal 0, 0, 0, 0ãPal 64, 63, 63, 0ãRETURNããSUB CyclePalette (Dir)ããIF Dir = 1 THENãFOR t = 2 TO 255ã Paletteget t, R, G, Bã Pal t - 1, R, G, BãNEXTããPaletteget 1, R, G, BãPal 255, R, G, BããELSEããPaletteget 255, R, G, BãPal 1, R, G, BããFOR t = 254 TO 1 STEP -1ã Paletteget t, R, G, Bã Pal t + 1, R, G, BãNEXTããEND IFããWAIT &H3DA, 8ãWAIT &H3DA, 8, 1ããEND SUBããFUNCTION DPOINT% (XCOORD, YCOORD)ãNewBank% = (Table&(YCOORD) + XCOORD) \ 65536ãIF NewBank% <> Bank% THEN Switchbank NewBank%ãDEF SEG = &HA000ãDPOINT% = PEEK((Table&(YCOORD) + XCOORD) MOD 65536)ãDEF SEGããEND FUNCTIONããSUB dpset (XCOORD, YCOORD, CL%)ãNewBank% = (Table&(YCOORD) + XCOORD) \ 65536ãIF NewBank% <> Bank% THEN Switchbank NewBank%ãDEF SEG = &HA000ãPOKE (Table&(YCOORD) + XCOORD) MOD 65536, CL%ãDEF SEGããEND SUBããSUB MakeRandomPaletteãDIM used(0 TO 255) AS STRING * 2: used(0) = CHR$(1) + CHR$(255): s = 1ããDOãgetnext: IF s = 0 THEN EXIT DOã s = s - 1ã c1 = ASC(used(s)): c2 = ASC(RIGHT$(used(s), 1))ã current = (c1 + c2) \ 2ãIF c1 = c2 OR current = c1 OR current = c2 GOTO getnextãã Paletteget c1, r1, g1, b1: Paletteget c2, r2, g2, b2ã t = (ABS(c1 - c2) \ 8) * ((INP(64) MOD 3) - 1)ã R = (r1 + r2) \ 2 + t: G = (g1 + g2) \ 2 + t: B = (b1 + b2) \ 2 + tã Pal current, R, G, Bã used(s) = CHR$(c1) + CHR$(current): s = s + 1ã used(s) = CHR$(current) + CHR$(c2): s = s + 1ãLOOP UNTIL s = 0ãPal 0, 0, 0, 0ããEND SUBããSUB Pal (A, R, G, B)ãOUT &H3C8, AãOUT &H3C9, RãOUT &H3C9, GãOUT &H3C9, BããEND SUBããSUB Paletteget (A, R, G, B)ãOUT &H3C7, AãR = INP(&H3C9)ãG = INP(&H3C9)ãB = INP(&H3C9)ãEND SUBããSUB SetScreenmode (SM)ã'SM (ScreenMode) may be any one of the following:ã'3 = Text Modeã'&H100 = 640x400x256ã'&H101 = 640x480x256ã'&H102 = 800x600x16ã'&H103 = 800x600x256ã'&H104 = 1024x768x16ã'&H105 = 1024x768x256ã'ã'Interrupt converted to assembly code by Anders Olofsson.ããasm$ = CHR$(&HB8) + MKI$(&H4F02)ãasm$ = asm$ + CHR$(&HBB) + MKI$(SM)ãasm$ = asm$ + CHR$(&HCD) + CHR$(&H10)ãasm$ = asm$ + CHR$(&HCB)ããDEF SEG = VARSEG(asm$)ã CALL Absolute(SADD(asm$))ãDEF SEGããEND SUBããSUB Switchbank (NB%)ãã'DIM Registers AS RegtypeXã' Registers.AX = &H4F05ã' Registers.BX = 0ã' Registers.DX = NB%ã' CALL InterruptX(&H10, Registers, Registers)ã' Bank% = NB%ãã ã ã 'Converted to Qbasic code...ãã asm$ = CHR$(&HB8) + CHR$(5) + CHR$(&H4F)'MKI$(&H4F05)ãasm$ = asm$ + CHR$(&HBB) + MKI$(0)ãasm$ = asm$ + CHR$(&HBA) + CHR$(NB%) + CHR$(0)ãasm$ = asm$ + CHR$(&HCD) + CHR$(&H10)ãasm$ = asm$ + CHR$(&HCB)ããDEF SEG = VARSEG(asm$): o = SADD(asm$): CALL Absolute(o): DEF SEGããBank% = NB%ããEND SUBãArthur Podobas SCROLLING TEXT USING GET/PUT artur.podobas@swipnet.se 07-18-98 (18:53) QB, QBasic, PDS 46 1412 SCROLL.BAS 'This is program that illustates very smooth Scrolling using the Get/Put functions.ã'Use it freely.ããCLSãSCREEN 13ãã'init All Variablesãcheckiftimetochangeletter = 1ãDIM grab(1 TO 100)ãnextletter = 1ãREAD text$ã'Init completedããDOããnextletter$ = MID$(text$, nextletter, 1) 'get a new letter from textãIF checkiftimetochangeletter = 1 THEN LOCATE 2, 40: PRINT nextletter$ 'Only print the new letter onceãã'Cool Effect I putted in! check itã'FOR i = 5 TO 15ã'IF POINT(300, i) <> 0 THEN PSET (300, i), INT(RND * 10) + 20ã'IF POINT(200, i) <> 0 THEN PSET (200, i), INT(RND * 7) + 40ã'IF POINT(100, i) <> 0 THEN PSET (100, i), INT(RND * 7) + 50ã'IF POINT(20, i) <> 0 THEN PSET (20, i), 15ã'NEXT iããFOR i = 1 TO 319 'move every row a step to leftãGET (i, 5)-(i, 15), grabãPUT (i - 1, 5), grab, PSETãNEXT iããcheckiftimetochangeletter = checkiftimetochangeletter + 1ããããIF checkiftimetochangeletter = 9 THEN 'If its time to change then change increase the nextletter variable toãcheckiftimetochangeletter = 1 'Later get the new letterãnextletter = nextletter + 1ãEND IFããIF nextletter > LEN(text$) THEN nextletter = 1 'If we are at the end of the text then jump to BeginningããLOOP WHILE INKEY$ = ""ãããDATA "Hello!!!! This is a nice Scroller made by Artur Podobas. It's really easy made and can be made by anyone who understands it. Use it Freely "ãTyler Barnes UNCHAINED MODE 13H ROUTINES Tyler.Barnes@crcn.net 07-18-98 (00:38) QB, QBasic, PDS 142 5847 UNCHAIN.BAS DECLARE SUB InitUnchain () 'Initializes Library RoutinesãDECLARE SUB ActivePage (PageNum%) 'Selects page that we write to (0 - 3)ãDECLARE SUB VisiblePage (PageNum%) 'Selects page visible to user (0 - 3)ãDECLARE SUB FlipPage () 'Swaps active and visible pageãDECLARE SUB Pixel (X%, Y%, Col%) 'Plots a pixelãDECLARE FUNCTION Powers% (Bitval%) 'very limited. Internal use only.ãDIM SHARED XDivs%(0 TO 319) 'internal use only (look-up table)ãã'InitUnchain - Initializes the unchained mode 13h routines. Must be runã' once before running any of the other routines in thisã' package.ã' Format: InitUnchainã'ActivePage - Selects page that all PIXEL commands are written to. The modeã' supports four video pages numbered from 0 to 3.ã' Format: ActivePage 1ã' Default: After InitUnchain is run, ActivePage is set to zeroã'VisiblePage - Selects the page visible on screen. Automatically synchronizesã' the page changing to the screen's vertical retrace to avoidã' flicker. The video mode supports four video pages numberedã' from 0 to 3.ã' Format: VisiblePage 1ã' Default: After InitUnchain is run, VisiblePage is set to zeroã'FlipPage - Swaps the active and visible pages. For example if theã' visible page is 0 and the active page (page you've beenã' writing to) is 1, it will swap it so visible is 1 and activeã' is 0.ã' Format: FlipPageã'Pixel - Writes a pixel to the page selected with the ActivePageã' command. Three parameters are given with this command.ã' The first is the X coordinate which must be between 0 and 319ã' The second is the Y coordinate which must be between 0 and 199ã' The third is the pixel colour which must be between 0 and 255ã' Format: Pixel 319,199,4ã'ã'Note: I don't really do much BASIC programming anymore, and just wrote thisã' to refamiliarize myself with some of the vga registers. Because ofã' this, the program hasn't been tested thoroughly and I've failed toã' include routines to draw lines, circles, output text, etc.ã' You'll have to write your own :) .. have fun.ã'ã' Also.. I have some of the divisions and exponents and stuff inã' precalculated data tables. Goes a LOT faster like that.. especiallyã' when compiled. Also.. I haven't tested it, but if you want to changeã' the color palette, I see no reason why QuickBasic's palette commandã' wouldn't worked with this tweaked screen 13.ãã'Um, that's all for now....ããSUB ActivePage (PageNum%)ãSHARED AP%ãAP% = PageNum%ãIF PageNum% > 3 OR PageNum% < 0 THEN ERROR 5ãSHARED PageVal&ãPNum& = PageNum%ãPageVal& = PNum& * 16000ãEND SUBããSUB FlipPageãSHARED AP%, VP%ãA% = AP%: B% = VP%ãActivePage B%ãVisiblePage A%ãEND SUBããSUB InitUnchainãSCREEN 13 'screen mode 13hãOUT &H3C4, 4 'Sequencer Index 4 (sequencer index port)ãA% = INP(&H3C5) 'A%=current value at position 4 in sequencerãA% = A% AND &HFFF7 'Zero out bit#3 (bitval8) to unchainãOUT &H3C4, 4 'sequencer index 4ãOUT &H3C5, A% 'write new value to unchainããOUT &H3C4, 2 'sequencer index 2 (color plane enable register)ãOUT &H3C5, &HFF 'sequencer data (enable all planes)ãDEF SEG = &HA000 'Video mapped hereãFOR I& = 0 TO 65535ãPOKE I&, 0 'clear entire segmentãNEXT I&ããOUT &H3D4, &H17ãtest% = INP(&H3D5) OR 64ãOUT &H3D4, &H17ãOUT &H3D5, test%ããOUT &H3D4, &H14ãtest% = INP(&H3D5) AND &HFFBF '(FFFFh xor 64d)ãOUT &H3D4, &H14ãOUT &H3D5, test%ããFOR I% = 0 TO 319 'Precalculates all possible X/4 answers for theãXDivs%(I%) = INT(I% / 4) 'PIXEL commandãNEXT I%ããActivePage 0 'Page 0 default for active pageãVisiblePage 0 'Page 0 default for visible pageããEND SUBããSUB Pixel (X%, Y%, Col%)ãSHARED PageVal&ãSTATIC OldBit%, FirstTime%ãIF X% > 319 OR Y% > 199 THEN ERROR 5ãBitnum% = X% AND 3 '(X% mod 4 also works but slower)ãIF Bitnum% <> OldBit% OR FirstTime% = 0 THEN 'modify register only if neededãOUT &H3C4, 2 'Index 2 GDC (Color plane enable register)ãOUT &H3C5, Powers%(Bitnum%) 'output bit value that we're modifyingãFirstTime% = 1 'Set flag to say we've set the CPE register b4ãOldBit% = Bitnum% 'Save our bitval for next timeãEND IFãDEF SEG = &HA000 'Video mapped hereãY& = (Y% * 80) + PageVal& 'convert y portion to linear, mod for actpageãPOKE Y& + XDivs%(X%), Col% 'complete conversion, write it to memã'Xdivs array is a data look-up table to convert X to X/4. Faster thanã'calculating during pixel write.. uses quite a bit of memory, but mostã'people can probably spare itãEND SUBããFUNCTION Powers% (Bitnum%)ãSELECT CASE Bitnum%ãCASE 0: Powers% = 1ãCASE 1: Powers% = 2ãCASE 2: Powers% = 4ãCASE 3: Powers% = 8ãEND SELECTã'This sub used instead of calculating exponents manually to improve speedã'Sort of a look up table to avoid one of QB's slowest routinesãEND FUNCTIONããSUB VisiblePage (PageNum%)ãSHARED VP%ãVP% = PageNum%ãIF PageNum% > 3 OR PageNum% < 0 THEN ERROR 5ããPNum& = PageNum%ãPageVal& = PNum& * 16000 'calculate offset val of 0,0ãWAIT &H3DA, 8, 8 'sync withãWAIT &H3DA, 8 'vertical retraceãOUT &H3D4, &HC 'high byte offset (CRTC index)ãOUT &H3D5, ((PageVal& AND &HFF00) \ 256) AND &HFFãOUT &H3D4, &HD 'low byte offset (CRTC index)ãOUT &H3D5, PageVal& AND 255 'CRTC data portãEND SUBãThomas Ludwig FIREPRO VERSION 4 lycium@hotmail.com 07-21-98 (06:23) QB, QBasic, PDS 415 7994 FIREPRO4.BAS'$DYNAMICãDEFINT A-ZããCLS : RANDOMIZE TIMERããCOLOR 15ãPRINT "FirePRO v4"ãPRINT "=-=-=-=-=-"ãCOLOR 8ãPRINT "Thomas Ludwig 21/7/98"ãPRINTãCOLOR 7ãPRINT "Well, I'm back once again with the constantly-evolving FirePRO series,"ãPRINT "this time with a MAJOR speed increase! I'm now using a fire buffer,"ãPRINT "which essentially helps to eliminate reading from the graphics card."ãPRINT "Unfortunately the buffer's a RAM pig (32 KB), but it's well worth it!"ãPRINT "Because of these speed increases, I can get rid of the horrid 'limiting"ãPRINT "line' that appeared just above the fire. This line is where I stopped"ãPRINT "calculating the fire (for speed's sake). It's gone now..."ãPRINTãPRINT "Press a key (if you like)."ããDO: LOOP UNTIL INKEY$ <> ""ããCLSãPRINT "Resolution..."ãPRINTãPRINT "1. 320x200 (default)"ãPRINT "2. 320x100"ããDO: res$ = INKEY$: LOOP UNTIL res$ <> ""ããCLSããPRINT "Palette..."ãPRINTãPRINT "1. RealPal"ãPRINT "2. RedBluePal"ãPRINT "3. IcePal!!! (default)"ãPRINT "4. PsychaPal"ããDO: pal$ = INKEY$: LOOP UNTIL pal$ <> ""ããCLSãSCREEN 13ããIF res$ <> "2" THEN GOTO NoResChangeããOUT &H3D4, 9ãOUT &H3D5, 3ããNoResChange:ãã'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ã'Precalc divide by 3 arraysã'Used ~31000 times every frame!!!ã'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ãnum& = 255 * 3ãDIM div3(num&) AS INTEGERããFOR t% = 0 TO num&ã div3(t%) = CINT(t% / 3)ãNEXTãã'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ã'Precalc divide by 4 arraysã'Used ~31000 times every frame!!!ã'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ãnum& = 255 * 4ãDIM div4(num&) AS INTEGERããFOR t% = 0 TO num&ã div4(t%) = CINT(t% / 4)ãNEXTãã'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ã'Precalc divide by 9 arraysã'Used ~31000 times every frame!!!ã'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ãnum& = 255 * 9ãDIM div9(num&) AS INTEGERããFOR t% = 0 TO num&ã div9(t%) = CINT(t% / 9)ãNEXTãã'=-=-=-=-=-=-=-=-ã'Precalc mem add.ã'=-=-=-=-=-=-=-=-ãDIM mem(319, 99) AS INTEGERããFOR x% = 0 TO 319ãFOR y% = 0 TO 99ã mem(x%, y%) = y% * 320 + x%ãNEXT y%ãNEXT x%ãã'=-=-=-=-=-=-=ã'Double bufferã'=-=-=-=-=-=-=ãDIM img(32320) AS INTEGERãã'=-=-=-=-=-=-=-=ã'PsychaPal arrayã'=-=-=-=-=-=-=-=ãDIM c(256, 3) AS INTEGERãã'=-=-=-=-=-=-=-=-=ã'Set up palette...ã'=-=-=-=-=-=-=-=-=ãIF pal$ = "1" THEN GOTO SpecialãIF pal$ = "2" THEN GOTO NormalãIF pal$ = "4" THEN GOTO Psy ELSE GOTO IceããNormal:ãFOR t% = 0 TO 63ã OUT &H3C8, t%ã OUT &H3C9, t%ã OUT &H3C9, 0ã OUT &H3C9, 0ãNEXTããFOR t% = 64 TO 127ã OUT &H3C8, t%ã OUT &H3C9, 63 - t%ã OUT &H3C9, 0ã OUT &H3C9, 0ãNEXT t%ããFOR t% = 128 TO 191ã OUT &H3C8, t%ã OUT &H3C9, 0ã OUT &H3C9, 0ã OUT &H3C9, t% - 128ãNEXT t%ããFOR t% = 192 TO 255ã OUT &H3C8, t%ã OUT &H3C9, 0ã OUT &H3C9, 0ã OUT &H3C9, 191 - t%ãNEXT t%ãGOTO EndPalããPsy:ãFOR t% = 0 TO 63ã c(t%, 1) = 0ã c(t%, 2) = t%ã c(t%, 3) = t%ãã c(t% + 64, 1) = INT(t% / 2)ã c(t% + 64, 2) = 63 - t%ã c(t% + 64, 3) = 63ãã c(t% + 128, 1) = 31 + INT(t% / 2)ã c(t% + 128, 2) = t%ã c(t% + 128, 3) = 63ã ã c(t% + 192, 1) = 63 - t%ã c(t% + 192, 2) = 63 - t%ã c(t% + 192, 3) = 63 - t%ãNEXT t%ããFOR t% = 1 TO 255ã OUT &H3C8, t%ã OUT &H3C9, c(t%, 1)ã OUT &H3C9, c(t%, 2)ã OUT &H3C9, c(t%, 3)ãNEXT t%ãGOTO EndPalããIce:ãFOR t% = 1 TO 127ã OUT &H3C8, t%ã OUT &H3C9, 0ã OUT &H3C9, 0ã OUT &H3C9, t% \ 2ã OUT &H3C8, t% + 127ã OUT &H3C9, t% \ 2ã OUT &H3C9, t% \ 2ã OUT &H3C9, 63ãNEXT t%ãGOTO EndPalããSpecial:ãFOR t% = 0 TO 63ã OUT &H3C8, t%ã OUT &H3C9, t%ã OUT &H3C9, t% / 2ã OUT &H3C9, 0ãNEXTããFOR t% = 64 TO 127ã OUT &H3C8, t%ã OUT &H3C9, 63ã OUT &H3C9, t% / 2 - 1ã OUT &H3C9, 0ãNEXTããFOR t% = 128 TO 191ã OUT &H3C8, t%ã OUT &H3C9, 63ã OUT &H3C9, 63ã OUT &H3C9, t% / 2 + 31ãNEXTããFOR t% = 192 TO 255ã OUT &H3C8, t%ã OUT &H3C9, 63ã OUT &H3C9, 63ã OUT &H3C9, 63ãNEXTãEndPal:ãã'=-=-=-=-=-=-=-=ã'Display paletteã'=-=-=-=-=-=-=-=ãFOR t% = 30 TO 285ã LINE (t%, 0)-(t%, 0), t% - 30ãNEXT t%ãã'=-=-=-=-=-=-=-=-=-=ã'Half-screen mem addã'=-=-=-=-=-=-=-=-=-=ãIF res$ = "2" THEN DEF SEG = &HA000 ELSE DEF SEG = &HA7D0ããDOããFOR b% = 0 TO 319ã IF INT(RND * 2) = 1 THEN img(31680 + b%) = 255 ELSE img(31680 + b%) = 0ãNEXT b%ããFOR x% = 0 TO 319ãFOR y% = 40 TO 99 '40ãã ym% = mem(x%, y%) '-= Used 4 times, calculated once - 300% saving!!! =-ã ym2% = ym% - 320 '-= Used 3 times, calculated once - 200% saving!!! =-ãã p% = img(ym%)ã IF p% = 0 THEN GOTO SkipFlameã p% = div4(p% + img(ym2%) + img(ym% + 1) + img(ym% - 1))ãã IF p% < 3 THEN GOTO SkipFlameãã c% = p% - 3 '-= Used twice =-ãã img(ym2%) = c%ã POKE (ym2%), c%ããSkipFlame:ãNEXT y%ãNEXT x%ããLOOP UNTIL INKEY$ <> ""ããDOããFOR b% = 0 TO 319ã IF INT(RND * 2) = 1 THEN img(31680 + b%) = 255 ELSE img(31680 + b%) = 0ãNEXT b%ããFOR x% = 0 TO 319ãFOR y% = 30 TO 99 '40ãã ym% = mem(x%, y%) '-= Precalc =-ã ym2% = ym% - 320 '-= Precalc... =-ã ã p% = div3(img(ym%) + img(ym% + 320) + img(ym% + 1))ãã IF p% < 4 THEN img(ym%) = 0: GOTO SkipTrueãã c% = p% - 3 '-= Also used twice =-ã ã img(ym2%) = c%ã POKE (ym2%), c%ããSkipTrue:ãNEXTãNEXTããLOOP UNTIL INKEY$ <> ""ããDOããFOR b% = 0 TO 319ã IF INT(RND * 2) = 1 THEN img(31680 + b%) = 255 ELSE img(31680 + b%) = 0ãNEXT b%ããFOR x% = 0 TO 319ãFOR y% = 30 TO 98 '40ã ã ym% = mem(x%, y%) '-= Take a wild guess... =-ãã IF x% > 0 AND x% < 319 THENã p% = div4(img(ym% + 319) + img(ym% + 320) + img(ym% + 321) + img(ym% + 642)) - 3ã ELSEIF x% = 0 THENã p% = img(ym% + 1)ã ELSEIF x% = 319 THENã p% = img(ym% - 1)ã END IFã ã IF p% < 0 THEN p% = 0ã ã img(ym%) = p%ã POKE (ym%), p%ããNEXT y%ãNEXT x%ããLOOP UNTIL INKEY$ <> ""ããDOããFOR b% = 0 TO 319ã IF INT(RND * 2) = 1 THEN img(31680 + b%) = 255 ELSE img(31680 + b%) = 0ãNEXT b%ããFOR x% = 0 TO 319ãFOR y% = 35 TO 99 '40ãã ym% = mem(x%, y%) '-= Precalc =-ã ym2% = ym% - 320 '-= Not again! =-ã ã p% = div3(img(ym%) + img(ym% + 320) + img(ym2%))ãã IF p% < 4 THEN img(ym%) = 0: GOTO SkipFreezeãã c% = p% - 3 '-= Hmm, I wonder what this does? =-ã ã img(ym2%) = c%ã POKE (ym2%), c%ããSkipFreeze:ãNEXTãNEXTããLOOP UNTIL INKEY$ <> ""ããDOããFOR b% = 0 TO 319ã IF INT(RND * 2) = 1 THEN img(31680 + b%) = 255 ELSE img(31680 + b%) = 0ãNEXT b%ããFOR x% = 0 TO 319ãFOR y% = 30 TO 99 '30ãã ym% = mem(x%, y%) '-= Precalc =-ã ym2% = ym% - 320 '-= Precalc (yawn) =-ã ã p% = div3(img(ym% - 1) + img(ym2%) + img(ym% + 1))ãã IF p% < 2 THEN img(ym%) = 0: GOTO SkipInfernoãã c% = p% - 2 '-= Precalc ahoy... =-ã ã img(ym2%) = c%ã POKE (ym2%), c%ããSkipInferno:ãNEXTãNEXTããLOOP UNTIL INKEY$ <> ""ããDOããFOR b% = 0 TO 319ã IF INT(RND * 2) = 1 THEN img(31680 + b%) = 255 ELSE img(31680 + b%) = 0ãNEXT b%ããFOR x% = 0 TO 319ãFOR y% = 35 TO 99 '47ãã ym% = mem(x%, y%) '-= Precalc =-ã ym2% = ym% - 320 '-= Precalc, yet again... you get the idea =-ãã f% = img(ym%)ãã IF f% < 1 THEN GOTO SkipOverã ã p% = div9(f% + img(ym% + 1) + img(ym% - 1) + img(ym% + 320) + img(ym2%) + img(ym% + 321) + img(ym% - 321) + img(ym% + 319) + img(ym - 319))ãã IF p% < 3 THEN img(ym%) = 0: GOTO SkipOverãã c% = p% - 2 '-= EVEN MORE precalc!!! =-ã ã img(ym2%) = c%ã POKE (ym2%), c%ããSkipOver:ãNEXTãNEXTããLOOP UNTIL INKEY$ <> ""ãã'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ã'NO MORE PRECALC HERE!!! MWUHAHAHAHA!ã'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ãCLS : SCREEN 0ãWIDTH 80ãPALETTEããCOLOR 15ãPRINT "FirePRO v4"ãPRINTãCOLOR 7ãPRINT "Comments, questions, hate mail, etc."ãCOLOR 9ãPRINT "lycium@hotmail.com"ãCOLOR 8ãPRINTãPRINT "Thomas Ludwig '98"ãDO: LOOP UNTIL INKEY$ <> ""ãSYSTEMãRichard Stanway SIMPLE SPRITE/PAINT PROGRAM rich@acorn.win-uk.com 07-27-98 (20:16) QB, QBasic, PDS 213 3039 SCR13.BAS SCREEN 13ããPRINT "Please select you work area options now."ããINPUT "FILENAME: ", filename$ãIF NOT filename$ = "" THEN GOTO loadafilegoddamnitããredo:ããINPUT "X2: ", workx2ãINPUT "Y2: ", worky2ããIF workx2 > 150 OR worky2 > 150 THEN BEEP: PRINT "150 pixels maximum": PRINT : GOTO redoããCLSãhadesishere:ããããLINE (workx1, worky1)-(workx2, worky2), 10, Bãx = INT(workx2 / 2 + workx1 / 2)ãy = INT(worky2 / 2 + worky1 / 2)ããoldcol = 0ãcol = 15ããDOãt$ = INKEY$ãããIF t$ <> "" THENããPSET (x, y), oldcolããIF t$ = CHR$(0) + "H" THEN y = y - 1ãIF t$ = CHR$(0) + "P" THEN y = y + 1ãIF t$ = CHR$(0) + "K" THEN x = x - 1ãIF t$ = CHR$(0) + "M" THEN x = x + 1ãIF t$ = "t" THEN cons = NOT consãIF t$ = "c" THEN GOSUB changecolãIF t$ = "s" THEN GOSUB saveãIF t$ = "r" THEN GOSUB save: GOSUB resizeãIF t$ = CHR$(27) THEN GOSUB save: ENDããoldcol = POINT(x, y)ãIF t$ = "e" THEN oldcol = 0ãIF t$ = " " OR cons = -1 THEN oldcol = colããPSET (x, y), colããEND IFããããLOOPããããchangecol:ããoldx = xãoldy = yãoldoldcol = oldcolãã'OPEN "n:tmp.tmp" FOR OUTPUT AS #1ãã'WRITE #1, workx1, workx2, worky1, worky2ãã'FOR i% = workx1 + 1 TO workx2 - 1ã'FOR h% = worky1 + 1 TO worky2 - 1ã'o% = POINT(i%, h%)ã'WRITE #1, o%ã'NEXT h%ã'NEXT i%ã'ã'ã'CLOSEããããFOR i = 1 TO 255ãPSET (i, 140), iãNEXT iããFOR i = 32 TO 103ãPSET (i, 141), iãNEXT iããFOR i = 32 TO 103ãPSET (i, 142), i + 72ãNEXT iããFOR i = 32 TO 103ãPSET (i, 143), i + 144ãNEXT iãããããBEEPããIF oldpaly = 0 THEN oldpaly = 140ãIF oldpalx = 0 THEN oldpalx = colããy = oldpalyãoldcol = colãx = oldpalxããDOãt$ = INKEY$ãããIF t$ <> "" THENããPSET (x, y), oldcolããIF t$ = CHR$(0) + "H" THEN y = y - 1ãIF t$ = CHR$(0) + "P" THEN y = y + 1ãIF t$ = CHR$(0) + "K" THEN x = x - 1ãIF t$ = CHR$(0) + "M" THEN x = x + 1ãIF t$ = "c" AND NOT POINT(x, y) = 0 THEN EXIT DOããoldcol = POINT(x, y)ãLOCATE 19, 1: PRINT POINT(x, y); " "ããLINE (1, 180)-(20, 200), POINT(x, y), BFããPSET (x, y), colãããEND IFããããLOOPããcol = POINT(x, y)ããoldpalx = xãoldpaly = yããx = oldxãy = oldyãoldcol = oldoldcolãããBEEPããRETURNããããloadafilegoddamnit:ããCLSããOPEN filename$ FOR APPEND AS #1ãIF LOF(1) < 2 THEN CLOSE #1: KILL filename$: GOTO redoãCLOSE #1ãããOPEN filename$ FOR INPUT AS #1ããINPUT #1, workx1, workx2, worky1, worky2ããFOR i% = workx1 + 1 TO workx2 - 1ãFOR h% = worky1 + 1 TO worky2 - 1ãINPUT #1, g%ãPSET (i%, h%), g%ãNEXT h%ãNEXT i%ããSOUND 2500, 1ããCLOSEãããGOTO hadesishereãããsave:ãOPEN filename$ FOR OUTPUT AS #1ããWRITE #1, workx1, workx2, worky1, worky2ããFOR i% = workx1 + 1 TO workx2 - 1ãFOR h% = worky1 + 1 TO worky2 - 1ão% = POINT(i%, h%)ãWRITE #1, o%ãNEXT h%ãNEXT i%ãããCLOSEãBEEPãRETURNããããresize:ãLINE (workx1, worky1)-(workx2, worky2), 0, BããLOCATE 15, 30: PRINT "OLD X2"; workx2ãLOCATE 16, 30: PRINT "OLD Y2"; worky2ããLOCATE 18, 30: INPUT "NEW X2 ", workx2ãLOCATE 19, 30: INPUT "NEW Y2 ", worky2ããããGOSUB saveãCLSãGOSUB loadafilegoddamnitãAnders Olofsson MOVING PLASMA anders.olofsson@mail.bip.net 07-17-98 (21:02) QB, QBasic, PDS 173 3870 MPLASMA.BAS 'ã' Moving plasma, by Anders Olofsson 1998.ã'ã' E-mail: anders.olofsson@mail.bip.netã'ã'-------------------------------------------------------ã' *** Compile it! - 10 times faster ***ã'ã' Press space to change palette rotation directionã' Press "P" to get a new paletteã' Press "N" to get new plasmaã'ã'-------------------------------------------------------ããDEFINT A-ZãDECLARE SUB CyclePalette (Dir%)ãDECLARE SUB Paletteget (A%, R%, G%, B%)ãDECLARE SUB MakeRandomPalette ()ãDECLARE SUB Pal (A%, R%, G%, B%)ãDECLARE SUB WriteString (Y%, x%, s$, C%)ããCONST PaletteTimer = 30 ' Changes palette every .. second(s).ãããã'-------------------------------------------------------ãããSCREEN 13ããDIM Sine(525) AS INTEGER, Cosine(405) AS INTEGERããCurrentDir = 1ããDEF SEG = &HA000ããNewPattern:ãRad1! = (4 * ATN(1)) / (RND * 70 + 10)ãRad2! = (4 * ATN(1)) / (RND * 90 + 10)ãFOR x = 0 TO 520: Sine(x) = SIN(Rad1! * x) * 255: NEXTãFOR x = 0 TO 400: Cosine(x) = COS(Rad2! * x) * 255: NEXTãCurrent1 = RND * 200: Current3 = RND * 200ãCurrent2 = RND * 200: Current3 = RND * 200ãGOSUB ChangePaletteãC1 = RND * 4 + 1ãC2 = RND * 4 + 1ããDOãCurrent1 = Current1 + C1ãCurrent2 = Current2 + C2ãIF Current1 >= 200 THEN C1 = -C1ãIF Current1 <= 0 THEN C1 = RND * 4 + 1: Current1 = 0ãIF Current2 >= 200 THEN C2 = -C2ãIF Current2 <= 0 THEN C2 = RND * 4 + 1: Current2 = 0ããFOR Y = 0 TO 199ãFOR x = 0 TO 319 STEP 2ã C = ABS((Sine(x + Current1) + Cosine(Y + Current2 \ 2) + Cosine(x \ 2) + Sine(Y * 2)) \ 2) \ 4ã IF C <= 0 THEN C = 1ã POKE 320& * Y + x, Cã POKE 320& * Y + x + 1, CãNEXTãNEXTããPaletteCounter! = TIMERãã Keys$ = UCASE$(INKEY$)ã CyclePalette CurrentDirã IF Keys$ = " " AND CurrentDir = 2 THEN CurrentDir = 1: Keys$ = ""ã IF Keys$ = " " AND CurrentDir = 1 THEN CurrentDir = 2ã IF Keys$ = "P" THEN GOSUB ChangePalette: Keys$ = ""ã IF Keys$ = "N" THEN GOTO NewPatternã IF TIMER - PaletteCounter! > PaletteTimer THEN GOSUB ChangePaletteãLOOP UNTIL LEN(Keys$) AND Keys$ <> " "ããFOR x = 0 TO 63 'Fade outã FOR C = 0 TO 255ã Paletteget C, R, G, Bã IF R THEN R = R - 1ã IF G THEN G = G - 1ã IF B THEN B = B - 1ã Pal C, R, G, Bã NEXTã WAIT &H3DA, 8: WAIT &H3DA, 8, 1ãNEXTããSCREEN 12: SCREEN 0ãENDããChangePalette:ãPaletteCounter! = TIMERãR = INP(64) \ 4: G = INP(64) \ 4: B = INP(64) \ 4ãPal 1, R, G, BãPal 255, B, R, GãMakeRandomPaletteãRETURNããSUB CyclePalette (Dir)ããIF Dir = 1 THENãFOR T = 2 TO 255ã Paletteget T, R, G, Bã Pal T - 1, R, G, BãNEXTããPaletteget 1, R, G, BãPal 255, R, G, BããELSEããPaletteget 255, R, G, BãPal 1, R, G, BããFOR T = 254 TO 1 STEP -1ã Paletteget T, R, G, Bã Pal T + 1, R, G, BãNEXTããEND IFããWAIT &H3DA, 8ããEND SUBããSUB MakeRandomPaletteãDIM used(0 TO 255) AS STRING * 2: used(0) = CHR$(1) + CHR$(255): s = 1ããDOãgetnext: IF s = 0 THEN EXIT DOã s = s - 1ã C1 = ASC(used(s)): C2 = ASC(RIGHT$(used(s), 1))ã Current = (C1 + C2) \ 2ãIF C1 = C2 OR Current = C1 OR Current = C2 GOTO getnextãã Paletteget C1, r1, g1, b1: Paletteget C2, r2, g2, b2ã T = (ABS(C1 - C2) \ 8) * ((INP(64) MOD 3) - 1)ã R = (r1 + r2) \ 2 + T: G = (g1 + g2) \ 2 + T: B = (b1 + b2) \ 2 + Tã Pal Current, R, G, Bã used(s) = CHR$(C1) + CHR$(Current): s = s + 1ã used(s) = CHR$(Current) + CHR$(C2): s = s + 1ãLOOP UNTIL s = 0ãPal 0, 0, 0, 0ããEND SUBããSUB Pal (A, R, G, B)ãOUT &H3C8, AãOUT &H3C9, RãOUT &H3C9, GãOUT &H3C9, BããEND SUBããSUB Paletteget (A, R, G, B)ãOUT &H3C7, AãR = INP(&H3C9)ãG = INP(&H3C9)ãB = INP(&H3C9)ãEND SUBããSUB WriteString (Y, x, s$, C)ãMemloc = 80 * (Y - 1) + (x - 1)ãMemloc = Memloc * 2ããDEF SEG = &HB800ã FOR T = 0 TO LEN(s$) - 1ã POKE Memloc, ASC(MID$(s$, T + 1, 1))ã POKE Memloc + 1, Cã Memloc = Memloc + 2ã NEXT TãDEF SEGããEND SUBãDaniel Davies LENS FLARE ROUTINE ia53@rapid.co.uk 08-07-98 (17:34) QB, QBasic, PDS 838 55321 LENSF.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"LENSF.ZIP",4^6:Z&=41265:?STRING$(50,177);ãU"%up()%9%%%R-%&ZI,J%72XqL)%%%O.%%%/%%%%wj%firj.Sy'yALzv>BT]1M8]&ãU"x,dGTF<]KYn4f'MUZ<++3*6P-,wDoLz;FKOreR1n'j-vsHJmLr4n?uY=7?rj\lCãU"wQ\nfhl.?cDR)'buPp1B5?Tun8'xtc%/U/hhaj;kvB*?WLr2_./S]eAY4LNn(vBãU"5hnhMvu\.#v0vbj:$W&<#o#rLmq:VOn)rZktFc#1A?EJg/KbepE<)%;GJ'xJxC6ãU"7zOhb4t]D)13^.)F\+r,unX?QHKiAcu$x[\EZRG'M^)Twi60bZ?oh4vl=J&+Ky4ãU"fg/;xlhj<&.BfH=.3kvtsDHGR-WT?FsXCM/(\Rk]J)Iwk6J6PwTueiS+jS0LT,(ãU"+8CgO&Q$/lMb)d(I;>tB*,GzShCD8swoJ\,pcM8/:9jkG#F9MNL2/u.9x\>/5OtãU"Y&\f4ga+F-4)SA[GMH%Mf:$Hrpi4m9I=v,Ad>DXcb&=o%mm=+-rAD$k.m,dZm#PC)ãU"+CDgF%3P7^Yf?+R4-2un=9Hneco*4$4PbJU#a0druLiFNWRr_PDhX%5iC4=P$_F]%_T_VoãU"C.NmuUM:sn#3KB20V:9C?1]OWl(5l3e7m>5Q1N36gSi>D_a3WeU0\ig<$g._e#YãU"6y9sYRo2KiNuE.x0(F'-k:kf[UC4IB7ft]QEzWd_D;;gaa\M7ip1MPãU"Kd_2.:n[slZ)6<-ak5o(AIyxV[/X4<.XMtwTU5fãU"[39n0GBW&\Iqg6ag+N)r#060u/&\90,oV.h2gScwd2Egp#aA]teQoKSTrRxq&+3ãU"22d2]q/siqiy#PG-KImCwRAZ/V;xH4\L+,i-V.8IH.u_#W4hecEuTWHo)(r:/D;ãU"EMso5l-$%5.]ob3lX+fvcb_KzCps'#^\S/w%,up(%)9%%#%-%u'6+J6mYu'C%;ãU"%%%%e%%.%%%%q%jsxX#Swf&N&*V1TTo'\^BFne+INmoMqI2vkY,Fp?6pvD'n3UXãU"Pae3lj]O+#2#k+D[1+B9Q0Xkj_j*cXr8N8tpsngg&#CCCQjjGNuxqmmHA$&Vlw_ãU"]xR:Du.p\C7vln2$aM[JVn&\t))aa97mWLr=f%IaU.hKgOTmT59=bn9Dq]S)2YMãU"vv6K3A.CC->$XDcg8k:>\35%M67#>Q;=H$kvJ7YpXNdrJa+qQ?X[(Mu1533EpR'ãU"&E1\kbp4NBXSci5r6YtvNF]:pC67pr),fARA^r:ZH%lwfI(MP]d*ãU"P).2WpDh'Lrx,g2iudm_c\4_Q].Z;m[1D;+L9BwHXlN9jK:.A%)%r-;Dn>;T*R-D*rA+h$hI1Y-W.]HtãU"i9EVX&n02cXCHVwnXq*b'&.#)3VgOMH7qR2T';R>R;^m_y-Dia./&PUoIg'nO8PãU"4WRRd1tKPg)rP\X]'dHZmJgItMTpuOsTB,BPF?gR15J1)#3^E%N5Q5kYv*6_&fLãU"2h2#v4Qd=C/R$%oLZ8TgClS6oDYvXhQj1IO8%*:I;))zJIavke7Q:0^n.fMmUC^ãU"_aaMHaGIDFRT]G:tco+$vCe9T%h+'3<+\0=1\dfYW;J7]WQtM0TdbEi9=(-1'NR)v9yNio'?]t6ãU"&Cocm&#f^#saV_FT#]v[fp]sf=Zn[+/TNg7ãU"S[\%&d*6HY4IV1K(7fs%b:VTVlu&l08VOkbIbG;X6h7&IY=rkuj3+D,vn%qc(/VãU"(;jIn],Qt/k8+((+f=ICCkQ'IL(*?o+N>5&9D,pd06b8bJza=^nV,d4ov5a\rbKãU"2UG=lR_BLYNY0+szW1t#aQsr0TFk92iH7KVWF%%*o34f:Zw%)[jdU8om-D'lL0<ãU"hC7bHm&,hL#]vZ$NIp06FCyOAY1Aw_B+dF+/u.A[N/5*/(RW'm-g(dQ4%ZU$';&ãU"Z]XV,W5a9Uf#_A;KV#JDEZjivMtW4H_-dn[(MI$5H)hdettYxr8u5Ufcm7QBk[aãU",l9kYfiM&1])49AU;^SO*Fu9inp/NxaObfRv9HS9,&B)L'?mJ,a(<$qp0YK^z(QãU"QZ^0&6x$N0g5ae463'Y9<+_\BW+34i#hD+0,n^uo_P?-;415Zps:wB_B.YwH4FoãU"0YkiEe1VC-[Q_(-Lqabj_vP0PE\1%K];Q>'wy93Sj+e/6')P(GWOJOM/*mEQ:lUãU"8zZJeFq5jt%Y<[ahoYVt1:dmR'au;;XFH0N95HdM>Rm4UZ0V;Vr4biP0/)US4)jãU"y%%cp'CMOEOI'aQG.(NTEhOkPk7*,kB#c60$]WjSB4T_hfQãU"E:1W.R&?HKK2/'5R%ZkG'\G/*NK]:b,_C/.^K#-D9^eQQbZ6tZ?WAn;JMNOMbE9vKR(/epYãU"Y9a\so3wXQUraz'8a]VGXFJ1dsUE(HuaH/j7*$O(R0b0c\<7$iG9*GgP0,(GmNWãU"AbeJ8.UE=HFKq+,ouAl$[WhSO>q*ZVL%5OdEpjm*>>f&AVB61,O>xjqI;)[$;FRãU"cFFnl6qjn#-Ce%C9tI#L>9)[mWM[5$TjpcT39bX8B*p[Tm#ãU"ee-HYT?Snj?;-h5b+qw[TEc,WApRlZxF-uI^gAH(61*h3w6=NCaK90WWDS45mG'Om3cãU"1rIE(cAOM/Ma,It?kRA.jWR=T]w[NbRHYQN/8*irW-eAXF^RIRoWQ2\&iTi0;1/ãU"32K&=4uUPB3HqV%E;Vkf[M=b44j8\M_W)Y3%%p47iROi95m.XIh0):O1Gm&E*K7ãU"lpJ/ifpKdyT-%ilqy0=&]W7cExQ7VZf-CA6uDE^^T*dErG9DbL:%Od&zm1[xF4'ãU":t-(<126:]0S_jefmsQx,vIo-(QgoI4R,sSTR5'5N\0n1.gWRI,PK/XRc*tG&L8ãU">RO1X3h+;NSB\grhAflL=h:]axS?>Xin/0g5EXtPl8aA+B/'Q6bp8K.XEr06Zj6ãU"T:73ZRX&08:Qkitn\6$&lNFjqCnt#t<6W:j7H2CHKS9[e+=p4^,X4#qY?,Ts>)eãU"hm<2+];3=AãU"/M\GN(1-198(o4Dv*i>bBL%d.5-K6WX#TefRU-/>c(:2Cq_9D*TmHYKi7nRgSGmãU":4'R,cDI8GkUH^w(X'WYRX%Hm?q^EFr*SUH6UaO;Nb3HpC6#?v8p1uR/a_%QTqcãU"5$LU1Gh^XB5%9V%l7:6Ta(^lQTLD=z<]'$BtItdYAjMrISubA]AcZ'nT5EtOte389FLLãU"D[UKjfpd=xYZ4-oN:EXQ;b4GF^mYqkFA^W3&]1mcK%6lxSD:tb[u\D2hr9UT\H^ãU"UU+2K_r[omEZnJS\<:,$rFTPpOvUdg&YQV8Qeo(n0p2DKEh+y236ãU"*Jc:Y&?i'%L*7#n$]S4XrX^:w>,RON-P2Kc=jVG3].H-9&;97cJ3w3Q1QMUn/(tãU">Y8.z4NR:;I'91///^i/+phH,;,>\;$=lY^([:#+feWU*fIRR,CGV,K=09?;B-HãU"i$HYCf;wOUpK/MNlsw:$8XQK?6kvR6Vap_>d$Tj-EqG+^FK6r._9JqU\W5Iei2ZãU">VL](j]X8cK_)c7CUQ(?0mDVYH*q-LARR[tIX-Xh-%8Dv%HWX0:JY&adf9lIOsaãU"\DQU0pXp/mG3GYi(?NG^irL=q.:GL*M^2/?>RG?sYI<9*TEte%DLPlN6:7LdT0wãU"L-SHlWO(+Wg,wXw)S^/smLA(lTv&K6/+6n#\DyZm6jsH3rup9POZJeocQTuqiRMãU">/sQ=6P6?0D05D5s]$Vn1i40N2*jcioxZD])Fh)uL>Wp&quW#dR3ssq7=qN%k#TãU"qFiF\VS#\YzlX]Gowze?EWYdCNKeEbrj/*qNS-RW3mvrqOgmXq\0wpXN\0LZrweãU"N5(x/FGP8qF3#p4_9_:fT90HjX_RQoq1/niWcKx0vO,xrGF3wleig)&m#d'Dhm)ãU"'9%:q5\8Oc,.s$wuNuV>)NLDr4#43(ãU"gah4OxE>+k_,da-Ep(u$0b4wFjm#?N6g6PVD33;ãU"o)GOA+D'I2/ULyOIZ7t49:R%YSfPz3yIaSPB6OPYrU=+H[l+::Ly;OaOln%E2s%ãU"QqUzM.Jb(thhIY3.k:yh.?N#H#isrJ^CL(8;^tKEfvCSZa>vãU"nsPrxP*s^nBhr=TIkrEf\p]/jLY*+sQa7-M:,WWh#=VQ%_fgg\?Q4'qMd5IrJRjãU"d-yU7yw_ojje&?i2vGh2?=u_Trr7AnfB;eh'K*cw\?I2s3.yk4/e>R+RobY;gu3dIw*l=d]A>dt1N<8PQgãU"'N-vgaOjkn:Ld?9gR;wou=YWY[fqMy7KuM:<2'novu&>Ul;3S#-uO*)INcve9n8ãU"#2PYTsN.rPb^3oV9.EM[?l7v/fLI%89a\&fS9U_SVOo,6HqZ'oq^e[gOe0/kva2ãU"_m)4bllqs)\$MTeQQLbãU"^u-De]DkPxAW6lhySCM9SFdd/Cl^5Exd*>bX-+oqV(>rSxt#G3X/:'KEc0EVEViãU"bjuv/f1OK8p*clj-3F4UA4H0$(\+1)t5UCaCM)?Wf8iX_CO/X#M)lW2T.ZcZc#MãU"TWY#PZGKc<%%n6nBn%W3)ma-3vF*5NiFddV5Ce7/VOD8pI5>01'*Z1%el\Z--DoãU"r&\PDn/R;_hRBTDxJW&vk5a;$)w9feGa?;F$:F&[CL:f?UwaU>aZFjjR*M'6t(=ãU"5AYco(6\;t)9Ct)KkjZqB6gPNZh&=VbwM[$V+n1gKN5Xt0B=ODEjmAN>1G7DCGZOmDlg4kmyãU"W;(r[7HAj#0$rG/iFsFD,[1ccB&+%1UC(NU]?,Nj](D*T[%ZIsZX<\_a1%=TFZtbQPNP,]0C+YbgWb(U$'ru8t9luMlãU"EhvdOq.udB8WYHHM:olr>mDrT1ZNELh)#1OWTCf=]I#rO4=_IB]EYxSl;XplC=eãU"\+p:V3QYfdFCd]AC5nE#[AGq(k^KWqpy[VEC00#)is^x<3.LhrGdU;V\uCDiYc.ãU",C?\E:8PEH,+H=fkN8p\)3*gTv5,ha=BQIk?^]0AJ?nfZUxw5TwtEL)Nf)YS799ãU"qfq,B8lv:C6Uszv=ZS,Bm0keUt9iEUeZ6bg?2ãU"-78Cp4]u8a:1HksB9\?\ulu$T1^74+MGpY4Ie3l2#EF=1rmE4rujs3c.3aRGtB3ãU"%FB\*;L[7Xt3_rhhUqLNu:C8_0=s[t7336iN:5Yx=/Pi_^>7zU?AG_t+,j)hRjYãU"K2F&_VNDCQo)>:pYBB?W=CTGO9=W5uLME:OE'YN7DU1x:LZ>Q_u0(oHq*T5).8Pk11/n,s4N6X3'l?U0?xwRK'/i_(&Ck$\R=8h&8zA4ut<8CãU".VZ:uFmlA[892YQU51eN'u]9$ay1\LK*i8'Ccl)Y^q,c4<+6)l_Wq98rb8DaãU"^ebuJ60+=-KM$?]dS'8E&]j2GhX$.om^W[rBo&&v9fD^3/(14[.-Com1=T'ka=#ãU"i#/GWjs#KeC0KSaYo2?3>E2E]'c0JibzT?#XN=(HDfeA;+f$x?yEZs()(+iI-W6S5NhW^4*IXGuv8Qt_F:q79hj'-)HKta>924=wTM'iW1ãU"Bh)MqXp_PnãU">tTQx^XGr2LnkYKSu$=khTDIB:aP=%Wu80DU;6X^3,<+^bOAj5^i;C#'A/*LuATãU"cV5x4XdW9b7gM0f8G*hq.'nR=DHvu^o64H8JZnK1+a(AnBGdawa^Ht%O%W+7F&tãU"(-=_^fln,xLxf5&?2X'9TVtajkg^'-rs>M[wD]HTQZW+=LCn%mSHZ^1R,zfmJ-Snm*O.D9lsVvPb.H#1$06']OCeZãU"+)Q73jM577I3g=u-(3OH3_ww-CY;kOItNxh(,E0K^NpkbOYIH6:(b:>hTãU"OWr9Y&N'yk,n4f7xc^x+c^xc]^xc^jxwz>Zm\Lzl%vV=cm,+x&w?-w^,-\]H^LdãU"1.3(:(S38=;$*gfYX(uSGrJ0fX%M-Bf,*%E[tjFZ)uTfi4EN9V>5=ujZgUpB<[vãU"R[4lVZA4BVC4KPHU=f-D^)r_;%0Kg'CGJkDf2>T-3Y?D9V8ohL*M8%d5).O)uMnãU"44m?_,;3>%ixr2K0i_gBsBU4^^4UGJ/'Q=mIQ;\S7h&8tt&:I9Zm*qUNL/]/kãU"C.e:dJ'uB])va%::n.+iLYz(z3n9&_/>WL>^SK+CV.#:D1urtzV,^X4=AC8YS)%ãU"^H&pth&^bbkC7gHY6Lb3=W7RTHB+Q8;CPG8.)WP0tAKS4M,O[>tD1v7#5f68/e:ãU"3n*wAc?st$,juiwgw?w7xU%=1DluLR\>:[.Mod*_b;g7$oH3^EQ*KW[nFp#hMk^<5WDGBKOuI,QY'SjUG#xM;T5Ip8VB7dd99fZãU"CJ1zU*L#0'4ILnaydUO.o]oG_6:21E(R,X>'r]?H&A=j_h*0b2p,'74iUCOj<4DãU"x#$.$U+A0Zp/DiJy-+$h0YIs%PU1LgmY%']N444W0r(L9.O+qGe=GM6(LY9YGl6ãU"FD>T83n]6qKQjL1GqHEIq^we*q6Pb+SJfr6_53,_4#FRm9>x7Vclcn6lS%jYg&+ãU"OC35Gee\']FU=fM$zL0f20yIKT?dllRB8kB-&(69Bhg([jnx19dquC*Q4wF?]>eãU"t&DTFVrZwCSMz_(:c\#HtM0<3H2+,oMQ>;g,]Uvll%+g7ãU"r<0l]&kn[+>)_A1?_#a'rG]-Lfqigh6GtmVtHSjFsgIhLPuX'Z9d+(NWO>U-%d4ãU"8mIR,kZ^P#z3LE,8i:x/qMc]\P,ohT_JO>wCX[#iaQ/6NIIbB,9JkevbC6C0&J\ãU"%b8N<1Fp*Qr^f^ckt'M^)Dh+#qãU"LuS*WIa%HGQN5:B;IQ*9pNWmWGCS$:TOy7'EAunCeE)y<7L1:7Dg0(a'M:uPml,ãU"vba;is]%_N.a%F4E'-Ih]G.wnhE#JOB'o'ngtt$bbN?lv1DKW#&em7i(ãU"Olh/my4TA>4\GF4(MO^ym6Vf^7t?l.Ch;KLUtw96DmwNuN$jãU"NF(C/O078UTfC;DVl_$HANC.4+'JU.pYF;IRjyq]b=:ue/L'(N;F,uvV(i&.:%<ãU"S30%+;:EgLu6+;_qX3IdWIB9a=KId3&Gdx5tc_xo0(39/bnHGXfx/-pARC)xpYlãU"$MjTfzZ;B*^>RGBWAHREp&Y1VumM/ks(%n>tSfH#i9sEq](NZ.<_aIAq/1EcEsYãU"Jl4a+1Fe)NCODHDKWcV1T[t>h-=K4Hh/Y\HFd2Ma7t27KZ'kofKYvM?S$-yCL^\VfTOfHsEdxG0rdK%d+m4kM+xM?p$l9T7Mp=EI*QfQ=57ãU"XYbFu=;=THsL;\FZh=2eHZ/4:K8o;4?Ad'Tf$?p#n7Ot(]^66Yf&/NvU)_iãU"Y*6>El_7X:9mAuwhqUb*i8QaPwbY8r/-Y^cYdinN&rxEwsvIYZvxOt.Kf8m?ck8ãU"\wrvu=.re#-fHe4?Mb(7tN(q:RMf,OmdaT&l;vvWSO4pnj6DJ$^4Bj_-Yw*a3/tãU"uvC_MEQldq^$eJZ$Bi&[nMojFxee.3-iOvw(uL(SvnBF:1vmWA(FB?zãU"w(VZh0<73v(2KGK5^N%y(TY'g7gQl*&0w>^%-/4'VBv'3m,>S2>ROE.Kj%avPftt<4KRD^/CAhãU"Hqkwx+K0xKgb]qgn1Z7CB1?IRP92GM_p&FE_c_IOmN36bvnnvI_L5'QZCmep\<'ãU"iF&B&OyBd/,B%Y.+oOcD<);nOiL9t6Wc]k^:d&l>RtJ=)=<>f%:-_U=aD;2OAp^ãU"EBCM*$c?t0tZ2Bqjkm_tsU&E96tDTK75p8do:&avsNi&Bto40&H+ãU"mD.j%8QPlj,wtD>,3nI3Jepe/)r8Ld&HN4,[xaqsOZ-_^uDIkRwAqrjbfJ]dT*\ãU"?QCW.gq]32&grJgJ-YQ)V*Ms3GTr(mmRMCjlej50ep/7uIf5Nkutunu4(6MN;%OãU"U,HHh8-:Suj=pI.D_BK(E3(%V\-[6-seoF+#I2SrXc[n?x#H8-'UBv=%4D/Av8lãU";j>C9iIV>ONZ.(K/)F_8ft\\Z(=:]aX5KVGXu(s&Glr<6%[d1NOL4mb=xjt)nYuãEND SUBãSUB V2ãU"&5VQpCWdpSQv)\+S<.*=IiecsS/+,B?81hYB8MWnAPV-I+/bsm-7GFV5LgTK*JGãU"_n3^B[wby.sh-_vBf2Of69jKY5v?b0C)m7rxv:uTkAVzE?^WPvIW-i>a?l7I>cdtL_Fbv0u?jsu3V\%U[PT%9R%SaRo*1DklNW;K:bãU"=PP=WH9b.ipNYkV?bsRtLxY-X?4idXyI(OfD#\\ãU"kH)7^8I[3bZRT(ypG&EdRP5-LZ:8h.:MLxweO\B.VH?KRc+.2Tfa1mIBpT#>B9lãU"+?:]Q*=\mR/YtQbP:ZRBwE(nUnYsQtJwUNthO.w_G[O,48-jOPj#X[/Q0e<0(YfN0>LeSoPj99XãU")-sRba]b3L;s+1pihDK&$4j'_FO8)LCW6LxY#_FX;VpKãU":7+'HUA5AgG_O#V,ELs^*\_)tw&PqnBxq+xgeZgh0]QG(nmk6vUE#NuQWU);7[-ãU"VX#H$LFL#,J-T4$$j%V;.t]G30tRBlm''z8ãU"*rQ^;_mV170>(W,.8ãU"cd#dT;Z,8(zfII=T2E+C/^,Uue'u+6WtPFaO+p%H9bOkuj3^OdP++ja/:+zL9jYãU"HZXw;YuAW]Ml+Q(TGWAtZrYS_*-Hx5LiI98qq]0PS;Xs9Gd[i(iMuz4rOHeh?=(ãU"]&D39njk*OXa.5,D-4BTd]b%/Qe_+0Y%E6yK&&eN,'gco%Z5G913I]Smc?<_t?BãU"o;fb*tEu_D3'4-L6*AXQY7$jMXrM&v0If\LN3uXX=wQ:p>vsH;tUuGz:fJ?ZX>7ãU"Es]lv%cE+)j.&_:-8l]6rp;\F=^hhR6)w1(&f,y-oc)=q\F'Gi(4R&]F_[D)fEDãU"FmANJei(R%igqCJ59Z8MRfm+&L$%*?M_c3>E;W'L5ga1kP[&ngQ_\_7T[iOpDs-ãU"b_,X4Dx9$Vtj:Q?Q0o6RãU"pqPp#s74/od]Cj\6-i8rdlDSvu68rN5ix0>xn&+T$4:qct$rc:]'x%up%()9%%%ãU"%-%(uQ,JBcgwz&C#%%%%e%%%.%%%%qjsx%VSwfP&.*HV?k^Hl#O4BZO.SdQoIL:ãU"4Jf9T^neJftL(-3*&*W+]D[;/T:eL31?ir.QQkT<(qa;g1Fp8XRFN2g)uhU.:YlãU"bI7r?CqL$hCi1d7jq:XlG5hu0u8W$HX>N8>&aV\P5Ui.;HmtJW$7uW4W^ERb^J?ãU"reB^uTxo'j4m3:ZUcu-s-A:GQTj;vHZp&m>FDl&Db_J.d:JN#i,\Yp^rPkaT0iWãU"P[/2.hL8-4Jg+r/#JbjQ%F3h,.1:JM;qK0GB[Geh:tJ#XZrgOFT6^wT*ZmPrH%/ãU"B?N]5\ZAtUHYhMGHkqXgsdQ&K2HWa95._XPwE$[j;,gU5+W-ãU"\qpK\/i'%^->c^l8_fXxg]$pY6Gm?lqGTV>^OCãU"noA$iMc.5*yKBW.,A-ETP+kPLwP'-W:v+kN8/)WF/B0p+)KL92wuG#eKrsDHU7uT[TzS4(HãU"M^83:;OEes-Y-)uG$'tAZbgVO6Gbf=>%rIzvX.c3Cowsbl0^na0tRCGSRy)eG#'ãU"jWi)O0hP%9;]4GutO%Mb)yCzztIsMb1ODa1/5gxG;Ua[A=p5.LlI9ZT9h8%<$C-ãU"oar=<;O7>1N]RZZm(A(k>w]f>CPK'E?rhXp#cZcaLãU"1B:DR5Yb*SoMvNsz#EbM&j-A19Q'qhGsliKRl,Sb>Vda7REhIh\..e50BiQ).,6ãU"*-/dQiSBA7'.I%K&aEGp*tasWI3;+BY>dh.DHtl]^T27zgT1ENu?B4R9:RtKrssãU"eIKQ21e;OyP[?9Ld:NsM-=vw0nT7_^rh](cqm1mtHRP&ml-4ySY7+Mia)X>5VppãU"*$;Xw#L[6&/iXr,*iN-$;pJkq#N(n]77F&4Nn*1Mvv(+mStnq,$Fj;ijg#0ek>2ãU"999E7G?at*nQ2i2UhGuOn/o?_o'2B4$>qbU7-_eUjYV$W[$]DazN)H3YDO)S-HIãU"jq*)a07KuIidiU8%I>;r-W#e95I%B_]/oUNLL'EVVB_6_,YmYbi$n\)AQY&<]G'Sqqp66Z&.6,Iuj+7P9[N=_xxGu_A],%/TjY#)ãU"a-ElKpFOQDqLAARo]Ef$:n/>c\DhaOr1E:\*l,9VP=.EMFECCYD/0FMECEObuo[ãU"[.fx2bVhr;PFW>G:h)9XLY4JYI3i*p<ãU"7ac$c;H3\)F0ADOK'j.&,tW%J;-'JcU?&Q/\deY.E*]J=4V&C.fHLm2SXE2+vZ(ãU"s4a66N/=:FnF\7g$/Q*OUSK0rH&2v'kr>3%s67)%Lq9OqC%)+3ts(YLuNDQd=yZãU"oUr3I:t'_;w^>Ug/7l5F=h[&6bmZJVN8Qf*E'<&lfR1QQI;C&QH8+fR&RC&h]w2ãU"-.7DM6i/MF>^YSj4_bYlRROrEYIL,i1vfJBtA3KZSaQJ-%ViiCtF<8;1Z-h2ZTcãU"%1d\2v\X?,o\y7ui+zL,c8K,Y2Q]lszgHZR;t*b;/dckF3t+qe,ZpZQI.en>t/>ãU"t&,iEpTvX6r^)e2+N821Ry)$o7a8_Sv)oF%5CKH1:y:G0>H6u<50os%4H_>?pn^ãU"t,gwwp&VDf#)>sf6Qn$.W]n+Ir;Mg[x,0cVgI-nMtx:,0(d9cmr'WHJJhãU"R0=1^#Zk)nC>*4Y1eo(<&7r2K/P$2#%&)Qy5)#'2(j/7W3uepDCm6bm?03+1G8kãU"3r_gPxlFcO$Ca'p13,+':ma.^[emXK[jG+Ye#BbCp4o+$fu'RG%K9&>Hle)%7ETãU"b_:T[gMc\Hi/&s>o(g50Fei97NS/C;ifEVL-bmAAd3iajt?Ihp)HVlk36p'GgCYãU"U6[,4317m.9&LPK262*bC(>?=;+&xa81FujX0h.bC9uh#ãU"n:#*mP.B)3TUg9k&;4(pKR&+?oXcK1T1Mhtm;(u7*7*W.Rm]nMMmU4Xa\i'<&mdãU":9]I.R+g*G%QA3)2Rp7Q77=m]'sAU*MJFJ:&:PaVBZh*x%wOP:1c/.;m(WqCcnDãU"MNZO'Q$2LKLV/.ãU"?(=l[TGH^()\295WEuO3?&afs27csubs;rH\s+rbhLBqQ+O]=Yj;uGIGp$j7hU(pnIrw#mãU">Ozdq9DduQoAi>JUg&)^2];tZt6:A?YVdMmgikMkkhjMlmi,Mghgi&hof+0WFNGãU"6^p_37GC*+B9(v->=K\w3^3Q'PmMPVusBd<'kb(h8pyE4fJLa1ug;KKuK[[KZCSk$5rDZP.PPVãU"L7L7:e7Y'nAe#$kiGRApSC+_:iAyvgc8f/uGoJ:BLr/ERvjmnRhc$dHVq;dqi?3ãU"<*IJ;RcgMkhg-M',**S*d3#q1DZAZ*n4^H&(Dm^mt7j>3=$0R,43kL-T%1#%^f%ãU"%fs+*&MK4x0jjfpW:Vo#NY.I5T#%gg%:3a;:z/+e\sB3e-oãU"guu04$Y&>Fk;vsvcEwc3YMMd^=k?LXjPdz#$G;cmQj&zfgT3mK)%M]dHKwhpBãU"YmUi:mv$;p;^Vtli\*PVmLj*rXH^tu(vih?7l.TlWUIuC86\^-&'Q'+de#.LkU,ãU"wC2w=_$pV,%QG[N]m'u^#?o#uL9g0Xl$aLsH\OT;ip+r*jkXrtNBtscI?ZjdT?5ãU"uSd6u]\\6w^6d.MdF'r0DQBKUFN2pNT*e9BqUãU"/.8L1b+dP7=D[hD^1t'wn?AO8i)I3l?mr&PtnrKXZwq$>uwcP8uw^d(l6ufHk+6ãU"Cjue*n>*bCW61/]]inLC4630zZOc;_K7jdjn]jTn.[?hB:T5r+r+ALb[NfG$(xXãU"'BJ/L]$iijb5I]*MRta>E\lTkMhnWuuX0XPMdNMrrbh7NqTznr7Kc=Y$r2x[yG9ãU"k=2#vC94(>FnY6;(E(t-O4Y1ka8/n*=$J_'e46o.M'+dSalYww:H>cTQ=D]hpS[ãU"u?jMml,-s$j9ngt-Ios#(7wtn8vVj$8JdfF\-t?SLPcuj]bL>FH(A/m=^kIhH2pãU"%fLwV$4lNYk9AQ/gy4tA=&-&5sSt.pP6tzdlW8lg5^E>Y1^SkPMdml*e(dDsPX&ãU":Nljk:xrsj0wihlFW?wNddbGb0PNH.H?flCS[*m'I;%?B03.G:S08e/Ie0qyXO$ãU"qq/QO*8i*Xr;v$WrPxpKjhrrNw3IEt8vg,pDIccrL.vWq^MwX>>8l$lUx6(PLtTãU"j1<=k^'*[\\\bs7xI8cFnuLW&U_mA%OfxWTx17N>SacbDjE8%?O?Y8<^77#ojT[ãU"x,BY:pWJugJHVbG_pXlrtnwo[\8vrf*8rr>^7xHK,t-YIcUx2rZZxN\XoNnCIZlãU"U]'wy'v>2_>\wV/XDp(dru&mHKftT_]SqqG=DRQ]TplP>Zwb,NQvV&Nukhxjq.>ãU"wTsd7kkS.b.DHj[D;7Cd3a1X$s5#=h-Ek_v8m>^e(Ql#wE?U\oB:a6R,gM^9F?1ãU"MWkdMagk*G+X]HcoZtXr1#\2r(LtNtn7jHu(xqtuXuclfPdDZV$B#]0WbF=d'-]ãU"q=hppdJ0ZVf8fn]vtTt_n$mEIDDj(_+)$3>#cw4t.U3mN]B.HNrãU"d&N-qSPTtNr2Hb-S_8MH9LH24IEGSh/t1=6qXArxvQ8ZOxgO8.Feth2Lwst+vw]ãU"n3)bN1)A^H##LsN>Cdk8qnHw>tf7nkp\-skFXPSmu8ua_cVdpl-LbiMI;-s14HvãU"=<%wEJ*6^qf:MN=P.849vCKg\D'8JBvhjHwGS#<3J625_FCs^7j9q2*$HWXKshiãU"$.GgQ2H.NZu*l^nnc61%cdVb8mesZ.?4]1tGU9h6A3N[*x4&KC8_g$5LI+l;.<'ãU"xu[(.#]Z>Ae,Fp,u\Bk8\QA4ffb&g^v$Ar<'k-6Af$Bj\(k.2Kji*^lRNU',)SgãU"o?246X?E1aY9*tt)&0Z,6.XWVN&$)Z/v(6CtZ%(Q*DGrwB#,,YkTYa$T_4lZ;wJãU"'\A1I,aJuIm.'_$2f^matEoJ#f0S+98N%s)ud5elnWjZx$qVHqjrb[R]v7Tlw,rpR]<^otaKpdf$Y\7I>lg,1XMu]mekTãU"sbpkGKYhNZuqNjq&>W56m*V[J^D((2-(k?UpV<-HM$cc^e+%-B0vlam'53*bhm4ãU"rVvkB4oi0=-VzSL>-MW)tl6^e/TGC1NZHY972Sy^mm'j$;ukkKs6?_h,oGbuIB2ãU",tnZ7x7J0P<54KHtv1Y$IA?7IY]K)K'dZGqI+y^#lKLV$;6&g^tHc=jc\p6q'B8lA]920<:^M:DK&.?,-rx.EãU"u$H&/IUQKkNFm92+8OY.w'H22Ztjbv]k.9Z2/WwNw7HaL(gHK(xaowxhTj%FGcJvUP+vnh&L=l=wãU"se8Tg43?rcA>E7\%v:W$mX$01;Q?5Y%XXddC$]['%5:gY9vTi75?8kgXD>2-lRsãU"_IeJg:J/YgWJG4\Ut2jj*NjCIKM1A;KMIIK;&1GjB:VC;5ou3np6ReStN7^*/n7ãU"e)kaPL]FdAKR(RQ?evQ/8->-YWPJ[&9*%(9SBs6p:0Y)/KHma*HpXS;ixtc5-yL>THbd#Nhd+(D\'B*FkQi%&LãU"F=r*?4VB^>aWm;5EIpbEn\3VuYr<<#s]/ãU"j?F^eF?^\_lpb^;+X$)RB=m.xoaZY&Jux=ao'[B2ãU"U4t:,9U*942v?WSA&Q.:*l]3DnQe;M$uZj5'viDYZNON4=h^HHm%SvATnpo>Z87ãU"9f3VNA&jatq2Mn$UGiUSqg+d%5Bs*-qVNaQ][+)E]WO]]#Jj+U7vI&Hfq&va#l4M=$66a;Lo'0u?;;n//9\n9-;8eãU"pXOBe%bmy?&YtR91DjfR\L=r*Jb0YgUmsfKW_'SI'_t2=s_\iu,Z>%bLeWPn?#qDZBãU"Y'bEXIComFS[b:XcF;j6=mvw?S7Q(jMUHw4Il_g^*n8jAy?CJf,)7]BVsx&4_VEãU"7T.(/=?0RV3Ta*']2876Lh^/TcZL:er>Ql'(,9$P0(cV&iYOQ10RTy>LD/wEbOeãU"'_UF6Y'54AV%$*u+t\MGP^=9+u'\Y)Qf/TkkS*.xrjEgIJ$r83tYZ0llh,g:7uhãU"fi&dse9Hv;G1wPV'wy:7L<;ECZ#3%w;C7wqaxa3bMD71*+ptU+(vDN(9qGFCXuoãU"u&lFXt#%u7EHY$Q3PC>_Ga:Co*2;fOF(#AMb<>0IwhaKXGqV9CuGsbãU"(e9lovZV[;5Wt[D9.DJx#yr;;SKv-k>22mGG.I]Gl,F)g_E6WTXh_b^YbCm(9BK,O[%T-6JC%;TQvouQV^sA($U)['];L#S'KQ(Zs+aL>wz2VJoKUGE*?j4?ãU"dGJNF1u)Pv?orbLA/2[-N;IH]IR.S,aQ00xRZ&S1;5nh:qA2F*>P=RI-swkv]YfãU"/Q[]majFK*/DHexbxSj6u:nooi1Bj^0HGtGg;jn=1&_o\[?*cR[(>?([EgE.S1*ãU"J;pU_]BS=][;S*eUJbZvhF.Og5*,^0V]pDwY&0LO-f.IV_AZqOqaGUUKbD?F_lZãU"Q9M=]:O$rtH0Q8I9)7F;>dvtSd'2d,QvtHJ*IHGs8,=E$Tn:C'wLTht6oG+9pT0ãU"PcX/Z1%qbGMmM6T8PANg&7a25-k)F*)-Nmz:dL^duFTCptc#PQYq9T8t?w&?0jMãU"RW+ALQORp/-9&YwYIS=#dqyQbn[+dvNf:k(fTar0rh7DPlpO(qXpI(.c;.p[cL[ãU"^X3rM4yiQGQ(wedefOZa=Od0RuxW.trB,9G')Eh'8V*[(#G89,Ak/O=>x2#+mtDãU"c^ttTRBHfX3.H54Ma7TC]3's&+OT\1&[)f2Ns>dJKs;85l_H,bwweH)?tWd68JNãU"B&,PT+'(WLf5WA*J)Q#*D&-J?Kao:58'M0u44F42jQ;p^515sYgRpvabJ(Se&=yãU"Nanq$;b&kfF1KI$g_Qe/^0N*NNuh&5xZAOt*lTvct,eeãU"#(#hWIX8d+mzVFO823ukVu#oqwn]w:oqjg^4Q0/\WOlqf+Wr4Iw1I\#.H:)gn9FãU"Ud6us/x7idX97X)N5-M'A^$bCfLD>P/.9_MvyPU#/RdAOCZyA>N(iOF&2YOp/%#ãU"u)KdA2ZoW6ikz8Fm/,C.PVC3VESflQFALUl:b]RieiV]z+ivRQP:7o.nm^bH>o8ãU"Hqx%,up(%)9%%%%-%;AZ,JZU8X]h%q%%4%s%%/%%%%x%fruq%jSlnpkk4rq.aRtãU"lqHL,%(OEOKY+WYP:1uu4+1z>.S>=*M=x(ph(((FAxZ%ãU"%%e5/SgpUR=1wNC2Xeo&_mY/eTfr*,7-&+;2W>?3Z?G(L(QPP$*pFBHAA)^[\J5ãU"EAWiW$%mZ[[(L$Qq%qQrrB&qr8255CWehfpQCuxqBhylT2$6t*DuCK:SiC$5fOiãU",Ep$L+>m&4[1[QL?\8r\0Dmu-,n+l0l5RpT6Rt=_)uA(B%]^'s$$*]1],3L]B+,ãU"Q1D+HEe4f=Ee/\EPw4*gVVJ1vLlSf6hsf6-l0Py^]WVcDt&tsiivK2vkK\&qXJqãU"('48Yn=+=)[ULE84/1W64/qfbC\tuj1dqRG;Y#Evm?)I7mkJ'm%G_7EiQYUAikqãU"wWUauA5aABuzvj_1q\(5-.TD=H_#9??'W?K#TY^$Ve50RbF'GsruG=hS,:PBe;IãU"eXI&VbQ-of3&PIJn)iiQpLp$vt,c'pR2*n%S_+v9&o(5&(Io<%6_W9WLb:,Woh4ãU"6y+FXd\3ZfHB=6AV?E(TvVThv82gtpu5<\j[CRbkXQWrU+)^q7pqQ<4Fu/hRVu70]]LTJMdlef_w&AoSb2t_lS)dnNxMCefm1zeãU"Dz4O4yOKGz&9V9y3:PzHz9uHPfdqx&ngQ(d:wZ8IQ?lZYPX8i?t4jB5G1obwlZIãU"pl^+FcOa?cua:n$*zR#nNdJkGJd.ad8Xw>1[GD8FLm4BgtdKuikJ;AfwM7ji\W4+X'zE(=d;6c$TkpZ,Ekq3.#+5e]V4$t?gd](lesvWK)e0M725ãU"Q&UR'p?N=Su#&:%2ei2B5s*qt/sv.?jkHH>ot<]N1D4\4+-erZ;UpEHhZM/A$2GãU"I38]7Eb1lKQP(lBrc7Q%?;(>9(q8D'%r0s8ffu0thyq#AcD28#>U)rg_fSãU"PxUe/?$KD/;_Xk-9,hsl[%TTpHED-[bn6r'MFqq]c;1x;W[,#Y\$c$7A380]f?iãU"&g&0-AgHm&tjtJ(U9U&G+_Wp/T?A]X_wfSHdi]3Y^Xr/;0R:x7G$OJ_T.M3ãU"a9Fh,se9f$$%AI=D*EaOm=#_gG4RKZi_tsz-rQ0uCs*.UIG&HDyrjnleaRdc57e1'^<0N_ãU"U115N&A9)cn*,>riF8Qi[fUv)/#y9f>h>oNfb2z6sdbZm=/x1/r4r;:s6Sb_^8rãU"[C)X8)Z#$xy91AUv,7#Rsq+.^G\qu8IR6CPgK-%%4DbSo6-(1bG7.-Fs]ux4:?3ãU"j1IMW./cb0;MspIHh_rB$^E($$Z4P3h1M1kL2L1dSqnVA]4h\=dI?>56cDM*OW;ãU"oS+HYe%vWI)s,lnr>nOf0.f65y?M5BF[HC$2fMYz2Z4EgoRdHU9M:NFwKrK<;hgãU"dS^5]/dZstEvL0pUhk6xM]Nt=5*50SnjWj^q(1S:o]$:uZY&[:$66/\ãU"8>31pO>zB>GASjV;U544xJH/Mm7,Hq=FMgl>+:O?YU3\(iC#R>BSf8'hJW_2ãU"$)SdxYg^U$(&VaUqckUKI):Gv:>.cu#i\5:8o)Iq.sOpf=2=?aW$IAhC5rr-CndULc/mhX.ãU"Z\hYg3K=_<6MR:8+[Uv;2ir7I:k9]u&BkE#e,h3kGJjVl_uy%h>mAãU"lI*b94(4^3NXMpbv:#3++j$06A7xk$75#rIA0bVcsrLpPa4fkgCF:G)\R3g^uNNUcC);g%Aql,Ax82W7cCPE2>i+keOBvRktDi$Pa=IwãU"A4Zi0.bGPX.LF?P_),zm-R5X$XFu'A/xfX_GgbCZPm(fHrtd*Vi_>>b$-PRV4C6ãU"A6Q<Gs3r:Q.^pIvE&\ãU"B?LKnB2KrCu9(86tNY2nEK(E_xbA]$xu3*kClWY^)_uK7Yi6sUh_(=-9u]4,irLãU"Hf2cR=J;m_(:pi(X0Zf%$K:nPxo*>YgmdtlNjR?)90N,o>XS;e(1yN3[bãU"'2>LD(DEJ0XTM2Rlm8vdn'eUjIrhglJJ4_M_^Rky*Y3xaowX3TQDGrr(oEB=r_hãU"4ub?/mb\/'\1/3&?+BwZbQ-]cUx#]Fu&-jAgXm_2xocs4REIw?kDB8Pa43eA&vCãU"NE.suIYpP/SPUP$>4r?+B&bE-.:Wr>G->M?%/jgexP-+d$d.TX#O^PkAL/yWNnkãU"UfI=1T)%)C/8^($TH1\a9RIJiT)K#zNPn&B2[nTSWãU"GxVkh6g5'=h\:R<-1Dv0:iVvd[a#JWgXd?oh>B:]b_g08Y,%-uPz*xuc7u'Vt5rãU"#8VVrR#,ZLC3GNLRpm%5)+v*hftUKJKi7M9#.,vpnhpFH3SGDbz>xZ_DE36]+WPãU"6RZhYK6#N+V'#'u[mZw%7p.sf\?9a,>F0'C&SdL.?uPPUehp\?heH_M0a_AgH6wãU"1K%g-:Esh%tO9E?wRw5/+[Ej69bDD)?#ZE^mt7A?_3'$*qD9[Ko==syGh]NiTcKãU"rj#?-kMRUp6&XkL%3BPNN,:pjW.h5KGC)HJ2fFl;K7]X3i9^BYTIR%jfdZrPMmGãU"7]UJO?d9]m/o,YDx*D(PRws-ZYTpK\9khxs[5f.*j%$8:aoLx=Xr&rl?4V0FvKFãU"JTTS:Z]WlT)^9#psx6J[E)>A[+,;kiob.c2[3yI.KxVcr/./lr0H1,ChnQs\PwAVipE,gbbTt0k-nni(SM<*l.I:$G,A08'JAUlãU"T'T*gqS+ixC'xcB]TVc\h/71Z6GgML6t-\+uu*>18U*qZfOy'^9.hp?Xk;YjlguãU"M,IZGm%ZNm$(WHFBzn(8F\#z^J[e32)JYKvCKQ^S24X6';,,&Zut4.$'>cr;.wNãU"/S<:)>SVd3$*xNQPh=J362>SHM1[$li[mM;Yd4d^Vsm_FZrBAjPof<8DJTCDULlãU"i3RRe[Ya.<0JoLHf<6GTBKLr1,cQ:_t/^buyaR>y24LlMng'l9Vq,/V(W)iVJ'$ãU"zf'?VmLfH\a;2MQm9Y#\lT.GJlE_1$,i0^MGc9=OgWzO*?#SGOUEbo.*'hI,:1AãU"Qrf[lFT7Ok8v0Q)TLl8daJWTHCP%u6L0E[G-8vqM(Q%SO.L:$rHCcn43fQa*F5pãU"Jeg\df(W2.7j4AISw7oLD[j\2yA5dOb*\v0g5$d[h18O6(Eex='X7)]G+q=hW2QãU"b'ky+TfS%YtaZZF+;qsi8CBUz6l>R41nGj*5nFPLcYZVS7:6eimi4Ma$PKL*8KKmeu's.w%OptRA'Qo5>zf/8o#%)Y1DB2s'^:/ãU"U>fA_O5h'HTow']icd?fj*H75(WTVeGi#%GYu(J*BV_twI4R&W]5CCãU"oRj$6=1Y]*ZEWc^XDRWI\4n%K'g=Q$=,vMl7.\EpwOlfbo/Fo;x9-.\n4ANbãU"Q7L8aW(b(z,KseEcgb[[Z[-OC9I\-$H1g'o=+?v*ES:FHXhS#j\cOo&W3*tkt0-ãU"EQ^^jS9,UW^rQ];XS)W=m5J.w(;;39Z-qCãU")=tV/H4F\g+bD+_.,'&b?a#8>rR=0iw$.JUm/Ecp&l.->%0ãU"DjJ,3+(oB>7BF3'FuU?a-kvE^K5A\H?krre^p>UaZGJ=1+>V+)8/V7f1yWsLj[KãU"J#&6OScSSCv8+9ZjFrnx*Q'e8(.LfwEQa6;3#c)&IZ9$s&L1KX+Z>$6H4-Hge3eãU"/r?'MMkC5K.3\SJM>/=KDhPW11b>mthvn'1RN?(ip)nh?[BZ&O;g%B<3^GM_5,-ãU"d>w/heW/LdrRHfb0[T1*ZWAmãU"$c?lO>/NZ5.eO'.-dX%lC+Nl'H?]rUlkstUWlK)])QDWRM4_rzyA.G:1eR&t]3SãU"'\%7.d..TO^KnO$wHTcip/N(f(nLb+ZvE^e;HC&I=SgV267<\(0$7RmGkQ_7X4SãU"p.7n;883\*F7l$7^^#Si1ZG9HKhT4S%s_s9vh==:ãU"uk2wUZ1]2(eW:N<1rgWiD]Z0v>G[X9JRHL^dcRFtL1Z&4D6w5TD9ãU"siR59O/D)x#?2Du<',0(gdsdEXlc_.hG0>zL/saEelZ.H3(']&HlKB_M)diNqHg5'gY4G%-5gZ4CTkIZY1buf7_(CESd$G-_au_',9?Mq0TZrL.xW,CYcãU"wZPyJru<)%n8&w'2wY.R6d,RU/fPY_0br*fYT&or4e\*-Hb0m2*F9MhAdsW%S,9ãU"Lqi;iqg#$CAPy&GMKaVnwmFF)kuKj.;GAhY(c;DFdE,.Uh^90+D/d=PW$hd6fQLãU"5=S;,*9s0f3h?z-QZZ%e4$$baGloUI<]XDp2&&k>b&g(=y=Lfp;dI=RTlHqnA1v>*,qweGfuYt3%'u1i;D$af?L#83RW2ãU"&H32JU_jNDjIp8xLv=T6n4zãU"#F:)VKq\>M)x4HLhInNQO'$B0lp(0'zOyDokPNdRcEaCbw\XORXED3hjIjX7Y3'ãU"ui[fWZF(kQ$,J1ZC8_%-'8tbbdLCquZwf3sw+3csapj2j'KZ0_cwtOXC\#zt+X#u/ãU"gjndim3<4Jusk&CLBY6KYvj;XLkPeuD#8^ZTiw7ItX^M\#HM/aeTIF]xw[i+vr6ãU">_?>tbhhT&TS;>iOgnIo=EfexT-'io.K$xY4ubDNxUW0X+>*wr/F2IgRRf4m&HkãU"f00_T8w8VeLGS5$$&:nVP5[_bujZE_5<2IgT6,SpDN,7XTx)u;6bZ%d%0Re'kV'ãU"F5n-ZZ#-JIB]to.1C4i6>:$_:OVoWROãU"wg;&4&Z65g1(B2JYDAfjf9GgL7)ohYRdM%l-tT*r)ZfWi\+O]s.%G(W9s2$65eEãU"OW/QhH3uX\t)z7*GH<^fWDTf%kWrA&J5sT4bEn08cd'(Cp(+hiL4OU:YGl$^xVIãU"3>jfhu7Ner405=[l2DZ%+E%V_ublmTT&Mv3R7DR4kQ-/'jDG/B#W3cj'vzgMJpBãU"VU4rmdz*Mm$)7d<*H)*^M;#G\/2&tua$$*)T]DQA=S'-)CL2uRc)*Tg[&EZS9YoãU"=XrS0x4v/jK_th*JZsgxFu0VTz%KB>xB=X[PPa8f..oP/a)a2hZoR(2jVg_CWb_Ox$-IZ,ãU"ZKi$LYtnp.zoLt%]m,%d&hU[I;TAVkiuc7vjjO*uYO)(l\=V'<8eU6S=8VQ7ozmãU"Aze6l?k8cP:a_\y]H2\#TeW+&G(qpWI&t0H>\WR\tYGgkR1X)?RtDE>>HB%ETI]ãU"4upYF6Ch?c[7OR8K1);yGRVLr=neRPX%]Q>dJh/?tB9+Avq[\H]%>U]]L+yb^e:ãU"KS[sELeG?MGj)a1e:R/(Cce.*u1%nG&p4%?2p[,rJ-lvRh]0PHB:o%L8nP5sOjYãU"(Em,W;?N+*A,jS%&B^?V[siHU#5Tq57sGQ*vkKP9e$nL2yL./&.GRWNr+gp&ri4&ofvIQF1f1t[%xEz=R]/-ãU")mdedJi3A8#0;j_*d?bQ1&(0E>Y(vLt$OJ*LF/e_pH7CQ+7$6u<_[rP..zhokf5ãU"n+2nDZTUrN(#?1kp\mLoGAUYa7w^Oez3g1at8%lBhkfwGE;MN1PZ'c*-O,sM;Qj=Z.&:f+dpsãU"+*\LOt#c36yDFvOtr.&*]O398&%KXaC?KconfNZCX-C_9HpBBuqdUuET-FRU_0sãU"$k,itmv7(Lehb:cjXz?(^Q>ABFDegbf)+J]GxH)$s_NZRplD1$v8ihb]'g$(hHHãU"_gIr-;]9S#o/$8RdT$1Ze;DDiU9eH;8+:oLyRTVGfA7>ZMjUJ?6cXAa(HCwIjbpãU"Uy*rU9c\?9ObwGbZ\PgQJ6sVeG&;*Yr)k&n6G;Ppheg3m/bd6YETj%ZfrhXTWCyãU"7*rs^:->.9MfrfjHLamn:.OM]Pp)oX*)-5CRSx4S4&.>brfPt7r;<#GJ_u$)G_sãU"zQUoJBzfv^.7pGbg]0PT<=V#fHx[g[bw4irq-aJ*#1Q=c(wB>bmh&B'B8LHeLNAãU"ID[^1S4t01C(*&+:WoN2%oc6OPn[Z_mvC#KT5]==k,e$ft&V^_ãU"2BI3UcCSqDpf?rDY[/)U77Cu2Kl]8+=7P:X#B9HKl_bSvgO7Fm4ZQi4u-<*6\EnãU"\darF_-Wi[_*58<:pe,ICpFcu>XT67Dv$PU;v#R?3Ri[ct^,Tt:ãU"367$Y3I1+ZZCvEqs),RJ9oQ/5&$/W8QXo1PT:6^7s#e3a4/B$#EYFClmbj9>v(>ãU"(HV6AS'33I4WYn1FnY1p_I16y8(r5r7EjNV#n#nN6;[NLzz<2S7sB=9XG7:ãU">Xi8M;Rw\,rDer-=EOnn8rt9g9_oGAnNYp=nomdh/M-lIO68eO[5-cãU"R1IXLaPOfZQk$:APD3v0Q3Cgt[+Z3RLJ8E:;l4Jdiu/dR.U-9h.4[Wc48IpwAogãU"IXsN>yigi6k6-HT.)ZvIBYe#M/,J+%Upn4B,6m4H?V,Sa&]vS-59cqIHKcsINQ.ãU"4Uc][RHqe.bbm_Q$9Fv2*UFKRj0dy35O25Ki\R1Ss;SZo=:G.;P^erhPT\3x,8-TUJ(lSrHd,v6N'^F.L*ih^#i0yjiE,Ot?D9]Kxq4Fwu32Qm>>T]kf;2hcFo2?ThKgG\[GãU"aAq'b3]V96H]xo32A/?YFF6$2K'1n\<$_nc9l$ov#W-DNjfzQw\dK'LPH^4W5CãU"wP=r-+HgxzS$(iD/u#LD6JYT2%hBGS=R,udH%.W5G6tIc,h.PaZKd_Q9.NuN5c]Vw(wtPb27^w28N99cbM_c1uxcBA\$ãU"G66_*=1=;EAZ>rit&.A0Cuct9R9O%Q68Pu*NWIu>saw]WKor]=E5lLSd)anLjãU"S9#q864;UtDsc2uVxZT..83M*Kx2bTg*H3:Cz#*2.oHSR>4[fu;oU0r8=r+C'0WãU"W0]CB]+8D.H8x#3jZ$B:eKi9NDCWV*nNgc2Dar-R-9\l98P?a/X.M,x_$,43hvRãU"sbH7_EhS:]M:,%_aF,BF&>';8ycOe]B#k;^7'Ds5yx_3z'J,6pNn9_I3OoV\$OBãU"7cae\A>mBW&vHr?0d9X%nuT-UQc(Wu]9LQV4(>4/HB4#LzWCL88W&Y[Ql6?YQ&iãU"$MN:<4Y.=U+C&=E%abvL)eP\3%'npC'>mrO^+.]PI8wY'.o7S=&9JL3.hu1B=,ftpUBYK[nbvGW35w:bS#JZx?iHgm;.C0o$E0ZNDB8WM3E8sme6W*EUL7k=3+0.1ãU"L':a(RKSulQGVv;O2ps/h1lG(R?NHFwLDRn]ck9\H^l^Qa#eJKi(.0jf3%S2xdeãU"27%\?%KDnxtV9/M2BQrOB9e4k55Cq[)fVlPOER-Ott*//K_?hrsU]C/k7Q.j&urGOgN/,x%\x?W7x:bQ8)ãU":nyF\VcFAAA\\LrHJ_BD=C3PXVb4lVQãU"#NRV.EC&#-hHYRrHt0EJ)js#7;S%#)\*X:-DGc.KI.DR_0-%(7.jy^B5mPqMe=xãU"WRUd7MpmV/VdC<]%%GDEIp3'ql94ha^zxp:3Xxog&nnatttDXogQ0_\q=$YVp+xãU"^;7F0NNs?'r)qggx7H*9r9c;hHS7]+vBYJ04H;g^8;]W5g12GrX.r\zCcniHU5qãU"mI-#M2s6[oF[7#>'qM-:$FxaUGBYMf'wF4]MbH0pOeTR>7-ck[T^YVQiZQ\-'%b&Vq)3QO't&K^WK^lv#\yk*usm%)j*ãU"<>poJls_TgpX^AkSM_H'&_16Ec)(Jm[kS2kGH<'LFfTc=WlXZT0.p;%yTPIgB\UãU".ijazIOmKc-dD,3ai/yxnX,65Fm\ZiWCyjnB&&_j#4K)kZ%CYQibw&^t&#J8)QHgG=f1xtI(rH[ndtbNtrXi$f]EEgL_:Rl(e,?Qc>?SKTLi#jY67O419e%]kgJXGw;U4(Sm_w^=fJubAJ5qsFãU"bM1+3h#RiC*Q0(g[Q4MKZiPE8]$Ds'(_)^ot%ExZ(Cb>W%S/%?2[E*QZ>fQ7S*Bp(NXuegs8/ãU"?5eezE/^$.Xj9pItqUW>W,qN=F3,v0v;'dW8\S62x?:3Jmudstl7[rp\beuCeQqãU"-pT.IpKnFeoy3eQLnZz?+O%8r'\BGHcSD)_jd9lVy#LbjW'4^=N.W[<4Yt?X?Q)ãU"5k,oe>R\2xhj*#)ij3&JfKk;\Hd:9pHpe;Q*ovt6VP+/p3V#KeuQ5*[jB_'6fC]Y*RjENbTO%u]k?%bAP2.Q*s,p.^z4#kmF7*[oãU"e[xU1qtqT_,$1NQ-mJDnjjwRu0$R^TxKp,qJu3OdG_e?sJ5c5l3*hbctWJHYOq$ãU"tH,H?Un;^ff/Dt&d;y8xTMi=EiZMIl[R'KvC7^Pl:sC47j*OEFX/onc;DFvJt/vãU"p.DuT61_PaYO;Or^mfp$U(QS.]N'N1ENktJ9qL;eIsXP+Uc6dwh.wQj9J0+wZV7ãU"u^pFH=3eo[E_nLymLZl$ZH*Lsb8_nK;b4rHU;yam2FgsCV1nS0Xdho>NisZZlveãU"b?0Hh6h=\8xA#Y3H9w7Zmm^2*qfuYgk3Pm^GrNb2TlL-UtNUD2MCxf1(Pd7cwBD?:ãU"/r'fC05\lY_bM&&(&.'dIN&]jbsRT1/a9/xO*9;'=uTAbmo^*Du5((ãU"$,ZqDXAF?1mpG;\^ZpL[0bQlEHxU[Sa6U.;f=tsdwfrccvwlH,0%u^)CFDOd1^HãU")w9WB>]W]O/3Qj4MOF'Rlcce#nK6E_k>($-lu&nb+[uWjo;SVpHs%%9ãU"^e3vAw\fufNf5BMs_QAOl7[&KUZãU"4Ogxe4j?j5_(g,B(TkPt%>=&F3NK2fd:keHn^Tycw2R3pWn7O3DT?U?$=Kg(/_Ewai'INãU"H-as/*DUE%>MxB6VW['cr2z]wCrATcWUD;9:.%'Xp+>g'C=x'*lV?mqtKjYApNVãU"]Dor$''J_tkp)'Cmr'Rwa0mZ121;N##-U^DgovR?\3$KmdnaiZ.-(71P5R<3*hKhdkdWhibaR'KZbnu<5DMcD9ãU"l]ehv2ihvV;5ErZF7%-#w8LI-ãU"J/l9:C>wmrI=he,3u'>.a0Kh?yY>j%MKszgyM\&UFO$JU=&?qCQ762Rj\*jD=>LãU"Sb6b).m+70Tt^[FB/&bp1b3(Sh[22L5%MBK-dleOt'>AFKyKDU0qkR7sG,V0k5DãU"S3jJ0QA4Q&1pyw^0Db+M,07>$i5KR0bg1I3T[QudA;B40^m^Ca,gGe60fHF2\ZjãU"h^4k-wHh[WfH5MT>DWPhr]\VU][N8D-k'U<6l+4QYwPCcB*miBF8juX.0Zve,Z+ãU"*(TnPEx%YCZDMA;eQ(HR?A[-hSl1Q3W91jMk+=GWPj6V5Qes)?)RaSS7-F>UXj:qO*(iE(NH]:^awO1KLC2,JdLe[d?Q=)nãEND SUBãSUB V4ãU"1qGFU]bp?k>pBnc'g2o]L)o0;*lT%1XpLI]rf3EK;A)385aZcG8MaOg9qAB_K+ULl0+Fv$fãU"=YmL.2H?<'-l2a=l_HAOmEE'VZDgg#%280EX0bzqLC?-uY,8JãU"&0C?1o->\?C7B^PL=y/l'YU>Q'rQ?-?w)CGa3Ce.DgYIf42F6MWoGsU;+LQY8G6ãU";rrIwu3HK1]#r\qY*hBP\NlV?V+UEGVaw-iv?7#P./ukIFL-V$bjMG3Eo2q/#$6:A=*n3BOJ)2ãU",/ZdI8L;MA$=Z4M2Pq='A_%J.zE#Fx'1HA#CkfUV?#uxGG#$xYSB5'27S:ãU"P_/'Qg3)5&J8-^-l'Z=+)Q8*M3V0nV3jZiHfq70\6:ãU"3#^p9OA54(QH^t_acãU"1g(pI9P0Fxw?N4gFK_0PWoY-0.Eb#=6/2=b47=9FhG(Z_;lNu1)BFHc+NgdvEEWãU"L-P^rmU5dlhU#^3Y,Q/4jET&\/^u$kHcU8#EELT7(uD2gR'cfK:ASCG+7K7($s2AlnJBc,-#TCt>g1./Ax2$.f*$^BjãU"&QJR7Yd.b)+$n+=j;5,41NWl\63'>ob]2]$?=x;ZzB(I.W'JESc1onRRK*u:-:fãU"W\N3>O^v*sA*8uGU%*c+6E>6hW7VPuW0(4Qr4jfue/buBlEPWe+<9CãU"FYZx(H^m59Y:95/N=9^rD8jN#m2uV9hw-7'1H,-ZqD0Vin+kPPiLQ&7h575__g5ãU"'h[ol9CjRJh^:,8KOFs^1>6>(O-Yq#ãU"'://prc+Qx^A=u6wN*Gri4gk>Pot^L#a#)Baimy=#+ãU"59S\BcP;bNR^+1,U8Y9-H]$bNs*RqV<&I=fge9OiGGfEA\K3?vCyQsO+eF$O([dãU"-:EC#SpAA&oJVPVT7ZV]D5?n47xE#61v.vVirk6FvD\L_%U-f'HG3b<6,gt.R+JãU"/*B$r8)\dx(j40V:P&+*It5[,VMA*?jIZhGXC/IH*QKSC7kl=uaKf[HãU"N8i>]PB;UE6uhTDI1DZ_WMmIJ>d+/5fHlhXrW>r,JRb3d\GBWj)J^&bR&tmS#Q-ãU"=Yc5+x^+]:8wauHMA=6Y8hVU=S\'4J-7>gxttfhC=s#vrLezvãU"bB_*EotHQu[/Ss3qRi?.Pc]++.Ndg=b>dj,:xrt'>rt/kN'SoTW>^Q=N]nHXi[$z)l]2=(n<.B6t+#(IHAnm1NR?IEbBBHwuFXhzVEM;cãU"h]Me>kstIaCs^>Kt<(tm)b_OI6R*YU(3usL>TtQ^P3N(;fdzpmOanIOBopbdJ%rp;F+,LKfãU"p0uJr%GYli=_o#g4N$nx\8mK6%JrwO&aEI7T-t5p-/E]fGyxt9a^9Zh/_76Jp2YãU"t$RK)/6(p#YXaHvD?fcyYlIwLHe9vwkABNIAgB.byN3fU-FAtc%79:E,&1E*onHãU"wHg9;9:3h%?nv]SW9lPJ;w;44O_i2]dQ,ieS>W:NU)R:7n6lO..f_xZ3cdbmHR*ãU"Ob4[d7OD[gkhO/i.FKbRgOsG1)>j=\Io=H4>px5f*i0TCE[?z1rql?qXtltkMa5ãU"e9]_V^SBSSll[+VPmN:YxZUi#/'TbJjS9=5kjF%kUBV8B222Y/sA77x%.fV9)5]ãU"omXRQ8Hk=2LFd[g^Z?R8fc=KWWW1VwWk4uV(Zx^:;x2S7Mphh'tfIm;qAat,frEãU"E:Wi7c?F=BmP#82CL,oI3do'^3u?Ql80$OjI0nG*7;)C7bs*P1lgcKkHKR_1PTrãU"01A00IM*qGb=]LKv8VvmTo.aNG#RnlS2?90E83Q7%XF%i>n:q^e:UN=iD(tYfD#9ãU"jQ_tD;c.]-wN>Nxw4$-GZZ)+\p=6E&To/9#Lc:+7LM\GZBheq=Hd8-h*[bNBX63ãU"TfyXgF8On87ãU"jTGe,.8h)/Ce[]/)[]j[9Qbxj$EqFv:TTpH\..wAy\'y;8Ee^DvRQNb(%,lI+)QãU"V)t.SNbptVAS;*fxoNY0eN]uwQf=8RHL'Q<2[K9N0,7AxjY7mhC-Mh%)Z1KEkbaãU"SXNXr>O>5sRyT&BZGGqGDBV+Ml=i7CGgOmomXz7^RWh&N('uMNA0WBz&aE*Ae'gãU"7Q==^KC5RU?m$Gi6[HBnt:I]KJ6IVAj,=2^TsMS'oD)#3S6Z+Cq6EmeDW:fWM-EãU"kkDLns4wSn:XV6>#6B*5XxJ-'W']I6MJM'neBUGm[%vas)[Cd\*dBpSjc?+<3*tãU"r2Q6ALO)3U2BUjKSn1b^qLQ.6a%ER.,E/vVw\9P#:e[MbRg0'uA-[tT6HiwT8\LãU"_p6EGaY7Hb(H'T5XaOAopI?84[Qdj8S_vA'D,*0AXs;YnN#_(c3D_a\bXC=x$eQ$WZt&1VO-5TPQ>9O?Eg;-7=970Xqa7ma\8[7^87G\WIS:.>ãU"C>&a5Bw5pKIPfCn;LV%yTFJ(sF;s\aM/<%(j4H\C+rZr_0KB?nDãU"-hm'02VRZZ2<5<_oD5RxnmmF$;2&g&9Ag4p+EHKzq5pM&arIbi7kT8=b*J:t8A?ãU"KeVbi0\)'bfKX0-EcC76Ua%[3o1Mh>JCu>Ij2q8,Dr=HgVR%TsA:WP:J_l'ntpJãU">r9\WQj45]D_dgGj^[WOxD\RtDd8Z\W;ehm$=eG$7s6AZ3YLuqd,g=0P+.^>S>RãU"V/au92MrCd#f$3BB;G,F4i#^^k\8T)L#1P'sEUF4/3>rCKZ]1pj1+h2_gxNOkO(+c$ãU"EtcJPJVpob^.=*<MbCF?1e78^T/x[Hd_4\hOalWRaTCG^$a7UI9+8ACY3M:Ds*ToX?ãU"Cxnz8,l?a26?q[eGLf%wO\_1]7X;dC3Prmme$3;xCQHcswpUlQKJVRt[FMRdãU"OBNV)\>t>&I2d'rDP',g(dr7[]wj4Cq'I\IXZk_#cB60>jI,fY7?9S$vfVgx)*\ãU"lu-Mfkhfn:Dd+/=l)$SQ%qQJpW15cJg=Ng:%%iWutI];$q3k7)VM.9lP8L1l5(.ãU"c_+Q.:40Sp3Vm,f$RCffA_p[r,MNcw3CVnJNGL]FX$M#zt%:xmE.dSjjG[g%lsFãU"IaJn.rMPJW9uU2f(W[7d.8di<_P7C$03_?mdH/euw9E&fb0Z^\Lt#FPYnN-#%QKãU"Cbelwl1Np4T$PK=)aMO:xbL#YX>18Yx]N$3p?aDNBu^NdgEZ5JG43BSTPt[4e'nãU"_o.N\;Tcm],:rIH1i=WUGp#b>Uhw[qUcx(YuBrY8\'Iu>.b^**hhCi;o4[-:&Y>ãU"G\=\&'dMrei:#OS\xXDZ5)F;x[2%9wO2L?obD1:LmQf^xrVE^<2fUmuqpt>(k.7ãU"8a?S1\P*GGN,mJNo1N1P\11c?ELQ04^:tX\REQ?4)R([mEXYP#E;a;0S^aC2IH\ãU"9gZ5_Kxg^t6Q3$FFTa)?V4/RLiNZ8'+Ez(Wm(9aQ?xB$77qB)MWb_ieEtv.E=>DãU"B+qwajXy8ktW=';GL[1mr)%5h'EfZee2'El+pSLu&nNo&miUy594Isrnd(etjoFãU";'n1)S1I\lmaCYvcDd.0*&61R$^[0unrJãU"-++GC)J2rVVv#R5SAtOE[[Pfo_2WP-.Kjp/IEmãU"3oBCoq%>Co$ctZ/l\-Pp85I]6u=irVgp#&x0_P4Wx\uM9N'[J6.F<$T4UOPB_ECãU"Z;Rrc=8(xxfvEKf.muBRTqq_&mS\MbE&^yf%GI>-3W=KYZuP\MqaI[AYZ?^%T^dmUZipb=Ts6(L;t+l&jBF'sy+s>xRSnySI3u2vnC/\)MOAãU"202HDVCkMa:lO*,wWQSm9K+ãU"F,qs3H#8rc3#RN.?GjeKEfB9%IGV(zBEV%.C6Y)[<8$?Qn(BG?W;]6WtX+nbfi;ãU"jJ=[BF9<3AS?yG]$qY^:e$.;YMT$6#dR+pNc;%lQEr$]bw.3E;9B_;4O;fOT^XtãU"TURR:7[Gbu%>VQ->uJ14_Yc3m:i\U5Gp.9S-(9I/pn)OhP.gE6xUS=7lVvVA/7pãU"zvpEiDu]XWnE.,yHDg9[>Zr:cDbF1z5;+?*Yuufrc)ME*SL/q7C,x4F_moMGDaFãU"lZtvV=>^\l[aXSkjjbha>gaZc-HrxuerecM0nWnTDTjRkVorecgQ-T&e).%*W#L]UIPãU"BD6lQC]G4XJ-y)LidTsR,Ah8oHE7KãU"RGg$]p-)sLPziEa;d;&_.c=%aMr;M4b[-:lU$gl<$(85NOCfXJ/'JPN3H%C\^[CãU"8Vt9RDsD2:kt>[/3UU&s:/bYh(2Qa#GQ8-0dLz=5lBpIi-W^I+2=UC'7l;462Y=ãU"p-lkX9T4KU\/e8Er]Vfb8BbNd0,h;tS6?3F;iB4Y]q-#qg5U(U29oMYgxDhNS>>ãU"W3\I-(zJs[oB2vWCM*VESY*3aP%5396-k(pDmwtbS)ki%B/EQIhJ)qBTlsK.R2bãU"t8;XgSzM\]?1m]i3ZTrH#vcqTa%j1F%#bFZ*E=;Q_ZL^CSHlJ%=C8-W8:-fQVNlãU"t=miC.y2UW%Rf.NF#'+mwxjo5GlBR0i2ãU"30yL.K/em6A>(1I;<,bQC%b-P9;dQGKUzOp:g4Lig;p2QDeu?<2x*V3&&%vUAw_ãU"y7ThibvXVI,Y%+7z5eãU"Gl]MHY:N&'tjV<*0hXU&>VC<#F&nv4zip7#NSH+CsLe2OD(:(L7'ng277?L[[0$e1W9Gm[$0AFh&n9Ehx+*f+7frx*,(1_:'IgP)%%>ãU"p':#=&/7C%2Do=0Xs[nQ.+Y7*W)-U3=YR8ABG-(o?g9)u_*SG?ZU6\7(A][e,$MãU"Lf7pB960j14-#\W'I)yOUM.afSs)7Q7o-?#E9D7M\OA5rGUd'7'lnãU"1#I9rwik=8=k9&mA'Y+e%/n5IãU"E_S'[Zd.v_;X9))TCSGF,s[d;3&=-+UDKp/hGA;7WVYS9g]C-_A/o*$GT*8a3m)ãU"E1Q47TA&./BZiq8Xax&wz\0&/%eA*qONrYOG5cI9+5Y%K2%>$4Y-m&s/g/niuiMãU"ZUI^EFDieN+G=90M'o$^D[7ixK+[zKN^qXTe*kxK+z.uEg(okD(-?x')Cq%*dNeãU"t&,7i'?%1F.l#%'mIG7+M_&u/y-Sy;3/JTSO0C0YH01:k_)-TwU-'Yp'5/55$GhãU"y8174.:j_K9&14SO'Z[+ewy?<)O-v->21M[0(k-<9(vLE+?v$5+S3rZ5Cbi^DO8ãU"?;ewI-[j-(=*k:x;TBm,8CZq1_)=U1p=n>W['7.z9'_3Rzhe/:3+1^4$22t1a&%pj/n[v'ãU"uul_xs[F%b;en<:>h>elTQ6*YGiNAY1c7PeG2[9\s66ZO,u9iR-k%iHdM0;CPu]ãU"$nN,+-YX'M]g?S4^Xw-4fiP5-w9<)OAQ/W(Wg&1dyUjSdByy]bDj*3?b8r+oiOFãU"K)C'Y2Ae(A_dQGqkG(MW5^MZ8NRwinyNbee9Ifw(8br*z)FwBoA>HDsbMoCF;]VãU".u9;F6'8/GrH'(/unT2YU51Koi7MnQiI?hZvot9-?i%%f.tmf;4AI%YGOm[zWo:ãU"cLg_UYm11'#8ep[;t:Qq9X?*Al+.vqVEQ4o'k*[FAqOJA\oC1:.t]9'18e?)/(Op-.h5Q4_ãU"IoPl?nC=,#C\*nkE4Z.^=%uJpO&*wl%^ZSoSPm''0KX)b,$gp]CWcs*SgSe\)#AãU"Z+v$oJ'6QRv>faP3eKpYkT?GDu2O_0LmN+F=S;?eYU+)\iUiA9RC#w7iU6(mPJ6ãU"XBl_Wofq'TP8V#e&ybFMO>q0.jt3%$aBgi(ua$I8R9srPsOMTfKM'bR;v>&0#;ãU"gEvE>mPh*640'u&I;5VR+>pCXO,cY3z'QQP%Z#&%1Y?osukcSS+TER9Y0dRC,u)O(Nf%Q]5Q4EH%,Vk,MB>2/1j%G4<ãU"7wdgD;;&SX5wW_s7V)kAgs.rV:r%ZuEkI>GiwTF-S;Ly(i'uUOS=Zy&gMgK0fN)ãU"24R[:&p%W7)c[VOJ(;>6)?ffW=?'3;n32q['aO98V*[Piv4,*t=*Zqd[Au'<8RgãU"yf$oQrOUj2c=Jg?<$cAU38Zt=3s&]No)CSmUBInvNwC:AR%'/pmkoMS=yT,z'Q-ãU"aB(?(\$CPJ-O-Vh*1$7dJmFRJq*o:ãU"#h_\z]bFg/oP;gzC+V:P%[$7WY&Kt-F](FDK%INV#g:=M+7ãU"_Q&Lca+N,wP-V?%/RE#8q8a/9PSx3wO8=PH7%R$)P*$\RHRTRXa'D''%%%$up%(ãU")9%%%%-%*9Y,J?xZ>&%_0%%&FN%%%.%%%%qjsx%kSgfaxf?vb>Smo9$GjdFaJKPãU":S3:+sw+Pc'qU&ZePA_DQgbCaf*L/>6Q%T.8*u41Bg93q2e4-RbMWzg0E%CK$S=dTJ9skVuvU\XlLRs.b#]lmUA:XpãU"CUV(EI8tV_,s)ZEHK,0Khkw'2x28K'P/wX2r(]93[mp?F7UasHkjj\$]5ãU"2*V=T\:SBUp5n;1C,auqa[dHFwLZm/6e>%X9&*?S=:;wO3aD&*%CruGKG05U'gVãU"?U+WE\Cb$)<_h?X'^6M%Dga(y7=onc/%B6qEWmI\:2^d:#PS(fNaFKA>KUXOE??&DB85*5S-.lw>8';0su_*\Pg^fL&9a*:sMZ.?ãU"J7t/0]iN4\Cs14\tosR?IA?&s-bBM]==d7WQofBlYmcq0'S7ScQYKpDgkbBByB%ãU"LP%iD%/nxS=hmaX9FKA+pDp/HCKLDjTu[/J_KkfZ/\Rq5.VA99CVTw(+Ba(+O3hB,/'bu'>n,UX\k%G9Ap_\u('Av_CYUeP'66(pcba^o/ãU"_AwuHI2.DUE<[i'zP\:+DXe0J9(:Q^3,=5-=7;qMRNm<6tMIfJP$5nMLaN-l8<:ãU"&^\Vy_gG.Y#]CU9se\ul2Tj'qCC,E<**U7HIr%Dnpuo$[]P#q%D+aVeKaBCDUPDãU"AP+:MuB$?p]C-/]\.284XRqf0C]9tMJroK.cD$-+,ZSjrZ3C$UVLQU\,Ja7G9]?ãU"E+mMLIq\$)8PYzAn\>UqdLGyd#4++.W3?DZ]h]c/Yd?MYqhgNnrgJRwQVEV(ErPãU"iHD>K#xTj^OYw;[+>nYH#mJq7o&y;#7+vesLwo;.=qN(RJN5qE+nMSgdNM9Q+L<(FU=8U652v3]QãU"'pIlaju*]G)d5Hl--ZsPE5\kuK04GFGw'ahkx^APrFs7A3^Jsj1f804=6i6'3yOãU"hZ)3_BtQEa>Feiq'2s.t]4*>qua'FO&:]dD+[Z*A^JB$P'*AgI54pNbNeb3VIh4ãU"iZG:56OmLPy$r[:GDG,f0ãU"YAT*e]2.*7$D$&^xsbSkmaKTT^Waa4_]pyq]0q&VuVNN#'8(kDi3F->6T^V(#naãU"x.v4>c\[55w,YH)sMh,exD8;H/\RTEswDk4]G-41n.uiG;[#xIXIPãU"EGRRpCNVGcuudGnkk5^/VU7k_8Kj*XAJ_;?4BBXH,m/S.lT4--1$v#uz:<4Ao5(ãU"TqyvbYmqF;ItZP>;e,a^lcOQ;+TZ[]bqk\Lt]c*Adu_vi0*4CWp0TphsTX#%'iXãU"9NeQ:?6opasZ#.\d8HiaEZ4O&(,61i>P;+'Kcjn.EYH\r3cCDYT;pcAeFq1hH6KãU"\+_kBa]G'OOqE.Oa*GFBZUzv6vs)Z_hVC5kw_U2ZrU][Y>egZN&5zCm2\[)AbAGãU"#*Jfr$-7B>w+L?\]TgI?lW,KG$.w1ZI8O]_ng%6pL]gI8?%U-yc005$\('ASGd$ãU"'aH#ZD>E#qVq0OWqU^6IW9R0?5lF4=B]C+Pw^c1DoHVK>Gu'7IM_VK>aug#LMKJãU"Xok2jXb*r+\6tuY.IbZzk#F^]tuCe7MLjD_TNOIvja4_uuo[]g1c;ULãU"MI%58F3(Y/rP33rD[sBh_n[p3B/6k2)WB=3PIh)ãEND SUBãSUB V5ãU")Trk^&EE1\^^AMS?p\(/83j1A[l9wv=_dD4Zx_#Nj.5k-dDt.vCmAPL8pGP53m\ãU"=B'7*<3V9CGibGZtGd2yLxZYXukSffv_5D#bU+d\#*p)-ERQ;)/:SGpcJbe'_3kãU"N>(>)N\K)GC:$=8\/qgL\+D=.WM7pZN)cTJ_M$fflfqw.#Y=7aL,]\]OVax9l3NãU"Y?ZBW]B)[zZ#;FvW>gWlf2nS7K.xBGVVC51quHEjZY=r(2Cq^t6^0C]FOEE9NyDGGhmWkãU"/_M$1DTV/TX45)BFgrHMkAjso,eD<_&kaPgmãU"<[Xl_kz2<1?UZ*'#k)SzbC*L)RwfQhT->sl#7SnW$RMzMir.NUk4GI5HqP\-,GMãU"0]67uqYXT;vH(wZ5+;HrJ?$Bl-08kV%Y5-0lz*n09&%_0%%&FN%%%.%%%%%%%%%&%EãU"%I%%=c%%%qj%sxkS%gfxu%p*+%%%%%+%%+%q[&%%H&n%%%%%ãEND SUBãV2ãV3ãV4ãV5ãCLOSE:IF S=20AND 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ãDaniel Davies NEW PLASMA EFFECT ia53@rapid.co.uk 08-09-98 (03:32) QB, QBasic, PDS 22 544 NEWPLASM.BAS'New Plasma Effectã'Daniel Daviesã'E-Mail :- ia53@rapid.co.ukã'web :- www.users.rapid.net.uk/ia53/ãã'Different method of generating a plasma, by usingã'the distance to a point as the offset for the sineã'lookup, as opposed to using the X,Y co-ordinatesããSCREEN 13ããFOR y% = 0 TO 181ãy2& = y% * y%ãy3& = ABS(INT((y% - 50) * (y% - 50) * SIN(y% / 15)) + 1)ãFOR x% = 0 TO 181ãx2% = x% * x%ãx3% = ABS(INT((x% - 80) * (x% - 80) * SIN((x% + y%) / 10)) + 1)ããz% = SQR(x3% + y3&) + SQR(x2% + y2&)ãPSET (x%, y%), z%ãNEXT x%ãNEXT y%ãDaniel Davies NEW PLASMA EFFECT 2 ia53@rapid.co.uk 08-09-98 (03:32) QB, QBasic, PDS 27 723 NEWPLAS2.BAS'New Plasma Effect 2ã'Daniel Daviesã'E-Mail :- ia53@rapid.co.ukã'web :- www.users.rapid.net.uk/ia53/ãã'Different method of generating a plasma, by usingã'the distance between points as the offset for the sineã'lookup, as opposed to using the X,Y co-ordinatesããSCREEN 13ããOUT 968, pal%ãFOR pal% = 0 TO 127ãOUT 968, pal%: OUT 969, pal%: OUT 969, pal%: OUT 969, pal%ãOUT 968, 255 - pal%: OUT 969, pal%: OUT 969, pal%: OUT 969, pal%ãNEXT pal%ããFOR y% = 0 TO 181ãy2& = ABS((y%) * (y%))ãy3& = ABS(INT((y% - 50) * (y% - 50)))ãFOR x% = 0 TO 181ãx2& = ABS(((x%) * (x%)))ãx3& = ABS(((x% - 80) * (x% - 80)))ãz% = (SIN(SQR(x3& + y3&) / 10) + SIN(SQR(x2& + y2&) / 10)) * 128ãPSET (x%, y%), z%ãNEXT x%ãNEXT y%ãDaniel Davies NEW ANIMATED PLASMA EFFECT ia53@rapid.co.uk 08-09-98 (03:32) QB, QBasic, PDS 97 3479 ANIPLASM.BAS'New Plasma Effectã'Daniel Daviesã'E-Mail :- ia53@rapid.co.ukã'web :- www.users.rapid.net.uk/ia53/ããDIM dist%(8900)ãDIM sintab1%(360)ãDIM sintab2%(360)ããq% = INT(RND * 25) + 1ãs1a% = (RND * 20) + 55ãs1b% = (RND * 10) + 20ãs2a% = (RND * 20) + 55ãs2b% = (RND * 8) + 11ããFOR z% = 0 TO 360ãx% = z% + q%ãsintab1%(z%) = 5 * (((35 * SIN(x% / s1a%)) + (15 * SIN(x% / s1b%))))ãsintab2%(z%) = 10 * (((27 * SIN(x% / s2a%)) + (6 * SIN(x% / s2b%))))ãNEXT z%ãããFOR x% = 0 TO 8900ãdist%(x%) = SQR(x%) * 2.5ãNEXT x%ãSCREEN 13ãFOR x% = 0 TO 255ãREAD r%, g%, b%ãOUT &H3C8, x%ãOUT &H3C9, g%ãOUT &H3C9, b%ãOUT &H3C9, r%ãNEXT x%ãããDEF SEG = &HA000ãDOãymod& = 0ãWAIT &H3DA, 8ãFOR y% = -50 TO 50ããym& = y% * y%ãFOR x% = -80 TO 79ãxm& = x% * x%ãyd% = dist%(xm& + ym&)ãx2% = x% + m%ãx2% = x2% MOD 360ãc% = ((sintab2%(yd%) + (((sintab1%(ABS(x2%)) + yd%) MOD 254) + 1)) MOD 254) + 1ãadd% = ((x% + 80) * 2)ããa& = ymod& + add%ãPOKE a&, c%ãPOKE a& + 1, c%ãPOKE a& + 320, c%ãPOKE a& + 321, c%ããNEXT x%ãymod& = ymod& + 640ãNEXT y%ããm% = m% + 1ãLOOP WHILE INKEY$ = ""ãPALETTEãSCREEN 0ãWIDTH 80ãPRINT "Plasma"ãPRINT "by Daniel Davies"ãPRINT "E-Mail :- ia53@rapid.co.uk"ãPRINT "web :- www.users.rapid.net.uk/ia53/"ãããDATA 15,15,15,16,15,15,18,15,15,19,14,14,21,14,14,22,13,13,24,13,13,25,12,12,27,12,12ãDATA 28,11,11,30,11,11,32,10,10,33,10,10,35,9,9,36,9,9,38,8,8,39,8,8,41,7,7,42,7,7ãDATA 44,6,6,45,6,6,47,5,5,49,5,5,50,4,4,52,4,4,53,3,3,55,3,3,56,2,2,58,2,2,59,1,1,61,1,1ãDATA 63,0,0,63,1,0,63,3,0,63,5,0,63,7,0,63,9,0,63,11,0,63,13,0,63,15,0,63,17,0,63,19,0ãDATA 63,21,0,63,23,0,63,25,0,63,27,0,63,29,0,63,31,0,63,33,0,63,35,0,63,37,0,63,39,0ãDATA 63,41,0,63,43,0,63,45,0,63,47,0,63,49,0,63,51,0,63,53,0,63,55,0,63,57,0,63,59,0ãDATA 63,61,0,63,63,0,63,63,1,63,63,3,63,63,5,63,63,7,63,63,9,63,63,11,63,63,13,63,63,15ãDATA 63,63,17,63,63,19,63,63,21,63,63,23,63,63,25,63,63,27,63,63,29,63,63,31,63,63,33ãDATA 63,63,35,63,63,37,63,63,39,63,63,41,63,63,43,63,63,45,63,63,47,63,63,49,63,63,51ãDATA 63,63,53,63,63,55,63,63,57,63,63,59,63,63,61,63,63,63,63,63,63,63,62,62,63,62,61ãDATA 63,61,60,63,61,59,63,60,58,63,60,57,63,59,56,63,59,55,63,58,54,63,58,53,63,57,52ãDATA 63,57,51,63,56,50,63,56,49,63,55,48,63,55,47,63,54,46,63,54,45,63,53,44,63,53,43ãDATA 63,52,42,63,52,41,63,51,40,63,51,39,63,50,38,63,50,37,63,49,36,63,49,35,63,48,34ãDATA 63,48,33,63,47,32,63,46,31,63,46,30,63,45,29,63,45,28,63,44,27,63,44,26,63,43,25ãDATA 63,43,24,63,42,23,63,42,22,63,41,21,63,41,20,63,40,19,63,40,18,63,39,17,63,39,16ãDATA 63,38,15,63,38,14,63,37,13,63,37,12,63,36,11,63,36,10,63,35,9,63,35,8,63,34,7ãDATA 63,34,6,63,33,5,63,33,4,63,32,3,63,32,2,63,31,1,63,30,0,63,30,0,63,29,0,63,28,0ãDATA 63,27,0,63,26,0,63,25,0,63,24,0,63,23,0,63,22,0,63,21,0,63,20,0,63,19,0,63,18,0ãDATA 63,17,0,63,16,0,63,15,0,63,15,0,63,14,0,63,13,0,63,12,0,63,11,0,63,10,0,63,9,0ãDATA 63,8,0,63,7,0,63,6,0,63,5,0,63,4,0,63,3,0,63,2,0,63,1,0,63,0,0,63,0,0,62,0,0ãDATA 61,0,0,61,0,0,60,0,0,59,0,0,58,0,0,58,0,0,57,0,0,56,0,0,56,0,0,55,0,0,54,0,0ãDATA 53,0,0,53,0,0,52,0,0,51,0,0,51,0,0,50,0,0,49,0,0,48,0,0,48,0,0,47,0,0,46,0,0ãDATA 46,0,0,45,0,0,44,0,0,43,0,0,43,0,0,42,0,0,41,0,0,40,0,0,40,0,0,39,1,1,38,1,1ãDATA 37,2,2,36,2,2,35,3,3,35,3,3,34,4,4,33,4,4,32,5,5,31,5,5,30,6,6,30,6,6,29,7,7ãDATA 28,7,7,27,8,8,26,8,8,25,9,9,25,9,9,24,10,10,23,10,10,22,11,11,21,11,11,20,12,12ãDATA 20,12,12,19,13,13,18,13,13,17,14,14,16,14,14,15,15,15,15,15,15,15,15,15ãDaniel Davies SMOOTH FADER ia53@rapid.co.uk 08-09-98 (03:32) QB, QBasic, PDS 75 2095 FADE.BAS 'Smooth Faderã'Daniel Daviesã'E-Mail :- ia53@rapid.co.ukã'web :- www.users.rapid.net.uk/ia53/ãã'better than any other faders I've come across in QBã'makes it so that all colours hit black at the same time,ã'the sample image isn't really a good example,ã'but on more complex images the effect is very noticableã'if you use any of this in your programs please give me creditããDECLARE SUB fade ()ãSCREEN 13ããDIM SHARED r(255) AS INTEGER, g(255) AS INTEGER, b(255) AS INTEGERãDIM SHARED r2(255) AS SINGLE, g2(255) AS SINGLE, b2(255) AS SINGLEãDIM SHARED rinc(255) AS SINGLE, ginc(255) AS SINGLE, binc(255) AS SINGLEããFOR x% = 0 TO 319: LINE (x%, 0)-(x%, 199), x%: NEXT x%ãLOCATE 1, 1: PRINT "normal fade"ãFOR tmp% = 0 TO 63: FOR tmp1% = 0 TO 255ãOUT &H3C7, tmp1%: r% = INP(&H3C9): g% = INP(&H3C9): b% = INP(&H3C9)ãIF r% > 0 THEN r% = r% - 1ãIF g% > 0 THEN g% = g% - 1ãIF b% > 0 THEN b% = b% - 1ãOUT 968, tmp1%: OUT 969, r%: OUT 969, g%: OUT 969, b%ãNEXT tmp1%: WAIT &H3DA, 8: NEXT tmp%ãBEEPããFOR x% = 0 TO 319: LINE (x%, 0)-(x%, 199), x%: NEXT x%ãLOCATE 1, 1: PRINT "Smooth fade"ããPALETTEããfadeãBEEPãSLEEPãPALETTEãã'Smooth Faderã'Daniel Daviesã'E-Mail :- ia53@rapid.co.ukã'web :- www.users.rapid.net.uk/ia53/ã'if you use any of this in your programs please give me creditãSUB fadeããstages% = 48 'this is how many stages the fade goes throughã ããOUT 968, 0ãFOR count% = 0 TO 255ã 'read in palette valuesãr% = INP(969): g% = INP(969): b% = INP(969)ãr(count%) = r%: g(count%) = g%: b(count%) = b%ãr2(count%) = r%: g2(count%) = g%: b2(count%) = b%ãrinc(count%) = r% / stages%ãginc(count%) = g% / stages%ãbinc(count%) = b% / stages%ãNEXT count%ããFOR count% = 0 TO stages% - 1ãFOR tmp% = 0 TO 255ãr2(tmp%) = r2(tmp%) - rinc(tmp%)ãg2(tmp%) = g2(tmp%) - ginc(tmp%)ãb2(tmp%) = b2(tmp%) - binc(tmp%)ãr(tmp%) = r2(tmp%)ãg(tmp%) = g2(tmp%)ãb(tmp%) = b2(tmp%)ãNEXT tmp%ããOUT 968, 0: FOR setpal% = 0 TO 255ãOUT 969, r(setpal%): OUT 969, g(setpal%): OUT 969, b(setpal%)ãNEXT setpal%: WAIT &H3DA, 8ãNEXT count%ãEND SUBãDaniel Davies DOT MORPHED FRACTAL FERN ia53@rapid.co.uk 08-09-98 (03:32) QB, QBasic, PDS 391 9887 IFSDOT.BAS 'IFS dotmorphã'By Daniel Daviesã'E-Mail Me at ia53@rapid.co.ukã'or visit my web site at www.users.rapid.net.uk/ia53/ã'if you use any of this please give me some credit.ããDECLARE FUNCTION GetPixel% (x%, y%, Page%)ãDECLARE SUB xcls (Page%)ãDECLARE SUB showpage (Page%)ãDECLARE SUB Set320x240mode ()ãDECLARE SUB putpixel (x%, y%, Culler%, Page%)ãDECLARE SUB fade ()ããTYPE vertex '3d point co-ordinateã x AS SINGLEã y AS SINGLEã z AS SINGLEãEND TYPEããTYPE pixel '2d point co-ordinateã x AS SINGLEã y AS SINGLEãEND TYPEãããCOMMON SHARED sine()ãCOMMON SHARED cosine()ããCONST pi = 3.141593ããDIM SHARED sine(0 TO 360)ãDIM SHARED cosine(0 TO 360)ããFOR t% = 0 TO 360ã sine(t%) = SIN(t% * (pi / 180))ã cosine(t%) = COS(t% * (pi / 180))ãNEXT t%ãã DIM BitMask%(7)ã FOR Bit% = 0 TO 7: BitMask%(Bit%) = 2 ^ Bit%: NEXTãããtext$ = LTRIM$(RTRIM$(COMMAND$))ãIF LEN(text$) = 0 THEN points% = 4000 ELSE points% = VAL(text$)ãframes% = 50ãããDIM SHARED R(255) AS INTEGER, G(255) AS INTEGER, B(255) AS INTEGERãDIM SHARED r2(255) AS SINGLE, g2(255) AS SINGLE, b2(255) AS SINGLEãDIM SHARED rinc(255) AS SINGLE, ginc(255) AS SINGLE, binc(255) AS SINGLEãããDIM SHARED start(points%) AS pixel 'start of animationãDIM SHARED dots(points%) AS pixelããDIM SHARED objectv(points%) AS pixel 'VISIBLE FRAMEãDIM SHARED increment(points%) AS pixel 'AMOUNT TO ALTER VISIBLE FRAMEã 'BY EACH FRAMEããRANDOMIZE TIMERã ã FOR z& = 1 TO points%ã R = RNDãã IF (R <= .18) THENã a = .352: B = .355: C = -.355: D = .352: E = .354: F = .5ã ELSEIF R > .18 AND R <= .46 THENã a = .353: B = -.354: C = .354: D = .353: E = .288: F = .153ã ELSEIF R > .46 AND R <= .74 THENã a = .5: B = 0: C = 0: D = .5: E = .25: F = .462ã ELSEIF R > .74 AND R <= .95 THENã a = .502: B = -.002: C = .002: D = .588: E = .25: F = .105ã ELSEã a = .004: B = 0: C = 0: D = .578: E = .501: F = .06ã END IFã NEWX = (a * x) + (B * y) + Eã NEWY = (C * x) + (D * y) + Fã x = NEWXã y = NEWYã dots(z&).x = (x * 300) MOD 320ã dots(z&).y = (200 - (y * 200)) * 1.2ã ã NEXT z&ããã'GENERATE THE INITAL RANDOM DOTS, AND THE FERN IT MORPHS TOã FOR z& = 1 TO points%ã R = RNDãã IF (R <= .01) THENã a = 0: B = 0: C = 0: D = .16: E = 0: F = 0ã ELSEIF R > .01 AND R <= .86 THENã a = .85: B = .04: C = -.04: D = .85: E = 0: F = 1.6ã ELSEIF R > .86 AND R <= .93 THENã a = .2: B = -.26: C = .23: D = .22: E = 0: F = 1.6ã ELSEã a = -.15: B = .28: C = .26: D = .24: E = 0: F = .44ã END IFã NEWX = (a * x) + (B * y) + Eã NEWY = (C * x) + (D * y) + Fã x = NEWXã y = NEWYã start(z&).x = (x + 4) * 32ã start(z&).y = (200 - (y * 20)) * 1.2ã ã objectv(z&).x = dots(z&).xã objectv(z&).y = dots(z&).yã increment(z&).x = (dots(z&).x - start(z&).x) / frames%ã increment(z&).y = (dots(z&).y - start(z&).y) / frames%ã NEXT z&ããvp% = 0ãap% = 1ãSCREEN 13ãSet320x240modeãããFOR SETPAL% = 1 TO 32ãOUT 968, SETPAL%ãOUT 969, (32 + SETPAL%) / 3ãOUT 969, (32 + SETPAL%) / 2ãOUT 969, 31 + SETPAL%ãOUT 968, SETPAL% + 32ãOUT 969, (64 - SETPAL%) / 3ãOUT 969, (64 - SETPAL%) / 2ãOUT 969, 64 - SETPAL%ããããNEXT SETPAL%ãããWAIT &H3DA, 8ãshowpage vp%ãã'do the dotmorphãFOR a% = 1 TO frames%ãFOR B% = 1 TO points%ãputpixel INT(objectv(B%).x), INT(objectv(B%).y), (B% MOD 63) + 1, ap%ãobjectv(B%).x = objectv(B%).x - increment(B%).xãobjectv(B%).y = objectv(B%).y - increment(B%).yãNEXT B%ããSWAP ap%, vp%ãWAIT &H3DA, 8ãshowpage vp%ãxcls ap%ãIF INKEY$ <> "" THEN GOTO ENDing:ãNEXT a%ããDOãRANDOMIZE TIMERãst# = TIMERã'calculate the dragonã x = 0ã y = 0ã FOR z& = 1 TO points%ã R = RNDã IF (R <= .212527) THENã a = .088272: B = .520988: C = -.463889#: D = -.377778ã E = .78536: F = 8.095795ã ELSEã a = .824074: B = .281482: C = -.212346: D = .864198ã E = -1.88229#: F = -.110607ã END IFã NEWX = (a * x) + (B * y) + Eã NEWY = (C * x) + (D * y) + Fã x = NEWXã y = NEWYã vx = ((x + 4) * 23) + 75ã vy = (180 - (y * 18)) * 1.2ãã objectv(z&).x = start(z&).xã objectv(z&).y = start(z&).yã increment(z&).x = (vx - start(z&).x) / frames%ã increment(z&).y = (vy - start(z&).y) / frames%ã start(z&).x = vxã start(z&).y = vyãNEXT z&ãDO: LOOP UNTIL TIMER - st# >= .5ããFOR a% = 1 TO frames%ãFOR B% = 1 TO points%ãputpixel INT(objectv(B%).x), INT(objectv(B%).y), (B% MOD 63) + 1, ap%ãobjectv(B%).x = objectv(B%).x + increment(B%).xãobjectv(B%).y = objectv(B%).y + increment(B%).yããNEXT B%ããSWAP ap%, vp%ãWAIT &H3DA, 8ãshowpage vp%ãxcls ap%ããIF INKEY$ <> "" THEN GOTO ENDing:ãIF INKEY$ <> "" THEN GOTO ENDing:ãNEXT a%ãããst# = TIMERãFOR z& = 1 TO points%ã increment(z&).x = (dots(z&).x - start(z&).x) / frames%ã increment(z&).y = (dots(z&).y - start(z&).y) / frames%ã objectv(z&).x = start(z&).xã objectv(z&).y = start(z&).yãNEXT z&ãDO: LOOP UNTIL TIMER - st# >= .5ãããFOR a% = 1 TO frames%ãFOR B% = 1 TO points%ãputpixel INT(objectv(B%).x), INT(objectv(B%).y), (B% MOD 63) + 1, ap%ãobjectv(B%).x = objectv(B%).x + increment(B%).xãobjectv(B%).y = objectv(B%).y + increment(B%).yãNEXT B%ãSWAP ap%, vp%ãWAIT &H3DA, 8ãshowpage vp%ãxcls ap%ãIF INKEY$ <> "" THEN GOTO ENDing:ãIF INKEY$ <> "" THEN GOTO ENDing:ãNEXT a%ããst# = TIMERããã FOR z& = 1 TO points%ã R = RNDãã IF (R <= .01) THENã a = 0: B = 0: C = 0: D = .16: E = 0: F = 0ã ELSEIF R > .01 AND R <= .86 THENã a = .85: B = .04: C = -.04: D = .85: E = 0: F = 1.6ã ELSEIF R > .86 AND R <= .93 THENã a = .2: B = -.26: C = .23: D = .22: E = 0: F = 1.6ã ELSEã a = -.15: B = .28: C = .26: D = .24: E = 0: F = .44ã END IFã NEWX = (a * x) + (B * y) + Eã NEWY = (C * x) + (D * y) + Fã x = NEWXã y = NEWYã vx = (x + 4) * 32ã vy = (200 - (y * 20)) * 1.2ã ã objectv(z&).x = dots(z&).xã objectv(z&).y = dots(z&).yã increment(z&).x = (vx - dots(z&).x) / frames%ã increment(z&).y = (vy - dots(z&).y) / frames%ã start(z&).x = vxã start(z&).y = vyã NEXT z&ãDO: LOOP UNTIL TIMER - st# >= .5ããFOR a% = 1 TO frames%ãFOR B% = 1 TO points%ãputpixel INT(objectv(B%).x), INT(objectv(B%).y), (B% MOD 32) + 1, ap%ãobjectv(B%).x = objectv(B%).x + increment(B%).xãobjectv(B%).y = objectv(B%).y + increment(B%).yãNEXT B%ãSWAP ap%, vp%ãWAIT &H3DA, 8ãshowpage vp%ãxcls ap%ãIF INKEY$ <> "" THEN GOTO ENDing:ãNEXT a%ããLOOPãENDing:ãfadeãSCREEN 13ãSCREEN 0ãWIDTH 80ããPRINT " ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"ãPRINT " ³ARCLIGHTS FRACTAL DOTMORPH³"ãPRINT " ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"ãPRINT ""ãPRINT "E-MAIL :- ia53@rapid.co.uk"ãPRINT "WWW :- www.users.rapid.net.uk/ia53"ãPRINTããSUB fadeããstages% = 48 'this is how many stages the fade goes throughã ããOUT 968, 0ãFOR count% = 0 TO 255ã 'read in palette valuesãR% = INP(969): G% = INP(969): B% = INP(969)ãR(count%) = R%: G(count%) = G%: B(count%) = B%ãr2(count%) = R%: g2(count%) = G%: b2(count%) = B%ãrinc(count%) = R% / stages%ãginc(count%) = G% / stages%ãbinc(count%) = B% / stages%ãNEXT count%ããFOR count% = 0 TO stages% - 1ãFOR tmp% = 0 TO 255ãr2(tmp%) = r2(tmp%) - rinc(tmp%)ãg2(tmp%) = g2(tmp%) - ginc(tmp%)ãb2(tmp%) = b2(tmp%) - binc(tmp%)ãR(tmp%) = r2(tmp%)ãG(tmp%) = g2(tmp%)ãB(tmp%) = b2(tmp%)ãNEXT tmp%ããOUT 968, 0: FOR SETPAL% = 0 TO 255ãOUT 969, R(SETPAL%): OUT 969, G(SETPAL%): OUT 969, B(SETPAL%)ãNEXT SETPAL%: WAIT &H3DA, 8ãNEXT count%ããEND SUBãã FUNCTION GetPixel% (x%, y%, Page%)ã SELECT CASE Page%ã CASE 0: VidSegment% = &HA000ã CASE 1: VidSegment% = &HA4F0ã CASE 2: VidSegment% = &HA9E0ã CASE ELSE: ERROR 5ã END SELECTã OUT &H3CE, 4: OUT &H3CF, x% AND 3ã DEF SEG = VidSegment%ã GetPixel% = PEEK((y% * 80) + (x% \ 4))ã END FUNCTIONãã SUB putpixel (x%, y%, Culler%, Page%)ã SHARED BitMask%()ã SELECT CASE Page%ã CASE 0: VidSegment% = &HA000ã CASE 1: VidSegment% = &HA4F0ã CASE 2: VidSegment% = &HA9E0ã CASE ELSE: ERROR 5ã END SELECTã OUT &H3C4, 2: OUT &H3C5, BitMask%(x% AND 3)ã DEF SEG = VidSegment%ã POKE (y% * 80) + (x% \ 4), Culler%ã END SUBãã SUB Set320x240modeã 'begin with standard 320x200x256 modeã SCREEN 13ã 'disable "chain4" modeã OUT &H3C4, &H4: OUT &H3C5, &H6ã 'enable writes to all four planesã OUT &H3C4, &H2: OUT &H3C5, &HFã 'clear video memoryã CLSã 'synchronous reset while switching clocksã OUT &H3C4, 0: OUT &H3C5, &H1ã 'select 25 Mhz dot clock and 60 hz scanning rateã OUT &H3C2, &HE3ã 'restart the sequencerã OUT &H3C4, 0: OUT &H3C5, &H3ã 'to reprogram the CRT controller,ã 'remove write protect from the registersã OUT &H3D4, &H11: OUT &H3D5, INP(&H3D5) AND &H7Fã OUT &H3D4, &H6: OUT &H3D5, &HD 'total vertical pixelsã OUT &H3D4, &H7: OUT &H3D5, &H3E 'overflowã OUT &H3D4, &H9: OUT &H3D5, &H41 'turn off double double-scanã OUT &H3D4, &H10: OUT &H3D5, &HEA 'vertical sync startã OUT &H3D4, &H11: OUT &H3D5, &HAC 'vertical sync end, reprotect registersã OUT &H3D4, &H12: OUT &H3D5, &HDF 'vertical pixels displayedã OUT &H3D4, &H14: OUT &H3D5, 0 'turn off dword modeã OUT &H3D4, &H15: OUT &H3D5, &HE7 'vertical blank startã OUT &H3D4, &H16: OUT &H3D5, &H6 'vertical blank endã OUT &H3D4, &H17: OUT &H3D5, &HE3 'turn on byte modeã END SUBãã SUB showpage (Page%)ã SELECT CASE Page%ã CASE 0: OUT &H3D4, &HC: OUT &H3D5, 0ã CASE 1: OUT &H3D4, &HC: OUT &H3D5, &H4Fã CASE 2: OUT &H3D4, &HC: OUT &H3D5, &H9Eã CASE ELSE: ERROR 5 'illegal function callã END SELECTã END SUBãã SUB xcls (Page%)ã SELECT CASE Page%ã CASE 0: VidSegment% = &HA000ã CASE 1: VidSegment% = &HA4F0ã CASE 2: VidSegment% = &HA9E0ã CASE ELSE: ERROR 5ã END SELECTã OUT &H3C4, &H2: OUT &H3C5, &HFã DEF SEG = VidSegment%ã FOR Address% = 0 TO 19199: POKE Address%, 0: NEXTã END SUBããAndrew S. Gibson IMPROVED REALTIME PLASMA zapf_dingbat@juno.com 08-04-98 (08:37) QB, PDS 313 12705 QBFPLAS.BAS '--------------------------------ã' QBFPLAS.BAS for QuickBASIC 4.5ã'--------------------------------ã' Realtime plasma by T.C.P. of DiABOLiC FORCE This source is PD. If youã' use it, credit me. Turbo Pascal -> Power Basic: Dieter Folgerã' Power Basic -> QuickBASIC 4.5: Zapf DingBatã' Requires the Bit Manipulators Library by:ã' Written By: Luis Espinoza (in quicklib form) it's included.ã' Keys:ã' F1 - change direction of flowã' F2 - change the Plasma table sub type generationã' F3 - Increase the Plasma shift speed.ã' F4 - Decrease the Plasma shift speed.ã' F5 - Increase the Plasma shift Influence.ã' F6 - Decrease the Plasma shift Influence.ã' F7 - Change the Main Plasma type.ã' N - Change the palette. I - Invert the palette.ã' P - Start the palette slider. B - make the palette flow backwards.ã' T - Make a new Plasma table. Alt+D - Debug info.ã'-----------------------------------------------ãDEFINT A-ZãDECLARE FUNCTION LSHIFT% (BYVAL Byte%, BYVAL Bit%) 'Shift LeftãDECLARE FUNCTION RSHIFT% (BYVAL Byte%, BYVAL Bit%) 'Shift RightãDECLARE FUNCTION READBIT% (BYVAL Byte%, BYVAL Bit%) 'Read Bit in ByteãDECLARE FUNCTION RESETBIT% (BYVAL Byte%, BYVAL Bit%) 'Reset Bit in Byte (0)ãDECLARE FUNCTION SETBIT% (BYVAL Byte%, BYVAL Bit%) 'Set Bit in Byte (1)ãDECLARE FUNCTION TOGGLEBIT% (BYVAL Byte%, BYVAL Bit%) 'Toggle BitãDECLARE FUNCTION BAND% (BYVAL Byte1%, BYVAL Byte2%) 'Binary AndãDECLARE FUNCTION BOR% (BYVAL Byte1%, BYVAL Byte2%) 'Binary OrãDECLARE FUNCTION BXOR% (BYVAL Byte1%, BYVAL Byte2%) 'Binary XorãDECLARE FUNCTION BOC% (BYVAL Byte1%) 'Ones ComplimentãDECLARE SUB DBG ()ãDECLARE SUB InitSetMode ()ãDECLARE SUB InitPalset ()ãDECLARE SUB MakePal ()ãDECLARE SUB MakeTable ()ãDECLARE SUB PalGet (c%, r%, g%, b%)ãDECLARE SUB PalSet (c%, r%, g%, b%)ãDECLARE SUB PokeInteger (Addr%, Word%)ãDECLARE SUB PokeWord (BYVAL Segment, BYVAL Address, BYVAL Value) 'external libraryããCONST TRUE = -1, FALSE = 0, Original = TRUE, NEW = FALSEãCONST PI# = 3.14159265358979# 'higher resolution than Dieter Folger's defã'function keys constants, yes F11Key$ & F12Key$ are trapped by INKEY$ãCONST F1Key$ = ";", F2Key$ = "<", F3Key$ = "=", F4Key$ = ">", F5Key$ = "?"ãCONST F6Key$ = "@", F7Key$ = "A", F8Key$ = "B", F9Key$ = "C", F10Key$ = "D"ãCONST F11Key$ = "…", F12Key$ = "†", AltD$ = " "ããDIM SHARED Stab1(-511 TO 511), Stab2(-511 TO 511), AsynchronousãDIM SHARED direction, Influence, Speed, Backwards, PalSlide, I1, j1ãDIM SHARED PlasmaTypeãã'Seed the psuedo-random number generator with the current time.ãDEF SEG = &H40ãNewSeed& = PEEK(&H6C) + PEEK(&H6D) * 256& + PEEK(&H6E) * 65536ãDEF SEGãNewSeed# = NewSeed& * 64& ^ 4& ' convert to huge integerãRANDOMIZE NewSeed#ã ãSCREEN 13 ' VGA Mode 320x200ãOUT &H3D4, 9: OUT &H3D5, 3 'change to 320x100 modeããI1 = CINT(RND * 511) 'starting influenceãj1 = CINT(RND * 511) 'starting speedãdirection = Original: Influence = CINT(RND * 15): Speed = CINT(RND * 15)ãAsynchronous = FALSE: Backwards = FALSE: PalSlide = FALSE: PlasmaType = 0ããMakePalãMakeTableãSLEEP 1: CLSãDOãã K$ = UCASE$(INKEY$)ãã IF direction = Original THENã I1 = I1 + Influence ' i1 and j1 influence, originalã j1 = j1 - Speed ' speed of plasmaã IF I1 >= 511 THEN I1 = -511ã IF j1 <= -511 THEN j1 = 511ã ELSEã I1 = I1 - Influence ' i1 and j1 influence, otherã j1 = j1 + Speed ' speed of plasmaã IF I1 <= -511 THEN I1 = 511ã IF j1 >= 511 THEN j1 = -511ã END IFã ã IF Debug = TRUE THEN 'show stats, slows down plasma ? >:}ã DBGã END IFã ã FOR y = 9 TO 89 ' 9 -> 89 pixels verticalã i2 = Stab1((y + I1) MOD 255)ã j2 = Stab1(ABS(j1))ã FOR x = 10 TO 149 ' 10 -> 149 pixels horizontalã c1 = x - i2: c2 = y - j2' get colorã IF c1 < -511 THEN c1 = -511 'prevent underflowã IF c1 > 511 THEN c1 = 511 'prevent overflowã IF c2 < -511 THEN c2 = -511 'prevent underflowã IF c2 > 511 THEN c2 = 511 'prevent overflowã c = Stab1(c1) + Stab2(c2)ã y8 = y: y6 = y: x1 = xã y9 = LSHIFT%(y8, 8): y10 = LSHIFT%(y6, 6): x7 = LSHIFT%(x1, 1)ã Address = y9 + y10 + x7 ' get pixel offsetã PokeWord &HA000, Address, c ' This is fast !ã PokeWord &HA000, Address + 1, c ' write 2nd pixel >8)ã NEXT xã NEXT yãã SELECT CASE RIGHT$(K$, 1)ã CASE AltD$: Debug = NOT Debugã IF Debug = FALSE THEN CLSã CASE F1Key$: direction = NOT direction 'alter directionã CASE F2Key$: Asynchronous = NOT Asynchronous 'change table generator sub typeã CASE F3Key$: Speed = Speed + 1 'more speedã IF Speed >= 15 THEN Speed = 15ã CASE F4Key$: Speed = Speed - 1 'less speedã IF Speed <= 0 THEN Speed = 0ã CASE F5Key$: Influence = Influence + 1 'more influenceã IF Influence >= 15 THEN Influence = 15ã CASE F6Key$: Influence = Influence - 1 'less influenceã IF Influence <= 0 THEN Influence = 0ã CASE F7Key$: PlasmaType = PlasmaType + 1 'change table generator main typeã IF PlasmaType > 2 THEN PlasmaType = 0ã LOCATE 1, 1: PRINT STRING$(40, 32);ã LOCATE 1, 1: PRINT "Plasma type:"; STR$(PlasmaType) + AltD$ + "Sub type:";ã IF Asynchronous = FALSE THENã PRINT AltD$ + "0";ã ELSEã PRINT AltD$ + "1";ã END IFã SLEEP 1: LOCATE 1, 1: PRINT STRING$(40, 32);ã CASE CHR$(66) 'set direction of palette sliding,ã 'Backwards = FALSE - forward rotationã 'Backwards = TRUE - backward rotationã Backwards = NOT Backwardsã 'write colors again to prevent replicative fadingã FOR ColorWrite = 0 TO 255ã PalGet ColorWrite, rd%, gn%, be%ã PalSet ColorWrite, rd%, gn%, be%ã NEXT ColorWriteã CASE CHR$(73) 'Invert Paletteã FOR IPal = 0 TO 255ã PalGet IPal, rd%, gn%, be%ã PalSet IPal, NOT rd%, NOT gn%, NOT be%ã NEXT IPalã CASE CHR$(78) 'new Paletteã MakePalã CASE CHR$(80): PalSlide = NOT PalSlide 'Palette sliding onã CASE CHR$(84) 'new SIN/COS tableã MakeTableã SLEEP 1: CLSã END SELECTã ã 'do palette sliding if enabledã IF PalSlide = TRUE THEN GOSUB MovePaletteããLOOP UNTIL K$ = CHR$(27)ãSCREEN 0, 1 ' back to text modeãENDããMovePalette:ãIF Backwards = FALSE THENã PalGet 0, ored1%, ogrn1%, oblu1%ã FOR T% = 0 TO 254 'This loop rotates the palette outward (forward).ã PalGet T% + 1, red%, grn%, blu%ã PalSet T%, red%, grn%, blu%ã NEXT T%ã PalSet 255, ored1%, ogrn1%, oblu1%ãELSEã PalGet 255, ored%, ogrn%, oblu%ã FOR T% = 254 TO 0 STEP -1 'This loop rotates the palette inward (Backward).ã PalGet T%, red%, grn%, blu%ã PalSet T% + 1, red%, grn%, blu%ã NEXTã PalSet 0, ored%, ogrn%, oblu%ãEND IFãRETURNããSUB DBGãLOCATE 1, 1: PRINT STRING$(40, 32); : LOCATE 1, 1: PRINT "D: ";ãIF direction = Original THEN PRINT "Fwd"; ELSE PRINT "Bwd";ãPRINT AltD$ + "Spd:" + STR$(Speed) + AltD$; "Inf:" + STR$(Influence) + AltD$;ãPRINT "i1:" + STR$(I1) + AltD$ + "j1:" + STR$(j1);ãLOCATE 2, 1: PRINT "A"; : LOCATE 3, 1: PRINT "s"; : LOCATE 4, 1: PRINT "y"; : LOCATE 5, 1: PRINT "n";ãLOCATE 6, 1: PRINT "c"; : LOCATE 7, 1: PRINT "-"; : LOCATE 2, 2: PRINT "P"; : LOCATE 3, 2: PRINT "S";ãLOCATE 4, 2: PRINT "l"; : LOCATE 5, 2: PRINT "i"; : LOCATE 6, 2: PRINT "d"; : LOCATE 7, 2: PRINT "-";ãIF Asynchronous = FALSE THENã LOCATE 8, 1: PRINT "N"; : LOCATE 9, 1: PRINT "o"; : LOCATE 10, 1: PRINT AltD$;ãELSEã LOCATE 8, 1: PRINT "Y"; : LOCATE 9, 1: PRINT "e"; : LOCATE 10, 1: PRINT "s";ãEND IFãIF PalSlide = FALSE THENã LOCATE 8, 2: PRINT "N"; : LOCATE 9, 2: PRINT "o"; : LOCATE 10, 2: PRINT AltD$;ãELSEã LOCATE 8, 2: PRINT "Y"; : LOCATE 9, 2: PRINT "e"; : LOCATE 10, 2: PRINT "s";ãEND IFãLOCATE 2, 39: PRINT "P"; : LOCATE 3, 39: PRINT "S"; : LOCATE 4, 39: PRINT "L";ãLOCATE 5, 39: PRINT "D"; : LOCATE 6, 39: PRINT "i"; : LOCATE 7, 39: PRINT "r";ãLOCATE 8, 39: PRINT "-"; : LOCATE 10, 39: : PRINT "w"; : LOCATE 11, 39: PRINT "d";ãIF Backwards = FALSE THENã LOCATE 9, 39: PRINT "F";ãELSEã LOCATE 9, 39: PRINT "B";ãEND IFãEND SUBããSUB MakePalãHalf = CINT(RND * 127) * 2: Full = CINT(RND * 254) * 2ãFOR x = 0 TO 255 ' set paletteã x3 = x: x2 = x: x1 = xã x4 = RSHIFT%(x3, 3): x5 = RSHIFT%(x2, 2): x6 = RSHIFT%(x1, 1)ã PalSet x, x4, x, x * 2ã PalSet Half - x, x4, x, xã PalSet Half + x, x, x5, x6 \ 3ã PalSet Full - x, x, x5, x6 \ 3ãNEXTãEND SUBããSUB MakeTableãCLS : LOCATE 1, 1: PRINT "Making new Table..."ãSELECT CASE PlasmaTypeã CASE 0 'normal varies from lake to twisty taffy, originalã PRINT "Normal varies from lake to twisty taffy,"ã IF Asynchronous = FALSE THENã PRINT "original standard symmetry. "; : PRINT "(SIN/COS)"ã Half = CINT(RND * 255) 'standard symmetryã FOR x = -511 TO 511 ' make tableã Stab1(x) = SIN(2 * PI# * x / 255) * Half '128, used to be thatã Stab2(x) = COS(2 * PI# * x / 255) * Halfã NEXT xã ELSEã PRINT "original standard asymmetry. "; : PRINT "(SIN/COS)"ã Half1 = CINT(RND * 255): Half2 = CINT(RND * 255) 'standard asymmetryã FOR x = -511 TO 511 ' make tableã Stab1(x) = SIN(2 * PI# * x / 255) * Half1 '128, used to be thatã Stab2(x) = COS(2 * PI# * x / 255) * Half2ã NEXT xã END IFã CASE 1 'striated using ATN/COSã PRINT "Multi-striated, ";ã IF Asynchronous = FALSE THENã PRINT "symmetry. "; : PRINT "(Curvy)"; : PRINT "(ATN/COS)";ã PRINT "Scenery changes."ã Half = CINT(RND * 255) 'striated symmetryã FOR x = -511 TO 511 'make tableã Stab1(x) = ATN(2 * PI# * x / 255) * Half '128, used to be thatã Stab2(x) = COS(2 * PI# * x / 255) * Halfã NEXT xã ELSEã PRINT "asymmetry. "; : PRINT "(Curvy)"; : PRINT "(ATN/COS)";ã PRINT "Scenery changes."ã Half1 = CINT(RND * 255): Half2 = CINT(RND * 255) 'striated asymmetryã FOR x = -511 TO 511 ' make tableã Stab1(x) = ATN(2 * PI# * x / 255) * Half1 '128, used to be thatã Stab2(x) = COS(2 * PI# * x / 255) * Half2ã NEXT xã END IFã CASE 2 'striated using ATN/SINã PRINT "Land & Horizon ";ã IF Asynchronous = FALSE THENã PRINT "symmetry. "; : PRINT "(Curvy)"; : PRINT "(ATN/SIN)";ã PRINT "Scenery changes."ã Half = CINT(RND * 255) 'striated symmetryã FOR x = -511 TO 511 'make tableã Stab1(x) = ATN(2 * PI# * x / 255) * Half '128, used to be thatã Stab2(x) = SIN(2 * PI# * x / 255) * Halfã NEXT xã ELSEã PRINT "asymmetry. "; : PRINT "(Curvy)"; : PRINT "(ATN/SIN)";ã PRINT "Scenery changes."ã Half1 = CINT(RND * 255): Half2 = CINT(RND * 255) 'striated asymmetryã FOR x = -511 TO 511 ' make tableã Stab1(x) = ATN(2 * PI# * x / 255) * Half1 '128, used to be thatã Stab2(x) = SIN(2 * PI# * x / 255) * Half2ã NEXT xã END IFã' CASE 3ã' PRINT "Land & Horizon ";ã' IF Asynchronous = FALSE THENã' PRINT "symmetry. "; : PRINT "(Curvy)"; : PRINT "(ATN/TAN)";ã' PRINT "Scenery changes.";ã' Half = CINT(RND * 255) 'striated symmetryã' FOR x = -511 TO 511 'make tableã' Stab1(x) = ATN(2 * PI# * x / Half) * Half '128, used to be thatã' Stab2(x) = TAN(2 / PI# * x / Half) * Halfã' NEXT xã' ELSEã' PRINT "asymmetry. "; : PRINT "(Curvy)"; : PRINT "(ATN/TAN)";ã' PRINT "Scenery changes.";ã' Half1 = CINT(RND * 255): Half2 = CINT(RND * 255) 'striated asymmetryã' FOR x = -511 TO 511 ' make tableã' Stab1(x) = ATN(2 * PI# * x / Half1) * Half1 '128, used to be thatã' Stab2(x) = TAN(16384 / PI# * x / Half2) * Half2ã' NEXT xã' END IFãEND SELECTãEND SUBããSUB PalGet (c%, r%, g%, b%)ãOUT &H3C7, c%: r% = INP(&H3C9): g% = INP(&H3C9): b% = INP(&H3C9)ãEND SUBããSUB PalSet (c%, r%, g%, b%)ãOUT &H3C8, c%: OUT &H3C9, r%: OUT &H3C9, g%: OUT &H3C9, b%ãEND SUBããSUB PokeInteger (Addr, Word)ã'Bytes$ = MKI$(Word)ã'First$ = LEFT$(Bytes$, 2): Second$ = RIGHT$(Bytes$, 2)ã'IF First$ = "" THEN B1 = ASC(CHR$(0)) ELSE B1 = ASC(First$)ã'IF Second$ = "" THEN B2 = ASC(CHR$(0)) ELSE B2 = ASC(Second$)ã'POKE Addr, B1: POKE Addr + 1, B2ãEND SUBãAndrew S. Gibson VESA TEXT PLASMA VIEWER zapf_dingbat@juno.com 07-28-98 (06:43) QB, PDS 2162 142959 VTP.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"VTP.ZIP",4^6:Z&=107096:?STRING$(50,177);ãU"%up()%9%'%%-%qN'uIH):\*('7%%q)%%%/%%%%ht%rufy.Sy'yDdbf>BT]5T9h'ãU"mD/-T<1:I)R35QWY)fVRKaBgGs,(QYCM/#Q#R&a+nj?NHFd0b1lE)7Jn2[&;IF<ãU"EJX#$w4+;0W,zwnS/]W.I=fM6-6AB2x5o/Hxr6]dmh0pc$o?DM9TgcoLOa+,76bãU"34k2Sd+EpO>u';6J?]JkL'i&2JM=)0RBB1(kFtIKu)/iVvP(U<>8#170lC?y;BuãU"YUHMCc_IE+qw-8SmpX.b(\mSrCW+Q>4nT^UKmEB*+>ZV+FbhsH9a/NSBX>MW=5_fR.1ãU"U>tg2BHu)iEcn[bFqVN[%UidUh>LB'OgOzeVdq-/4?2:;=c)eT[_T8]#Vb*rRGsãU"twr+pOC?*2Yht)uLnU5'p8V'5;W'C9wm5QA[b+Y,$:sKEnQ:RS94iJnk1#jGGmFãU"PSZBMmr*?_Feo=R?6F_nRK?HVss.(C[PQL;d6IHntB:I_PDIY7ruLU[,,#St6$dãU"9.s-OKV.,7J[k9\_Jv=;lQCA5A,4^AED'2pR0,7zz^eDriH^HdNb4iR^7dp:[i/ãU"*]aoA]q^a8a3*Q13[H*THi2\8FwmTFX0/zicy-'gC'y=3H_6dr+o/^r-+[=IxUv22A>7_VlbeãU"0mlvvIh8bVf]qP3]JqQE^L,syfZngPLM)&yD;T-)lBu%p()9%%'%-a%FNu:Iyku*;S#%4%e6%%%/%%ãU"(%%yu%qfxS[gfx%k'dA\s[+w(aO6h#Db'wq;$D*b=X'CKu3I/+$O4jRi\s9p1AWãU";n/WnO0GOOM>/j\(Ygm,c5Z)%&6aH0RIxãU"-gO#yH=i#mF0P:j$vgC$:qGBSs^f./ftgY?*Qw3oh*cCpRyS;w/>j:M&3/b+9a.ãU"#h_uWg'sWO=ZDek1F5:5TK%?83=[l:*8g1S#K#(x#9+K)_Res4/gTe+teeR+.o0ãU"qUgQ0s(;REg8uE['+fGf$Y\&+tnxzkãU"?pO1YlMa**v#pJ*a8g-PZ?qTNd8B*U??H2K+2'a'UOIVl$[cK+\qhl1VTbg;Q[LãU"Yu'nN_tm*:xUwtK:B=Gxp]TqjZVP#=CNEo-:?MdndN(AHhqxsiXLN&%Ur:R$0epv:wFãU"eTcX%]8+s(FZ=[JZ5mHeW7'Ag7Ry/*>8,KS4v]ENnaq2rVs#Mv=u1&QeVdg[h'eA7M2-c:(WVP3Y/X':8&Md-:N/KCLcMBkQn(8:j4L)/Xz.1.=vpZ/s3ãU"9B2(k81kA/dJ2S1gYM<)thX=e^wT.S<'h#%BiQkJD*L'7GxãU",ZVS]?25&F%q[NK10R=k3GDjBH76&&(Y]Bs6p%IoS9tZZ6>L0goQ%Zh/rSYc0j-ãU"BAyI4/&=+Oh96yAclU5QBEMw3%e3bIRxy8*<(b9LcBINdkjdUicBS*B$g/j0%7qãU"[1sm*(I)Y,i7o2KcI7F?BkS*ac1n&Pjn5NL>ZK;%wMEb(4a7Aq%f9G4]aK=HreHãU"O+B\36\du5U4f$8h<-&:^o?.uaBJa*n2.\2pmVsrvXng2H6)>,F0wL\c67q'TcSãU"e>Qhx2.^ZjMVhnNK2D]9cVJ%CnLo/jO?5g#)y2Q1^NmPYa+]8&Kvo#bNfk1pW$,ãU"pVpx78xY\W4F$fX,Pupn$^2i4E8KYE>ãU"R[GJ98Nf;Wv1ueg?a2[8ObZ2IxXYb0\VnbZ\<1N.r#waS;45>e^>u6cJv9Cs(HpãU"T7\C.(0#Q2;0VuT253m,:kcv(Q5nRFTcRu\QqYTK=<4hw_io9l/FtZFQmM2l)quãU"ga/6hgodhkIbBEvG/vUlS#1MPs0QbZb_:e1&ovUmj&Tg[[ãU"IdS>Qx7fat0U/VDpz):k\S%cZTT&)UXC?v*\3FO#$w9Iv=.h:oEd3,*,*,'bCu?2QTDB(]ZcJd49$8>/VoDhHt+tjr-V6v*h:NqMVXv>ãU"F4JwtCugVZRK>l4tZi/MMj&xlaRn%e;#QZC6x\\73tnlMQVtsO2ZGWzZa)Y8K>yãU"w^?5_G\WgG\1Y_k8ZC[9;Z>Tw.ZSJU)%r3tqb.)kb(*ChJr5>6ppm$#r%en2';VãU"5kkIQ*YJF_-F/Vl/hS4,U06ue:d)]uLTldGIl2]Xs?JwaD3_D2wC-uq81C=ãU"auVnf$6%3=-sPTLh>k.4V\#]YN5ek+IXC4\?*/oYb)FT$1R7+gmeVbO**E'djepãU"Ekb<2v(M;.*ddHe>Q^$ou/Ee.D_t7;LT>%h5/Yn'/..T4YsI_rV&PhphH#H3OllWEqH#J3QU[^paaeEyX%)CN]RCtUbz=Br7)s_dvoVz-G+#QAZOQ>;MB2ãU"&q*Q;R_(fQ;8/3\(3pV*ZSR$oZ:5Yk7-o]'G7y23kzxA+MhqpE2eS5mZ>o2uvYrãU"vtmP)kF^s:42VLIb8zSWd;#[WuoA^T_1t>L9udfAqN>SAckxovO3TãU"-BoYI])mrEZ.DdOuYdS*3A34sI_^.QFO=6A,rPJfvNqmhVn*'N)LY8hss_Z)JWMãU"lhl(QH'66k5$)be&dU*SxK/QWf;,,BH>]XK7m&vd'm*B):%^c8=M4nRZ*keTb5JãU"bg'r<5e?K8.9#6D+3xGzkL6O)+%jRjj[Rrj&JlO9LR(:.?_5P0dIFOyp(:%v2PzãU"1Y9,7>zyRhP'q1?)#:XzJ7xV=)3=S)>38k838^icutbMudvjF[Pr*fJr*LLrJv=ãU"-SXe\_DxRhP'jg?)#VXyJ7xY=S3=TS>38k:38$rcuãU"&bMultjY/epT>p(treWwnGGd&hEX7vD;?^eZFZ8xu(q8N$HER?uiu)GtO5oP4TbãU"-eba*fk$;[4L12f^+q)TR]k9ZR,b]e?FoãU"2M%LCYlZe1<6RXnlcsqgCKUR^N/kdYd]vZ)2Dmc0E^Dtm(E23Cmv,3)EhG_?hA$ãU"IO*Ad4)bue63>(5,n,92EJ$A\+qW9]dZLPJi:fQ66W%YX,w47x?-mg,KArjlt?uãU")g4?of^Pz5[0lth'K2fc]g1-Q;UCin\fk-*FkZueey+$GfnSSBkgIc8]xOIT8VnãU"&cXh5UG>Rr$;0XE))zG$gD?.b9.%#'#*]curDx0_rBlãU"a.-iV$oaL?y;i2I-;J4+7G'+q+1BN:IP73NPH8=5bCJI03K.MRaEo&:R*-tNZqcãU"jc+gG6?HYDak74;cQ74>(ax/+OlsI6BCox[^YGJ[T*%nGWtU]nãU":V^=0KTI],5aL5LE2i_jCGoS5bXXw:Ak*q\PvM0>:f(Qx+[p;0%M<5Y:r>XxãU"-UIdLaYcoh7B\[2JqmisviUDnFF(XmMDQ,BkZkPw59Y:PSU&j-0wC%'jM.Ho.FWãU"WK4P.TtX*o)-U>+'MEHUonClJOeSmrmo/QM)Z]p=h#R)iAF5[;Uo:#%YeR6:h_$ãU"2L?oe#7Fk_2C-gP1kM+Wa^Zb)%U1X,aIgi>Y)OlXncB%5J&:wW9>N\lrlK?P63;ãU"tBOf7q4XCh:)8NpUgqu6r]C/^F3z*JY%tgQq5tqt$P=T/<8%4Z.j7aX)^l*,,]FãU"g)p4C=,x\EnmpWkP%_F_2c#am%q%[R3FfQU^5L6,AIcA]Dc[S#ZqE1aWO3giG#WE]d&j5qjQcwu7\WK9&$UAge/MZkãU"P%_2_AjJ9AWtSvhG;Mw.qvkKb9Cb':)=>y+4RK?QCUZMaTvZwtm&/_.C'P.+[RxãU"sqQ?XIs0YGNRB>F?-R^K[8g[T5a2cW0$G\H7=hkZG81,Ei*<84Q,vnC?^sJVM1=ãU"pAEfI[ie[.&%/,=$pEJlCKC+&Df^n3gM3j*+%RbGKB*GY2p1A>r'Z)xe7PXW$CzãU"pmKH54u+/15+F$g0%9v$E2?+o(5X#I5IoDW'bbB%0pV-pqH3/Jt3D=l:qJG-J]oãU"r,4=\Vvq.TrmS:n85&IMYB(uNW#dW1x+f*t;eR8#t8^[1G/\dHqR:aUtN#+6xm>ãU"eSLb:7)Xri;Anv$;K=WT-?u#nxdGac*w=BDtGUW-w5qaiH[KrcfhR8qc+Cu;38^ãU"Ae9W6.fk.=]bm=KãU"dGt[$$WF\5)3fsp&V+\i6K-lH-ETrGf+w];BxmLRL__wA>&$8)ko=$,wg#^rSv?v\5p2iP>Qtv>^%9ãU"vDaQjq92^WuEh$ivV(u;F\xc6rT4r\+Z8'\IM[:8RUW_NU/mwNxT=3fZ.v.2utD%gQ5y&PUo)O6#*GUd,p;^O0<.GrPyqCT9lj3gI8h_#(SSi[Wek$eeiJj(ãU"%=;LiHbO*'fM.*HyH>ZUf%SJT4=vkN1;_(Rp9q/GX,lALuKU0F\=%Pf=p%g(GA:ãU",v;S+Ybw2i=jvo23,z?DPaXQXhr)'UE^b<;JvPwLL6=KYPiZ3Zg>eH.FJo#+g2)ãU",l.Oq'sf$8H.2RWfRCITjsc(6e?HWM(9W;:GD#JHp*ZWJ?7aomyg\OxVs#d'X&aãU"nS'\K,3I'\6JvNmMjPESu#v,kW'?kSjN;%4[ZAf'C,*jpX/V?)K'Ncs9;6;dpcCs6iwoD'C:lPn?2g&$bf>iEhrywNc<1XWZQbHvMjwNãU"JW)OedMrrrV7i29>NV3OpAck^WC?-aSBC-p_9nU=4%+yIV\*wk#'Js..H2Hp?;PãU"4YhK3%FWF<>D?&KQ;;Z.U)n*R&\-f8acI#-pl/7Mr&M$9xA++^8Q1,4%;0\%3\DãU"[Jy6to4ãU"pJR*a]$e?AvL040f9VcwrnaT,d5Hh?^q#R:l[>2UeZK\:SfJVPfm4^?V5\t9F$[ãU"40Nw\8mdt-.ED..VL5rEjXX:tl\DFLhr1H2o9g0ny2E;A>lS\*rN90AAD>W9?ãU"=Ve^BFf:=rgQk#&_T\9.wP21KR:0wiBolYgS#HUT*266W1S%pMabTG0i+Fs(WPFãU"9eRu2jIU<<(?xRXTiyXPL#&Frov7.z_6g44>'2T4fJ2b#kOZ7:jhU9c8W;b7aD+ãU"kS[#60dPH3>Y7hQR#Mqy4Wfvi^j#(P\TI9%R;p>dZ)7KI6luhILHTY$nvf)6E^eãU"O?+&2Pyh9v%0d2gwj05'_SCfzO8.&J>ng*H0Q]d#DcZ*kP^X:m;8o12q6r?nXTNãU"fePWmp\M7'3yzQ:e798Afsrk*xy=WCS0[4Wh,xIa0XLc_UIh*cR&1p?s&Yg*6CFãU"Lfu2k6(]#m'j%,.('$bE8*fy/#aPUrdãU"_a9*+M-.cdW+9$d5Fdb9ZEm9CM>FlsP*2BdZ#VuTT4>\qiJ:;x[Z,N%,K(o?N'PãU"U1w&F^cs1lBj,P-]cA1uGMdDrk1.B,SquKn;lD>xIAZ)6Znm(QC$JJCZ*7e*6I:ZS$)iJR5;#c=Z8JmFs\DãU"J//T)^q08W61w6T)?hu91SqgBH^6ss((dhdZ>A9?0ZGN/SRãU"a2FX6F4+-Wxu2%[EG#k82v(%wbSZn#R-;9kE?62Hn^Xs(P=)zULt0=pTDo9AiVeãU"T#-XGooQu[&;\?biDCeu$CeaUiiE#s7LKdmJ?SfT=a>ktX8qwK[]AzZbn]n?f/)ãU"gcm*VaVQt+OIzm7TX(Vl6f,qYOxjbX$lv]p-H4(ctLãU"%]wAH,$Nra>VqYga&pHCoA9oiNG6LK]4Pj]\XLODm-d1#/&&BxmsTf/Wod62IE+ãU"Em#SCRR(3e10Lk&b<$gPUXo&+]ak+-VhOOR&6H,o4wx3C5y.K47):fZtA&)cQ?8ãU"'X%SQ6')Kjn(h19+:pIs1o/P,M-l5>oKW3e9<#T9\\#-&49q824=:-mX5+9w6]:ãU"OJ:Dl-ooKZ91\C94(NOE(bzMGqk6N/8:k(J%Z[N9*KT./6k?*$A(*BuR>AN(/a$ãU"SOk'-_n+(BZ9W50PpDPGrP?U4Yj[7KRY3s?goUq,d>XLV_GMH9-'eK%Pp[k'$WYãU"%T;Q<4gluW;T0v3kyQhY2N/I*>,5>T&ãU"UOB:\$ZOeM];T:FC%\SK2X^%:2Ow'B/f1B'[hAv&/]umnX(=lãU";GXkv$PWT[IhSQ_mg=t7BdTZ8^D,3#9dEoBj?;Rd+$:hy4&PVjNEjqHCmx4P3h<ãU"zAY'-;i,;:4=&C:+cjRjm7Z,&;V$ONMs\S/QU(U1e[ãU"(#]4.$kT1wL;J*7SjBQ_0rb4ur',567]\YRA+,c*NZgjGl_2B:Vg5qedk)um:PRãU"*leqZPw\iQNUl3mPl2?[aji.Q9&b-t2C81C[mjr<-$P).-z$NNh=/kXkE#kD#1EãU"ZIYQV.=#LQrlRpsm3]6*[_kRdQ)O[Xvsn2DJ#2PeKLl?\,;PO$W3?NGIl]&1ãU"W+&a)JZBe75R?[41B;wT#YgQd^O+7PK0WR$XQS;X.VZGOgfy1&#NhPWBZãU"UNpw0m]kaVpR>*4An*,(^$l(<;Dq_w/8kdv6Md0Cs]G,XfZ(hrBK#'6?^MT3p)uãU"&c.%;6X=Qe'80Io6RU4Amq;N;alMv_i_ZZ8;dhBq*1+?^DRX0*D=JY1^yxYh0Q5uK551Iu8USDFãU"nI-;tSw'=2ezE-'C]i,+52A*>%$mc2G'?)4pj8'xXGo$AVvBR%Qffkd%U>:8)8P(K[]7Zm15N:=bc>h'aWOmR]aa)>fvZ9lS#njVF6Im2'?HãU"XTeqtr4FgpS40;ful7.<3.ic\'*)*YUlTT#x(o'ZMs4TPO&Z/qQu%,SVg]W4#1ãU"[_cf:%sEKFPd\G.$22_:I:S_rK7&(,[s-FxpG9ãU"3$+_-'KGhXd_rIX=u:jc:0$CdI'\+G;XE3)Va,vpat['(Tl<'g7%H=rWX:x+&3le&r6(%pU7d?Ztl[i9K/+%6^/l[$:z*GW]Sr(PkTqW/NLsWn%pAQ3pvO1T'6,Z,%u73(33.tmãU"7A8^.4Vj]FBlv+;DVx'F.8#6>3xgECjc&(4#s+Dn2F:4yXQPUJ1'fh,]G2a-*guãU"N?<,A*+N/dP%tEtaOc+Tu(4[WWRiQBXHNY%Wn1]3R$o+]2xCHEhDU5WvLbN[-WjãU"e$9k;q+(>QBHu$F>J?EPt6aBPXcrW9ATugq+xSa0Ght/7CRA*ãU"a6Q+MRc83_fJoEDpP:9:7K5$Ldty,)gumV4_ãU")8QTfBmXlc-Y]uLu(Yh9rxcIh'ugh6;\+>pj>b)Klii/;f2C,ppd*3\ãU"Lm5AQZ?sk+SZV0^Dt\;kRCDiVT].vsEB8\LDC6=l]AC,ZIQ?ãU"hjF*d%o(ST&4jd]88[gATJ$aQbeukO$&t5hkB:G#wZ'9n7\1.>mPV63[5k0fN37ãU"PI'o#lE-HZ/wz0BfB],GvXMGMp1YL,e#tjuuZIJb'InXffbx\u;Bk$=(;jãU"?g%KylkW)gjxSFM5^J*;t-1oE08,VuN>2gxDyLA8QYZ7iLc/7K#Gg&B%18ie>e=ãU"nz.y:rtO5K\[3aZO?:Whm9fWYEt[MUIWEm]&D,SX&zQ]:7&bpHkR#?aCte97SK\ãU"tr?7gbD6B-Kap(jYGHm3;WCCepBlu/M,lk)vQFi-9'*EIp3slr0G(o$U&'-sp.owe*&KpowVãU"bT'VLc9x>?v^Zq4z9ZYLs<8tH;J6,U-8x3SRz\SpI;duA53#3C1d6Dz>8GG-L)]ãU"\B+a.7/w?#\vi<,'Q44+,rJ]^)Gz#Fma,[*A'*4yTf$*L#[443Ri.(;r;G;4t+gX#vNC7xzOYB[MãU".lkh4a5Zhh<*P./EX9:m4;YD528DHiU8yF%JhdpN61?Rg.Lp)%5*RwOROw<#3D>ãU"oS%%JkIhNxt'd^TFu/)OI)gIUcLxm>eQL'_8AIHg2?-#(\9?#h&\AEem[_9X?QxãU"n:1#nq>#fs_a8RgbSd9Xk^kk[9s.REW$8/:J^Xq&l]=iW(qUGUJ_236jtf(dUG1ãU"-'lV0bf5L;NN<4CSYY)IDdfFq(+Dd#Tb\\f#uC/>$UtXucBRTx;7'0WrkEv^Fr\ãU"(TE\o.I\.=I\nc[>$IFT?HEcHdhUYJ=m3x#wTxIYQ0Q[ãU"sD$kmFTDJAjx=4,k(E46Kw]f6DN(S$AjGS#V]Z1;mYC$kTuT=t;3bx8d#46#*IKãU"ok]**#We,=U_Oy+y*bi?8_]s'o6=ntL8F#liAC_HCRnFBvhQH[QrTO,%UL5-)7&ãU"TclrujQqX9_6w3,\xjcrdYH_D.6St4)w/cU#YHbBx,_Z+'qvcQx1HShNVUsmcvXãU"$Zx$55'hGo_UAS2FmO-$s7Q%ESI0zg*)k?_/sUF)7SXs.2JW2R97=k\5N4Gj9tfãU"PG&ayQRVNI:tq,>b+x+DSx2)Yf#xsDJok8XqE#K9#_89x?Lx93H1>+st(M&Z/aYãU"CnW4o+$ZBpc7n<9Cp->m]B2NLs)7$[L]PMyEf7AV/jEqRD$*7PJZ<^gG3_uH66+ãU"FZ>xKtCW8cKgJ>G]y)t8:Ndpc(LjO#DmM[z=\>5]HV%ZYnH4:#JsSmxB4TSxw&cãU"$RjN0h>1Q1W:VOA*xIV$ki:5VQNKWqcP'Tjwu:?(X#DH)=Vc0E0ãU"Ic?^wJ'tjSV10nG/,rmog.J2U-2i6)O':&STtS2:\qu54&l4A%cBza9pYrZIaBtãU"GYkJ&o:)LVl>=A+ucF?P8bKMtGt69PuDc0rE?W71T<$9bp/+ADS)Q6zde(o=J%FãU"t/Z\C:k?ia2v6T>qUq;*tg$)nT(WIEd?T1:k)k*sc9Z:iV3Q<>+p4T$C'x:R]Egu5F6KhdhZgr&UK[-SduQ].yOgOSYãU"^&#O3wP^PjYP;IvHecI&.R')sG8+p3(tIB/$UZ/f7(TtZ%p4M_h(3]_4H\jqjm5ãU"S'kos)sCjtD%gnTINwdc2:biLZUe>=V^NEX*Srx%Fg&+x^>c>smb7G=VLbs#=>qãU"EI*wLozTGsH\9ma$F_Z%l6)%R7T^UY>n)gvFD8>uE.?=D=E,5't0d;pRphSax4eãU"1T+fN[aqEFSPH/6OBKj1g$ZS+5G]Js=\VZ'dI0:ihlAq[yKQK;TGAAN4sJFrhS_ãU"Dh*z=3Zp\w/b':Q03V5ZeW^BI0vk*R+G6DLO76_ãU"lul_spYu&$q,,.\hzmsy*TV&=&Os%bKE<[Fxncj'RFQ7Lq[eQ22k]nIrE9biUx>ãU"/BywnRllKy8tRAsBg',0gQC6*tG7Jvg]iCFkG*_R]>o4HV\;[Y)H]>+t7(eG1i7ãU"E7s_511\_rr&dBd3s,3LR'Z&TJAUM2*L6?>sIF8Z.sfc>(nYd+q]Ftx.fãU"-6XJYQja&:P0a2,q'%,.w0il0\jhaBmqP_A84k(r1iNt5_1qo9ggwT;ãU"&iR*Di,35q]%a+ZUTDmY:bUoY*;_1lES?=&OZ4G'+y/*1zG;.XZ'])K=mR6gãU">1'xw3P5AI^wE3jwucL5Ort/XoSIULprMC#.*>Bs3pBqM5KH6&<-Fi$&)t>6wq#ãU"UdE('Gy^XnWol5jYM?>YK7T*pW9qX*H/hX-a\8o$FlJJUuNãU"Mb*DB%fB-m+JGGeC/F7Sy=W\,[X^?6cE6f1CHmLãU"&b%zGF5?BQ%-rSHW7RZ$LE5jgC:T&9i.)#?awGH#Z=quglHpj4FN8^V=J$40\N]ãU",+l(5\skrC*]nyadFW^b#CBuDc/s7tgf;+ACgdjnKN(A+pIKQ4w^jNSRJ&4>BvlãU"^iXP:+fLmL_g5k_29F+a*;UhkoSS\.ceãU",SX40TPru:NLU_q8L:__Hpn$%cnL]nO#RhPm(UAhL>X74v_F:b8-=x,u%p()9%%ãU"'%-a%<#upIkXo/';L%4%nR%%%1%%%%yxy%uxyw/(S%uRna4D;C)T8rpLTW10TI&%w&?(ãU"Wxzutd(8MAAAA2BB#]CAXiq%uMY?P\B3A%]Aqi#M9otCwTgP,Xud*ledDcuMrlHãU"#d#[;WqN8]h(Qhjux7D^&A*'&Y59xL03svX5jFD?=5t'PXA))w84vGg<[h;4kNNãU"%0QXQ01ae==XP4]ufl:o>Pk,UKOQu+.^rGntMTk<.Nr0swHOSRK3<ãU"er,ZMc;$LfF)J>jHo-6JXDj$[.BTM3uRUiSik1(ãU"t6unX*rxEaKDe,u.>A*dhWum89?dUKQ$g5PAH4245D+r[?ZNp72&,JXSrV8pGP>eLs3w[fDlZ,zpãU"hNhB_V^pR-^jV0c/kTi8pa,pF]9\Ple>3d]TUPQ?;8*Mes]wA0hM6-gZZgM$0H;ãU"Am[H2C\Vi]H6:cIg0C485zn7W_XE:FKJg*mtVK0q5'AxxS#fsKMHCT87-T57'9ZãU"X(/Cfbdt#GfYk-:EdPBT,DxLuRksv*;Pszo>v-Hs9xmUC&v$\p7n1WWR*IKZW_+ãU"u>ZWvT^[%c\N^d/n%ZxPLD=M(fejTE&aBrW-^ZG_nItsf.-JpToV46<,O(N.uscãU"6wc=jXB0SJ9i>]D?Qs-bhvumqaU3QgKDQaRrt7XYvq\im=N%snct-T&O*#icSODãU",4a$1^Wk$o6jNoCRTrWEAcA(^I[,^[/Z\30Q^HrdprxvW4ndaPvOtub^ConãU"b+XrVP%X_4ddUNZ'Fj#3/r'0&zh$.BcM:UIhK=Xt5JP^KW%9/IqIXb3&nWT4t_lãU"*LFvmrmHdS0A*OiVtDnMTHd4**2#EWUaCD6agfuOV$2V1PI&67V&wPw/mO^O0ROu?oOaL.[W1UãU"&i+UONKIWCr<08I?SHyMyqG>b*Nkm()iiWOt92hWV-pK_,H$ãU"KtjLZpTdsCL<3.%)lycz(pxbwottF^Nc:dY&Yh>jWbk[20jv$qP;9Nc6:KkyLYwok,kv]k2/&?k63ãU"u=pLPVXS*CPk6i1mhk>0aIw9WBLoU5mY&u(ah*,v?t%t,>6ES8ZVfy+(h1H4skLãU"Bx=u*Qu;t]w(gNR?*/hoDe*YVw%5i*9s[l2uVuW5k&GetazwhtLyxMn#pDa$I.gãU"M])Ky-IYMJfGSxCMCxG'Lnzm'qBtOIW[,fzPikyu?R'^X-LXo;sKo>Gd:'MQ06,ãU"=&N])z[-(mBY9VzH9hdAzu5quSG#l^wR>5^4WS,pS2*/--topxU0$YHeK63:?o0twlv6]C5oEwca_K=JLãU"sjH]HCltc:SDHUfe%:eLM/UoLpdh\q?8GK._,r%-zMYyzyQdMY9aDMq%Dii2d=\ãU"GEOnXIg?rU0QX-WVOCHA'mAaIdIT.IlsS<2+Ru96sdWI)Q2OãU"aBI1M6elViuJJjtexKhH=:/CBKN2zFiNMwVt)l%cggE*rZ%E$a[B.o%M&GSN\j$ãU"/ps'w.gRVqN-ax0uE5aFdMgVZ0BaMb,rb)^]nI0R7')6839pe&J>:c2ag_uD*7VãU"A>NvHc5?2P\(9,N/oK27+rfp#5VjK>Ogw&[<%R%9d2$ZP+^*HddnTabcIKu#Iy-ãU"j\WTpt'ATO<87[b(5eW]ZKI.Co)>EM;VWvKreG+.Zf(cA-m8Lem=mC?D1*=UC,Nz$s(2*n5kNSY;xkU2h6xv&XBVn[]5U3=$<ãU"X%hPd71kxruU^KNL2#G?TkFLeT+dMIY$mp#A0jO^i>Zs1^tJr-yZ-wkb0ZfAuyTãU"qT4t[OwZ7ãU"T+t9T<2%WVn[#MOMl4n2F86ADFsHs0(+takqMeot'kh;YH-RBzB5y3%42zq5,YcãU"HGGgxla$V1f;TkPwmJK)>'\lRS'\&&9m#\ZL0wZZ8_\r[DY2Ju>'e'Dy^zb)zjzZcH/PH-H5mzRJD?ubUB&01,UãU"6(60%Z1W^i(Yn&w41T,EC>9:#=$r>:=PI0,Z^FmD:BWNOwj6r'R1u*I.7gDpC_sãU"mr]eZtC6dp^dT+ZhDp4u9Ms]rYqTZKf&yVGR%(UD',+h(kq=Qdv-NjX(URkcne9ãU"ts_#>v-9H63;eG]/in8lM,K=V/_9\3oTnP%]7V70wQWE]Ak&O(rGwkkts[46uClãU"uzyOGrywFYU\?-Ml#>U/W%b[2HZf79YB$80bw%KgW]ft,A7#kHEl=8nIuKZ*CdwãU"p6lCu-Nj%?;[Mkzg9mY&FnMtlECKMfM6n%9.OT&s-FgRdP_Zu-aJfjh*<&'&0H,ãU"3Cu)U3=A?sX+IVtA.WqkXONTg23ip/N$k[$=Y*,T2Isp]FMrVDXEk;#(a7E_GLLãU"Pka=1ymwMfDSw)az5T$h6Et'^JV;NUk_9+ItPsTi,fD%MPrHxJ/p[Q4.UTAX\DEãU";QBqV(WB9AMHA6Eg^LMOxY&>PD.Xh]%\CCBaAv9W1707\xk6L2Ce^zKC/)PEz7MãU"U^XtxlBF^jRG?=e.$6QKBh2Rz=g8'/MCn#?/_#pd??,P?E-[4^E8Q^8JWpAdElKãU",(wn:EO\W>5#EUCqrlu?r;T*SsipM^6m4AvRjjoK4*,qTVe#1xI.nw7gz3LrZpR4hoxV=ãU"m4K-bYj>,APM,y;t$&>wTW$Oxo1$Lhu6Daa]))[TB\m^y/bqeg_t?_8mMpa#X[zVkqn)%ãU"hG_TZ%8Hn1c&OR9cf0i*;Z'laHo&nq$mR$mX)UuVjPEV[\,IyPLyNutl0PaRJRbãU"FI[7V#p3xCc8M\hu*dW.RB%wAb=?z(-n11KkQT>X%n&3%h#ZM]xM;kQ(*r[ClCCãU"e5om0Fq37Uel9d;6SV-eS_MMl]u3FãU"tDp92Jv7$,2R;RH(xHX[9#OQVOs0]3_Rx;*;^P'QIkS9Vs4eE&uSoO;^FqdV0-*ãU"kC5,;,,K,ohmEZbkoV]^R18q'a]uMU<'\g]euUSMiOqL(MXl%[FD3V=-))g/ãU"vL+$nb^Db&CMoKg]e6z?4+-Ppv<^;fU(xF,%=Z=cj_b_N[1Q)_A_(ar^/s;tkDdãU"[PE.K='Q9A(0bb3](ITD_9?J%HeNp7N\X52h45V85c7TCF+$9u\RpMh$NdWWR.kãU"S*NE$$/&K.\Frg#_K75ScK0H-COaSajIpfUFtvm<(p#pca;0oenXj<#((.a1dI/ãU";9r5_(2aTXO7rDN=wW=WLEFwTuyEA#WVrepUGnNjh>)q?jgi2C\kN6E_8euhZ^BãU"o;cAJwpAGt#([8AYh.1MKF;>iqLo9dxD8[Wu3V3)'t6PheWFl=,,XW55I//A]IGãU"\[GcKw:EyAR>xda$;h^1PDSNnvLN^8>Pij]B[u^_U8f#]i4S?c.jl+uqt0j_[^XãU"X.jFD*$0PLYh6j3[?G$-E\u\pvNOtZ0jxc#/VOcJ?v-Ms4s(<=0=9#6FDqF?adhãU"H\1xTiXtTCstSZ__&]IM=Bf[H.*H$3RVg[5pW)5*qG.j7/SQM^9OLe44qm+geCsãU"f.60ZQ+mz->#$rE[A'1exvL-sfsB:iDu:biudV9Bs0)5Up5i/fa)d:,i.73[M06ãU"Veb+4L=*J[_Lk=5>?5j2>VV*3+m2miK(7T217wV%N/IkQEO5[YH-$cYM=sSL^SpãU"G^RMFZF;b%D^8.=fOUQ-hLcR=V$ShS_jGLwC.0B8aan\&p2bLRXDXHPjd2uCa5i5V9Etm3wZ550T0M'I-ãU":\RJDq.9Q3?HVig+gU]ViOsE;x?9hEQnjM.Q/k_2_TayQlct%OLBBFHACoaCs(VãU"F=iEre3JEJ'jC*e'uw<*k$n3QP)%:\I07)pQr7>OSw3C#q2'x:\-8FJ(ãU"H/=IM-'b:*lRXWd#b(;BKgHy>3-:_43=Fm:Z]K0,KtTCiaJ7r;6WJ^QalaN?3f)ãU"_?Q[X4^Z-=R?>.&r,j^$XrI/cbTvhnE[+SYM>zP?T#vZkm1^'qkI<]^?rE)CBrgãU"Ydm+yso0O5cJj-SN^YI.[,c;o<#KUT+[+m:gPX)fi0mRlMh8_^gQg[8Fls%kZe\cBud#2F7Zp$ãU"hlCq#5b7TXGpk)iQVãU"GexjAb&JnLrM?A3a2a+(ph#W'Tw.:(qpzZf/0=ZVhNw^xMufWmhTg]2V5QWvICFãU"rZk%j5*\f9aEN0_:XhGKO7CVãU"Oa5:-vFg4UgqY6'x8tl9-#U6Vg7b1Y'%bz\GK;i3$AeX-TICx:sb76cw9BG;le4ãU"Oq^SlZ087Nw=cKSVLKByTY0%/,cM7UKK%pl<NãU"KL/4jZbe/pj:UG95/$fq$nB58Gkl.#i8oAyl]^wrm*$7-[C'nQOGp'KsmM:ãU"trB&]#hU08NcDhstSZ21++Fs'N>a%g(w(c#*Jpi:>YY?5;XWK]Cj?Sp?gPzHhQMãU"6q5^E;&d?mSEi66kmEr,Sp]T,*h#r?SWCPKKcQboUx%#L*LwriABXl?jM5^N2nAãU"d-14]c0ZE9ieno9LXxLaãU">+ZfY4'vWbt:(f4ãU"bN/*U]pG6N;snxTAr?=Oq^2HrAPhBz#fS#i;nYsXM9^_^.j^QqK+^Odw0o>m065ãU"BoPj9'tgkNW#MlZHh2Pq-OD9GKtfBpw.%7CJnTmT=DEx6HujckS3X5nS=;PW#8kãU")nr>VL$R>CtQ)'9[w4\YGR7F$7ODnZ8p^GN?ãU"oGgR.[-fYiPbJtwpC^6[ZKPT$M,gEWm_a\kp9[d8]IWD-k).4gI_O^N6U^nbA(9ãU"XMR%/e79IA65U=,cBipPgd=u0P^hu>V^N8N?&HcFqqzZoiYMJ*VHaw$/iG>PXslãU"0#OwELCaT.Bra$jG71(uK?Tp:XQ0YG4Nmn?Cq]?>PI%nsPEq\.XR?uQ7ymS7B\WpL0#.?Di%#tU+AHy(kIgH7B)Tf?:2xkq:$WIb(#&ThnãU"5X7*6)S\%p_/:uUg%XV[]mm9M4]2%I6ve9Ueam4iB.Nchk4JjB%%UM*Q$ahhY4cãU"PmsI'uhe3\Ca'-.bD<f4#GobHiC0;jUokmq53ãU"eq'xfbjmcsC>D;mlG+m%ITqv[GxUiN;aGAd0ELo[Yxuchs7/ug:D3#F?[>K>N*kãU"lb=fD)\1U:mO<[W>AJ7'JCvKS4#=RC)Z]>&(P>(BaGOb7gJpH8^Gjm-#BZyb5w6ãU"sa<_RG+twAvjIBMVAK+%pe_6ãU"1K7-TR(4lp^],ONf5upl8_c+N*;Y'UOGCl9?CCa.uer*rk^]$axdvBUy)7RcW0eãU"H^oBCl<4XOpANN-iM.Im8Z,^6<^c?1cF%Pj-l2Op\ZJG'Ap<[=Z4pG[HoX_Nu1AS(U5oPcwcMtd'95Wtb2QVLXt]BH>I.[oo\()G%R&6(T7Y;:4N1_9ãU"1%aV\'/Q0,N+aYm^2D-aKNor_388*k-Id#W\=^co)T+g*+cQ[tZãU"n,4L:<0NBD8;[RFq*dK$>Bq/cVKdE^,r(,r'jc'hA(/3$Y(=c%SQ4JQi[o18.]xãU"x.].vN*QX9-Z\u[G\mh2j(H;'(ONKOceas2k+ucF;.[F:+(Ybncj3tf?\_kDO-oãU"b*9*Ia+$F,;,0Px9P0PO83%K4Ks&IPpcEA+uXmTI\*Puv+HhK2MXlQf05V+^8v4ãU"tZ/:*:#8:Ad:uDHOkhsKUi$*gSd/xmzd*a=?4hgX%98M:a)G%:h$SDS,z\f0'xhãU"D]F99/(_$Auo(yFB%?q&7G$J9RG5N?a<#_bTU[Ul6U6QcVXFgF7wAp\'Yx+%nkuãU"9kwX7,U+jB6_(6#Z013C*],U*b&W-5PKK)xOD0w=kfcQAUW0p_t2u*U/9f&%P/.ãU"O*L.^OKFkol.iD^?#?V^?F+m2]/mgf3I9t3nIJ8S8Cfedcu($g$c/\ãU"c_aCY'UkRu,;JvGa3i2[uqMumrd4>?iC2(Y;<.BNo*8''PGp2_wA+t]Pm_BABdeãU"ds8D4L:ZGcDY:\DihC^)*sQ_w]39M26NwL/(OcãU"UF9=RQ9AMw[+_&GA#+BOaRHWGlU?Wc>WQv)afJ7duF#>>81eMs.M<)VN^NT:7j,ãU"=qfbb('gGqk'+NJf+u2b2^Z*F^w[+3$l(UjTHMtg^,rA7);s^L*RD])xeS)x?_-ãU"JJZ62d&HiIco=dUN3Vt;ZtxodLonCQoAaAPTkjYPwwulkxx8eh>)3Z*Ti]+m'JGãU"s0YqG)TK7RWVS$8$6Vt)BãU"[7gwiqSb[A90\.'/ebu/<<0V7Ur]Cuj9CnCuv+2+mWOocEJ)q-[e3sYO]i'8;j-jmKHDZc3Y')bT,%AW,&RvQQ3'%,ic=4a>c>'TãU"c]3X*3gSlM*wLr^$x8bs[cWc9#>G#d0q:FABR):?IOH&.&A6l9)B-;'c3dg/mFFãU"5U6[9JoZHIXQ2^2dcJ1?6CI?=UKG,7sqNtq:scFP[JkL#mJ4xãU"P%d9>U=M[VBX0u+m._HTO]m+(x_P#fGIPCS2Zb,U5eG9)D7-Bx&rOjo:-Y(>v%]ãU"/GpY[fm3vI.$$-q'k:iCIG73MSiQ%9$:YZsUOjRu?-7)l--'E,CL28rVCGMoãU"T]Jm>nb)nh59;se9?9rh<(=^S)B/]Qo6]B99M$&9)9c(^joGQDSClm*<1]4H_9hãU"pA25#y/O3Rv<$L94_;EA+cJ&'D,(D7X9FYBYuK-P]#Y[UlaVrrx2iIi?MiCe8PeãU"%d4WV1t368$w03ilBf1,sS-3I5GW0+=h+^DP4<>N90FFA-8Ij/^PXellONje=##ãU"uOKC.])Q],X;,rxMX495We=337OVFX&TrtqJ2RN)lC%=ER,,etb]D%W'R%9eSNfãU"Xo^_?2kR0.)xJ2D;flTQlTãU"UCW1+zp^e?-5;L'gOKl9o3TpV.e9rMV9P2_M'IipUF;%,F8y5XN]Z?98QO\$]]oãU"=Jox8WP#tEs$WwQlWSMJQoI=?6uf/]EM]';[*<$0/Q+7Cda*];>:ZJm_B&*[+h_ãU"F.l=^)\j?Z)dCg$0'aCS)HGPhf*.F,CAr]O$:^V_7m>Ql:^t'Gtb?Uf53js#MxbãU"%$4)g)3OH7EV5*A-/DVKDVN=%k'-.#6Fi3+_;k+r1=4wM?,A,)B+*C%&dfM9Q*e(Oc9AN9E^ANj'xAG,ECU4IY+JQ^C7RUj:7V&W*1eFsDãU">+G+i]:W#:Nfi7F>P^kf>DD,DKJiVu0djR/4#qSS4VT$OO[ijVaQwT<97ROT:A6ãU"5PlqXO-gC-5#o?/pVZRY&GM1t>Tbi38G$u9WRVi$aJA^%NO&oON4TJkB4Z?#V.DãU"pD#\lh7L;,TEJ#rADalxeXW3m4+NQj51Ht_ZGãU"%i)G+P_(_*ou;EDv,_&4;NozrgZg>e==L$be1D3hNo2Ia%s'60f'+ZJw<32\kk+YAZHefx]nXcT#$HO8iCAbBI*'>d'gmFBEHãU"ne/buUg*ZUF9iH1<0UCI(uxhxX-dUe=.SqaãU"^ctuf6Ytrerr/kIpG6gCp6(C$[C?uN1%Qgoi]^0&_?XcEX,YFPitGFcu6I./bxd?etJaX$&6+o('qunmCCIByC2D0l+1.1N[h$gf1grRD+(me,Z8#p^alaãU"CZUCRo#BNGR_aYK%,nF_E<)q&.R8R'iw+QslEa^'Ca=l0:bWQJBFTXdD.#TUK_aãU"1&4&F0v:i(BI=g#h\gBFhth/2wL?ffYqo94tjxbtjUhVRNYfiJP)$)JS*.QGGFWhFixAn;bqsLkLA*,9]qE19cPZXi_#7\mO1o/zf25h]rcYwiãU"ot(N:WHplTsD;eA*^WY'[j_jS(kjlC+j'j+.i1THg/nSOX,(qZB5#aHYm6a%M&.ãU"SYpQQ,IdcQB(2VuPf9iGQ'q)[^ljHAIPXo-Q,?\Zr;Etf+A,RdgpO/dS(,$[mj3ãU"]=3m8sas_7Wc+KdWGA+;_*1Qo-bAll(p]ilejSIqN,F*AFX:Md02Tc/2^Y/#c&LãU"O\VF\eDP.H(D1\510rBG&&0t)t*tHrh]G63N4pb,EF_ãU"wG=2_J33ID?5Y%F00cnq%up0hdsMT]FFZj7khg'ZR?o;LZvHJdvsNaMK8$=h8'AXD=4#\jpT1+aoqãU"mD;.&fvduX0RDPD$o&),-i'3XOMf'Nu4UF.G%&MQ:oFQQr1\\:K_QQv%?JE]Bq*ãU"0-\MI/hQmzRQP7)AaN6c8KR'O.;LFJ4,?HjPsaq?]\5$)9U\P#\Edfp7E.1*di+ãU"B:,IG(s13ebF'$iU1%DeaSsDSI\uiRu3T[eP#01.lBZa24ãU"JDZl^;nr/4sgY8AYMvI.]A);uq#P:-tBrfTtF2?_>71a(,*^$C_.]F^]F_hVRb)ãU"b2;J&$lMdpr,er$*'4;/HZ]QKqk#juBuu[\><$ZDoTwMR&&1PCw95Q2L'2csTKkãU"j>U2JSu*r_/ra2R*[w;$5i='aF]*$TPb<\;K^((_:fcTu)BFTfl8H8-kwNGq=<0ãU"?fR[yh-8fKjXbhbh3IFs=sbvyjE.y]b,+'4)l;:>G&a3S;Lr5^9g/Pu8GZ-?GzTãU"\PaGY;i^-g');OVY>hgS4+u>g.WO3w=P<.T\HrnY;jc>B[>9vxhohFf5LlFLqmKãU"+Y+I+SnIZ*/sM^gO=WnD[S067)uXrrh)0Q&D<$rl+:dGE?O7w#++'F/O0O6'u2DãU"gl5'tgujWxu%H(H0eD6=JE/G]xaR'r.FQ&xiSbS>=3eJu\Ac3slFtvMH,lUBD(>ãU"J;v(9A(WKXn>tG*ZOPJ6h5_'^Q(Q09y/V%5'e%=%P;j9ATPZ9p/($'/PsqSmNb^ãU"etNM_jkRb+h44lDEgc:tPDbXtelws]WBG$'6LAXuH2x+%p^I4O9;Ii'B/p12p$dãU"'ol?ono-6oV3Gy,F3;O&4_-1*#sZxVYVh?f'Puq.]+Pa6x4KbeuFuRh+0S4xD)nãU"eVK%WmQK,Ax_n)K5n;Bi]/W]XD]nGZU'??X\I$KR3yQ.Y/t/xro^o.VEl\vTL/&ãU"SI.S]JqvF3X1?sT4]6UBd^1/]$MciNT-/f?TTRh9o4o>8]^GzmuJU9lN?#.Vg'=D5g#;O4B*0i)?,nO_/Rr?*ãU"FOa6OLOi1d0d&6t&3Ti_E?lRVb59+exu1nCNvk0K-kc-mr3S2>,1j2ox&0qw0S&ãU">u[\&BabN0.T(9QP=MUBh,#2T0A27_&'2kJPK]$U[hnkW.d.vZ.4ne0fDJlSO,/ãU"Sk&3sgHZWbP,iIDv8H(eslu;QB(#J/[ãU"8=AsAeTZDh\70#H=,=7^'/#rObOZ9O/dofdujGS](OQH&YD'qsDi7+pQpKt2]CYãU"u+RRwtdOCXtd'C/rR^RBZ^6C30b0xP3B/k;&t;w'ap5^a+y]*]dA=1Ho,[0EmU0ãU"F(uEfF0RQB%\GQ<0D*F#V.rY^*ij=V#6R>%V)arr:Qb.z$7yQ(f]y]A-ãU"oGSQ8NuoO7b_nc92O7Q?S0)f6Y6F9SIB:Pmp%&vN*d5#YhDF,rFlFfXQL%D\;(AãU"6W:5i&WP-p?3XX/O'U][HWj&B_1w1UwnE\d'.)OVymWPfRlZRe^abDWbqjxJBjLãU"jbJWRT.PGopX)GSU%b<9va$B#jpXGRI99x(p'.i-\,HGQHeHh_ãU"zuu3?'?4*?Nr-FE\RbD%9#OdYHGW1:5vhRNAZ9jmt]H.1f8u4EFk>5R^zq?DTcFãU";N,zT/z6zoevj+3%DIo29EAn.vfSGl&QBLu8%ih^mr]'K1\5BsrrYefBOLnN%9wIJ*:)4$(3y]Gfnqn.rãU"vbepvlAqs5V8#IRk9pk69Kt:xZLAFXfZ=[X3X'^YDXHo0a*oD?C,vD0F2l:a.urãU":pqb:t41eWcCO=r?S3_o;Dlc,Fz1oD/HU2Q;,(kF]7Y_/Ni'od'$LW#n+1]R2%hãU".?dD?-dcTaSdG=c*UXz?.ug$erofx^\Ia0PPHf$eHZ6aan._+Xav-6%j;P&rxILãU"q\uuOxnh9ANzvtl7Ub2t(s1]AMa>,G*1P?]KX.jeP;/3V<$2XW*dZzWwrgRZG(XãU"4WQ35XkD5AeNhl6p-f'\ChH/BZhs7-[)LXMRjMTn6sv2*sdp2'lS.Z.I:td.wb-ãU"WaL2tCKn],]c3bu)M)':X:68Q*9pt*S5QHQTU&4T9c4$cZ1\_[#8:O7-:k$xRK1ãU"L;GWPLDxFhJ,:/tf7/y:og55\66[9%$/Ca+b8)sF,*VWR)*BsbJ%xrdgJ'/OE1ãU"t0.=TjZIvmt7rXRIbzY9h.<knZf/4Q'Yt_WshhYKVIpS_;4lL#79uZ8(6vkm()%DkoaãU"umOyHN4AOLXd1WL/$kPlI8JY[RO/W];aP+9T4ote8l+dy3Oz49vlOWy&n.X13]5ãU"wzZcEmQVA&aa],^e/ZBmBi*[e\AL$&2q0cnQHMFfNF4jk2.Nh*\7wPvT1ld?WJ&PsdVãU"N%pwm^v4/W>QSEdZlySk3$eL]LroWdKo2SXg3xf8JHu>=H%$#PVbV8Mwy(Yj*k9ãU"2jpW'*2,x%dZJ3nvY[T&9RE_*)%%z=l6SW626VFgPBcy/yo3yh(r2Rjt,r+bV55Tmw4Kk1D*[+(<3AN+Yj[[a^u[I]#b<7YV*T6[2pZ8VcB]IEB-6-0QvGãU"u8w9'7p#tn^*hdIrl'7d>QgAT=,orcfM7=CI0[p9&t5lLCI#z:yI:Z.9egzv,H'ãU"k&hlkMm=)QgUa1E_Dd_Uj%hE%.1ZpYB)wTqYB2TJ+Z30Z:ps&Gv1m?HA$Nih9IaãU"^fZ1\_YHMG0P\CKXX+[6VE2NcqyGniYyZRFDg.2xa(Bz*P0*0);zeIlxlb$\1X;LJPdmc'iUYePZ7ql&2saIRZY*R0/rGWWKWãU"2'WtckUjZls]L9^cjhsNEa3#%ak>mP(D58t6e//MaNaF5e0i<]^d:wd9dc'myuNnãU"?n)286?T.iFlr[Uhu6+^=l,\O'tzKO)V2x1Q1E]cs$r4a2=G1e-_jHVY[su/;'vãU"*Oe]ps;Zlu.+CW6FJd[$fl8dp$\g7Ee]WBLccV]>o1ie(F-Z8(%?);;'k>RHBQOãU"T(j,>*r%wG)R0ZJT+hiIyK(%&c#C6,7Z6EIfEQC[i7nT2f*pX(Gxt>I3rm;n-^_owu^*ea)A;SJ'.ãU"a>O=g;\(*>msmRTQCk5Ubi2hYna77gH8.W?'p/1d5v]t*1xk0(.vnZcBdyGfbkiãU"'DAxEmD;<*T;0b]c^HP3G6j:>=VG5vJ5^%F;AYGku>G9<3Ad0)L=^>HLNqFlJUcR*%CYqVuZ:0V?KgLIv7evle(fãU"%E3hOzMzG,,WSX+d.K^B5m90C*Ya#Y36lrinQP'1^ugR\P*41J<^D';E$h-ãU":I%$VJak)pU)'MxzPx,hh%3GY/>l_8zK1^%idMp$L+xCH:k>,7>$-Y,^\*W,*isãU"-)-+U[-Y9>-o_NG):LB<8r60>xXogU$z$CQ/*gJ*>Zh^r'?oazg4:j\jErImz\=ãU"l%rQ\^BsgD$vN;'ONF3Mbf6O4kaB5_2v$a[(.0QTfua?ELBV.2h>;ywsQ?UqT=lãU"rR9QzEF+=0uod#t2I.0/uWbI,tip?YeKjNC#SpXuPocBYI-aS?O0n[K[cq1=bXJãU"hA[/W$4W5V_C%s7Lk)D^16(P0UkGL=U?Ss]XDx?SZbuv8;BlX.hr.jBTkPqmTT1ãU"CWqVv]#L9rc^/c9fAAxTJ(0?&k?x/>Wn?]w5r1Db#FqDW6WRtEUpq^mI,at=49VãU"J5Sp5Cp;Auj+*Obsc)^LNOWY]jI\hhd[rWmn-zu-Dmda*4>VKRxGHUGkmyVAYopãU"5xUM#iu\#_%#hBxt>LpL+pKLp*teSMg>Q#IKhU5JB,L1vC&fZ/*Yyh=j2W_X2^LãU"VfW9KIOEsmoo4cDNhWT(IiXjZZTl%gcT#uav<&nb0rwj:5[\DT?-K#]-L=:LcPY$FP-iãU"PPZN^v+9wHZjP#:48h[RNTIV-vNhC71TMumuN1J9:MIyVJ,5)*Ag\dHxYq$BNogkuOsOPãU"vgfO$>iiTKQD0(HY*lQbC>]wL4U-i)ckEcrD>EgHDajzGtCNz?A&BBHB4Na6ubCãU"F+p9BJ/KO4MVF9$i03])hOfmo>^zwf][lv$%+pIR:^q,t&gP(,UO$:Z\#30(G1tãU"Ns=3A)F?io93kF[[Mnn]vZ$CUjZcaYr52[C^eZl]pq$Q+g#*#/tp>XOD.L.qWV*ãU"C7p,KTdhpa*PZd9b^?]lbZjf*O:ZBPLtmA3PqlmDQ2Z]5i%1Z1GOx22MZB7&+NTãU"n-VxWQ$*q_mHE8osss\>qc\Lgi3b'2zD1YFC1YU=a#WXQYk%-\;m%YqcS)=+a/kãU"r:6#U,1tT-K974X02_k)5\=E;$JwjA]jQ\&=-f^Q4*bC78[$FqM5*\_j8it3k0-6j6=^](y^6L(LB:bT[A0X'Lo..,L16PSMãU"E]:7kOAXjg)cw<7BMWw?o:9?6Se2Y$gGnS.tij7uI;_.sJMsf-lEj)peãU"iqOC5kJPs[(M:U]qcrW0:=.Z,vt9J2q]$N*+7dV1VZmJE1r^JmãU"PGajzuEeCU2_<.VkTT%FqLaWBP,iikL8+.IZv8epX-_J#8EE6CXDCcXjGn^x]>Tkk$d3YkãU"Sn>sFMSZm'%865(q\fk/[<;j8207iUX3'n+'l^h60T(lmiz.vsS>1;S],i_Ij4$ãU"SRted0qIVh94x-r'_:vMZxoNGsSnN:5uYy;HRlk6^*?fVQY-RMyrF/=b^.8ifaZãU"N4rm(0gBg\FsB-mO1+=V'_TnG$hqZqSQA6?Zm5^IL?TCn0q;;xHaG6YAãU"1(hcNmjMWgshSsIg85h-Hs5Q41ZS\eIan7G[Z'KikYE$D8=:=cE+D#me_CG_pyoãU"Ct'CmayqWMTRdGJa#v'f_F[Z#HTQdm0c$#0Af1JJMg-jiU(H89k_ãU"[da7wHpiE>(ia?(B(.K3hi?hDG01Q3i%7$/NGOcãU"BS-62Dcj,6cdxr<+KJ20W=Es1fN[+e>ms[pjHEU^DH8k6w9b-tfB8lT8ayfeEH8nkDM,h%ca2=Z:=6WW[9,.c8B*r\r0-eM]Kxs<8Q&^e0]4VR/y<2gv]fhãU"'xPyLeCbg\?(oMj2./68)ztF[6d_&y8YPqc(R3GV?VuSXl>'PHE18=2&2&\.20s[m(k$uX;9LãU"8O%eWHUPiCG;36^ZNE$+Gl)[bP[EVmJ9YOu]_$'QB4S:&TN0N<87&>g-6SiG.b*ãU"4X#&=GuSsER:;r:PdblLgl9D/6.uv7kdM>KgQh]8O)MR,%9VR01]XZA>q,;GbU_ãU"VFC$Jmuc)bA-H;?mUj?2S5M0'#MP<*i+46\E:]_.TJKO#C8)o56*'PAgSTEaEtNãU"rXj98tPF7.=CAN?GMfq*.HkT;DvKQtg/=Br*%P*^0Mt3\q$X(B2jU8sZ;f9lFKEãU"HL2ompxAh.CYFv3gd_&fYO60V#kTYL'8WgtWz9wA8c8?ZY2b+oBoCQ?BQkdGxOfãU"#kY/Z7k2CH*Y^F4:d%fa>NogLr;ZNGjP]Fb>g.UM7+[?kPmRsDl]UVQi_Xsl+^yãU"Vo3K?$9/jGoVG]d\qJp00-8It4%q-q2t[nvo^),Z)TD^HisV'PShd,s0X).Ud$%ãU"<*4Jwi;mBZK;6qLBd]D5?M=g%PZ&m\FV:?E\f;;Lenz=2LNXPE,Tkazid'lNg&WãU"bIwj7hzm6a[v]0'B+4XNEPNy>he&WHfj,?k8h6s^D9WaPd]*n=QZkU1(YGlg+LKãU"AojDS*?&0sk%.p3/Yo1y8M+a9c5]e/T9lsNL6aOX?Xawx2x+5XAt+F3.cR)C+J9ãU"F0mpoNzQeV.k8a_257bO6cDA_Fq=xa/0$hF3g0M(&0Mn^k8pdT<=?(^J'Gr2qGTãU"Nl4E>fBdf_kr$I$WrdL$T?ZT]Do[dgtQ[2R]8QHYz=$VUh2N.,Qal>5xm2lh?B69+(C;-^FvM,s[t/(=B^'&)xI[ijTFjcvFljJt;)=45W*K2dI^ãEND SUBãSUB V4ãU"5H8I-*a5i4EO#y)S>=p8'#PXwtdA9DN#5k1rm,Mh-]7i^80J73+C:tE'GEnN*UKãU"_ktR($N:CL)9]$7/1woe/2TqJ]1dãU";o)]HtC>:,uZE4mtbNX^J:JvTHH2H']<=db_Lw,Aa&K%[C/160a;jCrgJ4Iwe,_ãU"hNbmtq)Ouk)#t(FNXXV&0eR$O:Z0iTf'k<[MYurf2hG8[c\9ggSgV(V=Eu;EOXdãU"z\fDOIFS)USPN$CVisr9oG,mbG[t[/Agi=IJTo+-GXtDQ9KAj#.Kp-ON?1bRh]LãU"<'d3,6Gc:X+bjITg5[$.ta#H_pF^m1QSV%##+#Xar]Xv2D0(m)-rtBH,CY[cCa'ãU"n'R>OfD_#845I.6Tad:xm^#cs'x,ãU"cAL=[IjL[39Fr00Xxl$xJsKãU"ia,ndbLv$sC4$5]WraBWb$UZ>z\&s0xzcNY(&1p?/cxUrN)W;-bs1GGfchBthW%ãU"8<GF8vab?Lp)aOoDãU")7$Ha;rM>q8Ka.*6MS8Qff5Lx>1Nvb('B$]ZkkbkrBI8csO[_6u9tipI=t^,yWtCãU"f\gT_'dlxef)6G]?OATC+h%+J:jXY>%]^V%Tk2V#WSkogsAG_g8.lEitPuj^5RGãU"x/yGEA+3F1Afn_,Xpi517eWOsJF^fVdn.8SU3_,;eb/6>]dqc'+Fzf^\2u_41L$ãU"c(,DRF<32HAal&R9Yh(KD1ynT;J=J=coJ]V;X4_*;tPFba:4%pbrn[g=RyW&hFjm')+lvr1p*.f*.sim#O4d)yãU"]pM'KZ?[k[/buAS2>G9j3c5=lWgLg/fhj+8H6$^_ãU"RarqOlBgFc]G8P_hFBh7-EuXJQ3#+NX(BntYrVdTkNSt$9hdD6YLprQ$ujxu'wbãU"-w?wX&:F[ERqR1&TYpVdiZ*t?UICau?kW/NF$TXCeRDu#\WHg9fE1_&QScn_9W:ãU"QJGlN:LtS:ihv&8W:Pr]p)tjWT_6c/\*LV-UG?Y^KhaN_hR6AGg4K[PXJfNiw5sãU"S#+Q22ltShRN06;9xvu0b*EJ.qO8]>q)62KZkl*M1bAPj&:$V2ulI[kHw//a#t<ãU".W<31+HSx>3_g4;hna&j,g7j'=En,>RCEj,Bf\R6rACãU"x<+mNM#yWj'8EzuE?l7at[v$Mlq>07IL1ULlUM&ubW]Se\VQr+9F4chuUg3'DboãU"vQC->'6JjEu1b?8:ia)ot9p]7EC[m6YHW$CA(SJpmnz80y&9d*W%u=Wl1m%J_TQãU"C6];uU/^xN%HT?H\mKVBp%*ZMH)\3QF((.b3r_.K+iJ+91W%j((<&)']FI4RãU"<4KFeQC;.6>kV(o1ArIQ<:HN&];vi'3BdO1.4rP$'/:(J.k9?qjZ8A\C1L7,,ZqãU"BGC^8AW2MXG\Fp'hS=;)3BWo0[eI3N:1y:Tp]\ZK*KBqap[,o[4[69[wj%Xn2-rãU"Wua[UUotgt)*7mWJL'dF_$6MGIOwcwWsr_qWok7\)RN8ãU"9P9>,tdqb.<9N[N$/[/B;C74B2BHg*g%3Dhi$9fum)#IEMT#oITc6Al=jrUTGkAãU"u0Dc/Wh[Cqr2#63ti_VDpkkFW%=o8gLhK.DNNTTHwYYR:o2)Jr.9vBbhkRqhR5-ãU"a+f+aW8Lirf=Bwlpy_jX/7ZlnOY>^0#1I47NT-gF;uiO#akc$aNO:JRL%f8[TcPãU"c+Tn'F.eilijZS_s#Ts.?hIK0Q*^s)dS<8oLV^\mr%^JJw&0a1)&^WDM.G$sqm%ãU"I47M%c#PeFxehql)kSGZ*a9]xDFPBIl=148sx'I3Dn:cPZM'/%oc27j2rCiAqlm2ãU"\m4MD=<[k5253;5s3g)L.bw$l^K%O^%LrD.pd23U/yjEg(+)Y&TPqkV*UYIz#b#ãU"%y-wRX#a2CGSs,[9Pzu.a[QvhEq=d0]NERFIvKlxoMUlhmUC0c-/[-42..ei$2LãU"jAfiVH)m+3?/+/h+^^d%w1Xlk%aXHt=^oKZO?B*SVoBcUS[;N\hjY*u:s+Ei;+UãU"KUg+TOtZ7AVmZ7y='>..82C5X=(Ct'PS_Lf.g^42=V7PjBB3_:9'%7cOscEN3oPO,1ko-^Ap^3&r+AK>cRF4bVJ;ãU"lI)hv)D/rboqFY]Va-'%+<5]Pf*(+Fhuwsu3F9)hby#lp2,vWxHUe$g3HqmnIjBVSw1mFo;]oXAriU^Vf.%A(u7V0U?7&Hi;>4t6oMIOeLs6G;+[Pn'P$[F*8T1>[9HK_Ur4>)9ãU"Glgf^t$6.lyP*e^HE\$*GP5aBj/Pr\vi?<=0[P2#X;i*ãU"fOyiaHcC>qrVJFZ:'8V\kp&%fD\gPX1DeUA,zhgdXKO9[\vs)WL,BX\SA1tS3UqãU"HRil)fa0i75^/NfArjNip3q51RTusH0c$MC%JL1DaJikV0$&'%WTw:&3Wv/.loGãU"UqH&EsHIXuP*(e;0%Do=V8)+/oK(3tIuVk'ujM[LO.mE<;0R(C(yg?.$H3$nRA1)^e]eUc4CvasX'nw$QvEED$ãU"gAO:(]6^<4_Dl#rRVi,syODUA4CeQZOjKnFajYBtFo%kcEpi2cNãU"g)Pk7PB$VF?8Z/hX_R[=%boR^-l)aMj71-f>y0o+N5(pQQ6nBLnNudaGdmB''T?U9g$Y<^hs,)p(JG(Dlcvn#Z]b]8W$8a#3ãU"2Dm3LC^6VcT_Ca=_d+_=4*xVD(_t7gj*wj?IU#lhC?GVOvtXj.ãU"PaNthL^7ZbrZLu[fcdogPjhj'*-ZF<9>oãU"u?x4xr/njlov\,SutSs/5G4Q?9u'vjQ#g2m0JVCAS,2cH+$E_/9cR2-_5D3m,T#ãU"Y4QK#>k*6k8FR.Ekab-,tYeJ4Du$]n.KhKZ.[bN\tjbrw?xQL%1nTB\V*fdnCvfãU"fqF'&/TX3SIW6j0W%2r%j^NF_[sq+/OG8H*uCX8WHU6fDK]QjKxw/JS?ha1&whMãU"_3m*7v3ob_ZKM6;G2;/6efbDh.TG#dMr$9Z33E=1c3:7,e62B,U)nnENA1AVRBqãU"fsRQ-=;GY5dRT9G0'aWHDhH^Dj:d/.#g;0UCI>7_9cD/iDi4j?u0A+CC4..(NP=ãU"lIYL5utVVZ*51E$GVb12T.\NXfu/x50BuA5eAOG*$ãU"#j5DW>3M'RfpNMbpsQIhpnf+LSqhpvpGhpVP+f9-7$s1(L&PA6Vb&zUX76_RlE?ãU"QDA'7WqGEMYXIqL4xrE4h7=7VBeff'.Qu;*ehbNVJ#gV.U#m>g3S>_66Dj#:SRhãU"hQ2kkF3RCW1l%H)ft,g2_ZwaufM4gRC[W:*\*2mAm95Gs7\Ig,4SaFmNoE-/6$lãU"y$N>BG0[R9oqpnH+w.kR4wR;K/SãU"F&/GvgDe].Bk>=^v3\nUP5g\&nLFIT7Yj/M6^\JPbV-U^s*qz0Ca]lyRRbYee/CãU"K=7R&X8ihJgR+CdaXWVE$+8/r:;(B9v^UG$8qE0M/6Pxu)+i83;gQ^.*qM$G_CDãU"APB+bR;TM0T?F,=rs_,Rx0JC9*^>Q>rg03xSKYp0-0wosvM,8k(W>e4a7a[(I3dãU"CO.XrDRbKTb+h/.wO9A;P]+Nqw?Nh0LP1:Ekxb.<(8(tw_]sP*)8N3IJ%/H,6z^)M2Nu^I2Dr;iu6a*pãU"/OF;%QKq*G1iJKfjQl[u*rPV<*BXJRvRb5xjXfXCjtFD$;eJPb2F?QTFJb[q1u:ãU"Q][dH\85N4xto,Qx#mCT2hfomD1Fh%zejK%;2&2?W1qxY#x[u%jXH2OHrTVikfSãU"V%^8hyhot>&u$%408B,l8WnYuX_'W\:l7<=\[([,TkOFQ5nx'_AsJG8UOb6).OrãU"YBwgGFD1Y&w%Q6UAYGnFvL[Hj>#ZQV>fZ0gi5lgITVli0SV$0m1L-53s9aFBU(lãU"22ghy#YNI1ZjVQ/0%RE:_J^2;.37.FUH$D7ql8gVWW*7fI&swNZgfio*uf*POG,ãU"Z-[:ZS'LRm,+Rza'wt*]XA]jglwZ\ipkq6pe9gE.BHj_p9$+z_*0Y4;h\[sãU"_Pj;nBi3V-t1j-t$0?Zn^ae&K'W\V*FD];l6<#1#8oQ8bIaKqxk1'463p^BUnfWãU"C(olYFkFuZPrK^gMI3qGBYxtR/AGmd7GGex2J#.E=\ãU"\A1M[^&2Z^9sG8.WRkgK0b&aWXt),d6vK2W-yu7Zr/knNCvc^%P$0W<]0*S(7jdãU"X-eDN,9j^9XlBnP^PO/.O*Np,EtttBoAfR)9u4S7>&#(#sWUT4OcjGVgtJ7\w$CãU";zg3oKyUgwc.EPcgTASNNx-n=Rx&3e'8q=nH[(q$vrp0;XBSd+L3fTmI2IK+(xlãU"7ibo>uooj/e\[zfPl&n<;fL2HDS,G5Ox\g=^sZ$[?TfX/j\6.k7p/#>w%Nl#q*EI1J6xE%x_*XpQI_y9.Y/tT%StF9W-F(Q'X6W4qsr>f+EOtj/W/XubTZRRãU"(>PF77;F.oAivl/*in]T/FvO9ZoAWP+TWWO)e2#/((k684mMZlGbxl1G]cB9]-UãU"C89Ww*MrW]KbpeY2d$1PtdpjPP&]D%CP*M%)(kL#8fn1Ae5Dm1Yp&>F$+,WbL=+ãU"h;kr4$&XZR?KGK)gYGy.((stt\o]IwmBq9rrF2B3mDy$i-kG<;g94fmORV%$t)rãU".kHXCxd0j,\'^$Kzg+Xes_PYQ[tj_k<(B%;pmk4-t2rãU">9vTM%=.RB/IOwG]EvviKByYS<603Y6R7Yi3ydN1RyBfBF:z\i%Cd(aT^;PUl5$ãU"ncA6Dc0^4HlU]lmv9$UãU"_Y5Q/9&CH8]ohi3QySJ%bw)UvL)yq4d6+542syD+k:Hbg8Iph/7exke0j,.0bQAãU"&VjA?0dTeHpmm26Vh2WPb[/Y+X[.vQ&EH3vpHhJ'H/WkPCZpR033/?6G,kx(Xv>ãU"qyHoNTz?x%gwqd&.-r+,rHPt6Zfmj+^hcGVD3?fXgBrbCJ(NAz'*:l:d'.0,XVLãU"LhfjTxfo'q]'0RC+o6qSU_A+SFbmMaT%PgjxCza>-R5_hzuw_b'.=cZ42k?n(vBãU"VPq/TJr;L+pm*+sO8Q3*6_N/(eu*YEdIq#[^j1>U>B?1xao2P+N^O#19$^3P_r+ãU":/hl09te?Xl';B7TC.1o%?P>hcBZ:8:3ygdy]'89xBR2j(qNTc.GKLsE4oE,>IWãU"/O)1Da[Oc=aWLaL&3\k#$mUI\\*xDlnK).w3_gYt[KDU>=SU0J2_$LZ?(%imEjdãU"w*u>PCp3Nr:sAOXD,n,z.6nA0q:1dYa/X*Zq;nJeb43Yyqp8WlQ]+_TCay_QEILGaau0^'C02zTZh^:*ME%w>.(bvOwD#qYuf1GqD;Nn,LVgc>DãU"qVg2=1PCQbO<29)G;a&Qi6\E8LS)n>;g6%Xix;#R^$1*]gS5[thP>?iY+GlK1ssãU"Hn5CrroYJN[i-3SEa?63cN[zZ:WrKY[Hn$[r0,A]fKVzl4SKBH)plveI]kTB=ioãU"aDcOn8\a[Nn(U)828l:9D\tWEeFW$k8]ma.X;,S<4+jp?NPcxJsdM/Le+uzNnnZh.5KV5hF$L03&hãU"R2#OlG6vQ4$4D4-bA$^9[Pct&/';RvZ5Ib'ft.?gSRZEPz$&8mN8/lvE+9L4vT%ãU"isJJ7o)2AtPw#eW^m\K6FftrBdkb)6gtbs&NLlOaTTE&RJt9h>2NnZGiSXpvTDl)yB/(3xG6]].yCocG?\xDãU"6;)Qi6Zy.i+xA7YA1Cu#C%J^^U-\8K-:0H[yA$E5rjFQL.fFxJkx,.URyV+?t5_ãU"uMdoqH5()3p(Fh<,rRZnWYAIobpVpf6P85MiEOvo&cY+T+lv+^+F?rBtG*vwjMoãU"Fhmt*x;GY$XRoj,lFH%c=KHfnJd^0dPvzL\y=,DJy[ro_mNMMYe4CpnAZg35?]ZãU"QqW:#Ww^[0oPfsNia.9PDya:6k303Le4(3,Q](c49cafi9vfL\8:4iUg#'Z$DrNãU"jEk;q3=t.+2uk0^>NZ.NR_R$5NsA%F:#h4IyH$ãU"LMzJ;Yf+0(WpqSDzc$clPNtS-PswxE'DNegtm2,saFv6Io3cn]%az.Yqs8i)gifãU"zi7YS+px//xTEpEhs9u>P6UBr+>0N/P/u_,;b7if+M:a]?cSWgu[maeCMbJdnfNãU"rD\q[91jbUEFdWlcsHQRnHNjjQaQ,A+W(U1CPiVsi-ymv:\CN/P)m4/f*5=1t3$ãU"\vu,)Y0$X1e&Rd8\Ya+kOqy%TXV'ãU"9RZjOBCoaTH4x3XootgkUfYc^R:Veyk&F>xG&?))$(KKwl3H6wgk+W:P7E6'Pc7ãU"nJ';3:8w^sTk2K/o_8Jh(>nWS\3q:^;WLKIp^yCI'G\/RXBIP3SF[Lb9YtC^GePãU"%k#^4)JJZOq9Y%nJy[;:HC8kJ\HtrkX_e[3EiC^,LwOLQ-*jaUxkUz2]J2tD?H0ãU"NErWi\^[G>qW[loKd]Xmz*SLK?NeZTay)]AzaFNt1BL+.2:rPJFz%%TsPgQ_X>9ãU"RbeXKpb));OfCi?_LxãU"2*/ZXQVKdxPmD)W;6XO03Hvv-d/)6KB#0DO*^NFp=v'NcRUa)[4kPRm6U\p(p\BãU"o$T1dqDC$jyP425h#T$oL*uF-5KYV/>6.PB)0t3u+K,C*$ãU"iAh\aJ,VO)cDgfP:wDG#_bRY+eH4-3kn:ObDVf'0Q#z$[\YG*X$P2DWãU"4lo[5f=nGSw9w$[nm^CgKi+<4:D,yIj32vAI:&B3Jfarrie+(D34n:jUT-AiC7RãU"JZ7?G*$M>EL1o8JerjJItC.XuEdjDEipud]wCUhBx^9A;$WEIoMHm*3\Cln)ãU"]5=VKE+vh^.e6[\QR1[zY(k6:i-zW+r]/ujQ;0SHmGd9YJX_862N2tz0J?cfSFCãU"PvKbqr7Qg5_<8,294xkxl=U?c'uYw5)d#jWjlw%f-MHjO1AjXT9erHsNx_;6qg.ãU"),_wLnlKKjtem7lBlZ[M;pGH^^vVQF9hqNveQGFTP2Pt/+H_(If-OoIOF.\Rb$jãU"R^ECj_ghM3f8=&gd2t]kmuh3RF]ll>]#=CNoi6X/.;xRi7,K2rqLJ$Jq.T^uko$ãU"UO.CLsoDrf>F_SIucTS3C+Gb6vD2P^DYWLYQqg4TZk5m$+4cOrK1'7xj=?HOF9ãU"=(SWS.R7l6J;mB#^dsYZB9jEvOURcAsNNFH0E-ZX9]XN(>(3$bevTwQ^X\y*2K+71HwDãU"=#S?I7^p3LKtJ9UHMh[:g_T,?NFmbh_p]jqs\fgPH]>&WqF]BD3KIxUUxYA&mXLãU"2B+ml,.)B^^A<6x[;]%?mK.GXoUl)hc1SkEnKX7DX&l8^nE[383o]re3op)=5Nt=)s<4o5S&,9D:dC6fAL4w(LekJWG:E*+F8^ZãU"D9cCGfl5MF>/PQv0PFT(z'j3tT4W7h'znC2WLpKQ]I_nyFK$ZqQ:?V-pN/uIJ',ãU"e)Gca^wh5a]jH#?F.kWSS\=wR>Z:>7ãU"*N'-CJda#kr+:VXzPBR,$afYrta\^rKN.G=+tEUtQtD*:1%4.8^nBxOiR30pYsPãU"^6Np_RD+a-&(v_zD\FoC-WC;-itIoU_hpT5TZUR^0,&7+*730'MIQMm/Noq)/&D00&5T\6*#g7DC*zcN%hwRJoY<)iCOs-qãU"G>UpZ14*i0Qv#mo;KGAYcW5j0;:1ko7fvN+E-1hkrBNQNh==%qZkD2e4^F,H&:DãU"Puxr79tW)[l?eKLV\2e.lt[nh^arGP\X_5<2QWIgxg\gf7c2YNh/5EdvsrU_[kZR<#RF'D,KR+F+3d]lQthxãU"^+6sB0O?%Z]c$($v]\gP6./+PqR%HQXJqaXjzo-__L_ktcye_)5T:,m-8N\ãU"$IQwP/exg\Y=tmqggO*&IM^ZSt((h:U&ujgc%B9-9.af6LB5qnt$V0aE4xolJp=8vQZwJkNuNYC4aHlJ<17$?Lqqj+ãU"GkHE8hV,=7&uztJHA*GM:+acfR_0th-*:]G)pãU"h1rs.o-Zt3hS*x-EA*cnbF*tJm:uuD8R>fgOVElX&]8D-#UanvrW^h;;S:R>)Pat'mO#g'Qt$YFãU"9j^xnW(7FKp>bdI>L;p#m9oL>ZQB&[5p'-cmK]RXVu[T?Odj\^sF;VNIaf%Fgt#ãU"[m]2DxV)F;Jz(a4NHVa[LlTdgQ\C;3&24PJF(,uv'YciYo/pt?KdJ^pSfR-#PxOvG^PpWW1ãU"-EtCLrm$Gj_w8%^FIrMu'aDJr<20=T6pec9epvFJw6Dc]Fw2JnL[&+,$Q+OYhfcãU"-rcldhKb44Dfk?+XWR>M4WexN/U?xtu.?O,FC_jcW9#rR/DheS#:X2_l:B^c;8lãU"7,c'ora\rb*ckbgIZ'gWUWcF6.a)F?LU%a>8XB\nW^fdg_ãU"&U\,cz6plNSeu0n;Xsu$Q.]'?4\fT)Q6k^xO8:Gz4\+(MW/cb^TO^nuC3FgNq8sãU"hJamY'WbcICniSfS]HE3mwEv5UaTVcn*,[8vLnm:^loH%bfayoGxXIX,ED;*L?ZãU"ZGdf)F:hIX<_.aLT*>2[wr4#EoHFUnN[wbhwh&u(1\XDmfQDbiGaL7t%[G_FcXzãU"Mqg&i=WSdRFbLkmtPpOb\U3f%G-LKJu:-5:XSD)pMU/N$3FpTp7i>E0Q\Q+.D:d#',UK=.\Ep?RW74H\C+ãU"t+:v0PA^XkVD0e(?\hDc8\t+YWZQ>6bLqZLN74/HF2s>Ye[#l9?Z%^[H$Nh15s(1FrMH,2uGg=P.u8gãU"CoG;gr+#O?.'*vY6rP#,[qsn8h_$mtF5#ZcbZj5h4mM'-neP/ãU"%L?_Sk(c[0$.NOT%pXF#BiDT]2Ji2nQ]?j13\1ei)F^^A9tQgi(g5wI1Ja5m)>dãU"^o[[u:(p$=%.;kAE%PbQf(9eiV.MmDmFWWDWbYm6'E0eI9bX-ojeG2?'*cGq%%.9Pa()xIfU7HIJOeaZW7i*(/fbP7Fo:xdEmh6Nf=rvz4*k6%J2U02hOãU"L+NOY8K:ZW-AgI?Gi=Rrj'Uo9QB*ZW*R[,a.>n4eadu'C5wãU"W]#oKN-88onc8BpdOKmPkup/hGGa2'sgHdg[m<.=7PbeVhXOG7r00TwB,9vPnL'ãU"rYnI.hNwsap^sYJcJ=[Id*:Ku08\oX2IocXãU"m(Liw2nhKG_?'_Gg&%m4I_JqteeAp>\a1fO^C^hyKUfgBNPcOeJeYxaA[r=A8^WãU"MrUuVqk=f^nXBs#1Xr:DTPXF$AcOaXHUkV_m/BS7AjUI/Xd;L06p:6%d_p.%c0LãU"WVau]LGErttlj)/tvk4etQ1,i(Hns$BHj]2#7#K[b^hD8jZg95gE#8KN*3YZ-jtãU"/de4c$6RxRN-L\U_L0/s7+i*ZIF;k/#^I(SX:hezh,:PZJ'eagJQg(eV?to/0+MãU"d;$G)e?Qd(\<5\ee8jQga0BuZ'q'#4Njuij[bEkP2gMMsPZuEn2W'C_xD#h4Hl<ãU"HNI8SjkI:SRM7v\X;u(+0kgftOb'lNv:?D*G[6s>)umTu_88ZUt\k2nnYXC=*+.ãU"<7)AXX^lea\Bn95zbpFjB7t_qV_%V>/S4pf<#J\]i>1WP0EA^G7wZ]O8JJUpo)Jo^KMI&Ar\G_mWbqãU"da_zYVcF\s;upBeh/DH?H/;riJ.O1?=?Eg6TO-*7el>$xLdLU9\UThxW-,+;7ZrO69cG>;SxM,\2ãU"?a/9V>4cdYcwBkE]Cs:M]ibj<5mtK:ZdxW-v&mQ'RPD2>z5H]g)H26PHU[yF0ãU"(*g'favxkeX)G5Xh3OK&?K&^>nMWãU"X,HE+r#5+>rm1*DQCc;]X0/gg))aOhHJp(J^A]/shGR?La%hz,Y88t4>8gW)v06ãU"^dGT(wBxl/BZ+&N0]jk<3]$;#y-lWMKa7HY$k'Eqc07RM2(;J6^QR\1J89J$9#xHbt;(q5Q0PozX1,3k87cphTbgHDAcx:lqGVr>Q[,>kJ1,ãU"#PyK(]rIkuf0I5gnel4[U#=KTn;qFcJ0gs&i53GO3mq6v]3GsC4cq)3FiHD=8t%2:$zYWo,0q_h*UK-2Ua.*i6U&yAk--ceHV1D>ZãU"C9+T*QOf?jM0av\yMdyW$mb8(EC1Y[X.;0j.'X/4-0p..-MfXEZ&.nM>PuARbr<ãU"&srSuG]V?.WW4*6X:8PHMEI7+=l'UUX[faFx+rYChyr)5Xwbne]I'tKT4p:IUV#\uKuãU"x8/$3updgttwFKp8#R]aVJ9;y;rY>W\l]Jl[T6&$J?$TW*imuJRãU"Q57Qc,GGB4wRDjYFIoc4cOC=rr/&,'X(4r(8\N6'QN*r-K#-+p4p,f+#%RRZ#FjãU"UXh3Wi10y;*(NjTb(E,E./ZtWvV#mqXR]okVPC/K^W[zcXm_z0L6)KSFjjO$obFãU"aye%BCG8u:mr9X=^9>7*vUA$5d+wkS/jk.)v=nPUUBDY4(M4,4NtU3*48G<+b[b?Yq.u?RVBZFãU"4a,-[1S=khQ^Y%&^anH/ac(W\?sTvdBI(o.n8pJr=vuYU4(Q18GkMSdm_%Dy=zMãU"?VrJ\5m\r8_0Opk/\LQ)3K(^:5+TI8)qxi]hG)qP4mRrPxf6:YB]/Xn:=&tarLxãU"v&%^fN_&KveVaV]N9DdD#(M)PIrC%cPqin--sc:qRT52r9M,7n]t]#GY(bXOmNEãU"[oNZt88nJio4$\uwxwZ^>kAãU"B>f*qUyxp7ky.4sb*?&_e>mxnb_6/e3d*K$E*jOp5BaC_.6A)A[zmW]44;RPjf3ãU"]/?6/gk&M\RYb[LrJ:q%0v9/uOPnIMK]jT^%ra=rS>J5*r+My=s8kz6txa10r,2ãU"$]%NJ33I2lVjP=^Tc6E87lSn)>q\56NqBQ;Q9el5<.%<4WT3Uu-L(Lc.L[LWuybãU"tGH';yllN1FaGFpFa]fTslFsT?V^_4GP8R;,=&f3B:$[P7$B3\IUvJ9;L\vnR*(ãU"-jC:(XS4:dSnkXxfD5;<7ãU"6TAih_hVaZZi.nd?%AEDQBUfY2(\R<6rn^Sq\x4D92?5.e2L1\,2lm?VnJ+uK)<ãU")T?UUGKFy8mhYc)'S)dQ9WeLJ%7=m#SR>+arHnd1ng11RIsU=1EQmN+[c5/5O$X;(fãU"lFIbQD8K=$=.olIUZ$OR-&=Mc0nDdnBWLLP3mlO,Z)FY#-/RDffoeo[b+RYp0u[ãU"Cw29)<.G5iUZl#TOe/2?(&M_uOs9KI;>^+%j[HrfF\_>7ml]:%GgcFFnOyzu#/LãU"Oo:cQZ.fl0T6iXW&T]r+_[ie^'Mt8?Gh.wfMg4_zDWB\]=^gZ4:3B35]C#2[SE(6mr'qZeSn_rNcHi/7ãU"g/*Wf4fpo&9#2#Ojl22/)2Vh0$XTBF]fTBd0Ixw#$f\39a_[Hie<)VU+fNv8YwvãU"M7'sHX:ccR*ui0h(#C15/h>')ko:_ZctB&LL$l6B+[P&aL:'Bqmv8+G36ZVi/GFãU"[GH7/K6M*?xxka)ewEr3Yznx*X0k]7'srUGg\3CIX_iEWLv9g:d4WV7ZEQ4ZIj-ãU"ZA)kzPb#WgwCk3762Xv_xJx&6]R7r9fZ#YfXHp1,^([Gag6YrãU"$J5K3C%pap-*SP(;+4K3Wfh]jq:v4&k?(T9-XS*W&jSdJOXD3=(AOJc_T7%-PecãU"?';xIj3\ZjClGh1XWu5k$%v/:kRpRE[*2C/:0w[OP'\G;q]B4,*0B^#D?e^.(_dãU"Q<_cH(/d^XbrJRr1N&1qqB3leMg34p-r*9;4Fh._++Dg+ly(Mk?'b=6P1-f&9&fãU"&Eqt9:_xLN,PX5PDe%6l&lq,s\TX2rAHCrk_&/#nOXXFVGg\;=PA2+qpd3L6xK*ãU"FM*0oc&3?IPHKBPoG8Phh[dxCIH$&FR(X_Ctt:9lhJoB[PcJ*]tuQ2;23Px4La]ãU"$_tbPHc?c+eaop;RaJv4v.$:S_0/JNGHf](A+Er9WSu49(%D%6BãU"^r(ebpSrp;1_Flst?>2pu201LgE$lbuVe2YtheReq$RR7o[npI(C]$DMkHPZtAOãU",l&g*1'a_vQ-nVCewC2y7agFK?It6AvM7FUjC7_8WUa/R:eb+$GPbCpGpm0Mr2jãU"LYLbUvGGIL3GUH,m4pb.4a>bMMFtJMT:kZM#]5B&hWK'][$%8/NRsfS=w(x32_6ãU"N5qg$,;xEmqQiNv8hcxRpc0Js(Qd*JkVJttzNth6_K0ZkECiH;QUTN_=Zb2[x0kãU"qCTP?8D,>?ZGbJ;_BeJH2X\uDYoH;O*8&l&tRsL<%mL0]y95f]qN9MyHc$sY\xXãU"-Px(u%p()9%%'%-^%FLudIhz]3/bF%4%nR%%%/%%%%wzk%kqjS&%unI2jDK8uDpãU")P)adI:Jwvo7_#ouUuVVVV&Y9S3Lpdyha'ohww'l\o>O$+>ãU"9]ws(#/]#iWLONhsYAXlfffUEu39%Llj3%exHxxN&Juxju]j.wRkK'su*gA*a0^ãU"0UJ7D*ry+ZFK29VdX(,I[\dcJVSffãU":Nn9Kc$\O]\FyQYf%y_(/+mww5'%iMRzP[yP-M,rhgv5j$))J;M:f[oRojKtJBUãU"4Ai+4r1_s7l2U=6r'#c^sw8_p%=mTzCfVyk#,OJ(v9Ug'.K?ZNllBMM5(N,/]);ãU"TAOS%AjJkKLj1gkq*;*4]'GSLlXG6QBUKxmagb5h1heJ-8tcW_IuNh];04A/hv:ãU"akfn2\'?cJ7HcjP2W<=N*.DV7rsVZwd>#.\?0P^hWq3&cZ4.\)rFs/4k$BOluE4ãU"=B7uvi;bpr>;Pi'8LqH#;'Rm+;Fj6Hf4pbasCSWvJs\8]zo[/#4:1VUeR,u3ZkEãU"+CwG$'=pp#HW27*Y#rDzh^JNhor9mFXT]E,PteQs;f$ZbYixNvh<\:UXK:dhjWmãU"zkeKpE]rl*.=Pc.;j?1WTDNs:U>Qb.KENnVV*?WXtAog]M\bMR&.oC$]xBKp_AJãU"Nb&MN9z=6QYipI_->LdQãU"Nr:ioTb1JB?5lQ?QnCN[_T[#Xc=cVV\eb$*D6d2uqX#r##n1htsQPTmGX[]]\A)ãU"X;erf(uU_oZRX9gBMYA.lXLQJ?FB[P<$.lTVtVQ-fb&f1_^UY.ZRwM2DvcQb09(ãU"WJQDB=LNuco2zCH-e#,_$E-CRQ3_mu7xl$.'GD;dfZjf[5/i_D6^ca96[f[h\GaãU"0h73uv%OZ,BB_oi.Bhnt&dLgiHev/rs>od?Gd,$ZX5-5i=P^-k2Gi[BH\yadtSMãU"^jDLHV>S\v$7bNYBAMr$?l6TUxOoC*%F=v'^pC>fTQhYOs7$RTK6cP2tWBt>cu3ãU"k0TqiAwpcnkbqDL;&7kH\0FSX\ul>rcrPpcV>_-Gct?U7hg\Lu$gP<2kB/By]r\,hãU"$2=AnTK3flcxg#)yjJT+rzGu,LyK6]KKph5QvaLgRxb7Bx\UUl\SRS*Cqa?d:VA4^s+prsMuWS_*ZãU"pk58Z/S(Uw6q8c5ul5xJnp#P4dU'UhFãU"x/A\K22%Xu02UT'+MGf6>JLcCiTJ*3'dfd?_^HOUvt^V7JYunh)X\[PyTg_Yz>NãU"n(l._QUjdOLfTf>wcw8P:%PQw>)L'd<5vLV+ãU"[xIPJo:2PQ5\XmZPcVnB37tYJ\QjPOKx5-fh:7%6aR1s/En52Jee+R,]A,[tu2uãU"2']1$4C,tuAC\p89nOioi5*q.?X&_bXs,OJib/NnkrnZb7PCchbMlVV4lpz0S6:ãU"Y*q])A-BuL:Cgz(f[qC[m[Cr-O27D9).B\Mp1yQ8XVH/eãU"#YyKgA(fCh+S%Yc3Mp#L%F:E1%)yV3759J.X,G&,ãU"GtQc?9kKzomYq#3mq-INgr2q9t*t:cnI/r]wzRl#;Ue=R$&X0*,sz-4+PhN&7-cãU"mW.BM#L<6l7T,[P&CjlCi1rqmu1?BSTI>v*1>cx5m2l0E%E$03cSPLLb<2$'I'uãU"EyD>c,hvq:h:u_gWkKS=JV*)nkr?/7-2vk=UP7KLaMm+S:F)WDa:f6tNhãU"dZX\S^j%beeNz5h(9k27.%QAG\?88Mh2,F,?VuOEA2dvfsWzqBR6#tI;oL>Otn.ãU"BGs37;u*$K6A(Ib^W2Ps39]xc?%:Q;Q=fNIrgO$UUGMp1+#ub'M9QJaK#QPb[ZJãU"J[[oJo%**Si'[SpqMnCotT$I]\]%L#a.xd/B/hdnh1O_pt>JKC5r_7Z#egPvIMYãU"Vrb1+6gRGSP(hvLtg79/CL#cCdJH-rS3q0%2Pe7UR_g6opL?LVFf5nl7.kRzKbLãU";-)x1q#IYb2OZ+G14ff'&J4-m[/nv^'/ot]W&SM,JE,MsK$Ch)9ba0j>6Yd;?FJãU"z'g^i7puM+UsL/wh,j=Gq]e3=1m7/kkW%&GM)uLSSOWQt>K:A2#7D%ãU"(9FzS?O+cq#ToTuXQ7C+B_5J?I%RZ)TRvXQ.C']VwEaSB'H&3sSE?g3qe+ãU"uJu-At#Ka9YY%(9\cZ0U4iFm9kTBd$vZ7QE%B%NãU"ncsv877muahQTu5zA+wu69+%X+c8%jGqwVXi2a-fGfm,TUZ4WY$YXvZr%H?OISUãU"&9[zmn*o\XK]eVBIheqjm4A$2t>D'2boO]ex>rf*;9;_aBk];FaaWe5$Gq)ii3PãU"9q/YC9r^n68PCh==+lQ$Iy'aDZeMm,d;8P8wQ)%.P6CUfjj?qAMãU"Zesv$n)awmNf^-yjHVD]k[Z]?T&8[9x&$+R$Y+j-,PT1$vh)\Cs/oTi8L$CpisbãU"k,422]-EhhrhnKV=)N05,vxbY$LVfVwD?D&=[MJO\PmOS']B->SX\T3E#EK[dO1ãU"K8ySQ7QpULlrC8u_UKQ?A[0R3%MUd;Wtn\_E,-/9TPS&qjNda,f=$eovWD[6+a;ãU"ALpKM_Q*=UJGKEPvXduR8uJl)kC/uw:w>),A#9.U9=&fAN^P%wfOQS>D>\Ni2U0ãU"tDwX)1mItc'g;yN/r9F;Mc_f7HV:9'NM%?&_+R.+TdnU(R_p87kf_]28jxãU"/V)Vj.[ZBZS9fiA]+Z$[fGOG0i99fyk?#Aarm,tWy$fs&*93j+G6+CF;Z\jW3POLCvM6:0Tfhw[AãU">J'&HJ+3gg:nu$,#LAFTefZ\'TFAE%&[howh9Z2;)T-h22M;OF;1+z3bVe<^wgTãU"ST$h6:hhYhW'y7y3.S7cN5e(4dLksVQTW)Szu$q8XVYSgT=VUD2Hh^:gO'3KcpSãU"W;X;JKmr8:q;QfeLiKcyInt4^#]?.4l;ha1k,E6Pq#y4s#3L-ZIu^4_mV(G)t*ZãU"7M,Js*$-Wjqm71D=S+WTVPM,Bw51O^..[DuZ^Dw#*-H.8EfJg8.%sp;>eL+x\,:ãU"P'Kq?*61Jr.]RBNMAKDmS:&ACx]O7JX=^:;z#iUVJ.c;9h.WYjVNy'iN$l(?8\/s+E*oãU"1$KS/\2KW%N\[BdfQOA&[(GE'<=ZMiMGY\dHCR4Ra:F>o1)KP?EBSVRIBbkRf=XãU"$+&2GOOOs9h9k=qUFnc_QHeQ.55'v2l$lXZDS/#$[nl$hGspVb.'S7/VkQr>LD:ãU"a?Kg4f*ZLD&CCf6[5RL/:Zv3C_6#\B?2H*g[DK-tB-_ãU"5[>CZq8g_d+z#P?$L0;pG=xRT_ayfYAY\K-JE&e5%nXVB^j81^$ZCT9Y]mF^W$bãU"8S>[Y:tEmx/&X6/gCql,fhXBrh2mhECx<(9Orp/)_B#3G3r,W8hRmkJcZ'PG+0qãU"P^i8f[FG.ky5)I:Yg3m*5^M-3E3cCk,=2+mmvE.S_wdK$U8aJwLNkDX?T_0&G;GãU"qoIkPZV^*8gnEQr7mqI9jjMWSbk)M/jVg6/>4ClãU":0>wmn4vs$Zgvgub0rH3(lt0D7VhãU"ERTWRkmRLvPT.#MPriY*Zh,M6.YUZ19.$1n3i+;uE\3OAO1o+tG;Frib5%V\g?aãU"Bt6v$vDNi&^v7m^UTCBhFQ*^jxS6)=7'0jN+.HhG]U3x4pe*9'xp1YLYMQZ]IjdãU"\kn;\k^pF1HwHFQB7Hd('PHG?\_:'bb#f53JBD[E#KDV=$S5zãU"Z^qj$gXmCPEUycqdz9,<%*VK)A,den(ZBO#-Mo+-RLpGj32M4+kk?7)g,=rl3jFoEOTPãU"9Q&fUHRhN5ZekLwLCFuN2.9AjL08J,ql+M#'4MR5wZ&-==AS4dEg_$eP,S<[hn5ãU"uM%To<6ksum/Wf$wbo>r9WYr*I7bDbg>z.*86ym2:ah$Zt08f*K)b*lTCFK^lJ<ãU"r94Nn(;rQ*R8DXqN38mãU"D>%+zJ&EcZYv8o]up$w8K\KVu?cl9fP=8lmRvZFlKRZJT<8YKmo&+#DZ^LpG>6qãU"hP$Jh,^k2:jS%Bb%rb5(;^^BoaOjQV6E.F^*'EnUTOBk?u(_i(jgj=Ez^6K\//oãU"ljDiTWw?9u/WIQ)7D'(MwKKH6MDWzDM5S_I4)f9Q0m-_+J4mfih6TK[i7\>A9&yãU"yUR((UJ#nh_'2ic9$Ur2JMR_19k9Z-(T+oduBHU;'B^e\y()N,f?\)KF*,wa^o1ãU"w4(V>P8gjifPpbokuTbo0Ug>'H92A9Etpk&?*>cGuRPR1sIm9clYWr_^/II$pxqãU"-fP$?5\&bE.DZlD\WC##Md0he\+\--h6I415gbt:'o_:pi4oFE'o*jbHN5-9QYXãU"]jJ%X.Fi.v(Muk92oj03Yq^1<2fqrFc2c,4,hobHF:fYEm\_g4RjT.y0gu<&BilãU"76hg(SeeX:gRavrszeqh/c-WKe0Y00e=7:?k2NaUKDI*IswZdRXx&4q?]FJHH=?7DA7%,5%x$bONq)NbfIMKCekEad+]d*ldXbEh/:%M\5?&27#\9vX(ed/^QbbaG[ãU"_%C]MJUCq.$BMh[qUh(9O1eFku/Wq[9M:_$q:v(&-S;]/4OyH)eg-=rU95skM>^oU_Ojkm3#Kp-q^u/L10c=0WbãU"36F?(a?'SSs/lLge4hN^c(vi5dV[.F/Nvb$9/UEk#C+g*4q;U_EQL).aZhdg*5bãU"p=YJS4CBE.uDa_(d+3U%x:A,F[N7R9g$:QV).)zStU+6]Q2)H:Y>[,vqb#Z%c^>ãU"'(km]wF_f7Ay#]QkW9p]Y\L%eC^rrd4rZ40kt>(GklUIU0c#h3iX7L=Dx#I?YUrãEND SUBãSUB V6ãU"Sw:uBTieWtPhODG6S(w./5<_%+,I?dp:5A#1m-&7A$a^qiw^l*(sV_>e=&0^Mtl+-to,6$uxHm0uj&aOY:+WmycFAãU"kWv[R'c-bc'SU++Xmrlq9Mf$5/CmiDy3oj'B3Xcnl?57NDP/AR>mfl8bR&kHiQVãU"ql$>+hwga/0QH,N0R3HqZ-MS:(6TT2g]q4R2z[[(T7;b^mwãU"/#n+h(bP:CGAALGO2U\4$Ws$Is9,D,6zeW4QS;A:f7ãU"27^Mx^rS?YhXA((G;nlf2(\U>pF6$$O:3k)pRg$f&9eY*]Ks?'/ios-j,DBB?\qzF#SDu$T2f/d7T&t*K&wZ^ddkAYMI%ãU"Urx6,uh%mW;:[/E>9UdfY(:JMZh^rsN/Gf7>l+rdY_VKhx_3LfdZe5E07vel(iãU".\,)PX6XIN;LfGA+]9Zb%i$:IS^wfi*Uq<)EONqYmH;P6L?E]]Fcj&c[/p8WB#$ãU"r4;]&/ZBFmToOiM:-7Aa;UPp#Pd>k8+QtnsK3U4x?B77OZYAj*/MãU"50FfnTd'$H0x&$H5%MN>Z(4K[D3:(G[N>#4+N2wVSYFO+uQrl:=]D)0IP;5a(#L2lP%eJãU"XLa1[2MeLSvDshNNDi,-:'1dQ?v.0ipy2+^xS/q'hAb,.;wzs(sãU"[BseOtP%)Oh:H3BXZV,Q3im&*^oTsoG)lãU"oNMXs+*P0e)8'8)CEW,H-;XRyD#AWp9o._C(PgTLySkg)5O^BoFa[IRGtol$:C,ãU"LYySZ(uTAFC7&+4F7WNyCFB-'^rWB=lvR2K[*YN1lUufIEV:y<7l6pn:;o3Ii'qãU")Ib3:;+e-v;+Cdsn7sq)7r:)<#pkw>]Z0gb;c^y)$$R#qG>[X=*_SaoH5g8sKa4ãU"y)o^:8L?6fM7VYCs5f+h$L/H5nQq%KF>]^8MQvUy2PQEOa:ãU"Gq\%4kIn$>cJW8d2.#8tfg>,d?0?ZzCRmlxp[8yZsXR0Ml5[Pxb1eYlo;F6HoU$2ãU"so8E>X-IdB5l:&rJ+*-_OpcX]33D61s>/+Ye]3No9#+W^ãU"2yoDF1daidgRsD5+z;E\O:vV\PTxGfeNMPL]Kxbm8pq]I.]m9i<)KFcA(wrãU"Ce\Q)<&0n(3jw^b:3*mpl?$KhJHfv9'hEjF'/*dJ?k2-cf)Hz4?s:3/MEoysk&iãU"dWB=qG#cBmMf%NaqR>3djvJ$DsUeP.(xVwN%RTYHs1uP;fbHuEQ6)H^eT?JKYu'ãU"c=#EtK+0-+HiH0nw2%uREfdZsI3),DTvLF6Bg4MNwB)s.Z&=hCC+<>So,+x?GQ)ãU"IJI^X:RgPGdDmVA:f$V9qg<$lMPUBsbpWRi=n,Qh546OkS3&87WkLL(MCxi$0]8ãU"[AwHnSc:a(b&e0>.G.^bOBac-;cKD0)[Y\od]PnJq'5rv]iG-0SOP.+kq>o1^2(ãU"h.'V,^o')v1pzO)NsPBYn6A0?;-7-HCBk9zjD5P+KjZKmFS#SBo/-#xmQãU"V^Rb0u,;s8TdH0ez+3\F[zN?qDF,V<30EFec]'B_dAJSM9iTeImxGum:b(h7JMTspA=o6r4>5;tãU"*<.Ni03NTB[R-d6*E%W*2UDdHDkDF=FEmj>F:?-RlxRtB+<5Wb8WbY=FQU2>cAgãU"[v41hys_L%p[5^;7Y_)X\S2_ialG$[IkJo[VLiQNs&6o//*9lBb131xBqXf?\g*ãU"gkFCe\)]kSw-ZXQ*c/'5$e;trem:?DunA4IOZkxl:mD5&Ac5PdksAURf0=XPG1YãU"p-EOJAZl8Y2*,YBsikbkEX7_&2u'l'Qg]AW\a*CP7-#Nz#_M0zB\0t43ZF6oCqKãU"Y3H\;IaJ'$q:TIlcA;IhVqZ;CL'h6=gd=hJ:?85(==gQgcFuRAx>p4^DXR[GHABãU"b7-M\b3n^53=Mfo'T\.mNL5qp/C$uTbFVvS/Hv7GSIbFr?(3s]axj1F'ãU")lVblqPmU:qU/6)\tLXQV1z]5BGvgOzjR6_0C*PF>$+k;x\0B\StcoLQ1m_WnYJãU"Lhg^ke57_KTK]9FGRkj$?RBF#,qxHf&IqzMeT$[Lmc5Xza62E-Sq^2)lJVEX&gaãU"lq8K1)6H3u&*otyDH5fYn/g&8F9t]#V01U1A(MU-Z=_<$-mG/&26FSKy4=r$1SlãU"_avEl/%$Uk,bgr?QPM#h_knEStm7JHV,xGlg=9ve]hql7)k6=H>9NIV9sEL87\\ãU"PUb(5FGBl=vf/T\wZ)JjTHrO$;Vc0Vl;#;6sW47m'+26jD>Hk.Ek2_])E^UwRTnãU"^uF5FG)w.6MylXgNQ$/St)q,DWh]P5Bwr]]n;RkHu%*8by9BE_M7E4M[7ãU"9PnIW?$#(KHaiid>;tmOvCzTRWq5JirgivCK>L:f2:pY1:JdPp6Ee'aRO5rJKVFãU"#'6\#ytZRTO?5EkVj%VYEXD743D:%v^OZ207;7DM6;/)C-5*iHpw?B;oy^=bFP6ãU"]pnRVDuJkg+CJLO^R0LZbgxHpHPr41X$Hvw]Cg6-\XbeO>Jwdf[A>nbCe]Mrm&b9\Ch%4\0AB<2^Vya).JiM':y$T;MQ#X49ZlRe1fd^>vLh)5eHoo7'p^f,3BM:IQ5yp#D,F=Gc6NR.ohh,rãU",Zq8=Njc5C=a\tbnksj9pu',Rk+VpjXs*Yo]WfWR>RL5b5_L5ElSW*eL1ZC5TLpãU"\HBxm$+''E#-S%$eRCs+2IW/tDQAujl-#XnNkrOP#?]=mf6W8Mx0R:W.mC1&KN0ãU"OK3Cbg6b'oUXR2J[.xh]x>ZCYZK'6t%Hw^ãU"W(vi9P>qm?UhehciTfTeXP+;d^nBU6uTGY$dpJdkua,g2oSa=ehwetNk;$ãU"=9(550C1Rk+(5E:H(Pp=oYlE$8#wbGjRpmp?;(r-m6U^cp(h0]HqãU"Y79E'jV1\\S_zWF_f'-fsn#n+<6^'LW?q^pCVCTLCzEM7Zd$EB\o)ãU"cetW)Ws$OwBFarOt1]Xcf,T[-=VjWa2sZLe%/j,6$2RDa;vpBr%^i73D)6r:1.mãU"n6aR'[sYdWMO'w,>Gc9,iYCs]#%hy>w3$MklAIXUscAZKtjIZq$(vdu)bgi_grlT69an9*/I6m]QWp(L+pWP%BD7cDO8meJ/:S:1EbSãU"s3Rs-bwD>/0?s7w0MN0&l6o5Ih6>Vs=t[EYlK_U)8Z#]#WX*;2yQ9Y&tANxg.KQãU"ZcC2(BG-4%u4.tVWdH9qQt9_SE;Z][X6D1C/M$3OXaju/EZm&kbixT&Ka]nHaD>ãU"ZtQreL7qpZ\fS5_:4L#8xEkDz^%#re4^]lODm\+^]DV)FAo0m7>SC7cq$*P5alfãU"13G-oFyT.?>/VBEj=J+/YndW=2fRa$vRN$6u/o9:Bmz0wdGvR[nxRmf4b(9;aIvãU"qx>m)R\^Hju,utNb>_vkTxBm%]7'ikk>Kn*7.LeOK%%ka6LQ9XfG?uDIDjMVa(YãU"WeRnljzTZ#riSe4=pGDmHpd>m&_=>.f9J6RBO$8w_Oe;-IiuB=I/FDbb?$FkhILWNm'[/TãU"#X(jS8u5TIqS%KN)SbUvLc3cVD\xIMj9BJ6<3/6I+Yx>x5-ETW8cd?$<-mgRhKUãU"#k(J2_QXmf[*8Qnk%GL/:S5Ne1qarJgL)c2kAS9ttT^)GnwJ;yPn:Mjxs^]%ZVrãU"+M9'8S$pE9)*?9glqC>1Uuow&CfJs3x5hmo)T*^E>HM63YãU"UhjOz]^Ri+AgoC;7MU.?N+Et+h+W6Ks]=KTG#:R68q8dOy-7%>]eq2RV/7%_tZ5ãU"1OReojN6fnecyfvWQe[AmYQiDJkgT$gLIbUah4%shr?y*%U%1zKC6m65rhStTg:ãU"po,W9gXO\n$f$:5wZ(iR0MI\z,g^/5OZWs]S),ãU"&I;22t)_L*kSWfWx1b7k_vei'BUYP?)L=y:GH\_*CY[-f5HK+Ac50MXP$nRA%A_ãU"2sl)d=GbA3c#U4v:lq?P4B?>=:mlvt2aNKrU[Ry0V3]BQoTkQv_dZ*L.p0aXd^5ãU"IDq/9YUCeJ]dEp2$O[C3po7CUN6+;_>c4l%dw8&ãU"Yj)3j4EZ+aOjO:t2\AwjmCt;&:5d8c[$Py13;_5>XMua3pijP<__Kg80Vq3'yAzãU"3z,FN.]*9b.sj*qC)a/OR9#9j[8w5zmpQL=^-b6Fp10\acpPJcJv]sq,q7++RZWi7oz2c]e+$TjF;^ãU"guv>:B&U,KRr7RZORP./\4D)Q$f:s$R:0O6$tlKCD><*.O^Br-V.Jj&5Qgi:<#n]:z-#MK1nv[sX8qTcãU"6ntc(CZ]&[541N:+lez_cRN?\JN)f?l6aq)RcdGXV(F6Ju9ho3G4:7Jn>Kq&>pf3]]W0E:BB:Km^24U<ãU"mt$n35x1Hqby_.(f'SR[8_b]^wmj?8oTPalJOD>U?Ol\/Z3H#]Fm]^nN(=WWtf;ãU"L<_wp\R'o+Z34POp215_q=>Ded4SPfv)4JP;Mi9XeG$QT4Pgv#s,L;>l'=Kjpn1ãU"?_o8>LGdSk0Kd]7Sg]CfMWqJ1e/=*Nyq&OOoC\IGx9G>;Laf?^^SaVR)#q]KZ/aãU"MeC6FfE$9is+CiXdq?LnajM#gjmk>RWBBRJajz]s2a)lHIJRãU"SRwdg%pM_H00'[EKBJ:qD*wRtZI>20ZgWQx;u_\cRIc_H&8fq&H]H]sRyUW*D>PãU",H*I9O&V4Q:',^.=]qQy#w]_xG0%mz($6ãU",/xz?&[Y&_i2D:kjbeEF&$]^&fcgalD+c94C^2H\DNZI=Sd)?*)%'&/E\V+RG5S=]HIgyId/7*/M+9/ãU"%xI*+wYOKIa:p=_F[%IE$M.2+U=e-1\3tFX[j-:Gl4,8;2wi&3CNP;/3.u2B(^eãU"Is95Nr>*bbfEM6-8v'Vk&j3\vtFQ*uZ#L[z#RZfn?AOdIMb+QqcO;O*ZZOãU"Y#MD_A0da[-R4ZI7#lxYm^U?NtU#_hG[,&^+?&jI=:KWQ/RxS.t;t*T&=s^tMduãU"Yb8=b/d##LuH<-n%+:aj&K54>vs8R+G_#0/VP'4R;kI4B*AvH\l$qbdv,,.JIQ(ãU"tZ)?\dQf3$4B^E$URt:#74n4T2SX3RB^PXo1a(SN/bnTPF$62aIBJjR)8GNP0MIãU"4UjpkQKrlT7a<1KkE-ptrt9r%Cv?2I=jcP_JCpEO2BD'Y=B'&lb^a/Gp2mrUj;4ãU"_jfDdf]QHq/UR>OS\&VW&u\Cenbad-ãU"eGhz1YMAbImd>X0oTG0*6EDAGVlV40RNK,r[(_OslRd2,Qg'y6+:?+]B?G.)6/$ãU"aq>.>8J?7BT,L=D4\:m4Pt:S>1tZgDM.iHX$jr7fv9-7YLfj-=\X$QBcIG+<+NQãU"0IzYMUo#qDWhQcCap1B\t^veE-s<=Y[1z6:TglA;sCV9nLdB3*BAtcUxw#Y[jU=ãU"rIW]N&tn:C;4&:#0j1udGjG$W<$ydT6fB+(nFpt,Z(A^*bo5RT#>K>UHGL)09+a'OQ[er:>[=)pTWãU"*sLCYj7#]b?m<%Qik;LB[j++[XMxF,\D6TqqtKU7=%T8,jl0zGleg(q]I;]?i&eãU"aol[LKrNTiGF8q8xF8WNf_\KUR,%j3OLm^2z1^G0yeGZE3_H_>f%_rbx-H\NgG8ãU"mvh59UUTYW:,)o^WjFIW/ãU"lQvS,ee4NH#3XHgYI=,CVwHiL0;VVMKH.n[N,Fo]<[Guin<2\BnFTKg4;57k9RaãU"wsp:0UEJ#lyb.7B$H(ABuh7V\7ouuB+etN=,54Ce5g94WjGd8>\rr###R5lq]4.ãU"AScxVKS0yjdY:[aLoE5U8hT;=db02G/?XBgADl.0=D$P#A(v<0jR]yoAH;]tAP-g>hz1:m0LppZfEG/1>=s<#.A5]h/o+$ãU"g_t5XR$l#B4v:T*D7oqmPtB5F7lBg;k7'-qXy'r.Y2:WuC]D9G9TjnEHw],?jHSãU"3%eVZCmNVvBVLmjkvf51)sB:C2z0J+,bC4J3WpoF)COsJQUjQ2N,BO_CGIaXNJbãU",l>l2*t2*/fIVmtf8?:MPsnrJ-;+AYS_^GXdsn.V,2^F]-$gQ0jqH>,VIqS:2,XcãU"/.Z9oe_WZxLLX'*Y,Ojfp2?_?030#x7cZJNaRq5v19_$L#<&2QLkV5H06OBlp#[ãU"t-JBEO#5XGS[tr2;1*[8&=:G6o>S[TeYxs*TgSgZn0g=B_w1.(82$Zwo_(?B]XHãU"Ca3>wlgX;KRiW]NNejC1^13v0$6).qG8uk=W='v.>D*>&6NlHYwwK;gC]5l=.8&ãU"P9faK?<04aH?jV.mU1\-[PKI],A:=2DmUvgjS#aj5tYhIGseC=\$7>'/Q'l0nr'ãU"70t5.X)(ucDsR7n=al^o8eh;MXqot9['_0w>e$W[0MnSSn*&W)$%-nuzZ-i(V<3%Q$I9'NeTFTIãU"'SRgC-J9Z8q:*lc$MVL\fX59wi93a4C(,#iAbAhdpK9#3SYmU9_+W0b7f.j]uOUãU"r\&^>%xS61]/[(_Honl&sscIo8E/?,&[tk=5HxZ:XOTQV\\nr,Q8K,&-?^eg>'\ãU"q8]4Zu(wF\%ir06+>^4i71KUzJ3f\+,_liLXu1d?aa+yt(WOn^cTQ$ãU"Yn[_RJNjK*[1M7:4-\\U6D,gQLlH8SX^V'SNgdu^-]ErM;J(dP^XIC5l(4u2ho/2[\8g?_le(/St%uZ#9.AcvmtWHgw9t\3%*p>T'dd[f]ãU",fn]>dK[WWhRQnu:d?P=*SFO(n^p\3DbK]_Q]tX7Kp_63+>:ttMt6M,)GoUUL2fF_ãU"d+m[K*ergzn-pY-\MTk.TN-Pht0+PaH8\y8gA)st>oZ:u\.9F?G8GMMkfh011?JãU"oA1bk/JL9Ec$dGsME=KpdAK8I&hMNx:4?V5:rFM?rE\?i3YãU"0n636+kn6z#VCP&mWDD>>R8.T\IL=?HAS,>gTt$/dvT4U0-?QsVcb(RnM8wP,OiãU"nljuMEa).0hKq^%=T^oxie$#.+)N/Otc]ElG:_'wqD%QJD.PyS?,MOrgo6_nEzqãU"y:lnEbUsu)%Mu.536d+_xaXHNBzQN9-D3'sR_1oiAJair6N)=M=V#A[;?ãU"UKkcBz0UOGij0cNYgPug/->tz>VsDKF=?6&.TYYZvd8ueJ4zbc^al7?%\oj8GMIãU"R(rP8W1S<#5d:*+.,DTaDF4oYduM6JDihG54kijNOL1>gi=X81-.09>8w\FNt.XãU"_g(Gh&)*9bZF=IU4^E,[.c5lH+ãU"sRuFCl8I3LL-LQO]Su5-%0cAo,\WnV_J<[<'J/#tLT9N8_R8zQM-GF5H]afdghTãU"ay6KSE>[EMb8l+a)Qz$ãU"GE&jcVX_I%6m2IgJ=+s2][0Z2&So$b86R4QHNn5Sg5<>&Blp%GXX8;R%k'LLt.-ãU"t;0tI:(='KO+'\ASwrioVneBTq(0^VY.Ma(DB4/zJ+hEus^s,zLWU+3qãU"Aj?EC7l9cD+deKJ,q_tK8K;>l%2l/W$43XmhP9Uk^(,l:8lp.BGx-&p:QPRpx$?ãU"=TUS6XI96oT9Sl8g2;r9mKiCLY#/BJqTn)$Ug.g1e$ynQq=FHB%+.n#qGc%,ei*ãU"r#0y+2.BFB/0juN#Oj97gsorrg:EXIFHWs(josj[HLkR8?O[vbN:pk6iSXq5n]KS)?f?mQO/,-9Ps+h)P_^C4rW2,MHr<[l(1x>j,%f\=tk]TV)<1)S]Ru?fv.p.MuOm25cNãU"0bkJ9F(wF2ygN:Siqc=ãU"DCp,&+Ll=HhZ8y^1N:e;dBb8Z%6I>:t2'8s4j-K-WAnWãU"0xkQ'FLDL\j+=nUcBPHHNB>Lf9.*wE_m,CjLY9s[F[_G\''PqI,=$ghDP2Mdlq'ãU"6^c^s_;U8NST5g41NVC$]lQXI?IbR)?/)$6=H8/6c%Id4[a=0c+zSP5,H(qmlP=sQA_'^JWDn1TãU"4,r=D-%*]XDMDkvPsO(Lo2O]7DDDT=xELctI_J:Pjs=d)7M:nzBO29=pT1\>g4SZO[Z<ãU"wZAK3uV^a$j:^YceFI9UwtoMF7bqB1BMb4P8gqG]i'/=y>c.\FBFT&O*kTww.T\ãU"4EjbYoP*AqrM/;KO:noDPP<5OGn[.d>u\x+^TP.(LKHZ3?0ps0a2N0p1b(s6_6Csg5wA49EHmbp5:aMbCWL=9TM?iLBcãU"Kjg._^bhVIãU"v[Hm#K)khL(0JKVhIF,kEvu?raJQt3OINv;<[nCoMlHAbKpWb%bo/q4U,/a\-f:ãU"[=s3/xl$m:e8>P8dP]E91\'J_cyãU"(/tl.QxFjtq7KC0cUm<8G3#8b03Mg-gQoX5Hke^PXi9Loe89oZcoãU"hG6*.Dt(DW3X,SqBq1LM9[=3/l0U4[N5p8ãU"ohS,csZ;e_>FiEFM21N>J6.*(/qcSfIILAqv5_$3Yn%gD:+QtQjn5'rb#6>wu1wãU"_?g*S;p_)GRv43+-B79P(hJ6lVUb)l?vL.dQ1XrZq#6?fMZIb^b0$to?=#QuDw^Ek&MgitrbV+JKtq,/aG[7%4hv#'CbXX,i^X^b4HW/*S9>Zg%hHãU"kpqtc*W.&IB.=x\:RKt>,jRROZg]kMc\h\a9%.Eiz:^_V5NVmM=d8?<>#mzmqd+ãU"#;84>b2a0WAl*TQmaU(\Zmtea9RphfKhX#qgU*S5gU&mE$1haCHu8)P$JWC97=dãU"YNQRMr[sy9j7cL2418RvAd]eK#ER;&8&5qV7&&qnEbm^9ka24f[s3J<1+ip]w0bãU"LPUK4^LVRbG^^E2Qs3]muy\&XJ&(J\fJxk>m%'H&t85oMw=hj1Ix%,&3=xX-^DgãU"GoUUI>)09p(9P;v-Bmwg)1[ãU"U0:-t>[$m=Q_7XKOxl=Mv\R=fc'zjf6G$]s3UFsew/S_'7jf$FH?LãU"bB.CUTs?#o_/Fl5neD(R+_5w4&H.Y#X/B6]>G1W^zVHILf9-o)6i^/^iu:A^KotãU"eP%EL9bz41bg=oo4;TK_VZkf>afb(F)C=OkF54N733q&C]UQkz1)O93,whFDfdGãU"jM6e*bl>bb9mn&a.QsDKMm433OFb&o=LZ*.D%BU)NtTGInhXDlMlG$$7kBxK5\,ãU"mgR3R#j8?_v4Ph,EVE.tp8Szmg1F_*LZWd;t\Y%wv);yt;fSw-wY,:KZ-*#;6[PãU"]gt\#Hx9O)k*'lfTX[c6w/)d/atciG*jEkqf?ePlx(r,U3^[IX#aQ]*f=)G#eFeãU"#BpwI'e#2%UN&7?YK4;FFJF,Y*:N=>(#)m'0uBgGgY]W2B?8ppbZuN$h'GoKX:j'*)+?NUw.Sn*GFY$7=ec]hkf5v#74Pr'llNKq6gsMdRIxZ%WSx?<6jqDo9#DZãU"18Jg3Y0\lrV/V+bdeGv>gwe/'Zmy_oVrX^H5];JKCuu#2d:R3j*t7JBA*b15DYXãU"X>gTeA6]JQ8'2w,*6GNWn$^:GC7-ih9ml6)G?ãU"EtmHp9B8f':?#NF)HC=;o$&N+T[0d)UQhQgc(]a[2uG%u+>9L2JC2IpI_M/^ãU")EA6dY(Be2T4.dqkiKNdp4krY5F'qQQg5;\9e7,cMm?_/:Y3.s%>Fr)PioV>Sfeusx8;bJ[B.aoh3da6Pb&fqB&Gznt&_ãU"q'UspFjHElDeC85vSy8oB&))JYOb\XdZTy(e%v\r:9waB3Ls\PmC5hov=8tLIdtãU"-1Fq';9G\>-KTzly^IR/Ibhe-POa*JC5OV:KXV2U:nwRcX%i:2a.pN3eKf.+Cj-ãU"NPGu#_1;r[qaX9Q[_)>u.4J%ZfBlNCZ,/XCxSgX/v=1sU_pKt:Qw'kK[DiCQ8].ãU"hNF#cPTse+/SC:VsqsXR&4B(/9f3m[N/T:dTAlP2U;a)uO>ãU"&eb:GR5+isooMxTX<(Rtz;\y?U0EF?1Blmz1u(2C\bdKw+7wr*4$qmC6;K8p\0_iB6u?BGk>dL(m0FP:r2Gw7q,;uodFVN*[1X#2c1%vãU"_lYkd+v)Y2Z1n-Ri&]E4QTP&7nec=JT1:\Zm\\mJa39BRd?rGR#;=:o'8>XALnac9nBGW#T6.WãU"GUMsyQ>),fN*D-3ZMDrGryHhF8>93Dj4iBK<8T'-&5tQ1S0>g8KTpyT7=burfQH*:l'[R6B=8CAki44C3?h,Pnqz1gSxp0ãU"MNK:FFDw%hDpD(j_1VuWJJ<[z^lGXvAX^j)/hXpZoh-5lgm+yQdA\181%T+M%,aãU"dapTqC#<5XDm/AL]I+lF\q=GmQ:<6z\+VX*j:Wo[Yb>eDPb]5LNc4vE\]L^xM1,ãU"0k;-Nx&pv6mMj9nF;u=1IERU^qII,hm(m;Iv$1k]1.np.8#b&'_Gk5\umr6,z[7ãU"igTG[p,S[72c6q?H3,w+V>,\/K9vmerM-jtg-B;eN-YVBlj(2NB]G5AbYyu0vbmãU"$gMW#gv#;^bcKQc]WhbVRR-2b9JDH#&%13ig,(K#ZenhI9JcRjJ>+/Y#cyaTjbqãU"Dgl=([-nj5aqU7*mUc;oa\I9JJb,%1M2n/gsPHCnGExHNA3Alan\ãU"sA4FYbd_4,0f4W;/S,5I6fL'mg.BLvhJ:IgQ_k(GK^=kBf7HpZv(PJ9FK8\sS$iãU"bt?U<[/5[O'bE:nw=5]I[xa:OOxeGp+NG31Ay1y:g^egWm*::aHa\8/p=ws_&bLãU"]L=G$q8kd*%5]Dy9h1\hai6,m'ORER-DA\;VZk:5v+P2qkRU82_TuBq3HZ%0pb\ãU"?uMES-n&p;5kNY*v[3cs0w(+SãU"p$Z1q$>sXpMl4hQmG;jTW\tCQG?Owou37\Z%Yw[6<70eOdtTY_Tjk[0m#7IX\QBãU"QC3KJ?6JRPãU"DsY5]VKt3YK,g5n;vGGRnn7=LPQ>2jhac#K$F6Fk9w)>w&e4l:1[6392fN>t,D)ãU"?L<5[s?5KX6tmSEqX56AI24/vMpbI+;wkHEgA;UA=&\uLDR#5gF)niX+ãU"46rO'xNG+DNxuTis\i9+Mt],khdRYnwE=<9;Iw&K>oj;IuJyY-9Z_kgi8f6^bG+1Taf6ãU"pNf1e9DDLzd_pi/#G<-KpH3M)pIAS=C4x=;^'qx]\j9[hip^)9dm3y+9tum:1KisAgTOLc,oD-2n.&&VP,$o1zF^Y:Oi?8dm$'bCA\(-%ãU"4Z5BWVd0'2J63k>CIM?hUhFKn]]q.pNMviBr9FE$u[&)X1vfhZK%YjF,uKlãU"Jj/0[5Gs4eNfw(]4U*m^n23[:XY?O.9>HY%29fA$E&L?-xl)[rE0yL\2t7obGncG+U)n%iH/A_=1tBiVX8=c.Y*j5$X-*^C/#]=2'M1;zrVUTIjVID]4_D>H?-'jZM9_L7c1>>Qtb/Qa%>7[VM6tãU"Kar1HT=P,\_;vNx*Fk2bBo\xPPXm2)s:cSbT:VS+TMBpu^4ZF]A%s>>JkoK,MB-ãU"oTTS0Um_'JT64>gvphRN8r_PF)aH*[Ic:4u(DJk9M\/HU?yZ^F_wkTv_wRO9.67ãU",8.nG/V:sr#WJYk2w3uZ_%$FGh2(]9s\Q^)elDa6DSEq6)+%-Xb=JCCt#5Il'eUãU"HUvbh:R;0usIC*&7X+iQum'27uB(u*vS0PqfuW;sRJ]'NEbXM0OY0*?1hoy2=<_ãU"EtEY4-0::w#Y$c+:H9=BDQPbOdfr;Pv:S9fZ71E-C7GMe6[49oN1lcfQãU"Vf,XxN>[c-$ZIo5f*.G[^Q#Bi'B4krJJ7G[N&o:9s.5,.u6MBFn3oPi1\tYvag-%wSGi41?&WZPV.FBZFiFãU"6ujN/8:SgTa;\e5Y\Bo+p\(y?l\=N;EvYeE<:TR]dS?s9WvI:H():v^MBlSbQxwãU"s1?t?Dua4$a44&D]6[e3L4oP#J3al6uXL:m*gDKz.:jh1ARZnUWS-%xJh64QhE1ãU"SrbGU[m768rg7hO_49C8y+ykU#Q#eg/tw.8b3RQ9,k=3e08*)5P8FeG,Mq?]DY/ãU"))UBOJ^MpYfYVE/U?Qp&DWlQHMojm4:CqG0kJIYYFl&G'(d=o:q^o4C(?l+ce(7ãU"Iea1imt('nQiIr8Yru0:hS[3YCQ'9qV4rSp=bG&&GG9-H+^9KNi(DR5?_-\VM-5ãU"&??Y1=Fv=Rv)W(R%_u6K9,N6e^pJ:hV=1G.,xIph7c#E6wNhsk(U1$,A&+a$k)xm'C\89:PsK\z+C\:q1?m6pj$ug2??8I],xr9UdkqãU"\1lKY-J;nIR+td>u%'q%J2U,tCoGi7aEin0gxfY\>UAVmGnANKmrUJtrY7617z1ãU"x*ipb3b%[s3RX\OR0AvKzn04T.Ip^$3qc'iXs1=;w4u,s[xujgOIexTVl,tTfL7ãU"gz$S.%HI7-3#8++rm>fmW8ãU"'VIjDq,d,9v/c0_i?xkID<:Q#E:e.+sgflf$aUcRMNvXG4H9F6q49EA0u^S%HVhãU"$pA_G^.\Z6SE^Yvkt2zgG&M>LUZJL9a7qjt,5F+,RQTB3k-DNY$kpy,\WBr71wbãU"OthdpMPap*D&hlP]SFTOPw1q,3ZqGenif=uJY<*&Bnfc;v4n&hXvkPV1B;P8ZtfãU"_C[Bh(yudgRG[tBjCRf(df?W0PHQOkRhaw-8vu2;rEHFqa?Z;w'ALClLVtNPoqW,PYT;_SS$+XAz]8=ãU";g>gS8M?dTnLY/XbpPgTYH&33NX_i>KSo8p'GUTK,o8a6i[d;g(1;q#w7'gSm8eãU"^3k/v*2p/u^eng25kR37BtjS]M&TFic4i'kqWA43YHg)HiZD:qpPyrEC4w;)72$ãU"#Rf9j*[tQZ__q_ICeVãU"^5RF&phDfa4^?1q>_mAR+Y9(Iq:4Y(05q\i2laTT$vXh7cy:s9?_2llP[I1/2mfãU"mR0yDhFlJqyJ?V5Ufuj(^LPt5RYd3DM:-%dE[_1dPsdBJAClSBjHSFARf\KR0PHãU">6x,fFpusmn9#YP=]?cNVjAcrA,m-F2lbA1s'n8+I49*V&g2AiZu.[$/?Sg%L]DãU",CPGrAoRjJi?kkOoAv$VBm82WU-^^4w\E_60ãU"eE,'r-u,2DATp8=YpTYt3\Xc9e:0Z8G^$nT;1pvãU"m+]DaI7H2k:CA-Q.z8&+]*]i_E20h4RXWF,xk,Mv>Bxqm:)Lf81kogA,Q6FTPq7ãU"eX4R0n(,uG*8$,0Bq9Z^\m%[U,4K*a'DBsCT3Ctb8KNZM'_WlOVH[t%)F<(9gM:ãU"o60T7j1Zu(Z^cScXDVT9\K#snW$c7G9]D&H>ie7*/;o02S4jx*v]QrIF^/%r:]<ãU"STd_A.-p&8/1w0Y?;U)a\tJn&YRR9DX,R>7-zqV+k62P<^AqtdUp=I$Nh;5HXt'ãU"Iwb%eBZjSq]gcIãU">Dt5at.qKWc29tTF>$(2*.LUdat:UXUL#mH0/ãU"Qn;edmfPH_ZhV7F)tf/'uX_dlr=4G\h1'OLilp2tHcq*lãU"82q-mCMXE&GOeTW7eT[Ye;3iYãU"VNq78vu'I3^G7^i_U,,Q8g;vwTueArCoD#Tal;wj?IL]ãU".P/F(f6'O/,kv/sEXU6XQYNZnp8p0+hV,<>b1ãU"JTQ,;,'8H\7(KoKGT=DHgMiP$P]E?gZAADlOi7od,O0_-fDhXctI>wb*CR,na*BMnYaF,89k6#D0/r'8&b*y9hRhK'[XaT6;Y,]_&O\hd[b4ãU"?H^R?,5*$+4\O+W(h$Mt9_Ut5+zI#D$]#(taP*x$1W7.?C&KeuHu#X_AUf\_$&0ãU"McuUcmQzqjTKdQO<'eGkv-b16N_E']TmCZ'E-TZ\>$H:=3VEqn6C1GEkNon,16SãU"3D>fK$i/9:tO_T-=p.n\&4^D(+bls[?>5U'I4c8CM3oX:20WM,HpdxffbNQ;k\AãU"l4#MgaBbYCYT$_xi(NKFnpP]0S8KBg'tkTG1[+6'gKrt#0M;3t.K>4\FNG=R.G3ãU"BU],5UjRoYiãU"Gf-e=ThnpsIjBZH+ApOnFpUfuGil=f[U)a?hh#X[7-AF3g9Me3-C6bHdbrr3B?YãU"&^W*:[1eA3Iear;>bn[<>Vp6z[*;;YIfeyO.n=aoavr>1O#BFq?iC][9S*X[6gXãU"5\96slai([:e#pw*se7b8PCbWu(/\VUwãU"S:ENk)LaBqaY2/=H_a5JGL+Na5]S/NKh7>IU)K#-Sc#79?Un2,-2UoB*aHjMvInãU"M/>R43N9/qHEtevECTjh:Rf[H\r%5Qd3B+1:W3FJS9?u#*on'YXR8OZ*8v.MfsMãU"&+XJo=dc+w3v/5AQS/?#L;_G6o)O>M3JD0N\c#If#CGWdT*eX(o,IS=y:dqeãU"6eL?C#0_w,=_CgVuajb##:\Bj&(o/1mV^4?oOn5M(sRhnWcK'SkVi6E0]_0LDnn78[)^(4ãU"hZ#:D)s4tqj0If%4?7JwhtVfjbGXRhA\a(VC>-n4b#c]S2hu>CY$2AX-^\kLk;-ãU"&Ii9gD$eV5jmMKRrBEF)CM&rM,oucYl1NJFE?%92:s?B7<^s]$jp1tAGfEjkb8RãU"1IvHe(uAy4)'x#Wc3t;<_Nd2rEBgC^xpdU'uAjxQBqKI0e[[^3ãU"icBPE9]52;A>'[445n0?[%3[1\rMub*Wo<_hQoO&)_xsBOkz<)j+QCj2p7YYh:kãU"kktSECYNkj-a9%.dUl<.7Xm^jP_tt6mb9o8?tz6pVdz/7FtC#qR3CZãU"5vgVQRPd#WCTGh98jP7>D/QSE(aK1ozw<8PZhE:Y[CR^)?c\f/7Ownk3PJ/ãU"M(NWkU2x6Bi.oySE7W._M:FS:-SY*Wg2uu>+FwT8'ae,nNW?_>hpSx0X=t.OydNãU"Q+<2oD_/%fRh3d:4c^nHnqi(:ck2PB?QLptd3qLs*Ub&0BP1;*D$0(+5?AJ'7S%ãU"pY9FxF*%-3V0]nlJnz.jjp%VwFQ.3?Z#*)9BwQUwa[%xãU"7V*Fe4msQi=PU1,w4XCAb=Ulsp/xR\3P7&La'sGygVlR4/;6-=cQZ-3-?<5L-1^ãU"7wPTJyuNJzX[3Q-AexHr;gCLL')Jh2lVt0Au5ZLqXiViWoL9p$zql5RhgThFoM?3ktVw8MAmk:'0Rzo[L/\p-$6p2)HORbk4Q_ãU"j]p6K);NaozcZbjxy9oVS&powo_r3hi(n,LaP;mp,]4\v)Q:+M$ZJR(MytgV:h3u1=guheãU"$ms41x^:3mPc;rHqX8lFWlqfcbD%h4EM$pW?#sqGuKTiATvLa(=)T^B+'U(V\O2_KIh)gOGMr>p#'*_+6%w\sI?ãU"t<9/a/OC\T/C8r2'd=XS^ia4?2hm<,/;NFcWWTOxT8PLw1*$:J;H*l+bPpn$x);ãU"07/m)*ijXoQdkcsEgYklhd>W?;eq_<#^-l$p[u)/:y;4GaIuTK$;CY/2,jd^HX1ãU">QKC=n[0Llu=FoRNYa+B=U'ls6;#Wvb?1CãU"10FCiq0#[O)+1yT-aZSRCs1p6#S2tr#*)Ft4PcNnkO+YU:]\0io>o0h6E+%.fmIãU"kbQ=f&^_Z]byvjdaOu-QOH)\k#9H:^Ca]Y8XRFV$M'EvMp/JO'uD$#5t<>>rDuC#ãU"BGD1)Gq65k&,iEn?C9465=$OjI&OP^b#uQ,\sGTUH=iKxu^SLdowN)t\jz<:nEJãU"K'kJcc.s7i[(4_60QtaD/.-\YS:wLTAXMNGUurI48kqV7_fp0Cg'L_NL(^CMD2.ãU"&6%BCoWABvPS^xpC)Z'8f70MT+^8HHji+KZ]fLe*pZ$'<2:gjkQEG&b&]F3nZiXãU"g0NSso$OAs(AdAaRUxiqp;atp0'8c+bphcChYjUS0faãU"On=,4ab#YjwN$;59mndi#NI*2z5LIxisR[7DXO:Y<8e8?(Ot5tNT,KYH%s'X%QuãU"BRp]Zk0tPWLWyi?\c6SSi'/H8)%-$0ScJDITxl%>q%aKT*pYo9$H:Nr%#dE^$I>ãU"0]#=R?=;0dmyt,st/N2;4-Yp20_rJ^+fiãU"_rlUFw_nI7TCny9q%+B+cF+BPJ<)h8W&uh)6ri,lne5r_?$QVdx#B9.#(eb'6Z-ãU"gogEsAWC9O2EãU"TBoSwaGy#zS$GI$iTGyd1qo[oMDyQK2kh]270Dc+LFyFa8]HE_nePpDptpYB9-_ãU",k)M98N'?V:G_L,:x=N+YjTqmjHfbP]%nX63kB9MJv*2j;D3fU%:wF/sK4x1'lCPKg^Gocpnje^N:WqVbZFlBYt3qFk3_Hga;.%R'tu&2l0Mg6&wãU"&MJbB;Q053f-\&Y0ZD\S+]F^GXjMLW67Zbi%J+/,83-v_aEaRRb97BX;\E.qVu<<8_56qAID9#T4bV'6l0MmqRThloerC/UE*s7jFIp+MECãU"h3%Im&9i3dz6QS*=$Q3P,ycgX:q.SwKIPjce2ra3w,3<-F1M2Gja0u:rc9o$MZhãU"N'y$$ew#'4c49L%:)-]Xr^Th-ls=3J^hJQmrhla40UpF5r'npaewXYs\T^F=u=]ãU"ArtdK9nnWN9S0sQ=/^K+X'c,t]2%Bne$qPYxD8K9keFTWspPL#p-_>[oR2r#(7\ãU"sT&h.Ai5lK?(fJO3N,*BZgqioevotV5x8jPLJ5jo:ajIk62Rg$7sw]dV7kF3YFeãU"hz=&h(,p_3$;l6B%3FH$*M8IJK4<6DGuOV)&iRAHB6tcF7o89t,##9ãU"'X?AHEod<1pgMSa6B\B/]:x[:qSZN8gAAmiNYd8sW_Cfn_i$MCQ=J*&KKfB=lW.ãU"jO.[pc9Qxik<5TCRtt^Q;mU=4EW0C67^R)FSHm;D&+^Xzqx>e-9o&x$_U>wB0mkãU"oJ1WHvC.h0lFJCjEt[aRf:'4X$P/QF(pIvPkQ^Z9D6bU,at39Z[hMr0TBR9MkcMãU"S(G8(Kzi#GH%77[)C-70\FIVHPWxT]ewba5TlTSi_uopt34B+k;BAbjBNXu:h]I#,a,5U]4aR3UI^jM+9LC$AãU"hrxNh>(<_h_Dxb$r#ETu7&R8)642:Ze6E)+YBOoh4VtS#xFPaWa5icBS)J.KxZ\ãU"?5taz*S:$d3._%?'pAD%,ubIe>2;&7P42%,3r:%>x*O+U.PkGyQ.;#U3K58Gekz%nJURgE;pGJbfmq/8B_*OsKQ?6'\m8+XjGc/Au9mBjODAaytu(*hq\#vBbEg)HK8\s]x?6F2?ãU"Us&\2h/PeTq9>h?eRm#KqSm?SSKhanr87^jmb_9P0oKA8;kWJ[M?'j3]6,q6ARaãU"GNE:D\nK8J,njQk:LBqHTWb+5:$V6R.9KGt:*FaLHl;=bj$&NZ;ãU"AZMCg_s8A\vZg<8)]t:wQb/4)q;yOj3yMTD>CtDH3O3<=Blu^\'L/dh*;8'lDnKãU"1jg*u).)v;fVo>\XQ$sH8-v41MlzV)0;cMYoS%d-^Bs5B81K)ahGeZb,zs2LYYTãU"gxCht=Z02-Y,EX6$9h:^BSE9#1bO0ezXmvPa$nI4#ZHwlau]3=X1N+7+?_^%55OãU"r0Bj+%j)c/Hug;9n86ltNZiUb-HS*kP'id#o'XLyVfs(COsxãU"=%aj^e2MJPx;Q7MNeIM*Wm:T+Jfxe^vFP,*mVRQshãU"i=WfjMD4Q$+1mZ0c3f_mk7/fD.T3^sh2vgP;gZg43M&D5e8FM#*hc*kj2QZ&4EPãU"x0]m&;2MeXRrkf)6E[yKB59A?9B$$XGm4g3#%Vka$34EnOc0AS?rL5NZ-'A3\ãU"P1/NbYi+%\+b&)8^b&Yt7m[bGH]ia#>CA1w+62q2wcxQMP(5+z?4eOP#9;xFg2^,^_yY*aT*Z.cif0ZCjvGo)J3[Bek_Wc?py2W4ãU"GUk*tG1**,g<#DB2P=JJiq]t^ZGGB?H/20yqSGCHr-1W2ZWlPt,TYtSB>:IP\+xãU"LTO0QFA]3XR5$EK3&0d49REqgt+cxk>KlbQu'uc14MS_E.ioV*slQ0G+G?W+Yj9ãU"_uRqa8_Mm6[^t>0*J,SAkJjb6&c+#=h(Y]c7i]aKRZATaoaz5R\b:4,k1dO2ceDwhL9;zhI>u8O=PG[?uOGpZ:I%d&KXOãU"6k%V\>a=$#FLHE:nYgG3:,-*]DR214sFXq==ixhiC#2$=IT?gd?>]L0$WE]K>(HãU"r2.5RRqfYX4,bzqP2'l:+W8eARP2m=S^Thm$<^J3uoFbCI98%Jnj&#%8[$Lx/h-ãU"F4uSs#[OMb&>h;Ky4^*N239kV9$oh0(5Erp(>SSLI,g=\:Y=O:(5IT&n+s78>vOãU"88O+6O[kYIKo?JohX*Sb5iQ0UUfB79,Vl,qG$*Wtg1GI1$>28&TdIQaTn9i:9^SãU"=7XV'p?KR=3Ps.hjKBLkf^sIx\q]X.i13gBJ,TVy%E_E1%nF[7\&xmPãU".vmM;8jfD]zEE5R\E-_jt&k+(HqtAKyM5kIUIYSSTBA\B9a>61?0[&+*Kg-&s-[k0t[htUcAGqq+rLsa=UIASKBDI-k-ãU"MC$'cq]MEQ)dTpUw)Ot0IV2Z=&OAmq9;D+ãU"3AT?>.*:r_e[d6Y4qF??x-wV,$ELxke&a'q#mSo?YX$gDyj#[[bt?7TmX>Z&,+$ãU"1opmf2eF6imYLDFg\+,[U6a7kcdL^Mt?;Fy09,Lxg=VqQfZw>&K'*DUD[GVeJ1DãU"tAV=SR]Nd2V7T:R*ZgqPT;:48VãU"5fH([5hG3Y>tgRm-D$,vsJyt[Te%QD%kMg]J8GEYOlhtwo-P.,dãU"5I'sK)s(NzgJ$;KiO%DGr2hh$YY7CeM=3fl=bc;R.XT3H-74boR]X%J(B/td=;[OgR^.]0\1'U*^GbãU"V1G\q/c_D,J_Bms$f4SqaK5af0bDNkrn0b6v*H(Y5N$c,h,XJVl8-Z6)VZ$RzrjãU"DL&=\HNX?vE&YMPg7T9q2d$xQ]ASD5F;w3-9]?4%oLx4\d0PL-axsS-d2IMJd],v$giTq[Pkudl9=$]n22/8;E^<,0%b9wqn?6RK_DãU"9v_JJ7viRe2Gz:/FAi(:0*VU2no5Ii0:pNHBXgl/2k(0h;g^KYz:EHRC.Jt]m>^ãU"L?1%F;hgdb5[^0$.m4Y6BsqE'Mp;hZIGtALnStav*IsDX.cUgr)WdSFl:ãU"^tO$'rKB$]X/XPN>g&IHu+SnM6sB..MG&.:H8F_j9bKKW]uEGI50Vdx4$5'Th2uãU"o4Z]2dUdZ()4Qb_-zVVN0I'BM)8-JUyCSp8If-hSOPuJwPj:XUq)u3AdInx/WokE#g(jd6kYpO:\;),Yn3Tltq%Kqrk/S/p>N'054JN*Du7v)gA<\xTg%09BãU"a8x:.oETfAXn8G'<[zh$JO*P4Bi7NRSK9MO=&Od^w2GUM3Y-J?*MHxz<:2+-^N%UZOadnOqFsT0BBjzs>;uq1ACazj7Vez0($=NkV&01ezãU"BeVyU7U%>gGVK7ISk49vl[=>qCr7d)0Y?4clj0&ls>FZ7)Ci_&gAr()-%O=_0i\ãU"P,9cf,XgO>Bm4fZ_b=:sns0a)-eLLZ*phML1]SF/k>IrV_qBO[\qh*E>YYIJo33ãU"1nMglDj0sDp'((do\r'DBaD;A-2Iz_roN%t:$Ij0;MJ(YC]DOe21ol8XzJcN^>rãU"[48Df[#P)/ycLE+)CWk3mA4,UqtV;v(C)=%UEZ>M*$r5UI)Z^Z\.*OxXKZOK1_*ãU"C>:r)Z9p__[cZ]_Y2#/,ui#p,kruG?LO>Np*rd<8VRLpQv[MEE49*ãU"&?DBm03MTbOnP;AYIMHWjG>>H%h^wR+pn6&2YG'lhovE^;H$AP]nPP52XcBCR[,%m-6Zq&_K&/SoT-9#qVQw/NEoowH2C[AhãU"a4;RSh(eB0)O2vuDO/h#uLWTsAoqdY%krf\G[KODP77aI/>$WqQcq1y)kQw^>TZãU"A$&laML9J>Hhu#FãU"roavi=l>B*g5nDv$Q=6O,e;y%??,PG%fGI=1cO,\bpGV_BJC5(iHX]FVTViu$41ãU"$*>'lF.7dLUiQ>S$0E%7^?$'N8FR,5W]rkV?8g:7yr6*6t=)5\w.[uF+m;[97;9ãU"Va,\>Y8(;-6fQKj2,H)DAMxf35'UB0h/DZA>%dD7v<2[$gãU"^9KlD,d%rTPm);9m?F^WmO]os#5Acxi6&kR8e3N#[o4n7H%?hM2fD$*g2X+W8ezãU"q]wv';'^<3??L-vWw#cK7X(NhV\lns1T_y1ou_5C<5^464UM+,RbTR.S?dYNF(MãU"#5C$c+uSomORC2sn&Da9^TH_+FbjjãU"UFiC6aH*es:q9.=&3k/.]sz.XX1U$1VwPXne_<-4<ãU"_Pd\Ht.q/IfPVj#Cll09Ui(n>#a'[hsiS,qlsv9cU,r&788Lh24$(bas-E3shECãU"+W8-Z52w$*n43iB,D_$YKScVNmJ89Taa];Z$p>acKY)x11qF0uNE=H]6[ndy(ãU"pg^U2(jPF$$$$:AH^=xa*NK:sRv.I:;\tyx=JBv0Kcqz_i,5/RQBc#mãU"DPY#QQs8Qr?sF=Vdx;/f:8%K3D$Vu/2S#/d0efhY0K9Y[vla4'vi-xxpQiPt,lcãU"1uwr%'6.*%B:/^.P;EJ1;#&O(?(^c1ld1^8z;pyLP$zIEBw?tMq:e]AxzKFZf+*ãU"D?C>NR\n,I]8T:kVX:l,X+*1o*QrCTS1OTeH>JFij:q_TYV/Q=U1t;'J^]JxomW_yHBNfk^z$bFNMYãU"$'(U+_%pA.=0$%xT=x07%S5D*\ZjX>b2Q72W2a*KJx]pCgC*h5k1RKokA&rK]tdãU"k6tNAhVIj,HMWPh=4qt;RK9(yw+]/ZV'%$2[j13(.gPKi51cVUrdAl>$;t>K*B+ãU"8Tqpf-3nxn'lXo'C&agh+sETQ('7K$hIq^4z(=aubt,p1XrNfNJbv)cr>.(kA1J.fuãU"tl2UHFLEfrXlLMVNb.Y;p_GM#v]LTe+/,?g74Crr:40$p(Z(i_r2&IDAG0ogcSdãU"FfrfDsOkRxqse_lPK4'#6IdlhP)6KG0'ipvKVc^(FD_p).jKfnpMm*v+[ij>%loãU"W,ME+8mh6b$)k:#Sbu:SO4.7vlK5mWKwf2?h5leoF2A.tlA21&Lz;RWbXUl6ivLãU"\F;Gtzvb$utDQt]?vhHzA-u&68rM[#HR8Zk=rYMR&spVãU"CQD/:.tkBH?vztI('>43VzYEHKU1XegN1r_yK\/jUz_n+_uf;L3rd+*cL,l,S\3ãU"r-:Uo^8RlRJfBK*2oioh4(Zv\4=MkK9/2fvTW+lW1Dl7N2lpdt,0'(k('q^neaXdYAoqãU"SJ&TW#z01iG5f.k^&nviv='7McMz1M>FvLtF83cnKRu*Zf[TlXa8^AEl.CLbdmtãU"P'_D+afhZ;hIWYG+5]pfwOso8+t;E&BMFi[]sP5cYiq%f?.Sw9CXp7u16W>Rd$>ãU"UkVHUhOG=;]%?,b-C/k+GUf[83qnMSVf8tI2J1rcxebI?T^luSu#niYx2t>.Z=>ãU"D#Z$L43P,UnNsP:>vX[phTfZfOlwb)8HRl'VN+J1r?Vgx$gLVrQYg)DbV/cusZoãU"Z8p^Bo4thilMiv0ZVpoZm[]f;ts[z;L'Z3]x(?l^S.cvka2kM(<6Z8o8,TIlS?QãU"Z;[W=/SpR/jCvpg\+3UNHM(M),L[Un7UHJA0c/WfQ#h4,+0%[cãU"oG5&=Q0Z]EoxeS9.&SY-XE^2>)Tn74%Q\,QXNeC=5e=Kb_+3[A-bHd/M$cm$R87ãU"iPkO0)*Dmn:UcfLLYEEvHPV0GTbVE:_3U7+/uM^y5%4xTXUHYP9O+K0:136gddLãU"St<u.Y0%VJe6U[;ãU"VHRD1gQ:Rl\LoI[5\1n8Unad3hKtG=?'r1)Vh444IJ3X+aP(_);2a\3Q+A?C6=_1cV[JZfQJU3Vgngh=7&]d:kHg>[oR$ISIrPDIk60=3*wGG^9u'5^f:0o2>DI]7YjH[5'lmzenIP5oi*ãU"TXH/Ob^KXg)8s2^W?lXU711+=6;riLfQ6l;#$6QH&%0NLd)q%.g(m6sO\F2La3fãU"FKTZV#g;cW[jR(0HHV?G+_#VG1A_0u37Nx%Laut=W'K]L,XQ\hp\x?=,epbB]ktxD0-P^lCB=m::c2T]ãU"&f&'.df8Rj;/slZQF3=e=M%R2-kO-n\XowYn,YM<1X$6%HIL?1Gd/lRs^=;#/H?ãU"vLpN2r[\ej:K[#6wc93*vrV,G.+1_7#Wi?$4%][J'?JSmqn(%dqVa9:s056EinxãU"l9s<\^j[%>Y#Ya,V0)PSMZ#EQXV3+s93^j$0KE:a\2eMw3-O4?v616D-LyQ>0=PãU"/*5PC11v>bJb#U:f:O6>;.kAcdfl,qH[S3Z]%&B)>SuE8Af0H)N;RGZ8tbE?kDLsFm40GãU"joLV.MC=5tY<>#-2x;-RO?56i*P.?aP&e5*jENHfmG/9_*O:8K#uF+W4ftWnEpeãU"ASCHLMVV(#pfa,=0.RonKesD?,NRkY8b4XkA[9inb]Qe#Ldk8pk85OrkPN).[XUãU"B3=F$s;G+G1<^Z(=hIY694qj\^=y/IzT\Mg8Dh/1K6A%6DNk.si>m_G<9CkX4IyãU"=fQQj[#BejaaGEH\t'B0e>Gne^GOBZ%\jyH](/#ZLRLm+Lk:Xn7WV[yT5yãU"wOi7ivi#AW+gOU=YkjI7W5gJG/3Icj=yZ.;2hDD1:;'CTup'l%Shai);/n3J'78ãU"GQKl,&S&bdpSon3?lh$n1aoKTtxFy0qdA'gyS-oCHfK-/\iQ&q4L*e9JKZIRKn%ãU"WatArI:8b:OTr#]Ob:Q.U[,6j/=7C9WTs*2cT/Ap3quZ>*^QFl.9EEWi9\S9QKoãU"/&%7a>RwQ)YKLG]5zB<\DE0/#1-EfhgJFC3'G&cau=oa+0fea>rvq7)\a$T]:SIãU";+arON?#\;Ub+H'jx8:T_Vn*oG7rQ]U^6H^ctCB-_V5FdC*H.qPg[+Bs#hsEusmãU"(/E4GmoVkEV)uFQelS#\2wHONa8Kvp)R2o.>'?r%sX05:/*?[7$oMOZ:m.>?>N]bhi3=/C;$]?>a2AãU"zK+zBdq4$7M(;^d)r7:f&B&q,JgaL-.T.>_#&z.N,Nwt#JM<.+vWQmsJ;*M5Y#uãU"f#1iF55TuTYwk4,ft^$BIs[0:55NuP:/?LZnu75O7*^ca-'X3b_KY'bl.Y14s85:FJNe:&5V71OU%pvaa%#6hO#)D>diB;=+,CR?BbCãU"bh&)-3-]rH3L.G.UZhrrRk9006Nm5vYBHpdX\7mpvgp9Ekn9k#jxGDJ/e7,iRBsãU"E$*ks;P>ChU8a;om#8D^::4pbM5i)jF-uU6+ZI[y'SQ3tQjGW3#uf>/oWF\:^TuãU">PM,[BJ;hpcoOGjvkut9UI[)X87$$vi=\Pro53r$C'G$EW=;U'WbkX2w?m8TXG8ãU"h4-1e,Wv:UKKwW:Zo3WEKKee,O\q(ISM%AL46AzKDnFMb_,E14DkhCF=:4Y/71mãU"P+DE)Wj#E35TUX*T&JQXq]6mCi^0kL:GkIXBpX;DpDY70AUPkrb]]+f?u<2>d?gãU"DE\j_8&5H^5/y5Usi5k1w,=gOMxO:>c$4ET2HJ)BDub(uj#TrW#x+$+ãU"W;Mb1/]hKPmR&E^+#QDjZS1s777MErj9xBt9Q2aat(C]_S9.Tset^ikX(-ooUG.ãU"R-(KAO\^7l+L<1([hTpkORH[B(UeM]T:+wPAl9q7S9N)]N4Kh?($DJR-wc?&:6<ãU"gee0]sB$>+a$//;lsL^tIl%Os9-_#BT$lu;#NIE$Ilc>QRg.;^Tcm3=V42rT;)BãU"b8r>Xvd#3Kup^J4A(d+8YR51Zu;X,VJ?QJa5b8G9]AI/$soJ^Kq$\i'g9i34R0kãU"NF0oV+r2iu1*pPJke>h=^Eu'$c98;_CkvS7O^C3x]iOlF.ij?pfDG=k2#j;NawHãU"t&r8eJtBaJP;E7xF0RFktd71Pgi4^dXDB,iO2<\Tm)_CHH[Y4ZS2#ãU"YhBOd3'(r'kjaM.eZ^2(S[lBf<-#1%/kP%\5NCdu%XH4spLLQ/.7b,+rg8\%AtqãU"4J%hakCnpr9*li6GG0%LNlet2l?dR&HRzNZN4oXj\c?8d]FACãU"QFjl72<'rHS):shx%D3:te,s7XRe4ii/H+,u\EACGeW$Kejn[O9uY;_2VoP%RXuãU"wDJ2r1ukuh3bXS15%5C64MhxADo]U3\$Ns?T1iy0rm/yMoZLvmP4bCNIitsk%'UãU"x(i[0AmDB^#9G>qcQLoHtTd?D(5ZX/rlt_ihPucN+$D3rc'Z[\>#qYioTF[LUf.ãU"2?2Hp8);%ZxdMF)hedbH4/a()HuCL#P(>81pKB(cNMhãU"1c,UYf5[(OWTD=eNDaIOBqS.H'RT#CB0.O(;iab%MdL)CnaWgAo,TfMnr81N[oLãU"v+0PTKbMdY.F?eRq=]-5=i+F_#04ml)J5MxN1+3&vC;TãU"0SqNoBs^$z38m(JKU3cU%&aL*PJ/KTvcO,.c8JN+4f8&w;x<<>I#H6.ZaUdS/HdãU"LPv-D6G3:uK2sM6wYd7-v$g['(y.\^-^h6y>9ãU"3Q^QnElR9fUG6wQAGZMhgLOX?oKeC#A+STZFE2P,AZdMV-ZOãU"&X=$%uq?[1SVK$v_Gm*Y?WDEG_>\u1#HBH1a$;GkYN0EamodoTp2Q=ISr^)_P[eãU"C_dG0SQ2Q2*^mcB_Xm[4SAI?-v1;4x9-1_SCkrbaB+32SzrvDi;)\%F]<^QGqs9ãU"eGx/3SE2p0OSQ^O4LsEJ)k(HU^akDf-PW>d.2,]FeEK,c&RP,sn7z)ELyv#N3bnãU"dXDh>(RfEJPF:ZTcO3Q\%CãU"kBak.IV[Y+(4([,\
DnL*wbxXz7,6?)CNKDD(1$13#+7gh7/h/aDnV(BSLN+cãU"mo0y\4%^9TI5fRmw'/zcuOgD8X9e1#pmRxGsZQVK7k?Pj$T9NeFt#L0)vFw+JcdTa$bGxmbt?ãU"j,+WGl9lo1S%MAP;S3&i73-Fl1X(&FE(*Q:whqzFY%tEB3Br7#U=hb?#Dj3D#ãU"FsBlBg9YK\;_71P[4.cDxZSs(UU_ybwVh-DGYY(ZyKOeG\B,^_a5-:a+7'V/jtmãU"rsc8c2w>>pFc26]M*#HPj(KiVYOf=]('P&6YG%IceBF#G:+ãU"RgM43Qu]/BC0]WWJK'xUyzDDofI[pH.06#be)cãU"_(k($DrpsCP2R]-;LRDn;p$#Y_Z:__0OMTO*HH['jww75e\V_kqB'^>VB*(Pk6SãU".c7h>vR(>Z^TcEfvFcLQS2b#NW=7/Z\L]Y_:BC$Xh6vThEXiso59E4E3AFx,7G6ãU"nyB.bcQp8aTiP=d\JnX1qdNcq(n;ovgXU,foUHenm*XãU"CJ5Feg?_WBLu^$k/_7pni=$^S4+m_P.M^r)PãU"Vq=m=(7R\R1OS)nSaDGh)D)GVgIP.?rfJM3H*s*nyVv8lCS/K[e9ORYl[O1zTGe,_VQa2?IoXA+Dyc+WZ'HDaAv,ãU"EBtK8j2mi_Y5UFi:nq:&hEz?<7^2O.BX%4t=)q>m=2&B?E'+w$T/lX9a[>J&CP3ãU"NOreEZ3'l-A70g4mm$t0h\k/an%[Oo*.K-[eAHJ7]3o.Jr9k)/xi*>h%l2SnPCKãU"K2g50]JR.s,D)V;SF'^*E+Rv9q4(2rfQrJLC>Bt4IV(+%xWY>f(G(=R+\)[ZIH.ãU"Y;(vvR,+BJ>?VMk>jzFj17b6B02'SLTLAA<0+aSm&K[Zpm0)KH0c_q9O'bV6[$5hU4$>fYA;CG1TyFG67>(Jy2aZm?H1D;)&(9r3\7anv1V%D6lãU"FB#Nzo3jdT91Pjl$3K.[&mV:[Z%6<:?MWLTh2jd$(h]17a[U$Q?_DUQhNB]D#=)ãU"vzksElUzb_G00AUW.r;9tZHy4l$/r&n(ZKeQu-ho\<;XIjlãU"0%^Cr_FS6ELeMhLnsLaas?uf,fI+iVk3a>b>G0ncpkURF\9sk=-\C;)7bMP0lãU"+0SJ;]Q*7L^l-&m.>X::m04VEs)1IR*=?.9%sFGa$VnwcC>6pZ40OãU"p_)TXh91Mpd2I9e0+NtL0KL0q-=-r4\cwkCnj7$Ngo\R7N:J:+^*pJS+]+]*Dn\ãU"ZmBC.%k+]GnKW7s$dwBb3lnZP/)G'3tN9Ze[nFer;3.+$#bjV[Lkoo_>nbHoJKvãU"xdYv0lyHK#LrAZ],kFQgYlqAL-Rg=[ba9%8YOO?P[f/tZmlps%BdhzTe[+,I78UãU"re_/q&\6Q,5V+R_0(KEOs\btr[m+G-LC#DS^[ZRk?,gL7aE$lED\fG3)tRtlI>GãU"Rjmwr-*Br^PaOhNhqKVP;/7VV^M*=Xqk[(g0DyPmg0?y1j$wpYVXXJ2-Y([dO4WãU"j']Oe5EA]:GCrkqH/1Z#u0]]0&l5(6Cf\YW\/h(13u%DãU"8IDMBDM7sQiTjQCMZi?YA]+mZgS^b#L4ãU"6V$J>TliD36^+vQlZUctF7[?A?;K5A3GU*+xU?PImuAhi%^?PH=%'&$8vH9,#'gquRRidM$hdLOE^[p;%9_YI%UmãU"VmZ,gMjqn:V>*]9Z;'L(&*/SCua&f+o3XrfbVjm2<5%:y0&WsMfiW42t4/_'p%:ãU"aP/Z'Oe9;LR&JS=CQzFR/7h_DEe2ohi&/NB*t7->^PãU"X)dbMdove#4P9tONg)I7>9%;EZ9tqur$?)X,kwNYk*L:q:ss-*':/c,So*Z;va(ãU"hY?nAVxQQD[HALzU;C6Y&AL/_>rNj2B4ãU"t>6OA/R;i,7K.4f4_WdJ[1D)&#XO-E]w7t^_dB?8w\eBp-D^8+s,0D*C[grh0UdãU"pVnd#(x8(Ei:iWQi:(USRAY5:v5jEi1T5.acs9'UV^2lG1-PQ2(O=f1A#OU9:B?ãU"F1w[:K5l0M+sPaN%CUx%)LV$+qj]GdF^IqWvUnEE;:$^VKT$^#_Lm-TU'LHiLGI8O#Cj0l>x3[cWp1jo[ãU"Hp55_^_5Xict%c&ph4tbGJEqM6nse/K;9ueHsl4biBdNCvPM,r5agBKD$_+?\MEãU"J+4z'j0G3>O5Cu^XTmYj_LTtUOYgYAgIT%#Vtb(\wCj.*s_V/G(%ãU":D[_0[ws-2$>W&fT2&[08FcoB&)paq[>306,sc^kIxcxRPi5bA?EKU.om(Q2GT[ãU"3FFvXF*t$D1WBaduQBtHCB$,;9s/f1t132y_Ij2H$9-8P/&SdV3XqMpTNNxJ21^YUlUNq\5tK3Lhn0._5Gem8Ux(+$s.;XKãU",I05ZImO7.l2mO\p\f4$UW%,K>g70NaK+v\u,8rS'iG-*Htg.ãU"%f95Gfu:9Hq/D<>Z]0J)(;RCn1nB$7K3.7[O[q-Cnco\zQE;AZ:>AF#[s?5pNP&S_(:_LEDM0^SeBSH]u3/[sD,(U+?FV/OwWãU"Hi\lLb*JY,Y9;ud9a'/p]gP5.SV*aG/uA\C7>daNOaEmc3W(.(t[oG3r)RM.-YãU"=.>Z#?Y89Ssc7O,CP(h*TVgNfr9v,+4fB^dk9c>kYqosVm9&3UuuhY,kl4-3XPGãU"^u#c:XR.jx_'xiP;)nUx1MixQ[uSweM^$h:vc>+TDqHcGciX3*YV6ibJO6ArET>iwiH_p:&^ãU"W[Cw)+x:WX4th3Z#BD84K0kI.,Ct2Kmrtk8D[GNd\tZiq0t1*EJNJD5/_&dNEuBãU"%*Sypm*7OPRE<&P?k&FTl2TBU8UuB6Z=:F0hFl6:dtNb(Ob$FiP95,N+dEk(n26ãU"KED24<'.P*aqM9JO>DUh$WFãU"4R(qev.dZ]e7w](>&?6TGhxDQvf9r1N_onOerXj/fO7iIG46nPsj,7^^4S%b$2,ãU"(x;8r#X=4m/Sp3_R(,GEC3K3nUhaOln5wF%M-?e'NãU"W;i,#&bWZqOK/06_*/<%udaF7x.m2n.jl-p^cguW/e:'**O^[ETU[jps?I/$#7rãU"RCuWA3\Ep\iCdPPiDUzU[Tv6qu#Ty_67[1m/e>jf-c2?F\#$cfe=V5-(/&//R.BãU"T1QoC.4d\z:SLF8Q65[uRR;$A4a9GVBZu$0c0(X05N=B['q=Ttki'M>ps57S1M2ãU"e^jD-Ifk#2^'=qsIWrt'7aJ)iT4o\u3TfQDBsaJFr_i9Q\?V_dfNkU*+&xGl&gOãU"wv0CBNvi3+ZRA/T1EBaF*5/E.K.Mvr-)i973MT:&+j#NF^#BpeGtigxCx9sg\3^ãU"MTXpj+CVPkpliL$14A##2mF5B6yB.X0%NMgq[zk%1u0DTG,8x\+f_aA.I>;.ãU"5x/t,_59L&EU;lVt.Ah6bijj'X;s%)Eav3\1?u]xpmF/4=YISq)H6X?,fa-/5r6ãU"9k)y+OyIg2rLR_UGgl\aL5;3*K_=x69,t<6>,0.BJM+dfq^Wd\I:pZOwae&2fb'ãU"YJoalUx3x_q90&/YMMuOl8Zu=R.lkXM]03ãU"RuKB%;13D-64StaXIC+=Tg,y>._LI2Cr-zZ\]].a9WppPxB%yV&f*$lD8T'7K%>ãU"(N$D^ok/Lu.;-*=lML2condE\7e5:O&E7v_aH-X<>nB2rQix\%=r?P-FE:Q*\;J9N,IaL&/&$m=ãU"M^u&jbZ1Y],y-'4ZCS;\3zz3/xuJs3bu]L8($BG2.kVhP7ãU"iK'g#/w9il+^_#ZLv:s.:[n[Y/:VX)hV(,QXn6F>lZ./1Fi6E2Osa%%CStZtQ-JãU"IBK,BE'2,w^>':k-^SlV)Go1^6Xgf?Uj8[)Au9cVW<4/4mXD'jOsl[cpxoYYmMVãU"ZdWwM_%kI5$d#2WkPERgb(bk*8bqhH&75XqvSCEb9>WBKI\NfãU"bVSm'RTEifcYoZ/pawi's3$N#f9&Kn=st\8Bk0+RSdaJTxe+8gX8)CZ_]'B/;aDãU"aZ6NgN7RG%J]:_=pqt(Bh%\3*NSB-'lqb*flU=AVh_k=m8BX5dd7IBn[Lh-(i]WãU"JSYUnfQ/c,W_rU#Jp5Zn,TWhDZ[6Xd(FC,D)6KXxTj/K$+Mi%$mxMb3oGAJ/g/jãU"#P'Ie=l^_RpisKt9O69VWD.m?:D*],kJq=co=/JXc0&b9vi;ti%V/TãU"TRkf'ACRh$':9[_58B6eDhVJb96<&Zmm,y:v]r9q-1HRjK4:ka2B\ftz5J1QE>7ãU"**62h20JQL$jZvQOG/sPFhP:(WG%;bf9Xj?vtN+.*hmJo*A-=?XFscR[gN5NC4BãU"f/WcMRP/Qrg)Kb2Kmt^RF\s>BH.9EhluLVc*X5/cU^vHHk[tp0ZQWa[esZi4_USãU"D9ID_$tyzn9'-6fXTnoC/M4x:KU-kQO6eL*P-c(m=Fr-n9kl\2m<00:cgEr78nbãU"T8$dg8e3Z*Tc:w-pp4Thn<)=z\Wh)gf&Eg3%k%*tXOk.>ma,8Y=DPkbjTicaq;OãU"N6XnF0xpFQAv5:dpKnYk9QerfGtpUh$pKKEi,i&0BY0>3^g;]YPKU#0_cZLPJaGãU"ScRFh49a^aMp?;^t2XYbXr;#v,f8=\\8\b_.oC88:6hMh$9HD)DQj-D+m2krk(EãU"R)*W8-TNOLU-f;\a_-(oL*];e-p6BnVTH%;$/*Qv7rwa7rE5NLlM6DGlC:Jc[:(ãU"&Jm<]g(]6giLk9'Mvar-D?STO#K8kG:'rZMi/P_gR=#4lRytXrKeYyRGa;h2u7xãU"132\%w33\X%K[]sbDHk%MkY?==yRIN6RGAE-OgZQ7e0i<&03Ki;+u-'oCuedcVt7Q5'_>iItRãU"Gh7i8)5;'x/S=595:$npBfbZkChdrC%Z=]Bc+[(,b_U+&m\]uFB[e/[t3k+_L4q,c[4cg*;8pp)_b$ekjv3B.w$A-34Yixh<^_*W\k3Z':&&'&#ãU"VQtQ1KRNNJBNX(kA0J07Qow1dJir8c0]&Viu$5IN:_YAGS$j%Nvc:inãU"v=Cp=#6r\)senQapK_'.3ifO\,XL3E&a[\J;^0IPjK887&G4^lYWDLwJ9*9]kZ9ãU"UAt(aWX78#[(KEO;qki[Y1E6G^J(,OZ:U%^I#RE\BEPyUQ8m-AaIn=xP5WXh31nãU"k#m:UD\-bM&X/0CE1'0nQAA(mmSh[]w#Ag(d6hEXfi%2^2JYgPj2AA/YUXHRS+aãU".jo](Z0/quIHB(9-&19WlZsb5F^Jm=UDIX2%=?1Eg/t#ac*CnsBT9wnc$wKFaqMãU"bsOw9XN^97v0r=J-R&(bGf#^^qjYk>ZgIksh;bjIA9,Q,t]Ejb=:R7/^C5v7mbIãU"'OtDYIx\aG4.PP_ie;20CWS2iAQr'EnGiW(X%3OW2Ax<>?*F5ãU"Zb,^&'31+):Rqx6MJK7%Ndq:9vECQz&h(+EU0u24/ON'=cFkm/L?rbPpSCZz%bnãU"74ZVJAuj7lO);Mt.&:Er[]Q?u2G*Honp/bW1;Ybs[<3DN5qHFLrHhEfNqqX0vhoãU"9MbfJ3j#eA,lVml/PDq#/i2u(hSh_oZ(]Pc8Yl3X4RmjiPa>:jSR?uHa?PlSC(uãU"]^qSJfr3k=t=*$,:7lO9.T#:6W]-ToU'__+krs&8:0_0mx%71&O6kt#l>?9'aE2ãU"Kcte^NqVIe$0[C=*]ywT[Wc=O?x+gvQsSiH0AjWC3P25,LoP>wknQZkIsqEA8MNãU"K?g9ksH5v7JBt_;%_L+ZD,$hgAA12hWZmIO1T#]oS#f,Jjn^UGm0k*t8VfBsnORãU"/VLD/O>]g0k=qux105a[t&,qoxcHK'&Rg2FB&?^TlIA+&cãU"OAMZK.'y5IOf*XH1ac[$p#_KãU"DD>hCk^Skh9ZL5>9?C0NaqUJG(c4W($aBY=xQq]&:6>kb'c:IJqZZG^Y'3aPh2=ãU"pl(H3_P0oes^fS2z.hRKUM#dK4F2xk&A/wbil80o]0NA/UãU"?uL>SgLyuj);Xk[Z8v(E-_thhZ\:cV[OR8dIY[Hqb?ooML3UPA%Lex6J3pCE'9cãU"k'U(GFkMsF6BJ/TTrb%)'Z.RHH(?&Ju;u?2S[n;F,oF7_suqO3gz_4hCjHehDwrãU"T:=7i[Bi3^^+qJY[G\z59b[QmTcV73ECB8ToT7C*MTNrhe/M.B97V+V&&1r)Xl2ãU"P1F\pY%#jAn5_%AiamTRHjkW8x*AoFD4\N<>#m:if9YNm0.KMAEPHpz7,cj$aN#A>\Djh9OJ3n,hF&3P2q$3=P4A^S0_Y=R2.&j.s+klfA*G0ãU"?0#v>u)]zlR6Rps-Od<-UVIV(1A-n:xDFgIl5BH]O4nr.tW7y60di*FhBafw>pwãU"lxTu79*O;lR?ZdL(T>=w96NrcWM#s_F8/^dZ][Tw;V*eyruK))84lY=p>gb8K*cãU"L$Ea5$3Vl>Oo4wh/tx]>PAHW=aM&H4bx4_Jt$P&>rQsg]GwiwyOk2wRf7f:q+\oãU"f6HTU8q0vw0W5\3u^=B^UZYwhqW.1<%pG\U*r'3wo<9:T0l4lM#D_W=q#cDBT+NãU"XAgcens$wdGxTZ:wUttLy[c4EFvYgq^G^/(j*7haokBfLHw^(jc_embVE6?:p6VãU"*,q+vG8Dneie4bcEdc/+LEw'08'vH#,9]PSUoEvgkGboE;UfqjQMAT9;pJ85.aFãU"Iutk;n3?0Sp2QjDM=ZG.IRi256HH*sNBs.P5v:H+?U>TehvhTa<]3iZxppW6sD/3DfhãU"'CmzIn2':-:q.peCrD6m1Jz8$ALNoMj_WiMcmEpwkZR:^#1JjdAXC]dQoQFUukGãU"tmb:OV&/ht%AT?uxapycr:T8H4\DK+.yO>]Dos)6O0995.09WHpr,je$lQrb3NqãU"%9pEsSwrR+\]oos9^%0s(dL;f77c#hI#tibjihmgn.8vBSXES7ae2LOeãU"v)mGCMCoVd#,cxr2Ldt#,6npc$oWibWk+C)&=Og>3Vtk)r%?,ONjPwkHJ]y9V*^ãU"?#y;*^/;?k\I)Thlc(be?bQl5alp)lI.9pw]xBQEG%)>TvZ]9mmxe-6F2YWghkYãU"n%qh)K^vgAi#J/5u+jHtKeIt191An[Ybn[%I_DPM,G4M[rFZ()p0wX2Fo6*3->qãU"xZ.$p89(suy5Zc0&=eKrc\GR-SJU;kNJ+P(WD?IRMfad.,?+wSVZ/h=c$P==\ãU"8+B.K3XUDft)OtDv3/6=2s]<4J4k&rv,Tg\8:ngrQr2?L97lo.L?Ls9]9)fHy);ãU"hgeC1&kZZ.L?DpH$?FA6Cnf8?fc$t5[fE+ltTU_)FN8%Xx'RZ<>Jdef4H,^vpk1c0-.uD294[,8bHCBScNc)HwJ6S'ZiQa]2o;dWlm>8]jPptãU"yUX7m0U=jHQGY8HW$^s(Pb?uuOeZOZ1[G^Z=::[c2:)]+IJ&W239<)lkepbc+JTãU"8dM(pbW'dhF\hqjXfZTRfb?I8]6]jD?nFQOn/vmOzszcXbwhp60c:Y\+DsVEPYYãU"rd>022Db]&s/*utCf\Jjef8':d'o\GãU"ZBhkRwn2tnkBfcMTYqVi]HstR+R53A-C_ST#7T[>4'4f;cD+8EsHY52*SFJx%,KãU".&l#_?8C_X=[gfTe$$FJ5.hbr2fLdj\WjB5WqCU0rEX]v3haa7oY36GT3;3ãU":1[>1_+$PS\G&:Uba4CefC]9rkj?Iq%47ohn^6fh-n1N>r9hV9?6Dr7TD<(F/mBTYW\:ãU"0ap%n<^tsh\*k^dsCuUsRrW:'9oRnQ^X/'^Jvzsv?i.ZI0\m:=BB3Uae-v,LAH*5h_4^9..;s7a]-:Q3I'>(xtO_GãU"tnUi5j^?A\hqO:k;c$oJDZ3E5:rST<1Aa*N5S=IopMDJDL)n(;9=>01m.amj2)#ãU";h1&4_).\-x[MtYZ=?MX$7hFMi*H1sWB_#a^)]F/:cn/vGVodS:4oE=wNol^3ãU"K:#;qWY?2hDViNcB90hD8/,K*q+sxxrOu2xi_6_>_).^Ss]#NLW3JfpMxwZ-K;]ãU"3m5r-I\\'+l)g$;ZU>rrSIQ%Nd:ZKwg1llx\n]u'n1Y^C;7t6BLgn$qUtv=m>xKYN-;cm8g'6MuHVãU"UYIJj)lK1-OX&SX\hw>90a.g6u+[CjtKBB[$N-ãU".Nd2v:I'9\thoRns;ãU"ga(Wu$ZtW-.Yz>hHCj&=hdykgAL\2DwwãU"9prrnwna>A?NS0S,(P2/rCA;a^e#cgN8Sc,pTMN7-_8p3P\-ILjnIPãU":kP^:0n/FPnQBB=;F8Hb6N^0F4)/$\gYOl?(c+.adx<5h<&4qV*$UY:P$[-mJ0Y9FRuggggp3c[g':g-.QDg55qãU"6FmGZvWXFTstxg2B64WPJ$Hnf$EeiH$pE4h9wuOa;pj4>SKOKh8OeHBu#dVbIv0ãU"3:'+m^hGedu#jbb8vnK0vIsKY+)o0Q<-G1d->u[?j.7uB\a(]J,V^tFãU"87?YFK3<&nnL&-k3vhn/Q,)RLNQn[PFdWaYJ)p_op:Cci8-3Z.PLjs,=Zb(]&nOãU"=62U1gzJH0'CN48DUonspnUQbo4/HAp.Pgt_CN=>nC3Kwb''gTy&V30HH:i-8$D0sPP\ãU"%piYqlELSESqlCPG(HS[6Idb^?0bnp'?4/sL)#\:G[BUSo]&;h5e;ep_CYJRv<2ãU",Z-fTnPPJ\JS/;FX,k3gF8?D]H4q[G.fxPL\isD'mRBKX/R^mm[/u4aLa;a2c4pãU"bLoO=hQhVfP#XXJwjHw[Q^\&m\mkN%^o,,1hsSuXQM;]_p]Mb0+Ea-11%j\B]ICãU"zkz?o39O8>)F,rBO^5zg4r?Hl:9:k1W6ov_J-,+Cb_MfHJ2*pO8-evãU"k<05#^2)H*UE\[V]SAUHn>v8/L0L2k0fjPGWV.4v8$$P.GSJ?:I2NIZVUT[0]a0ãU"qQi?Bfo$$3[x<:R06R2%BJ*iZxI9G2G_ykI\gS:kY\H$Ga,:H71JLENHx'H]vkfãU"]M/FD*NYIjgohz9J21XN]QrG9G$fIoT5*b&]$r]cGoãU"77wiU[u08j<9ne[qsjK6F*3^h*,sf<7$3ka&t&24j*CHH/'EGHHIV\Lgb+rlZ1nãU"FSII=%=869$P(\WLC>Mt%lK&on6hZ,n)Zi,b,?n'4Wm[reE-/DZrBEBAt;<)p)$ãU"MyGSL0QK_0>H3UGCYM9iLXj2Ej+eFN-b58fQO\L=Y?hVT*7^7Crn:;h>:U%>lL)C]Z*ZãU"vY[+4CcXWs(5AU$81zr)-ra.^]>#?'8d&T.uR;%*mV/ZL2QãU"-3;3.v<3j3(cW#SH(GyiYbv^krZ2:'LrM/^,VDT]oj?KN+$&Sc7bLmY.s#m[T4aãU"^w$?JHOhr-$tes_:.Mevx<1Y]Gp#bVQ9&j>NWvsGUoF>6;S4$kQS#?7ZLjk&u?gãU"6)wUo.)k%Fe=Jj%h^NBr\kpoJAb-$j*_MKFgl&w[s:+;gn;+MoYrqXãU"rRbD;5XIhUs5VOT+\l.r#[Z6q?+_NL&^7%KQY/=*jpWlO#G8&M_h<81>)Ijtib==w7*.kD=vo4igiX&W2tG>T'67E62oWH9ASiBk.4^tB/LSU9\;k.K[Uni0I/;;+4eãU"'oW1isM*DDoqpHf1CWGYgVN7QX>#j4Vpu,Gm>#JA9&3S^P?1$,QTP>'K1Isw$2tãU"kLVhGL^7:hXBWGf(7Bs'kIy7l4Sf1>0GjScRpBqJ3FA]b*hAeP=^*m/'nk.u(h7ãU"qc9$maXK/-.P#lldq,(7Pl2cY>Ims=Xcl+#r9GJO8,HK>]V5:XdtSx2tgCKlMt0ãU"K>#Ko$WjuHSFbs,G_qhwco(':LvT'ZDPKH&Ia5[OS2woI3*(t<Y4_YKth8/#mNJ6>K*gOy6[Qlab?cHcR.6NsãU"iL*jIGU;NOh]4hWzDr-VINAkeUtDuIsK%B2<+S)>IP%T,S_5b5/;8YpfNU*a;9m:RLnLuy>gTW3lU*jvX=OdQ[dpLm_PG'S7SY/ãU"k:p<-vA5Sa\a=Y4.9-dA^ZnV92Af]pTLp6NaDG4IGtVf^kF>$hV<]Ic6B5j7p0#ãU"Cyut5ti)lmoP\ZZGR\;t%C='.Q^G,>EM68iR(zs#06$oFCnN8XE(D7.8ofP,wTUH=BFa6ESt%z^/Fo8[SHG%=?ãU"OTdDyJZG$K&/en:dCRK#'bT')ST305n'OS3.TpJA]G$eGFu$fvKwEr7iaWa?GEGNV<&?ãU"zH6B_Hb8?]Yhv,06az*;*;d)3vuCWc#*nW*mS3_gSzY3k7KU>qQs7D+lnT,pZU9,fXãU"1PtP1JC%iPCK*S3.3Iy)02wr]NQOh$#uM:QMK9sH03%eEenN%,qbBoq-gww6^3AãU"Mwj?&nMbrYXnY?1?*w>P*YV+[IqbM9+R=9t#cQO1*U4ZpMO(pOdX*79aDO:y1exãU"2o_KG#[1-m^8+&>\M+C\^X:qojbF:f_oy^C&**HK8D\oRp#G)I$MlMIIk#,*rbc/oH+83U\DI_U:&YSfu+KOc3sA,-2R04XHjm=ãU"e#HECPZnN?G-s\6/g?dC[HU,[9bpiuUZA+Xnia>Pg$QCe\ãU"WKgC>m\0/HqssoJ^?9sãU"i7B>l5Y?#K3U>?6Y/E0H/YCT(hapgWu+)iQtInpOsKn)](-?5&Y;URtzpr#1v4oãU"'vL0Q#OL?GYP%bnuENAWs%^r*t*#n;&5,^:(1l>r(ozR^x(;WP4wB68[f,WX3_cãU"IckDDtOOHaV/-+CfU=-XO;*^,Fgg,B9oxEg9pD5>W%_2)AAl\xbD-,?aYlUp^bA]u[CHbfXci8yRL]YpPO#QNR=WmT+*:&ACl/hCXw(]l,w,?l+-^ZX/JSy=0SJh9_B5/4HYbJãU",o#sL_:p((.t:Cq]j_Z]z*X[VABIy;hJ\c+rkN$?&#ET9YVw<<3k2f''C#*N=m\55:_hrk'g?$2N>A&r&qZ147%cbgkD2k9GV4NL9%8Ez>^G84ãU",\EQKU<\vr#;)GGNDy\fB[ZIQq9?nV-pA*Jb7:)S9lXxVKMUBW9U\oj=R%0'bA1ãU"9OTti+$?;vccg,+C'^ZXNhtH?p-1#bqy(Z5#dB=x)d5YNrk/X,$/=C\*DrpcXNNãU"5/.U<&,q$B)3(]ud?0mK%'^#aC^6x7jzE$BJcd=:OBN7NYRZ%M(?dI>avM*7]S_ãU"ngl\2f)wNi:T6\xW,Evv2tKEjspyr0N:;KEI#w/]0X_8Pb:D4>s7u<=b>w2rAc3ãU"kFCk7.yWNVG>L';fUUday(YDvta&u)H[_y_o[,zwu5W/jBYr8uG)t;y^JLJGelniG4=biQPWE#wu#ljPpHhwãU"E=Cgq^T8KK4585slZW9^qylh^FZ+AJAmHOO+X[wnpMUdh&O^+fF,tpN6Caa\:h:ãU"VI*ck[hPvNJf7p9OJQnrRufJpDj(%]<],B.h[Q\q'exLh*e%nGFuDG\&Y0vGqBfãU"vNK-juV.P\53Yms)#nhThHs98JLg&-Su$j(Jgj7aoaU1lBnv2JthgQt9LZ'V3kOãU"(7lkL6,a+Ns[c4*sB2#^YFG+gB&KTs)lZ7z1(E-TB3Yq^HA4u5VaTeI7k0bI-'CãU"=(8VZ2dd)mfX)+-F*Ufi[6L?HOa_>IcDJpn,iu.A%Drib9Buc_6S#3$^7LD2qI3ãU"6g;eaF8Wens[FPj=k7aP2sa5;9teX6\K5b([J#6l7/aFD#KDN[gQ5vãU"\%-A\6Z5FDa20-1T3c>RbSql.&Y/Ov9X:/Ha[4yK30DaCAR,c2O,?3O:s\,Rc5IãU"Xo\iC70\Y[rNyJ8\P-fu8I;VcDESH'5+H/s\$+Sgf/r/mX'aR_y4>PG9;nF*ow[ãU";ITgXe>A87lwU7kkZgdsYhnRBnWhNaq6kXbNjfCfAYa2,9Lw9WgM7'ZXj*P?nvWãU"%H8EjkBHu6.CasiGporp2X.kcUK>7hAo;MeJ^8+aO'f_iDZdzTOBB>SY$ZGDF?ZãU"ooX?3$YC0-VMaID$61>WqCepV0hQi22.Q.H;8mrk:<-8l-xttbI]bqSbSKV;.M/gWr:1*di3Q0n(,uG$lU$e2WlOb0<]:(Gk00GteTaU8+b$trwZg<#6[Y+ãU"oDrgjcVJ_mU#'GLNVja9O(x:w0MWnwpA.DEI8Sp]bVl99^P;?CSAVTebT]b&nrVetu=dkãU"MP(,8w;CPvoR1So07?WGn4X9nA=,5l9X:\vC7S+3aZj.8S.Ls8AãU"fslZ[n.u+)mDa??8)vQ8m2*t+d)otXRU\2VkqZnh2Hp[3k,P)[InM*w/52c9MG5ãU")P86%FRVZyLf5gw+baVYTg7.Ndhc..[1aB-^Fr%)9T7?elWBJS*M3ZAIZ:XQTSbãU"]lDkm9y-IXGa*VqoAIin3nt-l5Id(i)bw487Pv$UhB8WYtu,PGn/0l9Nk\bqwtIãU"?ocQNMMAi6#.>$do=i^a^TE0'\lQNNV.xwhCViunOBnS0Uo.*s$4W_&a*R-t.mMãU"T57lJUF*Pn8j6bUK'59FW1HJ9QK/c'*r9>nU9TCk-hfbEcRiCWIWG&[#IhI#05EãU"kOqw:Ni(>5oH06[=OjBM23C_cKdvKSBo-aCQTB)=/:&-2-^(#z4,g'f)WZP4pIKãU".*pv)%(+(W^8DG1T8_j%.3;SUi$Rv>&4,m)^*aJG2$Ev7acXasHGg<,.Q\RtpR<ãU"S3dRBWnCPbfSAqn8na*PNZjoO[?F8$(M38,p,*>F0K&<,eN*DLHlw*J/q^6]p-*ãU"\a_j\I()'TD$-U4bcF;1u.iOoN8%KWgE+xAwF%,)]S*BpQ*xO[#h\s]3=(_j3n0ãU"Mt>P#Q*XU^1]A,[:S^OzX4.,q$$\#]G$-4S4hX2eF=DH>(ndYA*i+AY1V:$Xo^]h/,6gWL.t8U;2WgnnWp$N8\X/8LOMvWYX#S,N6?bjfdTsf4+bb2$$ãU"5)G]dI=-/pi/Of>&h_KpSLaTQ;;kEhES\tZh2q+\A)0AYBV-2>3<+PQ#Hpx\tobãU"8k\ntho)%H)N$P;=z.g0B1E.5Cc*GteZ+l5b5/G[c+k.iWJdwgn:^ãU"w&DZLp&0CDlbke2*,R(Bbt(.BH*U#t(_y=y/Bg%tk0cou]Gt4zRiesiL?HRK'NkãU"Lu*_wl.FXRmEsS)j$*4v-O$$]9k.Lz-)hV/8Ovk&;.Q^,noPk%D$xT12Y2q=\W-ãU"_MoqGBZOhd2%K%^fqsyKbyHAhOSV8Xoa2iGGIMRt\Uz0cQs'C(_EhU>iPR5MCXs8&lãU">,]s4?&8r:e42O9'vMS=J>cnnIvXa8FuZL?tSLr6MLsOP&XBed/lN/^G7'mf$f=ãU"5^ckOHel%m1tf..5gyJ7$4lqmeL<,h3ZJ8+(JKz#DnKL',_M\_E-v]Q:_&Pz._zãU"c&nTtd7H:qJf8gnt^)P^q&1(QM#\D(nh#9UEi=kv,XS=UC#3U5MoDh4I:<#nxU)ãU"qjO#QCZMFF:+Ie2TUN$xp]b6&^zpk,_fjufLt?nZinBD7:-$PcaC,15vteK\]7*Ka-usLTP^Zhl1<-#Ljk.+kãU"qhB'b>[lk\O$/WW_)XRQ=*q^?uC86,nt3Kb[N7FFf1[Xh2EZX?f*Ylar0lK$Hk\ãU"in=N0wdCp75?i(.t>9&nXPj[%\mPdLbrocsc-lKw4KVT7%\.R7WC)0s1kãU")yn\O<]Yj^WziãU"MoGPnIG]ORgs(WxU(exTfOkbf;SlbeO0spVn\fq6C^Dh%v8Z%OF;V\4?bu73JRQOAwmm4Xi>]=\i8ãU"2Ro.YS=D]<>Q7I?(Rwhq66BCwDfs8u2c0<2KIL,uUWT3HdoSNfNknAA2^qULM.vãU"3wrTiabK?1-P^>,cgMjrNy]*6eBGD93H$xqNV4tBH>npI>ok8ãU"PVPuZ3InPPZ$6R>s5Nqb#S5fX6aL.\ajVwXq>KãU"iG&7Wv\CEa;0gT+?mMKSK#^hpc)6Yb'nC.h+HnNUaJ/1Q>[1j(Zfv?Q5A$)$j/0ãU">nxt?l/gt)TWYS0w[XooO-6eRoQ7Q=oh.B[OS?ZK)*h/jJtop;,8h+YmnMy6MChãU"4z%?#eOo/AqR3tF4*=HgGJ:L(Q6d,zYV[)4UfD7\q6k#bzk3Z.Hws:YZV&HGN1[ãU"iwU+5R[ZqfH;dB?4TYv08Q,MDIyu(gVt50TKl;Z88)6\T04_fRkBY],rJVFWFq,:tãU"8$%h)JkM9z](FI_cLqfCudxj[S-CTey7c#tpTt-n1R'Y,88sZvãU"fMK^NVNr<:KSWcdKam6W[hcFPTT+XO.$dr,FVb?8Po8V3&TQD0$lhajj)1g#f_wIP0;tUdg3/3Q>aHK98NUWn)kTeRnhãU".\p<]tTLDuqfcMSUVn''NWãEND SUBãSUB VBãU"gak;pserkpu<;;LA(GrvdPO1ruvL396T'>hr]d)10U,H6?rzg5mQdqb&IE<ãU"5FxEhvcqOs5?ZbH9X/DHBE.-N]BDrY-Lq0kL=>j,5+Dzo];18hbwQ:9TQd>R0ajãU"5)5uaSR[lFtKp,NAIdCYj/bhw6G&NbkJG91,J5gmHY?W[hl\^&*19DiCj[C'lS?ãU"*Yl;6/6:HIZ4&Ga%quedLmXI=?kh./s#yc6%$90TaY\CT(J\d$>%GlãU"_V6?(?RdY.e1N2k[zbrI6h*5yGM*Jy)7uj4Zuq%wV9,vQaV>GY+B/Ld1xHhbTuQãU"HE'-[[+(]0HY]:aBf-j\DjRup;zA8*tlaXfN9O8TQ#+ZWX8,8**ygykY7Mj\qNQãU"uAU.6BKIv&rcuzO\q].&wBq.37mv'PCO*P2Fuo0Y5babLDddXVyw$PdtFOdTQzBãU"#e9?rk#DaNwFt%RdOtERUJhZrNuva'E=uHaCer#+bu8THA^X9%,G^x-,7IaB1KLãU"v-BRt(0Xc70ii6]^e#:ThQ$:H>6LQgCay<6ddpDj-_Wo'O[#Bmr4iLuDY451jvgãU"]:lHXi]GnsbU#to5Ot/j=^+vjD<:l-G5gk-$5lqxrnw',EY$OkD?jS'1ãU"_'nzQjEx?4\\C.ZIp3bwY\Fc0(\W:\/Yh,&+;E-+)]&jxaP9UG6s\8_7^BX4*%%4vm?cN.'/f]yIDBo6\Ae_u4RUHHhNTML\E'dVe^/rOWE7wkWt1K/Z+ãU"pT,E^U>sF[l,O+tOwr.h,jf4(L>*nI2/ckK7dt[kwh+leTF>52/pQ-7*^MJ+oL5ãU"%a'$G]FcjN+jD5,MKAuj#pOgikL,c:3_89GID%Noego[[f_Q+=J-+3wUYyDCZYhãU"3N#r_jI5LTpU0_'9A?x;uJBuoR/2[Q,mbNt&.76]k)A5ODD$#aGI_PF'H8A*nX>ãU"NLu7v9]JQs>9j2El3ZOI3LKA=K-9gnãU"Z(kbv2Au^D?.tt)m#K'dlU1b-+/KVI?W_xE'C2L6M_0dn9Te-Mat1)^8B//WeUi8;LpDVYF2)'ãU"evMp/0Sf?UoW0ASmKbMw(VN&P0nSD4Q'&9[H;6:v0tlJ7Jdwp2&4]U0:2Aiy%FkkrE*)_?L'kãU"WoUT_mV/knQ]GULSiBkx/%Qi3Xn:-5DeR>hOew;p.UPAM,w\AIw0L[UCn(+8kgVãU"n%uD)*?0CaUfI?)/ãU"ia9g6X*7rXCmk2m,11%GjSSKpct\<(c2JnqpM4g4gdNOEx(swtI9\r:%lnI8afF'W\=8rJQ\T$J\:]3HG[]X+WF/2zãU"kle)/V(b8EZ#KV>#?0ns^[i4JriccG'rh_#5e0A,lD8-n+hU.^otL**&BãU"4k+r^owS8Lu$RNbk$G4q_iCsX;6ho71W_)i)n1xAkn9Z%43U#3+;9lwWZH8O'l>ãU"CEZVPp*lle#](\9cbqc,a)Ao(T/i]B;>gCHX7ERMpFVA1YvAyc,+rf=IPS&,WxIãU"_?I6lw[ftZ(Jsqct'S]kI=4'.F/*4WouB$#,kfg+Lvj2;t&)zm),mQFV&IA<4ãU"Y9t>,+bIQ8,ZO+V=GzY\po/f)wZKa*Q0;$(-#3?f^Y$heQ=$E1hjE?)0>)I$988ãU"Z5,XR[B_DuHB>gHW(R7yRril+lhAvAC9B.HH??flf3?KE6#oNI&l_n\_4N:3SJ#ãU"KuJ%:DPQwu<3*/ho=KiGREM%sX#U=IjABMYMt#^F(IYRFS;VS,.WIB.g2Mo6^X)ãU"fL'b%sbpq-G$>om>vJS5]G#2&+F/Nsl&W)$#yq0)/:.(JKdO2[cFNUFnH:9FgmtãU"zXVi=p9'/MT1oN:[eH'c/F/Tu7-$dsd^(Nw\_9J'Y:j-,wKJ%=v'Dj2yHw.s_AtãU"9h.b/h0d/L*8j#bsk#9^b8ub(J'9O8pB&;+\:A;i7FH_rx&mG%)w69rkLOUUT'+ãU"avHocPFYgdgu6=+[p&8bPenW[)oyfx\lGYpV,T'KX9iGJDm&y-Ha9#pD#+<&2[9ãU"o9N0e$Z]9L<*MjSnKHlap9UsaCHRbSc-=YWS-bm^KPgJ=sWbgs05?Aq1]o/XmGbãU"*QiZ.TD5;,:rmVAIb$mKhGm]uh9.K]vyCgQ%lG+C/Jizgn<2$:-uhH9Lv4ecoIZãU"R^fKpjbEu+YeNJwxfn)*[g5*-d4+#<8=[ssX?p.bI=&qxyeMR?;GfUwLC)d(kf>ãU"O#LOs[$lBãU"LnB0yS]5D/[#1+KA)Oj,:TH:7yAU6;>dTgC7N17&XjRn7X'YKZdg^eXHf:5f[a?ãU"hch0H$CTM7E,1kg&N7LX^o>=bF.t8:fa+ch6:fPkV:FU=hc;^ku;IãU"0I7tX>InRMT?Q?PE_0r=)L8oaNW\YlD1)^$LLd#^kO2V>LIJ8:WUxXE.770qoaIãU"M9tm(63^lU^)\MzjzehgnK]ee^Hp::.fiFn5qi6kxXjAL>.Fo=Z/Get^F1XcrWQãU"gdHSmH^/^*o2Tra9=h[V(w^dO>%n&tn7O'+0X'(bo[ooFHCng+apk%hdA,Lp-^=ãU"djX+sllK[?naO5M=gl^9oA$>C8#ZRxBz?:\'hb2$[%6<%63)MPO.kr&kiX#SC;5ãU"W#$[dq(;gMu(JtTtRabãU"GaNqEE;JU\Y>gV&&UTaPUJj3+hdQ)mA=e0qrLD7.pO\;I2Ssw3Q\6H>3ZfHijn?ãU",uGJ1IlhmM3*,?]CIHUCtHR6Xg_iTv.7W\Y/#&[ZwJf,o2=41I=5akcp:^b^9*?ãU"0JLkP2?#g0bXq&[()vZ=h5/JF-61a^cBU:hKQ83n?WEweq.ECZ4,R[Y5,bxC8SCãU"4teU=ABO2N]GbrMM<%1zz/8ip8(F8ad/]05;c_J]dãU"Y1u2sT;lK[$*'Zi=;vM4grq+rA)a*q>UsDancC)gwV45j3^V\jGZKbl'9xiHh98ãU"rdLhf^bVc1aN/63S%gdP4)0nYbJLk/JWq-oJ&8)=DATmTHkF?sI2FãU"h%>Eu%_h.vFcpj6EyZ5&b.(ul;^+o(oX:_Z+jkBBbX=/VGAD9n)WF&HW_%Od&7-ãU"[.4mH#3q4f.*C*y<2u_J>J^n>dlhj]c*cyUF.5h-q*6A9d8T7leQzd(1ex*U_VpãU"dT8t/MQ.JS:JNq]R27qqMYo1hxGur.rYSMYP6&0TXtK4;;qi'SxC],Q^4&sWR[aãU"Z/jdY/e0:2Aie;mqvWb*D#;x#m$>k4)d\utg%=eDOaCj##P&u3M;JQ&&kp4i7%eãU"a6XjxjxãU"C2YA]P9NRQlemQo<78Od]%9(tQdNj:nu1XT,pNix=OShS)qU3HA3l.9S%Pf/5y'ãU"a[oBg)hEb]:r((t6>4hCfssGkmN-V/P.A]x%u^irC#Sa'PouTwãU"%vGv0U)5i2<#ioKt&s6R&-Nn%,yi12z.j]kdC&Y209Vcv>Uq7dmkr?C,)n,%qugãU"RzH/.t$=:&po^S,)Gm889r%o5/4KSJEnjzB(X?guredYRt30mY5x%,-/?wnk]b%ãU"<%m2Oc8e5aJih\,OT3%v7:*+->\yF9/q]68KWW(4xDA]:%Bhm*9G8eu/\PaHOA*ãU"P1Lo^[,8/,>\7uK&wRQjS7zm*zRjc:S#Bpn4?Ws)oCln1H-#DIJH^QREMZms/#%ãU"YHR8:t4%?IbP8VhPjt#6gw]5>Qv)^iT%t=lWa2GHgy<2,Aa'C2$W'&fK&Sge]JIOGesB]f)'hQo7wp)]Sh&/^2UM:hj?gbAY':ME?xi^C?2G&LRlm*qYLoqKRGãU"\k94RkJ]Bs_'JZ,6Vvldg#+_rX93aKKcnO1D_5CV($n:cb#dY76SHl^1ãU"L5cf5yNpDMNW)#_FVx#-tJilj7\kYx&G+q3x0#IX'P?Oy?uX6D]DD^+N0+t5nVxãU"?-qfS%-X5ElS:8POm?nbN7,GzB:Dk^VPbl$']PT<8K#$YIhU5lASmMQ(g)-YWk*<,o#C8A('t$oj3OxNU7n%dJAWoUvNKmpg<ãU"g9qhG)v./230>PhQa/A'm3oX]'r]$#$K;yUTi3dwJY6CQ6[?:Di]d$BTQ5VIPtGãU"\-UV+vTB$KuH[(M81GNLY,Ls^2VO*4(WO>eJ[iFGu2d_ga$T_5(cRHrN.Xq_iEQãU"5:Mi&c2VILYk?ERY-Rei<'>XmR;O9,,E0JLVcwnhbx[n_:6CT:&ãU"3b;x#d%6K.&c5#VKmu[qEBHU'&nhJuNS9AhmlK72_eH(jqf,c536ovEOI3kJDI(ãU"^g[?HU+R9(R5>n5s>JsjyqwK_8Q9oR9=ZaM('O^aDVub^09HaMbef]c#iO1u+ULãU"XX30pELN;lXiL(a:u[li=B[Lu3j$jMpr-8a<1CY>%,=9YKo[27J]VPVqKmB0M5jãU"apN''M6j6q*tNAuBwvJLSRvF1v8pV9?DW^hPDDjo54;i=t11DXrqpa=GjP=3$)r+Un/WPãU"Hq0mCyCZ%)R9Sc=klE?]J*dO:N>NNVIBYga(jYi%u/uKpXTXaDhRw1Ead9tO^wQv+Zs=X2xA1j>CDuiGq]Ia5h*Kf/8W*>m4P#=tTse&M/C6pBR_;D>-btl*/%hãU"5:C/6]6KPA(bwAtriB5tK0C2X4WmwDa9aTKBn,mu*a[M_?VBMK)f[Pc2dSY>.]V/leQ-w5^ãU"XYW8h,L,,HH7cL'6Ub^u3F9N%\\5s^S6t_Od)H&4pu6E(e[qB*HRkl<3n#bUr?cãU"Q#mb*cQi3FR]R67O+s,Qn*w+jlFPlbLR2ArF]=Jm>6dVSvmdCunc1fk_ytkkUI+ãU"^onF.pYF,romg:qWa4fj5#T;'bEI+k\aolXX=?jZ9(+pTY#a,Ojt'0XKbHR6YqNãU"-#b/EB)F)4N?oE3IFg)^:t(QQ3EOdVPJX(w]85FxW71?oLF5LrrktfilQF5)r$ãU"Qn4lZm1i^I^pI-0?XrNd*V,JwX(5FTn398?/'>-?Sz1NK5:dmb70qfgTa'qbhnkãU"nvC&Fg3(Q_PT,xFT\Xw:]ã'ã' This first appeared in the July ABC packet (07/98) / Month of publication.ã'ã' Text Plasma Image Viewer - Version .330 (you must have Text Plasma 2.6010áã' to create Text Plasma Image files )ã'ã' Features:ã' o All 64 palette colors are used (text mode has 64 usable colors).ã' o WOW ! The Palette can slide, to you or way from you !ã' o You can adjust the Vertical Retrace Delay. !ã' o New palette creation for, using the same palette routines inã' Text Plasma 2.6010á. (can't be saved back to disk.)ã'ã' See the internal help...by typing 'TPIVIEW' (if compiled) !ã'ã' Bugs: `The Black Screen of Death' most common during new paletteã' generation (number overflow). I need to reduce some numbers.ã' If you in DOS just type 'MODE CO80' to return to normal.ã' In windows DOS shell you'll might need to press any key.ã'ã' Note: Errors aren't trapped yet, and this program verifies that the fileã' is a true TPI file and due to user error can create a null file.ã' (Normally that null file is destroyed.) You might run out ofã' space to open new files. Failures during loading can causeã' `The Black Screen of Death'. The correct file size for a Textã' Plasma Image file is 32,776 bytes. Any size below this indicatesã' a save failure...and the program automatically kills the file.ã'ã' Disclamer: I hearby disclaim all warranties to the fitness of thisã' program - I cannot be held liable for unpredicted eventsã' that may happen while you used the revised version ofã' Text Plasma. I have tested this on 2 computers and itã' works, although I will not (cannot) guaranteeã' functionality under your computer system's environment.ã'ã' Text Plasma Image Viewer - Version .330 (beta) byã' Zapf_DingBat@JUNO.COM (It's my Email address) It's ok to write...ããDEFINT A-ZãDECLARE FUNCTION Monitor% (VSSegment)ãDECLARE FUNCTION VerifyTPIHeader (NAME$, RETPIHEAD$)ãDECLARE SUB ColorSelect ()ãDECLARE SUB Delay (Period!)ãDECLARE SUB Help ()ãDECLARE SUB LoadTPIFile (NAME$)ãDECLARE SUB STDOUT (MESSAGETEXT$)ãDECLARE SUB PalGet (col%, R%, G%, B%)ãDECLARE SUB PalSet (col%, R%, G%, B%)ãã'REGTYPE.BAS - Include file for CALL INTERRUPT & CALL INTERRUPTXãTYPE RegTypeã AX AS INTEGERã BX AS INTEGERã CX AS INTEGERã DX AS INTEGERã BP AS INTEGERã SI AS INTEGERã DI AS INTEGERã flags AS INTEGERã DS AS INTEGERã ES AS INTEGERãEND TYPEãã' don't change the constants !ãCONST TRUE = -1, FALSE = 0, SAVEINCMPLT = -2ãCONST TPIHeader$ = "Text Plasma 2.40á - SnapShot Format Version .01á /TrueName:"ãCONST Extension$ = ".TPI", TPIVIEWVersion$ = "Text Plasma Image Viewer - Version .330"ãDIM SHARED Registers AS RegTypeãDIM SHARED CurrentPalR(0 TO 63), CurrentPalG(0 TO 63), CurrentPalB(0 TO 63)ãDIM SHARED XRed(0 TO 63), XGrn(0 TO 63), XBlu(0 TO 63), PalSlide, Backwardsãã'set variable defaultsãPalSlide = FALSE: Backwards = FALSE 'Default no Pal Sliding, rotation in Forward directionãRetraceDelay = 1 'Loop begins at Zero so this is two cyclesãã'test for helpãIF COMMAND$ = "" OR COMMAND$ = "?" OR COMMAND$ = "/?" THEN Helpã'test video capabilityãSELECT CASE Monitor%(SSeg)ã CASE 4, 5ã FOR CurPalSave = 0 TO 63 'save user's text mode paletteã PalGet CurPalSave, XRS, XGS, XBSã CurrentPalR(CurPalSave) = XRS: CurrentPalG(CurPalSave) = XGSã CurrentPalB(CurPalSave) = XBSã NEXT CurPalSaveã CASE ELSEã STDOUT "VGA or EGA Graphics adapter is required to view Text Plasma Images." + CHR$(10) + CHR$(13)ã ENDãEND SELECTããSTDOUT TPIVIEWVersion$ + CHR$(10) + CHR$(13) + CHR$(10)ãFileNameTest = VerifyTPIHeader(COMMAND$, ReturnedHEADER$)ãSELECT CASE FileNameTestã CASE FALSEã STDOUT COMMAND$ + CHR$(10) + CHR$(13)ã STDOUT "That wasn't a Text Plasma Image File." + CHR$(10) + CHR$(13)ã GOTO Termã CASE TRUEã IF LEN(COMMAND$) >= 49 THENã STDOUT COMMAND$ + CHR$(10) + CHR$(13)ã STDOUT "is a Text Plasma Image File." + CHR$(10) + CHR$(13)ã ELSEã STDOUT COMMAND$ + CHR$(32) + "is a Text Plasma Image File." + CHR$(10) + CHR$(13)ã END IFã STDOUT "Header: " + ReturnedHEADER$ + CHR$(10) + CHR$(13)ã Delay 3ã CASE SAVEINCMPLTã IF LEN(COMMAND$) >= 18 THENã STDOUT COMMAND$ + CHR$(10) + CHR$(13)ã STDOUT "had a proper TPI File Header, but wasn't saved properly." + CHR$(10) + CHR$(13)ã ELSEã STDOUT COMMAND$ + CHR$(32) + "had a proper TPI File Header, but wasn't saved properly." + CHR$(10) + CHR$(13)ã END IFã STDOUT "File was deleted automatically...." + CHR$(10) + CHR$(13)ã GOTO TermãEND SELECTããLoadTPIFile COMMAND$ããFOR XBP = 0 TO 3ãOUT 97, INP(97) OR &H3: OUT 67, 182ãOUT 66, 80: OUT 66, 5: FOR ZZZ! = 0 TO 300: NEXT ZZZ!ãOUT 97, INP(97) AND &HFCãDelay .11ãNEXT XBPãã'Seed the psuedo-random number generator with the current time.ãDEF SEG = &H40ãNewSeed& = PEEK(&H6C) + PEEK(&H6D) * 256& + PEEK(&H6E) * 65536ãDEF SEGãNewSeed# = NewSeed& * 64& ^ 4& ' convert to huge integerãRANDOMIZE NewSeed#ã ãDOãã' Vertical retrace delayãFOR I = 0 TO RetraceDelayã WAIT &H3DA, 8, 8ã WAIT &H3DA, 8, 0ãNEXT Iãã'do palette sliding if enabledãIF PalSlide = TRUE THEN GOSUB MovePaletteãã XXXX$ = UCASE$(INKEY$)ã IF XXXX$ = CHR$(27) THEN 'Exitã EXIT DOã END IFã IF XXXX$ = CHR$(43) THEN 'Set rate of Retrace Delay, MORE WAITINGã RetraceDelay = RetraceDelay + 1ã IF RetraceDelay >= 400 THEN RetraceDelay = 400ã END IFã IF XXXX$ = CHR$(45) THEN 'Set rate of Retrace Delay, LESS WAITINGã RetraceDelay = RetraceDelay - 1ã IF RetraceDelay <= 0 THEN RetraceDelay = 0ã END IFã IF XXXX$ = CHR$(66) THEN 'set direction of palette sliding,ã 'Backwards = FALSE - forward rotationã 'Backwards = TRUE - backward rotationã Backwards = NOT Backwardsã 'write colors again to prevent replicative fadingã FOR ColorWrite = 0 TO 63ã PalSet ColorWrite, XRed(ColorWrite), XGrn(ColorWrite), XBlu(ColorWrite)ã NEXT ColorWriteã END IFã IF XXXX$ = CHR$(73) THEN 'Invert Paletteã FOR IC = 0 TO 63ã PalGet IC, Red, Green, Blueã PalSet IC, NOT Red, NOT Green, NOT Blueã 'recapture palette for storageã PalGet IC, Red, Green, Blueã XRed(IC) = Red: XGrn(IC) = Green: XBlu(IC) = Blueã NEXT ICã END IFã IF XXXX$ = CHR$(78) THEN 'New paletteã ColoringMethod = INT(RND * 13)ã 'ColoringMethod = 13 'used for testingã ColorSelectã END IFã IF XXXX$ = CHR$(80) THEN 'Palette sliding onã PalSlide = NOT PalSlideã END IFããLOOPãã'set screen modeãRegisters.AX = &H3ãCALL InterruptX(&H10, Registers, Registers)ãRegisters.AX = &H1003 'turn blinking on !ãRegisters.BX = &H1ãCALL InterruptX(&H10, Registers, Registers)ããTerm:ãFOR CurPalRest = 0 TO 63 'restore user's text mode paletteãPalSet CurPalRest, CurrentPalR(CurPalRest), CurrentPalG(CurPalRest), CurrentPalB(CurPalRest)ãNEXT CurPalRestãENDããMovePalette:ãIF Backwards = FALSE THENã PalGet 0, ored1%, ogrn1%, oblu1%ã FOR t% = 0 TO 63 'This loop rotates the palette outward (forward).ã PalGet t% + 1, Red%, Grn%, Blu%ã PalSet t%, Red%, Grn%, Blu%ã NEXT t%ã PalSet 63, ored1%, ogrn1%, oblu1%ã ELSEã PalGet 63, ored2%, ogrn2%, oblu2%ã FOR t% = 62 TO 0 STEP -1 'This loop rotates the palette inward (Backward).ã PalGet t%, Red%, Grn%, Blu%ã PalSet t% + 1, Red%, Grn%, Blu%ã NEXTã PalSet 0, ored2%, ogrn2%, oblu2%ãEND IFãRETURNããSUB ColorSelectãSELECT CASE ColoringMethodã CASE IS = 0ã R = (RND * 63): G = (RND * 63): B = (RND * 63)ã FOR I = 0 TO 63ã PalSet I, I - R, I - G, I - Bã NEXT Iã CASE IS = 1ã R = (RND * 63): G = (RND * 63): B = (RND * 63)ã FOR I = 0 TO 31ã PalSet I, I * R, I * G, I * Bã NEXT Iã FOR I = 32 TO 63ã PalSet I, (15 - I) * R, (15 - I) * G, (15 - I) * Bã NEXT Iã CASE IS = 2ã R = (RND * 63): G = (RND * 63): B = (RND * 63)ã FOR I = 0 TO 31ã PalSet I, (I / R) * 127, (I / G) * 127, (I / B) * 126ã NEXT Iã FOR I = 32 TO 63ã PalSet I, ((15 - I) / R), ((15 - I) / G), ((15 - I) / B)ã NEXT Iã CASE IS = 3ã R = (RND * 63): G = (RND * 63): B = (RND * 63)ã FOR I = 0 TO 31ã PalSet I, (I / R), (I / G), (I / B)ã NEXT Iã FOR I = 32 TO 63ã PalSet I, ((15 - I) / R) * 127, ((15 - I) / G) * 127, ((15 - I) / B) * 127ã NEXT Iã CASE IS = 4ã R = (RND * 63): G = (RND * 63): B = (RND * 63)ã FOR I = 0 TO 31ã PalSet I, (I / R) * 127, (I / G) * 127, (I / B) * 127ã NEXT Iã FOR I = 32 TO 63ã PalSet I, ((15 - I) / R) * 127, ((15 - I) / G) * 127, ((15 - I) / B) * 127ã NEXT Iã CASE IS = 5ã R = (RND * 63): G = (RND * 63): B = (RND * 63)ã FOR I = 0 TO 63ã PalSet I, INT(R + R2), INT(G + G2), INT(B + B2)ã R2 = (R + 1) * I ^ .11: G2 = (G + 1) * I ^ .22: B2 = (B + 1) * I ^ .33ã NEXT Iã CASE IS = 6ã R = (RND * 63): G = (RND * 63): B = (RND * 63)ã FOR I = 0 TO 63ã PalSet I, INT(R + R2), INT(G + G2), INT(B + B2)ã R2 = (R + 1) * I ^ .22: G2 = (G + 1) * I ^ .33: B2 = (B + 1) * I ^ .11ã NEXT Iã CASE IS = 7ã R = (RND * 63): G = (RND * 63): B = (RND * 63)ã FOR I = 0 TO 63ã PalSet I, INT(R + R2), INT(G + G2), INT(B + B2)ã R2 = (R + 1) * I ^ .33: G2 = (G + 1) * I ^ .11: B2 = (B + 1) * I ^ .22ã NEXT Iã CASE IS = 8ã R = (RND * 63): G = (RND * 63): B = (RND * 63)ã FOR I = 0 TO 63ã PalSet I, INT(R + R2), INT(G + G2), INT(B + B2)ã R2 = ((R + 1 + I) * .11): G2 = ((G + 1 + I * .59)): B2 = ((B + 1 + I * .3))ã NEXT Iã CASE IS = 9 'GRAY 1ã R = (RND * 63): G = R: B = Rã FOR I = 0 TO 63ã PalSet I, XC, XC, XCã R2 = ((R + 1 + I) * .11): G2 = ((G + 1 + I * .59)): B2 = ((B + 1 + I * .3))ã XC = INT(R2 + G2 + B2)ã NEXT Iã CASE IS = 10 'GRAY 2ã R = (RND * 63): G = R: B = Rã FOR I = 0 TO 63ã PalSet I, XC, XC, XCã R2 = ((R + 1 + I) * .11) ^ 2: G2 = ((G + 1 + I * .59)): B2 = ((B + 1 + I * .3))ã XC = INT(R2 + G2 + B2)ã NEXT Iã CASE IS = 11 'GRAY 3ã R = (RND * 63): G = R: B = Rã FOR I = 0 TO 63ã PalSet I, XC, XC, XCã R2 = ((R + 1 + I) * .11): G2 = ((G + 1 + I * .59)) ^ 2: B2 = ((B + 1 + I * .3))ã XC = INT(R2 + G2 + B2)ã NEXT Iã CASE IS = 12 'GRAY 4ã R = (RND * 63): G = R: B = Rã FOR I = 0 TO 63ã PalSet I, XC, XC, XCã R2 = ((R + 1 + I) * .11): G2 = ((G + 1 + I * .59)): B2 = ((B + 1 + I * .3)) ^ 2ã XC = INT(R2 + G2 + B2)ã NEXT Iã CASE IS = 13ã R = (RND * 63): G = R: B = Rã FOR I = 0 TO 63ã PalSet I, XC \ 2, XC \ 4, XC \ 8ã R2 = ((R + 1 + I) * .11): G2 = ((G + 1 + I * .59)): B2 = ((B + 1 + I * .3)) ^ 2ã XC = INT(R2 + G2 + B2)ã NEXT IãEND SELECTãã'capture new colors into arraryãFOR ColorCapture = 0 TO 63ã PalGet ColorCapture, XR, XG, XBã XRed(ColorCapture) = XR: XGrn(ColorCapture) = XG: XBlu(ColorCapture) = XBãNEXT ColorCaptureãEND SUBããSUB Delay (Period!)ãBegin! = TIMERãDO UNTIL (TIMER - Begin! > Period!) OR (TIMER - Begin! < 0)ãLOOPãEND SUBããSUB HelpãSTDOUT TPIVIEWVersion$ + CHR$(10) + CHR$(13)ãSTDOUT CHR$(10) + CHR$(13)ãSTDOUT "Purpose: Views images made with Text Plasma program." + CHR$(10) + CHR$(13)ãSTDOUT "Usage: TPIVIEW filename.ext" + CHR$(10) + CHR$(13) + CHR$(10)ãSTDOUT "Once a TPI file is loaded, you can use these functions." + CHR$(10) + CHR$(13) + CHR$(10)ãSTDOUT "Press N for a new fresh & zesty palette." + CHR$(10) + CHR$(13)ãSTDOUT "Press P to slide the current palette, default is off (toggle switch)." + CHR$(10) + CHR$(13)ãSTDOUT "Press B to slide the current backwards, default is forward (toggle switch)." + CHR$(10) + CHR$(13)ãSTDOUT "Press + to increase the Vertical Retrace Delay. (minimum 0)" + CHR$(10) + CHR$(13)ãSTDOUT "Press - to decrease the Vertical Retrace Delay. (maximum 400)" + CHR$(10) + CHR$(13)ãENDãEND SUBããSUB LoadTPIFile (NAME$)ã'set screen modeãRegisters.AX = &H3ãCALL InterruptX(&H10, Registers, Registers)ãOUT &H3D4, 9: OUT &H3D5, 1 'Two Scan linesãRegisters.AX = &H1003 'turn blinking off !ãRegisters.BX = &H0ãCALL InterruptX(&H10, Registers, Registers)ãã' begin loading fileãOPEN NAME$ FOR BINARY AS #1ãSEEK #1, 73 'seek past headerããRGB$ = SPACE$(3) 'load stored paletteãFOR LoadPalette = 0 TO 63 'load stored paletteãGET #1, , RGB$ãXRR$ = MID$(RGB$, 1, 1): XGR$ = MID$(RGB$, 2, 1): XBR$ = MID$(RGB$, 3, 1)ãIF XRR$ = "" THEN XRR$ = CHR$(0) 'quick way to get around that damn ASC bugãIF XGR$ = "" THEN XGR$ = CHR$(0) 'quick way to get around that damn ASC bugãIF XBR$ = "" THEN XBR$ = CHR$(0) 'quick way to get around that damn ASC bugãXRR = ASC(XRR$): XGR = ASC(XGR$): XBR = ASC(XBR$)ãPalSet LoadPalette, XRR, XGR, XBRãNEXT LoadPaletteãã'Load stored ScreenGarbageãGarbageFontBank$ = SPACE$(512)ãGET #1, , GarbageFontBank$ãRegisters.AX = &H1100 'AX tells call DOS set font routineãRegisters.BX = &H200 'BX tells DOS to store 08 lines per char and font bank 0ãRegisters.CX = &H100 'CX tells DOS to change all charactersãRegisters.DX = 0 'DX tells DOS which char to start fromã' for PDS change VARSEG to SSEGãRegisters.ES = VARSEG(GarbageFontBank$) ' ES tells DOS where the segment isãRegisters.BP = SADD(GarbageFontBank$) ' BP tells DOS where the address isãCALL InterruptX(&H10, Registers, Registers) ' call int 10 and make changesãGarbageFontBank$ = ""ãã' load stored characters and attributesãDWORDBuffer$ = SPACE$(8)ãDEF SEG = &HB800ãFOR SCRLoad = 0 TO 31999 STEP 8ãGET #1, , DWORDBuffer$ãFOR WNL = 0 TO 7ãWNL$ = MID$(DWORDBuffer$, WNL + 1, 1)ãIF WNL$ = "" THEN WNL$ = CHR$(0) 'quick way to get around that damn ASC bugãBYT = ASC(WNL$): POKE SCRLoad + WNL, BYTãNEXT WNLãNEXT SCRLoadãDEF SEGãCLOSEããFOR PC = 0 TO 63ã 'capture palette for storage & manipulationã PalGet PC, Red, Green, Blueã XRed(PC) = Red: XGrn(PC) = Green: XBlu(PC) = BlueãNEXT PCãEND SUBããFUNCTION Monitor% (VSSegment)ãDEF SEG = 0 'first see if it's color or monoãVSSegment = &HB800 'assume colorãIF PEEK(&H463) = &HB4 THENã VSSegment = &HB000 'assign the monochrome segmentã Status = INP(&H3BA) 'get the current video statusã FOR X = 1 TO 30000 'test for a Hercules 30000 timesã IF INP(&H3BA) <> Status THENã Monitor% = 2 'the port changed, it's a Hercã EXIT FUNCTION 'all doneã END IFã NEXTã Monitor% = 1 'it's a plain monochromeãELSE 'it's some sort of color monitorã Registers.AX = &H1A00 'first test for VGAã CALL InterruptX(&H10, Registers, Registers)ã IF (Registers.AX AND &HFF) = &H1A THENã Monitor% = 5 'it's a VGAã EXIT FUNCTION 'all doneã END IFã Registers.AX = &H1200 'now test for EGAã Registers.BX = &H10ã CALL InterruptX(&H10, Registers, Registers)ã IF (Registers.BX AND &HFF) = &H10 THENã Monitor% = 3 'if BL is still &H10 it's a CGAã ELSEã Monitor% = 4 'otherwise it's an EGAã END IFãEND IFãDEF SEGãEND FUNCTIONããSUB PalGet (col%, R%, G%, B%)ãOUT &H3C7, col%: R = INP(&H3C9): G = INP(&H3C9): B = INP(&H3C9)ãEND SUBããSUB PalSet (col%, R%, G%, B%)ãOUT &H3C8, col%: OUT &H3C9, R: OUT &H3C9, G: OUT &H3C9, BãEND SUBããSUB STDOUT (MESSAGETEXT$)ã'writes text to dos's standard outputãRegisters.AX = &H4000ãRegisters.BX = &H1ãRegisters.CX = LEN(MESSAGETEXT$)ã' for PDS change VARSEG to SSEGãRegisters.DS = VARSEG(MESSAGETEXT$)ãRegisters.DX = SADD(MESSAGETEXT$)ãCALL InterruptX(&H21, Registers, Registers)ãEND SUBããFUNCTION VerifyTPIHeader (NAME$, RETPIHEAD$)ãOPEN NAME$ FOR BINARY AS #1ãCompleteHeader$ = SPACE$(71): GET #1, , CompleteHeader$: FileLen& = LOF(1)ãCLOSEãIF LEFT$(CompleteHeader$, 59) = TPIHeader$ THENã VerifyTPIHeader = TRUE: RETPIHEAD$ = CompleteHeader$ã 'test for complete save failureã IF FileLen& <> 32776 THEN KILL NAME$: VerifyTPIHeader = SAVEINCMPLTãELSEã VerifyTPIHeader = FALSE: RETPIHEAD$ = ""ã IF FileLen& = 0 THEN KILL NAME$ãEND IFãEND FUNCTIONããAndre Victor FULL SCREEN FLAMES anvictor@ruralsp.com.br 08-08-98 (05:29) QB, QBasic, PDS 206 8319 FLAMES.BAS ' FLAMES by M.D.Mackey (C) 1993 E-mail:mackey@aqueous.ml.csiro.auã' QBasic version 1998 by Andre V1ctor / BRAZILãã' Load QB.QLB... qb /lããDEFINT A-Zã'$DYNAMICããDECLARE SUB Flames ()ãDECLARE SUB Pal (c AS INTEGER, r AS INTEGER, g AS INTEGER, b AS INTEGER)ãDECLARE SUB SetupPal ()ãã DIM SHARED flm(0 TO 159, 0 TO 101) AS INTEGERãã DIM FlamesCd(0 TO 48) AS STRING * 1ã DIM CopyCd(0 TO 77) AS STRING * 1ãã RESTORE Copy ' Read machine-language procsã FOR i = 0 TO 77ã READ cdã CopyCd(i) = CHR$(cd)ã NEXT iã ã RESTORE Flamesã FOR i = 0 TO 48ã READ cdã FlamesCd(i) = CHR$(cd)ã NEXT iã ã SCREEN 13ãã SetupPalãã FOR y = 0 TO 101ã FOR x = 0 TO 159ã flm(x, y) = 0 ' initialise arrayã NEXT xã NEXT yãã Flames ' do itãã ãFlamesPalette:ãDATA 00,00,00,00,00,06,00,00,06,00,00,07,00,00,08,00ãDATA 00,08,00,00,09,00,00,0A,02,00,0A,04,00,09,06,00ãDATA 09,08,00,08,0A,00,07,0C,00,07,0E,00,06,10,00,05ãDATA 12,00,05,14,00,04,16,00,04,18,00,03,1A,00,02,1CãDATA 00,02,1E,00,01,20,00,00,20,00,00,21,00,00,22,00ãDATA 00,23,00,00,24,00,00,24,00,00,25,00,00,26,00,00ãDATA 27,00,00,28,00,00,28,00,00,29,00,00,2A,00,00,2BãDATA 00,00,2C,00,00,2D,00,00,2E,01,00,2F,01,00,30,02ãDATA 00,31,02,00,32,03,00,33,03,00,34,04,00,35,04,00ãDATA 36,05,00,37,05,00,38,06,00,39,06,00,3A,07,00,3BãDATA 07,00,3C,08,00,3D,08,00,3F,09,00,3F,09,00,3F,0AãDATA 00,3F,0A,00,3F,0B,00,3F,0B,00,3F,0C,00,3F,0C,00ãDATA 3F,0D,00,3F,0D,00,3F,0E,00,3F,0E,00,3F,0F,00,3FãDATA 0F,00,3F,10,00,3F,10,00,3F,11,00,3F,11,00,3F,12ãDATA 00,3F,12,00,3F,13,00,3F,13,00,3F,14,00,3F,14,00ãDATA 3F,15,00,3F,15,00,3F,16,00,3F,16,00,3F,17,00,3FãDATA 18,00,3F,18,00,3F,19,00,3F,19,00,3F,1A,00,3F,1AãDATA 00,3F,1B,00,3F,1B,00,3F,1C,00,3F,1C,00,3F,1D,00ãDATA 3F,1D,00,3F,1E,00,3F,1E,00,3F,1F,00,3F,1F,00,3FãDATA 20,00,3F,20,00,3F,21,00,3F,21,00,3F,22,00,3F,22ãDATA 00,3F,23,00,3F,23,00,3F,24,00,3F,24,00,3F,25,00ãDATA 3F,26,00,3F,26,00,3F,27,00,3F,27,00,3F,28,00,3FãDATA 28,00,3F,29,00,3F,29,00,3F,2A,00,3F,2A,00,3F,2BãDATA 00,3F,2B,00,3F,2C,00,3F,2C,00,3F,2D,00,3F,2D,00ãDATA 3F,2E,00,3F,2E,00,3F,2F,00,3F,2F,00,3F,30,00,3FãDATA 30,00,3F,31,00,3F,31,00,3F,32,00,3F,32,00,3F,33ãDATA 00,3F,34,00,3F,34,00,3F,34,00,3F,34,00,3F,34,00ãDATA 3F,35,00,3F,35,00,3F,35,00,3F,35,00,3F,36,00,3FãDATA 36,00,3F,36,00,3F,36,00,3F,36,00,3F,37,00,3F,37ãDATA 00,3F,37,00,3F,37,00,3F,38,00,3F,38,00,3F,38,00ãDATA 3F,38,00,3F,39,00,3F,39,00,3F,39,00,3F,39,00,3FãDATA 39,00,3F,3A,00,3F,3A,00,3F,3A,00,3F,3A,00,3F,3BãDATA 00,3F,3B,00,3F,3B,00,3F,3B,00,3F,3C,00,3F,3C,00ãDATA 3F,3C,00,3F,3C,00,3F,3C,00,3F,3D,00,3F,3D,00,3FãDATA 3D,00,3F,3D,00,3F,3E,00,3F,3E,00,3F,3E,00,3F,3EãDATA 00,3F,3F,00,3F,3F,01,3F,3F,02,3F,3F,03,3F,3F,04ãDATA 3F,3F,05,3F,3F,06,3F,3F,07,3F,3F,08,3F,3F,09,3FãDATA 3F,0A,3F,3F,0A,3F,3F,0B,3F,3F,0C,3F,3F,0D,3F,3FãDATA 0E,3F,3F,0F,3F,3F,10,3F,3F,11,3F,3F,12,3F,3F,13ãDATA 3F,3F,14,3F,3F,15,3F,3F,15,3F,3F,16,3F,3F,17,3FãDATA 3F,18,3F,3F,19,3F,3F,1A,3F,3F,1B,3F,3F,1C,3F,3FãDATA 1D,3F,3F,1E,3F,3F,1F,3F,3F,1F,3F,3F,20,3F,3F,21ãDATA 3F,3F,22,3F,3F,23,3F,3F,24,3F,3F,25,3F,3F,26,3FãDATA 3F,27,3F,3F,28,3F,3F,29,3F,3F,2A,3F,3F,2A,3F,3FãDATA 2B,3F,3F,2C,3F,3F,2D,3F,3F,2E,3F,3F,2F,3F,3F,30ãDATA 3F,3F,31,3F,3F,32,3F,3F,33,3F,3F,34,3F,3F,34,3FãDATA 3F,35,3F,3F,36,3F,3F,37,3F,3F,38,3F,3F,39,3F,3FãDATA 3A,3F,3F,3B,3F,3F,3C,3F,3F,3D,3F,3F,3E,3F,3F,3Fãã':::::::::::::::::::::::::::::::::::::::::::::::::ãCopy:ãDATA &H55: ' push bpãDATA &H89, &He5: ' mov bp, spãDATA &H57: ' push diãDATA &H56: ' push siãDATA &H06: ' push esãDATA &H1e: ' push dsãDATA &H8b, &H46, &H06: ' mov ax, ss;[bp + 06]ãDATA &H8e, &Hd8: ' mov ds, axãDATA &H33, &Hf6: ' xor si, siãDATA &Hb8, &H00, &Ha0: ' mov ax, 0A000hãDATA &H8e, &Hc0: ' mov es, axãDATA &H33, &Hff: ' xor di, diãDATA &Hbd, &H04, &H00: ' mov bp, 4ãDATA &Hba, &H32, &H00: ' mov dx, 50ãDATA &Hbb, &H04, &H00: ' L0: mov bx, 4ãDATA &Hb9, &H50, &H00: ' L1: mov cx, 320 / 4ãDATA &H8a, &H04: ' L2: mov al, ds;[si]ãDATA &H88, &Hc4: ' mov ah, alãDATA &H26, &H89, &H05: ' mov es;[di], axãDATA &H8a, &H44, &H02: ' mov al, ds;[si + 2]ãDATA &H88, &Hc4: ' mov ah, alãDATA &H26, &H89, &H45, &H02: ' mov es;[di + 2], axãDATA &H01, &Hef: ' add di, bpãDATA &H01, &Hee: ' add si, bpãDATA &H49: ' dec cxãDATA &H75, &He9: ' jnz L2ãDATA &H81, &Hee, &H40, &H01: ' sub si, 320ãDATA &H4b: ' dec bxãDATA &H75, &Hdf: ' jnz L1ãDATA &H81, &Hc6, &H40, &H01: ' add si, 320ãDATA &H4a: ' dec dxãDATA &H75, &Hd5: ' jnz L0ãDATA &H1f: ' pop dsãDATA &H07: ' pop esãDATA &H5e: ' pop siãDATA &H5f: ' pop diãDATA &H5d: ' pop bpãDATA &Hca, &H02, &H00: ' retf (2)ãã':::::::::::::::::::::::::::::::::::::::::::::::::ãFlames:ãDATA &H8b, &Hdc: ' mov bx, spãDATA &H56: ' push siãDATA &H1e: ' push dsãDATA &H36, &H8b, &H47, &H04: ' mov ax, ss;[bx + 4]ãDATA &H8e, &Hd8: ' mov ds, axãDATA &Hbe, &H40, &H01: ' mov si, 320 ; si ptr to 1st element of flm in upper rowãDATA &Hb9, &H7f, &H3e: ' mov cx, (102 * 160) - 321 ; elements to changeãDATA &H8b, &H04: ' L0: mov ax, ds;[si]ãDATA &H03, &H44, &Hfe: ' add ax, ds;[si - 2]ãDATA &H03, &H44, &H02: ' add ax, ds;[si + 2]ãDATA &H03, &H84, &H40, &H01: ' add ax, ds;[si + 320]ãDATA &Hc1, &He8, &H02: ' shr ax, 2 ; divide by 4; average 4 elements of flmãDATA &H74, &H01: ' jz >L1ãDATA &H48: ' dec axãDATA &H89, &H84, &Hc0, &Hfe: ' L1: mov ds;[si - 320], axãDATA &H83, &Hc6, &H02: ' add si, 2ãDATA &H49: ' dec cxãDATA &H75, &He4: ' jnz L0ãDATA &H1f: ' pop dsãDATA &H5e: ' pop siãDATA &Hca, &H02, &H00: ' retf (2)ããREM $STATICã':::::::::::::::::::::::::::::::::::::::::::::::::ãSUB Flamesãã SHARED FlamesCd() AS STRING * 1ã SHARED CopyCd() AS STRING * 1ã DIM x AS INTEGERã DIM delta AS INTEGERãã DOãã DEF SEG = VARSEG(FlamesCd(0)) ' move lines up, averagingã CALL absolute(BYVAL VARSEG(flm(0, 0)), VARPTR(FlamesCd(0)))ãã FOR x = 0 TO 159 ' set new bottom lineã delta = CINT(RND * 1) * 255ã flm(x, 100) = deltaã flm(x, 101) = deltaã NEXT xãã DEF SEG = VARSEG(CopyCd(0)) ' output to screenã CALL absolute(BYVAL VARSEG(flm(0, 0)), VARPTR(CopyCd(0)))ã ã LOOP UNTIL INKEY$ > ""ããEND SUBãã':::::::::::::::::::::::::::::::::::::::::::::::::ãSUB Pal (c AS INTEGER, r AS INTEGER, g AS INTEGER, b AS INTEGER)ã' This sets the Red, Green and Blue values of a certain colorã ã OUT &H3C8, cã OUT &H3C9, rã OUT &H3C9, gã OUT &H3C9, bãEND SUBãã':::::::::::::::::::::::::::::::::::::::::::::::::ãSUB SetupPalã DIM i AS INTEGERã DIM r AS STRING * 2, g AS STRING * 2, b AS STRING * 2ã ã RESTORE FlamesPaletteã FOR i = 0 TO 255ã READ r, g, bã Pal i, VAL("&H" + r), VAL("&H" + g), VAL("&H" + b)ã NEXT iã ãEND SUBãErika Schulze & Gunther Ilzig TRUE COLOR TGA VIEWER FOR PB 100775.2275@compuserve.com 08-09-98 (18:32) PB 362 23932 TRUE.BAS ' Load/Run under PowerBASIC to extract TRUE.ZIPãDEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"TRUE.ZIP",4^6:Z&=17667:?STRING$(50,177);ãU"%up()%9%%%%-%B(I/Jh-);]z(7%%5+%%%/%%%%wj%firj%SVxyB&yr>'Tk5bnj%ãU"x<#AJe5J<*],Anon;6;;c)pvYLWZO]A)GgUzFtfsA(QHEaATNYox.')?dY5_FJ;ãU">E2fp5uQAjB;A*poq8K.^9)^:Fd64JRU'M_Yr]H%SSSSbP7F/j;dvc%-4gbF\[>ãU"0M:CP4t2I/0uLbqn]/yjNJc-:()0J_#]v&dw+S:63OcZJoHPIzt#5+ZY3lnVQ^rãU"RUOnd[7S+s[Crp=KFk:Qm/eLSP%_%.ju2NI%Vt]4hjrrG^n4(xQ%b&z#xERmpVSãU"s&5r\sA$./9[*V%qE7%Mp/UJ)3x)EcY)v%n0r-%o]3X)UQsxZ/5$=bQYX'l4KT]ãU"4<7>F+NjC%-496Umj7LQgs_e''e>tT-J09_poV07,ci/wS%,x;bM#B+98)SA7N\ãU"ey&++m0C%#w+gT)V6_G?CE_fI^aFLJSm-w#=/;P#Ii>9yA*;l*4NYx#0dEOzZãU"XmS;)6e-$3V0Gl$u?h]$CSETz^/m5e+kh:P'+jxB&*Km*aTO'x;=s:?&dHJSmfMãU"14uMh=)g#wFj)/kgtyo2Hru3Cx$mHgv4^FaQ?CxEnNZTDMZa/;5RiaefNl-cE>?ck1=$OBãU"b\sbW&.NA(\IzgRW7SIvJ\^?\BiVI\Dx.#b;oKS$KyBN=UqMMjdo8nmrct9-=A<&PH*8yM>S#kQãU"_p?LMDDJJ#X=3>,>;EzBm5MCkvfW0hN2BJ);jBk]m>+X%&up(%)9%%[%-%oa8dIãU"<-c;55#3%%O%^%%,%%%%y%lfSfRxrf*;<>T]=7w%'Tr4uAWQf3,-TF*^+#R_nNLãU"=?w-ãU"#5)xmaIRRT4D;nQ1s4(yJ0>6xWUH;ktn0$#VV>$;#[(S$BkjG'DaTa0rk=6AX7YãU"QH1WLUd-e]dD[3Tt_cq]KG,s1/'*j6:1Er?]+#&$a(5Z-3\\#IW/)wepvU58/+&ãU"9wr.14s?.%dS0>]xJY^bA2IK*-)TiH:+J*$Udg+OAwWG'B>4h7FJ*Ns;FxLJ7TgãU"U&(v-7YhVis17;h:JIGe6V#)[S)\/DT7tSGe+2q1+*Tcj?qK+DjC*.t-UD-YG]rãU"B$R/cG\i'=333qM5(G'$2V5;]P:GkUPYGq?(l6rx?moEmGsZVInVYQ[a?M_I[)gãU"?g]NGYXd/$Zyo(.b[[;9ãU"8Q+Z1P&Qj7Us$I/BvmzRng?)CW_n*m:q:&blkriss%,[A]Ru2*eO2$r$G#lEph)ãU"]gmOh&o\yI3Cw#0upL2M4/N+?yA?-G-'la,h>ZPuoom.ld-Bu5\OzBRkN9'3Hj6ãU"\%Zt*SlGRFS:K-TuJaG0dcmo\ii[GWãU"13\[$Ct-B-.C+P+,$Y[P(G%nVuSLEe7$Iq3RNkOly=.:)f<.Ds?)';eTVg_FQW9_ãU"ss?t_q=)H7'wTT\pQAGqwETI)z_#0Hj#8)V/c+sF:q
KMXA'lO#LUJAeh>h%'kaPosãU"66U_]qH::\;[KpTCKe^>9fJz/%)KZ6YGo=$3fz[sBm(t=,Nc>F&JBwteZ'OMrRDãU"%snBIw]I-kh6^^<Be+=gA70elA_IJQ(155ihãU"GCrXDJ./6n\pNYjZx?=eioq:<'Fu?]KzkRYjG+=21]tg_R*fI:%e:>SZ&aQ,o:8ãU"h&plXN\02OoCycg1-2Te(?Eue9l,5qC[p[CvF'(3bkz%WDrN)bxd7w+)E::FAhlãU"v>[tD.?=mwL904eEG/\8RIt(W%8]iSuamO^4+X^gOuR,2&SgqNcmCVXIK+?MGsOFTeS:jI6_8e6&&IRR4RV**+$^ãU"ej&o.O%?%,tgV3f<('+i4^/+J:aAJtAFB-^s&$)s[nU;($[4.T(yhGãU"jbRD'V/fH)xm*RD3aslh'dOh(G^0MziAKjn=;GZj2X9*BHF?JOMO$8GTc(]O:K6ãU"?S'.w0i-Hwx69em(l]&2p+P]&HM2HE;GyY\k+/YoTXrlqLOoj$9nb4R1jOSQ:K;ãU"sN&/hg9[lm9%i;3_O.GmP_SlY*q9z?aZ,,w[q<#/6C9[yLN.&bnwkvmyãU"V30h+^>##5mgRsYN^g1EUhQU/#IoNPQL%T9\Vx_V:7\3/U*[t0pw5H*ãU"XN%eKNO8+Mbs;_),Hl857&DmDu$*;lfqEdKKN9;usRZ94n:Y?/Y]j]#xT5EgL+6N;R'ATu=gB?ãU"koS.$9wD%pB.3MbcLjer^foxa&EP6BUpe5wnãU"<:p9ZW[JsP]mjPd^APa(AfVtgUymw5CG9\nTaKE-^]CZ[.3ejIAWEtp*'[I2ADbãU"?FLdq1N?n/<#(>cdsmoK?2E,24#]-\7,&da62t)oCQLEPHK%?c>J^n4_[>y0'GJãU"6Y.(FqO98E-?8=9qLmqm1l3W%P=hS/wT>]1V6P1b-Qr>8q&QazT:'p,EDGl)M%PãU".9?UHe2dW>sXSWr.]:QW0&',XOSqV9)?mK/ãU"nvU>9cG/^ce*IjGjp02h==2'jCJA#jM?b?W]=;+^d9AA2l/sK9aZP<)bID\J.b6ãU":f;Wee?&9K/uEs5%snM_GN*(L1AD8<4K>8Lubzl/7?A9#kHeV6mtg*Ht6rJj6+QãU"\'U[o:0_k'Fi(u(fQQVC$VafDhOFp8MP:%YkKB*nPNp_Tew,'*Isj%,TJ9%_CH>ãU"9\jJ^RvP<5qOS4K['bq3WvwRf6hp7htBfj'h5?(Sg;(=G^YZOQtãU"OUbJaewks_IV##:.Pm4PH4xDG'-41\(e\IBGf(+*:6B/vLhy)g]QBkp]z?[ITh#ãU"O>U7;?:So&kh3Kj?k^DKt36c5GU:_=J+MZrny5&GWX]O]Pt[_1J*u^z+$iY\,gAãU"Br(*xvgRls3IKJBV/b*0sDR1ztYPX2V1n2d&OJ&P=ZUVjJAZTYXe.e,W[6q1Gb7?RTl7mU%yJplCd$YAfZPt3qI:>5uãU"DtDSeK^#gUT*\AazGJM&Mb$J/N4XsC+XqDdqDAtu>$-VZC)5qKw)H=lpkc5CjRmãU"TV>6E(dtbitk?m$#'2YJxABMGLednz]6SC[KA%M.CABqprLl1^:IV,rZT$FtEO9ãU"an9hi.\^X[A,DSPc7b\eEN?]KijZH';iB6lnp=E7'XD'%FLN_d7([wLB^tdGBELãU"z6V#rZycn5z__p'4h0B:7bQ'M=q5>ga^fBcb24-\41EY'D:Ep-Q7=38H_Y?C3fkãU"5X0,,PCcx?Xtcl*c^o'Vjbl#ezIv4aiV\e,9eul3_ZJr]]XSfomjO#O+O#JsXS#ãU"0rnd8?U]]6&-xMro5)m4v1.EkJt(J^H5\F'N1:\QNp:]8L5Bxsc&A)3KG>\W+J$ãU"LZwCOIhwYj8:a)ji3llT/'.(O)7[F2%P_u/J;9LRjDskqsUOVxXo*1LvMVBUUaEãU"O+'2$t)q01,6k>Zkba<]rs.=wpvJ+FR_[4_7.Isa5w:TH%ZfBc&zAZ)h&]Z'C;?1LNwP+p,*KfãU";xg/ISDE3dp0Lq,:\zG#gZ_i3u>#?dfSHQCvzj%pNp%KaDMQ,ttIeKew+%t]R91ãU"7*=J4kd;DbaPW97*%rkkZ2=N8hR^4i[R(rWG%4.N$B/N[jW(^xjcFJ>+0DzWa4%ãU"23y.\z/_dZjLPVgkM4[)#3A^IwFa2v#y$2Si>y'UR$[sVgSUY]vt9ktY2(>8g0%ãU"W3l_g40a%A\r;h4r7wh2,]lL'x(up%()9%ãU"%%%-%7Q9dIogD.Q&S&%%'\(%%%,%%%%ylfS#nshTPaX=QmU9?(+ZZBsBE;V#\J*ãU"(;U1j;qQa+ztDbR[c;ec3dk>8eYO9:\zWKKvlITiQN3j&:'tP&O9/JJQ4Oo9Z%+rA7pdyZtV%oO6flfjkL>KhJWnZJZ^a.IYb>,1eUãU"(Q$Iz%:80uU3[Alc'2diN%;e*Ap/4[PD$BM/S\z4^B.pfWNl-aV*_[(VcbBsiL%ãU"VB)rl):3CkA)D]nuW)a%.wG-K):M\#jbGq9)7UsEQC4>\fWg#/^-+y$x2albpAUãU"jQ&X5;udx9B#&BTTVh\PqSxZC21msjpmcfqE'$$s0]O5a(;=]/g0x\kR-bSYZH9ãU"'u,([?V&YwEf'6dn&Iidu%p()9%%%%-[%29d#I0dl-.Y'%(%p(%%%,%%%%ylf%SãU"tgo.zu,mCx0=Mu8,\R4aGHo0kw(fBIr4,,BA4eXc∋hFmz%XS(A7SAkv_\I8=+GeD[Bz/q9#0S2rMJ#?(x]0/ãU"FA.k'AqZ=UhRjID.;5[5GM2&>\B\%2+T.ns)fw_>]ZDoYk9(3L:auO/ARpXBv)[ãU"YCWn7&.7[dwD4C'/LQ(Xs]I6#j=1#f)]+n.dqANXi$1BUO)z;6U%JRm>6JWt3[1ãU"5'B*[j[JZJZ-lU)7w*1,Us\ãU"B0-Adl1Z$dB>isO%8xaY.bIFwm75qh)BvI33PFXB1-lh.RF2gkYCW&%MYJ9H8ieãU"M=HW_f-9XdK:HWGY#gXfW;5QCQOLv&DpjqI4X(v%pb2M>6U.$K3Kf=j/9VbEF?E'(]GBO5ie#_vtKqMBW'm6eKRMqPãU"gA/k50fnuj5_WpzjLA=#kM6GI:F>WSY4Ut$jgQ87Ek(dW93<3\%A?+V(JZTm:CzãU"skS$'UR.Y;k#0W[(0maF5RwS8lnM^'ZmE;4pk3g0i$lOuXLLG&sz$MsUfC0SF7SãU"(vLhpOC_QV>nCdyKGXVhdji)n_Gb?i(6Jp\97m-l4DOb[[es/6Xk.#nH_UQQHDeãU".d&5;U*-ns_qTO5W-whY4KZ<0IQR+O%qOeWgpW4ãU"=Fx=O1C2$j;[FcEk;W,=CB[EeAfOEfTg4aj0k#LXX%up()%9%%%[-%t37.JT4,ZãU"I_DI%%:=%%%-%%%%yw%zjSg7fx-$$vB?B&]d$zTrDs#]B'.ZU&E5;E+(j?aJY(fH4ST(cS*HWUT4a)?dH?#KãU"a'=-t7Oa]Dz1aKB+.QNJ:TB'oG*4/WRADãU"ftF/4J^]&\\*ZCYM:kA\B44e4C6dsE]u615wq+[_VWl/fGp4H5Ro5\q,M3R03+RãU"hq9ay(;D\M%J]:v%<;EjI2Qg*z?6S7Pi68B5$l-OFvEC']:;nG=:+REqI;+#Vg)ãU"f-Os3(+SVlN_B>F?<^,O*XVWQK69fa*j.:1$$CyNP&;?=Z8ettV6]%&cl%g5?)RM>?Wm(,=VFt*ujBãU"&\&C==lGim6F&l9Yghr5/HG#(#9R=*U*uMX&%3dFY=w'TSa$p$z.dTas,GT7ãU"L%UrqNweU-09B'\.)A'Gec,c#ECrayfZT/JVB^mu,S5N:KV*pe82.0U26[]A%ZZãU"Ne[L/CR+mx0B?qh\=l0#EbA4ãU".Bf=nkefW/;=m1#kuR?95=HG$9W*_.LhGETD]?U.Pl;=/F:&._M>A_6c1TqQQ$tãU"p)7Y>g*T*bnR#P='l\g+]6>8s;lc]hwYGs<2S8*#>H2u0Zd.tTH*%KVU_PKI\HjãU"i1iPUa#lu_Q\XarIYjdZg7.u=#t'7.)mB$+:?0_jwe^fMSrtApW[3aQ+[p$I].^CfacUES(c[V'i>/^L8OYtlp^'C9aMiS5QMMLZOaTQ?iãU"eYl0&*isVdLe0Di#RJM>:B0GVH^p^$9S$Ir*Ud]^R*/oBn>#+7R*RkQ(P:L[5+3ãU"('e2-6AFAiLP<0QEkR6MuL)uaLGRA9;+^1,&KbtqZAlslZ,%33b;+sbYFRY5ãU"W#LbpZIAC+I9>/pS^_uP6ERT=^Geo)]jaVS=FtCy7MYY_B6-sHI6lUVk$3)VIF#ãU"eMJ]=nH'>uDI_//%7*v\$F\-,F:m5>CP8Ag1]A3m6gBr8-Ls>90EKj#IUb?O7>ãU"64]/3a4oOSLKcWbohG)^)CpsvR5VjI^b#Q04eN,B^Wtpi^.]3P5]i;LLmy/Irf5JL..rlcãU".Z8qVN';f8\%Elm-X_._Z&/ECuVmU\8IfE%3]iydv%(TEUP0-=RYx#6ãU"-YFV2wd$JoR&HZk.fj^E1>pbk+?pj;3ãU"l+12KJHbm#c?q3V(JKQ(&kcRwUgBw5S57J7)-D&k\t%S-Rx>_.o._Y[YoGI*ISgHVyppu/pN\<3x5[r-uQiZK(P_[_ptfãU"]Hffrn?u1ozq9$$HSyHiH:C%ggoe?=Y;)gYk[MV8VA\=01g4*J2JTHQ;$OEh5M1ãU"R,(ZY/9B,=;+5jXgqhBQP+f(yyY2J6b#fHLpfOFZ>K/Z2d>j5<'c+e:jCN7Ri;*ãU"tSIP)Ll//4DV_q9kBKZdbiQ%dTAIKuZbROZIXm=8mhE*(-M.B7LLF;(ZerL8X_qKS=TwipG576ãU"_G:OSMOCmOIuL/zlm%%h0UT$8Y[pSqiYEr$HEWlU(6CkfjvMGci+uH9/uu6GIZ\.:H,IoIgb%ZLjEMT[:>CfQ3NãU"Gh;t#/UpMGto$HIFX5Q*g/&*?1fOz>Fv#cSeO]]$Qr9&[f:>e)Z7R4GSVmfe91#ãU":4&?zvrpfboG8E8YGBS)uQ[q<;AX#DqrqMT1NR%y5BQ.JX1-g-\+1pE&,dmuI2kãU"aaA>i9JG;eY&euC/f$O[TN]a#l&13J^o[8WE(*U)ghC:I28fZ>)hq,[4#&-$jPOãU"s*>A]W1/a1PnqG2icfV&BDhDq$[--YoiAv)T]>=l5+mn7gc5K_oXBU[Oo>_'e-XãU"8y+,e%g^Q'CjsaKD9K[u#e/[Dhkl^Fm&UPAh+p;qTtY&]e-l>%biD;qm103cnt4ãU"oe.[)b#CJL8Oe[kD*D1pF?4uyOpv1C=Z15^UD%7[>6\Wz=8w%u7D\[%d7.x;,^]ãU"Gg7(Cor69Hn2^S6I1dJiDIY1esX,*6^h/SNg-ofO>>T_S?NpT7+Hh+Cr&;WXM%0ãU"kXiFbqi[3Y/w[MlY#6eqFEE_hnU&):Am3'.Xk\Y^za7YEJ4k+2RlC6VoVTq:yxN7ub'_Inm8B1vB]Q6?1oa%vu<\ãU"A&(A[PG#ukg+%_q=%K8%.wgi4.X/)ePk(Me9-wf[,9V>b3c&vLHn8URM_*-)fG7ãU"2*A#,ph-=L1.W4Es_9Gbo%TpzdmILOikg>4sM*F<\$Ncg3N^v\0uP]bDz:H^_D2ãU"9u5fEm7Cf8AsdcHlcb\NHP2XLyE=+5=a-HGiooU_3Ym&qS9I$Ink\cZ1^t+_D'Z]Ri1q$A.7A>c_UpG,>ãU"7Bc[mUf=3q;(=&f6=6KjL=QjVF(%[KkW+NN(w^^da#N-IVf-l;NH,rWnW'O(oE/ãU"0A)bU$zBx8r_/GFDQS-d;9';J[hdZ-pYsp\2*JUGf:bjC:gcinYTPW3Vx=ELpSmF)3rX2'#_<*k8EãU"Ant[8r&%M73:*OkLEBc&(ja-rFtKJ#M:$l/iXBd;FM+jAT?oJ4]_AKbID:s\8iuãU"Cc#k68f9(5p-U^s,6&%-V*t;Ji3Aa5ahJ'3).MYWGy&kZ2UVYP6dL=ZT#Y.*o]z?0O0I192U1[J4$sDuLZqsPEqq5E67yilJ?yMãU"(pm&r2Ku[k/dS=+f6>PM4nH8g_bsik,RL5b8TJA[=q)Gljx=0(AhK15D/ch3#;RãU"MHe'>^VeaMC^hPEOC6&>Gdo9bBt,b#A]Y-A:4B[w*=h,TX;U9T_Z=FOqC:sGLamãU"x7]*8%Fv6rb_Dq)I\F:N4qaS6.=z%nb;*.\Q:?g+B>4z$ah2$I50:>Us*qx^LtCãU"kjo1u7dmR8GR<;G0:8AVu2my(1$>wnhFMA&.5y6Pq7KCwn_THBs8wno5?QYqzgXãU")^O_U_tJ^sAg52mO*8VVZjp=d3crr81btXd9BRT8n'y:-c(uh,-.I?Q*:.Iz<[QãEND SUBãSUB V2ãU"79]8)C\xIps&n_lt8&Va?M,qk_(8PD%ogNakNXv;[yr<:U?y5t\)^_+S)G/uEd(ãU"wh8brus(6$wQ3Ig7To2Ro]/XQw>,Ridr2tb=Q2GR:ma&Z1aPEeTX4ykItVsvU)RãU"vZ+eES+H$SaFvk9='9[ejiP0RpPwbS=cK)l1Sd3.Y:>KKJN/>E=NO3>Yka+U4ãU"N_ZQ^)*)u-&>HA-wSa7VTSb*0z3?0LO8HoOc8PDlj:p#jD)t&3D0Wr,/NfOS$TWãU"+l\On2MjlD$Q5\8cFGtTM5v*IAig)^Zfl1Jgwoz#Xd)HM;Mn#df+t<ãU"K^X]Ja4,V%<*rWoy9wB4n9HqdzNk[J3N4/qp+G^_e*KMqxf+7*8?%YwãU"mO64g.mw#?ffcDF23;$6SXF05=oh8heMsBWAHMb\w5+ai8285[_g5pbhbKfwxibãU"q233>Y5lZS<68x1$_bsQAFWdpnfEb;Nu$-9,DEWQ='Cml#K[/7%kzA8*o,j(8LMãU"xy'+)TDJLZ[Lbw5LJ:e4na4Ar^:b4^>Fa3^->Y]3-pTdu6-(I$ãU"%cR.dLpMJrSJU,M.PpOIeN;v3_]e5*Z\xXYmXda)C']t9D[QjlC_Q.$_u(k-mW<ãU"2\0(b4gnC+.YU<<9fx+[/B,0D(1mB)SP9n%I5pf4oYESjDvg>3=P'2VUnL9q*rvãU"0.=C5okR4C9ttLnQaoSLMk7FIXkXaE[EaZU9qIt(R+i/yxZx*gY65ãU"=;e[Bm)r)EpQpXdZswU*xCcGGGy:>L9bnnkB$UE5l2CN,]1'&A67B*4sMP>Yw?AãU"4,F(#7TI6Vpa-v(Fs'>'XY[jSCBd3P]MYX(*FdVDUM'2;g[SEjaZ80Z8D4hhp3]ãU"uIXKMkiYfPbT+p/v_q>aGdD.h7H_D+mcKIaYkRTfR3V.ODaj6AT<#K+8Y[Fb2vnãU"&\#M-xt1/k<#G^ld(=jEkA%*Y%v+r*69MJW8r#xbxwwjKI/Gc9%_7OL_QNnN7LJãU"KM)Nl&G$U07GhJ;s:K.P9=\4<_3jsIz6RAZQlM-4*6nK*GI4]rc79Nb:tDkNR5aãU"dr0-Lt\5E?#sOB_Tv,$G9jk5IL%c)eqCrrF=&ml9%V3.kUuOX8JE/E5+-=]&\YwkABuAZ$(5gC_hy[nR=LMmzW1l5->]x.p=;IKd[YSTIUãU"+AQjBw)IhDga:;DnBslc+K'VB)r_;H.n3v]B7QPPq$dIWFcOpN[sj%wV(eVu+&IãU"xqQtaZ3v/KLP_Kt5j?;x_[46d>1oãU"_1]4^U17]]G#]HSc*^88[M\)4]_DIiVsI59O[bfkn(%ee]d,,40zAr.o-+Ge[+5ãU"W1)vU_aYKs/DH[K5QHc$bcv8MsG#lge1dHPqW%qG'\qwJ#_uIj1A6%dX1k(bBFAãU"Ef]N4e;5%Zf.<$F,<1ZR-H)p&\-KcOGE$8q8jc]ZP#L3ux5K.y2hsY,=gA#7*2d$Chfw*U_wcf)MãU"M03WR7$GuAPIWRDkPnIPDX;a;J6i]EZiAowc+[8hhIsd1ZxQdW9JfSkQiG6x0&RãU"G,mK-6QF2.IlDeq$YC:,x9z:$[R84sJP5Bod9lhV>5o<*OEggIOc+s8%.4X%$$XãU"$?teeQh$,RF+u,Cx4\R#qlcwKolwsR80X1q[QoQ>yL8hK)X7.j/:HeOX2n.mAV,ãU"ns0#5+KT1Wg6yt17s&aAZfKQrKaAND)%=Q$a(*DPpãU"ZY]eyCPLX;I[$lE.5jl[cD_vj1tiFzfl#;wJb[NImb2tO>G:+/iUDTD4/^%C,=CãU"sT%vs3ãU"_hKCN-LDBu%^>0t:*qW-.DA#eSdn]*<$rwmEOPh_idsW-YuGR>#fLT*4us?^,^2l\#M5ãU"=u)seHGlZA'Bstc+>6W3^I9+:q;_3D72#GSMOWzb46KmYãU"dnDs:2xR\EeCF0%0q,Fbqy[VOonnSnnU)oi_im^]%/=CF4k7\tG*==0_\D+PHV.ãU"Q91PDkcap#5s1Nme:Fu$w5&;O2gbYCoTl=^/^Lo^Rx=z_-qa:.C39Aj62iUBãU"22zZRLFmoIX-F9w*64SDyVqai7YT+6[?KgaZqc>VF,_$(P8L$+T7Ajb+V?(PLf\9wf.MODDvk]vY?cJXvPDZwf$K3#ãU"7Ske7gGf,fyiH<73mK.-tcg<1e-MgPjF:[t#-Bcg;;2>Ag9$-G=aãU"3]n6)5c'lDb#9KkI&-JJGm5hHd7J'4yj=AhA=4mb'>vXWVC;ryO%9&S;&/'ãU"0[np3K4QJ*kwV6HpZeo%jnKs*536N^wW9VSh=%<&SP]a?M]jm2l_:s+cDj11te6YP^O4vQGIyãU"BPbqpY9mN1%p,2HtAlFvKHi+kxNnC,oUChtC_B#qqz*6(uNL2xvD+moZ^f/EnR\ãU":hbnjrud18DS-zna^[9fMR'(e6[I\&=0f1CAtcãU"RY.(80[?s#tfLUJk;_ad7RA[(dq?=pJDg8pa[+1ew/DCO5dtP4qA01V4nCvoOOsãU"9lT&IMLf2%pS^VUB46Ii]4kb,%UONl-:)%K[CzZP#WDrF=;,+rãU"D%up()%9%%%I-%sD9cI%8&JXA'%%%C,%%%/%.%%'r%xrfs%SnshNFd,>BSU9U9(ãU"f[d(Aps&bxTjh[>omC0+fon6a#tnCs(i1jxTcjEhF7/IJN8s#6IãU">p$M8Lk=J2=/wv5.#l][L.b5fXoUo=Zc)pUlcfw>sdqDRl.pH^V/UN5gHgDv5=#ãU"]=x2]JB'#*4+47<6L-M[&8'0Ku4^\ryMEGjmNFqp;_G'757=Qp?Vz'>%ãU"IL[JWh55Yjx#=1+..dcNmSCh;NAdztj[gq.WQDW%5ixtq-tw,4<.W(FyVB.]E[lãU"oF8mVCL^B,_d?(t.nsdO*gH_R[o3VNwD>%up()%9%%%I-%sD0cIjN7Bog).%%N.ãU"%%%/%.%%'r%xrfs%Stgo2\dNq\*z9#uHtJP+w3,HETkpkd>Oq=k8O3?(]fFBeoHãU"r-At*?YP3o=3:u+TQ%SK]h21GJ=pF(/b%U(VSni=$+CdiR9A$w12F7j4\+?RIp)ãU"ya=7hr5jY6p6&o^FzgkONpkJog^XWVB-X#g#(.gVWC-U-/0k_U3m[Xa3n--Y6a]ãU"x\K7B^qmAv\JPX5ydSK-Y0_ZNjr&2(wT*rl>\$i8p_J>N&BT#3F2Uz*hXT/0T.3ãU"w-zOUc]U&:_4uH7*Q>_>VvWn&m=$(ZCiAlZ/r:dU6LK'0CSPYq5:?,s&Xy7qyOLãU"E<6kg%$=aaUnCF?E1)$E$9(TKQJ7D?#mUu25SA0)-M791B:r7)(Gmns0D_6^T;5naapAICoC/(pIq/XSxiuRQK]&>U\tBQm0C3r13V$[[beãU",WS3W]=MtnOoS5MUai(;'+7s[Otis;u.bDgtS-1Lgk>:k+5(GG=kOm&d66&L,$VãU".V=8a7g)sizD6hPcW%LxPJ7[q=?$KdJ_>Ct'9X6,#daOj'HI9X*cVWU%sCy(6=/ãU"4od2YIfjaL8u0$#cUT'H/^0k*O'11FF0pug;>2U0*P'VGUH(rQi4i4,uYXSDS_2;-L6ga]E/,3xo%;Jy&h\/+N^%Ck8v-K2I;x]dRPG]TãU"g/5G+/opq;g/H>Uoa0(]LOR3Mck&/(-'SPJ4Sok6mUIT=HNWFA3c\*&Tfb;6oWH;9C6iYJPTãU"B\-M-N3EfYvw;9sR%,<9HiVE97L5j%?C%19cPL%fP],%c)<&CkB1#G2l=6(3;+=ãU"TbI[bptH1(qEH2ddLUdJ&N&up%()9%%%%-%;sDcI/E?FJ'o*%%'33%%%/%%%&'rãU"xr%fsSuRgz&e)L;xz^=Vt4(W/e+M*hor+CQ1H394$Fs)rce;?R&qF[A7?-g'bPVãU"&=h-E+4UiH/g=3+%n1+r5W?_%[fI=x;_/A7B9Q6wr$k0ãU"V7b,iTpb:tdut5Hvj_pCf$_g0Z%QqD-r261U>m$O)CO_XQKaJ3H15A\5[DOi%F+ãU"Kfn&T^-RTGfKWiJ62Opu-_(FN8N.p[EijmyF')OQLi]U#9c?^pz6+=ZL9RhyubiãU"5CQU_PBxL;j*$#5XW,*0iS'Z?AC7JUXr;CMLUKGLh'Z>?P0KuTI-3*)O#*748b5ãU",seOzOvF+od,&Y.$R_;Ug&O;f-Sog9e#(615p]NX$Y/mWc^3LDUjIgK%z2Zgc;1^:ILI5hM<)g'do.;tO=X%ZS2z0ãU"Wd?s/FQ9&#q.YgJ;m3Y)'Os[#;\>w2sagia3%rrz5aT>VNUwrmQURtVju7SmwiQãU"kx3)=Uy[pA)/E=2:i4W(>URãU"K7jL/7%++\nA+Emo1Pd(bVJF9HcZoiWEMOe^z8X6*\PX&M7Fr[I^mdS.k:O%sVRPcycYlSMD(h?8N3_*'5Vx<1=.h#G<[02E_VMFãU"S%fu2ydF5p%],#lOr%b+.M\(T]m:%d5>;6AQ$e'c)2U4:FE,YBãU":TqC0u:re%nfEO#%5n:iLe*\+M5i\'lE:)R*_6gzc5'(R:k$&RE:OB%KW)EA%2QãU"(ZAe:V'vo+z#%:J]^*idc;Fb4O/#N3Hf*2&3:YK,']Da;%$+2D\L_.OBz4E%#*aãU"XZA%9*#I:QVn;f4k%&2&L,:x;PhEyFT%w)yM4zY(12]d(/eN*jZESa'l8xl4[b<ãU"2g8cQwDG1Y&C=YdtDrUWxw:#Hu(%up&'%9%9%%%%-%%B(/JMh-;]%z(%%'5+%%%ãU"/%%%%%%%%%&%E%%%%%%%%%wj%firj%SVxy%up&'%9%9%%%%-%9o8dI?l.Y'.%%p(%%%,%%%%%%%%%%%%E%%%&*8%%%ylfS%tgou%p&'9%%9%%%%-%t]3.ãU"JT:4ZI_#D%%:&=%%-%%%%%%%%%&%%E%%(%/;%%%ywz%jSgf%xup&%'9%9%%%%-gãU"%sDcFI%8J%XA'%%%C,%%%/%%%%%%%%%&%E[%%%9#Z%%'%rxrf%sSns%hup&%'9%ãU"9%%%%-g%sDc(IjNB+og)%(%N.%%%/%%%%%%%%%%%E%%%%)#]%%'%rxrf%sStg%oãU"up&%'9%9%%%%-g%sDcCIE?F+Jo*%+%33%%%/%%%%%%%%%%%E%%%%?#b%%'%rxrfãU"%sSug%zup*%+%%%%%-%-+%.&%%%]h%%%%%ãEND SUBãV2ãCLOSE:IF S=71AND 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ãLeandro Pardini MULTISPACED FONTS V2.0 lpardini@cefex.com 08-10-98 (23:33) QB, QBasic, PDS 187 12426 MSFONT20.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"MSFONT20.ZIP",4^6:Z&=9060:?STRING$(50,177);ãU"%up()#9%'O%-%n6./JVi.vn,17%%gR%%%1%%%%rx%ktsy%WUSgRfxf)qQbB/GXZe-]Y^'fEJv\Sz*,NDDlJ0%plcOU:/,8M1HS;0)ABKFãU"NaHud8^=ODpoqfpa3fdL6j_E]#TvL1=fJ,WsCK5,:u]ttf15K#;K:m?seuU-4(sãU"Z[0Zh_xL/mT3xqpjãU"NWUPXgtIdobwYS2g>2PX>aj6]1:0_&#THX\d&)J;]E(>%]h^ajB,yY]o]$kR,2'4+fgr$R)=eM\PR.'l:c#i^rp/*W_aSL,S'*#RY/G:4eM%&F.;WãU"la-k9\u$Jkbj$%2XES_z^QlOS3a*T/Y+.V(^d-tayng)YWj+Kg/<%_8P>[oc$:(A4Bd/aXc>L_vZ;0cnb_i#Di]ãU"\[AsoRCBhP5cKa(R&8B(,Ooy_/OtleFmMDk6sa0^^jLmR%.Ms;&M6+&JiF'HP7qãU"_GIGQMHSjl&YdaO3mC&n-31c99(,\?2=,DImHglj8M=O.ByGr4u/)TFOM[h/lFGãU"O8)r=VW3%d;m65:g^tMRAW;Pg_hB]t[A['Y*UGm2h?wv;]o&bekX)3/Y(Sx2jorãU"eb?>^qs/&h0OLrAtqOf2dc.#;Gg)KIwtTGGCd9FNHK\2RE5M[A2V2Uo*T),#2SPãU"H51f*-\;:cec>)C-xQon[i\Vo)'Q0AF3BD/a\c.>lr;GiOh*]-oJ^A?jx,^.&mIãU"hr_6g:X*tO1_R6&YBw+fh^XKc19&WNoRIYK^TK0..[HLc^4oNUaN3ottYd)NP1\ãU"ge*Dh)LkW_FM]9kul>v5J.bgdqu+miSH^mpwSUllow:zqUiVWFWcspPjqF\;VqLãU"A9SWKqK^U&FPcgHr+qXrh>ãU"31r%SFpJPRC8jui%+sk:(EmlIiKUH);QX1g^e^z-S\WRMg$.dDOZn_LQ[JRm[15b$rNP]O_Hg,CY%m&t&;nte&CA:W,2g_AtvãU"\5nYx]YXR%aGv8KotE:68jgKoaq$bI2oJm[:UXgaJD%Ux8rK?g>d.TOyyOe>PG0YyQjTTlbD#ãU"BdE9$x;WXnh9ZCinTpm=lmE?^QlBUIcG#RY\=DWH3_aI;kFvtuL1BBa8FwknO:aãU"gdaVGK3vE-rOy8q/fd-1d?o'ZNJ=E0gMvcBbx*#?HpNWnOWs'IYem#?vF5u9K^EãU"?$9JJRSQmBTSAV<>fw2Bj#e^hGl'2lTWdeJ2dQA2ZqeltdwãU"TGH;jv&4:McV/c]kffRw66t7YPa4U0$QlJ=Exd;+Bj%q\q=To8ApUIlT]8^%x(XãU"e95uU%&6:.U\Vi[ZAoe&OuO/E=q5m7N,oUe+NKN6FAbdp#3e3B3$Qc4$zf_f5'c6X=NkR%Kw2MãU"*',s>r[V69.RqD+N\=BrE0jet4;8_ROd)or3;v-9O$-]p(#hFEU4;34R?x>jGg3ãU"oetAA2cNMw\%sex5SEkkZxeek=kxe1LrSN-JesrNDAusR;NA/shRNA?Su=u(e($ãU"\vE2h$\?vBR$=(wx1uw8EYX]&LuND,TFIiY#9nWuFVg,VCR\m_eeIw5('*8LnCmãU"mYL,\G:$H:0hA.S&k$\>mv$u](aYX$j$k3kS6Wc=e,D1/()bYYxoC,&bStTadl4ãU"j__rq.Dt[intPGuM*/,n_,)ds#OBmDzJX?+;ckqE>2Y-^m^s?X$_T)Jp\#8Tg=%ãU"HrG&;Jk2C>_a'.n4>UBIrfLr'%66i*Q*KD0gt0l^L7k,4l\%%lZQe7\G.s*5X4KãU"g^3PL_9']33n,F-_LUkngtCQQ^ZR7j9L^4P=L=t;vuW&27)WrfNYI]ZIW-Fb.dyãU"oyq)Zrr7)Dr?)_6eF(C?d+hSkTJ%h$$wBqYRw=]IrfQ.1&H3$c_D+'*&0f\PF-GãU"DrUSIk-'0_2?F)MtMwWt$e.e96OXuNIgU#2qs:pkn$*M-k;k\.e.2)rUDldb&KqãU"H++X9Q9o$M8pcn.z&l?GILfi/7(SX\J[rdX'71K'7ãU"\.iP]2*7:7325W.9ea=pY-(8fS5fcdJpqITrcvtUZA#X>hmRV^]uZFk;Ew-QPb9ãU"-uUW_Z_ckaC1kk,4lMJe1A(K/S-9xSMJUypoF3I_tt/DBlqyUorMb%s=lHGF5;rgtKpLfNp>qQOJC=yUZJãU"i>l+m=Kte3MN44WoQ8EH>Itd:Mu5gKu>=A$%uhPiw+mzOOoqEc0=LSp54Jrc1t4ãU"d8ua&gq/,2aYkyf,?wO8J-_)(C,J0$Ci:OPaS'(VOANONSH2ZNXeuAtt**p1[^)ãU"H3^\GY?bniseqvruTj;tC1^k-g^G/z_t&M\\IhGQ1Bahg=rh^ss^\E4[e#:AFssãU"hco4C')RJJUO*ctc?vC-NVrpl*0X$Gj*qXRl[O8u7sRpLlc.#gDQztk)Gh0o5#1ãU"OmKWvGS(Nqo8-'dqGK#4k\Puf0P7RKevNb#FHJeK\&rr$:.Gv.r(KwwWH=2IPtjI(ae8HTS*3=j]pALMBLFfbtãU"$g8'Z3rU.?8LH,/kc$#4*H]D$&FN%k(yTgk%ãU"4.JTy$I6P*Wl_r==$kJwYhz-[,iX-&7&a0xR,Px%u%p()9.%'O-%%?=(FJBsZ+jãU"n)%(%C/%%%.%%%%fwn%fqSkIts\%<6]U[75CwmUGtnYB0^=P&#*2QEYD?>[>=+%ãU"IE+KxW+^)4KCP,=&hwjC1e^_lauZG^(cQ/dC%Z9&2;$>m(nz$Egf=?U&>m3^Mk.ãU"8iKw)l:Fj-++G6mEJ?n)gzO(eB61D:6,heleR[+vIBNA9G.A<9Jc:'&W?/26gU'MAaCwLXAI>^3uZãU"'AO[?zf6)_bXA/.A03P>#)]hFAO_2KurbcehO0SAkKãU"t'_]pL:F'E*iJaE+Cy],-jnk(IfiM)R]Cs+:?(m;n7L,YFRGLv[?6Ya#*[Mm-,]ãU"AuuGhJ\#UP>^%[akpZ(kX:&S.yIQ[CPBvA?9A(P;VoGdt58EmkcZbY-OZqtmd\>ãU"1jx#dRGVcAW9;Mt)Eg#9J*=-S^S&0T#.hSI%BaW.Yai1/d^w.b3#HMT-HKNL=:+ãU"YpMp\O<:^R89FAnVuU)^Pg\DKjJi8#k\=>%jfco)>:(tFMSVF?0Z(:6?XNGBHx)ãU"H3rA^U^__X?t%YPD$Pz3Gi:3k#FX.X,*pZtJTgSWtr_I$K$8^n+h57t5MxPHtrPãU"7Mly)yY\PXb81O?O=[Jc>;NtjbHq0AX/kHSV5^j)lrX=SkFus#Th&C_)PZQg16iãU"8CBc,^Z+o^Z$96+3.]4w=l1cC&^;M*'x2[^yFGBqk[aKlar=ENxel3c%Qcse(X,ãU"st^OwM0MRTtrG?=>YIS(E-=o:f0)D1K=kc>yrdb]2e9FF)^Qh82RPjãU"deNUPk?W[+iWU^Z,.H=XcLcdFd>GK\u7;U5UPrh8^p.J4YA%nnhj,yn>BfXãU"ZSn9.ipNSusl_D=Vz5NgJ4IvI?uC5Y9eT%EU,u'P?X0Y8;5ãU"S.63lYTr,iisw&Gl2Q?\<(UMU&[9RYj[ma7hVBp$gVKuH6pFoUJgVXS&G,>2$g<ãU"ma]iTXLuGN5)i_m),U$P)F,T0C_22,KW_]wG9eC\-)boH'<6fi\T5mF_7hN^hJzHkU5UF=Sh;]RHsS8-X#]RjoW?dq78aGãU"_EbTrNw]JZ;+cHwq83,#oS>4+D%reb(994Bo5%/UCGHpLP)arzl,$H>L,/uJqICãU"NksvVtN%V4VLShVQBZuAWYJMiLI]/d__;A#?,hV?Z,nN(2Lkr7tGl#:]j(=#kPlãU"1qlEhXR4B/\cJCcB)auEE%h[_v]jW_ZJQ5$aIT-&pH9BbZ#]PxS/rle/l9)CQT($FtBXsãU"Rd#N_*xfH2mwI]F8s=:srGy;Zb%u8Jw:.?8_Zy4V9s>a+hj?:RE-vmfsLb0+/A'ãU"E?w?42FXlyu*YJ8mvt7S4+D]B2E^MwCf-9x<1J18?)iNT#v+L*kTmdA/Z0%:b=9ãU"s_15z_vBAr2W7Y5r-^&nH70FzAtrMzCw\4R>?F8BmTj-%3pXQf[)G9As=YT;FT[ãU"r&Bsao+MY]:CDMF/6:)J(Bx-)d9hJk)8)nYo/9*Z-enN>xXNGQSHwRVD\2ssZwfãU"q>0^U9E6->NSQd%[9;X>+fr8UE:wI*G$xf[jdz;Mx&z^T>)/g#y;)pCy'WWhr+_ãU"ak\hXk$5D.:RAo):gBuS%fJ$UzHST.vm6Ccr7>V9bN=N#jT$[$6c)gcsdW?2Te[ãU"bzmFN1yxL+c*;Y0kS3Z&KMn_%66$R5r^87D)=lifZq[&si+BhUf=ujHljotM?cOãU".],>5k>>h)f0azkEHJ'M_FVKFP]B)oãU"M$hlL(yMtD=bf^H1>RGFm/&6S:Xc\o)KZfFF24mO:7&.(K%-Quj^jPs0u2slfj2ãU"=$>L*t(dO0IaHsO+RoZRN=aTXus4&50mlL%JJzG0lobJq,4m[:wGF^$%:N^XTt?ãU"RN#TH87].Qyf0THOn?LJ>N3SgP'2o8A'2cmv_k(nXx=:Y1n.,YctM]_9iTemZjDWMqoHH0Mq+k2>nBrãU":nm*S2[YA;P$tZ'bE7RjpbSA0O&LLdfR$5.YYi#Bj6brA8'%VHtifWU\4'9kQGuãU"Oa4_+();SGRWjmn0c#t<^\8/b;kY63Nh)s95XGd?c#rT').;6c#r?p=9Q?28Ul_ãU"VhPHu7EoLLK]9cdMnI+JqU_(8'\DqDIusnqugAjFUS1I?SXr)i'[0PWuiRkQ8:#ãU"hmYNv^;a-jV=ml;XCZ7Dkft?u\rm+JwJPaUB?7CAjT]mgtK]b]A7ta7d.MON2h$Y5E/$A_[GSx7:SVPi2t-FJJP950C)A8+cãU"$u)vj(Jd(Q,Uxa.=ETOMREQ/nR)3p*Faapch.4hs;YgEuGGEG6EGFBD9NS,9a0fãU"6mSKV]tuãU"h,^y9n7>CIoaOa)pS8-:X2KwKT+1lpEMA%N/twAM)V_'ZtrKrRn^,.]hX-74=\%ãU";k7Dx\/KWugUh5';en1lhRjO7HDtz)OJG?7oJvk=G%bOpMLxG7>>OY^2j6CT.+7&JtqrRqkIiS/tãU"_9./tA;u5d'tWUvG,M8q9mY)ewB#3.S.__BiHsVh.h*9f(_Dd\L=XMPL=C>VFI9ãU";KcR4Lx4Q:E8Jlu6KlOb[m+NgJi4$p0BV=gdF4:J$'o,7OPdnqUof)]eTSLdMr^ãU"[wC&p%D#F1]T7%,d^UW0Pb.SNds)5-FW&v5XTnlM.:[_Km%1U]#u0;CfU%IvnlYãU"p&A$Buysss7-Kum7u.4Pt7#E)xM8PKv.p_ZsILvh];R8gC_^d]iH0Gn+QVUsZ)_ãU"NC6CJw7/y^=$:c7Z:RyGC7x^GRE=X(Lo'fNLAulDko8iPf03P#HM9LGA8%$kC\hãU"-CKjO3Xc*6asB4*&DrXE#;Wjk7lRnz$MS=4d\oQ%=NJHEUsL73Ljgnl0jM>LcGjãU">16>#72Iq:^I;2S&hiFoJSJta0lH_.tPp=-[x_N8CD?F^)Wk_Ju.WlBb&[\sDamãU"u4gtIsU0MbA6n(FZB79bd1hhA4_PcciZ+Vo7VO=%k-vN7DQ:^pr1lx03ãU"S>r&r$klk<0G[S5L^BJaRI*(&V^deO90LbP,c5GhNau\Vxms+BrxDzf*p6sF1n;ãU"EsN^TOãU"Kl25GsDY'3NgThbB:4,+FDJ7K[/b'wQdb?y\L/B'W->fF'C%lo#K?mX_bX]o1SOãU"c9-W^d:X0Hm^G)wkAjDu\T'kCHPi^$[QB>+#m<>fjr)g]$/_A*OE+g7(?C:WHA7>>6o\[WãU"%rjRt<5n[m#]1$RKue^)4QaNJuYf)qJbVri.^Y^nHkãU"TX^TFF>',TYB7V2s+Gu9x;/EEL^eYPR'U1CFw69fu\$*Te,7VF=is[LDnUN29;2ãU"U4F'99TH2Hb#'?PDm'AYSyVpdsxhM\VN6a3%G*/%VnS>j:bhA93/9yLCxhEq4qnãU"oF.&:hCaMmrTjXe;j1jMhcpny1?4:+G3=6/ãU"(4,)OY[SwM)8ZZGe+yq,-gnYC2BKj/d7Nz],Ket?h&A0xãU"669Ck]]#kU<^ZuiF5N--uVBkDfCjY63IgaW]eãU"oYn9h#;;*8#gt$0lSS20(*uTTB/>TA)_Wh]2pgbDyL6l3b^N]B.1EU14m2A>qqhãU"i;:p&]S12NrSdb=#)ONIãU"*tMD8,'^9XIQTEQBrEAK\=iw]q<)EmCI$TGFUWV\Y24,M[CKMj.K=TRLcgqWBCWãU"M.,?g,%u6AMm,]mIC;FH[HENj861o:%)F6=osjn+5D6cuSO\2QvL-e$F&$vo[sDcPkK>$ãU"4c0Vnlf?WsEhbe(/Rdt?GC>*P^HJr'oI1vw-hXiad8OX5$)c-a_]63+?DJ0uPAkEãU"<\VZj;rCQLHqHkkb=>)xqIs_6YM.Px^$mQ4Ud9?+*j(O*E$QhSdi+l$.WVy(53gãU"z=jse;0AZ-XEzZkSvtoy,5eHHk/QiBt\5fii+T2eV9OãU"SJngk0u_3*5yfJ_WAWlzApAtBVO43ut&A)=m6T4(.Hlk]uãU"\d_o0wH49e[SH.$0B\)(P][3Y6kR$ay7Lh;LBH1YPH?ãU"98bL\67lj,X_VdP/0?NHR>6dD;.EYm-rFV.-9ZMI?$:bS2HD(*Z&0=>*u0%up&'%9%9%%'%-%%nãU"6/J&Vivn&,1%%'gR%%%1%%%%%%%%%&%E%%%%%%%%%rx%ktsy%WUSg%fxup%&'9%ãU"%9%'%%-%?=7(JBs8Zjn).%%C/%%%.%%%%%%%%%%%%E%%%&V1%%%fwnf%qSkt%suãU"p&%'9%9%%'%-4%ig(FJ;b+,ZX)%(%30%%%0%%%%%%%%%%%E#%%%r%6%%h%tzwn%ãU"jwSk%tsup%&'9%%9%'%R-%ug.(Jr6-[\7+.%%_0%%%/%%%%%%%%%%%%E%%%&z;%ãU"%(x(xy%jrSk%tsup%&'9%%9%'%%-%Z=[(Jsw*T;M*7%%G/%%%.%%%%%%%%%%%%EãU"%%%'^A%%%ynrj%xSkt%sup*%+%%%%%*%*%%>&%%%YG%%%%%%ãEND SUBãCLOSE:IF S=64AND 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ãThomas Ludwig PB FIRE VERSION 6 lycium@hotmail.com 08-13-98 (00:55) PB 185 4383 PBFIRE.BAS '=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ã'PBFiRE ver 6ã'------------ãã'This prog is Public Domain, but if u use it,ã'credit me.ãã'Thomas Ludwigã'lycium@hotmail.comãã'I'm looking for people to join my one-manã'demogroup BlackBox, so if you're interestedã'please mail me, and I'll get back to youã'within 4 daysã'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ããcls:randomize timerããdim dynamic img(32320) as byteããdim dynamic div5(255*5) as integerããfor x% = 0 to 255*5ã div5(x%) = cint((x%/5)-2)ãnext x%ããprint "PBFiRE 6"ãprint "--------"ãprintãprint "Here's the latest (as of 8/7/98) version of"ãprint "PBFiRE. This version has LOADZA assembler,"ãprint "and in case you haven't noticed, is *FAST*"ãprintãprint "Punch the beige plastic"ãdo:loop until inkey$ <> ""ãã! mov ax, 19 ;Set screen 13 in ASMã! int 16ããFOR p% = 1 TO 127ã OUT &H3C8, p%ã OUT &H3C9, 0ã OUT &H3C9, 0ã OUT &H3C9, p% / 2ãNEXT p%ããFOR p% = 127 TO 255ã OUT &H3C8, p%ã OUT &H3C9, p% / 2ã OUT &H3C9, p% / 2ã OUT &H3C9, 63ãNEXT p%ãã'OUT &H3D4, 9 'This tweaks the screenã'OUT &H3D5, 3 'to 320x100 resolution.ããdef seg = &Ha7d0ãscreenseg% = &Ha7d0ãimgseg% = varseg(img(0))ãdiv5seg = varseg(div5(0))ãã'Bottom line for 320x200 = 31680, def seg &ha7d0ã'Bottom line for 320x100 = 31680, def seg &ha000ããStart! = timerããDOãã! mov cx,31680 ;Preclacãfor px% = 0 to 319ã place% = px%ã ! mov ax,place%ã ! add ax,cxã ! mov place%,axã if int(rnd*2) = 1 then img(place%) = 255 else img(place%) = 0ãnext px%ãã! mov pm%,8000 ;Start at 0,0 (25*320 = 8000)ãã'wait &h3da, 8 'Wait for vertical retrace, kills flicker and locks FPSã 'at monitor refresh rate.ããBegin:ãã ! mov ax,pm% ;Move pixel mem location to AXã ! mov dx,320 ;Speedup for 320!ã ! inc ax ;Increment it per pixelã ! sub ax,dx ;Subtract 320 from AXã ! mov above%,ax ;Move result to above%ãã ! add ax,dx ;Not done yet - add 320 to AXã ! mov pm%,ax ;Move result to above%ãã 'p% = img(pm%) 'Grab first value from virtual screenã ! mov es,imgseg%ã ! mov di,axã ! mov al,es:[di]ã ! mov pixel%,alã p% = pixel%ãã ! mov dx,above% ;Move above% to DX - fasterãã ! cmp p%,1 ;Compare p% to 1ã ! jl Skip ;If it's less, Skip the pixelãã 'The next line is the "core" of the routine. It blurs the pixelã 'by averaging the colours of the surrounding pixels.ã p% = div5(p%+img(pm%+1)+img(pm%-1)+img(pm%+320)+img(above%))ãã ! cmp p%,1 ;Compare p% to 1ã ! jl Skip ;If it's less, Skip the pixelãã ! mov es,imgseg% ;Set mem segmet to img(0) locationã ! mov di,dx ;Set mem offset to above% (stored in DX)ã ! mov cl,p% ;Set colour to CLã ! mov es:[di],cl ;Write to memãã 'The following lines of code are basicly an assembler replacement ofã ' poke (above%),p%. MUCH more complex!!!ãã ! mov es,screenseg% ;Move screen segment to ESãã' ! stosb ;Write AL do DI at seg ES, and inc DI reg.ã ! mov es:[di],cl ;Write CL to DI @ ESããSkip:ãã ! cmp dx,31680 ;Are we at the bottom?ã ! je DoneFrame ;If so, the frame's done!ã ! jmp Begin ;Otherwise, carry on!ããDoneFrame:ãã! mov ax,f& ;Move frame counter var to AXã! inc ax ;Incr AXã! mov f&,ax ;Move back to f&ãã! in al,96 ;Get input from port 96ã! cmp al,1 ;Is it 1?ã! je Done ;If so, exit the loop!ããloopããDone:ãFinish! = timerãã! mov ax,3 ;Return to text modeã! int &h10ããscreen 0ãwidth 80ãcolor 4ãprint "PBFiRE v6"ãcolor 8ãprint "---------"ãprintãcolor 7ãprint f&;"frames for";Finish!-Start!;"seconds."ãprint "Did";f&/(Finish!-Start!);"frames per second."ãprintãcolor 8ãprint "Lycium '98"ãcolor 9ãprint "lycium@hotmail.com"ãcolor 7ããsystemãã'=-=-=-=-=-=-=-=-=-=-=-=-=-=ã'Credits!!!ã'-----------ããMatt Gulden (Folter) - For getting me started with PB!! Thankx man, u rule!ã mattg@thrillhaus.com, page www.THRILLHAUS.com (rocks!)ããDanny Beardsley - For helpin me out with all kindza stuffã dsb@cyberdude.com, page www.dnai.com/~beardsããABC archives - For being the best QBasic source ever! (And publishing thisã code)ããAll the other people who made fire routines (Matt esp.), I learned from eachã one!ããYou, for downloading this file, thus keeping basic alive!ãSten Daniel Soersdal MODE 13H LIBRARY FOR PB prinz@mailexcite.com 08-14-98 (18:00) PB 435 28636 PB13H.BAS ' Load/Run under PowerBASIC to extract PB13h.ZIPã' To install: PKUNZIP -d PB13H.ZIPãDEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"PB13H.ZIP",4^6:Z&=21161:?STRING$(50,177);ãU"%up()%9%%%#%%L?'tI%%%%%%%%%%%%%%%)%%%%fx%rTup%()9%%%%%%:L?tI%%%ãU"%%%%%%%%%%%%%+%%%%ijrt%xTup%()9%%%%%%:L?tI%%%%%%%%%%%%%%%%*%%%%ãU"ithx%Tup(%)9%%%%%%L,?tI%%%%%%%%%%%%%%%*%%%%q%ngxT%up()%9%'%7-%0ãU"#KlICQ*OgO&%%%j'%%%0%%%%fi%iYit%xSgy:rTJv+pPi3hbZL8[+ãU"Q/>8X=T]fXn.R*_vr%NL/E(OSwdZ)-M&u%p()9%%'%-[%ZClpIwIK%9:'%+%G)%ãU"%%1%%%%uwn%syVX%mSgfLx\b0)^ie5eUd:[hNg+EAXbpYS-bgR.FM:JdjFq24[2ãU"SE0gBju=EDWNi8tN/1$WfY*&U4UueD5HfG1;(cLgfY02t3b1ZLJ;#eUwVR&e)CdãU"RG&SOM?d2stP_sn6ELJ6j=h51YT,.%ckPqm>r9xNFZLgb/?QDOpG-2X&S\rAM^6ãU"B#\VPOM6>Qt.930&dQRA?KbC<5?3$m%/]/5n;HPr[S?OC+3761%#j+GuPk73k('ãU"RM.9RTAh1S'ge\CSh&uocGU)t6$)0/PJHkfo9_&;R'\kysk)k,jkh,3uQa=Ag=,h?iPU[jMd#[j9oW5W2_VNF4Pk2H82Bcd)KAc8/l[$qnN$>l's,up%()ãU"9%%'%-%89&mIVi+n1%b%%%&k%%%%0%%%%wjrY%itxS#gyrBq?DoiP&iFBQ\^A#BãU"n..ASDzI^Uy?jFL3]##^2E3km1-JlHmph$nD1o>sRb\bJSlzZGz(d-)83.%%up(ãU")%/%%%#%%7ZKlI=Y&(#H%%%%H%%%%/%%%%fx%rThr%iSug%tugV%Xm2/%iugV%XãU"mSt%go2/%fugV%XmSt%go2/%v2/u%p()9%%'%-4%f%*aJkS+*B;%%(%[%%%%1%%ãU"%%fxr%Trfp%jSgfLyB?Dloi&iqFB\^;ADj1.v-?WXYoIBs1o^^:/Anz(-?12tE^ãU"^k#*/esGG2'k/Kal9hkL,m^'k9eKugLGN2++Ls9-mubl5uq:s]WuQ7(Ng#Pu%w%ãU"xftT(+wb=%O&Y&)39+u&\7A4hSE^ãU"Qm_kkn?9TEh++otrgD[C?=EfYjhCOJ0Jxew7Xe.&?\+?3JvhP^HEFBG%c[XlhH>ãU"kJV/Q?x98Bo._q$if7?wR&c-^teupnr)FT6_lK5f$ZL?^m^rYw[.3E9.t(aipYUãU"Y8$L;k[C;>K*9wiLQJ1.>EoM_]8.xo5tCU6N[_JKAREa=>4c9xHit2h1ndZq(kXãU"EtN[)='stlZuvlj#Af%8'QrDQW^$369K76IJI]n-Y*91R,553G6rXSLJHo_;b^5ãU"*DX(3;F3mxm47Ar:kN9O&igD\Kn0,lãU"+joe%Pigmzh%*Qj5WDI[^2#SUH'2l;>]k&48GN;.$J>enA,Zt2]B49?YD2%Vk.jãU"*Oq>n+Ni+>i%Z;rq>:/G3Yd7PYcP;Dr5U0$tRZ40#r5gB-cJ\L3uFndcTVf&HggãU"1q:Q2j(A^qAvke]d'\5gxR5iK(8lgbcia.9HxGãU"^ikK./XYx;[A]g^W':LktwFFT+Q3^jNh*]t_)5c\Oo7F']SuxjDl(;)/78'\Z51ãU":fw^RlA3+>Hto&3jb*o%6]).f9_YCoFU,,w/*YJU-5i5fnX$$-=NaA=FD]]r9&nãU"x4TuqHK[HCblRpSvGC9>]&#lm\8vLJ'uaJFrIbOqZVZWsJA3tbqJt$[ãU"1Rq3&Wlc&/Cj&QLZ;.EG;Bi]N;,''HC=e02+UObLYDu(8%,afhieOyãU"jMonD6IEO,ALVs+]a>4tn68K,#JG*PLD5lwFpAiwa+uIhFY-d+PC:6DprCd6Uk-ãU"l'x7gtZg]g9C5N^&60,nh#3q&Dqnk6JLBs92_sX_gbQ$kN00<(J1jalL]ieCDD3ãU".JVeavjlkc.'U:lX4V2ChQqdFQk=b#alL\/a;>\tW;CGp]>>qG]1GQ4QX)r?h.3ãU"D;DL_.ng/EmKxMãU"OR_58a80$F7$rFr\kfEU\>>\Z_is=Bc-ukw:ci^puVTH+Flho.]KACFW?GmpgC^ãU"+VRi4J[S1ys\Y#)u'4i2>DKuN:';T*kaMsY#OgA]pKRX_ve[JaSF,g?7KãU"FFvz%Zpno]\Lxt]wRiqebtUkZv35qNJ1h>kzEtNJIId8jpG*p;fCsv,&K[_::3JãU",c&36>,#-EVUa_1oWOmT/PcuXo$_[X*3eGKZZbQ+9#$To/oUMk6hzUg]NfãU"DK97xfIvZtT$u_\P^$PIHY3FkKmFDA>-+*)C7X'/cW^B5N]BpSMRdC.eIhu>avPãU"+j']LCqnAYPRs7NM:ZB?3i^NA^A;X%KV7HqgKj?q:Jmjp;GU8V6HVl0>a^fxGOFãU"3NMNN.5OE\FF[z;W>tdCiR^[6++TY7:c->u\pW[vsxG/*2b94JFMmAhE#THUiojãU"We/B-MGNisQX*NSStWamt,;0je\qkMdGc8[+79pSQhbSlmV-Uf$Nh_#GZ9]W>bEãU"oGp1(&[t?G##I>Cr7.DV?u1$.E;9/^gP3Qy%32B9Oau^^sX1GYY4b;YI7t5;_0sãU"i2Y0*]U-HO*UWqY6a\tX'fW2(c:kFi;Qf3/4EfixE\RnX8N]a>u,3bM,b_7FU>&<:TK8(sB1l<;c[Suk8&gk6Ix(&l_6nV](^ãU"9LsN\.sgV894\nyXR+2l$c?*YI3Q5r'P)(BpK)Gnk;Wx1<1bm#KZewhCYit[iGPãU"P>W&p)^obA?#.j[>Wn58f\6[z-T:E75gGRxD4RURKc4K2+1l^HjTWE.o^:>hJ>:ua?6KGk.Us\B;n5U/lRdwO%+*ãU"m$e]Y#B8*OS<>BQCcika:_0iC:9S^ka>&^CFJt2Zo1FCiI&4LJcwkP?H8saZ&KmãU"p9tIYT9rw+J67K[9Oe%F'*^GCT'f5*]HU4#dvo.+856gj]h;e_Ii-wTcElG>ãU"Y(O#Nctp_wez=nLkrE)S#W/]6Zl)f(&$O/UGJq7Y8I8Z8W*Zq28:I[#)8G&,2n/ãU"C0knYJ*g[F&$^\?^3p#XjVfZ\G1gZ]m]Ejb));Sf;>$dHroC#SX11/v=%E\1/kjãU"OHFw8w6cc>:Dilio5XSHE^[J.KI9$[Fv:O/cv$dL+z_d9kQLxUyHPRU&]9n\5sIãU"w4*\[IWWtUu:1d=^SgQ/DeEGySU4zq5DFvWzWgBa7tt<(]P4ZvDãU";rt#,Mxw=O=t5'q-YvSpZfjN9=6$1d'a&n=a8^h]_r]C+4Bd(EA6kenz&\#)e-UãU"i8S6q5jic=PK$&2oiT=3J=kF&*V8w0U_Il*l3?#+op3E+DMQleAinlFm[:Et/pTLnSãU"xet14_HLhEmKh/KO82T-:vxsnp6F*Uy/Hj3g(2;47R?WHGO[?&ET9vm(Aa.[sWTãU"r&p,cL'W0:I2pKeiljvwS85QtarGwkhj_7HueN050ou+6BsAX3aN.\.>h\-*JXrãU".'j/9:KsB#[qcXvJV:C'nv\6XtswIfilrPH).Bf#Q[c:cJZB5r'_rAbp2*aCr[xãU"=v$IKP2S/iT7,#z+f4HD,706PbB9UHl^TZ:-)&5QT$cGVG-rUxM6_ur(RpIBVx#ãU"j$j29V2Y]-7-3x2q:C['&M*%qKz2oSXz6UKDq)uEzXP[[(nB>JS#7hDNb9unãU"cjHfU6n4N&#f92MIcw2.6t:J%+NCaf/[O$./8D2dR&=frVCo2o68P]ak^\5B1>%ãU"PId;-%,x5D5rgu3?g.:wYEyri*6*EF%g_e9YBZsok>>J%wS-ONc#\XO]k%SoHDqãU"p\Z=#1[4ItkquvW0nkXiK,mDzD)6VeW[8FmE_P)ApWJdcjeTos5;gãU"%s]N*#a_SATd2*Com1w)x([x'x51pi^n=qlUV*%*_$7BmZS:vXcpdTSwsf%#*6kãU"ix=%_58A_l[M\8P,sEhPuj:im.$\kBaKH:'N\\<4W8s(EG:hJ&pkxxk%BFj/k;DãU"J/9_KsYTX5+MTy#xOL0#&rPYx*WKP#afENiLkND5g]TKZP9tc#)F/tF.C,Jt)diãU"ooK,U1TuY-=JG69.+[w#q)9I/QS-\ZlX%1atEEa.(roF^%LSeqc3s^-7Cm,jsxrãU"Gabha>rEcF^'^xh]RlfTRbL5BUk>v$WAKv;4WR(ekk>3:TM/>.KM8zCL?ow+?J-ãU"N&4]hE82mdfB;rQ%A\=XEgZE6_mLFcqy5%1)^xijbo:lX>b(Q:_:iCYB?]5>ãU"9Tb4kDd5rDJ.lXBiO+VfTku2m:yn;s=jdMlsscUWVxdY,_\i1o1ve4Zlop+6oj6ãU"VS/6csvgc;54rZC29FK_PEJaJ66hb4B%s;h2F1LMbt3O;WEITyy=reSP83Q3[jVIjDZãU"1qK51mn8n2G>a,Vo70oh5ct5h;OrZ)RROCf7^lHIVcLjpnr-Iii\&m[VHL.Mo/fãU"acn_%uMW2Six;?#4$#([ãU"^Lh-fjnX[jd$)Lw62=)Q(9d>oWV5+<>8rlzQ'TSxlãU"z%/hAu*:xO?Na/V-CzsGd1O3xGeeW/r%Hy=j+n]PH%D]JfLG5p(ICJqcA-:&XgOãU"UeE#5Dt[o0LjCp&,;^GxpczZf4^jO]M/74ldjoSx)5p*ãU"C3n'hv)a>7D.mtq%FxFM5VRkuq'+En$:NEU7KpGkfWJ5#f^hD1(39ku^xp4m$\EãU"lHU0utZWT7QecnJLOJIt>aDupVa'Zdx&Ql):D>za_RYGpqsS)mvQNV=D:m+CGC-ãU"RiL8&a\ekanB8ãU"4l%dup(%)9%'%%-%o\>*Jtck(:+[%%%f%%%%2%%%%f%xrTu%gVXm%Sgfx=x$^w_ãU"&W4iC4F2ASA1oC2]&W\KOXY&puWpn_F#*k(1\Xe#aDtvjE#oAMGoA_k]iqE;aaMãU"aDTsoTS/5faMgfhi\r5a4&w]JV:,s;^<8o+M.Xbriu:IKKF'0g-%S:td)6nu<&&ãU"*Jb06=ob':V&sGU?CICe0JoN%^vnF\3yO_b^7M#J&^x5X>x/1jxXNR/f']XS7'IãU"%F6F/,8rj/)hHeW+\*IX[dt4%%?%up%()9%%'%-%(P%1JmWGAc%.(%%&H,%%%4%ãU"%%%ijrt%xTij%rtVS#gfptgy0>SRa5wkFmr4&1y%G$q'k-mJ4Oo_&g7ZI1vaer;ãU"iSKZ;:hKugf_eXo+d4,eX(tdEOoRnp6S_L15I*8j&EãU"K/mj#kEmJ[B3e0/):D6EBkO6vD)HmL>]U95+nNPG_mn/Zp-^c[sVhV2GpQel4]tãU"Am0ZtxD]hYK742uB4vYw.TnmUyqBdD7LU(kB2v$#ETp:FNaE?=R_G&,3+bE.kCPãU"8nKjO_P47X#ge2:XgTJVF-7QesUHiv=5$ljZO_WeRb&h*]6fy.Tr;5q4?^19M%7ãU"'qXJd_:0k^.Z#Y:r/8SUn'e:((<-ilWnW+U'lAD_$/Pg]0Aip_3r[/00PRk5KZ=ãU"k^'[jVCj*2PYYab(UKakSrtUG(L_Y;K$]$ai*)G(hjD*^ttb]5%keItTAUh(MduQ7_nP5HErjkY)xBZãU"sZ^%t^waajA;Bop]1T>a^Zp=/p]-,8/s^FuuA?4aHVP+\+BM<2?W,R:1PQGa<2YãU"-eK46gSmtZf'D=[UY,NpR,)WR6.Aa_Y:gao+XVTY^ãU"e%81PP'0;;*;s*N>ak'%]<%j*<:8+y)bhy7L%/K%O]q-JEVkg81k_gOD?$FTz^BE2E\-unDBf;Wp0FGCkãU"U%_FR*HvP0Y$oNfLW.?VgbHNtKpYm$PphV.Au[*YpU.]O(bm)$,7?B,od#$,>_9ãU"61Gut%PC']JNcr=)QgjJvGA$tm_M,[9Yg7/V0mhK+:NTqi+wC>;$?S2hV<^tmh2ãU"RLt3M=lb1y?+VXMHnZiLLSDq=Q.E#?ZQIGiu^KQ*j7:'V=[BiH39]fVi9pw$9GfãU"_apj]-cLY==9>dXMsYwA?/E9>'C&8j,=0G4?/UzxXp8RGx%%up()%9%'%#-%x,RãU"1JS8)I0.(.%%A,%%%4%%%%ij%rtxT%ijrt%VSgfCxty:)>jo5]v17xS07>\8Lx4ãU"aX7$3YS\U%2[91-AArwJZ.YY#j4E;'Oi8tN/*,:;$ds8tpTS+,Bi_kHeLQVaGp-ãU"BX4=K:Q-DU%45KNP'G;n/ãU"QZ(1Hp^Z+&C7I'HS:XT)O_7Z38::na.Zun-XX4'bt#IUPfQ'K1WQ_Gk0#F*2Rvc#q2ycN=(MfSo8Of^W6zf4p[Hw/=6H/)[V[dU/ãU"mT3HoL9IRZgk:mW/&]\t7$0>9EZ21Yynl[]8nsDm1KKxmU&+k88TGO+Zc+Fku;ãU"nD*3(_4zX-$VwB19Od1xDlr8UFyH64)Rc$ArU<:k0iKS$qAYKbemUosOXYGmL4fãU"=3d$uBZ&;)W=B'*ZV7>IJJ%\6KtND?&^30#iS&*U)*LcRd6CnZ3Ff-\[e[>.IJ4ãU"phC1H_0,L(_ZY^T7#%Uffs;]W3oI33duo_nN_[RjV19Y2yPz+B/L2<)SlDe[YJSãU"$s445EHH).R8-$EXShz<;8Al(Br_EE0\gQKYDVAp=/dãU">B2d-8Nn;&V)SfaH^+&eFsmn9fxvVQKu.$JCREd#P>_4n1]Oh-(+WN\CB2?TO]JuX>sRWg3(,.aE=,Q=)T6En.3Q918Vg6&gkmE/5;PbrhFãU"pR+g)-kJ7k><=hVFU8mf6>6H?LpNbw%1627tYVQ2rtuM*5J:Wv:fn*bfMtxJl=kãU"RJU&;Z0,t*Hdf#T;#2D&Q>t7FH.^Urd&-E,-JsMqXU',S&%3C\rb1$=,1UYEsbfãU"j'v#up%()9%%'%-%(x/1JsV=AH'TH%%)BA%%%4%%%%ithx%Twjf%irjS^y'yM5(ãU"v=#o26xxhOJVb2px%]1n/b9VeE+diwQf1ab#YM/Rf4$z^/hp=nZ']6&6bDehãU"DA&P(,#Lh4o1/O#Cqe;u[doku;WsDH8UbMxBfus%2.dMF8YmZQaP(^bA*4QwtrW?STM0A)6+ny^8sWrWokVãU"xyJKD(']HHncJ;LCv3(ev*L4k$5Kp30kjGU'Y+,L1&KhSãU")2/ap=OA61*iLo.jHHkb^g:=/.Zo<;iTg9N;C+uO:]47iOMJ4\-G-4XI7>hfm%SãU";h*BED7tz%;vE1p3[Zb_Ux-KQW&_]yn'(2K_0nv2J,X\RNV\Gn_14BdXdãU"#Na].U\_;j;RhMrK__3KEOsQpo%4=HoySiQ=)KNA#df0SB==,9](Ht[/t*&h%xWãU"iy[A1nZm_/hAlq-1dfE3bW7Y+o+iaZMJjbCURJ.NZ=+;[qtK,=qUJ\2HLfmhvDpãU"U_%/.rVcsXvNm]l3OOc[SKHy)f%sHk;JF_x)A3s:,lgK/+5#+xoh/z?BpQ9G=+%ãU"1ZEm:*Mg1S\uw6KiS0h=jPL02e\ni,&DpudjvWKpIWbDn6s9X8msiM4m=:\&uw*ãU"%1,uVA9fq*#>Fq_ofB:KF9?-tY7W\y);Z;K4t\ãU"JEXYej2M>Sve$Uk&_xN=a6l#W\,q:2\Ue?7/9p[5:M0fT]d'<;pC18t=6$?XOVuãU")d=BY/8K9Mx(H7ZuO*FãU"QVlb6JF)*3je/[)TaDKS/AHYãU"u]]8^UXVA<%V2,Xg6_kltH=S?lNBNUUDãU"C+)7tYL23%hP1U2.C/CU,p.:iQm);QOp:D9]WD#P-dXBViU2&Nls\l5]Qbgm_VMãU"TgNWIr;z[dJ3Lq75QQ=N(?8$h+8iKZUgJ7Q9vsE>)TAk$zKZ2g(u+_VwP%uyfde>Z'+=ãU"7FL1Fp^Zv/e,K-gvShCe8dS*C1-Q)G+Ib+a%3FMrSVMQ=gg6\nZgK(].4QcSoANãU"\0$/m;5]vYwd6;6l-bm/s^sLu)bYrg?BJ1EXTN_I$Se1;[m8k]m]6yOds_.'a15ãU"ha?5d-TA#l3ZB=G=[A?;C9fDu9'xksGBMk=dPPi]Bs1ut-h=PcBv:RS)]QhvF]#ãU"-3FMzR6T;ELD[AtB=/X/3SXnX.L;I]O#;JYWD_<*7VBtrXTCf'CMJp0:##&iSlXYdTsi'-C#WF?w)tyQTQrHgH.ãU"NSjrIU<9\pPv(*r-bE]KRFs)'&X?SMkCp:lml\Kqm7nrfE,X6VwV7ãU"#??fW;rueKjo;d8ãU"TBUVYTmq=IHCXoYdG-b/jHXqucTM.KGIZkcNz#H=T/DEDXLp\l#^Wj:5fgj?^>]ãU"+wc90T7;Oke[O%N[Z5sQj[^?*#To?hZ,V7*)0)F#hS.Ef3&s^:ElW1/%qB?jI7qãU"Ma'fGg0xYmTbuh3p&w]__a?9DW/^lrv>*\Zo]&F:Ao[q/&,s#qTM*T8g%ExJyc&ãU"8G>ehUcgsLH0A18P;\*caUho'0;G34kghh\spiDD8Z#bqocuãU"PP3CX3UAGYRgn+GMK5AZnC3]Q&,HYdb\>EV-hbG*8.hp&wc#E7JfE(Ca=Bmzs2=ãU";cXF&ferf:oxcYObS>V=p0Ob2LoL1LZi]QEE(#EtX#Nq'5jTK8jUxM3bC8lS*wIãU"r0XtDtBiwn=\xhuMJV*EvoHkpHskgvu2Tn_j[rNde=.N.m*J1#FK8;HyP9siL(wãU"+U?ZCSg^7uW:=S>c'x)/*pf7ncF90.^=hiD/eL$gQvx3\Z$v]vV\EqAp9EMw-)9ãU"9#)lYUGXG-F9/OV,3haZ3eS=4>^5/FE?(z8c>K'5p\)5EXZgS2+qfE0eH69brd]ãU"gX18+ANQ6#A.>XwJbt:ti>-#BKa.Ca88ra?k^cLq'Gp.:W5m>e156Xu;[[d(w5VãU"HB-VV-CP&oaR;^BJkmQ]en0MuHwm[djDwvAa(]reajLQ5Yd?a$,4E0oXxv*?>#BãU"+O:\SMX%hI=t0j_%M9Z%g:tMa+&cDCsBt,UZprB8ub=cn-7Zak_>OdSg\bãU"_IL=b^r3'N;$ciEpHk0\-=cYOT,nBq^jc2*HKZ-vT2-;tyFFR-61^m)A\x)EJU:dHEuS6g>UkV?nvb1r#Fbb#R7mFIãU"jW,9c09eV][(mi.U90X[2njLd,m9>_QF1-R,7TX:6VmAIv)_qUX.:i7rL:7o.gHãU")s,-frtE(W0IZYem5s&c^7<',2N6%m2Dwte21[4WfZa;<']Krp#/$5E*K]\Ta]xãU"t-l6_F25]l2-L+7Q,VEXWU<ssZGvPD>o3QT4*iue_-EJ=,k3CãU"?:Ux5vcCw%qV-l&[wn'adj\q*7f'QDrcA:4+tMT)5wK.%AVf>F[LdI.YWFcãU"Zen>)Nq68>i=.iod4[3oxk2+U,cKns%acJ_&u#dzKk8lpWKRYPM0:5yC+MP\C$d/hDt7n-p^:$o'oMdzJ$JlsS,p2zJA2Pp%Y6CYm+5FuãU"un#(4%,=5EaJhJR>.[ChJq+RH?m44d+[W\jnN/f>;YZw7gxR:utK6sr>ãU"hS#,ctwFh1y_>7?'>-;R4hlcU31Y.BL3.SY6KK_,o:#.PMjcD<'WVCHdus?_]cYãU"[$B_l,-GF2NN/Eg(04$i'Zw#[ejtOXW)rg\toZL_]bgs&eLEYBmQaE;qSXW#,GVãU"Pt$C=q.*eY4g.UswfFt,fvmiL^J4rcd3_tn]\voNTtmsVxM7o2D^W5Ms8,7818#ãU"G/Q3up=yx&V>=TTAK_bNf#j^/UZHUyTãU"-NKs/_H6zTRUao4;?)7iSkwZLfzxb8KVursSh05L?h'-]ls3\>#lgBD[Q=eCtXnãU"YE.b5B?Nmj^N*l5u^8l?(MO.T%'^#8JUu:uV+CLx2facL9>^#vt_e6uJ^olz>#AãU"[+N;Mh/gFprXLEK,Fx6pWH?uXCO0atãU"I9y>>uYTPHV#OLFZh/hoXCo&J(MzGxtG'ZbR6ihcSyC=fb$Rt3on(P.Jyk/-6[iãU"c\o6Nmu'OkS-PjtsaHbGhX7+/gHYQ^vz-;1ON/,5siU3CDAI+LH8tsIblZ#Bn62ãU"i=$TJe.L^3N'b.F/*LjSFpHeSURabãU".db0]7un8*G:F:oE]4,(88<<1#g.=iRd1o5n3:l4xmcX3%tbYi3K4:3y:.]3Y(<ãU"*CyW0IUV7boG-.G(ZmDMF/nS^BlI2qK]a6VUMZeXxTGK[aTBk-]xcacuD+uL6x=ãU"uZtXoBxxq/VZw%%ElyUzp^G+gdIcN(gBVAhC245oA22Lm9*=/.olK*N[Gx=guc>ãU"::fl(AG$U'BJ\8_O6.xVXCSG,VVk,WgR3;sL_iLecXk*;LdTGv#9k;[BTi\<1;i,)jFTY8xAkGãU"5l>>3I0/SX*uuOvv1Y'Kk_ffFkEP7BjMeãU"p'JZV,JF*8^yhKpQI%QtOzHd?m6,u/<#beR7o5qict]r;K'FG';(7H3Gc$)YãU"F\7;qYaR4mSpt64(lFYFX3'WFf^'j\ZXhgyDWB_#zE6D+Ke=6-&uj.GHr(73Bi]ãU"?mQgP#-O)n*X,]qmpc<#L3'\2PJzZADt^x'S[.zj6ZA2?q=x*)m(4p[)wxvp-:SãU"8b%%+CBdngRCl]\Z?Wvnn:mQ#QQ*vZKUcAd[QdxMeLEQ_p6XMOBbRZ[V)HEf3H;ãU"o#fjfwy(Si$7=MMK\[5>h,\tvQDtkaN<+Z?AkZLO$?rUtdt_Yrd2zFPR8]'qOq^ãU":4EN3:GqHlJ&ãU"Xg2Wmvmq1AZFbbgPH$ZXC;WhKk3*,KchWsMd,u7tr]un^Jbmnb-xCk*&Pt>3C;_ãU"czbUN(,5BhRCxxuK4t$Y,a,WbKxD92a#pãU"?+_?6,-l;+>$wcx,Ua6:8gU6wãU"QmB%[rkZ\#xo=Iz\95'8G=2705_n9X*$XHmYm;H-Cux+o*RaUx4eDYGX,&q2o$]ãU"#k<7LR4Qrx%f)qQPN'OtQswsFei\+dlC^?:Rif+?F+8mz;T-or=u_QSs6M5A_vXãU"nV5'v#8Wl?M8F$hm3Y9ixs\HIg[K453f$RhMIFbKhD07<5>R>IAgc&:gynpr7?iãU"b,;_q>4-EDfN35&s;_W_edpeAb*v&2O7GpoH+'L>KK8bHVsDãU"w*=7(cL(Wt+$jytuM/]w+*Z0RE++L5rt.de_7*.r/KD,9M/./M#mORK(^'ObgY(ãU"R(W2*4DGk/orqlH,wU%e?XW-W&%[;5;;AH*5j'H_NzwM>Tp>T.N,YEJ,v>UQ6d/ãU"(9dYI8MNpi7o/au?D^siXe[Gjc>jNUH?GEn5PkM#52ajrOF*lzdsK3FeqfypF_vãU"z:.w0tIb#dg1#lwf86t4U1iQK9tnBRHAfZ,??TiEQ1U\S]5jRI.5j'_3qBãU"Y?66[?5ASVGW9_YmCMho6^Jqo6xOYoxOoG1K6_PRh5R13PHj;#CgV4u^ql5oF[SãU"mP=Z%611AP9/SKjNEp+iW?qm.qqa,5KaxUx]w#/JlIm'0qC<[WY)n,m-mKaulC.ãU";bC.nn,Zqd?TlLFDDRuNFãU"3.6Xl/YrfmrhvV+92ITpxL#dFEBt\GhM?O8S#c8cImhnUbLSKN[ZNkeSjK./*/DãU"1TrO[?'k#ãU"&3,*$^W?s)%I*0tCGtdKJWzL9/)nLjAtc2:o[9KgG[QY-NkCs%u:+z7EcPzAZR/ãU"G<6GWhVJC;^,,?2\-Tvx;hQ:KmnHu\T(d6Bc1kw)V#hg#o^'jseY?F9ymCrw&bpãU"8>r4\2ILLR3h(mUTMqs-fAeqG*;XSu[/ck\P+8B,S9>Q.db,CIFVHrTH&ZR2;OhãU"9S1hN)g8okZ?960mR\L**YA-D&yGT#:1O'&WYyaEo%skIaHLvB1n.8UaB*oh0&yãU"rR&_YfZa'S>sHlC4Z\RHY=a$Y+^1X1ND*/M9<$0mK'Tv;O:7bb^d3wIUvNVOJf>ãU",i0\3ãU"W/a]ZL5j(2^-j6(c6[vRkR1%]PLz/cvtxB[7Pq8T-51..OãU"X#VNklc2#ZZtjvuj-o3LOo_XE2xE2='8fPaR*X1.&.[,8]b&t=2#&$i$9w[ff%OãU"n6=\^5;'ubxAdwF;^]Sm_UsG:ookkbEUR'bstu?.3m$1%$TDo\-YMQY)[qIFolDãU"4:J04lp6OW'B^6PNGB9btp3q[?G%vSbs_6abi%CGf.PA(tY$bO:B,n6Jc^H
pin0Au6_f)ãU"RusBbrJvnlrMJjE.dcT;o?px;DcEP-6%\vxI)K87Xc8FX,loEFc0tdxl^)or\'SWAAtxHYc*Hwti:L73y$07*#*ihsR.1yv;dKnwx;1XEmS%;D#>ãU"bt;JoA,44%oQ'%8U'QmR2c*8R'EHj%O#[L2Pr.UC1ãU"kit_>OB#cFaxm[h;[CMr*R,^FJf4R7y&u=KoIE)dT97PãU"n%4LoeOOiBRVi0TVDtNh30ZuKM(L]*7K>BJDw)blcTE&,pYJc$W;Gm7Es6e1ibaãU"+f_T-+(jIc-QF71ywWW$g-O7*](^%pVYekRAU:UpQV13hnJ)1s_eeraZk32x0v-ãU"W$rikOJ%AhuZ/K1/vL67En5YpV[5n4cp)A0AwDxk=<*,0C>Ad4etnX^E[62n8Z&ãU"+WaeSh%0bDZCEMx/CDIOyI.S4s0:KuidK1Rh_dtRJ8IdI-qd8PYC;xx;5QY)M3ZãU"&4;%?fL)L^YfRuwLCRkwRL3U?L'#MHfTuF)bIln)U8h3SG.Rplm[r#9Y>B4jUSAãU"(T>*Va1orVk>e8C:^b;k>'US)8g&'YU)E)UmR$LpPzXOa1h:K+0&]N[O*[:ph2jãU"J&%7u.H#-KVgY,\xyfastsjkxl%60:$,P3qK*rVgHn4[k;=iCno6ho8K7ol-?pFãU"m?rY4yXg]lG,$31]jK_%.I:z>sDMO.TQhDgovu)$MQVPkZ%(N8G]kB0ZZpKBSfnãU"mdy1Wnt8nX:5a1dfHOq[O72>V^WHDUe;TTOgs>vX*uJn_'G$&G0rESaT9_rU=:QãU"rND,hTIo&rFp^s&e$2W0T.9H9't0bwfxcciqXjE%159D$&3GoDn'\\0eGA4(\sMãU"14fi*6jiAZ/a5Vl8-Yrrmufe3Izj[.U=80fR9U\<(MaLYY)+:xHH77kV+b%ng9tãU"lR6A'mf'0aqr&Q1Aq2]UkTo(]C9j$544Fh9;RCHx]$du4vJ18/f/;ao2\.ncv;AãU"G^wY,pqNOdl.iYA0g$h%AV8lSuEe:-l.i9a'[kiCCnsph;9pC8P>i'H)4xQUqobãU"m=[3hNoPxZqCpxGoL\j_V6NMGAQcN'a#ba-S7<>$-]*=Wt_J^u1cpUdh%\G9l)&ãU"6xx6#\&4fgbJ*odH-=2;[G9E^3nv*F)cv^Q+^6:1m/)&5c/u(2W?q8E0:jP%1C_ãU">S5NE1fW8iF<#EN0GiTN[>o4q.:vms)H\Pe5$mGãU"aqsRnEDPetaI4(AOSw#FeGM02-C>p&^%E2as4a4AY.1$DNQEOH-CU*o)[w/vdKnãU"%7&8Y:?h'1riJ^%Ylxj5BHg9Q0iK%jf]8c-Zf$'$\[?W*Kj6iB*0IPH\2mS#%]RãU"][)Z2U?x6LHxBz-KILbzt?EZcYb>XS2tãU"M[jR[:&TTv(UD^#$ss,Y>snH1:)PAJ:kc\1#o*mx:S3PUoY[_0RD&^p-$813J2^ãU"uN'W%R6LG%WUL6(\L^fQ9Vw[a;atUa?XcWTfr6w3I]xekaH\J+Ga*V.a>A3LM,<ãU"bf3jdJ'cpx%rEhLW,/seB(*o,IKCOYwb[N*]g]sfnEmdFp5]-lss)W&O#klRlgXãU"%R00py6hKZ]jy=I(Uwk$:*WJyDV9'Q++EaMl5Af5L;-BL):i5N42y5ogwt%jsWgãU"=O?GSp-T>DbXGhtZmI2(EI2Mfn1ZS=XMYyo#M]hk[tm?XrW[*bh[;bkOeJ8QH,<2c^BJv)k6Y,nT%ca$$jbtRT%e[Z&QY%'?/ATwdZãU"C:RpXdAS'5HKBE24\c,gc._sjNR]8KWUeOH$UUZkZO86wQwH4G>*ãU"B%\.4DG?SeiGbplNTa;.J.w$64p5?e=VH_g1\w>tx#I.cknmDvnQm]AAH5Zb/VbãU".WmS.C6m(ABn+9E\3usutA\ft\/VW33nqc#^1Zn6$B6c*>-K32AW'4OVTS-dMLQZcBE3/:0UUs4UnXg5#kãU"\'NtPb[k*Tvh[E.B$=2,E^Q>#PwhcaD1]&%\mj[uvH:Jk0-5sP')'L,W1j)iSv0sL##P*ZfYu99JD<(u+XK.\;Q#;u'aJ(f*w12++^K\8ãU"r3BuWg:hRJ(38:FQ;3RD+XqJPwn+]+Da6S.E&>T)Ve%qrGL.OE^RA:ãU"xSw^b:c%c?q-mv;ElI*20#32b[#tP2uy0<4PM#8g;rz\U9f.t*Be&6Iv2)KYEQwãU"5#5I/xC1d(MH.j%j,l/zAxnELFDMtMpg\u]]4BZrJ^VãU"V^bDruPX6r3q)-t(f/fOXKK9Xc[t/+=?^72\/aF7GB2i0O)0u3.uP($Q^e#P9oPãU">7'w4up%()9%%'%-%8qAlIjYvdU&n&%%%L)%%%3%%%%qngx%Tijr%tWSgIfp\b3ãU"V9ru:9T(#'A$Qo,MEY8G9Kn<80Su^.Kw:I:[C_o#qkKQ7=V$g_ntTTE6(C0NanVs)+VYD*LFãU"m2cIj#EC]C#j/M0#?w_Ob8Zt69RCqVD0ZD2S(tp(xbBN,[l,.Zr-b^aYSU.U$Ei#rBN?W>r'3Ww2Du.pb$XVpdjU5c#XPnGN1zzAao8)?;Ds9%fE>#d&0vrijS71(YeAxPP,xNuDwRR#ãU"I>Ic7YT\&rX(XtWUlHA6$ou(RV.$=;3*M#0?5jk.d+WLbp\O(q6=-$2JE3j^J9Rmab1cM:3oA55ryBdc=kB(l3L#XRg^prvR[D8EUq'ox[;n*3w[;Kpl:HbN?Jx\X$ãU"kRcOW:UD-4T:ioq.TTh\GWUu;d4mv0%ETp3S6F'TE&)eD.DBZPt%ev>]$c;LW[mãU"=CYhTp-c3an;vCC?s#0ny(#s$we)7sh./PYp?Wsce^,ONWxWtPJY-7+uFetp)uaN7=s6U(%aVF1#Tl3'j&Q/e-UD#8=y7Q7Bzr;Q0HgR3EOX:EXãU"t-A9;FxN#MstHVfQ^'CZ%5Yk,LD?/9*'12vp<#VOk*o2-4\-;oBKS=R,nm0#g-hR3pãU"J;4*0b,21B:]:M,XReH7?lve'D__[/\&\N1Xit)#i$#/NCe]sl7$6>fiZJ>T:o5=W1)UP8O]/HZTho;_FJ(;fSo2$Ya>(VZ[h)+\[amj\g>?46c$hY7IMD:jzs^ISIp'?1+sAsg6N(nãU"L>^bOoDWoOttIejJbOPYaj.a$K$I2n/xF6L=NKX/*vUIZEm#;-Zx,/NlJJ_/e/'ãU"mO%PFn)kQSa/X)noQ=x.p5F,U6e]Wdmu%]4;geiX>/9,P,7_/92Y4Q)?^_r^;'SãU"IKT;'y16exQdx2R+jwH1C;Z1^>QUN:l#*;JJF'Sn6:/TQ9kn8gVhzU6ZcDi']a4VA)QOo(6QO,]TuENISloBl_ãU"1q:*2J,ZDjK2t\[4kKuS5jl5m#nqPX$X3cH=<-wR[%L8PSHzh#BIcfAMiVcbkdjãU"yWqFPd+]Q/T5cAodp7g/od-LLRhtfOL&XeP?'FbLA:mUWZ<^6aZL#35B%o\B5/lãU"(;brYj$0DWw$n]L-m[eb*B?J1UU?cj*VeeJbbHG/zWkgF7X1_ALu='IfSTh#ktKãU"v;#[*fJzh.lYX.fp$YS'Ju[L1xUQ^Wb?^9+Q(\ZQ\^ve3C9kVFii0gQ\8+^H$pvãU"B[[Hh,L%_,gbGl$0DW>Ar7/a;EKPU2*CL%xKt56K*%U>ãU"jp$[EnxbMmJ'$[=Q>jv%+eU'F?6qapcS\MPs/<[sY9Gk)8>H5EhdqBu'[b.Bv%pãU"HzY4-cB6S=keN$/63>6gfb'GNT$C3iM(gVSBg-3\cWOO1o][3#q$0Js7LN1U=g?ãU":3,JUUUJZi6MU;u=?(LNSfT6,f-Pflg:oNAk-.IwMCYRmU.ebz07Nz6DL'azIM2ãU"/]Y2y.$^O;Q]P:_Ct&/z[Vc-$KyBu([iSiC*f.GM%y,hqJblJa^-HiZ_4gUWUl9ãU"nnz\[p7zA#1TE?gVuU#>X5JK$_BZA>a>(B)]KX6qdO*,o\Du%p()9%%'%-[%$CljINe;&t<(%%%\,%%%6%%%%qng%xTuãU"w%nsyV%XmSuRgz&c.rm*ps9#HUP+lpaesn_OBCZ5:&AeF=PT'YKd%eghQQ?tHncCMj1-2G/oHGxM&;\sH5QI]qãU"ISN5N>OXHO>mT43&Hql-$J/Wv5C^5FB9=KME(K?bU-,zUM7[4=Wd/qi/X,)nma)ãU"%SEX#hKby84mIH.$hqC]2=WaiJ8UeYIM9_;*^U1Fzbvb-,5NJ6M;_v\^S^.XR^_ãU"VKin<]'m]C2Ot7ghjo?2LW'gd\?7FHPUH0q<*4//3oo2ruVN$>F;zVQe0OBXi0YãU"t'B1_yzn*hw23fm,7V1>I#NOY&X1y:8g3QmUZãU"=Nab'K2>IDNlN'Y+(%2OYf:#C9zraSTi(5mg1)5/;cB9Cyra?]lP7ut]G-3EzF3XobF2lLRo#R*dDWug])5;#\JEg:)Un^vJME((%E];OãU"3Gp\yKXJqO\h;qY5;uxK/$MWNea%5tI&0PRPOmr>)5skãU"\P\An/i)g9HROOv]+#%vmA]Jq]_tB^5NEqYfK_W>AGf-:b*iN_H4%DtQVYK&,]XãU"tPaqK\\.zkG)):kUJx^>+KEsWltO02.ggsE_.;7)&kL8+=[DnyD8$SL64m5j*8aãU"BQG>tWe,^/64&_Zat9Skc&3D(.KbW^BkLqT[;CxQVIe#3rvo)E)anZe8-rmL^fWãU"u4/w,4P_PfA[:Ro'o+fY)/6ak;0ef9'I4p3D=xIO$%4jLtm,o;VmPD5I7C8B/MyãU"tU;Zf(0s,e\=MDb(5BuE+QODP-s71cDoIpxx9+BGF/wGNX?kwPZFQhm*Jtk9(:+%7%%f%%%%2%%%%%%%%%&%%E%%%'R;%%%fxrT%ugVX%mSgf%xuãU"p&%'9%9%%'%-.%P%1[JWGA'c.(%(%H,%%%4%%%%%%%%%&%E[%%%/%<%%i%jrtx%ãU"Tijr%tVSg%fpup%&'9%%9%'%#-%x,R1JS8)I0.(.%%A,%%%4%%%%%%%%%&%%E%%ãU"%'e?%%%ijrt%xTij%rtVS%gfxu%p&'9%%9%'%%-%x&/1JVu=AHT#H%%B&A%%4%%ãU"%%%%%%%&%%E%%%%GC%%%ith%xTwj%firj.Sy'y%up&'%9%9%%'%-%8qAlIjYvdUãU"&n&%%%L)%%%3%%%%%%%%%&%E%%%%Og%%%qn%gxTi%jrtW%Sgfp%up&'%9%9%%'%ãU"-%(k&*J;3&dx'#&%%%v*%%%3%%%%%%%%%&%E%7%%nh%%%qn%gxTu%gVXm%Snsh%ãU"up&'%9%9%%'%-%'Cz1JE)%5<%T*%%%u-%%%3%%%%%%%%%%%E%7%%aj%%%qn%gxTãU"u%gVXm%Sugq%up&'%9%9%%'%-%7$ClIWNe;t%<(%%%\,%%%6%%%%%%%%%%%E%%%ãU"%hp%%%qn%gxTu%wnsy%VXmS%ugzu%p*+%%%%%7%%7%/#)%%X%s%%%%%ãEND SUBãV2ãV3ãCLOSE:IF S=113AND 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ãJoe Huber, Jr. WATER SIMULATION huberjjr@nicom.com 08-19-98 (13:57) QB, QBasic, PDS 136 4221 WATER.BAS ' WATER.BAS, a particle sim byã' Hit 'A' to pull the plug, ESC to exitãã' If anybody has any ideas about how to implement pressure, please email meãã' please send any comments, questions, ect. to huberjjr@nicom.comããDEFINT A-Z ' Increases speed considerablelyããTYPE Dropã X AS INTEGERã Y AS INTEGERã FreeTime AS INTEGER ' Number of cycles of free fallã LastDir AS INTEGERãEND TYPEããCONST MaxDrops = 6000 ' less=faster. On my P133, I can getãCONST MaxX = 320 ' about 33 fps compiled with 6000 dropsãCONST MaxY = 200 ' and 20 fps in QBasic w/1000 dropsããCONST SpreadChance = .1 ' try 1 or 0 for interesting effectsãCONST SpreadTime = 3 ' how many cycles of free-fall it takesã ' the water to spreadããRANDOMIZE TIMERããDIM Water(MaxDrops) AS Drop ' the bucket :)ããFOR I = 1 TO MaxDropsã Water(I).X = MaxX \ 2ã Water(I).Y = 1ã Water(I).FreeTime = 0ãNEXT IããSCREEN 13ãã' Draws box at topãLINE ((MaxX \ 2 - 20), 1)-((MaxX \ 2 - 20), 20), 15ãLINE ((MaxX \ 2 + 20), 1)-((MaxX \ 2 + 20), 20), 15ãLINE ((MaxX \ 2 - 20), 20)-((MaxX \ 2 + 20), 20), 15ãã' Draws PipeãLINE ((MaxX \ 2 - 4), 20)-((MaxX \ 2 - 4), 44), 15ãLINE ((MaxX \ 2 + 4), 20)-((MaxX \ 2 + 4), 50), 15ãLINE ((MaxX \ 2 - 4), 44)-((MaxX \ 2 - 40), 44), 15ãLINE ((MaxX \ 2 + 4), 50)-((MaxX \ 2 - 40), 50), 15ãã'Draws slanted lineãLINE (50, 40)-(200, 100), 15ãLINE (50, 41)-(200, 101), 15ãLINE (50, 42)-(200, 102), 15ãLINE (50, 43)-(200, 103), 15ããst! = TIMERããDOã FOR I = 1 TO MaxDropsã ã OldX = Water(I).X ' For eraseã OldY = Water(I).Yã WLeft = Water(I).X - 1 ' Precalcs posision to the left,ã WRight = Water(I).X + 1 ' " " right,ã WDown = Water(I).Y + 1 ' And belowã ã PntDown = POINT(Water(I).X, WDown) ' Check below dropletã IF PntDown = 0 THENã IF Water(I).FreeTime = SpreadTime THEN ' spread effectã IF RND < SpreadChance THENã IF RND < .5 THEN ' 50-50 chanceã PntRight = POINT(WRight, WDown) ' confirm that the spaceã IF PntRight = 0 THEN ' to right is free...ã Water(I).X = WRightã END IFã ELSEã PntLeft = POINT(WLeft, WDown) ' ...or to the leftã IF PntLeft = 0 THENã Water(I).X = WLeftã END IFã END IFã END IFã Water(I).FreeTime = 0ã END IFã Water(I).Y = WDownã Water(I).FreeTime = Water(I).FreeTime + 1ã Water(I).LastDir = 0ã ELSEã PntLeft = POINT(WLeft, Water(I).Y) ' can't fall down, soã PntRight = POINT(WRight, Water(I).Y) ' check to right &ã IF PntLeft = 0 AND PntRight = 0 THEN ' leftã IF Water(I).LastDir <> 0 THENã Water(I).X = Water(I).X + Water(I).LastDir ' if both directionsã ELSE ' are free, travelã IF RND < .5 THEN ' in last known dir,ã Water(I).X = WLeft ' else pick a new oneã Water(I).LastDir = -1ã ELSE ' (50-50 chance)ã Water(I).X = WRightã Water(I).LastDir = 1ã END IFã END IFã ELSEIF PntLeft = 0 THEN ' if the left is open,ã Water(I).X = WLeft ' go there...ã Water(I).LastDir = -1ã ELSEIF PntRight = 0 THEN ' ...or else go rightã Water(I).X = WRightã Water(I).LastDir = 1ã END IFã END IFã IF OldX <> Water(I).X OR OldY <> Water(I).Y THEN ' did it move?ã PSET (OldX, OldY), 0 ' yes, eraseã PSET (Water(I).X, Water(I).Y), 1 ' and drawã END IFã NEXT Iãã I$ = INKEY$ã SELECT CASE UCASE$(I$)ã CASE "A"ã FOR I = 0 TO 3 ' Removes the corkã PSET (MaxX \ 2 + I, 20), 0ã PSET (MaxX \ 2 - I, 20), 0ã NEXT Iã CASE CHR$(27) ' Escapeã EXIT DOã END SELECTãã f% = f% + 1ã IF f% = 24 THENã LOCATE 1, 1ã PRINT ABS(INT(f% / ((st! - TIMER) + .0001))); "fps"ã f% = 0ã st! = TIMERã END IFããLOOPããENDãAnders Olofsson TORCH WHOLE SCREEN anders.olofsson@mail.bip.net 08-21-98 (17:07) QB, QBasic, PDS 80 1963 FIRE.BAS ' Slightly modified "flames.bas" renamed to "fire.bas", by Anders Olofsson.ã'ã' E-mail: anders.olofsson@mail.bip.netã' anders.olofsson@zonline.ostersund.seã'ã' Compile for best performance.ã'ããDEFINT A-ZãDECLARE SUB Palet (Attr%, Red%, Green%, Blue%)ãDECLARE SUB fPRINT (sx%, Y%, Text$, C%)ããCONST StartX = 0, StartY = 0ãCONST EndX = 319, EndY = 199ããSCREEN 13: RANDOMIZE TIMERãã' Set paletteãFOR A = 1 TO 63ã Palet A, A, 0, 0: Palet A + 63, 63, A, 0: Palet A + 126, 63, 63, AãNEXT Aãã' Change "LONG" at the DIM YBase line to "INTEGER"ã' when you're going to compile this thing...ããDIM YBase(0 TO 200) AS LONG 'For high speed...ãFOR Y = 0 TO 200: YBase(Y) = 320& * Y: NEXTããDEF SEG = &HA000ãLINE (55, 100)-(275, 100), 145ãFOR Y = 99 TO 50 STEP -1ã LINE (55, Y)-(275, Y), PEEK(320& * (Y + 1) + 175) - 1ãNEXTããfPRINT 114, 60, "Fire effect", 0: fPRINT 115, 60, "Fire effect", 70ãfPRINT 69, 80, "By Anders Olofsson, 1998", 0: fPRINT 70, 80, "By Anders Olofsson, 1998", 70ãfPRINT 50, 120, "Press any key to burn this!", 140ããWHILE LEN(INKEY$): WENDãDO: LOOP UNTIL LEN(INKEY$)ããDEF SEG = &HA000ããDOã FOR Y = EndY TO StartY + 1 STEP -1ã FOR X = StartX TO EndXã C = (PEEK(YBase(Y + 1) + X) + PEEK(YBase(Y - 1) + X) + PEEK(YBase(Y) + X + 1) + PEEK(YBase(Y) + X - 1)) \ 4 - 1ã POKE YBase(Y) + X, Cã NEXTã NEXTãLOOP UNTIL LEN(INKEY$)ããDEF SEGããWIDTH 80, 25: COLOR 14, 4: LOCATE 1, 2: PRINT " Fire plasma effect "ãCOLOR 7, 0: PRINT "By Anders Olofsson, 1998."ãENDããDEFSNG A-ZãSUB fPRINT (sx%, Y%, Text$, C%)ãX% = sx%ãDEF SEG = &HF000ãFOR T% = 1 TO LEN(Text$)ãFOR ty% = Y% TO Y% + 7ã mask% = PEEK(&HFA63 + (ASC(MID$(Text$, T%, 1)) * 8) + 11 + ty% - Y%) * 128ã LINE (X%, ty%)-STEP(7, 0), C%, , mask%ãNEXTã X% = X% + 8ãNEXTãDEF SEGããEND SUBããDEFINT A-ZãSUB Palet (Attr%, Red%, Green%, Blue%)ãOUT &H3C8, Attr%ãOUT &H3C9, Red%ãOUT &H3C9, Green%ãOUT &H3C9, Blue%ãEND SUBãVictor Woeltjen ANY PALETTE TRANSLUCENCY EFFECTskywise@fix.net 08-19-98 (03:45) QB, QBasic, PDS 224 7789 VGATRANS.BASDECLARE SUB TranslucentBox (x1%, y1%, x2%, y2%, TableSeg%, TableOff%)ãDECLARE SUB InitTrans ()ãDEFINT A-ZãDECLARE SUB MakeIndex (segm%, offs%, BaseColor%, Spread%)ãã'Before doing anything, initialise TSRout% and run InitTrans (seen below)ã'ã'Then you're set up... Before you can use the transparency effects you needã'to make an index. The MakeIndex routine works under any palette, though youã'must be in screen 13. Look below to see the syntax for MakeIndex.ã'ã'Once you have an index (or indices, if you want multiple translucent colors)ã'set up, you can use the TranslucentBox routine to create a translucentã'square over a chosen portion of the screen. Again, look below for syntax.ã'ã'Enjoy...ã'ã'Copyright 1998 Rev. Victor Woeltjenã'Use freely, but give me credit if you use any of these routines.ã'ã'Note: In VBDOS and possibly in QB 4.5 you cannot run this from theã'evironment. It should compile just fine, though.ã'ã'Second note: You need 2K free to run the MakeIndex sub. It may be best toã'create a few indexes outside of your main program and then save them toã'disk.ããDIM SHARED TSRout%(40) 'These two lines are required!ãInitTrans '!!!ããDIM Blah(127) 'This is the array in which the color switchingã 'table will be stored. You can have as manyã 'different tables for as many different colorsã 'as you like... Each needs to be 256 bytes inã 'size.ããColour = 32 'The colour you want to use as a base for theã 'transparency.ã ãSCREEN 13ããMakeIndex VARSEG(Blah(0)), VARPTR(Blah(0)), Colour, 15 'Make the table.ãã'VARSEG(Blah(0)), and VARPTR(Blah(0)) - The place in memory where you wantã' the table to be stored...ã'Colour - You can replace this with any number or integer variable. Thisã' indicates the color you want the table to me mapped for. To make aã' blue translucency table, select a blue color (use brighter colors forã' clearer translucency)ã'15 - This is the number of levels of brightness you want to have. Higherã' values give better effect, but if you're making your indices on the flyã' you should use a lower value.ãããRANDOMIZE 44 'Fill the screen with lines.ãFOR n = 1 TO 1000ã x1 = RND * 319ã x2 = RND * 319ã y1 = RND * 199ã y2 = RND * 199ã LINE (x1, y1)-(x2, y2), RND * 255ãNEXT nããDO: LOOP UNTIL INKEY$ <> ""ããTranslucentBox 20, 20, 299, 179, VARSEG(Blah(0)), VARPTR(Blah(0))ãã'20, 20 - Upper left hand corner of the box.ã'299, 179 - Lower right hand corner.ã'VARSEG(Blah(0)), VARPTR(Blah(0)) - Location of the color switching table toã' be used.ããDO: LOOP UNTIL INKEY$ <> ""ããDEFLNG A-ZãSUB InitTransããASM$ = "1E5589E58B76088B4E128B5610B800A08ED889D389D0C1E008C1E30601C"ãASM$ = ASM$ + "301CBB800008A0701C68B460A8ED88A048B760850B800A08ED8588807418"ãASM$ = ASM$ + "B460E39C17ECB8B4E12428B460C39C27EC05D1FCA0600"ããDEF SEG = VARSEG(TSRout%(0))ã FOR PokeAsm% = 0 TO 81ã POKE VARPTR(TSRout%(0)) + PokeAsm%, VAL("&H" + MID$(ASM$, PokeAsm% * 2 + 1, 2))ã NEXT PokeAsm%ãDEF SEGãããEND SUBããDEFINT A-ZãSUB MakeIndex (segm, offs, BaseColor, Spread)ããBCol = BaseColor MOD 256 'Make sure BaseColor andãSprd = Spread MOD 256 'Spread fit the correct bounds by assigningã 'new variables to them.ããDIM Bright(0 TO 255) 'Index of brightnessãDIM RGBVal(0 TO 255, 1 TO 3) 'Index of RGB valuesãDIM RplVal(0 TO (Sprd - 1)) 'Index of replacement values for specificã 'brightnesses.ãããFOR attr = 0 TO 255 'Get all the colors...ã OUT &H3C7, attr 'Get ready to read palette info...ã red = INP(&H3C9) 'And read that info.ã gre = INP(&H3C9)ã blu = INP(&H3C9)ã Bright(attr) = (Sprd - 1) * ((red + gre + blu) / 189!) 'Get average brightness.ã RGBVal(attr, 1) = red 'Store the RGB Valuesã RGBVal(attr, 2) = greã RGBVal(attr, 3) = bluãNEXT attrã ãdelta! = 1 / Sprd 'Change in percentage per step.ãcp! = 0 'Reset the percentage counter.ããFOR CS = 0 TO Sprd - 1 'Step through the spread...ã cp! = cp! + delta! 'Increment the percentage counter.ã red = RGBVal(BCol, 1) * cp! 'Define the target RGB value.ã gre = RGBVal(BCol, 2) * cp!ã blu = RGBVal(BCol, 3) * cp!ã closest = 0 'Reset closest and maximum difference.ã maxdiff = 255ã FOR check = 0 TO 255 'Check the colors for a match.ã rd = ABS(RGBVal(check, 1) - red) 'Get the difference from theã gd = ABS(RGBVal(check, 2) - gre) 'target RGB value.ã bd = ABS(RGBVal(check, 3) - blu)ã diff = rd + gd + bd 'Compute the total differenceã IF diff < maxdiff THEN 'If this is the least different so farã closest = check 'set closest to the current attributeã maxdiff = diff 'and set the maximum difference.ã END IFã NEXT checkã RplVal(CS) = closest 'Set the replacement value.ãNEXT CSããFOR pokeidx = 0 TO 255 'Now save the index into the specifiedã DEF SEG = segm 'segment and offset.ã POKE offs + pokeidx, RplVal(Bright(pokeidx))ã DEF SEGãNEXT pokeidxããEND SUBããSUB SourceCodeãã'Not really a routine, just assembly source for the translucent boxã'routine :)ãã';Overview of the stack:ã';bp 0ã';ds 2ã';BAS off 4ã';BAS seg * 6ã';VARPTR(Blah) 8ã';VARSEG(Blah) Aã';y2 Cã';x2 Eã';y1 10ã';x1 12ãã';cx = curxã';dx = curyãã'push dsã'push bpãã'mov bp, spãã'mov si, [bp+0x8] ;Set si to the offset of the color table.ã'mov cx, [bp+0x12] ;Set cx to the starting x posã'mov dx, [bp+0x10] ;Set dx to the starting y posã'ã'ChangeColorã'mov ax, 0xA000 ;Set ds to the screen segmentã'mov ds, axã'mov bx, dx ;And put the ypos in bx,ã'mov ax, dx ;then multiply it by 320 using SHLs for speed.ã'shl ax, 8 ã'shl bx, 6ã'add bx, axã'add bx, cx ;Finally, add the xpos to bx to get the screen offset.ã'mov ax, 0 ;Clear out ax,ã'mov al, [bx] ;Now get the pixel color,ã'add si, ax ;and add it to si...ã'mov ax, [bp+0xA] ;Put the color table's segment in dsã'mov ds, axã'mov al, [si] ;And get the replacement color.ã'mov si, [bp+0x8] ;Replace si with the beginning table offset for later.ã'push ax ;Save the color momentarily...ã'mov ax, 0xA000 ;Set ds to the screen seg,ã'mov ds, axã'pop ax ;Get back the color,ã'mov [bx], al ;and put it on screen!ãã'inc cx ;Increment the xposã'mov ax, [bp+0xE] ;and compare it with x2ã'cmp cx, ax ;to see if the right boundary has been passed.ã'jle ChangeColor ;if not, go ahead and draw.ã'mov cx, [bp+0x12] ;Otherwise, restore x1,ã'inc dx ;and increment the ypos.ã'mov ax, [bp+0xC] ;Now compare it with y2...ã'cmp dx, axã'jle ChangeColorã'ã'pop bpã'pop dsãã'retf 0x6ããEND SUBããSUB TranslucentBox (x1, y1, x2, y2, TableSeg, TableOff)ãã'x1,y1,x2,y2: Endpoints for square.ã'TableSeg,TableOff: VARSEG and VARPTR of the variable or array inã' which the color table is stored.ããDEF SEG = VARSEG(TSRout%(0))ã CALL Absolute(BYVAL x1, BYVAL y1, BYVAL x2, BYVAL y2, BYVAL TableSeg, BYVAL TableOff, VARPTR(TSRout%(0)))ãDEF SEGããEND SUBãThomas Ludwig PB FIRE VERSION 7 lycium@hotmail.com 08-27-98 (21:44) PB 226 5702 PBFIRE7.BAS ' -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ã' | PBFiRE ver 7 | |ã' | ------------- |ã' | |ã' | This prog is Public Domain, but if u use it,|ã' | credit me. |ã' | |ã' | Thomas Ludwig |ã' | lycium@hotmail.com |ã' | |ã' | I'm looking for people to join my one-man |ã' | demogroup BlackBox, so if you're interested |ã' | please mail me, and I'll get back to you |ã' | within 4 days |ã' -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ããcls:randomize timerããdim dynamic img(32320) as byteããdim dynamic div5(255*5) as integerããfor x% = 0 to 255*5ã div5(x%) = cint((x%/5)-1)ãnext x%ããprint "PBFiRE 7"ãprint "--------"ãprintãprint "This is probably the last version of my"ãprint "PBFiRE routine, at least until I see sumthin"ãprint "kewl I missed ;) If you modify it, please send"ãprint "me a copy of the finished source, and if"ãprint "possible, credit me."ãprintãprint "Punch the beige plastic"ãdo:loop until inkey$ <> ""ãã! mov ax, &h13 ;Set screen 13 in ASMã! int 16ããphongpal 63,0,20,128,2,0ãã'OUT &H3D4, 9 'This tweaks the screenã'OUT &H3D5, 3 'to 320x100 resolution.ããscreenseg% = &ha7d0ãdef seg = screenseg%ãimgseg% = varseg(img(0))ãã'Bottom line for 320x200 = 31680, def seg &ha7d0ã'Bottom line for 320x100 = 31680, def seg &ha000ããStart! = timerããBeginLoop:ãã! xor dl,dlã! mov es,imgseg%ã! mov bl,200ãfor px% = 0 to 319ãã ! mov ax,px%ã ! add ax,31680ã ! mov di,axãã if int(rnd*2) = 1 thenã ! mov es:[di],blãã elseã ! mov es:[di],dlãã end ifããnext px%ãã! mov pm%,3200 ;Start at 10,0 (10*320 = 3200)ããwait &h3da, 8 'Wait for vertical retrace, kills flicker and locks FPSã 'at monitor refresh rate.ããBegin:ãã ! mov ax,pm% ;Move pixel mem location to AXã ! inc ax ;Increment it per pixelã ! sub ax,320 ;Subtract 320 from AXã ! mov above%,ax ;Move result to above%ãã ! add ax,320 ;Not done yet - add 320 to AXã ! mov pm%,ax ;Move result to pm%ãã 'Grab first value from virtual screenã ! mov es,imgseg% ;Point to img(0) segmentã ! mov di,ax ;Move pm% (in AX) to offset reg.ã ! mov al,es:[di] ;Get pixel val in ALã ! mov pixel%,al ;Move AL to pixel%ãã ! mov dx,above% ;Move above% to DX - fasterãã ! cmp pixel%,1 ;Compare pixel% to 1ã ! jl Skip ;If it's less, Skip the pixelãã '=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ãã 'The next line is the "core" of the routine. It blurs the pixelã 'by averaging the colours of the surrounding pixels.ã p% = div5(pixel%+img(pm%+1)+img(pm%-1)+img(pm%+320)+img(above%))ãã '=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ãã ! mov al,p% ;Move p% to AX (speed)ã ! cmp al,1 ;Compare p% to 1ã ! jl Skip ;If it's less, Skip the pixelãã ! mov es,imgseg% ;Set mem segmet to img(0)ã ! mov di,dx ;Set mem offset to above% (stored in DX)ã ! mov es:[di],al ;Write to memããSkip:ãã ! cmp dx,31680 ;Are we at the bottom?ã ! je DoneFrame ;If so, the frame's done!ã ! jmp Begin ;Otherwise, carry on!ããDoneFrame:ããmemcopy imgseg%,&ha7d0 'Copy frame 4 bytes per clock!ãã! mov ax,f& ;Move frame counter var to AXã! inc ax ;Incr AXã! mov f&,ax ;Move back to f&ãã! in al,96 ;Get input from port 96ã! cmp al,1 ;Is it 1?ã! je Done ;If so, exit the loop!ãã! jmp BeginLoopããDone:ãFinish! = timerãã! mov ax,3 ;Return to text modeã! int &h10ããclsãscreen 0ãwidth 80ãcolor 4ãprint "PBFiRE v7"ãcolor 8ãprint "---------"ãprintãcolor 7ãprint f&;"frames for";Finish!-Start!;"seconds."ãprint "Did";f&/(Finish!-Start!);"frames per second."ãprintãcolor 8ãprint "Lycium 23 August '98"ãcolor 9ãprint "lycium@hotmail.com"ãcolor 7ããsystemããsub PhongPal(Red%,Green%,Blue%,Light%,Reflect%,Ambient%)ããout &h3C8,0ããfor d%=0 TO 255ããi! = COS((255 - d%) / 512 * 3.141592)ãref! = (i! ^ Reflect%) * Light%ãAmb! = Ambient% / 63ããtmp% = Red% * Amb! + Red% * i! + ref!ãIF tmp% > 63 THEN tmp% = 63ã out &h03C9,tmp%ããtmp% = Green% * Amb! + Green% * i! + ref!ãIF tmp% > 63 THEN tmp% = 63ã out &h03C9,tmp%ããtmp% = Blue% * Amb! + Blue% * i! + ref!ãIF tmp% > 63 THEN tmp% = 63ã out &h03C9,tmp%ããnext d%ããend subããSUB memcopy (BYVAL inputseg as integer, BYVAL destseg as integer)ã ! push ds ;Save PBã ! push si ;mem segments!!!ã ! mov ds, inputsegã ! xor si, siã ! xor di, diã ! mov es, destsegã ! mov cx, &h1E50 ;Number of times &h(32000-(320*3))/4ãã ' \/\/\/\/\/\/ rep movsd - No 386+ instructions in PB!!!ã ! db &hF3ã ! db &h66ã ! db &hA5ã ' /\/\/\/\/\/\ rep movsd - No 386+ instructions in PB!!!ãã ! pop si ;Restore PBã ! pop ds ;mem segmentsãEND SUBãã'=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ã'Credits!!!ã'-----------ãã'Matt Gulden (Folter) - For getting me started with PB!! Thankx man, u rule!ã' mattg@thrillhaus.com, page www.THRILLHAUS.com (rocks!)ãã'Danny Beardsley - For helpin me out with all kindza stuffã' dsb@cyberdude.com, page www.dnai.com/~beardsãã'ABC archives - For being the best QBasic source ever! (And publishing thisã' code)ãã'All the other people who made fire routines (Matt esp.), I learned from eachã' one!ãã'You, for downloading this file, thus keeping basic alive!ãDave Navarro, Jr. PB CROSS-FADE ROUTINE dave@powerbasic.com 09-01-98 (15:11) PB 127 2703 CROSFADE.BAS'Converted to PowerBASIC by Dave Navarro, Jr. (dave@powerbasic.com)ã'Original Pascal code by Bas van Gallen and David Proper.ã'ã'If you make any changes, I would appreciate it if you would emailã'them to me.ãã$OPTIMIZE SPEEDã$ERROR BOUNDS OFF 'this is a MUST! for version 3.00c or laterããDEFINT A-ZãDIM creds$(0:12)ããcreds$( 0)="This cross-fade routine"ãcreds$( 1)="was converted to PowerBASIC by"ãcreds$( 2)="Dave Navarro, Jr."ãcreds$( 3)="Original Pascal code written by"ãcreds$( 4)="David Proper and..."ãcreds$( 5)="Bas van Gaalen."ãcreds$( 6)="This routine was"ãcreds$( 7)="enhanced a bit"ãcreds$( 8)="in comparison with"ãcreds$( 9)="the Pascal version by"ãcreds$(10)="using more assembler code..."ãcreds$(11)="May the Force Be With You..."ãã'set 320x200x256 modeã! push DSã! mov AX, &H13ã! int &H10ã! pop DSããSetPal 1,0,0,0ãSetPal 2,0,0,0ãSetPal 3, 31, 63, 31ãcurcol = 1ãtxtidx = 0ãDOã ClearTxt curcol, 3-curcolã WriteTxt curcol, 3-curcol, creds$(txtidx)ã FOR i = 0 TO 63ã SetPal curcol, i \ 2, i, i \ 2ã SetPal 3-curcol, (63-i) \ 2, 63-i, (63-i) \ 2ã NEXT iã curcol = 1+(curcol MOD 2)ã txtidx = (1+txtidx) MOD 13ã SLEEP 1ãLOOP UNTIL LEN(INKEY$)ãã'set text modeã! push DSã! mov AX, &H3ã! int &H10ã! pop DSããENDãããSUB SetPal(BYVAL c AS BYTE,BYVAL r AS BYTE,BYVAL g AS BYTE,BYVAL b AS BYTE)ãã ! push DSãã ! mov DX, &H3DAãVert1:ã ! in AL,DXã ! test AL,8ã ! jz Vert1ãVert2:ã ! in AL,DXã ! test AL,8ã ! jnz Vert2ã ! mov DX,&H3C8ã ! mov AX, cã ! out DX, ALã ! inc DXã ! mov AL, rã ! out DX, ALã ! mov AL, gã ! out DX, ALã ! mov AL, bã ! out DX, ALãã ! push DSããEND SUBããSUB ClearTxt(BYVAL col AS BYTE, BYVAL newc AS BYTE)ã DEF SEG=&HA000ã FOR x=0 TO 319ã FOR y=100 TO 107ã vofs??=y * 320 + xã IF PEEK(vofs??)=col THENã POKE vofs??,0ã ELSEIF PEEK(vofs??)<>0 THENã POKE vofs??,newcã END IFã NEXT yã NEXT xã DEF SEGãEND SUBããSUB WriteTxt(BYVAL col AS BYTE, BYVAL cur AS BYTE, txt$)ã fseg??=&HF000ã fofs??=&HFA6Eã x = (300 - 8 * LEN(txt$)) \ 2ã y = 100ã FOR i = 1 TO LEN(txt$)ã ch = ASCII(MID$(Txt$, I, 1))ã IF ch = -1 THEN ch = 0ã FOR j = 0 TO 7ã FOR k = 0 TO 7ã DEF SEG=fseg??ã z = PEEK(fofs??+ch*8+j)ã SHIFT LEFT z, kã IF (z AND 128) <> 0 THENã DEF SEG=&HA000ã vofs?? = (y+j)*320+(i*8)+x+kã IF PEEK(vofs??) = cur THENã POKE vofs??, col+curã ELSEã POKE vofs??, colã END IFã END IFã NEXT kã NEXT jã NEXT iã DEF SEGãEND SUBãAndrew S. Gibson WEIRD COLOR MIXING zapf_dingbat@juno.com 09-15-98 (00:10) QB, PDS 479 20658 PSYCHO.BAS ' This is what happens when I get weird... Experiments in mixing... !?ã' Press escape to stop, You'll need QuickBASIC. It's funny too !ã' Most are mine...You can use them in messages..ã'Email / Zapf_DingBat@JUNO.COMãDEFINT A-ZãTYPE Regtypeã AX AS INTEGERã BX AS INTEGERã CX AS INTEGERã DX AS INTEGERã BP AS INTEGERã SI AS INTEGERã DI AS INTEGERã Flags AS INTEGERã DS AS INTEGERã ES AS INTEGERãEND TYPEããDECLARE FUNCTION Monitor% (VSSegment)ãDECLARE SUB ModeSet (ModeNum)ãDECLARE SUB STDOUT (MESSAGETEXT$)ãDECLARE SUB VgaPsycho (PlaneLen&)ãDIM SHARED Registers AS RegtypeããRANDOMIZE -TIMERãVideo = Monitor%(SSeg)ãSELECT CASE Videoã CASE IS < 4: STDOUT "Enhanced Graphics Adapter (EGA) is the least required adapter for Psycho." + CHR$(10) + CHR$(13): Ingraphics = 0: GOTO TerminateãEND SELECTããSELECT CASE COMMAND$ã CASE IS = "0X0D", "7", "320X200": ModeSet &HD: PlaneLength = 7959: Ingraphics = -1ã CASE IS = "0X0E", "8", "640X200": ModeSet &HE: PlaneLength = 15919: Ingraphics = -1ã CASE IS = "0X10", "9", "640X350": ModeSet &H10: PlaneLength = 28000: Ingraphics = -1ã CASE IS = "0X12", "12", "640X480"ã IF Video = 4 THEN STDOUT "Video Gate Array adapter (VGA) ABSOLUTELY required for this mode." + CHR$(10) + CHR$(13): Ingraphics = 0: GOTO Terminateã ModeSet &H12: VgaPsycho 38400: Ingraphics = -1: GOTO TerminateãCASE ELSEã STDOUT "Psycho Version 1.0 for EGA and VGA systems." + CHR$(10) + CHR$(10) + CHR$(13)ã STDOUT "Command line options are:" + CHR$(10) + CHR$(13)ã STDOUT " 7 or 320X200 (0x0D) - 320x200 Ega 16 color screen mode (Low Resolution)" + CHR$(10) + CHR$(13)ã STDOUT " 8 or 640X200 (0x0E) - 640x200 Ega 16 color screen mode (Medium Resolution)" + CHR$(10) + CHR$(13)ã STDOUT " 9 or 640X350 (0x10) - 640x350 Ega 16 color screen mode (High Resolution)" + CHR$(10) + CHR$(13)ã STDOUT "12 or 640X480 (0x12) - 640x480 Vga 16 color screen mode (Higher Resolution)" + CHR$(10) + CHR$(10) + CHR$(13)ã STDOUT "Press ESCape to exit Psycho." + CHR$(10) + CHR$(13): Ingraphics = 0: GOTO TerminateãEND SELECTãã'main loopãDOãDEF SEG = &HA000ãFOR ScrnSize = 0 TO PlaneLengthãOUT &H3C4, 2: OUT &H3C5, 15ãOUT &H3C4, 2: OUT &H3C5, 1 'Plane 1: BlueãPOKE ScrnSize, INT(RND(1) * 255)ãOUT &H3C4, 2: OUT &H3C5, 2 'Plane 2: GreenãPOKE ScrnSize, INT(RND(1) * 255)ãOUT &H3C4, 2: OUT &H3C5, 4 'Plane 3: RedãPOKE ScrnSize, INT(RND(1) * 255)ãOUT &H3C4, 2: OUT &H3C5, 8 'Plane 4: Color IntensityãPOKE ScrnSize, INT(RND(1) * 255)ãX$ = INKEY$: IF X$ = CHR$(27) THEN DEF SEG : GOTO TerminateãIF X$ = "A" OR X$ = "a" THEN EXIT FORãNEXT ScrnSizeãDEF SEGããDOãTimes = INT(RND(1) * 31)ãLOOP UNTIL Times <> 0ãFOR Z = 0 TO TimesãDOãXC = INT(RND(1) * 8)ãLOOP UNTIL XC <> 0ããSELECT CASE XCã CASE 1: GOSUB BluePlaneã CASE 2: GOSUB GreenPlaneã CASE 3: GOSUB RedPlaneã CASE 4: GOSUB IntensityMapã CASE 5: DO: InvertRand = INT(RND(1) * 4): LOOP UNTIL InvertRand <> 0: GOSUB InvertPlaneã CASE 6: DO: NullRand = INT(RND(1) * 4): LOOP UNTIL NullRand <> 0: GOSUB NullPlaneã CASE 7: DO: PlaneOn = INT(RND(1) * 4): LOOP UNTIL PlaneOn <> 0: GOSUB FillPlaneã CASE 8: DO: XorRand = INT(RND(1) * 4): LOOP UNTIL XorRand <> 0: GOSUB XorPlaneãEND SELECTãNEXT ZãLOOPãTerminate:ãIF Ingraphics = -1 THENã ModeSet &H3: DO: Ecomment = INT(RND(1) * 66): LOOP UNTIL Ecomment <> 0ã SELECT CASE Ecommentã CASE 1: STDOUT "Hmmm ... Where did all those colors come from..." + CHR$(10) + CHR$(13)ã CASE 2: STDOUT "Got a headache now ?" + CHR$(10) + CHR$(13)ã CASE 3: STDOUT "Concept for a new Internet Conference: alt.EMM386.DIE.DIE.DIE" + CHR$(10) + CHR$(13)ã CASE 4: STDOUT "Altoids are *the* best mints to use for bad breath !" + CHR$(10) + CHR$(13)ã CASE 5: STDOUT "C is not a language but an encryption scheme..." + CHR$(10) + CHR$(13)ã CASE 6: STDOUT "Wow, you have a great case of eye strain !" + CHR$(10) + CHR$(13)ã CASE 7: STDOUT "One day Pyscho will be faster, I promise !" + CHR$(10) + CHR$(13)ã CASE 8: STDOUT "Right now, Buddhists are pondering the reason for Psycho's existance ! " + CHR$(10) + CHR$(13)ã CASE 9: STDOUT "Right now People are doing what you desire to do." + CHR$(10) + CHR$(13)ã CASE 10: STDOUT "...And You ask yourself, WHY did I download this thing !?..." + CHR$(10) + CHR$(13)ã CASE 11: STDOUT CHR$(34) + "Go away kid, Ya bother me." + CHR$(34) + " - W.C Fields" + CHR$(10) + CHR$(13)ã CASE 12: STDOUT CHR$(34) + "... And now for something completely different ..." + CHR$(34) + CHR$(10) + CHR$(13)ã CASE 13: STDOUT "Oh blast, another comment!" + CHR$(10) + CHR$(13)ã CASE 14: STDOUT "Right now, Lita Ford is awaiting the resurrection of '80s style Hard Rock." + CHR$(10) + CHR$(13)ã CASE 15: STDOUT "Right now, America Online is sending free diskettes to computerless people." + CHR$(10) + CHR$(13)ã CASE 16: STDOUT "Right now a guy named Seth is drinking his own urine, the sicko !" + CHR$(10) + CHR$(13)ã CASE 17: STDOUT "Hey, I got your DMA controller right here!" + CHR$(10) + CHR$(13)ã CASE 18: STDOUT CHR$(34) + "Hey!, It's a touchy situation !" + CHR$(34) + " - A. D. Clay" + CHR$(10) + CHR$(13)ã CASE 19: STDOUT "Bye!" + CHR$(10) + CHR$(13)ã CASE 20: STDOUT "I hope I don't crash something..." + CHR$(10) + CHR$(13)ã CASE 21: STDOUT "Are you doored to death ?" + CHR$(10) + CHR$(13)ã CASE 22: STDOUT "BARNEY: What happened when a person fed a smurf after midnight." + CHR$(10) + CHR$(13)ã CASE 23: STDOUT "Abort, Retry, Ignore, Plead for mercy?" + CHR$(10) + CHR$(13)ã CASE 24: STDOUT "Windows a virus with mouse support." + CHR$(10) + CHR$(13)ã CASE 25: STDOUT "DEJA VU ALert! : You may have read this before in a past life." + CHR$(10) + CHR$(13)ã CASE 26: STDOUT "Crass isn't it?" + CHR$(10) + CHR$(13)ã CASE 27: STDOUT CHR$(34) + "Drole!, Very Drole Willma." + CHR$(34) + " - F. Flintstone" + CHR$(10) + CHR$(13)ã CASE 28: STDOUT CHR$(34) + "Drole!, Very Drole Fred." + CHR$(34) + " - W. Flintstone" + CHR$(10) + CHR$(13)ã CASE 29: STDOUT "Today is international Spastic day !" + CHR$(10) + CHR$(13)ã CASE 30: STDOUT "Remember what old Jack Burton says..." + CHR$(10) + CHR$(13) + "No, what does he say ?" + CHR$(10) + CHR$(13)ã CASE 31ã STDOUT "Oh where, oh where could Tao Ge be" + CHR$(10) + CHR$(13)ã STDOUT "we need a version of Exitilus bug free" + CHR$(10) + CHR$(13)ã STDOUT "Is Tao a citizen or immigrant nine hundred thousand and three ?" + CHR$(10) + CHR$(13)ã STDOUT "Oh where, oh where could Tao Ge be" + CHR$(10) + CHR$(13)ã CASE 32: STDOUT "... That dumb herky wouldn't let me in ..." + CHR$(10) + CHR$(13)ã CASE 33: STDOUT CHR$(34) + "One step closer and you'll be kissin my shalaly !" + CHR$(34) + " - some Scottish guy" + CHR$(10) + CHR$(13)ã CASE 34: STDOUT "Star Trek:TNG shows should be retrofitted with subtitles that define ambiguous terms." + CHR$(10) + CHR$(13)ã CASE 35: STDOUT "New! Vericose Veins from AgeTron, look like the man you always wanted to be, buy some today!" + CHR$(10) + CHR$(13)ã CASE 36: STDOUT "If anybody steps on my bunyon, I kill 'em !!!!!" + CHR$(10) + CHR$(13)ã CASE 37: STDOUT "OH NO, its its its.............King Boobus Tuber!" + CHR$(10) + CHR$(13)ã CASE 38: STDOUT "Have you been gnawing at my Chia Head again ?!?" + CHR$(10) + CHR$(13)ã CASE 39: STDOUT "Where do weirdos come from ?" + CHR$(10) + CHR$(13)ã CASE 40: STDOUT "Are you from Earth, too ???" + CHR$(10) + CHR$(13)ã CASE 41: STDOUT "Virus is outdated. Contact hacker for update (Y/N)?" + CHR$(10) + CHR$(13)ã CASE 42: STDOUT "Worm holes don't have anything to do with time travel." + CHR$(10) + CHR$(13)ã CASE 43: STDOUT CHR$(34) + "Daddy, what's " + CHR$(34) + "Real Mode" + CHR$(34) + " mean ?" + CHR$(34) + CHR$(10) + CHR$(13)ã CASE 44: STDOUT "Elvis Is a Jew, He was a member of the tribe LEVIS.." + CHR$(10) + CHR$(13)ã CASE 45: STDOUT "I crashed the last of the XT harddrives..." + CHR$(10) + CHR$(13)ã CASE 46: STDOUT "Seize Harddrive and use as an anchor !" + CHR$(10) + CHR$(13)ã CASE 47: STDOUT "NORTON: Patron saint of strangely named utilities." + CHR$(10) + CHR$(13)ã CASE 48: STDOUT "Care for some Crispy UART chips ?" + CHR$(10) + CHR$(13)ã CASE 49: STDOUT "Dead ants are the only ants I like :)" + CHR$(10) + CHR$(13)ã CASE 50: STDOUT "UNIX: Programmers without testes." + CHR$(10) + CHR$(13)ã CASE 51: STDOUT "They have made an HD that can hold my data |8*;" + CHR$(10) + CHR$(13)ã CASE 52: STDOUT CHR$(34) + "Like WOW ! Man !" + CHR$(34) + " - Shaggy (Scooby Doo)" + CHR$(10) + CHR$(13)ã CASE 53: STDOUT "ANSI Still LIVES !" + CHR$(10) + CHR$(13)ã CASE 54: STDOUT "WOW..." + CHR$(10) + CHR$(13)ã CASE 55: STDOUT "Can Monitors make Sparks ? ... Let's Find out !" + CHR$(10) + CHR$(13)ã CASE 56: STDOUT "Gorrest Fump, The antithesis of Forrest Gump !" + CHR$(10) + CHR$(13)ã CASE 57: STDOUT "Stupid comment count: number fifty-seven." + CHR$(10) + CHR$(13)ã CASE 58: STDOUT "Love may be blind, but LUST has 20/20 vision..." + CHR$(10) + CHR$(13)ã CASE 59: STDOUT "The IBM AT ate Apple computes for breakfast." + CHR$(10) + CHR$(13)ã CASE 60: STDOUT "Different names for Microsoft: Microslop, Macroslop, Macrosoft, Vaporsoft..." + CHR$(10) + CHR$(13)ã CASE 61: STDOUT "I have a huge mouth." + CHR$(10) + CHR$(13)ã CASE 62: STDOUT "Kilroy was here." + CHR$(10) + CHR$(13)ã CASE 63: STDOUT "Max Korn" + CHR$(10) + CHR$(13)ã CASE 64: STDOUT "Null was never here." + CHR$(10) + CHR$(13)ã CASE 65: STDOUT "Political Correctness, A STUPID self contradicting concept !" + CHR$(10) + CHR$(13)ã CASE 66: STDOUT "Some space for your thoughts:" + CHR$(10) + CHR$(13) + CHR$(10) + CHR$(13) + CHR$(10) + CHR$(13) + CHR$(10) + CHR$(13)ã CASE 67: STDOUT "This Sucks Ass! Man !!" + CHR$(10) + CHR$(13)ã CASE 68: STDOUT "AWW !! Sons-of-Bitches !!!" + CHR$(10) + CHR$(13)ã CASE 69: STDOUT "What's so civil about War anyway ?" + CHR$(10) + CHR$(13)ã CASE 70: STDOUT "OH MY GOD ! THEY KILLED KENNY !" + CHR$(10) + CHR$(13)ãã END SELECTãEND IFãENDããBluePlane:ãDEF SEG = &HA000ãFOR ScrnSize = 0 TO PlaneLengthãOUT &H3C4, 2: OUT &H3C5, 1 'Plane 1: BlueãPOKE ScrnSize, INT(RND(1) * 255)ãX$ = INKEY$: IF X$ = CHR$(27) THEN DEF SEG : GOTO TerminateãIF X$ = "A" OR X$ = "a" THEN EXIT FORãNEXT ScrnSizeãDEF SEGãRETURNããGreenPlane:ãDEF SEG = &HA000ãFOR ScrnSize = 0 TO PlaneLengthãOUT &H3C4, 2: OUT &H3C5, 2 'Plane 2: GreenãPOKE ScrnSize, INT(RND(1) * 255)ãX$ = INKEY$: IF X$ = CHR$(27) THEN DEF SEG : GOTO TerminateãIF X$ = "A" OR X$ = "a" THEN EXIT FORãNEXT ScrnSizeãDEF SEGãRETURNããRedPlane:ãDEF SEG = &HA000ãFOR ScrnSize = 0 TO PlaneLengthãOUT &H3C4, 2: OUT &H3C5, 4 'Plane 3: RedãPOKE ScrnSize, INT(RND(1) * 255)ãX$ = INKEY$: IF X$ = CHR$(27) THEN DEF SEG : GOTO TerminateãIF X$ = "A" OR X$ = "a" THEN EXIT FORãNEXT ScrnSizeãDEF SEGãRETURNããIntensityMap:ãDEF SEG = &HA000ãFOR ScrnSize = 0 TO PlaneLengthãOUT &H3C4, 2: OUT &H3C5, 8 'Plane 4: Color IntensityãPOKE ScrnSize, INT(RND(1) * 255)ãX$ = INKEY$: IF X$ = CHR$(27) THEN DEF SEG : GOTO TerminateãIF X$ = "A" OR X$ = "a" THEN EXIT FORãNEXT ScrnSizeãDEF SEGãRETURNããInvertPlane:ãDEF SEG = &HA000ãFOR ScrnSize = 0 TO PlaneLengthãSELECT CASE InvertRandã CASE IS = 1: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 1: 'Plane 1: Blueã CASE IS = 2: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 2: 'Plane 2: Greenã CASE IS = 3: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 4: 'Plane 3: Redã CASE IS = 4: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 8: 'Plane 4: Color IntensityãEND SELECTãGetByte = PEEK(ScrnSize)ãPOKE ScrnSize, NOT GetByte AND 255ãX$ = INKEY$: IF X$ = CHR$(27) THEN DEF SEG : GOTO TerminateãIF X$ = "A" OR X$ = "a" THEN EXIT FORãNEXT ScrnSizeãDEF SEGãRETURNããNullPlane:ãDEF SEG = &HA000ãFOR ScrnSize = 0 TO PlaneLengthãSELECT CASE NullRandã CASE IS = 1: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 1: 'Plane 1: Blueã CASE IS = 2: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 2: 'Plane 2: Greenã CASE IS = 3: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 4: 'Plane 3: Redã CASE IS = 4: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 8: 'Plane 4: Color IntensityãEND SELECTãPOKE ScrnSize, 0ãX$ = INKEY$: IF X$ = CHR$(27) THEN DEF SEG : GOTO TerminateãIF X$ = "A" OR X$ = "a" THEN EXIT FORãNEXT ScrnSizeãDEF SEGãRETURNããFillPlane:ãDEF SEG = &HA000ãFOR ScrnSize = 0 TO PlaneLengthãSELECT CASE PlaneOnã CASE IS = 1: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 1: 'Plane 1: Blueã CASE IS = 2: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 2: 'Plane 2: Greenã CASE IS = 3: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 4: 'Plane 3: Redã CASE IS = 4: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 8: 'Plane 4: Color IntensityãEND SELECTãPOKE ScrnSize, 255ãX$ = INKEY$: IF X$ = CHR$(27) THEN DEF SEG : GOTO TerminateãIF X$ = "A" OR X$ = "a" THEN EXIT FORãNEXT ScrnSizeãDEF SEGãRETURNããXorPlane:ãDEF SEG = &HA000ãFOR ScrnSize = 0 TO PlaneLengthãSELECT CASE XorRandã CASE IS = 1: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 1: 'Plane 1: Blueã CASE IS = 2: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 2: 'Plane 2: Greenã CASE IS = 3: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 4: 'Plane 3: Redã CASE IS = 4: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 8: 'Plane 4: Color IntensityãEND SELECTãGetByte = PEEK(ScrnSize) XOR 255ãPOKE ScrnSize, GetByteãX$ = INKEY$: IF X$ = CHR$(27) THEN DEF SEG : GOTO TerminateãIF X$ = "A" OR X$ = "a" THEN EXIT FORãNEXT ScrnSizeãDEF SEGãRETURNããSUB ModeSet (ModeNum) STATICãRegisters.AX = ModeNumãCALL InterruptX(&H10, Registers, Registers)ãEND SUBããFUNCTION Monitor% (VSSegment) STATICãDEF SEG = 0 'first see if it's color or monoãVSSegment = &HB800 'assume colorããIF PEEK(&H463) = &HB4 THENãã VSSegment = &HB000 'assign the monochrome segmentã Status = INP(&H3BA) 'get the current video statusã FOR X = 1 TO 30000 'test for a Hercules 30000 timesã IF INP(&H3BA) <> Status THENã Monitor% = 2 'the port changed, it's a Hercã EXIT FUNCTION 'all doneã END IFã NEXTã Monitor% = 1 'it's a plain monochromeããELSE 'it's some sort of color monitorãã Registers.AX = &H1A00 'first test for VGAã CALL InterruptX(&H10, Registers, Registers)ã IF (Registers.AX AND &HFF) = &H1A THENã Monitor% = 5 'it's a VGAã EXIT FUNCTION 'all doneã END IFãã Registers.AX = &H1200 'now test for EGAã Registers.BX = &H10ã CALL InterruptX(&H10, Registers, Registers)ã IF (Registers.BX AND &HFF) = &H10 THENã Monitor% = 3 'if BL is still &H10 it's a CGAã ELSEã Monitor% = 4 'otherwise it's an EGAã END IFãEND IFãDEF SEGãEND FUNCTIONããSUB STDOUT (MESSAGETEXT$) STATICãRegisters.AX = &H4000ãRegisters.BX = &H1ãRegisters.CX = LEN(MESSAGETEXT$)ãRegisters.DS = VARSEG(MESSAGETEXT$)ãRegisters.DX = SADD(MESSAGETEXT$)ãCALL InterruptX(&H21, Registers, Registers)ãEND SUBããSUB VgaPsycho (PlaneLen&) STATICãDOãDEF SEG = &HA000ãFOR ScrnSize& = 0 TO PlaneLen&ãOUT &H3C4, 2: OUT &H3C5, 15ãOUT &H3C4, 2: OUT &H3C5, 1 'Plane 1: BlueãPOKE ScrnSize&, INT(RND(1) * 255)ãOUT &H3C4, 2: OUT &H3C5, 2 'Plane 2: GreenãPOKE ScrnSize&, INT(RND(1) * 255)ãOUT &H3C4, 2: OUT &H3C5, 4 'Plane 3: RedãPOKE ScrnSize&, INT(RND(1) * 255)ãOUT &H3C4, 2: OUT &H3C5, 8 'Plane 4: Color IntensityãPOKE ScrnSize&, INT(RND(1) * 255)ãX$ = INKEY$: IF X$ = CHR$(27) THEN DEF SEG : EXIT SUBãIF X$ = "A" OR X$ = "a" THEN EXIT FORãNEXT ScrnSize&ãDEF SEGããDOãTimes = INT(RND(1) * 31)ãLOOP UNTIL Times <> 0ãFOR Z = 0 TO TimesãDOãXC = INT(RND(1) * 8)ãLOOP UNTIL XC <> 0ããSELECT CASE XCã CASE 1: GOSUB VGABluePlaneã CASE 2: GOSUB VGAGreenPlaneã CASE 3: GOSUB VGARedPlaneã CASE 4: GOSUB VGAIntensityMapã CASE 5: DO: InvertRand = INT(RND(1) * 4): LOOP UNTIL InvertRand <> 0: GOSUB VGAInvertPlaneã CASE 6: DO: NullRand = INT(RND(1) * 4): LOOP UNTIL NullRand <> 0: GOSUB VGANullPlaneã CASE 7: DO: PlaneOn = INT(RND(1) * 4): LOOP UNTIL PlaneOn <> 0: GOSUB VGAFillPlaneã CASE 8: DO: XorRand = INT(RND(1) * 4): LOOP UNTIL XorRand <> 0: GOSUB VGAXorPlaneãEND SELECTãNEXT ZãLOOPããVGABluePlane:ãDEF SEG = &HA000ãFOR ScrnSize& = 0 TO PlaneLen&ãOUT &H3C4, 2: OUT &H3C5, 1 'Plane 1: BlueãPOKE ScrnSize&, INT(RND(1) * 255)ãX$ = INKEY$: IF X$ = CHR$(27) THEN DEF SEG : EXIT SUBãIF X$ = "A" OR X$ = "a" THEN EXIT FORãNEXT ScrnSize&ãDEF SEGãRETURNããVGAGreenPlane:ãDEF SEG = &HA000ãFOR ScrnSize& = 0 TO PlaneLen&ãOUT &H3C4, 2: OUT &H3C5, 2 'Plane 2: GreenãPOKE ScrnSize&, INT(RND(1) * 255)ãX$ = INKEY$: IF X$ = CHR$(27) THEN DEF SEG : EXIT SUBãIF X$ = "A" OR X$ = "a" THEN EXIT FORãNEXT ScrnSize&ãDEF SEGãRETURNããVGARedPlane:ãDEF SEG = &HA000ãFOR ScrnSize& = 0 TO PlaneLen&ãOUT &H3C4, 2: OUT &H3C5, 4 'Plane 3: RedãPOKE ScrnSize&, INT(RND(1) * 255)ãX$ = INKEY$: IF X$ = CHR$(27) THEN DEF SEG : EXIT SUBãIF X$ = "A" OR X$ = "a" THEN EXIT FORãNEXT ScrnSize&ãDEF SEGãRETURNããVGAIntensityMap:ãDEF SEG = &HA000ãFOR ScrnSize& = 0 TO PlaneLen&ãOUT &H3C4, 2: OUT &H3C5, 8 'Plane 4: Color IntensityãPOKE ScrnSize&, INT(RND(1) * 255)ãX$ = INKEY$: IF X$ = CHR$(27) THEN DEF SEG : EXIT SUBãIF X$ = "A" OR X$ = "a" THEN EXIT FORãNEXT ScrnSize&ãDEF SEGãRETURNããVGAInvertPlane:ãDEF SEG = &HA000ãFOR ScrnSize& = 0 TO PlaneLen&ãSELECT CASE InvertRandã CASE IS = 1: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 1: 'Plane 1: Blueã CASE IS = 2: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 2: 'Plane 2: Greenã CASE IS = 3: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 4: 'Plane 3: Redã CASE IS = 4: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 8: 'Plane 4: Color IntensityãEND SELECTãGetByte = PEEK(ScrnSize&)ãPOKE ScrnSize&, NOT GetByte AND 255ãX$ = INKEY$: IF X$ = CHR$(27) THEN DEF SEG : EXIT SUBãIF X$ = "A" OR X$ = "a" THEN EXIT FORãNEXT ScrnSize&ãDEF SEGãRETURNããVGANullPlane:ãDEF SEG = &HA000ãFOR ScrnSize& = 0 TO PlaneLen&ãSELECT CASE NullRandã CASE IS = 1: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 1: 'Plane 1: Blueã CASE IS = 2: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 2: 'Plane 2: Greenã CASE IS = 3: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 4: 'Plane 3: Redã CASE IS = 4: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 8: 'Plane 4: Color IntensityãEND SELECTãPOKE ScrnSize&, 0ãX$ = INKEY$: IF X$ = CHR$(27) THEN DEF SEG : EXIT SUBãIF X$ = "A" OR X$ = "a" THEN EXIT FORãNEXT ScrnSize&ãDEF SEGãRETURNããVGAFillPlane:ãDEF SEG = &HA000ãFOR ScrnSize& = 0 TO PlaneLen&ãSELECT CASE PlaneOnã CASE IS = 1: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 1: 'Plane 1: Blueã CASE IS = 2: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 2: 'Plane 2: Greenã CASE IS = 3: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 4: 'Plane 3: Redã CASE IS = 4: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 8: 'Plane 4: Color IntensityãEND SELECTãPOKE ScrnSize&, 255ãX$ = INKEY$: IF X$ = CHR$(27) THEN DEF SEG : EXIT SUBãIF X$ = "A" OR X$ = "a" THEN EXIT FORãNEXT ScrnSize&ãDEF SEGãRETURNããVGAXorPlane:ãDEF SEG = &HA000ãFOR ScrnSize& = 0 TO PlaneLen&ãSELECT CASE XorRandã CASE IS = 1: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 1: 'Plane 1: Blueã CASE IS = 2: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 2: 'Plane 2: Greenã CASE IS = 3: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 4: 'Plane 3: Redã CASE IS = 4: OUT &H3C4, 2: OUT &H3C5, 15: OUT &H3C4, 2: OUT &H3C5, 8: 'Plane 4: Color IntensityãEND SELECTãGetByte = PEEK(ScrnSize&) XOR 255ãPOKE ScrnSize&, GetByteãX$ = INKEY$: IF X$ = CHR$(27) THEN DEF SEG : EXIT SUBãIF X$ = "A" OR X$ = "a" THEN EXIT FORãNEXT ScrnSize&ãDEF SEGãRETURNãEND SUBããDieter Folger SIZEABLE ICON VIEWER folger@bamberg.baynet.de 09-24-98 (09:31) QB, QBasic, PDS 71 2083 QICON.BAS '-------------------------------------ã' QICON.BAS for QBASIC (Public Domain)ã' Shows an *.ICO fileã' VGA card and color monitor requiredã' Icon can be enlarged with <+>ã' or made smaller again with <->ã' Written by Dieter Folgerã'-------------------------------------ãDECLARE FUNCTION Bin$ (B%)ãDEFINT A-ZãDIM Pixel(1024), Byte AS STRING * 1ãINPUT "Icon to show: ", File$ãFile$ = UCASE$(File$)ãIF INSTR(File$, ".") = 0 THEN File$ = File$ + ".ICO"ãIF File$ = ".ICO" THEN ENDãOPEN File$ FOR BINARY AS #1ãIF LOF(1) = 0 THEN CLOSE : KILL File$: PRINT File$; " not found": ENDã' Get AND mask and analyzeãFOR i = 1 TO 1024 STEP 8ã GET #1, 639 + Help, Byteã FOR j = 1 TO 8ã IF MID$(Bin$(ASC(Byte)), j, 1) = "1" THEN Pixel(i + j - 1) = 7ã '(color for background is gray = 7)ã NEXTã Help = Help + 1ãNEXTãHelp = 0ã' Get XOR mask and analyzeãFOR i = 1 TO 1024 STEP 2ã GET #1, 127 + Help, Byteã IF Pixel(i) = 0 THEN Pixel(i) = (ASC(Byte) AND 240) / 16ã IF Pixel(i + 1) = 0 THEN Pixel(i + 1) = ASC(Byte) AND 15ã Help = Help + 1ãNEXTãCLOSEãSCREEN 12ã' set icon paletteãFOR i = 1 TO 14ã READ r, g, Bã PALETTE i, r * 65536 + 256 * g + BãNEXTãSize = 1ãDOã CLSã LOCATE 30, 1ã PRINT File$, "Change size=+/- End=Esc"ã Help = 1ã ' show icon nowã FOR y = 32 TO 1 STEP -1ã FOR x = 1 TO 32ã LINE (x * Size - Size + 1, y * Size - Size + 1)-(x * Size, y * Size), Pixel(Help), BFã Help = Help + 1ã NEXTã NEXTã DO: K$ = INKEY$: LOOP WHILE K$ = ""ã ' make larger or smaller:ã IF K$ = "+" AND Size < 14 THEN Size = Size + 1ã IF K$ = "-" AND Size > 1 THEN Size = Size - 1ãLOOP UNTIL K$ = CHR$(27)ã' Palette data as stored in every *.ICO fileãDATA 0,0,32,0,32,0,0,32,32,32,0,0,32,0,32,32,32,0,48,48,48ãDATA 32,32,32,0,0,63,0,63,0,0,63,63,63,0,0,63,0,63,63,63,0ã ãFUNCTION Bin$ (Byte)ã'Bin$ for QBASICãDOã B$ = LTRIM$(STR$(Byte MOD 2)) + B$ã Byte = Byte \ 2ãLOOP UNTIL Byte = 0ãBin$ = RIGHT$("00000000" + B$, 8)ãEND FUNCTIONãShawn VOXEL LANDSCAPE TopFiero@aol.com 09-23-98 (22:33) QB, QBasic, PDS 80 3576 VOXEL.BAS ' Voxel terrain generator for QuickBasic/Qbasic.ã' This program features more detailed terrain than 3dland.bas.ã' This sample was also taken from a graphics engine I use in one of myã' games. The terrain color can be changed further by changing the T variableã' to the value 1 or 2. When the program displays the word DONE, pressã' a key to return to the menu. Use this program freely, but please sendã' me any revisions or variations. I like to see how others can use thisã' idea. I apologize for the routine containing line numbers, but this isã' the easiest way I can convert it to run well in Qbasic. I recommendã' you have a Pentium 133 or faster to run the routine up to speed. Or tryã' compiling it. Send questions or comments to TopFiero@aol.comãã1 SCREEN 13: CLS : CLEARã5 GOTO 1000ã10 SCREEN 13: CLSã11 PL = 0ã12 FOR I = 100 TO 160: PLL = CINT(PL * .67): IF PLL > 60 THEN PLL = 60ã13 IF T = 1 THEN PALETTE I, 65536 * PLã14 IF T = 2 THEN PALETTE I, 65536 + 256 * PLã15 IF T = 3 THEN PALETTE I, 65536 + 256 * PLL + PLã17 IF T = 4 THEN PALETTE I, 65536 * PL + 256 * PL + PLã20 PL = PL + 1: NEXT Iã21 PL = 0ã22 FOR I = 170 TO 230: PLL = PL * 2: IF PLL > 60 THEN PLL = 60ã23 PALETTE I, 65536 * PLL + 256 * PL + PL: PL = PL + 1: NEXT Iã30 Z = 10 + 300 * RND: ZZ = 100 - 95 * RND: MV = 20 * RNDã35 EEE = 100 * RND: IF EEE < 30 THEN GOTO 40 ELSE GOTO 50ã40 FOR I = 0 TO 60: LINE (0, 99 - I)-(319, 99 - I), 230 - I: NEXT Iã42 LINE (0, 100)-(319, 199), 230, BFã45 GOTO 80ã50 FOR I = 0 TO 60: CIRCLE (Z, ZZ), 80 - I, 170 + Iã52 PAINT (Z, ZZ), 170 + I, 170 + Iã55 NEXT Iã80 FOR I = 0 TO 500ã81 X = 319 * RND: XX = 190 * RND: XCLR = POINT(X, XX)ã82 IF XCLR > 220 THEN GOTO 81ã83 IF XCLR > 180 THEN VCLR = (31 - ((220 - XCLR) / 4) * RND) ELSE VCLR = 17 + 13 * RNDã85 PSET (X, XX), VCLR: NEXT Iãã100 DIM Z(320), X(320), CLR(320)ã110 Z(0) = 0: X(0) = 100: SZ = 1: CLR(0) = 130ã120 FOR I = 1 TO 320: Z(I) = Z(I - 1) + SZã125 X(I) = X(I - 1) - SZ + (SZ * 2) * RNDã127 CLR(I) = CLR(I - 1) - 5 + (10 * RND): IF CLR(I) < 100 THEN CLR(I) = 100ã128 IF CLR(I) > 160 THEN CLR(I) = 160ã130 LINE (Z(I), X(I))-(Z(I) + SZ, X(I) + SZ), CLR(I), BF: NEXT Iã180 CHK = 0ã190 SZ = SZ * 1.012ã195 Z(0) = 0 - (SZ - 1) * 160: X(0) = X(0) + SZ * RNDã200 FOR I = 1 TO 320: Z(I) = Z(I - 1) + SZã205 X(I) = X(I) - SZ / 4 + SZ * RND: IF X(I) < X(I - 1) - SZ THEN X(I) = X(I - 1) - SZã207 IF X(I) > X(I - 1) + SZ THEN X(I) = X(I - 1) + SZã209 IF Z(I) < -1 OR Z(I) > 320 THEN GOTO 220ã210 CLR(I) = CLR(I) - 4 + (8 * RND)ã211 IF CLR(I) < CLR(I - 1) - 3 THEN CLR(I) = CLR(I - 1) - 3ã212 IF CLR(I) > CLR(I - 1) + 3 THEN CLR(I) = CLR(I - 1) + 3ã217 IF CLR(I) < 100 THEN CLR(I) = 100ã218 IF CLR(I) > 160 THEN CLR(I) = 160ã219 LINE (Z(I), X(I))-(Z(I) + SZ + 1, X(I) + SZ + 1), CLR(I), BFã220 IF X(I) > 199 THEN CHK = CHK + 1: IF CHK > 319 THEN GOTO 300ã225 NEXT Iã230 KY$ = INKEY$: IF KY$ = "" THEN GOTO 240 ELSE GOTO 300ã240 CHK = 0: GOTO 190ã300 LOCATE 1, 1: PRINT "Done...."ã310 KY$ = INKEY$: IF KY$ = "" THEN GOTO 310ã350 GOTO 1000ã1000 PL = 0ã1001 FOR I = 100 TO 160: PALETTE I, 65536 * PL: PL = PL + 1: NEXT Iã1020 LOCATE 1, 1ã1030 PRINT "Example of Voxel type terrain generation"ã1035 PRINT "written in QuickBasic version 4.5."ã1040 PRINT "": PRINT " Select color choice:"ã1050 PRINT "1 - DESERT"ã1055 PRINT "2 - ICE"ã1070 PRINT "3 - EXIT"ã1080 R = 100 * RND: KY$ = INKEY$: IF KY$ = "1" THEN T = 3: GOTO 1100ã1081 IF KY$ = "2" THEN T = 4: GOTO 1100ã1084 IF KY$ = "3" THEN ENDã1085 GOTO 1080ã1100 GOTO 10ãAlexander Meyer SOME LINE EFFECTS Meyer.Karl@t-online.de 09-26-98 (17:29) QB, QBasic, PDS 76 1611 LINE.BAS ' ////ã' 0(o o)0ã'-------------------------ooO (_) Ooo---------------------ã' LINE.BAS -- Written in QuickBasic 4.5ã'ã' Name: Some line effectsã' Author: Alexander Meyerã' Date: 09-26-1998ã' Description: Some line effects in SCREEN 13ã'ã'For questions or comments mail to: Meyer.Karl@t-online.deã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ã'ã' * This routine maybe runs too fast on Pentium. *ã' * You can put a delay (FOR i = .... : NEXT i) into the FOR/NEXT loops.) *ããSCREEN 13ãCLSããFOR i% = 0 TO 300ã IF INKEY$ <> "" THEN ENDã LINE (i%, i%)-(i% / 25, i% * 2), i%ãNEXT i%ãDO: LOOP WHILE INKEY$ = ""ããCLSãDOãFOR z = 200 TO 210ã FOR x = 1 TO 200ã FOR y = 1 TO 10ã IF INKEY$ <> "" THEN GOTO TheNextã LINE (x, z)-(y, x), x, , zã NEXT yã NEXT xãNEXT zãLOOPããTheNext:ãLOCATE 5, 5: PRINT "Some line effects"ãDOã'FOR i = 1 TO 2ã FOR x = 1 TO 200ã FOR y = 1 TO 50ã IF INKEY$ <> "" THEN GOTO TheNext2ã LINE (x, 10)-(y, x), yã NEXT yã NEXT xã'NEXT iãLOOPããTheNext2:ãDOã'FOR i = 1 TO 2ã FOR x = 1 TO 550 ' STEP 5ã FOR y = 1 TO 50 STEP 2ã LINE (x, 0)-(y, x), y, , xã IF INKEY$ <> "" THEN GOTO TheNext3ã ' LINE (x + 5, 0)-(y - 1, x - 1), 0ã NEXT yã NEXT xã'NEXT iãLOOPããTheNext3:ãDOã'FOR i = 1 TO 2ã FOR x = 1 TO 350 'STEP 5ã FOR y = 1 TO 50 STEP 2ã LINE (x + y, y + x)-(y, y), y, B, x / yã IF INKEY$ <> "" THEN ENDã ' LINE (x + 5, 0)-(y - 1, x - 1), 0, B, x / yã NEXT yã NEXT xã'NEXT iãLOOPãENDãAlexander Meyer LINE CHAOS Meyer.Karl@t-online.de 09-26-98 (17:29) QB, QBasic, PDS 55 1226 LCHAOS.BAS ' ////ã' 0(o o)0ã'-------------------------ooO (_) Ooo---------------------ã' LINE.BAS -- Written in QuickBasic 4.5ã'ã' Name: Line chaosã' Author: Alexander Meyerã' Date: 09-26-1998ã' Description: Many little lines....ã'ã'For questions or comments mail to: Meyer.Karl@t-online.deã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ããDEFINT A-ZãSCREEN 12ãFOR z = 5 TO 25 STEP 5ã LOCATE z, 35: PRINT "Line chaos"ãNEXT zãRANDOMIZE TIMERãa = 10ãx = 200ãy = 320ãDO WHILE INKEY$ = ""ãIF y < 1 THEN y = 1ãIF y > 640 THEN y = 640ã'IF X > 10 THEN X = aãIF x < 1 THEN x = 1ãDir = INT(RND * 4)ãCol = INT(RND * 14 + 1)ã'FOR I = 1 TO 500: NEXT I '** IF THIS ROUTINE RUNS TOO FAST, **ã '** PUT A DELAY HERE **ãSELECT CASE Dirã CASE 0ã FOR Set = x TO x + aã PSET (Set, y), Colã NEXT Setã x = x + aã CASE 1ã FOR Set = x - a TO xã PSET (Set, y), Colã NEXT Setã x = x - aã CASE 2ã FOR Set = y TO y + aã PSET (x, Set), Colã NEXT Setã y = y + aã CASE 3ã FOR Set = y - a TO yã PSET (x, Set), Colã NEXT Setã y = y - aãEND SELECTãLOOPãENDãAlexander Meyer PALETTE COLOURS WITHOUT PALETTEMeyer.Karl@t-online.de 09-26-98 (17:29) QB, QBasic, PDS 53 1343 PALETTE.BAS ' ////ã' 0(o o)0ã'-------------------------ooO (_) Ooo---------------------ã' PALETTE.BAS -- Written in QuickBasic 4.5ã'ã' Name: Palette colours without "PALETTE"ã' Author: Alexander Meyerã' Date: 09-26-1998ã' Description: Choose background colours using OUT &H3C8ã' and OUT &H3C9ã'ã'For questions or comments mail to: Meyer.Karl@t-online.deã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ããSCREEN 0ãCLSãOUT &H3C8, AttributeãOUT &H3C9, 0ãOUT &H3C9, 0ãOUT &H3C9, 0ãDOãAttribute = 0ãOUT &H3C8, AttributeãCOLOR 15ãLOCATE 1ãPRINT "Up arrow: More red"ãPRINT "Down arrow: Less red"ãPRINT "8: More green"ãPRINT "2: Less green"ãPRINT "Q: More blue"ãPRINT "A: Less blue"ãLOCATE 15: PRINT "Red:"; rãPRINT "Green:"; gãPRINT "Blue:"; bãDOã K$ = INKEY$ãLOOP WHILE K$ = ""ãSELECT CASE K$ã CASE CHR$(0) + "H": r = r + 1: IF r > 63 THEN r = 63ã CASE CHR$(0) + "P": r = r - 1: IF r < 0 THEN r = 0ã CASE "8", "(": g = g + 1: IF g > 63 THEN g = 63ã CASE "2", CHR$(34): g = g - 1: IF g < 0 THEN g = 0ã CASE "Q", "q": b = b + 1: IF b > 63 THEN b = 63ã CASE "A", "a": b = b - 1: IF b < 0 THEN b = 0ã CASE CHR$(27)ã OUT &H3C9, 0: OUT &H3C9, 0: OUT &H3C9, 0ã ENDãEND SELECTãOUT &H3C9, rãOUT &H3C9, gãOUT &H3C9, bãLOOPãENDãAlexander Meyer NICE EFFECTS WITH PSET Meyer.Karl@t-online.de 09-26-98 (17:29) QB, QBasic, PDS 49 1175 PSET.BAS ' ////ã' 0(o o)0ã'-------------------------ooO (_) Ooo---------------------ã' PSET.BAS -- Written in QuickBasic 4.5ã'ã' Name: Nice effects with PSETã' Author: Alexander Meyerã' Date: 09-26-1998ã' Description: What you can do with PSET....ã'ã'For questions or comments mail to: Meyer.Karl@t-online.deã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ããSCREEN 13: CLSãStart = 1ãEnde = 200ãDOãFOR x = Start TO Endeã FOR y = 1 TO 10ã PSET (x, x), xã ' FOR z = 1 TO 300: NEXT z ã PSET (x + a, x + y + 10), x + y' + aã PSET (x + y + 10 + a, x), x + y' + aã ' PSET (x + y + a, x + y), x' + aã PSET (x + a, x + y), x + aã PSET (x + y + a, x), x + aã IF INKEY$ <> "" THEN GOTO TheNextã NEXT yãNEXT xãa = a + 41ãLOOPããTheNext:ãDEFINT A-ZãSCREEN 12: CLSãRANDOMIZE TIMERãFOR a = 1 TO 640 STEP 10ã FOR z = 1 TO 480 STEP 10ã Col = INT(RND * 14 + 1)ã FOR b = 1 TO 10ã PSET (a + b, z), Colã PSET (a, z + b), Colã PSET (a + b, z - b), Colã PSET (a + b, z + b), Colã IF INKEY$ <> "" THEN ENDã NEXT bã NEXT zãNEXT aãENDãLeandro Pardini INCOMING STARFIELD lpardini@cefex.com 10-01-98 (21:46) QB, QBasic, PDS 70 2516 FASTSTAR.BAS'===================================================================ã' I'm working in my third game, a (some kind of) 3D shooter, andã' the first thing I completed is this starfield. It's REALLY fast,ã' because I used NO FLOATING POINT OPERATIONS, just integers. Theã' secret: instead of using a 320x200 field, I use a 3200x2000 fieldã' and then I integer-divide the number by 10 when I'm going to putã' it on screen. This will work in any screen mode, but I usedã' SCREEN 7 so I can use PCOPY. For faster results, run it directlyã' at DOS (Safe mode command prompt only, under Windows 95), becauseã' Windows slows it 10% on ALL the computers where I tested it. Ifã' you can improve this, or you have doubts or suggestions, pleaseã' email me: lpardini@cefex.com.ã'===================================================================ãã'$STATICãDEFINT A-ZããDECLARE SUB StarsUpdate ()ãã'==================== STARFIELD INITIALIZATION =====================ãCONST StarsN = 99ãDIM SHARED StarsI, StarsX(StarsN), StarsY(StarsN), StarsZ(StarsN)ãFOR StarsI = 0 TO StarsNã StarsX(StarsI) = RND * 3200ã StarsY(StarsI) = RND * 2000ãNEXT StarsIã'===================================================================ããSCREEN 7, , 1, 0ãST# = TIMERãWHILE INKEY$ = ""ã LINE (0, 0)-(319, 199), 0, BFã CALL StarsUpdateã PCOPY 1, 0ã FR = FR + 1ãWENDãFI# = TIMER - ST#ãSCREEN 0ãWIDTH 80ãCLSãPRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"ãPRINT "º B E N C H M A R K º"ãPRINT "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹"ãPRINT USING "º Seconds elapsed: ####.# º"; FI#ãPRINT USING "º Frames shown: #####, º"; FRãPRINT USING "º Average FPS: ###.## º"; FR / FI#ãPRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼"ãENDããSUB StarsUpdateãFOR StarsI = 0 TO StarsNã DiffsX = (StarsX(StarsI) - 1600)ã DiffsY = (StarsY(StarsI) - 1000)ã IF ABS(DiffsX) < 20 THEN DiffsX = 20ã IF ABS(DiffsY) < 20 THEN DiffsY = 20ã StarsX(StarsI) = StarsX(StarsI) + (DiffsX \ 20)ã StarsY(StarsI) = StarsY(StarsI) + (DiffsY \ 20)ã SELECT CASE ABS(DiffsX) + ABS(DiffsY)ã CASE IS < 600: StarsC = 8ã CASE IS < 1200: StarsC = 7ã CASE ELSE: StarsC = 15ã END SELECTã IF StarsX(StarsI) < 0 OR StarsX(StarsI) > 3200 OR StarsY(StarsI) < 0 OR StarsY(StarsI) > 2000 THENã StarsX(StarsI) = 1600 + (RND * 800) - 400ã StarsY(StarsI) = 1000 + (RND * 800) - 400ã ELSEã PSET (StarsX(StarsI) \ 10, StarsY(StarsI) \ 10), StarsCã END IFãNEXT StarsIãEND SUBãLeandro Pardini MULTISPACED FONTS V2.1 lpardini@cefex.com 10-01-98 (21:46) QB, QBasic, PDS 477 31491 MSFONT21.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"MSFONT21.ZIP",4^6:Z&=23368:?STRING$(50,177);ãU"%up()%9%'%I-%%LIIJx>-VK>).%%Q-%%%1%%%%fw%nfqs(w&Sk.tsGDHcAw^6Zrhg-\-foEC7Q,K,E/ãU"ZQZGXTf_MZ'g>?)owhL>WxX(KnbFbF^QZG:ZZCIAWbw61mEA:f>[BU;DK\6dhV09?MqSseSd(XxO:.6S8^9ãU"ScKheNr$Hk.OTK6J7,QH::eP7H;h/(=v[bpDj0iQ%>Il$[FnhF5.n:a\i$P?ji?ãU"q.BKZ9MxBs,w4sVpP9DL5JwXW0obqC?*pm&)>PnXXFk::EXy,ln];8qVfz7[POnãU"JmB5'VXrGWsaHX3+Li%K]3O+tuBQMN:4h)a&x_Ht(7S8EdOcV1BgMkLD+]tlo(EãU"w.q4oNodDlM0t1gy-Nd2CGh8G1cTr66;4m;\[S;IMlj)Nb<[0]:T5eL8kM-i]/tkr^aw2W;ZIY&+0vCjLX_Z0InI/ãU"d2loI]We#pd>:Cc>O9Wsp:uXo4b9o*gOqeZu79xfnHqGJ[7D((s(Z$G6ddTiHNeãU"s4TttO/\GrI%4(7Gmjwf8j,8Ci*GRfD\e62Sfm?Z\>*AVx#W<9g+ayDEJMAu.]EG?o,B>eN,dU:;Ukfamefd_&REPãU"FWUpl&2f(kB39C3jPS:#^Q4M08z[Or?_LQ7-$mc%$djWW.meVNvCSL\vQ/'Z/njãU"8Kg$Qa\ALak%tIRY_QG3X_YawPK.S[a[I-e,lVy3L18BT3mUs2?w(/zc?,9OrbRãU"')dh(^?kO?^(MfQs:0(uw-)-\DJ>>Ip<$GND95gZ.u%p()9%%'%-%%?=(FJBsZ+ãU"jo)%(%C/%%%.%%%%fwn%fqSkIts\%<6]U[75CwmUGtnYB0^=P&#*2QEYD?>[>=+ãU"%IE+KxW+^)4KCP,=&hwjC1e^_lauZG^(cQ/dC%Z9&2;$>m(nz$Egf=?U&>m3^MkãU".8iKw)l:Fj-++G6mEJ?n)gzO(eB61D:6,heleR[+vIBNA9G.A<9Jc:'&W?/26gU'MAaCwLXAI>^3uãU"Z'AO[?zf6)_bXA/.A03P>#)]hFAO_2KurbcehO0SAkãU"Kt'_]pL:F'E*iJaE+Cy],-jnk(IfiM)R]Cs+:?(m;n7L,YFRGLv[?6Ya#*[Mm-,ãU"]AuuGhJ\#UP>^%[akpZ(kX:&S.yIQ[CPBvA?9A(P;VoGdt58EmkcZbY-OZqtmd\ãU">1jx#dRGVcAW9;Mt)Eg#9J*=-S^S&0T#.hSI%BaW.Yai1/d^w.b3#HMT-HKNL=:ãU"+YpMp\O<:^R89FAnVuU)^Pg\DKjJi8#k\=>%jfco)>:(tFMSVF?0Z(:6?XNGBHxãU")H3rA^U^__X?t%YPD$Pz3Gi:3k#FX.X,*pZtJTgSWtr_I$K$8^n+h57t5MxPHtrãU"P7Mly)yY\PXb81O?O=[Jc>;NtjbHq0AX/kHSV5^j)lrX=SkFus#Th&C_)PZQg16ãU"i8CBc,^Z+T^Z$O8-yp0UlY1b+f2ZlAG0PD^QVO==>XAkhAm6MB&_:waxVoIX,anãU"JroxUSjdE>)Y?MRgJ'6)JkO/NU&gj;F4mbPGN%?<,[]yM^.hf5UvT:?]9MZHit;K<ãU";[)[q1-*)7n8WnO/hwP;4Kq:6?iYv_\umU+x[bKSH,,*us2p7th4=6rTtN2t:eUãU"vAQ,,MrtSXr%t0C7PxD?6Z^'d4Uf6%pfZ5r=AWxQ7vpJCDSBJãU"so4ALjy8.B_f2dZrUm_r1CkgU+5)BV8:EYH*#lIyZqm:JE;F-BEgB+LkO82AY4qãU"Sx#,#$X\t2jfY?\?dbZgv3NFWPOrf[DZt5=Q>kJqz%8ba[qY$3:oh1F#ibEeS*9ãU"L=hk/;A[C/y6b\Jx(pzPgW#&^nDabMRHR=82mv(%up()%9%'%I-%>L%IJJ;:_=;:q$:2\ZKNMilZMIKF==%.=FoadrFvpD,J1NrB,ceFKiãU"kc+>j$e-:h18pn9$20/RjUx)(yD$Qq<>_2JRO<5,7kJU8;JHP&IOb6ãU"B#=0h(s$>YBUKrCEt4AMF)3%JG]8h6cvSJBGgDJJ^ãU"X5]DY&*6333I]52NDgFMN-LCqCB9(p9-NBQTrfUQU3tK2$3U2T>8b<>XhGPlM5cãU"dSPuHA&YU]?hddH6AiDQL]8]e1NYjDãU":L4rC('T$hr/9Y^UTidgKkcW]\P>A'tmHQ6iz]$9(oF6v\>G$]RaYm?bt>XvCNqeNS',FfIWc+Ci7$Z$R*luU1=aJ^f=w.D9YãU"kUpf+2eeb<\?0W#GfFBje$.]\:#s[XW2o=tL0KrLdz_TmTmlhdFv;J$(n7sL*SY$Jj4Zmo_J3tg.ãU"MU,8oHBN:u+;%Y4a\Xb2CyERA(2O9E4]pãU"gbl4^2fc=LhM$;fKldPop>n1lO$q#1Y^nG6]ou.(9iIr0HV.ojGbGQC$HF\49$GãU"&sM[C5hsTmQ5^e]z_DP\FBF5%TIsanE9oC]d=X8lYlfYa(o-Ar_XK2S[M_1g2&/ãU"bGj=;5lxhk8XvnlMpZjP:f>uq#b#^u^g&MOCjnH\0aXGbymX\YwE^I+Fl(b9qdDãU"8W\?,=hd\SJHH5,ld,#HJ'v0up%()9%%'%-%*ig(JK;b+Z'Y)%%&30%%%0%%%%hãU"tzw%njwS[ktsFe%bB\I[5,_PO)oCmGT2E*iiXXN$Q=1.tO&>8dQv8gyyCbAaJpdãU"7SzslEU3YxaysL)+mZwJC0^L>1&_abSxXJ]7)ae,+;9'tPi?^qAfaJ)>q4-yWJ<ãU"Kvc0Dc&Dec=yQK&M+b;n_*FyaO**be/zULT/CXtV%BI#SwuL+#7hBKvR5g.vciDãU"1Eyeb)SFW>-nbSt8BKC3D_U[#Fra\V]qu'hP+%iL,Shp;r4x^S)h%(m4^6]lhJ.L=sN,Fr(0,FT4UGWqbESpIVsZaHPU_)s?30Vo]p78-^WG<-^ãU",y?ZRe)Eu?'%MFMIIT'Sf,T8O20m0Wwn;usYce;4-jCPgbPm5+.Kwg4MDEFhEn5ãU"+1oAd6+0qDgvnmeU4]2+>kiWFuU[]XXegnwV>xl#*)2akGkJ2+ous_=?:+Zbjs3ãU"+)?#LUy]?q^V(8vW_W[eO7l>xcrotqT,)l'Ugol2$:lS<^*T#D_&n^RM/ãU"55%k0AxA>ll>7W\BnbStOt5]kmi\dIN1n%wbkxYSX3k?y=G/K1R8^G\;4$SwEQ#bC(#*^'2:y\+bK#sy'ZiãU"aXwM6.^pãU"c+o6#-+7_w6O$Nio->M.cvDT_6Y2kIL1ht$m9jwUT<[zXQuw&,BcX+F=_+dD%wWdH0Eub=33Jr^G6IhfPoZãU"eh,%$Lv5E7GTx*e+K\=VM_p$5LN.$3DRG+#(vk=Kei1ãU"t4icdA_n]Yh;jF2r55kcjMEWTsTZAtK^RId6Vj]Pc]VFX1/HV;ZnG4K;^y8v5FBãU"ol-U[;agKjO,8d>nkq'biob_U,Hp/&N0&X:'pqKJsnU1N&MGJsA#oju:wa4Y'BkãU"W7Y%Rwronsto0MmhPhff:.:mJym'68I.wQkaqiM5,rPz?CsS4siYD;P$kTcAãU"Z)(tCS6]f^1kB:DeGft]s1_fãU"16jcH>JIjRifw64P.ksS3mj[H\,Wc/m'xZioi\dk3v1N^VLgdZP\lBJ;c?Z&$=8[6:;2RZ%Ai6SB1w=t3K\mad+n?_F2EãU"Z2V\6-PNLTNa=.djG^$H,f1X[E./X0ahãU"_Xe+/mKU:rd(8Q3_jAP8h1K>QEGjAJ^x30>4-W^P>>Hn&\K:nsJ#B2f1y)-c:+t=[p5PãU".m[(RBM)IPynCW]:R,d]%JQ#fkZT3GF4c]xy(3BjMnUQn'b&;K,W;GOK.8#4SH70uB5m/qA,JFãU"?;5l$[L[xEr&rA+\b:1CdPP/TT+:]AVaãU"-mGJorc$WlO0-k87Fn#c8o\gGZ^$9>.([?L1$wNdMhYSBVv?fJc[5rd_V2G8G]rQ>v_Maa?n4nãU"cALV.,Iwxo,<&L=Qnb7CuFM4[segãU"9zc706VR:0npy_'JczN9wx?G;H'+tqtE.lMr-$Gb8e_*O2lG=O:jn1mNHHu2Avu&V7Q?Eo,+K.,DU]AR)NNE+ãU"8_%X:GDc20^+^UH&t6_V;X?()HomQLnVXqi/JE-NRJZaG]db+Yno^guUCm>A-^;ãU"\O7Zg>K,4?Xu)iA%GG33vBDH&FUp:CT.V)9C9Ko_3LCW0'rEk\D1FESãU"O*F.0C94og_h3kk./1M\q-bD;_9Kt7ee/ipãU"M0ti4t'^Cm5GHCtLM:N_QT/xzkyrY.lh;Y%nLA(;NV&2[^U-r\d4=L=$s^TObJGãU"$RIFde&qFH$062+#6dwWgC]1lKRQb&kyA+gcPM+ym;8hsdT<;zZG#UpH:\RR$w^r*k273WJGV]xP\b=+^5eoxtx'O*_YZXl$MB\bgPf5&ofwGJc>2/$AEo,(Pgb+Dl*W:H,PRAãU"[(+SqX7LrOqkE9XeRkZ-,1J-FkVE[#lF85Vq=yx,GS:p7u#5B=pPSQvSbCl2Nwl6;4^qzjSK_8BIqR<ãU"[o<#XInJ8uV[ut*]W\,L+2CG+h?t.R9Y6jv7[2pa7SpP7o'fQm3Bq/>qW?DkUj;ãU"om,9;C)<^?a^A^$X?e>hDB>/F%skq>E,0'w^ESJ0X.AKBJ,1\Lg6x0>L-GJ-M1xãU"[V^p.DGfjiA##w2$W4JeD>Kb8TA\5JenXAk+4FhB'Kc8ubN1h&)a7maFswNh:#MãU"tcujneCA&XQ/G\*a2qX&Ut<;&GG^R0:>hDY'?N3isMlsqMgssT,SjkWzl=nOeWuãU"U$pxs$FfLE:Y>mIX^$[BBd8^q_N?Mu=K+*p;>Tkl?uI<82UBwO5=UxDaB8$%iu[kNIOW8-rf,t?0DEL-AEthD5y.^cvA7&0HI=X-BR(_npãU"Da$O]+$%j;jiN58'AzAvhKJ2du+ylAkYDYH29toJTAYbn+idh,I:8+($:C*g+j/d$_z#QYrxIãU"JZb*h=Qab*IN(j>j9P&,wEbPGbb%7ogWk2Dgl#s?HGg?b>en)MUpFvfPWP_L*U_ãU"vQBpiKFul?&Lx]2$h8OC$:7l'*1-Z;dhhfrJLJQ^rz:paG_OG*oC$sZ)TAqIQ5kãU"qz-VIBJfLt_+dvE(9_.TZ_gD_MLPãU"*y;hKxY+w..:mD]7(OwHC5Jb-V0Ac-H0Js'UY\2TZIW>WkwnHwVVAKGVLD]yU?JãU"w1a4E#K-E3mKW?0K,5q#OX>x>#=6?R^UmXYK\-9SkP][ck5[#kfYKYG$lQqHXTXãU"AUC5-M';ãU")-=iNhTHnmvnDQsJ^wkY[X^(ggIwhtK3K\ES3=jqXjIfj_MJ3]HXZ^nPcK#QPL1ãU"?#nz5/hfSkC:,hb:]*rM/]6GXr39xcM/r(ImCVLhhE;(q\HkxFlKJ^t;[wlF^\oãU"90GfB*si/6xA,Lk:r\HJge$qev2IE=cu=^;uWse'404fJ8us/Eo4uVU4(S&5.RbãU"=8B1CWDMv%=T9rK(\=q803lHo]n5$*6etI%*R$CX/hhF%HTKaTQNbHiKC2;/7g8ãU"c].J#=MmJBl5C2',Ji]3e5*xc+>#az1C_-lQgmRtVA';f?cr.$fR\PzZ1hci$g.ãU"XzVjgt0TBGCpMer/^BQN#:<_;5]sR?bFS/iMG8dNb5cW4Lv=.KtwmIu].CIl?5%ãU"onvZjb%YQHpn4i/Eqag-&69:y3>mãU"imV1I>h];ylAW9/F#6oM$Dth):weDuTfq)7kJTF*FhG'lU5_iSPo0g:]8*\iM;pãU"rIL5[rU>?eo\z0Q%4OQ<9&G<8rDi9?Ihi85mWVLsB$Zui5ãU"*jGK08&7KQ*xxi5%L1CM$X<'/1,nN_\9XsRdbW%f_8xEg^&55hT'n20XOj>?U0u1&wW7fX+n[PO2>:g3l+jiVYSJrXg[9F^=_5N%n]K2wv,1HbwnDXpeMãU"zlh2?a5+Lt.E5#P[f5ma/[blR_^3m$6^Zp2lCT2FO'XNnRR0m=2V[7Lpmr9a[U(ãU"i>m\Jkuo5NNsRc6OAH\C0N5_#]WrTG4W5_e+S?:%<$Qo?7p:m3;Pg_D6Xjq,$nhdd1Q>:HBc[tUi<ãU"eStZ7kxEc4HL]>ctIbUG2lgnNbxM8*o,I]L]PNu;S*-]C]Vy_A70mPjg8;KfbW<^N=[KAh^/LKDX/UI1$:B7hq2G;Dn;M$D:]34R0Y?fãU")J]lDQWgu*n6JNC\/vNZ>nN%%up(%)9%'#%-%/&TBJs?%9*A1#-Ua701E/9dY/ãU")1QII?N*9P&&'l83j7(2&h#(QP.tDT4WBt.v+j?pzW_,^;3*wg3F.5n:\P+kU*jãU"p[8>^H&Fxa$cI=7Vl/+H.YYr^6rD=+L+FpaF[MWH%ll#j*Z7RjGrS][,tMWmB-_tIZ3ãU"&no9Rv>:T)O>qV7rd3FPY'<:$b$5RPPbl;A.SfL??)Q^x6#r:)[Wg1,U=aAVK#'ãU"OI:e(&WnEDy3d,u1:H=ZmdVMfD\mFm'kw9k9tH];]oTNEAKjkrzG;>=k*So=ãU"c80Y++N-%&4]QhXnX*g>.?a6?KTr3SC*IYiyp4m*9r(.2?*fbE'3E&?Q66k&.,tãU"8pV*6uKpnpAPi)z>5FuJ(=Im^=JQ:E9jjL)R$B#uDM7eKNGVSN&a%A,FI,7Gdj;ãU"*Sd]$9T'k#'4*zpdCLNIJnQcqEGv-SX^HA^=+R_7]v^i]nYx(lRdNODCcxsK(+EãU"plHq,IdKo)863Icou..8>wmikOa?X;[,D/I_BT+%xT)9[aS0*d-IgO3IibPMNbaãU"WkH+c[JMO_hY<%=qJj;/gS8*r7+9X-=#Il]jGs/r9Y9DNQy>)tb'N;7J2Z6rãEND SUBãSUB V2ãU"&rC6]4FgIi0c7vH.sk[p_IV]ThqENY,kaDuHB0=66Xf6-DxZukL;x,hO>Vm-Y8.ãU"Xp>)K-MaU'x(AO7K+Qkj?naleH*lMc)Mo_32\,/^3Yp$[Z>*_,?BlcnO5-v]lPBãU"a0HAK6,2do6txS?&om1W3lV0inX.:$:BzcP-HKf.OFto/GBhssdxi?Ym0Y0fJ/nãU";9J+sA>mIZzKLOc'52Xf3_F:+4bC1$t0N:Q<2O84gbB[KfpS?69bw0DZ9w5&[*]i[%5uãU"O/XOfkzVJwEElr'7T:l/7&?Xw/8r<]^(yMvBG4a?)rLBZZ0OP$8AUS(.6D0iB8?ãU"Vu9qr/CQUWLEUpB.-jR(,g2sx^&60NNp]/2Ra%isfwbFFX&N>3)CU(C\^tk[fo;ãU"m%1NZMx]nLVDW%KdW/ZHR4p;Gd/mHqsr?T?e4v1+?hxm(S\=6Qh0v&V)\p#:v3HãU"TW-QpGY0>mEH*bOI6-n)Gb)MãU"4Tu*a8%0-t<]VIa'6wlm<6W-LrC)A.h-PFO?Z-Y<12cjr3tvJ(+BsIf5oB*2'w*ãU"up%()9%%'%-%*ug(Jnr6[\%5+%%&_0%%%/%%%(x(xy%jrSkRts6%**=#lU5l4t$ãU"heGFg$Ya.79.f&g//D7[mj3+0Z5?6SfSLh1m2dq*#ae/D.0)A48)BcLfNoB24EeãU"$+zK*mbpC]T+f)f'UW>o]<-c-fu19fGueeEecEeaOk7rBbM+n:^J7,RNAgJj3\9ãU"kl3TuwFr*In+TKM04)aH(f+;tCUCHc%Z#Ok;G8$Lwva*LWqPZN,o'aL&Hah5m3iFl+LA]lj/K-147SC6ãU"M'nfYSYd+nBUMnT8*k9RQ8RwNRe/MqgZãU"LG//:u0(zEf(R0OUN8gt)DiD:xmn.MW6gl)IsãU"w;HGWKar&K^o;)vw?(Zh,rdF8t6[\&dnD[s8j*2_1W.pU^hEqlU^\oI*upeFK7HãU"Dtj)OJG?=o>Fo7GQbGrALx?.>>eY$.z6CSd+7&JpqtRqkAiS/tW9V.JA;u/TStKãU"jGlUFS'NaxjQJA%ed7Mgh[8[ajtuAXD9>VNUyl1Ms,o2K(B%hx3i(5T^qc.'HusãU"2h^g^(o^E=J1G:SkUTsHUSRgCOqA,f4K,&Odj5TG0Bp0ltO%lD>v[Rg&c.q=?WRãU"&3O2t3;'t\DwOb+46qq\kq16>s(M?cdaH*9;]?fg.J+;&_iJB,T/G$*(Lo'fNLB3lDlmdjV&'40V<&tca^ezBHhAhCas:j>WPEpA_#ãU"49-eZ&PA0HsOr^EP-Vo%)M'D2-p*$;H*n;>:Y_Yp&x=,hr[V%:-XENijaqS2dLr;.q/3CKR>TW,1zpSJãU"Z=,h94,8+DJ7&K/b'HwdfJ)oL/Bc'-Lo1$/OHCJ22sQ=B'[*5BEJST\r^c>MXF/ãU"rJNRfW)Nfu35#A^o8to-Q>/#\mlXkq6_2Ahnhw[>3oMãU"jWw\B%Ak\;2HW%]c:dYWlchll?C[s/VVCswXgJkR']3B+Z4[IvgVOfklTuE8+/1ãU"2%Di9H(J>.Dhfc6<\/omJO%*flahmQL_KIa:3m/ipiEmH(lCE5qf\,F1Xr0cy1wãU"cb:Z5*1sDLY>kPr%&YQVS4OH3_paw?eA7(AIXZ,#EgxV3uGM11q&#WSpx6cTQ[fãU"YBY=*bkg^-dXB+_J,BrK=zS($fwXBYB%ATU8h*B+jJ*;'sI2BhxnK>./H(-hq28ãU"0^)WnfO,1ec:f2q-0C'Zr>5u%DoqNRH?NGr]M?vki4G1EuN';WQlfvVVu:LI)5I#,kgZB/gYb]06Egj(Y9)/:$ãU"FE?m4WjOxT__j,>DF)/oy%F8>HAqqZo7F+NXR2uajrãU"/6QRN[ZKgLaWZwT=5f#$LOW0M#lb9,X4$ãU"B,$Xn%brdh\>Wl-O+4]xnqPT4VzDhyaZR*^?'n#T>:80pYq1ZUF^Wv64MSBpFRfãU"Nu,LMKRcPBSS9JP%l\:l,,\YQ$+E5Y35af-ET2338F&J-2S95Ra0PA\wp\QajmAãU"[?lz\W3VdW('n==feR4R>8q\>MIfl'J9#BLwtET#&?'KcOpr+,IaJpVuPAcxZZY^(oQU]U<.I$lM+G/WSBsãU"/Fb*80^X8YxcrO66(KSe/6,K_c^IR8HSm?C1]W-g:lYk3:R$]5ly6>b1;TVU=[BãU"uX4,&]I'w<>P[LaKJ1-5R[YJOiT5e.aaGv%13(s;ndN&EYb.][[(2>&^?FrP&IHãU"h;9d-2+gHT)GE6kaz#]u8nBnPsHl\x%66qRBCoDr_*<]^ICi7U<*,V76phe^m]3ãU"YpV\eJmJnp,(2c3U2kG.w-+nq^xLEgN%tfLq6E$Mklu[R>IV#FnIGF8-V+EN^drãU"2>5R[a*;)6n$W)cC/=+fSs,^j?,LR4-XsZ5Egy*p:gm;[5;/*QCDHNu-^-hleYSãU"DF_nXKE2=XQP3gVtc;N?s%7>2Xb^lbwo:.=?es5't=N4\M83Q+>GehoiQ^5?+^sãU"A2f_JMAOCCY;GK(MFC=k*$xz4;F%u$D321=$3Z&n=m'P1pKfEqib\I.%TqjTu)3ãU"QwJR_f#ptT6*=RS<'(zArTt2RSYd;;IgOT\:[N#a#o&YouloBQx)2D7uz#VãU"sH(aFEQv>D;lrcoUu^ledzO.2JPO&pJU2LVa1tXsa_RI8?iHet7ãU"7oX*3,v:KxKOlf[75l:iKxiMml)q:)^f9knsIBvRNCDdgY21sS,H(IBgvFq0oV=ãU"]5*D.\nb[>-2-n0b8zLc(n_(Z41Bi*egnqgB8&9e;l\#L]=zXGvg#\9pVV/r:QJãU"(AsOTrn*C)[GH-hDr/z$m4$Na0e+JDkgGy_^Q4aa>sn%.T4FDH.n'0qnc-U+us_ãU"ZR//K_bDScZ]AncpQXSc4s98uuQpRQvI+.\fjãU"ZA#k_*Wh6Du*wAdpsãU"FBAC0=Ke&Ut&V9a-qq[jiGbBTniYf/pKd%R4&0=8SI*o:h>4X2K$Lum<#B^MP8vãU"Oq3OCq>cMoD/uS?pZM#?$mi/,qT6&Fb,hl%$E$Svz[:+G=)6/(#*)OYSRwM)Z(Z;EO0u(SIjj3+bUGTCãU"caOk(oaL1q2JT0f*&u9'm9ptf;AR6LG?]qVA7Ph0Ye:duL[OJ3OG,$ãU"J2D$LE87ticERNH.\uD&e-A,l.YU=J6;=4>c8IMfn;,>CNAZFXom8(s\wKLJ4[iãU".xrsNO>/c_0OYor_xK83AsPoxB3/?yVAl>rbJZ1ãU"zD,ECYB/xr*Z2>*hh^SB*?=2oYVSB_AsTAY_7Bbgxn_\'^S1C:,chiRhEP_\KU^ãU"lKj[t2DKc%iln?Dq$)839EssJUQ4e85[BL-n9cM9wS7S?(N#YAVD\CXoTccoWeGãU";:B;i]0W.eQ(oRH?CLMXRhr/ãU"3E+4cbykNG'KP0]5<#*-ZHHckeS=(7Fr+k=JbB6Pwmb4AFOkrrlnC_+z4bQ[L/JãU"GZ0esF?Y+7GPpy$g.vVTU5KmmDG.jv2ZrTL\GLW^Ml=7JXYD1k0Iy,VD?&YdF0dãU"O&-G]o^.FH'2lW1?1SBo0*/4)\y4BLU)PdC/[gE%71;^).iJExG:lc12e..aGdcãU"Rj)t.iG\e_RfIgJMy5n^)Pa$&G6HMrwbWk5*wR2$#gFRJ5;k2)edCLik6z6r.tpãU"QYH:4d.^A%QZd+Ng0q:K6o8Yo2c^DMDfqJC2-H+GjVuEUr+Lj5Cm6tQ>3>lX*+(ãU"9[8Gj,;?RfQpIcH:h=SZdiB6cv+rmH\14eKx3G*4+>koEJGh]k&$0jc$*XP6-/,ãU",=rJRpyVU8'B:ajZ)-5Z8[w-^5.8eTfWNp]b%c1k]OJ3+eKxnvhsOv%**<[U.O%ãU"y8ãU"E\.(W$ICPqDv_pc[(^kwNRBbaoKEd/Sa$Dm=7FGliMG*ttTk%sro?FbJouxBdvrC-V,nN0tdYãU"j?:JbxhBQ8IM?OK)4_+oN9q$oKamus8rYNnxDbo4ãU".o9ZG;UD/aH]Z0q>60?3CAY;J&XVh\6mSrf&sG3.=Ft8v$VX4qf-pgkSIV%:R]wãU";MBE^>GFx;:&:Qs=,Oi1Dq684QVR(HQ2kByol]#jkzg#pkG7a02;KmsaA+zqE^aãU"Dqi?Iu:BcUKJ''I:J7cFL5/LBhkWt&K/OA^JEkTu%p()9%%'%-4%.KICJ,KJ*]3*%%%C1%%%0%%(%%jw%ifsf%SãU"ktsqt%6(BMk5ncv)b$YBi7J^i#5K;h_[/.ISpnd:^Q;Igmps\KJ*>[Pxu1K57tqãU"eKjYuC>vyc9ht)50>P,uf1evuh5FLH\^uE>+HT$XQ4dhl)^nRrhfqzKs7VnEM,uãU"iMjv6x8%.twNu*RR/17qkQ<&#$>(Zmk80W?C4IswJC%7+C:j-7;.wSex(ykcfV>lfuEw>#b%pãU"tJ>i4>vSM*?AmYw4?D7.dsbrWVWVZAU[Roi6dF;[Im]XfX5jn)KJ2My.%8IssKq3*sqXD6Ckl)p1QX7TFLf=wr2\8<2OZpAwD_isQ&olãU"6Bq6PJ7/fUn;VDg9/>qsU7[XiivCJ(;VVx*)v'*Vj_(45N]Q3Tr)8ykqOJ._V6zãU"ZBprn\#w3mGq7H\L\.QpbY/'fk$TEUoK1Sp,3-AZV$bp1,qKLãU">a8[wvcVn#w5[V#thd)zDZWdxkBNr+>FI#uJ=X2e(d-LD#ZqC,Txc#0TtgP=8jGp+9,j9Tr4X;omyq&ãU"JQRoEM8:Crc)n9^%VgE?tdud7$t1CpnVzp[>lfa2(qG*B'gjfFOG^kSvait]q1OmI[93*oMQ4kOg%Ao*0Rhp)G&F;?ãU"i6(DuCYl?aSh6]KQhd*'UVxãU"H(d_iIUVf%g4[Yq^ND=j-LHhr#ksk-L#Dj?m($TjsF,#I,VU'7s[\hUB;>>dd%9ãU"^*Q+TSU[CTDIu\ge%E'i>-W/gf6]E578[]Xnq6ZRKKSH.BbYh=(b7^.BD[mi's\ãU"/O$ZnjPsL_Wr2Pd&l^1_)BX\A:n.&rVJkYF7heI*G?r3HM*Lv(ãU"UFp_gGhlOAg=XE?0V&F7.^dFu4x(G6$x^xsnwOvK5rY_i;3DA7G.J66ZR2A0L-UãU"^k'-&CL>+^W6^YV#x+EIU5>fBu0%up()%9%'%I-%]k#aJt&/.hm47%%;Q%%%1%%ãU"%%rx%ktsy%WVSyS'y.)_<>##j6w=9*x0oY')yuQjJPX[[GDI>goX)+5:BD(I9'eãU"FgpAz\gBJJ-?Ewsc?l+pG$B8dAg)qg5QVRHnV65hvqnm[lKu>,;JZK+<5+_B_c(ãU"CKKr$rBZ*l6db'J&]'8nt7M^Kb.Fj;-z/XTa,v$aLnd-V\1qpNcM%%a:S[2CAI+ãU"OWh,EEdj]ua>^zr2qpd(Gh.PFS'>C4hsuqaSE83-nTm=xp^qS4bqQ6&:h(NEsxtãU";4ua#]C)k5TeSqOjK$fAtFA,jj7bi;x/>A^K0Fr_Hz\AdnKDkV?+[z0'^pVlITtãU"FPu&i:e*Rcj,T:QNX#Qf(tL65kI.aCv+zF5$OmA?AU2B-(UkaSG$4Kp(MDQDGf8ãU"bPqp&>l'#/S]VgWZe/x&D?S&bt6Lh7&6&qI17WQ=GIQ?%5%6oUAuPYCPs]+3l5nãU"*Ygp(TrAjO4zcM*%<7&+6WUj(*gENU6](QrTxZRFHC:(,%?-;UW6NIg(\P]rG2$>p33'dZ&8W<]QãU"xpOkn((sf2O9gV8*?<,er=n'2/'ãU"N6vz^Avvq/HXHd-qm,HW8,kG-G-6>3>yKCqvcql+Je?ksFTS>c-M>>4^)S\QoKPY%;#4o;=Gk'0OP6_FYX,'fW3=PG4ãU"E<w$+_Rwf*QK9?xz,9FVJ4n/v2\ex(-WZC>q<<2dSãU"0HL,Io4Gn+&i]ixfcRycO;e?ys7rco5X]X5o\;B6tsJ4&Ae,Ve)g7)Wl7'zs;82ãU"h6ZPvgxP2g,h&XGqAU]p2Ch62Xv8e(OCo45$7b-)qsdpi0.5>/DN;xZo3+3pNQ/ãU"CHQ),pOJQdygxV?$'9nJJx(Xi+U4)3tSMZ:c3lgCeSzO\-.=F_zK\[D9&)gAeviãU")BNT(ik:43D.wQz/pqpe1/#OdEF8%5YIas&F%apYf6AK:38]r.v&vnaF-BEeKh=ãU"f?9(kcNsB#.oDH/_vyãU"Hx[qTlKb(>IG\jzH]q9GdVq>=j4S?7UwH8rbnsS1O\3m,Q52ikH84A\r4?XToXtãU"t'h(Y;^l,T]=26&;J'mITTO_>MzNCTQ0D+nFv:bDU1VxBUo6kPO%j1L-IBC(=8hãU"41?;WH04kC_rX'lN^i'+\)Oal4j.EX:Y6Q9O*c?(Ks)h&*A/WnLIC*jGJ&k4F&JãU"W0U7s=_9nZ>KGEVu'P$LvfUy)Tq-73e,&+FI'_b#<[*0,&FXxE0ir&Q-Uz\kQG1ãU":5#f^v#)&-EVA%2$is46LoaTPbSS+T7]51Dh?^U9ywZA2MYe,YAwnu/_fIoP;A*ãU"4[]izDDXT/:U59+r^G9?8CqL.,,[icLpbM*o_EfB6NR;kbEoL:^3E/q__2W-C9CãU"Wu&'VLOr4_rw=zS#SFdgd4[z9U/gy>PGUwy?1&&s9n._n(1DkfAN,J30&tZ5if7bbCv:.)PHpPF7f5Z]l/?lK(&,Wq=RmtFc7H)]HdpHãU"KOd&Y+u86=0k^e>U=FmipA.G(/eyiWD64B7?EPbv]Od4pãU"gtPr/fs4[A+WTDg)O(J9JoftsK?]VJYthAL.7B[X+((bV1y[2kL81W,^bVFV6A3ãU"i8>c53Wz/tkj6aiuK.n,OuftJYYURdi2z00fpDOVOY,w0&'twp+m*?Y*F/.&-.oãU"1mA.HB7+[ajFhQv$3\dwec0PC'9Vo^EOk,=wEhb_ãU"*YwFSggtP.JRi9UeyLY.u7mBI[gNQJE1HDK*ey2Sk&cDmzmO$E;<3w';pYl%R.VãU"ZTw[-F],T?IloKcIJtb,41fQ;FQvj,t[d0Qc5loik&N.\\*l9\?S5twhqNãU"^$K?tSq.$ãU"Z,woh'F<+PW;O;rRpcoXf->91\5$ElM?$dE;suiZ=LMCNR^jM'iãU"w#KlmZ<8%1?ZKThybiP=CQd6,BN?WUJ3[ufLuHd4y;9?43FF;h_rjLYjR>]0'vLãU"lo3n424yF[ST\4'h6fJYC#o0)PEPI5w*wHMZha%3hZP-MrFUpe*Jm8dP=P-1WXqãU"u/ow+I[PTn9eo2cXcqf;\FWSu[QnR5e$N-3KeeCouE2.n\d(/BãU"]T-Wd_$T*h)'_jas\mAx?<7?pk#S>XWEC9>+XO,BEo)b;DN<ãU"8OCxUr4Kxj-3>34+,Xa2HhqhiS\1N$deWj%*.'vNsFrl=kn\a<2*/]+363j3^cOãU"yfG,7pe)j>>jgrUuJ[h$4L1$p-O,gi*y(?1o6anVMp)HLl9KG$K3W$\4h1FvsJ7ãU"gIZa-S\aPZ6*/?qA(Mk?8X_B2]QV#qHj(25F=iZ6D(FNeW*^WnU\Bq5?x-$^lJvãU"?.Xvu*Y,p*>hw/gb(wyhAn_2VMsQSPCZq:3vG*8pdJRLe.[u>/*jIAEe2+>sttãU"LISmK_>A&;?2-KkL]1hn,BU1b_1LJ6=ai3ãU"xvF]>Au$/Kb?SqFEXcta5*O*T=b5o8ViMpI,LaP\Z'JG:2w+r:2ZlG;6=eiA4*GãU"DRK.1>?O'1K8qgDphBe+O;nAFrM4&*)]bZa\G>lYgWHLhHOF4un3[6+d#]gtaw[ãU"n/+k<8;NMa1_Z6]_JUCi.Zf0vRZh\]WMWnu(7:_tlXd_dv\sHwpjGpub9PN#yNcãU"[]dK(dtvpr=7irh2f8qG9G$0oXZ6D1Qhp+#-QMG4EFqOnYog<4dtmmWb5N3#>AdãU"8Y>eg\H51mCsxLll',:B34cLx2?,Cq4JUs)ãU"xmH\V>=feS_ATpCGJ2oQ.HJH3,TqTPBJ+9'%M8V<^%Lde#s3?WWUqsTBuD[,,kDãU"AVWr%$kAK\Oc1p7ElhQStãU"VG#n/fB_3U[njyVQ$HM0gU*drui9mdil6>0t(AVR7bGsPV7d*1k='EdDHd)>t&bãU"(u.9/,d>KC8cVNEf%ZNSVNYy8[8>'tqe,rkPp7nD)/Y=n5Lj(#X6Gp.0vqNa[]_cqBj]Nh$hjs7JW\_)viWWlkMWOP4,%<ãU"-IT>#e&r:%%vflkuXr-YqE]4$C*R0:H8n4GI6c,.Euf_aS-t3TKCB,*6rtL7LL8ãU"g:_MD%?70#a<>54.lrw'F>%DD*i2\Ie]LoF(sHY]ZV[0mw.(r^4p3v&$dAs-:,BãU"mO_Q6$hBL6^xLeo=AfQGbzR8rIOx?^Lx'%up()%9%'%R-%0jRaJte=GMY,7ãU"%%MO%%%1%%%%rx%ktsy%WVSgRfxf);<>[kj5w]=eN=#2C;InS^2EE3#$:ABH*c=ãU"SYlo'yXG2Y+T%XWbq#iD8?h7r:p(:$S74zr5o9$lEoeX,,.$#MaN*lX2Y7fOd%cãU"XQ,pK680P*]j5^se_Qo0x1*e6M[.d,\Qg^'='aAJP,mH874B?bar1lGAVSuDWr>7\?c=ãU"/:v8=b?)8/WxWabFFRA_ãU"w-f^q-23zTãU"J\uI9[1ixHSD%9D[\d<9Lk.67fDU\83[io;#1512yi(YAr1_;[ikza>PMUxR03vãU"qN_qPFIbk+;>3DDd[f*vEpXYeL[EiIC4lRuoY&7seuY?BY+&L]1*\kA?p'zo#M;&s0%vAG*>MI4chãU"33pQDtopkvfh,Zgx%5wQ:aD8u+>PoT4ik??nnKY4_J$q:\4::x39Dp19B:[.;G.ãU"gPQP+&G>x*0g+#T#TLZH*0i/;1:V#H\cIPVsYq/KIp4#r+5[\XFF>3P[EO*51h>ãU"erC\R3Dx:37(8*q^BbBcJp7/pj4#];$Au\J'UH=3'tCQGVwU)cCA1w.xk4yDaHãU"et7#1/RM,yIH3Aa;G$k5dL4DLEOB'J,rA8oUEc=U:VrXQrvr0wb3T882O[4ãU"'>nHri560oob.Nl,609dsBJ]ucmU;1u>ãU"e$bsz5#V-fb5xNUD*Z]k95,'\c*e^zvKmfgA-)%UãU"IXsa.(w;8RJ#l'rkQ6bKtC0-B^sQ+V)YcS+$2W:pT7-l&6shY2L\vBVy'jS0gbpãU"s\Jb$V\tGj0sQ>RbnS=3,/uU01ZOY0'tQ<7'cPR1)6Tcn&wg9zMEiY-;4AeR%-:ãU"R1:2:w9fgaG8YGH>O6][l2]lu9^&bm8Z8)2YLL]bYxrFZS4miZncGrZ%.c?rkG,ãU"kHUCpbWV+AkfQ;q^^MEãU"YFr1]T(b,$d-.]WM\TãU";n2Yr8ghCT?'sT\Y^uJUZ(MhQXubB/2pL;AT\-N(s3BaY$X5?r9tw%Hsy.-sKH[ãU"QbkjR4Q$>dacYhTUPxQCnvO5f0Hznb.g]#JQY?yUQX\rG(^0X/=6p']1mfEk83FãU"YaOO>(iGMaz+k0ejFQjBvo/HZi.BbmW_gcty>WSdE^QP-KIe%6_E7tX$]*h.nzsãU"^N]PtB9lorxZNxpT%xdgup%&'9%%9%'%I-%%LIIJx>-VK>).%%Q-%%%1ãU"%%%%%%%%%%%RE%/P%%%%%%fwnf#qsw&%Skts%up&'%9%9%%'%-%%?=(J0BsZj'oãU")%%&C/%%%.%%%%%%%%%%%E%*/Ph)%%%fw%nfqS%ktsu%p&'9%%9%'#%-%>&LIJJãU"j;loa[)%%U%/%%1%%%%%%%%%%[%E%/)P/.%%%gtt%ptqi%xSkt%sup&%'9%9%%'ãU"%-4%ig(FJ;b+,ZY)%(%30%%%0%%%%%%%%%%%EO%/PA%3%%h%tzwn%jwSk%tsup%ãU"&'9%%9%'%#-%TLdIJfq,Hr'*7%%9.%%%0%%%%%%%%%%%RE%/P&J8%%%hxfs%xrxãU"S%ktsu%p&'9%%9%'%%-%8&LIJkBqdrb[*%%O%0%%1%%%%%%%%%%[%E%/)Pu=%%%ãU"lfw%frts%iSkt%sup&%'9%9%%'%-4%nKIIJD*r+8:*%%%51%%%0%%%%%%%%%%%EãU"O%/P2%C%%q%zhni%fhSk%tsup%&'9%%9%'%I-%/T[BJsP,U/:*7%%'0%%%/%%%%ãU"%%%%%%%RE%/P%rI%%(x(rg%tqSk%tsup%&'9%%9%'%R-%ug.(Jr6-[\5+.%%_0%ãU"%%/%%%%%%%%%%%RE%/P&YN%%(x(xy%jrSk%tsup%&'9%%9%'%R-%OK.IJB13lvMãU"*7%%90%%%/%%%%%%%%%%%RE%/P';T%%%yfmt%rfSk%tsup%&'9%%9%'%%-%Z=[(ãU"Jsw*T;M*7%%G/%%%.%%%%%%%%%%%RE%/P&7Z%%%ynrj%xSkt%sup&%'9%9%%'%-ãU"4%.KICJ,KJ*]3*%%%C1%%%0%%%%%%%%%%%Ej%/P0#_%%%%jwif%sfSk%tsup%&'ãU"9%%9%'%I-%]k#aJt&/.hm47%%;Q%%%1%%%%%%%%%&%RE%/P%ie%%%rxkt%syWV.ãU"Sy'y%up&'%9%9%%'%-%*0jaJ$teGM'Y,%%'MO%%%1%%%%%%%%%&%E%*/P1u%%%rãU"x%ktsy%WVSg%fxup%*+%%%%%3%%3%A(#%%;'%%%%%ãEND SUBãV2ãV3ãCLOSE:IF S=112AND 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ãDaniel Davies TRUE RAYTRACER ia53@rapid.co.uk 09-30-98 (22:23) QB, QBasic, PDS 342 22615 RAYTRACE.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"RAYTRACE.ZIP",4^6:Z&=16708:?STRING$(50,177);ãU"%up()%/%%%R%%(dmGJOj+5*?\%%%?\%%%/%%%%xf%ruqj%Slnk%lnk](^0e&9A%ãU"p%%%%%%%&&&'%''((%()))%***+%++,,%,---%.../%//00%0111%2223%3344%ãU"4555%6667%7788%8999%:::;%;;<<%<===%>>>?%??##%#AAA%BBBC%CCDD%DEEãU"E%FFFG%GGHH%HIII%JJJK%KKLL%LMMM%NNNO%OOPP%PQQQ%RRRS%SSTT%TUUU%VãU"VVW%WWXX%XYYY%ZZZ[%[[\\%\]]]%^^^_%__$$%$aaa%bbbc%ccdd%deee%fffgãU"%gghh%hiii%jjjk%kkll%lmmm%nnno%oopp%pqqq%rrrs%sstt%tuuu%vvvw%wwãU"xx%xyyy#zzz%M%%&&M&'''M((()M))**M*+++M,,,-M--..M.///M0001M1122MãU"2333M4445M5566M6777M8889M99::M:;;;M<<<=M==>>M>???M###AMAABBMBCCãU"CMDDDEMEEFFMFGGGMHHHIMIIJJMJKKKMLLLMMMMNNMNOOOMPPPQMQQRRMRSSSMTãU"TTUMUUVVMVWWWMXXXYMYYZZMZ[[[M\\\]M]]^^M^___M$$$aMaabbMbcccMdddeãU"MeeffMfgggMhhhiMiijjMjkkkMlllmMmmnnMnoooMpppqMqqrrMrsssMtttuMuuãU"vvMvwwwMxxxyMyyzztz%%%u&&&'u''((u()))u***+u++,,u,---u.../u//00uãU"0111u2223u3344u4555u6667u7788u8999u:::;u;;<>>?u??##u#AAãU"AuBBBCuCCDDuDEEEuFFFGuGGHHuHIIIuJJJKuKKLLuLMMMuNNNOuOOPPuPQQQuRãU"RRSuSSTTuTUUUuVVVWuWWXXuXYYYuZZZ[u[[\\u\]]]u^^^_u__$$u$aaaubbbcãU"uccddudeeeufffgugghhuhiiiujjjkukkllulmmmunnnouooppupqqqurrrsussãU"ttutuuuuvvvwuwwxx'xQ%%%%%e&'A%e-'w%&-RAm)o*:R-8pO+A)5pZd=X9UlA*r#A^EhYRAn+s*BbMxqy+B+5tDfU52CknW,uFjp]BcUlB,vH/neRãU"/RBo-wEJrmbpO,CM)uV6L5%1_v.(,^DCgYE(B[I/dUP)3O#6x+\ei[>[NEx2v>xãU"T0P4#Alp.<'T0.?_O=A0G*Zd:UIf2gW$I[r9X_B[j1hpX:Q9)h2L4.DdãU"O)I:_c7#6HkY2WqOv&2,6Igtq+b%g;2Ap$Dmwo]>foZ-rltIBig/.F(V4.Goku'ãU"JG+2.#^G%3Bi3nKoN&;BJj=2+mO+Ak#I$#aCA2+/+GYQ'+mF]2p60(0cz?&X,'BãU"V';.qF4E[WIVe7[XgMuw[eYO-aN[Hx8&g<-I?m>;y=zbYh#5jAPBT8%5IF;(8')ãU"f>BkF]$RM5TC5(-Zuk4>^ZySmL^d2'5XGg++EbN^f/U.NKf>Vc8_hh7ux_\i>ybãU"_585),f:+CK=\.LOXQoRSMgUe&g9yYNoT>6PwZU)kD]PR(DO)70AC;kOObsaH7bãU"Kt\gs__MukUXN;voU4OcwMVs/cxhwuycty%/cVytw>%c5&*l%25\R0XM_An4g+'ãU"#z9z&/6;=L*y0sUACQPdlCHYtp;,ImkPf-iM%:f?.L;_VfzUE?df0NS_Ogwg]c:ãU"gZ2a[_u<3e/udg4i??D'3lmO:hZ6qSz$&Z3=_X&,iHn.'/mY-/\\DoYZC:'heG4ãU"%#>?9J?3g9&;jf>=6%cj??$?dj#EnVQk6ike;+Q5bu+[S7Q0?e+Dno=QlEOYP;BãU"m7o]%clGap?elHomQF-IO9e:)5kf#uA6.MwiYQL,9n%=5AMO;w4;5P6#k=9CZfnãU"P/nVRoQh3fZuj?NtoukEnN%;l]IhD;-mMtTZ;ãU"nQZsU;oUtbY6pLJS.QO.]bNQ;rpmcse/e-,9g0sR1Y;70T9%[h1VA+U<1Y3M/R2ãU".\uf35E9RC'q%-fKaz^?'?)Le.&u[6'I<-y/UXsfp2:AY4?M_+1Ygp1/2-R<*1oãU"*Q(y0/vAGg8e&o)I=&p-h5d'5MYSRCi/7,_A&L3=/R4?IO+KwX_P111/dHsB4M$ãU"g2&thodQcj^JXR_Zq9(H#6O)r*JXDnq;>#djSehDZ.an+=#MSJ%vZL)7+f78b-8ãU"[f?tMknrDvemlluZptWsTODxM'8Rcw4AO\-/-2OzTPYjoO=+m:4&M%))%/f-h#=ãU"'6Y%u)Ha#3.]*d'8iY/SL3l./xogO:%?T(Q7fe>-IS=$C/+,H):2?ewqaq&o>gAãU"Ig6\O#)JSpI.tSqg9w/>(P3v05+eq<'8%kUYS:E/a%<<5HI>R7I60&w0[9s%#jLãU"W0#.naQ^6XU=RE%ZV=bY:3;CW<#6S)UYGk:13[5h=7FU;R3d&0&wB)':u(ETMeBãU"Z.s7m'8O?gR;tjkof*\=?VAuI]_CM)AcHBUL9#YK[6^I-UX4\cS8cs3j^P1Zb2SãU"4$(YBkA_bmx:4%3m%k[W-1UL3I%J^noO?:afV[(GSB/nsE#7/uW%g9end*vak^/ãU"'U^X;19T:SGZ08)8H\_kZ'Mp\=K7HA\MSV^GPb];;oFA_EV=]9Z2;=3G1wh+BaE,PãU"D3PldAiRvXOCTZ/-Yr>-^akb+oUd?(\sGjYf4gD3*bqYMtX+xpG*SAYf?m$)_[IãU"6IImP[/JL2?Wr+A$u,+$U&45HErC-o1,cEk$4Lrqg#q$1VbagV^G58rBãU"dmpl14CWlNFu4dVh5QpaQqbhGM*?Sk\uZJ$ãU"f0]8O?uMn/PB6z=tL:]YTWr9Zc1pwVYUx54U9==\?A/5FzãU"/E'7v/wOnr'ZY7KfQ^17]SI:MkOqD;q8;4:>U$K%/%Kn';-)d*SC:DZ.)2F=>]UãU":WgZ1e7q2(6SYU\R%0\CuE1?mGw#bIiE^MqT\Di]u05$f:4Meh=Dq)lgbYK]dILãU"E*ZVQ?2\xF2BpSrC=F5?XHk$^)EIG;+5\TOujf^vS[:82OisKAjT7cUAxPM)qd8.v:ãU"/>0r;O$FAE[QY:z[C7SEA4snays#o99MãU">LH[o9qbX$T-m9-qwcp947$iVtuf[#nqm6m7kqfnuV8r,mn#hA/%^uH?U5ohx\^ãU"'1Cw+mCR1;yQ*tVe#s_%A,8'a5Et8usPHwrozXria#Nkn^txsrTnwJuD8wpc(xLãU"s-xx%=GOx,NHaZTV%H'IUJLx0L&R6)h9YH2VX*4jLG7)+%d#+XZWMãU"S'WUVGWwWhgWY1DWR=VP]qW_1-7:]MXcgU24GXe.U]Hx(_k-[OkLRH)pDLeDH,\ãU"CD/fU%eByl1YY%QYl'qY):=Z+]PZ-'Z[9u&1qgZ31YZ5QZl7qZ9U=[67O&='[i?ãU"G[Aqg[C1Y[EQ[$DG&I:=\K]P\M'\HLQN/RWN(2+$58a$BraK%8'yY4'Y2c]aXO$ãU"mhcZ\4bTBbcLlaDn2a:<=$/l_\aWaqra\A,5^uGa6Fl^%BbaQgANM=QESBj'nsjãU"XL+j[(kB_mkqSqOJA7u0Nk&?9vVeWvJM+vx8m)Rc(([ieO.(m]InGdm]h0-nb+(ãU"orIQG(\#5b?wz)miA?j1,Q/-JXu%aCu0=UV;nibGmI.j09rc5:.])-AVe-P.usGãU"%5Tds+\7%glTM*oc7tyIt%u5uqAo)nO7)lig%i5hg[5)X-.w[Ch6m;_1Nb_;8U'ãU"2meA1YSnT[OOQ.u.tuHh']u6ZRlSQ*f8:+.BUY.uTãU".-ZsVcN9PJHE*BBw5,?fY+;I%sCy+Bj9+/fi*,91**o*M(_fI[.d4>)fLNv//]RãU"w(-+?J>+=nvMTh+V#nwJtDgF;,hJ5UP)d,YjCnT;-)XUXf1x-_KV8d?-#x5oh3?ãU"8(e;.kr*guD9t2QM9&MRJ3]?=3b)3ffe2j%E4[[+4lE4]j%4hTY3eoX3a)3P\n'$1Z(d:=17ãU")0$2/0CE2(96J#>65Ab5.9I+BW/U-S))H&>,J9IQ+Z>grbdl?N$Aq4gC.Y+EN+NãU"GT6H:[,MjJo.S,eR]7w1-io/$3o1S;oiMxIc*pd7[yfzLyhehDi8ooK?yrU).vKãU"zM3o96%uz<)&/';VK,Kq;K*QI_,:A6-4Kc:5f;-\Y#-No;+2r)4cf_4hp;>OS44ou4ir_>mãU"mE4iY/su93'\53xp/4Ki11bT1B>U1'rC?0YG?NI#I9,5oC%)hHC.6[uG^Y-E*?vãU"OJV,IovM2WU<1mWRkJ7\47eVOh\pj-^>;w$_nNbt-__I8jnV-j?8MlEpnK/*p5;ãU".-iyki3xs,zK+O;cmu.>ãU"O)bn%/QC?0wme+3$u3l^S'SSO2<(P?F??u#I':Ti06o5t0/0]-E0)KY/,e+/n_/ãU"VkF1Wkj1Y4r1[T1Y]t1_4#2a$i2c*2VeJ2gkj2i4r2kT2Ymt2o4#3q$i3s*3VuJãU"3wkj3y4u3%T3#+V(%.VZM'%*x5Q&]fQ:8S+'$'23U&+<)&D0i?dLVC.#V%0XQp;ãU"6PL)4ynF?w[&B['(>Pw*((,B=rLUE%_+*W<+KY\beo*M5O^IU%6FT$GãU"'LLLY2bL-F4HvZ)O%7E(w.Eja;jm+E..y-W%gF#V7#JeZzr^::H'*-eV.<6/&%#5'JpeL)T1(La)#q5o4dL+/YZ3GPR1,wFfI\#&P*;,ãU"v*Bm0+$A$+rv1EWvAF;eAX\o8z;/Bn2Lih2Hc,q3J-DYIfIXw*=[dX)):;I&l=lãU">KC,]P,Ve38*;8+)1C;A?&>o7&<)9]w)5ASQaASP+AUKiAWkAVYkABBQ%G[&FeMãU":1W/L^&?edAnPzI9K6&MAi5EM9LIm#uSZaCsOqC\+g?tkCYy5CVoE%'ucC)ADo+ãU"aD-Y+D/KlD.KCAA6Lz.fLqmOD1aVG&:H0_VSvu=#*0;effM^/:-T%a-3AFqeQDMãU"Y+FOKQF);Zu;1F1FMFVQ8FZ[<^]A(QoTPS$%elLI)v%;qIMpm+;MQY,oUaHmWUZãU"K+QH:'Zu6,HuZUH2b\^%BI['baW_KF?Y%&I1#gW_VQFpEpo%Ul<;A_vM7uZG#jaãU",&ZI=?6JAfV&\UoJE&JowaKwE%_KLfK0xwneO6K=QVK1+NF2%m&(eD/*,CX)?L$ãU"e5Cv$Bu:[9VdV>*N:zJ),5FIekGLMmlWM+;o:+Jw[lVM,VrOLVQ>lVOBuUUVVZWvVãU"5?BT[bfWNDTr0l)aiF,T3uWeVW3g,70=#XkblXm,X10*QV=g98aN5-fI,<%=u)kãU"C9)gtV%Y:+MY-bmY/7oY1WY:3=X5aCZ6wfW9-Zpj_Waq&J=2)myOW\=cw\eJM\MBIC+ãU"]eAbBRhb3c7bIVcb48KQsQ^71C_8cS_'qP.-ãU"n]Ki6e/m5ebrcEIak;3]m#y4d4ddbH=lw3\$SI8a+=mX.=?e\S)f<%n4Io_/$ZBãU"+P#0'/%4E-ZIgER7E-P.\*s>V\65t_D(dLc%gsUu;PMZVCieY3.h9bh-^;hb']hãU"e9[iWec0x]_PVgQ[7k_\gc9TXNI-)Kk2Gf$=$%7NR9D($;Hk$kHd*1ml#?bQBj.ãU"mFXw&[>x,a_e1s'IdZy(kdypndo7Z:U>&QF1+>V0)-]5Kw.dOU.kYq69-zW%O0SãU"Ta0*51C7Vrp0Y.qJ)l\5sH\M,IgE*pFFsgIdB_ng(q/du]9f'>g_PMx[RChq-jjãU"smKpRlMwg3$4-OON1f_9suforujrVfE]*VQxdALovQsRS3(g6I>g-:9wSZOnXd7ãU"L$4-b%[y9o.onDoNpD9nKbo7P1M9FA,n>7hiFdneZws^)O^Eo>4hU/)jãU"coBnb.h-gUpgodpr.:>o>#A5X:3Ba/p0[E2z;%$)pVh_kq?)kLd/RejZ9J&kRhkCQgT,W07>9Gtc9xCum[0B+Y.a/rjX3ãU"[:7)AC4nbH6gMhH4,Gj[5;MsfD2u1hpV19%uYRL$#/;fT^3(.C>gJNPO2)0:e[J:LgãU"sW$/rmbOt,K=b#xMwu4w*IJSz;',*7Q6$bu%>-Y8O+#Kl;=kr2BbOr*:$Gl84ESãU"J(llC'GNlAS?/;uL?8m0IK>2UL&uf+);hJ;D&%ft\cveJ%M8pM,$]Hk79f=5RgoãU"srn^bm9\2J_],W\J-wTGj[S9ãU"4Ur[UEudf0YoQ='11]]zhm^amQ9<^a)1Fs_h=7*G6ImIp3-4ga&(jcwsO>Hd'G5ãU"*Jf-mO$KL>5m$eu?;-Bb+A#'C^lB5EUHLVmHaxf#C-hHZ.CIE_$,m\F)q#pAA;rãU"hUj;'Cn7F3(Gku<2+9$*)e%YY(*rt_0RIbpCOhIadl?(=%ih/>ai>cq-IclEeR9ãU":A$*YadOm.a3A:nKj8C7CMS5howG.ãU"'\$lG**MapWiRsbhFkbYd1z+Pjg;)=BSTãU"[hsY:+IUnk5C=+8,Z=AWr4Ie'#CCãU"_p<8>SKeM.f_bqRf.>8gt&8^edu:*I_b/SFN_y52kP^z;3ED8QC9?jGdbkIB7&yo%)jAg_4^3Tidmqqui6ãU"irBevfb'MG=f.Yms4q8gI=9Kc*N*qpg:i%_)vQgPZ.d)h:AmukxwMF\;;9<#)GnãU"V^mLV]*^9kPr?Td(LGC1x%_D,DDEbF[A3D$q1l0#ht-#MWz:lid_w=RJW*Xt1+Vf8?l*Nh9uF7ft1jS*]u\6<(Z?$?WãU"A;]IkWIp+[Hx>Dn'kU+Z;1]n=AGn$[/Xf1NVJ^E4rDGOK7n$0(_Ma'XHOZ/Xp,'ãU"R8o\S%L3N/Dvhg$rkJ>M)70dwdfWN=$Q)JvIL29'.(#0#fY]3n3BFgr,PpEJ4dsãU"PoYg?-Q,CkLt*YãU"p+&12'>ETB)&5[BãU"Y)O?If17?8RBqE#-i]Q(7i%*3m5P0&--(>*G_+[]5F3BMx2Pp*TO+a\/',o#e-oãU"OAQ:Ygd+]Wi$wSPU4)u)F:0*qgPVHoU45DP3cDJ>qg%01];q'B3&We*UE)P4WHYãU">VEfi2CItRrOpZ7r>Q+;sp+:XOq2Lg-]B,IoXg:E(1o25BYJHY]2GFeCU=Ufd(kãU"]^IQ:T5z1Q+;3%+1VSH2;=WM_AZn)TY;9/d+[ãU"o*(4Su)mIQZ;+yIV<07EUWAof2SAmHCC:;lbEIG6XGCY=HL'd9\>7(?aeI-k/Q=ãU"9)Y*CWwfv2x.9*meãU"0SVc'ghH&uHNk=i5+iD7Q9G$u0\ET:^Kxp\%hvBj+e/m';QpI,g?8p:3s6Zjv:SãU"jhVSlZoRM2IM(W(;LV_eU,7NX[]HEtJO0C/d)M7:;RL9U.Ja0/a#wgFO,V#x8QAãU"]G1LHkti7/0(H5?jw0)8oE/TwJFfI&E<8#3V,9a1;5:5^1F.=#8-%ue(v#c&01.ãU"u(e,80W_j'(:_SDDxhO*K#sUi)(ob51ho,I8[QwMd-T4SVFNQhQRpl]YAl&Q6S[ãU"'hS1tW9]1m?0^U_fS)9wN*))(CiibU,bt*ced?e';shasPE&O*S&r?]\H85DKLkãU"l9*QT)y>fl(k%m&31QI)O/PL0qq5l[(Mi8e[u0ogs\>:8P5q-9i:YsQoW%kI=4OãU"U^DsW,W;kd0T6_%iB$>kg5g'viK>LZ7x3tA%i=-9bEu95*XTx8aYWh4*EbZj%m)ãU"fE-%r(^7,55.;gOE7.%.ke+/%e0]5e1E7e2Uep2+99a#2o4*3/ha+AY&.Z\3kQmãU"'Oq8.%qR[kw5FLqRUD5%mn)h]YeAE9:Ame-[LfD]ufEE%e(=g%GQgH%agIq.gJ+ãU"g(K+gCAk_5SmWN<-=R8&<:?)QL&=DQ8Hs5.l3$6h()mf8<^WQhaG#9g%S#,]k3Iqk4+1k5;kV63?%FãU")=zk:k9%k&:9j.fAkuk?+)#,A(lAQlMBkO7KE[$:r6z487rP:DR=''ãU"*/QLW'Xcl+DF0,5RB/G(wOfqRBBw1mP.AmQar#C=.SQAA?J+mU;:m>-%DW[mXekãU"mY%gmZsAF0Am\fUm]epm^]AYR5.KOP2.R**N$bosg/#9LUxG/R%:(7F$-i_:ceaãU";R^5nGkEnlQMA_;<,lunG^5mpjACpM(%raoAsqotk+CtU1%vKoDw[oxJkoySiCmãU"c-9:868dm&d<'4B5]FR]gJ%i\3pFZZU]%VYXeEqRaw4o0KpW1SDzq;O1%4p43oZãU"5EDtom%7e=p8up]91q79u%;Q+qG+E4g0DJZ%O/)O'tK*_47$P4j9fp:ãU":A3nU3g(%bB5ljRc8/qKQjrL3E\marwrN+F;R9qPK+r79&$RkrSo%rT%9F6ArcVãU"UrWoerXu=rY]rB#yWyHT0;JN*cZParL&r7oigxm[km)7zhDi\(9cI7(7AscfUsgãU"oeshuasi1Hoeq#Y7Qtla?HX5rEn+t(RY&pK4tq[t0rYP8nwtt5=tuEtcvUtw?UHãU"Zi=VOTZZc\C06\-O#I]bbQ+:]TDR(W-+73jJ((9gu/]&u067u1Fu+2Vu0uvvt,e_%'e,O;0[WQr*eSjl(*7u3lãU"U%VPYi':($=%/Irw(J,wK&lww+O&w<\,vQ>'LVByãU"7gRMSdbyta.6j,y)G8ylALym\1yHhy)H#qKj#2Lt4[Csj^-*aS[8Z:ef,dr2\f9ãU"V]&g(or.zz,zD%3v%?2EP0*%SARP-fVzCãU".JPB)&2EtZCMI&G\V&H6ZLDy&J3vpzA#n3m%a9w5/ZdT3+cm31D'6yp(*Z?(\IeãU"BT,M'U<'MVL'TN6&XlV'Y&'LCg&[EF'L8)&]zK&^J=G1/($B2($tZmBJ/u'dvIMf(M':&R$ZF%23Z]UGmf(Pnv(o12)pBG);m(Jrb)sLZ(a,D)uãU"Jq&^zKRhX)xNL77y)Yz6SyndB&Vt)'fST&2B#W/xQWId2DãEND SUBãSUB V2ãU"p_-c&Y-d6-leF-frV-gfY-hv-Ee4hef>vfFs_(m-9$r/:'eWR%P.pL.iq\.ra2WãU"E%/.1s%g&g.[T^fEDE6cP*Yet-hZ>*lqSQNI..)s/*t-YX.J.,M/p-u9r4xWMXmãU"n$<;.t$Qa]L1+gS/4w/:5mX-;U/N8$2=HXt(%+q-3>R.J0_m0?'S0#7ãU"04AG0B$W0CgS0Dw0.E31F(C1GSA1Hc1dIs1gB&%K=e1LMwJ1M]1LNM1qa9CN7n1ãU"Q7[6Z&1S3g1X)[oU3\,l=%W(S2Xc\2Ys\+YG%[D=2\M82]G%o6iC0]]%$79\$g%ãU"=bW\3?qD<)#&e+Pm5=]R?MFeQeP7?H0siP9%m&:%I/;7P^?p/'_oP?)AP#ua^BIãU"0/B1&#w.&?g&(>W&=AG&<7I&;'P.8rP.'&t8eo]7AG5^*l'^)/?FV]s_'UttGkIkãU"Ef]lU]&qm/A,p]>%SZpG3f3]l9d-'HMsgan3cl[XPnO2RYnQRwI8QQ9'7PUYMDGãU"QK'&QI]'%HE'F^-QDi8PCQ&+BA&A*i3u;B^vS4Rxc^oBY.9+i$?U]Lme3AjS$yAVYBãU"/3u-I]43YZE;p'UJ;ja\[(aH.BtmXyt*75P-_]QLbA]caUK(_?.\)'RYU#(W-R+ãU"TY'RHY$NW.'M?'IKuQP([QG=DQR+QPSgPZP+];f=e5&/t6%lGhsbqi]Hul-IkOWbl_8YsqbAnu/%Y>Yw'eo$p?]GLãU"B&F(blF'SQEQattOYD3Y[Iab\T$13wi9Z27RTpB-eESLhgcRAq)ogVS#rW/_USfãU"^%ScIJR$oR(]?([(-:W5SRTaQ4RAQPAw'O_#'M%7.K57IaEaGqZT2':W45aU>EaãU"-U>ZD]>fEP;#U;oRYHi2s;iKsvv=IuEOeFl_boa5;Hm/MzGfpu/]K?oãU"]qO]eD+qNV=R<0>Si+tjI&%4?.&D?'3($vU$iokiãU"%)L7+\>0Kj+F6E=rOei=$qa/0?iFi19JuI2qN\Ra%VV%X+zlq=1qcUx#$8l#4pIãU"SsC%^xW7?lC*P,QT,0I*9n1O(G*&%m*x^=TtY.)qw)%n%.i^EXdY1(dW6dF,:0$ãU"FXH0Zg,7Q^Jf'.\M'Lx/=MV1jHYAm-EFTd]]U;G[TVAbd,\(1^8_o:8TAD\5pCD9\nU\B]iwS'ãU")eo8SpQ)jtYcj\O*v2)i.5+A]_+3.m+RlMU,IW6>*e1]2-uaR)5jW.kuSBL4S%6ãU"2=eW(8g%dGCDRUwtD,W$Ke[/,_>ALq$k24l;3&]4BVuX>B]QjBSmuK7Pfo8F8YWãU"V6LDXf;G.iHpWlM*ZSO&p?:tqRF8FW211Y(beRd2No^8J+9abR2Xm%WV/&9GHe3ãU"XMCp*BFt%I4y'TBk=:-7%+&nVU4inD7g+9M7J9gL+8WU#7w+3IeA.'MkXwWUvNqãU"W+\g8>8SC8s1HTD\g=Ai)DXkE:4TaQIf#'+(hQd&oVeFrfMVH6NTJJ&HPj8Hk9PãU"6wC0b6G6I7^6?]Iv7M[KBM2;B_>7Gyf7V_PgW*#=Z&mBKMCwW#bS'd>Uzs5R&h^ãU"r19_Y5R-R9BdM?K)fCu=4*j7*GN8*,Ba*x#Y^x:UOq[U=fi+>aDU=-k_5p+;hP_ãU"0q:*-A*):H*2%N*vM-n7,.##q6bC5K$WL6\V=k]0XbHwqT'nK3&u;>]r8(*W:'IãU",730?iY:;#/)5GP\JãU"]dAWBatw2\_#3C_JuimZl%,uEgAR)61,CA5G(iYUZ>1]A6.ImaI4v+3.#8Kri:]ãU"Hk)4owcMCwuup=w>C:UQ'+7QR;tZefT/;\W>h?BE>Y8lO)8l1+]k^tDgYJ-<#4EãU"(fS1F=w=av.IoeWG#k9Y]MNz&Y/J3tDz&U1E#cZZj[F)/Y:ãU"*^;V+AJ4Ew&>GEbtk.G=56VCAC1%fQCLuL6W1[7^+RI2d/qn1LnWwd/Oi:^WZR2ãU"9m'EUo?I-lDFS1ãU"9FJ+Ov_C7YLk)3AnJSam#W(GV=geWEOqf:,FW0NVVA>?5Z+U#:Q&pDMrbfp5NvEãU"rf6O7A.Q6AP*?W%Eo/W3QoR4%kMFsL:)G0/U#A]%9vk.&PywH=;ZMxLvl'dhY(<ãU"^gi&.:.];(zDkDj)Y;.ne:<#Fz[<>b_DdU?KBr*,$dk7e#(CV&70AETABK=H]%eãU"GnJVf3+XgLo[wGQ^Oj)#h0T'8-x1+WD]8R2ZP7H]Fj0Yu$.e;\VE$\+:$udH-4g/.]hAkSAPlCU(Nh=FTsK[ãU"g*8am[IJLnSCWYNw.I1ZQu.Y+Dhf0]rS[YN'iU\i^;kbG_Hf58^=alIhmtb>L^XãU"^aj99xk_6aU8#s\Rw9KeLoQ:/vDR6-=AA3HtW'/YLjaC/,I^jY+WJDU+QYtUf(mJWJWEqE::J,PãU"*PR8005S3*-S1p+=F0PUQ1ZY2llq9)r/9LRY6-pkdhKbf4suwo)ZsBr9:/3YdQ?uVzãU",jy8&Xr:^%RJ%R&;IOsfwbI&Vey\#+[5)1u$%)1xCd:frR*S^7++F,113K3gR?VãU"uP2?9XH5%z8,fs0/$O&,I$5uTbKQA7[;Hh##Y'Wq9,)b/[K/waT):(Wd*R;jH3QãU"f;O>FOU5hICi3VtRB.p1-bNeP^K]ahDtcq_\n/$4KyrjGjIu[B3AA\bvR4\Eo>7ãU"V+N0/,=9;N)'2qKU=Yn&X4wh)b]B6h0l_U^4N-KEXQ=C%[hC7J$8q_.%>(eP2B<ãU"=I.yoW;kT0p*c\O7\kE**,4:03e]QqUXE1Mad*4AZRR^K$K\CFUG%'&T9iwZQ*$ãU"t^d#Qn5RHI^1J]rToQ.u8d&Hw>UDfA/&=n1;.i+qK*PlHg(DoU&[FW_GJ?+1$OZkrãU"?nf>V7]+(aGstQIvj;>pwhaI)'1CmX;ZMq_[sf+U90#+_U)45EsK4fCq;PH^bo1ãU"I+(sfCfd+WMt^auD2In+]AjSLmbZt3^C)T>+s-5>UQ^G=?Z(m1q1C\Bu)wXhhttãU"+USh2OIBUQG)[3uZ;i&vkO]QS]ZWvGzBS1P(lvj^jVaF57$^V]DpN^^*FH'O2M(ãU",HR0PV-4U<7U-mP'T?C\QT]i\rrw#g6;uXH-D;TPzT&l;Zu+AsJ0F6DLJN??09:K'TãU"XI=.KZUGxDZ5:xdrh2.Ox=3L4UXDy9V[$.uAa[uGa]Cf^LAsX5^6qAHvJk^.a,aãU"Cl]$+;Hv3M#Or4QRYbKPfjjGKw'6LB&j?.V$.:MoH8FB4iIK*rRVW]K9(K*e4<[ãU"9\Zc=;U6UOSon+SIP-1Qm5KJUVIm]bIq:c%n&oNp1>U?N*o>bkJV^+RUa[U;0F^ãU">h[,>BxKZvM?n\*)2x(z+p-3EwmU;l^wx5$)2_on;Hf0>TQV(1WN(9BoG+g\%R=ãU"Z&s'X5.>V\WFY^8Gf0D9gBv*PUmSN7XZPq:=J^*Cb;rWãU"LtL3am*.Ro^oT;QKMEOk#_3um,?0sQ0(5S[uHF3MO01/8dVVMDWH/,c0;:F#:WTãU"W.Ai2E,rQn[BLZwBFifg(9CyO,V(x&Cik9hDHpiWgRtK_dlbb4[S=+2ZgV[/-WRãU"[0OnBQg2i,Ka[MJN=so64AYeKPzIHug\qsTwrRL-)gbnr:b:CTWf=Jhycr=)*1EãU"gc1X<#[1:&-^>dbax6iG2,sM(jQ^OLgxV+]XIhU>.#(:A;zKO$-O=K_sv)LBY+PãU"E<0cxBVH]a7RK$cVU#YOKCNe]RijkA>tikV$$[fl797>?5>iSiaAThky\U-^R=G=I;_^';He':UD4QvXICãU"M_m4NEkOaQNVnS_Wv)])2hdrnk*>emZ/<]>M#JCX(xc&Hz9jX#hr-uhr<.Q.N*<ãU"av0>X7#R\7x=u9x<9Cs:Nehc,xkCZL=D[AJ6GfãU".A(2;-O<&NMYa']hPIPukc(8C>AD+3B=Lj%dKZOlgE?_#\twzqbZb^ZNqvVKRR[ãU"6Yrb>;-u(6qITcF6rLZDJs9?Piu*t_[MEKHG>?;4678Fu%\Q2,81meYjdTmIRFBãU"k[KV][F5HLD9f;y62V6PAMjHk(u7GKr6TtKh%hDll2_qON,.LuONIEF0NsiKo4?ãU"+f+AQh%)PG$H9[*SaAZE-FãU"YLqZ.Ikb^c>dF^B*7-Z)Tzi/*6]_mcO]VcB/=_O7&h&Vd-YSTlh&0[VYG^;dj&ZãU"T.+0T9q92C[Lthqd=q+N?1yY1;t*)_:2lQ4G:V/]/#4-G)fMKs1%Xf+W'g<ãU"B>ADpu$]jC',e.mY4O*iqa#Q)/Y-qMu[^#&]&2j;[x#eFklUv/o-Od./]ãU"iInx%a0,*=4d=Gq[Go&#eQT]>s]I=)Lg):ãU"*lay(bQ%520o]HQk9#0EJSnMaeikJUH+YSqA#X[N+Y1&o'F1)c)$f397&z)ãU"9&-uBcnXP<,:PRVo;o9hbmb^4u<8VPWQYYjoY0.-Q4wI<*WãU"^0-T_QtTjB6dBjtP_cQaB(-vNRN\ao$E,oM/Lo_Zw(\#.kIf?AUf[P9'DWjQpbEãU"753_FGexTFcX[_;),amaa9>OR5lK_IBZ;tv5j-_DnkP;>PoCaC5BxkYZ_=-%m5RãU"9AI?v6hJ5cct7(16fV3/j4Xo)a,,.mkVKDãU"gH8sF.ZMOwkQa2&c)S5nk-&U%Nk)x4+1+WU6edq3mY_$I)#AV0)RE9mjnD0\bB2nusMs2Pr)ãU"-*kM7r8q-*w/*/6cs9:LXZq&IhiR\HF]/5K&AXy3_adDC[X=fD>ZZmSi.Taxk9pãU"],ipEB*InO:]nwI0bgLL=,fpBed(Y)Y7-c^3t0xnGACi.vIR/*BF$ea+H%+[18xãU"iC-p[DP]:77TkrHmEEbQ-Lu>z_ZFf28eZ-F$fXEQgVo>pd)t3\G4I\))dO2Enh:?dWBc;O5Spr'NKEfNãU",(i.KS8u&rFr[vC^FE/D>\DMD>\IkZHFB$ehr.WB&_NiSE4o?fb>L8echC.tPNJãU"8Qc,#-s#yILkQI/1KwLAVgzmz2A$^YV6poãU"$rosdL*qlBC;:pFBFsJ(YTwqPA6,o#RN[tWT6_)aYA3E2(9E20teaNvh+-+/rGrãU"NbvfNFhx^s.2eh&+[&H2-WJJ_Rq$fCq2GMj:x8f>k4rtmP'1-2DZ*O[%h*efnD_=4p(\-&Kq^o#o>F<ãU"$I%ZE<-o&_Rx-h3,q*d_dzxa7ddeMFz0n(G't_.agHRiSIv$yV.d^2]Boh3+Th:ãU"[_kSn9ca4_L0IBIB6Xdk6hIJlV'4r2B,-lKjjn&HFJ*9\y*vszKBCQzIeF-DWmAãU"yNK#bsA3cNk6wH/_\]nrk:gjDxxogQ$:QqsnrTHTYv\B]_+GyXt548qa.Bv(og<05m3htIL?QVpE>gkãU"rjitKIPãU"*OK&]Wi$-tt:w/1cY,Y.HI>ikgI[c_L1uI3/EON6?kwZU35iiU]ãU"[V-c^I+uv0jT9R,qC&&\xym-lHwjZgwSQk]^Al.Anx:[&D[_NqPbL:*ZW2R5FasãU"+$XJ_^V,=&p)u?W3om#u2$Lf-qsbA[BDDpM]^^M.)H'P%qY0F;ZT/dXcIh\>Fm2YVS]fQSVR/a.I.--(8ZdOKe^M(x%(up&%'ãU"9%/%%%%%4%(dG=JOj5'*?\%%%?\%%%/%%%%%%%%%%%E%%%%%%%%%x%fruq%jSlnãU"%kup&%'9%9%%%%-.%P&paJ%Q1*G).%%%FB%%%,%%%%%%%%%&%E%%%%g%\%%w(f(ãU"Sg%fxup%*+%%%%%'%.'%<%7%%:e%%%%%ãEND SUBãV2ãCLOSE:IF S=0AND 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ãDaniel Davies ROTATING & ZOOMING PICTURE ia53@rapid.co.uk 09-30-98 (22:23) QB, QBasic, PDS 199 13192 ROTOZOOM.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"ROTOZOOM.ZIP",4^6:Z&=9634:?STRING$(50,177);ãU"%up()%9%%%#-%BsmcJec69(u&%%%%2%%%*%%%%VS[rfuFoMf+%[U-*IWja[jvCfy]%e)8a7u&n_\ZllXPhj^FI.9_pk]I./M2Z%ãU"GKi3\S_/oDd%6/Q%M*lm%)(?enL.5O/o8kgCow(>%'5MtMK8Qfe_.hIa/UBq(VOãU"5o998+)63&ulDuBnvtWDZKBYmYE6$?)v6:x<&%&M)ãU"'c06lhYMwZd0R34RI(/Tr4Ui\Z7oFYTgip6fEW&4>+BT8vO9fOcRGV1\=zIo2eMãU"7e:slXuf9,llr'*qeNpQN:x&Zfnt6uwVdkLp;gN;TTR_-bvisXrcQWYbhnuvoZ<ãU";.M/WnbWans'MH[n*bJbo4\G66p^bdSM_Oqgy9Cq>n>P>lmChjroFgu6kdZBM\qãU"Ids3t,qBn7cbTN>4E?vc;Ct^2WaIuyRO'(,D-&UeF$uWC(ZTMy[Gi:Zv$2VaPk>ãU":A&5/1V?-5G4XB-i+O+MdQK*(q#'C/ZsptpR[pp5D#2sSbr#3Uyb*t'TQ96cc][ãU"42eXKH#N0et(OlkFo[_Lfbh/[40JB[=At7cjFs?e-)=&%Set\E^QK3Yq-PaE=q]ãU"+$oI]RUUCq:I7n#*\bJe+R-7R8OzEZpTB-1)=LIB]hBIUo-t(fS3s9]f[Jt$r'=R_=Xp\BCgKj<_7w[&:4z*t_,ãU"zTDnPsTFD\37FPlk\^\[7?>U_##m>H^,v45Qr4\)lkt4(&^sQL9^S<8Y+4L-U*]ãU"^da;0I:*9,$:58fC%A>>CWQbf*6vagr7yp_JS^*B4SdZIl-+Z>?C9T,q)a%f2;DãU"sN5JA]i]WVIhRtNqoJbwXIJiRL$OcWvxLIXx2JSJk'n?eIBICQhn]s*;CenCUL?ãU"d&&0Q,i'8kU+TSt0MYHXBd4c,lxvnxQj:Kq=NIY/U[Ffne(]MuZKst&[;SDR=8+ãU"cIR/z.QV^&$y*JG3&dw)2$4ShvFOvNP_m\?5lZq08IcsHduutNW';7ZL>,7FrSpãU"QlrirTvpPQ'6JCZ16Bt^FhAh++=w6YkHMX/X-sJ)HQ+'7gO^kr&Ho,XLxj>tNqtãU"8u4TLQ'UB._='R6X,Z$SduvHhgD+.cNDK1EjmVUr*^-&u>KDJ,9i,X)E0,?$eA/ãU"6juZ%0X'$xzdxNb&.MsY_IqK4WMJqo:aPP;$aTe0T5D/3wqpF/mYãU"]GEnk)8Dvu;KKBZZOL:H$u2u^u4.=?P/ItN0CD6'\KhJCdfpVdRwppNQxtTbRvXãU"f>M4J955/ZIKts2h/3Cec=^p$Y53+Xe$((8fR:4Z46?sXXb03MãU"(M5Pf.-:3'FjQ2]'ãU"+tB?Evw#g%5Q(G_)OArP5X7L7FV(;p':VZ/ap\+8LRj=Xa*V;&MS**Tq4AL0.dD83:>XIrãU"oNT\,Awy[ZcD+1*2z/*oC1cD'a]5TV,agaY+$ND42H\fsfjWVXg5Egn7o.47-nO&3k['5N^cFnf'ZZ^6V.%1RmK[rtNHmãU"(luddUNZRVdD)'\?^hnPN6cP7-PssQG$#bv7=POhOphpO13r34vG3Kt:8gb,,V^ãU".vXXmbZK3lkPIfPVSãU"(s1fx>$hMXT6WMOLV;yG%h5O#f=bN*Y/YKxG\odltLXRJu>%=:9Gu+a#UgTO_1PR0>.7A1TMãU"O-eZlUZ%.WGcp4wZdc#LsPXud3Pz&SkmF-12-9/>iG4IDq:V%0Ij(J)S1?WYPO,s%oV+CHQjP;VTM&&P0*)g))=?4j6GzMt-k)tG^uQU9gf/InãU"3&Dpg8])mYqY\l<:E-=+YvpJI,^OãU"maobr7t[ukP.W'h3)j\0I8d2)#ioppUwYrof\zYu>TCXunVaYt2hA_5$OP+qi#M,.04PY/LE$o6cD_1e5Rm3/S#tS3p+NQ-,;H=I&cB:GU(aoXYSRo-Q*ãU"X6Jf0FR0NK-';_#>?&&,h:LA*d_&pj&2J[)3Vke)$6EpMGItLJmPkk)REMr4e>6ãU"E[Fk]7ZSi_];ZBI&0HMYa>O%Yt2yF:\3a17KsY3^?u???????8(H8bc]'P4up%(ãU")9%%%%-%-l)cJlA[ok&P1%%%%5%%%*%%%%WSwfJ&B&6GJ\mAAf%%IgHSDgG/e_Yi6t,XR8TxD13&5PjVY0Enes4nSFcP#kP.pD9T[$G?/?dT3K8z;n;XtVWatãU"+xn8]hj;^Fj_C&flni]f_sCK\gVdUaaWb.-8V\$^bp=OTt0dw'RCZqSYAci+tf*ãU"tW(NwdU?St-)cvjsASEoAaz=najiXj=0[luvA'ãU"ZWG*D'QDVJl=^m$/I.Z0_shfekXHDQkJLMa.C4Jv,+7Q3ZrB9U<_)>duxsw\K]2ETnToFQEOIz7lãU"Z;q1_vmzrD-2$Rc2jfOs?N\3Ns$#rMceHE>_VyS1t\8QTlT5ãU"M=RS?em+W1ub/I8Fb#Df&01tN422SL^S[i-URN-w9zjVq(7n^TF$VLV_nuIv?c6ãU",48;R7\-v%M2QC,Lly9fu$Lsdh>NN5-Tk5bN.vZRDAomtn(KGObBJWY=dK9peaxãU"t(0$#d+GMY7QRrzP_qXkqHY^nffZT$brqi)8W9UcHJ-r9u1NQg;eL,s6Hc_,MC%ãU"OWD1n%_o5_WBq*f\V*P_#%y2r69p/]6_.8WvITi[P,npo[U[LhfTs>v;dIjPãU"3ufJG]J0=5#(5H9N&yk'LL^NSk(5qd?tHx04$?CR%1*itnH/gr3IdsROLl0+,>EãU"fGiRGv]J\Pp>>I+Wg>cjLZ08p:EdW7s;L]6X:/3D4k)1vI;SD7hJkIlAoiU4jVxãU"Rq%3pTdV?<53kO;FDxmW2u*SvRs(&%'hQ:r-#2<,5pWnJ(>B-3/'=uku4l+OTUIãU"k,/^_cfp&y[kK#d+3M9Y0'hcGpNS<30qb7]F^t-]m&%I1QL>?vIpq5NxK))*v7gãU"'.g$ZLcf^i0^^,;rx+G2ii4$RY/ORr^5,Pj71^d<,$$W=kYJ0mncxTZFV\/OWPHãU"+676-t_>>DX0X>a%<&V6IIQrjGRfGG3*a87%3A#/XmqA_3Y[$2FutTVLVZo=fulãU"nvnU:%xG]&AvS4/k=TsmC_25EP-./YEhs.CXq$m3,^+7R<4YtWDBP2Vpiz5vdtaãU"eltvp60dFKi&FjnjkUYk&-[,EY..oGCSiQQ[0_3*a&___iEBbMb:-vj/#blTLz-ãU"k-r(fPpKaUn>=KDNuJ_z(BuO.(pl&ZK6G*Eg_CYRVsB:RG7Uz_?jgh'kGM4-kZrãU"uI&GUDt*Glbpf,$NyJAqYE)eN?f)Nsq_&o=?I^fphD<-%g5?d2Y,m:)4m&2m8]:ãU"bckvlQohY4V*rKLa'DKW3YuTxIoX#22?QT#c]etAL^U7'&AQ'_(Mi6#cPs^:(;eãU"fPDqf,,Jcc7QPH+O5h&xO+DTUd6;$qtaC&MCg*)W5^FsuF#'L;v8)mJnm6ZC,uKãU"PLDe.rh)6:ACH>sNNteU413wdTG4gxtlZUi'dSacUnESEQ7=db3]:(^^aAfq.1Q7YgPJ*/p]fUw4Bt=%:(s?^nnaZãU"u^8=R_Tltc5NNw6vTOUjun,80NV6LY^\aCO^$#aM54#Mp$DxãU"ouhxjl,7/7yT:4TTAV)8Xlo<2e:OwAtW&$g&+WGuf7E];sWA\HqbvP0FGHan9=FmuYHs0n-ãU"8UddKVZI%eS.pW1&30Few;YL1kFZB(wSv;i:5-ei;uf0/B=tV)7]j(t9MdnevkNãU"7/k2%fCiH5Q)y[[_CKm:dH\_An1gEQHAsCum,UN:?&niuAnQYD+S?=##-9=B3/yãU"Q1Yt1n4ob?$)>ir)l/3&pdeA\05*pu803(;('JV?hd'C=7qO4/IUQ;ZbDlPd1M[ãU"U??t\I>l8m>%gkjHl[WLFRLp'*j:;foRgPp_R_$QLJcQHnGfe_:%rD$H5TBEp+rãU">W7q71oE;tRQ;uluWqHzk,C0)0[%.bd)cvlbe,?_l&h^hj;s.DlN\nadp,-///gãU"o3??Rzvk'pyOQw$n#RGl^2OMRvz^x*3kOMA0A)p<#Lgg(nR]Rpx.fpM5*/HQGoWãU"IDeCUKhmcMs3vn>:Q?U2PfHEo=A89I0[A+*9#E(Wc(jhfBKKaXhb22aB/%7SJghãU"T%qPthJNk-5k[#t>3Lcc?>A^-OEiKKQ\r7]r[Q+t,'5urs\#ot,AbVMxQue]A?+ãU"sY[#h'$O+Gf1uf9)ZQt=l[HFqBãU"VJF0[Ux7g3RUq3cs*JnIXnV6/#88Db$-gNrVTh>^lJA9L&$9k2O1Lr&$q,O8ikqãU"(S*hW#$t8HO=.Lc)iYH%tz>%qSC2PRDZwNEv?[.$&f'4ZI&'8i3P_DCr&rY1AAbãU"pk2XP-E:,jcC1;B^*GMYBoo?FOPCSHyrN*vJJ1RWQD36L=KQcFC&buZUgF,AP=,ãU"ErcZ9RLo[5-6SAr1x&D3>)&c9QRI?'LJyWxJu0o4&KtG4;[_TIhãU"WX?M)^aGDR4OK0AlMD;KPVlOLEdOQ=HL+^'$F+nXA$X*ba72a5vdPkMFOqKGV2%?7(UCAp]#l#4/\LPãU"u*DELt36TuE5SRM44^NM$bd^>(1VT#4KKTKTMp#oxZ2uKK$cN;I%_?1d#[,+VkxãU"etODmyOQ\J6,1;^K;NG:Xd]dJAN]Zj2E12/Dc)?T?lxJLigXXQ]1Vr#v:W\\'O<ãU"/IIylp#0P<'/0XPjxh/-4B&?OG$l*1D+3Csi_2zriUmAP0+Rj+H\4kNq2OMgY9FãU"*A1aKY-9?=2KZpqopuWc6AX^S]6.m]h^og1cf4K-IBpugHfeO\M8Y8Eo/jJtV_)ãU"GZQxC\pRcfc33ilOvB$6iv^dUTfPB2T<8Vn;-o)U(A/Z1E:*sY3NgNlv^:&m^0bãU"VEL7.K'udup%()9%%%%-%-K*cJe$<$o%O.%%&i#%%%1%%%%wtyt&)ttr%SgfxNNãU"'J>][m7x:DXhu-C_&$)Sglm(Wi#RO(GQed%03$E_C_xf*#7>?Q%V)8kt8z9V[?3ãU",H%S_obWB1OD8IF;&Fn>-5wX?mq+$xm?1gE7vcp;\G?gLB0AV.iA6/l*u].,achãU"58l%Qk2sfRl$cYrEQG4f8T<3v][O1kr9Y[?Zi\n>8t?j.uMwS\*;Qqt6lljRqmmema>BKv71ãU"w1:O?pi9+j_bg]&/RfQRkC8qP00Bg?b#.x3^fU40?g'(QbM)Q+?eSo')'9bH%5EãU"6d9Xpj=<U6U$s_FrnRVb,)WDdQAR,/TbU7Sq6f&BVt'Q])4O;W5T3\Vh*k+Oy?$/)\AI9M3uãU"_8PQR[//XZHi\(bFcTib1J'o+P^qv%4XlL;/m9YjaWeq17g/_-&A_r)fSDe$#+7ãU"(QVm\p%,:IDt4ekãU"\JQ0w+p#JS>Ud$eg\wZ=8agM\xI^v)scnxK]%B0CsL/&J'#w=LEC/.bf*6rHAXnãU"(;NI9r)1sc#U25r[4uo9>&1bwp=0CP9Nw5<pgqBgHbtpOor\l&6jrW\pKãU"dvt[&nHbe\J9,inBySfB%qp>O?.(FP$%+2cm%*oazpA\rps4-cxCkn[7,yl1On:ãU"4-k2,CpC20Tdl8]l-2gRi.HldH;gCEciu>Z3E&[U;XI7BcoedPL3GUoE29W=?oTAZFPZ0caTX;jqYSkW#iQgH:PYW:7wZUpX+E$/EU==;psi069mtf(Ic_[]0N;zq7h)\*H8ãU"[nVSX-4fn,l'NHmddd,w94'_jWZN(]_Hv2btA_IZNm5#bOeXw#F7Y,eR_.L^DzGãU"7m:D&qImad'wCn.[-^SR7U%lzh.E#^OYNoC[9sH.$HSi5%vnY'2q5+b2(;jBm1BãU",CoIuC$E??QqEg]0pMX^ZVUl0uJr,/T:BU.AAwyU.cQO$DOaFg'LZ,]M*S;E^B,ãU"zaDsw_f6Bh_qk_nIOJ?SVJãU"kHp8*.kl<,&arskV4\f;mNg?3f\'e0oOYe)6NYs'crUZU$ULhbu]8X.FM(]l\n'ãU"IxIRJ5dL*](o5I(#\JEtIx()v$M_72VBPsK/q$Wo?ZpvnB0,*BM?zkzNGt%>dU[ãU"2HEJt+2Go[t#,oFpP?EZc[T[wvZsg<9;/W:pa;9MPN7+UqCEfNz71KPKtPts5KrãU"8DtF,BW;O;JwqqHY5jnz^J5%o]i,n?c0(SdSjx-i+3CoBTrãU"e\l4*\gsB3/JbO^Y?<*RX/*87ZG$jun0XyIxHPq1Np-JE$jpgy+?j-LY%1H&ym3ãU"%c0;JOc&<9\2,gUJ2l1Xgr6r3]g10CKt6>E[NzdT6r1)F(o1Ce>\$eqkU-$F*IvãU"2d%LGO7#VRBXqMS.ye.#%j1(vov#c>hlRm2LW*Iljrr+17_/obzsO$nc,)vl+vDA&6y]E>u7)5](XHC3PV9ãU"2aAWmn$$-Xhn#hr^?_<>r)2,sp7mu[5lzf^26faS)0XB*6D%cgl:0,%5MVe.0RDãU"M2']6b&3)>>RV:>Y4$Uaur6S4>j8QmM8sO$[s19*951'zsmkKpf'(74xK2/D_QEãU"PV=Q9x+BuP[wd];:B3u?$J^l;aXWG;5WTkWdãU"OVzc]x6 1 THEN colour# = 1ãããtex# = marble#(cur.x, cur.y, cur.z)ãIF tex% > 255 THEN tex# = 255ããc% = shade# * tex#ã ãããã IF c% > 255 THEN c% = 255ã buffer(x%, y%) = c%ãã ã END IFãã NEXT y%ãNEXT x%ããIF scale% = 0 THENã FOR y% = -20 TO 20ã FOR x% = -20 TO 20ã PSET (x% + 160, y% + 100), buffer(x%, y%)ã NEXT x%ã NEXT y%ãEND IFããLOOP WHILE INKEY$ = ""ãet# = TIMERãquit:ãIF et# = 0 THEN et# = TIMERããSCREEN 0ãWIDTH 80ãPRINT "ARCLIGHTS REAL TIME ITERATIVE RAY-TRACER"ãPRINT "INCLUDING PROCEDURAL TEXTURING"ãPRINT "IN Q-BASIC"ãPRINT "e-mail : ia53@rapid.co.uk"ãPRINT "web : www.users.rapid.net.uk/ia53/"ãPRINT "ICQ : 10620663"ãPRINTãPRINT "time taken ";ãtime# = et# - st#ãPRINT USING "##.####"; time#ãPRINT "frames drawn "; f%ãPRINT "frame rate ";ãPRINT USING "##.####"; (f% / time#);ãPRINT " FPS"ããFUNCTION marble# (x#, y#, z#)ãg# = 175 + (80 * COS(y# + (5 * turbulance#(x#, y#, z#, 1))))ããmarble# = g#ãEND FUNCTIONããFUNCTION noise# (x#, y#, z#)ã'generates noise using mathematical functionsããsine1# = -(4.3 * SIN(x# * 16))ãsine2# = -(9.9 * SIN(x# * 6))ãsine3# = -(10.1 * SIN(y# * 13))ãsine4# = (6.25 * SIN(y# * 5))ãsine5# = (8.3 * SIN(z# * 23))ãsine6# = -(3.74 * SIN(z# * 27))ããnoise# = (sine1# + sine2# + sine3# + sine4# + sine5# + sine6#) / 41ããEND FUNCTIONããFUNCTION stripe# (a#)ãstripe# = 175 + (80 * COS(a#))ãEND FUNCTIONããFUNCTION turbulance# (x#, y#, z#, at#)ããt# = 0 'starting value for turbulanceãs# = 1 'scaleããDOãt# = t# + (ABS(noise(x# / s#, y# / s#, z# / s#) * s#))ãs# = s# / 2ãLOOP UNTIL (s# <= at#)ããturbulance# = t#ããEND FUNCTIONãAnders Olofsson SCALABLE FONT anders.olofsson@mail.bip.net 10-24-98 (14:11) QB, QBasic, PDS 103 2842 SCALFONT.BAS'ã' Scalable font, by Anders Olofsson 1998.ã'----------------------------------------------------------------------------ã' ã' e-mail: anders.olofsson@mail.bip.netã'ã' This program uses single-precision math to scale the font,ã' which is made at runtime in the "sub makefont".ã'ã' The font contains all characters 0 to 255 and it requires 4096ã' bytes of stringspace.ã'ããDEFINT A-ZãDECLARE SUB fCenter (Text$, Y%, XSize%, YSize%, Colour%)ãDECLARE SUB makefont ()ãDECLARE SUB fPRINT (Text$, X%, Y%, C%, XSize%, YSize%)ããDIM SHARED Font(255) AS STRING 'The font, takes 4096 bytes.ããSCREEN 12ããDIM SHARED Bit(0 TO 7) AS INTEGER, ScreenWid AS INTEGERãã ScreenWid = 640 'Used by centering routineãã' Make this program faster:ãFOR T = 0 TO 7: Bit(T) = 2 ^ T: NEXTããmakefontããPAINT (0, 0), 1ããLINE (50, 10)-(600, 80), 4, BF: LINE (50, 10)-(600, 80), 0, Bãã fPRINT "Scalable font by:", 60, 20, 15, 30, 50ã fPRINT "Anders Olofsson 1998.", 100, 100, 0, 20, 15ã fPRINT "Anders Olofsson 1998.", 102, 102, 12, 20, 15ãã fCenter "This font is fully resizeable and uses bit patterns to store the font.", 130, 8, 20, 10ãã fCenter "This program is freeware!!", 170, 22, 28, 14ãã fCenter "But if you use it, please write my name somewhere", 200, 8, 24, 11ã fCenter "in your program.", 225, 8, 24, 11ãã fCenter "Scalable font, by Anders Olofsson 1998", 280, 12, 24, 13ã fCenter "E-mail: anders.olofsson@mail.bip.net", 310, 8, 40, 12ããENDããSUB fCenter (Text$, Y, XSize, YSize, Colour)ã fPRINT Text$, ScreenWid \ 2 - (XSize \ 2) * LEN(Text$), Y, Colour, XSize, YSizeãEND SUBããSUB fPRINT (Text$, X, Y, Colour, XSize, YSize)ãX1 = X: T$ = RTRIM$(Text$)ããYP! = 15 / YSize: FP! = 7 / XSizeãã FOR z = 1 TO LEN(T$)ã S = ASC(MID$(T$, z, 1)): YF! = 0ã FOR pY = 0 TO YSize - 1ã FB! = 0: FB% = 0: FontBits% = ASC(MID$(Font(S), YF% + 1, 1))ã FOR pX = 0 TO XSize - 1ã Clr = -((FontBits% AND Bit(7 - FB%)) <> 0)ã IF Clr THEN PSET (X1 + pX, Y + pY), Colourã FB! = FB! + FP!: FB% = FB!ã NEXTã YF! = YF! + YP!: YF% = YF!ã NEXT pYã X1 = X1 + XSizeã NEXT zãã' Original unscalable font-print:ã' FOR z = 1 TO LEN(T$)ã' S = ASC(MID$(T$, z, 1))ã' FOR pY = 0 TO 15ã' LINE (X1, Y + pY)-STEP(7, 0), C, , ASC(MID$(Font(S), pY + 1, 1)) * 128ã' NEXT pYã' X1 = X1 + 8ã' NEXT zããEND SUBããSUB makefontãCOLOR 7ã LOCATE 12, 10: PRINT "Creating internal font...": PALETTE 15, 0: COLOR 15ã FOR A = 0 TO 255ã IF A <> 7 AND A <> 12 THEN LOCATE 1, 1: PRINT CHR$(A)ã B$ = SPACE$(16)ã FOR Y = 0 TO 15ã L = 0ã FOR X = 0 TO 7ã IF POINT(X, Y) THEN L = L XOR Bit(X XOR 7)ã NEXTã MID$(B$, Y + 1, 1) = CHR$(L)ã NEXTã Font(Num) = B$ã Num = Num + 1ã NEXTã PALETTE: CLSãEND SUBãLeandro Pardini BMP LOAD/SAVE ROUTINES lpardini@cefex.com 10-25-98 (19:15) QB, QBasic, PDS 168 6576 BMP.BAS '============================================================================ã' BMP Load/Save routines lpardini@cefex.comã'============================================================================ã' These routines can load and write standard Windows uncompressed bitmaps.ã' RLE compressed and TrueColor bitmaps are not supported, yet. In the nextã' version, I plan to add support to read RLE-4 and RLE-8 bitmaps, and toã' load TrueColor bitmaps in grayscale mode. Suggestions welcome...ã'============================================================================ã' Speed on QBasic 1.1 - Cyrix 6x86 PR233 32MB RAM Windows 95 Plain DOSã' Load a 640x480x16 color bitmap: 2.35 secs 2.14 secsã' Save a 640x480x16 color bitmap: 7.72 secs 6.59 secsã'============================================================================ã' FUNCTION BMPLoad% (File$, PosX%, PosY%)ã' Displays a bitmap in screen coordinates PosX% and PosY%. Returns:ã' 0 - All OK.ã' 1 - Can't find BM signature (File isn't a BMP).ã' 2 - File is a RLE compressed bitmap.ã' 3 - Unsupported color depth (24-bit).ã'============================================================================ã' SUB BMPSave (File$, PosX1%, PosY1%, PosX2%, PosY2%, biBitCount%)ã' Saves a screen area to a file. biBitCount% can be:ã' 1 - Monochrome bitmap.ã' 4 - 16 color bitmap.ã' 8 - 256 color bitmap.ã'============================================================================ãã'$STATICãDEFINT A-ZããDECLARE FUNCTION BMPLoad% (File$, PosX%, PosY%)ãDECLARE SUB BMPSave (File$, PosX1%, PosY1%, PosX2%, PosY2%, biBitCount%)ããSCREEN 12ããa% = BMPLoad%("C:\Windows\Instal~1.bmp", 0, 0)ãBMPSave "Install2.bmp", 0, 0, 639, 479, 4ããFUNCTION BMPLoad% (File$, PosX%, PosY%)ãOPEN File$ FOR BINARY ACCESS READ AS #1ã GET #1, 1, bfType%ã IF bfType% <> 19778 THEN BMPLoad% = 1: EXIT FUNCTIONã GET #1, 31, biCompression%ã IF biCompression% <> 0 THEN BMPLoad% = 2: EXIT FUNCTIONã GET #1, 29, biBitCount%ã SELECT CASE biBitCount%ã CASE 1: bmColors% = 2: bmStep% = 8ã CASE 4: bmColors% = 16: bmStep% = 2ã CASE 8: bmColors% = 256: bmStep% = 1ã CASE ELSE: BMPLoad% = 3: EXIT FUNCTIONã END SELECTã GET #1, 11, bfOffBits%ã GET #1, 19, biWidth%ã GET #1, 23, biHeight%ã SEEK #1, 55ã FOR bmPalette% = 0 TO bmColors% - 1ã bmBlue% = ASC(INPUT$(1, 1)) \ 4ã bmGreen% = ASC(INPUT$(1, 1)) \ 4ã bmRed% = ASC(INPUT$(2, 1)) \ 4ã OUT &H3C8, bmPalette%ã OUT &H3C9, bmRed%ã OUT &H3C9, bmGreen%ã OUT &H3C9, bmBlue%ã NEXT bmPalette%ã LINE (PosX%, PosY%)-(PosX% + biWidth& - 1, PosY% + biHeight& - 1), 0, BFã SEEK #1, bfOffBits% + 1ã FOR bmPosY% = PosY% + biHeight% - 1 TO PosY% STEP -1ã bmBytes% = 0ã FOR bmPosX% = PosX% TO PosX% + biWidth% - 1 STEP bmStep%ã bmBytes% = bmBytes% + 1ã bmPixel% = ASC(INPUT$(1, 1))ã SELECT CASE bmColors%ã CASE 2ã IF (bmPixel% AND 128) THEN PSET (bmPosX%, bmPosY%), 1ã IF (bmPixel% AND 64) THEN PSET (bmPosX% + 1, bmPosY%), 1ã IF (bmPixel% AND 32) THEN PSET (bmPosX% + 2, bmPosY%), 1ã IF (bmPixel% AND 16) THEN PSET (bmPosX% + 3, bmPosY%), 1ã IF (bmPixel% AND 8) THEN PSET (bmPosX% + 4, bmPosY%), 1ã IF (bmPixel% AND 4) THEN PSET (bmPosX% + 5, bmPosY%), 1ã IF (bmPixel% AND 2) THEN PSET (bmPosX% + 6, bmPosY%), 1ã IF (bmPixel% AND 1) THEN PSET (bmPosX% + 7, bmPosY%), 1ã CASE 16ã IF bmPixel% > 0 THENã PSET (bmPosX%, bmPosY%), bmPixel% \ 16ã PSET (bmPosX% + 1, bmPosY%), bmPixel% AND 15ã END IFã CASE 256ã IF bmPixel% > 0 THEN PSET (bmPosX%, bmPosY%), bmPixel%ã END SELECTã NEXT bmPosX%ã SELECT CASE bmBytes% MOD 4ã CASE 1: bmPixel% = ASC(INPUT$(3, 1))ã CASE 2: bmPixel% = ASC(INPUT$(2, 1))ã CASE 3: bmPixel% = ASC(INPUT$(1, 1))ã END SELECTã NEXT bmPosY%ãCLOSE #1ãEND FUNCTIONããSUB BMPSave (File$, PosX1%, PosY1%, PosX2%, PosY2%, biBitCount%)ãbiWidth& = PosX2% - PosX1% + 1ãbiHeight& = PosY2% - PosY1% + 1ãOPEN File$ FOR BINARY ACCESS WRITE AS #1ãbfType% = 19778: PUT #1, , bfType%ãbfSize& = 0: PUT #1, , bfSize&ãbfReserved& = 0: PUT #1, , bfReserved&ãSELECT CASE biBitCount%ã CASE 1: bfOffBits& = 62ã CASE 4: bfOffBits& = 118ã CASE 8: bfOffBits& = 1078ãEND SELECTãPUT #1, , bfOffBits&ãbiSize& = 40: PUT #1, , biSize&ãPUT #1, , biWidth&ãPUT #1, , biHeight&ãbiPlanes% = 1: PUT #1, , biPlanes%ãPUT #1, , biBitCount%ãbiCompression& = 0: PUT #1, , biCompression&ãbiSizeImage& = 0: PUT #1, , biSizeImage&ãbiXPelsPerMeter& = 72: PUT #1, , biXPelsPerMeter&ãbiYPelsPerMeter& = 72: PUT #1, , biYPelsPerMeter&ãbiClrUsed& = 0: PUT #1, , biClrUsed&ãbiClrImportant& = 0: PUT #1, , biClrImportant&ãSELECT CASE biBitCount%ã CASE 1: bmColors% = 2: bmStep% = 8ã CASE 4: bmColors% = 16: bmStep% = 2ã CASE 8: bmColors% = 256: bmStep% = 1ãEND SELECTãFOR bmPalette% = 0 TO bmColors% - 1ã OUT &H3C7, bmPalette%ã bmRed% = INP(&H3C9) * 4ã bmGreen% = INP(&H3C9) * 4ã bmBlue% = INP(&H3C9) * 4ã bmRGB$ = CHR$(bmBlue%) + CHR$(bmGreen%) + CHR$(bmRed%) + CHR$(0)ã PUT #1, , bmRGB$ãNEXT bmPalette%ãFOR bmPosY% = PosY2% TO PosY1% STEP -1ãbmBytes% = 0ãFOR bmPosX% = PosX1% TO PosX2% STEP bmStep%ã bmBytes% = bmBytes% + 1ã SELECT CASE bmColors%ã CASE 2ã bmPixel% = 0ã IF POINT(bmPosX%, bmPosY%) > 0 THEN bmPixel% = bmPixel% + 128ã IF POINT(bmPosX% + 1, bmPosY%) > 0 THEN bmPixel% = bmPixel% + 64ã IF POINT(bmPosX% + 2, bmPosY%) > 0 THEN bmPixel% = bmPixel% + 32ã IF POINT(bmPosX% + 3, bmPosY%) > 0 THEN bmPixel% = bmPixel% + 16ã IF POINT(bmPosX% + 4, bmPosY%) > 0 THEN bmPixel% = bmPixel% + 8ã IF POINT(bmPosX% + 5, bmPosY%) > 0 THEN bmPixel% = bmPixel% + 4ã IF POINT(bmPosX% + 6, bmPosY%) > 0 THEN bmPixel% = bmPixel% + 2ã IF POINT(bmPosX% + 7, bmPosY%) > 0 THEN bmPixel% = bmPixel% + 1ã bmPixel$ = CHR$(bmPixel%)ã CASE 16ã bmPixel$ = CHR$((POINT(bmPosX%, bmPosY%) * 16) + POINT(bmPosX% + 1, bmPosY%))ã CASE 256ã bmPixel$ = CHR$(POINT(bmPosX%, bmPosY%))ã END SELECTã PUT #1, , bmPixel$ãNEXT bmPosX%ãSELECT CASE bmBytes% MOD 4ã CASE 0: bmAlign$ = ""ã CASE 1: bmAlign$ = CHR$(0) + CHR$(0) + CHR$(0)ã CASE 2: bmAlign$ = CHR$(0) + CHR$(0)ã CASE 3: bmAlign$ = CHR$(0)ãEND SELECTãPUT #1, , bmAlign$ãNEXT bmPosY%ãCLOSE #1ãEND SUBãLeandro Pardini WEB LIKE SPHERE lpardini@cefex.com 10-25-98 (19:15) QB, QBasic, PDS 33 988 MANDALA.BAS '========================================================ã' This is a program I created four years ago and I don't know why, but itã' looks good, like a web. Playing with the numbers you'll get some prettyã' patterns.ã'============================================================================ãã'$STATICãDEFINT A-ZããDECLARE SUB Mandala (PosX%, PosY%, Diametro%, Vertices%, ColorNum%)ããSCREEN 12ãMandala 319, 239, 240, 29, 15ãWHILE INKEY$ = "": WENDãSCREEN 0ãENDããSUB Mandala (PosX, PosY, Diametro, Vertices, ColorNum)ããDIM VertX(Vertices), VertY(Vertices)ããFOR Iniciar = 0 TO VerticesãVertX(Iniciar) = PosX + (SIN(6.283185 * (Iniciar / Vertices)) * Diametro)ãVertY(Iniciar) = PosY + (COS(6.283185 * (Iniciar / Vertices)) * Diametro)ãNEXT IniciarããFOR Dibujar1 = 0 TO VerticesãFOR Dibujar2 = 0 TO VerticesãLINE (VertX(Dibujar1), VertY(Dibujar1))-(VertX(Dibujar2), VertY(Dibujar2)), ColorNumãNEXT Dibujar2ãNEXT Dibujar1ããEND SUBãAnders Olofsson OPTIMIZED RAYCASTER anders.olofsson@mail.bip.net 10-30-98 (13:57) QB, QBasic, PDS 283 8290 RAYCAST.BAS ' Raycaster, by Anders Olofsson 1998ã' e-mail: anders.olofsson@mail.bip.netã'ã' This raycaster is basically a heavily modified versionã' of Peter Cooper's raycaster, but it's optimized...ã'ã' To test the fps-rate, press "f" and to change resolution,ã' use the "+"/"-" keys.ã'ã' On a very, very slow math weak SX machine, I get about 25-30 fps whenã' compiled.ã'ã' Compile for best performance!ã'ããDEFINT A-ZãDECLARE FUNCTION KeyStat% ()ãDECLARE SUB InitPalette ()ãDECLARE SUB pal (C%, r%, g%, B%)ãDECLARE SUB WalkAround ()ãDECLARE SUB InitTables ()ãDECLARE FUNCTION Keyboard% ()ãDECLARE SUB Readlevel ()ããDIM SHARED Walls(1 TO 30, 1 TO 30) AS INTEGERãDIM SHARED Sine(0 TO 360) AS INTEGER, Cosine(0 TO 360) AS INTEGERããDIM SHARED PlayerX AS SINGLE, PlayerY AS SINGLE, MaxX, MaxY, ScreenStepããCONST RotateStep = 3ãCONST Compass = 0ããCONST WallColor = 1, FloorColor = 65, SkyColor = 64ãCONST CompassColor = 66, CompassBorderColor = 67ãã' Recommended: 4 to 10ãã ScreenStep = 5ããSCREEN 13ããRESTORE Level1ããInitTablesãReadlevelããWalkAroundããENDããããããããLevel1:ãDATA 30,30 : 'Max X&YãDATA 10,10 : 'Start of playerãDATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1ãDATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1ãDATA 1,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,0,0,0,0,0,0,0,0,1ãDATA 1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1ãDATA 1,0,0,0,1,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1ãDATA 1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1ãDATA 1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1ãDATA 1,0,0,0,1,0,0,0,0,0,1,0,1,0,1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,1ãDATA 1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1ãDATA 1,0,0,0,1,0,0,0,0,0,1,0,1,1,1,1,0,0,1,0,0,0,0,0,0,0,0,0,0,1ãDATA 1,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1ãDATA 1,0,0,0,1,0,0,0,0,0,1,0,1,1,1,1,0,0,1,0,0,0,0,0,0,0,0,0,0,1ãDATA 1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1ãDATA 1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1ãDATA 1,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1ãDATA 1,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1ãDATA 1,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1ãDATA 1,0,0,0,1,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,0,0,1ãDATA 1,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1ãDATA 1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,1ãDATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1ãDATA 1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1ãDATA 1,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1ãDATA 1,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1ãDATA 1,0,0,0,0,0,0,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,0,1,0,1ãDATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,1,0,1ãDATA 1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,1ãDATA 1,0,0,0,1,0,0,1,1,0,1,1,1,1,0,1,1,1,0,0,1,1,0,1,1,1,1,1,0,1ãDATA 1,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1ãDATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1ããSUB InitPaletteãFOR I = 1 TO 63ã pal 64 - I, I \ 4, I \ 4, IãNEXTãpal 64, 45, 45, 63ãpal 65, 10, 15, 10ãEND SUBããSUB InitTablesãRad! = (4 * ATN(1)) / 180ãFOR T% = 0 TO 360ã Sine(T%) = SIN(T% * Rad!) * 100ã Cosine(T%) = COS(T% * Rad!) * 100ãNEXTãEND SUBããFUNCTION Keyboardã DOã S$ = INKEY$ã LOOP UNTIL LEN(S$)ã IF LEN(S$) = 1 THENã Keyboard = ASC(S$)ã ELSEIF LEN(S$) = 2 THENã Keyboard = -ASC(RIGHT$(S$, 1))ã END IFãEND FUNCTIONããFUNCTION KeyStatãDEF SEG = &H40: KeyStat = PEEK(&H17)ãEND FUNCTIONããSUB pal (C, r, g, B)ãOUT &H3C8, C: OUT &H3C9, r: OUT &H3C9, g: OUT &H3C9, BãEND SUBããSUB ReadlevelãREAD MaxX, MaxYãREAD PlayerX, PlayerYãFOR X = 1 TO MaxXãFOR Y = 1 TO MaxYãREAD Wall: Walls(X, Y) = WallãNEXTãNEXTãEND SUBããSUB Scroll (Dir, X1, Y1, X2, Y2)ã REDIM Buffer(((X2 - X1) * 10)) AS INTEGERãã IF Dir = 1 THENã FOR Y = Y1 TO Y2 STEP 10ã IF Y > Y2 THEN EXIT FORã IF Buffer(0) THEN PUT (X1, Y - 13), Buffer, PSETã GET (X1, Y)-(X2, Y + 10), Bufferã NEXTãã ELSEIF Dir = 2 THENã FOR Y = Y2 TO Y1 STEP -10ã IF Y < Y1 THEN EXIT FORã IF Buffer(0) THEN PUT (X1, Y + 13), Buffer, PSETã GET (X1, Y)-(X2, Y + 10), Bufferã NEXTãã ELSEIF Dir = 3 THENã FOR X = X2 TO X1 STEP -10ã IF X < X1 THEN EXIT FORã IF Buffer(0) THEN PUT (X + 15, Y1), Buffer, PSETã GET (X, Y1)-(X + 10, Y2), Bufferã NEXTãã ELSEIF Dir = 4 THENã FOR X = X1 TO X2 STEP 10ã IF X > X2 THEN EXIT FORã IF Buffer(0) THEN PUT (X - 15, Y1), Buffer, PSETã GET (X, Y1)-(X + 10, Y2), Bufferã NEXTãã END IFããEND SUBããSUB WalkAroundããInitPaletteããDrawStep = 320 \ ScreenStepããpal 255, 60, 60, 60: COLOR 255ããGOSUB DrawScreenããDOã ã Keys = Keyboardã KeyBits = KeyStatã Shift = ((KeyBits AND 2) OR (KeyBits AND 1)) <> 0ã Alt = (KeyBits AND 8) <> 0ãã SELECT CASE Keysã CASE 102, 70 'FPS testã LOCATE 1, 1: PRINT "This will take five seconds."ã PRINT " Press a key... ": SLEEP: X$ = INKEY$ã T! = TIMER: FPS = 0ã DOã GOSUB DrawScreen: FPS = FPS + 1ã LOOP UNTIL TIMER - T! > 5ã FPS = FPS \ 5ã LOCATE 1, 1: PRINT "FPS rate is"; FPSãã CASE 43 ' Decrease screen-stepã IF ScreenStep > 3 THEN ScreenStep = ScreenStep - 1: DrawStep = 320 \ ScreenStep: GOSUB DrawScreenã LOCATE 1, 1: PRINT "Resolution ="; ScreenStepãã CASE 45 ' Increase screen-stepã IF ScreenStep < 10 THEN ScreenStep = ScreenStep + 1: DrawStep = 320 \ ScreenStep: GOSUB DrawScreenã LOCATE 1, 1: PRINT "Resolution ="; ScreenStepãã CASE 8 ' Rotate 180 degreesã FOR I = 1 TO 15ã Current = (Current + 12) MOD 360: GOSUB DrawScreen: WAIT &H3DA, 8ã NEXTã CASE -77 'Rightã IF Shift THEN Current = Current + RotateStepã Current = Current + RotateStep: GOSUB DrawScreenã CASE -75ã IF Shift THEN Current = Current - RotateStepã Current = Current - RotateStep: IF Current < 0 THEN Current = Current + 360ã GOSUB DrawScreenã CASE -72ã opx = PlayerX: opy = PlayerYã IF Shift = 0 THENã PlayerX = PlayerX + (Sine((Count - 30) MOD 360) / 50)ã PlayerY = PlayerY + (Cosine((Count - 30) MOD 360) / 50)ã ELSEã PlayerX = PlayerX + (Sine((Count - 30) MOD 360) / 50) * 2ã PlayerY = PlayerY + (Cosine((Count - 30) MOD 360) / 50) * 2ã END IFã IF Walls(((PlayerX + 1) * 99) \ 1000 + 1, ((PlayerY + 1) * 99) \ 1000 + 1) THENã LOCATE 1, 1: PRINT "Did'nt you see that wall??": PlayerX = opx: PlayerY = opyã ELSEã GOSUB DrawScreenã END IFã ã CASE -80ã opx = PlayerX: opy = PlayerYã IF Shift = 0 THENã PlayerX = PlayerX - (Sine((Count - 30) MOD 360) / 50)ã PlayerY = PlayerY - (Cosine((Count - 30) MOD 360) / 50)ã ELSEã PlayerX = PlayerX - (Sine((Count - 30) MOD 360) / 50) * 2ã PlayerY = PlayerY - (Cosine((Count - 30) MOD 360) / 50) * 2ã END IFã IF Walls(((PlayerX + 1) * 99) \ 1000 + 1, ((PlayerY + 1) * 99) \ 1000 + 1) THENã LOCATE 1, 1: PRINT "You don't have eyes in your neck...": PlayerX = opx: PlayerY = opyã ELSEã GOSUB DrawScreenã END IFã ã END SELECTããLOOP UNTIL Keys = 27ããEXIT SUBãããããDrawScreen:ãpx = (PlayerX + 1) * 99: py = (PlayerY + 1) * 99ãFOR Count = Current TO Current + DrawStepã C = Count MOD 360: Sin1 = Sine(C): Cos1 = Cosine(C)ã DrawX = px: DrawY = py: Distance = 0ã DOã DrawX = DrawX + Sin1: DrawY = DrawY + Cos1ã Distance = Distance + 1ã Wall = Walls(DrawX \ 1000 + 1, DrawY \ 1000 + 1)ã LOOP UNTIL Wallã 'LOCATE 1, 1: PRINT Distance: SLEEPã X = (Count - Current): X = X * ScreenStepã Avg = (1000 \ Distance): ColorAdd = Distance \ 5: IF ColorAdd > 60 THEN ColorAdd = 60ã LINE (X, 0)-STEP(ScreenStep, 99 - Avg), SkyColor, BFã LINE (X, 101 + Avg)-(X + ScreenStep, 200), FloorColor, BFã LINE (X, 100 - Avg)-(X + ScreenStep, 100 + Avg), ColorAdd + WallColor, BFãNEXTããIF Compass THENã CIRCLE (25, 180), 15, CompassBorderColorã PAINT (27, 182), CompassColor, CompassBorderColorã PSET (25, 180), 100: DRAW "C12TA" + STR$(Current MOD 360) + "D10"ãEND IFããRETURNããEND SUBãYousuf Philips OPENBMP VERSION 0.3 philipz@emirates.net.ae 11-01-98 (05:17) QB, QBasic, PDS 473 17508 .OPENBMP.BAS''''''''''''''''''''''''''''''''''''''''ã' Program : Loads BMP Files 'ã' Name : OPENBMP Version 0.3 'ã' Programmer : Yousuf Philips 'ã' Company : Y P I 'ã' Updated On : 12th of Sept. 1998 'ã' Email - [philipz85@hotmail.com] 'ã' [http://members.xoom.com/Philipz/] 'ã''''''''''''''''''''''''''''''''''''''''ãã'/* Do not edit this file if you distribute it. */'ã'/* (c) Copyrighted by YPI in 1998 | All Rights Reserved | Public Domain */'ãã'/* This program has been created by YPI (Basic Programming Incorporation) */'ã'/* as a utility to load BMP files. Aaron Zabudsky is the first programmer */'ã'/* to load BMP files in BASIC and his loader is known as SHOWBMP.BAS. I */'ã'/* have been in contact with him and have to say that his commenting in */'ã'/* SHOWBMP.BAS of the BMP file format was excellent and simple. I would */'ã'/* like to give credit and special thanks to him. This loader was created */'ã'/* to load all Windows BMPs and is fast in loading compressed BMPs. */'ã'/* This BMP loader is part of a series of BMP loaders which have been */'ã'/* created by YPI. The source code for version 0.1 and 0.2 haven't been */'ã'/* distributed and won't because this version (0.3) is many times faster */'ã'/* and is able to load all Windows BMPs but if you really want, just ask. */'ãã'/* If you use any of this code in your program then you must credit YPI */'ã'/* and also Aaron Zabudsky. This program has been placed in Public Domain */'ã'/* and All Rights Are Reserved. */'ãã'/* YPI has also created a PCX loader and an FLI player. The source can be */'ã'/* gotten from our website */'ã'/* The YPI Website has programs for beginners, tutorials and utilities. */'ã'/* Aaron Zabudsky's email is */'ããDECLARE SUB BMPInfo (FileName$)ãDECLARE SUB SHOWBMP (FileName$)ããDIM SHARED X, Y AS INTEGERããCLSãPRINTãPRINT " Fast BMP Loader for QBASIC - By YPI (BASIC Programming Incorporation)"ã'FILES "*.bmp"ãINPUT " Enter File Name - ", FileName$ããIF LEN(LTRIM$(FileName$)) = 0 THENã ENDãELSEIF INSTR(FileName$, ".") = 0 THENã FileName$ = FileName$ + ".bmp"ãEND IFããCALL BMPInfo(FileName$)ãWait$ = INPUT$(1)ãCALL SHOWBMP(FileName$)ãWait$ = INPUT$(1)ããSUB BMPInfo (FileName$)ãã'/* Opens the specified File Name */'ãOPEN FileName$ FOR BINARY AS #1ã'/* If the file name specified is empty then a line of text is printed, */'ã'/* the file is then deleted and the program ends */'ãIF LOF(1) = 0 THENã PRINT " FILE IS EMPTY"ã CLOSE #1ã KILL FileName$ã EXIT SUBãEND IFããCLSã'/* Extracts the first 2 bytes of the file */'ãValidBMP$ = SPACE$(2)ãGET #1, 1, ValidBMP$: PRINTãIF ValidBMP$ = "BM" THENã PRINT " Valid BMP FILE"ãELSEã PRINT " InValid BMP FILE"ãEND IFãã'/* Extracts the Size of the file without the header */'ãSizeOfFile$ = SPACE$(4)ãGET #1, 3, SizeOfFile$ãPRINT " Size of the file -"; CVL(SizeOfFile$); " or "; LOF(1)ãã'/* Extracts the offset of the picture data in the file */'ãLocationOfPictureData$ = SPACE$(4)ãGET #1, 11, LocationOfPictureData$ãPRINT " Location in file of Picture Data -"; CVL(LocationOfPictureData$)ãã'/* Extracts the BMP type (Win or OS/2) */'ãBMPType$ = SPACE$(4)ãGET #1, 15, BMPType$ãPRINT : PRINT " BMP Type - ";ãIF CVL(BMPType$) = 12 THENã PRINT "OS/2"ã PRINT " Size Of Header - 12"ãELSEIF CVL(BMPType$) = 40 THENã PRINT "Windows"ã PRINT " Size Of Header - 40"ãELSEã PRINT "Unknown Type"ãEND IFãã'/* Extracts the Width and Height in Pixels of the Image */'ã'/* and also the number of bits per pixel (bpp) */'ãPixelWidth$ = SPACE$(4): PixelHeight$ = SPACE$(4)ãBitsPerPixel$ = SPACE$(2): NoPlanes$ = SPACE$(2): Compress$ = SPACE$(4)ãGET #1, 19, PixelWidth$ãGET #1, 23, PixelHeight$ãGET #1, 27, NoPlanes$ãGET #1, 29, BitsPerPixel$ãGET #1, 31, Compress$ãPRINTãPRINT " Width of Image in Pixels -"; CVL(PixelWidth$)ãPRINT " Height of Image in Pixels -"; CVL(PixelHeight$)ãPRINT " Number of Planes -"; CVI(NoPlanes$)ãPRINT " Number of Bits Per Pixel (bpp) -"; CVI(BitsPerPixel$)ãPRINT " Number of Colors Used in the Image -"; 2 ^ CVI(BitsPerPixel$)ãIF CVL(Compress$) = 0 THENã PRINT " No Compression"ãELSEIF CVL(Compress$) = 1 THENã PRINT " RLE - 8-Bit Compression"ãELSEIF CVL(Compress$) = 2 THENã PRINT " RLE - 4-Bit Compression"ãEND IFãCLOSEããEND SUBããSUB SHOWBMP (FileName$)ããOPEN FileName$ FOR BINARY AS #1ãIF LOF(1) = 0 THENã PRINT " FILE IS EMPTY"ã CLOSE #255ã KILL FileName$ã EXIT SUBãEND IFãã'/* Extracts the first 2 bytes of the file */'ãValidBMP$ = SPACE$(2)ãGET #1, 1, ValidBMP$ã'/* If the first 2 bytes of the file are not BM then a line of text is printed, */'ã'/* and the program ends */'ãIF ValidBMP$ <> "BM" THENã PRINT " THE FILE SPECIFIED IS NOT A VALID BMP"ã EXIT SUBãEND IFãã'/* Extracts the offset of the picture data in the file */'ãLocationOfPictureData$ = SPACE$(4)ãGET #1, 11, LocationOfPictureData$ãLocationOfPictureData = CVL(LocationOfPictureData$)ãã'/* Extracts the BMP type (Win or OS/2) */'ãBMPType$ = SPACE$(4)ãGET #1, 15, BMPType$ã'/* If the BMPType is for OS/2 then the a line of text is printed, then */'ã'/* program ends */'ãIF CVL(BMPType$) = 12 OR CVL(BMPType$) = 64 THENã PRINT " THIS BMP IS FOR THE OS/2 AND CAN'T BE OPENED IN THIS VERSION OF OPENBMP"ã PRINT " PLEASE SEND ANY OS/2 BMP TO phililpz85@hotmail.com"ã PRINT " BY SENDING OS/2 BMP's TO US, WE WILL HOPEFULLY BE ABLE TO OPEN THEM IN THE"ã PRINT " NEXT VERSION OF OPENBMP"ã EXIT SUBãEND IFãã'/* Extracts the Width and Height in Pixels of the Image */'ã'/* and also the number of bits per pixel (bpp) */'ãPixelWidth$ = SPACE$(4)ãPixelHeight$ = SPACE$(4)ãBitsPerPixel$ = SPACE$(2)ãCompression$ = SPACE$(4)ãGET #1, 19, PixelWidth$ãGET #1, 23, PixelHeight$ãGET #1, 29, BitsPerPixel$ãGET #1, 31, Compression$ãPixelWidth = CVL(PixelWidth$)ãPixelHeight = CVL(PixelHeight$)ãBitsPerPixel = CVI(BitsPerPixel$)ãNumberOfColors = 2 ^ BitsPerPixelãã'/* Changing to suitable screen modes to display the Image */'ãIF BitsPerPixel = 1 THENã IF PixelWidth > 640 OR PixelHeight > 480 THENã PRINT " 1-BIT IMAGE IS TO LARGE"ã EXIT SUBã END IFã SCREEN 11ãELSEIF BitsPerPixel = 4 THENã SCREEN 12ãELSEIF BitsPerPixel = 8 THENã SCREEN 13ãEND IFãã'/* If image is not 24-bit then load palette information from file */'ãIF BitsPerPixel <> 24 THENã '/* Extracts Palette information for the colors used in the image */'ã PaletteColors$ = SPACE$(NumberOfColors * 4)ã GET #1, 55, PaletteColors$ãã FOR Loops = 0 TO NumberOfColors - 1ã '/* Changes the Palette of each color to the one specified in the file */'ã IF BitsPerPixel = 1 AND Loops = 1 THEN Loops = 15ã OUT &H3C8, Loopsã IF BitsPerPixel = 1 AND Loops = 15 THEN Loops = 1ã OUT &H3C9, ASC(MID$(PaletteColors$, Loops * 4 + 3, 1)) \ 4 'Redã OUT &H3C9, ASC(MID$(PaletteColors$, Loops * 4 + 2, 1)) \ 4 'Greenã OUT &H3C9, ASC(MID$(PaletteColors$, Loops * 4 + 1, 1)) \ 4 'Blueã NEXT Loopsãã '/* Finds correct location of Picture data */'ã IF LocationOfPictureData = 0 THENã LocationOfPictureData = LOC(255) + 1ã ELSEã LocationOfPictureData = LocationOfPictureData + 1ã END IFãEND IFããIF BitsPerPixel = 24 THENã SCREEN 13ã PaletteBlue$ = SPACE$(1): PaletteGreen$ = SPACE$(1): PaletteRed$ = SPACE$(1)ã SEEK #1, LocationOfPictureDataã FOR Loops = 0 TO 255ã OUT &H3C8, Loopsã OUT &H3C9, Loops \ 4ã OUT &H3C9, Loops \ 4ã OUT &H3C9, Loops \ 4ã NEXT Loopsã ActualWidth = PixelWidth / 320: ActualHeight = PixelHeight / 200ã IF ActualWidth < 1 THEN ActualWidth = 1ã IF ActualHeight < 1 THEN ActualHeight = 1ã IF (4 - ((PixelWidth * 3) MOD 4)) = 4 THENã LineExtract$ = SPACE$(PixelWidth * 3)ã ELSEã LineExtract$ = SPACE$((PixelWidth * 3) + (4 - ((PixelWidth * 3) MOD 4)))ã END IFã IF ActualWidth = 1 AND ActualHeight = 1 THENã FOR Y = PixelHeight - 1 TO 0 STEP -1ã GET #1, , LineExtract$ã FOR X = 0 TO PixelWidth - 1ã PaletteBlue$ = MID$(LineExtract$, X * 3 + 1, 1)ã PSET (X, Y), ASC(PaletteBlue$)ã NEXT Xã NEXT Yã ELSEã FOR Y = PixelHeight - 1 TO 0 STEP -1ã GET #1, , LineExtract$ã FOR X = 0 TO PixelWidth - 1ã PaletteBlue$ = MID$(LineExtract$, X * 3 + 1, 1)ã PSET (X / ActualWidth, Y / ActualHeight), ASC(PaletteBlue$)ã NEXT Xã NEXT Yã END IFã EXIT SUBãELSEIF CVL(Compression$) = 1 THENã PixelColors$ = SPACE$(1): NoOfSameColors$ = SPACE$(1)ã RightMovement$ = SPACE$(1): UpMovement$ = SPACE$(1)ã ActualWidth = PixelWidth / 320: ActualHeight = PixelHeight / 200ã IF ActualWidth < 1 THEN ActualWidth = 1ã IF ActualHeight < 1 THEN ActualHeight = 1ã X = 0: Y = PixelHeight - 1ã DOã GET #1, , NoOfSameColors$ã IF ASC(NoOfSameColors$) <> 0 THENã GET #1, , PixelColors$ã IF X + ASC(NoOfSameColors$) = PixelWidth THEN NoOfSameColors$ = CHR$(ASC(NoOfSameColors$) - 1)ã LINE (X / ActualWidth, Y / ActualHeight)-STEP(ASC(NoOfSameColors$) / ActualWidth, 0), ASC(PixelColors$)ã X = X + ASC(NoOfSameColors$)ã ELSEã GET #1, , PixelColors$ã IF ASC(PixelColors$) = 0 THENã X = 0: Y = Y - 1ã IF Y < 0 THEN EXIT SUBã '/* Used to skip the unnecessary lines in large picturesã WHILE Y MOD ActualHeight <> 0ã DOã GET #1, , NoOfSameColors$ã IF ASC(NoOfSameColors$) <> 0 THENã GET #1, , PixelColors$ã ELSEã GET #1, , PixelColors$ã IF ASC(PixelColors$) = 0 THENã EXIT DOã ELSEIF ASC(PixelColors$) = 1 THENã EXIT SUBã ELSEIF ASC(PixelColors$) = 2 THENã Bytez$ = SPACE$(2)ã GET #1, , Bytez$ã EXIT DOã ELSEã Bytez$ = SPACE$(ASC(PixelColors$))ã IF ASC(PixelColors$) MOD 2 = 1 THEN Bytez$ = Bytez$ + " "ã GET #1, , Bytez$ã END IFã END IFã LOOPã Y = Y - 1ã WENDã ELSEIF ASC(PixelColors$) = 1 THENã EXIT DOã ELSEIF ASC(PixelColors$) = 2 THENã GET #1, , RightMovement$ã GET #1, , UpMovement$ã X = X + ASC(RightMovement$): Y = Y + ASC(UpMovement$)ã ELSEã PixelColor$ = SPACE$(1)ã FOR Loops = 1 TO ASC(PixelColors$)ã GET #1, , PixelColor$ã PSET (X / ActualWidth, Y / ActualHeight), ASC(PixelColor$)ã X = X + 1ã NEXT Loopsã IF ASC(PixelColors$) MOD 2 = 1 THEN GET #1, , PixelColor$ã END IFã END IFã LOOPã EXIT SUBãELSEIF CVL(Compression$) = 2 THENã PixelColors$ = SPACE$(1): NoOfSameColors$ = SPACE$(1)ã RightMovement$ = SPACE$(1): UpMovement$ = SPACE$(1)ã ActualWidth = PixelWidth / 640: ActualHeight = PixelHeight / 480ã IF ActualWidth < 1 THEN ActualWidth = 1ã IF ActualHeight < 1 THEN ActualHeight = 1ã X = 0: Y = PixelHeight - 1ã DOã GET #1, , NoOfSameColors$ã IF ASC(NoOfSameColors$) <> 0 THENã GET #1, , PixelColors$ã FOR Loops = 0 TO ASC(NoOfSameColors$) - 1 STEP 2ã PSET (X / ActualWidth, Y / ActualHeight), ASC(PixelColors$) \ 16ã X = X + 1ã IF Loops + 1 <> ASC(NoOfSameColors$) THENã PSET (X / ActualWidth, Y / ActualHeight), ASC(PixelColors$) AND 15ã X = X + 1ã END IFã NEXT Loopsã ELSEã GET #1, , PixelColors$ã IF ASC(PixelColors$) = 0 THENã X = 0: Y = Y - 1ã IF Y < 0 THEN EXIT SUBã '/* Used to skip the unnecessary lines in large picturesã WHILE Y MOD ActualHeight <> 0ã DOã GET #1, , NoOfSameColors$ã IF ASC(NoOfSameColors$) <> 0 THENã GET #1, , PixelColors$ã ELSEã GET #1, , PixelColors$ã IF ASC(PixelColors$) = 0 THENã EXIT DOã ELSEIF ASC(PixelColors$) = 1 THENã EXIT SUBã ELSEIF ASC(PixelColors$) = 2 THENã Bytez$ = SPACE$(2)ã GET #1, , Bytez$ã EXIT DOã ELSEã PixelColors = ASC(PixelColors$)ã IF PixelColors MOD 2 = 1 THENã PixelColors = PixelColors + 1ã END IFã PixelColors = PixelColors / 2ã IF PixelColors MOD 2 = 1 THENã PixelColors = PixelColors + 1ã END IFã Bytez$ = SPACE$(PixelColors)ã GET #1, , Bytez$ã END IFã END IFã LOOPã Y = Y - 1ã WENDã ELSEIF ASC(PixelColors$) = 1 THENã EXIT DOã ELSEIF ASC(PixelColors$) = 2 THENã GET #1, , RightMovement$ã GET #1, , UpMovement$ã X = X + ASC(RightMovement$): Y = Y + ASC(UpMovement$)ã ELSEã PixelColor$ = SPACE$(1): PixelColors = ASC(PixelColors$)ã FOR Loops = 0 TO PixelColors - 1ã IF Loops MOD 2 = 0 THENã GET #1, , PixelColor$ã PSET (X / ActualWidth, Y / ActualHeight), ASC(PixelColor$) \ 16ã X = X + 1ã END IFã IF Loops MOD 2 = 1 THENã PSET (X / ActualWidth, Y / ActualHeight), ASC(PixelColor$) AND 15ã X = X + 1ã END IFã NEXT Loopsã IF PixelColors MOD 2 = 1 THENã PixelColors = PixelColors + 1ã END IFã NoOfBytes = PixelColors / 2ã IF (NoOfBytes MOD 2) = 1 THENã GET #1, , PixelColor$ã END IFã END IFã END IFã LOOPã EXIT SUBãEND IFããIF BitsPerPixel = 8 THENã LineExtract = (INT((PixelWidth - 1) / 4) + 1) * 4ã LineExtract$ = SPACE$(LineExtract)ã ActualWidth = PixelWidth / 320ã ActualHeight = PixelHeight / 200ã IF ActualHeight <= 1 AND ActualWidth <= 1 THENã FOR Y = 0 TO PixelHeight - 1ã GET #1, 1079 + ((PixelHeight - 1) * LineExtract) - (Y * LineExtract), LineExtract$ã FOR X = 0 TO PixelWidth - 1ã PSET (X, Y), ASC(MID$(LineExtract$, X + 1, 1))ã NEXT Xã NEXT Yã ELSEã FOR Y = 0 TO PixelHeight - 1 STEP ActualHeightã GET #1, LocationOfPictureData + ((LineExtract * (PixelHeight - 1)) - (LineExtract * Y)), LineExtract$ã FOR X = 0 TO PixelWidth - 1 STEP ActualWidthã PSET (X / ActualWidth, Y / ActualHeight), ASC(MID$(LineExtract$, X + 1, 1))ã NEXT Xã NEXT Yã END IFãELSEIF BitsPerPixel = 4 THENã LineExtract = (INT((PixelWidth - 1) / 8) + 1) * 4ã LineExtract$ = SPACE$(LineExtract)ã ActualWidth = PixelWidth / 640ã ActualHeight = PixelHeight / 480ã IF ActualWidth <= 1 AND ActualHeight <= 1 THENã FOR Y = 0 TO PixelHeight - 1ã GET #1, LocationOfPictureData + ((LineExtract * (PixelHeight - 1)) - (LineExtract * Y)), LineExtract$ã FOR X = 0 TO (PixelWidth / 2) - 1ã PixelColor = ASC(MID$(LineExtract$, X + 1, 1))ã PSET (X * 2, Y), PixelColor \ 16ã IF (X * 2) + 1 < PixelWidth THENã PSET ((X * 2) + 1, Y), PixelColor AND 15ã END IFã NEXT Xã NEXT Yã ELSEã FOR Y = 0 TO PixelHeight - 1 STEP ActualHeightã GET #1, LocationOfPictureData + ((LineExtract * (PixelHeight - 1)) - (LineExtract * Y)), LineExtract$ã FOR X = 0 TO (PixelWidth / 2) - 1ã PixelColor = ASC(MID$(LineExtract$, X + 1, 1))ã PSET (X / ActualWidth, Y / ActualHeight), PixelColor \ 16ã IF (X * 2) + 1 < PixelWidth THENã PSET ((X + 1) / ActualWidth, Y / ActualHeight), PixelColor AND 15ã END IFã NEXT Xã NEXT Yã END IFãELSEIF BitsPerPixel = 1 THENã LineExtract = (INT((PixelWidth - 1) / 32) + 1) * 4ã LineExtract$ = SPACE$(LineExtract)ã FOR Y = 0 TO PixelHeight - 1ã DEF SEG = &HA000ã GET #1, LocationOfPictureData + ((PixelHeight - 1) * LineExtract) - (Y * LineExtract), LineExtract$ã FOR X = 0 TO CINT(PixelWidth / 8) - 1ã IF Y < 409 THENã POKE (Y * 80 + X), ASC(MID$(LineExtract$, X + 1, 1))ã ELSEã DEF SEG = &HA7D0ã POKE ((Y - 400) * 80 + X), ASC(MID$(LineExtract$, X + 1, 1))ã END IFã NEXT Xã NEXT Yã DEF SEGãEND IFããEND SUBããYousuf Philips OPENPCX VERSION 0.3 philipz@emirates.net.ae 11-01-98 (05:17) QB, QBasic, PDS 250 8614 OPENPCX.BAS ''''''''''''''''''''''''''''''''''''''ã' Program : Loads PCX Files 'ã' Name : OPENPCX Version 0.3 'ã' Programmer : Yousuf Philips 'ã' Company : Y P I 'ã' Updated On : 15th of August 1998 'ã' Email - [philipz85@hotmail.com] 'ã' [http://members.xoom.com/Philipz/] 'ã''''''''''''''''''''''''''''''''''''''ãã'/* Do not edit this file if you distribute it. */'ã'/* (c) Copyrighted by YPI in 1998 | All Rights Reserved | Public Domain */'ãã'/* This program has been created by YPI (Basic Programming Incorporation) */'ã'/* as a utility to load PCX files. Steven Sensarns created a PCX loader */'ã'/* but didn't have any comments about how it worked and has no proper */'ã'/* programming structure. But the worst thing about it is that it only */'ã'/* loads 8-bit PCXs which are 320 X 200. This PCX loader is part of a */'ã'/* series of PCX loaders which have been created by YPI. The source code */'ã'/* for version 0.1 and 0.2 haven't been distributed and won't because this*/'ã'/* version (0.3) is many times faster. But if you want it then, just ask. */'ã'/* This PCX loader will load any 8-bit PCX. */'ãã'/* If you use any of this code in your program then you must credit YPI. */'ã'/* This program has been placed in Public Domain and All Rights Are */'ã'/* Reserved. */'ãã'/* YPI has also created a BMP loader and an FLI player. The source can be */'ã'/* gotten from our website */'ã'/* The YPI Website has programs for beginners, tutorials and utilities. */'ããDECLARE SUB PCXInfo (FileName$)ãDECLARE SUB ShowPCX (FileName$)ããDIM SHARED X, Y, BegX, BegY, EndX AS INTEGERããCLSãPRINTãPRINT " PCX Loader for QBASIC - By YPI BASIC Programming Incorporation"ãFILES "*.pcx"ãINPUT " Enter File Name - ", FileName$ããIF LEN(LTRIM$(FileName$)) = 0 THENã ENDãELSEIF INSTR(FileName$, ".") = 0 THENã FileName$ = FileName$ + ".pcx"ãEND IFããCALL PCXInfo(FileName$)ãWait$ = INPUT$(1)ãCALL ShowPCX(FileName$)ãWait$ = INPUT$(1)ããSUB PCXInfo (FileName$)ããOPEN FileName$ FOR BINARY AS #255ãIF LOF(255) = 0 THENã PRINT " FILE IS EMPTY"ã CLOSE #255ã KILL FileName$ã EXIT SUBãEND IFã ãCLSãPRINTãã'/* Extract PCX Validation information */'ãValidPCX1$ = SPACE$(1): ValidPCX2$ = SPACE$(1): Version$ = SPACE$(1)ãGET #255, 1, ValidPCX1$ãGET #255, 2, Version$ãGET #255, 3, ValidPCX2$ãã'/* Checks if the file is a valid PCX */'ãIF ASC(ValidPCX1$) <> 10 THENã PRINT " InValid PCX FILE"ãELSEIF ASC(ValidPCX2$) <> 1 THENã PRINT " PCX FILE Maybe Corrupted"ãELSEã PRINT " VALID PCX FILE"ãEND IFããIF ASC(Version$) = 0 THENã PRINT " Version - 2.5 of PC PaintBrush"ãELSEIF ASC(Version$) = 2 THENã PRINT " Version - 2.8 with palette"ãELSEIF ASC(Version$) = 3 THENã PRINT " Version - 2.8 without palette"ãELSEIF ASC(Version$) = 4 THENã PRINT " PC PaintBrush for Windows"ãELSEIF ASC(Version$) = 5 THENã PRINT " Version - 3 or greater"ãEND IFãã'/* Extract number of bits per pixel (bpp), Image Width and Height and */'ã'/* Number of Planes */'ãBitsPerPixel$ = SPACE$(1): WidthInPixels$ = SPACE$(2): HeightInPixels$ = SPACE$(2)ãNoOfPlanes$ = SPACE$(1): ScreenSize$ = SPACE$(8): PaletteInfo$ = SPACE$(2)ãGET #255, 4, BitsPerPixel$ãGET #255, 5, ScreenSize$ãGET #255, 13, WidthInPixels$ãGET #255, 15, HeightInPixels$ãGET #255, 66, NoOfPlanes$ãGET #255, 69, PaletteInfo$ããPRINTãPRINT " Number of Bits -"; ASC(BitsPerPixel$)ãPRINT " Screen Size - ["; CVI(LEFT$(ScreenSize$, 2)); ","; CVI(MID$(ScreenSize$, 3, 2)); "]";ãPRINT " - ["; CVI(MID$(ScreenSize$, 5, 2)); ","; CVI(RIGHT$(ScreenSize$, 2)); "]"ãPRINT " Width -"; CVI(WidthInPixels$)ãPRINT " Height -"; CVI(HeightInPixels$)ããPRINTãPRINT " Number Of Planes -"; ASC(NoOfPlanes$)ãPRINT " Palette Information - ";ãIF CVI(PaletteInfo$) = 0 OR CVI(PaletteInfo$) = 1 THENã PRINT "Color or B&W Image"ãELSEã PRINT "Gray Scale Image"ãEND IFãCLOSEããEND SUBããSUB ShowPCX (FileName$)ããOPEN FileName$ FOR BINARY AS #255ãIF LOF(255) = 0 THENã PRINT " FILE IS EMPTY"ã CLOSE #255ã KILL FileName$ã EXIT SUBãEND IFã ã'/* Extract PCX Validation information */'ãValidPCX1$ = SPACE$(1): ValidPCX2$ = SPACE$(1): Version$ = SPACE$(1)ãGET #255, 1, ValidPCX1$ãGET #255, 2, Version$ãGET #255, 3, ValidPCX2$ãã'/* Checks if the file is a valid PCX */'ãIF ASC(ValidPCX1$) <> 10 THENã PRINT " InValid PCX File"ã EXIT SUBãELSEIF ASC(ValidPCX2$) <> 1 THENã PRINT " PCX File Maybe Corrupted"ã EXIT SUBãEND IFããIF ASC(Version$) <> 5 THENã PRINT " OPENPCX only supports Version 5 of PCX Files "ã PRINT " PLEASE SEND A COPY OF THIS IMAGE TO philipz85@hotmail.com"ã PRINT " HOPEFULLY WE WILL OPEN IT IN THE NEXT VERSION"ã EXIT SUBãEND IFãã'/* Extract number of bits per pixel (bpp), Image Width and Height and */'ã'/* Number of Planes */'ãBitsPerPixel$ = SPACE$(1): WidthInPixels$ = SPACE$(2): HeightInPixels$ = SPACE$(2)ãScreenSize$ = SPACE$(8): BytesPerLine$ = SPACE$(2)ãGET #255, 4, BitsPerPixel$ãGET #255, 5, ScreenSize$ãGET #255, 13, WidthInPixels$ãGET #255, 15, HeightInPixels$ãGET #255, 67, BytesPerLine$ãã'/* Only 8-bit PCX's can be opened in this version of OpenPCX */'ãIF ASC(BitsPerPixel$) <> 8 THENã Wordz$ = "THIS VERSION OF OPENPCX ONLY SUPPORTS 8-BIT PCX's"ã LOCATE , (80 - LEN(Wordz$)) / 2: PRINT Wordz$ã EXIT SUBãEND IFãã'/* If the Encoded program didn't specify the Width and Height in Pixels */'ãIF BytesPerLine$ = MKI$(0) THENã BytesPerLine$ = MKI$(CVI(MID$(ScreenSize$, 5, 2)) - CVI(LEFT$(ScreenSize$, 2)) + 1)ãEND IFãHeightInPixels$ = MKI$(CVI(RIGHT$(ScreenSize$, 2)) - CVI(MID$(ScreenSize$, 3, 2)) + 1)ãWidthInPixels$ = BytesPerLine$ããSCREEN 13ããSEEK #255, LOF(255) - 767ãPaletteRed$ = SPACE$(1): PaletteGreen$ = SPACE$(1): PaletteBlue$ = SPACE$(1)ãFOR Loops = 0 TO 255ã GET #255, , PaletteRed$ã GET #255, , PaletteGreen$ã GET #255, , PaletteBlue$ã OUT &H3C8, Loopsã OUT &H3C9, ASC(PaletteRed$) \ 4ã OUT &H3C9, ASC(PaletteGreen$) \ 4ã OUT &H3C9, ASC(PaletteBlue$) \ 4ãNEXT LoopsããActualWidth = CVI(WidthInPixels$) / 320ãActualHeight = CVI(HeightInPixels$) / 200ãIF ActualWidth < 1 THEN ActualWidth = 1ãIF ActualHeight < 1 THEN ActualHeight = 1ããSEEK #255, 129ãNumberOfLoops$ = SPACE$(1): PixelColor$ = SPACE$(1): X = 0: Y = 0ã'/* If the image will fit properly on screen 13 */'ãIF ActualWidth = 1 AND ActualHeight = 1 THENã DOã GET #255, , NumberOfLoops$ã IF ASC(NumberOfLoops$) > 191 THENã '/* If the ascii of the byte extracted from the file has a value */'ã '/* greater than 191 then the ascii of the byte - 192 gives the */'ã '/* number of following pixels which have the color of the ascii of*/'ã '/* of the next byte extracted from the file */'ã GET #255, , PixelColor$ã LINE (X, Y)-STEP(ASC(NumberOfLoops$) - 192, 0), ASC(PixelColor$)ã X = X + ASC(NumberOfLoops$) - 192ã ELSEã '/* If the ascii of the byte extracted from the file has a value */'ã '/* less then 192 then the ascii is the color of the following pixel*/'ã PixelColor$ = NumberOfLoops$ã PSET (X, Y), ASC(NumberOfLoops$)ã X = X + 1ã END IFã '/* When the variable X has the value which is equal to the Width of */'ã '/* image then it jumps to the beginning of the next line */'ã IF X >= CVI(WidthInPixels$) THENã X = 0: Y = Y + 1ã END IFã LOOP UNTIL Y >= CVI(HeightInPixels$) - 1ãELSEã '/* The below is the same code as the above exept it resizes the image */'ã '/* so that it fits the screen */'ã DOã GET #255, , NumberOfLoops$ã IF ASC(NumberOfLoops$) > 191 THENã GET #255, , PixelColor$ã BegX = X / ActualWidth: BegY = Y / ActualHeightã EndX = (ASC(NumberOfLoops$) - 192) / ActualWidthã LINE (BegX, BegY)-STEP(EndX, 0), ASC(PixelColor$)ã X = X + (ASC(NumberOfLoops$) - 192)ã ELSEã PixelColor$ = NumberOfLoops$ã BegX = X / ActualWidth: BegY = Y / ActualHeightã PSET (BegX, BegY), ASC(PixelColor$)ã X = X + 1ã END IFã IF X >= CVI(WidthInPixels$) THENã X = 0: Y = Y + 1ã END IFã LOOP UNTIL Y >= CVI(HeightInPixels$) - 1ãEND IFãCLOSEããEND SUBãYousuf Philips OPENAVI VERSION 0.3 philipz@emirates.net.ae 11-01-98 (05:17) QB, QBasic, PDS 478 18566 OPENAVI3.BAS''''''''''''''''''''''''''''''''''''''ã' Program : Plays AVI Files 'ã' Name : OPENAVI Version 0.3 'ã' Programmer : Yousuf Philips 'ã' Company : Y P I 'ã' Updated On : 25th of Oct. 1998 'ã' Email - [philipz85@hotmail.com] 'ã' [http://members.xoom.com/Philipz/] 'ã''''''''''''''''''''''''''''''''''''''ãã'/* Do not edit this file if you distribute it. */'ã'/* (c) Copyrighted by YPI in 1998 | All Rights Reserved | Public Domain */'ãã'/* This program has been created by YPI (Basic Programming Incorporation) */'ã'/* as a utility to play AVI files in QBASIC. */'ã'/* */'ã'/* What's New - */'ã'/* * 24-BIT uncompressed AVIs won't play */'ã'/* * Only plays 8-BIT AVIs which are smaller than (321 X 201) */'ã'/* * AVI image is not converted to BSAVE file */'ã'/* * Smartdrv is no longer needed */'ã'/* * Interrupts have been added to blast the display of AVI */'ã'/* */'ã'/* What's Great - */'ã'/* * Delay Function will work perfectly on any PC */'ã'/* * AVI displays very fast (even on a 486) */'ã'/* */'ã'/* Some Notes - */'ã'/* In the file format of the AVI there is a value which tells */'ã'/* how many miliseconds should be delayed after each frame, so */'ã'/* the FUNCTION Delay was created to delay the required time */'ã'/* after each frame (It will work the same on any computer). */'ã'/* If you don't want to run the delay after each frame, then */'ã'/* you should comment (') out line 165. */'ãã'/* An original program created by the professional programmers at YPI. */'ã'/* If you use any of this code in your program then you must credit YPI, */'ã'/* it would be appreciated if you sent us a copy of your program also. */'ã'/* Please send your comments and suggestions to */'ãã'/* YPI has also created a BMP loader, PCX loader and an FLI player. The */'ã'/* source can be gotten from our website */'ã'/* The YPI Website has programs for beginners, tutorials and utilities. */'ããDECLARE SUB GetSpeed ()ãDECLARE SUB ShowAVI (FileName$)ãDECLARE SUB Delay (MiliSeconds%)ã'/* 4 Added functions to use interrupt &H21 */'ãDECLARE SUB Close21 (Handle%)ãDECLARE SUB Seek21 (Handle%, Offset!)ãDECLARE SUB Open21 (FileName$, Handle%)ãDECLARE SUB Get21 (Handle%, NoOfBytesToRead%, VariableSegment%, VariableOffset%)ã'/* 2 Added functions to call interrupts in QBASIC 1.0 */'ãDECLARE SUB NewInterrupt (intnum AS INTEGER, Regs AS ANY)ãDECLARE SUB InitInterrupt ()ããTYPE RIFFHeaderTypeã ValidID AS STRING * 4 '/* Must be = 'RIFF'ã SizeOfFile AS LONG '/* Size of AVI file in bytesã RIFFFileType AS STRING * 4 '/* RIFF file type - Must be = 'AVI 'ãEND TYPEããTYPE AVIHeaderã ValidID AS STRING * 4 '/* Must be = 'avih'ã BytesInHeader AS LONG '/* Bytes in AVI Headerã MicrosecPerFrame AS LONG '/* Number of Milliseconds between each Frameã MaximumBytesPerSec AS LONG '/* Number of bytes the system must handleã '/* per second for the avi to run smoothlyã Reserved1 AS LONG '/* Reserved must be 0ã BitFlags AS LONG '/* Bit Flagsã TotalFrames AS LONG '/* Total Number of Framesã InitialFrame AS LONG '/* Not Understoodã NoOfStreams AS LONG '/* Number of Streamsã BufferSize AS LONG '/* Buffer size to read a frameã Widthz AS LONG '/* Width of AVIã Heightz AS LONG '/* Height of AVIã Scale AS LONG '/* Not Understood (Not Important)ã Rate AS LONG '/* Not Understood (Not Important)ã Start AS LONG '/* Not Understood (Not Important)ã Length AS LONG '/* Not Understood (Not Important)ãEND TYPEããTYPE StreamHeaderã HeaderID AS STRING * 4 '/* Must be = 'strh'ã BytesInHeader AS LONG '/* Bytes in Stream Headerã Typez AS STRING * 4 '/* Type of Stream Headerã '/* vids - For Video Streamã '/* auds - For Audio Streamã Handle AS STRING * 4 '/* Name of Compressorã BitFlags AS LONG '/* Not Understood (Not Important)ã Reserved1 AS LONG '/* Not Understood (Not Important)ã InitialFrames AS LONG '/* Not Understood (Not Important)ã Scale AS LONG '/* Not Understood (Not Important)ã Rate AS LONG '/* Not Understood (Not Important)ã Start AS LONG '/* Not Understood (Not Important)ã Length AS LONG '/* Not Understood (Not Important)ã BufferSize AS LONG '/* Not Understood (Not Important)ã Quality AS LONG '/* Not Understood (Not Important)ã SampleSize AS LONG '/* Not Understood (Not Important)ãEND TYPEããTYPE StreamFormatã StreamFormatID AS STRING * 4 '/* Must be = 'strf'ã BytesInFormat AS LONG '/* Number of Bytes in Stream FormatãEND TYPEããTYPE BMPInfoHeader '/* Windows 3.x BMP Information Headerã SizeOfHeader AS LONG '/* Number of Bytes of Header = 40ã ImageWidth AS LONG '/* Width of AVIã ImageHeight AS LONG '/* Height of AVIã Planes AS INTEGER '/* Planes - Must be 1ã BitsPerPixel AS INTEGER '/* Bits Per Pixel - 8 or 24ã CompressMethod AS LONG '/* Compression Methodã '/* 0 - Uncompressedã '/* 1 - 8-BIT RLEã '/* 2 - 4-BIT RLE (Impossible)ã ImageSizeInBytes AS LONG '/* Number of bytes in every imageã HorizontalRatio AS LONG '/* Not Importantã VerticalRatio AS LONG '/* Not Importantã ColorsUsed AS LONG '/* Number of used colorsã ImportantColors AS LONG '/* Number of Important colorsãEND TYPEããTYPE JunkChunk '/* Junk Chunk - Used for paddingã ChunkID AS STRING * 4 '/* Must be = 'JUNK'ã EmptyCharacters AS LONG '/* Number of empty bytesãEND TYPEããTYPE ImageData '/* Image Data - Specifies type of Image Dataã ChunkID AS STRING * 4 '/* Type of image dataã '/* db - Bitmap Uncompressed dataã '/* dc - Bitmap Compressed dataã '/* wb - Sound dataã '/* pc - Palette Changeã NumberOfBytes AS LONG '/* Number of Bytes of dataãEND TYPEããTYPE ChangingPalette '/* Changing Palette for different colorsã FirstColor AS STRING * 1ã NumberOfColorsToChange AS STRING * 1ã BitFlags AS INTEGERãEND TYPEããTYPE RegType '/* Registers for Interruptsã ax AS INTEGERã bx AS INTEGERã cx AS INTEGERã dx AS INTEGERã bp AS INTEGERã si AS INTEGERã di AS INTEGERã flags AS INTEGERã ds AS INTEGERã es AS INTEGERãEND TYPEããCOMMON SHARED Regs AS RegType, Speed&ãDIM SHARED Intrpt(1 TO 50) AS INTEGERãã'/* Initializes Interrupt Functions (Very Important, don't touch) */'ãInitInterruptããCLSã'/* Comment out GetSpeed if you don't want to have a delay between frames */'ãGetSpeedããPRINTãPRINT " 1st QBASIC AVI Player (ver 0.3) - By YPI (BASIC Programming Incorporation)"ãPRINT " Press Any Key When You Want The AVI To Stop Playing (Don't press Ctrl-Break)"ãINPUT " Enter File Name - ", FileName$ããIF LEN(LTRIM$(FileName$)) = 0 THENã ENDãELSEIF INSTR(FileName$, ".") = 0 THENã FileName$ = FileName$ + ".avi"ãEND IFããCALL ShowAVI(FileName$)ãWait$ = INPUT$(1)ãWHILE INKEY$ <> "": WENDãã'/* Some ending statements for those how didn't read the comments at the */'ã'/* beginning of the program. */'ãSCREEN 2: SCREEN 0ãPRINT " 1st QBASIC AVI Player (ver 0.3) - By YPI (BASIC Programming Incorporation)"ãPRINT " Program is Public Domain, (c) Copyrighted by YPI, All Rights Reserved"ãPRINT " Programmed By Yousuf Philips in 1998"ãPRINT " Send suggestions and comments to philipz85@hotmail.com"ãPRINT " If you have any information of AVI compression algorithms, please contact me"ãPRINT " Visit the YPI Website at http://members.xoom.com/Philipz/"ãWait$ = INPUT$(1)ããDEFINT A-ZãSUB Close21 (Handle)ã'/* Don't edit this SUB if you don't have any knowledge of Interrupts */'ããRegs.ax = &H3E00ãRegs.bx = HandleãCALL NewInterrupt(&H21, Regs)ããEND SUBããDEFSNG A-ZãSUB Delay (MiliSeconds%)ã'/* This function slows down the program for the given amount of Miliseconds */'ããDelayTime = (Speed& * 5) * (MiliSeconds% / 1000)ãFOR Speed = 1 TO DelayTimeãNEXT SpeedããEND SUBããDEFINT A-ZãSUB Get21 (Handle, NoOfBytesToRead, VariableSegment, VariableOffset)ã'/* Don't edit this SUB if you don't have any knowledge of Interrupts */'ããRegs.ax = &H3F00ãRegs.bx = HandleãRegs.cx = NoOfBytesToReadãRegs.ds = VariableSegmentãRegs.dx = VariableOffsetãCALL NewInterrupt(&H21, Regs)ããEND SUBããDEFSNG A-ZãSUB GetSpeedã'/* This function finds out the proper delay period needed for the current PC*/'ããPRINT " Calculating delay for Delay Function according to your PC"ãTime& = TIMER: Time& = Time& + 1: Speed& = 0ãDOãLOOP UNTIL TIMER >= Time&ãDOã Speed& = Speed& + 1ãLOOP UNTIL TIMER >= Time& + 1ãã'/* Testing the calculated delay period with the Delay FUNCTION */'ãTime! = TIMERãDelay 1000ãTime! = TIMER - Time!ãã'/* If the Delay FUNCTION was not accurate then it is adjusted */'ãIF Time! < 1 THENã Speed& = INT(Speed& * (1 / Time!))ãEND IFããEND SUBããDEFINT A-ZãSUB InitInterruptã'/* Don't edit this SUB period. */'ããInterruptData$ = CHR$(85) + CHR$(139) + CHR$(236) + CHR$(86) + CHR$(87) + CHR$(30) + CHR$(139) + CHR$(118) + CHR$(6) + CHR$(139) + CHR$(4) + CHR$(139) + CHR$(92) + CHR$(2)ãInterruptData$ = InterruptData$ + CHR$(139) + CHR$(76) + CHR$(4) + CHR$(139) + CHR$(84) + CHR$(6) + CHR$(139) + CHR$(108) + CHR$(8) + CHR$(139) + CHR$(124) + CHR$(12) + CHR$(142) + CHR$(68) + CHR$(18)ãInterruptData$ = InterruptData$ + CHR$(255) + CHR$(116) + CHR$(10) + CHR$(131) + CHR$(124) + CHR$(18) + CHR$(255) + CHR$(117) + CHR$(2) + CHR$(30) + CHR$(7) + CHR$(131) + CHR$(124) + CHR$(16) + CHR$(255)ãInterruptData$ = InterruptData$ + CHR$(116) + CHR$(3) + CHR$(142) + CHR$(92) + CHR$(16) + CHR$(94) + CHR$(205) + CHR$(33) + CHR$(85) + CHR$(139) + CHR$(236) + CHR$(30) + CHR$(86) + CHR$(142) + CHR$(94) + CHR$(2) + CHR$(139) + CHR$(118) + CHR$(14)ãInterruptData$ = InterruptData$ + CHR$(137) + CHR$(4) + CHR$(137) + CHR$(92) + CHR$(2) + CHR$(137) + CHR$(76) + CHR$(4) + CHR$(137) + CHR$(84) + CHR$(6) + CHR$(143) + CHR$(68) + CHR$(10) + CHR$(143) + CHR$(68) + CHR$(16)ãInterruptData$ = InterruptData$ + CHR$(143) + CHR$(68) + CHR$(8) + CHR$(137) + CHR$(124) + CHR$(12) + CHR$(140) + CHR$(68) + CHR$(18) + CHR$(156) + CHR$(143) + CHR$(68) + CHR$(14)ãInterruptData$ = InterruptData$ + CHR$(95) + CHR$(95) + CHR$(94) + CHR$(93) + CHR$(202) + CHR$(2) + CHR$(0)ããDEF SEG = VARSEG(Intrpt(1))ãaddress = VARPTR(Intrpt(1))ããFOR I = 0 TO 99ã POKE address + I, ASC(MID$(InterruptData$, I + 1, 1))ãNEXTããEND SUBããSUB NewInterrupt (intnum AS INTEGER, Regs AS RegType)ã'/* Don't edit this SUB period. */'ãã DEF SEG = VARSEG(Intrpt(1))ã address = VARPTR(Intrpt(1))ã POKE address + 51, intnumã ã CALL ABSOLUTE(Regs, address)ããEND SUBããSUB Open21 (FileName$, Handle)ã'/* Don't edit this SUB if you don't have any knowledge of Interrupts */'ããFileName$ = FileName$ + CHR$(0)ãRegs.ax = &H3D00ãRegs.ds = VARSEG(FileName$)ãRegs.dx = SADD(FileName$)ãCALL NewInterrupt(&H21, Regs)ãFileName$ = LEFT$(FileName$, LEN(FileName$) - 1)ãHandle = Regs.axããEND SUBããSUB Seek21 (Handle, Offset!)ã'/* Don't edit this SUB if you don't have any knowledge of Interrupts */'ããRegs.ax = &H4200ãRegs.bx = HandleãRegs.cx = Offset! \ 65536ãRegs.dx = (Offset! AND 32767) - (Offset! AND 32768)ãCALL NewInterrupt(&H21, Regs)ããEND SUBããSUB ShowAVI (FileName$)ããOPEN FileName$ FOR BINARY AS #255ãIF LOF(255) = 0 THENã PRINT " FILE IS EMPTY"ã CLOSE #255ã KILL FileName$ã EXIT SUBãEND IFãã'/* Creates the necessary structure types for easy extraction of data */'ãDIM RIFFHeaderType AS RIFFHeaderTypeãDIM AVIHead AS AVIHeaderãDIM StreamHead AS StreamHeaderãDIM StreamForm AS StreamFormatãDIM BMPInfoHead AS BMPInfoHeaderãDIM ImageDataz AS ImageDataããGET #255, , RIFFHeaderTypeã'/* Checks if the opened file is an AVI file */'ãIF RIFFHeaderType.RIFFFileType <> "AVI " THENã PRINT " INVALID AVI FILE"ã ENDãEND IFããGET #255, 25, AVIHeadãIF AVIHead.ValidID <> "avih" THENã PRINT " Invalid AVI File Header"ã EXIT SUBãELSEIF AVIHead.Widthz > 320 OR AVIHead.Heightz > 200 THENã PRINT " AVI Image Is To Large"ã EXIT SUBãEND IFãã'/* Adjusting the delay extracted from the file so that it will work well */'ã'/* with the FUNCTION Delay */'ãAVIHead.MicrosecPerFrame = AVIHead.MicrosecPerFrame / 1000ãã'/* Search through file to find 'LIST', which indicates the starting of a */'ã'/* stream data area */'ãSearch1:ãPosition& = LOC(255) + 1: DWord$ = SPACE$(4)ãDOã GET #255, Position&, DWord$ã Position& = Position& + 4ãLOOP UNTIL DWord$ = "LIST"ãGET #255, , DWord$ãGET #255, , DWord$ãã'/* If the characters 'strl' are encounted then it indicates the beginning of*/'ã'/* a stream data area */'ãIF DWord$ = "strl" THENã Position& = LOC(255) + 1ã GET #255, , StreamHeadã '/* Checks if the stream is a video stream indicated by the characters */'ã '/* 'vids', audio stream is indicated by the characters 'auds' */'ã IF StreamHead.Typez <> "vids" THENã Searchz = Searchz + 1ã IF Searchz > 2 THENã PRINT " Not Possible For AVI To Have More Than 2 Streams"ã PRINT " Please Send This AVI To "ã EXIT SUBã END IFã GOTO Search1ã END IFã SEEK #255, Position& + StreamHead.BytesInHeader + 8ã GET #255, , StreamFormã GET #255, , BMPInfoHeadã IF BMPInfoHead.BitsPerPixel <> 8 THENã PRINT " Only 8-BIT AVIs Can Be Played"ã EXIT SUBã ELSEIF BMPInfoHead.CompressMethod <> 0 THENã PRINT " Only Uncompressed AVIs Can Be Played"ã EXIT SUBã END IFã '/* Changes graphix screen to SCREEN 13 and changes the color palettes */'ã SCREEN 13ã Palette$ = SPACE$(1024)ã GET #255, , Palette$ã FOR Loops = 0 TO 255ã OUT &H3C8, Loopsã OUT &H3C9, INT(ASC(MID$(Palette$, (Loops * 4) + 3, 1)) / 4)ã OUT &H3C9, INT(ASC(MID$(Palette$, (Loops * 4) + 2, 1)) / 4)ã OUT &H3C9, INT(ASC(MID$(Palette$, (Loops * 4) + 1, 1)) / 4)ã NEXT LoopsãELSEã PRINT " UNABLE TO USE AVI FILE"ã EXIT SUBãEND IFãã'/* Calculate the number of bytes to extract for each image line */'ãIF 4 - (BMPInfoHead.ImageWidth MOD 4) = 4 THENã BytesToExtract = BMPInfoHead.ImageWidthãELSEã BytesToExtract = BMPInfoHead.ImageWidth + (4 - (BMPInfoHead.ImageWidth MOD 4))ãEND IFãã'/* Search through file to find 'MOVI', which indicates the beginning of AVI */'ã'/* image area */'ãSearch:ãPosition& = LOC(255) + 1ãDOã GET #255, Position&, DWord$ã Position& = Position& + 4ã IF Position& >= LOF(255) THENã PRINT " Movie Chunk Not Found"ã EXIT SUBã END IFãLOOP UNTIL DWord$ = "LIST"ãGET #255, , DWord$ãGET #255, , DWord$ãIF DWord$ <> "movi" THEN GOTO SearchããRealCurrentLocation! = LOC(255)ãHeightAdjust = (200 - BMPInfoHead.ImageHeight) \ 2ãWidthAdjust = (320 - BMPInfoHead.ImageWidth) \ 2ãIF HeightAdjust < 0 THEN HeightAdjust = 0ãIF WidthAdjust < 0 THEN WidthAdjust = 0ãCLOSEãã'/* Reopen the AVI file */'ãCALL Open21(FileName$, AVIHandle)ããRepeat:ãCurrentLocation! = RealCurrentLocation!ããCALL Seek21(AVIHandle, CurrentLocation!)ããIF DWord$ = "movi" THENã FOR FrameNumber = 1 TO AVIHead.TotalFramesã CALL Get21(AVIHandle, LEN(ImageDataz), VARSEG(ImageDataz), VARPTR(ImageDataz))ã IF RIGHT$(ImageDataz.ChunkID, 2) = "db" THENã FOR YHeight = BMPInfoHead.ImageHeight - 1 TO 0 STEP -1ã IF YHeight + HeightAdjust < 100 THENã CALL Get21(AVIHandle, BytesToExtract, &HA000, (YHeight + HeightAdjust) * 320 + WidthAdjust)ã ELSEã CALL Get21(AVIHandle, BytesToExtract, &HA7D0, (YHeight + HeightAdjust - 100) * 320 + WidthAdjust)ã END IFã NEXT YHeightã ELSEIF RIGHT$(ImageDataz.ChunkID, 2) = "pc" THENã '/* Skipping the color changing */'ã ELSEIF RIGHT$(ImageDataz.ChunkID, 2) = "wb" THENã '/* Skipping the sound part of the avi if there is. */'ã FrameNumber = FrameNumber - 1ã ELSEIF RIGHT$(ImageDataz.ChunkID, 2) = "dc" THENã '/* Ending program because compressed data was encountered */'ã CALL Close21(AVIHandle)ã SCREEN 2: SCREEN 0ã PRINT " Only Uncompressed AVIs Can Be Played"ã EXIT SUBã ELSEã CALL Close21(AVIHandle)ã SCREEN 2: SCREEN 0ã PRINT " Something Went Wrong"ã PRINT " Please Send This AVI To "ã EXIT SUBã END IFã '/* Delay FUNCTION - slows down display according to speed given from*/'ã '/* AVI file */'ã Delay (AVIHead.MicrosecPerFrame)ã '/* Checks if the user presses a key */'ã IF INKEY$ <> "" THENã CALL Close21(AVIHandle)ã EXIT SUBã END IFã CurrentLocation! = CurrentLocation! + ImageDataz.NumberOfBytes + 8ã CALL Seek21(Handle, CurrentLocation!)ã NEXT FrameNumberãEND IFããGOTO RepeatããEND SUBãYousuf Philips SAVE SCREEN 13 AS .BMP philipz@emirates.net.ae 11-01-98 (05:17) QB, QBasic, PDS 70 4567 SAVEBMP.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"SAVEBMP.ZIP",4^6:Z&=3147:?STRING$(50,177);ãU"%up()[9%%9m-%B/&,Jxs+D^E-7%%9;%%%0%%%%xf&%jgr%uSgfOx6'<&BG\7cwgãU"Ow:hf,?;Q4zmJKZpT?gZf^R(E=r*^GD\fxSWIGkVanHMr0AHnãU"ZDRDa*KL*w4>YPU\/[g<^oSA=4/o9,,PIK;;Zl:6BLMSK;He[zefZCHeEDZneUqãU".eWZE[R>_G_d/o8UU&tn2xN'HKVUgN9390->7I:er4bQ$5$L#3zBB\6nzDl+?pLãU"Io9;)Py>*,iaIWT/O/BNa2l6Sf68\aq<^RB.r'1'BIQ]B%uA(^^'=I9;uBZ\Lo*ãU"DL2b:]J'VVW.*a6V)y/ujW&Eja]eilta:R8+w,foK+W2Bs-iNTg:\b%WãU"0,sn&(Rud4zkoqdIo2N'#rp)t1Y2;8:ãU":2AR5JNBq#j%$30G_7zw'nXc+p8mT-UZ5jANe.P(XT;l^wQhnUl8x,,4q,*AB5fãU"NP-$rWjuRjB'Tru7xXr[NoiuJw8&%^zW^=]._xVDbqmPgcyl9RU\W/iv8o.Gw7/ãU"BT*_2S6WL7',)o#1;*Ndh_>SF*k>3Zjw4[0rx.iI#&.Cfr:.M'hWF*=Tt0S44yGãU"Ix]H#fd*5AY=^tpL[b4AZuI)Rg^DxEy]=u1$tAJh4yBLvD-W;H4(s,p.Vt;OKh^ãU"Mk28&Mx^?8HD$N5/^7W0nlB];UmDicaSHb_gCU1uVU8oMudr-&6]qh2yI['8\j-ãU"bo'hLwtl0WN0b)zBcY_G[gU6n1GS2OCp:v#x;CwaQn2rvOq7Dwg<*?20O>2F<4hãU"k&6qg\FqgFf:u[OIq=R(4.BVylp4+Wm8yJb-oLb9i(-1SbTJDh*LBtjA)hSX*KQãU"BCjS<;Wv'dKcq>p:XRhuT=D9?Uaw/9ui\HI5Srd\6+-tL_T:E-RaV9rQ&RR%k?HãU"bhk(G(^YXeZGN_(+K-r>lgu+6fI>&NjkGLi,xlxWBB/2;QTJ&/='=Qaqn;+D[,-&Y\iR;zr?o;KYTrU#\0duVãU"()/p2i+Ze1zNvbsS;mC(tkw*?ol#SO2B0bkKSqtkgJXotVXU,O8CL\-l=<.qq37ãU"U47.[aGK]Q,_JM[QWLSA2D1,>ItgRC=+SO:Ym?Rs'$-iLqiA.&.5roV:0#M+Xb.ãU"nTA#\e($Bl1P1p5HMRy0^9xM?/DK%A4k-$?B(KFbUa$j$^q+sU+(3[NWh3B?Pd1>:gDS&Ha(PgãU"RN(CoS?g^U26W&&0o]dnKn2S6LT3.;D/wecL\uc_B9f]\iS2o.+fl_o&-M6R+:<ãU"GtEO/2%uiQuJ+ek6&DT.Mk:cpk::OCv[u+oCf_X_kA#w[A6-,<^/q]X+0E[9<^wãU">)&[lMS%XC4cO%g7.k%e=tWQK\X?U<9AN/-ãU"LarQs7ZiQh:/D2p$+ioC=LG03Cb3pC=5sd8\PxvrlT)BRBs*;keWRUHG,elCdH08qHeYep'uUTyw7IwJXFgyD-NFSãU"Zb8Zs$L,XyrH5FX4Khj:9lHfaGcl=/FIjS);4]O(PEjrKgL%RYm/cSUA.8Nhhg,ãU"iaA<;c*4i>i]1$w_90:eNK\a=&/6Xsl67NfHCMdyB/Rc><8Ll;prMhF2pI7DV:vãU"N+Ex'tepy]e$L2Z6Kt\W4bpq6Wt_9Yln[b:mGA;PXh#t0WL8>%13LLB?dpHve*ZãU"ZJ/PBwasEJDmti6wa;F0P1Ti?beAogwqG)5.;S*(9M^.U_98AZIwqBbAKc*0up6ãU"E,xnMldNn<$tH).UbI/B48TyVnNBf+:j;hZ=,Y%A5tZX.llJ\Y:^uxRNSQw,M-cãU"'kr>gF6.5k/mSO6'H*o>O+(cBO9iK2yvnk^Kc)7dr^8dGzzN;ueZ6h$s+&:3HsoãU"Q2i79-VsYn/x-_LF\F7eWr/Qj_ka]meZ>C-wMLY+mG(C:a$;qC\smfãU"\*Lv%Tup(%)9%%[%-%FAT*J*TCr5.#&%%T%'%%/%%%%w%jfir#jSy'1yL$t,:UUãU"5l>hPvF3h;'-is9-;pc_Tij:bMg#jaUN#(0^)25Lvn+5wwA[q&(l6oMRb5a^WXX,a(jãU"]AI20ND)(.azLagM%He56MBKK1KPtVhotP6&6d9&T;I<3_krNgXojE:AKLx_BBIãU";^H;kN-NMijH.(J7*p\F/)'n7IkA=lO\0u&VnmP^,%p)QSJXuK%1C:Xq6=H)A1LãU"i#sMu.FnStBh(.iSw=sU*GlANS4cM*HdXa?;mvi^Vqg)^aA]XWWK,a?kT'8qvX(ãU"C#iU(,/%%jw31z:lZ'FoNPX1k)Kh0o%^rTLB2dx6RrhfKLf#WA\L6K'jKe^uXoTãU"^J$MuCv7-C,ZloC)5HO9l'D/'HhmMo1/-_6c,k;04YHMHg%]2s5N(%up()%9%%%ãU"#-%pR#HJU\0Oqe&7%%L'%%%.%%%%kn%qjxSCy'yS6\EdD7o$Jd-roi'r_VJIp_sF7T]AB+$ASdz6&mkX^OJ7TcEC57+ãU",arRo-aRNTF-(jIz(Jp=y0/)>spqfZ=S$EmW6WQXKXmF0^,8s2\0050)Q,>68]xãU"jfGg$?*&DiUQ8%4\_telh2eE-SL8GGu*:VCdd,rkP(opK-X;gv4Cf-';WCMqU=QãU"B7rSpQlrg=&E4N5#GZGA*z3mu_[,ctv6g$o+atãU"shJ/ZQ;'V7JBZ-Y.h//6v>3IrO(,DI2^viH>lD>Aj% "VESA" THEN DetectVESA = 0ãPRINT "VESA Version:"; RTRIM$(STR$(VGAInfo.VESAVersion \ 255)); ".";ãPRINT LTRIM$(STR$(VGAInfo.VESAVersion AND 255))ããEND IFããEND FUNCTIONããSUB InitBankãBANK.asm$ = ""ãBANK.asm$ = BANK.asm$ + CHR$(&H55) 'PUSH BPãBANK.asm$ = BANK.asm$ + CHR$(&H89) + CHR$(&HE5) 'MOV BP,SPãBANK.asm$ = BANK.asm$ + CHR$(&HB8) + CHR$(&H5) + CHR$(&H4F) 'MOV AX,4F05ãBANK.asm$ = BANK.asm$ + CHR$(&HBB) + CHR$(&H0) + CHR$(&H0) 'MOV BX,0000ãBANK.asm$ = BANK.asm$ + CHR$(&H8B) + CHR$(&H56) + CHR$(&H6) 'MOV DX,[BP+06]ãBANK.asm$ = BANK.asm$ + CHR$(&HCD) + CHR$(&H10) 'INT 10ãBANK.asm$ = BANK.asm$ + CHR$(&H5D) 'POP BPãBANK.asm$ = BANK.asm$ + CHR$(&HCB) 'RETFããEND SUBããSUB Pixel (X, Y, r, g, b)ãr = r AND 31: g = g AND 63: b = b AND 31ããyA& = (Y + yOffset) * 2ãoffset& = yA& * xRes + (X * 2)ãBANK = offset& \ &H10000ãoffset& = offset& - &H10000 * BANKãIF BANK <> curBank THENã curBank = BANKã BANK% = curBankãã' Regs.ax = &H4F05ã' Regs.bx = 0ã' Regs.dx = curBankã' CALL INTERRUPT(&H10, Regs, Regs)ã DEF SEG = VARSEG(BANK.asm$)ã CALL ABSOLUTE(BYVAL BANK%, SADD(BANK.asm$))ã DEF SEGãDEF SEG = SegmentããEND IFãhiClr = r * 8 + g \ 8: loClr = (g AND 7) * 32 + bãPOKE offset&, loClr: POKE offset& + 1, hiClrããEND SUBãããFUNCTION SetMode (mode)ããDIM ModeInfo AS ModeInfoBlockãRegsX.ax = &H4F01ãRegsX.cx = modeãRegsX.es = VARSEG(ModeInfo)ãRegsX.di = VARPTR(ModeInfo)ãCALL INTERRUPTX(&H10, RegsX, RegsX)ãIF ModeInfo.ModeAttributes AND 1 = 0 THEN PRINT "Cannot access mode"ãwinGranul = 64 \ ModeInfo.WinGranularityãxRes = ModeInfo.XResolutionãyRes = ModeInfo.YResolutionãIF ModeInfo.WinSize < 64 THENã PRINT "This program only works with those modes with more than 64k of window"ã SetMode = 0ã EXIT FUNCTION 'these routines.ãEND IFãIF ASC(ModeInfo.MemoryModel) <> 6 THENã PRINT "This Screen Mode is not available"ã SetMode = 0ã EXIT FUNCTIONãEND IFãSegment = ModeInfo.WinASegmentãDEF SEG = SegmentããRegs.ax = &H4F02 'Set the mode.ãRegs.bx = modeãCALL INTERRUPT(&H10, Regs, Regs)ããIF Regs.ax <> &H4F THEN 'Make sure it worked.ã PRINT "Screen mode could not be initialized"ã SetMode = 0ã EXIT FUNCTIONãEND IFããcurBank = 0 'Initialize bank and page.ãyOffset = 0ãbpp = ASC(ModeInfo.BitsPerPixel)ãSetMode = ASC(ModeInfo.NumberOfImagePages) + 1ãããEND FUNCTIONããSUB SetTextãRegs.ax = &H3ãCALL INTERRUPT(&H10, Regs, Regs)ãEND SUBãDieter Folger PB SCALABLE 7-SEGMENT DISPLAY folger@bamberg.baynet.de 11-10-98 (12:32) PB 75 3196 7SEGMENT.BAS'---------------------------------'ã' 7SEGMENT.BAS for Power Basic 'ã' Scalable 7-segment display 'ã' VGA card required 'ã' Freeware (c) Dieter Folger 1998 'ã'---------------------------------'ãSCREEN 12 'VGA 640x480x16ãDEFINT A-Zã'========================================================ã'Demo program:ãx = 20: y = 100 'coordinates of upper left cornerãfg = 11: bg = 0 'colors fore- and backgroundãNumber$ = "12.34567890" 'example to showãFOR s = 1 TO 50 'size 1 to 50ã CLS : LOCATE 5, 5ã PRINT "Display size"; s ;"(Press a key)"ã Display Number$, x, y, fg, bg, s 'call routine to showã DO : K$ = INKEY$ : LOOP UNTIL LEN(K$) 'wait for a keyã IF K$ = CHR$(27) THEN EXIT FORãNEXTãENDã'========================================================ãSUB Display (Number$, x, y, fg, bg, s)ã' Number$ = Number to display;ã' x,y = coordinates of upper left display position;ã' fg, bg = foreground & background colors;ã' s = size of displayã'--------------------------------------------------------ã SHARED zã RESTORE ' bitmap dataã FOR i = 0 TO 9: READ value(i): NEXTã FOR j = 1 TO LEN(Number$)ã IF MID$(Number$, j, 1) = "." THEN ' if decimal pointã CIRCLE (x + dist - s / 2, y + 3 + 2 * s), s / 8, fgã PAINT (x + dist - s / 2, y + 3 + 2 * s), fg, fgã INCR jã END IFã z = Value(VAL(MID$(Number$, j, 1)))ã Segment 0, x + dist, y + 2 + s, 0 ' 1 = middleã Segment 1, x + dist, y, 1 ' 2 = upper left Äð7ÄÄã Segment 1, x + dist, y + 2 + s, 2 ' 3 = down left 2 ³ ³ 6ã Segment 0, x + dist, y + 4 + 2 * s, 3 ' 4 = bottom ÄÄ1ÄÄã Segment 1, x + dist + 2 + s, y + 2 + s, 4 ' 5 = down right 3 ³ ³ 5ã Segment 1, x + dist + 2 + s, y, 5 ' 6 = upper right ÄÄ4ÄÄã Segment 0, x + dist, y, 6 ' 7 = topã INCR dist, s * 2 + 3 ' increase distance between digitsã NEXTã DATA 126,48,109,121,51,91,95,112,127,123 ' bitmaps for digits 0 - 9ã '--------------------------------------------ã 'construction of bitmaps:ã '--------------------------------------------ã 'digit 0 is bitmap 126 (=binary 01111110)ã 'all segments are shown ³³³³³³³ã '(=1) except middle (=0) segment 7654321ã ' ³³³³³³³ã 'digit 3 is bitmap 212 (=binary 01111001)ã 'shown are segments 1, 4, 5, 6 and 7ã '--------------------------------------------ãEND SUBã'-------------------------------------------ãSUB Segment (p, x, y, b)ã'routine paints one segment (across or down)ã'-------------------------------------------ã SHARED s, fg, bg, zã cl = bg: IF BIT(z, b) THEN cl = fgã FOR i = 0 TO s \ 8ã IF p THEN ' Segment down (p=1)ã LINE (x + i, y + i) - (x + i, y + s - i), clã LINE (x - i, y + i) - (x - i, y + s - i), clã ELSE ' Segment across (p=0)ã LINE (x + 1 + i, y - 1 - i) - (x + 1 + s - i, y - 1 - i), clã LINE (x + 1 + i, y - 1 + i) - (x + 1 + s - i, y - 1 + i), clã END IFã NEXTãEND SUBãDominik Kaspar ROSETTE EDITOR pedok@pop.agri.ch 11-18-98 (18:10) QB, QBasic, PDS 74 4830 ROSEEDIT.BASDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"ROSEEDIT.ZIP",4^6:Z&=3344:?STRING$(50,177);ãU"%up()%/%%%R%%9\mQGI,,$X]%%%%]%%%%,%#%%x#MD0A4)B?VY%QVYE)1AV].UEãU"2W(EAWUADWU;.WU3WIUE14.ZEAV(UDVUA;VU3#VUE1A7XE?%WQW2%/up(%)9%%%ãU"%-%LA=QG#:9&JS%%%%W%%%%+%%%%j%zwtu[jPUM%VymO%WWUu%m[Yv%m\Ym#ZW%ãU"aC>U+8mkE+M9IE>-%i;>?]]=>i&A&%u%p()9%%%%-4%Ym9=J$Gm(8.%%(%f%%%%ãU",%%.%j'f%ruqj=BG42'=e-%QJUaJ+>otb[57FJExHTm2/m8[7o-:*4#Rxk4Y50WãU"eAula5G#5s&95(DY.e2wInqK1RR\.WGT(TatVS=?g\uxMdF3Mg1iocuG+x<$P:1ãU"Wz3YLMu%p()9%%%%-1%)Fv1GHRj*mf%%+%u%%%%*%%%%wtx%jVRt7n/=Ua144EhãU".ys*blp]T[FLhx%do>UDS7fai\-w5(,fH^).Lu+2C:R1ns&dA+0Sv_^O$R6U+SCãU"OG$YjD'T5dgJjMmf#6h3#L+st*XaFSwdO83'C%e)tQCUX:/k'G3sChG06JB3/hs9,P(wSAkAUU*B:up_$TRUI>>jV.]sM&Mup(%)9%%#%-%:ãU"\FvGXUGTKg[%%%v%%%%*%%%%w%txjW(J]V7%)F-)rlz38iewO5%l9(HtzuxZ)-sãU"s\7]r%sNiU=chURKa&o1uiF8RTWo1)RKT:(e_)zWF>oh5lD2z,i$Myr=s^*SVipãU"]7A3e_3JUV?l48,ybg38?DA0)I1O?[ãU"][C_Z9nPJlwdtC,=>7KONaR6B.?Dpl(%up()%9%%%R-%HP%QG6C/;9U%%%%_&%%ãU"%,%%%%it%rnsn1pd^p%/hV-jj$Tg^j>jW>IKu+j>r?x.Z:)MY>K:d2?cr^.v1oLãU"DrQqj0sVDnIe>)^i'U3>;'2=fM,yC8$[$I>_]nlGWe+-hj?L/c+q^rD2CX(l[M+ãU"W*733\M[8SXv3ASHD^d4jW?q)MJ&u%p()9%ãU"%%%-4%4utGFHqF,nLHd%.\8k>di.ãU"3u#Ph6#F58HcGY.9,]w3ErQZ_bY$Ac;$FL]ds\gnA1zPuKS6'9AQPL3cC$v;;4#FGN:vHc.K['[Umj;Ch;RWga<ãU"2qV9.2d:3I=1coHpx7[R*O8)-py?1;2]vbn(*'aOiIqr-3-ijN%1GUW-3kdmTI5ãU"N,0e=;a1^RDfGEHI/Bd:4C(/C6>5(_3d:J^o'OG]L3\-hN>>;Xlt:s-k0K=.V/KãU"JQ=cw2(oVoGu:I
LFYK'BI8ãU"q7t=1J.G1YfI;I^Bp4%1DwF$IRQfZ#;:Vd7)>AD,%GQ]hpyyNhd8r[ChZuprP99ãU"FSw4VvHaPD$=0W1m,cqW])c=79pcNI45m],,BSSE)yBO9)1sO,,lKh'_+m0B&ZãU"Rv9LNj(isaBNu=dd%wmFP:,j150a\\NTcHYO:ukXep7k3Xii+AU*8n;o.S09UlgãU"Gn^ayHJW+&IUAT);OV,Qs-(6ZKj6[=O65)M,T*Dr:gAg)li1\Le9(^TevW;Y*sWãU"n^9\2tUo1GXm40:(>rHJv4/*7T4%07&GY7nQj3BDs2zbB-[bãU"t=PEU3SG1GK>8R$m.KaJm64U]KI71g3:yys(utJT:%7xS*eqW,;=O;_LX3f;$++ãU"G_teX^uMMjvKU$3_K$ibKM9*=dKSC7[U,TofVbTlXK,7ulL&2YM?81C\O(YE(H.ãU"?fQ^6cOnBH4\-mY?_=O=n;oc7#,Zm$th'85IYng3TUFHt;)SxKjvXNA4iAo,eJ9u)p)h(mJ0u(?MDam4O'JãU"a'E9,,>mh2FT13g>(gnZZJrI%/BRK;GX9[0AGw%pe=P#H7VzLs%JPzX='[(ng/gãU"Ioh3cLcVV=oIID37u,'P9eh+tvtbGttãU"5Ph>:&WQk>nr(E&q=9m2f;$v6HHZ_C=mHVsI&8F$4G'$8O]JyXD=Jpv]VYhVI%PãU"YlaR>s,UAMC5X:>ge,10u#4pGzMD-;N-myaK^quqQT+wez9a.e:>S6o*Iib/Z1NãU"/*?N1^M,sO9>P71X&-J6aQU%EL5XW2fp1a,#lMd>9WVA')xP]86JG=BoPp'95)i<$f+=j9Gxq#oãU"zzD&a75n(yXxghO^\vMu%f7r#'P#H1wDg[M'g4jfJa'IemKjKr+(y'b(ãU":m'u]fT*m[6:(WGLMcJo6<]7HgP%=HKt#>ãU"jq9&_C=/)NnME2q*X.rM^NCbQ+\*gs/pcG)TZaOY/P:QZfDPg)A1VF+J/C*6BQmãU"KlzuUf:F1a:fz$]9xpU?rUHDU>*Y$\\le>V>;zcH&W+hI7a%8^7vT+:#2LV]>gCãU"r)Xigjrxe:?4a%vco/W_;9$k'4Xul\2fA>4c579\+aV?:np7Y2UlfOc)SHJu-h-mf*$^9OJ1d?1pP-86#hS6)xw/fvãU"c7':Fq.6q6qQK*/[r-gI7]cdF[U:3JvV2cm;\#GR?9+g_o'a?jTZ4HM/aJOkzTdãU"1PQxMw&0,DTOrz[U0=lSzUj%/[E=$O\OG;W:as08.'9$c+Yc:MXfb%_zHGY?tO0ãU"VaQ>hp85U+)A1N$C)sILa+g\0vaGmA&jij7<3.DB0CFBGfWtqT],/_cW6J\HoW*ãU"$fI(F1h./&Fzg0AFC'8]5UI&O%0Cno&h20-V84+;o((lTXO4+5=DCsQ#GV+Lr)U<:[5c4?^(/f9:(P=NI;SJ.au\3pQo-ãU"Ez6I%oFtJv*nTR?/0KG*P^[uP;3.\H70:Ar4tn3AmfY1Zpmfnzh*]JII#E>QEJ4ãU"^eK*_88b-sHi5(E.0GMud[PndBf)5u-SY%)Q_,[-oa<)&:90\MR=6;4.WyuG>>CãU"BIzL4pTkp>Q*6Y]WfR+Kk/&0sy7QQqHkjiD4P'a,P;UPjZ9+)];sD.u[ANVq_PwãU"-dvH]3?qbZUKP-L%Ec+9+6X+MsoDIegKOt#$LWG(^(c7)vJQiwc6S0MwtRJQ3F:(mdI_\IMMm0b;q+b.B1ãU"Hix6+V9_X=/x2BV(2Q*u<7a':/yt'_Ht/=h\UqBW3-d&rFxuVYV3e_4uqk+#]57ãU"/4Pn>[VXsjGBJR$ZhTj-XtQ6L,(Okz3oo?#.FOMt:DQpOKGQUd407g,s01EZcsQãU"6T\gt3vW=zWR)i2kf^*Ti:]>V62$,j,U7d'-[[\p'lILE>USI='89N?ka/Cwi3yãU"\o/8u.6gDuo]?7\'(5rF7h.D7DTcMTN*01+0Tz't=)'.R;_kZ0KwO+:,P%Bhe9%ãU"QWg'X9u*/d=?+R(z%[)Jj:STV4x(btlNqE-$+jb(FR3w6C4Do66#'JvXF3_;j9=ãU"K8.YGj.YF0.D6os?\R'];X?[;((^>G\Jo+AoB(u9s4MmE;*^o24i8XP6?7axr])U=Uu;ãU"PdW8\JTpIJgN2HnpCMMz_FCX)NGwT4\eL97CxKeivNQ;DyMF56$9.SE5ivN-(??ãU"?G(NO6$s[G%-SjYh.9xZIya:rIO*M;/t:ãU")R,*[Bh3t*4z7C+^N5NkNq-Iv<^#LfT7%BmIb&HfXd>,MLxpJ9YGQ_Jnd0.h+n,ãU"(0.#525o:/[ugN>[ML[/\Ec=6KWq?:o/x/5d-coUaExRs?Rb_sV;lQfRwaC4>+4ãU"S8388=tFf(JDTY^4.1fWphVqKoa?p.'W/3+ZkF2pO%C>W$b?_'nM*sJ>HãU"'7$s1#ut$fApF'M;to9oxB+NG:r>aMdXw)*;j*l1FW8=i9eO2?i.*EersIL>wjHC5eq3d6%$#aEf\FbbLYn,IfQpãU"c75]s5qpzk#GkNPP$86AB+B#00&G3.VZN+3yQVN4n9hlz%e;CPP1cXAs>mkRViHw6;*OE3FL^\khãU"RU?D84NI4aCh,,a\G3:GxAGma<,99W,Y8,6:jRj;xsfgKYP8GK?[HaqYJzMCv#QãU"^OHB&sxJ2*Tu+Cykn9gU#/VN;/(E8u30Kc-JkloZfKMR3Cih-G:gF%O>9Z?vw%2ãU"QSIg2p0;cEa(euR.UCed]Q&:jI8\.uiV;hor)toxEWdCH+6LLxsJEAw-/oUIe$CãU"H'#Ax3[t4K\]pq_DRkTJcE_4,vP5ãU"w#R=8[od,>yc&Y$,%n*tMN.Ho/&IA%(Yw%0FaO3(\Ir,,:Q;T?rZYLW;i7D:+LãU"Pl7E%4WeXrXO5?w/GK)?9uS/Npuoqk4.F5B4X$&bK$RX;OT&Z#FoTWjHtq,WL5SãU"^cYv1ZSJ\B#7890qHy*:TGZ:<6/<<-Kg^PJVew,?ZH+kl4YMAEEn1F[0eEq/*p'ãU"DZ+Ab?g=*Wbl#>FLga^A6\VPIQ^RP3+%a6)Nc$%Z-pEOgkbg[#XNkcJJgYcPeYhfs<_LERdt9B(7%(FtIKSUDR6].'u84]3#,OãU"0)C>zZ^EtL5>ãU"FZ(;78;u4_cyI29M;Zs2-b)CM4#XtdrC3.0U=C&$F&,NilR)4.,>?DCx?I>pCScãU",hxe26CW9z+._SBG:C;iOQCFoBGxgL$p#d/YC^M(m4vãU"$Fp3\XGN/5w,[.]gg>]#d(GUH2%o)ol(bm]\kidu2lQNGRO5cBQA%k\0Li<7dkEãU":+KB')juu'C$FH_3igxKf=(aV6i'g5g^gmhmwf_eVN&S0bD1A9q,NU4EBQ4UcRiãU"&VldD-K6SwN#$x1#\=F-qNf(x#X+]Vh1p,AXgyimdXa].kM&[?TO(u?QZt$RUPfãU"o)cXBpkyaqney2hSpL;ltN]C^e]rQycrIBCg)QkU]#K1'mmK6Pi.ãU"0;=l^QE*FePQbDãU"msViK*o3_W$AB8n8iEv):]):#[tJ^_b>E-w15R$4,Ol(u85k>&x&W=#&lQ7wcwh6uT8JHLgYtn0_kI?SNMtP]b=3W\C$0,/omãU"0iJb1o_e?E?>&KE5P8V4A(uNXtQn?J1uc%7,C1hcpX61-PGW+e_EZy>B_TLT,uNãU"Q>OA(hr$^B;bFlVa47]G?nBE=;v^HTEOJYAu>rJB/\Jd7.-QamKgjR(8^s#>0i^ãU"))-adKEq\bM5=9sDji:D3igi?RWI6=i)vhEEV/lS>ogEE_-h:YCp>qdãU"7FQBrPg2_+[_I:k]s,rZL0*vHkb]lhtyR$tUJ>HZZm]Gp#v'xq7JgmK8gfv$&*fneMru8=.30B*PBH#U0=1#Sr4A?uP9h0AKjãU";Nh:4o,[g,iH4\u22,;fk7Vbq)dqTM$puW$G1F\aL\;F9dM\^>DQmKiT[:ndUvFãU"Si0tp..'kIjR:D;Gb=MK*2:=Vu>M[:9W.VL$L,4PE0\VG/$etrB)6K)#4UThP64ZvzãU"J3Ws=Dg6a6'cEXy%aNp/??iLQja8D1.D*E=F><1*bD($vZH6w6ibfr56:GR0?-vãU"rqBwqS1u\nsV)pTx#-:iAk-mD8=:as>0p'^/q%XYYPCZ(3nQeAhfZ:nbSF^^%VnãU"?c3g_,\TYAKMnM/ednS6YKa9d2[#%%Ih/,5J:&cTRqbR5yCwoFFBqAUTZW'Wl?vãU"xQdI6UAbr?66RnlW*eXd(8UD1z#I:UkshWpGnJlu:q4QjJB?Wz[_eGG^igNc;cvãU"tecon5'fUlUnGuegSDp5=1l1e+B(G09C(m5Oh1P.r]m6NK3oKIU%J#_1i+>./^7Ht<6p&U7*Ise3C%I/C]S9B0W+tlq>gB8,y=1KãU"emMqWcUsR%m1(^gT-I/<*W8$6,N7a5oh\o6xG1g)'(huR;oI),(t.iãU".2_j4Uhd$T-A8es3e/D$Ko'SkQ3T8Wm0V)=d2/,y(a4;prVOI+HgCR%]0^I_YXsr(hãU"JXi$$JhE+_cUFzWE&L6Kb.XX?'7&iwkI4(uteQI^Zt'#qSv[=Xs>D6FNMSDKPXPãU"zIXgMX#[rf8)p/[2RfB#MaXsBH[4\_*Xg?4MYj5Us$hI#pPg-YwB&uSs]&b_k\3ãU"ZqZiV]651_p:aAFkmbdR7%V,HSa4hKeFC8uEkc'7sY95K?T.Hu&4lhJ-)]5l8rQãU"*'=3)X6$=4?CD^ti)#It-oG3?#S,d9l.%WZ6n^B:/UjEQoulsCl0om=zY.M&NOXM7_h^kJijãU"Y%?N_NwZ#=A,gUw9+8r-buY=_kR3*h=FãU"D\suy7GS?,ZhBWS;/5Mu3LNx)2a39iL1j(qGpW_Sg6fN0DOCBCh+XrW%GFg;6brãU"U.7RSV#Nn&*oqbt\0_h_>kCm1D.Z6pvU,H(4*,*rd%up()%ãU"9%%%#-%ErS#Jh?(.=X*7%%P1%%%/%%%%uf%xyjq%SufqLb%(a[BF1t2nyF8Oc5/ãU"eElnQagqvUC1Yb=QX.T+\WFnXnp4Ndpj<<6(*X.3dN6MNBsimsvrNWNdNpVN>?(ãU"XXCPh6MNt6]gnQt42I=T=+Ve6T;iH0L0j+=n;[p^9n;q5]36r)x*+%<[01#55tjãU"(1?QCm4.%:mTTj\j,=[ich96Z+ix630;l?l9Q5wl%dK.E&m<[j(+['gBq?1mXW*ãU"BOB##[V.1=OlS.W9hL&O83DO2'vVtb:b#U(I?LAmaw$i&ac(;]CpDpkYB2$TZWEãU"9$k$nBC*QGI7GP-Y1[HU,K;6/,''F'_1W-&XYx)#3x&Ng)M/^ndc5^)3XQeWJwI0X3wa7ZC.Mpu.OjcU_[]MC?&SKD2CãU"gOlEs2()09Z*C_S-kuo1r_SJA7O'HE.:3^%+8JC$RE,OFuiW/h3?fOp,&*rFãU"6>cJ&sxCz]k>q?&twcthnVVZhH)37pco?Nk>Tf^B:r<[fs,>:r[ãU"'qcH%^LpyjxACN=?9j2bcsJv6Kt)K4RIufbd/jy,Om_\C#P]=%/UN,:\R#.7t$2ãU"*2:[Lj\?E?LIJ\UVaY4L4\6g%=3+[N>6Y%oK6]m6Mr1CFQjqiUSgiP/Huq145BFãU"s9(_;+57C:PL4jY?ddLy>+6k[m:L?)nuGsZprT2$9CsO[%&l[:V5q#;#Oqj^&9OãU"7kM(+,74C4xI-Z=6:N6CjYV/u6JXF+mFdV)bJn;98DkoTk$8K<DNQg5bgNd-eb5<+]3epqxEBrXj[trZhiNSyM(M.3zF\llx([ãU":sbkg4r__Mm*C6OCn,W/$lrrn(2w*wH^hZ&HEHQrdBBAknr^tp(HIMX=L]ãU"ms%d,bC/lX_nvpFEvh_:uOp$csoavRW3sWni(zqpb6eoi(r6T&?U+osf;R>8OT'ãU"3GQOfvZP7o8vsb7vSptjuf[7^G>kjMF+hH-t7>bH#Pe[Hr#)v9>l(\_S4fkHzH;ãU"x%flM-^Z46,oz)iErEf_&=t:,w:2V*L2[XgC?JeYarqY&OF/ti'BH%pQGSn9?dJmg_7%C=^]CãU"Y.ajEg]kRuDVfqV[eoiFc[eKwrd[i^>we=>DXqNMWLMB,Jtf[#Zbg-ODk;k2qMbãU"IMyM-d_/dXVf]B$:S-HuVv^if;];n6ljK$6Fc[2hPyMWxR>rxp%Ff<=&pNfx2&SãU"u)Cr,6vF#suc0T2l\a#R26/sq9uG?Ny3JCh>hfMUC*UI$,*'s#wZXTI4X%FZViKãU"Pys5MU7f[QMMOgpoWMUJO]i0^LV*2RyEKH#S:XU&N[:X5X4LODuu%QOE9(ykvN_ãU"_7wbV\L]zmmn&**co'_%'CyB(ve93C[pki^\J#Hya=E]?XU0Q-26jEQEONDq]hTãU"^e1+&Rdu%p()9%%%%-X%Z5I[Jjrj'UD)%%%?0%%%,%%%%wlg%SufqCZepE%HV1(ãU"0p_ZxsJ]yv_iMoaM;scM'1O);xTn;#'br>ZPb9r>efãU"-1bVVe8-W-?kzV-+^u^M<=y+7oRCnhVcqTXC$S8XF(4i,jXHdbU6-H?>zZR7T+ZS3?0i,Dx\ãU"K&p->n,xk/mS>W3V3Ida3V*fAY_G/uand%PqIw4&YJpszBPZaETwYLQ6)o6T4PJcA*5-.la8Vrl$iMãU"[Em>;yN$^PvHEm;FYhacpEOn0uXF$*$pCQess,h2-:-a&c]18.Jt#vB$N[Qlh[rãU":dx#80$t[9,h,ks:A9Vhq3OKQ;x)+p&2MzTM\r3RuK+M=ZaL$T\-cUmNoãU"Xp^e^1\0$]f;Z^hBqYZ(*I)/D:G)#3#G^*92qfI5XH0RLTsQ,lA=B/Eg2+?e=?aãU"9)L$l^E0Z&8%?,V;r$QRfv3UdSM,#Dr8R^EhjG=sYllHmu1'<'dxw#*U8VnD]*8ãU"J6Ks-;m.$m>XUpirq(eLxE3lKRb\7aAb^*iV?+ER*$6mqgAqãU"4r1As4*Qa#ML;zYLb0E4ohdmK*kB6s$kl9x\d9$hLEVFgvFtQnlZj:7]iGcD'f$ãU"vI8eHiV$16lmlGCpaq,V$6bpb^anuH7._g&Lz6/Px2X%oC>'FmTMC[WM,a^3p(3ãU"%xMfd9\DvU'dkdpqFSJHJu:onK<6OMS9dx<'8*]CTs2F]'JT(QBmpaO5MN,4EtlãU"[PlABr)%vBn.DMiz\ãU"Zad;4f]xpWev7c_K2y]%nE*[[rl7j\giwI*lCI6D^xri7aYk+?(p[r#p+x3iisSãU":qb:AYLosN?b(]ci/3vPLJb0GAK&%m+(P?8kDsI_\5gkC?HZII\VQCBmq9WOaHvãU"p1iYLuWob3nVw6TVf#5QW=-cs1Fa*dUmPE^DBdc[$EMnYHG7RIdwo^KU=i(IV1rãU"^1LUto#HA\fuH^t5JP4s]0'>8ivW6wq-o]ee=*IA.:+mI4O9Nu%p&'9%%9%%%%-ãU"%V_r#J4g'Yfc[7%%d%h%%1%%%%%%%%%&%%E%%%%%%%%%rfp%jRuf%qSgf%xup&%ãU"'9%9%%%%-I%Er#4Jh?.&=X*%+%P1%%%/%%%%%%%%%&%E%%%%9%8%%u%fxyj%qSuãU"f%qup&%'9%9%%%%-X%Z5I[Jjrj'UD)%%%?0%%%,%%%%%%%%%&%E#%%%>%=%%w%lãU"gSu%fqup%*+%%%%%(%.(%v%7%%,A%%%%%ãEND SUBãCLOSE:IF S=49AND 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ãViktor Rootselainen BMP LOADER/MAKER viktor.rootselainen@pp.inet.fi 11-18-98 (18:28) QB, PDS 222 5837 BMP.BAS '-----------------------Bmp loader/maker by Thomas Nyberg---------------------ã'modified by Viktor Rootselainenã'this program can open files of any sizeã'you can now load/save bmp to/from memory :)ã'this program is for BASIC PDS 7.1ã'to work with QB 4.5 you must modify change sseg to varsegããDEFINT A-ZãDECLARE SUB Byte2Int (word%, low%, high%)ãDECLARE SUB Int2Byte (word%, low, high)ãDECLARE SUB BmpLoad (Filename$, Segment%, offset%)ãDECLARE SUB BmpSave (Filename$, Segment%, offset%)ãã'$INCLUDE: 'qbx.bi' 'change to qbx.bi in qb 4.5ã'$DYNAMICãã'The header:ããTYPE bmpinfo 'what it should say for a 320*200*256 bmpã bm AS STRING * 2 'bmã size AS LONG 'wid*hei+1078= 65078ã r1 AS INTEGER '0ã r2 AS INTEGER '0ã offsdata AS LONG '1078ã hsize AS LONG '40ã wid AS LONG '320ã hei AS LONG '200ã planes AS INTEGER '1ã bpp AS INTEGER '8ã comp AS LONG '0ã isize AS LONG '64000ã xpm AS LONG '3790ã ypm AS LONG '3780ã colus AS LONG '0ã impcol AS LONG '0ã pal AS STRING * 1024 'blue, green, red, 0ãEND TYPEããDIM SHARED BmpHeader AS bmpinfo, regs AS RegTypeXãDIM Buffer(32000)ãããWinDir$ = ENVIRON$("winbootdir")ãIF RIGHT$(WinDir$, 1) <> "\" THEN WinDir$ = WinDir$ + "\"ããSCREEN 13ããt! = TIMER 'Time how long it takesããBmpLoad WinDir$ + "logow.sys", VARSEG(Buffer(0)), VARPTR(Buffer(0))ã'BmpLoad "c:\windows\logow.sys", &HA000, 0ããPUT (0, 0), Buffer(0), PSETããDIM tmpbuf(1000)ãGET (142, 91)-(149, 139), tmpbuf: PUT (125, 91), tmpbuf, PSET ':=)ãã'BmpSave "test.bmp", VARSEG(Buffer(0)), VARPTR(Buffer(0))ãBmpSave "test.bmp", &HA000, 0ããPRINT TIMER - t! 'If you can't figure this one out...ãSLEEPããSCREEN 0: WIDTH 80ããREM $STATICãSUB BmpLoad (Filename$, Segment, offset)ãã'Loads the headerãOPEN Filename$ FOR BINARY AS #1ãGET #1, , BmpHeader 'read itãCLOSE #1ãã'Loads the paletteãOUT &H3C8, 0ãFOR i = 1 TO 1024 STEP 4ã b = ASC(MID$(BmpHeader.pal, i, 1)) \ 4 'blueã g = ASC(MID$(BmpHeader.pal, i + 1, 1)) \ 4 'greenã r = ASC(MID$(BmpHeader.pal, i + 2, 1)) \ 4 'redã OUT &H3C9, r: OUT &H3C9, g: OUT &H3C9, bãNEXTããFilename$ = Filename$ + CHR$(0) 'filename must be ASCIIZ (zero terminated)ãã'opens the fileãregs.ax = &H3D00ãregs.ds = SSEG(Filename$) 'segment of nameãregs.dx = SADD(Filename$) 'offset of nameãINTERRUPTX &H21, regs, regsãregs.bx = regs.ax 'filehandleãã'move filepointer to &h436 in the fileãregs.ax = &H4200ãregs.cx = 0ãregs.dx = &H436ãINTERRUPTX &H21, regs, regsãã'Read the fileããIF BmpHeader.wid > 320 THEN BmpHeader.wid = 320ãIF BmpHeader.hei > 200 THEN BmpHeader.hei = 200ããIF Segment <> &HA000 THENã DEF SEG = Segmentã Int2Byte ((BmpHeader.wid - 1) * 8 + 8), low, highã POKE offset, low: POKE offset + 1, highã POKE offset + 2, BmpHeader.heiã DEF SEGã offset = offset + 4ãEND IFããFOR y = BmpHeader.hei - 1 TO 0 STEP -1ã regs.ax = &H3F00ã regs.cx = BmpHeader.widã regs.ds = Segment 'segment of arrayã IF Segment <> &HA000 THENã regs.dx = VAL("&H" + HEX$(y * BmpHeader.wid + offset)) 'offset of arrayã ELSEã regs.dx = VAL("&H" + HEX$(y * 320& + offset)) 'offset of arrayã END IFã INTERRUPTX &H21, regs, regsãNEXTãã'close itãregs.ax = &H3E00ãINTERRUPTX &H21, regs, regsããFilename$ = LEFT$(Filename$, LEN(Filename$) - 1) 'restore the filenameããEND SUBããSUB BmpSave (Filename$, Segment, offset)ãã'reads the paletteãOUT &H3C7, 0ãFOR i = 0 TO 255ã r = INP(&H3C9) * 4: g = INP(&H3C9) * 4: b = INP(&H3C9) * 4ã a$ = a$ + CHR$(b) + CHR$(g) + CHR$(r) + CHR$(0)ãNEXTããIF Segment <> &HA000 THENã DEF SEG = Segmentã low = PEEK(offset): high = PEEK(offset + 1)ã Byte2Int Maxx, low, high: Maxx = Maxx / 8ã low = PEEK(offset + 2): high = PEEK(offset + 3)ã Byte2Int Maxy, low, highã DEF SEGã offset = offset + 4ãELSEã Maxx = 320: Maxy = 200ãEND IFãã'creates the headerãBmpHeader.bm = "BM"ãBmpHeader.size = (CLNG(Maxx) * CLNG(Maxy)) + 1078&ãBmpHeader.r1 = 0ãBmpHeader.r2 = 0ãBmpHeader.offsdata = 1078ãBmpHeader.hsize = 40ãBmpHeader.wid = MaxxãBmpHeader.hei = MaxyãBmpHeader.planes = 1ãBmpHeader.bpp = 8ãBmpHeader.comp = 0ãBmpHeader.isize = 64000ãBmpHeader.xpm = 3790ãBmpHeader.ypm = 3780ãBmpHeader.colus = 0ãBmpHeader.impcol = 0ãBmpHeader.pal = a$ãã'saves the headerãOPEN Filename$ FOR OUTPUT AS #1: CLOSE #1ãOPEN Filename$ FOR BINARY AS #1ãPUT #1, , BmpHeader 'write the headerãCLOSE #1ããFilename$ = Filename$ + CHR$(0) 'filename must be ASCIIZ (zero terminated)ãã'opens the fileãregs.ax = &H3D01ãregs.ds = SSEG(Filename$) 'segment of filenameãregs.dx = SADD(Filename$) 'offset of filenameãINTERRUPTX &H21, regs, regsãregs.bx = regs.ax 'filehandleãã'moves the filepointerãregs.ax = &H4200ãregs.cx = 0ãregs.dx = &H436ãINTERRUPTX &H21, regs, regsãã'saves the screen into the fileãFOR y = Maxy - 1 TO 0 STEP -1ã regs.ax = &H4000ã regs.cx = Maxx 'number of bytes to writeã regs.ds = Segment 'screen 13's segmentã regs.dx = VAL("&H" + HEX$(y * CLNG(Maxx) + offset)) 'Has to do with QB integersã INTERRUPTX &H21, regs, regsãNEXTãã'close the fileãregs.ax = &H3E00ãINTERRUPTX &H21, regs, regsããFilename$ = LEFT$(Filename$, LEN(Filename$) - 1) 'restore the filenameãEND SUBããSUB Byte2Int (word, low, high)ããword = (word AND &HFF) OR ((high AND &HFF) * &H100) 'Insert high byte into integerãword = (word AND &HFF00) OR (low AND &HFF) 'Insert low byte into integerããEND SUBããSUB Int2Byte (word, low, high)ã'extract integer to 2 bytesããhigh = (word \ &H100) AND &HFF 'Extract high byte from integerãlow = word AND &HFF 'Extract low byte from integerããEND SUBãSam Thursfield 8X8 VGA FONT ROUTINE sam.thursfield@btinternet.com 11-21-98 (20:42) QB, QBasic, PDS 101 3373 VFONT.BAS DECLARE SUB VPrint (X%, Y%, Text$, FCol%, SCol%, XSize%, YSize%, Style%)ãDEFINT A-ZããDECLARE SUB PalSet (I%, R%, G%, B%)ãDECLARE SUB PalCycle ()ã ãSCREEN 12ãCLSãPAINT (1, 1), 1ãLOCATE 3ããVPrint 1, 1, "This is an example of normal 8*8 text", 14, 0, 8, 8, 0ãVPrint 1, 10, "This is an example of normal 16*8 text", 14, 0, 16, 8, 0ãVPrint 1, 19, "This is the 8*16 text that doesn't quite work yet, see what I mean?!", 14, 0, 8, 16, 0ãVPrint 1, 36, "The above 8*16 text doesn't quite work yet, HELP!!!", 14, 0, 8, 8, 0ãVPrint 1, 45, "This is underlined text, notice the underlining in a different colour to the text", 14, 6, 8, 8, 1ãVPrint 1, 54, "This is 8*8 shadowed text", 14, 6, 8, 8, 2ãVPrint 1, 63, "This is 16*8 shadowed text", 14, 6, 16, 8, 2ãVPrint 1, 72, "This is HEADLINE text", 14, 6, 16, 8, 3ãVPrint 1, 81, "You may modify and use this code but please give me credit. Go on, this is my", 12, 4, 8, 8, 3ãVPrint 1, 90, "first WORKING program!", 12, 4, 8, 8, 3ãVPrint 1, 99, " ElvisII AKA Sam Thursfield, 19 Nov 1998", 15, 8, 16, 8, 2ãPalCycleãENDããSUB PalCycleãBWay = 1ãGWay = 1ãRWay = 1ãB = 63ãR = 0ãG = 0ãDOã IF B + BWay < 0 OR B + BWay > 63 THEN BWay = -BWayã B = B + BWayã' IF G + GWay < 0 OR G + GWay > 63 THEN GWay = -GWayã' G = G + GWayã' IF R + RWay < 0 OR R + RWay > 63 THEN RWay = -RWayã' R = R + RWayã PalSet 1, R, G, Bã FOR I = 1 TO 5000ã NEXT Iã WAIT &H3DA, 8ãLOOP UNTIL INKEY$ <> ""ãPalSet 1, 0, 0, 42ããEND SUBããSUB PalGet (I, R, G, B)ãOUT &H3C7, IãR = INP(&H3C9)ãG = INP(&H3C9)ãB = INP(&H3C9)ãEND SUBããSUB PalSet (I, R, G, B)ãOUT &H3C8, IãOUT &H3C9, RãOUT &H3C9, GãOUT &H3C9, BãEND SUBããSUB VPrint (X, Y, Text$, FCol, SCol, XSize, YSize, Style)ãDEF SEG = &HFFA6ãXPos = XãYPos = YãFOR Letter = 1 TO LEN(Text$)ã FOR I = YPos TO YPos + YSize - 1 STEP YSize \ 8ã Char$ = MID$(Text$, Letter, 1)ã Char = ASC(Char$)ã Mask = PEEK(&HE + (Char * 8) + (I \ (YSize \ 8) - Y))ã FOR J = 0 TO 7ã IF Mask AND (2 ^ (7 - J)) THENã IF Style AND 2 THENã PSET (XPos + (XSize \ 8), I), SColã IF XSize AND 16 THEN PSET (XPos + (XSize \ 8) + 1, I), SColã IF YSize AND 16 THEN PSET (XPos + (XSize \ 8), I + 1), SColã IF XSize AND 32 THEN PSET (XPos + (XSize \ 8) + 2, I), SColã IF YSize AND 32 THEN PSET (XPos + (XSize \ 8), I + 2), SColã END IFã PSET (XPos, I), FColã IF XSize AND 16 THEN PSET (XPos + 1, I), FColã IF YSize AND 16 THEN PSET (XPos, I + 1), FColã IF XSize AND 32 THEN PSET (XPos + 2, I), FColã IF YSize AND 32 THEN PSET (XPos, I + 2), FColã END IFã IF Style AND 1 THENã PSET (XPos, YPos + YSize), SColã IF XSize AND 16 THEN PSET (XPos + 1, YPos + YSize), SColã IF YSize AND 16 THEN PSET (XPos, I + 1 + YSize), SColã IF XSize AND 32 THEN PSET (XPos + 2, I + YSize), SColã IF YSize AND 32 THEN PSET (XPos, I + 2 + YSize), SColã END IFã XPos = XPos + (XSize \ 8)ã NEXT Jã XPos = XPos - XSizeã NEXT Iã XPos = XPos + XSizeãNEXT LetterãDEF SEGãEND SUBãBill McDonald BILL'S FIRST 3D ENGINE V1.0 alterac@id-base.com 12-04-98 (21:22) QB, QBasic, PDS 262 7965 B3D.BAS DECLARE SUB Pal (Col%, R%, G%, B%)ãDECLARE SUB SetPalette ()ã'B3d V1.0 Bill's 3d engineã'===========================ã'I think this is pretty good for my first success in 3dã'any help would be apreciatedã'alterac@id-base.comãDEFINT A-ZãDECLARE SUB MoveAround ()ãDECLARE FUNCTION rad& (theta%)ãDECLARE SUB SetUpPoints ()ãDECLARE SUB MoveAcint ()ãDECLARE SUB RotatePoints (x%, y%, z%)ãDECLARE SUB DrawPoints ()ãDECLARE SUB ClearPoints ()ããCONST MaxLines = 12, Pi = 3.141592ããDIM SHARED Obj(MaxLines, 2, 3)ã FOR I = 1 TO MaxLinesã FOR J = 1 TO 2ã FOR K = 1 TO 3ã READ Obj(I, J, K)ã NEXT Kã NEXT Jã NEXT Iãã 'Squareã DATA -10,-10,-10, 10,-10,-10ã DATA -10,-10,-10,-10, 10,-10ã DATA -10, 10,-10, 10, 10,-10ã DATA 10,-10,-10, 10, 10,-10ã DATA -10,-10, 10, 10,-10, 10ã DATA -10,-10, 10,-10, 10, 10ã DATA -10, 10, 10, 10, 10, 10ã DATA 10,-10, 10, 10, 10, 10ã DATA -10,-10, 10,-10,-10,-10ã DATA -10, 10, 10,-10, 10,-10ã DATA 10, 10, 10, 10, 10,-10ã DATA 10,-10, 10, 10,-10,-10ã ã 'The 3-D coordinates of our object ... stored as (X1,Y1,Z1),ã '(X2,Y2,Z2) ... for the two ends of a lineããTYPE Pointsã x AS DOUBLEã y AS DOUBLEã z AS DOUBLE ' The data on every point we rotateãEND TYPEããDIM SHARED Lines(MaxLines, 2) AS Points ' The base object rotatedãDIM SHARED translated(MaxLines, 2) AS Points ' The rotated objectãDIM SHARED xoff, yoff, Zoff ' Used for movement of the objectãDIM SHARED lookup(360, 2) AS DOUBLE ' Our sin and cos lookup tableDIM SHARED temp AS PointsããRANDOMIZE TIMERãSCREEN 13ãSetUpPointsãMoveAroundãSCREEN 0: WIDTH 80ããSUB ClearPointsã 'This clears the translated object from the virtual screen ... believe itã ' or not, this is faster then a straight "cls"ããã FOR Loop1 = 1 TO MaxLinesã IF (translated(Loop1, 1).z + Zoff < 0) AND (translated(Loop1, 2).z + Zoff < 0) THENã temp.z = CINT(translated(Loop1, 1).z + Zoff)ã nx = CINT(256 * translated(Loop1, 1).x) \ temp.z + xoffã ny = CINT(256 * translated(Loop1, 1).y) \ temp.z + yoffã temp.z = CINT(translated(Loop1, 2).z + Zoff)ã nx2 = CINT(256 * translated(Loop1, 2).x) \ temp.z + xoffã ny2 = CINT(256 * translated(Loop1, 2).y) \ temp.z + yoffã LINE (nx, ny)-(nx2, ny2), 0ã END IFã NEXTãEND SUBããSUB DrawPointsã' This draws the translated object to the screenã FOR Loop1 = 1 TO MaxLinesã IF (translated(Loop1, 1).z + Zoff < 0) AND (translated(Loop1, 2).z + Zoff < 0) THENã temp.z = CINT(translated(Loop1, 1).z + Zoff)ã nx = CINT(256 * translated(Loop1, 1).x) \ temp.z + xoffã ny = CINT(256 * translated(Loop1, 1).y) \ temp.z + yoffã temp.z = CINT(translated(Loop1, 2).z + Zoff)ã nx2 = CINT(256 * translated(Loop1, 2).x) \ temp.z + xoffã ny2 = CINT(256 * translated(Loop1, 2).y) \ temp.z + yoffã '*IF (nx > 0) AND (nx < 320) AND (ny > 25) AND (ny < 200) AND (nx2 > 0) AND (nx2 < 320) AND (ny2 > 25) AND (ny2 < 200) THENã LINE (nx, ny)-(nx2, ny2), 14ã END IFã NEXTã'* Checks If line draws out of x > 320, y > 200, Y < 0, X < 0ãEND SUBããSUB MoveAroundã 'This is the main display procedure. Firstly it brings the object towardsã ' the viewer by increasing the Zoff, then passes control to the userã deg = 0ã CLSãã 'Smaller the Zoff the Bigger the Objectã 'Zooms in Rotatingã FOR Loop1 = -256 TO -40ã Zoff = Loop1 * 2ã RotatePoints Yaw, Pitch, Rollã DrawPointsãã WAIT &H3DA, 8ã ã ClearPointsã ã 'yaw = (yaw + 5) MOD 360ã 'pitch = (pitch + 5) MOD 360ã Roll = (Roll + 5) MOD 360ã NEXT Loop1ã ã P = 3ã ST! = TIMERã DOã A$ = INKEY$ã IF A$ <> "" THENã SELECT CASE A$ã CASE "A", "a"ã Zoff = Zoff + 5 'Zoff + 5 = Zoom Inã IF Zoff = 0 THEN Zoff = Zoff + 5ã CASE "Z", "z"ã Zoff = Zoff - 5 'Zoom Outã IF Zoff = 0 THEN Zoff = Zoff - 5ã CASE ","ã xoff = xoff - 5 'Move Left (Transilate)ã CASE "."ã xoff = xoff + 5 'Move Rightã CASE "S", "s"ã yoff = yoff - 5 'Move Upã CASE "X", "x"ã yoff = yoff + 5 'Move Downã CASE CHR$(27)ã EXIT DOã END SELECTã END IFãã DrawPointsã WAIT &H3DA, 8ã WAIT &H3DA, 8, 8ãã ClearPointsã RotatePoints Yaw, Pitch, Rollã ã 'Pitch = (Pitch + 5) MOD 360ã Roll = (Roll + 5) MOD 360ã 'Yaw = (Yaw + 5) MOD 360ã ã IF TIMER - ST! >= 1 THENã ST! = TIMERã FramesPer = Framesã Frames = 0ã END IFã Frames = Frames + 1ã COLOR 15: LOCATE 1, 1: PRINT "FPS:"; FramesPerã LOOPãEND SUBããSUB Pal (Col, R, G, B)ã ' This sets the Red, Green and Blue values of a certain colorã OUT &H3C8, Colã OUT &H3C9, Rã OUT &H3C9, Gã OUT &H3C9, BãEND SUBããFUNCTION rad& (theta)ã 'This calculates the degrees of an angleã rad& = theta * Pi / 180ãEND FUNCTIONããSUB RotatePoints (x, y, z)ã ' This rotates object lines by X,Y and Z; then places the result inã ' TRANSLATEDãã FOR Loop1 = 1 TO MaxLinesã temp.x = Lines(Loop1, 1).xã temp.y = lookup(x, 2) * Lines(Loop1, 1).y - lookup(x, 1) * Lines(Loop1, 1).zã temp.z = lookup(x, 1) * Lines(Loop1, 1).y + lookup(x, 2) * Lines(Loop1, 1).zãã translated(Loop1, 1).x = temp.xã translated(Loop1, 1).y = temp.yã translated(Loop1, 1).z = temp.zãã IF y > 0 THENã temp.x = lookup(y, 2) * translated(Loop1, 1).x - lookup(y, 1) * translated(Loop1, 1).yã temp.y = lookup(y, 1) * translated(Loop1, 1).x + lookup(y, 2) * translated(Loop1, 1).yã temp.z = translated(Loop1, 1).zãã translated(Loop1, 1).x = temp.xã translated(Loop1, 1).y = temp.yã translated(Loop1, 1).z = temp.zã END IFãã IF z > 0 THENã temp.x = lookup(z, 2) * translated(Loop1, 1).x + lookup(z, 1) * translated(Loop1, 1).zã temp.y = translated(Loop1, 1).yã temp.z = -lookup(z, 1) * translated(Loop1, 1).x + lookup(z, 2) * translated(Loop1, 1).zãã translated(Loop1, 1).x = temp.xã translated(Loop1, 1).y = temp.yã translated(Loop1, 1).z = temp.zã END IFãã temp.x = Lines(Loop1, 2).xã temp.y = COS(rad(x)) * Lines(Loop1, 2).y - SIN(rad(x)) * Lines(Loop1, 2).zã temp.z = SIN(rad(x)) * Lines(Loop1, 2).y + COS(rad(x)) * Lines(Loop1, 2).zãã translated(Loop1, 2).x = temp.xã translated(Loop1, 2).y = temp.yã translated(Loop1, 2).z = temp.zã ã IF y > 0 THENã temp.x = COS(rad(y)) * translated(Loop1, 2).x - SIN(rad(y)) * translated(Loop1, 2).yã temp.y = SIN(rad(y)) * translated(Loop1, 2).x + COS(rad(y)) * translated(Loop1, 2).yã temp.z = translated(Loop1, 2).zãã translated(Loop1, 2).x = temp.xã translated(Loop1, 2).y = temp.yã translated(Loop1, 2).z = temp.zã END IFãã IF z > 0 THENã temp.x = COS(rad(z)) * translated(Loop1, 2).x + SIN(rad(z)) * translated(Loop1, 2).zã temp.y = translated(Loop1, 2).yã temp.z = -SIN(rad(z)) * translated(Loop1, 2).x + COS(rad(z)) * translated(Loop1, 2).zãã translated(Loop1, 2).x = temp.xã translated(Loop1, 2).y = temp.yã translated(Loop1, 2).z = temp.zã END IFã NEXT Loop1ãEND SUBããSUB SetUpPointsã ' This sets the basic offsets of the object, creates the lookup table andã ' moves the object from a constant to a variableãã xoff = 160ã yoff = 100ã Zoff = -256ã FOR Loop1 = 0 TO 360ã lookup(Loop1, 1) = SIN(rad&(Loop1))ã lookup(Loop1, 2) = COS(rad&(Loop1))ã NEXTã ã FOR Loop1 = 1 TO MaxLinesã Lines(Loop1, 1).x = Obj(Loop1, 1, 1)ã Lines(Loop1, 1).y = Obj(Loop1, 1, 2)ã Lines(Loop1, 1).z = Obj(Loop1, 1, 3)ã ã Lines(Loop1, 2).x = Obj(Loop1, 2, 1)ã Lines(Loop1, 2).y = Obj(Loop1, 2, 2)ã Lines(Loop1, 2).z = Obj(Loop1, 2, 3)ã NEXTãEND SUBãDieter Folger RUNNING TEXT folger@bamberg.baynet.de 12-02-98 (15:11) QB, QBasic, PDS 24 755 RUNTEXT.BAS 'Running text for QBASICã'Written by Dieter Folger 1997ã'Public DomainãText$ = " ABC - Your source for BASIC sources "ãSCREEN 13ãDIM Textfield(800)ãC = 31: Y = 10ãDOã P = P + 1: IF P > LEN(Text$) THEN P = 1 'increase charã C = C + 1: IF C = 104 THEN C = 32 'color to useã COLOR C: LOCATE 2, 40ã PRINT MID$(Text$, P, 1);ã FOR i = 1 TO 15ã GET (1, 7)-(319, 16), Textfieldã PUT (0, 7), Textfield, PSETã PUT (0, Y), Textfield, PSETã PUT (0, 180), Textfield, PSETã d = 0: DO: d = d + 1: LOOP UNTIL d = 200ã IF Y = 170 THEN R = 1 'change direction (upward)ã IF Y = 16 THEN R = 0 'downwardã IF R = 1 THEN Y = Y - 1 ELSE Y = Y + 1ã NEXTãLOOP WHILE INKEY$ = ""ãENDãDave Navarro, Jr. 3D SURFACE PLOT dave@powerbasic.com 12-14-98 (14:35) PB 44 725 3DPLOT.BAS '3D Surface plotã'From "Microcomputer Graphics Techniques and Applications" by Donald Hearnã'Ported to PB by Dave Navarro (dave@powerbasic.com)ãã$LIB GRAPH ONããSCREEN 12ããWINDOW (-4, -3) - (4, 3)ããRHO = 50 '30ãD = 10ããTHETA = 1ãS1 = SIN(THETA)ãC1 = COS(THETA)ããPHI = 1ãS2 = SIN(PHI)ãC2 = COS(PHI)ããFOR x = 15 TO -15 STEP -.5ã FL = 0ã FOR Y = -10 TO 10ã Z = F(x,y)ã XE = -X*S1 + Y*C1ã YE = -X*C1*C2 - Y*S1*C2 + Z*S2ã ZE = -X*S2*C1 - Y*S1*S2 - Z*C2 + RHOã SX = D*XE/ZEã SY = D*YE/ZEã IF FL = 0 THENã FL = 1ã PSET (SX, SY), 2ã END IFã LINE - (SX, SY), 2ã NEXT YãNEXT xããSLEEPãSCREEN 0, 0, 0ããFUNCTION F(x, y)ã FUNCTION = 3*COS(.05*(X*X + Y*Y))ãEND FUNCTIONãDave Navarro, Jr. EYE PLOT dave@powerbasic.com 12-14-98 (14:35) QB, QBasic, PDS 51 951 EYEPLOT.BAS 'Eye Plotã'From "Microcomputer Graphics Techniques and Applications" by Donald Heardã'ported to PB by Dave Navarro (dave@powerbasic.com)ããSCREEN 7ããFOR I = -3.2 TO 3.05 STEP .05ã GOSUB DOPLOTãNEXTã I = -3.2ã GOSUB DOPLOTããC = 10ãDOã SLEEP .05ã FOR I = -3.2 TO 3.05 STEP .05ã J = SIN(I) * 25ã K = COS(I) * 23ã L = SIN(I+.8) * 25ã M = COS(I+.8) * 23ã LINE (159-J, 99-K) - (159+L, 99+M), Cã IF LEN(INKEY$) THENã EXIT DOã END IFã NEXTã C = C + 1ã IF C = 15 THEN C = 1ãLOOPããENDããDOPLOT:ã X = SIN(I) * 105ã Y = COS(I) * 90ã A = SIN(I+.6) * 105ã B = COS(I+.6) * 90ã J = SIN(I) * 25ã K = COS(I) * 23ã L = SIN(I+.8) * 25ã M = COS(I+.8) * 23ã LINE (159-X, 99-Y) - (159+A, 99+B)ã LINE (159-J, 99-K) - (159+L, 99+M), 9ã IF D THENã LINE (159-X, 99-Y) - (159 - D, 99 - E)ã LINE (159+A, 99+B) - (159 + F, 99 + G)ã END IFã D = Xã E = Yã F = Aã G = Bã RETURNãDave Navarro, Jr. DRAW A CARTIOID dave@powerbasic.com 12-14-98 (14:35) QB, QBasic, PDS 18 427 CARTIOID.BAS' Draw a Cartioidã' From "Microcomputer Graphics Techniques and Applications" by Donald Hearnã' ported to PB by Dave Navarro (dave@powerbasic.com)ããSCREEN 12ããWINDOW (-160, -120) - (160, 120)ãXN = 40 : YN = 0ãC1 = COS(.314) : S1 = SIN(.314)ãFOR I = 1 TO 10ã T = XN*C1 - YN*S1ã YN = XN*S1 + YNC1 : XN = Tã RAD = SQR((XN - 40)^2 + YN ^ 2)ã CIRCLE (XN, YN), RADã YL = - YNã CIRCLE (XN, YL), RADãNEXTãSLEEPãDave Navarro, Jr. DRAW AN ELLIPSE dave@powerbasic.com 12-14-98 (14:35) QB, QBasic, PDS 17 335 ELIP.BAS 'Draw an ellipseã'From "Microcomputer Graphics Techniques and Applications" by Donald Hearnã'ported to PB by Dave Navarro (dave@powerbasic.com)ããSCREEN 2ããWINDOW (-6, -5) - (6, 5)ããA = 4 : B = 2ãFOR T = 0 TO 6.4 STEP .2ã X = A * COS(T): Y = B * SIN(T)ã IF T = 0 THEN PSET (X, Y)ã LINE - (X, Y)ãNEXTããSLEEPãSCREEN 0ãJoshua Penman SVGA LIBRARY V2.00 jpenman@hotmail.com 12-16-98 (13:23) QB, PDS 421 26654 SVGALIB2.BAS' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ã' ³ SVGA Library for QuickBasic 4.5 version 2.00 ³ã' ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ã' ³ þ WHAT THIS IS: ³ã' ³ This is a the second version of a library that I wrote for QuickBasic ³ã' ³ to draw graphics on the VESA card. It's been enhanced from version ³ã' ³ 1.00 in that it now supports 5 VESA modes. I have also removed page ³ã' ³ features at this stage, but will add them again when I learn how to ³ã' ³ switch video pages. ³ã' ³ þ DISCLAIMER: ³ã' ³ Okay, here's the legal side of it. I, Joshua Penman, take 100% full ³ã' ³ credit for this code, and I retain all rights to it. I will however, ³ã' ³ allow any programmers to use this in their on code without any thanks ³ã' ³ to me. Sure, a little bit of thanks in the credits would be nice, but ³ã' ³ all I really would want is a couple of the program that uses this ³ã' ³ library. You are *NOT* however, allowed to distribute modified copies ³ã' ³ of the library, as that wouldn't be kind to me, and you may also not ³ã' ³ use this code as a "copy/paste" thing for you're own SVGA libraries, ³ã' ³ in other words, don't copy and of this and claim it's you're own. And ³ã' ³ finally, if you're moniter blows up, you're computer starts smoking, ³ã' ³ or 14 SB channels stuff up, it's you're problem, not mine. I, and ³ã' ³ Cybersoft Software will not be held responsible for anything like ³ã' ³ that, or for that matter anything else happening to you're computer, ³ã' ³ even if it can be proven that SVGALIB caused the trouble. Okay, so I ³ã' ³ don't take 100% credit, but I don't really know who wrote the screen ³ã' ³ switching routines, so I can't give them credit... ³ã' ³ þ ABOUT ME: ³ã' ³ Before we actually get into explaining the code, here's a bit about ³ã' ³ me. I live in New Zealand, which, unlike many of you will no-doubt ³ã' ³ think - it's not in Sydney harbour. This is my second SVGA library & ³ã' ³ it's a lot better than my first, but I've done no speed enhancing. I ³ã' ³ will do that in the next version 2.10, which will make it heaps ³ã' ³ faster. ³ã' ³ þ THANKS TO: ³ã' ³ I have to thank a few people for the help in this program, mainly the ³ã' ³ following people: Jim Emptage for his Beizer curve routine, although ³ã' ³ I didn't actually use his code in the end, and while I said last time ³ã' ³ that I'd put it sometime, I still haven't, but he still gets credit ³ã' ³ and Rich Geldreich for his Eclipse routine, because there's no easy ³ã' ³ way to do circles, but his way did it great. I'd also like to thank ³ã' ³ Andrew L Agers for his Blast! library, and really the sub on Line ³ã' ³ drawing. I didn't copy any of his code, but it made me get a move on ³ã' ³ with my own programming code. ³ã' ³ þ HOW TO USE: ³ã' ³ SVGALib requires QB.QLB and QB.BI, so load QB with QB /l, and the ³ã' ³ first line of you're program needs to be '$include: 'qb.bi', and then ³ã' ³ it's really up to you. You need to call SVGASetMode, to start it up. ³ã' ³ You give different parameters to the sub to specify different modes: ³ã' ³ &H3 - DOS text (call this before you end ³ã' ³ &H100 - 640x400x256 ³ã' ³ &H101 - 640x480x256 ³ã' ³ &H103 - 800x600x256 ³ã' ³ &H105 - 1024x768x256 ³ã' ³ &H107 - 1280x1024x256 ³ã' ³ þ VERSION INFO: ³ã' ³ Version 1.00 * origional version ³ã' ³ Version 2.00 * Added switch-banks ³ã' ³ * Slightly optimised line drawing ³ã' ³ þ WHERE'S SVGALIB GOING FROM HERE: ³ã' ³ In future, I hope to expand to 100s more VESA modes, and add more ³ã' ³ rotines to duplicate the QB routines better. I'll try to add a 16.8 ³ã' ³ million colour mode too. I also hope to add heaps more SUBs like ³ã' ³ POINT and GET. ³ã' ³ þ CONTACTING ME: ³ã' ³ While I've got heaps of E-mails addresses, use jpenman@hotmail.com, ³ã' ³ that way I know exactly what you're talking about. ³ã' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙãã' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Declare SUBsã' ÄÄÄÄÄÄÄÄÄÄã DECLARE SUB SVGABox (x1%, y1%, x2%, y2%, C%)ã DECLARE SUB SVGAFilledBox (x1%, y1%, x2%, y2%, C%)ã DECLARE SUB SVGACircle (ox!, oy!, prx!, pry!, co%)ã DECLARE SUB SVGALine (x1%, y1%, x2%, y2%, C%)ã DECLARE SUB SVGASwitchBank (NewBank%)ã DECLARE SUB SVGAPset (x%, y%, C%)ã DECLARE SUB SVGASetMode (ModeNumber%)ã ã' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Other stuff neededã' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã '$DYNAMICã '$INCLUDE: 'qb.bi'ã DEFINT A-Zã DIM SHARED InRegs AS RegTypeã DIM SHARED OutRegs AS RegTypeã DIM SHARED Bank%ã DIM SHARED Table&(0 TO 1)ã DIM SHARED Xres AS LONGã DIM SHARED YRes AS LONGãã' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' My Demo - deleteã' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄã ã SVGASetMode &H101ã FOR x = 0 TO Xres - 1ã FOR y = 0 TO YRes - 1ã SVGAPset x, y, 10ã NEXT yã NEXT xã SVGALine 0, 0, Xres - 1, YRes - 1, 2ã SVGACircle Xres / 2 - 1, YRes / 2 - 1, Xres / 2 - 1, YRes / 2 - 1, 1ã SVGABox Xres / 2 - (Xres / 6), YRes / 2 - (YRes / 6), Xres / 2 + (Xres / 6), YRes / 2 + (YRes / 6), 4ã SVGAFilledBox Xres / 2 - (Xres / 6) + (Xres / 12), YRes / 2 - (YRes / 6) + (YRes / 12), Xres / 2 + (Xres / 6) - (Xres / 12), YRes / 2 + (YRes / 6) - (YRes / 12), 5ã a$ = INPUT$(1)ã SVGASetMode &H3ããREM $STATICãDEFSNG A-Zã' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ã' ³ SVGABox ³ã' ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ã' ³ ³ã' ³ Purpose: This draws a box using the routine SVGALine from x1%, y1% to ³ã' ³ x2%, y2% in colour c% ³ã' ³ ³ã' ³ Alogrithm: A simple alogrithm. Draw's four lines, the first one being ³ã' ³ The top, the second the bottom, the third the left and the ³ã' ³ fourth is the right. ³ã' ³ ³ã' ³ Input: x1% - Left edge ³ã' ³ x2% - Right edge ³ã' ³ y1% - Top edge ³ã' ³ y2% - Bottom edge ³ã' ³ c% - Colour of circle ³ã' ³ ³ã' ³ Output: None ³ã' ³ ³ã' ³ Interface Assumptions: None ³ã' ³ ³ã' ³ Modification History: version 1.00 - * initial release ³ã' ³ * Removed assumptions ³ã' ³ ³ã' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙãSUB SVGABox (x1%, y1%, x2%, y2%, C%)ã IF x1% < 0 THEN EXIT SUB 'off the left, then exitã IF x2% > Xres - 1 THEN EXIT SUB 'off the right, then exitã IF y1% < 0 THEN EXIT SUB 'off the top, then exitã IF y2% > YRes - 1 THEN EXIT SUB 'off the bottom, then exitã SVGALine x1%, y1%, x2%, y1%, C% 'top lineã SVGALine x1%, y2%, x2%, y2%, C% 'bottom lineã SVGALine x1%, y1%, x1%, y2%, C% 'left lineã SVGALine x2%, y1%, x2%, y2%, C% 'right lineãEND SUBãã' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ã' ³ SVGACircle ³ã' ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ã' ³ ³ã' ³ Purpose: This draws a circle with it's centre at ox, oy, color co% ³ã' ³ with the X width of PRX and the Y width of PYR ³ã' ³ ³ã' ³ Alogrithm: A comlex alogrithm - no-one understands it... (copied from ³ã' ³ an ABC packet and modified for SVGA) ³ã' ³ ³ã' ³ Input: ox - X center of circle ³ã' ³ oy - Y center of circle ³ã' ³ prx - X width of circle ³ã' ³ pry - Y width of circle ³ã' ³ co% - Colour of circle ³ã' ³ ³ã' ³ Output: None ³ã' ³ ³ã' ³ Interface Assumptions: None ³ã' ³ ³ã' ³ Modification History: version 1.00 - * initial release ³ ã' ³ version 2.00 - * removed assumptions ³ã' ³ * fixed problem with lines ³ã' ³ ³ã' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙãSUB SVGACircle (ox, oy, prx, pry, co%)ã DIM xe AS LONG, ye AS LONG, e AS LONGã IF pry = 0 THENã SVGALine (ox - prx), (oy), (ox + prx), (oy), co%ã EXIT SUBã END IFã IF prx = 0 THENã SVGALine (ox), (oy - pry), (ox), (oy + pry), co%ã EXIT SUBã END IFã IF pry <= prx THENã x = 0: y = pryã xe = 0: ye = CLNG(prx) * prxã e = -ye \ 2: C = ye \ pryã DOã IF e <= 0 THENã DOã SVGAPset (ox + x), (oy + y), co%: SVGAPset (ox - x), (oy + y), co%ã SVGAPset (ox + x), (oy - y), co%: SVGAPset (ox - x), (oy - y), co%ã x = x + 1ã xe = xe + pryã e = e + xeã LOOP WHILE e <= 0ã ELSEã SVGAPset (ox + x), (oy + y), co%: SVGAPset (ox - x), (oy + y), co%ã SVGAPset (ox + x), (oy - y), co%: SVGAPset (ox - x), (oy - y), co%ã END IFã y = y - 1ã ye = ye - Cã e = e - yeã LOOP UNTIL y = 0ã SVGAPset (ox + x), (oy), co%: SVGAPset (ox - x), (oy), co%ã SVGAPset (ox + x), (oy), co%: SVGAPset (ox - x), (oy), co%ã ELSEã x = 0: y = prxã xe = 0: ye = CLNG(pry) * pryã e = -ye \ 2: C = ye \ prxã DOã IF e <= 0 THENã DOã SVGAPset (ox + y), (oy + x), co%: SVGAPset (ox - y), (oy + x), co%ã SVGAPset (ox + y), (oy - x), co%: SVGAPset (ox - y), (oy - x), co%ã x = x + 1ã xe = xe + prxã e = e + xeã LOOP WHILE e <= 0ã ELSEã SVGAPset (ox + y), (oy + x), co%: SVGAPset (ox - y), (oy + x), co%ã SVGAPset (ox + y), (oy - x), co%: SVGAPset (ox - y), (oy - x), co%ã END IFã y = y - 1ã ye = ye - Cã e = e - yeã LOOP UNTIL y = 0ã SVGAPset (ox), (oy + x), co%: SVGAPset (ox), (oy + x), co%ã SVGAPset (ox), (oy - x), co%: SVGAPset (ox), (oy - x), co%ã END IFãEND SUBããDEFINT A-Zã' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ã' ³ SVGAFilledBox ³ã' ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ã' ³ ³ã' ³ Purpose: This draws a box using the routine SVGALine from x1%, y1% to ³ã' ³ x2%, y2% in colour c% ³ã' ³ ³ã' ³ Alogrithm: A simple alogrithm. ³ã' ³ ³ã' ³ Input: x1% - Left edge ³ã' ³ x2% - Right edge ³ã' ³ y1% - Top edge ³ã' ³ y2% - Bottom edge ³ã' ³ c% - Colour of circle ³ã' ³ ³ã' ³ Output: None ³ã' ³ ³ã' ³ Interface Assumptions: None ³ã' ³ ³ã' ³ Modification History: version 1.00 - * initial release ³ ã' ³ version 2.00 - * removed assumptions ³ã' ³ ³ã' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙãSUB SVGAFilledBox (x1%, y1%, x2%, y2%, C%)ã IF x1% < 0 THEN EXIT SUB 'off the left, then exitã IF x2% > Xres - 1 THEN EXIT SUB 'off the right, then exitã IF y1% < 0 THEN EXIT SUB 'off the top, then exitã IF y2% > YRes - 1 THEN EXIT SUB 'off the bottom, then exitã FOR y% = y1% TO y2% 'start loopã SVGALine x1%, y%, x2%, y%, C% 'draw the lineã NEXT y% 'loop...ãEND SUBããDEFSNG A-Zã' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ã' ³ SVGALine ³ã' ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ã' ³ ³ã' ³ Purpose: Draws a line in SVGA from x1%, y1% to x2%, y2% in colour c% ³ã' ³ ³ã' ³ Alogrithm: This alogrithm has changed quite a lot since version 1.00, ³ã' ³ in that it can now be up to 500% faster (only on lines that ³ã' ³ were 2 pixels big). I'm using Pythagora's Therom to calcula- ³ã' ³ te the number of pixels to be drawn, and I'm only drawing ³ã' ³ that many, unlike version 1.00 which drew 1000 no matter how ³ã' ³ long it was. ³ã' ³ ³ã' ³ Input: x1% - Left edge ³ã' ³ x2% - Right edge ³ã' ³ y1% - Top edge ³ã' ³ y2% - Bottom edge ³ã' ³ c% - Colour of line ³ã' ³ ³ã' ³ Output: None ³ã' ³ ³ã' ³ Interface Assumptions: None ³ã' ³ ³ã' ³ Modification History: version 1.00 - * initial release ³ã' ³ version 2.00 - * Put in an alogrythim ³ã' ³ * removed assumptions ³ã' ³ ³ã' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙãSUB SVGALine (x1%, y1%, x2%, y2%, C%)ã IF x2% < x1% THEN SWAP x1%, x2% 'switch if varibles are wrongã IF y2% < y1% THEN SWAP y1%, y2% 'switch if varibles are wrongã IF x1% < 0 THEN x1% = 0 'if off the leftã IF x2% > Xres - 1 THEN x2% = Xres - 1 'if off the rightã IF y1% < 0 THEN y1% = 0 'if off the topã IF y2% > YRes - 1 THEN y2% = YRes - 1 'if off the bottomã IF C% < 0 THEN EXIT SUB 'invalid colour, then exitã WHILE C% > 255 'loop until c% is validã C% = C% - 255 'subtract 255ã WEND 'loopã TotalMoveSqrd = ((x2% - x1%) ^ 2) + ((y2% - y1%) ^ 2)'calculate the totalã TotalMove = SQR(TotalMoveSqrd) 'number of pixels in the line (Pythagoras)ã XStep = (x2% - x1%) / TotalMove 'calculate x move per stepã YStep = (y2% - y1%) / TotalMove 'calculate y move per stepã StartX = x1% 'set for later calculationsã StartY = y1% 'set for later calculationsã FOR i = 1 TO TotalMove 'start the loopã SVGAPset StartX + (XStep * (i - 1)), StartY + (YStep * (i - 1)), C%ã NEXT i ' <<< loop ^^^ Pset at right placeãEND SUBãã' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ã' ³ SVGAPset ³ã' ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ã' ³ ³ã' ³ Purpose: Draws a dot at location x%, y%, in colour c% ³ã' ³ ³ã' ³ Alogrithm: None. ³ã' ³ ³ã' ³ Input: x% - Pixel X co-ord ³ã' ³ x% - Pixel Y co-ord ³ã' ³ c% - Colour of pixel ³ã' ³ ³ã' ³ Output: None ³ã' ³ ³ã' ³ Interface Assumptions: None ³ã' ³ ³ã' ³ Modification History: version 1.00 - * initial release ³ã' ³ version 2.00 - * Added "lookup" table ³ã' ³ * Added Switch banks ³ã' ³ * Removed all assumptions ³ã' ³ ³ã' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙãSUB SVGAPset (x%, y%, C%)ã IF x% < 0 THEN EXIT SUB 'off the left, then exitã IF y% < 0 THEN EXIT SUB 'off the top, then exitã IF x% > Xres - 1 THEN EXIT SUB 'off the right, then exitã IF y% > YRes - 1 THEN EXIT SUB 'off the bottom, then exitã IF C% < 0 THEN EXIT SUB 'invalid colour, then exitã WHILE C% > 255 'loop until c% is validã C% = C% - 255 'subtract 255ã WEND 'loopã DEF SEG = &HA000 'set video segmentã NewBank% = (Table&(y%) + x%) \ 65536 'calculate bankã IF NewBank% <> Bank% THEN SVGASwitchBank NewBank% 'Switchbankã POKE (Table&(y%) + x% + 1) MOD 65536, C% 'Actual PSETãEND SUBãã' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ã' ³ SVGASetMode ³ã' ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ã' ³ ³ã' ³ Purpose: Sets screen to and compatible mode ³ã' ³ ³ã' ³ Alogrithm: None ³ã' ³ ³ã' ³ Input: ModeNumber% - &H100 (640x400x256) ³ã' ³ &H101 (640x480x256) ³ã' ³ &H103 (800x600x256) ³ã' ³ &H105 (1024x768x256) ³ã' ³ &H107 (1280x1024x256) ³ã' ³ &H3 (Standard DOS text) ³ã' ³ ³ã' ³ Output: None ³ã' ³ ³ã' ³ Interface Assumptions: Mode number one of the above ³ã' ³ ³ã' ³ Modification History: version 1.00 - * Initial release ³ã' ³ version 2.00 - * Added different mode numbers ³ã' ³ * Added a "look-up" table ³ã' ³ * Added "switch-bank" support ³ã' ³ * Added XRes and YRes for errors ³ã' ³ * Added a standard mode return ³ã' ³ ³ã' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙãSUB SVGASetMode (ModeNumber%)ã InRegs.ax = &H4F02 'Set function numberã InRegs.bx = ModeNumber% 'Set varibleã INTERRUPT &H10, InRegs, OutRegs 'Call Interruptã IF ModeNumber% = &H3 THEN EXIT SUB 'If Text, then quit nowã IF ModeNumber% = &H100 THEN Xres = 640: YRes = 400 'case modeã IF ModeNumber% = &H101 THEN Xres = 640: YRes = 480 'case modeã IF ModeNumber% = &H103 THEN Xres = 800: YRes = 600 'case modeã IF ModeNumber% = &H105 THEN Xres = 1024: YRes = 768 'case modeã IF ModeNumber% = &H107 THEN Xres = 1280: YRes = 1024 'case modeã IF Xres = 0 THEN Xres = 1: YRes = 1 'stops error if non-standard modeã REDIM Table&(0 TO YRes - 1) 're-setup's Lookup tableã FOR x% = 0 TO YRes - 1 'Start make loopã Table&(x%) = x% * Xres - 1 'Stick in infoã NEXT x% 'Loop...ãEND SUBãã' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ã' ³ SVGASwitchBank ³ã' ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ã' ³ ³ã' ³ Purpose: Switches the bank ³ã' ³ ³ã' ³ Alogrithm: None ³ã' ³ ³ã' ³ Input: NewBank% ³ã' ³ ³ã' ³ Output: None ³ã' ³ ³ã' ³ Interface Assumptions: Valid NewBank% ³ã' ³ ³ã' ³ Modification History: version 2.00 - * Initial release ³ã' ³ ³ã' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙãSUB SVGASwitchBank (NewBank%)ã InRegs.ax = &H4F05 'set function numberã InRegs.bx = 0 'set to 0ã InRegs.dx = NewBank% 'set to new bankã INTERRUPT &H10, InRegs, OutRegs 'call interruptã Bank% = NewBank% 'update bank varibleãEND SUBãSam Thursfield VIPER SVGA ROUTINES sam.thursfield@btinternet.com 12-17-98 (17:19) QB, PDS 71 4665 VSVGA.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"VSVGA.ZIP",4^6:Z&=3224:?STRING$(50,177);ãU"%up()%9%%%R-%6TA$JnI=#*S*.%%h9%%%.%.%%%x&%lfS^y'y>h'>>T.[8Nba(wãU"3PR\P)tLgkt81_/GCER%7pQ*^)AQ37st',RiGgXaY\V^dHb9h7emQbEi7FHaPrK?j'[?8md^1Ri?tTq2\-A(:pZA&YgãU"D\FXlX8=$U6K'tLmY'v;QjppG++1c[S;0l)IUq<+7N&q_soLrjqHM*4y9G'i,j'ãU"]CN.[K7kKUM\\^qjJ^Gdg\jR?kk'aAvZ%YOk(Ge*o]]V?kLe1ae6%g+9a?m/:+RãU"mom6\cz+e6#d6+*#_'8:n161;xQ#gNea^4U#g:L/8#P,h>nGW%h+W>#==CFZ?&hãU"cSQhQ'fmgYc^aeMk?,;FX[C'N?gZ*fQ8D*%YJgGeGJbJj(jfE7,O,EMQ%R4g*Hk%dafx_Tgo\Rk#DãU"cJw*WJW>=f5j^D\#?Oj1q%s50u%Gl/,k.7HnH-%s6S7s$M-L+q8Mecp)a#q.-\cãU"xYO^g5.>*Vs>j0'q,87bH;V(ktMs+)7p1.#vOo'.[ZI+;rgmpr#Su44GTm+A1UoãU"ne'N(u.^a;(4051pboXB<%Nb4J/=[+SN1gG7-HpPKmbgTTW5GuqmFrN>P(:1Fk,ãU"UQYBxCRJ$,RxO\mr=T#d,:0=q9b/I[&:28rdN:).?U8h+$x\F9_Yjh]MkJ/AKPAãU"xiSggZUDriY1$P7OnY)AdãU"%;TM^'>+*UDFtE-T7&2\jfR/qqualdObUIEcQo6o,EdjPE-0V4E:c8XãU"r3_5uVGwB1L&IBRQ_6nX6q3c?8X)8J6NI:Vphw]'uE5['ZS3;MJ?6>i9,J;2jbCãU"y3C[6sp]f(:S[_z;/Xlqjq)FG-Li#VF#2VVFlKht91K(Im)XGMM.\)tm749\WD[jsZemFFmudk2+K=v$aUS%_=QF3BWTo_]b=w8ZixBlO\KV*DãU"GW$#'SXAF8l+fxIK)mHy2%g_Hnigj<&nup(%)9%%#%-%<_^cJNo&5+e[*%%^%7%ãU"%.#%%%%(x%lf%SgfxMd'<^\jk5wY=Bx0[cY.7;^)ecWL\oLN'#>8i78*)h,aQe:/>4w_.PYA3Q3JgXVoN,-Gjm&47ãU"'TpS8nW2l%\c3a8Am:8^e:LT^Lgr.DBjdJBAxf8ll%8B9#TJ(GO%a^aR?^\(/CrãU"Oskc1Lka4J[Hs7=%Aw9IGV4QH8IEr&ff#u^8R_tWCC\lMZaaYaYRxu\F)\6O:?OãU"c&b4aPV4j:qPQI3Q4=t>b-ja,zK#:=nCC]En-:lo0*c3.)mN8YRu]S(y'>[,GjTAluvsX;MXVRxãU"f3x+)qXs0N[+RgF&[>Fj?O^]Kx7^Y#Jpn<;-uT:>+SH/VLa;=hQ[1V5kK,LTVZ6ãU"EcnhAe>y.-\B_M2:pPgCv]m+(VwZ#(=&0>55bP4pKLQ[;px_IC'HslujO3goITFNYxDkDKãU"n]6j>[J,(qN$v90T&-3Ni=O&:(E_x?Tucuh0AT.LEtt%#fo(a*t_UMaE%$cOt^%ãU"D/\G8frkO+Q=hA'xHjbMKZUL%+*L3m/Ir1Vw=Y9F?&^gq>bb*o.lDl\Vn>oTKv;EDVYH89)4jiQ^(Q1phg]ow9AO5p_pX^I9-RY,CjI0Z?J1(.zPuG4o43BOroUN(MãU"]uwX:<#Wxsml+;'?;yqhISzSYt8=%F)fljl\B)QT-h+&+7TqT5Ondc+Ia?(X\X6ãU"WDiP/\L5Ra7gw_m%Jo>,xodNZBN?gAeN2fYbb]dY*(^;jS.O;Kl9:o4O[R[\CbiãU"8')pP[Tj1-&%Oa^oD3D?kJsGR^7w]$=NãU"MF7K0UZ[>mgoQ^g%Q*IhfheOnbV2ZC.qG29o2bB/$96wszOF\In57s_bu:i78aPãU"McxvrC,&M?Ym28ZGkãU":+h)pMk,j+/J,5&,BZ*Mk\dS.b1hG_l]M)Z=wSW#Y]4vZ2Q4#oF)T:U;hink\4mãU"haO^Q+RoJ==n]H\UXYL53ImJ3&F=b+,w9I+]E0wyI.Cd,jl[s,JlO7j#PqbxJl)ãU"Zb_9i3?WfY&;\&^u:K6E$/6Za^KEkEW37M4*^:3'^_bbGV;mkãU"Mf5>G?au-oUn?<.T7)^Yb0;/5)a%g8Ua[Jq?]ifUx-+^aLkQ#SOP.+I>SZE(Py_ãU"QIRm_MkGp+3Lmjs?M23NbCU?de&)RRcS%yc:M)+[uKVZ5J.>sT]RiFONgQrJsO)ãU".jq[^ZCRyRogM:cL2hc51]CSY^7OI%62#v=0:9OQp1Bb5x$g^RXP&K:0v5N-)0D[c'JWYN+6yd_MK$e4c=_aioYod&F-Z7):H;ãU"&'vAT;+ssDHBa0TURwTvYUCsl,E;x\o5j9/Y8\d>4(2qUYT_>QK2a0xbeoyA0*BãU"S;y0L,8[H;[^-V)&)x5lnnk?Vt:RFbU3bS9J2LbW\6-r(geY[C7TOtjlsHDl%(oãU"m+(f^.w;UFPh2A^_T)9?qp:%EGe>KnuVjC3QK)c)_)$ZY8&mW?AjbxgAhxth*XiãU"aHVF'$0P=>eA]=JL:)t%o2-G%JCU;03?1rumJ34jAK?YLY3n[J)W*vS.p'Dr(\lãU"KZn[gN2x.k'CqXKaG:0n(Up]e#/D/nfW%5F9b/3XKPk3-8;i1;Aw86WCoA3=MUwãU"=(4Zg;^Ma6e*i0f).TuP4+6-HeHZZT?%>B7vaYow$DpKF[jEg&q&'(Kkk3AJãU"r,?0'hHqgJAl%p2$_+1=NO;t3zMmT_ofV^5dE5#5[85kjdbvNoqW'%s2]s+5[C1p+r=TjL>nãU"\1#\X.ujHLU[Zx#4D'xPoq68t4F*+VxhDoYB)+vWOX44-q\)u(dq\?(jksS9DRQ>'6agrH5vVo^qu4X+fZML]m7Fr-.kBmãU"0.Wc08Nq9N=>p\c&cXuPVHUXc/?#gXIXtJS?;ogGdSD[zmZB:rdsj?6ejK_k??io*ADB140__n1WbWr?6nK5y?8>YãU"D/IO/Y24lAl?$#cq_Vuqh[8=.e^ZutZTsv_oN]gdQ'9fofk\fhe_0wNp&yeTLyaãU"LBic59WfVJA28lM\98fk-U<^sgqS>^[p\76C9:$fo\IaQM\]J5++(7':^&\?9J45gQNSs9ZrMO2f9k3%#J3,ewãU"_je$FQ\65Nuoh\/YkDf/9FWBZVNG3*\P_?OUJZ-R04:[z?w:\:,B:x^Nwfn$%TuãU"p&%'9%9%%'%-+%QN7=F0O8*Np+%+%23%%%.%%%%%%%%%&%E%%%%%%%%%k%qtfi%ãU"Sgfx%up&'%9%9%%'%-%'AN7F^2gBW%G&%%'S.%%%.%%%%%%%%%%%E%7%%A+%%%kãU"q%tfiS%xuwu%p*+%%%%%'#%'%=%%%%6%-%%%%%ãEND SUBãCLOSE:IF S=50AND 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ãYousuf Philips OPENFLI VERSION 0.1 philipz@emirates.net.ae 12-22-98 (21:56) QB, QBasic, PDS 442 18483 OPENFLI.BAS ''''''''''''''''''''''''''''''''''''''''ã' Program : Plays FLI Files 'ã' Name : OPENFLI Version 0.1 'ã' Programmer : Yousuf Philips 'ã' Company : Y P I 'ã' Updated On : 10th of Dec. 1998 'ã' Email - [philipz85@hotmail.com] 'ã' [http://members.xoom.com/Philipz/] 'ã''''''''''''''''''''''''''''''''''''''''ã ã'/* Do not edit this file if you distribute it. */'ã'/* (c) Copyrighted by YPI in 1998 | All Rights Reserved | Public Domain */'ãã'/* This program has been created by YPI (Basic Programming Incorporation) */'ã'/* as a utility to play FLI animation files. In 1996 Carl Gorringe */'ã'/* created a similar type of program which played FLI and FLC but it was */'ã'/* called slooooow. I have been in contact with Carl and he told me that */'ã'/* in 1997 Denis Boyles created VIEWFLI2.BAS which is a replica of his */'ã'/* FLI player but used assembly to speed up the display of the frames. */'ã'/* Without any assembly just good old BASIC, YPI has created an FLI player*/'ã'/* which is as fast as VIEWFLI2.BAS but also works in QBASIC 1.0. I would */'ã'/* like to give credit and special thanks to Carl Gorringe. */'ã'/* Minor editing was done because of a bug found by Carl Gorringe. Thanks */'ãã'/* If you use any of this code in your program then you must credit YPI */'ã'/* and also Carl Gorringe. This program has been placed in Public Domain */'ã'/* and All Rights Are Reserved. */'ãã'/* YPI has also created a BMP loader and an PCX loader. The source can be */'ã'/* gotten from our website */'ã'/* The YPI Website has programs for beginners, tutorials and utilities. */'ã'/* Carl Gorringe's Email is */'ããDECLARE SUB ShowFLI (FileName$)ããCLSãPRINTãPRINT " FLI Player for QBASIC - By YPI BASIC Programming Incorporation"ãPRINT " Press Any Key When You Want The Program To End"ãINPUT " Enter File Name - ", FileName$ããIF LEN(LTRIM$(FileName$)) = 0 THENã ENDãELSEIF INSTR(FileName$, ".") = 0 THENã FileName$ = FileName$ + ".fli"ãEND IFããCALL ShowFLI(FileName$)ããSUB FileFormatãã'Flic Files (.FLI) Format description:ã'ã' The details of a FLI file are moderately complex, but theã'idea behind it is simple: don't bother storing the parts of aã'frame that are the same as the last frame. Not only does thisã'save space, but it's very quick. It's faster to leave a pixelã'alone than to set it.ã'ã' A FLI file has a 128-byte header followed by a sequence ofã'frames. The first frame is compressed using a bytewise run-lengthã'compression scheme. Subsequent frames are stored as theã'difference from the previous frame. (Occasionally the firstã'frame and/or subsequent frames are uncompressed.) There is oneã'extra frame at the end of a FLI which contains the differenceã'between the last frame and the first frame.ã'ã' The FLI header:ã'ã' byte size name meaningã' offsetã'ã' 0 4 size Length of file, for programs that wantã' to read the FLI all at once if possible.ã' 4 2 magic Set to hex AF11. Please use anotherã' value here if you change format (even toã' a different resolution) so Autodeskã' Animator won't crash trying to read it.ã' 6 2 frames Number of frames in FLI. FLI files haveã' a maxium length of 4000 frames.ã' 8 2 width Screen width (320).ã' 10 2 height Screen height (200).ã' 12 2 depth Depth of a pixel (8).ã' 14 2 flags Must be 0.ã' 16 2 speed Number of video ticks between frames.ã' 18 4 next Set to 0.ã' 22 4 frit Set to 0.ã' 26 102 expand All zeroes -- for future enhancement.ã'ã' Next are the frames, each of which has a header:ã'ã' byte size name meaningã' offsetã' 0 4 size Bytes in this frame. Autodesk Animatorã' demands that this be less than 64K.ã' 4 2 magic Always hexadecimal F1FAã' 6 2 chunks Number of 'chunks' in frame.ã' 8 8 expand Space for future enhancements. Allã' zeros.ã'ã' After the frame header come the chunks that make up theã'frame. First comes a color chunk if the color map has changedã'>from the last frame. Then comes a pixel chunk if the pixels haveã'changed. If the frame is absolutely identical to the last frameã'there will be no chunks at all.ã'ã' A chunk itself has a header, followed by the data. Theã'chunk header is:ã'ã' byte size name meaningã' offsetã' 0 4 size Bytes in this chunk.ã' 4 2 type Type of chunk (see below).ã'ã' There are currently five types of chunks you'll see in a FLIã'file.ã'ã' 11 FLI_COLOR Compressed color mapã' 12 FLI_LC Line compressed -- the most common typeã' of compression for any but the firstã' frame. Describes the pixel differenceã' from the previous frame.ã' 13 FLI_BLACK Set whole screen to color 0 (only occursã' on the first frame).ã' 15 FLI_BRUN Bytewise run-length compression -- firstã' frame onlyã' 16 FLI_COPY Indicates uncompressed 64000 bytes soonã' to follow. For those times whenã' compression just doesn't work!ã'ã' The compression schemes are all byte-oriented. If theã'compressed data ends up being an odd length a single pad byte isã'inserted so that the FLI_COPY's always start at an even addressã'for faster DMA.ã'ã'FLI_COLOR Chunksã' The first word is the number of packets in this chunk. Thisã'is followed directly by the packets. The first byte of a packetã'says how many colors to skip. The next byte says how many colorsã'to change. If this byte is zero it is interpreted to mean 256.ã'Next follows 3 bytes for each color to change (one each for red,ã'green and blue).ã'ã'FLI_LC Chunksã' This is the most common, and alas, most complex chunk. Theã'first word (16 bits) is the number of lines starting from the topã'of the screen that are the same as the previous frame. (Forã'example, if there is motion only on the bottom line of screenã'you'd have a 199 here.) The next word is the number of linesã'that do change. Next there is the data for the changing linesã'themselves. Each line is compressed individually; among otherã'things this makes it much easier to play back the FLI at aã'reduced size.ã'ã' The first byte of a compressed line is the number of packetsã'in this line. If the line is unchanged from the last frame thisã'is zero. The format of an individual packet is:ã'ã'skip_countã'size_countã'dataã'ã' The skip count is a single byte. If more than 255 pixelsã'are to be skipped it must be broken into 2 packets. The sizeã'count is also a byte. If it is positive, that many bytes of dataã'follow and are to be copied to the screen. If it's negative aã'single byte follows, and is repeated -skip_count times.ã'ã' In the worst case a FLI_LC frame can be about 70K. If itã'comes out to be 60000 bytes or more Autodesk Animator decidesã'compression isn't worthwhile and saves the frame as FLI_COPY.ã'ã'FLI_BLACK Chunksã' These are very simple. There is no data associated withã'them at all. In fact they are only generated for the first frameã'in Autodesk Animator after the user selects NEW under the FLICã'menu.ã'ã'FLI_BRUN Chunksã' These are much like FLI_LC chunks without the skips. Theyã'start immediately with the data for the first line, and go line-ã'by-line from there. The first byte contains the number ofã'packets in that line. The format for a packet is:ã'ã'size_countã'dataã'ã' If size_count is positive the data consists of a single byteã'which is repeated size_count times. If size_count is negativeã'there are -size_count bytes of data which are copied to theã'screen. In Autodesk Animator if the "compressed" data shows signsã'of exceeding 60000 bytes the frame is stored as FLI_COPY instead.ã'ã'FLI_COPY Chunksã' These are 64000 bytes of data for direct reading onto theã'screen.ã'ã'-----------------------------------------------------------------------ã'And here's the PRO extensions:ã'-----------------------------------------------------------------------ã'ã'This is supplemental info on the AutoDesk Animator FLI and FLC formats.ã'ã'The following is an attempt at describing the newer chunks and framesã'that are not described in the Turbo C FLI library documentation.ã'ã' Chunk type Chunk IDã' ---------- -----------ã' FLI_DELTA 7 (decimal)ã'ã' First WORD (16 bits) is the number of compressed lines to follow. Nextã' is the data for the changing lines themselves, always starting with theã' first line. Each line is compressed individually.ã'ã' The first WORD (16 bits) of a compressed line is the number of packets inã' the line. If the number of packets is a negative skip -packets lines.ã' If the number of packets is positive, decode the packets. The format ofã' an individual packet is:ã'ã' skip_countã' size_countã' dataã'ã' The skip count is a single byte. If more than 255 pixels are to beã' skipped, it must be broken into 2 packets. The size_count is also a byte.ã' If it is positive, that many WORDS of data follow and are to be copied toã' the screen. If it is negative, a single WORDS value follows, and is to beã' repeated -size_count times.ã'ã' Chunk type Chunk IDã' ---------- -----------ã' FLI_256_COLOR 4 (decimal)ã'ã' The first WORD is the number of packets in this chunk. This is followedã' directly by the packets. The first byte of a packet is how many colorsã' to skip. The next byte is how many colors to change. If this number isã' 0, (zero), it means 256. Next follow 3 bytes for each color to change.ã' (One each for red, green and blue).ã'ã' The only difference between a FLI_256_COLOR chunk (type 4 decimal) and aã' FLI_COLOR chunk (type 11 decimal) is that the values in the type 4 chunkã' range from 0 to 255, and the values in a type 11 chunk range from 0 to 63.ã'ã' NOTE: WORD refer to a 16 bit int in INTEL (Little Endian) format.ã' WORDS refer to two-bytes (16 bits) of consecutive data. (Big Endian)ã'ã' .FLC special frames and chunksã'ã' FLC's may contain all the above chunks plus one other:ã'ã' Chunk type Chunk IDã' ---------- -----------ã' FLI_MINI 18 (decimal) 12 (Hex)ã'ã' From what I understand, this is a miniture 64 x 32 version of the firstã' frame in FLI_BRUN format, used as an button for selecting flc's fromã' within Animator Pro. Simply do nothing with this chunk.ã'ã' FLC New Frameã'ã' FLC's also contains a frame with the magic bytes set to hex 00A1. Thisã' is the first frame in the .flc file. Actually it isn't a frame at allã' but to have several chunks within it that specify file location infoã' specific to Animator Pro. IE: filepath, font to use, and .COL file info.ã' This FRAME may be skipped while loading. That's right! Ignore it! Theã' frame header is the same length as all other frames. So you may read theã' frame header, then skip past the rest of the frame.ã'ã'ã' NOTE: When reading the FLI header on the newer FLI and FLC files, theã' FLI signature bytes are AF12 instead of AF11 used in the older FLI files.ã' Also, you cannot ignore the screen width and height they may not beã'320 x 200!ã'ã' Allowable screen sizes include:ã'ã' 320 x 200, 640 x 480, 800 x 600, 1280 x 1024ã'ã'ã' NOTE: the delay value between frames appears to be in 1000th's of aã' second instead of 70th's.ããEND SUBããDEFINT A-ZãSUB ShowFLI (FileName$)ããRep:ãOPEN FileName$ FOR BINARY AS #1ãIF LOF(1) = 0 THENã PRINT " FILE IS EMPTY"ã CLOSE #255ã KILL FileName$ã ENDãEND IFãã'/* Animation File Header */'ãLengthOfFile$ = SPACE$(4): Valid1$ = SPACE$(2): NoOfFrames$ = SPACE$(2)ãScreenWidth$ = SPACE$(2): ScreenHeight$ = SPACE$(2): BitsPerPixel$ = SPACE$(2)ãNoOfTicksPerFrame$ = SPACE$(2): Valid2$ = SPACE$(2): EmptySpace$ = SPACE$(110)ãGET #1, , LengthOfFile$ãGET #1, , Valid1$ãGET #1, , NoOfFrames$ãGET #1, , ScreenWidth$ãGET #1, , ScreenHeight$ãGET #1, , BitsPerPixel$ãGET #1, , Valid2$ãGET #1, , NoOfTicksPerFrame$ãGET #1, , EmptySpace$ããIF HEX$(CVI(Valid1$)) <> "AF11" THENã PRINT " INVALID FLI "ã SYSTEMãELSEIF CVI(ScreenWidth$) <> 320 OR CVI(ScreenHeight$) <> 200 THENã PRINT " FLI IS OF WRONG DIMENSION. WILL NOT PROCEED"ã SYSTEMãEND IFããSCREEN 13ãFOR NumberOfFrames = 1 TO CVI(NoOfFrames$) + 1ã '/* Frame Header */'ã Bi& = LOC(1) + 1ã BytesInFrame$ = SPACE$(4): Valid3$ = SPACE$(2): NoOfChunks$ = SPACE$(2)ã EmptySpace$ = SPACE$(8)ã GET #1, , BytesInFrame$ã GET #1, , Valid3$ã GET #1, , NoOfChunks$ã GET #1, , EmptySpace$ã Bi& = Bi& + CVL(BytesInFrame$)ãã BytesInChunk$ = SPACE$(4): ChunkType$ = SPACE$(2)ã FOR NumberOfChunks = 1 TO CVI(NoOfChunks$)ã Di& = LOC(1) + 1ã GET #1, , BytesInChunk$ã GET #1, , ChunkType$ã Di& = Di& + CVL(BytesInChunk$)ã ChunkType = CVI(ChunkType$)ã ã IF INKEY$ <> "" THEN ENDã '/* According to the Chunk Type a different process will be performed */'ã IF ChunkType = 11 THEN '/* 11 - FLI_COLOR(64) PALETTE */'ã NoOfColorPackets$ = SPACE$(2): NumberOfColorsTOSkip$ = SPACE$(1)ã NumberOfColorsToChange$ = SPACE$(1): PaletteRed$ = SPACE$(1)ã PaletteGreen$ = SPACE$(1): PaletteBlue$ = SPACE$(1): NoOfColor = 0ã IF Repeat = 0 THENã GET #1, , NoOfColorPackets$ã FOR NoOfPacket = 1 TO ASC(NoOfColorPackets$)ã GET #1, , NumberOfColorsTOSkip$ã GET #1, , NumberOfColorsToChange$ã NumberOfColorsToChange = ASC(NumberOfColorsToChange$)ã IF NumberOfColorsToChange = 0 THEN NumberOfColorsToChange = 256ã NoOfColor = NoOfColor + ASC(NumberOfColorsTOSkip$)ã FOR SetPalette = 0 TO NumberOfColorsToChange - 1ã GET #1, , PaletteRed$ã GET #1, , PaletteGreen$ã GET #1, , PaletteBlue$ã OUT &H3C8, NoOfColorã OUT &H3C9, ASC(PaletteRed$)ã OUT &H3C9, ASC(PaletteGreen$)ã OUT &H3C9, ASC(PaletteBlue$)ã NoOfColor = NoOfColor + 1ã NEXT SetPaletteã NEXT NoOfPacketã END IFã ELSEIF ChunkType = 12 THEN '/* 12 - FLI_LC - Line Compressed */'ã NoOfLinesNotToChange$ = SPACE$(2): NoOfLinesThatChange$ = SPACE$(2)ã NoOfPixelPackets$ = SPACE$(1): NoOfPixelsToSkip$ = SPACE$(1)ã NoOfPixels$ = SPACE$(1)ã GET #1, , NoOfLinesNotToChange$ã GET #1, , NoOfLinesThatChange$ã FOR DecodeLine = CVI(NoOfLinesNotToChange$) TO CVI(NoOfLinesThatChange$) + CVI(NoOfLinesNotToChange$) - 1ã GET #1, , NoOfPixelPackets$: XPixel = 0ã FOR DecodePacket = 1 TO ASC(NoOfPixelPackets$)ã GET #1, , NoOfPixelsToSkip$ã GET #1, , NoOfPixels$ã XPixel = XPixel + ASC(NoOfPixelsToSkip$)ã NoOfPixels = ASC(NoOfPixels$)ã IF NoOfPixels > 127 THENã SimilarPixelsColor$ = SPACE$(1)ã GET #1, , SimilarPixelsColor$ã NoOfPixels = (256 - NoOfPixels)ã LINE (XPixel, DecodeLine)-STEP(NoOfPixels - 1, 0), ASC(SimilarPixelsColor$)ã XPixel = XPixel + NoOfPixelsã ELSEã AllPixels$ = SPACE$(NoOfPixels)ã GET #1, , AllPixels$ã FOR SetPixel = 0 TO NoOfPixels - 1ã PSET (XPixel + SetPixel, DecodeLine), ASC(MID$(AllPixels$, SetPixel + 1, 1))ã NEXT SetPixelã XPixel = XPixel + NoOfPixelsã END IFã NEXT DecodePacketã NEXT DecodeLineã ELSEIF ChunkType = 13 THEN '/* 13 - FLI_BLACK - Black screen */'ã LINE (0, 0)-(319, 199), 0, BFã ELSEIF ChunkType = 15 THEN '/* 15 - FLI_BRUN - Byte Run-Length Compression */'ã NoOfPixelPackets$ = SPACE$(1): NoOfPixels$ = SPACE$(1): XPixel% = 0ã IF Repeat = 0 THENã FOR Linez = 0 TO 199ã GET #1, , NoOfPixelPackets$ã FOR DecodePacket = 1 TO ASC(NoOfPixelPackets$)ã GET #1, , NoOfPixels$ã NoOfPixels = ASC(NoOfPixels$)ã IF NoOfPixels < 128 THENã SimilarPixelsColor$ = SPACE$(1)ã GET #1, , SimilarPixelsColor$ã LINE (XPixel, Linez)-STEP(NoOfPixels - 1, 0), ASC(SimilarPixelsColor$)ã XPixel = XPixel + NoOfPixelsã ELSEã NoOfPixels = (256 - NoOfPixels)ã AllPixels$ = SPACE$(NoOfPixels)ã GET #1, , AllPixels$ã FOR SetPixel = 0 TO NoOfPixels - 1ã PSET (XPixel + SetPixel, Linez), ASC(MID$(AllPixels$, SetPixel + 1, 1))ã NEXT SetPixelã XPixel = XPixel + NoOfPixelsã END IFã NEXT DecodePacketã XPixel = 0ã NEXT Linezã END IFã ELSEIF ChunkType = 16 THEN '/* 16 - FLI_COPY - Uncompressed 64000 Bytes */'ã PixelColor$ = SPACE$(320)ã FOR YPixel = 0 TO 199ã GET #1, , PixelColor$ã FOR XPixel = 0 TO 319ã PSET (XPixel, YPixel), ASC(MID$(PixelColor$, XPixel + 1, 1))ã NEXT XPixelã NEXT YPixelã ELSEã PRINT "Invalid FLI Chunk Type.": ENDã END IFã SEEK #1, Di&ã NEXT NumberOfChunksã SEEK #1, Bi&ãNEXT NumberOfFramesãCLOSEããRepeat = 1ãGOTO Rep:ããEND SUBãYousuf Philips LOADS 24-BIT BMP FILES philipz@emirates.net.ae 12-22-98 (21:56) QB, QBasic, PDS 254 11862 24BITBMP.BAS''''''''''''''''''''''''''''''''''''''''ã' Program : Loads 24-BIT BMP Files 'ã' Name : 24BITBMP Version 0.1 'ã' Programmer : Yousuf Philips 'ã' Company : Y P I 'ã' Updated On : 24th of Nov. 1998 'ã' Email - [philipz85@hotmail.com] 'ã' [http://members.xoom.com/Philipz/] 'ã''''''''''''''''''''''''''''''''''''''''ãã'/* Do not edit this file if you distribute it. */'ã'/* (c) Copyrighted by YPI in 1998 | All Rights Reserved | Public Domain */'ãã'/* This program has been created by YPI (Basic Programming Incorporation) */'ã'/* as a utility to load 24-BIT BMPs in SCREEN 13. */'ãã'/* We all know it isn't possible to actually load a 24-BIT image into a */'ã'/* 8-BIT graphics mode. What has been done is to extract the RGB of each */'ã'/* pixel color and then search through a given 256 color palette for the */'ã'/* closest color. The default 256 color palette in SCREEN 13 isn't good */'ã'/* enough for the algorithm so a color palette created by Steve Demo was */'ã'/* used and is located in the SUB ChangePalette. If you have a palette */'ã'/* and would like to try it out on the algorithm then place it in the */'ã'/* ChangePalette SUB. If it is better then Steve Demo's palette then */'ã'/* please send it to us and we will use it in the next released version. */'ãã'/* If you use any of this code in your program then you must credit YPI. */'ã'/* I would like to give special thanks to Steve Demo for is color palette.*/'ã'/* YPI has created an assortment of graphics loaders and players and they */'ã'/* can all be found at */'ããDECLARE SUB ChangePalette (Alg%)ãDECLARE SUB Open24 (FileName$)ããTYPE BMPHeaderã ValidID AS STRING * 2 '/* Must be 'BM'ã SizeOfFile AS LONG '/* Size of entire file in bytesã Reserved AS LONG '/* Four empty bytesã OffsetOfBitMap AS LONG '/* The location in the file where theã ' bitmap is locatedãEND TYPEããTYPE WindowsBMPInfoHeaderã SizeOfHeader AS LONG '/* Size of Information Headerã ' 40 - Windows | 12 - OS/2 1.x | 64 OS/2 2.xã Widthz AS LONG '/* Width of image in pixelsã Heightz AS LONG '/* Height of image in pixelsã Planes AS INTEGER '/* Number of Planes. Must be '1'ã BitsPerPixel AS INTEGER '/* Number of bits per pixelã ' Possible values are 1,4,8,16,24,32ã CompressMethod AS LONG '/* Compression Methodã ' 0 - Uncompressedã ' 1 - 8 Bit RLE Compressionã ' 2 - 4 Bit RLE Compressionã ImageSizeInBytes AS LONG '/* Size of image in bytesã HorizontalResol AS LONG '/* Horizontal Resolutionã VerticalResol AS LONG '/* Vertical Resolutionã ColorsUsed AS LONG '/* Number of Colors used | 0 - All Usedã ImportantColors AS LONG '/* Number of Important ColorsãEND TYPEããCLSãFILES "*.bmp"ãPRINT " 1st 24-BIT BMP Loader for Qbasic (ver 0.1) - A YPI Product"ãINPUT " Enter File Name - ", FileName$ãIF INSTR(FileName$, ".bmp") = 0 THEN FileName$ = FileName$ + ".bmp"ãCALL Open24(FileName$)ããWHILE INKEY$ <> "": WENDãin$ = INPUT$(1)ãSCREEN 2: SCREEN 0ãPRINT " 1st 24-BIT BMP Loader for Qbasic (ver 0.1) - By YPI (BASIC Programming Inc.)"ãPRINT " Program is Public Domain, (c) Copyrighted by YPI, All Rights Reserved"ãPRINT " Programmed By Yousuf Philips in 1998"ãPRINT " Send suggestions and comments to philipz85@hotmail.com"ãPRINT " If you have a better color palette, please send it to us"ãPRINT " Visit the YPI Website at http://members.xoom.com/Philipz/"ãWait$ = INPUT$(1)ããDEFINT A-Zã'/* Sub to change the color palette */'ãSUB ChangePalette (Alg)ããIF Alg = 1 THENã '/* An excellent color palette from PALSTUFF.BAS [Graphics.abc|09/1995] */'ã '/* Created by Steve Demo */'ã Change$ = "#####M#M##MMM##M#MM8#MMM88888b8b88bbb88b8bbb8bbb+++"ã Change$ = Change$ + "...222555999===@@@DDDHHHKKKOOOSSSVVVZZZ^^^bbb3##8##"ã Change$ = Change$ + "=##?&&B**E--H11K55N88Q<#\B*]F2^K:_OA`TIaXQb]Y33#66#99#<<#"ã Change$ = Change$ + "??#BB#EE#HH#LL#OO#RR#UU#XX#[[#^^#bb##8%#:(#<,#?/#A3"ã Change$ = Change$ + "#C7#F:#H>#KB#ME#OI#RM#TP#WT#YX#\\YbYRbQJbJG^GDZDAWA"ã Change$ = Change$ + ">S>;O;8L85H52E2/A/,=,):)&6&$3#YbbQbbJbbE__A\\=ZZ:VV"ã Change$ = Change$ + "7RR5NN2JJ0FF-BB*>>(::%66#33Y^bQ[bJXbBUb:Rb3Ob+Mb#Jb"ã Change$ = Change$ + "#F\#BV#>P#:J#6D#3?#/9#,3YYbQRbJJbEE_@@\<'':%%6##3/@$2B#5D#8F#;H#>J#AL#DN#GP#JR#"ã Change$ = Change$ + "MT#PV#SX#VZ#Y\#]_#bYb`S`^N^\H\ZCZX=XV8VT3UP0QL.MH+I"ã Change$ = Change$ + "D(EA&A<%<7$73#3-+&1-'5/):2+;3+=4,?5-@6-B7.D8/E9/G:0"ã Change$ = Change$ + "I;1J<1L=2N>3O?3Q@4SA5UB6VD8WF;XH>YJAZMD[OG\QJ]SM^VP"ã Change$ = Change$ + "_XS`ZVb]ZZ##X)#W0#U6#T;#S@#RF#PJ#ON#CN#6M#*M##L(#K3"ã Change$ = Change$ + "#K?#KH#FL#>M#5M#-N6#Q>#QD#QL#QQ#NQ#FQ#@Q#9Q#1R#+R##"ã Change$ = Change$ + "bbb"ã FOR Loops = 0 TO 255ã OUT &H3C8, Loopsã OUT &H3C9, ASC(MID$(Change$, Loops * 3 + 1, 1)) - 35ã OUT &H3C9, ASC(MID$(Change$, Loops * 3 + 2, 1)) - 35ã OUT &H3C9, ASC(MID$(Change$, Loops * 3 + 3, 1)) - 35ã NEXT Loopsã Change$ = ""ãELSEã '/* Randomized color palette */'ã FOR Loops = 1 TO 255ã Blue = INT(RND * 256) \ 4ã Green = INT(RND * 256) \ 4ã Red = INT(RND * 256) \ 4ã OUT &H3C8, Loopsã OUT &H3C9, Redã OUT &H3C9, Greenã OUT &H3C9, Blueã NEXT LoopsãEND IFããEND SUBããSUB Open24 (FileName$)ããDIM BMPHeader AS BMPHeaderãDIM BMPInfoHeader AS WindowsBMPInfoHeaderãã'/* Open file and check if it is empty */'ãOPEN FileName$ FOR BINARY AS #255ãIF LOF(255) = 0 THENã PRINT " File Is Empty"ã CLOSEã KILL FileName$ã EXIT SUBãEND IFãã'/* Extract BMP information from the file */'ãGET #255, , BMPHeaderãGET #255, , BMPInfoHeaderããIF BMPHeader.ValidID <> "BM" THENã PRINT " Invalid BMP File"ã EXIT SUBãELSEIF BMPInfoHeader.BitsPerPixel <> 24 THENã PRINT " Not 24-bit Image "ã EXIT SUBãEND IFããDIM ColorPalette(255, 3)ãDIM PixelArray(2000, 3)ãColorDif = 3ããSCREEN 13ã'/* Sub which changes the palette */'ã'/* Valid values - 1 - Color Palette created by Steve Demo */'ã'/* 0 - Random Color Palette */'ã'/* If you want to use your own color palette edit the function, and if you*/'ã'/* think you palette works well with the program send it to us. */'ãCALL ChangePalette(1)ãã'/* Capture the current color palette into an array */'ãFOR Loops = 0 TO 255ã OUT &H3C7, Loopsã ColorPalette(Loops, 1) = INP(&H3C9)ã ColorPalette(Loops, 2) = INP(&H3C9)ã ColorPalette(Loops, 3) = INP(&H3C9)ãNEXT Loopsãã'/* Calculate the number of bytes per line for the current image */'ãLineExtract$ = SPACE$(BMPInfoHeader.Widthz * 3)ãIF (4 - ((BMPInfoHeader.Widthz * 3) MOD 4)) <> 4 THENã LineExtract$ = LineExtract$ + SPACE$(4 - ((BMPInfoHeader.Widthz * 3) MOD 4))ãEND IFãLineExtract& = LEN(LineExtract$)ããIF BMPHeader.OffsetOfBitMap = 0 THEN BMPHeader.OffsetOfBitMap = 55ãã'/* Resize image to fit the Screen */'ãActualHeight! = 199 / (BMPInfoHeader.Heightz - 1)ãActualWidth! = 319 / (BMPInfoHeader.Widthz - 1)ãIF ActualHeight! > 1 THEN ActualHeight! = 1ãIF ActualWidth! > 1 THEN ActualWidth! = 1ãActualHeight1! = (BMPInfoHeader.Heightz - 1) / 199ãActualWidth1! = (BMPInfoHeader.Widthz - 1) / 319ãIF ActualHeight1! < 1 THEN ActualHeight1! = 1ãIF ActualWidth1! < 1 THEN ActualWidth1! = 1ãWHILE INKEY$ <> "": WENDããFOR YHeight = BMPInfoHeader.Heightz - 1 TO 0 STEP -ActualHeight1!ã '/* Extract only the image lines which will be shown */'ã GET #255, BMPHeader.OffsetOfBitMap + ((BMPInfoHeader.Heightz - YHeight - 1) * LineExtract&) + 1, LineExtract$ã FOR XWidth = 0 TO BMPInfoHeader.Widthz - 1 STEP ActualWidth1!ã XWidthPosition = XWidth * 3ã '/* Extract the RGB of each pixel */'ã PixelBlue = ASC(MID$(LineExtract$, XWidthPosition + 1, 1)) \ 4ã PixelGreen = ASC(MID$(LineExtract$, XWidthPosition + 2, 1)) \ 4ã PixelRed = ASC(MID$(LineExtract$, XWidthPosition + 3, 1)) \ 4ã PixelPut = 0: Movement = 0ã '/* Check if the RGB or an RGB close to it are in the color array */'ã FOR PixelArraySearch = 1 TO ArrayNoã IF PixelBlue >= PixelArray(PixelArraySearch, 1) - ColorDif AND PixelBlue <= PixelArray(PixelArraySearch, 1) + ColorDif THENã IF PixelGreen >= PixelArray(PixelArraySearch, 2) - ColorDif AND PixelGreen <= PixelArray(PixelArraySearch, 2) + ColorDif THENã IF PixelRed >= PixelArray(PixelArraySearch, 3) - ColorDif AND PixelRed <= PixelArray(PixelArraySearch, 3) + ColorDif THENã PSET (XWidth * ActualWidth!, YHeight * ActualHeight!), PixelArray(PixelArraySearch, 0)ã PixelPut = 1ã EXIT FORã END IFã END IFã END IFã NEXT PixelArraySearchã IF PixelPut = 0 THENã '/* Algorithm to find the closest color in the color palette */'ã DOã FOR Loops = 0 TO 255ã IF PixelBlue >= (ColorPalette(Loops, 3) - Movement) AND PixelBlue <= (ColorPalette(Loops, 3) + Movement) THENã IF PixelGreen >= (ColorPalette(Loops, 2) - Movement) AND PixelGreen <= (ColorPalette(Loops, 2) + Movement) THENã IF PixelRed >= (ColorPalette(Loops, 1) - Movement) AND PixelRed <= (ColorPalette(Loops, 1) + Movement) THENã IF ColorPalette(Loops, 1) = ColorPalette(Loops, 2) AND ColorPalette(Loops, 2) = ColorPalette(Loops, 3) AND Movement > 3 THENã IF PixelBlue = PixelGreen AND PixelBlue = PixelRed THENã PSET (XWidth * ActualWidth!, YHeight * ActualHeight!), Loopsã IF ArrayNo < 2000 THENã ArrayNo = ArrayNo + 1ã PixelArray(ArrayNo, 1) = PixelBlueã PixelArray(ArrayNo, 2) = PixelGreenã PixelArray(ArrayNo, 3) = PixelRedã PixelArray(ArrayNo, 0) = Loopsã END IFã EXIT DOã END IFã ELSEã PSET (XWidth * ActualWidth!, YHeight * ActualHeight!), Loopsã IF ArrayNo < 2000 THENã ArrayNo = ArrayNo + 1ã PixelArray(ArrayNo, 1) = PixelBlueã PixelArray(ArrayNo, 2) = PixelGreenã PixelArray(ArrayNo, 3) = PixelRedã PixelArray(ArrayNo, 0) = Loopsã END IFã EXIT DOã END IFã END IFã END IFã END IFã NEXT Loopsã Movement = Movement + 1ã LOOPã END IFã NEXT XWidthãNEXT YHeightãCLOSEããEND SUBãAndrew S. Gibson GRAVITY INFLUXOR ARCHIVE [1/3] zapf_dingbat@juno.com 11-04-98 (06:12) QB, PDS 2727180199 GF_1.BAS ' Gravity Influxor Archive [1 of 3]ãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"GF_1.ZIP",4^6:Z&=135032:?STRING$(50,177);ãU"%up()%9%%%.-%1AIxJL;LPY*W[%%Ev%%%1%%%%ln%hwix%UVSwLf&ClJ>qb8?WhãU"tgeS&$*(H[3wc4IOc:WR;1>r,)>.(tBG-/o5P4X5'm0se5i=a1:N;r5X&t5;IqeãU"52a*$R#7]%)Dm+D.g+fEGhLd&b5ra?*?;QsYZ=M7m]4.YG+,muhpp4ug;elbkdSãU"6gpxBTGac$(dUD=JPJb*O&Pjftm0bZoyOWNM1LuãU"$44oU_AkNP7J$Y_bd6&+.DQERmãU"DlaiV4opyQ+);J0pn+J'CTpd->iTBos2WLFvr*z-eUeDJ]n.z1plTlN.cvF(^X:ãU"h$>QXx50MpBFxkzkr;/,:JB2V9]yc_7vscZJ4pr3^e.U<660.PbGUOPT%**tjH:ãU"lh7lvq%Mw/05B>9h=F5$9$9_9ufGX6uDnZt?hPeOd^w%+cX^Q0RrX%/4TIz]wdSSLx-vpO3PegJ2Tt#'RQãU"NR>33$36;cHRãU"zjq=dLvq=pV6Y244uty3_QY>ogze#BwEcCGSEQV6JJpn(b(HDWb)EwMR32%;F]#ãU"4CMMtvu9:oCBhQ_FdCrBFlZ]SRDgNZ(+_R7D/zoed)VVMwilqFNtT$X=PQ3/J>zirpyXãU"YKmJ=bJbgD#ul.)1#MU_MUU))>)cdy5V4,2ãU"Auk]B.VqqDfCTn^BE2w[:<*x5H$7Yt;s#X\fSmaefYjgm#38K;SIc8n5\LKd/k(ãU"/+r6gOM7bj-u1F^MAQqrwk2iGlMhQDV.+6sLXdek]#[*;XDtYKs\^R$Q>ZãU"rndz;\&(+N(-)Zl00.RRq$mzC.peq&./:Fzlomjj>MEM)fv4.6+#2*=BM%y]W;:=,c?9F4ãU"mbkssQ:So\AErnDrnVu*]F5T(,HgfKl.:Pl\t7Tc)t9ptppNd%d(JQx?3\FM<86ãU"^o>7YnJ5Pe65)iPuU5EaB5/oEãU"PqUb=c4O\j'^SR75ozp*F('X?d;pEYw%^\VgEq-k/uMcSd-EioCDFãU"%?1T'5oFEXXpiR;$.:jmqX_XnWW/=mtQ#a#&voX%6B&.c]#arv+>^._VPvc:KwLãU"K_]WI[4/l?S'lv7$LtnH8u4Xbl],Dc91tg[tL&tpLt\5-/6kj=V,nK*]+(;>[QkãU"EW+ESiJ9x,QS'=bA:wPlee19u-uRRZRG9'>-hEq1QPe&KQ2SC/P'?Z$>2'1-33_ãU"*&Gm*nhOcmIc,F5Xt;PMeD;/U>:=-:05V9*_Kez;Z;lUX?L?E6>P\p-\YsfvG4HãU"1,_rWMWA>y8X7knwy[Gj-5U5#c[&?<:jcRh4;j&C8D[TYp=1Q*c9Vtr-mLul9plãU"UD/7s>V/t0E3bP&Jw]dm8w4mQAM22L12Z6$jF;x'Px.xxk:P/;trrrrMP2PKWKjãU"faiPãU"r0=\x?]-9Mmhco,J0RLX6Es^j6_yVBl$qA*3^h'-.gcWt0#TYB#bNp#pyMYG*fdcaPGt0Cn\#0=kV)]B:nPI3ãU"Ye:*g6FghX9/\]Bsp)2\\XXNk]\PuhfsFc*MX8Ta26T89q7miAJ;cR+50+%05ZMãU"Pi(xxbuOqq[dGq:-&1.%0P94I5=F9X,[o.5gD9EU>8s6ZH:6Y?/?ZmLyIE#wPV-ãU",0ua:IDAWN<&bq+RmsUjMZ_AN+$dVex./z3B.1zbtnKNC-jBTa27-Q$sX;57c'\9mEYFxfuo(b$-+&rXãU"H8;2t,pr$Nwr?MrlTpp^vvcNbT8uXpvph.MH^g*Ln?D]j>W=T-V'-4d0t](dAhCãU"0Cg9%bbpp[*xp=lPrJ\fwkJ3&5$,DZKU5?j9*/\$>zf1.I$[\>tqgf/Hy.BN-&FãU"w6gW%aT1l3)1[g),X*W[LzMpLZ6EHA4v3KOliraãU"S+mEexP.H63KgoIT:??P9QY_X,Cu79Y,m^A61M^TS+9,Uo[YYw?xN9#gSHZ$:KTZn6v&*(&FjJbtãU"A)>dfjckF1:n+%,kP62jmFyuupe,.u].k8ELB5XHPaePw:oKwHePK9#=uqUC7ZhãU"ofRa&h)68a[mc6SSs0ZKK+B;vS\*a%%,:QdPjirk=nn5DGERRrR:I1>OPTA?A%NãU"[TC5bi?o2rKnq0rd\=Rn%kG6tf=3OI;.Fxbq$nY4Xlt6&'0:%fq$Gt>7Wlk+]l6ãU"^'_$.cFEqp(FOX*gbBWvbsg\YLWGGW]Eatl;kV=0XZ]mUF/:$lbUbgwh'%&M&>LãU"_ncCJlOkc9IPYKUn#3H;A)Ml7(;s1FAcp8Z9QQ<ãU"5$-_)b\a2Xs$]ktS88jUX[wKq(;*007pY'ipvjlD\2r-,i2*)?L[^O\l2GmYa\+ãU"P(uijQ6mVHqHHD];&]g-9xJ%\A;^g#)6uPKY[e?Y(JQ5E]h=jq[gvFa,pPXrBJ[ãU"t*Wk2_qT'tguI89/2?hQ[Qa8L%]=\5[?lqczhu7swt,LX2vtHibBE(#e.*PLr>FãU"3NHUBey8U8tYV_s0rnm#q:aItCfJ.;mtRs=C\Y=fsCL-M;3RLr\HPJV.tbu.ccwTIBe8k/SãU"+Tn\p;KR#LDU,c.I[%qLF0nJbqD]%qhas\(J(,oIlqIV>hQ6gLY0vWQ,gBM'ut.'_ãU";fEj7>(7/L\c0Nnf$xU\3aFu\e0ks=OsA1^?RI508kFS\]W,Fr0je=Fuu1\m)fdãU"PnIZtgT>npc+<2%VLW&x79#Aey+('EG/.Vr&QX_z'?fWbk^XuaEhEk.eReOCo\\ãU"1hR6<:<>V?W8M6KBgf)]+4KG\8k>3b:aeQvFLKxO-C/$j'jQGTu;4T3s18:\ulMãU"Xb,$a%PmD%Qe2;=5)0'Ch>-:'6vJY&5K1K0BpK]-zb6UMlZ.>o'h2UU^n+H8nj&ãU"7mo7Dl::,,_s.fL[3PoB$.+.4T$\,us_#?mA3#=aUVD5ODaLJ^%_Y7Y.RPz8Z61,6tx.:7K*e/$Os(1E?-leG0^,G\kH4D/Mx8pKRpl5,$apr\>sãU"Y&x>zciwL)VnsF=,a>)NOHDi&O&._\E+iDG;5munZj\qGGG^_FaBRSW>T%2y6y>ãU"_#_JnNK_JTt;s*q_#Y9B4j\z%p9GKv*AWT\?PYG:iJa/ClmVst:+QgYlanãU"]]f*qa$mEcahqk:^i?Z(7'i8>p7+[c)lfB,DM.EDe1,$Y0R+JUiKlqm8rt+hdWfãU"^6Gtu7uR'kY'YJ?JGGsIoTzB\cBc_A\r$*9__Sx#g3-vbb+po)voi=UUHWb1,U7ãU"Wmwc'gq:Ej%FcYnEg]]>k8OsTd1\>r'8;q1L+R$J;kGKafãU"gkharCSEY-Qx?kZ^uLj6YRsl?k'l_k/$vuC*hUYIo0FihMJp-To[(W'\ZR/UQ=5ãU"PFE4s(?W]w+c0*nmnU[6>)QQ-MQZlr,,.MNeC6po/wOcD*dXB67wpoL_d_ojI<2ãU"N)Z>LQa]jRttc+3k,m_8f)-2Gxc$EykZ%?Yy,Fc4XnD:Q&'m(D$q\^k9%>u2D[yX;p&Z^tjx2^d?bãU"U.2A_0L8;X.doBE.P+0tj,U]liG7v]<,unooG_oW%vMlEKMtKwq7Yde4FH,hgRbãU"avna45jMb#GfISgnuUfQBoEcL]'ag^k$/g.9%t[\,v&^J3R58L&66L2LZ[ãU",GWNszlM1&xjE9Gd;f/;BRUl/+dd$]iZ65UZGabj[L/?G/VGG1Ic>^DAfY#W3PqãU"Jhd2$B[Ff9lMPZ#IhXepcv>)v_E10v,I7^C[SqsVPEi9i)iBRd[x9c^g%MhflL02rsl%jZu)GG^8gY/UPXK.xnCL/stW\D^+ãU"Q>)9/2)pkjNBaw<0>?P;7ECIlYs6sNWxk1+1(YO?UUjGefXceo,^6P(^T2fffH'ãU"&0[[bqSF\WrX8WxW((%x9Pu^msuãU"<:36iZ269NwB>v*uU88O<^T-i0mE;lst2N<E7O.%'0Ys?nLrON6Py_PP&XNsY:GG4qYln2CQn:sOãU"ZU-UKqYi]6dvPfmyilxLe4]Z?\q8UYqmEn&ONS=$C?&8y3S]C='D/A.e&dLARltãU"PKKH:tnl2;36\KDr>9pfIpyYr%7u.ROvwQ+(h\)7x%QV?0)9VRKROo$0+T/+$MkãU"Z3djW*8vi7?pO[u)_bqqx=brNC<8GnG9Y&Xjp3D=)sjJpnATgKE_O0zNt,Xln3nãU"dBG[&lCCctDH-Mz$97%V?RIQ9__xdIH6%:wQxDqWh_=GuEh%$Vm'JWKBSbR3ki\ãU"D''l4d];jb\SaGf>=v72lM&ldQz<;.%b%*f$,=_4J5Md;0qYJãU"j-8B1_T0z\B:.'#(E-mDm/\=%)h+Xnw[;(?HE1/VrM5k,Ua1$JTpd;njIPu;ni/ãU"aP>uug3(*+yAIxpG+ab)$&#f1U,o(>-f5aEufqPsJfiU5U.79p#ZF&%GB5FjLd;ãU"b)m=?3b,%x-MJIBRK-oQnnDhAM^bO-nQ\l=.b6TLDEQ3JãU"Om#,p#2%Y8Y/NVP);n%A_uRI7aE5_/S71B\M.Koe^.lzF:#*l+pb_v>,n1^2q':ãU"]AaRcplJe;[#SFA8se(lLV\j\[?i+6Mwma7%LN$y&C9]7Tu[.d>3NZL,l_DrOnDãU"GbA1Qf$E^([hQN?J$^1Mcc'2$A-Sp3>&ãU".LllYDP3hMjGD=3\N_Wf/v=Mw:$;,-\9blWgMx6$NPãU"-+duX$p:G3vQE7LWYqSs.b:FYZVSD'H-*2D'_8\Yz7P&zW;A%W.1_VV898dZ8>Gp;LdM,kJEN,97Ty][X9N?d726Km%FSLZIQs]0Ij-:SH'+'?p]cbx.o%EpVWCLQf\y/5IBvEãU"7WD+vD,c\n/dZtegF;tIC#U,yK;QQSUj[Dr0_heyVq'3d%6$.K2'v3nMWJNQ5iSãU"UgJFVu_8T;8[AV,N8H+,=8Kjkk';o436SsLUlMN;*DBi]0DBV*m53GGCdZ+vq?AFn?Vgvnzro[>x+zR[ãU">2B'r0(/&[sel5WL4oKl&4Mq)]2w#LLUP^0'YE;EewbeGtzCSZk&vdA#qe0tIew&WTãU"tzSkOr5fuX]?I8c2C4KE,pL1RhK=N%PX/p>7FEQ#ZjEDrKDEap8(kZ[p\N7^=pX0KVGskx&eãU"1ttBQ(=i%]CC;SG+DA)-vn<22Z(&q':nil0x4\oMvqt2sx]]:YqlJONoxr\u/Z%m*GlYC%HZR;/p(RmrtGXW,0;,vãU"%F/4bK941#]Ls-)hM770*ELhi')Dvqs,eo6lYbbLbbZGidf-\J.wVy$_Su15)F.2*UJDCODagj'?A<ãU"EA=i+v_]sS\Ew.$c^'UU5mjKW;^FuC%vxe:j;i8Rp?+aTT7f8Q--c28OMd/'vUc0'T2,2Y>O:vaEEuJy0R*ãU"bW1lSij/gwe8B==U?8uopdE\gnNND(r#9f8[X/G4]&t:gyDFyhp?b]lK%r60[jsQi4,F'w#KãU"Nq<7I]k7]TkXH3?HVns;_R2^,#qae/twVM3t5I>]B\UW?n/4(w'sBX(9)\uLl%]ãU"c/RMI[R6i+)6jRFum-,eAu(qgG&t\LUJ6AIf='N_9fyP#pTjgPYLx-5'kNsf#VBãU")(Ph9]dfG7aX\)Un\$C)RN-#j2U5;h_6C\gU5qF-2rJqCPb>NQUwSe6/vo]DbX-ãU"Tmlt.i7oUfePh8kIM#ãU"G0=+;t19;*eL(.K$);t*D90tr=?>*1>c^$SC[-j0d%*p-ZM=LQCTksb\,]R_5f9ãU"O](OIf;9'uxhF2Bq50Mf\uc,>uLXQ(+.OcM\Q(+EC]C^p%\FepYNfi=%N2G[C.u;E(H.c(*ntNc%t?E7-u:=ON:80(Z-?$[N^Tdo#ãU"\[WaT$=Dj3Y')Gb3wEL=.;KT70\d=\tzI^Y,A5])Uz=.Y]wJ:2Xci0GVFrJAGFnãU"1e['4nS]O).7Q>S(awAucReu;C]U8l$c;;Li_C]Dr8lYuwOaks$&)#53QBERTp;ãU"\F5Yt1,K^RdLZlB'=)2,-_o<.vT^K?3PXky9ULuP^1aeg)mu->eyc6YPW.i?H]ZãU"L6[sxVvYTU/;J#vU#+3G3tS9u]&PfH>fY=_$..T?/OU1c^w\fDh\9KãU"?9P^>+elF2;DpgPu&$fP,&q^SXsm=mVJ4WVxraxq]ip_i'uLM-EW9H'hHnEr7]cãU"]A<))',eWK#>5AHd%cjmTSB;$L?31x%;:>2]Y5IhqLX+.GN2W7y;s^==$V):i>nãU"*4ot..v>BnYsb?GaYWUMK$2#bqLQ84(jj>J-kYV+N]ih(bX3]ZuH8Zm&41n/$DkãU"-a[y#qqQvJwHb$Pu?hcgwEK9;vW_KWdOGg'z3LZrHe4)&4lEF5wV-j1#RE&m?B9ãU"2\#5+VYma*k/0k-ODrAI5W9Z'Cm>4A(+QWE)n[cLjN#%-/LE-L>a6JZUAH2myKYãU"if9D1*FB#N:B]%V;7AG+[603JU0jlLu;n._/L&^.znqQdB.rMUyP#J9faP_?90IãU"6_2$)eD^JW7U]DHI7a49KOjkiEG;9S$/%eY%DW>Z.wW],'8vCaxuS$=Eab:]q)sãU"%4\nq1.rAAB\n6[-R-p'1hO3\qlXAkZ..\;6^4\#u19ZãU"Av$D<\gn\RL40:0O5)(.W3)G#vDKf[]F9p)(kFGO0065W_,P?5p??Z-SUi-tR-<ãU"*_3g4R9Vq33pKhDjc++[;$sXEAK0Hp&4apr47hJIM%%r*bnJU[VO>*_zOhUN]\cãU"mLk_5b9#]F->aILYdvHb5>2SmP'\W)leEC5+*mZ]kgQmW.J*R43Vwh*Od)[0P1CãU"f],)kk3k/P?<[BGB)V]RP[TLzMiC/Jb-5cu9#;%L9/cr'Sjr:0#9=Ke;Ii2Q/LqãU"c;1d8*X>&7Y&$8:sYapXsB)BA$(.+YM')#=0A775&GUJ_9_tYr?6CF)CJm8I-HIãU"emV..^F8=37>*f(b$^(^O/rGVe*mAM;JoN]QZr_d?:>\(jpC'+^:VJ&LãU"8KQa9$%lQ])cf[DT,+fcZjG:qZBDP_4(+sm>W0O)'wL9%KFc,JIch3r:PT;2'UnãU"iO:eSdm6=Qr0]C*[snWnj.tgc%LR49kZoD3_,gXM_hs(p^7wVdwa9DU]NH7?r=<ãU"E#s1:m3\^#h88%Z2NFru7,)EQo*]q\$DhY:XMuH\IDP'?Xtn6+%Jaa#beZBs&sVãU"&3j?$=G9PYsSDK1DkYDZ%iQK0&n0>kDGKc.RF9aZ%7G=;>yQ97#m.u[V&mk6dP$ãU"Q<*:641iYh;v4xNOM75xR+FIC1W7%h%y5<_fnFAj+K2$S?j&fRxVh4MV,doR&k;ãU"q[V_2jdn\+Qs(f*gth*PIU3$Dn.\n)>ls6ogVW'96-f0<0>_L*8Z3HY*I(:,IJyãU"dH0^Of61:UHSg8kC6ue;*>&\oRNpA$)oEp8ffn'T6;csNcl>:]F9<;d.)VPMãU"CfP%B=0;tjE/gm6YuRCc;_yfZDwk(nHC#'$('3*w(MX8yCLH#l[NiY]>uhFK$,nãU"VMflPMlA65CQSW0q2BSgR:4f46%\mK,ZUmjd<#O$o>V)&qNT2F*jamlQ#N]]7-^ãU"?ZYF7Ci^dmvtRJdUpZ_S=z%oQ[Y9BEu;Lq8GIYL$q(UqU_9usJ9OZBaWjS72wsyc462O,GZ7e<'gf'.G)i88TYKi;)Wo:&jE2h>[Z]Q_ksyuj)qww//rOUBp\:LPãU"'M+xgyWYqm:-qa.j?aWQ:sk;ãU"d95FiaX%/aR50'FnEFav8=jeOd2nGhBB-,RH;pf=Y?Rm1jTl&P&P,$Swpdfu+\1ãU"j1X-FNv4(v8S.JDMtVX.4v:V85h6]*t+t7tEwZd#G\Y0:elqe.(Y-TE(&OAc)*_ãU"FrDj-yVM^)ZYA;emQg:::.b:5S;&c^%Qqnk0F)2Yd^4&TIy=D)jmVGFg+Z.%>)0ãU"Zd?ar=YW:bVDH]==&/FRL[_UTakxVjTtkxF7k#/FE2pImz'i'uZ#eKf(.$adk3-ãU"k;uwZL=6Aq&(8:qJ1q-;0G8Qs'eD3\8:q2rSjf:VH/v3GUNHnNDWq>XN,HbtL.[ãU"S'ge7L4e^(F:U\09n?sWJahV'cOz6(9On_'-+r806yl-MMD;?#$*B;DYgs13+z1kZ'l(KMk^,m,$,TDEbe#40e'*ãU"HsbkwqO>2r3u#klaC7FPCyQftLjWq(/mLuMq)']1C;nAusn[IYDl++NbHUzok7uãU"1HZop3Np0ML.M#Qb=xn)-?5XHd]:Ti0UYYOnR7lLLT.RBE5O4%$04jOf4WtQb\b>WiEWo4HTWl^i7Nhxn#rãU"8NwxgeQ98p[287F:%&?u5;<\t]\+U35zZPt2(B[-b:fS)aEqqpyZKR.X_8RãU"3W#dxL=3HD48PvXox0EoP+qFa?tq?tZ1xrSYl,\ãU"Dt#B>1FS0;,i?%3'*GD+44tCkY7>*$G^]hm<0B*aNhEC;:Y[OkvB6t^x5d#\z]]ãU"&:MZET\$F'gX(/Bm2+3ãU"s2sY8a2(UuZ9T9K6PN=.D#RDL+wAioljpCufs#m#]X,ih+1Wc8G55Kw1KSr]dcyãU"'qGs#pK=.m%G$5KhS-D3f,Ht5kN9wgJDuG_Xo06,KT\Nafl0v+rEi.oD_QaJr6iãU"Gk86hk86i>2,S;PsK7o(+Ywv;WrP7ibW+Vc;.TD3+im;l5m7huvTkijT5Jtnvd5ãU"U]vo:1K'T(^o3kE4/1>Oc$1BL$S\it^e)o%'l+W*yKPqTA9nqowW<-(ntuDqf0lPAd04f)^u\XNNiR'yOH7&lyaw;3n+JWlmF3eCW^;(ZãU"I0u4:tZG6sJ3btfTD.MOfl;3N\3\b:;FcZlKS61;%(+_P%\'d,$U,Is2)Z::u0nãU",O=CHNrO)l,p*OZp>Nlo#Nu-N-omQio\nssvuh&nC$ctP>Hqa7%C%_/BzleiwWPãU"?phXStJk]ok6p:GsT^xwaFOy]Wn]iq2['uEa7;rKm>d-a8VhEY%yC-5%SdSH9GqãU"Y%_XT68(-cJXIDw7EA,6\'d4mGN9=8?z^gN6&24IsS5nO)DHN$6G&a)G4r#F#[GãU"vHdnRdKq-+'YN=Tin:&UqK>99:UZXV6AMMth;U]%e_kg][w(-1>Kj&L[Q/>NWG/ãU"CTbvd\1X4^PNxi8^=drD\uXU8xHlH<-fGt?ra]7-Sg_9(JWcX:fab$DNZU1jsZeãU",T_\.f4mnV:a61X\+jB1vd01t\DQPtp+[#?\)SU5Za#%?Uw[9(1nn)d$jW+9EuZãU"\Z.bMDS?XdL$SZSk)(\/(0M]*I66my(Tw-bD+#D[gXJ0*O-D60+X#opT$pJIdSQãU"l8Z/pw)[Pg,N56q('792/;?N'J*$7'eB\yh0r.A;$:#6A:_+4<12^'+Ce5+3EHHãU"$,LjKifQC8Q\oc1_NpL>NI::=tNKPTo:35jAl_XsZch,]+#\'pRD^$^,GRD2h/uãU"k(Nu]ELnngr,c,1f.aFRN:Y,sT*b=.QUN+qs3a,'=dXRRH6\FS7jKD1w=14Cs=pãU"Fi,H%3IGdfEkCs>bw'+18_csdqtrge/M7]mJ&wWuBdh4X=&nKl:Mj15-e9EiYm_ãU"E^gR&I$I[G=]XKH0s8O4'a(##\f(bPEgcbHluP.-oX6Yv*tJ.UXdxpR]#B8iGM+ãU"=MpQnj_$GlDG>cV7vNl78eiPlSq2?[yKQO*29YY=a2t>q2.BJ6Gt?\DK]BIiUleãU"x02%nouQJKl&/p30_N5nGUA-s\[J_bdA&0K$vC97vW/;,cetSdD?:](>Fz4mt%XãU"u(E%u,/]hRUBZ0;gfrAud[l-sem\C*G1=%9dBf#R7_La&q;ND#ãU"=ok25TJrJCAqfI]sjj,ARW%(meb:gEqmcN+i/[g.VV?nKZjAhUvPRvj4p+aS$Qb%,;I:p*qqHeikQãU"J-J7%qCB:[li=g\F]Z2^D;R7^30:NH,AnAQKWCm/-sce\PC[dgG'ãU"^KMIm&^m\HGF1'aILvq=PY/11drS<&&$jCg'3SOQqF?&,G]wn\1=(_nE;M<]c:FãU"Qu;MnhcLRY8I&6$k-'A-hv1yYHJ.'-n];:p&VWKt9k:CSp8/hdGoMf?0-_Z&g^YãU"g(Br&l_QD/Mf#NAIg=5vB=t^'>?b#L(;fqm_SOi5oyM$yoz,PR7vV[86^&*gxZ26a<:3,s+6%?,TEA'pPfjr%\?X?*8[:NIe1uIDCcQ7ãU"c+W=l:='*vbo97r>HQ#jkcKNYJ$^m-GtG80h,Fi4T?=(5F6&cVEu:=zHXj(C]q^ãU"\5$[yy$b&5>XmvzZJ^XftWV+/_voW3VVJaRkFsNPCJdp2<2LoF'1^&k#hVky2$$ãU"l;(Yc\[twq'EtwpHX7rf,b,MsC1NM[1q1C%5)$BpyVMXE_BQ+iãU"N&7(Kg%-_BG]5Ez]W*S\tAC=eqI7h199^Y[-I^7c&Cbu6ka>VZH5i0gvAIS)_GdãU"c:8Ygi9VCS[eOZX\C1lktToX)XJ6)6)t[NMF?C>=ac;:;/[BKnrk-q=dpZsBD$aãU"[4Ff5XS+^I.hjM6CI327KKVWqGL\81uNaV4XJ/q4$VT'LãU"um4fgqqDIUoG]ijD5b5M,N^#*Q2k8b6)hZ,\\D')a&gwAKSznnIdoR;G(wXcq^>ãU"stC>HG]9*S-Dc2oHO8M%^9Q$#f&sQqa26P)wS:c(r>oIX':*G$kHR,d9(9PvGUUãU"cVpTvWkEIRfBwV%,?E]$3]/HWBNJ?oqjKtFreRX4&.rb6D#LIYY[/;J1Zgd1HJQãU"cTnoV4xbT9pJVc6$mef34TLDuEHn>FDc]mpG&&aw8EO]m9ls4Lt$o6tw?qXMQMp?g?I3G?&^5-J)MsL;ãU"W/]kd#BBW/uDM)hoahM=f.:0<)7b(Hjr\CB-g-nH?WA\)K[Oe1vr'2mP->V/ãU"BZYCC5Wbp,JVaBCT9YXop5gPkfL\'Vb(saF52AHW',+\uLF8R+kt5x()BãU"y;q&=dN$3sXUzsFqeBe6^F'%:qRR;#w1+??Dxwo]WiVfw&6c6(87y.EI'$-SIYLãU"=wCm;77DIJmObv?X+LawaRfsuG:8a+D+U?VzQDxZt::p+x9IPJkãU",l75E^W>kox/3bXlpPDaPj:KkZX>J(468F7TuLt0sUi-b13YdTYG0b)j+5Jmd^,ãU"A1GZ%dB;X1R,0,SUZeW*PHYt[5315Xs+#\up*''mb&jsi0+=[/PO>JY#WS9,-*EDM1ts4K\RoP?_3NDdy=Skx-ltW_/rkDV9JãU"\5WmGKR_Wjj2)%%A-v5)QQDKG[L4u.XbWNlfr?u1ugxK4_a%vG*sR+_vS&Rduv8ãU"4)ZTMi4(PK_VQ55eB&%^r)Dl1G4k7J=veA3?&::B9cGWplW*pe-ODE\)3ãU"=Q7lmAh7(;=Fi93Fn*'Z\<^Gj;Gi3b\iq.E^(=yeK.=5CLL^%k%i?qjdrR00BBdãU"/6\GDJqgz,[4o-Cj\Ym8o+ust7pd(f?B%a4m3.dF=w.a4Dq/uLx,vãU"^hYkYt9Z,GH\Yn;j3f;pPZKwsjoP$(T)65Cx_NQltzeh$cisYEnGãU"z;jyI9;^IDp,FZ8xQp]z)Ud$h\^vNwRx8c:=]_\EDYuDUa./qWj90ãU"V3^Kt;/xQ#35#w/d5#l$)7PFRD9l66?1'gZtzu'J>W1MSf0AJ>>N:&:%C1B=ok3ãU"4f3u%vGTC$Y:]:q]IW+\]tZf&IP[iãU"ut&g1aH&mmQ#hl(d'4;PKc1SB-9IRK#oIA83w?dt=l2h56,,g\5.6J19+>I^VC\ãU"DXn=BIT/U)e#0V^2jPo0>0-5YRu)itIsLW6>I0E#9&0K4tH;An2yS-tsQoR37v7ãU"qtSgBq]Ct(fokmmgY*p,NzgD=t/&>ld=Gwj,Sctf>cR/%W>+lQ^YX+o+tRM#>)_ãU"*I8h*Z&?3.DaZaYGI;aj83FJq-_zC>JvZQ:bo(Oi5>.u6V6r^4uzWYnTYfH4[1pre\ed0?->9Z>\Y1&FãU"\<()p&N1F944Z?KM]?*p5L+-#?Y#pL8&T1*Q8l35kQXq(2_W1JM2kfC)A-K0ftmãU"b7*hC<_R<+=/d,,-H9_B2/.S>,QC=9GdQvYla$p?ENB=ãU"D[JkV3)2E+4'$Da,Fe+&V,AwQsNs3_K\V*oHPWh4ZW/WZOUb0$>7d]u%-QC9hjfãU"I*=E++v;m1YSnd$y-,senpX'r_[Y0M)_(E_5K*6]nAF82nCXc<+anifl&4#4dnrãU"&y,h(Y[)&Bc5>#HWCIippQPUB9fq-x+8)?lTDlMx0p;DL=KcG+nl+7TMt%OZijRãU"tWr%7PG'1<1N5M-rY+8s#-tmboR-,X-B9QLaBYu27/j&Ye8Q#9R:&Wg$wh,Y>F9ãU"1g++nl?9VD2,Xdqo703]3r>AXcP*1I2]Qk5qsG-2-hH1*Z4&On9M\u29PP&2swuãU"5Q:f-o5.6uN\ga%&T?xW\&?[#'VW+rH*i[0Jdqi*\WW2B0JWr:$kt/4v.2/q)8l#di?m>hMawo\FB#r-p9P.m8Kmq\8LH8GS[xRTn^nHA)3g5)ãU"=7jlE,K%w%FM2)Ij\PWfhR0$BAgZM.S*1Sq#Y+4ãU"i2ca-r*+,As:/xTU=EFzkftq57wU(hYCbMl2VDjJj-42R)M*qsT1^mKH^>Px5aWãU"8+.\1&.I/3RH#k+1tIvLu>t*lE-nDaDhC7%2%&F>DRsK__Ccr;PPTT/2tM%;OOCãU".hUe-v^SWaCufKKT-:KL*)Q;1.B]#smB?.7;)OKDS-DRDW<%4vH'mcXPBkj)\[WãU"6>9f%S9+gHV_jakLtE]#hO3MUUW%l8Lrwcw+yimUjFkhUt.xbTZyDaZ\^P8pMP.ãU"#JYxC/\_+ON)g(G%q-fhf$4g>;;nZ\.(X7PX7x)TG)l?kl1g%pA%-:c$wxl%:\wãU"Sc$VMXn^RT=k&y8y?S*9QcYIFEs9;^1Mdf?Pn<*Djaciqig'dwm[[K+&I1UVQ/SãU"^wJB,&#/mDW9Nk)'8uYMfS88,eUw%Z*vw_FkLowU%nDo4#cPWF,NM6'B)s_XMBIãU"Nq\8&INJI,%14N7u_R#>a\0C*i'vo)*#kRyRBXJ03dB[nwi],4ãU")+1Wdou),tL&67(fmC%pG:1V=B)>&]k=EImo7A[Fr6L*pxP\ePãU"S4JW:'DoCb+82;8bKJcKEL[lBfXaX'iWsI2yBc9*A#xx571uAeXFC'#a>os%i_uãU"5aW9fk^5?#YffX'?NQG#>+liM[kj$:N12AdnWw:ePm[=$0#Mc_=xW4TmK4_h77NãU"l(sZaPXJTua84VR/P_o7Fy*A303G$mHf,-lm=fst.4'-(SDK9:P7uo#+Uqr2##YãU"%e+WkThP)L.5(:D^ZIMh09evs73es9dv=kp5)_^hebFc;S(ca6K2X)auXuZ,mi.ãU"Y0z+Pmp=.6hn;hGY^h0aue']L/l*H$h?=u6m^G[uCS8ZZ,:Yo>LeGUmF**=4AuiãU"Sb4*Fg%gvCUd+FvX&V8#PkgF_/.Vx>r(]M8-/NHl3+&J7y4B$?L%Ltsu16(md;xãU"\I(Fi_%\7j6Ykj,$wZ\W$D1fMgruYWc4,[oXJaCRdWApLSaC0;D:NYa^K_O:q,aãU"FOm/4Y-bqinG\%#(lA5dEEfWBLDe]_aUvBqNR226V66:C%_>0u[S++oT]A]$HnnãU"3&mx8/Ea]D#$Qqf1UB'L#BE$A^C0,0O->$*>0%Q.qX7&g\?[9X1j2-&KEob5]hVãU"QCpG9I7F'+_<3*:$z^3>rZ04L?DK7gu.TFIs6c/VCCr9(HI1F1aQT^C'C-T\^?#ãU"eG/16n6VAz)(*a3wDQ49T)#rCHSS3]T&td+VV<'KKPOO.u#;?l,b2p66tkXJmKjãU"?[:;6[#CjJI^_3TXBf(F*?*6GL=yVJp4wqV4rZ2G^fBr'a%#RH2+\_nR%gZG3umãU"E6\u;#353vlRRdV,W,PLrDi0]gY1yKn.n7*?YYRE+a5Vb'^VNd-=M5)rd.=vho8ãU"Ok2$36E_3c5FgI5),5^RnJMl+x:Km,$hLK%DDOK%B9_7&l9k05pfNZAoãU"[/\Gfsj8=kT-Fge,Y9''HMGL9g/-KMU3<]I&Wir[&<\i#9%$/%.cYmUT5_I]8teãU"'3\W6\e+DAI.f+Biv$p_RGTXO]uRK=4NATB3pf.?zO&'<6D?O-\>a:?dF,&u.?GãU"7g]-vcOO73>):);[N=r?#Yi?g'^$,tdc?]nN(2Y-bi/1BMehhh#iP7M,cX;F;/:ãU"ts]t3HV)%9\Iolx#A+th%RMEd_5ld-\dkw;A'7$j[&K$4G8F1(eUqRAT],li;:_ãU"to/)aHl#=?(W?4cu\PD1zJL#9NM'18pcNbjNvhJs7[$:YK$1v%L9rK2v#8+*rVfãU"_>ic:V3=L+Kt^Z?f?-Ch7#hU)7/38o5(=N89-&jfwO,HGSf:o_%_dnHw#Af0aeuãU"p\?:DSkm#XK&?Fp1yt3E6N,R%pT0#Z^5$U.M#S3*L6x=SgEq2z(V7r;&McB)+#6ãU"[e[_1]$R[d&QI=&1)R6A:fS-fu7qQTZ[8dqScWmO^*x5wfN0M)(LG,*UWpc'(EUãU"7$e'EEQhsvBJ+]Y$CpDfHV#%^P0e,y=#,kODC#AyKuCv#F]/>?0'?M8+p/Sw(-&ãU"lK,O,Wods]Imdi[5,/YjG#Vs)ErYLUTXUqUfHb&/8-u::F]:BRU2pEIU5>Ge^x_ãU"XWXFMYD/bu+ZJ,C]MBE0=P9[9l^Q/i5A=ExL$wSz_KdyR2;2RGECU4((cd6;QbAãU"[LeGrr%Gn1]i18*hu+eyv(EZkG]3R_rNm\=q/t6?RnYjdH%(t\IO)J-OkR\-SLwãU"70[*,P>,b,[7+5W$DdK_RLeAU6=rE#&LEDOrzgRm0:&;C*]:Hu1:8D6=iCJouPSãU"0qfH-sen%ACqpMnCHof)R9$E-^NQTdsBc25PFMbbCxMygQpn]qICD_nazR$HRwoke0PBC]I->3rUrfr\*<0pI-ãU"8Sl-4Q'e-s&RVc=c9xc\QuZZ3:ZL3:uWiHVnQ;P7N+Z.qD-S?44Zn[8oCo?CL.GãU"=LPretgfARbCo'Q3=MXW2C06#2fTknuZ+HIbASJ,sfY.')^14a.1tS:*-6';k>6ãU"h#*[r9&zlp&zF,u.4k3n4+:^S.puw<+1c[RjpVsHMUR6R86m-f=(ONNYMGF0L-BãU"lGjN3G,%x9Zw=/-?Y.KvhA2HesNBRQ(-22jZT)$KYmn(]3mdRM8RIl2maPwac'p_0==4LãU"?LCP1bM[e8i8Wn?0::wa?;MLB>E,G7rEN]3W\jA]'*IAA+F6[MãU"/d432q=MCoOD6mehRto.oK(:b1$#1fjUVdm3B.9ftX'jp8d-qbY:PqsSHjf2QijãU"RGUb8mn_JX0H1l]K_kq=9*FX:(r::'\#/[';:,x%Ve?L9+Sk0%=Bs2^klo8LVPeãU"8=%kj#\%YUwjeFnIFt<3J-d)G^k5,=Ob/s8(iUHS7dT+N+BA.*FGGQF67E3DTaOãU"8;xAOEah;C_j,jMQwJ-RZv)E5)9Q7R78hk(31+d65yt-5aEj:j;BeKww2S0g82kãEND SUBãSUB V3ãU"I&rVA,]A24odc?_/'5d*rZq#JXitG:(#vV&t__P+.P$/MJEL5w[0BXE7+WwehA3ãU",u:Vv<52$?1y31JYP(_Vk2HjãU"Jfg/#=U]5^Hvm>N]+?vlLLQãU"XV(i/%IQ,E<9r:h;5l\6RfAVV,?80h=Ql4Xw8PIMLseh.7?WSW33HtLkaQi)9I8ãU"%xD3M1o4rV8u$-Y3U4\+C#,lVUB$_J&Wst%s9/T;+:noIWuAIc;htqR9*;_QkhHãU"+.a*,IRbW(+L\lXDWRtP*uPn3Jw)RNa3T:/E/StrX[)L0&j:E]ex,t&+d^5t3>#ãU"#1Ymbif/tuR#Ml8nh&o7a81*'F[o/ntD+^R>+/#mf;Cn0gJa970;V.Yrh_bE#g^ãU"d3,C^#BM;GEF$FDgJbMYZ5LTs>]ãU":(iTr^\F1[_tcRqA(S^DISL9/fcm<2sdtDl[IcãU"3a7,RmI%CAW=SM9CaMnD88\;RY5M3EFpQ'85cj*ir2Hti6WOpais3icCtRWnSX$7JItIiTãU"qL4kL\*^\KSkT;ii;&I=$*a-s^F,US:3r]e\ZK#vs2f9YM8j>Ybcm)R4nCDv%0'ãU"1M$Xdf.u9J=3=1N;$A;qA(-D)o>B8mWMGsh56Q^sV%?=t6Ir4,OWL]SqgdvV&7OãU"+T'_f:HGqsSjO>/>[I*4$,taM2V4&G;&iGPp1O_F],_K$R^yaF:Ck#I1$:5&#J&ãU"-kpCGntYSCDC\a][.)ekqYgO5]uV_vB'Y)C==$%^yM7X_BCrO3\g+W]3i2c]xY*ãU"3c8$^I7y,7ShEX<'X^X>#e#bvkWun92.gh)Fz:q:6p\;\g1>Z8+xS_>ioMyugc)ãU"4\Sk8Z;Z_F0>Pv7IB$6>*qq(vDLO,ruP5p:wv87mjGft?v^&V5tt.7cwd^^Nf)jãU"fjre9Owh:[lQ1^N\^;5#kK2K>b>e9Sk)[;+6eMs1kY$_L(?UJ8b%G2fq-4+4.LfãU"NJcSrMDCkZ_.MK/7,_kAk0nzgjP;%UeXi7x)t'O532flP5ChE&l8'7CVE5jQs1yãU"yJ^^$a_O2.A8\X.jrqWZ_+];Yj44P.6LGO,S>HZ20hoZ2d=6HGKw2,WCyN2$#\oãU"<58B8nK)Lvb4n&7A%T(lu:iO/cP;#*';p&m]#p3wBbp5tD(i^^r7n-hS$;S.I:ga2n\MqV1nxev+0Qo6(Q__56=^Jr:1?TzsZT97bn]3a8%j^pãU"/GnQjt2-)S\l&_$m#8/sA%z>mTBTH2r)][rEWdYn2nWx*7Ss%b0.l2\mfU(I<+zãU"w+eS-Y3A'+=1IY)YV3n=_b?gSj'jYab//.v\=Q6>9KU(5SAX.UF%_ZZ_$S8I0_UãU"erX^,4ii#\mag=GuQ5G:rS3h.kc2')k0cf8kORv(8LyoZN2uez'uM_lr^Q8CkNvãU"C4*h%+[U$bC?e7_8I1m,rrTjw-x-whw*LCVTãU"a%Q]JjN,c6$b85u_uK[rpSNU%q:^Oo)Du0UãU"bCMsOAEY;z^f(YKkJ=o0.]w:>.8V+;;QZUTZ?(;_F9\4o_Bi4ul%[]pj*&r%44.ãU"*V4NGq1bxBMVpy3aAHi;Kv]Q/G>/=Rq?l>77^KuDP&V>D1Z/+X\t#S'cfjd.VCfãU"Duw=s?NFNO>MrCUIt<*_=cd.LF\bV6bApU2\kjQJUWQLLi*G4-x:+WhVdOWZ$l6ãU"J1\a>CpBG7FGKGQ=axDUc#HL%q/%OUG1B9aNu6YpJ^v#h*I__Q/N*\l=[X[$/'SãU"Hlcn-X;'iUU',LBtS8Lb$pG)71e;:SVeXv6++ZkEJ_)OcL4x\q$wuXJLmr9e3/sãU"&HO$-e+&_E>=uaTgfFPBE5q8=7k*mOPysRH73>Hl^taE?h'$>D_sog)]c'YT:\2ãU"Y\/kT.=T1b=*^+(qZ2FY\A[1pRKr>U8GlZCLZ_YP4thi5y0eh%UBRu>[Kflln$aãU"'0wsyg2:pX?G=NwkbN?ju2sCkB,tV1xBduhpBR>IZGZ^VBNIVA$OOQ=Yt:TbkrPw;7HrkD%d0Hf*Zqswd46X1,I:?;BãU"kVA?j]2xmEhY:\fu)r0A4$nP*LAEY#\z:)ht9#C$Pyc4TWOZCaq1F.hTckLzAu#ãU"Z;;2j80fOnf319&,-7Oc<4Ydm%sJ01r6#Rb8w8h3CCmS[0^B'YEm(-Q_i4ãU"ob$e)4D5T]B[VdhsnS#d3G'7WKE3LQStkZZS-.lN7hi44,0DvNx\Z#6vtr\\:hHãU"=2pe1Q7g-KNh/TRa#90aQt+f[BYqkGv%=7r^,9*]A376e5gPSo7EWc$YF_%&7(\ãU"-nxZ.-<$1\?C-ia\,bkAvc;P];Scoac,/=g$jZd]ekIA2ZwFOhfdjQ.ãU"3(piB$(ACVl2r^pXZwvZl2+Je3ekSUãU"nq-ivEN)ZeD\4L<6^ecq,=>1LJ&\S:ic2YX9f?hsn\c+qO?ãU"Q0xsBQEoGB*vnTb'VD?va1>?9>pFfO5aWd0KuUfa?VnsZ$5jV3G$$%JyejMT+ãU"huAKAYr#D4+?%Vj[A%egjd-eL?DI&Wg5=&JDlvOV<]rZM*x=V\Ce-0AnL_GtZ]nãU")02&#nKk:Hab*H>hLQn9+lAAuVQd+I9%h0e$f+NCmpYHCg$)\kRa,r&SMuW4M_,ãU":*5*t#9X$ttL-u+nB/qRp3Esp-un.-ãU"[bkggo.mbk+:;=csZ=G_pFO$BgkH3[>?[=Fse?nLi4fL]mNT4Qf\jNui7Jp]Z%u>R[D>]Y)o9u1.>brWgY$_wsrRm7-VCsdãU"'Y>8l8X$=SNTa9SaMa8)sBj6?D#c;UU)>[>>?ZE\t[qX]na*Z>hH<5:0i(7cK/jãU"%\'LjN)3#SDeqãU"Q5.m7X>,Etj8j$f0ho*]J4?SfujTjbPOYTqZ1O58;11G6Yp6VgkC)mjuhaa#LvgãU"95V9OlH5Z+d;thLiS7H?<8kaP$EFD=6856k1#WYX,j_ZdtT0tuNZL[EUV/Xi1'WORd5f)85W&ãU"g.dhDT;;Dew.5k$T#5Eg1]C\7[V*(.%xg3,a^/S?Yp*uWhh#InV9v*&?-6YJ0uHãU"TDZap)',]rx?s8KL=4%f0v9j/_QB]S7C8sP(/L5%37sm.Z[eq?mCR3MJk3k^wV/RX8iSh_Ic;6(50Q5mj\A^P_A1GL?b#e9e#vtfQtBVeQ_a9QGpãU"WHR:&TYO/.rzsdg?B+I_v4AkS,Ive'#,[omuPGNB+FodrICgU3U+G(*vjCt&>D<ãU"??TTTCbf%YDstv\\2m#ELHGHHji$)MLiTFz2[^D%t8K5B8NA3fdeH-?q8?,/HjcãU"2nY$5LcDS5-lA2aPf9VT'Ss+J/;8ZfQ*A;P]l'Fc=lb($qDI_NywACl+MxDXX./ãU"3QlWw>uj,H_OhDld%sQ*:551a.ENkfew%g_()ELUtl7S(\+\aGkohNPPr7xM.(9>-=(&%/_BMB%<2'oB#GHwYg_z#:UãU"fXgq.;KhPQGl>.sg)[Z'cO$82o:#RkY5+GI81jLgYDL2ZcsbBG?)4eg(84Ioga4ãU"Fu%xb&nL[>hg0^)$D&W-t#jk_S5A(5IgSi:mugnm00N3ãU"lG0YP93b9Q:[J[.$Z?iXeG4n#SZwBz]][s6c*)^0[/W5]OS>&,RXV8eco,Y[ãU"kSq[VR8I(4h%E;nL-Kr+6>lU)(K.ku3t%6$b8bxpn3N%r##5q&cF%pc>.W5^eT;ãU";g:43spsooS/_zeDN^ack[\f:Z,>M97F$XAV#WT+^%Y[wZkBT1^JOfiS9(Ur'1<ãU"xR+m%.+Ea5J*-ahKZ':Sz&Vc8RdDlCIb?HoDTB$rjQFZOtZ><1J?Fp1%tGr\WItãU"A\U4GPI/HP$_FAGVAKd6TX$1,2L(vEiFE\bu-\YhAR;(v^KmLco$zãU"&C0hIA#8%:f3;WXSqmhQ\>&?f#I%2e&[JPrS9gIrRt.90.T1?ID8t$H$'%jF?30ãU"m4Wc-4jEr.f_S/Jqc6tk_x]wN#V\q&.k_StMVik[wN#2#v&;;pE5sthC+'i:<;uãU"[)kT$+c8PaveAh5;JSQBEQbdjcG3sAft,iRX>u/*mf\\Ld<:JBlDMy'=Ivn/NYOãU"k1Tj>^?2$E8Bw8aB[m=twdi)^oa81RqA[V&)MH+kTbT9$Xc;;.^;+VS=].3nJ:,ãU"1YE'1&fu7MtZ*Kt(d34E?]E&w)yY\F1RNL9ZZb&_HY)50SLgsIW;FS'>kef'uFOãU"lD>S1aI&p+&S4.2K1q0#$YHH>UM.9^\i0Nu)s\SDSkfQ==nUtgc>>l/eo9OrH[Q)'/J&S)_S5ãU"NId'pJ)Qnubq(E\.'or=ZA2MT.BsV*c>OXeGZ_G-*kLYOs^QS6_a)Z/a:\qm#F6s.U&Z+gj0IldmTãU"C*%PI]$rJ)hKE46(klTdd7Z?8WzEB5rnv38X6.=iR37Q)l\HbuQ;>c/0I&Jb2HIãU"Z7OoXa'W]=rof/RaMky#dbM6L_?_QC$u)P\nQq$6>>7pY*G63.u1=SUsu9ãU"^TS^GI5K0QAaS&h=7,+Y'mcDoOx;fs8BC)IG'9(E-;6%Tg'a:qLDr**#8';11VW+[O6FQ##vcãU"w-1x+vyaWFK(;.>_I_&>m&_%yL^1frs,15PWv76g*U?qEaAddQS=%oM#t_>Za'.p(,L(/msrk>>1u9_CuDa&r\kZ^ãU"FhU2g1jpFI/Er6QT1C:0y&)/93['tCa7nkfr,'hiuYl&TIR4n'zPcOaPAmGF2=pãU"?3_#xnWM+VUy\f*eS7n2#63V$RT;-n&ghh/[noA1:2^uU0MP?o*V^v>ãU"R<]n%iJ[GRHi20quTZ'Dl9[jVv%Vdu%KV-ArGBJuE&2Es:FOãU"Lysto)(br':W*\lon0JM\kf_5R<;;*5kX(FLCx+I>BYh<,e$Iq<\m9?;%SD2(3lãU"L^XXBJ+>gZG#&aw&h9WaLMbJMudO&.f/pN8%)%R6OCK\>XIX^bRIP[,a.(PjBT%ãU"deF&qALs-Htwl+/E^0>0k=Df_0Tl;q7(7,L#jQ650_aJg>$\FIuh$:5Yf,%uf:)ãU"x(B;+4xK..;sHg-)#x5$#wI>8_8\eJ=9nz\5m;cE%_>$HrGW^;2>(LTGk:7IQyqãU"K2:Unl/kgBV\TT)BCFM&ZS$Voz5>F8Eo(Gol,e^j('9i'',V3]S]jWU)E$p;)9>ãU"2RU#d'i[c$p&YhtL0W'7FE7VVa7p'ru27er%>ZTH\plVm-#>P-8MIlxw.OIkl.[ãU";U$h2A6\[wN]ss4ioU:7)4^jb)(+S>6sGy]h?N+ZVFpO^OpM\v=EBRQ(B21MOlkãU"_TcvVv'qK)OBlrm#iJlpk;I1mr4DNw>xi_aMquIN;5]2^Kh/r>;(jFB\S%hYGtjãU"W/oiP0'3ZJM.,xz=-[(ZDXa8w5?rd^\t>wWotCfbaWIZJpBek4WGV8(m#&Gs-LcãU"C\v9;E^A:B4KC8qaW^RPod^ABw<9l;.EDN>uV2GMP1u2^0-g(yRUS0mOp::x;I,ãU"udj1*/1LWh6OG+y3jB+Ap>J#QI;,1RCq/pE[Z>nG+p#.0K+D9d_]uDdHxfJiDkgãU"gkqIB6&ufYC&qv&o>F:UDIGVra-%8U4%qAA9pg3#m2t3rc/itv/fuxvlSA^hhrWãU"IjrKO-at7p$pP$kp^GS5zlmy.4y/mEPV)2T[N8ziYJ17KUaCp0wrZ=2_:Qr\hDDãU"hlbR_I[Q82>%gUOVb7k2:.4.6,$cF4qk4%k$'aT6)5ruqX0[6B0^UBF*KDF33(WãU"q=BW^[e[tPBmlDf1ikfSG-=rkNlF_YnjX.:\>o^b4zXHS:MrFhqjhrkAuYXV(W,ãU"dKUQFj$qG7$'FU>YHSTp*vvtTD,Ioz?,(WH8DOM6SQQHGd>5CFK;=?0NLZy81Dm>T-B;WxWY0.EuOfJTW-Qq[OjuJ;77ãU"wGnP9vJFJ*NSg48qj:*Iy]rqEwiV$4iQoEejl.At2?)/_SbsI[-QM/jYof>T\F3ãU"k=uI4'1H9A9cFc=^]rHIEl$X4k;<4,735(925ãU":/e8WGFSf66wS)#Mx6kZN%&QRC^NSgP&GYS&SSj]rAWT:fA#)HHCC+s2I=cClh^3c?^MiãU"bU[+W=OZ49i%n\O30tSNLVwSFN\k1YãU"W4A^T2g3_3U#UCA#DWCr'3bF'7-/KR=#Xd.hfWjM&Re&5n9bEgCh,V\>&*75>hxãU"O'S*Zo5etscR)vI)eLu;t3bTDQ3quWXnljL##9o[ScPW;PTgDuau7'AwaidM5$*ãU"#J[i''p-FZps^Pb<;PYQkWmr_o;i5VJ,j+Se)YFsiO5[UeNjjOdX>J7_/p<(G*rãU"'K_XS;4-Q0(O/_jpNe/0.feh-Fa=SdXR#WBjepFhUbVHDWpm\Hl%#sELWN05cuVãU"io-XebV8&IMpm[OG^)s$*s6o[#f[R)1tEn'6CP7GR*eLm'Na>,0.uKm:#2(7nãU"2#1zViC$Cqjwf6c(FDS%,E%mãU"(8Vj?u)-lL$v]ik&3m#t:ZFku7)we);>]hg,T8UG,RvMhH2pMREAs;o_.w$ZnAWWt^RMhQ5T*LãU"'(nEJF4ee$,$l^sNe?8au+hvHPVrjmP446psI(M5AL[I18:=N-ctuF[=J%X]UE8ãU";G:)Cd+$(/C6]T:B[rL%6#)7%DmITjhhf_cxr:H#>)-P*TNK,\OUãU"fR6Bf:00k.YG^KCo;1Z:FDSD9?&8Ok%av1kp_0hk()[15\Vd0g,[W-?qsQrF=(oãU"sg,CF+tZ1DB/4qj-&;k6lsoW[JAd*gtm*+?]siFe,rn&3fd;U'H*louJt,-_Bb=ãU"5FQv2LkCW;$a(Ga>pLg5p#[r-(74zMM3ci2ZH\q3Mcc/%SS0dkh)>SeVRf(ZEsCãU"]s%.)V;$E:#CV[p[uFKfVeUtbSiTr^FVdlv3.MAhTLy\NãU"$2\kti8M+?(px;wj8eCM($>J5IQfjeq9RlS0OCm-^,GP*(RXE6g=iXWkj:#EhH9ãU"9&1BpcMQodYQ6*Yz=H+A/\cNG]:yQ:cRRsc5.$ibTwoLs,cu$LVo$YLqZNQ5#=R.TCh3Dq:YGfmmUfZNfIrãU"$;)6S^QI7%#?9SeJ8EhP$erkCG(rgM:*'x1j7D_n%_X]:d)iof0#'(NB<=.6U.(ãU"m]bbBWCe:J,kg'NjC%%4=q2_^3F+ApmK-n-nn'P35rpo[nntht8hv/e*,rEmMB%ãU"mj2IUl9Pu3u9nAfm7e3K_ZsGA7^&Q[ttWGL8k.3CbQhQOL:t.eH1\/xd8r)H&cuãU"j*WdDB<7$k19YaFUNRt/:LW'1lo%G%bKj1/K5'6_vJ#=YBA/VUs9;W9Z<%Uj[x'ãU"F,Kt<2AP.N=q&:,8=f^4=e4DequubN.h9?YB6gZZJZbDeEJ1Lf+gQ41P$(v^cTPãU"[iaAiV=.#%w,f0+%Y#&Bm1u^O9lk-1A09O3'54Jj-5oãU"%qDJ(pb5ãU"A]h)IK9sljSS)j3z6t3He8gDh#dd%kQ22Ezbpa\M6YF9$i89Wqf+^\,zoa.fhRAãU"vqN_g6\4tEllGkV0gjK5g0'FKg1ls?3P-U0T-E;;g':P0-eGZu#Br#w,>Qple\oãU"WG3++9/hPiZ9&khY'#MGB=)g&[6=.b9u/LA[Y%5Mr&,BqnãU"QTY.9G.Jm0yfPqUlW109FlJ_K>46sp'MIw93$V?]qnDãU"wGy[w7\X:.R782=1;8ap3bB6drUD8_FaLM)33hF1+QKN'\:hT;Wb5-E6^UK2c3iãU"^-Wh?gZK)^QdV=+r<9R(qBL8z9[KY*I'_dx>WlO\$&>NGR\G^wY[HA5N$Il:g&LãEND SUBãSUB V4ãU"6cuAs$9?zUR\&2frgZgt05izBjyM\U6^>P)I>.rB1e%25dG.?ip,O\cp.Hw3l59ãU"WA$KKP6](EP'[4/r*\NVp:+,$u3k0e\g(rf7F0o]J1\LD]&sA*A&[R'Tau9pWZ/ãU"$$KK2%x&)]&%4cNB,c(P09/#$..a3mhFfddF(3mGtãU":eYjTXMHZ333H\l%Z444r_.F3vS-GQg&onnd-x.[cB*l-uSYIN)V>9%FxCE.D9iB;U)5colãU"&7'5BEAF=Uf-IgUh]Zg=1qemv[F$7)j;lxC_CkocPfs]s^u^ssa0LpBtg_.piYEãU"-ieF)MoaY4pg(V:1jX3em\Q1KvEwoWf=0zQG0g7LZDw])gJM(3:#l6ii*N^V0?&ãU"G5m$5DJ$$86ãU"UgRi0&-p/*2<]nH1v1)_uPCk4raX4>qnd0+xb48XWen5VJg1m,SH$::8BHXA4[$ãU"j_Ec(5y1?a:i#+BcM1,8N<3[UsJOWYPdM2p[YrSj6<\Y*2E4&x=KquaZxOYlKq^ãU"%.UwLWmHidGZNKLS.mC+G3)syes1jummkDv,h5oo>F.RWi]-E3Cj%544:&'y3y]ãU"V<33Gl1bF9xEuSp'QthRX1l^OLZ#qBuNFNOjw#;W%5-R,UW)/dcV$a?XJD5=s^kãU"BS-I;i.dwmvFe&O\ADZRfPzqWKFS+^.Zmekzo*AEYOH&]Sky;x>c[NMlP3U?;#oãU"WAdV'uPv51DJILdvW&\d^+T55&JrT(#K7S-;E;;bQq_iwowCk^ZGQ^7[hioYt/:_o/f0&0nGgJPw'V)vwpSeJ8ãU";h^'MSM.g,5rCC)9Ddkyl=\5sDDD,O)0L.T(;x<,t/gE5ZJw(h1tx3OãU"Fk<'W(cMHO34[TT1j0GK#h-Le*N4b)g#+Ef'YLXm.<&SkFJuoWC3-93=Hjf1p3GãU"5YK9xbk.i[[m^:$[rnkB^a>T%d-#,,tbLHB:%RGWW01KE5r31Tol1xg#k($kim.ãU"5X*jz-=4*K*P1aD&&B\9]tt(i^ZIPPxeGEjLk*ln8tGdãU"C%bTaCsyyW,?:dw;;C]EE\79,kpp%$)%KKVAN&ZO:O'gqZAiZ0#rKC2'*JHZ2YOãU"Y[pqJQ]bi_?RiV;-Vp\j4R/+z,Q41*$SgC,H-4Oq[&2A)Da3BC0.#9mnd<_NY\cg=(W(xKET4d;oA:j:_ãU"e2WzVH:g2aOdATWC8RaeD>Bt\s5O._1Z<5fi[&pwJ4f7m5QU+-PjcA[<\*WC6jfãU"B$7a2op]DPbGoLyiM;9jtrp8Psg5?+bj%[e5M1>TPãU"4>WQfcE^/%?^8uqTPD8SU;>KLz8y)ES1SA'+)*/_2q^Q\ERx]L4n#]R/lGbB\.A4dhFz$Q);TfT8Ql+^[#3vC7E6?2GLkdp2b^mlEJIzp_R+)$hoiC:zu48+z17h[/ãU"2Pr2j^$uVA5WRqk]HHcw^lN&=(-mfU?ac0:wmrYm_P/&&a9eGu#mn$;8;IL/#8uãU"oJQFNpr8>Y<<.6^#Ut(3Nq[5V1/8feg)uqp:J>^o;ejrbL,^KFJ.Cf#xC):1n,^gG,=WOdfpGY:ugc+[)]tdE1B6jL?ãU"2$nRjv]?X4AJ3]\plwj.Z_Lrbw&-JYAsg#2n#C.1H4?s?PH)),7,s/(PK0p09]^ãU"Y1I+)Ono.'_M$uSCpAoOKC9a[O&DI:_-9j4)sn)%YQ3#(wF1jKl1eW-\V%\Yv5XãU"Gp#,;>$EjMN1WTQ[+gF))bcs,l+2#K(t<(mmNkR&Z*MxQ(GbU]M?>sV0P;z0j*hãU"&\39NtF4y%b01nZ5+eeer8;zt%lef3k:*U'2CTLL;,$iK41R?1iwTpbtGk='\kpãU"#C$TI;).M869eOHTT&\n6g'7kdVqjXhM5&%es):3PO\5cdQJwGoRC53osg.3/(vãU"d3A)j8IMkA1:kQ&8t?4Cibz9l+;iG7-Gm37*E+.;KxxLl\ãU".U0ZYc=E=A#*'E=4%dC_:H\?T(kUX=sjd.i*R.:X,:J\Rv?foTgRA+Qm=CCfhr0h>/9.=HevLlA;S^Y0x9OoTZ*fukz91whg#ãU"KTtIqic6mdE35YFLR*P,Q;f8R'O(*1Z>B>fz%;Uh+x'4?jt-#Ee:_]zMCr7W[fhãU"HTuLb\\.3jm=8-E0vd]e^IX;p.,mqz,R0>\9wN6IYF5H3lVY<,ZVZUVF5px*5q-Mh8&eWH*%N*S=t%Q7=jãU"bTeVc^9qPl2a\7Qb#-HAEn3-JPr*;6Sxcq_B[QmHFr9TYr1-6mr%GxI\qol5-X_ãU"kg/o_:xB0rRwl5H+?>qTP)>If/3^*U_URU37ou^.*0NPzF:tGSqTQMIDL1'c-QSãU"Rq-ne*q$j;S$4r.#HEyFEee,4AonyR^u8-6t%RAQE3kQ\J\%FTS+p+2V>AoXZ.>ãU"#mdzm&X6rA$n,OVH.[NAe%O5I=;0&)[;rqU/-e]MgIt/X]kPI7)LXngs&Xj(:*LãU"F.O89F_LJlgto#(jVg0>HMLHRN\d=v>irqlmL,0Y\2moH?kNG6n>0,Ps&Q$U*P6ãU"MIJzJ461vIceWCkV\ZUD?->(2/wU+7X2RAc3[GZEBh2^=1NM$(a*M/JT'Va\*TDãU"ga&Xw:+pjnWh=[Z]rVF5hKEPbj=Ki'i)u2XM1^xZtvfkJd/KQ7l^-g]>%oif\Z9ãU"OIBZE)Z5L4W&CU2brwu.)-omK5x/a8pxS]p;p17$6yWdY:bN$A<9%Q.x*0*Q()dãU"L,$Xv+,-/MqZ8^Ykr;v6B-S\jJ-:o,LMg3<*u(B&'$j*e1dPn;3]t5/MM/0fQ(AãU";(/LxYAx*,ZX-H#D=.M5AgU)V]B94O3dgPnsqHGNcOxCr<5[g;LK1N1O\9k5WZ>ãU"nZ<##hm#x[FPC)Z/JeX&SI%&GJ(c-7h&YRCKlwxR8x)53YA#(/H:S=a_t2vNmKoãU"9PNZ7#tFE^[ib)>zm+[noW^ZQG.L*GipGeJS**nVZqD:_'3WB$PJP9b3]dNn$)<ãU"s[D/PmnB)J<$\Pr3J4VkI6*8uJ%PdiBi3F2p;]YjJSu*35\>#-3dy'BmY4S2YHWãU"KUR9TgjFVl'(kkHn]69$U0hD2XR;T;qGMUTv%zxtRLvzYC*m;OQ0RCuOfk/aF[r+/8,WPD;sDnMqKv.7tvmMewx>J*ITxe&w4uMo=NãU"(>UX]*rSVI4#VZj.&cgpj+I_baVsKcfd6L%sZcv4CvSz>A0k.)+woWcDpK^C]ZEãU"d'O5$:iBQZw*(>e^Oc8'KOQ8=L)8d)-=>0KBf0t9#D8T]HTãU"6[-wjV;Q3U9LgviVD:tQVYR]R>b#(Ytu8C0?MFEq1p/M0R6TV/_&%G14PD;g+jZãU"4.5p+J0nh]9J;Y(oRJ0avk;vr5mEv<8sL^s/eB8quf)I/NLQxrK&4+GgFj,>,:BãU"?'lHZ\58aNK$\Q,W6VM603XV)XQMP12.^3);'JCss6H'l(px9.RãU"9q2./$jWJC)'pEUg/TeZ+U0KpJsg$wNJt,A)CtpTUDI^f=jcp4#j'H(V)'*g7[;ãU"(:vvG;EF9#C*Kj.IbY,T$$aEX1TCfCY07CeLepsXbN2'u\DrdDy+8s$Wvuu8ãU"\^*G-Jr%Jy&]D4>SjyVo6C3Q&Cw6,j*T?G<)rz&yZNPl%g.UqO\aqdCN]1N3nCUãU">SCra5M)ãU"RSguuY%.:1UxAiR%[qI_aW_FW,$ZinoR').r(3hupjn+.G#c/=e*hei_%RãU"\Y?pIDKV_]^=b_t>agF3cb_m+'?*FqJjMPGSYeUT4RjG5[#rrva&ZrOJQL]xD\wãU";q_qg>]3q=fjn)K\x-np)Xd6ejTtetLTph3lD2Sd+P=1P.+wXr)ryP#X(CkU1KeãU"?jL-31lai-rbYh+F\7_OD[Yhs^D.6k\Cf)Xhhfo_;rP>5((PBa_z\qG\4;s7$cH#G(ãU"JMM&(Lumawvaz/AT&j$B$tAWrv1,D4$D,]Bt%z,3CLa+lbYj.LDkGt]uU4^7.Q5ãU"xR,S>9gIu$YwCu<2ToZwwA$Ob8zIN8u5V6\9]\ZoeQ(Q.TL7u0L.&u9gsvO,T<>ãU"q4>DSohcYQrvEZg>ys34o/<54&Btns-WhB*X:NnNrU5XwV=4Nm5Lt]CX^5tFazoãU"BTill>764xoHud&+XXDARm>DiI,i4E&SN+;JkQ>g1F*N$4ArTEh(=^eQz,']SR$ãU"T.x1i\Fd^ftAH8uTw_wGYCHHuTp6bPC3EdE3zcC?g%UxYA)o?Fzg#tRDAv/=trZãU"b;]q%\);t,3q34Tclcw?1ukV0,uXCDTY5XjU,B4P$4T#hxf1P>P+sp,l>]MgQgcãU"+%5QHfy?:9%gPqN>Xw]B+,0dpoA0k>HNDe(z&hXO'Qmi.B*wGP;\Fm<;ãU"fBhJz9#ss$gVm:sTolVTF_Q6*6*UfM^PDyFoNQ$;6EQ-G(+YC-oRta0DWhI6f,WãU"i/NpL?vB.hVohbtg,vVV<]f>s;gQji/ãU"BVfQ&c2Dp$EeDNBL2JZGGCFqz,^h7_B^$W/fP%cPMCtr,4/<ãU"qfdw76eVr:alcE,dGlXdQ9wqFFOoDwQSj]2>6bZdMK'*AiYRLhXzN7NS3l':DFpãU"PJtJO*Suc0+X;Iv]bk&ZmvQh6NsWow4sVq1XJ4$+F;>d2XSf&RI4_K&nrfGw&'PãU"rKe:YB]gEu8\SwiOjJCj3fGdYodVr-T,/0ppywq<#rT0WXD8JN9e:cd>KqZSslb;RNZ]1[C[K4F.14nbYJo=X2TQQfUNmgIffU$U?SwJ8prLK*WNxJAc>#lcZAhYz?ãU"?&7A:6tVm[U;*1#HPZdcNuquu.;f;P&'Jk^Btf)S:*$2qH75Y8SlX=.,TwKx;hZ+A^<6*06h+3S;1Rpe5mAj.HYLwmJt.gs[$k.swZr]BãU"b7MAgsS6D(B$yIbdcs&kE(EXb,F%dB/3nX0o8,iR3J;rP7B<8ãU"fB2V_iePXuqhXr>o7ntkMz&R\qRR::-:?,4/ma8cg,OQ(,x)u%Y-2kwu+,ZBVR/ãU"5M?.77#1<4gfOKXU0$x9SxFM2jAkB&^%+jYNftR(>A1E+]0%3N9/H2uSfY>vmJMãU"nL#HuXvtp^tm_if$dn=5ltfTWXGjqq/0Ze5(JlOk^SJJSO\T_rNH.+N+A55=R8'ãU"3L-**:gD$/Xl]EFp/>AZ6//kNg74ãU"(hdB0J9A&]r+Kbe3KkC'L4x$7/Ua^2A17ey=87gnMq8mZ7=T>(4S^?n]Ktt]RwRãU"SM>Vy.Wp?/b]e3_r[vUwFr[Xi+\i1g40W;]+wg-$%mU9KsfpCaG6HSNZkBvZdLtãU"msV.vwKrxNX8rxfDppT.F3CfS*O87Nh+%l;S\M=C54&4rq5Jp=A+sE2nD'XãU"V4xJNkHQjsYxs,)w(cImTQZ'HcMNm=U>pPfDfjAiW)TãU"oW2[<_vK:]0+;>YUQEW'$EiL9Yhu3K:=AwwZPuu1r9[5rurrG9Ps6F=pSe9A+%eãU"+g]3e&1,i[V&h+LL6I'awQ^yOR2%gT[l5Kl,X6llPFTtM5QI<3P.-b)\]TQ$K[qãU"FB.Kj5=wEL_FBy_F?afca#0:ufKjorlZ%sotRjbS^O7W8TUE4%s2=3G]P>IL5-sãU"k$q?&7#iQ;z&xNNN=Rv]'Zivo6SgTb0lesQg-]czO^stLcI(bZ.dhh.2IuL_N#8_88c(W(33F.Sk^?h%Vmo4[7)Crb*EcQE3yra.S$P4aKãU"JN/gS^]=wqAGBV62,ru%Zb+z8:\c=Xwh(9.iZ\7NuaINfVq/BiW6$s^j$A9kpmlãU"ZF,59i#>llL6KrnZT7qgX53Q*+_fm^c3Z%tt&dbxigEZ]]3JmWY,V3Il0w=64_ãU"oW%PSq1\B6JJH'l8bmcWZ9ãU">zY4a(GppygMY*f^dgPG#tT6\^#0kVT)]:Wm:b=v&iEwC0_PTB<1qw7r:'\Un+rãU"BjaeWpKp$Dc]iBfUW2f.K.)Iqb0enfW(7+%5^tDLWUNUKB9D9#6u7Zv2)POrD,aãU"bl5Y*$Pw'5S4iD*+^ZG\KIgJ&g8sdIr*AOX?aNF_:)&vqP+vO,IBZm<(.]onlY*5*WLT'A6ElAj>3\t/gB,ãU"2g[]isig+n%z88%B_7&yKp6KNCmjBTW07Q1Fl4?EIM*$M_e9/v_oe%lG61Xk$?uãU"RLp$fsSuoTAx0<-neCt#r(v8u,0h4dtKr^N4tqgg/Hy.bi-&N)lãU"wg%UT2p<]7ER/&gs;=st0WDrGmul^k76tq(]_96)/Z1OuMTQ4XaN0G*g+DcJ%]dãU"U*>jtI.gLw<'6)j:ri\#\'jyo9;G&KeDg=dbZ-N&*XF8ãU"4*W>e4&-B(a1hKbP5_mt0r6r=f8=uWZCGFaRãU"FQ:JI>OP(T?A%#d<4WMC2w3lrNk,fJ#[:tI###+b\3%tSw3tBF6mm48[(J5Hq34PUS2afc3e#5wGal'pzS$<,'*i5F']:rO-vmwa5mun9Ew-RW,eugW2wdb,zR)*cQQ$2=]H=Yj%rãU"\'o1,7sZct(Mrq0hpBF0UwOn*M&T.Ys'%)ãU"po:49.ck\J7iHT.BBQoy):y17ROFkjmpC*gf]fjnuf=cD'](\mnp^?U,$-/n^%=ãU"q2f&b5kq1%]w-*NMHRJ$;#LBc0zG0kv7USFM>(:k/STBn\tK4h#vl0Vc.[1%1K,ãU"fnJbntQ$p'GCM+ylãU"mj$>tR\#3MTdj'23v)9YWp*J=.6%^E*m*rX'xE/='kqiQ/>5PR?HH[LVu.\%7hPãU"<$fVnIl^*G&6tuQm00I4unOE7L4.m)Cd%#0Ra%H5)xU\9C5atXoWAuT?f2KmV.=ãU"P;;H3a?FQnUFE[$MZ5]mwftPnIutw4hnoc+31VZ7I1q+46b&ãU"2YJ9L^H4Jq8=9T*4+J'Q\^*L2m*+N5HB9q3s[:Ot\?KZna6O[#c>3jbUfQ7vTKxãU"MO3:z:FB94=cj1m);bm+O$L_BHRwM'$;ZãU"Nr4H'22Hp1pjl5,a>0E[hK:pv%6NZt-+3XnV*_I#CRL&iR>&^6n8a#[Zsc$Jl2=ãU"9]SI59,M?TCUoI2C7[p*2Y0daZ4mYfZP1WL)OdETq-*+Y7/e8PL^lpkK22=+0mTãU"qS/CMS=w7P_/H?mYI#e;GbQpWa4s$he-^Catz(9hU$w(\a_:vk[sbZA?4>Xf\9XzRzm^VJRTRnb4nDs)YY2WQ+,?ofl8JoA&EZ;w=,ãU"avNM#6+qmbF^3rhP7aurI6%%bssC[0Cc(g0p,MP1vnZ'$]d2old'h<2l7CS+;-.ãU"e4khA8.]iN['L6Un^HZ/&g[C3)=>Zj.T2#Nji-,g6-)wM?&<1DYh3#R1\1SHVOe=$YL,*_cX)#6R-G?k5k+ekaãU"AyhppSZ-.qeyyMeLLE[b,)+dN/ipy98.#q:2sV.-u87%'GX%sIpgSPWk84,;Q#mãU"7\uT$HiQlT1B&rZKV;[5qZPi'V[eH_,gIjJ9n5QBp7M-*jxE59:sgu9P-^7V$SQ\B(p#[0&y+5B/WE%fWS>FãU"ctNCd\&ZduVlRjyhz*A-mAF)vvllGr7&NB.i5Ks4QUgm:\r&>o^F)M#hk.W>'WTãU"Or]onqcc$n;$:m=HOGfUtl)FmrwsuISy:RWNoj%9.GF#qWZ;Xt/0rl>:e=^QiyEBQ;Ls1\,(.EãU"^3R5e8(vY<=X,W.DE%$nzw\&fs,pAQ(wI$ID3F%15mj_+LG1R0Lpg:ua>VJTJvTãU"Y]TdESkz_DMX2D>L+dQ?BH)\]s(lXj2H;M,2XO%n46HXbM=[Le28Yel\^;_qZo,qBy7ãU"W^SMS>Gjjpa:F2ekP97,O_R9GtpqG+L;Ssb8Uy8?&#oq[mJ?e$FZ,f*u8u]91V^ãU"[q(R&uqN(Q\\q\q'*ei?jHR\Euy3>QLcc0taB:gh=\H/5qM(5U<2B[uKN>8rHHEãU"Lw4Z0U)wY)+)[Q1];D4^IBFAnCGF7*ftpM^01V((d%X_t)kdjWB6HmSL+xfIr&5ãU"BEgW)b[n8d=g8i3?S1NjTBqwQpsYNLnblUG7ADacs&J-s&)3^0x^A\b+\+XV_+-LUSl8AO,S?8\C3SBRA'TAF./ãU"&v1pUm*%opd$GLW\_Dl\ThDLr-TA-w*6=j\(z,Xk#AGG8Fg4'9],I00k2EK52yfãU"^814$<i5)$l)>LDKp_WG_tzt,NN/s$7$ãU"d9dP$lCZNkJkNRsPY?eJwhHd_FOo2zdHYx,185U21lB6_N$0ve-Wnkos5R\Gl5;ãU"%rXdAhRU,-k1n#Y_UvuH((t/KcN,,qC\UNR^^C#ZuP$_U*GwdI0fSE1STp.+m[n'^^dJkd0ãU"j5vc%g7gEFd[p>.?.^L)l/6>OA_Aj6+8M9?2(W[Ir%kHaJAbsn-p2O^\6aSGa]ãU"mXCGCfxPq,oQ^5FENY1Gnh^a>g*J^-ETl#W$1a?T>g*_md9CaLZr'4;&<*0C>B:ãU"7./vI8Z5A]$]ATVDB5j%q4(eW$QS^UH_CKaqiLt-tC-)vP9>wmM8^H>?/z^:+&aãU"[Pu8gU%E#RZW2a(898:6[^^dKhcW)0jju't^/TA8fq=0sm%z)I%oH8As#BG8c4UãU"K;-'-jC/U-)-+7nF+)+/l9$Z3;&/,vQ+lU-I#5ynU6VXjF*_/znr8&6OSF9PTdWãU"O:W_.RDqhTo[d)=>#p:=[>1d,Iu4V;-CQt?P69#pe44peaCeFUW-pLx8/Iq'wVYãU"j*ZIS8*m:;-1B9?QA'r?g*]#fW9On^Jak4R>bOj1o]8FDD8aQAR*35%sAYF)u0#ãU"%b#eo)rS.fpErLU(UdjVX.1]\Y3_ui-\zRgK]wGf27pn3i5P53Q(]37=C9<6%ICãU"qq(%SEu'\-aSq)MIuvIVgO7m)mx'6]Z3DmbDe)tr66VVq6B=9<%RkY$(4zDuCZxãU"[rw?P51[qd;DPkm4w2)W'=eYlitY0nPq)%IA&KewLO)E>[XD^ãU"n%$2w2ph*U[2AEsZWI-^NZiB2l#^zQFZL8a';GC?&6K(0Kw#c.[M1mCO/5sm[>WãU"<%.RuV+ZxjW?,&h^S\n%/csD:hK,N?&-a'j\il^,s?m&IKJv=Q+fSd:RI=qhpZ0ãU":+weof;;+8k8aIP4eo,^m\TGqO/6w;w89Hu3-L%^Fp^oc(A',yyp>4TPnePV3IOãU"SpM^:nq0\c[N7,:%_wVO73BNoq+fC)SiQ3Mkp$bMsnlB-80+A0j.1q%wrUXG4C)EiFãU"5oKU54V^f8jIGIbDZ9FVZu$-GãU"=,9n3EFtw6,v'-'=:f6dsxS.K)%mSfsg1-8&O'WI6JCT\\Y0;3ejeL#e=XlEs7:HHCizE[9pJ%SNãU"rYHiGoJW3.%oNX0KX((H:kZ*.%cR:;?R',4UsP[57'6E39?.s9.,]vdYCt1oeRXãU"3s<\m&THMgtZ^]A5.g+qGVK)-/R//\[h=G4qCn*.tPuLUXTFyk'huY.#ndh)PcEãU"$./N(#)2b:wK/q#_(u>=sHQ;IVhXrA2.Ws_fH=H-1CJPSX'&WX6ãU"aZHSRFmB9V8Wx]4hSjcoo3\*xW/vGGqLK%H;\ãU",\>ONJDd-d6R,eNdnpQM5n_N[)juUGl5EqEQ,<%9c-Z4cfNk-PY-2?^e(s8Yh/AãU"<20Ct+y_Q]S:)_j-NR^#k;lA(+en)1Q^)F89FdanGYX=&'CEQ4*_^rmT+RVlP^:ãU"*+,%,76N7']5p?3/a*KbJS9F*W'6Lis(TSNO81OL4,i+]E7GU3H%kTR-uh8ãU"C=raBCt3+s4W179k5n<)exoqaCB?^DSU6b(j:9F(fhU+Cg8o*gBM9H\5rA0(=KgãU"R>qi=SusbvS588<;Fd9#=.P[DO+1sQL:Mjc_CIB;M3+AR%)j3v#%*MyWekwY)^bãU"t[UPmM.Zfeyrkl?ih>G#l%ZOQml1awQKOGOX^OspQb(gA9U^2XCgUb3NBWc4En_ãU"3cKUk14TpdD-WO;V1ZFiYCKK]mt9USEYFzjYwK;N#N09ohH_BmjpaãU"nN&3e9mfrVbIUe'Uu;zSM$q0$?NK._y^9l#9f#8;#uX)(WG7&&/Jd\P\qf=-x9bãU"cuHvObW[uBW+oJ))e-yaQp/:C,f+<9e+jh1q\fa1bJqn\DS:yãU"GOEsojDmdO+oC[s0*VTaFq-M+<)z;:>0]'YwQ-B>3Ke>A9-*J&0;bEHO6Men<'0SqW.%Q#il=TA?:3sN0fQ&uãU";a(e*1Z&L.>Q^7b8=ILttD.LqE-Q^R+XB)ZX19FQ2iAiRO;?iDN:4W,C?Z,-TMJãU"MFT$iYj5mq<&N.J<1,uskh0OZM'?zZuSNY7NrGkpgOffdnp3[ut=vZ:fVW\g)dnãU"Y\:t#DW-H5'9D[QM(I4;#Z2u6[/[C[zzF_%Q,O])P]<%-oX)(>X0=%\Fep,Nf#/(9?N0?4i\,bPTãU"]j/HaQK.&=AYU.*;zAVJ[f^mGQDkR7?#[###,SfqSvU^f?\%q.86m1.o$.muy]dãU"(UsmrMm5Mxs$)%#53pOV4?%82X8wK[F#>N/,<&<X\9o[]WmEMsL]aQ)NfpJd.5u$#jbwR.JkXnI]0if],Mb$UD'ãU"9aei+2+Z;5ki13_7;9VKiMuPfuk,[0dyMSR8)MS.hVFq'Fw_,Zkk5]KBDsKT>(/ãU"gNoz((RIZ-#/NSrdu,QKSBi;6i%_41+k+X7;lo>d$q(*jzãU"EgBREhEX/18kx]?&/a/s==$$V:?fIj-$MXtN$_2w_u*pJ1)Si)f9i5UI8tTifv(ãU"#_L.D&B7pVO,]mjV*X3hfk?OKWob^:XS\*+$S4nq-v]Qi06k;V/(=2h1tixrbH2ãU".#/pq9HV]^I,B3CsaVA:pjER\i[D%xMj^s/m=YVobu%=G+aRCDx8:05OP%qA5W#ãU"NZr02s[VRd(;D[,EOu;-v*Z+PLT;%TS7#;MZIB2B.),I)*Ju9#]aJ,WtSO6&#j^dY[7-UC1UDu]hC^>a9+i0ãU"Y>li5_YKCKlPbaed7&>?Dd$mUv$juHiv[V09?&G0O5jP9s-AM(^p7\pt*#TQPY0\tsx8GravC'z1Q82w%-Zb1Mi:jIãU"u:sCoKB&*z(x=[fH47m&Z4ib[_k'u0LmãU"[%0Ah^3ff>rM'fo4SIth0q2lUL=0UT%\Z6G24,eA2&.&04W(1/.bv=b:8>MIlmCãU"I-hjet72E0rm7F&YeLczRbC91U3riS7#S\C7?\qNO;^qeWT=Uj.3K_Nt+H[K,]%ãU"T>s,5q%g[F79-b1L]5WPr;4fHR<^2H%###/$6QrbJxLRls\PT=qx.kvYr9K2^#$ãU"SsYYl+Q#k6Uhy;bQs)ClIhFL*Wrv%-%:%f&Wt'82fJVYAfv&V>G*s/s_$d+7?-OãU"BOhH9CuNHjhF[&*%IXiX,hiD$QcrDbZãU"?N10:p'4pdW2TMCknWp,fItTW5wQaxiFZ>Wrus[AUK4JTC,e0XP#xfVD\O)n$D3ãU"Wn]JoEXN,:[%,[sawK=A0A775YG?_%,1w)d:A\jKFMjXpBp12SZmrNMefZpmtioãU"%bAD(Tpb.k?i\Ny#J8\,\]LiKH4b?+d_PF#T,fK%;PJ;uz[^2Onnqg#%,c9w)c+ãU"s-l0??sOp^4ele3U;^7-O\Z(KUap?b[RQO2%Omtg;(?[3O8+c'P3mfF&;kJdo1BãU"5H5?JjXIhqW1xW1b/*kh?>vvQB]B*A_01Z%I:Qfc?3iZ1>-Nv>2S=YlH^Q>b^fyk3C'yIL#nlKR4UVw6H$S'&Lvg):hvXT]XVmLUtO?G4^+dBu:ZãU"Y,7,+im6/Kr3*rTFvA5e)gQ2aPV=QfZj+,]n70;:,[&jT(_UR&&erda+GN+*&ZKãU"715e$b0mI[HkQmDG$rMYM6qKNdCY?q^#Zm?3N/pgOQlK>JZvG)Gg$6[cI($.[/:,Kv]r&>w)1[m692n]*=n[E&OTOdYz%5Z^I:wãU"x2Z:X7E?#v_8j%cl\QtGt,]s.h[t?$O$u6gr/JJN-KjrxvI0oB\?aiwF#&nzLt=ãU"[twm&KUIG9(]#JqgfqfjSj?n;#\#sR<\>V#y2xna#M*>^-rKN0S2JãU"ux.SOn%%e,/^jlsDu3cQ'mfws$ZUT)<[n]DGE(l&]qI)JTaA0BZAWP_Bqb?,E.uãU"QMAg#3IN9FV:4b2E-g[,L$13$a*?qVjpkWQs8)Suk.GIN=&lDqKs59R'3OQHz%PãU":/el-1Sa(,=RhM%,2&U>jAn52I(8%Q1pwJuqr>]ãU"UqsE,P*qP:hp:dKjSim9:3KS1op3jm+73^]]x'4eH^8DJZoeP<&NdI-oPRãU"Vj7;patEPkdNfwYeZA]sdkgA)+eGk#[uc7B74365[r7=2?5g>w#NnB[j:25L'iUãU"3b>Q,KV;'\a_n=+'TD8L2$P7R55152mmYh*=:gxqU-A-9KqIk?GYZd0pETr7)8+ãU"C:[gIi%4NQB^4410tFat8ZhvkZ]DLtvNkQbgP(;rXWv7)$=0&,nfqZgfTu\EX=rãU"EB_d5m=a$Gh#Q=CPR^?(TLTXa[jk=arBLWt]6F6shVU=%f2tZarmwtN>;FZbLL'ãU"dlT*Q=L3)V=voO3kdQvfqUoHHZ^3qo$8Isvp&kEvm-TuSuilTuuSA;*8JXkxX8MãU"\%RDUY&Z$cPO1Bbal2CyM4R\Cu*)Ob/OU2OE+0)<+wA)Q9U[l\3aGz(3l?xwPTaãU"SX,7G^Q*;gWr?&f)3e2=kT].tMO]M[U\WTErDdkaQJe-O64>7h7'cJR>E;f.b<<ãU")Z1$M>?xl]LC._Dn8;eq:Op9^fLANUdN=l,,0U>JR,n/dYFyk5\?MãU"bb?;Dg-8D;Dacar8l<^z?Sa+ud8Ut<^fXstM+dXr/lx4tãU"9H#NclJ:Rg#GKa+>ovA9<_eC$e9l],8&*eWeY^8&\c4)3)H_)u,ZsOLN/nQR\zAãU"uRf3Os+%ftN&9n8#jU[rd-mL6oXh:D-Gi==Y[ZR)b0^aU='tOfN=^1\4rp0C9ILãU"ngWZht6Jux*dk]7tswZkDn>4#+G_[S^>P>dO;Pf19i,VBl:,t')RMhEejYA3F21ãU"_#+W>D]]R'WJ)js]p.<.D1&KFq$.-f$2](sloL>8Qvor^^s,aob^6[T_BYT3t]#ãU"PRMvjMw$OVuL6LLddJBrMyZFhJV?*7V[3m>rIV>6eZdEJr4lHk^*LIJXZGY4_ZL9E00/UdS#KZucJ9S]yP4ãU"52K8?04,oDteFsyYuuqaSc5jx7(ADl=_1RDNX2+9R#B[HrrIvTREa6Jnq:-?o66f\0<88sMi1h?I0j[(yr'0KN^ãU"zCq#J[dQQw_4roek?:zN\%eW5Qf/>vn#ug]u(u90hw#LLt-uq^W6J^UV-nGJ$E*ãU"Jv=i=MUEM=Yu1=+PG_*VhCUyFmQs_jJXR(Z)46Hey4JuZ43knnzuxu$ãU"#5N>ldbNk7PNT9W^0n+F%,]cSGQK3GPX&tOv>417E0Bt.EgToj-b%OJr-LinC=#ãU"3l0^tNzus$x9Dl.slS3gqzN[Ba.j9T.=4ãU"2Swd'[PPH'8lpIt6d\whB;;,?4'dJc=jQ,*kZrbbEãU",I)Ky(DhM6QXC(Pc7N-.C'bo.$3mfGbgsA/phb7$jahldemb^xd[doT8>Krk8m^ãU":O6]dDZ&5(qSD*jlV-\*>e'4'YX,Z[k[hG>b'yfw%?)M$J[vTs_4eOE8*nbMlt^ãU"L,Q3BKv<+NqA[3\&jEd2.HavyoHjC(6ej2CisTt5lH2tK[SL^)h0jQM-8qw+rIqãU"Xp\+1xAGoleO6]$$NZ$PN8I]GT%qf7m$Ijkv(<+&+9SGab4DIsTn$O-DNK$6Ga[ãU")G4#nJlutle,6#+)Xp%#a*(=^7Kj=)&s;1.8cBK4lf&wI=ss2.KiRk?4:0>\/H-ãU"o*Sv'8Up_Xh%Wb+&mmtqfu01wf%GJzxRH$vq$JDLrmr46eNJK$gohbCh]Jx4RE1ãU"PZ79TMx,^Y>&>'$c(wEnVSt0PQoU*:jjaos#1dpOtq:ãU"O;o3Z39I<07(B*dHU*D=jxiUQ1/oAq[bm+d_I];nEãU",Nblhp>Z>5;7d[AZ9YW]'Jl<->UawOn0\:W=0C0^1NN&kSNbw;Qal6PQ9ãU",6tmT.i0WX)HkFF7OiZ(iTSNiYsO+w?:mR9Ce_XU[ZI:p^at+%wiD?QQ1A?a*VSãU"tJulX>-\pLnXGpoh+/3FhT:^Y5W(=PxJbBU$xEWdIfrMtHmFCw^w0mUgãU"?%W%T9'oH.8$g?^$KXnu9Prk.A8;\LTnbQ-LmmMHjkp]]FVCjN<9hOvãU"+44V6=T;P,ltLX4#]')0cwk16/;HT$88f-vu^WCg\5CtPcxqiHWZP%V6C_gsoW+ãU"OpffS-ZD5OF7\w4mIq*:Mk(Ae/#pMCbb4)\Q\+renJaVg-JLM]1f^6V&hac)p8MãU"rhLTZYYPM'yy4WJ28o7AShVic9Ae-t=KkN*O/gNi(\U)vw?uUs=)gx*+HA2%Y-WãU"a>/\Y#hJrht\n_Tn+NAlff*?50wW+V16X3(TS[e5b)U/_FzmLwe+sh1)iF):i9__#.#$k$n?ãU"g>;KKY&raIcR#yY-?q>CuisnS^076m>oB9X_%ERFNYy:8XN8o-mssR\;q^jVeMxãU"Eth)&/kRzH[2GiSpZhRf55hE^tx[YEBvf$MW,gjNMjVPgC5JlJLElLlSPG6F;\:ãU"_(pogPCkcDR%&=bkq=/0j(4](SDlk_U5X0%*U/0f'>b,T$q,<=YC_,ZCIb.jJFwãU"S]=4NY0JX^J#)<[#+6^;-5=D?*QsKIE/-IS:OeAUNF,pJQ=HNAeHucn6)M+AãU";+cuQh\+/>6+Ttq3\bOOJuh3BNCRMnvrLpyJv#[WKtk=;C'5P/hzofmf?-*3Y&^ãU"YYX(-$IvA,*RXWdGVu/VrqQKeCYvau(1tN#U8QKZK;C2wF_GN,]aTM];Q8_O#C.ãU"?sYxt1R&h&R\OWw1PZLbl3I\oQv.ltnCIBbNmp,w*pTbK#FuM18%7<:9iRaB\+(ãU"v.vEA6HOG:FzcD^uWY^21#SENqs>qQgo^W[F#%xY(mjvRmsI-iBbBVGpTWBa2,JãU"e;&rd4*lLo4o;t*ae8s:wlE[3hXJ)luM$5SCaO;q(ftR[wD\hKn^Yr19OYDL>o_ãU"7\_2CEoV3hv_*teAH<.?<E8\#QaiLMãU"PC>,t6G(7Xi7ry;;r6'YiV'/_bvW3^b=j;'i4cB^iaxU/713DYSb&q/hyBuo>IGãU"L2AOd(sh7m5H#9XWKuG(P/^?oFHds#dvqb8RRi_2F4qGekDPn+P1Z5yn)RY/9u/$(1sw86-58ãU"krk1;LPywStkHUcD'#(mWBkH7r>%QCA5;C0J5xCu/DRzftjnKB*;;Bg9j2w4(-hãU"+Z(iW>_==*aT2:u_q%CDRWm%fiji&kJP>GWMCtcA..R^=P#32lBBatv6jA2(D;ZãU"1aa^,&'z[Em=V#=is:w.Wu87LtGVP.h$qVIcTg/'\x_s^#Pyf[]Kxq7_*'k>jI+ãU"gEOa]2e5:kW3sdqyP;?=L6k>XUN;+&W:Py;G2Y^<ALS]JcEO[%Dc,Ug>ke,*/RyYpDlGMPB6ãU"l=dO)O^)ncwsY$o.3uhtJms:P;PGr.YS+&7*jd[bs3T:R/8S)dKC?iDW8cWNg<[ãU"L3i)t6]o*X,7475YnP5+*8',7hxqJG(nG4[[B?GII9aGAk6KQ9]f:Uao1%bGF$_ãU"%;wYs)?,$S5&9=r6G\M:Lxa:DfK8c/mq:NBdc'n)jK$H$ix<$>oF4+HRpK]GBWiãU"U;Ng*k/NuL+Ue]9A[&n\FN0t6BAt'_JC4vT9+T]Lbnb1'wYmz7G'q+(4s<[POy&ãU"+KLgAs/b-FLF>mlJbD+nWZSD4yx%r*]d7(WHCKSNj30v3;Rn(d^+6oEn3ZUNUA/ãU"U]Ube*5PHYsbKjGc2B>gS+:13xYtqc3WD*<\+sEn'rZiomJn;8785F5KilAkL3=ãU"caZhdhdr9(S]Q_;(aFt;V6dH0CcLt+oF_W1)nB6JJkPeU#;0MeBK/hH,)Xrxf*pãU"(0XXrH0>0]RgfbGdX_W:')Z=>#MYEWU*--[fVDp=i9m#PFR&/S,:kX$a6eGx'jkDPEetQYrjX13KgQãU"g#rutX0u.a**6$BD%39-ccG[jQ.Pd#p(j$.-*)8^-[;S1A5dRmA+f7(+oCX7kIOãU")(#-UrR)7bl$>^ADumzFo+6wDJect3/ZsOMCtn%?s'9J*b,$Me&NIQ.ry4P9cM=%5Zr=$[j/_#uz7Mgy\aRhZa,Kt^PUtn%gOãU"(,ii,?s[GOwt0kWn?dP0oqyz,ijPJxie.+Mn]n]0Llatw(tl45^AUy.at8N_Ll8ãU"Qylm<69Nj,'PjgP06^^34rwlFDh)HDoP:VAKYh6X(,7*R-/VLSsv1?*%^hG(J]VãEND SUBãSUB V6ãU"_m[DxjF8P(:5F[/xX4nWPNl/=)tim[&j-u_FoCd:8>JNãU"KmEn%T.4ux4FB=_[=Uv'RRo>,%rbOv00BI)x^L+gqQtqSS,&ZmorkM2KvB^:x7nãU"Ul.$Yttj]VX*s88j)Gw9TWmhfTrdwBuS#xt&YRI(#$;[m#cqC[&-H[li,Ox3X[LãU"qL/O>.Y4Ei&Z'HTbZ\_(jA4VaF0^#6sZ8rYI&)u=lY54#48+3fd;-%*8+h\v+;_ra^%jz1KH4eO[TLa:ãU"ANlN+%C+AZaqRkcmJErO3+cm48XBCYf?erãU">8Mh^:d#yNw2h^2h%hr%^h/=u/)BRfSt35?u#CXQZMb.-NW2Dpr1YyHUaY9-TZSãU"?cR6LT)4+c5rEa\p[#D*w.o(ZKYI'9msb\&JD(Oaj9AG..VQucC+BJR7WZ+#&$7AFfajkHe/7^/T=SUb'TRE'^Ia3E(\A4x;AmI0j+nRgLK)ãU"1[dnVvh*_?R'YWXP.*7NQ1n)2P5(IR,gr1u(8AP*6E8s,Tw#)ucHMj_>eMãU"=;sG.]n0gxPDpPQ;:L:'2s'w)4>63fBA%hxs/]?C=TlPYrjab.a-i#e\>k#K=mxãU",rK1sS]K8s^]Hjcn:8DwnqU<9MRGkD4bm^tãU"Ep.K83n9LsSPRN:zAz^^O3i68k'3XWRjj.?s>9dZ_ZhiptV_.W'D;*iMqy+*f)8ãU"5yC'm;88S[ZCf$vBM2FJ3V>E]sD=A6X(=gp[B_vP17_B(k1e6:c^A+ãU"utdB#$j#;tc3GJLE,?62;6.W/%):8OK[I\ãU"=v#V8fiv+swC..[Be^4D990#.%tCãU")rZy6:hZ5(gE.b*AH+R,-HAO/:n9G./W'(DUduMV\ibO)WPE+(4dm*&R##$>v?rãU"XC\:b?,/grSf7cJb*K(I7M_[5Nh.,HVh,uy+cZle%&:pi,VjtqBE1PO+UB(fVoJãU"'\R[F\W;&QuXWkGFTFrFTfu1z/'v4-pX.dEA-BjS62wãU"8i2S-ukpptHolhx]O...Jy#g^LRTH/K,,O,3FViLm;>X01qmk=o+'rt\fãU"GsM*>GoeV+?]KLjFIo][1PCwBDouLueQ9/Dc^rFd++bFsAvfv1)[z*r\[n$muX+ãU"[VR>U-_'wGRHPF+8L$6=^%Udhalnx;H3pOXKVxML.%itkrSI_V=y>Y94e8l.iSY21IocENãU"W*fH9nN,%+6QOfRFId#x/rW\3vOu)668IWC>X&>37wm5p_YE#3Fj=2j$MRo+'aSãU"Se'?gIziZ=[A,01f3&Y2Uj%Y67Jza:Py'CG=vWFj^'ãU"uPl>tEUl(YDNgeN,MoKA-uqd\LblJr2cZ%ciH*[*$$3ajFg#q#vi=4IO;qhT?,J_J;c,flXKbL5'\n)=\:Mfu$ãU"uurG:*Do$RX4+$'eWLZO'2C*ZqJF,$;nmx+WW%#/:WFyh['8;XeW;r,O15aKW=]ãU"46[4B:k7kCnV<9lV=yJTdaK=HFvLCEw]gmh/+v(5tF-iONftFfLe&lrG;-+R]3A0f_ou5P06g>Eaafz-T*v]a:nQ1<+-%l^gãU"V8IsIGWzb[Fw4FhãU"An]iMMIbg\CMg#(2t<+jU<%G9[3($GPu7UVFki-3N1(f6EuzA^>F__KKaK-E5lOãU"-sK._b'/wP.aZ4L,%eUN?ZcKr=_B92K:P1JKcArUdsp;tHg2?CMcnUxLHR4+b7,ãU"ytl53p#ha8U#fn,bXL1':QeHj9hx?_MITelUqoM*:r(-J:K#4Yc8-Ra/*ãU"#0Ug,zV9q'PVc[(eli\A5T9fZ%QF7LAF-M8j0[kqpRn*.w#^fq=YIkVoy<8WhMEãU"#8S#PV8gV%(.Z?%4g)XYXpdkp,gf,ll8nB=*8g#3a4>u593-u_ãU"_MxC6-,ONu?g]*NkziTF^Q<3gf\+C0dUOKiCC$P0hd[#<&*o4L7_qA,C^jujA<*ãU"Cp[IKZh49/3Y&7o7tSl84W)(3M7a%S9tnDtm6f]X^?8o1-5:KuqQMDJi\\sYnp/ãU"aA:M\8?C,W5/H2/471-d0%[TflkC4VkN2;d[Inw%iw<&IPzf\ku-oG%]H7T&YVmãU"?)D;T629_pxRR_U>W_F[L5u2ãU"7\.hDmINThq6m/o[T#JK>O(w:+G<;+9pH4d&6'PS>2(xO:<1).p1dSJ&ojg'B,IãU"2efS#[sG:/HwHgN+PAdGoTPx.h):u;Od]E#*>9s>velZ=sZt[=[7ku;skC0h2=0ãU"]':Zf[8q(M*>9J$h4elJ'?a_O6<<^Ud1[,jphBqOO)D##:s9dPA]h2lysCf=$CZãU"]&)#B[L=J3YQG'R9FLvLn\x-.AdkZ/IZ-05pO'b_+rAVX4/H3o.?#LE>vit>QuDãU"#vS-Y=EASt*iqs+4VO=rAAFi:h5mI)WOhvx8Du>U6thA55K(3hnAas4Na:(IrYWãU"DrZU8(]KL'-<^+n(sGpDIJ^mr1kiYD_%^w$Z*5<0p:SuQq5fP(E?U1fqXf2LG2JãU"PkjqY#1S?D0$'yJa=m3(*q.59l]AlHGMemjbtb(gvh0]:zL1PBw&PgEQ$6r\OqTb#\g=#.:d_y+iOffB[rdãU"46pV>2Y5,'ckruXr.RB[2fk_gMFVmhSFl7L9ZPmwum/6nnCLj>Na-ãU"7?=$2,,h?4)8ECN,EKAb)RZ;EWgFr/RBwãU"V5BIme\Yr,1EaJdU?>RKXz2b_R?&vi[rH77ij#Wq4P3ScM'7Kn(N5(2E8M.7;N]ãU"IWA43mB#C%jiS58(6Md;i528frS7XZBrckC1X]$kDkhB+(O%+D&(0slk;TM,1^aãU"l&)oL+fXwM(F'oJZj&uq6lqSFO3QE()ãU"XxG$4;MWbTOCIj_l=$NPF*lgL0R3YavtI1V2uT/1pTD.&rU,NhrmM\.OxUgwrs'ãU"q)D%Z-xaT;]sqMrp0)s^VWTQ4mIOA<#XVWrbV/#'YR9UQILRi9dKUfNqSjSO4a,ãU"3A2:$IMh(7;j9xmJiGW,5RZi.dApzmTaP;PWWkAbo7/j(cD_>>b9+SA&4ETq.)tkFfDE'DIW#I&L]_*m5]U^GdB(ujHpFG[g$_ãU"J/u/TS49r-ef2ãU"\c<0puWW'J&qaVd(c_n\wV),lj\e$VRuãU"e%b=-g/]>guYU&Y%ZDi.mH[dxZOo=E)0UãU"(7c0,B:U&wcrUt6rB7V^%_?s8MduMbZ6:s\GsIf2uJOK6B;=Jz=gV-lXO)#.DIeãU"eev_>\;:>HH^ik&i_]v_rmEb-L,oJ)b&_ngH7R?paOUaiCU)P)KlQvUY$RJ=CK=ãU"'09Cz'Q)VuxR1S#$[RJmJ5,XlKzEY0ic,3tYjFjgãU"/$6SrCs?OWYiVctg?4.%tBw09kzo51=p'&/o;>LD-wS)wolm*])JrQy&egdoQd5ãU"5GBd'?E+ftre'4rAIK43O,I+_pBf.2t.&iT_PU3)T%En/N1,QHB;x;/+4e[;dSyd85-n0v:AãU"I0rcnJ.6X2um:B$$[[GUH0<[-09#Yc&su%=G3:(ãU"92.FLm6O414qbLhGS+>UgI:G)&4=7.rb:FmT72^Se5DUto3S.#$oBe=(-DT66k^ãU"N%l]_)Qmke5c2wXBPtgB:FP-B-\[UM=^lqASuRkt9&5E54c=p'du,,,RZe\Q:qlãU"^^RnAFi809h3[^eq.bh1gwexo*l:sVeP%fYE<#A&.0em5EsBh)nzZ:FF77I-xH?<:cQY.ãU"Cfgi5%o#ãU"I0k--W3doqADC[cd)IIbcmIuat9LCC.e-eh^0:'8sT(xgEFdPvPBTNHt&vx8ErfãU"p697BQB%??W&5CmR[b[>5wf>5xJ7Pfufa8L_Jf^fhG%xCM(cZb]:oPDUU5:Ru(hãU"6Z06*L3d\RWrD%>GmL0(ij1Ls(0rdT%DanHc71QsT/QdL/2]UY_AvxuGjC:doU^ãU"e?TTl5^idhaL*O-O79Qv3qusmj$u2%QrC\uP1.i5g2yry?#?OCMH1+D)TRLr]s&ãU"XdPh.?Kr6^h-y$xzKZr6wwnl>VJpq-.s\;hV4(ghUp%mfPH>&S>P](h,;&2:Tf.ãU"m^nisEi8?mj6j'59),iOCVJJi*D=ZMjYkX/o&Ge3E9_1$^p8zdILQs\5$gCLrbnl;(PlHt4'iQ1cv-huio_8?*=dVr5'&BG,*ãU"[;zu+bLaARk9Q09]Gd_Y]>G[]oAOiWSjaa$FnvD6RxqSPEW3\JOU7+Ns>(R(k8DãU",+PpX>5Q?Ln]2F,qwf'c%]o:DB7:kWXtTM6%%m[4VcBapLgF7PP9vC8BNQ/gbeTo)N]i=MYle/S:(D4B.F&Pa9B,I5+ClTP*QtPzWuU*Hn42&VãU"+gYX#ttp5caGYja5N_6ZiOiMC7/7q/GqZm>S:cYj5ptWh.e\5&'U?VygQe#Se?YãU"\GFf.==&4OA%L34s&R91e$VNlLXN='j*>UPb_A*)pZXHM$=ArgãU"7^Ut#/.=Y7R7R.CCX,[H1SSd-VhYgWW]8^x$nujZJ1?o?F5NH]UJWãU"DI2aZe3Yr56,=a)S$;&8XyN6S[*r&qKSwroM6Q#L,^YVMFVVV)V;y6$SQt,%mMsVJZcBNhENn:[>5A=rd1hBPaZJUsIPgXf*l7e[CjLqLEUct*_8#GMhX)Us/TTaCh\Xb$XQL:6EYh&>+?#\(&/'b;L)'ãU"E]4)iMFc+W;9b)-&#-:S_kAIãU"CL_SDX)rbr:ohL=3$Ok,RhZ%2IBJ2.*N_aE[l\7EU'WT?=DO0*L7>JFgRZf$$VjãU"h64rpp+Dpfbx31:?y%Qe+z4(FT>:Yu*Z*g/D1DAp>K44o4(=HJ'-jp7tSNnFHbQãU"P#M##B'p'kh30^V(m+D&.FFArd;+9K.3qo36^l-T;A)mgDAqsWbZ)B9;himc%azãU"gFPZ5R+lldTm75dYVuE]8#=J-S66#uK\igZ#i<:Kd8Q\&>bSt/5\PDs,%a\/#vdãU"r?ggd?O[Sb+$V*\L[=oJUr>SrNfU4(#xBiPG)H(_8#X/2cYQvN^vV6icAY#YUfbãU"%89]&u,*bfS#_,=F[p_LGg*:<#ybIw5XGWP_Q7YV,Ao\p2[zGHPSlBLNb1o40^RLq#'rV9kR:rg_36$aAãU"&tGD6qqs?#N#P06daoh?nDxI2M:UOj=7-FsA.5I4TwCU\',TUcP];6=c)AzRdczãU"RNPIU9<>70(JaC)H;3(cMqsa%NU^\=afcdbHNd[;dvc]mTxWEkX%>I0oQV;no+^ãU"J=z]tk(:i'Lk\z/tB8EV'9i%jzB5l,wL+o]EmLY/WMKh?Tn%;'#SvUWD*ãU"C#D:wqdI0'D*6NXxtUM.MFhM+bm*X4=P6$0,j>&VqVyUA,/QAl#\]d<<6C0(MeIãU"-wNa0pJD=h;U9e2\t3_rYW/#F&071-n%zbX--I3'4vM#P+5ioMM_'2j$4D4td=^ãU"AQ'/&+PuFuS3J1JmEJqhzY4RirD(p:fU'jTkK[9Rp#y8Fb)AImPRPiE=6ElLO,ãU"[*P&;WQ1a^YlCuISb>U-aL89llT\&lMo>yl[DKK_jãU"mZyBmP4(.a=Ns7X[CnD;uKlR:qS^d1=THijqbk4rbi8_I+kJ^ãU"%VtruOkcRZUZ1OT6mRjex?P%COP?lu5G\5A$NjE^fi.zROt_a.%;uP3$dP$KHr>ãU"jjh$N6T_3WYl/k)=)0elH[rit(djR>OUQeH9i?fgI^:R1v1ãU"R8jKIsQ)j.Q]E7VK/03u<>huEl]q.c]^6X)UdKDfU.eke4MqcHK?%nC&_.yFNC5ãU"9-d4Rbf?$m2).U*)#KFy=hG<+='[XW*;2tM(M;/7J=?B9?xO=0-6U^(SN&FDM=DãEND SUBãSUB V7ãU"(%8P0=i9>tI^^13A/c8Ga\)<%myF_3&s<\RO&_NTjE:YljSpD,,6uX[G)9%E$J+ãU"(8s;B6Z*/&n*316P)Zo/Z_6DUMYP&Ii+Ak'Q0sU#:W^=*W;X\#cHM.n^dFqjTd%ãU"/V]p0n;Vgs4jA8rLDbB6Hh\_dDiCLt\>Hg8CorhW;Gi5(W7d*Mnh2HA^N[XcqWoãU"94#Eb)6GKlC')q0NRX):<^5QI5JS<04#hN>WB*N)\VOU_uMrth102]#b*U[$JQfUgy,p0ll%(Ah(P>ãU",14R+:Kc]-Ye*9:8V+;X=3&a+bVgTE7?(\+??OtHO[?+[:lIoeki=9P.L]IU)I#ãU"ayDGLiAmyZ2<):U^62_W[vax_Q?qy&TY*u(>s.As=ff]qbHVL,n%bX3VS4mqQsbãU"+mbjR],X+u;rGxuyg)fUU6$UvllbCbajd),_ei0BvlRJ#AOU_/GQ$D9,oW7bsnhãU"v,_n1:K[q8Y6SF018W>Hqmlnt*O3c[V&P^8fFl]byURjXiC[wROS)gloY&#e&'oãU"=bZA*=<((KR*C5eEt&9CrRWPdBYyV_9p>zGA3mC3R(A4N2M.IB+MC=XZT9M'\e1ãU"Ge_W*,w;cvuV'%?mjn;4-B7:)vEãU"2G?5?qkP:W/r,uo?rsf[Tc$D5x5L$9VfEf5n2K_,JiY\m(6'&1,pp8t?sOPJXCSãU"CAC;nf'MM7,sY[ãU"#,^(hk?*0Ga.;y*c'MA=*oaUt/r/wOh+T(P^S,mKjMA4y:2H]:^ZHrvB;M=?7lVãU"asgMs9;(gLcGH7Zq=lRGTKfoIQwD)(TwS<-J236,HR6hg^<[Ak/0tf+y>Cg2M0HãU"REHT+HuomM1)SGbWYtw$fCf2W0W_E+<8rZu>kYMd%0&]VDrg3n?X0O,%Ruaac)tãU"R?Jx+C+Z]60>V^ouo6eE>kf)&Z?=8DoKm1IAD+gtMA[9(\qQJM?0d53Cd(SwTe'ãU"ktP65rB/sm<9Ch5M?K?)Y;(OE04Fc?up0N;NgT>5drP'Ea+hb0?QfW3aju/(zhoãU"9=ylZr3X:Q.LfR$otcqoKg)RQ_WA)VbbmãU"?_%^SIA&%=JD(48+8(g?5hOiWUi:hSESNRbt(-Z63KC3_>6%8oL;(B/f2t>RrfwãU">Wh\+K&sS&=(uJ9?9$aftGWl\;]UlxEIFi^BQ&bK2#KD-(t9Yhjk[V#LV.LL0O'H8?*hO(A-J>Y.Y3PãU"hJ.AfG]Z7EM=gD1E1#%Z%X6\bM*&GBDD]c^c7hSãU"&-3qCKtom4P<<$HVHAopk/PrOw]MfKWBRpd&8]SyDBMTK'aWWTma$ãU"D]kLM'aDc^#rd+L]iQ*:V)9B_vSZq-a0YVZdHãU"\Tr6mu1WV4Bi9Jq>hQ'donEZo'y:Mp?Uq-?IwLpT(<8'YKvs>.r4&u*\Jca?)6OãU"2l[ZB9mXe=[W^,x'[G'wG]KvKfOFC2UoTTOQ*C$,l4jr0^:ZSxtf)d>,+#uGj47T1m7r-lId5BIAaZe^2Q#ãU"i\y/6QOV)_2u8.Zw%XXlB-cu;b%V<6O=OapD;CU3Q'F\NP#P#.%M0=edv7k9.BIãU"Hf:JEIl84n8*Mv_l4T'GG\m\/M]YDULmVpumr\DAAFm3v6D23J'u#Yl:gT.=j6K?TãU"v_o3x&a,q53K2I;6_2nM-FAE4*'BrLT5ãU"9<3=3Qp_I]\7ww%CK>57Os:.gFtZ?TQue8leHZ#QVkJ;3a,Q6\D^/\FW&$_[G.vãU">mpB6>%*$l-)&]+=6lfM0,zfq[p\?FOAQk(wIMy:/^eWGFFS66w9SVwwU6jNe<6ãU"9^T>n#h\_cp1-qN2&(aQ87###r_k:>CZ#\6Ik-7MeãU")[NuUcLL$VWiPCIOxM\xE+-aX?87/TDni(sE^^P\uV5e3#Ls#:fNq5V4uWYNTPLãU"hll6Mc8(Da/M8BFGv=Vx9f3A##Va/j(1X>9_7boQAg7FHVe,u)a9cOkeqh/9qb;ãU"KgAZbC;9j\V^EE+T0U^n2>ujjht=vI<$TMfj-g*[KToC*v2$%+)g8u$;EN89h+PãU":L(K2yhw<;mumf$pA),^ouEXXR+>T=xWfW$#:7hcc0k75*m]gtJ+8d2NYuTX.X'ãU"WV?Q1uet9qM5vNxgLLb(9NQ26ADW8[Q44+)JP9%%R%fY$Nw'2qWPBA(/dãU"9n\YagkBJ;#)59sn*[/L%20m\/x#P'OE-MgZ&4/1O?H1Dm[WxM^'Jbo_=ts-9RLãU"3*REM/c68=4;ivb+U'5pIx&huIp)I[Ip7A.meF0?u:n3k(>n\/;=/_,o)((eYPg*)ãU"pD7(rTMJgX?rq3crhv8rb+7:I0OhCwQ',fjX_0U.K712'lk+K_-sk#hZhsnJkb(ãU"PVBfDCqL,?GG*98$[3JgG;2:s/j\w:h>E9^%M2JY1+Iph?fRCKwouFP1;'UIFqYãU"g&U]r%Dl#MY5efh\V=^bexo\QãU"lev5?2qLUYSs3il:GkNVZZ&[ri[51#7(e]SF:D)dh=t;jVLODNguuksVLdfc.tnãU"u<[U<)5$)25>DB=:V^M^jMGtGwZiP?*k^k0I;93kOhv%aUQPB5DOR['A[1<7dNuãU"B-LYF%bNC=+/p_)aF..'OY^nhHjt\A6Jl4c*^?ssqZU]*E\\\*S7ZqUqkU2F?sFaYlB]\Z9]w'g1?gsS>tNãU"rV3PfD+#aO*X6;R+bs[gpu:+E0F';ixtM+0sp[)_nEoI?S.mjHp/UD0n=p;POA7ãU",?/At&'RPC[UG*VlrG8J%5&rMhLbMo[Aa*5E%x<72XllCN\qm'$YR;V6abP:*2yãU"nEPW*/-bjIk7$qimWtMSm<-Nl5l2_]SPRC;dUFb=+E[X$k-JV4&%(C-j425UG?,ãU"67ZaJFXesm]AfNj364#i87m$$m*62+BR[>/l_UX,\nS4HPãU"uLhMueJ=>-+NX\Moib=vkJE=N[Dx2hZMRL[.JMDnBs(7FQY(&Md]J3%?.KM*5A?V%Zchd-*JGF%l1M;:qFãU"L?c*xqHb.B;XF&G6yUEfvZB.j*yt'G.*lc?T:i1B'IaBe+-$W8Y4NãU"Yr('3k#-FfjhOU_vi_rB0iR?G]k-QaDfFmWLg'6i7sN^VE/qUK$bH-hdNpC%8V,Cp329>1)hQ(=AHYX$2hKl[&jNIphemI::ãU"9,h3qCHwlE%;>dPKGSq['l7O,]/vByHt/^x(K'XEMxwYdDãU"0,&GF:VnDam%aR6U*8gV-c2OOVbd42(P)&u_/V[v*GeXYsX*#5ggXm1&qZ\gxG$ãU"o*sC%fF<;-)Q\JDVmHg_WV[u-^q,H7F]W0Xm%n^1V3r/NpsHYv^0*5ow=)$XPh^w22^G1ãU"ZLIk2WS5M/rbK_+yyQ'Xb1_-'aJ8LF^MKxxBstãU"kW;msG'hcic>3(mYB*79'scdN1*SL0C$j7'V:fqUDm45DaFOBVp#wX,_:HsuO3,ãU"%V-A.<-+-w[uI8&C3?vF5aDzhs>k9k(s)Z+ãU"*'a%,rxuT2q-x]r)8Lj5INCL:06l_:*bRhxifnhP.Oc'#moB?WQbSsRm4u6VS^Cs*V23sc8huZP];I%epL]ãU"/tERN(EuzWBU9yO9+n>eI/XdQ\RtIe]=-=](ENgUqh^g>31ymfqkG:F7K5w\C+xãU"'yjC=]\8.Shj0CpbYU\yrdA99sjUn[lzX7_fdh:%D-P]TkO-XW,#;mq_SP7KsMQkb/LBinV,C$GrxW**a)jf$0X;T2oEHu'AQDdF^UkT#&gTjofvbcuzrOãU"lQgjLVEm&XiIXAdRelir&$hf%CfPT(w0RA)zlvek<5?T0E?\K:?$HzI;FrFãU"):>8.WIz7TyrQ+&WD[AJ2O8;uu?9Z>/*6EM;MH^tBhywy;Ysin3k-pe%s#Km=H.ãU"<,N,%m<(dhuFd%eExI;hC*qWqxL9Ys>-/)'AKO^lL?(\he?Z3v6wãU"8zUa93uzLVTAjILM(aY_&ryjF3H,:>kw161r6dj7TFpKd[b#jD^E/5Zu/RdpdzNãU"j?C8&DrASKLunl:UREx=sz63dNN7-(X2sqjM8^pl#BH.>T3ãU"?Bnun&ILc4F9#]lPvQAVtxA#[4UT+OFn1oYq3i&^K[7+^A]?m*\q6*Ft^c7HVx&ãU"C\OP'udO9L=(vU3kJhCo)3[zeh&j8OmHKt3fPm#0($ijv%vje5(oXUY(/uM_i8GãU"E]:WeaFi+y.3\?:t;Zs]*QqOmA.W75vn7;4HdPX]v9jq5l7d%6)zj[ãU"<#V1PBJXDWZ#Tu7&RRbfWy]pX)u:#%tK--TN#.zM\a;Y[RY>03bKF)P/?4ãU"<+LMl_]6WkTOMA/r/=K5c^w8gwxI/+mh16M+i3hYF'74)Ipzu:'O$<+^lo7f%7dãU"Ie&uM)cZk2:o^u,As76V-qYK$^BKW+l4kW/Sv6x6InE)0Wc0%w(LCqfC]*R7?_wãU"QF)V2')^.90%m1+Wcr#?ee]1qFfVKs#bk0>p:&N#c(smdXI_=o5QHOC-z$[2:[ZãU"R8M=PfI8TF$J_*qFb-QEuVf9FalLI?>#EeTx3//^rp\D=4pfdA>k?Fo]#CsUKWãU"L'J=QObZmgefTBPAT,)c)HZTd\t^HM$-K]17_-fim-sCRm$<*G5L)Wy%6JOlT,mãU"NKk5LPC8E8d#CFm3Cp&WJL.1lBf^wr,jmaHqCuMLaTT[Zx>*N95#H,_;jSY$\8&ãU"(daZ=2r$hG,8nKS_nvgDD3QMU'zsKrwkOTT6htL?lF=g-+]ZjF#V%ãU"kamui#-_du<[90GZZdVs53wa44^qATG3Ifss)j>%[I?abng9e%)NqqiG2Y5U#Z;ãU"nlM?BL]0'4%Lc-XE;3[tDi6nI$WJ#*70RZ=ubC=d=*J$jo*[7O4SPL^9[#N5F-d(WU;P/HNx7mzNi[Tj_iy'GãU"^^lpTEBk+I\AG3<9P;Y#li[T[L*wHgfvwQ*W57(Qjm&B,nl-q>rC['IFzUf4C=UãU"l.)4%?/Zq'9wZ4)T/eZGK]I1xGSl&XM?i$CD/j$:?mL-((Ii:4n;/Ps.RM)7L+VãU"e\KmuG2;rz;Z:9kMXDQ02FS5LmLZk>=>/*sMoFi=ãU"EW04E'/pokKI^m7fJ#^Qy.wQu#dR('_bijYn7nO\=-o9FA/CK3PDANk^Y[^GDHVSO/cOãU"'8)9C2L?r8M0t3&D^tZI)fHIk;1MYtSVGI-;VSZY^XJ?G[r_<*PPuh[erA5pXDVãU"a)&M>,jS7kWF3=ERW9m2rjgz%Jr-EhsB[:C8yU_54QkV1_(YoM%P31W0_Mb';K:t2gHT[L,r7&S[CK%3c_qB34$xSkV0grCM7dYãU"+w-viuhN,Roe.:,$V]22E3S>Nlnk28%t*E31Q1h:2=1ThS?P^^av09U#=TlQK)IãU"]Ej*2m9dXGl96LBGo:=]E.E+q/ãU"0JVo#'5NS3lWvex(1$PYA)Q4\%HFU3H-'VlAPa(8D?KH]I?<9oA)gsWxDsXA_%oãU"9.k0=:q2/P*(f\kANK:-X'&U&/jT5b$1*sa=>mB&0O=LF5b=0BP8l0]Q,TOC*lgãU"Vz>5$t6iF&SHsHaK6>U3rO_(.39ss\M/0HZrNU\*W'T\-/W^fvWiaAxgz*kxC'dãU"H)lgYju3^+J=D)_puMGGfBd1THJA2Qk;Jf,tItU9$A;wFlu\xrgDãU"oP(>]C,)D5pY,CZ15&)(A/kDC*j_[LAaaFD3#QA%ArTXFu_*L)4Y.vHnlvV6Vkpg;p?r^cãU"hZ\-vt\,8E-u1N7i'ML(q*048YfIr5c41):%L'nja-vTav=*.=-e$v&\ai33-9(ãU"L$/IF-E][D+jt%(iVW[9RMt,ZXic4SwGDwx.B8g<0JRV,^BiP8U\VC0_=S_gH$(jmVIh&fg^&JF(N5Wa2lulE3l-XaG8e])ãU"L/LreePMIVCGX1Zn#dP6+FCop_+;.jq1H.1%[7n-A2r$T4)%b-Yj9Z0PPk_My]Z8)R)%cãU"0h]W7Cg.ZYf]ndl]FICiiuo>';m.:6(90F+z:2578pF^ELkY-O,5a,^w4?]F8$8e>,;fCFf*Stn73C>_ud-/k&[;=qc%^G%h$7mK[:*#S;LM_(_3ZkoR+wQgãU"(t3)cmv[NS(x4PtqZ%Aqy-K)ZepKVv*upiãU"]O9#n??K#:_*b]elu1E8BR,nV&6F;tJRq1]kHGju#?nb6nn823Wlm']Udcm$F4gãU"GQL/KqiTV(&RLl:.Z1.RuaY9,Um(AwK;E-J[4Uek_2kjz)-Zx*u%p()9%%%%-#%ãU"*/*IJ9IL01.^%7%Ev%%%1%%%%lnh%wixU%XSwfM&;k>gqb8s-h((P7;Xx2$?58jYR(HrpJVHsxVF2KTcL)uSK$lbK(dpPãU"DXFLcx^dwb?i4xcnpLxlIODw?8vZdXcbv>Ng&jWq;FhSNmI0DkhSEmbãU":?(PMDs]Y''ISOCdt>X\Qr7>PT1ZDV36fV*Ptj]nfk]&jWHsF,\XzTV]r&d.tHoãU"hd'N0xw/Z4tYe*&tDCkI81h.,$-PuTjOwB6Z,Zs[hwFYJhfIu4ovsQs&]Lq*.T.ãU";DJfs3HPlslp_<>lgXK)ajWMUt+)P,uH*lF<+l.re\D;RZoGo,]'rJ8h#;z't:sãU"V_o[RhMuMgS,6$IJ,PF7,*E5DpxllnFo$gF95OvnjLbj/9eXdi:]&lZwEE4k:mRãU"/tfJ[D][hiU*NIr*r%Upx(.0r7;dTFZWb]ta005u703_E6aRJ_-F_V[$Ob.mD_0ãU"PWeAf>g]'*mG)^,V=cQ^bH1Dv-$iiyg*T&uM;\\8bY'lGjMT>ccn;SWshiBZ4N)ãU"3bBOxR]a+BTbDl5p-<3oYRz^:Jage9l(FXCh4JooCui3IV*0ZW%SLtoU6Psxl7#ãEND SUBãSUB V8ãU"utGo&Y>8bMY>D_y#Bsthtz75ku6pW&rR&2tT.R(HcoN<7k%1x)?)E^OlS+tmL26ãU"<2Pb4qIsp:oFYttC-iX(%7kz]\S6&Tl$DF%$4cDGRTpp-T.hH*8F?7S0OWXE\kLãU"B9C%ecD9ql9n5NU#>f?>ef(bjuhCgM879ysbQ)#az^QRq(LYiXshtj0/CwOH(SwãU"E]Ixx,?LdVxu.8gYnJ$Dpuv_6XuO7xZ9'B44i5*&/qB.Ro_L*/D[\^[fpbG9jrOãU"P64rp>SkWG5#eZPD/=>LL2z$Ww$UW1DdmRrj(Ff=?ie&R.MQC;ZfQ*t;qyk\FzhAy,M(6WpPF1Ultoe8Oz6F.?fO0A]TP4wco<ãU"+Po74o5t*TiwhJ*ZUX$DUT&*/3\cM6vqW?*'FrV44oZ7twJ^2Va'cccbhS=RU-kãU"-^H,<+purKh3fFqJt4A[vHj[XMSbHZD6^\*PFzBZQs?Mfp$V/g9cd2q9Np4ph*CãU"W?j5,tg/t5HfWR]vuG0WrlVhM0W2Cl]q,DNtrdMtZAV$Ad\^_TpgyoDZtE2$ku^ãU"GGG_eelTK/bHA'fmffNF;22Y2RQxgxv=UNQCyph#A8at-jCqfY))vKua>7p.vLbãU":tVLvZL+jGaI7;bQhh>)u4N8/f/;X%c*nls-pdsiLT#+Y?O[jGM-YYq1jG:l,:jãU"wrZLCt-Q:LQ'9zoãU"gn&ZOdZR>EjIpFCHIZFe5dqx9/-x8ZxFwnHu0BIXNKh=lX##JL;]ES4$;?9SD&HãU"hj8hM*H\l0NXcs#r1l^m$Zs.\[u-W6tWi0T8d%yãU"K#cCC9YW>Zp:_I^a5[#oZ&mZZn\S1=_$6bF1=8(P[d4J0Gv;$LC_C9mF7ZZd)3XãU"5n[Qdh/V<:,s5Si_;q#(HTcEãU":?Ac)bzE\nS-?qq\DBGBbI$uNBxo\4xtSVDwKEZV0fa/'6ZR[e-d;F\&%Vf:PI%ãU"0//K(LXu2i2pp%N-50pDsFy*qJBtaiI7JtD_Z%btM>$npwN)WXQAJe/OU1Qi1N<ãU"F'+SA/n]/iM5I&R-eV8R'ioTP797*vm/KG)_lfHPZAH'aLOrfFLkL6#611.7;-kãU"4W=nY^+iR=6u&A<;eAtZax*;muwQB^N_Tt6MPjb>qE6%]S3,%Z-*+%(8Lc;,Ks<ãU"fK$Iu*q#=U?>p$0^<]BDd8yIPeW46r+7A:Qn,$+MMJuJk%3tP_SRu&'4\Hq%P6MM3%0g\QYI%$Ych-Amq4;s5ktEKrk\XhHãU"r*5.%+>8)OaR<13SVk7hCTYd:lpnk\gAr[c>tf\KCj25S6[I6$=w<8tWNZ71JoKãU"&et6%-_1_Clk=pix317YMU.WpTFge'(9Drlp;THXdxuZuHDO:[4)0Mb9(>v%>8cãU"gPGP^+[D_WM]T$yKU$(L&&yOQJ0+7-;[;KLtJe>j7+'gDhEYpx?l?1ZCx/Lz#:$ovjcufEJ=[(kcv\AysU=dl4ãU"D88%5jk'rnv,4[M._Mc;ln$(FZ0\faJ66\#^CqL9Jt-[lTejt.6\T,5[I7)%(tJãU".T=:,:4cbc6-)L5i%(+u9K?7\P*-i-,oo'5S4)=1Rm7j0qmV8InLkM/]/3(jZI:ãU"c^\8*m(,Ar#8jYPE<6WCTm?3GH=Y0pghK66HCSfeM->n]F)_n#IbS7u')]Wr/dc:lOlp-'B[-VrGl1g,8%ZK2;C'iJwK(Ys#fZ.IjBBO5Utq^ãU"f?1b3&O?7-'qy,90amvhtp=u=oEy^;QkR.NpbMoeuLC1#.aK=Lu,F,4P^:C-2\LbSrjAkA='J-Sl,sK7WH+Qp\^?I0I$qI^__DVrmUPãU")H^S*YaAUZW%:Fj0CrsVio6u9vr0[,1$;2%$s&'gsAM_Y-BLTtPKtp586d].BmYãU"-')h#:Ec>B+/hC)_DLI-vm:s^A6KnV?YpLMZ]>sn??n*f+eXV=2O/\=\BbOk)UUãU"2B+dvl+X-&ue2poE)FC6odcL=kh9dD]Jx6P,6,%+O$t/5(r.LãU"Q+8e<5Ek6'*krl4XfhZd%Phhp%)]u(WhC8Cs>w(6sBj065lw>eOHAKQimkpO+<9ãU"aKmwZ^0?o=w-oOCf3q#p$NOãU"F)kTDOJC=Q(l6KS6>8xui;JJXWu7W9;t14dErqhNV?XgW2F(W+IU:,aL2CD8rZmS9mRHSEO>P(6>%%dx4hWC2Ml.k1W-Rc4JY06*'ãU"0EB=6rV0_LYlUp/52-i%(JT6Jfr$p+mIE$bãU"nFH1<2K,=cTV1V'+ae\p*jc<[l>KPtn=I#iIgD%NZffhU'vAVG0oU+3c+QLnW#*ãU"13=zU2Q[+^lKsNdl(%sR1A?frKU:H8j1&q].TU-#Ry[NMI1DDln9fXtM4ttaT7\ãU"qT3W1L&Tp<6GaY[TglM<>?LLLh41:sLJE#la/pv$*l?Yto;xJ>8kR)uutn,V-M.ãU"g>-bN5&TE?\iw=2ui*IhT%u\vo;Ys#mmcN2(kAr25?$0rfyct;uBrqXd[[N[dddãU"&V4jC*/,dbKvG3H+d(6t,$V:xLkOo.#J76Wgt?d17k67udz-IacnEv-pBB/ubg2ãU"=P;vj2Y+*Q_]u.-9=9-Bk#G.n1NZr^0.tMxvgA>TxHlibh(/?e.ZALj>-\=f1RAãU"5q=e_Q>/rm21E;Ub\Vf,P^*m+iSl*JL4p4#H#AijS7QwBcmm1B2AQ&m-TTM;cTgãU"=.[9.8-\gk/W)8\i*kRih(w,a)md%PCKLpK?3&ZrS6P=9g%)btZ$X]UrcFEq%[1ãU"337AGF4Z&vt42)Uwc,h]J]#E'xAR\xj550a+4r>/AYltU/v?a$[Bc*s[TY0;X]eãU">R28cCYLZDLd+=sW^Zxv<2HCZ%FfV;U1KZ/M1MKKS15vj,q*ICh&]9Ft1s8JbfV57\V.yuPd;P&B(q'#tll_5X^ãU"?'JofO7_P5PX#EHf&tcpf\XLeL3V7p8gX[>Hf.J0r4_K>Qp_LUHXlr1i^BU&(YXãU"NaTj)C?9Da\JhxLZIYbtYtdPvN(+xe%$V]cUmZU?t5ao)6(*rn)t6%?l/v(#RB^ãU"6S05-n3-83YYg)IrFnZ]FF.LK3]%1&7E%>Kb89n8l8X8&a;rDZ:[rbpbrkCMzspãU"XlxiXPVRq/wM%_sgiLipFeu[(+pjwbbaG46a;^HIf[3Pbo$0:]>9t0[4Rs:u&9(ãU"IZv:tPBW\\p=^)to]n,(G3Y_ph1pQ%P+MajT(3h(?Z%/6LAXst3c+pYnDFisUsnãU"RnL_<#<&j+78AVj:0IyRM?pj>jhKWãU"LCatX'&?ct9Tt:nV-ft+QW+Aa2s+9,qw]eGcaih[6n$9PT8O)8>o97Sc)=%2LipãU"2A0[%W.cVhtS:A[)Dc%T7$q1S?j830Bg.r\nqsoXohK84f(9wlIZ2WqwNgGa[FZãU":2SjiI\2%k+i]U,uaLgi16:<;K+KLp*CW*(SDvViY9h:lIW4+]fC-oe>kdb08('ãU"I.n4I_bG9&)QSi&8pq>S1YJ4ZUWn4?>CO1q>rm\8.\U[Hhw#;ZYm2dvcYCtkS&oãU"jd592$2+1qPo7x1fOa6QdsaFfscl%i_jj\8H2rrFSf*'ZiZRU%\=5#_(W)2ipAxãU"74%&nnM0_D#oud=CmOwh3.YrEGQ50(gC;d'uuOteX$8)K;8I&gq-:u-V%TX?i56ãU"jPcadAO_B,QWJ]pgSP:;h1diLhNPo-FHB1pK457&-aq1+8K_d,WP4:;ZxSo,g1EãU"G2'=mDqRzRI&iFiVfrCsP2pFY_Jy%T,=\JkJUGWPs1R]+3?reY/H[w)9c?e*lr=ãU"Msb&XT(\i.LRiiD2qvUwGiN)h\+L,\1gx3dmmyd4W1=0nc/KKMXQEFdOXvM5o;[6_q=X=/Umw?_[gL,PA0_VDzT\>4;WS+sZtLIYp[TãU"gWBwv5(yQm-[Xq24=XVVM,#)IV+La5Gh2*i5(Iwrpl?j8r#*;1MT9\ãU"A[/8chmSI5x6tO(riZ[lNjKu)&X9.m6]];z>>ãU"=tZx/FN9g]1B$/Kb2>4nDS%W2?,MqgDK(,AL%g#9W]=TDLf4d-gt]olE%q*%[0OL2GOJãU"c.?]Y65=Sf&>+by$SoqmwTL8g0Lz/KG,O/-r+idq?2/&hQ$x?U1n$.U:B'KYn[n].)DRUqW9A>dQ>Q?p>MW%ãU"Y2I$jqBE8KgBsEs81&%25e5A7+M^+KQ%/rWkitP5Q.&WI?:Jg86m%b0)'B:CiVfãU"D%'JPd*'hk\g6%R,>L\,7Ckq7z,Ty'H+1]/8tH#tSP;ZjLizI;K+VMdNk?BnyF\ãU"MEE4=AlRdodHd$N(;RbE__1FUCJEL3)1WSQTs,6QUh=4'PgvVElQR,6zLEG1U-VãU"1.1j>ErS+-8cdEh#KQe0RF*D1w:V+_6=,\7NWUljx>9=CN'DfFGn9La)YVF1z[#wG9\/BFW%ãU"AS1M*9#_mT[0:z*\amGo2F8)NnIF,c#Dp#ppIeAH5sL-KU;'Jl]Azc6Djix/[N>ãU"/U4A%r,qLXZ6>+6n]BG7%U86c&-FAJSKe-F8um.<*54D,K3:%Q]2/]3UVs3EOK4ãU"ZG+1v0^F)F(g[>v;5T$D+UL\3W?^#nf7:bS7Vd2\TKVhn^M?'#VMB?pY)F,B[3*ãU"#w,l'[<-ao_G%L?K$V=nD7ltq*;d1L6<:?]Z(P51F24_j5lJmJdp($(ZdIW0%yPãU"9Aiel2W&q%v&_EsAV,I#a_7:0V^1d'K*VtwotFoMMj_$1rM)F)2n\jBM%^U;eS,ãU"9Eiy:W(W5G[nZ%qUw.U#1_dOx+5sM6LCbKC^fA*]wd=_Yeg6jv48ãU"bQ>&$3(=B%5/T8mziQ;QeQuZN8159_6:lrGP('Bl$j_e-mr87Hia2l*Zef'[,]cãU"W,f\t-UN8\2gwp:FGXZ&7;)sCd?ftZF'[5J'1r)^J=iT3XM.&&c&YqVj0Z%KR*iãU"]M2[R[W*[+HdKbE3r;OT_p4Qf6_n7WK$-dgApSR^*Y/,,#HL3iX5L)fU%#eU;/,ãU")S#=-+/]+f;4NLH?0mX>DUWN8?<=8Kk<+.cSJ$b%*kta0Y)FZx%l0/]JCUqqR,^ãU"eo)5myojV<2*Fq/:?TXN&Aoj[cZiHm,$ebugg/bQR+J8eOQra6nOi^\IPe<*[d;ãU"T8yd\'inh[Z,9D529JA^P8U2thqC:l\lP>8PWKtbTC?IY3/a.atKIYZjCd9A4*MãU"qmM]<;#.qHOcYm59L_W)48GnU7.%,j3)b1pMBKBx(bU%mTR]dj*u3C64T>61TA*ãU"*^G7i0F8R.%hph?%_Y,IX^DTDW^B:[bD1QV/XiG,t49QI?sD'[f,,4c[yaaJaZXR)%J/Mp5A_V]6)vGX+8ãU"9)EbZR[/5)4#>]zQ&yPH>rD8:C>Ig8eb,4+?&Kt2%IBq*).O%>Y_C&_V('*OãU".QdcCfk6d=#]QVU[*E.3Zw-g^MZ:J2X]:1-UdtV'2*t#X[]JjX:VcEL/8S1iVxeãU"FoHW2NQyx/YF5mN>H\'X]HiRd(zKActUq_+eI?XH0j7.LR,Z';r$ml/Is<$9:]H+)o_>i,aF:luw5GyLmIWL98K5TTIãU"H_<'6SBrnc^E/nywHr:v-9$qVcfGTqcc#pn*r4_c:Xkl-e1lk0jC.1ywHfm7z$CãU"ydK-dJ0#0M-cgS:+?[F^[Z2&Bq]q=yf+7%#0x4(c-,c#D>0%E%5opoom3k1.pe8ãU"r-i9rCU?-k]e[lj3bG&[L$V10JSXQSK<99*CiWod*J(_Q_0)Su/K9*V8-W%/4i*ãU"0]A+Lw6LaoQYHSv]eS5Qhf1640;q_l%4l,L=f843U,[#i6uãU"I,gJmt8fzVFSFR=?:L1Go$O93dT-l+Bfv6h\8wHdncoukoOuL5U(2\\B:zI1h38ãU"fl,IahvPAW]Q.0[e-*AM:bAWRiWvãU"txWVGE47R&/mA(OXUum7b8\%u\w*h8:QsID;qX^.N,kn7j3NI?pC=KKSp;%8$:eãU"h1/kDclUnu;]cbSROP]Fi)9hP:\GmngP8cE=M$RW>(aUq_%T[mSG(hU1*U-QY6OãU"tKrjAcEHW;x)P>hKKrGd2Wt:kNdea*)Vj48v1x$$;HtqasVqtto8ggRCVw^/w5TãU"TcX:2**1<#)rQAr+54.fT]J\&wlDLE:'#+5cUBouOobP,7I3>ãU"&7'BUr\(\\+Sl6>]6/0p0epjtB.+fw.ba[#;MkGXEZP=]-+&inPãU".0E)rOe[=Yw)V/OGNn6ZE&TY7NVSfE:pDKC/*=&$,b,$GC2E>)f%8]aM1.4\zuUãU"&_O:DpS?T0'uGGZqxaBU$Tw%$_P3ijU=[cv<7$sxJQ9/_h(\%_e\0\S[hvM4IMpy)$%ãU"#^u^t>;q^GBW#\Jq%9mmQq:Q+=qF-RqJrngndS)t2?Q4WVuC.e4ux/[Vlre)ee'ãU"mr*#'(dFu]jE==Bej[VQei=;9%4E6\'3fP[:GFZTkS,):UTULw)>Tx6t%+>:aP,ãU"))+8G;8C?2_i8t3&%i%tENL3LksCZAE?\s6oaj2LSandYp&%5G?jeOsUVAiUgaIãU"vxn]nUr:C8S70>ihWyo.Uj0sE[k'[_14)$RZgvDtzvSuO%hA&,TNtj=gLB&3C2\ãU"b&i^PdGl2fO/kwHrICfO[:212eX9X*RsEK&Nau5nEGnjO)tAWIRgO1A0F?lQc>.ãU"nV$PqOO>,rUA)gneB]*?:_L\[*_d(3e($;]:i:m8G.q[3e%?#-gpuj\]*Kg_AU'ãU"V&'x=d7A:QFnLBLA.]OEU3r^;GJMIy8m'IGC7#EC^jwd*nq,]P:rrc7[8-P3BEQãU"FL*MXn?GfO#x1c]>%I,r'<8g75ImtE9'L1d5TF5ND-_itJ[f,RWeT0-l==v*[*VãU"w)]1X=Z'-;$VN4tz^gr^60ZA_$bMrW^[cAOQ.s#jL2wHUT)5Y/uVjY0d::u35W;ãU"=.g>N>bH:LV[&oiAN2pGRUuTA6:5\rG5\H=.o7q.N^\9.?f']R'/hQ()2z\/qdLãU"gMSqWakPrG_*X4S\hqal:Qm(uKtSgB*>e,%dz*25/GiP7%'me7KVQ-Iv/d4'=H&ãU"^d)HXt3IbX<4HDGn0OYGJ$I9aCRyhF:_9qVH2O9a^s^vR4ãU"Se29q'6AE9>B;A7yXH-\cmpb>E]3x/?a,:,1PnqsXLMaQvO^Da#\Zu*3\:xtiP]ãU"Sf/;UJ)f]Sp**P?cgW2E+VUnvQ%q[*z(V:,RHjr&4+)\fEHbpf5[eLM\1/EA9gDãU"lisdVn2s3'/[zN=>u[DZx%yI&l(3Q$:r[jgRp]1ldP9Rr=3rãU"oPtX'Sl5mRB>):y[4S4:bQo0ZW>8BB:_*DV$#?kv4^3tG7*6Rb8QS4y&EqKcuU#8Vgk,877IãU"FvLa4\Vr#E\K1]/5q0yg(28m)>1No[X1Bx[E*B7f9qB*HqihqN_2H5-;s4ZAhn#ãU"MNMkM[d:_wlg7mh\:lM#QPMmc(3^ãU"bp\He'Ux*irs8VjHFyYV=Wk4'H5q)Gq#yiv9'bNGDB[mB'La]AScA;TDmJCqRxVãU"R:rTFq-=*:QUKXht1Pq=kK;y'twu%7jNdFgd3x[?0$IRn+45#d;b&(3rgGNkH.?)[o7&(Z0BfH67gyvO.vBBnZ$aãU"?GaYwMMT$4lq$p8co8y[lo6]:21]AXd8biiU^K.&E7ZM]J9)H^ZeQ&+sRT:i;IPãU"$Xq[#NV.lSPrZ84Gb4]F3TJ;4R+)*29*Qv,:Rvl6MEY6RX6b4&rF6DECvKBHbC#ãU"?mQ:4,m&HdN:kN?c&\R?kkUj4T\O:6gT$QCyUde?o*h=38h_6FC;anHw;hQp-SivJ82h/#7q)oacoC-';AYzpvenm29I2kM#XI^aLb>?0I6_2ãU"i,enYJW7U]DHIq1Im(%8OW\Xi(Gz2uC*7wBkJvtjc-cYmuXit[5:sAN(i0XbTUSãU"Ap1G\aYeux0E)u*8=m'I42/KAu+(T>e4'=3U_&PhnO06^y295U&MhTN$D0[Xpl1ãU"3fik8?^+whS02*_mh3nGSo=XV,qGf$w;H/H/38]&)Ln8hC*NV_5TT]X):=?*=ãU"kHD?krv+=;AJm&\Py#gKxc7G-xc6P->f4P;jP&_YRyrq:Yg;F,Jx8#vDIVn(HugãU"=n6rr4IZqe=WndeZ(fidP%I%n?6\/DfP*V^:L_%4aI_b3j'2m?ZdPãU"90pcb#GTx>w&SIffebC5Ia$/=K:s[p?[t\(orC%Z^[VPvU?kXr7U+R4CSJGU&On7RE-j8_/1y+*==)Al_ãU">mscG,?'wuJ;EãU"eeH:/?bGE9_5(=1^&\<3BV+U#ZYTGX,o2wE>*op5_(B%(\&.]og,gq:)o6%/A>^ãU":KnbN((1_0\O1Q,.6WM0[f*\+/nkD5O]dsM_,^Vd8[C(5zHJbp,\KaK^Vw]9M?,ãU"gSRE&%eQ2o97jTN>U;?h;[+:FepP,d/NQ-gt\'bHj[\6e.TP9[X_j1o#y0bLjãU"C:4qo*d'EVio*O%2XQD)f_)G8IFiB:a(GSm^i;di0<3bcv5\\qEhbHMO5X:hM<5xhVãU"lu;93XBoq66Si6\MXFMZGnw+RUff9vI)7iym+a=p$f,11]VjV8;ttSqmj8&2bBrãU"EoKq5'0oF_%JkQ$C7AG2B$s53_M2NoA=o#LoD1r.]VF93TsbTGoN?C&7C.agãU"XJXN,S7OF-l&MDOIZ9OR5T$*5U201+S]pfLuSJg1$Cb8^N>3dFlYNLD0'9_KO2'ãU"I5S?vnrLO+/.XfC%r]=N&l#]MWMBr=2vo7HiK'%OLM\\\ãEND SUBãSUB V9ãU"l+7M%.kS0C$7/OwMg[\\7RpBbu:m]jrFg_F/d?/)SxHFG4Ku^Geg'XTTcXuL%zaãU"i]+]*GP;kQd1a]jUjJ[,&w/q.g\$:Qn*75%j9pr)aP>OHK;12c]U%Nu23^?D=10ãU"VYat1LlQ+p4KI\q0M)+GBLLY.;,r/RuPPMX9>q5Rv2[$<[2=5pShYb,&V2,1/n0ãU"&lPg>8ZxuH+XHq=-.Lx/Tb\#d5<=hZtA]a6wI65*y^v_6iL$%%EGy%qW8_dZE$dãU"',+LcZD#N,\t2aW)Ef_ZnRCY1lx_4XHo[KYo/u=P:j&i'6%H)kxdHW\QnPfG.#VãU"p#abJeJPg#X1]nXWsOF34=Iw?5Hog1Wr_a=0;,AWj#g=kh4?Q%4-KpLt#u=#s'.ãU"o3VbgQj.)$Mq?[L6Rd*<'^W^Du%>DCli:CBUK=hCL'C?dDV]0^_HMMqãU"1%*;<,Up8b(8(cpZx7tZ'HTAb-wlãU"83\1;A4>3Y&D/*<=u%=9ewAMl]gJ8Mbx-r*3qLBV-J,DR6;CEp.ftvDkRrtAu1mãU"Absjr#AqVC8NdO1+?^jK^,Mg=dxu^1K=QD?_Jd7KonkR9^c%pr=aQ[Ph[#WCurJãU"OfjiNrkgs2%OeIwb[gplgYOQ*d*M_TFU-XX7%mMdr;?b?0H9M(eow=,:VRYn;NMZ,HYtbzYO#%%W/-O'ãU"aK)mw;%]9mErzAA^r&LaZhdIMBF92x=;.tHDA3.:g,fe)F7'<:7/,G&WY$K/'$,Gkr'Jq-#ãU"n9s^NR.k:KqNnSLG?6p^I->%Ti]v*b)-W#5D-[?<$YOhPn>NxX^ZW4WGSyQX/gTãU"IFcA1>IWtG:.u/knOM0;6,S-I;O49Eo[9X+:k9Y8\sCD(9D9s,8xujz7eXt.vroãU"uHkdJq^FA_gXN&Dl^22UHnA>&GB,Q]XSCZaR7Q[+8mja^IJwYD6R;nZYaoo5,fMãU"Xw:zj/CWk1ei%SApBC;=DTXNqbx7O%mkS7)qãU"^MGH%f,J;-AZLTA%,%FbQb]Bk;R8oqMuW%\A4hGk0MO+3UNA'CoPzr]bb(drusãU"d(rtQ(F?B-7-oqYD)E6w)b9_j_RY08n-Y]HqLL_9b]Tj*Yell$ãU"1Ugln&XR8ok.:gNH3sAqtgqFPhbd4l87D.29s+6qsCp_Ca]3BbvSc_TnU0CU]sGãU":f9uKK:sUWb?Sj:ppP7NdX\;k/n/^q0#TINbptTtT^t4q=NpB^lNhtfatNtl]FnãU"xrqC#lC863wQp\YbQ=,S6C'Z=j%FeQ(R]\)+p_Et?S\rX-=Ltp=mhTãU"41Qb]pn$IWu2t(&E[6#B'NooxIFa84l;_AQsrgCHPN.^/^DR5Zjh6'9J+QYuP[a&vkdl8Oc:7,V.Cr&$4TãU"HU8lS2RbIWN5+IK\,aIj,7+4BX^V8:n>eIugU,V[D2'NECIlX-7HmmB]jvjdw#qãU"$;mbus>/\0>Nxt']w;Fj6vq2^d&wT/pZRX*X'kTOM(+sVS-WoW5$65RNd[/cDK3ãU"uNKS+:yt6hX7QsVR^Hwi0*ofdx$#(%aMomAOdLaViO9H.vJ(7+C]4Vg9SsNrD9WãU"kLYz+g4/&_1(*_&4tr:i4%_ANMzQU*R<#[oAC$j3b2sQ2MiidDTIKJSxv8nfV^EãU"UGc/+]5/98z6GqF73m#z:_+nd$NLyc^_AOp;,ek#F94$c*.>d_cl\E2frBh$xtwãU"5imlbL^nPv)=.Zvv*D:#nkH*7b;g:%+#q+G%09;]Q[DB)LL)Rpyr8Cz;IS+Vk<)ãU"ZQT0+oS%dvfLdN*\)RIq6VNn6\[dcUdax.HsT:c:IOSmI$wu9[unfTXdzbGi9VLãU"0#KGSfK/E4:O\Y,LqMr['uSo7;d*;R'0?jg#T.r?d,:'SDt7veMtR*Rl/xZsd2v/ZX'c,m9ws]$6A(C%ãU"BshJ#P?7dz1-bHl3#Id;U6cW2:Z9oM^eSjm%92=N)j.$BEEhr$QEByh/xYqK)SzãU"zskP>zoZKcpK*YVx%/2o(#uTrra]vgN'q-4*AB\^(jg^+(2D'X[?t=reQZ'Tdv.ãU"5_wc)ZnRelNYx+r?D39^L^u+)1Lk2,fNSgRItwjEO%o?V?4-FYHecuRtC5Q.47sãU"8u53dw*RB(JSrS'GGyPFnbOLXhq)Su?Gw8tyE'-B*BgPN8i$>(G,VkZoXZ>Zo1NãU"ny\c]>5=^8iILYCb87)h)JnooZ>>Cvs)qd(/vsmIi7)i(*kJ*Fs:1'8,<#A5mGAãU"bJXU[\K:pnct4&Wp4M;<,87D=4vZnY#.WwtvPp%>XW(jOJJ_n\[4Y5YvC+Vuy.6ãU"\F\#eNb(nlVNUtoD0uV(nWtPe=cDp5MFPR^:9\o3*LpH4iZ_T'DVl0Q^kD0A[:]ãU"d%BbD%a_vsw=fZ:EkBwgH+Y8k35cNL+,l*MBe*08m*Nn4rQ/k[JQc#6g1Z[1*)DãU"JXY#-8cF+3cPT9(*7aE6&--Iy,w:rl^acou2)\^CdCl(<[kz-IDWwQ.KSJgp>NpãU"eZ5B2rI69uqqj\D6TKo9I*[j:NT:obXr:1(ELC,qga-Z)3a6yRB>NYCY^&*SãU"bCLA:?6.Ngend4ASwV,FvDZmFCH]%2=^QCPNU1y\H9Ku]mTtDlDDN%Z&&.q0#pKãU"GZ-Xn2g*587]wCEe(=4xqN7[#Q5sjVVNt[0tlo89AT8U_UK2hhEãU"NH23(>h-6RmvP3J*=52xyIuqTbpPgx2t6.hxR=JU1#gLKS[%9LZL2dXFdRM[d&jãU"Sc5>:%2*%3X.s.3nVhoL0ZJgUCvP.R-8iJBnCS'ãU"An)hAZ8ZWq=5+M*>k,KqU)hQZ)([R$J1(.,5i_^:tQMF:Hw2l,%-IDbIW_/Q>b2ãU"w):moOx_L#q5%:rg.&snW%:g=<,vv9w+vFZ1onPlV]Qw,%LQ[kLD[P;jscfBrl]ãU"\;Ny3VcOPcnAq:=ANM-]b]0qVWgy^dP-)3e954)r6D%LEUW+8B0Zq;9e3Kh1qlum#ent1&>9U[9)4Q1MgJNb6Ue4Hu(9e)EaJ&8zLãU"\TDw9%hLDuPOaMOS&Lt8>UsG%Zn2o\$*.)VãU"2qngW<*[G(U#Hg7dN1nA#_OPIXOeteT>.O&S+MP2a66A#f/YhruUd_tSvZ4L5:FãU"rGXM$MnfwpZ]NhB1&B=56?&bZ.?rd<8Yh5*(A-C?iQ.lBYl_)CRWz;;Gs8;k0C'ãU"Ua#ZANU/E3HtdbWRMUzjMPIir'^%NQ#u,XV7eNsNo5X8AJQp*FyMpp0[\D(VuP[ãU",cA%RIqs1zj]c#PNAlcY;4x%P5j,sR.;(RHKaCK)kvL9x5%Xl=XpI6#Bs3<+'n+ãU"p9zYPSSG\AJ;:71O2-&jO;p.wqY*e-du6C,RedpmOen\?a0<.H_aKrearE09?XJ(.ãU"hf;:#0&CHHY(aGKpaV[baCj%%<=+d1momC=KCrsc\vQt6\HkPn=Rn$Ye%)Uqo99ãU"4q$+?&sbtA[Ge'2*-]%8J(NbUk-ãU"b*CCb#&5>U_#^<#$N>?\M2GxsnME-kJ=:mswOM\bvzD*B1_==:onNMX03UDJ4MeãU"l(6lpxcBxXlQpTr-h(dB7S#VI0ShmjUKgkZ^TãU"IRzrST>,cotWb,Qh.G03f<>USz%9ysY>?ENSE#ube&r#IW-'L:IAHXp_*LãU"DB1QOV8WX#U#xorfRG*_,$&WhcB8PFP'd3KAUw'xfx+SSWEãU"?pPKWLKX>uhpta8,&pq^tV1GJM_JO0AXfVbiDn-[4Y\8p.*/e?*AMtDj%wF#fiiãU"y+KArsY2^HGgE+ut]4H_\b4ci6&*V3s)$9;lSjKJ(>.%tc+^X.iTdb,Qe8>+K+,ãU"$P&hRFH=&$\9^G:t^m'37?J3DfT5'\>,xrih1Z_8DttJH5#h^/mEERVS:6IJ<./ãU"c<2>O<+t=[ad?hxHjJ1>;_&Y-jy_S;(=1J3/TKt7BiRbr;on:4FWQMlãU"blHKvnZ7SOSgqe;uZhxvsGaoDBcpE#fewaD;UE8-)465JE5-HM[I&SL^,'Ou7yQãU"qM\O/Dn]OMMd3sSX+g3_lxnl;Ti$9JzV^7=:06l_eIo)68p2U#h)SEl3]*t<\5\ãU"S9s[+Ao%EnQ/bfP2>+z>e0.MTU*M'exHqqd8_aI=Lk+R^9bjs'X5U5H&7;oãU"wHwWc'er,VmLdZiP9^#OQqQI&#MSkA#96E)54o0YI'Mg^>&e9x:)f'QuhM,8^pMãU"eEOL$.tzf70qCyo?Zld_3g,B6]MI&ZF68UVi5%r?IDqS8OQuG)3.X.9O\Lxoot-ãU"pu,,S4/u.^3-lULg=UIAfCi%W)mg,Iz(?^Pq*8P_w2t^)T,hkErnMj9b6INS[G#ãU"DOn[ijkNJP*&,wJxHJqItZ0c:v4JU\Uciv,;8*DN5UX7myr.&Xi7/I49m#R-g-#RrlLLãU"n/4om98YgV#-E8xI6NqQZGW7rW2fTE)%yaLftZx;[[Ph,;lo2ZAb\nbS6DN+W-Qq*y>2ãU"nnpm6a^fT\BThlWlBN=TMYZW.LZhhRznjr\8yPAF(/No2XWLihBuS%>k%Pa/s$b?kj(f-B)Y/K2UrIbEj):?'lfD<-W4S3yg^)w*PowãU"eT45lt#[e0R(0Y.O3earRgmo:viJjhWuTT=+:7cpPCcdtjeU,#.ZcF3KJãU"xU#xj%g8Bb-]-HD<2[wdy]ihp$7eMpzH.wNSTOsbJ)sllpQ)_pkVB.N'aCkh(EnãU"F4#BNLAhoXM7s0.E7aB^7CNahãU"Zfs1CRT4P%%'Xr3H0=g[v-6Gk_6^I9?VL-'*X:RGfTe]fuDg:r/flAKRyU=CQ=2vt:PãU"6ptx4Pp0'YMq-^TOn6l$]9513W9F_0%-&;c>'bgN1WEN:>NlKbgmhuz22K*6cw*ãU"M^wjiHqF?3Q(-k0jwv#0(UG]-xYN%.9S;aGN-'L95vqoM6[mtl7$<*e4X2bUb0$ãU".9XR6,,;n+hFjI2ce/,8Qhg7SEVFw535Rc^drk#ea&w.E\<1jrgQ.TLS[CeJ^3JãU"^P?Ws&P.6eV:a487'671BiIjw088kJ*od*:V0)pW&EF_S7.Q;\2Slmquh'mCqG-ãU"Dl[y(uinPnG*Nj;WP;l5PpP.0QUH;s#-O'3,vw;)p058)KibpRKmNIt+1PFTmZ>Nr^pBLCI+_:6#e-,)6:[]g]NZm6]AdãU"uT.GfHfHR_OYCCpjM.9Ei?RCm=>UWsT=(VBI93=tbWb-&JPwMPS25JB*][ANKe:ãU":2jXDRi3^ciOa'%6g%iãU"Ss=0h-\;20\4q[(Y,T5UnRr]06TxkxB\-6TOQ[([>lLSTO-tF27=G1Zue'&n&y6ãU")***J+gKO-cyZaUd;Zb^08][t;0#GV&Kaf-F>4l/BF)x%\gA*aDifRCxS9eDRyoãU"aC?:t\On,aumP\,65S>i%Mr2Ms\(FDcY%DEQ[BB./Z.^6o/J.,,?8X;,GVM%]qjVn2f'uxB[:#+fJ(Ymgx^f%zv5BNn\F\F,LI2m==\%ãU"z&;+DNWW8kvPwohjI$fnHCWH$pppu/*,WZ0g1^'C5p#6/o)Y(HM?ZiP7H_8'fBRãU"eLh1>Sb6-PNm>][S;p'zU0m7:XcM/,bT9*Q)<1LQ*(7$%NkWZD/v_+&Rup/fp:-ãU"^U-NcNf?9=:U&FOY97e2he10O&FDf;I^J%6D8]w=&->KFt7D*7D:0x=-'+[iqYUãU"2plj#u]gXbQPjoZD?L9r-e;u-.ZYEeQ4XX-_<]JI6)/&)fMlF[gAdl49A%P[^(mFi-'An-Pj=[q#g4fAA;S6/sR5TRbãU"?1WieIx[Nn]+&g?/06bEl+7]VO^R0hk2vMD#0Vy[0ãU"k(qq_PX-T.RwpxaAWjv#36ewgbZjTdo*+TIYb[GAk\zGagVjLKG-]'L]-AYSnztãU"w^x)y<[abe<;zuxUeHq:RrxGp6q_^#I)u3i0P$uLho-p$8uxwpY%]UE#R3-B)pHsN)W5KeC6c:qdcEG&7ou>1WBk'LãU"S.2gY3jp.mk>*^5$Dh2DWw]UNqOy?GT2BRH,DxPO/#H?(Q.;yO]Fv>;&^^.CMFsãU"tW75jQSB4>,YF5-rPcWczq?2Jx'R\qQ$&Ng_fA=JS#%p-jF051+FYFC;*p]Kvw+ãU"V*h,_?XsLhC0RaTd%,+$c/4o[&KSkSHNpC0Y&]u/3_c;#yW:G(h+T=_V#Ca_L\mãU"+7s,%C1P[uvL2#.Sa5+pab0N[%m]?A.J]IbLB;U'<=-9)29?4Y6%^\Pm.%uXyA/ãU"1w?_MuMBEieEOnHEd(cGB\$(cd,EMrf)sI**xJ>3.TPH.Zo\c16xKK*V]>-?t2OãU"3vjOvDy7WO%B9#wKBO(lj)dQ:+_li)*NA/DKxSw3Oa$nO.HG5U$CS4brf2L:_]OãU";n_(5wJc;n&A:bjb&$IOBhI$C.O]5JfMT=E1:5x5W&NãU"iOHrgkD/kmmrhk4xc>s^rri9Vw&b,p'k^[/*g74Pot^jT.&n:1o;?skJt7q5YDOãU"8>(eo**UA.l3m%JY:b%'3PmUZvtPrNz,u<&w\*2Qat5k&$2sQ:3UYQJM-)/ucEaGcpc'7/v]d%C6OJYCJhRf4Jh:]sSãU"0C;\QE;5[P<3J*'\Xe,v1AgeNFK$WNxQuQ(8]=OoJJ+6#El5mW)ms6vNW#WS_VqãU"#uiwTdj/E]C()3;XfIU[<(zBcT4nU:SMlX\c3K[EeMAra':qKZ%JZ,,RWa5^VXsãU"vLsYOPOKC/ZdG[wu#mx%HYPVORD-IJxsF)LLc6:YXm1f_i9f*J/cuB0pLf5Nr5XãU".usP).K8U+g6T,4>g4-)*ui(Lk*U'.hoYD/uESxL%i>wWpthT.Kl6VR.ZY8b\/oãU"dJQUWeghGgx:3z1l?xKtUC.qiVB3**Y#HoolãU"fK5och9Hc\7iYD]Tx#\?\FBqTg\BdaDotU+MjGFu?WX/SIkr.=kOZ<5P5)8D\0qãU"?p&m7I_9t'+Z.&yW?-oepA-RXs/D+,b'=u_*Bg9U5h=h7.sK0_X3WY8(5a;4hyOãU"yCs'81/FDCxI,cX6eKn&?s-$.t02g0O)_yw,XsHf9*5q;_4Ro0.\%k<9$S+4Z=QãU"*4?G'1%E&WYJ7)tVNmrPgSjxOhRt]X\i8DqB,3FLN4^']im(xTrI_YpE+E^5/c7ãU"(A?-,2WFK-8)S0w$-f.e:8lNCZ\30f6en&W1D#1__GPFGD'54JFEJ-29_X9Wrf[[5T0'zP$SrLf?jKiJ8u\2f5OwZa3ãU"I33xU-XTxISsk:^0[C8'D3=])K9=t'f0a7>iZpm:bTa*CpCs(\g1bO9Ws8Uo)fpãU"T('RWddbneGZml?:h7kUQ:iCTAEkC47VOe_v^T9t$OJ%z+b'2]76\7s:[5lFydNãU"k2NyBãU"[^VU+N/'r3V,\r5T^on\;'*yO&S:];Ng1pZpk&n^=t$pnLXgK&3eQ>b*%G*X.9SãU"FqMb7[*IbIXxe?%f6w[,0J1eZ/#.no%/cF(qH[>&KPaX[QjDM0d_bs%1#IoX_kRãU"Jf&/,^McIR47Ky6B6'-g\'M,*BCF3kZ#<0(NPo+yS>fX)Bu?,6b_OV9-6?UV6Aim_g9]oz&72$y/z;?3=e8gf#j/UgafSi%qq^+ihãU"Vp%V[qu6klUGo-<)p.g:&0.:&c=8#94[tTjB7'wa9(cYAbg+jH:4L;R5]#EuC0ZãU"?Q)7'Op6I/8,c0-]3/&(yw&rm*ZFD^C7U61Ss97UHWiS)gA?/S-*fQV%YB-Ou$-0+\z[e$Z&Z.U]qcI?ww+:0c09)tSBOF>('w7%?nJkE_qI+>BX]%kzG.*ãU"X097X1uc[lJL_r#VJUwL&7U-bS#>.,0Ti5Eu*<,^.f\AL&t<+HmjSY^ET5eq%&PãU"E0D>O-g*57DGz*2$kgX2#6]8=\-EnT>[=>\fQy+=rVG=i%KU+ln\(7G%YAãU"D-'U''ikFy[^Y];'-Re%h**)-LY<0AT$ET43=WZ-DLRT_EV5U/9US-6G24ag%EOaN+R(K.%\,,4xpujD#ãU"+9]/r428Du4pg6D'QGrlu2]:jMET%/JVa)Wm9aePv;P4a)KLm[j6YA;>bdAuãEND SUBãSUB VAãU"ACoio)S(x#GlOhD#5)3]g&&SE,eVX_F1Uy-]j=Ug2/b8kVprI,b%qOT'B-AI&=sãU"WL)=Wy1E2f+DHU[/r[oBiI]YoqT25-U+o$=U)CkfHykKL_.o1O*S1bD[9UnD=?fãU"E;O-U%fu)t$PcSth+U#.:7CCPpmCL*B;ANaA?uPnA8_sdVbVs6f4OUd/Gr\JE-BoEE1Y5hLDg*wqJ=(fqhRe,HK)_LX3+Gt,kR4ãU"]:[FIAZ_C+5'\RIeQ[-Q1o=uih;TRUHR1MEQ;Eu>$ãU"Io&sW'&RM[;;o$J0:CIZ_^:0/NjR$+Xuf?b\/)7u8&.3.P1A'>+Nu-831\K&rIhv/n$dnBP?C,+0+.$0I3Fxwid;zwA=8YW;j)76YDBj$6ãU"FYuoCC3^=[uZCamwb3vZ9_eLGSXtI^:Beu7UWueF-,Z'&&WV7ãU"q9G.[Xz%-;:WgfJmTQ)4Gfs7Zg4\\1eajNOv$Ar=_kGKI-mwC&;$XS:';i0eab]ãU"rItNS/g5YF_EPk#U:/s<,ilOmK<.s?7Xm$$7gJ?bs/X<1s?L/U7a?lFbOC%w,vkãU"lG9Z_?Zl^NVgqRR\\H\ueMAO6F4B;IJ518mb)eTCR#RLk8w9V-7$'%.(e5ws:5%ãU"yY8vpZM&'/%HMkF+P30+%jmy2N*iR(fP8BZ_\;EGaAME*)GLH^>o\;l\*b*O3&ãU"h;'1l)wuV;=J<&iG>$5*&dG1dL[D$2T,pJPD=^oDb^.FC&rWSo]:q#igtZ:%A>LãU"6-#jhTuo(ireBL-jDEYi,vN]+TC<6=l-N;?j\(hD4F%r&45O^P+NH7frdn:dULoãU"7_^kQ+]N1lg*MaM7J,CXk<1/IIu,BFFA.iqgH8K63rUY%*rbfE'<^A+1AC1I\EX>;0oW&gRãU"kznDh%v?5k8y0lX$M/OeloAENWBENXF:^=.a2j*8(*F2?#[\H7&^f+Rh7H5i<#-ãU"jXlf[vsrtb?JAN91:6'DVFm9IC&Fv;,x#%h,/,q,+B\k25c1%)+X1pw4]aG^mBmãU"pirD#79:NPpumUlE'7MGUF+]&^5]pL9HN%$.*b03[wP1X+WME)[hME%vy%8'>VAãU"9$Jpma)cdlDK?64$bX?Aqmdh%OHs.kQ9'0LKQAXUAPy\[A5;myyf^dPuc;FI$MTãU"=6?''UM%ZHT##1_\j:(d:Xsgh:?ac'MF?sPkswPv(3W$d6vuMqI-o&X.q'J_I[QãU"6+owU;5wL]%m5Q9tB*d)h..xJF0J0dhSREH+:.Vy#Y4Pap>l.Y2jD#wJ?;WBXi)ãU"#dGY3el[&]po/5&k89i6CyOLCf8K-SrNDCib_&7KE.LmL]o9tO;K7[h&GPHi-1&ãU"N^uRD7QAv)^%tg.bkCxMOe9F:T&0pFDbDX3ocA9f;YBA1lQv8PA%W+uR4p[?n6dãU"T7).ArF^i2c%:dzO%:HfkmVpEMIL-*JCihãU"9*vVV(U:9I9qO%#0oAlb1KY)EFUãU"Rd[XhWkuG_fB9wZ/aLh<=8^.Tsrlm7GHGLa;.c7Uht1LIe/j-cZ-&Nq0y#tX[M0ãU")rcdKu7##.'$7bRf&t[E8vtoTMve+5y?Sk1f[)w[-&a5]Ifk)$;^%ãU"077m-E>F,>iEChuM8W4b>Voz#pl&j;>%eb=-Lg^hg75P0/qcfZ(jDV<*-r2'6&kãU"#iibWU>4JfjGji;ds2*^me4XRN6p_hU;l8;VPtL)G+s7LhYjyF+ãU"7$Ir'Yvij/a2v9TJ'n(\D?4Mm$qlul4LseMrR,:0Ahj^-%q*hs26dLkduV+;58hFhb-&-*NEKv^z#0:mZC4i_v?I'#y4LvYH,7Iz1e8\)s?5../_./O4gadnsL4?v+&'%%wFd-\YQLBHD1pt,]UFJp(y:7Ii>$mw34^sRg7qqzNkRB:r*9\:t/8?]9dB?hi?oKq%u<[S.mG5sjD+n*nXãU"tFNTr>q,0*=%o&qOgcc\c$Y:t=VWv<\*$_b?RsEA=+Vsin_Rda)h]EmJ6#C;_H9ãU"^d,;+eQ1PQ5xIR*=W3#oIb6_=IQ:>#bv_^zaIlIistQ.Q^D\2A6aO5I-e6ãU"GbqC_bj6hEHHr6%m#P*os7S$,+-[o(C3GA%H?_[AZh-uc5djIYAC>2CFFdW2I)#ãU"kD\9psr9psb6TQ6Z,+enu(x.tQJ1tL5vwd6%C\:Xbd0Z6)>my&i%+-lWQid9RZ/ãU"e)kB_AG.IsX=0gZmz%]0bjTi**r=-GVoSBBM*-)oLghwWd\6ce+sW:N3)VC.%WRQ_\5aK?-XK2i9Vsdk\HDDI\/7XOD%0QER0'h^?r7]CDCV[[ãU"8RMDgSG]kgNSvTX.Ww'''=OUJOXZ066L0d):zYRPj;rRRvES3Wu;UD$aop\?(%$ãU"dLk?F^l6'?_e7-XEoF4G-b\.fkUML>q/\EyA_Ym8a.^NQr6X;dY3&u%&//4F??8ãU"GKZ%8wbPlHqG<3=r\(HX?&TTh(YJHnc0=V.LnjuVoXdj5W=t?H4pCpaGnFe>dJmãU"V5CU/PwWoVtn>%^0%7E+o%P5EM9_SwgT4TYT/8*tbG&-i9SU67t2kN$KIGS?bMRãU"?qi,V-1R.Lr$IQHnB;&BitObAm8F60[)W'hU%4H[;eePhãU"cDu+t%&AB7PSetSud/&=tK1+hs/(\pa^A9,GRXcZsr?rl\uwhUOk#lfg$FgVCFxãU"4YrtG.XDuL&s4'8/c;lP(6x#RTYOY?68>kZmB?Np4Z&OHiAc[f#&6]^prag$G[WãU"edN:%S]:cjL([S&)L[f::[O;r*+xCXSklTVUDY)#K?Ha3AgQ'B$tW/x[U$FU$kD#;(*Jg'MmPP\ãU"KR)OtcCIDd=7(]7==oi1Iwf:;=u\0'56tHLvTp$Fwm>v8wtYHiN>5Ml>G<(XX\nãU"FcTQTq3adFb'W37pwC/1IC(vAZGmg3#+X3OgC'm&CSU80;c=p6YS'6],xj$[E+FãU"dOV)pM#'9Vf-X)+3FUj,UkULMN)QSS'r4n=QdNW1f;wQ?#Cg-OMQG'4k(c?/ESLãU"4iZjfwYGDk\AE9oF5mME999&d='n$YhzukksbKa0)8HuTu=$>nt=\]\#8.8,nb&i=z:%BDBDhlgGmG(0ep9hdqocwb0YWpvg\5z7O,N[3;P79x=0%)zãU"Vv%6h:jUAMDJ$I0%QIo%tqf6OQGOG^>?LVlmU-oSF/Kr8,W:m&_e)*9&:X7mLAfãU"STeE8TGgHp2qpE--ld7E1NENU13i0QqLZT1gAU[TH=71(VxlX'?6Tt_T>ZX%/trãU"6so905%Q9g'7/L&'X-.nG,]ZQMnN2#a,nHDhus)ZgN=jXXVX#,HtWZjjXHrTl?8ãU"vothNaN8il*7oa+ajcJNo(dX)^h*((d/D$gs_7szr,'CNieK\9e3k^\M/YF?S4YãU"uaI\MhhFas,:&aNB3c3fVW?,L0+PXS*&kIr.R(4I=CaS>HfOWNZh]VhR*H=qf$RãU"i9NmgY(^i1_61-;k].Q/08^ba>V(pA/$gY:ohLYzf\WMc(f?rK8bXiCL693n:[Wce;R&uMTp9IV/i)bT#Fa.=R+ãU"Lbk>#CEq1s1?Ef3iV-Y*G;y>65tnXOwA7O,3oY=ãU"a6(*1)tPWXj#9>wZ)'_e_eGf]9Y(D4tw3'SZ%Gu7:Y=Bju;f8*tl_<1qi)WZ%/]ãU"^tcKQX.P;%M.mgi*'0Jd4+I3_m3wvE-.;4a5I'%B[1uR\ZN'.1A>#HtCQb-e?oSãU"\-[3e.-pfDzF\=?a\0QScPba]3(_\kcA_rNv&on?f5Y,W#9$1Y0[_:g2t$NL/t4/L*r4';[esaLC/Qsa#3UsA3cl.B,7,2pa4-*ãU"ZOW4[5hfBXb9VO$YSb5i[/\Q,0Uhxh:/Udi%Tn[[i\fn.Z4WnJK-=yh8dP,$9/EãU"]5RuHa.?p:QGt;,7^E/X-/>=yDPSJr'+-\0m,n]9mD+H)h2SxVW+H]6c#Z)8_FqãU";wU&GLyRinbJOg'mA?^6BF*VE4#ON]-Z2i>*Z/]sN'#T9iYHdJa[bQ2nljNH47GãU"A7DHW_;28MLj))3>8>*',VNGRNHm#LN+Bo)9'gE'+CCA&jX:pa8,4g3oI?[IVwHãU"R2acmI?-2JC#9aROfQl[ãU"DT^C_Nj*Ux=Peb[f706Rl5z,_Nte$H4sf^PgQX5XHoGJ2;/pT_<&)yF#T:VHj1tãU"K?ID3*J/)_rA\G(Z[?29Q/g0,(>,bWUeR#eENi1d0=(m#'I?FOIvnt8d=AIB3%&ãU"pxibIc;[E):OKVW^'xK6m_zma4z*vP3M_PgW#G;G[j$nF;(^FecTn%JBEqSv44^ãU"YK#-6*fM-kRx4Gf60^Ev6Gp$:]f#>L8GFuYul[-JqQ_NOWKYBZpPk/3^n__eb4)ãU"5qbCK+)?V;jLD?HLaSzi0c5eH,s=:[MCEq+[HK5NA\5Lez?^Y8hN?%NavE)^f[XãU".tiKPA3+aa7gRwc.I7(r8fvsbBUoa];;ip]fDPlk$)6g0e19Hz&dSJ#?A'd2?EnãU"7k2-?:>/T(O0t-Z?a'fX=&jueN=].1^BKYsO.C(_fu^Z>Un:.kZHkbF5v6^;bL]19-9V9YF7X]B='#G+''k*;w+7'8HB[6RR7ãU"R4*ozSpPT(*Z0PDganXJ,cB[i93=aG%kDL3K/7J='W^uNPXz[0uq5NN,1/Z%3W9QBcãU"T>oYH7i4+o-9ZTQWYc7?/uOX\Bvwxbhug(NP-USk*]N:fMY+aF,H%\j(+N5M$vdãU"xl(RQq*hupsWLx+P),jFh>\;0-Ao:Lc+3i\\DrHzSuT/S^Sh3EH>-(QEB?pmãU"yuits\69HYfHtg5k^>ZiqK^3W4.v..Yzqm(yBP;Mg)E%Q]&w&8Z(L\K:XVU-j]NãU"$\z)3P1W$sQkIa1i?Z%'+NWI%&lDMB,6J,eRTh%mksr?::&i+9f(:HOT8sdIi4.ãU"=ex()\%?(YBkQ58Uk+CU6wno:BhYW'95\5j^4Mu0i#B<:QNVU3iNCG[DlkJeNfiãU"H.Gz\NVZ8FMi:o/T4:'p'j#cE/Ic;2Tr.X.l9eLQr1IY4eTO4/Y8R54;7R76<5pãU"%/1D'&qJ;OLWc4R9HU7W%9TqvO?[+6-C,jq,212rr2tr\#1V7ye0AUgVSjC();SãU"hZiHbOVOY#Xhc(66YthCsdeLXTA[bj+?sL;W$2Xn2bC#C>zI2U1A_#\O,1-\K*zãU"V/qkbnFc*U';/(6;Yuf7r?0^Pq<.,cXS:72z#fP91DT?7YAXa\[*;FrX^Z'FuPKãU"\j&>.53XBm^FlC'Osv)i)G]PrSre%qdn%4-#)q&\&goTJO]^,f+oCLFKJKOaCB>(.O7TaG$yrq)u1>]Q1-]D9(^NZ?CsYNO=zDp>z:A*[1)K_ltY3]]>:$ãU"%uw*=->.N1G1bA*l(F%xo+a5pD;tc,gbgS$8qlYLk$ãU"$3p&sub9#y*GJu=ts%[47s#8(,%3D)^t&x$>=m-eu?P\q\zKqNU:(;S+f%4rGjgãU"S/>aOIGjrkx(8'CxyqBPrN-4fNInn3oX?B2uCjiBKVyQ3lP*i.pY$2uLYV;\=ob*>#Ax&KR)QãU"(9DUT&CO/#2%Gmk^Ht&:IWIb'91jcG':,.7FkNUoMrYj,c2:>3BFeZ%tT+&HceuãU"fZl;jJicF's[]1#K>l+n*RL;b(aMt]+]*P/S9/B_EvOfgmu6Nn-VrYt,jC%Fn$'ãU"5%LTIp'P#]>Y<:1-N*WR+\InbamL=C9KMYZ90GZ=>'5AUMf[,0WNLpC&(y[:g^%ãU"9V461^'5#GV:tt_5]i&\>1[>Ito=o?4?Gc=Fs?T$xu/6RWS2.)^[ãU".[/,29(2#YR&+=',b#4vdB(rTQJw,rY7K('wc8;gr<6NYc=2*;[aEoqSQD9YUUHãU"ZNR(VDdUL%R*7NK'e?M0:G$1KcD8UHQSKj]b'bfTnvJL,Ru:m)Ti/9rU'coB\UCãU"lltiYOgI/spuysW/q0U-*S$Xh#Yk?(5GVSwh1)XClk5x8:rP^N*'d,XMRPEsoNhãU"H(t-63J?vRXc:(O//D^iB9#M(Ca9%uXzBcR)?^/9V>[TlA_U[SmK'aT##;nNpB^ãU"s;57dXA]Y>tV.]m^Sc^>]=ieBfY_,)SE4cqrB(jGf&kvSZ-*/;[jXP0:ge>/Y2iãU"C.D-rB.=)KC.6NSHVG,\UHuO_bE)KPLin+s\T?Ge6[Q[:'-BXwn-lV7jC4>A>OBãU"C28c)s8YbV#V(Dm,[XT5v*>CFM;M(UsnM=As[5[-b>_7djQ>WfrBãU"=%qR#Gd5\e1%I],_gXYJ/L=NVmj*G[6XtUcGKq+N-rF\DugUrDZ?==F^8$U;>Z;ãU"O;q\k/-[QVpW:,F'nNvqg:qnut4JU6wCIdOrAnU:)T^J(Y_YRLb98L:ZO,v3c;(ãU"WYia&Ys7eZdfpXHtiTkWAJ#Yg/tsumAsS$NgG&axoãU"/#uAr0#J#wE2r/5sAufGaSG:J\pU3hMnAo>K&+Q<_+*Oe$hTzzBuL((]p/y9-km6IEl_OH)Ek0g?p:;f(/c%_fre4([<^ãU")=AxU*>4-;C3eC=sDcLu?gp48&]ZNWu5==X^quy)K]]5R:Lg]6j[alS=,\v'>:AãU"AXXLcãU"^QXi%;j:9I)?KrZkaJ6enbqP2H2ql0SygHpI(.LBneuefY1G;aa,#1amn;c?_.qãU"IGT>[:WJjo.loJ*NEknsJu>N0I4?/Ccqbdbv%j-=jaOUq&+iU>k4Z&ElGE5M=,/ãU"_Akao%rjP2F\l_PRV6p&k%<+F).0La[P=][$GBqAkR/o/EKnN;U1pl>/eC0t*MuãU"M^JkA9sUm)\b7cJk_Av+Fqh3spMT##oY2Xk6Gj*f93'Ri?Gp_4liSeDf_3pR/e#ãU"1uPj'T\+g.+3bSdy:J6-r$F:jsJMv4)/O#:WigjRMs4-8Ny#^dHsg1^t>c*,JF=ãU"Z0mpVb#dzojfUorpF9PMJv>AT&eE)Z;mZ#beRes^2jWU-[O2St0mxc(_N5jNKD\ãU"NY?2IXM2Eep+*R[5#?;_bP=Qob#sq1U<77K8<'k:7;vtZ?Mg47h6%MH^qaãU"OjH36aAacLnA[jU(fI;d6j>huIJ8mgKONNy+k,xv:6[g(Apr;$Vok5>pHKBRãU"VMOC=$?E3qhI.RSfnM?pkJ7WCBg5rOeQeg8Jo$65)#55ZTlu)xACJ8Fqn5&+tVXfwi202df8My)T:C+J$GK>>IJWX)TWg'KIAjD.ãU"lAa.TSzfI9khTaj(ISr9mm/p4:cDao2zzzq-s\srL07&)GRLZ6E,TkDBv>0./+uãU"#JOqx'3H5MxjXn-($Z*VW_aC93[(Nuk\etwh16+Qds-=x--uZT'spFcbGwX_LBItãU".K\#,yZJw\xRr_G&3+6A.$TXG'N\(ED*49tj#Od73#_zV]%Tda1$B1<'UpzOc%2ãU"YuiUIKDeN8g$0QTo9Lr4-(\[c\#]gfT7\rAq&zd?n3U#L;8THãU"b8Gl$)^rdSSKCiH)HHfuAU:s]0ouOBF4P45mZQStjfHm/UwKjn)v>x)b$S#F+Y>ãU"mYeY5NBd[uU=dE\(,.L$$kpJ,h=$(Fc.6dxx$Tftl$aM1MeYOV8%$XL\66CW'udãU"qA6?6mm\50e4E+/LB)AQ-S&Oa'^se-MãU"GA4[0Mhsv6r_>7xdc\\w9pPfx$4]Gf17jk-tM9g:O2R1NMbdl0;BS&Sn&YVea_+ãU"lLMM9vw]OHZ5W:>Q29o:97&uuwk0)[lng?1?pJq9/ZZ*v'XsZV%'%0]o&\%[*:3ãU"E[:Go6aiZQ6ahn('rLijQBkQp.I]-$,O8n<-[x6BTJX,D4<ãU"u+ZUX2]gpz*Y\tOWDiGQD/0.g(KTw(L80o_]P*,%P>)49[-AS=P.npB8k[=d/BWãU"g<2&RPC6k[h_6gk4#'PfRGEjZm5[X%[AsKBIBCrNãU"oK*TKjjVNK-(jtlbmDMT%zomA)QaHDuQ7f081p1;YoGVR\+cpUZ))ohWG(B^eKJãEND SUBãSUB VBãU"snK[&%z[eynR%il2dDHi]_:<22B#3ioToeL.jOm+5T#\P9wVi:;ZlZucuti9gyQãU"n/lu\=WWBk7$W1kC#DNBjQL.T&_X6,?6*mb?R.E3V25YRz+cjWroQnn'nKR6>p\Pelk(;\T4+I=jt\8_E&H_re$'NC>#USmLTX^ãU"A/z:O:ih'w;25\/BYCD.s)r[wWk9.4<6n*/BE$>>]C)Am:N$nx[;MUYXWtSG?>$ãU"D^;uU:7ZruXU95%vto0i8OduE$cJ7aOG$/OlAI7Xz<8h9S2<)-w(M-f9,jib=kPãU"3L^3*;4zXquTX*RuQ=qx*PPossBg9(.#o:)QRX..1pXaM[AXG$^cK-#kVpT;eGlãU"2c'/kpHK2aS>N:_KLPU<>d?T09\Ug1TO>iMSH:ao=7XP.ouNHFI8>bD&Kh01,GO^ãU"h9d80#L>,M'>nrH60IQwqs>pa0tmun=$:U;j$lvroLL6n,3AfFe>;_Q(DACb[tUãU"6(jh)JmBKm-]eB&X-mc:$.qsu,3Dvb,SkhbmZC,OXwb&ipn/0$Ik(z)7coPoI*XãU"FJBCoSU-B^nNV_0dtxz^=+B8rG-6:)[6c7242h]LXVpI](YD[*F\NzT&P<7Y)[\ãU".ItdyCJ_GG3/Aq_aY*&SM2?zOpgWx'06Oq[I(gb?=F.bqQ58WIZjAYcJ+E0YamTãU";8E)Np^v=S[>QSu-Tk'lQn06VOk7(783e<5Tj^;KZãU"C<_.6xPJX9m)[?)aKU+S]kf3g/E8?SãU"oz<7_CYlA'Mp+3eBuv_1Gi4+0rw[&Yu^wK6X2p,'Ae#G&vW5B?6Uj[sgZ&ZY9_RãU"'?C4/ZAj4&^f/a(W]pZV.JiAqq?2Aff*L.A3#dLz\A[W.Yen0ãU"X,keTnHW'%SVG0+Ynpfh&3>0nfpNcpH/bL,AK][?o.?2]D=gV)SQq3*(GYl=FfbG:(3a6kU/6W&RCãU"A4V]^Xl[$1P[*S$+Pg;dM$\p[I5*a':i6J>Kc]hAF(mTTM?I4HloX;[do8tI#ãU"[Fq9u)hN(m/W]KL3Ja_3ch.3^tyK5J]=aJK>BO2?/?,]2.f0tgE>1>q'.;1[JgEãU"ltGIl)V1GQ0gA0$A]S_B2$az8ol5VU:cXLoO<3raUzV_mqB%mUOJdhxsfoYZ2>e?$Gx1ãU"SCi8)E9nzOw.vN7bJ_csZjvjsH8=oZ92A5R._S>s]6k3L>:VrCrãU"T5PxSJ>>0l%6ef0tVI[?3s]ij\2rbeaH;*PAuu.O&euL:0,u'm3O?YkAX+893_[ãU"Un%_HRscsV08aH7<4>/dr/8JBZ4Q:$lE#s(hM'jx>a=Rr;PV*Z=M2+hTBtW#w+aãU")5IMNLAbwj7kHj>2T^]Ksz/vq;Z<&M&gyG)f-1OkYOG[Mb)nX/^GoYWPãU"r[]^%Psn+PcPm4[CACr.y3up\ckqQC2^ovE+gLr_dp#[WQ7&+>=Bms48,1_P,kBãU"YJGzx2N),_[1>[PWJ$H)rlrqpc;Ezp6k,UtQu\_'b1pE9mg+_\t95bP?J)CEzkVãU"J'Bm-xk?7ILjz#Wk^'jllsfC4*g1uIknGD21I3[RhPw12nvxCwHfvqKnLfBMGb-ãU":]q6mJo>S>nLGNfJdpD89PV6,VOr=Z;=#Gj2-L*J'^YO(^W4vMSFV6Tfoj*Y_VVlMURXxLfu,VcQ\8e/i\4&A+mk?UCqI(Nys*'H+R[sãU"Ii2/S*_jw,%\i^DG[ih]U[%c'a]r&BuHaEbr6IjoYNNfM4gYQ.H%C.':E$mSkG;qoãU"qM[Rk&O3'WfutpCSl]e5x&%\DFjK+oQNF+jc,0$GRM?11qQgY$ilT:7M*f[nMmpãU"'1x+Q()[>a3%zO&X_SMlg#2JNQ4+i:t#jD1#h8vo*0>,86Rt(4i.zrFo;E^s^KrãU":cI]TiC1APBXK;tL4V::ga_68/nS[1^YjCfTId>P=#HJ6G7ZmOMoAbG(etG825,(_qãU"r3MTbpg0VZ)2&fRj[Z%s:TZ4F4u0,)L=Fk'FLKBV.e's$GOZwkeA%;8UYU-9S&9ãU"=Ca%WCHQp4U]R,tnCh8rjLDsk#e]\iCir:LL57efCo[vmEj9rGj/=Mr-rb>\_cQãU"9-Ai'Qfw#B5uwNdp34My9iFaAPNm)F_v1T].?Il]gARPOf/$8,le?XLFLwEJs/FãU"4IL[R15Z+*XYbm_=IXYt>-3+bw%X=/xh%kS5SY>ai\l]OMAfFoJA(Dl0lM%u2^-ãU"jHc3YF>dm[#YtJug9gdAe^D#_t&2DOv6&fkoy-BA>Lrt)K/=QCfy%gSiA+)8H8pãU"9;u0A*B\87.QjU::KuZ>E>.qUd7Zb#Oi]hQ_ua\a$q$yXGw&_9PqEqwl>N6E4k/ãU"2fNH:;eRMl:&K,p/zBBA(l).qM+)X/;8GCYV>O3%>OA4(mc=:,/)&z%8r#JFO'XãU"YK#:gHS9l+RQ#$Jbx.UD/WDch]r#lugYExr4Q>4eOtA%(oGqLBUS_/er)(v_SgmãU",:bCBh[6JU9/rcwl%9U-Z9Dbl#H19/tJq]m)r(687jmad-ofMTBbv^D'Ea&U]7jãU"B-iFrnr-ka\uF0>Z/H'>_z>:e7/l&xbN/H7=L=Kf0(:fl(Y.(Awr)>*H\[jqjz<ãU"sIK\R\K[KiQ6(A/Co(fgeJQ287I%j+nPT/xt35OiL;+leU^]Le=72L33m=CjL+6n^LzH,/QfnDrmiOãU"fL77;8$T8U6:.%d4)B.(AVYW^7iv%a>ty?Oq/gX\RkzTe/YiOeEãU">:2VcH/;$3aE_1Z9,L.xREP]Viff+1'cYqFzmO+(3FMC,uuNtwsOBgrBXj?Nxd2ãU"XM;NfeA'[,<8Z.eQq7MA0e<1t=4\A3ewKH0Mtwvb2i6*rp&)&a%T8^G1HR_t*rnãU"arID*._,f[O*]oOW%4b,tckrpLR1eytZpNFp8sIV$qTVZheTMp:Uh1&-NPiC;<*ãU"A7vvYJNK7*KA%p8*NhkZ53+SLZhwhTNKu&Tc3+eIYw&SRSML;dWt<26(-SSZnt;ãU"LU=A>#AI-hKuTsKxYtHRvrBegMjI.+wPLBL,:E%38/]ksMPJ3X(4j;S?kSmY**oãU"[O1c].v&RR)q,gfO?i'l(r.Y^U-5'aG6Lh7>Nw.985$6o#7%B/KbiOyDelfw/I2ãU"dAoL,&*Z/?K6'LWq,[ma>8_Pk6/O)>*%:+[?#PWRK>p%Q83O*UC6(*/:,FJU4AEmVXN^kZpR:AãU"#*'i'>WNq#yj7=c2mWb$^9h\]^i5_6=JmE9P:q'uU$-M[,DuJ7*N(>*qp;k4RVCãU"RQToMxqdJ[v9/[[8uNb+)84xnOEh632#>3YPY-4&,2PpE\IW1\,my+lrnMb%[28ãU"&\C5pvO%croWJZw--7LWm0U_ju)RUuX)QRgA/nXzQJo5-v($;PYu)Hdc,7BO[,+ãU";GvBtMy9(m^11NBho5J'uB[Tr&;xG,2s+>whm/&)[[=;U=/e]i\ekmm#1-%:4ZeãU"Vn,i10uLVgI)%uv0RXcKDd,BS6VXp(UiBi^V&EhcL4hR>0^g^,Bon/=KRs%rcp;ãU"Wcu2M'g.zN5IJzYBZ2v(G;C4%C<^/\nVf[cZ]]5)VPQ[,(]+Thoxd4CrdXt:^fWbB'ZJbVMãU"^G3I(%Gqrj?d+n;4R63CHFv*g0KL*.+6ELYJbwMqLJTqY=F#Zvs+HDF5H^=[NA#gãU"R1K1N1S\)D[HTeLT-kkEQ[p4^$qy)7],-=So,IYEh]t3W*.M4Z*ppJngo9d1FFKãU"/+;%2h;yCUzAMkuL9w,5gF_m6nc#uQZ:YU)j*K?ZhcLg(TEVNM\$nQQ&WCV^^ãU"#ReWR.Yrf;u76GIaLKhe_2rh#mVWlBt30c&d(QuDD&O$Jj1>)G'e$O,Qocp.'sGãU",xaTsUP/i8erIe1\Xx<*9m&-VKMb=mD;%*%.HiK^b\8bGHIc.05OãU"SEZAr&y*IUIP%RVW5p<2S:Qg<4,=0;TYUMtdHSwoP>j[uCNM\So'2SgeEn1[)%2ãU"Vm8/_\W&%L(HI?[Ti,u&EKK09oJs2*6zto7>z-E6'$^DaCHDHFZGgkCVpR&,1;8ãU"6i,MAktM2%wt+vtt;bn7b2MKV5[4ss)uI#$$RDy_(KQY&4n>Gpp6H2t=:bjKRd=ãU"8^YRL-n(U=[aeFV870VG'_TYT02*lDdfgA<\5?S,8YAK9bFqT]RsHCbJi[Ff^vLãU"Uu*xiLM0xN^LQxKY&4+g'=7/*V6:E^-MUQM;$F<*cp5#P3hfEC8ycoenLOt#3dTãU"J:ew1Jbka'n6lh5A7=cp=f^G%+YL?h,UEFyE+H7PWG?pgU)>Exu(E1#bVf8yI9FãU"C]JPJi\;0Gcc?G*Hm-O=4r>mGZSGu5$(:%\1nUA2bXh4C[b87XM;E:KyKE;/uXT*AqA7ARf2WpTR0rE,utI*=RWiZ;t(1ãU"zA_7G12Ltw64VP\qfEsu[XY:/hBw7PIoCH,-SrN93bssljYe41SA'rT]X*m-8(dãU"Ib/d>?bG>?38JKzh$:qP[1\vH2sBPyQt\6DfZZRBK0y4&UUF4*j([x$A\rsu[ILãU"PfW.nfBu*IH^Pb0u864W]%,v&>6XJB3EXJPi2'V:t.(vG6z6B:1rsn/M^L0%54VãU":$;K*E1tbVkq_v([T(^pL7uFX>+Xc=d&*eGL+0DU&w9^_Z[r%:Uw5S_2O9e)/B(ãU"P3]1CZqOykcEjKDUYqO3xqMcB>ZwAa/PY.dxc6v*]uun<(Zt8wi;U02tlKu[6KeãU"pH:k:3U$Ig]j?Q$/*h:Uf4bLx_E9*3,?i(Ep59U]:6/1UxBi7%+5b$dY(cC+f*7%9t/+W0?AkV4V'+0d]co_VXVOHM;oDOsD(;^<ãU"CTsf2?LX[B6,SdJ;zAevxcr]/4^qLrBliKr*)k<'c<=XQN+c6vãU">&Gdz-Kp\DDqGcOah2L(?(k,UmRB-&u]BjuPg0*(eC-hpr5nuujqv?+S=7f8dMpãU"ZcV4&utigNpPOth/n+uWOF$zB9bi84>bS+9O*0/<8z:r%^dpCYiiVB(F:f(U,lpãU"3<\uOfq'x%up%()9%%%%-%)B)2J6U->q*/<%%+Ev%%%/%%%%lnkq(z'SwUf&%L$ãU"xFAP)DnO78Om[i(cJy;VuoN?J/9V3Af%/RfiSWVh4Ai924]34']&JlVu8B83K'6ãU"e3J1*5,S_R%0'mQ'INpACW-Md,RTO9ZB3X;8d+G8S.w8Z(;R(?ENQ.inZSLf8TlãU"dmM2H>5ETBLF8kO>1*Y._Dl6t^Bd6pWVd?qkhDrxf#&sH\##pskwoujXxLWhKTWãU"nNboQiA2^^\Ed[+tJpig]VHB4AV$_UipCspQ9vmC3$mpsc1hAc'eqL$1+aJ+MbJãU"UatJKBGVp3$?CWh[E0p#lh:k6Sm73?BF(Hh[$Ow_m-nBt8R1^/E38in12Ph?o8rãU"9L340\eFl_yJ4UtI4pmVFF;29eC-ag>m#B=mt7+wv(hxPPWR((6x2P-GU+YIdYcQRVQãU"=.$RV;W6T^)gS8Xd+2BIVS*p/4\UI+YJY/>8?DUwnR,YO:$gcD[q21o7C=er=2oãU"o4uo;\:l:Wp:cw:fQM5NI?2/7?E:bcUb,3e>W($VqaiNpmg5pWLh*v?$U'MdUY%ãU"U]Y]AcsceFsg+#nv21fgnj?dUqjBC;F63#3g\C4]UeSVNbL5IXDUpsO49<.C_DEãU"lgotJZrOjgf=tphp]pDmPMAeKh-;9t?XAYDP$fG'UdW]7UWMXOW->3?a9ãU"AucxA5uI^]aUuTIAiXuGq+oGm]ElV2=1ufBneuBfdE9fp_3Gg2yFi'N.'0xe=EnãU"d#aFX2o_U_IAhtnAhv22pP+?V=R20B12B]qL\=7Z+*(+rezF/(c>$.&*o>mTs/mãU"&:X7uH,LdT>QtsJFUFT-Eu^+fq>8F-_<>bMl+v$ZVeV0>t:RwiroeZOqeãU"PLs7J0g3>4lrq/:+-?WG3+r/hBHPWLeB5PV,%0UY>2hK/HmlZ)uJ,aãU"l5Th6CS]Zke),#TC$OS82nZoNr^Abl;C)K6pjGj)wNEnN1Xc_-c-hf+[wDJ,xX#ãU"Y;'A1R/b[y[uB4*jm.J=&qjuHQ7E'T?LX,0[a>',[Nml,(9PDX^[aKu5he?,(r\SP7/WãU")F^T,2\;aBRLA6Act7^HB^0YLL69DWbrtN99X'qf-^;2Y$GZ\-GJl.8bAbJ1<=mãU"l\Ai&RIIEKQMMPwsg7ks0Hk&kn3#\H&h,AG,jPhrg;pwiq2:K#)9T=77fm^FDpv3LC=i=CS,Q*u+3Zl>miZ5Lf[uOQV:T#1faG6[2#j_b'\.DB+7S-R5,Uo=08ãU"ib^w.i:'/7_O^>JcoYUXo[)_XB.(6mC>hfAPq?Q#lJttjic/Q+$[q80su3>A&g<ãU"<>+u7y.SH/mEjQc5]*uDEa(;0HJX.9s8Gg;#YU%6#K(L$YFbYãU"sVbqpOAgv24/CL;(fge2&#.Uw?,UY-B&J1I4al[]/cDJh9:[7M#aATf3/3uJ'iI+_9iQ9MLZpbviN05.Y;1ãU"wxly'+g^+u]:Y;ZC1x2Ul5\p2wrXPFZ760&XlD2UTjscHIg4C,l[U-cAqS\CM'0s&Tj3Mc)r't-BVoB[.#;2K\MKhly'ãU"Tl]AGn[LbFep[9xCeai,#L*'(lZgK-'13]v&_;=X[i%-AmImDG:_]hah9RcZNu(ãU"09(3p)-uV.2^NclY(P.l4.?vwE<(*Co:U;uUK'D:1m'3lqWnT?<);='f>YHg%wFu\diD/:/%/P.]Y917C5FDTYF4'Am)ãU"Nuq6vpaxj\G-'e=[9ndDrNt[=iSI[./l1BXv$^Yh#G#01Qeb(/-6'#U?7m%xDjTãU"c^#iaKXgZdR?M#>pW5km+1qd+C6Qv.4r+X/)^t-SGT(*x_Sbj)[ãU"?cqvLe$Md(;h>+K*Vj[e(Ktkfn6)ãU"+C'ZKp-]&O)u,an$-jJIO9ab1sfEcpBUH,/jO]CmK0-\YU?dCYU788IHsMVCN;%ãU".^-Uj%9??z(e]Cxj4T0VJr=lAX9i:ZT-w3G2<0HvD$1fDQx]9tnOuU,%*G-fF,AãU"DA=F6BJNk]bDfk9R:?B;?v1%g74$=;[wNQ[;%Dwf=;c=%c*Fh4Sn[5RnJ%4:+(;ãU"Qv'%kNK2RVJane]iiSiC*$tK[eT0&?V[&?rVUze'Jp%Tn'l&08fMq_jK[Bmz\x=Q33[Kd643\cy6nãU"*=.S^((\,:cEOOE33wQtZ&75+7\.uW7]Iuq/0=K_%JHIhC)N)Z#QmikDSTsg]q1ãU"j(Ln(Nv1].$ft\=^&l&(-6#vOpC0XC(Un,A:Y(M4>=6Cf;;AGA%T#KwWW06ndQ.ãU"Bu4QiH/XbBiQGrfW?]:cxr1$J7xac4v>,>(wPCW2)QqfMLx)xYm%9&5DbZ?pY:6ãU")7.BO9].GZu[8/wJMN;Htgqw))x=]yl^/a.e^c,(W77EqLãU"e;DljIdc%YP:G&,9c_*?[YMzm7L7Eo:sYLIEA*#FK/ZiHH$kP%oAZuo,V:,rI/:ãU"B0Svw:WC5<6c[Z\oc5s8[+,Lz9%i'w$8[=]MObH^#OWK+ydItk61wy%pVf.8H0dãU"\j&CLFF_,%bRl.[[15g:7N9uw,Wn,dDzuRLU\\R$0XJX>NI5pOOu%7pSGlo)j*=ãU";mg2b5H[sG%Y%In9?uabpV/%(XF2\0UC&2G+:F>z2OSWWAS/oYe74/O+eZqyad5ãU"l7TN*86n$5tI+:36ckXB[\i&_0/-4^lU5NN/*?<eQC[6-t+449\hu3.koUDFFp[,Zt6GIw?k^cy#ãU"tRdqh$H7+]$sz'P%3'-lW%Mu_ig$p5:#SeYdAH)QG?Y].dG-6/N&9Qt&hgt]:]]ãU"v'[0q2&-[-*08O^Xh1x=wgenlAm#ãU"V>fvCM+#y[ImOSC,<8B+^k.+]+9W?,4B]id3hUMJ>-D^ixC<+VY/E-j8eV*_J(0c&o/Htxm>4cdb-L,K&4<ãU"[46J]&=ARV'LDaiqLvTC8Xg_ye:86;#mg&eEJu_MUubB0LOzH>vz492CLE4cR^GãEND SUBãSUB VCãU"&76N&,=9eqS+cua7q[+OGx&04&y__lPctl.bxdTKM5VTEN*_H]^(^*opILa^u6&2WOs?^NmS(OTK*fEVLDkK_x-K$5ãU"vU.&5DHC;NDsL;dIfDw'dtah7I2>('F$]=jdG0u'9wBAnFDAh=7]8ZZ[EBIgF\RãU"8G/0fR.mj8QR3IZ/+]Dxmg?wFB0&d_k6tdc+OH6+y,J)^\oT_=5W5IsY.EQuwlbx(ZOd[\ecãU"$cg%qaQPlk-3Qwrh-)26*7+,5xN9#+p?1)l1s;^bMVkSiãU"NnJoWR6p1Wu?o]Lpxd6OLp6YCc5E_P=ynOaVek3;Lab+glSx1Pbk%ROhf.)1NuZ^MP#ãU"l%8frLBNfbPJd35z\4h>MCxqM8ZTUpA*MUOH7Go_$NcusV^s2S?%s4brdLUtdZwãU"OCUlM3ncyU\1^DufX,dk2BJvTNfNx)YIdBNpXL^go_GaNq)4wUWn^dO'wEU*o:bãU"=HNd:jFtN7sZp+8=?Pjl>=FQGz>uWq^kM22?9eBTNg/nb&eAT#dL?cQPcZpcT>;ãU"^Kn42eM+[lewhbCLupt=-[;7ke(^&3b?*Yl06XbDl%xIl-(8\dYHgjvqmGZe_d^CUTlDU,p]NuC$eiD%ãU"%RrDtS%0][LMCmK;1A7yq'H\uZ]]R.tKq6clPon2Z272%N(&NDQvv:zkt6dnN4jãU"j\t/l\d5oIZp40PY0;dJa8rP&(Vk'x0PhjN#n%ToPWV'zhLZjT#%]InqEdBpM^<ãU"J$(BGRdcDu2m4HMLH5p5G'G[Wrdv6-<:MTEe#:Y.=lx^ãU"8*Ea1&LaAgwYCNPZQ>D,'S=J$ypmS??3&:??tFg'Xo2*9qqVBxoTNPLtM2,ZBT?ãU"yjK,8o,<;MI6y]#BRhOd,/%4<3ndS*N%KNxfNHr6'u_?;LBPsXnjkhB>k2GI6YZãU"hy#;x+\_P**7g=)Yyl>HM2KtCP5k^uM-i(IT)ws5ujC?Xr%KZt-81vQq-I\&rhNãU"mJJ.cwdDf=;Zp0FC?6uNBt.y6C*YdP:-X;dNn\.]d8iw/#gu]^bnd,*ok'4s#LlãU"Guz(3v=fZEwVTnsbLrN9'DGshN2AkT=XxIJuYL4A8JoM\,Bh/4k$'UU+E%PQ3=0ãU"R/?EYv6=&fU+FQ,m&Q?+edA3e%a%N<_G-3uk0(c&MBHSBjUPZ'f,\Kw<35z+Tb,ãU"8[6UaJ2G/M?qkY<*3?l*mb^pPbHhDn(Y^NFe%NtIv(gOyX*)mVBl-h#MAc2hM7iãU"L%Jlkeyqoc+VAOfe)vhaGyGdMZuBL58pu'sNnk,.QtBAD-v89$rX(xFrs>gwSnrãU"9XRD94vBO>lw$kl$&PP&3u>EUhP/?LHCpNl6ummnEj0upRKjlãU"B\t2/dL^dYM/S4#,J=w5bH+wK(a,ãU"kM).*2fYG-rh1t1583Q&1jcLH_BVSm&):,8KeeK9^3>)HRc1p%u?^5*wrHpgf;_dZf&D+(b&)+',;lZvnW#%?5+<[Jl5\nfãU"2Oic&Y>ib2tP%TTrEM-)jlGMc'W8^EJi9P0Y=k5x,bex0tR1W'&>psqh,48WG:LãU"]yRDre/kVFj]iD\G4>UGiMIYr#?gB18^nNHFO-)Wt\2F?7xo#sTE8.H5u'w).HgãU"zk_IwPKO[6zQhFcmg+N(v#Fm+'VuAZd$bTw6N)'hqmQfCC-M\L1p:tu.L$zbfb6ãU"P5*h&nMuA*zIBJ,DiM_K(^jp]o];UBW'Fa55]HTE(ebdi=?;a&JBZulctP>M7j\ãU"fd\Ms$,*#pl)t\iA0>stkMpRlgbNM\q%tD?lVFLfhFmI[OyR#j:HL)u7/jliPYfh,f4sc>#/KJr=bl>#pL0?F.OTãU"P%g6.(l#j+bWu:hkUg)>H6k=:x*d4fy7c+s$]l543[AE0G&mQ%#m.a:tO-tQiXVãU"xw\]nW:xbon-]s,#*/ZwX'-FHtjan$(&Y&Czoz47;ãU";)g265ZR?AHq)s]Nxm9/\NSvLH%>6#9]AeKI6_$qclo]0Bbo0Oh6;&L$_r7N/m6ãU"M\6c?wBCpg0&eZ,3:3$hnPz)1m?<27)kBUpAMk2VMGm+?b.BpI5d+n;'+aD+j)lhrUnsdKc3/L$HZ]tR1OdNYsbrnv(dO'_6ãU"nPO+,Q;sz36A4C_/C>ruInr[ldd_I+*d%-e=Sd2[HsgurfhWqq0NbsH2v9N+vI\ãU"50([Q,uN]MnY:>rF+\g<718dTdisl6s<#o\&Go-]AHkpKn]W$Xv-qlxL40Q/>kiãU"$%+gY3/[7+sq^ZXIs&OxUPI.:QhGK*oZ6tvxr]ZdNLYV^VLzSkM7-F*x,=&iq2GãU"7&MbZL1B?MW^hvb,gXhAW7IZlDFuSnOO9bd=z^xs3gN':5Qc;y(SmPc$jA<.gBoV5?lãU":N4uOhxc(?m$<=g9tt8-MFrgeZ0PuU4$H-&WNmXlQ?,/xP,h-gJK?RqãU"/.F-*sW+w3C5dpbpt&D^^^o<8)(SW+H^ACt_u_LH,neP%V\?/QJ\ST\QD>ZFicwãU"Nl$>ZDx4B+(ZXai4Gq4M6rppSJpmEKPXtLfvPa3G'LtGp$0TPDM\2x:&Llpx/,4ãU"UtdncQ>]/V)i\B:LvGtifL=o$Hm,vgPBlN0Rg'j[[#XZTQ2iBl,:gHflzY$IV3cãU"abhL9NIW<6=n-(EtZgk%8G2]a,O'IE;Wg^HOYiRUT_6jTo1%ihMO%uzMJ?2[AGtãU"([:ekdF'.]bZVhI8pqrqX6aLLy6ZKPd--sS6jvtd>wcZM\#bYBn6>Z7j?na(9^2ãU"CKr(K#&ehp/kb7hk$F\ns#hxf?s6F$jd4IvK\rãU"OL4EHn;OG90[gFt1wR;7w^I2pI_'VrW'4p1d>+*s4+77?wlddu4s,Ts#xãU"b6WrZB(KiL:joYu'VYGt*X5InTlMnmM86_QbTqf-Ux>d6XRk[HM$irva,TUX?pOãU"u?N1KxfIdV-LdZZL2u35bDc;e15Jt0DEt#rF,lLdjaG9ãU"ZIa2&u.RORHP*M+hhmqnM\FM&zB4((z?mW)_x*u4xOm5&omOlu]rT30zvLu)3.uãU"2n+dHtQX&tu8s2:dHtttmucBV&e#\>XR0<_-K>K(LVnpKpxDqkãU"GSZfsA*wBp[9R?B_;Q]\2Dq9i>AnS>L;g&q_#v^/Rdw=qoLNcaVYsOHPhdGr)#pãU"w,u''pj^*ACMw%\2;_gFQh<;eZc;pRONFtIhh1ELO7]Z0m)dx,em;zs_7/%3qOvãU"hRCB_,p.\S%(iX=CY)^(6\OGfc8,6HF%\R[0Q2m/)N?KCGQeDd(Eyqs9OpqQIxeãU"T_?e0_r9yO,0L##(#F\[cxP(5S>5R*lWUgb8))EY1FPMm2kkxC=$oConp%^Yc'RãU">l1^XP(ft:3A).LkX,QUov<4cx[1(qZz'.hzBIND5]Ae1=A*]QET2V;rN3C1qUDãU"-OD($?oj-4N)Hms;Pu+A'Q((G9K6c*DM]$-\mv.]6KVf:SBl#&da91#7tkx&3'#zuA&JweãU"TGs6Ngi(./B_%LTRtD?J]Ehhi+4?9gLeO2qwaaTW\a\>:g;\%_'FbgOnNYBL]P#ãU"7c?9k0dOYR))7\LM))'gy*q#keuWB-;Wdj%+wFpXux1=V#Um\%h9[0_HPDOMNhoteZlãU"l%F]0fXg1-2VhZX9EK\E9:1gB5-hlycmRxl'v.?np'6'3)'qmwiQJ9#k3c+i?JoãU"98C)9BG'v)xSs)D.qdLg^cXG>U2HM;Z_kaP0Kc97K:P8VujX$_%8c)aD>Z_$W1eesDcF.CnnãU"dNgkp9WZ0\?P7Lf,soW>wJs,JQ(2Oa)9eDllBCd5KZ_=F4GFa5\bXn$:c&.ãU"wn%*U^qG4h9t$7'x;9kR2dt<:]1G'Dr*ibfYi33(gST,TMc7moE?Y6'X(IfR2JKãU".u[)5gE9m<>;9FMBz1Rdil<4*YE?Q4n&W2mwiNp7SJN[[*VrA/^fnA/CC/l2$sPãU"&gMzrcOv4z[[l2>VQDIYT$GNh$\obyFe&2ueR(nR+3eMV%hQ#Qb/8Fc(JpsA3nMãU"ag1Gt;ww;S+DjIgV9r/shp%+j6Z:2RjS8?u9C+[98nZ%+dZ]ErTQQ'IR3*.VãU">JCd),PDRTfQ^UHUWAi1X+&SZ*6cuMQ9#5MTMde>By>?/=X5(<#GHusrsVLNT2ZeoWt1nRãU";Tfwh)h2jhkoaSndMaUGeZeDaD/Fd,9??.BRiHC\dE[xF/2xpN.xe8u45kx&JhLãU"lwd855=Hi;pya04])Eaq_9B/O)QJ)(T[m*;b22YN=5Bx\p'dOq^G-)?ohIdrdQu]fE[H?RMsD$*'OYf?Ka/LycWN<:'H3ahsg,EHcv8+(_CK^AGip)os*3ãU"%45LKY]MUsdiLHsg,tz'Aa:sj3Iu#TSOf?.,e._<ZQefY^;0g+4_o[fu&c,k$siYãU"V&?X_p4kCIwp#Z78yr,82O-(*ft=p5vM+WM2-iu-YbX\7iTmr,lDaq?bKm4rB)fãU"U+3(F0TF(^uQR,)oG5gUM]%Z52+E-uC4uR=R'IXNIE=UW/C;AH[1By$2Tntbu*?ãU"N9AG#M,<]R/qãU"P%Qd6B>b/\*4FQhG9HãU"#_Z3>*Er=K0C'M5w3=fNHLkeLa^H=($&5'A,DW]/K.KP1HOS3u]p#KXMmK#wFT:ãU"vrGWgtidAbsfZAkjHn9=FY\I]H3][IZ0D=UY?K4X>%PakwefGQZ>:.l-1IS64COãU"\LGy.$Zq8-U7^Sk?#je&aJ:]VF(&<7np[GtGS7)t3a8lhQx_ro:m'3&*%PL=PW)ãU"\-M?(U.#H(3CU-%i^$TpJ_)=\m0Y4KNY,vGtR0fF'$tGQG[^KAAe'-Ut%Ct7XW9ãU")dR-RB\Z?cQIzv5bSOzOm]]-;;o^dXiQK\SX30HH\w)]:_*aWLMd$;HQC01]mzhãU"C]1_'wM0VI&NLIvM\B.:\.(nbhR,\\?*CtuDfta4:RQknY+u5q-ILatt*FgC['qãU"xYx-\Kbs+=[&#rGO>&E)Q6hm9v9V1?E4asH?qJ#1g3.;F]b>tCngI+,K'ZF=^2)ãU"5Q9D-gd0:/WN0dq34o'q.Xw%QS=m^L4ATr).'8]-7.E.CFSJgQk_=bk2z-ei&P\p^Ak8d(D21B,Q\e_[[vM<$w6B$4n*tybiYwK2=xTg#-tG_ARi,9ãU"+g1lA*R?B?IIhTS\P%b*5%jZ<'00-mW;:qsQ-GrfQãU"W#2e1o:'Z2yD-3E;&7KA/(($s2J'&VM;''qOI&;XCAYuyJg]_oB]K-SdACQ)SXCãU":\UCgN2]T>]K]8zxQqtpT-kSXy^)CF8w$a56Hb%ZGW69=E[-DVa91#.2^%S%LwoãU"g>r/9;6j1OD\zA5JY2nf9;%.g61ba8PScZ0\Nc&\:M7=E[f5HN-_MW?Z=?I;(*HãU"()r?0O:Yc5(%dC60+gp%VkJd2qzV/YB^RYwngjY):KGZbD0tdIrr7FVLEgJdY+sãU"4mA%e/#52Shaf84Vw6Ek2S#t0vI$:a\cMx&e/Pn0(R[?[K[L?J+M7)3$X*SGWaplR?P&uM(2WãU"Gq8DY,=I7Om/-9$8bZhj=xaG(a[\gxWe^h3xndH(u$;i*r;%dyjgKI1*G,L?5.jãU"W7uDFOQ\1*HZp>-6:>b2t%gX=^*mhKAt_&M)_yN\RQ=k%wDs[R5w$&#%Reon=/[ãU"=[M$VEkF)-c,okJ7p9NZgk7;QYJ[?7^8Qi&i>m-M:L,8[KGOBwCtyE*,Eba;PC4ãU";uY%;Msd$Y8^)XL6+_&7i+Q'-%v&2j7wrCz^xCR1akRXE-ZuqU6F)7uk^j4EvG]ãU"I7f.)'-OXM'(%*0753Rs3_gãU"eaw1%m)280tn3I&/m[M#O\ZgY=iRS^=v>Rl(#Z'1-+S,f<_a$\g4%u;A8>Wk5\CãU"ued_8TG9;v+Q/1NRCouYHH#U)QJN1lcFL[OKc1e'wH/,.+Fg9g#9:c#eh/(:U['ãU"RA0=k,1%XI19;)QWf(1<\BrQ_:w148jGSJ)R24KUP7uW(%Wq+e?v(CLG?sb\FUpãU"mu5S\f?'du#/TO'H+XH5;Zg'K>Z'B-P_Q5].OS^;UW<]C'QybGlHGw$7i?f0;*J5EC'[&1.o(Is,7HCJ6WH:.19a=Vu?&TãU"i;P)Ma8[nzzn?1D#VSDFEq1qcw2/Z>Bl8S^(#V4uEkttNoAuZr--AãU"PrNW0:H$=S2F'QtKkR%q<[.0PP[4^n]JS&),hHELZ0^Pcj3l%XAGP)si7YY)6n/ãU"=$C[.Y[vGQ02W]fTB\:[c8v,OKVv4wadGA+.+2(-+Y(*P-E2ARUVeãU"UbaB4?S&olg7oWbx3G>?PdE3nhAR<1Luam/n&&w2K6GGV*^_)#Ui%_[6UpãU"mr+n_M%:qUxr:[Pn<)PjoddY^eU]$(3>pWTA#>t6J+%Cs_$kRsBfOGiZ+5Q^acdãU"3B,BB1JV2A:CDRUkH>U)Ro(jd>2#C4%IhvSf60jg\D4*JQ?Ml-oBb/Bf\N#V]eQãU"g=O+EEKt>AD'\=F6ãU"(U/h+n+6\NZ_q0e[pZMAIO60[>?-qu9re/1y5Ygi,wgw,x%H1H7mBq_Y/^C9$3JzZb:T0_k2NQVh:<<4ik[)ãU"H#YjxDyu]Tkd-#[5,i9ZAy6edc:e3'.I'I+01&$j9?<;7G*$,r$w\=4Ir&Se'mEãU"[pKb0q3gmB8.F/T_aTA?Rr5hO%u63O,lnFcKKWKiG3BSC^;U2R_4K,$AX=HOa]^ãU"g7-7_[o(g1m1a1]I;oF4vr(m1G?J99tacl*Lms)OF]:;t0fn(-&qjnXw8M[mntjãU"\6AGJ%Q%9ATb)o6]F.2'ciY;5(_Wg6*,*5DUYI%k.t48MmAxW5+8N%e=D/np71,ãU"&s+2F538Zr*U]_C*KV*Si>c,CAYfHxS36s3$T,j$kVTJ]%R_lf)[%qT:fJ)I(S[ãU")_1C2o^2')NqMsR5mkR2ioR;2C-kza%pIzxLl+,Sh25(+Ja*i)D77.:^8=kgLNoãU"Y9[hrp[Z;$A&Ik*'uRi]iyt]Sq1;eWrb$v'MtBNN3w))oo9Fc(\P3sVk.)g='ZFfd4414VR2fUdeUe)ãU"re]UG_0:=-sTV+FdU2BT$/Cp34JLA](0ABkqsI>.ãU"0T;[hJO?C,V=giQLEcmy3hQ\72Ep=%&s4ENQ^e&/=nEuãU"QH;c8+OYNNjls[Hc?U-wnG+(v/A2*VtREaD=jDW$B?eAeAP=V5;PNapV]k4dmHIãU"Jl)m3BG-_MxZLDEsb::BUhv1fG$XO]V(QM.kX#,f]-k16tZtxN03x00P^kT?,EAe82?EG>;awhEH?=ãU"ip4iNN#XOETy1BOMAoKhqk\l30BGy==[_<^&'Xp]SV/^C9V<0PqCtU4f&1;7._3ãU"TeTUa'w6-W(2UoeuUfUDOcFJho+;97XB=Al)rA'WD(&a81iN\[=<[0j-*pJ-,_xãU"i5W2,w*EU?xfjY7]N?$U-\FtR7>vOkiFYpDVf<9YoUvãU"FG)a]Uz7;':V6uA6AQl19/9AZ[\5_0jkQ;YB2fy##HV8?SXvtYiczx7BVM*p:5qãU"^Djsv?t4V^?Bk^SL1oA=$82Ur<[9Galg]+G:d*8YFqpoM:,6,wpCq1,P$Kx&2$CãU">R;]<.rmqlI8Vl)wQ4b$M9bkZ)rApqlhoZ)E:G&sv]l1/G_E4(FGLMF.-sn_yk$ãU"MMmuB/9_/1o$Bt3D[KNO;*C^J;m?(?x8Wm$E7;g-Yhj0*-qEQ1AL(bJ[S+QkQQYãU"h_tJByVh7uI-kWG0q_dV_)KNuH'U)8y.Dbi>-QU4av#Hi9J27r\8PDn>X*$F%(]ãEND SUBãSUB VDãU"o0rdXeG0UY>%qRZ)=P5Xe%+]?=cE.H*O9BfFy'FrF_2oN].7OSay:;Pd0$-[dipãU"oThmr/J'YieLIMG;I1F7pM+=[)bL9]vL7DTpFYW\YMVA48$)hUW9gGeSIlsRyxhãU"cEtHD]W=w.T7#eTg5P1u?#Yx]963.)hDB-DvãU"zdz(G-(VSPo%v&=r)+T[qq(T$Qa?pNQJqPdm]/adW>=Yt_Vn:='PCwo9Jq1zg'UãU"yrnkWkVCC&13[%2a7(mIWq-39+n:o.exOTY#ON(ZMvbR&cH2auf(G*LrU1WYTxlãU"UpEe7o/2=NuKK#OQ4F9H'q5=YfY<_UOs=O_CI*uXKOBW$8pbcWãU"OtA-&.ktN9R?76np^5PV%+104LRU,:A:-YVF#+pl-=1iU8YSj=r%_,#Pdj1^?/QãU"VkMjIL_JM;9oIogjaua9TQ8O#23QL/gC1jX0naJHCWãU")[]iY8+DrddL??qC=D4SetN)H9O)HfRg-[)Op[K1f:p/<$7C&w/[(,OXk]E]<%%ãU"%fpYP8Ca9w..o%Z\4v9Iz^FAigxC1%wwLTWh7*uZoqãU":r+EuIN=X.o2,sh=;m(3GGJ&f0tKl3E'Nu^m\[g1[s9c5jUwYi>uPH.>tPY;#QnãU"^kQFfOcE/17U+5Sg);7)\$p4*r/QOE0_lSIp7,(In2IQãU"jloMR9j)M*e?dH5WI#Yka'$GErPg?*KZ18_G1dc$CoARU01*(_8ql&*[\5tO\-:ãU":[MJzx*YZAKRr*jIVsPhz%j;UtdHFR#'JY;ZGDIMu3GF,NP25PWrNN*xO^[.wW,ãU"UjZ/9eT)7&.I).[;OmpeWf<$4AlLO$+e/<$e*4Pg$.tXRFBRBVl,f(Y:sBf^ãU"/KHoO2;-oz&y6*&U^uUoIDzMd'-gA8h5<$VkUVs*Mk]2U^Cu.j'-#G>_)+QDi)QS(T=I[70UX2U^A>n+kTr/+XZqN6v1$ir\^rivmJgojc*%0AChNãU"?=iw60DYdzof&U$VE'MiVs=G[cM.62&.sO/bZAw,-B>E]up-;utzo0\&vU2TrX0ãU">Q9axr1^d;(1_><)0;+M8aHw$tf\Nca5P:xKHqGGq&s&qD#7p#t[bC)fuZ)LX?TãU"TP&r2kq:a0#K*Bi-5^M+9ji[7U<+/G[Bx#p8lxK&CMCR,3lI&GugHyIDB7tqzfPLkMgdãU"NJ4t+w\hS.S8LZrtX*pWHq$QnSuec1Nkl6nXi&1c-Dd[yvuHdkRE(nU*&2#+ZhRãU"pHpDbdauwJ_l8n83tCKHPQXKeS]*[+,psH.Sp5w5=;ZqR:>Io[SBnk/_k6OlXRRãU"wKefDvn>G$8]_DfTqLK_2BnHX+hu?wp+o/6##J>4.Mt*W6v,FETD?xlVd<7+TM;ãU"lBn[1D(N':pu*9#;3VLFVH;e#U^mzIYBIXg75^ueo(l+n;3GJQU?D5fYEkso)$eãU"^Qm&7OqLHMei2Cj\T[,P<'2>.k*wl/q&HVXOC(enlYN^ZBZFJs5INQ7\uoUehWdãU"69Y1E/t[lY1+TuuupxoN'Ybmd5lSuqpk#?kmT/k=E42Q-NwD-vf6x5FV\O&FOPAãU";w]N)2fI9hCKnIZ-&_.ZYwr2rGKsVK7kE;d4^iiA__8R_%0^?I^;J;Rg,JkuQjOãU"MKk-k)s#3z6[t_#chBvM]Vuw'Fh]Ra_'V8$$'_lL):+(B*%:VNA.?#P((rkg,o\[lA=fU#F+u.hu&IW,IJNCU[^I0=9k8_LdB2Qgq$73?NS-.ãU"chLixd+H[*zQ->]k%gH]WN5EOPRAUdE#N6zW2w?&5Ct#X5ptOxMhHN<^lU%.pl/ãU"$^hD9LJQo9^&/%e=&V.#Mgm+F<\Pe;QfnYvx2OHxU+AA^dZ'ep2LZi5o7.?8xq%ãU":Ni^XXsxeTc5,=f%Zm[GjA-Q2dH)JeP-Rk9kVVvIKpa/SEo/&lsl;gi['^S9b)cãU"B1#/zmW1CcJ4=k<2bbxjEnS^jmcgYu9)t[-evKN=_9Q\&,k/df^%nys*&$FOcMFãU"SH.5NQiZ>n&A[kcfKc1g%oM3;M:tZdtE#/Ipmu4-D8.h\F):L7upo[h>s.YGsCFãU"lNU+VVR/vfW?d,C>Q8Q2GljEMbnPT#Q:HYFI,MAsB8$O7?8eS:jY-NF0C:X=o18ãU"-meUdb/2#_lOGVB-$t]w>LUzn:I?();,7(sDs^DSTUFQ9UWctR(sãU"$35wlJqNF=-l0l-ih\QhO_psf]Bj&U>0Jm\K(D-f2L5Ua63hS#xuGxMD9E,lBFxãU"O.oStkM6vDhnhjb[E(ZkC3M4o:;IU6ptD.9-URK:67vtl;Qt8,clqW$DlvwQL3(ãU"fL7r^>>74_,oNoRP9UD]8iJiISjdj[sBlQFM)aeed%A^V;SIt[(H;2J5\ic7ãU"JUF6-%5cMnAiwIhR+D&[Ou6&g1e;8%CnrMH/ELeZ0IMbb%7UZNMD,:k-_p=?AhMãU"1^jSKkKd58-*bA^2v9_GW+<+Ab=ol9tgm.VO8YYK,?f6bfQ1Sow,#B>M/B_;qzpãU"ko5)_A.+W,zvH/\xQI0i.B*A2M=.hafi.1:SUiPNF-KKdcam&ogK5mt-1p3:fNZãU"37m$J?Aa]bxb?OCb[GaLeiFI;e:nvw_fA\).?>KEW_i^)kp&BAktvNkdLtpN4edãU"CpoZU0[o\eZ,pVO&&a$('6=.>[j(/3pIS0KWJ:kKZ.UfRd<<5H2>-#5:U[B/6fIãU"foktoUUBhLTdaDkR(C7n\Nn6N,/&Bad]+cY*AVGJBC:91JLsOqj.Xbf]-k2,BlnãU"msh[)3eR(;L7Bn?C#^^eWbiRN%kZrKnMw^^NNha[ãU":z+IR3K<*ogmJ^jwM=sPwIcg6eOxHo(L[8lv0Q4]S[eMh3S*O$NSwE5_)baI=mRãU"+s_482/yXi'A3g2\gW4GT1BxIKho&MOCV>XG)?+7]_b1'*c?X#c&6utdM_:1Sv64deNjE+.dX#Ft-^J2ZG+bnãU"8(l(FeenN)7x=$KuRhKnL)jpQ=3dPRl+GZW1&\\,LJ^Ef3hMWA0O_5,JH%Q*^uZãU"tPTjC_:A4PgPx/wY6SOw0oB7VTby'A;JDI+8CGA7Lhtd:'(B[ãU"NJT=Um(MLnQTU(*s1QPx;D$\P8zlj7&>>>UnC(8>al2S4qdWgC&+Jcol]Rp:58_ãU"3If#TawNxMTU*Nyhhet0T:_UI?EFkMqhJjqLa0v1ro&h&o+'&e*WE,d'gyF5E*ZãU"8>=r^Z]i0WRoZ[R(ZfoPc(;?lEIJpO/q#E*^TPoXLqn;UD*t[P=pd_XJt1nãU"M#L#[>j%Chde/7IcK85s'Yv59s&^_mw&U4\ufRJr4e9vVGUSJ\w&'E/'olg>mt-ãU"wAJf#?'8=m9$]biKVeJi2rkGS-;W3Ut*MSd,c%g7ju(iXhELCu4[pz4EQ*T\#$lãU"kpAJESc>6;MO7t;Q(Z479X9o)G*96]PgEq?ZIpAgM&3:5U;PZM=J4i^x3rmUqFYãU"ivg+cRoOCc=$'bVYgHtgG^mB_hy5ttbCuLnNaRA#pUC[8>RV*ãU"?.qxSwNl,lN*I]zeSqSLRK;9GxMGP2IZnBkcNBg[yF01$UN%gf&jn6M3D-?#;LRãU"d'ROR4V4;<'dGN*s/-D+C[jt4qt]2Ozlw[-ofVYeXbj7?INC8n/+%r6>&1W8$G1ãU")>v&Po,.Z,pFKhTC14e-$8V0dU*F'tyF9%3mje^C&Cc^1p)=.zJx]O$k'B'1vsR_Icz7n*gF=]^0JpEQJEZ)ywEãU"F=ZnBvcgAN4A/Ajt*^tvm<(fYs'[L;Nhvm,aX'__ju^JRr3O1dk&Odzi4i(pE5nãU"^s:l#=6;#N[aP32^/qE[2uk5\Tlzf(pxQFSA>J516k#Y0Il>YlIpO\1AAZ,nH'lãU"Sd_5LLSX8C2W*o.B3H'FkBZYf/qRvurI=6L:Ls[qBB&t]0CiDS.8>uq>(1fT5KpãU"RlI$5Wz64URz;i9?94TfB4173f;ukR0*(;3>8PAEoZB0G:ãU"canf&\Cm$H.0U'8Gag$<'FBqz*_W&-H'0zj1N$tA)O0R6:'3U379r+PpHmJIYnNXvo2oGd(app)Jv=V.]#^,(i53(eIo,B[ziB\V,[Xd9K)^(8MQ1uV.zãU"OzUd+9&cruEmy;GpIk-u^'TSGY%0kDB2u7aqno?F'pUp>MH33dY;wXBfe?&V)RQãU"bH>9bVV1H:pSkf4x:SxlU;1#s&L;u2PUAww0%&_?\[RN/)Xb:TE4s_M,Np;SBi3ãU"Bym=d;^o8'Y>9.Q?Po?F^u^0X0^myPq9esf3JFflc;+I]_4#zTcGMU2L%JBQ9Z.vLUn;Y9(0PrD394H3YtX\B+X#jp,R6]VQ?)dPãU"ryNDmAEmO_'BrGU:o]E$&+gZ>Ep;ST_zNTH_upOc9kãU"K&Gue7Ho^ãU".oXf9,-sSLWPjM1D3g=KFZ=,SU0RCrw2sc5;,k>KZlQ3?s(mme;)%2xH*idS;K,ãU",g)Ohjs9V;(\dX0'$tD)D>x:mdkljm%+2M3zego([U,hSbeRJr,DfDF)L5&]/cS'U&;z5br3P_;,LFYAeecEK0G&SP.42=K4n#CãU"BED:tqeLbE;yL)=tE3e:2qb6'4>]a;c-ãU",Hi&WyC=,z/m)a1N1G7;j9phQg<(1[D07it1?aK;Qcp:7[IQqtApKM2%:/L&:3#ãU"m*KW6=\e.R0ct'B\Tp:TiXLhh'#V^+YS7zg]iA0j_(ac+eceg08Hc>E=D7*kdk'(1k#t_=ãU"[f,V&pN'-0Oj4ExPKpKGA&a=>G?ml-uiRKh&?FkNFGq,QD1PI]A,ywbd&U=6Dpg1q0I=T%=(z-%N;cSOipd;,bJgrC2uWãU"3Y5ggQY&CY-r.kEV9Wb)yJ&fmM_qq;b*\/vnOs,LãU"9B^4(;$?2$.B79>[(*5X;ygW)Y%*,p]R-n[tVL,#c\uuF.$L,:]sFuqq=f3f(I6ãU"idoi^Xv9JgiH6RVwQDbeHD'UJuO=4U;trtx_ZX#'=D;]L(Ckf&=r4])+rIr4WZeAJPLQa(\p1l0WPYNP.#J-bkflF>i4'%vãU">ampg0eQLhFKio),n8tN5VfV0=Goxi.F>4Qc[1X_)>o)%.t?+tTC&qa7AG?#7x1bSBA4hkofPSLnmbJãU"NMWPi9seWpfGe/5tI>[4rpH^TI$\q^D/NiflUACYMfK7?]caMND?d)V4P9Uyc\an/o:[<1yrd#he%4t.*vNGãU"KocY#h\sQSW^D6EkS+e?Vsmz]7#uhcRb*8SPlDZa[(]hRu&6jCcm=g-4ZLc]y?f4aFc=A*#HeFãU"Pc;D+\Xvs&h%LOb%iCO)Gsh:G24QtBN#IH*P-wIqNiv/W5QBDQsaQ:=mnaFFhEYãU"YhN<2Zc$cNO%qp?+5-zHHpPxW,o0n,wHnMt0RA6UfqãU"mI\F3+XbSnBZoGsBZ36koTZgW%K]Z.iNRalNZ,A&rNjs&58$#yRg;a2ZBCIpB]ZãU"&;&va6:H%VA?V8fXiHtZaN9svjpLpiVYn7ãU"V_+Xaq?eroU1If;YO>ZqZa7K$ãU"A=5IC5%z9C6aDkVR+C,*Zkbugu:qaEe2.^GX7NI/9lW'>6BsYa;NãU"<),yR'XQ^TJ#R+Qc7GQQJeR;+tdcz#pqEg0Q_&2)AqUoa8Flb9l[cZ_E0\uIs6^ãU"aB4Oiw'-auOZd&.RjzB'Z_cf>8-tqulUR&UNYen?(p\;\12%fZu%nq-V/=9Dt_-ãU"K_E=yXCHg4i5rQ$_5pG3=,W8aNRy^GNevSiRJThNA)np;[MNNf*&P0ZMx5Mh>NVg6f8?tARB6/_C>Qc6,9E/wn(e'Ky&DcãU"RYjY'Wj5%?jpz9=cdC%H43yo,]-56wT3d#A%9/M0Z\//nyITCg^SN+[uITh\N?.FitgCP'3H6gk#*HIP/5ueKw8Q/kãU"RS?KY7l%n5w#Lr%:Bb:(*+iC;0Qu0_GG#C[:mN9j#JbkH^i6ufgãU"aY;0f[>pK>1O9XaPw&Ur3dW7CNC50Jy3w21S.rHk1G'u'3W6RO^ti,]_,)TuN/pãU"<:jHjK^$Luk-UFn%EE.CMt>lc^2>NG6$0lB-b'%TKLC1H+S^U0RSAz*e,vFF:5rãU"u^^4dX]A<9K(PrCA1.\O'>&r)P/&5,4H+#l/+Mqr5dnF5Kv_NCprf-;]/D&WIq:ãU",O$#Ta'i>YSY_;mjZGLId'PsVbPe+FNS\\1b%(=R3G4uTH8UmlR-*/7/)eGUptJãU"x/k(YI2Q%W8-I3%M0>rf=c''ltBrHh?5ffVt;)X32&p'3M>2s?ka/g'mS5.+1BaãU"(6\I>Y9;QCWQTTqE6bB.\^;#OTZ31M2;du4?JiHR3Q?=TãU"Ih0];xeJrDGDL[.97TqGxIWK33Xro;xBAL[%G+FmtoBBo;$#;noq2zt'oXEãU"1kcnT:+sI5PA1[xDp+:FfUNCnMUZ5E1g4PNb;EV,/fX8Dd4b9c#w3;\o?U;hU7SãU"l8NdQYMIN;1%Wo(Nr')p)&sITo5q=MypmPRz]d5GdnAek6>Yq^>dz?$#_f9,xGaãU"C0e\4/*ZeiVP_et)nrn-2gIj0;J8y0skY/hp^x*r:PC+t+a,3Ib7>>ZKOH]jvjZãU"SUpT'7#SB[#w3Jdj(XBfMo;3idFdLAaq?HCn5](YwG=hixS4RIPq%=B#O=4ZDJV1o/3snhu=;l2qUX*Y(C9d+DQh:v.YLrPv;;[-ãU"YV:Uj^hTSFm9iHf'K]ãU"n&YqZck^%]s)XT-dir./C\28-:bA:UEfB'$s8Y3bEP:5Q.L3rR.3s[Fq7',#r7SãU"RPDgF$V,*+$Xeqr,CVcx/OTL'<5W*.VdgQ-]%IpP;YwM5=rA_n\rIX2SY*Ef*OqãU"W.rW?iO,84jaq9#ULo^]#Ul&&1p^PEXC0l1rIriT&q.j(_$nw),9afJ8Q9HBMioãU"GF8ziLVrSTWH='DRU;/biJD;Z3hbJ.bB+'T[(ImEyO11PNr+8Qg:%L196P8rEWGãU"39V%jBYB7(*+\'lN?y]j]_?PpN2jBrGo$?%hw#a1kqOoq/(1[/mpV83M>/rjlpzãU"[%il'EF5gf\\Ei4=8l?e,\t0Od+q9;Z^q)fdFs$5PãU"ShQZ5TAjv.#)TV;$<:]qO=$iy5W$oMT=oNv+$,4[8\;)p9j631U5?)4^&qJ^k_'ãU"c;u\$I0/=-45:Dt*)r2=^Z3^YZbL0o*.4;SkVXU?rcJ.mn=MC-8_HA#dwAY#d%rãU"3?]*,po?_-YN#d=<^/k(eEELYd\O3Yh0vd_#P,jX+:w<,od7kn1Z:GJps)=>vE'ãU"u6V+Z%5s6++Ed%+BERQx1ps7NW_bX$&kAsy07R'ZTzLF'rc07=_88RNs>+1Z)V8ãU"$Bp_(DE_$ri5E7a1RtIK9OnIocqCAKk_b,cyZO#l_XhMt13ãU"_3DC-'%go<'5SotMXxoRj=Bqo0U$9K5\1ekiS6H.y\lP/81G\TzMdFJJ40i569VpMI02D_W]i,:N0IãU"Ep$ax[#r>gPbkc?a6O_F25ufk+?_Zr_w-%=8Fyqmd+m2\JL$)FTil0j;hcT'VttãU"Ckk68:?u_CdN;NA&QQQL=zx#ykfHJD%v9YD07OVaFf0LnOFCrXo4B7I^xMZ8_RTãU"DphmfFFJLT.XR#'$:LkGGsiH#AMOF,sAtWJ)+.CJ/tZEd#D$(p;%FS#\GYo5I*5_%]RWhM;ofqfND*FI(f(FDr9&OCt-l.(x]b)R*VJfx;,hãU"ECNOHre0B/j9oIs<2;AJ^O;?2(Os#O.)O46dkMs_6ZJ_hNAi=R_t+mKk+=mR_aOãU"BZ:\gWaFg?*I;pg&h/F&4F:N;T^?oP?bfS38Dn4$j7%+EMT0?e3(<5yLq6SSWg\d+H*hiYT-??%919[8ZLR'6e7\YP2w_M,H3Zqn1,6JgD3.36Tce]9+cPãU"K&#(-BVQ#+'Q4zcNk+dFENkR#Q*;tzJVTK^T3r'nJf&P7=pl6[_K+)f]:pZ+lTUãU"1Ca>T%2CuQizLV?-;iL5VF\24)q9i0WasKaf(=u&)dT^9WIKFV#FXvLVzqh1,8MãU"jof1]W5PCAX)(IgE&ãU"Un1O?0lCD8v=1n:L&kIrY8H&.-+A[OJdt/>*,_JLa#qL=&ne3h=_$[]a,t3aKeyãU"*^fG/=*cE&XgZfXFT>X1866UvtTO)<1Rd-36ãU"pJXfaK&ln;a>DJ[]1$13R_NJ>0aãU"?;MmRMFN6SCJ]duaHL[=]M5uJv[EkyD32hH(lHhyza3d/QwkZTV;4W.*'XãEND SUBãSUB VEãU"<)y0bknoOm.a]Y3)L(:UI$3BuRJ)9)$hX*H+StXn&IROr+].X(?%1IVn7I\&*CTãU"VvUpIhgZUãU"pUUN%^ãU"jB=EW6&7.KOpCz%0,F>f47A9_EWq;;)[KK+%ossIIB/x9eYF6Y8f=GB&?SB]P[FpfyS12IBA:3*3>pJ'WTSãU"ZJWdx&PL3%AJOSKLY^FWl54?%VOJsw/Z%iQZ?s9xf6;cLKn2hoi2IG]h+[9=m91ãU"o):J^$dI%ãU"rG*;_]i^B&=AnmU:Bu5h'Rp)royn%%:k[4=\fMe%vjOAeQSKZusU0Gc9wiLRq?OãU"SD/=^*\p6G3D%uE=N2;M<2d8:s(1aKh^N3WKPãU"'#XFL57KO+1DLCGoOajvWMJ9qtU,(Pv:;2h(Q;:ab6tsqOF?8iaeOaofhI5V/f*ãU"Aa8lGm3wAZZ:##C5GYV\l)w2fGPmuiNFGR)2E^+uSDcg';>L_fqdd\a=ikv-dAvãU"C1q$q,4O$LW]iBB.wZZxtFhX]mn%ROAgC&Opj5j>IEK)g$z;saYU)PI#-_sUs>dãU")67HB-,zW>%$M6Km=/Cj_K$#0a2shl[)zZ.hI_JU'7]ZgMZ7dU?LerBr2Dz0_0EãU"U$)Er%7FmtJS-*Fr*CCe8IG[J6;5zU9J^5L.0s7eHM#zIX&4Pu[GyOeQgsH\nZ]7;#KyW-1*];S899>NZ45r*ipfS>ãU"gRUxiq1Ft.di4h>tNG<%-;\K<6Xs(;&::-BOHe#z((,a0PoftI?3lU%m+NO,tiNãU"FL\:HG'U\ckH:^DcZ6T,b;HX+re$8\X^L3qDmVB_\H[DGWF4.Re.eOw6<&i6l>K\kZE[v.C6I0SE,np4nGZLlVbo393HfA3LA-07608tnTFIW;#\/xu>b17:aoaigLãU"#iVUãU"hCEp251e%VQX,\^-bIqNRm>4-BQ[WE)G-V#SVtW&O;QOzLQ+MLu,U6YBuO<^3m?ãU"B[Qnx>=sSgwMEe.[Q]Uxg#>akaUZe-*Cp%jN[4dasrfww*1tL?AcFF=P6&_&>Toj/\XH8l:g,,.upug9[eAãU"($Z9HLH6'G9O/2vjRRjVMd]&h%3[ldx'=\bWyS]Gz7/:JnXw2o+qqU5\]OrA:Q$]E-=i\AS6*#yW.HOGYzPr/5c:Dc,l2aY8iG,++--NãU"wSjGn.kOH_bJj0iJ&Xg9fKX>HID45^XA=%&A/;H'(ZSKXz14_q'Q_Bf,%9]uf\?ãU"L,o4JW-('=$:6nGGmoPWhgQO=nC)\xp*g(*-C2\Jo)THz[_'0X'fbMPOeGF,u(8ãU"T[guckiq,y^1=6\l:BluA5lX[K#3r*&12IãU"+u]G\_.;RcVt#O1]_Kp;Gd?MOnvYwãU"DiS<5ggeJaEtFXq,qj0U48B//vob1%UHuO*DOOM3adGl5iI/LwO?g1hoot)GF/ZMF%ev2syRQebGuNLi]*_NWay4[zDRxãU"Twa>yDf]qiB9At>MUsqA8XkP3>-^df^dgGw(7pC7aBX:VfQb-.K9)UUAcvpawp,zf,ãU"Hob\94i$SBDt'70mKRZ6eJLbgEmaz9gY6xW/)jbs>Kl:b$pjfc7ALAOcH.Nq/:dãU"vvYf#O(aH5bBsf0=a=94WZ%po%aKe\8X[>R-:Kg3=jjãU"jC\q>;v-nq<'/l61l^3pMW]o>/Kt7T1e^6g-vT&cpgc5u00ZkSbzX(3pN#lBG$$l4a9b+2<ãU"j>+HMB%f1lv.Nd648$N&S+5K&tkiG;RPA[3*96niBnt3lCWHQuJhn8J1-m'5$^*ãU"X7/Rf;N;'xVJtU.YLH6HU/KLcdQs8oT><2IYc;j:erai?.]')=)D/TE,RQ]urQ;?;c/c&f1OjXu#PDr#nd8JHc,3>Zwxp=>^j>H6W/sI'ãU"B&Mt\fDLxuvhx5;92xP#ttx]hMlKD=P]c*)CEDk4sm.&1-JcWOMrAfRoG3SHL=MãU"1=6j-9rle20EIP2MtrXSj?tp)$t*[lp;xOrC*#6LK<4OLt3F?HrHQ8resUtG9#.ãU"KTjHEj3UoC(3CuZYrGScK#N8PeE&50whAHjs5a8A=MIAt*x9a):21bw0ITH'rr6ãU"]$R>gI[WJfqGwiBu$g-<$iI3b+N]=vkadP$%e#)eNh.N'4L0QC-Emfsow]p(Z]gãU"9xWq^7a3m^M;mJd8D0ln#uR^cONuwnbd9lxqPO^.x=UJ^0,)jEe5OWi7V&(:iZ,ãU"qc2.*=MjJau9JMqE;av&b[#uUAMBx56up#F($pVãU"CNPVV4DbMu4wtovRq=,ãU"8n=%t6d[H7;lOo:f1hrd4BPSFp3+,&%;z0CA+Fh%A88)A8p?2^f%kY.'f&[T9PGãU"Z^k'0>Tf#d'%BX=a>0DKolV4f)CmWv1BG8TY8rk?r2+7-m*DBrY-XuMqHJv&tLjãU"fnlkwIZs,P0foh0x7uWvvwVALqvscoHdkRo*qlqKMYu0rJW<\#u(lL(+$cXN860ãU"tBNd$Y2aDeG/KINGxML)F(CCZO^ZVZdko0r&\a6hNLF&P*,OK$rpb:e^4:39ilWãU"aq+Mxjtq/<[%%Ev%%%/%%%%%%%%%%%%E%%%)mo&%%lnkq(z'Sw(f&up%*+%%%%%)%7)ãU"%_%.%%K3%'%%%ãEND SUBãV2ãV3ãV4ãV5ãV6ãV7ãV8ãV9ãVAãVBãVCãVDãVEãCLOSE:IF S=76AND 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ãAndrew S. Gibson GRAVITY INFLUXOR ARCHIVE [2/3] zapf_dingbat@juno.com 11-04-98 (06:12) QB, PDS 2626173647 GF_2.BAS ' Gravity Influxor Archive [2 of 3]ãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"GF_2.ZIP",4^6:Z&=130120:?STRING$(50,177);ãU"%up()%9%%%%-%oL)S6]c%HEãU"nUa[S&k[\DXNI2L6hVO>Sqje%5tai#Fg'S&Q5gidgg'+p7rQZbK$yVY*046>EFgãU"(q15ãU"%=\>kg?8>7c:HnFpw5,?^RI'8VjA*5p]lr82DO7cj,M^-=qpWOgx$eVbuPcQg3PãU"jUkS3S4f[aSER=hr'p8O\,s<,+W>*a0Tx'b:G-lFZugãU"k_bG(?UT=54D7U(f]EN4DKqrKMSb2[/W]\p7C8U2LdD[MRi6,3ujg-(^Q1JzLegãU"7QCt-Xw'(6AnC4ws3\p.wFMRsL:xBY\Qpk&i:+g2aW3jn9pV/.7I0u,Bw36<(K#ãU"IGn4v=2\0SWYEQnSH#BvHuR39[j[,Z=wo;2p'-,HGIf1VMG)N)uX*%qYk\8[iXyãU"OoZawZ?BailOjK*WE,KPZ4\X==P&/Uj]YJRUpTj*88hurpWt/^4NYdQh9aP::teQ'hc0p&L$ãU"r]x=dT>^3fpR4cibBwcd#IIp'^b#kKIGM/wntYC&(.PGw[=&^2vA/ZlzJGDM'CãU"Zbp7AEbGcF#IFdugL/'D9,0+WUMzY6PpeEVK+X>\tmXRTp00Z#./s,.p-.Yq/l3ãU"zo3KZqReM33+q*=r]r8N\WNJk-k:7Q(N(H%m6>MlcfYx;h(4jD4N:SLsDlU;J$UãU"A1BxGiLQ3b,:T:7hgJ'K[JWvtQFwn*SZhd=C#\eM]tp?gL/S;1PsW7+Ujj($0[5ãU"HWJQ<_sJ/hxjr.k1/$Z83Vv^%nF-19(X\Z$cchi#IJJ#vad,CGvQKQTC3YEc0<>ãU"rFube,^5lqWXdLmpQS8eVgHG>N]THI/pr2bo^;C6+;S-[CoOQpcJEBRKkecãU">Y:1)MmyL^gPnL_Aio0NBYy_%PBNc+\,'P'[::y4,OA._F4ui,J7XRsV*>#:mHdãU"PZ7a%>'L&/wkmG-h[PN6I^QY$6z4mW;k-L^wRpbL)pWY*py:Y#GKA61a_m2O/pSãU"'V/:LYS.+Zn$;UNc(<;aY,,7plYLlW5X]Pdiie(#LkXRKO.:>,h1_C:n0fXX37RãU"HQr;J-ANs#y=oK73*[PV%c*bUi$,l?P*d4#i6f5.1.A$[>*f.B1kEn_UtKsbxjuãU"##e(Q7VJ>y>YE'7uD#S>B8TrfeGcgwT0?*Tf,DQr&7lC0c]])\PKmGh3Rp&KzY%ãU"98n?T_Wze5[HsK:b[;cBupE:GGggm#Ss3a0ggR9I8*8?YãU"QH2s[nLZr7mpi8NwI>.tWp=4wNDU&E;^*m[yãU"15H>wRAZNq]WXUizqZ&F7$BKoBVa7k=o4=6sT?XHxI(d(-=i;TPH34F?W#jlVXHx>nv'_tO8:dVU;ãU"H_fSS9Aa'c38ac.+3'Bmn7[1q?N0^dp;0Jw#D9ZTAWSGK&Q'u$zo-&]pg&>q22DãU"'\0&gH%mTcjOc^M^&-GhJKw.R9NYI:)W],p9Fv[02tR0JscRV[T.LC%9K7Ll8tvãU"8$-bMMX?MFEt.^KQ/Db=_<&xlweg5Re4GiRGqJ+7k9_jk4C'd=.;VahH94Dl0VwãU"v;^<2tFBF.2?FrFcTR_&9pVuw3]i&k:kk)*^wiR'S*O(PA&d<[rA[cLeX=V(ovpãU"ZXrsVc0w%wW079IBTj8YiHT95E[9P=Cyf1YVET7vFiDnd>7Yq,QW5jkhj1\j1p;ãU"^1rQsi:&81MoD80xDbX9La,NriB$I6MgeW5OAB1ofXYI_iOrQ>GF+3X7$Rnp9I#l#JdBQnVUvg)7sP<5rn>Ur[zn#y\nUIA8QwA&P*qAoFMwU$Z_MALVXsKExmVAl+L(A[T+Cf#ZuRsw.2o2bne4EãU"McLFd*?JROHCBlAz2JK&\WH0-1[?omLL0)uq?UX#[Bnt*acn]ZuQ?xc#=LCPUz:ãU"Olt[f#.s,=WCio#pszH%e:tvj15G_c*jPu*3]pOC)=i;43a_cWu4?^Rp1CJ1g\7ãU"SNz,:ZWn.>H5d/VBeGteJw]ix69ZZONMyDloBz+8O)k7\3W$SAUBHc_QerZ*CGKãU"Y?.J;[9(k$-B*Ki\x_TrR^sy\Ckq+AD&XLh2ACgC_0,5#WvYB?mHn?BQ9LBMbIBãU"HQ_':)]dQ6r&E9L#>+4jD/k&gaxXp]fmmkKA?6tK/GQ[UyV\Rk:il49eLGB3K1#ãU"e1%A6/VObH)nurn'&^+1X4v[LAm,m+A)YVdY6v9];%?FpWRriOW;k>[XP*oV6%zãU"&(.CRRgNeQb9M*$.av(L0'drL?4A8L/0%dsnGq#?daH2=zs&C,;Uh#pS=JltkMZãU".%(5iOSnUW+Z2C*-PLnTVn/Ot1^k''pGplOZEMWT&^h(DN2l?a=/)CYh>k;AmkVãU"h9^&k9%&07t9c/:4[NtUFM4xjr9Nh$O9MGMcJQjQ#NYeMd+MME2n(*DiMHbfin[ãU"QS?o#romPKEDD=Yqc:5rPN=O>T>k5jqUmxQ#VDP]qE)'mja#/u$cP-6jdJX>=D>ãU"P3ZQ[)DL$Wk_ih4D$;702mqYFJG645CZ1j-N2E4rk_%(9B3]v((wUqYbãU"$np#f6Wl85,oY7jUK/0Z(,6itY:dn+p9x87O$lZTgUB-o'$VaL+uO85cfwA)uZMãU"LA-mXeRO-J*P/Yf#8(0ud.D7oR4mRXFPi+QeqPx%&9xn:32xWKZs[Xw5PNC;%TBãU"-H/p/u.:m-#picZjR)e/7JW\bZ;$pkCgUDa&Xh;+)YD-ãU"5X+A^We)qoMwIJuS,A/PC5;V#ko[I$'*r'$jP0H(:Io/Y\&J8_k)9/*FVeG.GHkãU"*LP*j77*wb5H1]8%+Ae%ãU"dbdzERnaWHs.Q7.q7a#R**8NkAue^_kw6)?K3]'4ZSB_o$?/k9,bTg0k.owc)D/ãU"/LPKL88w]cHhTBri712WhtItCFtVH%t;.b]A'WXA4<+qf5V>Tdufo?$lcB8aaiLãU"MUJ1T9M_bi&aw,N7hc$<$TH3bo(#?xM-LLQr'vFQF)EvBZ5y6F&$PZY/XIE*:B#ãU"Jjngzq7epW&9jV6+L9ClXAS7abp^6+9QR=6iaMrbtU8)eM>uGySBD5]U;(#aQCfãU"#KBSf2Fw27DWf6.Q^q?TKPPFEsMr=\bBj7,&Ky73R'Zr*bIY4ZWHSF/;Ow)KIl7ãU"xZIn,R)]Z,DcmVOD#pYNgW?^TjJw_Ig[E1'sODYC3eXãU"S]<3M.sG=D4onKOqW.R7tYBShOOzH82hbR1SS78g)0H5gi;baaj1_._ãU"-d,iL#IIzW1R\Y;w8.'jJ7KoR.POR>NãU"P$\A+N<3kQhwMK#XxobkQUK;i+aCN-B+#XQ1UZ%iUM,T#g?zrg6T\%HFLsJVGngãU"gPt$.6$F.CNcAMv+8]M)5_d%YO[fBtqiVpEMX=pBrM/'bj+c9ãU"(Fo5f2,Z\VRh^tRãU"hi4nelj,u4T6(K?iiF[vc_#j'Gub#(I(hw?6bL_Ol(NGM4?)OG\B^yl#BcULU9<ãU"7g=LCV?jAq+Iq;PolL-IHFb+w5m7Ox/kZ>zA-bãU"jk7pcUiy*GbF7s,:l_3;9vYEpR>Sjw^KBWEkQvInW>k4jmqd:u^81R5Ap+A/v)kP0a;EJãU"fCMA0w45HDb1AQ.p'922r]wgU]vG#B>P#%OJE;pW9m74dZ>N^fV>i-+8V>1nZUZãU"2/*c<%TNei0omokjrN9^uJ3',8PdTG^)Ic]PAHrPl$IeaK_[d>%0>aVzDg$,U'/ãU"wuPK$$Rs.L4ga-hv5B*exbN_PGD&Jt72*txEb$1tR$tL7i+\)%lAL-VF40=%O\aãU"thA$k9r66wS>y$22l[uR.tU8uPx*,h%0:,pswtZT\I$ENT;8T?S*^8zOjs_GnbpãU"Dm?:=&gPa)S:WN<&9uV_l>_]VS;5xUux1q<2,(Y.a8PV0\s:ZnN9hLf:$tn2G[,ãU"B+ymT:CJoC6%_Z[6V[,tt%$:/XF1e?=Ns;$u3,GcMwn$j2arley2)A*=.F4MT1TãU"MCbitJ7\7;F14;8W5QfA=:KxCTYQF$\EidSTV>:XA-76IH1FnUx^cKHft%*GN%rãU">p_QB9W3_eHB8K*aV2O\*LX&rwLC*4j9hS;4*m6]hd(PJfkWU*T4?=4E#r,ITqqãU"C8=SZ(Ie7o]P.]\Yfd-_MnZun^pyyPmrMfrP5Mu$dN&MT4do)xXu4?->)+62JDLf=]yl$5BGi4I'2FY98Y/Bue.eRzZUj]ãU"*PL07GBHro&eO3+fl.e70.d0bdMxBMt+st=a]\w#JT[_oiN]e7I^lãU"6==6/rVqde/G:GU_5^U>Kfs/M*_qgjgoVqZGEn,Axl$:$Eujf\st9)51:wi0MfgãU"LA%Hfx,=h6R7[k%n<6)(tga#s)).co&vF%,8#rrmlPo.ZrVDbQGp+&6&\1+faWCãU"cCAZAZ9&7[2n_PI(q,-+<,H1jt'j^S+Q[Y^YAts5;>emF'J65D>:YBf\),7\nucãU"iG=p*h/AMf_rWu7F0[:\o$]-94'un8S7S\pf$6)QIpsM^=S$R0T$q,,ti,-uSKeãU"y2$u9d*2;WBK,G3E^)CV9Y7LfDVMq<\4,oGk[9:II:T5SkUhiId0M\+Oq*>DXlGãU"-M_k6cZE.rcXwFH\P>jrF[SP8P;*OsY%QC;p2UlxS0xSu^)LsGBU,u&u*v:L%IaãU"tskD[$yx0A\EDAPt/5m_]n^/4%jATd#?uPN&lC#,.IdVJD?9AcDbm^AIx.=yW]8ãU"ers+S'#g,v,lwos5IkoOXg&jb.D_C+$o9(,Xy,Y7L)aWtt10nM%Bx65A2l,6MW6ãU"<55AX,;QNC^,Y[cJP+_t,k:-1V31(:QNfqj%SAvq,6$57;:9k,WJmK(HSEsh7WMãU"y]XcV3x;(udBbBQ9Rhb$^)'Z^H,rBqfvusVrJFSugRlFeU'?K(++p,*PJJ5B11WãU"0WYI*P#PFW8?bYeZz[k.3m(1m6RsalãU"'J?tmn8_n]F\$i(6[O$9475'k(&HH$ne'tZnGliMKxIXN[k([>cQds)5AO,\PZkãU"e-5L4,gGm,HKx604po6ko?+0jS9jXQV.uL?jhd/[U3Ra+:s%#0;8.4GK%XGC%HvãU"hNUP;)]b.36P7PC\qmSa^N2R,M$>'3c#Kwvne$RKwVLT*3vLPECIkr8h\CfV5j6ãU"b*PBTsOY=Hq>+xtwAoiS:(gl06ecaP/\E=OB8F3/*>4juWARiftzpvbFoPDcCxrãU"OnF^v>:DFLKTx%lll5_JH<8Ar=m=<.oFQ*#85*V?\l7pm0+fRoAPãU"Jx'yb1#9qu)48pH$lc>-x\lDX^ua$sds$pOcm6Vo$Dr\sH#hvuh$wrXDVtX\^r:ãU"guxqM6=DZhd6o#.bk#hNtraf7uZ.;UnZVtt.Hv\TNurWXtl,<.rbrpLWWotKNuFãU"PTYeaiuw_-T?f/eE2m]3,VpãU"MYF1F&xL[$taj0UkUUErK#S7gdV_l=%5Dy_MWljMF;Wl.Q]C$iyDN$v^]%Z(J:)ãU"_z)/ii9Dk*TdC^2A8NeE6o987zFxO1\8PA%BkAjE#G:5>#JtQ$'[E9\Xrz-6KQO.RAWzJ_*myjxi7YfG;8I_DãU"S?%BY<'^JQ6-RXD-t*uigt?K=Y,m?s[PX=NDPCU83sP%in7LC[fMg*H89A2uZy#ãU"_dc?ik;?Zi0dQh7a?6Bh1&81Sm_xqj>:kG0p9UHc=OZ\;UZ?#qO]'9q)?__hGm_ãU"Wm>TrDd+j%x5Zltz*LALwEVoIdWFucyp]44SjFxq%4,wf9.^w:yH>bO;jUh[0meãU"GqMF#$RiYbDl9$VFm<9ky+ãU"LsuxbuW=&;>=f\xVL'E0tV?ZI(o\':qG;eh&QL.OiEINT12Rk)=tl(2VS5j^ZQ<ãU"wx4OX=p9vKW)<&LgULB:bjAU(xr)9,S^-'EfIW4o:19ãU"KpMxtq/&M82ap[b-uJWPU0jAjx#TNi2/xtDkoYek;Gyi(&E5>7LGK>5845mY^^6NWE5jqB&SOqs+f3B4#6J5K657IZITql<_YO.HãU">GjL>GyV7PP8(NWRvF3fv-rOYHbml)kYZt.GkVp[xR#D^DwD\)^mX3NI-BTg#>GãU"C9skGZOTjyJFrmo6/ud/)XXIUBvhho#v*3QdxCCTL3lip9Lv4tXb8DG73#E$u[.ãU"#+)?RkZ=j(BZRaT$VN3_Ic#E8fdhq(^uYicNr2TM/wYZjAIO<53J0[0Cs^KxX1HãU"'Uiw4dr+MmKw9,+5eS,PSH\5c>R9Qv&&yaSW=O%c8yE/I%655jWsf'in)ãU"YhL(9lOCW2\#uaG*Rxe%aqIW(dK)8vgjIPa;H>G/pXy8KX7tO-P([iW0#WG3*S?JA1a(EfmsGxZIAnãU"t#7an:F++D9OS-i(x??tVxS8'bD72ãU"5Lcj/$eyl_DT/G(5<(m>HZ.'4TIZBzk8w-3J6uR$%oVC>6JfGEB624.K#pH'ib_ãU"771E&iR=$ac77,e>-/56q6fw9Nh/4,GU&fKCQl2hSp.4m_]77:.IVHzD%S=ttg0ãU"N[6N:3wAi8bi$$<['l,E=^tumãU"Jua47Q,>o#Sq&b9L9\lps>GpRK2Gag%WWf-:VJ#5b^&I+RãU"K*kGxkF9j(Smcw,HC$::u?JvFnj8&,5I*&u0F]ow'+kp,r-m[XChJ0t[%Zwl1[-ãU"H0Q(u:Gr$*\9]D:zk%6p\cMX9r?<,N\%5MGP4RIbs*b,m?W)-..CZ^Sq^D\BshK=Z1>1X^h8H[9;-WUIU]j,8U0-M\-Tr1,YZ_GNPWtoF?k6HF#>Jh6[4aZCv##iNz(Uho;l$o[f),XYR0[9P-T\SINeudv\M9n9,ãU"gaUF#?taMPI2/f0BGvoopcL>59k\.BH(Zd4+S+QJ8CQZw*G9:$ZR[93tqnãU"Rqj1;\B4^Ca9cITlL(.5kwOPCkGW7.%9C2qN^QhX_0jSrK45Q_yNBhslJRL+0HSãU"sH4Z;m(9vHWZV0>RW]mPNunF\H&=ãU"Qzv2cy2T.^fEqrcktoL%hV,8-&P'i$Y[7eArDb'i-tP$#GY;Y:Wb=%>/TCVN^ImãU"WT%O9,dcd2IKwd9cb[_i=)\Rg)AU9^]#?bN+2Y[rCg'&m[w;?iY/QOlKRr-CaCvãU"%iC_F\xEN;bduVv&$>)8uw.SwzV;4R=na#-stg\I:t(vCO9HPO/tMi=[fTsZ5lpãU"8w:pKX88lW#L++lDCKaZNPV&6(C[Kjk]oFm^C#ie(j\=El*iD\P[D*GKJBGãU"JQ7r0n0odHhAJf1R/k-Y,lA8A28JjBPB&=twXNk-:VC^qOdu]l8=BH4(1TB#WhsãU"6nmRv[UY[yOb5?]LLtb.wVG>oD_Q[0NNslsJ?hu&th=ET9M1-5wB,$u$p4V]jHiãU"ICOb-a.HkL>VohD4_x^2#AUL/1Ise]amoer-NmZJ&J#4Z#\\a*_GFAiAvZqL:n(fo$&B9ãU"dx2nkDlkLSwY&QGN/y[-M&Oj3I,idJ7A&J)u[Qbu;,1:$4\XyDA>kBPxAVX$jOU_uJ4fl(:aDv2a$uc\;0.&4,Z>[wE#e>:Nxla$qin_ãU"h#UJEJgvlWBI+l4+mF9&#r7aQ0:=P^7uicPb([a-BBm&=:6D4yN0'gFP6m981WaãU"q_XhPf(9^aJC[wWpM'+SPxMX\gDNDk5b/-wCuFPTãU"bW>G34<$%lZ\k80>1Uplp,YHrm1JL=Y+CVnCGp9]ig.YMr<>55-&K2J=ck_z*Ll^ãU"duL?l?WNZSL+3#,TFth0#Vs(>6>vAY./i)oYc]T/GcgWXP?dN-g:h[S$lCFM2:ErYmãU"wc,ZLWbtgMzwbX%UPSHk]plh>kMj$UiO#*>l_%rWas$kjcu;JC[pAR'k&KpL-6GãU"UV0$4ucwbF&bX<_6ciUo$RO[+Qk+r*_GqDO42o0\M'?n.8JFFr%8rx9/OMdBc3i\(4yX'WB:2<2:a(/zOBbr6^s9HxqãU"tc??J&CD?k1xoW*b'.O:iZ:\sqS'ruYw('dk6'%s_6mDri>SxWT[Lw1k/leQsDUãU"f7DSp]4C5XljN-mksM7IW;O;qup5Wk/iWX6R6-1d'(]l4JLa6OHN:M*W\m>RxseUhD$_#s?qJ=1ix'aT[uãU"081b?\C)'qyYj.58M+,MBW3HgsarLf0j2+ãU"vrOivo'S7x0jw5FY,SPD6IvX2ttntAdp'MT6y.:iqc8f\rp_*qAv)U4ãU"-11bF%7>Ra0'5iJ*R23UPV&(na^[PsEZt]dGn=]xp4g<ãU">*8N7grmX8FG5(ceJj%&^6]hC9Cvd#h6BH-d0wt/foaVdE*+T&bP=(tx1rrTãU"l)_176MHKH^-k6#x6,R%8g>jSKSN>o\*)X\I,^kQIgnsbf-48GN39t&qg51^_M*ãU"fr_irVS^,saBV[kB]9K-/E^]R>eo.45mWls0ciYEApmK9tIK3'A+qn*iT=9\br)y8#lbJ?ji]HGK)9Cy,knGOiG,:vf,eG4zJr7N&EãU"=2dNtLFTC,8SUPH9(xx\b1Po$MQVqPrFtSMk93'aXw(*qEO2a?d_ml0*jmMBT,hxdHw?hJ&]t3(#1f(zLzl',lx3FNoaXdBnsQE06-M\ãU"u8\Zi17yk\_lbs;0cn&tw?n#6p\]ãU"PIts[W&[(qC5+12Rp$HjI&S^B5wQMfrhb34Ne?kzrB;BKiCG\9Yd^rnmT4YHi=uãU"2N-b]^=rg&cs8O[FU;CP*IuR'9s[8;$-x3c*5R(vfEBNKUs%&z2+xdyJ4j\ET^SãU"U9]h]YndWR+Oawe0q>0Hp=[T_a)5g9^.)-##T=_gN1nt3tLu])o,kr&unIni[o2ãU"g&-xPr-5aUbUQ\Kt%m+'_DK4,^q.JR_=^1maCb6\T\8Q'ER)ujL%muGnnH%(EvAãU"9A*4PP5iD7sjmXk2E'hhj:h6iKn-rRA%EAmA[Ke)5>X0'+qZW?vYo-tquK7tl?mãU"esC\JhgqCd_^cN?[2Gud[tPCd:QH/#M5afm/fMViXirR%4M$jDB>k\bTGu92hUSãU"+O5BlQ8jrjGB$;7FjgGlBAcKea(HYKi0uV/d>IQ7U7-kUK%&4kv.j0Jn-/YYSdãU",/+p+-(lT_y()88a7fhNu=LNo^/EBr3tYIXTB-ervv8MLt86^HLDf$\(61J_?jBãU"(U?'MDRk(rG?s9*Ql?dwneawvYTZqttu,,FdVn_C)=808NB0tx5cP6d1Hn(zG]kãU"K]&5gun(t-Tn9))&GEãU"_/,$13*tDpXhHM&feB%xs,L/g0H>,i*AGq7=REuZ8ãU"C.4r8DV6C(h+qvU4b'uFMWR\C]I9CRcrP064puxUBH?XP0<#(?26,jIMãU"^-+N<^FZSD#YlBnZU>;ZD1V]=\Re[++T]L0EPvCP>sGi/;G=IJ6j^pfm9F(#+.0ãU"/>(=HZ_2xãU"qK)z)Nixmz$(Gx;N13'xQNF&98muk\d=0?[VDy#mOE6F>^]9q)7R#DK%U/05ZU/ãU"t.[mu_'QP8b1+-s:Hv&9=MRi+qC]r/\^HRaix1;t2a(o(;YPKYK+.EePfAHTFrok.l+lEL;2;JD58G&LicqmãU"'Sf7&mY489Jg:Chr;P-P?1FiQpDNY-TWq:-7])99Z]^9xPtOFpXI?DJU6_JGR9tãU",+2=AP3x:(:pXwLvFx#R/>ZL6Xp9yH,dE:.vbKy?5['ME7t1zcP.g7q?QaclKRlãU"(=Rou2Pnh\^(Y>Wh$]iHR<\G9QaS+sA5LDE5CI>4NUKubX%BA2(cTQQ_:bXjbZMr&keãU"N4'pn$;'L.3Zz:t>J.K,lssqp[Gm.'+l6L;-Zf^UmC,ZC[Snk%^6Z.^83h)qb]2ãU"4=IpO\,c4s86,+Kwh/PU$;H8+XZqC#sQG(li7udjq.Ikvjj4eajW'=FDs\##4j(ãU"41ham=:0EZLFcR-$8GJTAlW.qVJK*Oss:C'jedy&e+b[K9KFN2[Vw/dHQo,Z&[WãU"R.\ZYYSp;N4)kv[;T]4.iTgL0D;VOP/KtKv>tKx2j_RCnvqJ9E9BDVERE;;KE/KãU"-G50kt^gT766XZ$MacbQO%[qvq4HtPQhg80-HOHBL8.uudRcqGeWQuteN?tYVpSãU"[aE0okjUz:Kbw7qb?tRS#oFV-[4OY,6FFEp4,#Gc1w-oZuB*=gk\VtH]Fcd7?DoãU"h.PksiN2elzj\Rp>?(h&x.7vM-^u]LO=g>G_TdU?]<880R=9sXwr796rmW2t%LNãU"i?6HiKu,UGmLiwILu9PLWjXoFK9jv61j6a2Sww#UFi?;)OãU"-^61C7nvBaNOy#ZZ\HUjv[$o#(L1^Ai3igQae2bV01v7.L/\(+Q*%xUF^iQb[;48mãU"3PC#N+Pg\9sbQ5u''#SrH0)tY+iJc^j&P1rVauQLimkvkxplaFF4]?EM].X[*^^ãU"&*_Y(a/b#/AiPp$CI.8,ud(CO23M<3&epG5eQ53HtF[i%jthCRZTQ<+3*f;]h-%\SkRT,J;d-?k4p8cFA.&\^4C(:V>);^,8.\#N>iD7Z[X=#TTUH*C92ãU"*mtFAhl,_dcOxcS6888Cp[W:cNsCXhUGiwzmHjkOvE/)(GpzR&&$Kt5>0amU?%tãU"#eQl_9Lc+M>.yPp[lfg7eENFO'nImr6R<JhHyRjOnww$%h>N$.ZBãU"/Q?=eO,DLG-c$DZmD(5]kw;[6M9GVDqGLlddRH7&^5t(UYXlk=s$u%FPm0\u8([ãU"48T[1s_rN=iDJaP=FWHOVO8^li]-N3jy$jDAOyr>oi3e_5y0&rS8a=m6_>Rp3UTãU"9,Zsbg6bRvcJVGWeo>)q=2-lZGM:Oqa>HH]32zV[9o^Zge1A9=Q8+0km1xYiwZ=ãU"1?4oAj.Xbg/2474nt1P#PzC]n%o>\]&4*P#;+3tt[++l+VT_MdZNkW2*K?*7dX8ãU"F]Q113mA5&I'$WvutCvoi9=odW9HA+#A7/,E;Xk(NFzH+uQ-\+$+A<[#zfhTB9JãU".snsuYG:O\Iz/NG:]>xPjxMlhPA5kjWjCw7'PIL/9;#CgkN:?Se0k#x(24P&X.-ãU"NYW3Xk=:uc++E%DQEopqXLAPOO]W&4?W\8AEh&^GS:2Y3_egyI*d[Ub3[a1b?QGãU"iThwmUk;/KGL1a_vpa2[T?UWni?=5.F1'JJ%PEyOAãU"g11\v>4J+J-JA+5r\y:V^NECuu9SXIk2#Rj)f>S5V;tXL0i?*7wq5Ozj?[$6wj%ãU"4crDx_Pw/=+.\fHlQ+Xt7slkJI0[6,>^+v0ãU"84$9BSAc]G&R)z+gEXOs:'0;w39_cVsfku;LfQ^eRãU"\&oc5^uCnt7fJv'?3I)b#r6%fC*)%\u4b=Z'XkUf7Fn=.Y/ENt^.ckWl]O-ãU"m4pO5S.w7%*UDA4EhdqGt8)*MFMonx(ly[_Y-+_03GWxmq)CF_G7gwJrteVPj2L>k3,kW9eY6],'O?j&QK,,9En,M_Jg:=d+l(&>>m9I-ãU"=>AJ^?_a-Uuh;dU%e=i(hCJzZJPLn_\EB=qGdwHXnsp0(k*S5S5+]#CFZor%MwRAytX>i]qr.cC\b,uKau[4cK.YfG$nCSMuRbZc3i:M2Y/CVFF=<]ãU"#42g\z\Y$ey.38T8I-9h&=CRIGst.A)gkNYwãU"U=1YuJa9]kjw*]S02R>a'']Afv-kp?l31%-PG*=Y/8CbWS?TG?MN(d;3*.c=EsqãU"40Gni9g55h-^V's=kZb$Y&#.T69O4,TV+:GsDfIJ_M#%G]l,>.[E=2D#=RCd:xyãU"\H.0tDL[/M\R4=/p$p?Gaj(3:atbiqS'N.2*X[Y.MY+jZ];V/W#kaZ(U&LG(mYLãU"Vp8+_N#+BRhTF'8Vczh)P2q]*ZMH/9*b;$ho8,;waJ?((oDOh[#Cac9X\&WF&114LCAzãU"T?SP.N=TnM_usu.cMekD:GYqu-5on8,NY)g=Bb8s$YCb2\;b?sVhAR[8eEI;+LIãU"$[iR3M2ANC3p.t6T;G1StA;0/r.iOmzc8Hrmjv(64&Eb1D-k9jTKb/26GE9qDgCãU"4d=A7G/bvmTb1rLgt?iu/nu2N=F30%QPvgyrg%R?T7;5'zfW=)&_]XHWVDBVHFaãU"?Pa6J_a7>u3_yeo;]0N*WxGdK2/J5S>No*q#3-kk_CrR9T5dQn,Y;gGWF,-M)tI93MCyf&=1$g$JiQ6:/,ãU"*BHXF,:jvV*p1+ESS4)52$s]9;#JA5.+31/uV)R%0JW'hN%G14':KoimH[kJ9B>ãU"7'\;XJrn-2z\zX2TMq[*%JhD_GsY9BDh);n%Ew_T8j+(9hzdaaY$,:ioQq:2=ANãU"(Q$_S)mJ>#T$)^Tv3>HY>)fbNc+s#beZnioXMi7BZju;5SdPA\W.dSwãU"RZX?1m-bR1I*9bi-=1AWlp=XNA*LM>3ãU"li_$<0Ep_mwEBF?_eZs>;J#^?,=t6$QO%,<9U#R)]8NQa<1F?i*Y&Xmc^X7odE&ãU"E7bP=.BuvVRL)mXEM&5HNAH[$D;KdjsH\rfDxiwKaa#n7VY;:h#1\k^0DUb7WL0EkR=i)DY9cNCA]z+bs6(TB^OãU"d$5k9XEWm#+2IGc4t=x^DilxpG_I0cXd<OK(jWGdv.ImvQ&IiKU5gcf,xãU")[?:8Hd9A'#*ZItAA>#]0a3.;\+fOH#YrYE1ej5Mb=l>Bai*gJqsD?bxF6S/8bHãU"&&l4X3141x0=;C_ivY',XLm*YSrKmn7Q0#6JN]cmEH<&/g=q:FjLola^Cku/LD9ãU"QTIABU2^0qP1Wl51XFBc)^j=3F#DF18(,RQ&X-Fp5#%VfL\oLYXY<+u_Y1=S8wsãU"vnd,P5s1?x\0JE,sAto/DM$*c?'KGCSr3/7/ij=Do&7qIIHq09(?9Nc(NY%$$s_ãU"ABe<4f8L?:zFO=nW^7Zf?v6-)S'^&;Pjcu27CR8AR=T)(E[vy]W4emtz)$;)Z/YãU"fISzMnYcc>h03_]K\uuD%XZ-N4)\J5U$N+Ps6^lyU-N/zm[IWDo/*SRN\,YmqsQhl//h/)u1\tvVv).X6m'EHi%V9<*ICxZ3s7'V3:T?cJH82c>cLYrF&'UCO^JSPoG-iV)ãU"IXH(=nIq[fscUtk[bY5?gv+oSf)$g=*/rb;$1Qw;X*Z3/csQ_oieUUNR:)#I:T$ãU"YS>m0ekKu)(PGc-Kd)l\]>QKSMBno#/WLUlU0rF9aLcf(CguãU"Qam[VL=o>Wo.:jG.A]%8#6XRX:2OP)E.ZA/*\0T6X\C)k#x_%.B:1V3sj.#H#aYãU"%mMa?dTloZW:tWP+&gP9yoC:s%fGyKN)Ck(2]\M]e+EWF.SDpr6=mnwJjTSQ.IXãU")T_(,Jvbn&fX*UjP[$._mQhW94$*Al+f;O4lB]fc2vZ;HKsKat^F,2r/'bg(V8aãU"K3cC\;p\*7?i[a=-A5y(loLd3UJd'W&w]ZZ2*x4-BD%0^.#%;=f#b=XdYB]GENJãU"BA&MPLpJ'Ty6Iu)xM;r->*7'3?J37P9RA3UxQRR=4%Qr580HbB*,F%?b9ãU"4(ZHJYBwkA/Dn&MURsaVdE4B^7tO3DXIL$oQz9[IsvY:(J%0K_jYy*ki,%8lP2:ãU"KnV[MiRbM=]3[KT;8vH/(S&rEvC7(N(W/iF%%*ygBfCZkh.SCUoYlqk'd8O*RhXãU"3tT=ddTkX?Vc#ZViv6sq<2ImVGgGnF+R4+n,K7nT9Q#te^GH>CãU"Lz]=P>5CDqNybB=(7^80w_%O$V7Dp*x.+v(_1qWY5HIxxm?b:%\.nK)s2^Uq7hLãU"gVL/8(-iGM^T(3_WLdS1ãU"V4R)Wm^nU6\\4]g[$DDT%&Yw%:GãU"#Td[AMqdj6ZK^MWtVA>B-,n(:cA6K]6YaQB<5ne'5BWQY^j?O^=RE^aG(h#%/.PãU"BY-N6b2S)%\&rjNbpRuBu\k[TOj.PNt<9N&UEjGs6L2Pt.PlrtWt0qQbP&5TtWfãU"(:NsmIw>rE8JJ(Jt0]OaK_j6rM;shyD,PtlfJ?_Cf9YZj^Z2+rWonU-kVmP9p[jBFgoãU"7la<]ooKZHlhm8g/rJWI%IGBdON0h?bH^jiBCAY4F\9O#lb+M%Wcakkmc/Sa9m#ãU"OP5TDfYE2z/PSn9TX1l^tM<7Y?#50(O1qRevN,/V^*oi;dbFH_MIcF9Ueops[Irw]wNjUkcj9>tI/Y;C-Lkg)[Fu2?HrRUAfWY[284#+O=Fj)ãU"R.w8_MN;b/RG&We=F[B]t^30Uj&Ub91;**S?R,Q0s*A](4^6T,E-Amt1C+&1]WpãU"Uf]*k9U6oh4#f/od9/#$ZJ)E5uWmM+X.X%6lF9R-w2_>edn_V+8I=1)\:FOC_dUãU"YxOdl0&>zP1F0r,'%f)/Fd$oz#z(8WXji=,^J+Ci%g?*Qgl:)l[888+1wQbPt0\ãU"x6l.aH$#?Eqca+0eF(-#-7Upse3)oCGxl#iUb/v<0U<9bZ#6&qEVd'O\ZHKtfE)ãU"AAG2Xka[-kIuUiRai(4%hv'6.pAH7)W*NtLIuEed(z=p]tqd.QnvW&hFp?N.Vs^ãU"lt-Q;\&eO-/,TBNyq1foLfvh#dtehEb%kCzX[;*uP#Zzf%%OFLcS[562P*Lil4RãU"Y5MDRKIPqXw?0iDy--:^R-/,VXVD3^A]1H#TLkw'akt;><,v]/)ipK;MJiZxãU"l_]'+.a$dR]>wN?6l)qxt1$I[AIR&Lq.[Avp^CBo2/d/Tbf-ZFl?9qC*DvF3K(QãU"rs01zBd(/F,xr'X;[FE?hPhY17mTq9w^:GFb9-oSwh3mCJUT,_51\==^&_RluE3ãU"c(5<#I0uup4>S)iie*E8RM9Ebc\De%TFYd:;XQ6/&i%kN_#Slhk_0GGcTtfãU"a3%0frdZ7(W'$;2Uf=Fc8\)fe39cphK^;3GQFbgfkfU#'%ãU"VrLQ1W?JCMSOQ6ej8\wOxx6alc:BwyzsF'R_s*suDgS/3_(>5x6P::?Xp\*#uECãU"uIf0^WlNjMj(qV^+$5(g$jU/&k,$SsX&;S+aK7vh1-9_'^H\u-)POZ0cex\9+d1ãU"l:9vD.5P,UO#QMq4eZ9Ed:h2)GMqp2iG)7=>g_QDm>pf0[18bX'LgCyHiwrA&XwãU"*.ee#n\fgTE^MD7V;:9_]1f6YGm-2xbpp?wEC5Ho+1ltwV^>Pk+8P1c;u8ErSm(ãU"38b;;LW'J>itReLWO2tz;)>[6rPE);<)>:bS[Y6S&7](?gz.53t8-:BV1fk]XWqãU"-)T)\RkT[GDrL%y3YWf^VRLdqAnes\,OPTt,uu(oL81iQl3/Ll.hm^;8ZO+8G]cãU"n=5gQ:Xv*_wnwNUC7L2EME=>oDb1ao^=Q*#W1-Qn-6#ImR]SPaZXvlqoVIYaW&wãU"W:%#<:^O&^(a)agSV7qVttoVX+LdJsp*;xEu_)wUZH;nVc-O_EWRDR:-9-GTD2uãU"C#Bb:B-Id3,6k2ZVEdfm(+WKMGsSk*j^N>;9T#S6s#lZH9sC?-aV+-o5DSQ6g;WãU"sJ:o0djH(Yr_SBl^0,-$*jvrQP3)_0OPw00bT(Q71oS?4\OAU+q'un-o?WTDVAgãU"HzljaB9Tt%qLe$_^LS%gFCAU'Q#q]xpTQo#IX$QLz/Q87ZMe.)VvOrniu%dV1rFãU"Ya^Mtv>avL$M((;o/%NPfl2LJ63F,C1Er>Useo^T[DT.>aXB&qJXfHQ._V?#4hqãU">Y9cc9HadPquAh-YUVk0_R5e#=g(AEvS/Qjkxu87YEaR_+a2f2Nx8,I&EfJA*XsXtB]%x^>:Lv0ãU"An$/k>ZZ>NDeB6E]CaQE^:MM2cbjF4WO-0]$#+?3^>iw0<2Cv_13lv94&okxeZjãU"[$F^C4/wJ:6GT*ck(:VB/d3-9a4B%e\.#Oo>jm_FJezZ+87/:&c?P(P'#dCloYMãU"m?$'$wYXk6(11=sk=,w4bqb[X6%UoDQ>d,&AGI[.(;\uajBK\[YL(BHre^GgB5aãU"qBGM0\#CW7AafY.FX,q8M_*&h\1.K%BeaavFZUi>Y74,bgoRmr-j?nllAs\[/ãU"CTzPmiY&G=BC<;z_#uVd,:s#ZCjOB:<-:kP+2Q.j4ãU"DeH83?m3LB-yhY4QU8BhhADMj_MOOK-NãU"?v5Y8E1gVjU$CvS(1&0FT>73YLCUyu'ZLLzFj8,ãU"Dr-JIlMH8TQ/[TsfCqMlxCw0mZPbk[^]a5uO5iãU"BXRTLxze7C22.xoC)N-i0c(ABj12ãU"gA4^UVjwk)ufX.qy=UV*UT+IUM4/0j+LY1cx>&$bpGt%dhng_?Y=3#hWxj;h^orDfD9_\qãU"5YjIBVFcQjmhdC5ChjAjz\e:3Y=cs4.:ciu:2BW_6KF2\0u8e-+mCRZ?6(b.j*CãU".NTQEd%?RGs7SW?,y(TS<:mr2p/rP#*a%_&5tw9Mk%X_Zb=TL]Q2XNYVvFY.CGtãU"A&M%*G-l%MA&+Ue_Tq9ufdUeBgNgkxdnãU"EUYStOVgQx9p=nIa.BS?5LKyJq>SN5[,ZDHg5n(eAFFi)o:0Wf+tYIUP2<$[5SSZNMnHX$f4bk8Q&u(EZt7fãU"%,.2IDeamvrI.xbl'.?bxEL?kApg\^e+*4,Vx8*kY/Ur?wE9a^/A-bGc/J'&lW7+[0Utt051Q^R>b9W1B^8FV[p\)m'WaHQXw[)&3rcXoPq<_:$yãU"GD_EZKcnO?sYrH5F;*ypz%9;oG92:el)GkRV^;:78*e9qRt_Z6e\+?'HS*,2%,\ãU"00k9T9F>+C>bt$S]/uD&a;rEeC,GJa:J+jH/7qpxjn#g5'wSXI_GDRd)Wd'Nzd-ãU"N[$vQBk*br'42OFqTFBRaY[lE-p4=11/oãU"dSoF9tf_Y\/TL'[2+(OUiyOm#%8Q'&[-I5F_i\vrxi/tUlRYraIn8A6_5f?RDmEãU"^:HNYgj2%r1H/&A.Zp6?qB(R+__f?]^WP^fs)tuqp/6wXq81;>xfq+,qtHiLb#=ãU"TKl)Rg62N\<2ei7u4MHwv?xoW%&wUGd;PE#GQq=]YC#^wH\fPhV%%ebtPFVt*mIãU"I]dtL_J6<^7bM8v8H:P#6E.H'4(-9B9[MNCt+,n#R[pWofPXz0'XL:JHV5=:0WbãU"zz7dX']nCxtsj4&x(hlcJ9<4r5'#H+FQ+G*)(*8&S&rhu62T]QtRaCHS\onYON#ãU"/RoekN$vM[^dNPr;\.Na,%TYFNn7F>>6SO)=JkYjY8RMn1BM1Wa+mU')8Q.aGi$VlDcWãU"I%WY9]>>am\V%HWUZ5WUrYHiH73+YBn?;V*HVo8=_N\/a7'2[2ãU"hQdv\cqV5%eH;VSH4a?2NGDAEW?4#dFWjfG+r(j4$[L%O.3LcZL$nxZqMAAf-(sãU">)DT*_X:vs9e*(S;WrY#=gif:P(gWn0w>z^dpSx%]:;DWbãU"oDSv2lq7)Yb8tE?Ck+irA*\G/\gzK,-9lIdNlJq2Lrvf8Nm0\gO./1Gp32[C=IcãU"-NI3X0<9M.[WL]\IoV>RmYwL5P[SKmfGC#+E,T[jToOSh\fFn-[(7^8mypB0HofãU"&pKC2M]wko9NG)>q?IdZ]_I^%L%^,ikourmh$zzm$wU1wZ01s1fDN:huXxBSPz7ãU"F)kDuY)by$j'QG#4s2ntG%$7*Pc-#&nJbz3>e?rgML9_I*a8msijOAr-zUPDXHZãU"Bl7ytMjBtY&o4tCJZjQ.*slgp#12pLw:$xIrum;ncT%v^fcz\Lt>oklm#u;KL6mãU"D&U>jJX;DknlU0risY_f(qK4NJ3oI\N(oJ,YR\Nh6JbT>B6xNgga_*ISrn2tU$#ãU"6xx+%,fst::l1*;)L83%TNrQRv?(D=Udm^\%#oYc*hpKm*)CFp;i6f4Q3A0aHZk.1ov&#a$dR2wYãU"\O6)c+G+]%#2K'1PkP4X\ZEV)UF(6lsTDJYtR;QirS3jSNtb6)6/IkH\g[6Qd[pãU"G3LgbMuI*kUGQkQ1J+N6^5G^d:U+E8R6]dl5S_jIGa0XZ<%4r=f&$[I1l8?l,DZãU"#mO33F$MjXOLUKGDxB/VL,Y&%UyVIjO2+i,i2fto.JOFn&NrIxsy>,/pvcL8*emãU"5*q^,6pT&qvVfe#Ac9bXaKa#d9wl1pAn.M*07.l4cfe\:yjjM.Fvi&_G\92+LvIãU",&8a>6D#etQJP+Z8,(%hF^R_T'HSb(Od[T'i6&ãU"b1Z8DNvw/#:*p'_&iVDVqv_$J-xVt:X7ZnV0o?8I8oKEJYf)A,f\gCXXEo\=KP9ãU"8Z$>19oY$>bQWfAhd,wPãU"t2>D=W;N=K6vN%ofwIcbj/,gQg-5Sx/%,&>uRAMR6le&$P0dVTLqMX1dNhfdh%HãU"],kj0^pO6745KFkp;Za+lvNPTbjQnt*&r9;2KX0Mn:O6q3pG34g,R^ujkT+Y#7sãU",WId:DLEvJGM-7Auhg&ruo:+\%--7W^MOupA_wxI6:Fi1GV3]s)m%0%8j7)7dO^ãU"JI-F7++y+k^=dE8?xp8b\w[UN+:w]VgVPWC_a/rHDYZZ-S[kTI^S?J2RMip?6_QãU"R:$AEn&iqT$/ZljlW-RXdfcBfTx&xkst2No5M\FdG/OmA[6G^G*iWqoBãU"WK-Tne3mjg-sfpy.G?BX=4iQJ(&jfF6YVlqWwD2I012iMGga7%\mrt&'auJVRY*GxãU"N4C%vw-ra)24Gp#ORC,p1)bw]/AeRf*=7I6+1\CEKf>dM&*b)*3cãU"qBTh0]?=iREL[J[_x\J.-qp0gYt-N;$wUc-Nde1hGzS$SBSwP.Jfw9oãU"c(Ql4/GRhZYJ3E3;*rj2Oa?FUAX^y32f]y]J_V\bh*x0)8h)R(yFYd\^,WXQiWrãU"%C%]T[Yuin.AM/afri_GPZ&s7rNW$k:fV\sgsrmwQOwLH#oodR9-[D]5i9B><[HãU"PAF?L:AjC]7s,-ixN_l45d(3Q5FH)^d<'HJs3WhãU"ev[qA';Ee.j=[*[O3NE64W[G=*O-GcXMIiI6-dCImabd34H)-dSFVJ1RVOk5^o]ãU"P_ADIFabHbb''W%z(d89N+MR5,;^(^TQr-;5jSI?C#N_k)/MV7hB(6Zn$>;:pklãU"qO^CK7an:b3IUm*9:9#Gyc4Ff[%Gdj4iG;\3#5Rh)._UV0X74,3k%ãU"S3_xWM5mM]JL(c#Vbh_,>ãU"-p9z2Dm$*K(E'i:22L+EIO6R+GD.s)CmwMI'KKP^fJUms^W.Z'2NZDWbqQ*q^>BãU"t,(X$K>NlMl5[u1#P&.'Joh_tFIPB\G=-]'v]I_v$da[u&=U=CtO(#ãU"af8,br%I0/TSw%sfowXQecbgrs%)RIxCtsGVWpQ\IWeI'TEVCmh*4Lje;ku,Ce#ãU"49j;==4lOsIHU[/eq/\b02h9sb5ed_Y47s:CQxG;P5jfE*#f>bjvrp7v6Gg&r:*KcY?VlOjdFZov<\Yvog\=CnAm,8a9Ik&*#Kr;x6Ok;e^'i3a;2[\>f2)S$:4aEg1iZAKfm,J:()GDãU"-_^-2*gV?mw,Re$r_:2f+,Y,kn9B/-\tPWQ/;hZn=uX.>V+2g0W7n=;d9o'0CuvãU"?sklF81I.TdJZJ*7&fT$)ds4IaliNw[*nIfp/($7WS\mx5S=ge*::ox*WFtci%xãU"SRL6jj?OBe,N7G=0DmfLhsK3GSfFmG?ONRhkR/Ap?f,jY8QkFqrV9^JgbxC6PENãU"?e$Oa*Jj_(W^kB+Vr(?Ipx?cAl:7DlWp7crgk%&pBqDvck&Fugc1PLu)[YTidM#ãU"WL_>twFg>S%/OV(ol#S4C$4Qpte24&pWHvB_%foj;4Sp>wnj,?O>]gg\kb5<kN;[mn^(1Jf?v=z:qk#.JPd7Oc#X37[&7f\#zDll&jn(QR)IJ*WWr*5^HeãU"cwSC=[<_7Y&hhIl7bn9.roVnZf)OKrI_StxDD56sZdn3:(saxakVp?K>/rKD\\0ãU"9bVEBpTN^G0\TiO*,AJ1taYQX/M+DmTu8oX6,mBH;.(s)eI2DYO^1?Dw=_NR/XKãU";yZQmvZ/0YS#'%Q%YdtHEvPwut%'U%hJg3,Zt^:aU'E$;Ffd2(68Z>2GwRlpmf^ãU"#Nj-Vo2sy4nQi$fFKJ&cN%?=IxeR]]7kRD]U2f#FHRjSSj(=3;el^']%?#jMqtSãU"%B(NN46ZM'1[>,YR8KdcA9c'yliqT[^8uZ6V-a%4lB1okãU"r>jms]qo83B2KN;*ld8C&m]&b#fzp*'9#b&at3Hhd,\k)#%?cYbl6$YJDo8^Af(ãU"lnDQaTfZ>[P_Rg8nB8py:,EjSL+kF^xvPm,#+JA?Yf[fxX?>vfJB9Z$p]1?NCk?ãU"g?2RSu4VK:lTE3rIfaA^MPM2,:uq8cjp9q05/svyj)blTãU",,fu_r*FC0R5Ms6q\7m6+6x$dbd6tIK5.v.u%p()9%%%%-F%H'1dG&w(-,v4%(%ãU"MD%%%.%%%%mfu(u(SlInx<(D,WI(n%cpGcF^kGaSU-,rp0p^A5?2hmZ/fC6[sEXãU">XOAg=F4eg2gLgBJ5k6/Mke#,QO0j8%Gv0oqCi8i$s,)TJyD&\=TgxMj88]sDnrE:rãU"x%qmb^C9_>ht8FOuyPr-ub$0fOnzC9Zf>D-YAe5*lFlrO.t&kE*hNfgy>DtE&D$ãU"V_+%8OiXFi_/Yv'ES0?oR6g[IOr(8%mqWC9J+(.$?Qm[_4SN,g=BNh#,YãU"C-kC,pdUm.xXqS&E*D*Ji<=r.2N\hZn'^&LR.1wYXilm](39el]t:CkI6Pvr=FO<5Q72FV+>h^8oZGt>gMãU",T/tOa]>]542Z;j2R-kRR#iLU=TX[Kab>P_>vZ(dfjhvr'AoS$1DuãU"JF/HRrm9#5Jt)i'OMDJIFO3QL.Iw.A]&94W1+09Z,j]RbZiz)PrFgUP&]IKK*-;ãU"n.fBhKH,b8F=tJ>5'Wg7FAt&B?7DqZaH=x]m0LjvJ8'pwpGLJ_ru(K5KL_]b,-YãU"FIKb<6je3D#r4]u7GWEjtp%eA3#,It5h/spsKh'XIq2]yxlRlr\cAuj0hg5()2NãU"B8vLRun($MqULb/7G;aI4xvw.p64w=-qNu(ehbbghAuKXiUozkC;d4Z(_6-b7kNãU"(sk%G)DLA7KUUD6-7rsrqBey]+-*?bCB$w;&LH4VS^3kA$T)40B>UJCf1&_\FpZãU"ejra%CJ-),mlS>2WM\XW**R82n]5/l6\]*G?5]K$&M%JjADv8LR,-]f=[*_-u:gUXJ:M11g$NVCxeãU"_,233l_++V[hF?_frS\A7[2LC4%y6UIlFv^gU>-k3&+#W/o4l_-s6sL&E#'rEGS(\u35=&mcRg=Ot(Vd&15.r4gO'=&OXh7iWL_r[59Ad2VV$a;AKec8)#S8Nx3\5S^+aaãU"7xaLjL\sdGfOqMZC0=n4#EfN+=KEhc73XwYf,d6rHdRBJX=%QAtC%GEYr>hoxxIt5lsu+ãU"^Y*yQ-aHeow]2+e-ãU"3MABA0sBdjhQwpbE[(Q%g.>\k;r(j8c0mgCcqlNsNul*'m>c,20#+<=lE5yOiuVãU"pwr9RFnhi>7o4=-1L0]:D;8$kNTHqC\k)o:_b&sU:Ivi,r-Aer<^7;DUO7W4AdAãU"3^o-6^,HtWusbL,dbMU]qvg^n\zO?Y7.wcãU"^9K5ohQ$o'XF1Q4JmdhWqQ0x+t+[aE9sogT7oãU"Z%j.pehzxCtt6Z/+&Pq(\q^4(3R(tw'Xd?Sp2FKtr2t1t6,xHuW^mnU>sLl4^1LãU"lU_aL=Cu-PoGY0n5H]+#?EUq0GãU"XsYQxkjsHãU"fpOjmD_4LPURLFAscGGvRoNS:Akktl+kV8$Vs2fvAsEkfa*O6_I'*W_z[6RY:\^ãU"0u%s'Z/8ju*Wi>hV3_*UE8)KTH/P$r3?5q\gY0THJLt:7AyQBYrWPAY+%[^[O;VãU"W*g(6:kGCi8Dek6XAm[OJ9xO6M>d,D)L&.p5;00g>v569rW]s0FaQ^0i,G6Y_u-ãU"T3/T8MB9-[LiT.fFoi>ON0S(be8m1otGC^/F/g#TPdb_31?Ebd^]2pUhG,uZ(WuãU">KGJ/5ia:_$PMI/HdFPPmEgKh*T)O]$B\n8yM0*7[u#;LJ,c9ufvM+RC48?cuA3ãU"I?Hj.5Qpm+Gq$hSGNrYNxlV\0(s7)dY,Pn.GYUsn#DC0Q&q$8'iFSbo^EMhG-2]ãU"-26O+f6+UZ]V*P,IfFHg)C1iCV4=$V.zk#_4F?uFoP$Qeh<3o0YlãU"EH#[2HY,[MSRQ?jEQ_eWmQugC*kcr-[psEEEL#[=(Gr*Z\^0T?pxhe\LH(*qBiMãU"Yg_KP4WDX.UbU&L+M1rlRG$<0#EJneSFD*$,Qt'LHBgqS9lc+A)x?k'Ip.qx<(?ãU"a:'h<)uZ[I/*FL6/Yx;IpT[h\O1)^*ni>'&a'hLB(wE5-J&L^NX2j(L2/Rkg+KiãU"\#m_6o9:cWR[;_UbM<5-GL['P1t99TsNI>''gX16Y/5j./-tUj8%AwESm67#dlLãU">,RX3NM3g]rjRdqG02qz#ZAp'>VRk&jqS;f'D(r4ENK]g(wDSU/)xU(D.F;le,HãU"cSt5.u2#mBNq+G>P=TMl1M:%cOpBw/\6=2n?ElQ$bB_ZRmx8hJl^=U,k1H?)7RaãU"l(I-2wQ,t%J>&%\N_A1.[K6)unq#\Z_UpPASj^S58ãU":_.tbebR0Q8)K/tGYD2K\Y[-j^W46>L5liGFVWlag&HjJ;)EU9M-'h(wz>e9'&lãU"CLO<'QRU[5nQQL]F=0^i]tO0wiMXr#JmD.9Z2>g,=VuFdb#l7evX;*YimU+9vegãU"i-A0LxR1oHn3FLacB.Lw=yOYP1P/\'XpFgobLqCK71Fgv,i=)HX8?Qd^ew5.s6BãU"g?V4QYrjS\Hje*ZmL.kik2aCV9KAr1'6*?kMWC,B,e\vwKFD1hZs]qw6?PKwTG%ãU":C]%(nj4NE/DP#pxdEW^\w/+yKRZ]Af:d_c6CI_$P4-A5PAL:GH-pl*j+,'F'27ãU"(p3(6l(fs=*M$-qr3/P/A/%rf**cc(m,YgWf*^f18cAl:uIf9b]Dol0>',9NH,B\UNabOm8u^q^bh=>SãU"OZ>7n8Q0%e$QZ0]N(L$%6cJ'jg1%c)6)8-A50HgmYRWDDv[u8Gs\8%BH\$fãU"RPka*np%c./PjUMYiM:TlX(W#,lPu7Bp](t9(u\idbV&Wvf/iM*EW0,h_zkNj*-ãU"G2]2A=>v&blWI*nQ^HQ4fAk,=D=m*6rFTYi23633rtn_hebE62AjS+u$(S5=25-ãU"NZefbA:kN:yAC,zW%CtP+6kUh1UI+3HhwI(g0U,RV;49aZEebVR;1qq=Ld+(SUMãU"13/wHY::VEG,r#nt%huK>nxvdQno\M>?vxu%p()9%%%%-I%=o)XG=v>.;6I%.%cãU"e%%%.%%%%xhf(q(Sldnxs5SJyL6o7\3prS:f:&Fagm$#QlB2_SsMkJ1WL2Pu3BDãU"\SeU\k+u%K4W+s2-uD+(voG^'dqOn+jLIuSRj+)If\Y)VDcVq&52kI:y4M';>tAãU"p:?YCeIm9b_$DBcHX4f-6blxsCkA*UjudpsrA-D[;sTT3dlPKY[Ud)A'Q36jc(Q4gmKHsFRC?tENMH-a>qrlhUKot%p*##(ZGF%rm6NiOZLqqRzK+$ãU"&(S'sm[N4F]o1=U+&e1%6+7CEc1FX%m>;jjWgJh>xjN6NdZSheidDãU"B-VDmEl$^;y6BBew\.26fgB_(SPNc+ew(]G:(_^WGF'\gj>=JVlKKMRYO-Ux1ivãU"3m%C$K(+F%Z6lVf/FO9+MG)VYK$ZW,\+:YA<[H.VNU9\Zf+LU=e1$Z)eg4f(PR5ãU"K?4_0AHkhv$Uf8s^5ZpuKhD>zO6qEjhM2WW'PBCWx0(21Rpec*BmNb'/^D64IMIãU"NT#7YH=?>2^*(9[O=a$ALnTKuPQw(>U3/\UDH\p5J0No9'sbgQM3&,7qI;P^KgbrFãU"LKT8]bvW5eU%.YGL6=I=N.m2d;9.+,(:U=+5x5?uvãU"L^T\dl?tIqVV/.W?5/(8xW*iXbpXtsYSPI4s)-d_^=Zoi#)JGYZXs\'=e;JTCp&ãU"cB4QjtAU*P/p-6)75KYQ_jCJFp,f7$Zu8,Pi&KEJVãEND SUBãSUB V4ãU"Q<4O([gRP)J/38.'.shEOV],WF\4i^p%uk;&0+z$iAJeICMh3$;yh*XP6x#:pKFãU"p9F%H;_L*3;GMR['xX,?it\)35)q%pjcRYwdI5G-Z:tpJ,=+&6UI5b>6\baY8DbãU"bIui9E-bCPjjGyWoDr.o(oXV&)v8u0jzKjFMD%>t4UHFZ(O3GC37tv*j9ET)\/KãU"gB1g'HqoPCWR%R:8:0.?RZr3-KdR.SS-ncA2^NcGYSx]tXCDhgvJ-lg:ãU"7p5fp*KJ\(b=aF)>?KYxLZ-&S55GU3X4NHsp_1%HxfM+$Kd.hKm%l6okr\Btg#;l<^lA>Pm0+I)=h>F?Hv=d._bE+JiaA4Ja,?$l9rS=:R0;r7/YN5;grHp2xãU"HD00kkOC11;ZysriTSe&;$Yu?2v4qm^r4^DaVNhC?S5GNds/7WRY;C#X&X%u04iãU"?1j55/hVVgghx85Wn[5[6x*7%JZBofkNsC)Y7=(qQoi_LRXXL6pS%f/es^T?'7uãU";Mlk.;[<[6b(/(-.D%ZlFh:rv2'\H8.^(tZ5\6tq5ulw_Caumu.'jNN-H&M4euuãU".pka3aF^,'KiFzAsGIPrlT+mA?hcbCUx$>iL8+ZO0kY,P[5)e*Q:u].?2\B%OW=ãU"_qF5GkjCjwAiQM6Nd,HJD,z=Z(\bk##m1yEIbLr2eMLMKMsHtQ%aJ4m0VA8FT&X*l:f]nG.mCLx*JRA;]tãU"O%A#T28wPhna>CFrC1H2_.]&'%TDKeCg3R(1e(/OdOTdG=8=UFTãU"ws,%CCL#')&Ohw.C=>zJ,&\'3/I81WuIkC&:=S.jAgAT)lvPu4&N=^i)G[R)UYpãU"O7b=[iUj%D9oXq-F#&fI2'S$3PZGHb$;5XRA'6dj*:qL7xfDSRt:A(Nc5Qfkv8jãU"RcvMa9#*=57j5mwL^E6/tPOG?64R]T'1>Hx$]fFU8H>u'gU2nB4A'guWw?uA.JgikFF01EHW6G9IEkC4g/NU&fNIrAzI1bãU"%)<]N.BP%MoftP.,%onOdalj&j4*zA2s)WcCbfAqDNrVgIaV<[A%N9%DxTkdG2ZãU"tuEA9N#_bJ'T&xPqd'1rkL7\-;7(e#x.i-l#.CAm3,)uCg?u:ZXMf65y]W1an5XãU"VKbD0adcJW7dPad/(gV;52%D?wdZ$#(O(J)G$w%uG'wZ\\,jY%FF*1yDeSddMbrãU">_xr-$55wU)qB=NWeAZPaW9X&:^o8=$wQ$4Ga=qãU"B8?xl$%mROIFp$t2z7;+d.=/vJ_q^MB$A5Z&$%J0%2*J+G_Jkq)%\)_)j[UTkjCj:D1xMãU"J77:&7&4IS3&GZ\DuU8X83hinuprãU"k+-0=z(JZq2=;]\8ohQUicNW]k,jLuIBm6DXEDf4x&IjDnf4:EwãU"joYJ=%&i6_eDef7RImR0-.<.60h*WLf4E)cFGQn6=Z5^k6u:FblN==Iqe$?cVj7ãU"KgsUZ,g3115=O(mi,Ea2_o1WiTSSKtR5<0w[zQDWFFãU"Vj*F%SgEDOXq29ne[_nIbYct+'F)arTKFUGT\A()Ror9f&o0j%CuIxB?wZ*R,pYãU"'H,2LH-3Xv=zaI9Cb'pJbgpjaqQ;E8XHqbhN$XZ:v1/6Ze%lQ\pw=/A=+&ugB$BãU"$iyoWor]Ek_',=VBt>;IhvVuYQr#P%T%A.*4cbãU"72w_'Xf,gEnvVB.xX4??(b)s,;&s]CF6,-MfAv1%simKãU"Mx2'F7FbãU"$wa[*jGQO^9b0c=HA_tnLccB$-GvJZM/itnq.V.Dc*N&^e-lfO;'z)5,#t:j;&.ãU"-(GROS.sA9gg<'V/h25P:m_ggMBNNMN&1/OYTnWmW7z;l^/\hQXD^\*$Ra;UHQ\Qv.Ya*(L/+jOno6[YCF'$9/Q1a6/U5z<*ãU"pMfk?DbCu.7)x9E'p^9%?uqeH:9cJ>aVoEameg4VlYHV%EOvl>FsJ%Q3\z)t*TBãU"=irsp3%B+[(o4EB/v9=l:;J_RfXFNY,XQ2NBD-mZ=h;=GeDiGV5M&UWcjF(w'ZDãU"cm6mg8aGFn$J.kFqbr:#tVL+'&?l&DremX,m$(E.)u_io9goWjA\IypN(l0H03f1zq6UAsU-i04sgh-K?ãU"WE5?jb<-.ELglzN:6B.M&19UmeQu9.Wocuh]lpImS&.Qb47qa6]k??T0lMNMIq<ãU"W\6s8K_f25^>kjcU_w(moCpl^V0XR_]pwkãU"DkM[3ATF]FeAbePG+X+IBB4Q)+GOBmq3ni2pPH#JIJIoYbMOwX0Q39)iFdsUg.'ãU"EoEJ.*9MYgnkQqL0cB8O>Xv?NJ*542VT1VVAAmkh^YG45iG5H0H0Sa.pWr&a[$-ãU"&_a\h2^Mk0N]OTbaf*#Q=qaE4&0nl6R0>Gm7*(qc9t%qBN7+>^B_h:a\XãU"x5RYOU>#FcaPYoQ:'GfGI83NQOhAJIIZO56;3LHeps;ss1]]By49]Pm(UD'%I<]ãU"/vePNJQKPYo^c^;yk9M)O)<88k5L-cc>y^2)m&;jH-iEV;rJwcPpb3E+TZJa5b<ãU"m015T'l;u^mk-snX[Xn53#FydC0;9/?FzQ)..>7TPYPxaKXqEKtq;E1G59$S*lOãU"kgud&vsuD+hGc_>HN+/YF6.ls=wu(VDfd3'q,Y'n>o4MNxUdXGMQ+?BJJP)ejqwãU"+Skvv,WBD3[nm7AQjB339[*2<]rMi=/^Fm#I8x[XEb_3c_/5CJg=S%9H6[EygZfãU":o2$r%AgJaocP6eHKMCAh4Bo?(/?G#-jgcUm;&TãU"97RdyA3,i<566)]YYs$1d\GKYX9D5h<784s=6<)WNo32)[6W,tMR)G6-+^f]pxHãU"MoX3*\4SvZSp:DD4_fV5kFOSmooOv8'tUUf)]\8doGSYuP[8ogZ=lJHJ/2oYg98ãU")rD(=cQs3j##nKr:+Y>l25?6WUq$2OB_2w2#=/Of9v/#P3fi7T_iDna0x.CXD:2ãU"uaqQ#\5EO8#=k#.7$.,T1Wk;j,ZIclcSY-?^3sCcmLTso&Q4;pKC-#6$v[C%V8>ãU"K>faW.3H:EM8w(KE&u2(RDG^.A44&WWCFNe+J>RFeX[t-pQ_mhmlwf6WAQãU"U.kFiV,:+m:GAdutvN<-091,ahoT^an1P[8.*eFjcC#,gGP&i5/Iw[$h2X'J-7dãU"JrlQXN-ivBVJ]NT^2TBI&ZwNAu_?ãU"?o;kNvNm^Lj:RAO3&nW9bed=-(b2?fX]Hb%fcp8H\Yr(e9n9eyUDQjCY0Cozq3:ãU"EopT:dt0u)C/7FQ/:01$)S76#i)CiXY4Ug8HMC)uP\):'^]lRbtnbC+x6m4JOV_ãU"EZ>HaTcS\E*Jz95-'%%c(ãU"#u2rzowjux;qUG8VJr7_c)(:E:v_ZTQ]Y9(gqk%KA6$E'naNNKX%Jn/8SejO%E(ãU"c#9V^QTTu0$6oMK[)$s)S,,zm3y8rwe%%Y0+f04EB.9-\-Dkx\r])q+?ET+xOrrRslãU"&t'&$V+,#I7V4<+EJ9+o7OEhTKwn>[par]%;=7(KF+fDl+58U-Eicd:c-SJOjC\ãU".[VqrLeDjsb3J0cstA:shTiEVU_GvmmwFMIk;=G,NJ=w)&Z%Q,k5#72x3I&tTiqãU"%p7frL=6fmT#*I(?iãU"O+vM?i5('Sa)-uEOU\Q;%6vn(2dh3G^muEY=rj10rk6u(U;s$Q'b/#zbS'%nãU":;J.3(H#\B\]X.B^B(P,/&\vIE8%QbFJ6AnH+F8Ca5I_C:aE,%/LU6]t.bãU"8?L%144XR:i%/Ul2W[_c(TOQvzRYFBoMi8Hq6f0dnsp'7ãU"JScWhvu,0TDyP*kX^(Q57v/%3+6nHwEg,H=mEymj>ucKOq23=(8&Ittms#M])_2ãU"F;a=]D1M:7g0Q-q=dbraG^vFTi<,2(n=:J][-ZO)paomm.=<2#'Y7ZYdYk(T82dãU"rr&GbOo&5%-*ckVW#&$[y#UdpPt[?8P73oX)F6&wGD;a^OsSB7n&]]r9]gGS0.8ãU"xIbTrJHJBUvAWGd=v6Joor_IQR=\7h_AMC;nvO\M.vgK1/8,J*NV)w]fWC15aIpãU"Q\e_Z%ea)'1K%lehrUA7H(v$6fBT42<9X]SY0wX2%9m]xq)=2tL:,;Y4HKcWsU,ãU"HOiGtaN$)b7ni?d.Hxp/D5dr5^+lFG7kKq[VL_a2F8HC<(HCAg2lWT[LmkN:Pz8ãU"V1pIGfL]xv?WsQsDDWJO;y^KXUwPf4Mu%P/Zjg?].+x<+[Bm)17EnT\MMZpq?*BãU"xHEW^6ApV2KrI]5?ZNUqi4hq59Y%=.Z-nt<[klJF'D;+8Jv06vF/mBb>agUJ7s<ãU"Fqf#ui7aRP^r2p4cnjRq1pj)K)zw'[O)\N_?9.olfm6ssm*3^a8W2fHqeiK3+5:ãU"bpwJu_dLaxo?1.s8FSg)g/a2OO)apbO<*%h[Lk(&^HTam$q(Fl*g#QDdlãU"+d-Kil^a*to,Cu$M;V0%OiZJndS4n&#.jR97lB*?tbph%:3&KuãU"EJ8\UMR220DB7s?;jih(5,OS6inaUPzK]idMQrnaDT*S=V5ãU"Y:R57dE,JbqZ_Bi9dBPeM1G$;kz8A;:<&6=b6jnQ;hfp_e.O=IiH_Tfjal)q0+#ãU"0WoLF-Qw>3>Eb18Ik%(cmgm7F'Oj4oYQpBAQf8-SYCP,5fO9fjhl%Q\F;CzAZHrãU"nwm9mEDv3&rJRWSq#1SmB#55lXIU,pi5)Oc?b;a$EjZOgb0m31w'IQãU"HXIoi[IZ&pF22gLTP'#X-V(ZSz%wt9jL[z&SHk%P^eKOX>^?VOx#5AG:KKD=GXpãU"\%4S:O)[+PU,d3Wro8=1dRpwCIc^d)BU,c>NtyW;^S[T1B)%Z[rla)oX7oH:E'RãU":y^d6DmOSyYTOV?HFsq=(c\rt]741=Np^;2uESnID:K)NNbF9^imBYH*wo$.gZtãU"r*mc;D%Hx7:Qo'Ue:#HA%xhBbCjL%q*\6D%r:>A0Mh(?L%hmu2rb\R*a^gãU"Ot.Al-?a-Xg5k.m$Mb88b<&j7Dp]i3fHgj#i'4J.=)bWNe[p-p9.TXlt9Ol(/CPãU"\tAPfRi.hhhAãU"LtPuW[mJ:>-T:9p?#J=U/aBHlwdUc:HYHc-'6_'l1jvt-l>nVVWrdLNT:[ãU"xg$fYYIU3z>%>s35Fx(f/tp3:A%W/w[o)?/?.Lro($:,2)j'd+&QIJi,q$,P74OãU"aHm5Q.v/0agHYq'd44?^aG)h&6pdg]DgS.hp#7If=K07,IN2r?tJ>iFzqYRT,I?ãU"O6.50q2y[0a=$:vGH:zbZ&=x=_B18.Ul&JFKV4nM<+8ku3bl2J1\8SAAsHBMq,FbruEgOV^ãU"(x$L90#LP4FiI2BG#j(5)[_7M%sW>VllvIM#V5?PPYãU"jfDCbKU]^bgT+^g58D^9\B&PmYt:s#BPtXEhl/uc]tRlTPfWFSfb.FOF*sagY=gãU"ThYMY+?%h*Mhh(*t+=z]bzcHQ\qK_BiT.tr,BZ2,ãU"b56EGgZMVe(<:,fkEaUTSm+G6n9G7_iAMHM5ElhcwWH^x2N1>6T%:9)Y0uCt=#tãU"XA8&:X3(OsjRMC71$(r-_g#5oVT5XI^*VH,CPsL\u>=)ZY?CZ_LF.ui2T-J?vi>VcfgxeVl9vOkP#4[j&hvuiKZgMu?lZGTke5][b#aãU")+R13)T+Wq(,Ip12((pQXI9A.)a%\nS1D_:QH&_OpKwZ*i*[Gk5_uI?M9:R4FxUãU"ru*'6r\[86quDtJLZV%c'mCck#*c+OAU:V7TL%h\MQ32K=f5%&NvHg&^h56Q;'5ãU"4:P^>#8IWJe*-w0BBgj+5x4:?+X8u3+Bi_lq^KP*UPxlJaf>=$&Chk&P=0+l?srO[j(=%qIpX*9vaD8*fS$T4OhS]DEfD7>ãU"ErJJ'Vl0(IcvGn[vE)/po,-cmf%dQXQ\xehs$cm3Db;ãU"?)k3GN]L8ME21nh2&*?Rtm/mibT5w?nnwGLwT$4A&L:f)mpwH0_,m8t:^-Pja]2ãU"etcQF;yJQ*BeNJyvl1m$E^n.mvX%Pmr?5hC>HHZS>Qr41^2'_?V=m02UgTUXvB2mDH&rjjoJdz.#O.u\GrGãU"lEVt?*8pt1ZvmuW_]\DlAO?^1ISI$<.;jhGQc[#-rlMu4YNi(U*]b.bJ%hJ%0UXãU"=D]1##v%+nP/:7>N2YZx2$z>3je>5QaãU"'h[l&pLI#B4QcxbV$rOYV9UP(8qT8-l1=Wus)\.P_kD*+](W3Kt6jC]z_'R,ozhJ]4xGueQãU"ReC'G^uj8pGY'sWYcT^<^lpL>;d&*x.AT]t0-Rb5rVrD*(-\/+xBd=Y2)AF*CbdBH_FEWkGuW^N3pGvy,y6#sL>s&9ãU"_Ze#RKZv*dNs^i4[,W*5CCpz2Gs4sM,:/gKdkcV5)j&$1Uw&g5P+twEe=Ai7o,8ãU"k'm^yS20vuAn.N:G68-wYMU/t9;ghRx&tV0e&nW(k-KHr3Ey=T,*aGtQ=5jpKVa8=8(n9U=Obt]h#ucYcd7GEDgKãU"\FYOFrhR2=u'-XXD-BCO?I/$HaM))p10)kQKIJtllãU"j8swZ5]od??>Q54'9G=I*90rca\,:sE_f:h>j?ADsWhdX__m.iammwSIz;p&F0dãU"N)d>dm1:WR24T6PEE\$>$c>Jn/qUaeEZ]>x,2%U*tdR:'?j3BSu_b/5lbR'_%XiãU"NsMoMhw35pghHh>sLrZ%#VeMOEseRM)jbT36bM6,<ãU".\;tGD+X22qr*U]vM1b'%/BK['<ãU"C1_x9a1bIp(WL4J$g\XNltCaB.M2,8lg+LINrN8Cin2Ve#=$Z1-c>u+qi(q?sFh=5Hpm1MbPXFsVWãU"V^i2E5hEBFxVC=HxJp#o9H'eJ.7_pd>L>29=XsSWCs1zA2l9v&cSYEsmWh^*H7]ãU"*61G$$F)8ROXY%^dDiDkVPu3jZA^UH5*ãU"xtF^$5jMEnZ1m5IF.RH=>eel/)%b6LOH0S1(Zs^2G4'+::#mnn$Gr99zm25P#Cd1%RãU"PS?B/UTG_R>E^BZ8xh8TORI=oR3]>5f,c*?K,X2D_CNDp1^Ib4N7u(v-=Ne/4=-ãU"2Y)7_J_Q)Tywo^p3TLdb3_BH^]Z8_o&MbHC[xXbO&%./ãU";MV>J9[rZUs9VD2V6k9RbR$#b]w[KhX1&xEX3H6N-%lDyQW(b&*'f=V;-g[Z3]9Cs$$w\HXrãU"u?kaoxACe_'#Gntu=maTJ<1nK_uQ0d)\q5<>u+xBB62\n*dMQe1G:.I1bky4MsBãU"1e\iHkK4x?fC=)4$<'zt+6p$EZRZ3^-k+LK8u-,+pl)BCqn/)G3,,19wt292U6-ãU"N3R]bMQdfFipGWg0G-ErUaFKo,CI1oQBo3QRFH&1Ml>wd=AG2i%Diq2++XD^uobJW(0:qrZ5G+j\TK-%2HsxãU"+IbQZYHdNJ1Z5VgDMwNFyPh'RQ7iMpsLvt$>tãU"vvD'&Q=UU2XTAFX]%B9*sq7Q6s(B6f%t)mDH+QrF9Fi$b/WQMWppnlyWtnzt%GVc&[ee=Bm[V#85x[X]p]fa*rNPz2w;+9S1e2lm>ãU"U?t[\K*[:u3;4j$#5\aiAt6*(iJ+zlHrK#x[B>ry-=%mC#7w/db$E2uU-?(#t:WãU"tUvO[w_,L7fea[wM##F:H0#u>jQw51?MKDm-kYb&6&w#atQ*E'5D,5_0Hh*CXyPãU"C97r6\-/GWu/)sCOo*oaW*Lpwv7je>\lN>rk+\(U=xC?]'3B0lNNN4uãU"AuHWX%HKn.LR;z&;ELu/yO.#8ZXOx.Ck_*s'PP)jwU+ãU"7\vs-Kti#hf*G[3^IdkãU"n#K\JLZ6Q5cP>N#4dA9v]=Vx])2yfqE&mpOV('Tb=cvf-FYF$WRu5pXVBMayIsGãU"vs3?,5\]+a$524.9pPPY,I0J_M*R3_Z5Cp3ei%*?_rtI$Rw-&clg**v<-hc6pQ_ãU"s-qhMc2#$WlW)BF?r8o22usf/$KJof=Jb*1Ns#26p4-PPoL%w[h?02XYH%x\.c;ãU"t<>VLt.8)s'Qra>$PBH?7&Whq\zpBero>$64FohDX8^=LG^'1EBD%fQL'nFgU=9ãU")e?7\HV'Q8ez/:_f6.cJ%YzoN#>B/bG)OM>Sp8FXc+a*tRVY'\Za^^QB6^QQu7/ãU"bN7xC4*B#&cD/^cKj5\-&p]90:TinkPnKn(mEYqyXhZHC[l\0hT$SKPJJ++jAQ5ãU"s'$_pK1^;L?#NqA5#T?)hrp2(rHNFLKp]7Ddw>\mTVnh8SFVr#]W>ttJRkE+b.AãU"g^=[-kGx0mae*cnUI8)NDnvsF^[Kp^^$Bm^OhdjVIb:$-+0R.lavsSl_r/HhWr:kw5zL-DZTLh(F6jKe&4cJIB\^g(ãU"8gNUZMuTNF%ayKY/xHFf(V3[]WfT5h:>-g[XUUBF#NNrlvGFXNkk3MlR4_'p)1wãU"/Q[A.Dmaf+#nk)\J^d/%jY:8ZYK5?a&#_ODjp>:ML^0WT02=1NFj6THgJK&Wh+k2ãU"No&YtgFQ\RGCQ-gCLAc7y<]*yPbB'6pOcbX+BAIOY0ãU"DEVY$CJiT\=bRZ>N>Zu'(+]scFEHTJeCcRhH[PuF\=Y92f*pPwdg*vj+7ASpjP#UXmW+wSJnuHPãU"fpqK%[qtsw1BL9nZbFO^LL,PPYbs^dn4\M/M1p%72*ovYkrq2m-pF6R4D(Hshz?ãU"kvfU'HX,uk?8=Ehc8%NL)P)%SXTZt;ObT)P*LZM9+UbKdr:5If6Gi5(sHXIbTBWãU"U5twiwi-5NKuHGJ,][JV0MIm0?>,j9CH=TEi/pVl+T^BOVN*X+(3R9L3HI*Ij>ãU"*0co.U#%dNRx;?11%\dFJt/[&;$Vl;DA5f-7KcYT-#RQa-^ZkeR>U#z6n??fEKSatN=G+1\D.I&JãU"(+UmXWHVGkac>xZ6\1yjZaMdE=)oDcgK3AkJhERj5i/Rj.1BjcV8d3H+GCPnd1EãU"ZAdT\t'B3MpsN5%PnupUE](:ev-%=Q1KsHRPAwãU"9.=[jWS4$f1TatTpi;^OaA>GV^JU>tJb.5hmu9?hCYS&551u-v&Q]88jvG5+r-<ãU"d>#x,F9e_rXugVMi_76<&/o/7;k#>7tkr:5TX8h)uJ:d/_I2y>*n.jL:yj6$k+c\BmWsKAt]H[x3NpNHd7S%xBB)TxXG7ãU"YjxPCE'G.*WEBX,l0cPtxU=/WKFocY-/c-DrTc>\k$JãU"cpRPQ:pTO01-/RO;?SYJ+8u^cjL1A\f)f:HikEkTO:=:Rl2YQ5nlhO(llYMbYtpãU"RZ:Y%5P=zZZm*e;B#I.i-9qKt^\,2D7IJF&vGXa:1nZKEa>08H/5r6dQhtphfvWãU":\woSATcpa0^BBe.FKLGbhcI7ym>lfR;:*1g14S=]6(O^-2\W*or'=^>L:]BvRd_+k%aM,2TBY6ãU"V>^G=?lLlJP64e*wz>Ph0epVf,]u9sHl*7c>W3UNjH/t+U^UZ(ChGt=51rT.,0=ãU"Q$j7KWU.*sB7LVQXcDa0^zZ=Stjs+8.j,*GI0ZO%k7D;ZN+Vu^ca4wWi.6=ãU"kmVKl'N*4V0gOf^Rr2F=,SId2HPtvBp.KO41$&N6Fi,,5I8kJX1TlZ^#=*ãU"6qqWsHAydmA&+\Sf_f7_8mYsD,Kjz_&&hhu9+7IpAG;[=SDUktEhxWBE#wyYgT1ãU"mjf;(P?D-3a.vfIXwsQcWRrEp=44nmk1:REkUDBT8Z7u*M*(-oun,\FnpsB(#ãU"D9l.QSDG?OI*Dof(KYuk7B([-I8owomYsA2cp)wQ*$j[xDat7Gc&2IS*_$>flHlãU"/=y%hofWk*HZ%NcG+BA-EFb=2(uW)Xe\?$=cfG0guIz_r7EZf<6>\SH3w=L\7.KãU"guv];Iro4x,9r89XBiY^yO&ky+d6;&Qp;e3qLv^-Jg=,1Z1FE*2]T*DD<$R&APz3v;AstFm_;CDxpm7Hd;npwgi',:CZwm(7J_oãU"F+h+Ly%83fWG,%&I;g6QJtt)JZE.:v]WMCX^b(83NW8]2i1fv&.aUY;^M.XSlieãU"$I*ZQYM\N^5s/2HgOsBklNut0rxIekf>rv]5R^z8/=f-?7DAF_&cãU"#6Dq]V(Ltz(XxFD-ps;jNQH,arbf1unaqhO-7\>x3P'N+Yb7$0kOxQE2E4Td\#]ãU"fWkH.qI4T4Y'?U./3r^-i%4T&G\1;*]6J+gTPe4'_HR6$c&MCY7tZ():CSkm9o$ãU"gAM+Mj&G,;H/jW\N[Kj4mOQ5(>YOcNehMNL4)$krP;2WRw\KO7:qW?mM_Me3q,_ãU"Et$Aze7D;.:9cHWXO?q$%e't5XClh/SGYO$Ncg]:UNdãU"k+T6bPo>'q6rUmfQdQZn4ErIv1:7VATUO[_#a?J*Sx=hf8b;#0t?ufJGEObkF$DãU"Iq3B$69O(t5&p<6jcY\/bAdb&'$9wDJG2[gbYOpA\BOkK,[lLez+ZmgtFy'MDbyãU"ytpru'LX:[jL_>>OrsIl(bnYQrQIwydb$0M[7?tLxS;xX'hV92TjtepE22MjvVMãU"JV$utoRLmuvOaQfaC6VZmOGrbVCt(n-HhVjHxom3g2z]f[/tp4pILXVKljNãU"*M6/).gnnPf\lJYahSeht3x*?(P':[(*1fN7A4QCyuTH\84o)>$q+\Zs+$Ki;&)k.L[N54Gh[6cãU"xUqLNd6MJr[1;*j2^*lSJP(nt':ADqLd1;bY;3,OCRbrJmzustsO_c:d6ef\NP(ãU"e2PAW)#_9r6N\#vlP#OQMj&pI:iF26/tn:wf^c>rwZ&&kY[wKc'q#x5\_0=sql3ãU"4^N3OaaWV:prT4bIL9I6au_BPakQU*Cj'K=cM*MsLN*Nudwgq,/2nS#<-7s_LFSfv\4j_OCy[bOk&jw([1o(,Vy\XAY3q.X8?VlU4[P%fjiqZf60l6lbU(0ãU"z0Y\F_3]nf9LqF%OxGWrtvF?n54?'53RN;z+)l^I24mA*q_YnFDd)>45_xAcHFIãU"nyk#_-#'sdrqLR6ifnm3;Dvy6bK:>8QnC5W+wt7I8&4f1dhqux)8d?$((ãU"l4h+EFZZq*XQ6H:B7%AIOK<4M+qI05nhG]eUBtgmTPãU"ID<$Sm&Sz\-fWi,%&=k66VL#mt:XwEMGM^45rc1)bN4ZWgU,u1[M,WpD=M7cNIfãU"(Mafq%YtlboqXeK\LAN$s>(8RaNvhoiFOgivd$lbeNj6)kL^#t+PPRiW<.Que7*ãU"1(RXSX(k6AcPLx3r8Ktx<;u6nYob1/oKJc7IqANU8?Galp]^eQu#O.5*FueBK,7+RE>MOL\iZGjdPs);xjgEYzV/<5;*FKl7%,N;ãU"5o9dTID)6QmI+$,ftLX0xx.gZAvn_\yZKgCE^?CSbu#dueUk_Y&Udjmv\5uct5JãU">SmGR+H,?c-0NM$D^7sdQRX?Y)q8Ikl6Tx0DKI\b$Ef\VZ\p#*6?',WcãU"e&=M%>)K*432.Y*URZ87[bj](ãU"JZH#lg.8's1dsQqu<$hhzE;3_BM&9y+9;pJwq?RU&c,p3dEs8v*OWgx'xlbV+f7PG)Z$O0MgH./Cr\Z\DtnQ0;]%$rY-TU>Sz/3.6Sa.H$tF.#Nq-y=n?6vJ*GCU<7q9Zw#AI*:DlvvyWE-OHr;blT*WOxãU".QVc7>hTE0vVSNi/x.;'hPic(IeUFh:IIIeAItne[mocVJ-HE*+>1uOp35,&:ZvI2?[=$>F8tTdj>0$Vu6;6-G?,rAg:sDDuG+vM]s_=a,QvF#mGY7VrXj5LLãU"*Fm\zQj+%h)H0Q2$Zo]kuR7l6Fj)VAQW;,Ln(dwh1pdsi,IL^p_U?z_p>9t1Q83ãU"?0I*PqNN/>%k)#Tacb30s'/\c-ZU=]-m%Br*dji4[ãU"(KJU.O9N/d0O9'[r,Nco'MawC-qg8',2Dml8K6CyX[_]V3N2O=/QBãU"=je[[tT516M>;HL&LJziUg#rrGn?ubnpbqo-6BTHbãU"t-x+u>dPQenz4x:>m782JPCgA=dPx6QQ[PonDPeaCrLEZ&UCwbe.CKcjLWNtflMãU"*Rg[jn-6KX.vZ(f3YV/:+LqD1^*XV,f0K?Dm-pw\s29Wh/eiFDIuOl[Oli;_fq.ãU"tZvL]I*b'a=/eob^#JwUAjlTR]EW+TjP*?K7d0yOb0#6uFkQwVdvOGWbN#f_vlJãU"g]u0ILjcb(xhMXA9]#.%7i^ULdE_A\SOP&5uFuwakRUy[No0?5tIPKbbj'=iEM<ãU"zL+WP<.9iSgYLr^RJXs9[xvOY1B-,8]Vq^p>fpSEBA#^MCãU"cdcg0,btN7beXPp.#EC9[GWW36wQp.B;uZe<7rwUt_N=QdgncaBMIyw>uHo$H.'ãU"t4bubLd,pZoe(]TXTVkE?8NVe(%TOR,Xg51Vm&^M.f.&Sk-.T>bnongmPzpUjlgãU"U)?/atS:i;3VA;$l:Mb#y5pUGnI:#?^u10lH3XRvv*dPe8YT_aL^=IDWZk$Hd0HãU":tKlqXLa2RJpMYjn^n/8=Zr17v8[0(oi[ZO/T>e>I)-_rkv:BRVkrMOLU3I4pOJãU"X]&=-'afNY0s^K]&(=Kd-nq9vE9?JdS?wMGN+BbDr_Tk]lG*xfD\l;,QtoGTRUVãU"lpuYZZ['OefeT6D+jG=XtNFW\e;0f\psLIFFltzH[c$\,q5&hxd6TxfKXZAxFIHãU"oo.6%\CSYsBA)-<0_PHf'CJ2WB2WXt#jbx7hbs4ooGtsSBFTPtk0I\eN6Tw?g0KãU"m[S_i_EUgNCTq4h,]x6C0Rz&ãU"ie#H?T:AFJq45fboQYN0cwsy(0lHwtcUe&U1(/eBJWgb&?F+IM>z5dp*im5=p*+ãU"_tmW9qt2S(BPu_k]/0r$aNQtosLS0G$oDPFIR_#EQ9<$1m84[qPwnip:v\>a%p5ãU"nES_]&H7ut=)w3.$WfZECB[=xWile+V7YP'f&*\osZf]o?Y6oqHFP4ãU"Zb*pbv/5e'4;M?w_c[&J+[C:v*1:ye?yftj9.8>IpZ[/ktWot(pe3L>m'igZ'8,t[ãU"z4gO1?Ao;1%<.wN[&be2=6jYbDeL;[i5^nãU"%S7EpF_NtjtaSGc7j].Hqfn9^GN4B%dg?h-2GGo>A6nY&I3wgEII>=c=t(-6-knãU"VllI.boNXra,3[#)?fIOgp)p=6Bfa$7&l,pa^6e5w6u>tRw5TjsYKFZ2-;62ãU"pyEp9slmFVV9:q>nnXPgxCs3wkfYbxsX[u(=ACDXgbS6L8B02pm33Hf#:-ESBCsãU"4mWGK\.bd[:2v3u-kG*pKzNPl7)5bIo7ND_XxakKnDmm(K;urãU"$pgpl<;5+wb2S]p5='<\UsH+,Rh/N\+$/pãU"Z7y<^8>4QosL)Zte(noj>4u-C7j99SvC2PBlg0A0KISg(Ce9&0kpc$iGaT:>TFYãU"d\WM8SDQ(rALrAbrK)%*NTiSvãU"MWjP5pX*B[<3s^dee71Rbj>$\l8.tYD+kGvjo^PAq^,hNHQk&f5V)-emhF9?eAxãU"VYwgb&-NwCtsc$CtYS3wuj:cO-*']2u]42ON7Bdt*55aW$q''+Z5a2g8*edITqIZv+oO37PYr49JD(Zn6-3?QXH9qd3'JKll0VmJn5]&N[ãU"a1]tVrn9NNPNK#;a3w5K9F/DdMex.u+isp.wWu2nKfwHF8nz3Z-Ji2lK*B>Z(T?ãU")JDRb:][#NO_z*$RM.,qnu3,(1SN4<6$PN]wudKpL1IORmOAn[4cSTG99N(YpgZãU"Vc\Pr/#1HBtWDg(BE'*8qJcW\'e7EL3/HcRkodlbSXOrD2s7s,^wHiot%ZU'nTKãU"1vgp'[]-]=R(r5g4eqhf6i>\lu(rYB%y''P%q_;09u%p\km*5F8bYR0hu-rleYxNfZCzR+u#aEk-cgxYkVq^XWo\npx(*Nn6Iyi,*q7>ãU"80tAurNo1zTNQ#IJN80J1P<,F$5s8]XUvTn.$?..o]R3,m;;q:Nq22]9,ko9PduãU"VeLM]Oye?/OwfoeUXonNMIE%ipouEjg^r*B8*K/?R1>jOWrtsQ04k-by,[[3IãU"VpCdX?8?ejb9EOm;?v#l'Vanu62QOp)9(gaeoL8]624sFpOr.wmQl5LJqLH66]vãU":r3k[/[/DC23IRz3W7O>$&Kkx1?cmzQ/P6x>;6oYE$aeXJcGX.:+rM>TK7c['4$ãU"PsE\X>C[$[;>5>s:]>x,3WVwMUc.Vt)<\:BM:,(kQ0PDXU[R$-IY#^+oOW)64,>ãU"dK/[Fn)%bRI/1(8?-q-#k1I%Z.fQm.YSVSx9V;At)43)2h';N]DH,[&#B>,N*6,6C_il__:3lT&1DuuSa_QMa'%YdPQzc?xxu3YãU"eNOtjI8YOoYnbVlA97\z^3TOJoZhN69[tD0Q0k%(UkmlCB5U]$vJqqLudcR9d?jSwte:__KB;;_QTNYYKxtTCPr&=XPU%dMãU"9/]X\LvSL:k'uJSet]94Wg9H>'1B/G>J>Z:k^og*wu=D8[DtD]n;'\%)10Q*nO8ãU"Dkp51n>k&U'=Ny,dqz)DY*7UOS/,+4U'CT<%TencyS=(3tyBq)CH*ãU"=CW+)&-xKCW2[Gp;v$XE9Slt;]:d)a(I/jt8f9WWYSBKBZ^G:AZqD8Oe?i;iD'BãU"Q%#jj*Zq.6)EJ^;;YlFlaJI4RQutUL(5^YXSw-s-DsV,G_T9oWo<&0pD(8%NS?9ãU"YRnU5_dAYmH*hkMJ'*]3pV/A\fRY8XC68ItNMUWaR*DDV*hEi=$ua9hYpQ,0,J6ãU"TLaxFZn3^o1d8cXnG'3K4i#Yb4E[GqDmNO=3(Pk%e2#oQ6\7i(CU:nsKDãU"=rS7?SNOiGsuZ;f/6mt$r&nc=F;?ouR0qDLb)[I<7h<1p)(ZiH2NTRN*55W+TH<ãU"iv(R2+wIV66$U_aQKTQMOC:ZCq%s5>t\SdOUzuS6_$3++&DRNes&75X[Nu/6Ag3ãU"3b1RY_9J)'[-Bo:)?cnF0]lPChSZVho)<#kj+#:SZ0&VV]XQYi/J$)*h8.&rGdhãU"F?s5+DxE3x0s6\9s<6XR4+s/\Wd*EDK)1&Di?/TUV2\Iu6*CUxp8i6)<)rGtE.VãU"+zGiiLGT8Gy%'j.QL?e]qDv81u'+6:3+-h?#Mr3tHfE=\B&B;SPh6h:Kt+<*8$OãU"vh:-*\W_g*tRv\3l#\c7*6^KIFqA/=(TUd.ML4sJM7n-nHN:eLZ:(NG^]7(0_/1ãU"?l.p%s\9=v6W=t](_<4/o;u7)W\IGD'kuC%15?^(uh#i7%r=DTg9ib-B&8h:I0_,F#D%Krb0'ãU"Hg\Qqs<0i'iS1xvpV1YqM)j4acsd:6:\[wtcTa]At[-9+'ChjtW7DC8iH.taMQ'ãU"VG=3KF;.l68+,E?'k%Bg#GTWUsn%6jc:?$4tw:bGciF.mO(aZo7S^c40(Rc(h0]ãU"$(a6A=oLg6:Q19p3tD#12f6P5F3KmaWe4tHun]dki=?(*rf9%,4Ni[T?.u=+opLãU"KA<#&biSq?c'o:YãU"D>t2NO*<5z2ZjTeVFs?lB0nFy&t>Ej^_VXvx2&x%.Q7,g)eF]AL6;eNdsK2p[ulãU"Qws92PFG^mQ;Y7K%Owp^^>Ak?6KRW?.RKGYmqKsEw(5x#d>x+$R*o;GrnAC:^QWãU"81%spRiLRKp;[[Ea_#\4bUHY#37ãU"OL-WKsvn?wfrA3:RbY3[]eMVD#)r;bKR(iw2Z5)p)hC[;uim,a#fqLKjvYeBZCpra26P0#-0E7L.G%_[El],H#qT+,Ra]lp*g.ES0Y+.*ãU"4Y[Spt:ZSeG[mR^bOiTa0Mbc>YZa'6Ye0v:q[Nn9-F)]E6C2G14a.NU:q-OqOkFãU"5Y*KQr6:4Rc#caRt,=e27_Waegl-C99Me,7;8i<'U[\yUZq,uo-CGãU"-R[ZPLcLf#u*'PT#;sHJ(3o01I0n[.89&Y+4gryRLCPx(l>Y2qVU/%5K1$XuG(S(p5sXP%0%ãU",cjcaLDs47R,%i6QN=^ijB\1E]&KMs-Xmyma5+4m'Cf%fWZ_h-\W)J*14w.=1v6[(5fKg7Wsxg-J5W^ãU"p;W125Q5$njbzSALH>^3^hv3F(?n8,YA*_7hq\>K[nZ.V1ri330N)6xW&op\q:]ãU"c5sG^^=Ig3FhE&9iv*Wr/>FP;PAMI9d)KrI;2Q;57.I#r7#,3>0>oR0s(fl0J4W$/CHãU"rSA[-P?VzK\'rJit.&n/F14q3uLCWqF#GW4BtIIdOURxJ6z2bnnPYYg^#f8mRahãU"qj)<*=1c?/L%N1)1.+X=W9E[s_El+:+AuR/7Q9$6hKr0:iQU#:Fr'Cc/GB0CFfGãU"ZGF/x,8Ynd7eYD>NX$DEd5vSna'V%^v42HJ:utr9J24BbyN#H91gw],G,imL9?NãU")XK2hg>d=1?Unp6tYVSHQli]]ãU"gWDl0oa9X>5t32Ib7K/5Q3x=3hMJBg6DQ6eHmiooVM33g\KW*gA\NdyiYi3HWNK9.5h3;c,8Q]+]5/V_IjR[>q6-dãU"EYidqvcqO%xJI+5o*um8ar9g:jIJNlyZjc1lãU"lZ9*+=cI2X^aF>DX>K9P8&Og*;%WWzm4&(=T\VOxKwPfO>v0\'I]AP?H9x.rhkgãU"VU8c1xk+535xpYa&)-)I>K2FlKSP[-JjW];$kWY9YLl23r829CJ&J,^1BdroApDãU"dcI<^z/Ae4(&D%f'5]L4wZl=qS;_=U+2*0pK2;tOZ4D6m/GAZQ-9ãU"NYbMWdEUC]*U$H\jo?iZ4*_$+KBehJLPIo83B7dV^5_HP+/aJo&eU)kw42cF/TJãU"cF\7H*84[zUvmFSZ_.*;P#3tWc,#M)>*DJ>;iAX/e;\0T^UQ7R4oVgu&aoj(PV;ãU"YRxSq7H&63>kM%(R*Q;ãU"=dXB=$,P%f:;Wvq0A?/iR8?25),DOT+gQHJ^-eW[2e;_'#1G5Y&'gaf-seFu6PkãU"aL;oMtpBZ901\rBO#0^I\[6r3T&-TlMHq47isTXli0PCon0;l?$($X.A/7%==K<ãU"0)QTB_rBpGI#d%;I9fh^i_l<^6nBRZ[tL_BNu'QmZrYFlf>j,fFpz(*0bNWD(o3ãU":YSrs(BR*A_5lm5=q0#'?>04M=+Biihw,mis#eA/&xu8fd(Km/8^D#;z)or.xNQãU"b4J?t?&\f,0cliTQvEeJ7.wpM?poCoeZ=[$8uAq\71h%(G,Ye5Xaa]d(#Xys)UNãU"&U)klxX.u=MalTt4NQD'TSQf]TcPsez\K03CWj$>hebIQ,4uu5kIiKBb7d,Bl-BãU"d=Zo[x6-ipY[*4IA2R)'d/1P*Ir=WlYvtWVpB_BuOOcjcmZvj9aiayFl_UZkN$eãU"A=P5jN&a,ZEsUPlVXBJ_\:vW)dFoB+t.A.e(UBvf?d%,?:^^[4:=J9tF97UTX[$ãU"e\8)i6nWb^#bOQVanJFYpG0,.d*sAyd>0kCx[H$nG37Bt8+A1E-wpCNH.Uf4SdhãU"k_H;CTAh27Z<+*,Pz:3cQJq\TQ_2dT/z/*s2v_NNZok9jO=EcI+FQO^mV29+,RW8Y<9Qgu#dL$\3GãU",&UIc]BP't=0gO06o]nikeq.-r0l6g:vkCoVAbKoCPiKNlw-e1B1)UQdN#LQ9ãU"OLomPAnvc\4OJTYqK$)fk1%+h4S5,WR#cLY49WUk$YrdS^=Md$+14z+'Quo_;sLãU"Pdp7S3/5/)Fl)Jgi,s+7q]3SeHXS^MlF[_/MlMO^$Qx0:$wOMq2BA-59_CgH-;BãU">*j&XD3P40\Ekzgd\u8KOdr4IVxg*3T_01)I1\ZQN%H#H0O=Bz?ku&(R\35hVJdA;%2---sQXLhn'7bãU"OY4IXZm;X7d5kl7OJR/=)NtãU"yK.]=QU#_p>Sn9eGah*m2HXMMteRO)r5E32h:c0cRD9v5P,?7h)U1CB#d*ãU"cfl/PTKz3K)*xfKkB$:g2:g^o=2hgj%H(X4uTjl,HKQi$feOEl(3SS=9Ik:]07iãU"2,g0uFdGN[72p]5F,Ij5lsgwsQ/i[IE/>VJgw6LNZmL4p:;#q\'\TQfiu-\K68*ãU"8t=.BO&+41bpktIghB*^3t7SAa0&V08K#4hH7jj7jrNnBg>*nr+vbvCU'62*wZkãU"-bk.1;cDKQNH8+B[zY)V#>^T^L-S92RKF,.'U09';uD-K]9Q=q_^[1e07hd5qx$ãU"JD^1NyUD],.EpzK&Z4Lh>qZ.G0+L%s[>W+Mo&d<1IZ[II(WZbb8\Cdhv,IYUb;kãU"EN*^v$>(XZT\ntr(4\OYfmUXV^<[RTHtmR/u5+%\6a%_/L3\:%+fãU"?=-nYbVer7W6gC(3eLcb\+?G3[OZ).EVk:*3LELik#XC$NoD$,fCPmFRTLQ1_5YãU"_f?>S$9(%,8vd#G6?t]H)ub;']sG*3XpX.jVIrE;-XZTF$0gOBIaf_q,pEK%ninãU"lKn-&W.K>KPB[%;$mL&tOa;BQp,9?-K]J(#S:VO>a$1VhBQpG1vmãU"oh'RfzVA0DX3'w]HVTGyl[XiIA(/kvfK<)K=;d;87X455tl7%3sdm_;f98a'B43aãU"'>74Mvy&d'FnZPj2[58PqRD^DIU+AA#2;W^19s'GI2(D75,^h>0'B__(.SI8EqãU"e]O3b:;ysbdklc,npry731>9$tvwuOE=t_a$v^kB4]Ol<5b-sR&OãU"jg'g5lUj1=e\osuMDU;aOZCr;YF.ZZX#&r:xa1MCVa*YjKdSx><%TY,r[\ãU"8.+*ap0M/=+pdI[(jEHgN1^%44guAR\Si9)skTwNHl:kn,B.=I%4ij7lhl1O/D&ãU"faYx9(M9txV%OTc*[dMRc7.*9q^H#oMATsQSIEE##+[svGJ]>Q&-cTGj2(BEe6#ãU"Q9pF[iEGhru#%iV_'t;)HTPgK-D?u(]%atXK>:qSx:K-;IJN-U2hFKBD/^]=&(*ãU"F=HF]UwwXF3:uF/f.^wci.D<5IR;Go)ln-TXPd3CKfTUZC&CTPSV?RE+FqfJU12$$;LQV0UguN2;&n^U)m*knkkW2ZU[CXis#RDrOyQZs(QYX\56sDkn\NoPX8Y4U?FaS_<&Pxg0=>RdL//rEJ=7MJow5?>ãU"/8pTN)ovLcuS##^Lm]KUUJljaABf4K6CEPz;KB/66q0a91bQE._:+T/8_#;j2d1(.QKWhq]*PZ<<(W%ZVPb?Z#lbN:3J]He[F00,MãU"a3QxrjkqsU4:jQ<;xl_j2+J#j/E%KWl9(gQ6hK*xFcbESBs:w>85u8ãU">_Yog3.$5VX$Q..DN2)g$X1ta:b(AMQMm9+7R[#SDj;DP'18R3;V*tgzK5-M.k(ãU"B493UoM7IE1HSeWgKC7cEVu#b?JeYRx;Er.l:nU2Px<9_J-LeC[F/5l*3I#KcONãU"KL?N&.58b/itLQgFP#g_%($vdAQUina.[8tVosDdl4:,7Edlz%YZMlq8J8<0=0?ãU"/PU0llerUJZJ*Z&1V'(aj&PC3nIf2InQihIP#_acw8.GgW5<8L-4Im\gB$65+g9ãU"+aCp9v3i7?vq[>uDN]fP\_uueJTDOr5z5(dSBMaHLQ??a4w.l]$(s'ãU"/kI+Q+hS(3*FY+$Q&%nP8oJUcWxOgDm0&C8#UmfxGJ_/t[J4&h(_K]/V<89QYM^ãU"VNrj[gf$Gf/5GBuaEA3iOgl_X#)Y\n6e9MJ[)5U;(tB%H8awDfE3vM#jirc=^,jãU"4)XHg6+QE/+lUD<--bMP9\kjT=5;C/IpPJZdy,GY.$QNjZKC%eYn'QT,7Q:?WH4ãU"eC3^Iwy]qof55srKEBeDHG6R%5fOp3_dXSNFgpH<5B%qO$jwxonY[:/vãU"Vr;a7-fQ*5S;..C6(3,p7pshKYSV(cN;p)t^i2P6]*rP9utoacfNzTjiGXBãU"(B]&&.11,G;2Q1w5tO3GV)p$o/GtGAI2wl)3[Zb$Fr=dH]-1>,d5S2xSTQ.hd&dW(135)Ry6XãU"YxrbX\g671pOQus,Qhm&N$]IX&(DEF=swqTI[/8si6OJ7PvkYãU"ay+&7;7Ys8[j]mKVSajbT^A'Ki&l(wRy&Gn'H.6pUcD4_f-MYY:hn7KWxI:m-wHuD[ayãU"nEf\_V+*X^\m'u#*UY=Un9XMmnhchsb8+Yh<,Yxth(%J>*;riRJ?&9pkiP5Pn*gãU"X]+Y%1A4M+Lfh]%UV4lRoGK^V[&s#O^phKSWHCtJnvLi_<54>[BY040/Rj.SivjãU"Gk+=wpn80,uN.PX0WLZ;P'M?qH%cF&71=*8FeHs?P1B$W+_[akW$&U]7\BbBu7UãU",_Ktyc8pTSoGzmp?(3_#tr0)_wZk;KD]g3(yAElTxKFXaJ[U^egkW2txF;G9eEQlFg4]HGCMubY$9\8pRY:QLPZZQoA&orKZ7snH*:ãU">FNq./n'\dG?($(Sy2NlW(]grrEo&1g5;9?tkY-:oG\-(^h]Nq0l1sqo<9wrnh1ãU"[Uhm's>#qAu&%0o83=UnwBg;(D5G-'7aa/%a5rGAl8y$><*9F1J,8p?[Pb1T?ifãU"olPa4=oLh,>)qII5Xm5)M&K,%-Vz'S,cHw6wF]PpXa]mHH^#yj^Vq]7sbpROU=DãU"G4VT0WXmmCCGDV;96KX,j-.r^jAMq.ENR)#Z%En9Dgoe^1dYL:)CWg+Q]4Rj*xqãU"31L=fLy#ur;1Pap_+bKgn[J[c9Nq&G_L;5j*-ImzO9E--d'do&[<6%elWs77S/,ãU"4G.j%P0d_cblP['M&DuHbj0.]:IosW*Q_dcu0h7G0EUYMB:A\vzPM^jmH622QDfãU"uo/10oB9bK?S-p?A3ec5B6c&#a]6;V%jR1]oiu#F9*4#l\5G.7b&,gpq*vsYvHs>F.xX/p+hld9R(YVRb&?YaND=^,YWCN]j>h+ãU"wA(%*K_iy/q'%Wd5d..7E#_gqFSJF^M9B3*IFz=n]5/'W*hl]d6f/WA.)6Z2-AZ9^GvN.97UibkA8?H]RrQ_&'3KO2?$BãU"SO,h3$Z&i3)Mc,LR1kv7tm9ITq85](HEGJqN7B508R5rK5J:'p,Egghoeg[Q+H&VX6bG$09ãU"Y#Rt/RMNsO&YaCm0_[iD$^$_12qV-0qGB$b);Oj2CL&rWY/gDqf9L1>JW/IQFcrãU"AS2KluIe8Z0f8&$P3rF]Ds&IPZpKHgNT7C/jhO#qIa9qwsa0:(/5(Vy+1AC5DB-ãU"?1URV2G:,HX:bC^pZ9^,*^9]87f]Pb#Jf3OT;7:6IQB01i(o>XrgkB9%)70YWT,ãU"0zs41Db28,K[)kFXc(f$VQfRiT7/ujRx:^v,q95.5F2M'ou%JT:YpãU"\)B(-FiDpV%.A7IaFtZxK%-'\0PeQ?SDpãU"5g^W,.j*7(F>yGC.aMy-Jy-IbHVOc]8O_'Xu_^?A\S+'JX3WR^cvfBw];a5;skvuB]ãU"+Hj)AOTYi)SS0e*8,_nEYh*ImO?CbOls>E_wzol8Gw,^(_#N$T/Np$kEKGRdM=cãU"h:vpYb:uHjn.b7m*:-_m9075It(7we(#gLpf[.aD.6vB+Rd?7iR8q3Jfi,5DE,aãU"WCXL$#rHZ%SKu#ZC><\Yl+sSKz96G6lxf,f/sqfTBEj:j1xm.%NI*78Fia]eWAUãU"e)SQ;_k*qcZh)/8Q4(;6N#X.=pI]OO.#X>l2y]K#lIN$3^;L.lJzP)2;k/is_&re9-ãU"w>:.6Cb497U.7q9LcxD_K7<'69?P,85>P:QWAI\ia.f>$31V/VR/VGEu1wBk.:rãU"8S9Jr\8O\e6d%EJ(T\S7stonY8ir_S;/fuWHc1M,cW$9wYb=ZJiSY/XjX4%<7qJg'9luuVMefbA)hBG#.NV.q3WY=[nah9_/lQ$%s0&adh&ãU"n2YL$V#A$RwF#r)Z3:t8YU34a_U$J\qUE(T&6p?*,,',+5S%MdH%Ha)Sh??UJ3+ãU"*Fy%0$ieH.#rme^RRex%L&wF].5'BVoxnAãU"rB^wOo_PSJ95f^,cFi*PF(/md%p4Mbvq:DGi+f1Hvk\a#Sf_2ZjZS[1Gaa[CmNhãU"OQFY3iG$M:QZd3HSWdBO.(cZw-D.8Kd[0SphY:^U/>/[=A:uf'IvhO#ld>M5.>EãU"d=RhBm8IY3Aq$X)PVf8iJ1ZvP&&<+mouv;v_TG5;8.59^$e5\AVA==OCpP,urhmãU"27m#7Nar39Q9t6txH-8x4u%p()9%%%%-R%,,&aGV;Z*v0v%1%m<%%%1%%%%xpn%ãU"xqtu%jSln1x[k.7yxP;')XfS2aaJ(D91xADBB>tni%/Y2r_S0%I6v'+].z'(]oBãU"5($/jn+E;2k%F&9Q\Dee:3S%*$ESae3_?wxn3N):eRA_Roc.??2ox.QprSNvDEpãU"6R0]>*Dp?e,pcAJ_nHV4TgdEut*7Y)*'7:j0w?5Coz*OpJ61&tJVXtsaLWixNriãEND SUBãSUB V7ãU"l..ws_d4T65-k9Vkin)ZIpTpxQ>3ff^spbwmzkvxo8a-xir1MAm0#gkQw)r5T=(ãU"Ymj^M7K9986bLP2?b7K20AQ?RquQGxBn2n)>O06NIj9S_AlNrv-N't:jl=EZ-x_RJsaDxM47TkVODS%BLN9?cZ/lc76K/VãU"4bwpj4lYBmI$(;$u\UoWIkBgz#fxL^LV0yx)PjvEPIYbDH)TZjp$cBKxu)u?am(ãU"o-gglYQu:D529d3&*e1SxK&cPxTWgi(/#GpO3k^y^Y?_dYNC2lccCuxv^'A6c^DãU"TVx9o>[et$elD#D%t\lJd4t$x(tmSI#KLgz_euzcHsm#7>IgAb4jvZ40w,^mt(mg*I[Z=W<>YY]K/85I=oPS;D-Me<>GlcãU"Tk.dv4>a(KB[j$'4\Z?PLn[4rxtZPjLlreEdsAs0=+P38JKB9lH&vTSR*_h2yH\ãU"p4m-,:GYHBr^&'ppaLsZRJ6jMYNiUsCE'0R[V?&x5\?1OhI45R+X7V=o0Mu6mo6ãU"8D$gu)r_,sUq22Epqycb$GZtl',b;liHX-MlRRSh+sd;X1oSv]bCS+qas,xmHo,ãU"\-rbLnTm7DCX/R]>,RM+3DO_:3XrjR#lZ_ZtBE+Mw2(i&\L4Y0W2XqEF,s8#7wNãU"DlVn-6lnrO^vFEi8?]Hi'^3uT?R.6ckKDDJ2Q*#\Mvh%#z>sMj*TJ/Yca^q=?v&ãU"#Qmt>FE6LTNHLG=\igQK9c6\F\]r1wll5QsA&/;?3I4Un8CPwãU"-sxfRSI\3Ny&CYm%JfHChXVkZ_?>:KrgX8QU*lC7Idtf'Xg8ExEF+[[AO5)=>QCRLFDOxA2H7FP&,F?++WãU"%K)[sZg_)=_o8S*uD._,mx+HvN0zi]Z=LhZI=\TZ+';'w%hhJ7uN2#k=wolS;C;ãU"N7:0H)6ab;Kr;W*];e<.'7jk0=$Vj:wGQ.H%4mD.oXZd,d7WW]'nGEWV8fjãU"i/:B8h=Yz/$jp&m5YR6r/vrduDU^8kKvALqv,GKViYZqMpq1lBMZGZk-q'WlWa_ãU"$>vG%L&6KvC$M'9%;W5*ESEzmi\RDW8Q8KD4NRAHa*=Hd]8/v9YQ72#Prrl#C&^ãU"C;88A]di7#y_5Ttx%/Z*WGspk(>0X](5;u4p(dBdSC#?:g=Y?)(C-QuQJ,$V9:ãU"x23pR$=pW:W+He(^SJfLS&j0Y+2RfihZq*eXD^;+ns?+r_+M%X?)+k9GsAxq\73ola\0tb*elpB+hjãU"KnbEk*lo_b,Mo046+lj0iR?]B((.xq+NDl3zX.qmI4q[:tqLNjKK0\UgHVtiu3:YCHDSeS'ALFkEn^csnEBSCRW4YãU"2#$9-:?AHR;BFaWc_MuuhnN]3'#'07R<$,:bCB9';Oo2s5k<3cR..o0_=(rPri\facepãU",td7)>hF)U-p]NK=/v75b&]Le_RHT_7E&#kt34KS:hk;y
AH'?\-ãU"gclNdKKXX1V6+J6^PA,on??tt9HbOcIG$*6O+-;:Tc-ãU"<]9:ltq.L+kYhqH;ALVTd\$Jj;o1hH$UVLG9jpR&2P*607*#T*33BJDT4DhaDTb$^\duOZ8CUhJ5\X>*PjOlj88-HdNB29$k:E[\m94,7h*DnSDFC7UbrtagBdU$lcsãU"d6-v$RDu)XU_0Xu2DYf14+GVG(E,1oMfUT&XLFnP/d;0il29\1MPpBfNkdXB)lb\rPso/5iUg$6a]XfUFwEY.sJy2O[[]&8ãU"c5E#dRW.txwThrt1x]Ib^8hYy\u:)*XC'T07]8E+J'YA=1:a0C%HDpxwdLX.HFiãU"pY70htl/9GqQ\>fuAN8#'4xUQsxs0pmx&(bPKoEX*-k,;Tu&RQ6A$ElT;I_6:$7ãU"dn;_LT8unjB?ta1U:ZOHsS#\GXns7XqT6h$0vt)NXVlv=kmYiR>h;gnG4S>F/_<ãU"T06?+h;xkVoSF#,no)as#66)2LH)MXU0M^uGO0BD](IN$Le;[7rPj\M-i.Ei.8EãU"$eY_.ZF:CogdmH9TXMZp65WUa/QXCa:\*sQV?3)R[_G=#Xe-BpB8Q_W.Gsvl11AãU"[?1kvw\0#AGru_x$Oli?Y0dV9+N.>Xgo.NS6[USzuVoqpa(t&_\$[B8Is)eCfiCãU"Nhd=x-P5rpiu^IYaNc'LEXGR5c+XY.2po3j'*zb,=xfTM'_V]*n]aQa;K$hAOa>ãU"N8lYI#1#TqMc?64SM*_+pT$%pnm5^-4=[t*aT85Ul*SQ80gq9mmu8cAL&E[CãU"1ZFZ^XsKYnnO$iCrs3kZ]t2W;/*N1>.lKL*Y6gf<6Sl75_\UIaKU;ãU"k18aR]*x_f&o#Yp0jãU"r>dSsb4JRHNJ_#f7eD;x^mz*xY:r9lk=?iE0hq[yZ,]:TIF?D-&YvX&cOO.1CktãU"P\*F#;RG<5];UJ+2:uEu%1)3h>60%.pF05V$*2/GUN/7$PDF)_RuNiIC&5r[KseKiP?o1ãU"#&Gh=fWZ(rRX^:'hfiLb6NWn6<*7mãU"hQ5vrl>'$rLRI*,Gx')6sC#xf_#fs'69kGlE=j;3,x;I6T\jgoKdX]H;BK]qwPicRLX*87mN6L^yT8C[4Ir6Z/e^]iH-$AIW&(/CxãU"&hFZtW^7lp8-1aXq39jk-;sRxcMly?G398J$D=WeCM$n5^8SOVb6\3JknX;.HohãU"XB')QiL=(t:.L-/B;5uwe_$G9h\FOwV(&u^D==AY^&AmZf\Ui6O*[Ej.%4iuO)EãU"Na5K0'^lu#kbpyVCPl-$+9z.23_q&$*k&t]:[2mEpo>GhuyY\,+?d6B:Dmd%ZZEãU"YX;RN>jJcUNpmP/VR/>1wR7[37FqKOh5SouNE*7s$my;qUTC_fYM)B_0&BiE'*oãU"RzI/dkNPW\T0y_ISWlsywO)M_Wk([K?pN(w1JkM#D/:\,)+M*>(3#6$ISigB>q-ãU"*&Jma(UPDcuPkwEHc,0i#]7_6S/GYX)VTgF1Lc>/$CakpXiF[nA'R8-5ZuCXW9Lp5_58Z-e,'4[\\N0yV&rI/hlgR9kC&>Q=g+E\O?Yj)Y-$WuFN,JãU"O7*.0kN,%a84PXEKl(B9;O9I:Qr9WxFcT:vD59J%b8$Q:]1%h=++UXwM-+JL=F,25^aN[;6u\gr'W/3,uGJjR?2N:v#sU7%,?ãU"X>7o-#ii)>(\8H/C#_6N(,;<)+-=t?3NGA%N8J=rhu'E?(q/7?m(#jklOkWsO4&ãU"1ws)iY'=FUaW_T6pA#uw.4Fs9+GR>9Y(>FPcB(Pj'6n7(5OtfbDxM-X*#tJ6E5LãU"qUSz(ZHVV7Y_/8*0um+qG8qr[;*YR[K\g?.ia\yL^qt5o*ve\W-WvG(6f_gU_)kãU"9Vyjp4qGH&ZãU"5a;Uns=?f_eq[*pJbZMp<3-GzAmV:Z$Gk=JKMir5ge--iI=4EhSc;ãU"[CdVI0]L6OFOj'5Lt2sHTr(x?1c4'TYcHQFF[:;P%'X[$b3m6(_/$mbYSKOV-eMãU"r=>6%=I,a+D07[':;Wz$eVp$me.9)mM/XxB)RGyJ#Div'*k8=-;'RWErP_O>aU:ãU"NgU:_?,Ld*CiU#g5mtLuwokGxB1thIG>bE.ãU"W-P(99)D:P1oz6Q\yLupI=4rI%a=GZikWjLo4lZãU"U[aqBKfil*?8;CS?',5tJ3B36j08YFF?-]dGft3M(&gh_-2_-m]?b^faAz+K&H1ãU"kKXS%>aC#+p1fS2=UnI_Fe^SeVu:W4P3nl8PuBSgGH[IASy/[-6JYhLGF7%KHãU"o#aC3O/U5PA3^MkUO=S_Zat.7+=Ap8HhJh8$U0rY)Fo'*k,1SmI]p8%Ib+H\a)TãU"jz;85;At%L*;_G<[>x_>NO5M'&9d>JmNqoeA<-:2SCMaK8K%[U6j4l7Ir_K'lN?ãU"RLc7[FsMsHN$)Pf$,]j9-S3;l#k2xC$)&[]Tt>d($c,_jNer**MSea=4.1t5>j\ãU"OaNOcGmS0]eaEmAlL,fFeML2H)\?f(dj,eA\)G[%4]?kRA11)d.Ej5fQh3FTH/GãU"TRE1K,FtVp[P[B;HDtzxl9)Lr>70MqCi1RJ$i',ASNhGI;HJ&TN7C7[f#R6:es'ãU"y+#ho3.,SC2&0%I9%u(tn5Bo#zrWg8dXVEQ9+0BQxY%Cw7Kh2ogMV/owPLqY=.CãU"3i_V[%TI:)iB]wEE/%/s>A.>B%wV:#\T%ETC20LbU)W5Z^ZV>Q/GUDFXcW6%7EoãU"Ofh4&^(?bajn:7q=s-+(S53S[Y83&W3$9Z=/-'5pMS'Q92SGeps8u#W-&nfsLcCãU"4=:>/6t%-(7b,V=Hoh2RSYY^o'w)68BR74#0V:R+&rtDss\=X+n[oc3,?FsAUsLãU"UtxC#XC4OW9W+nc%-bR:Ox/Y0S[u(7qLG17.XlUTTHc]wJpE4N#y*8-\[EDibs^ãU"J?iMe6)m5GTUj,k[cM1\5h)0eL_3vNZ>M;e^3nv&=pB4O8*-yOIN;/^Mcc.1iXKoSMx68+GãU"(b>uiMS++dNFv_fNLFI5%IH#)mhc6.B[Y=9A(AUG[O(+FddcY.Q'drGY#Xo:-%8ãU"('iPZ%HuSn[[Ed9XH&ãU"cPKnD.*3Vi\CQtPZHR]fAKY:JU1?1CgP7zNZDFUE?YAz?\R3sBo?a%Nx((R.0o?ãU"wx^V_,oZZmQ*kl$k)WNoddhAmI?JhS%:/y+mNYMWpC&ludB.t4zCm=Ri58WRnvRãU"5*YnL1;GHLgG-v10>Xw[f1/.'>+IYL(Krv=at;N'u]kw)Y9b;Hxm8Z'SGcSqN%SãU"/s+]BMBs.&KzncD=mEX&mR><&f0M6k0R-s)4x[$BjEjgC..rg7*&rb3C40=SskwãU"M35Ik*a4hbF3ag=0=d/5R/VR3X>O3Y8&:sLx$%V)tK=DjãU"IfU;;T7uId4eaQM)u>hnDpjXl6C[T#oIREckYi0fãU"bm9ja%s.?NDTOTYNV]%K)8rn*o.?&JZPH*9y)rGDG+'NBYãU"h;7IY]f^QT=\VDcvxZN7w50t=^J/q%>(]ix+XPAx=IAh,K?HUK6IQh^kc=u&m8WãU".i)/m=dX0A#$Y'RFO$W1>4=J0o'p__gn/eV\\0PcvAcx[l#&DXv(>PDAU6eb6APãU"a'..1;'i3i/jt&HiA#h/mdRb?e<%ik5B*kWF2_Zu^9f1wN7HF_2:N&%]m8/eF,vãU".RwqrlXiJBPOoliqM)h/H$upJ*'8AR*:$Jy9;t5IVT+?Y?>BhZE;:q6$Bu*2E(DãU"LS$qv(M&^+S>h)%_d4G)O\O?*eSk*SZi)XP?C^\a2_Ep[K29cL9MGGC/0OyVNk-NWc]^UYG,R[uVobp,:js-+]$+yh&MfNjH.S,=$nJrL:0^ãU"df*O5u\r5o53g$os(xQE)-Z9IY0r'8]5Ui?2\lGkaIe^DL<3Fe:7ZbQMF5-l8R_ãU"]8:Cq6\9#Z5uSW.;tvf&LY&==F2nE879)A*JxK-c;fvvWjgtJTf8S)uZ]x^#V0gãU"HOlDrA;K9wYVr&8q6#(^^*P4,-^-%07;'AFz,[Oksj#6Ed=90=+E2%+,%YK?_v*K:cmp'=Kl^p1p=;n('N3S%lnJvS17Yxm;58I_^8$-lnh4u\#+stãU".4Td*4,)gYgNzj>O,RZto.F,dYVHPvO<]Lm%8v=yqlm::XtT[g+[6&](oguo1ASãU"47$7o+iuWkk7hjnR:j/$.5*0'uA2Zr&fI]Y([[eREYqKNj$MTyL]NpE3(pH_S?ZãU"a79gK7)HiYFq']bq9+(]Q7_?/j+G2:PBW)[a&2iu9E;mS=;]/+m^kNUDU4H^--=ãU"WHslP&kj23]_h90nUU'ADb-b;ZnsIrx1^,QCr#BYZB*B+a?%u)ãU"n9YJ'QNfkQ>4JG=/3i%qcf2W%3D5VYP+(o3GãU"pEa-i*iC0[T?$TpVL.,s[X7ZIap6/\'\&vICDW46NadAT'8(Xr'BAM$?ut2NQ+0ãU"nNWfB.y%nu^Je4endcPD%o,0=EHUf=?1qjq6v-?/2BZRp.N)MP(C0LP]vF-i/OHãU"qqqiCf.3NU/aUe<_QFtK/%d9qHArmT4(>g_;#WN*jhTLBbrO6r*uBLWtXQtAJ5yãU"mgo,Mu.[Q6?x/.en=5&=pAKmPVY^L2FEHO__L#=[nhaJoRIHgds3j.Eq;G([t9aãU"LQjhfYlke$*,)f$6;e]<]gSora$hãU"[DVfe?aB?gAgd5pfO*81[\Th-qQgFpT'#(1Ch*Il.RIso#kP[tjq=h)u-G0sn:G3ãU"kHYC?X^_6>i7D-)qXzhd)v4:XZWqOMu(kbtB4f6Z/C]#%C1Fs%*bC]DrqyU5ansãU"vV[FY6g<,+88A/Wbu$;dR=25f#'lP8E1cj%h0RM^=eI&SQ)thxwp\^j_iX,qV9tãU"vdkB>U(;:UG9imyf0LS;cs?%33noMc9myl^Pn8R$#2crA8h%]xOi[8&.>mE(f=+ãU"Vw+:EL>#Squ3NJ1/)+GXqBeUN<7NZHVV,qWB$i:+R_8nt(nPdE2Q[eMZnWl.G>IHQoOa7.QS'Td4^)nbXd5rf,wB?7V70k^=u_SH,a^0q\tãU"0K2o.(zo3rMz.A/^vNxWoM\7tNuiEmjI?&Yl-d,:[1;uw7vIY-,p+)81(gFI>G[ãU"d^7^TG$^aZ8:S1vsldS9eDF,bgHX%&A^EZzOVZ8.[ZopbuqfA>-DS[pt6SC;-usãU"5v[3/O^Mh&C+(gRPkuI8Uy.HnSN3H*DJSL-$nf*=XY?FfBU4MqL^\g,ucliaf(e38NHf_mt+&mIU.#2f,g=dXqRA8ONYuFDjqMãU"MwrCJigAs\YJmAA^OFF#QYTo<<.FIjXo=Vty'DN#Z>el-=iXZ70q%&R[pGjb>X*ãU"?pDQ[U(lf%$sDP>)c*Rv>(5FWZZw+V(^ZWWIz_rfMvfr8MIROeEAYh7Joy60,qJD-I&\]0nsuRVO-#Ool)55s\cs8i4D_am5at$u#$,M\0uJ%F[k(gHsbeãU"^JpIr1O\YxidgZ-xf$4Gl4dx5F[9zd?rLvbnaz-OQ\f;<9?ZachD<r]XdRQX^4sT6,kZo$<<*C6P)TG/3<[_U4>LM+0P;>iãU")UBLIzbtfpOZ5k0Mdb.$T'$iul-4O6PcuAMqLcwtMWW#b*/elrãU"#Rl$gdwãU"BYnrkK_V=Rd5#AJUa&(PS=EFhi;06?M^x*bzo:=CVKYAc>]N8m:XQk:qDRT4D.0ãU"OHIAMYC'&W;:SYI64XoDR.kiG2yP7Tq^lLnQLwP?.0d=[)Jcf&VkWGu7J(nP5)9ãU"fZNWW[N^[rJeu60]IW3G6B-1oQV=Q7_OZ>StqHnhuVãU"Pdhn%yZ*q:s5rv9W/#53iuteuvm2auPruQuWK3M4JbV8F,p=HipWR3dP$K9=4#G,kB?#HV8&D(qy6c5j+\]D(PhãEND SUBãSUB V8ãU"_)6*+ds$knAGxi9yNPnxRtMNLDM&zNxãU"M79#sF5WfOo1>+)GCBgx#LtCC^Pox/If#%4BãU"aZ066f6Q[;(,#)8,<[aE6;ib_/q/%)KVbTL2A1Ts)ãU"?kL#^U2aIVMZxdldOxX*15a%==k1^18e-V'#2jGPGcT?dZg^JNVM#N1QN:v'VvBãU"Lz^KJeKm4JK2UU*8iCH;_7,EVJ;[kkbuWvvvb5eFuSYLUn\(*h1zpo^t+%fR39_ãU"&+:vkZ;Ov8yQJOu(vKP4b89hEZceepY'Kf_U06EPDI,?%nW=2lCd\bpVh%b,vWSãU"a.>8xVl&t3N'K:R=q5H;Gj6iz9nIlZbi^#xQC-?UeT5*WGtW7]r+z0WLFF<&W],ãU"1k>=SMF7?J1s)85j>$]uxv+Eafr>oF]wu6RmBt$W,d4'lE-SWk_I76*L,zcGi&kãU"9\Kh;L&mxtYo%-,tp586:^qkãU"E;t-^O2Uekc_M4BrhL8]:p47oRZj]Pco_ns3fXW/)XQq.n4x5A=n[[ED^Q]\V3GãU"qM)m2;Ym]udqV.f:tu,[13gs=y&-O<>M8=ubdpd-*OajA,-YnJD?_6slf=e/sWKãU"J$n3RnQqZ<=.xe/eqMIu+]r-b^PY18plmh'N,AuQuSVpT-w+]>FC_2ab,eDp;p+ãU"cYU1oMI6pH']_,\?V:LllW8uXWsR%vpr&2h&ZãU"-[=v.kRKb7ZZR3t]XBG?fU]X#JeOo[L][Xcmc<(*U>rxrqGuV#U]u*O$JJ8t+?M%)LygHV+%>CgBU9t[ãU"0c:bjp.\sEDX\$60)b$4+Q/bbg/_0qGn$X2NLz]TDCxsGs;:u55GDm,3]YG9I3iãU"gw-3,*RyMDd4QxaRT;qHMH6qBN?G,r900AJmk-QS0Q(qc&=yiDLQY.EPr;fBk6?ãU"d0q2-2SU+yl4h,.KO:>=>gZ3>%mT)UrLs+AFI8p])D\=0TEqS\FdS#>&SL&2ãU"rD;SZW^H]vXRbTF\wwAP9QN^uY'Zm<^#Fk/3gGnSyGS8ZwVt6cJ2L^?ãU"uATqm1KerxDWZ$reUKo;Ll[qAB6s'[kpO*vaR\dr;-%QSc\Vt7H7r?_)B2rsGYrãU"RaEuFDpo)ljE/d%r7p,hE]CBn#VVWE5*euNeD4NQ?8eL;3n9;+eKg+0fD+QjHB/ãU"Y5)NFKDD+h=m[:][eulm6'WdeBccpbE)N>o[d=il0JnQfI1s//#xlW#.8lkF^HsãU":O>ghtM,xKw%0hO+?4t26T0/.$mtom:e*?EpF[>;;MuN-c:ZClae^&Jf0EGW3l_ãU"0#_p8mZ4ASAKXDJ-r)6k&LPzeu-YY\f1&?ZU+V&AãU"YR9lQMl43FXT%&sv#_][.I>YKwX\T??Pd+xOJS#vQnn$[A,*ãU"*ZHYq,1F$_f47*ckh2'Z?G$p)a_'h4[4C-v2R_7c^;pCul>j(,mevY66&3[=3)PãU"(LOl(b4QW'sVW6_qc6=ri?lT_U$tFhrb(T5Q%8;1IBU^0>?9=kT^,%(]0/P2A;NZT\(%OfP/)BA2a5>L%lm21pqHk>bgvãU"kTV=2NW)xpl6eabaZ&Y&J-07$5;QjkU1Qd&NM[z1P3;TJW,ee#/,lo;qlc?GepPãU",P6W&8M*>]nO8$v,peM4qJc>vEY;?VcFdVuvZkV/7Z=n4E+\7/]YF$ãU"I5DZZfS2u]BLD%-snãU"lxlslNwYDf#oZ2?L_nu.6**$E2&ox+CaIjhy=Kb$W&J.)^G=(W1&J3WP2fn<%)EãU";DIxoeF>N#x4tKsBxos(bp0R(r<4SUa'N9Fz\K34wYSY;ps5iG-gfZ.qa8&o83jãU"c2Z;[lHVt6P[uT4o%cD]xO<,J=da)RBn4.0W<].9D_suASmBbdXM4>+7BP>=,)ãU"0ssDm>F:/#98cqqtl]B=B+ZNHZ;2/5%u/jAsM^R?Ok>l\ãU"k(.WngSN3AdA02kStt<2sb?kOhGqR5*supW3mYA$%P0)F_qJi[V'Q]<-6P->?gRãU"Uw5jeV6ijfv*Sf:o'grX*6k24UQvMAvliXW1C$\U\nc863QiBK7zG5HO^zfl-F)ãU"NF6+f[LExbaBvex2CR2=.P0$YD_Ofc7i8CYS]OR'$ni\Ppc'Px[F7nuRCS&%JuVãU"$01crD+U[HTj-u5lW8cX(,<1/8Ma54D=HMNEOQqT%*qDK'lE]H)apcqw'WU\,W%ãU"Ku]^q0Q$v$04aXGZSf1b5L*>?F\l+J6B%3vuR(X.^:Qw2FZ=-Y=2K[G09PFtR//ãU"0y'kgVQJTaW[Klk*\gM7ldW$GNTZ:m%EDXwxE4L2mJQsvJfT9upmu+_tL*Z[+a&_)/[/)WfNNDb;?f08k0,&)//Xe%jo5eE&#ãU"C:4*Bxl'fm>4&K6_A6_cU,2mM#alM;---)5tU#ãU"Tb+l8Sws%wC9%60ayxK=*kW\,Nku(o#_Y>'1,JVL?*%XrpP0h^<'xs_YLrn>i;&ãU"bh^+5u0TG30Q[^[5:d5_]-FEQ-f&BvP4%xpE,^<;+LUzp8IN^7^prc(WcuV63SnbnXVNVz-\chãU"^6]%,D1Qi.%(9fbE]pE^P7jAy61tel6[bd0R8mu%QT_^VGCTN60(n]\WdI\O?BlWM;KNbewHãU"1(),[R=D#dcokM,dJYg/4&e;H=H?.iflI\.KJh%LHb<'u'jdxB6:$-)E8P^;oAuãU"1M(O9O7:87e\B6^URUG\J5k*l568h8Q8LM7tG1kOklWQsNJ[)'B&HX=YnJcY*/&ãU"Jcqu6nv*bs;6I(:GQ:]J[OL9WF.'5[ft()KN<%tf<$,i7+L^q_:zãU"5Lx6AY>\C+lJ#PQ5dVW[YãU"LEPPbE#GGY:uIHnihQlM+M)6#)lqJK_]e+,UP;HmW5zBkSj=23-B(L$a+M6ZJJAãU"eXiihy)%%gi2*;Br82G8MoA?((HY=[qMSWk6&Zl6>WgWJhp637BLRjp3#-c0b\FãU"lP#]q8^N0WeIfju(73-2Deu?%1x9sU.\I#(GszHiI1'fQD[w9/\_m=lJ>^hC,fGãU"\S_\ntg1qy*fH/?s1uE?)ecKXCU(]-L[WZjWO6*MLWRJSID:8Kg#=IGbXFRU5I1ãU"+R1nM8qK&+lGKs3U&LY\lwCtP\KXfd/U9JbwoQdU/kGqww#bt1&G52cMMx?>R[dãU"_>DJ59TES$Msma),lW8L5x6x9Q,[L9IR]iX(LRP$u[V4#SH46Vp#')H1M_q8)SQãU"s%qva'(t6TuD*(U[r2LU\D3n+M^Wt?=?]x68788'Rk%1*goEhcg=f'h)FL\IaUpãU"IajZ\#%&#.6U\vVN9MjpH^61.svHaXrA'k%BbTbk/Zut2nN&]#URgl9?p.+%/G[ãU"sJj-dPTSuf+>*2S\EAg[S)TUkaK[2\N0;'GW-x*8Xk8-;$s-V>fAu$(m0);C[OKãU"ehG56V:dV:YNhe9u:9pG47JNjM]38fVP)'u0P5n+>HBE.W[MKw]eSãU";L.CBg%LG.AVqqO/1Qv5>8bA'rh.i+8wTuGKhg$3m8?bN;d]KE*ãU"^=Nn1O+xAUsQJq;ca?YYqtcNkHxGR:ui:r-$S7>Oq$tE(nEjD<5N?4K#c9>I0F)ãU"69\(wf7BptI2/_&N-UA0g6:]Y-1WeuIY^XPo*x.Y\JnKv^Vq[NCXL$2Yj(b]HoQãU"AB5b(HTghW&z:irP*%g84db;pWArpm'4lB_of\DWqAxYxLxn-5*<2M4fZ7APbt4ãU"=CoH0rYv64un\YTQbI88BãU"\ewZd:3]W\o&Sp3L$xtTM-AXDUcBtz(G?:47]D'';fHnl_.,TN]Wxg.0J1-M*OBãU"4qR0LUzwiR\XZ$ZGs5,^h)j8Xwe[>Jd^-#8$b\;4ãU"rhIt>ykfuI*'VC>s-'X\T3JnoN6H?--\(_[,+HgS6M\2_vOjR_;]am$;f]c+h)kãU"WIkn1D-.D9)^0<'b6z]K:iqV-:5tPm$j0R(T)W]nvc21&rNc75[W7Ge)Xv=U_1YãU"L$8v^CK3((%Xz'U]AZf#*rSgxA.ddC(_jL]w/G:r#%is;2S4JsAeLSY7R[QCRBfr7G1plba(SS;5(85&-z?&z^1cW5*iKA'8z)yAgET36MB6[r:C0jCCJrNãU"GC1[SuVj;GF#cZ/Hks)>>I]t,j,Rnfl8HgO7LpW,WqW_s_n,OK>EZNr\\3#2i[QãU"4&\T-&9,X]r?=b1-uCkTZU1\HbBIH3%oVfAC3Wb=ZI3aAgs.>(uBFTw'=X4d1$?ãU"rHT7UlgP)VP&Z\R^(Qi7LjRkMAkO/lBFfR3P%f2oH3fcvKnr):<,i0ayUmnS0ALãU"^u]L#9]a80pkbk'm#87XtvjUZo];W3EH)U.a<)<6SQ*L4#aN,%fkKIj0j)2.S%SãU"/Zg]9\_^Gd($2#PB4ZCDrevewdKk?[j^O6xjI\kLha&R00APUk,tGE3VG9.;V4qãU"M'Yd2WN8%6CGen[RBIC,%Df(VXq4bI$6hezD-Ug^At#(HArc=jR?DcIKR./[m.w)o7ljgi^J,6ugXe<8+=mEBUeF,cUX%koCN)D3/svd62kuh>G.wãU"%B1h6QE0:z&0LVheRK%0)K*a'VP>mRYH9&,p9jqNHNWd&->GQ0]80,D25JQ;4TLãU"Z/3*tlVlML,*%BoPdq6v9[9].?5dA&TzTf=Eh+4eCRl-l&fPM9:vR6AF(Zb8lHWãU"Mnf>NQa2Ivq6cdj.D*^l[b7GqJ-kh.ku3EU.)HGF.0ZBk=H;8^_g1SEVa(GO(VGãU"lyI-,QBJB:twU,<_NZkaq'tHbvFEr.*c7VbwC+DCj8QR?+yFcxsfH+BtM8N-K;Km?xH_?31ãU"sw$/:W>epa&nU02H4k*dVdWd*%Z?K&V70Ri3K(;=Y>10sA(E6*-fOtg]ZSnaGJlãU"qhfX_J4kXL+=h0a-m;3[aYF&WE4i?_lrqhMxAKZmc40O^\>0:rd*8Rky_D$.i-3ãU"=/%ka\H,r_4%\CmzW1btD9DDjSh.)GxiVhR<3Gal+a50m5NWThW5[eSo_FSvXsLãU"in^7NfF2[F66Z:EQRAB.Vl2cBE0dhFb\bUE-9T_wG(Us1R#mq^#hk\R0DhH5SS;ãU"#33Xccb4emYQKm;9T+/XcBYQ2j\ui-DQ#ay_08a1_3$7PT7Nc7PbR18mNzN9e5:ãU"5_0l(2vV=8PQi^=lQqXJl/R6o;ãU"[W/-eDiSsTb5d;<.TL6&W^yKh&D\QC\/W)[w3J*eST]B/^2G,?_&VTNuC<+q?i&ãU"CSu=luUuOw5GO5]oYAlh85w>&B[v-3D9+6nQ)Do_8&P+Ko:-dbN4dKM9Cf#;e.RerzãU"HhRQZ5;%=/F*5ew%d4q_2dO*%=/'>U_5>t1cQdcbZ57lTY1$fq^iXpes?\rbm#(ãU"nFscoU/<0q>+caIe]4Qf1?]6_pV9/:d)C'knw%dKsnQ4YBgMkãU"OJcr)j*GXX#%[eM*HjX>*OT1PGt>Vd(<%YP2nS.KRfn?\tKP%tãU"k0:2yBZ;URyLRYJ6&6?NnRL\]ZCE[pXv[DvQPHmi*<#el)5a=+#m*h+Fj1>7x;tãU"'h.drcQ:JVh?x^Pc*9tIAFbf*pVPgtiD(x;fM31jW&-f9mbyQ7YoXUG3?)9gI+(ãU"$\.mWL-niaA[8YP?co)/U1tK[;&Bo#0M*'yX]Fo2IJ%-aD2&eVu>Gl]V((dhy/tãU"?^r.r[5(.Q\&ZeRREBLVDo6R0Ei9B\v2h:So7AEarTao)$8UUM$^BeP=h*_G&-_ãU"i]fM*faR9he=AMg0o^b:s_8O1lq^9v_8j45ddc5:N0M[w+m?':.B%uIF%D_M).2ãU".R,he)%IvfoFxQh8/I=T/fT.95L_xI:RZ$i'7Z+(lO%5hC^^VKnãU"npP8,IOX4Ls6jZ\(jY8x2Lu&rnFoA>B:1:jOV,Q#(R';u+I*#8s;/rgJsh;xj6+uvm_GD,Gz.$$XãU"r&PhOp)/ZSE/dz*/qG+-ae>Dvi6WWw0,$oD2j*'8kL7_HcTJo9O2qR]/Shqf#4)ãU"Zx0F,wt4n6#L??._jXH\:CQ>2HYIjZAPjdpE0RBO=HhrAg/e)Q'AjmJCPtfMx0Z_JBS?I[;aGf\<\qzc&jAfãU"9>q9r)HT]S:>r-?q?CAMXB>AGxahBmfulxa[?*DeVPljPKwTH5qx%N/lM6oPHQd?TOgY[d3R;'hãU"sVe+cUCML]tExwct>M#Zz'M#[\Y+pVJ_EVEãU"h&6PvH8yqul:;:t.Jl'MTTPENX&?oEL'-Hgi3ma],akQk;9VIpkP/jnOSrW[S14ãU"]H&vTrm_H)u5U5F)*7Uyhz6i$p:jXLF/qga^X.'(7yBgrnx+kLqbiZO=4n8NrBZãU"C:3<.Y=%:_03F)[%->z,rYiX?vIm/_3u:47CD*_Y-J04WnK;AO:%c^_g3on5ãU"W4NvZesLg/+P)\S$#iGFnn_9OL;D3XFi%-HFI<6-0dA>2Vz*c=P/kFklvJsZdu3ãU"=K,j?[XKCTF>GalDQx\sp1\a'P_$_JiAG\cQ^tUa]dIZGfp6zp;+uL3TP-\[^8EãU"i$F?(kN,$]aw4%M)ou_u?/(rs%i>FvbdxuwC6-#&[ga+pY=P:k6B_t#F1'V<558ãU",A4syZ^,_'IQU4NYy,lNMo.-e#Xd4OH3JuqoVj+k&X;AL1&gZ9l'-TPkFQYrn63%nO4bWc'*,O[vfãU"y)a*8C0h9XV/[0#,k?sg(#=sZ=Q7tv:dYk2*-#\_,7IKkd;KBTI;[.:KeHV\PTnãU",\rJhWv1>[4>.,^p+0%X(Gsd/a>j$#d4#:xG7;o$u);u*'d$r(JGDVhzYwFK^88ãU"Oaf'TWZKY^;K>hEdLa-W=;K[)Yz=N)alZ8\ulhWn#AXcx)=]*15nK_l6cnKm:I0ãU"75G38N\t&Uv[UTZ3z&+Wf5X7i*Y01o_=+/0-aZVq6F#blPnY&PQRDi%]'-e$TOJãU"WwG.dg38UY8^;i,6#3r*5NPdL%Q?Y&c1Es8^x%CB0Y^yRFZYV8FbHBMNuxEToY2ãU"O6PY#w%#yRs$]5RB)^uc5,:V6f%5aWY[-KJKXfAQwG#5lFVãU"Fvpp&BZRR2ih0ri8f-PmAJtA9KjeO7St#F:asb-kK,IWOEjwW7cQ:v?]Pa]XNQf0V^(ONHxM'e3G1ReOJãU"/1k+$Yp??^J\cxh1pxC)>I9(9($VY3\icoW^wZEcle$?sok5W\iRP:S?5Nit*QiãU")C9hy:75AtXjl%1;%3j'4oCJuNJFQ/w;Wm8%KOe:Nj^A_0$l(6(naKhbwV5DV3qãU"9Oi8ns$E56?JDOj4.)(P'DH575s43qA(5;clBmtghtãU"1K9EI-vZQ]sh'uJY^S%^WBnQn^FG9M:%3hCNeVrz(r\-x5A>$x8M&zBys)+%[orãU"A-&8ASWfygyga:aSp5_JB?>5l/3y;Bn=1A=]ZQG68V3,8W\[AI:=>+Z,BcX72>NãU"p%lJCFPiUS0S+A_Bp#jKH1;'w/^rlCL+^Y)zB6Nqf#Ral#M*[NsTos'z#)jUP#GãU"%TQYXR$4ertI1XYWU;TYsR*R(pFK;:P(*j14aFmhSFc^kJu].690e#+a^PaKQEEãU"?$MCvra'JU_+?qPSw&Vr]uCFVGZt^:JH-iN%wDwZ*YL7g1j+QE%ym?gm.pI.uYAãU"Y2-GECS&Be--Z8^(2sE<\DLy27vP5N0xN&O(cR66JO-)]M<=S[M&3q3*sWfEqu?ãU"NObP8E+9ZNHF:wtIZi*:b&Bs=j:fmB[7[?a7h5o$mK4'e1ZPtQj/')H^#vjDzBIãU"/1AUr'uVL4EbNY,*D.Z0%/xgn4+]WãU"zJ$cgNn;?(;%CB/rA((OW?n-O0o#PB3),9'$)^'aK0>Is79Lv[wha2IlBZ%[lkVãU"_k*lAewO&0%b%_vr*7:;C49k4&v00w/5tTv4ijIn3tItG^c6Q9:60EfaãU"U/MZdSA&E-/2WFc^&L5*'lBp_gjt^-71g*[g0YU'ALOWA6d\FS70G^dSsT)ll?*ãU"#$O/iB/33N87-u4AX6hiMdja-4K<^tY;Z,DXp78q&$X?#vmcNK$';-1A%NP%-UuãU"XaMp>-I'r_nadRcM-c/5_'A5)sHlTgtpgF1BpPVuF[^[>c6unst&X)S6X?crãU"o+&ECf3%(Q^7B(7B^3ps',M>HBBVB$OHb\Lc58Ti8iR8+Itt1;P2+.'DKXD=[ZWãU"9kM6uEs29YXb_m^ORZPCSc^Ony'8B9;Z)2%1Q^V&U#hD56kQYpb=-$X;v#jtY8gPH,q32NAKAX55';a&+ZkC#kL93m6jãU"W;Bhh>Yit_9rdt<*19]('0?Ct>5fO;J64V28OU0Ikm\jl3nWqXsBoJ=rN\*a%uOãU")yfy.p/B7d9ht)>,,GaXiECJNkFmJZ+nV(oNktQI$4S^pVq:2eQDaA1;mmJbX/IãU"E-&GG0=#-eITsJERMHLDZ(f5%LLsU^i+\7TRe.HG1wXn9dAk+8IG2&btgeP.MwPãU"]FiH_n,+).Cdh,[+#QZiP.UNg+.%VP8k.jbr,/VjTPNX=NuCS_Y#HJF,($gV/7<ãU"bT+QWRZ_QbpY#FWGcQ]tQ/a9f.GY>UTpx]'EaC=(5sowRZ][1>Tu6&7H(s?nuf%wmeh]F5xDl>IIB?lxJu^b:Y\/dãU"&>Pq'_mo$2s%g361pbeY7GW>6LRa9^)8w,sW$tOqcx-#uQX]/ZdjãU"3M6,VcWlN_NuA7HgITQr3_sk)$YT1$MC3-Q5VBEhlqV[rJVKmUOKUU8^CFjlC_DãU"DyaZQ6ls;SX1-;YT&BfcV?R)E1pp2D$0D%a6FFAs)Q16Nsh$9RaE>kj^6p]:h#iãU"QJ^PRO8).uhA+]>p_lLR?pR6:9\L:zaH:uViv+4f1H%hfS+T1MFQd^H*[]0:>ivjy9UL%Jr:w.2Ewj?+ezSySRDt=ãU"yo<11g?.2/.i%9m8'0dC/\R'Ou$cB^0Ml/:Ckn\VEb[OtnnzlH_Q3Q1k?W$qF&$ãU"DYuQ7.,R+^6z#H?p^MU-]x3CIxck_b&jttct^BGw5MxLS1B,hr1mhZoD:aUG6u]]s.N3N;_L'$h7zBXA$ãU"=H'A0z0RG='0CLq.[j[k:1C(%[q;b07s^SUpkD,#6pLdP4M%*L\=>sHiJNZTw8HãU"&,.p:Oi]l)NP0m.2+hd=jOS1aTMqi0*y<8JXR6NA]#(+%C6y#\<0G13=9Z5//\1ãU"EqN=tfVO02.c9VuXY9^*p0uM^&04.;=Hh5DG+eZYO[]?=J*ãU"gOeu%t$KI6JMmt^M0=HerIfXCG2kHK9xg)p&'b+HQ,PF^[DwWMpnmkOrD'O??pRãU"6?F/e7gCZ1UUIZRF#BtZQZa2A;je7ZmHS1?0i8;K2?\e[=Rpm6]#4VUnq$YCuVYãU"m1IRFn-6X7ZF5UrEd[%]#%m:3pFj=RK-5bTSutL]c'PdW$T-[X7R>8C=Fh0?-muãU"B9Uv9V6s'X;Q8QU8);1dt(7du?SUk(2hJq%)8[('$)[Dw*m.w&=ZPC>p/PywRUiãU"$uWC&mgELWIrThR;Ff&4>hs9[hbg#nN#P7+k=COVmoRe4d4RY(dfzRFC;l>p:;+ãU"&6oo/X6Kko;P]'VTU3V;&_[>/-p+o[nyf6qGFq#Lq&Dshh:a?aR4oex]0X[]K'YãU"5fRbd81I_&fVn\t-SdQ==B8mpDr6T'+(1Rb7?WCZ1?kfKi4%B0ãU"XuD%VL?%NXls4ãU"VC15,Hifkxln0n6(c^8v#7/T,au&d&#d(]Rg+:]pJr&=^:Gb:KHq&.?.'4=pX-.ãU"/=[tQ5+J7hZ7M0t:/m'/7kjmLmXhDd\wgdOR2qu<;F1*uckQ)dWa..89nqcSr5cãU"$HUn3wz005JtN'RSj#6Pxq_9ld\v9CSt424^5_bj)lHd#\CGH0gdo8dt%]hT#I/ãU"5Y;<=3:&->uR_J&o<==*l>yrut\$5YRhRk=UIcFXo+J1:?X7.#K#uãU"$.*\FE0^*zNu_RtrbM??W3funYDOteOMGPoFz,+*#;g-JU>kCZãU"zO7^;fjAg7Ai(5t;Ih%wCI#cn#rd*M2I?mM[ãU"c.Jm6#*0c/;R*wT)7d/epj+>=O;rb1=Ba&+I1dy0VE^2\+$e\RrPOA#s9gJOCCRMKB>8,5I6($T&$,7ãU"%,:)a08gCbz$Hx9\Wutu)$TT-X5402lZ)rtx0$5nEkrUHdBfdP2l=%P?t;wy00$v':;J0.[_s.x,ZOr^:*wq.Pt-xi^vkQ60.FW2'ãU"9te7VaTFAxn1G%&3z[/&S3sU;hEi,3lN5+(Z]tZxuZMXNO,fZ)u\B4x#n3w1n3KãU";,?M)0CFxrxlv5ZimsDp,l>$Y=xi^qF0v3QYEoK'gtio[=<7LCSWS[9k$NBA*DRãU")N49W\Ymti>+QYI[q0cYBT[w+9fZtO,YAlYL?7hp,PYCvQWG,$,l(8.HNZw0NUFãU"hnqnfKpR9i[agj#Hb#Bhy3uZDQdesf$'2s40685i<$v:I5>[67Q$IC>RxRfnTWiãU"1c59hi:+DJqIB8,ZxCf&p5]-;RvJ)>,&NPd\5NNQn,5B\9hzis;HYO;fpk+(Yk4ãU";-3\?yVBQRiRUNnhO+x5n/GE>a^Ay[l,&1MOdtL&xkPel*->-#Zye0[Q$(0-r6uãU"Z*b[J^0WGDnFtGod1J7u?:WJt<$/6g1EDiMiW[fdwxR5uNZS_31hWOlNEv%jbPfãU"m$p]gt$/+h$p't:OsLOQTeg['x-1N;rN^HLeqIVPrq%ulSuJ<$'?UshA;]j)+c)ãU"c_#\qy].P'0?Q[D4o'm>p,x.Z$W2rH$/y[&?]D6UU=&]$=kEYh/?)<[nat&ãU"&Iue\KZj3Ml,',Y^pRvABlW'Irlr<ãU"OdL)+7RJ8$.V\?.c)RP7s59rCbhrDd>GZZJn*UO^+/L\O&0HVTg-3b*x:ONMA7UD%(;42k48.56dWHf_zL1tcnaãU";+#muFc#HXlYcQ;W&^hW^o##8jP])ADw*H?4tbkRLSjHqZusZYC8O#Rli9vC,iiãU"gEbWT=*_;q^:W$QA]>up5VXZu=iibbN3X)1/_q\^t8+U?h)(N38gJ9,teJpm$=[ãU"<]R'dzlv(8Kb[?K$u1eBZdG9(mt2zA[rr[lX]HNAE=JehG7EVNi\*.CD,XIsv;jãU"9kMHOVIQ?QI]4\zXuS=p:,PB7vNr/H)Z^A0V?P5SLTZY\)9dgH<9SXv5DT\JS/iãU"A<1)YqngX5ef.<75]DFLP\c#p]U+'&nav=&:I_i**\s2^OwA&IX^lTQ\2HumOt(ãU"u61O#iJ0aO0)MzvI1\g_iV*.N.?qTMIDK2AMxKu#i]RYd9LXTIhk\g=Tnei[AJPãU"FSl']Ft(_GFP_up2+DW8Krumi/$WX.4E/9DvOeqAFiF)s(1GUKuy6Mu(ZI)7M[RãU"WMSBtADQboC4CDlDo#-95uwr)$7uDf9BMQpUy[5C5gezYx;)8OnhCHu\Bnd(&&2ãU",;5:)[;7e[6$&WtsGjr5A%Y8=p]h[dJh&-MbR<0Wg%_cW[ãU"t)wnS;qdAS:qt>nmyXBpbZqWM(R-ni%L38h^xDlRRplPeQ(H+XEeUA+2N%vliD7ãU"R.k9ae_YG1o_bxBZ#%+lkkW9\Nr;pH4a$Rh&ChYjHV6\,9&1)wGi.O0w+I4;\[eãU"+TN&P=%_r^jEzb0=*V#$0Wwn>E(ACH+,$'$0Ijshpx$2t1Ku(WzoZck3?Y&a)#FRbNV;3b6v#=P/&cuc^12ãU"V1n&E%e4TyT=fpx$=EkDKQm#Koow$guZkkFJ\T)]jdG#*gF<+P&TbwVqeR3HO#SãU"R*4.']1_ve1oV]c8BubKEM->#^[bCdzY1f2gd5P3^T:.YV?.[G,GUPG$/Z_AJ$cãU"JZz79*m956Av=PS_n?.h=zPA\Dd$FM,tQ##=qRjs3u_Nep[uYr2pDeYH%K0q_+HKdA(hLsNfM7$Be2R1>a&wbXmãU"c9DQAd2T+WoaKVwf0rq:>$WRbJz4j&I^^,?8j:'$uR?N4'Ej%sT?R=R4'b-O\^cow=ln-Q4ãU"#;F*fe=;N0,5t#tIPX&4P'WN8hBrX4mE9_nmQ^#A%A+?WFj8':2Lwd+jl)^+7o7UYRAMhwr;n_?#tS*b1x(BYAQ5]ãU"?Rn?tTt9VEcIH'&4/p/OWBFI*CI4zToPF59LI$%8s8*_YP&/02$Qvm5G4:uK'F/ãU"zK,#eil]6VYOmHxwRMjfReheXe6V&yAIzs1X*]Q6Wq31E,r63dI.qk#T?1*2F=(ãU"eK_tuF0l>$OB.?(4/sJRsKl?-tjn'sbxsUkBX[?bmbnjJYE)VGV])%olwftQ74VãU"1Tu8PP4Qgl1b:Gi+6hLY(_ãU"uZK;1M+D70FId5x9#-T/X#M:RZ:%Bw2fC5*DsDe=YX_Ilh#)ny%d]]R5G=fc<\bãU"w/0esbUh3++92Ni2SG)P3rjY;VULS1[c([%\EAd.O>c)MLRqlOtjmc&+=)\kCDtãU"Vimp3LCqiG2KKWDIXwJ[%UWc]QSU,A2*Ry_*AM&WDj9^HZuZe0D5AK=;5j7'z8;ãU"w0eD9Uw12MdQLqP]j_S7-1AZ,Q4U_FsZGEK7v4*jiZj2u/Z#H;7U.-dFnv[I:-[ãU"$VM*1k$U\83d(%=[QPO,Cy%yg/$D_XaGd0[mL[^MJ%ae3-M^g++n3V(rX-kK?+WãU"WCPv>18^iMetM3C2aH/vy&prooh(3^f8aV%PAsUJG;bpWf$9MyE4cAIwHu=4,E#ãU"nJ'VH%T$'Y7ngo$X7PA>MqJwTrui/[tt4kT:(.7ope3G;l9X<3%%(;/6^[Cqrvih6mXF;FQGãU"SzgDA)E>8Uo](^Sq0f8cRUd4nr&3%1;[f1+SG=C$cSdPFCJkFj?JRjBk(9cãU"*-68coEGldH3AXU*?0j7E'B4M6Hed:8;=^K4gD;l0;hHK;);S0Fl4n%>UP))Sy#ãU"A1vvtpKWM;fkiK3GnUr:8scbEp$aW)0]AfsSj[5:B)H[aPDRsx$r:bveSjnY>nIãU"tt]lIR4YhV]7K9t+KD]-h(V/Pa8CLL]8v0XMzs1;GkKcn'B>b8VfiXhHK5rBTU=ãU"DlYIV7vCIhpsPTvHe,$DY>Ddl/tDz$q%spAe6J?bQ9c3g64o'skECOJMOA.#Gs-ãU"_4>w?T.kHJiV<8JkRXj0=r=HrMXVKLpsQteuFF,Sv=kb\-&%#sNa#ie(ViWJ8RhãU".n[ZSg[8y1i_sL64G+qdgU]5c)_8u3V=xnJ=sjio%^4%oT,fV_2(Jb#'&6ãU"Y0ZwI,&w1Gz0WSnRg:iU4_RJvtri:bjdU;D2A^bK[':]0*BqL*h^W^xZ3ulw='uãU"-pMI(NsA&bAIqYe9?cGHU'8)UXW=o%'_9spDO#]u%A\D?62sOdK0cFBQU^2J/HfãU"WoqfTKf6bq$65PqfJSPd.)cwd&BF\L_:oiXpW^\-Lv3JKYJ+u(in]p,rYVB#<;DãU"[';)_NPNX,,A+,?VbP'o;&q'-Qf9bmd&#do^_I,<2\n^Jbp;FlRyeJOwT_$D*VU#z,M*=0Z#I8BC&?0Z(/\yAan9CumcNb+d;]0.w+C#]>&j4T98GLD=_8:aDiNIfJ<9cGN;ãU"b_GUPQdh9g=nQkg\j9wB64(w9](FBVs\rxS\1[x+oYRkmMgeJ3G#&2]-rY8aa]FãU"sGb^7bRJfQJVQp*$ENq.RV+XSho4zc,,+g9>>U'D[8LqAU0LmgYB1frloofUdJ?ãU"F4Tg#$-RF4lVttfPc3$]*'p>Y];;Kb'cG64g)#>Iw;tUsB1w^>CB0ae+YwDEKfaãU"c+uu\Y(M3)kMp6/54C]PQ:#Lxetyit?Zi'W7EQX/a8up14*#,1fãU"d#U&f;6B$LaJIXbh3%vJEQAD=%f_D7RK16&U5w6Z8:IH1;ccU,0\aoL959VsJSDãU"$]lX:(VbHYmfBv]3D.E$mET=i'Q5B0LUl[j])#r6Q$ãU"igt1#MXpIJUiqhKkJSe&L:rOJgP=#E3$*)MID]Yk#rd/v??dLVqO:4WqM2FLo8;ãU"9Db1sV^$lz5^q-7O=[JylbP#ppbFr)QxVneorC3$b8rzU1]i2&/p$QPQRj%e]#mãU"gxLplO)SyW;DM.1l'I5:UMUkgXH1c\OsOe_<'oAEsXK/UsC$lNfOc<\&sU>WNXXãU"yAwRWgODff1ELx0D[I5:4+FLF(igs+$9g[X-1R.[-*5G]1dj/LEY0GH7.RqSCL9ãU"ljjoBT2W&=GDR9,17_gSKncyL:WZHhk>jp<%SfmgU++w'SXKo#H6NA=#>SBpPF/ãU"Ukok3N]g-ji(0Leo/R9]#aBmMwEIMlpJ#eo8_r2EuaR2J0yoq'c.KWk$gOK64WCãU"U'Hq;_%y6q)?Mm#+6t6r&qig&tIhq6R_&Q_ZeWSIan72A1K-&:'&f.+SW_R(BFtãU"_P/wY^mXOYfoePc[[C?yCGG,I$/e?2opp+N]x44A'd)$1oq9]W1[V]PMi.d&C,SãU"1iQ*WCquTgqU\NlLIlS+f;[ukR:%4nxBXGeZLEe6\/q+9Jo-?[mL>_ãU"wt<\K[S'&650/mYWI-_O:t/tm8c\ep[E#*#C'N7NG=w6rr_y%hYWU6*lz%\3/VwãU"dD_OKitkA2Sk-bOZ=Mi_0gEutaehX*N'H-IUT;mHGG.sv0D(l%f5PwmCeeXu#teãU"Y'fm3NVn-tbvNQG::Jz#RM9AaEãU"=LoevsZAu9[a,i_*l&WU#J36t01>JFDR#%c]/ELuãU"a[wH'?g1W01XxlV_q^Q^9eClIg'[ACB/=If/1n*\%b4qF01wY(>%Y?6_pOnLUBNãU".Yb..6Kg:Wp.F9wdE4(I8H_\Mq;JLN/dFNrIWjaHK)B6=KCbCjAF5Y&h$v-2dc5sHxA^xgF;11+aQD?ãU"m1.F>zK7Te?10'v-[PN_:aOwbuhTG/;CPq&PG_s$.>_n._gA'+;>^e9/Je5(lY*&SMypK(S&=5t>,GFP\.O,JstwqGK#[K[/12-2^Z*Nmq8N,PãU"BgT[pSKquUAZqN2[D2od5bLuDEY'a0P+49*]&Qo/lkDvo5ou<>Ho?[2Sbo1T.o*ãU"7$vTA'X7S0_&T237KW\n6r:=1[HT2#*>)gaGXuS^TBq.S8un9%I'=[&u+d.Vz<[ãU"$aA^$fd()Z_Y8EgZ$b;_O#*Nb%XE[&\F?Tx08jlt%Hgt.$lhTaGUxQsM2(.z$O;ãU"sF&*0rFpX'sXOxUt5.wdjD\Fns=7:%>^HsVL2R5r7IdX:$VE(fq7$htu%TQa<7HãU"4U3\QnS4oN1wS0)ZyM_WYLa8.XKVFDTdcppF4p[g8_PSXt;u);/ebWfLC5zXLCrãU"6Hb8?,J;bD&,Vl%%32'B_FV?Er<\%JXx)_NxPopGXvr66_aVQtJbcB9lQ5TR:1:ãU"INv2+qpYJP?$w^'-4IRQntmBSãU"2LLm^lBa#of(?AFe<^Fm+/UyR6)h1^kjGEimnSii/1;xLi3KeSdKhãU">Xpy?ai5z$.b=1u8>$^DLS[xzO96Z'_28xL=W\J4AaNWqK;1ul=2Dr^o9QubOA/''vK[z<0]E:+^X8.6#(7Y]M-OuEL+u0g1Ih>IufOBk'paIqk_Wz*S&VzbU&0Pm*[Wp=>$l[[ãU"I^M[fUIk>keZNc&K1fW-*?LT9F5nY)ãU"JoF2+#UZdQU)[V9G6iiHj89jt[Heq,p&Hi][8EptZYNJ09IL93je$k.7ãU"z(8s+[\FPQi_to4%L$?THl9f^C=cR^]%3sU)u.XWpnB]rv*JwDU31KJXJPtFFrvãU"NsUfmATZph>%c)]o-ASiNqql+vo)s1.29_2MqnWn\hRb]:*J=&iJãU"N]x?MGaS=p$NHymY%,JNi\We]#qW=)dRtrdlBG#^(H7_mNIv<9.>dV4YJd+8O#BãU")c#^Vq#-^pHWH(q)V$Q6/A3_L5<[_tLBjHg&gWk/p/7d+v[a\ee_N6LiCsuRAmsãU"u?\^C?I5VI&L\(6)#_t'%L3\IJg*[pTwrLaukEbP1[.KRqF4Eg,QS7*OiQYTdqCãU"?[a51l-q?(TbjYxu(WuFLfI3r.+tXes\63cAF+GFn*04O_VH9r%f]8CfjichAPuãU"SJJ..>P2ahKboV.(Tk-=G7WCHVNP6S1[aaJcaU90F>+=PãU"PY;n9GEcri/lReZ>WJ$?$i\z^?oesiu\(3i[FE7CwQI'wSMu3PtsKJj+)$$pL+3ãU"NBl=a5=C4FHy2B2'#;27#b8IO*tTVki33bTudD%XllSY,uk1R1<>i=n(;DJ^92FqmykHk5%nM)[aa<(1(FDVo2h)O9EãU"d>EFGRmHSkPEzRl?Oi8^yo+jb1aCdleA,gEYCZ>^ZC8eRX+GM,bis7Zii5/M0=EFm=n0#tl=UO7h.amw<-K?y&-aab3ãU"3yF5M\VV[*a9BWTTKN/Sa^W,rGãU"r605-T;^M%U?[mfq^j=J,.^UU9vcJTeL_Y\x^Jz6pmZjIxx4wALmuO)GG5fãU"gswAqk7Q[gmJ>BDM4zVZSUtHK6/C(.K5YSb23[Vt7RmIsAQ#U;qCb7YiJfUs)efãU"ARUb'-u86;ZeMOCVV.tYR#\9My:eFuErQg;hqHW\JVKF::Y.%,&Q=Pii*X0p2:4ãU"R.RI3I<_/OOmKi'uwsv?X]3h(:4:j+Vw&)Yo/SYCjo9Ogv:U4B0Sti6vq]lhlt>ãU"eOR3EKc,>w=e#h+#9QioSh_YWM^(Y)0p+=0DUbhqckK0b6k'UFrK,Tuid6sRTDLãU"R'gAqfEX&02e%+eP#WA3*honFMcHOY((D^??5GFfOjShGG<0a#O%UjyilT(0er?ãU"cLKWP(B-wvT*+qN1;l:oo'4jiB_yH_^J_8ij0[x$03LVXVpH24A4:K][#JZ1_0mãU"1jEie2N#TJy_PJBbE(qxWPPL$8Hj4TJ-<1GNOBIVej1F.dãU"(04RWBjy2qo2OMeup'p4Sdx)Kqq.AE_6CC1hG[8323)9He$vIbYG=,yy%0m8,-/ãU"hOAjsDg%Pw)'%iA*1uMD[VN_9$^:.M(F2L+9l-SOtoE25339NF)uu[?53S'#ECcãU"_*4nuK4>CGAlE(p73QGs$hmY^i&AMZJCs9)+utY=-[ZLKV<*6D.ogK8/a6TDAvpãU"Lt$FtxG*w,bbc9xHwm_5\Zm0C*hLG7Z;/em-gS5dg(9VbMXN4I??P?Pm1eHp[8>ãU"]ji:LNRh^0-(\IYdDUh'=#(xuD^GNW:2#E<8Vu%^R_S?ZJg'*b9C2UCGVr3\r]D_W]Q#LUV07eMEKw_OG>GãU"J9xInk(F1[Mb5_UT)&%t\.KK^kK1/e$cRYM\$-fgXP3ZF-eEnrgsT>ZBRq3>X')$:h=bMUcgWãU"2GyBlCD3jD(m:IapUdzc1GOQ45;53LZ(TXLZH64PnhIAfb+ew3m1Z^$<,A,oCjsãU"UxV_N%1m-8g^h=&rIe?0McB>i.]QNT,ikg4jlIm(auCW3k%23_C(=TUZ%MJROJjãU"%mZ]rPY]xf59W:m*GVq*=8\ZN9x>(J]PQ*B+IVhaQQd-kh5aF$3AkbhOxWm#]AAãU"ft(yosmX<=0Hoc5*81zIoLntRVI4Shmq]hTsd^V[fta'Ic(#Jl*9\$38fGOUhaaãU"s06pDM+=d0hVx,>4jãU"fC+tOB;im\acK=\7gldkx3?VHf[nE('CYnY'%edadMe0Y[HK\CWvADbU.[2EaqVãU"GELJ1JOB*gm$M8*0=NUTB3GlJv$#7l\wO5V,)X2aqosNPDtoL*]T75XW1HmGHplãU"%DA2tYsf0MI^Rjy(15gIa)J2a\&%,g+8L_w8o^1\*hxuccM%j9M9p-q6IgaAgY^ãU"qnaaq:t%hs+nKRZe:h0JcCV?p2V/c1peGG(^%M<6=bX/qD#N3<8Z8QT\tT>JKS\ãU"_=I4bL)/1lI>%MlqA>Ui^8Lbi(niE^9ReHSNR#/AmOP?8-_Z_#_AbzBY_1P4ZSe,=g+#M8$3hpaCLgLe&aQkrko#G-_deb;ãU"#;^bpQ<3=%(q:9n\rGO0v3x^MO>_lmrV7VtL?4ZXCsS_*vGb2Io?D#l+$1O[ad1ãU"-[Ywt=H0Uhe7;9Z$Qbg3ho$R:k_gE*a$KO%4YetE2LnkJm;E9*E2m_y0cxsm:F3ãU"Ga>)oJ+_btsCn7)aHSIoLrS]Eh(84C\qv^.jdNYpX8NNu-+EH4WR/LHTlQ=eV9BãU"5M1a1^Fp%$TWl3a6+At+=?qn$7_&S6O%J',u_\pZSaJWl7+(V.HusBl+%-T<4kfãU"6i2K1E[e^Os^&NR4OlkAF/u7-Ianiap(HNrx5mm.7]j4m,8_IZlmoBSPV875N5?$XmãU"M#W5NaGe&?X=VpZ:$1Hw%w1/eB_LCmnppm7,.[7f=BTn8Tx4fr;NCcc1FR*oiYpãU"JrKxBm)HG(a9mNF_U_ZZ=?&N2<\XtYuWb2bwGoxdwxq&Xdx4BrNcQDwNcZxH\e-ãU"CUuB?WK3E:/4qRN8Y21.h-XhuAh+/qT[QXruz1H3ZnRUB)((-d_D7vW'y/.iN*GãU"Qa;1X\/0c\PbL&v%^C7HPZ(jxT&?GY7H&n.;Im(d]+gxgmg](Nj1o^p5/=pxk:OãU"Q7$>OCsN^Fsa&r7.\xVt(nlf98Sk5p%NAO:0oI<]nb=GoWCC=1\Z*U6wgSZ+wr1ãU"\hMnU:4S5x/bS^tZ/11+7mn-V4W0_j)DpE9618Le2\%vm'n8u\>^Csh:S+#Gi[kãU"phC*I1A5l%*SOwd(oVPo%.88(43_G,LT&Lttg%A)_&+tO+ZgyFq+GMBQnpjTQ9uãU"q*BOkJugP1.CC'N[)yu*J'S_[UIUgyg+Gn-omS(xh&7WW$pma6RK.P18)+K5'UUkGeãU"L'\CushkdSJf^mnVta-.[0u)No_[O#wEgq%4/eGOzS+Kj,PTGB$)nz4rTy.a&xCãU"_-romA>0mv)ZIt*nNVL.&+Lss%_pznHd,+Xh[6xGI.LM$chP=^CN&F#_[PGVD)RãU"o8u4ECv>e^/1sL)S2bOZ6F#A_kKG#8mL_2QG3>/24\F-WC?VQ+V1^LpB&nU%Np$ãU"Q]x%ORs%+tFuO119^5KLm=HmWqODklf4]Wp?Vqq]oa)c.u99J9m^KFdF8aUJiSKãU"FDGPBp8[8m7bR)EQU7VaLAFd(t/RxZe\=dU:^7%LrM.^>C'J_?T3f8stnOgxOhcãU"oha6N#,N5K$5]Q-[G$_(&w/+RgW9n:u:rCYlMIxY0xrnr0,l#O'UJ(skt#X__ITãU"A>6YG*..VmD/:'+]V1I_^BxV\^8:G2IDu7>nHQG,->P9?md+75-[cOZgrrkv$eHãU"2CE^*stahQQ)_U4sMc4'E3=XiiaR:;_g+j3mD_3qn5TN,B7^zW4EgENj0g4?C,834scs&[xHsZb%6&dS[?MXLnOf]/Kod,cdh2ãU"cpsY'a8ED^4C&V_BA,D?W7tc.Ef<6BB_lq2y&\cB,&jHno9I;>KRlzSSq'I=OCGãU"F#bf[&cE;0d&J\)\+uaX#01:c'aQUr7$x_KRX%in7h8Ao%G)4EQ8^,p$Qo2oU+%ãU"=>uU,W'8'_P.QcOx#99v5LLBY7ntUZC3wT2s<=1cPkVY9ZdWQãU"ix-f82eUrGW>P,%:*(qF%__P(ci*iZ9MbEKjkP0tTCpWJ^fqWsf4dPSEgOW;pkfãU"32GqAvy^+<+mKJNq;o=h1rUC#aqWe_v#j$$7<;tnM[Vvy#eR*UM(EEl#FFYegcLj6,\m)ufwT3V7nãU"*;klYZ(apdE7uPnfkRsi't0Zx3VK$t>V4.0>Xbpy$kj=>I,ecx>-uSW;&*M)<6fãU"c+FVV4fE=9Q(r=$s5jiImcywH7hquzuO$sqp0&l8c']H4U9W:3)]vww[544-=>uãU"msMw?j\XY8^AKv0LFmE*cZNvgIoWCSk*Q2l((m#;XDisy*'a+D,tãU"Db5Rn>WdBXK9^h\&A0Ycw37E5a[OiZGk?%&rtyGxl6&(YkJN(CD:tgr(5)qr,pp(t$77^\ãU"07$_8#%pW2Al5(3$g-t528hUS&vVnu_=IQ?hhEM+dN?wuWX9)c9?3w$QL.wZ?fWãU"lQT'jkASk1?Qv3S'T6gsHht_bjT:xa3d7qY2KT_-+ZyPCeDE:[bFrF\37lE3atFM_7c]x&H[ndQh,(/tB[BE)G1+2YOtPZPt5S#Iq$0DBr-v?ãU"71^X?3HYGiEJ$Oz%/ZcnekQSP'(*Ipk3,YZ:j,Lmst0gsJ,:a$]#5835^zNs,EaãU"R'3(Xaj%a$q1i?d#P1oHM83/A=LLSOgXaPgr1&%/DjfQ-?eiN9Soy$OnrAb^'?OãU"Xi8WAa9b)I3ru'I^oxv:.DmzDeLrOirFyB,OiZpxbh-Z$8.^5>h?l_iTGnBi3*JãU"D5381)iDVvgPJ0Cp04X9^Zl00lU77j$T$72gw3Rqs)#;iY'X:IZ,CcDlK%eAUFOãU"dOmJ]^oH5h^=R>rx8[['&GBy;yPI61gAAAm=$YPbBO1Xf-cN^Ni&wL,/%OV-23:ãU"-MH/WP[3t-^F>\g5PxMs+XZ%5+?.^a?69nRGuD$%/9bVI8ic?ox^RkZ[lEjM193oYJTJ5sNBZk=rq.;37SWVK:rcD/gaeOxS(+8])e)G9FãU"At^7j^ujE('<8Nb_$YO/Ol_pãU"V/jYV8b,tXeySLtW:$Jq>KYL=CnLl<3)i^Y;&xs..uO*6%(#;,,FnBOQXu^bjL?ãU"OP1,Y+]n-$ZQ8n2k3:CcZx,9^iip7PssA6CCMtxu^?*dfk%90(grW]xmlQ+,O:VãU"YdxV/+MQKVa\khuU7PxdVbABRZ3sSUMessJy\^W_V:6i'P6cM2i0\kVtuY#u^AUãU"l3LrrpY^ku#81^#q4Kb8'=IwwIV7CgnO:Qs0,*d\9iAoE(mãU"%z;tBYUss$jpvWx0PS/ySy&,c75+q7i=jRO%AzIhZ'om:%tbdW2L833Tb8-%UMzãU"8?Lrv0CmOJ[F.Lu0_ZOBmk-/eRDO#vIC*-FD,N/#gi:/w<43YI>-kdx*2:QY-_8ãU"bf0&6nndl\]%3N&8,z^^uVT>qj2^x[W\ToW*vgOR8]+$&b:Ls\Os%m%.UZL&o3DãU"G_z)Mxb6M[IF^c-#uk+:.bh4l'g\]+%('l%x[ZFoI/q_Kuba;oofãU"u>CxJVFl;g1Vq74k-%Is,I^mqOLY1_^?a/%3X/nej.Vd#ZãU"h*%2nkIcOC6oVw8-Q_D84r-Kv348#]tS-vU&qC1ãU"HS(JR,T5oujD%)*F,KAB_9O(lz4m1*2kZ&H7,n%[,oumgn2o#e#)DnZ-;OPGOUqãU"0K//JPtIj8PDO,CCd?IIe;%CZ[.F.[32F7KW69F:P7IUX=\3$ãU"&lqTXqf6G]AFCki3GSX^^uNrBJt1jK(Ch&fOoM+a]*P\ãU"8t)k.'N7*4BpH'7LJ_j1Eo/vD9:z-so4&v_CY1V%(3J5/Qnc&,aYpb=M79]?;//ãU"b&)ll*q1;:g.bj*$l$LmO5_?x_fL?wSqo$tuK'$o7l4$Hw\Lc4xl.6i.rOL(tu7ãU"P37?8X.MPNGvQF1^ymU%F&1C3v;XazxwRIGb?GOfHYm2+VLaHAZFF,7&uMJ06f1ãU"\n128kGOeEie\VGT$9G.qdk0VMPE$*9[Ze2YAq[rFo,98aF?N^q*jo$;;'Rzr*JãU"wc;,JeF>6B$C:-Aq>AJFP(i#^R>RqXu+Emq2:2%E,ai/x/m)RQ5O%QDZ65UãU"f%[dG]i^5?Y-vpof$SGU9+Bxo)hhY81^uUcDZ:N)xHV=[+)%wet0./eY_hl\z7cãU"r?$HS'UdK[pqskVk?5$0$1SSkHBLrz%,_<\mp#ãU"l^A7#TjmlfC5f7c=trS:Yt5oR3aHO<-,xãU"r'wqYC(L-sW.5a;n(38p1oNH$NekK?PBFPvaEaPa.m?SVovGu-X75qq/QA-Cqt<ãU"n_dn%3qNR4iHTddh?M+hzFWe?QzQ*g3QeA1?qQ-MtAps4O1hC+a3WldeF;3lp7QãU"_$=>6TgOsPO7N_;2O<4^]VOLB[U1,eQP8OHGx9s%JJIzu]..h;)Vw6E$]Ve0$vHãU"'3i5n(>H)edS4or]VvebBSAT'=+dsf&1#&rvh/mc()];/tqtEin&3iD#);u8jv+vLXXUXx)YV&rBA_dYãU"HX_H=uO*RE/g8PbI$aE'+LkC(ZCF8%sZ0_)CK5b^^P=0/jOãU"^U#Z:Ztfef2vg&+Lx'Qe(8+ta)Yp-,,$kAB[SJ85CbBOQi8jWpPe0ãU"Qr:+]9^H*eqyfRf.*TuR_q#ucfn9#qma6ri.^eA1M>ZJI?GUHETBJãU"ZTbVpzJVOYFAudN;NKEu:kCRep*/#3IU0a,#bp6D5P'2:hP3*TSs6dq?36&lJ$dãU"^SFDA0B2SJwiSEEdQJ:s5Htr1GfUn7Z>ZQd\X+2YC6$r/Muez*'*l9RcJ2;a$0'pnQJo65C\RqJ;wN[Ot?qãU"wM5rbBiC3MIA=\L+R_jB;ifroL9n-RSnl[e+/nNNq1'Fu42B1aJBT=cOy;I7Cka8V\g#1?'.^DPuhj)Eec6t8lA?/nCLV5LR;bom.YPãU"2K&)9SsjZ%+pr)R>DiGo2r0\70]/-PALVb^$[9J*YuwMlNBB1jRL2t^1nmc^^JlãU"_6q;hM3?x.KO($+SS>XH%+nVTV19Yc6aJ_M;_ua+f+2\X*J,Rt,_?U&MdQk2nRnãU"KGn7XRV>B<2ym'T2r2*nmPFobT-781KnJKf]8LpY8b_sYvxQ1Y\oT+QhH*e1-vJãU"P,?bAORMekXt_tux,K_'cpaKsa#J<;0FA%t*s$EN[oFw/a:&d]d56CX:U03/[r%ãU"7h.Rw]m*_X.0:QP&PL'$irjoBX>Oeh_vGãU"B+l[e,m1zoErE-6UxW(vrgk[NU3,qk$N1U.2Ge'p-$fs19krfmgyr5XNkzJvQYdãU"ta]^(KAm[W0gi(Knsk<\'kW=xF(Rw,(>:/t.Qg7v)ãU"W\(Ei0m^^d,1Q4Z)4QpX)QHpQ?gB1x5)HQNK.LQ?2Gu%GH_lJZ0kKm*X#(>dX,<ãU"wrgkKzBs.#&M9ngl(LDH419m*pHG#D,9:5vMrSCT=UCj\PLloH[q9[y,x;qA^t;ãU"C^['=_$<\A\:u/'r.[yjZrwStoqFKUaKL'95S>;=]4JW+^73Q18:uo&-K,Q4C_'ãU"Q6FpPb^;,R'qi.[xs>)dt90sw%cs$\2qMPxDK-1FS]LC7kMoN5,ZXH\S._V%k$7ãU"_NvQlxa04dEs6mq&t9/HRel\Y$)xJyYa7;J1Tdj&n[H5u\dv(l\;+KoIO1s,gI-DTE>xtUsoãU"Cs^Y*wibR\A]fkGK8=9P[4F.,Q#VnYiP[tq4iDOtxMpnr9CsalqI.L5n.0lxA0jãU">_n#$J.j%]O:,uj4VPTae_;giHMa;'/_xXG6q-[jEPt'J\L=tMIsfST,(KPWcwiãU"/qT4wiO1Y&K.aDy_2P#/B89o]EB(:_x^$WHVO&1EeFWboS4of2O//E35:;VF[QB*e8KR_4As.Grs]J);9ãU";aK1B6(q-0q%'*;yngrE-K8#q#p>t%OOg(Ki-RQ5aGq<]4E0jpRex#jHg,=RFvOãU".\.D-O8UãU"k\qNH:=-okc$l-MKc*x?\bJldbtg]xaTlNO.ptDgFaCWr]%IE(U&$afZu3_4B#_ãU"+UZEIH'1D\IeRW#[P[7ma+$ba&A4HhJF+a8_=m-a1'wbOkrof(?2R#7.+M3gE/_:nF8H/ãU"b8]1COT5_v2eZHu_\oWEx8CnWt+IT;::opRNo#=qKgTRS,\iEãU":Yg2%7Z8S'D=c/w5cG:rQVXl_J1[eãU"WChs>Un4^S_=$$Pg,=6x\J(?)nD3B>*Ld#N&ORWvn:jPA5efu[C1FI=1f(8L']qZ.5KAWf;i?3u6CcdeGRJ_f+ãU"V73?>.WX=gWxF0c8YaqJ2/CK00#nG2kIb0mSYZW4$^LD&L>cavBb^)S%ON-GMB1rqzQCu^*\UXfwThf401mu;bqOEZ&LemKAs.iPZs?/)ãU"Mz7SoTãU"Crj2'Jv=ulAO9H[=ãU"x.J2h^v]*.ACMxVF$45ue4mKKS$n[7m/XC<8F%=Qdp)WMhkquZA,n_70:JhS_'RãU"PV(#oOlvVbrliZ.wlsQA=Ge/)YD?Rr_^.s14K#c,v--pA>gy\.w9_ãU"WN.=M:TqfE:*T0DlpC1h+[t-eDM_Pb_#DDC.pblvZj(<8ul.0i#GNB$jR7:UAMUãU"U5rV[kcZ>HKwjjD-lG$Nf+d[XH4t_MUtRXwN^\uMWM3=CU+3^tF1tW9PiD:yZSWãU"V$o]bq<*p.>5Flp.]QE85R?k:$3,f)Th:1-h]q68dRnEr>5YH\H.boVvA-'iB92ãU"=;?wi[%;i-#1XWf+iqFYeog*J8nBNovbDx;jPhE8u#wpC2u:u8ZN?DsXe'oj;t*ãU"7-47[Jt8g8VOBTQ&DgQeEyS_:Bdu9w[b8$9ãU"ZFh#5NceR_n/ps3,=jb?riHYA&+mo;)N6$\>C8omg)GtL50q0%gxF[(z6]C)#>?ãU"]N3P%u+gH(mI:o7;#UGLq7p5gq[R+[V1eeoUC=N^kXwãU"(a1)AWg-t<%Pcuc1nPc2kk'K9_Y\L(^c[44Jebx$s9BqEb:qzWu2/GtFH%.7>N%ãU"kdVhb-Iv)&vg3&rM7G$k,BVXU_L374#?P\tY3X-KãU",?u&8Kf:Rb*VZIgr#9YH((alZlg&26XLH,6q1?wr;S>v:g3KhaLSB$NoR%_?8w,ãU"z*#=BKkl9==urw]/GX(w+^oNRB[=Eb=kfX-*FO:UM6uq$ga(ntEH^n^qJsAZ]14ãU"-=IX>((aV)]a%>?r4qdSPY$>nãU"Oc6E4q,WH=.XN5.83J).2Yx[&*'.0ISL1HyE-.n.Q*cZ*kN8T1^b_Z2[9JDh##gãU"Ad=ti,Ws+%TrtAt*rfHDHw[wtF-]N[ZK*P/oo,_O)%[S05Q#iV=HGolbYd66Bst'YQCvZ5hksh/)pãU"VTb(*('?MZR.]+EIV++VB6kdblf4nn9:nxd$m#K>CLzRErpGKNL&LjIHB'+l-rVãU"BvOMDyFOYHhDa[T8K[h*=/T]>sJ?KãU"KnP9sE\<=fWw)sY,ngfz(gD''ccI-0W4N9TMU\+88N2Pkf+-))t(L_(1a,G?kK6ãU"ZNIL)1qu,1iZ0l?KoeBH*Vu:>$aJCH;Lrv2Yd)WRcF.yFy;gGzVHp6l?YMUuhYPãU"%a2BGA3/n?8.b_0b=otJOgsNnL$^#EBU4-E(sg/J[ziJt#%iFV2.oC_.X4bSol;ãU"pA=JDMPr(uh&31(IYZY9Nh,#st6G*fU,]q5p%/XrFWCZ_/NVZE(%>(['pUu#CXkãU"T4h-g\=ln0ajZZb'kY4^Z3l2\4412CkOpg/,=tu/]ggELjsm,'^Kc8+#_UGe=GlãU"a-R+Bd=Et_&hYwtXz$:k)VGXTri:,(td1uãU"$idlUhzm*Bm^$MUGl90i=<4N,_ZS:dD]neoxo%dS7&S1j>V'JB.;_PebL%1$RE,ãU"K_qCC%WQ(tN.DCq]/)X[aE.:rF9ZPPtME.z]KNg3Z?U<;jX#m$ZZ?4W)ãU"64b'?q*n9Pd]AFLVaPt#-*nd8]djh-4B=3[BJlQj=B?*T1]ãU"$l,P>BUac8<6g/:a+raãU"Bmsr#sF66gbE9)2/&n3%9FhFeM-r^.]$%kV1l-T>b91,#rX[ZPQwmAQ[fNlH&xPãU"EEQ(PH4d8glMMXOuãU"sOAZl:i5jeO%?>vSuInK0o,I^pXg4;N*2VLF8Td<;:_<(Z;_>'/)+C+RxfKQb<+ãU"2shskDHM>>>R1sO%H[Z8A7Y#hNYIYc4if5rh[NRZO8[0Os.gDP^UQDV><<&ãU"el\_[V1cx-B#r0O_nqQd'ljp>wpa,:9vk\WsWIQcieNSmfW3Z137qfu&lPk7(kqNZwH2YH>fngrkgqc($S)/u>cVqI(%p4FULãU"Xy.CkCnZC4;cn3sckaIQw^?kXPERdRmpkb18ba[E(K&+ZXck%W5%o]'%3A>Fck^ãU"0)9w8Sj1e;*MAoO_'bWt_SWk$g/eiO-%McNoES,Dn;/#Yfwf>.6-H5-eãU"795n)A>_m*+HnDd#L*StdAt\=s4GVI]$&mRP#E'P[EjE;7vO6]c)nWI^v=+Y7RbãU"IGaH:3lhJv(5l0%3N6R\2Y)#4iKrig%ceYr;]#>ti[[LcBj4]Jm2m\Z[0K];AFXãU"M_jA?zeakHg/U6-=v,_DX7r2Ws(k]#)ehk/<:a0R-7[dO\tHYX7hymsoV%VD4TDãU"Q4agO?+cacpQ$-B2G?[fDWoIAD8uqvm(Gn$zNenQtZTM/PR;m,BNr4&x&[f-h8v:F&P.XF0]j9oDdNR,9Y^lAeLjF(xãU"n[&jPFxq/o/Rx]V^-h;R0/MeO;>[Es0Uo41YW83o>Yq\yKn)=+.YL*/7fw7RtLWãU"gRRF8v*bfADiS%c=ClpH9OfZ*+^9iy7T:1haD-rUDVE[:Fg?<3$jt0bnA,c:O0%9ãU"<(fIfn);6AMQQnPDG(?^IVz(i4L3V]qMdR.Eb6E-\gnlEk(u*hqB=?Kbm^ãU"Qw_(l%fpUnLSq188HQ2rkzpxm-td(VtZU_^iLX8x5^e^#&r70E7QO0PhN5.XO]cãU"8Nywa0uDPDHSTIX5#ii;NEC'JDuV4.#$dL?t#ldjGSga#E'DOGL-#68Hy-6'M.uãU"f3nx#HaApT>YTr,u4%ONwR/deftXoxCkNER8r3N;x]tXit<[y-(X>ãU"AcVXkq\ztvvkNHk*w^8DUBUfn1+gb(?-p4T>D5V2Vj[jt3R)(ek#W4U_6dY8*kH8%Lm.XzjjZYPnãU"B0dDERvjH6sNtC,*1+NE7hR:)v??QI#q+Fn>)kCiãU"i,Y\nK4.dB#KMbk.hx^]9>^GI6>PLE*2yPn&t^x)sFUz1l8v#:f3V2)O=6H&pNQãU"]1DXmWU?ZB1-Cc3_ãU"?n?Zx#:B9Gq?FQZ03g9L<%8.%lWOãU"dAkFK+L-eK+En$Kr\U21V95*u#Qv2M[B<5teZ]8%Xc:C^=3]Xx=r=64.t.vk)O#ãU"I72vTzfrff,sI)PN+pcexb_s]&dB_UL*dLEmm(NB]u=F)s)]Ao'OcJXsOFL9hB+ãU"o5Uk\;QHPIMYoyEIoc0G[(Y[YFU(2)/u_&KI.wx/]*wa]NjUJtmTCxP=9Mt5F+]ãU"&nhG2j]v08,d]yxQ;>Ehf0[4EaBA.=53w&WP>u$F.H4(dID0sU<.+K[]K?J9?,bãU"H.O_dOZZD&>?QQuXQZ1D2q_%&Jva27KHZ0Js$VC3Ef:ie4U2aaO#]9s;]1rviXuãU"4o%:*s/L=ju-&.JFsKL'i8LbBYxu:'0EnkR]Cn*spãU"8[9mC+t%h=Ekxt)ntHrS=-kNdmJgwau8U.jGTRm):+eBT%tY$RyB:j3b>2==1jxãU"X\?ETgO-n5n*.9GES)V<<+ZG0eu']3^O\b.;og2kxj+9ErP?QC:J5y%o.-ToY99ãU"18>t^(uHZq6hM\Rs8x1\AhkPNuniDrA9j7%+BzVUVQXurKw6fXM(lTbiVPg/7YYãU"[eAzuA55%$/^>)pRO>Ef^DN'-Zn9LLHpxHL='ii14WlK9Mt0'LK;1_GsO05glD1ãU"MW>]xW#l]x9)Mq)]AtBMcM_K]+3Ab98F4]E6VtKt\0ac1Xx<,f2fHu8)unJH#6OãU"P.Cw4'vRcM0krQAwg7jNk=K$(d:\u_xnVV&E+2,tBujj&DI51;,/4E>,xTl2LJl_kSgp%n7J<[BteGmjGtmaYMP*\a\R0jj*d?W=mWãU";F(V&9['k>U,5G>to;Y6H7s>3]bp=SWxhqN<5$SrPj2%gW3VcE+u*ãU"(3BvEJA3jJ.#XSxg'A,u<0(1FOoQ(oHX<W*s=XlLqd2GhZJh#s1ãU"\EVRXZ0ot]A2pu-=$3u*nb6xm\Dl7UZrãU"gWRmX]kr0G%s09fTA5C*k+P:'ZxjL>Zx6&6J8,Bz*pV#yCLo?1^U-hdT2TOA^.3ãU"H'tWblpKOWhZPgdn[6A/l+6x#ZHj0[wqMOKuqO)5mBp+sT6u10p\=;>hcJ=$BA:ãU"BKqd8KtuDm_2qoqyTv_Hb1T?,Wl;4g:RJeL$ãU"VHO32Mqgjd0EuYzPjJG\IKg?j.D\KWOaMa_B7$j.ZqN(>J.kk4sBHeT>kq;m[B9rAIzl_ãU"IMqy(hBA#ngf8H8%Eaz#.ZU;wL^%Hx*mgvK%YDJ(8no9FIHOv]_+C#teo'$xo,&ãU"8cs,+xtQ5Vh>S8&w_#]0I3\UUZ16=lqN^u0KmHP.'4D['$q=uZlCt$U\IW_PX>\ãU"(=RRyXApbHumhr4cxoFj-xO%]qKHr#ONu##;dUP5eOQqARqAWrHX-H8l)azTr0NãU"=hC2<*V/>bzmn\*1#5b:xGg:WWcu9cl/mJ>g75CuG4H[Wh2srJ+[:&yo''H$PL)ãU"wVp7dAcFTi.km.gDmp1:HW4NRw];)I#bW:HmL]iH*kfHj)KKCrEj_834mZy*hVF<>C]A3NYNtOlh=ELY:X*T;qI1jJdWUS]:tu'eYj.'HsHK]#6($5Ytyj-ZvvK]V;?#'&HDC,v1H;(H>yMãU"R4Z\2SX]Y?d?kcSt6C/$;E,D^GEs1*N#/.dpVuWt-JGRaNod1S<%s?a<<69oVJKãU"Ddi-k2#Rca/x5_fnde:_v1^GUWS29=7z1/o=Y_L7AoA2N^Nr7DtO:PTMdL2vyxYãU"DAb6T\k<)$B2T;nfDwsfl4+xi8tr0t98jv07:tl0.<3QBjF'I37<[u?GK2aK>P5luHW/z.ãU"bMjbn*(Rc=h46r-1:S7\ãU"9\f(3:>IwF%eeoaaqe>ecLlhLãU"c5'L/GRC'JNW1>t&u&>\(i?'Twv-:IU8ge$Ay8ms*V#wZ7sHdHYx$kdVc?+ãU"-cT+P]bo#bC9ROd(XO\=iQ$/nN36nãU"_^]3/\UrSCk]npc%dSujqY.lxjrRy;3NRy64Ga9X8UNd?trw6lXh:cg%nMi9dIvPtT8g7-GO$-7e2B>D%_4.%0CãU"sZTV&qp?Mk0i:4-%SQ5LR#u-*uX4),AJi&k2.o?%Q-;nCMy_VNh>p6utVjXhE(tãU"C,fs6kAVD9$O(fH4NomSfl?>oHGt'Zgggb(Dkavi-FQQTãU"R$flUxS.D6Mc&+ZArZ\]<1EHeAXJduHD?Ln?+T4/O0XI:$XP#2dlZI=+hfA\\5fC0mãU"dE>p4fi3GqGGpl/zS,_NXDMHAW40-4=CC>^IF%SsD&C$=eo5In_MFepagU6e=z0ãU"gFfaB]:Ukqb0uybLp_GS:cmO/qR1%=t[SPb$XLP&);FG'TS3TON5-jTUHV,IF%MãU"t8nmrcKmM'+4R8V3NAu27sfqQ2l,46#4E7N&sJo2(I2EK[4mU]]lvnF;_]u%3R6ãU"3bdYP$bsti\zFMY$-Zng%50(XJm3gEdlGNxiMUY'Yd$(.XNa3e+BKD/KRsrVJF:ãU"ye>I(4GIOD)+)aV#'S^oVpA2mE/Q'#UyI]T5DAq;>dWrãU"/u$A3lVb+/7CgEIM=]q&:Gy[7]q7;h;:9Y-S,KCsaxGF1XV%DOpJPj5zJ_w=xWEãU":X#(oZ.U1Ts=78Ny2%E0Utx_E/AY8:,n8W[n+=WehNdw1M:hSs/([4huQQlzEl7ãU",?)YJNnNBY*&q#+woTHlY?e'>K,tA8X?dpipS>pg)6J,yP[f>g>ãU"b*;aJ%Kv$zL9wO.9Xj>(bd[(JnZc(aY-rgy*]d,8Z5=Pp^7n8c9ok*z%;OiRayaãU"cD,xW4F0s6Sr:s4fhO](:V]a&mEM*>s_ZOey1=b=QNwcprm5cWu*bd,lI$E8ãU"0i#3?qLa.Hc(ymta//1IINK0KTPQ4qI5%YrCUH6'I$Eog<6$,.AcQEoowe28D?HãU"8)kF39c]%a-4/SaSoaB)U-9ur,2V6^.-A]z?QAjoc[aFMtuEWO6r_/goRdeh/DpãU"2,W0<,^.I]>6D/1_BWi.av+[$TJ^nG4$.Sn_1n]W#;*IDAm]L.77D8\i:]6Dp(rãU"S68P.mpmCfhy-L-$lcB7.91gl)A[Y6J'MC8+yVu5naLj%'dbz$D?UeK$(U]b9I,:J_6GR$/3crtzEG/i/Tb)akMY045C]dLw+m<0B?LM-iIP:=lSlJdãU"K:LpdoOmF3Xc#?CMrcZsR&y<(/yG?B/VEri&g=j*0tRdynVd=7gekãU"2Pia)3\Ws9JESEAanB=43nGmS3>9.Za$dRp-1=G+e:IcHH=G?JS[7h,t)CRrA]iTBcaDc1^kI,[uP=Z.]K-_.4FAbg<0'-tri6DeT3b2,_n(nãU"h5/\_LSxDcSRm_.phg\jGGnNJHswc+dUaJ+58>r)N6dAvr=cpC*?iZ$rZODWN(eãU"GSv_&4\A^c'KSql7lOSP4(ZEXh><$cV48M1aR88kaD^ts[&3kZNZWM&EoNV'N>.ãU"]VIWc%X3H7W<[Wl:pt%[JKc53be^&r^([27xFrha\LD/\C0#=.ãU"[:.?iIJQoYN[$31ckPdYKdHkz=Uepb17f)k5Dq,paKr_nd4cSd=3R&#s+AooC1Z*dM;,7v0#Tj2,3=0P>v,/wk66+ãU">SC:d/e^<3*icrF6g=yj$YR2RjrhsMx)aXI_;e54xjwM0StD,-[s'V09:#&5lm0ãU"jmf,[u/([sQpfLzfnO;r(nFUAc:cBAkewOxf0eEYqcUR[?tkthk$XSg+%R\S+&tãU"]K&_d[^+P)t-%mirvdV0KAiMoR)T2HHnGTP7.Xeu8=#Gs,61vy,M>[[B&:OO1G4ãU"kAD0M?X;Xkmbl1NWMwQ]=(J(r7):jPRxz$%)(k[Z1a&VcXlW8=0kxt[6<#5V?o=?F[BZu=:gzu6<5K94=1Snd%4qkNn+/V:&ScfE?B8RV^>Vr6&XbtE)IG?4\)'\b:3Qs)PPCNnkVL#1ãU"g2Cm9nzZjn,_a#j=2Y(uiPbM;MjN.y2B/S4[xOr;Y7b6%V?H>CGo_fcãU"r?Wf^,g-Rl)YJi1y;kfHRJql&DCXG9dhEuX];7H(jrEuaWh^=e)Q-s)l\?i-%Q1ãU"ghT0,LxA(,s(PCd<-T,]NAWo],LM9SosVzc+PssNs<&0PBd^[_[$.^']xuvA,)SãU"JlG;wcLx5V95axFEn,6xxouOWbOzaweAnd0XR3OT/5ZwGq>E[kiUA:ZYZgddfmsãU"DIjfA9toE#.:BepV[&q1g85nM^AxSj.hW/MJ-MoS1E\AQ]#jE^]67o]_76n;psFãU"H]2(%SWw=4q$QAMLgV#_sKq8:-PA=P7G*RJYCK,YT0,ãU"oI7<427NTFo$>NtkL:(0+5.I;T+bn1Brh0J;VUt;Kte]\p>g8VRtiYxjM5n5UmpãU"vuf7*Lb8)9ot-i9?ss5E%FHl#sOxljKQdSa'apsL)dXkjjO6HDcjI:R3tiNIL4(y'>LGj8mFaLQ)1Rx%AWCqlLhãU"-WQTAGog8/Wxup;wHtbpVU.-3^]o7&&[jV?DWNv^c#>ME8UoEb[xmkd)2;.9/\nãU"X?a-::9.DgX:+k*TrcH9H4r);BUSj7Od9v1[X];;n0tl03(b/p[_xus=%U5?60pãU"L-[x+3/^AW\XxHfBavx'[s>w>\FyQIr=/evyRR]uj\s$-IavcwL86X$\Gac.yXPãU"'4P*uQ\Q7OLP*c0t4X(x+=f:ctr>u[i6Ih+u_v3Xq1+ZG-1\cw%ZEW^>750n.7<ãU"cR0*d-:ZrmI2gCO[4)X'NsVN#XT$fNCUfTNbT1GUe]u3XHs07VSfEAWU;kqCCVPãU"G6T=l#JG>U$Xg,'k^c-lfU7V(W+ãU"a2%A%Cg537yapp4%nAlXE1btd_&;4pEW$79Q16r9J-M%MppkgZBI1so4\g7snfOãU"kEMgD]Jhtn[desVWoCXAtPN\j)SU^D[lF8J\$H>u44XAh)r8McRGO3/7X5rw8aXãU"gFmuHTix0Qkh#X+[x7R<+pPNKz6r/'3^]oA)?2QE^NC?U?^NQ1#;q7_&c?p%#qnãU"P2O%Q9<,#UM\hEF$eVj0BOWHag:.RxQ\>p]AO<^qV.x^Cr^;9U8fK$\2jvNOE$,mgkJaKwu6\8v]cpD6*x?d'ZãU";$GU#fEvSHbbPy*l^jNQ9Zba<(CO\GMCLD]]^.ejIH3vRqFMf*^c7omgKrz.p_NGv/:gãU"?[QSndU.m4Yd]CfbyrT&#je-PG+\Bh?Y[VNDuzgpNshO,ruM.ZbyMAciY760(u\ãU"XOEZKpoqH2kqH(vUqn8FUbsoh##x$snPBK$3,ll-rTM56R9ES':P7#f,zpRS>?#=Rxt\sdu[ãU"i1oiNKq#d+5VGOgTRjb<^2#gv4U3VbO=D9F4W8L_jo<\jVrprl>SL3'g.M&mwS.ãU"vXg[Mo2PEYGf&YAGZ*=DWcj2q3N1IX79R0JBBOF*f'Vp#O0kR^ZR]-JLN\VDCXnOZTRdFxY*Ee.hjB)[yBSYgZ,OC\A_bG0UWPQ'kQ4T7Ps9ãU"Y5bU+Vv?[]hAr:)&_>3L#O&JAc#4\g;.88r/xY($0>DTVCWsviZn-jwsC8HP^sax>&98FgWW[y<*ffQ.#%(%^&Fi3O.n0PNv.^:d^Fu$8ãU".8LZpWDqCq#]elFv0)3(b[&gA-qTdb\v)G6V\v)&DF3Ks)#N8*Oq_ne^n)6(4JFãU"q2oplN9]sZeTbj7Oa/=qJ]f;q,?An9bWP0t-3/DW7+7mzUd#&qZ)$sl_2s8ai.WãU"6q+9x?2#u02&)N;)z\25>:?ZZ(tq*Fa(i(NHd7w6b8u=.Z$JiiH'[Tg8_T>]GSWãU"2JjX>_a(Jl(1Bh3Ff]<0Wg+=-uKX*2xd?Z62[JV+3&XE&tW+&?qdflsS6*gimykãU"3D_$u-QvAbt*Hhwaay/f=k<&8Z#Mn5hJ4ph:uh7mo2u2:6PF=SLiQ?RV.yNPePvãU"WzW0d#\E=U&DCdr_N,>vit2c#WgUA-wLjq6Y/3UI'Xpq,.JmAO/4p(SJtsu:gUPãU"U4>1D]Bu<[U+^%xoSzW'^p/Q=u(><.e+O29&'ADq(471w4Q'(k(4D>&Y\23W+h.SsNlnRvDI++MKi7E/NI&a^hpES$;tVhYe]ãU"xO-Vkgp0uWG(/;Y0>52q2*C(SQ8QR^zg_KR$<_9nN3bi;p3Sk'jQ2prDC8Sjzw#ãU">ZQ0#WL87q,ny1?mX7godsksp:'(tuytfwdDC:>z%_enMd,[i\j80Z3k*3(up/vãU"B[#1UTzVm#IlUNdFcnJzA*,i*9/2.D_KmXuCl8PJ*E9tO>72T?=ftA2#'ZK+L.lãU"kN,1DZckL:[_^BW+E[Zq'Z3Z5<)V\=O_/0]t'xEb6+w&Tix'J>fiGvzN0bjYXckOmdE%S$ãU";nV$VA$#f=Xb:8rW9NbA;KW_,MnIJbxQ90L)8*AZ3E,3R.F3PfW223m^3H3NbDeãU"-vEtp8oCK?'?]+NQ([FmuJSX$]mW8*_pni:/xKZ]D]LvCwUN)JalsccspnilQ]B_lE:LãU"b7P$O2rVKcu=)5^7nfGCOo-&gcGL1nGt;:--XY^P2Hs^0F>L2tm&I5A7dB%_D.xãU"N6\0fIFZqUPtKJmT2-[orRUk4Q.KSLa\(-adU2eg%Z4O7T2D%vW?+a>[RG?]a$_-,s30RR>*D(=c?sS\nIKkZ1\Wi^mBCg^pE&T)gF:/GYFQv3*-*G.IeeuO[Fv8f0DSgT-DoPT$miQk2^jm4qO%hmtO&'T^<8ezY&kYqãU"TK*8wO%qOZM-MFZ4$q)bGrqXfIZd=O^C]hyw0;d]I(8-EWywK1_LCu%(H#l>jp<ãU"*$?,>k/1nJ]*(;DBsj7JE*L^JE27^U.F4$Dd&_FM91tU8T09VgCqw'-=x%/x-ZN_.MMoelhI0u7=gãU"4Nu9n^*[[&]F&kmVPVm:e\=;'Ml*1g'?qnokNv3&9EX$yHU]Qc['#1Pn\VDKbP&ãU"TzUUj+iV,rN0/c7g/T:VY$E3)bMR58AR38.g^.O33I7[=wt3ZYl[\hxAJp6R$mxãU"jRq>o1NlJ2DCG(d[LM6qhI/FMJcRlb5=*zw[xxTP
Ec+ZVdTGebEF-Oo=9f5.ãU"ZRS3OWmYenD6=oKL:Wb=0Ju6PGn>^(BQVX>*4b,*:'8U^'%yr]EEe;RJ5Db0H'dSNNmNr,TpN]c2l&nDãU"MJly\0pQc'L00V=^nO,VJ*KuDZ/c2,(4#r^VfoBJv\#m'EaZRL_YjãU"_rKS/%RRfUS0.S[o;^5gNptA*T3a-vAz0;EJ2)vBWH5Sw3xx:4&I]2wkbD._a)zMPX$Ju^Y2&L;:*ãU"%u5%Y)96YN\;IT?&+B2o5CwozvV23<-CBr#YfQQKb:J-nFT?O0>iOtEfDs#ASBGãU"RWxE[Yj?_kFseW.O:]nRWPO$F''kmS#unBfY3K.,ZBHnVXD$dw6E:.:cA%mt]CDãU"f47^3pV.Sd8dbhS^U+z$Um[4S,L&m2aun9jãU"JovFtbd\np^,s77S+5h#TpcAI,B2_N2&JG2WZjF4rHCWp_z5MH0(Ms]lC4:J,\6KMdl/J1PF[af=b.;CLnT82RthqI$D4ZZ<3L0ãU"Q\5)^r*jJF3g=RTtWk-,<5mMPd8crihD^3BwecAs&rU._C[fFDLxt?>]U+tQw:Q4?,nTM4S:q$YG*u0FDw88hQr[G,8ãU"jWH-.UV&KMdKsO)7VL9q6G^SQ_Y]Kkwpbd$KOs6PZ+QcU'^qV_cUiYeQO8R:WnqãU"5Kgg%&ãU">Xd.4\ETG>'VGz$^9%vh9=,Udn/[9kEY6cKV0uLx.V+KWãU"g#_VYLq8_Ua*#g'mgTUqUOCãU"mfjAPXFOmol#x=(L)vT;af.lKq4t-u.Jb(0xLGNyJAs4L(B'(9W&G]S?1EHayESãU"/;=o4#$h#U^y^=;=hYO6ho?K7b\.?mCiv)uPa7H0Oz[kX)pYH_m*wJN8JD=dlZ0ãU"aXF35RV$&h3pD==r[N_<_^u_uVpQ0rtVgdUYKDnnlri6BeGKK*O(uWJ]v8O&JulãU"j\AGg7W1+AAt$TuAti>EB=lYLeefZ\6_]9smU^fZ0RPm:n.KK+M)L-]0i23(7OOs.BgEQdiCãU"'6qDpI,5t8:SL%9.+NM_:3Y%HjoK3qDq#]V7G(Jn8>WRry9_#ol2Q;4O5D:%4ZYu?pU(e2%L;4fwIJ1mnoj%ãU"RUIY3llC]Lt'64r(xgO#Ve?QCT(Ia_7+>-Ujfq$HsZ6n[5TZ+tx8slBv_+;.uUkãU"W'M7n3'Bk.Q_Tta[[8et)b.ud?*bX#cLePXnIWQ0)1_jX8bWouOA-55YUSF=>K&ãU"aF8:O=8nZdTC/vTg)+Z?O+%NV-Yv*efm8\'*BU69lJ0n3U%N[[[T,CkfãU"BG0m4C'y'M:3En,$j\D(r50]'5F*TOmw?[\g0UP*FUcec7lqn.pQe'xSXKRb/GEãU"NeKULsbrbiO&-,CM>[3;*BF+19\YeidPh?p>kd?#uX#m,)\3a/-xTDQrEDAT0K%ãU"U6u_(Ag6.4slL\/vhRB_RQ0SF6ãU"XP2UdNF2S3TxSu1Ha69p\lo_VnY8rXe,V4dad-A['S>442tvh<1eHGn_)k>GYwJãU"i$1dVP:ptgDy'_D*:v3pP'dl>76Cs'rP:Yc#8EFnpVk6OMF/YnQIiVbn/>+)C.pãU"ar=Lr2p3elzxBn.G2WuHGR/5>SpsIk558k;O(Yoc6XUObINm(\t(_+L'H2[_oOXãU"O&fT8s9Y00II43eom)o(kVLW=^s6pDf=uleOnwlJ$g^'MH9l^KslKQIVIOQ-uULãU"5QMTN1+TV]fKH(Q?OIKy:'8a9nBvXsd?xp:b5LJ77ZUUH-k2xbS,4vrk?8gBhN*ãU"zrw\Na-S*c5g%%sK1l=K-X[b-4k$L3OmOC3.d:>D_3A#n1:l8;I0c)-S$fj]n=7ãU"YV1PWMZoEbHZPDP5-HrG5e=LjEKs;9n9qaqj6pTGL.7U#aTC486weEcJu&wM?)xãU"LI%5C1hS45$WFmt]rn=Ldk?^mqXW&*'1\FKhaBubSY0lT1EBdN[vo[ãU"\X$ll1wPd)r>=rGLT(pL0F=kRb\N==X$Pd.#0vz+cs+sP_n6+^WUMofHj>Vi1LaãU"[A1e(_2.N,Rnu(+W&qDVQDM5D$Twdrelj?j#>fIlm[^,(GHO%KB_vUs%Ff4tUq1ãU"=,xfvtJ7=fY'kHOASp0$FX)%m'aF.vedkj5#UR:$;ak<>je::>1U8l?jxb;[dJLM%].ud153k38DWn\\woTF&GVIT-v+V&IS11M2+Jb'K9ãU"YW0Kx6l.kRM9^jokHn#\MFln.Komil%Q$\9B;uCqOEoXerP'^#\Mse,gmQ?tqP\ãU"P^r0VC/rl5?sNT8W\D2xQW.mS7Pt3ptKF1$I5rk0>v?r0]8AcriZBP]jDN\Yja1ãU"[eeL9F8=Z*<,aK#7tQ8uHjV#N&r]p:37t5n'dX+ZGv<0yUeX-K&>$dWYh7u'k(\ãU"ihFcwBPXrw_[o)i2iNE>)+tHu)9SSJY?.E3UegvKIR>dJ^dt,sqnXrIFJ:qaAaYãU"&_r%oYB5f[Y\)F+tuB3H22GElm-peu^T$g(u+C(Wg4c?u^vqSpNj=p_7H'ZfU=,?Y\SO1,2CA4DlQq\.x5]:nãU"5RAnG?Ai?SZBALvBlxhCaClk^Glt+0NV]44)]\MM-hW1kxKg+'Z)SSwãU"X_juBIFD?wqLtgdlQ'uhA9(G&-E*&m&L=4GBUT3_^V)=fkPX8Yg=tfãU"=MGM]R^B7hoX.01I4pl301NIUD]*DN0t2#'Ex]].)5#p9,vQaWZVIF&ZWsD^i$wNBQ%8L%TãU"eD'z.FOtYN$OFO1l+6ffwy#qNmi,zixAZ\:=?x)eP^hp,iãU"+ro2BrR$Xr9^>U/9Mp8QHllg,]&&$r^Z4QarUH^0Z8P)-&)euk-1c^WU#r(NR'HãU">/FM0VUP\nP=v#4a*ntLX)4]\$UIgN?=dãU"Dt6KPAX&jN*',[>]Ub-_9=11a2_2icE;Uk):]v?wqcZbWlxN_su2.3S-Kk3iZcZãEND SUBãSUB VDãU"^*b&5OF>3h;+(+0>k9R/I(]UbM_=BiB3Q2?N#xpjr$Ci)';\n)el&#B6kpPWQY*ãU"lmP=0lKrqPaj5EkWh*auWg<;s-S6tNPH\GA<'Vs?fu^qAcuf1Jb]a6p(TZ>U^$MãU"tFFnd>]#%qqAw'49',ZtKq-++,guxnnImiuZPP]rC,7DO>l>l<%+65;#+4bAa6JãU"E(/S$1bIãU"WUp>T7^-Yf(Y.IP,*wsjt4^Q0z,mb.#SI6NHn[],b3FIW.T0bPk,-Wr^?ker*]hROJ?1R'qV4iEswai/uQM]QC3Wm;w(vX=tt%Oto-'ãU"Dj(J*;NsKSo#''f'M=qEXTrl1as8oelUe7XbT(Tp6p$?_\KãU"h/9leGIaJãU"Q&(Kt'hTQd>,+4d[bhsn&<)KtU1CqEW+W49;BT%X7dI.jZT+fT>44UP7d$&'BheãU"cADB-3CTqn+WPZ%-y:V'AyNTm$^4?C^9Xss';i=G<-t-D<(.g[RQQ[[E_dugPFpãU"w-vwulkvVp\Z3scstT$mE3D-sZJIZ>6;*D*bxVXG)OHx**c$0qnf,bhT,YrKlxLãU"'qF1Kj<[DC'O;j+cBE+sZVxAEXZVT3*f(tn0e94[bR/Ns6(Gl#tZE0'E2$AdG#?ãU"PZug&awtMxEL(?Rn,UAud0BrfK^(hGFfM*$WL>?rm;K2ãU"5$^(Hr]Cq1N[S7Ok.qZ/DKmKDTDLD%ufcLdrtLtYnFgk:tj=biq_M\muQ:\PHt[ãU"v6Z/fiM$OFWNlv^KrJ3)dwLv99o'p,5k6%$$?#5_p,yFQQ.vOB;GRHER>6+0'Zx$q&qNcGe4T3PccQP*?\2\v<_uAb,KUd\=mB)Y2?>quoA=#y0k3YI26F6kVdPe%QãU"gcY.+lT2(YgaGjB$auRZ=\]);Avmabdi,]myjEpV+==AM8?',Lv:8*WTQ?-MexKr91uhaXGS<ãU"\;r&)XJcWP%#lqC&B&Fr)gRdu[J%pM0'*PK#Tlz,JCoeN;QinSgR1CP9PiA9)B%ãU"b1]*ZbB$QC3mM;u/8B^Rn'i_/t_WcE_=-Pi1FtZ1Vc;^M//%s.;a/;9$uJtH0N6ãU"9W,Yfsts)gJo]>stHfJnud+[m[suhjHj6[-07y6tbf0QF>&AId,K[4ãU"O&*3j$RSs%.i5Gy+6l_C&$BQ;4V-0XgZvZ?+aSgXB->/y_Z?9cC&a91:mYR6)7]ãU"$#ktDq&d=lVN=(,uFO9et#=H-d/9Auyu5M-etoUMmbAEfU4.$X*tlQ,Bj/-kIV+ãU"_hJ$/D##XEj9D1TN%-5npc6X;rVtj'b<-1P+MFW_l?Y1xT-aqS9IwWJMYVsok.xãU"pk'E/6hh#?%f1rr21awgnGU,2p%[Da1Ic;S\3H:4VX<['Dw6:=1J;c3>b7zwLJ_ãU"?%XO2G5nSZWVd-,sTkcHk&Gmt2fJS,;Nbz^w-b$;(uG;8.U2Q/pmpDM[,9+YNv;l+/v5<[,D^NB<<ãU"b/<=n*Y3>4xPH)^9G,dhRMYlC0*HS-'[jf\)kKd1f^o4EaX-:9'e^]L=(>C*qV_+,b.'ãU"Ra;&Zcf-.:5hgcr3P,%09\q9$-wiUL+u5mi\]eKqG-Sbn)E,,ehPpV[25'w3Q8IãU"f>Gh_)wDG^J'bQ6J3q<^=>'H6)ãU">qrt\'5Ag3%m3s5kOXy[/?m+P3f,?GTJMScC#9=P.(BOl-1*9,S[;0.TcU8(m;[gOW4vPC$hO>ck\1tãU"/$K'-9gxQU:EyH2nMJ9IP=S9AzHtO=CoqN,CkOj8UP9ãU"'kmj&$knLl/U8d/ExaKe91(aEK]00C%4*37gL/eqL/cQc4JU#'K]k$_WJ'j/)olãU":K40S3XQ041w;3q1..ni9=2'm]yi^MrQFfk/EKG'3R1K3sOTLZX*6=LAuEOpkQ9pLãU"KBi\J=nw>6oX1?XNx6,uB)LRE;a_(b^o^CLCE,q50MU3dl##gt?W\O=)eEj>]8dãU"bp'kr#rANoDpc%,F4;Y*d8j#-u6:lI0]ZR8GOR>sMOU_>f[8OIHW:lZB,6tm7O5i/GyRUPEãU":WXj(h$pNc#d,9&Ngl2O]vx1#:.3KR)RLbInA/GJ7^07_$o5nN'V]I5m#I8s.:]ãU"PAO8Owi<3eGk.f0M[[wjl5lwhF(al2$'RseDb'\KF%;US__[RY==r^/AthNJ&xYãU"v[G1nXiC-g0Ov9ig3O6%C9ie9v*Oz>fp8cU]txVGs5a.bKuxH]SFi*T=LiAMxC4ãU"VHpFjA>rsFtYv'P8m3aBG$AXrEo%;$j+q=L)=J'5%?HKndXS*X-g^K8C'xDYf2UãU";#='O<1tUE]qSaM9EuVo4Xjc8j[uZ*anxB13,So?zIx1$3_oGl=Lgu1+1eH]x]fãU"-Esc#35*n%Z7mjT2itXT#e;YQ%tm.6-Y:Uj[5BxXZuwnx\B'KkdM8%,aexQN=V9ãU"[)IubPm=a5gVqeiFgJR8Wb':6o\m5g9Fb*W)o?_8\r)ãU"tI'$%F=YZpi(G#RNU:_BB4\_>;qj>Ex):36oun=3hD]t;O3QQE_vKy<=S*-iEltãU"i*e:(g%z-ewP7Ya$6LxRm^S]h1%xb$q3fyRy'm=_j=Wtv]L(kX#\eCZy$?M]CGhsHlEãU"SEll?ymx&txnGXbxSRF-J5U+ãU"-6#6$NjJkNUDN)m(Y>(HNK^u\c:)/'el6$InH2c$K3b#XFgU_[agJnyX(>u3_)ãU"'cD;%o$H*/F+2'd\TSRap=B-hrNglIA8NY^'>hvE\y)+_1\k3H]8Uu3X(TãU"R#$I%nSbS&ouI%q+Z]:)q0D;WoU^qe3W6qmrJKmay'<885L6j5:o>V#%DR8q1#aãU"RmjccD%lvN\o#_0c)O<0ZnqIu7X=k:xwWa*[1-8P/8.Pj=.BPfY#n7[[i_5L+.\ãU"a>g,.ZINy>mQgAbF1gDNtiUGHnezF5PA\#\-A*g_Kqg6==Q4G;rJAO[ok8?bZ>+ãU"wwTnrc8f3x-HxsVo&HO_X7;Tu;fEãU"(mG'xt]r86*4p+3T(E%L*e[uw=s+cpZdF09tJ%lXtKlX77^eX\g12'2623r8$C>ãU"'aa6;.7X1ubfk#bd>8J'ldQ6vn+;kU-5AFxp1,Q#m:2)i[XQ;[ksi&(bbg:.EhuãU"8lbY'dY6*,x7mtLwzGqUS^PWl1:5gYI$8Yh&&;3b=(=u6mpCc=&ri*9)Sv0<8b<ãU"[EQ0cF<6a2GNp^ZJ9e:0dqLZ[A5V(]CO_Xeg*90#NK985MI4b4,qaMn;u'BCh5=ãU"x\/Mo+SeC4ni;l/(]<#[w+n\gq7lCX)3Irndlfit>LpHbd(M)yB4Zi35Df7w'Uf1]gI:\ve&T[[P/3yUKrR-#&\Oo#K+\k'n=dr0TTdIQiIRfKVãU"cB_.2*6-I_;RdWg9WjrN6<'(HEQP^P\+F-ZxmPsKdhiaY/1&Bf[)Cm4&)WL+K$unhqh1,zW8LEnJk2Ee9R%zZFAY2QAV=_QA\?b;V(Y4o\\Yn'uE>QLPJiwãU"4yZhe5I&2O2?]gffrGXAe3]n#Axb?oOiP>k7G/L[n^*>tãU"l<:[yo'URJ5Y]<=qBpaz5thypJe*UtZD>0:1BJ:+&\CL\srbpk.Y:35;zI#:W5^ãU"hV,Cl3#Ms5=d/>]vce(F30K5uc)o;/fI&$0U-ds1Q0T/$XhZViXLBt,j8H3V^-<ãU"fa;%TQ+ocnIjzn>?EfjeiY)wRXB^d[Mrt,^*<+xw**>(R;+,>v>VRj1L\'aFguAãU"u+vn&Tvst4KxJW8yAi2a(K2.1Lak1&?Q5LD-(\UU+I&j]3:L0fO/C,+xav6O0r8ãU"f.&IK99.Y6m<\r.n0>bdi4-Jf*FN$XOevZcH=G7KaU*+ss_%o9+.Y6D=9I:_qx*ãU"PmZ6j<:BX5L?p3GJ];kclaaT>Zk9uz]6\V3twWsa^&?H7ohc^9^c_.3kLQSlxKMãU"\ckp>KBq^kG=*uIKNr&F:S,NYKv.f_^,fxK9L7*C;w78^Bk,t-3O6sj=SVxH<*Xd7[rkOhZ>#vZB:w,zhUjk8cwcna?d^TGZ555hY-<ãU"?R78BqKI=Hd7m\L>9LRWs:+OtO[VlT7]o1pY1>5/-PYqdiim_]t8LPRS8npU-5TãU"to>:n*cV+:*#Y85U\5Jhy1//pj&BwsD\#Y15f5dqKu[nT*D?w(sOLwT)I)Gl'F0i\87)1Jc\nyV&PjsHt&ãU"gt]==unL.^s/=NQu=%/ksg1G5/^c4Q\y$iYtcCoU^#$12[.ad1:&fi:Ak:8Y]0#$FãU"4X)[/pXvb;5kC7i*e]q^0Ub4Moj&%*G*76bg:(3#u(Dr%I/=h%WC,.oV7q-K6+JãU".kGY;>'cz(pqoVLtTP^*Y&P5.g%*M(.QVYOT?Rho1W9.8io\)I'no&gVC./fk*vãU".qgR\DS[qvgcFW<.846mOa-0H1?6mcz->[1tWR0x^p$M7aHB/Dy>Cuws*^&LpGSãU"LZR'WeCI()P1P0q._,[FC>G'b=H,o2K5*NLXj^DW&R6eu(Dt2ud&P9Pepyj2_i.ãU"_$>Tu;b$e'j^3cdLhF6Ul)M4F][&ãU"[WR48bXX0NoQ^c&J,cpVTtpUhRBdusUVvhUPztIsycOA2%Lim3kp>'6.B$e)%]4rf&:r8R?l0=pEb8$pY15vaSnD*o$X24ãU"C]S,bl2EZDsV,6Z\D0Z$9mW(n=fI-3#8u+8&flV;Ftqf6E4H3dpJ=LbiXMal\3TãU"vK6M+K7iUB3X7#nfmWWrV.j;3u2J/g66q+Cs%,Oa';BcH>q7T2x;Rqq7J8tUmI>ãU"eST(hdAO8e+Im76)Gk[(YZJN]RjJSc#]g1n6$NIjsW]$*kI8D<,-eoensãU"R8iGcC,P:U./NqJt8Mj5#*SaPZ#vYMP31Ps73WvYMXFyQ;L4LGj/w+pWKqIfZ$VãU",78pq0oZ^?E]Cg.FN/tvfS-S41<1KZ'9Nt9'7F)Uf,c$A\oM=[-OCeCTYPQOQb$ãU"w&i=3l8_dwy'#lbd9W079n=l_xe'3_iL73ektnYqa0tG41Tzj<7K5tsA>rcU6'XãU"'MV&y54:69./q[qe184Pa?s/Zu(h$?APz+b.A^DqMO>l'm6hnsMR[2,Y>:Zm*7qãU"chQfb\*_x]&/_;PMg2gOtV(,LOV?o/i/LC-s,euwKWoI\c4,qPd#;#_vpx\Zc/3f?13KsvQPJ6TãU"4bT4;7/KWry^dP]q3ABrb#oOt/4XNKwa'#'kO,+vTi8(=X5d3DzE89jx,KCls._ãU"adLqgCr^a._MLiibfKcJ/l.n8#7wãU"3%>0Fm2hH>8x*9VE[Cym69.g/fQpt;2Yd7)?3tZkqkyYz-t4s;+>m\HRqãU"*$:.ez&bX4KCB4W481qnOuIr=ndK^rN[6%WTM2-*.Q]+]=z.S=*P>Jn#p2Z(ScoãU"JMSPs8SfC+FKhnD>?UaWmh#G?P(ju?h$_h^C&TGpRCW03xTfj$IYzUTLmLzhwawãU"Xl$.yu,Ol*2zr1GU:5uh09r-K9ypGEeB#YzRMT%jjJjKYBo.q:QT#'jkvZL+bvuãU"^X3Vf3-cfRR;BM,28zeMk=06cnãU"j1kU+Ii=36MdgDCGXEiUj(0Cz)W4o>vdQFLudZpQDY1S[]??UIP,-BL7.=BwBaqãU"z2=^.PfIP.QtbcnD=B.qGJ\kOSt&I6ad-FDufM^.wZzI#s,$9o&SE]X,ll4eX$nãU"OtJ4e4qFF6Eubd]L7;p90^>wW66AK2O1UD*Q130hyf(3Dp6me-nSk%roRJ82#PHãU"g5yRqTgk]9]i;s<0HtFr7b.kMQFcD[P]P1f;qX,GWqME[Y=l&CB7rNZGx&/qT5QãU"8r$m/-2H$o&k%A-fT(K5D'XbyuQ6SWQF+?9\WNTDB+AB$lSnyMf7hE[=))7d(,9ãU"m)FjUvBW-'Tj2z0YQU*<+vo$mNj2IFUGr&Z?ZFE(1m5&Dp=7R1$2d_L2JZPe[d9ãU"8D8MAn2$]or+\nRQh''ãU"/4hx_P_Z:^YHDCat47p'K2;K^Y[rK8-RW$eIqHfT6lw<\Rj[-ZU2*5jQkAqqD9*ãU"3l3MGVnNz<562C2kO>d][7QSPZP.WPQ\+J;wF,)/JxoETT0,oa/S>XãU"0gG?'oke=$7%MO-mrC^C62*L#5Hfc#NsxHaZg/nD>E26y=ãU"c[k7?hY]oA4sQ]J:RP5_9h7ESGqR>PGVJ64LEs6bPQ3ck2,2mt_s\S]%\HIs,%S6e<_i,U&'tg&/LIhhV$4V#6YWH,C7)iãU"6Z2FD8k=RmhR&LIQG0*=Yj(egP#Q3(.Z7)8(ad?<8?f+H-a_,?t$;=cG:6j?NSKãU"($owdIn:gHbKshN$#UL&&(9Dr(C3R[-e225a%VD'Sy*/f,(esVJa3X3JH4HJhd^ãU"ZUjI#xb81DPPoBLk)0NKW[-4-t'aDCmW=2nNtZb7)=4r&v>il1]-3Hh4l=bkx4eãU")n7=Yg>ZFUx:2OdsvJQu^Mu6xxBNiuN$8'xDup%&'9%%9%%%%-%o;(6I%%(ce%%%.%%%%%%%%%%%E%#%%t#%%%xh.fq(S%lãU"nxu%p&'9%%9%%%%-%,$,&GVX;Zv0#v%%m&<%%1%%%%%%%%%%%%E%%:%Vd%%%xpnãU"%xqtu%jSln%xup&%'9%9%%%%-+%VZ34JbI];xr6%%%p%&%%0%%%%%%%%%%%E%%%ãU"%7%b&%r%syfn%sxSl%nfup%*+%%%%%+%%+%y&m%%Ws%&%%%ãEND SUBãV2ãV3ãV4ãV5ãV6ãV7ãV8ãV9ãVAãVBãVCãVDãCLOSE:IF S=155AND 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ãAndrew S. Gibson GRAVITY INFLUXOR ARCHIVE [3/3] zapf_dingbat@juno.com 11-04-98 (06:12) QB, PDS 1940128185 GF_3.BAS ' Gravity Influxor Archive [3 of 3]ãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"GF_3.ZIP",4^6:Z&=95968:?STRING$(50,177);ãU"%up()%9%%%.-%3]m6J'R8(q957%%we%%%1%%%%Xi%lnfu%qwSgRfxf*Mf2Pw8A[:?7/ttKHA0_&$P49)[XBg+Y<'GXHN/6E.r1Kw\3P;Z569Z;aGzf3I&\[,o1Cg)iãU"9(/Wbv+G13PB?g:9V^M+[d+'/u1W7.^F';AIS%8u4Ci?f:-$XvNZ/KMx:oX1.*Af(s:ãU"9ewv8/,)N?Q8hR8b8(#j22&W'pY+(g7dUuU6c,L8&L402xp)rBgKbda^=DKH4&yãU"cs[7*R,,2DGI'q1L\$Ev7[Qp>4dL:8DQ(N&^Yc_vc?Yo(M1W8U?G^sH/Z%Z:W%nãU"^MRJ.%NHcDrwzb(j)VK_]Bvg>&W=PN5XãU"n:-Lr3semD3q1J;rPor.2>Nb%bf,RUrdH9Zbm]Z*OjbeW4-\IYCY,u;MPj)B\x(ãU"5sHJONPvI$\Jp#nmR)fc^P,9ysUhQOV2_ws2mdP3O7P&Pkswi_3&g;uLPbJSZA9ãU"f>r]EoQM4?Q]2um4brQ=o#EWska*09ZQk.byx(=hnd1*7De\_<+jLGX'2$7&%mvãU"M&hxqr$klMSo6+dPuMqB,+;CQIA+fU3-pW^\:6]6=sbpQ*ESPSTG]w[<%n$%4V^0EN:iai)T36O#UhCãU"OmrG1[I4&5p?.OOL\Z*(H;eni[n5+5/\7mD%XImhD4CIybz7TQoVAx\.xdãU"\,sw#mmOu.h$ph*tO3dO6IYx_Aju^*oOOdI>3Zx#xt+zfscLwY(J-_k%VVB2(tHãU"x&d>tm,NWmWDJAV&11&g(QNbbHBQ]lmQZxr3Ba4S>&wG_.*xt&n#ãU"jWEYw0*K8?;[N)$J:pAgYf],z\lFUX#26W'pd'O3lY4(oF1r+efhq&hU].nE93-ãU"&-SxKOyZemdRMro\kG2F(h61oJãU"1E-BSkSVh5v$'Ujd_nDN/+e]p/mPrlf2k&s#rhZMCsha?b\ok;vaT-Jd2]#JOs$ãU"JHoO:f^DiEmr8$,+hcSj6J^Gmh32mJ#.WM,CwvMK'AfI0al6CNRoC+DEpDfA+A/ãU"8Hxc)1J.Qen&gB)2)qk82k:Ew$qP1r$>.*ei$8jc5E'w2*P6ndw8Xz#ESViiYjWf%-XX%D,NZI=,/&vãU")pYaD2xD20tKW49B(;a1dBL-z;lu9gx2P(4r\J^M\pu7,YSt(%NZnQ6X./85+JMc5(CRnQa>);$Og2fãU"'%uQXR$.al]([<(/mg*RQ0tYbV=%Ph,33(21AB?Y\?<+sC9v=w5FB*(5TA>U>qO]fBL/\*^VT(_bs9*ãU"R/'V#?iEX,o9:LOXUkW-'oj:wWS3*>v#dFm)B?JS4d$f2W+_?KU)bRp(E0i>b\BãU"bC6DlO$1;Wa/-akQ>MrwF+w\A[AVC.Q]P7Ls8eVI*K:'YX8tI6A+$8kGa27s5u:ãU"Qj:?w_V56.Nf[UfA$Iy2Ue;+s$eRuJ*-,cu_xwuK2EK']+#Tm>P,-jE)?eF9*vJhbFd47*G&2gtbXOnd.-]+C2#h32^#jaj.Cc=k\X63UD4]ph6.6O&VHuY<%ãU"=:o*A26Iui#XLsS,cwaP%'dvb+;1=gg$*YPqel%:oOpo'5)&ZA9Gk/OLh07N>&gãU"*M]f2gKVgk=Ubn'pA^pa)6iSVv[5Xxo[<8x?DD.kR45i+_7\<_AO1:g$oLc]G/XãU"VYzW\tr>F4R-6t\J2=LtE=rFTT,%H(axw4l2#9?I;eRh+HTRQ&ãU"Q1=Hz0h]qZ+8W#,<\abbahxvP8F/m>St=.T7q(tj?IEY[%42u8GZBJm-H.9h69BãU"\jt7>pblSnr>Tri0]9m3B5FC]*[jNZftp'DE+Tb]jUA44+PEdlduA2x9:Aa6N+tãU".=+/DKc;e,eLF-((c-eeu,uFOz[I4=jX]?S)Sthl\9iQ,*ban8N0jE6ShaTki#pkk(JC^:s&\;rXo*qBxmHQjvY4ct=]a7,>I+X.wãU"Vw=Gx4Pc64_SXk(2i%q>aP8VLrRG)#bvG,M%Un_7rF%ZK.8h-0:?><;;gcA1[NwãU"0#2RHnfq.w^1l[V5IajG/2B2a=zaMjV?;>;kg[q0J#G5A+105)&4-_=Jt;uT0/-ãU";b.>u=j3)=#hR$Xj2(TSk<^g*qz4f7-:lT$Fcg4[c'RhW.Z?Ef*tSt6i65$NoHGãU"SPlFuq.6)F:'WhNW*>p0WQb0sy)2-45&yGYj_s\RK7EYb*hoQq#o;>_V5tX0__jãU"kzMWBssJ&?0Gm$mr2=_^+XS$VNucEnIuVlwCwpDThcLsãU"%jSNL<-nt6UWn7fra\2kNaBk2fG&*GNNHpuuqG,ffb?F-d<7*G4dQb=(\VV'AzEo$eR_XRac?A^7HsXI6wfj_h6yS_=jp6Nqw369-bU>'3?_9mSqJ&2w[KB?Gx)lvj'MWpoEXk,-b,fA09FãU"UA%2w8oQH+D/l4PC,PvkEBg4stK>+)&wD0G/8w+yC68ua/^*RY_DARCMIIG+==lãU"_Y_nA\&$A$*PN:y+1^sDa_]E^[vei.;t,:VV<(coq?T*O-IDzSBB]XAR,1cjyl[ãU"lxL5IW,0n+PgRY=gv(_\2bKWãU"5nbTaP:sJ2$smasgkt+j_RP0j'<&989<0AA?TS;G(ad5$>.W\+MtkZZ\ws9jIbuãU"(t$=yj1gz-/V&1rq#+m-:83O^5Nuf?B_bE3^^L)0BIN:5Q=hP.2Ue<;ZYl'xC%>ãU"CN,o<4#T9>Ff\F4PYf3e_Ds]+.OrL)EE;ANHSV:)GLE0C6ZUT:E=[5,hQFFfSNWãU"o8MR+fUf1Uu(U=8=h\sN#QhBv]:SBWFGFSuh9u:5i?IIcLHjs-^XXpf]3tu429aãU"_2\,UbqBs(GSbcB6?5DV9EvXZYR%r?Q_MJ^7qnZ/kHV?ãU";s*3iy[\=<*eFl\78RZ918t/VLh4\([UgXfG6eL2[J_=\P+Fi>[I7o%i\A1)h&(ãU"PRG#ZM=ZlOK2%jYTCZT-N]/o04Q##^[\Xjv2cBox+=Y7pU9p*ut7Sq'fH'7vE9?ãU"Db/ZxS,n8vjjpCF*ZTe[k/&S:dKM&yO$B_:D>K<-RM.qS)&%HRRcWWOrq_71FnSãU"c?WwP:h,7]f\;SjPgOo>AXO'6T=5hIUA'9LV%0^j1dp.C;2;%TAUh*D;#ter0SYãU"DhRuzKnUDxUs^eGLVR&V-)&NVbulBs0u0xd6G,Y*VNRm>)\%]Ztu6vHi3#F#%%*;2%%%.%%%%Xiln%xSgfaxfbtGB[]b$8vOxIh4jl/ãU"S#a.S_LtwFGYqw^FP'_N.DDD7/;YBY2,+lj1t>V1dG9b2[3jlt57tg$7ypN[3EpãU"VN&%FzuVVK/tlTG/qZ+5=uS3hw*>[,:3Nj075sE.xteIA04-?a7CaãU")C+T3[^5Z7.pL#P]mPUinuXrf:b,/gqf5?j0Ocrv.)lh,WV_1L\>1l0&mt(WJvAãU"963K6-5cl_q$XcjZw(^]4W]fHTo7N.Us+5>Q>$#-=]UVL7pAC&lF&kws]1WplUhãU"QLH#lv6%he0]QZJgFFzKi#+-M..&C(h\\y6HFe_M>x(LWG-luoszvsJ)hBu\SH?ãU"INa,6GK9Dek//kQV,DZBHDZh\]0YcCNiM:vXM9vv?G[ft-*5SsU3jb>FqR0er+cãU"UWW\vJ(eUbD0R06]JNV'3G=>?d$$Qq8%e>fjYIo[h'a\s=\rf1*(\vLMH10UClW:>iZsgeC5NhPcdHmc)?7\5dhILFãU"JjOILIS(:WãU"tY*^Vlw/08\7cW-Jpl[dAbi;vU:KL3^bX(/)?[dd_tvc6GR-YIppK;c'l7P[gkVãU"Bvb%7,Tl^.]Uc0#877=mG;g3ppvwDu-*LB_Dq&lO$L_#I..;<7j84#Q7?]G(8k[ãU"YxSvb3RGzL/koN#i*i\KQw.%R;:mkbW/[BXe03P9]A)w%Punz%xp/q'f2p*VLlIãU"0Dkj]1-khk%z069N)%mZ39r%;ãU"X'R8eijWg0v5:E2-0v?'YI^Nnf://('(b8DuYjc5F72oQYLql*r)(ydo.,rob?SQ+-I-VW%sYT2u=D#V+iaK+eTN:6ãU"bid2#FF$;,P?uvq-_yw$[Oc0?n=<\wvObX$eLãU"0ZeZ21)EXa84F50-5-;+GuSH9,#sP+0vzV'sDUvK4v#<1v#,q]>4?1]VM^.6fH8ãU"VaNxUt]18v&?4::vZf+%KaCVDV^hB%3pwiUD5YkW^^12e?n:')%r74Sk2=W^TEaãU"z^4Ml_ifk$9ãU"eoD[rgTsbw4ucw+FQ64M>fxs*jr+<64qM&X>lI5;$rg=Q1h.5uwUT)]I(l-;xl*;xCQ0W%0EBãU"UrV)(S^pqj'+UhlfEa[],VY/8_rJzYPH_\69YjY*B\U=J$mXas\CXVP+[eV.L32ãU"gG1Vnm%H=Jm5^yO\keu*0*1lKN.eMm+c2yWf6K.Y5Ie5g&5UBAsRIN1$6I#nz(8ãU"r$:IM3BQ>f$Nna/b\uG[d6K*$>tv;L'KR-/U.R*\uxM.]C7G7W;.B5]M>v..uPES*AQW0_Dnda/2ãU"PG[.([p_0(:8*aLmh-CgHh+%eh(4=='_4t4kA;\-R(?f2zWTI*'^KBM)l0t_t=cãU"/+PRF0HnSFG#Rz5Gt[>XK:28Sr%sX5FMW]V'3.#.B6L&h4wo%q';0;nE%vGu(6SãU"VqWI1]fRsakc&<6IRcr%=v^Ppv5>(cHR92ZBu;;lTA+:Iv/.Xy_^.I&9U$kUv[GãU"9_Q'W1oE.,m9rWo^rXI[)QwQd;=sQ)2*-cJ&Nvm9CH]nH0QkKDs5.kbY9gOGcmbãU"bcAchVeYUiqS_d:CFlq12pd[/IV4Xx?4>>C3N0w9xr[DWoeOG8rI:9zzWN^%e^3ãU"+Vm%)+n%gI'Qd)$85k4V_L:+f3ãU"s5Va7]Vxa44.LCLdzZIL>rJ3'L3A.pB#%0NFPAZgeDtXW?c[MH$>6n7e17\op['$)ttYgu1)'=9_J'R+X;+d*jWsJ92sG/:8kspniOQ\B/QaIc1;78hPp#WAaK:HwJ3<ãU"2#58RKRmV*Tf+eM+'F>,UY4)8;K>hSJDm_DS62MBC\O9w^vUgN1-k86dQ[<=g^KãU"F;wTd1pk9bfW,1ifKUJUBvnpfp.-BPMrF+idt4,aPULj?e&mj)S9;_CyeXYe*0SãU"?6uMUl2,Wal?P<&Q/3C\O&ePrQ2gIb9Hl'EwQMj5C.Cc8#CIPR[1E/p7IiJJ..X5[M0(fãU"'&hP1/1W]F&3xTEu7ZW$)F1Xk1X?UDKgBG?(c^ibrPFPb25RGOXE/8v=.PBw$4oãU"meCj09HlC7vgVj0*TuJYll8Qiq:V5/)y^HRGiH?B\zcLE7=o_No39f2YXPVvXHCãU"VLR2e\b_LZUXdLj=jmn8ex:qPQwD*HZ63#:lT7tC'Y6+_k\BYLW(s1n9=bfdA=/f>sJ74ZZdX9[DBFUI&+5CS:mH1GUqV,U<,.oG;$;wdvqRysc.-$uFqswj-S9c>;Z5v15jc?yE]L+AWY0e?Z2.t(VXfAJ(g:]ãU"pd+aAXl_4G0.$+OL6=BJs0/mZ(6hah'_#ix_jR#_nQ2&kkvH$W>Wh1H(E&MI?]YãU")N\F4m#AArRv8;28(vQ1XgFd(Sd7*M?G[N_?z([*\SjF^$[Ek?w?,F7%PPq[I[$ãU"0usE#R+j6QA%g,.9Z7+56?ãU";Y/[5G?.nAFL2SK/R&-rgjEbuljA:-*;]S+Q>KJ_rgQ4BojRH$YmBO,P,A^qw(oãU"f]9\K3gQz;emFti^arq5m]b[k.%C?e1:cp1'E(Ft(H$<8oAlX[hMW(aMM>GC5)/ãU"$O$oyc8b92s#83_uSR)zI&6Gm+b&_9P>^tT'TJsiZ-<8'l?5Xu/I(mn8c%Pd11,z#MZ))gocD0=\q(z[R:B?pPnERb;CsUL3LnU/T%)Rq/?.AmnE^-ZB9g:arufIil?$_sX6NãU"RQIJ[I\]E0Y+*&WqV1Tg?CEJ,]vF2qXhOT-h%8eVVi+YGASfL7iTqM-ZãU"Vd+ic)Kjq;T,W=LA%,+OD/L7K:.[_zUGBkztaKFx93S8(p-N.f:,U^CQ#4(zxj/ãU"<$LMV2bMep$u-+bYc,68w]+oJM:\(5\vWi5h6;2RE_/Y[xG=G_Bg4XL7K44([?_ãU"&dkt\=l*i:]kQIgqnGGLIUsxrY;)eyh5aiS74>Mn)N>WX[;H2Tmyn6\bN#8+9clãU"?W&;DQ[WLQ::^[g[n/8Qk*Qu-s6aJN*Ue1yI:KHMB[Aq\>8YF:iY=rGN2MAM;Z;ãU"-2J\iR&JWJOfZ_WLypu?;VEIjdIPkuB-Fzg(KXEq'K(%85^sAãU"DgXk2\(zp\M.w-XnZ549>%U=2_Kp,)&lmX0E?5296rlM2P-Cm[2ZvKq(?3dv4DrãU"RHKsvCmX,ABk/]?M1OTpLi.BoR;>J[g(LW.Qe3oUn*c8sFNzFLlKW^awXebd2T;ãU"ASJSQoYIDW9?P\j8\dfbM/t;>sEHVdp_0WWAFCEl63)f\qlV_Yd0YVi%xziK636ãU"*1l7u52*&zGROz=:s3+osNMznpol(Y*F8tYNTnazo*AB*u1YGXbEA&uWFCP7XmXãU"tM5BCkK3wmv>_Q?JEUhJtCIl1JGle7w,^V,&I58Tf_0rDRr1_^/+y.:0SOWDdwzãU"GD7,kYFvZya1.)xLe^cZVUsqNvPb%Km9'h#eSp\gYJaP+M)D.p(SkS#pF.56DLGãU"UK+MlmmeO#)1%+vp+QUk.s]Uarm#FoK7HLvV>/UPm+I<0\?Q3q(&cm#a'vZDiqyãU">_#.+O]pjG>+6AVW2oxY6B.\qu'f=]ez1bd]xWq7CS3W5,hh[Vi2ef],QwPK]P\ãU"W2f78b([Xqct2f0AZ\dVaKY2Hv;Pv2&&)TaPtH;Q8PoGoi_>w*WNdMS>1iPHa-T3fdw$6l/nIoJr97AZ;]5qm30MEgYPiY\W70CãU"Mrs%3;eNCUp#p0M0p93QW1Mi4tdY7UxEF)a)NanL2P_3E?0s]qJUG%Y1PHBu7-&ãU"1+S+W?q>IUAZxf9#J=$,vCmZ/kPEJV>lMx_U.?tE88'n)ãU"WQtqes2tENtDW;(>KXOC](ot+9Wtuq3J\lT^KkTct_a/k'X7H17fCaU%AFZI,JsãU">#+,IKk;]TzTiOo*y#71\nz%qc=THe_jfeh)a3q80ni#5o6HDqto8?;$Y*]c0CKãEND SUBãSUB V2ãU"qzcq=r\_Z9BPW*;mWIneBI-.<14]94:*7QY-G14KeHeghãU"4Vi*atBUlfeZ3l>u[H2s(slCE\M.6.\VFPJ6JBN'Gst2lW=(B$U\HPDA%WFc\QgãU"GBcCHyP2015Dq*y(AtCux'5.)y1A3/k-SD;^/$6NGfE8DLAK)OTR00[ZSb2ao/IãU"&%NK]&C=jJ\M.ATx]iqYr[\X2c6-n,$'']9-Sw/9py%,rQPc*/R61HvN;)I&k#)ãU"_K;&lGxR6QiM=%YMy1tJnJ^vx[pz,(^$b?x.&F?S=&g3\ztItixlPc,.L_42-?*&trt-go]G'48ãU"FtRS,>0EKaS[*^$GX\$EãU"'o?9:T72RkzY%dPuy0$Zl<:7l:,$,xPtsb:i;)kGETPKI7tBFSUQp4>1[c6lg^vãU"(=cOurLt*sWk15WMuILPN:&LsI/4PwGs(]'dpvvS]2B]=*+V62V)YfcDmOHGc%_LcX8$z?%6-1]B^kirãU"AVWG2_sL0Ne/%u#0XhCi35m1SiEU[Um)$/ONJHKGWj3_qeo>4<-pK%UlIW;D\HnãU"o//6gg7v3^vXd/PHkQnexBl+Vq5t)X[=.#G37:=&;#dfb]]]%B0/QF2w1fgWRliãU"4NIX]6Tsy1;_Z5lG#15c2YF*z^,s(hs#]E1ppJn'$u.Gp88a3_UZn^ct3MS&O[#A#v&Su0s>ZkY'7ANwGt<8gkM5-SED9tãU"1;;xZkx+%up()%9%%%%-%gY&MG9678pX\hFjKpt>m;R*YL?H/HT8mb4]ãU"BZi0Hc*Uo2.:i6w7f-G>^(aVG_T?K.>Qeo-6ms/C]/_yyR7%naãU"V$m^^B1E^&eKT,>[7.k#,Wv7i0l8XnV^q$A+cjVtg>Mufd8ãU".3oH^Y6N1i]1x>?Lb%5)qgrx[WMAedD.#-dd-\&.gWS9M/C5oiWON7%)aB&kOW^ãU"\WR97LEu?dYD5WZS]]UArN9ou%r:\r$H7D9n(eD>gS[kDteOB6dCG1Q]QL(fBãU"J_tc+5A/)ZgrBUs3\Jmc#9KUu%7)t2->J:I+^HA8rNQB/P:2r(;Eh12Bl#k3M.)ãU"e3V.,H.Z7UMD)moyW%X.5y8-zN0.H;v:=OVN6r\0(Pqzww?t2Gl5_839faH8QDrãU"0jCk_H%(&sem'O[+M=v7>a%a$AmCpXK37\W^]cKsX*Oe7ks,o(x(#_4?X_AvWolPn5l6snIbãU";n:v=A.LD7]3%*P1SNHJ[]iyluq#;MG-(y-]\l8Y1#[$:*vh^;zQx&d)Q5v,*daa8ãU"Q3p5HWxyPbpmtO;U.Mu=&]Xef^k_8gt*M6UXKNm+z_x#G.9xa(X%IKkfMa8x7AXWENKxF<9k&hOp&'tM+H_O,)mgsG1ofj0pWxtG[R(3uãU"n]h$6N=#&>VB4N?U.F$[PyW3o+y%D8*?eeOOOGSM6*8_/Is%'ld%t/vxG3JCXC=ãU"&^EE3snZ_,=zI>5eiCxl-7$UQko:JoVzb6KqyIkcF('ffY%V?rB#OQm'5xdvWApãU"xIQsZKft%fD$tzlUs1%J+?T]B3)6sv[BOC[Qt52ToKQoKGDZxwr1c*q+Wk^8QTpãU"sydd&^PB$N8MAn6Oo)?M#ãU"V7YJ*mk4k>(GNUWcSYBOZYvtp9x\l?].hcVPdXãU"SpuVZ\?MpcYsãU"rHV\ZGLMb*QEK_g.BO86xM\ts$xQvt)W3$lj,]83KI;;mWD$7'8,s)s&&8?PpGMãU"z?(.#TPo9V\Z0e9)r%#V:S-,VL8WLIHPin2Js^'Yl,-Z\M*bIe))l75vi:S8$b2ãU"m;nXZo$^%;Tw?CfRLz#[]AM#e%):N$.(D*_0Z87BcXG'&sP_]sfhTk0gS>7AKsrãU"gvMvgdD=lM*B9m?W4f8h4\jBW$x;wjev1x=or>uLmYsK).mr;UX?r.=o)uF.Wf#ãU";lfXzb-o0Wn9mCnW'9PP\GLjpkZ7iCvmE)h=&Nup(%ãU")9%%#%-%UCC5JDgWTr'#7%%]%$%%1%%%%j&%mwj%xlnS[gfxNh*JBSuA+xXFzw3ãU",)k;1V(]I'w(An7mJO7-IolB3zA*W*xQ_m(]Re>v8LbgXIOeY3PR*Hp37JOYãU"L^.Zpm5);rb?8%dL%tf/XY\RHk=MisPBb7ls]t6?G_bBrSzn?I8bIJWEiOpd]5ZãU"G:8XQQbIXIVb/=int)u2p1;IHXyAv?X.qLXVhY\TtFqM(Op1FO&D2?c6'\c8G&Mf6.S5&PRPF-,.oB=C)--f&-5WnL[OIuRãU"m.:tj2h5gãU"UULhz,pOj#4OoAq4'>ASB^Cd'4I,8#<4Anunkri4=$4Mi1A3Z-%o:_nH>n4A#tmif+1NGWWUcvcae>EdN;hãU"X^^3)b#=fF9EaG702.3Cb6=1h(0qu(6S(KQE>_(V=FBU9sl=tDljU4:c1_D:DxIãU"BhU/RXjpVbl.388gjYigT+(Oju\#%lGW[IjTeP\6:#5N*JK3>OdnE?msalR#_XF%.PrbrhLn^W9709S8Bv#f?S'F>1V8e3P]ãU"^qh(&t8qvoOY#:Y2*#O]c97o(Y(pg-eYLS(;F&d\5kT:0[zr6PC$GNh>Qq/Xlq)ãU"wTcGj*$7kQX_eb>j^P)aC/qGuf[ds7/c&\Q)TK.N'=_VpZ_un0<3'DOb)]+2]bZfW=wãU"%7a4ZZ_zG*l.6Htn80cC)nSmLI/($rK'xx2?A3aK%P2^'YS\v%Xhs#-%VeYNS2'ãU"\ZZLqgals8,dm0UsTzmZ0'\<*;-EBe+Cb_t9[G6(%yRX'Q)3Vj4$%g8t]xMCRDMãU"oLueugop:%1jyUl1\\k^Ku0gyF=&pnIGVblqO^quEjJTMc:1YwFadãU"_pWpqCz5:%-t^hMT/BBRa-[y2(?OIxac0gEGv1z9?/tdp5pE$?F,4nao&I]Ni4RãU"QHBAZG&A#el7&,q[:92'[q6>mS9.Ch'ua^\k$M#9>:.x9'oxv#$1k7M4SRvTI#-ãU"udWF>ps#RLjmvxB]r=^S=>P'WhpDYNb0]rR8.#WV*SFG/8$r>ua0r?r*WU.x+OOYx,07Wz)uJCz?XNqAL8Z1;6ãU"O?8Yur;/C/zSPK.iPYsccn+B[K^]HQSB\7e#W2wq#aetwãU"M;vse&+WBvS2bKuML/E8zC*BB^*n(1YW1La=NPUg)N\+:k_:l#=IpaaPDy1GsOOãU"M1P2bB+LPVR$mWd?=Gaq^HW9$xb)kTkp$lYkwO#?zl27*22v;aRZ]3_ãU"ie/?GR2F7RFt*F1ZSH>_kt9Xd8V97YY^\31q8O<>W;B2415wx)W^[vxHLpg*UCLãU"qnuJ=nc^uVNt>6$HMQoZQYl+^Ysm/1Uc&jryzPE%oaP0OAvQnU)hhq/,x3:Fr&fãU"-:$dsu&+lO+Xjy,K8x]-6$tk_iqU8p]z^vk10+(AW5Je7BlCJBkq)XEeGCBR.?&ãU"9tgw)Sn8\L3s8ZkPjcL3h8_,rG/9>gx&/uU3ekesDb2EBI>cb;^01z.]6#f0)EKãU"B(+eYf%_U$7ADUCNXQFAKfV>^AH$xuUP897#KhXm[)HoP7pY&dãU"kP?lL*I$=3cZ2]%6Q(&5us\cM.l9Q#BP5\u&#KVC3;F#1i+.tuC1;$6C2UdNI%_ãU"'8Se.1de#_0NN>,UZqr\R_f:*b;U22fgQd*ix7AbPlBJ,d[gU<#a48%t2E6R#S3LãU"[o4.3ehj_WlC?Ra&HhR>C2Vb]3JT%xSOCmNBf,6/?xk'\--EOx4vAH/9p>tx>g*ãU"sx&jk&B'tIecE.s4v/1RcRfbh\hXgJWCQ+&R]]#*cx)pIZrK6]Ei49bWQ$EHFb6ãU":HDa.b(10SntnW(?$u^+T]jwn-qP=a*WYvOk5x2cMxr#5gag;l_a'XWAtt&I$+tãU"j*H?3Ks#,A*(9TDsFR_NMd)3vV;y5ZPY_?TB327OdKg26Bl_5Z0e\/ad?9Lu:qIãU"ldp.,q5]X>Ga*Yg]AmijGejDWsN:ãU"kaTE.MhJH//xKYYeZG*fgb$yk#xGj=&o#+h>NE3aSnIi-95&4m%vtXf.bk7#*.3L*XBdIoLF?i/n0rbX8QsW/'f/s&TVkBãU"g3c9W]k'MgR'8Qju:2nEJ]ãU"jFD;^wTQ$%CR&rjEHj($-mxW#dSJE[L%5V,6SvE[.R(gHP#Ux5AX9ZTD+#M0&a+ãU"-07#;VeLQ;Lf?fs1\o/+U5CS[N:kAz#bkdV.eeqARw/;q53.xPfm-YB$3-*$4>e&D,>P^]i?F><[\9AxLmN[1t.3Zz%3PfnãU"RfqA([E89Nr^_wxUoP5gl-NpwZ(xRQptdpl5DKQxk$(ãU"JvHBMXOXKpuR+CWXTwMpC>hRh7uxjWJ&c\['sMXVusRM=s-xT[Y]E4+Cw&F#lcxãU"T-N-q7Ngp-):&f+WVT&M?BOWLY1[c\Z&=MFxL$28jB0(NNFa^&Mf,nHsPtYn$LWãU"LYsRQu-qySkA<.D3e9InNIpaa:n'CZoVmM\VL+xL.9TGZ-[S4$h,-*kB<]/QU=3ãU"3%Nlzni$KuNDJ)P=e8e:Y'1SJrV6SCj&;rIJ?F[.63*)3:$H.Yq;e%%?Wep.N.vãU"j-g,HCd;c*/D2f\wK8Q/H9vIxC.9+ywkuBq>8VQ2tVRln_^XNc?h;bEb:=3XW[DãU"*/ziE%7+zGSzv,-R]hg,VL/fU:aK_3SfO.gtTL\WmB+OWtc#GUi*aBkC0#A2u_AãU";f1'q:<6b-L_RzL3Q&*yz+MLIHGVHBD+<.,Xbau3e.sQZ:XPW&&GX5HFS%FRiScrpK=tsq5Iqs?]#1HLWi+zG)Dn-cPcZs#ãU";DokT5D+pRYs03,6%'gRcEãU"GT0EDzR[cOP.W+zsBx;*\MD3EnC?ChNQFQX:.LW3JqLQ6Bo&R5PHFov9)jo[cZpãU"2AK>5J7xvQpfbOfX_EG,CAL^?p9K,H]1qy?XãU"Om'&c#D^khx&6usLL4>CO0KE'gC7GP>_O_5I3HO5dO9]5xISQMzWzdcc?rCCIs0ãU"TtG#%)4dCavRL5KE8zlTRICiI(N]wV$GrC.UNT\Z*>*0%g_k+S()bD;IrG5,qdsãU"v1-#Vo3q(G^+O+^H8QNn6/(Wtw-eW.VcVcJt9'#(y_T2RRJz7>0CH'tlG7;N_0IãU"Net&B)0M^-p?0h%3hV^jH1W[i%?.ypo?vB)+n^bGCu:P+NY^U[e-_3i?GoW]b$'ãU"6v[w[mm[d\mmdD1a<%VgaJphSN/:^0SXgt[h\/rDMfG_W#Vo;4lnP54R_*C_*g0p#fMNb()Fk?V]WI$[W3IQ;4ui&?NWãU"*quo(diQ7FXR]2^?dLN4Sh\+<>h3l0hXQ*=_pv3#ãU"MT)'R>O7%\X$13,i%=adF_pQ&mJ>62LD4.Mm-\UVQ:nIdS??r9[+M7ie>s(w*LtãU"8FZwDV1-2C^5K6s8fo+DG-[JdHOonLJn$p+.hH+m0\sXC,7LAw]CdF4lMM$fLVOãU"cb#U4hs'KU-5L73GkvO]nqq'e'hA5W4&IP?,$Df$(&8SYAGG(8>CQSWMfsDuH,KãU"(l^o8KZ7Ns*q5l#>,6]Bfo'aTa-[P6a[\fa;L6,]cY._Wb_/ãU"37Ol4T3l,<2r)0XoiMT6HxuMnS/T]mP_(3mBs5W8Jde,Go6dQbsrM(gLqljfNnqãU"B)N,TTr#XIg;=]L77i*gm_3i/_Sn=rt=,5Sl:fI,ru26SXRgYM0vZ$8=x?Oj]/9ãU"w*G\g,s?Qw-Ps3I.pcJ*3QOR(MS(2Ly/[q[a(8Ro8B)J5d=gJUom[7XuVqB\q:<ãU"0tyUbkHbgS&[MbT#$a?5j&pal[KAE>F2ãU"BC$0,M$++t3XBh22H_cQOen&UKsjuO5w(.]DDi.VRBj97#bD(]]PTHu3fue>kP;ãU"/W2BEu?I7*;)VDMv0SuS#.xXWbpO7Dc1>Lf$z.)0Dv^X&bpJo#voiihdofN-.&Xsmu=AM,VLfSiXsMQRI2B=q:NbjR[28eK8ofADg8GSZ0f/BymL]4sFaIQI*PHk\;U8P4GAq%K^A>D&ãU"-v:3P#rC-+etOiZr2tltjie#)mD,55/xT2+//beAP4ERtqb(72W.km5h-&+yAOAãU"fqQGjoprdnA./.-+MY?QYEg^9OM>=Tm>$5s=^-S-s^#s(sKnf2h_cAV>2<:GW2HãU"xhM.GE-XZT;=Oo&:Clb\U[s(N9;XaHjTZcS\^&6=(a<-=w$fWXTF7u9%>]Bl+C\ãU"iNRsh_%;R^0ec._(5q>ksYXj%6WSh0=\Yk.]_qFu)+G^ãU"%*\#*6AJ]lV>rY]Mhy0w))rn6r%mK3'7$&oDF-Q[.MUGgTs^JZGWW%[d?sp85P#ãU"$G\kzw9&.WDqDVJ)Z'cA*0#T7r3B?(8;H:^l4JqJ+C%YWy>[NAD_7sEEA-$oSXaZ0]E[.BlwU=So3+O4ehãU"RR<(Jp$TS:H00E9uey&0uCQPKpn,jNPh*P]KMMY0.OV*]YLL*>#E4vv'(^alyJwãU"xOWB_dZ666YX2nIKETQ0,;NKkY_U%57SDvd>BiRb4L%fI3ãU"tTE%(eo8y1ZHEG5<8,;/Q8cH_T(dURy0>dQN=LfcTsmT/ea7QSF_xED(G:;66fjãU"&p1&joa-#4bDonce*$2_%'JoncfdC&1xc&tIN5A9#i_*OO1y%X[j=nvp8;&3_cNãU"ld\#^-Pi]:5=mb(<=eD*53JukZtqa]7TQj3*Vg?4ZsqqwpXS#:HMah(+29>i^9.ãU"EZ^B]0,YnY5A,KMD3Cl$*^qFsr)Lp_0KdUxv;$m#,$aksE7$OOSKp=RJ\a9-.ujãU"y8T7OVIr$,nczUc5iaVVESHT0N-\0qK=lE7c4M$>ãU"gRce4V2p8+zjOq+X;yw.tLv9AZPqOPYDAf?(UjTB[kquLASMjrJk\%u[\;kzZ1wãU"soPpNb%U6]En7MG-wS']kSS,XiSGbJb58GfS3lF0Wh*DAD)K))RKqrB.ZW,IkA&ãU"0^dg$)V]J;>FE(u:xW'P4[d\_FaQ3QPQ*=Lw&Y&YHdV)E1dODGt#^akt2aql_inUzVW5C.]c)KkGa5FãU":KC-Wark))*dN-0c\2kDHeg:fp1MPr0FlpnJ%d+(3f./nCUBab5vJa+?m4WPXdqãU"7MGNWI37#l.;v7+2$W%s:i:0:K>O^3lU]3Uq33M,:*j7bTDF54+v1X+lSqJ1mO5ãU"Isb&.C=1<;C2oWjJp5w$Lt%$dddmcG/'G4T4K9nc5EaA;z,kHJSB%yD&jZfqa-.ãU"4$NX3TwH(J-%S2jd_$1wJM0K8>l8U4)qsTo]njG%1^G(dH%_'oNlsx.IZH/pJ^6iFw.Y6aK0imge&CNka]mhgãU"miK+6Reh+7:x5s]?n2j5Vem^T/8An_2o#F)5Y%dc<#N5rh,-(ez.8k^^T.plN)[ãU"Hi>(53M5Dh]KYdVZ;MIq5k3pPtaK+F1Xd$VZ,gpF#PQ4fBaL+F1;JH0G[#xq2ãU"K$lv5Kkq$H7zUrq]k::)[f](SAppPln_RGY;)f?Rc9q]$DãU"pIb(7M9WaU9L0CKvO]k-vnon&c0pnCdT'=M9dA4XzXGXYz.D>ZvObMCK&[78F&cãU"7W5l2j5wiEc7z7?ZXGiP:6$7Z(KkZVPZ2>AyF[x/7MUb2xe1zeG9'pN^)Y(epu/ãU"W;d;bo'?4B3lZ0mJ'PH1dbLR9e>uKMlUw*T8m'-,ãEND SUBãSUB V3ãU"MpjTE-LP4eR\0fEWOla5YpVGKuYO$'u(.8_=_[x9*1BMYeRhPTEBI-?:$hp(Yf8ãU"kX=[qx*%up()%9%%%.-%jfS9JXp,-poJI%%2N%%%/%%%%ln#skq'.Sy'yNfL(F]ãU"T];_X$HZN4e^pBGFDo1=L.]yh&^1Dq]y5.*^;bb&6/GF1.4Yu^&sBN38lNW-qg*ãU"m3C*eo]paqUAlyQQf9*?PEh-e1ZJd]ddlNRTQ?dt'z1^BãU"1Y3s;1HUF1H3fngdNmb0u>]?cZ/:7dj8:;r+wW>rJ30*Z$scrr<+ni?4aHVSP%.ãU"m;TU3N+(FPB23IuV&Fdmo<3KuCna>/xSceQX+AF-LeL^gMBz'i=Pm1Y^\.*mcAPãU"Dhtnt7myGh'Qe&SQL_d:aHDC-z;uTCO=vFnb&S/Nogt4+)dT$rxGYmAj[ob<$\BãU"Jo2[usa1#N\47P<;RdU=dLq;M>e(W%$+'u%C8gQud8qJkx4tEvjfWGI[o&/Bx&GãU"TPxX+hdhY(Cy&k+=Od9as'4\xPpkMi5OiBH/+JC_hjPPa/2Puupn94ãU"DQ^c#$4:qFy(/tnãU"j:+Eb.3b7FV:kVLek=D<8?PCJoKI_VlF[LYx>7NBuHRK.fq(tCGXop>7*SAIv7CãU"<6WA1'/0u2*Vw^JfK#9[Fba1q9b^2c7)Q+PP84M]UJrS&l[;#]c^K\Dc_j-FXb_ãU"?Wu#(kWRRPR,(jAtCi+l.ar1(cXx7%2IxYzD.[ZXqK&ONPJfyms=j-NeJt4Q,F,ãU"1Ah=;iAia:CPIG/nu:k1a.%F#)ki=KWFfJz0'<3[quOtLSSOpc+ce58J76,v'qqãU"%1tjt2*MhazZLw6fL:DX.Fd9?N+IO[Nv\fS.1*dEY9xy*9;[rK)#u[qKl*\gOTzi0dw6zenYjV1a++98;0o1CmxM.1^OLVa%ãU"QDy)d[d)(&JIIU;ON.SqyoLYmkiZgue01*TV\4,uT]l2?%9uEGjP3eV&wph;)%6ãU"UrZE.*9q3%o=1aQHgwH.5L3AS\cpV^6rIT-7]#ks:#kbVxCP%P'FC+mscpUw+aFãU"8Wo_QHDK2Fx,RL0wC,897VYJHX&4>2>vul*t%X/O%9tI;5\IEpz=%.-s4+52Wq6ãU"?u#($qip0'j?I3'q6BSV_]t/+c8lQCSMD6;p]9%eFZ4;)sdv7N[9SrA?gU&V'=LãU"O16giDEãU"ZE%H=K]vIL*hr%MtvXeKHI[qlaX)Y^(W&HFa4U?#$kpKIs1sgsPo2AIS%7ãU"torvkmQ3&2UFZK=v-gpz11])c$qaw%3Q>j]9&QZ;B#AwpJ8Ut^ZF[;uKS$:9N4cãU"iHAH33H8C_KrU)RE\1#;,cN9HL]ZX^3+t[+bSPCIOr1.tm15GouAxcc_KSx[OK*ãU"1>u\mg#q/M:muK'8JfKNDL02yH\GXqwE:^tMC7vLru\l*q,#tLipiJ[#qln=g?DãU"ZgTZ<,jRlnno)0BqHeKo3(-8AwPEF%Fs\OSvCg;n*SJi8fh>]K%SimBR2^F:*J-ãU"o6y/KLi?W4gK3bD?5#:m[y:IgS(zL+YDGJqZhSS%=OT7WCxeOR;5g%iJppgO[>'ãU"lPj<4Plg_)WPR8B+ggU10NP[Idx[S/=;KY[6B22Q2C]3/8hH._4-c-4u-b5]\<+ãU"zk4a2dW91/C5%hHc+'NX:-vocFpBy%8>2df0,Jb]<=#?yFi6TkurW]W*?>u^CE*W8W\5%x0e.F$4I:e?DG;SO*ãU";i_aFGJCg=u26n0v$_K[7$&C]v\V74na'4HD(qI\bFFH08n=Y;bBrE&pMZinmJGHtRjãU"g/8V-6\*odZ9^:eK's&wkbEAQ(h2c0-V%9]As.>.%KVAy?1N3DTT'.Xd=[0x>ewãU"Vb5f#IZUV+dP8?7wCRkSKA[5,)fLK$(CKaC*qbV(oMAegpA_3bcqWr/c22)]CT1ãU";p-AunX1ccF/QzrC;IFSo7(d_O.'zZaJ<**V%pK>])-:o,An,ps'=(fubNCOU]=LãU"3[a?rIj[M)*2;nZS(J8m9e+vJp=leCP9>ESkTMY.y/835]NGM'[%+Uh(\?$28Q+ãU"rMzm*dO?-4W0d/_hiclP>nwROFG&dJ1s.#9HOp^/e1/2eR=7U5>),06Q+$\.f88ãU"+.kdv00gLF;X-aTJ%o,'lx'FWSY9%cLBF%%Ag+%#?[-V#wMJT^[uWO5a1TLJc&AãU"LJuWuNA2d%&j_?:ZPNs8^W7Zd0-Shz$SGF?OeMObXNLSaK,>L0WnmYXFUQRu5tPãU".*5PX#k+2RGVZ8K_eTmUQW7o)PC7/9\I+#AzSX-\UjrhaP'ãU"*UY]JVq:RR0jm0\3;Li.C%tJdGwvDfS>ltAf??Li8$[wf.CHgOFO/w0BO(u_uOQãU"u3fxQ[O-5T0&SZ:fF,Fqd'd??/dX('X3JZ8gXsd3u2Pz&O]T<(A-A%u#tpt)ofFãU"/CP]32)HCHDX\pwPS*t>$tri1,2W9$<9rsmYJkdZB.XnT4%wtO6j)U08K;QenMjãU"3i>Lt\1)8L^ga(9XYb1#Q%f6ysIx'j>3*m\<6Udd;*NxvCAk2-Y^GXXuJjwZGz0ãU"L6W[v8>ktB,q2zGfKSn,(Y9fY2:[96t78\t'FO<[XNjLKFwWgCq+aarN-EirCn&ãU"kB23bx\4>-ax5$Y8+h8#CBDom83$/Lh6MoLYHHAs[sPB?jrYuWe\GUT4i7G$+D]ãU"UOdprqk]?^?57BãU"B6_U7R\R2&VMG$$>k\YBxaVl#5,)>-U.A=BQR6'Om&g>VxMkQByOeO/-$HoydmJ+HE2CyQE.x9,>hãU"$*H>)BtA<[Us+g%n#wkMri:*H&=gfAmK)rtkGSiJS9DEH*skW+f_D:mfN#'\r$6ãU";i\arK[]\CYFwSziM_DaS\9z-cPR6iw=%;%i;tAQm4?;W,>>EN\Vk^1QJdGtO%IãU",a8QnFRMCdugH?>Bn-4C=)mZD%L:+7\Aj3>IP/K''6u10BdKDio:Us)u8d/48dvãU"MUYkpVOyi%WTo]2fp3Cq%\LPs3X$VZUMy8\Lh)pj#>Hlp(&=Hi&QS-*uC.4aj*4ãU"X9j)vj+D'pv]Xu=)e:R&-Dleh00gVuI(krC%Kf&=t_iBRk0G0rMNX'[J-'A[bXEãU"6tGqeZz(^A6uWpRIAPjkrkVMqICJY,TjGiMf;q5#1*0v>sF_fSh,qn_pCOc_(*LãU"sVSb&fU&2<11uUUeB9=i&8u%].jB+);T[sr,Frg)d7?ZI+6PSoqJtD0RLãU"Qmn_>sn=?gTICuwBph3&0t_2ãU"H$OqO&8wO[(Fr1haYar/DhAWbddmHmWtBQ&6ãU"&nQ%\4k,1g[Gp#9IM6(<,u.Y:]?OF[OFu-S(M\B>$(pphCA3=$_.#O,Z,i[UwGT'sRd&;GSwzWeDdNjiXpãU"F8Z+hZ/OP*u7b:j/BN2uwI[N3EmFKw(MhT$SlXCr2+#7Wb%.;tr-tvL<4*/ãU"g5[f'Y#[(ROrObX/^eG=dh?3+*dyGQ$#0M3yZ*KCJ;.qL$ZnZd'w6[u/;Z4hovD/th^nWxSrOrãU"n,odAA])&#+[FCw&*J5(nna&x6MeTmqE3UqHgeBqYbDL^QK.YH'XTjDF#tjxL0cãU"[(e8/-:'dA[0rDj7*[;gZdQGULBGl:Q_dcg>r\ãU"x#Ir+V?#t#,>2J$4Rfme2lxqkxpZKvk&;]c=W.LerIE9OcuR7jB%3cfD4%RKDtl$E(ql-2]u7lBa=IIc#>vBZ65$RHc&M^]Ad+_2(ãU"itV>jrBjL6[Y6t0u8vwtn6t/>\ZzjIARwuH#A%,eGV4?A7)A[\\At*=VJr,Msy6ãU"6Oi4FBM%6q2GIT+(xcY%#^tAAHji:sm*&_R-o#GLTg-FO('ecWl?u[?cs<2PCwMãU"AR,&qAUQY;;D6%*oqyJ,5Ks/*CyA#uk[JvAdjJ*&w6y2,/L(;G:^(3=ydG<0jGB]9_gxD_)qbNXipN&LãU"^aarV7Up\5Or=EZ9tb'^Asq5U%(pp98EFX:a9ZMpwc^k'igI;R+j:Co)c[L:NcEãU"crYV1tluYWIhdl-TGhr5c4nApVczAi;+X5C-w%zEX_OPdDdthE\RHEq8IG?;hbqãU"%:2N6b*RLN3pF6eG%o*vvLIP$J1&%m,4-kZ$O1mti:_]mu381>Q.ST+C4D%Vq6&ãU"5-ci,T%iU68BDR.&(t'(3?np$.+X79Jb8eT&el7-<*pC,^'5W.7r4((dD>A?.G^ãU"_/j*ANXd<=a/>Y]^V+]AF1uo%kJwQsDnLhj]f2]TLLQUZXoAqeoN^1);Kjvgd4N^FEm6(.oLuqubvi\orvlF/tL,ZtTCo*:q:&&IEsV$*WhSãU"O9qPiW_J\L^nJZbLx+VZ#XO4=YVT\?nbl?kJAAt_OXJI<(W21S4FEDOPU['k,7DãU"j$lS3w7vp(cSMK8Yh-Pb7_6me7jD>%BfB68/28m.lBZ'7Y*eN%hfqk^LCN\,._FãU"X[LU>\D8.=of^WR<0P<28ZH*i#0.KpqWA8Rc/*E,;7sc+G5J+Hd4HoSOgXbVat^ãU"\a.pmbY^^N6ZK/3L>:ao\H+a8DLbL949'KUvty?[)MZFL_Ly]I/Jw>#>;.LO6_GãU"HA0KY.pWHzeuxl:g-Bvf0CX[o+?6SZ8:,aIq26+MYN=sPHfFtbT+C#%R0Sq=BO)ãU"0QFedg$Qo,<^\1^\G?x*.0hDIhZSS(3VE.vgW%.2NX):+aX(8]VqK.OO-e&#KW7ãU"GOIPhtI#CphãU"DYaw\^U:Y.lsNrMXHLt^9Kt3]QG>)%?$M4M*hbFo%uCO>cFt,zi%Qg?/io:qO2GãU"yF4%h*xod](dDqfUklm;gCn/I9grB&N#n(Uc:\tDwh3#+i/iB,1*=%Wr/c'49Q8ãU"#1]rOYFrRvl*cED4&Z+2ItN'wsYRg9VLon&-i>+ztp+9Y&GiKPCcn>'2beO>#8?ãU"V_?of_R;Eo#u]koQR;'*>=u5\]M_i.&e$EUokBh[d;p$I[^t1*ap$>#mVYq0K'NãU"g\Vp&f\D1FjC*eY>ãU"D?K_?'+CgY%651iO*A[^eniV_Yboo]$ZH6SIgu0eap\%fMrKuAd\(j?U:8Rs%<8ãU"wRK8w4/kw4N3MHlR=_NPqgkSlJJg7-2+,-tw<;s8F<4^[:KhVy6)\$bO$Doq1gdãU"/_uT]1H\\.\cg-si:M/^VN\R,JFxQ8wiLqC(XFu=1(-%sp-o$ffNaoUM-$_M:'sãU"jZ=*/rUi2Q;EEVKWEP*0JJvUD%7WyUv9ve$iNt[]#0e,0mkb0U,kce#<+Zc_33vãU"7:d+Q#D^qCi=*UVZW<_RASW1OaRef;4jP=Z=&3C7HG1YpX#o*B%G(SM&U[(oqQ:ãU"6nYCtri*=+_whRiV_+2/%^9W)OS-qr6cJCXTGNG'q$dA)$JHeppmH,DfvjC,Q)k=>Kr6$+:GLWg8GrN-%hagvl2;:1B?8,L&=G6ãU"vJ*p8YimD:-d[1%&[^16P*yd(\mtHj=fp?V_ydk9Mg^Yj7DaD'H-xi88\(rBS(BãU"YS(BS$x-WZXcYp:4KZ:K$Z:KZS:KZ:4KZ:K$Z:KZS:KZ:4KZ:K$Z:KZS:KZ:XKZãU"8b4na,pFJ-Elsx8ln=uFVU2k%7W%(DoPLY,<+BHRYh8X[2E>iU;B>G5133#VHlcãU"-7(B:,Wdd=1;7r6%mm;3&^V6m\L\?Qr=P4pyGuQ\j5uBbDPMq%;9jUZ+#*ãU"AAc=87)'=x7f[H;Z1aNUgYnvx_ZDg)=t^2-X78?yi.D%i4ZEFRNS&ZUh/ãU"oFCiRSg:=W*0G)50Mt7Sol59kS&4iPprk)k_bs>o3tLmIUy#2P(/HnSbR:T'K;zãU"30[n&(.m,j*YEJtsU/>1ãU"bEQg3E>o0)FI^N#(%Vs1V-;].>b7(Q$6T=h6dW1P9yP->V?G*0C\3[&bSiI6Eo>ãU"]=MAMkWXX)EaSXms529Ef2_D=\64l=g>P:Z0>N?(a(5KnMV6I%i(nãU"j\LROHSYiH2sg.o&dDm-b$5(]9qDkuJ0/':W4ps=-O8*[%9JJ-1u-90:]n;X7q=E>0^h5YãU":e?7m*j+S(05cu4DIyB_bsw>fA(>Av0M<4%w0oS#c#s*MPKH,&C=?7%%PYrM^>;ãU"YZ391:D(0qAH(7G10;Rw<:9TsNLhH>gv+U>El.nA^vX>Jw\<-+sDd]8_cb$hmAnãU"->7wj0U[k^U0f33sZK/FqfyI^u*jU-70ji1>P_QD[>4a\p?MxJc,hS=uxugR\23ãU">w\&tqum5<]:SbZ4#96g5.0opJJtvFg\$[/uvj2&_Rf1&,Y(YVVl1SGBb>pR2;o#FgW+8<[:_A;+7ãU"E28P'KaD7GofrL]XZK^CjlH>ZVT_%$r8blGk_vo5i&6H.wkq6u,x4\6lbv,FIC?nK9*plV77mhjyWINCz22>VvK%y?YnjZ2u?&k8JhjWo*[LBS2Lr,5MVI1t\,*?BMdãU"uvm+3Cy+9ibUDcI*6ZL6,q4pWdPFefTKUkmlhjt^Tlg.yc^&Hg*g:pKWO1?SK^lãU"NRq&?EVy?.7y6hl#L-7&O9_ljXsODN$)?812s]oW]SzgG7d]W2B\Z-PZ5q()l*\ãU"bZBJlpSvLj(GEiHv]jj*Ytb&\$bBI<^ZãU"uH+h;NQo4s=It$llNawl8,sZfP4iL6H^\;?gYCu/L&?YBO'U3K98Vh;\.eili70ãU"I:Y-6)gG$R](HS/FlG0Te%dm4Kmy]oV#L,rP+a;pDãU"1ZpFs?D8PJ8K]g%&K7K;zI6Fm(UKJEg(ua3)hJ0y2N9IdKãU";P51A(U/Zb^'tu#Uit&%Ap7_^60tePjOdomteF_m>dP11cUcnVoYvF&(]ktGK]MãU"KNS^SI&]Aj^3oQ[Yg=bxUS8\2X*LR5OzcacZ;?eads+=a*c19VSmF6Gg3Fvk-(\ãU"y+*HfEwBGm:ym;5F,G_tFp/Ggs]+17=5A2[6(Y(nQ_:d=1LY;qhA?.OX3;?lan8ãU"L>FA]OsPqwk>OMZ;-leGI'N.BG1g?fNkNX1I#aRKM_sARxZ/PbiZ*^)scm&xAdOãU"85Mj;HV=:).c?-8IKSS&S/?I:E^Wc>>zH7Ju?P'MV8m7mpMmMXnA6R%'Ownq,+PãU"92VEd8?_$Yhpr*FKcJP\gExzm7'>]$jtdG.k04IAemW;R;x5b\k.4[NF$0W&(08ãU"Te*a$kBVih[miCU6s'x'wN%%)cp%%%0%%%#lnx%.ãU"nj&S[gfxfkLfA[sm+axk]aFAq5JSIeR>RVi/jhRI^=3jd$='9QLLJE1H][/5r._ãU"=snQF7iOLqtaK0Wd[hzgQ6146dFs%H5g?sy%u%%E%iuyq\;kFt8t7fxri^Z]L-gãU".k3t[(H9HjuYYJpa0ncKPzaW*(S]eQO[uuT2qm:X*0HS^zeMJ<;u[NpZrVXOAG6ãU"nPDW^fTjZjSarvhjd63:X7CuP:#I(\niRP$5M9oaV]%jc\0D3*<Mu]6C6E5/FZKVe[i>J#$YM[(a;c5aj'4\mvupk3sg_Q#I3W,0eVLãU"NNk:Uam?[ATh\E%yckZ,XXp$s*q^T0m6.8)1d(\3B%\^u8.d2g#,IVUãU"n-\N9L<5XUTF<&YA&en9?uq^SuGI?=n3htN$?(kRaUyp,YqXO5Z9DZ=R2ZgZ4l?Zw+&Tp3*)*sy+%\Z?:3D48>8:Pv:*lo&x]ãU"u(BH>v?vIfqXSZmog/\F)F\ldP\ng7:%((T/fpwg?n=W(NJ9T.C$Hpb1<39n$(iãU"u7qpSlwD.<%wQ[u^1\q7Y;rdHAW#'6VY0UjS8EMI2V)JD.kQEuClOWWoViR]u(BãU")sjUA;pQ]u67$L[=UR(\*Z1U>VOKM-_GPD+JfTkM=,3$TY.e:drdVqsC[E2^HM/8zUn()?aNiIV]wQA8KwZOPYKspãU"Ok5P03#$==1Z3d?boMX+9nh=V[[h\^8)Al+&&2]E8ELO>BZh.QZdE:He5SzBjOTãU".3Q38Gjb_=a%*1ade5x]VO?G&p&qcDk=s6VNUfzXPsPw6EWxz;0aJ#;8DCl4ASHãU"]Cb7&YWZV#0\Q%n%/\17c*jU(5%sM(__QxE(B9z^Smb$Kq10Og99xA2ãU"6sY[k2R$/>*$aM6m#aR7$eCl?_k^OF-HO3^ãU"Z#X^hokNj6q0+UHvjjGmhU,b*aFn3UH4LT3mzf(JQB-c_DK)T&o/t0hC6,2Iv(:ãU"d\h[Ws-vksx9_kmK10#'eWO?2k;ha7zio>1OJg/adu6iYUNAsãU"6mGXvAI3S'i*O,l9tJXbJk3r63iJL>2V8r-grjSqw+;bsZSR$Vg)gGU\nSUoegc1b.z#4),TfIq/vz8t&\'eKYsB?LL=zP^v*ãU"]nEe'*u-*te4Fty?&m4kUss\ou&]dckImbv^&7yy0$::>BajdOM..pB8M)TSrHIN<1kq&tãU"fII\>/fLF5Mk5s4[e(sy1z\(hzn<5-75h,i.-mlMt:Zb0'kQ5mnKjrb^]:Y;r4fãU"RhpU2Nd=IK=(tcyjX;/j7P\l9ãU"p9jzM'PDD:Tl\$*1#m;W>(ra)g$sq>xl/mvbpO5.K>&jU)hUA;*[ckqTWM>rmPDãU"Zg+4_6p/ojZf9hpd4AseNJF'QIE':O0mptMxBu-kVt7I^HT/GEg2)p#=VGa+Rs=ãU"9xom;RmF3YTUO80\Ar:oHVV,VDLMF'lOA,l6_;ki=W'Y2%sA?m3U]f'Y0e7]d<ãU"D'e=dc1Pj^O'iRGJE?u22BUC^Km3,o;19bm[?Dfm8?8&g=T:)EgR]XGZBGawFE6g4Vdq/*ãU"])j9(pRK3A&+CD?9UE9[SWm$1+Y1C/(pw/8PCT=,RdQ=x,-x7?5DuJdH:h\:Kq$ãU"ZrgA=8ep0BG\Kfau)jzZ0gXt$YrIiqr?lc,Jp1K/T-]7l:2LX],gW3gEhKrNsB(ãU"?O4TU-&>[U4N-CQ\MFR\/2f]&I=R6n0(CN#C;Vv8\v\>fY,\RAãU"OA>?le3]m2gC_VO#L$KUt?.1B;p*(%?g8D]sgJj9nT#P)gZ:%\#k*18TjjX.e>725rZ)?sh0.\>7kj#?;<95ãU"Of$=GsawHij&ugfcK?gYEfq]j_nR+'GvBt8^Mv\=%1$c+Bw=\=oj2.>TPlD,:U)ãU"PTYU:G8u)>,$bJsJ45W.+IlIBB#GNxãU"^Q\0ohE8uvef+en;^tEjUME6#8u%?jXm7G1OisVf:1[Gf9Wd'0rN0fADE)Nik6(ãU"bLSRD^F\12YE3dr2RldY-h2rU[AXF_&$^tiGo5:+si)Z98m&Dch'ClU#gWY^Q3dãU"c*iTdJ.#P\'[4;Q8=TZ?l*4aY',2EUaX#tVD>UB4UAWm6ãU"HH;[64FiCnVM2SqbaneFT9\h^29mrexe'p3ss,Y<,dMidf%09P_d^a^_FhkbxVFãU"D7^7).tnp$Ijl%%,>D)$j=NQSãU"rH]W?n<^C3xob8C=SgoMii^>v5q=0xRq>D+4WpF$9;(]Jju/nE8lMwlZ[X_HpwCãU"&ijMiAPsY1'/%=d5>qlsElS3cfN7<7DEgk^>XI-*DMK*(L:c^b$a1KE3ãU"IAjG4ZQKg$4$6f<+1WrqBL-hs&sN#%HKY1W6w;gl3pcp?4)8[zb$]N,Cu\Csi^eãU">c&$Yle7N^OmQ)Auy_8%?lngCP1TRsN,<*,BV>1;*bDVt(U];oG]eihe5cr[rVgãU"^&^Rups61%:H#:ZkhFNTBCJnmNKi&-d%y;Q\?>V<+2^JMh1\lNL:1&KKtT_3^OoãU"Ze;::Ua/s<,YAn6nNkCA,0u0+kWMdz)tvCC1PbX%=.Wl=#CNV:ZJ4wãU"Fi.g9ZiY<_Z1%mt4jW%4?AslGqs3Cp;D5U*n_B/&GbCk.VQmR']fCf>UQqby%>pãU"[*MFU;Vnq7K2,nEv,:2NNJf7?,sbPiJ)UU:.rkv+BoNHap1zY($7yYA+fKI7H0)ãU"qr]7_Ph6IuTL4m;6[6nC%JEO0YUA*>*?/fpQA2T__Xed-2?U4bN;K_tLsK_bl&^o%p-qãU"6:_=f)%#Pqh0nW\N0vtrdNd>fqPHoAwLCHf0rQ,mO2+\eKfpjWYIME&/;l0h8cbãU"E4QP?c^?+.f#Ipm[8=;3Bn6aboV*bgo'($t+dZ]ZI4'Yl75'1:/0%IB1X+v/AC(ãU"0Ep*Wr;zhIlau$Qpq2;O3RH2nQ0voZoUYaMK^mbT;Fv)XDO'&LZjdh6Q2IKnk)oãU"1AfV^a0:tpF7w54GSHhuIOM,8(qagLm)?d4=iIR4['0]Ze_km4]_%bE2ZxiUgqyãU"X:]=-'K?;v]T&%0&r.iP0;'>Yb0<)kF##0Hd81gr)dC_xClLC%^^ms%,\p.cV^^ãU"W]cN\o&E]Gw37lC#_Qo+1)I#PZ:OJ#jjl*Q6Sno3?AazaB?tm*xhWhbN^YUA;\]h7Mx%y&0M7scZrfJhRkBTo2)t/nãU"Zx1pvBK?/B=4/>(e2XEJFHd7+0R2vcT.tbTZRi1xAv1ãU"8.g1.mp[:,ZA8;Guup;rhAj,9QU*IOOx7d7G\*tY'I$vW=CNvNP*x.E2>;A+AS9ãU"innO=eTJ\Tibiq^I&a0TZfA9a_bO$8Hz6rBjU+y&41zQ:(FFuãU"F_h=T7w/F7<^\YVe]KKRcjd'i*&(o+abL89*C]iAOX:mB<_qS/8q,W'5TBR#E?eãU"yWbQj-V?H0>.$:oY&&t+6VUq6UEJf9o?BjqWw&%+'ZMgotbe1jVQT_/0-+Q_M1PãU"[wB42a'WOCI[:vp)>ZckMb#sRLFfK)QMLmg$lhH:ELRN-r#Q'),.n;?FjJB%]P/jmG'QamHiKuGyYO.44yAh7NXg(5lDYJ.6YjaD0Qhg1f/fpx;D(ãU"#N46Gi%4M>Q*Wu+5]F7N*5'/[70BkMkmf*\Fz>54Jq%9B8CC0(v:N6;VqãU"Ctj:gSakPv$.V+qH\xK(ZQ2J,l(%v,t=^'QK3\3[RBq0d?P2fi#D+k6]XA>M'DlãU"4R+VG;90[ujO'sNRc-ABiX$J6GKiC_vi.Jz5BW3JQyA'MH\<'PsUEUD1Ru]JqU*ãU"K/>#RJe;j<\c0hWc-VRQH^0:PN,j3=4fkDqotT+e?:)_RrAgXOYUv8Q*:O$>lsuãU"7>%HzNY?/Xr/X,WKHzLv08,+,oce3br4A)ãU"HzNR,j&)i/6qWK=#K4v^26.g>24fc-w:,\d368sP%C=>T*Im[UF*=;$:QZk:Aj&ãU"'466'JLGjvG=v=;_mstq+gm8b+?/Y(gNM4p?K:^3lI9QAHgjg#&d16H-a?A6HLwãU"+Tb--xiKjfhB[XyY'J/l]++ãU"CI#-XGR.$c44r-rdT(F<8DUDBJ';(RMJnq=6E8h-(ao8E23]BQ7'\\Vy1RQ-i.[ãU"6Oq+feZN_eVCl]HlwJCS+Ply(b:>nSAM69RCs..sH0U)+a*V+:H12G;kt%H_hZnãU")-4Ev-%JMnqjG&f?g3RWCSnQ[uhR3gLecAfFXIRM^o/Vq-B'QM-Z)-^ukrg=)IoãU"Z*FOvE9bYO<%ye8IHxA[10H6O^U7R6wXx48;Tw,8JX/)T_U6]^&_/\Tw:(*;L/OãU",>T^q:qEXeuAkLWqnwV+4510X%Y*y*j,q%3mhA'U4v2Y43xWO6nn^jImx]gFTB^s3t=;Mi+ubk#og/?*w6s;uv*-rOSfT7r=uFf&W[zãU"r90[[$kMX+T:kk;'hV=[4F)j.TGW-+^f_*UVb2np1,3CVO-C*WI[t-&[;>QuRE1.E^[30cY.&\q0zf5gSzM+YAlãU";h4m7zgaz.;(>UPkz52\dZsl\D7mk0TJ)L;DSB4bLV2q/1^JyI+U:M-;XU=^XW9ãU"nNh\OOqLwE7fodm26GVca&Jnt[VsZjPW#KE6AkC>*'1D''q4]?7+>DFfpB[=[WwãU"%d,:DNph=]$_+S3)[L'v$TcIfC[:Lv5eVFa8T,?*WeB32$^g,*JCbVF-uai_kãU"bBr5>YF;4BLF4Z4X94ji29q7cdmDRtU9()+D&_/>SvES?8[K3^G$L?63EwWMJ5GãU"F#3dVO\#+wAe-G*MCya>&/rf8dJdcK2+Nsrs1;(hãU"a:h6%5=p#(xB(cO8si)VL>F:FgpFW750C-7)v-IPq-ãU"I+wtuL[Hg[MIb%M-pHL4vhnl^(IZ=L>dGsT0Dw73G2?L$/JA6\t[];ItcJ&V+T6ãU"Sd%/khHcfJ0ucAUk5vYZ]N[<&#TAe;T50CP[85WjJW(KohUTA<\l1#=DtgY4FF0ãU"3o#kvlp[Ak1?VrpB'9yR\nfTBk(eUL^^i]kCq^1+t5dYN834,mD*.jxn#uiU0bBãU"TgYiY*8jQ[q]mIk;>ea&y%Gnql7DVyUf/=h[bKqX4c1.bD?C*zj'BLb.$=xvN5DãU"P[V[]0tUIYPJMc:)J(w6(40WOsVCd19+DK\=3Go](o]A(Xjtn#BuIun3fQ5$c;0ãU"A;\]O:,5ktme2&Oh_\U^_ZIDbwJJYk3Ec1=P9GOV)EJcsun9n_17ob;YM)XZBLãU"\&MenQ##J$/Q5PSSQ2jC=O^nCQfdK?ãU"_3aucSX$/=mg?VW1/tvCOx?pW>S'p\b[R=C7n#C+'Bs#Khy)NupmdTsit29?LGsãU"pjbyS_wF0w[U?ukQ2MkTl8mXRa5;4Rbuj;2x+TBKp3_+,e&\g.Pq%fIg;)cSy.,ãU"iEO[LNF7oil4*mU;\wg>M.$2FR5P\Pa21>=OUFqrmB=PkFk8[PyI_0t=pI3h-TGãU"Dc1:z['epISAx7_S(*1DX;[2[&azNPEc>T\;L$+rGH42NcKãU"3$k0p]#M%,U3?Tce-?gi+YwdNgwKLGGr=ezm[<6S[AVl]*ZgF=*Z1fOO9Pqp8h\ãU"Uz*_x#;am;lMP'#VUDwwVcPb\qB/iIj8e?_:nKVX4eZ(HI0yE*-q\z+2Tg0.e[*ãU"=THNrG7'3qjbsx'](9E%Yc2D0c];YQG98BGPA[AS+,BUc0va/+kr&pãU"*F*:&GCb-(xFXC5;-voSG8tJ&nb9JsNFQ6Yd)E/Ev2w-5A)za,r/l3l/=S.tL'VãU"=,_wV_/X,n\P,5>cXUqLyJGR31JKxe[s_L%aQ]&5^f0K[u[Y$sHlZLKd&+2LDNXãU"=j9B?4q3TwyZ\&^FDac;'y>Su/)aj6^0YLsh$:jE=4;u:6:SRBd]./+twECdx>6ãU"Jtq,tC%g./HI*%Lge4]#Q1J;rnYBNB*5sg'k4pgao#$(K\S*X%p.+doDyu2rrdpãU"1q:G\M7I.91e*YXud5;wb]4=ROhe*k0;%[/g[o+LrCj,5$MFtZ:g;4RKXj:#=].ãU"s5TJ8:m,YDe]s_uF_C%,F-/aV$w$<+ãU".5zIL=lr%jl8ZXs-l\'V)C95tkG;DXrrDAX#_ãU"BPjB0&9BL&2g+l/IK2W1k94e:]CqOP3jRD^EV9b,:zdCH+]LD6SpAlNcNUO*ahBãU"%c=^USAKPrPM0NP&WsSB7JH9#j$coZ-lgh[RQ.>*7_=W>=YZPQcqPY\ll8ydEgBãU"em$u0ps]vd6&b%8OAu8R8fQq?*s:fZJAqtQ?%$QACM#h<8^1.fc-*^SMjJSLãU"jIFWK0^/:dH9LU0JSLM^rr$kHnlM>\R5RlAS1$63+YF2Cj*+]^foE+FB,v3yãU"olM-xX&_6>cuVB1P,2D:G)*gl#uI-qC:Xpe5M4UA3l-(vQAGN2Co>64K?<'Gfi;ãU"W*BPBiz?;+&j>,C^YdP5P^;sx8ki/fpD_27h_PN'=zfCUnIpT5etstX_.q84p]PãU"6rlwrM?IK+,Tmk+ugmYYPoKS[T/jFj3)kKAI_=_7LGJzSQI_[4NUlMcLx,6Y:i2I[scn\2ks<-HA$XGCr:tB]dcuXowrpT]#*tSSDLHN2bTt0S60ãU"]dKCurX$AbNmYrEx,iVDO^txXKrB%rr,uxo18Ds%kãU">kI1(b/.Ded',$YSmCl3CQT;oD%k<\=Z870d$+%ebq.;74rTPr]YP6&zMgg+G*+ãU"39#(.MFx[-2dj0,8W.K/8qXKH>iSpnB4n\c:V5E2;B/'VH?u_w5d=PMCSoR1Wv0ãU"\*8Isnizd?3(2/G)&S705EEyVl90cwL;8-Q0KMSwGoqDTDA'-t(eN:haVBd1km9ãU"jD-M>t6#52*Q=d79D-Xw1=7l/?FVãU"-SaL(+Sx(:gjcm]3FB04pPn&6&w]]az1Si8rYitLOh]ID+L>MSYNaYLxj/y#7PxãU"qRinvZC^b1DHFeT.4-2(WX1E8K800IHQ;K6n9K&hj,I=Qn3Tcq'r(sT#RWRbcS[ãU"B$60Sz^4YTAvQQ^$>cc5Bbs?aFD<7'X5X.l]SAcAdWhBq,8j-CD<;04#lM6Mv+CãU"4;QK&F(h1ohgJFgowYdgj1cF[Y*\F=#1P5eJ9Dio?2o^0G1RK>Y.e./:^-*jV\>ãU"/'kJq9L-l?%(Mn=UH[[z>M/y#pTM<_xjFaaQPCcFKYudd#57p(4Zq3L6-Dn?caPãU"'>%iMqrOB+I:ACQaedDL2Amwk^9co'Rf8c/C$bp.]bwOg02JYFk:[1aT\N+lwI\ãU"Vdj'4+r[ykZa,Xp$4b:C?SD'H.YWQ^.?r0>o,Ry]7I3-uW%*+Lb\k48aJ.X,SYl]='v0,S2QuetFaV4ãU"*:YJ9tIN/&Gy(Wu'DfAD7BYfn(H+zC/:z2._z&2PL;PA2RI66eW\0vY&$EK%85JãU";+1GV\'%i?,k3_Br7L0E7>c_w\TsD7D0i(jxOFA2#j[-;%)/:-;%:*hMASZ;lB/ãU"PQzUa[Cgv9vVstmW[SQbm:9?l)G+wW;13H>so7vp$w>&m_O:]>ZEnMs=/0^y\k'(KtHMtL'[eQ5L1h4+di&ãU"\&u'L(HJI6Vcxu\;AJqu5-qVY,o],GLm#K]8n_KldL7,C3USm&)),XT&bWyC5usãU"GQb4j'hHh;PY7Vzl+6S[%=myG&IGZR(+0q\wlp-.27WhF[v's&WyJFqKrMacgeIãU"Mv0QK[r:r-r8JH<(Q(s44EF>'ekZpesaEJ.(xtGoa\gPYB[3t)2u7u[p-ãU"Li,GK;VYYrNfkp4(B9q/q*xX?:mtYs]G_\A-.<0[zip.?>,(\NNUacK2twl96TkãU"+&u-F'WQDyoBt?h3[/wVBer9JjQwUpPãU"w2O,l<])MRojInJ[,gVVM[+r'fF3zm$U]ip7u^WmqYLbADF(9oR*4A6>80fKmEDãU"cDwhZ9#7i-[AR:<^;UC8*kV9V4W$,*u6GqH/1v#jk,sLMBr%3nVeEVM0=N??P.FãU"_jZ--r/tQMSq+.-0Mhb,XNHAL-6wK[SEAb)Fo9rfys%O;6Mw[=l/Hs+P]ãU"'2bT-<-4V2>:tQIDnci45DxS%pMKXfLLY8X/3+6ciH?6:bFLd2-e73KKCQ12$x/,Wc=x%0t_?4SLBbãU"OKl'Z8<]x%icGmoXLGv*Ac6QXeqDz3kpTV^hMfhM9acj\EXW)X+&kRYdUUG%E/>ãU"Z.BkqgrUmCZMh)>EXU8X59d%ZK&OlSdwjQoRI/rb4r[k>JlRbVcF_ve9xB(Og/WJrãU"4$jz)-+#Y/Y'aJIY(7hF)?)Vsg6p%Z+r8vVskRf^s0DLP/6l'1f;rYR_c06NFnvãU"=FD%3.agFrr:WGC6kGM.8NXa*/5]\m$Z^^ãU"+4AkQq=EmESmcj,7k1?F-wy#S[_;o[$FX=BJ(WR.uRb&#A9A%EQrDF%]7VJgRy4ãU"bf[-b5avZHX<[/:?lD&#q(#YJ#A/)%L00u[\Qe\ryTi$A>mjy>([iMU0:Gs5Bk]ãU"(q6Bk*G3F(%>sawlvl/wDW>?M>vnc;07ZLX#h'eEh5)pv*Z2=o%32&>M$Ey?kc>vHez7wNDEX*iJgYotdQUY^r_V^k+jsc,1jMãU"G0_4twaQu9m%[]gB14Cer4KpM_>,T'VmGUPlZU8igLW]JsV7.r[&N[VSrGrM'c&ãU"Hkj//-S'n-tvC-WvUG\b':Y3\4=_-AIdr05]3Hol>=YwuZmbh_+k#b6.AX]$7TL4TpH/K,>9l99$olMY^7KOwjLdUqM8J7^5YL?usãEND SUBãSUB V5ãU".rl=P;.wN69/]BlXl?Q$_[0InWw&U=AcfGa:1Ga4ptU_#iBl4UH+v6.VoOh;)ãU"Yb5-+$iKo3L7$\g*n6bQvT)HmES^YSB>?p5XIN:eGr(4a2FSW\x2M$f0.F'7vEjãU"_MCXc.BEu,dSf=k2VN2Lcsy&fJI[NP5XlM=ym;LHMhxvKkQk,ZrXjK([ajAD8%Vfk\%e;N6qtbOsKADhOta=_g\fVs0NVU5c]bhs)M+*)n8bYIfb$=ZhNMt/ãU"/>Z+xP?vn.g:]V>$Y>SHoT;wx%Dup(%)9%%#%-%TCE5J%53d/C[E%%Y&T%%0%%%ãU"%l%wnsy%wtSgRfxfLrdA[A5aiNlfqBA5db2k?CCBVECXf2[&TrY[OA9=Ju\tjB&ãU"wU_;#7l7ESJHo0]pj[/CWzIdmSEZgPhQ\'JnpRcu0CCE,CM6&+=$/b$cgHu7njãU"qQL5aRM;rQW*$N(]:?l1lV4BG%I;X:=P]t01El0+uv0u_+7P<2EOC]t^K>c]oA3ãU"Jk/BpLaE-zpU4Xuj4[n'&2^SLV>hoBp74*/Jn,]=Oe26)e[HC8qiU8Y$x-Vl;8pãU"/%KZTgtf8fH=G+LVM+o7Arf-Nchu4*09WUD,VLuTXTXpP\.D-bãU"T1>HI>ew]J0ZK8]aRnq402%;>h83N(4$5hqWZ]2mcbQDYSF]1CTnZXs$)%2T-6U?:H#zgãU"f33GL)ZM>2?JNYEgKbwr;DHo?B*jr3pwFX72nnT*QZ^8G>s\rKTN+7tFv'Oi_72ãU"#>//H&uafniVEqjvObLM1Y=imZ$o?ceA[TgQ>,V/Bq.?Kfea4BLO[9.g(Chf#p]ãU"X'Ds1Lp1B%ZN;)FKV^<'$1Fep5w'O'N4jbqP2n8DhKMub/2MYLL*TunR5r8-:m^ãU"c3FH\A<%tNe0+g/Wbj34B6B*[aTt($kDU+bOt%2jkaq/U1AD]STtBG)(%kJ&'GIãU"ei*$i>n+_PV_Y&_L1D+^h75&\ImYx]ruY4:Ck3r:&]HKGR0EWsL8RD3?V/bCvbFãU"FoMnHso_KR#v1JHK(yo*4z=.jRj)41w7ckiKWtj,Ji6a/Nbn,']lTht*QWY,I%rãU"Srtk_at4scIUX\la(4Jb/)e3z0U[J?%/2e0]Y9bo[JPX>VpwBa0^:BIb+sE7apfãU"\8pCJj.xYGG^3I7GC]>tw=SngLFMVA-:4;m2&*:Z6f'ToB=:[ce^e0_SãU"S-$H:36g3]$ijDNfEJ/X0.cUK+[Cb)LVUhgpqFW$t&J//E^]gu1f]MIqEVqL/)c7T6]JIh0q\[[iãU"#&J$IIgKLdq.Mpi6u1OCq#90xs,lf7\0w>I.8lV$eLhe[_,fjh2Huo2zR]aj<6$ãU"ba^dIp#]Z5,NL>dS/=xf\)#S.=Nx0/UWe0p.$=1d-DWKw6h;fR%e1V4Bv>xKs>pãU"TBI&fQonu'a8gfrMu]*2\SKvYGWg?hC#d?kWBBvTa)8C7,8JhpMSe=+B=ur[Vh7n0n[0?gggF)N&>6*6T,T/1)l)&sx$7n7[4#3C58E/?qi.ae9sOCE(?LK+zV79UãU"n#X1#I;rkgO&LAKzCnRzCGKJ].z2M*>QãU"9tQOJ:W((CwfNyX2:gw]P5H?aZwaqZãU"8?J$J&g),xX.iEtt8b'nLk%Ik?-KSNevb#IdmB^:6d;kRd'O3_Z(3f2H3e$>eczãU"&:\#^$_SHusJX.XuBb:5VTTuefC*di7Jl:jJqe;Z2SefdspTMh7?Z6ãU"xxpAf9z7Z^2.AMF3SEvoofpw5]6]0V0PenMTZd-;gcXKWnoVMrU/w+/8I>H\cQ+FBUbEX#vfHWJ6yrgC,_J3?ZQm0\SX.#1VHZm1U0l-M\H]jMC:_aQ]>SvlãU"?;6*GF9L#A>kG&iq+g%Jb_]YQ^-:cJ'gc8=#,$Mn>a[=-]vA7KNe11X&Glqmk.nãU"<)vX^;:NQ4T1mgBDN,<'arDU[Fz,__/TSOGzJg+\dk+BsGT?+h5,X.EQY_FAVewãU"KeaFw+AIqjjORh2G%?WaR??ig$1>mT1BH/*Vsd2lwSaCãU"t:c3btfAjU??,E*]5VuRcS^A5]RO30IDJDDX5-pBBq.o]9o.GJfLui\qo#k:eW0ãU"M3Rl&bX97ib?OD=v*_z2pmkh$.yG?KMcn//_.qwSbd(L/=zQ5[y$$'gype=Xc\eãU"U0Hz+m8o.P8a8lRGR5AHH;NvLC[2ãU"P+#;-,k>mG8WiG78SlJl/k?s95#:LFcOMoqX:MNQ-4Ty$K_W&4lFgWIOQq4r-/i=V<_ãU"ZftyQ3A$Af;3OLOK+/a/zGrScjA&prmvMX<=S[0wrsdQwxYY\Cq0j(LhUaZj^d,ãU"_jtlU,pHWhl_/McCY;cdfB6S*By8fde1if+e+_Kebx+iSFQDH'>/TvNCQy?t5,.ãU"dRWHQ[#69yFuN?\q*9K7vZ?%*>b(en0\oU(^dIXPV+#ZStO-s2sz7TNqYN-EAtn-+gm6Ub\Y5ãU"3Q00>2+IX[Z%,:?$M\*x8X.jpgEiJ\sc]FyXtloU#J37.'e#vQVRA>S>>?^//rfãU"PS=XO.$+#g&3u&]H]bWXmqx]2L7h[=P:KV(wIw)s$BI8#E<<9u'(&&4Gn0kZN-7ãU"=+b\9IIN?LS>N'0.2b4lVV0sG&rsY2TeS>#176'ZI1md3X3JKQ0sITKR&7ãU"Ms)Pqt-d/wQ=U.wU>u6)Ktf2w[F=u$p]8Ff_/Q9n6K+9C0$y'>K#aNj1Xlsb#e:ãU"qy8I>PW[Ve(WUSf7S3.\dKSwdS>ef/+2rGYZg:J+\K+(F&v)?p&'[Vb3er,>kdCãU"tj#_0o9t&:VDc;F/j+kc26rkY]YrY,j0//(Xy9wf>cZgpWiVHXQ#Ty?Y-lq0WanãU"R;pV'#U_AxfSp=/AWtiEq,Swq$0._GPm[X$_[11G.pje,=NIe]D.Vj$vVJjBt^,ãU"X1NYr:1;,U#iQS5drZEfy\Cq.N=CpxX\E6:$Edv*I(N%,]ãU"73bVWFSP/TPILJUlWf/)jrAmD:=](I)fP=YVCYrcbn(YCH$]1'/a)4d*/nno#6UBmg7ryK5Zr0Z\v<0?*E%_Y4J//gh17f/b(;kYp.=KAjufMx:TG5:#31]bjjv6z4sy5t]e/8KE*rãU"C(.?b)KRPYj^;*gWRJm+-4eNMãU"Z9(Dh+/vj*fuA&NurQ^iSln0K?V8quK_T8Bi*%x-cZkNn8ys(y?ul#9%uH3Yr5lãU";#nzkp%tYK./sãU">/S78kaj8elkIVOM'Y+T)T8vF4FL605?qJ\DqsO6,ptF:ZwUnTB7(b1^FxEef5uãU"^+K^6krlH4;7u/IF*=+J+gpGq+Sb$=5d=-SxFY.XXZR7gZIQ_eks'&NSM1G2tBlãU"6&vX[K.Y/:77_8F]RooSdtYCUPP,\7)UIa.a)#k.3,?-^Zgq.^6kNjCfX$$?[MlãU"iYY?/rXZ+Ji^^7LRb7&A-(h1/\Q9ocnOF2QWXv1e0Lw\_gXB]3z5jn3HdL/Q9)n*O6*6ãU":tb%0H?])7RR(-m:2)H%2<3R[dWejR,oF1u(Jluf#tWe*Lm*-FjF:4Y#Vy'IADw1fBKm=*FjFR:Y#VFyIBK5wr-DmoHgc(h8/*eLãU"M\1/z4tN49mpYH['ccSuuIVEKWjKSwvUV+yIADIwfBKmm*Fj[F:Y#8VyIA#DwfBãU"\Km*V$:VsWfdh8=),LMrDpo4tU6Fnp1YTQcnckUN,VK9/]su?*AW4ZZEt_/iB\hãU"O7J]4xoI^csQ6_q_/,i\hOD7]4x8o$quHd6ccXkUNV]K9/sIu?#&%DoxMfah8=)ãU",LMrDpo4tp6ZqI(n#Dw1fBKm=*FjFR:Y#V+yIADIwfBKmm*Fj.F:C,dD_L(C4t6ãU"FEnpYT/QccklUNVK79/su1?#&D[oxMa:h8=GacMOgIhO7]14xo^gcsQ_Eq_/iB\ãU"hO7J]4xoI^csQHgYh66hnpYH['ccSuuIVrKW4s(uigf[DoHg0ch8/C*LM\5'=VsãU"5Zt_/,i\hOD7]4xAo^csYQ_q_:/i\h1O7]42xoy4*JUHf>m.jECZL<*D?q7Sd/jãU"I<$*QhpT$NvdpIF%eVtBgGQ(V?qCv(iqKiHDDpa,Vwg8eqmu(jOi_ZpanD(u,?7ãU"-7[41-_/]=s6v28]P:jdXneTpTsh:si4]uLd-D]uj31JB>f4f&aij&WDk9)DV#m\eXaiEN56-VCeXnygNp/s8b.CD(Gi&kTJSd>y/fãU"9DbPF;##cP)3ju8KK*SxyMR8)(5>Vd1S[.o-cpAYG/v)_sUh\j7IGqQB4[)aquDãU"=o,7_?g,Qgo#?q^lC::kP8Lmi)Uyw[AR(20:z$I?JIZx8GOv=OMb52K%K1T,n2SãU"f.1dq(%nm8#CX/S,vJrFw-8^3L5Hlb\Nl]Y(%*J?wc6'=hodrpgX\?(;v+H=n%fãU"ufj,(I.J&+>657fD/yIpU1Hi:dPo47VoBTI-IYytWM(*9?,>KlQ7tG_j=^G;Y]\ãU"TE)=/duiEW=<&7E8I[Zc,hlcU0/,oMmi\/'KC71%K)HZD$RLWZXD<;TV_wS;l)yãU"jcn)rr=Imjm.X5ZYN4JcA'i6Dio6/0v8zIIeG?#Dl;:CR/TemJwD[r')-ãU"P_9:6mS1x#'N#a>QUP1LMyp+aD[/EaS*'3LP]a8[\cbqguFN4cãU"gh=U+1:/T2*n1D$2e9%d,2R&(Vv$%FVU21e_BnKoEk3)inyR5+&1_q4-:hn5hX:ãU"k&w)gZa16mWUM'1A^989*7OK+^KbdKpfF,B$ZBW6[1XC%aaz8QZE_a9]jRe?9E-ãU"(552[yOXH7?kiJd,q3*r$YuX+rTL0RFQiLh_6:)&;H7'I5/Qk?6jyu1xEaitp^i1l1]_TpY*CB#pl^v6EJ3IN9(*n#RWa8&BP(Go0vb6c$pgt[QM4G^t<#9T)ãU"u73SWW#'&P5cxkr39oD)S]s-]=tu'Yn-Y>%e=ITjrv4v2LgjiB+-'wl;4>[YyB(ãU"&EvPK'KZhCsTw(&(:ãU"wQa$9qtf:$ML3)CM4+c,Q4^SU8Jp/kON))1N,Bis/[TjY$jeBIGMNf6[w>tQVsQãU"uFt:U?q?m'81S9gwLQ%fw1L)(Iv6>ohZ^v=n?t?jR&dMq7I^5>-do#a[E8V/TDRãU":4bs+GOH>GY(d^f,5^<$p*U(5CYl;L%&Cg)4:uXJgk4IUB+eLk>u&qM$fZnb2'dQzG[?C<6$d[LS24('75ciF##zOq-t-ZBq;7I*;,^Id_%<<ãU"&cRK2u0R;*Vo-XDI/lba\pCC5k>Ls_c^R>mfgC1gW/ApVTJYsTmr5zZqN-=woGQãU"0pg'F.jpG/;4fYJx\;6&NTIH>q=wiX/pC5I#Y(9BV'C=y6I%/::EYRh*I>w2ãU"heTvUt'k?t2/)pU;zx6MHB(Q+Eh[9Wt)X1GgL_qT+#iw.Qcst/XG,5/X^nK1B/2ãU"8Nr6+F$IJT+Qi=nt4fLKltpWx1N*%/GZ4=W+w<0,PH1tb/][g1LkEr7_]Am8hO<ãU"'2HreFn3:G*(mdt7wQR':7DC47>c0,^%.5A5-1+m$6d3nx5PeRBD#.muIao2>u4ãU"Sn9JwgnqD5\-[CphL0J>KE(Q8v[q;,8b71i+GdQ%Y5I:kJEd8[;Vrq+qMPN[R#4ãU"NZ')ev#bQjBP1$4YV.hau3<=IqN:M8Z8:4rQz_0ro^R>l9ja1[rzqX'x\;iWp(WãU"2wA[nVVBxG-NdzIQ4eEm_s+k+cxw+O8R+[&Qc)Di(EnVwhMFrHLx\%&)$dk\nckãU"HZ;KOWQ-'pHAVxW'_(Yi'O(9i6*Sit7i'1qL2#j[vluTY8*Qv93atfsnbmRLUpBãU"pkSj:XN/ulo?9&W?(,anB3vx(sDlpjwkZKJauxt+Cw#SLt\I2j6,3Mm3&jIpONPãU"2d-WnaV\q<]501P73*fc*5$7Lcc>]dqZ:p+/Rz2AM(G3jfQZh_ZaBbO6B(7BD/jãU"Bn;V80vNmf0B)OJUueu[PuOj[w609oQ(dtZ.+r38odjKsycX$-d+w#3,,G]$-QYJA%6\iOzn1d69+^pHLHãU"k#H6N9mKfr+^aX&3Ai5,\:DjlWYlXj>;3YUi6\/3AYt+Bu^4;$I^zA$v?2qNLX<ãU"?Uk=YL;UmX.K#H(RpY/b=nX'8tO.U2U99#ng-ivyh#>g'eQ#YI,>>Qj'hwR9.]FãU"a+(l$9/uZrVIB+Fig]ipQ_bB+fb%qSUYU;U^Lfg1)Z]hjJ-1=s]*_ZPPdlTArC]$TV,v+ajEml'/NW(JV,%'G12^aF.hH70U(xbaPRB5BDãU"3LNtHp.LG*aFnEX8SceO0pEdHJHM0ADjOQ0T+b>]'s\ZA)Wd5#AY.)CkrLl,;AnãU"gIB0rHzn^n>uf=H$Ge9Jx(NCmSTPB&5xh/JFiVzW^14)=XBluOm^yTKL3z#o8nUãU"n<[J+3Sar+TM9(T7jb8RcSC5%Miu%Vbto432r8,+]OEY(R:e3fnnNt3p6dF92lNãU"R;?k9?#5\*Nm_Df(Jyi5*RK_:9DJYNcUTj.\W22NGog/F5Q2*w(ote]BuK;SwhV9S(Oipu#Y5Z$9ãU"uAtM#m;J1(F+lJj#^lvZPoK)?rwn5n5NRB'BCgFW(oNNXQ)RF\IY;Y8YiodNBOHU-H7TqjãU"37R,%Wh=a*(m']oCOX5MX#)r:a]Z%f0^Gm(LakmdkDJ6N[J'fp#u$PIwLDL&.&:ãU"ZQ'x+FQ(uUp:_wN0v;'#QV,U+q,pgp6.DCru6rZZUhI*o?ãU"a2'6/&dsa)=I93sOm4Bo<#5I\71>9tieFz9#S.CpwG?,>K?CG3K'Q+nwt:t-U>UãU"$PD\R:RjpPRST5drzh;4[hQ$V_Ak1+)B'wB)xeyAhS0fBB=OR5u:'2l$XbjI\FFãU"G8oVP5LV:GNEMJz<;(DIZgkmu;*=6*sgYyyW>*>;ag2?KH2yyq>9._=WuZC=2OqãU"m31[;zZ>M72<$_1Iq_#Qs[e\qACa7/_TLcW[/nce7XkYV7dTIQttkFUk,RH,9>IãU"&cji=.K8%X'Z6L'_Pe?18+QFZM&fNUvCfk\uGt?Y0=q\?1m8K=BHQe_6q=v;+JãU"i*iH08$5eE(^b,9T]:r,k/aEdUJZh)E=Z=vcqt3.wnM)EMvv2j'qMLgbxsF(=yãU"0GUU2l+>u#Y1#1CSVLY=s\F)c;flln5fq:bKuql-d5SWzOZH'*K%bBB$ihi_Y8boR/&zt+V>pkXDFc>k%oK.B7Y%$t0,q3M7js1<:^x0IfNQbc)Bx]XãU"(i]0hK&W$X79^Z)W^s1p\EOzbjbaV:gO)(>1w6ãU"NByOL0Ab0.foHe7-2eYtd'NA4dW#^R;o,.+qA+,Qb,pR7sn.s#B_*?s30LR.*\HãU"JfOCb.qFbS4NC8l%A/A-YBVo3RjO?BL3;L=<_#AE,89K)0]pRo8X*1A6>V:$[5.pTCãU"b?=+:ZTo1m%?T2*6l39Zu&13se/jShi'0Cb?Z.f&vmE,cY^ãU"88THKa#>G.UiZsg_e+C[WKGn'Gc#JO$[Azji%IpWwPO+1ygm(7>#'Ll+ULVR$EED]1=aWk6QãU"hlxCn[orI;B?&yM:\yri*SUKtwB:gj]LTWm3c>3lIe/$Ak>gL1,n1h$m8dPAVQ*ãU"]e+dsg+pl]S(We+]\+QaHJ*+PimmuGA&n]bTH-^^WKx>],K(3Dgi)NEwr91h(3'ãU"w*Sr(>99>L8Ri1x461.o>5R>FCHR\kN/O3mnL\0ch*67V7NOU$Ki\,yC\deTxNwãU")gsN/6\>(St=$T>&9n:vY2RRsJ+H^/k_C]$RVoI8Xz<)XKNsjhEOl-f?8o*K_*VãU"=]MZw4/^QQf:,MY)GfEC2E)Puq9ãU"(V<,rp[h#X$2kgYf#5kj>Ld-*<7Kh%X?,h+/lpY$&ne\,MUZr\?rãU"_:NHL;B2]^=H+)ixCbTPkJ6^d[U)c*H._uKgW:G,0X1TAwIJ+aJ9h[X1bK9mg,0ãU"&Jij?:OqnBRhFV#2'DIi\XFa#H#0w)cOD/[?5QTyo&S/O23-mY^2MYJd2hc?-2KãU"]RntRxEQ=o$YMFpoN7]R>y:pef'W:)*PFO^sN\ehHF0.IgA:;(OKSijH1Y_WBR4ãU"Loc=_n2$p^'8Am*u$X=*=?YX6d*H)-$%NlT\-5h&7sPbjVa5O5Rm%[7CiD#k9B7ãU"QV>#e,faZDI?6o(bTJ(e.QWmUe)H4O/h$v?GWQn;[KQr+_1r2#Iej7rw/>72G[VR1Q6*/$p-p(K+*.jTEI,H^(HH*9T\nyR?#9dãU"4V_b=z,ciNn\3IT_rKk&.]2BãU"zqqJ&04w>w.(m)kyMwnL)G_m#Q7k\&qd_TDRE0r,,UUu9Pnu:[PN?t[?VupOP2UãU"UIpSE(FUuy\:ch&qPYTtqY#0m<2LWBgãU")*2''4N_#W6$wOnn/_OMO0P)41BTIGupK$=>Ow8Qze%3fn?=t5QVE5.c9uiMy)gãU"GXJ$g^UU8ãU"MQSuit$IMqn:fod(2/]q?#E-<_lJf]8F>GGKIN,ToJ?gqKl-?k2#o#/+YwZekB6ãU"wRc[(9\saIOGI)UCIdHdi37C3wF[,ZA_G-=1VeK$9.4xBpXF/sNEo=P6R%=tL.M[odeDKkM^xRZ+m8Lt9ObM;knH\qC=/%l+p\ãU"Hd_\r)1J29O9W(Dl,aJC*ULUH\ms1j8XR'PK6E>D:Uwvw.AWqPYNo^Su1:KXEP2ãU"LY1]5I]&FM_prrLYKuJN7m%kcuikX\[LYNKMMOS)v%n\^uPc.8F9jgzHDeTwG1sãU"QItsC\9wtr'dAC,*=\)=[2Ar)'8HtlsFgC^m_icqM:sC8I7XCeQjkXi8>v>qTFCãU"-q->eCmNZMZlSj/i;peqs'Dw%GyreYSbCYRBQ.9>(iRzzEvg>4ca>vI_4YRj$V]ãU"1B91n<;hC(-=,^V=.3dZ[tm[uTOgfkk$?TsGJo'WaB1<2d?:b8?haL%96GZ8*jjãU"?Fqws6tN.wd00_kLodRtlp$,du;\yjeCidOWJ/ody3Nw'Tkk(Fg5W)Ah4CEB,_>ãU"doEl;BI$B+,P>fCHHgHAFJxmr)?%7j/PUVw-4'XtT&v9cy(eVZyCfWQRN^YF<]AãU"V#NDWlS%=g.N5]\X6(OZ4p1gT_fzRu8mekl;A#8rUS07plLUKBJa\z4(G>BC8&mãU",KsZLFb&rCc)0\H+_H;A.q$eAHeO+W^O&pf=9g2vliiGZ6SRh9Sn6+kLnZ=Z;Z>ãU"D1qPMH\65-LMr#?sBuWt(LGSV*-HfakrBv,C_bdi6UEf.twI221twIXp,SELi&;8-G%;5u9COl_R\RlVRC8c,][lynuXfRK$6/T\#DRo6msBpu).'l.N=ãU"7/P.Yh61-f(U_9,:L,oZTroM:hV(.QL(Fk.?.-Jq*a31b.(vjlp>4+H;v-z[rDjãU"ZV$)7wK:NSjaaSKEPNnKHdb+O^,$Uc9mM5McLd5J71r2PDNjWZD]JjlomhONB?Wl+E+sF->+DS0-Fm6Qdcz7Ns*=Sp\(sZ9KV6m5GV&B7nFh_:N$$bPV7CBR+(ãU"ifLq3LN$0lVkLytmxKBJ:'4Bhx;t;YMrN3NE%O8OA3c$5\p8K<_pPHV0%Wk)gnjãU"Kv*'VM3WHh+L%6(HyPTtE3,$o-wg-;mBsPnC+qJU5^4$e[EqD,$k4UNoãU"_P(x';R7F0cdSoE]-XmpNGKn,eHgJE=k:MtPKhfRZ;ãU"q?fYGEnb$[8xKO+j*9wr*['8ãU"PsQMieYbCf;,C%&N/ZZvB)Fltr93:DU?wmbTCT+g18B>og]'$Pq'tdup%()9%%%%-%:%o?;/tNe?%ãU"L&%%&6'%%%1%%%%ujjp%utpj%Sfxr'&urp]ILrGYa11.\N$bf$ãU"]#1DSocI>SHG5W;uv^dA5#;-b>nOhlca[LseiRO&8hC[Hm>_DX7>^77b#^+EN3AãU"Yq8xN_lk#A'pb[^i.#+nu%p()9%%%%-:%t2&%JjTg*:g%%(%w%%%%1%%%%ujj%pãU"utp%jStgUo:Y2'YNmroFSAH4sNB1No4muuG99_9[C]Da?9#YcccBY-hf?D][?6;ãU"c[[=[uA[eh-[C?4k1'h:lGYpAu9ECqaC='cV10]ju>;9mJnNMQ%Y((Hd,mJ1)N_ãU"0([((,AI=5jnSPF,R2TP06H\>*y(1[11kpV>QY]=*xtD,,#Mm1PAs^3VQ'M_fG\ãU";1X4&g==o%%up(%)9%%%%-%y[Z3J*]+I^a&n%%p%%&%1%%%%x%zhpm%tqjS[lnfãU"e35NKA$#DLq2yu5uoL)Bc$_O?wW)+V;0I(WwmkYfI;]NM1##y(qAl+)9I>jXVO5ãU"^t3*#u9^Pv]Kz5iZOC%EyW=qR)Sj\4#Ua%4-P<]QL^CE>f18%_P^s5]k(^?>B_MãU"<#jLOS#Gh4OB^;ZEty,s.](Lc>JxVd6PsKMa1IxvYycNJuXpWpZnA#]XDvQLKpDãU"bFpaKm=oj,gtP4rP^jD4.7qB.jJl6>q5^zM%x:[#xTrDLk=iJNL862f&CkG]&^cãU"a#cu]JtasijV4bn24uK]JlCq?q#/(*IdXhY2I2MlhcN\bIv/mP+bz&?xDhs-?PcãU"clov4l?8r](QN*iv-f9d+3#7XjK:n6aC\n2&9ZbG8;YQT4KdTU.a0r#\T&=rw[[ãU"Di:+_/0QPHBJe$W=4,Q+#G&$-=]WEAyAtlcSGx'ZfAt7REqNWZ$^_5%P76OaqR=_',\p,]GmEVeDK9;4JW4ãU"s(M:5b()RE5Z]kfP3$4Lv2,&i+J/Jlrw#xzmbN.^&NGCHo3\doLFhn](bLbvja*ãU"0p&vsupgM62sTo[U_A6Ad;g)GEYrs;r8b5btO)8lsHF(Q)^+-J9XoiuLlbu_Wi(ãU"CrvM8'mwG1,W_nD7Co:Y&8Qu(#T)S+o7jS6[NW.N:h8A#*5e#XuM$&KQdc/&YVYãU"jj;oW1wfuB5Hu2%pgNuQMU;MIV2oFe^=9Uk65n#abc8'j78%;T8c2Sutgmk^7DZãU"n/0'e']l*AL-eR5odxp3\d%'^:14*FNJMP1=YmuRwãU"Zco.#I<$n#Sa(o_0T/UsI^I#9yz/rVpOFJ&[yPO3,S%[z*dwr]Tr^,tjQ4\+](%ãU"TC=\sf:t5d)FREQX3C.6akG)Z?;_39nt-c,'iK,]#lfjT$5TDwE_ZhZpX06grZSãU"Hr&c5YqKx[BUfB9xUC'J4_Y\YBKhZ:EsBG_YpPF;SJdMWm0+Y&z:i9*N^Pf?KvuãU"e2[1d+>>t+x1z3l#I]tSBH1H_P;ot6IPk.e89^[>Ndm*iA'AWgy3E]u.8xOQuEwãU"<&Z+q3TIy&,<[f15K,Gy40ffd$XxxnVHUBNEGe>r%Z$-2M\N(mGh*m4Ks?sG%,[ãU"tc?JP_r)X90^yt0S,pMP:T\gk2USnC$EdisGhHpW%i9h,vN?L770te8z.W44(NIãU"]0Yhu._Ak5B:NgP5frK)5?JDy8B^1RmXQnEU%n0..87oo-haZT(qWFYnOkxo&(NãU"jcVKC?>R]fYaOVZcs&TomLIdw44s\$EiJOk*M2yMMz.,uv2WF:dutz.MB2H28wXãU"zt'm$vud\2&4OLkXcCC(:6snr'z5e*SD[:)kFsMBOq2G%UgRrNãU">2Lx&d$jhv8.:_m-#p6z\EVz7DR%s+p^Q>S1GqEo2&[cJpeo&ubP=NzKA+[+s7hãU"z,uT)WmtQF,J*brwwN$WgSI:P<3l69gc'Q6YecHFfQvG\^prn?d(_IAAA6VoJm^ãU"JAu(WI*ppSn&[6oH9:v.*L?39GZaHJK=.m=fwyJ+b-gDiK$oKCfq;6xuj4dGTTFãU"O1U-E9Ip0\l>H><8-9Qmss1:)rsf=ef?ep%-1e,*Dvlg_80Fv-?6r=C?g2&R_RHãU"Veu(jx3F7Mo9SqX&=:A_%)dx$S$;cB):td5)pWVx9g0;>vFIBcfh0-C)ãU"3M%=67Ta[l(,ga>58DdYqUlQJin=DRU4\Kg-biI1oN,\4DTdrvh*x,zcCV)PS_TãU"iM15%WnNb<2MSM$Ee#Wb3360vMIkU.a*yRO;0vYy(gN]4dh$/xtW'2aVbJ0BXi0ãU"StZpRmt00k8qBIE)4k,]T5>o[GVcOC\S#wAo*1JhZSm./%Y\_[X3u+s/^E=uOtRãU"Q,ecp0qW)[b,MVwK1MW\NC6+bdIFqnD+GvHJS%&-]Mt9lc7FYe#=nUrY4;3EYpfãU"W7kF>4;k7\Fij#Pch&TXLj5NK.1y.c^1(^*)FhIBpI-2'iv&xR0d2G$Bn0G-B_JãU"YFmkK>MY'Epo=sj3WFEGGt^4Oi/BDUU:cBYGo)/vmtBfgZgiQSI8,;sx3b94$QeãU"RetF;q_t;C]J0lYNHF2-_IGm]u?F?4(Ks8RC4.N0&d97lENHLCrc&3#c39Uzu1dãU"Nuw%:(:i8Z4FuJeLkc)Nk)/t$Z\pi/pCvnwGB:m0(kZ+:d?m7>66TpZKcwewL]6ãU"4yslZA1(dm+67Of]O[h>^,J2;dãU"mlf7-Pd5Nh^A7ThDqvp92RUC%$oY;(\W**ot,JcBqS^jrJsRZlTkF&aT*Aq-ss+ãU"ZOxpd,ml&o(>/;_876Sl'swLCd-<,if$aC5t?[<[_'BsNq3%;DpZ+d8po#x7kE7ãU"3T(*x^YKvy^K]a_-He8f#7>TfbOk3cBIj=Oj/Hf+ufkUAsLl)=>J7jV:wq*uNbnãU">EãU"bZHaQ0q#g*S.FOo;I8^mIE.J]4afFj&J$]iY05ms3fAecD.-i7^ãU"kkCtK..A7HbFlcK8mQ%'Y.J#B#jTxE;,3*$6::?ãU"[G_ah-$^1RR($?U?lZRdeJ2C8.)CWxoD]Z=(x)iHKX[57UgkqJyT#KJGb)45/O:4ãU"2e0zGA]R2^]7pmLro,blp,0)$2+Qu4_eLD4g650cOZ(=(uWM$[/mCscZ^'',%e7ãU"s);+z9OFdMT.QE;4iImod$5bdi:pvhe#P,CP.YrTbWcQOQJ(6IYAK?:C1(;/RrbãU"ud=q>QQ/lvi.HL)^Q9mUT9\YL#/OioãU"M&ruemil*a]=G).457OjFXll-L1Uu[^=Q(?Wo^L3A#EL#6Xho3rãU"X-eGS/8p7yiJQkDun0P,Mio59-qEX*Z9Xpr-NNgejãU"QFR.q-VljL&zM\#g7BZaWvx8VVXw'4.?m=#4qTD7.[>'M[#gG[Fq$6Ynd4x;Z/%ãU")Cee25O(*?'54KJ8ao8N15%TzJt\tn[4#V7C44AxexgTkaF?6/R_I0lLs8iqo$ch#Gi,sYN-fU=N8a5,vdQQDlJuDUsHbzi6$2uãU"nr6nbC9UrsW:;1J_b_c;l#h+n>UuM>+1vO;J')V_.kP^Qijb&+8l,OH/1le\z\DãU"ku;o?LnF^USrT\]%EsG/r6>t&=%'Fle#vQ4]Qna9n../jCnt$F?$ktXEbfTG5KdãU"JKE?G5fPo=fI0GT9YA5,uTrjC-pb_hTl;ow&&;#J3'P;dzIt+As.Vj(.niDx,mjãU"S&X7sh<)-AJx-wZW;e#f]5,R\m_&b/ovAoS9nlhb_81nH\=$Gmb$,v6bt^'*m:lãU"RF0AW0kbNlV$\t2]h_yXsq[706HrhVK9&n:3$I'SX-O;PuZE,p:vT*#oo-pãU"=(HJoC-P5md?7I\XWB1NW>KK]H(f:*7*:/y.K'?f>oXK[+CatITTrRbivu8*V_/ãU"j\Y1h2ObO0gisPIcTZZUi=AM?P,=T?eog^AplWkX61r6c]f[X&ad0U&iMCO1E56ãU"Ue)'K=k:\vl#RmJvL=*E^ASW8d5ky)6?=rJD\.Q4R^+FmO?[PSVSOweUV,DGTkSãU"fg\pdPu,RjfYe%:Mbk%NgbIjRmB5f^CS#?tJ]UMc7IJ-.^LQEL3Bk;>*08+ZnYkãU"p,\W/d6=rq.bTov>iP-RK&^/r-3sb85V9X1xV2tpw:Z8j(5:b&JckeLYZXJ$PL\pI.ãU"/99RY%<:k(?YUsZUo=5,KX6nFf8kT##*6]u/XKJz(?#8Z=FickBq]SvLu\5TnsIãU"'5RavD=$2#k%^&xg_lD2?MHJ5qATCiN,6gAOZ%/_ly#F(Tb-84,o.L.v*jYMhp6ãU"K(Jc$6#aQl/tN7hWRkL+:Z5k0Q#VV027GS,3GLwPsZAn^+'g0-_*1T=:?d)-S5$ãU"jbdfTi_1<16/1MH(fay^x_Wa=Q(M0?OF#YhN_VGGh9jTB;pqTDTqBab'k;lebL(c]8b]2RXMj.X\,6L5p[rrr8Y),M_0ãU"'.Om\lRo.^aQbrsv_a?T+=k9fKrB4qSkE9;L4uFn#P'%D>[l<>jmi_&m_9c]PZ.ãU"0\]C=O+%oDu*8[(MuEf,56>5SUe_I0IeE;7U/feccgjlyD4M,G8RJ\8JJ0mãU"ez,%iNX/0]EwBwk/rSo_2cBdVT_ldQ&Ud51(0T;D[8:1Y9UObD,d+SFSRPM+b#+ãU"ql.FD[8Jfb/$%ROn=vWH91zDVn.3;79?*]iSRLarG#71]c$l/Ww<.%bz;9ZA5cjãU":>1M.o/BKeI-tS+WWsP[g^ibqn0'D\F,AJCqX76RK97mx6J2&9^5u/6EI[.5a2XãU"*pTL4DY77/wp44-^gwMT_I,L&XFC.MGID.ak-&0/4/k;XVRrY[$+XcnLsOrnvN]ãU"rKr_8jZtiP(*ãU"Ibh&ThUUS'[rtEORO^m,MX3U\.uRUL:'%W,vo8=()[BJL)BW/se[1X=ãU"7&lQM#le\Ge<:tX1AdP9=#q:,\]%.\TK=+Nr4V;R#X\#8Ff:M'^?61C*v$2;K3QQ4U>PRm]gSiDMor+s%(jZ(+9gK6.Z6h;b&mE>_8+4LW%3*k'1';%J7pãU"hi'7T\_\V_?-]9M;]=a=:ntVO*D*fr-(%BK;j1\Kx$tzUE%8=W<6EQI'&mlM'C>ãU"J'b<(SC_25CO1TdA-V/;xWf>deJd5y,lhI9f[Dg3c-xJK*:YS*hIfNQf69'C%K-ãU"dOX2tJ3'dGetRpDuo0n47.['*_[PrYr^s8>khCS'Q)<\UyYcz(#iãU"a\DRF2sHu2ye9;0vnBnIt[BR0vUCYN4ZE35a;/1alKnC.\'=zqqzBU4E^Yp,Oj8ãU"OD9Ati26aZqv5?OmXmkB'62MMrePegk6]DcJdbE^GqN+F(9tb9)D2ãU"5*S/1bOLrhW*AesW_sg4oWV(mS\;R?cfS74C7J]TbGlrGAp(Jijd(>%9bR32xPiãU"LwMMziM%poBum;/YhH7GOX[lY<7(N6a'.K[pWHJm'-ãU"$/:q1v=812;9;5Zqbv[Ulj9\L#ImilMP\aF?F:ukt:7fXWGp^<'i*RE9+=sSBIIãU"JIr;\h[Z<>E9MIZ/qhVfk9j+<',STBB(&(V.DA7&h69r=YNl,pN>-N5s0TLiFibãU"VX=HwZd4[mDLXXXk*ko'c<6oD9,jl(&ZIgVz]:8CBLUcTZhIk6orq;mV5dC&ukwãU"+oU,/G]xqB1W9NR6r?z;Q_I/]0])S0u6QME^>&:ViU4GeM.-($^t4wN+'e?gkr,ãU"FO>fPkmbJ?ddDp7]Aqiev12mRvuCPIT19aJ1g(F;u-JVun6%n:pV0tdsFjwL?06ãU"3''Z^Q+JS_%HiU4CGwKgqAaDhE^f%Bn);UMf0zM_nMdc#09P;=9,<1mc0+ir?RvãU">18^mUR+UFE,9[]Fc;8C-/ur17P:?Wmt#9vi]QpMS;b;dsO)4Y6qBVWr&U^dcN<ãU"6RIN$W-$6l3kS9Mt,wPK\Gg,F?,P;bA;q4g#-ZOm2I4dc8Z/[Xuy]$sKN_1z9XfãEND SUBãSUB V7ãU"&d*z5^31(BF]h_>6O0bo#4c6rrOCu7bY&r',=O-<%G8N:pH-FsnS?#R/Ggq&lDoPh#Rornl%T##tZ9a>2Dc1[$wN(noKpP+'sgVx]dtrTls$sG[1TCrK$f0A.O#4\a81pãU"S:b($;/l(Wx0aW1kOH1a>aA-A<=NVMooJR2BU/q]=+s0\]py,Wc$gM1*DUf)xC<ãU":F4oH/z1_mV&]<5CHn]OGYNC8(QmEZ?hsvNm:rA%urqdjJX6Nqhp+.QG,r(b9rXãU"$6#DX]XnpgXNUDgnjed<5*$M'v3=1vP*[q<4AlE=Mu-bNG;\k*#YZW_Qk9'\'oFãU"3pGA9Hhl/AaZXL%hk:&Rr7Qn?-F2'aU\6=pkfS)M:ãU"0rir7ca\,Z?jV]+D>7e1%XV4gnN8)=A6-7tX\GHi%:7k,[$ENl+Nqza_&dJxE&DãU"akH4/h8n/x_sW&f#q4yd_.,(hRd6Sxi#HO]pDW4J+5onqAg\t4d1U7n1)sjr%%?ãU"&,TW(^3-a\K1*2\e=r#\vKl/,F-[#/n1W5L$pMr/Kn4(OVbonYw^O[QJ8$wV-&RãU"$+wOOb]rfMt3P7GI&VY#>bhu*:8'jl+Wcuai4QNaK1o7;;;,P$T9u%^p34--EHWãU"/UTl%;6(ZH^BL*uGc>Z9pboN+<^Ra\WZ[?VSe,)=$p3jTBEUWG<_F:O$Ccde4#PF5\kxi?nEsng1z&m+ut,kr7o.d6#\f:a9)CH0Ow?JMtãU"0;(JXgv_f-4m\84vE]5,jyUdZJBx4aGF*nUt6x#xkcP,qMRdPzsr(H2.X-BGG#iãU"%KOtcMp$F$tg.b+b9C#?EdV[5WWsm#T7PqH-5vSHG.B4/V=:lFr9i\f.Zk-NQKpãU"1x^JjqhVCLq.'N#M$Bbsta1,#uW#VV(w>NDv43v\$TU\b;+b5o#]BwFG=#rKi^LãU"U'QKB^#v1[[znHIX\R3V(+MmC)eNuFEqfNmsdxhR[KkHuFH,_L70Ex*ZF=bDcmTãU"$*<9h*&z%M:3hvEEQTX^IR&':hhA/W,&frIu*r4HD:xK$eCe6/*h0)0wZVU19q%ãU"jKU?5riq(de+bR)vEiTd?EW]?2nLoV3GCR8LX^iRy$B,peSYeOrKGLK5)=(^tRyrE<\m+c^DU[kãU"2'AhehK]4fRuscJoEDl9*72c$GTVhs,.%_B>Z\P=wqA8_4>vkjif7*.,*4;[Ql0ãU"/UpmXq:MfhFD6V21lUiVx36A-Sy*XfR)k,JU,rL=cUD/#>ULuB8t&bdlHZf%zeRãU"eMLU,9saaP;3weu5.Y<_8_.uF4G)oF2Uh-wcV>WGEisV)E'(=?h$wA8mfE+KF]4ãU"r1H3+E0j6KbLEo/:p#oav;0_ShT3gc4w7eQLA?eFwnMxWxgrA37OT47ruYx,dYpãU"]V:\g&9zj#yZ,tBZdvw/tQjtK]#9c(F*=#u^PZs))#kLsX?nLC6[ra+dtiGHX]EãU"aVj/TuSXP2UTmVX*(f9.gl8TePt]d^uI(Wi%$.iYGY2mVw<=3L%XYN5QãU"k\rL8\dp8Bo0t'Sc?52\XfhN+E?1A]a4-%%(sD4fsoD4(i)*-QOK;vIvlrR3s27c3ãU"OIjywA^)K/2ekHubg(0w2MVcK7wQ+rYBo3%Bw'KgCPuo%W)E4^laB47JãU"[^^46\mRmx?AVucicL>j=Fg/.=0&%yxKwGnv2R*j^RVua_1?:dR5f+Ks5CJd>S/ãU"G;kI\aggjT?/m\pdgrc?CPN(g*ZdcqnjnAV)=Ft<ãU"7z*&b*kkft*M_vd3:e>c-5+7E5bTqhIX^-7\lw4ib16E,Zm'e#XQ4g1f/>PsIYsãU"P6?TVNzTk6E3d=DUl&\q>Zb,vhEr/'G2+oqNcXzw+;/+MJ#KcX4do(rN;t%jIU3ãU">:m,FAH;D5#\GK]cs7K,57+Eu98rdMdd#sjUKeC6K,7>0luW>i+mdQ2TG2(4d]FãU"1*jLC1RFl3KN\?lQ(bE7mpb%c<)$;Xhh6Rqm9U$S^v7dVLQ9C7]*7;k+89=*ZODmm]]SãU"d9kjB(\f6=bopQ$W3S+EM/ãU"wr+RSFLXCPb'VhQgf4x\Jq_8n=9#T_]Je8egc]8:Crc0qZ4]G+ZnFYs:/8]]j&AãU"hi;%Ml7uL5fM6s8RXsmeUFnlmwMq14d#65CJ2<443dg0$DK>'54c-qMksr]U_/EãU"C(xsUa':knC#mqjrV4A0QDQC<5oiA2_&c6IpyN14[\2sinpIk1l^R_6Lc#nR^i7ãU"^%K&fYlZWgJb?pk*Rmw/(VD'i.#mT(_>rv35GlrPjPl2OdMk^Y*#R$/DVsc*N/<ãU"Cw<49gRFPNq6uvalXma&d'j=jEV+Z#3]Ma,i/;,LNaS5Gmm*m2^w/vOld\?f)1QãU"u7GfVZC41G6va>56p+8YDRwZnS-:_Pk<7XJFsM^Cnn+ZxRHA?i#Tbp^ãU"?Fs46VK.1]-R^D&6Tc>pUirv37]]]I\)pKsPYg84#X%f=>DrtTw[y.r*uT9uUu[ãU"f4^3.mQ\bx3JJ&e^B]rX^[_<-m1?VrK^%3i88nj_A$qW%n$H7/XnpjJiArZ8)N)ãU"_TkR&7#4VT-km6F9B?G<$PNr7oa0:eEeFhE0ass3%RG88hPnIA%bK<6ppCi9fWyãU"FWOJR-q9&)6-BMdDULZMG:MJ448'94kH6/^__#gUltPgLa\KYwPJrm*Rie;lc_cãU"=i_rumVA1LSj1h=C\hUl/Azl:)=MGac>7cTTA\_4MH\)F[kbXUnGPh(^QãU"BJAT$^QivHfbg_&%VTRdwkUs=]8tNANV4(_[jA?.Y?[d/]XrlMDI9P1:=hcR3X/ãU"ndT-l-S'ML0t,bNJM$=8+/OsaR00]TdbT:'C%-eaU51+,sL5o8-Zk:CVZi]K%]DãU"Ek#j8t'TNC1sFSDqTf?dSHLa8]KFzIwIJSx/B?+RoooqUNjvt&FMR_h+IgSmV%yãU"Iq_Y&D+1\H=mKmhctn6d;s\>54#83f\YFRJ0lg#&>g1CG-0&_[K6A#w[\EV8eT9ãU"5F%EvIQGtOFk^+b?jS[\R#JSd2Xtu5'KQ0IDm+VjVe=mf([rtPOSc)P>V>N(s:lD4*S:AZban)*uN,AãU"0)wngrLR1\ZlJutdKqqf8_g:N1qp^B]QE)8^g\\K2A\+cvV[K8VTAilpukVw&BLãU"a=:N3'uf0ajvjStI(^Fe;+m0I\U8iQ[VWA\vj[nK/%ltRKIPb?$V)i0VU)fWnr,ãU"KW]z?GGXd$_<9+;rH+ts]fOTW>\-J\cSuO0ss?aVgE:[bFw_o1lg.$(4&354us<ãU"3In^r7MH.iVx)iY;6jG?:tftfwOmP(c3bb,r;J^zHWE6)CS:i/f-ZAH;ibKaj.TãU"GT7+CM2(Xt[J2MNp0ZU:?(t_/*_74nzP*ELKqKãU"7;ggf$#801jP#[I2W?QTChdtF6eIk-0,%8^-KgnLK,ql##>r\<8Vcqs8%a-/s08ãU"-RhD'\t/s2C$sSBafydWz4([5Rh4Q>7FI+2-Lu8yU8hHMswC\%=]\VArbp/w$/$ãU"jm%;Bqc$u0D\Kt0n>LluX>0Y>Q&W<,6Y.CoJdg\5>EPnHoj6'[Z)?lHq#OPD5mVãU"nD3I2gq]NFk9=MX\VWs6dLt55XvuB'p8qH>qN>z(&2tf3sx$cIBwuxdxdb:#b$+ãU"LH2knl4Xxh>=(usKvx(Hx(4-gdG^vAt>tE57hktqa2TIlIHO/lk^iL,.7\$-_H3ãU"h%OP?H<\[Wut-2W(b^MfdqIm\*4DVBCsZ(LG:sfAvL4X^Y3/r5Pco$g'MgFMGToãU"P(>kBjO3=y7B1>jAVwlJnMvQ4\XB/Ts,lPaj+4dN4#Dq3zk)9#PqtG=,'kGs)IzãU"5xSI99bJVpuPSZZ**NcaCW#3JPbFVhCh+S_*>+H6iF;&9uU>>&.Wxxu5Gj;6-=DsJiwFoaWXduoGw5Q#M#OcST=m].br$KfAXn*)GSXãU"bOs2[8$?*5cGWn0w\z8kx%MVyHZ1\:B^PTJJ&w0bgo;rwMtl1HLoid;UpUXC5QgãU"XH.ZZeW?gsHD_UQAJ-NX.^SSaQc.[QqSm:4Np8>T>2U%MHgP3)ARL5S>UQs(JUkãU"nZaM&aXnV8]a:Y?nxbNfj)Ortl#lUV\oKJrUTNn\SXkYptVS$KXjU;QSGOmo1]AãU"s4S:%na_.TEG$05[0Q*jbtH]s&h:_^lj2*]9r6rY[cr#Fh25GqO8D0m0jWCiXLf+\Y:d1=/t4KDraCsMgcIbK0B/];a1n;Kt>:wXWxkd&Bhhm8=ãU"0ChB4ZDUW_(8):gELYpd>T/'x1KSIns.iXaF9,:e]E_L(RgHa%&4cFD/]>>T7HAãU"D)i?D?u9N?%#TT\;MPfO5/j]t9Bv_Zl-NGjPZG=-Nn's?SEIed.twx0_uN=Tog>o5vX#th\4mYQ8A3rQe^Ln?XdK'&^x(f16JqRW0f7ãU"/-sd#^6FF/vgcfx75Mtxve6yUN#rn.xl;29Nn5U='iDe:2mhrd/6tqhn$MbWoI6ãU"fDl+b>,MadbD/=w-v0c]X<*6x8TFB3akfr+aEh)VUK>#[Zt*;A]0s$#VsM8/ubUãU"U3__-eS\H:C-$^3XV-TdVlxPF?Wh0KFkvkDR$R1JOG]_80=ls6bc(l#\0_:#XUk)APaa?T;oT&8Wcm7JA>/4vaNAu\ab5F_h/##ãU"o3B[8mxR.MXx:q=\VSX.CWO'_=iv)%#>$'ZWk3TZUK-.Nl^&r>MTg,h.,?Zc$U>ãU"HmjSf[mA#R;;ME?O>a0;6jR&mJ:1H>YjV=]bLD]^;jEiRRHJ)ZPt42\OpGPKI>6ãU"L>%_k+FCo_oX+bUp<7?-(B;Lobg1Jd]Vmn=5M8#7KY_\t7lvR#xitgD4YlBA.jzãU"ARJltY489cT:o,xD$wWv$Bf>4j.VE<6S(msVgt;OxmYWãU"cE(1dAx_$0,lGTXwVYV*F5NCfb4bXSj^tAb>_,&)b$$a2=nunEQ]u_)VKZ;w-w,ãU"_dHd0C9)*PSqBZkA\c;E/cYU^*0HD]lcKpM.#UmZu9BH.^4br]TuT;;pDuRPiYLãU"df5guvX.1uDqN+GP[F$,Gdjq0EjDF5,Hv^(1S8O0so?zZ12dTb=YP2??t6O6I+gãU"b+?]9=27V=&os,M1Vd9gFPP4iKy]K[g(b:kK->F[LfB8(y%4nctjR5rFj+3gwwKãU"OT3dED>%w1#;'n:R5j2\Km'(,Js&ijqooWB#xayNP%(=d8KCJ54oMGmt'nl0NxuãU"rTE17VjkSx-o$/VXMb7La#q\S0693F0Y*$nDrFrhJ/f3Ko[_:vv*FNK>nn7+wl,ãU"T,8t$b(#&A'OEb=h+kUa;f>4+\b0>g_1126ufv_c5q)IEãU"f32PkPG?NhvHBlDWWr8C1l%aLLbkGhaqRPHxSHtT#c_nNyHt:XgO6;n*Gcu%aP>ãU"YZQmH3R2RMDD$67LUngJ,$JtFHT:cLa>JG$O$PFBXeãU"p:Tlf(wCQs078j=Gisn7malJ>ve5>;SElnIrvEZ.YJDa%991w0,u0DgN/bMxDaEãU">edUgCy[8_QECauEf[Na*E.kjl+)q]4kl*mZI<7-4uMNgbQLIFbk>Mj>o\\2K\SãU"L?Kik%*3XMgf,]:p?hD)wI](190GnXgI>$Vehz1OH8M:>%jxdh8Q*R#\iX7)Y%5ãU"ezz?-(()lbSWiHL-yW$)es*'\x*JFv'$qmcmboYU3f6DQ.R16t327_96MfoV4e(ãU")V0)UXo_)NZqVx?<2WGV4SqO)6[w0I-1rJ]si<:wVQW%42[IfUr>z_8'3%zq:b]ãU"'(KI^Y+U/sDg]ptyoO5eV.Kmo%Dd#p_$e>4LIijBymPH*#1m9+air*M+1jURkwhb43D'ca?P:7?hEJ^w\&y>kZKh%5_$MY5AKtKZZfKFbG=FãU"\+bqsjjRb#:'t]hPO6%mt_b;)Sgrhr6t8P;II-+\Go1=>UqFRMXg2b_0U8;7b[LãU"khJ][[R6S3u>Z:SP)sTui9PF0dNG:YBXVD7/hVgWXR$fN\K&F>_hd-AJ^G=,IW?ãU"5Md90B/eP&]J^ECysq6HxLpLM8/E>5dWHuuYym/dJgiãU"R^QBs7\r>6wn+k7d(b_4_hA2D:'cT$ZTF6B&74AOT*;f24rEYbZ=q]gtVn;ms=5ãU",\Jdq<#'tMFrCG1\PLXPpQ+dof]pU5v5Z:C:8f4Jk;N)86&Borwb_NeAvãU"-rYun*vgD-/nj)n(mg8LSue4J:l:>;sYRYplIZ9v96H'*WkZLSwI\tn[YRizLrtãU"us57%b2^,Ha6unFPtX<2s\Jg/cT.fVi-r*J_>P6X\MYI2=oYz$3Ls]>wc%Nak0EãU"fNn[f%)SqS>bL/wse6uW9/tm>Q>/Qm/p>m+%ruf=nAaDw\/V\o4&E05+pX'FZ?3ãU"0?]5Ot7Mop*lw4.kflr+q_NqboQO#rOm8sz6:XbmtGBgyUVMS>XJvD$)zB?3pk?xHf3H.RYq#w0*E:ãU"6V>w)8^*Smw\eL,k+99)I;_=NX]m\*Nb:EE6Uh;5S;t%ãU"SgtasTNNI5J2FAp/t,gkIwC0B\=CO_5?nHCXbs/UOpN:/?O22oHAid?'JeT*f0LãU"U#P&DqUuC)-eou=]3lJhC\I(Ls;Yb$7tGT>'K>Q-8c:bs2gg?.fp=8xL=r&E)a6ãU"5OCY3U&o2^=cN*91YZ3xC\up4TY8(Zjit'_4cr+m\6fhLWEph,w32(jcfkohKmrro2:b?-^P*fMppeuxPlm].-E/SãU"rUdJm0w>1+,G_/jnpW)2pZxQP,gi0a[?)2jt27$N_)H0]4oyff>?Y-iZ.ãU"('QU.b(%&qhH+[^[q?++:HmsY4Bdt$Y3#46ghC&;6k'0^kt]2dgYV3?pN?I9Sc^ãU"qriWQn#]l%13]q(-RuY(gShcXb]e2oWXDLX-MA8Z([7$x%XDZb1e^0eãU"ucLLD3,EYMUgiC2,4[xt$3NoQQTm-Fl,/Ww$xJQ]OC/ZLaVVt)?chXHJOltxK>dãU"6>U-X+_E2?\XS(sV,]kt1kLA60v6thLh48AcNxa3fLn%c/2rG.[^Q8oD-q+.NiyãU"HG+hH3-\UCOs#Sf)0ptXZ?_xI*lmd\lm'oLoJ9jE\,UPpxãU"$5e(?6s[Jyf(:VD3*z^Y.9_i6\ETQ5>?lAH[+.Vp6UfgwLNm^g[K[3C;NFH4pFSãU"j&USZR=X]1\nTR6%Lne_1\2GVJ>F6]^J]#WJ[NdU=AJ0>%1_,d_ThNKr[LEv#QrãU"1_MG0q-6#u]qWgM_M&%s6qgUBrf[bI]l2UY0(l\)[.e^aYSNg><2Y:hX%A?:[yYãU"VBw]q&D][L[h[fsCM[ktJu%mpE*P6Zq>5o./z;]ib.>p=bo;/[cYH0O'lN)Zb0$ãU"K50ae(OhwpkpojjA6j#l70;6hTDT:3F\lj:1XeaHdobk>%+A],2:]TP:3XuEKCMãU";y%cn\vnj/wK/Ssp7;jqphgn3R4G7Tr=XoxXvdp*GFE>fun:53Gg'fvQ+U23m.>ãU"dgWeLts/rGMFtVoo%J-\HNPRm]RrIVC)(1(DqC$L*nT,^YmQc]8t.*GvYAL];?sPxDEkQvO)[R>>&3a%NS\0LãU"),i>/tY2[Ok2(/*d_YVvM&Yi/Z%rt4ovMZ27JkrtOa:/g##&,eãU"&VLJm3z&4=?aFtC9*diFV=b4^,udkF=^kãU"]6JdH>gBbCL\pGj3.a;e\+A:,HsR3G8i.fGBTtkh1vCLO+uVXA/labj?>4L+[pDãU"Aa5]ogGWm./'f-T)ocLWrwV5[A27/#7M:weL'Ne1_3d]N#5uO5#G]_v>0pM%k)3ono4Z5=p/VFc2mh4+8H=sr'jTcN0Qe,>dK-/o¬&EãU"u+]?aOH.o>W_-'7/3yQcWmdt[&vrA9vE;f3Fi[3sDIC&(Kkt/Q3+6Qr)rw\$*ãU".A;sm?Whs2FXu..sWBA]3VL4c>,<8']$JyYQZSL,FFTUiI^;6cGCXt=,yB5gZ3\ãU"%Gb7K$rY0L7MfNW's]fPo-C(tBAv#6z:63*:UX57c,2BãEND SUBãSUB V8ãU">IpAjmQLcbUuy):<+*ZWA(9'IVx]twp6Aqb8p(P^uH(x#mP89M\YGcmYVT*;<;7>=:Y.(ADãU"2d,jZmpJ[FO4aBT-)r?($-Sb,:$6kKdDS,7TjgxTEl2GãU"K]U*oeiM1\n,hd.2Mc5oWqE%:&jaC=4pWm[2HKN>fNF&OOPN\5MMUK'U11B?:>3ãU"Sl2]cgJ;n-2fn[Ci?Ibjp9QRLGPNSYPp7WS5,DVuuXkfUP>CG$Vqylu]Hs9T.>WãU"1_=n=rfbV:cSr/;:2w:UQboqZW95)n%2vsh1MRK36a,#X\+Y7/f2$CI17IUlg?DãU";-U=4.:aLD.5OG0Vr7=NW2K?DA$QJvvIppfQMBbinH3P=Cvgp\kDMSr&=i^VPXCãU"G\TpZ1M/n4xZt.)w(rqr)\usJTPTpk2KMMME[L/5&2fwoFZWKLv*^VZHpIpjw7%ãU"?e-6hU?Sj/\Fmi0%LSlj^\rg;:;M5DN=[EWJ]g:bb9V\LlL^ZI?A$1qnC/+(t3<ãU"M_/%$DU6)j+)y--%,\i,F/X3:3m*hDE#Hu]N+RkJldxpiM$P[Br&-U>z_B_qVncãU"Z9,'-,zhBf?f-OZe*LKA%'$+I13bãU"E#,0O'bsab<#LBHv(_8OKq2/+9uW=Jp8PeTos[$-%I&-$Cbq.ROHoafUnTe%dQGLJãU"qaO>h1-Lug4X5X#>_.p%)R#g?RZVlu7siTS:Xf0/'%9RUqhKd,o75#X2L9AcDn[LxOjSUmvãU"yW2G\D*55p$=jw?=4Z]Fo[r#v*uROk>m32LSny#1l2pVv1+)ozD38y[7Z\*VhgBãU"v%O9^G'r[bx/DU.=Ib8[.P\h(MKf8LsZ5[B4rwãU"h*Dz->/+[f[tA0F]JEgLãU"c'1.5d+9#%n8_,[i6HKHl-29^EF15p/-\K0kl;4bsCT+TbEs#2LO'#SE%FS&1fVãU"'3N7Sy7[j\1u?6<(j14ng$'O#3]C]/U(8Mga_RV20NQvRK38<,iIjMNlEJTnt4.ãU"TZw%makfbVR*h?RgunZSREWGIi,9fUuGKdYl44ZR*SF+Z1bD9P+bL&(IId4YMRxãU"J;UI1WA(Ur051i;i<,;^m(KXmI=?e6y)v+9o*XaS.Va*.ENaQekYsR%9&$ORj5gãU"*jyd'SzD+uRBjN%-XK9_H:>g)Fov.I=s6h0_3n$eHiRT*5E[RkGz,1l9?vMP=<_ãU"Vp]mh2%DVt?a9037R&Th9CI%Qrm_T;4n:LgiulIx0kkrAL^o.F,YB+:9KjQ:5It[ZDs88TF2l:6i#2J7)L4g.6#kF?S]v^NiU^)_2Ab-_$xcKãU"R\5PdNpOUE5kw(cE?]Sj[;U\BF].-UXaj?Lx$$HpMI?eP4asv0Vrp'p_ãU"hZ[D'3a-O0ph4W4*$#o9FCOP:7/H,1zI&jF4_M;*W2xãU"XS-[qO10i[9Jp#q/X[G%/U[#G?0T'7'1XxeGe(Wp&pk^sgc4(qqDZr5zUo=mfdDãU"DxGGe%q9oG96LsQLP,EK>hc)SKzG2gh8ld4%)Z>GIs>#K*w**,Ns6A&O:sW/4^8ãU"?HDTJDD6z&'H%cOtZK)0t1GBL.Uiu;bsT[WloDkg0YWSF/9TZQg*phh%$,H\i6Qax60b3RgZWD+5Dzmutf(Q_wXy4wn66Q7Z%ãU"ah5rKB;2&Qx>dXh#m'e6',/SeR$+^jWU4L\56g0KT$7tGEX0_%*rAGGOTquh&sp&$dS.X2nJPãU"sHhN&2nUF4?A/X0I(>osD:7_B\Hv0GuIpyKl.p>UANj)lop7=U;ãU"AGPjta#g9qa3&DGplgr)CDpc7LqXX#Qax(.;Oqd0#Z23z-kU&XknLPK^RaXWLwEãU"aak's<*A==SeDHNC:IZaq>ov,Q0JW$r;W#B;7UUD^QYV0*1V9''1ãU"K3^jS.WP]8e9a$79M6Y#x]I;Fl]\wB37DJTGY\U?VuTIBCOL]Ete;B;B$>E5O1eãU"1<]u,6W$wSp-x$D4h^Usrd[g1J$hL8otleiuf.9ãU",*-\#C*/ZJ9Hs]O3l7='=_au.EE,)?p\ds)t57t$s>Ekj'Ek:6eNh(85r03xX1OãU"MWNM&TDDdP4HA\$lmxcp0Kbg85gh%R#kkCW9vbePi>#FMh_m%VZBBM+=:[&gl5iãU"_iEl90:$&.BxOse$tkF[z&/7UM18Fy&bm\WLM?hCMY8.02T;=$'\_w(oUm2w?GcVXb;1Wh[6myãU"9U3JY3RnSs<^Y[JEJ%S$0'3/3,xrFYi,dJ_,hTOEil:u)(((%OHb>4NQT-IJOzA),\s\\:.<'$#Hm_2(IBWz?LSBC\.C#kMBXlD(2sT5>FãU")hMlXMGM,9\*CgY]j=Q[i2^t+LtH?_BFIn9]zNrY.LUY=_s?\q.b+54mH$6a/TkãU"6PTo1m2SUeAuTK%FfAy_rM')rHFlGH:PP;-al+'Ul%hX>A\O]hq.J+>HjuonN^OãU"_8)gp7\pTb:_b_[ha0QV>>%mxb>MWCfnl#M57t?e0l?ow695Rioh$61wCONfT%BãU"-_gmn5jiVg+SNoBt/M8/1orr+K+t4ucfFRe+)?>9UE;S9qoAmX8m'F]Ir^Q7SMDãU"Z-mikRUXY&Jy\[j8ULwZAh\Bckbvw7Ri8Ja3cJ(9dPw>$DkJE(L<=Cu:xlov*//ãU"mMkuaHY_8t5s984oNg4I3p_Et1xTuk47,w1^0?a.GHT6O3YSe?J]Xka]-4E;P%0ãU"TEWMcrBJsXaKx>06-n]br[Nr\3.m-=^F35XL?kK7-XjzQdr9BPo\P?[>^+p&Q1,ãU"ZQAOKhTq^RfTK:LI?6H2+u(]v.Fc&[mW,z?XE+HiIb\OQr=Let0FBo>p5JJ)ftiãU">;VjN?xSZoZJs;0e\5'%:KH_\#l4*S?Us],Ic\$%sTYFaA35[)$fgajTKbFjGK^ãU"C'a1o-P8WftME%GL#HlNrx;M7mE#LE[q+ãU"fJLmCXu9j[R\hVWDcrY1iYTB%Md5,/9'-u;p5PTtf%fWA23iNV9\u?ao[Bwt^oP8g<50BO]v2$J;L6sq-f=*Pq$XAA'mYs_NgZt;7WDyS4OexJcDMNXS_V7Krno$PO&s*QA6A/7$=PSãU"HR?YioK94WG-fm[u&Eg#;G$62wDTc6U]ZRel8V6eV_NtNW)>&&^b0:nd=e]?WQ6ãU"?%#0A[,]$HG%RmxP8fMqãU"e5ps6j]XFZ=(rh55tRgVg3g)]lMM?we#G(Ct7.EUW%-nDHs\=_&uA9ko1T=$9o0of#,%AãU".)\s4tR[5#HsrXx&]2;K85Q-E9-YiRFQ[Yfa&3NX>&s[OL6+>LBSMf5Oc/A\g1TãU"#al>\2d?a?SKz.29_o2Fg^n[D:oU'L'LI78eg%1==$G#l=^S=&'/d:+,l2a&H[GLKbj_GXrZPC[-,><$4K?%+##g.Mr%9o=R,mD5WoGX*kãU"%i#[*t$tAOb%.Uh#oS=l$A:Qw,VQYC(+T$KgXFB(&nPtad%L9$<4:&WKA=bJEm,ãU"NNi&z6KSiQIG9]%,pH3vdS0NBfG;EVG+Pj\ACm>\j?8E\\kr=nU<6Mw=;=Sh9f[ãU"L(FXtrCEs9$e'(N-+k4xik5Dc6_.:Ih9_rQmPlj*qF-En%<7./*-r1qCf&+4$bdãU"4;(\Q(vfox\ur)Z[B#12z1Y:j=#n?tnfXNqn9kPN4R0r*^HOQ::_)v&?9ZuGpnP)c^u2nUKBãU"Xk>LV#.tMPfh7ZDgLrx]VO$T,AxLl/fYhWb?&u3&/z?+iJt/-gXp5plBP<(2YYN^KiZs.+.cIFG4s]bq-geYThfSKL)TGnftS#QãU"xrjb7Zj64%Bpe?%_p\O_FAZlO+\34\%so2=C0hIcY=wEVYIEcMf#aLhDEf^n[N$TTQb]>PjIX\a,H0:=?50xGB=HKzfs-ZfPDsI.ãU"_l4ZATZve8SQXqFc(5c+40A%>->_>32/'nll3bL*HbnEjKjoJATBeO^SGnNtFPMãU"2E\,=skIr7RImCSBxbG^ts6KNy)gjhjj5qt9sq.1DQRq?>m=JnLf;_L67hr3*NonfWVPqklr8?cwL1DQWo^1hNQl_kxh-wq3PucMMãU"b^faYEW6TDlPXX7b7M(RXN&UZP8HG:tq3XI%VãU"9fL^lZjYtajYuR)%D&6e]n6C&QRGEG\^:=WG#F9G*>XH8sr]eQ)o=x_\ObX=zN1ãU"//Uzj=oF>YFuvJYgpuC^w#Xq(X^Blaunj/H7:m/NK7m$PWc&>rdMq'Le*yYH$-%ãU"mh;DzQTFuGjjq],XWC'g,etb>oaBcZgJB;)AK7sLL47UNrZsZ+=lgTGf-rL0Z>&ãU"47?+Vq6L#Bf2qXwdg]L,-nrY5]EvKE/n4qMaO'6_(rXXFbBRC4P_a?k+TH/trNcãU"g?FUtMSj6_8gXR)C?(z,sE-$-c48T6/nbKK;6L&9e7*(0h8n%d-nn73cIow-uxgãU"2/b>bmMMll0J3lGCKTA9DB[,uCD[IkH3qu9D:8P20n=uXNUeO3=GZdGvV.OXXv?ãU";v0\Q+Z*xe9Bh3a(+rpblFxhj/MHo>&(^R(dn<#gTtj((H-o=#JBQjX5OawoHJm96,%ãU"\0$4$_:-Bbibkj_HWih+#:P?kbkM69Fh]Y#AHPF*5R50#X5xX\:-BtUkD2glIavãU",qI:OY%e/I8683B9cHJZQJ4UW?+MCTUmL_hSg*v?mkCr(Pa5xãU"z=YMLq5Isn^(^v5YPQbd#raL)&6dyGuXBUa\,OD+5:oY&nxT.&nhMImJ5BN$F$LãU"T^#Drg_bf0?bf'q36SKq;r\-6s^:e6x3_7K)5[fWfJU8%&0_9Oks]:F(J(-VBR;;9d=bu1#)\)8FsbUx[wgBjM-&pCtifEk?Fz4iBPãU"amA/Bt'woel)/]zm2PxY'1^FC]r,ZrgLKMG2avR2pK.X-xKUUoB8\mUm63\KuTYãU"=onLe[IMLP6>\Q3NH<;MPDYt'?XgnTsGeSMkfaCnEK8$pmzGAe-Z;3jpU_u7Nc-ãU"14edrdzpSvgt1K+:>lGJS4D1d^0#Ko=V6,9V^>KBjZo)/)gB#Z-d^wcDB0o6D:CN5HTjE3Xl7+bugauhffiIKHYh1h:bPvEGYc$\wT&Wi4E;7sYs539.<##=fAvG?e4Pcn0(c9j9nnQO=JnW>kX_f''h'Y/ãU"ePc#,sXIW:-20w1t^&0aD1xe[sO#PU)\MFikKvw&i8A<3on/2li:1^awU'+a<*zãU"fqjA(eOnb5Iihwj0uC6W?2mI(clXU>o,Q9aZtY1e-66GlGM?s2Q'tH:NKve\i;eãU":DcFX28jQIU^6o\>u&Gc())9zM7ppujR=pf_N[ueWMmepTb726n#ãU"febU\Hk=A:2Q^%V9f4BV/m&1?WFW+Y^cj[Mkq5NrEEcw*-[?hVphGf\5ta-s%5lãU"4h=;pk\qoV##7#+/G0D3fPRt#Rcr#bUXSxOG$l24sqI4*O56o/='n])ttbDp,ZYãU"g/D(-,)ZW.<^9s,hnC5*XL7Johxewq7b2p,CD>Sm.dxTol?>aM59R[^LyRWY27ãU"J$1TsGUH&QINY9X$r4%yDIPQ/rxh/wiL;N+,E0CQh\JleAQsYZhSy--)AA,]x57ãU"[1mEQ;7v8/nJLAi9u[+#ir#E4+v&1LQ_:L02K*A]'naoaq;_C/)9+9Kcnm,jCxlãU"zBu/XATaaMH.cbZ6cDJT%eOba(6_Vao*GZ,PnJ3_D\#4AhG:&<^ZRãU"V#]bxP(_9VLF=3J_xrD-VEc(il95\H-tH+l74yO1sNrJ$OWBg:ECwtXWAD;TdPCãU"u^_f.GuVX]AR6H9mL/D6)yBJQx_XjlF=sQ*h#CXAO#W7XKm;S=snWObTE4(^ãU"j9>(taNElSxYs:ZbCuY08J1^,qMTGNc#Pgg1n+&TzIQ\Q;Yar]]>T#DB;[9\echãU"UbiKA&bT&F%B0]nLB6T>3Mo2IZk4>t\)\u8Jr]feuNrJjQQ-#QRB=uJ>ILQQdw>ãU"KbEmhr?U&Mui0_%d%I].B]w+Yw^):AfQKIV&ALVY8mBi^Ea\fD3=gU-FL_oAt.TãU"JI7KC\zH$cF50#$1)>/zIJ=-f$yqI(VDk^OdP=jX.*pai-ZFl&BjD_2v2*F*b,zãU"Qx1*r13^9_?dq,im5,bPij[^klh6/sDuykZ)iG2a%Bv9]QWEMuDyP7NKpU1f+f\ãU"A0B24B1%aA]m\QyFC?n:'+B\0zJKC^.t2U8[BXM+e;W*md)wgil;:]E)FLQeD.Rn(2D>5OeF$#Az:667oS5ztGa*SXãU"N('0i.o'D[[1jeX^/H5cBe?TDBV8we),Q^dPLkZhl%Mu\uR7+v9*2rSr0j,%FQMãU"(zLI6qãU"kYY_ra7#rwK-fU3^GwRO-VokOOrWF(1#k2fT)k*a^OãU"k%/s[sB3gVgL#J?/\r&jfdZ(cG_[:/gQ]EM1ek\=v<3L?t,6SP\)z%u[m6?D^SkR)r&nO97s.ZpãU"1w4/yJd5hooQERwt)ZYvH0kPxAog=DG0#5o:fTEN.,nFOp2etz-T#RU?cQ./>:\ãU"MBTFG]6A6K(vVP.AãU"qoix6Jt%?ljXmDztmãU"5h?u:*D-6CB=r&Y%+DhZ'i(JUHt#T\#3cNk-9N]]fAN6$scn8u'p+X<5AMaSpu^ãU"VntNa%>&0D./hV*pndnO%EraUqJR[KxH%IO5bRF%ãU"soz>'x-1.O$*_?)]?Q:$G'k#a/mUF_p0mg88%f4u8M#OvW<-akIfX,J=HuH&J9yãU"utE5\>6<0ec.([Z#.VcId:&>tkU_VA.FMQaDp.D/6h4Am-c42)RJZ_9GovOKER8ãU"vx:rPtg-oN0l-mDh+[ztv>A(H-(0Th?IlM(b426t'xVy+X0qIo?R&Jypvo^^G)_ãU"Lh[tMh$6QCUbi0hDg'8i-wTof8-,[cBdW6qU\U_1WKQWr0/60\u/r8/>?:ãU"pUQn.L-vyZsT$htM>:l9>BF+BS<4Tc5='.3=8ChE)GRSV^(S%*T\bSdOpEOM3s5ãU"?X<];brZ(Z^Txz+N;jRKYOuBDqBmK4P+4ãU"iHwd,<4SjMj*^'H.V(SUcR:u2fRvY06msfH>>jiIEMKXh<<733=v;vuAPãU"s#U:Ha69pcG;\+Q^APqmTo?fZ6IdzomsOcYP/67IVx\;ADNB?5p6,&Ukb&g[1zPãU"tjIq9_8./KU>]U>vv/(-;b-G2?5xul8w8st,)\pQwKHQR^JL96gP52mccc3r.3iãU"3e9Z.>ka2U+'+z89Lfm=jHf[)r(cx5\b_9ckL+NlhFrSE*:jijR?3^vSmhUfmQ*ãU"Hns]c=DRmxVHt/IXC'Xk$j\VUB_09\n6:$HftIGQq2,jNk)M9d/n3r?;Vj6noi\ãU"m9GcH;=jB(/BYtl[B0yt8WF\X4h&1+fQL7]d%JfCLKbyn.fQZAbEAzBãU"?yPsV$-h;4N)P+2dD*=vyGp=zJ08Be83mb7mA?$xpSE']+#i2nxe9fFtKcZ_z+5ãU"Fm$Uj9EOWjHf),siJW3'i*=H$GfBclPjK<0W1>pCXfzy+=tkpM?wC_gDAsNrC;%ãU"43uY--iWZa'X8oA<#0L0C:LdagPvU]b+H#4h,'Qvc_d7w2MHRC:U:F:BHQ^G(-4ãU"D)lEN6h5qoXCS_5+Y-QQ]pM-6dv3PLIn+)5VjGP1Tw08+1VvchiS?MZ.s$FkmBãU"oHpW;xVFt9\qO='d)]]*JKznXf8'2mdH6cSB-;nXckKx8trQ1:8G2uP#R*5=v$lãU"zDIBJzSEz*j.QUqp_CM_U)ZuYGMP2FWOjWP-YZf>pbU09Ba+t1b2P3^4WK]0wMyãU"2C-WW1bg[Ru:Ti:9vOBr=R'daekP;/frp[Rbamfx(,ekRh^6oq>,NFkHR(74]u(ãU"nunV0M9\&mg]?_ni$6%tDt]m<=n2uM)X)spMh9FU$oZxHH/3p:3\VmmnQI3+3nTGFãEND SUBãSUB V9ãU"jJ/7S)#U^MTV9;);RF[Ji1hX##Tsgoj;Gf,5rV$0WMViwCNudJ<F-nJ8WPZIKb3Uz>%/^*Cn.vtpTu(4:.V.JãU"lYO$0le/jG4m[oM'AdB([]O*bpkp=umL='k(Z7EM_Z6sS>K^&PSg\%bRt,U+kB,ãU"iL;&*eyS2*q1&rlG*dTs$-.OSiztj,8O#PvlXj'nZH:1bI.0lM2'GmdxDTI]EKTãU",x3ok#_oFWk5ZKNN?%NQg'SO,N%p4_im]5M9F4(3g^dzqTDx*g/pi/?WstH^MV;Ct#v^SZ132MUnlTu;8ZN7BB9wca+umImVAN4oãU":%G]ltGqob-LcZWsTl(2.^gn-7I'i_Oa0NUP],DmP64-LOMpxv)ilDL^<_dAãU"-r%kLJt1h#QRf.CãU"T>jeI:)XrPtAi^6p>zOLf>N?f(A[RSe[:Q>X/rdp-gboT#9sf2mjOCdCD+\lY7gãU"R;C>5y/&00ar2AK#bhV<+Np\,ft^5[48dOqtT%HUoQq;yT2]A#TuT5--Dz?]r\lãU"w>eD[Mltx1^ãU"=LR&b_\j#oSNnefftz75frZ#hv%dIiPXt.lj4&;#tU&rC=Rgb3j#6+<0r6snUSQK<&rc=kxsd7^v4YãU"EXqKRSi/0mD-Han0)x9s?De)J)$)QIWAtc#jf;GtN$(84.tohFhqPEKHE0xqebsãU"?&;3OXb1/CFR\yPjdul#OP2/(&_oJ&dJ6IOjP;huM:6Z;o;4b\0mK.#D&z&HT=gãU"NPZC]*-V:X2nL8TTNdVCGt^\V#tI6SIJcnyd.-XIGrtc#X9TReL0Gk.w-/NK>a\ãU"C>5bK5,eg04e9wGnLeb1ALixU'v.qB_lg=hkMe#+XTbR;N-yRlqRwleQ8J%E-w'ãU"pk:D\#3\3k:]d=zjr8x3uj*ZNOVUGo#V:C-X''t;FB45?K5?lCVuqpwN1j.gEURãU"/xO=;Myd7UYvb7Z+\s//0$'j*l\s9*KbdG*t+b2u6,&xiuQclen[&dF+?PNXQ4<ãU"WruP,Q:Nb+7;JZ.&8;[2d\IEYXg'Ss0S=KtuuUUTt'>x.TO.B.VUN?D(vXOj8ãU"otnW;\%uZMWhSg0d]Jd>hIh>FQmj,8k^i7Dm0xSz;C*:_tYI&N65f,/'n93*+FVãU"kvHsG;5.Szl$Q#CSZ*M%02^YCjV3knh)%tF=vLOpcms_&YZ;c\j9dX[M]t5?;.%ãU"8Lb^&6V+1b7'8i:,aToCaQFfa(B&[.3P2p'5JMhQ]e3a=dt3&7:h=PãU"Mb-x_/#7X09CET],YHVQXwcZmFUo>&2uoVR)Ha#C]WP_07HrBãU"H^b-fD8%GC=ti1kxU-v9iuuzm:W+NenE$vF.c0Be5cG5PAAo=jdj[J4o1$]q2>PãU"ENiL5HBJsxJ(1Br$AgU7uqJaOH:ax=ibNbPTheey?(5o,]_qv1gXD&aBl=[KOrVãU"\sweHhSdt4):S,GK#j0?A7;M99qnJVB6WwY[^hOa35OeãU"p0Q6?,]?h]6KsKR/ni;*i.=MFk/+D_iCa6Yt2aCWbB;a^SeOAO)jãU"yNIdl'gq/n$(GSH<'/-g\:6GmAuBi_*k2i)gJe$3mbZPXv,cQ0uAky:noR^i6*:ãU"CY4D[OL=GDrm(l&?JBlh/I_q62<w&W+5:3TfOQ#JhtqlDx-eXRRuãU"FHo,j1a?'4NDwSa][hVq2xuQ%i1gV6'F%ubjJ8tn4U>TbeH1V1z'^Dd*oF/=tfrãU"<6-QKGDn3fB]wuJsW]hqMG*G1pe%%_&Q2td?p%Hp4nFWP%ik3*ojF<;DfO9;mSVãU"6wu2^_LC7pPKfHFBtfXrx77ZO(RZ$[,./9&?oqt4?wvde8pP=\TIK>Q)j&;Ehn?ãU"YYm-KZk$qc_3KgFEWrj/)'T9,I259uRxm/ZNnToNddgBo^,=?O\&+Nnx47=tYc7Ocrq=.aDAIãU"^J/,g\S3UMlTog(.u<8x_l$)^I]%NTgJDDc2.'SltnP4LfUzaBqu\Q&0K_)J7gkãU"%m%qyOD2ZuSYh=N22EOgW5=\0uBLW&O*ãU":f4)bJGVx>RE)85Sw=^LkL\,H9;clQ31Lh\HRiMbtj+RE\GWhpY[r+8rN5/->E?ãU"6+rdz],G:6:T#Z/pf;r/;]^tx>x7V%_i+jl.DF,qNuX7tUQQ($R17gRMXG**:)?ãU"dphH_P5n,b,xTr*,WI6:&Vl2m*O0wM;88#o:bD/_Pny6;,+[-]3RXKwv*M3.tUX48H4c:4w%R1K-f53?,dVKP4RãU"9e4f:4vD07->,sS_RQraiaKoP+;ETj8#wãU"gxo&(o'jipbd/_d*.(Gfmut=j(6;p-x?oeP2nJ(]Y,_*eC?kRv%>GnHJAea>h;9ãU"A6le70$BJ1_;rd&FA*ZSvqdG$ONe,kGhPFW#0X(90csCCPL=/kfZ#WN$Itzg$o2ãU"Bq;5^t]F:jZ+TMzuPB<%.&N8u/*]eKP]S$*K,6*R*^Cd-lL*)yeãU"_OyRNjW;/URU&7k6n&dãU"e(0o/9=JqP+BgKUZpoW6cnbzGurv/78c$Zp.Ag2YFRMOV/)?Mj%Z/ZdãU"MVJ3.aGLQm0mr(tHR,a-yRUGP2;+g86\H_CiLLãU"HMV0#I.KLUW;1WJ<#&ad^qWq5kN'MT^nz9V)vLpyY[:ja*)V::qG%+(Omsp[pTs3^>((EJ<)X=Z#Gj;e=_q4IMUoVC>#G543$ãU"u;ktOv_t%?98NsoR%+^^[mw^VF*uui)g5(qwi*uK?uq$_co*b=S/LD,NEMnePVNãU"Qmx;TIiu*(^4'Lu,bhEDr$H(b8dd0Q5Rko.F&r2)SQS%k8cZgJ.0zme/Q>?kãU"usi*3c#w%o8L4]drs&QUny1ZNC\Wkwl5G;#*hZkf49tPDT?U1.XMNU9/ãU"\K<]*dl4'QWt46)[]PI1U9P1x$4jLd>Bo[MDKY90aS<+B,B_8eI*R5*5GsC,&L^ãU"BJ#o36]wiQs(]JuhJV6NxDu8-SNwHuJ&P,*vnj21HRwb$ãU"Y1QsQv)>0kB>>D)K^7HgQO9WTa_$3O7uIkk^S5Bq+Ht/VJB8-Dh)X-EKWCzUf/[ãU"qWIVv+Q^-M$sKetA*+2mvKa#fINra#E:4mTg)eG^NG4fzzTv.UQBeD[>2]6mE]cãU"'mw?951=h8lmFVIdLefpP;rD&[-?WikWSB[%tpV[k3#*^%s2ecT8WX7.QX5:ltn9nL7PMinãU"?44%pAn+]g8Y^NuN_I73+auVo?8l2kfemeJcXr]_8%N24L>\T&z6n9sce_=jO5PãU"I[2zWM/cm^ypRXZmTW#g^37YTz$cP2%CD+l4oqbe<-3SU'(F>i>s,F&8m0u[+k6ãU"/%HjQdt,jQUM7LKWWC72+Ub\mTBa=oV&QRs\'MT#M'4ztTXX9ISGWb2D6[0]aNscERp)>W_hblmM<ãU"McDI4Svbq+QLlReKCDFlbU;hO_gOE,CRA9AJrS\qMxsbDKPPMl.MT$Lxgs_uhwtãU"Zwxxq6N3wu($?G2\[lvuZ/sPuxrsxsBq^HuxN17bp(4#2:De%STsDfgq9AX;&eoãU"N&BScEt6%JUuP(sljN.A/]P6[9i5+d+;VezgHAeS>Mg_wãU":wTX7au6RsAY?aU/*O^RyzPGel2Opj$Aj^e3^6BVqy?=v*dKDQvkr*m.E,[SdaDãU"QWM?+I]mLNO\v$FgMmkrO'NdCTmRG'o*g2l>BsXG[)T8itE(jfEQ=hRdBe.loHyãU"DuVr_TMD*DM]X4F)HJ9%6gZd'J0dDid+PCN)jcE:YhnUzHaCV;\>84c0Yst_F]lnd$kI?ke(Lecd(qP1/rH^+.x2hh(+skr=c(m<^<4g_XQ=YI'MoãU";,AbQbJ'8v#ri*owFFc2c#=hU.-1RTS?qcMufsD5QLbbCHXs%mds$bF^LK>N_x(ãU"p4$L6E->>orpIxQ$ncpNCyZDZ[dY6MOi;))_&Z?Dc#aFk/5_l1OhyB:ITFRRc0fãU"Pfd>LRSYDpsQlF<#J=:9bEN/,Q<>Dk,+526=Rg1YhmN/sw?bp8[:_c'AR[P0WccãU"ET^d1B3&bLT4q.[DW$DbWw[n^3u8NfL0?k*PdW]6<4Y%(-o<^5we-O[3GIJcD8uãU"SP9Rzg]XLjj)C^-+[l-xY)Oj;7FzdvLA>zGVl,0b/\ToL*^$PLOE<3d]Es0KT-pãU"JEiC3gOQg'\ãU"_Z>$NEL[CT$Jy#=ZULkjZ0Yaj?GSYBGoSk65Q'^j$eM8f]9OdV\aXZY;Jo%pU;3ãU":Rl8\G_*CIs_XMB8kj9q'/>LiQf<$Jjh]qBnfpQãU"c-shm/\bZ\:uT:R&WN9a_rCsVAMVmPb?k,*I?Q(rMf%jLh&YM/r_.cJbVfw8#D,ãU"FPeqk<[c]Ah?[8bgIYOd?8Or:x9j=rYTrjxg8l9U?K1bmB39w,$21uHcSDmM(T>ãU"ADJW.LGr*lBJ91oza]lnsV8%Qh:TãU"*4KV2l%'#j<(5'Mg3CeQOJFCjnc\bd+nT&g^dkpM;AmGJjf_hfnj\+ãU"_9:3uL(OpWLX\qVO+ETF%O4(-&5D2,;qDm)UoZmm.Mtg.w]B^RhBeE2ds?YnJo?ãU"W3QWg?Jns]gwnQAEZIPtA%qG;dLw'ilBh9OM0+\0YXbW;7'0^A]dui>c;rWGW[PD\:=jDx9G(;x,A%ZT1mZe5pãU"%LlFn>Q9o#T]pR9WpMOo1XsG2i#SMqt.bh03EdU#&pO6M1x=2kB;IcSk2r+Y&BrUD[6nãU"ixN-\=jcxsKrJLAoi'GH2SECu=t$+EdHe.UtUT9ENxY*mH(vo2gGyg++Eay>4*pãU".X$bAnfP/x,gIKc)le&eZ5KU;g7i-CIPuP4nBwgdx9+ypd>0nOBHX'RIn\W9>I?ãU"gj/HrEq8dVIWBau3':0F^9hXWsCv6ZZPsmvh23FN'5bCa^sMmvZQehãU"r>'69P#e4iL2CW8&&oU0WvY0,U*T'S=BTu=H'$&zpj+11^6*7+;t=y4R&_?ZOcpãU"dpHTZOQc_O\FjMG']nfiSfE?O,alR0*bKWq-fpf6_4n]5J7MAF&LwlPr[1Cop8IãU"kS5R0Co-'T8&Tg4d&jBrV=?lCi9OzfROW2..8)Ms/:9RpEUK((N&,aqsV7q>a6NãU".MU[2tnb]w8s3tf5wfEcS*.I)l=WSeElQW(?_j*tVQCFQgU[=.kj\GFc[e?XETnãU"p?6%,;UQ=C[]6,_OLKw=kmSYvq;S%XCRV;Fk[-M6s_eSsBdl1afE>EcW.ciiDqUãU":9[S/dOmZCP,S_vxXVa.epUTa>X41gV(%L;MnMqk,(Y$.5Bcs=Q8]lPNdrivPH+ãU"$DcD00%x>AHUa&T4.uuPhJ^([Ln.n^7L]0?AeZ*(%nWnF(k3o;$2Fs0Qhwc:gSVbA0kw?)wMO&DeL4parkq>)g)psPdu2M?4zxxaRQhãU"pS''xp^hLwc)K^3uE5]w(R+9,lva>UjAOg;5,.UQohYRPuw0x)8b^enL#IW**gDãU"vCde=KwfZEC)A$>fOtwKNA/:ievuãU"f/ewZku:GM*c]RHM'Cd^9p3G*B[BWcb[0WEMC#s.lJlD8,;>a0m2Z:VOnlcSu5LãU"&V4aqFHH]Y-;RqAyPSqqq+LMql3npy6?WC=D6dFnvE6M(+C]\V'XPO<0AA=VKUnãU"M.;4oux$vB$(Pt)m[$.T::nbx4(mu84^cxEA>lr>ãU"MlH0LP3hJ74=2w[CcGmxbBfpA&FK/-\alfn0,WWWDL5^>Ai:QRiq%$8Sqp\vdHqãU"+Fhantzil1O4Z.3\y*_bNCAM*uPywh&vqUo4Y>kO^LRmVQbl4_A+I4L#_#lavlmãU"8P]t2O?7q56Gef5F+992X'TqH5H1GwGuqW?>iK(hv8FH.WBhvQf^IBf$SG.6G]kãU"NG[c3x)v7N/.EhI(Ze:*fe=/Aa&b;8)k_7-QC(r(N[+$g%$%PHs4Htt4g*A[5?zãU"G[v1+9moH0XIdk8)Lur%PR,*_l.'$dO[]23)J4wQAfc_PPI#g]#k$8C.h<]pei=ãU"p^ZZN&c35/s0D(scU-i8*A>Jxkat_Xd6s?lG)jf7Gif)/I.]e=:#k%#G3_=VZE7ãU"NdcdFf9\74[O$W+.R5NQ:+Cleh^Hvonx,hjA4l]I5^BmjVcw18EJMO%7JoQ>nMvãU"L\1TYZcLC2\K.(o.^sM..Ha.rkh#Ek5qHQ1m5^>8Ucbu8bYjkNqI3^CZmm&MB<#ãU"EbPM*5g?47%h;_J4fV_6e[([4ywKTu,k>SlXA_]29n4JBac4sN:/p\?D^6[?V:ZãU".):Wf?Kt:NE?)=jG*o9*i(fv8as-<6dljF_:yFx.RDS;8:EV-ãU"wpD,#$#/pa1ntH:*NF?Dtn-?^/DZ*_jB%Xkq(0EhFyVUT6/fm/8Z378;d+]ui9eãU"bj8f1Ks+UAP(f1QsQoGbWEs'9?,tYmd>YSsABFWdgmlU]pe9*,i)*B:BIScyD1_V^ãU"0HW4q,NplDiR]T4=q.4Y'5SkLMr0IpVf+G\Uw$JL\>lWv.XKRVpL$DMU_nHtO\dãU"V*A,VW>WlAQFVV9tf5[#l_bkSHdbv.1)DxWU[67t.N_ãU"J.Ubk8k&hJ'bi^zbdrI[HQ=pPcHB3)FTmRq=_jJ*imaP%Wrai'Ji?/s?nGVU:8qvQGHeq]fW:t2xu.VbBOe.ãU"8^,4(nWF4clGUz.AK()5:d:'_VkFbj%xPPY-[4)]$$k],IT&,)ãU"7Jw4ZATn?#xV:J*g7Kf?cGl.kGl5?317=xQfs+xKf$hgINãU"1G(1H4YIsH>Y?V4?6N5Q(^[kUl2].SrLR'o?S:)B/h1utelfR.fw>$/N?#4?O[0ãU"$#y2[AjQ6CkIa-;>%[3a1pXbujLBJH]:b9juODw*er:0>Cw?m+nXO,<,TOq+]ãU"u&4%'p#R)U_2W)Ds.tw>^bIW7ro2ac/cOB$evXtAqkc8Jvu7BCRHU*uXr0UAipyãU"*eO-bkc_ZY%X?PsD-Ep>Aur0V%[C[[9,t9UX:*9Awn/?OhX?ãU"&K3Uaarlsq-)Q/mA0k=.#oz_8vS.uR[[+Y2RW(u.J)Oronn\bs#=KãU"[KCLWjeOVdpwS?Yx>BGuK_)9V?<)?$[_+UzsbaW/M6tãU"Lb\^iF1'9.KC;qqZ4,ISp&9&sB_*/Rpe'w=AKcJ64OãU"%%+c[1n3jWFs+Kd4iBGqOJB'ay[Y6m$d\uK+UF%3_:l*Y=fh[V74B<2ZLqSKTBRãU"NyE^XUs$&%k,S-iM7Q6f=xI5sAQ*.*=A)C&Ut'A-keyv1w,3U-N_&FNrSm*YVg1ãU"i\ibr&%4,xS4iRlA4-phJfv;A4_knp_ieEXbLh-96BDAR;12G&U>spD#3s]:9lSãU"sD+cdPPH527_*[h6M+/zY)cc9Gx.WfBgE.,X2KXPaf+B_6.(.]]SyhdãU"6PXPc#mLM[Wp5B+MFbOXB'/NwKKsm;bw^'+zS>dXGpfOHLU=qB48XF9E&y7L$<(3Fu2+Qmsf2gWãU"#T'h_AkIK9]5kqD0OjeWefSJ*SVkkn'9tKQH\Fdu>U%#9Y+;PR%s=PwãU"YeMb.K,G'nQ/]9FtUvy6i3oc9yfeaG6>znj25vW*UfC_z;arT2Y/BBQm\LoSL7zãU"bXv0kcAV+1A9ALwn#^5MF[Bd[T-Q):wM;6%^#-Q,12TNP[+h;_HM=0Z,'n>R0I\._H/2K9Mko$ãU"*t.9/7rD1StgdfFw.RUeOnDD[T^.2Y_Laep';,Dv'd8x#$&eauj?dXGK&^.w+w&ãU"o>(2q94RO84/Lar5OIJaMEkgin+$?H,T4\m_ca6tjMN^r>FoM\*AF<#&aV-e0bZERgKX_3YfãEND SUBãSUB VAãU"f90b-Gh1gq*vF7,BiEc2_j0sc9vgnH.X+&Td*^,'g)ZWpQVRo(OQ92q8:]6zPASãU"<9sbYt't;NUa[]VOXA_]oM4i'=L_4JTcBG2H$$#_2]j_A5_g]%IlM/)0/?[L*-eãU"C7E:ad(1W3()8e6n]X8/NXp[V,,bLE&G=ie7)US$ICoyãU"*)VlJ\;j3rWJ5)q8EpNb#^NP,=Z4jnT&5H9bSc>VS:G+>;P+FVLc3j=fUmZãU"d&F2'h1\YuT4b59qdIj/sKkKFY#PCCuVpRPr*i&bPaP[W(9K?j+e_vzZu*do*PrãU"kbtYKC0Ug6^2oiY/b?fjh_&^FWA/XTg?k*:AVmH(yX*p/=ge^r$_>#tbDãU",E'40F+tQ40J>,koLVf%QqK^^D-v]M]mfNc&f#>+S7%i;LjbK2LM2W$U=iZ_r7BãU"mOvA7AedSC\R6qhgqwv9i,j34ISeu:MslWh4R3GãU"ul/$_1RJq\fIAf>ix9ikl3PjoLP1GEFyDtVnlX4pVgSNnQuwZaj?g]Ux>EIMf>uãU"N$g)/p4->iBCoX-GJhRaJyT6AqF4pfrOMW5Wu9\U07&cvI6BP$^Oh2C'vu\#b\FãU"4=HMtjNCjhkW1mND/WUD9Eme/,ZTBX>xE.iF>u5s97,3XS/5J?ãU">Cfx)pg'(L(4+t'HgQe&HG$=\=K*?j(fP(?54r6.E[O,25=c?h3X_l:rFrvBRe_ãU"+#64Up:bFaePf'0+m)thEeT3U,;rQVCrA\Q&6DGM]WI?63dlIqXusDP*m>;4be/=a.x00NBxsPD*BU(FãU"n7Eteg86_pVzZUvwuKw-Y;boPu6K%b'/#CuIzd$%c[X+I:-mFDOo\4QL\YycaEo5JTGaãU"N$Ib5^hx:GL6<$2kft]wLCxDE]Z5o,3Xl5:r/=^cgqli;rKfd:=D,8'5Z0:KUa1ãU"L-Bur;jo7pZl=gIZkWi7Xq4944kc_;)vWYKWmI?KdLCnUCwLQS78%h3M=sBRnJ:ãU"h;2NJ1O+jxVt\aWJmX*KORKE&V,\;I5Wh'oddVCk)fLt*H?v^uãU"nK$9>WBi*T#\nFK5hoNe2-j-?<3Z//AOhejiLdjBr8Qsl,RV3q62gJex3j-Rg<0ãU"30t9MnAmxquCR48H(fhLNdd+n%M>0acNUãU"EG:?DNLrxU-TG2c]NZ?[>c%/$;tK\$u=WiTr9h+6q.FhT,yBSl0vFPAKxt8-80gãU"X-h=^27qxrksw(YJDon=^.-nswge_Tj7v)K5sDbs5i\#Vjx[NMPLbr>/ZTK1).*ãU";_vL7n/K')gdS8H5n\3t$Cs8vKAK&^g1a?HMoq_bD.HZHdOB>pJdds?9LhGUutQ)a?Wb77^a-Z::OShpwi>3waBãU"+Nh'xNsUlcFH9S++nPH]8?S?:#P;HA]\r?857vwtRPP**2mOL8Tb/TI8U3oT5$lãU"P/E8x\cT+:FSBv^X)preFnQgAnXOtOBjCDW3.bCXmM6>d8'rM8rf3XVL%e-A4+FãU"pL2RBS:U'%&(b0GCKMG\9K/HhaY*v7;==2FzWYmL3.SCmfl;>_lWA#5^-LN+c$LãU"f3O:d>4pSyII2#mYrY95I29$w(GPSTRk++1QjBPV'=6*ac[\vg(n+ExrXHQQU/'ãU"50c/tiryRcEWne>q*t/mn0/e1-.e&M:Af107?]ERLtv9ãU"n4^bHqs[J0WosG;hrk)CsB%TI'xx[oBhFaa9nV*2a^CaUt?#n:0T.pKdI.$;U02ãU"0/Wvi?1BlZMt_lr51l2,Q%kb.ydUf50;_eBdOq>[nehkDK70=o%,8+7nLMwr9WHãU"lJIdYv]TNF'tKlO)pwgOw6.hNDI\MXhdx2R'7H2Fst0/fF;g'gXP9E))j,X-.hxãU"6q2mnd8U6rBhNt*o3NK:\:#p2O*V#a%ZVs7y7-#(>EWak5Kn#hN3CkR<$-HloG0ãU"aL[bJ;)TRQoL25.ufPRPnxEm'Bo3Z7A=mLoie;ZD*lE;EãU"1t;]^UDO\0b6P3ZNe/[2v#%t'T\,GD:#n=*7+u8=\%SgK-CcWãU"0T/.?CYADxS5L%N='*$ZNAaR-)^B&;)2Ho&Q8JITcãU"1Df<7pdxnxuG_jYh.h5?kfAKL$PdXsQC$/.jJ1?8gRbFS<>ZnWUuv3,XD(tpdbaãU"mqJM$*2P>,2C^,HPp[=-&qQ09wtooJãU"RndnftnJ8(Q(YVfD(NlSK2oF+-J2EIegr]t3bDGlOt$xD%At\tyJ6mC=HmZY=HUãU">m^Dq(GHG#m;7wAe1_Iw/T*iaEeGxEf:>27pLLPf_6qpo]k)_P[4$q*a_]Ygq\xãU"csUesi+gZQgL3l+6/us7Il>uJ;_]#RgHgDP*cin>iM5p#Iv3cTa:(((Xt>E__a=4r(bXJf1-=WdZrp$?TMvVM1^.,J(vbBuL\.jHujG]-GcãU"#$qAB5o#s^S3s%?L?P*8%=U\=c3qq2#an[xH0mkG[$m*/v,LpqN6YGC&BMãU"p=nO^akL*5Ek4nf%Ol5n)?k=F8$g>kFaGmF_$H2v_;nHu/Vk4?mBG2+o7r#.dpOãU"4L^FarV7QB+acQ_(r,U%[DY2zjU8TQW;T1\o37tBP&>r--82N]TBp*2?Sz9[ng)ãU"-nsYDtYSw)>)_Z#?cfg&GDT3;(ot&Bq;vvslp4))G>S0vUPz_cNE5QQhjv-BS]ZãU"Kocfq:7+6&Gel5\u#>jOM_T=G/m/5n'jfzE*+>J,Qj#aAJ>.eUf,Zb#'1x3WRVãU"otd7m*+bZ0I(FMjv,n&Un#][H:cir_D:c*d(CAc2Fi5l#faqOORR:1geUMYja2-ãU"sE?:aA/krwWMl^GF+ZkFf38$;6LTQk/hu7(ãU"JSmAn/V(0gyuOlb]]O#5_d34qs3H08$NSKKFpkfX-&iw+$0[/nrKOOG=GLaey=:ãU"vlGh#kpOu2k*B#rZ31Qn5DV>yY)B:R#ãU"n?g22bX+N7mb8t/XbYOTcIL%\+0Vsh&^^7S\G9,/2,(3LnBOjdh;,>8^J6BEe64ãU"_ZRE[W'\s59j/;v\xklT0]Qk8I>GnapTA#nPp-dZpD9);'kn^>=U3%reIh1$4q6gVsOAQY'h$L5],ljgh]BkcxDD[fg,uA^CãU"LHaSkg$WN:oBv,y8G'omN:W6Okns6lO[;6j#TW7/rL.A<.KK4322Q>mSkrN4fR3ãU"e6aunjqlAIzo&WSYEir:s00-)c\wKD,VwT*(#Wq>^j]9o#Vtt2gm_-jY)w(5W,qãU"4koTqr(nOd3(K*tnRD*c%K>2Q:Wz%'&>ea49646k5\B?Xi]%Q&c'qstf4rãU"pcw#pd[e9L;%J)+e_2\,Pd1yNVfQpU$B',A4.ylO%nRãU"OV/i(Syk5g9GP7P?K\Z%j*+1WfelZ;r+NPHD4_GvF>AJl10[D4BYuRK<'\J>9_+ãU"1[sjgmn3oRex-6qPown>mT/<-hNmF4$JQuc#T:R+,BKLG25W4lrd;97Qh(dn4yO>9:;6+5N*xãU"pGbCS%0vn66&jR1o=keA5[g.+k,,R1NIDFx#ckHGt:Quf(V,/%fheS(Y/A^P'9eãU"u3U=>U1PZe(NHDx%djO$1fVgm1cg%LEi7lH5k-1p)oeW7z#JHr8BI6uxs3upxhmãU"cx8JxuxHx\+dx#u%p&'9%%9%%#%-%3[]6J'$R(q9[5%%w%e%%1%%%%%%%%%&%%EãU"%%%%%%%%%Xil%nfuq%wSgf%xup&%'9%9%%%%-%%^Y6%J\X;-X,>%4%;2%%%.%%%ãU"%%%%%%&%E[%%%c%5%%X%ilnx%Sgfx%up&'%9%9%%%%-%.gYMG%96wN%1%cp%%%0%%%%%%%%%&%E#%%%9&C%%l.nx%n(j&Sg%fxuãU"p%&'9%%9%%%.-%TEJ5J%3*d/CER%%YT%%%0%%%%%%%%%&%%E%%%)$m%%%lwns%yãU"wtS%gfxu%p&'9%%9%%[%-%?(C5J,e9$cv#7%%x%c%%0%%%%%%%%%&%%E%%=%Q7%ãU"%%qrw%jxln%Sgfx%up&'%9%9%%%%-%:%o?;/tNe?%L&%%&6'%%%1%%%%%%%%%&%ãU"E%m%%wJ%%%uj%jput%pjSf%xrup%&'9%%9%%%d-%t2%&JjT4g:g%.%%w%%%%1%%ãU"%%%%%%%&%%E%%%+tL%%%ujjp%utpj%Stgo%up&'%9%9%%%%-%%yZ3J-*+I^*an%ãU"%%p%&%%1%%%%%%%%%%%E%[%%6M%%%xz%hpmt%qjSl%nfup%*+%%%%%1%.1%v'#%ãU"%HC%&%%%ãEND SUBãV2ãV3ãV4ãV5ãV6ãV7ãV8ãV9ãVAãCLOSE:IF S=183AND 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ãAntoni Gual 3D MAZE PROGRAM agual@eic.ictnet.es 02-28-99 (23:01) QB, QBasic, PDS 556 17176 MAZE3D.BAS 'program 3dmazeã'1994 AGVããDECLARE SUB infoscreen ()ãDECLARE SUB Display2D (ori%, posx%, posy%)ãDECLARE SUB Draw2DWall (ix%, iy%)ãDECLARE SUB Crash (posx AS INTEGER, posy AS INTEGER)ãDECLARE SUB MakePath (x1%, y1%)ãDECLARE SUB RandomPath (x%, y%)ãDECLARE SUB PutWall (ix%, iy%, clr%)ãDECLARE SUB MazeClean ()ãDECLARE SUB Target (posx%, posy%)ãDECLARE SUB Display3d (posx%, posy%)ãDECLARE SUB Turn (posx%, posy%, giro$, ori%)ãDECLARE SUB DoMove (posx%, posy%, vx%, vy%)ãDECLARE SUB Question (in%, min%, max%, lloc%, txT$)ãDECLARE SUB InitMaze ()ããããããããCONST planos = 10 'nr of visible levelsãã'perspective constants screen width -320 a +320, hi -175 a +175)ãCONST kancho = 350 'width pixels 1rst plane wallãCONST horiz = 120 'horizon vertical positionãCONST rectang = 2 'wall heigth/widthã ãããDEFINT A-ZãOPTION BASE 0ãDIM SHARED lmax AS INTEGER, dime AS INTEGER, DisplayTime AS SINGLEãDIM SHARED fugalto AS INTEGER, fugabajo AS INTEGER, FillWalls AS INTEGERãDIM SHARED markpath AS INTEGERãSCREEN 9 '640x350,(2 p ginas)ã'paletaãDIM SHARED pal(64)ãFOR i = 0 TO 3: FOR j = 0 TO 15: pal(16 * i + j) = j + 16 * i: NEXT: NEXTã'PALETTE USING pal(0)ãinfoscreenã'tama¤o laberintoãlmax = 8 'tama¤o por defectoãmaxsiz = (SQR(((FRE(-1) - 4000) / 2)) - 3) / 2'lab mas grande que cabe en memãCALL Question(lmax, 3, maxsiz, 0, "Maze size")'dimensiones ,max admisible Qbasic 101*78ãdime = lmax * 2 + 2ãDIM SHARED Maze(0 TO dime, 0 TO dime) 'Maze(0,x),Maze(x,0),Maze(dime,x) y Maze(x,dime)ã 'initialised to -2 (out of maze)ã '(odd,even) or(even,odd)=wallsã '(even,even)= pathsã 'path values : explored -1, unexplored 0ã '-2 targetã 'wall values: 1 to 15 wall,0 no wallãã '(odd,odd)= not usedã ãCLSã'Creates maze, displaying processããRANDOMIZE TIMERãInitMazeãx1 = INT(RND * (lmax - 1)) * 2 + 2ãy1 = INT(RND * (lmax - 1)) * 2 + 2ãMakePath x1, y1ã'PutWall lmax * 2, lmax * 2 + 1, 0ãa$ = INPUT$(1)ãMazeCleanãã'Player positionãori = 1ãx1 = INT(RND * (lmax - 1)) * 2 + 2ãy1 = INT(RND * (lmax - 1)) * 2 + 2ãMaze(x1, y1) = -2ãposx = 2: posy = 2ãfugalto = 120ãfugabajo = -340ãFillWalls = -1ãmarkpath = 0ã'inicializa juegoãDisplayTime = TIMERãON TIMER(1) GOSUB DisplayTimeãTIMER ONãDisplay3d posx, posyã'bucle juegoãDOã DOã k1$ = UCASE$(INKEY$)ã LOOP UNTIL LEN(k1$)ã K$ = RIGHT$(k1$, 1)ã SELECT CASE K$ã CASE "H" 'forwardã DoMove posx, posy, 1, 0ã ã CASE "G" 'forward leftã DoMove posx, posy, 1, -1ã ã CASE "I" 'forward rightã DoMove posx, posy, 1, 1ã ã CASE "P" 'backwardsã DoMove posx, posy, -1, 0ã ã CASE "O" 'backwards leftã DoMove posx, posy, -1, -1ã ã CASE "Q" 'backwards rightã DoMove posx, posy, -1, 1ã ã CASE "K" 'rightã DoMove posx, posy, 0, -1ã ã CASE "M" 'leftã DoMove posx, posy, 0, 1ã ã CASE "R" 'left turnã Turn posx, posy, "I", oriã ã CASE "S" 'right turnã Turn posx, posy, "D", oriã ã CASE "Z" 'downã IF fugalto < 120 THEN fugalto = fugalto + 30: fugabajo = fugabajo + 15ãã CASE "A" 'upã IF fugalto > -240 THEN fugalto = fugalto - 30: fugabajo = fugabajo - 15ã CASE "T"ã FillWalls = NOT FillWallsã CASE "X"ã markpath = NOT markpathã CASE ";"ã TIMER STOP: infoscreen: TIMER ONã CASE CHR$(27)ã Display2D ori, posx, posyã Display3d posx, posyã END SELECTã Display3d posx, posyãLOOPããENDãDisplayTime:ãLOCATE 25, 38: COLOR 15: PRINT "Time: "; INT(TIMER - DisplayTime);ãRETURNããSUB Crash (posx AS INTEGER, posy AS INTEGER)ã 'place here any fancy collision display routineã a$ = INKEY$ãEND SUBããSUB Display2D (ori, posx, posy) 'displays 2d maze each time you press ESCã ã a$ = INKEY$ã TIMER STOPã SCREEN 12ã ã WINDOW (2 * lmax + 1, .99)-(.99, 2 * lmax + 1)ã CLSã ori1 = oriã DO WHILE ori > 1ã Turn posx, posy, "I", oriã LOOPã ã FOR i = 1 TO dime - 1 'STEP 2ã FOR j = 1 TO dime - 1 'STEP 2ã Draw2DWall i, jã NEXTã NEXTã ã DOã LOOP UNTIL INKEY$ <> ""ã DO WHILE ori < ori1ã Turn posx, posy, "D", oriã LOOPã TIMER ONãEND SUBããSUB Display3d (posx, posy)ã ã STATIC pantvis AS SINGLEã CONST medio = .5ã IF pantvis = 0 THEN pantvis = medioã 'encontrar Targetã fondo = ABS(planos) * 2 + 1ã IF (2 * lmax + 3) - posx > fondo THEN ultfila = fondo ELSE ultfila = (2 * lmax + 3) - posxã pantvis = -pantvisã SCREEN 9, 0, medio + pantvis, medio - pantvisã WINDOW (-320, -175)-(320, 175)ã COLOR 0ã CLSã TIMER STOPã ã 'for each row of walls, from farthest to nearestã FOR fila = ultfila TO 3 STEP -2ã ãã ' temporal variables for this rowã ã i1 = kancho / (fila) 'i1 coord x parte lejana cuadroã i2 = kancho / (fila - 2) 'i2 coord x patre cercana cuadroã h1 = horiz + fugalto / fila 'h1 coord y alta lejanaã h2 = horiz + fugalto / (fila - 2) 'h2 coord y alta lejanaã l1 = horiz + fugabajo / fila 'l1 coord y baja cercanaã l2 = horiz + fugabajo / (fila - 2) 'l2 coord y baja lejanaã fx = filaã 'calcula n§ caras visibles lateralmente, izq y derã ã IF (posy - fx) < 1 THENã izq = 1 - posyã ELSEã izq = -fxã END IFã ã IF (posy + fx) > (lmax * 2 + 1) THENã der = (lmax) * 2 - posy + 1ã der1 = der - 1ã ELSEã der = fxã der1 = derã END IFã ã 'drawing..ã 'perpendicular wallsã FOR j = izq TO der1 STEP 2ã clr = Maze(posx + fila - 2, posy + j + 1)ã IF clr <> 0 THENã IF FillWalls THENã LINE (j * i1, h1)-((j + 2) * i1, l1), clr, BFã ELSEã LINE (j * i1, h1)-((j + 2) * i1, l1), clr, Bã END IFã END IFã IF Maze(posx + fila - 3, posy + j + 1) = -2 THENã COLOR 15ã LINE (j * i1, l1)-(j * i2, l2)ã LINE -((j + 2) * i2, l2)ã LINE -((j + 2) * i1, l1)ã LINE -(j * i1, l1)ã PAINT ((j + 1) * i1, (l1 + l2) / 2), 15ã END IFã 'draw path explored marksã IF markpath THENã pisado = Maze(posx + fila - 3, posy + j + 1)ã IF pisado = -1 THENã CIRCLE (i1 * (j + 1), (2 * l1 + l2) / 3), .05 * i1, 7, , , .2ã END IFã END IFã NEXTã 'parallel walls left of viewpointã FOR j = izq TO -1 STEP 2ã clr = Maze(posx + fila - 3, posy + j)ã IF clr <> 0 THENã COLOR clrã LINE (j * i2, h2)-(j * i2, l2)'vertical lejana ,abajoã LINE -(j * i1, l1) 'fuga abajo, hacia atr sã LINE -(j * i1, h1) 'vertical cercana, arribaã LINE -(j * i2, h2) 'fuga arriba,hacia DoMoveã IF FillWalls THEN PAINT (j * (i1 + 2 * i2) / 3, (2 * l1 + l2) / 3), clr, clrã ã END IFã NEXTã 'parallel walls, right of viewpointã FOR j = der TO 1 STEP -2ã clr = Maze(posx + fila - 3, posy + j)ã IF clr <> 0 THENã COLOR clrã LINE (j * i2, h2)-(j * i2, l2)'vertical lejana ,abajoã LINE -(j * i1, l1) 'fuga abajo, hacia atr sã LINE -(j * i1, h1) 'vertical cercana, arribaã LINE -(j * i2, h2) 'fuga arriba,hacia DoMoveã IF FillWalls THEN PAINT (j * (i1 + 2 * i2) / 3, (2 * l1 + l2) / 3), clr, clrã ã END IFã NEXTãã 'a$ = INPUT$(1)ã NEXTã TIMER ONããSCREEN 9, 0, medio + pantvis, medio + pantvisããEND SUBããSUB DoMove (posx, posy, vx, vy)ã ã IF vy = 0 AND Maze(posx + vx, posy) = 0 THENã posx = posx + 2 * vxã ELSEIF vx = 0 AND Maze(posx, posy + vy) = 0 THENã posy = posy + 2 * vyã ELSEIF Maze(posx, posy + vy) = 0 AND Maze(posx + vx, posy + 2 * vy) = 0 THENã posx = posx + 2 * vxã posy = posy + 2 * vyã ELSEIF Maze(posx + vx, posy) = 0 AND Maze(posx + 2 * vx, posy + vy) = 0 THENã posx = posx + 2 * vxã posy = posy + 2 * vyã ELSEã Crash posx, posyã END IFã ã IF Maze(posx, posy) = -2 THENã CALL Target(posx, posy): ENDã END IFã Maze(posx, posy) = -1ãEND SUBããSUB Draw2DWall (ix, iy)ã SELECT CASE iy MOD 2ã CASE 0ã IF (ix MOD 2) = 1 THENã LINE (ix, (iy - 1))-(ix, (iy + 1)), Maze(iy, ix)ã ELSEãã SELECT CASE Maze(iy, ix)ã CASE -1ã IF markpath THEN CIRCLE (ix, iy), .1ã CASE -2ã LINE (ix - 1, iy - 1)-(ix + 1, iy + 1), 15, BFã END SELECTã END IFã CASE 1ã IF (ix MOD 2) = 0 THEN LINE ((ix - 1), iy)-((ix + 1), iy), Maze(iy, ix)ã END SELECTããEND SUBããSUB infoscreenãCOLOR 14ãPRINT "--------------------------- maze3d.bas--------------------------------"ãCOLOR 15ãPRINT "- It's a 3d maze viewer. I programmed this several years before knowing about"ãPRINT " Raytracers, so it uses the old trick of drawing all walls in the vision range"ãPRINT " from farthest to nearest, so the nearest walls will overwrite the farthest"ãPRINT " This approach has one advantage, you can look over the top of the walls."ãPRINT " .....It's impossible with a Wolfenstein Ray Tracer type maze"ãPRINT "- It has a fast random maze generator and an overwiew feature"ãPRINT "- The program will calculate the biggest maze that fits in your memory"ãPRINT "- To save routines, pointers,.. i had the big idea of turning the whole"ãPRINT "maze array each time there is a direction change. A bit slow for big mazes.."ãCOLOR 12ãPRINTãPRINT "Move with the number pad.Change direction with the 0 and the. of the pad"ãPRINT "A Z rises/lowers point of view "ãPRINT "T toggles transparent / filled walls"ãPRINT "X toggles display/not display explored path"ãPRINT "ESC displays the maze overview"ãPRINT "F1 displays this screen"ãPRINTãCOLOR 13ãPRINT "agual@eic.ictnet.es"ãCOLOR 15ãPRINT "Press any key to continue.."ãa$ = INPUT$(1)ãEND SUBããSUB InitMaze 'Fills maze array with walls before calling make pathã 'WINDOW (.99, .99)-(2 * lmax + 1, 2 * lmax + 1)ã FOR i = 0 TO dimeã Maze(i, 0) = -2: Maze(i, dime) = -2ã NEXTã FOR j = 0 TO dimeã Maze(0, j) = -2: Maze(dime, j) = -2ã NEXTã SCREEN 12ã WINDOW (2 * lmax + 1, .99)-(.99, 2 * lmax + 1)ã CLSã ã FOR i = 1 TO dime - 1 STEP 2ã FOR j = 1 TO dime - 1 STEP 2ã CALL PutWall(i, j + 1, RND * 6 + 1)ã CALL PutWall(i + 1, j, RND * 6 + 9)ã NEXTã ã NEXTãEND SUBããSUB MakePath (x1, y1) ' makes a random and connected path thru' mazeã ' Calls Putwall with color 0 to delete walls andã ' display processsã ã Maze(x1, y1) = 1ã CALL RandomPath(x1, y1)ã DOã a = 0ã FOR i = 2 TO lmax * 2 STEP 2ã FOR j = 2 TO lmax * 2 STEP 2ã IF Maze(i, j) = 0 THENã a = 1ã IF Maze(i - 2, j) = 1 THENã Maze(i, j) = 1: CALL PutWall(i - 1, j, 0)ã CALL RandomPath(i, j)ã ELSEIF Maze(i + 2, j) = 1 THENã Maze(i, j) = 1: CALL PutWall(i + 1, j, 0):ã CALL RandomPath(i, j)ã ELSEIF Maze(i, j - 2) = 1 THENã Maze(i, j) = 1: CALL PutWall(i, j - 1, 0):ã CALL RandomPath(i, j)ã ELSEIF Maze(i, j + 2) = 1 THENã Maze(i, j) = 1: CALL PutWall(i, j + 1, 0)ã CALL RandomPath(i, j)ã END IFã END IFã NEXTã NEXTã LOOP UNTIL a = 0ããEND SUBããSUB MazeClean 'Clean marks used by MakePath before going into 3d partã FOR i = 2 TO 2 * lmax STEP 2ã FOR j = 2 TO 2 * lmax STEP 2ã Maze(i, j) = 0ã NEXTã NEXTããEND SUBããSUB PutWall (ix, iy, clr) 'put a wall in the maze array and draws it to screenã Maze(iy, ix) = clrã Draw2DWall ix, iyãEND SUBããSUB Question (in, min, max, lloc, txT$)ã IF lloc < 0 THEN CLSã lloc = ABS(lloc)ã DOã IF lloc > 0 THEN LOCATE lloc, 1ã txt1$ = txT$ + ":" + STR$(min) + "<" + STR$(max) + " (" + STR$(in) + ") "ã PRINT txt1$; SPACE$(60 - LEN(txt1$)); ":"; : INPUT UsrInput$ã IF UsrInput$ = "" THEN EXIT DOã IF VAL(UsrInput$) <> 0 OR UsrInput$ = "0" THENã in = VAL(UsrInput$)ã END IFã LOOP UNTIL in >= min AND in <= maxããEND SUBããSUB RandomPath (x, y) 'generates random turns in the path being openedã x1 = x: y1 = yã largo = INT(RND * lmax)ã i = 1ã D0 = 0: D2 = 0: D3 = 0: D1 = 0ã DO WHILE D1 + D2 + D3 + D0 < 4 AND i < largoã Recta = INT(RND * lmax)ã j = 0ã DOã dir = INT(RND * 4)ã OK = 0ã SELECT CASE dirã CASE 0ã IF Maze(x1 - 2, y1) = 0 THENã Maze(x1 - 2, y1) = 1ã CALL PutWall(x1 - 1, y1, 0)ã x1 = x1 - 2: j = j + 1: OK = 1ã ELSEã D0 = 1ã END IFã CASE 1ã IF Maze(x1, y1 - 2) = 0 THENã Maze(x1, y1 - 2) = 1ã CALL PutWall(x1, y1 - 1, 0)ã y1 = y1 - 2: j = j + 1: OK = 1ã ELSEã D1 = 1ã END IFã CASE 2ã IF Maze(x1 + 2, y1) = 0 THENã Maze(x1 + 2, y1) = 1ã CALL PutWall(x1 + 1, y1, 0)ã x1 = x1 + 2: j = j + 1: OK = 1ã ELSEã D2 = 1ã END IFã CASE 3ã IF Maze(x1, y1 + 2) = 0 THENã Maze(x1, y1 + 2) = 1ã CALL PutWall(x1, y1 + 1, 0)ã y1 = y1 + 2: j = j + 1: OK = 1ã ELSEã D3 = 1ã END IFã END SELECTã 'FOR K = 1 TO 10: LOCATE 1, 1: COLOR 7: PRINT x; y, x1; y1, dir; : NEXTã 'a$ = INPUT$(1)ã LOOP UNTIL j = Recta OR OK = 0ã i = i + jã LOOPãEND SUBããSUB swapscreenã STATIC pagã IF pag = 0 THEN pag = 1ã a = 7 * INT(RND * 8)ã SELECT CASE pagã CASE -1ã SCREEN 9, 0, 0, 1ã CASE 1ã SCREEN 9, 0, 1, 0ã END SELECTã pag = -pagããEND SUBããSUB Target (posx, posy)ã'palette USING pal(0)ããSCREEN 9, 0, 0ãCLSã ãLOCATE 12, 30: PRINT "You did it!"ãLOCATE 13, 30: PRINT "In "; TIMER - DisplayTime; " Seconds"ãSLEEPãEND SUBããSUB Turn (posx, posy, giro$, ori) ' use aux array to turn all maze 90ã ' it allows to use always the same drawingã ' and collision detection routine..ã ' it changes posx, posy and orientationã ã a = dimeã a1 = dimeã B = lmax + 1ã 'monitorã SELECT CASE giro$ã CASE "I"ã FOR i = 1 TO B - 1ã FOR j = 1 TO Bã t = Maze(i, j)ã Maze(i, j) = Maze(j, a1 - i)ã Maze(j, a1 - i) = Maze(a1 - i, a1 - j)ã Maze(a1 - i, a1 - j) = Maze(a1 - j, i)ã Maze(a1 - j, i) = tã NEXTã NEXTã ori = ori - 1ã nposx = a - posy: nposy = posxã CASE "D"ã FOR i = 1 TO B - 1ã FOR j = 1 TO Bã t = Maze(i, j)ã Maze(i, j) = Maze(a1 - j, i)ã Maze(a1 - j, i) = Maze(a1 - i, a1 - j)ã Maze(a1 - i, a1 - j) = Maze(j, a1 - i)ã Maze(j, a1 - i) = tã ã NEXTã NEXTã 'monitorã nposx = posy: nposy = a - posxã ori = ori + 1ã END SELECTã ãposx = nposx: posy = nposyãIF ori > 4 THEN ori = 1ãIF ori < 1 THEN ori = 4ãEND SUBãThe ABC Programmer ROTATING 3D PLANE voxel@edmc.net 03-04-99 (00:00) QB, QBasic, PDS 382 10646 3DPLANE.BAS ' Rotating 3D Plane (supposed to be a cube though) by William Yuã' Tried converting from Pascal, but messed up somewhere...ããDECLARE SUB setpal (c%, R%, G%, B%)ãDECLARE FUNCTION LShift% (byte%, Bits%)ãDECLARE SUB Calcsinus (SinTab%())ãDECLARE SUB quicksort (lo%, hi%)ãDECLARE SUB polygon (x1%, Y1%, x2%, Y2%, x3%, Y3%, x4%, Y4%, c%)ãDECLARE FUNCTION sinus% (i%)ãDECLARE FUNCTION cosinus% (i%)ãDECLARE SUB Rotate ()ãDEFINT A-Zã''''''''''''''''''''''''''''''''''''ã''program polygoned_cube;ã''{ THE very first polygoned cube }ã''uses crt;ã''constã'' vidseg:word=$a000;ã'' dist=150;ã'''''''''''''''''''''''''''''''''''''ãCONST dist = 150ãCONST Pi = 3.141ãCONST False = 0ãCONST True = NOT Falseãã'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ã'' point:array[0..7,0..2] of integer=(ã'' (-35,-35,-35),(-35,-35,35),(35,-35,35),(35,-35,-35),ã'' (-35, 35,-35),(-35, 35,35),(35, 35,35),(35, 35,-35));ã'' planes:array[0..5,0..3] of byte=(ã'' (0,4,5,1),(0,3,7,4),(0,1,2,3),(4,5,6,7),(7,6,2,3),(1,2,6,5));ã''typeã'' tabtype=array[0..255] of integer;ã'' planearray=array[0..5] of integer;ã''varã'' sintab:tabtype;ã'' planez:planearray;ã'' virscr:pointer;ã'' virseg:word;ã''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ãDIM SHARED points(0 TO 7, 0 TO 2) AS INTEGERãDIM SHARED planes(0 TO 5, 0 TO 3) AS INTEGERãDIM SHARED SinTab(0 TO 255) AS INTEGERãDIM SHARED planez(0 TO 5) AS INTEGERã' virscr and virseg are not convertable, they are used to do page flippingã' in mode 13h, and would require too much memory in BASICã' Check Andrew L. Ayers Blastlib! to work around this, or Jonathan Leger'sã' EMS routines.ããFOR A = 0 TO 7ã FOR B = 0 TO 2ã READ points(A, B)ã NEXT BãNEXT AããDATA -35,-35,-35,-35,-35,35,35,-35,35,35,-35,-35ãDATA -35, 35,-35,-35, 35,35,35, 35,35,35, 35,-35ããFOR A = 0 TO 5ã FOR B = 0 TO 3ã READ planes(A, B)ã NEXT BãNEXT AããDATA 0,4,5,1,0,3,7,4,0,1,2,3,4,5,6,7,7,6,2,3,1,2,6,5ãã'{----------------------------------------------------------------------------}ãã'** Forget converting this (most graphic routines just forget about converting)ã''''''''''''''''''''''''''''''''''''''''''ã''procedure cls(lvseg:word); assembler;ã''asmã'' mov es,[lvseg]ã'' xor di,diã'' xor ax,axã'' mov cx,320*200/2ã'' rep stoswã''end;ã''''''''''''''''''''''''''''''''''''''''''ãã'** Simple page copy, use SCREEN 7 if you know the graphics aren't intensive.ã'** Again, just forget about converting these graphic routines.ã''''''''''''''''''''''''''''''''''''''''''''ã''procedure flip(src,dst:word); assembler;ã''asmã'' push dsã'' mov es,[dst]ã'' mov ds,[src]ã'' xor si,siã'' xor di,diã'' mov cx,320*200/2ã'' rep movswã'' pop dsã''end;ã''''''''''''''''''''''''''''''''''''''''''''ãã'{----------------------------------------------------------------------------}ãã'{----------------------------------------------------------------------------}ãã'{----------------------------------------------------------------------------}ãã'** Never mind this, just use BASIC's LINEã'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ã''procedure horline(xb,xe,y:integer; c:byte); assembler;ã''asmã'' mov bx,[xb]ã'' cmp bx,0ã'' jz @outã'' mov cx,[xe]ã'' jcxz @outã'' cmp bx,cxã'' jb @skipã'' xchg bx,cxã'' @skip:ã'' dec bxã'' inc cxã'' sub cx,bxã'' mov es,virsegã'' mov ax,[y]ã'' shl ax,6ã'' mov di,axã'' shl ax,2ã'' add di,axã'' add di,bxã'' mov al,[c]ã'' shr cx,1ã'' jnc @skip2ã'' stosbã'' @skip2:ã'' mov ah,alã'' rep stoswã'' @out:ã''end;ã'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ãã'{----------------------------------------------------------------------------}ãã'{----------------------------------------------------------------------------}ãã'{----------------------------------------------------------------------------}ãã'var i:byte;ã'beginã CALL Calcsinus(SinTab())ã 'asm mov ax,13h; int 10h; end;ã SCREEN 7ã' getmem(virscr,64000);ã' virseg:=seg(virscr^);ã' cls(virseg);ã FOR i = 0 TO 5ã CALL setpal(i + 1, 10 + i * 2, 30 + i * 2, 10 + i * 2)ã NEXT iã CALL Rotateã' freemem(virscr,64000);ã' textmode(lastmode);ããENDããSUB Calcsinus (SinTab())ã''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ã''procedure Calcsinus(var SinTab : TabType); var I : byte; beginã'' for I := 0 to 255 do SinTab[I] := round(sin(2*I*pi/255)*128); end;ã''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ã'DIM I AS INTEGER ' don't needã FOR i = 0 TO 255ã SinTab(i) = INT(SIN(2 * i * Pi / 255) * 128)ã NEXT iãEND SUBããFUNCTION cosinus% (i)ã cosinus% = SinTab((ABS(i) + 192) MOD 255)ãEND FUNCTIONããFUNCTION LShift% (byte%, Bits%) STATICã LShift% = (byte% * (2 ^ Bits%)) MOD 256ãEND FUNCTIONããSUB polygon (x1, Y1, x2, Y2, x3, Y3, x4, Y4, c)ã' You don't need to put in AS INTEGER because we used DEFINT A-Zã' However, becareful if you do need to define them.ã' DO NOT use X1,Y1,X2,etc. AS INTEGER, you must define them separately.ã' ie. X1 AS INTEGER, X2 AS INTEGER, etc.ã''procedure polygon(x1,y1,x2,y2,x3,y3,x4,y4:integer; c:byte);ã''varã'' xpos:array[0..199,0..1] of integer;ãDIM XPos(0 TO 199, 0 TO 1) AS INTEGERã'' mny,mxy,y:integer;ã'' i:word;ã'' s1,s2,s3,s4:shortint;ãã''beginã'' mny:=y1;ã mny = Y1ã'' if y2mxy then mxy:=y2;ã IF Y2 > mxy THEN mxy = Y2ã'' if y3>mxy then mxy:=y3;ã IF Y3 > mxy THEN mxy = Y3ã'' if y4>mxy then mxy:=y4;ã IF Y4 > mxy THEN mxy = Y4ã'' s1:=byte(y1 Y2 THENã DOã IF Y1 < Y2 THEN byte = 1 ELSE byte = 0ã XPos(Y, byte) = INT(x2 - x1) * (Y - Y1) / (Y2 - Y1) + x1ã Y = Y + s1ã LOOP UNTIL Y = Y2 + s1ã ELSEã IF Y1 > Y2 THEN byte = 1 ELSE byte = 0ã XPos(Y, byte) = x1ã END IFã Y = Y2ã IF Y2 <> Y3 THENã DOã IF Y2 < Y3 THEN byte = 1 ELSE byte = 0ã XPos(Y, byte) = INT(x3 - x2) * (Y - Y2) / (Y3 - Y2) + x2ã Y = Y + s2ã LOOP UNTIL Y = Y3 + s2ã ELSEã IF Y2 > Y3 THEN byte = 1 ELSE byte = 0ã XPos(Y, byte) = x2ã END IFã Y = Y3ã IF Y3 <> Y4 THENã IF Y3 < Y4 THEN byte = 1 ELSE byte = 0ã DOã XPos(Y, byte) = INT(x4 - x3) * (Y - Y3) / (Y4 - Y3) + x3ã Y = Y + s3ã LOOP UNTIL Y = Y4 + s3ã ELSEã IF Y3 > Y4 THEN byte = 1 ELSE byte = 0ã XPos(Y, byte) = x3ã END IFã Y = Y4ã IF Y4 <> Y1 THENã DOã IF Y4 < Y1 THEN byte = 1 ELSE byte = 0ã XPos(Y, byte) = INT(x1 - x4) * (Y - Y4) / (Y1 - Y4) + x4ã Y = Y + s4ã LOOP UNTIL Y = Y1 + s4ã ELSEã IF Y1 < Y4 THEN byte = 1 ELSE byte = 0ã XPos(Y, byte) = x4ã END IFã FOR Y = mny TO mxyã LINE (XPos(Y, 0), Y)-(XPos(Y, 1), Y), cã 'horline(xpos[y,0],xpos[y,1],y,c);ã NEXT YãEND SUBããSUB quicksort (lo, hi)ãã'procedure sort(l,r:integer);ã'var i,j,x,y: integer;ã'beginã i = lo: j = hi: x = planez((lo + hi) / 2)ã DOã WHILE planez(i) < xã i = i + 1ã WENDã WHILE x < planez(j)ã j = j - 1ã WENDã IF i <= j THENã Y = planez(i): planez(i) = planez(j): planez(j) = Yã i = i + 1: j = j - 1ã END IFã LOOP UNTIL i > jã IF lo < j THEN CALL quicksort(lo, j)ã IF i < hi THEN CALL quicksort(i, hi)ãEND SUBããSUB Rotateã'procedure Rotate;ãxst = 2ãyst = 0ãzst = -2ãã'varãDIM xp(0 TO 7) AS INTEGERãDIM yp(0 TO 7) AS INTEGERãDIM z(0 TO 7) AS INTEGERã' x,y,i,j,k:integer;ã' n,Key,phix,phiy,phiz:byte;ãã phix = 0: phiy = 0: phiz = 0ã' fillchar(xp,sizeof(xp),0);ã' fillchar(yp,sizeof(yp),0);ãSCREEN 7, 0, 0, 1ã DOã 'while (port[$3da] and 8) <> 8 do;ã 'while (port($3da) and 8) = 8 do;ã 'WAIT &H3DA, 8ã WAIT &H3DA, 8ã 'CALL setpal(0, 0, 0, 50)ãã FOR n = 3 TO 5ã CALL polygon(xp(planes(planez(n) AND 7, 0)), yp(planes(planez(n) AND 7, 0)), xp(planes(planez(n) AND 7, 1)), yp(planes(planez(n) AND 7, 1)), xp(planes(planez(n) AND 7, 2)), yp(planes(planez(n) AND 7, 2)), xp(planes(planez(n) AND 7, 3)), yp( _ãplanes(planez(n) AND 7, 3)), 0)ã NEXT nã FOR n = 0 TO 7ã i = (cosinus(phiy) * points(n, 0) - sinus(phiy) * points(n, 2)) / 128ã j = (cosinus(phiz) * points(n, 1) - sinus(phiz) * i) / 128ã k = (cosinus(phiy) * points(n, 2) + sinus(phiy) * points(n, 0)) / 128ã x = (cosinus(phiz) * i + sinus(phiz) * points(n, 1)) / 128ã Y = (cosinus(phix) * j + sinus(phix) * k) / 128ã z(n) = (cosinus(phix) * k - sinus(phix) * j) / 128ã xp(n) = 160 + (-x * dist) / (z(n) - dist)ã yp(n) = 100 + (-Y * dist) / (z(n) - dist)ã NEXT nãã FOR n = 0 TO 5ã planez(n) = LShift%(INT(z(planes(n, 0)) + z(planes(n, 1)) + z(planes(n, 2)) + z(planes(n, 3))) / 4, 3 + n)ã NEXT nã CALL quicksort(0, 5)ãã FOR n = 3 TO 5ã CALL polygon(xp(planes(planez(n) AND 7, 0)), yp(planes(planez(n) AND 7, 0)), xp(planes(planez(n) AND 7, 1)), yp(planes(planez(n) AND 7, 1)), xp(planes(planez(n) AND 7, 2)), yp(planes(planez(n) AND 7, 2)), xp(planes(planez(n) AND 7, 3)), yp( _ãplanes(planez(n) AND 7, 3)), (planez(n) AND 7) + 1)ã NEXT nã phix = phix + xst: phiy = phiy + yst: phiz = phiz + zstã 'CALL setpal(0, 0, 0, 0)ã PCOPY 0, 1ã 'flip(virseg,vidseg);ã LOOP UNTIL INKEY$ <> ""ãEND SUBããSUB setpal (c, R, G, B) ' Remember this?ã''''''''''''''''''''''''''''''''''''''''''''ã''procedure setpal(c,r,g,b:byte); assembler;ã''asmã'' mov dx,3c8hã'' mov al,[c]ã'' out dx,alã''''''''''''''''''''''''''''''''''''''''''''ã OUT &H3C8, cã''''''''''''''''''''''''''ã'' inc dxã' &H3C8 + 1 = &H3C9ã'' mov al,[r]ã'' out dx,alã''''''''''''''''''''''''''ã OUT &H3C9, Rã''''''''''''''''''ã'' mov al,[g]ã'' out dx,alã''''''''''''''''''ã OUT &H3C9, Gã'''''''''''''''''''ã'' mov al,[b]ã'' out dx,alã'''''''''''''''''''ã OUT &H3C9, Bã''end;ãEND SUBããFUNCTION sinus% (i)ã IF ABS(i) > 255 THEN i = 0ã sinus% = SinTab(ABS(i))ãEND FUNCTIONãJacob Wieles MOVING LIGHTS IN A TUBE jacwls@worldonline.nl 03-17-99 (13:15) QB, QBasic, PDS, PB 133 3212 MOTION-0.BAS'program : MOTION-0.BAS (17-03-99)ã' Simple simulation of moving lights in an impossible tubeã' with data change in the DAC (Digital Analog Converter)ã'auteur : Jacob Wielesã'which basic : PowerBASIC and Q(uick)BASICããdefint a-zãdefsng wãrad1=160ãrad2=20 '==============>> Try rad2=2ãsize=2+int((2*rad2+1+7)/8)*2*(2*rad2+1)ãdim fig(size-1)ãon error goto NoVGAãscreen 12ãw=timerãwhile timer>> PB set AC (0-15) to (0-15)ã call SetColor(0,0,42,0) 'DAC (0) (Background color) blueã call SetColor(63,0,0,12) 'DAC (12) color Light redã call SetColor(0,0,63,5) 'DAC (5) color Light blueã call SetColor(0,63,0,10) 'DAC (10) color Light greenã call SetColor(0,40,0,11) 'DAC (11) color dark Greenã call SetColor(50,50,0,7) 'DAC (7) yellowã call ChangeColor(10,1) 'circle 1 light greenã for i=2 to 4 'circles 2, 3 and 4 dark greenã call ChangeColor(11,i) 'color 1-4ã next iãreturnããsimulation:ãwt=.05 ' try an other valueãdoã locate 1,1ã print" Hit spacebar for stop.";ã print" "ã doã for i=0 to 3ã call ChangeColor(11,1+i) ' Make the color dark greenã call ChangeColor(10,4-((6-i) mod 4)) ' Make the color light greenã w=timerã while timer"":wendãlocate 1,1ãprint" Hit a key for line-picture. "ãhitakey$=input$(1)ãclsãgosub LinePictãwhile inkey$<>"":wendãlocate 1,1ãprint" Hit a key for end. "ãhitakey$=input$(1)ãclsãscreen 0ãprint" Thank you for running this program. Hit a key for the source."ãendããdrawboxes:ãpy=240-15*y2ãpx=320-12*x2ãfor i= 0 to 47ã select case iã case <=7ã PY=PY+6*y1ã pset(px,py),1ã if i=0 thenã draw s5$ã elseã draw s2$ã end ifã case 8 to 23ã PX=PX+3*x1:PY=PY-3*y1ã PSET(PX,PY),1ã if i=8 or i=15 or i=16 thenã if i=8 then draw s6$ã if i=15 then draw s7$ã if i=16 then draw s8$ã elseã draw s3$ã end ifã case 24 to 31ã PY=PY+6*y1ã pset(px,py),1ã if i=24 thenã draw s10$ã elseã draw s2$ã end ifã case >31ã PX=PX-3*x1:PY=PY-3*y1ã pset(PX,PY),1ã if I=32 or i= 39 or i= 40 thenã if i=32 then draw s9$ã if i=39 then draw s7$ã if i=40 then draw s4$ã elseã draw s1$ã end ifã end selectãcall PaintBoxãnext iãreturnããLinePict:ãpy=240-15*y2ãpx=320-12*x2ãpset(px,py-2*y2),1ãline-step(-2*x1,y2),1ãxstore1=point(0)ãystore1=point(1)ãline-step(0,13*y3),1ãline-step(x2,y2),1ãxstore2=point(0)ãystore2=point(1)ãline-step(24*x1,-24*y1),1ãline-step(24*x1,24*y1),1ãxstore3=point(0)ãystore3=point(1)ãline-step(x2,-y2),1ãline-step(0,-13*y3),1ãxstore4=point(0)ãystore4=point(1)ãline-step(-x2,-y2),1ãline-step(-24*x1,24*y1),1ãline-step(-24*x1,-24*y1),1ãpset(xstore1,ystore1),1ãline-step(24*x1,24*y1),1ãline-step(-20*x1,20*y1),1ãpset(xstore2,ystore2),1ãline-step(0,-24*y2),1ãline-step(20*x1,20*y1),1ãpset(px+12*x2,py+12*y2),1ãline-step(-22*x1,22*y1),1ãline-step(0,-20*y2),1ãpset(xstore4,ystore4),1ãline-step(-24*x1,24*y1),1ãline-step(20*x1,20*y1),1ãpset(xstore3,ystore3),1ãline-step(0,-24*y2),1ãline-step(-20*x1,20*y1),1ãpset(px+12*x2,py+12*y2),1ãline-step(22*x1,22*y1),1ãline-step(0,-20*y2),1ãline(px+12*x2,py+12*y2)-(px+12*x2,py+12*y2+y3),1ããpaint(px+12*x2-x1,py+13*y2),10,1ãpaint(px+12*x2+x1,py+13*y2),6,1ãpaint(px+12*x2,py+12*y2-y1),2,1ãpaint(xstore1+x1,ystore1+y2),6,1ãpaint(xstore4-x1,ystore4+y2),10,1ãreturnããLookShapes:ãi=0:PY=300ãPX=260:pset(PX,PY):draw s1$:call PaintBoxãPX=320:pset(PX,PY):draw s2$:call PaintBoxãPX=380:pset(PX,PY):draw s3$:call PaintBoxãPY=360ãPX=32*4:pset(PX,PY):draw s4$:call PaintBoxãPX=32*6:pset(PX,PY):draw s5$:call PaintBoxãPX=32*8:pset(PX,PY):draw s6$:call PaintBoxãPX=32*10:pset(PX,PY):draw s7$:call PaintBoxãPX=32*12:pset(PX,PY):draw s8$:call PaintBoxãPX=32*14:pset(PX,PY):draw s9$:call PaintBoxãPX=32*16:pset(PX,PY):draw s10$:call PaintBoxãcolor 6ãlocate 26,1ãprint" Those shapes are used for the look-a-like"ãprint" OSCAR REUTERSVŽRD picture."ãprint" Can You find them all ?"ãreturnããinitialcolor:ã call NewPaletteUsing '===>>> PB set AC (0-15) to (0-15)ã call SetColor(0,0,0,1) 'Draw color Blackã call SetColor(63,63,63,0) 'Background color Whiteãã call SetColor(0,50,0,16) 'DAC (16) color Greenã for i=2 to 5 '4 x paint-color for top >> Greenã call ChangeColor(16,i) 'color 2-5ã next iã call SetColor(0,63,0,19) 'DAC (19) color Light greenãã call SetColor(50,0,0,17) 'DAC (17) color Redã for i=6 to 9 '4 x paint-color for left >> Redã call ChangeColor(17,i) 'color 6-9ã next iã call SetColor(63,0,0,20) 'DAC (20) color Light redãã call SetColor(0,0,50,18) 'DAC (18) color Blueã for i=10 to 13 '4 x paint-color for right >> Blueã call ChangeColor(18,i) 'color 10-13ã next iã call SetColor(0,0,63,21) 'DAC (21) color Light blueãreturnããMakeColorslight:ã for i=2 to 5ã call ChangeColor(19,i)ã next iã for i=6 to 9ã call ChangeColor(20,i)ã next iã for i=10 to 13ã call ChangeColor(21,i)ã next iãreturnããsimulation:ãdt!=.2 ' try an other valueãdoã locate 1,1ã print" Hit spacebar for stop.";ã print" "ã doã call ChangeColor(19,2) '\ã call ChangeColor(20,6) '| Make the colors of the boxes 1 lightã call ChangeColor(21,10) '/ã call ChangeColor(16,5) '\ã call ChangeColor(17,9) '| Make the colors of the boxes 4 darkã call ChangeColor(18,13) '/ã t!=timerã while timer"":wendãlocate 1,1ãprint" Hit a key for end. "ãhitakey$=input$(1)ãclsãscreen 0ãw!=timerãwhile timer14 thenã pset(px,py),1ã draw f5$ã paint(px,py-y6),2+i mod 4,1 'topã paint(px-1,py+y3),6+i mod 4,1 'leftã paint(px+2,py),10+i mod 4,1 'rightã end ifã case 24ã px=px+x4ã py=py-y2ã pset(px,py),1ã draw f6$ã paint(px,py-y6),2+i mod 4,1 'topã paint(px-1,py+y3),6+i mod 4,1 'leftã paint(px+2,py),10+i mod 4,1 'rightã case 25 to 27ã px=px+x4ã py=py+y6ã pset(px,py),1ã draw f7$ã paint(px,py-2),2+i mod 4,1 'topã paint(px-2,py),6+i mod 4,1 'leftã paint(px+2,py),10+i mod 4,1 'rightã case 28ã px=px+x4ã py=py+y6ã pset(px,py),1ã draw f8$ã paint(px,py-2),2+i mod 4,1 'topã paint(px-2,py),6+i mod 4,1 'leftã paint(px+2,py),10+i mod 4,1 'rightã case 29 to 31ã px=px-x4ã py=py+y6ã pset(px,py),1ã draw f8$ã paint(px,py-2),2+i mod 4,1 'topã paint(px-2,py),6+i mod 4,1 'leftã paint(px+2,py),10+i mod 4,1 'rightã end selectã next iãreturnããinitialcolor:ã call NewPaletteUsing '===>>> PB set AC (0-15) to (0-15)ã call SetColor(0,0,0,1) 'Color 1 : Blackã call SetColor(63,63,63,0) 'Background color Whiteãã call SetColor(0,50,0,16) 'DAC (16) color Greenã call SetColor(50,0,0,17) 'DAC (17) color Redã call SetColor(0,0,50,18) 'DAC (18) color Blueã call SetColor(0,63,0,19) 'DAC (19) color Light greenã call SetColor(63,0,0,20) 'DAC (20) color Light redã call SetColor(0,0,63,21) 'DAC (21) color Light blueã for i=2 to 5 '4 x paint-color for top >> Greenã call ChangeColor(16,i) 'color 2-5ã next iã for i=6 to 9 '4 x paint-color for left >> Redã call ChangeColor(17,i) 'color 6-9ã next iã for i=10 to 13 '4 x paint-color for right >> Blueã call ChangeColor(18,i) 'color 10-13ã next iãreturnããMakeColorslight:ã for i=2 to 5ã call ChangeColor(19,i)ã next iã for i=6 to 9ã call ChangeColor(20,i)ã next iã for i=10 to 13ã call ChangeColor(21,i)ã next iãreturnããsimulation:ãdt!=.2 ' try an other valueãdoã locate 1,1ã print" Hit spacebar for stop.";ã print" "ã doã for i=0 to 3ã call ChangeColor(19,2+i) '\ã call ChangeColor(20,6+i) '| Make the colors of the boxes lightã call ChangeColor(21,10+i) '/ã call ChangeColor(16,5-(4-i) mod 4) '\ã call ChangeColor(17,9-(4-i) mod 4) '| Make the colors darkã call ChangeColor(18,13-(4-i) mod 4) '/ã t!=timerã while timer"":wendãlocate 1,1ãprint" Hit a key for end. "ãhitakey$=input$(1)ãclsãscreen 0ãprint" Thank you for running this program. Hit a key for the source."ãendã'=======================================================================ããStairs:ãpx=520ãpy=140ãfor i=0 to 34ã select case iã case 0ã pxp=pxã pyp=pyã pset(pxp,pyp)ã draw s01$ã paint(pxp,pyp-2),2+i mod 5,1 'topã paint(pxp-2,pyp),7,1 'leftã paint(pxp+2,pyp),8,1 'rightã case 1 to 10ã pxp=pxp-x6ã pyp=pyp+y12ã pset(pxp,pyp),1ã if i<10 thenã draw s08$ã paint(pxp,pyp-2),2+i mod 5,1ã paint(pxp-2,pyp),7,1ã paint(pxp+2,pyp),8,1ã elseã draw s08b$ã paint(pxp,pyp-y1),2+i mod 5,1ã paint(pxp+x1,pyp),8,1ã end ifã case 11ã pxp=pxp-x12:pyp=pyp+y8ã pset(pxp,pyp),1ã draw s01$ã paint(pxp,pyp-2),2+i mod 5,1ã paint(pxp-2,pyp),7,1ã paint(pxp+2,pyp),8,1ã case 12 to 19ã pxp=pxp-x16:pyp=pyp-y8ã pset(pxp,pyp),1ã draw s06$ã paint(pxp,pyp-2),2+i mod 5,1ã paint(pxp-2,pyp),7,1ã case 20ã pxp=pxp+x12:pyp=pyp-y8ã pset(pxp,pyp),1ã draw s07v$ã paint(pxp,pyp-2),2+i mod 5,1ã paint(pxp+2,pyp),8,1ã case 21 to 24ã pxp=pxp+x12:pyp=pyp-y8ã pset(pxp,pyp),1ã draw s07$ã paint(pxp,pyp-2),2+i mod 5,1ã paint(pxp+2,pyp),8,1ã case 25 to 32ã pxp=pxp+x12:pyp=pyp-y4ã pset(pxp,pyp),1ã draw s03$ã paint(pxp+2,pyp-y4),2+i mod 5,1ã paint(pxp-2,pyp+y6),7,1ã paint(pxp+2,pyp),8,1ã case 33ã pxp=pxp+x12:pyp=pyp-y8ã pset(pxp,pyp),1ã draw s03e$ã paint(pxp,pyp-y1),2+i mod 5,1ã case 34ã pxp=pxp+x16:pyp=pyp+y8ã pset(pxp,pyp),1ã draw s06$ã paint(pxp,pyp-2),2+i mod 5,1ã paint(pxp-2,pyp),7,1ã end selectãnext iãreturnããinitialcolor:ã call NewPaletteUsing '===>>> PB set AC (0-15) to (0-15)ã call SetColor(0,0,0,1) 'Color 1: Blackã call SetColor(63,63,63,0) 'Background color Whiteã call SetColor(50,0,0,7) 'DAC (7) color Redã call SetColor(0,0,50,8) 'DAC (8) color Blueã call SetColor(0,50,0,9) 'DAC (9) color Greenã call SetColor(63,0,0,10) 'DAC (10) color Light redã call SetColor(0,0,63,11) 'DAC (11) color Light blueã call SetColor(0,63,0,12) 'DAC (12) color Light greenã for i=2 to 6 '5 x paint-color for top >> greenã call ChangeColor(9,i) 'DAC data 2-6ã next iãreturnããMakeColorslight:ã for i=2 to 6ã call ChangeColor(12,i)ã next iã call ChangeColor(10,7)ã call ChangeColor(11,8)ãreturnããsimulation:ãdt!=.2 ' try an other valueãdoã locate 1,1ã print" Hit spacebar for stop.";ã print" "ã doã for i=0 to 4ã call ChangeColor(12,2+i) ' Make the colors lightã call ChangeColor(9,6-(5-i) mod 5) ' Make the colors darkã t!=timerã while timer"":wendãlocate 1,1ãprint" Hit a key for end. "ãhitakey$=input$(1)ãeinde:ãclsãscreen 0ãw!=timerãwhile timer11 thenã pset(px,py),1ã draw f5$ã paint(px,py-y6),7-i mod 6,1 'topã paint(px+2,py),8,1 'rightã end ifã case 18ã px=px+x4ã py=py-y2ã pset(px,py),1ã draw f6$ã paint(px,py-y6),7-i mod 6,1 'topã paint(px+2,py),8,1 'rightã case 19,20ã px=px+x4ã py=py+y6ã pset(px,py),1ã draw f7$ã paint(px,py-2),7-i mod 6,1 'topã paint(px-2,py),9,1 'leftã paint(px+2,py),8,1 'rightã case 21ã px=px+x4ã py=py+y6ã pset(px,py),1ã draw f8$ã paint(px,py-2),7-i mod 6,1 'topã paint(px-1,py+1),9,1 'leftã paint(px+1,py+1),8,1 'rightã case 22,23ã px=px-x4ã py=py+y6ã pset(px,py),1ã draw f8$ã paint(px,py-2),7-i mod 6,1 'topã paint(px-1,py+1),9,1 'leftã paint(px+1,py+1),8,1 'rightã end selectã next iãreturnããWalls:ãpx=pxst+4*x4ãpy=pyst-9*y2ãpset(px,py)ãline-step(0,27*y2),1ãline-step(-4*x4,4*y4),1ãdu=12*y4ãdraw"c1nu="+varptr$(du)ãline-step(-10*x4,-10*y4),1ãline-step(0,-15*y2),1ãpaint(point(0)+x1,point(1)+y2),9,1ãpaint(px-x4,py+2*y4),8,1ãpx=pxstãpy=pystãline(px,py-5*y2)-(px,py-15*y2),1ãpaint(px-x2,py-7*y2),8,1ãpaint(px+x2,py-7*y2),9,1ãpaint(px-5*x5,py-10*y2),8,1ã'==================================ãpx=pxst+4*x4ãpy=pyst+7*y4ãpset(px,py)ãline-step(2*x4,2*y4),1ãline-step(-6*x4,6*y4),1ãline-step(-12*x4,-12*y4),1ãline-step(2*x4,-2*y4),1ãpaint(px+x2,py+y4),10,1ãreturnããBriks:ãpx=pxst+4*x4ãpy=pyst-9*y2ãfor i=1 to 3ã pset(px-i*x4,py+i*y6)ã line-step(0,27*y2-i*y2),1ãnext iãfor i=0 to 3ã pyw=py+i*y6ã for j=1 to 13-i/2ã pset(px-i*x4,pyw+j*y4)ã line-step(-x4,y4),1ã next jãnext iã'=================================ãpx=pxstãpy=pyst+y4ãfor i=1 to 9ã pset(px-i*x4,py-i*y2)ã line-step(0,24*y2-i*y2),1ãnext iãfor i=0 to 9ã if i=0 or i=1 then k=0ã if i=2 or i=3 then k=1ã if i=4 or i=5 then k=2ã if i=6 or i=7 then k=3ã if i=8 or i=9 then k=4ã pyw=py-i*y2ã for j=1 to 11-kã pset(px-i*x4,pyw+j*y4)ã line-step(-x4,-y4),1ã next jãnext iã'=====================================ãpx=pxst-6*x4ãpy=pyst-5*y4ãfor i=1 to 5ã pset(px+i*x4,py-i*y2)ã line-step(0,i*y4),1ãnext iãfor i=0 to 5ã k=0ã for j=1+i to 6ã pset(px+j*x4,py+i*y4-(j-1)*y2)ã if k=0 thenã line-step(-x2,y2),1ã elseã line-step(-x4,y4),1ã end ifã k=1ã next jãnext iããpx=pxstãpy=pyst-13*y2ãpset(px+x4,py+y2)ãline-step(0,2*y4),1ãpset(px+x4,py+y6)ãline-step(x2,y2),1ãfor i=0 to 3ã pset(px,py+i*y4)ã if i<3 thenã line-step(x4,y4),1ã elseã line-step(x2,y2),1ã end ifãnext iãreturnãããinitialcolor:ã call NewPaletteUsing '===>>> PB set AC (0-15) to (0-15)ã call SetColor(0,0,0,1) 'Color 1: Blackã call SetColor(63,63,63,0) 'Background color Whiteã call SetColor(63,0,0,8) 'DAC (8) color Light redã call SetColor(0,0,63,9) 'DAC (9) color Light blueã call SetColor(0,63,0,10) 'DAC (10) color Light greenã call SetColor(0,50,0,11) 'DAC (16) color Greenãã for i=2 to 7 '6 x paint-color for top >> Greenã call ChangeColor(11,i) 'color 2-7ã next iãreturnããMakeColorslight:ã for i=2 to 7ã call ChangeColor(10,i)ã next iãreturnããsimulation:ãdt!=.2 ' try an other valueãdoã locate 1,1ã print" Hit spacebar for stop.";ã print" "ã doã for i=0 to 5ã call ChangeColor(10,2+i) ' Make the color lightã call ChangeColor(11,7-(6-i) mod 6) ' Make the color darkã t!=timerã while timer"":wendã locate 1,1ã print" Hit Key for ";ã print HK$;ã hit$=input$(1)ã locate 1,1ã print" ";ã print space$(len(hk$))ãend subãããsub ChangeColor(col1,col2) 'R, G and B value from Dac (col1)ã out &H3C7,col1 'to DAC (col2)ã R=inp(&H3C9)ã G=inp(&H3C9)ã B=inp(&H3C9)ã out &H3C8,col2ã out &H3C9,Rã out &H3C9,Gã out &H3C9,Bãend subããsub SetColor(R,G,B,Dac) 'New R, G and B value to DAC (Dac)ã out &H3C8,Dacã out &H3C9,Rã out &H3C9,Gã out &H3C9,Bãend subããsub NewPaletteUsingã restore acdataã dummy=inp(&H3DA)ã for attr=0 to 15ã out &H3C0,attrã read colã out &H3C0,colã next attrã out &H3C0,32ãend subãããinitdrawstrings:ã'=======================================================================ã f1$="C1BU="+VARPTR$(y8)+"M+="+VARPTR$(x4)+",+="+VARPTR$(y4)ã f1$=f1$+"D="+VARPTR$(y4)+"M-="+VARPTR$(x4)+",+="+VARPTR$(y4)ã f1$=f1$+"M-="+VARPTR$(x4)+",-="+VARPTR$(y4)+"U="+VARPTR$(y4)ã f1$=f1$+"M+="+VARPTR$(x4)+",-="+VARPTR$(y4)+"BD="+VARPTR$(y8)ã f1$=f1$+"NM-="+VARPTR$(x4)+",-="+VARPTR$(y4)ã f1$=f1$+"NM+="+VARPTR$(x4)+",-="+VARPTR$(y4)+"ND="+VARPTR$(y4)ã'=======================================================================ã f2$="C1BU="+VARPTR$(y8)+"M+="+VARPTR$(x3)+",+="+VARPTR$(y3)ã f2$=f2$+"M-="+VARPTR$(x3)+",+="+VARPTR$(y3)ã f2$=f2$+"D="+VARPTR$(y6)ã f2$=f2$+"M-="+VARPTR$(x4)+",-="+VARPTR$(y4)+"U="+VARPTR$(y4)ã f2$=f2$+"M+="+VARPTR$(x4)+",-="+VARPTR$(y4)+"BD="+VARPTR$(y8)ã f2$=f2$+"NM-="+VARPTR$(x4)+",-="+VARPTR$(y4)ã f2$=f2$+"ND="+VARPTR$(y4)ã'=======================================================================ã f3$="C1BU="+VARPTR$(y8)+"M+="+VARPTR$(x4)+",+="+VARPTR$(y4)ã f3$=f3$+"D="+VARPTR$(y2)+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)ã f3$=f3$+"M-="+VARPTR$(x1)+",-="+VARPTR$(y1)ã f3$=f3$+"NM+="+VARPTR$(x2)+",-="+VARPTR$(y2)ã f3$=f3$+"M-="+VARPTR$(x2)+",-="+VARPTR$(y2)ã f3$=f3$+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)ã f3$=f3$+"M-="+VARPTR$(x2)+",-="+VARPTR$(y2)ã f3$=f3$+"M+="+VARPTR$(x3)+",-="+VARPTR$(y3)+"BD="+VARPTR$(y8)ã'========================================================================ã f4$="C1BU="+VARPTR$(y8)+"M+="+VARPTR$(x4)+",+="+VARPTR$(y4)ã f4$=f4$+"D="+VARPTR$(y4)+"M-="+VARPTR$(x2)+",+="+VARPTR$(y2)ã f4$=f4$+"M-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"U="+VARPTR$(y2)ã f4$=f4$+"M-="+VARPTR$(x3)+",-="+VARPTR$(y3)ã f4$=f4$+"M+="+VARPTR$(x3)+",-="+VARPTR$(y3)+"BD="+VARPTR$(y8)ã f4$=f4$+"NM+="+VARPTR$(x4)+",-="+VARPTR$(y4)ã'========================================================================ã f5$="C1BU="+VARPTR$(y8)+"M+="+VARPTR$(x4)+",+="+VARPTR$(y4)ã f5$=f5$+"D="+VARPTR$(y4)+"M-="+VARPTR$(x4)+",+="+VARPTR$(y4)ã f5$=f5$+"U="+VARPTR$(y6)ã f5$=f5$+"M-="+VARPTR$(x3)+",-="+VARPTR$(y3)ã f5$=f5$+"M+="+VARPTR$(x3)+",-="+VARPTR$(y3)+"BD="+VARPTR$(y8)ã f5$=f5$+"NM+="+VARPTR$(x4)+",-="+VARPTR$(y4)+"ND="+VARPTR$(y4)ã'========================================================================ã f6$="C1BU="+VARPTR$(y8)+"M+="+VARPTR$(x4)+",+="+VARPTR$(y4)ã f6$=f6$+"D="+VARPTR$(y2)+"M-="+VARPTR$(x4)+",+="+VARPTR$(y4)ã f6$=f6$+"U="+VARPTR$(y4)+"M-="+VARPTR$(x3)+",-="+VARPTR$(y3)ã f6$=f6$+"M+="+VARPTR$(x3)+",-="+VARPTR$(y3)+"BD="+VARPTR$(y8)ã f6$=f6$+"NM+="+VARPTR$(x4)+",-="+VARPTR$(y4)ã'========================================================================ã f7$="C1BU="+VARPTR$(y8)+"M+="+VARPTR$(x4)+",+="+VARPTR$(y4)ã f7$=f7$+"D="+VARPTR$(y2)+"M-="+VARPTR$(x4)+",+="+VARPTR$(y4)ã f7$=f7$+"D="+VARPTR$(y2)+"M-="+VARPTR$(x4)+",-="+VARPTR$(y4)ã f7$=f7$+"U="+VARPTR$(y4)ã f7$=f7$+"M+="+VARPTR$(x4)+",-="+VARPTR$(y4)+"BD="+VARPTR$(y8)ã f7$=f7$+"NM-="+VARPTR$(x4)+",-="+VARPTR$(y4)ã f7$=f7$+"NM+="+VARPTR$(x4)+",-="+VARPTR$(y4)+"ND="+VARPTR$(y2)ã'========================================================================ã f8$="C1BU="+VARPTR$(y8)+"M+="+VARPTR$(x4)+",+="+VARPTR$(y4)ã f8$=f8$+"D="+VARPTR$(y4)+"M-="+VARPTR$(x4)+",+="+VARPTR$(y4)ã f8$=f8$+"U="+VARPTR$(y2)+"M-="+VARPTR$(x4)+",-="+VARPTR$(y4)ã f8$=f8$+"U="+VARPTR$(y2)ã f8$=f8$+"M+="+VARPTR$(x4)+",-="+VARPTR$(y4)+"BD="+VARPTR$(y8)ã f8$=f8$+"NM-="+VARPTR$(x4)+",-="+VARPTR$(y4)ã f8$=f8$+"NM+="+VARPTR$(x4)+",-="+VARPTR$(y4)+"ND="+VARPTR$(y2)ã'========================================================================ãreturnããacdata:ãdata 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15ãJernej Simoncic MAKE ANY SIZE .BMP FILE jernej.simoncic@guest.arnes.si 03-23-99 (08:41) QB, QBasic, PDS 173 5904 MAKEBMP.BAS DEFINT A-ZãDECLARE SUB MakeBMP (file$, xStart%, yStart%, xEnd%, yEnd%, BPP%)ããTYPE BMPheaderã Ident AS STRING * 2 ' "BM"ã Size AS LONG ' file size (x*y+header+pal)ã Reserved AS LONG ' junkã Offset AS LONG ' header+paletteã HeaderSize AS LONG ' 40ã xRes AS LONG ' x resolutionã yRes AS LONG ' y resolutionã Planes AS INTEGER ' 1ã BPP AS INTEGER ' bits per pixelã Compression AS LONG ' 0-none/1,2-rleã ImageSize AS LONG ' x*yã PixPerMetreX AS LONG ' 3790ã PixPerMetreY AS LONG ' 3780ã UsedColors AS LONGã ImportantColors AS LONGãEND TYPEãDIM SHARED BMPheader AS BMPheaderãã'----------------------------------------------------------------------------ã'Demo: (you can safetly delete this)ããSCREEN 12ããFOR i% = 0 TO 300ã IF RND AND 1 THENã x = INT(RND * 640)ã y = INT(RND * 480)ã c = INT(RND * 16)ã CIRCLE (x, y), INT(RND * 30), cã IF RND AND 1 THENã PAINT (x, y), INT(RND * 16), cã END IFã ELSEã LINE (INT(RND * 640), INT(RND * 480))-(INT(RND * 640), INT(RND * 480)), INT(RND * 16)ã END IFãNEXTããMakeBMP "test.bmp", 20, 20, 619, 459, 4ãã'ã' MakeBMP - make any size Windows 3.0 BMP fileã'ã' Usage:ã' MakeBMP file$, xStart, yStart, xEnd, yEnd, BPPã'ã' file$ name of file to makeã' xStart starting x coordinateã' yStart starting y coordinateã' xEnd ending x coordinateã' yEnd ending y coordinateã' BPP bits per pixel (8 - 256 colors, 4 - 16 colors, 1 - 2 colors)ã'ã' Freeware by Jernej Simoncicã'ã' Send comments, quetions, etc. to jernej.simoncic@guest.arnes.si orã' ICQ#: 26266467ã' You can visit my homepage at: http://www2.arnes.si/~sopjsimo/ã'ãSUB MakeBMP (file$, xStart, yStart, xEnd, yEnd, BPP)ãã IF BPP <> 8 AND BPP <> 4 AND BPP <> 1 THEN EXIT SUBã IF BPP = 8 THENã div = 1ã ELSEIF BPP = 4 THENã div = 2ã ELSEã div = 8ã END IFã ã BMPheader.xRes = xEnd - xStart + 1ã BMPheader.yRes = yEnd - yStart + 1ã ã BMPheader.Ident = "BM"ã BMPheader.Size = (BMPheader.xRes * BMPheader.yRes) \ div + 54 + 4 * 2 ^ BPPã BMPheader.Reserved = 0ã BMPheader.Offset = 54 + 4 * 2 ^ BPPã BMPheader.HeaderSize = 40ã BMPheader.Planes = 1ã BMPheader.BPP = BPPã BMPheader.Compression = 0ã BMPheader.ImageSize = (BMPheader.xRes * BMPheader.yRes) \ divã BMPheader.PixPerMetreX = 3790ã BMPheader.PixPerMetreY = 3780ã BMPheader.UsedColors = 0ã BMPheader.ImportantColors = 0ãã BMPfile = FREEFILEã OPEN file$ FOR BINARY AS BMPfileãã PUT BMPfile, , BMPheaderãã SELECT CASE BPPã CASE 8ã pal$ = SPACE$(1024)ã FOR c% = 0 TO 255ã OUT &H3C7, c%ã r% = (INP(&H3C9) * 65280) \ 16128ã g% = (INP(&H3C9) * 65280) \ 16128ã b% = (INP(&H3C9) * 65280) \ 16128ã MID$(pal$, c% * 4 + 1, 3) = CHR$(b%) + CHR$(g%) + CHR$(r%)ã NEXTã CASE 4ã pal$ = SPACE$(64)ã FOR c% = 0 TO 15ã OUT &H3C7, c%ã r% = (INP(&H3C9) * 65280) \ 16128ã g% = (INP(&H3C9) * 65280) \ 16128ã b% = (INP(&H3C9) * 65280) \ 16128ã MID$(pal$, c% * 4 + 1, 3) = CHR$(b%) + CHR$(g%) + CHR$(r%)ã NEXTã CASE 1ã pal$ = SPACE$(8)ã FOR c% = 0 TO 1ã OUT &H3C7, c%ã r% = (INP(&H3C9) * 65280) \ 16128ã g% = (INP(&H3C9) * 65280) \ 16128ã b% = (INP(&H3C9) * 65280) \ 16128ã MID$(pal$, c% * 4 + 1, 3) = CHR$(b%) + CHR$(g%) + CHR$(r%)ã NEXTã END SELECTãã PUT BMPfile, , pal$ãã SELECT CASE BPPã CASE 8ã line$ = SPACE$((INT((BMPheader.xRes - 1) / 4) + 1) * 4)ã FOR y% = yEnd TO yStart STEP -1ã FOR x% = xStart TO xEndã MID$(line$, x% - xStart + 1, 1) = CHR$(POINT(x%, y%))ã NEXTã LINE (xStart, y%)-(xEnd, y%), 0ã PUT BMPfile, , line$ã NEXTã CASE 4ã line$ = SPACE$((INT((BMPheader.xRes - 1) / 8) + 1) * 4)ã FOR y% = yEnd TO yStart STEP -1ã FOR x% = xStart TO xEnd STEP 2ã a = POINT(x%, y%) MOD 16ã b = POINT(x% + 1, y%) MOD 16ã p% = a * 16 + bã MID$(line$, (x% - xStart) / 2 + 1, 1) = CHR$(p%)ã NEXTã LINE (xStart, y%)-(xEnd, y%), 0ã PUT BMPfile, , line$ã NEXTã CASE 1ã line$ = SPACE$((INT((BMPheader.xRes - 1) / 32) + 1) * 4)ã DIM Look(7) AS INTEGERã FOR b% = 0 TO 7ã Look(7 - b%) = 2 ^ bã NEXTã FOR y% = yEnd TO yStart STEP -1ã FOR x% = xStart TO xEnd STEP 8ã p% = 0ã FOR b% = 0 TO 7ã IF POINT(x% + b%, y%) <> 0 THENã p% = p% + Look(b%)ã END IFã NEXTã MID$(line$, (x% - xStart) / 8 + 1, 1) = CHR$(p%)ã NEXTã LINE (xStart, y%)-(xEnd, y%), 0ã PUT BMPfile, , line$ã NEXTã END SELECTãã CLOSE BMPfileã ãEND SUBãJernej Simoncic MARTIN FRACTALS jernej.simoncic@guest.arnes.si 03-23-99 (08:41) QB, QBasic, PDS 83 2198 MARTIN.BAS ' Martin fractal program, by Alan Meissã' Converted to basic by Jernej Simoncicã'ã' Formula from "Dynamical Systems and Fractals",ã' by Karl-Heinz Becker and Michael D”rfler,ã' Cambridge University Press, 1990ã'ãDECLARE FUNCTION sign% (x AS DOUBLE)ãDECLARE SUB plot (x AS DOUBLE, y AS DOUBLE, clr%)ãDECLARE SUB martin1 (a AS DOUBLE, b AS DOUBLE, c AS DOUBLE, s AS DOUBLE)ãDECLARE SUB getparam ()ãDEFINT A-ZãDIM SHARED xmax, ymax, t, tcmax, tc, clr, cx, cy, codeãDIM SHARED sa AS DOUBLE, sav AS DOUBLE, sb AS DOUBLE, sc AS DOUBLEãDIM SHARED ch AS STRING * 1ãã RANDOMIZE TIMERãã xmax = 639ã ymax = 479ã cx = INT(.5 + xmax / 2!)ã cy = INT(.5 + ymax / 2!)ã SCREEN 12ã getparamã DOã sa = RND * 100! - 50!ã sb = RND * 100! - 50!ã sc = RND * 100! - 50!ã sav = (ABS(sa) + ABS(sb) + ABS(sc)) / 3!ã martin1 sa, sb, sc, 6! - ABS(sav / 10!)ã LOOP UNTIL ch = CHR$(27) OR ch = "q" OR ch = "Q"ã SCREEN 0ããSUB getparamãtcmax = VAL(COMMAND$)ãIF tcmax <= 0 THEN tcmax = 10ãEND SUBããSUB martin1 (a AS DOUBLE, b AS DOUBLE, c AS DOUBLE, s AS DOUBLE)ããDIM xold AS DOUBLE, yold AS DOUBLE, xnew AS DOUBLE, ynew AS DOUBLEããbegin:ã xold = 0ã yold = 0ã clr = 9 + INT(.5 + INT(RND * 7))ã t = 0ã tc = 0ã ch = "a"ã DOã plot xold * s, yold * s, clrã xnew = yold - sign(xold) * SQR(ABS(b * xold - c))' { <- This is it! These two }ã ynew = a - xold ' { <- lines generate the }ã xold = xnew ' { entire fractal! }ã yold = ynewã t = t + 1ã IF t > 1000 THENã tc = tc + 1ã clr = clr + 1ã IF clr > 15 THEN clr = 9ã t = 0ã END IFã k$ = INKEY$ã IF k$ <> "" THEN keypressed = -1ã LOOP UNTIL keypressed OR ((tc > (tcmax - 1)) AND (tcmax > 0))ã CLSã IF keypressed THEN ch = k$ãEND SUBããSUB plot (x AS DOUBLE, y AS DOUBLE, clr)ãPSET (INT(.5 + x) + cx, INT(.5 + y) + cy), clrãEND SUBããFUNCTION sign (x AS DOUBLE)ãSELECT CASE xã CASE 0ã sign = 0ã CASE IS < 0ã sign = -1ã CASE ELSEã sign = 1ãEND SELECTãEND FUNCTIONãNigel Traves VARIOUS FRACTAL IMAGES tarot@ihalliwell.freeserve.co.u03-31-99 (00:40) QB, QBasic, PDS 61 3915 VFRACTAL.BAS' Various Fractal ImagesãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"VFRACTAL.ZIP",4^6:Z&=2636:?STRING$(50,177);ãU"%up()%9%'%I-%>JSIIi#,Vqm&.%%T'%%%.%%%%np%jifS%gfxzLw<:R7U5wS'qDãU"305jSfZMlLr;UU+USdSoD)'(j/P>C.-3;aN8$,b-SG?pUla'$J^JXa:QD&c3L1ZãU"lJUDbysux/mV2XEP$:Q3a#Y[(gb^_Z^HhP8?i>?T,*[^r&[4.Tm9jU/B&;gFn5SãU"+FLB[?B5H0c+>)VRfP&+FZp'Rq1UY/-]w.C9G6I,.#g-7P3;wQEuIgCSZ\%i*2;ãU"SZ:8Yyu8NkIN;qeCcJSacR4Md4d5.JH1V?>//Qf-RVPbiIYLLZY9=P=,^Mi#,DUãU",H:paP*Nm_J=VSp,3:%y%pNrN.;Etl21EUr%IXB6pPRh(/BXo4\%n8D4b<cNNcjuoX9dEnI(K9ãU"6:GA>D:8oFimXo,b;Du%p()9%%'%-L%IKI[I?'G%CD&%(%['%%%.%%%%mjs%tsSãU"g.fxLw0hpSea5vSq#d1,PS-Nc,X6m\Zif$?%GA4f.[6WD(Zar$J07N8UQgRO(M>)^EB0B\S_zk>$jXcj9'^P_Q<*lH>&g#_(Zm>FãU"crnsGwqQ8&7L]qaglRjfiJiOM9(;bEI\JIye5H#hIKVPm_wFz%G7DJwnrãU"2:mX*7HA5ObaMu*oCpWg$0NX4Cp_gptJshw'_dXQj$:KD\g,HTsY_d9=YqPJ_R&ãU"=T+hL5oTT3cLkC43-YjIgGNrfqEhmXo)7k(PY(3smi']?]=%LtAa\Yv6[]$8^&?ãU"*Se^&tFRYT)nC2#yMsNK\#=un'N3>KR,9F%mRumUl5)O<+EZ.(yf-*gfpoID_i[ãU"\Gt8*$Cwx6SB7c)+^)G&kLyo&Q2/';^j*C^b=&/kmEOQ/q.gxPyQULT.KaaDQ;$ãU"rkVFt,PLg_eqm&4MY9PxE-USzJW[j1ax9aSEeVP-qVH3^/)&5*,H-6l0OfLLPFNãU"j&L=.qrKB1mD=&aTknP7X\1f%?p):b)=D$2q=vFvNK/E*ap42gpnz4brCv&ghiZãU"0W=gxXOBT)QS2]kH0[+SacV6^8m_v8D=(B$XtohNfoDx+rt9VO%aS=O8)5%W6'jãU"XAv49wrw_R#d\fZh*.RAk89$VkXeI'tcX=\GiCP^1cCar[?fts#.lQ7SylRMdk4ãU";]=Yq\-ZZdu%p()9%%'%-L%UMIIInp3'%a&%+%_'%%%/%%%%rfs%iqjS#gfx4jwãU"X:;.U5MT/d(ZQKC-%Oudo_Diq3aB6nLl.E;%,QtlFf)%bY4kitM75ãU"f4Spgi%c)Q(waBft->9+gX#ZRno1)D)aG8Bn_o#uN-[0sLj:+ZfssvNcjBFUFN)ãU"-[$:R9Y9)jSO]JOKZkZZk_=qrJyNNPitKY&+s.ppf\,lOLZCK0'uePN+(M1hw8V4hM/-[?YcãU"s/6BKia*0oT-G=')DQD<'=)]&Kg'-FGvw#8MS42fHbO'L,iGilqAf'(+=:A0aE5ãU"Pc)C<*xY/?ATF]9l%ugqIDA5A2KJ*PEg+q\_9A8.tA4+cHkLãU"N&atT+)bJls(7Q'w&up%()9%%'%-%3&GFKFA#BS&:&%%&?'%%%/%%%%wjfi%rjSãU"V%xyzwdo#4[m56TXãU"Tbrn21w;ImHTOONc6s^VpxBN]TJGCfEcPG1$/_LG2mIiCk?ZGg5o9I#Bo1bbeM\ãU"(2]1^Oj7Gl(x'6^RUJgF(e#Ar+?6D+\]QBFwSfN9^lmBxSak_#'he'KHa;fQ3fA2niNãU"&q-jOãU"POF_3*#IIBH\xP66\?%rOe[_&.V;,>B;qg0kNqnHNn\aIaCR\36P&1X:RI_bEW-I60teCuQãU"pBFq7&N]A3i^HFp%JIOIi#V'qm&%(%T'%%%.%%%%%%%%%&ãU"%E%%%%%%%%%n%pjif%Sgfx%up&'%9%9%%'%-%2IKII7?'GC%D&%%&['%%%.%%%%ãU"%%%%%&%E%.%%>&%%%mj%stsS%gfxu%p&'9%%9%'[%-%m_DFKK\EVo+%&%%f%*%%ãU"/%%%%%%%%%&%%E%%+%.'%%%ytu%mfrS%gfxu%p&'9%%9%'#%-%U)MIIn;p3%a[&ãU"%%_%'%%/%%%%%%%%%&%%E%%(%^)%%%rfs%iqjS%gfxu%p&'9%%9%'#%-%z)LIIsãU"->>>>ã' MAIN ********************************************>>>>>ã' ********************************************>>>>>ãã DOãã' FLASH EFFECT ********************************************>>>>>ãã' Clear screenã !Xor di, diã !Mov es, scrsegã !Mov cx, 16000ã !Xor ax, axã !Push axã !Db &h66ã !Db &hC1ã !Db &hE0ã !Db 16ã !Pop axã !Db &hF3ã !Db &h66ã !Db &hABã FOR i = 0 to 4ã out &h3C8, 0ã out &h3C9, 53 '0ã out &h3C9, 63ã out &h3C9, 63ã !Mov dx, &h3DAã 'waitkeyãasmjmp12:ã !In al, dxã !Test al, 8ã !Jnz asmjmp12ãasmjmp13:ã !In al, dxã !Test al, 8ã !Jz asmjmp13ã out &h3C8, 0ã out &h3C9, 0ã out &h3C9, 0ã out &h3C9, 0ã 'waitkeyã !Mov dx, &h3DAãasmjmp12b:ã !In al, dxã !Test al, 8ã !Jnz asmjmp12bãasmjmp13b:ã !In al, dxã !Test al, 8ã !Jz asmjmp13bã NEXTãã' GENERATE PARTICLES ********************************>>>>>ã xsrc% = rnd * 320ã ysrc% = rnd * 200ã FOR x% = 1 to num%ã objs(x%).x = xsrc%ã objs(x%).y = ysrc%ã lx! = (rnd * 2) -1ã ly! = (rnd * 2) -1ã dist! = rnd * 5ã ln! = sqr(lx!^2 + ly!^2)ã IF ln! = 0 THENã objs(x%).xm = lx!ã objs(x%).ym = ly!ã ELSEã objs(x%).xm = lx! * (ln! * dist!)ã objs(x%).ym = ly! * (ln! * dist!)ã END IFã NEXT x%ãã FOR sloop% = 1 to 600: ' Main smoothing & grav loop *****************>>>>>ãã FOR x% = 1 to num%ã incr objs(x%).x, objs(x%).xmã incr objs(x%).y, objs(x%).ymãã IF objs(x%).y > 199 THENã objs(x%).y = 199ã objs(x%).xm = objs(x%).xm / 4ã objs(x%).ym = - objs(x%).ym / 2ã ELSEIF objs(x%).y < 0 THENã objs(x%).y = 0ã objs(x%).xm = objs(x%).xm / 4ã objs(x%).ym = - objs(x%).ym / 2ã ELSEã incr objs(x%).ym, GRAV#ã END IFãã IF objs(x%).x < 3 THENã objs(x%).x = 3ã objs(x%).xm = - objs(x%).xm / 2ã objs(x%).ym = objs(x%).ym / 4ã ELSEIF objs(x%).x > 316 THENã objs(x%).x = 316ã objs(x%).xm = - objs(x%).xm / 2ã objs(x%).ym = objs(x%).ym / 4ã END IFãã' Put pixel into bufferã x1% = int(objs(x%).x)ã y1% = int(objs(x%).y)ãã !Mov es, scrsegã !Mov di, x1%ã !Mov ax, y1%ã !Dw &hE0C1ã !Db 6ã !Add di, axã !Dw &hE0C1ã !Db 2ã !Add di, axã !Mov al, maxcol%ã !Mov es:[di], alã NEXT x%ãã' SMOOTH BUFFERãã '!mov es,scrsegã !Mov di, &hF8c0 ; 64000-320:Don't smooth last lineã !Xor bx, bxã' !Mov bl, es:[di]ãjmp1:ã !Mov bl, es:[di]ã !Add ax, bxã !Mov bl, es:[di + 320]ã !Add ax, bxã !Mov bl, es:[di - 1]ã !Add ax, bxã !Dw &hE8C1ã !Db 2ã !Jz jmp2ã !Dec alãjmp2:ã !Mov es:[di], alã !Dec diã !Jnz jmp1ãã' COPY BUFFER TO SCREENã !Push dsã' !Push siã !Mov ds, scrsegã !Xor si, siã !Xor di, diã !Mov ax, &hA000ã !Mov es, axã !Mov cx, &h3e30ã !Db &hF3ã !Db &h66ã !Db &hA5ã' !Pop siã !Pop dsã IF LEN(INKEY$) THEN EXIT LOOPã NEXT sloop%ã LOOP UNTIL INSTATã ! mov ax,&h0003ã ! int &h10ã ENDããããããããããSUB setpal ()ã out &h3C8, 0ã FOR i = 0 to 63ã out &h3C9, 0ã out &h3C9, i / 6ã out &h3C9, i / 8ã NEXTã FOR i = 0 to 63ã out &h3C9, iã out &h3C9, 0ã out &h3C9, 0ã NEXTã FOR i = 0 to 63ã out &h3C9, 63ã out &h3C9, iã out &h3C9, 0ã NEXTã FOR i = 0 to 63ã out &h3C9, 63ã out &h3C9, 63ã out &h3C9, iã NEXTãEND SUBããsub waitkeyãdo:K$=INKEY$:LOOP UNTIL LEN(K$)ãif k$ = CHR$(27) THEN ENDãend subãJames Salim QB SCREEN SAVER VIEWER V1.00 j_sal@one.net.au 04-09-99 (17:30) QB, QBasic, PDS 209 6079 SCRSAVER.BAS'***************************************************************************ã'* QB Screen Saver Viewer Ver 1.00 *ã'* SCRSAVER.BAS *ã'***************************************************************************ã'* Use: List and View all screen saver files found on the c: drive *ã'* Programmer: James Salim (e-mail : j_sal@one.net.au) *ã'***************************************************************************ããDECLARE SUB KillTmp ()ãDECLARE SUB DrwBox (x1!, y1!, x2!, y2!, Style!, colour!, BgrColour!)ãDECLARE SUB PrintCentre (Text$, y!, colour!, BgrColour!)ãDECLARE SUB PrintLst (Method!)ãCOMMON SHARED ScrSaverMax, yIndex, CurIndex, ShowLst, MaxLineãMaxLine = 45 - 2ãyIndex = 0ãCurIndex = 1ãDIM SHARED ScrSaverLst$(300)ããSCREEN 0, 0, 0ãCLSããCOLOR 15, 0: PRINT "Creating Screen saver list."ãPRINT "Please Wait";ãCOLOR 31, 0: PRINT " ...";ãCOLOR 15, 0, 0ããSHELL "dir c:\*.SCR /s/b/l > temp.lst"ããi = 0ãOPEN "temp.lst" FOR INPUT AS #1ãDO WHILE NOT EOF(1)ã i = i + 1ã INPUT #1, Lst$ã ScrSaverLst$(i) = Lst$ + STRING$(78 - LEN(Lst$), " ")ãLOOPãScrSaverMax = iãCLOSE #1ããWIDTH 80, 50ããStart:ãCLSãLOCATE 50, 1: PRINT "QB Screen Saver Viewer Ver 1.00 James Salim (E-mail:j_sal@one.net.au)"ããDrwBox 1, 1, 80, 45, 2, 15, 1ãPrintCentre " QB Screen Saver Viewer ", 1, 15, 1ãPrintLst 0ã ãDrwBox 1, 46, 80, 48, 2, 15, 0ãCOLOR 15, 0, 0ãCOLOR 14, 0ãLOCATE 47, 2: PRINT "ENTER - Preview P - Properties ESC - Quit "; CHR$(24); CHR$(25); " - Move"ããDOãk$ = INKEY$ãIF k$ = CHR$(27) THEN GOTO EndProgãIF k$ = "P" OR k$ = "p" THEN GOTO PropertiesãIF k$ = CHR$(13) THEN GOTO PreviewãIF k$ = CHR$(0) + "H" THEN PrintLst -1ãIF k$ = CHR$(0) + "P" THEN PrintLst 1ãLOOPããEndProg: SCREEN 0, 0, 0: WIDTH 80, 25: COLOR 7, 0, 0: CLSã KILL "temp.lst"ã KillTmpã DrwBox 14, 5, 66, 12, 2, 12, 1ã PrintCentre "QB Screen Saver Viewer 1.00", 6, 14, 1ã PrintCentre "FREEWARE", 7, 15, 1ã PrintCentre "Programmed by:", 9, 15, 1ã PrintCentre "James Salim", 10, 15, 1ã PrintCentre "E-mail: j_sal@one.net.au", 11, 15, 1ã a$ = INPUT$(1)ã SCREEN 0, 0, 0ã CLSã ENDããProperties: COLOR 7, 0ã CLSã KillTmpã SHELL "COPY " + CHR$(34) + RTRIM$(ScrSaverLst$(yIndex + CurIndex)) + CHR$(34) + " temp.exe > tmp.tmp"ã SHELL "temp"ã COLOR 15, 0ã PRINT "Press any key to continue ..."ã a$ = INPUT$(1)ã GOTO StartããPreview: COLOR 7, 0: CLSã KillTmpã SHELL "COPY " + CHR$(34) + RTRIM$(ScrSaverLst$(yIndex + CurIndex)) + CHR$(34) + " temp.exe > tmp.tmp"ã SHELL "temp/s"ã COLOR 15, 0, 0ã PRINT "Press any key to continue ..."ã a$ = INPUT$(1)ã GOTO StartããSUB DrwBox (x1, y1, x2, y2, Style, colour, BgrColour)ãSELECT CASE Styleã CASE 1ã TopLeft = 201ã TopRight = 187ã BottomLeft = 200ã BottomRight = 188ã Vertical = 186ã Horizontal = 205ã InnerBox = 0ã CASE 2ã TopLeft = 218ã TopRight = 191ã BottomLeft = 192ã BottomRight = 217ã Vertical = 179ã Horizontal = 196ã InnerBox = 0ãEND SELECTããCOLOR colour, BgrColourããLOCATE y1, x1: PRINT CHR$(TopLeft)ãFOR y = y1 + 1 TO y2 - 1ã LOCATE y, x1: PRINT CHR$(Vertical)ãNEXT yãLOCATE y2, x1: PRINT CHR$(BottomLeft)ããFOR x = x1 + 1 TO x2 - 1ã LOCATE y1, x: PRINT CHR$(Horizontal)ã FOR y = y1 + 1 TO y2 - 1ã LOCATE y, x: PRINT CHR$(InnerBox)ã NEXT yã LOCATE y2, x: PRINT CHR$(Horizontal)ãNEXT xããLOCATE y1, x2: PRINT CHR$(TopRight)ãFOR y = y1 + 1 TO y2 - 1ã LOCATE y, x2: PRINT CHR$(Vertical)ãNEXT yãLOCATE y2, x2: PRINT CHR$(BottomRight)ããCOLOR 7, 0, 0ãEND SUBããSUB KillTmpãSHELL "Dir temp.exe/b/l > tmp.tmp"ãOPEN "tmp.tmp" FOR INPUT AS #1ãDO WHILE NOT EOF(1)ã INPUT #1, a$ã IF a$ = "temp.exe" THEN GOTO KillFileãLOOPãCLOSE #1ãEXIT SUBãKillFile: KILL "Temp.exe"ãCLOSE #1ãEND SUBããSUB PrintCentre (Text$, y, colour, BgrColour)ãCOLOR colour, BgrColourãLOCATE y, 40 - (LEN(Text$) / 2): PRINT Text$ãCOLOR 7, 0ãEND SUBããSUB PrintLst (Method)ãSELECT CASE Methodã CASE 0 'Initializeã COLOR 14, 1ã FOR y = 1 TO MaxLineã LOCATE y + 1, 2: PRINT ScrSaverLst$(yIndex + y)ã NEXT yã COLOR 14, 4ã LOCATE CurIndex + 1, 2: PRINT ScrSaverLst$(CurIndex + yIndex)ã CASE 1 'Downã OldIndex = CurIndexã OldyIndex = yIndexã CurIndex = CurIndex + 1ã IF CurIndex = MaxLine + 1 THEN CurIndex = CurIndex - 1: yIndex = yIndex + 1ã IF yIndex = ScrSaverMax - CurIndex THEN yIndex = yIndex - 1ã IF OldIndex = CurIndex AND OldyIndex = yIndex THEN SOUND 2000, .2: EXIT SUBã IF yIndex <> OldyIndex THENã COLOR 14, 1ã FOR i = 1 TO MaxLineã IF i = CurIndex THEN COLOR 14, 4 ELSE COLOR 14, 1ã LOCATE i + 1, 2: PRINT ScrSaverLst$(yIndex + i)ã NEXT iã ELSEã COLOR 14, 1ã LOCATE OldIndex + 1, 2: PRINT ScrSaverLst$(yIndex + OldIndex)ã COLOR 14, 4ã LOCATE CurIndex + 1, 2: PRINT ScrSaverLst$(yIndex + CurIndex)ã END IFã CASE -1 'Downã OldIndex = CurIndexã OldyIndex = yIndexã CurIndex = CurIndex - 1ã IF CurIndex = 0 THEN CurIndex = CurIndex + 1: yIndex = yIndex - 1ã IF yIndex = -1 THEN yIndex = yIndex + 1ã IF OldIndex = CurIndex AND OldyIndex = yIndex THEN SOUND 2000, .2: EXIT SUBã IF yIndex <> OldyIndex THENã COLOR 14, 1ã FOR i = 1 TO MaxLineã IF i = CurIndex THEN COLOR 14, 4 ELSE COLOR 14, 1ã LOCATE i + 1, 2: PRINT ScrSaverLst$(yIndex + i)ã NEXT iã ELSEã COLOR 14, 1ã LOCATE OldIndex + 1, 2: PRINT ScrSaverLst$(yIndex + OldIndex)ã COLOR 14, 4ã LOCATE CurIndex + 1, 2: PRINT ScrSaverLst$(yIndex + CurIndex)ã END IFãEND SELECTãCOLOR 7, 0, 0ãEND SUBãNigel Traves SCREEN SCROLLER ian@ihalliwell.freeserve.co.uk 04-13-99 (18:56) QB, PDS 253 16625 SCROLLER.BAS' Screen scrollerãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"SCROLLER.ZIP",4^6:Z&=12188:?STRING$(50,177);ãU"%up()%9%'%d-%i3J\HV;*J1^&.%%h'%%%1%%%%uj%jput%pjSfIxrt_[LQ[,Sc_0+LgiaweW'Tq(:'9RpFãU":I_H7mCK8W.JVTTY$TmW]-UBS1JZU[v4ZJ#ziE[ZQ3iS?+BIuWHãU"S)Z\v=09O[(-YPJk]v%.u*%)Hjr%$[)O<->qUlTveSRA:&C]hR)SO9_')[UPj>JãU"AH\p/8,N/_;Ya,_tHqZy9\#?JFe$C_EZi?Nh(;N/tP&vãU"*G6u>,Fe5Grb5YDG5D;k\e?[QK\j]Nc*fo+-&im25;-?'+?P[vKo$(Jb067;mK-ãU",Rj4PLNddXCXKak1xãU"x<2EOvRt)N_A0DBuS.47Mp=^:6^KjA,V&%,^ãU"pKZW/d\H4nZ%X8'JBYDfv&O2r=L04H3MHc.y;JPra*)Qi$vzXH,?Te&Io'#>43qãU"\D%hpK)Ff;,tYbc(cQaffO_+ocL&2%RfãU"BMKUni0?;/1\g/apjxQY-10=LL+\)u9Gb&0e5p#:q[.k\&'(Q'7p0?XcxH?C%i_ãU"5:f;oF4xEHmbW^A+i=+V%FVt&j=&/.;_O'waljsYb*cF<,EaYefuKNfjDeQbIXdãU")^?a&YI9.VWxYM*)=6Sl%t(>(DfWM%V(HKONt(gq%66iUAJ7VE2Zznc#RUBTIgJQK_tq-B9Ajg]:BãU"/fZ2(7#S*xV-M&7.bsP-<.q6*\GL_&Lr$D.x[AAw,DnD4shfVx&PTa3V&_fRZ'pãU"#+>TghJicp#F35_pV/7*M$(Vah=)**>$ThS;z]%6qdw-A;\QOc'OQ)]ACt>3s9.ãU"N^eCN)Eh/MlLWUzgjsC?b4'[0Yc6JHM*?HQ6e8q$?4GKwG)\I_)Ha7S7Shho%AQãU"./)9&O]#?u>itRv$).6jQ.X9:2mQg0)&I9,\;8?iVo>a%En6FH\C^2fAK*[ecvkãU"k^bcQpKu=k#*N^mXfBSXFNrrCUK'PQp/Fa:T39U^b1gG-M-GhQF7R''K''),]ZvãU"&6^=,'eCP[(9dn'9Ld%jc\#Pzt):-lrfA*C>I%2PCL*my=l^tSLn*aDfPnW.m)eãU"z9I(j'u#mFE)?eDUmb=t&;G1:(L9wf,R=hPashw,A5M3k>msxAZm(Y%Ufb?awe,ãU"XqZRj^JWYWELK;\l3u]kjh'Z)f8/Rp+Iac.\CAOdZ7S%oKapR=cPasAojrcbThsãU"Mhl2AhvyEO;/C^Hj38%LEk74eQ/q.4i_j20JJ[1'$G4-MA#=mM):^exe/78551ZãU"R-M_L5UH]^;o^rOQ?5e1kM;o>jQd2wp-2w4$o8=,P\#+)?6WtVMRDwE(>R.WKK(ãU"=WS=%os1FL7N%KJQO)6\g>p390k8Y_9l9j>ucfKK\AEj5p1]]4PK:UUIKI2w4jXãU"Y=v&ts:+6[B3ZYBg:fJqF4IZ1J..W'U%4iWDOvv=&Z3r4?TN_b]QLfC2k)umm(XãU"4BmvKS/Q0>4ijVbv>;c)gSF[S.(BCapBot=kfi\SN(/r[uVMu#y$7\c6;(TY(fzBx%Q%stP)116L,#YCqAfQ&?t?ãU"F_3;'2j$26FcVK\'Cx,HWjC+v&%gH,&JM._\MibUM4CQd?IqPI4?2IYA=\CV-vfãU"X6)\;B?AdCN?&v6siK0'JJ%GUyMQ?g_PiDzy3*rlykrN,qKU9toW4K.zmM9>^;CãU"&3vWRnI.:Lv94cNSioH^_]kQhBãU"R96,MIBAVRO8T]D=.lVKL._B.p^Kmjje5vD=Ui_QQoGjMo_,r&o(63JKj2+vn)_ãU"l\[bO,BXB>Qd0l6S&7bxS#9q8lOF%$k]hHY&Z,XXi_4tOpA=EY\j,D/L)5It'-4ãU"NV]u^g]C0q:[TpMjgpKd>CAE,91eAbVlPUFU^ART6MM:WnOeAv:YXUoCbA:uL+GãU"yL#cG\JOG]wfRO8ua/O$h3Akj4+AM7]k4'ANU5?H5%hFC1YTGk$P9nMEqm'<%G7)9iEsfNDQy6r&.qTd?CMD<.rsGq,L0-?Y8dms?v;mS?5IwJ(IãU"nãU"aT;'Q1sS\.]A8N4cc,KedxJ;n3lhSVA#N9aGwXMAl;;vNqE2kML>rvb665jN'cLãU")LjsP$+eVi\+PU-&kTiCuuAL3we:\m+?BrN&*MrN^YX_;3s.V+l+am=dCRb=NK.ãU"Cvs6SSflz7r?O5L=),tc6S/JK#$R]4,BVL?=^IC;dOv(eqUC#n;-8S7J2_h^LrSãU")DVP[8%eKY8+bmPwZ8S<_oEVOn]iQFY=gd0+[BdEdk6=4Y4Jd5Xk((%&Y^BIhg4ãU"KaKo#bfL-%pOwThIwf>lC-ccT51+WAI29oV%tB)FSlsP'h8btIm788rmhqW[JRDãU"GhO\pin&rpn/3a%qn6A9+^s]p(D6=sO,HqpCX)<>nxnlOS3nl5)jCCDpdVxX']rãU"sur8Z)X72f#f-c0jQ\SDvOuuGE,%+Mxw_(BeU?>cScx.f#O>kFp/4^KoOQN'_fhiUn]cWQ:(w>_plv5VWWm-o6u+-<+^1ãU"-EdkN')$m>[%Du)lUTWlinBMYC=aX=C7lb8v>-fw-(xi&9l$ae(SV,gN\BbsG7M1HNJA/ahD1XZ[/XOd.yVxU%hWtDuVqHLg9UAYM]o2fp_]%D)ãU"oZUy'%N2=GcL9U??[9]\T>A(J0461rQPO8jfO.05um:Q+d>uDN$1;kr;[p8$eeqãU"d3hoD\Y(H/t.PqMoY0ADm\#/XWZp+R/6,GERF:_qu?;%.;[gTJHh^ãU"<)kc%KLH^?:(dh7.QB0\?na3>-KjdJzuUC/Vn4HwO[PBC=m4'QyykGv>_d)K4gWDLOCWkap6n&(NR2#O4iRHãU"]s0i]d>.Dh(aELIH)0xN(d;$d'W0rNdF4TH]xYhj7fu&H-wCA)4$6C5fZ1*dHvBãU"(WL<5T)V7<>3P7N^,LqHuU;/Atxoc\qs#EGYg'5<0vFcGlBJd=_^EtTf4SDd8uDãU"b7Jt)j/wR>K2k\I$Z_lR7F^Gk#TgN=QRY6VSO8JJ?(G)kW63X,=7/8=<&a4sb%CSKdQ&c0,cM5',JLM.HCrB_ãU"HW%8V27k*ATBAd^0;J[HL_;A?odLu$Rhlo%N(o-OA;,N%7DOD=v4QbSH\x?0j*tãU".>D:/hnmXi-Bt.RMuJCZ\8bc-2gMgH0M,.J#)ChSI_.pGp7p0n(-L06M)r.b'c6ãU"Gi.G3ghhy/Ew9HUJ%Wry)i:;N-UAs<1\U/I2w4P-[>l=U]dRY1'sG2)Rgr6k[8mãU"Wnu-F,lE^]xxun2#rB+ou#>8iTX_XgK\StKOuLe*LUTHW%NQxHZ+r^>Z>R10(tUãU"0Y<(Qk;d=jkB-uA/tãU"U(4q<*MYL,uUeH2'F>pCRX%Tz($BaUL05;(kHLeticET/>;T7\ZM)(xt=b/6?4gãU"\LrK)No]F9,Fn/QjtLrC+;kq6HL-Vqzuq^^0LEãU"BzB[MqIMZGv*;Pk4jaR9=A#isUIBd*_%0-1MnmZN)OnPk7_8dc$).YaTR#J[A_xãU"V<)8,tk]X[jt;S,4MXq(KO=jH)K]:TXA';J2UnãU"HGl6G;BC&nAuHS*mGi2h71G_F*U+Dk2KA3t=d=EVp5mS'L8;r9bx4=Y#,=1_-r1ãU"l.=I4AsP;GmdPr>p+$_7sm10.ro9#\NKvgik>J^cq$lVd%tp&P2$/G86fE3ãU"K5\wn]ilj[LG7s07uX2(BlRRVrLilYf]cGPiri*NNgGDRn2)1u78Li_#Ft7J(,uãU"jK(M73MWf.J]sYn^MZJ,ei:psxW:i'>]?cUwJj/Qq+)adSP\Z\ãU"N/IAvzP$SPWeFUQFQN2Ks&HI7Ct<&6Q(O,cwtJ.&2hNmhG=>I$4_NwYpjNZ-^sdãU"/[WR3_X45Y#H:jcB:X6hAUhkF[ELR,5TP2f6o$1f-5cLG,z=73ZUlp1m_rSwz6iãU"*Y?nO7D6rzL\&&e5y%4WVIY1j$#['tPO,WK[_Z;$jw78FQb&oea\Y<]q?f?Z/QIãU"Vb>,K^I5VmT]Ne\SJ:]P[%N7KQ&+HK:IX8Dl]\kxkSi;LYpo+ocu=TAcMG6.tx'ãU">a>u2QGC\E%Sl)E;fz%K#]z2=?8Kj_t#m#fcM6.7TwTD]j3i)*2CCZ+NKaAp.^-ãU"O,].o:Bg$G,jz;&AV81.&j.p?wb5Gtk)iyy'=+>moH5\p?/7VA_\jBO[%<ãU">Tk(;J=T38OFxpi:s\4)t=a6nX\lfJpZv[zks,>%.dMX[1x77C]aU&_3%^04i;6ãU"(6(%+#H#b97,s,oQtXBU7r'Dc>9JKhsf+>1&0X<<]fu#835bwn*w=%S#j<&vV)[ãU"NYSZ:,HmPCrl'(;j7.<:TãU"wkYWRzpdQ\+hOrhGhzBCJuxe7pQn$\VGhcnWCD3KB:U/3NMLwH9?BZ6)j6qrQ1KãU"la25\r/x6RnSuXQ9H+p;R0x,g;XjlqE6gãU"W0MGLS9dB3a4hq1tO9s]9KON_$l'LNs_vmY9xIZkB8''YEB;=3jS1S8,xBZ9gg$ãU"0*,ILmd-s;D?;8Nx2%up()%9%'%R-%^1/\HwT+4])1.%%v4%%%-%%%%yj%xySgCãU"x%2fjrdQeO7?nTrfc,J)lnbsn-3v_f8f>xS6n8<ãU"n(1$/HHOt6_5m\M5\WL^ljZG&OsT>:]wpp#TC_X/,CSWFoNYOsqe+Lnhr*,er.PãU"xdO66p3YV%HtA$gnU&stndp3^CfN)N)Me4k7<$Em)ZLn3aKJ3M2X+a=?TRzLfCZãU"YuOt8::o$2w#DKQF$yZfl4Cfl1'utY3)q4o=,r4%ãU",+IT=zJHW)\LdS$MR?Z?FPkS-C.ycT74+J.f;&]&sPqJmw5eYNMrGso'\WiJz=TãU"f[ezAE^;JDlGekDJqQ>yiV#WuuG#io_7.QfV6eVpM/ZPHock$5u'GmhfdTeqptDãU"M't*DC5Q[%il:U_2\CxvW2s$ojvhHcy;Ww;2dS>N(SNGiQ+tpmiPLW2$Uq8ZGo7rpgZirTchfd/h0Q(6k^sM[g82,pdZl6cãU"L%T2c:?&u%?)lQ2t/NqR/gz.&iVLAEykVo0Iu&MDBXuaAP5?CqBRZZcIfoo2^u1ãU"%'T;.zqrtXt)NcR+NPq/ir#aum(kTTCF*HSW3Y3X]7G8M(lNIl#y5,g\cNKJR-xãU"Xof'dTwK=2QQakR_SJkV$5:Qnf^pYhu#s&*q.*w(^nghRHOQcF5^/c[a;m2G\.DãU"LN-R7^]3u54BZjt%G$kg?^MzX-NtD\HJW:FL)Xy_=IgJFKE'$a_u;mIODo(GWjWãU"hyP=Y'LXWD_Vov*BiLVb9^#\F4sM7s6sRgUBzpJS%W=n-*6xH]3w<.tTrf?PZ\rãU"ii.Jeiq*cTZ&Bd4I0'+Lr?NRQHcdmAs=5SWeLeLdp$UH,SLnXKy>pgm\rg.$xPSMJM&W*F:PfTin5_v9]8sj4#?>u3(OkUOMXwiZ(p.XOcq=>Q>Ax;RB?#adZT+0v[Py>MY-uP:DBãU"jlflnjVhuhqiIscsIHaPv*N',LM\>9WVX>5fMOLOF1V]qgU\5L_$0oc#swded,aD>0rM?Dk2WVl>ãU"EaMVY.$k>$aCc:=*ptw&LH>d$A(Qi=RahcEq%Y14_UEA\%cnI_f/A?*$&mDBqnZãU"ãU"7LSr7NP<76m,3u+Qtk\CwU6&/lPhjkIIb&Xmn7B>Kp07&L/fYxruP/8DRO4p3)RãU"yt&^k:]TwJ1cIw5Ns*5SNP(Bd4i=CY;:$vgcH,I?XF&+Ocqd<<2'F$s>4?wkK$qãU"*9NT]SGmlnD3J-Rd.7v*bIudb*(lBOjDNJTfYMkFy6L'(,lMpPq=3_l&)L>2fGnãU"8qItVriTcP:9tLF+8ldTPlcTE:ui[gDKsKdfNnpfQvT>,FfpZi9v9W28qg_.fsqãU"a0m\0*]nmA.5d44qvM-Ga8.=xaF8.XtVwWYNH[_$SN2lhaeXt.2tVs'QD3q^DI0$RD^k-8Ej_W.yFio3?&tãU"CDwiG0X(fe*WN2PWwM_oXBsQ9/8DjnLLQ(b&o37bSrDggLa*SUdYN:I$(NelQH.ãU"4$>MsF.M(n4Q\F:ZKwS>(4$=K:848j49iDvMTB4cnqm$PqQ;hy.ce(5te&#YoGfãU"ntFq5QsMYDf.[Fjw.L-W:D8SKPIn,_TjK?.9v;ITTe^P\c.*F#-OBue$(6,Ux]iãU"UGt9.$.-XmhFA*e^TR't;F\qb*i<>Rkw0pbD&AnF8HDspK:DTGjH7*NT1's9kp8ãU"Fk=o4uB?XHil&jW#;?aH_IIiX93aQm_r8oD#KBm\'NH-KhK\hzsH\7)c(b#w(v(ãU":pd.epXSD*8ui(:KY60I.VQQuudnCJS&P/G,o9((ox;f)Kr8M+vãU"B<%s+HuGQ(pb/D$JVTANZ*g$?b4$opdiJI2xE7&Z*5RxGiHXu3NgZL8aS>&vh0YãU"tb=':DMfJRP1VMixr#gf5CfaY8RpkDdZvqJ(negZjl7cIP#tiBK\[OZ8x5ot2q\ãU"45&0(9v^9DWeo(\XS8s#f:t>[/-%NkcQHZe9P5wzp%n$\frps(nK8sTX2'8%ShEãU"wS#:s<5nlt9$\_AVDZ\no=c0%RuV,BNR#dn^n6r]&HpYiA(oYbaL^>gd(M+qM=eãU"?*./r2>1\4Zrt\QulEUpc6Q8WCyO$JQ2fQRT$nPQl8C^uhWOYmhDt*/Od')>LgDãU"A*iNtDNOcL-i#,D=9E04W7+liNcãU"[nsm=\:POcuDY'vU?sR$#q^FBl+nIL].[pT$ZXXJV9wwila'XS/RA9Qn(>t=clcLrtrYzU7G*[twU9WhãU"pId3BVWx$?DT+Rfw(.xToxDzjY)nHot4sLZ9t]0ãU"$MC4pe>B60='wOQ?Hi#lw%Mt\QtForhK.*X*iVS97aeLj.rãU"4#l[o8PU,LMFYPq,oO07[wX$g0J4Jmcd9USf*BqXJIYz,vVNwGGnXaZ(3#W&Db&ãU"y.cYE)NDWrx5HiEHDo%[hbJX$i6baWhQrguYv**Obi,[;FwH;]h#>hT<6uZgYg/ãU"x\ER4v[6tRaY*9tw7ls\1eK:pH*r>kQ.5dPd5k[LGr:.&jJ,c-y=ZiZup^ckIu<ãU"tK<3tp$TS\*mLAVdxo7dPd[9<>N9p2TmZ#M]sw05=440*iuLQs>IQ(#cE$;sãU"fW>,5m47S]lvTHhs1WiHMnp>6iiVbAbPxv?XtM$PcpF?tY*?tCbQqFdi9nFlZI1ãU"9.sRYHWQ0rMZk'X>T.[ãU"5MD3)NotAV'&k]::7(=jJ7^l*T5BOAbIh&24%oMev3P>#rn)_z./\3+x)1/ãU";UU:S2:8L=wk#9rQ$c-?su)&LFESl&pMGT.p\+8d?-OpRf'_IS1j#U(Q#iBb2U\ãU"J_MhoSeSeu1':=X8'VFze8ASGg2wHa1S&Cu$+Di:d;mN/?qNgz*K(EoKAV&CJiqãU"0?:2rd>*U-tS&zxc2FL$\&TC4gSeXwP=JyL,M8/UãU"u%-LZl_YjAYL)qcjtWWltlI_=m.]nLhqA?X_n2,+^?pWDG7kKg.:W-YkwF0N_[rãU"Hr\?MEIB%H,gCz-fsX87J7?x$HY>n\_7g&bXtRgC=mS,ErBãU"b^C>e4n.P;mT%4.*jo.=PK7;ouiOAt=9CXtg^?ZQn#Yww;5yo?M%RsJoYc2mcoKãU"33:\$Jn3:D'-t2wSH[qVh^vI4cJQKLF:=jW;>t^xTB:m4cHHE6x4Q,Ck-_6I0NBãU"YDV8.b]Y%ZGi6$*04uhd4$6-\QmCdzbtY^08g'DzONf%,e)a9CKY1,\R$a;w1voãU"2G)ia-n'?YpQ&9t#dg8-VKg#;f,acXjh&R,Sx5mID5O^FlY7R]0^&,d_Ye8Xtr.ãU"do)KYEag+4U#oOg0zY?;/TS_XqJeyfvHI>?QYImN.MM$u$l9baa_WI*.Iz]'lAnãU"<'Vt8SsLeT1G/&o$.gF'w9Br^&H18?m'[;SIhh83-,e&ap4e&,1#^?hYc7_I/%-ãU"N\3SDh>AMDgMhQGUM=E9TNQ[3b<%K>\Ml=Var#fM3+aC(NvSMo?p&oL7q,4EFKtvbdi[SEoVhzafulhXfj(*9,u3R$,pãU"*p[T:YY$S1px>2>$AWLlRD%V,K\_*wi23]_YHMLY1*qPF7,)1i.qYB%(yi&z804ãU"w$>i;hj6.fs5][]5wM-xN/Fdru8EZoPaZ4ggl*'dg-('X'll;.$g.00-?].#HPrVEhP)n.8LãU"U2_)T;AvKoOn?mh*#^bXhXLAMZfT6#HDrBkl1o7Ifd^rpuFgBZYPWk6+xA34q)]ãU"V,dk3?#+rYsV-34#TIe*G74v'RCTugatAX-f.HbFMg0XUPj%-3cd^5'+N[Q8RmXãU"=w)$%sT-FBhqr(i]izqKEEd.d*XA,go$HFE&6HS&6f]FlI7PLuT.I(/=EUlZECZãU"P=ba4CS7sgp^0v)Z[W],#5l_vk4h.,s8maqi5PIetV8xHs3_ha_%=#ly^wYFV+(ãU"me%9s'iIAkh5S^AAnLNqT:O1x/Lk8g)ZA?mJ\t:JU'bQgT-F'I,h-&>Nb5/U[ivãU"iCD9QRe%vD$T+-w#%+=[H=v*TdQCK&$:62_+>i_st.a+XY?Mfz+FMeN-b+ijpA:ãU"UXrn,H2a9Hs8jjvZt4YOBSN2qScRP?JD(upd3'_9=zKiXT)Dt-]=INVzC>;E/GqãU"Q$;q1#q*=9tm&9$ZEp%#IA<0&TOW3^e0/]AO)6C3iYR2N\lP8&DT&+Ae0k?3gL.ãU"eXF^sCl3=dsL<15k+orJ7+/TyQ_>q+bkl/w4nw.803'HGZ%cYGv)bXO?giZ]kl1ãU"L=l3:nLurv;W(f;vs3+UCO'kCMqMA)gr06BKcH1mxEhI'VM'%5OY?qDObx8aNQEãEND SUBãSUB V2ãU">.g5>k.;D:FQ'wQgR)xZ&YeãU"/-Mg,YC6/cO.vqtI_Y0CT:T/7VN^'1oHS?9MS)]hSsoHyKnECja-HE/uhImoOV1VARcRjT8kzãU">rr?urdNd_6XP>m7<,4YX=r7^86fG#T]:R)$>?q-3f;HKVqFIbYe-<5S/eB#>=dãU"Nj9R;w6=4AbT0gKu6/5^jO$rg+f\QqwjN0L]HZbLb\b7-b_-'mPI:l=wY(QU*J5ãU"S\[b4:)L)$P+Owcj'[SofmG/E%(M'z3$EIYK30/H0Ge60el^n/l8b\r.3AFaxM.ãU"M9j#]J;J3Dxl:i2;lãU"5CI^u(-0XOrHNAJKb)R^A,7gT?-ZXhSkF8_TZ.5cSC3_2ha$c.SnO:sK0xrc6c$piYSmj5v]=BxU<$a)ãU"'Yk=_uAz;F$9]m/_P_6)btD(BJ(;9?#Rpt8g(85lni%1&kzy,x6i-Y2hEjO\lmlãU"NnH<7O#O3/hMOBPI=$e4n]TsgUN:#jYsKsU1BJ9So=3)_m[?/PUEM4#ãU"[z%2qXA6TnoDl*EtL7*rqNou&S_\DT/_jY.'Y$lWJ1qKETc:=gUHgZ#I[$Fq1=*ãU"#VTY2LQgJ4xAG?,X<(pGPHM?Di#a6F4kYbaIigCMe1P5%ZbkCtcK?;nbD=awZEYWYMB4Oie6+ãU"W)-_'_XSptLW6hxp'17rjq^sgmU>#xg3?9[ftwM0W]F4%6&UãU"(Ybhk>cM4hE,83-626D&%kr\pf:+,Q_;Jft=qjy)+JJBfkZAhdpt7?qbY\1n+D4ãU"lib5Fg/o_AaoD\OrPTm9v>wYUdR$OuZQWI_mgG][TIb-Rl8(%^LQrX)AI(]ojqPãU"46a4ni*=\X;;9SmPfKKg'*0z:5PN2<,(n0Q>.qCPYWjr0jHIK3T#2)d[;9xAPX:ãU"b=p%FDT+JqC\^)]e$G_OY)IxPUq;.&;tfH/sdZJtUE5ãU":K^:49cg0i4wtc?[Irq]+.f.bAmLJtm/e39Sm<0r=44J;*9P/$%'(jK+o_X>9:JãU"/V*uthSO5:9oqd2h^6H>IvlBM_K#GF?1g,?\sQ#ZoUQxqjyK^K_U9+ãU"(g5GB(Fk\Iip]\&b7AHHgm^$:[+lNU/AB6n7?MQFk,jlSOtk&k(p'ZsD0(duV)tãU"OsTD4LVYDS?s*baPDbIbrL<85IBpjZ&fK[<1di(6.)R_\sR3MpLchãU"CqNv;lm][*56Jm_?IG3ppVHbC6)[Qk+[T\MJG-\ãU"26R&MsWK&[^c0&K%mVcO9b94jj31.9639#/%M(-<3<:H94<+>3jXuaX/uQYI7_HãU"Se+UA.p>ADKfaDei7am7fVCBRMg$Sc8i\dR^A>>o2_qfy>:]le+NgCO9)rz_lo2ãU"N>D92:C8?fQM9,)01rMHO_a7s$C/8SAfgTr&d=5gZ.u%p&'9%%9%'#%-%iE3\HVãU"5;J1^#&%%h%'%%1%%%%%%%%%&%%E%%%%%%%%%ujj%putp%jSfx%rup&%'9%9%%'ãU"%-X%I+\^H$(K(g66%%%RM%%%1%%%%%%%%%%%E#%%%2%&%%x%hwtq%qjwS%qngu%ãU"p&'9%%9%'[%-%^D1\Hw7T4])#1%%v%4%%-%%%%%%%%%%%%E%%+%m7%%%yjx%ySgãU"x&%up&%'9%9%%'%-C%Tx]aH)$N-#<*%%%V:%%%0%%%%%%%%%&%E%%%%C%D%%x%hãU"wtq%qjwS%gnup%&'9%%9%'%R-%,Jn\H'W;%?1)7%%kG%%%1%%%%%%%%%&%%E%%%ãU"%/J%%%xhwt%qqjw%Sgfx%up&'%9%9%%'%-%5Z1\HoV0:e%F)%%&d7%%%-%%%%%%ãU"%%%&%E%7%%eN%%%yj%xySg%fxup%*+%%%%%+%%+%x&%%%XS%%%%%ãEND SUBãV2ãCLOSE:IF S=60AND 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ãNigel Traves 2D GRAPHICS LIBRARY ian@ihalliwell.freeserve.co.uk 04-13-99 (18:56) QB, PDS 382 25233 G2.BAS ' 2D Graphics LibraryãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"G2.ZIP",4^6:Z&=18663:?STRING$(50,177);ãU"%up()%9%'%R-%G5#SJ/t8]+G#R%%&[%%%*%%%%lW[SgnV1b,&#X^+hJQGwPLEK(ãU"S6Y/(jQ[ngW$Ke(P3_UB8;#+W(^tA0).S8p6aj?\L168vEzgn9DTm+L=9iUkh=/ãU"=ptw\xyONh&NMpt$vf4?wurtWQf6fkT)tAj=th*$Jod]j;x$iGFGBj9x8t[5N)>ãU"SsKSp#h^ZI#Z7#UXQQp+cdsqU;Q)6f;lhFjPb[VZgDTkYL'p+d4t-+twl=7n>,\ãU"-wPucTXVkL4IXpT4g*rwh&qjLmLI(?l>b(WKW68uCpy8]i:SF186E^*k4l0U-:.ãU"r$fe&j65UQbsm9N$;^LHbxtNL:)l8rd9q2?97ãU"81uoR:RobHIc],M)0(G6sXm\;e%#?;W2W#I;tY)D1NcwLtxMDKDI?qj]-E7Kdw=ãU"jL2=spDcx[]#A,Y$Z^'D5e:Ak71hn>(v4UtQjsxX&Dm3eq:B,gw'u(b*D64J%ejãU"xMC27-\%s=DMEgbTP7S?dQP89bXp^rL%333R%HKQ<-5)qMCL\M5dY%_8HY'Cqq=ãU"LK?D6uPeV:u-2h.dm+Wbg4C'E+fw/qeu4w-P#PEz(J06h:/,9IONNwmXB3&O8#jI9<%gl]J\f+LHc%Lk]7qOãU"Y&5eDXu4E8GvzFf?k$r566ãU"3:E(X,a4o+6olYsP8$?639dmE_48K4a/hu:sgiRaS/CwUp3'^hC87_o?k-Oiv>mãU"#u\1[OI&z=OuncO3g?\D^rc^+,5&)2oYn0sE&?1#19Z1.#d(J$a1YCJG4Z;+Vj^ãU"ZrsDPhZ?kUseRHCMhz#A_/m>\4lgXGk;9[A'e<(UKI;'IL>8%?lmx)xAb*9W^urãU"hY8Q4ZLb5_b:uk1b$Ra=Pj3Fx&\h[)Yqu_^T>[x3JIWcyigRsZ/,i7om6=\n^4qãU"MYBX[Amc$K6Tmo*5C'Z#xgT]ZgPIC8-e#ebtT\x[jWi>vh?G%,Zo^Z=,412S'UBãU"$3c*_%r1Cr112-P4:PBr=348Ww26JMK++l]6Hku$ln%qC,#2Y-LZ^$uwm^fqVFmãU"mf,A\VHUL0,Z+r/>N.BIaLcLFI3E/k]hm6ng/WLv.x]NtlGwrg$Ew'\1UH'qRITadc#*5/+&pVm.7TlF1ovka$fhYH_-hY>8YHãU"4_*rtbv$WKD\R&jTp.7VMBi5qNrrvY'WA+3]>6(Y72PNkH)Jiu_NwY6N:jC5kZ6-ns,(ppt-8UXFbQ$GHlkrVr.p$X<_Igh9H\v<&R<,,E$IW];zkrW^fQ;>UY_3M6*4h?)o3O1u]I;;aG?-P2cx4ãU"V)$U31x=(SkkAkATYM(\$dExp^Z)*m^aIJ*RV1RKãU"c%5CY+pkx\p$uUjw\X.>\F%lD3dr82h8JkC,k/K_4lN3kl^\HN+#Mj;ZlsMu+*QãU".V2nmO<7)TfDFKcn1wQ&3aEs1W1nb[Fv3D(wwaF40anis8^-x6k\8gW<)8HSc8CãU"p\=9+%XDJfz8=*H8P3s:v9Blwz5kb1[?KcjMMAaR%bnjGU%$pHWJ$LQP0giXCo=ãU"XUQ\Gvpm)jA;9NH:8;Bdw)fAQ3^0+]bQ7o3Jc'sf8_1#s%TpYU9#JgLLUoK_O8b;VKãU"1D6wk5SwVEwG/r'&Fm<9I2E)d:5oq#2TONNL:,'$Zm_(nUYpO4*P#[d;*-+;id1ãU"=70##moMP:C2Q6CJm0)iC#/OCl5J8VT><$'-,&]]D0]6fs6NTI;+n?;AHe]l;]\ãU"kXR7jPA[N;:m_Ff]lB$GrM=O8'3(.:e_*6m*#FI8/T:bB1iP(Ecm\)wNSzL3&^YãU"U'0O&XI-d(=ãU"_bFA2Of%>5[vuZvUi.q\<]uLCol/[yX9x&X.R.3pAALUPCoD1OtMVLG*\%o;(]%_ãU"8m?Iq7gw,NUutKOgO8H#1#s5B[[8tb:eSboC\5NB68j*7KVZu__0=1Nl=L;-Fw6ãU"X5cgM?A2X5UlqZ9\m^w66af3=pVn_*NE5>fX>*#o<=lSElKQe3W,^AqMg9q;5r-ãU"1L*uE?%]r?OIABqY\%xFp6x_T=5[sl&iQ8hP26O8X.=6>'QZ^Jrm>?=z-a10ãU"dWx/+LDg5'wck9LvW0mjU5%RTU^75R6PUxJgwk.#H+_#/Nb[dcUav5.F?\pCu[UãU"m8?B3QqS\/Ubs:V/7%4kCAGyURhot2JsysHi8?hCh6u]h[%3MDc1LPdi]rrd\UrãU"kj5You_24x7Rl=grF3H^*'X)W^GLhR5fv*z+9/=/j8#S8\ãU"f[Oq[CYqCB.OGk.9xO9E\=AILYsWV-:P3W-A*:3lKCZo_XPK9hTk>sVTvNI]#-4ãU"VW4MQKeoqOJYT+TsDUhlI/Q[b.tfIyRL5S5YM+E5#k-jp#'daZuãU"]mL>a$/(wB[It5iCdRh#n[%S,8;.ybx]sI/#D8hAI1CK6;;0GFfv.ip3Vt0n2+AãU"8[1DG=j;>RhWY5V52N6*5s.7\p?aoo'Yec9XmA+$1g1y'x?Bpfv+FD4wbX:VTM1ãU"fJnhYKr#Z'u8fs(xVx5J2FObuq$vnJ^iXQv8l,0x#xPfd-.4)5k:5#6HR9:7mXNãU"]UMmO^?lC%PMI^k_$b.)Xn)##F)jIrVjVi4eS0,QSu5g6ERãU"DPln'TK79DZ6TC8=SpBbSb]w\e*wK\%hPwP,ãU":dYsU%Zt6eB%%2?\9\4_KV?H\7Is1^1%H%Y/IdnPnDYF/Df'=xãU"U7I%m>R0f_\E_T,m&_ttJ*goeti]$m3O'Jgt(WBH_i,wOiCc[g&FO>p4'b[l?.sãU"tP#ujk_MTpnWW5E??y?qrG>Km;hJN._W0S8[IvK%nY4wRRA4Ob4IR+9C=*EeYS-tHBo52la1i*ãU"E%_cD[c?rsItfJnkGP_X1dGUPCey[t[S1n:6kAE<9[4.'eG#C#>Y*'TN[9HO64gqQMb09OW[RfYqpB.4rLU#^01;V9?o>>>nãU"oA?f>ND0j16t-LX3lUd,f_pH$U[e7Hg3^oFZuQg>^t+3GbTS+D0rd97SdgT-Sf#ãU"aU3X,I\=B+$3gW^J&BL$n._/d\*\X8ktFQS\l*rl%W1A30syqv)>g5h-?^f4Zu7ãU"ADR<3t('1<*wgVL*lpE5-rZMi.G=u''jm-w5d.]bl6wD9f7odTLCg*E_Qfw]oE_ãU"iE_grjp(P8&ZGx4Yhv$TfpO+nZA5kkkpq;/\'tbhL4=L,zSlY9n9HuãU"ff;p)2$b9p3)n7>wu4EpJ?Iu,D%D/f$>(>UCvm)Ovqy1aMu/F3lugiOxvD#Sss)ãU"tcl+Y37Y7dMnOo^D+WYv&uXf5XeQ3+kVs+D*'ojnlg4b3M2w]Hz$E?ZcTq#I$H3ãU",,643<6Dj3JD9cqsDu+bsj6cAOc[eK7Q8H27[mGjãU"'q8R+O:SQdiv/Nh?+zO)b4]p+cJOlP[br>H1/-B7pc2iqy'VAg7.FieU#XC[Io:ãU"OXZv.Z$l1q2'56O/&cKA)t1=.rVYM8%B%&^F\puY#*s:&u^OnuGBq5%#M*I\>NKãU"yuRQ:PkQ(#*&E[aipY#9mJ[dW/C,JB5s\2>%zvg8K(<&PgBn"Qa9$Exe;9,BãU">gO7]29K8R6U5[&nU0I(6*poY9.;>8R944/;9APd%r3WDL/ãU"8$91'YkagW,0C6oPPXRVC?rD>90t$7p::rSl/J?#(LFDUkcT(%/$QepPOe;,187]hg+lD3d:PS^TY&lp&AW7F7f7W:(5iGZSVh/(Fd>(Z89ijG;'#,$UWY,^*hrSm?i_auO1)ãU"3,>T^oS)HU3<[=OmLrgG]_7lbf^ãU"cKSP.;Tn\HSP4SUY8.BiC%z[jT5j;ay^[_,'K,,jugsNN-?otqMU3lUh,fG>00bãU"LkX=j=\NEJD9>*liUbOYm6:ivaGWLY0hSuOa_E:ELLdT&SV)DN1Q]9iYbTLi&GFãU"FzN.BLyDVyKG;e3JqFt\lramv8M]b59Of&mup,).0A$5\/,JC^--X56+SC-8V$uãU"/=MN^[Ca#6SmhTj\I6e;L4iM)o*sQ/n.tYTJyMH.ZqBG3:Cz7nEz#hB,*;LQUPhãU"UX,YcgJ&NaT=ãU"RbNsD=XZj8O/Wi4[n'E;vfKL['*h>a93c'KA;11GhHF7fm;P>1Ipw*EK_^[Ao90ãU"8g]wW9dX=$hz\JZX?ZSXNO=+R)$pabkCdF^FgZfzg\>oGTãU"-V;eJ)J68.SAf*PElJap1p-SfwB0mChSXo)w:OPOblue>gFZLcf[$B;-oL0c,n$ãU"S%Lr,7d60.,=?Xx*',2PqL?9b\FtrIwNBux:cWN=Gb7(?Ip.[]-9\e=k?\g7f/rãU">S3>5TAE&-m\H?N=jY[-Lq0^BM3r$sG#i>pe7EgpvU+W:lpbZf,0mKRs)?XEGW*ãU"GFYioB_i%._HTs'3)y\PGh.7(g#VgV8-D^ER)A,'PwzR&a3GvVtz45DIQ>13:>kK[G$lp)m'2_&a$?')ãU"8B77=J0jJ,(HaUs+(dJXKeNr0^?KY[=doFfr4iPliTUcRMv3>(o2,(W-E?;6*'UãU"Ae15;MhIonPGTgW.r'\ih/Yge;ahwG^Q(g+R=h^taBg7YRnM0vRJ,pog?i,($utãU"b#Ri0erv>Y:1[H&L8;9fc(.CPnIm%3milU#ID+gbkH47+-,pt.(HPcqgdZA-a/vãU"E?p\)+T['apYr'-'G/klBfp+(0Kb\n08Zdwmeh5&l/O;:*+PmIi]JSs?/(kE7::ãU"d(ZjeNt9*[kdj?._]kW2d)pa6ZQTiNc^Fs_jce0:o4VZsg%ãU"(c;=(=6K6L%c5Wnl__21Y8P/\9#.k0[3AHa5C>FGlB.SnU_]g[E]2n[wZ*Z2ag3ãU"UW(%1Muw$T\OYs&]$IyP69MNC-CR6SW#pBeek*Fle24Gw)#D*?5?2me;a2GUQO3ãU".^/y.e2q)D;&X=_]t[ui)HI[&;Gk]'U'l5lkObA.d=jO3MO4]\Ut&SXW$VyUif9ãU"26poc/DMfKQ6S$)z(=^5[.T8Snq;k6TPIZpHE)T7y^\?*c,20Tx;<:%tRoAlmk9:6ãU"3\cF5(9>hG?l)RQR1MiU^09-Mc$E98TpR^JL8(oX(#ER-axFAQ\fU-ZeM54<&:?ãU"(/J7)cm5%ewbz:+Es&/xN9wkloIXikG[oRU\#Z^+gTghokeu=]K#:0oPp11bq9O%M+fR%aG.eDJZWRãU"#CxgU7),1I'X_/Yk,syH5G3P(W6rLCMuPa\1pT5SSP^*'AtG:F]6*AW/3=_Q8kyãU"Ov-nLuC/D]2($]a6K0LuShlpF3[]X:.H(<;pgB;rV:;FG:i,NM,c%M)y[5HNI8NãU"\B^+(k8msDq%V*#O##\r#t:9Rm#eR8luLuku/t]O&ãU"K,DUZ5E8JDH[r:H?W;ach5=7E9%EVhQ<&ad[pvDQN4-J.-1$C/hTK)Znr#dd<>uãU"MXIz>c*9S7,Ef/06a'(M)m+LZWf0UIiQ30vTqiXS>96g;qQC-Nf,m1Gq_i7--tRC,(TD_g?F'Qsh>-/aUHJZdcN()43_tsdVLL[XãU"bXkH^lu&[kXztCBK>oZ,wiZBI5?y2u[I8I2q6LlIpn5c.dbmTvoh8E#zIrcS=obu/kYhc;lI4CL,1aMCsq99Jy^keDb+:9p3A1dMk3'wqHãU"b;4v\uYU24BALtIb2dG3q(e&)<^GO-0.lxpVLWcãU"mtd&M0R-2IUL+hV'lZ_?*Fp3G/VL5kQ/Q3bBgc>E9jg?t:peAvH'ãU"cAo93tg-\:$2TQ31ea7_C\Py'S.WOh%U7c?pgYp0%1gnOI+qNne8&Aao>7a7lMhãU"swF&Wu3]BE%4$',oUUL&,Bo_:pVl]O61>3#5;ZP1uf9q'9SdUZ%B'ãU")$7qj$yZmvkX1zIY#B%[3_1T?NSsH1::L2ppF#/]j#.>>ãU",3$Ufpg2vZmqqIa'7'>-X7snSmGns]Be0u_;#5\LNCQ$6taU$1')?q=03xn\_xLãU"Mkl$JPY*tHclHno1KX=XC-$,B&l2k5WsIHKX9HL$guVn4EsrQjNLJUiU=bUoY5H;-,z_pJT.XGaWh&LL-PãU"VyU?-C7%'tg-G[\^$?gS^]=7P5gN%)Ce(%Y#-wn_JX$rXX1I\2Aa/8-#RXc[#aWãU"Pa2b4q[N^a5;-xfI>f]^$E$tLjN(I0OI-PdIP6d.8,*or8+fãU"goHs/baQDL3tO#d55HA?B\5BIznZB9IGt_ucEAnGYmF1Ls4#HNw13P]vbUT-FK%ãU"V2fp+?_owk/_:kr31J6b]uZBb=R+Px#i4#-9PY=dk%pK?^4^>F3$+k^m##K[N.YãU"ey[X[GMmnD)')F#MhAPA;ltq<>f5&_3gk[GY%w20w2mB(Y=SQ+0y-pxz3/])GwKãU"Lx2yP\CEXbO$\UM6?\'s=N%LYVf1ikpxh0W0)#hB))XpZ-$RvD6R4_%M6L2u5zqãU"LPMl;'Pb,?U8np=VMHYHydnJ<0bZtQ=PqX&XJ$xRxp,V_qcLF0c_^.v:QEW]9P*ãU"v$L_4<*\\,90W?a,6Ea6v.?KPTti5ZOfhMH>F]%t6>F2l>4CQf=^*MscQ;rRl?aãU"+BwL;M7[o>>li'RWu'gHIBtsWM:vckZ$Q0Roo^#RJ>V+<4\\qbX=0AHuf$BAagLãU"&$Sd8uygNOC4>TWA+E+2g4?5;_FF-r41\u^x):jSCyMSMQCRhS/=:nV='*4nx89pTQk,b9iuPe5b4$ãU"tOS\*v0FITiTQ6tVn>?^edrH9N1Um'^P<+ZGSI,x%AbwBb*m%.Gh1a-6qb*p0g?ãU"c:Utu/,0VxA.fki'ax73r-Vcq%Sn3WGw-P\Ef:*Qgx]Bru^_;K+bj;9nSEHXBFEãU"WK.F0eKbAU:#]..Kq2kD\gqZQq.)\[ip$H)EsP<3JIVI-pãU"fhnVrWuN4w^nN+8u7?d4=?wk\4sdwI8Ne,D>pSR:4(v>_Aq^QPbu[<#fqnZ4fW#ãU"jrE5$NQUtgU'LbCrK4spdFYZFuhs[CY5MF\V>PlgOi:.j2V=A]oEUZDppSofWgPãU"tBAb#*>u;[5A'^>U?4dVQrv1bHoL4H%b[ãU"i''r-5KKhSQ8Q3REf_FbTlDdcX6l+b4pDZ4_.K4];V]Dd+Jlz3U^XU;b^lz4?pxag+l-ãU"/;+u0ihH&ZF]/sEsYZFcMfwm$kU<=SCaiqRQR]EMknOR,XEC^bgd1QEGnTãU"'E]5qLbr$C2F_X=dO3kq6lf#T.??f\qzCLYs-/Csq?+F6hh=3kxKhf&f6>8Ids%ãU"SF9PXIxJajHnju,6,]X[f=8fCZt9dgxYm>s]&aNLPR)+dsRMOrjtOo>$fq](_X$ãU"v-t]z$C_9$7'0$L+cfG8c-V/Ibco)lF]HETojlc3(W/L2&ZT7k$E&L7Dr[f#[2.ãU"f/SlD4Zj'4vd96i5K]/_EvfI9q..8]eNEkz,/IN6i+Q)OG^#LsPãU"[qF+<&J?72e4KX%h]5Qb'UJ:+>6YDkt<4w$a1K?\H4ZgK88SR')Y;pq>%(Ndk3^ãU"Sd%X+<[J3maNGanA[^k0)oxF%=%yZrD)%+rãU"6;qoZEL=\vidAFoNQ]q\UA0jha*CEIk)WO,n&m2zCMRA'eQDEZ1%F<5hx$?6GgDUd3D>*S1Y^r7jokpYxU&gJNWw68>K<[RkãU"6IK-s7w8q-+j%V7)hRWZUwB%r3fqjC6>Hs*F;snVpTJCrM,q6Z^/6w]5_Nm7uUJãU"7t=w$*)uP;O&oB=Yj20ohãU"Cy]/J/[-iy\VOeMq#=+/7zi]ms:>-EUziii9d*UvokD$r&*X&I3I6HFs\mN]oKOãU"eOeCT?,%[XãU"TOhf4bPB<_SCOWpU-sTGY/uBlz?w'Bjf?us3qC%e.VP7.%IC;4;'IP=A.?:9)WHãU"R15&qK+O5x=pNREi.K'+QkquPl^_GM7rLKO(6s[^dK.Gv.#\P4^%RS^/d4qlVvkãU"h_%w%44*.C[w:]%tMpbZEZ$mum#G-mlCN3aJqYq6PnL8%2=y8k7qZF7(=JZPA0XãU"%a0qSr-d;?A7RfppL=.:['h$xt4C]^wOdbyZ&o4K\PA3i#Tl\HX,-4,id+:6DR/h]D2Z?<)#,iDsZ>]8ãU"CVA%<$8Dm)_#IkBabLNF:LvE$sSQE^AguW9/MHI7%LqneYãU"%itmj;7RRx7k&dx]OAM%Sn,g&HXBdq_>6/0)FLL:]mbp7)5yr:Od\iv^da'0st7ãU"6X3haQD]eX*PjYZ4:e>6p78j%nrNThv$pculncPal[#GPnuHXGqV=fa+g22.5%?ãU"Nm+hokReib\tãU"aWRmMj-(V.BY^vM9&FEt9iKB_)T0'JcXK.kEgY2O:tp=cfsP&IFA&?ãU"n&kZC=^aVlOAb%oDVY+S-a/=JG#<0]z;t5k2\vl%Z9/8q/7&z4t'M0)qiTQq6GR9iE1Ft5I#0mmwHTãU"D'2TKf4([EwW\(LmO9.kf2x9LNKqB87h=;OB46JNJUS'mN?0?oAIe+;V7;;ãU"-F70SOS_^BKTID?EJe[>gi;i(;Q[l6+8Zn[m.Y1rsHtOHn9=ZSUXrDE=#?'K[NPãU"^V9G;h],qEDL)2h'[Q8\Dc=>7-Lrp6a'+VZlH\t$I8P%t$kZr>wAF;6UVskvlc>ãU"u\xe:=VuQvd-<*MP[ZP(^wSB7ULJFeI1X^=)QI_1OkK%LsU]#5U2I3)f5v\XQp-ãU"pW,b+^3E;>T-fU[TO&a-%9Ik&TL<:W#21v_R=*??j+1\:OBjB,=/TP2\85/31y7ãU":6[?cb0r$bbOP8K2z(kCE5091l][GBWqa;(?fk=1[kgBy3sJ?=SX#%s]P[(sA*aãU">^*op*8'B..oDYI:8xP^gfZSPF[xs%iMNNJ&wqcG3O#D(vpIx2rWa7#ink\MGByãU"/uo1UeW*^RdCt%VJBCh,rd0]F(faPW%#B$#'#s*8AEVVMvHM5OLK\o5jP.e_kmFB<62ãU"?[0]7gy$>7rKUr;3C^yRtY+WnW2&Q8ii95wYi['L-)0-/N]^Y>(+1K:0/2XL*UjYL.cR/gzMcV9NpVJd\6ãU"QA6D(b^9B)gji-9T\B3))%3Ot[/y$F*/CjeGHNZp=P[\6ãU"O5OjhcSJcJJ6[<*3*Q*K19]rmyO\8?5u-1;*l:uc.HeMiy0WeIa3)Pv]g[L:Q'tãU"Y[iLY(/P79nwYUA+_j,#//EYsYP,[0ZL4wwFC?\TV]rXn*]AGR,cS3z:98Z_;JXãU"<=rY4G\f85&KYGud.puF%WYsG*.JlnL2l8sQr:*uMK3P%bXh;A9eTMu=^=2j8XiãU"wmeL<=J16V8wfr6+ApWi?O3LiuxT^dF,?[.:Jam(GXri.r7R.q%jE(=XS[k#xSpãU"RP6./A.Bfq\kURb[#RfMf2vP6L8%QB*1MT3&=J$3h%7H9CppT#4(P+7n-[vMarWãU"f;\ohkZqT7%(Mc=4TR:NLN'UO:mE.]6T.#QQqKIr^)IM%ov1[EjR4Ku%OQ*6??ZãU":Ij&$E+(,1nQF3hm;u:79u;&L0XsZ1=V,;pdRyif#CC<+H0>)MKc=ha3Ps6z_YYãU"+A8t#g+W,)B?;4_Mo0?K[kC]gzZ2N[?](mykaV%>la6=Jcm7u=n1ji_r'fY\?h&ãU"ezKRl6XT.s3;18V'v0CK<)nPjf6%4l:0fVq6nOAnDxiGXnXT'^I&e9W7a>eJFDMãU"z>,CB[NG*FW;U)N.^6(B2BP1ATC10Z[r#BznlJJ-UcS7ãU"mPbND8gBsF,$neUYwd\Q:qrnmC?h[axs?Y.ulMd+>J1niFqxD->hlXNKuw$QVGFãU"8LohhGh>:kX\W:H3(Urp?^5&U/6me(IQd%dkn:*Eh'4b1c=TRtAJ_ad5,2JnCWOãU"q4O:.Ovfqdc=ZTt5%9UAE=1.ICf3Ld#^wP_ieti3+G#AE]7QBXU_tI(Ym^&V;\cIW8CYQKVvvLCãU"kZ>0knBhmF>e0kd5)#/+FJQ?RRDFlB%t\SZO>u.&xm=H+PYv+cB^Ag)]xF.Lr8cãU"8#OlnE,JtkENzYLq)#SmhDdh;6PN5-Y8)sd&KEL3Cfmq6>2FB(J$t2),RFTãU"^3-_u#skZMI,CzK8Lug>2v0zrZpZlOQN'(n\nOc\M*?'cZ&0)]DZEB3gl#*uK[eãU";D)TDs.m,oS[4-MYZaiCI?:O501P[&(-c1+D60Wkl08u)WRX/Gi%-n>uJCkecT8IE'bWs'a\;95sx;H+il*(9(ez,A[T..lIQMB[S^%S*JA9ida3ãU".p*q5%OGC9z)3(:Pq4K4F]1Qpw5;DqonwQ(u54ZWi%9eC_oBweyc7>W.P%MN(W7fC1mZ6>seLk,A3>kv)dI*-Y'-d'E4OhuxxjX9ãU"Tb?'PR_5zAz;J3CP&JWãU",43zN2-X9*UnOZvBQsiJLP]&,'&=Bqqzz&0M)&*.36Aq59#t,LM-i,GDTf,2e7$G(Rr+j+ãU"4^O5$2Wl-P6#C4c'D.'1-0pFi8jfAJVpn8;F92EY*7R(G2C+rQC[FW(*Ff3r,$2ãU"E.k)74JrLu5b=^sr&A^^sg(78?^Y.eFezYIJLT-SDãU"j$zYVDp3U&l9fZf<9lip5M0Qq-PjX*]7Si)Wi.3);Zx8HV2T>E.*2j#u4E?p.*2ãU"O?u4*J;IP_4B*p)=eGQ1TUB4w)[--NAY7uc0IGXZ&/#N:MAZYD+exb)&gRO>u29ãU"&?'(,;9D1jgj1w7*93aJyxRmfQWb_bxj#+y.L7/cY$>&Q(c^Ppuv_]7m;HWmY#XãU"iQoxu)+6^O)sgq=g/xy?YL6=K?P*T&0'E7qU35[q$^4UJ(UHJ[(Y)-.GOO^jz:9ãU"vlmD1Bq?ul^2Vk:5^/XH^Nn$CJ*na_]1T^4^_Hq$/2qhKo]=xQX?>cDqT,c6v+zãU"Iy?&bs,%#7%E,fh\9(S%3#NIx4gXPnvzC5OmHbO$sdZU8>)X=g.=:PeVq^+=],-hsF0]'3nGãU"QGN9.Mj,[gg&Uv][s#>5s+ag3.DfA3#*:5[(x?viW3WãU"LJd6gY,7mXpN\s)V[,afnMe#:kpf>f?Agbym5ãU"g/'fBRQPu[b[F?V-RU6K$jYb)eJZGQD3E=W2>lcQBG*0:qbw[=#C3j\1j4\tKQ%zk=$%[GcdKãU"C/)fbdA/Wrl9F#DdN+r0A[\shJw/z>+S0hQV'%%^4*>pD(mhm$>G%&b=IHG6mS[ãU"FF7-[EO^bpF#JtBLZ/YS\s>BMz=FLc4()6nxPRuCuo]?\>JqZBGARVRZOl,YspvãU"2Fe,R-]7%Y>?DXas<^rud*wqPWR#g\OIw_swO,].#C].'Xesg5JVLH]v1LP'W.sãU"XKGmSq?X+r=5iY4JuIE^X=Pewyh\&+Ob=(]fo>F+G#tR6($\1wZ]X7J*-w.G\ftãU"jES,IMzEJKitJ&ujWv3I55p%xO[ejOjIZkO:4R)jl;oOoa>=C&%&#PvkRIlsO2phyQ0->oj&%Q/WID<>KuqPLYQM>2Nb(,$T,SpaKY;fZ($kMPW^fLbKO^WSãU"xU,kQODCsB4^gYIAVD]ABP2n2V_p$m,gk\_M)luS01Lc7vdfl,ic+em_2vK[qEqãU"eoPeXfb*.:24^I/5Tpo*SB>6Dgos(Xs_Kq[E5ongL:^YUR(JdH)?;_W1$x%8iodãU"oH/Buajmb$?l(LT;PYp4kKE/#?P')11GT/jãU"3^>s^[hL2'VqPJYB%]a90z*49H5j[<>hGGTN01GO)8hg>6fO)oz6A9X)8pN.E[KãU"XY[i3a_4;wJ-LkW_\MlH<,BkVL3=NpW\FqDs3YE?lvMi5IMABf<'EF*?5,R:mSAãU"fQ-jFo;p_IRr',ZN4]f-Tco'Qe1tXdo7[+[<:0>,AA)+AV:y:6,ãU"Vh&(G5?r'>Yn%S'8pqplR#$8/]IXF+.rqVHM:^A4#P-J6*I,DCR%<4_tn<09bYtãU"Xt*XXni+;L0>'G0N66hBmn=/5Kp>qg,ru3RKWOmPlWfNjnCp8lD]t2/W_;3w^rLU'iX(ttvlP$?#vg5^3Vh18LgãU"ra:/B991(4XV7C3DVNfFZLgqAJwr+;8t?f(8t-P0#C,BA5]L0O?Y24TJycpvfM0ãU"[vVD[jrQg_FnDH0Xt.T3$(YYIfmkOQ*ud13VPQ+,/Nm^G9E:dCI6ngI5:2=Jh9RãU"9_$(9'Go%jiq*K&>'=mvy%'mn0OvDDX+3,'g:f2DG/1n&u%Grqu2(G[i(Gcn&/Ao)v:?Q+-ãU"\62=**?/fW1,(JYQ.0;Acv.A8pcK8Q%9A:n9+K;)2Oa*b(*(M717vo:_3nyEQ)%ãU"I1je+U+M^G5>:'A4t423TX3XvoRR+\^9Z8t^A)-r>l#VQ6.Z.>[,J]AIhto6^>/*c;iP<ãU"*GfT6dG.2+A..;(yDVYc;>c,a/uJ#'KoSXwdMjCqxGP)9HA8r-)?[(0s%9='Af-ãU"AX/g[E^Jzw]c;i%KKiQhA=,Rvay5S8n4TekG'tAV^qsVV1u'+G1qXZ\)$ICY(O9ãU"KS4K-DG.(g,f)(RWZo11G\6Mr4m\Sq8*71nFc;xUr/s4q=0\5uV7^k^R92-nugJug6$p%[PCynQ(ãU"#QxEQbAW=^cx152#cN;4]=ypaX&HF;8E0&W6jyMvLAhjEk#8gPPS0&o0N>?t4]JWO8b<,ãU"3foq\.elq$RA4Pk48$KVNDpdfT'm^[2c=PLoou7'f*1Tztm&jmL9s>1^>/^BBnuãU"uQv7M'pcC]/T#**Kr(lL'\LT3iwYPlgPU4EXy*g293&p0Sbx+LS]+QfX.*L[hoXvJ,kFKlBCDTãU"c#s1G'50EfN5'Rt>)9wy,DG'9PScqZ,5ESW#s<5=*#9Bmg(rUMpjtI6u,?r>_0HãU"evE-V[>/P%W,MeI_L4tk8qãU"ji/Zw6V[)=MZpZd)fmGWi7DclOPm$oZ+[aãU"lW=MoH78CR$Ig;.+lvTg>2IKNTDlqE?m.).Jpt(CMZt8\s5GDmp'^9IR/b*2XI-ãU"qk_?p6bew:d?]_dKDkeB]=oE3c3oe'hjAX/]L9T*Wh=xnXZGnjCiJI(dBsãU"$\V2kX9%Dh[u6Eo_5HSaNth6NI;V[s&'Mqp).#]?fYv,%up&'%9%9%%'%-%*G5SJ1/t]+'G#%%*&[%%ãU"%*%%%%%%%%%&%E%%%%%%%%%lW%Sgnu%p&'9%%9%'%%-%S#xTJ?Xn&^R%,%%]%I%ãU"%/%%%%%%%%%&%%E%%+%j#%%%lWi%jrtS%gfxu%p&'9%%9%'%%-%0\?SJlaIk;j%ãU"B%%r'8%%+%%%%%%%%%&%%E%%(%kH%%%lWS%gfxu%p&'9%%9%'%%-%\AkPJ+erc-ãU"&%)%%C%;%%1%%%%%%%%%&%%E%%+%*f%%%xmf%ujxW%iSif%yup&%'9%9%%'%-1%ãU"h0PsJ=GK'(5&%(%q*%%%/%%%%%%%%%&%E#%%%W%k%%l%Wijr%tSif%yup*%+%%%ãU"%%*%*%%6&%+%9l%%%%%ãEND SUBãV2ãCLOSE:IF S=38AND 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ãRoss Harper GRAVITY SIMULATION t.r.harper@btinternet.com 04-18-99 (21:56) QB, QBasic, PDS 72 1827 GRAV.BAS '' Hullo!ã'' Something I wrote in days of old when knights were bold and I was bored.ã'' It's a thingy where you have to land the ship (you know the type). ã'' The space bar fires thrusters and Z/X moves the ship left/right.ã''ã'' Rossã'' Peachy512@yahoo.comã'' ICQ: 15844814ã'' The Zax Bypass: http://members.xoom.com/Peachy512/Asylum/home.htmããDECLARE SUB pause ()ãDECLARE SUB explode ()ãDECLARE SUB ship (q!, a!, col!)ãCOMMON SHARED x, yãSCREEN 9ãCLS : PRINT "Press key"ãSLEEPãCLSã'' Gravity=9.8 m/s^2ã'' Ship travelling at 1 m/sãg = 10: s = 1: x = 320: y = 20ãCOLOR 2: LINE (0, 300)-(640, 300)ãDOãCOLOR 7, 0: LOCATE 1, 1: PRINT "Speed "; sãs = s + .1ãy = y + s * gãCALL ship(x, y, 5): pause: CALL ship(x, y, 0)ãa$ = LCASE$(INKEY$)ãIF a$ = "z" THEN x = x - 5ãIF a$ = "x" THEN x = x + 5ãIF a$ = " " THEN s = s - 1ãIF y > 270 AND s <= 1 THEN BEEP: CLS : COLOR 1, 0: PRINT "You did it": ENDãIF y > 270 AND s > 1 THEN explode: ENDãIF y < 20 THEN y = 20ãLOOPããSUB explodeãCALL ship(x, y, 0)ãCOLOR 5ãFOR n = 1 TO 3ã FOR z = 1 TO 100ã PSET (INT(RND * 50) + x - 25, INT(RND * 50) + x - 25)ã NEXT zãNEXT nãBEEPãEND SUBããSUB pauseãstarttime = TIMERãDOãLOOP UNTIL TIMER <> starttimeãEND SUBããSUB ship (q, a, col)ãCOLOR colãLINE (q, a)-(q - 10, a)ãLINE (q - 10, a)-(q - 15, a + 5)ãLINE (q - 15, a + 5)-(q - 15, a + 25)ãLINE (q - 15, a + 25)-(q - 20, a + 25)ãLINE (q - 20, a + 25)-(q - 25, a + 20)ãLINE (q - 25, a + 20)-(q - 25, a - 20)ãLINE (q - 25, a - 20)-(q, a - 25)ã'ãLINE (q, a - 25)-(q + 25, a - 20)ãLINE (q + 25, a - 20)-(q + 25, a + 20)ãLINE (q + 20, a + 25)-(q + 25, a + 20)ã'line (qãLINE (q + 15, a + 5)-(q + 15, a + 25)ãLINE (q + 15, a + 25)-(q + 20, a + 25)ãLINE (q + 10, a)-(q + 15, a + 5)ãLINE (q, a)-(q + 10, a)ãEND SUBãRoss Harper SIMPLE HARMONIC MOTION t.r.harper@btinternet.com 04-18-99 (21:56) QB, QBasic, PDS 54 1322 SHM.BAS '' Howdy!ã'' Just a little program that I threw together one Sunday, in the hope ofã'' illustrating Simple Harmonic Motion for my A-Level Physics.ã''ã'' As you can probably guess, I need more revision...ã''ã'' Not much of a program mind you, but let me know what you think.ã''ã'' Rossã'' Peachy512@yahoo.comã'' ICQ: 15844814ã'' The Zax Bypass: http://members.xoom.com/Peachy512/Asylum/home.htmããDECLARE SUB pause (s!)ãSCREEN 9ã''INPUT "Amplitude.."; Aã''INPUT "Pulsitance.."; wãpi = 3.141592654#ãa = 50ãf = 10ãw = 2 * pi * fãã''draw grid!ãLINE (0, 200 - a)-(0, 200 + a), 14ãLINE (0, 200)-(640, 200), 14ããx1 = 0: y1 = 200ãFOR t = 5 TO 640 STEP 1ã w = INT(2 * pi * f)ã y = 200 + (a * SIN(w * t))ã LINE (x1, y1)-(t, y)ã y1 = y: x1 = tã pause (1)ã a$ = LCASE$(INKEY$)ã IF a$ = "q" THEN w = w + 5ã IF a$ = "a" THEN w = w - 5ã ã IF a$ = "e" THEN f = f + 5ã IF a$ = "d" THEN f = f - 5ã ã IF a$ = "w" THEN a = a + 5ã IF a$ = "s" THEN a = a - 5ã LOCATE 1, 1: PRINT "A="; aã LOCATE 2, 1: PRINT "w="; wã LOCATE 3, 1: PRINT "f="; fãNEXT tããSUB pause (s)ãFOR zog = 1 TO sã starttime = TIMERã DOã LOOP UNTIL TIMER <> starttimeãNEXT zogãEND SUBãDieter Folger WRITE/SCROLL TEXT AS DOT MATRIXfolger@bamberg.baynet.de 04-22-99 (07:57) QB, QBasic, PDS 71 2133 DOTTEXT.BAS '-------------------------------------------------------------------------ã' DOTTEXT.BAS for QBASICã' Writes text in mode 13 as dot matrixã' One line can be vertically scrolled (SUB MoveText)ã' See demo program for usageã' Note that chars > Ascii 127 do not workã' Freware (c) 1998 by D. Folgerã'-------------------------------------------------------------------------ãDECLARE SUB MoveText (y%)ãDECLARE FUNCTION Bin$ (b%)ãDECLARE SUB WriteText (txt$, y%, Col%)ãDEFINT A-ZãSCREEN 13ãLINE (0, 0)-(360, 190), 8, BFããWriteText "The", 5, 14 'line 5, color 14ãWriteText "All Basic Code", 40, 47ãWriteText "Archives", 80, 60ãWriteText "Created by W. Yu", 110, 11ãLOCATE 25, 10: PRINT "Press any key to quit";ãMoveText 40 'text on line 40 is vertically scrolledããENDãã'---------------------------------------------ãFUNCTION Bin$ (b) 'QBASIC has no BIN$ functionã'---------------------------------------------ãDOã b$ = LTRIM$(STR$(b MOD 2)) + b$ã b = b \ 2ãLOOP UNTIL b = 0ãBin$ = RIGHT$("00000000" + b$, 8)ãEND FUNCTIONãã'---------------ãSUB MoveText (y)ã'---------------ãDIM TextField1(1 TO 26)ãDIM TextField2(1 TO 2740)ãDOã GET (0, y)-(1, y + 16), TextField1ã GET (1, y)-(318, y + 16), TextField2ã PUT (0, y), TextField2, PSETã PUT (318, y), TextField1, PSETã k$ = INKEY$ãLOOP UNTIL LEN(k$)ãEND SUBãã'-------------------------ãSUB WriteText (txt$, y, Col)ã'-------------------------ãIF LEN(txt$) > 20 THEN txt$ = LEFT$(txt$, 20) '20 chars maximumãx = (320 - LEN(txt$) * 16) \ 2 - 2 'calculate x posãFOR i = 1 TO LEN(txt$)ã Char = ASC(MID$(txt$, i, 1))ã FOR j = 1 TO 8ã DEF SEG = &HFFA6 'seg of fontã By = PEEK(&HE + Char * 8 + j - 1)'offset of char line byteã By$ = Bin$(By)ã FOR k = 1 TO 8ã IF MID$(By$, k, 1) = "1" THEN 'then set pixelã DEF SEG = &HA000 'color video segã yy& = y + j * 2: xx = (i - 1) * 16 + x + k * 2ã POKE yy& * 320 + xx, Col 'write pixel into video bufferã DEF SEGã END IFã NEXTã NEXTãNEXTãDEF SEGãEND SUBãYousuf Philips OPEN BMP VERSION 0.4 philipz@emirates.net.ae 04-23-99 (18:32) QB, QBasic, PDS 612 23985 OPENBMP4.BAS''''''''''''''''''''''''''''''''''''''''ã' Program : Loads BMP Files 'ã' Name : OPENBMP Version 0.4 'ã' Programmer : Yousuf Philips 'ã' Company : Y P I 'ã' Updated On : 29th of Dec. 1998 'ã' Email - [philipz85@hotmail.com] 'ã' [http://members.xoom.com/Philipz/] 'ã''''''''''''''''''''''''''''''''''''''''ãã'/* Do not edit this file if you distribute it. */'ã'/* (c) Copyrighted by YPI in 1998 | All Rights Reserved | Public Domain */'ãã'/* This program has been created by YPI (Basic Programming Incorporation) */'ã'/* as a utility to load BMP files. */'ã'/* */'ã'/* What's New - */'ã'/* * 24-BIT loading is in color */'ã'/* * 8-BIT loading was increased */'ã'/* * 4-BIT loading was increased */'ãã'/* If you use any of this code in your program then you must credit YPI. */'ããDECLARE SUB BMPInfo (FileName$)ãDECLARE SUB SHOWBMP (FileName$)ãDECLARE SUB ChangePalette (Alg%)ãDECLARE SUB Open24 (ImageWidth%, ImageHeight%, OffsetOfBitMap%)ããCOMMON SHARED X AS INTEGER, Y AS INTEGERããCLSãPRINTãPRINT " Fast BMP Loader for QBASIC - OPENBMP ver 0.4"ãPRINT " (c) YPI (BASIC Programming Incorporation) 1998"ã'FILES "*.bmp"ãINPUT " Enter File Name - ", FileName$ããIF LEN(LTRIM$(FileName$)) = 0 THENã ENDãELSEIF LCASE$(RIGHT$(FileName$, 4)) <> ".bmp" THENã FileName$ = FileName$ + ".bmp"ãEND IFããCALL BMPInfo(FileName$)ãWait$ = INPUT$(1)ãCALL SHOWBMP(FileName$)ãCLOSEãWait$ = INPUT$(1)ããDEFINT A-ZãSUB BMPInfo (FileName$)ãã'/* Opens the specified File Name */'ãOPEN FileName$ FOR BINARY AS #1ã'/* If the file name specified is empty then a line of text is printed, */'ã'/* the file is then deleted and the program ends */'ãIF LOF(1) = 0 THENã PRINT " FILE IS EMPTY"ã CLOSE #1ã KILL FileName$ã ENDãEND IFããCLSã'/* Extracts the first 2 bytes of the file */'ãValidBMP$ = SPACE$(2)ãGET #1, 1, ValidBMP$: PRINTãIF ValidBMP$ = "BM" THENã PRINT " Valid BMP FILE"ãELSEã PRINT " InValid BMP FILE"ãEND IFãã'/* Extracts the Size of the file without the header */'ãSizeOfFile$ = SPACE$(4)ãGET #1, 3, SizeOfFile$ãPRINT " Size of the file -"; CVL(SizeOfFile$); " or "; LOF(1)ãã'/* Extracts the offset of the picture data in the file */'ãLocationOfPictureData$ = SPACE$(4)ãGET #1, 11, LocationOfPictureData$ãPRINT " Location in file of Picture Data -"; CVL(LocationOfPictureData$)ãã'/* Extracts the BMP type (Win or OS/2) */'ãBMPType$ = SPACE$(4)ãGET #1, 15, BMPType$ãPRINT : PRINT " BMP Type - ";ãIF CVL(BMPType$) = 12 THENã PRINT "OS/2"ã PRINT " Size Of Header - 12"ãELSEIF CVL(BMPType$) = 40 THENã PRINT "Windows"ã PRINT " Size Of Header - 40"ãELSEã PRINT "Unknown Type"ãEND IFãã'/* Extracts the Width and Height in Pixels of the Image */'ã'/* and also the number of bits per pixel (bpp) */'ãPixelWidth$ = SPACE$(4): PixelHeight$ = SPACE$(4)ãBitsPerPixel$ = SPACE$(2): NoPlanes$ = SPACE$(2): Compress$ = SPACE$(4)ãGET #1, 19, PixelWidth$ãGET #1, 23, PixelHeight$ãGET #1, 27, NoPlanes$ãGET #1, 29, BitsPerPixel$ãGET #1, 31, Compress$ãPRINTãPRINT " Width of Image in Pixels -"; CVL(PixelWidth$)ãPRINT " Height of Image in Pixels -"; CVL(PixelHeight$)ãPRINT " Number of Planes -"; CVI(NoPlanes$)ãPRINT " Number of Bits Per Pixel (bpp) -"; CVI(BitsPerPixel$)ãPRINT " Number of Colors Used in the Image -"; 2# ^ CVI(BitsPerPixel$)ãIF CVL(Compress$) = 0 THENã PRINT " No Compression"ãELSEIF CVL(Compress$) = 1 THENã PRINT " RLE - 8-Bit Compression"ãELSEIF CVL(Compress$) = 2 THENã PRINT " RLE - 4-Bit Compression"ãEND IFãCLOSEããEND SUBããSUB ChangePalette (Alg)ããIF Alg = 1 THENã '/* An excellent color palette from PALSTUFF.BAS [Graphics.abc|09/1995] */'ã '/* Created by Steve Demo */'ã Change$ = "#####M#M##MMM##M#MM8#MMM88888b8b88bbb88b8bbb8bbb+++"ã Change$ = Change$ + "...222555999===@@@DDDHHHKKKOOOSSSVVVZZZ^^^bbb3##8##"ã Change$ = Change$ + "=##?&&B**E--H11K55N88Q<#\B*]F2^K:_OA`TIaXQb]Y33#66#99#<<#"ã Change$ = Change$ + "??#BB#EE#HH#LL#OO#RR#UU#XX#[[#^^#bb##8%#:(#<,#?/#A3"ã Change$ = Change$ + "#C7#F:#H>#KB#ME#OI#RM#TP#WT#YX#\\YbYRbQJbJG^GDZDAWA"ã Change$ = Change$ + ">S>;O;8L85H52E2/A/,=,):)&6&$3#YbbQbbJbbE__A\\=ZZ:VV"ã Change$ = Change$ + "7RR5NN2JJ0FF-BB*>>(::%66#33Y^bQ[bJXbBUb:Rb3Ob+Mb#Jb"ã Change$ = Change$ + "#F\#BV#>P#:J#6D#3?#/9#,3YYbQRbJJbEE_@@\<'':%%6##3/@$2B#5D#8F#;H#>J#AL#DN#GP#JR#"ã Change$ = Change$ + "MT#PV#SX#VZ#Y\#]_#bYb`S`^N^\H\ZCZX=XV8VT3UP0QL.MH+I"ã Change$ = Change$ + "D(EA&A<%<7$73#3-+&1-'5/):2+;3+=4,?5-@6-B7.D8/E9/G:0"ã Change$ = Change$ + "I;1J<1L=2N>3O?3Q@4SA5UB6VD8WF;XH>YJAZMD[OG\QJ]SM^VP"ã Change$ = Change$ + "_XS`ZVb]ZZ##X)#W0#U6#T;#S@#RF#PJ#ON#CN#6M#*M##L(#K3"ã Change$ = Change$ + "#K?#KH#FL#>M#5M#-N6#Q>#QD#QL#QQ#NQ#FQ#@Q#9Q#1R#+R##"ã Change$ = Change$ + "bbb"ã FOR Loops = 0 TO 255ã OUT &H3C8, Loopsã OUT &H3C9, ASC(MID$(Change$, Loops * 3 + 1, 1)) - 35ã OUT &H3C9, ASC(MID$(Change$, Loops * 3 + 2, 1)) - 35ã OUT &H3C9, ASC(MID$(Change$, Loops * 3 + 3, 1)) - 35ã NEXT Loopsã Change$ = ""ãELSEã '/* Randomized color palette */'ã FOR Loops = 1 TO 255ã Blue = INT(RND * 256) \ 4ã Green = INT(RND * 256) \ 4ã Red = INT(RND * 256) \ 4ã OUT &H3C8, Loopsã OUT &H3C9, Redã OUT &H3C9, Greenã OUT &H3C9, Blueã NEXT LoopsãEND IFããEND SUBããSUB Open24 (ImageWidth, ImageHeight, OffsetOfBitMap)ããDIM ColorPalette(255, 3)ãDIM PixelArray(2000, 3)ãColorDif = 3ããSCREEN 13ã'/* Sub which changes the palette */'ã'/* Valid values - 1 - Color Palette created by Steve Demo */'ã'/* 0 - Random Color Palette */'ã'/* If you want to use your own color palette edit the function, and if you*/'ã'/* think you palette works well with the program send it to us. */'ãCALL ChangePalette(1)ãã'/* Capture the current color palette into an array */'ãFOR Loops = 0 TO 255ã OUT &H3C7, Loopsã ColorPalette(Loops, 1) = INP(&H3C9)ã ColorPalette(Loops, 2) = INP(&H3C9)ã ColorPalette(Loops, 3) = INP(&H3C9)ãNEXT Loopsãã'/* Calculate the number of bytes per line for the current image */'ãLineExtract$ = SPACE$(ImageWidth * 3)ãIF (4 - ((ImageWidth * 3) MOD 4)) <> 4 THENã LineExtract$ = LineExtract$ + SPACE$(4 - ((ImageWidth * 3) MOD 4))ãEND IFãLineExtract& = LEN(LineExtract$)ããIF OffsetOfBitMap = 0 THEN OffsetOfBitMap = 55ãã'/* Resize image to fit the Screen */'ãActualHeight! = 199 / (ImageHeight - 1)ãActualWidth! = 319 / (ImageWidth - 1)ãIF ActualHeight! > 1 THEN ActualHeight! = 1ãIF ActualWidth! > 1 THEN ActualWidth! = 1ãActualHeight1! = (ImageHeight - 1) / 199ãActualWidth1! = (ImageWidth - 1) / 319ãIF ActualHeight1! < 1 THEN ActualHeight1! = 1ãIF ActualWidth1! < 1 THEN ActualWidth1! = 1ã'WHILE INKEY$ <> "": WENDããFOR YHeight = ImageHeight - 1 TO 0 STEP -ActualHeight1!ã '/* Extract only the image lines which will be shown */'ã GET #1, OffsetOfBitMap + ((ImageHeight - YHeight - 1) * LineExtract&) + 1, LineExtract$ã FOR XWidth = 0 TO ImageWidth - 1 STEP ActualWidth1!ã XWidthPosition = XWidth * 3ã '/* Extract the RGB of each pixel */'ã PixelBlue = ASC(MID$(LineExtract$, XWidthPosition + 1, 1)) \ 4ã PixelGreen = ASC(MID$(LineExtract$, XWidthPosition + 2, 1)) \ 4ã PixelRed = ASC(MID$(LineExtract$, XWidthPosition + 3, 1)) \ 4ã PixelPut = 0: Movement = ColorDif + 1ã '/* Check if the RGB or an RGB close to it are in the color array */'ã FOR PixelArraySearch = 1 TO ArrayNoã IF PixelBlue >= PixelArray(PixelArraySearch, 1) - ColorDif AND PixelBlue <= PixelArray(PixelArraySearch, 1) + ColorDif THENã IF PixelGreen >= PixelArray(PixelArraySearch, 2) - ColorDif AND PixelGreen <= PixelArray(PixelArraySearch, 2) + ColorDif THENã IF PixelRed >= PixelArray(PixelArraySearch, 3) - ColorDif AND PixelRed <= PixelArray(PixelArraySearch, 3) + ColorDif THENã PSET (XWidth * ActualWidth!, YHeight * ActualHeight!), PixelArray(PixelArraySearch, 0)ã PixelPut = 1ã EXIT FORã END IFã END IFã END IFã NEXT PixelArraySearchã IF PixelPut = 0 THENã '/* Algorithm to find the closest color in the color palette */'ã DOã FOR Loops = 0 TO 255ã IF PixelBlue >= (ColorPalette(Loops, 3) - Movement) AND PixelBlue <= (ColorPalette(Loops, 3) + Movement) THENã IF PixelGreen >= (ColorPalette(Loops, 2) - Movement) AND PixelGreen <= (ColorPalette(Loops, 2) + Movement) THENã IF PixelRed >= (ColorPalette(Loops, 1) - Movement) AND PixelRed <= (ColorPalette(Loops, 1) + Movement) THENã IF ColorPalette(Loops, 1) = ColorPalette(Loops, 2) AND ColorPalette(Loops, 2) = ColorPalette(Loops, 3) AND Movement > 3 THENã IF PixelBlue = PixelGreen AND PixelBlue = PixelRed THENã PSET (XWidth * ActualWidth!, YHeight * ActualHeight!), Loopsã IF ArrayNo < 2000 THENã ArrayNo = ArrayNo + 1ã PixelArray(ArrayNo, 1) = PixelBlueã PixelArray(ArrayNo, 2) = PixelGreenã PixelArray(ArrayNo, 3) = PixelRedã PixelArray(ArrayNo, 0) = Loopsã END IFã EXIT DOã END IFã ELSEã PSET (XWidth * ActualWidth!, YHeight * ActualHeight!), Loopsã IF ArrayNo < 2000 THENã ArrayNo = ArrayNo + 1ã PixelArray(ArrayNo, 1) = PixelBlueã PixelArray(ArrayNo, 2) = PixelGreenã PixelArray(ArrayNo, 3) = PixelRedã PixelArray(ArrayNo, 0) = Loopsã END IFã EXIT DOã END IFã END IFã END IFã END IFã NEXT Loopsã Movement = Movement + 1ã LOOPã END IFã NEXT XWidthãNEXT YHeightãCLOSEããEND SUBããDEFSNG A-ZãSUB SHOWBMP (FileName$)ããOPEN FileName$ FOR BINARY AS #1ãIF LOF(1) = 0 THENã PRINT " FILE IS EMPTY"ã CLOSE #255ã KILL FileName$ã EXIT SUBãEND IFãã'/* Extracts the first 2 bytes of the file */'ãValidBMP$ = SPACE$(2)ãGET #1, 1, ValidBMP$ã'/* If the first 2 bytes of the file are not BM then a line of text is printed, */'ã'/* and the program ends */'ãIF ValidBMP$ <> "BM" THENã PRINT " THE FILE SPECIFIED IS NOT A VALID BMP"ã EXIT SUBãEND IFãã'/* Extracts the offset of the picture data in the file */'ãLocationOfPictureData$ = SPACE$(4)ãGET #1, 11, LocationOfPictureData$ãLocationOfPictureData = CVL(LocationOfPictureData$)ãã'/* Extracts the BMP type (Win or OS/2) */'ãBMPType$ = SPACE$(4)ãGET #1, 15, BMPType$ã'/* If the BMPType is for OS/2 then the a line of text is printed, then */'ã'/* program ends */'ãIF CVL(BMPType$) = 12 OR CVL(BMPType$) = 64 THENã PRINT " THIS BMP IS FOR THE OS/2 AND CAN'T BE OPENED IN THIS VERSION OF OPENBMP"ã PRINT " PLEASE SEND ANY OS/2 BMP TO phililpz85@hotmail.com"ã PRINT " BY SENDING OS/2 BMP's TO US, WE WILL HOPEFULLY BE ABLE TO OPEN THEM IN THE"ã PRINT " NEXT VERSION OF OPENBMP"ã EXIT SUBãEND IFãã'/* Extracts the Width and Height in Pixels of the Image */'ã'/* and also the number of bits per pixel (bpp) */'ãPixelWidth$ = SPACE$(4)ãPixelHeight$ = SPACE$(4)ãBitsPerPixel$ = SPACE$(2)ãCompression$ = SPACE$(4)ãGET #1, 19, PixelWidth$ãGET #1, 23, PixelHeight$ãGET #1, 29, BitsPerPixel$ãGET #1, 31, Compression$ãPixelWidth = CVL(PixelWidth$)ãPixelHeight = CVL(PixelHeight$)ãBitsPerPixel = CVI(BitsPerPixel$)ãNumberOfColors = 2 ^ BitsPerPixelãã'/* Changing to suitable screen modes to display the Image */'ãIF BitsPerPixel = 1 THENã IF PixelWidth > 640 OR PixelHeight > 480 THENã PRINT " 1-BIT IMAGE IS TO LARGE"ã EXIT SUBã END IFã SCREEN 11ãELSEIF BitsPerPixel = 4 THENã SCREEN 12ãELSEIF BitsPerPixel = 8 THENã SCREEN 13ãELSEIF BitsPerPixel = 16 OR BitsPerPixel = 32 THENã PRINT " Error 16-BIT and 32-BIT BMPs cannot be loaded"ã CLOSE #1ã EXIT SUBãEND IFãã'/* If image is not 24-bit then load palette information from file */'ãIF BitsPerPixel <> 24 THENã '/* Extracts Palette information for the colors used in the image */'ã PaletteColors$ = SPACE$(NumberOfColors * 4)ã GET #1, 55, PaletteColors$ãã FOR Loops = 0 TO NumberOfColors - 1ã '/* Changes the Palette of each color to the one specified in the file */'ã IF BitsPerPixel = 1 AND Loops = 1 THEN Loops = 15ã OUT &H3C8, Loopsã IF BitsPerPixel = 1 AND Loops = 15 THEN Loops = 1ã OUT &H3C9, ASC(MID$(PaletteColors$, Loops * 4 + 3, 1)) \ 4 'Redã OUT &H3C9, ASC(MID$(PaletteColors$, Loops * 4 + 2, 1)) \ 4 'Greenã OUT &H3C9, ASC(MID$(PaletteColors$, Loops * 4 + 1, 1)) \ 4 'Blueã NEXT Loopsãã '/* Finds correct location of Picture data */'ã IF LocationOfPictureData = 0 THENã LocationOfPictureData = LOC(255) + 1ã ELSEã LocationOfPictureData = LocationOfPictureData + 1ã END IFãEND IFããIF CVL(Compression$) = 1 THENã PixelColors$ = SPACE$(1): NoOfSameColors$ = SPACE$(1)ã RightMovement$ = SPACE$(1): UpMovement$ = SPACE$(1)ã ActualWidth = PixelWidth / 320: ActualHeight = PixelHeight / 200ã IF ActualWidth < 1 THEN ActualWidth = 1ã IF ActualHeight < 1 THEN ActualHeight = 1ã X = 0: Y = PixelHeight - 1ã DOã GET #1, , NoOfSameColors$ã IF ASC(NoOfSameColors$) <> 0 THENã GET #1, , PixelColors$ã IF X + ASC(NoOfSameColors$) = PixelWidth THEN NoOfSameColors$ = CHR$(ASC(NoOfSameColors$) - 1)ã LINE (X / ActualWidth, Y / ActualHeight)-STEP(ASC(NoOfSameColors$) / ActualWidth, 0), ASC(PixelColors$)ã X = X + ASC(NoOfSameColors$)ã ELSEã GET #1, , PixelColors$ã IF ASC(PixelColors$) = 0 THENã X = 0: Y = Y - 1ã IF Y < 0 THEN EXIT SUBã '/* Used to skip the unnecessary lines in large picturesã WHILE Y MOD ActualHeight <> 0ã DOã GET #1, , NoOfSameColors$ã IF ASC(NoOfSameColors$) <> 0 THENã GET #1, , PixelColors$ã ELSEã GET #1, , PixelColors$ã IF ASC(PixelColors$) = 0 THENã EXIT DOã ELSEIF ASC(PixelColors$) = 1 THENã EXIT SUBã ELSEIF ASC(PixelColors$) = 2 THENã Bytez$ = SPACE$(2)ã GET #1, , Bytez$ã EXIT DOã ELSEã Bytez$ = SPACE$(ASC(PixelColors$))ã IF ASC(PixelColors$) MOD 2 = 1 THEN Bytez$ = Bytez$ + " "ã GET #1, , Bytez$ã END IFã END IFã LOOPã Y = Y - 1ã WENDã ELSEIF ASC(PixelColors$) = 1 THENã EXIT DOã ELSEIF ASC(PixelColors$) = 2 THENã GET #1, , RightMovement$ã GET #1, , UpMovement$ã X = X + ASC(RightMovement$): Y = Y + ASC(UpMovement$)ã ELSEã PixelColor$ = SPACE$(1)ã FOR Loops = 1 TO ASC(PixelColors$)ã GET #1, , PixelColor$ã PSET (X / ActualWidth, Y / ActualHeight), ASC(PixelColor$)ã X = X + 1ã NEXT Loopsã IF ASC(PixelColors$) MOD 2 = 1 THEN GET #1, , PixelColor$ã END IFã END IFã LOOPã EXIT SUBãELSEIF CVL(Compression$) = 2 THENã PixelColors$ = SPACE$(1): NoOfSameColors$ = SPACE$(1)ã RightMovement$ = SPACE$(1): UpMovement$ = SPACE$(1)ã ActualWidth = PixelWidth / 640: ActualHeight = PixelHeight / 480ã IF ActualWidth < 1 THEN ActualWidth = 1ã IF ActualHeight < 1 THEN ActualHeight = 1ã X = 0: Y = PixelHeight - 1ã DOã GET #1, , NoOfSameColors$ã IF ASC(NoOfSameColors$) <> 0 THENã GET #1, , PixelColors$ã FOR Loops = 0 TO ASC(NoOfSameColors$) - 1 STEP 2ã PSET (X / ActualWidth, Y / ActualHeight), ASC(PixelColors$) \ 16ã X = X + 1ã IF Loops + 1 <> ASC(NoOfSameColors$) THENã PSET (X / ActualWidth, Y / ActualHeight), ASC(PixelColors$) AND 15ã X = X + 1ã END IFã NEXT Loopsã ELSEã GET #1, , PixelColors$ã IF ASC(PixelColors$) = 0 THENã X = 0: Y = Y - 1ã IF Y < 0 THEN EXIT SUBã '/* Used to skip the unnecessary lines in large picturesã WHILE Y MOD ActualHeight <> 0ã DOã GET #1, , NoOfSameColors$ã IF ASC(NoOfSameColors$) <> 0 THENã GET #1, , PixelColors$ã ELSEã GET #1, , PixelColors$ã IF ASC(PixelColors$) = 0 THENã EXIT DOã ELSEIF ASC(PixelColors$) = 1 THENã EXIT SUBã ELSEIF ASC(PixelColors$) = 2 THENã Bytez$ = SPACE$(2)ã GET #1, , Bytez$ã EXIT DOã ELSEã PixelColors = ASC(PixelColors$)ã IF PixelColors MOD 2 = 1 THENã PixelColors = PixelColors + 1ã END IFã PixelColors = PixelColors / 2ã IF PixelColors MOD 2 = 1 THENã PixelColors = PixelColors + 1ã END IFã Bytez$ = SPACE$(PixelColors)ã GET #1, , Bytez$ã END IFã END IFã LOOPã Y = Y - 1ã WENDã ELSEIF ASC(PixelColors$) = 1 THENã EXIT DOã ELSEIF ASC(PixelColors$) = 2 THENã GET #1, , RightMovement$ã GET #1, , UpMovement$ã X = X + ASC(RightMovement$): Y = Y + ASC(UpMovement$)ã ELSEã PixelColor$ = SPACE$(1): PixelColors = ASC(PixelColors$)ã FOR Loops = 0 TO PixelColors - 1ã IF Loops MOD 2 = 0 THENã GET #1, , PixelColor$ã PSET (X / ActualWidth, Y / ActualHeight), ASC(PixelColor$) \ 16ã X = X + 1ã END IFã IF Loops MOD 2 = 1 THENã PSET (X / ActualWidth, Y / ActualHeight), ASC(PixelColor$) AND 15ã X = X + 1ã END IFã NEXT Loopsã IF PixelColors MOD 2 = 1 THENã PixelColors = PixelColors + 1ã END IFã NoOfBytes = PixelColors / 2ã IF (NoOfBytes MOD 2) = 1 THENã GET #1, , PixelColor$ã END IFã END IFã END IFã LOOPã EXIT SUBãEND IFããIF BitsPerPixel = 24 THENã '/* 24-bit BMP loading algorithm taken from 24BITBMP.BAS (YPI) */'ã CALL Open24(INT(PixelWidth), INT(PixelHeight), INT(LocationOfPictureData))ã EXIT SUBãELSEIF BitsPerPixel = 8 THENã LineExtract$ = SPACE$(PixelWidth)ã IF (4 - (PixelWidth MOD 4)) <> 4 THENã LineExtract$ = LineExtract$ + SPACE$(4 - (PixelWidth MOD 4))ã END IFã LineExtract& = LEN(LineExtract$)ã ActualHeight! = 199 / (PixelHeight - 1)ã ActualWidth! = 319 / (PixelWidth - 1)ã IF ActualHeight! > 1 THEN ActualHeight! = 1ã IF ActualWidth! > 1 THEN ActualWidth! = 1ã ActualHeight1! = (PixelHeight - 1) / 199ã ActualWidth1! = (PixelWidth - 1) / 319ã IF ActualHeight1! < 1 THEN ActualHeight1! = 1ã IF ActualWidth1! < 1 THEN ActualWidth1! = 1ã IF ActualHeight! = 1 AND ActualWidth! = 1 THENã SEEK #1, LocationOfPictureDataã FOR Y = PixelHeight - 1 TO 0 STEP -1ã GET #1, , LineExtract$ã FOR X = 0 TO PixelWidth - 1ã PSET (X, Y), ASC(MID$(LineExtract$, X + 1, 1))ã NEXT Xã NEXT Yã ELSEã FOR Y = 0 TO PixelHeight - 1 STEP ActualHeight1!ã GET #1, LocationOfPictureData + ((PixelHeight - Y - 1) * LineExtract&), LineExtract$ã FOR X = 0 TO PixelWidth - 1 STEP ActualWidth1!ã PSET (X * ActualWidth!, Y * ActualHeight!), ASC(MID$(LineExtract$, X + 1, 1))ã NEXT Xã NEXT Yã END IFãELSEIF BitsPerPixel = 4 THENã LineExtract$ = SPACE$(PixelWidth \ 2)ã IF (4 - ((PixelWidth MOD 8) / 2)) <> 4 THENã LineExtract$ = LineExtract$ + SPACE$((4 - ((PixelWidth MOD 8) / 2)))ã END IFã LineExtract& = LEN(LineExtract$)ã ActualHeight! = 479 / (PixelHeight - 1)ã ActualWidth! = 639 / (PixelWidth - 1)ã IF ActualHeight! > 1 THEN ActualHeight! = 1ã IF ActualWidth! > 1 THEN ActualWidth! = 1ã ActualHeight1! = (PixelHeight - 1) / 479ã ActualWidth1! = (PixelWidth - 1) / 639ã IF ActualHeight1! < 1 THEN ActualHeight1! = 1ã IF ActualWidth1! < 1 THEN ActualWidth1! = 1ã IF ActualWidth! = 1 AND ActualHeight! = 1 THENã SEEK #1, LocationOfPictureDataã FOR Y = PixelHeight - 1 TO 0 STEP -1ã GET #1, , LineExtract$ã FOR X = 0 TO (PixelWidth / 2) - 1ã PixelColor = ASC(MID$(LineExtract$, X + 1, 1))ã PSET (X * 2, Y), PixelColor \ 16ã IF (X * 2) + 1 < PixelWidth THENã PSET ((X * 2) + 1, Y), PixelColor AND 15ã END IFã NEXT Xã NEXT Yã ELSEã FOR Y = 0 TO PixelHeight - 1 STEP ActualHeight1!ã GET #1, LocationOfPictureData + ((PixelHeight - 1 - Y) * LineExtract&), LineExtract$ã FOR X = 0 TO (PixelWidth / 2) - 1 STEP ActualWidth1!ã PixelColor = ASC(MID$(LineExtract$, X + 1, 1))ã PSET (X * ActualWidth! * 2, Y * ActualHeight!), PixelColor \ 16ã IF (X * 2) + 1 < PixelWidth THENã PSET ((X * ActualWidth! * 2) + 1, Y * ActualHeight!), PixelColor AND 15ã END IFã NEXT Xã NEXT Yã END IFãELSEIF BitsPerPixel = 1 THENã LineExtract$ = SPACE$(PixelWidth \ 8)ã IF (4 - ((PixelWidth MOD 32) / 8)) <> 4 THENã LineExtract$ = LineExtract$ + SPACE$((4 - ((PixelWidth MOD 32) / 8)))ã END IFã LineExtract& = LEN(LineExtract$)ã FOR Y = 0 TO PixelHeight - 1ã DEF SEG = &HA000ã GET #1, LocationOfPictureData + ((PixelHeight - Y - 1) * LineExtract&), LineExtract$ã FOR X = 0 TO CINT(PixelWidth / 8) - 1ã IF Y < 409 THENã POKE (Y * 80 + X), ASC(MID$(LineExtract$, X + 1, 1))ã ELSEã DEF SEG = &HA7D0ã POKE ((Y - 400) * 80 + X), ASC(MID$(LineExtract$, X + 1, 1))ã END IFã NEXT Xã NEXT Yã DEF SEGãEND IFããEND SUBãYousuf Philips OPEN AVI VERSION 0.6 philipz@emirates.net.ae 04-23-99 (18:32) QB, QBasic, PDS 880 30951 OPENAVI6.BAS''''''''''''''''''''''''''''''''''''''ã' Program : Plays AVI Files 'ã' Name : OPENAVI Version 0.6 'ã' Programmer : Yousuf Philips 'ã' Company : Y P I 'ã' Updated On : 1st of March 1999 'ã' Email - [philipz85@hotmail.com] 'ã' [http://members.xoom.com/Philipz/] 'ã''''''''''''''''''''''''''''''''''''''ãã'/* Do not edit this file if you distribute it. */'ã'/* (c) Copyrighted by YPI in 1998 | All Rights Reserved | Public Domain */'ãã'/* This program has been created by YPI (Basic Programming Incorporation) */'ã'/* as a utility to play AVI files in QBASIC. */'ã'/* */'ã'/* What's New - */'ã'/* * Will play 8-bit uncompressed AVIs with sound */'ã'/* * 24-BIT uncompressed AVIs are played in color */'ã'/* */'ã'/* What's Great - */'ã'/* * Delay Function will work perfectly on any PC */'ã'/* * AVI displays very fast (even on a 486) */'ãã'/* Special Thanks to Alexander Verhaeghe */'ã'/* An original program created by the professional programmers at YPI. */'ã'/* If you use any of this code in your program then you must credit YPI, */'ã'/* it would be appreciated if you sent us a copy of your program also. */'ã'/* Please send your comments and suggestions to */'ããDECLARE SUB GetSpeed ()ãDECLARE SUB ShowAVI (FileName$)ãDECLARE SUB delay (MiliSeconds%)ã'/* 2 Added subs for the display of 24-bit AVIs taken from 24BITBMP.BAS */'ãDECLARE SUB ChangePalette (Alg%)ãDECLARE SUB BIT24AVI (ImageWidth%, ImageHeight%, Frames%)ã'/* 4 Added functions to use interrupt &H21 */'ãDECLARE SUB Close21 (Handle%)ãDECLARE SUB Seek21 (Handle%, offset!)ãDECLARE SUB Open21 (FileName$, Handle%)ãDECLARE SUB Get21 (Handle%, NoOfBytesToRead%, VariableSegment%, VariableOffset%)ã'/* 2 Added functions to call interrupts in QBASIC 1.0 */'ãDECLARE SUB NewInterrupt (intnum AS INTEGER, Regs AS ANY)ãDECLARE SUB InitInterrupt ()ã'/* Functions to play sound AVIs taken from WAVEPLAY.BAS */'ãDECLARE FUNCTION GetBlasterAddr% ()ãDECLARE FUNCTION SBreset% ()ãDECLARE SUB WriteToDSP (v%)ãDECLARE SUB WavPlay (Bytes$, WavLen&, Sampling&, Bytes&, Channels%)ãDECLARE SUB PlayBack (Buffer$, size%, freq&, BytesPerSec&, chans%)ããTYPE RIFFHeaderTypeã ValidID AS STRING * 4 '/* Must be - 'RIFF'ã SizeOfFile AS LONG '/* Size of AVI file in bytesã RIFFFileType AS STRING * 4 '/* RIFF file type - Must be - 'AVI 'ãEND TYPEããTYPE AVIHeaderã ValidID AS STRING * 4 '/* Must be - 'avih'ã Reserved AS LONG '/* Not Importantã MicrosecPerFrame AS LONG '/* Number of Milliseconds between each Frameã MaximumBytesPerSec AS LONG '/* Number of bytes the system must handleã ' per second for the avi to run smoothlyã Reserved1 AS LONG '/* Reserved must be 0ã BitFlags AS LONG '/* Bit Flagsã TotalFrames AS LONG '/* Total Number of Framesã InitialFrame AS LONG '/* Not Understoodã NoOfStreams AS LONG '/* Number of Streamsã BufferSize AS LONG '/* Buffer size to read a frameã Widthz AS LONG '/* Width of AVIã Heightz AS LONG '/* Height of AVIã Scale AS LONG '/* Not Understoodã Rate AS LONG '/* Not Understoodã Start AS LONG '/* Not Understoodã Length AS LONG '/* Not UnderstoodãEND TYPEããTYPE Listzã ListID AS STRING * 4ã BytesInList AS LONGã ListType AS STRING * 4ãEND TYPEããTYPE StreamHeaderã HeaderID AS STRING * 4 '/* Must be - 'strh'ã BytesIn AS LONG '/* Number of bytes in headerã Typez AS STRING * 4 '/* Type of stream -ã 'vids' for video streamã 'auds' for audio streamã Handle AS STRING * 4 '/* Compression Technology Usedã BitFlags AS LONG '/* Not Importantã Reserved1 AS LONG '/* Not Importantã InitialFrames AS LONG '/* Not Importantã Scale AS LONG '/* Not Importantã Rate AS LONG '/* Not Importantã Start AS LONG '/* Not Importantã Length AS LONG '/* Not Importantã BufferSize AS LONG '/* Not Importantã Quality AS LONG '/* Not Importantã SampleSize AS LONG '/* Not ImportantãEND TYPEããTYPE StreamFormatã StreamFormatID AS STRING * 4 '/* Must be - 'strf'ã BytesInFormat AS LONG '/* Not ImportantãEND TYPEããTYPE BMPInfoHeaderã LengthOfHeader AS LONG '/* Must be - 40ã ImageWidth AS LONG '/* AVI image widthã ImageHeight AS LONG '/* AVI image heightã Planes AS INTEGER '/* AVI image planes - Must be 1ã BitsPerPixel AS INTEGER '/* AVI image bits per pixel - Must be 8ã CompressMethod AS LONG '/* AVI image compression - Must be 0ã ImageSizeInBytes AS LONG '/* Size of AVI image in bytesã HorizontalRatio AS LONG '/* Not Importantã VerticalRatio AS LONG '/* Not Importantã ColorsUsed AS LONG '/* Number of colors usedã ImportantColors AS LONG '/* Number of important colorsãEND TYPEããTYPE WavHeaderã FormatTag AS INTEGERã Channels AS INTEGERã SampleRate AS LONGã BytesPerSecond AS LONGã BlockAlignment AS INTEGERã BitsPerSample AS INTEGERãEND TYPEããTYPE ImageDataã ChunkID AS STRING * 4 '/* Chunk type ID - 'db','dc','pc' or 'wb'ã NumberOfBytes AS LONG '/* Number of bytes in image data chunkãEND TYPEããTYPE RegType '/* Registers for Interruptsã ax AS INTEGERã bx AS INTEGERã cx AS INTEGERã dx AS INTEGERã bp AS INTEGERã si AS INTEGERã di AS INTEGERã flags AS INTEGERã ds AS INTEGERã es AS INTEGERãEND TYPEããCOMMON SHARED Regs AS RegType, Speed&ãCOMMON SHARED BlasterAddr%, dma%, num%ãDIM SHARED Intrpt(1 TO 50) AS INTEGERãã'/* Initializes Interrupt Functions (Very Important, don't touch) */'ãInitInterruptããCLSã'/* Comment out GetSpeed if you don't want to have a delay between frames */'ãGetSpeedããPRINTãPRINT " 1st QBASIC AVI Player - OPENAVI ver 0.6"ãPRINT " (c) YPI (BASIC Programming Incorporation) 1999"ãPRINT " Press Any Key When You Want The AVI To Stop Playing (Don't press Ctrl-Break)"ãFILES "*.avi"ãINPUT " Enter File Name - ", FileName$ããIF LEN(LTRIM$(FileName$)) = 0 THENã ENDãELSEIF INSTR(FileName$, ".") = 0 THENã FileName$ = FileName$ + ".avi"ãEND IFããCALL ShowAVI(FileName$)ãWait$ = INPUT$(1)ãWHILE INKEY$ <> "": WENDãã'/* Some ending statements for those how didn't read the comments at the */'ã'/* beginning of the program. */'ãSCREEN 2: SCREEN 0ãPRINT " 1st QBASIC AVI Player (ver 0.6) - By YPI (BASIC Programming Incorporation)"ãPRINT " Program is Public Domain, (c) Copyrighted by YPI, All Rights Reserved"ãPRINT " Programmed By Yousuf Philips in 1999"ãPRINT " Send suggestions and comments to philipz85@hotmail.com"ãPRINT " Visit the YPI Website at http://members.xoom.com/Philipz/"ãWait$ = INPUT$(1)ããDEFINT A-ZãSUB BIT24AVI (ImageWidth, ImageHeight, Frames)ããCALL ChangePalette(1)ãDIM ColorPalette(255, 3)ãDIM PixelArray(2000, 3)ãDIM ImageDataz AS ImageDataãColorDif = 3ãã'/* Capture the current color palette into an array */'ãFOR Loops = 0 TO 255ã OUT &H3C7, Loopsã ColorPalette(Loops, 1) = INP(&H3C9)ã ColorPalette(Loops, 2) = INP(&H3C9)ã ColorPalette(Loops, 3) = INP(&H3C9)ãNEXT Loopsãã'/* Calculate the number of bytes per line for the current image */'ãLineExtract$ = SPACE$(ImageWidth * 3)ãIF (4 - ((ImageWidth * 3) MOD 4)) <> 4 THENã LineExtract$ = LineExtract$ + SPACE$(4 - ((ImageWidth * 3) MOD 4))ãEND IFãLineExtract& = LEN(LineExtract$)ãã'/* Resize image to fit the Screen */'ãActualHeight! = 199 / (ImageHeight - 1)ãActualWidth! = 319 / (ImageWidth - 1)ãIF ActualHeight! > 1 THEN ActualHeight! = 1ãIF ActualWidth! > 1 THEN ActualWidth! = 1ãActualWidth1! = (ImageWidth - 1) / 319ãActualHeight1! = (ImageHeight - 1) / 199ãIF ActualHeight1! < 1 THEN ActualHeight1! = 1ãIF ActualWidth1! < 1 THEN ActualWidth1! = 1ãWHILE INKEY$ <> "": WENDããPlayStart& = LOC(255) + 1ããLooping:ãFOR FrameNumber = 1 TO Framesã GET #255, , ImageDatazã IF RIGHT$(ImageDataz.ChunkID, 2) = "db" THENã StartingPos& = LOC(255) + 1ã FOR YHeight = ImageHeight - 1 TO 0 STEP -ActualHeight1!ã GET #255, StartingPos& + (ImageHeight - 1 - YHeight) * LineExtract&, LineExtract$ã FOR XWidth = 0 TO ImageWidth - 1 STEP ActualWidth1!ã XWidthPosition = XWidth * 3ã '/* Extract the RGB of each pixel */'ã PixelBlue = ASC(MID$(LineExtract$, XWidthPosition + 1, 1)) \ 4ã PixelGreen = ASC(MID$(LineExtract$, XWidthPosition + 2, 1)) \ 4ã PixelRed = ASC(MID$(LineExtract$, XWidthPosition + 3, 1)) \ 4ã PixelPut = 0: Movement = ColorDif + 1ã '/* Check if the RGB or an RGB close to it are in the color array */'ã FOR PixelArraySearch = 1 TO ArrayNoã IF PixelBlue >= PixelArray(PixelArraySearch, 1) - ColorDif AND PixelBlue <= PixelArray(PixelArraySearch, 1) + ColorDif THENã IF PixelGreen >= PixelArray(PixelArraySearch, 2) - ColorDif AND PixelGreen <= PixelArray(PixelArraySearch, 2) + ColorDif THENã IF PixelRed >= PixelArray(PixelArraySearch, 3) - ColorDif AND PixelRed <= PixelArray(PixelArraySearch, 3) + ColorDif THENã PSET (XWidth * ActualWidth!, YHeight * ActualHeight!), PixelArray(PixelArraySearch, 0)ã PixelPut = 1ã EXIT FORã END IFã END IFã END IFã NEXT PixelArraySearchã IF PixelPut = 0 THENã '/* Algorithm to find the closest color in the color palette */'ã DOã FOR Loops = 0 TO 255ã IF PixelBlue >= (ColorPalette(Loops, 3) - Movement) AND PixelBlue <= (ColorPalette(Loops, 3) + Movement) THENã IF PixelGreen >= (ColorPalette(Loops, 2) - Movement) AND PixelGreen <= (ColorPalette(Loops, 2) + Movement) THENã IF PixelRed >= (ColorPalette(Loops, 1) - Movement) AND PixelRed <= (ColorPalette(Loops, 1) + Movement) THENã IF ColorPalette(Loops, 1) = ColorPalette(Loops, 2) AND ColorPalette(Loops, 2) = ColorPalette(Loops, 3) AND Movement > 3 THENã IF PixelBlue = PixelGreen AND PixelBlue = PixelRed THENã PSET (XWidth * ActualWidth!, YHeight * ActualHeight!), Loopsã IF ArrayNo < 2000 THENã ArrayNo = ArrayNo + 1ã PixelArray(ArrayNo, 1) = PixelBlueã PixelArray(ArrayNo, 2) = PixelGreenã PixelArray(ArrayNo, 3) = PixelRedã PixelArray(ArrayNo, 0) = Loopsã END IFã EXIT DOã END IFã ELSEã PSET (XWidth * ActualWidth!, YHeight * ActualHeight!), Loopsã IF ArrayNo < 2000 THENã ArrayNo = ArrayNo + 1ã PixelArray(ArrayNo, 1) = PixelBlueã PixelArray(ArrayNo, 2) = PixelGreenã PixelArray(ArrayNo, 3) = PixelRedã PixelArray(ArrayNo, 0) = Loopsã END IFã EXIT DOã END IFã END IFã END IFã END IFã NEXT Loopsã Movement = Movement + 1ã LOOPã END IFã NEXT XWidthã NEXT YHeightã SEEK #255, StartingPos& + ImageDataz.NumberOfBytesã ELSEIF RIGHT$(ImageDataz.ChunkID, 2) = "pc" THENã '/* Skipping the color changing */'ã 'GET #255, , ChangePaletteã SEEK #255, LOC(255) + 1 + ImageDataz.NumberOfBytesã ELSEIF RIGHT$(ImageDataz.ChunkID, 2) = "wb" THENã '/* Skipping the sound part of the AVI if there is. */'ã SEEK #255, LOC(255) + 1 + ImageDataz.NumberOfBytesã FrameNumber = FrameNumber - 1ã ELSEIF RIGHT$(ImageDataz.ChunkID, 2) = "dc" THENã SCREEN 2: SCREEN 0ã PRINT " ONLY UNCOMPRESSED AVI SEQUENCIES CAN BE SHOWN"ã ENDã ELSEã PRINT " An Error Occured"ã ENDã END IFã IF INKEY$ <> "" THENã EXIT SUBã END IFãNEXT FrameNumberãSEEK #255, PlayStart&ãGOTO LoopingããEND SUBãã'/* Sub to change the color palette */'ãSUB ChangePalette (Alg)ããIF Alg = 1 THENã '/* An excellent color palette from PALSTUFF.BAS [Graphics.abc|09/1995] */'ã '/* Created by Steve Demo */'ã Change$ = "#####M#M##MMM##M#MM8#MMM88888b8b88bbb88b8bbb8bbb+++"ã Change$ = Change$ + "...222555999===@@@DDDHHHKKKOOOSSSVVVZZZ^^^bbb3##8##"ã Change$ = Change$ + "=##?&&B**E--H11K55N88Q<#\B*]F2^K:_OA`TIaXQb]Y33#66#99#<<#"ã Change$ = Change$ + "??#BB#EE#HH#LL#OO#RR#UU#XX#[[#^^#bb##8%#:(#<,#?/#A3"ã Change$ = Change$ + "#C7#F:#H>#KB#ME#OI#RM#TP#WT#YX#\\YbYRbQJbJG^GDZDAWA"ã Change$ = Change$ + ">S>;O;8L85H52E2/A/,=,):)&6&$3#YbbQbbJbbE__A\\=ZZ:VV"ã Change$ = Change$ + "7RR5NN2JJ0FF-BB*>>(::%66#33Y^bQ[bJXbBUb:Rb3Ob+Mb#Jb"ã Change$ = Change$ + "#F\#BV#>P#:J#6D#3?#/9#,3YYbQRbJJbEE_@@\<'':%%6##3/@$2B#5D#8F#;H#>J#AL#DN#GP#JR#"ã Change$ = Change$ + "MT#PV#SX#VZ#Y\#]_#bYb`S`^N^\H\ZCZX=XV8VT3UP0QL.MH+I"ã Change$ = Change$ + "D(EA&A<%<7$73#3-+&1-'5/):2+;3+=4,?5-@6-B7.D8/E9/G:0"ã Change$ = Change$ + "I;1J<1L=2N>3O?3Q@4SA5UB6VD8WF;XH>YJAZMD[OG\QJ]SM^VP"ã Change$ = Change$ + "_XS`ZVb]ZZ##X)#W0#U6#T;#S@#RF#PJ#ON#CN#6M#*M##L(#K3"ã Change$ = Change$ + "#K?#KH#FL#>M#5M#-N6#Q>#QD#QL#QQ#NQ#FQ#@Q#9Q#1R#+R##"ã Change$ = Change$ + "bbb"ã FOR Loops = 0 TO 255ã OUT &H3C8, Loopsã OUT &H3C9, ASC(MID$(Change$, Loops * 3 + 1, 1)) - 35ã OUT &H3C9, ASC(MID$(Change$, Loops * 3 + 2, 1)) - 35ã OUT &H3C9, ASC(MID$(Change$, Loops * 3 + 3, 1)) - 35ã NEXT Loopsã Change$ = ""ãELSEã '/* Randomized color palette */'ã FOR Loops = 1 TO 255ã Blue = INT(RND * 256) \ 4ã Green = INT(RND * 256) \ 4ã Red = INT(RND * 256) \ 4ã OUT &H3C8, Loopsã OUT &H3C9, Redã OUT &H3C9, Greenã OUT &H3C9, Blueã NEXT LoopsãEND IFããEND SUBããSUB Close21 (Handle)ã'/* Don't edit this SUB if you don't have any knowledge of Interrupts */'ããRegs.ax = &H3E00ãRegs.bx = HandleãCALL NewInterrupt(&H21, Regs)ããEND SUBããDEFSNG A-ZãSUB delay (MiliSeconds%)ã'/* This function slows down the program for the given amount of Miliseconds */'ããDelayTime = (Speed& * 5) * (MiliSeconds% / 1000)ãFOR Speed = 1 TO DelayTimeãNEXT SpeedããEND SUBããDEFINT A-ZãSUB Get21 (Handle, NoOfBytesToRead, VariableSegment, VariableOffset)ã'/* Don't edit this SUB if you don't have any knowledge of Interrupts */'ããRegs.ax = &H3F00ãRegs.bx = HandleãRegs.cx = NoOfBytesToReadãRegs.ds = VariableSegmentãRegs.dx = VariableOffsetãCALL NewInterrupt(&H21, Regs)ããEND SUBããFUNCTION GetBlasterAddr%ãtmp% = 0ãBlast$ = UCASE$(ENVIRON$("BLASTER"))ãIF LEN(Blast$) THENã tmp% = INSTR(Blast$, "A")ã tmp1$ = MID$(Blast$, tmp% + 1, 3)ã tmp% = VAL("&H" + tmp1$)ã IF tmp% = 203 THEN tmp% = -1ã IF tmp% > 0 THENã tmp2% = INSTR(Blast$, "D")ã dma% = VAL(MID$(Blast$, tmp2% + 1))ã IF dma% < 0 OR dma% > 7 THEN tmp% = -2ã END IFãEND IFãGetBlasterAddr% = tmp%ããEND FUNCTIONããDEFSNG A-ZãSUB GetSpeedã'/* This function finds out the proper delay period needed for the current PC*/'ããPRINT " Calculating delay for Delay Function according to your PC"ãTime& = TIMER: Time& = Time& + 1: Speed& = 0ãDOãLOOP UNTIL TIMER >= Time&ãDOã Speed& = Speed& + 1ãLOOP UNTIL TIMER >= Time& + 1ãã'/* Testing the calculated delay period with the Delay FUNCTION */'ãTime! = TIMERãdelay 1000ãTime! = TIMER - Time!ãã'/* If the Delay FUNCTION was not accurate then it is adjusted */'ãIF Time! < 1 THENã Speed& = INT(Speed& * (1 / Time!))ãEND IFããEND SUBããDEFINT A-ZãSUB InitInterruptã'/* Don't edit this SUB period. */'ããInterruptData$ = CHR$(85) + CHR$(139) + CHR$(236) + CHR$(86) + CHR$(87) + CHR$(30) + CHR$(139) + CHR$(118) + CHR$(6) + CHR$(139) + CHR$(4) + CHR$(139) + CHR$(92) + CHR$(2)ãInterruptData$ = InterruptData$ + CHR$(139) + CHR$(76) + CHR$(4) + CHR$(139) + CHR$(84) + CHR$(6) + CHR$(139) + CHR$(108) + CHR$(8) + CHR$(139) + CHR$(124) + CHR$(12) + CHR$(142) + CHR$(68) + CHR$(18)ãInterruptData$ = InterruptData$ + CHR$(255) + CHR$(116) + CHR$(10) + CHR$(131) + CHR$(124) + CHR$(18) + CHR$(255) + CHR$(117) + CHR$(2) + CHR$(30) + CHR$(7) + CHR$(131) + CHR$(124) + CHR$(16) + CHR$(255)ãInterruptData$ = InterruptData$ + CHR$(116) + CHR$(3) + CHR$(142) + CHR$(92) + CHR$(16) + CHR$(94) + CHR$(205) + CHR$(33) + CHR$(85) + CHR$(139) + CHR$(236) + CHR$(30) + CHR$(86) + CHR$(142) + CHR$(94) + CHR$(2) + CHR$(139) + CHR$(118) + CHR$(14)ãInterruptData$ = InterruptData$ + CHR$(137) + CHR$(4) + CHR$(137) + CHR$(92) + CHR$(2) + CHR$(137) + CHR$(76) + CHR$(4) + CHR$(137) + CHR$(84) + CHR$(6) + CHR$(143) + CHR$(68) + CHR$(10) + CHR$(143) + CHR$(68) + CHR$(16)ãInterruptData$ = InterruptData$ + CHR$(143) + CHR$(68) + CHR$(8) + CHR$(137) + CHR$(124) + CHR$(12) + CHR$(140) + CHR$(68) + CHR$(18) + CHR$(156) + CHR$(143) + CHR$(68) + CHR$(14)ãInterruptData$ = InterruptData$ + CHR$(95) + CHR$(95) + CHR$(94) + CHR$(93) + CHR$(202) + CHR$(2) + CHR$(0)ããDEF SEG = VARSEG(Intrpt(1))ãaddress = VARPTR(Intrpt(1))ããFOR I = 0 TO 99ã POKE address + I, ASC(MID$(InterruptData$, I + 1, 1))ãNEXTãDEF SEGããEND SUBããSUB NewInterrupt (intnum AS INTEGER, Regs AS RegType)ã'/* Don't edit this SUB period. */'ãã DEF SEG = VARSEG(Intrpt(1))ã address = VARPTR(Intrpt(1))ã POKE address + 51, intnumã ã CALL ABSOLUTE(Regs, address)ã DEF SEGããEND SUBããSUB Open21 (FileName$, Handle)ã'/* Don't edit this SUB if you don't have any knowledge of Interrupts */'ããFileName$ = FileName$ + CHR$(0)ãRegs.ax = &H3D00ãRegs.ds = VARSEG(FileName$)ãRegs.dx = SADD(FileName$)ãCALL NewInterrupt(&H21, Regs)ãFileName$ = LEFT$(FileName$, LEN(FileName$) - 1)ãHandle = Regs.axããEND SUBããSUB PlayBack (Buffer$, size%, freq&, BytesPerSec&, chans%)ããsize% = size% - 1ãsegment& = VARSEG(Buffer$)ãoffset& = SADD(Buffer$)ãIF segment& < 0 THEN segment& = segment& + 65536ãIF offset& < 0 THEN offset& = offset& + 65536ãbaseaddr& = segment& * 16 + offset&ãlook1% = VARPTR(baseaddr&)ãlook2% = VARPTR(size%)ãSELECT CASE dma%ã CASE 0ã dmapage% = &H87 '135 decimalã dmaaddr% = 0ã dmalen% = 1ã CASE 1ã dmapage% = &H83 '131 decimalã dmaaddr% = 2ã dmalen% = 3ã CASE 2ã dmapage% = &H81ã dmaaddr% = 4ã dmalen% = 5ã CASE 3ã dmapage% = &H82ã dmaaddr% = 6ã dmalen% = 7ã CASE 4ã dmapage% = &H8Fã dmaaddr% = &HC0ã dmalen% = &HC2ã CASE 5ã dmapage% = &H8Bã dmaaddr% = &HC4ã dmalen% = &HC6ã CASE 6ã dmapage% = &H89ã dmaaddr% = &HC8ã dmalen% = &HCAã CASE 7ã dmapage% = &H8Aã dmaaddr% = &HCCã dmalen% = &HCEãEND SELECTãSELECT CASE dma%ã CASE 0 TO 3ã dmamask% = &HAã dmamode% = &HBã dmaclear% = &HCã dmastatus% = &H8ã CASE 4 TO 7ã dmamask% = &HD4ã dmamode% = &HD6ã dmaclear% = &HD8ã dmastatus% = &HD0ãEND SELECTãSELECT CASE dma%ã CASE 0, 4ã dmaterminal% = 1 'bit 0 of status register (&H08 or &HD0)ã CASE 1, 5ã dmaterminal% = 2 'bit 1ã CASE 2, 6ã dmaterminal% = 4 'bit 2ã CASE 3, 7ã dmaterminal% = 8 'bit 3ãEND SELECTããOUT dmamask%, dma% + 4 'mask the dma channelãOUT dmaclear%, &H0 '(clear the internal DMA flip/flop)ãOUT dmamode%, 72 + dma% ' 72=010010XX where XX=dmachannel%ãOUT dmaaddr%, PEEK(look1%) 'bits 0-7 of the 20bit addressãOUT dmaaddr%, PEEK(look1% + 1) 'bits 8-15 of the 20bit addressãOUT dmapage%, PEEK(look1% + 2) 'bits 16-19 of the 20 bit addressãOUT dmalen%, PEEK(look2%) 'bits 0-7 of size%ãOUT dmalen%, PEEK(look2% + 1) 'bits 8-15 of size%ãOUT dmamask%, dma% 'enable channelããIF num% = 1 THEN 'only need to Write out time constant onceã timeconst% = 256 - 1000000 / (freq& * chans%)ã CALL WriteToDSP(&H40)ã CALL WriteToDSP(timeconst%)ã 'Reset Mixer DSPmixeraddress = Blasteraddr% + &H4ã OUT BlasterAddr% + &H4, &H0ã OUT BlasterAddr% + &H4 + 1, 0ã 'Set Volume to Maximum...255ã OUT BlasterAddr% + &H4, &H22ã OUT BlasterAddr% + &H4 + 1, 50'255ã IF chans% = 2 THENã 'Set mixer to Stereo Outputã OUT BlasterAddr% + &H4, &HEã OUT BlasterAddr% + &H4 + 1, 34 '34=2^5+2^1ã END IFãEND IFãIF BytesPerSec& > 22000 THENã CALL WriteToDSP(&H48) 'Set Block SizeãELSEã CALL WriteToDSP(&H14) 'DMA Mode 8-bit DACãEND IFãCALL WriteToDSP(PEEK(look2%)) 'Lo byte of addressãCALL WriteToDSP(PEEK(look2% + 1)) 'High byte of addressãIF BytesPerSec& > 22000 THEN CALL WriteToDSP(&H91) 'High Speed DMA mode 8-bitãdummy% = INP(dmastatus%) 'Read status byte once to make sure DMA is going.ãWAIT dmastatus%, dmaterminal% 'Loop until terminal count bit set in DMA status registerã'DMA Transfer is Now Completeã'Acknowledge the DSP interrupt by reading the DATA AVAILABLE port onceãdummy% = INP(BlasterAddr% + &HE) 'DSP Available addressããEND SUBããFUNCTION SBreset%ããOUT BlasterAddr% + &H6, 1 'Reset addressãdelay .1ãOUT BlasterAddr% + &H6, 0ãtime1! = TIMER: noreset% = 0ãDOã IF TIMER - time1! > 1! THEN noreset% = -1ãLOOP UNTIL ((INP(BlasterAddr% + &HE) AND 128) = 128) OR noreset%ãIF NOT noreset% THENã IF INP(BlasterAddr% + &HA) = &HAA THENã SBreset% = -1ã ELSEã SBreset% = 0ã END IFãELSEã SBreset% = 0ãEND IFããEND FUNCTIONããSUB Seek21 (Handle, offset!)ã'/* Don't edit this SUB if you don't have any knowledge of Interrupts */'ããRegs.ax = &H4200ãRegs.bx = HandleãRegs.cx = offset! \ 65536ãRegs.dx = (offset! AND 32767) - (offset! AND 32768)ãCALL NewInterrupt(&H21, Regs)ããEND SUBããSUB ShowAVI (FileName$)ããOPEN FileName$ FOR BINARY AS #255ãIF LOF(255) = 0 THENã PRINT " FILE IS EMPTY"ã CLOSE #255ã KILL FileName$ã EXIT SUBãEND IFããDIM RIFFHeaderType AS RIFFHeaderTypeãDIM AVIHead AS AVIHeaderãDIM Listz AS ListzãDIM StreamHead AS StreamHeaderãDIM StreamForm AS StreamFormatãDIM BMPInfoHead AS BMPInfoHeaderãDIM ImageDataz AS ImageDataãDIM WavHeader AS WavHeaderãSpeedo& = Speed&ããGET #255, , RIFFHeaderTypeãIF RIFFHeaderType.RIFFFileType <> "AVI " THENã PRINT " INVALID AVI FILE"ã EXIT SUBãEND IFããGET #255, 25, AVIHeadãAVIHead.MicrosecPerFrame = (AVIHead.MicrosecPerFrame / 1000) '* (1 / 2)ãFramesPerSecond = CINT(1000 / AVIHead.MicrosecPerFrame)ãIF AVIHead.ValidID <> "avih" THENã PRINT " Invalid AVI File Header"ã EXIT SUBãEND IFããSEEK #255, 25 + AVIHead.Reserved + 8ãFOR NumberOfStreams = 1 TO AVIHead.NoOfStreamsã GET #255, , Listzã IF Listz.ListType = "strl" THENã Position& = LOC(255) + 1ã GET #255, , StreamHeadã '/* Checks if the stream is a video stream indicated by the characters*/'ã '/* 'vids', audio stream is indicated by the characters 'auds' */'ã IF LCASE$(StreamHead.Typez) = "vids" THENã SEEK #255, Position& + StreamHead.BytesIn + 8ã GET #255, , StreamFormã Position& = LOC(255) + 1ã GET #255, , BMPInfoHeadã IF BMPInfoHead.BitsPerPixel <> 8 AND BMPInfoHead.BitsPerPixel <> 24 THENã PRINT " Can't Play AVI File"ã EXIT SUBã ELSEIF BMPInfoHead.CompressMethod <> 0 THENã PRINT " Only Uncompressed AVIs Can Be Played"ã EXIT SUBã END IFã '/* Changes graphix screen to SCREEN 13 and changes the color palettes */'ã SCREEN 13ã IF BMPInfoHead.BitsPerPixel = 8 THENã Palette$ = SPACE$(1024)ã GET #255, , Palette$ã FOR Loops = 0 TO 255ã OUT &H3C8, Loopsã OUT &H3C9, ASC(MID$(Palette$, (Loops * 4) + 3, 1)) \ 4ã OUT &H3C9, ASC(MID$(Palette$, (Loops * 4) + 2, 1)) \ 4ã OUT &H3C9, ASC(MID$(Palette$, (Loops * 4) + 1, 1)) \ 4ã NEXT Loopsã END IFã Palette$ = ""ã SEEK #255, Position& + StreamForm.BytesInFormat'Listz.BytesInList - 4ã ELSEIF LCASE$(StreamHead.Typez) = "auds" THENã BlasterAddr% = GetBlasterAddr%ã IF BlasterAddr% <> -2 AND BlasterAddr% <> -1 AND BlasterAddr% <> 0 THENã Blasting = 1ã END IFã IF NOT SBreset% THENã SoundBlast = -1ã END IFã SEEK #255, Position& + StreamHead.BytesIn + 8ã GET #255, , StreamFormã GET #255, , WavHeaderã IF WavHeader.BitsPerSample <> 8 OR WavHeader.BytesPerSecond > 22050 THENã PRINT " Sound Can't Be Played"ã SoundBlast = -1: SLEEP 1ã END IFã IF Blasting = 1 AND SoundBlast = 0 THENã CALL WriteToDSP(&HD1) 'Speaker ONã END IFã WaveBytesPerFrame = INT(WavHeader.BytesPerSecond / FramesPerSecond)ã SEEK #255, Position& + Listz.BytesInList - 4ã END IFã ELSEã PRINT " UNABLE TO USE AVI FILE"ã EXIT SUBã END IFãNEXT NumberOfStreamsããDOã GET #255, , Listzã IF LCASE$(Listz.ListID) = "junk" OR LCASE$(Listz.ListID) = "vedt" THENã SEEK #255, LOC(255) + 1 + Listz.BytesInList - 4ã ELSEã '/* List [4] Movi is extractedã 'SEEK #255, LOC(255) + 1 - 12ã EXIT DOã END IFãLOOPããIF BMPInfoHead.BitsPerPixel = 24 THENã CALL BIT24AVI(INT(BMPInfoHead.ImageWidth), INT(BMPInfoHead.ImageHeight), INT(AVIHead.TotalFrames))ã CLOSEã EXIT SUBãELSEIF AVIHead.Widthz > 320 OR AVIHead.Heightz > 200 THENã PRINT " AVI Image Is To Large"ã EXIT SUBãEND IFãã'/* Calculate the number of bytes to extract for each image line */'ãIF 4 - (BMPInfoHead.ImageWidth MOD 4) = 4 THENã BytesToExtract = BMPInfoHead.ImageWidthãELSEã BytesToExtract = BMPInfoHead.ImageWidth + (4 - (BMPInfoHead.ImageWidth MOD 4))ãEND IFããRealCurrentLocation! = LOC(255)ããHeightAdjust = (200 - BMPInfoHead.ImageHeight) \ 2ãWidthAdjust = (320 - BMPInfoHead.ImageWidth) \ 2ãIF HeightAdjust < 0 THEN HeightAdjust = 0ãIF WidthAdjust < 0 THEN WidthAdjust = 0ãCLOSEãã'/* Reopen the AVI file */'ãCALL Open21(FileName$, AVIHandle)ããrepeat:ãCurrentLocation! = RealCurrentLocation!ããCALL Seek21(AVIHandle, CurrentLocation!)ããFOR FrameNumber = 1 TO AVIHead.TotalFramesã CALL Get21(AVIHandle, LEN(ImageDataz), VARSEG(ImageDataz), VARPTR(ImageDataz))ã IF ImageDataz.ChunkID = "LIST" THENã CurrentLocation! = CurrentLocation! + 12ã CALL Seek21(AVIHandle, CurrentLocation!)ã CALL Get21(AVIHandle, LEN(ImageDataz), VARSEG(ImageDataz), VARPTR(ImageDataz))ã '/* Just incase something does go wrong */'ã ELSEIF RIGHT$(ImageDataz.ChunkID, 3) = "00d" THENã CALL Seek21(AVIHandle, CurrentLocation! + 1)ã CALL Get21(AVIHandle, LEN(ImageDataz), VARSEG(ImageDataz), VARPTR(ImageDataz))ã ELSEIF RIGHT$(ImageDataz.ChunkID, 2) = "00" THENã CALL Seek21(AVIHandle, CurrentLocation! + 2)ã CALL Get21(AVIHandle, LEN(ImageDataz), VARSEG(ImageDataz), VARPTR(ImageDataz))ã END IFã IF RIGHT$(ImageDataz.ChunkID, 2) = "db" THENã FOR YHeight = BMPInfoHead.ImageHeight - 1 TO 0 STEP -1ã IF YHeight + HeightAdjust < 100 THENã CALL Get21(AVIHandle, BytesToExtract, &HA000, (YHeight + HeightAdjust) * 320 + WidthAdjust)ã ELSEã CALL Get21(AVIHandle, BytesToExtract, &HA7D0, (YHeight + HeightAdjust - 100) * 320 + WidthAdjust)ã END IFã NEXT YHeightã IF PlayWave = 1 AND WaveBuffer$ <> "" THENã Speed& = INT(Speedo& * (1 / 128))ã ExtractBytes$ = LEFT$(WaveBuffer$, WaveBytesPerFrame)ã IF (LEN(WaveBuffer$) - LEN(ExtractBytes$)) < 100 THENã ExtractBytes$ = WaveBuffer$ã WaveBuffer$ = ""ã END IFã ExtractBytes = LEN(ExtractBytes$)ã CALL WavPlay(ExtractBytes$, LEN(ExtractBytes$), WavHeader.SampleRate, WavHeader.BytesPerSecond, WavHeader.Channels)ã IF WaveBuffer$ <> "" THENã WaveBuffer$ = RIGHT$(WaveBuffer$, LEN(WaveBuffer$) - ExtractBytes)ã END IFã ELSEã Speed& = Speedo&ã END IFã ELSEIF RIGHT$(ImageDataz.ChunkID, 2) = "pc" THENã '/* Skipping the color changing */'ã ELSEIF RIGHT$(ImageDataz.ChunkID, 2) = "wb" THENã IF Blasting = 1 AND SoundBlast = 0 THENã WaveBuffer$ = SPACE$(ImageDataz.NumberOfBytes)ã CALL Get21(AVIHandle, LEN(WaveBuffer$), VARSEG(WaveBuffer$), SADD(WaveBuffer$))ã PlayWave = 1ã Speed& = 0ã END IFã FrameNumber = FrameNumber - 1ã ELSEIF RIGHT$(ImageDataz.ChunkID, 2) = "dc" THENã '/* Ending program because compressed data was encountered */'ã CALL Close21(AVIHandle)ã IF Blasting = 1 AND SoundBlast = 0 THENã OUT &H20, &H20 'Reset Normal Interrupt Serviceã CALL WriteToDSP(&HD3) 'Speaker OFFã END IFã SCREEN 2: SCREEN 0ã PRINT " Only Uncompressed AVIs Can Be Played"ã EXIT SUBã ELSEã CALL Close21(AVIHandle)ã IF Blasting = 1 AND SoundBlast = 0 THENã OUT &H20, &H20 'Reset Normal Interrupt Serviceã CALL WriteToDSP(&HD3) 'Speaker OFFã END IFã SCREEN 2: SCREEN 0ã PRINT " Something Went Wrong"; ImageDataz.ChunkID, ImageDataz.NumberOfBytesã PRINT " Please Send This AVI To "ã EXIT SUBã END IFã '/* Delay FUNCTION - slows down display according to speed given from*/'ã '/* AVI file */'ã delay (AVIHead.MicrosecPerFrame)ã '/* Checks if the user presses a key */'ã IF INKEY$ <> "" THENã CALL Close21(AVIHandle)ã IF Blasting = 1 AND SoundBlast = 0 THENã OUT &H20, &H20 'Reset Normal Interrupt Serviceã CALL WriteToDSP(&HD3) 'Speaker OFFã END IFã EXIT SUBã END IFã CurrentLocation! = CurrentLocation! + ImageDataz.NumberOfBytes + 8ã CALL Seek21(AVIHandle, CurrentLocation!)ã ã CALL Get21(AVIHandle, LEN(Listz), VARSEG(Listz), VARPTR(Listz))ã IF LCASE$(Listz.ListID) = "junk" OR LCASE$(Listz.ListID) = "vedt" THENã CurrentLocation! = CurrentLocation! + 8 + Listz.BytesInListã CALL Seek21(AVIHandle, CurrentLocation!)ã ELSEã CALL Seek21(AVIHandle, CurrentLocation!)ã END IFãNEXT FrameNumberãGOTO repeatããEND SUBããSUB WavPlay (Bytes$, WavLen&, Sampling&, Bytes&, Channels)ããMaxBuffer% = 7053ãRemaining& = WavLen&ãDOã num% = num% + 1ã IF Remaining& >= MaxBuffer% THENã BufferLen% = MaxBuffer%ã Buffer$ = LEFT$(Bytes$, BufferLen%)ã Bytes$ = RIGHT$(Bytes$, LEN(Bytes$) - BufferLen%)ã ELSEã BufferLen% = Remaining&ã Buffer$ = LEFT$(Bytes$, BufferLen%)ã Bytes$ = RIGHT$(Bytes$, LEN(Bytes$) - BufferLen%)ã END IFã Remaining& = Remaining& - BufferLen%ã CALL PlayBack(Buffer$, BufferLen%, Sampling&, Bytes&, Channels)ãLOOP WHILE Remaining& > 0ããEND SUBããSUB WriteToDSP (v%)ãDOãLOOP UNTIL (INP(BlasterAddr% + &HC) AND 128) = 0ãOUT BlasterAddr% + &HC, v%ããEND SUBãYousuf Philips OPEN ICO VERSION 0.1 philipz@emirates.net.ae 04-23-99 (18:32) QB, QBasic, PDS 195 6427 OPENICO.BAS ''''''''''''''''''''''''''''''''''''''ã' Program : Views ICO Files 'ã' Name : OPENICO Version 0.1 'ã' Programmer : Yousuf Philips 'ã' Company : Y P I 'ã' Updated On : 17th of April 1999 'ã' Email - [philipz85@hotmail.com] 'ã' [http://members.xoom.com/Philipz/] 'ã''''''''''''''''''''''''''''''''''''''ãã'/* Do not edit this file if you distribute it. */'ã'/* (c) Copyrighted by YPI in 1998 | All Rights Reserved | Public Domain */'ãã'/* This program has been created by YPI (Basic Programming Incorporation) */'ã'/* as a utility to view Windows (ICO) icon & (CUR) cursor files in QBASIC.*/'ãã'/* It currently can view 4 and 8-bit images in color and 24-bit icons in */'ã'/* grayscale. */'ãã'/* An original program created by the professional programmers at YPI. */'ã'/* If you use any of this code in your program then you must credit YPI, */'ã'/* it would be appreciated if you sent us a copy of your program also. */'ã'/* Please send your comments and suggestions to */'ããDECLARE SUB OpenICON (FileName$)ãDEFINT A-ZããCLSãFILES "*.*"ãINPUT " Enter File Name - ", FileName$ããIF INSTR(FileName$, ".") = 0 THENã FileName$ = FileName$ + ".ico"ãEND IFããCALL OpenICON(FileName$)ããSUB OpenICON (FileName$)ãã'/* Icon File Main Header */'ãReserv1$ = SPACE$(2): Valid$ = SPACE$(2): NoOfIcons$ = SPACE$(2)ãã'/* Icon Main Header */'ãPixelWidth$ = SPACE$(1): PixelHeight$ = SPACE$(1): NoOfColors$ = SPACE$(1)ãReserv2$ = SPACE$(1): Planes$ = SPACE$(2): BitCount$ = SPACE$(2)ãTotalBytesOfImage$ = SPACE$(4): LocationOfImage$ = SPACE$(4)ãã'/* Icon Minor Header (BMP Info Header) */'ãSizeOfHeader$ = SPACE$(4): Width$ = SPACE$(4): Height$ = SPACE$(4)ãPlane$ = SPACE$(2): BitsPerPixel$ = SPACE$(2): Compressed$ = SPACE$(4)ãSizeOfImage$ = SPACE$(4): XMeter$ = SPACE$(4): YMeter$ = SPACE$(4)ãClrUsed$ = SPACE$(4): ClrImportant$ = SPACE$(4)ããOPEN FileName$ FOR BINARY AS #255ãIF LOF(255) = 0 THENã PRINT " FILE IS EMPTY"ã CLOSE #255ã KILL FileName$ã ENDãEND IFããGET #255, , Reserv1$ãGET #255, , Valid$ãGET #255, , NoOfIcons$ããCLSãPRINTãPRINT " - Icon File Main Header Information - "ãPRINT " Reserve (0) -"; CVI(Reserv1$)ãPRINT " Valid if (1) -"; CVI(Valid$)ãPRINT " Number of Icons in File -"; CVI(NoOfIcons$)ããIF CVI(Reserv1$) = 19778 THENã Location$ = SPACE$(4)ã GET #255, 11, Location$ã PRINTã PRINT " This Icon File is a BMP File"ã PRINT " Will attempt to display the BMP Image"ã PRINT " Press Any Key To Continue"ã Waiting$ = INPUT$(1)ã SEEK #255, 15ã GOSUB ReadIconãELSEã Waiting$ = INPUT$(1)ã FOR IconNumber = 1 TO CVI(NoOfIcons$)ã '/* Extract Icon File Minor Header */'ã GET #255, , PixelWidth$ã GET #255, , PixelHeight$ã GET #255, , NoOfColors$ã GET #255, , Reserv2$ã GET #255, , Planes$ã GET #255, , BitCount$ã GET #255, , TotalBytesOfImage$ã GET #255, , LocationOfImage$ã Location& = LOC(255) + 1ã SEEK #255, CVL(LocationOfImage$) + 1ã GOSUB ReadIconã SEEK #255, Location&ã NEXT IconNumberãEND IFãSYSTEMããReadIcon:ã'/* Extract Icon Minor Header */'ã GET #255, , SizeOfHeader$ã GET #255, , Width$ã GET #255, , Height$ã GET #255, , Plane$ã GET #255, , BitsPerPixel$ã GET #255, , Compressed$ã GET #255, , SizeOfImage$ã GET #255, , XMeter$ã GET #255, , YMeter$ã GET #255, , ClrUsed$ã GET #255, , ClrImportant$ã ã IF CVI(BitsPerPixel$) = 1 THENã SCREEN 2: SCREEN 0: PRINTã PRINT " Can not Load 1-bit Images "ã RETURNã ELSEIF CVI(Compressed$) <> 0 THENã SCREEN 2: SCREEN 0: PRINTã PRINT " Can not Load Compressed Images"ã RETURNã END IFãã PixelWidth = CVL(Width$): PixelHeight = CVL(Height$)ã NumberOfColors& = 2 ^ CVI(BitsPerPixel$): PaletteBlue$ = SPACE$(1)ã PaletteGreen$ = SPACE$(1): PaletteRed$ = SPACE$(1): Empty$ = SPACE$(1)ãã SCREEN 13: CLSã ã IF CVI(BitsPerPixel$) < 9 THENã FOR Loops = 0 TO NumberOfColors& - 1ã '/* Extract the palette of each of the colors and change the palette */'ã GET #255, , PaletteBlue$ã GET #255, , PaletteGreen$ã GET #255, , PaletteRed$ã GET #255, , Empty$ã OUT &H3C8, Loopsã OUT &H3C9, ASC(PaletteRed$) \ 4ã OUT &H3C9, ASC(PaletteGreen$) \ 4ã OUT &H3C9, ASC(PaletteBlue$) \ 4ã NEXT Loopsã END IFãã IF CVI(Reserv1$) = 0 THEN PixelHeight = PixelHeight \ 2ãã IF CVI(BitsPerPixel$) = 4 THENã LineExtract$ = SPACE$(PixelWidth \ 2)ã IF (4 - CINT((PixelWidth MOD 8) / 2)) <> 4 THENã LineExtract$ = LineExtract$ + SPACE$(4 - CINT((PixelWidth MOD 8) / 2))ã END IFã FOR Y = PixelHeight - 1 TO 0 STEP -1ã GET #255, , LineExtract$ã FOR X = 0 TO PixelWidth - 1 STEP 2ã PSET (X, Y), ASC(MID$(LineExtract$, INT(X / 2) + 1, 1)) \ 16ã PSET (X + 1, Y), ASC(MID$(LineExtract$, INT(X / 2) + 1, 1)) AND 15ã NEXT Xã NEXT Yã ELSEIF CVI(BitsPerPixel$) = 8 THENã LineExtract$ = SPACE$(PixelWidth)ã IF CVI(Reserv1$) <> 0 THEN SEEK #255, CVL(Location$) + 1ã IF (4 - (PixelWidth MOD 4)) <> 4 THEN Extra$ = SPACE$(4 - (PixelWidth MOD 4))ã FOR Y = PixelHeight - 1 TO 0 STEP -1ã GET #255, , LineExtract$ã GET #255, , Extra$ã FOR X = 0 TO PixelWidth - 1ã PSET (X, Y), ASC(MID$(LineExtract$, X + 1, 1))ã NEXT Xã NEXT Yã ELSEIF CVI(BitsPerPixel$) = 24 THENã IF CVI(Reserv1$) <> 0 THEN SEEK #255, CVL(Location$) + 1ã FOR Loops = 0 TO 255ã OUT &H3C8, Loopsã OUT &H3C9, Loops \ 4ã OUT &H3C9, Loops \ 4ã OUT &H3C9, Loops \ 4ã NEXT Loopsã LineExtract$ = SPACE$(PixelWidth * 3)ã IF (4 - ((PixelWidth * 3) MOD 4)) <> 4 THENã LineExtract$ = SPACE$((PixelWidth * 3) + (4 - ((PixelWidth * 3) MOD 4)))ã END IFã FOR Y = PixelHeight - 1 TO 0 STEP -1ã GET #255, , LineExtract$ã FOR X = 0 TO PixelWidth - 1ã PaletteBlue$ = MID$(LineExtract$, X * 3 + 1, 1)ã PSET (X, Y), ASC(PaletteBlue$)ã NEXT Xã NEXT Yã END IFã Waiting$ = INPUT$(1)ãRETURNããEND SUBãYousuf Philips SAVE SCREEN 12 AS 4BIT BMP V0.2philipz@emirates.net.ae 04-23-99 (18:32) QB, QBasic, PDS 129 4996 SAVE4BIT.BAS''''''''''''''''''''''''''''''''''''''''''''ã' Program : Save Screen 12 as 4-BIT BMP 'ã' Name : SAVE4BIT Version 0.2 'ã' Programmer : Yousuf Philips 'ã' Company : Y P I 'ã' Updated On : 17th of Jan. 1998 'ã' Email - [philipz85@hotmail.com] 'ã' [http://members.xoom.com/Philipz/] 'ã''''''''''''''''''''''''''''''''''''''''''''ãã'/* Do not edit this file if you distribute it. */'ã'/* (c) Copyrighted by YPI in 1998 | All Rights Reserved | Public Domain */'ãã'/* The SAVE4BIT SUB is able to save any portion of screen 12 as a 4-BIT */'ã'/* Windows BMP file. */'ã'/* */'ã'/* What's New - */'ã'/* * 4-BIT saving was corrected. */'ã'/* [Thanks for the notification of the error, Joran.] */'ãã'/* If you use any of this code in your program then you must credit YPI, */'ã'/* it would be appreciated if you sent us a copy of your program also. */'ããTYPE BMPHeaderã ValidID AS STRING * 2 '/* Must be 'BM'ã SizeOfFile AS LONG '/* Size of entire file in bytesã Reserved AS LONG '/* Four empty bytesã OffsetOfBitMap AS LONG '/* The location in the file where theã ' bitmap is locatedãEND TYPEããTYPE WindowsBMPInfoHeaderã SizeOfHeader AS LONG '/* Size of Information Headerã ' 40 - Windows | 12 - OS/2 1.x | 64 OS/2 2.xã Widthz AS LONG '/* Width of image in pixelsã Heightz AS LONG '/* Height of image in pixelsã Planes AS INTEGER '/* Number of Planes. Must be '1'ã BitsPerPixel AS INTEGER '/* Number of bits per pixelã ' Possible values are 1,4,8,16,24,32ã CompressMethod AS LONG '/* Compression Methodã ' 0 - Uncompressedã ' 1 - 8 Bit RLE Compressionã ' 2 - 4 Bit RLE Compressionã ImageSizeInBytes AS LONG '/* Size of image in bytesã HorizontalResol AS LONG '/* Horizontal Resolutionã VerticalResol AS LONG '/* Vertical Resolutionã ColorsUsed AS LONG '/* Number of Colors used | 0 - All Usedã ImportantColors AS LONG '/* Number of Important ColorsãEND TYPEããDECLARE SUB SAVE4BIT (FileName$, MinX%, MinY%, MaxX%, MaxY%)ã'/* FileName$ - The filename of the file that the saved screen is to be put*/'ã'/* MinX - The starting x position */'ã'/* MinY - The starting y position */'ã'/* MaxX - The ending x position */'ã'/* MaxY - The ending y position */'ããSCREEN 0: SCREEN 12ãFOR Circles = 1 TO 100ã CIRCLE (RND * 640, RND * 480), RND * 200, RND * 16ãNEXT CirclesãPRINT "Created By YPI (c) 1998"ããt = TIMERãCALL SAVE4BIT("4bit.bmp", 0, 0, 639, 479)ãPRINT " Time Taken To Save Screen -"; TIMER - tããDEFINT A-ZãSUB SAVE4BIT (FileName$, MinX, MinY, MaxX, MaxY)ããOPEN FileName$ FOR BINARY AS #255ãIF LOF(255) <> 0 THENã CLOSEã KILL FileName$ã OPEN FileName$ FOR BINARY AS #255ãEND IFããImageWidth = (MaxX - MinX) + 1: ImageHeight = (MaxY - MinY) + 1ããDIM BMPHeader AS BMPHeaderãDIM WindowsBMPInfoHeader AS WindowsBMPInfoHeaderããPUT #255, , BMPHeaderãWindowsBMPInfoHeader.SizeOfHeader = 40ãWindowsBMPInfoHeader.Widthz = ImageWidthãWindowsBMPInfoHeader.Heightz = ImageHeightãWindowsBMPInfoHeader.Planes = 1ãWindowsBMPInfoHeader.BitsPerPixel = 4ãWindowsBMPInfoHeader.CompressMethod = 0ãWindowsBMPInfoHeader.ColorsUsed = 16ãWindowsBMPInfoHeader.ImportantColors = 16ããPUT #255, , WindowsBMPInfoHeaderããSCREEN 12ãFOR Colors = 0 TO 15ã OUT &H3C7, Colorsã AllColorz$ = AllColorz$ + CHR$(INP(&H3C9) * 4) + CHR$(INP(&H3C9) * 4) + CHR$(INP(&H3C9) * 4) + CHR$(0)ãNEXT ColorsãPUT #255, , AllColorz$: AllColorz$ = ""ããIF (WindowsBMPInfoHeader.Widthz MOD 2) = 1 THENã WindowsBMPInfoHeader.Widthz = WindowsBMPInfoHeader.Widthz + 1ãEND IFããIF (4 - ((WindowsBMPInfoHeader.Widthz MOD 8) \ 2)) <> 4 THENã Padding$ = SPACE$((4 - ((WindowsBMPInfoHeader.Widthz MOD 8) \ 2)))ãEND IFããFOR Loops = MaxY TO MinY STEP -1ã Bytez$ = ""ã FOR Lips = MinX TO MaxX STEP 2ã Byte = POINT(Lips, Loops) * 16ã Byte = Byte + POINT(Lips + 1, Loops)ã Bytez$ = Bytez$ + CHR$(Byte)ã NEXT Lipsã LINE (MinX, Loops)-(MaxX, Loops), 0ã PUT #255, , Bytez$ã PUT #255, , Padding$ãNEXT LoopsããBMPHeader.ValidID = "BM"ãBMPHeader.SizeOfFile = LOF(255)ãBMPHeader.OffsetOfBitMap = 118ããPUT #255, 1, BMPHeaderãCLOSE #255ããEND SUBãYousuf Philips SAVE SCREEN 13 AS PCX V0.2 philipz@emirates.net.ae 04-23-99 (18:32) QB, QBasic, PDS 148 5115 SAVEPCX.BAS ''''''''''''''''''''''''''''''''''''''ã' Program : Save Screen 13 as PCX 'ã' Name : SAVERLE Version 0.2 'ã' Programmer : Yousuf Philips 'ã' Company : Y P I 'ã' Updated On : 8th of July 1998 'ã' Email - [philipz85@hotmail.com] 'ã' [http://members.xoom.com/Philipz/] 'ã''''''''''''''''''''''''''''''''''''''ãã'/* Do not edit this file if you distribute it. */'ã'/* (c) Copyrighted by YPI in 1998 | All Rights Reserved | Public Domain */'ãã'/* The SAVEPCX SUB is able to save any portion of screen 13 as a PCX. */'ã'/* The SAVEPCX SUB was tested on a Pentium 100MHz and it was able save the*/'ã'/* whole of screen 13 in 1.49 seconds. */'ãã'/* If you use any of this code in your program then you must credit YPI. */'ããDECLARE SUB SavePCX (FileName$, MinX!, MinY!, MaxX!, MaxY!)ã'/* FileName$ - The filename of the file that the saved screen is to be put*/'ã'/* MinX - The starting x position */'ã'/* MinY - The starting y position */'ã'/* MaxX - The ending x position */'ã'/* MaxY - The ending y position */'ããSCREEN 13ãFOR Circles = 1 TO 100ã CIRCLE (RND * 320, RND * 200), RND * 100, RND * 256ãNEXT CirclesãPRINT " Created By YPI (c) 1998"ããt = TIMERãCALL SavePCX("YPI.pcx", 0, 0, 319, 199)ãPRINT " Time Taken To Save Screen -"; TIMER - tããSUB SavePCX (FileName$, MinX, MinY, MaxX, MaxY)ããOPEN FileName$ FOR BINARY AS #255ãIF LOF(255) <> 0 THENã '/* If the file is not empty then it is deleted */'ã CLOSE #255ã KILL FileName$ã OPEN FileName$ FOR BINARY AS #255ãEND IFããValidPCX1$ = CHR$(10): PCXVersion$ = CHR$(5): ValidPCX2$ = CHR$(1)ãBitsPerPixel$ = CHR$(8)ãScreenMinX$ = MKI$(MinX): ScreenMinY$ = MKI$(MinY)ãScreenMaxX$ = MKI$(MaxX): ScreenMaxY$ = MKI$(MaxY)ãPixelWidth$ = MKI$((MaxX - MinX) + 1): PixelHeight$ = MKI$((MaxY - MinY) + 1)ãPalette4Bit$ = SPACE$(48): Reserved$ = CHR$(0): NoOfPlanes$ = CHR$(1)ãBytesPerLine$ = PixelWidth$: PaletteInfo$ = CHR$(1): FillHeader$ = STRING$(59, 0)ãValidPCX3$ = CHR$(12)ãã'/* ------ Header Info -------- */'ã'/* The first Byte of a PCX is chr$(10) */'ãPUT #255, , ValidPCX1$ã'/* The PCX Version is from 2.5 - 3 | We are using Version 3 */'ãPUT #255, , PCXVersion$ã'/* The PCX has a reserved byte of chr$(1) */'ãPUT #255, , ValidPCX2$ã'/* No of Bits per Pixel */'ãPUT #255, , BitsPerPixel$ã'/* The Screen Ranges */'ãPUT #255, , ScreenMinX$ãPUT #255, , ScreenMinY$ãPUT #255, , ScreenMaxX$ãPUT #255, , ScreenMaxY$ã'/* The Image Width and Height */'ãPUT #255, , PixelWidth$ãPUT #255, , PixelHeight$ã'/* The Palette for 4-Bit images */'ãPUT #255, , Palette4Bit$ã'/* Reserved byte of chr$(0)ãPUT #255, , Reserved$ã'/* Number of Planes, always 1 */'ãPUT #255, , NoOfPlanes$ã'/* Bytes per line */'ãPUT #255, , BytesPerLine$ã'/* Palette type 0-2 */'ãPUT #255, , PaletteInfo$ã'/* Header fill to fill the first 128 bytes of the file */'ãPUT #255, , FillHeader$ãã'/* ------ Picture Data -------- */'ãã'SCREEN 13ã'/* Saves the screen into BSAVE format */'ãDIM Image%(1 TO 32767)ãGET (MinX, MinY)-(MaxX, MaxY), Image%ãImageVarSeg = VARSEG(Image%(1))ãImageVarOffset = VARPTR(Image%(1))ãDEF SEG = ImageVarSegãBSAVE "temp.fil", ImageOffset, 65535ããBytes11$ = SPACE$(11)ãOPEN "temp.fil" FOR BINARY AS #254ã'/* Extract the unnecessary bytes from the Bsave file */'ãGET #254, , Bytes11$ããLineExtract$ = SPACE$(CVI(PixelWidth$))ãFOR Yaxis% = MinY TO MaxYã GET #254, , LineExtract$ã LINE (MinX, Yaxis%)-(MaxX, Yaxis%), 0ã ã XPixel% = 1: NewLine$ = ""ã DOã PixelColor$ = MID$(LineExtract$, XPixel%, 1)ã IF MID$(LineExtract$, XPixel% + 1, 1) = PixelColor$ THENã XPixel% = XPixel% + 2ã SamePixels = 2ã DOã IF MID$(LineExtract$, XPixel%, 1) = PixelColor$ THENã SamePixels = SamePixels + 1ã XPixel% = XPixel% + 1ã ELSEã EXIT DOã END IFã LOOP UNTIL SamePixels = 63ã NewLine$ = NewLine$ + CHR$(SamePixels + 192) + PixelColor$ã ELSEã IF ASC(PixelColor$) > 191 THENã NewLine$ = NewLine$ + CHR$(193)ã END IFã NewLine$ = NewLine$ + PixelColor$ã XPixel% = XPixel% + 1ã END IFã LOOP UNTIL XPixel% > LEN(LineExtract$)ã PUT #255, , NewLine$ãNEXT Yaxis%ãCLOSE #254: KILL "temp.fil"ãã'/* ------ Palette Data -------- */'ãPUT #255, , ValidPCX3$ãFOR Colors% = 0 TO 255ã '/* Extracts the Palette of each of the 256 colors into a red, green and blue */'ã '/* sections and places them into their corresponding variables */'ã OUT &H3C6, &HFFã OUT &H3C7, Colors%ã Red$ = CHR$(INP(&H3C9) * 4): Green$ = CHR$(INP(&H3C9) * 4): Blue$ = CHR$(INP(&H3C9) * 4)ã '/* Places the extracted colors into the given file */'ã PUT #255, , Red$ã PUT #255, , Green$ã PUT #255, , Blue$ãNEXT Colors%ããEND SUBãYousuf Philips WINDOWS ANIMATED CURSOR VIEWER philipz@emirates.net.ae 04-23-99 (18:32) QB, QBasic, PDS 74 4837 OPENANI.BAS ' Windows animated cursor viewerãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"OPANI01S.ZIP",4^6:Z&=3325:?STRING$(50,177);ãU"%up()%9%%%R-%VwA$KzB&\UU,7%%f9%%%0%%%%tu%jsfs%nSgfOx.&<,BSk5cwGãU"1xM0V59#mU[]QVS8jexQS&[+Iz;M#7vl,$Z%r2T]$ipA6s\N4Jvf\b1Yfl-s1tuãU"-te,uHgfCdll.k[Y#lY$=K>t>:9$2U]pxc2O5hUI1geOhKSl^r((opa#)B<:GzpãU"Q[s'C:k8(nT24G:;PrVc>Gbf'k#z5+jmAsSbYK6jr(LX\*.,qwd6;g=X'px[,m$ãU"g4wc0b/q+'-rAtSI83T3Oe[$.^l#-idk)itKHjN\YvCrQjjnq>TV(nzYV5d^^(,ãU"on(+h5L[Krd;La]W$bXS]VmCik5^Ur%cdGn9(2j6E1_XPif:mdfp58Qf-)UXijG$<2d>CWFoãU"U>WY<[=j>KLdm^;)G#YcWH_uVP+[/k,0uM'0-mR[s&GQymgMTn(XZHMJWN[xj,vãU"9XxJGi]B8e)D-a^]9H,$OAS8^D)[k*E<6MX(aoU&D,/9QHXEPxZX]hB[G3QJZ8'>2bcqwJzG1&6:tZ0TlxZ0cãU"'vJ4=4_1H*o4j''[*k$nGI;]yãU"BWw;vi:;^DIcLlVmasg=F]XxNJ:p*n6aGSVQFDHe&8+JvGEKQkGRU]R/x[CVGVYãU",7<&?ORmhdbZ(c;Z#]3[?^^8z[)a+?5d=3SjTlF?P2_u^a-sZ#NRgkK:DEO.ãU"FJxo.^=)(QtWRz.0&qrãU"S[&aFr'64&RWcCGZH\2qfK^y]0iIojBoZC^_;,OinYSs9Ge*9Rlkp&R%MMXO$WDãU"f?\8[k/6f9lZ#VluSe=R?ZB/)#P<(>\=-pcC?M&3qyD%(Nw5(jFT'XSI<&<%jSBãU".y-6^t;5&#f,jDJEVHEBmo.wf%JAXITIM2rT(e<51g$x'm[>MtI_v'lX3'#oL36ãU"oj1\,VQ4'nAAcjBsecNMzlRYWgI,R(0ON:rNãU"I-C9jH*p71]R&?M'ScT5pfK4.KLrt)8eSyE.f;&,sSh7:mW1CjR<*fkpE*[4bGI'YLr%F?mAT=^AHUAfR6xszj=bMWdOyT*ãU"KB.MZ&uvCh>43[No_2.B^_'mbOFU/,gFk',d2MiLc-[uErkmr4(atYqM;U)\9(dãU"o2,G]lCO$S+6=$DF9^eR1nnKOCA4t&B#jF5.R,94^J3Z'D5=%Ww\lBHpzQqW)B0ãU"T^FfF$<9pRR_y*BUzFrwm.nDk_DHXl#5>\#SEhx&?0$9a$b9T^Sx6E8Ba>'OãU"^vf'Vj2P2?Uz3t^tXe:jeo,Es5dG-x[u8rN:''QãU"TsFQO_C88*D^UVg3i\8%%up(%)9%%%%-%eb%dC'cP%D=#(%%?%T%%1%%%%m%tzwãU"l%qfxS[fsnf5iH>77f9#Dguf\?-;BPAk[j/ut#iI=)7jKMhX_HfeUHen\*aãU"/EcfPKV('*QXSKm5N*b(POu5=sP82/8#2XdPz7z6bn7Ngrf0tSHoGR;oTMhODzJãU"z:jd4-&rPyn[kM2)2SRsfLu6u3-qnL)+Kk5Yd,AbKk)bt'x*.[;h0[spwMãU"[RUeEJU'2wP4CMSTEF58*c1p)GBv(bw)X-ShZOj*48(bXeoHOmu<]$d]);AD?*UãU"#)<1(s=1,_3Ve6goft__8OV%q/Ur7NEB_sw9Ir1$]rqUua3-qev:jCxWlxX>l&dãU"Ha0sanB\>rq8Ul,XL7JJV9r7w>B;jGjI$HE&j8#aQPa]cTdD(M=&1w7O&sY<:2+ãU"$31eqO(%\F%)QX(1*O0t9MsA>LrTZ=Z#,OsceHqRk(T(vP8N9)$wMYkHD1E]zJ)ãU"%$#5/,ZgujZKPr5139Maz<941Tp9]*39qy#ZY*,.reP^S.91i7'r:5dreP2/79[ãU"j$*uEMSC9A1AZsf6B*N=FFTL9SEKJf&.m&*U#/ArP)u/a2)tORCO*[OiR'r:?J\ãU"gPgG5ltPSrNA7s/?Lq:9glkVPk-im'r:Q)iS'V,\xc*4oK9/IY*2:nI/Gx+3b'MãU"+u[Z*2iQ8Zm(/Gvcdr'wB\ixoUNg*[5QeZ)au0JX)N'*6m.USkQ0ldQ;S[Js;h1ãU"K?O*O$hia6S4pq;)f#(l.$ZLOlt95lxuHADI-agrBi7uoT+9(-V=,?Q+nAA\SQ<ãU"eQKbdPju_a.St-)>7DMmpURZhOnq2)P#W;53qhB)#V6^_dmt]%$(EP7k)4hYkv==5jFdK-V:,8$a7pC'CEf^zauU76kJq/NShqBbcO[N>4XXidKY'lvLGOo(0nãU"^]n;X3]&Oiodba+Pv&u%p()9%%%%-I%Nx$LKRuW-TD%%+%u%%%%0%%%%knq(j.nãU"i#Sin)(J]fpB=U5TWhPuVAF7b;Vyo)W\Wz;E/4R'9k^RE3.2YhWpn,nPkjcDW-pãU"6\TiF=.hFRWm?>8')&NS$_GM$]O]YJ;9qSd(WLlercY&q4Sx,.[j7#0cbldm1/,ãU"t%l]7O8'#U?f_YXPeQ#g\TwO?R_ZqX5aJyksL]+$O-iO^H?[A^3nzL'j?Zr1C5KãU"a9e4pRE:QNejsV.3Tj*$vkofasBTHdTjVV$lIpX4f7j%HWTD%7%%u%%%%0%ãU"%%%%%%%%&%RE%/P%l0%%%knqj&.niS.in)u%p*+%%%%%([%(%%%%%%$%1%%%%%ãEND SUBãCLOSE:IF S=198AND 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ãYousuf Philips SAVE SCREEN 13 AS 8-BIT RLE BMPphilipz@emirates.net.ae 04-23-99 (18:32) QB, QBasic, PDS 130 5138 SAVERLE1.BAS''''''''''''''''''''''''''''''''''''''''''''''''ã' Program : Save Screen 13 as 8-BIT RLE BMP 'ã' Name : SAVERLE Version 0.1 'ã' Programmer : Yousuf Philips 'ã' Company : Y P I 'ã' Updated On : 12th of Sept. 1998 'ã' Email - [philipz85@hotmail.com] 'ã' [http://members.xoom.com/Philipz/] 'ã''''''''''''''''''''''''''''''''''''''''''''''''ãã'/* Do not edit this file if you distribute it. */'ã'/* (c) Copyrighted by YPI in 1998 | All Rights Reserved | Public Domain */'ãã'/* The Save8BitRleBMP SUB is able to save any portion of screen 13 as a */'ã'/* 8-BIT Windows RLE compressed BMP file. */'ã'/* The Save8BitRleBMP SUB was tested on a Pentium 100MHz and it was able */'ã'/* save the whole of screen 13 in 1.97 seconds. */'ãã'/* If you use any of this code in your program then you must credit YPI. */'ããTYPE BMPHeaderã ValidID AS STRING * 2 '/* Must be 'BM'ã SizeOfFile AS LONG '/* Size of entire file in bytesã Reserved AS LONG '/* Four empty bytesã OffsetOfBitMap AS LONG '/* The location in the file where theã ' bitmap is locatedãEND TYPEããTYPE WindowsBMPInfoHeaderã SizeOfHeader AS LONG '/* Size of Information Headerã ' 40 - Windows | 12 - OS/2 1.x | 64 OS/2 2.xã Widthz AS LONG '/* Width of image in pixelsã Heightz AS LONG '/* Height of image in pixelsã Planes AS INTEGER '/* Number of Planes. Must be '1'ã BitsPerPixel AS INTEGER '/* Number of bits per pixelã ' Possible values are 1,4,8,16,24,32ã CompressMethod AS LONG '/* Compression Methodã ' 0 - Uncompressedã ' 1 - 8 Bit RLE Compressionã ' 2 - 4 Bit RLE Compressionã ImageSizeInBytes AS LONG '/* Size of image in bytesã HorizontalResol AS LONG '/* Horizontal Resolutionã VerticalResol AS LONG '/* Vertical Resolutionã ColorsUsed AS LONG '/* Number of Colors used | 0 - All Usedã ImportantColors AS LONG '/* Number of Important ColorsãEND TYPEããDECLARE SUB Save8BitRleBMP (FileName$, MinX%, MinY%, MaxX%, MaxY%)ã'/* FileName$ - The filename of the file that the saved screen is to be put*/'ã'/* MinX - The starting x position */'ã'/* MinY - The starting y position */'ã'/* MaxX - The ending x position */'ã'/* MaxY - The ending y position */'ããSCREEN 13ãFOR Circles = 1 TO 100ã CIRCLE (RND * 320, RND * 200), RND * 100, RND * 256ãNEXT CirclesãPRINT " Created By YPI (c) 1998"ããt = TIMERãCALL Save8BitRleBMP("bmprle.bmp", 0, 0, 319, 199)ãPRINT " Time Taken To Save Screen -"; TIMER - tããDEFINT A-ZãSUB Save8BitRleBMP (FileName$, MinX, MinY, MaxX, MaxY)ããOPEN FileName$ FOR BINARY AS #255ãIF LOF(255) <> 0 THENã CLOSE #255ã KILL FileName$ã OPEN FileName$ FOR BINARY AS #255ãEND IFããDIM BMPHeader AS BMPHeaderãDIM BMPInfoHeader AS WindowsBMPInfoHeaderããPUT #255, , BMPHeaderããBMPInfoHeader.SizeOfHeader = 40ãBMPInfoHeader.Widthz = (MaxX - MinX) + 1ãBMPInfoHeader.Heightz = (MaxY - MinY) + 1ãBMPInfoHeader.Planes = 1ãBMPInfoHeader.BitsPerPixel = 8ãBMPInfoHeader.CompressMethod = 1ããPUT #255, , BMPInfoHeaderããFOR Colors = 0 TO 255ã OUT &H3C7, Colorsã Red$ = CHR$(INP(&H3C9) * 4): Green$ = CHR$(INP(&H3C9) * 4): Blue$ = CHR$(INP(&H3C9) * 4)ã ColorPalette$ = ColorPalette$ + Blue$ + Green$ + Red$ + SPACE$(1)ãNEXT ColorsãPUT #255, , ColorPalette$ããFOR YHeight = MaxY TO MinY STEP -1ã '/* Getting line of bytes */'ã FOR XWidth = MinX TO MaxXã PixelBytes$ = PixelBytes$ + CHR$(POINT(XWidth, YHeight))ã NEXTã LINE (MinX, YHeight)-(MaxX, YHeight), 0ãã '/* Looping through line of bytes in string to compress */'ã FOR XWidth = 1 TO LEN(PixelBytes$)ã PixelColor$ = MID$(PixelBytes$, XWidth, 1)ã IF PixelColor$ = MID$(PixelBytes$, XWidth + 1, 1) THENã SimilarPixels = 2: XWidth = XWidth + 2ã WHILE MID$(PixelBytes$, XWidth, 1) = PixelColor$ AND XWidth < LEN(PixelBytes$) AND SimilarPixels <> 255ã SimilarPixels = SimilarPixels + 1: XWidth = XWidth + 1ã WENDã PixelBytes2$ = PixelBytes2$ + CHR$(SimilarPixels) + PixelColor$ã XWidth = XWidth - 1ã ELSEã PixelBytes2$ = PixelBytes2$ + CHR$(1) + PixelColor$ã END IFã NEXT XWidthã PixelBytes2$ = PixelBytes2$ + STRING$(2, 0)ã PUT #255, , PixelBytes2$ã PixelBytes$ = "": PixelBytes2$ = ""ãNEXT YHeightãEndOfImage$ = CHR$(0) + CHR$(1)ãPUT #255, , EndOfImage$ããBMPHeader.ValidID = "BM"ãBMPHeader.SizeOfFile = LOC(255)ãBMPHeader.OffsetOfBitMap = 1078ãPUT #255, 1, BMPHeaderãCLOSEããEND SUBãAlexander Meyer COLOURED TEXT WITH SHADOW Meyer.Karl@t-online.de 04-28-99 (07:08) QB, QBasic, PDS 50 1400 COLORTXT.BAS' ////ã' 0(o o)0ã'-------------------------ooO (_) Ooo---------------------ã' COLORTXT.BAS -- Written in QuickBasic 4.5ã'ã' Name: Colored text & shadowã' Author: Alexander Meyerã' Date: 04-24-1999ã' Description: This program draws every pixel on the screenã' ina new colour and with a shadow.ã'ã'For questions or comments mail to: Meyer.Karl@t-online.deã'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-ããDECLARE SUB ColoredText (C1%, C2%, C3%, C4%, SC%, Sx%, Sy%)ãã'C1%, C2%, C3%, C4% = Colours to drawã'SC% = Colour of shadowã'Sx% = x-length of shadowã'Sy% = y-length of shadowããSCREEN 13ãLOCATE 2, 2ãPRINT "° Hello World ±"ãLOCATE 5, 5: PRINT "This is a little demonstration...."ãCIRCLE (150, 100), 40, 15ãLINE (200, 150)-(250, 160), 15, BFãCALL ColoredText(44, 46, 48, 50, 24, 2, 2)ãENDããSUB ColoredText (C1%, C2%, C3%, C4%, SC%, Sx%, Sy%)ããRANDOMIZE TIMERãFOR x% = 1 TO 320ã FOR y% = 1 TO 200ã z% = POINT(x%, y%)ã IF z% <> 0 AND z% <> SC% THENã I% = INT(RND * 4)ã IF I% = 0 THEN PSET (x%, y%), C1%ã IF I% = 1 THEN PSET (x%, y%), C2%ã IF I% = 2 THEN PSET (x%, y%), C3%ã IF I% = 3 THEN PSET (x%, y%), C4%ã IF POINT(x% + Sx%, y% + Sy%) = 0 THENã PSET (x% + Sx%, y% + Sy%), SC%ã END IFã END IFã NEXT y%ãNEXT x%ããEND SUBãPaul Crosland QB IMAGE DRAW xflare@hotmail.com 05-26-99 (11:31) QB, QBasic, PDS 615 21810 QBIDRAW.BAS 'QB IMAGE DRAW Copyright (c) 1998-1999 XFlareSoft.ã'ã'This program was designed by Paul Crosland and is intended to offerã'a pleasant alternative to designing QBasic graphics with featuresã'such as color converting and rotating images. 20 animation framesã'allows you to test your graphics while simultaneously designing them.ã'There are two save modes, one for up to 100 pixels, and another for upã'to 400 pixels. Use the DIM command to define the image area. Toã'use this program's palette in your own programs, copy the CHGCOLORS sub.ã'If you use a screen other than 9, you will have to redefine the attributeã'numbers, probably by simple experimentation. For screen 13 however, justã'change the AT row to "00010203040506070809101112131415".ã'ã'You may distribute this program only if everything remains intact.ã'Please send any comments and/or suggestions to xflare@hotmail.com.ããDECLARE SUB CHGCOLORS ()ãDECLARE SUB SCROLL ()ãDECLARE SUB SPRAY ()ãDECLARE SUB TEXTURE ()ãDECLARE SUB DIMENSIONS ()ãDECLARE SUB CONVERT ()ãDECLARE SUB ROTATE ()ãDECLARE SUB FINDFILE ()ãDECLARE SUB SAVEFILE ()ãDECLARE SUB SAFEMODE ()ãDECLARE SUB SCREENSET ()ãDECLARE SUB ANIMATION ()ãDECLARE SUB CURCHANGE ()ããDIM SHARED image(100), pcol(400), afile$(20), fafile$(20), prafile$(20)ãDIM SHARED image1(100), image2(100), image3(100), image4(100), image5(100)ãDIM SHARED image6(100), image7(100), image8(100), image9(100), image10(100)ãDIM SHARED image11(100), image12(100), image13(100), image14(100)ãDIM SHARED image15(100), image16(100), image17(100), image18(100)ãDIM SHARED image19(100), image20(100)ããCOMMON SHARED sel$, xcursor1, xcursor2, ycursor, box, col, file$, statãCOMMON SHARED prfile$, adelay, xdim1, ydim1, xdim2, ydim2, curdelay, cursor$ãCOMMON SHARED erry, errx, cutshort$, intenseããxdim1 = 0: ydim1 = 0: xdim2 = 19: ydim2 = 19ãerry = 23: errx = 31ãcutshort$ = "no"ãintense = 11ãFOR num = 1 TO 20ã afile$(num) = "c:\"ãNEXTãSCREEN 9, 0, 0, 0: CLSãON ERROR GOTO errortrapãRANDOMIZE TIMERãCALL CHGCOLORSãCALL SCREENSETããDOã sel$ = INKEY$ã SELECT CASE UCASE$(sel$)ã CASE "C"ã IF box = 1 THENã box = 2ã ELSEã box = 1ã END IFã CASE CHR$(0) + CHR$(72)ã IF box = 2 THENã LINE (xcursor2, ycursor)-(xcursor2 + 10, ycursor + 10), 4, Bã ycursor = ycursor - 10ã IF ycursor < 100 + ydim1 * 10 THEN ycursor = 100 + ydim2 * 10ã END IFã CASE CHR$(0) + CHR$(80)ã IF box = 2 THENã LINE (xcursor2, ycursor)-(xcursor2 + 10, ycursor + 10), 4, Bã ycursor = ycursor + 10ã IF ycursor > 100 + ydim2 * 10 THEN ycursor = 100 + ydim1 * 10ã END IFã CASE CHR$(0) + CHR$(75)ã IF box = 1 THENã LINE (xcursor1, 34)-(xcursor1 + 30, 64), 4, Bã xcursor1 = xcursor1 - 30: IF xcursor1 < 70 THEN xcursor1 = 520ã ELSEIF box = 2 THENã LINE (xcursor2, ycursor)-(xcursor2 + 10, ycursor + 10), 4, Bã xcursor2 = xcursor2 - 10ã IF xcursor2 < 210 + xdim1 * 10 THEN xcursor2 = 210 + xdim2 * 10ã END IFã CASE CHR$(0) + CHR$(77)ã IF box = 1 THENã LINE (xcursor1, 34)-(xcursor1 + 30, 64), 4, Bã xcursor1 = xcursor1 + 30: IF xcursor1 > 520 THEN xcursor1 = 70ã ELSEIF box = 2 THENã LINE (xcursor2, ycursor)-(xcursor2 + 10, ycursor + 10), 4, Bã xcursor2 = xcursor2 + 10ã IF xcursor2 > 210 + xdim2 * 10 THEN xcursor2 = 210 + xdim1 * 10ã END IFã CASE CHR$(13)ã IF box = 1 THENã col = POINT(xcursor1 + 2, 36): box = 2ã ELSEIF box = 2 THENã LINE (xcursor2 + 2, ycursor + 2)-(xcursor2 + 8, ycursor + 8), col, BFã PSET (xcursor2 / 10 + 469, ycursor / 10 + 230), colã END IFã CASE "Q", CHR$(27)ã CALL SAFEMODE: IF sel$ = "Y" THEN SCREEN 9, 0, 0, 0: CLS : CLEAR : ENDã CASE "N"ã CALL SAFEMODE: IF sel$ = "Y" THEN CALL SCREENSETã CASE "O"ã CALL FINDFILEã CASE "S"ã CALL SAVEFILEã CASE "R"ã IF xdim1 = ydim1 AND xdim2 = ydim2 THEN CALL ROTATEã CASE "V"ã CALL SAFEMODE: IF sel$ = "Y" THEN CALL CONVERTã CASE "L"ã CALL SCROLLã CASE "D"ã CALL DIMENSIONSã CASE "A"ã CALL ANIMATIONã CASE "P"ã CALL SPRAYã END SELECTã LINE (210 + xdim1 * 10, 100 + ydim1 * 10)-(220 + xdim2 * 10, 110 + ydim2 * 10), 12, Bã LINE (xcursor1, 34)-(xcursor1 + 30, 64), 8, Bã LINE (xcursor2, ycursor)-(xcursor2 + 10, ycursor + 10), 8, Bã LINE (490, 140)-(509, 159), col, BFã xcoor = xcursor2 / 10 - 21 - xdim1ã ycoor = ycursor / 10 - 10 - ydim1ã IF xcoor < 10 AND ycoor < 10 THEN text$ = "0# - 0#"ã IF xcoor > 9 AND ycoor > 9 THEN text$ = "## - ##"ã IF xcoor > 9 AND ycoor < 10 THEN text$ = "## - 0#"ã IF xcoor < 10 AND ycoor > 9 THEN text$ = "0# - ##"ã IF LEN(file$) < 4 THENã name$ = "UNTITLED"ã ELSEã name$ = UCASE$(file$) + ".GPH"ã END IFã LOCATE 7, 30: PRINT STRING$(20, " ")ã LOCATE 7, 40 - (LEN(name$)) / 2: COLOR 12: PRINT name$ã LOCATE 15, 60: COLOR 4: PRINT USING text$; xcoor; ycoorã PCOPY 1, 0ãLOOPããerrortrap:ãLOCATE erry, errx - 1: PRINT STRING$(22, " ")ãLOCATE erry, errx: COLOR 8: PRINT "INVALID FILE NAME"ãcutshort$ = "yes"ãPCOPY 1, 0ãtime1# = TIMER: DO: time2# = TIMER: LOOP UNTIL time2# - time1# > 1ãLOCATE erry, errx: PRINT STRING$(20, " ")ãRESUME NEXTããSUB ANIMATIONããframe = 1ãIF adelay = 0 THEN adelay = 10ãcursor$ = "_": curdelay = 10ãanimate$ = "no"ãerry = 11: errx = 5ãFOR num = 1 TO 10ã prafile$(num) = afile$(num)ãNEXTãDOã LOCATE 10, 3: PRINT STRING$(22, " ")ã LOCATE 11, 3: PRINT STRING$(22, " ")ã COLOR 12: LOCATE 10, 3: PRINT "FRAME"; frameã COLOR 4: LOCATE 11, 3: PRINT ">>> "; afile$(frame) + cursor$ã sel$ = INKEY$ã SELECT CASE UCASE$(sel$)ã CASE "A" TO "Z", "\", "/", ":", "0" TO "9"ã IF LEN(afile$(frame)) < 18 THEN afile$(frame) = afile$(frame) + sel$ã CASE CHR$(8)ã IF LEN(afile$(frame)) > 0 THEN afile$(frame) = LEFT$(afile$(frame), LEN(afile$(frame)) - 1)ã CASE CHR$(13)ã animate$ = "yes": EXIT DOã CASE CHR$(27)ã cutshort$ = "yes": EXIT DOã animate$ = "no"ã CASE CHR$(0) + CHR$(72)ã frame = frame + 1: IF frame = 21 THEN frame = 1ã CASE CHR$(0) + CHR$(80)ã frame = frame - 1: IF frame = 0 THEN frame = 20ã END SELECTã CALL CURCHANGEã IF LEN(afile$(frame)) = 18 THEN cursor$ = " "ã PCOPY 1, 0ãLOOPãIF animate$ = "yes" THENã FOR num = 1 TO 20ã IF LEN(afile$(num)) > 3 THENã maxframe = numã fafile$(num) = afile$(num) + ".gph"ã ELSEã EXIT FORã END IFã NEXTã FOR num = 1 TO 20ã IF maxframe < num THEN afile$(num) = "c:\"ã NEXTã LOCATE 10, 3: PRINT STRING$(22, " "): LOCATE 11, 3: PRINT STRING$(22, " ")ã ã IF maxframe > 19 THEN DEF SEG = VARSEG(image20(0)): BLOAD fafile$(20), VARPTR(image20(0))ã IF maxframe > 18 THEN DEF SEG = VARSEG(image19(0)): BLOAD fafile$(19), VARPTR(image19(0))ã IF maxframe > 17 THEN DEF SEG = VARSEG(image18(0)): BLOAD fafile$(18), VARPTR(image18(0))ã IF maxframe > 16 THEN DEF SEG = VARSEG(image17(0)): BLOAD fafile$(17), VARPTR(image17(0))ã IF maxframe > 15 THEN DEF SEG = VARSEG(image16(0)): BLOAD fafile$(16), VARPTR(image16(0))ã IF maxframe > 14 THEN DEF SEG = VARSEG(image15(0)): BLOAD fafile$(15), VARPTR(image15(0))ã IF maxframe > 13 THEN DEF SEG = VARSEG(image14(0)): BLOAD fafile$(14), VARPTR(image14(0))ã IF maxframe > 12 THEN DEF SEG = VARSEG(image13(0)): BLOAD fafile$(13), VARPTR(image13(0))ã IF maxframe > 11 THEN DEF SEG = VARSEG(image12(0)): BLOAD fafile$(12), VARPTR(image12(0))ã IF maxframe > 10 THEN DEF SEG = VARSEG(image11(0)): BLOAD fafile$(11), VARPTR(image11(0))ã IF maxframe > 9 THEN DEF SEG = VARSEG(image10(0)): BLOAD fafile$(10), VARPTR(image10(0))ã IF maxframe > 8 THEN DEF SEG = VARSEG(image9(0)): BLOAD fafile$(9), VARPTR(image9(0))ã IF maxframe > 7 THEN DEF SEG = VARSEG(image8(0)): BLOAD fafile$(8), VARPTR(image8(0))ã IF maxframe > 6 THEN DEF SEG = VARSEG(image7(0)): BLOAD fafile$(7), VARPTR(image7(0))ã IF maxframe > 5 THEN DEF SEG = VARSEG(image6(0)): BLOAD fafile$(6), VARPTR(image6(0))ã IF maxframe > 4 THEN DEF SEG = VARSEG(image5(0)): BLOAD fafile$(5), VARPTR(image5(0))ã IF maxframe > 3 THEN DEF SEG = VARSEG(image4(0)): BLOAD fafile$(4), VARPTR(image4(0))ã IF maxframe > 2 THEN DEF SEG = VARSEG(image3(0)): BLOAD fafile$(3), VARPTR(image3(0))ã IF maxframe > 1 THEN DEF SEG = VARSEG(image2(0)): BLOAD fafile$(2), VARPTR(image2(0))ã IF maxframe > 0 THEN DEF SEG = VARSEG(image1(0)): BLOAD fafile$(1), VARPTR(image1(0))ã ã frame = 1ã IF maxframe = 0 THEN cutshort$ = "yes"ã IF cutshort$ = "no" THENã DOã time1# = TIMERã LOCATE 10, 5: COLOR 4: PRINT "USE THE ARROW KEYS"ã LOCATE 11, 5: PRINT "TO CHANGE THE SPEED"ã LOCATE 18, 10: COLOR 12: PRINT "DEL:"; adelayã LOCATE 20, 5: COLOR 4: PRINT "PRESS ESC WHEN DONE"ã sel$ = INKEY$ã SELECT CASE sel$ã CASE CHR$(0) + CHR$(72)ã IF adelay < 20 THEN adelay = adelay + 1ã CASE CHR$(0) + CHR$(80)ã IF adelay > 1 THEN adelay = adelay - 1ã END SELECTã IF frame = 1 THEN PUT (90, 190), image1, PSETã IF frame = 2 THEN PUT (90, 190), image2, PSETã IF frame = 3 THEN PUT (90, 190), image3, PSETã IF frame = 4 THEN PUT (90, 190), image4, PSETã IF frame = 5 THEN PUT (90, 190), image5, PSETã IF frame = 6 THEN PUT (90, 190), image6, PSETã IF frame = 7 THEN PUT (90, 190), image7, PSETã IF frame = 8 THEN PUT (90, 190), image8, PSETã IF frame = 9 THEN PUT (90, 190), image9, PSETã IF frame = 10 THEN PUT (90, 190), image10, PSETã IF frame = 11 THEN PUT (90, 190), image11, PSETã IF frame = 12 THEN PUT (90, 190), image12, PSETã IF frame = 13 THEN PUT (90, 190), image13, PSETã IF frame = 14 THEN PUT (90, 190), image14, PSETã IF frame = 15 THEN PUT (90, 190), image15, PSETã IF frame = 16 THEN PUT (90, 190), image16, PSETã IF frame = 17 THEN PUT (90, 190), image17, PSETã IF frame = 18 THEN PUT (90, 190), image18, PSETã IF frame = 19 THEN PUT (90, 190), image19, PSETã IF frame = 20 THEN PUT (90, 190), image20, PSETã frame = frame + 1: IF frame > maxframe THEN frame = 1ã PCOPY 1, 0ã DO: time2# = TIMER: LOOP UNTIL time2# - time1# > adelay / 100ã LOOP UNTIL sel$ = CHR$(27)ã END IFãEND IFãIF cutshort$ = "yes" THENã FOR num = 1 TO 10ã afile$(num) = prafile$(num)ã NEXTã cutshort$ = "no"ãEND IFããLOCATE 10, 5: PRINT STRING$(15, " ")ãLOCATE 11, 5: PRINT STRING$(15, " ")ãLOCATE 18, 10: PRINT STRING$(15, " ")ãLOCATE 20, 5: PRINT STRING$(20, " ")ãLOCATE 10, 3: PRINT STRING$(24, " ")ãLOCATE 11, 3: PRINT STRING$(24, " ")ãLOCATE 18, 10: PRINT STRING$(10, " ")ãLINE (90, 190)-(109, 209), 0, BFããEND SUBããSUB CHGCOLORSããFOR CL = 0 TO 15ã AT = VAL(MID$("00010203040520075657585960616263", CL * 2 + 1, 2))ã RD = VAL(MID$("05152540605055456002100402020202", CL * 2 + 1, 2))ã GR = VAL(MID$("05152540604050020225354555101530", CL * 2 + 1, 2))ã BL = VAL(MID$("05152540600202040210051002406060", CL * 2 + 1, 2))ã OUT &H3C8, AT: OUT &H3C9, RD: OUT &H3C9, GR: OUT &H3C9, BLãNEXTããEND SUBããSUB CONVERTããchgcol = POINT(xcursor2 + 2, ycursor + 2)ãx = 210 + xdim1 * 10: y = 100 + ydim1 * 10ãFOR num = 1 TO (xdim2 - xdim1 + 1) * (ydim2 - ydim1 + 1)ã pcol(num) = POINT(x + 2, y + 2)ã IF pcol(num) = chgcol THENã LINE (x + 2, y + 2)-(x + 8, y + 8), col, BFã PSET (x / 10 + 469, y / 10 + 230), colã END IFã x = x + 10: IF x = 220 + xdim2 * 10 THEN y = y + 10: x = 210 + xdim1 * 10ãNEXTããEND SUBããSUB CURCHANGEããcurdelay = curdelay - 1ãIF curdelay = 0 THENã curdelay = 10ã IF cursor$ = "_" THENã cursor$ = " "ã ELSEIF cursor$ = " " THENã cursor$ = "_"ã END IFãEND IFããEND SUBããSUB DIMENSIONSããlxdim1 = xdim1: lxdim2 = xdim2: lydim1 = ydim1: lydim2 = ydim2ãLINE (xcursor2, ycursor)-(xcursor2 + 10, ycursor + 10), 3, BãLINE (210 + xdim1 * 10, 100 + ydim1 * 10)-(220 + xdim2 * 10, 110 + ydim2 * 10), 3, Bãstat = xdim1: text$ = "X1:"ãFOR num = 1 TO 4ã DOã LOCATE 23, 30: PRINT STRING$(20, " "): COLOR 4ã IF stat < 10 THEN text2$ = " 0#"ã IF stat > 9 THEN text2$ = " ##"ã LOCATE 23, 37: PRINT text$; : PRINT USING text2$; statã sel$ = INKEY$ã SELECT CASE sel$ã CASE CHR$(0) + CHR$(72)ã IF stat < 19 THEN stat = stat + 1ã CASE CHR$(0) + CHR$(80)ã IF stat > 0 THEN stat = stat - 1ã CASE CHR$(27)ã EXIT DOã CASE CHR$(13)ã IF num = 1 THEN xdim1 = statã IF num = 2 THEN ydim1 = statã IF num = 3 THEN xdim2 = statã IF num = 4 THEN ydim2 = statã EXIT DOã END SELECTã PCOPY 1, 0ã LOOPã IF num = 1 THENã stat = ydim1: text$ = "Y1:"ã ELSEIF num = 2 THENã stat = xdim2: text$ = "X2:"ã ELSEIF num = 3 THENã stat = ydim2: text$ = "Y2:"ã END IFã IF sel$ = CHR$(27) THEN EXIT FORãNEXTãLOCATE 23, 30: PRINT STRING$(20, " ")ãLINE (xcursor2, ycursor)-(xcursor2 + 10, ycursor + 10), 3, BãIF xdim1 > xdim2 OR ydim1 > ydim2 THENã LOCATE 23, 31: COLOR 8: PRINT "INVALID DIMENSIONS"ã PCOPY 1, 0ã time1# = TIMER: DO: time2# = TIMER: LOOP UNTIL time2# - time1# > 1ã xdim1 = lxdim1: xdim2 = lxdim2: ydim1 = lydim1: ydim2 = lydim2ãELSEã xcursor2 = 210 + xdim1 * 10: ycursor = 100 + ydim1 * 10ãEND IFãIF xdim1 <> ydim1 OR xdim2 <> ydim2 THENã COLOR 1: LOCATE 25, 20: PRINT "R"; : COLOR 2: PRINT "OTATE";ãELSEã COLOR 10: LOCATE 25, 20: PRINT "R"; : COLOR 12: PRINT "OTATE";ãEND IFãLOCATE 23, 30: PRINT STRING$(20, " ")ããEND SUBããSUB FINDFILEããerry = 23: errx = 31ãcursor$ = "_": curdelay = 10ãprfile$ = file$ãDOã LOCATE 23, 28: PRINT STRING$(24, " ")ã sel$ = INKEY$ã SELECT CASE UCASE$(sel$)ã CASE "A" TO "Z", "\", "/", ":", "0" TO "9"ã IF LEN(file$) < 18 THEN file$ = file$ + sel$ã CASE CHR$(8)ã IF LEN(file$) > 0 THEN file$ = LEFT$(file$, LEN(file$) - 1)ã CASE CHR$(13)ã open$ = "yes": EXIT DOã CASE CHR$(27)ã open$ = "no": file$ = prfile$: EXIT DOã END SELECTã IF LEN(file$) = 18 THEN cursor$ = " "ã LOCATE 23, 28: COLOR 4: PRINT "OPEN: "; file$ + cursor$ã CALL CURCHANGEã PCOPY 1, 0ãLOOPãffile$ = file$ + ".gph"ãIF open$ = "yes" THENã DEF SEG = VARSEG(image(0)): BLOAD ffile$, VARPTR(image(0))ã IF cutshort$ = "yes" THEN open$ = "no"ãEND IFãIF open$ = "yes" THENã LINE (490, 240)-(509, 259), 0, BFã PUT (490, 240), image, PSETã x1 = 490: y1 = 240ã x2 = 210: y2 = 100ã FOR num = 1 TO 400ã pcol(num) = POINT(x1, y1)ã LINE (x2 + 2, y2 + 2)-(x2 + 8, y2 + 8), pcol(num), BFã x1 = x1 + 1: IF x1 = 510 THEN x1 = 490: y1 = y1 + 1ã x2 = x2 + 10: IF x2 = 410 THEN y2 = y2 + 10: x2 = 210ã NEXTãEND IFãLOCATE 23, 28: PRINT STRING$(24, " ")ãIF cutshort$ = "yes" THEN file$ = prfile$: cutshort$ = "no"ããEND SUBããSUB ROTATEããx = 210 + xdim1 * 10: y = 100 + ydim1 * 10ãFOR num = 1 TO (xdim2 - xdim1 + 1) * (ydim2 - ydim1 + 1)ã pcol(num) = POINT(x + 2, y + 2)ã x = x + 10: IF x = 220 + xdim2 * 10 THEN y = y + 10: x = 210 + xdim1 * 10ãNEXTãx = 210 + xdim2 * 10: y = 100 + ydim1 * 10ãFOR num = 1 TO (xdim2 - xdim1 + 1) * (ydim2 - ydim1 + 1)ã LINE (x + 2, y + 2)-(x + 8, y + 8), pcol(num), BFã PSET (x / 10 + 469, y / 10 + 230), pcol(num)ã y = y + 10: IF y = 110 + ydim2 * 10 THEN y = 100 + ydim1 * 10: x = x - 10ãNEXTããEND SUBããSUB SAFEMODEããSCREEN 9, 0, 0, 0ãDOã LOCATE 23, 30: COLOR 4: PRINT "ARE YOU SURE? (Y,N)"ã sel$ = INKEY$: sel$ = UCASE$(sel$)ãLOOP UNTIL sel$ = "Y" OR sel$ = "N" OR sel$ = CHR$(27)ãIF sel$ = CHR$(27) THEN sel$ = "N"ãSCREEN 9, 0, 1, 0ããEND SUBããSUB SAVEFILEããerry = 23: errx = 31ãcursor$ = "_": curdelay = 10ãprfile$ = file$ãDOã LOCATE 23, 28: PRINT STRING$(24, " ")ã sel$ = INKEY$ã SELECT CASE UCASE$(sel$)ã CASE "A" TO "Z", "\", "/", ":", "0" TO "9"ã IF LEN(file$) < 18 THEN file$ = file$ + sel$ã CASE CHR$(8)ã IF LEN(file$) > 0 THEN file$ = LEFT$(file$, LEN(file$) - 1)ã CASE CHR$(13)ã save$ = "yes": EXIT DOã CASE CHR$(27)ã save$ = "no": file$ = prfile$: EXIT DOã END SELECTã IF LEN(file$) = 18 THEN cursor$ = " "ã LOCATE 23, 28: COLOR 4: PRINT "SAVE: "; file$ + cursor$ã CALL CURCHANGEã PCOPY 1, 0ãLOOPãffile$ = file$ + ".gph"ãIF save$ = "yes" THENã GET (490 + xdim1, 240 + ydim1)-(490 + xdim2, 240 + ydim2), imageã DEF SEG = VARSEG(image(0))ã IF (xdim2 - xdim1 + 1) * (ydim2 - ydim1 + 1) <= 100 THENã BSAVE ffile$, VARPTR(image(0)), 84ã ELSEã BSAVE ffile$, VARPTR(image(0)), 244ã END IFãEND IFãLOCATE 23, 28: PRINT STRING$(24, " ")ãIF cutshort$ = "yes" THEN file$ = prfile$: cutshort$ = "no"ããEND SUBããSUB SCREENSETããfile$ = "c:\"ãbox = 2: col = 0ãycursor = 100 + ydim1 * 10: xcursor1 = 70: xcursor2 = 210 + xdim1 * 10ãSCREEN 9, 0, 1, 0: CLSãx = 70: y = 34ãFOR num = 0 TO 15ã LINE (x, y)-(x + 30, y + 30), 4, Bã LINE (x + 2, y + 2)-(x + 28, y + 28), num, BFã x = x + 30: IF x = 550 THEN x = 70: y = y + 15ãNEXTãx = 210: y = 100ãFOR num = 1 TO 400ã pcol(num) = 0ã LINE (x, y)-(x + 10, y + 10), 4, Bã x = x + 10: IF x = 410 THEN y = y + 10: x = 210ãNEXTãCOLOR 12ãLOCATE 1, 30: PRINT "*** QB IMAGE DRAW ***"ãLOCATE 25, 3: PRINT "NEW OPEN SAVE ROTATE COLOR CONVERT SPRAY SCROLL DIM ANIMATE QUIT";ãCOLOR 10ãLOCATE 25, 3: PRINT "N"; : LOCATE 25, 8: PRINT "O";ãLOCATE 25, 14: PRINT "S"; : LOCATE 25, 20: PRINT "R";ãLOCATE 25, 28: PRINT "C"; : LOCATE 25, 38: PRINT "V";ãLOCATE 25, 45: PRINT "P"; : LOCATE 25, 55: PRINT "L";ãLOCATE 25, 59: PRINT "D"; : LOCATE 25, 64: PRINT "A";ãLOCATE 25, 73: PRINT "Q";ãCOLOR 4ãIF xdim1 <> ydim1 OR xdim2 <> ydim2 THEN COLOR 1: LOCATE 25, 20: PRINT "R"; : COLOR 2: PRINT "OTATE";ãLINE (475, 125)-(524, 174), 10, BãLINE (480, 130)-(519, 169), 10, B: PAINT (476, 126), 10, 10ãLINE (480, 130)-(519, 169), 4, BãLINE (485, 135)-(514, 164), 4, B: PAINT (481, 131), 4, 4ãLINE (475, 225)-(524, 274), 10, BãLINE (480, 230)-(519, 269), 10, B: PAINT (476, 226), 10, 10ãLINE (480, 230)-(519, 269), 4, BãLINE (485, 235)-(514, 264), 4, B: PAINT (481, 231), 4, 4ãLINE (75, 175)-(124, 224), 10, BãLINE (80, 180)-(119, 219), 10, B: PAINT (76, 176), 10, 10ãLINE (80, 180)-(119, 219), 4, BãLINE (85, 185)-(114, 214), 4, B: PAINT (81, 186), 4, 4ããEND SUBããSUB SCROLLããLOCATE 23, 30: PRINT "PRESS ESC WHEN DONE"ãDOã xmove = 0: ymove = 0ã DOã sel$ = INKEY$ã SELECT CASE sel$ã CASE CHR$(0) + CHR$(72)ã ymove = -10ã CASE CHR$(0) + CHR$(80)ã ymove = 10ã CASE CHR$(0) + CHR$(75)ã xmove = -10ã CASE CHR$(0) + CHR$(77)ã xmove = 10ã CASE CHR$(27)ã CASE ELSEã sel$ = ""ã END SELECTã PCOPY 1, 0ã LOOP UNTIL sel$ <> ""ã IF sel$ = CHR$(27) THEN EXIT DOã x = 210 + xdim1 * 10: y = 100 + ydim1 * 10ã FOR num = 1 TO (xdim2 - xdim1 + 1) * (ydim2 - ydim1 + 1)ã pcol(num) = POINT(x + 2, y + 2)ã LINE (x + 2, y + 2)-(x + 8, y + 8), 0, BFã PSET (x / 10 + 469, y / 10 + 230), 0ã x = x + 10: IF x = 220 + xdim2 * 10 THEN y = y + 10: x = 210 + xdim1 * 10ã NEXTã x = 210 + xdim1 * 10: y = 100 + ydim1 * 10ã FOR num = 1 TO (xdim2 - xdim1 + 1) * (ydim2 - ydim1 + 1)ã IF x + xmove >= 210 + xdim1 * 10 AND x + xmove <= 210 + xdim2 * 10 AND y + ymove >= 100 + ydim1 * 10 AND y + ymove <= 100 + ydim2 * 10 THENã LINE (x + 2 + xmove, y + 2 + ymove)-(x + 8 + xmove, y + 8 + ymove), pcol(num), BFã PSET (x / 10 + 469 + xmove / 10, y / 10 + 230 + ymove / 10), pcol(num)ã END IFã x = x + 10: IF x = 220 + xdim2 * 10 THEN x = 210 + xdim1 * 10: y = y + 10ã NEXTãLOOPãLOCATE 23, 30: PRINT STRING$(24, " ")ããEND SUBããSUB SPRAYããDOã LOCATE 23, 37: PRINT STRING$(20, " ")ã IF intense < 11 THEN text$ = "0#"ã IF intense > 10 THEN text$ = "##"ã LOCATE 23, 37: PRINT "SOFT: "; : PRINT USING text$; intense - 1ã sel$ = INKEY$ã SELECT CASE sel$ã CASE CHR$(0) + CHR$(72)ã intense = intense + 1: IF intense > 21 THEN intense = 21ã CASE CHR$(0) + CHR$(80)ã intense = intense - 1: IF intense < 2 THEN intense = 2ã CASE CHR$(27)ã LOCATE 23, 37: PRINT STRING$(20, " ")ã EXIT SUBã END SELECTã PCOPY 1, 0ãLOOP UNTIL sel$ = CHR$(13)ãLOCATE 23, 37: PRINT STRING$(20, " ")ãx = 210 + xdim1 * 10: y = 100 + ydim1 * 10ãFOR num = 1 TO (xdim2 - xdim1 + 1) * (ydim2 - ydim1 + 1)ã pcol(num) = POINT(x + 2, y + 2)ã x = x + 10: IF x = 220 + xdim2 * 10 THEN x = 210 + xdim1 * 10: y = y + 10ãNEXTãFOR num = 1 TO (xdim2 - xdim1 + 1) * (ydim2 - ydim1 + 1)ã rnum = INT(RND * intense)ã IF rnum = 0 THEN pcol(num) = colãNEXTãx = 210 + xdim1 * 10: y = 100 + ydim1 * 10ãFOR num = 1 TO (xdim2 - xdim1 + 1) * (ydim2 - ydim1 + 1)ã LINE (x + 2, y + 2)-(x + 8, y + 8), pcol(num), BFã PSET (x / 10 + 469, y / 10 + 230), pcol(num)ã x = x + 10: IF x = 220 + xdim2 * 10 THEN x = 210 + xdim1 * 10: y = y + 10ãNEXTããEND SUBãDmitry Brant GRAYSCALE JPEG VIEWER dmitrybrant24@hotmail.com 06-07-99 (09:16) QB, QBasic, PDS 256 16841 JPEG13.BAS ' The QBasic JPEG Viewer, views JPEG in greyscaleãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"JPEG13.ZIP",4^6:Z&=12327:?STRING$(50,177);ãU"%up()%9%%%R-%T_]1K#&/^,b(%%%U,%%%/%I%%A4M03<4LSCGCATzr>]Uk16O0IãU"N/bL*2%nd]GBSv_'jA=%L=Wesa#mIvK='lF1lMzdNLiB$E64nUE2D2pBA?qW\HcãU"nIFuZrgcM\L2DgY=W<&/\HU:e;U_oj3GZPqHEoxnnaD,qAQX%M]0QF+f2MdSDVoãU"fr(-Nb0$wMRW3x#/1zWThA]^]IuloPG:lz-NCO>J,Kw)$E4Rr9o2(i5K^,j=-k1jo,iD&22\[4U5;_w2,pNPn>==c;rjC&Alm%v:5B_'.HiãU",lGlu-JElL[kdGutp(6j*ZCJ*X(kFk^9^.5dXxmn/mmf+4FsSi#E.ãU"572RiwwVKA;/B?sj3lF2[:%=6KdCev[Gn)-0.#(Ig&A0O(L3ik>>08Vx5ji>']0ãU"A1%$i>$?k]pNY:HT67qTWOHcez8HFK--c2.YZ=*4x3I+juEa[AK$24oihMgC>g5ãU"1*q5tqNf:W7^lFh]Q$lZr['c1=V\=n59'^#]M4h[//0)*]hRXjOR5kbQd7&DuO*ãU"'sOJo5#p(zpyR1gm#*.Zi>zfM'1_Bh=5zEhj'MJ6r#z;;>iwtgeI9jviS>H07b)ãU"l:>:rEXJLXV(:c\SiwJS'l^&y>SCtuH,768InT5fl'R)UAaMsdlU>DeI]TaTP,DãU"-Alh8L]BWPoY\&Q7ZuKv^g\l.Oh%mxIVB6#QAPvao2Jciu]Vtxl;hrQ%e^lQ8o>ãU"j-U4e<\:5&C_:q/1If5-e=$R5'rDX>nl5o?dn;#VN1fll-[JkpPHE,9TTp4IAyhãU"P]#ma-Y[dDoh0^HJBsfbYSma-^IuK[emK%RJe;EtoGb\WB#Yc.%Vi>I;WãU"[Fm&D2dG+42D,e6CfrML0laXZLoh&huOW,o1AfScM5KEU'DVH?NWyxaqd4Zt5w&ãU"Mw'+T^Ce,L*vXCss.&O(;%(%Y;%%%-%%L%A>BJ4S9?V6lO4e'8-U4\i\?#N7h1ãU"CmFMtLYY]gd1A[J.mm\5LkRqw)SC/q&I1[?]B6/;Im*PPf-mVi[lgojNoN.F35HãU"-acHlbhQGhFlWdKGHP#GnxgdZOD%Ubhb%%5-%a%x39;n(9B%%bBB2W]eC%)'VUBãU"IXWB'+UXVXVl)Br)Aklp/+^$&Te)jB^J)T&4jE5$Bjw+KP:cd\d*IM'-y:Z3^dcãU":$x,)Au999Eu=EF;-;&M)R6wuN*Gns%%#bE8')q297+u*&PxRONAI%'N]pn0u9HãU"%wP.eO9?&)_5bm(HLX>U?D%%OEZZ%:2ZRmR2FXWcb8D%%2#RW4_;<._3SH4mQ^xãU"RVW.Wn-i0'^0;_3ULy]StHG9AMDTjV/&q+gIwo)(-^?rzFZn$F;pIs+AUUXss^CãU";KZCSrphZzj4+,SdE%UM]IsYe>DkwagQhbp>h(,r+B)>K17K8g>P'wl/7p*kãU"x2TMWsp4V?UTPd%U][s;hguWRZbl&?k_mDDavãU"Ree[c/oVMP\2d54S3zAwFhDCOTAnZz\d?Yo3)3IJdt0JD/]S+Y-DUhhlgbd)encãU"0j<)m$wPD&MKV^;Pg5Ln7)^z/[W02)HWhjv:QR7kj>0*AwaNjP,i%buco-uRA*2)=hvt&>b\^tiGr,C9v8$DMcPG2a?ãU"d1tgF^RTNR'Xl$j(Qfmx%Pc*UL0h;Wt8_Qp1C/L6X'9swO-&>ZHIy7IqN4yJEXhãU"+WLb'CYg22eIhI1[v9XzH4A]XZl=3W?xN__kbvmq4)kc^_\LUWsVK/z*-S4Fe4aãU"ks=juCMy'eYtq_yh?L5F*$R/^0QbumZR#DShryJ8),]yXu&>('M'g,JMHG=TK3zãU"=wJtc0VN_Bfl&D'kRiN%g+2V#VHU<1=9.6-u+D9i(wHDGoOo4(v_d*/y?rfUF4&ãU"tJb%Q6jAkJfH=;j?dx8OF2%VXG^%1VL0&5?uI4hfsO,>h;;)K?AaU<*Q)Az&xN)ãU"ff&DXq$'%Fhrj[CVWa$']J;O(,,?-.?Q9NSIKvX-;IUY,D_]/-1+i2zPCIMT/W,ãU":OA'1&:xQ:U)TI8DJN.iYt03^WAcLfasRS9*HG'XkcyIB'wdKBD2cmWF8_RGRNyãU"ft'Kp*X)mNtc+#(ZT;0^'EFN.d43PHZ.tc;C*+-HH=.Snyub]ãU":Vi\okW1vZcuF2Dp/,%RX#L.;JVN=+P$uOI7HW8eS/>.3oyxt:K9=>M=MrOttpfãU"tu?\,F-;lO:m\yx/$&L2'GrfZQFAE5G?Tp^3HSyGtXHd/Xoo%U^:ãU"^l]=:W_hãU"b\(Psbb4LLK4hihD*;(y\NSA.VWwJdJ>i+v:QBW57Vun4P^FlGeuVCqWf>uG\m1;t.ss)b>#ASKbCLYsPeV768rfkãU":il'q6W(E6g:y7t8%W?dUjb#,^#>Ms??4osm2&Fh_#O&U+2>etd;[->TãU"..M9uk$^Lo[K#17o3Sb/Olns[p3Y(^t#DPWFYE=xTx1m.uBl7Mc>ue2_r7V:KBXãU"E>LT77dy(bXQ0Aad80AuSlDE2%UDh%[$2t=W$WbQq(DN*QTqe7AhLNlK1)N3l.LãU"KPF*TUW&v?[fi=rLOD:q,4YsuFj$k=o7H&(0A-+ErhL#K%KI+zB1a_wo6eP[f=TãU"JPfI_]GB4>^/..6g#t\K\2:r/ue<'Mj5CaAf;pMMzjYLFImysB_<+7fp)f%fq5CãU"N)2#yVMqfslXV'&gj%:M2ap>Yi)#44+l5JcUYJ0VVpE:8B1fV.?>+_1=BwE:EC=]I:U[nZ3B1J0HoA^dIjrjVT3\N#_&EVM87mK>>ãU"dPZ6&(.fqZ?j7Qo^=YFcp^=o8k_=$41mãU"%<$6^Y-\C*t/\:ska$l0uDl\%zkH.60fdB48fEF/U*C$.PW-Kg&XAvNXXTf3FRDãU"oMORvDamlnllH#F,vIY0C7gI8=65pk08+VTnCjI&JcTSK*pe%y1>WIL1<*GebãU"lktaZW2QA%$BB'Hw%(%dPZrqN/RU]Q)DF?unn5JU%3Qk*'RP?.g;(kc$ia6aY,<ãU"4QDp;]k'hV,=(,eh:qHxsJP,qDZGg/k*jXXFebS,cvkO?SA:eHrz52W=pTH5t(9ãU"'&zIjb-(Pk^-^1[.>+Hr?7Qu&ajT$V?f1>DZl7<I+BjDrCQ>Vn1:Q-K\\K&Q&_*)VSwV%&\e>(z5:V4ãU"SF6dM'kS,BiHFe[D6Cf_d2OgE')gMap*2n).xuEHT-uHu_ipR^_gB1ZWqRI8zY2ãU"FZZ)3DPI:l\?k5$jHw5qeo4mXY2\Qy%,#<_X'h4>ZnnzqYlBukr>UpmJYfEb]=t/a;EUqãU"0QRu7_DXzeNYb9h=ss5tE>eYRIZ_7<9Wp%/jQKm\$8W0F^'8Wj'*s^?]0b&g=8rãU"p9$addS=XP)l/.SRC=OQ?[EMQsX+Z;+L\sM5:#_2EGh0pAw/ZB,riud&Eb2fOkXãU"U$:yHa9uf+8Jdz,*3.e[SLu;tZjH/>Tgcn^o_2\7JR3Gd:4[_v0(0UaKGu^zn(5bu,_kIofNS'2]Taxflug$_i)d/oãU"Tt97/$LS;ZkI5(<>)\g6s\7vh2.(KDs%BHQ/;]xCgRzFag4ll,nW\F>M$M)9Uc%ãU"i,72x3Y(kLX$^Sw*i%aq%r;F*3XR?iOBf[<>j\_iaKãU";gRYya\pp0?NHB[nxtBsPGQJD(C\L.w\gWQ[P:FS].AZ82tTfd*gxZ0ML)Z_JaeãU"jyU2XUPS,#n0+R1-vZ#TcKLUaAhR1.2_8Ztnk$U$L(mMG1%<58XG#'oayxVhXWiãU">W:d1aOS2h/zpmp+ocqIhKu3+osk'(rsu/%uH^+FTFRsijZqa[D2iq)*:I9vE?2uRjhvO?5Lr[ãU"cG;Vk$Qx/neiX'2eiWM):n'jt&1?d.tPHes:MHFefQsks[m^Cmu?P35N'(Te5c7ãU",>9Hp;\ZbB:>$qDfqnz;u?TKQKrDhQ\ezOp2hnfJJ:)BeGãU"ZB8>u]6#gljAQ(t$eDm#%f'TKD93Q.#<_M?(i-fc58a\9N3ULR4&/ai=qXF5kv3ãU"NvK5eq6R'TDgvLgZ8.Ka.K45T'>holMn:l,UY'_Vqfm*2-&Gi]M=onyimW#_W.;ãU"_rL&dLKf?6hc:g5(Z;bmj+c4aWcF/ldzX+YL;%ãU"AX?v\M0;x:AQhfbZ_OCbR[)HG#rK7%5qrG$Xr$k+C?jgEF.F\n(s8.4I\&1Q/=TãU"KCT#=LecF9FSi_R'OMY)ZrqTBT=^u'X+w^YJZMsGo;>Md4e/\x*oCtW>Xz,R#BLãU"+6dU\L2v($bg]cM4>tmM&nWjZZ1Xuw:mL3,rgw8z^m:)Th41T'_HW1k&GX9x%+=ãU"uTdNO#8S'6dtGIr,P%XkFsDa=,VY.Zjgh_xSad=n&[/9=p-4ktU[DaLdh=quo.<ãU"FFOFNuq,>vhYXQjIFG%Z_#+Zr,TeXrgF)EQ(j\)>c(<,tcfJ9M0BO]SQXS2y/M;ãU"W?ZlCs1rE'1]>HG8BS$>R[K:VNWwC3O'=RNI;;xgh3k03)w.zurq.7LBM'a$E,;ãU"Mt/=AJ5_SSVFMOE.mm\DWTwAPfXT;#:W,J(Dq9pZ.myUYTdhzuuN<3m&d(_X',jãU"gDAALVMtp9lor_wOD>6oLvn3v>:SLNlL$&B.S_Yk7\bEU-Zl5bL.g>3_,qh+u=ZãU"Bufz?HcwyIYDN&Hi=.4O&txP>ceaVb_7wJ],sG$a.8n<.b4C=/eP/a&X01kuyp#Ph,d.s%kZ]\mCCãU"0pq*MOyE5;Yw\gn=X&jHLEp>9M-Dm0*E>L;;^YoUIadFJ,gA>QZdocBNIYa]xmhãU"S3rj6t_r.5v+qE;_7F2bR5p;r64pVPS.1zxxkKLuK4e+fQ\#vz]aLfgf3g;nsUmãU")q+.NK_R,dm>hcLK#QJA(zkba%X.Q_f2n6m>IZ>Sd>=dY0GqSl45xSzk(l-fwUoãU"ODu71PeX'pHNJV<7jHY;X>3+iHxoDH&ExxV1K-.eMH8#b2DPE:>UHn409EHp<_,ãU"lRchjrtJvcMYFALv0[Q]u,N'e[uPX'C)EeML2ni,-U02Wu5T(MDeW<&\7f._r$XãU"&rNFV'\%x.u$e?AaRjX-XBBj-9w%_.CzPl1Bv-G]gf((1KMGBn8q&EY+$[win:XãU"tqAlo5R1vYaA^iBz%UztEuqvW'11Q-mcjp%xHoaP/DWp<>LZ/l9MF5?ZI1vVdQw_mqh%qL.sy:?4t<ãU"Mxu,^rtuGn(\SJ)[l[o8tI7#VpTo$H[<#wJ,w=k1sdMUXe/PGM][c>km^FH[Wa4(RW?16&IgH6QYW-BTS4s/X)zlaOPuDW7ZAlkbp2ãU"%FB<9TKV=UCZn2-$3Ll&I^H^l25dT-F+BQU;q58&9%c#ãU"<5T-2jIUZ7b*LG-27/Y91,ZfnNFRB-BãU"keLDqQX>0Dh6Wsk=G^91cQX]2N1vg&=HWgEM7cDI<0^96EDWU;A6)r&rZ.ynZ,cãU":-njw[z1t,yH#Wry^$B,BiOA(X,I)oq6#%QJqmGt5Z?1h2De/+W;.LKdWBBãU"Z7+I??j2K62$^ZFxfqEU=uiL=?$\e3h\GUf#Zpkav%tO#(]SbTc45agr#YcWjY?ãU"kJu51b^SW35vv_=<'I]t4d?>E6e^+V'bwq\v7X37fFI'T$W9B[IER.k:>kUGeK#vZ6m,AãU"Gx+Qfea/BoisH'+*e6^<-0bg2qqzUk=d.o5*UV_(01>Sz+z]M$[O)98&[==HDjoãU"i(LfgPH^[p&we+frEr\RHUeZnrp/lr;v\LV['GG7jEe%sSnVltT5uG,XPmjqms7ãU"yPfq:5>O5-HM6u6n:^&^l&1?T#1h]MW?8MCVt(?XGErT,CmpSNxtkY0NXTt$8eV%N&?umãU"9H-ZDdfo)1'S'QCcKb(Y=D7i:3vmIN.Don_[.6k2Tar)y:*&,TX1I15j]*K*O*CãU"]KZUBZcQh9BjnCRk9>#><-P/=/)h6s0h%9fG$*]8c06_&bGd_D:#vg:O*)*+G?FãU"Ykq9#U)13ra2N]+d(jt#)+$1(j$6HmN%%up()%9%%%%-%/)02K(&0>q.:#%%s-%ãU"%%/%#%%o?)46VXLS10BTfatBoSmK8u4Cx<%9n1I0Q+[DV0bUVsf/R.K:&a*M><,ãU"d,O*v1C7nI;W,NvDBpaYItOfVU6gWdjMQthM%rtttfHqZu;^fONZtciJZg,Za$.ãU"5saXTR*>?4Z_kaCwr;q?-XV7Bx>5$DFKDj^p6/=Dg1AVp[39HfxK-j],lb6GAj.ãU"1/RX8u)2hVlqo[:uf.Hr?6flBooJYmgY,eQ8?6+#<$],>J6Hn^;l_VtH1(CO13oãU"]:?ãU"-kXFvUJU;TK4_>%%n/Ujg'j;6-D[3=J=SXBu&[b2akK7B?[A#)f\1^$Q)EQA#[gãU"p'[T#k/jj4R_,L.n]h$HR^AK^1vkNS[)hj^:7;0hA>&4O\KAj5hh653I#%eSBBhãU"\S8'/4BYD2*0$U$bq\_V\PzE2#_46AYW/8uV=1xi^''i'=3uc&7Smb1:i%GaG-X,h>_BDãU"D9m\I.;F-S(g_.Yn,e?(jpepuku=e^=\>F2L+&mYfRlaDW.6*e[5f.p%ukY%1AHãU"mdd+BSIMB1OQ[=f-WhO\Lt%C$r0Vrj=pBPbMU502?lgY_gfidU+tP5(:##67xu%HvbS5EQ5*IEBXmuJ8(M+kAnZ_&IJ[(T-L\H3>mcQ.[(eARA0KyV(dS%'X5>1WO(ãU"(FI]E/pekXJ_7kLuu(F#u?e0XI?s_HGanXk0%?0#lpLrSC/1*7=Z2&Xjf,T=;p\ãU"D34h%2aeW+rVX;jtwbjdHE/%JmiDQYM4QGZ#q=GuDP1?(K-Y:u2r*1E((B&qzsUA:*j1JfãU"rIUs#?2QvaH?6$V,JU=#A1Y)0cD#=Kpm%,(t==q6X[3L'3k>H/k=0'+UKk&%qt.ãU"iJJd*V[_-)b#mAqSWrsY:uxM2tk\)(We]5BK_mne^HEGI:lY&sTãU"+mLrz;u_&shZ0&d%Sd8gA'S+1KBP>ZP-#]]RnP>;W42wOZmH4lOxNb2Vmaak'4\ãU"Ube60a[Gi3e[V:MH=YuWImT+$TFns1FgK>*[\Tw>QF)Z\;ca397VI]=%Li50LD-)2(XHdWstP%RN.sbQXTqN4aS&T-3LRnãU">Up_2$8d6/3'(Hu91+OeaZP;p:/6r)HWX3U7FS081'3SS&h/(hvrFuiTJl*5WqUãU"X)q=A:JEv?L6Ds%Y6FgH$0VRTHUa'lu&,6_m6[P-I/>*pVcxa9bB\)i**loj_DuãU"-6mTf>(Z%o-aJ]*#ctR[baB_?Gj&AIrC(H$M1d&xO)9__YF^%d6jHQ+SpVD&vPVãU"D$Is]^w]U^'DK-MWn.khj9,0goTaY#:x1ad&1/lp&91?ãU"M_asl]5PYtA+%G)QG/a0EP'<.=ndL1n:tSRãU"YEfc-Vb&%q5Qaf)/tom6E0^zU=%_T^Da-jIeIT]OK2Kxw]a,<,oyZT0%n9QPb_$ãU"jpep1jOykau9ss,*:0n';2Bc(Ik%DRlxqC'70i1h/ZTU0=)>)rcNNFcAIe\=w4l0I7'YKJZ$AI9x)fZZ=aomGSnãU"v1'>$_0#fi#$1WW&qBhsbR$08AC&hp;+okLa-,sm)bRjb?0gd9'mZenA)T0PnCXãU"DaSGeRGI>IB/i'uW$Z;s=Q1D2_rm'VqvOOW6Q9u.if'CA/jbqãU"Z^9mjY66PTJAv7.^70L)IL\RkGiz*$P4KK)sApGFRdãU"#Cfgey1aUCk/ZsT:',qi7(fd+lf1b?3:gm0/(l]]VSXWY&=]g,(8I3ULi?2WlIP,q[\Q9Q;qgu+(:ãU"007n#YAFZ/Y9?v9MiaJ*bczatc03#+5dxPu1H#Ju9i?;WLAbwFImqhoCqMeirV.I$[IdvED0ts:t>,X.:&$ãU"f=1C4qktD4sU[a?sB>B;PxcdyUrc#Ecdwg>#UcO.5a\J+N)u,';oDUv$M_%66bGãU"WTH0J4nJU>%iC/yqt),Ea5HN*e>M'eZj&m-P$dqA,P%95OR28*sxrIhRN,aqVIcãU"Fdbu2T#]B=pEdN9nA2tPWvn3:c2oXQQ(bZdh.M72*;Wf_.bSBUt>NMw#u8TwxoD18j%,1d0lph7qA\L?M7HWukuEiFN[Ck&e:p6Ic.l8O]JãU"0o#CJ;_2h;zpEHrG7NNhvbKhVilqgm2u'D;4IfNot/.&_[dG=pXqebZãU"rIJl;^L+dF^QdU'91mtY>LZdR<2Wz'E&]4rnh)E7,dpDe_Q-sF+1/jF*,s*O:/8ãU"7CAGiRGa3E'ekfi/fGskPYc_D?)wfERWECBSxLSsGaiI#,J((-c^HA^e/&5Gk'YãU"k#[0rE\L's=<'e2h+Cgo+=lAkq:k*RA3QVjBf=pf>34\ru:?E_Am000nEzH>9:wãU"t1V5tIdgcoe*S'j?*X=xCQe.js02YNVs2R#3mETZ_'O6H1;Vm4(_?I]k^GL3BIGãU"gq7#[XMK-J&RhE&_IBNT)^U<0=NUoU*umLezL8qpQF=4dqTD](3V;8K9usxlcXQ=qdkZX*,]j-A(CZ-0zB,G8LãU"_+j_%2\+EQ&I61C_X*M&U[:og5eJ:\0H$v*l26Y*V.Dx/dZUM8/Z[2:JDvbLG-0ãU"WJ_eCs^b;/-aLZWrV4H*BpK>z$Y\FMxj+3nKZ'gJIH&[Jplj=:1o5Y>Ep'I/7j>ãU"W5Ae2%DFPKcqAq_DZ74[h2[40vgp/F\-xQ7J0qd5FQ=_Jm[xW98+wwuZX&>&V>yãU"-GXORjPQl5kWg=Kh'[JZikN=]QAz]5h*_,ykNHZcYHbHSz7j:+,IDo;(Jc%qadMãU"QtJ(dwSrco9OFVjiww5gIrfBvsw.\3D]aR9D2tM>3:<5=U0nf\=I9Fq:/4#YsKwãU"aW4c?kB53OI;cNWc>f6uD0,LELJkz$*kdqli<:gb/\&XO4ESJT$Hei;0Po^hEB'ãU"Bd&3J:&p=F^er:jjK+.7awp9rmc7PBtyka\c>E'Krt[nw'9:zcG#_raVSt\S6.uãU"..eS6_izaCG.P.ajCl[^ZVnrYiwho0[LxiL0RGQh#k-7Mih9)]1OVS6m:MFK01LãU"EZK,%bco2:F[3m%XqaA?Ubm+FRaop7EFg5?St2c1Vb8mM&5,1FWZTlgXso\[09ees\Ga>8Y6_T]Fb,;nHH0V$Qg*
>mIMk-ãU"PaZTe1Cq6:'uSt4ZP$83HHg2L>C)um\<)>TvS2&/sV>kcLq+Z9*.>$n>M\.R?UbãU"xf[59E:#]j7[M[A[K1%XRq3ha8wHgf<.Id'%>NO44v$]b9#pAF=T$[gJR(7m424ãU"ZD0Wnv\IBMpqf4oSW3=DaYyk0cEcLqy3p8xIWlUhSAb>4lO67lP^'ofpZNOcBcRãU"OG/H&,fuXS-fM)OX0k5CDKsCLJ?gDvXHTDD9yp*6?etJ<+-5:'S3yOAKnvoOãU"?f]Zg;DB812X[NTR;zw+9OfU66Fnf76\k9H>E;''?AL7W0bESig4Yb[_ãU"Z#r6VHC](L%Iir,J*3K:r>UK8v_pp[Yashf\unT3EnU/>z3Q?w[t)cBSm.5gYl*ãU"F6fQw17B6g5uVg[]\Hg43lbDJ_xPkvn78s)&g:dkosW/G%R-$P49K5JE%]l&Kc+ãU"1AkD$Z4.,lu9pEY7X3Ug\;CO=X%b,[F*?cSUeS)\i.1w>(LHIgxU$dxk2.qi1l)ãU"kX8g4O%X5:v7[yStKdT5$Ei:Rnbi_-WiQ>BB4VOAU+UlDRQU][3VhrgO*Ocn.R9ãU"W\.Ref%T8eT%cD:%h&E^BUE/OZgF/?1mIjjxdWvKf4h+]+LzH%UUN-1xPv#a$EEãU"yS?mbp6R+G/%X[%cjd.R)pxh4CdPH*SfmM6#aQO8D&EhmlTViFB3FtKgL]SN6QRL]iW?wu7N0)TC]5vTy3'$uSv6obrNRAVB[C'f6XR_8j/4jL)Ke7vr=6G2IPFhXt3[G7:dFJclwWkqO[X'Pw[0PZeuãU"273ByF3W+U*KofDXeJ^/Xx=M=,\pFetAutlHZ;isAcg/m:A>6^&>^d$f8gz*cR3ãU"m*#b(u9$y+0;?gfWIM^^OYiSRL/]b(mXh;bgRKsS,ud#YJsNmFS1K7Qw1f(i4,oãU"-R_j[,j)'\G>;H#-%^$8rcxMSvoKSvI=SwGScwESwoCSa;9#86J96c+xUP2w3L&ãU"O_L=:\L#Y(6FE8POCyãU"nK8<1.VV=1D[j-2F=<=i#=h(2%MV7([tL2033D5AW:XZ]ICSfZ+Fv#u%p&'9%%9ãU"%%[%-%T,_1K#E&^,b%(%%U%,%%/%%%%%%%%%&[%E%/&P%%%L%A4023<4S2CGCu%ãU"p&'9%%9%%%%-%\b>vCs3s.O(#;%%Y%;%%-%%%%%%%%%%[%E%/,P4(%L%A>BJ4S9ãU"?&6up&%'9%9%%%%-[%/)2^K(&>(q.:%.%s-%%%/%%%%%%%%%&%Ej%/P]%>%%o2?ãU"46VIXS10&Bup*%+%%%%%(%((%u%%(%:T%%%%%ãEND SUBãV2ãCLOSE:IF S=47AND 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ãDmitry Brant DISPLAY JPEGS IN TRUECOLOR dmitrybrant24@hotmail.com 06-07-99 (09:16) QB, QBasic, PDS 1618107030 JPEGVIEW.BAS' JPEG Viewer for QB, displays Hicolor and Truecolor JPEG imagesãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"JPEGVIEW.ZIP",4^6:Z&=80062:?STRING$(50,177);ãU"%up()%/%%%R%%%[8_A'Sb>(G$[%%G$%%%1%I%%D=M8E14#YXSI)8?up%()9%%%%ãU"-%5O/CABD]45(j>%%,3a%%%/%%%#zsn%%gjSjn'je5(2Gxj]SdaB7ntKIGsb,t[ãU"e.*SC)wy;\tGRQIj2Y)+gJe0Ly4(,WVdNaC9FR<.US_Abwd<+%acSDtzg+aP%&:ãU"wK4u)7&$Sof**Qg*McSRTL*;Pekkx>_gI8)3uten5rhJ6Pux3/q=$$UXWpKVBlHãU"ELHXq5(3CV#7z*+m95#n/3AI6gcshUjU0;QCTCmTHx[0h3/K'iYu.Ia,GPG9Yj/ãU"FB)&GaBQ15C.;*K7ebI/*u#'F3tOr\Pq=XS8?MvFfY2//_qUXV#qma?1RV_<%%<ãU"U(9A(?'$FG]p/a<)&qF:))g(4[,q.eao'03uVXuãU"9P9#39.PdL(jP&>ON9X<929'&/;U&[uqK]$T*-RC&;)m+(_(\R(N9T8+gW%&M0QãU",8m'_($,Oa9[)I%V&b-^,0-(n&0h'>%_zP/YjL9l9ai9)aSOE]Ba+qAQ^(K-uCCãU"G.'F.u/ga,U3U1)+igI?wpm#&1(iSaPMzJOLP1n/aiB0YãU"/D>9)5A&$3bOMaZ9'YF(8*%ãU"(%TYa8tgV%K5(7P$g$:c]8(:9%(e;U(1_q:896qA/G9CDPãU"qi7dh04Jg.'PHb9Y/C/_03U((9GLEãU"7kp04/C'C'jãU"5PPP2'9_E>#m%1OO;YPd++5&J.5AS_:&l9*/o1''%a3a'#Q'oP+7939(&Texa7cãU"'eU%uJF+Gc)qL&AP;cY6)Ma2Q/5g.gPJ&O.=+mI(d[56a-)\y&T)C7G;w+)Wpf_ãU"I/PiFK)>GaBQ%%C(-)y7&T)7/G;w)/M*c(b497YG#Y6/#6u/c1%Eo-.M)5')%/_ãU"U^2g']+'Re;%UCU(&r&8U%1m+7.%(o*&Ge.)/Veme^L?&aa%G%XI&LO2996YU8?ãU"5q)'Q,Y&F293oa3q0iaCi3)^:G8QF153;+%O&T('-ep6XB_&'iQu..),rC.eL?&ãU".M(e%/^(^%DZOwo+))(j%eFU8])'oNaPSD1k&-MYF-)PjkY^9AN&pOaGY+94%-BBNSJOãU"#AO?]t?eIg'/-,m&K_&bOO)YkqLhJgC27n]fF])ELDU=C?OdI0hbp4['VUz3tnUãU"HxrutHXx(:N4Q>H%uL\4pDwqHivG[^do,at8Xfl_%k-.jd#a4AZ$IaW9\X^LScxãU"Y,AHViAn2b3LVvi9[y)q;P<9l$AixXDMgYj:8fDKiJ4htaKF?+'ex?nfC^gg*e)n9ZBãU"Sr+\Y;v^tK)-1D4ãU"E64QjHY#7,J#A>M'4n88uha+i/#Nlpo'+9l)RFeaQ>k5&=DZf'G##4J5\:o3BPiãU"UsxYEiiYZ8SNu6r)$;Dpk'ws0&E(CfãU"Kc;vo5W,XpMY,*d*AfHnFKM6zd=A*'th,q)hI7^&ZMzãU"wNP+J7'w2,>Erf4#t'3uiS?Q[3yA_3U?[N3y#[,3XoO59O_Q$eneU=32*O:Oo>FãU"[&Rk?qu6J^hu;avZ*'WpiF:+Gp,F./MZl(z[2xnOAug?J.TCUGLaah8,#PdYT0FDZ+CNãU"l>WakiLDF,]CYz;u0lMKY\i\[A3]pCD7nwoftnc3MN3rwUcsbyMpPãU"l/]AI3YYB?NmtnS(4Su.4GiLqhSe<'Z;&\)cRT#9N$d/ebsMW$o):m$l3w+FeR6u.47ZDElvãU"YHCOewfNRBe&BF*Y3(k/-]&gH[kM6aEpSQg]OwVh[+7,n<:O2Cg\.h,VTV/#GYFãU"0K#Q,4jBZUAfA.DI7?MJl8CsãU"$I2zXng^Yq3=8bW:HoPQh-gNss>85=2H=sjoy^nA1GuT^eUV#n;lS^n[%T6h\=[ãU"o7TeM_sH\hDn#WebZX$G)ivboQVvecE%VuaoKgwllpn8uxuv$6hxvdJ*vIkZ06wãU"cOoTM/GFVLYYipGd$,2ãU"e-[Akr\T)2;(k9F0gpPn1zl>f,2M1X259a?H.49G.#MeF2\3NFDaz4dB:#g$qr$ãU"ji[F3msO]qkhl:/iI_B'YbCsbmArJS>#Yd(o#,C/L\(n;6x6K6fk[z/idsM9k1wãU"frKIiNpR&f6q,r*4jeXBcaLnxV3)9$qRmK,\i)IS=M9nxKrYx#Zz*<+>0Z#v2I]rpzr1X%ggLS;p+h'e+ãU"Q+g2UkHRA#c%OG8M.Ztuo_39&2CP]z3E3+6>UAzA,nAjS^\Y1L[bL6jR/WE6\FqãU"Gs_B,#K6Tp42,NRAE2c]eWs54P7PtifnP$vl$tn-hsj+(XTz-cLEli'5_pqãU"Sz#Gx0W:$mBapzerh<[hEl#xNh5?33<6.&gsZo?c-+XDFpr5JrrJ\H=wãU"jJma&r8QYmOjmK>&UVDM#/Y?&,0v[Cud;?jW_\GoaGg]VaY9m.SY5RQj_WS7n>$ãU"b_)^K[f+IU=4fGx>if*A3_n)e8fG2b8qQ1xt2=MJB]J$Rj]gq/>nkkK*[^Eu6^6ãU";rkls1^6rQ$CB.J;q3MGOu[3e-kLcN,^x$Nqhyh&ZTFN7bw_+p(B7d5O]IU]iJkãU"Jh?h+w,7WtbuB?8?wpPU+sq]adDJwjo9kCamV?U23buURm12Kt2aH\WQB=mB6&E_[YMlA.lU4%COPXJro394&rKi'-A>:naHm*tlãU"L/4$w-u<9LOC0&n?p#YsD,H-Z+aT=iP\<)R(b+QDn/ch,u;]?2:%C4h]IUAy)y2ãU"J7r=vd8uKV**?v-;23m9%9/Ch<2Qnv_[2gb>q#FVf'KX&U9BQyQ=OoiA3;WnT&oãU"CP56'NT,,89hk7u4PanndFB,4l37'i=Eo/OcnXBkOTT,\ikcWQ6b,5//^tME3F\ãU"aAbhRk&t:)2m:[)6i.Fv%*3luG^mkiHq8hzJ[S;8OuF]v:idWJo(k3);tPE-ãU"ZF%HO$xCmmj)>wAC)tqX'/]=:B*]ktsUj>D189(//jubh^89jM*[NT^.S<$=8i(ãU"^GU74R-O=;3:Vc4Dw17h)q-+^G/i]$k')?lwCU]tVL],wC8#_1O;gb1Q%sVA+wKãU"$VD<>+xNDR7Y*t/h2_=n6SdbFlt\dYu.(G'+9/Px\021gcE3mXãU":LQ;#3Rn+/,6wVSyshqA+##shdalgo$QMI5smkCgGU.A^v;FW]QfvYOX8%H0NS1ãU"+FRf;#w;Kwd,+]]*^gK2:3Opj4,Ep*9>-Hj1o&P8q&:a2DO/Lw-fn)ez7Pk&^82ãU"4O*AF;2V*gbA]g_p422VI/Rk,>cGB?fO>mIMx6T('6=o[YjG[MW=I8DSlwM+X^$ãU"VbQ'#i?Pes-$#)BY%d.XXSu+b#dO?1?IWc$JhYQ_hvb9D)(P??pD1\bEjU*NvcEãU"Ey'h>NC_5a:du/?-J$:D[NkSk.JL*AB]8Omn;9P*#4gGu\nrjW(-aAj0:j9O\$TkcwT;s'U?d9]xc,*H5bja_&nwd&'<2\gLPIT,vPy-ãU"v:A=$lHE?DuMr>DB]06l>#RpxhV6I5\>Jag7Z%sIYkTh%))c(#62K%\SVy=eRK%=+MãU"2-kB_Rh7$WyAhSq)B&ne2pVl3j+Fe;;KJunf=sWmVoHGrKbDBpzRs/xx6p1r3R0T2q\ELwj1kOuIcKHN,v1^N]'/4m9?mlfMk^;S;QTm?2Upe0-bJ0*\rG0>QhKr6A#kj5ãU"M#.IC'D>:>iint,Jetc*6'C/Rn^JvMrYZduX'mUwDM-S,'k1vEU(X/q$ãU"]v;$]tr:kC#VjOK#8N[J8lEPeD(=uh5'qv\+17=:R.Qx6TX^P(;Pd>pGvãU"nq8Z\keaDDY2b4=QBG$y=w/FL0nNNw4yrZnAlJY3o]sQN?'(2XT-jN>&Sq4B;Q?ãU"6#gn0HDt#:)'NB1=f[h:PTGhJ5%?-ls=IK]23'p'ifEQk-\Oa7=>>1F]MTnaX.qãU"u*#+O[>V[?9*%r-j+qdR?#6V<:wACDU5A:b>'QLP8\q4DI3Qbb8+QL3l2hqgxq;ãU"+3xdRUr9mHNWi]FE[<^6e2WImrExlqD0p>[RE\qr-[kjqW-(#jt2e[YqVel\qOJãU":wWII+^65aA/b38jZAXIOipdFMVB%$*(AVtSvS9YdT,N2]RIaRT_]>,gi5L/>9,ãU"oddxuqMKmsr9wAsTY#HiAkQ\h7vJZH9,t?ljt)6?jl([s=qO]vS$KDBFs#d.?p7ãU"hx]xm%V)PrS$dJ_02TnvF&UX(FVKCZ6c+bUFZYhJ.2py3sxqJ5qYUP9V0*L]ROSãU"/C4Ga1Aij]x*Tx8DwJxa#ugWennM0xe(OEx3r[9dLjUSd.=p$#4H._Q-^KLãU"N[Qd6HS1KUmf.4pQ-S%XR1H4iN6<2d&T2OGeJY?qfnHS9UeuHRJir&%*2H2Y9UhãU"RG4UAZdpvT1aRruUolz1C\Xu#R>8J+p8RQmV.^9vwMz7w,C3lHV'GH$t>:RVf%;ãU"_z3e,eE[KP[Qpmy3.AJp4$l>>JIj;A75A<3geyTd6sWFASr'oatBGpl8a\YAa0AãU"HaHv.+?3i3Bvy3LO7nt&u4C]I3fA7*BcphNLJV=$ChnjL)8wp3\,phb^MQ=amulãU"4bLM)t4Xhv-eXrMAUcGIm$Gm/%FK91;;2pPCuSpjkl%qZ#zh7YKhjvF5uOlnpJJãU"2+un&wazqfDEEtstZYJ8Vrq2/4SPoqpZJd2G5<7V:zdBlcFzq[#gO-JpFn_'Xyivr3fHY1)3rNpG%EQy_g$eX>VãU"=/fqn,<2_Fzq7^ITrC]&FwgF$9[/mPVr3#GAkb[Tr6>Kwh>)2+?KtFWror)rNCrãU"B5:rkJXKadav=BJ^iHTZGmo,;#04gL&r>3jm8BJ=J?SYGgEi'XmpeK/a2>Avb%KãU"V.r[;3KgcF\vQkSd.m*bOhPi&.$k(B:&MfãU"Tk.,j/bZR('pj4GA/juq$BLY+R=SX)Vk$BQaop3^n%?':B*[KNq7;zk&mmOãU"d4ZH*EuQMGC=H#ly5iQ#FY=*R08P#xMdeFH2P^\#3SimG&P=^nQ%:N3RvF3b;bn^xn&hgetpec4gK_I-ãU"nLN2>bkHdx*n+3pX6SlEPKC%UuXt&F%$[CQ:7k,Q1kA8y(E&uA22q#nNQc$gSN)ãU"gT>oT,U=2Z6c*.+kgb[/bTR[mh#c^4=ue1IoG+-=F2AwVl<%1**-KW3I$>#j9vtPpB8OvQ')rQ?p-cFm=Vu]TKDbWãU"A#3t7wtxsnJpxuuT(1/#pi05;d$lk+ws86]KNtaq+r3ãU"Gc,Mf')^JUsr6?%nDs/2IbãU"%vUOTsTkzVtKFzh7d4'?i5L$<(we(0'6'dVISkm2M:Sy-'#y8J-HEfk922_=K.5ãU"sbS[gd4i1O:26XQNURl5s\4oq5=+x(J;?o+if+2oV[hyy4h\,<uGosGK4/ihMIO^RjSj3B:6;XsU22sFYX*r1Z6'G:y55y^XwrgImd&Wm)ãU"TX3R-m\Kiy8HfckYDjJHs]U\vTG9&0QW9mEKCS>:kV=ãU"KBzRYL[.q9n.,4Ukbua+nEGU/%QJ6qN)p^;n(sOiKH5^8j>j36+eu4M[[RHMT?;ãU"SSQDTtySm0hkl5vElK]=6vk:8zd:p^:nT/PBpGbgkrQt]H^ibf3Fc:EXih9yjFKãU";Yt4/TicpdZ$XKoe&n'?cI2>PH$eA\PP/ZU]F=2rko%.,3LXI],2;u?E2tlpbGaãU"mlNcR;*b=DWVx6BAlc,yr)fc$$+RT$RVhno+lUcmO)$$yc0Ro<4t3;5#RvãU"W5HtUBlD[LDM=aLKGtk&6P_:T#+TVec=#I&3bU2h-N,c#YDNK-W.7uV[f#548..ãU"1HM1o[L=#+X[v5\^6DBG',4-Fp2gERsm?ml]r7;CmbtToH,^HU=Kw'uw]jrjMvSãU"88s575G]^BFR1Z4=hRf4oKGw3NPn0Fx+oQJAnA\k[-B5TAEmNuwq[(\JDzfA>KtItW7egXw>%gR/LLc1VicM?o+<ãU"8Inbd+Hr]K?2H*=Yycb34d&?qDi;Uv:/u;VBhO40F6J-EQW,yLZ5$N2T\J7?mqsãU"6eZ$PWmt,8#GMr\4Ceu\J[GAcjd3FNbW1A.re(aE,M/Zo]qdgI\.F0^?,VvB-7JãU"c1T2$;Tn8I$[m%AQ](w)&%uWU:t\r(_Wls3I,XrGc:mtS$qoC0ByaSJdx:/Y')1ãU"CA0(t_8Q(f_X5P7di6]bjH^4/L]*%?*$1S9oY[W\lCNb;ãU"<>jbQI1WnZ5:P434y35Z4VJhEKqgZ_:'ZgTC,E2,l3b8x:HxhaM26u1-/ik'PfUdãU"LbT2b-N2S8tON9/$x)ze*tCMk_&9S$(%R,'q?1F9n/T^gOneQt9iX<+[xGNMsMwãU">HdB:>klH_'TNsp)\p:yva*4+Lemw[*cr8/w\eZ*RQc%Ive5rx7$RyRF:iMQI*LãU"(Zs$niH7GvFG^%i-N/n(rIk&8+QF7j[xW^=f:_*W?t[6;^iS,;I7K1Lt;8?^M$AãU"9-:fS7zV(Yo?,V^,onYeDpU4;0lTdaYE&#yP0/skg-(un.Epg_TT*4eD]NY.%h+ãU"CG,\qb'/%;u'iWbV=t1'>tU:C:LmWS(NPxE:;L1Zt:HNr1yHD7=1^8bq.o0VZaTãU"puZ[)SCU^ce1;cu$jo2cFOCcNQ.TlLcKFtH*LOtm^Y_VOxV%r,yJQqUZxjtP;]0ãU"S\HF>]P]u\*IYidQwjsp9YT#wY-'GzMNT=hgBC8&zEkQp2aOvP8TT.xãU"UX:=\1B:tdqcSmojayOr)E5#mz[JK=oUy*rLUlPaUdf^n4/FBJ>L(YJudRJN'pãU"A:M.ux?q.KtOmYD4ZxO(GJsxyqCv>PZEkv]UHccP\$vHoO%A:lw1CãU"^Aci[bY_Qm$g.];o\s#l)vP=l+02Lcx9[Z.LOvF.p1#0hs/rãU"Q1N:dHOx6brfGx$EP_4:(i[tjo=fqM9Yx<[VO;u+fxus[m(RPu#nh'J-'r2haOOãU"*/^P7Jda9%S50x*i,2:n2'I0w;TGiivI/qk:7c-nt#u7=MaGtC=x?),c5NXvH9$ãU"-^J$CUb)Yu(BXwDk:gH5v'B^T0(8%LU,n#gjAwEE;y8A+7MKUNe)ojdxF$ToB$0kplaj_U7W8%p5,YSDhAPVG<&7Pkh$Zq&_6tVFTkfj8WuqTãU"]*rp8kf_RNnD])i,Ed^\>#XHYqkHcY9Cpd<)[:H6Gp1,:YB'125OY;K(8]pK-3))QD:>ntJui3&fA?I#W_Y1pAJ#+XQc0Y5N4-[uO5kGK^WR-Qg-ãU"_wN+I'cG-g3S(E%sr&LR^(hF4^;b,ShM('Sxros4\CW=wW#nKxeW9>nX].Shn'P%O,T<.wAgHl*nqjRCBvFJ(Rx2UYl*Ft:gOE3J[\BYyãU"BI[QMUpHpVE+od;rp_dBru_FKFAfj]*;-8z$/aH:NbM)([py_Zkp-TI5VcgTfyhãU"Z1\kVZIZr&s?RmAlT$1;+FZNw%fGG/$HGt&qNx,JZ^MekCbuxp/?CNn[OYyuR]dãU"Lp&UG10\)JoHT2SRcBEsFWjnrsVJLJL(k]dY+IQPNq3l8g:NGv7ac57nkhnEc]<ãU"HBQ(Fz-Ca=I?)>c4X]hZB%x<]Yh7qjbBnQP;N:X9Lgl_]P\T=&7-Wyl^HBWm)'lãU"S75y^JVNJit9+d%8?.d3ClMf[VPke''q7o*(ibHN=371elyt-ãEND SUBãSUB V2ãU"=o'H-5MP^k)28bQSFa.49OYgS6$FmyE:yWJfguiPcU(W(5(9&\eeS;R7Chk1%B>ãU"pLp0.K&Gfl>SX-4caFmP>pW&8Nq\CNi>;cuTGF6laz8mqx6Ur&/Fr\qmn$M;dSeãU"XSBkFPE4t4pPKi>8d[Dso#H19;#W[>Hr#cIg_4n.V;Jhs#D^-K80vDaiK_]Z-C7ãU"83D')BOrD%A+mbOZsJIP<952ipfS_&FgCrA=%wGK2;j4mH9]%uMK]CS;-x\dQb;ãU"j[rtd=Ti2h#4$Uc%/z)M2nON);<37$fd-G,p$wpwn.Ze#+Zx?E2TJsN4w;U$,&FãU"jdQg4^_5k)Hi%X6HGeGMZfC#tgq;A\_4jPTLhal=[(e0H+M]q9JdB:F.aSxpYY$ãU"<%honmCUCp+V'o4Z>^7/W=qVA&s6WxeITs(XAYmklg[_XAXSP^$2OtZT5e:U\%jãU"SupRhI(aQ\qTOF-T+t.C,S[fYg_cMh78qpeF_Z4eJ-eucXApw%D7(Pa^PZ+?e+4ãU"UAw5dt>nX\xONgun1L+ddn3_1NToD=)opH:\Jq/#8OD=W>uKQt3B%fJ#e]hg_U(ãU"Tq1(E^8OFz2g[$Tyw30'NfKlacNBIhh$n<#Ir(lqKadYiCrTc#S>U18Gg7OppLoãU"Pa%lPEtt<>Gg1CX8e2ve62CI>sH6..\,]%02rl:u\'T,+Y(Sx)k4fSRKpfC+/6EãU"(g=>?9t/s:Tf\qerH1*Yt4:Zqoh1R/KdSoaK3rvP%/GF$A+b<8OPIwYMwY<;MSmãU"u^Y0gX5GC8HYCmmAV2;M/_dyE.dDp047C,nl].cQ=W*=#x16iK>IcWpBx]2?W_nãU"[.TQO^ZwY>3lQ\l3tRD29IJ7_7PHA?Lt(_NV-gC0)N7a+oUyG:.0THCãU"frnTKD-):vIl6R_aqLsTN9l0$ENC,TPeB&b#q?&HLe]=&H(a6a_PqYmJ'UpSM,fãU"Lmgc1;0+b5cj7=KFxiKHbH.D%DGw/O]CZF8v0Il5O=8T6l).#eZRhKtW^g<6yu.ãU".3rM?-_oqL71a^/#*n.hh.i0bT#F$jDRB[Q5g746%IQWb1:ãU"71B(,W[Cm.<$$7w3B$W6H\E&6^:,VR8HhzhI?11BB1A;$(kYSlN?J3OJ9jWuDVbãU"C]$4M+d6/k6NN?wNq4'\LL_cQ8I\dUHu),\^;qqXENE9'X/rQ8-c?C2gU6&A2=u6BãU"H';^[wggqhLg?tv:b*#+rgpEc3.KTSb^K:t-Pw?&)dSkI*R45KF,>u=Ol>s\=53ãU"jHUis7Zll?jBj&HjCQ*Ot\#Kga\3tu%hA>:riE0IBOp.\bNccjarHm2a^EV-UlkãU"?#^>''H:mqj+1D)'UgA;?(2E'Xr;MUePvOJfJx/lrx&)Ac?U'35F\NTpMi5oYoãU"05vb%rFj.DF-8[px#tjF:gn8N14M?1jBuMxU?P2jM=v)'J[cQ>;Je>vOi[aiR[wãU"C'G7G3C1zv>/.Kx22ox5%8G<=[Kj:mL9pT_;_+HJ&,soC%Ad]>lxMRbQ7>na4gDãU"vQlP.%&rF>3;esNu93re/:bGN]hb_%?l49.RSV^IccY2tGHdArrgqE<;tOk8iGRãU"#z$:Fn\(u?RT*VWs4*zJV]1,gb#][9vkjNQuE'dfH^VSVK3QM,2wU1,)lO7K%z;ãU"&llt\l<=rr*9GTW\9OKe\Q33\]aDr7[<,^g\osm;t,8mJLa?hW%%G/IG.mIuGaqãU"G[:i_N)KHOHhP*LmHN^34r:iAT\.,#wLJk;]$[e)2S*P';^FM%jf)q%rE;)3GYID^.F(kq[otd>_XpASgaaBLW%T'm2JEcW>KãU"DXe5$wf;stNwWu=0D_JI;1'dc-rnD.kLLdV4(Q'H0KGADDQ*5V)7LCr4TMvf?w*ãU")eNy/$th?P'WO_h=EpFovj/5tZ\YKxla?ac$E/^dAc/R:.BDAercZ$xFBlYZ26X.latfLt0^gMiF;8ãU"^W5%>7WrR=K1$s;)SJn4)#f+:9;jxT^JpR$D/mb'QO_[Pp7f.+u\-axIbo%-eAnãU"Y\becHNRKJG*8d]iu,6&VR[m6L(t8DC\I6^GbMU3<(M_1qjqojb']ihN[:=+_kHKi1W5_<9%VKS&yJW)sAgq)Jk.V,\_RoSQNISjRãU"7pN.atyr:OcB8Kl?Ko_0tNN%l#h:>eUK)=3.>hT'539HjIh;'3bc\=A?-aE>>\JN\WI'?nq%iQG<*o*T3RNeNYmp<0ãU"lxqFvBmFCO;s)QQ-lMgc^U7Pep_(41:5;2hJtd<)0()=.m_5]KgilcãU"pcvqwzZ56]Er#DOVs7RtUNP?UKiv#od7SFHNl=(j0pxhT3m]gBAmp8jJe/'vRM3ãU"$lfp[,/MlY=S4]D%89q?&%:9Db$lAUMU*c18v\iwKe+Nh%i4T4:_dl#^l%\i\u^ãU"'SKIXBveY-,)SwS7P1G>(xe.u,8ku&o3dRlQ6<,>>:n1Q$/:82d\?mX>\lawD2/ãU"#rL1[Vwks\984*mW2wg/:y+y1)(H=CQ]$TP=gADl,i^E*l5tSN-a%$K0vLSNXEWãU":C2zZ]2+?+k9==5Yji17iZPI%SH<%h35M'<3%Bb7.>f:=QTkq?C[(<#TIF6r&L<ãU"t3()e2/ZfnFbHQ%sl[SAcB/JEiãU"rn:nG:eFzMFD8]#&k'6/bHq/wQDXT=gTãU"SyYKH0cL3W*G5MuUN;)/((/j5IGrgOdKjc?x.O+<#D)8G^)pZYe4uWfO*qt<[jSãU"H1LG1ntv\CLH8h6?)R^m>\:XKHJL4Rox%WMDlEMZG#EfHKI9hZ$.=5FslZ.kMjFãU")9*<6CU(;ToCOKQ+Hp4&hxDSR]w*J?HyXK,2O7?v1YeQ2'u'HnbDPAjM^;eDFkk_iu:TBNU]\1R5fKv+EE7(WL'M:2ãU"Ztp0H;m.1o25u.TEfMXkRYK6l+G]kg2?4GnãU"$bTtf*T+E)449tC,]Y3pc:),d)eN$Uz7g$$T/&6YI[y^ptb(*65\FuOq5cor$iOãU"gdNV_]r$1H3XpFT'OPa:t)Hv5N$-d65PKr?HbYV$ZxaTHh$egoZQ..FbGZVI[X/ãU"(V?X/1'pAkljq&=x>wnZ:8MS]O:yqNaj:g+xR-J-5I18T$1ãU"/f]R1(Fom57G;7fekKr](OgK\nHAomy+*.evEH^l?^)Z%0t^J7Jn1O&]hCvPXO+ãU"sM,R<Hdq(zRA\Iy6%]^x9Z%S1oR[vZy#yN53mv)&s\oz#-h9QãU"%W:z8Y69q'uD+RM',tkeB,)vUb6e-5Y9OYIPR[ib[aCCaG;BJng+jh3r1rm$EuSãU"HwXsPidb53LsP2Sst:[?$'aO0nK'5;,rakumZsniNP:mW#/Xs&p''dtb5LYJIc1ãU"OQl\,qon;c6u^5P'$j*TA/J.SaKH\(mc$p't:Q'ZTt\j]wlV[ho2Xtv?-Db3UCãU"c'2wW/xWA1$Fc$^O+7G25Y4LDS>b(^2eZB]4RL\Ob^3\Y,bWr-C>3potz#p2C;1ãU"*4z+s'e)Qo>Fwgc/$(4x6t4DHA5uVeR08Ej?LQ*?pc#Ui$5nShUqSy&Qd$S2d#GãU"4$ElljHk$BHNhuts_3.)=bp2VD,9]Ssbuj,GxJGBXb+Wlfh=0p[M\uVTuVEmTRvãU"mCshrQgZe)m3scGBlghr$xqi$f(Jg8#W#/)EuvIHj<l1?SJ4hL3F_[7wãU"S*?4[$2toj=h2Ix2.V%EBt3Q3Bkr,I^4erOYE=j(.5$+Y$5H+EeãU"BaHs=y\JY.hJp=Ke5]a0Pf*69+WsD(^%i8iWM)G3(HU6^KMxQ(oePr10kv-TMkPãU"kVV][?8Zzw[dwVjO+6/g/o[2m9ns&+I_oLz=kKd+6ElfQBV)$aG]$G;2g%P),mUãU"CF,Z&d8d?5=oo[)UV3A:AIDUSjc:s\Rb^p81EãU"qbwrVD:ry9rJPkf^S+9/rpW*4Y#G.iKW*?.KJ_=mpzHLgOw6(YAz=q:J9;eP;gpãU"#sD[&zZrfUZB7G^b_0J-oFCSK,hmlFk.^,p)^Ki^'+'LQv.ãU"R-.3L4,CX%WGv\;G=2BC>:oxKZxi]#0EmZIiApEge_y=rHQ>>XXUOmaI/h$%aKYãU"l;AoBvVY3NjW6#W,*r4srqlQY5n,Y2'pQB?M[N^v\?3k)xh&v[V]bG$Yo.vDdP&ãU"-9-pY.h3San^vN#U+uVBcdYO(t9&.;^VEZUBD+]g8bg2LylSK>3]Od&l8tCmP]QãU"H+Jtfa=0N>SkfcD1,SUdL7fRBJNwOnV:tP?lqb2s=ãU"'DQ4N+.;PLrkIZQ.:_sSqG_$QqHPS)2xvE6>4^tyAo&Bgs_l-g5.)I&hV_dm1^5ãU"m-FI5I77?G&SI)52\Us(ZJ5eC^Lom;'=&nHHca>dYHZa[)r6C_0#>J=A^EGo0EMãU"qlF6$ErWEgQgYXkK_YCXXyrSJpgdsLAGuv_4xiUl>nlW.9fAyzzz5%&)zo.xKvoãU"vtv3=Y.vQ'>*CBLjm#c0)loI2nHF32ISPE>1iyBãU"J;I9mgW$fg7Rg_/(?G3-ccx,dMti4wvgKKiZ7AY8VGFE]$-wOX.nagãU"]\se&3\e3SEu:?a&cf-J,NBãU"hGkQLfb=Jc?_5r$j2jBR9]r&&OJ*$+ran.?5C*615yO:46PN02-L;IsBQv5]NB3DOo*IU^1H.-I\IyAukOa<_XFqoQchg[on>mip-HhãU"=oha]T^GP0f]e\_W+IR/cNE\fU4^SZ6a]?N\ZLgLVH0:LPQ.RwF\I+Suo5jlm>mãU"Lk].M#OFjTGd%ad7\kG6hNJmqhKX[mdndF6Kk(QB^/S?DZC6PEI0_DUmc4f4OYiãU"oDpQW/QwR'4#&I_Y'k5#kxGrHDE7A0eKZL>NMZh$0AVb>VstImR7Lp2ãU"0YRaCI6bUX6WJ'*)DRlg'trp#htK3d*K79dLs&hAltC_vC)z'*\sc(6kJ9-B72n6??ãU"Wb.ajQ-;7K]nj0.TT]gyLUuG,Y$%<('bfouA?5#9*HbLzRh9X6_r)ReftP^[UlqãU"Ith[4gK*kM6oIzJsWiUS\bpiQF6Nperr\z$S_s^ba5up#h:?K%)lSDb^ih]H\bOãU"k4$=,$)m0jYCmXV#f1\Q&dhpFF&U,NLbyp?=jgh?E:hy)+mD_,stYb5$Zo6jb8XãU"mDRlXZQMwK$PvoJ#7G:TyYoC7d?6X,%3om5/PJp+ciQJWngyIJ3B18N/9U=(C.\ãU"1YS/xbXKB$N$=/_oS6)GQuk(L=MvF-h[O8_sHrg9#\b^JVzbi%fqf%vwOUE&Db.ãU",GoZ/RzhV%K-HuAW0G]U;aK&+PGns#F%4]u]4L.Xl/+Gw=]-M2Bm7D+o,4o5Sq6ãU"Gug4I-IBq1,,]H9vZeG_]rXi47t4s'Hb9l?.ãU"#o41qHgYnt]QbJ[Lx3Mf$]%duY]AuiI%:tX&4fpGTk*2(jdJ;lXARXVãU"ITt[6<6+^yTo$X)KY.44GU&tDpsSm:Y/Y$->[+N+YSd86hd?N6k9_Ac2L8+-UkPb'KppQo[ãU"gqT-_?#hcNBWRG(#tZY97h,wmWqBY3\^2ML($_'aJ1d(N=DJ-UnF<*^]:P2hx1cãU"^LANitR/r>i&Pi=\9G4+3Y1X_&c8JdY3i1F8>N7ksTs\sXS0$(+#^'Ry;LIb$sbãU"Uor-wgh8-^3#mf=kw'%oHL.Txzw:0o.b3NS2N\)VGa=Tkd.jgKlBu\BG\%*;YCMãU"-mecb]*wV%=+a1I7B63G:V?^BAv,n-Kqj&pX\.d%8>_/R$ivqUDL?4-NO.ãU"GI_qnZ/X+1eRP3bTo&N#,]6r<&sXQ2FfITtX5-7#crDCmG&kIogc3$t2]/lNqTvl]#Ta$]H,;D^+_C60-GY/Z3xgy7tLxOl.dIeWrjiãU"j<8,Ad>1L$D,9LsZW$n*Ti^n=[4-=XO,MI3oZik'Y,ZA(p(j=,3m7A'5oaRãU"3A30nLX'Pm;/4>Y$U?bjMzomrcvM0GM/GVF0:jbtrm(8lDV0Ll*0rZvbh>//2a7ãU"+,Rt>up:L/*VU#/erc$h%.]Qr\cvG2z_8_CW,q>]e;xSkI,Pda6$6L?:OBãU":S2-Db7XPBj7F^t0.mnFM0v-<\J[ucybqNZkgNxs=R<babuãU"Et,sTDLLg^?m.OIrk5lkmCTN$1I)Ri)/^TNS0&Cg'UF>ju_%$W+f(u[m^X$Mr%oãU"XU2L6$8+=gngqtR-Xr9+bl'7Ch_57G5Fa_)S;VV8F1mIOa0^BfGLQIGnoUUdJGrãU"$<]$/h/rPl]50(Uk+qcSR4YZ;0TZh#_ct&j;*A,-7<6*l7e(7Nvia$_mJ,fJur8ãU"L&Xy9bO;Ki3cEo(yM?M&CfNSl8AmCardO3_QJsS]ZDQp-L#/cD7tãU"DLadfu:y4uvKS/ZYh+Y&8t/tkL7G_gT4GnIcmE.g_W2p6B_--?,jt9=np]3QD&QãU"uGFuf7U-rtZ7S;fRX0:lYw>S[qZPXc1.z\wT-TOoXlo5xYn8u3aR.PrPBCf#^^kãU"%fFa,SMvadhBmdodU]JaDL;VPY#u['=G6aNZRtO;-rD:W=*uC$=g5GDk76q0K3LãU"obI/PdS6=RIVTN>+:Z$U-T\lj<.sGGdqImAWgDjU:QLB.JKfK>R?5/\Q[+gX]qcãU"*2kc6Qod&7pXTS>UjrQ_6RlI4lU]pq.GrtpDrND6Sc4x2V/H]%ZlmUX5Nv*jJYX;o'pqM25Ix-B5C,_*w^J'-$*^P(+/rJMãU"8+6x^EJU2NJuk4te,E7L]yJrUqECHh+MilGp\Pi:_(oUAVC?xo$/o)=v]Ub+Gu>ãU"Pla59QnICGuhm^gdAEo\f_cM2X:_dmrS.m1g67X7ãU"?)9OAN,X^gkD=^.R-fM3^wnHhI;n[]Q(Jdb9832dnE,I*Cs)-JTsRmDOAOãU"L^KGC+&dV:sZ_xlZB,amlmV,.1Q-(fRyfr>)AaUfQ'NmZ'rRfu$-oXZ4);^+h$?ãU"R<$aOODm*2jtGtNNHHRHkfu2gSV)FE0B^>#^Hs0CWWcM)nBhX$zC1oSEp5ugo,HãU"AX8brkW&^PkYNcn-bsHYwq%:wyKzN3mx)SHFg?9^=UZmqI)(eOb=Bb0oZf)#eq]ãU"ebQ(EjcLaF*eBUTc,]Wt[7p:,L<'yh)L-tLVJt8m-jcQ.rE=/-Y8e*eUP)4e,kDi&EjgEmgE:#[..745(ãU"tpmLV]6em%FUF7WxfnT*ie>i^Y]fbiHi;qgb69:-hQ-,E\:Z07qh(^1LE-2M8t>ãU"IujfsjcZ'd*O7P*iPa6)E](6/_8(X2?HGDT8V0a2m.4EXF/a\KI'(1Fn.>p*qK;ãU"Q?Xsk3#AC1ocdtF3]#j5%bgchFjH:rXYlR.GSu>#Ws2RWVNZhotIZ7t+0Aj#,nwãU".fk[b&N)CG-UjW4.o/)J&T57ps3qS[rr]'6d+O;6WqtU\1e7C/ab0PmGDL1gaaF:&rgãU"cZ<;2bSGX2dseiGc1gxhKHfbAz$VA^,_*OFZJdh19lw_QF0&l^=InT:*?(1ppl$ãU"\Wa_X<1Yyb>0L$3y?h6FsAn/9TTKOVbq*#Qp%op]p#mW1<5j13aVfT_&z-(RsJ5Crhk(,T#I3E%lnw>Tk:bq1mNMV:5Nfai:dSoM)dS7fãU"3H$$[Ht%GClm+kGZ5LAavM39*::=/ov^fiy)H?#:*o(7_%k>iTro1wSd).cj95E(zu^)&oK&6ãU"EMn%L)IBU;_mdjTubwG[;SbqN>^C)p^9hegjvO(3)j$8SMSfLHC]8Zdn'Hd&ZP^ãEND SUBãSUB V3ãU"h/hY/qj?48h1wlZHpfobQUQMU>gB803gNlt+et_b5)%+#c.'MxQ0Y8LP,KugrcEãU"6O(0^MsJ/vXCdbD83Y-DJQMo&w[.Uj4EI^lX>n_8>\:HP3yh).x-PX'2A?FwqaQãU"(R2A]FceZhm)\lhWt[RQ0.v)2ahLBf_MwJDHe5i2$[q>]Bt>F:z=+9FUto;Gx-aãU"QZ.Ro'Pi&c*q)g6F$KXLpNVevgQ6CAPWR:V\lCA,(A[*#cWjI&1+)&u)T1ug_$gãU"Kje(Xc>o/yW]1,h8iMl;(d?tei&^/PZa73?eWXW=*q/.:[)>#q[NQ[xNbb6U^Y-ãU"*Vsq+%;1nx?#1no%r;pz.[khi$qSu$[\izChU;O)Im'E>ZuGqVr\*[bQwdp$Q<;i)p>(ki5ãU"c??n\;,>Fe3NknCx[.fFWTm>UQh=Pq(ptD%R/]J:Q#.irk%##w$'l)bmD1pWZS7?&hfXk]>X'G_Q7&I7N_43V+pueG7ãU"T$jwqw7jco;EgvL2ebCN]V)Ww5j2K9$v=DBoPN:u:l3TI2Ag*yKGkL_nH_JnnrlãU"mjK_txkJtZkJ:XKEW#^]uZxbXHFxxm=fc,LZ7U/0xWQlWHFzdmCpCq*QHãU"9/?d&PLSuA9Ock^\fUQt)Vxa#L&dw)I7BzãU"pQ\-K4r^:%%MKTddh=^5^f'dkp$AzPVgh&&3H*37fEai?&p'>tH'HFnVuou:Yj*ãU"[>$uu8#F)6lOBCGhYH^&5IbEOhh[4uE;Y/K7Arr]7QFoKyO]P:Q[ObXI.2ovwsAãU"+a+ai56uHXXqU7=%WjB+7qp)a^ex.>,F^5QTXuWnYS+N=blgãU"a=-.n'w/gBsU&4BB6#ql,z#;R\W&8Fe=Z1>u$lDU+wBAbXhWu$T05xu$0rZGwA\ãU"6OVu&$twg*r2'boo4K\:]IuLkN])gTUEpC9lGU#6D..1fZ2nK6:e'6%]eil3nd#ãU"V1?ds*G?(?C,$F5VBYGSrAFo*M&j.>4qcRLE;^KnQLu(\5$+NrPt%?^.Ibn8Y[jox]m.B9T8'7U9LJAK/DsãU"0=b%$ZNH.Nd8rnaI;s\oGAae1/o+XiL=D+8mx5AFyESOrkãU"soM6m5J8NG^>uhXFJd4O7qN01OM)crDxQIiDL?pf+6TdZf,6+fBFj2taT8WdbXWãU"\O>&]/f;MGb7ZLOR7j.3IvOH]jwBh'qYO^0.5jp,RXoR_ekw+Eba:ADhXHNg]D(ãU"AY5Kr:Z#<'pyEK6/dj;D&M7m+F_=3iN['RZ6]Qx1+CYp?$SGA*58K;zJig\8W-,ãU"-.k.kAD7Bt82:2mnct-DNR,,$xJI^&>Nd+WIlwmdn6Y7]X:#abADc1m%X\&Zvi%ãU"0%m?[I^9%Q,mW&E,1a4>*5_X]DI^tvPvtC+kwãU"%]j7yhZ:aXcJPW*W<[xw1KGAikT;n<(0xDwJM$HJ\MZq%o6gM:DwphM)/,mH-'HãU"Jo=bH(,^lwR_Uuh]qWaFqW:azuu'[c0U:_1KH)S9?h)hobS7Te(n]mãU"%cbDWIW\&CjUL-=Ug6J<]HsAsLoXfZ'uu7=vp7Y\gzURpcDguqMQl*/V7E:6ngyãU"]M^\cp+,YQrJo(ipL,q#oYiU>pg,1?+lm9'eZ?u]7uJR;imCBML,(eLXmbc$aa[ãU"*8\XQffMeQsPdgpn'05Mhr_uCkk'_qZ9PKJCxBr=38jJv5uYo:?',<[1$Frh7ELãU"c5-Vh,7Jj_d]4_nGEdT+ãU"dbaAQHN1]\=igO.H8ikXKUjdOqqXEXi;_z+WZDl%K1^P%8cYWHZY>hY?\AS,VxSãU"8fG#hI*rpq]qI3;H^da.Hq^+Zbr$4;PmkK5qSTq1Fk3;bx8c.h?>hi0=9x>>2l(?jtM\T8=r$ãU"04J=BUY2e;b7\x\-kR9/\t#(5TYn7_;n'(x_XfS#[0\z&sIKDA%diI&Y(9%.j?5ãU"_^O,=A04ckHe[AkQ*M7W1JBAyy^p#hj-D-BHz=Gkh/:tvdNDaL)pSnRRIG2F8h\ãU"frz)aFRk=.Jdh3)QoKf'=B?RPTs(p)ol227lUHJ=K-*6%<'k9.Gi]8tkSwaoZwKãU"T?8C3[WI,,BK,ntwRqFZfaE-c2(pãU"1v_\3*,^?:KEV<=cjwG5>PLkfUa,pDh?#CFT<#,nVw,aJlx(^I>Kq-<3Y57Mq:vãU"0J1k$f0\aM]a4#2s9Z+6j,IwFC8k2vJ7BWDcQr;'=C4DzIM.1$[YhWfyQm5S\*1ãU"WV]k.\#GBL\$^o&Z6Sr.1iplEmybTVo>j1Cq$d5U+2%d,2EicF4+rR%?#lNGb?CãU"%YR5LGIcu+Gqdqiha+qD&/S6=SXm5Qi;IJee46BWD_PI?5OC1.iqAzkBg9'3uq%ãU"B]dQ-RUIJu)pHP>r_ZQ$R1te*e.lqSwmvh3Qaso_2z_iCm:314UãU"9H.Bd9LuXqhtT9IhOeB-L]7]/,7h$A);97Vk/DDTT780vB$[L2x7'$ãU"KnlZhp_s;BI^#^X3H[aIc%raqo;iYFn[:UHX'.XH2ht7pg^.[oI:o^?w+8Md9>NãU"k9)yV+D5ucm.ir7gCpK*j?pGkXfikWQG*F%H75lMbQ=2_dyw+td96FA3jUCm?EEãU"]8+]<6ptpXk?a-:cE^][Em:Jj*fq2?)NDfayT%wowm;uNY,7(CVF3$x+oP;u?$/ãU"Cu%T\vIz/^tgaE<8MVwJ0)p/WI.=9]'OG_gvZgmJqY.d/U)[-)BA,Kl.dIgTMabãU"hY3K,3'#bt3CqqJ,IAUqp8csbKOa>aFG\jqamnG5sSPnmH(F=jIeIKp7tuR#Z_FãU"UbwmMMa\$[mniCDH)\IaIs+PhM*SmHuvAXUX*]Mgeg/q]x5UX/Vi4$_>z?OaBals-J*:EM,ãU".9H'UxcLi2W'^BV<^6h40wmtAlUTMIcy_c]a\ksOZE=wgrwslãU"_U$tJa]cS2EaxM)aQuQ*irm.:gãU"$qlij$OC78.))#T,6EP=e[M+tXãU"kb)(u3pf)DEv#R&YmHjN+lMt#OqLax3<&G:8zFt2ek,j,=G[WY_k7Z[I]O[D9VNãU"$zrc'X&iiuEUnzn+d;Z]Y^)N06-$0MeH(qiXu1wy^G,n1oDXjg,/lr$IeTN#m1YãU"z&#:/no.As?f7<]+)0ZSerE#$4:euAJVOx'mUMb:]Z[qOjj]?C*Ph6GM6sK5W9*ãU">2V][Q<.8[y0c(l5cxM.Zi;0nz\ZW_QmC0lYBfFxl;*HV?rEtB_eRDh5ãU"^AV8r6MR_P%:W&z*iK&[*bXRK1?gh2b&qpyWUV;:S7_z9UTl&/U3K?OJ,Lx2s$kãU",lDrO+8o&Z3])U6xw]:_j-)]Z)bR;3nYt:eZ;RTiN\D&D%*0Ghw'+/$I+&gPiEZãU"e''QXT9s8(n8Vt(n8nX=?RkOAjãU"^PRVYnoVRãU"#ISi,Oe/NR1=9H%XG&$l,o[JzADw2\Uu?8zãU"9.vtl(.J;9z+x5,O%^ucf_bhD\D_QS3Ih$Qp5(P=%>y,yZQ+[/BI*?OOMEWNumuãU"A,zF\=\QF#YjE^4StxFFU])e_s64G7k0et0fD&Aa1F]PQwHãU"UZ&.q$ky[M5*2?v5DTU-+CQN18cC,Qe'ZkRaF[wP6;diI%/.rhA2Zw'%6lJF$5-ãU"ofsyP1jY*=gNMc$7Jr51,,tcF<5&'z4vYwR[Ju2'*>13xy7jz,pB4KCVkt7_H_PãU"%'MzDz;gca9JColNN\5>AJ8*3&cQo(R0kLR)*3o5TcGpkb&qypBJS7L^xTG:t\[\z2F&5x:N4=lUKL)ujf'O/'JUOãU"BrU39Su?U>7ElrKãU":jLa%WOp25=,ayDp)EY%=9ELI2y(jqy)&_._701OK.D_%Si[YUHHAbM#DryMR)xãU":g0$z?m]cV5=3fJu0.j92A$SD;/7YBYOxk(h3_iyR+Mu+Ph_%t8hruvtS^$ouAKãU"vr)[r2XdEO92U/_5\sBQQFiF3uUlp?vPeJ2QcT)w#8YFBS3?U8(dUMoF'6=DZQ#r/0+XJ-9M+c^f[=>\J3#ZQXEtGv?0*c-95ãU"+5^aE(0rY26=ZT&[*y(cC%F&)^&*&X#(a%Ga9ih92bO6J/Mhj[O%%O5XK;.O_\O_9OBe.DãU"r6OuxC%G>?+m[J2.U0/&G/d-j^&g3Aa%]&_4(s1kC&u&5(%u(W^%HaFb$[i5/F?ãU"/+P/3ifY2Axuvu\v^(/m2ddY9L9)V9%B)oYJd9W4R=dg%%x;1ãU"8$N/.EB_*rAfqJl'M9-#Ph%IJ\qz,/xf',I-*S8-MbGs%ynb]L(cpg,O>4&b\9(L.\*_SFor%tI#nãU"<[R'9deOO5SIx'pOR]maC4g(gZD'fI=%rx#uY#(8uD&Gu?:jD+O*r/YrV&YTj>u#d([^O+Fg1KLhOg:)[:mSJTY(o9&9TãU"&OX%\A/55D,L*N6/_*g40q3o/0I)7,7a)q*0Y4OH)OF&xc9XV9=WiQ,B14aU,O8ãU"l&4092DJ/PG[(,Nt(4W9n0mUmkj>N,sXQ[Op:ãU"tqB-CGZt=N0:x*M7th.]<:2uwZR_UNZDB#WWWGV?%/N-m%az91=G#l/+KbW-[e(ãU"F*[&HWlJ'CnnJVlb?5CMSh0Ri-;R>*#>>XGD?$-Q;&#H9cp%1rOSJ64anpAbAmPãU"j3ppcRK5jRw5(y/f>NDjl$<*Wx;l)R(q;,*#5HAYdD_;(fZKeqqohV;31D;5S2*+mrL.Z9bY=_+5Pz.Ukh:?aãU"DN11:2gxdHOh;T9?bieQNq2lc25hFizV_dBNZ,=h1$bespce%jDNC(-=hX0kW5/dqC*1'%]PXpHbX,T]$iHH2=OMFvnJ(Nm+)-Mklh$4RV6oip+%)ãU"2;)#Fi=3uuDcxa4mNtRKQLEk[OqlcT6M-8/dKp/+.919wGMCwmMAcv+B^NtMZCWãU"Ee/%9fVUoV&yJw8Z88?ks')(HM.c.&^V%aXHT9PIsZZD7\>4=TWwd5q.'-'p7+2i+$7enPd&yuu'>0ãU"Ei9s-]shi^R,cSh.G\.QG'M:*nAzCFpY3>fkR\9szUCPãU"7^ydpmnn+hdlNckR#>XWV\rNPA2kh$Z5B17v=l<>S8.b4__B%s?k?jZCPBkA51E#HntWC:+PãU"Fp[>u6p2'6/tMx2D,rK>9Z]NRTTvDh'10Wr,nXr6;d:KPkU.oq\=BqQqJF6u8+bãU"8mWDsNgH*NU-tEpPE7bdu>7\hHCa8lMU^L^fRdOd'XY0[PpLnxh$UR(oHTWo-utãU"66vn.1'wcV&dvrZ\ZdDCe\MJAl8nWpCfN(?agCt]r:1WciPMd$Nz]L8(DTC<89%clviãU"n(r5Fo(>d_Ad^BLdgtbk[HnMccFU4>WMKx8N7o3]fu#\2X-cuD,tY5wEETrd_LPãU"ItmNu17h1_0#o;Eukx;-$8rqtlsG_Y4#xMst$\?e^SKfUcBex_8'+E,zX1&d:3#ãU"NWk^HpKGzvmz<-IKgS:T]zAf^8:IVRj_U/ãU"t=lcv-?\i0q1m(RSYv^dtYq8)gL+AJ:;XG9Ez5fJv;c%wQR9hZ;Pe3Ky.8pts&'ãU"ATTR0kPC-PHa)'0uX=lo#p-jwQ///bE:e>\G8l>eYDOjf+va2i2Ifrsf%Og&e\oãU"hq2yF2z_RdTu73n,?PZ75HK2/ZHY'T+qQOEX9v9U$E+XAChVKT&+PlOXL-a<1jSR5dãU"U>tOtxP<.-jqGB4;NsFt-tc7Ff?D&nk8K.FpIrA%uaBIvv2Ug2.Xe8xvIN>>pp&ãU"8..vKcPI9i+E9m)\W#Z2MQ%#F?&rg5A\w#YtQ]w#.x7a#xkr0c^DpQQmBbxrn3rãU"PEItBAM#c]M(gG]yE2KY0Z?J?WY?&Os;\^[-DR%#vZN?Y^gSLgJcA\H.'*vMw9-ãU"9HT.;Xt6fs&bw$qGruP7cK)F;(0XC4&WY6'>U0=$&e\.\6)M(f8ãU"Dlk,\lO=?e&PR24W;>$upL7.tjd,un7GH_9=3(;BO&RbW_A-kx&u%p()9%%%%-UãU"%Q/C+A):L*5sM%+%'j%%%0%%%%yjx(y%gj.Sj'jNfKNKdxzip?B6Br8A#K-Vtw<ãU"SB)o9z,d*szMQ'Mt'wQ6I/t'Tgm0y*>9mKA1(24X(aI09ncVn:OSH<=#M5kH,EUãU"x??.lpZRBS4Ht'4H;l1>/k#qQ'SKne[]7NXB>a\u1_lcgX#_9bbp^iHHm$aa$^HãU"bHG^P>HeB\IZ\$v%n&>pP3r5<.BvNX[&?WebICh7E\v&ca'o&_3\4W:/g0O15\9ãU"kLF'lAoa=il6H95''^.G1ITB.E:nO/9\2O+O>&?nLU/n()%8J%T%7d'%%79%+&RãU"?e0%b/7)uaCi$9TH%.O*^OD']3X)_a-Y5Y3POv&3$HP^a0q%i1tOt%a')>u&8g&188_2aX7ecY5WY<9:;O)9gI%,W6a/EN9MjO\Oi>ãU"OK9kG9(,c9u))a9Y%U%-==(32O.(/M)'']aZ.E98&/(9/%C&8B%\&oxs5e)jO\%ãU"0((-*TuD9=f9pO./IT*3e'&'CGJR,>sKxltGnXZMO,6;=FUt*ut#SJB&1ShiQdfãU"spD:.RxE$MqQBO2Ig0t'$;58o=E.2rHrf[.#ibO5^O6l_h^tBepc65vDl'd+c0>ãU"i6]%7h_H)/)QPX9Vfdk^wNa$fU,-/bpFSGK%X=$d.x2q8OUoEZWWKEnMxaqMuU\ãU"+iOW.+/,f:5i+E_6%dK^L(?i?D#Sc_HPH$.UL?]ZN.>3RnbbKQ(ON0PJPProcgdãU"?]HorIOtUk/__OFD&'j\,e)_mQ2sN3hM1cnU8O1QM^FIlLJ=D:+H)\V1MR.?DKtãU"%hv8/-o6eChS_Vi';xo'dYyxK1Yar\X+,0_\o^eq+K:9SUenX*Xte&IXrWPYcepãU"D^LF-IjHArZOS6&NOA6%tb'Vk0gQCl5x^jr54,ZXTz]AdKDspTT>Nl\^UPkSrbpãU"4gB:d$nSNY'<]V[lL,&Up/f4FI%z-Pe\t[qSDCDFO5y_pUv5%':pJ.8bNnD(\CBãU"9%YlLt/9&ZN(D5Tfdjeg(%AiVMaT/hLP$G3B0euHD61f'M[R70H,ãU"5SuNT53*)UiLkYOts<0gGXbqLE3Z2Y/vZqYx-?DDUwqL-L+$oEu4CjnFr-Xt4vMãU"Z;-ystKDxN3evK\W\'OOt#4:exCToX]w%^a,uAjA]lPRM;,xfr&zn+gtZi[nGnbãU"+M5]O<;-bDJ9t]b:/H>d')4+ev%q-=9m8=b#&A$ROr^92V6vKZd&7^EabJZZU>[Huj+a]+j0nQCZZjeV[^5UãU"G[\g4K?np1\orh5I8X]>9],3+7s)3m]Y8x?UlGt;#-]D-^Sv3pJ&/jsx4B%e0h)(s;:d$fW3-27Xoth?*-3*e2(>0ãU"aB7(tP_>5Z\J(fSgFAK>lFa;(hZ'-Eb:caV0'\B>4DNiãU"+%_,_'(Rie,tXWB/a]x4gY1g)n#qãU"x.>KfQ_oq,U4(zFlF)[K'kuWZt[P[^Tk9\(6TX1m_>iHAmZYrVmdeeXi5eL$Y7jãU"=q[v,L%Mdks6l(3J9vlP(?xLl\mTv']2bBn&L85syul+q5B;6_3n&ga)#0lc=.DãU"x(PBnP<^StfEX]X*\M6XAJ&?6V,ki/sgQQJIGG?iDsSblqr'4X[J;R^VgIS(>DgãU"pXl9J7/b9m^%?p]bbaKiW]eg;9tsbe1SWJV35$VPB[XEOBOc1^2ST\R$.=Gg[[]$*gãU"Skk$,qhB]_aH<>,3Qr'um%\,_Ck)Wa8),&=TX_hF*Hqq'=l#Ov]kk:;s8?:DcYbãU"e\4]0>_b0IyrWcJqTeGGxN(Wx3Ba#;SkZ^fNqmN#wg_%PC8tKMjLDw[p^'4$ãU"VLNS^='BxCWyjlif<,mqD)tQ8OXG59hyY12>:qTmkA%alP_Z3nOxDMh,09?e5Y<ãU"]?YtYCo#dV[cJfqi^XOuCGwAj8kZ0CtJ>\=[Ui[H,F^gQJãU"-xr3\cG1c:a9T*%#3kogwSwKD[6NUkbiE2I,NI)*U1p8sgWw#9L?70srsibMP5^ãU"HX^&efXkg'b%$J+KVbkF5K4JmKNW9H2f>D3)8Oz6B4/0Rdc3l+.5ffTP]#z.?4<ãU"xChU:;?b#(^Y0hL-xMMz]W,XT'0qJ.-GwORuSc$:?2[%)+.QBj1dwA/<,cnXwL[67V#1i.F(IW9N;ox9bYpUlrWSP_xH&&RPZa3d(w)B?oQIvvãU"%C/-u&&d8^xx(u>VA-LHYaA1-?ms\u,Zl+wL2R$)mMu+Ml#z'8sblãU"IG%34L,+EVu3O\iNnC-F-P2l:dE=X\[dZ<#dãU"DcL%V_N2ijNV>I8H>16D(Vt'xN[n9f3(oj[I;%BN^qs\eqj7Wm-_*JUsXeq2$HBãU"KZw-EQko_MW4B1$$UpL[bX9U0LF&X6emV\_NvI8uXKcTBFCc$kQjSDA7va3knH*ãU"0aFWR>Z4SWB.r(gQ2;PhZ?fãU"=FU3I2Opm9^[6y4DlTfL?3b+^v-AS(1P$gdP*Gbvrk:c5o:=(X]0sMwVEJVcd4hãU"5In\xS5-Nt>W5[M#\tMmn_G=]ZLC(-XUgbtiH>[DA)3G[0+,\arKt=Gc_9ãU"R]2oh>Q#]_^A;2>DPXhtB&hBsMrS;faS0m2L1:3Cwqh;8#$fnpv]8.F(\r0#pkTãU"Am1Kq8BP.M32([:[=[a\*uXV[rM&oOk'ht#\QgP:8H#BZg1$S\&,LoJCu6;[tãU"d-AhD3.Bj9g8a,9)WICUbFWY<2n%I^XI>3vX+,YVCjJI2IFnhk8tTqk&bOG\.i>ãU"9C:JUB02)/uK?Bc(h2FOB:'oKK8[?'ZTKI4G4i2XIC\P2s^dC=LssKR$0+UL8yqi%;Yz#UGS*%uM-QpmV)ZESãU"YIwU(+]H2J%R3A3=-^':_u*Y)k;nMWSa4&Y2:5lt+XrCXu<*KLon.^YunR)?KIrãU"Xet2e*;XI^QxD4qhA_u&L6L:VmhE+1%;6&S,oDX=Lt26(g'PXãU"1_DKIgA]'JX2yB2;mZP8>1&uWBI$OmUrlMvcYTFSb&)Q*]M(=;'#vC2;BSA_+AiãU"R57E5D?;e)ikiE.2+rtS6Nk-m3m-nPbi^vFWF9lT[0+sa7QIhIESCU7WlsKW&lBãU"bo1^Z,xD0)[j$IbF-MQRW,)YdtKU:o4hN\qbZs?b7>&KCG0PB>KlW>\8IGZTQHG3m*XOD,s4#whX6/,Mq4$*ãU"VdI^7#%R=vhHFWkmsuhQUus%8*2L2q7Qco%W*CuX?wdv^RrioSyG$qqK,L=;KRH_bs1>]Evs*FVVq1*diUVdkz6BrVv0Y*ãU")/_Zc6ie;f_*YF/vL<33Gqh5K#6^H;R-e)QPa380/AlM(BYlLLQ?htL>#WZei;qãU"q)Ly7qnmW)36._k^BrdKPoO,W[[_T]ktvlW*tC9VSSL$YapGpjMtX3(=feL;C,mQiLXg*F.Kv2Se==rgqtt>+=7Nb+%/LiRV9%+Fa,B$wVe%ãU"+N$)7U%6Al4_VbQgfR15f*K&Ygt[8WbXmUp#iYsTS>Ag7A3.u?Cj/twI\YUkJSkkãU"Uzpz,pMqK>4,Q(FH85(t[NbmjXeXãU"#'<5dVD*aVl+)7c)F^-H%vh7GC0Q?FDs1qV%+CW;^9>L(]#8TC/UnIo2YoCCP=PãU"97R$.$l$[8SX^P)BW'H$+UxoUsU.=[R:t?:l6.:tq[u$nYO5AfN96]&LY2V>Z?%ãU"(eMN3oyUR8+*y?NRvjPzlqyA.4yjX-N'VT?u&^tyOXcsAu1FJH>0OKx)GcTt=kpãU"*X/R;,D[Wk&KqPS<[3(fcmk2lRQDOiVow.GTJP[Hd5*D:84qiV)=wKJ4RBMC+Zt]d=]eFãU"rCM'Za1K82<5^RO5TA)+j0*J*bQKV9i0>dX)va9%qhAc#pRTMX?mJ&J(;Vqax:HãU"&lJ5-c::+*Y.(*dV-klZ?C;Jj6;kD?AkY47$zYpZeongS:ff;BHN#+VãU"Z$IãU"S9?1Z^<263f0VX\rDn80s*/Z]cgDTX#L8<0Q:w-j94sVMCdf'[#4V#6#ig?+WsUãU"Nj^K_N]mU2bhBA:\qC6q-jL)/6bSOho65-mtX'8MRjL3&P4iRZR[EsM0TqJeRipãU"\gaXY7YU,B>=&8$sf*^u:CaI>;Jyb?(j,J&uãU":#DOWTVK+A-9jM*s-hZGãU")lg80^F*QfK((lVOV+K8socZm9B4.]2-(-mu47/8IYP1<]D]^^P(\*A:/Koi%RmãU"N1Lo_%VETj96>W5t7?W=8O6UqHep:jB5#N0&jCnyPI6Ft+w29m]WS;A7KjYis,HF=^F[6W*j7Qn8&jGgv9o')';gU4.32oB\NvIf7ãU"e4P4b9JZ=sjIhC5Dci%*93i1k2$R_sqCkFZ,_pYpb+Gm.3MN*e0jE-'jsmg1UnKãU"CQcCdeFrDk+\1r9$642,CamAOLv5Cze#G4DH#x'*0Ky]lpCdC5Aa[Y[;S#C[ER7ãU"GaM6QbãU"vD\<_\^/.2KypgVzipsA:W>&oWvTFD0sEFNPA8eViFugjxqJXxG=G.Qi7v_IxhKãU"es[BL9eu[NanY&2oo.4%M&l:RBBS.[Ero]='A=9$kxflVKsGpq.?'9e;Sm2h7Hrb$pZcãU"kqx8]+RFm5S0H0y.+lxBEJCX&:xh-amlRx=h_1wpq8bh+n^[N(P6Go.nXP)//3f3sGl9QqusRaI,7vu>,P_aIr]wDdoz9G()ãU"y9KFRgG'00Ym5ENRy60TbD/Z&O;hn/]S*,g<^y_*U5B*;QFb-f]Ew,8$EsmGt:PãU"TQ8efYY,ZZMtMv+#Lq-6]Ks>Qa[SZ/#:?770AB*R7PkeO41AerEh2x[5Z)gOY/LãU"8unnKJL=1UX?Hargz)G;88kd'j*+b[Mvc=I54DkiC8p48I9aN3Ypk;&)=ws*H7k2U:lJj0br9R+I#YãU"]#,XGn<=bn4:Kwgv\wAcW3xxyU*]+h]Bcl0V)wkhy_GZO5aJ$u3Bix]n9^/8j]1ãU"TNu8og^eTH7;#Zl]A.HBP;ZZ&hB3cP9U6Vs#h,Z:hC8fg=CfD,hMgttP\M(4*07ãU";3Aw/NwiCMdo<7NOw/jMsjR(Yh:fY&C_UIiT3F[)4R$y72C;Yu1+^:viWga*>QXãU"m?eD;iZkRQTC+PaHtA#yjI0J'+I%Bl.8Wm5bb_z:7&uEKT-/uYhz.,CgTiYsc,MãU"U68+N4.nsTE%3kQg7$t\4K690&?IOb-hCU-*.LC$UIcWQ/nC+mXdqG;&#^yR8&eãU"Cma^4XUu50(K>v55n8Lnls&-NIJSRZ#,*px$oQYj%Xhh-NXO?pJsjZBsX[uMDhmZ#&Z^-K>2'Bjj_1U-WWC.i1W1#K26VãU"SUi/U&>oF2]-d;Senq\ud3HV/b5AT4E]F](\Ml0CI,wcucIOVk6Dq18p^lugdpiãU"Mp_nWZue^Hkc]WDH,3q[3Pm43OidpHQ&QZ[c)6SI%H0ch*2s/N7Jff^KL]l07S^ãU"_%F2msFrVI-n7:&ewVsJx]j-G$&y[\&OWQW-Ydd\Y.o>,,b:\0AUG4sZqRDL.RfãU"sucra]&Cjl14wdIxM2=%FWmQZ13kWTAWudv'l[k=V?0;B?0x5Y4lrQ2Tx:Q1ãU"Txs64R7e_o<=-%^BDj2m'J7]]1J8Imx*#1P$F*9*'fPZ$>&[ZuY7dVG9j+Z:\7LãU"ZP9tLNjL\38>NxCAL#;#cgWtoKYijMG9PhM&Xj4x$Ffgo?A7gIcKb=QKmv)w/vpwcr.S;4N*=+J#6zu0=bf#yStDP/S$u+n)ãU"_:U-?q4$0lAt7GKKr0b*e7VnZ4E^dwQE4ao)\//7^mdm42[9O0jN>CãU"n>8M6IR/5/IuA_)\dV>gkXtalo(RMvO(YonLuu0G9TnfU?Z\t-hM7%wC:4G8LK<ãU",8cjPJ=BYZ%T2G.oe.346lsrd:]+SBq?ELmLC#=s/d8Z:%tb0<$32kFJJYoVO#WãU"%:bG\-\-VNmvr%0jT.ij>?(6S*?9T-??cwJzfYb%xb13QEcSlXic<&.=XR6rXpZIpnDYEO/DCP-)U(NV7BSRZ?I;MszW(d/ãU"4'n;J9>O[z8%-]QXS0gZ_0ZbFX?OYiAwcnJl8Cd/(YT_kYl(V&(WFOZDq[ZwS,gXcaEBsn>PpdJ:&fE'pcãU"YiEw/Pj'P.d.T3Y(0J'y:hv7Tu$ulT[*Xp>lM4[viFFBO?c90a?pGtQ3mNa;$g$ãU"Jvicaatq7q#0?&nVN0K=<#DAP]:v10S(7:T(sbg?:RiAqJp,sYKKXC_pcWm&JUv$x.Yeg5g,i8NpDN?VãU"4'b6(L\,Cll9PUX>_9i)>*F&xIaK>M\7QnB=VX[ENd$W5p%JGHXpD.^KQ?X0*[JãU">_T5z%/40cx$vmrpEK%4,8DuMF'o0%PzOu0FBBQ*V0jOx6MrVvAF)l:oRt6gtPRãU"G(rudf)SfEH&mze,&QOa;m9H=YMOCyG9HX4_:Hgj9,):x-2KPy3Mo9oP\f%tA=OtYLPz5LãU"t&^ehAyilzQ5d/LKHk)(B'E<%Ewwgd6(aoGS6R%'Blqjd[UoVCrw*i-\bSFJ#4*ãU"dlZwZBQVYicDY-Sx3t,2f2NMnddLg\uMYix3cGSWH_w-IQjxb?SWc6O&/&JCsuA5V/673uw.B:_ãU":AIOOy9K.(rg[Jl0S194:ebRwjM\eI<+WNv9LdHw9PDnCDQ)CvMGVFw]3%C.f':ãU"JbZ0a$i:FN'YNN.z;\OWqYcGcprjK/;BFpfTYnFyR;IYxJVgC2d5\^>y-\kH[m0ãU"J?;HwrC&/'6+U%x]2+xNidxog$cmbH6_'OQ^jzN^r2ctuDH^RST4z&h*']0t<_cãU"&T;*(23EVs_sctX8N.''P_2gYTD)(XnU*DV.vN/A,THK(?y>RK9kYGW^xVwx*d:ãU"z<-b,,*V-vJ:7kgQX)02d(Zg&#/<0TW&^ek>ãU")Zy.vBM7[.JTlw+s*LP%Tky(*/V5+Hu]__wJD(^9^sc)cA6yYtJr(.-/\U(zjRQãU"95QdP&J%)#-OtyCbek)iS&l%5kk_QpLx^Z&OGT9l(#U/r..)\=3sm8d3wcVs:\D;)bBsTliojgT^X>hVH1hr3(=,KXuZOãU"T?iVew6oBajO%.\r>AFPFek**5(ej/L+pY(\,*i2m;bzFWcYa8%$5._Sqm(Cs%fãU"e99Ejm&THcEEYih((+OKQ1B%NOD(u_$IWSkãU"qx&%up()%9%%%[%%g/&DA%%%%%%%%%%%%%%%)%%%%it%hTup%()9%%%%-%1x_CAãU",Zm;]'E*%%%D2%%%-%%%%ithT%gzlxVl&T=BTk5Ln]%x<#a:3o4M+1NjoX;N7r2ãU"=r[8Nst]1Il[ag]S4u4M^hR$XDj%#b9:G1Q9FEHk^BcFN-s9HL4(W4Tt>4DPoq:ãU"+d,nMPtVr.3^SAw#3$9CZuS]SkF76%I3=alH8/kãU"^d+P.HP>T'SUjVNjbZeomM3*Sj*f*Q;DH1->]7&4ACNRIfRU3?-=4t*phtsPNaCãU":OJ[BZ:dP%dmfW&H+j7*g)n?qQ2iS5sA/qIzU)y&[3[CC\GI+;E;Zif&YQ,8AzE^b9t*(;m$Ch_Q7ãU"?Jg(L>cCWp(E.0ff=E^,V#Tq.1Ws1b/L)35^p5>$vpaWtS/N7Z3bcJe3JdEZt7%ãU"y=-5MDu60'LyB$/jE.N6%V2+'S)#nHR+wNikdX^d+qd(.K>7If*[*o=#2IOnãU"x=+Tlc7\637d&EkCEuC2(m6>J+46:O#o6-e2KzH1tK=l)YP/&'DOi1a74ZJH<<#ãU"mquyi//l.tW'$;eoCvG8xD5wFGJY*Hx95Z(JXPXFuPvRcMN_Zfh]E;+Nuk=Id93ãU"g#Te.YM*)c8DX_V[ICHe:DDOm29V:fXdlBL8=w7X^]VA+i]RY2a3=-Bdq0oNZ99ãEND SUBãSUB V5ãU"Rhpx,&b/rc/#p;?d?T*K)dY(/Cp]x+]jGqd9H=a*eX_+lL9CZjgh=LVRo1PXFopãU"lm[\B5HDqo7,ra?gPWNp+a:XRRNZRAa#o2-/Nu5C]LV]T/)9tUcSS)WVTr>M*(v5hsRfpknED*>K1[s5IvmN^(UãU"N6c&&Q=iNRVi#C'GoZ7_h):W(:u5qVP\T1Sl#f;8#'b*?J3zV%qu.;Sz]D%up()ãU"%9%%%d-%U6nl#v07C19%%%%Y&%%%1%%%%it%hTht(u(wnIlm\]<6=;U19TFpDMVãU"XQEM)gC;0s:h.I)WuSE\2]LRh+3d$yHtm_wDKktD(GcXpVq4,>3'u'3R[6s'.uiãU"jLY7JF>Z9kXN5,SMRkUGun<9mB?/rKDia1R#'GBFWZqX*[R_J&T9BTU1T9h+uD2G+OY693,_;/VG.9/%Vw1Q8ãU"PCU:h+W$BqFB=2uhlRNpS4+$O,HVot#^fhVnX3oxz,FtH=qtAi1SZW;\fU:+:a8ãU"1/-D48*V$cKaHrX3OW?Kazxmkmd:Q6a=J1uiw__:h,6^;0,&2.qaQ/F-BGw^V(3ãU"9%+9iP9NhwGO:FL^Cfb1r5U:$cnqOX;VPq&z6=ImkR8B1*^\zDT0Nw=3mx;EkRK8ytVl3C+iv=8U12I%Z>%04nb/EJ:XSTS=Eoa8Gg9b;aZfuTcl2*eãU"OQOd06$q_BlOe*ClIjw&;+3QHEmgc4aLM1=+1^L-e7UoP\1.hp,a.J=A=Ct]Te_j53Fu_wb$Zsd0,eXM(b/dtlJk-+9>j.o,b=y;q0]J(_ãU"M+N)L2AHjp.LbRvkV$i9BeIBKH[R>7J_kBVt4tmN9T$E#O*6joh:[UCwi22y(QgãU"BT6V9t+n?GZ?xo1>[W_0-2B1Z4JTIF+ju\uãU"%p()9%%%%-I%06=aAU%-&za(%%%-.%%%/%%%%ith%Tyjx#yjidgz,>[d_5L(-MxãU"UtUPy4za_GLp#R)i$A/<6fHoNIUh'Sgds=Qwt'.hFus-DF\YG_Eh&^XF>YR2AB?ãU"*\>'AG.9AA-O5B6Qkc.(mwqp#u>z_0JRR>82*E\GHw&Y2dYteYZmjP7o+Dg]ee.ãU"Q4.2SiFmB7tNVE+4U?O::H:0qe1YV8Tp30SbpfZHZ1h;/l(0thZCsi?R-%k?UC8ãU"7=LVVDG7Y8QCl;H**?g^4YkB5YyO5z#VB7'^phs;QJPC6pv'HU+c,\Mk8iZvA?lgãU"Fx/*-j3+;&#N\J41>QL]Y_=PhoNF#$QznX8RCUK^X10S?TK$877b[E5SYT\6rSgãU"d^tVZgjc9g(g[>)Bc9xAG8osmgCU9DURt+IfVCljs5SP+n^/2NcIAHi3%[+T-X5ãU"sZ,0Fhss[yM-S%-jz;ZP;D6ql9xw8ZSZue/#Dzt.NEmN1/lUi8E/S.h9oh)RãU"f]BGh6XX[)e3&,7rYY_9d0EqEEq['#%Al8=cK.7dI/7)>KV[Y;Zmmp/uHL68k[>ãU"-qG3-Z0e:F\q1361S->CA+&B1[JGb^vQ*(r-'^\#u)U,y=MsWN6PYZjk;f]%E66ãU"^pb;jAsxTGXqRWHl?D*qC9gMu_Jt9A3YP%o$/0-smQ$ObU?a(ãU"d[J[*D(vK=GfrMtus2J0<.DBS;&t>-<0Y\MJk3KS,WN?G6JãU"RT:Y+0K3;3/$NAF^jK>:*96q9z[g;)qIFQ#kf#U8yu*0%5$F\=u.627T1efXTEw((#Ves8Mn]-JbacPebP0+5Fub;Rw&Nfm:gS)582ãU"N0)dd6\KJ/pmMU7J#%-NOERwB7SX1?vq)R=pV*iA\ncch'U<&hfA&mFugãU"G.=Wi7JFnHo[BLZsP^5:o?j\k$c;ãU"O9Fqd[i]U%V%QTdQuRN^nmBG/JE5m^C5(:thFc9E]Z4&6a6ai-,BQi3T=MZ4gfNãU"Zf^?(27<,yb4c;Fg3\f66#t'&3.Yh^bf,:%>GSMdK5hKN,17CLSip<:(po0\8y%ãU"q2a\wS]D8#FDuS3GxoKasEIO&Qfmqf+c+-PD/dWXi5\c-S2O([;AW-A-^RF4g3QãU"DTcD9;/L(=Vz*pjNSr9GKD9(ãU"b%pI?Yp9AxE6\u+Bh'r[^U:z2w;5;FD2I,vBKcZ0W%)=ãU"\JsJ#vu?*O-2/V\)c?'LJ$W=%gJorf^$eJ9?+uGx6fUfK0-'AlePH)(9U+]EepbãU";D\[Gu:wcwWOT2.$vJR]pfhr9-Y;JãU"\]m$i=X&%X95cdCd'a'JZ,SO_.Ip&)):in4SZqZG%4jkdB.FUYbLLw2.ne<#NA9ãU"Rp*f5]r#XjQ;Yu:hOS/+>J/EgFk*I3kAtgkX_O3fH2a__D+hjU69Isi9K=zps8yãU"4eg,7[\/tQ<(#p?pMCG'/vy:YBMJ]*dZcqr-]cy.8+WoDiX?ujiKM7IRHLsn=fnX#3^[,of\sP];]$]jYdZJGafaHLDif=mFCAãU"DuMPR3t8yOgeLC,KNoEoFpPh0EJQie#s*SkR7Rvov-f;k$:dnE+sC2L^Tgw#)cTãU"GoZ2bp]3-9fgAQ\EmG7GqN?3G#9-jfqgg^BkZ7(%1vbp4GS7+P-4dGnc>4Z$?qnãU"JJ(A^WPM7---ERj2J)E_wnR9NRtmFUsCH02vLl5YVt.9M:?Q3\CLm%B[gvaIRP#ãU"TvO1A%q)LOSt0fKM]'lr6f([EP(jeh5cDRyu10XEA_#2hZD/)w%73:f0))LVci+ãU"pvBNBF=iZ)B]*OYS01-US%G1e-1CX1qS5iI//*8E7f^$wUv^bHS1x/12bIPQ#:)ãU"Ul1tYyBN.gACmor9f_%2v9.KSD-SvT;pHio[xalvx,rJwj08y7>FXdJhw86=K[TãU"&S/WFs$tx;urOy?LCVSPeDya0&Wr$CS_C1s/7;smCK.KJQIjy5PG='ZYUdTDQuiãU"VDK^Q$Jy;8]LY(&2j\u^UtN/wUA5=Y3+1\$S:Oah9J;/uZ%6Gkm26]D^,cN:v+OãU"&Bb+oP.'^5L$=C5RNa.3VgVb0V&o3u/w)D4KNo'(l1o2BqvfWF4d]mCFFR5JQFZãU"Ytq^o2L__-F(2,zMH3T',F[\.[O*8ALs'bu#YrJQuQOA4M]0NxOen\q,$lI?Vh'ãU"uGLzy*DI(#Mv+y.w4uea_g-Vj]Q%sD69'3'j7Y:MS'Vs6d%AIpuX5d_)e[kkIPBãU";&u3?c>)a7loQQG3D/L;'77KSFSWW^[&)O#d*TVa:*8ãU"6.pr+7g,;(eg-)UaP:a*6&6e:/ywLicM:OkfC.D&,'FN5f?lZC+,>=G=me.9fgaãU"j/W[ifx(E]od-??9?^eI6aEqOO3diR?*%hX-1W'&:&BRf6ULQ\6G-90(;(Mn9Q/ãU".P,j:.E8,k?g)6OwmlE#,E#(,w36:Q2nd>](B-#IZj7CnKqA?I-6>_Sy(t[,xn3ãU"(Pr&*ZQN:PghUFx1p+,&3Mu0n2Wgoc^OpZcohme*n&60RB'ZC3PYTK^$,M%grN8%BN?B9=%16o76+cJJw8SLZP^_2c#TU*1A'&r<>)I[pRMEo6m7+ntu(Ls=e'k2tq6n.y7:usMycãU"1/Av)0WbxA%2E$hS1Cu>u>-b:e[wa:uc&9mw-fXD'pAUEF%9U.qH4NRvJ#s\+C1ãU"/6#7)B+o:\w(>j,B>X.msCI)pFe5M(T\Gxg22X'Jna4k]K6Z38v3#Rk5sYWJV3ZãU"u*n^R,JJ0ctgnNW)T-05Etoqr90Et3VK7;xWQ1TYAvKcklPokQvKklk$&#sXossãU"*CHe:THam:*[.YWQs3M:WWHBp5Yji_XO/bG>/(q9m$03UãU"c*uO=DqkvQ_6Inh6caWN\0#5^4p3N,L8/W,Q<5,2dDvgMR+gsWoT=InZwHW4kRNãU"m8w$6h&V\hDs9eQR.Jz8k'fRv0^PE(fS:raiBNrj2%6f?\Q5?w5Ka-I2]QJEMãU"6oUPI^6HfUO]8Cn%/DJ8]'hchkd7^*5]X^)SV5TA\RgN,0#eX]vo,Ja')[q=H2\6Kko6koBFX4SQYHc>;]:#ãU"\q[-.3pn<[j&:?A'O9pn%y0G4I?p9Ov\gKU3]/oC/g20%(Cwn0p+xdH&Tc6,s+rãU"/K$NBaG:q[Cd:bR,:ITEX==\fWb0]RBNIKS8)Xxge9me6wK4Xl,]+PY.eM69_6RãU"^c[KtlpNPC;RpOS*DtTqUY7Vc_oV?.9GZ?vFeCVz5hZR)?PvW7>+k%/:0]wGq2qãU"SSkCq)s:4Y5WzpI.\B\wAwS_7qmRC.A_.QM$gs7mHLrEZ7#)mWYe=ph/TZI:4jzãU"-brmr]HDxLNl>xu8*2i2m9ZY_:uZq-*hI>mrN=/W*4z&c&ht1ooZua5S2tf0eiVãU"0o,wF:Wh?IWT^c$3JBIwyqOu+Z'=WnJ3Q9TFL^AnOxc-V^x,n)$m2i$h>iQeKs?ãU"cdFq)=*K4+X/XH-8bUQC:Gb[Y%>d2=k0&MjpAsA3-mv?>9.\:Z^TbYms>xnt1N[ãU"IRT2//(VCEm%YW8XoIcO4cbRn./u%iqJ]=dEBOR+xhBEz:lql#klS(f03EqiuE_ãU"aKR9MrHsCiAO9=Qp09QXvFhQa89pcxXexR<1mrma_34G)u[0JuD,OPeov]NnbqkT30dVZãU"F)i.Gq>uM:y0%Pbt9O[ky.-bDZGjR_Iy%6FesMd9'Bqv)mP[mRZJ(^]c-Cw;XRLãU"Bg-.m0>MGXf*k5OCdXYC6>w$?\ugjQ%_>-BqIQ1,%]9KyZc2wklU?K7CYClrIfrãU"mdY*bdyKseorUljfvdaaIuN?6igE#3;c-eHE0h<\OUW/2J_+4&%Y^BTX89]$&jUãU"uZk+UfxNhn>b&ãU"7eNHiY28S75Wi2_37^'THplJ2xwQ+aMa_'X[5V1n(esr%&TzvgJEc:$liBV#RdCb4Ir*#S8Ec\6)XS/^$'6F1+dbAi9p#U[4KTãU"Ts+m$0R?iI-Kuw1ALuãU"sIQRbadNG4VcLE>Is5f,wfcP.eaEg'16abxGTRCRI$UV,ZrY,h$b.9Cnmg^=gioãU">r%[I2td&unA&qK;RX*:ST7S,(]-rZaJKj(:k&CCqL3\Xs-gM\iLu8-8]<+H93:.NR3i*wS5HpfRVh0<]$]vãU"ip9ddh^]#uhF/>f#o9'[7zGIf_ib(AoXA4FrE$g;Z)>:6<5F*fTVr2o*%i>.^X-5>G11ãU"(q-2-^cl+eI6_l.-&2*[H_JGh&fm0ebv#w]yFI4Yg(Cd&:5X[[8>79B8?ak#B8WãU"x$p$[CDE8C-mOCm=xl^5bxMe(*TO>qPhUPJJ=yOQHGMK[Z$d4Pn6IHCt_s.E*)yãU"dr8US.a6+F+QgO16O)KhjoG]GjJQy1UEB%stUe5d*NA*NVZ&0'lGld[q,X-vDmTãU">tj].:w7c9\]W1W<\w1UXRm;k8$+C_bZW9]=oE[X/b?H<9ba+eUDRd2CkGR^qm_ãU"U>9QY.-2)ApaL85h5ZX)UY5vk7z/riDft\97mXeXU>P7CI*Ebxk1jCR[G0e::9)ãU"%u,fb;Jit3/VA%](VbEIl+DJYTW9_bS(WDT.wd6&V]hr9r87JoWE+yVuw227Ui%ãU"2LF>e\469V&/pG,3m'm']twaMSZvptaoI15.ZM9Or(gUIqC5VuMZG$aX]$S.ERl?9*\.ãU"P8tyZR[G]jTH;H7E-QA(V):*qWg>Z7Z7j,PVW/gCq?u3Ni5o8-WIJ-*?prb.AzNãU"%U+gBWDOPuyx+gS?Zpz8*::N-en1+t,BXU3WA%\-,[a>P,Jb^q)Nt.VIem,*ãU"eIyMOV%(dK3&nYx7x^.aMxe%5^:LEjXãU"X(W?./Hi[IH)%SN9TLLxeI;ub_INfQ[1o7m:lKk2t).GTdl1-k5JGAbFb?FD5l,ãU"bemV,L/II2:OaF=-p^?sVrHCkCP$uHqsP-,iW'GtB$dZX1U8-O??wwãU"v$^[ns77DNa%#'gH[8PJskA*66SOz)W1\O^+&BIk])sS_#IYI0kq/hs1RXGY0WeãU"%*W]'2LX,6,TV*B1/;,tZwbL6Nq'/*H53?B*k[>4e3u:Cvf+vMb\]DkAkc%n>1CãU"aN%eP2])OB7+/:nr.L-PH+3w=a2abUG.eZlaufh8Z0)=yeke,j\5Q,n2guZ-T::ãU"444[/wC.J/1EW]ehpw4s9HMbVbiT[5.KoL6:Q<()SZ:4r:aNbCoDãU"Vf_='Bl3#b%\neS,Ijm1Q7x*'r7DC4ãU"&5_n]I>LTPTRQD^?,f.mB?n$e+gf'p3*Y<_7,0ViIY<6;T877Cn?I%[Rwjfp-JWãU"$Dn]T063:4krC8c0>tWk/OsW5b%ogpui\pEWku:]4aI[GWqcãU"KbA-BklLuGbTOTe.0e%Jc=aSW(,LEs0mEc:UQp10,oj1smONfleg#wb_DN6XW3mãU"Q]1a_8[]+6ot63VfY?-8T_ZK_j:iRPW$cMY/AQ07sK,b)esuAf[1_:UD8kePOdKãU"UD>fYA_XzEg'_E(7EnMw=W[.j5+U0M5#&lv)+ãU"NP3'r^_P/J15?gI(rXjF7HYAgli'*NKYQ=Te&^2U/U67UKOsTclufw)ND#gGX>OãU"^>=)MYgljf*Z.#B(X,Ta=N\Q]U=uRuueue[f([L<<$\8qR%oI+ga;&Mv>?&[/^[ãU"hp\=2fB;F0n742^0&j'Ddf;ndCD/ooi<54s]x^w?w^t$:YtdML&GJEtEwkvWNf>ãU"AtMn$fRzGSrrK#H$f:X73C5pi'BbCR;gwj_\j$'1NS0&8:2:0($D+p47Rt7'qdHãU"YX146_vt\&DD'qF4GlM5;KYkOH,Tb2aqE7G$Mni>MEk%5:v(0UrgY4B2J\;]1RZãU")DpipU[x$)31t2QP_OTo%pXqLN.:hF,.9D_Bu\W0aA2rj?uHN;25-z:sK,H0WDLãU"Ix+I.J\XrgmK3=D$eQK+Mu0Yvp;AJ/aX5G^1I%ah9cSqOk53+xlfPG5U1_c$m&>l(yFJa&qz+Hm(Vk>,h(NoqmrGdtd/;IZZI&%1H?8C9VgmãU"hd?>xu<#PfN^2LbG/tAb]KãU"ohY^,'UqL2k67vu_k]8TkW:a1m$M9\CBpJ$Y_H6W8mdW7\d,;EWiD(bxq7g^RZ)72+][vOy(h4->'[=N&/S:om88*ãU"iP?aApcYIrGX3MvQYOLNT+>OR/rWXJ'19?15k;fH:ep;ZSev#qbwsVDY0L5j=2YãU"N^CHIbkx4r%g#mf*DZ^sbtj)lq>PdZ,x3lJBl5ãU"9PJIAb_)E^4)1R4DXkPi:WEe*KU6#CeM93/)7s2wQ,GdTkS=-q*P1T2';p]E=h(\1tCSfãU"qSlEh:br'0*F$O?lT_?i7+z;^gMirIH0:ye%k9mCIRg*ek=N+S7:TtLIZ;F+zacãU"t-;%H3f;#k:M[gAg=T#_O1P8bf=GDxDC'a%SPEH?tX(jx0R_4i/.jF%MHo#JJ)rãU"h0#xJ/?Xv\$+dJc%*Nbf8jM+\IE#0HY&DQM2*4PAI.ad]?jPHJT8zyI^1?+[I,V/NA0fO\JH0ãU"J22R7]HWXruct:)=h&qr%%o/Mn&Ovvo8-LWi$:uv-tn9Hi8Eg?b7>ltVAKC2.S>ãU"K\&.1bk2Q7'kNm+eADtnw];ro$-Wbs/Ji)41RiY0se*d5/I.L6ed*O/i=*aGF[\ãEND SUBãSUB V6ãU"&V%=yPo+aStxOE9C.10NZ*&UZ'E]DY]2w[FC3W+c#-%f\,XS*]53&hUVUOxF,5_O6Z9j60p$PG\hãU"t=QN#*r(x>t*su=$T9n=D.I%[=E]1=2S/gCILOQP%5G4.+]Xx8SCef%YbN+/:=c%I&+7r^^;[+7&kDS0G.8X)fqE3TD^-l>xzLZ/K8A%12q1;Jzj#SãU"uLcVD\u.*J6dxIvy0RU'd(%4%5B0Dd>pZG01WD%z%5RBwzo[C;K*sH*JPq9Hj'eãU"5;GdhSM<31[HeeU'-Dh_JdEi;2oh[Sdex^OevQrQFo)q#K]adjK-7_1%+X6^#0EãU",%R[+$0MuãU"nP^uk8R6,sOmSllYHV5G=$M,&,;zz&PfDz6akR6mS>()=k:a*;gS*Gi2yq^OZ4NãU"H)3'A<%Ox#.A9#qv4vM2h0ux3\ãU"G>\w-WuA2GjHWkV+]QC^7N%C7d1#\*L7%dc0ia&4Y[aXKt'aYlRvfZ[E?y*pa;sãU"scp#>9nX+JB]K\Rl-K)FE1c(J;^aJ6(/;YWKCLZXxIZACG;6.'d?FRf]d'S=#i<ãU"WM4T$VvmlIhYcNh.Pm*TGAz/>cfamx*tuJD[l[hq#Gv%xm09KU3ubYjTZCf;S0LãU"U\c7F$(dgTK8G6%^$eMoEAK8#4w]myB4VTyoFF=&?.Cb([kB1bI>J6t0V/Ta_-)ãU"JosGg(1mS0r/=7qbQ#\9[Xj/=Zv2w?dCU'8.e+yk%ãU"j0V3$yMbQo9pG[AOt[#*K1.?jBL%P23#LroH=p]cr01%..cR$'7PEBR)%i/v:biãU"WT1P2PtZuAKqqk*ZwsJx+im#p%E/KM%/qR[0o5EU'lc&t9wFZh,H9^,VYl2)8AtãU"S4SRZRHDLD*0r/v5F4xw3(cT&.SGIQ#Q#i8nr#90%Op-1'*50sRR4Og1j[ds68VãU"g>h9Y)CM39:xa40y7-A.pHB'oFQMx/smOG?Iy+I0^YF*^O$33gEBS&w?M$$0pr'ãU"_GmcW6/Um\g:Na9BxGHllthP<6e97g%q?fkSigyz4K0QPNYBwhlãU"27qf;',Wq9irUPC_ntB*q0*)9&R_'Ojw0ahsãU"S_JIzP'6gqebsT_=r<l\6.DBzm;Ymj(2kãU"8a/?pT&IJG9tMszm2h=?ci>]2ta3+uPp=XD3)_VrHlb)Fq3sB(;X)psCCtkH?8eãU"7Q7Ipgp>HJ'qrxf&lQNA;&]Ral$Z8.$5C;#naDP$hE'uV97JOod\2Uf90%;(+lBãU"uOJ&0.%K^sd?)l=)1xi_ms#]M,[k?41FT<ãU"%Ba?N6z69f:o.niMd7LM^;y[+-l?d.&/(fFIKC8g.\\[\P\wU'/6[imiOXScZ2oãU"##SCDtW]%mM%Q%Q38e&ADF$_'BugKh4(zE4%>3;OZ/6*v,Q#'^jCE(y(ODnPr_\ãU"5_%tQvn?\vRLj#xGJU<(,08JGnk7Rrom.LGe^*H+pu]9(7:/YW..TVOMl.cT\5tm^6&0)xwKK*1rDIF+]dih>Hp7+ax2T-a]/fG.Wi$M]kj/JG(o;&aE4Gzx9^k3_c/'H<ãU"FMQpfqgDb8PxN=vsNI&See>>_iN?^BT;Z_+h;P?M.6QsE#Y\ZF:Xaf[>b*Dt>\jãU"\smp0Uo;kK)?E:[+N&+6=oLeaz^uEniuesp=v:7r46R)9*e9TuH0(ãU"Cv2pDy54RJ7mlZr8D:*pd\tiTsn%TXBJM*+0s#4k<7dj)qrZV:j0HkZ0b^UjZ0bo^ãU"+dLjXD##q8^RW+bb5ruto>TBuk)>Tljko*Rab,K,J]rlQDL2F1_)N]3jv9hH0lãU"RK\2(buT.u4QZ&CFJ9P$hK=OE5kIEAz+1E:N:i]>Z(D.#uXLxGKutu&T:YYQKdBãU"Wsml$)rTYQ1'w(Zg&^m&TT$E]qC*KduOTh.%5U0W*v1NoJAwr\Fl]3aB'*#?j-8ãU"K4bqs6+_aka(R91Cn=:piuX[h,XTX$Z*xgjvACb#KiuWZHt1fA#8r4XdsRd[-a3ãU"Gsq><*68n]NGHGG:Cz5qSw7[L3]7fqzJ]tus;MAb/T)A37l8R2]NtK)#B)n&Ot(ãU",VZ\DuUpCAt5Q0$tvrpRHD+dN2i$8babH/Z+/?*7=-ZwDu%p(ãU")9%%%%-L%%kC7AGV3))0-%%%J9%%%0%%%%ith%Thmf%sljx2\'ãU"ppDRmyVY5Fs14*%*1$hIRQB_G0gc<^NELO/0p-nssAvsldOZ\4)/9xd*=(cVfv4ãU"nY=^1NK>/fZm/Q[+*_EdB#$dd't(fl40C[SZh>Ze&4ãU"B;V28JP<:d-3[2Yk(M[w:x5%5hi%e_qLaCT+F$Lf0A8TNeN]Epn?UzdW'5'BduXãU"s_)eQ?.S5CFTiQKofpFopW?:2Vr%f_4pw%:hc1\eReJP,[yb5(]e]1G/)yzP\oq8wndI^NpSakãU"ZU#gznTBJ)HK\IZk$A7RuWqa8-4$.7Qr6Bbv-A)<'%^/R#s2PDw5sD4W*2=(zA6ãU"R&<)nWAE.(Vg,fc+Qpd,.^pi/q,JN=#;DkgU7&9Z\e#7+M\oDL)g[V?L,ZQo7GAãU"YiLvzZlisSxh]Uf0Zlqc#O),;?F[DK6Z$Vw>E;Wg)k[x-%1*J?%S>MuJoj1plqjãU"^RmfLnGqJcC5n?Krr2:16,Q]t]n/9+di4hg2-;5GkA'?LB]JqZ>hw_LB*,,8ORaãU"qow_q714lT8rfo7,&$k;nwAEGL.WBnLBX]MGvqK1cqDyg>23h9I#a4RcZas]N^7ãU"Gk-eWpNp=3<*XTB:?Ve;vPNK$xbA;[bjX1qP?L[Tr3t\Pc&cr?K<:gBrIurXhA]ãU"jncGmwI7/AqGj.zT,TrX>G#WXE)U4Cl)Q->9M]s((1\d+oa_97tpy>iHD%A^aãU"?s1W>Uyq>/P2Y5a*Q2U?n$Nggr--#uãU"z?EdII10)g0((0sBTJstO9Kd*pqVfSHYOR%S23HI;h16CPTbFoJ\I?h-i#Z;LpjãU"xI]/XO9c9P\mj/aLB6.gjTDeb,*xhVsGa;M1xji\%mMMoaofJjJ=AU%Zwn=^?,lãU"3Dz:+gW,38L-d?8T-$MkYtMljn9hE.rpABN:FNfnMqMvf7/UH%aD7SPRYV#3bS)Sepw_H:,qA?WJp[a<)p>2jãU"*55)d\J6893UtK_)#D\MaHDdH#XXKQ8fbA&wuKqhyQq6gJbC%K%jegl-\?dBl9;ãU"=oM2ARKR&L?b]F3qo1+S?i*M3=5&Ve>3J8l9Y=:d_^g5I5#/;SLB8nf;j4sIr/p.w#_odxVL(z9AQ%kSãU"$(X0&)&q?Z&XhCHBx31>:duwXo;jm?-Um3,R9($>u9&6#HBqI[t,iwzGgnv(BjRãU"17Cttzkdr5W4DQu2'Ks=bB;vZAi\RYSGY7aUTta-83Y*pz8+ll'U.uke?x'#?6E18Wx4[^eãU"./S37-)M?tndDQAk0qhu6HTB77tXCE,)aBm$KXb8Pq*[hE^?6?h'iLXEqojQEh\ãU"O1)q++SRj*n$vKPdGFgYv$7R$0kl]H1NYvkPaK6ãU"mevJHa\[q80m5-49,Dk8NFZ,bV=n3Z*da1fr)va=JI/KmV&q1G.=A+p0C]]Tp3+ãU"_%DFXqx1_&;Tn\pCWy;9uT#?LDJF,6Z+&sxrLTnNF]Tjw:\wjqC>i:riOt.HA6cãU"^N2KOdkTT&iFEYSoz+:tE]F&0Ui:rp9+IzFG]DXhLFV/)Vz+p7PUOHdyOA(kl:KãU":yOL]s0i=hFW,HkM>xjX'R\4(C+kcd0<'bb\hWX+1'JL'Hc6nfwc/b*JIY<.SV>vqq605=Xi[5mgit5L:6+$pT+4xPo^lpwK_*U\A]0'ãU"aA&gavO+I:uuj.nfQf04F:#uG(SI2TzM0X_fgv)Yg.n$m1D7B4=YfILN0j'h+QnãU".-hPwTwE-f]kdil4GG]07h>E\EJU.pBj4-9B.lq%VpOM3AjJ#of12N98nz=0XOkãU"oWPTmXUg>XzJ02julX#tg>t&Y2>u$^oLLhu7e+yFV..Mx+kc(,dx_ByGfhYdiu\ãU"$N+moJIb*rdhso=3WQDaqv7Sq>ECW]XN0rr,SB5b7WX3iw>kj9A+'\;EX$k]qRhãU")/kqy0Pg+'R[>T^4[Gt-ZdkH]Y'.KQwIc33KeV:_p'#&ãU":f[bo*#oc'O;oebQ(cWR]Rc*xI:b)YrBE,n'=vãU"thIUE;U.gl?,ZY]VWL/L]0_W9haWJCM*W7W5YI'[7oC1yl3sqE++p)2Qi>v.J^OãU"**+xf1Rmz3kV3nsrjD1'1L7,;PhSwRG(2v43L$xUb6paW]lIq)wfa77_nbk,t6%ãU"?I\diH%3GYH5]:u)?l4Fk6pIGV(/aku$58EZ&]S*6d#2KãU"4ihqBOfx86kW>\;#bd,:^cCdxs'\>AuPhT4iGow3eRkXMY<ãU"N#=Lq4O#7q=kqi;2Tt_m,ufKF&d.sfK8)\HJctH86$;nm#+gg'JG2pãU"C(bI0/tN_+br#u%p()9%%%%-I%2s7mAe]3'(R-%%%$:%%%4%%%%ith%Tqnh%jsxãU"j%SithE&'rB]\[76tv[xIK^p5y19&H[<4j]k4piW:\YymC',cgI23pUI01%7jrxãU"M4:\>nX26%C4nsIisnBd4YDHp<4?KjoeM3Ce:mYq$mZ4<,n1LI:Kv9H5qp[;K15ãU"0HV2#(;u\%$'-#'o,Hu3YO#XMrttXirqOxu3C9d\hhdy;-hbv?NY>)W[wy;=V.DãU":454YC9F:iOVSr_:(mZuklQV==2:)7jKe\:)]2_x)/+(c%kOBeX:g&D:?09fz7/ãU"aquG#$sFaG=^($['$Hk3ttb45?8<&*hp9Aj>Sra.v,wPodDE#8xnpG;>]uB'PYMãU"7I\m.8LuJZ]H\$(MX6h577]n-%D(4jb?Dcf/t7(eJTJ=%a2/CP#8rWBRH;^O:0AãU"HVk40'/5:j7M<;dc5UeLu)4E;C;_2zORQHi;R_aggZPTKR$e\qjsJh*t;d)=uo&ãU"jLR#g:)I1FDCAi.&kdpz;nJ6^+*rqF5uf,U=+R'-=.bU7YTA%%5dEGvkkT+Q[\jãU"F%]%ue'PB,?OVMTw&W;-DriJJ3WcCM/*/?6zEkf_z)Y%-1uN$LTp/T67xqj*g?nãU"2?x6T8hG+iRgur_g_ho>/MGM-3%MN(o-Z=?c>Fu5m1#fd#WA''ZRqHãU"wYaA&,G6NqZ#ny^dl.g,7lSsXsRlEWGL&-.wOh/a/GT4\E,bLvG7*I&s5UC=VNnãU"D9AU&%2eUWd3x/AIb.%rW%+bw5ovRqz2s];W4YLD+4695GjAR.g^JSh0Qnn$10'ãU"'Dq&k3'UnB[lUlN492Z%mV?4:b[VEC%dm9[9m0Q/.Rz]aDchl:.k*&ya[qa05d.lU$a-ZMr1pmKgmDB3f7U0'5i;Ex#r=U#n+)CMUGb5oK\PBde'v).j.ãU"M6t7dNThF**_BK-opsq1lc^^Kb#L\f$$EHual,k?Tj_\4n;#uj?n#f3k&SuUA>4ãU"%MyrbVk]L(9*3w1AeXRwG$02TW1\9cA,L_=lp$z,>Y_3cMh7a?22c9QZMuUnQf3ãU"FksOh4\D=nxCZ=]K'aRp=8nEeYSD-]A33dyS,QP=.hDw2A=H\Sw_R61rX7ãU"s2Ljn>mspKjVe>,wãU"UJv^O6?Xf?'vmKakEiMGIkX755is:wi<ãU"4zXH>$'0V)Nx;2eFI1^Y6:X;(bn&;YkVD/0?k'f8eNbgjW9:-ahI)nC-%3t/.eyãU"Vk'*6/aqvd0jcE,371,6wX0,(e*0jm/;boL,5h<(_ãU"0<69)H>ST.tBslJ:D.B9G=OK;p[\:h&45S2K/'t1eC>Gf'tWY$wVP$#Du%f5JShãU"p%-cR6E6FdEt[o0=Q+V(9VqR>f4QpVl0SVNEa,ahIMW02n-l3eGP,tnM2>bKG+1]R3x[5V-;dMe&5)b2of?%:%3a%%%/%%%%%%%%%%%E%%%%%%%%%z.sn%g#jSj'%jup&%'9%9%%%%-U%QãU"/C+A):L*5sM%+%'j%%%0%%%%%%%%%%%E#%%%<&>%%y#jxy%%gjSj&'jup%&'9%%ãU"9%%%[%%g/&DA%%%%%%%%%%%%%%%)%%%%%%%%%&%%U%%%(_g%%%ithT%up&'%9%9ãU"%%%%-%1x_CA,Zm;]'E*%%%D2%%%-%%%%%%%%%&%E%I%%+g%%%it%hTgz%lxup%&ãU"'9%%9%%%d-%U6nl#v07C19%%%%Y&%%%1%%%%%%%%%&%%E%%%(sm%%%ithT#htu(ãU"%wnlm%up&'%9%9%%%%-%5_6l#(?G+8'\&%%%2)%%%1%%%%%%%%%&%E%#%%]n%%%ãU"it%hTqn%hjsx%nsup%&'9%%9%%%#-%068=AU%*-za(%%%-.%%%/%%%%%%%%%&%%ãU"E%%%(jp%%%ithT%yjxy%jiup%&'9%%9%%%R-%JjADA=80w0m:%%%wl%%%5%%%%%ãU"%%%%&%%E%%%)xs%%%ithT%uwti%zhyx%Sith%up&'%9%9%%%%-%4y/CAahYMk%VãU"+%%%r2%%%0%%%%%%%%%&%E%d%%D3%%%it%hTwj%fiSr%jup&%'9%9%%%%-R%x/CãU"LA-FK,V73%%%/L%%%3%%%%%%%%%&%E[%%%H'9%%i%thTz.sn%g%jSit%hup&%'9ãU"%9%%%%-L%%kC7AGV3))0-%%%J9%%%0%%%%%%%%%&%E[%%%2'H%%i%thTh%mfsl%ãU"jxup%&'9%%9%%%I-%dk\CAb.5,r*(%%%H0%%%2%%%%%%%%%&%%E%%%+hQ%%%ithãU"T%twij%wSit%hup&%'9%9%%%%-I%2s7mAe]3'(R-%%%$:%%%4%%%%%%%%%&%E[%ãU"%%B'T%%i%thTq%nhjs%xjSi%thup%*+%%%%%2%72%b'[%%H]%%%%%%up()%9%%%ãU"#-%\>ovCss).O(;.%%Y;%%%-%I%%A>DB4S9h?6lOD4'8-TU\i\%?N7h/1mFMJtYãU"Y]Ag1A[BJmm\I5kRq2wSC/(qI1[+?B6/B;m*PGP-mV'ilgoQjoN.PF5H-=aHlbZãU"hGhFkldKGVH#GnJxdZO'DUbh%b%5-7%%x3i9n(9%B%bBLBW]e%C)'V+UIXW,B+UãU"XmVVl)kB)Akfl/+^*$Te)+j^J))T4jE45BjwH+P:c)dd*I-M-y:OZ^dc4:x,)uAãU"999uE=EF?;;&M[)6wu5NGns%%#bE+8)q2[9+u*U&xRO)NI%',Npn0cuH%w#PeO9ãU"(?)_5[b(HLrXU?D%%OEZ%Z:2Z[RR2FlXcb8&D%2#jR4_;A<_3SRHmQ^[xVW._W-ãU"i00'0;_f3Ly]qSHG9NADTjDV&q+#gwo)>(^?r7zZn$hFpIs(+UUXns^C;uKCSrMãU"pZzj94,Sd%EUM]mIYe>WDwagNQfb>h(l,+B)H>17KJ8>P'Zw/7pW*x2TlMspãU"4tVUTP%dU][gshgu[WZblM<8H4MD*AwOajP,A%ibuc=ouRAL*)=hpv&>b0\tiGZ#Hy7IPq4yJnEh+W;L'CYãU"Ng2eI#h1[vn9zH4,AXZlQ=W?x1N_kb]vq4)?k^_\fLWsVDKz*-RSFe4Uas=j0uMãU"y'qetq_My?L56F$R/F^QbusmR#DMSryJ38,]ysX&>(N''g,MJHG=GT3z=Dwtc0PãU"V_Bf)lD'kORN%gN+V#VdH<1=A96-u1+9i(>wDGobO4(vB_*/yl?fUF*4tJbX%6jãU"ADkfH=S;?dxT8F2%nVG^%h1L0&t5uI4FhsO,N>;;)uKAaU4#s(T;0,^EFN#.4W3HZ.>t;C*?+HH=^.nyu,b:Vic\kWãU"1uvcuF22p/,\%X#Lh.JVN7=P$u#O7HWD8S/>Q.oyxdtK9=L>=MrqOtpfut?\,?FãU";lO[:\yx6/&L2<'rfZ8QAE5tGTpQ^HSypGXHdo/oo%/U:^lo]:W_ãEND SUBãSUB V7ãU"jhr;?s_=6RddA/[HFnAKNFm:$ovR)-%8.L/VvxdzqxI0HoGu^=tPq:&;>\(Pi+J<0No]+QGL4nohbe#_lOf&+=hb':]knjYG\mi1t.s1sb>#^AKbCqLsPe\V68rUf:ili'mM??4oom2&NF_#Of&+2>qed;[r-T..aMuk$ãU"I^o[KJ#7o3:S/Olon[p30Y^t#UDWFYnExTx[1.uB]lMc>Cu2_ri7:KB5X>LT\7dãU"y(mbQ0AAa80A$ulDE&2UDh%%$2tl=$WbhQ(DNZ*Tqe)7hLNGl1)NY3.LK9P*TU)ãU"Wv?[Of=rL3O:q,q4suF5jk=o?7&(0>A+ErIh#K%AK+zB81_woE6P[fc=JPf2I]GãU"Br4^/.X.g#tF\\2:DrueXV'K&j%:NMap>OY)#494l5JdcYJ0hVpE:k8UoeO$P_]enLCDãU"D#8K2jz-5WN5+A_hpcv&*L,:V3G87iNiCUg98wKiWQCKde^$,S;\UD/aI,Si'.>ãU"B1gf.?>2+1=B6w:EC,=I:U$[Z3BE10Ho/AdIjTrVT3Q\#_&hEM87Gm>>dtP6&(GãU".qZ?ljtDvLxO]*'3AUU\49VT50]f7r-GRQ>s'S-qAa7;'Z0*9EHVWbd36ql>X7o^=8Ycp^b=8k_6=41ml%$6^=YãU"\C*Ct\:s7k$l03ul\%VzH.6H0dB4H8EF/6UC$.jP-Kgn&AvNnXTf3\FDoM\OvDaãU"Ymnll'HF,vqI0C7Ag8=6e5k08i+TnCAj&JSZWY?W.re1mc0>bcSK*Dp%y1l>IL15+Hsr7Qu7&jT$uVf1>sDl7<\n1:>QK\\(KQ&_1*VSw%V&\e.>z5:RVSF6Ld'kãU"S,,iHF&eD6C3fd2O6g')g8Mp*23n.xu=ET-utH_ip0R_gBu1WqR_IzY2sFZ)3VDãU"I:lt\k5$=jw5qbe4mXNY\Qy:%^ZnzqZYBukrrUpmpJfEbn]t/a4;Uq0\Qu7_nãU"DzeN;Y9h=os5tEE>YRI3Z7<9fW%/jHQm\$k80F^_'Wj'm*^?]<0&g=l8p9$BadSãU"=WX)l/_.RC=YO?[EYMsX+hZ+L\Ls5:#M_EGhd0Aw/-Z,riAu&EbH2OkX6U:yHcaãU"uf+C8dz,P*.e[ISu;tSZH/>KTcn^3o2\7oJPRGd:ãU"%4_v0H(UaKjGj,S(lG'_4M>u^_z(5b$M)e9c%i\,2x3.ãU"YkLX.$Sw*'iaq%grF*3[X?iBf[qeWd1a^ãU"O2h/ezmp+?oqIhuK3+Uw*BC#l_$/avQdBezHYebge]=]XR]h&JãU"YT>s.Db5+YZTqlHaio'\\S[LdMsu/XHn,eMI'f?];m;Mq/KVus9)MuMjHqA\/jJãU"Z6EM(A>os+k(rsCu%uH7^FTFmRijZ9q[D2ii)*:cIvE?s2RjhTv?5L&rcG;WV$QãU"x$/eiXN'eiW1M:n'pj&1?BdtPHme:MHEFfQsok[m^]Cu?PW3N'(CT5c7r,9eH;\Z-b:>$2qfqnhzu?TXKKrDYh\ezeO2hnEfJ:)DBGZBr8u]6ãU"I#ljA0Qt$e[D#%fc'KD9Y3.#hoLln:le,Y'_hVfm*?2&GiL]=onPymW#l_.;_Jr&dLGãU"K?6hfcg5(gZbmj=+4aW9c/ldkzfjEFmq(/0tj:'-*pt#g8e+Fm>+YL&;AX?(vM0ãU";fxAQh:fZ_OMdC4/\xc*CtWo>z,R,#L+6ed\L2ãU"/v$bg=]M4>]tM&nTWZZ1uXw:mQL,rg^wz^m1:Th4a1'_HJWk&GaXx%+s=TdN'O8ãU"S'A6tGIvhmYQjI;F%Z_8#Zr,CTXrg3FEQ((j)>cl(,tcCf9M0SB]SQ_X2y/hMW?Z.ls1ãU"r,E1]>:H8BSq$R[Kg:NWwPCO'=ORI;;Jxh3kQ0)w.szrq.K7BM'5aE,;rM/=AWJãU"_SS7VMOE\.m\DcWwAPnfT;#k:,J(hD9pZ].yUYBThzuQu<3mA&(_X<'jgD(ALVMãU"et9lo3rwODZ>oLvOnv>:ISNlL)$B.Sp_k7\5bU-ZVlbL.pg3_,Lq+u=-Zufz>?cãU"wyqIDN&PH=.4*OtxP=>eM-DFm*E>gL;^YdoIadDF,gAY>Zdo,cNIY,axmhQSrj61tãU"r.59vqE;[_F2bURp;rR6pVP#S1zxUxKLuTKe+f(Q#vz9]LfgQfg;ndsm)qA+NK_ãU":Rdm>=hLK#EQA(z;ka%XZ._f2Ynm>IpZSd>#=Y0G$ql45_xzk(>lfwURoDu7V1eãU"X'>pNJV\3+>ixoD)HExxIVK-.LeH8#MbDPEp:UHnF49EHjp_,l=RhjrEãU"tvcM8YALv&0Q]uQ,'e[VuX'C5)eML_2i,-HU2Wua5(MDke<&\G7._ro$&rNhF'\ãU"%Axu$e(?aRj>XXBB=j9w%#_CzPIlBv-+Ggf(K(KMG^B8q&rE+$[Pwn:XitAlo]5ãU"1vY)a^iB&zUztsEqvWK'1Q-=mjp%?xoaP2/WppEXãU"/PG-M[c>]k^FHl[a4(kR?16A&gH6qQW-B_T4s/2XzlaUOuDWt7Alkeb2%FlB9TKãU"mVCZn>2$3L(lI^HX^25d?TF+BdQ;q5)89%cj#5T-R2IãU"UZ<7*LGN-7/YJ9,ZfOnFRB,-keLhDQXãU">30h6WVs=G^K9cQXL]N1v(g=HW4gM7cAD<0^Y9EDWgUA6)(rrZ.^yZ,c?:njwj[ãU"m,U[p*F396[7:>Sh)N5K1U;P])g99dwoA$4]1x\Q.;qWI92zXbZ0yU9+vk_mZ8aãU"MxyF##Ed]b#_bH&cNS03D\AT=a9>z1:tyH6e^h+'bw)qv7X]3fFIa'kS7zz]M%$O)9*8[==1HjoiJ(fgP/ãU"H[p&Ew+frlE\RHEUZnrEplr;(vLV[<'G7jDE%sSinltTt5G,X]Pjqm]syPfdq5>ãU"O=5HM6Xun:^.&l&1c?#1hM]W?8/MVt(n?GEr;TCemSNxWtY0NcXt$8he%N&t?m9Hu-DdfãU"2o1'SX'CcK/bY=DO7:3vBmN.D_o_[.W62Ta3ry:*:&TX1II5j]F**O*,CKZUuBcãU"Qh,9jnCVR9>#l>-P/C=)h6Fsh%9:f$*]>806_<&Gd_fD#vgR:*)*;+?FYhk9#UKãU")3raO2]+dS(t#)6+1(jZ$HmN%%up(%)9%%[%-%uAwqKFq3jDn#9%%w%O%%0#%%%ãU";M81E4DB0S#V;1Vi^0Ky>Q6#6.J6\j4eXm2]D9q;x1Ze9;(w0(h(7AE-S0n;=)GãU"gZe#;'FsTR,7'c:mODGPajY)gyz65:&)UKMkpUO5]d]Nk7d&.R'A\8;oL=ef5A,ãU"Tp\,Vsl.WTatf$eqFNlqrHN_xen^6HdKqi7Ojl;1)\/#TQ2oP+hY]-8R3I2kãU"W_QW()ae/91&U'J=,FQCV/a?/O7?4eg,y:lvY0)4?MR<99PY29i[Q3$oQ(Y[-]&ãU"G&OCUe&Jfd-0U)=*^>/IA%&8eFSg3_RC??dG+=%+T;O&9#R6Y%#]'sOGEI*I2P-NfãU"\>&(:_D/U1#21((//Qg-,Y:qU%,y'D/G5K4f%):9cLYjiaOQ1/SQBYf9pH83aA'(z&6WF=m,jAbU4GU_X(ãU"ps0de;s?4ml1ne5])(r>2$?RNY_JiQF+o)+a^2-)(tQba4jC&hSOQF2o^&;&4[fãU"4MLV48/QgC_oHHKE&jr9jY4\UQix-HrXz58(a_\+VC)PX-/G_NeXMtV=P]GFiD\1sIVPk,XC^I_l^Ps2Xpp-MrN+I8&BS_TW_ãU"ql11SCNGF+U&vãU"kEjgN,W4Tj-UFHkJc68&k5#lvF9=Q6jWJ$f%6*fnpEX9,QQ#SZ6ãU"[FYU/gCCO(bf=4\5?2Rp=n2aAHvxUR6TfpRv/v&UPdlO0ãU"%pQLSUZX.2T\W_+On16uMI,T(41+2>6rkrY9J.Y\OkDBAK9<8)Yj%3EpO>o#m-lãU"#-R]/D'/mKgu:MkAmlE0gC'As;t'j->A2l9]hqn8FãU"9qDDdCl6IU9hFU?DJsD5:P7g8ADCBb92<^tE.U,Xgg:EEmQc+:_57PVj#^*e/85ãU"RcKãU"9j]?2Hx>s3lj2N(p8hNjeds3upU1hHRzndbXnSVf.#:v:745d,\/XrdO,j6TonNãU"u16%0_ujW7uBXndF3/fY_595L\b)c;g.J^:yjrSE&c:neG2sr:08]7kHxcop;xXãU"'Q#aZKo-a,abX/=B*Eb+IoBVP5#X,2A^Xi[7TzE%I9]:L/m'(ZStm2nAD+)1OG)ãU"N-abr[PM30yMQbNl^^Ux0SXQ6?u,H)mo;58.BJiA\lS6]?KSB]WuJ/FJi1&A%4]ãU"2$^3%\>5sl++<.E6VGtFVud;Q45ziuU9#ij,Ap8tai/6HHEN8t923+PGXocY%7ãU"eJw2EZX*LDVlJAyx9B8GXl6jEk/)dm3:&Sh=SmD0Bf>p9RuN)248BPo^iGkãU"/O?8ysgzeQbKJ#aXLc6YjG3baLS^3_Arw9%zmR+s^\o2za5t7bpuvQ^)<^Z[O(*ãU"hj)Fm?.-K;;x=t5*>I8VRO$KjS:W74mKZX+Lp>aiA>aKH_;^nlP;/<'83QlQ5#3ãU"u]'Kd32.bp1w4,1)8X#c*p$,HNNYJOi-A#Z2I$$$+rBRIwh9.oF$Z*'ufIjw$93e]ie4\iwn];0&ãU"L2PsfPgbzbKK*_R1K&<0FhCmj,A108Bh/=JJq$8V_NoZK)<^$/mA=uF7&5JjSFvoDv5)u4Cj;CN<.LtFhNkLbb/$bGMLNCcãU"sJM]w:l/jZYZ/RyDJ5n870rEnX,K$Xk7g#FXAD]KfwTS1?+2qkM^o;?g%S+nXz#.rfIU=4UserogNC*00Ys-jw]w8s.0_S1BaAmub(ãU"1.apbu8V=vJl>J[,ztt64?/8.#9WNv:u6:]WTW[Ox)SC:NnRkj[ZB)BB1MF(\-BãU"f8tpRHa,^DnDR8gU^9)2W>E]#ZjaUjW1hZh'ZTj_0YjjD8VM8'.684_re7XK.hcãU"VK-xkn]7y_FID>Av*:N_C,lK_HkkQ6=SFXq,eH]Lx=Kv:8H3fRjqC\0Qf;tai;VãU"sNJCjt[qrnhclMD(i?[#nZ7u.MO]W,t8>uT/8f3LnGZQ(i8VaMB\Y.RZd1;xb'HãU"f/=AKoxR+mWLn%;5-s=wb,l)xLDc%Dge2df_4P98r=LiC%a6*MYJYP]-TDQ=a=Df3WM0B/vlu#]BmD(vL#WL[rEk&%SãU"*#(UD>^b8sd$,O#bcV_ãU"#%?eWkVj.HV6cX=lG*f\IN8V:dnNEjYH5jJ&j/gI=lDJ:ln[9:1H<ãU"a<.jc>WJll6TogZVC<+R3tin:6*AH2v8WwmKwkhA=5W;QJEUkN#7ZeTYãU"ES?lvF'A?2/=>nRMN-q3z/n5>?)%.9Tm1dl%egMM]h:R5['88\YBj028H5X=mMUãU"JGs4eBknu?t';bupx?n9h+N%>Cho<6h.$ZnDs5R7T'?H8M=Zmb:r3VAs/tQxwrjãU"G?M[^n6\O-ZR*\PH'NFLDw'#QpD+Wggw+<&eG5&Gh\gwn\(y\wlGl$TncH3d)9UãU"M,rdif$Euu6xq*Xpcsm+i2Xd;xr/-1ãU"dr&X:__J11k<[3D2C]rMh[MV'J$>B-:a=kT,>F0CY^vhNJ#[]e6YnJp.[W>/7&rãU"3CkvU)EA76rIsk,[AeU_\lJb[GD/C;rf,>lUJhX<3eJLp>,#aãU"JIk.3/C(rT+VsHkV.2mD[k\VsC+r2[V=5m6t[7Ba7;k0WZSEaE^k*=VZ:a4[$g3ãU"9t'vpk>brhV3GnJ([:C3m(dkd3m15rV>=b;av^k^Vs##kd16m0[C56m2kItUIilãU"Jx5m(1r6koHWSBNa6[m,6-,L%k41%2H]h%AaBXRbM9/w+Hw,B.[aWLKe:A;&8f1ãU"4fwzLECC[Sfk25wYu*>RF5^9fDM>A\\sUed4rYI78*]9wWL^v3AD-XHvN=$&aJjãU"xaj2&anx2anf$kHKsB#*7>2lt5b(qXNxXEHhI+g1)N^4r=v^0&HsjJBfn7>=OUeãU"MGh*7LmVmNOBI_w;yLswB;zWKXrb9n;NgLR(0q$;M'?2ehRs?OYd8wNI:tG2-=eQ4?'Fm_)APS#loN)_-fJ,bW0uk^-lNnFMV1ela0[P4-8hk_bwx\R%VXG22rw<(>n8_ZJVgXv\pS$V2k+>\T&zf#b:E>gBd#_[^-tZPNj\i?VSgaUWHãU"kQ/Xg$-Ef3>U\Yo^&\T-b\2AIuAF=xS(k\t0$8Lk+,cT#qN&qm/s/%\n\PKn=YDãU"6bot78>=bFQegC5yJrarH/8B\q(T(dVnPHeg[LTi&hn_6iNo3<6iS;ChBGie&g[ãU"ut.?m\9aSN$X^rj6vxhn47s]N+CPTr7d:sPQ.w$x4yq:X7R8nsHLdgJIrpS9#8CãU"5ihg?nIi]S3*67-S7XVg/SYI;(1dB>e956O$Vs.uSMD$Q)Ms2aAmL)MEDn3Cs,JãU"o0p:boW)77h_kuL'.x]UQ&n#Oz8n/1G,IBTr&ukJRc^IL\CRyUTzsyAy#zqIqap1R3bv_*CMzKsw?q'jx8uEJzhBãU"WkhXO]^(lNN3i6Qe+WND,-REA9ugO_J(%u\^B>g;04^PBCK4$=,28HWee(pj4R%ãU"?Ckq%giP]cfBC>55-^.mnSS[KBMAM=KaG-)C/:;%yURyZ8gTj\Lg:g*?4Xhxeaek)Npu[=1K*A0^7IVnG#W,i2&q+LkU=u2ãU"$*PuquWk+^jQSA+Yl;4hJL0&ZigaTN0DKQl[VtcE4E7FD^zPSY?7SQRwikf+OM[ãU"HDCOL4]tZ'2K$'0X%phTA$uMyO&l$N*V05y%a\uk<ãU"b&*1.=e*$GTLr-;7Aa.onej_+s/;kFYMaU='xg);<ãU"YbV\HR\6fQ\>tIOO$y(\jrK_l$]3X4:8WTBWJS,iKT][Lp4#pW=:2b-#[sGtYciãU"*?R>RiTGS5+'ANOG%*xLsOIju++9BHjCH22BSl=*&meF_sãU"/woN=XbBXnW>Q4U:RI]9P4PV1Eg,Vs7SsbkB8j>+q8u%p()9%%%%-g%)h1+K)6lãU"(Y[)%(%v.%%%/%%L%A4023<4SMCGCTk%DATmk55,bYxU^,ZeO50+A*,AlG_[xNF56l(V09T)+=\9K.s8q&4M\'i5rSZLL#OsMG1a>UãU";\l;S]p+8o:3IV^d.\[7Fgz-)FF#j\2)b5le3(oe/0v63a,>Lm4>'B9)/;2P]ikãU"ivA:2IZfhiOu;U/9do9l-61L2K$nE&q\S;x/\_S[tlh.TBq&8Uk^u)e\:$V(lCW/&,A61xL?q3ãU"WSt&rcH4:m\Qg#'RIGS7y,->\6[:fhH7p^Q#]0blOkY9*<ãU"0-1f'bVlLCuZxG,wqEIsiq$ExD8En3/[p'ck*o,&F1N.0p<.2oy>-'ff+61)L:)ãU"zlYtm<(=L)nT=U:5lh$%H];b]\)fQeLq_HZN3>Rl<5Zon)XQmszjY^.K3d&I_m?ãU"s5lRRkHUUP\vz,L:lUW7TUMWtehU,i]\Y2Wa]dVxZOgW3liLJwZ^Z.0bg$d;LIjãU"?pVJxM-P8OQB,#)8u.Fo:BKB:zl6oFvin<]vPZD1cDhgGcNo\b#U5_u3pT/6>%gãU"2X7%Ac491l1d3rK19-es,/%&Iw[ue1au(-#JrGMW0SL:$1-TRSQ^:W>CRXiIM](ãU"CGPPjms8AvG1HwKqrtM5-.K-8aj#?(WVP',pd#_*j\Mlh7I4\vIscT(e,rH::7tãU"0k+/D]\^,K*bcM#f[78\2Yu,pi.S:>ase$B'OEJv?%x(D4Tz_igTPan>G3FN'?-WBjz6LV?AFWe6^V)>=2A;?RãU"jbL3xKkLrnSQDbPn*Py2#T/o3Q*qaUãU"AQAo(rt/mMv8eXf%fSp5PtR+T+MdXn^S[g)1;t85%_jBV'kaq99R2X*\V18EJ\DãU"z)at;dqM)36QHZ5oPxHCf+mHXTEYUce*^N(u%p()9%%%%-j%;P)#K,^4)HC(%%%ãU"-4%%%/%%L%;81ME4B0gS18FM&,>jdU9L(6Mx/zcSSsLd)YpR#HIIZ5c(TY):mK-ãU"*0xz'\$VRR-(XZIFeqmsM=$Yyr_Agja^oZ?<_I?gt7t'H?AFUUE.*WoX[,Qe6m6ãU"t#m_e3Mj*kSrMnIrHMH#\NiseCOAcHn6be#8)9D%WQa+XUg*J&Epm+3^]'f>=5CãU"L[8f.Vv*HJX?n)Ng*>StL-v<&F];t.:nAlk/lYM+Yi?o56,B$aCPOzIOTURqTvãU"K]A-,Yb.$rSkY?CFMbRoz/8c=KMlr)zmNp_Ln80aP\?qLtjhTsSno^yo)E-=^qbãU"%0HJh2dFg;hzeO$.ZRdWO&H69ftvx3gVE-Dh1<2ei%etC??QrQWjDZcRa8iLJu>ãU"0d_TE;+>[4CgR$0rEsxNBK9mLY,Wd3jPjn9^JZBgrSPYZ6nrVQ[n.sãU"M\U9ZKO$5cu.om]M<$X&hh1]E01h*a9\xwR&02h4nS8ip9hzUE8&vNRNO7U9);6ãU"VWN:ws]r$hc03%Q5P%uLvJE9a>LI.\[UK56M*rm]8B:,GMpWhãU"<:2R3MtkgUux3.2hteX;n*g5KOcmB;ZM1=PP6QBqowUZ2b;[_pi[ikA1\wpJ,=yãU"OpY]v.phmmcaeuo#hM3Me#Qh5+u#t8QPky:\vxSsãU"LAn4^jNaep.wN_a1Y1ePNTZEvkIP.\V&RqW/xYg+'(sJ3HGI/9T>VVt'Y_8d5otãU"y;R^bu[il]X=_SbW3+#;V:&$dNGDUHqsdh>=5Tjk1.t4N<'t)%k:,1v0u%p()9%ãU"%%%-[%9)2^Ko=g%+mA%:%m1%%%1%%%%ouj(l%nj&&SgfFxeatYoilg,E:aZ6asaTRqX>4Z]_k3wt,p6252,lBm[.Iq<96U28RG,ãU"lrIx\2>?dFhY6_u=&zlD-o,hw98LiM?W,t0/sH(A_Ux=lr9W[IJL;Soj=eIZj1hXtM5&2>+_nCBNp]PA0Eu9xuãU"#^#McTn.T$6/<&eb4%(>-37]/pw16LaOo0>K9G*.1>UcVAQIF1e6OvHoM([<+bQãU"EJo^^)fTxnTnrJmf>U/\/d*'AV5$f^e\&o/+'Ae3EXIYkrc$tp=7y,R9;xT\3)vãU"Z6<7]:6L.R[*)7I:#:GWf>albl0a?:U+(Uea_#Z4L0]ATk,BUcC?oN'+7md5/&LãU"49.n,*Gl0HF+g(0HpI:o^]F?Wa9](xQswQZ/V%52YFRER.[U2aT/e>kG?q[z(m=ãU"cE3r?%,]6'[I#Mmp#/+Mv^XMw9hs_Z+=5s+^B75BFO/Bi7.[aCUP.0*HI47eONcãU"m9fYa*ic-8vxM(h*CBKHcm=N[/^M+2VRi_dUH>SB&4L%6Bs7.D5DfK<=a'zM>-)ãU"tZw#7_s'cvEWl$pwBVYxx&Xu&=CYg#9Ln%qF\B7-k;8o9r+5T5Ma7%*Veit0'k_ãU")6oMlkz7\Z)?-.?H6aAU7\3$:15AJhFxb8.)NbwLwb&f)2?F[^fO]7'eFlYbP\_933qSI&dNef(\Ik(ãU"W#dl7x,7Uu3g1MU2%o8v\fkl8N8,[KD'Ti7boogW./nUCz0>VZ;+y(rf4^'q-LsãU"R=eG*U;=9DZQ[_sRgdB?C3%I[S633L8Tr0u<\\Eo*epQr5>,D^TElcfd.jLD_(phK33E+T?+.4hN*rAX\7b5rKãU"X1+HpKRIIO9F[sQ>H(\%QFbSsGa4sR3#]*E%cXr:-iwDzVl118;r3ktHJoY?A6jãU"+xX=%^0jc>_kx6oC1d6Fr,DKeaZ.Q29jXR*%O=/'YTl[.;&E3AOVFLqcpVFXRBAãU"n8;3W;2/IAIlL%Q:.FgK&p%,(TmAqr%X/L'93ldp;?jNG(/jtRRf1$aUk-$k7K+whAKphbR(SbJ^l0m7\3?hMnS2;)D)jKI>ãU"1tDqLFVH=ivJLILxKFQ?\OVp'xfW[c/MD5/?(g.qh>,,,N:(B'(B3l,QG%Y3n9FhmP9gai][VYk.gawdR^8zBãU"Z9pffcHkL%X(rp%)O9S24\3nGXj>?BJlTU7.W(=s;F0?25KH+UVeXfv:E_u30W9*C%R15B/?9H)17(OTEyET/WpãU"*-YWL+DX/LlqIlxbU$%*8F.2XeG%yH?5%D.97(;KA-n]^)N2Wb[uhW/J0667DN0ãU"%&E0PQqTzRETkcGdH,zuFI?S7l6[A$cYmE(<-MW+S63*C9I.6d3L=6V.6^q%=OF,2C&-E6Oc22CuPt(ãU"dczZkr2'NnPJi+T7t*g95+&gMaTOYuUccMo&K4czE1zeXD9Fu+^v.aIff4p]U%9ãU"op07+nb*1zgnC*99m.ZUII/VuI%YDtixH:VCc:yDty8lCRFScB964Dg9?V-fb$=ãU"A;$e0PDq%[8Fe;S.Zfr#-*mrh+gfKK&I2OEH/w\5hc%q[5Qf)U/Jx]_*a-?JA#bdgesV*TãU"2u1)FF=x,Jf3Rw5u-&/Z,W]C\+3v<-x[R0gK']Tp'ãU"*j8x;?NR^fKBAY_uFrXRQW_wgtDCB(m[+t)l%.EF]Ucm-U,NQdjI'Wb>75jF?1&ãU"9ttv(iEIKVFt:w9'j_9OoKBJa4\ZAiaC.M3cl;:17W*47-F-aY;GJr6rvA;]]euh8RahsCbTm;EhGsESBxKb9GRf^U6vqJ]4S&ep3BT2iQFeO?PT;uãU"^Y9%MJ6K^^'q<)OCmw:>p4I&Ce?_i#d<*?AY_la)%G.?\&0)G3O5q2B=RhtAE/WãU"q==Q1cd0jlL5_m(GLo/1JSGT0^^O:n*Q;01G*\A'e-SW2;tkJ.jDWf/lA'z+Lx?ãU".T7LNjpYQD_qI=vD8AN'FC$rRhk&JJ-Tr(>\1/X[;zMrmD0=Zs%v%,'J1M]fm\oãU"nP;v--4)rJ?(C\B>n-m,hEvX:MIRW.5ymhnOpcAg0R,#RBsEe9N<0AEGsSYt$%^ãU"DN#lu75M5UHs6qf$GPpLZcR9*b3+.?LjLJwkh+rBSRRw&1MiX\S?<%:6/=4eyXfãU"Hpyh\k#;T)I$4KOS8AnbYgMubVKqD58?wgSO7,-AUXzM*u7=*A&OHLFYX1kDBzwãU",\w/M2GodK7bihhK9VEUR3BPgb-SS_8lPk[9E5Zu7Yz%ZTD1kkOGtSST>CãU"8fBOPW,%yS?P%+MDAA[5C-7M#sJ0b%-yP^+Jt>4g_I3b2XZ,Tu8>'q.DjJ%FnJtãU"\5v3H)WzZ5](SLIr+:U?uHD][55q^9[LUOnWHj2IOq.1/6MfLLabg*Pq1gRDTpD^'igTI;J7E)#J<^UH1wL%9_)BVgmX(u]7v0'^.ãU"1UE=NAj=UE5uU/&q0)iSl3(*JM\VSVgBUYWAObGkaQyAO%9c8J$GH[My&c#sJr0ãU"jKd1_7P[m]n+'87^r#=(EMG:G:QQ?&2K%*Bf'$h-gnUw4^94nlYfVeJ3L:\1\TOãU"vg)k#KfrCzU=601rA0s3Nu?tE[wSV]Ib-7N9K?VexvZv(x0-vxTx6usnuuu%/xsãU"i>(8Xujd$Q[P2Ye>kJaO*)jE38DPOU%M;cZuaQAK?Wrp0EiUMcccv7J]\5vXc_uãU"cM^4g->JB7g&<$HwC)Nkc6vqmBp.6?e8ivA6$TPh_1b1kPcG,;l'2,YznyQC=I7ãU"lGP7nnL3;%#:63q6=fãU"G3gEk-roW=uSs]KoU]QD89EG%i>$'w%;x+/V5j1*-w5q%ln;dKr9ox?F,G1x2J$O:lk%]F(Ic:9Pi6+v'Lwgo2]\IXRUK1&LRiI_[iBV)jVQBs%].VvmVo*k[T?C50dLC+O-TlãU"*U3L)Bu[O%*u&sz,$VLAm[7p6]174aTnNQDZk/0YRm\mKoVOOC1L\JhY[$//]&I3gmsp,Dz%\Bnxz?.0N9vãU"MO>Ci-m%2F*tHO0?H-hD6)[a7%Bwn+&JToqLh1T,M\3DJ'FqXLDqoAv'ZVJL$fQyu[8ym1bSc.0VbIxARMeCMãU"e=Qfu),ZRP;-TAf*dr90\.jk2zlp)qG[iLk0aM+,]q/rLD3$z?hej]'+POxBVNfãU"u,L:8ZqZ]STztYV.f0\#mãU"6,D9v;TcYx&$R07#ey7U2tk^t(osn.u%[5B3bFy88IY)djmeZeK,5l*#Kt#[XY:ãU"F\I,QxnnO)EU'8u+/DsQOt$i,a2^uu0[Wl^*_(GQda0O>T.<4>]?aKlEj(?3S9$ãU"IWO9+6vfC_JXq?tS6qo)f?EKT4&CGzn]Gx;4JAZdãU"lap2.04vKM14p?;\t9pOO6O+:#nR4km/MRL:dnD$PR=Ib:EqN%Zbn=7>=QjP-l[ãU"qANoE1$uV<$JMj9CTEsWAe-h:(v&d0P)175&7)1%:SbS4(KdKG:wT\G\6$KMnz,ãU"6hKzWl;5bS)-Csz*wv[C_\Z3%T1'aglvUQ>,X)Ah^r^Bd.YJsjT8KEnAkEQ03Ec5;#=>;ãU"6*sozr)?PgIAsVocJ[KF9%L5TX%=?jidaskZASfeT$r^sq-(12L?aflk$=wAACHãU"$*O_foV/9&>DxL8hMF[a1VTM(VwA$d*KO0&8*;1zdNIRzd=wBsFrd?e5g$KdF&wIsb.dtZ2VOqq=j$vgq-7V'v6;SbgJrlL^l4;B-apkPE%2r/Y_S&bIbãU"Ui^WBXMqtUPIjJ256]j\V.nH9nSud-K65uo+mZP/+$g>Y0&phUh51aRyCUZq6n.ãU"IO4_5JHxa+eEcpfDJEBuJQ>EF#Wfpd/BKfo?O;5_t';0K:R[Nyrh+';]Cw-j1-O,[G=Q%b^vR'gIVO[hãU"4H)[Z4s]cLR$85fuR(dQM;smNbu:^.#GG?lHDN(=NIZP0X+TAr0:Ua.68:Vpam0GSmRuJ_u&XMZzT?lq%Wt6d%dG(UsZJoq0OFDL[iQ4;cPãU"*YD%oN21]HcG)ãU"vFUeXUTZy6+mKI*u4+P+fA'c.,JHFM#e3A\)G1LeyW_$B*o79?xM8HOwEO-Q.7,rCM=?[[(\p1TYtMX,h&:t*KSD$LMu>Bccdpc]2nzLbqs[*NwI#8]Hw8'.sU$MXvowl#n>v$*bãU"_SHa9#q1Ju:\:Gh9:\Xm83qM04*1JQ3wCoW7DjILc+S6sN&/&pA>gpjROGK*O'#ãU"X9j$y?-H&/'.HD::MVWMijraaJK'n-g=>sW0pvh2ZXUl>ZGbP?Ls.7Pnn\9X\+uãU"zwVv+I>ukq$%SVlXeXh,Y>\*3PxuE^iTk9mf(^k8Pplxf,d,>Se1fxc8xE0_ãU"2Zx:#xS4sg\uq1nl5#rZ0/M($wg2E3B$(^0+'bSw)9RIAK[f[.+Cn_rg+)RyICoãU"_rQ8;Wr*TRIAuD+):3>bVs.0-nor14yOetj]5G9s5:[Q*msV5Knj49ra:[5<)u)ãU"uT]KS89o)r_zsS:.[baIEQuZ'>nDcy0)rzb8,cr7=ym*_rlpUtF0/n5Pr8I%W+HãU"Yu1L#AofIrj]*^=g\L:1j92m/j)TTIQu8QIQK]:[./8XL:[+./Nl(9;xfN?u/j^ãU";s//RNrkzIr'fU-QBtQ.K]ãU"oYew.Y:)xmmeaEdOG/2RZ[rfO&uW-q]mpoJ:r8lp]*'-5nsWduF;(6\%Rn4p:8QãU"fSIW8E(._'qv$K;$j'BW]IVoLfr240k'%^D9B.0Hs)l]cl9OWia:y;N;Sw1Y+f2ãU"cNOv\GR3?R6B+:nsOM5=%P$xRPwL]1l[;'\x'6X7x-MãU"7=7DAY3cFc3ãU"45[7ZhEQsnT56c=Uf_I&j[t>63Kd>>-SlNFaz&ZRK3$hplm.+]f3v,4B?wJm/M8ãU"I]9khU;yeA2j9Yf:Hzm3/)asO(Ga12c\vL;Fi]S6SFzKXjZDwumpdc\2S+pm?9TãU"RXCWBB*U45]t&diX_QNj8CGtB>bGvC,O4l,jjE<51e;CocC\;ewou(_v-Zh#J3BãU"Gy%S3g7ugskm48Su.[&8mdt;&b+wVãU"2:0]_W]d=_-W=O4[dogM.?2r;#,c4mTq7rjn(fahXHO^RD-:A;cD9$^/,L%62a>ãU"53<=UYr1b0$FTLfo<\bWVaSWtZPbY)QZoJriYdg;%qE:Kdpf\F_MySJgLsON1cuãU"p/q5S1zf2gK[U,rrCo2xGJ=GY4)h_?#x9(G$%7%G$%%%1%%%ãU"%%%%%%%%E4%/P%#%%%DM=8E1&4YXS2I8?u%p&'9%%9%%%%-%\b>vCs3s.O(#;%%ãU"Y%;%%-%%%%%%%%%%[%E%/8Pq$%L%A>BJ4S9?&6up&%'9%9%%%%-4%uwqLKF3j-DãU"n9%(%wO%%%0%%%%%%%%%%%EO%/PDBv%%;M81E4DB0S#);1up%&'9%%9%%%I-%)hãU"91K)6.lY[).%%v.%%%/%%%%%%%%%&%RE%/P&b7&%MA403D<4SC)GCup%&'9%%9%ãU"%%R-%;P')K,^24HC(%%%-4%%%/%%%%%%%%%&%RE%/P%l<&%M;81E24B0S)18up%ãU"&'9%%9%%%%-%9)02Ko='g+mAd%%m1%%%1%%%%%%%%%&%RE%/P'\?&%%oujlA%njãU"&%Sgfx%up*+%%%%%%+%+%%x&%%%z\&%%%%ãEND SUBãV2ãV3ãV4ãV5ãV6ãV7ãV8ãCLOSE:IF S=213AND 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ãDmitry Brant JPEG FILE DATA DUMPER dmitrybrant24@hotmail.com 06-07-99 (09:16) QB, QBasic, PDS 251 6837 JPEGINFO.BAS'JPEG File Data Dumperã'ã'by Dmitry Brantã'ã'QTopia -- http://dmitrybrant.hypermart.netã'dmitrybrant24@hotmail.comã'ã'This program extracts basic information from JPG files, likeã'image width, height, and lots more. Perfect for debugging aã'JPG viewer.ã'ã'This program is freeware. Use freely. This program is also provided "as-is".ã'I can't be held responsible for the mischevious deeds you may performã'with the aid of this program.ããDECLARE FUNCTION GetAPP0% ()ãDECLARE FUNCTION GetSOS% ()ãDECLARE FUNCTION GetWord& ()ãDECLARE FUNCTION GetByte% ()ãDECLARE FUNCTION GetSOF% ()ãDECLARE FUNCTION GetImageAttr% ()ãDECLARE FUNCTION GetHuffTables% ()ãDECLARE FUNCTION GetQuantTables% ()ãDEFINT A-ZããTYPE JpegTypeã Rows AS INTEGERã Cols AS INTEGERã SamplesY AS INTEGERã SamplesCbCr AS INTEGERã QuantTableY AS INTEGERã QuantTableCbCr AS INTEGERã HuffDCTableY AS INTEGERã HuffDCTableCbCr AS INTEGERã HuffACTableY AS INTEGERã HuffACTableCbCr AS INTEGERãEND TYPEããCOMMON SHARED jfile, a$ãDIM SHARED image AS JpegType 'Global image attributesããCLSãINPUT "Enter a valid .JPG image file name> ", file$ããCLSãjfile = FREEFILE: a$ = " " 'The ideal byteãOPEN file$ FOR BINARY AS #jfileãIF LOF(jfile) = 0 THEN CLOSE #jfile: KILL file$: PRINT "File does not exist.": SYSTEMãIF GetSOF = 0 THEN PRINT "Not a valid JPEG/JFIF file.": CLOSE #jfile: SYSTEMããDO 'Primary control loopãã IF GetByte = 255 THEN 'Marker Foundã d = GetByteã SELECT CASE d 'which one is it?ã CASE &HC0 'SOF0ã IF GetImageAttr = 0 THEN PRINT "Error getting Start Of Frame 0 Marker."ã CASE &HC1 'SOF0ã IF GetImageAttr = 0 THEN PRINT "Error getting Start Of Frame 0 Marker."ã CASE &HC9 'SOF9ã PRINT "Arithmetic Tables Present."ã CASE &HC4 'DHTã IF GetHuffTables = 0 THEN PRINT "Error getting Huffman tables."ã CASE &HCC 'DACã PRINT "Arithmetic Tables Present."ã CASE &HD8 'SOIã PRINT "Start Of Image"ã CASE &HD9 'EOIã PRINT "End Of Image"ã CASE &HDA 'SOSã IF GetSOS = 0 THEN PRINT "Error getting SOS marker."ã CASE &HDB 'DQTã IF GetQuantTables = 0 THEN PRINT "Error getting quantization tables."ã CASE &HDD 'DRIã PRINT "Restart Interval (in MCU blocks):"; GetWordã CASE &HE0 'APP0ã IF GetAPP0 = 0 THEN PRINT "Error getting APP0 marker."ã CASE &HFE 'COMã PRINT "Comment: ";ã a$ = SPACE$(GetWord - 2)ã GET #1, , a$ã PRINT a$ã a$ = " "ã END SELECTã ã END IFã r$ = INKEY$ã IF r$ = CHR$(27) THEN EXIT DOããLOOP UNTIL EOF(1)ããCLOSE #jfileãSYSTEMããFUNCTION GetAPP0ãl& = GetWordãPRINT "JFIF Header: ";ãa$ = " "ãGET #1, , a$ãIF a$ = "JFIF" + CHR$(0) THEN PRINT "Present." ELSE PRINT "Failed."ãa$ = " "ãPRINT "JFIF Major Revision #"; GetByteãPRINT "JFIF Minor Revision #"; GetByteãtemp0 = GetByteãtemp0 = GetByteãtemp0 = GetByteãtemp0 = GetByteãtemp1 = GetByteãGetAPP0 = 1ãEND FUNCTIONããFUNCTION GetByteãGET #jfile, , a$ãGetByte = ASC(a$)ãEND FUNCTIONããFUNCTION GetHuffTablesãl0& = GetWordããc0 = 2ãDOããtemp0 = GetByte: c0 = c0 + 1ãt0 = (temp0 AND 16) \ 16ãtemp0 = temp0 AND 15ãSELECT CASE t0ã CASE 0 'DC Tableã total = 0ã FOR i = 1 TO 16ã temp1 = GetByte: c0 = c0 + 1ã total = total + temp1ã NEXT iã FOR i = 0 TO total - 1ã temp1 = GetByte: c0 = c0 + 1ã NEXT iã PRINT "Huffman DC Table"; temp0; "Present."ã CASE 1ã total = 0ã FOR i = 1 TO 16ã temp1 = GetByte: c0 = c0 + 1ã total = total + temp1ã NEXT iã FOR i = 0 TO total - 1ã temp1 = GetByte: c0 = c0 + 1ã NEXT iã PRINT "Huffman AC Table"; temp0; "Present."ãEND SELECTããLOOP UNTIL c0 >= l0&ãGetHuffTables = 1ãEND FUNCTIONããFUNCTION GetImageAttrãl& = GetWordãtemp0 = GetByteãPRINT "Data Precision in bits/sample:"; temp0ãimage.Rows = GetWordãPRINT "Image Height:"; image.Rowsãimage.Cols = GetWordãPRINT "Image Width:"; image.Colsãtemp0 = GetByteãPRINT "Image Type: ";ãSELECT CASE temp0ã CASE 1ã PRINT "Grayscale image."ã CASE 3ã PRINT "Color image (YCbCr)"ãEND SELECTãFOR i = 1 TO temp0ã id = GetByteã SELECT CASE idã CASE 1ã temp1 = GetByteã image.SamplesY = (temp1 AND 15) * ((temp1 AND &HF0) \ 16)ã PRINT "Number of samples for Y:"; image.SamplesYã image.QuantTableY = GetByteã PRINT "Quantization table for Y:"; image.QuantTableYã CASE 2ã temp1 = GetByteã image.SamplesCbCr = (temp1 AND 15) * ((temp1 AND &HF0) \ 16)ã PRINT "Number of samples for CbCr:"; image.SamplesCbCrã image.QuantTableCbCr = GetByteã PRINT "Quantization table for CbCr:"; image.QuantTableCbCrã END SELECTãNEXT iãGetImageAttr = 1ãEND FUNCTIONããFUNCTION GetQuantTablesãl0& = GetWordãc0 = 2ããDOãtemp0 = GetByte: c0 = c0 + 1ãtemp0 = temp0 AND 15ãPRINT "Quantization Table"; temp0; "Present."ãFOR i = 0 TO 7ã FOR k = 0 TO 7ã temp1 = GetByte: c0 = c0 + 1ã NEXT kãNEXT iããLOOP UNTIL c0 >= l0&ãGetQuantTables = 1: EXIT FUNCTIONãEND FUNCTIONããFUNCTION GetSOFãa$ = " "ãSEEK #jfile, 1ãGET #jfile, , a$ãIF a$ = CHR$(255) + CHR$(&HD8) THEN d = 1 ELSE d = 0ãa$ = " "ãGetSOF = dãEND FUNCTIONããFUNCTION GetSOSãl& = GetWordãtemp0 = GetByteãPRINT "Number of Components in Image:"; temp0ãFOR i = 1 TO temp0ã temp1 = GetByteã SELECT CASE temp1ã CASE 1ã temp2 = GetByteã PRINT "Huffman Table for Y (AC/DC):";ã image.HuffACTableY = temp2 AND &HFã PRINT image.HuffACTableY; "/";ã image.HuffDCTableY = (temp2 AND &HF0) \ 16ã PRINT image.HuffDCTableYã CASE 2ã temp2 = GetByteã PRINT "Huffman Table for CbCr (AC/DC):";ã image.HuffACTableCbCr = temp2 AND &HFã PRINT image.HuffACTableCbCr; "/";ã image.HuffDCTableCbCr = (temp2 AND &HF0) \ 16ã PRINT image.HuffDCTableCbCrã END SELECTãNEXT iãa$ = " "ãGET #1, , a$ãa$ = " "ãGetSOS = 1ãEND FUNCTIONããFUNCTION GetWord&ãGET #jfile, , a$ãl0& = CLNG(ASC(a$)) * 256ãGET #jfile, , a$ãl0& = l0& + ASC(a$)ãGetWord& = l0&ãEND FUNCTIONãPetter Holmberg 8-BIT GRAYSCALE JPEG LOADER 1.0petter.holmberg@usa.net 06-07-99 (14:20) QB, QBasic, PDS 352 23278 JPEG.BAS ' Displays 8-bit Greyscale JPEG imagesãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"JPEG.ZIP",4^6:Z&=17179:?STRING$(50,177);ãU"%up()%9%%%d-%f7o1K)v>F'\6.%%5h%%%-%#%%o?D46S1;0BF$n:xTOl/XhZXd%ãU"I_6Q=#Rj#l9LE2/q?gpP1$7[bL^dXga*AYQ^es118wZ'.XJIp[8ad$xuLUmJ6nTãU"tJ8Utn(th=FBuU>i=5UG.dA-2hoe6jpoS\dod;Mu-R%zQ56JE($a#JoEb>Hw2TnYZ6kG)Ik?5U#ãU"j^jg%N_#IR:_&kCX7d5a]iY/+[U_n+oYC2,nf7WRYVDW7D?D.f0Jx#7O7Cb$?jgJãU"[bT$,Z/Q4db:b>ZmO>z%?q1LjqIS1=qxQ[g)&kSgO8taTbYM&-nWDoRnrkP-q_-:ãU"a/_/Dg#qIHaC>cZXKJYE&LOK6sl^ms;\jhRn;PT5+IN_Vm&AQ\8r9U-tazL7Sv=ãU")k]Xxa9[cptVa&YB-d[\YOX0jYXkVF\WN>?B2uQ4bppT8Yp?:bãU"aAU3wRC1.K\^:aQ&TM8.*Y633Xn01grS1;vFas;jM82ZAWx*q<6,opL#<7f4[A;ãU"KgFXGCn9YqX.9=r#p]J5._?#;0\==/ja^6;pp^tBv]reSW5qZRag;WTD]<9JTfYãU"uU)wu,U)6RK/Yq:dnn2GcmIRH9R4D10nM?[4o__D+^^A2,S/V>;1e[;vE]#=$%$ãU"mk[aC#fe(L_/p;iRuuiIAiF/rKklM7E+o[ãU"RTY8]J)r<3QqIx(;%;t:DYrGC'[ta])5F(AOWQI%&H>l-^X]2\aj=^;uea4M[V]ãU"1qAfF\81WFFD\qU1EGu_nClHSk=>sQRUuRbQLgS)Xhc997SR9&[RNd\Q7gQ4$_YãU"iSF-R7&>BDbd^ea]\YHYfR)\]kSl]9tG#8xGdNXRk>;beFV&:??4MJ/%b;??E#^ãU"4O;_FLVs0bi,_LTn3ZXãU"I=9R;NZ.)5VV<;F?eLwdSa1Q;g)aqNE.u+1cZQ=2ãU"^sT)DKZAM86DHWNU%FGnn1yoZ+\q+7,0Uh[D7[$Eac=nD+(]3b&,n*4pYIUs%MZqTPxq4Dn1D/8yx%0G/k0A;R^oTGwuNR*\CãU"vi>F&PADTq8o?;<$\7IK2Hwh$4et_*;jvmNGc3r#1LpUjj^Wbd#BT+o,Q*/&y<1=3Y\-YãU"3V3qHZL2;u'0Z9dfCv3RM\0TqOOlpW:SUnL(G4P4G;&Kq2'F^Pccx7Koh^dfAM4ãU"jEg:OE<;c.NMH=fF[9,s6(4pdMN3n]>xGiM8iInUn(qNuãU"g?;HX]Lb=-r[d*lDr*UM?VWG##K5)*j7O%6py'So.I3.>y\P[&aGlZ4r3.g;JC,ãU"Scr=2&4CaB;Rhe;S0)RE0H1jVeF(9D9j;V:fP[;Fvwg=Dl7]\LC>fT*,bLc6(ZLãU"yE984\,XQ/DBndGOob276kY+*jf=)6\t+7['UdX?T\G2(UPrLgGu0XajAdiY-e7ãU"_r&aRAVwoh3-*5HDr1;U/ix;^>1Zm-b43hPGjHU,&YH8;5xUY<.t#r$Ux>iTDb#ãU"6j^x6I98TzOg&*A+(Dm:e2jsi8W>Dx9;xCe6x\/i,yC&oHF:>J64eNAIF0koV79ãU"x?I^?+cN1;=_)hFvFUZ/47K&82sKVPn+A6Wva2ZgzSB(k/njaKUxM187:NXQ&fcãU"'I7W9OA5_ClKH#PGn$XgGLGW6/c)bj$([e=a/+XddWa>BGRHJ$qjDQEheD*(G2)ãU"PWq[MR-$+4oL.GwRfgIppeK7Id2b_(]M.s[n2hV-N1404O[g^#:#omUAU7nPuXJãU"LA?D$pC(lock,'u#lB$in-m83mItL;je0+\;I^B+XB1hu^M?QYe#S?w>)T:uh>WãU"L?xq$;MQ63u(fLa-L;t0E*t_aSxoih?Rh8B:=AXq&U0EXyPwM&UIDPbOBoS<0SãU"EeoBZ,Op4zpuf+U'qUECIpbZO^W5>BDT._)C9g]IhX03dI3ãU"^yfs>wS&qWSZ)S=*1:gvfghG(+pyNf*ifm1$)esS2>oY)PFaSe*WBr:m>5=iV/yãU";B40$qe0'_k<<:4Y44TUcP3:rh5JFtDD'Z?.6+xnãU"F2(fk&ms/#*SvFaQ_JRVET3ichS:cQS6:&Ywd.,K4g,nfhC'M4JipJWT4Wu_SVVE0wp/]4gpER4RF,6No);rQãU"tW,u6_CW6,6%'5bP7O:Dkok[zx]XsZ\c==AXU5Q'/k*DwT[J5LQ-Dqk)Ni73YR)^LhaBlVjAtgD5Si$#BSãU"mBS,Pt3*By4dLaxR/D.lzg*()EK,I&63cCsP:S6nVeM88qZROlnfJaF7RJqJg+jãU"dj(F/h*82EDp)4BU[%U[LNeesbP>Xe%:9bwãU"(7?PJG^k:&d0,*fB_^d-lOt,(_r<$xRzE[=+)l\Z)BVJ4BW-;+JBE<^dX)GrS;LãU">djuKJ#'#Xs%(^?E8&D]9ohpAb3#j?IHtDG.O=\=]='P)i^5k&8C*_t:*S1aJCjRTP2X=xmumJ8]%GR\68.,]b$4,#mM?t4,2>JYa%X\&Dki?c5L$G7Iq>knpãU"XLg/XAQk_#5H)]wX[Wr8L7fiPLUo>JEm6m<,l%L^UA?n(Ze7rl,L=#bBjo;dlC'ãU"N,qNLo[tcYk$w3L=&L8ZaV7-nE$ãU"ralX5-%6_dO$Lv]7[ZtgXyY0x/VXY;#lTpaNV*F#\sbCon9)(,IHtM]/xzqx=q:ãU"g[J5Oq#,u?;O]*yD)*ãU"4':ueLp:?_^N$BCKbOi:^9H_MNX?B4h4lPH=5QC8bF[feLH.sRR:Z0-8x0H2vViãU"l?$Af:Fx);sueTUY,^]E)TR,OuJ.*G\e&r[Nh[f.DIdT6V^+uukX=GdC#f9IM/mphYM-&&$.1CV[Lu,2y1$G+edXlZVWbd5ãU">6M[GEoQEPC_sy0oUAx'>]^:+B=gdm,d/*&;=<;z8MF,YJW>1m]zaL[ãU"kSMI8C8O]IlOHeX:&&N&Ka&GRK]8U>JPIq$xp;uC8=5T';QuDdKjT7Md78o?>0VãU"Q3i%7GNHt5KM?_Xl5P)[UDbwfFCsBb\fbm.YVIPOfbtnqb](\h1sOtw4bR&o^ãU"=i4A)k$%/(cAch/i=:3x(,wI#u\2'%WGNF]7Lu/kXUMhr.e;CvXGãU"?b/ff#_p7V^o%/G9\Z2L/OPkz$jbpng+;b6iG0._ki'UF#r=s]iq]/T,wPs/IeNQvD*r5vk/jãU"v*Hs%'[KH+_a:L*7Qx_S5MM4HbCPoMn[yt\o_A/is;^6Wd;MCEn5EZ<2&x,#y8jãU"3ms2N1m4?Pu?Yjl)lJ(S.YM%R:M?xU%ZP'l:;GqLJlhvNm2hRYcMbN%n;#MfS8fãU"fs,H;GtRqX>'(Y^7+^qsH^[\Vef^cG2-rt>(Vj1$NMp%d\UfnlTn_Zj83zL-n<=ãU";s9XQ_UGvj_AtzCg]]aIOxniYCt1ZzMO>Y\J7#3'-'k9QQAVIt4]%tR#gfpgY%ZãU"'s'iR/z<79JJ(U4hw+hfZ;kY5?2?-0VqnEP]x%%up(%)/%%#%%%?c81KS#q6/3#ãU"U%%3%U%%0#%%%ãU"DRU%RMUJ[MNMx'9%0-+%A&e%&&6%-x=%A%%%&)%(&%%%%%%%%%%%%%%*()%+,%'ãU"m-&x=%%k5%%'&('%)(**%*,')%,&%&%'(%)%6*F+%7Vf8(v0,G1W#P9Igw$pd:HãU"1*B:-XAtQJZiCI2ha,qj;<%KYixu+;xS%%-&&%%%d%8ew%ASk6)u+q>[I(A=rXb:/77UATkãU"uOXBVA%=;H(HD$gTQLQu2[InLWku&EPsnZAXa'E<1qzowFIPc)E:)8*Ep9Ts.O.GDi4<ãU"?sO(GJX^rF9_x*9^rDy5V\%ZYsrq99:YA#pP:Adq8dh'WY'[%LO[_'eC0G1$2cPãU"upMPNFwc7WIAC^[%hIGxAYtM4444h44%W$SDk-?JffGJ;Ytu&/d/2-8nUdpor&'ãU"b_bMG7(mT/L:BEy*f_[#,bI'_i_rFpuKVHD[>GFIYHsKF]0J+=:1<6FsZCTR.,$ãU"f%8O3m?Z_i-TMcJV;[w4P#79s1*dscCGf[k$EGhBbL7N'##M<'[H'+r^o,ãU";Tg(YQ]1b4nYqoPku&C$VU$6K^0QpQ,7]0peEkz0T95Z/I%d^bl/dn2>I#wP84iãU"F=N(L;A/Cr]yRK1c1i<.T4VA3h0b>aI*gat'_vk:#YkXbY3&gDU3HTcVu\4[vzbãU"$5tTe7Jmtta.j8d%9^n[QI-05b4>nAKPJBRcP[S^H_2>E4=/]gãU"JUWtvwIgv:*.&jMlI-DjFbdblgnMvDddhdddGscN.q(Z\xx):8?mVrD+['(e8J6ãU"HNXDr^ycO.xGAmab=Cg%ML6t*Z1*=h;4OwFy;+';bl+.^Dd-2B2Wm'p7&)l>u,8ãU"YS9^+#Rmor=FzU/)reNI<_]vII9ahl6Y[_-_t06SjP:IFte&*#W$*],nT&fpxImãU"L/H^p;NIMM;/>)*r5k.s3Ec:z2a_NJ71]/19d%=Ub^w1FC*K[^.kQB'+.qnIZeoãU"N+2k$2\dUfm:UZggE2E%l(oMUhv?9IZ.22i.&I4/k$/NSVfYoDFD5z>:bW>_J^vãU"Rro0Fnb6rLP_hmO$_dN;_le=U:?Jhy4]R*IPxZS.t/HG-*fDJd$D8pasKx%WC,0ajLXJuO$U=DQrteNvXu-?7ZX,j(>]MwQk&*t10D?KNãU"Fu)5q2R#>ikQvYJH5\3OnBv,x,t%#?^iiv\S+>[Lc:AZ,4Mf?JQ#2::d_dd9obbãU"=2<0UR#bK*D>nfp;zxL%#V.YoBs&p^,#on1T1LLIp8Dvt11/Rr.eFz\W&$):)KU=bfdsOlMãU"%r2$*Oneh7%k\#hY+_]X&0GYP80x=.;[$sOac&uV9xES08WIAN[tI,NIHfKqx+JãU"qoS5:DT\=V9Y<:St];kr-KdGB/Av[fx2j9XZ&zH(1Qqq*;Z\AppGAHIZ?2T&]l)ãU"8aNZ6U-3P*B8OgãU"8t(i#(7M(^r^;/=*EW$>a4q0IHYuRBD[an?^)u#74?==Yz5tf6he,,V-&l8+6]>d\hYHQPD3+#/jPwd$2;(^/Rv-aHKx%4M#5p<'C:ag0CCEIodk^3TokY0SP6+nc?CAr)(Wk+D%ãU"_TD;b.:?q6,vq5_?%rH6InxBen=Z4&.3L6sm4Z00_C(blaWb(_h+Jm84&bEg#L7ãU"E9Ok[Nai9bkL2V4?sf#B#S&$D+e1AruMhedw6evMAhX6c6#HkãU"F5Jfd$lTAi[dGF/ksG#y;Fbhw?E(t22^'nOD>iXyfWmNcP=g,jLB]HN8gLãU"dv%2?d;*nig.dut,a865WJQFEkSW+x].St&1W[j&L[Fc6MBIVOAMCzxC,+abmeXãU"2L&(-WHYk:A:U$JfaTFcrfz0o*0A%WvpSXb#D_ãU"-:HM]A_MovXb-;v16j+N1^%f7rm=S_oo)iN8imtPog,DC>XwIAE1h/bNUCtqMh(E#AnVwl^,XãU"r8SV2mhRq%%rWr].5b?$5%g/Y?o6HqFHNMHY.;W;]uQ0S((RE$52YvHKrNhyAdRãU"7D,aSIVQn1EIL_lKdI^MF;kDKx%9)uSalnF>e%v,#U\V[ENDC5n:HQD9u\1Grg8ãU"$A^QxzMM*Ta/'9vF$pcDOZ58L1lP-Z&=W^2^E#X#^Q3\px.\&9wD9KN0OZDB,r?ãU"uWYTx%V[;cNNnlsM]+Phc$GW3LãU"Sfx%kwNVf[Te_h#1t)7#CeWoup?nC/iffnE[7DG3]U-vD$Q3EaãU"ZICIH%x%;6a3.6,'(^uL1X[mRwU;wo7^ZoN+l>or_aKdEW%dC0rDm4*]9EyPxr&ãU"_6CI+Q2wH(r=#OetJRCr=5oT+3Y<7\L-ZmY6nfE+PhPRq$f\#Kd+%^b[2tHUPR?ãU"r#lAGtcADB*iY1yB6YMo\cUh[k][YYbss2oSn,T)Ig70u#6nrIv8MBPrG[DAt9u(pnEqLezS&kMm1:(oc%Is\ghAsãU"N&X73Kd,7(]lf,NIYO.OJ_bMq04iV%s1QnIkC9J[v0$?DbEk\rs0odNãU"]7Xi%m.7NN#gtqc6^ElYJ6k7&[<]FB\I\1YvrMUKKzH0AaU%;O;Xv;Xw7Ht8'ZgãU"MNLcOxGE0MmJ-I9'$wD$%f(2#Hi.:%+][Rs9K?9*,'2u$PWZfmy'px2B33Bx%EmãU"u;ri=Y4B11rk1J6cNu?m;\aSr94*MhMHB+/:V2r+$ghrrY5fNV3[HF6.w-NRLhXhvb+Jf#Hl_n\kRls9\ãU"QGo5S&gg]N%^0j\4k0Tc2,Zlub==YZd2F7OvwLYA7bRcoAL&Z;mBq9SC(Z8kWRpm9xSE%\lL/\N:_N^]*uãU"/;[+:A=wTC^tc;u<0ryEm$]Uw+IHH]p8UN=v>G)^n'_BhwCsuTW/2Zwv_$k?;/RãU"b#pK?gP$S_$Ky(sA3lVtIcH5H3^VjpR,5_=qqYDFxJ\*?'PDqZ/=nJxBcQTb;K5ãU"6vg#0qIm=r(wF5=*^a^<(1v,HnIRP90/$]LcVwxqgwv^5ss:3Ohoj><4REeolxX]P8glC\=F'RrãU"\C?jFn)cmPVKh9[EfV]e&hl\q#Q2wb2Mx6FKaYU^VQ-aJJ?b7eA)jg,rpul\<.d=IuAM'uucD%0(Pjd3-m\RT85>xW%M,<[Fb^tm4]UOãU"\Mj3>RfOLm,UKnwr%Fg#BwqME>fN?K+k5)SdH12EqkPq9>O_B=U8AHq*'I>$TkKãU",Td5lL)s6at4RIf*8tUp&Sl)?l2v_cWSE*vrU?>]f[;gq6/>]UlvMKoLdl.+7VbãU"EUi&es5K0UOt$l$Ee-9x%_Ja:(2XOc%sS=-QYtRcWH=Yp7?VecX2r8\2JW*dF8CãU"c$SrM?RWC6a'(9tqC&EegbLL-XP9D>XfmCj0L6N^jsu'#^aI[Y0BfY;xCvX5X6uãU"p(H7?BQ.7k[5&?D/bzXA#bBk9\svwHuJ0'h/:_LG+JKZffQb1u)s2ZZTPdJGmHOãU"\pk^V.:Pnl4HLfM?n0N,j<1$Q+U/2D_BQbe$O<6*:p\l7=_[LpJh2LdVwp>)#*bãU"+peCb_kAmAJv]>W9s3nsZVQD:&#QW+M(r=%%w_?hs1&hmFY^RsL0_L#;)A+cFs=ãU"CcBk>f;4(PwYbb*2h+3qdO(Fumy_gZBsRDHQY_$8\WOR#SN05#6bcaQWBN[ze6CãU"w+[MUEKv8&bshT/5,1Opt5;_+]]H^k-WLahlka=g.\W#D/EY-THyqesxZ*e8M;mãU"G$0m)ji5J1J0U&eeU[0v7;d\m\?o[Dx8SW\OXl=7y_Nt-M?mTf;okLHS1QsD6lUãU"($uA-zLRXw0)G6ggs011>2inBXsZ(=b&3;9+yx%OãU"#*DU92(((vog^ZTnMMZ49&WY%83AJ^ID(]V?^Qs88+d>?OJgXz1t6N8'>Yqy/UCãU"*yANc9vRb$sYS?zUy=E_Q&Ym\.3OVH<#MdFY3%]Fs=s/,mVgTUDGa;tr:>U?c)cãU"=+87ZVw8lh&IT&_omi,p8-94?q*=f2)hJ]7?)khs9kTS*c_\Y+7CoP3WAz=H6py+];raL^rOzvãU"243ohHt'9\ZE+;aH-L9APPY+#vv&GGP0$TMHLnq6&:-igzkc>4\OQ2vP?eECc'VãU"hA*,%kJvQOIYzE^CdIP%Yt/]]$qZ%GzF9ybBEa8ESr,hU06[-tm-+EFJ]H;L1DtãU"*6U^DuXX0Cd6.2a^p)R[#D.dsCV,>#78)TV^:a^vjhHJ>YBUWP4O45t]+3mhsH7ãU"iv2>h)WlDãU"H&ktqvNDj6il#9eNoe-jn(?ME/MGhrãU"2L?uaTptAKmc/ijd9)<&:Ab1ef)ZA:.QZtsud/wMs/n+rMi++-+5HZ=>[w3fL]qãU"FPp6^a+hKy(^d._^fx%9w-Hn33_gBdSPCRF]8?VwwI$?O8U_dG$PwrQUifx%3NLQ4&ajQgV8'Fs[Z>;j57Xn93iRgpAec>?cpmS#n>ãEND SUBãSUB V2ãU"==I.0_L&k+Q8.DG.SG(9GR_Pi?6.cvn7cSeDD,aB]-00Vd%Wp+nEc51W'^-4/i9ãU"eXKgmpcTsBbE4v/:lDV9J>1U$?t95_NrZftRr2#lS_heeocN/9&bj]j2dVãU"^gUY0$mG04z-lS=TZ4(Yckkx*_&B\Xc.ImQA16)P*RGn2ZtHZbZ1wW^JD/BF5l(ãU";;ly_viCo&-(8\I6;?m,F9?;KxH8q2?G%66]Umn5y,*anHZrJh6oSRMJfUno(ssgc*j4,Yr%Zt.55XA*#E4T,Nb3$Oe%xãU"\oT>nmL/G]]0';>k'?*w.K62)dQjjVwj%uA'4/.t)BgPG\Ep,Ur:DOb2_$NMTv+L5\^(xSi&h[O43E>3LNtD?Yb5Plb%c^t&ZXãU"gPnDp)gej[5aãU"3Q_(WxOl/wE&,RogBc6GWMyV.U1QTteO<'nROg\f66EPhp4-laWU4LHQGaWDY1IãU"uWoI_+>L4#n=v7k%DvylR?j?-fGZ:DJLH'iWXVg3UT>gVIy1I/DQ&Cmed-U$nWLãU"Jh3-ea#-/OTHn6S5lT42rR=BjLZcP3j,P(bee?'UF1.N>>a7M9rxãU"c,jrF5$e$O:Gugms4j0cyMzjZoP#DI.*8V5*2%b*OD1o-kp]OdIIi]^cU\d2xZ.ãU"SHT.HGRAf'3\,a9]uOd(&I,)o821QRbP.KK[DB&DUGk[lpY+U+Fjh13P]-_VpFUãU"cvRksQu9Y:cWa&X9k%cj>v__9hu,XS>SB6XeXjGwCRLrZ,X?;e+cSRi,Z(;=6tf^^lPr\2aLP7u.18;3vCj$I.;ãU"DPF[j)$9SN,c6u%N>lM$TBrT^I[BliK[v;Rcz.&QwO<=3gCPCSh0Fw4q&<<=O$;ãU"3sUFl?BXxzZ//fvU]FIq+ãU"Fi^I\)RpBhg(_:-/G4+AOn;i5\wc^ZsA\B?6FsRwb'9C.$en3TJbuN7L_-rzP7kãU"*8VIcSLu>481WYn#oDtB2,K#]Ld.wPctR=SK#B<>6_^bc/cPGãU"=W)tb'uxhC(GC)591LE?7(1&)8XMRnHXMvZETmySOD>^t=$L^A<5\h%iT>%#c+DãU"y2/iKE)u%R^Ht_H^.ItYUa-^-F'8V(f<'qL%'Oo'MaODCtEs5&.2pj1ge_3ah*8ãU"Ebx%Gom'dJ$(p&4uCEE)[ReTJC##)a$ãU"spnAwu-hgfD3\KNFcMPHjHN\lNSJRLXeD>'%9+[]Vp^0re\Mz2Lrf)YH>?RiRo#ãU"$*bYm<_7CxBWXPJ4a:DG*BEQkFC6ha#IJbWu^KlãU"P7^]xA0[:KjmA=R3Sv+x;rjw9,(r5p(7z1(i/I6$J_OtLqp<6O9bsglCbsT[TY2ãU"v#1jCe+sKl_bid%F,'jI?rc^=2x.%v?jGl/_Vqb1X^V-2mzVJQ[]Xy25\MH14*;ãU":0x%&5UeH]_pDC5]>OVdoCcW\%/b\pwyCi$oy$Sl')4[>jP_2;:pSYEZJ>?m-,uãU"EVn$':fPKa[fnH$DNC?,^4weAtN_90:StPi'A1fIs>L_qy8NXnZ(*a:;d3ãU"uJAW]DArma&;0;K2=5$bE.C[-4a]A3hDBHle*DFGi3nH;3Bs\kR'#YxQ8Yu'#W3ãU"fT3]WdqcOYNox=T2y*:?MKFESTk[E\T,kJM6s1k:&u.kr9sWãU"wC&y?^24yptXq<-?MI^+NaO$T*u.%'^:qA>KXoãU"kYx(,#xDD7+C==Qm7Kf*%*X0?C=z'qIHL9n,dzl^>r9eU^2Gm$:#uTrye1g]rZ9HktHmVãU"_?<3C\FaWY8X+)ebV5Y2G\^t^v)BMRSE\a0[E:sL[t+hk)za6=;D;>xXj4-E:^#ãU"ObX_%dHs2D_]#GgokbL7^DlYAACDaiS/P8GBj>'S/TsiE1GTSW'q,TdS(*,#N%BãU"[s60=#6w\O+4cazK7=;OI,]U)m]9z0QP%Jkl6sKh=esKZ>7)T=+Oelx,M4GI&a$ãU"jj3Fn;a#>w06aEPm6>aZj9xp%)$b?kS<7+_2HC2LzpFcZX(RV[skadcCcoyn^b\+[o'AL1PaB0bahH*V6$H%J5$a9Rq,d*:3ckBo[>&A+\*ãU"nV8SV0Q'VvkXW'wEbCE3)H3ZoaYm5tj&j=LQt4MDax_IA(Y%c(ZJq0S=YrgGTtbãU"m_+Ntqh;BP/lXh0OxSm\oJPD;8BXRB_P.+w3CZd$bkWnyPXL;:JL=cK_<)]=h$#ãU"<,LnkNmoB?h+&sjw:4.c.074H-E>_s2uHk+(_jmE1qPSQ7LC\mEk[CNN2i?.[3AãU"tuEhsL$4*pFaGBJ+36hD=7hm01E>XIJ0ClDb4Vv90SHAsT6M^P8%rFu,M-A#[QuãU"cB>r:I2[%67fYZ/iYeRH>sb>^ofxKv4T]Dd#+p]&p:=5Y\ebBu]t1XXMsn1ROz?ãU"a^^4EUn0]8-EGAPl#I\dCiNbxV-;Py:o_Wz=L%&rXxS/_2=.\YpK^X1gD9VqS^vãU"sPk+XvbA-d5*-=exW,Lhes7doe=K-JbVQY*dVpa8,(elu-Qm]^mFXcor1cpi9'KãU"x%HOZAudr#]hp,p[l=kB,k8JW0ub7H1tChbtm##CMMJG=S^Fv?UJd.l>js25jOK&yCa+Uaf)/3ãU"5A2JGr9*a,&jqh^Z0L*$=9YPo:w>MU\]sQ-ãU":\ej-\0c28Ykd5oK9szHq6pO2=u1bEGPOjZJ%s0E*7)zCBO=yGrS^,JJL'gG8u^7HYDIRhH'L9g$b\u5V&B\K-BDGqRW_7eX1%ãU"ueqM2kjjQN&4VZ\XNoUo\4F^QTYHHmzRTs*e4n5'HQiXo$5Vp9_q/Hpu*5yjA.'ãU"=QMoQBR7IKc5hHU>ctJF;h2[#nYYefN^V%icKIZmTnwHF-pvM#1LaHTfv8#w.BHãU"c,G+ul2a*8oE/a&mHv-OgYjJt7,7:WDU%Dw1cruP8>SnmZ)apkFl*b)?0^tt]R)W_sDuvSt/u3:$YVjNfBx%2XKBx]VC$&eãU"?++045li.TeG=&TUC7D,C&_1Udcl6Zo]4<\,DlAeP\i-cIa&x%/c:x%x[%ZQ*AdãU"SQ0&iG/pC=Dc/P[I8W%5m=Bl,KRc[XiRjN/*1V06hD#Lji;TTrC[RQUbT$E[dzdãU"KkUNdF>ZB>5%ZJZH-tH91_3JIRnEj1dCo'ZPfI$^sc9FhB.$m1AFr(-VAol5%*zãU"D[c_>l$$[-L[\MueI--R+gu9ulAPv*MXZmXOomav6P&g$&GKtkTnv7ãU"KZpdJ+>iSY*deEDT[ku.4VnxSkwOIO2^Lun1Or,fsJ4?$DdVWdm$BtIV.3srcVtãU"dJ_K;>Y>VeL(KMa3pTx%rqippMJ^M+W/fq+OW(K2,#74cMKeG^Pe+_$9_ooWU19ãU"doa*4qP#^i_D/vRSZrãU",^=s,EqNw:(GG$ob>&Z$p81cV&+8TcWS%jUMnLc-lbOTt[IC7Fi3V,=njnJUcFkãU">tem2>Zt/xY\wdBH(jk6.E^H*7$Ro^A8=m_+aXO_)ee:(0.K3\Lzg%Vph^m=21lãU"W%lElloku&2_NlJRYojde_+%Q8x>FeUboV8.AXvlII_,kW3\mrfg#=:WJGFVmAE-#00_t_BBFm]JDPDR:$ãU"wumG;$;vJ8h^'AJN/nS;NZx%.RtC4G65brcE0VRp0z^xs%k'H8ZLL$FTI/e/S%;ãU"Oj8f);ghq*dU[XFFbqURkeO\7?9KTN08MyjI>]_S#JW-7tsua<1dHGa3hTV+wS39uS6#jC4]VgM]V(RnR<',9J0rdoXQ29pJnhãU"ud^wq;a\#W9mZbc'fqPPmPPCoPiD4>aY7I)Gr7VeP+NI$n]3[dDZ(e^=gO_XS*nãU"J/T3HXW9r+#U6nAxA_RahFo.05_>?e1%2HFu1o2fFP3KT,leeT\3e=[ohb?o_>2ãU"s\P1>o==3eVE^r9ds-NjyV9RrRma*-l?%DDou_gU?M1fpe^,VS1N8THwdDgQTkrãU"?^quFVc5F%YQ5bK0c=Swx(%DEr[kID>5_YLeuuc?Ltt07+[n9I)#mW^UXlwmE3FãU"Qoe.n(usA#i6U.\ZV,Dt7kIM%ks%VrB69<9kIRq*+.+G*RJg^-;Hjn=mU'TRzrnãU"Qmly5Z_s\-rNuNnj)^l#.IVD5OlRML6Blv;$OukDjC-r-M^w*8D)3D7rM6wg^SOãU"3gl$+Y0f1pQf.Yuf\&0TZqtJL+e_mWca3v9-%3>45XanF7F1#sY>I=:/I76zP12ãU"z8&?8^2GsGCo7)YbNfk;anrmG4s/_2/29.6=oAr)/=R+RTR8Hm6Bj2G.&[:\:CIãU"K;oi[56:PgUp]7T7(==UlTboS)-c/MwcKjS\RB7e0l8l^c#2RSp8H3p_azG$.K4ãU"QoMPowd1M%%%%_%%u7sEJen9vG$rEMr7*4s1/3L/mpP9ef:,lt&[em[C^09OJ?G[jãU"cmNk8Ag5jXZ4r0,8ShR?TFQM0)[TeegwXoDYrvlF(z0\Ad-U$wD;o0(1)44,Q85F$F[rVIu[8(3-wb3o1LoãU";^uN2ZadJV-uFV_i'vt>ql5MAeW+=%6M3nwSãU"n5v7r_T&Rt9Oeom\VFB*jTd3kKuw*U^uLeIL0kFB>jZlm\wPg53)(JlLmtSq8_kãU"Da^uN]W76krKs[^2Mq(tu_j:B5FPpu=(thbnKnZ&J&KSZ3d;EMeIpcMKSRDOposãU"QE0Dp?m/eN_ftaZLs8i?&).NCR4rZ_SNJaYEbp]s1&lMzO^JK$s01As6t$B<%j<ãU"G-OCdO;ojPHex%WSX]>[&vciNpGTa0M\Jp8f0s?l\*lFrnd,sLnX=+_DqI8UN\\ãU"N__;X'/#twexAEeZYG?X_iM%%%%M%%%&nd'o&Arr[fO;6tp4_']q0c9>Y=dq*DgãU"U&#chqQ+R=su%$P^MEorbEoP=GSsdX'dg[Qt+Ip0gd)ãU"Ls15QGN?O#etmlS&9E/?m(fKTwa[AC4.'dW/tDF'\6.%%5h%%%-%%%%%%%%%&%REãU"%/P%%%%%Lo?46LS10B%up&'%9%/%%%%%%>?81K'Sq6/&3U%%&3U%%%0%%%%%%%%ãU"%%%E%*/P.7I%%<8M=0<8IWS9?&6up*%+%%%%%'%'(%>%%(%eg%%%%%ãEND SUBãV2ãCLOSE:IF S=230AND 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ãMatt Gulden CREATE, EDIT & ANIMATE POLYGONSwww.karland.com/code/basic/ 06-23-99 (09:41) QB, QBasic, PDS 113 2640 POLYGON.BAS ' POLYGON.BAS by Matt Gulden (aka Folter) -- webmaster@thrillhaus.comã' This file originated at www.thrillhaus.comã' A demonstration of how to create and edit, and animate polygons...ã' Works in any screen mode, just modify MaxX, and MaxY.ããTYPE PolyTypeã X AS INTEGERã Y AS INTEGERã XINC AS INTEGERã YINC AS INTEGERãEND TYPEããDEFINT A-ZããDECLARE SUB AnimatePoly ()ãDECLARE SUB GeneratePoly ()ãDECLARE SUB DrawPoly ()ãDECLARE SUB ErasePoly ()ããCONST Points = 10 ' How many points in the polygonãCONST Colour = 15 ' Color of polygonãCONST MaxX = 319, MaxY = 199 ' Greatest screen coordinatesããDIM SHARED Polygon(Points) AS PolyTypeããRANDOMIZE TIMER ' Use the timer as a seed for random number generatorããSCREEN 13ãGeneratePoly ' Generates all pointsãAnimatePoly ' Example of animating polygonãENDããSUB AnimatePolyãã WHILE INKEY$ = ""ãã FOR NUM = 0 TO Points - 1ã ã Polygon(NUM).X = Polygon(NUM).X + Polygon(NUM).XINCã Polygon(NUM).Y = Polygon(NUM).Y + Polygon(NUM).YINCã ã IF Polygon(NUM).X > MaxX THEN Polygon(NUM).XINC = -Polygon(NUM).XINCã IF Polygon(NUM).X < 0 THEN Polygon(NUM).XINC = -Polygon(NUM).XINCã IF Polygon(NUM).Y > MaxY THEN Polygon(NUM).YINC = -Polygon(NUM).YINCã IF Polygon(NUM).Y < 0 THEN Polygon(NUM).YINC = -Polygon(NUM).YINCã ã NEXTãã DrawPoly ' Draws polygon on screenãã WAIT &H3DA, 8 ' WAIT for vertical retrace, lessens flickerã ã ErasePoly ' Draws poly in blackãã WENDããEND SUBããSUB DrawPolyãã FOR NUM = 0 TO Points - 1ã ã IF NUM = 0 THENã X2 = Polygon(Points - 1).Xã Y2 = Polygon(Points - 1).Yã ELSEã X2 = Polygon(NUM - 1).Xã Y2 = Polygon(NUM - 1).Yã END IFãã LINE (Polygon(NUM).X, Polygon(NUM).Y)-(X2, Y2), Colourã ã NEXTããEND SUBããSUB ErasePolyã ã FOR NUM = 0 TO Points - 1ãã IF NUM = 0 THENã X2 = Polygon(Points - 1).Xã Y2 = Polygon(Points - 1).Yã ELSEã X2 = Polygon(NUM - 1).Xã Y2 = Polygon(NUM - 1).Yã END IFãã LINE (Polygon(NUM).X, Polygon(NUM).Y)-(X2, Y2), 0ãã NEXTããEND SUBããSUB GeneratePolyãã FOR NUM = 0 TO Points - 1ãã ' Set random locationã Polygon(NUM).X = INT(RND * (MaxX + 1))ã Polygon(NUM).Y = INT(RND * (MaxY + 1))ã ã ' Set random speed for pointsã Polygon(NUM).XINC = INT(RND * 9) - 5ã Polygon(NUM).YINC = INT(RND * 9) - 5ã ã ' Make sure every point is movingã IF Polygon(NUM).XINC = 0 THEN Polygon(NUM).XINC = 1ã IF Polygon(NUM).YINC = 0 THEN Polygon(NUM).YINC = 1ãã NEXTããEND SUBãMatt Gulden PALETTE ROTATION EXAMPLE www.karland.com/code/basic/ 06-23-99 (09:42) QB, QBasic, PDS 127 3016 PALROTAT.BAS' PALROTAT.BASã' by Matt Guldenã' http://www.thrillhaus.com/ã' Real, fast, efficient palette rotation!ã' This is the second version of this... In the first version, after a whileã' on some computers the colors would get mixed up from reading all the valuesã' every time the colors rotate. In this version, they're only read when youã' call SavePalette() and stored in an array... They're rotated within theã' array. Also, the demo in this creates an optical illusion! Watch eitherã' of the rotations (up/down) about 10 feet away from the monitor for about aã' minute and then return to this screen and it will appear to be shrinkingã' or expanding!ããTYPE PalTypeã Red AS INTEGERã Green AS INTEGERã Blue AS INTEGERãEND TYPEããDEFINT A-ZãDECLARE SUB PalRotateUp (PALSTART, PALEND)ãDECLARE SUB PalRotateDown (PALSTART, PALEND)ãDECLARE SUB SavePalette ()ãDIM SHARED PalColors(256) AS PalTypeãã' Below is a little demo I made to show off the routines.ã' You can snip anything from here on.ããSCREEN 13ããFOR NUM = 0 TO 63ã OUT &H3C8, NUMã OUT &H3C9, NUMã OUT &H3C9, NUM / 2ã OUT &H3C9, 0ãNEXTãNUM2 = 63ãFOR NUM = 64 TO 127ã OUT &H3C8, NUMã OUT &H3C9, NUM2ã OUT &H3C9, NUM2 / 2ã OUT &H3C9, 0ã NUM2 = NUM2 - 1ãNEXTãFOR NUM = 128 TO 191ã OUT &H3C8, NUMã OUT &H3C9, NUM - 128ã OUT &H3C9, NUM - 128ã OUT &H3C9, 0ãNEXTãNUM2 = 63ãFOR NUM = 192 TO 255ã OUT &H3C8, NUMã OUT &H3C9, NUM2ã OUT &H3C9, NUM2ã OUT &H3C9, 0ã NUM2 = NUM2 - 1ãNEXTããFOR RADIUS = 0 TO 400ã COLOUR = COLOUR + 1ã IF COLOUR > 255 THEN COLOUR = 1ã CIRCLE (159, 99), RADIUS, COLOUR, , , .5ãNEXTããSavePaletteããWHILE INKEY$ = ""ã PalRotateUp 1, 255ãWENDãWHILE INKEY$ = ""ã PalRotateDown 1, 255ãWENDããSUB PalRotateDown (PALSTART, PALEND)ã ã FOR NUM = PALSTART TO PALENDã OUT &H3C7, NUMã IF NUM = PALSTART THENã PalColors(PALEND) = PalColors(PALSTART)ã OUT &H3C8, PALENDã OUT &H3C9, PalColors(NUM).Redã OUT &H3C9, PalColors(NUM).Greenã OUT &H3C9, PalColors(NUM).Blueã ELSEã PalColors(NUM - 1) = PalColors(NUM)ã OUT &H3C8, NUM - 1ã OUT &H3C9, PalColors(NUM).Redã OUT &H3C9, PalColors(NUM).Greenã OUT &H3C9, PalColors(NUM).Blueã END IFã NEXTããEND SUBããSUB PalRotateUp (PALSTART, PALEND)ã ã FOR NUM = PALEND TO PALSTART STEP -1ã IF NUM = PALEND THENã PalColors(PALSTART) = PalColors(PALEND)ã OUT &H3C8, PALSTARTã OUT &H3C9, PalColors(NUM).Redã OUT &H3C9, PalColors(NUM).Greenã OUT &H3C9, PalColors(NUM).Blueã ELSEã PalColors(NUM + 1) = PalColors(NUM)ã OUT &H3C8, NUM + 1ã OUT &H3C9, PalColors(NUM).Redã OUT &H3C9, PalColors(NUM).Greenã OUT &H3C9, PalColors(NUM).Blueã END IFã NEXTããEND SUBããSUB SavePaletteãã OUT &H3C6, &HFFãã FOR NUM = 0 TO 255ã OUT &H3C7, NUMã PalColors(NUM).Red = INP(&H3C9)ã PalColors(NUM).Green = INP(&H3C9)ã PalColors(NUM).Blue = INP(&H3C9)ã NEXTããEND SUBãEric Sonne NICE GRADIENT FILL ROUTINE www.karland.com/code/basic/ 06-23-99 (09:42) QB, QBasic, PDS 51 1072 GFILL.BAS ' GFILL.BASã' by Eric Sonneã' http://www.thrillhaus.com/ã' Generates clouds/gradientããDEFINT A-ZãRANDOMIZE TIMERãSCREEN 13ããCONST S = 5ãCONST A = 2ããFOR X = 16 TO 64ã OUT &H3C8, Xã OUT &H3C9, X - 1ã OUT &H3C9, 0ã OUT &H3C9, 0ãNEXTããPSET (0, 0), INT(RND * 48) + 16ãFOR X = 1 TO 319ã CLR = POINT(X - 1, 0)ã CLR = CLR + (INT(RND * S) - A)ã IF CLR < 16 THEN CLR = 16ã IF CLR > 64 THEN CLR = 64ã PSET (X, 0), CLRãNEXTãFOR Y = 1 TO 199ã CLR = POINT(0, Y - 1)ã CLR = CLR + (INT(RND * S) - A)ã IF CLR < 16 THEN CLR = 16ã IF CLR > 64 THEN CLR = 64ã PSET (0, Y), CLRãNEXTãFOR Y = 1 TO 199ã CLR = POINT(319, Y - 1)ã CLR = CLR + (INT(RND * S) - A)ã IF CLR < 16 THEN CLR = 16ã IF CLR > 64 THEN CLR = 64ã PSET (319, Y), CLRãNEXTãFOR Y = 1 TO 199ã FOR X = 1 TO 318ã IF INKEY$ <> "" THEN ENDã CLR = (POINT(X, Y - 1) + POINT(X - 1, Y) + POINT(X - 1, Y - 1) + POINT(X + 1, Y - 1)) / 4ã CLR = CLR + (INT(RND * S) - A)ã IF CLR < 16 THEN CLR = 16ã IF CLR > 64 THEN CLR = 64ã PSET (X, Y), CLRã NEXTãNEXTãDaniel Davies PHONG SHADED BUMP MAPPER ia53@rapid.co.uk 06-23-99 (15:22) QB, QBasic, PDS 237 15539 BUMP.BAS ' A Phong Shaded Bump MapperãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"BUMP.ZIP",4^6:Z&=11364:?STRING$(50,177);ãU"%up()%9%'%#-%qI'PK5]2s_O%.%%d%%%%/%%%%wj%firj.Sy'y+rEb/%'V5e0ZcãU"_$:qxF)g6Z'BE'oEe1C/+hFAUrUou=ooi'T/nqi^PN+nYoGIAa?OA]W4)*V6]wAãU"/\SHQ,D)80Nlh83t6Pz<8UT*=[OSD4$ZnaJfGJ2h):',%p>8.RdU1QNn4gEb*&KãU"[-*=jvs??hnFE]N35[BN%%up()%9%'%R-%pEKNKXb.T:gG.%%sM%%%-%%%%gz%rãU"uSwCf&bI_HCANYlgXh%XnE5gT'a._(*Tcjr6Fnk%V,N%&MYG2+&Pyp]1aP/U?Ypra/=<ãU"Ek+Z+.s^P%_&qc$n_'<[CG1IM3dW^5/'2bswaPZ1o=4j]+0Cfb+;tgHulT)q,CdZ%AhpLn+va:tWãU">7eho>*K4(p?0AljVDh'YpN9?\+T'JvxlCE;6(5D8_P\O7p/;98[0cU\+HL:KwMãU"4q#PV'TLP\7W6oER[OOF6Dygd3L808n.*f_nbY;D:KC.7Eva%]>D1sh7b)=[>C?ãU"ZMYcg+5u*G8VtI6cL/'DAehw6/p^k)JM5R%r%wN:/&hyWF0P6=[&hT;W%v)XFC9ãU"WIA6mNmE:#X)&LLpfZDGrH2)KXwtcI)g8Yb9=rlvV,V'vHGAFxdn.Ca.St(>jsOãU"F9CUZ0L,*rM*#l)(SdmKDsA:UTT(j+W2%(d9,V82E7*'J4(*#fa%[vOa4XRZb\eãU">_FoMkZ'FBepN:dQpDml$EnE4kf2SX?)6[RKOOidtKIStQ(*6;IA?mQF_&dyQ7IãU"n:g$DCVXt9Sq,^/,P4FFlE_'bu?m3Dg'Wd5[*-o.T<[3(3]/:g+aUn/ThM?J&.UãU"Ju4gRNaXA43.Bs.M8mq+S;bkHBf^mCo&/a>4jheCC(.$m1;h5plllNhRQ2R5re%ãU"Ss;.c,4Vqh04Q/3[fpB#>\p2$?V,eU]1.QRg0q$jGIa6-9n2?npo22[Wav_U0H*ãU"G'Qhw>T5*F:s4LvCdoMsG1*q2eu(XBu?u;;TUq6)RN:+XXmI$ET2a:'*/'ãU"S:4Wjo(S&/#U1+V0LC-6UmB^=-]^ggKhW#';co\+FY14)?3KtpãU"Q&A?C(E8c&u9[DdgwwHNh*)g'&(kFbnDI\'Jm]70Hq%#J\O;piXufjUlUo[ii4IãU"C+DF;KhBxWX%f?V*m);/5$RgO_RwV?X1h][1C1?:S%dzQ<[7&$'#zN99c6N8GLyãU"5fe-pF\OE>K[j*F4$t,=+Wb90UXMY6;)0t1gAi(->'HQUZ;8nywE?=>(Lkhg\I6ãU"NW7-gMn:cB*jOrP[>DBelb$y%+q'wPMtQOq;%:m;NQP+tu2)1I$%d/2dqKbF9^0ãU">w02w:S%QTTZ%vV#:F'GM3Z*?[1NLtIr,-BLHg13yTOnTrc1pu9:QFãU"eHbL,+.Rwb;Ey,:1\dUrE/*t9Qi/]NNgPoDcZ*'IqKjnL)_92M=#HH$X;NZ#HV.ãU">DCcL%I(my'hnl:O)YhiYI7.V(X+.3tu^^^r/9[3xTl,3FZee^8NaG4=37$6&1*ãU"I_2*s4I;^t5LZ3p%zx6^B+K+*DNqR;PLJL&t([E3?^NMCGC+,5),8STO%JbM3wAãU";saiI.u-(%M(-ihn[_.;mfeb\P0'3<50*(-QL1->GqU&UF.qam#e]zg)i=[#&dgãU"OCS\k\XY3/Ugh.)gGN,Elg%XYYOCuiv(-N$;vMqc0FLFIOd+m=_MWFAKZpt[oguãU"SN##q+x?[^wBWeOUb\Sj(ScX+n[+XIBqdjhZZBn^gQ2q05cNUI'6glN&4R%3./3ãU"5n9*,sH\ro21;pCWUJbD4TLN9P%%STYCPhExo[4omF1i$:h(gP.Ag1]C%5;o32bãU"Y4_,J1]0?hOl6dTr(&1[VfrLr%:t5sHqA%D>?>Af#B;GI+w>QGhlj)xd&JPlbosãU"s7n_eTeq&c)P4pka,s+#:ZC-Y9LiJ\U#/S]G#e%U4sho?f-DD[1jãU"7RPA&%zDoEobk5U1pQ+IF(5nV1'6/OhMYvDJ0>CW1ie4E7qdt#8KJ:Z9t&KgIeXãU"i(Ii:NvTrs8?QLrD80L'HkHF38ju6LPV1x/CKbP+yIwe4cQ?qCN&#<*w?Q'o7E*4:KPmTKf7uyK0Z;aI(.b&xdojQjM#p'y]Ie\+A'Qeo?cmTpV_HI[f$PCpB45IK=H(1y.&t^D^k.eG/k.X&I..9(.IBãU"L=._7t)=mr&_CKY6/Oe=wn$cuU5*ojoCOT,K*g(-NV7YKagaDp?4U:ZVV4VCi)#ãU"o^e6=ZioFDn2BsI'JM01lQ*J$00Y.Xo%tu5?&loKxDgRYWpYG::\)Z/\uK^&.l^ãU"epp:c>0\J-r/)6UW80\lKwB%ka;^DFo#WMG'1?1W$_xmTC_hcbfB[BD2IWdHB3LãU"oICYI#bAZ*H%Fy(+LA'AptL$Whkbse<:RHrs7?q(=\SdtmsB2S>90(BLGdU7kx*ãU"?h*<^A)5g29K53#ShKV$FENnBdSLdiYI-FKvVF8jGubT.,Dz>9es7G]L:1t[PmIG-hSoLFI)TWX-=EV6hW\XL.M;<_+MMBgY&)fuOr<#4ceo=qcXpZuN&O?KjlfeNp%b=MR7w6ãU"q&&X)%uh*x8bu?s'6)o',wCk$&;;efhi2FX.Elkc?lR.0j\wKu0:N7[p0z&OShGãU"6Cq8:vBMA98D'\t#2AZM'_P*MR4zYhVJ+]ãU"2W>pngz1Bm'>hjDHk9](FH]aaaC:Btr82kW;L#=\+_w&F9Lp:?fO2NcH:P&9dtNãU"0U,%PNu/7ovqZjx$?lOrK/xtnaf8TKiqAJlVpl5d2hOH11;6&p%#I97Y$>1Sg+HãU".)*N&Q0(??$+h3_Qg9jp]9&unW,8qjNks$n>t^B+.e89(YR,B''o2uk7..V6&PmãU"W4?v&s\/O_h7qCsS3g0GttV3mG7&=Fb9#F:%esOqA]eIh.kB$W(5E\(J[#^U_hOãU",=(A=YgJ&\jurG-rZWj\xMYxE+pu>lfo3rLxlWO*P]oO/p&T&c4Iun^nlWH,QG-ãU"6_3ctC^kZYJXSO6.U.oF,&O-,.Pbb+h\/Hs-RG$[(.79%7.E?p5qI%s>8Pf8E^fãU"9n(b0jWj5tN#b#'j%W,Mb59r_Xsh<#L5kX;CcnTciCt1*a)xq_TL68znM3k.u.nbC70cF9Go%Dl^*cdxuãU"%+-/N/F5tZ.jcrQ$7'l[0iD1I'=nNtC^=0Aynu&IOV>3%5Z4J5uPR*$;C_6o:m2ãU"RgqMA+IuMqv7a*6:VS4I,YKn,\^0Na*3kfBZ\,*u'qNJr2=4/'bLAk*,h*g*RN3ãU"Ao#2E:D[;gG]ObO%bx3=p97*q%bFr]#?13Ayhq1kl)Fh&wOk//N7>hbWflEYQK0ãU"^bTI\lkUJbN[qRkO_pfnR*O$*ofdvmVNkW;JlPi9^P:pL?8xmqRc0&HL[cMCu6VãU"wq-rrwK(?orOUVnDP+K''Oe#^x$:aãU"HTQh-uniGux_&o?xvLlYjfOxr1q1+f/dDar.n#+q6=w'F;FB(>>0'cSa3t,j9'hãU"YJ^2^[j.]IC3DQJ*&V+w#Xu;b10&vnO2sr[DqX)iFLE*kcpNNcLqflscNC.-5BvãU"ld;2FmjdT0.+6S&4=bhdk6rQ[^V2Zjc8KZM7nEoL2u&jzDoT.33]-GoeHh$[3K[ãU"B*?Y9CZupQUqj'&,AjE=Lu?'9pB=.T<:Y$t_>,]sN,d^MIxGlZ1L=De&M#D#IrBãU"NL[VB4IZepxCc/BIhLbMzLBvvlqq?B\kUPX:l,J[TdP%Eu'qfBgãU"PK8MVap4+USA)NOGFEt]KK:]67D//i1&?LOm^hRWoOED^4Fve08TYC.gW,v(66pãU"9gul'J8*0ipvsnlarC\c&H6QJCP6NWG/2udVjãU"_C;\g.]*^5EL^O8b0,Np%Dt^>[b=Id/?RfkLmFm.vYGw#+E?pmo4/B*oj%iOWy;ãU"g,ga.X^UK_?rCUV;6moG&Di+ZY)WPRsjbCY)&G/.YEx/7b#Fn#1/6^RLw[][eYCãU"o9L;6+%)Kf71]'8FDF3-9/$09lS]6:Kol[A7,)Clf6b\=S8;HF0DZ,tLK1&)INn&VT=g4BIwv-A^O25uN9VLqraXc#2A7)'u[uZwem<ãU">_^R'C0iCC(/7$1)slyG.xMdoLyy_G%k8-Hka-)&1I0P7)U;)%=0^5rU7M0ll9.ãU"oNBI)huEKhmjJ\YytCg$9c\-EzTJF#3>a^_KmqgP)b$MA.5#R5o_')XG>C+.tOPãU"e)R;K-HLS&U07^D5#VX/;Fn&/FthfjXBpG%lv.?&;cMfAnzLf7OfpLJv;>RCQ%xãU"Mb'+?s.%w^aBM:iI450c2/MVKdeO]+g.3.'r:ep\'bxG;CWO5$uZDAP1)9dwKa;ãU"k^14YXmg3At^xY^_#Ret&/jpWfyãU"$2+&A>RKQk)t_%zEg^gp]r6o>fXMShYTP\IHO%h(q-:QtL+MZh_9H%0X6hpa?\hãU"7CuLLfbV,NY[:ltXcUeFyKhO:T3lXUB_29%SC3g.)f#xec6S0T>-+JpGHs(Gvl?ãU"4Qi>f6:GMUeK3';I;E8hyL%y&zQ012tS(yG/#*2OtbbbAãU";p[d;,b&Bh*N*\nqjQ.UuL=kGW9+_JhuIG2.[3PN,4+)R=YW59.k5ãU"V'9V)CycuHvpXvYM=9e2j,;WC:TEgd.$GFnK&1?Y8,t1N>hTH6iISG1wkhhb-N;ãU"tr^6&.fBbu0Z0S&d/aiwW<25W)?JIW_/NU(_?iiZlLDLGNtPnJg(qxaZIXdb->)ãU"VS_,d?Qc+$^.W6JcCZ9$+(>]FTQH^bf>x*&$&Fab;BOkC:ãU"HcAZV]V(DZ1dk$o?\O0k)i;u(c>[zuGWO>n>B4Ib9&Z%sxh7.Wete\L:oOu=$sYãU"#oP[0/,=w[h63\4MDl5SOmp'r?WuK,k]i9tWZ5jbXEs^d8-.0sKN]/*1i(=;wX<ãU"IPdr#572kMdrDODU9,sb])Mn%['&P,T;,QxBJjf&0Zwur.HWjbYrctzfoSVkN_\ãU">\O&#Q$(m7cIWm'^_,T?%bK^B3B&uoZR),GYAf4zaLoDxi]R\O3Rq-RfPROs-w>ãU"2eqHK_BnzDwYr:2PTX#(^wYhNn>WfLc)YJ\q^2=;,dJi$?p?.jg&eN(pe.rcHB6ãU"mXF4jcrKV7D-#X_(sFE>gBFKjwBwXn-arWEvNa#ErK(TrL(PaM($$uPOo>L3Ru'bHogd'O$,DQ3M9><5Jh71g(k(pFAdV,RãU"roX(D0h1ecJ9r#]k]L1&w?PJoAI>GYKn*h/2\=aãU"?t=j2G'DIBZ]S.6,]50du8s=rY%dk$[lTheR[eNQ)g-goQlMiq.>vaW?VXnTDWr.uXua2Tc&-esHp6,tHdSsm+I;6ZãU"'BX>QU3Mx6wx3I4:pm,S:toHawm*0ncWGbc]A2p'pLL_rKãU"YQ+_MJ;5.by>:dctssX3whlthkN\&)j>&wlL;o$'CPM)rTk*&jxO6?Y6Y>d[jZ8ãU"FH-=esrU/)pJ89-$e=pg(xjbXd\'(DN].dJ6\wIJgC,I$t%t?Jrt0X'6wT4MuYO2RtL)Q4w3meD=45abv(<)+NE5li383u23/5uiG?sN*2_mfHCGcQE$nN>?j[2,soSBA+ãU"+^M\HnP[8^2o^4s-)BXd0<)f$n2dud=umAãU"&TbIKmC&>K(<\kHcYoAFu.lpNr7Lk=sx#'X=_lM(pTMUskNrj6*o&xrkWh=/*>6d.\G=.dI-w4uYNP]3rdãU"&,i&ZneShNBsb$SO0OAuwwkKNJrV.?uq\k;1>$4%-otb.k=UrBx_eT\5qdT#t0)NhVsTrP=/GFyRL>K-c.HTft)>bV,v?(hãU"8jHo6$0$ol^aLU3*v^B(T96bepdois./.Wx1c-+pHNu0rL8xNRXãU"QI4:vH_>t*S6L^g:X%%\m3h%HpFcpuWPZ5b#0m#cxq<\*Y[_/^MãU"6&+-oLkbFC]>7e*IBb)Nc7PTEKr0_rFgG'Cz7f<'I9m=Q;>5z]lmIU>NmbHWtYN9oGZ/\o'$g5Elz$3,5CãU"Q7hopYDpDzHFU9R*3'=FACW^ZF0/Ur3#p4L\j/R,]a8+p+CAjn0II6Lg74YeVsOãU"E]]#0qGxqOO[#GC7lRgGxW;>jp.+=ppy24Z0Xrdr(K^D;F;dCEYWKsG/]1sf<29ãU"Cgj//:Fk2g?,/wmOG&%Y5l$$6d9>I\IA_i%lW[4;_C.I>>Z)((Nh?7w8YJ#/lovãU"'E?9wh0tXt?vctUX0vh:FKnt]4gb3$Wd?h?,oEGPi($+]dWN()kVU,b1H=gr5AYãU"2W5iX*.1WmBULG%Pl''mVTV$7Ef#BFW[bEWs^WNIO+B7.>Fpg&?'Ea-B)&/E6)0NãU"mgoUA>k;Ay]13\]pI&JWCMq^XQ$Yx9L(Fv.xJ:..10K:YjI'[lGM3oN?#qE;]kCãU"XD$uPgg[6bvbpB0v;y&hsh?]WXYC>f\YpMB#feuTLVL[LWX2DA]FsN/.Qb3m$2Kj8#Yu3L)7l/V/&pWqkYx/bUPaGS&8ãU"qUa=QM2W-,xUyW^CQ6I,fX]OUQ;S[m^Z5-wW6>WB5l#W0]8JZTP4UE>)00Ry.#U028I_YcC$a(Fv*xB9CMlhãU"P?cnHRF+rkToV\5#?8wLn4)Y-rx3Fhn[UIL.)OXaIlx,nl8'%14fAl\T=BBH^\CãU"rnGtP'DM]q>u*a^\<\O\=J,rw[*BlNcCriA]d%x\#2LX8:u[1?.cr:kIlgIãU"C'>eI*f\qO61[oz-X?)do&cAcK4Ak_?KZ5_6BpEt]5rj8KSlr#QjCS]_.q19u?aãU"A.yPiE6b7v[al2vKX105(m>NP0Ib;dEQ$%L(87nx'u5Y-(L8GDiTR^vtwd#-<8\ãU"oqn^ao'$xr>]f4^eA8C08?]E+TU[;;(K848jr$OhK+>Ce.;,x%dtYmC0_0TQR5_ãU"55mFMS^/qNZ6KVbOO5rBPknzlWW81fPTFUKif/TLbNDFF^cCF3(HHdfU:ãU"uvJ=U-/0KDt)Nq7ZU:Ep81J)d3EYaCtB./V-ca/'VB['iP:_h(;XJW.J?pu#[#jãU"XK2H21IbB[C=uwbpk.7:P,WEm^574RK4errp+Vwi.+Q^qJO8jJ+2=^n.al\nAm*ãU"-LE71-[)GhNUy9LBbZl2)Dy-$8u.45a'%BBeX.rãU"u#%F_N'XdhlH]VSfxKGBLKO2^#bp?MhVtFUjnOCAKlLf^j?%qVF7LP[]GB&XEy*ãU"?,;Hj_mT[tTQ=,?^bR*jy0(OUriFcX(&>QJUxlBFT2+P'q>+yht7/#0/SW)'f)OãU"#6R6BLCG+^iFZcUtJ+GewXQWTKB/y/('.O2]'mmG6X0,Z3\pV4eW)'HUpA56:V1ãU"B281P]eGoY0IY[,rKQRU_;$p3FfU[bOXS2olyi/2hRhP2\1hCgpwxK]/cbd?OghãU"Lq%i8Df-Oa)1s\')YS2WE*+2lAU&/21\1)H_8V9L)rw-)eq.4$'+1i5pn&a9\RHãU"g.;TEKuSe8iQ/'O&M1:Ah9(_RyOiP)R2U+Kk;gc/akO]\ArdX9V.CU;a&tlT05_ãU">=O>MdU'.?/;a2X-SB#iG[HD%7[Be>BfI%lT1AXiWdãU"7PrN#3nx1;_M$2h/CeX=?NBfnsCbm,*i-Y%&IN5-bqtUjq'Sj4CBc*\-YI&Mf30ãU"uNeDof)Uw%;wPmYrzd''xC&/4i7$b;Cs_+tyA;s/t_XxiG0dLD\l3IfiNhfn\?PãU"ra-[U_eBf6C^1c%84H=Jwxjl)u<9n,Q.jh7dYMi>B6JbWvLvJ.]gxwUlIj.U^S$^EJgQ*lh,'S3%k\p5d&]kI&PbC\:_ãU"l*w7%mZ?gNNs8>:$oBi4IV1('XAXMF5Zt*B1[CKk^l=+URC#o';X7o?JP[DlpL\ãU"7WQO6$'1Y=q'-cIb=$EV-\n,=hUPn6q=vD\lnI_YXH40LinzFWQ.6JWCLiu7(q]ãU"eYYdF^=EH$qS-F^fl#.w&fB<:qw[2;Pq;0j<#&YF6s0\o0l72TGfn^/s6)-'*UIãU"T#Ue>Z_E5r,OD%I62FLlfD.2u\G43MUG1h1w:u$V#\,o'b2=+3VYq_Ch(.33))6ãU"gquj+4F'Jq0%W#j<;ou_][m7w5]=NMFf+ee#]+KhQBeãU"3DCI#-i]52U05ht?wn2?i>G>+rW?pPXx-V/V^na>b%XM14ztm'0'VyE\K3^TCP?ãU";Ij'>kIg;65qW(V%tlS]]gPKA8]j#)E8$9fWidFg*5M8;)JgT<1$c%+P')I.ãU"dt/XsBKXKB35a:AnPGF/OcTOv)WSL<2(1B]o&]bTlQBDb3lA'_Ie0,Kkw/)tn]PãU"M^Hw:Ai?V)KrVXSXcGRinEO*(_;h:]dQ]S.m3RR>b+2OSKbãU"&?VG&PF2h+JKFsj9k^.%.f;3JUE#YnbqJG6l8h+O)Dm:xjZe6HhRpCp*5ob^Tkio-dOXãU"V(^=8)vGYJpx2uh6B'[&w+a/7%br2+oeLqxWh#Kv[G)R+sZ(%FDB7;kJ1>uxG\?ãU"i&Ga((GDLy/if8pUB=]5TsgWa>72;?W(;]\Z>/\2e;lPd_=+oAIRA6p9lGV2+q0ãU")x%med\pPEY][=nVDmW:G;%pgAp(Y^'T1t-h[umgLYfBF\8D\iq?PoAMãU"&FuC*\=0ZSPR\)LU]z<4SD%khE#V>d$ãU"qg[:j4V8P08[-989VBr&.>Zc)ng-+ãU"=QHJ8Ph+9]aK)>;p3HjVi^R?R'y:6;8YNJI[wj#[\J^ROk;XD.Bu1,M:gx2=?]aãU";&6REC:;&w19fw;7:O6GBLJUo3[*D$;NNd+h4^Wpbom;w;AdO+\r\^_#iLb-p$1ãU"mr#c($61#-TzFo8tamf]xjE'Pny6dEGhpr[MUMs#-aX(uORãU"'eE$?qZ[e]5L+8k6obLWo=Zov;b^6/\;Ji*'-MTRi/eu^qt87=GZS'v2P,LLY\fb\z.0oOY]:_22uS8nE5O6P;SHãU"<,XbUf%5z8d]Z2OL<*=TMShz5dr>=B\DOZ)A?K4dL#rw[)eOC%1pAz[6,UãU"^LtiEXW>p487'6VQ]I<3h4csG+Tuw=InV3;DrzHJT5(U\2df5+EX4R'^ca+W<*e0$$l[eF.6ãU"7nV;\gAVo;O^\)Hx59=xP0eLr5C2U?-*b$3K*w^8zr'^9Z(P4;d&(efMcNH9fpwãU"#iDs]V'rpSSg-R:kW.jPM#OhD>dB?82\CWWL.M'ezP\cpp4muPni?IGZ.z(VXQLãU"X.7/>fn?&1%Kp?.l'>(F7jMxZi5k+LpL+K3Fmn47]aLy44?n>R+?nL;ZNwA6?8\ãU"E4qw%(Pq\I6o.,LnHk9kmaLubIzsE=>f)0+Pktj0k0tUFed7t34]bNf(=OSGnNtãU"]QI7'pzg>uq[?c=PLw<%up()%9%'%#-%qI'PK5]2s_O%.%%d%%%%0%%%%kn.qj.ãU"n%iSin8)rEb%/'V5FeZc_d$qxFI)6Z'6B'oEJeC/+7hAUrbUu=oQo'T/ini^P9NãU"nYo#GAa?)O]W45)V6](w/\SYH,D)G8NlhO8t6Pjz8UTm*[OSRD$ZnCafGJM2):'ãU"',p>8[.dU1PQn4g;E*&K?[*=jmv??h9nE]NV3[BN%%up&%'9%9%%'%-d%qIP#K5ãU"]s)_O%%(%d%%%%/%%%%%%%%%&%E%%%%%%%%%w%jfir#jSy'%yup&%'9%9%%'%-jãU"%pEN1KXbT(:gG%(%sM%%%-%%%%%%%%%&%E#%%%w%%%%g%zruS.wf&u%p&'9%%9%ãU"'#%-%w,HPKa3%?ea%,%%\%6%%-%%%%%%%%%&%%E%%(%5H%%%gzr%uSgf%xup&%'ãU"9%9%%'%-d%qIP#K5]s)_O%%(%d%%%%0%%%%%%%%%&%E[%%%A%O%%k#nqj.%niSiãU"(n)up%*+%%%%%)%7)%V%.%%#P%%%%%ãEND SUBãV2ãCLOSE:IF S=164AND 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ãRich Geldreich GIF89A DECODER richgel@voicenet.com 06-26-99 (10:07) QB, QBasic, PDS 287 10132 DEGIF6.BAS 'DEGIF6.BAS - No frills GIF decoder for the VGA's 320x200x256 mode.ã'By Rich Geldreich 1993 (Public domain, use as you wish.)ã'This version should properly decode all LZW encoded images inã'GIF image files. I've finally added GIF89a and local colormapã'support, so it more closely follows the GIF specification. Itã'still doesn't support the entire GIF89a specification, but it'llã'show most GIF files fine.ã'The GIF decoding speed of this program isn't great, but I'd sayã'for an all QB/PDS decoder it's not bad!ã'Note: This program does not stop decoding the GIF image after theã'rest of the scanlines become invisible! This happens with imagesã'larger than the 320x200 screen. So if the program seems to beã'just sitting there, accessing your hard disk, don't worry...ã'It'll beep when it's done.ãDEFINT A-Zã'Prefix() and Suffix() hold the LZW phrase dictionary.ã'OutStack() is used as a decoding stack.ã'ShiftOut() as a power of two table used to quickly retrieve the LZWã'multibit codes.ãDIM Prefix(4095), Suffix(4095), OutStack(4095), ShiftOut(8)ãã'The following line is for the QB environment(slow).ãDIM YBase AS LONG, Powersof2(11) AS LONG, WorkCode AS LONGã'For a little more speed, unremark the next line and remark the oneã'above, before you compile... You'll get an overflow error if theã'following line is used in the QB environment, so change it back.ã'DIM YBase AS INTEGER, Powersof2(11) AS INTEGER, WorkCode AS INTEGERãã'Precalculate power of two tables for fast shifts.ãFOR A = 0 TO 8: ShiftOut(8 - A) = 2 ^ A: NEXTãFOR A = 0 TO 11: Powersof2(A) = 2 ^ A: NEXTãã'Get GIF filename.ãA$ = COMMAND$: IF A$ = "" THEN INPUT "GIF file"; A$: IF A$ = "" THEN ENDã'Add GIF extension if the given filename doesn't have one.ãFOR A = LEN(A$) TO 1 STEP -1ã SELECT CASE MID$(A$, A, 1)ã CASE "\", ":": EXIT FORã CASE ".": Extension = -1: EXIT FORã END SELECTãNEXTãIF Extension = 0 THEN A$ = A$ + ".GIF"ãã'Open file for input so QB stops with an error if it doesn't exist.ãOPEN A$ FOR INPUT AS #1: CLOSE #1ãOPEN A$ FOR BINARY AS #1ãã'Check to see if GIF file. Ignore GIF version number.ãA$ = " ": GET #1, , A$ãIF LEFT$(A$, 3) <> "GIF" THEN PRINT "Not a GIF file.": ENDãã'Get logical screen's X and Y resolution.ãGET #1, , TotalX: GET #1, , TotalY: GOSUB GetByteã'Calculate number of colors and find out if a global palette exists.ãNumColors = 2 ^ ((A AND 7) + 1): NoPalette = (A AND 128) = 0ã'Retrieve background color.ãGOSUB GetByte: Background = Aãã'Get aspect ratio and ignore it.ãGOSUB GetByteãã'Retrieve global palette if it exists.ãIF NoPalette = 0 THEN P$ = SPACE$(NumColors * 3): GET #1, , P$ããDO 'Image decode loopãã'Skip by any GIF extensions.ã'(With a few modifications this code could also fetch comments.)ãDOã 'Skip by any zeros at end of image (why must I do this? theã 'GIF spec never mentioned it)ã DOã IF EOF(1) THEN GOTO AllDone 'if at end of file, exitã GOSUB GetByteã LOOP WHILE A = 0 'loop while byte fetched is zeroãã SELECT CASE Aã CASE 44 'We've found an image descriptor!ã EXIT DOã CASE 59 'GIF trailer, stop decoding.ã GOTO AllDoneã CASE IS <> 33ã PRINT "Unknown GIF extension type.": ENDã END SELECTã 'Skip by blocked extension data.ã GOSUB GetByteã DO: GOSUB GetByte: A$ = SPACE$(A): GET #1, , A$: LOOP UNTIL A = 0ãLOOPã'Get image's start coordinates and size.ãGET #1, , XStart: GET #1, , YStart: GET #1, , XLength: GET #1, , YLengthãXEnd = XStart + XLength: YEnd = YStart + YLengthãã'Check for local colormap, and fetch it if it exists.ãGOSUB GetByteãIF (A AND 128) THENã NoPalette = 0ã NumColors = 2 ^ ((A AND 7) + 1)ã P$ = SPACE$(NumColors * 3): GET #1, , P$ãEND IFãã'Check for interlaced image.ãInterlaced = (A AND 64) > 0: PassNumber = 0: PassStep = 8ãã'Get LZW starting code size.ãGOSUB GetByteãã'Calculate clear code, end of stream code, and first free LZW code.ãClearCode = 2 ^ AãEOSCode = ClearCode + 1ãFirstCode = ClearCode + 2: NextCode = FirstCodeãStartCodeSize = A + 1: CodeSize = StartCodeSizeãã'Find maximum code for the current code size.ãStartMaxCode = 2 ^ (A + 1) - 1: MaxCode = StartMaxCodeããBitsIn = 0: BlockSize = 0: BlockPointer = 1ããX = XStart: y = YStart: YBase = y * 320&ãã'Set screen 13 in not set yet.ãIF FirstTime = 0 THENã 'Go to VGA mode 13 (320x200x256).ã SCREEN 13: DEF SEG = &HA000ãEND IFãã'Set palette, if there was one.ãIF NoPalette = 0 THENã 'Use OUTs for speed.ã OUT &H3C8, 0ã FOR A = 1 TO NumColors * 3: OUT &H3C9, ASC(MID$(P$, A, 1)) \ 4: NEXTã 'Save palette of image to disk.ã 'OPEN "pal." FOR BINARY AS #2: PUT #2, , P$: CLOSE #2ãEND IFããIF FirstTime = 0 THENã 'Clear entire screen to background color. This isn'tã 'done until the image's palette is set, to avoid flickerã 'on some GIFs.ã LINE (0, 0)-(319, 199), Background, BFã FirstTime = -1ãEND IFãã'Decode LZW data stream to screen.ãDOã 'Retrieve one LZW code.ã GOSUB GetCodeã 'Is it an end of stream code?ã IF Code <> EOSCode THENã 'Is it a clear code? (The clear code resets the slidingã 'dictionary - it *should* be the first LZW code present inã 'the data stream.)ã IF Code = ClearCode THENã NextCode = FirstCodeã CodeSize = StartCodeSizeã MaxCode = StartMaxCodeã DO: GOSUB GetCode: LOOP WHILE Code = ClearCodeã IF Code = EOSCode THEN GOTO ImageDoneã LastCode = Code: LastPixel = Codeã IF X < 320 AND y < 200 THEN POKE X + YBase, LastPixelã X = X + 1: IF X = XEnd THEN GOSUB NextScanLineã ELSEã CurCode = Code: StackPointer = 0ãã 'Have we entered this code into the dictionary yet?ã IF Code >= NextCode THENã IF Code > NextCode THEN GOTO AllDone 'Bad GIF if this happens.ã 'mimick last code if we haven't entered the requestedã 'code into the dictionary yetã CurCode = LastCodeã OutStack(StackPointer) = LastPixelã StackPointer = StackPointer + 1ã END IFãã 'Recursively get each character of the string.ã 'Since we get the characters in reverse, "push" themã 'onto a stack so we can "pop" them off later.ã 'Hint: There is another, much faster way to accomplishã 'this that doesn't involve a decoding stack at all...ã DO WHILE CurCode >= FirstCodeã OutStack(StackPointer) = Suffix(CurCode)ã StackPointer = StackPointer + 1ã CurCode = Prefix(CurCode)ã LOOPãã LastPixel = CurCodeã IF X < 320 AND y < 200 THEN POKE X + YBase, LastPixelã X = X + 1: IF X = XEnd THEN GOSUB NextScanLineãã '"Pop" each character onto the display.ã FOR A = StackPointer - 1 TO 0 STEP -1ã IF X < 320 AND y < 200 THEN POKE X + YBase, OutStack(A)ã X = X + 1: IF X = XEnd THEN GOSUB NextScanLineã NEXTãã 'Can we put this new string into our dictionary? (Some GIFã 'encoders will wait a bit when the dictionary is fullã 'before sending a clear code- this increases compressionã 'because the dictionary's contents are thrown away lessã 'often.)ã IF NextCode < 4096 THENã 'Store new string in the dictionary for later use.ã Prefix(NextCode) = LastCodeã Suffix(NextCode) = LastPixelã NextCode = NextCode + 1ã 'Time to increase the LZW code size?ã IF (NextCode > MaxCode) AND (CodeSize < 12) THENã CodeSize = CodeSize + 1ã MaxCode = MaxCode * 2 + 1ã END IFã END IFã LastCode = Codeã END IFã END IFãLOOP UNTIL Code = EOSCodeãImageDone:ããLOOPããAllDone:ãã'Save image and palette to BSAVE file.ã'DEF SEG = &HA000ã'OUT &H3C7, 0ã'FOR a = 0 TO 767ã' POKE a + 64000, INP(&H3C9)ã'NEXTã'BSAVE "pic.bas", 0, 64768ãã'Load images saved with the above code with this:ã'DEF SEG= &HA000ã'BLOAD "Pic.Bas"ã'OUT &H3C8, 0ã'FOR a = 0 To 767ã' OUT &H3C9, Peek(a+ 64000)ã'NEXTããBEEP: DO: LOOP WHILE INKEY$ <> "": DO: LOOP UNTIL INKEY$ <> ""ãENDãã'Slowly reads one byte from the GIF file...ãGetByte: A$ = " ": GET #1, , A$: A = ASC(A$): RETURNãã'Moves down one scanline. If the GIF is interlaced, then the numberã'of scanlines skipped is based on the current pass.ãNextScanLine:ã IF Interlaced THENã y = y + PassStepã IF y >= YEnd THENã PassNumber = PassNumber + 1ã SELECT CASE PassNumberã CASE 1: y = 4: PassStep = 8ã CASE 2: y = 2: PassStep = 4ã CASE 3: y = 1: PassStep = 2ã END SELECTã END IFã ELSEã y = y + 1ã END IFã X = XStart: YBase = y * 320&ãRETURNãã'Reads a multibit code from the data stream.ãGetCode:ã WorkCode = LastChar \ ShiftOut(BitsIn)ã 'Loop while more bits are needed.ã DO WHILE CodeSize > BitsInã'Reads a byte from the LZW data stream. Since the data stream isã'blocked, a check is performed for the end of the current blockã'before each byte is fetched.ã IF BlockPointer > BlockSize THENã 'Retrieve block's lengthã GOSUB GetByte: BlockSize = Aã A$ = SPACE$(BlockSize): GET #1, , A$ã BlockPointer = 1ã END IFã 'Yuck, ASC() and MID$() aren't that fast.ã LastChar = ASC(MID$(A$, BlockPointer, 1))ã BlockPointer = BlockPointer + 1ã 'Append 8 more bits to the input bufferã WorkCode = WorkCode OR LastChar * Powersof2(BitsIn)ã BitsIn = BitsIn + 8ã LOOPã 'Take away x number of bits.ã BitsIn = BitsIn - CodeSizeã 'Return code to caller.ã Code = WorkCode AND MaxCodeãRETURNãDavid A. Wicker FALLING RAIN WITH SOUND EFFECTStopaz817@netzero.net 06-24-99 (05:51) QB, QBasic, PDS 210 4954 RAIN2.BAS ' Rainy Days #2 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>ã' Written by David A. Wicker -- topaz817@fastlane.netã' ---------------------------------------------------------------------------ã' As always, if you borrow anything from any source code for yourã' shareware projects, please give credit to the original author!ã' ---------------------------------------------------------------------------ãã' Nope, you're notta even going to get a lick of documentation on thisã' quick hack of mine. Suffice it to say there is very little rain inã' Fort Worth (my Father says it was originally a desert), and I told himã' I didn't want to clean my room until it rained. He said,ã' "Make it rain for yourself." So I did. :)ãã' Let my proggy run a good long while and the rain will pick up and hit thatã' nice fine level for sleeping to, complete with thunder and lightning.ããDEFINT A-Zã'$DYNAMICãDECLARE SUB Center (A, A$)ãDECLARE SUB TR (T$)ãDECLARE SUB CLR ()ãDECLARE SUB DEC (N)ãDECLARE SUB SFX (P)ãDECLARE SUB INC (N)ãDECLARE SUB RGB (N, R, G, B)ãDECLARE SUB Nano ()ããDEF FNC$ (A$, A) = MID$(A$, A, 1)ãDEF FNR (A) = INT(RND * A)ãRANDOMIZE TIMERããA$(0) = "freeware rain v1.0 written in quickbasic 4.5"ãA$(1) = "you like ? please send a postcard to let me know !"ãA$(2) = "david wicker ÄÄ 3436 clayton road east ÄÄ fort worth, texas 76116"ããFOR I = 0 TO 2ã FOR J = 1 TO LEN(A$(I))ã A = A + ASC(FNC$(A$(I), J))ã NEXTãNEXTããWHILE A <> 14425: WENDãA = 0ããSCREEN 13ãããFOR I = 0 TO 15ã RGB I, 1.4 * I, 2.8 * I, 4.2 * IãNEXTãRGB 16, 31, 0, 63ãRGB 17, 63, 63, 63ããM = 199ããDIM X(M), Y(M), S(M)ããFOR I = 0 TO Mã X(I) = FNR(320)ã Y(I) = FNR(200)ã S(I) = FNR(8) + 8ãNEXTãE = FNR(100) + 100ãD = 1ãPLAY "MB"ãDOã INC Nã IF N = 100 THENã IF A < 8 OR B = 5 THEN A = A + Dã IF A = 8 THEN B = B + 1ã IF B = 5 THEN B = 0: A = 7: D = -1ã N = 0ã IF A > 7 OR A < 0 THEN D = -Dã END IFã FOR I = 0 TO Mã FOR J = -S(I) TO S(I) \ 2ã C = Jã IF C < 0 THEN C = 0ã PSET (X(I), Y(I) + J), Cã NEXTã Y(I) = Y(I) + S(I)ã IF Y(I) > 200 + S(I) THENã X(I) = FNR(320)ã Y(I) = -S(I)ã S(I) = FNR(8 + A) + 8 + Aã END IFã IF I MOD 6 = 0 AND FNR(8 - A) = 0 THENã SFX FNR(5000) + FNR(16 - A * 2) * 1000 + A * 750ã ELSEIF I MOD 6 = 0 THENã SFX 32767ã END IFã IF Lightning > 0 AND I MOD 16 = 0 THENã IF Lightning = 1 OR Lightning = 30 OR Lightning = 10 OR Lightning = 40 THENã FOR K = 0 TO 2ã PSET (BoltX(0) + K, BoltY(0))ã C = 16ã IF K = 1 THEN C = 17ã FOR J = 1 TO 5ã LINE -(BoltX(J) + K, BoltY(J)), Cã NEXTã NEXTã END IFã IF Lightning = 1 OR Lightning = 30 THENã RGB 0, 63, 63, 63ã END IFã IF Lightning = 10 OR Lightning = 40 THENã RGB 0, 0, 0, 0ã IF Lightning = 40 THEN CLRã END IFã IF Lightning = NowThunder THENã Thun = 1000 + FNR(500)ã Thunder = Thunã Lightning = 0ã ELSEã INC Lightningã END IFã END IFã IF Thunder > 0 AND I MOD 12 = 0 THENã SFX FNR(Thunder) - 500ã DEC Thunderã END IFã NEXTã Nanoã IF Thunder = 0 AND Lightning = 0 THENã IF A >= 3 THEN R = R + 1ã IF A >= 3 AND R >= E THENã Lightning = 1ã NowThunder = 750 + FNR(500)ã R = 0ã E = FNR(100) + 100ã X = 160 - 50 + FNR(100)ã R = FNR(2)ã FOR I = 0 TO 5ã IF (I + R) MOD 2 = 0 THENã X = X - 25 - FNR(50)ã ELSEã X = X + 25 + FNR(50)ã END IFã Y = I * 33 + FNR(33)ã IF I = 0 THEN Y = 0ã IF I = 5 THEN Y = 199ã BoltX(I) = Xã BoltY(I) = Yã NEXTã END IFã END IFãLOOP UNTIL INKEY$ > ""ããSCREEN 0, 1, 0, 0ãWIDTH 80ãCOLOR 7, 0ãCLSãPRINT STRING$(80, " ");ãLOCATE 10ãCenter 1, A$(0)ãCenter 5, A$(1)ãCenter 4, A$(2)ãCOLOR 7, 0ãLOCATE 23, 1, 1ãTT! = TIMER: WHILE (TIMER - TT! < 1 AND TIMER >= TT!) OR INKEY$ > "": WENDãDO: LOOP UNTIL INKEY$ = ""ãDO: LOOP UNTIL INKEY$ > ""ãENDããREM $STATICãSUB Center (A, A$) : SHARED ColFlipã LOCATE , 40 - LEN(A$) \ 2ã ColFlip = Aã TR A$ã PRINTã PRINTãEND SUBããSUB CLRã LINE (0, 0)-(319, 199), 0, BFãEND SUBããSUB DEC (N)ã N = N - 1ãEND SUBããSUB INC (N)ã N = N + 1ãEND SUBããSUB Nano : SHARED TT!ã WHILE TIMER = TT!: WEND: TT! = TIMERãEND SUBããSUB RGB (N, R, G, B)ã OUT &H3C8, Nã OUT &H3C9, Rã OUT &H3C9, Gã OUT &H3C9, BãEND SUBããSUB SFX (P)ã IF P > 36 THEN SOUND P, .03ãEND SUBããSUB TR (T$) : SHARED ColFlipã FOR I = 1 TO LEN(T$)ã C$ = FNC$(T$, I)ã IF C$ = "`" THEN C$ = CHR$(34)ã IF C$ < "A" OR I = 1 THEN COLOR ColFlip + 8: NextUp = 1ã IF NextUp = 1 THEN C$ = UCASE$(C$)ã PRINT C$;ã IF C$ <> " " THEN COLOR ColFlip: NextUp = 0ã NEXTãEND SUBãPetter Holmberg JPEG LOADER V1.2 WITH COLOR petter.holmberg@usa.net 06-28-99 (13:34) QB, QBasic, PDS 875 21908 JPEG.BAS ' JPEG loader by Petter Holmberg of Enhanced Creationsã' Version 1.2, 28/6 1999ããDECLARE SUB LoadJPEG (filename$, jpegerror%)ããDECLARE SUB ReadSOF0 (sof0error%)ãDECLARE SUB ReadDHT (dhterror%)ãDECLARE SUB ReadSOS (soserror%, numcomponents%)ãDECLARE SUB ReadDQT (dqterror%)ãDECLARE SUB ReadDNL (dnlerror%)ãDECLARE SUB ReadDRI ()ãDECLARE SUB ReadAPP0 (app0type%, app0error%)ãDECLARE SUB ReadCOM ()ããDECLARE SUB DecodeMCU (mcuwidth%, mcuheight%, numcomponents%, decodeerror%)ãDECLARE SUB DecodeBlock (compid%, decodeerror%)ãDECLARE FUNCTION NextBit% ()ãDECLARE SUB YCbCr2RGB (mcuwidth%, mcuheight%)ããTYPE JPEGTypeã filename AS STRING * 12ã version AS INTEGERã units AS INTEGERã xden AS INTEGERã yden AS INTEGERã xthumb AS INTEGERã ythumb AS INTEGERã numdqts AS INTEGERã p AS INTEGERã x AS INTEGERã y AS INTEGERã nf AS INTEGERã ri AS INTEGERãEND TYPEããTYPE ComponentTypeã ci AS INTEGERã h AS INTEGERã v AS INTEGERã tqi AS INTEGERãEND TYPEããTYPE ScanTypeã cs AS INTEGERã td AS INTEGERã ta AS INTEGERãEND TYPEããTYPE RGBTypeã r AS LONGã g AS LONGã b AS LONGãEND TYPEããCONST MSOF0% = &HC0FFãCONST MDHT% = &HC4FFãCONST MJPG% = &HC8FFãCONST MSOI% = &HD8FFãCONST MEOI% = &HD9FFãCONST MSOS% = &HDAFFãCONST MDQT% = &HDBFFãCONST MDNL% = &HDCFFãCONST MDRI% = &HDDFFãCONST MAPP0% = &HE0FFãCONST MCOM% = &HFEFFããCONST bestpalmatch& = 65536ããDIM jpeg AS JPEGTypeãDIM component(1 TO 3) AS ComponentTypeãDIM dqttable%(3, 63)ãDIM huffval%(1, 1, 191)ãDIM huffsize%(1, 1, 191)ãDIM huffcode&(1, 1, 191)ãDIM decodeinfo(1 TO 3) AS ScanTypeãDIM block&(7, 7)ãDIM mcu%(1 TO 3, 31, 31)ãDIM olddc%(1 TO 3)ãDIM truepal(255) AS RGBTypeããjpegerror% = 0ãt0! = 0ãt1! = 0ããCLSãSCREEN 0ãWIDTH 80, 25ããPRINT "JPEG loader by Petter Holmberg of Enhanced Creations"ãPRINT "Version 1.2, 28/6 1999"ãPRINTãPRINT "Here is the third release of my JPEG loader. No big news. The only real"ãPRINT "difference from the last version is that color images now are displayed in"ãPRINT "color, using a crude color-matching algoritm. Most color images looks terrible"ãPRINT "though, because the standard SCREEN 13 color palette is used. A customized"ãPRINT "palette and/or a better color matching-algoritm would do wonders. Also, this"ãPRINT "program now needs to be optimized a lot to reduce the loading time. All of this"ãPRINT "will hopefully be seen in upcoming versions of the loader. Check out the"ãPRINT "Enhanced Creations homepage for news on this."ãPRINTãPRINT "Petter Holmberg, -99 (http://ec.quickbasic.com, petter.holmberg@usa.net) ";ããDO: LOOP WHILE INKEY$ = ""ããCLSããPRINT "Now type the name of a JPEG image file to load. Make sure it's a baseline"ãPRINT "8-bit JFIF image, or otherwise the loader won't be able to display it!"ãPRINTããINPUT "Filename: ", filename$ãIF INSTR(filename$, ".") = 0 THEN filename$ = filename$ + ".JPG"ããLoadJPEG filename$, jpegerror%ããminutes% = (t1! - t0!) \ 60ãseconds% = (t1! - t0) - minutes% * 60ããIF minutes% = 1 THEN mintext$ = "minute" ELSE mintext$ = "minutes"ãIF seconds% = 1 THEN sectext$ = "second" ELSE sectext$ = "seconds"ããIF jpegerror% THEN CLOSE #1ãSELECT CASE jpegerror%ãCASE 0ã PRINT "JPEG file successfully loaded and displayed!"ã PRINT "Total loading time:"; minutes%; mintext$; " and"; seconds%; sectext$; "."ãCASE 1ã PRINT "No SOI marker found. File does not appear to be a valid JFIF image file."ãCASE 2ã PRINT "Invalid APP0 marker. File does not appear to be a valid JFIF image file."ãCASE 3ã PRINT "Unknown marker found. File is probably not a baseline JFIG image file."ãCASE 4ã PRINT "Cannot find DQT, SOF0, DHT or SOS marker. Cannot view JPEG image."ãCASE 5ã PRINT "Invalid DHT marker. File does not appear to be a valid JFIF image file."ãCASE 6ã PRINT "Sorry, but this version only supports grayscale or interleaved color images."ãCASE 7ã PRINT "No EOI marker found. Abnormal termination of image loading."ãEND SELECTããSUB DecodeBlock (compid%, decodeerror%)ããSHARED jpeg AS JPEGTypeãSHARED component() AS ComponentTypeãSHARED decodeinfo() AS ScanTypeãSHARED huffval%(), huffsize%(), huffcode&()ãSHARED block&(), dqttable%()ãSHARED olddc%()ããDIM blockdata&(63)ãDIM idctvalues!(7, 7)ãDIM newbyte AS STRING * 1ãã' Get DC coefficient:ããdecodeerror% = 0ãeob% = 0ãblockofs% = 0ãbitsleft% = 0ãdcnumbits% = 0ãnumbits% = 0ãbits& = 0ãdcbits& = 0ããDOã bits& = bits& * 2 + NextBit%ã numbits% = numbits% + 1ãã FOR i% = 0 TO 11ã IF huffsize%(0, decodeinfo(compid%).td, i%) = numbits% AND huffcode&(0, decodeinfo(compid%).td, i%) = bits& THENã dcnumbits% = huffval%(0, decodeinfo(compid%).td, i%)ã codefound% = 1ã EXIT FORã END IFã NEXT i%ãLOOP UNTIL codefound% = 1ããFOR getbits% = 1 TO dcnumbits%ã dcbits& = dcbits& * 2 + NextBit%ãNEXT getbits%ããIF NOT dcbits& AND 2 ^ (dcnumbits% - 1) THENã dcbits& = -(2 ^ (dcnumbits%) - 1) + dcbits&ãEND IFããblockdata&(0) = dcbits&ãblockofs% = 1ãã' Get AC coefficients:ããDOã numbits% = 0ã bits& = 0ã acbits& = 0ã codefound% = 0ãã DOã bits& = bits& * 2 + NextBit%ã numbits% = numbits% + 1ãã FOR i% = 0 TO 191ã IF huffsize%(1, decodeinfo(compid%).ta, i%) = numbits% AND huffcode&(1, decodeinfo(compid%).ta, i%) = bits& THENã acrunsize% = huffval%(1, decodeinfo(compid%).ta, i%)ã codefound% = 1ã EXIT FORã END IFã NEXT i%ã LOOP UNTIL codefound% = 1ãã acnumbits% = acrunsize% AND &HFã zrun% = acrunsize% \ &H10ãã IF acnumbits% = 0 THENã IF zrun% = &HF THENã blockofs% = blockofs% + 16ã ELSEã EXIT DOã END IFã ELSEã blockofs% = blockofs% + zrun%ãã FOR getbits% = 1 TO acnumbits%ã acbits& = acbits& * 2 + NextBit%ã NEXT getbits%ãã IF NOT acbits& AND 2 ^ (acnumbits% - 1) THENã acbits& = -(2 ^ (acnumbits%) - 1) + acbits&ã END IFãã blockdata&(blockofs%) = acbits&ã blockofs% = blockofs% + 1ã END IFãLOOP UNTIL blockofs% > 63ãã' Dequantization:ããFOR dqloop% = 0 TO 63ã blockdata&(dqloop%) = blockdata&(dqloop%) * dqttable%(component(compid%).tqi, dqloop%)ãNEXT dqloop%ãã' Zig-zag scan:ããblock&(0, 0) = blockdata&(0)ãblock&(1, 0) = blockdata&(1)ãblock&(0, 1) = blockdata&(2)ãblock&(0, 2) = blockdata&(3)ãblock&(1, 1) = blockdata&(4)ãblock&(2, 0) = blockdata&(5)ãblock&(3, 0) = blockdata&(6)ãblock&(2, 1) = blockdata&(7)ãblock&(1, 2) = blockdata&(8)ãblock&(0, 3) = blockdata&(9)ãblock&(0, 4) = blockdata&(10)ãblock&(1, 3) = blockdata&(11)ãblock&(2, 2) = blockdata&(12)ãblock&(3, 1) = blockdata&(13)ãblock&(4, 0) = blockdata&(14)ãblock&(5, 0) = blockdata&(15)ãblock&(4, 1) = blockdata&(16)ãblock&(3, 2) = blockdata&(17)ãblock&(2, 3) = blockdata&(18)ãblock&(1, 4) = blockdata&(19)ãblock&(0, 5) = blockdata&(20)ãblock&(0, 6) = blockdata&(21)ãblock&(1, 5) = blockdata&(22)ãblock&(2, 4) = blockdata&(23)ãblock&(3, 3) = blockdata&(24)ãblock&(4, 2) = blockdata&(25)ãblock&(5, 1) = blockdata&(26)ãblock&(6, 0) = blockdata&(27)ãblock&(7, 0) = blockdata&(28)ãblock&(6, 1) = blockdata&(29)ãblock&(5, 2) = blockdata&(30)ãblock&(4, 3) = blockdata&(31)ãblock&(3, 4) = blockdata&(32)ãblock&(2, 5) = blockdata&(33)ãblock&(1, 6) = blockdata&(34)ãblock&(0, 7) = blockdata&(35)ãblock&(1, 7) = blockdata&(36)ãblock&(2, 6) = blockdata&(37)ãblock&(3, 5) = blockdata&(38)ãblock&(4, 4) = blockdata&(39)ãblock&(5, 3) = blockdata&(40)ãblock&(6, 2) = blockdata&(41)ãblock&(7, 1) = blockdata&(42)ãblock&(7, 2) = blockdata&(43)ãblock&(6, 3) = blockdata&(44)ãblock&(5, 4) = blockdata&(45)ãblock&(4, 5) = blockdata&(46)ãblock&(3, 6) = blockdata&(47)ãblock&(2, 7) = blockdata&(48)ãblock&(3, 7) = blockdata&(49)ãblock&(4, 6) = blockdata&(50)ãblock&(5, 5) = blockdata&(51)ãblock&(6, 4) = blockdata&(52)ãblock&(7, 3) = blockdata&(53)ãblock&(7, 4) = blockdata&(54)ãblock&(6, 5) = blockdata&(55)ãblock&(5, 6) = blockdata&(56)ãblock&(4, 7) = blockdata&(57)ãblock&(5, 7) = blockdata&(58)ãblock&(6, 6) = blockdata&(59)ãblock&(7, 5) = blockdata&(60)ãblock&(7, 6) = blockdata&(61)ãblock&(6, 7) = blockdata&(62)ãblock&(7, 7) = blockdata&(63)ãã' IDCT:ããblock&(0, 0) = olddc%(compid%) + block&(0, 0)ãolddc%(compid%) = block&(0, 0)ããFOR y% = 0 TO 7ã FOR x% = 0 TO 7ã idctvalues!(x%, y%) = 0ã FOR v% = 0 TO 7ã FOR u% = 0 TO 7ã IF u% = 0 THEN cu! = 1 / SQR(2) ELSE cu! = 1ã IF v% = 0 THEN cv! = 1 / SQR(2) ELSE cv! = 1ã idctvalues!(x%, y%) = idctvalues!(x%, y%) + cu! * cv! * block&(u%, v%) * COS((2 * x% + 1) * u% * 3.14159265358979# / 16) * COS((2 * y% + 1) * v% * 3.14159265358979# / 16)ã NEXT u%ã NEXT v%ã idctvalues!(x%, y%) = (idctvalues!(x%, y%) * .25)ã NEXT x%ãNEXT y%ããFOR y% = 0 TO 7ã FOR x% = 0 TO 7ã block&(x%, y%) = idctvalues!(x%, y%) + 128ã NEXT x%ãNEXT y%ããEND SUBããSUB DecodeMCU (mcuwidth%, mcuheight%, numcomponents%, decodeerror%)ããSHARED jpeg AS JPEGTypeãSHARED block&()ãSHARED component() AS ComponentTypeãSHARED mcu%()ããFOR getcomponents% = 1 TO numcomponents%ã FOR getyblocks% = 1 TO component(getcomponents%).hã FOR getxblocks% = 1 TO component(getcomponents%).vã DecodeBlock getcomponents%, jpegerror%ã blocky% = 0ã FOR patchy% = (mcuheight% \ component(getcomponents%).h) * (getyblocks% - 1) TO (mcuheight% \ component(getcomponents%).h) * getyblocks% - 1ã blockx% = 0ã FOR patchx% = (mcuwidth% \ component(getcomponents%).v) * (getxblocks% - 1) TO (mcuwidth% \ component(getcomponents%).v) * getxblocks% - 1ã mcu%(getcomponents%, patchx%, patchy%) = block&(blockx%, blocky%)ã xerr% = xerr% + 8ã IF xerr% = mcuwidth% \ component(getcomponents%).v THENã blockx% = blockx% + 1ã xerr% = 0ã END IFã NEXT patchx%ã yerr% = yerr% + 8ã IF yerr% = mcuheight% \ component(getcomponents%).h THENã blocky% = blocky% + 1ã yerr% = 0ã END IFã NEXT patchy%ã NEXT getxblocks%ã NEXT getyblocks%ãNEXT getcomponents%ããEND SUBãã' This SUB controls the loading of the JPEG image.ã'ãSUB LoadJPEG (filename$, jpegerror%)ãSHARED jpeg AS JPEGTypeãSHARED component() AS ComponentTypeãSHARED block&()ãSHARED mcu%()ãSHARED truepal() AS RGBTypeãSHARED t0!, t1!ããOPEN filename$ FOR BINARY ACCESS READ AS #1ããjpeg.filename = UCASE$(filename$)ããGET #1, , marker%ãIF marker% <> MSOI% THENã jpegerror% = 1ã SEEK #1, SEEK(1) - 2ã EXIT SUBãEND IFããGET #1, , marker%ãIF marker% <> MAPP0% THENã jpegerror% = 2ã SEEK #1, SEEK(1) - 2ã EXIT SUBãEND IFããReadAPP0 0, jpegerror%ããmarkersread% = 0ããDOã GET #1, , marker%ã SELECT CASE marker%ã CASE MAPP0%ã ReadAPP0 1, jpegerror%ã CASE MDQT%ã ReadDQT jpegerror%ã markersread% = markersread% OR &H1ã CASE MSOF0%ã ReadSOF0 jpegerror%ã markersread% = markersread% OR &H2ã CASE MDHT%ã ReadDHT jpegerror%ã markersread% = markersread% OR &H4ã CASE MDRI%ã ReadDRIã CASE MCOM%ã ReadCOMã CASE MSOS%ã IF markersread% = &H7 THEN markersread% = markersread% OR &H8ã CASE ELSEã PRINT HEX$(marker%)ã jpegerror% = 3ã END SELECTãLOOP UNTIL jpegerror% OR markersread% = &HFããIF markersread% <> 15 THENã jpegerror% = 4ã SEEK #1, SEEK(1) - 2ã EXIT SUBãEND IFããIF jpegerror% = 0 AND markersread% = 15 THENã PRINTã PRINT "Filename: "; jpeg.filenameã PRINT "Version: "; HEX$(jpeg.version)ã PRINT "X density: "; jpeg.xdenã PRINT "Y density: "; jpeg.ydenã PRINT "X thumbnail: "; jpeg.xthumbã PRINT "Y thumbnail: "; jpeg.ythumbã PRINT "Number of DQTs: "; jpeg.numdqtsã PRINT "Sample precision: "; jpeg.pã PRINT "Number of columns: "; jpeg.xã PRINT "Number of rows: "; jpeg.yã PRINT "Number of components:"; jpeg.nfã PRINT "Restart interval: "; jpeg.riã PRINTã PRINT "Press any key to view image..."ãã DO: LOOP WHILE INKEY$ = ""ãã FOR getmcusize% = 1 TO 3ã IF component(getmcusize%).v * 8 > mcuwidth% THEN mcuwidth% = component(getmcusize%).v * 8ã IF component(getmcusize%).h * 8 > mcuheight% THEN mcuheight% = component(getmcusize%).h * 8ã NEXT getmcusize%ãã ReadSOS soserror%, numcomponents%ãã IF numcomponents% = jpeg.nf THENã SCREEN 13ãã IF numcomponents% = 1 THENã OUT &H3C8, 0ã FOR setpal% = 0 TO 255ã OUT &H3C9, setpal% \ 4ã OUT &H3C9, setpal% \ 4ã OUT &H3C9, setpal% \ 4ã NEXT setpal%ã END IFãã OUT &H3C7, 0ã FOR getpal% = 0 TO 255ã truepal(getpal%).r = INP(&H3C9)ã truepal(getpal%).g = INP(&H3C9)ã truepal(getpal%).b = INP(&H3C9)ã NEXT getpal%ãã BEEPãã t0! = TIMERãã FOR py% = 0 TO jpeg.y - 1 STEP mcuheight%ã FOR px% = 0 TO jpeg.x - 1 STEP mcuwidth%ã DecodeMCU mcuwidth%, mcuheight%, numcomponents%, jpegerror%ã IF jpeg.nf = 3 THEN YCbCr2RGB mcuwidth%, mcuheight%ã FOR y% = 0 TO mcuheight% - 1ã FOR x% = 0 TO mcuwidth% - 1ã pixel% = mcu%(1, x%, y%)ã IF pixel% < 0 THEN pixel% = 0ã IF pixel% > 255 THEN pixel% = 255ã IF px% + x% < jpeg.x AND px% + x% < 320 AND py% + y% < jpeg.y AND py% + y% < 200 THENã PSET (px% + x%, py% + y%), pixel%ã END IFã NEXT x%ã NEXT y%ã NEXT px%ã NEXT py%ãã t1! = TIMERãã BEEPãã GET #1, , marker%ã IF marker% <> MEOI% THEN jpegerror% = 7ãã CLOSE #1ãã BEEPãã DO: LOOP WHILE INKEY$ = ""ãã SCREEN 0ã WIDTH 80, 25ã ELSEã jpegerror% = 5ã END IFãEND IFããEND SUBããFUNCTION NextBit%ãSTATIC bitsleft%, byte AS STRING * 1, byte2 AS STRING * 1ããIF bitsleft% = 0 THENã GET #1, , byteã bitsleft% = 8ã IF byte = CHR$(&HFF) THENã GET #1, , byte2ã IF byte2 <> CHR$(0) THEN GET #1, , byteã END IFãEND IFããIF ASC(byte) AND (2 ^ (bitsleft% - 1)) THEN bit% = 1ãbitsleft% = bitsleft% - 1ããNextBit% = bit%ããEND FUNCTIONããSUB ReadAPP0 (app0type%, app0error%)ãSHARED jpeg AS JPEGTypeããapp0error% = 2ããDIM lengthval AS STRING * 2ãDIM units AS STRING * 1ãDIM density AS STRING * 2ãDIM readthumbs AS STRING * 1ãDIM extcode AS STRING * 1ããGET #1, , lengthvalãlength% = ASC(LEFT$(lengthval, 1)) * &H100 + ASC(RIGHT$(lengthval, 1))ããDIM idstring AS STRING * 5ãGET #1, , idstringãIF idstring = "JFIF" + CHR$(0) THENã IF app0type% <> 0 THEN EXIT SUBãELSEIF idstring = "JFXX" + CHR$(0) THENã IF app0type% <> 1 THEN EXIT SUBãã GET #1, , extcodeãã SELECT CASE ASC(extcode)ã CASE 10ã app0error% = 0ã PRINT "Ignoring thumbnail image coded using JPEG."ã SEEK #1, SEEK(1) + length% - 7ã EXIT SUBã CASE 11ã app0error% = 0ã PRINT "Ignoring thumbnail image coded using 1 byte/pixel."ã SEEK #1, SEEK(1) + length% - 7ã EXIT SUBã CASE 12ã app0error% = 0ã PRINT "Ignoring thumbnail image coded using 3 bytes/pixel."ã SEEK #1, SEEK(1) + length% - 7ã EXIT SUBã CASE ELSEã EXIT SUBã END SELECTãELSEã app0error% = 0ã PRINT "Ignoring unknown APP0 segment."ã SEEK #1, SEEK(1) + length% - 7ã EXIT SUBãEND IFããGET #1, , jpeg.versionããGET #1, , unitsãjpeg.units = ASC(units)ããGET #1, , densityãjpeg.xden = ASC(LEFT$(density, 1)) * &H100 + ASC(RIGHT$(density, 1))ãGET #1, , densityãjpeg.yden = ASC(LEFT$(density, 1)) * &H100 + ASC(RIGHT$(density, 1))ããGET #1, , readthumbsãjpeg.xthumb = ASC(readthumbs)ãGET #1, , readthumbsãjpeg.ythumb = ASC(readthumbs)ããIF jpeg.xthumb * jpeg.ythumb > 0 THEN PRINT "Ignoring 24-bit thumbnail image."ãSEEK #1, SEEK(1) + 3 * jpeg.xthumb * jpeg.ythumbããapp0error% = 0ããEND SUBããSUB ReadCOMããDIM lengthval AS STRING * 2ãDIM comdata AS STRING * 1ããGET #1, , lengthvalãlength% = (ASC(LEFT$(lengthval, 1)) * &H100 + ASC(RIGHT$(lengthval, 1)))ããPRINT "Commentary marker found. View marker data? (Y/N)"ãPRINTããDOã keypress$ = UCASE$(INKEY$)ã IF keypress$ = "N" THENã SEEK #1, SEEK(1) + length% - 2ã EXIT SUBã END IFãLOOP UNTIL keypress$ = "Y"ããFOR viewdata% = 1 TO length% - 2ã GET #1, , comdataã PRINT comdata;ãNEXT viewdata%ããPRINTãPRINTãPRINT "Press any key to continue..."ãDO: LOOP WHILE INKEY$ = ""ããEND SUBããSUB ReadDHT (dhterror%)ãSHARED jpeg AS JPEGTypeãSHARED huffval%(), huffsize%(), huffcode&()ããdhterror% = 5ããDIM lengthval AS STRING * 2ãDIM tcth AS STRING * 1ãDIM ncodes AS STRING * 1ãDIM incode AS STRING * 1ããGET #1, , lengthvalãlength% = ASC(LEFT$(lengthval, 1)) * &H100 + ASC(RIGHT$(lengthval, 1)) - 2ããDOã REDIM bits%(1 TO 16)ãã GET #1, , tcthã tableclass% = ASC(tcth) \ &H10ã tableid% = ASC(tcth) AND &HFãã vallength% = 0ã FOR getnumcodes% = 1 TO 16ã GET #1, , ncodesã bits%(getnumcodes%) = ASC(ncodes)ã vallength% = vallength% + ASC(ncodes)ã NEXT getnumcodes%ãã valofs% = 0ã FOR scancodes% = 1 TO 16ã FOR getcodes% = 1 TO bits%(scancodes%)ã GET #1, , incodeã huffval%(tableclass%, tableid%, valofs%) = ASC(incode)ã valofs% = valofs% + 1ã NEXT getcodes%ã NEXT scancodes%ãã k% = 0ã j% = 1ã FOR i% = 1 TO 16ã WHILE j% <= bits%(i%)ã huffsize%(tableclass%, tableid%, k%) = i%ã k% = k% + 1ã j% = j% + 1ã WENDã j% = 1ã NEXT i%ã huffsize%(tableclass%, tableid%, k%) = 0ãã k% = 0ã code& = 0ã si% = huffsize%(tableclass%, tableid%, 0)ã DOã DOã huffcode&(tableclass%, tableid%, k%) = code&ã code& = code& + 1ã k% = k% + 1ã LOOP WHILE huffsize%(tableclass%, tableid%, k%) = si%ãã IF huffsize%(tableclass%, tableid%, k%) = 0 THEN EXIT DOãã DOã code& = code& * 2ã si% = si% + 1ã LOOP UNTIL huffsize%(tableclass%, tableid%, k%) = si%ã LOOP WHILE huffsize%(tableclass%, tableid%, k%) = si%ãã length% = length% - 17 - vallength%ãLOOP UNTIL length% = 0ããdhterror% = 0ããEND SUBããSUB ReadDNL (dnlerror%)ããEND SUBããSUB ReadDQT (dqterror%)ãSHARED jpeg AS JPEGTypeãSHARED dqttable%()ããdqterror% = 3ããDIM lengthval AS STRING * 2ãDIM pt AS STRING * 1ãDIM dqtvalue AS STRING * 1ããGET #1, , lengthvalãlength% = ASC(LEFT$(lengthval, 1)) * &H100 + ASC(RIGHT$(lengthval, 1)) - 3ããDOã GET #1, , ptã precision% = ASC(pt) \ &H10ã tableid% = ASC(pt) AND &HFãã FOR readtable% = 0 TO 63ã GET #1, , dqtvalueã dqttable%(tableid%, readtable%) = ASC(dqtvalue)ã NEXT readtable%ãã length% = length% - 64ã jpeg.numdqts = jpeg.numdqts + 1ãLOOP UNTIL length% = 0ããdqterror% = 0ããEND SUBããSUB ReadDRIãSHARED jpeg AS JPEGTypeããDIM ri AS STRING * 2ããGET #1, , length%ããGET #1, , riãjpeg.ri = ASC(LEFT$(ri, 1)) * &H100 + ASC(RIGHT$(ri, 1))ããEND SUBããSUB ReadSOF0 (sof0error%)ãSHARED jpeg AS JPEGTypeãSHARED component() AS ComponentTypeããsof0error% = 4ããDIM lengthval AS STRING * 2ãDIM p AS STRING * 1ãDIM xy AS STRING * 2ãDIM nf AS STRING * 1ãDIM c AS STRING * 1ããGET #1, , lengthvalãlength% = ASC(LEFT$(lengthval, 1)) * &H100 + ASC(RIGHT$(lengthval, 1))ããGET #1, , pãjpeg.p = ASC(p)ããGET #1, , xyãjpeg.y = ASC(LEFT$(xy, 1)) * &H100 + ASC(RIGHT$(xy, 1))ãGET #1, , xyãjpeg.x = ASC(LEFT$(xy, 1)) * &H100 + ASC(RIGHT$(xy, 1))ããGET #1, , nfãjpeg.nf = ASC(nf)ããFOR loadcinfo% = 1 TO jpeg.nfã GET #1, , cã component(loadcinfo%).ci = ASC(c)ã GET #1, , cã component(loadcinfo%).h = ASC(c) \ &H10ã component(loadcinfo%).v = ASC(c) AND &HFã GET #1, , cã component(loadcinfo%).tqi = ASC(c)ãNEXT loadcinfo%ããsof0error% = 0ããEND SUBããSUB ReadSOS (soserror%, numcomponents%)ãSHARED decodeinfo() AS ScanTypeããsoserror% = 6ããDIM lengthval AS STRING * 2ãDIM nsvalue AS STRING * 1ãDIM cs AS STRING * 1ãDIM tdta AS STRING * 1ãDIM garbage AS STRING * 3ããGET #1, , lengthvalãlength% = ASC(LEFT$(lengthval, 1)) * &H100 + ASC(RIGHT$(lengthval, 1))ã ãGET #1, , nsvalueãnumcomponents% = ASC(nsvalue)ããFOR readfield1% = 1 TO numcomponents%ã GET #1, , csã decodeinfo(readfield1%).cs = ASC(cs)ã GET #1, , tdtaã decodeinfo(readfield1%).td = ASC(tdta) \ &H10ã decodeinfo(readfield1%).ta = ASC(tdta) AND &HFãNEXT readfield1%ããGET #1, , garbageããsoserror% = 0ããEND SUBããSUB YCbCr2RGB (mcuwidth%, mcuheight%)ããSHARED mcu%()ãSHARED truepal() AS RGBTypeããSTATIC maxpalindex%ããDIM rgbblock(mcuwidth% - 1, mcuheight% - 1) AS RGBTypeãã' Convert from YCbCr to truecolor RGB:ããFOR convy% = 0 TO mcuheight% - 1ã FOR convx% = 0 TO mcuwidth% - 1ã rgbblock(convx%, convy%).r = mcu%(1, convx%, convy%) + 1.402 * (mcu%(3, convx%, convy%) - 128)ã rgbblock(convx%, convy%).g = mcu%(1, convx%, convy%) - .34414 * (mcu%(2, convx%, convy%) - 128) - .71414 * (mcu%(3, convx%, convy%) - 128)ã rgbblock(convx%, convy%).b = mcu%(1, convx%, convy%) + 1.772 * (mcu%(2, convx%, convy%) - 128)ã NEXT convx%ãNEXT convy%ãã' Find the proper grayscale gradient for each pixel in the MCU:ããFOR findycol% = 0 TO mcuheight% - 1ã FOR findxcol% = 0 TO mcuwidth% - 1ã bestmatch% = 256ã matchindex% = 0ã FOR findbestmatch% = 0 TO 255ã reddiff% = ABS(rgbblock(findxcol%, findycol%).r \ 4 - truepal(findbestmatch%).r)ã greendiff% = ABS(rgbblock(findxcol%, findycol%).g \ 4 - truepal(findbestmatch%).g)ã bluediff% = ABS(rgbblock(findxcol%, findycol%).b \ 4 - truepal(findbestmatch%).b)ã match% = reddiff% + greendiff% + bluediff%ã IF match% < bestmatch% THENã matchindex% = findbestmatch%ã bestmatch% = match%ã END IFã NEXT findbestmatch%ã mcu%(1, findxcol%, findycol%) = matchindex%ã NEXT findxcol%ãNEXT findycol%ããEND SUBãKevin Everingham QB GRAPHICAL FONTS fortunecity.com/skyscraper/quan07-13-99 (01:33) QB, PDS 698 31894 FONT.BAS ' ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»ã' º º Ûã'LETTER º QuickBASIC G R A P H I C A L F O N T º Ûã'exampleº PROFESSIONAL QUALITY LETTERING º Ûã' º º Ûã' º QuickBASIC PRO QULITY LETTERING VER 2 º Ûã' º Abacus WebDesigns (C)1995-98. Kevin Everingham º Ûã' ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼ Ûã' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßã' Last Edited: 2-15-96ã' Author's NOTE:ã' I know this bit of source code is large but much ofã' it is example and explination. To use this program,ã' just take the call source you want from below, insertã' it into your program and add the DESIGN, TRANSLATE, andã' FONT sub that you want to call. If this is used inã' commercial or shareware programs please mention theã' author. Please do not change FONT data at all.ã'ãDEFINT A-Zã' $INCLUDE: 'QB.BI'ãDECLARE SUB background ()ãDECLARE SUB translate ()ãDECLARE SUB FONT1 ()ãDECLARE SUB FONT2 ()ãDECLARE SUB FONT3 (Bold%)ãDECLARE SUB FONT4 (Bold%)ãDECLARE SUB FONT5 ()ãDECLARE SUB FONT6 ()ãDECLARE SUB FONT7 ()ãDECLARE SUB FONT8 ()ãDECLARE SUB Design ()ãDECLARE SUB bLANK (COLR1%)ãCOMMON SHARED Prime$(), Prime$, size$ãCOMMON SHARED C1$, C2$, C3$ãCOMMON SHARED c4$, bgc, angle$ãCOMMON SHARED spacing$, word$ãCOMMON SHARED pft, pflãDIM SHARED Inregs AS RegType, Outregs AS RegType: C2 = 6ãDIM Prime$(122)ãDIM shape$(122)ãDIM A1(230)ãuser$ = COMMAND$ãwhere$ = "Print to Screen "ãSCREEN 12: CLSã'*************************************************************ã' below is an example of the CALL section you will need to addã' to your own program. This is all you need!ã'-------------------------------------------------------------ã CALL Design: word$ = "VGA Quality Lettering in QuickBASIC"ã spacing$ = "l0": size$ = "8": angle$ = "0": bgc = 0ã CALL translateã C1$ = "C 5": C2$ = "c 4": C3$ = "c 0": c4$ = "C15"ã pft = 24: pfl = 20: CALL FONT1ã'-------------------------------------------------------------ã' End example source code to put graphical text in your program.ã'*************************************************************ã word$ = "It looks nice but..."ã spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 8": C2$ = "c 0": C3$ = "c 0": c4$ = "c15"ã pft = 45: pfl = 390: CALL FONT5ãCOLOR 15: LOCATE 2, 67: PRINT "?"ãLOCATE 6, 1: PRINT " This will be too slow for my programs! Right?...."ãPRINT " It doesn't have to be,... if you first let all colors but one,"ãPRINT " equal 0 or (black) then draw the letters, then go to another"ãPRINT " sub to reset colors back to normal and flash!,..your letters "ãPRINT " will appear. While you are drawing the letters, use that one"ãPRINT " color that you didn't change to black, to display a message:"ãPRINT " (Loading....program), You've seen that before right?"ãPRINT " ----Look up the palette command to change colors.----": PRINTãPRINT " Try some of these in your own programs...Some of these letter"ãPRINT " designs are quite fast and some take longer to load."ãPRINT " You will only need the FONT sub you wish to use, the TRANSLATE sub, "ãPRINT " the DESIGN sub and your main call statements in your own program."ãPRINT : PRINT : PRINT "press any key to see all of these high quality letters"ãPRINT "or, for quicker viewing: (3) view heading text only (quickest)": PRINTãPRINT "press (1) to see only small fonts, (2) to see only large."ãuse$ = ""ãDO UNTIL use$ = "3"ã use$ = INKEY$ã IF use$ = "1" THEN EXIT DOã IF use$ = "2" THEN EXIT DOã IF use$ <> "" THEN EXIT DOãLOOPãuse$ = LTRIM$(use$): use$ = RTRIM$(use$)ãCLS : CALL Designã a = 7 'backgroundãfontpack:ã CALL bLANK(a)ã IF use$ = "1" THEN GOTO size4ã IF use$ = "2" THEN GOTO size8ã IF use$ = "3" THEN GOTO quickieãsize4:ã word$ = "Standard Print "ã spacing$ = "l1": size$ = " 4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C0": C2$ = "c 6": C3$ = "c 4": c4$ = "c 6"ã pft = 80: pfl = 50: CALL FONT3(0)ã word$ = "Standard Print (Bold)"ã spacing$ = "l1": size$ = " 4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C4": C2$ = "c 6": C3$ = "c 4": c4$ = "c 6"ã pft = 95: pfl = 50: CALL FONT3(1)ã word$ = "Standard Print (xtra bold)"ã spacing$ = "l1": size$ = " 4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C0": C2$ = "c 6": C3$ = "c 4": c4$ = "c 6"ã pft = 110: pfl = 50: CALL FONT3(2)ã word$ = "Fancy Small print Font "ã spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 0": C2$ = "c 9": C3$ = "c 1": c4$ = "c 0"ã pft = 125: pfl = 50: CALL FONT4(0)ã word$ = "Fancy Small print Font (Bold) "ã spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 0": C2$ = "c 9": C3$ = "c 1": c4$ = "c 0"ã pft = 140: pfl = 50: CALL FONT4(1)ã word$ = "Outline Font"ã spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 0": C2$ = "c 7": C3$ = "c 1": c4$ = "c 7"ã pft = 160: pfl = 50: CALL FONT5ã word$ = "Front Stamped Font"ã spacing$ = "r2": size$ = "4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 0": C2$ = "c 7": C3$ = "c 3": c4$ = "c 0"ã pft = 175: pfl = 50: CALL FONT5ã word$ = "Reverse Stamp Font"ã spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 8": C2$ = "c 0": C3$ = "c 0": c4$ = "c15"ã pft = 190: pfl = 50: CALL FONT5ã word$ = "Light Color Outline-Stamp Font"ã spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 0": C2$ = "c 5": C3$ = "c 0": c4$ = "c 7"ã pft = 205: pfl = 50: CALL FONT5ã word$ = "Full Colored Outline-Stamp Font"ã spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 0": C2$ = "c 3": C3$ = "c 0": c4$ = "c 9"ã pft = 220: pfl = 50: CALL FONT5ã word$ = "Bold Statement Font"ã spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 0": C2$ = "c 4": C3$ = "c12": c4$ = "c 5"ã pft = 235: pfl = 50: CALL FONT6ã word$ = "(Double) Bold Statement Font"ã spacing$ = "r2": size$ = "4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 0": C2$ = "c14": C3$ = "c 9": c4$ = "c10"ã pft = 250: pfl = 50: CALL FONT6ã pft = 251: pfl = 51: CALL FONT6ã word$ = "Upright Shadow Font"ã spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 0": C2$ = "c 2": C3$ = "c14": c4$ = "c 2"ã pft = 270: pfl = 50: CALL FONT7ã word$ = "Heavy Base Font"ã spacing$ = "r3": size$ = "4": angle$ = "0": bgc = 4ã CALL translateã C1$ = "C 0": C2$ = "c 1": C3$ = "c 1": c4$ = "c 7"ã pft = 285: pfl = 50: CALL FONT7ã word$ = "Marquee Feature Font"ã spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 4ã CALL translateã C1$ = "C 0": C2$ = "c 5": C3$ = "c 4": c4$ = "c 4"ã pft = 300: pfl = 50: CALL FONT8ã word$ = "Fat 3-D Font"ã spacing$ = "r3": size$ = "4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 0": C2$ = "c 1": C3$ = "c 0": c4$ = "c15"ã pft = 317: pfl = 50: CALL FONT2ã word$ = "Glass Tube Font"ã spacing$ = "r4": size$ = "4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 7": C2$ = "c 8": C3$ = "c 0": c4$ = "c15"ã pft = 330: pfl = 50: CALL FONT1ã word$ = "Colored Glass Font"ã spacing$ = "r2": size$ = "4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C10": C2$ = "c 0": C3$ = "c 0": c4$ = "c15"ã pft = 345: pfl = 50: CALL FONT1ã word$ = "Plus Many other combinations!... "ã spacing$ = "l1": size$ = " 4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C1": C2$ = "c 6": C3$ = "c 4": c4$ = "c 6"ã pft = 365: pfl = 50: CALL FONT3(0)ãsize8:ã IF use$ = "1" THEN GOTO skippedã word$ = "]]]]]]]]]]]]]]]]]]]"ã spacing$ = "r1": size$ = "4": angle$ = "1": bgc = 8ã CALL translateã C1$ = "C 0": C2$ = "c 0": C3$ = "C0"ã pft = 370: pfl = 330: CALL FONT3(0)ã word$ = "Fancy Print ^"ã spacing$ = "r1": size$ = "8": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 7": C2$ = "c 0": C3$ = "c 8"ã pft = 95: pfl = 350: CALL FONT4(1)ã word$ = "Outline Type Font"ã spacing$ = "l1": size$ = "8": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 2": C2$ = "c 3": C3$ = "c 0": c4$ = "C10"ã pft = 125: pfl = 350: CALL FONT5ã word$ = "Stamped Font"ã spacing$ = "l1": size$ = "8": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 8": C2$ = "c 0": C3$ = "c 0": c4$ = "C15"ã pft = 150: pfl = 350: CALL FONT5ã word$ = "Glass Tube Font"ã spacing$ = "l1": size$ = "8": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 7": C2$ = "c 0": C3$ = "c 0": c4$ = "C15"ã pft = 175: pfl = 350: CALL FONT1ã word$ = "Plastic Tube Font"ã spacing$ = "l1": size$ = "8": angle$ = "0": bgc = 7ã CALL translateã C1$ = "C 5": C2$ = "c 4": C3$ = "c 0": c4$ = "C15"ã pft = 200: pfl = 350: CALL FONT1ã word$ = "--Neon-Sign-Font--"ã spacing$ = "l1": size$ = "8": angle$ = "0": bgc = 7ã CALL translateã C1$ = "C 0": C2$ = "c 9": C3$ = "c 3": c4$ = "C 0"ã pft = 225: pfl = 350: CALL FONT1ã word$ = "Bold Statement"ã spacing$ = "l1": size$ = "8": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 0": C2$ = "c 4": C3$ = "c12": c4$ = "C 5"ã pft = 250: pfl = 350: CALL FONT6ã word$ = "Marquee Feature"ã spacing$ = "l1": size$ = "8": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 0": C2$ = "c 2": C3$ = "c 9": c4$ = "C10"ã pft = 275: pfl = 350: CALL FONT8ã word$ = "Standard Heavy Bold"ã spacing$ = "l1": size$ = "8": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 0": C2$ = "c 1": C3$ = "c 1": c4$ = "C 5"ã pft = 300: pfl = 350: CALL FONT3(2)ã word$ = "Wax Letter Font "ã spacing$ = "r0": size$ = "8": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 8": C2$ = "c15": C3$ = "c 0": c4$ = "c14"ã pft = 330: pfl = 350: CALL FONT5 '0)ã word$ = "<...>"ã spacing$ = "r2": size$ = "8": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C 8": C2$ = "c15": C3$ = "c 0": c4$ = "c 9"ã pft = 365: pfl = 400: CALL FONT2 '0)ãskipped:ã word$ = "Plus Graphics"ã spacing$ = "l1": size$ = " 4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C0": C2$ = "c 6": C3$ = "c 4": c4$ = "c 6"ã pft = 390: pfl = 350: CALL FONT3(0)ãquickie:ã word$ = " Press"ã spacing$ = "l1": size$ = " 4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C0": C2$ = "c 6": C3$ = "c 4": c4$ = "c 6"ã pft = 380: pfl = 510: CALL FONT3(0)ã word$ = "any key to exit"ã spacing$ = "l1": size$ = " 4": angle$ = "0": bgc = 8ã CALL translateã C1$ = "C0": C2$ = "c 6": C3$ = "c 4": c4$ = "c 6"ã pft = 395: pfl = 515: CALL FONT3(0)ã word$ = "(c)1995-98 Kevin Everingham"ã spacing$ = "r3": size$ = "8": angle$ = "0": bgc = 0ã CALL translateã C1$ = "C15": C2$ = "c 7": C3$ = "c 0": c4$ = "c 0"ã pft = 440: pfl = 48: CALL FONT1 '0)ã word$ = "Some Sample Fonts you could use..."ã spacing$ = "r1"ã size$ = "8"ã angle$ = "0"ã bgc = 8ã CALL translateã C1$ = "C 6": C2$ = "c 0": C3$ = "c 0": c4$ = "c15"ã pft = 20: pfl = 32: CALL FONT1ãender:ãENDããSUB backgroundã COLOR 0: SCREEN 12, 1: CLSã LINE (1, 45)-(640, 420), 4, BFã LINE (4, 49)-(636, 416), 6, B: LINE (3, 48)-(637, 417), 0, B: LINE (5, 50)-(635, 415), 0, Bã word$ = "Michigan Prime Software Presents:"ã spacing$ = "r1": size$ = "8": dot$ = "Y": bgc = 1ã CALL translateã C1$ = "C 6": C2$ = "c 0": C3$ = "c 0": c4$ = "c14"ã pft = 25: pfl = 33: CALL FONT1ã pft = 25: pfl = 31: CALL FONT1ã pft = 24: pfl = 33: CALL FONT1ã word$ = "QuickBasic Tools"ã spacing$ = "r2"ã size$ = "8"ã dot$ = "Y"ã bgc = 0ã CALL translateã C1$ = "C 6": C2$ = "c 4": C3$ = "c 0": c4$ = "c15" ' glass look text!ã pft = 372: pfl = 342: CALL FONT1ã pft = 372: pfl = 340: CALL FONT1ãEND SUBããSUB bLANK (COLR1%)ã count% = count% + 1ã COLOR 0: SCREEN 12: CLSã LINE (1, 45)-(640, 420), COLR1%, BFã LINE (4, 49)-(636, 416), 6, B: LINE (3, 48)-(637, 417), 0, B: LINE (5, 50)-(635, 415), 0, BããEND SUBããSUB Designã' (c)1995/98 Abacus WebDesigns (abacus@pathwaynet.com)ã' Contains the following Keyboard designs.ã' 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZã' (space) * - . : ! ( ) " =ã'ã' Graphic shape keys < = left arrow [ = a checkerboard/waffleã' > = right arrow ] = empty boxã' ^ = a triangleã'ãPrime$(32) = "BR4"ãPrime$(33) = "BR1BD1U1BU2U5BD7BR3"ãPrime$(34) = "BR0BU7D2BR2U2BD7BR3"ãPrime$(39) = "BR2BU7D1G1BD5BR4"ãPrime$(40) = "BR1BD1BU2U4E2G2D4F2BU1BR4"ãPrime$(41) = "BR2BD1BU2U4H2F2D4G2BU1BR5"ãPrime$(42) = "BR2BU2U6D3L2R4BL4BD2E4BL4F4BD3BR4"ãPrime$(45) = "BR1BU3R3L3BD3BR5"ãPrime$(46) = "BD1BR1L1BU1BR4"ãPrime$(48) = "BD1BU1U6E1R2F1D6G1L2H1BR6"ãPrime$(49) = "BD1BR2U7BL1E1D1BD6BR3"ãPrime$(50) = "BR1BU6E1R2F1D2G4D1R4BU1BR3"ãPrime$(51) = "BU6E1R2F1D2G1L2R2F1D2G1L2H1BR7"ãPrime$(52) = "BU3E4D8U4L4R5BD3BR3"ãPrime$(53) = "BR1BU3U4R4L4D4E1R2F1D3G1L2H1BR7"ãPrime$(54) = "BR1BD1BU4U3E1R2F1H1L2G1D6F1R2E1U3H1L2G1BD3BR6"ãPrime$(55) = "BR1BU7R4D3G4D1BU1BR7"ãPrime$(56) = "BR1BU6E1R2F1D2G1L2R2F1D2G1L2H1U2E1H1U2BD6BR7"ãPrime$(57) = "BR1BU4U2E1R2F1D6G1L2H1BU4F1R3BD3BR3"ãPrime$(58) = "BR1U1BU2U1BD4BR3"ãPrime$(60) = "E7D5R10D4L10D5H7BR20" '< graphicãPrime$(61) = "BU3R4BD2L4BR7BD1"ãPrime$(62) = "U2R10U5F7G7U5L10U3BR18" '> graphicãPrime$(65) = "BD1U7E1R3F1D3L5R5D4BR4BU1"ãPrime$(66) = "BD1U8R4F1D2G1L4R4F1D2G1L4BU1BR9"ãPrime$(67) = "BD1BU1U6E1R3F1BD6G1L3H1F1R3BR4BU1"ãPrime$(68) = "BD1U8R4F1D6G1L4BR9BU1"ãPrime$(69) = "BD1U8R4L4D4R3L3D4R4BU1BR4"ãPrime$(70) = "BD1U8R5L5D4R4L4D4BR8BU1"ãPrime$(71) = "BD1BU1U6E1R3F1BD6G1L3H1F1R3E1U3L2R2D3BR4"ãPrime$(72) = "BD1U8D4R4U4D8BR4BU1"ãPrime$(73) = "BD1BR3U8L1R2L1D8L1R2BR4BU1"ãPrime$(74) = "BD1BU1F1R2E1U7L1R2L1D7BR5"ãPrime$(75) = "BD1BU8D8U4R1E4G4F4BR4BR1"ãPrime$(76) = "BD1BU8D8R4BU1BR4"ãPrime$(77) = "BD1U7E1R2F1D7U7E1R2F1D7BU1BR4"ãPrime$(78) = "BD1U8F7D1U8D8BR4BU1"ãPrime$(79) = "BD1BU1U6E1R3F1BD6G1L3H1BR5U6D6BR4"ãPrime$(80) = "BD1U8R4F1D2G1L4D4BR9BU1"ãPrime$(81) = "BD1BU1U6E1R3F1BD6G1L3H1BR5U6BL3BD5F3BG3BR7BU5"ãPrime$(82) = "BD1U8R4F1D2G1L4R1F4BR4BU1"ãPrime$(83) = "BD1BU5U2E1R3F1BD2BL5F1R3F1D2G1L3H1BR9"ãPrime$(84) = "BR3BD1BU8L4R6L3D8BR6BU1"ãPrime$(85) = "BD1BU1U7D7F1R3E1U7D7BR4"ãPrime$(86) = "BD1BU8D5F2D1U1E2U5D5BR5BD2"ãPrime$(87) = "BD1BU1U7D7F1R2E1U7D7F1R2E1U7D7BD1BR4BU1"ãPrime$(88) = "BD1BU8D1F3E3U1D1G6D1U1E3F3D1BU1BR5"ãPrime$(89) = "BL1BU5U2D2F3E3U2D2G3D3BU1BR7"ãPrime$(90) = "BU7R5D2G5D1R5BR4BU1"ãPrime$(91) = "BU7R2BD8U8R2BD8U8R2BD8U8R2BD8U8R2BD8U8R2D8L12U2BR12L12U2BR12L12U2BR12L12U2BR12L12BR14BD7" '[ãPrime$(93) = "BU5R10D6L10U6BD5BR14" '] graphicãPrime$(94) = "E6F6L12BR15" '^ graphicãPrime$(97) = "U2E1R3U1H1L2G1E1R2F1D4G1L2H1F1BR2E1U2D3BR4BU1"ãPrime$(98) = "BD1U8D8R3E1U4H1L2G1D4BR8"ãPrime$(99) = "BR0U4E1R2F1BD4G1L2H1F1R2E1BR4"ãPrime$(100) = "U4E1R2F1H1L2G1D4F1R2E1U7D7D1BU1BR4"ãPrime$(101) = "U4E1R2F1D2L4D2F1R2E1BR4"ãPrime$(102) = "BR1BD1U7E1R2F1H1L2G1D3L1R3BD3BR5"ãPrime$(103) = "U4E1R2F1D4G1L2H1BD3F1R2E1U3BR4"ãPrime$(104) = "BU7D8U5E1R2F1D5BU1BR4"ãPrime$(105) = "BR0BD1U6BU1U1BD7BR4" ' "BR3BD1U6BU2BD7BR4"ãPrime$(106) = "BR1BD1U6BU2BD7D3G1L2BU4BR8"ãPrime$(107) = "BD1BU8D8U3E3G3F3BU1BR3"ãPrime$(108) = "BR1BD1U8L1R1D8L1R2BR4BU1"ãPrime$(109) = "BD1U6D1E1R1F1D5U5E1R1F1D5BU1BR4"ãPrime$(110) = "BD1U6D1E1R2F1D5U4BD3BR4"ãPrime$(111) = "U4E1R2F1D4G1L2H1BR8"ãPrime$(112) = "U4E1R2F1D4G1L2H1D4U4BR8"ãPrime$(113) = "U4E1R2F1D4G1L2H1BR4D4L1R2L1U4BR5"ãPrime$(114) = "BD1U6D1E1R2F1H1L2G1U1D6BU1BR7"ãPrime$(115) = "BU3U1E1R2F1H1L2G1D1F1R2F1D1G1L2H1BR8"ãPrime$(116) = "BR1BU7D2L2R4L2D5F1R1E1BR4"ãPrime$(117) = "U5D5F1R2E1U5D5BR4"ãPrime$(118) = "BD1BU6D3F2D1U1E2U3D3BD2BR4"ãPrime$(119) = "BD1BU6D5F1R1E1U4D4F1R1E1U5D5BR4"ãPrime$(120) = "BD1BU6D1F2E2U1D1G4D1U1E2F2D1BU1BR4"ãPrime$(121) = "BU5D5F1R2E1U5D8G1L2H1BU3BR8"ãPrime$(122) = "BU5R4D1G4D1R4BU1BR4"ãEND SUBããSUB FONT1ã' Glass Tube Font/Neon Signã' creates letters that appear to be made up of shiney (glassey)ã' colored tubes.ã' in the input line: C1$ = "C6": C2$ = "C0": C3$ = "C0": C4$ = "C15"ã' C1$ is the primary letter color. C2$ and C3$ are outline colorsã' C4$ would allways be used as "C15" since it is a light highlight spot.ã'ã' For a 3-D glass-look, mix C1$ as a light variation of the primaryã' screen color and C2$ as the screen color. C3$ is 0, C4$ is 15. Theã' C2$ AND C1$ value can be set the same to produce a beautiful font.ã' following line would be used on a red screen:(looks great on any screen)ã' C1$ = "C4": C2$ = "C4": C3$ = "C0": C4$ = "C15" "C15" THEN c4$ = "C15"ã PSET (pfl + 2, pft + 5), bgc: DRAW C3$ + Prime$ã PSET (pfl + 0, pft + 5), bgc: DRAW C3$ + Prime$ã PSET (pfl + 1, pft + 5), bgc: DRAW C3$ + Prime$ã PSET (pfl + 0, pft + 4), bgc: DRAW C3$ + Prime$ã PSET (pfl + 1, pft + 2), bgc: DRAW C2$ + Prime$ã PSET (pfl + 2, pft + 4), bgc: DRAW C1$ + Prime$ã PSET (pfl + 3, pft + 3), bgc: DRAW c4$ + Prime$ã PSET (pfl + 3, pft + 2), bgc: DRAW C2$ + Prime$ã PSET (pfl + 4, pft + 4), bgc: DRAW C2$ + Prime$ã PSET (pfl + 5, pft + 2), bgc: DRAW C3$ + Prime$ã PSET (pfl + 5, pft + 3), bgc: DRAW C2$ + Prime$ã PSET (pfl + 4, pft + 3), bgc: DRAW C1$ + Prime$ãEND SUBããSUB FONT2ã' Fat 3-D Fontã'in the input line: C1$ = "C7": C2$ = "C8": C3$ = "C0": c4$ = "C15"ã'C1$ is the primary letter color. C2$ is a shadow of the main color.ã'C3$ is an outline color "C0" and C4$ is a shade of the main color.ã' other possible colors you could use: _C1$_____C2$_____C4$_ã' mint 2 10 9ã' green 2 8 10ã' green glow 2 14 10ã' try these and more! pastel blue 3 1 9ã' pastel blue 9 1 3ã' pastel pink 12 6 4ã' pink 4 6 5ã' pale red 6 4 5ã'This font looks best when used as a white letter. (use input line above)ã'Any font of this complexity is effected by the background screen color.ã'Try this font on a black, white, red or blue screen.ã'Smallest recommended size (8)ã' (c)1998 Abacus WebDesigns (abacus@pathwaynet.com)ã'ã PSET (pfl + 0, pft + 5), bgc: DRAW c4$ + Prime$ã PSET (pfl + 0, pft + 3), bgc: DRAW c4$ + Prime$ã PSET (pfl + 2, pft + 3), bgc: DRAW C1$ + Prime$ã PSET (pfl + 1, pft + 2), bgc: DRAW C1$ + Prime$ã PSET (pfl + 2, pft + 4), bgc: DRAW c4$ + Prime$ã PSET (pfl + 3, pft + 3), bgc: DRAW C3$ + Prime$ã PSET (pfl + 3, pft + 2), bgc: DRAW C1$ + Prime$ã PSET (pfl + 4, pft + 4), bgc: DRAW C1$ + Prime$ã PSET (pfl + 5, pft + 2), bgc: DRAW C1$ + Prime$ã PSET (pfl + 5, pft + 3), bgc: DRAW C2$ + Prime$ã PSET (pfl + 4, pft + 3), bgc: DRAW C1$ + Prime$ãEND SUBããSUB FONT3 (Bold%)ã' Standard print Font.ã' bold% = 0, 1 or 2ã' 0 = Normal text 1 = Bold 2 = Xtra-Heavy Boldã' in the feed line: c1$ = "C0": C2$ = "C4": C3$ = "C5": C4$ = "C15"ã' for this font, the only one that is used is C1$. That will be theã' color of this basic small font. ~~~ã' Smallest recommended size (4) with increments of 4. 4,8,12,16,20 +ã' (c)1998 Abacus WebDesigns (abacus@pathwaynet.com)ã ã PSET (pfl + 0, pft + 5), bgc: DRAW C1$ + Prime$ãIF Bold% = 1 THEN PSET (pfl + 1, pft + 5), bgc: DRAW C1$ + Prime$ãIF Bold% = 2 THEN PSET (pfl + 1, pft + 5), bgc: DRAW C1$ + Prime$ãIF Bold% = 2 THEN PSET (pfl + 2, pft + 5), bgc: DRAW C1$ + Prime$ãIF Bold% = 3 THEN PSET (pfl + 1, pft + 6), bgc: DRAW C1$ + Prime$ãEND SUBããSUB FONT4 (Bold%)ã' Fancy Small print Font.ã' bold% = 0 or 1ã' 0 = Normal text 1 = Bold ã' in the feed line: C1$ = "C0": C2$ = "C4": C3$ = "C5": C4$ = "C15"ã' C1$,C2$ and C3$ are used to layer colors. (If Bold% = 1) If thisã' font is used without Bold on (bold% = 0) then only C1$ and C2$ areã' used as the mixing colors.ã' Smallest recommended size (4) with increments of 4. 4,8,12,16,20 +ã' (c)1998 Abacus WebDesigns (abacus@pathwaynet.com)ã' ã PSET (pfl + 0, pft + 5), bgc: DRAW C1$ + Prime$ãIF Bold% = 0 THEN PSET (pfl + 1, pft + 6), bgc: DRAW C2$ + Prime$ãIF Bold% = 1 THEN PSET (pfl + 0, pft + 6), bgc: DRAW C3$ + Prime$ãIF Bold% = 1 THEN PSET (pfl + 1, pft + 6), bgc: DRAW C1$ + Prime$ãIF Bold% = 1 THEN PSET (pfl + 1, pft + 7), bgc: DRAW C2$ + Prime$ãEND SUBããSUB FONT5ã' Outlined Font/Stamped Font/Wax Font ã' in the feed line: C1$ = "C0": C2$ = "C4": C3$ = "C5": C4$ = "C15"ã' C1$,C2$ C3$, and C4$ are all used. C1$ is the outline color. ã' C2$ is a highlight color. C3$ is a shadow color and C4$ is the ã' primary color of the letter.ã' For the Stamped Font look, use C1$ as a background shade color,ã' C2$ and C3$ are (0) and used to give a 3-D outline/shadow forã' the main letter. C3$ is the main stamp color. This color shouldã' be a lighter shade of the screen's color. ã' Examples: primary screen color / lt.shade / Shadowã' __|________(C4$)___(C1$)ã' 4 (red) 12 6ã' use these or try others... 1 (blue) 3 9ã' 7 (white) 15 8ã' 8 (grey) 7 0ã' ÚÄÄÄ 2 (green) 10 3ã' orÄÄ 2 14 10ã' The following line would be used with a white screen.ã' C1$ = "C8": C2$ = "C0": C3$ = "C0": C4$ = "C15"ã' This font is designed for use as size 4,8,12 + increments of 4.ã' For a Wax letter look, try the following input line at size 8...ã' C1$ = "C 8": C2$ = "c15": C3$ = "c 0": c4$ = "c 9"ã'ã' (c)1998 Abacus WebDesigns (abacus@pathwaynet.com)ã ã PSET (pfl + 0, pft + 0), bgc: DRAW C1$ + Prime$ã PSET (pfl + 1, pft + 0), bgc: DRAW C1$ + Prime$ã PSET (pfl + 2, pft + 0), bgc: DRAW C1$ + Prime$ã PSET (pfl + 3, pft + 0), bgc: DRAW C1$ + Prime$ã PSET (pfl + 0, pft + 0), bgc: DRAW C1$ + Prime$ã PSET (pfl + 0, pft + 1), bgc: DRAW C1$ + Prime$ã PSET (pfl + 0, pft + 2), bgc: DRAW C1$ + Prime$ã PSET (pfl + 0, pft + 3), bgc: DRAW C1$ + Prime$ã PSET (pfl + 1, pft + 1), bgc: DRAW C2$ + Prime$ã PSET (pfl + 1, pft + 2), bgc: DRAW C3$ + Prime$ã PSET (pfl + 2, pft + 1), bgc: DRAW c4$ + Prime$ãEND SUBããSUB FONT6ã' Bold Statement Fontã'This font creates a multi-colored letter outlined with a bold black line.ã'A metallic foil colored letter is producedã'In the input line: C1$ = "C0": C2$ = "C2": C3$ = "C0": C4$ = "C9"ã'C1$ will equal "C0" every time. This is an outline of black.ã'C2$ is the main letter color C3$ will blend with C4$ ã'C4$ is the light from top of screen (blended with similar/same color C3$)ãIF C1$ <> "C0" THEN C1$ = "C0"'Try these examples of multi-colored letters:ã' ____C2$_____C3$_____C4$____ã' 5 1 4 = plumã' 14 2 10 = lime For use on colored screens,ã' 4 12 5 = purple foil letters are thinner on aã' 5 6 9 = neon light black screen.ã' 2 3 9 = tealã'The blending done with this font will create new colors. Standard colorsã' can only be used if you make C2,C3 and C4$ the same color.ã' (c)1998 Abacus WebDesigns (abacus@pathwaynet.com)ã PSET (pfl + 1, pft + 0), bgc: DRAW C1$ + Prime$ã PSET (pfl + 2, pft + 0), bgc: DRAW C1$ + Prime$ã PSET (pfl + 3, pft + 0), bgc: DRAW C1$ + Prime$ã PSET (pfl + 4, pft + 0), bgc: DRAW C1$ + Prime$ã PSET (pfl + 5, pft + 0), bgc: DRAW C1$ + Prime$ã PSET (pfl + 0, pft + 1), bgc: DRAW C1$ + Prime$ã PSET (pfl + 0, pft + 2), bgc: DRAW C1$ + Prime$ã PSET (pfl + 0, pft + 3), bgc: DRAW C1$ + Prime$ã PSET (pfl + 0, pft + 4), bgc: DRAW C1$ + Prime$ã PSET (pfl + 0, pft + 5), bgc: DRAW C1$ + Prime$ã PSET (pfl + 1, pft + 5), bgc: DRAW C1$ + Prime$ã PSET (pfl + 2, pft + 5), bgc: DRAW C1$ + Prime$ã PSET (pfl + 3, pft + 5), bgc: DRAW C1$ + Prime$ã PSET (pfl + 4, pft + 5), bgc: DRAW C1$ + Prime$ã PSET (pfl + 5, pft + 5), bgc: DRAW C1$ + Prime$ã PSET (pfl + 5, pft + 4), bgc: DRAW C1$ + Prime$ã PSET (pfl + 5, pft + 3), bgc: DRAW C1$ + Prime$ã PSET (pfl + 5, pft + 2), bgc: DRAW C1$ + Prime$ã PSET (pfl + 3, pft + 3), bgc: DRAW c4$ + Prime$ã PSET (pfl + 3, pft + 2), bgc: DRAW c4$ + Prime$ã PSET (pfl + 2, pft + 2), bgc: DRAW C3$ + Prime$ã PSET (pfl + 2, pft + 3), bgc: DRAW C2$ + Prime$ãEND SUBããSUB FONT7ã' Heavy Base Font / upright shadowã' This font is designed for use as size "4" or "8" only (small font)ã' It looks best on colored screens and using dark colors. For bestã' results try the following line. C1$ is always equal to "C0".ã' C1$ = "C 0": C2$ = "C1": C3$ = "C6": C4$ = "C9" SIZE$ (8 or 4)ã' For a nice seperated effect, make C4$ equal to the screen color.ã' (c)1998 Abacus WebDesigns (abacus@pathwaynet.com)ã'ãIF C1$ <> "C0" THEN C1$ = "C0"ãIF size$ = "4" THEN PSET (pfl + 0, pft + 3), bgc: DRAW C1$ + Prime$ãIF size$ = "4" THEN PSET (pfl + 1, pft + 3), bgc: DRAW C1$ + Prime$ãIF size$ = "4" THEN PSET (pfl + 2, pft + 3), bgc: DRAW C1$ + Prime$ãIF size$ = "4" THEN PSET (pfl + 3, pft + 3), bgc: DRAW C1$ + Prime$ãIF size$ = "4" THEN PSET (pfl + 4, pft + 3), bgc: DRAW C1$ + Prime$ãIF size$ = "4" THEN PSET (pfl + 0, pft + 4), bgc: DRAW C1$ + Prime$ãIF size$ = "4" THEN PSET (pfl + 1, pft + 4), bgc: DRAW C1$ + Prime$ãIF size$ = "4" THEN PSET (pfl + 2, pft + 4), bgc: DRAW C1$ + Prime$ãIF size$ = "4" THEN PSET (pfl + 3, pft + 4), bgc: DRAW C1$ + Prime$ãIF size$ = "4" THEN PSET (pfl + 4, pft + 4), bgc: DRAW C1$ + Prime$ã PSET (pfl + 0, pft + 5), bgc: DRAW C1$ + Prime$ã PSET (pfl + 1, pft + 5), bgc: DRAW C1$ + Prime$ã PSET (pfl + 2, pft + 5), bgc: DRAW C1$ + Prime$ã PSET (pfl + 3, pft + 5), bgc: DRAW C1$ + Prime$ã PSET (pfl + 4, pft + 5), bgc: DRAW C1$ + Prime$ãIF size$ = "8" THEN PSET (pfl + 0, pft + 6), bgc: DRAW C1$ + Prime$ãIF size$ = "8" THEN PSET (pfl + 1, pft + 6), bgc: DRAW C1$ + Prime$ãIF size$ = "8" THEN PSET (pfl + 2, pft + 6), bgc: DRAW C1$ + Prime$ãIF size$ = "8" THEN PSET (pfl + 3, pft + 6), bgc: DRAW C1$ + Prime$ãIF size$ = "8" THEN PSET (pfl + 4, pft + 6), bgc: DRAW C1$ + Prime$ãIF size$ = "8" THEN PSET (pfl + 2, pft + 7), bgc: DRAW C1$ + Prime$ãIF size$ = "8" THEN PSET (pfl + 3, pft + 7), bgc: DRAW C1$ + Prime$ãIF size$ = "8" THEN PSET (pfl + 4, pft + 7), bgc: DRAW C1$ + Prime$ãIF size$ = "8" THEN PSET (pfl + 5, pft + 7), bgc: DRAW C1$ + Prime$ãIF size$ = "8" THEN PSET (pfl + 6, pft + 7), bgc: DRAW C1$ + Prime$ãIF size$ = "8" THEN PSET (pfl + 7, pft + 8), bgc: DRAW C1$ + Prime$ãIF size$ = "8" THEN PSET (pfl + 8, pft + 8), bgc: DRAW C1$ + Prime$ãIF size$ = "8" THEN PSET (pfl + 9, pft + 8), bgc: DRAW C1$ + Prime$ã PSET (pfl + 0, pft + 0), bgc: DRAW C2$ + Prime$ã PSET (pfl + 0, pft + 1), bgc: DRAW C3$ + Prime$ã PSET (pfl + 1, pft + 2), bgc: DRAW c4$ + Prime$ãIF size$ = "8" THEN PSET (pfl + 1, pft + 3), bgc: DRAW c4$ + Prime$ãIF size$ = "8" THEN PSET (pfl + 2, pft + 4), bgc: DRAW C3$ + Prime$ãEND SUBããSUB FONT8ã' Marquee Feature Fontã' In this font, C1$ (background shadow) must equal "C8" or "C0".ã' A simple blend of 3 colors makes up these letters. C2,C3 and C4$ã' can be the same colors or colors that blend well together. For anã' example, try the following input line:ã' C1$ = "C0": C2$ = "C5": C3$ = "C6": C4$ = "C9"ã' + try C4$ as "C4" or "C5"ã' This font will work from size 4,8,12 + (increments of 4) althoughã' size (4) is very dark. For best results try sizes 8+. The Marqueeã' Feature Font looks great on colored screens. It is not for use onã' black screens. (loses design structure) ~~~ã' (c)1998 Abacus WebDesigns (abacus@pathwaynet.com)ãã IF C1$ <> "C0" AND C1$ <> "C8" THEN C1$ = "C0"ã PSET (pfl + 0, pft + 0), bgc: DRAW c4$ + Prime$ã PSET (pfl + 1, pft + 0), bgc: DRAW C1$ + Prime$ã PSET (pfl + 2, pft + 0), bgc: DRAW C1$ + Prime$ã PSET (pfl + 3, pft + 0), bgc: DRAW C1$ + Prime$ã PSET (pfl + 4, pft + 0), bgc: DRAW C1$ + Prime$ã PSET (pfl + 1, pft + 1), bgc: DRAW C1$ + Prime$ã PSET (pfl + 5, pft + 1), bgc: DRAW C1$ + Prime$ã PSET (pfl + 2, pft + 2), bgc: DRAW C1$ + Prime$ã PSET (pfl + 6, pft + 2), bgc: DRAW C1$ + Prime$ã PSET (pfl + 3, pft + 3), bgc: DRAW C1$ + Prime$ã PSET (pfl + 7, pft + 3), bgc: DRAW C1$ + Prime$ã PSET (pfl + 4, pft + 4), bgc: DRAW C1$ + Prime$ã PSET (pfl + 8, pft + 4), bgc: DRAW C1$ + Prime$ã PSET (pfl + 5, pft + 5), bgc: DRAW C1$ + Prime$ã PSET (pfl + 9, pft + 5), bgc: DRAW C1$ + Prime$ã PSET (pfl + 9, pft + 5), bgc: DRAW C1$ + Prime$ã PSET (pfl + 10, pft + 4), bgc: DRAW C1$ + Prime$ã PSET (pfl + 6, pft + 6), bgc: DRAW C2$ + Prime$ã PSET (pfl + 7, pft + 6), bgc: DRAW C3$ + Prime$ã PSET (pfl + 8, pft + 6), bgc: DRAW c4$ + Prime$ãEND SUBããSUB translateã ' This translates user input in the following manner:ã 'ã ' "B" Added to the spacing$ below moves the plot point without drawing.ã ' "S" in size$ is the SCALE factor. This number is divided by four toã ' derive the scale factor (Basic interpreter does this) That scaleã ' factor is then multiplied by the distances given in the directionalã ' draw command code. INPUT may range 1-255 The default is 4.ã ' "A" is the angle of the text you wish to print. 0 = normal/defaultã ' control range codes are ( 1=90ø 2=180ø 3=270ø) "A + angle$"ã ' word$ is the user defined text to be translate (0)d.ã ' the looped line below (FOR-NEXT J) reads the defined text andã ' scales, draws and adds the appropriate spacing to each letter.ã ' (c)1995/98 Abacus WebDesigns (abacus@pathwaynet.com)ã ã IF angle$ = "" THEN angle$ = "0"ã IF angle$ <> "1" AND angle$ <> "2" AND angle$ <> "3" THEN angle$ = "0"ã spacing$ = "B" + UCASE$(spacing$)ã size$ = "S" + UCASE$(size$)ã angle$ = "A" + UCASE$(angle$)ã Prime$ = size$ã FOR J = 1 TO LEN(word$)ã Prime$ = angle$ + (Prime$ + Prime$(ASC(MID$(word$, J, 1))) + spacing$)ã NEXT JãEND SUBãMichael Fincham USING GET/PUT TO SCROLL PAGE maximike@geocities.com 07-18-99 (12:10) QB, PDS 41 1716 SCRLLUP.BAS 'This routine will scroll the screen upwards smoothlyã'Its my first submit, so its freeware, just make sure you tell me if you useã'it. And put my name somewhere on wahtever you use it onã'email= maximike@geocities.comã'web= www.geo.to/pokemikeã'by Michael FinchamãSCREEN 7ãREM Must make it dynamic,and load qb with the /ah optionãREM $DYNAMICãDIM temps(0) 'Dim it to zero, to save memory untill its neededãPAINT (1, 1), 1ãPRINT "Well, this demostrates my smooth scroll"ãPRINT "technique. This routine will scroll the"ãPRINT "screen upwards smoothly. Its freeware,"ãPRINT "just make sure you tell me if you use"ãPRINT "it. And put my name somewhere on"ãPRINT "whatever you use it on"ãPRINT "email= maximike@geocities.com"ãPRINT "web= www.geo.to/pokemike"ãPRINT "by Michael Fincham"ãSHELL "pause" ' shell to dos to wait for a key pressãSCREEN , , 1, 0 ' must have visualpage = 1 activepage = 0ãPCOPY 0, 1 'copy the active-visual pagesãREDIM temps(32767) 'redim the array to be HUGE, I dont know the right size,butã'this seems to workãFOR i = 1 TO 200 'start the loopãGET (0, 1)-(318, 198), temps 'get the screenãCLS 'clear it, try remming this line!(WIERD)ãPUT (0, 0), temps 'put it higher upããPAINT (319, 199), 4, 1'use this paint statement to make the scroll 2 colorãPCOPY 1, 0'display the handiworkãRANDOMIZE TIMER * RND 'make it random, you dont need this unless there is something random in your program.ãNEXT 'cloose the loopãREDIM temps(0) 'make it small + clear the huge memory hogger.ãCLS 'clear offãSCREEN , , 0, 0 'reurn screen to normalãPALETTE 0, 0 '????ã'The End.ã'There is 1 bug I know, you cant have black on the last one pixel, otherwiseã'it messes up a bit.ãMarc Santa ROTATING SPIRAL EFFECT santa@tir.com 07-25-99 (11:58) QB, QBasic, PDS 45 1668 WHOA.BAS colour = 256 ^ 2 '0=red, 1=green, 2=blueãCONST pi = 3.141592653#ãCONST k2 = 31.5 / piãDEF fnatn (z) = (ATN(z) * k2)ãCLS : SCREEN 13: xc = 160: yc = 100ãFOR i = 1 TO 31: PALETTE i, i * colour: NEXTãFOR i = 1 TO 32: PALETTE i + 31, (32 - i) * colour: NEXTãFOR r = 1 TO 200ã col = col + 64 / r: IF col > 63.5 THEN col = col - 63ã col1 = 32 + CINT((col - 32))' * r / 160)ã CIRCLE (160, 100), r, col1: CIRCLE (161, 100), r, col1ãNEXTã'PRINT ATN(TAN(PI / 4!)), PI / 4!ãFOR x = 0 TO 160: FOR y = 0 TO 100ã IF (x = 0) THEN cc = 15.75 ELSE cc = fnatn(y / x)ã c1 = POINT(xc + x, yc + y): PSET (xc + x, yc + y), (c1 + cc) MOD 63 + 1ã IF y THEN c1 = POINT(xc + x, yc - y): PSET (xc + x, yc - y), (c1 + 63 - cc) MOD 63 + 1ã IF x * y THEN c1 = POINT(xc - x, yc - y): PSET (xc - x, yc - y), (c1 + 31.5 + cc) MOD 63 + 1ã IF x THEN c1 = POINT(xc - x, yc + y): PSET (xc - x, yc + y), (c1 + 31.5 - cc) MOD 63 + 1ãNEXT y: NEXT xããda = -1ãDOã 'da = -daã FOR b = 1 TO 6280ã da = SIN(b / 1000)ã fa = fa + da * 3ã IF fa <= .5 THEN fa = fa + 63ã IF fa > 63.5 THEN fa = fa - 63ã a = CINT(fa)ã FOR i = 1 TO 31ã IF i + a > 63 THEN PALETTE (i + a) - 63, i * colour ELSE PALETTE (i + a), i * colourã NEXTã FOR i = 1 TO 32ã IF i + a + 31 > 63 THEN PALETTE (i + a) - 32, (32 - i) * colour ELSE PALETTE (i + a + 31), (32 - i) * colourã NEXTã NEXTã' col2 = col2 + 1: IF col2 = 3 THEN col2 = 0ã' rand = INT(RND * 4)ã' IF rand = 0 THEN colour = 256 ^ 2 + 256 ^ 2 + col2ã' IF rand = 1 THEN colour = 257ã' IF rand = 2 THEN colour = 258ã' IF rand = 3 THEN colour = 256 ^ 2 + 256ãLOOP WHILE INKEY$ = ""ããKrusty 3D TUTORIAL santa@tir.com 07-25-99 (11:59) QB, QBasic, PDS 384 11134 3DSTUFF.BAS 'Here y'all goã'this is *substansially* commented, and progesses from the veryã'simplest stuff (rotating dots), to the good stuff (acually stillã'fairly easy) such as rotating cubesãã'I noticed a few bugs in the last progs. i sent you:ã'1: i dimmed somthing wrong {i think it was angl()}ã' it should have been AS SINGLE, not AS INTEGERã'2: I rote "rotating at *t* radians per second" it should haveã' read "*speed* radians per second"ã'3: I neglected to take into acount screen 9's dodgey x-coords toã' y-coords ratioãããã '-----EXAMPLE 1-----ã 'Screen 9 is dodgeyãSCREEN 9ãPRINT "Example 1"ãPRINT "Screen 9 is dodgey"ãDO: LOOP UNTIL INKEY$ <> "": CLS 'press a keyããPRINT "100 pixels by 100 pixels square:"ãDO: LOOP UNTIL INKEY$ <> "": CLS 'press a keyãLINE (0, 0)-(100, 100), 15, Bã'should be a square right? it's not though (try it)ãDO: LOOP UNTIL INKEY$ <> "": CLS 'press a keyããPRINT "100 pixels by 73 pixels square:"ãDO: LOOP UNTIL INKEY$ <> "": CLS 'press a keyãLINE (0, (35 / 48) * 0)-(100, (35 / 48) * 100), 15, Bã'this time we multiply all y-coords by 35/48, to correct the problemãããã '-----EXAMPLE 2-----ã 'dot going in an ovalãDO: LOOP UNTIL INKEY$ <> "": CLSããPRINT "Example 2"ãPRINT "Dot going in an oval"ãDO: LOOP UNTIL INKEY$ <> ""ã'press a keyãCLSããDIM t AS SINGLE, y AS INTEGER, x AS INTEGERã't can have decimal places, x and y cannot (speeds things up)ãCONST PI = 3.141596ãCONST speed = .1ã'set up the constantsã ãLINE (100, 0)-(100, (35 / 48) * 200), 8ãCIRCLE (100, (35 / 48) * 100), 100, 8, , , .22ã'draw the axis, and path of the dotããSCREEN 9ãDOã DO: LOOP UNTIL TIMER > stoptime: stoptime = TIMER + .025ã 'just a little delay loop-ignore itã ã t = t + speedã y = 30 * SIN(t)ã x = 100 * COS(t)ã PSET (x + 100, (35 / 48) * (y + 100))ã 'notice that (35/48)*y-coord is used here [refer to last example]ã 'i have added 100 to both y and x, to display it on screenãLOOP UNTIL INKEY$ <> ""ã'the formula y=A*sin(t),x=B*cos(t) gives a circleã'in this case x and y are in the ratio 10:3, givingã'an oval around the midpoint (100,100)ãããã '-----EXAMPLE 3-----ã 'applying vid-pagesãCLSãPRINT "Example 3"ãPRINT "Using vid pages"ãPRINT "(to get a smooth movement)"ãDO: LOOP UNTIL INKEY$ <> ""ã'press a keyãCLSãã'I have already DIMed t, x and yããSCREEN 9, , 0, 1ã'draw on page 0, but view page 1ããDOã PCOPY 0, 1ã 'copy what is on page 0 to page 1ã LINE (0, 0)-(200, 200), 0, BFã 'erase the last image, by drawing a black imageã 'over it. Strangly this is quicker than CLSã LINE (100, 0)-(100, (35 / 48) * 200), 8ã CIRCLE (100, (35 / 48) * 100), 100, 8, , , .22ã 'draw the axis and the dot's path (why not?)ãã DO: LOOP UNTIL TIMER > stoptime: stoptime = TIMER + .05ã 'just a little delay loop-ignore itãã t = t + speedã y = 30 * SIN(t)ã x = 100 * COS(t)ã PSET (x + 100, (35 / 48) * (y + 100))ãLOOP UNTIL INKEY$ <> ""ãããã '-----EXAMPLE 4-----ã 'doing more dotsãCLSãSCREEN 9, , 0, 0ãPRINT "Example 4"ãPRINT "Doing more dots"ãPRINT "(to create a rotating plane)"ãDO: LOOP UNTIL INKEY$ <> ""ã'press a keyãCLSãã'I have already DIMed tãDIM dots AS INTEGERãDIM x(100) AS INTEGER, y(100) AS INTEGER, angle(100) AS SINGLEã'not much has changed, but now we have up to 100 dotsã'each with different anglesãdots = 6ã'say how many dots we actually wantãFOR m = 1 TO 6ã angle(m) = PI * m / 3ãNEXT mã'give them angles between 0 and 2*PI (360 degrees),ã'and have them uniformly spaced:ã'1/3 PI, 2/3 PI , PI , 4/3 PI , 5/3 PI , 2 PIããSCREEN 9, , 0, 1ããDOã PCOPY 0, 1ã LINE (0, 0)-(200, 200), 0, BFã LINE (100, 0)-(100, (35 / 48) * 200), 8ã CIRCLE (100, (35 / 48) * 100), 100, 8, , , .22ã 'copy the old image, erase the "active" screen (invisible),ã 'draw the axis and draw the dot's path (...in that order)ãã DO: LOOP UNTIL TIMER > stoptime: stoptime = TIMER + .05ã 'just a little delay loop-ignore itãã t = t + speedã FOR m = 1 TO dotsã y(m) = 30 * SIN(t + angle(m))ã x(m) = 100 * COS(t + angle(m))ã PSET (x(m) + 100, (35 / 48) * (y(m) + 100))ã NEXT mã 'draw the 6 dotsã 'draw them at differnt angles, by using SIN{t+angle(m)} not SIN{t}ã 'where m is the dot's "reference number" (1,2,3,4,5 or 6)ããLOOP UNTIL INKEY$ <> ""ãããã '-----EXAMPLE 5-----ã 'using elevation and distance from axisãCLSãSCREEN 9, , 0, 0ãPRINT "Example 5"ãPRINT "Using elevation"ãPRINT "(to create a rotating cuboid)"ãDO: LOOP UNTIL INKEY$ <> ""ã'press a keyãCLSãã'I have already DIMed t, x() , y() , angle() and dotsãDIM elev(100) AS INTEGER, dist(100) AS INTEGERã'not much has changed, but now we have differnt heights and distancesã'from the y-axis (vertical) too.ãdots = 8ããFOR m = 1 TO 4ã angle(m) = PI * m / 2ã angle(m + 4) = PI * m / 2ã dist(m) = 100ã dist(m + 4) = 100ã elev(m) = 50 * SQR(2)ã elev(m + 4) = -50 * SQR(2)ãNEXT mã'Set up the variables in such a way as to create a cuboid:ã'(distance of points from the axis of rotation is the same,ã'there are two elevations : 50 and -50,ã'and the points are uniformally spread outããSCREEN 9, , 0, 1ããDOã PCOPY 0, 1ã LINE (0, 0)-(300, 300), 0, BFã LINE (100, 0)-(100, (35 / 48) * 300), 8ã CIRCLE (100, (35 / 48) * (150 - (50 * SQR(2)))), 100, 8, , , .22ã CIRCLE (100, (35 / 48) * (150 + (50 * SQR(2)))), 100, 8, , , .22ã 'copy the old image, erase the "active" screen (invisible),ã ',draw the axis and draw the two oval thingsãã DO: LOOP UNTIL TIMER > stoptime: stoptime = TIMER + .05ã 'just a little delay loop-ignore itãã t = t + speedã FOR m = 1 TO dotsã y(m) = 1 / 3 * dist(m) * SIN(t + angle(m)) + elev(m)ã x(m) = dist(m) * COS(t + angle(m))ã PSET (x(m) + 100, (35 / 48) * (y(m) + 150))ã NEXT mã 'draw the 8 dotsã 'the x/y formula get a little more trickyã 'what has been added since Example 4:ã ' " +elev(m) " to create more than one planeã ' " dist(m)*... has replaced 100*... "ã ' " 1/3*dist(m)*... has replaced 30*... "ã 'to take intoã ' acount the distance from the axis (althogh as it happensã ' dist(1),dist(2)..dist(8) are all 100 anywayããLOOP UNTIL INKEY$ <> ""ãããã '-----EXAMPLE 6-----ã '3D linesãCLSãSCREEN 9, , 0, 0ãPRINT "Example 6"ãPRINT "3D rotating lines"ãPRINT "(or join the dots)"ãDO: LOOP UNTIL INKEY$ <> "": CLSã'press a keyããã'I have already DIMed t,x(),y(),angle(),elev(), dist(100) and dots.ã'Also these variables are already set to that of a cube, soã'i do not need to redo that eitherãDIM join1(100) AS INTEGER, join2(100) AS INTEGER, lines AS INTEGERãlines = 12ã'self explanatory reallyããFOR m = 1 TO 4ã join1(m) = mã join2(m) = m + 4ã join1(m + 4) = mã join2(m + 4) = m + 1: IF join2(m + 4) = 5 THEN join2(m + 4) = 1ã join1(m + 8) = m + 4ã join2(m + 8) = m + 5: IF join2(m + 8) = 9 THEN join2(m + 8) = 5ãNEXT mã'do all the lines:ãã' join1(m) = mã' join2(m) = m + 4ã'refer to the 4 horizontal line's -ã'it joins points 1 to 5 , 2 to 6 , 3 to 7 and 4 to 8ãã' join1(m + 4) = mã' join2(m + 4) = m + 1: IF join2(m + 4) = 5 THEN join2(m + 4) = 1ã'refers to the bottom 4 lines -ã'it joins points 1 to 2 , 2 to 3 , 3 to 4 and 4 to 1ãã' join1(m + 8) = m +4ã' join2(m + 8) = m + 5: IF join2(m + 8) = 9 THEN join2(m + 8) = 5ã'refers to the top 4 lines -ã'it joins points 5 to 6 , 6 to 7 , 7 to 8 and 8 to 5ããSCREEN 9, , 0, 1ããDOã PCOPY 0, 1ã LINE (0, 0)-(300, 300), 0, BFã LINE (100, 0)-(100, (35 / 48) * 300), 8ã CIRCLE (100, (35 / 48) * (150 - (50 * SQR(2)))), 100, 8, , , .22ã CIRCLE (100, (35 / 48) * (150 + (50 * SQR(2)))), 100, 8, , , .22ã 'view the current image, and erase it ,etc etcãã t = t + speedã FOR m = 1 TO dotsã y(m) = 1 / 3 * dist(m) * SIN(t + angle(m)) + elev(m)ã x(m) = dist(m) * COS(t + angle(m))ã y(m) = (35 / 48) * (y(m) + 150)ã x(m) = x(m) + 100ã 'i have put these two lines here to make a line furtherã 'on easier to read.ã NEXT mã FOR m = 1 TO linesã LINE (x(join1(m)), y(join1(m)))-(x(join2(m)), y(join2(m))), 15ã NEXT mã 'that last bit is a little harder to explain than the rest,ã 'join1(m) and join2(m) store the "reference numbers" of theã 'two points connected by line mã 'we then draw a line between the point[join1(m)] and the point[join2(m)]ãLOOP UNTIL INKEY$ <> ""ãããã '-----EXAMPLE 7-----ã 'One way to only display visible facesãCLSãSCREEN 9, , 0, 0ãPRINT "Example 7"ãPRINT "A way to only display visible faces"ãPRINT "(The end is nigh)"ãDO: LOOP UNTIL INKEY$ <> "": CLSã'press a keyããã'I have already DIMed and set up everythingãSCREEN 9, , 0, 1ããDOã PCOPY 0, 1ã LINE (0, 0)-(300, 300), 0, BFã LINE (100, 0)-(100, (35 / 48) * 300), 8ã CIRCLE (100, (35 / 48) * (150 - (50 * SQR(2)))), 100, 8, , , .22ã CIRCLE (100, (35 / 48) * (150 + (50 * SQR(2)))), 100, 8, , , .22ã 'all as beforeãã t = t + speedã FOR m = 1 TO dotsã y(m) = 1 / 3 * dist(m) * SIN(t + angle(m)) + elev(m)ã x(m) = dist(m) * COS(t + angle(m))ã y(m) = (35 / 48) * (y(m) + 150)ã x(m) = x(m) + 100ã 'still nothing newã NEXT mã ã FOR m = 1 TO 4ã LINE (x(join1(m + 8)), y(join1(m + 8)))-(x(join2(m + 8)), y(join2(m + 8))), 15ã 'Draw the top faceã ã IF y(m) > 144 THEN LINE (x(join1(m)), y(join1(m)))-(x(join2(m)), y(join2(m))), 15ã 'draw the 3 visible vertical linesã ã IF y(m) > 178 THENã mp = m + 5: IF mp > 8 THEN mp = 5ã mm = m + 3: IF mm < 5 THEN mm = 8ã LINE (x(join1(m + 4)), y(join1(m + 4)))-(x(join2(m + 4)), y(join2(m + 4))), 15ã LINE (x(join1(mm)), y(join1(mm)))-(x(join2(mm)), y(join2(mm))), 15ã 'draw the two visible bottom linesã END IFã ã NEXT mã 'this method only works for objects that we know about,ã 'such as a pre-programmed cube.ã 'It is not a general algorithm.ã 'All it does is draw the top four lines, and draws the othersã 'if their y value is big enough (and they mustã 'therefore be visible)ã 'more over this method is imperfect-watch the cube closelyãLOOP UNTIL INKEY$ <> ""ããSCREEN 9, , 0, 0: CLSãPRINT " That's all folk's"ãPRINT " Thanks for watching"ãPRINTãPRINTãPRINT "To find out what was going on read the comments"ãPRINT " within this .BAS file"ãPRINT "To find out about other 3D stuff read the comments"ãPRINT " at the bottom of this .BAS"ãPRINTãPRINT " Maths/Algorithms: Krusty"ãPRINT " Coding: Krusty"ãPRINT " Graphics: Krusty"ãPRINT " With special thanks to: Krusty, Al"ãPRINT " (for getting me into all this kewl 3D stuff again)"ãPRINTãPRINT " E-Mail Krusty at christie@intonet.co.uk"ãããã' -----Final Comments-----ã'ã'As i said earlier, the method i used for showingã'only some faces of the cube was not really good enoughã',as a general solution.ã'To do that you canã'ã'ã'ããMarc Santa 3D CONSTRUCTION santa@tir.com 07-25-99 (11:59) QB, QBasic, PDS 279 4525 3DBUILD.BAS SCREEN 13ãH# = 84ãDIM x(1 TO H#)ãDIM y(1 TO H#)ãDIM Z(1 TO H#)ãDIM C(1 TO H#)ãDIM U(1 TO H#)ãDIM V(1 TO H#)ãCLSãFOR I = 1 TO H#ãREAD x(I), y(I), Z(I)ãREAD C(I), U(I), V(I)ãNEXTãDOãã' ROUTINE 1ãf# = 1ãFOR S = 1 TO 220ãFOR I = 1 TO H#ãLINE ((x(I) + S) / Z(I), y(I) / Z(I))-((C(I) + S) / V(I), U(I) / V(I)), 10ããIF f# = 1 THENãFOR H = 1 TO 100000ãNEXTãEND IFãNEXTãf# = 2ãFOR I = 1 TO 5000ãNEXTãCLSãNEXTãã'ROUTINE 2ãFOR S = 220 TO 1 STEP -1ãFOR I = 1 TO H#ãLINE ((x(I) + S) / Z(I), y(I) / Z(I))-((C(I) + S) / V(I), U(I) / V(I)), 10ãNEXTãFOR I = 1 TO 5000ãNEXTãCLSãNEXTãã'ROUTINE 3ãFOR S = 1 TO 20ãFOR I = 1 TO H#ãLINE (x(I) / Z(I), (y(I) + S) / Z(I))-(C(I) / V(I), (U(I) + S) / V(I)), 10ãNEXTãFOR I = 1 TO 5000ãNEXTãCLSãNEXTãã'ROUTINE 4ãFOR S = 20 TO -200 STEP -1ãFOR I = 1 TO H#ãLINE (x(I) / Z(I), (y(I) + S) / Z(I))-(C(I) / V(I), (U(I) + S) / V(I)), 10ãNEXTãFOR I = 1 TO 5000ãNEXTãCLSãNEXTãENDãLOOPããã' BOX 1ãDATA 100, 100, 1ãDATA 50, 100, 1ãDATA 50, 100, 1ãDATA 50, 150, 1ãDATA 50, 150, 1ãDATA 100, 150, 1ãDATA 100, 150, 1ãDATA 100, 100, 1ããDATA 100, 100, 1.2ãDATA 50, 100, 1.2ãDATA 50, 100, 1.2ãDATA 50, 150, 1.2ãDATA 50, 150, 1.2ãDATA 100, 150, 1.2ãDATA 100, 150, 1.2ãDATA 100, 100, 1.2ãã' CONNECTIONS 1ãDATA 100, 100, 1ãDATA 100, 100, 1.2ãDATA 50, 100, 1ãDATA 50, 100, 1.2ãDATA 50, 150, 1ãDATA 50, 150, 1.2ãDATA 100, 150, 1ãDATA 100, 150,1.2ãã'BOX 2ãDATA 100, 100, 1.5ãDATA 50, 100, 1.5ãDATA 50, 100, 1.5ãDATA 50, 150, 1.5ãDATA 50, 150, 1.5ãDATA 100, 150, 1.5ãDATA 100, 150, 1.5ãDATA 100, 100, 1.5ãã'CONNECTIONS 2ãDATA 100, 100, 1.2ãDATA 100, 100, 1.5ãDATA 50, 100, 1.2ãDATA 50, 100, 1.5ãDATA 50, 150, 1.2ãDATA 50, 150, 1.5ãDATA 100, 150, 1.2ãDATA 100, 150, 1.5ãã'BOX 3ãDATA 100, 50, 1ãDATA 50, 50, 1ãDATA 50, 50, 1ãDATA 50, 100, 1ãDATA 50, 100, 1ãDATA 100, 100, 1ãDATA 100, 100, 1ãDATA 100, 50, 1ããDATA 100, 50, 1.2ãDATA 50, 50, 1.2ãDATA 50, 50, 1.2ãDATA 50, 100, 1.2ãDATA 50, 100, 1.2ãDATA 100, 100, 1.2ãDATA 100, 100, 1.2ãDATA 100, 50, 1.2ãã'CONNECTIONS 3ãDATA 100, 50, 1ãDATA 100, 50, 1.2ãDATA 50, 50, 1ãDATA 50, 50, 1.2ãDATA 50, 100, 1ãDATA 50, 100, 1.2ãDATA 100, 100, 1ãDATA 100, 100, 1.2ãã'BOX 4ãDATA 100, 150, 1ãDATA 50, 150, 1ãDATA 50, 150, 1ãDATA 50, 200, 1ãDATA 50, 200, 1ãDATA 100, 200, 1ãDATA 100, 200, 1ãDATA 100, 150, 1ãã' THE M!ã'DATA 200, 100, 1.5ã'DATA 220, 80, 1.5ã'DATA 220, 80, 1.8ã'DATA 240, 100, 1.8ã'DATA 240, 100, 2ã'DATA 260, 80, 2ã'DATA 260, 80, 1.8ã'DATA 280, 100, 1.5ããDATA 100, 150, 1.2ãDATA 50, 150, 1.2ãDATA 50, 150, 1.2ãDATA 50, 200, 1.2ãDATA 50, 200, 1.2ãDATA 100, 200, 1.2ãDATA 100, 200, 1.2ãDATA 100, 150, 1.2ãã' CONNECTIONS 4ãDATA 100, 150, 1ãDATA 100, 150, 1.2ãDATA 50, 150, 1ãDATA 50, 150, 1.2ãDATA 50, 200, 1ãDATA 50, 200, 1.2ãDATA 100, 200, 1ãDATA 100, 200,1.2ãã'BOX 5ãDATA 100, 100, 1.8ãDATA 50, 100, 1.8ãDATA 50, 100, 1.8ãDATA 50, 150, 1.8ãDATA 50, 150, 1.8ãDATA 100, 150, 1.8ãDATA 100, 150, 1.8ãDATA 100, 100, 1.8ãã'CONNECTIONS 5ãDATA 100, 100, 1.8ãDATA 100, 100, 1.5ãDATA 50, 100, 1.8ãDATA 50, 100, 1.5ãDATA 50, 150, 1.8ãDATA 50, 150, 1.5ãDATA 100, 150, 1.8ãDATA 100, 150, 1.5ãã'BOX 6ãDATA 100, 150, 1.5ãDATA 50, 150, 1.5ãDATA 50, 150, 1.5ãDATA 50, 200, 1.5ãDATA 50, 200, 1.5ãDATA 100, 200, 1.5ãDATA 100, 200, 1.5ãDATA 100, 150, 1.5ããDATA 100, 150, 1.8ãDATA 50, 150, 1.8ãDATA 50, 150, 1.8ãDATA 50, 200, 1.8ãDATA 50, 200, 1.8ãDATA 100, 200, 1.8ãDATA 100, 200, 1.8ãDATA 100, 150, 1.8ãã' CONNECTIONS 6ãDATA 100, 150, 1.5ãDATA 100, 150, 1.8ãDATA 50, 150, 1.5ãDATA 50, 150, 1.8ãDATA 50, 200, 1.5ãDATA 50, 200, 1.8ãDATA 100, 200, 1.5ãDATA 100, 200,1.8ãã'BOX 7ãDATA 100, 50, 1.5ãDATA 50, 50, 1.5ãDATA 50, 50, 1.5ãDATA 50, 100, 1.5ãDATA 50, 100, 1.5ãDATA 100, 100, 1.5ãDATA 100, 100, 1.5ãDATA 100, 50, 1.5ããDATA 100, 50, 1.8ãDATA 50, 50, 1.8ãDATA 50, 50, 1.8ãDATA 50, 100, 1.8ãDATA 50, 100, 1.8ãDATA 100, 100, 1.8ãDATA 100, 100, 1.8ãDATA 100, 50, 1.8ãã'CONNECTIONS 7ãDATA 100, 50, 1.5ãDATA 100, 50, 1.8ãDATA 50, 50, 1.5ãDATA 50, 50, 1.8ãDATA 50, 100, 1.5ãDATA 50, 100, 1.8ãDATA 100, 100, 1.5ãDATA 100, 100, 1.8ãã'BOX 8ãDATA 100, 100, 2ãDATA 50, 100, 2ãDATA 50, 100, 2ãDATA 50, 150, 2ãDATA 50, 150, 2ãDATA 100, 150, 2ãDATA 100, 150, 2ãDATA 100, 100, 2ãã'CONNECTIONS 8ãDATA 100, 100, 2ãDATA 100, 100, 1.8ãDATA 50, 100, 2ãDATA 50, 100, 1.8ãDATA 50, 150, 2ãDATA 50, 150, 1.8ãDATA 100, 150, 2ãDATA 100, 150, 1.8ãMarc Santa A SPIN ON 3D santa@tir.com 07-25-99 (11:59) QB, QBasic, PDS 107 1642 3DSPIN.BAS SCREEN 7, 0, 1, 0ãCLSãzz# = 0ãGAIN:ã'LOCATE 1, 1ã'PRINT INT(zz# * 100)ãPCOPY 1, 0ãIF A# = 1 THENãFOR C = 300 TO 319ãFOR I = 100 TO 200ãIF POINT(C, I) = 10 THENãFOR W = 1 TO 100ãCIRCLE (C, I), W, 4ãNEXTãPCOPY 1, 0ãGOTO VBALLSãEND IFãNEXTãNEXTãEND IFãCLSãC# = 160ãR# = 100ãz# = 1ãcc# = 0ãrr# = 1ãIF A# = 0 THEN zz# = zz# + .0001ãIF A# = 1 THEN zz# = zz# - .01ãDOãcc# = cc# + .01ãrr# = rr# - .01ãC# = C# + cc#ãR# = R# + rr#ãz# = z# + zz#ãIF INT(zz# * 100) = 3 THEN LOCATE 2, 1: PRINT "READY..."ãIF INT(zz# * 100) > 3 THEN A# = 1ãIF cc# > 1 THEN GOTO GAINãPSET (C# / z#, R# / z#), 10ãLOOPããVBALLS:ãDIM X(1 TO 800)ãDIM Y(1 TO 800)ãDIM V(1 TO 800)ãDIM E(1 TO 800)ãFOR C = 320 TO 340ãFOR R = 200 TO 220ãt# = t# + 1ãX(t#) = CãY(t#) = RãNEXTãNEXTãDOãCLSãA# = A# + 1ãIF A# = 100 THEN GOTO VBALL2ãFOR I = 1 TO t#ãRANDOMIZE TIMERãxx# = INT(RND * 7) - 2ãyy# = INT(RND * 7) - 2ãX(I) = X(I) - xx#ãY(I) = Y(I) - yy#ãPSET (X(I), Y(I)), 10ãNEXTãPCOPY 1, 0ãLOOPããVBALL2:ãp# = 0ãFOR C = 150 TO 170ãFOR R = 90 TO 110ãp# = p# + 1ãV(p#) = CãE(p#) = RãNEXTãNEXTãYO:ãz# = 0ãDOãz# = z# + 1ãIF z# = 150 AND n# = 10 THEN ENDãIF z# = 150 THEN GOTO YAãCLSãFOR I = 1 TO p#ãA = X(I)ãB = Y(I)ãIF X(I) > V(I) THEN X(I) = X(I) - 1ãIF X(I) < V(I) THEN X(I) = X(I) + 1ãIF Y(I) > E(I) THEN Y(I) = Y(I) - 1ãIF Y(I) < E(I) THEN Y(I) = Y(I) + 1ãIF POINT(X(I), Y(I)) = 10 THENãX(I) = AãY(I) = BãEND IFãPSET (X(I), Y(I)), 10ãNEXTãPCOPY 1, 0ãLOOPãYA:ãn# = n# + 1ãFOR I = 1 TO p# - n#ãV(I) = E(I + INT(RND * n#))ãE(I) = E(I + INT(RND * n#))ãNEXTãV(p#) = E(1)ãE(p#) = E(1)ãGOTO YOãAaron Severn ROTATING 3D POLYGON ROUTINE bob_severn@msn.com 07-25-99 (11:59) QB, QBasic, PDS 249 9446 3DPOLY.BAS ' 3DPOLY.BASã' by Aaron Severnã' June 18/97ãã' This uses the same 3D routines as the vector ball program, but instead ofã' rotating points it rotates lines which are connected to form an interrestingã' shape. The idea is simple, each line consists of two points, both pointsã' are rotated and a line in drawn between them.ã' Unlike vector balls, this program is 100% user driven, the object won'tã' move without you. I've also added the ability to move the center of theã' object which gets interresting results.ãã' I've been trying to figure out how to eliminate the lines of the back ofã' the shape so that it is a solid polygon instead of a transparent one likeã' it is now. I believe the technique is called plane elimination. Anyway,ã' so far I haven't gotten it to work, so if anyone knows how could you tellã' me or make the changes and send me the code or whatever. My e-mail isã' bob_severn@msn.com. Thanks.ãã' As I mentioned above, there's a little more motion going on in this programã' than in the other one, thus the controls are kind of complicated. Hereã' they are:ãã' Left and right arrow keys - rotate around y-axisã' Up and down arrow keys - rotate around x-axisã' A and Z - move view point closer/farther awayã' X and V - move view point left/rightã' D and C - move view point up/downã' ; and / - move object's center closer/farther awayã' M and . - move object's center left/rightã' K and , - move object's center up/downã' R - resetã' Esc - quitãã' The documentation in this program will be much more brief than vector balls.ã' If you want more detail on the formulas, check it out.ããDEFINT A-ZããDECLARE SUB setColours (pal() AS ANY, fc, lc)ããTYPE pnt 'type for each 3D pointã x AS INTEGER 'x coord (horizontal)ã y AS INTEGER 'y coord (vertical)ã Z AS INTEGER 'z coord (into the screen)ã p AS INTEGER 'dist from center of objectãEND TYPEããTYPE hues 'type for paletteã red AS INTEGERã green AS INTEGERã blue AS INTEGERãEND TYPEããnumLines = 24 - 1ããDIM origLine(numLines, 1) AS pntãDIM newLine(numLines, 1) AS pntãDIM scrX(numLines, 1)ãDIM scrY(numLines, 1)ãDIM oldX(numLines, 1)ãDIM oldY(numLines, 1)ãDIM sine!(360)ãDIM cosine!(360)ããCONST PI = 3.14159ããFOR i = 0 TO 360 'create sine and cosineã sine!(i) = SIN(i * (PI / 180)) 'look up tables to speed upã cosine!(i) = COS(i * (PI / 180)) 'the mathãNEXTãã' Read two points instead of one.ãFOR i = 0 TO numLinesã READ origLine(i, 0).x, origLine(i, 0).y, origLine(i, 0).Z, origLine(i, 0).pã READ origLine(i, 1).x, origLine(i, 1).y, origLine(i, 1).Z, origLine(i, 1).pãNEXTããPRINT "3DPOLY.BAS"ãPRINT "By Aaron Severn"ãPRINT : PRINT : PRINT "Controls"ãPRINT : PRINT "Left and right arrow keys - rotate around y-axis"ãPRINT "Up and down arrow keys - rotate around x-axis"ãPRINT " A and Z - move view point closer/farther away"ãPRINT " X and V - move view point left/right"ãPRINT " D and C - move view point up/down"ãPRINT " ; and / - move object's center closer/farther away"ãPRINT " M and . - move object's center left/right"ãPRINT " K and , - move object's center up/down"ãPRINT " R - reset"ãPRINT " Esc - quit"ãPRINT : PRINT "Press a key..."ãSLEEPããSCREEN 13ãCLSããxCenter = 160: yCenter = 100: zCenter = 250ãtheta = 0: phi = 0ããjustStarted = 1ãDOã FOR i = 0 TO numLinesã ' Save the old values of x and y so we can erase the balls later.ã oldX(i, 0) = scrX(i, 0): oldY(i, 0) = scrY(i, 0)ã oldX(i, 1) = scrX(i, 1): oldY(i, 1) = scrY(i, 1)ã ã ' Rotate both points on each axis.ã newLine(i, 0).x = -origLine(i, 0).x * sine!(theta) + origLine(i, 0).y * cosine!(theta)ã newLine(i, 0).y = -origLine(i, 0).x * cosine!(theta) * sine!(phi) - origLine(i, 0).y * sine!(theta) * sine!(phi) - origLine(i, 0).Z * cosine!(phi) + origLine(i, 0).pã newLine(i, 0).Z = -origLine(i, 0).x * cosine!(theta) * cosine!(phi) - origLine(i, 0).y * sine!(theta) * cosine!(phi) + origLine(i, 0).Z * sine!(phi)ãã newLine(i, 1).x = -origLine(i, 1).x * sine!(theta) + origLine(i, 1).y * cosine!(theta)ã newLine(i, 1).y = -origLine(i, 1).x * cosine!(theta) * sine!(phi) - origLine(i, 1).y * sine!(theta) * sine!(phi) - origLine(i, 1).Z * cosine!(phi) + origLine(i, 1).pã newLine(i, 1).Z = -origLine(i, 1).x * cosine!(theta) * cosine!(phi) - origLine(i, 1).y * sine!(theta) * cosine!(phi) + origLine(i, 1).Z * sine!(phi)ãã ' Translate both points from 3D to 2D.ã IF (newLine(i, 0).Z + zCenter) <> 0 THENã scrX(i, 0) = 256 * (newLine(i, 0).x / (newLine(i, 0).Z + zCenter)) + xCenterã scrY(i, 0) = 256 * (newLine(i, 0).y / (newLine(i, 0).Z + zCenter)) + yCenterã END IFãã IF (newLine(i, 1).Z + zCenter) <> 0 THENã scrX(i, 1) = 256 * (newLine(i, 1).x / (newLine(i, 1).Z + zCenter)) + xCenterã scrY(i, 1) = 256 * (newLine(i, 1).y / (newLine(i, 1).Z + zCenter)) + yCenterã END IFã NEXT iãã ' Erase the old lines.ã WAIT &H3DA, 8ã IF justStarted = 0 THENã FOR i = 0 TO numLinesã LINE (oldX(i, 0), oldY(i, 0))-(oldX(i, 1), oldY(i, 1)), 0ã NEXT iã END IFãã ' Draw the new lines. Note: no clipping yet.ã FOR i = 0 TO numLinesã LINE (scrX(i, 0), scrY(i, 0))-(scrX(i, 1), scrY(i, 1)), 11ã NEXT iã ã justStarted = 0ã A$ = INKEY$ã A$ = UCASE$(A$)ã SELECT CASE A$ã CASE "A"ã zCenter = zCenter - 2ã CASE "Z"ã zCenter = zCenter + 2ã CASE "X"ã xCenter = xCenter + 2ã CASE "V"ã xCenter = xCenter - 2ã CASE "C"ã yCenter = yCenter - 2ã CASE "D"ã yCenter = yCenter + 2ã CASE "K"ã FOR i = 0 TO numLinesã origLine(i, 0).Z = origLine(i, 0).Z + 2ã origLine(i, 1).Z = origLine(i, 1).Z + 2ã NEXTã CASE ","ã FOR i = 0 TO numLinesã origLine(i, 0).Z = origLine(i, 0).Z - 2ã origLine(i, 1).Z = origLine(i, 1).Z - 2ã NEXTã CASE ";"ã FOR i = 0 TO numLinesã origLine(i, 0).x = origLine(i, 0).x + 2ã origLine(i, 1).x = origLine(i, 1).x + 2ã NEXTã CASE "/"ã FOR i = 0 TO numLinesã origLine(i, 0).x = origLine(i, 0).x - 2ã origLine(i, 1).x = origLine(i, 1).x - 2ã NEXTã CASE "."ã FOR i = 0 TO numLinesã origLine(i, 0).y = origLine(i, 0).y + 2ã origLine(i, 1).y = origLine(i, 1).y + 2ã NEXTã CASE "M"ã FOR i = 0 TO numLinesã origLine(i, 0).y = origLine(i, 0).y - 2ã origLine(i, 1).y = origLine(i, 1).y - 2ã NEXTã CASE CHR$(0) + CHR$(75)ã theta = theta - 5ã IF theta < 0 THEN theta = theta + 360ã CASE CHR$(0) + CHR$(77)ã theta = (theta + 5) MOD 360ã CASE CHR$(0) + CHR$(72)ã phi = (phi + 5) MOD 360ã CASE CHR$(0) + CHR$(80)ã phi = phi - 5ã IF phi < 0 THEN phi = phi + 360ã CASE "R"ã RESTOREã FOR i = 0 TO numLinesã READ origLine(i, 0).x, origLine(i, 0).y, origLine(i, 0).Z, origLine(i, 0).pã READ origLine(i, 1).x, origLine(i, 1).y, origLine(i, 1).Z, origLine(i, 1).pã NEXTã xCenter = 160: yCenter = 100: zCenter = 250ã theta = 0: phi = 0ã justStarted = 1ã CLSã CASE CHR$(27)ã SYSTEMã END SELECTã DO: A$ = INKEY$: LOOP UNTIL A$ = ""ãLOOP UNTIL A$ = CHR$(27)ãã' Lines are stored in format (X1,Y1,Z1,p1)-(X2,Y2,Z2,p2)ãDATA -20,20,20,1,-60,0,0,1ãDATA -20,-20,20,1,-60,0,0,1ãDATA -20,20,-20,1,-60,0,0,1ãDATA -20,-20,-20,1,-60,0,0,1ãDATA 20,20,20,1,60,0,0,1ãDATA 20,-20,20,1,60,0,0,1ãDATA 20,20,-20,1,60,0,0,1ãDATA 20,-20,-20,1,60,0,0,1ãDATA 20,-20,20,1,0,-60,0,1ãDATA -20,-20,20,1,0,-60,0,1ãDATA 20,-20,-20,1,0,-60,0,1ãDATA -20,-20,-20,1,0,-60,0,1ãDATA 20,20,20,1,0,60,0,1ãDATA -20,20,20,1,0,60,0,1ãDATA 20,20,-20,1,0,60,0,1ãDATA -20,20,-20,1,0,60,0,1ãDATA 20,20,-20,1,0,0,-60,1ãDATA -20,20,-20,1,0,0,-60,1ãDATA 20,-20,-20,1,0,0,-60,1ãDATA -20,-20,-20,1,0,0,-60,1ãDATA 20,20,20,1,0,0,60,1ãDATA -20,20,20,1,0,0,60,1ãDATA 20,-20,20,1,0,0,60,1ãDATA -20,-20,20,1,0,0,60,1ããSUB setColours (pal() AS hues, fc, lc)ããOUT &H3C8, fc 'tell controller to get readyãFOR t = fc TO lc 'from first to lastã OUT &H3C9, pal(t).red 'send red componentã OUT &H3C9, pal(t).green 'send green componentã OUT &H3C9, pal(t).blue 'send blue componentãNEXT tããEND SUBãMarc Santa SCREEN STATIC/WOBBLE EFFECT santa@tir.com 07-25-99 (12:02) QB, QBasic, PDS 57 1082 WOB.BAS SCREEN 13ãFOR I = 1 TO 200ãFOR C = 1 TO 320ãPSET (C, I), RND * 200ãNEXTãNEXTãPRINT "MARC SANTA MADE THIS!"ãSLEEP 2ãDOãDIM wib AS INTEGERãDIM m(1 TO 1000) AS INTEGERãa = RND * 50ãf = RND * 50 + 1ãneg = RNDãIF RND < .5 THENã FOR x = 0 TO 319ã wib = a * SIN(x / f)ã IF wib > 0 THENã GET (x, 0)-(x, 199 - wib), mã PUT (x, wib), m, PSETã LINE (x, 0)-(x, wib - 1), 0ã ELSEIF wib < 0 THENã GET (x, -wib)-(x, 199), mã PUT (x, 0), m, PSETã LINE (x, 200 + wib)-(x, 199), 0ã END IFã ã NEXTã ELSEã FOR y = 0 TO 199ã wib = a * SIN(y / f)ã IF wib > 0 THENã GET (0, y)-(319 - wib, y), mã PUT (wib, y), m, PSETã LINE (0, y)-(wib - 1, y), 0ã ELSEIF wib < 0 THENã GET (-wib, y)-(319, y), mã PUT (0, y), m, PSETã LINE (320 + wib, y)-(319, y), 0ã END IFã ã NEXTã ãDIM count AS INTEGERãIF RND < .5 THENã FOR count = 1 TO 120ã PALETTE count, 0ã NEXTã ELSEã FOR count = 120 TO 1 STEP -1ã PALETTE count, 0ã NEXTãEND IFãããEND IFãLOOPãAndries Mooij 3D LANDSCAPE W/MOVING VIEWPOINTsanta@tir.com 07-25-99 (12:02) QB, QBasic, PDS 302 7738 HILL.BAS DEFINT A-ZãTYPE Vectorã X AS INTEGERã Y AS INTEGERã Z AS INTEGERã XW AS INTEGERã YW AS INTEGERã ZW AS INTEGERã XV AS INTEGERã YV AS INTEGERã OX AS INTEGERã OY AS INTEGERãEND TYPEãTYPE SimpleVectorã X AS INTEGERã Y AS INTEGERã Z AS INTEGERãEND TYPEãTYPE LineTypeã P1 AS INTEGERã P2 AS INTEGERãEND TYPEãTYPE Colorsã R AS INTEGERã G AS INTEGERã B AS INTEGERãEND TYPEãRANDOMIZE TIMERãDots = 400: SQRD = INT(SQR(Dots)): div! = 2ãDIM Object(Dots) AS VectorãDIM Lines(Dots) AS LineTypeãDIM Sine(450) AS LONGãDIM CameraAdds(2000) AS SimpleVectorãDIM Pal(256) AS Colors, Order(Dots), ZC(Dots)ãFOR I = 0 TO Dots - 1ã IF (I + 1) \ SQRD = (I + 1) / SQRD THEN Tg = -1ã IF NOT Tg THENã Lines(I).P1 = I + 1ã ELSEã Lines(I).P1 = Iã Tg = NOT Tgã Tg2 = NOT Tg2ã END IFã IF I <= Dots - 1 - SQRD THEN Lines(I).P2 = I + SQRD ELSE Lines(I).P2 = IãNEXTã'256/Dots *2ãdiv! = 3ãRad! = 5.72958 / div!ãFOR X = 0 TO SQRD - 1ã FOR Z = 0 TO SQRD - 1ã I = X * SQRD + Zã Object(I).X = X * 4 * div!ã Object(I).Y = 30 * (SIN(X / Rad!) + SIN(Z / Rad!))ã Object(I).Z = Z * 4 * div!ã NEXTãNEXTãFOR I = 0 TO Dots - 1ã X& = X& + Object(I).Xã Y& = Y& + Object(I).Yã Z& = Z& + Object(I).ZãNEXTãX& = X& \ Dots: Y& = Y& \ Dots: Z& = Z& \ DotsãFOR I = 0 TO Dots - 1ã Object(I).X = Object(I).X - X&ã Object(I).Y = Object(I).Y - Y&ã Object(I).Z = Object(I).Z - Z&ã Object(I).YW = Object(I).YãNEXTãI = 0ãFOR I! = 0 TO 449 / 57.2958 STEP 1 / 57.2958ã Sine(I) = SIN(I!) * 1024: I = I + 1ãNEXTãEyeX = 0ãEyeY = 0ãEyeZ = 400ãSCREEN 13ãFOR I = 0 TO 31ã Pal(I).B = I * 2ãNEXTãFOR I = 0 TO 31ã Pal(I + 32).R = I * 2ã Pal(I + 32).G = I * 2ã Pal(I + 32).B = 63 - (I * 2)ãNEXTãFOR I = 0 TO 31ã Pal(I + 64).R = 63 - (I * 2)ã Pal(I + 64).G = 63ãNEXTãFOR I = 0 TO 31ã Pal(I + 96).R = I * 1.354839ã Pal(I + 96).G = 63 - I / 1.47619ãNEXTãFOR I = 0 TO 31ã R = 42 + I * 1.3125ã G = 42 + I * 1.3125ã B = I * 4ã IF R > 63 THEN R = 63ã IF G > 63 THEN G = 63ã IF B > 63 THEN B = 63ã Pal(I + 128).R = Rã Pal(I + 128).G = Gã Pal(I + 128).B = BãNEXTãFOR ix = 0 TO 63ã OUT &H3C8, 0ã FOR I = 0 TO 255ã OUT &H3C9, ixã OUT &H3C9, ixã OUT &H3C9, ixã NEXTãNEXTãA3 = 0ãGOSUB SetupCameraMovementãGotoNormal = -1ãFrame& = 0ãRE:ãxc! = TIMERãDOã IF GotoNormal THENã OUT &H3C8, 0ã FOR I = 0 TO 255ã R = ix + Pal(I).Rã G = ix + Pal(I).Gã B = ix + Pal(I).Bã IF R > 63 THEN R = 63ã IF G > 63 THEN G = 63ã IF B > 63 THEN B = 63ã OUT &H3C9, Rã OUT &H3C9, Gã OUT &H3C9, Bã NEXTã ix = ix - 1ã IF ix < 0 THEN GotoNormal = NOT GotoNormalã END IFã IF GotoWhite THENã OUT &H3C8, 0ã FOR I = 0 TO 255ã R = Pal(I).R + ixã G = Pal(I).G + ixã B = Pal(I).B + ixã IF R > 63 THEN R = 63ã IF G > 63 THEN G = 63ã IF B > 63 THEN B = 63ã OUT &H3C9, Rã OUT &H3C9, Gã OUT &H3C9, Bã NEXTã ix = ix + 1ã IF ix >= 64 THEN GOTO StopItã END IFã EyeX = EyeX + CameraAdds(CurFrame).Xã EyeY = EyeY + CameraAdds(CurFrame).Yã EyeZ = EyeZ + CameraAdds(CurFrame).Zã CurFrame = (CurFrame + 1) MOD 2001ã IF CurFrame < 1001 THENã a1 = (a1 + 1) MOD 360ã ELSEã a1 = a1 - 1ã IF a1 < 0 THEN a1 = a1 + 360ã END IFã s1& = Sine(a1): c1& = Sine(a1 + 90)ã FOR I = 0 TO Dots - 1ã XO = Object(I).X: YO = Object(I).Y: ZO = Object(I).Zã Object(I).XW = (XO * c1& - ZO * s1&) \ 1024ã Object(I).ZW = (XO * s1& + ZO * c1&) \ 1024ã Object(I).OX = Object(I).XVã Object(I).OY = Object(I).YVã z4 = Object(I).ZW - EyeZã IF z4 <> 0 THENã X! = (Object(I).XW - EyeX) / z4ã Y! = (Object(I).YW - EyeY) / z4ã IF X! > -90 AND X! < 90 THEN Object(I).XV = X! * 320 + 160ã IF Y! > -90 AND Y! < 90 THEN Object(I).YV = Y! * 200 + 100ã END IFã NEXTã FOR I = 0 TO Dots - 1ã P1 = Lines(I).P1: P2 = Lines(I).P2: P3 = Iã Order(I) = I: ZC(I) = Object(P1).ZW + Object(P2).ZW + Object(P3).ZWã NEXTã ã Dotz = Dots - 1ã Mid = (Dotz + 1) \ 2ã DOã FOR a = 0 TO Dotz - Midã CompareLow = aã CompareHigh = a + Midã DO WHILE ZC(Order(CompareLow)) > ZC(Order(CompareHigh))ã SWAP Order(CompareLow), Order(CompareHigh)ã CompareHigh = CompareLowã CompareLow = CompareLow - Midã IF CompareLow < 0 THEN EXIT DOã LOOPã NEXTã Mid = Mid \ 2ã LOOP WHILE Mid > 0ã ã FOR I = 0 TO Dots - 2ã It = Order(I)ã P1 = Lines(It).P1: P2 = Lines(It).P2: P3 = Itã x1 = Object(P1).OX: x2 = Object(P2).OX: x3 = Object(P3).OXã y1 = Object(P1).OY: y2 = Object(P2).OY: y3 = Object(P3).OYã dp1 = x1 < 0 OR x1 > 319 AND y1 < 0 OR y1 > 319ã dp2 = x2 < 0 OR x2 > 319 AND y2 < 0 OR y2 > 319ã dp3 = x3 < 0 OR x3 > 319 AND y3 < 0 OR y3 > 319ã IF NOT dp1 OR NOT dp3 THEN LINE (x3, y3)-(x1, y1), 0ã IF NOT dp2 OR NOT dp3 THEN LINE (x3, y3)-(x2, y2), 0ã IF Object(P1).ZW < EyeZ AND Object(P2).ZW < EyeZ AND Object(P3).ZW < EyeZ THENã x1 = Object(P1).XV: x2 = Object(P2).XV: x3 = Object(P3).XVã y1 = Object(P1).YV: y2 = Object(P2).YV: y3 = Object(P3).YVã c = ((Object(P3).YW + 72) * 14) \ 10ã IF c > 143 THEN c = 143ã LINE (x3, y3)-(x1, y1), cã LINE (x3, y3)-(x2, y2), cã END IFã NEXTã I$ = INKEY$ã IF GotoWhite OR GotoNormal THEN I$ = ""ãLOOP WHILE I$ = ""ãGotoWhite = -1: ix = 1ãGOTO REãStopIt:ãFOR ix = 63 TO 0 STEP -1ã OUT &H3C8, 0ã FOR I = 0 TO 255ã OUT &H3C9, ixã OUT &H3C9, ixã OUT &H3C9, ixã NEXTãNEXTãSCREEN 0: WIDTH 80ãPRINT "Hill by Illegal Opcode [aka Andries Mooij] (C) 1998"ãPRINT "A simple example of 3d landscapes and a moving viewpoint"ãPRINT "Want to see more cool stuff ? Visit my homepage"ãPRINT "www.geocities.com/SiliconValley/Orchard/5183"ãENDããSetupCameraMovement:ãFOR I = 0 TO 80ã CameraAdds(I).Z = -2ãNEXTãFOR I = 81 TO 140ã CameraAdds(I).Z = -4ã IF I < 95 THEN CameraAdds(I).X = -2ã IF I >= 95 AND I < 110 THEN CameraAdds(I).X = -1ã IF I >= 110 THEN CameraAdds(I).X = 1ãNEXTãFOR I = 141 TO 182ã IF I <= 152 THEN CameraAdds(I).X = 1ã CameraAdds(I).Z = 1ãNEXTãFOR I = 265 TO 330ã CameraAdds(I).Z = -3ã IF I < 301 THEN CameraAdds(I).X = 1ã IF I >= 300 THEN CameraAdds(I).Y = 1ãNEXTãCameraAdds(330).X = 250ãCameraAdds(330).Z = 400ãFOR I = 331 TO 480ã CameraAdds(I).X = -2ãNEXTãFOR I = 481 TO 600ã CameraAdds(I).Y = 1ã IF I > 540 THEN CameraAdds(I).Z = 2ã IF I < 499 THEN CameraAdds(I).X = 1ãNEXTãFOR I = 601 TO 676ã CameraAdds(I).Y = -2ã CameraAdds(I).Z = 2ãNEXTãFOR I = 678 TO 760ã IF I <= 759 THEN CameraAdds(I).Z = -6ã IF I >= 730 AND I <= 750 THEN CameraAdds(I).X = -2ã IF I >= 753 THEN CameraAdds(I).X = 5ãNEXTãFOR I = 761 TO 800ã CameraAdds(I).Y = -1ãNEXTãFOR I = 800 TO 1000ã IF I < 862 THEN CameraAdds(I).Y = 1ã IF I > 861 THEN CameraAdds(I).Z = -4ãNEXTãCameraAdds(1000).X = -282ãCameraAdds(1000).Z = 827ãCameraAdds(1000).Y = 32ãFOR I = 1001 TO 1140ã CameraAdds(I).X = 2ã IF I < 1028 THEN CameraAdds(I).Y = -2ãNEXTãFOR I = 1141 TO 1500ã CameraAdds(I).Y = COS((I - 1141) / 5.72958) * 10ãNEXTãFOR I = 1501 TO 1680ã CameraAdds(I).X = COS((I - 1501) / 5.72958) * 10ãNEXTãFOR I = 1681 TO 1880ã CameraAdds(I).Z = 1ãNEXTãFOR I = 1881 TO 1980ã CameraAdds(I).Z = -1ãNEXTãRETURNã'-12,-2ãTheos SNOW DEMO santa@tir.com 07-25-99 (12:02) QB, QBasic, PDS 128 3253 SNOW.BAS ' Created By Theos.ã' COPYRIGHT (C) 1998 Lab-Xã' Command String Functions....ã'********************** Hires/LowRes Screen modes *************************ãDEFINT A-WãIF COMMAND$ = "/HIRES" THENã ScrMode% = 12ã ScrX% = 640ã ScrY% = 480ã JJSym% = 76ã JJSymX% = 16ã JJSymy% = 15ã SnowSpd% = 5ã SnowCol% = 15ã Snow = 200ã JJStr$ = "Created By Theos §o§ Theos.deotech@telusplanet.net"ã ELSEã ScrMode% = 13ã ScrX% = 320ã ScrY% = 200ã JJSymX% = 13ã JJSymy% = 7ã SnowSpd% = 5ã CFlag = 1ã TCol! = 1ã Snow = 200ãEND IFã'********************Palette Config******************************************ã'{}{}{}{Set's Screen Mode/Default Palette}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}ãSCREEN ScrMode%ã'{}{}{}{Set's the Snow Color}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}ãOUT &H3C7, 0ã OUT &H3C9, 255ã OUT &H3C9, 255ã OUT &H3C9, 255ã'{}{}{}{Set's the Text Color \HIRES ONLY}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}ãOUT &H3C7, 1ã OUT &H3C9, 0ã OUT &H3C9, 0ã OUT &H3C9, 255ããRANDOMIZE TIMERããComments = 20ãCurStr = 1ãDIM Y(Snow)ãDIM x(Snow)ãDIM JJStr$(Comments)ãJJStr$(0) = "§o§ Snow Demo Created By Theos §o§"ãJJStr$(1) = "§o§ Snow Demo §o§ "ãJJStr$(2) = "Created By THEOS §o§ "ãJJStr$(3) = "Well we have it outside... "ãJJStr$(4) = "Why not have it inside too... "ãJJStr$(5) = "ÆËÊËÊËÊËÊËÊËÊËÊËÊËÊËÊËÊËÊËÊËµ "ãJJStr$(6) = " COPYRIGHT (C) 1998 Lab-X "ãJJStr$(7) = " willard@telusplanet.net "ãJJStr$(8) = "Program Version 1.2 "ãJJStr$(9) = "SnowAI Version 0.20 "ãJJStr$(10) = "Virtual Layering Version 0.6 "ãJJStr$(11) = "Watch for New Version..... "ãJJStr$(12) = "Snow is Kewl... "ãJJStr$(13) = "ÆËÊËÊËÊËÊËÊËÊËÊËÊËÊËÊËÊËÊËÊËµ"ãJJStr$(14) = "Ahhh it's Cold Outside... "ãJJStr$(15) = "yea right.... "ãJJStr$(16) = "Where is my Comb... "ãJJStr$(17) = "It's GONE !!! ahhhh... "ãJJStr$(18) = "Perhaps i should calm down "ãJJStr$(19) = "Or Perhaps not...hahahaha "ãJJStr$(20) = "§o§ HAVE A NICE DAY §o§"ãããFOR T = 0 TO Snowã Y(T) = RND * ScrY%ãNEXTããFOR T = 0 TO Snowã x(T) = RND * ScrX%ãNEXTããDOãã x = x - .01ã FOR T = 0 TO Snowã Y(T) = Y(T) + RND * SnowSpd%ã NEXTãã FOR T = 0 TO Snowã IF COMMAND$ = "/HIRES" THEN SnowColor% = 1 ELSE SnowColor% = RND * 4 + 25ã PSET (x(T) + SIN(x + T / x), Y(T)), SnowColor%ã NEXTãã WAIT &H3DA, 8ã ã SELECT CASE ScrMode%ã CASE IS = 13ã IF CurStr > Comments THEN CurStr = 1ã COLOR 2: LOCATE JJSymX%, JJSymy%: PRINT JJStr$(CurStr)ã CASE IS = 12ã COLOR 2: LOCATE JJSymX%, JJSymy%: PRINT JJStr$(0)ã END SELECTãã FOR T = 0 TO Snowã PSET (x(T) + SIN(x + T / x), Y(T)), 0ã NEXTã ã FOR T = 0 TO Snowã IF Y(T) > ScrY% THEN Y(T) = 0ã NEXTããIF ScrMode% = 13 THENã ã SELECT CASE CFlagã CASE IS = 0ã TCol! = TCol! - 4ã CASE IS = 1ã TCol! = TCol! + 4ã END SELECTãã IF TCol! > 240 THEN CFlag = 0ã IF TCol! < 2 THEN CFlag = 1: CurStr = CurStr + 1: x = x - 1ã OUT &H3C7, 1ã OUT &H3C9, 0ã OUT &H3C9, 0ã OUT &H3C9, TCol! * .25ãEND IFãIF x < -.12 THEN x = -.08ããLOOP UNTIL INKEY$ <> ""ãROYAL THE GREAT QB VOLCANO columbo666@hotmail.com 07-25-99 (12:02) QB, QBasic, PDS 74 3463 VOLCANO.BAS '***************************************************************************ã'***************************************************************************ã'***************************************************************************ã'ã' the great QBã'ã' /// /// ///\\\/// /// ///\\\\\ ///\\\/// ///\\\/// ///\\\///ã' /// /// /// /// /// /// /// /// /// /// /// ///ã' /// /// /// /// /// /// ///\\\/// /// /// /// ///ã'/// /// /// /// /// /// /// /// /// /// /// ///ã'\\\ /// /// /// /// /// /// /// /// /// /// ///ã' \\\/// ///\\\/// ///\\\\\ ///\\\\\ /// /// /// /// ///\\\/// by ROYALã'ã'***************************************************************************ã'***************************************************************************ã'***************************************************************************ã'ã'hy, i'm a 15-year old boy switzerland. here is my second program for theã'internet-"qbasic&quick basic&power basic&turbo pascal&and so on"-homepagesã'the first prog was the qb plasma. it's great. have a look at it !ã'ã'if you've questions or only word's for me, mail me : columbo666@hotmail.comã'or write to me : magic bytes, h”ngerstrasse 14, ch-5313 klingnauã'ã'have fun with my prog ! but if you're one of those little pathetic worms,ã'who write in their "funny" games, prog's or demos, that this is theirã'production : fuck off ! you have only to write :ã' 'the volcano code : by ROYAL'ã' and PLEASE write my email adress too ! :-) thanxã'ã'i also program in hypercard 2.0 for the macintosh ;-). you know hc ?ã'please write to me !ã'ã'cu & byeã'ã'ã'ã'ã'ã'pentium 200 or amd/k6-200 and qb 4.5 is recommended. COMPILE IT UNDERã'QB 4.5. qbasic, which is included in DOS, is too slow ;-(. but you canã'download QB 4.5 from many QBasic-pages, but i don't know, if it'sã'illegal or not. you've to know ! but i think, microsoft don't searchã'illegal copies from QB, because it's from '89 !?!. (but it's good)ã'ã'ã'and for the end a BIIIIIIIIIG, BIG sorry for my english.ã'ã'ãSCREEN 13 'graphics modeãFOR P% = 0 TO 63 'init "fire"-paletteãPALETTE P%, P%ãPALETTE P% + 64, 256 * P% + 63ãNEXT P%ãCONST N% = 750 'how many pixels ?ãDIM POSI(0 TO N%, 1 TO 2) 'create buffers for acceleration,ãDIM PLUS(0 TO N%, 1 TO 2), COLO(0 TO N%) 'position and color of each pixelãDO WHILE INP(96) AND 128 'main loopãFOR M% = 0 TO N% 'update screenãPLUS(M%, 2) = PLUS(M%, 2) + .05 'slow down pixel's (forward-speed)ãPSET (POSI(M%, 1), POSI(M%, 2)), 0 'erase pixelãPOSI(M%, 1) = POSI(M%, 1) + PLUS(M%, 1) 'update position of the pixelãPOSI(M%, 2) = POSI(M%, 2) + PLUS(M%, 2)ãCOLO(M%) = COLO(M%) - RND 'decrase the color of the pixelãIF COLO(M%) < 0 OR POSI(M%, 2) > 199 THEN 'if you can't see it -> erase itã POSI(M%, 1) = 160 'generate new pixelã POSI(M%, 2) = 199ã PLUS(M%, 1) = (RND - RND)ã PLUS(M%, 2) = -2.5 - RND * 2ã COLO(M%) = 127 * RNDãEND IFãPSET (POSI(M%, 1), POSI(M%, 2)), COLO(M%) 'show pixelãNEXT M% 'end pixel-loopãLOOP 'end main-loopãAaron Severn QBASIC VECTOR BALLS bob_severn@msn.com 07-25-99 (14:37) QB, QBasic, PDS 282 11290 QBVECBAL.BAS' QBasic Vector Ballsã' Here is my version of that popular 3D demo program done in QBasic.ã' First off, many thanks to Lithium of VLA and Denthor of Asphyxia, withoutã' their 3D trainers I would never have figured out the math for this.ãã' This has to be one of the least complicated 3D programs around, and itã' still does just about everything the others do. I always found itã' annoying trying to understand code in other 3D programs, with dozens ofã' formulas and subroutines going off in every direction it was all butã' impossible to follow. This program, I'm proud to say, contains only fiveã' formulas for the 3D and the entire code for the 3D rotation and drawingã' can almost all fit in the QBasic editor window.ã' The code for this program would be easy to implement in other programs,ã' feel free to do so.ãã' Aaron Severnã' bob_severn@msn.comã' June 18/97ãã' Controlsãã' - / + decrease/increase rotation around the y-axisã' [ / ] decrease/increase rotation around the x-axisã' Arrow keys move the object up, down, left, rightã' A / Z move the object closer to or farther away from the screenã' R Resetã' Esc quitããDEFINT A-ZããDECLARE SUB setColours (pal() AS ANY, fc, lc)ããTYPE pnt 'type for each 3D pointã x AS INTEGER 'x coord (horizontal)ã y AS INTEGER 'y coord (vertical)ã z AS INTEGER 'z coord (into the screen)ã p AS INTEGER 'dist from center of objectãEND TYPEããTYPE hues 'type for paletteã red AS INTEGERã green AS INTEGERã blue AS INTEGERãEND TYPEãã' The number of points being rotated. Subtract 1 because all arrays in theã' program have base 0, so we want points 0-7 instead of 1-8.ãnumPnts = 14 - 1ããDIM origPnt(numPnts) AS pnt 'start location of each pointãDIM newPnt(numPnts) AS pnt 'rotated pointãDIM sine!(360) 'sine tableãDIM cosine!(360) 'cosine tableãDIM scrX(numPnts) 'x coord on the screenãDIM scrY(numPnts) 'y coord on the screenãDIM oldX(numPnts) 'previous x coordãDIM oldY(numPnts) 'previous y coordãDIM drawOrder(numPnts) 'order for drawing the ballsãDIM pal(255) AS hues 'holds the paletteãDIM vectorBall(121) 'sprite of vector ballãDIM mask(121) 'mask of vector ballããCONST PI = 3.14159ããFOR i = 0 TO 360 'create sine and cosineã sine!(i) = SIN(i * (PI / 180)) 'look up tables to speed upã cosine!(i) = COS(i * (PI / 180)) 'the mathãNEXTãã' The following reads the data for each point. It could easily be set upã' to read from a file, I just wanted to keep everything contained in the oneã' file for this program.ãFOR i = 0 TO numPntsã READ origPnt(i).x, origPnt(i).y, origPnt(i).z, origPnt(i).pãNEXTã ãPRINT "QBasic Vector Balls"ãPRINT "By Aaron Severn"ãPRINT : PRINT : PRINT "Controls"ãPRINT : PRINT "- / + decrease/increase rotation around the y-axis"ãPRINT "[ / ] decrease/increase rotation around the x-axis"ãPRINT "Arrow keys move the object up, down, left, right"ãPRINT "A / Z move the object closer to or farther away from the screen"ãPRINT "R Reset"ãPRINT "Esc quit"ãPRINT : PRINT "Press a key..."ãSLEEPããSCREEN 13ãCLSããFOR i = 1 TO 15 'set up the paletteã pal(i).red = 0 'consisting of 15 shadesã pal(i).green = 0 'of blueã pal(i).blue = i * 3 + 18ãNEXTããsetColours pal(), 1, 15ããFOR y = 0 TO 14 'get the vector ball spriteã FOR x = 0 TO 14 'from dataã READ clrã PSET (x, y), clrã NEXT xãNEXT yãGET (0, 0)-(14, 14), vectorBallããFOR y = 0 TO 14 'create a mask for the vectorã FOR x = 0 TO 14 'ball sprite, this makes itã IF POINT(x, y) THEN 'possible to put sprites onã PSET (x, y), 0 'top of other graphicsã ELSE 'without erasing what wasã PSET (x, y), 255 'underneathã END IFã NEXT xãNEXT yãGET (0, 0)-(14, 14), maskãPUT (0, 0), mask, XORãã' Initial values for the object. Theta is the angle between x and z, phi isã' the angle between y and z. Note that by changing these two angles we canã' rotate a point to anywhere in 3 dimensional space.ãthetaRot = 5: phiRot = 5ãxCenter = 160: yCenter = 100: zCenter = -256ãtheta = 0: phi = 0ããjustStarted = 1ãDOã FOR i = 0 TO numPntsã ' Save the old values of x and y so we can erase the balls later.ã oldX(i) = scrX(i): oldY(i) = scrY(i)ã ã ' Three formulas to calculate the location of the point on the 3D graph.ã ' Don't ask me to explain the math for this, it would take too long andã ' I hardly understand it myself. If you must know, check out the 3Dã ' trainers that I mentioned above, sorry I can't remember where I foundã ' them, but if you look hard enough...ã newPnt(i).x = -origPnt(i).x * sine!(theta) + origPnt(i).y * cosine!(theta)ã newPnt(i).y = -origPnt(i).x * cosine!(theta) * sine!(phi) - origPnt(i).y * sine!(theta) * sine!(phi) - origPnt(i).z * cosine!(phi) + origPnt(i).pã newPnt(i).z = -origPnt(i).x * cosine!(theta) * cosine!(phi) - origPnt(i).y * sine!(theta) * cosine!(phi) + origPnt(i).z * sine!(phi)ãã ' This takes the 3D points and translates them on to the 2D screen. Theã ' idea is simple enough, divide x and y by z (the bigger z is, theã ' farther away it is, and the smaller the object should be).ã ' 256 is the persective, changing it gives the object a different look.ã IF (newPnt(i).z + zCenter) <> 0 THENã scrX(i) = 256 * (newPnt(i).x / (newPnt(i).z + zCenter)) + xCenterã scrY(i) = 256 * (newPnt(i).y / (newPnt(i).z + zCenter)) + yCenterã END IFãã ' Here we decide which points should be in the foreground and which inã ' the background. We draw the ones in the background first so the onesã ' in the foreground can be put on top of them, thus appearing to be inã ' front. This section of code organizes the points in a list fromã ' farthest away to closest to the viewer.ã IF i = 0 THENã drawOrder(0) = iã ELSEã FOR j = 0 TO i - 1ã IF newPnt(i).z > newPnt(drawOrder(j)).z THENã FOR k = i - 1 TO j STEP -1ã drawOrder(k + 1) = drawOrder(k)ã NEXT kã drawOrder(j) = iã EXIT FORã END IFã NEXT jã IF j = i THEN drawOrder(j) = iã END IFã NEXT iã ã ' Wait for verticle retrace for smoother animation.ã WAIT &H3DA, 8ã ' Erase the old points here. I use the mask to clear them because colourã ' 255 hasn't been set and will appear black, this won't work if colour 255ã ' is anything other than black. The first if statement makes sure thatã ' this code doesn't execute the first time through the loop, becauseã ' there's nothing to erase. The second if takes care of clipping if theã ' points go off the screen.ã IF justStarted = 0 THENã FOR i = 0 TO numPntsã IF oldX(drawOrder(i)) > 6 AND oldX(drawOrder(i)) < 312 AND oldY(drawOrder(i)) > 6 AND oldY(drawOrder(i)) < 192 THENã PUT (oldX(drawOrder(i)) - 7, oldY(drawOrder(i)) - 7), mask, PSETã END IFã NEXTã END IFãã ' This puts the vector balls on the screen in the proper order so thatã ' points in the foreground will be on top of those in the background.ã FOR i = numPnts TO 0 STEP -1ã IF scrX(drawOrder(i)) > 6 AND scrX(drawOrder(i)) < 312 AND scrY(drawOrder(i)) > 6 AND scrY(drawOrder(i)) < 192 THENã PUT (scrX(drawOrder(i)) - 7, scrY(drawOrder(i)) - 7), mask, ANDã PUT (scrX(drawOrder(i)) - 7, scrY(drawOrder(i)) - 7), vectorBall, XORã END IFã NEXTã ã theta = (theta + thetaRot) MOD 360 'increase thetaã phi = (phi + phiRot) MOD 360 'increase phiã ã justStarted = 0ãã FOR t = 1 TO 5000: NEXT tã a$ = INKEY$ã a$ = UCASE$(a$)ã ã ' Handle user input here.ã SELECT CASE a$ã CASE "-"ã IF thetaRot > 0 THEN thetaRot = thetaRot - 1ã CASE "="ã thetaRot = thetaRot + 1ã CASE "["ã IF phiRot > 0 THEN phiRot = phiRot - 1ã CASE "]"ã phiRot = phiRot + 1ã CASE CHR$(0) + CHR$(72)ã IF yCenter > 0 THEN yCenter = yCenter - 1ã CASE CHR$(0) + CHR$(80)ã IF yCenter < 200 THEN yCenter = yCenter + 1ã CASE CHR$(0) + CHR$(75)ã IF xCenter > 0 THEN xCenter = xCenter - 1ã CASE CHR$(0) + CHR$(77)ã IF xCenter < 320 THEN xCenter = xCenter + 1ã CASE "Z"ã zCenter = zCenter - 1ã CASE "A"ã zCenter = zCenter + 1ã CASE "R"ã thetaRot = 5: phiRot = 5ã xCenter = 160: yCenter = 100: zCenter = -256ã theta = 0: phi = 0ã CASE CHR$(27)ã SYSTEMã END SELECTã ã DO: a$ = INKEY$: LOOP UNTIL a$ = ""ãLOOP UNTIL a$ = CHR$(27)ãã' Data for the points stored (X,Y,Z,p).ãDATA 25,25,25,1ãDATA 25,25,-25,1ãDATA 25,-25,25,1ãDATA 25,-25,-25,1ãDATA -25,25,25,1ãDATA -25,25,-25,1ãDATA -25,-25,25,1ãDATA -25,-25,-25,1ãDATA 85,0,0,1ãDATA -85,0,0,1ãDATA 0,85,0,1ãDATA 0,-85,0,1ãDATA 0,0,85,1ãDATA 0,0,-85,1ãã' Data for the vector ball sprite.ãDATA 0, 0, 0, 0,10,10, 9, 8, 8, 7, 7, 0, 0, 0, 0ãDATA 0, 0,10,10,11,11, 9, 8, 8, 7, 7, 6, 6, 0, 0ãDATA 0,10,11,11,13,13,10, 8, 8, 7, 7, 7, 7, 6, 0ãDATA 0,10,11,11,13,13,10, 8, 8, 7, 7, 7, 7, 6, 6ãDATA 10,11,13,13,15,15,11, 9, 9, 8, 8, 7, 7, 7, 6ãDATA 10,11,13,13,15,15,11, 9, 9, 8, 8, 7, 7, 7, 6ãDATA 10,13,15,15,15,15,13,11,11, 9, 9, 8, 8, 7, 6ãDATA 10,13,15,15,15,15,13,11,11, 9, 9, 8, 8, 7, 6ãDATA 10,13,15,15,15,15,13,11,11, 9, 9, 8, 8, 7, 6ãDATA 10,11,13,13,15,15,13, 9, 9, 8, 8, 7, 7, 7, 6ãDATA 10,11,13,13,15,15,13, 9, 9, 8, 8, 7, 7, 7, 6ãDATA 0,10,11,11,13,13,10, 8, 8, 7, 7, 7, 7, 6, 6ãDATA 0,10,11,11,13,13,10, 8, 8, 7, 7, 7, 7, 6, 0ãDATA 0, 0,10,10,11,11, 9, 8, 8, 7, 7, 6, 6, 0, 0ãDATA 0, 0, 0, 0,10,10, 9, 8, 8, 7, 7, 0, 0, 0, 0ããSUB setColours (pal() AS hues, fc, lc)ããOUT &H3C8, fc 'tell controller to get readyãFOR t = fc TO lc 'from first to lastã OUT &H3C9, pal(t).red 'send red componentã OUT &H3C9, pal(t).green 'send green componentã OUT &H3C9, pal(t).blue 'send blue componentãNEXT tããEND SUBããJacob Wieles BIG IMAGE LOAD/SAVE ROUTINE jazwls@worldonline.nl 07-31-99 (15:56) QB, QBasic, PDS, PB 108 7097 BIGSAVE.BAS ' BIG IMAGE SAVE/LOAD ROUTINEãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"BIGSAVE.ZIP",4^6:Z&=5028:?STRING$(50,177);ãU"%up()%9%%%I-%>T[g8NãU">9EXPrR1jYxi[yA$G]_2nTo&B/'M,Yv>8m\-qfTi3Bbb]kS8vDhM^ocH.9d[=ESãU"1ChG?5tVDKK^HfOKdc>PXr+bBT\dHSF\xJMDEJB/v;k0H_rx>L[BVRp8Ai2XK8kãU"J^fGq]Ge(*#sG*C6aaR6#,v7pwZ2W]3k$]H+XJG]1Xk#LhZT&b2^OBf;#Iow>EBãU"Bsa[:6aUA_QqT5W6lQ1ic$aFFrk_=qu*f1..B>SFpVXYk=[P655Hf%A>Tj(fKUp4tRsxI^F>%V3nBG+rWãU"J4mGzY7eH&m=iCdkeeGIA^?7h*pTI*XlJ)ACm2>dT>YHhe4PGh9,SzI&o.GQGo&ãU"Wd+8+e1DQY=YKV$kGn/8N0bl9oOD?Gz%ENP$^OG'CL]i/DvFp,DM'FOKy;JbãU"t72etOa*TKz[Fb4BRH23g$DR?p%KR(dfsavk\tb+exTL4iUDafU<'1>I%62_G[hjH?uVpl(ãU"ldfv^7A:Wr9vCu2,yk_&IRFZbdUv<[3?[MNL*7Sp;JU)6f_qI&cW]6saR$#C3B$ãU"^9%vgc3+Z>TA'9^$g=wEe(U1k<'/mm+%w\$n54,*jtXANLZ?(c+ãU"5e9s6qO)*t?ORLl?2T)l(Rqd\TX#gN&EYp2U?vGP>;72I:'+(8HT:dBGJ<.'%5%0(t(bxxf*ãU"Y)>#k4nt\d4,H$Dlb\F.s:p4sa7HipZcg\2'(#k29Z#>OTh3n\U'q9T&LlN]u>3ãU"cl58=n'3>915+E]ae48yw=)'$],;_n8[U0f=Z5+bIRh$t;c\bghx_*vLk?e*=4=PGihae35/&y4MgQAn,rNChãU"*4d'R^mZI.q)EC,BcJ'Rs;1%P($]O/w1At,ãU"RDnJI,PB_=c(UNA*$pJq68hEqAm_>LAM+HZ)XvNn/VC2pXmG5EK5%IGtGv'Npg-ãU"%[keoNE7pn\MNI.pJB)H5hl_G8_,W9&lVCtS2YY7f,hd[we07x\EQ+pbG<+I;bAãU"A3_P]_Jd31J=0Tf9?]DEH9kI_*3u_ECy3?-SKR*GI\)A5(KEJpNkf/IS&Kl5%ILãU",7rJ4_dU?**jd2<K9dfRvYUsf#sB]u^=vãU"/[p'j5keUH(P?r4D_':R2)MD?cHf9]&wY>&oeQDp:8IA0nãU"o%j\.NC*-BbfZ)07F([37x(cdV:,:KvAdWRt[b1uGWYdzCTBLw_Xt'Pst0+,vZgãU"X).;EKb9Uyc:O$7XZdNdb)3CwN(yCx%t3dLiN^?dR,]7GHM]X\<%#ic(Fc6J%W7Qq8?b=\fn'&&\/,J3z2PH.xvQ0)%>[ãU"Vds(20iBWN7s2n(+f:^(vB=:5x_b[eXP\)rFl-2,I(RaMMsH;cAjHFYP>>Hf0Aj.>0A4>ãU">0A%-M3P#IU1H^j#y](Jr]1(^u]1C^t])[6'Qw%'up(%)9%%#%-%)GAxKuKmu\rãU"[(%%p%-%%1%%%%s%qtfi%RugS#gfx\gz<>TR[5w=Z9xZyp>zMAJ=Iv8Ee%>a(S*ãU"$1,8/9P++e0R)l2G7;8_MGQfP^>2e4&&#o=UHtFHVd%#,A&4Z'vj[BQ7-9:FO2DwRui(ãU"v\]C_r5i0h(&A>=2br>:Xgv\oz*D9OYc4)X:ESQJHL2jJbF0mysCKVlCa:+i6spãU"=T[]m;(1.ZdaO3.PbO4v^qJKhgTRoDr7pCQo+sYj*Aw$Cb88^Oi^G3t_NNFohsnãU"pe_xKFeCv)?qV5[+VBR6$JEjHRA%YARyiPx&63Fek9k=4l?rO3jw#:UWv*'#CuIãU"rE\b<1+./PjB$DpX7.*GãU"L5k*3Kls.vW7CETcH+fHt#GgZ(/Gc.q72csL9f^SQUaJ4gN/LV$,yFsfM#*3i:]ãU"B0P0DJ=oWC?+B.>qbJ:+2V$I$%zzm:/D-Gq>ICl11Xv$NCH$JtSd3#S?O-geAMeãU"ss,IrAvcaITV4S9nLh0VGbmzwnXl*T]]n#>#CWAm#a0mFL%U\Qu?&e5qDB3WLB<ãU"1.nRH*GjS[Q](_&L:o(:uq>#wZG4cfzl2lI6B>-T)nth4>bR\p?ãU"Wm/p#oy/PE?C-Vl%I*bdbcx6S0Eddr24gft)s43-8+#9^_t)?BV?P9DJFuO:QYN3?r'x&up%(ãU")9%%%%-%;&AxKN?),='c(%%'(.%%%1%%%%sqtf%iRvg%Sgfx2d%=F0*m;$]fOwZpVR,%Ls-bJ9F4FN_H55Sn>ãU"(ht_jMk4-qFH;?u'ZF&nN-*K4?ksB&VsBrZpn$,?*[[>-qp_ECa+PK-w5W8Jkx-ãU"ThH=DEm&G(Y[Er(MstudQM/]7Akoz-Pjn%t8?Pp?_R*t,=ZNpn&5>r*Djm%&07fãU"sa0o0j1OK56#8CVn_6cK#g,A.kD+0k0-:Ap?Ufg<22kS(J]ce7tSJ1lGYmd4US9]7FCg?g(fNU6*qQ'7HU+/?tk.qIvgQR/-mC^U#$lXU5k_JeU6V#DMãU"#2B*=C/F]DLMU*]H4]ZWcStqS1[6;u*NS%4-UUpxpD_d.^3ãU"^*N7pAa\#gdcQJh+Ur_SNYT%/LU$?YeIGXI:D/7mK\^4aET]DãU"G2y1gbgj6jR,,Iv2[r8W44XRX2tk0E70U?I5P+,%aD>EERery#K/0ctN?++HY(*ãU"B4SQn^7fc>naPARP\?K:n#-r2LOY\,Wd(##QDMaY=m21c$:^V9UrN2V;;r)v1%yãU"eho:EVmH'Rl*(FAL:6,V%:roF01m1$2N_V3,K2%jiRu'=I*HCGp>$sRD_5>z)3mk9d+=d.Kp25&%nKibWugqLd^4YbX6xgU\Oy8ãU"HcuGJ7d>N=Y7hZ+BVLOA&PC.=&WRPL7OxRISB7)Cc%*,1H5:$1%*K1*?ãU"rzDkZoLQt:1U>.U(MSPUeS2j:6K7ZP(j)6S]8Y=][Tjc6v*E-XG];7R1E^W8YDGãU"E6[8Y5XuhZIKBd25G]9TbA.#2S9kGZ[UP5&tmnsI]^>Yqq*sYGL/lvnEI(ZlTQ^ãU"mlOeYYc5,jq[%i6Z/FH[V$hPG-%])(I^ic$5+f[#J;QG;H[<(R5G0rziS/(?R&XãU"J\?lqO#/dj[*+bHhO9\bX/*GriJ(CebDPBfMuHn_i-DrR-O/$ieFG?j,1uY4_]*ãU"%;:+lzpJ>aFS/=uUF;QMkgX=r*Yv$Sm]%7G%*g,%dt,p?$63q5-kt\)buLl3uX2ãU"+(>MdepC\W#wl1G2+8b6;/>i4$.msK8JifxXK<'x*up%()9%%%%-%:yAxKWH&IJãU"'I(%%%S/%%%.%%%#sxf%#jSy'1y\%v,>T[5kMWOv)VJMUg#_RQ9VW-e(Ck[P.'9ãU"8X,6TXJ&lQG7Dx$y3ZfPh]ScGCE?S^>-tDug\cpVBr$L^Uu^be-/jrZM0QvdE#8ãU"'Lv_L^;aMebYq+0a7t\e&n&CK%Q3T)>eERf-;Z/Aie/2F?)UtRiCz8uWQ2XuBG(mX]5EG^7msu-2[;^gSW<&Vpu2Rgg.cu?3ãU"dI07^1v;55+:#aQ))hbRAL96Y^M$]=bgl/Q$vH8GWN8l3;pb'a4kp:VJ)W0lGYDãU"P\ga/46gml$G[6F_'pEmx-)wk9:3)F$qle39dDccG[)0Nn+3wzd84zNJU^cv1$:ãU"Qs*3\+lCmj3fS]ERAit4$x<-6&Jd_Wx-C6dYs5$:7)EYYXj&[>%Mqo7Ca1e55jzãU"P<#aFf\'MO*j4nYG'*L/$?q1v5g)DI'+ZD+96%-JRsjIV<#XQ#?BK+)3&CB:q8cãU"j8I8YWUE20TQqZuphjE^jGfuHKC-_YIOf&08\-J#i$d]I->\-6ibxCyRR)Spdj$ãU"4:r7'r5VH3X(>rV+OiE.2cA.3rdR(w2R>bDQw9)?=Tux6U9FP0Nfju.DRDãU"r>Z9r6%cnB+aTPDpVi]KJ?djY]qj%WB;wKhcZ&QEZGjf3;nx$'P#S=1hXuEt+B#ãU"q-v[hSYGn9MD>V4A2+sR'W7t*vkT?4^QklLrrDPXa)G.dR[1WhF0^X<4TV$*[0JãU"k%gke<\U8\\&xa4EwYrr)*Csr2$POIqN;/Yp+I,5EW+fRPu_0lMRl5O6n7meEFLãU"st^7u4jV67WNkZ_C>#MbLCVIO#a:mJ0,'HG3led+8dkU'oQ78IJYFMEU/PAr[5nãU"^OleW$rBocA2=kgv]f:F^6?u<_JDt_fnRUtNw+vX=jxqiIfe$.#S-tIVK7]X^JO]JXeFoC^gW4s8eJ_A7[NsXJSI:ux)Wi,_:7J*K06-W7aW-1r_VVnãU"&ZHhrVb/oO\gJVB1ZTV(L600_p>bg>xHp-uj;d4\?,4n0=\A6JL<ãU"oN1M73TE.eA-;D(=fM7x4#Dfq)$>m*lKCpcq[%R?72W(Rvz8L-)e8_aEDI)-_KjãU"r3yR#9Npmf*8S?uQ]bcYyLN,-NNb81[SN$h,>7x*=o$?/]BfrZ7A$>]^7/uL/VmãU".bt9r1J-JvZe7^,#,NUaj(4zU^NVS*PW(9)&_#A#'W:h>zP-1Xe4Pw$<4-;n8/'ãU"iFFk[huHlLN8;c8l'rXTB^0KkPTG\N7(8x[GM[kSC&sG\c1j1fEYnb,5QT?7n=7gW8qAw)iP2U=kJãU"Ji&kanB2+9Fdj0l5;DWu/[GF7_,Q$muAhLMF;\gLãU"uP9#C1O/>CbIV-Bjk((\5,[27u%,b7PZD;wR'ocMc--Yt^J%:pofsOCf'SEãU"c9PV*ciNu*6hl2Lhoud7lR:fb>_^aIRzo<^b>2rnA^[T6+kK64j7*9KrGYKo0MkãU"^=MjFu$[ZMk&dClDroGUwo&qRF>*Gi+P#.UwT>k)eXhkURyde%CpoEUAPfãU"Uk2w)s>4o.rf0_&(eNY&0##.+E1ed7Q^KvP9\WikF&)v.WJ9^aEdGQdQr9l3b&DãU"JeTnH'7^:Q61TExe9#2?=;^#SdS''w^CFyY)UXs(C*0dMN'l58%\+_#c0jer$KFãU"s&3jVrAB2&&&UhwS28T6K[Zn6rlq^K4B3TKf2obg34[\NWrX%Up^yS4loepL4J'ãU"]<>OVqx]2I[PNp=Eqp\<4RsPulDr4m8]PDuUcgKfP\i:*mXeY_?dSQDK$o6x#4&ãU"mBBb$_FLGhgy$pfc=UpRXA?QfH/;[H#nQSgIU33q-UBbZ0bq.2[4;t]eF0QW=N8ãU"])C\fH[2\?MSpV5qY2-Q?4B7?ki5';;B]r_7b,lTGt23Wi9PIw?AZb__F*c-7XOãU"Wq2Q4DyYD85.^&EjNvr##:Zt8=zãU"JqMzz(/n2WHAo8aH/tK*wDsJUX4\#Qo8Lm%Mi_tQD)gVlnuoJJh%'bB0?s5NZMãU"KEUd2.L7rg#T7,zKM98N)kLk()'lgJrICNNJihF3,kpdyj/Kk+ih,WcE\zl.mScãU";*oQb)2:<=qdUQJ)?,CsUpbZQ&l)O,^&,oiyh-M_7\rmEvqe5Qx[)Q5U8vaHwC*UVwS>5Vc%<+PX%bx=/7KmOf&p3?/c+,1\Xr>/^]0Y&TãU"bn_Rzf$X&[hv*4__k'X'HPvfbNn4b59Bv1YvaVMKL:cnM(30-K?h4G<\(VB/+__[^JJ[*Lpn()[/uhujw/mG(i+Kg0=/a>ãU"kd,hit6u0>nMLCM\>t/^oK(&xUYybY('6$ZUr$&f#ptzh?ãU"6]qCM]?Oc0a)j_EhG'+6Tpox:Qk:xRZzx_$'96p+l[affpg^pWQ=ZY3l(_COt^QãU"utrb2\3Rb:_bjCC[hsbLO/psFV)J/f2#4yHn0^:W84v/+X)V%O$Ov0BlQnCt7ml;^2\sv1xWVC*b(p-nYV(u9S8&S6b=0e4_RmRM0UqprU/oN-:PKfIF6;u/ãU"Y)0A4ylX*.\m/61FM(_W0Z/W7x[xc$-GtDYO9T\c_S$>YUOcK:cf6#HG=\huTL*ãU"#vK#CJi'TPyw7cm-P+/Dq&](:\?r-LMZxXhWE49V%3]\HwHh2QnGjYUd8(4,#VdãU"hO5sZLS(uAuEnrut?dRV^CH/bV;(CZ?64bOOQC#1=T=AJ0=Q,nF=LKF+?O1/n%)ãU"I98Q+VmT*rO#^c)=M5<=sN3Wy+x#,QLw2V'SbJx=dE,Lhgn%6wOw^h#CG%i1D0DãU"Q*\c+px&u%p()9%%%%-d%$8x^KGB])6C)%.%O&&%%/%%%%uqf&(fsS^y'yfQUfAãU"y[_=+IrxJ_U6Dt24o6'1w,*Sb*1ISW9Rd-EI2uE;OhWZg=Vw8^<-rhtPGCb/,T3ãU"uUH^Z8EdT[\Txca$oJ>(RJL'IWV+'NX-*I\thg5]PãU"mg?(?(ll($AClQr/l'VY[dP\V+=c3XWDQpH4QxxCjhbHVYD0l].+V/=8NdsrvDFãU"3fvX/1TT8bePI.Y)DU6k3NV0(zQ4fe-MpJtHV(>ZMG7an'a70VkdUws4mh\6=LYQ]8JoqFFo4$A?oqPL6edywTLyea=0S3knnF[ãU"G%e[\z4k$EM]gJCp/1bFdSV$$D<ãU"h*A:>cEJzjx51LLz-VF_bB3DA$W.CXxutx4oSl9_FBPK>&lxbj%B7Lq&6aKtP>CãU"bK:<3Cb/J,P5,Y2>%fBa[,u?63':E,eD+tIcw'N71%sUp,u1N4fLJBt)P5(:%#>ãU"JzuIjYpO]^U[532i^9uHREQPD7M;nd9B6md?8Jfs$+Qe/])jIh>G(ck?7/A[cVwãU"Ni7u\_Lr1%VAh998NMpC#d%m[qnVeZ23-3KHXMNVBQaGz+pq\^h,Dt2qbB5DVpa]NB_/2VãU"2UXocSs2.[D$:qCrIg]7x\hRjT-ujxOmUmsxW&5fG+wMA&F:iD?TjQg4.BjR:.jãU",)&$Qj:(gnf=o*O=;rM1jIVFGDm&UZE\lDpppf'Ietp&WSt#kqC9D$HXnaKtpPCãU"bKj:3CbU/,3C6bKtpefS,3CgfS,eppf'$Itp0j83CbEKtp&6aKtPAC41,33CTSGãU",3gf1S,ppefS,3YCbKtpp&aKetPCbTK:3CEbEgfUS,3Cfb/,3DCTS,03gfSD,ppãU"fUS,3CeTS,3CgfS,eppf'EItpf:S,3gJfS,pppf'Ietp&aEKtpf1S,ppYf'ItppãU"&aKetPCbEKtpf6'ItpY&aKtpPCbKj:3CbEKtp&6aKtP>CbK:<3Cb/k,3CbEKtPCãU"Ebm[C+d(PTIon&-jC3CbU/,3CSTSV:-dw(u%p&'9%%9%%%%-%[GExKR*6-MC#.%ãU"%2%#%%0%%%%%%%%%&%%E%%%%%%%%%nhs%rfpj%Sgfx%up&'%9%9%%%%-%:$8xKSãU"GB]6&C)%%(O&&%%/%%%%%%%%%&%E%%%%l.%%%uq(f(fs.Sy'y%up*+%%%%%%'%'ãU"%&#%%%'\2%%%%%ãEND SUBãCLOSE:IF S=98AND 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ãDmitry Brant JPEG VIEWER V1.2 FOR HICOLOR dmitrybrant.hypermart.net 07-31-99 (15:33) QB 329 21737 JPEGVIEW.BAS' JPEG Viewer v1.2 for HiColorãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"JPEGVIEW.ZIP",4^6:Z&=16024:?STRING$(50,177);ãU"%up()%9%%%R-%Vz]JKV8;sk;'%%%Y.%%%/%#%%q8M1E4BJ0S18B.zvbAiU5MZhEãU"vVYL2W,bvL&mF]t-QTM>nw)'Jck;W-_U_#1]*-87.M#/'\LaM\h+ZX0X=X[Rn=TãU"?8U64V\?d8F(d&:k3B6Od9_U/#70=8_=K3Y$F1+F#66<)N>A1hc/*7q=e6D&m,/7Pem%)>Sk7u3r]1Ev$ZDOFãU"q4RJn-nsL]UJJFV0k_NWMTKeDM%5k'&ZN6kopQ<]?-D(6Y0FQv%C-Yu?R9Eu*%jãU",txr$VgJO_'C?C(Te.n3Kf/VfFNW:ju>^?WV=ZnEO#YB_CR)pmC1C,2OKhGa2;eãU"g(MOC6#IG-r_tLRDQ:Nmuc-xIZRr0RRNWK=*bPnj7-HImp)<($O^M)JiePiF9^:ãU"lz'>uVmBe4ZImsLYrvtDY*tBP]O]pkt?4I5]jEfMBj75Epa[7tqb__FqLpD]dZ*ãU"N4#d%/\y#r-tAI?kheRmc&CjP,UZ^Oz/*Mz:K0utdQN7n7HNDOz8(r-qYiegTK\sUZA4'+umUIAc'm&),b>?[:7Sga*QTY;Zd&R1(BSQ-Vp%o=Ef[d.EQPX5&Fs],/33cxF/HpreL9bcBV;RS7BãU"+hl,Z;:?RQ$8LL3FBEgz,w#,mL:,o3)'gG2p#j;o6G\k*y89Z0718RG,LnO4;Bpp>,*ãU"VZ9<$\sXZIK.7?3,;E?])^,;)+s8f**Q6ET;l=Rk4X8_l/+*%]HDfbKO>3R;.W?ãU"B7#K5ZCaBlnEU-a8o6]Kf&(XNVI:nJp+^<8NGãU"M+W3V\MU)Y*A%BuhAUW7OnUeBIS7bClE[eCe[;qivbr9HJgR[_hjW9Fg.trKAB;ãU"h4'X?Si9;%%Z)3BN('Fr0;iwd'C/-i_EOfd%D2T8Dj8K4s)Af;YWfQKe>]1u,NaãU"M]tRG5_(VdVt+*uM5#rZG04TN,nUuw'Q)8V%hgr1oYiZXtA\?GSAWYyl-=4TH.>ãU"E]bua(,-[hCmn.*KSf1rKj1^L1*4#hBgPAGu1]G06AbSmWT^o3Vn6g*\\,UI1BBãU"B)C.dW]*;-+,Uj&;^w00PGS_W^zFTXSF#sZqs]muh$kTG4e-tvF>U?*Moa'T[$7m)O=JiV?Uyaco%$v]ãU">[\acFBe0Y^]]h#EIYUJs0\u46SaFJEYFQ39*nF53qIRV.Kw')Cf18I*j2r=S=fãU"(6#TQk>z;Vp8(S4%m/NO>TQModq?a5j73cM)HjR5Qd5p.209(*.ãU"76]Zx86NUVS'>1$i*V5*LAB82bLhSI;s4OheE'-LGhFhP=37aVKm$6Q&M1p++[qãU"GC$U5v].')qj's=#'DRqV9Kq?$Oi>2l'+UpT)9CUylSsKPQcpO7ãU",sAlCR%gluRn[SC7E.f8MM^\FI]VPZug8m1,*3i4ãU";2tk]]oJ,Jt;RB[?1sKB+_UHi^TwS)jr?=RNKijA(L-9HGV]hg^K;fav3&t-4A]ãU".uf8b$3J\E5;JM&P5PMzCCjWa7fTJ_6TDxlcgJec0l>(l;.g_l7(M%(5oCA2AwAãU"L?$'4[epVzAaY>^]SDkhc[;(CnT2tj[h(f#ON^wN0?/Wgw$Iw+ãU"6]-6p#l:wrW44Lj?)Rhgpn%,hRBELqVioplSVjp^hE%e>OcSU9US]w/tMkx_o6=ãU"b6X)RGtj79c535lg\MukW5sW/aD^R^R4)=js%(C'wF>BS)r&jv6Rflu8E=%=U_7.M,5xJbmWML6ZR+H0FS3iTCA0hgãU"N%)u2F+X-sAXgNt6P%ke-wQCk%>p1g>fX79ZH&Go0nJlv9-VV((Ye-T>W88,lvxãU"/4qVQD0JE]m._I:U*cPe-igSJL_>1HAZuO)[U&G$+DO8GL>gbj2ZTC0=3Cu9%B:ãU"NmBEd=\ogN7V0JVxAf70UvSI3qSG)7'W[E,bK\XZ\C2mNphkV^2BsaC(bx\&:bOãU"#-\'yAbFGXSiOdrT0s]3sdIãU"]\qI21)aPJ;Et#JK+'3Yqrdt^.nA._t^f%)Z$9*P&Mv59nt>,X-<0*_72QO+q$3[$1'bDm#+)T&KPONHãU"y/S_QMy,iLxHVP&+bU$(D3gp98S9YY-lR)M^v+^hl]6hmI\Mc9P_Nhh[FSvq4A<ãU"a2SUC425OCh6.8.=Rs3f9Cu'3jLhde;bLWJ=H6X%2e\WlX=xCh-OAk[-+?ku7LEs>28Dc/5..UvãU"Ng%sX_CkgPp,\5vMq_]t0RPNGEC$0.YoO^4[O,:1X=M]1dBIQq.y6pemjaRc[^HãU"Eu^Gd3j[fiNZ$N:*b0i:l+K<^1zKL'D<'M,R;4o6r,.Z:4^)WhhXRj06_%Gigt#ãU"B;JrQ_i2b0Ose2pq(,qCPCNP;qXDN6Aw7MJI'UfM$kY9q^a&?'D8IA'C*#GhtIgãU"^232_]&Q8_Y.j(TOo*a+K_[4oEHi\k^lL/vN4DVu)MZ&yjX/VAK0*(.i:#tRs(KãU">wETcS>(IW33b,L(t22b1&0_.ODV4kf_[V:vdUhHdNUeH,7rxK^&6#C*\ãU"2cfq5N26$IZ)pV0<4R<-NBX*u918#7ro)JenY$Jo_[W*N%h;j=5lvk9/X\4&JnRãU"7i)cW^_+_=,$u-RC$&2,t:$IkoYr8IB'A-%Zb4*8XAIGrz>(W4YgdAzYeNqãU":hq_\md=Yf%:7#o\)4Ib.\IXin.\WMltw2.j#jceurA*g%=Nh&q\ORv\dc-%t-h8qD82Q+JJ(z%/i%_l&O?ee)?_QFãU"v(QWb=:)fzW*V$-#Ib7u+6Qowm\&VJ3==$9%zn*e.+)AA=:i;>+pk.]88qC<[1TemG\>GMmDdsYIUXXwj\$a-xBll=$Hg\0G[VMWQQBãU"iTNRK$_A^4-4aU2Q,kbv+Is:,&g=NH\#Nf\jr/N;sz5(Cq7*/PRcW[DboãU"gne#3/4YekMvJdf(X517VdbS=>3uvWhm.zS+*]&[)ql1^FZO[tHop['qAcHdftqãU"02&OkN;tGr>5B0HrQzI;g*:+dCjMW*X.B2ãU"W8RNfS]a6(+Yr^DJ0dDR[2HgrB4pTO4-?1RJ&hk=MaãU"*GK(f^gDS%,;p\J,?2swEVNe]^NQ:[aouZu(bw>tO[7lZlMWQ(.W'a2,,m8RWXYãU"q;R;zY2[Vm#+,r$FGi>3]Q0D?4v<)j4RJb5'1g\)K0x>P?Q#c]l:)LgiMpX^'Z.ãU"ZBs*EP+v$AK1-2z#U[_UYp:+lc#e-B2OCVUUãU"mskq]qCn4(EkX$SX#5ojForY*I_4EaJSB(b>j[L+tnr187h,#9i*>:.^J+)vuOnãU"MFZfmlt=BV?UVU>Bud.N.(^*\tns+4z^s+D^x;/FQ7mjk3fHFr8We2JmQWlM)ãU"tOrDikM(I41aX(Eu>9Mt7ãU"Im[vtplQlnjjO16o(Q,27i3.%iIeZK*-hA$ScJBQ(c_rgc$MN).]fL'M/z+xX']ãU"-E8eK(J9Z.sxDS&).['Rv:\(/fM:5nZoL2SmiosT[J&s'Z_]$qB^+[9,;l1ITQoãU"c$5/:Qc&dSQ,Y2p[R8N?lm*#(f(VNFfei7.ng:LHZ*n'2LIbz,bkivXcW_XpnHsãU"m^[:K^WRb4HS97On6W]hn5Hj'\kb4K-[eH3m,*#Y:NM-jqqfuK*;e-pj[]rMf%2ãU"]T1f*=0\8F%+3mEs?0Dq7W=D[q$.a%hB2*(Y#/lSv15.;-APS>Kw[;gkqbT/-/^ãU"CTKfn](minMAhw[A,Wb\uTXLPP0L797dq9.(u\,jRDE5_70_I?:RABh5c[?(LasãU"&zbZS++/Pu^5Em+m0M7j:z65#G67]4,HGãU"?I?FZ*]x8UQhBwrBn*J)g#9v7B.R*'#0;Z?,tHr9rãU"X1wG_)>Is\;hDYJ_Hq*(8vO=>gRine75e%6+:K-mkpHm.?[h(:7$lv0lv=#WgfdãU"GoF:x>)0jy6vt\M[R>0u6z1HiRi&lqC[aj?*eNF:lJ0[YB/3,\zw&b>Pz&vQLFIãU"iPWG#Seykl\pK5432K*gzKS>0:\U[W/jg=/9;cVOVSH/LE($k2*tP4ZE_-(ejs$ãU".N'i)qUu&oiCv9?ke'Qa4Gr1nl%=KwMMr+MUVoCT&D.8mmg-ImGdbt-7Z:]^HH7ãU"kA7B7sFmhiQ'H0l:Hb\vD$Kt^,$eQ\h_Lq7rlPKHcmRWwBINkEh.hHWHqSt6h''ãU"nNhh'Zh5cm;->iTcZZDkq*^r%,vqP5Kw[I$^fkJX,PmKchRZ7iA_kqG>\l#b3=&ãU"I,8C1itrsS&mF.T1n,_m,n5.ioDcq?cY>jSx\Q*vlEjDRKCW7b/lb8Pt)ib>5H]ãU"3Rl$O0i2\ijPue3HI7D(^qt4X<]4Jok=4j/YBO*fT6U5(nKYrqx&uOKXFA[0(C0ãU"8'q3vfg$8x,qoyM8U;6;^Hkm/b5y_4qGo6*sl8fboãU"dZurWcbI01ZvwtjuZ#uZ'.*fCX.=hQ19p94%q)#9qIslvs_\V0U9jjX0rB&sAf4ãU"6^)$GfD7lpnu3c.%4G2IxJ\wmoQkl3I<+m1fpX$hl'kvhk^&d4Hr7DTsR3+$.iZãU"jS.L^as>p[=%8hG]FYo=br-3-i1]VbuNU9/Fh-jJ.jI+fwe]h*dxOSb%ms*MDQEãU"k(*wj[h$oKDp2e+I\-(oY3u[PZ+1]p^82ãU"l1rO7'DiR?Ua456V9KqlH7tsntL#(7o\lXjYjhI8#Dt)>?b6nw$.[T('^&.bn6*ãU"P^e57K=Xo#Ny7zJqmu:*qMaw>?Rpmznm*-1wnRn(3e#Q6Dc#R.uc/;6oqK>XR18ãU"uxEY)Y(qV%WMk_0>mr=[n/Ru'vTup%()9%%%%-%;BsRKu=V_6&A6%%%FE%%%0%%ãU"%#qng%%jxfS[qngN&(0yzuN3w_bIEZR,;0-iBq-ibmWrLK(y]KEbZ17eDG;YD%#ãU"O=c&O%vpqEEmWNo5x(K<_%%Yq6lCqJ,,L\0Ar=ScQ,B=aN.WikP^\%jIiw3olBRãU"ZQqc]msZg1qF^*7j^PkxZu$xirx)dX5\VOMqOo\0#Y=fxRN.'sHEqFXLdGRPY\SãU"5QO>^Ht32.JHI^fG%N[w$L^8Yo_o^;Gc/j]7u3X*V1k:ly9[^>061bO24Q7q(;LãU"k[]9.f-U(RbUW)jM_1>K;>aãU"\U4_Ra5\juiN+#E3r*1,lM5$1B=%4%:pVgd65n(_;0GysK^dc>2)TB:kh%0w%U5ãU"wlY47$#Nbivuh7PU4RkMIqu?uK5W=O.sFgR]vKkH8/D.mUAI%$:$Vc[9=B]'*[hãU"F5>7;DqxnT8;4-pJSk0WE:\=Y:vW#)AsG2h2gQ+9Jo->24P/r;K4uV>1Ug[FP2BãU"GapmaA\']E^jLsb5A_ekHB9Kob>0b^xo/IfIn&Ix_E:BfwFIZo6s:Ds,7Sbh^#2ãU"AykSY6ARAJ]a(mIHTcn$-;F]3YqMD%.*67&A_q>_8hWK(yrIw.=tgW0MW4]Q)9)ãU"=6Af&Zf^o3xmGxG5WAc34:o:l3RvQ:9<&oIoj'&8C4/R_D2fna\ZA(D>AãU".5hE'bdfN8crcH:Cu4]1Wg2G,2pHM%H,HChHpHY&R%w,9/_x$F&0MMH9p)'&w?sãU"r(t6a/DYi3YsLbKA)qp8(^,iDVoza)'s.ber8tnm#Ubo^TJ0-j*/xH5K2ArMdO5ãU"t>HCNTF6,#C[f)(/8+nd;j/3V>=E^Qj&4,3gOqSj*4KJ$Me7M&\)ãU"VG8[0iX\IW3Fk&;r$>9H-I)R(B88X.G><*/srTo6%W6y6rHfP373X86ZMftc'EnãU":2rr+V5RbQ#A'%eS;0]Nn&hbVZFDRK;2t+F'f5,pZ*r54V'tãU"j;>1RJ/[[\G0jQX[JXLDn0xQ6i%Sd+^j;VlK)FeSS1JHiplc[UiRHYYQ5Piwq3<ãU"WIT9)\h]g?FUkz_Md$RpedF5tS6Dd;:*?Z>>>YLUrK.M-P8%;H0:QuLGCebaUgLhJn)Eco,\5*3_bU^6ãU"o2%$g1=QOlQ7c-)Jjg:a1CDL?CNo]..bo?+vE66m/&($SIm9=Q(ED[ZP)JD#qQNãU"eAM/hbG_qHLoict(IutmCwvtW3HY&qMgm_h4NlZsamGmHqE%(NM?27_^IbmWN4bãU"Zv5agq<1&y$DMmu/MfBT6(HgG(Wk43a\axKw+9oWm;X4>hJKkl0NGq[sp*xFbHYãU"#hc:(]pHXONDdaMha_i*][tst)H)K=IhNfhm;aptY=mNOa0a=&kacV4P>4wZl93ãU"/XwpgooOrcW;$?(;BJQLsjt3oje[Q7sGCIIh(YLGV3FaCgCkKs9Co)wgeU+bi93ãU"3;.OKZD$)g96K(L4^xIKJt%'AM\.&r_-84r;wmFq*-l0R;0=H)TI['gEqUC.rH#ãU"_^t$$Mggl$M$ceD+<0bLc3WIh+PA::o\qk7;$g5_/gPr-kjkx:*_2NkLae'V:^HãU"):MGlCzvX,HH]V+PF>G5RãU"wWX=Y.P1R)^:^Nb8B>j&8aml8+[<:CoWtjcA\]jr+hBbu3GV#jhvU'm>x*B.>nhãU"aX4)DUjLj0g\CRU5,-ZtsA3#Lfqlc/AEbJgKEgEh>0Xz63PT1A[qAVZ*a,0yAZ#ãU"K^/Ud>gcK\kU2;XKe3L^=+wNa[czOM?U/)PKqLL4T\4aMdX/Q41,Ulbg,4&<=#NãU"cg7FOGl*xusFAhw>f&rcKva>8+]k2^M_8o6ZXY?P/O53\r<,RhqãU"kPhI:k<5P+mcJ]zEk4B[OtP>Squ\N%='AubFzXM$h=l&M<*k-fyTqLEicT4?.KmãU"k5v;Plre:K0BcKeIptGuOsm?b<&WJS*16#GO?njH0^\z/d_,pQm_O_EF+mBl(jdãU"'VeK\Zt'h.xKdWBPu0^0AZ86If.oPKOlhFn4dt[,uU0SFNuQLcpulP:]AOMyWQ[ãU"xnCjDubeXsm1a$Fd$)3X5Vs([&.t$ls^=%n0\aGp_nJKI_84JlL<=f$njJ>DKKTãU"gb8-lMsTCku-\=3]t^CZoW=/g1YEm-sLkG(^*;7i2QO6)'E8Uj4e+OiF&\*[R65ãU"GpiokOTUSdFFpdfh?Me9hP[?pT^C8I7wUqs[22,%Z18alLgI&wZR3>fA(yC\cCAs$KbITs6cVhdJHFIBR4c-ãU"=.Xk4fkb/tEVQgL*F-c$R'rtofOURPJ3Wu7aStO(r,HqJk#75/XXvVK%%;32A4?>.RCDq)kOUSuj%ãU";rZK[CmB0orTDBwA$ttPs'-/rBjgLxdiwQ)8]AhGxlNw,99$'o/TQRY8[&p)ULLãU"/eO&+&GL]O37I8,e)%%Ke7.]cx&T#)90?+01le;]O4*%i.-7L>8ZO/f);5Qi5OvãU"+)]050=Zr*hW3(L/.e.&B6]Q.#Df-gEi&-FCqkC)&0\a3Rh4n#)nHglH4e:[Z8<ãU"r+tE\hD1apwutFcuVsuIkl0+iz/3#lkYMG.TCodcg2%]?Okjh>wVA7$642cVm-?ãU"4UczM6D=.[thWpt^$db3g8eb[2<2W-0=6s1:-VFw#$u0DMvkHfRFãU"pRacTRh*eS#P\]S]gRiWMopj)/oh.Z7e$Q-E]Ih[S_Tw#Zd*0(\o3\TãU"[0US&>U-LIV=6?%XyW)abAumFK0Ee41o'lvR:D1jyS^_x=t5tt#eFO:ãU"fx41#t*EqVy]^k8FG7m4Y,Kbfkd/ee$b,/kh-DdfG)nM=v^QX\5Hm>kBDRVsw&4ãU"IA^EFzoG,]oFh'=i/57+^kOq\eDj7ou=_Ah^2p5DU.tqCgM/UKuY-fkn/1kOIkMj?-4klI:P>ZS*^gv_MPgn[pQv89;/ãU"nd3jSI%tjM(jGmsByWNIMx*Xrfb8SKnUge^OKYr)J2U-v##IRbP-TmI'rixT7S;ãU"WPmYFkLK[2t6_qejVhw>Ob-*^X8P_ELBMu/7/uj$=URi=9,LB5RkUUynmHH-wG3%[O:I7*IP(4Ps/:\aQJxLgEqn7\BJMRmK5x>$(8)7rs6LB(R_h.N]JQ[$wUQdm3MF$'eUkU*C47HkIGãU"hVrAe'+h;LWXV4HjDje],AwBgK$De4C+mrXF(*x9]B_K$N;_RcCgJTJ(Sx4FXASãU"e4lc'cH8gHJn(&RHE__(;gSx6l.m(jtas*gK*=YmPmPKfeDMq)d%5luN-8wvNp&ãU"41aQ0m)+=Xn/6px6^F1Tii$kr-7W>Q+5FW2tl6>Hf9k]O^Y/z>qKD4VqXP;NxgUoQ&m2u_=t.xmqsCZ4ãU"*RMi?L5RwWs(_4jsoP+AB-+*Qec\*DGwiahCHJc1vNsIY86G=G_Y^?\d)Tr-lfEZRsk2Fak2lfB6#1=d#3Mxfow=49r*T:2sjSfUãU"Z+%?HOg4DzkBD=cu%uwF7bs#;f9>0M\w9swRKaY>iVHB=A?\=89#2Pntr5JimYRãU"l-Z*+iVdbRMGqGd4>;K#]b-6NMacn%MX(=T7Pgl4PD^i28UV/YhH57&cDWaZn?Z8o4N1im$:8Xj?[cOiaXDãU"V**KA-L^\iKQW5Q^Z4;ka>G]g?jZ+7W=QZ:_#PC$VqEDqikU'G]&eDZW1bDQzXcãU"6Er7D.XjC6(JvIRTANm__6Qjl=*$AASi_WRn=>T14$Fls).9eV,FcB&&DYX#ZXMãU"W-(Mh7dMWHi-.p;T&d2THfDNa6J&8AE2?(hap;pc(43D,22tHZBkZ%6\]\qn9;jãU"_XtqoY3uBIQ>MNhVGFrr';^Qa,6sZX$r;mj7BSX,FB\;IdQiRtr567O&+8x=mCKãU":-Qd_x)E+?,Gr:EY))_ltwwO_U(Ru_w7%+MEl'qT6Jhg1i9GB0XY2/yn&%1z.cCãU"byAjRVpYh72trgOT;_wqA]6$-8)X_He%^g9jOxArR_PSK-gK/aE:4*KUs0OxkT%ãU"lxO&iM6r:g9%NcY$]AAUDhq;\uxBqZjP'8THAA:m)y.mIyn](p-w%#up(%)9%%#ãU"%-%\GtJKdjy3A=%7%%B%F%%0#%%%;M81E4DB0S#V;1fhqJ'MNu3#X2Nv5S8[IZOãU"01fH[SZ-&r14=8,1V[1U5=YaI[U$b,d\S-FGxb5llkdj3E67Wd,PF66h)dV5CGQãU"AjE6mGUTE[4dN)%,2JjU%p:,%FO1;y].\FLk$T_R&W*Ng)MVQhVy$4_^?s3RDS;ãU"jmCgmh-Lii$%9]r]%0kcA)I.Gv_[F)yNA)(7R%qiKHBPHX$%YI,N#e;EZ&$$6kQMc9<#9W6hh[+^E1iA_'0]s3ãU"R0+>8eSEHt$G=](s+_&ãU"AxWABAZfA';4^g4yFmy\:<3A._;3]<39+NNYfIPWY+qs<;RPjY43=\[NZu:xxuZãU"HvErCL9tw8jZrQFKY=tQka*,SqO?5\vc8nC#r,&>:skZiJ0cRPi]8DE_JZLCibaãU":[BTqL2;*4sSX&(u:t%V\Fc>%mdnN22\(0s#5*trEK^W=L]%wQS;x$g\Mf\<87RãU"0AHewwl2t[S)m0$(4&oT5Oe7PxBh/498#hYp>/^BX6VN(bVaUr:FmoD(q7Q&?KEãU"3c)BepC7O^fh&o/%&;xT?rFMV3--]oPwL.?*2RlST5OVV=R5LTe+>fU*SEiBn_,ãU"PDbU&&r4yT_k[J4wr6MNI-rA6SCuGaODNK%dKQ_5b6oIn*OP?qJbgO]sN>2&/[7jTvt4:=.dnB.3x3d:d'lgslpu*ivde#)RJk^,$u]/5J)B]H,#hm3nBTTBohT;c\F[lq?[R$Zjlrk>qk1%G=Nd=ãU"tUF1S;ONx(d[HL(BOd3%Td_^#R=seZl#e-vT/_l;oe?V6q)tSDKol4ElK&)XeL/-DOe0%4<4YegQ>)Sq*0R0QZ8S>fq%Kjvwr'0ãU"xC[meMs5[6*&XW*O8FqR2]ja,^vc:X;mD;vH0Xa8j&rG9mãU"61]np,?1u&#ec>$il/q%,[]+O\YpF;[;mBb^Lx8$=LcvF1nBrrw-spF$opOiGF9ãU"*9Ni.&Q9a*F&T--[01miX==NNdetvvErde1sVmlj]MExM>%'Zr+Fbfm;8BJv[:/+8r_ãU"e-&P#Z4o4K_,t4)5BP_1>mE7Y;o2e'=t(x.tg'_MT[&Thveh*$*>6HjexIugS4ZãU",]5=:Us5'hRP1gpVQ_h[=cn=K0c2#K0$4qDWcbNKhEnT[VAQ$hNq^^gR3e7VbTiãU"mX.2o#)oH\FN\fJN\3&ckro/rctV($tvo=/pv#6eJ>/=2&baR+xbMo;kOIVod;ZSW6.07F>C9WGpf7ãU"86C*^mV'6J/gQ(T*[p59/0SgEma'6J+gjTQ*?Ofa(J'D)-bM4>XTpuR6^#W-b1DãU">h-p;IJDIX-NR*o[E-O$WAJmoV8/0(qUc4TC9a*DPa%L84MPgSn8^I]aP/\:8oxãU"-SM#VrD\wFqyTq7yZ,q=Oi_isBlCt(IbOq7BãU"7Fwjx4E4e):WNJy/QN4=V=y4RYV_TG)jgTZ,3]Xs]V=_s>IC:hXkEo7U4msm:U7ãU"LVr$6DfSbq\Jawf;L9uO]TNp+c2J=odn2.YZpWa%o([3TtBVUYmUQ-MgpVo/WV_ãU"I$>tV)\:=SFj/X,KvgNd5(MpE')8xV0c?o)2zPNwpwB>,>]N7EfB=Sviz^:'v%VãU"eUB9;ry/htqhL*.1daZ%7MV1k5)p40_*?VvHEnw87qKãU"M03iGJ+R4Bf)=n[CNl,v8?[[Asa1LpJw&Q,0LfãU"Pur)B]iv-7L,,E8auc(.-#IUl9L):ctWL83?BU[VjLwV2rn/Xbad3zHEl487TIorãU"[(ia1DuJZeVgaKE5L\;F\[DToPE.?\SSYH#Y,ZoqFEReLnn>8QO9+jI*h<<]qAHãU"/])[p&F.G1>=vEYrfZlbHSIq..)7xS_+xf>-A.6_(Q]Iki6Xtu8/n+G?bb\;:LoãU"2LeK3Nj,=zT'25lec;8P6x=_,y'Ii02O\Za%poDE%4O$#Qt=&Un]ZaZ6(Jgb^J-ãU"DXna?_G*4?krwLl:E=e><09#8SmMFO25gEJ?wnm3#Nc7gAXaUf?j9=g,LUv-#[eãU"Mye0R=38prT)NjgPE2ZD=&;.#T$[a7>mUrBpm6Xv6+:cAbmCMUCuVur1==A'T;JkG%)1UN0vGf+LX]pHHãU".*,]/(JVL\C\h,jgV1HgmkX]=NFy+E6N0)>s^ãU":A$2[S>in=gw2EZ%UyW)_M_)YTSQJh#Ac_yj#%joZewbv>GC>#(nl)PF_c-E=L0ãU"58/&Dqk^HhduCl/1-5JS3?S.isXid89B;52jAg8.6t-:kC30&93\VD0vj8vãU"o/YLe:mV,GEiP5,z+PLBg<P#(PJeKM%ESHU=NMjA?%cV_,-$m/$3mB#X8d#DE1DNKnãU"[]a>><$A'k?IXWP$RIkE[?UEARe[q2]/%kuXgWR$T.=n4I)\$qk83k+=,hFm[dHãU"^[U'GmCH7;k_WOw9Wd#6#HECkY=h-HA'kR;W+gA$7ke7UwCm7>HD=:N6]s(keXwãU"':mJHWN[um#6jV+;a$4>>(#A(M[;/3%HH4WN+X$VL=Hg$Rl=r&ak/ãU"Uk.MH*>?RGA3gkm0]S(kwlh$l[uMX$,[-5=mHdHr[5HEAP[X;+=rPHR,>b5]]5Hh+WkCHKhXAg\$4=b,0]hkUc1]2dkc0].-HnãU"WZKDA#Ikc2s)n$5H#L>>/]]pk7)13=t8[;JF==$)&N:/Vr)_Z58WkjAH-5M1,.VãU"T>Ft&ju98GMCt=PCHQE+s:(pWZKLGYKXZl+LY+sXLl$ZEBHboY[lpa4rJ[up$wmãU"Z#YZ%\JPK<+)N_2Q9&y9Kfr2=azj[^J,*D)^,Ew:+KfJOW'*.EJ0dx\+63Hw08xãU"jNWe&.9nG-#fb\-XfnGVH4oSj;wq'J6I6H-HgKx6h>(mjQy5zt\=1d%fE6eDDnRãU"gLdug/lyt.tbnTIn\-79+sjXjl0))$e0JSafa;2x(wz8Ioagjnj:*RyHe9/xowtN3.w.S)LmPamthKJLgãU"n_S-9tJ\%o?^-tTNbORc.$mC3haa;ljo=B5w[E4dCi=pOoHXM4FbHV*ãU"Hfww(QO3kesIX05:m:jf6nnk=Y(8iX4&5MLwsMYUC91lbwh7liUwf=uuLn7l&5NãU"3lwVF2c_bf]-#'dIf?R]QazsL>Z14m9;pNI#YTOdd[?7Ao71M:SLt]Ztg(F\%;IãU"GbZCp.X1F0ANX1Y68rUGLV=$pa&qRLT97JqbPX#qZVJ9LC+bu9*Y6y(n^>-qY3IãU"9blQHwK]93(p&+($HEsAiF7#1)q2zP%h[9QlV_VE*cWwW+W:C[a$C6Ldq7Dkmm^ãU"i^km3,WmiLd%om??r23F0N'[#V.Z[]JgJOn.AJQ#VvuTI_Vq&4imyVF%udd]'6/ãU"YP+e)-E[x%63b,tJo7w'^:C?'MFS()vQ43G44J(C;*(?TzniwL%?r2l/gXHt0H;ãU"fNEbH9W(NIa,c2hZDJiCG6Bl+^=H_A-M(im33TK)98$W$',kDThjTM_l&g\(uUHãU"gw'SN>4N'wDFxlcXa'[9.QyIPIOoedeeQV-9uGAMXm.$5E$4g%q50s5qQQE59;^ãU"r>];y;0J5;uu:<5TWLRx(hQU+4*6,LAHM5x6-tu(-KQlFy/N.4t5*$40lnutDHcãU"F9ZLX/_^0],wz=ZdeRHJ(*xH-)Q^TWP%eAiGãU"wMfzGX#pNyIq&O.i?oRQtJgzOMqvt_V[3;p7b;^6=Na&r4?FE;S/dpGzLn(H4n(ãU":EH;f4U(Q(ZPBf3ad55[J+w-g\Jt4z.jlM8#D)Q3LiiLKQ--2PBcSFNo9rr2sCfãU":PD&Ml(%Ajf);fiMged&iiS%2TH>$,&oC,CuX2ãU"Zk<<72^bo)RwlximjQZU;b(wmw']kPGVtq2g$UxH%%;VS5j*6ehmanKg:%+IqAsãU"1*pAJ=Vtd7APfQ)#D#T,^;5dH:gnO6jKrg83A6S4.n.N\u)GgjC1OL=VA#VdhHgãU"kztV_5*?C#zPyAODY:&yRZ$I\:^lewT..-=vrKGYh9PT?A[m+jaHZqKlAn69CyJãU"\to/CUOYrAUomjlenQvLf4'F^+P'5$_CfT&O9>Wz&4:pHe(OPU'eY#_Vs+/BupoãU"uNFP)9mpTZL(>'bus[Nj^.N9h$)AgO/8n%P]F-D>$S>yK>$\M[giSd.q$+.:<;QãU"L*g]9(qAms8v=a'AV:'DHBwB>BlLFEl+fC0:t.-u7i;[b47B%ll$s^c$[8s'8%uãU"p%&'9%%9%%%R-%Vz]JKV8;sk;'%%%Y.%%%/%%%%%%%%%&%RE%/P%%%%%Lq81E24ãU"B0S)18up%&'9%%9%%%I-%qXfmK^I%%&';#%%V3%%%1%%%%%%%%%&%RE%/P'c'%%ãU"M9?46ME84FLS10B%up&'%9%9%%%%-%;BsRKu=V_6&A6%%%FE%%%0%%%%%%%%%%%ãU"E%*/P;>%%%qn(g%jx%fSqn%gup&%'9%9%%%%-g%\tJ^Kdy3,A=7%%%BF%%%0%%%ãU"%%%%%%%%Ej%/P*#O%%;M81E4DB0S#);1up%*+%%%%%)%7)%]%.%%mb%%%%%ãEND SUBãV2ãCLOSE:IF S=12AND 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ãDmitry Brant JPEG VIEWER V1.2 FOR SCREEN 13 dmitrybrant.hypermart.net 07-31-99 (15:33) QB, QBasic, PDS 652 22883 JPEG13.BAS 'JPEG Viewer by Dmitry Brant Version 1.2ã'ã'http://dmitrybrant.hypermart.netã'dmitrybrant24@hotmail.comã'ã'This program is freeware. Use freely, but give me credit where creditã'is due. Feel free to make improvements, additions, and optimizations.ã'If you do, please tell me or show me what you have done.ã'This program is also provided on an "as-is" basis.ã'I can't be held responsible for the mischevious deeds you may performã'with the aid of this program.ã'ã'NOTE: This specific edition of the viewer is designed to work with SCREEN 13.ã'Because SCREEN 13 does not support packed-pixeling (HiColor), the JPG filesã'can only be displayed in grayscale.ã'The program will create a grayscale palette (0 to 255), and display only theã'Luminance (Y) attribute of the JPG file.ããã'This is the only SUB that has to be called to display the image.ãDECLARE SUB PutJPG13 (file$, x0%, y0%)ã 'file$ = filename of the JPG imageã 'x0, y0 = coordinates where to start drawing the imageããã'These other functions are called from within the PutJPG sub.ã'They are useless by themselves.ãDECLARE FUNCTION Decode% (inArray() AS ANY, hnum%)ãDECLARE FUNCTION ReceiveBits% (cat%)ãDECLARE FUNCTION NextBit% ()ãDECLARE SUB ToRGB (y0%, cb0%, cr0%, r0%, g0%, b0%)ãDECLARE SUB GetBlock (vector%(), HuffDC() AS ANY, HuffDCNum%, HuffAC() AS ANY, HuffACNum%, Quant%(), QuantNum%, dcCoef%)ãDECLARE FUNCTION GetHuffTables% ()ãDECLARE FUNCTION GetQuantTables% (inArray() AS INTEGER)ãDECLARE FUNCTION GetSOS% ()ãDECLARE FUNCTION GetWord& ()ãDECLARE FUNCTION GetByte% ()ãDECLARE FUNCTION GetSOI% ()ãDECLARE FUNCTION GetImageAttr% ()ãDEFINT A-ZããTYPE JpegType 'some type definitions (for coherence)ã rows AS INTEGER 'image heightã cols AS INTEGER 'image widthã SamplesY AS INTEGER 'sampling ratiosã SamplesCbCr AS INTEGERã QuantTableY AS INTEGER 'quantization table numbersã QuantTableCbCr AS INTEGERã HuffDCTableY AS INTEGER 'huffman table numbersã HuffDCTableCbCr AS INTEGERã HuffACTableY AS INTEGERã HuffACTableCbCr AS INTEGERã NumComp AS INTEGER 'number of componentsãEND TYPEããTYPE HuffmanEntry 'a type for huffman tablesã Index AS LONGã Code AS INTEGERã Length AS INTEGERãEND TYPEã 'a few global variablesãCOMMON SHARED curByte, curBits, jfile, EOI, DCTables, ACTables, QTablesãCOMMON SHARED a$ãDIM SHARED image AS JpegTypeãDIM SHARED HuffmanDC(0 TO 1, 0 TO 255) AS HuffmanEntryãDIM SHARED HuffmanAC(0 TO 1, 0 TO 255) AS HuffmanEntryãDIM SHARED dct(0 TO 7, 0 TO 7, 0 TO 7, 0 TO 7) AS INTEGERãã'--------- A demonstration ----------ããCLSãFILES "*.jpg": PRINTãINPUT "Enter a valid .JPG image file name> ", f$ããSCREEN 13: COLOR 255ãOUT &H3C8, 0 'create the grayscale paletteãFOR i = 0 TO 255: OUT &H3C9, i \ 4: OUT &H3C9, i \ 4: OUT &H3C9, i \ 4: NEXT iããPutJPG13 f$, 0, 0 'draw the image at offset 0,0ããBEEPãSYSTEMãã'--------- End of Demo ----------ãããZig2: 'Zigzag patterns for reordering quantization tables and vectorsãDATA 0,0ãZigzagPositions:ãDATA 0,1,1,0ãDATA 2,0,1,1,0,2ãDATA 0,3,1,2,2,1,3,0ãDATA 4,0,3,1,2,2,1,3,0,4ãDATA 0,5,1,4,2,3,3,2,4,1,5,0ãDATA 6,0,5,1,4,2,3,3,2,4,1,5,0,6ãDATA 0,7,1,6,2,5,3,4,4,3,5,2,6,1,7,0ãDATA 7,1,6,2,5,3,4,4,3,5,2,6,1,7ãDATA 2,7,3,6,4,5,5,4,6,3,7,2ãDATA 7,3,6,4,5,5,4,6,3,7ãDATA 4,7,5,6,6,5,7,4ãDATA 7,5,6,6,5,7ãDATA 6,7,7,6ãDATA 7,7ããFUNCTION Decode (inArray() AS HuffmanEntry, hnum)ããIF GetByte = 255 THENã n1 = GetByteã IF n1 >= &HD0 AND n1 <= &HD7 THENã n2 = 2 ^ curBits - 1ã SEEK #jfile, SEEK(jfile) - 2ã IF curByte AND n2 = n2 THEN 'if the remaining bits are 1ã EOI = 1ã Decode = 0ã EXIT FUNCTIONã END IFã ELSEã SEEK #jfile, SEEK(jfile) - 2ã END IFãELSEã SEEK #jfile, SEEK(jfile) - 1ãEND IFããcurVal& = 0ãMatchFound = -1ãFOR l = 1 TO 16 'cycle through 16 possible Huffman lengthsã curVal& = curVal& * 2 + NextBitã IF EOI THEN EXIT FUNCTIONãã FOR i = 0 TO 255 'look for a match in the Huffman tableã IF inArray(hnum, i).Length > l THEN EXIT FORã IF inArray(hnum, i).Length = l THENã IF inArray(hnum, i).Index = curVal& THEN MatchFound = i: EXIT FORã END IFã NEXT iã IF MatchFound > -1 THEN EXIT FORãNEXT lããIF MatchFound = -1 THEN BEEP: Decode = -1: EXIT FUNCTIONããDecode = inArray(hnum, MatchFound).Code 'return the appropriate codeãEND FUNCTIONããSUB GetBlock (vector(), HuffDC() AS HuffmanEntry, HuffDCNum, HuffAC() AS HuffmanEntry, HuffACNum, Quant(), QuantNum, dcCoef)ãDIM array2(0 TO 7, 0 TO 7)ãEOI = 0ããtemp0 = Decode(HuffDC(), HuffDCNum) 'Get the DC coefficientãIF EOI THEN d = 0ãdcCoef = dcCoef + ReceiveBits(temp0)ãvector(0, 0) = dcCoef * Quant(QuantNum, 0, 0)ããxpos = 0: ypos = 0ãRESTORE ZigzagPositionsãACcount = 1ãDOã d = Decode(HuffAC(), HuffACNum)ã IF EOI THEN d = 0ãã zeros = d \ 16ã bits = d AND 15ã bitVal = ReceiveBits(bits)ãã IF zeros = 0 AND bits = 0 THEN 'EOB Encounteredã FOR j = ACcount TO 63ã READ xpos, yposã vector(xpos, ypos) = 0ã NEXT jã EXIT DOã ELSEIF zeros = 15 AND bits = 0 THEN 'ZRL encounteredã FOR j = ACcount TO ACcount + 15ã READ xpos, yposã vector(xpos, ypos) = 0ã NEXT jã ACcount = ACcount + 16ã ELSEã FOR j = 1 TO zerosã READ xpos, yposã vector(xpos, ypos) = 0ã ACcount = ACcount + 1ã IF ACcount >= 64 THEN EXIT DOã NEXT jã READ xpos, yposã vector(xpos, ypos) = bitVal * Quant(QuantNum, xpos, ypos)ã ACcount = ACcount + 1ã END IFã IF ACcount >= 64 THEN EXIT DOãLOOPããFOR x = 0 TO 7 'the IDCT routine (this SOB flies!)ã FOR y = 0 TO 7ã sum = 0ã FOR v = 0 TO 7ã FOR u = 0 TO 7ã temp& = vector(u, v)ã IF temp& THEN temp& = temp& * dct(x, y, u, v) / 512ã sum = sum + temp&ã NEXT uã NEXT vã array2(x, y) = sumã NEXT yãNEXT xããFOR u = 0 TO 7ã FOR v = 0 TO 7ã vector(u, v) = array2(u, v) + 128ã NEXT vãNEXT uããEND SUBããFUNCTION GetByteãGET #jfile, , a$ãGetByte = ASC(a$)ãEND FUNCTIONããFUNCTION GetHuffTablesãDIM HuffAmount(1 TO 16)ãl0 = GetWordãc0 = 2ãDOãtemp0 = GetByte: c0 = c0 + 1ãt0 = (temp0 AND 16) \ 16ãtemp0 = temp0 AND 15ãSELECT CASE t0ã CASE 0 'DC Tableã total = 0ã FOR i = 1 TO 16ã temp1 = GetByte: c0 = c0 + 1ã total = total + temp1ã HuffAmount(i) = temp1ã NEXT iã FOR i = 0 TO total - 1ã HuffmanDC(temp0, i).Code = GetByte: c0 = c0 + 1ã NEXT iã curNum& = 0ã curIndex = -1ã FOR i = 1 TO 16ã FOR j = 1 TO HuffAmount(i)ã curIndex = curIndex + 1ã HuffmanDC(temp0, curIndex).Index = curNum&ã HuffmanDC(temp0, curIndex).Length = iã curNum& = curNum& + 1ã NEXT jã curNum& = curNum& * 2ã NEXT iã DCTables = DCTables + 1ã CASE 1ã total = 0ã FOR i = 1 TO 16ã temp1 = GetByte: c0 = c0 + 1ã total = total + temp1ã HuffAmount(i) = temp1ã NEXT iã FOR i = 0 TO total - 1ã HuffmanAC(temp0, i).Code = GetByte: c0 = c0 + 1ã NEXT iã curNum& = 0ã curIndex = -1ã FOR i = 1 TO 16ã FOR j = 1 TO HuffAmount(i)ã curIndex = curIndex + 1ã HuffmanAC(temp0, curIndex).Index = curNum&ã HuffmanAC(temp0, curIndex).Length = iã curNum& = curNum& + 1ã NEXT jã curNum& = curNum& * 2ã NEXT iã ACTables = ACTables + 1ãEND SELECTãLOOP UNTIL c0 >= l0ãGetHuffTables = 1ãEND FUNCTIONããFUNCTION GetImageAttrãtemp4& = GetWord 'Length of segmentãtemp0 = GetByte 'Data precisionãIF temp0 <> 8 THEN GetImageAttr = 0: EXIT FUNCTION 'we do not support 12 or 16-bit samplesãimage.rows = GetWord 'Image Heightãimage.cols = GetWord 'Image Widthãtemp0 = GetByte 'Number of componentsãFOR i = 1 TO temp0ã id = GetByteã SELECT CASE idã CASE 1ã temp1 = GetByteã image.SamplesY = (temp1 AND 15) * (temp1 \ 16)ã image.QuantTableY = GetByteã CASE 2, 3ã temp1 = GetByteã image.SamplesCbCr = (temp1 AND 15) * (temp1 \ 16)ã image.QuantTableCbCr = GetByteã END SELECTãNEXT iãGetImageAttr = 1ãEND FUNCTIONããFUNCTION GetQuantTables (inArray() AS INTEGER)ãl0 = GetWordãc0 = 2ãDOãtemp0 = GetByte: c0 = c0 + 1ãIF temp0 AND &HF0 THENã GetQuantTables = 0: EXIT FUNCTION 'we don't support 16-bit tablesãEND IFãtemp0 = temp0 AND 15ãRESTORE Zig2ãxp = 0: yp = 0ãFOR i = 0 TO 63ã READ xp, ypã inArray(temp0, xp, yp) = GetByte: c0 = c0 + 1ãNEXT iãQTables = QTables + 1ãLOOP UNTIL c0 >= l0ãGetQuantTables = 1: EXIT FUNCTIONãEND FUNCTIONããFUNCTION GetSOIãa$ = " "ãSEEK #jfile, 1ãGET #jfile, , a$ãIF a$ = CHR$(255) + CHR$(&HD8) THEN d = 1 ELSE d = 0ãa$ = " "ãGetSOI = dãEND FUNCTIONããFUNCTION GetSOSãtemp4& = GetWordãtemp0 = GetByteãIF temp0 <> 1 AND temp0 <> 3 THEN GetSOS = 0: EXIT FUNCTIONãimage.NumComp = temp0ãFOR i = 1 TO temp0ã temp1 = GetByteã SELECT CASE temp1ã CASE 1ã temp2 = GetByteã image.HuffACTableY = temp2 AND 15ã image.HuffDCTableY = temp2 \ 16ã CASE 2ã temp2 = GetByteã image.HuffACTableCbCr = temp2 AND 15ã image.HuffDCTableCbCr = temp2 \ 16ã CASE 3ã temp2 = GetByteã image.HuffACTableCbCr = temp2 AND 15ã image.HuffDCTableCbCr = temp2 \ 16ã CASE ELSEã GetSOS = 0: EXIT FUNCTIONã END SELECTãNEXT iãa$ = " " '3 reserved bytes (?)ãGET #1, , a$ãa$ = " "ãGetSOS = 1ãEND FUNCTIONããFUNCTION GetWord&ãGET #jfile, , a$ãl0& = CLNG(ASC(a$)) * 256ãGET #jfile, , a$ãl0& = l0& + ASC(a$)ãGetWord& = l0&ãEND FUNCTIONããFUNCTION NextBitããt0 = 2 ^ curBitsãv0 = -((curByte AND t0) <> 0)ããcurBits = curBits - 1ãIF curBits < 0 THENã curBits = 7: curByte = GetByteã IF curByte = 255 THENã IF GetByte = &HD9 THEN EOI = 1: EXIT FUNCTIONã END IFãEND IFããNextBit = v0ãEND FUNCTIONããSUB PutJPG13 (file$, x0, y0)ãDIM YVector1(0 TO 7, 0 TO 7) '4 vectors for Y attributeãDIM YVector2(0 TO 7, 0 TO 7)ãDIM YVector3(0 TO 7, 0 TO 7)ãDIM YVector4(0 TO 7, 0 TO 7)ãDIM CbVector(0 TO 7, 0 TO 7) '1 vector for Cb attributeãDIM CrVector(0 TO 7, 0 TO 7) '1 vector for Cr attributeãDIM QuantTable(0 TO 1, 0 TO 7, 0 TO 7) '2 quantization tables (Y, CbCr)ããFOR x = 0 TO 7 'Initialize our cosine tableã FOR y = 0 TO 7ã FOR u = 0 TO 7ã FOR v = 0 TO 7ã t! = COS((2 * x + 1) * u * .1963495) * COS((2 * y + 1) * v * .1963495)ã IF u = 0 THEN t! = t! * .707107ã IF v = 0 THEN t! = t! * .707107ã dct(x, y, u, v) = t! * 128ã NEXT vã NEXT uã NEXT yãNEXT xããjfile = FREEFILEãa$ = " " 'The ideal byteãOPEN file$ FOR BINARY AS #jfileãIF LOF(jfile) = 0 THEN CLOSE #jfile: KILL file$: PRINT "File does not exist.": EXIT SUBãIF GetSOI = 0 THEN PRINT "Not a valid JPEG/JFIF file.": CLOSE #jfile: EXIT SUBãããQTables = 0 'Initialize some checkpoint variablesãACTables = 0ãDCTables = 0ãRestart& = 0ããDO 'Primary control loop for markersã IF GetByte = 255 THEN 'Marker Foundã d = GetByteã SELECT CASE d 'which one is it?ã CASE &HC0 'SOF0ã IF GetImageAttr = 0 THEN PRINT "Error getting Start Of Frame 0 Marker.": CLOSE #jfile: EXIT SUBã CASE &HC1 'SOF1ã IF GetImageAttr = 0 THEN PRINT "Error getting Start Of Frame 1 Marker.": CLOSE #jfile: EXIT SUBã CASE &HC9 'SOF9ã PRINT "Arithmetic Coding Not Supported.": CLOSE #jfile: EXIT SUBã CASE &HC4 'DHTã IF ACTables < 2 OR DCTables < 2 THENã IF GetHuffTables = 0 THEN PRINT "Error getting Huffman tables.": CLOSE #jfile: EXIT SUBã END IFã CASE &HCC 'DACã PRINT "Arithmetic Coding Not Supported.": CLOSE #jfile: EXIT SUBã CASE &HDA 'SOSã IF GetSOS = 0 THEN PRINT "Error getting SOS marker.": CLOSE #jfile: EXIT SUBã IF (DCTables = 2 AND ACTables = 2 AND QTables = 2) OR image.NumComp = 1 THENã EOI = 0ã EXIT DO 'Go on to secondary control loopã ELSEã PRINT "Unexpected file format.": CLOSE #jfile: EXIT SUBã END IFã CASE &HDB 'DQTã IF QTables < 2 THENã IF GetQuantTables(QuantTable()) = 0 THEN PRINT "Error getting quantization tables.": CLOSE #jfile: EXIT SUBã END IFã CASE &HDD 'DRIã Restart& = GetWordã CASE &HE0 'APP0ã temp1& = GetWord 'Length of segmentã a$ = " "ã GET #1, , a$ 'JFIF headerã a$ = " "ã temp0 = GetByte 'Major revisionã temp0 = GetByte 'Minor revisionã temp0 = GetByte 'Density definitionã temp0 = GetByte 'X-Densityã temp0 = GetByte 'Y-Densityã temp0 = GetByte 'Thumbnail Widthã temp1 = GetByte 'Thumbnail Heightã CASE &HFE 'COMã a$ = SPACE$(GetWord - 2)ã GET #1, , a$ 'Retrieve commentã a$ = " "ã END SELECTã END IFã r$ = INKEY$ã IF r$ = CHR$(27) THEN CLOSE #jfile: EXIT SUBãLOOP UNTIL EOF(1)ããxpos = 0: ypos = 0ãdcY = 0: dcCb = 0: dcCr = 0ãxindex = 0: yindex = 0: mcu = 0ãr = 0: g = 0: b = 0ããcurBits = 7: curByte = GetByteããDEF SEG = &HA000ããSELECT CASE image.NumCompãCASE 3ã SELECT CASE image.SamplesYã CASE 4ã DOã GetBlock YVector1(), HuffmanDC(), image.HuffDCTableY, HuffmanAC(), image.HuffACTableY, QuantTable(), image.QuantTableY, dcYã GetBlock YVector2(), HuffmanDC(), image.HuffDCTableY, HuffmanAC(), image.HuffACTableY, QuantTable(), image.QuantTableY, dcYã GetBlock YVector3(), HuffmanDC(), image.HuffDCTableY, HuffmanAC(), image.HuffACTableY, QuantTable(), image.QuantTableY, dcYã GetBlock YVector4(), HuffmanDC(), image.HuffDCTableY, HuffmanAC(), image.HuffACTableY, QuantTable(), image.QuantTableY, dcYã GetBlock CbVector(), HuffmanDC(), image.HuffDCTableCbCr, HuffmanAC(), image.HuffACTableCbCr, QuantTable(), image.QuantTableCbCr, dcCbã GetBlock CrVector(), HuffmanDC(), image.HuffDCTableCbCr, HuffmanAC(), image.HuffACTableCbCr, QuantTable(), image.QuantTableCbCr, dcCrã FOR i = 0 TO 7ã FOR j = 0 TO 7ã y = YVector1(i, j)ã IF y < 0 THEN y = 0ã IF y > 255 THEN y = 255ã xj = xindex + j: yi = yindex + iã o& = CLNG(yi + y0) * 320 + xj + x0ã IF xj < image.cols AND yi < image.rows AND yi + y0 < 200 AND xj + x0 < 320 THEN POKE o&, yã NEXT jã NEXT iã FOR i = 0 TO 7ã FOR j = 8 TO 15ã y = YVector2(i, j - 8)ã IF y < 0 THEN y = 0ã IF y > 255 THEN y = 255ã xj = xindex + j: yi = yindex + iã o& = CLNG(yi + y0) * 320 + xj + x0ã IF xj < image.cols AND yi < image.rows AND yi + y0 < 200 AND xj + x0 < 320 THEN POKE o&, yã NEXT jã NEXT iã FOR i = 8 TO 15ã FOR j = 0 TO 7ã y = YVector3(i - 8, j)ã IF y < 0 THEN y = 0ã IF y > 255 THEN y = 255ã xj = xindex + j: yi = yindex + iã o& = CLNG(yi + y0) * 320 + xj + x0ã IF xj < image.cols AND yi < image.rows AND yi + y0 < 200 AND xj + x0 < 320 THEN POKE o&, yã NEXT jã NEXT iã FOR i = 8 TO 15ã FOR j = 8 TO 15ã y = YVector4(i - 8, j - 8)ã IF y < 0 THEN y = 0ã IF y > 255 THEN y = 255ã xj = xindex + j: yi = yindex + iã o& = CLNG(yi + y0) * 320 + xj + x0ã IF xj < image.cols AND yi < image.rows AND yi + y0 < 200 AND xj + x0 < 320 THEN POKE o&, yã NEXT jã NEXT iã xindex = xindex + 16ã IF xindex >= image.cols THEN xindex = 0: yindex = yindex + 16: mcu = 1ã IF mcu = 1 AND Restart& <> 0 THEN 'execute the restart intervalã curByte = GetByte: curByte = GetByte: curByte = GetByteã curBits = 7ã dcY = 0: dcCb = 0: dcCr = 0: mcu = 0ã END IFã r$ = INKEY$ã IF r$ = CHR$(27) THEN EXIT DOã LOOP UNTIL EOF(jfile) OR yindex >= image.rows OR yindex > 199ã CASE 2ã DOã GetBlock YVector1(), HuffmanDC(), image.HuffDCTableY, HuffmanAC(), image.HuffACTableY, QuantTable(), image.QuantTableY, dcYã GetBlock YVector2(), HuffmanDC(), image.HuffDCTableY, HuffmanAC(), image.HuffACTableY, QuantTable(), image.QuantTableY, dcYã GetBlock CbVector(), HuffmanDC(), image.HuffDCTableCbCr, HuffmanAC(), image.HuffACTableCbCr, QuantTable(), image.QuantTableCbCr, dcCbã GetBlock CrVector(), HuffmanDC(), image.HuffDCTableCbCr, HuffmanAC(), image.HuffACTableCbCr, QuantTable(), image.QuantTableCbCr, dcCrã FOR i = 0 TO 7ã FOR j = 0 TO 7ã y = YVector1(i, j)ã IF y < 0 THEN y = 0ã IF y > 255 THEN y = 255ã xj = xindex + j: yi = yindex + iã o& = CLNG(yi + y0) * 320 + xj + x0ã IF xj < image.cols AND yi < image.rows AND yi + y0 < 200 AND xj + x0 < 320 THEN POKE o&, yã NEXT jã NEXT iã FOR i = 0 TO 7ã FOR j = 8 TO 15ã y = YVector2(i, j - 8)ã IF y < 0 THEN y = 0ã IF y > 255 THEN y = 255ã xj = xindex + j: yi = yindex + iã o& = CLNG(yi + y0) * 320 + xj + x0ã IF xj < image.cols AND yi < image.rows AND yi + y0 < 200 AND xj + x0 < 320 THEN POKE o&, yã NEXT jã NEXT iã xindex = xindex + 16ã IF xindex >= image.cols THEN xindex = 0: yindex = yindex + 8: mcu = 1ã IF mcu = 1 AND Restart& <> 0 THEN 'execute the restart intervalã curByte = GetByte: curByte = GetByte: curByte = GetByteã curBits = 7ã dcY = 0: dcCb = 0: dcCr = 0: mcu = 0ã END IFã r$ = INKEY$ã IF r$ = CHR$(27) THEN EXIT DOã LOOP UNTIL EOF(jfile) OR yindex >= image.rows OR yindex > 199ã CASE 1ã DOã GetBlock YVector1(), HuffmanDC(), image.HuffDCTableY, HuffmanAC(), image.HuffACTableY, QuantTable(), image.QuantTableY, dcYã GetBlock CbVector(), HuffmanDC(), image.HuffDCTableCbCr, HuffmanAC(), image.HuffACTableCbCr, QuantTable(), image.QuantTableCbCr, dcCbã GetBlock CrVector(), HuffmanDC(), image.HuffDCTableCbCr, HuffmanAC(), image.HuffACTableCbCr, QuantTable(), image.QuantTableCbCr, dcCrã FOR i = 0 TO 7ã FOR j = 0 TO 7ã y = YVector1(i, j)ã IF y < 0 THEN y = 0ã IF y > 255 THEN y = 255ã xj = xindex + j: yi = yindex + iã o& = CLNG(yi + y0) * 320 + xj + x0ã IF xj < image.cols AND yi < image.rows AND yi + y0 < 200 AND xj + x0 < 320 THEN POKE o&, yã NEXT jã NEXT iã xindex = xindex + 8ã IF xindex >= image.cols THEN xindex = 0: yindex = yindex + 8: mcu = 1ã IF mcu = 1 AND Restart& <> 0 THEN 'execute the restart intervalã curByte = GetByte: curByte = GetByte: curByte = GetByteã curBits = 7ã dcY = 0: dcCb = 0: dcCr = 0: mcu = 0ã END IFã r$ = INKEY$ã IF r$ = CHR$(27) THEN EXIT DOã LOOP UNTIL EOF(jfile) OR yindex >= image.rows OR yindex > 199ã END SELECTãCASE 1ã DOã GetBlock YVector1(), HuffmanDC(), image.HuffDCTableY, HuffmanAC(), image.HuffACTableY, QuantTable(), image.QuantTableY, dcYã FOR i = 0 TO 7ã FOR j = 0 TO 7ã y = YVector1(i, j)ã IF y < 0 THEN y = 0ã IF y > 255 THEN y = 255ã xj = xindex + j: yi = yindex + iã o& = CLNG(yi + y0) * 320 + xj + x0ã IF xj < image.cols AND yi < image.rows AND yi + y0 < 200 AND xj + x0 < 320 THEN POKE o&, yã NEXT jã NEXT iã xindex = xindex + 8ã IF xindex >= image.cols THEN xindex = 0: yindex = yindex + 8: mcu = 1ã IF mcu = 1 AND Restart& <> 0 THEN 'execute the restart intervalã curByte = GetByte: curByte = GetByte: curByte = GetByteã curBits = 7ã dcY = 0: mcu = 0ã END IFã r$ = INKEY$ã IF r$ = CHR$(27) THEN EXIT DOã LOOP UNTIL EOF(jfile) OR yindex >= image.rows OR yindex > 199ãEND SELECTããDEF SEGãCLOSE #jfileãEND SUBããFUNCTION ReceiveBits (cat)ãtemp0& = 0ãFOR i = 1 TO catã temp0& = temp0& * 2 + NextBitãNEXT iããIF temp0& >= 2 ^ (cat - 1) THENã ReceiveBits = temp0&ãELSEã ReceiveBits = -(2 ^ cat - 1) + temp0&ãEND IFãEND FUNCTIONããSUB ToRGB (y0, cb0, cr0, r0, g0, b0)ãr0 = y0 + 1.402 * (cr0 - 128)ãg0 = y0 - .34414 * (cb0 - 128) - .71414 * (cr0 - 128)ãb0 = y0 + 1.772 * (cb0 - 128)ããIF r0 > 255 THEN r0 = 255ãIF r0 < 0 THEN r0 = 0ãIF g0 > 255 THEN g0 = 255ãIF g0 < 0 THEN g0 = 0ãIF b0 > 255 THEN b0 = 255ãIF b0 < 0 THEN b0 = 0ãEND SUBãDmitry Brant JPEG VIEWER V1.2 FOR MODE-X dmitrybrant.hypermart.net 07-31-99 (15:33) QB 335 22140 JPEGX.BAS ' JPEG Viewer v1.2 for Mode-XãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"JPEGX.ZIP",4^6:Z&=16329:?STRING$(50,177);ãU"%up()%9%%%#-%%_9'?-O/l,p3%%%:A%%%.%%%%rt.ij'S[qng^_(NyTrPD8hHt7ãU"m./S%p59?a[]1Sp(mVXZ3k^ZGN+A_e3e7-7Qs1#86nt+0l59Gm1b_Bxs]<=e7>?ãU"jcMspxn=*Plw?A#s^L-8[n/e]qoG1;GO,9-TRV3-ou(/X]-<\tl)tWd8g/5V;NeãU"k]fq_Xuh6h7YJhtDuX$6h;JbR%&T%7I_NpQAWuz8MZ[Bhe/(b:O)F5'ArE'\'l+ãU"(*6]$p%3PycIFdhB,^HjAz%T(z/0Yee#snPPr6W$lo'2lEG9lm_#fwp_:.vAq3WHHB.sf.bpUq5j4=ãU"b*HH$0SAbldJJvhX-1\lIM$wBrfd(gYb4qbWQs&h/J?]::ivz9VN/VPQiB%:0HOãU"l_Hk;nE4IPIPP&F3\CYc9=y,dWL[A,wKIJO<.qL,b6P)-XSNapL#NqPPBO^_,zgãU"u.pc$8:]USZhh)UfWyLT[XFP&Hpl1_*>JfImrkq\8lW9&XW)XO8\nwag,APc#e+ãU"A7rYpoIEw4eBoYdtV08D?aRE\#wp5yH>'aVo+n,3BEiAu(sZUECKEqR6OgqzoYLãU"L=x].cJJX:ggspN+-IcZ/C7[7M+f$]s$rtrk)FHlV7vYp=u,np4h']Cb:cJct>'ãU"V'FjdS)&aCMNA'$9-:\wJ0RjEoMBaZC1HhSOAHMZ#LSa\3egQb_7IH-7nDO^kGcãU"N-xCilG8askrmlM7gjãU"uOf7#JIJ7'2z]t:^=DMJ]Z#OOt9YkM5:w(2)et_1l%WyH8wCh?bdau4mig$aEYHãU"YnOe4alO)nD8tpH#Z]_^3Lt=.8d&YidfNXftYSPE>p+SfzL-,ãU"=q&vN?Vkw2cVuhIz3'**^L(^o9Y*g1)AOãU"*3wPvM5u1_D'b.sd#*SvlDHFB1TDVY#D$1hb#AuP-VFT&7t%F+&I[EãU"SH+-\^mUft1[a^fWTS]<'I[H^O&SF_95%S;CIVf:CfA47#FIzo1bT3>k74Si8VgãU"qa8agI3^EH%-Rhm5o0vy7CF6;\Ti),7?2TH^59o/FF#FaRS7D/FP*;Kq9#YSY>OãU"-Z6+7=('>;*Q].PGS^sV)Y6=aGM)*I[I5W.Bfa4E*EIw0r[aJ+5diwF)*]aL'WLãU"O83N=c'ELY[GXuWW.rF$EF[FinCEn(#JQiUG[K7B=tZ1Tq0vmeh3UQs='[4FN,PãU"qOI9peunD-z8*b$AIwkF;/(P?oB$TsJs^74.wQfk.Tl\XTG8&2Z?3ZK=P4#g7#(ãU"85Pl)_Xf=xL;Jl5k($Tm/29G=QWXo1NeRbKf/??/,1mLHXd3RoU[jNeqkYb952TãU"sB'L-#:L32OT^[nnvh9kVO=c]x^SK62N0]eRX\OrEsj.6%SL8cenN>?ZEA^lBUZãU"aIZ$C+6e^Tj?fm%_ArEI^a92kGM;%5W0_b_tb3g6tP,8.7r?\fw-e60>d;xYWRe%p6b?4ZLU/LzlwPVO0Z]%J$h\E+oaãU"(ybidtDpp%9U6wZh[B0Ws'Zatef>Eg:='E_(Xtkd1r(v0alXDvowS%;EP=vTJ1vãU")NK$oByp+ur+'J4kD6U.'*Gg&Wz8dQXYS.[sP-X#h(5P2VGh3[F5kV=O\5xYr#KãU"$M^h,XRqpOL'kU8WCX/GNdGIc'-9PL'S<+]9W][$#ira6KK8^:8D]iALki&nSRuãU"X2/=u[^L2w#+52J,d05y?>wH)eMDb.nK%+e%YPjJcsB:p95W3RTV<;ZGO*YGi^gãU"8wZO^Y*rk]LC%J'.-6iD>Em0UijV)I0g-X(P$hO#1HRccIzYY10.%\DN:ah/z\>ãU"a??cfK;'TB2Ytzh3l,^U]PtGgo4^0,*Z:3=m(XN'E+;7o9*[?6;ãU"UcsAj:m8Ug/5IRvJG&OlBj#d4*[0>d/xGS&-rBCQ<8_c^eP(Uth6JnSK]owhgYbãU"ltWB'odfmXmAS&%67Y$q1S__p=p&$WaqvWcBp0wsr]08H#)zv9n.Jlj1mAi6nm,ãU"MpdcjmgkmL[nJmoc'\D-AWu_<:BuH&VI<)U\=.Z-uErc(#MQAdSMm2=q[y-DYUOãU"X(#T1rM?7)s1=\wZ/6UlTWn=0\$r+178T/g=KLC)uL]+WnxAnB8xC#V\V1h1Gk1ãU"h71Gu-cw>oH'bTSsS]/BEpEjJR)+'9CxE_s;%n%[*dqPBM$5ltu,uEBk=/c_BkjãU"ZoD^=M/bb'a?WQK?%VFDDZ)7KJ\St6s,Y=apAoY00IXql^uUROSn]2I35J0rhT*ãU"c*)id&0W;[yeQrn>)=$]0CP.>orkGU2eLiPGt1H28\ak=4E/n=ng7yt&wAv&)pfãU"n=Y\g>m-9H1*k6A*qDyHe^.FP1m2h=o*Yu1D_rV(BZa(1R_kc(lUmxOaVnC);N?ãU"4m#-]PVXcg9YX*1n##1>I7R]CdF[($C)'s92AC_6zI7YZ]6#KNi5TS##:=LFN%>5-TndzfpH_%WvR(27BDM'J;$$3N^alEGa?p8[a2L]>3t[ãU"Hr28/NcGYzOZGEP,OnB;:Np/:Z5=R)cOVKjZSj=N$u;;Qq^$bJ(B>zs7ndI,d19E2[^TUp5'O%[L;kR$/(n0F1=dUpãU"1Ta$/D77HPJT5OicEm<)Uv1k_zK$/(quZO=/x?Hex..Fx(L,74'8QBHxx%hBQb=ãU"X:4ndskT%Y].c'jyqek+sscs4c/iZ#*yl$W>07j4gi*'.2_S$]Nvuc/'wXVi;/uãU"*qW2EphvlP%R9#5Ahh:#ãU"H7lpiPKt%i*MB7Om_V^t/\hT'zYTR'5leLBT+r.FQsoUPO$2N0A;ssXDO*'pa+eãU";N-:CX2:[/NA.B%v.VG;i_:7b4eN^sl\GAlZ?G,-SVãU"H1d++o^W3WBi1KE1GGvjhRBSsF\L)siXOriFKIu%IM\cIdnCDdQl<ãU"UUfF^R6Qhr*\bm6Hi0,1pJ#wlmS;xM4(f4P?3(vc7Do,PC/Eec5+nw3+]5O6Sz]2\qem%u0a7DMD,f9MKWV:,Jq;;eq^.XpaMm9WJ]ãU"vEVeXm5IEMKG8KHF^$01#X6c-6qm(WJB9$kn.r8:qm+\JB:k<0SuBXK;h40btHQãU"b-v9w>.xoZ^%/]X'jIpa.4,o:B/Ta&/*Z%<\BpP2aunWua-rM#aãU"Ms)\I\BM'v38F,JMjDF=djJ-dfmGl0Z3_$J&EuPj,oi4_*]^[PesdV_u_]#Z./Q2r)RXjãU"L;:>\R*pG]N'gOl88fmCQKKh>_'Sa$(Fll96UaKq7C&ZFx6pt-ep*(>&M'CkwFBãU"7[k+5vãU"CN*x09NmoH^18Sp(zqtb3QPU,9;WPE9%:zp>QV0D?ZeerRtQd4:[lf>P/mw3qYhãU"hlHhZFGggPj*6)gD1?aMk2-OqlvRDPQ9_5?]k[k-wEZ:VA09#RS%w'Pc_+(Qv#.ãU"&aq%VFeIN*xLN2N^iQU1q%%PF[r8KuQX/g&Yj2Z:E#jTL1j4f#s1qBkfk%*>R#0ãU"t.s.qOgt_8ãU"fEXi;SQn:H^4++(;gzn'0Qwq9%7\0ijLERY'DAaF)gHhHY;HF2p0fLp2TYãU"&?vC&H&r6,y>5h&7jtcp)m%<-.c_qED?u/?:iBZ(yP57gVp+=*POA#_T?JlD5b6ãU"i:Ngq/&M=I8N]cS$>;bnBRy35Zp\;T/tb/f\t6+67DLjvp3b[,[PdTy9SOgTOpvãU"Ou(0/6QD$Q2$+sLVC;&v&=>':aq^jFrP=A?Q9cPTfj+AB>Q2iUL(0'.O1NEL6y-ãU"_QeoXl,VwGZMcPYnN0,'\Ny&P'n,;W9x:smtl5)RpE2b0X(AIEtkR9jG[XY_d,2ãU"t*NM).*$dnz(I]r].1Bib(et>obiE$vdJ,>je$t7I0lF*LXJElO+axVtHh#cDc2ãU"+&lh2xoN6nD+Tf(hU_V1XT*p&%VS$ENw+v?gOa-GwX>L]cCaN$ãU";%qJ4J>5JxwugDYO-]*L5D8BP]yNht\VAJYHw%KGC]$JkA=3lM0.7)9?Om>HsSlãU"?nE>Cuc_Yqnmih;/#))geUv?Q5YKmn=lVOu$i_aPXUKme3SKEm*w=JCrDX70kmgãU"C'k]j_b4Xs?^)U-^t(h:)OH=='RJ[f=Age%=Rna^Z#'h?$?pH._CnqGdo(dlPZ[ãU"A,ywjbS7\\#4zb?)P^q0IikS/K\t0r*yF(8Sc(iev6,Wca46P\*)8TB-a=*&2TmãU"e+UV[a6xu->n;x-#nroI$;1'wX0MKcni/qCU>E:m2sMZcsRt'gi8FxJa,^xU-#P.522VfDMpakRsf/R>J/#a\Q0/=d/O&c-*=d)[ltd>p'5YãU"H.M[FB>>EH*mo)YLVuLLL(;HWEta\OJrceI,cMb4X[Lan+F=?OZ&X7BE+YceIDr%B0ct*%DM.]=*Z$5)vRZgYET]xs/QtmWKI/MJAãU"V&HK.;S3eQ(NhwW?ibI.lBU0*9m\4qlxl43FY]um5HOLDpfLB>fS9h^m,H_O>5\kR$N\5rEd5WblLP96%b-0.AIY[EX4-J2VnJJoDBJãU"*i\34H$GHDRvD+&4sVBb1df623vCBn(k]p(%E*'%Hb1Pcc:I._Q'6QE\l>&WY&:ãU"9E2TCx7*gR(hI'h>V-IX-11?D8-b4R'+\,_cG'jv;y/HP+x2*ZxX*,6(%-7H6$CãU"1L,c&[ofm3wo4%rW>/dB&t2_;-5c2cb\vX-B)/K4qqVMq[GpLI^aOEFqe%HAOS&ãU"6LSfr3L(plx7bkc2kzWyVS(1j5R6g4.dm;*WrHb#;sP)4;>zUg3SPP?16%O;91tRQ7cãU"Z#Apu.q>k>ah_qM]&=YaL+[=OKw/ouQi-sP6OXZtrfI(R)8b+BJOm.$f%XãU"zr:UaRA_xDn&DLnLbNR1YlstYUJI&*>?*gS&E+3eU:&yrDhI%&WkON$mF_FHs+RãU"P9holH7Luh5.2ufc<->J?S8GNgIR>OI4sRQIl.4=f0';ervr'b#E0So9[8(K>P:ãU"qEkE&]PgJ/FE5?]whJCcS^<7CJSJ[qT69e$3*jd-;yTJj?J0_1[A_[WHc-TH%vBAwGQF;l\\F'c]>6#]/X0g=BJ,WEZ67faGtãU"f$QqRI$sL?;pJ:*uJEM,W8CKo0y%/-a+.'.Y&,70DFS$H=AE5:71ufA8zL'E8VyãU"Cu)xF?06M;$fLU4Q_.K3L+XLc;E6M/:NR#P2_-V9rlSv>^]Z]spEsZN)mZ\A8SAãU"\yn/Iw_k[jOq&BMTw+((U*nV5sU8)yFFj'O*VNVlZ5lDca6d\l.$c\6O2]2(o4sãU"$FoF8vCR(SEej;%=QfH7^>2la5.0AJk=E[K+vWT#Y(YãU"HF9I5OL/WF=8(\4$9V;xx?8,%[7NyBTTFkhYek&tKUVcXFkJOD%PJO[tSH2a2<%ãU":4$98_\w(zxCa3v=^Fp\QEAI,,XUfYx?bTMl8c\CN&D2hGg(VT8MIFZGTvbC\*UãU"EN%z,[6c*jjyCZ$SKnNfHZ2)naGUn1Ioc%mT(Mq2CMxeH[>cJ1dPgX=X$B(x$HnãU"Mu#xM^Phi2w(E9v1F%JMNg;\s,&=kn]9dotog[=c:1%Phnn9ZLcyfHspeR)c#?SãU"&viy=qn]9dcLywF9#Sej<>Q1&=Oad]CFwl.g+1m?s9%mQhC9B'(YPg)$w93'h'0ãU"dnME((7?*AqX?qqmLbm9Wj12Sm*ANp\%h3nVkyf)OZH]8S6\:VQ-4H&ygNQQ_YSãU"0[&:.&,9%um]b(N=GO8YJOONWy*I2\TãU"uq,NcY)Hb[<=\i[KY9HC=eqVBlax6TtLF25u/<:]N;*OX/LEV%>FJ2HjSo[rB?8ãU"Ika>%+Yk3;Xh+R?8QDkJ&n%8/2E%S0lG\Uj2AB4\U;#,W(%E\]G3MQ^XV%(EH3.ãU"WNkXjV'[dkHXgl<)0c./LE1')?t,zk2UtcVqm_X&b$7VTmHm&h2rB0F:O,P/43CãU"?R'4b$LU'*U3Ul9olT3A-]&Tb[jM:8ApD0I[KUX7&M'1;O[^Q_sV9s&V3>9A1XyãU"&RpVW-gW\4KI\WL?ZBQbTBgF9HFnF%tgC$'F_RH-RpKTa,dDJr3ltDr$X?dMSãU"Qb93b]Y.^,?TS=3m(;2e.,IQ-#/cEGj)J>ifqBwU%30m0'G[[uJpi[=F$?Gco_jãU"U.X>Q#Vl)8L%\;tA0NaD?D?iQV%x=UW8_a0?_cgW;YXxEHiBacX9TiaW_V*d-B;ãU"je':QkXh*W<,SEnwiIUs?3\OoxG_G^2bDGFJh/LOb'MUW:/C:.&(yE5+3ms;?E_ãU"lz:L5c%m=nC%9M1^yB/u06+'nzXr'-:NebC9?hc>\Y_sX8W.O-VaFMHJossL(hSãU"\ZmB-R+tKqk$]$>s)OJhKA;-xB%Iazi%R3Z)sq^bd^7G>j$2e.Oy/Se%K2s(/JgãU"OgVMilMPQl%v,BM&c^'Sdx%4VA1rB-$azU/[0&Sk)3hpg(fv^Eud%=ZYNX)xNM2mOrX5aãU"]#R^Se\ai]XZQQTqr6ZaE*pAvc6snIs]KX>vNZANJ9(ol'nãU")P:GpI$KoEvq[I(V,M6u7p+<+-6KLxVwG3MAMY;+1e&4(wu<_N2SB>eY#7^^JD[ãU"2it90iWaxasoUWb9-c:kS1.7l?g9(rJe&pqQ48Zn?wUJ5q#br#nãU"TlLazT;S/jo/CxQ#ehTEYb(1OF/EwH81'$F.6G[#E4Bf\cLZ[Z,$'*&593zfUt<ãU"OSum\zWSqNUkOWwSkulZwG^T&jC*1XcfjOF_mH]cfc.,JF;3#HIL=5P>lM)e_47ãU";6,Uv&jKa;(y-8:;0CoXRgIWWC)Ca4iLs'E-J:Fc$Qpr_%cB]&WE-QktY<8xOmGãU"G%bp0sQjIAg=^Gd,UI4\EQ8ZJU_(TmAg]'l'7ol&MRTwLTfjn)nZlDIAb;jR+bhãU"hDo8QiVg\Nv:v=[J=;96ir__*u'L;8iH:.DtAM-6$?T2->wkob)ILS;;qn]ãU"2V+JS(y%-iI]l-d5*T0^O)0y&Z03T)*$yqf=IP*[q\.0LuUV*j+--AkAkTu:P(glo,;kS*tG+T%+k/$=N7il$+2SpHY.f>T)_FHdop1xlZCcjTq=nf8CmsPjaãU"mbv/6s'z^v)yE=[)>L]5S$wM$5k=g&\tWh9.5>/[>Ri6bq3b(UMDiEl:nl3P;/hãU"Nf3Wxc*/N.Z4,=ai<;%X&6/0^RYo77=P0(cJg#(1e:/nX=8VXl$ivz.;JdUk;Z9ãU"Eb[\vR,s5/.o[sQgj=r%.hfE[gM-qC$V]ãU"'qjgZn+VlHtaUkdfJ4vD-zR>l%&sPlOtn>cktkw_YQd?b-6D$?(gx&1OMko=9OEãU"h7/K6q:ND8aDJnL7lj2\DDYhKmjv+,$8Fo5*#Cw/?S8vgjGt&JuRS2'*RL0xPZOãU"Qb5',JUhF[xgJY+9xrQ[4bA]^Bp[+9=og(QD-hSTjT;dj6x<1wgk3ph.2E=OP)ME7jkFWãU";P-gQVJ3gogD_7DS]?_&cm-6N&tiFPy]i$5z>2xWbGb3h'2duL.b/r8SltJ;-R0ãU"3HF'%a&6i(*9#5-]R7aZevov.0%5LgsPQR&Ai4dOv3ueco-pPCVEc=LUpR>PBHhãU"THs*H<<+Y$F_[v$C1sWY*.)qlx$SX?5ijlxfK(ej6tph2=cn5^,RVMvuLs_tmauãU"Y)'.>A0$hkiy=KvR-IBk8rE#X486d%8,).Ja\#cwL1%=1snzIb7&ulT2WfYVY>HãU"mYK1?;g(749V?LUE=2/,;E[/X%GR5WS^r0GvY%CZw$?6o>.2hzsg6s%kFr8iH?_K<\+Wi]aF*HZ[PJ)cPpr3ek=7ãU"KsY2r^BmjVi[5Zl?2OfBY=L=r\o>qeoF[W,)cb0Dbp)sNRHpEc0hdãU"e3?FFFI';fHMuaTq]trrHSFrYk-)8,i29i/&'?lxT,R/C=6(NL_(qM^O#sMB8h:V3]SiAm*.>k$F&=i*60g5,cQ4XHãU"PW_CCMfjHlU*yCfDtP15+qE]^w&_(=tgfK(MyYhY(P$,$DLN(=4z6Ej0d84df0]u(t*ZG$^Pk&v?*+lA[Wi?3l[ãU"A7a=?ptQwR2dS.FQ,^0MfU7.P.+n:Z&%8n^7CdFsU-kmRi?\-2sEltjbi,^Ws(WãU"k:)5=$2$GKNNj%3;##&K0[zG.6TDh>>V7BTcuAn#mrL_<:%bT?3icLD$-lCllt;ãU"k[g)UEdBdQ]OQ8&AldALGKpst&Af6[D2EKopQzG<.gPY0bO;;sc4$3sq?7pq=GjãU"DI%vX9mhP:E5_0E$3%R1eX8lu&s*aItfGlS,=/&uIx%I-RKF-lIda3Ji8h$Kh.TãU"$kh.T$C(46iR8IcB-]'Mc>p0VREC3Vf:k+#ax3<'YJ3?UVo#^/N^ks%z#F0PuddãU"F_HkdZJ&<70AjoZ&tld0P2OD&rzP)hTVCYCl3tG92(k:]6A9%n3fCj495o.^eKTãU"]E=.dTmU'1+t[8:CoD3if6gp5IB;OE#.eCrOaC0=Hg5A=QsGY\PUa_AbbcE$fR5ãU"quc:0-T30K>*lA.HLxxj)$)$7QH-vAQO:0I**xD\+wT?zRj2NZãU"q0LxZpw8%c>5uiIVEVPLWuopX3*ai*'(GwW#DSK7VYAO&f.EUtNUk?U=cK:gKE%ãU"K-.tAK(q584B]gK7bkcUIfL+Gk_OmHbd##K))Q[(2s#R8KuHcko.['nqcD1:D1TãU",4p+t2<=M]EM\Xf=l1j%8STXqQfupsJx>djJxLBbNxX;HmRpcBw$i8qUk.jllv=Fn=6X>dc%n2C.TIKeHUwxk.PZG;nsx15RorYãU"Ke,+BE[,P#3c'iLAJJ/y+^T/glU=M]OOSe=J-m_^Buz6;s'XrYZ;YMC[;InvuP6ãU"Esf/zh*DIQc4RC12-&(vbIbRh'[ge%'92C?,9lb5o02S%ãU"v5/>2(P2%2[LZ[#S]J\Usd_k.<'a01r+vwOG_Axaa-oJ1#T9->-l]vc[/a%()1P5&cIãU"h()a95NYBPWBsg\dwogD6xrV07rro2&.iP-:hGLo.B:<'2D5qV7;=/:$z46:69tãU"y_%9aA386[Os*UC,g*g+2A&9C'M''(+w%a^/w&%F*%(;F)5-GF*I%7+)-%3['3(ãU"3^%v%6hOZOD=%=6OiCO79b'9i9MlOxO9t%,%B,&^O+g9t%BD%:O#l&ZON.ODO)\ãU"O<&'(%?%_\O;9af9v9+n9>eadY7YU/O$.4:FO=99]99'9AeC//&/68o7i]&/ZE%ãU"/w,;*05.7'0-&]'7s'G%0s&f%8&%5%Bo&VOD#OnO^NOi9^(O99#AeC/^&/6Y469ãU"9eF%iQ/^,o.I%+])]%/].]a(1)1R'5>&9>m9=W9G93N9,OJF%L&8&OQec//F/./ãU"o9o'8m%u'.u0G39).)B9)8)#0i3o(9iCY(f9lO,,Ol%&)A7&i^(1%*kOjO#2GSyãU"J)S-XFKM4gSE3_:<[;L&[1%dwD$VZw1VhORO\+eRPD^m(;^';,e+)e+Q5O7*]t_ãU"^tJWlO6O5E90%jTmr^&O3%TWorJOaw9C9<4O#1?vaxdHXwi((G4sUIkF([Q]FaTãU"%X>k.a6?MLT%Vau^CSqB/0k=SGjH6%5ZrU?tw&Y_0l0S_*J4-E%IZ#LCi>?,XaR<02&?JLa9<3SWfNhr\7^,)140rEYZ7q:giD87GgtãU"*EH[iO#:rP?D'7[^LQ\^SqY*hZnUkGhE^=L>FYjNAV*w(q^U0;35:Cf3xfbiZ5PãU"E8GcUg24eQB7_;N/b^.9ePS#iuS^ZH)lYml$Q.li:b[hPR2b#sL1fJJ.$k&FFS=ãU"nu*K;((+;D1HyS.nE4KF;b_kc?&Wa+8wn(RiP_LF8p'd^+M^/9p:TLdCIw<$v_^ãU"C6VzR?KKpNG95&$Eau3p(vcSuOgUTu%[FFEO3)i?Gpb(pb0meC-rBt3seJ0X_koãU"rp-f$Hg$cw)F9Y$9l<-w$T7),vXR\OwhEnOrO.<&*&$TdkmZ[/FYX+7S1$-R.jtãU"(5XkK+'m;_*zAbrVL?uvTg?\MJIZIn)Dw[Mh\p_(;RãU"F4K(aKmkol/-lUoZ_a88I#$BmuKS%yCEKs)K1=9,^nGqV_dZdhai$6MG^=1U/b(ãU"Pv'9ej2C$7Z:X4VLJ7f57Xx8Zq&sORj?]T'1kmz^%RAb0'cãU"O^s#=9bbi,gLlt;T=*,#&OXR+UVQ^(Ql1+MOkEJ4n9S.Js,sVd\4+wvS0].HecTãU"#e3(e^RI6YE1.nj<'OfRccbW5&aJ?9>DKS]sc:M:$iofhQNPI/O[s:8''/mQF3%ãU"XA*P/R\By^EEWZ>h*B)zY?At'.29K'jSsO;6uohPC^yBf-CF9eZ;,z=D0Js7zLyãU"C?VfON+*MJVQX]E,[5#[mpb09Ow1se/(TIY-.4gwjc6p<(_EJ_^WS^CTe2h(zYJãU"M%(aUiMVnY9P1:7Fo+jyOgXBWsjn)/8n2,.kUrbh:Acwp=i)aEd?Yg;j:ZAu[fTãU"db\2=_IRc5)hC(,$I3_4yk9ibIc01H?%A7lUdl'FyAksvz1F2j<cTHy\S[f4TusHti:ib:K#0J%:Arv\?Y(,Lrmh8(B]c4-rPN>SN+ãU"9PCR=ouEqlbDY'w#C0JM=K/*VF^e5D^0NtLua(B0*dCZ4QãU"KOCrIuOo^XIm[lEX]%x+m(b;#h$GPZst[*sv,9X-8W&;?*p=,dsãU"H3bC9lsUDL#rRgR.'L]aJ(]K9JOC-*\-y_0A;z_VNNg'6Bq&JV$HxR)ah3Cmc4IãU"uBD'IM\9L3+*OC)\NJtk\kNus5L5,J1#Vco%(JFe8vB[T5FGrOxQ6I^Fn?7L;D2ãU"q]MwBlnyRC]tZ?=U5Zx=?].[H7GJ9dzw/3*F.JNpRXV#-Sb>7L*vX[1y2oIte')ãU"=GL-]Ud;X)Tl>h_1=Lc3i-F$vZV.Yc<]XH^;>%/)/,PmZ$U4vErKii$VWHthheLãU"Qlv?Qd,D0pTlbj]n\bGZXV0G#=9>?u'76Pb[R*bV$Id8^BFcYu$g]4z*#&HW?7'5r=+^dK6[\6A^t;;H/0#z7i>q]Fx.ssn_NtM4-V[qNh6CmhulE6;4G/#t//\85F/LP1g.nSFa*Zj.JnQxA8+Ii7BtãU"pI$.zxZ2C:u,s5iT9q?rS+M(x:xga0ãU"+WZd2Vdi)J&j^ycR?P/bgT*]8,CW_93^F;(#>#\[0'opP3:GIs:a$\iToTP/,-vãU"h]1-KaPe6wln:AUãU"T[Wh-Ucg01%Qp)o?Wxk\1-mQo<\Tt,'OI?tQxQ_i00RZr)nio()n'f)C+C27B'zãU"tBjX&m0sp=5Nf9+\p]vT_)FgdFAUc*\\7SJZT[YEuC,6v5IQLBgGZKmWi]'YTMGãU".KZ7#1fOh46$8*#D]HAR94U4^meezqPxUcT(FLLmT6^KXCJ$/jH*59]=iG1FRy_ãU"cG[AfsAlz>IYJ+[N,M%GARorv.-0.Ol_VyI&h\]u-ZM.=ãU"<.N:NIV\T#v,b7FsJ:i;iCe.sFwQ%4X6Qrk=fdR3FK'$(sãU"ZRt3/]'FW.>r.]qOHC=DiFv^4bãU"bs0u^FBHm^+PHmt*9Z1q.SY<%I:]BB9[tt8[+um34-1P07Ja'eG6XgIXQoP#WvwãU"9irL/g&O2ND>bohkl).Rpp/;wzL:Ox6WP1v:-:Vx&Orq;)p-.YL8OG3nDr.r6auãU"270JE'8XEKVX2&N=[,U4>4S>E4[XE>4GQJpJUswaBfZ'g0-Mc7eT5.?VQryS:d%ãU"\,SIBFe:#A08V7WjgWI'A7:96,MSãU"QVkWF?eD:]jFM?q',^#7*#lBF;9KHLRA\eQ$lFmVMq+*,H1/Q7a;]Oj:I6El'9KãU"-GRa3j*dkFf\v?&Q,RYQ;zlF8=vXHgHG_nwIt*i[lsCO[^u..I;lwH27Y*n:bUoãU"GMSN;nrr6qG+*G$_l]daKEnCJ.m6G2Ee\a]Cro&W0>uENE-b?A$#kKO:T:T(15>ãU"+?-1h-BYT,GGDPqAH68H5/Ra;*/&$Dx(R71'3Gr,6H]O>E0/T$WE^W0o*KFl4SxãU"59UcLZr/q.l#7miC;zahn(CH2,G;K'42&3wonyD]tIviZ&e[]yw;*=h:BmuslSCãU"1:R+V'Hhr%CvYmru&*'z,W2GSAABn8e5Dfk8E<[wp,6I^ãU"wDDOYil\O8MBe8VIq'nTellh;:SULCI,9_>4G,0]'LB%?,lIh6gH(M6(]OkN/v2ãU"zKk[f:Do+?p-OMF?IKvn8pFTYC=[,B;/oYãU"iq*J)v+l%YCNF\Wn9tK#.K)l$]pqGR7TtucQsFOAFQ9ãU">+(..$#Qw1_J*8Sp;Xu*5HIte7=h1S$aZma52e)Krn633ZUYONgM3,WyaHdWqWãU"Vh]%,.4=A%]ERiP$aOCg8V_*dB';N\5Cl7GhV-x%^ops]viU&5(w[GK3\x16u#:ãU"sP;bUGEMDN.l9=-k>?TxhpZVHicqp,0mp8m92[rP>#p(8ZHc%bw]0C*FTnt[UY;(*ãU"F:ckVf04[G8Fw]I$02jaLKt<>v'RmiCQR)-xV9JIFGj>EKPC;DãU"st2V'146_b*Pt8aELz;NNOT6slHdiQPshthWp6j9Vs=?JZbDY,KSn0KãU"h4kE%f'Z8AOPX>L1,H=-0?WjltQmXgp^/Ni'e?v$fK3=#4saN<.3_gdJKJQ\C)jãU"-]FGq+Q0#5km9)giba)Xpi1YQNq$iL)XFtiQQ&b.sF1]l/#]:>)HdK]bY%^)dm<ãU")lYA_QB.GFHQf?F&:sQ.0.mt0i'QD^GG6:/Z.-g8?V:J#)THG4^:^5<5QYwbQD.ãU"'4Eqv)8&7eF8'JQpn?::N[)dki9L)(FW1eY.a6u1:9d-wZH:d.M>]YX5r5PY$a.ãU"Wmi:[Q089u7:TF8u$QS.HqDbQXEq1rQF6<5jYda5u;:JJ.MViY%QT^-=L15RYL)ãU"]hL=kTvC:S-Yp.cFgivQ8^6uFc:#.gaGq):7L.gKfqHQx4gi..FpKJqKy5YcrH_RP'1lT_1VO+/,x/H,L0Bdw/BK%0xx/+xL0X[x/XLsx,$ãU"G-F/pMt.r_;r8$vtV&Msrn0XiW9Knab3giOuO>py'S6S\75.qfh%>]Cv<-S*1m>mMA3RrY3v0^?q>X80-Dr+ZI=T#vrC.(77br#_G]=;ckpãU"[20>(dYq0uYw:GGW.=P>:m1u#mhA\XL?9G9,v:5BanrBpCI42;c]W0v=8FXld\tn98&#^n5[(&xw'#b639#Hm_o*,h5xoPãU"1vZslX+E(0m6zdsJ6=[4VWwPjBH_X92P_Nb[9mTPABCYs0>Ir?kF8F9^?U?.o1>+Eo\CãU"S\Wu>1SQH;q.l&&#$6B^Zkm>r5G=HBq*rN=Gz$P5XO-IZK-rJE#[j2(L^V#6aUoãU"j;\[&\c4=JsQSx7ZJEm]g#zhVf8?H?Ff\gu^\7q-+u2PkMd\>cs<+wJr+ZjFBkPãU"q=N+[)wY+55RH.XPjV(J+kr1_/Hqe&)o#a>VEfB\#-2Nxk=XptD4kX.&DaW\?2bãU"$*K8rAG65kij52GUjsHaJ\\^g;\cG6S>mVf-X8VIlj*huIupZ''P8LO4I,AumiFãU"$0Os,.C&l\HJ.ToRF8UyGP(gJ[/LEW#qHRog-l>I5H%(kAjj&(9F;-:,G+^78<(ãU"7xi$GlhWO(JHbiG4aRax$3klLDGX'tTPbB:c^Fg?GA;hHm7n?.m8F)fPD;%pv:fãU"YlDwGhGtQH8mdU,NB=FxIlRysl>>IL*[4PaKc/)'P-'u4[;enhQ*FD3?1lL03lp+wãU":v(eNJ%v9%hIAm4mEHRf+mFptr0rMeYkrgcuEu2B4^ZAs&Ak_o0DpE3Q0+A%AubãU"B4Ys$4b+xlX0cK1_ma\HMãU"mmfVTQqV]KuaceKDFh/0$=_aO.va?G/Re8Tz_4M&ãU"w\QZE-m;J5.44bNDL#:\Q^=$Z^RTYmx.U'd7YXk0X7F8h.']+vwd(0$S-w8s;JAãU"UX-]m&fzuyrbPokFJ-:M^LRDILv+((E-sW+^MT:#C/4PfRElwRN,BB08\J$&nPoãU"Nk4Ipo0wa^3'&hJYfKp7,,gUods$VuF;IY-+5Ybea7j1QNkãU">X(rKd:Ed'p+ft74(RwPP#a:u'gy$aceEIv)Z6*5c;U4Bo?H)xu9%O'QV*-7aLsãU"os7=Vu;eZ%(53AHNBRmnX7WFU%%tedpYnN2%y0:^)oyG&9s3p7/X,[AG/^PyKy1ãU"m_g>KgW'J-39+CMx>2($6j#zvNi*Ea]TQDj'hdHAp-X9iãU"6iDyfycp:xD;NO7]8qZ6rK&Au0$\rD%Yb;JHETfGAAs]IsuinE?)Ps-7xQgK15[ãU"n*4m^jut%_sc^9p7YQc[1DPl9kX,A$Z1OV4*Zq2p3g-]3u3%mJ#]_L)-%;/U\t+ãU".$1d'Yqj]Y+(/OT91xpg//.]MwngALObbB-Rf$K6:W*WKV[0q)go6%q;FCCtUFhãU"LVN/=oE;:aVw#%up&'%9%9%%%%-%:%_'?0-Ol,&p3%%%:A%%%.%%%%%%%%%%%E%ãU"*/P%%%%%rt.ij'S%qngu%p&'9%%9%%%%-%4c*IK9N;&9n#(%%1%0%%-%%%%%%%%ãU"%&[%E%/,PA3%%%rti(j'Sg%nup&%'9%9%%%%-g%uXmIK$sA(R29%.%',%%%.%%%ãU"%%%%%%&%EO%/P\#7%%9M?46GLS10B%up&'%9%9%%%%-%:%_'?bZ<&1&i<%%%0K%ãU"%%.%%%%%%%%%%%E%*/P y2 THEN FOR i = 1 TO (t - 1) / 2: LINE (x1 - i, y1)-(x2 - i, y2), c: LINE (x1 + i, y1)-(x2 + i, y2), c: NEXT i: LINE (x1 - i, y1)-(x2 - i, y2), cãIF y1 = y2 AND x1 <> x2 THEN FOR i = 1 TO (t - 1) / 2: LINE (x1, y1 - i)-(x2, y2 - i), c: LINE (x1, y1 + i)-(x2, y2 + i), c: NEXT i: LINE (x1, y1 - i)-(x2, y2 - i), cãIF x1 < x2 AND y2 > y1 THEN FOR i = 1 TO (t - 1) / 2: LINE (x1 + i, y1)-(x2, y2 - i), c: LINE (x1, y1 + i)-(x2 - i, y2), c: NEXT i: LINE (x1 + i, y1)-(x2, y2 - i), cãIF x2 < x1 AND y2 > y1 THEN FOR i = 1 TO (t - 1) / 2: LINE (x1 - i, y1)-(x2, y2 - i), c: LINE (x1, y1 + i)-(x2 + i, y2), c: NEXT i: LINE (x1 - i, y1)-(x2, y2 - i), cãIF x1 < x2 AND y2 < y1 THEN FOR i = 1 TO (t - 1) / 2: LINE (x1, y1 - i)-(x2 - i, y2), c: LINE (x1 + i, y1)-(x2, y2 + i), c: NEXT i: LINE (x1, y1 - i)-(x2 - i, y2), cãIF x2 < x1 AND y2 < y1 THEN FOR i = 1 TO (t - 1) / 2: LINE (x1, y1 + i)-(x2 - i, y2), c: LINE (x1 - i, y1)-(x2, y2 + i), c: NEXT i: LINE (x1, y1 + i)-(x2 - i, y2), cãCASE ELSEãIF x1 = x2 AND y1 <> y2 THEN FOR i = 1 TO t / 2: LINE (x1 - i, y1)-(x2 - i, y2), c: LINE (x1 + i, y1)-(x2 + i, y2), c: NEXT iãIF y1 = y2 AND x1 <> x2 THEN FOR i = 1 TO t / 2: LINE (x1, y1 - i)-(x2, y2 - i), c: LINE (x1, y1 + i)-(x2, y2 + i), c: NEXT iãIF x1 < x2 AND y2 > y1 THEN FOR i = 1 TO t / 2: LINE (x1 + i, y1)-(x2, y2 - i), c: LINE (x1, y1 + i)-(x2 - i, y2), c: NEXT iãIF x2 < x1 AND y2 > y1 THEN FOR i = 1 TO t / 2: LINE (x1 - i, y1)-(x2, y2 - i), c: LINE (x1, y1 + i)-(x2 + i, y2), c: NEXT iãIF x1 < x2 AND y2 < y1 THEN FOR i = 1 TO t / 2: LINE (x1, y1 - i)-(x2 - i, y2), c: LINE (x1 + i, y1)-(x2, y2 + i), c: NEXT iãIF x2 < x1 AND y2 < y1 THEN FOR i = 1 TO t / 2: LINE (x1, y1 + i)-(x2 - i, y2), c: LINE (x1 - i, y1)-(x2, y2 + i), c: NEXT iãEND SELECTãEND SUBãMichael Bourgeous CYCLOWAVE yttren@netscape.net 08-08-99 (17:46) QB, QBasic, PDS 119 7855 C_WAVE.BAS ' Cyclowave - demonstration on how swells workãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"C_WAVE.ZIP",4^6:Z&=5586:?STRING$(50,177);ãU"%up()%9%'%[-%t0S+K5,'nd.+7%%x2%%%.%.%%&f&%jWS[gfxFk&f>SRm8x]c=xãU"UZ#O*SS,a]wN(T5jZjI4ECCRmO4a+k=UãU"P2i\2UVQt)5CsgHcJghpBFm^wO>CIO+e3nY.C_EZr[hK:%Fw:Qi4]FgqCn&KOF^ãU"qLfJK^2%ckx^:^8tx6t_On1?G9Aj9[ebZL?zr/V8uJBNjd#f+;W+N_rwYC(pT33ãU":/mcZ++Mj^^S%3R/7/LqJg*j7&R&%.M'APO#6O+uJ1wd9Q.Q4JZNqH_[5'XB_dvãU"zYPPL/T7et1uC=oyBSH,jU7Fj&u.nL(Oo8n.aWnI&56\_M'fZ][Yd4]RamCStFF+YxjCG-,ãU"hP-_&7?8t&4/>vy(,VHVq7j>h8c5)Y#QqdQ$qUvqNBc7os1:/l6n]L91lJOI2)DãU"qx&\e#FM9'>LiSdgez\(\JeH&m0#[lYUQãU"b=hWdZFZ+mnO8*CPe7;fm2sGSSOsF'Gx5aELT;VZIx-GCsGwãU"&x(pviD'OK(3r3N='.UyU$i-HQce%r'h1ywJ^&577I-$/_'7Bh?3;.G$NUei#/6ãU"TRn5e3&gc[aFOY[#M:n/$318aWiCuZtr\/7jZcVa*lueYys,cj#mVv8y*wt3\G_U?.i^&T3oN9C=M_1ESMpj_ZArh5QK#7XnKe^U6kltqH$&OMaD>qSCG=CUxãU"Y5:'s'cGxD1iEg1aqnPK:.khD1/>-0Kv3LWpc^?4nkoZ>Q^NNnfxmdrmohfLQRHãU",cG&7M^iZ]_0B2N0ahy$iS=__uy$*M1AC=.J6\8babnEFr:_&'V\N7&J*-+8>OMãU">EiHO7U\umY(c0;b,U5rm?uPcar2ufw6)&=7cJx%=fbP*5)dQ6ChJH.*s0$A6ocãU"9[QjcO?286D+)J-SEs,]J5.XY\=4LkoY[S.2P>DRCTlzGa+i>JGr*X]>[cY#0cpãU"p4FE?^AyVEpw5813-sr4_]B]J4T3SIe\:kJIP,hzzzP2F8^[FqEQMB$'W%r9[O]ãU"Jd9#F($rXBKD^$/.j$31PgPDQW2v6hb(8_Ke6-3(8+8263*Cjr\9s#c&%H_d?S7i(]hF_KS-/kQ$?jUK.i.B#,kye6+kqh10TDGilv76QSJ'ãU"nS(Xbf4R8N&W;'o\+6GUqgiJpvU+w:uVI,vakw0\UEg;1asEr%P_cYS&]sYHvAtãU"SWHqyfaxcF<9<]Ez>^M2q0x6mSENQV,A4iR#?4-IE)?sjE%GrUnGpu%bNd[XX$)2HijrR*GqrdZ]dUG>spãU"/3,./qRT&,)+N,srMg=\VF=k,jT%up()%9%'%R-%BoJ+KcC8vf>*7%%e1%%%.%.ãU"%%&f&%jXS[gfxFk%d>[Rk5x]-=xUl[H*?YLE^bA8FbN&5A$ee\3AJbu0>WYaRoSãU"Vq,VK8K7X:jk&Mzs$&%G\thRX5/ECv5aK;%waNBf6&Or]iUotU'q'8.I7QXYh$;ãU"-^iG&'F2aVh'qAe3.88%gl=i_jIf.9Y6Nr%h^smBo59Ok^_YIJ,0pJxYWQI9PH9ãU".PkZyLo'tkm>yJB&gm.Pc\9Qu2$Z7^&6kid&*CJwDt9F['fkO(.R;X*kxOw%NkQãU"thXgDrnsQ+b?obE):RKoNi/K]>HFX[PZ&96D2/ZZ*#l$p)bs=7r]Gd^Qu5?umH>ãU")%%f2fR+7I;ne$U&z9?)]9GSEJIF.5cGg:poEd.ZZaOnPSYDMbzP+L0BQSU8G=:ãU"tQIb&S)*>aH3C3)U6d./?JIF$Y3HpN,#(d=[RltFzh-:ni8Kqi/m'On?pLWI1:>ãU".V13HVf49$&w4^T>'udVcN9uxY+*5vDhvc(F+:e7YPw5H6EDG_b2../P'Ofw7AJãU"rfEjEBfY%NN[VGya4Z9'bIn?Y[x>n5d;WlEY^Iu?trY.IF<(N?9=rL)'sdONldw2cRXYW$AXY-$&:McnRbV&73(h61Gd4I\\U\W'ED9bFS;Y$bzb+E;YrdVPN^x)hãU"4+)YLmYS2B'8SFhOCPlqc8AMgPFqGi7&d70k=PbLh-Zg\Ry;6coB(26UWEyY8kMãU"i1Bqz1()x?4lLMS10.#'M4:hj7RNnIi,QY%VS-?NO])$ambaF:?$\ql:'GRKI0ZãU".v72nT-5tUwVa^,9hqs3c.Z6-1hyuwW]dnGyNx<>V+&syU[OE>B2xH%Hg=TIH2q\4C#c.b_ãU":4uB#SI/f\sX[]da]cX7:s[1b-8S\Ktks7i[cZsXHN>pI8fqw;cxi8rMvpDqgsSãU"%..FTN'h=CYr#)Tv_TF7?H_tAMBbnc9$TI/79#?+brFys\R:32z+KDq+Ga9''//ãU"c#G;G.Py=\v.(?n<96[mdn%bto_M%Ye$)(>oB7]mL02YeI#oS6X[rILo)x-#ttvãU"pnS'p1OLhD>*H:(tK[pIHkgW4<19=Dq,^n7fxsQssl:YF=CF2#g9Ls17ãU":a=h_gmu1j.gI'N)cD_7N)vjbHKV9FL94a6<&O^Xi%TQ$5nãU"Yy/CjRP,0?=Kk#'hE>OQWIi/:jUJvJi(Zqn+$N)L;7:=+flwxk%-0MK)Ve6]g92ãU"xsb=cE8i.0/-1f%U_[%ia67_%XIqiBpiUMq9hs9,'cFNQE-FWa8L9a>9grx7L;YãU"j*JJFHV6Mqre7?xfv1lVE4ZN^2q/sNNS-XNVl1bog>1O#0B].oV5kG4mFr1I2I.ãU"&xU;([?RNL?vddcm2^2:sm.V?gt2C:5Fl6A=+wVndXM-T2U#+V6q1qf&2vL'Nb<ãU"=+Js45q-4/qSe\0/*[)-pn^Ui1dW.If>%up()%9%'%d-%X2A+K,^3[/T*%%%j1%ãU"%%-%.%%&f&%jSgRfx>%;<>[kj5w]=MNgr$7'2ZEt8'C62xS_$f0.X9nvIv/KQ(-ãU"0ZhKVDXMvnl>(T5j?3W0GaITX,+XHcX=$,#5aKK'v9.gIXA?.gsqDYO:?Ka26)hãU"T%73jQOT&7E8V\E%'#;Zs+pe8UUb*3-$+JRGTdV?7W_9>1O_&VyS52sRu[[E0v%ãU"6N*z9IR3x/;hq)9'[Y8WD4.>Q5?i&SGr>y'=>v_U^ocsnV+)PX\C+kG[8,o(FMQãU"]&(CI.>ek+ZAAMw>paGHwFQ-BSbq)Dc.-dZrUg/pNsFL6,FRU-?RcTZxl>qTS:[ãU"aD/s)T/W=^4VHa5lN:4;2EM-DcCwsfkDx_/lsvvZ(VU^%F=*FDKQCSrp?J&3POMãU"z=MO.mNbkg=rZ6QnOGAto?,hwdãU"(YimN3f:aE.0HKfW-*fY\)='3(\Ut_pFy(C2=Lj7OPJ2fOiwXfgN+&'Zs7vkg;dãU"GKFAD=.nA;t_5HQ.1n2'K\:PHT7MbgdAovZROi(YBoen.5bGJ+uO$;tR//hH+SBãU"2*-[NK#Wo0?T\IepAYc$tkE-6>Lv7O=5BDkke=th#dX'8aa5o2VmL+9$k<\d69rãU"Jt%*V?P\wHmi_DQkiU+njL:oa^h+N5E>C2E>X-^=n.UND(1d(IRvI6A;doS_<]aãU"Fx80ELT]arb7UtGa;[PQ[K*;$cjgSgaDEdEJn*AFwnE0K1DpB_ãU":qn#]4uG&ZQ.jD0H3XT^h0e3T&dStVg9[r/F&hy*2riIAgE\fFnQDV_0?\u%.c&ãU"du#nSneLv_U5GsrTl0&ãU"/1XaYS,ci$LDQsdIpprn&XGW3RgDE(#=laWF5o*>VS-9YPJ.-mo<*4$\cmg<;(ãU"ZQQ^SlqX=phUj8'tcD<^oq7F=vVJKcãU"Q^;npJM.[dK/ggw9GH4nj&5KhdKYk;/-.0bHQdqc&Rc16DmKopt-468qNO#(u:f)Sj)^r*YhZVI8<(_xp*usãU"e8<3\e-d-2nYm5r=?h%Gc'6[,RNa,--<7=HB][Lf)BmBF3\12x7\CRJ?uffjH/CãU"Q6Q)Qt[3G2I+%;X?w;IKQs)-Fr>%9#P'dk$:'33F'mn=JK&lR'<$$o\j%N=kGR%ãU"Fig7Ao7$D2aVr&,a9?6WM>KJAr2qib&I,ITgMi=2MIVOxB)QT_'f>j_,*_3rc#XãU"7rJE>>,m//5_6:g3k3e7RE&qM\cFY%I0'FB=Q(H4j4et-:dOUlzGk/hG%lO%SmHãU"\TtCIE?l[G7t+lg6cW_q+rnP:5jcz8HT&+M(=FU_$3o7Kc:vq3Ff*CMWM-/RKtnãU"Q-iXaq;7j2OPErg7n'M6+neErY:9ãU"J0bFM,Gl^=t]'d.5If.u%p()9%%'%-X%F5+:Kjb;)C?'%(%z)%%%/%%%%wjf%irãU"jSCy'yL%ypt#mV57(l-x0=AtioQ#%zOk1/pw^eoc7NW,2H5tlq*nsHJwt-GQ6.(ãU"EDt#,:ubLg0>m>UM\XZdBs^(\?Z*Z?MB:ZnCc9#-C.2CySoAFB+C(.1?2bQh/kOP%:u.L>xLA)D9kML,mP7-c8oH\c%pãU"&,qM9^hGPc9IiVãU"5OM:<04ZL8Sjs7:O0HkT&uAr$jtSfe/vBvW:kpFZHD>V[-4dhTw%*(P5,1*(X;#ãU"S%Q#6oW'e;^75bQqLF_4\>pAd)'^=mJjMUpjm(^x><%+UUPWKiE5<<1$IF8PbC4ãU"a?Ki;1pLAP/]%hCq&%saB6up-%4E(pE$FWuv*<+aV1aK3fhGJXa>m#sb=95aLx8ãU"=V^'(RNA%WAxQ(dn8lQ\e95:'VoVNE85bQf9,+9)ABzeB*ãU"JZ^7A$VDMH4rP=2cb9n%xB+E.\qxa[:edst-(TQ'bGcrSRpm,K5tR#hH]MvKO#ãU"u'kWg(qI,g*INSH;PR,kKx,hEP>*B5kP:8V?mp:=rWSk9r?bãU"s=Pm]c;wI&-^d.qWJNTu?VHBlx,LE>55I2/2;AB2/C2H?4EMA403D<4SC)GC2/%up&'ãU"%9%9%%'%-%4t0+K<5,nd%.+%%'x2%%%.%%%%%%%%%&%E%%%%%%.%%&f&%jWS%gfãU"xu%p&'9%%9%'[%-%BDo+Kc_Cvf>[*%%e%1%%.%%%%%%%%%&%%E%%%%U+%C%&f%%ãU"jXSg%fxup%&'9%%9%'%d-%X2A+K,^3[/T*%%%j1%%%-%%%%%%%%%&%%E%%%%A1%ãU"%/&f%j%Sgfx%up&'%9%9%%'%-%6F5+KGjb;C&?'%%&z)%%%/%%%%%%%%%&%E%7%ãU"%#6%%%wj%firj.Sy'y%up&'%9%/%%%%%%6T5+KUOvIu%F%%%%F%%%%/%%%%%%%%ãU"%&%E%.%%.9%%%wj%firj%Sgfy%up*+%%%%%%*%*%%9&%%&w9%%%%%ãEND SUBãCLOSE:IF S=236AND 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ãDieter Folger TINY FONTS (6X8) FOR PB folger@bamberg.baynet.de 08-21-99 (16:10) PB 332 8498 TINYFONT.BAS'---------------------------------------------------------------------------ã'TINYFONT.BAS for PowerBasicã'6x8 font for use in graphic mode 12ã'For constructing font characters see end of fileã'Based on the font that Sami Ky”stil„ uses for his WINDOZE GUIã'---------------------------------------------------------------------------ãDEFINT A - ZãDIM Font (33:144) AS SHARED STRING 'change if you construct more charsãLoadFont 'read font into arrayãSCREEN 12ãLINE (0,0)-(640,480),3,BF 'paint the screenãã'-------------Demo program ------------ã'Normal VGA font first:ãLOCATE 5,2 : PRINT " This is a demo of the 6x8 font:"ããPrintText 10, 100, "The text doesn't erase the background", 0, 16ã'Value 16 for BgCol doesn't erase existing backgroundããPrintText 10, 120, "You can use a different background color", 15, 1ã'Use blue background hereãã'Show all chars included in TinyFont:ãFOR i = 33 TO 88 : S1$ = S1$ + CHR$(i):NEXTãFOR i = 89 TO 144 : S2$ = S2$ + CHR$(i):NEXTãPrintText 10, 140, "These are the 112 characters in the font:", 4, 14ãPrintText 10, 160, S1$, 15, 16ãPrintText 10, 170, S2$, 15, 16ãã'3d textãT$ = "This line is printed with a 3d effect"ãPrintText 10, 190, T$, 0, 7ãPrintText 10-1, 190-1, T$, 15, 16ãã' bold textãT$ = "This line is printed bold"ãPrintText 10, 210, T$, 0, 16ãPrintText 10+1, 210, T$, 0, 16ããPrintText 10,230,STRING$(103,"="),15,16ãENDã'-----------------------------------------------------------------------------ãSUB LoadFontã'----------------------------------------------------------------------------ãFOR i = 33 TO 144ã FOR j = 1 to 8ã READ cã Font(i) = Font(i) + CHR$(c)ã NEXTãNEXTãEND SUBã'----------------------------------------------------------------------------ãSUB PrintText (x, y, Text$, FgCol, BgCol)ã'----------------------------------------------------------------------------ã FOR i = 1 TO LEN(Text$)ã IF BgCol <> 16 THEN 'then we draw a square in background color (speed!)ã LINE (x - 1, y - 1)-(x + 6, y + 8), BgCol, BFã END IFã SELECT CASE MID$(Text$,i,1) 'special German characters:ã CASE " " : GOTO SkipSpaceã CASE "á" : MID$(Text$, i, 1) = CHR$(127)ã CASE "š" : MID$(Text$, i, 1) = CHR$(128)ã CASE "" : MID$(Text$, i, 1) = CHR$(129)ã CASE "™" : MID$(Text$, i, 1) = CHR$(130)ã CASE "”" : MID$(Text$, i, 1) = CHR$(131)ã CASE "„" : MID$(Text$, i, 1) = CHR$(132)ã CASE "Ž" : MID$(Text$, i, 1) = CHR$(142)ã END SELECTã Cr$ = Font(ASC(Mid$(Text$,i,1)))ã PrintChar x, y, Cr$, FgColã SkipSpace:ã INCR x, 6 'move x-position pointerã NEXTãEND SUBã'---------------------------------------------------------------------------ãSUB PrintChar (x, y, Cr$, Col)ã'---------------------------------------------------------------------------ã c = 1ã FOR Ypos = 0 TO 7ã FontLine = ASC(MID$(Cr$,c,1))ã FOR Xpos = 0 TO 5ã IF BIT(FontLine, Xpos) THEN PSET(x + 5 - Xpos, y + Ypos),Colã NEXTã INCR cã NEXTãEND SUBã'----------------------------------------------------------------------------ã' Font data areaã'----------------------------------------------------------------------------ã' ! 33ãDATA 08,28,28,08,08,00,08,00ã' " 34ãDATA 54,54,36,00,00,00,00,00ã' # 35ãDATA 00,20,62,20,20,62,20,00ã' $ 36ãDATA 16,28,32,24,04,56,08,00ã' % 37ãDATA 50,50,04,08,16,38,38,00ã' & 38ãDATA 16,40,40,16,42,36,26,00ã' DATA 39ãDATA 24,24,16,00,00,00,00,00ã' ( 40ãDATA 08,16,16,16,16,16,08,00ã' ) 41ãDATA 16,08,08,08,08,08,16,00ã' * 42ãDATA 00,20,28,62,28,20,00,00ã' + 43ãDATA 00,08,08,62,08,08,00,00ã' , 44ãDATA 00,00,00,00,00,24,24,16ã' - 45ãDATA 00,00,00,30,00,00,00,00ã' . 46ãDATA 00,00,00,00,00,24,24,00ã' / 47ãDATA 00,02,04,08,16,32,00,00ã' 0 48ãDATA 28,34,38,42,50,34,28,00ã' 1 49ãDATA 08,24,08,08,08,08,28,00ã' 2 50ãDATA 28,34,02,12,16,32,62,00ã' 3 51ãDATA 28,34,02,28,02,34,28,00ã' 4 52ãDATA 04,12,20,36,62,04,04,00ã' 5 53ãDATA 62,32,32,60,02,34,28,00ã' 6 54ãDATA 12,16,32,60,34,34,28,00ã' 7 55ãDATA 63,02,04,08,16,16,16,00ã' 8 56ãDATA 28,34,34,28,34,34,28,00ã' 9 57ãDATA 28,34,34,30,02,04,24,00ã' ; 58ãDATA 00,00,24,24,00,24,24,00ã' ' 59ãDATA 00,00,24,24,00,24,24,16ã' < 60ãDATA 04,08,16,32,16,08,04,00ã' = 61ãDATA 00,00,63,00,00,63,00,00ã' > 62ãDATA 16,08,04,02,04,08,16,00ã' ? 63ãDATA 28,34,02,12,08,00,08,00ã' @ 64ãDATA 28,34,46,42,46,32,28,00ã' A 65ãDATA 28,34,34,34,62,34,34,00ã' B 66ãDATA 60,34,34,60,34,34,60,00ã' C 67ãDATA 28,34,32,32,32,34,28,00ã' D 68ãDATA 60,34,34,34,34,34,60,00ã' E 69ãDATA 63,32,32,60,32,32,63,00ã' F 70ãDATA 63,32,32,60,32,32,32,00ã' G 71ãDATA 28,34,32,46,34,34,30,00ã' H 72ãDATA 34,34,34,62,34,34,34,00ã' I 73ãDATA 28,08,08,08,08,08,28,00ã' J 74ãDATA 02,02,02,02,34,34,28,00ã' K 75ãDATA 34,36,40,48,40,36,34,00ã' L 76ãDATA 32,32,32,32,32,32,62,00ã' M 77ãDATA 34,54,42,34,34,34,34,00ã' N 78ãDATA 34,50,42,38,34,34,34,00ã' O 79ãDATA 28,34,34,34,34,34,28,00ã' P 80ãDATA 60,34,34,60,32,32,32,00ã' Q 81ãDATA 28,34,34,34,42,36,26,00ã' R 82ãDATA 60,34,34,60,36,34,34,00ã' S 83ãDATA 28,34,32,28,02,34,28,00ã' T 84ãDATA 63,08,08,08,08,08,08,00ã' U 85ãDATA 34,34,34,34,34,34,28,00ã' V 86ãDATA 34,34,34,34,34,20,08,00ã' W 87ãDATA 34,34,42,42,42,42,20,00ã' X 88ãDATA 34,34,20,08,20,34,34,00ã' Y 89ãDATA 34,34,34,20,08,08,08,00ã' Z 90ãDATA 60,04,08,16,32,32,60,00ã' [ 91ãDATA 28,16,16,16,16,16,28,00ã' \ 92ãDATA 00,32,16,08,04,02,00,00ã' ] 93ãDATA 28,04,04,04,04,04,28,00ã' ^ 94ãDATA 08,20,34,00,00,00,00,00ã' _ 95ãDATA 00,00,00,00,00,00,00,63ã' ` 96ãDATA 24,24,08,00,00,00,00,00ã' a 97ãDATA 00,00,28,02,30,34,30,00ã' b 98ãDATA 32,32,60,34,34,34,60,00ã' c 99ãDATA 00,00,28,34,32,34,28,00ã' d 100ãDATA 02,02,30,34,34,34,30,00ã' e 101ãDATA 00,00,28,34,62,32,28,00ã' f 102ãDATA 12,16,16,60,16,16,16,00ã' g 103ãDATA 00,00,30,34,34,30,02,28ã' h 104ãDATA 32,32,56,36,36,36,36,00ã' i 105ãDATA 08,00,08,08,08,08,12,00ã' j 106ãDATA 04,00,12,04,04,04,36,24ã' k 107ãDATA 32,32,36,40,48,40,36,00ã' l 108ãDATA 08,08,08,08,08,08,12,00ã' m 109ãDATA 00,00,52,42,42,42,42,00ã' n 110ãDATA 00,00,56,36,36,36,36,00ã' o 111ãDATA 00,00,28,34,34,34,28,00ã' p 112ãDATA 00,00,60,34,34,34,60,32ã' q 113ãDATA 00,00,30,34,34,34,30,02ã' r 114ãDATA 00,00,44,18,16,16,56,00ã' s 115ãDATA 00,00,30,32,30,02,60,00ã' t 116ãDATA 00,16,60,16,16,20,08,00ã' u 117ãDATA 00,00,36,36,36,36,26,00ã' v 118ãDATA 00,00,34,34,34,20,08,00ã' w 119ãDATA 00,00,34,34,42,62,20,00ã' x 120ãDATA 00,00,36,36,24,36,36,00ã' y 121ãDATA 00,00,36,36,36,28,08,48ã' z 122ãDATA 00,00,60,04,24,32,60,00ã' { 123ãDATA 12,16,16,48,16,16,12,00ã' | 124ãDATA 08,08,08,00,08,08,08,00ã' } 125ãDATA 24,04,04,06,04,04,24,00ã' ~ 126ãDATA 20,40,00,00,00,00,00,00ã' á 127ãDATA 12,20,20,18,18,18,20,00ã' š 128ãDATA 34,00,34,34,34,34,28,00ã' 129ãDATA 00,36,00,36,36,36,26,00ã' ™ 130ãDATA 34,28,34,34,34,34,28,00ã' ” 131ãDATA 20,00,28,34,34,34,28,00ã' „ 132ãDATA 20,00,28,02,30,34,30,00ã' up arrow 133ãDATA 08,28,08,08,08,08,08,00ã' down arrow 134ãDATA 08,08,08,08,08,28,08,00ã' right arrow 135ãDATA 00,00,04,62,04,00,00,00ã' left arrow 136ãDATA 00,00,08,31,08,00,00,00ã' diamond 137ãDATA 00,12,18,33,33,18,12,00ã' þ 138ãDATA 00,00,30,30,30,30,00,00ã' cross 139ãDATA 00,17,10,04,10,17,00,00ã' triangle up 140ãDATA 00,00,08,28,62,00,00,00ã' triangle down 141ãDATA 00,00,62,28,08,00,00,00ã' Ž 142ãDATA 34,28,34,34,62,34,34,00ã' triangle right 143ãDATA 00,16,24,28,24,16,00,00ã' triangle left 144ãDATA 00,04,12,28,12,04,00,00ã'---------------------------------------------------------------------------ã' Constructing font character bitmapsã'---------------------------------------------------------------------------ã' Each font char is a 6x8 patternã' Example of letter k (data line: 32,32,36,40,48,40,36,00)ã' when you write the decimal values in binary you see:ã' 1 0 0 0 0 0 = 32 decã' 1 0 0 0 0 0 = 32 decã' 1 0 0 1 0 0 = 36 decã' 1 0 1 0 0 0 = 40 decã' 1 1 0 0 0 0 = 48 decã' 1 0 1 0 0 0 = 40 decã' 1 0 0 1 0 0 = 36 decã' 0 0 0 0 0 0 = 00 decã' value 1 = pixel is set / value 0 = pixel not setã' Following this pattern and converting binary to decimal you canã' design your own characters (it's easier when you use a squared sheetã' of paper).ã'==== eof ==================================================================ãLennaert ver der Linden CLIPPED PUT ROUTINE luckyone@xs4all.nl 08-30-99 (01:13) QB, QBasic, PDS 142 9402 CPUT10.BAS ' Clipped PUT routine (ie. allows for images to be partially offscreen)ãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"CPUT10.ZIP",4^6:Z&=6730:?STRING$(50,177);ãU"%up()%9%%%d-%>*9sK\08WYb/%%%FE%%%1%%%%hu%zyij%rtSgRfx&(nEE38jt5gl;_e?*g<;t<4OC/6,T.9C\GOIn_QOd)I%c3p,fsv-#B9jQãU"eGAr%'>H4*S&?(7IbWXTQrssd0I^[wB1l(_MnSyT&^3n5k#,g:Wc=#+X_,Y)X%bk[0fDqgtWMsnRY&H<<_jãU"]VT6=3rC2at$Zc5x_kp,%c,m6EYE4VS*Zum;?'Y8>7t-kiQrFZ5.91Xi'*)-5'^ãU"p-WEh8:TQu$4AJYS9UX&bIDg_LJ]>Ot^/K3V*ofwDHc*G2djQ0Mh;66&:-B$ZpmãU"W)t&B2DU(/6n^*B,%qT6EmD2;ClU12iGU'XUrp/aQRA^+2t1#7bt1D;O2/S\;^ãU"[=jd7y?x&nD)4jsPnUGiA#=9D;,gvBho,pt*J$91E$jYFv9QK/C2R>UGQaFPJPoãU"_hyj5TS;zFV,)vV/Su.-A/=r#5Sm$a0RL,k;02L.X/Fs,gCGdDprfRdWK(3[J-PãU"GmmF=9TnDIL,fisvBpsH;i_uFJZ:9kR/?e6+k9F-j_UNOT#XcWU=.N),Rg5TL7+ãU"8-9>xddi?IiwR7kF$pw17eHcoeWknof2.:8:gQ]fr_.eWX=woxlN.D1/Oxh*%;1m%g44^WecE\uZ2pz4ygMcA_mmpWT'[PFRI]N1y,KKNlYVv:/>ãU"w;AB_^3=vBJBvR'(asM)Nir(%?#.eNx%u_.vOZ*(S)90*4)B[KCe$?hvKU':5R2ãU"9qhfhvdY&3mJ2sT/.RLZ_.iJ2$VJZMgnOB+_FLjb3[IPNgAK+Q(H,mALKFPqATF1.-p0XiOCSGQQ,#O8/$b53IN#'SUgãU".jVi=;1B?iu&;x+&SQKAR;vuSM9wyBC<4U2kz&i)pz4qKZ\lFqmg7OdL/$=&X8[ãU"Q,mnm;GN%.3H-K2M&XT^qi,W+pUBYbuq8s6rXn8i]D>AE;V3tu*33-?/UjOtvQKãU"8BWS#w$c%/#&bM^0vQoINDwspaFvx$j*o4h5*&Vm$oEfGEGqM&IkS[g.SjbAc70ãU"vLt4a+ki-\aR8)mpq,dJ/DYx:Wt%-9(7tY7Js-&02PK=ee6A_BC+,ucjlm[_#(9ãU"L8C#i0OjLF.uCf'5pb.dau5O.'yHmM_&B:eNo8+D.b_ieLO^k*qx)JBUqkfrx0aãU"3qbB(3G<>qJ4S&7]CxCHLM]?DXCDncawlMjEBhlVS7Z[SfKto'%/&.=2i<3H[=:n8cãU",4?o'-*86nO0/Nltpj#([G?Y_LJvXU]Bf_W2l\QPa1>fQj_4JrX]i)3ApBvAFZPãU"BNERy1Oz:11(OlcOzM$->:jWbz=1AfD]Wnz)Ya?Ib4s^.73^FIlNz+fAWUCvãU"7=u7/4x_VW8XxZu]uO5O*DZ30ib_cg(2*3N1moK'GTãU"+33>1W[:gRi4<=S+Z'XK,9&5vJ))tk+nGfd=aA7zJaJ:Y%T1/YW'H,E0Q[yOfX_ãU"UgcB;vdQ/,VCAwats[=PCG#vfiho;h7pK)t$\k,khSYd016BB;\qTADH(.)/fFRãU"%rcH;NbwUM_M\;_bK_>(:H_4/,hns#_&tWD-0_o[uO&lws#p:bmdIQ-:GoAmf%SS+[PT#,;^9KlAS5cZd?K*CrãU"-Bg75-n#Iiljt3Gr-7ey*jIF<8leyOswXq9[Z>yjNCO2#r\W3Oc)C?hsyjDLe2MãU"sa)aMfU)C72aqU:=Xkp8p4\f3>AibiA^;A]f_Dl'>1r89^?P6NJt5zNi9:touebãU"%&G'^IRXJ'=U'Gx2fQyFfO[A,ofP07-=8Rpnz%)%Z%)?2:M0Nj&ZãU"FHDAH*cI_6G2:5+bL9(uqO/8KTGo8r/MRkw#^J2;Qrhl4h[#t]MeMKQ8K$51FFlãU"\V,*s+-q.QM$6XNan,J+Dh6Y'\av:S=I.7rVIeLY)]1]bcPl&^o_2'l)l+<$?1OãU"R>qqxM2pn=ck#r0[strGP?(s$Q-i:_8ãU"NHRiaHn;Hps$/#6IsSu8l4PC1kD#rWlF#1ORlB3CP7%mJT>:u5dUS6N-&3Op96IãU"(4^zJLIorYs*GMjsRIpR2v4YFK.MphLzQxt9Gt1QxR4p]xziC8*4h\D+V-7vX/bmgwI*r=*RWl;0ãU"QKVdqoM8-c]%q\kZ(PJbEEcs+EMZF6S:q6g(fk[:?Hk\JMRd]N98$V>>(7'ZweHPVa:N6VU(ãU"V-I=,U,+$r?5UK*c-+-Ve-$E8F4oIXnQQ^nYz4(EFDCo)T[8]xCExE9s6U9duCN&Uak4+w-l[x*TR^L4M3/eGF(;Df7#3*SG*c&mVP761wK0DX-SX/tu/8K<6otRãU"s(Nu.l6=fIF-d-)$G5pQ+X8g\#=:E1]P::sEh%=(D2YX;zH>&:7(8Z^h*f0('r5ãU"8gm_fn2ipOy8'y7gL(rmb0Ae8h)C;_59(*&Vj%M\6jjyHvYF+X6UVSJwjC,4=q/f2mX&YjDf=IO+J,)bHELP_k^r7[PB(9TUI,&bo^#6Av)&yYebA#hj7Sy(-T2*6#i#3XWãU"*BDNx3[C?dC<$ftOpm-yem_Au%e^9&Ud.U=P=S4m[,Da?^gtGj61_IZ7]1f>?]bãU"6o-r$%^k,X+U%cq^JBCt<^\qbiSUJva3Rww$1ãU"2k)Phm(\o'VJT?78wm$e#j%fXbMI^ãU"I,=FHpGyYRhsNmftExXZEhNJ8lm6^]:6+7&HB9G'gtr93,jiZ7DOceSpd=\,fOvãU"t8m>c68f7PKg+j_5[Y$b&/*/zK?]H4g7rD9J:seY?l#-i\fXCQJTcZPEn/'>ABYãU"dNP9pZ[##]e=]j+dT6ii]FrN*P2:an5BBcs#tuwKQBuG0dqh]33tCk]Pl2gMWxuãU"AQC.si$(:e?7fy.0l:Bpft#T[fjj]Z/ãU"rtJQVit.iU9CvW]S3m,\']CcmGP/A0ZB6N&G*r2mmlt^/eQ10,Ua_*jDG0W%+&%ãU"i*>V$8tN\iUTn,(Lwj1t,g$3V>3bxpBd,B%)R?tR&0X.+[71zjB^Rnu(oks5P9QãU"o\\:cpG)tmV.MrjFvSnSW]UNX/Lrj?sMH,wxf$)3zL]6F?&uZEs7$:AdTepqbiZãU";Z4cUYk;4;0V,EfX09HeX[+;lCp$%XMIhQ]5ph&,iG4cDekO:VCcP?T#I%2*g^_ãU"Z>h70j/y/5i.sR$+Dt&V+apGu+0Ks3:<*=4xCB7>I#[l85&Cp]soQxpGuYmi?L=:Sl$q3$9b$59f6fgbrESãU"PXWzH0=&_P_0BW(4+-d)aT[DcIKSgd/cffl=Fju/SCv0];Mw]b0bMIdSm2+V*sKq.66J&1,%%'ãU"c9%%%-%%%%huzy%SgfxN&&eu-?QnhpoãU"g.c]o)ff=X.o^)X($8=n?^K08o2ExXl]g\bvjmVat;=>aqk,i=(EYURJ_AdgnUVãU"aDg1bLy(Y\]\29E97MD8So=Ii4x1ijv)2mySnVP:HnQZLq2+;q76n;qo3knr9x[ãU"Fz=:zZO9j/sUkVHHg-3j#Up^6^9t'X/'9BN5oV;fF(7K0^/lx.qOE0T6&<_.a6)ãU"m:eBE/G.G=AVh6Qu()O)UX\8I8>1*:Q(g6*T:/[RhuBiMHgQUsWN.6Mgp1;R_]bãU"/DeEf.UZ;Gf:8R4l'1e%lCVi)Pgm:9HG?i^8KA(7'i+B(1LM-_^0;kWNYFp=?=9ãU"*-meP'PwNDs5W>Y1B$ak[ONcagSZL+7Iw1NPCoj/yn?'kC'OMxaGsizY%%v-=1[ãU"$oLL;8F^'*2Hr0.K7FBLAQ4&SN/A#S(j+H\8Iu2[XV<(>Ll=srs%YdkPãU"=%;%wcM>qlRy,/mr*d;p7U)'mNF2\2$iw2$aw#ELO&G$SJB-%zPWFGomm1UQ4bjãU"6+[p+mlAkPB0F7+%,_(2>i2_CPme0Kf-tw*?uM:Q+1jKquYj';3ogbdQvE-]tQgãU"U;YImIh4e1')?.=8HnnM1M,-sG6al_Axd1hPãU"DjC/WC0mL4yyS0COqv8wlk*Mnk;G.l#EcP4j$*eiG(&8'9+lGTejQ=j-tC/'M.eãU"RkEQ)MPa5:3kvT'kx6Yb)07zVj#vh#4AJepMR:'NkQ8>k[AtFFuXh:xr[]96X#qãU"M1IWeBuP'-sLtS,,A$E6f&53E8V9DJE?>H;alsu.v<_E[?uj#G:IVOE2ch9zc%$ãU"/\uI9/[A?-Se3w2P_XL3.oK(;q$CzYf3/Ml>Z*5:m1iEJn>$7crLAh[tDKig\78ãU"_Hei28be^pMU^r75d]#:pTD2x)/,9hJ(Mf3-]Ad>EDtwM'^)W=Z:wjs0MX6POh.ãU"a'bpWlUsQi;$b#G4,m1$CJc9mAHZ.B#4,Qs&Dpq,;0((ulo#_9/A&hãU"B$h,,tzOsqLh:y*V:Kkp?*'k((F2ol\>c[U[>]+<>sc)<3%H'G<#Ujg%y(Z\Epo0>P:Q[n*Lq:3gãU"Ur;uC>G6.[etAS,.I1cFIGkaiT-:;]igLUm;?VdqLxfPmsãU"$.HRIRFY8NmUWKM$*Ji[8-STO)%Lmmi6#='Vf6%cI*S-WO%m>.FFq)&IOS+jaaEãU")k:>UgC.X;&[F\D[)\XUo9dC;yQ[pRr0Pv0?\6_rjv(GU*STxavc)vS_o_Q>]MUãU"a7t9fUQOnGyq^.SsEY^0hbboE4r+p0$GMGK:rN9s1r?Hmgc+SG6l.&ru<91/cJpãU"68+omaCEjkgl(ZZQmXfX^A)&8OiW*nb\Jf*lNH$d4(mW0It=uLXadg$\Foimle4ãU"csrsdsBYn(tvhExW1y\.+ãU"5l>S>0XLVf?6N[]['gkEtX*$M)S+Ke>/u/dGqQR2FUO6iaGIXPC'INI_PVVGV)oãU"ChNTPY-cnl7d'>fi<4n>i>0OHaLhlw.Iwn22WtmzK0Wj<1ieL8zLKãU"Y%D?lasprY?CFq#MUyJJdj$=fqR[oI=cA3#q36&FE)lrpe$^FnDN,r]k)GNop/HãU"KB$\C$4qbD63,Bpl%bme'aNw=OlQob=OHvx,/N4Lm^G<__i#\U%JBt&QUiek=?lãU"$>kts[]rhL3HeR9UI(hKoQ\vVJTek=A844dPxFk*9sK\08WYb/%%%FE%%%1%%%%%%%%%&%%E%%%%%%%%%huzy%ijrt%Sgfx%upãU"&'%9%9%%%%-%>,+sK#$YnC'F+%%'2:%%%-%%%%%%%%%&%E%%%%80%%%hu%zySy&ãU"'yup%&'9%%9%%%d-%V*KsK.666J1,7%%c9%%%-%%%%%%%%%&%%E%%%%+7%%%huzãU"y%Sgfx%up*+%%%%%%(%(%&u%%%&]>%%%%%ãEND SUBãCLOSE:IF S=236AND 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ãDarryl R. Waltz FULL SCREEN VERTICAL SCROLLING drw@telusplanet.com 08-30-99 (03:04) QB, QBasic, PDS 609 40015 VSCROLL.BAS '********************************************************ã'AWESOME full screen vertical scrolling demo in SCREEN 13ã'********************************************************ãã'Run this program to extract Vscroll.zipã'Unzip Vscroll.zip to desired directoryã'Run SETUP.BASã'Then run DEMO.BASã'Best scrolling demo for Qbasic you'll ever see!ããDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"VSCROLL.ZIP",4^6:Z&=29518:?STRING$(50,177);ãU"%up()%9%'%7-%m6.CLDR>s1I*7%%[6%%%.%#%%x42CD?Sh10B&M'<>qS)5w=N[NãU"gGf4P;&jPI)TcUV)j0-Zf/4&SE_EaOãU"XKChqF60t'30LU%sgd2]ZJqKQRQ^/7Zs[MJiRm/X7G\I-&baTFEvV*K:WXn^7N3ãU"L,(+oFq\BJoiLC\=:M+:YUs/9=jRK,(rN:'Z%U['j.hbn3N7_Hd]sn/js9SDjU?ãU"qQnAS.miZSr%EX_a.I3OT#AW>Xub&i28B0lC<+9Wr6+2?z^%l\YIGD?C2n7eF[bãU")Byi[pWy=w*Iz7DgqfWZAU]Ms9mWIPUvxPu^laGSmC&'[%qq/6+XAEU$9gaKV-v>8&iYiHqãU"TU'uN[HM+2dPC.jE*B.:]sHMX\=u<+cuv*3_vls$*&a;J\PE2($IYFZ041.f]2uãU"f#']NmMN(ml0lg)$Y.,U<<'f9ALpIc(fLUODp;jF%I5aLBTsnZPU;##R-SQE&*TãU"iO0SDKH:Lku&9C^*Fqe$talZ)dn+XP,?x:/IRZwNI[<5QHfieaL;SWql^q_;6ia^oA1K,pvq\fj8ngKeAesg3Rhe6Gldc$av^V*ãU"IDHR'N)DbHXC\?*;k\aHZoY^]L=uTvY#aN35'$>$mFNZ?)iVZbf[1%w.p-,*&sCãU"K&JEwSwnD=B)Giv#AWe)vsRogsvE^^4aGqo9H0XSW.2?Yo8f]KBAH]3Mf(M*6UFãU".;Ulm5SbB$ng26^Q0agmInByXm8.l8I*74KD^r+ed.^'qD/o^oHfL5ãU"PL-lxg1C4\+%n29[<*>VC=nQ75pun$+,[-+r.^27SEuH-Q0n$$W.:(E*+S4kb6pãU"3R4%74qlrG:0h-cp12avV_/9$9d-]09=EH/;p#Owwy1>U$IPPp28(4[U\a>;E5jãU"57tqD6>jak9/j1smjKjf[D[aJ%akS:7ho$RYjam;.hZ75w<_XeS]1pgsN=wk>pcq_1*#ãU"?.Y?2TR)7VUZtF7J\D$G3tmMk.-'&Omkr*lLq82?eI1DIcS6brqC/9rZ\$HesYeãU"xM0:W.:qv:U7(%n(s3_$V6'Ef-KZil1R(GUvA$N#P5w;J$T+XqqYm/T*DT\5%-U/gt4VZdg_i0U-WL?cZZ7a%4e5al&x\o]RmeAtJAZ$gkMZãU"wxeE[Z+Zdp1K%W[S:CNmR85'si.r-JHv#PJWhx&j5.zgdB]_^bSC)tmo4D++a#CãU"_r,oQ'tb$Am+,Y4:.1g;fKQKrwU=9)zKD5;i,5ovg,)=N[*7?77s-5G\UIcxO1,ãU"HZwtw)4C8jqRvZPd&qNw67i4M)82cR0.L:WCeAs/w9<=?-jSãU"10kB.'h,BSm7ivmyu[4B[4;U,%(nkD/p)Ez%PF3.[?qObFOM%,\s%&9p?dsHPn?ãU"XXd>^.?q+(s=tDmQYcbtHVvs-FAl\ViY\LE&x)\sGKu(9WY2Fz'N.J0Q_[3lLW-HjwhMãU"Ds8?T_PkSN&5<_*:W%iXTSYRh958j/In+?-9QqK>&I9=WBYlbU.+ZLjF[Ri7ItL$BwzW.[6wVo\Cr5OZ(ãU"]CYO\l6(Y*[,8,1VAFem[EG_FY&sm8Q6^eaPQbV4FuUxVI&woX=GSnZtC'oxYjiãU"3_]4Q_FYd4H[PLjyA/;Hl?GiFQCF.V01Y1fw>B9D(MtuG$KH876'&$].C$L1EãU">>US,K0_+d6^LsZ6?b&3tl=)gkq.&7F*B9F%/U([,fhNml+b::5A^xFE>ek/dl3ãU"-9\U,P0zI//,zK&fXV[h#]Q+V0TU$_FWZE5eM#s;1^MA0FGK8UH/Bk8CAs%oAc_Fmvjc8ãU"MI0w8Pf%+?(Vd*BgKgnAb[cwa3[(R.41u/I,Y5iFL%+Bm:=v/0D=-JtKF-Yv[WmI8HLxEmpW?2^ãU"]4GW9fYL/RJZ#Z;/7wc]?xc$/8FCF$L1wgDSep>n+rE?Duq'YmoO1G>oV%t_eoBãU">acTE7RD-'2*[I?Jh'DLNMYrZsi+AZ+*(qo9lz90Phf^TZVMXyCo(eVOk%+j')QãU"VLMQZvQ2?-'3L=i#=7o=(PQ6][n6g$X2H0BS&KY2oy&4dtx\jiH.:#dWW19]U\<ãU"IH.HQXX\;4;2V=giXJ$^;LQ^#cDPgpKPGgQ*WMT^;\ySrQ*9e,bYAx#Hw#=$WtmãU"on7zh59Usl/9^4>tsnvr5.UhESF0fK2]NX)khZ$8D3-awãU"cX=Po(k+xPEI8Iq)4]+jC$[p8[x3NaFAs-/Sgu6n.RshxM^ZwOqeRZ5GGK;Qw\6ãU"JWK=:50_]ssF534=RWNWB2]fcxwif;A;wA%hZti;m-PU/MZj1W'nPv?,Bl_#Q#2ãU"[6NqCwmPLm'+kV0qe:WX?H,BcXGW'krFVV16hRzA.\bxXwBNv>i/x:AzO.&L]%c[\4l0LBk;hL$9iYE+_g,JU*s-S^63,J8Rc/RJ:AxA1N\Bda(ãU"eU+>eb7xRK#.RK_eK\?K>8IeR4_\AYc6bv4rNy_R,ymCvC::t/8hVw\14%-cn*OãU"sEnDyGUDR>w2XvgR<^RW//EiOLoNH'W^Q?#v:S$#BD57/'$i[-pJL3pqKd6:N6\ãU"q1;k/bz*4>LZ=Kp(64_3iQrai)54:dOv>ZO0]2r>8m-n$\x$T/(yUl,^\C11RL$ãU"7nKz%E^&:HK&Ot6Cr7j7SIDP6P)/$C2m8cMlWZcx('ãU":Lx5\g4i_lt[NI*aR]E;]Cwu+t4-#F?vtkuNg$Gm-\wutW\r$cM''7hj43W0HolãU"\WL^TVsZKAN[baQ$gJm.2oF3[r<#fiy-Btkerp'nArdoMhN&Nn3:[3h%b&8eik9ãU"i9MQhG+9E87wJ;:8HRbMoXN-ox8+lWMMWX<1x;u.d%.48(vtXKge5pW3/x%?m8hUb23/(<=d$Hh^MrlayDR(bxhM>Q:17+(=58kG2#UgM7RHwMãU"uuzK:XRDCnE,&,<79#;W/T\Lq4?s7A9ac^/dr=d8CSoE(XDr%>b4WYPLp/9gd;lãU"(&P=e'21ly?OHMr>%lx&JLu*2+G.X8#X1XOJe-1[v:%os9kvr0O%_6'IgkM/cjqãU"D[H;U75*BRhUEI%6s5R7^79F3N1Ym'M;6e#=l(EAX%UgqG/E0JByKFu&mc.$1ppãU"hL21PKQiY[9hf?CJO1=wI%RR]C+NxTsV5VqV$]'ERzWfz:qC2QQZue7[4=JZ.I6ãU"heaoY^a9L5eu,^?4Eg%rGtRe)hPYBaA705iXH&XTCq+U[=k996h%=:*Cg1#qj,'ãU"W_fO#rWHsR7_)KBAArh;ho\VNlEyQ#0g,G^g\M%P%edm>/Ejf*p_;m>Km?I(]8V[)oE5quãU":_WU\JLC.KYu&]ou5W+/n%62Gu=4QtE87h1C$k3.*yv.077'dlMO^96[da5W%UiãU"&2=,\.>M^Zp(C?-;bp[1KGsul/#XUn;s0XaJ%*F'X'e>G1fks2n2p]BWw^cAY-W'h^7Y[Fz6u\sgeTIK?cjeZ_iIMbqyVGx99a9e2U#n]reãU"sOSm\lCr;U'C%3tY2#Tp2_5m,k+2c6ORC+J/G0Uu02KOwLI_GW7I06*aU:/ms&IãU"=L7Ob;[YOc[_s'iV]6\3499FqZ[.0:%7),,eXNbMU<\SV#=w/O4)k,((m.9$At/Tw;uSy2TiK__B_Wao%e(A5;U=XP=uZ+A)/;,CO/W.EAE53UãU"'3W)6?3cv2Z&KYg_c&a+Sch/KC*n'uSd\+qU$OE)vãU"(;(mR/H:*v.WW<[ãU"e#=V71Oe8.+9s48CQOg_Jy2o1da,zFq]FUM?U43D7St)Y2:\%M3R?[#27NoopV<ãU"LwoW]GA5]_'aRGTJm,52#jyk+JH)u8q1b,n#iGRbW:*no(q45FZEQfn3WtYn0nQãU"+Sj'413>_6:GDvN*'luDp0j3c'M+U0mNZzi]Pljh7\YAE3[,Ry2:mN:ql-jj)0lãU"#(#MBb(i%tT^K,4&Y&UgQ(P=VJ4kWJcV06oB.nWtXe,TBi;Q5.OqQI2.WP&i]==ãU"\(%ld/x-R9)GaUCJ8nC.,]Z0F/NmAJQF**$[4-:F41EX]IAHX32K<-z=0a;dK2iãU"692/Lc-ww9=qiUm^ClRsUKA].aDkãU"B=+koehyXvZTs*Slx:_fSZy?%ruXMV*awykr5VJ;(.-u'0IBq<5q_=X'$Q*K5ysãU"]&7/yYx*1H)'Cgt,ua<5#oR-x]s78ze6ezR,Z+ely(X).?embFAH4t5^2ãU"rUnX+CYhiUY(;P%Kl1]o=y#SFWQ.S=7:KCXh6E9yoHDaRZTlZfPP%w6m+2km01JãU"3>U)MM'c7:Elmq9KIR'brS]DGz,_GXik=$KXQTLJJ$lkY*n9_/eZXOWNTcQ^-5gãU"%%-f1z,noxM9iBKuJuahS29qPn)685JVnv,bod9/A+uj3'%-hO>pM+8ad]M9LtBãU"]gB7aA?qI'Nwffwn5G5\8,7$=&y>]eGlO1r%sYrHb;-HQ,aP:x1NP&D#A9A9F(XãU"IHaEjSAO(38E5'FrD_Ft(/e#JK15#dM$sBpuA6\%J\]D>=ãU"4v&hIR*t=2/%ArN5/GKHoNC0IEXisD#9.5Zk?%PJZjM1d$n>P00ãU"ypHyBE(w&cZ[z5)*p+p.Ql'?(B9ap'nJ\6jVr*S3J^PH(+ZR[dT)Sgz?,X^;ZJqãU"xv3q7df+8d'=Lm'N>7RWQAPT'Hd9>//Gy>AE+-[z,O]P*6WPK[G,m=m>*P8euBSãU"\scm6X]I*s#[0W_JHk&E(1uxlSoF?4u70kDLcFwAWGY+1n?Zi0j(;sS%<8qkA4aãU"^dE,v(hBH#Cso%n::L493HhTqkE3*mT-WY]YtT_3n3glycjK:kI$Ie>/g7Tpkz(ãU"uhoFti,/%0fGRr2S%ua^MQyR\StOF]mT]?.+[HuS-XJ\OHKaan>uNCWQ_;1*Wa/ãU"9\WRt/)'+S53AKiY2-,Bj.luUr#?IMk%U1_QEeA;NY$$&41ejvli?sfA'o>=-60ãU"-de07k<'+'/m-q0;q-vn(h[c'TUZl*+y9OãU"FLRISCNTM$E&wPpIO-YuOQH[JVDEuyjAfiLVfwd9%5&v1<+Fa:AWu\F316;(-JeãU"fU#<&Z<7y/&Q;>WCpg1Rpmj.Sgv'SwXf[W54+G68P84^AaD)SOWOB:iZ(#itJiOãU"'\)TL?q0)E;;3X9')LWRbM6bco1i%s(fLJE*a+tdEn1&1RX\;[F--E#gn=DreaN2\+O3gjvc.+A[*R#Z_H^afU\7d38qKidwãU"_yN*;%:70r6%+kx2]_]4(s4HIV>:,E2LW^N2Y'UYIC[cDEERhw2fkAKhj.rfZY_ãU"nt=A2$a)P$VhQ;s2N+)mP:*O6J5W;thL4wFfY#[)_FxV<#-LAW,5au:8F,Y,+d4ãU"PCUfoC1=$Rg3/O4?WAKgsk>vGP(PbqeC=E%u43Yy^;C/aS5EãU"F08DE8.sUMGc9U_BRZS(2gdZkE/3hTzGP2;fnR92zobOpCz7n;Z(<3O*q,_VT?QãU"_h0jTM\wh7+UK';CxKql%Y%1CZ;1hEO].0-08hc2)?e0p'BcK:[oR+Obs]rGrE'ãU"1x1Hbk_D&,>B1cr]MB>0pf[&NQ*p/ktniv-Dl_<8o,FRVrW#742BVK/Mg7+;%e,sMk4jjF2-8G%6DrOurFgnd7*KvSE-$'Mk0DIeJãU"dc2thULTs<2D8i60[Wby4ZmSkijk^itiR:2o02tpoK_)G7%Z\\ãU"_[,#GARY#qF>Y4VEA=^*38GV]Y,8?w9bBesk>$Qgk's,3ZJWJv7'5lt=_:neak,ãU"C^83glMhE[(%[QB5I['Mm=SNIs-5,$S-.&<$+KY1\k7ngaQ[m=ki:?q0(h7gwZ.ãU"9B+\WXusPsTl.]-,q,j^d,/\$148'0U\j$W7W'KmKF&pH68f$heI9c:bX&e,PR&RJfK07$jR,OBfgZxaaZXU;*wgVUãU"-4*#sNKZzCM:M&52TpG]#i+S]b%nUtQvO#=[N91Pt#Cq[Fi%4T_Y]F_]cxIBQW1*BeM33fuFRJRURyxJM*WWk06GNfL,,=ãU"bg:5[)NIW?m%5[e5XL4rm'S'ciK.YpilF'heS7]Z4gl5SNUiKN7BnmZxM0pm*o/ãU"mW/)?TMM>?Tgt(R;9WVX9^d*d_LxjED#^Yoj%-0Vy8uA-?Pw^gO-QokDU7E$q,yãU"WIrjlUv7ID>rZ-p2oyzv=hl^6Sc,UQEh:aT(&o7rK^KYAk3tlLOK5hVVD9JL3NEHa*P3^\)tyMaY[w2\YC)Afd+.Vq]iaBc3=src&h8>Og4&);;UnHatVrP*p7$xocfFRQ'SGP)If.D1CQf7F:\jkcew]^0J9-rKtUX$UfD%:cU>'ãU":,,FC)YvfXqCie&yo7['CH;B*v/2.lrs+r+ngX8*[/WFBmN;I;vF22d&R%VãU"i&6dG^VqNN$tBXicU68\je46B^&n(j?2%:6=nmHdt1-h$npvl%<+z2l0Y&76WZOãU"jAJ4WgaZqCbeP?#/56($)&Tq:jeRaPgL:d)CLn+j4^OGt8E/0A8?Y4m68LBn$_?ãU"Lj1?Nsl#7f$Te.?%>&5l1k71$.F2Js>FJc7cu&c)4l15M&d3OJMRC(q9B&bmãU"3%>+T,(qk/O:]S2Rk#[/gUeu_ER%d9]J;UXfeFZ1S$$p92IH,^)ymzLpAg<0GN6ãU"G]9I[UC#[eA-^Bh,'Mt'UZYb^;69a\y=%5[?Jk,W)+.$-sBz\QO&ybANãU"h;T/7e=g<*I/tWB/kiIkQNzA2IAYneUguZ*PuFN7+D$J]7+.6v$%2/_%Z-9ky72ãU"<.>\rCiA1ydi=>I(We:I\r(qj#'*$7[kMUdum0EcV2t>>_-ZAZfRBw,FEhKbQ#nãU">A?CE'2hWRKcs7X.YOR'%_Z$##KJy/j60(>CK>,U=paoXD-BsQcn?>$T)Cw^Z9BãU"DnXTSY-$rEK.cR(na5>+il>(-J&g)u-waMJ>Ih#\pt;>)dNGxGB\[V0-E2?Tlf.ãU"xX[L^67a=G4oqn%xeajfB,Pm8I6GX%']U^J->8OS)raD3zh;Sq*,_6a79g#u%+ãU"2^XwF3DTN/D+4hkpFxwG::WvRxvs#;.Ft[M-^K#,/GãU"+hA)*y6*&/XLS3v\6n*kR8mF\FQD_jc66selVZr\;_aVc+aZ:bLkP38BOEA0ry9ãU"8&SlqGr95657>ZuM>1^qO:e[KneokA-0Q5/hX8z.kIKm89n\A-;=/JtNnfDh\[aD9t;o31ãU"^W&\W*^]=22ZWwHGOHE?'H[MADF;k(GNFjlj#&=WL5*UZezXjcNR:'cP,VDJtr.ãU"?01\E.dC>gW$VM5=AixukZsQ9tJf)#/DOE3jdVf823SpL*Q4C2gaWK$BrnXG\D4ãU"g$$p[u^4k?G2Fl2-vB\8+)#<($B7Qix99?,KkVGGNvf7Mw)eBU0:WVqv2.E\DF$ãU"_m[n5b4oH%v_Xj]cIc3#H$1XMvc;tcN2pC8_Vvw6o0hH^LQb>8'4rãU"Fl(nlMw$__tO$=:?JVJw,$JiLb+MK)B&],7Xk)?B.^7.)scVap6cYYICpKH=6&$ãU"c08e/cP#VTl9l/127rI;Oa%&]M#[;#J5_h=\6WhX:ry%][JW2B31LHr%uBht<)mãU"Z1L3fPj1pA-Mo3gGr]a8)*sf.5JQucAeA(/8*EB>Y;M[5^Eds.JKn,xfRH7oiMUãU"]AF7>H,2_a*(?n>mdQvpw+Jl.g&Hw2SoB+4]8#l_9p81?n%3_BGM)7rtWAbGh9<ãU"I>KLRYIKRAkYUt,6TMNLI$A\,)?fSu/#g6.FjmEwQTRLNãU"e7uD,1hgc2K)b$27M^MiOSi17rfKnMWw6#Hm%[Qu(+X77Jid.[oBS&*US6G+4q7[l;ci24iVMC_k.sHp>ãU",hfx=ddrt2+>nqfRmcGq=j92dK6V*L#TSH?cwS*p%jmu*#]r8aR:[LfAjG5)&%UãU"Zu6g^V_e/DTKfTHs;a:EQ%0h4=\)::2)Z075Rt9F26Vwal'CPdu^uTVS)mjo1dLãU"&6G;O\6*Bu43#n.Llin05,J]3y[h/le?'Xp,mHVBR9[lrpR)V])0?ip07IsXD^fãEND SUBãSUB V2ãU"?NAoVE4=qzaY.C.rSHcRo6.\i1f'Va;.Lu^3g8X3ROuu4,7IH;9ScH\f<5BS$CLãU"3DG\i4VWSk8HB5c]ceT.FHVLGnW5+#.[IZEt6/Ngx'Fd*0XW+^^]o3bM%0ãU"1t>CT(4_I)hwaa?pjNhdSY6r^QOMZj:w-tU41(]O_P=NG_bxhT4$:LSKTA7]k[cãU"qf+1$bC(&K#W\1aRE^mj=F4vd5h*B:]afp)&k/-]70K2&\]:DI/ar'q*6sJd*g%ãU"NFn$N6cpbV6+Obs3k_)K^k[$UP:1ka(;9U)2'WqxM-DU?lx/2lV8(0'(TS9:9ug^T-E?AamkU<':TgZ(dHe+O[/-*fG.SRlWn[#m;<Nra4a>7So1>TB,So=C5:b*Dm%bkn[+8HJyãU"\LHi?JaAO]7EiY3t*kTdKvf>W.-z84oWd]2q:zF65A/wrb#g&$NW3ce3T-,^I,jãU")z/-G$/n3sEE76w9-[SoWjA:WV$I<0A$?='+F9a)-Cnz$STGsgd.n$oXZ>;-(WgãU"g^s^TZGSI$,=G]+S#::S'N)7N-H[dOR$eNV^/o,%Rl_.OEblzaH6LpDe8C7;EA]ãU"l_K_T1s>%XAPk1BOWXJ&oqJXGv[NgOc#x'vd^1hfgr$wE/k1?6aiUQ_/IãU"-Gwd$$FUsMlc2qkP^tUb3G+8AcvMvXL*dFV&GVl('9sFJ>i*.W,1(89P1)>n)f+sJY[D44'Ku.DpSs1=ml#BsP=ãU"hync<^29uW40YrhTãU"d&.ILnAl1E]A?FAgO6>[QJGCBjcZ$Uqi:4t$u?ZugSV8i2jnD%Y7^zJ/<'Y?Zl&ãU"2gHs$22RN&j$v0ua+e=VCd1aa\4$)Ie(\DqEgEY5G,e&w]5l2wiA;0;sQq1dgJPãU"UkJ,RjChOvt6;Btqyc0u3lhTVF_0*=k+6]ks;'?YT;UQis$HFQZ*aRW&HSIEEx1ãU"1St.EãU"o.sh4iI9M3=$cX_XouKgM1w4AACjfFms8V41ovZ7uWU7QPfk2b4B5-UjDE:%m-hãU"n-2)2'['-bM*YkH0M&MAAopd&usEdGRJ#/WX&\3RnO=PCWfWn:0?2C.PQBIB?owãU"BGZ'Xteg<0&%a-P_8Ih>hb1:VSp*TR2i+2_JR0T#d+kys^L6?OM/>L58XQãU";MMz\ZYt(:LUnXD)DF\[h>BOvH%eEflUUiW\eRV>B*H0u#C:LX>Z[g>Ro$m$lT]ãU"a0.-nE)8h&bAje3X<_D,rNvItBhLg5hE[K)^Ct[WGNrZãU"4:k++Uqj):]iuX[eRGK5:Aa&bC?\;5ZgbhbI;L%+Jh:EH6B-IAoOaNnVbL+EVG,ãU"8=Hon\W7:v>8gUxued8h-KB.x&Rd$HLtcVoBxKtV^x$oZLOVffa:6ckAsn'0$W_ãU"2e5vF;8jQj^;5#D+/[Vdp3Ke9\arG7LySWO+#jG_yk#F\5585dsI#t^wGp?T.yfãU":9E^9y;>=<>$QuGQdUIO]Z3g\Z^f5D-+y^fPP4rL*,+,yrC\02q-rT^+_$zU3]^ãU"<57>kO-]&\'X^k_AdJH0w+NWZ[>Sma]bm=q1&,Q]rT_g(+11DQKpWoIB5?bj)k:ãU"eUPb1Uac%-dgSUiZ&-jb#elUH*8qURQ=(P:SA\l<7_&p>#]2adR;%T6)Fn-[s.VãU"&ZK6*EIj\cG?T--cvdP)E\dSlsruV)r,b^UY[_[6+FPEOC9p0BvBICgv5*\>*A$ãU"a6k8Lp:d,8LWaH^nM3e%N+sSjwS:mWD/<=sOn,rinO1)3F=8ECl_a.bQnIP8a#NãU"p>osfnZ1j;Ri]'xn68<-s=WPC9pROgKdwMJl:7*[H1;_z,6B.qe;A=iK=R*8uBCãU"Ub#6?]t5F&\yi8yOE84zcoOC1-WE9'7[:YN8LqnWdb4=.#5K%73*c,o\O2+r5Q\ãU"NVhfS7Nbu[_kq:D(\UPR5:$EZ(8JJ8%mz6_][S5^X<,;ZOFBH&A2/ujWlU+GKYe.)aD7i>$kl&:(Y2Aj6+e*g0CZgXlz8uWewcW4H9ãU"qBqo>QIrDh=k6.qc*/u$(J6/3%-_,f4BOydP)p/n+Rnd?k9]FcRkJsQ5z^Tr7L^ãU"tZ7?Wq59-$n%BM:C51#Ufo7^8V72P?]e75'Ed;;-e8]f]05k.Y:4^exFPZu$^1NãU"pU'kXFJa*.,MOwssS5k]x70G^#s<$7dLifcYv>q*)OTP>^YGw1[>J'Y=lsQ[xGyãU"[KQ\+Q[L'UcuPU^75KB>AT+dm=O2o;d]ft^F70'SBi+9pen-=8AsXV&Y6cah1ALAO(v5a'R\a^D>\H-te-1^E7Y(8[b?r_-Fa#uE.Al'ãU"wKCr_.[3WQNaD8:A1351-))u;g4s&+=7($FTI,\niRkJ3AlFDmTXeHOE4]ga55wãU"l;Go.pNsZbY;)/._L>7J<$1eM&i0e0xQSp1Rmbr%%W/0%x.-TPQNt'P7*%H/ZYxãU"i9dDE5:UK;]Nw#/6Ll]Fu.(Uu4c0?2nfQ^kXv'RxH9E._VN\xfWj3wz$w#%xsZ9ãU"A#kfDj^>#5st.>n.souPw\S[LlLWWI>xKqRG>V]j8^p?u8Ym;I]ULlx[NCV#\HVpz<:$WrNG$rmãU"[8rl\x,#?BS_3GN)ZO^^JA($w(,gcr9dhrqNj76xMN1-mmDduxjlx?JHx*%up()ãU"%9%'%R-%]wBmKNE%(tI#I%%n*%%%.%%%%gf%qqWSh?2G-h+8i\(kAr%(iai6nTXãU"axZU:wCkd7]'8qp]'t?&ccQ6Na5ns>B,5LO[d?T8eNf8$n66YnTT7ucZgZTãU"8Huksx;nMsnjJxiA=TvEdk^V.xZxkWwIq<405N_vlln.)fh>&^ckwcT2ckSNr[2ãU"x:8lmlrs1fh*GLSl)i;6NeIpMNb$D-Q#v>=E,d/Y)uU,4jpdCdyt9&D56OnvOleãU"S^9:7k*antbXA398>ygy;=mv609KB_$t6dohG:vOH_RDFg-ãU"$/D_dE^TNP*9fu0-'4zUz%qiR,?wYnnR7[ur^EuDI_+^Wn)Nt1OX%%C4/+H*=djãU"N5?s&e-,C;:EFULJ\,74iY]/MThTA]c&%u7ni^fJG[Mx];QZ:I*9S3DEsWYG;d-ãU"y(v1/'evggDCZIZ8PTKZqZ7\7r*AZCIQD4zuAitGBZB8KC-HesKiJnQ+6Z(_/[zãU"PHnH5u2iDtJq.>FHD>8gB-Gq)?c++>Ee&092U>3_'..HnCh4I2D.,*-]WQjq,JfãU"0HHxWR>9E8a*=9\sUgz5&/Gqcv8g4?g5sMZS_%OWuFfnNzj_bFt[/p72:4%F&1CãU"v4zl'sI-ferHKqrp#jp>TPhXM^/J+N5,KsMpo,TnnURCZW'YC1-.vSUfx9F:>^kãU"-7p4Vy>b(vr<&FR.gTVVfgKMq2bPd9N.g]'2d(yS,09(k&5k/W,C*4rh)#PF-ZDãU"[C1NnIj<<.(Tr^(+OJXquU=ZbTAF0Ar+qQRc%_J$3PkL=u1'I3;Pma>IP_#8b9#d5'3P%R-c#o.IaZ&[JEcO:IfBqX]?iB+5YãU")dN',u+2%HL9[.Khl-)-VyJ%[cXtqCUflCUeiE1T9w(l)*NA//jKX6[CIlM9JA6ãU"mS3/Q8:9*rbf[xV:=9Q)&zE%Z/:xhT:&1x/-,sAI5<+Qr-E..;ZPh*U'l=aKãU"l+k$MYoRo&qP8l)jU2yWd4A(%KmmGi0Yt4>166n4P.)70+gxwK6NBho(?P_kTnMãU"]pd&Vrs$,SxC[Eni7kB_8V9A[zPU1&ZtT8T9PotK9E=oN%m.Vqp$y6>fsuUk6QAI+ds&3,tR66Ug6\Q/-FZcUGyCpN(_Q&a1YqF?Ws+Bd+CuXA\Vb+Vi;5/vq4:toORkhb&HgA$#-eãU"-HH:R;lV3Zp3G7I]K])OefduCggcCd=*IR39((WDZ-Q9Xg=ãU"5yA:3H,o[8IMA/0(oF(roIYO,,X2bU:w+&POr?^)kO0e:Q5%^Hjb9R8KF-H[fSgãU"4IAAJ&fKf/KkL38&Qzv-G%FG_L-XW('siNML)MkeEqo8b0725N+=nxG6q^=QjgAãU"t&Ef<>T/WiUn*0t5XD(T>lds&TCZ7KB,DI^\*&Y%.[?$.TQD^#NFo67ip&l,m?#ãU"e-H&DgU)qHGpeHSrr[DJ1f_:-/$;xTP+Cg;:=Zr>o3gm>ADUM5t1sKp6Ae8/If4Dfi+'1raH9RejJCDCVM:Ym.3QTA0HT'buOE=k77TzMb_6K'QohY-noBC1T>cFãU"3*h+ZEc#xs(A\yQ7^==I)\oVGPc]$3w+=d:9U25An;siTbYKP3;X);-T9M%Cj&,ãU"1vjW9*zgOkjt6kmGU8p$Su43SPvXub)Y1URu1q.kREpsLk$DzDw9nqKr?L8-7oHãU"_n3oV=tpF\[5M:7j,Ku6teFyu_jtwM*%x$;fLY:4o__Utc%C\E]P7+huSCAEk?NãU"/L2efG%;I8B-K_gq7'89F*BlVAS72]AnYX8OQIr2)A2>I%^Zhocm9p6NN4TFãU"ZHf1f^3A$(npJYN&&6_st$jkbM7rykZOWsmx#Jr3(9+p:]MK^7pWX=Q]NTEyWhKãU")f2t)4Kn9Mg?9aUp14BY%'3'MUtIK8p,Asm:\L&2+L,rU5+hFAOT&sOLR0o\6;EãU"b31_FIIeV.A0r_5(vTa3XyMw3tjZ&>h9qdd4NeXO_5AoI7.U]5K/yIU%je'UJgHãU"aRR_G/.dh;bcfMj8+4_j(8]&utjEC#ZRF9d'E[M_7Z>1LOq2[09?$wW)6Owtc24ãU"b?h(CWBmlS=8P0a,EpW\+BXVCJ3#cbIw#.1/]SJlLxIEgj>-SãU"w1p=q+2Ul\nBA5\dt%_jQ5p&[H,^%3Gl*a^=;#2sb3YJt/QCR.M/9Mocpyqo)t$ãU"#XBm2[j?LeBgJ,B9A.:E#mGUV.pt'_*iX#\4D$DW-m$9g7p6oXks$#Z+ãU"iA=KCzA'blcr#ddF+A$6&]gEe9PN#h6ZK9J+b7R5sh;f/U:sUJp69pdd.#-83uVãU"EUO;dWi/9q[r%0$hL4^HgM>XcchrU5rFQH:w7jLnhC:[N%/Gg4sI9/lezim9$,&ãU"(JP3nqKQ;3pz;(6)WR'9S3VbL7G*:23Txp=t/2K?YB#9oi/%pW;EcCk+>cNsQ>#ãU"Mz<,r;W(]5Yf8lUX1#QUZU.LMitiSc=AM9+S;(S(2&u8OR68)E6_3o;o->ãU"()6%FxV%Kj^re3>*dQ#BT0s2O_UZY[ph(p;tQmIX+)liX:0gKAMT2lsi$rET8R3ãU"-Mk)UH.xV1ZL6HASahet=;-O95Kv9PV./4?$.hpX*J9M3Di(=kUs)EDJ72Don1(ãU">(RtPa2?00>w=Ru8;D,&+Mab*Tb)GãU"kl*:&^&^QL6TsCC3J8MW][./7'PVJLQP>C(CgqVSãU",:VR5dCSw3/hk1F#J^l^XzxdPOP9(/BjnGnw&*YB5%[7m)YQwJGf;VjjL&*e13EãU"0)/Vaw4Ov^j%ex0M*SwK)=>P+8[bvu=6cT%rsEw1qg]whte'R*CX+x]RM,z#f=>ãU"*7wWEc2T)*x>u>%fMfQbPto7nX:L[*GD;gQW;?,O5Pmv,d_]SL]waD0CBvPU?.ãU"HL+M$83t#OZ'+(t;jBji$J6+hu%Dl%c\3rL5V]kW9s6-A%PL.T?ãU"3I/sKo,?kTW88gL%vt:kO<#aCZ7(]4Zg7)&bA([bN_A45eK5LeiseB#KG#LDV&^ãU"P=p,+#^290+O6>^ST/.O0DlBVkj.)$bvg&F/,$jL$Xn#U%OUeZ1O[G)6)tlfC,XAãU"h4aQsmhnh\8^Ev?*,Uf4kN]mKC&BE+0g>$9jbK,$vL7/W3(Bm\FPW]NN$.ylIpmmHcn$]zpwR7.38=09.Nlp*Z=ãU"atsx+6Dx,4&)*^1LU3dpj/1A#tl(eC#A$Y,bKe\s7hG#WiwurFoWE#h:<.D3/jNãU"3O>2A=Y*pH/bU\_77Q,ab>-nT)r>eFxhg4iy__u-3H<,SvZJm]_CV]%9&Lt=unIãU"_TKvh.1\wSvC-rcU?Z\RkOgp1VZTvjHUmR0$rbt\l\oãU"+C(ffXU6fM#kA1:^lRiãU"?P2<1ys'hbp]X2GVlaBlpRfY/16N&'t%o:ix>l>SH<(2BgWxS]**k'.Q\g2_1j'ãU"N3N$UiqGR+9Lb*t)xc0-U*_S8g',U#AJ$l53tIYZmLK2$ynY]#Ra~~:$I5SSIq2[5N#q<*<,Ehz:]p5$*XI^Rs<&fs$c:gTI~~
pW1NãU"[%6n&+,DxuJ2G_R-:=_J'oN?B4URd=7Mo2BLR?&(JBQ&g^Cm',KVQ'u<5g^lgRUãU":znSVKfDBp#2J-md6xNPkhfDnp;d4M8hGF3o$jtM=4GWUDP?CHATB=rJiDE\W8wãU"A;v>*Y;nUVI5JEX9vm,r2K4C>3e'Lm3Z1Q[$Jw2]=M'TfAdi1ãU"L7G4X\ZuImpaj(IHPC4m\V+rOopUVM%^,^bCPep.b9OMnGwhãU"i::$B,plV'YZXe.aO/AEhz\=&:R//[#yQO/pKjT/&RDrMbB/;&7a0tU;a]3pI2'ãU"ku0u$,fm;E:TkvhF+1=*2jdFg6oY7TlU^/1ImzK?HeUBA$_'#fefg0(X6g_2]0VãU"bo#X#Y0ji[<8&bcdEaI?q[J)Rb>NG1$m)w-OPrw=K>ya[aoFsQ7^TmXFL38uJ#\s-/<7*lEZcEsHcE(*5>P7jMKMN5yJ&CzãU"a1NI,.G-kc)//>eo4*W]FKHs#O=F.4u3[KSmUOT]P^rs*vXb,(=/sVTXM3ghFF]ãU"IS;+8HNKbKm#>rmp4V9+vSv&Y84=vITdoP-L=U*8,]38=ZStoNs$5NcY;bp&qhEãU"$h3LA3Y$g5nm*0,=\p_zTmO3oB-,r$2Y$:-?t^s9JluaiRd5S8hFQ-3aD=#a2uBãU"atEiE+)A/GG-sT^ccU_'j>-oZ=*a8;NTrCR3d3iZ8be'CB*f7Zf<,Ib]gMJMsz:ãU".1,V07q,QrUf_XB,Dnc'nW1hdoBvqxhdHãU"A6g8PKM[gE[s^/9mjE5=JiusZ-=0Dfq2sohUvd(CW$]>/xApRZx[]7/yQt+W.Q^ãU"s[Ad#5djH>Md9)M/m0iW6I)_&:TkS(iU$CkN<:HloS;E7z&3fdIt*DpnsD4m,GRãU"UifRG$7kS.==f0>PoV95M?>lkQn4#47Z5jKn2'Y2o48_ciPZ>sjH2qESkl5YI&DãU"hf77lX9.YJ2D5J'GHa%;T][fWMk44dU%AaKd=ggw?U>dCgqBnj_8P&Dd[/)1Qh3ãU"MAz^8Gs:$-Lk07>ZUse%HMqad=0x<'P0LL4(??(xZORud[sLWqe/1-D-S;?23p%ãU"Hk>4\P8ZPKGi.GH6zlt\I\DRKJVO>riTOMW6GLLF?9%v#N]Bt$Ydl,Oj_uxS2S6ãU"^-0Eoa>RCs-=iw<(2B+1#fSncT5hXto8KT7$.TEtH[-u3bSXVC.S$LTWo3,N/%=ãU"Ndxyb7.[0UXHQ)xk*2'Nc8ts)?+GDt=GLE/&H(ExN[j/5PHfJIx)M4$.eJ&r=/wãU"\R:a$%iAX.%$#rke%[qezqAmsuH:=.*ZBFC4dbmLM3,dBa8kLQ4;A(51B8.&L*UãU"I#tgaS6B%\4kBUqeLYDC4WBPDCzg_-U%-;Vu>)j-.TEbãU"$U#LQU9]lp?[0EBmzxu*(tu-Ge&bj=QJ0TZJT&3_h;9F[nFGOA_w5NL'7qPHllRQrY+j]_IKcFtSzu.W]FlJF6=#2Y\u[HE(fu*^7jD>9_qãU"A)GkPBYsqv4/rU#D^y3Ovv9+$iu[_d8Q#E_bI%^kb6g%u6[$<)_JOCYaX'))-QQIcl8\UboGSeEgO3[5d:^u0RNltAB0^dGmJgXAbãU"H[-.%VEOQY0x#J=8vRH?>'M,b:2TC_ozsi5jRgM#Oh#qq$&u9Y'[Z5dxOvglbc'ãEND SUBãSUB V3ãU"E<[9O8+F*IWG$;xBqzkJ=Y7EvpDxuh]^uwuRNTq7'YT\5oB1/U0okuQ27^ãU"gVLmK;\;6&m;$w$#rP%pC$ogGE-CREFd/.16XIJ]3geIr$[braG+*'nsS0#.OJQãU"aS-c_FnO7),OvHKCYrc%VYr^)oC)$S3:q98g$421o6Hc_ZI\q%a_-.\xNc/;Tb%ãU"#l'U^ZV\CNh$kc,&u=M'4[&h]vH+o\gKFgL<3+#x;7=Cc8Ml/j7g9KCR90o%W^?ãU"*ucSKYvE/SFy6EMBjVxbMPEnj0q%lrRM6g#P,[ZGKn\Ij:Yqv(K^\8Cb2'LQdiPãU"r;oQp1Lo&U>nZHZO6.I^xfH]oupZGscc^X?>7lKDx(ruz5TG6=$,Z*^trRZb#icãU"6l[M?amVctrlRYi2LSm>68+[3LAo2Fdxx\lIwuhQ^33CaQ&#SQil.XtXO>:'I42ãU"vo+[2s[#nvsen*XJY^5/:r^WX8gC.^x-aj,u%p()9%%'%-g%\zmgKp7M)a_F%4%ãU"C/%%%.%%%%gfq#qXS?V2G5+;(aUk)a\G5[&E7DX>mXFJgV,THPJzCDXW%_J::&$ãU"Fw0i87#p7P$deGPisJUv2eJE8nsr'ihiX=InqfjãU"8U?iqDTW7GwtruJwufDTml3X&.N?nNlTu8[8(u8wcrNP.NLYzM#^sDNF8HXArnlãU"rhMse:DDeLy1;4ovD7tZ4C0DYM(oyapV(TskBn'r*NowtnCN]#T0OBh^Mnqu&weãU"vHAhOwqdJm4Zid%zren6xG(^$0K1.y#_^MLm+z/oai78ãU"aC/-JGpGQ3P-b9A^5;Q%&rGeB,_Ep54MeDmo4\qZ,i'\W=?KãU"EZEoQ%;3^MZXK7W0WMJK*>S=MIcGp4li)a&0s0eXPI,7*0f'U0<_r*sl/9$5vZdãU"('bm;XU\&qd*u^?dgKA$\c($c+cv^BUnHfY$.(hi3tCn+4:K>:3qFurmE-m_CrAãU"A^hPW%NPY)g-jm,9',=T:L_CbA)hD5B^F/0/h&.fc*ehawWCM'5w8HM9Yds-JN/ãU"$SK-N(%s'LTz?n?J]WfN'3fL3C;dz$H=';bP(_\mm4j5I(N4lBI0z7k;x_F_ujQãU"F&%&'CB)&maTT*+(Rdv6HbEL>d(PgR%c\Fx4ãU"7HC>&:dglAdf[O1dI6;-?WVLcgFep+KRgVU&V^mTse1MvrmGAv[RKtd\]l0H==4ãU"*EP8d)w]I9b)<'=x4n%_hnGOP43NS.;2;7il5w'NF$o^&o.pFcF7>_NUx4q8VqLãU"1R6JsZa%8g9P;(Hs%B-^V%1ick&>P.s(0LLF9sonNO+??_fgW3X+?w.c*O6;ãU"(3PM+/EpBjkuINP'Ba0*)I5WM_9VWuot4(cu%VuiZA#D5#C5CF$uq4qmk2GRIVTãU"UVa;_[,lz11FV8XKdCk$XB7ni^A;DYC%pQA-IK3OQ_\VX,M9i%]:5^tNCKbIsPmãU"gL74MA'F+7tNda'f)QR17t'fV:g>C0m=.btT%ggMtUby.udmz9T&$AMvg.0ka&4Y4mn'B_#&N;_AFHN-JP-ijGOI476p414H*UYãU"a]67vEK-+<1.7.Zh-,QQxN2I)cXNJwiMH9>JoThIwq(YH7rSG6>CIãU"==h1Bp.IU/Wtokg5ckBT%liP9IwJj'4*8(OF0IY.OVFC#-x>)a1Y++9.l9lDCwIãU"AT1Kbj0Hsik&1w?jC]8=U/)XOo1iF1O]=psiTvNm7'vH%&BBuygZ_-nO_)kkdY'ãU"^I5ogxwv,&sDM:05A&B,'d6uqD/>]Qh5u5,9stbv';nz?ãU"_?;KM'C[W\TD'v67Q4*nYkANIBs2^U+%H/qu>T[xTE,cm)2_/-yh46tVY2WhSCXãU"f[lXM=]7J%&,Ea/qf;fKm.xeZi?=NXcBnW_Iv%9DkzBW$>&dddsalOK*A)*#sO*ãU"Z7b.sY2qfEm0ldnymd(O*+7kmwOK:Idai254Yw?X$7;KH(7h5&1Ebg-q#nL.)lxãU"rC3b;6yO%mW;$7QBE)8Sqp$%5?p<_Xyw4*EBT=/6j$-extvNAx.yE)2dWJA,3FuãU"aF&tp%vCjQh1YZ9P?%95&8;i[Q-:g87jir^*vMi9/.rtm)JiK*CHMGxBKNkg?tcãU"7gGsS2v?3Ns-+=nr)UOx+]+*?a>qaPf.r?V20Zp/cu6m/n\6??$tLpVHr%Ho??VãU"JLU%9&[$Cma3USHTcGTFgC6D(u,D5YT^oK99N+p5=M\F5LEf]LB1;pe(=B>Z>'FãU"HIEBrFV6FN4I8I)d]L41CoEqn$ho?[HKAE^X?s%>vDXJ)L[J('jbJlPgT%wBr3VãU"y./Z?dA5m$'G%/B&LYLf.(6qp;po_nEI)]41xWlO#5M\4h'chxkmS.6p2H52V,2ãU"YPnMG>)HT2[R<8'#IbLR>-1cU7GYG7U)M^'D8ELx.k=IrG&k1M0lP+BNmN,o(USãU"xkKfRq8&FqJ[MgO38mm?_R8_RPS??9BILT[01'cb2NmhT37eiR?q_N(6e8.0<(^ãU"yQiCq<[BldZ.6QOYp&VQv>imu3a1th40?ASNQ6UHZ#JY=bYxc7r^OdkG4XnU*^]ãU"B?nXb,OjD<2+ElMjlSr1.7j3fV2ZV9Sy8-Zcmfol:g1Q&tql+#$rY#:kTJ-,ãU"nS=_O^NI%sLUSh(YUT3z.j5$sXVRImOEW9$r8GPMQB[D&HãU"DCoA+0IHMS01/RyCe'z_famiZ1HVT\oomBoG'5cJX+fS6#&';Vaa,AW[RFhA=\(iXkaXS\JQH9T+w_sfX.WQ?NxK=PLQn2'u57\_Y^wi)rq]ãU"DCVpQ5H4w+d_Cx.dh#6;lWwqp?92bVm\l4fXE[:=1rfWf.v>:PO)43Zq>WePhvHãU"+S\_:1/XH_ZLO+IpiIRQ;$VAuRMH?9+U$N2(AamFok&y:*)DPmIME8(W?+n9,uqãU"C2D$X9A\9WVW\:0Ykys4(M-KpGo3T(?8;5.D%-bqr%9B^cXV;V.ga8l2gxG0JJQgXHoeN\U[ãU"eG;5J5V4hs(bv/_k.#[Cj5,n6%+[WbcmOtBJpwOLveU_:>KI%f5T9UP=)CV6ZWwC84qOsIQ(.KI2NYAL?N9,#0jHY+;_jn#_Q33dK\?R&Akzd5SHVãU"s>*=f$F:ll/]$,S&22b%]DX_GI3Lj/l)(m1vePTl[TVs0PB6;8O9elm1L)HMV,mãU"BSOLLplp^[qR2';rg,1*?6-#k(3hL&(s;TFu?zc%jMm+PRP0;;0?a+,2(D\0o>qãU"yf*4CjP7s9]pyHf9GHV3OiUBtm&q+ac++\+h])<034XeDA\dv<m$PBuvtSel/i2:cg+?^/d/*:7r/]&^4.&Q^^drtg0%d?zuMJda4fãU"H&MrM7i#HRbRhrb)1\pT?yxjSM\hZSR>Fj9.PV61_R'3EqA8G_M5d7A6vbS-L*$ãU"3*/dSYdZGZ.OX5slq[;4>.l.Nh4Tisf=s3'-,scouDTO&yR/IrsM4O:P*HX>NSvãU"pfz&pjAN^?hCGNsvm*DKKPA'WBLZ1q64Oat[/K%2EnnPTebe+'_y>LS,9VNwG;TãU"j(1q9bmkG[$<<)0JAiqvIQ+S;a$=Lf_a?V%eOC3:sQ;uP0]4T,9*sWhEj%SqCDZt#Cl1i\hGN*8$>LãU"#r[f''-%bqlT_vr]HIX^z,q[2p\&&-u'bybtR3/MnfY]EH=QTF]$p'cVq0R\gãU"LBVf2Jb(FQV/s:vbRGsM9]vRLw3'eM.&*I.8Mg]nEFaGzn$\G#H*,[=Ce0oNE2OãU"DY8lac>9&flId6W5hBDJS&\b$ZN+3C>,hX;1rA_z)q-YZ5B1hsf(msjv0uFjV\eãU"AEbSGKmv8aY>l3*^8:=+d<2QNJ0.Uhrb5uIf-Zc1G%Ki:7vJkv8ãU"*Us(F=n(buU8G9A6_DqMnNW;R?zbymi7P1gf,1VCJd>c^34m=.\h(1t;7Cd=cXOãU"(K;/zs,f=8r]-C?uKu1q%_40r:e;9nIK9yv<'/PW-65:*=Kq3Y;,2kxKsgljSR0ãU"/Y.<_aDFkV(F3Ehc#3$N/LYGN$0P$'+jZ9c,9HBfQR>c49TVu4]6B%Kea?f]Re,:7#2ãU":A+-j;pR/r\%h+.cWKAX-BKKWYXb+kA0aSn&7jlQDtf[JwHE1sDqLo_2%58(]]QSYJSh'1i:72-WsGER8'MLs(-W#1\j6lMãU"RWWJ+u0Y'G.fuf=0K[M<,;?K'R*LjS:*+gt;8d1kYi5jbUxrOLJJ[CCUiA6##AMãU"V[$^)FI1r6N-?lH;'[i1Ih6m^'\=d#*/2vF0%Gl',*7y(n.sfrN1s6g5b)&m>?:ãU"Z_3(.Pz[tT#TkAksH69h?oACPq2b/1T.I2^T87s95x(v2oSB]48ZgCj6VFlL>-1ãU"#sQj\j3H+fVE(#S4g_\Jig:OHW0$F\)#DTqrC'TAS2cb(6[7?>1#j5r#;4(ZOãU"6=.3#mUJaXp'Ey7Xf?Q.Q3rG&?GBP5DAJj(S+i?'6D=1)4*iqWK_[>BM58JmqqVãU"*qSak6T0agqKYY6wnZP>#1T\I&b%K$)Q0&.5#MrbcOKW3h.y++C252TV6oCzQ,=ãU"nB%7+cPUmCP;qb:SL;&*ElS74;^P$)Qti+Ij,#dscFu:1\91-qM2eG;wbNTS;9]ãU"+pXFUGCnPo2D3]wnb^I>k,Z;M(%+Pz\-WNU=f.s*[hV>eF//8+3j&)A7OE=JSx]ãU"\b(qS)psN#H+emKa$YyFF?>%S_alBW8N4G4&eE\s(niX4,wSYR*$IrqfdQ5sG6&ãU"AfFK2/CnsWlhsoe.vpd;A&uYUq9F6NP$''DXjMc;FA]=ilp/_l*^,XEAãU"A1%Pq[JU%hMCuZ\-aG)Z^BIAk;V1d)$,Bmx4v=nTsK%dq.u_EuqmiVSaK%+QGqIãU"/NBh/v[;Z%w[*P*5tUI)^kjJGT(>rR-5Y3FCmtBGveAS#dJ+8PM.Kq.H15#\urPãU"uo?RgKa+4xqFRnLn*I=6nqvb.Iiy[V<15Q'3:#kYQwM&ãU"M9,6H=u:#D,VAAH^215/CC+RmY\\FnFHoTGtl\nR'E2)EJ.>M(K#NLvRPGv-S*9ãU"k8maEMp12>]YpDun.[tkB[1F]-tK,2ãU"IP+8V;L+xG;lSjo,G9?,#(VrV\_n+$\kI;G-3F*LQ903hIe6Va-Q19p.wNF+cKWãU"#-5s7FT]M=CE_U$=8$V5$*'QD7no?tpt3Ad?83<(TVFJ'#vR[p+Dv&aUP'069TeãU"dLFvUXjl1W2t0KP0dAeZt=nKECHSuA_rs?_xT^ZãU"8n/#UPW3f]M<+Vj-muWX5P]9[MMãU"%:]N_1O3iQ8F#=^]&K>9Y'1M&PU.v\B=RQUP/7ySCjWpuAQR;6n,I2o#Ox0Boa#ãU"G2(VH\3ck2Bi3A%T=d30j:&YqiN)(&hl>SH$ITOh):gfJd:Zr;g=lJ0?7*:LocfãU"Ag9?h=]Lvx(R?Av2SEvn5t3]o4/oN(3]nK06BB)8]gE<#Knw]m>]N^K['h1Ou.ew*_US*&I>WR^n%[OLiC^(NhBgFjxK(-=9U$%SLFC7ãU"3Odw:%]9/_0wOTO*mR?7&ABcF;Ob/H9G>?s[Wo_(<=cm__C]jlXãU"nIs_>bXTOVQA;A_n9+hj5Q#O2iv>-G5=9#gP;Vr7O:1/.:2_d#rvhKwz)n:9/F2ãU"GD#xXl8H+%8Z#n6nãU"8FGMdT$W%vY2%wb00pvz1tzh]1V]y$=72ov+X[p]c*W3^)hinGDp]kJ4\1M23_QãU"-j\H;$VT*QQ1%TZf5'>;u&H4G%KQh=Uo-kWp&'4#?\d9^XvJ#8'$RCV0G>E?/c:ãU"kH<;cAvFRu75MjuM]C*#7g^#Wm'0lCAf:fX+Q6(Qb\&QVJXpãU"CmbQjuJuVvZ'FCUsãU"k>kd$=>;XW?2Fx5_G#9NGOC0no,x_KRX\;Wy/yãU">VDUJeTUpHx>5qO4%F51QiZFii&&Z,nAJ/4';92c*Y64AVw3?'rh9qbZtlgOx=lãU"v/)/bHJ'(CDD;Y?hsUcFZB=U/A#+ZJ;Ql>qB,CxMi/6]Imi?xx.]nz*-M=(/zJMãU"GU9Ws*?8S'#lZqu][(]M-U>20FaH)]sx[HRa4:,_9Ao2uJwmehJdY&\[HRhQ9TaãU"3jFj;.x4W#s8ApJ6u\SgnNEp%JOVcYl&2iIoYI83rtioHFH'n:CRãU":z9$R9RrCGI7n#^ATbu6Ctj+6>'1fV>TtpR3HAZbsãU"'Qe_Q2F4AOanFMA=5E?vM&ze?0[5HUdffbSROH)L:f?$&J?Yh]t/TOlw'>HM3MWi?\ãU"Ff(#hG>+Yg7xAO->Mg%DT$MEgk8$T]hWhgTACpR%ZLvC1TJjIEP04Z>o[>FVB5tãU"eScKUExnenBR:i/iZ19rROt[8bwSQW7o2cvbqOK5IWdR^zo)j5dDYMIU22);=A#ãU"qGzD*q[Ki)8#XT$,kp>ps\)]Y&fq7]=4L&-+)+X9VlLW>?/vBq^'V\_,NYf'R#b_1Q)N]lCXatv[#Ho)ojV*VK=Ij=lf)wgm;-BWãU"\_+CoOchIE6U/NDjLhbxBgkl2m*_Q]p2.sgg*fjAJ?6=^Gj/o)j'0Vd]p;4o,$oãU"cpoRi&d);h9sT6?o=J\TCI#Q(ib/iU-/WZd7QC\N\,.FJ6Q;ZPWqUOKe1FY6e&TãU"3_7n?Tb6e5l>FV,X.a;Ha'5dcP1/r<'>&nMkYWEH4%5IsWPS1/F&yUPF7uv?]6t=nmC54DbLGK8A.ãU"=P4^[^SDQgJyTIG\.f_:GH4%[C#Ie:Dewnt2GC,Lq[r4d9u=W0E?69fl?K]IP:mfg,+f2-obB':s-JTljK-02F^&a;d(6ETãU"YF7?M-'ayyV*FC;w2bR=ZjS2-.%2vc_HVniUmHbrXtmyAg_*q.J3MP3?P?m*rjWAEL,W:9w]4Ug[5)FKi)?LkãU"VepGoJg'xAbh)m'_c_$:RW9E,Gvc/2?Lg0mt6FCjha\m(8+7qH+)YipWEWx/,^JãU"G,u^nVK?[5iw/al\mA7)#myC:']fNDzTsId0,zcTj[#)>Lg2Ztdfdo].Llhs[1.ãU"gOi-#Vc^RG\uia[dqRZ<_IB,RxSGP).9Y3P2B)%LZ143EigiVrIt,:>)InJy:TVãU"Wv']TL9Suo1.<:x3_vihkqEh+B3-KW6X/f7^u*obLdCH;qs=ivP4&,BP2o>,F4hãU"H\O493ouO5rPj[;S]?wvir7W:'eV;oSFDKpEnkz+5h:VNYX)1HL3o%O;;Ad0U]wãU")yBlx)y>\6bjfAoMg0]1;_T4OcUHX5Lii8Ij_W\m/0cs=\7ZWwT\$G1O^f4SG_;ãU"#>u]fpBE<^LE'mlXYEnV=Gt\($g:+u\0h5YhroR?uuT4778K,YLvk3uN,wvH4hyãU"]gt)]Tif_eqsExrfC\=b-uvvt'Xg7v_n>1$dm\<(w9wBP>cxcL=s1I*7%%[6%%%.%%%%%%%%%&%R%%/P%%%%%Lx4CDJ?S10&Bup&%'WãU"09%%'%-%%)2C7LArY(yw,%+%:8%%%-%%%%%%%%%&%%j%/Pp%*%%i24<>S210Bu%ãU"p&'W%09%'[%-%=bwmKn0kC2]%L%%N&:%%.%%%%%%%%%%[%%%/,P>2%%%gfq#qVSãU"?)2Gup%&'W0%9%'%R-%]wBmKNE%(tI#I%%n*%%%.%%%%%%%%%%%R%%/P%IZ%%%gãU"fqqIWS?2&Gup&%'W09%%'%-g%\zmgKp7M)a_F%4%C/%%%.%%%%%%%%%%%%O%/P>ãU"%u%%g%fqqXLS?2G%up*+%%%%%%*%*%%7&%%(KA%%%%%ãEND SUBãV2ãV3ãCLOSE:IF S=32AND 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ãRuud Wijtvliet BURNING TEXT wijtvliet.c@wxs.nl 09-04-99 (21:32) QB, QBasic, PDS 99 2753 BURNTEXT.BAS'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ--ÄÄÄ--Ä -ã'³ã'³ 05-09-1999ã'³ Burning Text...ã'³ã'³ Created by Ruud Wijtvlietã'³ã'³ Feel free to use this routine in any program you want, butã'³ it would be nice if you'd send me the program you used it in.ã'³ Here's the adress, although i'm 99.9% sure you won't use it ;)ã'³ wijtvliet.c@wxs.nlã'³ã'³ To adapt the text, go to the bottom line (the DATA statement).ã'³ Just put some $trings behind the DATA (all text between "" andã'³ seperated by ,). Make sure the last word is "STOP", otherwiseã'³ you'll get an errormessage (Out of DATA).ã'³ã'³ You could also try messing up the palette...ã'³ã'ÀÄÄÄÄÄÄÄÄÄÄÄ--ÄÄ -ã'ã'ã'ã'ã'ãSCREEN 13: CLS : RANDOMIZE TIMERãã'-----------------------------------------------------------------------------ãã'Setting Palette:ãFOR i% = 0 TO 63ã 'Cold -> Warmã colr% = i% + 1: r% = i%: g% = 0: b% = 0: GOSUB Palã 'Warm -> Hotã colr% = i% + 63: r% = 63: g% = i%: b% = 0: GOSUB PalãNEXT i%ãã'-----------------------------------------------------------------------------ããDOã READ Text$ã IF Text$ = "STOP" THEN ENDã Breed% = LEN(Text$) * 4 + 6ã LOCATE 12, 21 - LEN(Text$) / 2: COLOR 126: PRINT Text$ã Links% = 160 - Breed%ã Rechts% = 160 + Breed%ã Boven% = 70ã Onder% = 99ãã '-----------------------------------------------------------------------------ã ã REDIM clr(Links% TO Rechts%, Boven% TO Onder%) AS INTEGERã DIM a%(2)ã FOR x% = Links% TO Rechts%ã FOR y% = Boven% TO Onder%ã GET (x%, y%)-STEP(0, 0), a%ã clr(x%, y%) = a%(2)ã NEXT y%ã NEXT x%ã ã SLEEPã ã '-----------------------------------------------------------------------------ã ã stap% = 0ã DOã stap% = stap% + 1ã FOR y% = Boven% + 1 TO Onder% - 1 STEP 1ã FOR x% = Links% + 1 TO Rechts% - 1ã IF clr(x%, y% + 1) > 1 OR clr(x%, y%) > 1 THENã h1% = clr(x% - 1, y% - 1)ã h2% = clr(x%, y% - 1)ã h3% = clr(x% + 1, y% - 1)ã h4% = clr(x% - 1, y%)ã h5% = clr(x% + 1, y%)ã h6% = clr(x% - 1, y% + 1) * 2ã h7% = clr(x%, y% + 1) * 3ã h8% = clr(x% + 1, y% + 1) * 2ã clr(x%, y%) = (h1% + h2% + h3% + h4% + h5% + h6% + h7% + h8%) \ 12ã PSET (x%, y%), clr(x%, y%)ã END IFã NEXT x%ã NEXT y%ã LOOP UNTIL stap% > 18ãLOOPãã'=============================================================================ãã'Palette instellen (zo = sneller dan met PALETTE):ãPal:ãOUT &H3C8, colr%ãOUT &H3C9, r%ãOUT &H3C9, g%ãOUT &H3C9, b%ãRETURNãã'-----------------------------------------------------------------------------ããDATA "Ruud Wijtvliet Productions","Presents","Burning Text","STOP"ãMichael Galos 3D ROTATING WIREFRAME FACE galvin@powerup.com.au 09-04-99 (12:41) QB, QBasic, PDS 114 3784 FACE.BAS SCREEN 13ãpi = 3.141592654# / 180ãa = 160: b = 100: c = 31ãs = 2000: r1 = 60: r2 = 5ã1ãFOR i = 1 TO 360 STEP 1ãx1 = a + r1 * SIN(pi * (i - 3))ãy1 = (b - 5) + r2 * COS(pi * (i - 3))ãx2 = a + (r1 - 15) * SIN(pi * (i - 4))ãy2 = (b - 20) + r2 * COS(pi * (i - 4))ãx3 = a + r1 * SIN(pi * (i + 3))ãy3 = (b - 5) + r2 * COS(pi * (i + 3))ãx4 = a + (r1 - 15) * SIN(pi * (i + 4))ãy4 = (b - 20) + r2 * COS(pi * (i + 4))ãx5 = a + (r1 - 16) * SIN(pi * (i - 20))ãy5 = (b - 25) + r2 * COS(pi * (i - 20))ãx6 = a + (r1 - 16) * SIN(pi * (i + 20))ãy6 = (b - 25) + r2 * COS(pi * (i + 20))ãx7 = a + (r1 - 14) * SIN(pi * (i - 30))ãy7 = (b - 23) + r2 * COS(pi * (i - 30))ãx8 = a + (r1 - 14) * SIN(pi * (i + 30))ãy8 = (b - 23) + r2 * COS(pi * (i + 30))ãx9 = a + (r1 - 18) * SIN(pi * (i - 20))ãy9 = (b - 21) + r2 * COS(pi * (i - 20))ãx10 = a + (r1 - 18) * SIN(pi * (i - 27))ãy10 = (b - 20) + r2 * COS(pi * (i - 27))ãx11 = a + (r1 - 18) * SIN(pi * (i - 14))ãy11 = (b - 20) + r2 * COS(pi * (i - 14))ãx12 = a + (r1 - 18) * SIN(pi * (i - 20))ãy12 = (b - 18) + r2 * COS(pi * (i - 20))ãx13 = a + (r1 - 18) * SIN(pi * (i + 20))ãy13 = (b - 21) + r2 * COS(pi * (i + 20))ãx14 = a + (r1 - 18) * SIN(pi * (i + 27))ãy14 = (b - 20) + r2 * COS(pi * (i + 27))ãx15 = a + (r1 - 18) * SIN(pi * (i + 14))ãy15 = (b - 20) + r2 * COS(pi * (i + 14))ãx16 = a + (r1 - 18) * SIN(pi * (i + 20))ãy16 = (b - 18) + r2 * COS(pi * (i + 20))ãx17 = a + (r1 - 13) * SIN(pi * (i - 8))ãy17 = (b - 3) + r2 * COS(pi * (i - 7))ãx18 = a + (r1 - 13) * SIN(pi * (i + 7))ãy18 = (b - 3) + r2 * COS(pi * (i + 7))ãx19 = a + (r1 - 13) * SIN(pi * (i - 5))ãy19 = (b + 5) + r2 * COS(pi * (i - 5))ãx20 = a + (r1 - 13) * SIN(pi * (i - 20))ãy20 = (b + 5) + r2 * COS(pi * (i - 20))ãx21 = a + (r1 - 13) * SIN(pi * (i - 5))ãy21 = (b + 8) + r2 * COS(pi * (i - 5))ãx22 = a + (r1 - 13) * SIN(pi * (i + 5))ãy22 = (b + 5) + r2 * COS(pi * (i + 5))ãx23 = a + (r1 - 13) * SIN(pi * (i + 20))ãy23 = (b + 5) + r2 * COS(pi * (i + 20))ãx24 = a + (r1 - 13) * SIN(pi * (i + 5))ãy24 = (b + 8) + r2 * COS(pi * (i + 5))ãx25 = a + (r1 - 13) * SIN(pi * (i + 8))ãy25 = (b + 15) + r2 * COS(pi * (i + 8))ãx26 = a + (r1 - 13) * SIN(pi * (i - 8))ãy26 = (b + 15) + r2 * COS(pi * (i - 8))ãLINE (x1, y1)-(x2, y2), cãLINE (x1, y1)-(x3, y3), cãLINE (x3, y3)-(x4, y4), cãLINE (x4, y4)-(x6, y6), cãLINE (x2, y2)-(x5, y5), cãLINE (x7, y7)-(x5, y5), cãLINE (x8, y8)-(x6, y6), cãLINE (x9, y9)-(x10, y10), cãLINE (x9, y9)-(x11, y11), cãLINE (x10, y10)-(x12, y12), cãLINE (x11, y11)-(x12, y12), cãLINE (x13, y13)-(x14, y14), cãLINE (x13, y13)-(x15, y15), cãLINE (x14, y14)-(x16, y16), cãLINE (x15, y15)-(x16, y16), cãLINE (x17, y17)-(x1, y1), cãLINE (x18, y18)-(x3, y3), cãLINE (x18, y18)-(x17, y17), cãLINE (x19, y19)-(x20, y20), cãLINE (x21, y21)-(x20, y20), cãLINE (x22, y22)-(x19, y19), cãLINE (x24, y24)-(x21, y21), cãLINE (x22, y22)-(x23, y23), cãLINE (x24, y24)-(x23, y23), cãLINE (x25, y25)-(x26, y26), cãFOR t = 1 TO s: NEXT tãGOSUB erase1ãNEXT iãGOTO 1ãerase1:ãLINE (x1, y1)-(x2, y2), 0ãLINE (x1, y1)-(x3, y3), 0ãLINE (x3, y3)-(x4, y4), 0ãLINE (x2, y2)-(x5, y5), 0ãLINE (x4, y4)-(x6, y6), 0ãLINE (x7, y7)-(x5, y5), 0ãLINE (x8, y8)-(x6, y6), 0ãLINE (x9, y9)-(x10, y10), 0ãLINE (x9, y9)-(x11, y11), 0ãLINE (x10, y10)-(x12, y12), 0ãLINE (x11, y11)-(x12, y12), 0ãLINE (x13, y13)-(x14, y14), 0ãLINE (x13, y13)-(x15, y15), 0ãLINE (x14, y14)-(x16, y16), 0ãLINE (x15, y15)-(x16, y16), 0ãLINE (x17, y17)-(x1, y1), 0ãLINE (x18, y18)-(x3, y3), 0ãLINE (x18, y18)-(x17, y17), 0ãLINE (x19, y19)-(x20, y20), 0ãLINE (x21, y21)-(x20, y20), 0ãLINE (x22, y22)-(x19, y19), 0ãLINE (x22, y22)-(x23, y23), 0ãLINE (x24, y24)-(x23, y23), 0ãLINE (x24, y24)-(x21, y21), 0ãLINE (x25, y25)-(x26, y26), 0ãRETURNãAaron Severn 15-BIT & 16-BIT SVGA ROUTINES rlsevern@idirect.com 10-02-99 (21:10) QB, PDS 537 20219 SVGA.BAS '****************************************************************************ã' SVGA.BASã' Programmed by Aaron Severn (Laeden)ã' rlsevern@idirect.comã' www.geocities.com/SiliconValley/Peaks/9572/ã' July 18-29, 1998ã'ã' This is a bit of a revamp of my previous SVGA functions. A few bugs haveã' been fixed, the 256 colour modes now have a much faster put pixel routineã' and a much faster put routine both done in assembly, also 15 and 16 bitã' colour modes have been added.ã'ã' The 15 and 16 bit stuff is still in the early stages, I might redo bothã' routines in assembly some time, but I'm kinda sick of this stuff for now.ã' I'll see if I can add support for 24 bit modes too.ã'ã' Since this is an early version of the routines I'd appreciate bug reports.ã' If something doesn't work on your computer let me know either by e-mail orã' by leaving a message on the message board at my website. Try to give meã' as much info as you can about the problem and about your graphics card.ã'ã' As for the legal aspects. This code is public domain. If you use it,ã' give me credit. If it does any damage I'm not liable. It shouldn'tã' cause any damage, and as of writing this it hasn't, but if it does youã' can't sue me. Okay.ã'ã' A few IMPORTANT instructions.ã' 1. This code requires QuickBasic with the qb.qlb library loaded, otherwiseã' it won't run.ã' 2. There are three put pixel routines, one for 256 colour modes (PutPixel),ã' one for 15 bit colour modes (PutPixel15), and one for 16 bit colourã' modes (PutPixel16). DO NOT use them with the wrong modes (ie. don'tã' use PutPixel in mode 111h, use PutPixel16). You could do some seriousã' damage to your monitor if you do. The demo code is set up to avoidã' this little problem, read it, learn it, live it.ã' 3. The put routine (Put256) was designed specifically for 256 colour modes,ã' use with any other mode could cause some serious problems. Don't sayã' I didn't warn you.ã' 4. If you use DEF SEG, you must change it back before running a put pixelã' routine. In order to make this easy, a variable is set up that holdsã' the segment address required by the various routines. Just put theã' line DEF SEG = ppSeg to point to the right place. Of course, if you'reã' not using a put pixel routine, you should restructure the code so thatã' the default segment points somewhere else, but that's up to you.ã'ã' The following is a list of SVGA video modes that are currently supportedã' if they are available. Exactly which modes are available depends on theã' graphics card.ã'ã' Mode Number Resolution Colours Graphics Functionsã'==================================================================ã' &H100 640x400 256 PutPixel, Put256ã' &H101 640x480 256 PutPixel, Put256ã' &H103 800x600 256 PutPixel, Put256ã' &H105 1024x768 256 PutPixel, Put256ã' &H107 1280x1024 256 PutPixel, Put256ã' &H10D 320x200 32k PutPixel15ã' &H10E 320x200 64k PutPixel16ã' &H110 640x480 32k PutPixel15ã' &H111 640x480 64k PutPixel16ã' &H113 800x600 32k PutPixel15ã' &H114 800x600 64k PutPixel16ã' &H116 1024x768 32k PutPixel15ã' &H117 1024x768 64k PutPixel16ã' &H119 1280x1024 32k PutPixel15ã' &H11A 1280x1024 64k PutPixel16ã'ã' And now a brief description of how to use this little package. You canã' look at the demo code below for some help too.ã' 1. Include all TYPE definitions, SUB and FUNCTION declarations, COMMONã' SHARED and DIM SHARED variables in your code, a header file might be aã' good idea.ã' 2. Run the LoadAsm function to set up the assembly routines if you areã' using a 256 colour mode.ã' 3. Call the DetectVESA function. If it returns 1 then the computer hasã' VESA capabilities, if it returns 0, it doesn't so this code won't work.ã' 4. Call the SetSVGAMode function with a mode from the list above as aã' parameter. If the mode isn't available it returns 0, if the mode isã' available it returns the number of video memory pages available.ã' Last. Call SetOldMode to restore the previous video mode before the programã' ends.ã'ã' And then the other functions.ã' GetVideoMode - Returns the current video mode, this routine is used by theã' SetSVGAMode function before changing modes so that theã' SetOldMode routine can work.ã' Put256 - Very fast put routine that is compatible with mode 13hã' sprites. As the demo code shows, get the sprite in QB screenã' 13 for use in 256 colour SVGA modes. A sprite with data inã' array() is put on the screen at top left corner (x, y).ã' StartIndex refers to the element in the array at which theã' sprite data begins. Thus more than one sprite can be storedã' in a single array. Use only in 256 colour modes.ã' PutPixel - Puts a pixel on the screen at (x, y) of colour clr in anyã' 256 colour screen mode.ã' PutPixel15 - Puts a pixel on the screen at (x, y). The colour is made upã' of the red, green, and blue (rgb) components that are passedã' to the routine. The red, green, and blue components can haveã' any value from 0 to 31. Works in 15 bit modes (32k colours).ã' PutPixel16 - Same as PutPixel15 except works in 16 bit modes (64kã' colours). The red and blue components can have any valueã' from 0 to 31. The green component can have any value from 0ã' to 63.ã' SetActPage - Sets the video memory page that will be written to. Noteã' this routine does not check to make sure multiple pages areã' available, that's up to you using the value returned fromã' the SetSVGAMode function.ã' ViewPage - Sets the visible video memory page. Like SetActPage it doesã' not check to make sure multiple pages are available.ã'ã' Finally, a list of important variables. These variables either give youã' or the routines important info about the screen mode. Variables markedã' with an asterisk (*) are needed by the routines and should not be changedã' unless you know what you're doing.ã'ã' xRes, yRes - Holds the screen resolution, filled by SetSVGAMode.ã' yOffset * - Adjusts y coordinates for different video memory pages,ã' changed by SetActPage.ã' curBank * - Holds the current bank being written to, needed by all putã' pixel routines.ã' winGran * - Holds the window granularity of the graphics card adjustedã' for use by the put pixel routines.ã' oldMode - Stores the screen mode that was in use before setting anã' SVGA mode.ã' ppSeg * - Holds either the segment address of the assembly put pixelã' routine or the segment address of the graphics buffer.ã' ppOfs * - Holds the offset address of the assembly put pixel routine,ã' not used in 15 and 16 bit modes.ã' bpp - Holds the number of bits per pixel for the screen mode.ã' This can be used to find out how many colours a mode offersã' with the formula numColours = 2 ^ bpp.ã' Regs * - A variable used as the CPU registers, used by most routines.ã' pp256 * - Holds the machine code for the 256 colour assembly pset.ã' sPut256 * - Holds the machine code for the 256 colour assembly put.ã'****************************************************************************ããDEFINT A-ZããDECLARE FUNCTION DetectVESA ()ãDECLARE FUNCTION GetVideoMode ()ãDECLARE SUB LoadAsm ()ãDECLARE SUB Put256 (x, y, array(), startIndex)ãDECLARE SUB PutPixel (x, y, clr)ãDECLARE SUB PutPixel15 (x, y, r, g, b)ãDECLARE SUB PutPixel16 (x, y, r, g, b)ãDECLARE SUB SetActPage (page)ãDECLARE FUNCTION SetSVGAMode (mode)ãDECLARE SUB SetOldMode ()ãDECLARE SUB ViewPage (page)ããCOMMON SHARED xRes, yRes, yOffset, curBank, winGran, oldMode, ppSeg, ppOfs, bppãã' CPU registers used for BIOS calls. These are also defined in QB.BI.ãTYPE RegTypeã AX AS INTEGERã BX AS INTEGERã CX AS INTEGERã DX AS INTEGERã BP AS INTEGERã SI AS INTEGERã DI AS INTEGERã FLAGS AS INTEGERã DS AS INTEGERã ES AS INTEGERãEND TYPEã ã' Type used by VESA function 00h, filled with info on the VESA.ãTYPE VGAInfoBlockã VESASignature AS STRING * 4ã VESAVersion AS INTEGERã OEMStringPtr AS LONGã Capabilities AS STRING * 4ã VideoModePtr AS LONGã TotalMemory AS INTEGERã Reserved AS STRING * 236ãEND TYPEãã' Type used by VESA function 02h, filled with info on a screen mode.ãTYPE ModeInfoBlockã ModeAttributes AS INTEGERã WinAAttributes AS STRING * 1ã WinBAttributes AS STRING * 1ã WinGranularity AS INTEGERã WinSize AS INTEGERã WinASegment AS INTEGERã WinBSegment AS INTEGERã WinFuncPtr AS LONGã BytesPerScanLine AS INTEGERã XResolution AS INTEGERã YResolution AS INTEGERã XCharSize AS STRING * 1ã YCharSize AS STRING * 1ã NumberOfPlanes AS STRING * 1ã BitsPerPixel AS STRING * 1ã NumberOfBanks AS STRING * 1ã MemoryModel AS STRING * 1ã BankSize AS STRING * 1ã NumberOfImagePages AS STRING * 1ã Rsvd AS STRING * 1ã RedMaskSize AS STRING * 1ã RedFieldPosition AS STRING * 1ã GreenMaskSize AS STRING * 1ã GreenFieldPosition AS STRING * 1ã BlueMaskSize AS STRING * 1ã BlueFieldPosition AS STRING * 1ã RsvdMaskSize AS STRING * 1ã DirectColorModeInfo AS STRING * 1ã Reserved AS STRING * 216ãEND TYPEããDIM SHARED Regs AS RegTypeãDIM SHARED pp256 AS STRINGãDIM SHARED sPut256 AS STRINGããLoadAsmãã'-=-=-=-=-=-=-=-=-=-=-=-=-=-DEMO CODE STARTS HERE-=-=-=-=-=-=-=-=-=-=-=-=-=-ããDIM spr(201) 'Set up a sprite for useãSCREEN 13 'in 256 colour modes withãCLS 'the Put256 routine.ãCIRCLE (9, 9), 9, 27ãPSET (6, 6), 11: PSET (12, 6), 11: PSET (9, 9), 14ãLINE (6, 12)-(12, 12), 100ãGET (0, 0)-(19, 19), sprãã' To test the various screen modes simply change the value in the SetSVGAModeã' function to the mode of your choice.ãIF DetectVESA THEN 'Check for VESAã pagesAvailable = SetSVGAMode(&H101) 'Check for/set SVGA mode andã IF pagesAvailable = 0 THEN SYSTEM 'get number of memory pages.ãELSEã SYSTEM 'No VESA so shut downãEND IFããFOR y = 0 TO yRes - 1 'Fill the screen with pixelsã FOR x = 0 TO xRes - 1ã IF bpp = 8 THEN 'Execute a different functionã PutPixel x, y, x MOD 256 'depending on the mode type.ã ELSEIF bpp = 15 THENã PutPixel15 x, y, x \ 40 + y \ 30, ABS(x - (xRes \ 2)) \ 20 + ABS(y - (yRes - 1)) \ 30, ABS(x - (xRes - 1)) \ 40 + y \ 30ã ELSEIF bpp = 16 THENã PutPixel16 x, y, x \ 40 + y \ 30, ABS(x - (xRes \ 2)) \ 10 + ABS(y - (yRes - 1)) \ 15, ABS(x - (xRes - 1)) \ 40 + y \ 30ã END IFã NEXT xãNEXT yããSLEEPããIF bpp = 8 THEN 'In 256 colour modesã FOR y = 0 TO yRes - 1 STEP 20 'demonstrate the put routine.ã FOR x = 0 TO xRes - 1 STEP 20ã IF bpp = 8 THEN Put256 x, y, spr(), 0ã NEXT xã NEXT yã SLEEPãEND IFããSetOldMode 'Back to last modeãDEF SEG 'Reset default segmentãSYSTEM 'Shut downãã' Machine code for put pixel 256.ãDATA 73ã' 0 1 2 3 4 5 6 7 8 9ãDATA &H06,&H55,&H89,&HE5,&H8B,&H46,&H10,&H8B,&H5E,&H0C : '0ãDATA &HF7,&HE3,&H8B,&H5E,&H12,&H01,&HD8,&H72,&H34,&H89 : '1ãDATA &HC1,&H89,&HD0,&H8B,&H56,&H0A,&H39,&HD0,&H75,&H10 : '2ãDATA &H89,&HCF,&HB8,&H00,&HA0,&H8E,&HC0,&H8B,&H46,&H0E : '3ãDATA &HAA,&H5D,&H07,&HCA,&H0C,&H00,&HBF,&H00,&H00,&HBB : '4ãDATA &H00,&H00,&H8E,&HC3,&HAB,&H8B,&H5E,&H08,&HF7,&HE3 : '5ãDATA &H89,&HC2,&H31,&HDB,&HB8,&H05,&H4F,&HCD,&H10,&HEB : '6ãDATA &HD7,&H42,&HEB,&HC9 : '7ãã'Machine code for put 256.ãDATA 215ã' 0 1 2 3 4 5 6 7 8 9ãDATA &H06,&H1E,&H55,&H50,&H50,&H50,&H50,&H89,&HE5,&H8B : ' 0ãDATA &H46,&H18,&H89,&H46,&H06,&H8B,&H46,&H20,&H89,&H46 : ' 1ãDATA &H04,&H8B,&H46,&H1E,&H89,&H46,&H02,&H8B,&H5E,&H1A : ' 2ãDATA &H31,&HD2,&HF7,&HF3,&H89,&H56,&H1E,&H8B,&H46,&H14 : ' 3ãDATA &H8E,&HD8,&H8B,&H76,&H12,&HB8,&H00,&HA0,&H8E,&HC0 : ' 4ãDATA &HFC,&HAD,&H89,&HC1,&HC1,&HE9,&H03,&H89,&H4E,&H00 : ' 5ãDATA &HAD,&H89,&HC3,&H8B,&H46,&H1E,&H8B,&H56,&H1A,&H39 : ' 6ãDATA &HD0,&H73,&H3B,&H8B,&H46,&H02,&H8B,&H56,&H1C,&HF7 : ' 7ãDATA &HE2,&H89,&HC7,&H8B,&H46,&H20,&H01,&HC7,&H72,&H49 : ' 8ãDATA &H8B,&H46,&H06,&H39,&HD0,&H75,&H47,&H8B,&H46,&H04 : ' 9ãDATA &H8B,&H56,&H1C,&H39,&HD0,&H73,&H08,&HAC,&H47,&H3C : '10ãDATA &H00,&H74,&H02,&H4F,&HAA,&H8B,&H46,&H04,&H40,&H89 : '11ãDATA &H46,&H04,&H8B,&H56,&H06,&H83,&HFF,&H00,&H74,&H24 : '12ãDATA &HE2,&HDD,&H4B,&H83,&HFB,&H00,&H74,&H38,&H8B,&H4E : '13ãDATA &H00,&H8B,&H46,&H20,&H89,&H46,&H04,&H8B,&H46,&H02 : '14ãDATA &H40,&H89,&H46,&H02,&H8B,&H46,&H1E,&H40,&H89,&H46 : '15ãDATA &H1E,&HEB,&H9C,&H42,&HEB,&HB4,&H42,&H49,&H89,&H56 : '16ãDATA &H06,&H8B,&H46,&H16,&H53,&HF7,&HE2,&H89,&HC2,&H31 : '17ãDATA &HDB,&HB8,&H05,&H4F,&HCD,&H10,&H5B,&H83,&HF9,&H00 : '18ãDATA &H74,&HC4,&HEB,&H9F,&HB8,&H00,&H00,&H8E,&HC0,&HBF : '19ãDATA &H00,&H00,&H8B,&H46,&H06,&HAB,&H58,&H58,&H58,&H58 : '20ãDATA &H5D,&H1F,&H07,&HCA,&H10,&H00 : '21ãã' Detect to see if a VESA compatible graphics card is present.ãFUNCTION DetectVESAããDIM VGAInfo AS VGAInfoBlockããRegs.AX = &H4F00ãRegs.ES = VARSEG(VGAInfo)ãRegs.DI = VARPTR(VGAInfo)ãCALL INTERRUPTX(&H10, Regs, Regs)ããIF Regs.AX = &H4F THENã DetectVESA = 1ã PRINT VGAInfo.VESASignature; RTRIM$(STR$(VGAInfo.VESAVersion \ 256)); "."; LTRIM$(STR$(VGAInfo.VESAVersion AND 255))ãELSEã DetectVESA = 0ã PRINT "Error - cannot detect VESA."ãEND IFããEND FUNCTIONãã' Returns the current video mode.ãFUNCTION GetVideoModeããRegs.AX = &H4F03ãCALL INTERRUPT(&H10, Regs, Regs)ãGetVideoMode = Regs.BXããEND FUNCTIONããSUB LoadAsmããRESTOREããDEF SEG = VARSEG(pp256)ãpp256 = ""ãREAD codeLenãFOR i = 0 TO codeLenã READ code$ã chrNo = VAL(code$)ã pp256 = pp256 + CHR$(chrNo)ãNEXT iããDEF SEG = VARSEG(sPut256)ãsPut256 = ""ãREAD codeLenãFOR i = 0 TO codeLenã READ code$ã chrNo = VAL(code$)ã sPut256 = sPut256 + CHR$(chrNo)ãNEXT iããDEF SEGããEND SUBããSUB Put256 (x, y, array(), startIndex)ããDEF SEG = VARSEG(sPut256)ãyVal = y + yOffsetãCALL ABSOLUTE(BYVAL x, BYVAL yVal, BYVAL xRes, BYVAL yRes, BYVAL curBank, BYVAL winGran, BYVAL VARSEG(array(startIndex)), BYVAL VARPTR(array(startIndex)), SADD(sPut256))ãDEF SEG = ppSegããEND SUBãã' Sets a pixel.ãSUB PutPixel (x, y, clr)ããyVal = y + yOffsetãCALL ABSOLUTE(BYVAL x, BYVAL yVal, BYVAL clr, BYVAL xRes, BYVAL curBank, BYVAL winGran, ppOfs)ããEND SUBããSUB PutPixel15 (x, y, r, g, b)ããr = r AND 31: g = g AND 31: b = b AND 31ããyA& = (y + yOffset) * 2ãoffset& = yA& * xRes + (x * 2)ãbank = offset& \ &H10000ãoffset& = offset& - &H10000 * bankãIF bank <> curBank THENã curBank = bankã Regs.AX = &H4F05ã Regs.BX = 0ã Regs.DX = winGran * curBankã CALL INTERRUPT(&H10, Regs, Regs)ãEND IFãhiClr = r * 4 + g \ 8: loClr = (g AND 7) * 32 + bãPOKE offset&, loClr: POKE offset& + 1, hiClrããEND SUBããSUB PutPixel16 (x, y, r, g, b)ããr = r AND 31: g = g AND 63: b = b AND 31ããyA& = (y + yOffset) * 2ãoffset& = yA& * xRes + (x * 2)ãbank = offset& \ &H10000ãoffset& = offset& - &H10000 * bankãIF bank <> curBank THENã curBank = bankã Regs.AX = &H4F05ã Regs.BX = 0ã Regs.DX = winGran * curBankã CALL INTERRUPT(&H10, Regs, Regs)ãEND IFãhiClr = r * 8 + g \ 8: loClr = (g AND 7) * 32 + bãPOKE offset&, loClr: POKE offset& + 1, hiClrããEND SUBãã' Just changes the pointer to the video memory but it's easier to use thisã' way.ãSUB SetActPage (page)ããyOffset = yRes * pageããEND SUBãã' Sets the video mode that was being used before the SVGA mode. The SCREENã' command doesn't always work so this is used instead.ãSUB SetOldModeããIF oldMode < &H100 THEN 'SVGA modes cannot be reset by thisã Regs.AX = oldMode 'routine.ã CALL INTERRUPT(&H10, Regs, Regs)ãELSE 'If it was SVGA, set text.ã Regs.AX = &H3ã CALL INTERRUPT(&H10, Regs, Regs)ãEND IFããEND SUBãã' Sets an SVGA mode.ãFUNCTION SetSVGAMode (mode)ããoldMode = GetVideoMode 'Get the current mode.ããDIM ModeInfo AS ModeInfoBlock 'Get info on the desiredãRegs.AX = &H4F01 'SVGA mode.ãRegs.CX = modeãRegs.ES = VARSEG(ModeInfo)ãRegs.DI = VARPTR(ModeInfo)ãCALL INTERRUPTX(&H10, Regs, Regs)ããIF (ModeInfo.ModeAttributes AND 1) = 0 THEN 'Bit 1 = 0 then mode notã PRINT "Error - screen mode not available." 'available.ã SetSVGAMode = 0ã EXIT FUNCTIONãEND IFãwinGran = 64 \ ModeInfo.WinGranularity 'Window granularity adjusted.ãxRes = ModeInfo.XResolution 'Get screen resolution.ãyRes = ModeInfo.YResolutionãIF ModeInfo.WinSize < 64 THENã PRINT "Error - this program requires at least a 64k memory window."ã SetSVGAMode = 0 'Window must be > 64k forã EXIT FUNCTION 'these routines.ãEND IFãbpp = ASC(ModeInfo.BitsPerPixel)ããIF bpp = 8 THENã IF ASC(ModeInfo.MemoryModel) <> 4 THENã PRINT "Error - screen mode not available."ã SetSVGAMode = 0ã EXIT FUNCTIONã END IFã ã ppSeg = VARSEG(pp256): ppOfs = SADD(pp256)ã ã lB1 = ModeInfo.WinASegment AND 255: hB1 = ModeInfo.WinASegment \ 256ã lB2 = VARPTR(curBank) AND 255: hB2 = VARPTR(curBank) \ 256ã lB3 = VARSEG(curBank) AND 255: hB3 = VARSEG(curBank) \ 256ã ã tempOfs = SADD(sPut256)ã DEF SEG = VARSEG(sPut256)ã POKE 46 + tempOfs, lB1: POKE 47 + tempOfs, hB1ã POKE 200 + tempOfs, lB2: POKE 201 + tempOfs, hB2ã POKE 195 + tempOfs, lB3: POKE 196 + tempOfs, hB3ã ã DEF SEG = ppSegã POKE 33 + ppOfs, lB1: POKE 34 + ppOfs, hB1ã POKE 47 + ppOfs, lB2: POKE 48 + ppOfs, hB2ã POKE 50 + ppOfs, lB3: POKE 51 + ppOfs, hB3ãELSEIF bpp = 15 THENã IF ASC(ModeInfo.MemoryModel) <> 6 THENã PRINT "Error - screen mode not available."ã SetSVGAMode = 0ã EXIT FUNCTIONã END IFãã ppSeg = ModeInfo.WinASegmentã DEF SEG = ppSegãELSEIF bpp = 16 THENã IF ASC(ModeInfo.MemoryModel) <> 6 THENã PRINT "Error - screen mode not available."ã SetSVGAMode = 0ã EXIT FUNCTIONã END IFãã ppSeg = ModeInfo.WinASegmentã DEF SEG = ppSegãELSEã PRINT "Error - screen mode not available."ã SetSVGAMode = 0ã EXIT FUNCTIONãEND IFããRegs.AX = &H4F02 'Set the mode.ãRegs.BX = modeãCALL INTERRUPT(&H10, Regs, Regs)ããIF Regs.AX <> &H4F THEN 'Make sure it worked.ã PRINT "Error - cannot initialize screen mode."ã SetSVGAMode = 0ã EXIT FUNCTIONãEND IFããcurBank = 0 'Initialize bank and page.ãyOffset = 0ããSetSVGAMode = (ASC(ModeInfo.NumberOfImagePages) + 1)ããEND FUNCTIONãã' Set the visible video memory page.ãSUB ViewPage (page)ããfirstLine = page * yResããRegs.AX = &H4F07ãRegs.BX = 0ãRegs.CX = 0ãRegs.DX = firstLineãCALL INTERRUPT(&H10, Regs, Regs)ããEND SUBãAaron Severn WAVE VARIOUS FLAGS ON SCREEN rlsevern@idirect.com 10-02-99 (21:10) QB, PDS 146 9630 FLAGS.BAS ' Waves various flags on the screen. Flags are 16 colour bitmaps.ã' Uses 640x480x256 resolution.ãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"FLAGS.ZIP",4^6:Z&=6883:?STRING$(50,177);ãU"%up()%9%%%I-%(n/&HeR?rEH%.%%UL%%%,%%%%zx%fSgr4ufgV+3;U1Uj\=+�ãU"],=$0Y1j_sHT.Uxt]YfYsrMGEr>;N1r-rUgBsjMi2S,HlqhMq$RWi5c'r>m\laStlWgDE\5-HãU"f?Zuca#$Ck\Gnd#Z9M]Jzd0EtrDn(\ofdZ$UwdO^0B=u#$up0r(\\%up()%9%%%ãU"I-%7rS&H2y*f/o'.%%UL%%%+%%%%zp%SgrucfSV+'SU5+)/6KZ_b*I$YG\o\CT$ãU"XsGuCB+frOc()ID3gXh^AUp=:nhlg8Q5F9J?29?mw=r-:)Yu^n$PD=\D8rveO0$ãU"-Mtdtvgl3fxpIwlvID8g3lW\kId]#id5(KYRLbcQ/DmHW6DlKoVQD+jPV\l(RITãU"wMj#ZXTaUU];ki,m-MQ6Y#7YWQ1j1UE'OCc7UW==4?E31m$=gp[M]kn1CeQfGRhãU"7pM#Cg#A6->20h0\aa)8SX++emYgU>gA_lBA0?OMC1:K?FSp78I[#s;*m831W:mãU"Fg/>Kf=X3^mrjgeA_6H].F8yI+-=[=.'G(X-LY-NO2xW5i#.0v[C]$FH13225,rF5_.'2hu^ApGASwJ-a^,UIml+)$b#4w?A'ãU"-H)k+/\V'OGKGcUu_KGGS9m0,?=A.*i-bbYijP\0*jZ;UR)-7iJQW2tL8shq[^1ãU"w_5P[':y?-Mxma(\.CUsMAo9v>eãU"'h%+Wc5iecXi>^A()J4.>WH(+p>f23Ncn:7y*F1<1M<.;\M*/?3hML9+H[1f&rlãU"eg+V1DSg=D>xg.K5Y\^p5=kp^ãU"m'tXu2]MlAveta^prQlOr,7DN>gGCY0e*t^I/vCu)cXsV_*EMsIScq3B,0T*rGw37tp?u0xW[0q$#M8F1Lg3a/nãU"T<0)5Sh8uvxW'E/f]833v>mlL,IE*C^[C;S3zIJ$CO_ao2Tv37Fu8EJju4]h7:ãU"j&,\Oeer%c,$ie'HF^(dGTP]:cWu/baVou\9u0xES5(gOaãU"&%up()%9%%%#-%wpA&Hyg0;kU%.%%UL%%%.%%%%ny.fq(S[grufEFp6Q[V1+IV?ãU"Vw^m>UYQa&H;E5O'1,E/xip\(*zKBw3xTMJ.iuhfYF7BU4VA0Dc5dZ,(Rj1$o64uNSF6hJM4w?Xw-OJPDQ.OkLlL?XOlOJz(rkãU"IEkM9bK=',U=1U+R:/%U=1+5R:/U#=1+R*:/U=d1+R:&/U=1U+Rj>'\0up%()9%ãU"%%%-%3^m&H.atoB&t&%%&UL%%%/%%%%hfsf%ifSgRrufi1VESEU5UBJ>xp^;oB^ãU"K$#;^h9PzU0zN2Y4y?M2Cy+)*5k%k6+CK5*4,VgNumjM,OtZwjvyb;sWrHF]Db.ãU"drMwuH/w>3QN>o-vV9n>bVNY3&V4X5._H[$#tkT;,86C2eL+%'Jr.[Vq1oe#4U1709.V+Cj6Y.p4lB$fpu#MãU"^&<-vKc^oJRfjSVFvs4^lHIxo.vsYA2T?LrUDZS&5xcd3AT;muTxQLmVE>:4C0[ãU"Aw#mGU<\xAbCNUUf>A$KOu&zFX=m>4=mU;frVsNfsZcA;n0I#sg]XIXzd;_1FfUãU"f2>w_PRhy&:(hR115RW_E[hhv&\$Fe?eUf>iJ$.R]Rq>en,3KEH*LU^=;+3?mDhãU"g^RGXE?d\Rfi_:2-.;R1?+3%y3+0\(YmN$[]A&Yv^=U93F/:y:NEaEdk^,/el[ãU"j=4z.Q>QZ;(WyEk]O#^=DNF\#4#$aA?[UGEP=Y)jXhUt_;Wrhj2BW6(pC#a,,)OãU"#3cHGy[H1*1S1=*187x+Q>L#o63_On(?\_2F?fmFXp^AZF=AkuehXB9VotBX1b,'ma3$uve1ãU"W'k<;[(B6q:C'kj%+Cy,OgGt&=H+[L\?gKrITZ&Pr-DNGu:H*shtqlo^^7I3tCxg8'>o%/quUEIEymSNãU".G$o,L)(NQ-=%;auW89';6t28O$uf][eg43RKfM.=6Ii[(%.nXomh1I%B^/.g1]ãU"4eab7my*J[;7Cu*2szG(4BWf;FtR)^acf.jteGH&OdgDeS]XICIvu;o;_(aOeO%-Syt)m)MAbO\b+;e_fKH0wk9G;-)35Yq.j#X9)9BJãU":/f5^S3;2'o:'S*P63HFEG\#G*5:K+[N$;WHZ$Awn7OMA&Mon85+9W,9^JEA<,(ãU"\4(Wl''*SYLu)ryA6#%&VQK.tJ$0]27F#D*B/u>_(*OB*bPmYCP<6Nr#6cvJ4tgv6T3W,N]kTGvx:Z>Vfb6K(dKT2Ct(ljiZREc.K0ND9>Z:V00,ãU"FSD2NZ%98KddI%U,y2Mj'1fSA)n$SBcg^A1M+hl1EYPT*_C'edz)PQgy:DiFoACãU"S-kW+>UlI%-St(N&nc$c>+./MQ8x$/C2bAzP0uS*,iK_Bih=&Dj/J#2>rb*+Q&yãU"1'deG-n/6r)7H?v/S6]Su5TVmH*B;]ah#YJbC7h#kQw?S-4hrq6LF=xtF0b/PãU"3YGv?Bch3iU\hj&hCW*P\sTvbM>&>ãU"W>r*YMYB=&T^Y75PcoSLTni?v6=eZxV$oThN&S_Rb&>\]#_\nnu2eqVH9=dLOdpãU"(&XU,.*9zYkWFc$kzqhuI/<'X;2,IW_?dL-&k\uzXi:t;U*]9i#scy#-v.AH.N+ãU"PtnI4i:MiEus39R3dJrhREpXkxFM,=N>OUcEuXbYOb1KKQf_>'ZV'i(uhK\.>2&D*+^7xGB/5+G^ia=kMxBJT?SV?,b9,D2w%L1rPC-AQx**;UpB.a;7.k0B+quF+*2cmDyãU"1)bP>d?Li)Dw=uYntp8-J2[zn$T*QHxqZC+G2oeAR320Au/ff$8Xp>r_K4LG>]AãU"<7Kk/ZgiS&ftZWE]BA<.wMf)7VpLMk'j$1&jnzw]TKJ.muL%:h>.oK&wU7n.SB](H+$Hs,h2P).EeqhpEU^ZNM4GHHaX;'?Q[r8OAPWbãU"L);GZ(eHHE(j*KbRo'gR.U$.n-7b0'tlehV2]Wlus,5,j$'dwMMW#/Z[mK]'g#)ãU"94LB,PosvvZhH6#4&dU=\?$i<]fL4wleS%naA),U_;:MON#cm3xaSEuKQb#\40,ãU"C8GhLr1Sn?GT.Ap*LkDBB]lIuMFmm+kq)\T(*B6oyb93pmPHonu*HCFV$HãU"hKTMvN($UJ/fb>FJwsL2-c9(U+n^26dtFpSxf-)+>NrbXgSxN\Cf.:v]pqPV#6NãU"9V#XfStMn,HU8hltTYb?JkZu=l;B#'HO[oyC^hAMMzIqC)\zQS2]rrxT'.F-F/hãU"nUDC9v8^r#y?AT^xw'Bz*r+Qisoq91)RR+Ld'n3bvZRbAKMD/]R;GGqulAgDXWrãU"Haq]o:zght\?q=DL?\if9rNQ\ha7UCd)+3hC&J;P.TJz)*4ãU"(-9EK$eGZm#c#E,eXQbR'Nq)I$P(Dyu%ZMbt=?H1m%%0hcZ$)2s;*JdP.$44wi*ãU"5lr-y6fQN[p:q2IN;SDp#3Myy,gnyM4MmF]+U6DPNtJsOiP.\%(l?o'gC^Mh7f_ãU"n6,EPv^'VOl2F+/s2J]Mu2psU6h$LCNED'FN<_2-T;Fvl]9'[Y5:e+e9NDp<'k)ãU"jV/E+$j?tc1jI,7&Ubk;4Ws:jVg0\r_0EaT8y'[\DJO>2H1s0akS*SR2^BCW_9^ãU"o/WKRC:m^kQWw]#(['Q0Y_7E<$$Ff]e>j.>KU,Zs\/fZTe=%8A>q6+ãU"9JQcuBFqGlDy/;cOHg[rsbsV*rfF#/TXBTIeFQANHUX#Fs+6b-dl(_%9GgRV//eãU"$JU_Z01AEU7-=M.BPmg5/fI,yFE4[tJ#p7)%v=XMr]6K]EXX9&8Od<>7o*8GMPPãU"3l:Ad?8IG,Wi8H_laB.b9];$pZB9vRENur^:n]vs$AJwV/&[GJmF:h?FL#vSmYJãU"+>]RL],h$_u/k\cuD6gV8Ke++61o[ujCkb#fP/jyX%EzChiNH>Z#RI3XHr1fwChãU")IYJci1()6.ur:Qc.rFpdXWm.Ig^EP1:mgghjvV%Cn^S.$F5YB$Evu-S^[=wgwGf7?WHc^V?)g^L7=RR/-)A%BZt,k]itLn:ãU"*x)z-oRCq\fGptlr88quxg?n1,KtKGC'pu)Sk8,n>#.lvlOcQY_mVANhD6YTWe)ãU"t,WV[9s+<+K0V)2j,QlXh9pAjye2Cpt(C-T8L6HiS#cDVt]kDh00:nsG2iEaPD:ãU":'jRRo5Bm1a\$q>P%tP\7Mh]o9Gm[e_+\=qiT*NIsKX^$rr:nEYI?o=VNkdAEAuãU"c'aXuU50:Tj=j-v$4hjTUoBtqf*0:Xvh0VpQZ[ujAMuNk8)iM]ct(n(w+.6#Y;EBEk;>+N^<ãU"lrtJ72q?pbBD]a0g#?A?NpcQPvW6hime$Gpvm&yn]B6R#m(aLo_p6P?>[.(huooãU"J2lFn&NH38]X&YEC5vl2OjhW?wLU2*9WT;Q??=A]x.y*MAy5RiPv5\p[0lU]_ibãU"%0M9u_x'Nq.W?S<^Zfc16KnR23IL&(P/ajy98#Rpo'dt)DcPY&Nkp%]1xvNq&S)ãU"LjMw3kgc&>KO+yB*Cq>?*v6&Q=7mbJ4ch0AVo8UN)ZfKr.73_-E2nWa]+MEf>f^ãU"Ff,,PA([+'Z:I&>oUn*^sd^gN;WB$/7GjY#DUãU"l0W;1Fr*tS*cm0gF#-m7$uAM';f.Ys-ZvLcTZd=UrlsfWX,wGzCtqZ>_qbPM3LpãU"lkTfU>\Ct81bW6.\09mw)VXDa;1;+$tKTG9z0uOãU"6oXQRjn)BY\\cmxK77YYxggnETKOPr<,aCx*ViB&=V.xk$5+8iGãU"/Sm5g+ãU"MWG7[G,0$Q)QZq3l\HLtjTpQgV\uTa3]#dQMa=zeik#-0:SJIefcZM=pIBrK_3pãU"oFSl<[MRqY.4>&^3:w=c8)n_>%uxu%p&'9%%9%%#%-%(Dn&HesRrEH#%%%U%L%%ãU",%%%%%%%%%%%%E%%%%%%%%%zxf%Sgru%up&'%9%9%%%%-%27r&HW2yf/%o'%%&UãU"L%%%+%%%%%%%%%%%E%7%%m%%%%zp%Sgru%up&'%9%9%%%%-%31r&H,m[My'x%%%ãU"&UL%%%.%%%%%%%%%%%E%.%%1(%%%of%ufsS%gruu%p&'9%%9%%%%-%w)p&HyGg;ãU"kU#%%%U%L%%.%%%%%%%%%%%%E%%(%W)%%%nyf(q(Sg%ruup%&'9%%9%%%I-%6p\ãU"&HT/4-%T%.%%UL%%%/%%%%%%%%%%%%E%%%%Z*%%%kwfs%hjSg%ruup%&'9%%9%%ãU"%R-%^m&&Hat/oBt&.%%UL%%%/%%%%%%%%%%%%E%%%'[*%%%hfsf%ifSg%ruup%&ãU"'9%%9%%%#-%3\/'HwB4:IO&.%%UL%%%0%%%%%%%%%%%%E%%%'(,%%%gfmf%rfxSãU"%gruu%p&'9%%9%%#%-%yH&cIIPR;-h#4%%o%P%%-%%%%%%%%%&%%E%%(%'.%%%kãU"qf%lSgf%xup*%+%%%%%-%-+%/&%%%<>%%%%%ãEND SUBãCLOSE:IF S=173AND 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ãMichael Galos 3D ROTATING WIREFRAME FACE galvin@powerup.com.au 10-24-99 (09:33) QB, QBasic, PDS 138 5143 FACE.BAS 'By Michael Galosãã'This is a program with a 3D face which I made without a rotational matrixã'I used simple sin and cosine math without a z dimension.ã'It took me a little while to make this and I'm still adding more to it.ã'Eventually I hope to have a full man.ã'Increase the 's' value to go slowerã'Fiddle with the r1 and r2 values to change the perspective of the faceã'Change them in multiples of each other eg, 60 and 5, 120 and 10....ã'I should have used a sub for the erase part but I'm too lazyããSCREEN 13ããpi = 3.141592654# / 180ãa = 160: b = 100 'The a and b values are the centre of the screenãc = 31 'This is the colour of the face.ãs = 2000 's is the speedãr1 = 60: r2 = 5 'these are the horizontal and vertical dimensionsããstart: 'just something to loop back to...ããFOR i = 1 TO 360 STEP 1 'Increase the step to increase the speedããx1 = a + r1 * SIN(pi * (i - 3)) 'From this line and down are theãy1 = (b - 5) + r2 * COS(pi * (i - 3)) 'mathematical formulas for eachãx2 = a + (r1 - 15) * SIN(pi * (i - 4)) 'of the points of the face.ãy2 = (b - 20) + r2 * COS(pi * (i - 4))ãx3 = a + r1 * SIN(pi * (i + 3))ãy3 = (b - 5) + r2 * COS(pi * (i + 3))ãx4 = a + (r1 - 15) * SIN(pi * (i + 4))ãy4 = (b - 20) + r2 * COS(pi * (i + 4))ãx5 = a + (r1 - 16) * SIN(pi * (i - 20))ãy5 = (b - 25) + r2 * COS(pi * (i - 20))ãx6 = a + (r1 - 16) * SIN(pi * (i + 20))ãy6 = (b - 25) + r2 * COS(pi * (i + 20))ãx7 = a + (r1 - 14) * SIN(pi * (i - 30))ãy7 = (b - 23) + r2 * COS(pi * (i - 30))ãx8 = a + (r1 - 14) * SIN(pi * (i + 30))ãy8 = (b - 23) + r2 * COS(pi * (i + 30))ãx9 = a + (r1 - 18) * SIN(pi * (i - 20))ãy9 = (b - 21) + r2 * COS(pi * (i - 20))ãx10 = a + (r1 - 18) * SIN(pi * (i - 27))ãy10 = (b - 20) + r2 * COS(pi * (i - 27))ãx11 = a + (r1 - 18) * SIN(pi * (i - 14))ãy11 = (b - 20) + r2 * COS(pi * (i - 14))ãx12 = a + (r1 - 18) * SIN(pi * (i - 20))ãy12 = (b - 18) + r2 * COS(pi * (i - 20))ãx13 = a + (r1 - 18) * SIN(pi * (i + 20))ãy13 = (b - 21) + r2 * COS(pi * (i + 20))ãx14 = a + (r1 - 18) * SIN(pi * (i + 27))ãy14 = (b - 20) + r2 * COS(pi * (i + 27))ãx15 = a + (r1 - 18) * SIN(pi * (i + 14))ãy15 = (b - 20) + r2 * COS(pi * (i + 14))ãx16 = a + (r1 - 18) * SIN(pi * (i + 20))ãy16 = (b - 18) + r2 * COS(pi * (i + 20))ãx17 = a + (r1 - 13) * SIN(pi * (i - 8))ãy17 = (b - 3) + r2 * COS(pi * (i - 7))ãx18 = a + (r1 - 13) * SIN(pi * (i + 7))ãy18 = (b - 3) + r2 * COS(pi * (i + 7))ãx19 = a + (r1 - 13) * SIN(pi * (i - 5))ãy19 = (b + 5) + r2 * COS(pi * (i - 5))ãx20 = a + (r1 - 13) * SIN(pi * (i - 20))ãy20 = (b + 5) + r2 * COS(pi * (i - 20))ãx21 = a + (r1 - 13) * SIN(pi * (i - 5))ãy21 = (b + 8) + r2 * COS(pi * (i - 5))ãx22 = a + (r1 - 13) * SIN(pi * (i + 5))ãy22 = (b + 5) + r2 * COS(pi * (i + 5))ãx23 = a + (r1 - 13) * SIN(pi * (i + 20))ãy23 = (b + 5) + r2 * COS(pi * (i + 20))ãx24 = a + (r1 - 13) * SIN(pi * (i + 5))ãy24 = (b + 8) + r2 * COS(pi * (i + 5))ãx25 = a + (r1 - 13) * SIN(pi * (i + 8))ãy25 = (b + 15) + r2 * COS(pi * (i + 8))ãx26 = a + (r1 - 13) * SIN(pi * (i - 8))ãy26 = (b + 15) + r2 * COS(pi * (i - 8))ããLINE (x1, y1)-(x2, y2), c 'This line and down draws the linesãLINE (x1, y1)-(x3, y3), c 'for the faceãLINE (x3, y3)-(x4, y4), cãLINE (x4, y4)-(x6, y6), cãLINE (x2, y2)-(x5, y5), cãLINE (x7, y7)-(x5, y5), cãLINE (x8, y8)-(x6, y6), cãLINE (x9, y9)-(x10, y10), cãLINE (x9, y9)-(x11, y11), cãLINE (x10, y10)-(x12, y12), cãLINE (x11, y11)-(x12, y12), cãLINE (x13, y13)-(x14, y14), cãLINE (x13, y13)-(x15, y15), cãLINE (x14, y14)-(x16, y16), cãLINE (x15, y15)-(x16, y16), cãLINE (x17, y17)-(x1, y1), cãLINE (x18, y18)-(x3, y3), cãLINE (x18, y18)-(x17, y17), cãLINE (x19, y19)-(x20, y20), cãLINE (x21, y21)-(x20, y20), cãLINE (x22, y22)-(x19, y19), cãLINE (x24, y24)-(x21, y21), cãLINE (x22, y22)-(x23, y23), cãLINE (x24, y24)-(x23, y23), cãLINE (x25, y25)-(x26, y26), cããFOR t = 1 TO s: NEXT t 'This line pauses for a split secondããGOSUB eraseit 'gosub to the erase command belowããNEXT i 'loop 360 timesããGOTO start 'start againããeraseit:ãLINE (x1, y1)-(x2, y2), 0 'This line and down erases the faceãLINE (x1, y1)-(x3, y3), 0 'from the screenãLINE (x3, y3)-(x4, y4), 0ãLINE (x2, y2)-(x5, y5), 0ãLINE (x4, y4)-(x6, y6), 0ãLINE (x7, y7)-(x5, y5), 0ãLINE (x8, y8)-(x6, y6), 0ãLINE (x9, y9)-(x10, y10), 0ãLINE (x9, y9)-(x11, y11), 0ãLINE (x10, y10)-(x12, y12), 0ãLINE (x11, y11)-(x12, y12), 0ãLINE (x13, y13)-(x14, y14), 0ãLINE (x13, y13)-(x15, y15), 0ãLINE (x14, y14)-(x16, y16), 0ãLINE (x15, y15)-(x16, y16), 0ãLINE (x17, y17)-(x1, y1), 0ãLINE (x18, y18)-(x3, y3), 0ãLINE (x18, y18)-(x17, y17), 0ãLINE (x19, y19)-(x20, y20), 0ãLINE (x21, y21)-(x20, y20), 0ãLINE (x22, y22)-(x19, y19), 0ãLINE (x22, y22)-(x23, y23), 0ãLINE (x24, y24)-(x23, y23), 0ãLINE (x24, y24)-(x21, y21), 0ãLINE (x25, y25)-(x26, y26), 0ããRETURN 'return to the for..next loopãMichael Galos ANIMATION OF A WALKING MAN galvin@powerup.com.au 10-24-99 (09:33) QB, QBasic, PDS 711 19138 MANWALK.BAS 'This is the first animation I've ever properly made.ã'Keep in mind that I was 12 when I wrote this on my then brand new 386! :)ã'I also had no knowledge of arrays so it's not even close to optimisedã'which would have helped. I've only just now added the comments and organised it.ã'This program could be made a lot cleaner but it doesn't really use thatã'much CPU power. You might need to adjust the speed for your computer.ã'----------------------------------------------------------------------------ããSCREEN 13ããspeed = 40000 'the speed of the animation (you might want to lower this)ããDIM half%(2000) 'allocate memory to store the graphics for each frameãDIM man1%(2000)ãDIM man2%(2000)ãDIM man3%(2000)ãDIM man4%(2000)ãDIM man5%(2000)ãDIM man6%(2000)ãDIM man7%(2000)ãã'draw the ground:ãLINE (0, 110)-(319, 199), 2, BFããã'this is the drawing for the 1st frame of animation for the man'ã PSET (160, 100), 7ã DRAW "D5;R1;U5;D7;C13;D1;L4;U1;E1;R2;F1;L3"ã PSET (157, 106), 5ã DRAW "L2;G1;D1;R2;U1;L1"ã PSET (159, 105), 8ã DRAW "U7;C7;R2;D1;L1"ã PSET (158, 98), 8ã DRAW "D7"ã PSET (161, 97), 3ã DRAW "L3;G1;L2;H2;U2;E3;U1;E1;U1;R6;D8;G1"ã PAINT (160, 95), 11, 3ã PSET (157, 98), 8ã DRAW "D7"ã PSET (159, 98), 7ã DRAW "D7"ã PSET (158, 98), 7ã PSET (161, 90), 3ã DRAW "H1;L1;G1;D2;R3;U1"ã PSET (161, 91), 11ã DRAW "H1;L1;G1;R2"ã PSET (161, 91), 3ã PSET (158, 91), 3ã PSET (161, 93), 12ã DRAW "L2;D2;L1;d1;r1;U1;R1;D1;R1;U2;L1"ã PSET (161, 108), 7ã DRAW "L4"ã PSET (156, 108), 8ã DRAW "L2"ã PSET (158, 87), 12ã DRAW "E1;R1;F1;L2;U2;H2;U1;L1;U1;E1;U2;R4;F2;D4;G2"ã PSET (157, 84), 12ã DRAW "F1"ã PAINT (160, 80), 12ã PSET (163, 85), 6ã DRAW "E1;U4;H2;L6;E1;R5;F2"ã PSET (162, 79), 6ã DRAW "F1;D4;U4;H1;G1;D"ã PSET (161, 79), 6ã PSET (157, 80), 1ããGET (140, 60)-(180, 128), man1% 'grab the first fram and put it into man1%ãGET (140, 60)-(180, 98), half% 'grab the top half of himãFOR t = 1 TO speed: NEXT t 'pause for the next frameãLINE (140, 99)-(180, 109), 0, BF 'erase himãLINE (0, 110)-(319, 199), 2, BF 'redraw the ground (just to make sure it's the same)ãã'this is the second frame of animation'ã PSET (158, 99), 7ã DRAW "DGDGDG;FR;eueueueu"ã PAINT (159, 100), 7ã PSET (155, 106), 13ã DRAW "l3;dg;frrf;e2u;l5;d;r4;g"ã PSET (151, 108), 7ã DRAW "f1;r2;f"ã PSET (161, 99), 8ã DRAW "d9;l2;u5;eud7"ã PSET (159, 108), 5ã DRAW "r2;d2;l4uedrr"ã PSET (157, 110), 8ã DRAW "r4"ã PSET (159, 91), 3ã DRAW "f1;r1;e"ã PSET (161, 92), 12ã DRAW "f1;f;g1;h2;u;f3"ã PSET (161, 95), 12ã DRAW "f"ããGET (140, 60)-(170, 130), man2% 'grab the second frameãFOR t = 1 TO speed: NEXT t 'pause for the 3rd frameãLINE (0, 70)-(319, 109), 0, BF 'erase the manãPUT (140, 61), half%, PSET 'place the top half downãLINE (0, 110)-(319, 199), 2, BF 'redraw the ground againãã'this is where the 3rd frame gets drawn'ã PSET (158, 100), 7ã DRAW "gggd3rrr;uuu;eeelgggddluueee"ã PSET (157, 100), 8ã PSET (160, 101), 8ã DRAW "fdfdf;l2;uguugurrhug"ã PSET (156, 107), 13ã DRAW "r2;d1;l6;e1;r3"ã PSET (153, 109), 7ã DRAW "r5"ã PSET (159, 107), 5ã DRAW "r4;d;l4;d1;c8;r4"ã PSET (159, 91), 3ã DRAW "f1;r1;e"ã PSET (159, 94), 11ã DRAW "r2;d4;l3;u1;r2;d1;l1;u2l;r2;u1;l1"ã PSET (161, 92), 12ã DRAW "f1;f;g1;h2;u;f3"ã PSET (161, 95), 12ã DRAW "f"ããGET (140, 60)-(170, 130), man3% 'grab the 3rd frameãFOR t = 1 TO speed: NEXT t 'pause for the 4th frameãLINE (0, 70)-(319, 109), 0, BF 'erase the manãPUT (140, 61), half%, PSET 'place his top half down againãLINE (0, 110)-(319, 199), 2, BF 'redraw the groundãã'this is where the 4th frame gets drawn'ã PSET (158, 100), 7ã DRAW "d3;g;d3;r3;u3;e1;u3;l1;d3;l;u5;d8;l1;u2"ã PSET (157, 107), 13ã DRAW "R3;D1;L5;E"ã PSET (155, 109), 7ã DRAW "R5"ã PSET (156, 102), 8ã DRAW "E1;D2;L"ã PSET (161, 104), 8ã DRAW "f2;l2;u1;fg"ã PSET (161, 107), 5ã DRAW "er;f;lg;le"ã PSET (161, 109), 8ã DRAW "err"ããPUT (140, 60), half%, PSET 'put down half his bodyãGET (140, 60)-(170, 130), man4% 'grab the 4th frameãFOR t = 1 TO speed: NEXT t 'pause for the 5th frameãLINE (0, 100)-(319, 109), 0, BF 'erase the manãã'this is where the 5th frame is drawn'ã LINE (158, 100)-(159, 106), 7ã LINE (160, 100)-(161, 106), 7ã LINE (159, 100)-(160, 106), 7ã LINE (0, 110)-(319, 199), 2, BFã PSET (161, 106), 13ã DRAW "d1;l5;e1;r3"ã PSET (156, 108), 7ã DRAW "r5"ã LINE (157, 99)-(153, 105), 8ã PSET (153, 105), 8ã DRAW "r3eueulgd2;l"ã PSET (157, 102), 8ã PSET (153, 105), 5ã DRAW "rfr;g;hlhd"ã PSET (152, 107), 8ã DRAW "rrr"ãGET (140, 60)-(170, 130), man5% 'grab the 5th frameãFOR t = 1 TO speed: NEXT t 'pause for the 6th frameãLINE (0, 70)-(319, 109), 0, BF 'erase the manãPUT (140, 62), half%, PSET 'place the top half of him downãLINE (0, 110)-(319, 199), 2, BF 'redraw the ground againãã'this is where the 6th frame is drawn'ã PSET (159, 94), 11ã DRAW "r2;d4;l3;u1;r2;d1;l1;u2l;r2;u1;l1"ã PSET (159, 94), 12ã DRAW "g1;h1;g2;f2;e3u;g3;u2g"ã PSET (158, 100), 8ã DRAW "g3;dgd1;r2;ueue2;lggdgd"ã PSET (159, 100), 7ã DRAW "d3;f;d2rruuhuuu;l;dddfdd"ã PSET (156, 107), 5ã DRAW "d1;l5;e1;r3"ã PSET (151, 109), 8ã DRAW "r5"ã PSET (159, 107), 13ã DRAW "r3;d1;l5e"ã PSET (157, 109), 7ã DRAW "r5"ããGET (140, 60)-(170, 130), man6% 'grab the 6th frameãFOR t = 1 TO speed: NEXT t 'pause for the 7thãLINE (0, 70)-(319, 109), 0, BF 'erase the manãPUT (140, 61), half%, PSET 'place down half his body againãLINE (0, 110)-(319, 199), 2, BF 'redraw the groundãã'this is where the 7th and final frame is drawn'ã PSET (158, 100), 7ã DRAW "dgd;fdfd;r2;uhuhu;eueu;l;dgdgdfdfd"ã PSET (157, 108), 13ã DRAW "rere;f;lglgl"ã PSET (158, 110), 7ã DRAW "erer"ã PSET (160, 102), 8ã DRAW "d1;r1;d2;u5"ã PSET (158, 107), 8ã PSET (158, 106), 8ã PSET (156, 107), 5ã DRAW "r1;l1;d1"ã PSET (156, 109), 8ã PSET (161, 109), 8ããGET (140, 60)-(170, 130), man7% 'grab the 7th frameãFOR t = 1 TO speed: NEXT t 'pause before going back to the 1st frameããanimation: 'the actual animationãPUT (140, 60), man2%, PSETãFOR t = 1 TO speed: NEXT tãPUT (140, 60), man3%, PSETãFOR t = 1 TO speed: NEXT tãPUT (140, 60), man4%, PSETãFOR t = 1 TO speed: NEXT tãPUT (140, 60), man5%, PSETãFOR t = 1 TO speed: NEXT tãPUT (140, 60), man6%, PSETãFOR t = 1 TO speed: NEXT tãPUT (140, 60), man7%, PSETãFOR t = 1 TO speed: NEXT tãLOCATE 1, 16: PRINT "Hit Space"ãa$ = INKEY$ãIF a$ = " " THEN GOTO cliffãGOTO animationãcliff:ãPUT (140, 60), man2%, PSETãedge = edge + 5: GOSUB cliffwriteãFOR t = 1 TO speed: NEXT tãPUT (140, 60), man3%, PSETãedge = edge + 5: GOSUB cliffwriteãFOR t = 1 TO speed: NEXT tãPUT (140, 60), man4%, PSETãedge = edge + 5: GOSUB cliffwriteãFOR t = 1 TO speed: NEXT tãPUT (140, 60), man5%, PSETãedge = edge + 5: GOSUB cliffwriteãFOR t = 1 TO speed: NEXT tãPUT (140, 60), man6%, PSETãedge = edge + 5: GOSUB cliffwriteãFOR t = 1 TO speed: NEXT tãPUT (140, 60), man7%, PSETãedge = edge + 5: GOSUB cliffwriteãFOR t = 1 TO speed: NEXT tãGOTO cliffãcliffwrite:ãLINE (0, 0)-(edge, 199), 0, BFãIF edge = 150 THEN GOTO fallãRETURNãfall:ãLINE (152, 110)-(319, 199), 2, BFãLINE (0, 0)-(319, 109), 0, BFãPSET (149, 110), 7ãDRAW "rer"ãPSET (149, 109), 13ãDRAW "rer;u;lgll"ãPSET (159, 102), 5ãDRAW "d3;r1;u3;r1;c8;d3"ãPSET (149, 107), 7ãDRAW "uhuheueuerer;gdgdgdfdfdhguuulduuugeuurduur"ãPSET (153, 98), 8ãDRAW "dddfrrrrddllllhhuudffrrrr"ãPSET (154, 101), 8ãPSET (151, 97), 3ãDRAW "llhlhhuu;eehu;rrerr;fddfddfdd;gll"ãPAINT (152, 95), 11, 3ãPSET (149, 90), 3ãDRAW "r;f;d;ll;u;e"ãPSET (148, 91), 12ãDRAW "gghgffeee;lgghe"ãPSET (145, 87), 12ãDRAW "rrrerreuuhuuhhhlllgll;fdf;lgddreddfdd"ãPAINT (146, 84), 12ãPSET (142, 78), 6ãDRAW "r2;e;r3fffddfdd;g;h;uuu;f;ddduuu;hh;u2;l7;e;rrrrrr;f;ddd;uuu;h;ll;ddd"ãPSET (143, 81), 1ãPSET (144, 86), 0ãDRAW "r;e;r;d;ll;gll"ãPSET (145, 82), 12ãDRAW "e2"ãFOR t = 1 TO y: NEXT tãLINE (0, 0)-(319, 109), 0, BFãPSET (110, 107), 6ãDRAW "u9dfedfeuudddrefrrhlllllluuudfldrrrefllrrrfllllllllddddd;r;c12;uuuurrrrrrrdllddelulllldd;c1;r;c12dlrduruulrrrrrggdeellhgddlhh"ãPSET (120, 101), 3ãDRAW "rrrrerrrrrddddddddlllhlhlhhluu;r;c11;rrrerrrrddddddllhlhlhhrrrerrrddddhlhlerdru;lllldrfrf;uulc3lluuurrddduuuuc12;uuuulldddhfdruuu"ãPSET (131, 107), 7ãDRAW "rrrrrrrerrrrrrruuuullllllllhllllllddddddd"ãPAINT (133, 105), 7ãPSET (147, 102), 13ãDRAW "dddddfrrc7uuuuuulc13llfddddruuuu"ãPSET (140, 101), 8ãDRAW "rrrrellllueueurrrrdgdgdgeulllerrullerr"ãPSET (143, 94), 5ãDRAW "rrrrreuullllllddderrrrullll"ãPSET (143, 92), 8ãDRAW "rrrrrr"ãPSET (143, 91), 0ãDRAW "rrrrrr"ãPSET (150, 110), 0ãPSET (149, 110), 0ãDIM fallman1%(5000)ãFOR t = 1 TO 3000: NEXT tãGET (100, 92)-(153, 109), fallman1%ãLINE (100, 92)-(153, 110), 0, BFãPSET (151, 110), 2ãDRAW "r5l5d8"ãPSET (150, 126), 0ãDRAW "l5"ãPUT (98, 100), fallman1%, PSETãPSET (109, 107), 6ãPSET (130, 108), 7ãPSET (129, 108), 7ãPSET (135, 109), 7ãDRAW "rrr"ãPSET (114, 106), 6ãPSET (116, 107), 6ãDIM fallman2%(5000)ãGET (98, 100)-(151, 117), fallman2%ãFOR t = 1 TO z: NEXT tãLINE (98, 100)-(151, 118), 0, BFãPUT (97, 108), fallman1%, PSETãPSET (151, 110), 2ãDRAW "r5l5d8"ãPSET (150, 126), 0ãDRAW "l5"ã'GOTO casdf2ãLINE (0, 0)-(151, 199), 0, BFãLINE (151, 105)-(319, 199), 2, BFãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 100)-(319, 199), 2, BFãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 95)-(319, 199), 2, BFãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 90)-(319, 199), 2, BFãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 85)-(319, 199), 2, BFãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 80)-(319, 199), 2, BFãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 75)-(319, 199), 2, BFãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 70)-(319, 199), 2, BFãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 65)-(319, 199), 2, BFãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 60)-(319, 199), 2, BFãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 55)-(319, 199), 2, BFãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 50)-(319, 199), 2, BFãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 45)-(319, 199), 2, BFãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 40)-(319, 199), 2, BFãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 35)-(319, 199), 2, BFãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 30)-(319, 199), 2, BFãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 25)-(319, 199), 2, BFãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 20)-(319, 199), 2, BFãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 15)-(319, 199), 2, BFãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 10)-(319, 199), 2, BFãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 5)-(319, 199), 2, BFãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãLINE (151, 0)-(319, 199), 2, BFãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãLINE (0, 195)-(319, 199), 2, BFãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãLINE (0, 190)-(319, 199), 2, BFãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãLINE (0, 185)-(319, 199), 2, BFãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãLINE (0, 180)-(319, 199), 2, BFãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãLINE (0, 175)-(319, 199), 2, BFãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãLINE (0, 170)-(319, 199), 2, BFãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãLINE (0, 165)-(319, 199), 2, BFãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãLINE (0, 160)-(319, 199), 2, BFãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãLINE (0, 155)-(319, 199), 2, BFãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãLINE (0, 150)-(319, 199), 2, BFãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãLINE (0, 145)-(319, 199), 2, BFãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãLINE (0, 140)-(319, 199), 2, BFãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãLINE (0, 135)-(319, 199), 2, BFãPUT (97, 108), fallman2%, PSETãFOR t = 1 TO z: NEXT tãLINE (0, 130)-(319, 199), 2, BFãPUT (97, 108), fallman1%, PSETãFOR t = 1 TO z: NEXT tãLINE (0, 126)-(319, 199), 2, BFãPUT (97, 108), fallman2%, PSETãcasdf2:ãPSET (130, 125), 4ãDRAW "rrrrrc12rr"ãPSET (146, 125), 4ãDRAW "rrr"ãPSET (120, 124), 4ãDRAW "rrr"ãFOR t = 1 TO z: NEXT tãPUT (97, 108), fallman1%, PSETãPSET (107, 112), 0ãDRAW "rrrrrrrrdlllllllldrrrrrrrrdllllllll"ãPSET (107, 115), 6ãDRAW "rrrrrr"ãPSET (121, 116), 0ãDRAW "rrulllhrrrrullurr"ãPSET (120, 119), 12ãDRAW "rrrrulll"ãPSET (137, 117), 0ãDRAW "rrrrellllurrrrellllurrrrellllurrrreellllllurrrrrrllllllddrrrr"ãPSET (139, 117), 8ãDRAW "rrrrrrerllllllerrrrrrrellllll"ãPSET (145, 113), 5ãDRAW "rrfrrullhllurrfrruc8llhll"ãDIM squash1%(5000)ãGET (97, 108)-(151, 117), squash1%ãPSET (130, 125), 4ãDRAW "rrrrrrrrrrrr"ãPSET (120, 125), 4ãDRAW "rrrrrr"ãPSET (122, 124), 4ãDRAW "rr"ãPSET (132, 123), 4ãDRAW "r"ãPSET (142, 123), 4ãPSET (120, 121), 4ãDRAW "rr"ãPSET (124, 122), 4ãDRAW "rrr"ãPSET (132, 120), 4ãDRAW "r"ãPSET (118, 119), 4ãLINE (0, 125)-(319, 199), 2, BFãx = 0ã1000000ãCIRCLE (130, 115), x, 4ãCIRCLE (120, 120), x, 4ãFOR t = 1 TO v: NEXT tãx = x + 1ãIF x = 9 THEN GOTO splashãGOTO 1000000ãsplash:ãLINE (105, 110)-(151, 130), 4, BFãPSET (106, 109), 4ãDRAW "r39"ãPSET (104, 111), 4ãDRAW "d18"ãPSET (106, 130), 4ãDRAW "rrfrrffrffrerrrrrrrerrrerrrfrrrfrrrerreee"ãPAINT (130, 131), 4ãPSET (106, 109), 4ãDRAW "rrrrerrrrereeerrrfrrrfrrerrrfreerrrffrrffrrf"ãPAINT (130, 107), 4ãPSET (103, 111), 4ãDRAW "dgdgfdffdgdgdfdfdd"ãPSET (103, 123), 4ãDRAW "d"ãPSET (103, 113), 4ãDRAW "dgrddd"ãPSET (105, 130), 4ãDRAW "rddgdffrreuhuurllldgdfrrelllued"ãPSET (139, 130), 4ãDRAW "rddgdffrreuhuurllldgdfrrelllued"ãDIM blooddrip1%(200)ãGET (106, 133)-(112, 138), blooddrip1%ãPUT (106, 134), blooddrip1%, PSETãPUT (140, 134), blooddrip1%, PSETãFOR t = 1 TO m: NEXT tãPUT (106, 135), blooddrip1%, PSETãPUT (140, 134), blooddrip1%, PSETãFOR t = 1 TO m: NEXT tãPUT (106, 136), blooddrip1%, PSETãPUT (140, 135), blooddrip1%, PSETãFOR t = 1 TO m: NEXT tãPUT (106, 137), blooddrip1%, PSETãPUT (140, 135), blooddrip1%, PSETãFOR t = 1 TO m: NEXT tãPUT (106, 138), blooddrip1%, PSETãPUT (140, 136), blooddrip1%, PSETãFOR t = 1 TO m: NEXT tãFOR t = 1 TO 10000: NEXT tãLINE (0, 125)-(319, 199), 2, BFãLINE (0, 0)-(150, 124), 0, BFãPUT (110, 75), man1%, PSETã'dynamite1'ãPSET (124, 107), 4ãDRAW "hhheffflhhu"ã'dynamite2'ãLINE (0, 124)-(151, 124), 2ãLINE (151, 0)-(151, 199), 2ãg = 1ãstrt:ã'frame1clear'ãPSET (122, 101), 0ãPSET (120, 102), 0ãPSET (121, 101), 0ã'frame1'ãPSET (121, 103), 14ãPSET (122, 102), 12ãPSET (119, 102), 6ãPSET (120, 101), 4ãFOR t = 1 TO w: NEXT tã'frame2clear'ãPSET (122, 102), 0ãPSET (119, 102), 0ãPSET (120, 101), 0ã'frame2'ãPSET (122, 101), 4ãPSET (120, 102), 6ãPSET (121, 101), 12ãFOR t = 1 TO w: NEXT tãg = g + 1ãIF g = 3 THEN GOTO nexttãGOTO strtãENDãnextt:ãPUT (110, 75), man1%, PSETãLINE (0, 124)-(151, 124), 2ãLINE (151, 0)-(151, 199), 2ãPSET (122, 104), 4ãDRAW "hhhefffdhhh"ãPSET (122, 105), 12ãDRAW "rruudfddlul"ãh = 1ãfiree:ã'frame1clear'ãPSET (119, 99), 0ãPSET (117, 99), 0ãPSET (120, 99), 0ã'frame1'ãPSET (119, 100), 14ãPSET (118, 99), 12ãPSET (120, 98), 6ãPSET (119, 97), 4ã'frame2clear'ãPSET (118, 99), 0ãPSET (120, 98), 0ãPSET (119, 97), 0ã'frame2'ãPSET (119, 100), 14ãPSET (119, 99), 6ãPSET (117, 99), 4ãPSET (120, 99), 12ãh = h + 1ãIF h = 600 THEN GOTO gextttãGOTO fireeãENDãgexttt:ãPUT (110, 75), man1%, PSETãLINE (0, 124)-(151, 124), 2ãLINE (151, 0)-(151, 199), 2ãPSET (124, 106), 12ãDRAW "lhllhueerddrrgrddrddhluuullluru"ãPSET (124, 104), 0ãPSET (122, 102), 4ãDRAW "ueueurdgdgdl"ãPSET (125, 98), 14ãFOR t = 1 TO z: NEXT tãPUT (110, 75), man1%, PSETãLINE (0, 124)-(151, 124), 2ãLINE (151, 0)-(151, 199), 2ãPSET (125, 106), 12ãDRAW "uhuhuerrddrdldluuleldl"ãPSET (126, 100), 4ãDRAW "fehl"ãFOR t = 1 TO z: NEXT tãPSET (126, 100), 0ãDRAW "fehl"ãPSET (126, 101), 0ãDRAW "luulddlderrrrf"ãFOR t = 1 TO z: NEXT tãPUT (110, 75), man1%, PSETãLINE (0, 124)-(151, 124), 2ãLINE (151, 0)-(151, 199), 2ãFOR t = 1 TO 10000: NEXT tãPSET (127, 100), 0ãDRAW "rul"ãPSET (127, 102), 12ãDRAW "e"ãPSET (123, 111), 3ãDRAW "hhuuererreu"ãPSET (123, 111), 11ãDRAW "uueeelldlldrld"ãFOR t = 1 TO z: NEXT tãDIM belly1%(5000)ãGET (100, 75)-(150, 117), belly1%ãPSET (125, 113), 3ãDRAW "llhlhlhuhueuererrrrf"ãPSET (123, 111), 11ãDRAW "hhuuererreu"ãPSET (125, 112), 11ãDRAW "llhlullurullurrellurrrrhlrrrr"ãDIM belly2%(5000)ãGET (100, 75)-(150, 127), belly2%ãPUT (99, 75), belly2%, PSETãFOR t = 1 TO z: NEXT tãPUT (100, 75), belly2%, PSETãFOR t = 1 TO z: NEXT tãPUT (99, 75), belly2%, PSETãFOR t = 1 TO z: NEXT tãPUT (100, 75), belly2%, PSETãFOR t = 1 TO z: NEXT tãPUT (100, 75), belly1%, PSETãFOR t = 1 TO z: NEXT tãPUT (110, 75), man1%, PSETãLINE (0, 124)-(151, 124), 2ãLINE (151, 0)-(151, 199), 2ãMichael Galos BOUNCING TRIANGLE galvin@powerup.com.au 10-24-99 (09:33) QB, QBasic, PDS 43 931 BOUNTRIA.BAS'By Michael Galosã'This is a bouncing triange program that I made years agoã'It's pretty simple and was one of my first programs ever.ããSCREEN 13ãpi = 3.141592654# / 180ãs = 3000ãr = 15ãa = 160ãb = 100ãc = 32ãd = 1ãe = 1ã1ãFOR i = 1 TO 360ãx1 = a + r * SIN(pi * i)ãy1 = b + r * COS(pi * i)ãx2 = a + r * SIN(pi * (i + 120))ãy2 = b + r * COS(pi * (i + 120))ãx3 = a + r * SIN(pi * (i - 120))ãy3 = b + r * COS(pi * (i - 120))ãLINE (x1, y1)-(x2, y2), cãLINE (x2, y2)-(x3, y3), cãLINE (x3, y3)-(x1, y1), cãa = a + dãb = b + eãIF a <= r THEN d = 1: GOSUB sounãIF a >= (319 - r) THEN d = -1: GOSUB sounãIF b <= r THEN e = 1: GOSUB sounãIF b >= (199 - r) THEN e = -1: GOSUB sounãFOR t = 1 TO s: NEXT tãLINE (x1, y1)-(x2, y2), 0ãLINE (x2, y2)-(x3, y3), 0ãLINE (x3, y3)-(x1, y1), 0ãc = c + .1ãIF c >= 103 THEN c = 32ãNEXT iãGOTO 1ãsoun:ãFOR u = 1 TO 12ãSOUND 11700 * RND + 2137, .0229ãNEXT uãRETURNãIan Barker RASTER IMAGE ROTATION mrianbarker@yahoo.co.uk 10-25-99 (11:48) QB, QBasic, PDS 592 39129 ROTATION.BAS' Raster Image RotationãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"ROTATION.ZIP",4^6:Z&=29094:?STRING$(50,177);ãU"%up()%9%'%R-%2[7fLKo42P%0%%%%5%%%/%#%%gA2>F=hLSA0FM;a8$>9$(nãU"G6c)+)ZhMob'NSL09ht%ZIVs8d%TJNcVEgKN-,<>BV]2]K=nr,?QB+B799k,\=nãU"1##ue8tx:+s\)L/g?1WUtqPKrtMHlãU"5?HXPIjnLW?.#G8iFGqi\hWOLPoKVc6ZB*b+V.n$AS#_l2rMAn<^Pc[aQ_ml)DGãU"l)[MS4t&jm3&VMXI&%/Wda-r&'H6>N'BUVJH^o.LblD$usTlYn\0.Xgas$7tNfnãU"Q0.*^$N$-L1IyqO7nTLz6MI*jDFI6yK'yJfa\m\5Qli>RopsVlI13ctW:Nv+lN-ãU"bx:-xVH556%vM+*Cd8-KB+^yt#I^/P4+l5ksp*ZeHDq>yUuHqZl^tvG_>bNH<(KãU"8io1muj8hcaMWapN^GJ#z7Zo,4Me5eS;]7fKMk6I8[Kq(T,4;Xdwc)c^Z\P[D1pãU"ts--K82lu(Rqr-#('RfP#/G3s,*qiV13_.JC;JlpiJs)0%sbjFnW>ãU"%f2fJz2TDzH$J22ZQ1u(GG/tXd,)((;0M2\72U#gG_6drj1%GE)Eg&ml&/%FM2FãU"4x$GJrMXQIMaatswrBPn4fqkGzq;SE/0;0Dmq9kT3(s8>183<0l\>Sb&Hzwcs]fãU"Z,bKdj%v9eiMH(a>24fubHbF-xCU+x.H$dDDZxZ.xtL/i&t?x_PB+E9T)KEFbpBãU"mfT1hTj5jx$:rmxh8#g\JA2hTttK5F>Tg[vmqpon#/6KQgqR7dg-oR.U6mVvm^XãU"N?Rm8gtGAE#X^Yg1SM*a'o/),oKoNxC[OopkxPq0b]#gdqKnsN%<5hvcF#7L>XZãU"P.2TvFbt^I49NL9U-6^P3%=sPf\dAeS+HI(+m*4g[E[*lrTHsN54ASE&**AD>ylãU"$Nzu7Sy$.u-vlCu6XMM=8a0\rYJ.;9Ld9XnCRtJKGZm7N7.$NO.aufqMYWA&dN]ãU"$2X)D_bi%LI(?^4z]$2tr)5m#mS)jZWrtk,CfcJwHYk_-TA^sVsUHaãU"M4tr)?/QeUvmX?u.G67EW%/)*MA&iv%G72YR9[li0PzmIm^yG;;fPWwi==;n45jãU";RTVuj[No;+/%8tD.OI'Aw0[Y?;;Dr9db%,Ahg5(9M8#O:na_T;$2)Wj4rW(>2:ãU"f5;?Os/kT;*21nvUOcC/PN2[HMpkr-r4^LhS(C(eee;iON+;f$JRCPUgWT12)uNãU"v%H4D]MhA#aU\-EvD3pHGgbzN?GWE(1l7uRcXg0D-E9UO<-Q:5_:1lk$jhq38>Ce<[/.(N2uuhS'\D=/Mpvipuv0/ãU"/bQp_3J;[fjB;(Qmm,&YWJc5v=_PZZL32j(>^P3*g['&9[%872'?8_(53ZuH2K*7)4oãU"W]#eULzWI<9sO_p,Xq$Df1^fV<;#?30>,92B-G+6DLZkr?dIcqsS(X()&ie]=x;ãU"s4Vby7qEmoGX2tGKMr]F4eLAFwz%(?m07s^)?\u^g&NIcEFoRsqriIw198'?l4QãU">R.N[NozY3DXhpr*WL^$+(3f?hIYUT[vG7B)&Yr6Jb[bn-c9lAM;$/*eA.Oew'#ãU"i5;)11)Dl9KrLNYWRMrA(QML?\%z*R<0qii$7AVXbIb>zlXerinYei6ãU"kjsQaK7fc>_'7g:c:)rr)qP68XqisFrTfu5n[ãU"kDtfJ=*H'Fjrr*wX&4l47hT'EU.%AC==,m6_UA_ãU"sT386mN,d3-cJ&3Y?r;_U4ra;G'1dXU9\P/jBB*J3W;l[aewepHX8.9wt2uCWDFd(oU_nT-TfXAv8(.fAGãU"E8sQXCEE]u5AP'._t+A$1kaG54CWV50GOhJXWWP5*'4'*'QShok?*4%r4_HuXpeãU"?(RwK.Ic5l;2#YpBI&'WT9lT(K18&PfF=BcRv8*X=h.'e;sNmou*E\7K=hd1Xh,ãU"QfUR6,2h;0Vqj^$oOE]Ejun946-u=iYuY.RZL=p'A=GY]]'4\%k\,mJvNjL5Vf<+p\LAEv:]=61r^H?%Yklw$ãU"Y/tyAS\u1V1s%5NmN;KM#-jJHnXQW17u9p7A\tN,af$E.p5Q#;H]G54sSrf0xQDãU"^BmsqGFF:j90-Jied13?uQ,NE%]T0;Vh]^l?)qCm;a7_6\S(ãU"a(lN8JA0R\#]7crn[F1xM5eMSYn3#v1s((;PQAEj5[9n1]j&MRR6sX0Hj3VnqCpãU"NNtnG9atP8Kf*e\r/[D?dclcOE,JIMl='GBA>cnth\gfzhN3nGLLA2u&JCv,dI(ãU"JbRg0jpAcj#XQ4:IAifr0RLcs$44Fn5X$o'rkkE\Q3bDDE?5OiA+ah(uGak?aq.ãU"a-7:1ptE^Jrn8&1MrN/-y\r6_'4a\WxBf[ãU"DO)U0(CdkSg(QL*kbN$LP'+-dL21ZMDv(O)^6&noKLDGnn6nG*4^j*;*^-4HYI=+C78afHts?s#ZWuD''EãU"m_,7HWq2T#;8+YY+]X&-T'x%up%()9%%'%-%)w[fLL9,ug%()%%'E/%%%/%%%LgãU"A>FA=hS?M0;,%:p]VU+1T4U,Fi*/t'wCDPq4qZX'6x,.owAK+RW1GHRsucue]$pãU"mdd7vuwwdlVr)&nCDaEmMYd;G?6IlfIUNgx:N>'e\^oDq8E%6UI5/Vg?pf77kãU"b=rW*WgsSj6k[KsH21?m#40'6))P_S0OKfKMN%,IPZbcmPBf?1QGl6E_\$:v6DdãU"T6O]IF5]CewG=oj1+Tdm[B>X%no\^qyW%b+hpr[ebWf%?8?b%sGk^V)dMqVD'a_ãU"_QjeKEJ$N_VWONsR7qJdKOK%jb:PhS;f8u2*-2yjZZS_=_Ze6V&ci$%8mvh5G&iãU"E8bAF9aphZg^e^*EHA]Y0qeieYc*<(:Q1?;ãU"70\w3Qn39I[7Cw$SQ,J=euFt;IN^u=hPp$*dJ'b4\:]RNNKGr#fFxNB+R^-.[S-ãU"FK:sGIO*Q)Z3o&Bgu<&PW%1BJ7sZ+BI+(73=cID9].RhH3w^pAt>\ao4=g'/*34ãU"4kK?+#=:tz#PEGO4z)Dw1[chMU2B+C>t;WO\yG]SSJyKHT-s=CKE9wheks_:U]sãU"8#BCN8;3#K1U=-#E5L,FP30;I7C8^KAcdx+U,#X>':3+qf'Fk:KQIz?0+9a%aIbk.ZZ&=al]k8GrãU"G1?gP\?ts+/OjãU"Gt?.,f[ciaWWIb4Xueq%$*L;96H-?9nWhqBxYi1>(4C+5KOh]Hyylf7$;=CoTLpãU"q^7,SQG2/RxYc[gsx%l^Tg^Cn,:Drks_NYyw%'up(%)9%'%%-%BE&'L^*L#/o%7%%7ãU"%d%%1%%%%yM4GCA2>C9Sh10Bf,*fxGsnKx%+6w4ZWgG9WaSq[W*EItEIGWZ/(eJãU"H<3ptTgos+32rg5MtNdn.51zD&\uYcg,m#tUV:i[IzMh(((0K.,d/9T1vl5muKVF6kLq8:l;_Q9,g*aZ#2G>UNO5)fU2V?HTx4$&=lbkDMãU"'4,L/6NgW1>evQiqYN7JZuY1k=Fz$T21TmOTV?86gãU"U*XU'6q*w-;fv0[R0veUM#8.kgdZht-FlD=Ir8iIg4bGsXQg6Vd,>1?6n>r9$ãU"7cHs.A*MFm;8p4C9#%)EiGQrl>7_:pãU"w=)wm>]-C'[MtY$X*$^i5H[4$$:SN68aS?+t2OJNVZaM'*AD713/O*q]p-tS6($ãU"[<5%M.&Gh<,Zw1:SIFPk?lB*T:98C>ex#Ge%X)mnY]l[BRxf;DlXi6Ql2>*GRNxãU"V^dC5p;wN-jG8P7h67^Vk()WC\1C+p%x^8hJF6$WTRW$=sMvZ,#_57:J:QmR4*MãU"4[0#[T<3\+g5^k5Iu.NqoQ[9.?xp6vwa->9Q=i>8n4nfc?;:JB[c?U'Wa;W1ãU"1#Uj_5>9ARmNJK1SLocI?y:8[tRRv$h-=qsXb#tZttI(+L9Faa6=Ui-8DU+IcCoãU"OA'S3X0.b#4tv<%)T+g:+2;n/;A$jAg5(k1\WVOO?:VSwd/O%Ug(^eIWa_3efj]ãU"N5.SEIc&Z6p>aU=20^Sp<,wO'%(5un&nd897aFL9ju&7Q?C,QbD_+s/Ff0/>B%bãU"5)A;8I9'.Qld%eLBB;4]G^D'Ne-y^jEMLuK.sImhfo^Je)CWRW_*n1H=4[%k<+:ãU"Cx%KTM_If]Bve-),ggh&GDfnEq(9LEqK^;B6L#vi>Q())aaqx32.I%9X4O5W_[fãU"a93+;tWpi[tVa6X-?RLA4-#NJNnq'r,G[sS.'+Q0Cp/R6+ox$&cpeP5+<_hDmgHãU"q0=uStj%bcZa6Hih9,]9lcl,]=N#H%%\WK$>VY?3Q$.ooXp3DI3+9vk8UMN3y.zãU"OdJ>\qgs:]vs#-:AH[hwhKQxDj*.UZQ0E1Ns]D)8G0BLYxW>'\*z3=^WYãU"87?9W,/38wARl>uqZdN*LfF3wHBa:/':Ao'BAhFGdX^S)gHR9]KXgVjlaer0Yt9,ef#_R*9sgB7ãU"ElWqELoJ[,'orm[tq+#%wb]r$H3-x^5:ziOR49Dhc(Dt:^jScjYCCielX'#rQ=z1(Ws^gji0(AmQt^4XtCNh;?U*A=RP)mec,>'MJbSl%kfE_%K&/?DZxAk$9kS4ObJIV;R3l$esFp55*d,.N24T(A,v8]vM6K]gEW)X0=JH5okrLN8/i&3EQz)8$ãU"G5ALrYYJ4#E1O);xH%n]q/GHaSo.((lHI_Cv?ãU"4R9H+'Gi,j#1X/CY:,X=:Y=qpQ6P7Cain5$TSjgS\3%+p+A*IhTpv$vmynfY%YTãU"&rcX0[47\eTcWhD8Ecct%Ug;sz$9&s&\8o]==q*j.pH9S;'0-et>LA[zCLl6u3fãU"pfi>Gb#6TFFdzP*kybV5dgF:g7/#Q'D\Fl44%CzJ]F=W&1IhxkhFOqN^'d9NYmwãU"asFImVEs8FiI2l9f5<+m[/ghkrj3m)N1xy+rAz]?:Yb07lp0V5nuo$&F1q\;-sHNTOãU"*?*u;7g#xv19>3mJaK:P$^&OQj-Hb88x7H3hLB)PJcs'[>$qQt9f=#ydb_y);:qãU"x*sB6A6mNb+H&JtiM/t^4Ctj=H\0]baV[Ds?xd9\46.=KhaTQK#n+u-jg+%&phSãU"f4qyTJv$6bdiYIfaEJ3#YiNM[F[x5JlTg^VMrVwg$q-<+N/_d.\+)2hGOBk)R^JãU"Z1)1FR>VMC'?R7VStZf>/fIg.EC2?G3$v4te;&<=0#gAJWUHG+Dbw4^M8Bg6LayãU"eLd1JQSm^OltR_Kdl+]RN3qBLwSYdfhzVQ&PkU)wq]%toj/T[[t3jU9>()=b8OWãU"Oh81D=L,s:f&c(2TsWZd]dT.]?>N(WhzF8nP/nH[]#pq64q3jFTVooc0&&G<^;MãU"Z:q>4i66.qdZfq/ReFkRkiR>]/v'IF*yH7/SkLP#)p]CV2&TWq;2nLh%r6-v(5:ãU"OqN$i1djw[$s=Q'SNxMGiBwQ%2EkH3Y3_VHC[WC2$]0wjvqkq\\#r2(oXscCF(?ãU"p8p1r#&9cj'*CQIB5XbW^i10_&WF-$-5h$ZGV3lhLkj$>*:P#_a5GF7aR>r3DD-yf4kPwy2cPãU"9M?x2iyg:ZSUNnDbSZ;$=\D_WhhLyDR;QXP4nCNBl=EeyOg/YJYame^6$MM^02hãU"nz(M]5+g=m2u[I#V^(v77Oq[>DjQPR\zRKãU"S=/?#O=E;L%u,tmUbk_h'gru8&RZD.7;Y:?XcYZB)avZoTF0.A+wCIW:ktxm(iaãU"3ee3?V5XYl#w:;Obp0#&zc<,vpsb;gfBAh$bul1URSLXBIc5hU2HEIHy:(14RioãU"3_^3R>Pv2m6v:c*>x^>iZ/eDmIDoYoslp;yn$&qAd.S)E.qFxz\$ãU"CN:]H]1?CZVj51PS$YVNMIn<4id4isB&l0vfLK+W'f//33'*tD=<=H70-W98F5rãU"c[HGMB=x>4Q2Aw[ZtVnu0U#%cOTbHg86kNRI*R<5revMDk3^y0G61sS/<)looNiãU"\eG8aLi=EImeD%SSbZu9EbOGR(hD5jW9'ig:z'1.JNLs#p>/kj'0ãU"*1:kR=5TKphrSDNMq[57feUI&3yl_cMVXaGp3vtBdxJF&GMKd3cB5hZvEBz*ZTbmEvbPKA3$WãU"2d'*qoAi82wvDob[6CKcC,DQ0.Onkhcj3)$UK>tuhSX&PL'qCHa'2mTwTN^$F(5OEãU"bH>6l4Jm1?F;ZV.4lD5es=tS,LSp9v\LG-NfyNtWstl1.XY6>>2#Z>\A930;3k$ãU"Z(#fAMHd+az;z*Yzi,cQlm1krm'VV<42K5eeQts4mkV8/oDmy9=mV2:E]2i2^/gãU"J,Iu0h#5\Gh=:PV0'Nh,PDFu:u>)aM=R,-NMda&DQC=3eCBpa4SI(h4ulTVEX1AãU"Eg3R;V'*ãU"-7(Q8Lx?qCn:XN/2M-[>E).yaKr(B[kPDw=95'g\3J1M[m.MWXg(7Q_YaO^,)]#ãU")f:dDWM7d_aOUnr\.Gen&VEq[E0[A_P(0Z&.cQPj0MbS45PRKRn&*r7a/rk,R'2ãU"[WxcVn'.mGQlBK1JYu[CXMTsqTG&+O[\Np._D47ifbH-*bp,(Xt7$pZ*F>Q7Gl\ãU"wBTG*&dXZhZH,RBKN+r[WqL0qimx*j)$EtEDq,n:h)<+BMXIp:%37fWAXTi.,z[ãU"*rfoCr,VP3*Hd3]pH[XTV$ID]omzglgVDn]a'ZSB-/xl^cE=z7TG$wpl?6kgt%kãU"Rg1_2.kV,xdH>AxPSiNAq8oY^x<7z^HzX#wIMd]Vom>?sO;QPd)&G>bnãU"8M[yuB\wdtmN$8e=KNKF7Sb$*6gsbhx=dv%<&jzo%+>]OF/v\?Q8h19F.&Au%1LãU"HO8%']n&Fsl%vg)?)sjht0D=XN.X2V:6slOGk_NtNERajDYLuw+$.XmPG:kX'lPãU"s'NlD2ly+(ON&&&6/9Mh9xMXcGIZsDcfHz%JjyM,BCrSG9EB$b*VLGGTnL:+NUSãU"PIYZCUZWcf,gsAh5NQ22Dwc2l(8QOL=D:?Ie,#Aqaj]8<*wR#r1NnFK7M6sn&&hãU"%yC.kf;G'W82Sa,xjD$9*jR\pFZVvCthB:]E[Yu?ajk]h['L%ãU"aj6NcShF\[RyOiYB\cC3VW1t53YxLt&VDD78pg;NT7y7\hE*t<^(Fni2v$-+_$\ãU"EQ+ZGo',f0sZbv,:DyD?t7Xq%fxzdKIFX_J<4^AG3^8FTPZ2SbZ(>^wDWBRdfNzãU"vwdsrdj2m:?NpucMj]q,deBN]Mlv+:X>%tBLGl'EyN6C7,i-TlãU":Vh2D0+Y;ze&J9CN.1Hr[<'7un\XURu'bslv3GFc6.htmb3l&+cqB=0-,N0Tp5.ãU"jK'll-f0Tf3(fyJ1ERlI=rAeUnln,T9e+f%YrkhdUKnv(rYa(N5;v9Jlo>&tT&2R_-(gu%Tup(%)9%'#%-%:$6%L*2vxF:#5%%8%S%%1%%%%y24GCw)>ãU"CnSh10B&1?:BGc2jX'WkNaDTO&Ggu^*?GBV^zO+V_3(F*\AsCwx?R1UbT>7WX%FãU"98cVRn8k[*opm/O9EmvykzN9.r_pnQ]b^u8uwtrRphzR&C4*UIt89,tdj]pd+lVãU"r102l>N)KFJcW_<%=QYGMyD^i(FJXml=n:DZ*LcAUL>vg-E:\i3pF&n6[j_6E0gãU"zO0v_PiM8$N=2p#MlG=VV1#k=2I\pl(bCs1b7WMS=+D/C8-g=2G(O[]wZSpu1MvãU"Q&zTb\E+g53$)X,W8%EpVm7si(*2(Sj2GHwlT.wS%LcfmReh]/l(]G>+'*#0^c3ãU"XVA\3I4[fF.Ugoe(]i[Z9G+X.GHicvW-$87]%tpkl800YC9\)_D;'KUUCF:5Hx6ãU"BYj52KHAvYiT&4A0vG/?,;u=ooYWquRQ#>=j=$ZIuQ:Cv6[r>q\u=R6o0j5Ur:zãU"podKgS1ac50iVTgJB=;qR=4;g&&V#O5uR0VvQ'(5.yk/GkOA;zrS/)*j]QkICxaãU"=M*Z6hWA.B(''NK2h->a&bw?qmT$HmE-jVJ,-f.l#Y1X2sWGDmDK6sDBvnUIf#oãU"O%M3gFalhs\(2I1>R&RVHbUJ8Sfs&kO$QH>/)AX20Sx^lU*2^W2MHQ6Vt+J,x4LãU"?mD)Z?BQ_hJQ/9jK-*lMd]e9vBubrFJg'AQryO8D=5Sf>/ug[KG8lW+-4p*iv$^ãU"pF3OG:AE:+rV4.?_0Q<\]5UHeV($jf&mT/E8(uxL5knFT&mS/m\\BcLWls7X1=+ãU"W[c(JYm0OVWUo=^E*,I,eiWKXO:oZHb4#KZiJsw-i8qI0Y(ASDE$Ke54&bg%cV<=9vx21>/&ãU"M*_Qqk7x&22Nj%wKLab_pp=rc25'Q3^w2-BwIr.7RsãU"?-iuE0/ba(0cF66\$^i;p$1_MMYF:+N\B*OZ>,ZDuJ0UI$[92d/&5mu^iG)^iAaãU"jkJe&:[]KV?q8Jib:sUKUH=Hm^WFhZG^v1FD+GP6_AJ&M+N+Ffk-y]9d>dQu%V0JTHNF.iG354eH'ãU"/n]:av==?v]$KJh\8HUgd1c])3Z+BZUYTd9WL8no1\/swEaobY_*1X0Hg9sB3onãU"=iBsnqrRe/m(>6>I\Uf;f6^T[O[L9K0u0R*s)-M_9R9-A6xG-8%T7Tq(;6kJiVYãU"'VtV?5WjY=9GKm2kF++3G>Y$WgD:K<'6s7a+F:g8P'gEaDs^IPFKRhj9HTAo2r=ãU"zZrYf_)cNcf2qYbV#<)WdAg8P,=R(3VFH.nuU4j_Mi);Iddfd4_enqVex*K:;6oãU"j'QLX_6s?.gpPN?GHcD,$c'u)7ew[,'K4Tjs^(178*b+&,)qAf+xmWUQTE:=e#tãU"O$\]0(IpbkJ&k_wa%M(F[)WV%LPe5BwBY3cWmO0bHR*IC?FAin+(^[*^q%ãU"<8j0AoJl[:\bkQk6S+h*;[7c5ZdQFkZB+djI9.lSE$K&G>PC=-Oaf;if\6]\XMvãU"PR*V8'1v&XUUc]I.=NbãU"0s8D)faa?_&$>xN\z8O6eBAFmow6K:y(9Cy?Lc=c+:#?$VG06R[(BCZBj&eXoC&ãU"4/]HacV+#o1'5iMZ]0bD>SU6Rl^>SL_?9E)nxfTX\s^e*:&?D:,221=Ex6.^tUMãU"r8frwzo,vL%hx#6D;pXfaiCF]Xlkr0J?CZq?=:2N,3-tãU"OW(;hq&UE=T-:.oUcz$\5IWuPX0*/S=[?gRiZ\djT0\U_c?X7>_gKzKcuonG^]4ãU"J-_ymZnE5bo3;kO4qA,'sn[-ZO(ow\eBR](Le-kg5VF0FeKKSH=N;Fc]ãU";2FUns-0tO-0S_A;E.m/\[e8Kul\7..Qbe,ik1#*OQz.M%4'$gHElX8ttxãU"4e3f8\m%a:1V[MyKO]%00qDe-*mFDupaS-47O(rb1;EM\,(ãU":Vg$\qotGBVgP&z-%?jcIqCmZ:phDpdR>YartOZJW*o#K,<6J.D]'%xWQpN,=IUãU"r)GUx8&hIlzT8_)iJ6-J)XOELpnd/$ayhQ^UT'c^ZGm85C_+f:KaejUDc^_,y+6ãU"#,FDueW=HMoA;J8d\Y&=PZkS<#w/;.IjMZ//-iD>DO):LU1N']<509MNxtCJqMeãU"Qe#COJDo[Gpft8p&UfUM^Hf/VyIgeVT/FQBZsoK6E_bD\-/j0cuubXZ*jz5WXX.\DOJE>7#sVMxPozrc#9'lHcx*qbiPãU"al]%lcMb)-rQT,Ayqfd5_Cjos[Al^_:R['*D)v;ESQsxZQYvQ[c+JDn#1,4ZRWqãU"jNz1-hRq<&HZ)B)3an4hp[pZs'8R#:S/g/yQa7:lq;2Lf:.Qd_kS/$N9I&FY\ZrãU"0;bwsGHYyPIhD*CZQF/e&$U2<_<%y/EYTE,_$iy<])'+LQcBq4^0oRFuHhMlUo8ãU"vl_I-N6r8bH=^A&/j_9W,TAJ?l62\qtRaU>J<6^ãU".OMxm_-xEp/*/f(K(Md\4Mu8c+hD]Q+lqpmtãU"=*vB]Sjc]3M_'?Xb?oS2AFw]5dN_vEB=x&J0&2u3ci*#jviJ8+-+&V5yXxY.90_ãU"9jPb4#a,Twzm:7(Bm6C_2Jf4ZUOX'qdH28S,JK0.KyZ?Z4UqB?o_h_UXWKuupC5ãU"3x_YI^5aW*RF1cQV>nSG)Ja&'iAVL9N]'1]HiSs8+\bIkWZv#7-_ãU"_Bawd*\yYZV5r$,OBN%e.KXiQi'Wx#s&Jg7<3#Cjh,$$r4$RJ71G4hr'E6M^YrnãU"LW=#/%,:0lF6B]f;FWqjg#(j6547cEA>F_b9J,_8RH:,QR4g=fBD+S2dSUB,&YXgsD'vGQG6K/HPO'ãU"C::z-Z#Z6H>.bwN?;lqL(m>OI8iYsbehMFF9cI*j2diH7.U50-#_euqnC7'7Kb%ãU"H\C=8d0h>5N1hs'bLr4A^t??^Cc(d?cdF[NT2_&Bp8SN'5CãU"hn6pjd^(&x/=94KJ:i,4963,p_N7lW=dknTn2;o*lU0+SsU.5A$uKI^TWzQf&/S9;d#CN'Ss(c-Ji)6vhvmHc0MZ2XãU":ckDY0%O1HAwOF55$\3fQ\]6Adk>R(Y2V]C\t01(UyG9r$M76%\05+k)e%gQPdb+l$[/54LãU"ydEMo^-,[aTFUWKa(X&[9jMPfaXaCdrrnD($INUaJXWiKjI0mU;JK'K:zc0*40yãU"w\WmC-C$COvGRRJug%nPd/V_sG3jYeWY[C7fhv:_gJLUBBwSo:ãU"G^Ke/h$3[xaC+pWLMxoHtN_S,&#wEx0=$gFFtv4HE2qQYGnGoR++p6R)5,_1]CPdt[IizO6j\?lZrWwO]6-MQFhqãU"_A,lQ$M;g:c&mcED-V4>nhk8$c>UtZE#$*l?WzC.**jSQNk*=JlXTJQc.$FGI+fãU"6B&eZK;9qt;q9O%:4:$ltf5vB9mf%z>9vZ5BN^7[67J6O9&9uT%up()%9%'%m-%ãU"T,/'L)14TM-7.%%Ve%%%1%#%%y4MGCA>DC:S1V0Bf*;Ymx97YiIMJYg=LãU"6,#hba]A5X'dTCtintAJ$aMi0*Yg1Xt8W(I?=s]i#E7YmQAPVxiJJtAiLEPz/76ãU"lWm5)DOfsMNgV505Oe#n-58rd)m(aEM0ZjYgkTh-rgAi)kY,;3lJoeqFnhh7hãU"9(cduK;SmDD?ICqhI]%y[,4e&u:9r2mbphJeG&Qjy;TlU1n$Ch=3_ZWiE/e^FhfãU"b4nNMP_'*,2jAQ8oS,^9/N5=6$;SU7WHZtJ0'4psmIqH+]nlTmCsC9r?OHq)Kw4ãU"W4;'W;cpJUmQ_*_0&WXQW)JrekUoX_Bob(nJDo)pJV98bNZp;9nmndWX&.&Abe4pTQY61'JuãU"cm;.U]wV7=8Lud)cJLg5joF5q7+56.ksN/G?Kn+;qlMqI[vWgR[BaGjA+QHR2vgãU"h;$RNs3GMC56Za/,xmW8HfJ.$;h$n4GaADl3;*'I,6Lla+:\*MgZg]+GC5I?I[ZãU"n=JD&*AomQR3iU3i/vEbRFj5LI>YZbj=UGgPshQqtRp7>io>8Px(7_:yJ-':$T.ãU"tVpe+')Z^?UAk'=A6J/UGK'Cmv1^JGKInB>&ci,n>Fc?G,+gFYRN%bSL:%R*zsEãU"VwROt0a\iecrLz&CwxQ8i=FF3JOxmG<wYA#ea?awY.WUQex6+9ivBAM#o8ãU".j_uhg=:?^&G/Misf0L%e&3Ll_?FaCU,6%%]2'3Hhr+k(%0'_u7eRC/:jT2U=NlãU"92Jj*,q[fZ%+B8Gz7LP]&eoB[kNDJ#Afo(7LGK10Oq%mfEMF:NE:p_8m6cc=g0EãU",\Nw$1gIA1W]eQc:8IRKhqVM'zQ>KRzzrrEyTHuRãU"M7qCo;L]Fp2l##FDgxTG)BWF,pu5KhqC<51:'B7eIFNfK1JnM3HIkERvp0JRX[DãU";:(J'EkhRujSb#jB?8dZocNerX(ElP2Q9pK1CQ/Im59;YF.$;J%5I.:r9_#:-:HãU"DjB*8EemaF?lOv+a]+'fuDUL=E(GTdxEfL4GRFp.QqL%qZ[tGr[:X&Ox'V)5[I:ãU"V\6^EKne:3A^_dtCo9,veH.7su7.R6X&SoH?(t.xoX,Y/CE,b>;D96&o>F?Q?S%6,ZO/9ãU"qm*OFY2/+t$[_XJ4F4KQm(a]M1G((/cP&fXxPC8z_U%Z<-B7.^IM/tzA(1#h9dHãU">iC8;+=T*#yy(0pid1qPuhORt0J;C]9(4tPMq6d?Y(r%Bk,$J3hcJZNW,tbn-:OA[;APoPymOw^9)Q>J'jZ5nf+s]]ãU"&0Ld><5)93h=>xW/[sUB]ãU":R[^wS&qR7'_7,?3PK9&\A]_dz2SvPkX,RLt7Foj0r*h[fkK:Kma#fkV+6n?sZ*ãU"NrtjVI991(kbD/KQxF454:^_s%;AQofE(S;T/TO;s1=\O8FdgTJ18/9H-5'[MfAãU"<:b&hQVFpmF8cbp/1d(T%6IiwrbKC_ezaaFUs#9n)eAv1U?)f=-6_Yi+:>&%t\0ãU"V/MHAWvqGJNc6r.e>WsPNllEc&-rs3^ciDS&'08I_ZDIj(_Unjw'r9.M10aCInuH_Y8Uf/[hJ\:j?7hMA0cC4?8X8Lwh.,c1t%I923aãU";$$M/Hv,?),rwvg+ypu-#;xzdQ7AP'Pr7/&n8\g.G34wTN2+LM.fLuoEB2*2zy/ãU"O8eMk%l^mmtLbU\L$'5vl2-G/\V.:LuS&sm%/][&8n(?FN-CUhJ$H/2(Upy4l2RN=#0=U,nf[BaFnh?i63%\fr1EOKI'fI):q;OVHn,mOMZ=ãU"TMCn:NbA=,dwH6#n_%$n8AkKKEDr)(%uTBs,%sEbmW$*B2,J6lgmg[eA49HHEbvãU"52A^\e9$v&Vbc.5bWccd5Q%m.Z/W/%T=sFB-:,:DLfZT5p-Mt%**Nn4zBva4_5:ãU"L5kfU9Fv/6VRv^-37I=9'5G\ld>gCPq+^HIEalILt8924JTX&p,zsJsBVlJ#V:\ãU"1NYNpP?J15R/n&YBmm.M$?0U'#^QW*gF[srrlRwUiN+NIkn4ihF4cX$wEGB9ãU"Ow[HCKo]6jeu42Z<7/N;pKbmCMDdjk4Uch'\^ZW)kH=nHãU"YN'rmx6NA03?BNl6ObIf2-l^HtBh?W+Z&6)[+uRzY41VgaGu_\?k1i>3K8Y/>=D=Zf(*I0cS:sZ5:6BSp)^RWXQ&Y\bdvnuGI$yBiãU"W5))g5]=K?jMFpdXbo\Y+4CfYXKNx$k=Lz%HgJzFS*0qh5x7x#287A&5b]k7]$&r\#_cfdzBs3J^m)YD*j-ãU"-8+a/vUa]%E0Dk59tm.Jg=\k[MV%$[gpmL-U(q-#8W)J#Ha(>#V6uUbC)AM6)0yJTs\#nOuf#I8uV\#f+iFãU"-Hle]dUy53rVgV,:uTjw[#*/D:mbePS%7mi^CggSJGNãU"A>j59UK75)(_md3m\kOX_Q7u9g7ARY97DYv\c1Km8rrtJ32)Ci==%QtP%Mr(E*]ãU"Sq(Gb:Xz^m#5yvX0aTqwI75uMludhv(OU>D,3:+^^U:FuNDV44)PIw#<[ãU"IIIINEEcRlFX7uI.:_tn+t,.;nSJ_()QS^y+^*n_y-igo%TjJNwQHR>?J4^CsW+HVLdtKaqVL2ae1p+-fxu3gãU"X#d()5d7ea+2oAãU"'b2Ap.K(?m^%VN9RnCYS#%swO9La9N:&k_#h5E*%is1.eTi,s1>v8SV_*m^r>PGãU"Uwj#iNFaM3^j.ToãU"U-(v3*\D4fETJ2lBnc2Pp6vjt*=LwLIgZjRUuhOhh*,ve9>b\,l0_\T03.uPM[fãU"a-S&shP^vSRqX6lpPq9Nr^.FDHi=f)89wO9o&dSKxX=HnFdqxd7Wk\G[GNe7[AbãU"#B>k.gZc=.^5,T#L_1W,4GV=VpM#4y;1EB6Rt*$dK2VM:m*&6JuuKoXy/CpOjdfãU"+E*dwV\;l-N%HsLjalU-GTC?Ko'vVZ7ukEqs;RG.qZhOO8[rAvo+hir6C6&ba&Z]u7.S#Fxu*oF8YJ6nqU/>\c0'ãU"qw.D4jORbB]T&a&HqG%gKp)Gm&hOJgVq:M:$7/a,Q'4Z5?N+.i1^teF,.u'0LO8ãU"Kul>MDc_z.[Sbvp]LLX,FmNDVx2DPE[4bJBQ:l=.B.cioJa<^'.)53)bIC^hBuLãU"X8=mEVoB/syn)KH],d9Y+k.i0&DEvo&:Ga,T*:v=Vp\uMLtnH2Z_>F3KzD+cA7yãU"A45B_+lB8mA(eh?K$#UrYY^c_.=uVuvu\52?<*-'M,3X3QoaDo1kq+NuF.xj;$vãU"uY:$$.Kf>Z(o$+$_RFkn3$O/J[N9+zxCjWNzWUMDA24LSCGCNF)x,[]XãU"BRC.H6.IR^b8btMoQiM]9218vlsj,]P]Fj#(Bo1XFw9sc40UA^;8K;4huAi]7H8ãU"V*)TTHc4O]3odc_10wnq;ZMPons4Cqc9/JpPrWR1o&hRSmcbNbLctx3bbvãU"t3g;,SY[s?u*_7QdYK8Gki;N)fVCM(yqD8dNk)RtK2H]^kXRO3'F>5vs4OT;p6tãU"J;qmv^.C9yk4N5(*Wjtze,C%UCxF0lP6>Y4*U3^[Cjn;'pvqW(ãU"G\1VDd(zhjgbYP(u4#hY:[n/^y^J2Z.VJK^p2m32.19YJsyEv*DcãU";.d6X;GYxMKsDL;:j)'d?8beq[L3^m3$D*%S0Vl/v'qJA&B+-%F?:tbTW)*0l_?ãU"#d%zuR<%[#\c?W2i:fRA7NtnDwrDMrcA4\Qp058$D\m&YZ7V1h^hRviX7K.kP[oãU",JVG'r,UpnO=Zf^3lSd,tTnS>R;==xCn^bee'ZYOZCS*:'j1OwU4T.Un+Wkg,$vãU"4p.T0ZM(Jkz;KS7yWXH]i=)CmpWwCMRpd\M>:Rm&;:h-2&PZ>sGD+WhS<_3]O=h=:86ZjE>:n7M-+\?,D_46dd]NOXg:q$6ãU"pK,fwv[Fe0,tZN;tUyd7V4K/9]WwMWrOmW1K%oOB1sLXHR>XYu31#B95Op:%V5XãU"3U8fE/Gd?O_%)nai1iI6H/*+ãU"[LlsSTo;h8LSEWiUZJ4VEg%;_rb70Di%_#2LN%dO&w'W>Wnyqi-KY1X?126(CCb8662pwf=W:0B;07Ql?^>7/C0AI6,g5In1YKc1E4UH7*05vfãU",rrcvlHX-Lcc*-B8N>r4FG[/$HU8/p*U$z9d'jJTM%aG.H-E]8nxY8M,hYYgkgkuHPgP>=mHãU"FHBATe(A,,7us*luEgBhID?1CTWXL-_v(,D_GNb*%=]p.9-ERY[AGBAIo>K0kfsãU"&,ISFFh3%Q*Z^]z,$g*B9&X'/Fs+i7IU[VL8DET0AD*b?R_'J)a=$mt;/?6srxlãU"0W190,a7,7J1;-;z5)S#<9?E=M+':8=[cEY0ãU"-Ymqd1/5#^IG5CzM*e'nPeGcvIu(q(yãU"WT7u8mO+XPL::xqgaO=i$k?GOjPL^9?P.VTI\/epHB^i83]b5PER$ammF.$]rf^ãU"vLQdRp'KgLbJYaIuM[kG1q^+.vXJocdY)FEHHWgnSv$VnR3'L%?Yc18i13kN.+yJd949uHr+BZ'UvH;6C&ãU"e5BRR'AD$wxcl&w6S]7arT<\3M?hCMi/+lBjXq7Q;agI4^qf>U7ekdv/QV^Urd.ãU"Xk_z,GW3aMpFWjbdH(AA%9j,[2KsOS5HBm0K5#25=:P-re[(2Jj\c]LXM%3)jIhãU"KjC*-$cMYX+#/%U6gCoI'*/Dn=9Vh:=Unh/VNg3BOh>hicPJ]KqfArlI4kMz+LvãU"Xgqu3&$'>aK^f\t0w/_&j_(r+<7p.NW)ppv>_=LqO2GJJ_h[)uVWILjy>WTaLwMãU"+Tva1JX.[LBIb2h&s6q:b&fIHFd/Eyp'$[&_5:olt_t(8&FI2k&Vu?rRaUu9IMFãU"MiB)=3bW:8*s=i7m8UTaZ8E:SvRe5yWTN'7qG-Z]^\,z%Map:vqKF/g+yF/LTf1ãU"-s1f9No.XbuaI%m#x&&9]M0&S:JG$hGm]SI6AKjebTuKceaW1*P4TyArw,;41rtãU"n6T=n.o4Y^[ZI]O%C]d-tQ-hH-QV68rgXLd;p,X#=HfTF*Ah#SrlZrvZfr^djlHãU"Mz$jVNu_cC6VY1%t^UG98a:YTdnR&SFYt=o2In8$kaFV<+nwgFftU6Fa7*)h/R_ãEND SUBãSUB V3ãU"p?hdMhbTyC=.<9Lpi(un:Z9#lAIYrh'X4J*KO,#3o8zLhJ$9WF.1zky70aKL*^yãU"5:/RdQ-1rneS?7j3]Q4DxHtahH;S(xS;k,6Ij94,3IgGXw:NBPMHX-7Jx>0wk5ZãU"_=1;m4=C8O*7;yaNb5]lpom/ãU"iPFS\sJp/OEL6XW^-+dYhIT;DxL>(j%k#[H/?Pt5;2GiZZ:QRpãU"L^]X2&[.R>UO<2+hViJF\Py;sLh4,WQmdFN8N#0qEVU_,etWnE\ZUTJRD_Cx^JPãU"fSpJHN,KIVmF]^QbH%>bphUAXsvn3h'u)wpm85w$('&EmUpO2N]-#+Zj89C^_COãU"tuQwBdpi]:pHAatO[K_0YY,Bad(9cc(?BLqTIxs6TUãU"c7j,bDQ3$_?lR<<6B/_3WBX4Gj6,:s#duvNJE,Kv&5gk6TMWB70i^*p/c/4cAonãU"U';0>Ur9mKcLa[q08L4lWeLX,-'U5rF:&dETuM(Ou^Q1bQVpLWbYo,c]7At<^IJãU"_WGCFp-I7hNh8xF=F$aoT)7a#XukF+M+#L_XEj-u/+jkQ7sM\]m+cp,wkV\G'lTãU"YK9G.iFo>.$nEsm\Pc2jEq0Hf*^]o6\bãU"l(83QOweY;W\/y):+%/LBE0md5>brlh6C[gsji_QFREh]sch)lN/f$r%sP_^eL<ãU"d?UyZwu\]Vb*-_h*6o>6T31=4uH$\3Z=>EnM$y_-wTMAVuT$DFEiãU"6R.GZjr6albKc&GEO]?7,^CGM2nr,K3#V)6wI&_ou]9)3#>zK4TRi2qUsBZR79Zen>c\NãU"Fm]iIpZGJ$#f^b:?3_&#p/AK.^X[6q=0H4(_Pf5'pp(3f4uveclxOeA8P4$$Z:dãU"#<30n[sP5PRf?f3[w_iHLicd:mSO8k0K5A(1U4=.)ArgB>K'$$Ju8f,yIZuD%AUhi]:[A_/ln0hp,]-3>yQEomxUfd8nJ]Z#,ãU"'aAe&T;ap\XMn%xa;>lR^jc(v5A+vsohMfogsQ79;B*XCnLHãU"Gm^TvVVZU,#m[<=#_KcZZW^W\sLnfSbf?71^'.'pA.C*_kLmjb7PJs8AJF4>m2lãU"Y)+N?%E9SIBEr##+7nHLr;dCwv-QE#vTpqF>W%6GL;_lRãU"lS(8aS,%=kCce+Yv.dxT9zvl<:u]d+uaTC)T=gYq$K3KoToOD9*^,,;-?<]JqjKr,8dp2cURaM[TzNqãU"l.joMhk%ULs4id;PEV;PRX\Pg<+?Po8W]nU,NxAZIAB]f/W>k;;=rZFmfvLqZMaãU"4;.2#mL=L/R+'&3aZfL,^.YOEjhin$w\_LryTHA.\S/,sDzdMB/O:QUNu4pm*X3ãU"A,XBY,AN9D\A>]X;W\9s^aNf'#0$BF$-]kTFl0U<_'drrx>u2Je4P]uc8.%+ãU"rINVyaju,/.S-]8up%()ãU"9%%'%-%+Y)yLJl]Iw%B1%%'-Q%%%1%%%.yj'y%wtym%SgfxNf),.4;mY3w2W0JR9/E?R;F1hS/+]pDR9j9&'L&tAI]%XcgMEIO,eN-CmS.#XpzBwO/lSxUMomR]xa91SU0KibFãU"\$+5cRjw<$29\r:46iRm0AjDl/?\Qq5QbW-]W4\TE/bARcde*0]m,g'WAmiPC#MãU"^&,lS7TZ72_n7u%OA3a#-o*.4PX$HD?CabodC$+'X(3/y(]OTkXfZplmnuOM&a2dTPh;jA3M)*),Li22VãU"g4'5JrdnslPp4d<9.h$L^ZAf7msVtrL93S)RekYAbi&QimfFH[JTK5KIZUUd:N+ãU"m(PJ8'Lm:i21Zk4]0nH7Wu\^K+[WKt/5U&:q0VD>?$N9Z0M..;FAT^VãU"F1KBh>jG)vGqSO>?<0zwBbuk90ExMB>7)T1m9UYF7FgCkYRPqX_uoPn6)(G-)=;ãU"'xM/Qi(jI_:F%d)o[K3)Y3KKt=xa<:(QXs&x;UVAq.c.[lwUf>NG2RJ^W#<6i?LN5P_MãU"JQ6P22J0*n5g3:a9_dAd2-TW:ji:&[Tvt(10BF.m1>Y0Bbg<98GlxQ>%'v3/(oLãU",;MUS^G5TtgmaX;-e1(57dd*J2a1uLU-0Afl/ax$=ovv(xeK+t'1DPGgtW^&]:EãU"lsi\T'C$PE=o=;JC112L%JJ0NGutEuT-(2Lx-lrv6^5+60P\hAeGs]qOwgU(Jk(ãU"(ip35/CBZeL.YZtBMtVlE'I(7l8:\%5QNRH.?'Xb0f\4AD=1WelI$sxX2+Lw*]LãU"h[*=puK%c*n+=LgK0j]4GEjoQC]#[gxG4v9?:^LU3;D*6_D#N'8[MVLw$\ãU"]_.b:4wCN#1]tp9F^>v)^*yu9LVNB>A&Y%A3NGXNheTGTw7$vbhrpx'JpMS,_[CãU"N9%zYJmJvsi9a>m;0Klic;xc/XTUE<+pXgnQMEe:3hh<12Pmt0cbtgF.*(xXg[DãU"C73F[K^i:s209JUXaCV>FQ8u.suIOA-),nwBZ7Noeghp[/;&Oho3/pdykYkyV8vãU"PO4HTuMm50HTdH*rZ1It-Q6ci];'u%Y--4\*:gs.Z_QT<95j''koK1#W#y#t74cãU"aygRZHh%Lj9F%39LAJ&j?7L0+0NA$l'5=A'^XPWb[RQ'?6WCB/RgSaNL5=qoOM)ãU"y3c:Huc2ZOeqD0ZN'E&qim>v=(6?rW'jWH%telGV5(JR0wn5kãU"ATW53uoVMqEK+M4coN1jD_5-KARZ),N%Fn-OADWGR'_hk_9ZRuievf]MaoCycWkãU"53j7])0?QVjSjHiMnBA6,S>wiSJsV-X5D4I4ãU"^rmF%wc;GMBfH(HBH^&sR8NO93rcb^fpd4+GzMãU"]^I^^_kT%Drw[)x-'iP5#PCA>p5%s%ZEhYJk)ESd\)\&'BjM3prz'KN['Ln,whXX_OZr-SHjP#65tS31z'Gdq9(zRDB''cU:Nj1z17u;YJ)/wudgSZj)i\t6ãU"RA8:#1g?aJI]FQb,SYQp\?k)s+mA>PKD086#QHR1SSl5eYneC9$:FHVp3YPQCE=ãU"0LVSZVvj*fbJiq#e*)oPWb9GuaM>&W%t&/=fqj.asmuE^pfGTj(Z?X,RtRk_ãU"6yIhhn4HM'\gvchr=+iVF$5S>9WuPuvWeV;5C^t?y(tqtIGnUãU"ze(OGGIIUB&Q7Fn(6^OZduRT5KLds?GMUK&Lw#YdY9euNi2++JMrq_I,=S1^C#NI7i=lMbD(*ãU"LAWHA+S\+fUB^O#O\wEsk[DFKWS%ihKEEi$ek?N0_s99=V*N>?/+iigVBn?nBSD&0u56r(1bãU"CU'fr0Ms$3Oy5$hi&'AmJePO3rSHgE0VFQBd>FGejYrD%>-#UO*X$7k.#7Al?+hãU"AmbK(GfXx+13\i1=$JvJP]jQ,yL3:TNjuR[(_x6uwoWãU"eZBdj#2i;kFRX9Z.0oed>&wKzGn=LNp&<[lGL/0r5J&.jL=p(Hu[7$p)Z0Q.X04ãU"W=FT(M$dq4;vh8IUdhZf3Mz9bmHtk2hFo';XcUsbiCn;6e0^qM1eZ3hLDqHC2=WãU"3q*2GZHBl)7&5$E4<8)ktF.4c%aZ5%9c\'b?C>X.#mãU"la,_7-c7D8qIR-i1s?Uw4)BE=O.MU]N9tA$DVt9/SVkeeHO5\*m:Bplhy1&q.fQãU"GxBVP5;9z/>\^Lqu==WY+&jlaAu/p>iGv3Z'V_v:9uxsfisPap\21+1MBFXiSlyãU"dBvZ]NV&dQ_W(e*Db-&gFc$ThHqEF=IlãU"SA0MFgc,$EF8.nESU8Sf?I(egL&#j*&#[evv*.3]rw6d%C^ãU"A^zc*g::z.YnL,%=RGS_G^&zzDOY1ho\DX2tW/hlEf3J6NVDN6?h,pcitk\K]t)ãU"jb.=foUeSG_(](T):9myCXh&x;eTe3JlzE9rx/L*Zv8UgW08VTglv3;BãU"2XZãU">fdF0?(fWP?hl0C-Hdb)IrcWZ_r+&vsDu_?lkkUCH>j0T94-uuM/bA#bQj,V6JnãU".ctHcaj37?IAq,E(LrZAQ(3k8'U+(QmG-mpQJrt9DCIlSg,LUh,TTZ$.2N_8DfBj=/S6,SR5ãU"=X\xu>t>'56$fA^fZGgW&dBT=ultEaeJU).WB=6=UnpclxYZ97cj)&GOlOL4,p^ãU"XQgW]Rb*[75fEK0-p>Nmvd#)*DYTpf[Ns]nnb#0LSlsc5$FWT&42ãU".zqS+0JE%K:2p,uj=:?_Ava/e&SH9t9]QF>D_f?m[=GP1PEv4LsMT##c#P9FQ#AK]+13]Lm\m4aG%ãU"Ef/w-D#z-QFPV1U5(]TQ'^M/lq(NrlqKfr%hUnGqsOPHWp6WJ&m*;jRwa?K_^R.ãU"):7f$]#k26.?1eeY+=;>-mN6tZ7D7aH4t)')WGo+nmfgv5m4aB^u6Dlj\T^kA?uãU"TLRV+S:sK\whWiqS6)a&H'5D^Qjrm1+[m8]8ãU"#C,s4[5Q?YdH9LoQtKK7kD6E(9fz2VY1q;nrS<(h4=M)+Lg6Zt+1%d%-x:XM6WPãU"aN((#u8R=;swu0#T\YKnq(eJl^VHNL6h%DfE-gxy/vRdC1]W>1+go7ef),X4;L6ãU"qlSFE,>];QVW-f6P\E^fVSFh.RfD50ADeGhOXNC3,(;3K>t:;VL?rvf<iBB.ãU"A)pAbOVR]qTaDdtevJeum'K&t5oQlk6p./EZ;#HwF#UI4h>A,tbrhEãU"Qf)OFu0?i14sg.a^\?Y%t#Zd06>4K''I,%?UEoET0nYdUg_jAξ5TYTJw8S&B8o8ãU"bqrr/DNr7q)?;Wu0hD/RAI,GK$&KNpd6fDbM]/*NhXW.Q6A.%lE:NH]w?tV%rNWãU".j?dmnj[lEn^p/&:#b#eV/%W<=uj9)c/gl(M,=fzlf_ZL8pRtQiw$emH]i%t1qxãU"cMXZCI/Q6Go&FP-?hpc:r.S2p0=8ku%)dFykf]/$b'?o_sNsP'QeE/V\mieeK*%ãU"Kw9=#88)tx=Ok$g=dkD3mN#;3UãU"6quLoL6LTfCRSEk:C'T/lr:wPbe\(q-_igMLGOImB)08kq_33yJ'w$l\XBq_Z3kãU"?[$pQ9gva\/lNH0gWebH]>%ec+pf?3V?G/t<#bJd)_0HE$,Uk*kyR#$>4M*'xc,%(dZ0ewAXg7NasZml6.#4k$H,4%R;$a>HL;lJãU":m,*)p&DlltipRB#kjrW/7I&1_UKBisZ.F4&>]EBqdTA'.TkeDy/$>5prJw2d_%ãU";^rFp,:kX6?R48j40bi8H2Xny.dwiaGEh6IJI)1v&4*COR7AbVMSVBUyd5n?fZ)ãU"-+*P4Nem.45\*cst9U)-Zjt,*-;b5Gewqk)6q:RH_r41s8w2pCZ-gVhm/F33(glãU"[Gqt/iQ7^2nZ+Z^hpVV\'=QU/5ID<)mAZNm?\e.S9r\tn*;&^jj1>hqh#0dHgUVãU"1=2#$kjZ,]Q576;A1-c4[,?uV48>w.6HU4]&?Y'PE?yu*?8nffOVDLX\fRE2sDXãU"%8U63e^#kZd9t(J)qe?[^*hJ3[a:JFQQkfUqui=eu9uQ,^4$07u?Za[nNL5=;&-ãU"V^NpUDMQ4Vd^CZtru6(1?ji#Vd+*pvJnQk](nmC]JC-))r(bh$4.Dqcg=%W-SI?ãU")2qNHgXNKR<5hL\bMV]OC7caqt9ASO'OpLp&OG=*V4k2#9+w5A-%#2;[XXa:F?,kGscF4$$&I/98UzX9&1C-^k\V^UtDUKN)Hd3p+/(uãU"7lo-NXhUPev&B/f'C7MB#i*7PQn0$^N40#$Gjz8M8,Lp#v:z'g_3(dHNO:A>Y#aãU"-u%uoSLr?CPs2UVWm?hbpE(,[N,7%oD&u3Yi%i=xP]$yr%r(.w>)gcujh'%H^6;ãU"L&s-Orf9b^K6wE'V4xP2=:NEr/FnN[tbvJ%:*R[9fFs1U23yt)^qClkc#nbb%+6ãU"IWIr96ue2<]8P*6(FwD=tYY\(jcfA35+'f4V]TYLuuES[Nup#96.G/-q^[B&+M(ãU"=a?1%3e,zI)?9+LMtZTnl]/CAS4':v9fhcnn7WP40D/m^+-:S;9O->+^J)db/1IãU"&?L_]W=$/1m#sIvvEW7yOLi53H'W5poaxgLtJGqrjQ,,0Y,mãU"3YuVlRoz-&,;QmB:b((/^A5Mngadhhh0..k,WIC/tF4ucc3J2:Fhf\V%Xq+=>h-ãU"BC:X'Cy:kO]G*[ekF=hLSA0F%up&'%9ãU"%9%%'%-%)w[fLL9,ug%()%%'E/%%%/%%%%%%%%%&%E%3/PM0#%%gA2>F=hLS?0;ãU"%up&'%9%9%%'%-%4B&'L5^L#/%o7%%%7d%%%1%%%%%%%%%&%E%3/Px4#%%y4MGCãU"A>DC9S1)0Bup%&'9%%9%'%d-%:6S%L*v)xF:5.%%8S%%%1%%%%%%%%%&%RE%/P%ãU"BG%%Ly4GC1w>CnLS10B%up&'%9%9%%'%-%6T,'L\)1TM&-7%%&Ve%%%1%%%%%%%ãU"%%&%E%3/P+W#%%y4MGCA>DC:S1)0Bup%&'9%%9%'%[-%v-\'LOW9S^?5.%%]W%%ãU"%/%%%%%%%%%&%RE%/P']i%%Lx>DAD24SC)GCup%&'9%%9%'%[-%Y).yLl])IwB1ãU"7%%-Q%%%1%%%%%%%%%&%RE%/P'Kz%%.yj'y%wtym%Sgfx%up&'%9%9%%'%-%(U$ãU"fLHb$$'&V2%%%%5%%%/%%%%%%%%%%%E%E/P>1#%%gA2>F=lLSA0F%up*+%%%%%%ãU"-%-%'A&%%*A>%%%%%ãEND SUBãV2ãV3ãCLOSE:IF S=69AND 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ãJernej Simoncic SNOW ENGINE jernej.simoncic@guest.arnes.si 12-25-99 (20:50) QB, QBasic, PDS 284 6713 WINTER.BAS ' Winter - a snow demo with a nice image :)ã'ã' Programmed by Jernej Simoncicã' jernej.simoncic@guest.arnes.siã' ICQ: 26266467ã'ã' Use the snow 'engine' freely, just give me a credit!ã'ããDECLARE SUB Winter ()ãDECLARE SUB SetPal (Attr%, Red%, Green%, Blue%)ãDECLARE SUB DefSnow (S AS ANY, YPos AS INTEGER)ãCONST NumSnow = 200ãTYPE Snowã X AS INTEGERã y AS SINGLEã oX AS INTEGERã oY AS SINGLEã mY AS SINGLEã mX AS INTEGERã Amp AS INTEGERã sX AS SINGLEã Col AS INTEGERãEND TYPEããRANDOMIZE TIMERããDIM Snow(NumSnow) AS SnowããFOR i% = 0 TO NumSnowã DefSnow Snow(i%), 190ãNEXTããSCREEN 13ããWinter 'Draw imageããFOR i% = 0 TO 15ã SetPal i% + 32, 0, i% * (63 / 15), 0ã SetPal i% + 48, 63, i% * (63 / 15), i% * (63 / 15)ãNEXTãFOR i% = 1 TO 16ã SetPal i% + 239, i% * (40 / 16) + 23, i% * (40 / 16) + 23, i% * (40 / 16) + 23ãNEXTãSetPal 100, 63, 31, 0ãSetPal 101, 47, 31, 0ããr1! = 25ãg1! = 13ãb1! = 0ãr2! = 37ãg2! = 24ãb2! = 12ãr! = (r2! - r1!) / 16ãg! = (g2! - g1!) / 16ãB! = (b2! - b1!) / 16ãFOR i% = 0 TO 15ã SetPal i% + 64, (r1!), (g1!), (b1!)ã r1! = r1! + r!ã g1! = g1! + g!ã b1! = b1! + B!ãNEXTããDOã FOR i% = 0 TO NumSnowã Snow(i%).y = Snow(i%).y + Snow(i%).mYãã Snow(i%).mX = SIN(Snow(i%).y * Snow(i%).sX) * Snow(i%).Amp - Snow(i%).Amp \ 2ãã PSET (Snow(i%).oX, Snow(i%).oY), 0ãã pnt% = POINT(Snow(i%).X + Snow(i%).mX, Snow(i%).y)ã IF pnt% < 0 THEN pnt% = 0ã IF pnt% THENã IF RND AND 1 THEN n% = 1 ELSE n% = -1ã p% = POINT(Snow(i%).X + Snow(i%).mX + n%, Snow(i%).y)ã IF p% = 0 THENã m% = n%ã ELSEã p% = POINT(Snow(i%).X + Snow(i%).mX - n%, Snow(i%).y)ã IF p% = 0 THENã m% = -n%ã ELSEã m% = 0ã FOR j% = 0 TO 3ã IF POINT(Snow(i%).X + Snow(i%).mX, Snow(i%).y - j%) = 0 THENã PSET (Snow(i%).X + Snow(i%).mX, Snow(i%).y - j%), Snow(i%).Colã EXIT FORã END IFã NEXTã DefSnow Snow(i%), 10ã END IFã END IFã Snow(i%).X = Snow(i%).X + m%ã END IFãã IF INT(Snow(i%).y) >= 199 THENã PSET (Snow(i%).X + Snow(i%).mX, 199), Snow(i%).Colã DefSnow Snow(i%), 10ã END IFãã PSET (Snow(i%).X + Snow(i%).mX, Snow(i%).y), Snow(i%).Colãã Snow(i%).oX = Snow(i%).X + Snow(i%).mXã Snow(i%).oY = Snow(i%).yã NEXTã WAIT &H3DA, 8ã WAIT &H3DA, 8, 8ãLOOP WHILE INKEY$ = ""ãã'Make the snow fall down before quittingããDOã FOR i% = 0 TO NumSnowã Snow(i%).y = Snow(i%).y + Snow(i%).mYãã Snow(i%).mX = SIN(Snow(i%).y * Snow(i%).sX) * Snow(i%).Amp - Snow(i%).Amp \ 2ãã PSET (Snow(i%).oX, Snow(i%).oY), 0ãã pnt% = POINT(Snow(i%).X + Snow(i%).mX, Snow(i%).y)ã IF pnt% < 0 THEN pnt% = 0ã IF pnt% THENã IF RND AND 1 THEN n% = 1 ELSE n% = -1ã p% = POINT(Snow(i%).X + Snow(i%).mX + n%, Snow(i%).y)ã IF p% = 0 THENã m% = n%ã ELSEã p% = POINT(Snow(i%).X + Snow(i%).mX - n%, Snow(i%).y)ã IF p% = 0 THENã m% = -n%ã ELSEã m% = 0ã FOR j% = 0 TO 3ã IF POINT(Snow(i%).X + Snow(i%).mX, Snow(i%).y - j%) = 0 THENã PSET (Snow(i%).X + Snow(i%).mX, Snow(i%).y - j%), Snow(i%).Colã EXIT FORã END IFã NEXTã Snow(i%).X = 400ã END IFã END IFã Snow(i%).X = Snow(i%).X + m%ã END IFãã IF INT(Snow(i%).y) >= 199 THENã PSET (Snow(i%).X + Snow(i%).mX, 199), Snow(i%).Colã Snow(i%).X = 400ã END IFãã PSET (Snow(i%).X + Snow(i%).mX, Snow(i%).y), Snow(i%).Colãã Snow(i%).oX = Snow(i%).X + Snow(i%).mXã Snow(i%).oY = Snow(i%).yã NEXTã WAIT &H3DA, 8ã WAIT &H3DA, 8, 8ã n% = 0ã FOR i% = 0 TO NumSnowã IF Snow(i%).X <> 400 THENã n% = -1ã EXIT FORã END IFã NEXTã IF n% = 0 THEN EXIT DOãLOOP UNTIL INKEY$ = CHR$(27)ããSUB DefSnow (S AS Snow, YPos AS INTEGER)ã S.X = INT(RND * 320)ã S.y = -RND * YPos - 10ã S.mY = RND / 2 + .5ã S.Amp = INT(RND * 12) + 8ã S.sX = RND / 8ã S.Col = INT(RND * 16) + 240ãEND SUBããDEFINT A-ZãSUB SetPal (Attr%, Red%, Green%, Blue%)ã OUT &H3C7, Attr%ã OUT &H3C8, Attr%ã OUT &H3C9, Red%ã OUT &H3C9, Green%ã OUT &H3C9, Blue%ãEND SUBããDEFSNG A-ZãSUB WinterããFOR i% = 0 TO 4ã LINE (50 + i% \ 3, 50)-(50 + i% - 2, 169), i% * (15 / 4) + 64ã LINE (90 + i% \ 3, 60)-(90 + i% - 2, 173), i% * (15 / 4) + 64ãNEXTããFOR i% = 0 TO 5ã LINE (150 + i% \ 3, 70)-(150 + i% - 2, 189), i% * (15 / 5) + 64ãNEXTããLINE (0, 180)-(50, 170), 240ãLINE -(125, 175), 240ãLINE -(170, 183), 240ãLINE -(200, 177), 240ãLINE -(230, 175), 240ãLINE -(290, 169), 240ãLINE -(319, 173), 240ãPAINT (0, 199), 240ãCIRCLE (220, 166), 12, 240ãPAINT (220, 166), 240ãCIRCLE (220, 148), 10, 240ãPAINT (220, 148), 240ãCIRCLE (220, 134), 8, 240ãPAINT (220, 134), 240ãLINE (200, 140)-(205, 176), 74ãFOR i% = 0 TO 10 STEP 3ã IF i% >= 5 THEN n% = 1 ELSE n% = 0ã LINE (195 + i%, 133 - n%)-(201, 143), 64ãNEXTãLINE (216, 129)-(224, 123), 48, BFãLINE (216, 129)-(216, 123), 4ãPSET (215, 129), 4ãPSET (225, 129), 51ãPSET (216, 123), 0ãFOR i% = 0 TO 1ã LINE (220 + i%, 129)-(220 + i%, 123), 52 + i% * 4ãNEXTãFOR i% = 0 TO 2ã LINE (222 + i%, 129)-(222 + i%, 123), 62 - i% * 4ãNEXTãPSET (224, 123), 0ãCIRCLE (217, 132), 1, 0ãCIRCLE (223, 132), 1, 0ãCIRCLE (205, 148), 7, 240, , , .38ãCIRCLE (235, 148), 7, 240, , , .38ãPAINT (205, 148), 240ãPAINT (235, 148), 240ãCIRCLE (220, 134), 1, 101ãPSET (220, 134), 100ãCIRCLE (220, 134), 5, 0, 230 * 3.14 / 180, 310 * 3.14 / 180ãFOR X% = 0 TO 319ã FOR y% = 127 TO 199ã IF POINT(X%, y%) >= 240 THENã PSET (X%, y%), INT(RND * 16) + 240ã END IFã NEXTãNEXTããPSET (217, 132), 240ãPSET (223, 132), 240ããX! = 0ãn! = 28 / 90ãFOR y% = 140 TO 50 STEP -1ã X! = X! + n!ã IF RND * 5 > 2 THENã LINE (20 + X!, y% + RND * 2)-(50, y% - RND * 2), INT(RND * 8) + 40ã END IFã IF RND * 5 > 2 THENã LINE (80 - X!, y% + RND * 2)-(50, y% - RND * 2), INT(RND * 8) + 40ã END IFãNEXTããX! = 0ãn! = 18 / 90ãFOR y% = 150 TO 60 STEP -1ã X! = X! + n!ã IF RND * 5 > 2 THENã LINE (70 + X!, y% + RND * 2)-(90, y% - RND * 2), INT(RND * 8) + 40ã END IFã IF RND * 5 > 2 THENã LINE (110 - X!, y% + RND * 2)-(90, y% - RND * 2), INT(RND * 8) + 40ã END IFãNEXTããX! = 0ãn! = 28 / 90ãFOR y% = 160 TO 70 STEP -1ã X! = X! + n!ã IF RND * 5 > 2 THENã LINE (120 + X!, y% + RND * 2)-(150, y% - RND * 2), INT(RND * 8) + 40ã END IFã IF RND * 5 > 2 THENã LINE (180 - X!, y% + RND * 2)-(150, y% - RND * 2), INT(RND * 8) + 40ã END IFãNEXTãEND SUBãDavey W. Taylor DANCING JELLO logiclord@swipnet.se 01-01-00 (02:59) QB, QBasic, PDS 248 6358 WOBBLE.BAS 'DANCING JELLOã'ã'Hey! I havn't contributed to ABC in quite a while now, sorry about that!ã'Heres some nice demo like eyecandy for your enjoyment!ã'It still needs a pretty fast computer to run smootly say like a P200 whenã'compiled and a P250 when running in the programming environ.ã'May flip occasionally, sorry about that... :>ã'ã'Yeah, I know, you can probably find a million things to fix andã'optimize so please do, because this is just the beginning ofã'a basic/asm project and I can use all the tips I can get!ã'So if you improve the code tell me about it :}ã'ã'I also need an asm rout that will map a texture to an area on the screenã'defined by four xy coordinates. I'd be real happy if you would sendã'it to me or tell me where I can download it... thanks! :)ã'ã'Have Phun! /LogicLord (logiclord@swipnet.se)ããDECLARE SUB relate (a%, b%)ãTYPE advnodeã xp AS SINGLEã yp AS SINGLEã xv AS SINGLEã yv AS SINGLEã xo AS SINGLEã yo AS SINGLEãEND TYPEãTYPE basnodeã xp AS INTEGERã yp AS INTEGERãEND TYPEãTYPE basrelationã ni AS INTEGERã nd AS SINGLEãEND TYPEããCONST hinode% = 27ãDIM SHARED node(0 TO hinode%) AS advnodeãDIM SHARED newnode(0 TO hinode%) AS basnodeãDIM SHARED oldnode(0 TO hinode%) AS basnodeãDIM SHARED relation(0 TO hinode%, 0 TO hinode%) AS basrelationãDIM SHARED floor(319) AS INTEGERããSCREEN 13ãRANDOMIZE TIMERãã'create floorãys% = INT(RND * 50) + 150ãyb% = ys%ãxs% = 0ãxd% = INT(RND * 39) + 1ãyd% = INT(RND * 50) + 150ãf! = (yd% - ys%) / xd%ãFOR n% = 0 TO 319ã IF n% = xd% THENã xs% = n%ã xd% = INT(RND * 39) + n% + 1ã ys% = yd%ã yd% = INT(RND * 50) + 150ã IF xd% > 320 THENã xd% = 320ã yd% = yb%ã END IFã f! = (yd% - ys%) / (xd% - xs%)ã END IFã floor(n%) = ys% + f! * (n% - xs%)ãNEXT n%ãã'interpolateãFOR n% = 0 TO 319ã y% = floor(n%) + floor((n% + 1) MOD 320) + floor((n% + 2) MOD 320) + floor((n% + 3) MOD 320) + floor((n% + 4) MOD 320)ã floor((n% + 2) MOD 320) = y% / 5ãNEXT n%ãã'set nodesãn% = 0ãFOR y% = 0 TO 3ã FOR x% = 0 TO 6ã newnode(n%).xp = 160ã newnode(n%).yp = 50ã node(n%).xp = x% * 25 + 85ã node(n%).yp = y% * 25 + 30ã n% = n% + 1ã NEXT x%ãNEXT y%ãã'create relationsãn% = 0ãFOR y% = 0 TO 3ã relate y% * 7, y% * 7 + 6ãNEXT y%ãFOR x% = 0 TO 6ã relate x%, x% + 21ãNEXT x%ããFOR y% = 0 TO 3ã FOR x% = 0 TO 6ã IF x% < 6 THENã relate n%, n% + 1ã END IFã IF y% < 3 THENã relate n%, n% + 7ã END IFã IF x% < 6 AND y% < 3 THENã relate n%, n% + 8ã relate n% + 1, n% + 7ã END IFã n% = n% + 1ã NEXT x%ãNEXT y%ãã'factors... don't change it'll prolly flipãdfactor% = 10ãsfactor% = 100ãvfactor% = 2ãifactor% = 8ããWHILE INKEY$ = ""ã 'gravityã FOR n% = 0 TO hinode%ã node(n%).yv = node(n%).yv + .01ã NEXT n%ãã 'calculate average distance from related nodesã FOR n% = 0 TO hinode%ã node(n%).xo = 0ã node(n%).yo = 0ã FOR r% = 0 TO hinode%ã nd! = relation(n%, r%).ndã IF nd! = 0 THENã EXIT FORã ELSEã ni% = relation(n%, r%).niã d! = (ABS(SQR((node(n%).xp - node(ni%).xp) ^ 2 + (node(n%).yp - node(ni%).yp) ^ 2)) - nd!) / dfactor%ã 'd! = d! / dfactor%ã node(n%).xo = node(n%).xo + (node(n%).xp - node(ni%).xp) * d!ã node(n%).yo = node(n%).yo + (node(n%).yp - node(ni%).yp) * d!ã END IFã NEXT r%ã node(n%).xv = node(n%).xv - (node(n%).xo) / sfactor%ã node(n%).yv = node(n%).yv - (node(n%).yo) / sfactor%ã NEXT n%ãã 'move node based on calculated velocityã FOR n% = 0 TO hinode%ã node(n%).xp = node(n%).xp + node(n%).xv * vfactor%ã node(n%).yp = node(n%).yp + node(n%).yv * vfactor%ã NEXT n%ãã FOR n% = 0 TO hinode%ã 'bounce off left and rightã IF node(n%).xp < 0 THENã node(n%).xp = 0ã node(n%).xv = 0ã END IFã IF node(n%).xp > 319 THENã node(n%).xp = 319ã node(n%).xv = 0ã END IFãã 'floor collision detectionã xf% = INT(node(n%).xp) MOD 320ã IF node(n%).yp >= floor(xf%) THENã node(n%).yp = floor(xf%) - 1ã d! = floor(xf%) - floor((xf% + 1) MOD 320)ã node(n%).xv = node(n%).xv - d!ã node(n%).yv = 0ã END IFã NEXT n%ãã 'syncã WAIT &H3DA, 8ãã 'erase old blockã FOR n% = 0 TO 5ã LINE (oldnode(n%).xp, oldnode(n%).yp)-(oldnode(n% + 1).xp, oldnode(n% + 1).yp), 0ã LINE (oldnode(n% + 21).xp, oldnode(n% + 21).yp)-(oldnode(n% + 22).xp, oldnode(n% + 22).yp), 0ã NEXT n%ã FOR n% = 0 TO 2ã LINE (oldnode(n% * 7).xp, oldnode(n% * 7).yp)-(newnode(n% * 7 + 7).xp, newnode(n% * 7 + 7).yp), 0ã LINE (oldnode(n% * 7 + 6).xp, oldnode(n% * 7 + 6).yp)-(newnode(n% * 7 + 13).xp, newnode(n% * 7 + 13).yp), 0ã NEXT n%ãã 'calc new nodes by interpolation and remember oldã FOR n% = 0 TO hinode%ã newnode(n%).xp = newnode(n%).xp + (node(n%).xp - newnode(n%).xp) / ifactor%ã newnode(n%).yp = newnode(n%).yp + (node(n%).yp - newnode(n%).yp) / ifactor%ã oldnode(n%).xp = newnode(n%).xpã oldnode(n%).yp = newnode(n%).ypã NEXT n%ãã 'draw new blockã FOR n% = 0 TO 5ã LINE (newnode(n%).xp, newnode(n%).yp)-(newnode(n% + 1).xp, newnode(n% + 1).yp), 63ã LINE (newnode(n% + 21).xp, newnode(n% + 21).yp)-(newnode(n% + 22).xp, newnode(n% + 22).yp), 63ã NEXT n%ã FOR n% = 0 TO 2ã LINE (newnode(n% * 7).xp, newnode(n% * 7).yp)-(newnode(n% * 7 + 7).xp, newnode(n% * 7 + 7).yp), 63ã LINE (newnode(n% * 7 + 6).xp, newnode(n% * 7 + 6).yp)-(newnode(n% * 7 + 13).xp, newnode(n% * 7 + 13).yp), 63ã NEXT n%ãã 'move floorã floorm% = floor(0)ã FOR n% = 0 TO 318ã PSET (n%, floor(n%)), 0ã floor(n%) = floor(n% + 1)ã PSET (n%, floor(n%)), 38ã LINE (n%, floor(n%) + 1)-(n%, 199), 0ã NEXT n%ã floor(319) = floorm%ãã COLOR 72ã LOCATE 1, 1ã PRINT "LogicLord '2k"ãWENDãWIDTH 80, 25ãã'eliminate the black-line-at-the-bottom-of-the-screen bug in win95/98ãCOLOR 7, 0ãCLSããPRINT "LogicLord '2k"ãã'Hey, whaddaya know... nothing happened!ããSUB relate (a%, b%)ã d! = ABS(SQR((node(a%).xp - node(b%).xp) ^ 2 + (node(a%).yp - node(b%).yp) ^ 2))ã' PRINT d!ã FOR n% = 0 TO hinode%ã IF relation(a%, n%).nd = 0 THENã relation(a%, n%).ni = b%ã relation(a%, n%).nd = d!ã EXIT FORã ELSEã IF relation(a%, n%).ni = b% THEN EXIT FORã END IFã NEXT n%ã FOR n% = 0 TO hinode%ã IF relation(b%, n%).nd = 0 THENã relation(b%, n%).ni = a%ã relation(b%, n%).nd = d!ã EXIT FORã ELSEã IF relation(b%, n%).ni = a% THEN EXIT FORã END IFã NEXT n%ãEND SUBãBernt Figaro BMP TO ICO CONVERTER (32X32X16)bernt.figaro@swipnet.se 01-01-00 (14:41) QB, QBasic, PDS 198 5335 BMP2ICO.BAS REM ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ãREM ³ An simple .BMP to .ICO Converter ³ãREM ³ bernt.figaro@swipnet.se ³ãREM ³ Here is an 16 colors converter ³ãREM ³ Supporting only .ICO format 32x32 ³ãREM ³ An Icon are index in three parts: Head, Body and tail ³ãREM ³ The Head has 126 byte (including header and colortable) ³ãREM ³ The Body has 512 byte ³ãREM ³ The Tail has 128 byte of null ³ãREM ³ An Bmp are index in two parts: Head and body ³ãREM ³ The Header is 118 bytes (including header and colortable) ³ãREM ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙãREM 2000-01-07ããTYPE IconDirEntryã idWide AS STRING * 1 'In pixels (16, 32, 64)ã idHigh AS STRING * 1 'In pixels (16, 32, 64)ã idColorCount AS STRING * 1 'Number of colors (2, 8, 16)ã idReserved AS STRING * 1ã idPlanes AS INTEGER 'Number of color planesã idBitCount AS INTEGER 'Number of bits in iconã idBytesInRes AS LONG 'Size of Icon in bytesã idImageOffset AS LONG 'Offset to image dataãEND TYPEããTYPE IconDirã idReserved AS INTEGER 'Always Zeroã idType AS INTEGER 'Usually set to 1ã idCount AS INTEGER 'Number of entries in directoryã idEntries AS IconDirEntryãEND TYPEããDECLARE SUB Showicon (File$, Xloc%, Yloc%, Scrmode%)ãDECLARE SUB SplitVision (InLine AS STRING)ãDECLARE FUNCTION ExtractCommand$ (Srce$)ãREMãREMãREMãREM ----------------------------------ãREMãDIM SHARED Array$(1 TO 128)ãDIM SHARED icID AS IconDirãDIM head$, Body$, Tail$ãCONST Scrmode% = 12ãSCREEN Scrmode%ãCLSãCOLOR 14ããhead$ = ""ãhead$ = head$ + "00/00/01/00/01/00/20/20/10/00/00/00/00/00/E8/02/00/00/16/00/00/"ãhead$ = head$ + "00/28/00/00/00/20/00/00/00/40/00/00/00/01/00/04/00/00/00/00/00/"ãhead$ = head$ + "80/02/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/"ãhead$ = head$ + "00/00/00/00/00/80/00/00/80/00/00/00/80/80/00/80/00/00/00/80/00/"ãhead$ = head$ + "80/00/80/80/00/00/80/80/80/00/C0/C0/C0/00/00/00/FF/00/00/FF/00/"ãhead$ = head$ + "00/00/FF/FF/00/FF/00/00/00/FF/00/FF/00/FF/FF/00/00/FF/FF/FF/00/"ããSplitVision head$ããBody$ = SPACE$(512)ãTail$ = STRING$(128, 0)ãhead$ = STRING$(126, 0)ããFOR I% = 1 TO 126ãA% = VAL("&H" + Array$(I%))ãMID$(head$, I%, 1) = CHR$(A%)ãNEXT I%ããããOPEN "Quit.Bmp" FOR BINARY AS #1ãSEEK #1, 119ãGET #1, , Body$ãCLOSE #1ããFOR I% = 31 TO 0 STEP -1ãFOR J% = 0 TO 31 STEP 2ãP% = P% + 1ãA% = ASC(MID$(Body$, P%, 1))ãPSET (J% + 1, I%), A% AND 15ãPSET (J%, I%), A% / 16ãNEXTãNEXTããOPEN "QUIT.ICO" FOR BINARY AS #1ãPUT #1, , head$ãPUT #1, , Body$ãPUT #1, , Tail$ãCLOSE #1ããShowicon "Quit.ico", 40, 0, Scrmode%ãLOCATE 21, 1ãPRINT "That's All, folks !"ãSLEEPãENDããREM $DYNAMICãFUNCTION ExtractCommand$ (Srce$)ãDelim$ = "/"ãSTATIC Start%, SaveStr$ãã' If first call, make a copy of the string.ãIF Srce$ <> "" THENãStart% = 1ãSaveStr$ = Srce$ãEND IFããBegPos% = Start%ãln% = LEN(SaveStr$)ã' Look for start of a token (character that isn't delimiter).ãWHILE BegPos% <= ln% AND INSTR(Delim$, MID$(SaveStr$, BegPos%, 1)) <> 0ãBegPos% = BegPos% + 1ãWENDã' Test for token start found.ãIF BegPos% > ln% THENãExtractCommand$ = "": EXIT FUNCTIONãEND IFã' Find the end of the token.ãEndPos% = BegPos%ãWHILE EndPos% <= ln% AND INSTR(Delim$, MID$(SaveStr$, EndPos%, 1)) = 0ãEndPos% = EndPos% + 1ãWENDãExtractCommand$ = MID$(SaveStr$, BegPos%, EndPos% - BegPos%)ã' Set starting point for search for next token.ãStart% = EndPos%ãEND FUNCTIONããSUB Showicon (File$, Xloc%, Yloc%, Scrmode%)ããIF Scrmode% <> 12 THEN ErrCode% = -255: EXIT SUBããREDIM Ct%(0 TO 15) 'Uses if translates from screenããCt%(0) = 0: Ct%(4) = 1: Ct%(2) = 2: Ct%(6) = 3ãCt%(1) = 4: Ct%(5) = 5: Ct%(3) = 6: Ct%(7) = 7ãCt%(8) = 8: Ct%(12) = 9: Ct%(10) = 10: Ct%(14) = 11ãCt%(9) = 12: Ct%(13) = 13: Ct%(11) = 14: Ct%(15) = 15ãããREM ÚÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂ¿ãREM ³³ File Handle ³³ãREM ÀÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÙããIconfile% = 7ãOPEN File$ FOR BINARY AS Iconfile%ããREM ÚÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂ¿ãREM ³³ Get Icon Info ³³ãREM ÀÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÙããGET #Iconfile%, , icIDããicWide% = ASC(icID.idEntries.idWide)ãIcHigh% = ASC(icID.idEntries.idHigh)ãCLOSE #Iconfile%ããSize% = (icWide% / 2) * IcHigh%ãDIM Pico$ãPico$ = STRING$(Size%, 0)ãDIM U%ããIconfile% = 10ããOPEN File$ FOR BINARY AS #Iconfile%ããSEEK Iconfile%, 127 ' CLNG(22 + (32 + 8) + (4 * 16) + 1)ãGET Iconfile%, , Pico$ãCLOSE Iconfile%ãããU% = 0ãFOR Y% = (IcHigh% - 1) TO 0 STEP -1ãFOR X% = 0 TO (icWide% - 1) STEP 2ãU% = U% + 1ãA% = ASC(MID$(Pico$, U%, 1)) \ 16ãB% = ASC(MID$(Pico$, U%, 1)) AND 15ãPSET (Xloc% + X%, Y% + Yloc%), A%ãPSET (Xloc% + X% + 1, Y% + Yloc%), B%ããNEXTãNEXTããããPico$ = ""ãEND SUBããSUB SplitVision (InLine AS STRING)ãDIM Token$ãMaxItem = 0ãToken$ = ExtractCommand$(InLine)ãREM Invoke ExtractCommand$ with the string to tokenize.ãWHILE Token$ <> ""ãMaxItem = MaxItem + 1ãArray$(MaxItem) = Token$ãREM Call ExtractCommand$ with a null string so it knows this isn't the first call.ãToken$ = ExtractCommand$("")ãWENDãEND SUBãJernej Simoncic FILL ROUTINE WITH TEXTURES jernej.simoncic@guest.arnes.si 01-08-00 (15:05) QB, QBasic, PDS 195 12911 TFILL.BAS ' Paint routine with texturesãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"TFILL.ZIP",4^6:Z&=9402:?STRING$(50,177);ãU"%up()%9%%%.-%)x.UMmg?d4v)%%%i6%%%/%%%%yu%fnsy%SgfxWf&XBAjk5MWP[ãU"wVLB\,Za=DgjP^A&uãU"00tfN0JJJt7(RQPRJiH=D92-0;5eVqV<['4=1$4IvQ'Q:Osn#T\64T)H?ms&ILLl:LãU"vKxN,#=]3?Rh.ilj0Gqylgck_Z>9<2j.ZX=E:i4]_t^ZLcsB(KuS?U1SYw^d2cWãU".T^26UcVZeWf9KT&D23pr>e,o5#0:yU68WH.\Z088sGTUE9:T1*E6cQjW>wR.%mãU":[L%(<;4sGPuC-<[gtkTPO\J8AdJ)^g^)5u^&W\H,04tjtJC9j;+BQX=)>b:eB9ãU"Z>)^[G..jOXU^+#24o?p6\Hm)MVj5lc7zI#28c](='ehbãU"cGiVlkIySG>g7p*jJQ>mD%74q4zhe&$7pTt_?\0Cs$Laq*'gRBDd?uk5qJEE7avãU"N#CUz+*&V8d.QxE]=_m9+01vL:E4lO;Y1[p[DVcmS,S.M6bBGak*Gfkr#SãU">=[K7s?dU5EgORRpo1_X3,(f#,5M3Ica_NfcIbm-KFKbP_nieZNIi7)<1vs$X&jãU"tS:=XRfy7?39RE+uOS*#*6iUQ&3pgkHed77O?g.9Tf]]Ov\gFm%'j>E0UkRfIQY2#?8g8iFãU"3_Q+Q2tãU"VNy#>n7%^k*v7'd5i9^K0id8'C,^YPHSpiDCy_jmDDt,qhnL[Irxt+M-d,4faz7ãU"vau.kXZ&>up(%)9%%[%-%SAYUMBbyl\f%C%%5%O%%,%%%%y(j'yzRwjNIMV.*6QãU"/&_3SRr08&unEUU=29u&wpg:R5=MJrh,KF3UhS]S]B$]>lB5ngW>aEKE*je<8lqiLlO&l4dGVW^wCQho*krbX2/K'X\rUGjPn*BdPN0U[$E:E+By&P1pãU"I*[Xy&R=o\qh%z%AXq_n\rf\&&o&2lk&Qyr=>x%TKQ1IKuH'^G+>Ddg,]ExDVN4ãU"BRBk4c1d>HWbc>pA[3;5A2'#b\cbAOnWWd'>a=*H3GA%V?1_K&g1)j[(.8l7*#VãU"\;;p]D9lFaCSUaENZ7BLt&TQNrFFgU9t=PltNriGRD]Puc?$_dEcJ+V0eS.EGj(ãU";:DF4Ex+'t#1D0Nqtc\Jm=,wPMMpE5lSLk:dlDLur:.gVqMFoClMQ+DorXVvp'z,L&bX-E=;jãU"po<'[8KKA5t-Dz_SWbfiV8IE&W+10&twirOJ1N0p4=YAs&FugU2tKWLF='5ZXZmãU"V^POiB:;gmD?/S1QMYl:cf(9%NMzeZI6BHWq$Fe1o?%GUfU9((WXqgip.O(0M_4ãU"QSlM_QCs0x,6t>XPY>W5DZto&*7\[(r:r[:vc5,rvs'Z)N?^nqh)h;[yXS\Jz?NãU"C(5f^ORAc]lzq1OdOFT?j.+W'_C?FnYOT[kD.#ta>+HlOX?7q<;cCA\#\>HV1f4ãU"q#8%.i6bN3)xNuEpA#1U'WeE9O/_AWOm2)J1L>eO&2[ZZ-\X?M)%i/X1Dy?G(s/QtG>AT#Tmtt8ãU".#^$$JD41AMP9b7wchgBem<3R%pSZ#fon,vr&+S45T3X>qIqDhKL[cPH]2Op&ewãU"w8I;:wU.pipJc_[$]aTCH5?Pu,DKt1cCecm.PL)bB<6j/ghsZg7JMbpI_[5C2,CãU"k.9VTY4DrA].yQ\4(?cPDtKcna.^p9Fks7p[izo6P-HWZ0ct:u&QTPf'TMGcL\EãU"89M1999q1K'.N&tZJl37v8&NeMAF6RB=bVT8iO*Zb+'/yNzcC>w*f;EArdwKgFYãU"6lA9/cLYB_xtyc#b(DuXYxlfBE\fS\Itq+i2::V6Qu,6JBt,5>t$AcãU")TQRA,qN_eA)dxkoN]y9tayCz+9:19X#A[P\B:]72)3D&A&z6\#%w\*O,8ck&k#r5k4U9mCHKf(\vpãU"_)Sb9caPzb&#dT2Kp>e#M=;YSUl%EmPEUWko#^m1.d?Tey0%Vj%Bd+n?F>5[)\7ãU"JIuHXQ[>Z?fPq:w[)oJz(i'pmL-UlRR$$)_4H31aMkLpTwuJ:ZZn$FdAPWF]s6+ãU"1L&&c^E5&Z7z+0jGMy=o^5d#=/GtGB)*]^ic/BkGMwPM8DIt%v:*i=V\*3VCn[EãU"bkhaXZ>\On4^VG&B]VY1B.2$;&%e%&VtP[OZLB^3:f\M6&eoS5#1)f2'2QmE5SIãU"fOATiQ1FUa6;[z)5B=yGh9WopDA4$3G2J6?ji-4t,6;5jVS5AR<[kVF4jm''jG,ãU"ck:/gYGl7U/[-A)pod)[L&GaRLCAe2yxCqAtY=[&ymI+DW3J2E*][lX^>$A/0fBãU"tY.XY_lN_C1nk[0L)0F^RXS8#RWxkB&fAn/n[g7%MVo_4tLuO+Wa7B)u7&dQK&nãU"PGA.6:;-&V>iV*hDE?0n2vsql:mI%X>i8&MK4JãU"+xx(v<%os'\peU+Od%=CABdiOX%#CTqoQU:Bq?/IZ/3A^7Y[A2HF#H6=ãU"aCsRdbMc(OwJcppoM^yu+'C*5$(eo#H^$/,gD^6F:r,MPAM_/77iQ=BYnHEHaa6ãU"bfJ'G/.OmIJKU\WT:^m.EaZ.%f^uEG3vBJp1KeI.)KW>V>\2-^Dq^qsg.Ng7Q00ãU"(3ZiHgsvZSDCPAh,3x%6LHhs.'M#1+_?]/n^?Zh8.IML0[I:PrdwER[jhax;'6;ãU"0'Ugi4''4d74RBWa#U_Wl+dC\W22i31dRvi11A0-olj+=xLid\Ux&PeOKKA1qy#ãU"wZy:;L4?G19?fT4)&)m7VOo6^p^jA2VLKdYRHsn_W4/.+&9_YaãU"zGoG]R[ekGF./QD0:E)];)Keh&is/VDA^[w53sfcNE;c.IBVSOWRu%Qs:xr*M)dãU"Ool*lRqGPdCxXKbHy':2Qc/-/O7KIzJESp]x]+TRq96)p%A-W^wuX,]D)6#gK]lãU"3i/uq#.)3Zmkuw*DW)Sb%QRRf..8SFh[[Y#m.G??dX?lY.Wk,Ir)_]Rh[^yH0\lãU"#UC)sfXfSnOE4J)?IZJ?*j$*.nGbIsSc+BG<=O?31pcZ?Mx3<2;2LNI\$O;ãU"J;X2j)7V4gA+2\6e*P$=74EG9=f:Tr?DBohN%%MFYb)-nuFSHE/%+:BGD$WFVciãU"=k6/-RT6m$$TdoD=(m&y-vX;\f]gA9-+t7on&RL?6(+.%)ybejfVm'qeH-U'(9iãU"e1KS;R1),3[)kv63Oo&?K-?x8m*8U:3gUhK/Um[a&aqG%T*Ug>gYo)mlMV_C);3ãU"Sy>AEjuD&7,?+$Vdl%1.Zi&[Agn+7LlV:GqlSUOsl:I#4EFQgh>.Vf/O\B>>Xp.ãU"A80q_zwl&>%(Nw#zOHcE?XgT#AxO6&A>dCJhy+]*]13n[%l*bg\_*A#Lad8Ox2GãU"HtJ$iiq/Ft:E3Skz^ipel.7E1vSrf0w:zzbx6417u6>BXN1Y)sMi=%e[CfAFj)4ãU"\b(EjO09/^E16%a?CvgR*-XgdKDuN]/6D/Lf2-JvVXpZ4K1^8$*x-LhZi3.DIb6ãU"BU*\a2ORehmegMB&RfYB[1_ynnOeHF[WlFSb36s*u)oYaHNHT-4Df,\,X.omIl5ãU",ue+*P>.V:pMCv$wxd?Eg-G$9Y]h&:i3\[Ajrd*gs0o,uiIdK)$HIxl[bZgNdDtãU"AL?wdTdNxZe$\RL2b+vpo/EFt1KqNJh_\+:SbKIpFV,mUk/9[#'V7\^]WS.&$%bãU"^2\A?wC%m(f:z:xBp5)bk?oJDle.dKousjO+&+:n;MohK-T[*KJ/w>xqIoXfcQEãU"Izq(vc_Z0mW\]0AEn4%Vl,*12brgI14Q$b4MGc[gPZhZukL&uxskZ2Zra.IVR3NRYkd#U-]Y%Em2y'D^1xKra48:5sãU"d2(wlx_nP+6a1HHex]aao>ukWl(cwp#xHr0TN1_)fQK?/HG&fEgJ[Ou56Su[x1iãU"Ae2')Z/aJntpF5U1%#7nR5LUa3peo1+R_e^C^5x5^h]DJWZy3mJt^]ij6w6c#$3AyTA\Ud75E\UH*94PgA+TeVZyF^YnvvFQãU"xjnnRbaR.ted*<+G?)^2fZ[hS[_Eth9TUNL)d,YDe%ql^vD5bH;gE\:5-1=g-=vãU"V;5tVrnuK+[W3t6nZxtp>ZuwL>JmDg4<3?+mBfD(L,tq#r6ZKQ.dE?gCe4x#+5uãU"[gWTA88a2gURb[5K3T:-\k;7/,]t7wJTclrc^8tJxL(MNKKL%f(/N7eO*n,R>#xãU"#NSbdtD[PV7IZF)A*>8/;d\wf/n*:95g[AfN%X7]5CIK%e.;2cHN\lnQ6x.ntLrãU"eBv#pr2ALc+[COSK6mY)B#;uy?3)]Iic2=;YFVKdãU";EC0zWu[i4YtL0>b+e%jhRhgaBkzDR*(XcNi3Yx>dZxT$.tKxDg0+qr/*#:87&+ãU"&CYNaCS_jsIlk_GsA2dN;ZK>W9SQDcJS^VyBJ+k<:y<&5#C;g/SR;G040*;V/)9ãU"M&j^Muq[,8tNjVd5LlQ'nJ>3K;;+;S1jZTx(ImoF2wh/CSzu-+AiyFKB;I;$c=NãU"AEO-18#m+fd)A)jGp.eUOn$?]f?0h0t1]l$LXQuln.[ca^5f7ItU0=*l+p:4McMãU"Wf1X&1Z0'Kn*piIEA1S1%3I9&S3w2?m]v2/1)feOUQ^l4EoDYg:&rkKdtmL?n>8ãU"DW7K50Va/X=)sd%%[1M$EL('8tFor%5VC^Xno&9RkO>kVE.DYRu[3uX/K1bmiF:ãU"O6p5/)>y7UiDY6(Tbt9dqtLuXvtdkVH^/>&=Y_063TACVa._UCZ?7_qWvQt]J#$ãU"ED&/'&Hjyk%HYtI%;sXjjwEru)orb;%i#$:*d_u%7P)Q'd$vZ:m'o\aVvVXMQpuãU"76'NIxeEP_W*_s$(]*0w1LTDF(4Q=_?G_L7HQ&tg.P_pMF)<\#O(pF6:[Fu^SZrãU"<00TMUVS'BQ23X[kA;0N>&Y:WEJ(npbIsuuBg?k#'xrwR[2&K6*g,yGT*ID^$VlãU"ed[+P7r(QON1Pd;KXq)VIpNn>cX'Nf0dEHqZB:f&E%jG$Ema-q;Q?JZ6[dcdW9XãU"WHh);_9uCM30u_Hb);^LkOrhlEpAn5(#LECOW%_THr>.wT(%RX7(Rp*P[ou1)5*ãU"V(Teqf6dw6p?%%esBxuuurj:oAynq\JiQg.[[TTHZD-C7ky[BQcA*ELOGF&0VimãU"ReIMsdi(MqQPS7AQ(VRBVgV6lo0ec]R9Xm\DvKn0*V0(t-CIDc'.p[X>9__WrD/ãU":#:]%[w#GBBOES^Gz:^;3I$WY9^[nyC-FT,lpt]ãU"ohH((Qj>?&Y=-hYVkO'lQ)IDteKe/DjV7gp*oJ$)6$f&C'x+pv_[;v9\V\OO^[&ãU"-46$%/We?o-5LGDjF3]/]3E[3E5/Q>j0p3q^]jp)DbyhD%_1\EEa#4l(G-7aHkL-JV1I.[IuIJJs-6-#i%Y(uoaCA9aJM1EHX_c;k^rPãU"tu3XM'*WBb/q*N=c09[VAr6d4J,r4*PP2%ff&Zj]]vqn.uu,YEeT-=C-t3gR5gcãU"iuC4U(p-0Cf9FJ39[lbH]I?aZC5.F6uuVãU"DqMIo[27FLnVutLkA+;(2I;f#JJkhq0IF_j7iQY<4PVf?ZL1QEAb;.f4Ca?dT>b>ãU">4]VS8Axf59:%Jm9%:b6=R1.,ePg%lG'+P>\J9Iw80eg%f:GzpDnnasoTTT8HEsãU"Q7F4f,wIJ<'F4[R[vxERUxD),,RBAl]jw=dVLbU];n3\7*j$AgItgE09WW$fimMãU"+IL6bu?u.d]AMe%n;B5wuwT(x.*X-BrgqwM&IHCPJeMcQrop7L2+=60d$38bc][ãU"IZW;OIP[j_$mVt_#2Q8fpb/xY*Rh2DU>&ZwHXN&g&&)&&qp?AY\DpCMv(qNNteZãU"]BZLll5+,#m2blMyUKQH7sSkZ0-Z3A<3LxpR+gR6_70YoIAfjIE:8Z.jU[L_N,:ãU"L_FWp>1'wRoq>MB5tLmu4Q(8Svbm8_W6T9elI(f/s.Xak8tmba=txJQ^u*B*j6/ãU"/es3Whuvej:zmI1sWg;>7Tyr,r/i+sIC-(l^?N*<'[R:Q/]dYHof&q.Mlv7tL(5ãU"b#mdF/qC16)6Gsv_L&ptZqq^xm.A)ZX1(6r*'plE1%BJh3=bCY\P*,fi_7H?X;pãU".>8$j.90&-MgNH*LOu-v_XrXMx\qZb\60&:b1[8PsJ.V3IiqLD$SQ?#uuKjVDHVãU";;g+4pPhC-eCF%k#i_D>&b5YG%4VT.Ks(eUE05aCFj,d3H2OYeGZE.XkWNM'bi#z>gNfV/E)b=Q9&ãU"gY3x1+22p7_#tk8R;\NJxA\1r:Kxj,z$5KdTt_0Z4p0%IFB39e,I,ik^mn_E/[tãU",dH-/9V_X*ZLUttth]&NopgnI_Zk\)eP%S;^2(R/N)U$jH8&M]]G4Oof99G(sdsãU"s-8VMDuGbNp&3&dnQzp#qB%>B)ry>6D=YUU5Yy4?AtpSbm'egS-L\R*&WcN:Y_-ãU"4LrNEHQw<*RS2F^Y)%14qu\6#Z##(]8#bW,rH.87FgSrhi'GVt3d#7$^ZL2Z5o(ãU"z]c]?Nmkt*#5#4%pIbPZ2_7m7Jm[*c.x&9*9VJl^9xO)m9CY_Vr#q_saQXXBãU"Rgp+qaxnJayAF=R$QfBXxLL&3'+PJg]yV#*i=+ASUw]mKf:YkRc?Wb\;wf-'D[*YOulfo/Rp%2Eu^f0X>Id&#cqQiiaL?T/qDkcggCAG5)'xxl$xdãU"=\ij)x#0bym2%V+ZUoO\OJnxCegXDg:[P\ndHhx)d%qU+<6[-lptl]^Xbcb0\XuãU"3jG4p\>W5Q*Bhli7K85tt'wm:M]chlMMbBP.Dr%Hf.8bp-lFKT?p/SPT6HDAL0=ãU"OH9Tp'o&Pmj=yRhAWcx$DPD/^,higmVbKl4hlW3BdlGFFWWUk:*^E6lOT_z5OiNMmXRYM)):''A;n91H17[s$F&7CQa5#[F5SrqãU"3O;&YO[-gPE[(eW/hJcU;QEwuXGY$e[t>8G_$U\>XLchWLh?V3j3EW]?:_<[FZ-j=2a[n(48ncYi^]u[^8,,GdTr$FArMlAMfbkXR$V,_iI+J5c.<(.;#ãU",_i+JgaPSX:H>\sGn$smK$sF?UTFP\kFP,goYsoNqXIc?cscksO^;M],w8sIoY-ãU"T1FX&w-;zSXOc^0ocejI\&)aUKngxbs.5-U.T[;YoS7?J$#OIV\aA]knF2RsvfcãU"KPEbh>bAS>s5lwgsVcL=R^mmU^Lqc5#s4A;P[<#48lS73W_S\4QZXI]5v.h)qSXãU"SE_+7BjK=kDP1GsgSBjEhg7Bu>PK*w-FQ%])GeX\i#hn\jQE#=2Bb6]Db6^bUrkB5EGC06b[LR]EmX]LRgs8_ãU"mH=Zmh[#I?9d_?^A_Y$[>lI\G[A]2OãU"WWgkR\S$,belK^E58^>)=WX\KE6ZGf[vmq%G4[n+SjI8OaB4mD3aLnQ[BvH:XAWãU"Q3wtQL>%i]XFarZmM1evgB\N;G#/VtQJ.OG9[.tR\Gx^aTg'nK.tQHrx-isdu%pãU"&'9%%9%%#%-%)#xUMmsgd4v%)%%i%6%%/%%%%%%%%%&%%E%%%%%%%%%yuf%nsySãU"%gfxu%p&'9%%9%%[%-%SAYUMBbyl\f%C%%5%O%%,%%%%%%%%%%%%E%%%%J*%#%yãU"j'%yzwj%up*+%%%%%%'%'%&<%%%%\I%%%%%ãEND SUBãCLOSE:IF S=210AND 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ãSam Thursfield VFONT V3.0 W/EDITOR sam.thursfield@btinternet.com 01-15-00 (12:42) QB, QBasic, PDS 459 30260 VFONT3.BAS ' VFont v3.0, with Multispacing, custom fonts and an editor.ãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"VFONT3.ZIP",4^6:Z&=22396:?STRING$(50,177);ãU"%up()%9%%%R-%S%[NM/F5sC3-%%%,G%%%/%%%%gn%txV[%SksyEfhb:CA&9U%4KãU"QN1+pCh&39-ND+s=aIET0_4hA.mhb9_<+k>5y\<;W%7BB)sOT4ye<(LnGxsW-k8UPp%,vS^ãU"P/p1Nx_e67#stVl>:Z>DaixjABfVzvMd[>W$hnl($qDW0DVZY0'[gtOQãU"GnV.HRZw3HV(=?aR+n#M+08PMRtA<85z$QZOz7_JfkB:Mk7Pbl]rtt^h.qtNd=EãU"HwlSkSlRT$\6eKs'c,LYea98c.trjc4+[Vw9\W8]K:8A(pZPCO#>i1ExE^lIowZãU"S4s,dWlsHZ*Ml6<1njctYW(CLX[E[9+>w[?1O^u;]7$/h4E\rW%89I_Qz9,oS&'ãU"D'g_esj48Lb:oF&uS=$-'[S8kE_SEXt\3=H$4a%frnf$;N]1Coc37Uk9e&k.C88ãU"&Fd&oCOVNw&hyu9XCT*uVG0KudP4o37rTfX6BFef4/0n'P'CGh\Lk5rGzl\9Od1ãU"AGth^=L)HepcedAO^9L]nvlmagA8m8qeee6nsZ3^UJJ4J5igXy[xr47&jkn;nOq0J^(?OJ.GV)ãU"EN8on&Sh:Gd-k>JX2)mrkYJOh&i:7nh;N2:4Kwuk41Mb54RwpXHK[NxdjfQO7\eãU"2D:kgb[xlgS-SEN.:HmRkLsu9*;ãU"]hR<<7=e[w*x1#76?hh%dqF=l?sQeb$*-DsSth&D*pOZwDRNgo62$TW2Cr^D_F:#]p99'ãU"N[IYm\JSW/i1bmF38qlONSz#%4:#)UnVl[H:WeP(9\[xoaClYr==fgeO8\nbYQkãU"x-=?ju8iiw8bso5Xc43(Ju0?xyDgNPd-tTg+He_7xU)wEgr;4n3PkN.NF9J7U:tãU"72h_:z#g_8v,mxln8l9k.6tZ+Z;Mh9Gr$_PB7rHK3Cil1o);,o^PM4V5M[aE0,?ãU"Wh\WVn^[ãU"-8'LxaVwLe>H?+,>sNrxWtQ#CS$TmL7rTSHP7h(z;ãU"df%d>^M]x6loTu,UfXK'6v_zI\'qt^tSlf.$xa--aniANnu(zfoarxLE3Fgwb[0ãU"(?uEo,6[xlQn;j*xS;AFHpb'Zd=v%?A6_GNXM\xK&r-:9XkU1u[3O^>>$t>q:4]ãU"$-Hrc_-fr3MP*u^*]ux#udXKr<+fOHx;]8Nr+8NW(YM'72b<]rd.uãU":LPxCr.xB815LR]jRwvngdfq,w;mPwZbMlãU"7P9xOeS-/wtuT/HX/uP)l8Z7ba=<(3N,OWU.$Ah$rwYfV?kFbxfg\(fbc4^w#C<ãU";B,doxjws-]r#lN.nIou'e4ak6^+w;)zFdHbiTQ7+2s_kj8]8eTM-])NWc3R^o]ãU">3d:R8nM4,SbR&sT$x>*w%z]pTu\8^WmLS;8d/t#0:<7,ki;,XuBt].*bN/,a<%ãU"]Y0u?GOxl=&Zw$4PwPN09ZNN,^nZlXJ9SOmD;>NFGvDQeu>.RjyhaLPO$mu-u19ãU"s/ZrpKjs7Fm>bC=J;d$ui>.NTou#'[0_d5#rLB?kjKi^/Hl=+v*k&4]hcU4lZunãU"EEL##=E;i^xOHip_kl#8aq_5KVwgjG9Lf7pMlUWE82qA;8xn\iXuj4j:Xrx;xpNãU"dN&[_NT^dlrHNxIVb>QrRg4Dj_p&v%_W7F(dJpxYNnXNb]]xJML:S$56G)lo13>ãU"GNpzsf8BB39Wu?AmkVe(dQ_a*N[#kh^6s1[?PL/&LQet^?oOh//c]H&okuV?G0XãU"GIOO\?_J95KvK4Ja2miFUP8bLVo)h^jl_r\.GZpd+YX%mCs3K2p$NuGjuTLnkzuãU"5#)^wT7;G>rDsvvQ0gckQvv&4l7$&pjJqH7;2*VfLPv'7HXdaDNn-=nuQs,,[PnãU"?cu>qp[$r*btdrJ]VW_N3Gcwl78L_F6Ho;L^0iUe>WixN%GpNjPMl7MkHZ8t5BQãU"GL8A:V>U1ro^jhT^zj.nc[x'Mm-j$^Qb<^ix5WFCTmuS0hT,^hef$^s;eCdGZxjãU"xu[A>%G_rtxJd3EGt698l;a&'vitVbeLnoFyntL5-P7:^w+)xE07?AãU"T567s),[QxN0E9S36F7K)DvCk*;fX$Rkb=lFTd(MLp(6DF4HH/Tn$q=TPk&5MLVãU"57a86r5(5xq[6Zb_crBN9.Vw^TS7p[o+OKAtFiH>hL:j.c-jbfnkãU"39Tm\??xuEpOLOF)f=TLrcPjhL]HcMFSM7LAxLrng7bQsto-U%.a99Of(ZCO2>u7ãU"We2kp6e=Xponp#xX+0rBiU+#uarShmuF7+ASNNKz'ZD_CK6SFJcOitb+)vIJ0#s*xo0;5G_H3=utjZbL%Mb#]aD6KeãU"]BHNWf>ipC?gHhj0UtjOOiQ8H<;>RwcXkP\>Kas#CHui'?7uU)G2Jn\^93qV/ãU"P*(8UqkR#+G=p3U0RcCR8uKn<565Z>=,\+\Bh2HS79FBj=j6ZN=9vyYJI:H$12MãU"[)'nt7H9un#1eBlwgIGr'4Uc8bf=YxB7wFksVt\$cg6Xj0d^f-kz\oj)3+awPGrãU"bdsS^>:UpbeLDlSlfWN&dS*$dBj,0'WVRhfDn/M;lM\?U+rRIh;GSr>fEAoVD^&ãU"]xAfaWj*Vn&TH*t'EY,E06$Z3F07t,VJJ[jCgrWEuj;lo8C-]P5&AM3LloUV:C/ãU"0YoDsbb[v,Rag:gtj?U4*SVAc*0$wyjb+hjSFm)cGw4#Wonp'P03$tEFRzS>Na*JldO*f#xp*95S?K)=sJ5'JU+TE+.MZ7SeMbuXãU"y?tj5FEXk_4WjTpR$6VYA,,)*DY*$#wLAB:s'A^,VnKK*>Achx_UXTZMEcqf,xuãU"Fm4Yn:L&Rf9HoUidgtdui0uaasWRwM&'DhM6>5JYn:>.v;HNxtiqfj[B8jl0uTPB%kF1=utHum#kXxpofaTGTOb'j2c-tasãU"o(jo(k/xJQNtTGvfZdQX.[A6HQVT'BDmIN7>gPq20O$Uk2\f'dY^Uh6-aL)L;mu/x%Dih)?_pd.&=sU[ZEA>/^$Qkn]ãU"4T[xCdZwnExhZdc*VMx?0uhWu0ZpG$xtd205,3[IBq\uRc_b)?g?k$E(H.+HiI9'Tk1q7\#x:'(ãU"kj.Hi\[fs.5G]lRL)*v.6:Y]k6ziJn8*t%QPFTZp,]AKedTS=QZujLIR0s^(V.eãU"2M]AR6jxN9_T#f3hg^jnWkrX3tt5Rir>5XddzjWVrNDKQVAGkRf\(HLTiK&6m8dãU"Qn+iqT,Xad)'.jxXVf/PZli*enoVl_..#T?w>.;[G?uh>cuH\xfppf#r<14xb\oãU"Vg%?/a8:+RW)S$VkY_crY[c2*oCm2uL5HEuv)thtzrPT$G(\[C.EmMrtCo7GrHR9gvZ)MSq;.w.jRãU"9vVZ)MqX;.aN,fw2u%p()9%%%%-4%\UNdMIEr*-<8%+%px%%%0%%(%%kt%syji%ãU"SgfxKNa:BoSm/XpxdxIW<\#_]ASI=fSEZTIFãU":OVenp>*uiBClS&0hcV[6l_E9^p%A=56NpoMfq$DWar>:kaTA^HWB$8JImo5J2nãU"VuMY$XGUEf-p=2&'Ta_36BKJQhl$7_C6>W^6uYv=sR/VG?hh6UCGFXFkHh$r)a$ãU"]HbFdUkFDA9=f;xA\T(&Xl]4Ipxn$a1X7aAve=C$J1''%>hA]aHefA0ugDlVy%&ãU"PO4>3ifZLB=%aFlbX>9B*\&SI-$.1X,^N4,AX&hkP8oãU"E+dGLe+CM'\?AWE2BU$E\e1-PBc&xh)3b$T\V\W4k2_/Md)RzE%5#7HtTZNLN:E[cu15AXfgn)C^b#RAq'm1Zg1g'EAfCf'DfB3meA610O99oRV+pDl;_$t%Kw'ygTGbI.(VCDsYrqw>K06Dset>l^)e+MnMB2#mfha3uPruwXuaIE/[ãU"bc,+U]&wG$0%Eu7oT\rgoHE,BZjC>SNBvIoF8g*:FT]*ChX]8u(gmn)Lx964oodãU"g?b#)HoA,Ah1Q+gsG=dw&OZ05^[^ha[&E[Lci?'npewhFB:iDW-FgA-ah$5c^d_ãU"+K+=X1BsUwvqS8*a?iN<,LihG1)NOB<:P*TIpo#UM.5]3)1uSOG;o64,)RHB%b;ãU"8Ds3':FcIiceI3)KVSqJz980lK:mB=E#2/aCa*Jp_+=UnNv?SZnBcãU"'UcjC6QjqZ/=61[lDQJbrvON\>=wYS+mYf7^;Ip)%\Qc]1geQ4[)R[Gg2v\Xaz#ãU"MLO0,=ce*kv?>0c/v9'#f__MF_q0\Y\;EUe&'E:JNe\oãU"Fh=._;jCErIJ/bn9Y%_ypR;;p;/Fa-B'P<-T+XB'HU/_0>#^VbãU"k;&m2dAX+=%Enw,OJDTy2rU/Q0?sECws.:S*YGM:Q_#wU8[?>7eKJ-Z/h?9>=EIãU"*/,GrvY&XaKAfE^_C*)1bEh;+8[%m+;SaFE9/yDjr3k]g_L=5b:ãU"le(?1IoGT(rNi=b_\kP10--KQSlK\J1Ob(4B&GH\bWq;,35\<6l_+:4>A'^xãU"Bn3>T<=ZhOk$Ee>Y=[+#?f3O5ZvMEbO9L_t#31z1(&cPQs:0=+9UjZK9Lhg'CleãU"P-1^)/q8s[MjX\;/wFv]Q'jUMOs:Ou#G3has\Ec#OcRRUzB#dEl8V_[R(JpK(01ãU"(-PIr)RmIl6a'Teafo%o4iv0$?oXwKw:Vvv[8vBeD,_pYfF*uECbX3&>:Do[w/oD4u_ZRGBS^>I*ãU"=>-;f;$ZTYSw5)p%-MRSYP/nrl/ne.$+dt%2N)*2QOJNt$*Mf;)XXsWCKY&ge0yãU"OTg)Oh\0]d<30>=;4g)#:I)=\B1IvK=yMJo7j=sSZ:b=A08?xwtDtNuj$qnNwd%ãU"jDe%/7%(fOu:X=cDmP.&gM2;B1vIdL'>34[&_U>ZXxKi^9;MHt1En1X8.i>R&e)ãU"?kTThLZLL;.JOWz4H>98NKb:AU'+G\#&f9w/Z$V:wY#Sb^s0C3&*9gZ*>W>-aLMãU"HZ+WSX8d64iqmjm/:32X$qpnrtOlVHn.pW(qoX83yaU7dj>YPãU";mh-UH4)QcROi*hH?#TLI+4%+%TLd:9G-E*SdpIid-troJd(rjr(.jm#bSf9Y5JãU"/asO('A84zWyLGr#:$U,MiR9\6CF_;\^g8)#pN/I.-/nh%05%/ãU"#MmHJlCatT=e%qEIU>G^96b#\sX4;JWiB/e9'.)4G9uJ/['Ik)TTl7\C,&s+gS1<&O0+SjV5)YãU";(ZQsJZW:$hY+#nx=#U_3]/ZEx.D#*HiRF5QJFUKQ%5JZ>;HfO*1tOtC[,bbL==d7SLãU"l$jawA8Q4lTJ:$.Yo,mJ4nO0oP&q>4v/-V>GN2_lYW*ScoS9Q'0)E0tLF[F$f42ãU"L1vutA.f:5nEvt'm-RG2GKU,);Gq[2p6p0X4HXoED.Hl;EzPHZ&lJorpDe)U^K=ãU"6W'g'U8/E75WN9-I7KA=p%/R+MNGh#d-1Enb.&R$/lUF5+K1xb,AIdIz0Z,KljYãU";w;fx9'UGB'FP('+.E7ZVpe/hQi$h40$1i5LHn[+i(]GTHãU"*8kF>0]N.df\&0ZOfhI5A^f^%KAKfntAP+gc/NQmGKj3,.oG/ob8UafRFWH1oe1ãU"_4zTX:YBJP$Ju'FssVzo#6jbRt6OL/z'(D,;gOz97^:XE2+)eMQo%5(=iZ.nR]gãU"D]>wv)Mg5\pLVzeSplkm^-[*za&'FiaM%(eWRDp_q/xO7Q/Zp4zY4*iK%V;Cd[2JE4ãU"7$f[,[ip)b?+;;LKu(kCK\oQ7D24*u[GS7GIHSkmJQIIK_hi,[H-W'Y\U>MaVJ(;Sd7%.S.:u;/M6ãU"SW5K>Of(''NvouJt1g]bq&K9'.\%*Q*o/6_X*&7tSb(_Xu?2^H]ra?3#6ãU"c_b9n0n8iTqQ.IhIXU1Uz;3&uUn\eo2z*^$1c#GF#SY[j$G(-e>_CjhgPUP=etfãU"#Rkz_QPeL_j]UAV>3]he^C2EpR),jecCãU"4LjRRcL,K.C&*l1enAc&^ezh#EL>LLCPiU\O[xFeBhm/'>+jwu?JmbO#ãU"N)ZL2jt37xPPiPQ)_o5omk+D)>qM0rCnY\ãU"o&U:dR<,.(?4l#?+i_C:?\dBI$C6<]RePQbbcsw_b+Y)9iL2kKW'kXiY_Q_\HS,ãU"diE3X>C3Kl26^[:DCcN_0U/RGA5nk1A])g.WHMi$*fC>4N=clWkxgdAV'w$(%uãU"+,Gt,eWglvP]4ZEuZa1.:4^>Jqs0)^RrewRX%HQDh9[OBepfsV^9)kiIeg?c-WnãU"09s1XWCC[gwf:mYDp4vh[z3#FNDT[/R>z1o,X&2d^A9Z>>7dP7'lãU"x4fket[npWBu-NAf[zmvP;9;%cBkG3$WC\5i>Rn?kl3U7Y.#*9zGV>1t\/n0s7gãU"M%[ZRs#h/3ia3Z[DMugZ,SUZ&33vGKqa%$dKy%b_0ii>niLRDdmFN]0IdG,t=N>ãU"bb];j_4]'Q0Nkn83hHsLLQBxYD(5s4'L9s][:x;H0?UAx38RCQOzGZ.;.lj;w4Ew7ãU"7NP[CwIUtJS[4S71*-/Lk=,&1q&M?,irlOK8vehu]9$xsV290aawp+tZq6(ixGEãU":?G3+^lhd&Cfgj)ogJZp&TaTSzjGRZ7qrV5L2T,'1E.*,o#'IZF9XsG<^c\DxWiãU"%,v[%W=hO,2?vF6rYN3qXcrMz1&:onkl(R5sjD)8KL;*YNO:X[EqSU7)i?Gc%2cãU"6E+Dm+woKwP5\_s&9>wwpKQm%(+Kzv/d;5r>T:$'ANNuhZ[[BPM3jfLFqYUVoR>ãU"//HfV\=37B6ppWpKRi_,Jo_K<97BE]%pS'jqbH=$Tkq5^2Or<*+\P<7ãU"CI$Rw,)11:B)oMaI]TW==ixhB3^L4r3W[(=YPSd88vE:J1(dRmwBhãU"L-LSL:;WEL20k$_-w[b1VrOg*WWaOwt,uK6\Gx93Sj*qkmSCfwGKbIXUy^iVK>qãU"xi&h_-pZ1B<8#%;a,+tFDn/,?.))Oqi*c:i>Ccw>s]laL%U61<$X:+>:UF,B2);ãU"zVOj7UUJ$]KPv#o:3SV1Pt\NW,lBUyaVdKdH=YBqfH5,)%hlRa:t0gHeYv'96ljPNYWpSqdi[G&JDIãU"ãU",qW=Bh5,S76;MwAP$4msBabY5:j0jBY>6xp7,%on:_UV2lt--^]srWZqr6+L8nqãU"D;sxojwRe*I#cNF/xOC.MD%[u[m76t\eLFD+F[QbLx%,up(%)9%%[%-%BA\OãU"MHi$Bh6%-%%,%G%%.%%%%q%nsjx%SksyENhbWaI#:#enlr6F^,Q22p/Rj,)REAhãU"=s:=/A_SGH^GA;%EI*/Dip^^VV5--[9MYCu%IY]jg^Q>[;<->Lo3Zua>gkDCFejãU"ktU\Uduxt8sWchW^cTl.bX:VL,n,zvcQvWzyZ'rh\W8YA>j,Kd'rB)1K;:N0;Z'ãU"(2kbMkyhSml+znPa$csQ0gDqCvNkPzbHFVCdgV^7&tStvD/)>y:.X$knSnt,HG3ãU"ThoP%VAelf-^MBt(OzRbJJ>-+B]NJRA\TPruGUXAaD]d+)Xcpn4P6UIRaymXDS2ãU"9m)t4WAR$]o3*PdXgtVqFqpafqwlEV>Bgz3hxbM)eR4vS3SYmxWhM4mT73XzZ/nãU"lH0V'h_bN26JEJN+\e::N+8Y00'R/f8Zap8[2kXJU4aekB/pk5eU$dW*S/vtDG\ãU"xMobNP>ism5J[lPNg*:nk[b*ZplhHH8bT\YqQ9*GMYhL7sCTxq$Sq=x,+>D#mlsãU"GDQ\1SD+BW[x*tAkPOUX7-Rg?x3AUN$Ot^fz2(>ranu=C\B'HH-i\\z2^:k(f+[ãU"\hB2hgZ\?&'v^kdV\dW8LtFH,Rn4$2A8pSx\;UCx'F_Xk;[m.b0.tUCO>:[tA>WãU"\frp#M'VTQ3._6,r0$R%kDO/X>>G[jd3dO(Nl<%cxmV3TxZ0)i*G,NtBX$PK^omãU"$pGsrtpL5*YH1#?rj[T+SW\hiDvon6*5QY<=*/m9q$olH&+R5qFUn*ftRi0w:Mp)7tVZtvX^:Z?2dhXngqHfw>KNY^dx_b>](mVCfãU"j2Eu.)Nb\xFu^n2xr9d1-eBS;T5/l**b\Q[*.RoRVRhd]#gMpdY3+q0AC=KMnSQãU"BPPMl]XCkl0KdUsoWL_e>^f\gdc)G;e[7N$)?O_Z:2\nN_jnKXK;7gH=qTgmc2uãU"Dj:w9#j[xi/s=2o3uqPIG7YW&o9jV_ZZIk(RA._G3dEV?\67?NhM^gY\cvx'\;^ãU"#5Gh.R=Bcjx$sVf\xjWmTXrt]$XI]xXVwihUdR+?%YiUDIa(hjNU0Y<[B,-k&maãU"i$Wou,DM]ouq$IOist%d5rUEEm_kKRT%iGSNh(2\O'jsB<#S80&6LrriYnp-Z?HãU"QtfKJZXYQWoReZU\-5(I1f/^Aos0GL.fWTj]Bpl;=A50nH7rx%lhO=P-R[+4vXhãU"%B$x4=H>EEcM)T.#]MiuD6981_fNnC$dSU_;kYJKkdO.^65(\KxgZNsNpj4kXljãU"k[^YVwX>epgHuxQ#cwhHsKoV53t=E*R-)H^mcrh+w?da^5P%SQe]SwD^ce&;,j(ãU"re3UPN.Nd*rcxPgu^+i8C]i-uNt,[M\1u3N*9C*CGgTFxddAi7rHcLz5vQs;DJLãU"X2MvO3u:Mp>8k/XWwEnI_'Jiw+ZnPe65HAXl5$$,re6a$JOXRIgf[NHnN2unWtAãU"gwslwswjB?e1)B\\abASQl4<#NCMCY27?7kxm>ãU"Ak8#?[x3i3w)Idl%^[x6(j],b1utV2goLw]w$EKOUod1)^>b99Z=mRtm=q8UTDYãU">V2MGm9mBxHVIQ'tg,PNBfsXIGb[Pb$pdm8.GTq\)vlWVP/=hs$A;DLuTb+D;x.4^1sb$tW%YDcGtqK^a0?A0,V=B4QUãU"lw7]&1%:XclR_>dKtk;mgxM\,AgD,[QxX/DkZx8;tNT>8Ynx(BjB+7>5NBea9xrãU"rg5e\N,Mrq)q]#^e6uTlHjR[Dx$98jOq5;NGtjax-Yu(XIsaBO4uM6]NDgKN\o>ãU"cxG7NxY36l5+3u0F8uB]ut'x>(YxbW.xANh*-T&u3[X_qNlV8a98+nq2O/g_6MdãU"xM^k41$u:n^8.^wVu.rt.>X/vO'rRpA0xp]Pbig$wX0%\NtVrXOQxotr?OQ?8GlãU"xD23w>QL+ZarCZq#rN5^uzJlwSmnahi2_c$qv;lXs0uV\rk&R4Q1=*'+POb,u0$ãU"g\mNX]jdGxN6SNLp3N,br5R8c/Dg,GWxJMu9?/8TVNc00tv'rxaEiT2R'72g;NJãU"wd_nN>guK.bT9gp.R)$N+o;uTF&pD#x\sb]sh?xdaz6Koe[NY.[sNJO7uFsfwov6P_NTQiHgr;&d=:Wv[H6;p5>Zpxj8v5ixwãU"[qmNl:FPdIPKQ[7Zfc\81ug,fWxjw[fju^q$Z=S^x.orãU"RDMVlv]gkMx\:9r;S=GUvdj[d;BtddKtupxC>Zbtv6XoNyhE(B[UwJv.u,H0ZhDtJ#;SB5K*VbwD8kmGLYm8f=KnV^*?tDjTlãU"$in%ui(W.2>l,-6fqAVlw6GwpOH]XRYmx+s04C8TgtãU"HvuiOfz%oATbxAnzr%*%%1%%%%r%pgnt%xV[S#gfxDgy,>S.U9Llf[d+n,ãU"09?5/8,:LBnFNp%jRYHsvNfFRIKjiWQ$fw?\Xh_:DT'5LFVkJ?gj2L;%ID,/f.4ãU"t)NC$b*uTNx.um$mAahIAkyY\bU9m$Q'dpEa(+u:M&$vMoA(-jP>#AQ;Th/-O.mãU"wqNiacqUneFhE\,a*oJCY.T/6H'e^o1hE3BzpV2rU7IKCQUSEcETsT5.r)mzvc8ãU"]3MrX00]4*ãU"JHP'^]QT9j/$dMX;^92EJPLnwTAbY^j//R2\mG8[U--1I=;&/jmrr1MHM:IW<7?ãU"WLQ&Jjom%GP5nuCr7/2d,L';&nwzX7kIDeV?b-u1weTcCASNr1:X1L2(a9?,*)NãU"Z])R_:,hj27i7Rg]k7PwZ.8sO&T6#FF0_z$WD:D&/^]S%f_U8NN,eJ1zffPgJbWãU"_#Eu<777:kA0X6l_Zzs-Gi0eH/Nr4C%870g/k)P49HP*cA'eqmF$&G:UbPWXm96ãU"qvCu\GG)]p/B'nd:_F:VhM?khsB:6N%1q'zCSZJgYBS8gmqU3b9Y(LydVK49?p1ãU"3B^(\U*O#qA>os^-vUr%Qd<.,o)=3(Wq#%JvY8n)WãU"A;Py>i6*)/a697zb,]#,'oh3:?6n73SMf8n7^AeHYmX3^X-pUVQ3-$q'dãU"'aB_(w)uRa/?Z[eTvYBW)iT%7<ãU"yBe6H8*vA?^k<3&JX%D_leG7$PMPj)5p$Un_/u<3?&VfCycPj'S;Rf*%)Q>c7Q;ãU"W.FYz]>\n?(+dpMnyja]=iFq:l3*mP:IHJm^7m_(Uk&b;K3q8D+e,[ktcCZ933\ãU"V1)i9iF\.4jlAK5So2kwqYd8pu-T-./FKOU&c?;79Mh8;*N9*rJ^rZImlkC;]LDXZszG#Zmrg&J4O3NykfI)_GqnLI/#&p+bCC)b5+4XãU"'CoTc;KPIXq5?KJ[\hTLhY?'=?^wi&*;W9x(A[BWCp7$Up5%eaS^+TZ675j#Qj.ãU"&$0NLuc6(e=\$qC+R$OfLNU\g\J0T4m-pR=Tm\U2]4F;G/,GãU"Qs$]?43cC9y\V:S.vsZ1-.OT1J?F1SH8M2lsM2+6Vps9dg5ACYmXt:#bhA;0+Y=ãU"&WXo_J&tcs&]5Mq43'fU;4DL6A['a'Na#C6aX,<-d/om7[g*]Awfa$ouY53ckd_ãU"=%M=>wdaAMe+DvKqjPU]?HdZF$LzT\385dOaY9S=(igV4ntJ+bhn4'7H^S4A-8%=l%hmrãU"MPg,Ud&$6EVFY9jT[HsSSdvGtMA6fkzEeL?$emNSmUm#$nC/>T9T(/HLa?.T\xSãU"01\_N%%up()%9%%%#-%($RRMuv84Ww-%%%,G%%%-%%%%ym%nsSkRsyNh^dWI#F:ãU"?DB,rV^]Ci*A7kR<9&a\QuZ8/;4>.?XP(%J+*/p32OB^*R^in'Ydo.UArj_W2u)ãU"VA/E0%L/B^d6Qz<]*HL?.U=RA4=,Peg#[6vu6h6cr'mbVf6$C_ouCVLun8cv]czãU"zp-u$Lx=6Rfn_j=hdWIe5%XbRNz?K4I_V6f3\aa05c=Ug.McVm;-i'8,4jvf<3iãU"^HQ'c$fU?P9R]ARYlMxk)0+T>d'P=>v=rh-x4v$Z*V3\Uuj/^sdO1u4R0=-_FyAãU"TV\Jusl2d%/1mAZZq58>gP&B0:?e0]l9k\mY\$q/Q,,ãU"]Sy)GxIAFj13z]-]tXRxxM0dtkw=<(UWfjoVM[WZ6hH=QdupKEXbqXJ0B27.Q+PãU"cl51RXivvJq06nPE2Rc0M>miCZvIokaD6k,B_ãU"MvVne2]]xnPx.,MxY+XrRY]iT6783$$)0m^$JcS4eSa/88ãU"mNnDHYWtni+=EF':(guXaRTi#c,Z*_:dJFAH5nnMO#rn#pXBmkc#;$eLC.I^r*VãU"CsrKjYbFq(qHUI,Cz#Fx(F6ZXXYk(ujAWu0_PqftubSKxrZY2Ng(Z0xh$2EwFfyãU"dNZNtCZ][fCt8>$UUF+yG[jX.$NKbGg(d.2-8he(]x$=X6TISY7kMnF'd?fxk8CãU"QpE2wrCgs5\MCAeu92F$e_df:lHmJ.hD:%ilc.eqUz=W#vXd^h7Y9Pa[dHZQxnAãU"$[o,V(Fr+<[H63cPr*wH3ãU"OJmf<\d8HGf07#Of7)\6F_C=^S+;3dCdlb'*_IãU"=bo0h)Q09>+h2X[TsZxHsPxUr6#f376l0gqniw$/__dt'9VdoV)5lDXtX>OxLq]ãU"tHp'Hclo]41onoK.xQ$M.&$uZ2wb9#KxINngJZ'?;2pE\4rDsh)EnpaãU"1lOnVD.vNGTM(U>Dfx'e8_bXke8Op]pIJxt+;s8[htvda)wP]laqM%Wd7c<2F/tãU"9/;_+#jo$>6p_1C#<]*[?7gp$d+IxL:eNBDFZ8D*V#[k=BDP->[s?LZFm$W8AH#NHzgg9xdãU"BT>'Eq4a#u0ra78$1jDCv%slrp2TkMx.V_jRt=P3cb^e9F_n#^H/n2Vwh.yRDVfãU"C9]vd6ode\Vn4>G\9HZ#wãU"%WdVS1%epqIPDw5n=x]S6QT*c8\Gh//i,#9w%FmSbZ/_xWQn8Zm0nI2oOS82>=wãU"qxw?e5(Xu3ox9o80ws4CpgHYWrp_&mm]lKuZF(,l^Wva$7fda>xJT6M.plfw.5j>Y7ãU"(HZe)NaVxi7Y-ux\WYxqTiV>vi=<=.dPUJxq^V(Mc[F,]d+$\nzu]pn$q?x=r,fãU"8T82P4=N[g7PIFWxgn:Ft?6NN.Vm*o3Q&$u[6Cx*HL<\Hxx/ufIMz)Ad1OrHcu]c7GDN]_n?9xn1jOz^&1_vG$x_6/NW:hZNCr_=#'Lqk1fCN%wFMA2nBeSd7iixgp\GYxãU"c;L^0LI8aq6<^Xu\Pcx:?xF.W25(cNYSZiP66i_3:3ujwXGTx1nkbX7rNKud1>AãU"ua.DcJP*<6dw.yZufD$WADuD&>#cZupA>V,]uMu=5jtrX'mu*kFnItKxLãU"vXH%xXI+O?Z'$ZiV,-$jkq7fqtb>Om2ust(CTFZ8wY;GTz6>7HtMrg;rnKX5Ls-VuFK5S,-JãU"lnayYuSxRj)weH[r0pHY8S([iQC^mJhChZ_j6IlxxC'Un*hxVLx2mbNL+ãU"nG=/>9Vb6t&N^oIy9vdA\E>Nx1?wfvah>\\^=jr8?>1u;dI#OIM>ZTAj27&(w4.8H&p5X%)4ETA3VA%4_5_pVPK\#wãU"A'A'nPZ()Xs<$*'(]g=cVB1suS'/Pkc4bHs$9,J];-K/0u[&V1ãU"_Q;/fH+i/5s#ElUlrTP^H6=IAC.0Ek6j1$MYLs0[wEuqGK3h[,T\g$G)\f*Gd]<ãU"u]Yr1/4GYrm9bM1s5OUDG;I\k)Uom50*R*IJk&eK7WcJYãU"L.-5u4WPY?_7TYEn-<70Wt_XZ^pY<#&mbDTH8Dn5ArKa'j3vrM4O9+jl?bYb[x8ãU"t8m1_CdWOl#V/Qc,mfKj[()Ii.)qG:/'+=LkOB&Glh'n$t=U,7p&Jj('IGCq#hcãU"/bM/1A,\V_jub+365TC>QXnj3I'AgUXY(E-[+R'/,&O<#Vr1eAFl$DffTo]R*#aãU"\U89Z&_Imq8)&]5c,l:=$9l,qKu&N&oa;gUaC:e;rUf/mk#Gg_/[QI^49q%.k^ZãU"kLMO(2Ygn6(ZB,Ay]m=3V2%8M<7EGAFejY>0T%#WjguUO3Cs=krIj-R6pmUR\7GãU"puAAknh+x/v'KvBxg#:'3[cYBMdH'oS7xxq:T$2T(r4SKfkhshXuE#K_WC,%4H3ãU"$pSAjM_S\u#=SEihp'OQ=$j]e6U2,TlqJ$J&A/?F_:FV'XF7WWQ*=&8VnA4t7Vc$T2Qmbp-Q^R4qmT_GrUn*?bh#X>[,kz.5=-pZ,#Z?\\KLi#t=.)IãU"N\K5'rj.U^D+:pGcP2\E;F3KH&:OBo+,A)kB?F+;p:WH:oefr[,q9DoAfj9v)+pãU"#mj#^wue4AZjO:K+Jz#0ZIoYj1?g5&+=oLoãU"iID1K9C#%LN.,-\PuF[jXE+XpGP(I2$KL>SOVms8CC%6%GjpGBi*d_tMj:$G#G0ãU"Z&XiG(PXcc00S.$J9aLQPsgVoV.'$zHh#LSH9/A2KkBs9bdBU=Jg6*:uoM2I4buãU"ovd?(F)AgJ[h$(cqdJ4]S+v)#1'JWO^iWS^s%ãU"L2_?dYvH3RngaDi-V*&r(071o>w3PIZ2wFn*e\6Ucpss90uL4i3HzAQVa<\C>7EãU"KY.LS.]QK1,](H.&7zI+1QRc8Sfe0o*GCAt_hhQ1,?RdUFb?8e\=-Uvm6m4o<.5ãU">#wK8\>JU];M#l_fLXZ1J.EezeS4gbb7X9[XmZ?\'PZBmk#&HIc&\:ZJVt5)X3CãU"^-*4SB6,28BO22F#ZKE:giqHXNh:,Sl<87Cl1SI4fFH\f%^4BDAp^=5JcBNP+wmk4_S<2j[r^.noh;gMAzãU"4[R#yc+GOdI9e,icIKcT?(RbLeF2LAW8T+fSD)#1T;&ZLdDaD&1lO)vuM0X[Z\kãU",ls)>uru?:AT;)15zKB5q&FZIH&qc)l^>>50*Ag\[6E]KG0?mOdD,%-'J=S/?h.ãU"gFl5n[l[D?1qI(:jqz\jc\4Z+1K3kOy7'uwC%^'wNf9n':]Y;XS64DwxSTKk^tUãU"i&Z(.$Q%qqZVf5LaZt+*,f(AHfO\:L#g1SE+3_23x+mFyX#s(G1-xIg6k;H/xk3ãU"oXvP(^wSTgQumjs%ed5(0%/Tr,<2Jzc[OUU0L]A&e2Nw?fidk)YWMHi89H+zcMEãU".Ri]n%[UhZSkF\qb8o(Oj=*cy;B26jKr.yD7xcK)C2Vp&=qVãU"Ip/D<*'7_\',ti\FEkq5w]kPtHM1tfg9acUY88A7hzWT[Q\yjbl*N1JJJN7Z*v+AnTPg$=ãU"sIKZcD:dvAGRbZVwKiQ_La/1n*4aKpNzA/AF'xPod,,Pt)_BYjl50X;do/CHgfkãU"-&]HBL:+P8ZP+AG[mt]EJuD/R1qdF+v5-prV\ouVX9OlO<;F*%g+,A$'C\4TrVZlar>z9ãU"YISt^:V;f;LK??LQtU(P3;AdFiudr[g[cQfE3.vchmg$G)wLjo9:aBrJ8:^#dd?ãU"ksZia3rp9*r*\O;ZHpPjfhOorKr$#+NffeVzZ5)rhCMBx%Xs&'xDab_wfrNIE*EãU"/(40]o3KM/o-w$Cgz-d+D1S1K%lD5AWhxFdI0xg]A#(cgoo4=ORQw*,0JFds$5#ãU"$BN==93h9x]F^RU6[^_m(HJJh-_(ssJ0^YoE:_?Rw+lRWv%^qiyt0P2JLvOTs1UãU"c+TX<>K&N>NeO9;^B1tjo7k7JS/heTMB(q_o[ii+%p&F^9o*P+.BziT[H,0QfvXãU"%[cTYpe5V0TwRX3tDBK^rD,+5*N*Als8SK\TsvpeqDHt6)=]6tl>No.q](C_lHxoDH5Ncn_3InNSobpmRu9#ãU"L<6gl0+81x_j%j2HGX/v3lqb*Y?A:\WOibAqmZW8U8ZaCod&Kc>MãU"GgCS2WoH,)F)/Ho,#j,=7XlGFTimW0uOMOkapNcnB\]D5(PjC^h&QIFvãU"371$&xJX$8VUvZ^jN^*J(GpSW;K,c9nc*;uq61Gw'8o.cxpm.&d(a+?34zPG_dcG6ID>W-,)ãU"^:saWSpJ5DGD-tgmlE]fmSoZ4?+*\ki2]W8I#&8gLqnZX?XZZRF5/6-cf&TãU"MOps9'N:lo'Z_YaY)j<]0GW^bMJ'F'b#l^F^%)eSfGT9oH,t/$haXJ37jHC+b>QãU"=XKB>5>cirJ7$KRI7OYVTrDofIrQ1gykkROyOPBAzX_IPD]+mR(2CuZAJvf/yINãU"QZ3a,5vcX^&^k(Gq9Dzf8+=2OqTeT%kDsINg\VHa.g-]R[-DKhJ+Yk8ãU"=fl./pf.Bi-VP55=WkGVWiTC&YdlvvdVut.6rWnlpXZ(7/:/Ez\gYn4S6CxLw4ZãU"MpESV^^M+*;U:F8faB$nAt(Ak#r6C$b[k*A]vZaH7&g)IfknE3*u>U7+_g6EOuPãU"%RHCrmllo2(HiGa94utWMscNtqLFvU7D._4hk;-Jn(;SX6ZcGe>^eTmO+)nDu%pãU"()9%%%%-.%mGN(MZl\,S*-%%%,G%%%0%%%%ijk%fzqy%SksyE^hb:CA&9UU4]6AãU"0*=t#+QZemS$G>_C)J.Z7Bgwg'sf[#dI&vcrhAJ3l8sZ\eR#juEKU.HG(XpY-4oiND(br)IXZt=T]vd^x.3ãU"V3nqaAt.^.DHsjz-%vkWai7abblKUF^aPr(SInIbQ*6,i7&-O.Z6$(8Mb:P>ZCoãU"#24Hec>pC9N8e8v7#tZUlB6$WecxGji9bJ1nN]xAR&o?)ãU"Bl3PeVI;lF?tKra3xi0PLjKukkL;Qv*PKTkY1fuTomDYKTyfXFI%lj41X.Nl;psãU"gwSt&W_O$2t9Z*sR8:hkU8raNhDH]iJmp%c:Xo_F=v%F3NBPW\NzSN\w\l4j^O8ãU"%No#U1hpY&3*1X8.ox9*Vsx2^xx\0LtY:>\2G6h:.E2gX+dd=F$U\)_ãU"buLOxo4zL:]>eO8vNlnx-u&65FNO?+9xxD7uP$68vlVNP;HnYij.1%ysBdKZ?D,ãEND SUBãSUB V3ãU"[(wxr6:rJ7JIaS,at]82hYkLa89+fahsu6MUf&?wYj,pk2EnDoGB2f9kj)ZE[6yãU"vD.QnGiPzGHn7ElrrG?x0%[uVl(+[x/R&>_;_YjEn6rooftr,_W%gx)yC4i=$t4ãU"mTM.0vqHZZE,UimJ*#64K41vOG^7J4w*-OW0_8Tk33^wpd13N3[>#XHkXhH2nNQãU"cm#KN-PuAN[K8*5tac.l43DQ]x00WbRu#HlP]/c[u,[+AP%BXG=lxl7&Wwn9mu?ãU"I6k,&falMYi+Fc,s%fMF_A?.N$icR*RF0n:(MKT+&$uc,MzQ;+du3=SNRs)ZNHtãU"P)uNDHdCVf6T6#WsVwP=]heL^E8]6^/e6PNlVY6lK(:r[LEH(E0t4\,Q#2B5&SZ?tcx?5j#KcuãU"=XX^b2-sZBx46LR/nB.0BJpkHXu1]#IVgs4(_P)x-3MWtR$wstegF>^t#lRcQ:YãU"Px-pbxxE/+O+WJ.z-*iavE2PDarOazX(?k+Y/UãU"_.3A2mK:DrVBZE=q^tl#Pk;l'-rdnRRWtA'UTu&gi3R,Nx#J/XSeNM-CfNNmUwMãU"6r5=j*4k4Wk&vfVgXkn3ZM.C$2D:M>z'bcbMFiHIw\)2lagrPCArq*Wo2/r8H:PãU"u*2IZtR.[hafrhf5$gaeeL_8(=u]8DrW^'D_in9[L\?[Nur8#fNU/qxJTw(mwj6ãU"*CMaHxF$5h3My=OQM8>I?necXl<#fxfg.oXf4ur0(LqJH>bRb$q2wu'7oQcrwxBiOZk5x>sm]XIlXv(GqjHU8)gwcZwt,ZXwE>n/2We4j'xQvVdWjM>[SjTk^]nJn)Gx-ãU"c#8IRGi8QhVudPDiEB$x>b983EuF^jbauXJg\W4w>>txj)]l]7dc+7htM$pt6x=ãU"HkrmNltXhp49/tSNtb(xsA](TVwg<0F*iq.reMUK\,urk6].o$q6stkINk0GlxGNYLku\,r/y09M8o3SIa0a>NW\dZeiHãU")iuF%iuPj0Y<>Zu4u1+5<68[;OGki,WtS4Y8>;x8:9qQ2pXb9iT;xcUãU"f*,oREZ'FiwHkYSvGq.Ve&Z8VRas>:3T5hLR&H;hTo2rXyFxmrdj]H&2JrqSH'fãU"f&NN>6l8L:b26tv>KQs_NOr4Lx,ZvX[NuxvXqU<',m?xupD$\N8EhmBF2c9vz8P]E'1chx.ãU"fWNNxhND6qvB1>k=tk/_1j3Qy9UQdW[.ZtTT7Bxoap2D$a-T7DruU''rDjwV1rtãU"<-0BhdO2r/k3]TH&ouq,#FX*9J/\i?cJ5+KvKJDW$xmhtuP8GLV?1mD\vpiv.%iãU"nnSi(&3As3_2fGxXV#l>UL#&if/JMXs8E?Gb>v-)sMfh8q4v]ach8Ovkmt%kckkãU"GXl*&=tJLb*7FdaaDW$L5MY1dH^B'InwXne\mmA4WFN2GNwL8Nrn7(knãU"_tChVG,7Lcxx^0bq%dLE3D\(l]XL7Q*[8h,kE?Ta,vlxupk3qITojN2FmM[,#hcãU"oq-exTsF,OVjixjI;d6kObA5+4Zk_uN=vC)L;E&rGsaxTu9Xcr\lvx4]%Dup&%'ãU"9%9%%%%-4%S%NRM/Fs*C3-%%%,G%%%/%%%%%%%%%%%E4%/P%%%%%g%ntxV%[SksãU"%yup&%'9%9%%%%-4%T%NFMX9)%'m-%%%,G%%%.%%%%%%%%%%%EO%/P[%-%%g%ntãU"x]%Sksy%up&'%9%9%%%%-%*\UNMpIEr-&<8%%'px%%%0%%%%%%%%%&%E%*%%%1%%%%%ãU"%%%%&%E%3/PDR%%%rp%gntx%V[Sg%fxup%&'9%%9%%%7-%1s[NMeY4yM2(.%%8+ãU"%%%0%%%%%%%%%&%RE%/P%eU%%%rpgn%tx]S%gfxu%p&'9%%9%%%%-%(\$RMu_v4ãU"Ww%-%%,%G%%-%%%%%%%%%%[%E%/,PEX%%%ymn%sSks%yup&%'9%9%%%%-1%D^S.ãU"MPU*)bJ4%(%/d%%%/%%%%%%%%%&%Ej%/Pi#a%%%%ktsy%XSgf%xup&%'9%9%%%%ãU"-.%mGN(MZl\,S*-%%%,G%%%0%%%%%%%%%%%EO%/Pb%q%%i%jkfz%qySk%syup%*ãU"+%%%%%.%7.%r&.%% 0 THEN 'write bigger textã LINE (50 + x * stp%, 50 + y * stp%)-STEP(stp%, stp%), POINT(x, y) - y + 1, BFã END IFã NEXTã NEXTã '------------------------------------ã FOR x = 50 TO 50 + stp% * ((LEN(Txt$) * 8) - 1)ã FOR y = 50 + stp% * 2 TO 50 + stp% * 18ã nc = POINT(x, y)ã IF nc > 0 THENã FOR adx = -2 TO 2ã FOR ady = -2 TO 2ã IF POINT(x + adx, y + ady) = 0 THEN nc = nc - cg / 25ã NEXTã NEXTã IF nc < 0 THEN nc = 0ã LINE (x - stp%, y - stp%)-STEP(stp%, stp%), nc + 1ã END IFã NEXTã NEXTã GET (45, 45 + stp% * 2)-(45 + sw(1), 45 + stp% * 2 + sw(2)), TFieldã '------------------------------------ã CLS 'Main program starts hereã FOR atb = 0 TO cg 'new colorsã FOR cr = 0 TO 2ã IF clr(cr) = 0 THENã col(atb, cr) = INT(atb * INT(atg / cg))ã ELSEã col(atb, cr) = INT(atg - atg / (atb + 1) + 1)ã END IFã NEXTã SetRGB atb, col(atb, 0), col(atb,1), col(atb,2)ã NEXTã RANDOMIZE TIMERã DO 'Loop until keypressã FOR cr = 1 TO 2ã IF p(cr) < p(cr + 2) THENã spd(cr) = spd(cr) + .005 'increase for faster moveã ELSEIF p(cr) > p(cr + 2) THENã spd(cr) = spd(cr) - .005ã END IFã p(cr) = p(cr) + spd(cr)ã NEXTã FOR nr = 0 TO nrmax 'backgroundã LINE (s(nr, 1), s(nr, 2))-STEP(nr / 6 + 1, nr / 6 + 1), 0, BFã FOR cr = 1 TO 2ã s(nr, cr) = s(nr, cr) - spd(cr) * nrã IF s(nr, cr) < 0 THENã s(nr, cr) = lim(cr)ã ELSEIF s(nr, cr) > lim(cr) THENã s(nr, cr) = 0ã END IFã NEXTã LINE (s(nr, 1), s(nr, 2))-STEP(nr / 6 + 1, nr / 6 + 1), nr / 2, BFã NEXTã PUT (p(1), p(2)), TField, PSETã LOOP UNTIL INKEY$ <> ""ãEND SUBã'------------------------------------ãSUB SetRGB (BYVAL c AS BYTE, r, g, b)ã'------------------------------------ã LOCAL Col?ã ! mov ax,&h1007ã ! mov bl,cã ! Int &h10ã ! mov Col?,bhã OUT &H3C8, Col?ã OUT &H3C9, rã OUT &H3C9, gã OUT &H3C9, bãEND SUBãMartin Grosen COLOUR TRIP V1.4 m_grosen@mail.tele.dk 02-24-00 (01:06) QB, QBasic, PDS 1982 52572 TRIP.BAS 'ã' This little demo like thingy was designed to run at fullã' frame rate under QBasic 1.1 under DOS on an AMD K5 133 Mhz.ã' Machines faster than the previously mentioned processorã' will run Colour Trip fine - even under Windows.ã' You could always compile the source under QuickBasic ifã' your machine belongs in a museum...ã'ã' E-mail comments to: m_grosen@mail.tele.dkã'ããDECLARE SUB Display (mode%)ãDECLARE SUB BlinkingStars (state%)ãDECLARE SUB AnimatedStars (state%)ãDECLARE SUB RetraceWait (periods%)ãDECLARE SUB StarDraw (x%, y%, size%, InkBase%)ãDECLARE SUB CycleAndWipe (cont%, periods%)ãDECLARE SUB PaletteHandler (state%, CBase%, SetPal%)ãDECLARE SUB ColourShock (style%)ãDECLARE SUB PaletteFade (cont%)ãDECLARE FUNCTION AbesFilter% (scale!)ãDECLARE FUNCTION BlindAndFade% ()ãDECLARE SUB ColourGenerator (state%, r%, g%, b%)ãDECLARE SUB wipe (WipeStyle%, PalStyle%, state%)ãDECLARE SUB DisplayStart (StartAdr&)ãDECLARE FUNCTION DripScroll% (MinColour%, MaxColour%, Rng%, RngSub%)ãDECLARE FUNCTION fireworks% (periods%)ãDECLARE SUB PlasmaColumn (c AS ANY)ãDECLARE FUNCTION PlasmaFull% ()ãDECLARE SUB PlasmaInit (c AS ANY, x%, ystep%, smtrc%, ink!, crange%)ãDECLARE SUB PlasmaRow (c1 AS ANY, c2 AS ANY)ãDECLARE FUNCTION PlasmaSplit% (symetric%)ãDECLARE FUNCTION RotatedLines% (style%, periods%, RotatedPnts%)ãDECLARE FUNCTION ShadeBox% (xangle!, yangle!, xstp!, ystp!, periods%)ãDECLARE FUNCTION StarField% (periods%)ãDECLARE FUNCTION WobbleCircle% (periods!, twist%)ãDECLARE FUNCTION ZoomingCircles% (periods%)ãã'ã' V1.4ã'ã' - animated/blinking stars (effect 19)ã'ããDEFINT A-ZããTYPE LineDef 'used in RotatedLinesã x1 AS INTEGERã y1 AS INTEGERã x2 AS INTEGERã y2 AS INTEGERãEND TYPEããTYPE FirePixel 'used in fireworksã pixx AS INTEGER 'current location on screenã pixy AS INTEGERã x AS INTEGER 'current location of pixel (*8)ã y AS INTEGERã stpx AS INTEGER 'values to add to current locationã stpy AS INTEGERã add AS INTEGER 'value to add to stpy (0=stationary points)ã ink AS INTEGERã frames AS INTEGER 'how many frames the pixel shall "live"ãEND TYPEããTYPE rocket 'used in fireworksã x AS INTEGER 'current location of rocket (*8)ã y AS INTEGERã stpx AS INTEGER 'values to add to current locationã stpy AS INTEGERã set AS INTEGER 'what set of pixels the rocket ownsã state AS INTEGER '1=wait 2=launch 3=explodeã fuse AS INTEGER 'delay before lift-offã height AS INTEGER 'nr of frames before explosion (height)ã explode AS INTEGER 'how many frames the explosion lasts forãEND TYPEããTYPE PixelSet 'used in fireworksã free AS INTEGER '1=free 0=occupiedã first AS INTEGER 'first pixel in the setã last AS INTEGER 'last pixel in the setãEND TYPEããTYPE FADE 'used in Fade____ routinesã x AS INTEGER 'horizontal position of rowã y AS INTEGER 'used when fading rowsã ystep AS INTEGER 'distance between peak pixelsã ypeak AS INTEGER 'counter used to find peak pixels (PlasmaColumn)ã symetric AS INTEGER 'vertical symetric: 0=no 1=yesã ink AS SINGLE 'current colour in row fadeã inkstep AS SINGLE 'value to increment ink with (PlasmaColumn)ã crange AS INTEGER 'physical colours are 1 - crangeãEND TYPEããTYPE ZoomCircle 'used in ZoomingCirclesã first AS INTEGER '1st and last pixel from shared pixel arrayã last AS INTEGERã radius AS INTEGER 'radius of circleã ink AS INTEGER 'colour of circleã xangle AS SINGLE 'sinus angles for locating center of circleã yangle AS SINGLEã xstp AS SINGLE 'step values to change _angleã ystp AS SINGLEã z AS INTEGER 'distance to circleã zstp AS INTEGER 'how fast to move cirlceã rotate AS INTEGERãEND TYPEããTYPE AnimStar 'used in AnimatedStarsã x AS INTEGERã y AS INTEGERã ink AS INTEGER 'base colour of starã anim AS INTEGER 'pointer into size arrayãEND TYPEããTYPE PixStar 'used in BlinkingStarsã x AS INTEGERã y AS INTEGERã ink AS INTEGERãEND TYPEããCONST PAUSEPERIOD = 40ãCONST FXMAX = 36, WIPEMAX = 19ããDIM FxRow(FXMAX), WipeRow(WIPEMAX) 'order of the effects and wipesãDIM WipeChess(191) 'locations for box plottingãDIM WipeBlk(15999) 'space for pixel-wipeãDIM StarInk(31) 'colours for blinking starsããMAXX = 0: MAXY = 0: CNTX = 0: CNTY = 0: MAXINK = 0 'global dispay varsããFOR i = 0 TO FXMAXã READ FxRow(i) 'read random row of effectsãNEXTããFOR i = 0 TO WIPEMAXã READ WipeRow(i) 'read random row of wipesãNEXTããFOR i = 0 TO 191ã READ WipeChess(i) 'read positions for chess wipeãNEXTããFOR i = 0 TO 31ã READ StarInk(i)ãNEXTããRANDOMIZE TIMERãFxCount = RND * FXMAXãCALL CycleAndWipe(-1, 0) 'init wipe counterãcont = 1ããDOã SELECT CASE FxRow(FxCount)ã CASE 0ã CALL Display(12) 'Wandering Lines with rotationã CALL PaletteHandler(128, 110, 0)ã cont = RotatedLines(1, 700, 6 + RND * 18)ãã CASE 1ã CALL Display(12) 'Sinus Lines with rotationã CALL PaletteHandler(128, 90, 0)ã cont = RotatedLines(2, 1200, 8 + RND * 16)ãã CASE 2ã CALL Display(0) 'force BIOS to reset standard VGA paletteã CALL Display(13)ã cont = fireworks(900)ã IF cont = 1 THEN cont = BlindAndFadeã ã CASE 3ã CALL Display(13)ã CALL PaletteHandler(128, 5 + RND * 30, 2)ã cont = PlasmaSplit(0) '0=non symetric plasma patternã CALL CycleAndWipe(cont, 525)ãã CASE 4ã CALL Display(13)ã CALL PaletteHandler(128, 5 + RND * 30, 2)ã cont = PlasmaSplit(1) '1=symetric plasma patternã CALL CycleAndWipe(cont, 525)ãã CASE 5 TO 7ã CALL Display(13)ã CALL PaletteHandler(384, 0, 2)ã CALL PaletteHandler(2048, 5 + RND * 15, 0)ã CALL ColourShock(FxRow(FxCount) - 4)ã CALL PaletteFade(cont)ã CALL CycleAndWipe(cont, 525)ãã CASE 8ã CALL Display(13)ã CALL PaletteHandler(192, 0, 2)ã CALL PaletteHandler(3072, 10 + RND * 16, 0)ã cont = WobbleCircle(0, 0) 'full circle starã CALL PaletteFade(cont)ã CALL CycleAndWipe(cont, 875)ãã CASE 9ã CALL Display(13)ã CALL PaletteHandler(192, 0, 2)ã CALL ColourShock(5) 'fanã CALL PaletteHandler(2048, 5, 0)ã CALL PaletteFade(cont)ã CALL CycleAndWipe(cont, 525)ãã CASE 10ã CALL Display(13)ã CALL PaletteHandler(1216, 6, 2)ã cont = WobbleCircle(1 + RND * 22, 100)ã CALL CycleAndWipe(cont, 525)ãã CASE 11ã CALL Display(13)ã IF RND < .5 THENã CALL PaletteHandler(128, 10, 2)ã ELSEã CALL PaletteHandler(192, 10, 2)ã END IFã cont = PlasmaFullã CALL CycleAndWipe(cont, 525)ã ã CASE 12ã CALL Display(12) 'Wandering Sinus Lines with rotationã CALL PaletteHandler(128, 300, 0)ã cont = RotatedLines(3, 700, 8 + RND * 8)ãã CASE 13ã CALL Display(13)ã cont = StarField(1050)ã IF cont = 1 THEN cont = BlindAndFadeãã CASE 14ã CALL Display(13)ã cont = ZoomingCircles(700)ã IF cont = 1 THEN cont = BlindAndFadeãã CASE 15ã CALL Display(13)ã CALL PaletteHandler(128, 10, 2)ã CALL PaletteHandler(2048, 0, 0)ã i = RND * 200 MOD 4ã SELECT CASE iã CASE 0: cont = ShadeBox(21.2999, 20.02834, .09419735#, .091430461#, 2100)ã CASE 1: cont = ShadeBox(20.49337, 21.95502, 9.283991E-02, 9.806624E-02, 2100)ã CASE 2: cont = ShadeBox(21.2999, 20.02834, 9.419735E-03, 9.143046E-03, 2100)ã CASE 3: cont = ShadeBox(20.49337, 21.95502, 9.283991E-03, 9.806624E-03, 2100)ã END SELECTã CALL PaletteFade(cont)ã ã CASE 16ã CALL Display(13)ã CALL PaletteHandler(192, 6, 2)ã CALL ColourShock(1) 'circlesã cont = AbesFilter(5 + RND * 8)ã CALL CycleAndWipe(cont, 525)ãã CASE 17ã CALL Display(13)ã CALL PaletteHandler(384, 6, 2)ã CALL ColourShock(5) 'fanã cont = AbesFilter(5 + RND * 8)ã CALL CycleAndWipe(cont, 525)ãã CASE 18ã CALL Display(7)ã CALL PaletteHandler(128, 100, 2)ã cont = DripScroll(1, 15, 40, 20)ãã CASE 19ã CALL Display(12)ã CALL AnimatedStars(-1)ã CALL BlinkingStars(-1)ãã i = 700ã DOã CALL BlinkingStars(1)ã CALL AnimatedStars(1)ã CALL RetraceWait(2)ãã i = i - 1ã IF INKEY$ <> "" THEN cont = 0ã LOOP WHILE i > 0 AND cont = 1ãã IF cont = 1 THEN cont = BlindAndFadeã END SELECTãã IF cont = 1 THENã CALL RetraceWait(PAUSEPERIOD)ã FxCount = (FxCount + 1) MOD (FXMAX + 1)ã RANDOMIZE TIMERã END IFãLOOP WHILE cont = 1ããCALL Display(0)ãPRINTãPRINT " *** Colour Trip V1.4 (c) 2000 by Martin Grosen. ***"ãPRINTãPRINTãSYSTEMãENDãã'effectsãDATA 3,7,0,9,13,15,6,12,17,5,19,2,1,18,0,4,8,12,10,14,16,11,0,17,2,3,10,1ãDATA 15,13,12,16,11,14,8,18,19ãã'wipesãDATA 1,2,10,8,9,3,7,4,5,6,2,9,7,10,1,5,4,8,3,6ãã'locations for chess style wipeãDATA 0,17,2,32,4,64,49,19,34,96,36,66,81,51,6,21,128,8,53,98,68,38,83,113,23ãDATA 25,85,10,40,115,160,145,55,130,70,100,147,12,117,27,87,132,177,72,42,102ãDATA 57,162,164,74,134,104,44,59,89,149,29,179,14,119,46,61,76,91,31,136,181ãDATA 151,121,106,166,93,168,183,153,78,108,63,138,123,125,95,185,170,110,155ãDATA 140,127,187,172,142,157,174,189,159,191,16,1,48,18,33,3,5,80,35,50,65,20ãDATA 82,112,22,37,97,67,52,7,54,84,144,39,114,129,99,24,69,9,116,176,71,41,101ãDATA 56,86,11,161,131,26,146,163,118,88,43,58,148,103,73,28,133,13,178,90,135ãDATA 60,15,30,165,105,45,180,120,150,75,62,182,107,77,137,92,152,47,122,167,124ãDATA 154,139,79,109,94,169,184,141,111,171,186,156,126,143,173,158,188,175,190ãã'colours for blinking starsãDATA 1,0,1,1,2,1,2,2,3,2,3,3,15,3,15,15,15,3,3,3,2,3,2,2,1,2,1,0,1,0,1,0ããFUNCTION AbesFilter% (scale!)ã SHARED MAXX, MAXYã DIM SinTblX!(MAXX), SinTblY!(MAXX)ãã stpx! = 2 * 3.1415926# / (MAXX + 1)ã stpy! = 2 * 3.1415926# / (MAXX + 1)ã FOR i = 0 TO MAXXã SinTblX!(i) = SIN(i * stpx! * scale!)ã SinTblY!(i) = SIN(i * stpy! * scale!)ã NEXTãã y = 0ã WHILE y <= MAXY AND INKEY$ = ""ã FOR x = 0 TO 319ã ink = POINT(x, y)ã ink = ink + SinTblX!(x) * SinTblY!(y) * 20ã IF ink < 1 THEN ink = 1ã IF ink > 255 THEN ink = 255ã PSET (x, y), inkã NEXTãã y = y + 1ã WENDãã AbesFilter% = 1ã IF y < MAXY THEN AbesFilter% = 0ãEND FUNCTIONããSUB AnimatedStars (state) STATICã SHARED MAXX, MAXYãã CONST STARMAX = 14ã DIM s(STARMAX) AS AnimStarã DIM StarSize(25)ã ã IF state <> -1 THENã FOR i = 0 TO STARMAXã size = StarSize(s(i).anim)ã LINE (s(i).x - size, s(i).y - size)-(s(i).x + size, s(i).y + size), 0, BFã NEXTãã FOR i = 0 TO STARMAXã s(i).anim = s(i).anim + 1ã IF s(i).anim > 25 THENã s(i).x = 13 + RND * (MAXX - 26)ã s(i).y = 13 + RND * (MAXY - 26)ã s(i).anim = 0ã END IFãã CALL StarDraw(s(i).x, s(i).y, StarSize(s(i).anim), s(i).ink)ã NEXTãã ELSEã PALETTE 1, 3735552 'blueã PALETTE 2, 4135964ã PALETTE 3, 4139048ã PALETTE 4, 10240 'greenã PALETTE 5, 1650713ã PALETTE 6, 2307875ã PALETTE 7, 63 'redã PALETTE 8, 1973823ã PALETTE 9, 2763327ã PALETTE 10, 3801146 'purpleã PALETTE 11, 3808058ã PALETTE 12, 3810618ã PALETTE 13, 14135 'yellowã PALETTE 14, 1652535ã PALETTE 15, 3618615 'almost whiteãã FOR i = 0 TO 12ã StarSize(i) = 1 + iã StarSize(25 - i) = 1 + iã NEXTãã FOR i = 0 TO STARMAXã s(i).x = 13 + RND * (MAXX - 26) 'initialize starsã s(i).y = 13 + RND * (MAXY - 26)ã s(i).anim = INT(RND * 26)ã s(i).ink = 1 + 3 * (i MOD 5)ã NEXTãã CALL StarDraw(0, 0, 0, -1) 'calculate line sizes in starsã END IFãEND SUBããFUNCTION BlindAndFadeã x = 63ã OUT 968, 0ã OUT 969, xã OUT 969, xã OUT 969, xãã CLSã CALL RetraceWait(10)ãã DOã OUT 968, 0ã OUT 969, xã OUT 969, xã OUT 969, xã CALL RetraceWait(2)ãã x = x - 1ã continue$ = INKEY$ã LOOP WHILE continue$ = "" AND x >= 0ã ã BlindAndFade = 1ã IF continue$ <> "" THEN BlindAndFade = 0ãEND FUNCTIONããSUB BlinkingStars (state) STATICã SHARED MAXX, MAXY, StarInk()ã CONST STARMAX = 50ã CONST STAGEMAX = 31ã DIM s(STARMAX) AS PixStarãã IF state = 1 THENã FOR i = 0 TO STARMAXã PSET (s(i).x, s(i).y), StarInk(s(i).ink)ãã s(i).ink = s(i).ink + 1ã IF s(i).ink > STAGEMAX THENã s(i).x = RND * MAXXã s(i).y = RND * MAXYã s(i).ink = 0ã END IFã NEXTã ã ELSEã FOR i = 0 TO STARMAXã s(i).x = RND * MAXXã s(i).y = RND * MAXYã s(i).ink = RND * STAGEMAXã NEXTã END IFãEND SUBããSUB ColourGenerator (state, r, g, b) STATICã' State: 1 = create next colourã' 2 = fade source colourã' 3 = initialize source colour:ã' r: range(vividness)ã' 4 = returns zero in r,g,b (colourless palette)ã SELECT CASE stateã CASE 1ã CGr = CGr + CGrstpã IF CGr < 0 THEN CGrstp = 4 + RND * skip: CGr = 0ã IF CGr > 630 THEN CGrstp = -4 - RND * skip: CGr = 630ãã CGg = CGg + CGgstpã IF CGg < 0 THEN CGgstp = 4 + RND * skip: CGg = 0ã IF CGg > 630 THEN CGgstp = -4 - RND * skip: CGg = 630ã ãã CGb = CGb + CGbstpã IF CGb < 0 THEN CGbstp = 4 + RND * skip: CGb = 0ã IF CGb > 630 THEN CGbstp = -4 - RND * skip: CGb = 630ã ã r = CGr / 10ã g = CGg / 10ã b = CGb / 10ã ã CASE 2ã r = CGr / 10ã g = CGg / 10ã b = CGb / 10ãã IF r > 0 THEN r = r - 1ã IF g > 0 THEN g = g - 1ã IF b > 0 THEN b = b - 1ãã CGr = r * 10ã CGg = g * 10ã CGb = b * 10ãã CASE 3ã skip = r: ' how fast to change colours (vividness)ã CGr = RND * 630: ' base colour for building a new paletteã CGg = RND * 630ã CGb = RND * 630ã CGrstp = 4 + RND * skip: ' step value to change CG_ã CGgstp = 4 + RND * skipã CGbstp = 4 + RND * skipãã CASE 4ã r = 0: g = 0: b = 0ã END SELECTãEND SUBããSUB ColourShock (style%)ã' Generates different simple colour patterns for palette cycling.ã' style = 1 : circlesã' 2 : inverted quater starã' 3 : quarter starã' 5 : fanã SHARED MAXX, MAXY, CNTX, CNTY, MAXINKã c! = 1ãã SELECT CASE styleã CASE 1:ã FOR x = 200 TO 1 STEP -1ã CIRCLE (CNTX, CNTY), x, xã CIRCLE (CNTX - 1, CNTY), x, xã NEXTãã CASE 2:ã stp! = MAXINK / 262ãã FOR y = 0 TO CNTY + 1ã LINE (0, 0)-(CNTX, y), INT(c!)ã LINE (MAXX, 0)-(CNTX, y), INT(c!)ã LINE (0, MAXY)-(CNTX, MAXY - y), INT(c!)ã LINE (MAXX, MAXY)-(CNTX, MAXY - y), INT(c!)ã c! = c! + stp!ã NEXTãã FOR x = CNTX TO 0 STEP -1ã LINE (0, 0)-(x, CNTY), INT(c!)ã LINE (MAXX, 0)-(MAXX - x, CNTY), INT(c!)ã LINE (0, MAXY)-(x, CNTY), INT(c!)ã LINE (MAXX, MAXY)-(MAXX - x, CNTY), INT(c!)ã c! = c! + stp!ã NEXTãã CASE 3:ã stp! = MAXINK / 261ãã FOR y = CNTY TO 0 STEP -1ã LINE (0, y)-(CNTX, CNTY), INT(c!)ã LINE (MAXX, y)-(CNTX, CNTY), INT(c!)ã LINE (0, MAXY - y)-(CNTX, CNTY), INT(c!)ã LINE (MAXX, MAXY - y)-(CNTX, CNTY), INT(c!)ã c! = c! + stp!ã NEXTã ã FOR x = 0 TO CNTXã LINE (x, 0)-(CNTX, CNTY), INT(c!)ã LINE (MAXX - x, 0)-(CNTX, CNTY), INT(c!)ã LINE (x, MAXY)-(CNTX, CNTY), INT(c!)ã LINE (MAXX - x, MAXY)-(CNTX, CNTY), INT(c!)ã c! = c! + stp!ã NEXTãã CASE 5:ã stp! = MAXINK / 722ãã FOR y = 0 TO MAXYã LINE (0, y)-(CNTX, 0), INT(c!)ã c! = c! + stp!ã NEXTãã FOR x = 0 TO MAXXã LINE (x, MAXY)-(CNTX, 0), INT(c!)ã c! = c! + stp!ã NEXTãã FOR y = MAXY TO 0 STEP -1ã LINE (MAXX, y)-(CNTX, 0), INT(c!)ã c! = c! + stp!ã NEXTã END SELECTãEND SUBããSUB CycleAndWipe (cont, periods) STATICã' Cont: 1 = continueã' 0 = exits subã' -1 = initialize WipeCountã SHARED WipeRow()ãã WipeCount = (WipeCount + 1) MOD (WIPEMAX + 1)ã WipeStyle = WipeRow(WipeCount)ã WipeState = -1: ' force wipe to init on 1st callãã CALL PaletteHandler(3, PalStyle, 0): ' read current palette setupã CALL wipe(WipeStyle, PalStyle, WipeState): ' init wipe before cyclingãã WHILE cont = 1 AND WipeState <> 0ã CALL PaletteHandler(PalStyle, 1, 2)ã IF periods < 0 THEN CALL wipe(WipeStyle, PalStyle, WipeState)ã CALL RetraceWait(2)ãã periods = periods - 1ã IF INKEY$ <> "" THEN cont = 0ã WENDãã IF cont < 0 THENã WipeCount = RND * WIPEMAXã END IFãEND SUBããSUB Display (mode)ã SHARED MAXX, MAXY, CNTX, CNTY, MAXINKãã CLSãã SELECT CASE modeã CASE 0ã MAXX = 0: MAXY = 0 'MDA text modeã CNTX = 0: CNTY = 0ã MAXINK = 15ã SCREEN 2ã SCREEN 0ãã CASE 7ã IF MAXY <> 199 OR MAXINK <> 15 THEN SCREEN 7ãã CALL RetraceWait(1)ãã FOR x = 0 TO 15ã y = INP(&H3DA) 'reset Attribute Address Regã OUT &H3C0, x 'palette# + disable internal access to palette regsã OUT &H3C0, x 'point palette to same number DAC regã OUT &H3C0, x OR 32 '32=let hardware access palette regs againã NEXTãã MAXX = 319: MAXY = 199 'EGA lowres (320*200*16)ã CNTX = 159: CNTY = 99ã MAXINK = 15ãã CASE 12ã IF MAXY <> 479 THEN SCREEN 12 'reset mode ?ã MAXX = 639: MAXY = 479 'VGA hires (640*480*16)ã CNTX = 319: CNTY = 239ã MAXINK = 15ãã CASE 13ã IF MAXINK < 16 THEN SCREEN 13ã MAXX = 319: MAXY = 199 'MCGA lowres (320*200*256)ã CNTX = 159: CNTY = 99ã MAXINK = 255ã END SELECTãEND SUBããSUB DisplayStart (StartAdr&)ã adr = INT(StartAdr& / 256)ã OUT &H3D4, 12: ' 0ch = Start Address highã OUT &H3D5, adrãã adr = StartAdr& AND 255ã OUT &H3D4, &HD: ' 0dh = Start Address lowã OUT &H3D5, adrãEND SUBããFUNCTION DripScroll% (MinColour, MaxColour, Rng, RngSub)ã SHARED MAXX, MAXYã DIM rand(1000)ã DIM pix(-1 TO MAXX + 1), src(-1 TO MAXX + 1)ã DIM lb(MAXX) 'lb=LineBufferãã DEF SEG = &HA1F4 'line 200 in video bufferãã OUT &H3CE, 5 'set write mode 2ã OUT &H3CF, 2ãã CALL PaletteHandler(2048, 0, 0)ãã MinColour = MinColour * 10ã MaxColour = MaxColour * 10ãã FOR x = -1 TO MAXX + 1ã src(x) = RND * MaxColourã NEXTãã FOR RndNr = 0 TO 1000ã rand(RndNr) = RND * Rng - RngSubã NEXTãã y = 0ã DOã RndNr = RND * 1000ã CALL RetraceWait(1)ãã FOR x = 0 TO MAXXã pix(x) = (rand(RndNr) + src(x - 1) + src(x) + src(x + 1)) / 3ã IF pix(x) < MinColour THEN pix(x) = MinColourã IF pix(x) > MaxColour THEN pix(x) = MaxColourã RndNr = (RndNr + 1) MOD 1001ã NEXTãã CALL RetraceWait(1)ã src(-1) = pix(0) 'copy far end pixels to avoid odd sidesã src(MAXX + 1) = pix(MAXX)ãã FOR x = 0 TO MAXXã src(x) = pix(x)ã lb(x) = pix(x) / 10ã NEXTãã GOSUB BlitLineã CALL DisplayStart(y * 40)ãã y = y + 1ã continue$ = INKEY$ã LOOP WHILE y <= 500 AND continue$ = ""ãã x = 40ãã WHILE y <= 655 AND continue$ = ""ã CALL RetraceWait(2)ã CALL DisplayStart(y * 40)ãã x = x - 1ã IF x = 0 THENã CALL PaletteHandler(16, 0, 2)ã x = 2ã END IFãã y = y + 1ã continue$ = INKEY$ã WENDãã CALL DisplayStart(0) 'reset BIOS defaultsã OUT &H3CE, 5ã OUT &H3CF, 0ãã DripScroll% = 0ã IF continue$ = "" THEN DripScroll% = 1 'return: 0=end 1=continueãã EXIT FUNCTIONããBlitLine:ã LineStart = y * 40ã LineEnd = LineStart + 39ãã BitMask = 128ãã FOR Bit = 0 TO 7ã OUT &H3CE, 8ã OUT &H3CF, BitMaskã x = Bitãã FOR pix = LineStart TO LineEndã i = PEEK(pix)ã POKE pix, lb(x)ã x = x + 8ã NEXTãã BitMask = BitMask / 2ã NEXTãRETURNããEND FUNCTIONããFUNCTION fireworks% (periods)ã SHARED MAXX, MAXYã CONST PIXELS = 250, ROCKETS = 12, PIXELSETS = 5ãã DIM pnt(PIXELS) AS FirePixelã DIM r(ROCKETS) AS rocketã DIM ps(PIXELSETS) AS PixelSetãã FOR pcnt = 0 TO PIXELSã pnt(pcnt).frames = 0: ' forces a reset of each pixel in draw loopã NEXTãã FOR rcnt = 0 TO ROCKETSã r(rcnt).state = 1ã r(rcnt).fuse = rcnt * 15ã NEXTãã ps(0).free = 1ã ps(0).first = 0ã ps(0).last = 34ã ã ps(1).free = 1ã ps(1).first = 35ã ps(1).last = 69ãã ps(2).free = 1ã ps(2).first = 70ã ps(2).last = 104ã ã ps(3).free = 1ã ps(3).first = 105ã ps(3).last = 139ã ã ps(4).free = 1ã ps(4).first = 140ã ps(4).last = 189ã ã ps(5).free = 1ã ps(5).first = 190ã ps(5).last = 250ãã DOã FOR rcnt = 0 TO ROCKETSã ON r(rcnt).state GOSUB RocketWait, RocketLaunch, RocketExplodeã NEXTãã s1 = 0: s2 = 120ã GOSUB UpdateStarsã s1 = 121: s2 = PIXELSã GOSUB UpdateStarsãã periods = periods - 1ã LOOP WHILE periods > 0 AND INKEY$ = ""ãã fireworks% = 1: ' return: 0=end 1=continueã IF periods > 0 THEN fireworks% = 0ãã EXIT FUNCTIONããUpdateStars:ã FOR pcnt = s1 TO s2ã PSET (pnt(pcnt).pixx, pnt(pcnt).pixy), 0ã pnt(pcnt).frames = pnt(pcnt).frames - 1ãã IF pnt(pcnt).frames > 0 THENã pnt(pcnt).x = pnt(pcnt).x + pnt(pcnt).stpx: ' active pointã pnt(pcnt).y = pnt(pcnt).y + pnt(pcnt).stpyã pnt(pcnt).stpy = pnt(pcnt).stpy + pnt(pcnt).addã pnt(pcnt).pixx = pnt(pcnt).x / 8ã pnt(pcnt).pixy = pnt(pcnt).y / 8ã PSET (pnt(pcnt).pixx, pnt(pcnt).pixy), pnt(pcnt).inkã ELSEã pnt(pcnt).x = 0: ' inactive pointã pnt(pcnt).y = 0ã pnt(pcnt).stpx = 0ã pnt(pcnt).stpy = 0ã pnt(pcnt).add = 0ã pnt(pcnt).ink = 0ã pnt(pcnt).frames = 32000ã END IFã NEXTãã CALL RetraceWait(1)ãRETURNããRocketWait:ã IF r(rcnt).fuse > 0 THENã r(rcnt).fuse = r(rcnt).fuse - 1ã ELSEã r(rcnt).x = 520 + RND * (MAXX * 8 - 1040)ã r(rcnt).y = MAXY * 8ã r(rcnt).stpx = RND * 4 - 2ã r(rcnt).stpy = -6 - RND * 4ã r(rcnt).height = MAXY / 1.85ã r(rcnt).state = 2: ' launch: use RocketLaunchã END IFãRETURNããRocketLaunch:ã PSET (r(rcnt).x / 8, r(rcnt).y / 8), 0: ' delete old pixelãã r(rcnt).height = r(rcnt).height - 1ã IF r(rcnt).height > 0 THENã r(rcnt).x = r(rcnt).x + r(rcnt).stpx: ' draw new pixelã r(rcnt).y = r(rcnt).y + r(rcnt).stpyã PSET (r(rcnt).x / 8, r(rcnt).y / 8), 7ãã ELSE : ' initialise pixels for explotionã r(rcnt).state = 1: ' restart rocket if no available pixelsetã r(rcnt).fuse = RND * 20ãã i1 = 0ã DO UNTIL i1 > PIXELSETSã IF ps(i1).free = 1 THENã GeneralLength = 15 + RND * 28: ' general length of the explotionãã FOR i = ps(i1).first TO ps(i1).lastã pnt(i).x = r(rcnt).x + RND * 17 - 8ã pnt(i).y = r(rcnt).y + RND * 17 - 8ã pnt(i).stpx = RND * 20 - 10ã pnt(i).stpy = RND * 10 - 30ã pnt(i).add = 1ã pnt(i).ink = RND * 15 + 1ã pnt(i).frames = GeneralLength + RND * 20ã NEXTãã ps(i1).free = 0: ' mark pixel set as occupiedã r(rcnt).set = i1: ' pixel set used by the rocketã r(rcnt).state = 3: ' explotion: use RocketExplodeã r(rcnt).explode = GeneralLength + 20: 'set length of entire explotionã i1 = PIXELSETS: ' exit do loopã END IFã ã i1 = i1 + 1ã LOOPã END IFãRETURNããRocketExplode:ã r(rcnt).explode = r(rcnt).explode - 1ãã IF r(rcnt).explode = 0 THENã ps(r(rcnt).set).free = 1: ' free the pixel setã r(rcnt).fuse = RND * 20: ' set delay before next launchã r(rcnt).state = 1: ' waiting: use RocketWaitã END IFãRETURNããEND FUNCTIONããSUB PaletteFade (cont)ã' fades internal palette towards fade paletteã i = 63ã WHILE i > 0 AND cont = 1ã CALL PaletteHandler(16, 0, 2)ã CALL RetraceWait(3)ã i = i - 1ã IF INKEY$ <> "" THEN cont = 0ã WENDãEND SUBããSUB PaletteHandler (state, CBase, SetPal) STATICã' State: 1 = Colour Generator: make next colourã' CBase: colour index to insert new colour atã' 2 = Colour Generator: fade source colourã' CBase: colour index to insert faded colour atã' 3 = return info flag in CBase.ã' What the subroutine is set up forã' CBase: 9 = colour cyclingã' 64 = RGB shiftingã' 8 = cycle internal palette upwardsã' 16 = fade internal palette towards fade paletteã' 64 = RGB shifting of internal paletteã' 128 = build an internal paletteã' CBase: >0 = vividnes in the colours selectedã' 0 = black palette (fade in...)ã' 256 = randomly selects either cycling or shiftingã' 1024 = mirror internal palettes (colour 255=1, 254=2...)ã' note: only callable when setting either paletteã' 2048 = set fade in palette according to CBaseã' CBase: >0 = vividnes in the colours selectedã' 0 = black palette (fade in...)ã' SetPal: 0 = don't set paletteã' 1 = set one colour. CBase specifies colour to setã' 2 = set entire paletteã SHARED MAXINKã DIM r(1 TO 255): ' the internal paletteã DIM g(1 TO 255)ã DIM b(1 TO 255)ã DIM rf(1 TO 255): ' palette to fade towardsã DIM gf(1 TO 255)ã DIM BF(1 TO 255)ã DIM pm(1 TO 510): ' pm=palette mapping used in RGB shiftingãã IF (state AND 8) = 8 THENã rbld = r(MAXINK): ' read top colour for circular cyclingã gbld = g(MAXINK)ã bbld = b(MAXINK)ã ã FOR c = MAXINK - 1 TO 1 STEP -1ã r(c + 1) = r(c)ã g(c + 1) = g(c)ã b(c + 1) = b(c)ã NEXTãã IF (state AND 1) = 0 THENã r(1) = rbld: ' circular cycling: insert top colour at bottomã g(1) = gbldã b(1) = bbldã END IFã END IFãã IF (state AND 3) <> 0 THENã SELECT CASE (state AND 3)ã CASE 1: CALL ColourGenerator(1, r(CBase), g(CBase), b(CBase))ã CASE 2: CALL ColourGenerator(2, r(CBase), g(CBase), b(CBase))ã CASE 3ã CBase = 9ã IF RGBr! <> 0 THEN CBase = 64ã END SELECTã END IFãã IF (state AND 16) = 16 THENã FOR c = 1 TO MAXINKã IF r(c) < rf(c) THEN r(c) = r(c) + 1ã IF g(c) < gf(c) THEN g(c) = g(c) + 1ã IF b(c) < BF(c) THEN b(c) = b(c) + 1ã IF r(c) > rf(c) THEN r(c) = r(c) - 1ã IF g(c) > gf(c) THEN g(c) = g(c) - 1ã IF b(c) > BF(c) THEN b(c) = b(c) - 1ã NEXTã END IFãã IF (state AND 128) = 128 THENã IF CBase > 0 THENã rbld = 1ã CALL ColourGenerator(3, CBase, 0, 0)ã ELSEã rbld = 4ã END IFãã FOR c = MAXINK TO 1 STEP -1ã CALL ColourGenerator(rbld, r(c), g(c), b(c))ã NEXTãã IF (state AND 1024) = 1024 THENã FOR c = 1 TO 128ã r(256 - c) = r(c)ã g(256 - c) = g(c)ã b(256 - c) = b(c)ã NEXTã END IFãã RGBr! = 0: ' no RGB shiftingãã IF (state AND 256) = 256 AND RND < .5 THEN state = state OR 64ãã IF (state AND 64) = 64 THENã RGBstpr! = .008 + RND * .005: ' how fast to shift RGB bandsã RGBstpg! = .008 + RND * .005ã RGBstpb! = .008 + RND * .005ã RGBr! = RND * 6.28: ' start point for RGB bandsã RGBg! = RND * 6.28ã RGBb! = RND * 6.28ã END IFãã FOR c = 1 TO 255ã pm(c) = c: ' build logical table for RGB shiftingã pm(511 - c) = cã NEXTã END IFãã IF (state AND 64) = 64 THENã RGBr! = RGBr! + RGBstpr!: ' move bands ready for next periodã RGBg! = RGBg! + RGBstpg!ã RGBb! = RGBb! + RGBstpb!ã END IFã ã IF (state AND 2048) = 2048 THENã IF CBase > 0 THENã rbld = 1ã CALL ColourGenerator(3, CBase, 0, 0)ã ELSEã rbld = 4: ' ColourGenerator return black coloursã END IFãã FOR c = MAXINK TO 1 STEP -1ã CALL ColourGenerator(rbld, rf(c), gf(c), BF(c))ã NEXTãã IF (state AND 1024) = 1024 THENã FOR c = 1 TO 128ã rf(256 - c) = rf(c)ã gf(256 - c) = gf(c)ã BF(256 - c) = BF(c)ã NEXTã END IFã END IFãã SELECT CASE SetPalã CASE 2ã IF RGBr! <> 0 THENã rbld = 128 + INT(COS(RGBr!) * 127): ' offset concerning RGB shiftingã gbld = 128 + INT(COS(RGBg!) * 127)ã bbld = 128 + INT(COS(RGBb!) * 127)ã ELSEã rbld = 1: gbld = 1: bbld = 1ã END IFãã OUT 968, 1ã FOR c = 1 TO MAXINKã OUT 969, r(pm(rbld))ã OUT 969, g(pm(gbld))ã OUT 969, b(pm(bbld))ãã rbld = rbld + 1ã gbld = gbld + 1ã bbld = bbld + 1ã NEXTã ã CASE 1ã OUT 968, CBaseã OUT 969, r(CBase)ã OUT 969, g(CBase)ã OUT 969, b(CBase)ã END SELECTãEND SUBããSUB PlasmaColumn (c AS FADE)ã c.y = c.y + 1ã c.ypeak = c.ypeak + 1ãã IF c.ypeak = c.ystep THENã c.ink = INT(c.ink)ã c.ypeak = 0ãã IF c.symetric = 1 THENã c.inkstep = (c.crange - c.ink * 2) / c.ystepã ELSEã c.inkstep = (RND * c.crange - c.ink) / c.ystepã END IFã END IFãã c.ink = c.ink + c.inkstepãEND SUBããFUNCTION PlasmaFull%ã DIM c(4) AS FADEã RANDOMIZE TIMERãã CALL PlasmaInit(c(0), 0, 25 + RND * 25, 0, 1 + RND * 255, 255)ã CALL PlasmaInit(c(1), 319, 25 + RND * 25, 0, 1 + RND * 255, 255)ãã y = 0ã DOã CALL PlasmaRow(c(0), c(1))ã CALL PlasmaColumn(c(0))ã CALL PlasmaColumn(c(1))ãã y = y + 1ã continue$ = INKEY$ã LOOP WHILE y <= 199 AND continue$ = ""ãã PlasmaFull% = 1: ' return: 0=end 1=continueã IF continue$ <> "" THEN PlasmaFull% = 0ãEND FUNCTIONããSUB PlasmaInit (c AS FADE, x, ystep, smtrc, ink!, crange)ã c.x = xã c.y = 0ã c.ystep = ystepã c.ypeak = ystep - 1: ' forces init of ink variablesã c.symetric = smtrcã c.ink = ink!ã c.crange = crangeãEND SUBããSUB PlasmaRow (c1 AS FADE, c2 AS FADE)ã DIM ink AS SINGLE, inkstep AS SINGLEãã ink = c1.inkã inkstep = (c2.ink - c1.ink) / (c2.x - c1.x + 1)ãã FOR x = c1.x TO c2.xã ink = ink + inkstepã pixink = INT(ink)ã ã IF pixink < 1 THEN pixink = 1: ' make ink stay in boundariesã IF pixink > c1.crange THEN pixink = c1.crangeã PSET (x, c1.y), pixinkã NEXTãEND SUBããFUNCTION PlasmaSplit% (symetric) : ' function is hardwired for mode 13hã' On call: symetric=1 : symetricã' <>1 : not symetricã DIM c(4) AS FADE: 'ãã y = INT(40 - RND * 80)ãã IF symetric = 1 THENã dist1 = 2 + RND * 25ã dist2 = 2 + RND * 25ã dist3 = 2 + RND * 25ã CALL PlasmaInit(c(0), 0, dist1, 1, 0, 100)ã CALL PlasmaInit(c(1), 80 + y, dist2, 1, 15, 100)ã CALL PlasmaInit(c(2), 159, dist3, 1, RND * 63, 100)ã CALL PlasmaInit(c(3), 240 - y, dist2, 1, 15, 100)ã CALL PlasmaInit(c(4), 319, dist1, 1, 0, 100)ã ELSEã dist1 = 4 + RND * 4ã dist2 = 4 + RND * 4ã dist3 = 4 + RND * 4ã CALL PlasmaInit(c(0), 0, dist1, 0, 0, 100)ã CALL PlasmaInit(c(1), 80 + y, dist2, 0, 15, 100)ã CALL PlasmaInit(c(2), 159, dist3, 0, RND * 63, 100)ã CALL PlasmaInit(c(3), 240 - y, dist2, 0, 15, 100)ã CALL PlasmaInit(c(4), 319, dist1, 0, 0, 100)ã END IFãã y = 0ã DOã CALL PlasmaRow(c(0), c(1))ã CALL PlasmaRow(c(1), c(2))ã CALL PlasmaRow(c(2), c(3))ã CALL PlasmaRow(c(3), c(4))ãã CALL PlasmaColumn(c(0))ã CALL PlasmaColumn(c(1))ã CALL PlasmaColumn(c(2))ã CALL PlasmaColumn(c(3))ã CALL PlasmaColumn(c(4))ã c(3).ink = c(1).ink: ' make column 2 identical to column 0ã c(4).ink = c(0).inkãã y = y + 1ã continue$ = INKEY$ã LOOP WHILE y <= 199 AND continue$ = ""ãã PlasmaSplit% = 1: ' return: 0=end 1=continueã IF continue$ <> "" THEN PlasmaSplit% = 0ãEND FUNCTIONããSUB RetraceWait (periods)ã FOR i = 1 TO periodsã WHILE (INP(&H3DA) AND 8) = 0: WENDã WHILE (INP(&H3DA) AND 8) = 8: WENDã NEXTãEND SUBããFUNCTION RotatedLines% (style, periods, RotatedPnts)ã' On call: style = 1: Wandering Lines with rotationã' 2: Sinus Lines with rotationã' 3: Sinus Wandering Lines with rotationã' periods = nr of update periods to runã' RotatedPnts = nr of lines to make via rotationã'ã SHARED MAXX, MAXY, CNTX, CNTY, MAXINKãã CONST SINUSPNTS = 75: ' (Sinus Lines)ã CONST WANDERLINES = 43, SPAN = 30: ' (Wandering Lines)ã CONST SINWANDLINES = 10: ' (Sinus Wandering Lines)ã CONST AMPLITUDE = 170ãã DIM tbl(0 TO WANDERLINES) AS LineDef: ' (*not* Sinus Lines)ã DIM pntx(SINUSPNTS), pnty(SINUSPNTS): ' (Sinus Lines)ã DIM CosTbl!(RotatedPnts), SinTbl!(RotatedPnts): ' (rotation tables)ã DIM Angl!(3), AnglStp!(3): ' (sinus wandering lines)ãã CALL PaletteHandler(2048, 0, 0)ãã Angl!(0) = 0: AnglStp!(0) = 6.283185 / RotatedPntsã FOR i = 1 TO RotatedPntsã CosTbl!(i) = COS(Angl!(0)): ' build cos and sin tablesã SinTbl!(i) = SIN(Angl!(0))ã Angl!(0) = Angl!(0) + AnglStp!(0)ã NEXTãã FOR i = 0 TO WANDERLINESã tbl(i).x1 = 0: ' clear table before startã tbl(i).y1 = 0ã tbl(i).x2 = 0ã tbl(i).y2 = 0ã NEXTãã SELECT CASE styleã CASE 1: ' *** Wandering Lines ***ã basex1 = 0: basey1 = 0: ' init line draw routineã basex2 = 0: basey2 = 0ã TblDraw = 0: TblDel = 2: ' draw and delete pointers into tblã c = 0: ' colour counter (help variable)ã SpanCount = 0: ' initialize stp__ varibles in 1st runãã DOã SpanCount = SpanCount - 1ã IF SpanCount <= 0 THENã stpx1 = (RND * MAXX - CNTX - basex1) / SPAN: ' change directionã stpy1 = (RND * MAXY - CNTY - basey1) / SPAN: ' of linesã stpx2 = (RND * MAXX - CNTX - basex2) / SPANã stpy2 = (RND * MAXY - CNTY - basey2) / SPANã SpanCount = 30ã END IFãã basex1 = basex1 + stpx1ã basey1 = basey1 + stpy1ã basex2 = basex2 + stpx2ã basey2 = basey2 + stpy2ãã c = c + 1ã IF c > 2 THENã c = 0ã FskInk = FskInk MOD MAXINK + 1ã IF periods > 63 THEN CALL PaletteHandler(1, FskInk, 1)ã END IFã ã IF periods < 63 THEN CALL PaletteHandler(16, 0, 2): ' fade coloursãã x1 = basex1: y1 = basey1: ' set call parametersã x2 = basex2: y2 = basey2ã ink = FskInkã GOSUB MirrorPlot: ' draw new linesãã tbl(TblDraw).x1 = basex1ã tbl(TblDraw).x2 = basex2ã tbl(TblDraw).y1 = basey1ã tbl(TblDraw).y2 = basey2ã x1 = tbl(TblDel).x1: y1 = tbl(TblDel).y1: ' set call parametersã x2 = tbl(TblDel).x2: y2 = tbl(TblDel).y2ã ink = 0ã GOSUB MirrorPlot: ' delete old linesãã TblDraw = TblDraw + 1ã TblDraw = TblDraw MOD WANDERLINESã TblDel = TblDel + 1ã TblDel = TblDel MOD WANDERLINESãã CALL RetraceWait(4)ãã periods = periods - 1ã continue$ = INKEY$ã LOOP WHILE periods > 0 AND continue$ = ""ãã CASE 2: ' *** Sinus Lines ***ã FOR pnt = 0 TO SINUSPNTSã pntx(pnt) = 0: ' init pnts before deleting...ã pnty(pnt) = 0ã NEXTãã c = 10: ' force instant colour initã newp = 0: oldp = 1: ' pointers into pnt_ tablesã xv! = 0: yv! = 0: ' angles that generate patternã xstp! = (100 + RND * 400) / 5000ã ystp! = (100 + RND * 400) / 5000ã ã DOã x1 = pntx(oldp): y1 = pnty(oldp): ' 1st point in lineã oldp = oldp + 1: oldp = oldp MOD SINUSPNTS: ' oldp=next pointã x2 = pntx(oldp): y2 = pnty(oldp)ã ink = 0ã GOSUB MirrorPlotãã xv! = xv! + xstp!ã yv! = yv! + ystp!ãã x1 = pntx(newp): y1 = pnty(newp): ' 1st point in next lineã newp = newp + 1: newp = newp MOD SINUSPNTS: ' move newp to next pointã x2 = SIN(xv!) * AMPLITUDE: ' 2nd point for new lineã y2 = SIN(yv!) * AMPLITUDEã pntx(newp) = x2: pnty(newp) = y2ãã c = c + 1ã IF c > 6 THENã c = 0: ' generate next colourã FskInk = FskInk MOD MAXINK + 1ã CALL PaletteHandler(1, FskInk, 1)ã END IFã ink = FskInkã GOSUB MirrorPlotã CALL RetraceWait(1)ãã periods = periods - 1ã continue$ = INKEY$ã LOOP WHILE periods > 0 AND continue$ = ""ãã pnt = 0ã WHILE continue$ = "" AND pnt <= SINUSPNTSã x1 = pntx(oldp): y1 = pnty(oldp): ' 1st point in lineã oldp = oldp + 1: oldp = oldp MOD SINUSPNTS: ' oldp=next pointã x2 = pntx(oldp): y2 = pnty(oldp)ã ink = 0ã GOSUB MirrorPlotã CALL RetraceWait(1)ãã pnt = pnt + 1ã continue$ = INKEY$ã WENDãã CASE 3: ' *** Sinus Wandering Lines ***ã TblDraw = SINWANDLINESã MAXINK = SINWANDLINES: ' only cycle colours 1-SINWANDERLINESãã FOR i = 0 TO 3ã Angl!(i) = RND * 6.283185: ' init random sinus movementã AnglStp!(i) = .005 + RND * .05ã NEXTãã DOã TblDraw = TblDraw MOD MAXINK + 1ã ã x1 = tbl(TblDraw).x1ã y1 = tbl(TblDraw).y1ã x2 = tbl(TblDraw).x2ã y2 = tbl(TblDraw).y2ã ink = 0ã GOSUB MirrorPlotãã FOR i = 0 TO 3ã Angl!(i) = Angl!(i) + AnglStp!(i)ã NEXTãã c = 8ã IF periods < 55 THEN c = 24: ' finish of by fading coloursã CALL PaletteHandler(c, 1, 2)ã ã x1 = SIN(Angl!(0)) * AMPLITUDEã y1 = SIN(Angl!(1)) * AMPLITUDEã x2 = SIN(Angl!(2)) * AMPLITUDEã y2 = SIN(Angl!(3)) * AMPLITUDEã ink = TblDrawã GOSUB MirrorPlotãã tbl(TblDraw).x1 = x1ã tbl(TblDraw).y1 = y1ã tbl(TblDraw).x2 = x2ã tbl(TblDraw).y2 = y2ã CALL RetraceWait(2)ãã periods = periods - 1ã continue$ = INKEY$ã LOOP WHILE continue$ = "" AND periods > 0ã END SELECTãã RotatedLines% = 1: ' return: 0=end 1=continueã IF continue$ <> "" THEN RotatedLines% = 0ãã EXIT FUNCTIONããMirrorPlot:ã' ---> Parameters on call: x1,y1,x2,y2,inkã FOR i = 1 TO RotatedPntsã px1 = x1 * CosTbl!(i) + y1 * SinTbl!(i) + CNTXã py1 = y1 * CosTbl!(i) - x1 * SinTbl!(i) + CNTYã px2 = x2 * CosTbl!(i) + y2 * SinTbl!(i) + CNTXã py2 = y2 * CosTbl!(i) - x2 * SinTbl!(i) + CNTYã LINE (px1, py1)-(px2, py2), inkã NEXTãRETURNãEND FUNCTIONããFUNCTION ShadeBox% (xangle!, yangle!, xstp!, ystp!, periods)ã' _angle! : locate boxã' _stp! : how fast to move about the screenã SHARED MAXX, MAXY, CNTX, CNTYã DIM ink(1 TO 255)ãã FOR i = 1 TO 254ã ink(i) = i + 1ã NEXTã ink(255) = 1ãã LINE (0, 0)-(MAXX, MAXY), 1, BFãã DOã FOR i = 1 TO 2ã AmplScl! = .15 + RND * .85ã lx = CNTX + SIN(xangle!) * 141 * AmplScl! - 14ã ly = CNTY + SIN(yangle!) * 86 * AmplScl! - 10ã hx = lx + 28ã hy = ly + 20ãã FOR sy = ly TO hyã DEF SEG = 40960 + sy * 20ã FOR sx = lx TO hxã POKE sx, ink(PEEK(sx))ã NEXTã NEXTãã xangle! = xangle! + xstp!ã yangle! = yangle! + ystp!ã NEXTãã CALL RetraceWait(1)ã periods = periods - 1ã LOOP WHILE periods > 0 AND INKEY$ = ""ãã ShadeBox% = 0ã IF periods = 0 THEN ShadeBox% = 1: ' 0=end 1=continueãEND FUNCTIONããSUB StarDraw (x, y, size, InkBase) STATICã' x,y : location of star on displayã' size : size of star (=radius)ã' InkBase : -1 = precalculate line lenghts for star sizes.ã' >0 = normal star drawã DIM sz(1 TO 13, 3), ink(3) '13 = max star sizeãã IF InkBase > 0 THENã ink(0) = InkBaseã ink(1) = InkBase + 1ã ink(2) = InkBase + 2ã ink(3) = 15ãã FOR i = 0 TO 3ã LINE (x - sz(size, i), y)-(x + sz(size, i), y), ink(i)ã LINE (x, y - sz(size, i))-(x, y + sz(size, i)), ink(i)ã ã mid = sz(size, i) * .5ã LINE (x - mid, y - mid)-(x + mid, y + mid), ink(i)ã LINE (x - mid, y + mid)-(x + mid, y - mid), ink(i)ã NEXTãã ELSEã FOR i = 1 TO 13ã sz(i, 0) = i * 1 'lenghts of lines in individualã sz(i, 1) = i * .7 'star sizes are precalculatedã sz(i, 2) = i * .4ã sz(i, 3) = i * .2ã NEXTã END IFãEND SUBããFUNCTION StarField% (periods)ã SHARED CNTX, CNTYã CONST STARSMAX = 240ã DIM x(STARSMAX), y(STARSMAX), z(STARSMAX), oldx(STARSMAX), oldy(STARSMAX)ã DIM scale!(-200 TO 200), ink(-200 TO 200)ãã c = 63ã FOR i = 1 TO 51ã OUT 968, i: ' PEL Address Write Mode reg (select colour)ã OUT 969, c: ' PEL Data reg (red,green,blue)ã OUT 969, cã OUT 969, cã c = c - 1ã NEXTãã FOR i = -200 TO 200ã scale!(i) = (200 / (215 + i)) / 10: ' z resolution is only 400, not 4000ã ink(i) = 1 + (i + 200) / 8ã NEXTãã FOR i = 0 TO STARSMAXã x(i) = RND * 2000ã y(i) = RND * 2000ã IF RND < .5 THEN x(i) = -x(i)ã IF RND < .5 THEN y(i) = -y(i)ã z(i) = RND * 4000 - 2000ã NEXTãã RANDOMIZE TIMERã vx! = RND * 6.28318ã vy! = RND * 6.28318ã vz! = RND * 6.28318ã vxstp! = .004 + RND * .004ã vystp! = .004 + RND * .004ã vzstp! = .004 + RND * .004ãã DOã vx! = vx! + vxstp!ã vy! = vy! - vystp!ã vz! = vz! + vzstp!ã stpx = INT(COS(vx!) * 30)ã stpy = INT(COS(vy!) * 30)ã stpz = INT(COS(vz!) * 30)ãã s1 = 0: s2 = 119: ' 1st lot of stars in 1 update periodã GOSUB CalcAndDrawStarsã s1 = 120: s2 = STARSMAX: ' 2nd lot of stars in another periodã GOSUB CalcAndDrawStarsãã periods = periods - 1ã continue$ = INKEY$ã LOOP WHILE continue$ = "" AND periods > 0ãã StarField% = 1: ' return: 0=end 1=continueã IF continue$ <> "" THEN StarField% = 0ã EXIT FUNCTIONããCalcAndDrawStars:ã IF stpx < 0 THENã FOR i = s1 TO s2ã x(i) = x(i) + stpxã IF x(i) < -2000 THEN x(i) = 2000ã NEXTã ELSEã FOR i = s1 TO s2ã x(i) = x(i) + stpxã IF x(i) > 2000 THEN x(i) = -2000ã NEXTã END IFãã IF stpy < 0 THENã FOR i = s1 TO s2ã y(i) = y(i) + stpyã IF y(i) < -2000 THEN y(i) = 2000ã NEXTã ELSEã FOR i = s1 TO s2ã y(i) = y(i) + stpyã IF y(i) > 2000 THEN y(i) = -2000ã NEXTã END IFãã IF stpz < 0 THENã FOR i = s1 TO s2ã z(i) = z(i) + stpzã IF z(i) < -2000 THEN z(i) = 2000ã NEXTã ELSEã FOR i = s1 TO s2ã z(i) = z(i) + stpzã IF z(i) > 2000 THEN z(i) = -2000ã NEXTã END IFãã FOR i = s1 TO s2ã PSET (oldx(i), oldy(i)), 0ã c = z(i) / 10ã oldx(i) = CNTX + x(i) * scale!(c)ã oldy(i) = CNTY + y(i) * scale!(c)ã PSET (oldx(i), oldy(i)), ink(c)ã NEXTãã WHILE (INP(&H3DA) AND 8) = 0: WENDãRETURNããEND FUNCTIONããSUB wipe (WipeStyle, PalStyle, state) STATICã' WipeStyle: 1 = chess style wipeã' 2 = line fade wipeã' 3 = line block wipeã' 4 = random block wipeã' 5 = top and bottom line wipeã' 6 = turn off TV wipeã' 7 = closing jaws with colour fadingã' 8 = closing curtains with colour fadingã' 9 = pixel wipeã' 10 = emerging vertical line wipeã' state: -1 = initã' 0 = finishedã' >0 = normal run periodã' PalStyle: used in call to PaletteHandler (fading)ã'ã SHARED MAXX, MAXY, CNTX, CNTY, WipeChess(), WipeBlk()ãã SELECT CASE WipeStyleã CASE 1: ' chess style wipeã IF state = 1 THENã x = INT(WipeChess(h) MOD 16) * 20ã y = INT(WipeChess(h) / 16) * 17ã LINE (x, y)-(x + 19, y + 16), 0, BFã h = h + 1ã IF h > 191 THEN state = 0ãã ELSEã h = 0ã state = 1ã END IFãã CASE 2: ' line fade wipeã SELECT CASE stateã CASE 1ã LINE (0, y)-(MAXX, y), 0, , &HAAAAã LINE (0, y + 2)-(MAXX, y + 2), 0, , &HAAAAã y = y + 4: IF y > MAXY THEN state = 2: y = 1ã CASE 2ã LINE (0, y)-(MAXX, y), 0, , &H5555ã LINE (0, y + 2)-(MAXX, y + 2), 0, , &H5555ã y = y + 4: IF y > MAXY THEN state = 3: y = 0ã CASE 3ã LINE (0, y)-(MAXX, y), 0, , &H5555ã LINE (0, y + 2)-(MAXX, y + 2), 0, , &H5555ã y = y + 4: IF y > MAXY THEN state = 4: y = 1ã CASE 4ã LINE (0, y)-(MAXX, y), 0, , &HAAAAã LINE (0, y + 2)-(MAXX, y + 2), 0, , &HAAAAã y = y + 4: IF y > MAXY THEN state = 0ã CASE -1ã y = 0ã state = 1ã END SELECTãã CASE 3: ' line block wipeã IF state > 0 THENã FOR y = 0 TO blocksã IF WipeBlk(y) >= 0 AND WipeBlk(y) < height THENã h = y * height + WipeBlk(y)ã LINE (0, h)-(MAXX, h), 0ã END IFã WipeBlk(y) = WipeBlk(y) + 1ã NEXTã state = state - 1ãã ELSEã blocks = 24: height = 8: state = 32: h = 0ã FOR y = 0 TO blocksã WipeBlk(y) = hã h = h - 1ã NEXTã END IFãã CASE 4: ' random block wipeã IF state > 0 THENã x = INT(WipeBlk(h) MOD 16) * 20ã y = INT(WipeBlk(h) / 16) * 17ã LINE (x, y)-(x + 19, y + 16), 0, BFã h = h + 1ã IF h > 191 THEN state = 0ãã ELSEã FOR i = 0 TO 191ã WipeBlk(i) = iã NEXTãã FOR i = 0 TO 191ã x = INT(RND * 192)ã temp = WipeBlk(i)ã WipeBlk(i) = WipeBlk(x)ã WipeBlk(x) = tempã NEXTãã h = 0ã state = 1ã END IFãã CASE 5: ' top and bottom line wipeã IF state = 1 THENã LINE (0, y)-(MAXX, y), 0ã LINE (0, MAXY - y)-(MAXX, MAXY - y), 0ã y = y + 2: IF y > MAXY THEN state = 0ã ELSEã y = 0ã state = 1ã END IFãã CASE 6: ' turn off TV wipeã IF state = 1 THENã FOR y = 0 TO CNTY STEP 6ã LINE (0, y)-(MAXX, y + 6), 0, BFã LINE (0, MAXY - y)-(MAXX, MAXY - y - 6), 0, BFã CALL RetraceWait(1)ã NEXTã PALETTE 15, 4144959ãã FOR x = 90 TO CNTXã LINE (x, CNTY)-(MAXX - x, CNTY), 15ã CALL RetraceWait(1)ã LINE (x, CNTY)-(MAXX - x, CNTY), 0ã NEXTãã CALL RetraceWait(20): ' pause for a moment before:ã PSET (CNTX, CNTY), 15: ' - displaying dot in centerã CALL RetraceWait(15)ãã FOR y = 63 TO 0 STEP -1ã OUT 968, 15: ' - and fading it to blackã OUT 969, yã OUT 969, yã OUT 969, yã CALL RetraceWait(1)ã NEXTã state = 0: ' finishedã ELSEã state = 1ã END IFãã CASE 7: ' closing jaws wipeã SELECT CASE stateã CASE 1ã FOR x = 1 TO 2ã LINE (0, 0)-(MAXX, y), cã LINE (MAXX, MAXY)-(0, MAXY - y), cã y = y + 1: ' next line and colourã c = c + 1ã NEXTã IF y > MAXY THENã state = 2ã IF PalStyle = 9 THEN PalStyle = 10: x = 263ã IF PalStyle = 64 THEN PalStyle = 80: x = 63ã END IFãã CASE 2ã x = x - 1: ' count down while colours fade outã IF x < 0 THEN state = 0ãã CASE -1ã CALL PaletteHandler(2048, 0, 0): ' ready to fadeã c = 1: ' colour to plotã y = 0ã state = 1ã END SELECTãã CASE 8: ' closing curtains wipeã SELECT CASE stateã CASE 1ã LINE (x, 0)-(x, MAXY), cã LINE (MAXX - x, 0)-(MAXX - x, MAXY), cã x = x + 1: ' next line and colourã c = c + 1ã ã IF x > MAXX / 2 THENã state = 2ã IF PalStyle = 9 THEN PalStyle = 10: x = 223ã IF PalStyle = 64 THEN PalStyle = 80: x = 63ã END IFãã CASE 2ã x = x - 1: ' count down while colours fade outã IF x < 0 THEN state = 0ãã CASE -1ã CALL PaletteHandler(2048, 0, 0): ' ready to fadeã c = 1: ' colour to plotã x = 0ã state = 1ã END SELECTãã CASE 9: ' pixel wipeã IF state = 1 THENã FOR x = 0 TO 3ã DEF SEG = &HA000 + x * 1000ãã FOR i = ofs TO ofs + 196 STEP 4ã POKE WipeBlk(i), 0ã POKE WipeBlk(i + 1), 0ã POKE WipeBlk(i + 2), 0ã POKE WipeBlk(i + 3), 0ã NEXTã NEXTãã ofs = ofs + 200ã IF ofs >= 16000 THEN state = 0ã ã ELSEã FOR i = 0 TO 15999ã WipeBlk(i) = iã NEXTãã FOR i = 0 TO 15999ã SWAP WipeBlk(i), WipeBlk(RND * 15999)ã NEXTã ã ofs = 0: state = 1ã END IFãã CASE 10ã SELECT CASE stateã CASE 1ã LINE (0, CNTY + y)-(MAXX, CNTY + y), 0, , &HAAAAã LINE (0, CNTY - y)-(MAXX, CNTY - y), 0, , &HAAAAã y = y + 1ã IF y > 100 THEN y = 100: state = 2ã ã CASE 2ã LINE (1, CNTY + y)-(MAXX, CNTY + y), 0, , &HAAAAã LINE (1, CNTY - y)-(MAXX, CNTY - y), 0, , &HAAAAã y = y - 1ã IF y < 0 THEN state = 0ãã CASE -1ã y = 0: state = 1ã END SELECTã END SELECTãEND SUBããFUNCTION WobbleCircle (periods!, twist)ã SHARED CNTX, CNTY, MAXX, MAXYã DIM SinTbl!(1045), CosTbl!(1045): ' 1045 = resolutionã DIM InkTbl(1045)ãã FOR i = 0 TO 1045ã rdn! = .006012617519# * i: ' 2*pi/1045 *iã CosTbl!(i) = COS(rdn!)ã SinTbl!(i) = SIN(rdn!)ãã InkTbl(i) = CINT(1 + .243062201# * i): ' 1+ (MaxInk-1)/1045 *iã NEXTãã radius = 144ãã DOã rdn! = periods! / 144 * radiusã InkOffs = INT(SIN(rdn!) * twist) + twist: ' start point in InkTblã ã FOR i = 0 TO 1045ã y = CINT(SinTbl!(i) * radius) + CNTYã x = CINT(CosTbl!(i) * radius * 1.55) + CNTXã c = InkTbl((InkOffs + i) MOD 1045)ã PSET (x, y), cã PSET (x - 1, y), cã NEXTãã radius = radius - 1ã continue$ = INKEY$ã LOOP WHILE radius >= 1 AND continue$ = ""ãã WobbleCircle% = 1: ' return: 0=end 1=continueã IF continue$ <> "" THEN WobbleCircle% = 0ãEND FUNCTIONããFUNCTION ZoomingCircles% (periods)ã SHARED CNTX, CNTYã CONST PIXINCIRCLE = 50, CIRCLESMAX = 3ã CONST AMPLITUDE = 60, TBLMAX = 250: ' = PIXINCIRCLE * 5ãã DIM CosTbl!(TBLMAX), SinTbl!(TBLMAX)ã DIM scale!(-200 TO 200)ã DIM c(CIRCLESMAX) AS ZoomCircleã DIM pixx(199), pixy(199)ãã FOR i = 0 TO CIRCLESMAXã c(i).first = i * 50ã c(i).last = i * 50 + 49ã c(i).ink = 100 + i * 21ã NEXTãã FOR i = 0 TO 20ã s1 = 23 + i * 2ã OUT 968, 120 - iã OUT 969, s1ã OUT 969, 0ã OUT 969, 0ãã OUT 968, 141 - iã OUT 969, 0ã OUT 969, s1ã OUT 969, 0ãã OUT 968, 162 - iã OUT 969, 0ã OUT 969, 0ã OUT 969, s1ã ã OUT 968, 183 - iã OUT 969, s1ã OUT 969, s1ã OUT 969, 0ã NEXTãã FOR i = 0 TO CIRCLESMAXã c(i).radius = 100ã c(i).xangle = RND * 3.1415926#ã c(i).yangle! = RND * 3.1415926#ã c(i).xstp! = .005 + RND * .05ã c(i).ystp! = .005 + RND * .05ã c(i).z = -200 + RND * 400ã c(i).zstp = 8 + RND * 4ã c(i).rotate = RND * 5ã NEXTãã FOR i = -200 TO 200ã scale!(i) = 100 / (300 + i)ã NEXTãã v! = 0: vstp! = 6.2832# / TBLMAXã FOR i = 0 TO TBLMAXã CosTbl!(i) = COS(v!) * 1.2ã SinTbl!(i) = SIN(v!)ã v! = v! + vstp!ã NEXTãã DOã s1 = 0: s2 = 1ã GOSUB DrawCirclesã s1 = 2: s2 = 3ã GOSUB DrawCirclesã periods = periods - 1ã LOOP WHILE periods > 0 AND INKEY$ = ""ãã ZoomingCircles% = 1: ' return: 0=end 1=continueã IF periods > 0 THEN ZoomingCircles% = 0ã EXIT FUNCTIONããDrawCircles:ã FOR CirNr = s1 TO s2ã c(CirNr).xangle = c(CirNr).xangle + c(CirNr).xstpã c(CirNr).yangle = c(CirNr).yangle + c(CirNr).ystpã ccx = CNTX + INT(SIN(c(CirNr).xangle) * AMPLITUDE): ' cc_=CenterCircleã ccy = CNTY + INT(SIN(c(CirNr).yangle) * AMPLITUDE)ã c(CirNr).z = c(CirNr).z + c(CirNr).zstpã IF c(CirNr).z > 200 OR c(CirNr).z < -200 THENã c(CirNr).zstp = c(CirNr).zstp * -1ã c(CirNr).z = c(CirNr).z + c(CirNr).zstpã END IFã sclx! = scale!(c(CirNr).z) * c(CirNr).radiusã scly! = scale!(c(CirNr).z) * c(CirNr).radiusã ink = c(CirNr).ink + (c(CirNr).z + 200) / 20ã c(CirNr).rotate = (c(CirNr).rotate + 1) MOD 5ã r = c(CirNr).rotate: ' offset into tables for building circleãã FOR i = c(CirNr).first TO c(CirNr).lastã PSET (pixx(i), pixy(i)), 0ã NEXTãã FOR i = c(CirNr).first TO c(CirNr).lastã pixx(i) = ccx + CosTbl!(r) * sclx!ã pixy(i) = ccy + SinTbl!(r) * scly!ã PSET (pixx(i), pixy(i)), inkã r = r + 5ã NEXTã NEXTãã CALL RetraceWait(1)ãRETURNãEND FUNCTIONãToshi Horie RAW IMAGE LOADER & DITHER ALGO toshi.tekscode.com 05-10-00 (00:37) QB 436 11551 DITHER.BAS '------------------------------------------------------------ã' DITHER.BAS - fast RAW file loader and 16 color dither demoã' Copyright 2000 Toshihiro Horieã'------------------------------------------------------------ãDECLARE SUB dither ()ãDECLARE FUNCTION get13$ ()ãDECLARE SUB setpal16 ()ãDECLARE FUNCTION put13$ ()ãDECLARE FUNCTION loadv% (filename$)ãDECLARE SUB closev (handle%)ãDECLARE SUB readv (handle%, array%())ãDECLARE SUB loadraw2 (filename$)ãDECLARE SUB precalc ()ãDECLARE SUB setgrayscale ()ãDECLARE SUB loadraw (filename$)ãDEFINT A-Zã' manually define the type needed for INTERUPTXã' don't include qb.bi, it messes up the call absolute.ãTYPE RegTypeXã ax AS INTEGER: bx AS INTEGER: cx AS INTEGER: dx AS INTEGERã bp AS INTEGER: si AS INTEGER: di AS INTEGER: flags AS INTEGERã ds AS INTEGER: es AS INTEGERãEND TYPEãDECLARE SUB INTERRUPTX (intnum AS INTEGER, inreg AS RegTypeX, outreg AS RegTypeX)ãDIM SHARED regs AS RegTypeXãDIM SHARED div3(767)ãDIM SHARED ytab(199)ãDIM SHARED div16(-105 TO 255)ãDIM SHARED clip(-105 TO 371)ãprecalcãããSCREEN 13: CLSãsetgrayscaleãã'slow QB-only loaderã'loadraw "amgpcd23.raw"ã'SLEEP 2ãã' try the fast loaderãCLSãloadraw2 "amgpcd23.raw"ãã'Floyd Steinberg ditherãditherãSLEEP 2ããENDããSUB closev (handle%)ã'close file with handleã regs.ax = &H3E00ã regs.bx = handle%ã INTERRUPTX &H21, regs, regsããEND SUBããSUB ditherã' Floyd Steinberg dither algorithmã' implemented naively in QB by Toshiã' This version dithers 256 level grayscale to 16 colorsãDIM vscreen%(32000)ãDIM scanline2(319, 99)ãgetcpy$ = get13$ã'putcpy$ = put13$ãããDEF SEG = VARSEG(getcpy$)ãCALL ABSOLUTE(vscreen%(), SADD(getcpy$))ãDEF SEG = VARSEG(vscreen%(0))ãSLEEP 2ãCLSãã'DEF SEG = &HA000ãsetpal16ãLOCATE 20, 1: COLOR 15: PRINT "Lowering color depth"ãp = 0ãFOR y = 0 TO 99ãFOR x = 0 TO 319ã 'scanline2(x, y) = POINT(x, y)ã scanline2(x, y) = PEEK(p)ã PSET (x, y), div16(scanline2(x, y))ã p = p + 1ãNEXTãNEXTãERASE vscreen%ãSLEEP 3ãLOCATE 20, 1: COLOR 15: PRINT "Dithering to 16 colors"ãDEF SEG = &HA000ãFOR y = 1 TO 98ãFOR x = 1 TO 318ã trueintensity = scanline2(x, y)ã approx = trueintensity AND 240ã POKE (ytab(y) + x), div16%(approx)ã ã 'calculate error term, -15<=errterm<=15ã errterm = trueintensity - approxãã' spread 7/16 of the error into the pixel to the right, at (x+1,y)ã scanline2(x + 1, y) = clip(scanline2(x + 1, y) + div16(errterm * 7))ãã' spread 3/16 of the error into the pixel below and to the leftã scanline2(x - 1, y + 1) = clip(scanline2(x - 1, y + 1) + div16(errterm * 3))ãã' spread 5/16 of the error into the pixel belowã e5 = div16(errterm * 5)ã scanline2(x, y + 1) = clip(scanline2(x, y + 1) + e5)ãã' spread 5/16 of the error into the pixel below and to the rightã scanline2(x + 1, y + 1) = clip(scanline2(x + 1, y + 1) + e5)ãNEXTãNEXTããLOCATE 20, 1: COLOR 15: PRINT "Dithering successful! "ã'DEF SEG = VARSEG(putcpy$)ã'CALL ABSOLUTE(vscreen%(), SADD(putcpy$))ã'ERASE vscreen%ãEND SUBããDEFSNG B-ZãDEFSTR AãFUNCTION get13$ã'-------------------------------------------------------------------ã' GETSCREEN13 function by Rick Elbersã'This function gets a screen 13 to an QBASIC array. 386 + routineã'STACKPASSING: ARRAY%()ã'IN : SCREEN 13 EMPTYã'OUT : ARRAY%() FILLEDã'-------------------------------------------------------------------ã'SET UP STACKFRAMEãASM = ASM + CHR$(&H55) 'PUSH BPãASM = ASM + CHR$(&H89) + CHR$(&HE5) 'MOV BP,SPãASM = ASM + CHR$(&H1E) 'PUSH DSãASM = ASM + CHR$(&H6) 'PUSH ESã'GET POINTER TO ARRAY FROM STACKãASM = ASM + CHR$(&H8B) + CHR$(&H5E) + CHR$(&H6) 'MOV BX,[BP+06]>ARRAY()ã'SET UP CX TO 64000/4, ES[DI] TO ARRAY, DS[SI] TO A000:0ãASM = ASM + CHR$(&HB9) + CHR$(&H80) + CHR$(&H3E) 'MOV CX,3E80hãASM = ASM + CHR$(&HC4) + CHR$(&H3F) 'LES DI,[BX] ARRAY()ãASM = ASM + CHR$(&H31) + CHR$(&HF6) 'XOR SI,SIãASM = ASM + CHR$(&HB8) + MKI$(&HA000) 'MOV AX,A000ãASM = ASM + CHR$(&H8E) + CHR$(&HD8) 'MOV DS,AX SCREENSEGã'COPY IT USING THE BLAZE OF MOVSDãASM = ASM + CHR$(&HF3) + CHR$(&H66) + CHR$(&HA5) 'REP MOVSD < 386ã'WE ARE DONE :RETURN TO QBASICãASM = ASM + CHR$(&H7) 'POP ESãASM = ASM + CHR$(&H1F) 'POP DSãASM = ASM + CHR$(&H5D) 'POP BPãASM = ASM + CHR$(&HCA) + MKI$(2) 'RETF 2ãget13$ = ASMãEND FUNCTIONããDEFSNG AãSUB loadraw (filename$)ã'loads a 320 x (maxy+1) 16-bit color RGB-encoded .RAW fileã' and displays in in grayscaleãff% = FREEFILEãOPEN filename$ FOR BINARY AS #ff%ãIF LOF(1) = 0 THENã SCREEN 0: WIDTH 80: CLSã PRINT "**"; filename$; " doesn't exist.**"ã CLOSE : KILL filename$: ENDãEND IFããbuffer$ = STRING$(320 * 3, 64)ãDEF SEG = &HA000ãz% = 0ãFOR j% = 0 TO 99ã GET #ff%, , buffer$ã IF EOF(ff%) THEN ENDã FOR s% = 1 TO 959 STEP 3ã r% = div3%(ASC(MID$(buffer$, s%, 1)))ã g% = div3%(ASC(MID$(buffer$, s% + 1, 1)))ã b% = div3%(ASC(MID$(buffer$, s% + 2, 1)))ã POKE z%, r% + g% + b%ã z% = z% + 1ã NEXTãNEXT j%ãDEF SEG = &HA000 + 2000 'segment changes 20/scanline * 100 scanlinesãz% = 0ãFOR j% = 0 TO 99ã GET #ff%, , buffer$ã IF EOF(ff%) THEN ENDã FOR s% = 1 TO 959 STEP 3ã r% = div3%(ASC(MID$(buffer$, s%, 1)))ã g% = div3%(ASC(MID$(buffer$, s% + 1, 1)))ã b% = div3%(ASC(MID$(buffer$, s% + 2, 1)))ã POKE z%, r% + g% + b%ã z% = z% + 1ã NEXTãNEXT j%ãCLOSE #ff%ãEND SUBããDEFINT A-ZãSUB loadraw2 (filename$)ã'RAW file fast loaderã'uses a 65280 byte bufferã'displays it in grayscaleããDIM vscreen%(32640) '65280 bytes -> 21760 pixels -> 68 linesãputcpy$ = put13$ãMID$(putcpy$, 10, 2) = MKI$(&H1540) '=(68)*320\4ããã'-----------------block 1----------------------ãhandle% = loadv(filename$)ããCALL readv(handle%, vscreen%())ããz% = 0ãs% = 0ãDEF SEG = VARSEG(vscreen%(0))ãWHILE s% < 32766ã POKE z%, div3%(PEEK(s%) + PEEK(s% + 1) + PEEK(s% + 1))ã s% = s% + 3ã z% = z% + 1ãWENDããr% = div3%(PEEK(32766))ãg% = div3%(PEEK(32767))ãb% = div3%(PEEK(-32768))ãPOKE z%, r% + g% + b%ããz% = z% + 1ãs% = -32767ãWHILE s% < -256ã 'slower way (uses smaller LUT)ã ' r% = div3%(PEEK(s%))ã ' g% = div3%(PEEK(s% + 1))ã ' b% = div3%(PEEK(s% + 2))ã ' POKE z%, r% + g% + b%ã 'faster wayã POKE z%, div3%(PEEK(s%) + PEEK(s% + 1) + PEEK(s% + 1))ã s% = s% + 3ã z% = z% + 1ãWENDãDEF SEG = VARSEG(putcpy$)ãCALL ABSOLUTE(vscreen%(), SADD(putcpy$))ããã'-----------------block 2----------------------ãCALL readv(handle%, vscreen%())ããz% = 0ãs% = 0ãDEF SEG = VARSEG(vscreen%(0))ãWHILE s% < 32766ã POKE z%, div3%(PEEK(s%) + PEEK(s% + 1) + PEEK(s% + 1))ã s% = s% + 3ã z% = z% + 1ãWENDãã ã ãPOKE z%, div3%((PEEK(32766)) + (PEEK(32767)) + (PEEK(-32768)))ããz% = z% + 1ãs% = -32767ãWHILE s% < -256ã 'covert 16-bit pixel to 8-bit greyscaleã POKE z%, div3%(PEEK(s%) + PEEK(s% + 1) + PEEK(s% + 1))ã s% = s% + 3ã z% = z% + 1ãWENDããããMID$(putcpy$, 15, 2) = MKI$(&HA000 + 20 * 68)ãDEF SEG = VARSEG(putcpy$)ãCALL ABSOLUTE(vscreen%(), SADD(putcpy$))ãã'-----------------block 3----------------------ãCALL readv(handle%, vscreen%())ããz% = 0ãs% = 0ãDEF SEG = VARSEG(vscreen%(0))ãWHILE s% < 32766ã POKE z%, div3%(PEEK(s%) + PEEK(s% + 1) + PEEK(s% + 1))ã s% = s% + 3ã z% = z% + 1ãWENDããr% = div3%(PEEK(32766))ãg% = div3%(PEEK(32767))ãb% = div3%(PEEK(-32768))ãPOKE z%, r% + g% + b%ããz% = z% + 1ãs% = -32767ãmm% = -256 - 5 * 320 * 3ãWHILE s% < mm%ã POKE z%, div3%(PEEK(s%) + PEEK(s% + 1) + PEEK(s% + 1))ã s% = s% + 3ã z% = z% + 1ãWENDãã'modify our asm code so it blits the remaining part of the bufferãMID$(putcpy$, 10, 2) = MKI$(&H13B0) '=(68-5)*320\4ãMID$(putcpy$, 15, 2) = MKI$(&HA000 + 20 * 68 * 2)ãDEF SEG = VARSEG(putcpy$)ãCALL ABSOLUTE(vscreen%(), SADD(putcpy$))ãããCALL closev(handle%)ã'SCREEN 0: WIDTH 80, 50ã'FOR i = 1 TO 28ã'PRINT i; HEX$(ASC(MID$(putcpy$, i, 1)))ã'NEXTãERASE vscreen%ãEND SUBããFUNCTION loadv (filename$)ãf$ = filename$ + CHR$(0) 'convert to ASCIIZãã'open fileãregs.ax = &H3D00ãregs.ds = VARSEG(f$) ' segment of filenameãregs.dx = SADD(f$) ' offset of filenameãINTERRUPTX &H21, regs, regs ' DOS syscallãhandle% = regs.ax ' save filehandleãIF regs.flags AND 1 THENã SELECT CASE handle%ã CASE 1ã PRINT "Invalid function."ã CASE 2ã PRINT "File not found."ã CASE 3ã PRINT "Path not found."ã CASE 4ã PRINT "No handles available."ã CASE 5ã PRINT "Access denied."ã CASE &HCã PRINT "Invalid access code."ã END SELECTã ENDãEND IFãloadv% = handle%ãããEND FUNCTIONããSUB precalcãFOR i = 0 TO 767ã div3(i) = i \ 3ãNEXT iãFOR i = -105 TO 255ã div16(i) = i \ 16ãNEXT iãFOR i = 0 TO 99ã ytab(i) = i * 320ãNEXT iããFOR i = -105 TO 371ã IF i < 0 THENã clip(i) = 0ã ELSEIF i > 255 THENã clip(i) = 255ã ELSE clip(i) = iã END IFãNEXT iãEND SUBããDEFSNG B-ZãDEFSTR AãFUNCTION put13$ã' by rick elbersã'-------------------------------------------------------------------ã'This function puts a QB array to screen 13. 386 + routineã'STACKPASSING: ARRAY()ã'IN : ARRAY() FILLEDã'OUT : SCREEN 13 FILLEDã'-------------------------------------------------------------------ã'SET UP STACKFRAMEãASM = ASM + CHR$(&H55) 'PUSH BPãASM = ASM + CHR$(&H89) + CHR$(&HE5) 'MOV BP,SPãASM = ASM + CHR$(&H1E) 'PUSH DSãASM = ASM + CHR$(&H6) 'PUSH ESã'GET POINTER TO ARRAY FROM STACKãASM = ASM + CHR$(&H8B) + CHR$(&H5E) + CHR$(&H6) 'MOV BX,[BP+06]>ARRAY()ã'SET UP CX TO 64000/4, ES[DI] TO ARRAY, DS[SI] TO A000:0ãASM = ASM + CHR$(&HB9) + CHR$(&H80) + CHR$(&H3E) 'MOV CX,3E80hãASM = ASM + CHR$(&H31) + CHR$(&HFF) 'XOR DI,DIãASM = ASM + CHR$(&HB8) + MKI$(&HA000) 'MOV AX,A000ãASM = ASM + CHR$(&H8E) + CHR$(&HC0) 'MOV ES,AX SCREENSEGãASM = ASM + CHR$(&HC5) + CHR$(&H37) 'LDS SI,[BX] ARRAY()ã'COPY IT USING THE BLAZE OF MOVSDãASM = ASM + CHR$(&HF3) + CHR$(&H66) + CHR$(&HA5) 'REP MOVSD < 386ã'WE ARE DONE :RETURN TO QBASICãASM = ASM + CHR$(&H7) 'POP ESãASM = ASM + CHR$(&H1F) 'POP DSãASM = ASM + CHR$(&H5D) 'POP BPãASM = ASM + CHR$(&HCA) + MKI$(2) 'RETF 2ãput13$ = ASMãEND FUNCTIONããDEFINT A-ZãSUB readv (handle%, array%())ã'Read and display the file (vertically interlaced)ã regs.ax = &H3F00ã regs.bx = handle%ã regs.cx = -256 ' number of bytes to copy = 65280 (68 complete scanlines)ã regs.ds = VARSEG(array%(0)) ' dest=screen 13's segmentã regs.dx = VARPTR(array%(0)) ' at offset 0ã INTERRUPTX &H21, regs, regsã ããEND SUBããSUB setgrayscaleãOUT &H3C8, 0ãFOR i% = 0 TO 255ã OUT &H3C9, i% \ 4ã OUT &H3C9, i% \ 4ã OUT &H3C9, i% \ 4ãNEXT i%ããEND SUBããSUB setpal16ãFOR i% = 0 TO 15ã OUT &H3C8, i%ã OUT &H3C9, i% * 4ã OUT &H3C9, i% * 4ã OUT &H3C9, i% * 4ãNEXT i%ã'red to show wrong parts of palette are being usedãFOR i% = 16 TO 255ã OUT &H3C8, i%ã OUT &H3C9, 255ã OUT &H3C9, 0ã OUT &H3C9, 0ãNEXT i%ãEND SUBãCaleb Cassel TADA SCREEN SAVER ryuse@tcgcs.com 06-03-00 (01:43) QB, QBasic, PDS 70 1385 TADA.BAS 'ã' Here's a nice screensaver/eye entertainer that I wrote. Feel free toã'look at my source code and modify the program as you wish (but I think it'sã'fine the way it is :)ã'ã' Caleb Casselã' ryuse@tcgcs.comãSCREEN 7, , 1, 0ãx1% = 130ãy1% = 110ãx2% = 190ãy2% = 110ãOUT &H3C8, 7ãOUT &H3C9, 0ãOUT &H3C9, 0ãOUT &H3C9, 0ãDOãFOR i% = 5 TO 250 STEP 10ãCIRCLE (x1%, y1%), i%, 7ãCIRCLE (x2%, y2%), i%, 7ãNEXT i%ã20 PCOPY 1, 0ãWAIT &H3DA, 8ãIF dir = 0 THENãx1% = x1% - 2ãx2% = x2% + 2ãy1% = y1% - n%ãy2% = y2% + n%ãIF x1% = 120 THEN dir = 1ãGOTO 10ãEND IFãIF dir = 1 THENãx1% = x1% + 2ãx2% = x2% - 2ãy1% = y1% + n%ãy2% = y2% - n%ãIF x1% = 140 THEN dir = 0ãEND IFãIF l% = 0 THENãn% = n% + 1ãIF n% = 5 THEN l% = 1ãEND IFãIF l% = 1 THENãn% = n% - 1ãIF n% = 0 THEN l% = 0ãEND IFã10 CLSãIF r% = tr% AND g% = tg% AND b% = tb% THENãFOR a% = 1 TO INT(RND * 100)ã tr% = INT(RND * 63)ã tg% = INT(RND * 63)ã tb% = INT(RND * 63)ãNEXT a%ãEND IFãIF r% < tr% THEN r% = r% + 1ãIF r% > tr% THEN r% = r% - 1ãIF g% < tg% THEN g% = g% + 1ãIF g% > tg% THEN g% = g% - 1ãIF b% < tb% THEN b% = b% + 1ãIF b% > tb% THEN b% = b% - 1ãOUT &H3C8, 0ãOUT &H3C9, br%ãOUT &H3C9, bg%ãOUT &H3C9, bb%ãOUT &H3C8, 7ãOUT &H3C9, r%ãOUT &H3C9, g%ãOUT &H3C9, b%ãLOOP UNTIL LEN(INKEY$)ãSYSTEMãCaleb Cassel QBASIC SNOW V1.22 ryuse@tcgcs.com 06-03-00 (01:43) QB, QBasic, PDS 131 3529 SNOW.BAS 'Qbasic Snowã'Version 1.22ã'(c) 1997 Caleb Casselã'ã' This program is freeware and does not cost anything to own. You canã'change anything you like as long as it is distributed in its original formã'only.ã'ã' I apologize for not writing this so it's more self explanable but Iã'hate to go through my programs and add comments. :) You'll have to figureã'out how it works if you really want to know.ã'ã' Caleb Casselã' ryuse@tcgcs.comã'ã'Updates: Version 1.20ã' * Reduced the flicker that is caused by addingã' too many flakes. This has allowed me to addã' many more.ã'ã' * Added a subroutine which helps add realism toã' the look of how it piles.ã'ã' Version 1.21ã' * Small bug fixes and revisions.ã'ã' Version 1.22ã' * Slightly smoother animation.ã' * Random amounts of flakes.ããDEFINT A-ZãDECLARE SUB manage ()ãDECLARE SUB snow ()ãCOMMON SHARED n%ãSCREEN 7, , 1, 0ãRANDOMIZE TIMERãn% = INT(RND * 4) + 1ãSELECT CASE n%ãCASE 1ãn% = 75ãCASE 2ãn% = 90ãCASE 3ãn% = 100ãCASE 4ãn% = 110ãEND SELECTãDIM SHARED snowx(n%) AS INTEGERãDIM SHARED snowy(n%) AS INTEGERãDIM SHARED Speed(n%) AS INTEGERãDIM SHARED oldsnowx(n%) AS INTEGERãDIM SHARED oldsnowy(n%) AS INTEGERãDIM SHARED colors(n%) AS INTEGERãDIM SHARED stack(320) AS INTEGERãFOR I = 2 TO 319ã stack(I) = 199ãNEXT IãFOR I = 1 TO n%ã6 snowx(I) = (RND * 318) + 2ã IF snowx(I) = 320 THEN GOTO 6ã snowy(I) = (RND * 200) + 1ã Speed(I) = ((RND * 3) + 1)ã colors(I) = (RND * 15) + 1ã IF colors(I) = 15 THENã CIRCLE (snowx(I), snowy(I)), 1, 3ã ELSE CIRCLE (snowx(I), snowy(I)), 1, 7ã END IFãNEXT IãPCOPY 1, 0ã30 DOãsnowãmanageãWAIT &H3DA, 8ãPCOPY 1, 0ãLOOP UNTIL LEN(INKEY$)ãSYSTEMããSUB manageã FOR e = 2 TO 319ã IF stack(e - 1) - 2 = stack(e) THENã CIRCLE (e, stack(e)), 1, 0ã stack(e) = stack(e) + 1ã CIRCLE ((e - 1), stack((e - 1)) + 1), 1, 7ã stack((e - 1)) = stack((e - 1)) - 1ã END IFã NEXT eã FOR e = 2 TO 318ã IF stack(e + 1) - 2 = stack(e) THENã CIRCLE (e, stack(e)), 1, 0ã stack(e) = stack(e) + 1ã CIRCLE ((e + 1), stack((e + 1)) + 1), 1, 7ã stack((e + 1)) = stack((e + 1)) - 1ã END IFã NEXT eãEND SUBããSUB snowãFOR I = 1 TO n%ã IF snowy(I) < stack(snowx(I)) THENã oldsnowx(I) = snowx(I)ã oldsnowy(I) = snowy(I)ã snowy(I) = snowy(I) + Speed(I)ã CIRCLE (oldsnowx(I), oldsnowy(I)), 1, 0ã IF colors(I) = 15 THENã CIRCLE (snowx(I), snowy(I)), 1, 3ã ELSEã CIRCLE (snowx(I), snowy(I)), 1, 7ã END IFã ELSEã IF stack(snowx(I)) = 80 THENã FOR e = 2 TO 319ã stack(e) = 199ã NEXT eã CLSã END IFã IF colors(I) = 15 THEN CIRCLE (snowx(I), stack(snowx(I))), 1, 3ã IF colors(I) < 15 THEN CIRCLE (snowx(I), stack(snowx(I))), 1, 7ã stack(snowx(I)) = stack(snowx(I)) - 1ã5 snowx(I) = (RND * 318) + 2ã IF snowx(I) = 320 THEN GOTO 5ã Speed(I) = ((RND * 3) + 1)ã snowy(I) = (0 + Speed(I)) - 1ã colors(I) = (RND * 15) + 1ã IF colors(I) = 15 THENã CIRCLE (snowx(I), snowy(I)), 1, 3ã ELSEã CIRCLE (snowx(I), snowy(I)), 1, 7ã END IFã END IFãNEXT IãEND SUBãHomer Richardson VGA PALETTE hcrichardson@earthlink.net 06-13-00 (10:56) QB, QBasic, PDS 522 23297 VGAPALET.BAS DEFINT A-ZãREM -------------------- Look at SUB README ------------------------ãREM From 99 colorsãCOMMON SHARED milo, red, green, blue, magenta, cyan, yellow, blackãCOMMON SHARED brass, gold, copper, pine, pink.hot, sky, plum, whiteãREM From 64 colorsãCOMMON SHARED wine, pumpkin, sand, midnight, sunset, lily, orangeãCOMMON SHARED cherry, pea, lemon, mint, daisy, BrickãDECLARE SUB delay (n!, k)ãDECLARE SUB MakePalet64 ()ãDECLARE SUB viewpalet64 ()ãDECLARE SUB makepalet99 ()ãDECLARE SUB palet99 ()ãDECLARE SUB ViewPalet99 ()ãDECLARE SUB palet64 ()ãDECLARE SUB colours64 ()ãDECLARE SUB colours99 ()ãDIM SHARED HTML$(99), palnum#(99), ShortName$(99), LongName$(64)ãDIM SHARED Colour$(15), Palet(15)ã REM GOTO Quicklook99ã REM GOTO Quicklook64ãSCREEN 12ã colours99ã palet99ã ViewPalet99ã LOCATE 2, 40ã PRINT "This is screen 12"ã LOCATE 14, 40ã PRINT "Use colors like this"ã LOCATE , 30ã PRINT "LINE (200, 50)-(555, 200), white, B"ã LOCATE , 30ã PRINT "PAINT (201, 51), pink.hot, white"ã LOCATE , 30ã PRINT "LINE (250, 70)-(500, 170), green, BF"ã PRINTã LOCATE , 30: COLOR yellowã PRINT "Details in SUB README"ãã LINE (200, 50)-(550, 200), white, Bã PAINT (201, 51), pink.hot, whiteã LINE (250, 70)-(500, 170), green, BFã PRINT : PRINTã COLOR whiteã LOCATE 24, 3: PRINT "Any key"ã delay .3, nãBlink:ã COLOR whiteã LOCATE 23, 30ã PRINT "Blinking text is easy"ã delay .3, nã IF n > 0 THEN GOTO dunã COLOR miloã LOCATE 23, 30ã PRINT "Blinking text is easy"ã delay .3, nã IF n > 0 THEN GOTO dunã GOTO Blinkãdun:ã SCREEN 13ã palet99ã ViewPalet99ã PRINTã PRINT "This is Screen 13"ã PRINT "Any key"ãa$ = INPUT$(1)ã SCREEN 9ã WIDTH , 43ã colours64ã palet64ã viewpalet64ã PRINTã PRINT " This is Screen 9"ã LOCATE 23, 2ã PRINT "Any key"ã LOCATE 23, 30ã PALETTE 7, 63: COLOR 7ã PRINT "Another way to blink text"ã LOCATE , 30ã PRINT "Change the palette. This"ã LOCATE , 30ã PRINT "may be useful for other"ã LOCATE , 30ã PRINT "special effects"ãBlinkagain:ã delay .5, kã IF k > 0 THEN GOTO alldunã PALETTE 7, 12ã LOCATE 23, 30ã delay .5, kã IF k > 0 THEN GOTO alldunã PALETTE 7, 63ã GOTO Blinkagainãalldun:ã SCREEN 0ãWIDTH , 25ã colours64ã palet64ã viewpalet64ã PRINTã PRINT " This is Screen 0"ãENDãREM -------- Cycles through all 99 colors using screen 12 -----------------ãQuicklook99:ãSCREEN 12ã colours99ã palet99ã CLSã FOR i = 1 TO 99ã PALETTE 0, palnum#(i)ã PRINT " "; i, HTML$(i); TAB(40); ShortName$(i)ã a$ = INPUT$(1)ã NEXT iã ENDãREM -------- Cycles through all 64 colors using screen 9 -----------------ãQuicklook64:ãSCREEN 9ã colours64ã palet64ã CLSã FOR i = 0 TO 63ã PALETTE 0, iã PRINT " "; i, LongName$(i); TAB(40); ShortName$(i)ã a$ = INPUT$(1)ã NEXT iã ENDããSUB colours64ãLongName$(0) = "black": ShortName$(0) = "black"ãLongName$(8) = "blue.midnight": ShortName$(8) = "midnight"ãLongName$(17) = "blue.beryl": ShortName$(17) = "beryl"ãLongName$(49) = "blue.bird": ShortName$(49) = "bird"ãLongName$(33) = "blue.steel": ShortName$(33) = "steel"ãLongName$(1) = "blue": ShortName$(1) = "blue"ãLongName$(41) = "blue.peacock": ShortName$(41) = "peacock"ãLongName$(9) = "blue.lily": ShortName$(9) = "lily"ãLongName$(25) = "blue.azure": ShortName$(25) = "azure"ãLongName$(57) = "blue.berry": ShortName$(57) = "berry"ãLongName$(11) = "blue.sky": ShortName$(11) = "sky"ãLongName$(43) = "blue.teal": ShortName$(43) = "teal"ãLongName$(59) = "blue.pansy": ShortName$(59) = "pansy"ãLongName$(31) = "blue.chrome": ShortName$(31) = "chrome"ãLongName$(27) = "blue.water": ShortName$(27) = "egg"ãLongName$(15) = "blue.icecube": ShortName$(15) = "icecube"ãLongName$(24) = "gray.khaki": ShortName$(24) = "khaki"ãLongName$(3) = "gray.cyan": ShortName$(3) = "cyan"ãLongName$(35) = "gray.ash": ShortName$(35) = "ash"ãLongName$(56) = "gray.smoke": ShortName$(56) = "smoke"ãLongName$(7) = "gray": ShortName$(7) = "gray"ãLongName$(42) = "green.celery": ShortName$(42) = "celery"ãLongName$(10) = "green.pine": ShortName$(10) = "pine"ãLongName$(2) = "green": ShortName$(2) = "green"ãLongName$(34) = "green.Leaf": ShortName$(34) = "Leaf"ãLongName$(16) = "green.kelly": ShortName$(16) = "kelly"ãLongName$(48) = "green.olive": ShortName$(48) = "olive"ãLongName$(18) = "green.pea": ShortName$(18) = "pea"ãLongName$(26) = "green.moss": ShortName$(26) = "moss"ãLongName$(58) = "green.lime": ShortName$(58) = "lime"ãLongName$(22) = "green.autumn": ShortName$(22) = "autumn"ãLongName$(50) = "green.neon": ShortName$(50) = "neon"ãLongName$(19) = "green.mint": ShortName$(19) = "mint"ãLongName$(51) = "green.aqua": ShortName$(51) = "aqua"ãLongName$(23) = "green.squash": ShortName$(23) = "squash"ãLongName$(13) = "lilac": ShortName$(13) = "lilac"ãLongName$(29) = "grape": ShortName$(29) = "grape"ãLongName$(45) = "purple": ShortName$(45) = "purple"ãLongName$(47) = "bubble.gum": ShortName$(47) = "gum"ãLongName$(61) = "purple.sunset": ShortName$(61) = "sunset"ãLongName$(5) = "magenta": ShortName$(5) = "magenta"ãLongName$(40) = "maroon": ShortName$(40) = "maroon"ãLongName$(21) = "tulip": ShortName$(21) = "tulip"ãLongName$(52) = "orange": ShortName$(52) = "orange"ãLongName$(60) = "peach": ShortName$(60) = "peach"ãLongName$(39) = "pink.flesh": ShortName$(39) = "flesh"ãLongName$(53) = "pink": ShortName$(53) = "pink"ãLongName$(37) = "fuchsia": ShortName$(37) = "fuchsia"ãLongName$(12) = "red.wine": ShortName$(12) = "wine"ãLongName$(28) = "red.Brick": ShortName$(28) = "Brick"ãLongName$(20) = "brown": ShortName$(20) = "brown"ãLongName$(32) = "red.rust": ShortName$(32) = "rust"ãLongName$(4) = "Red": ShortName$(4) = "Red"ãLongName$(36) = "red.cherry": ShortName$(36) = "cherry"ãLongName$(44) = "red.tomato": ShortName$(44) = "tomato"ãLongName$(55) = "manilla": ShortName$(55) = "manilla"ãLongName$(38) = "gold": ShortName$(38) = "gold"ãLongName$(46) = "sand": ShortName$(46) = "sand"ãLongName$(62) = "yellow": ShortName$(62) = "yellow"ãLongName$(54) = "lemon": ShortName$(54) = "lemon"ãLongName$(6) = "banana": ShortName$(6) = "banana"ãLongName$(30) = "yellow.daisy": ShortName$(30) = "daisy"ãLongName$(14) = "yellow.pumpkin": ShortName$(14) = "pumpkin"ãLongName$(63) = "white": ShortName$(63) = "white"ãEND SUBããDEFSNG QãSUB colours99ãHTML$(1) = "Red": palnum#(1) = 63: ShortName$(1) = "red"ãHTML$(2) = "Green": palnum#(2) = 16128: ShortName$(2) = "green"ãHTML$(3) = "Blue": palnum#(3) = 4128768: ShortName$(3) = "blue"ãHTML$(4) = "Magenta": palnum#(4) = 4128831: ShortName$(4) = "magenta"ãHTML$(5) = "Cyan": palnum#(5) = 4144896: ShortName$(5) = "cyan"ãHTML$(6) = "Yellow": palnum#(6) = 16191: ShortName$(6) = "yellow"ãHTML$(7) = "White": palnum#(7) = 4144959: ShortName$(7) = "white"ãHTML$(8) = "Black": palnum#(8) = 0: ShortName$(8) = "black"ãHTML$(9) = "Aquamarine": palnum#(9) = 2373148: ShortName$(9) = "aqua"ãHTML$(10) = "Baker's Chocolate": palnum#(10) = 330775: ShortName$(10) = "cocoa"ãHTML$(11) = "Blue Violet": palnum#(11) = 2561831: ShortName$(11) = "violet"ãHTML$(12) = "Brass": palnum#(12) = 1059117: ShortName$(12) = "brass"ãHTML$(13) = "Bright Gold": palnum#(13) = 407094: ShortName$(13) = "gold"ãHTML$(14) = "Brown": palnum#(14) = 657961: ShortName$(14) = "brown"ãHTML$(15) = "Bronze": palnum#(15) = 1318435: ShortName$(15) = "bronze"ãHTML$(16) = "Bronze": palnum#(16) = 991017: ShortName$(16) = "bronze.1"ãHTML$(17) = "Cadet Blue": palnum#(17) = 2565911: ShortName$(17) = "cadet"ãHTML$(18) = "Cool Copper": palnum#(18) = 401718: ShortName$(18) = "penny"ãHTML$(19) = "Copper": palnum#(19) = 793646: ShortName$(19) = "copper"ãHTML$(20) = "Coral": palnum#(20) = 7999: ShortName$(20) = "coral"ãHTML$(21) = "Corn Flower Blue": palnum#(21) = 1773584: ShortName$(21) = "grape"ãHTML$(22) = "Dark Brown": palnum#(22) = 790551: ShortName$(22) = "toast"ãHTML$(23) = "Dark Green": palnum#(23) = 725771: ShortName$(23) = "pea"ãHTML$(24) = "Dark Green Copper": palnum#(24) = 1776914: ShortName$(24) = "fern"ãHTML$(25) = "Dark Olive Green": palnum#(25) = 725779: ShortName$(25) = "olive"ãHTML$(26) = "Dark Orchid": palnum#(26) = 3345446: ShortName$(26) = "orchid.1"ãHTML$(27) = "Dark Purple": palnum#(27) = 1967905: ShortName$(27) = "purple"ãHTML$(28) = "Dark Slate Blue": palnum#(28) = 2295834: ShortName$(28) = " "ãHTML$(29) = "Dark Tan": palnum#(29) = 1251877: ShortName$(29) = "tann.1"ãHTML$(30) = "Dark Turquoise": palnum#(30) = 3548188: ShortName$(30) = " "ãHTML$(31) = "Dark Wood": palnum#(31) = 1054497: ShortName$(31) = "wood"ãHTML$(32) = "Dusty Rose": palnum#(32) = 1579041: ShortName$(32) = "rose"ãHTML$(33) = "Feldspar": palnum#(33) = 1909812: ShortName$(33) = "rock"ãHTML$(34) = "Firebrick": palnum#(34) = 526371: ShortName$(34) = "brick"ãHTML$(35) = "Forest Green": palnum#(35) = 533256: ShortName$(35) = "forest"ãHTML$(36) = "Gold": palnum#(36) = 794419: ShortName$(36) = "gold"ãHTML$(37) = "Goldenrod": palnum#(37) = 1848886: ShortName$(37) = " "ãHTML$(38) = "Green Copper": palnum#(38) = 1908500: ShortName$(38) = " "ãHTML$(39) = "Green Yellow": palnum#(39) = 1848868: ShortName$(39) = " "ãHTML$(40) = "Hunter Green": palnum#(40) = 530184: ShortName$(40) = " "ãHTML$(41) = "Indian Red": palnum#(41) = 723731: ShortName$(41) = "indian"ãHTML$(42) = "Khaki": palnum#(42) = 1517351: ShortName$(42) = "khaki"ãHTML$(43) = "Light Blue": palnum#(43) = 3552816: ShortName$(43) = " "ãHTML$(44) = "Light Steel Blue": palnum#(44) = 3089187: ShortName$(44) = " "ãHTML$(45) = "Light Wood": palnum#(45) = 2699322: ShortName$(45) = " "ãHTML$(46) = "Lime Green": palnum#(46) = 799500: ShortName$(46) = "lime"ãHTML$(47) = "Mandarian Orange": palnum#(47) = 794169: ShortName$(47) = " "ãHTML$(48) = "Maroon": palnum#(48) = 1706019: ShortName$(48) = "maroon"ãHTML$(49) = "Medium Aquamarine": palnum#(49) = 2503436: ShortName$(49) = " "ãHTML$(50) = "Medium Blue": palnum#(50) = 3345420: ShortName$(50) = " "ãHTML$(51) = "Medium Forest Green": palnum#(51) = 533274: ShortName$(51) = "pine"ãHTML$(52) = "Medium Goldenrod": palnum#(52) = 2832954: ShortName$(52) = " "ãHTML$(53) = "Medium Orchid": palnum#(53) = 3546148: ShortName$(53) = " "ãHTML$(54) = "Medium Sea Green": palnum#(54) = 1055504: ShortName$(54) = " "ãHTML$(55) = "Medium Slate Blue": palnum#(55) = 4128799: ShortName$(55) = "slate"ãHTML$(56) = "Medium Spring Green": palnum#(56) = 16159: ShortName$(56) = "spring"ãHTML$(57) = "Medium Turquoise": palnum#(57) = 3552796: ShortName$(57) = " "ãHTML$(58) = "Medium Violet Red": palnum#(58) = 2366518: ShortName$(58) = " "ãHTML$(59) = "Medium Wood": palnum#(59) = 1646633: ShortName$(59) = " "ãHTML$(60) = "Midnight Blue": palnum#(60) = 1248011: ShortName$(60) = "midnight"ãHTML$(61) = "Navy Blue": palnum#(61) = 2295816: ShortName$(61) = "navy"ãHTML$(62) = "Neon Blue": palnum#(62) = 4133651: ShortName$(62) = " "ãHTML$(63) = "Neon Pink": palnum#(63) = 3218239: ShortName$(63) = "pink.hot"ãHTML$(64) = "New Midnight Blue": palnum#(64) = 2555904: ShortName$(64) = " "ãHTML$(65) = "New Tan": palnum#(65) = 2568506: ShortName$(65) = "tan.new"ãHTML$(66) = "Old Gold": palnum#(66) = 929075: ShortName$(66) = "gold.old"ãHTML$(67) = "Orange": palnum#(67) = 7999: ShortName$(67) = "orange"ãHTML$(68) = "Orange Red": palnum#(68) = 2367: ShortName$(68) = " "ãHTML$(69) = "Orchid": palnum#(69) = 3546166: ShortName$(69) = " "ãHTML$(70) = "Pale Green": palnum#(70) = 2305827: ShortName$(70) = "pea"ãHTML$(71) = "Pink": palnum#(71) = 2302767: ShortName$(71) = "pink"ãHTML$(72) = "Plum": palnum#(72) = 3812154: ShortName$(72) = "plum"ãHTML$(73) = "Quartz": palnum#(73) = 3946038: ShortName$(73) = "quartz"ãHTML$(74) = "Rich Blue": palnum#(74) = 2758166: ShortName$(74) = " "ãHTML$(75) = "Salmon": palnum#(75) = 1052699: ShortName$(75) = "salmon"ãHTML$(76) = "Scarlet": palnum#(76) = 328995: ShortName$(76) = "scarlet"ãHTML$(77) = "Sea Green": palnum#(77) = 1712904: ShortName$(77) = " "ãHTML$(78) = "Sweet Milo": palnum#(78) = 593946: ShortName$(78) = "milo"ãHTML$(79) = "Sienna": palnum#(79) = 530979: ShortName$(79) = "sienna"ãHTML$(80) = "Silver": palnum#(80) = 4078137: ShortName$(80) = "silver"ãHTML$(81) = "Sky Blue": palnum#(81) = 3352076: ShortName$(81) = "sky"ãHTML$(82) = "Slate Blue": palnum#(82) = 4136704: ShortName$(82) = " "ãHTML$(83) = "Spicy Pink": palnum#(83) = 2819903: ShortName$(83) = " "ãHTML$(84) = "Spring Green": palnum#(84) = 2047744: ShortName$(84) = " "ãHTML$(85) = "Steel Blue": palnum#(85) = 2300424: ShortName$(85) = " "ãHTML$(86) = "Summer Sky": palnum#(86) = 3615758: ShortName$(86) = " "ãHTML$(87) = "Tan": palnum#(87) = 1844278: ShortName$(87) = "tann"ãHTML$(88) = "Thistle": palnum#(88) = 3551030: ShortName$(88) = "thistle"ãHTML$(89) = "Turquoise": palnum#(89) = 3815979: ShortName$(89) = " "ãHTML$(90) = "Very Dark Brown": palnum#(90) = 790551: ShortName$(90) = "umber"ãHTML$(91) = "Violet": palnum#(91) = 1248019: ShortName$(91) = " "ãHTML$(92) = "Violet Red": palnum#(92) = 2493491: ShortName$(92) = " "ãHTML$(93) = "Wheat": palnum#(93) = 3094070: ShortName$(93) = "wheat"ãHTML$(94) = "Yellow Green": palnum#(94) = 799526: ShortName$(94) = " "ãHTML$(95) = "Dark Slate Grey": palnum#(95) = 1250059: ShortName$(95) = "smoke"ãHTML$(96) = "Dim Grey": palnum#(96) = 1381653: ShortName$(96) = " "ãHTML$(97) = "Very Light Grey": palnum#(97) = 3355443: ShortName$(97) = " "ãHTML$(98) = "Grey": palnum#(98) = 3158064: ShortName$(98) = "gray"ãHTML$(99) = "Light Grey": palnum#(99) = 2763306: ShortName$(99) = " "ãEND SUBããDEFINT QãSUB delay (n!, k)ãt! = TIMER + n!ãDOã IF INKEY$ <> "" THENã k = 1ã EXIT SUBã END IFã LOOP UNTIL TIMER > t!ãEND SUBããSUB MakePalet64ãcolours64ãpalet64ãOPEN "palet64.bas" FOR OUTPUT AS #2ãPRINT #2, "REM Created on "; DATE$; " at "; TIME$ã FOR i = 0 TO 15ãktr = Palet(i)ãã Colour$(i) = ShortName$(ktr)ã PRINT #2, "Palet("; i; ")="; Palet(i);ã PRINT #2, ":"; Colour$(i); "="; i; " ";ã PRINT #2, ":Colour$("; i; ")="; CHR$(34); ShortName$(ktr)ã NEXT iã PRINT #2, "for i=0 to 15:palette i,Palet(I):next i"ã PRINT #2, "' Copy these two lines to the start of your program. Remove REM of course."ã PRINT #2, "REM COMMON SHARED ";ã FOR i = 0 TO 6: PRINT #2, Colour$(i); ",";ã NEXT i: PRINT #2, Colour$(7)ã PRINT #2, "REM COMMON SHARED ";ã FOR i = 8 TO 14: PRINT #2, Colour$(i); ",";ã NEXT i: PRINT #2, Colour$(15)ã CLOSEãPRINT "PALET64.BAS has been written to disk."ãEND SUBããSUB makepalet99ãcolours99ãOPEN "palet99.bas" FOR OUTPUT AS #2ãPRINT #2, "REM Created on "; DATE$; " at "; TIME$ã'==========================================================================ãFOR i = 0 TO 15ãPRINT #2, "Palet("; i; ")="; Palet(i)ãNEXT iãPRINT #2,ã ãFOR i = 0 TO 15: ktr = Palet(i)ã PRINT #2, "PALETTE("; i; ") , palnum#(Palet("; i; "))";ã PRINT #2, ": Colour$("; i; ")="; CHR$(34); ShortName$(ktr); CHR$(34); ": ";ã PRINT #2, " "; ShortName$(ktr); " = "; iã NEXT iã PRINT #2,ãPRINT #2, "' Copy these two lines to the start of your program. Remove REM of course."ãPRINT #2, "REM COMMON SHARED ";ã FOR i = 0 TO 6: PRINT #2, ShortName$(Palet(i)); ",";ã NEXT i: PRINT #2, ShortName$(Palet(7))ãã PRINT #2, "REM COMMON SHARED ";ã FOR i = 8 TO 14: PRINT #2, ShortName$(Palet(i)); ",";ã NEXT i: PRINT #2, ShortName$(Palet(15))ãCLOSEãPRINT "PALET99.BAS has been written to disk."ãEND SUBããSUB palet64ãREM Created on 06-09-2000 at 12:10:53ãPalet(0) = 12: wine = 0: Colour$(0) = "wine"ãPalet(1) = 4: red = 1: Colour$(1) = "Red"ãPalet(2) = 14: pumpkin = 2: Colour$(2) = "pumpkin"ãPalet(3) = 46: sand = 3: Colour$(3) = "sand"ãPalet(4) = 8: midnight = 4: Colour$(4) = "midnight"ãPalet(5) = 61: sunset = 5: Colour$(5) = "sunset"ãPalet(6) = 9: lily = 6: Colour$(6) = "lily"ãPalet(7) = 52: orange = 7: Colour$(7) = "orange"ãPalet(8) = 38: gold = 8: Colour$(8) = "gold"ãPalet(9) = 36: cherry = 9: Colour$(9) = "cherry"ãPalet(10) = 18: pea = 10: Colour$(10) = "pea"ãPalet(11) = 54: lemon = 11: Colour$(11) = "lemon"ãPalet(12) = 19: mint = 12: Colour$(12) = "mint"ãPalet(13) = 30: daisy = 13: Colour$(13) = "daisy"ãPalet(14) = 28: Brick = 14: Colour$(14) = "Brick"ãPalet(15) = 63: white = 15: Colour$(15) = "white"ãFOR i = 0 TO 15: PALETTE i, Palet(i): NEXT iã' Copy these two lines to the start of your program. Remove REM of course.ãREM COMMON SHARED wine,Red,pumpkin,sand,midnight,sunset,lily,orangeãREM COMMON SHARED gold,cherry,pea,lemon,mint,daisy,Brick,whiteãEND SUBããSUB palet99ãREM Created on 06-09-2000 at 11:11:04ãPalet(0) = 78ãPalet(1) = 1ãPalet(2) = 2ãPalet(3) = 3ãPalet(4) = 4ãPalet(5) = 5ãPalet(6) = 6ãPalet(7) = 8ãPalet(8) = 12ãPalet(9) = 13ãPalet(10) = 19ãPalet(11) = 51ãPalet(12) = 63ãPalet(13) = 81ãPalet(14) = 72ãPalet(15) = 7ããPALETTE (0), palnum#(Palet(0)): Colour$(0) = "milo": milo = 0ãPALETTE (1), palnum#(Palet(1)): Colour$(1) = "red": red = 1ãPALETTE (2), palnum#(Palet(2)): Colour$(2) = "green": green = 2ãPALETTE (3), palnum#(Palet(3)): Colour$(3) = "blue": blue = 3ãPALETTE (4), palnum#(Palet(4)): Colour$(4) = "magenta": magenta = 4ãPALETTE (5), palnum#(Palet(5)): Colour$(5) = "cyan": cyan = 5ãPALETTE (6), palnum#(Palet(6)): Colour$(6) = "yellow": yellow = 6ãPALETTE (7), palnum#(Palet(7)): Colour$(7) = "black": black = 7ãPALETTE (8), palnum#(Palet(8)): Colour$(8) = "brass": brass = 8ãPALETTE (9), palnum#(Palet(9)): Colour$(9) = "gold": gold = 9ãPALETTE (10), palnum#(Palet(10)): Colour$(10) = "copper": copper = 10ãPALETTE (11), palnum#(Palet(11)): Colour$(11) = "pine": pine = 11ãPALETTE (12), palnum#(Palet(12)): Colour$(12) = "pink.hot": pink.hot = 12ãPALETTE (13), palnum#(Palet(13)): Colour$(13) = "sky": sky = 13ãPALETTE (14), palnum#(Palet(14)): Colour$(14) = "plum": plum = 14ãPALETTE (15), palnum#(Palet(15)): Colour$(15) = "white": white = 15ãã' Copy these two lines to the start of your program. Remove REM of course.ãREM COMMON SHARED milo,red,green,blue,magenta,cyan,yellow,blackãREM COMMON SHARED brass,gold,copper,pine,pink.hot,sky,plum,whiteãEND SUBããSUB ReadMeãREM Every time I wanted to program using screen 12 or 13 I has to fireãREM up a QB palette generation program or recycle colors from anotherãREM program that were not exactly what I wanted. There are many goodãREM palette generation programs, some better than others but they allãREM require you to enter the red, green and blue values then keep tweakingãREM until you get the color you want. For me this is for the birds. I couldãREM never make a Gold color that looked correct.ãREM There had to be a better way. This is my better way.ããREM ---------- 99 colors in screen 12 and screen 13 ----------------------ãREM HTML has a very large selections of colors, 256 colors to be exact.ãREM But who needs 256 colors? 99 colors are enough for me. I wanted to findãREM a way of using these colors in QB. I found it and this is the result.ããREM The sub Palet99 loads the palette for screen 12 and screen 13ãREM The sub Palet64 loads the palette for screen 0 and screen 9.ãREM The Sub Colors64 has data for the 64 colors used in screens 0 and 9.ãREM The Sub Colors99 has data for the 99 colors used in screens 12 and 13.ãREM IT is based on a table fromãREM http://www.webwheels.com/free/f082.htmãREM There is a lot of color information hereãREM This WEB page was converted to text format then edited with QB4.5ãREM The HTML hex code was converted to decimal using HEXDEC.BAS fromãREM http://www.basicguru.com/files/abc/abc9805/hexdec.basãREM A very useful program.ãREM If you decide to go this route download a page of HTML colors andãREM try it, It's a little, well realy a lot of work.ãREM NOTE: The HTML colors use 256 shades while basic uses 64 shades.ãREM Some number crunching will be needed. This is not for beginners.ãREM But what the heck. It's good practice in using QB.ããREM HTML$ is the colorname defined in HTML. It does not realyãREM belong in an array It's put here for future use. It's used inãREM QuickLook.ãREM PalNum# is the palette color number.ãREM ShortName$ is my own creation. Change it if you wish.ãREM Using ShortName$ is an easy way to print or draw with colors.ãREM It's easier for me to use COLOR gold instead of COLOR 15ãREM Not all HTML colors have short names, change or add to them asãREM you wish. Just avoid duplicate names for the colors you use.ãREM A note: the same color can be given to more than one palette. ThisãREM may be useful in some games, also you can change color assignmentsãREM as your program runs.ãREM -----------64 colors in screen 0 and screen 9 ------------------------ãREM QB has 64 colors assigned to 16 attributes but the colors are notãREM defined. I have named the 64 colors, the names are mine and I'mãREM sure that there are better names. The names attempt to define theãREM color and are arranged by color (sort of). If you think of a betterãREM name or arrangement go for it.ãREM I used names for colors because it is easier to use names especiallyãREM if the name describes the color.ãREM -----------------------------------------------------------------------ãREM If you want to change a color go to the appropriate COLORS?? sub.ãREM Pick a color number then go to the PALET?? sub, change which palet youãREM wish to that number. When you have the colors tuned to your likingãREM run MakePalet?? sub. This can be run in the immediate mode.ãREM MakePalet?? will write a QB text file named PALET??.BAS to disk.ãREM Save your work. Gnomes sometimes eat programs.ãREM Edit Palet?? sub. Cut everything between SUB PALET?? and END SUBãREM Merge PALET??.BAS into the sub. Don't forget to copy the commonãREM statements, they will let you call colors by nameãREM If you change a palet number the color name will not be correctãREM but the colors will. MakePalet?? will fix that.ãREM ViewPalet?? sub will give a quick look at the colors.ãREM I have for the most part used discriptive names, this makes theãREM program bulky but it is easier to follow and debug. There is no lawãREM against changing anything. Have fun and enjoy.ãREM Released to the public domain but if you use it credit would be nice.ãREM hcrichardson@earthlink.netãEND SUBããSUB viewpalet64ããcolours64ãLOCATE 1ã PRINTãCOLOR 15ã PRINT USING "####"; 0; Palet(0); : PRINT " ";ã PRINT ShortName$(Palet(i)); " Background"ãFOR i = 1 TO 15ãColour$(i) = ShortName$(Palet(i))ãCOLOR iã PRINT USING "####"; i; Palet(i); : PRINT " "; Colour$(i)ãNEXT iãEND SUBããSUB ViewPalet99ãPRINTãCOLOR 15ãPRINT " 0", Colour$(0); " Background"ãFOR i = 2 TO 15ãCOLOR iãPRINT i, Colour$(i)ãNEXT iãEND SUBãAlexander Verhaeghe MICROSOFT PAINT FORMAT LOADER alexanderverhaeghe@yahoo.com 06-24-00 (15:31) QB 848 55980 MSP.BAS ' Microsoft Paint Format graphics loaderãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"MSP.ZIP",4^6:Z&=41731:?STRING$(50,177);ãU"%up()%9%%%%-%%-BPM/O:YAt%7%%C'%%%+%%%%rx%uSgnGTJ$>&RU5%fYBXx2?2ãU")VXkVl?%5wp6#KhlR-(qyE]AArs-hdmzeZ685Y(sg,E54'-D35u8$-0%I_yiOi0ãU"XkQQfkI\Z46O&i4sZhY##4J8gF1$x(/Ry#'7FSJ2#zIZg'wN1ir3VdJE;/TEiHãU"j+9WZggYB]Z*81s6FoG'6xR)N#400melcJ_BG]RHuEeiC$#K0TwY=\HpS7a#T7fãU"m)lYGB/AQ^V*_AhM9_,PoNw&AdRxJxKSGEMhP5k.7<+Xu%p()9%%%%-p%Q1OFMuãU"jt*9*)%(%j2%%%,%%%%rxu%SgfxNN&<>][k5wn;IwQE[3B3I?Qb/B,GX'&_5h=1,BkYR#Rql8SF=v9q+4]\H&7:D>*WJQ2dH%,nãU"S>*,,%(7MMR-Wh.RWg>J=BOc9D:wfnR'>Hj^Q-GBc%hbe\hhi[^5$nI[neD=FnFqk8ãU"MT_#QlJ6Fff8LQ22k)/CsW''sWc2n3K^QBqIaM#La#MBa#JVa0-:4o,0sPk7>\%ãU"AUnYI\na5tok+ctHYr'0^1D-]+QFLbFHN[VB$D.s+(MqlLv6MY=PY[/Pz;Zpc61P7#ãU"1MwJ(uivZMqQBdbYcEttMXt#IZJRzV0R98M1,D2-(/Ee6%\Uk*T-YXHVãU"\V1g/nVIa;\7[5Vjw_+CKx56F\SKdS*'v]6XW&Am,CG?CfWXI?,c*pTOF:B,86qUt]]Y;NfM,[[Kcr[+zxkMmB&7^T+W9D_ãU"4W.$G0Lutdy:t52.w4n-'L2(gN2TlrJ'PWh0AX-JI;%45T(RJiW$H/GapVG5TBAãU"J_-]3,g][bm:u5/rd7A4([W^,XCI?h-5#A43Lzu>J[tWuB.rU0(I'A>M3IBkP,4MCjGVJbY-ãU"CiMj2jJ_W_:6g358H_((Ng'xsrmxvxMW?%;St8d^Htm:IZodzrDBB'#09WD-4Jt^j.W&xGg5w^,^xQJ[zu>Ypj4_ot62ãU";QglgOVK[Ju%avbgBS-x*6Crz[]Fb]hHZ4(nKQN=x)N*T*ysCdQlDiMS%)DPP/,ãU"J0C$aE8:Z\CDo]R,XrN%rzZn(:JY??<=jRe*crIR$ykl[cbc79k^:CV^\vIHc0&ãU")KeNMpMGHJJ7T*o=l>eN%Y<=7kVc$hN,>s,u%p()9%%%%-[%%-P.MDDO+I*5%(%ãU"3:%%%+%%.%g&S%rxur)'Nyxq&m8h0_6-u]jJiThP;MItQ^uqV#P;',+C60-ãU"eLu6,N3:]]PF&NA8\8s*a'Babr^Rip^_,n8N#3:?AnW2%O-?Lw_2).r/P:;<.+#ãU"LZHA(f(LeLU4Ab(]khmH]^CHQ89)toQ9'ak2tt3HBRq[PW>jBZ6i?6HoR%knEI9ãU"'n*%Vl+qNd]5>4ENp;BDE\g%92Gq*y1U[1'?j#8O&UNH]&lbT0O\0a(HC40Bq)YãU")LO5Ki4nL-e-erK>#4wQ_*xEG_(GyO[JmzG.&'J;p=uUq_zHnixmQVdat.n_poNãU"L+Nfe&PLX+VeQ):-VoflS$s^cv(=+gMl\vd5p--DLj;vCqg*_xL?e8(5m/G.j?CãU"X4\:[Rl%%l([=pP^p8HIl.qX;R%famQv$35uzO/1K\mPaNY&MFLaEl$VC^6TãU";^VtaCjuD3ipHnGwc9/9mTpkyh[aeevYW\=(SOV9:4bN=6*1TR>_-;f=At):84sãU"_)p[na]H6YteF52S*)q7#kdoo/RD8Ox/c%tquPkFB#h.312(cjZhFjL=5awp#MrãU"ZQ's5WV';A]5cD<=;XCfdZ2mp-2Ef147:x##_KNM,h/;Ueuf^.pC0=(Y_ro0-$_ãU"n3P4abdRASL*Q%G_((/$eFX&O^6&DcxW^#?-2wBqp'1.]^7_<-DuU]mu6G.1DWxãU";eg1YhpbKHfioX]+6F?j6XTB\CU6,'D-FX,/:&l.-HMxZ_fE]D&Ay[Fb'%A'BozãU"'Zq)%EWCdoHO4oA[qb-hRog[26:?IBt-PD&G48*HR\EbBz;:R,_o7\K]P&0=sP[ãU"=PhkiilhtLR%\q(VEnpYWua+)#?gP<:?S;0:QV$bq:mr//iqiDN1L:&FRBtn^)sdãU"/IgV1/dEUm]Dp$_#?d*KD$l=,Pj,;JH;b=lg(,)t)C/+?/dn&d-7wLHPCIB)62VãU"gmc*]TvQ>'<$GaoOJ:,qMqLbEMBeKPMB(GTM#n1QwfTeUtEqKqWU1x^]*tTk,eZãU"Q]VmJ#Yyl:],NQKD;IjW?5?k1HlS_l2h#B9BlJmo\%YkYw%Z2.5vo[1mGX*WGJ'e?)ha#Fim$I3>xZmj/WkyS+u=Wx='JlnRiL,;u0KaeãU"b+[:#>'oScHo_0uiCIx>D&E'P/h=Uy1Qll?<7:,e9%&&[qlY*:,Cmkj0pjpz+WfãU"hW/i_\X)1P2\2cjLp)[k,i'MXjy_]Q;TgS]mvBD=pqPN$>[1bUhpDBw9I1ID:F.ãU"M,.\j/oBT$GR%;U+L#yQh?DdcD9QIu&EmOVUkoE7(Tt3dGSht%;Hx(B_P9#XPQCãU"C6_w3m-/-=A3C5q&cxFDx<0/9gKAO%?>3]A%4:fLoI(N/HevckfWG(.Yr^V\NM<ãU"-tTRu(0].-qbn4kpc2iriBV(W6C_d2y*dK61SS>5M,hJFOt+r8Tl<)Mv)QRabhPãU"uO5]a;U2C7$bYq[f1G7]*7,2V>7Cpqjqn--)2Z_xAlN*l_wUo$pvdE[:i3\wN(QãU";7]XyZXZ+.FnR#R&ms^qlXnZ^;e;66W60Gc8RO_eP-gYIRI0d9CQS3*PrdL$W.NãU"-HL=Vw3_.Th$]+;RJxmRh0$w$6$%h*]lAAu+]=b]Ah^YRQPWR&)h]dK7$4:SU+FãU"R#TbsZ-)>\/n?cvr/?(y*ukeQIg$iao<6&Bo\e\_IEaTrnb8sCV5NZ;zH#b=oUzãU"xr>4.F$QB7VKDHMAh#I)l507j*)U>#FWEMF<^QpNKmhYemGUhv,ucZICbk/Ir^LãU"&3LgX8Jp4h3V.I5O_tEZPO+T:CoHjrAJC^2KL4/$j(ZK]PO,EGBV.)M%BKziY3rãU"Xm1PEiK>4ãU"hp\5+[UCbvO0+U#I.9v-=L>)n.JcrQLh3O,A&rLi>o=>z*B7'0G\UMpaCkAmXsLãU"bH$9B>NE:T^;kj]u)d2Mqh0>u_viNlk??sf:IB7Syv1uk%^sW0)gNSm+QinNm>9ãU"3N3,rd(Wx*Cw,:.]=(?>/YYIF9qZjLtpgn\lsE8)ys.:Ou2>uTYj4q2SqgkLasSãU"x)9vWMeDJp;[la^n:.\Kqb];^XpY\hv5XJr]:KSb'mrJ9)u5lC=IPLoomc]kul$ãU"lD=EASr]#tK7^Duqi1eQ\G\H^8>ZUJo%y]'QEm4U8BFBfFd3F*C+6Btds54G%XaãU"9DY>[Rjc)FEijv7M)0dW'LDrDM=i]$P6QYBO*7Q?u\AeQJ7?yz1IZ1yPEh[[h36ãU"ovt8/C_mH[#?i\dDl->bK5.9w\Q1;fmrhnU/*%QUmL$-'dac^0*S\L>f21,E;suS(N5\y71BrEA+$\hfT6qI2pãU"72$Q#LdLYu'0+Kn#]\->W=e5GJ(.-GW$q^3t\U6^3HZ*j\7hB*nI-Q:ey#2qFGb%K&H7mr8-NpunjbZD2rM%*88IWN&FCd(yFz2Xl/2[gNgmU+a%ãU"wj4;7(l+g>T_k9g&6n*X[1_,F&TH7=[n#iR_\W2rcjY/6uPV:MQNj+TqQH/k8-aãU"EOs$n4x&hu/d3XHJ),emtz_7p,esNRkRZ[$k:&tNhQ5,nHHeWf-\QDb:o0a]%*ic?+N)FãU"0\e-m+I7TWoOEO>St=e>]'^Fpv6j4Dh\gIXJ?/(E)OZ45t:fX(xLFT4$7?mBkNqãU">VviF3k0y-L7/%:;SFFc,vH==5EgEC\),Au0eFF1(5:i.LsO%18?^XLC_2j8uqmãU"APL.sgwAme/9M:P<(Dck[rMXbQAun--R48,,Rd%tpj-0>^M$wdhe?6n&P$^yd1vx+/pMo)*6TmASdYYãU"olN&%Cl(J.&]bCn+#1$&6K*a<<$i51H#N7Mup[)egfyloãU":<0:0,9pZ1:dtqe%2ZKhKO-A27LsZn(;]''bGIw19<%w9LãU"^*.4uQRa?CndaR\vTzo%dC5_(j:8%7LypIN*)ipClmiFgyi:E4SVJrB*y[h.$b<ãU"D+EmRc/GaJ>P:MOf7+&+Gr1$:bYpIP-5=uhNhm]4+VwW)mOzuH/iH$0M-XW1vtTãU"7^iDwt6N^K&*3BToaw.hG\pMW?Pt)VuG89>uGX5WFoURt]q-eSdzNbD9iYlr'''ãU"7hK/,$H[$RN&8Fro(#rn(aK+at:cYw:T>M:/j9RHMm1h3e552ZpEI4*O_KWy5:&ãU"w_MT2?PIi],nu,TgLH9pzl^q-hi+*E;.:B%6BfsVe&PG:%b2dQP8MQuEWEWfbOMãU"vv9eE[[WDuo,SI'rKM6[Ou3hL<:*iLnZ]fQ(AY9aU?CXB4Z82>BXZBBHdu*,T6yãU"A*:zw&m:'xUIfRKJs;fC+E=l=juo$A_%zh^B8w6hg5:5qjP2lEaPZ''iZF+mxFKãU"/U]Ac(Lv*DFGS9pl?X=AZT'.#](lLZvg6JGIdXW+x)V\LVW7mYWw2k$,WILGAT)ãU"\s;9(V-W*Xt9oQhk0J[,bNBC;ZZ&lhpBSpSHgk;-ZUncOltiM_0rJj.V+/J8'S2dE4FsxTFRv/*(UaF0-b&DM78u%plmqE4m9'uM$DkoLb*9c>wNWBlK,[tq9uc0cPxFM8*c)ifn($0D(*IyB^T/6ãU"?^C[=h*kYpENm>FRY1W*'OmF_5PQTs\-6R?0kry8\;W=lo(dcXbE+Q7FilYkh;4ãU"X0K:irqlUOlA^cEU>IDxy6]cE_j'8'=h59J7TmfQb^;ZkF\*'kn3B5)H,CUnt.[ãU"sQ4?\*iR*[/+HNUnQ&m)^4C\HuQyKh>K_6&T$L)7g&#pN&%1>OH);GJZm*Z6RPFãU"TXvTv\uh9ãU"6o9T/xu=1niMW($L]$G8T;hQ9tI5m41YUD6&&qWqPXn]nni5B:UEXGL1JjaA]R*ãU"%qN%up()%9%%%%-%%-BPMOSHUImPI%%us%%%0%%%%xj%yzu^%ZSrx7uq54S?#bDãU"jLqD,[f[ev/8eOY2N;z.a\?iDSYw2j7rz+::Z0I+_)E+e0b4k&FqJn4+I(_rNkv$xN6u,BxCWQxv:CO&6SãU"-.kFGyWYNkREF6=M[+v=6L'n0Ga1ziwPTiQscNcbzn/K\Q+TY/k,=*7jOmkwL*_FGtgJ]nC#g*cVRq>69MMV+zJi7WgVFJ>cCEHyãU"n*K%q_r],nbg31bCPo25;cCm:lX$x+Z_yHjmZb4(g$dN.g9si?tlqvo_\BdE(jyq9_s8/ja81krpVisJXi-MB3Ptw/xK6iN4.JyK*i^-VãU"HyDRatncmsy$BGkS9M;mEnN]ixzuFcv*NnSfqsR(tfg/G;(g7;^ak3VWu)IiHZ_Oi3U'6MãU"Z-QJoSS;tUtYG^K=?pdokZxRBHobDx?X-%>[s#Wp_.&RAuLIa;7mL4A+oH'byvqãU"0B^&T5qfWfB%Zu]objq5.(FzFQe&.mb.5wTl9?2mc?iS3aBJPJ5$o8hdhC.j5:gãU"o5:I+IcO.7?[)#2C*&Ho=4]oo'5lL&H=r%Rjo[+B&=L?n.z9b4Okq:jhVaVSqf9ãU";&3:/*2>zj78.4>V]%cej65Y/*1T=:.wSM/f_l78u(/%f2,r:&6BC^_R7q8o'&0ãU"90Z/l$cMT(*8qC)TGit3BS%8+uBw:3m[.CZãU"Y(9\%?.7\#blW]ixc+?[4^pL#ttd$szkD9ksnXs8^rctlCAu,H\HKK$mLH1og1]ãU"nb#kv#H;4E#)KLa1xKTt4cUL2dãU"-\6[+-DPyVBz*LIvrB2h7a_GYFue3G(SfFXb%cBJI5BNj^KC;L>p[3/=hIW_F9UãU"H6(d%5Bbz6(u^BZfhbT=H/.$Tnb6KObotF$&(6J%_H,((;'Wj+iO:9'ds[UJT_GãU"i=.94l_gC52%7#&K]Yle+Vr55R-aK06E6).6F5eS5jax5l_5(4(Z.IH-a-ajHbOãU"Y.Jga1'+BqSKr55#7)+o=uiSm1cEmt-Ld&>uF/L^Osv$./YcFV6>.$=>IG.#DGsãU"[SyofCy8cCit-UONlYki0-'B9Vp6^$p#/-dq(9E)>6J(Ap(D-BT=:-C9SSpsãU"\CrTG/.CA9Q?\PM>KI/jkI0M(]G5J=(opy1Q5:j$#_ãU"C?1A[899jB,NU$/F5VKd5F)Te,/X\AINw]$T%O$b\pQ*Z.KY4$P7gkBEO[_qttaãU"A.XSol_^bRxe[h.OW=Fsg&XccEujAH)ka<%T+mV7]F,+=vr0\oCU;2:$h\?P?%2ãU"uAp4zX>bqc:?4%]weB91pMBIj.8o4UVcLkYr>>LuwV;F^a1Rm_x%Oc8w5JSK,%RãU"UUH1T'$4:jY79UI8p&VD\.^i^H(>n(m1by:ãU"/vKxcvkIFh9WgX7v/#/MbR*/(abE$cYN3TuXFiAaztmDAQe62XEsiTN2FVB#?:[ãU"%lWK;lY$KYJZJQWk-ja)3r^]b0J?i&1J-$0YqqWH)EB4d.i7US%$4Oq^a/)XACfãU"0iz%1X^KJO%g,c.tHqla27%JDDl9?Mj;tY1lJf)[.CZLcam^t'[(:fg8Uu.EfoAãU"VOVHIQ'6lqs+P%A(;o^.IvMZ'NB&L^Fsk10FDDx?cZBnOtA$<9c=VbBBJh,O&wEw'jFJdjbUUYhaãU"+BWdJjL0je$D>x(T(O1WU%m9AH.#^]'#m+9^sc:=Amo+/G)*7Xe51v:L,??BKKzãU"\>UvPKMP&%mb/Y.QZ(J2Ngb#rrm_u]0jP(r',$q4o5fCtP;z<\88rbZ;J>li'EFãU"z>^W2Ek?CimxL.<7^A;[JKr_s;:rON=7]a&(85UF0kf_B*FY3tHyzTw&sKH4b#yãU"B\mXe.Da'Ddiaem8A=m/jat6-%Q2#X9GHHg(Cl*kK2n4a+l5T-9W(uAp-U*qRIDãU"]ogBUt/qm:jN*>'.T#2T?flX^J)12DO;21Z'u7rlSHYO.4EgãU"gPH\qQ^jtdt\.aãU"sO%=X*P0Mp*Iwjfd9%/U$fhsqi#g+j[/Vm10$,[kt9)DU%rA'GkL7+2':3\&mm:ãU"iG\)Vv6xQwL#Ilw[L6mW7R5B+$[0Uv,*d[_3/RV(ob?&r%pFX#O)jHL?C6a]LgAcK?b6[b<)QOiVV7o/wI6Q+OFr-E$[4PO_XD7<-eãU"cYY0$,eagpS+1B=SQp]KX6K,F6-[Wcf0K)J+x*'_U]nrm=hrT8J[Fp^/+Z1/98\ãU"at(>fd^9L+zi-YbvF#K:Iq.sn2V/+e?4sjr5<8hj8mT:9DyPfr,?uSC$qc*tJEBãU"3Gr*'96?]4FXh%%&WDAA$fhd:eJQ4olGkDdPU)LOtJ7nnrt5a=JAC=BG%Ziw<,+ãU"wFU?\3*[&Vs>R<]itM5R,C03BTrVlYO*:dG+n;r18J^0HrTA/Z4M/a/NTRE2[(zãU"J(kO'gX;3B8a_p[biqQj7a1NKeZjvGHhfGKJuRTF7hL00]almES]i\//;_*1PsKãU"ksgf)qRU]sQArdV(*?YB2sMVn$uu9PCVHR*&ni&5s:f-$\S-PS#I\F53drP_^.;ãU"S]gSiTxp4N0qdaS38]qW1t(c-N5lebL)PE1n(kmLV(&qVlc-#&.D\P4Os<5l,,ZãU"blFO[pOmG48HM#kXt6ueRHhUQoo$0Xrkt585G^_VN:[qpW_cgR\\7)9G76y:O)ZãU"o5MLJf9D_hRZ,qEvXWt6LL0_K2(-gR0S?s-Jv1LiLRwWi/XpYQGg4\bBhq26l\2ãU"G)XGh/lc-Fi'p]N1>aaC#8Ac$[3ua72I_kmeQG's#A^vPa0&o(KC9=nd+jr:nmRãU"^:p*\ivs^cSkS#26(Bt__<(A7L+Ch%AMW#$.U=RZ_?Ej5C(An.FM-EX$;nozr%uãU"JilEs)\5fkgE+25cqapAV0DãU"0IsQY\(W]%dnlj:(jv)Ah;8.(B.'ux;ld*426]1Bo^>+m$tILvcQebEiRM),tMfãU"WeL0^yGBPC1D8%&R1c7kEs3J2pDM2'&,HT*w5[[bo/MnAa#VVa;3?2E:HWudk26ãU"u+Y21ARBNHi?aQUSq]&7\B>SaMG2'Jp$[dE,^9whi95W2D==HOt1nd]%WFhlL[tãU"OfII<3>eWqGfwAphE[0k?.-:]*G+vH[bNHfK*#LrR,blNs,A^523Wlq\K8\AzjFãU"N-[j)noX$-ZS^nb/sPW%<*D64cd]SHCt'kexm-R[PhHZyXI3\2I0N19NS0+Uo%lãU"zY,>nKm;Z$lsIL=NWbn\;o;/,x]..ae;;o5CsghDI4rvãU"%Nt=WsF6\GF/U8F)wTn7[L=,#jJHQr#fqRFN[yFMX1ls9DHR%a_6z2k6rlS^Lo'p37+y7tx5Y:u/ND1+9>oãU"_+*rKPrdb3<1#_=jW-kPvF)sjp,NQUjX)DBG#6bfhAHNh.oE'b\?'iKPJW^NFs$ãU"dSk'520XS]<3#FyN5M4j%S#=:[IdAv9hoER1jt?ssV1G&Yx8>LCZCfa$0-odG+aãU";laVBReAvf(i2t4)&%[5MT\UEM;#(1n[(cmEoUs#G9wgs%vGN=ofLGA9[.H;)kWãU"sDcHsA\*k;+,WfP;3txnM7]nNwk,[L0*rL7H.Op(obBRx,7G?Te6e[DplW?qCo6ãU"b;Zehc]F[\gC9BS%ee[m*Qv[T%:r('nT9Z%\RWcD'k>naMA$mEGJf>YO_b4*[AtãU"VD42^Z_m>n(ZmuWqUslWINAc,*l]/eP=+;nM&#K:bh^RW+qQJ=V8muh9bv*mL6lãU"iazkI]1(05jKX:zQ9e(6yB97Pxx1lde#v-iMf;5T$pO6TR-hKJiW=:9MdHem76nãU"dmBb6*=EFLUVoBIcOKT]'qC&aYZgEGi)NKw]CoJW$IzJ8TT4Xp^C$o5U9rTW4_4ãU"E-0BJEHT53XA2]md)C&nrQZR*mc[K;'j[\fgW*W,yoML=t2'q&DY$]5zNNKS-qkãU"?Vd#GN#GEqY/>Z,-wQ/-.j/E#WjP']+'*jJncES,:4=RYl[Z8d,p-i9Ontd)vR4Ch&6t[C\I-H8v-LGvu.9+ãU"Qw$q5'/tic6jI*Z/]Kun:lGmP^PI-9mEAaHbmk5g0$WU)cn\sf,Tl4g*?opgv$?psmEqwPoãU",&nw189:j[8$R]\nvzV^:-sQV&mkPDJekY$mNAJ]t_6*Q7ãU"Lv?pIVQ=_VW19:,.s<>1-\LmU:dCh0MXH)wFxA*VI7,;h9:f=E(wF)9.xr)Whw[ãU"G[vq;VfPE]0'3+51BF,,NxW.B'd(TY)4ELO$(;MJH#>GvO[)E.F&M8PIpV+J'(N(LqO]mFãU"v80)=od\ZSKbQStjEbT>36SK<:ay>X2M=U=BI1&F<(-fCY)wstqknt^QPnJe24MPclVsWR8'NE8$+6w\U_StI/'TYjI;/ãU".V:G6)lK^>zSd)vNiMZz.frL.2-A-X7wb26x[)'YTW=,'aU[ub&8fTrCer)PQZqãU"l;Hi,D>ga_t9P\O=Q&F.*P_o28+^<2SPn0.eRp^rM*'Vf=&-IPRk):,GVmA/-L8ãU"TR2:p*VITID27d#M8ksN7BRcH$r6D25d*u_%,JF[;x>x<>^\wW$X#jc;(Mh9x#hm?J(:Ilt^l;j4&GB8JDXdQLN.kYQ/ãU"T2UYE/I(k2s.[E%#'.*EI+E(6pbyN/YJ.v3=EqrWF+J'S.FIlxmEu0_]*gZLEd*d;c\^yWEj45o<ãU">ohV4i>auM=%7DtmI68iSOoP+_u,IB'dkRjmZt3m]'-iO]2zf%i6V(#E+/w]P,9.(H#w9/bWX-un18_jvfpq/DQRHdeKGy&[ãU";\aw-kLwQj:p?6k]PLn\c)*gk'%3l;BCk76==ED^N=vKx\'vS30fEHphng]5/4QãU"xXn]N*6EtcSwr;g09O4d7WHak]D]b_k8en_h5f;saCQInMMãU"]m6R/o3Iej/ai=NF]l:U#B+>XeE#Nfj#U#p*^,mD77bI0R]cDCwVRXD4myS=k#WãU"W)0g+QrHU:;D8U<5o:9?AHGQjvPNcD*rR'Bplo4T>+48lEUA?4k3v36pLbFHXWeãU"(#qU)4_7oPLa4'f,?%mq+n3hx0qHqC5=n-o](?+0Nu/VV5UQq,gI?rIG7x>U*,aãU"Jr)uq5hlnW.pte_:p\hclQuJ[MBE$4iboPG4D/_n0rHaEK_R0W8j11nC*Dmn9ZuãU"IFHtL?gSVhYI>NTJY9o\uq=ur7cTuNRO:GF/<6N>ys]Ack[-GiHy0TF#?]AcYh-ãU"%Sm].K&WxIWQq7/%MIAd&Tb+=7(_#5NL.ocu8#>SoHnH-h2tnCxmXl>t&ioj0[gãU":(Bo\PX%l=:TDm76RVmA5Waq&Q33?^ALI?=n](dYbDUQ]zo_u(DKWXKGLU0&S?0ãU"Ma8rrQR56RRYC3aB.G[9DH\H[uhIQWqUE>uvJ^^7oRO/_,Vf;#^$YC?O:62I)h9ãU"*?4+gf[vH;s\pdH9FsqL)v>47FSX\&:L.aQEfd#HSaUI^DX)B8QR4F[=4a4JLzJãU"15$kBtK8rsEP#%eVb^fw+s*Z(DX4HE)+:QR&00HM.Rrou\8;$;_qr$d26Kf_#[YãU"CDMy3/EkIX3hkzK&r/XF;,Ix_ZpsVFCmG\#nGFt?a5[xR]7b^K*bMIi'tcJ3EXmãU"cEVc'wbthrT6s:+YjSN[#UIRc7aV$mYkHXA&7Yi9^/aL'V(Rs.WJ$iL=GD+tU\'ãU"qWaFV_,;o*Ruh-3\t9f#a_eNqOs0k-cQfukY.&E>tfrivS&wmYFsJ,Xn,#J>6qhãU"jcQzHAzjAS>'G)Sn(nHY_m-sd?ZqRES\8:NG\kgEH3m#lnd*TsuZUwoso/O+mb6ãU"9pj-JnB^#jhp#.v1\OCVlVUB6b_+;e6Q4'aT)G)?]JOv??Nh(6uuV6M,.0e15OHãU"Zs7q*()T3H/4l\j[pSJ1xXp2N+,lcU]]'AA68u%J7O_ix0'X*u&)QD/CPsV$lqgPiãU"G$ua4fm^RA&qnAEeMbju(\o-Evhu)CJ]q7ipV\:^mkCT#\.tPdNtNldqR.LiJkSãU"kYGVQu1KqA79x:gIw)a9#vNw;1L$*o=&L:SK4dDjm45)xng]_B%_+DrR%e=3kQ8ãU"$*pU#UIGxiw:u,u:lnjuSHX6cxGM&>]g,x5rL_4]nQ,q]/KFyA/9fGPs&kcRJ,PãU"qICnUZIYD$3DIx&\N33srGY\Kqv6BjZ5Cq-sj#Hcf*-R6:VzRhQeTE9-]YGCJ$LãU"e5UW$4In33D2HO4)m^7d$2dXmu]x*hcGR1I9GS\DbXR0nmb9du6cf%3NrW-&Ok;ãU"^ijYzfK-bl)0R7G-QH(PIoTs%kJ#A*:d/CU-)7npKIL%js\W$6H$3GDk\m/u4nAãU"&;J;\mHpTn?QISkExdzrPD1&]\b)iEVX_o*/C&A>)]n)$Rmt2B.N/I.4?Dsgjw_ãU"(*-ol.M%)AMfE5mnbJ#smY5cmdJZ\KudZ.uNWqrCFQK8]F(#$(UVetW$3:_6MqãU"CP=Et=a_I89WA;Iw)nV/KF76rj&^SOLCJ8_spb>Y40B#&m&_]/#rM1iL57VboZY6DXZUO;XF=2mnAãU"0XcoZtwwiY4Lwh?084R>08bqX<%gCT;zC.xjCDK1iZq/f,K)Se,F18mp$+'%(W,ãU"ADxDCs35x8m-Oe*s$i\*q9^^X_=%ZFeLV,OKV?;M$B_c5PZEqe^fXe=ãU"^gmtBI3+)dHxC]AC'EbK-JzxQKUvKCKrsi^I34;y>h#ZP$xCoU?F347btYl'F)&=bmFfo)yl))RSEFyQOW+oEqFkz4C-HMGvwNHqiFv^uwãU"Kw[hhfF0b&/;\a#.,n*.RK[9V$-0Km3Ois-\6b(awRrAL3.%AFo;,b-0eR3ecnCãU"Re($[mtU9ea&X>K86'*UuYQ?Td$h:^Zs>>t,96/.^ZOUCMãU"n^:*ul6oTsEa$O?fX1o16dSWxM5LSFd*Nh44B-N2M2Mrx9.rexW*)k&BZbC>#?9ãU"dE29vomqA';Ss*e;e0rIqA1\VlV+vp+;o1d/p/z4iK+H9aM&3NMrBXpqTtddAZnblYi:cCH'-j=qJ\-wUSes#%5wASS-Y&ãU"F>44n>Cg.G*PojSzHdV]l$PF$DuOb&(l3Y0:/tnOoOdCJa-Pu,QCe-C)JPwc9U-ãU"fdlbL?=i-n$6,/bEpx5uiQ8f7;?=dsj2HdxHP4pF8*$&*^m'r\E9a1q8L7V+$%ãU"ADj1cn2>;0A;7,?KmQjMeJITCn^[t32voJo[Un9C&e,QjMBXW.B.%lVQLMu*2*2ãU"MNFD6AznE0ge:W[,5)o-.,j,EE?A?InS3U<*4>,a]1Dn6L;7$KcbuTicF8d'qz;ãU"BMg*e2#mjllC5Fo%2nKv0UF='fHK0%7>N^XIhr:mI.1;R9Sbn[n>K;D0Q)K/??)ãU"q)k*t$J#,t%]4.fwpH$t]wwq,;b\_f:Gv*]o\k4b1ededSzES^kCL7&ucvYX)J<ãU"aAVK%OtJC$:ruoE_nS1tf4sk,6I^AX6+(Cw%_.-5:zUUSr%H(5RZnxA67HF*8,9dg:>m3WVzWie*pK^IbW70]$ac3L8Aw7r&8c9[zU[a>F'XQ)\+K*J0l'BPH*a&ãU";PD3-:%wd1&7#EkIq4r6Ta9Yu>H=0h3B_tLfs(se>=E&dlCM[p+>aCsTK$lsZsVãU"882ek:$lY\;P#p$zli9tWQs+j6$aa8(*%9OfYK?VY.bQseIF0v[R?jI5D]8Kp8]ãU"N?Yw$RbUgM4(&OR_6vvrKnVQsQ\f6iCKr2-V3AZLbhr7[J&9c+pvmktc:nG)'pCãU"GgEV_-/tW%TNZeb[Vno9c+zu&dYD_[W,#Y?[4c)4ZQ0XEFD#wV+,RqXiWUKTgG.ãU"UGib:*RL&Y1ydJfvNq2uZ->(7;2g^M,1;]))89L&n7;>O/KLEq[cL?HoLzi\#MQãU"8GTDeh9H1-kMnj$roeCdutv,ãU"ml5IF0e\R*tpBPR_-QNq[v%[\[:?^8;cYLa_NRSFM4Hi3/p&Feu?%a-;wrTIPhMãU"Fq&.V8POaR]F$?cWQZQIK&D*5i%/9f&uxh]:l%u'A&]h[2b?'_DBoV7fhAãU"7Sio4wSXsDpV[,I7k-j,81U+tFGfAq\fJq=Cv^$akv2g-MHhuagW:A1ige\WKtDãU"&/:5S4XWoee7Crrt/8EVfcBotmNdZi0]L14&4<0ba1ngF*A+\cEI(43NrFZRAzdãU"fC'DwV3fT5kOMhtAl-=CsP[kjq;*>B>J1zcTY)/#C&Si&Gq,n8*v46kEgB1Jrw*ãU"waW>CgNc6?5p$kIbM8Qf_UA'Aj48rpk8m)hDG2n-CV+&4\>4?VqiRlo)fs$(6C^ãU"$ni&le6)(hk#jQH.p^3gZ0fcpsA1Y/LwvE\e^l[tl3;9UO6\MMY?bUPfW[9t,OãU"RW\kixde/kZr],AY;qQKHYI2)n#$JGR_S,9LV5K.Zes8ãU"S^W?Vu3?,w-\?feFdqd&p8t/*_MB6%7^su]'c1.uip7&AFL7yn'QMTm?jdE+F+2x?#^P*UãU"Kc^)?fpg/dx9K<74,q+D=/B0*J1C(qU0?E268u+iNK(,J-:2Y-9fK=zYX/oSGeiWãU"L1dKI#G\8I#w)Ap*UxVJai:AUM;m_K,.bR4JoI4ZW/0jF9#5hIP\4Vxcv0x>pXVãU"tTE?Rodf=nZ$fJ]G=IsqzN4&&tS(BZ5MmYW_$^-OvLh1&Uh0\I%&6+o.rRV]PZGãU"gw$Pq*)N(B%Us?aW8u8:tn(u%51+08:.[opO<;SgNjZ;HBYhbhb&]&V$3U[Ao0ãU"w=NWCo+;pI1IC]M-49xmSWo?X=NdX\EOO9Ug>D\#Cq1PDWP$oi$)'g\xu*GKd0-ãU"cz(Z0#:FqHI^-.^Y8:oYF>_\uZ=#k1Ew&?8fc2Ev7cbQqTeio]IGQYmugwWjãU"G+EE1>Q-HWtL1EnnvtãU"b#_KwGCcl3gblQ;tOn)28HWãU"8y_%aN,1+cDgficVX>?oWc$v5bj\-zto=nU3Cse-k7Wf(-SRyY1s2$w3?*D^HfLãU"(L#lxr\Z/FjwIceH[mlEg?thLCM82LG2dYqJO$rP,)Hc=5NKJEFdl?0qsIl\oWãU"#dJJm3V9,?HM^X,V.Ds6j$),34fFyDsXP(e?oHIUr%(z8IsHeoxgg-7XYdE*tNyãU"ta=+*[JclbDb;rfGdn'5%J.T]V?MesV>s]BGPw$0Bxg:i5qCcMrr^xc:hg8wo5hFv3rjBvSal*Z-DLj>K[Y#MCãU"C/b<^:v(-<.vXQ*.]COR>jAb?9QSG4cPp?k\%+&uvc$1$O-dn3d$Js;#Zpd-,t=B\>*bC/e[UG['\S(JxiXqKJ6=%eSg=w:jwYãU"G[EkP#g>*>Rhn2^[=vG)RLi>pg8xg2MC0.Pkhhw+iI3/:5#6H[k9ZFK;1]eAc9wãU"HAFyUc%YnwwqunD^UH\.?VRpt-l5w6[o5vvB-\[byZ7EpmBU\c1iTx?tt?6.7SAãU"#jRj\q?J%h[Rq*IzSZ=Tt]YeSFU.GXdUg:.E1hIL4NJ??GtL$SCB?'14N;Oph0(usEYtd=st^AbTMgf'=bU8j5)K&ãU"Qd/Ob3Ca%LTxac:>0-E?q.u$**rTF[w#D^'&[X*-4\s7qCZoKsf?UW'QldkDp%5ãU"a*ew2c[RPN3QJ0EQu(LGP:.709PgtbQB,NK.lTyuJ7$Pt+**)ujxU8VhP7FOH=aãU"M]k&_XG.TVed[pY?U+j(FZ#9x'kp>f#$G*uDBqx(_?u/)zHE55c^xIK(BuzO9WuãU"J;scn0Cbl.V.x=&7#s(<<^<;CzJUcW8vVu8*0E)]DSRl49M4XUE8C'aLWWim2JBãU"OEvT052(ohJy&(%_2KfW\jU3k\MqwEZMl>o'qc1A?4nC\YãU"/+aap]F)n/a1?lNSeD$M_BI8K&[ADJN21LhG-Ic,GF-f-swLyD,hmT9QI+f3>%&ãU"e;Ppr2WbZ$(lE*?-RI=w$ah+z7sZS3tg*&/CUbj.l:=)Xe5vp\h\2Rw*llOp?X1ãU"b>a0R:U1G[RLdf9)1kF7MO*E:MT2SYE&vMo35$L,._OoTD8utGhT\Bp5#/*+]BHãU"hvl-X_*^=TKD7jl081-kYN/'f';U=)%b7\tVV_S:jwcmv$UJT$,Q#>mk9:TD7V=I'i0kmEdG8JJ94O3l?GDY.#wLfo^'[g<ãU"BJ6PUKKBV:hFM7p&bKcfJOAZ9(SgU7d\3[0p/;c2p$??>I/%6XreG$vKUQkVU'ZãU"hm.M)VH-)VG>/h0E-:XYR7QMA?q0V:HDlRMT>niAgng)bZ,\Quc%_/L_AãU"9_aBnUwO)FgMd=.$a-be$[x[NNv%_nbs/^u&I_>:T[-=LrAuZk]2:WLb7W>m%QNBVf>00^3Bn;n#8;jãU"$9VaaGhM-12C)UcK;l6m6JAFrY.$a2tUI1k:X94,?gM0)2e,?XUKr%)djdUq&&)ãU"gBusLeb0=_.qh,G_S,J4aqFm\-h+$/m&_;13W(9EBR*ftgrsK'+Y(li]GJ;>bQXãU"'1uK2g(76k43-^Xh1%afe)G6E7]G-x](adzQ.2-4Q#,:=PU%3#l)3A;-N6]QSgWãU"G7]b^FFke-&L_mGNW(:Q,N:a<+yMKgUkZ8QF3/G]5rcU1gb_hR3WS+W\\8E5cZ,ãU"p%725^)8Im#'QalDSx,uV3t*K=LuALg)7+[Nm3wX4neh(wsWgbiUUhd&+q4*Y7qEMlb_lFD)(CGcw[%2b8aãU"_e<2$*.aLl:.Kivo:f3CP=JjP%)>_Vd-gmpkuL12S^m4'0_-;:G/Qo_nTI7e*DlãU"[BI]NyShB/JNgKg&Hw#U)9S*mr9Zu9_uTD+9UãU"/zl)Vr8j__W;xKQ1NZ711+dmInPynBQ2,/WpASdc8#M3z+I.816gJ-#Z7-,z99mãU"T/I>fQRbOI]cs)-GL$5T(K6KwIu*a)&2VD(eE%cI/7$l/pqL_-r>7Fh%A9K=lS4,ãU"/hO-SZACqJ%aT:C;:)=jj(l_HbD(UDF\5y&co-9-R,]Y=qtUs^M[ob+d;y*;09^ãU"Q*7kBu$ZnQ'xE]jT&TC04dkG1t4ZU4v0/#EsT&FUAJ=Us^cCF3%FGEU$LLHBWVoãU"bkp7il])zS&#ZTR=B&y9idqt(u$vmEliRbwOtmTRnIWaL9,*pyP_o#ãU"]5Ow?d$,'rn?$O$XH(EAUAUMW>O#X(h&a8b9bS*BLvlB9.2o+w&=EXP$B),bb95ãU"fG4be.h_((Qsx(SAF+'AGcw^f\=hP#K_,]I>_IESh%\kgY4dL.CJ^,ai>f<ãU"s);o+E17ihO3ooZRtICegPsb0D1ziWCccV8P193gJo$P.=$-5LFWgA#$ãU"jMJaC.M>stJk\iTCOAFZZ4^TJ4$G1JOVRQBhXdTEC0derk^BL0nlI8o#HY0hyd$ãU"io?/R+[s]_S[L8I-k*k^4cN-HagJd_P1GsSG/8YlaBAiHZtdACOGdsJO<]74LV_ãU"j[wFb+DXA%fSwZuR/=bXX&^pJiT=mHh]Q%nLeb,?i1=0_]zW)jVQR'a,5hG#6qKãU"Cq:U-;-8'k-(ãU"3FSCEanBXN\A'.DwiK0=*X%;F,1A#*AlIC\/D^#)b&+)1bf)SqMh-(q+*Nhc?$PãU"lA#5laA2F[)bTT'4(HpxR'(%5p38LwQK&STzRE0%>-?(%4m1AHL8d>)29]:%CH>ãU"dvD+^(-oh_%Z'YS*K[S&#KBWNd&WXk=YHs2K=$heMX3;)ACGV'E'sc'N_24i./OpLOTncwv?QLes-Unxk3jaIdF*I(K9m_klkãU"e>;S%*1R.b(>8AsbJ%Le.qQ0n,Q]UX4]7>RH,_Eeo6KssE10F&Yuc_-<'[CCy/MãU"\ADqAm:AC/hA-1&^u9UBPU[V8eOM-$%g+;ci$--H2a*EB;0*>2%%4uH,>TEuuC>]gVc0UiY9((.ãU"YpskldCW=%)mGSTo^e=\0W2$E:pt\sjiPWeo,s49CHcyPPdAYgYQ?scS.=#ZWNãU"YBz><0%<#YYklCWMqHYnX4B%424Mq=#Z8lQOqP:HI6ACNTP*0*/x&d$:WB3LiHiãU"(B(Bf)j1+wh^fkA+tJcwD;'+qcZk?:YKQ'Z1Pd(W5X;'kb\P(E3l:VF2C-m/hK6ãU"Lrc;NR6#c7V6?,H97Cnx&p]:r3aMp6pw+5kG;pW?w_*D9uq$ZoZ73)6]N^Brp*0ãU"?tpL$>n\cU9Eef6,aKv3]>+CF],ul1DP(nN3AK#-]K?35f\9v7>-3XB_F#qJk30ãU"uXe:08(]I5XE=22W\BdT*i9Yw1NãU"^S.m=ybI/ji^$llkCC(NhN)6-vT91&r](_MfpHZ95620+CRH\7%,IcOqo\MvwV5ãEND SUBãSUB V3ãU"fH#\*?YJn$UU((v93PXq\d<56hDs[D$*9>%:^-'aZ:VMoF4+)g#d3e-^GnElWnHãU"0iNK4^*h$Lt>Jd$S2X/[_nBmUQDHGq8vZ$a^.Q:*s+P/SG?Bt_]T89\-B=E-:y:ãU"JkD',M*XM;sXRb]Dm;:Kg6Z_Vx4UADn_/)hTCD^a?bzJ[7=j-'4Y%7uox'js8CrãU"eI(bX]EXnbRlx&<':>8%Yfc6LZ$\g^gBDgRf#R;aaGel$6aQXS\>&PcypPGn1D+*E?PãU"921YGMS.Wj]VS&+(zoK,+&nr^+eUoulN0UW/P8ayIZq5LfbS3xhQ#jk:]esJ3MDãU".'sape>NcKhsqA_c5C/u6t3F;y8.m0M7?d4su#SZSa=uHZ&o:8i$SWY?jEZ\,3ZãU";/2WANU.DDrz:_-N$[w=SMnVXZS7&NS+z.WRYbNRBSd*&o?Ka,%m/XR3wtl;0$TãU"61MOu:%:MdbJ-,$S+b7]AIHl?1XJAS00pãU"_ii(>y9.Qt-h6>E_KuUCb173w\\xVImjRW(_xw:L_k,/TNVU2,YLae3Sy32?6hFãU"^XJ;tt=9(T_f>fFuji]wnP[82.9T0'V));\e5a5o3h#&ufE,JUFiSQ4(0y%pj8(ãU"KU,ho-Xb=I)&%Tc\m.KL]p\w^]kI_)&7DX]^Y6HdYdsivE.)sV#paHNZQBozi79KlW#T_fRVz3Av*KwMU?MS$3Zos^]ET%TãU"xUAaCL%GP];s=l^A?+[^%O(,u59QA9UdAPSROB)NU#N^wZk3#v+Us$R%'K:ãU"w;e#pHvD33FkHTFpSp.DzB8U_S%e>]dPE,,W_v&yioHS#-v?7EwHriDL=kDV*c2ãU"qVllY7E3oU,(O\.=c+9[fCvgR%juIy>gkdUSF-Kt8G]XpfGgG4B:nLyTR$?lgr'ãU"FN>uPZMFEAG+CZL#[7Y*ki:1?O_brEM3K%s5'$g8cZQ._DZu4qAr.Xn.UpNJwUeQVwnjc7ABF]m86[Id'0j73_o=:+LPbs<ãU"Yk6n51OoutdZW7,?%d(B'=8t)OoMRYo\3%B81vvj$VFijTl_8x%&U#UJ.iOtS0AãU"ND^muE5K^f^A7p2P'#;v(u*O=VQcIOC*;n5JwOY.x4?gfVRhuAF$*Az\^huKG%7ãU"erT,Wh^&&\CYPxZ6q+&m5a,rU#.2PFHBbNm9i.#vRKYHh7mXx(d+?#J7#oQtX;M:/MdQIf=)ãU"\.hM4=G<(Z-RhL:EtKGH>)GO_lP+BC8%i[9E+::(NbãU"FhHRecl0,eNUcjFr8xl7RV$XD\DMuRH6-ycD_&8;(%j,8og;ãU"FTO\LR#Em';r*Zadjl\dD?Y?DH]jOIM(Iwj/a&x1BJm_'DSYAc%KZARk7RG?N,vãU"u'J/k2fS#z%\]=znR1e[MA5g\+M/HUIRBI,mm&2vu_8xbrX=:VxDaxhDTLmimX1zdYw,$VbxK%KJM)^ZZjh*3ãU"J59A4XdC&AJUL/'kB4ej'w1Qt*3;?j%J$,T%Ta7I_.1MU\u%/5uaVA\QN&'7MhIãU"OS*FK7Fh:5(FR(#H<#F]*LrB:6^F)d])ED89_oo'mnGPrH*S6r]nRRWOwszrhJ8ãU"pc#lcHS*Gtoi31kK7)?sv#M;vPF&kh8t2$g1O9[]yusML,9lj1'DvP?zn)PHT?.ãU"Cp8NrLa6kq9Z&tbc9uGG<1hOJ5n.jr]1ZfU\b45VB>P9#I;At)pTGF[#]R]tDnsãU"2wrJCJz5pqn%b(E'.OXn'<+7b2HG2/?f5eoj5_?pCYu,r>N>=fe9HgnUHW%zkv#ãU"5dB-/V2I_LZHOK#gJnnikSa,(3vmXtD#X-c.%Cb8YPctSexWiFtUYqK=jH4TAijãU"V^7B?%xnc_\0wpMsM2tKV.NT.M8R&ãU"[\A55YOaxC5Ya5:?g5AjFgvAX;XccOYdQ:6x&Y>z*\%8YeYJ+sw%_4pEYkB.$)2ãU"S5),JrbL_7t,(9Wjt-,[^,p4MRO2#=mKb+uQG$F/ca(%>r\vK27TiL,/?'?xOHVãU"BTGm1T2V>;biFOmkX?,c0fNAECFv(kJv90n,)?l,P>TZvE$^;^H*6z1]hxL:.&^ãU"SW>P>wAY^k67jqxZ9(93^m5q;ja[-#MccWPOBgni-Zba/)'Q)?XKUg_k]6#_m.rãU"<,3T6'Hkz%u)FNN&ae)Bpk8EY%C,=UM3)L\d]eVdP7q)L))MqJTG8tls+YOph:SãU"U*LSySMc_hlqc_NgPCtt(WMofJO0BB2c*n/N15AN$/h[FK\k7;D\^k*4VD./xtZãU";X+Kccrzh=Qj^49/pb/>uk[8,S-bQ8OlY+5u]S_JnBxpLBhWWPzP^EXr?mehch%ãU":BnSJLjqweHOfWWA2okOso^(TC7e&DjQQ[,TjZ'iJN_(2xPQ_ID>sOs2K]ENVZ)iXRa6>BãU"4Q3[p*5VcxihfH7Kns/wDQ8FRfnWu#$.HAybHlEi]L=\SkewpFaucVF*HHddGQqãU"swHl-uSZoW_ZW,mIEU(O^lef^>tU7<$;O\7c8uM+v=zlu$[:bTNVMZR%TgLkclPãU"YP?Uq5Uw*Ig*D[csM0l>c,pED;l/Bsj]F8lT1cl.Q:WWVR=BC:t#k>U#3BG&p$pãU"oZQ9MhW$AY_8Dz]DfP#&iE)Ywie<1mUL/z$#OVDooZ:uR1_4uãU"*Dtk'Wo\>hOqRP]4OLQstGu;%MJeEqSl)2$Z:=B;[E/S-^J6xJm8OR./b\vs2tEãU"6^BZu_w]ZocyteHmavtJTWz4ncLfI]ZM+[:v)fbRSI'rhx*:wW.xt<*FvbLfds]ãU"xnuTE9_Y'I_WN.7'L_y&y\V+/F^/hd*=5kU=Tkt_Bt%^OU;9#+a4DUd[8ãU"dU/zhftG\+G5fElqV_-+'Vh^W-sZvv_rMãU"zDO6;k1>t/RukUY3kE8Agv5heamH:9':ij9:s)X\''#/0yhN?V)WNU'TQJ\XReiãU"'[\Vfp8KX4+XxMcurK3c-GMNoL]]94&sSM%DPpgZ+h;&:&ciRvU727r'XPG,r(,RRnDM$)w7B;\^qDL3]R89H>JIsmãU"y[t3,h-W;yDQ._=i]ioz4nr*F,UPmXrcemhFFLjJL6k1e4I,8HJ92^'V$As)^,eãU"*7AI,T&hAYh>l=[5HsQxJ0Jty*mwHuaQH7]ZLQ]x+NB7M/f$CH0a$r,d(Ua;KHLãU"&.^r:CL_M2nl6W-''YNIgckhUQTm[^X/dBL\_,7>d,,XauTgN4uL1=82lVãU"N?n,Q)wCyMMCA#PHJIAe8CKX'qNHnV&r2QpBNe'^BAVX23HUTB9z$jI5[$hTPS)_4J3b-mMHszXT5kQTR+;vm8v8ks4pQUI4jFE9vuV%Uv1N[_v7ID8Ac&pYcYX#<ãU"36&d']x'XakL\hsbuB7MiEl8a1tphu/7Up^ciW3?PL&hZM3^hlBL&Alg\wV<_uDL;Vs\46w$tãU"&,nH$#Yu/x[Aca48kq%#w5h5xD:27o7Sr2a_(0ãU"lovaedZ[h*(lN67f\4-6Faea,n8CNi]sxlE^u\JE&5Ivg.<*<1=,l.+sDD$pLL^ãU"zXgm)6f9,,LBE6my-]TV7XNm2*:HUtb$\nYjHfwqvN_m:D8.cp%Prn&4LTamQ%SãU"iTeG.[-6h)2U/A7Z^)M^5*_m_rkH.fãU"NVdT?(?kejJp9^F>u,2LT]5S6kocW^[*b:QIKeb8[XO#:Sj%8fãU"prB6M#xB?Qj'#W=)m5Z%dx[u/Zuy_;k^glMEkGs1$s\VCsH\'ãU"Vm;lY>JUO6&MK$#==V)7AyK=9sSsIEtHu(W8,a'\ebmddoBokJ=p4ãU"hlD'dd'a7Bef'wAO4FtC*j;ihT;+W+'qk_X,.$W$5?+LsLgiZC/.=^?%Nj?#qYDãU"DJ<%4?#SCãU"j%W%3'f:i#.'c6iB1s6>MQ1FN/Ak[t^m_TT$;dvNS+w0>C46Qm51yQIyLI*TH=(ãU"R_A9qo]^\rVMdVee4$IOF6WOkX,),(smSR9OSTtãU"Jy%*-d[LjoHVHbIAM^cBrFO3/4T)dgyaU?X'a3TYãU"0VhrH8=aU4k+V\s4DVN57)qhPvH4eBk4f9Qe#Rm6E?<ãU"^HHi>1EfHD-is-[e+c?$%Zr,ulkvTuLãU"loXDH&J_AU/(JQ1$?1ALG?v;z4$8A]YPH&wMxPR7D]+M29#KH^cL8aZ>V3qPkI*ãU"3S^pj)vdrFRG$%dT_7srjppe$cTn*mh=59f-T3Y_Y&m2R9E-l>1S'=Qe-Y9Xeq*ãU"gT#7>^'8mZIT:8X>PqIRT?Ne/n$fPabtmFIs?lBk8djzt4tjn4Yer29$TD]L\wLãU"+c;^6J/YaUT;QSh/;Ums6hYFRWUQZvd^fh\d%ãU"fqq-&6sd(OJ;/:Se>MB($I.mQ?Ge_4\pN'aEO4V)9C'\m4c++W0:**94]ZR]v)X70[3VpLhUV[(N_yA/nc.a'OD6K*LfexãU"x,88?okcO6&E83z06m^nwkP9.oPm;qe]hSJZN16aVcAkN>.=&'#D^uxE+DFK]W9cNc6%?&nRCST(C/oO-%,m9H&*h+fE(orlb)WQo2/AN:Q'ãU"Pa4$vFNwf=+IQ\7]?&#xKu9(j9+XlsnrVt*YeGX$n]Lm$p?dOj.9k0c88dLdthzãU"EunLP#G_:7=QT0K1-^qeV),41c$9%.(%nGm>xqJVfg_Opt#=6Ks*DDk]mI>,g].ãU"^N3ãU"vO*x'n,yGT$aA;ZJk]cSeV\YE*IHse1Wb,N4Fn%taFoKPK.+PfZcxE+,Tn5OfuNãU">R<)Pn8-Ui[/kay09C[ht+;rarqPeC?'bCJkP:q*tK4&4,hNWL>r&[Q:tsnZl)IãU"t+Ys.;Ic]LlLX?0Lpg^aetUn=&SxMO]tlXfãU"uFGK4i0dE&qAK*3LYBK))-8J#uPHtYiPKE<1m2MH^GUbAgRgDO,puODufU%BDKXãU"oquWd,CYrcZK]F:ZdKNY7,N'm6*s:VãU"\VRCZtiPNe%^JmZ5p]Li4EMsD=?VHME-:ln&?PDbzO^C/V5m-5te%ke6ndUZ7E2dgMvN3,n-TNHd>ãU"6^Bh:pX1Jn.Pg9ai0PBuHb1GmUI3Dt3tir_SCR*N:Y>jTaQ/X2dk<$h,86*MADOãU"'m+nkf1kVr)_u+n8qpPg&[%y:ekm1*hxYB/6Hkmai2j$Wr\R,g(FCgXi=it:[AP6Oo/-H(#x%\5LjYwT:5&(en<&ãU"FCrDB06hjj+MmUXOvR*f'*rbX^&l=Zxu+N+U9$/\LKG4p[x*mBUasQV8MH?)-3'E8-#'r?9..ZU4/67AD23I#llUlN4yp-D_SE/r6AgCDSlRVEY-[$fkd>b<'rjY>OstUDSCwgPu:x5lQu%ãU"FX'NR4J\y2aaDZjAYKIAA+jkI'N+R3:hbdC\3m;-_e(SINWxD)Wv:d<2v:ll9xXT3rqC=d&_hNuHOllXQuãU"<\+i9ud+XS^f8Ztm5(;xlPsj_v3tuIcHG3(k*PZV].TUqKl4.4t16)D'fZFe;,nãU"QXweRr=J:x'SV,%2dOR-qf,S2'=w$7,$(1d&OT2/NY4BFzT5:[ãU"QIT(P&X)>L,l6HKB\Zv(^>i%b8A#AFLV:HlFBGNaaA&xI*71mMVCZIuQNGDlOlZãU"Sq*G-t2Lr:RpZ:V7u.Sf&roe&wODRITpMm?VesNi2n4sA'4P%^tIjxHlDbZPKCkãU"&oqUBI7;HH.;jq^*NO?EMYz?^6N^;iy0?FlPl%?(wd&4g5E#9Q]ZkseZE$VwC5fãU"/T+XViMK1.,n4mVldl^JP-&+ãU"O?$P^SA#EL]>6vd+sEXdZ)tZK)hfG(i86d)AbWo1J0bB9OFRI%j.4xahtY]?\f8ãU"TqO$Vprql2OCvL98*:t4*jg6ibrsYN.Lt\p(Q\rjy2-,Fu<>n>m:,O6o)wjP*2$Wp9fdOz,KHQM.%6kX]H(\ãU"4JTx6=>xTVcK*PDv\Ek6b9wN2RVi.A<3M#a*Vd3+:qzFFjk4YWr]SHTd9>IrfZOãU"uoh[&:jvp?7eHbw6VVuoC1Hd2kg0$wNY1g[/0le8u1>RGDL7L[ksul\'$;^>8pKãU"6fh1E/#:9tzhLXPDH:i&brgk:dDD#_QT$h_'E+nMsRnO*H&hC$GAr$^HZF&wau1ãU"k-V/nE9w;QKW)N5SN(9$oeSShBsJ5y>bglfh>tFMZf.Wjl8NI,0g9hmR;r6xR(aãU"eR(#d_0dg]t^_'\7(34uind,(XM(0$/EHk-d.tz/Sl\7fK$]'3tcGlOoFurjYp:ãU"7*87hfXB?>Tn9P.m?,]'PZ^4'n6Wc9M.%d6:Y+(r;g$#ds5J)Xa?Xi>h%P3A$KZãU"5WX.nnJ(LVlD:BBqHG6q'M*&1=3n46+dPHv=nNm2YU3I>[SQ)?Ood-XnDojFp'8ãU"I^:*?.^d(a1+cIPwd9_g%MfnH%Pn>ãU"zM,H,k$)?rHb+O$hl%rv68ãU"7;FA03mF9e+H<[c^Bv(o:]ZHd*^jR%i3A6-B,Vjr+\A6s.'qp]kJ?lIJlgJ?.l<ãU"DY2lcb,d:FG6jL$kH>ciK]]ydASs[Nc(Q]$BQDvH)Q\i\^5ff>;1uzhB5u'[<9EãU"LxBA&gu4g[UFW:EK3Z$V+gplZm;*WU,f'kfOCX%Dj+EL0yW&S0lI:S9t6M&6dXHãU"ku#w2HqjDS%zMn[dZSnT,5#2cF&mjTF7vVY^a6P*_kyXIP_)O]JD[WOB<=U,>+cs*+ãU"V>2hwU$,-3]##6FfVZa8g1O9&1>8?ma(]/6yXK?/mhBpa>mW\*(5<U7_bb1RbtQ$Pl:,fuqes]QsBãU"04o'9Z]A;f2I%ogVEY;H(Q%8m01(V:4n>7vZd'$)JwmA0Br:mU.J+t<#q\MLf;lãU"h(cAu?OsauQq;DKwfN/8,mr-s=&tSp3r=^ND'p<6dãU"[X]N^\?$aiID63Ds(^+'=JWaK)vM88+,B]/lIXjR^R\(3l2cGIRhvtEY./U:FEGãU"=YqBsUm5\jLsNr9?6uRGVV>9n\Gm^jLlLh$5lU7f8f/\.ONHGT?1#M.>pqM:8(#ãU"Vxm8qhsM7Hy-P\ciz6U,-:^k0/u#mYv-]e?p-TCXt$GkHxsqX5u45LBH$,srhZPãU"[8L+I8xwQQ[4rE+=W6kGZ\_2[ckNVmjXa\K/tChYdNlubaHW%t>udGf.*CqHnfgãU"H=y/ogLp)Y.b^fpr%gVS:$KM[++Di7]ijXFMKZDT6A)_$+nxtv)=5Wmh>ppnhbM>Qel]if)(S,clfTzEE,mgZ;mG.4A?G_061k8H9_AãU"NhD:YYm?Q+#tC;+]ypb5b]-a.zTj:1K\uKcgBCYW%7iPZTdVs0(AP9_EdEZl]l]ãU"3]U\U7tx#Jk*zs6*tr3J0Qo_>$CrVgJp4RN=zz=q>=)HZCJpl'WvX_Q'gZksv&TãU"nbP:RX9'X;>o:O&llSi;&+*?1Fi85weWa-sTdQ9Y%.li2qQxta^&6;3S&e$RcoZãU"G_wlAd-UFd3n]KKv+LOpF*:Wa<68CTc0wd>U;&X$v6lPqAGg\l-RF(Js^:bw'7XãU"^h$Z_c[pw5WeKOnD<.dlp5F80umeSs\DV9WrMgarb9pZ.W##n&)h0I6o2Ia_5GQkd#nO7D4T^ZHb;VGPO8d$dYX6YF(aL3L?Lq546jF>De(mãU"3xf9R[bZZMD)Av$erlf+&=OXrj#2QrqQ\#tccl#:ZvEf7Uj:k1)[NpNA2q[5A%&ãU"\W2F[th7%twku:ZRbDa9e_af$lLzA]?b5-jAw].XaN1yje.>hbvLmeisfw+^sSmãU"D4:Gt]=%MKud,9785bBSdSbx5id0Fb_Pmp.*>&dG]Zm6.%/*H+fB8<5^ux)SfPnãU"F-nTFa0nTb\u1S$S$RJA5ifc)3Z?o3Zx^2no(JSzGG,\3JxA)O=[z[dPL^r&/vSãU"UCd7785klotG$iEL_)GMNjs#BEI/AG\36w_jwVMpG>pbo2.6l'X70xEWn^O4Lt5ãU"\rL4C\q80=HPaUHzdN(r]>Ws\>)*dY4]DSQ9Lrx^d6rd%\sZkm3:FdJ#W=<[oGXãU"2n41#a7gHAtnhdq.b2-[QieuCq4B060vxeZP;:84JZerBY=heg,y^6Wqgg,jC-.ãU"PVfi,^4S%4aGb4FkrabasR99)>Tkfi8r>O5be5IzB^iW'A]+/&FQ1v#Np]-CCcHãU"'<%Vlad/D/P/BSdZJYpvFdBE8Jb7r(-mw4+k0$J#XH2dGfMRO.64qY_T)Zs?:#6ãU"Tu8VP''0O99:2UUD_?,Plc\EGN60ExhAo.kr5Xt;W_gwhZno8.V7(#lZ0xC9P26ãU";n/7CI5TG>dLIfG67M,pM%RXoD3&KvBZ](9r*d3bcH3Cxvp],;#p*Yy1ce=h'+=ãU"Cn2bq943pl8m&$S&S&bKWwR[Kw+?A]7=a*\V?ek7YF((E%A^n_;Vaa&r*xs-&*E1/Ijh^cY89>lAyãU"CYqFjRTTb0(c$[T2.K8_J-3x=BAW5%.E?V6+?ãEND SUBãSUB V4ãU"5dNZfSr$a1MhAnu?Ls6xk%8x_oFiA>_7=9x.d/4I:x5oK1)CV%-]QX(qdd?^nTEãU"v_lr:H8BJtiAkX&?wrY4n#D..'<2jH1RKmN,otr[a+CgEGMWp6\l0XX?gyB0+<,ãU"?6\^_psaiwTRC9^D(Y*c>.5$\ObZ99E+W70>xHkJBXV3=^Z?8P9[Bba1gZg?5R4ãU"j'Qg5'ZzM1tM.igZ%-^+t(6/sbR/6CnS[MuqzZd?ipJ&v;tZO'IG\HckP&K;[[tãU"6Bi(yOxRu\t,9$,Dp*PRBt'9([hHãU"mF=a+vZJI=YDCA#lnd0(3V>\ht8'KER3fbSnxrb(X3V8+;KQHZ*7OTURLrmXNVAx*PxZg?n#JjãU"Ed1CMh7[eGVp*K\6^U1Kh)g%gITZ8-Nae5%dw[lt;/P6^B*iv9kqc.gv:E(Q[i2dSq6$H4'C1mE\.9(,5YhX^LooggãU"$CY&O9)uaG^/EO+CfpVNO/*'N,kWqB^:hz#\$s3nfBU]F\IT)W9lOQcp<>),?xAãU"XJej#w-Xh]UTNQO/.SIhPh]lM>0n4TwtR8l]$\Huc.grgtERIa9dxvqZ%naNH.F>*'&#bnJ-XvLcSãU"s5b3VdVgWpOXL3YHl.K^W^AeT+D_eBjh59RDk*V*0Xou'9+5ae.*Ms1,*257+/VãU">yNxfRJztd4<]wHR;Jqc*6:(EIFQãU"&,u^KzEujjI;_&CoKilm-=K1R;s;Nq-n4R7j$=sr.p]:nSflL\xQRsf6'AxE_nVvpfW*E4IGãU"K+^LJzc[[jJkq=^V([57PV=ZP%lA%F.#.E>CHwO%#US4TGT&BuDURAe18rgPF_zãU"-t6^qxe)aHV/)CCQX'=2MuI_T$lh=R>,x2Gi&g/R#O'?;]Qjep8E(#^=jmSrnC4ãU"t*YZLcLFs.#l?LzrB;u.xMfNlz:OJY$^e<4zxxf$J?ScãU"JLSi,'lhp'oQK=f77'5L;g0GRt[gILc^RDA,52.le0Z%$=E0V1PiFxvZ6pfZi:NãU"KqU;VE*0'+ieq]/rtPBMhA,At&Ypa$S<8H-ECk3+kY.5Arusn*oPK3keE+ww&Z\ãU"(_QG9%\-T'L5-N$kjl$k'iD$3BRTJPzN,os(-PdLeVmCQBE,/,iwiFknB>Q]SMfãU"[b-)Gs:yQ2NdPq%*#jUP$h7#yOh'PH6>D0X9L*n)kdcf6c?^:CZHYY[N*1IiLuuãU",vq(ePE-0>#rN1*b5DKC5T4?*X/R'KMis>twR57p#=1mt'BeYFB?%Pw;XVM_cUvãU";m,5bQ3gF6iZR%2n=4Jt+0-C\?9$SoI.%DrWrqC>);]O?j8Z+o>bQ1%L_[_f=hoãU"?ailxbnV4cGl1TfeT9X9+#+%P_X9lL,0YV688tl&5ffO,%Xfg9NZO,&%/8KQh2[ãU"iHqGDvANmK^G*xWUgC^8wNAG,GcR^qM,)D\U3;Dondb'SiE9xrrR2pWvd,&Th$XãU"NZWa%-rT0DWS[TY$H:ToTPh*Spo]AJ*+v(A;%^49f3Eu_4AUzR42F0U8O$\^^mEãU"*hVt*a9c)q1GD]&C'.^Q^ahs['xqq[M?'jw;Dl]LN*?Mv#$1GmdP4aT5>i$Iv7?ãU"raR31l^<$.^E(^HAK:nMQ/WãU"^$E;o-BgX=.[,NmXSABqS;E2Hl9H&=-Y)sao$/HvH$vu6lslWpl_7_ãU"ss;HM*BlxrsPm0SNsE-:2M)aM&ZQJE1vtIj74HQr?LtoWZxD>NBM7J'hE,3?eLM/ãU"_2;Wdrug.H;0jhV>Wns?/BJZfm2uuSODdk)tI2BwOV)0KDQEul]nZlLG4EJDHp&rnQ9dw[p9+*aU<(B%:XFILhd:iw+YYNV*IO2-tc]5yãU"OP1i0oY]M[&Cuk0-ng;PVlNh3lA=B&gZ(MkbTãU",$Jm.\[fx0VOMNgrX#jlS4V#qlY%v3:c60?nhPh&pUDEcZXR,6ISDv/aqDzVq$RãU"Id$3PD#PNd3H3hDo'il4?g)(.kV%(CPG<&QGc/p^\u1F>]nFKScymLOs-N=LFK[D115UrEãU"E'<*uI6H6-vZiwR>PMDx+z#a^hdMCLEMWN))eb_G3v<>R\GWhdr;$?o^JKJN6Y8u;G1L4DR0Au*6[-%.UDGjpN?igNcG1[G4&dãU"7j\ClXt'3%?+t7Zu)w+-(Dg$b2I)ld(W%f>Uka*QP;'2.-&H^v5?24T3cd,knf\ãU"1a8H3mnn#1mJBQTgSDSu);-PmbkO#ty4RBZ%T3s1]TOCN8+r;XNsEs1ulsrowV*ãU":bk[DC6PR(+E]2K.AYRDXpE\^G4l1%5M]$2]^(y>Z125Rj;$z'h,,lc_^jkAytGãU"iq^q#$X5(.m;hRPTEDl0z,BRgO56(d:q?R+r')=%Y=%53ae,mxa(TS^b]_m9+k:ãU"=ptpoXg7dCAe(N3z78pACsZ?FqZY;cKB(3Dk*?)+EKNlZZ.XWseHH>eXCOcJ69mãU"q4i-,Hb&(,g2P>+.T_G3.q8qGnP8ãU"v&HkExz8-^+?Z$X[kJUz\&fO(EG/g($(#b(HhUe,#31I5+C=oQuVgf0huG=)&&4ãU"\(+IkfH5H+OffNM^6ebV5:By$?N.2uXU2N,VN?O%=ãU"#p[LLVt(=4GI+<]y*]3sto]PYJ&*/kxocs#8vh->QvE18QBa4cV-cgcH&2^]UW-ãU"DL\k:2th[[\v;+x,5xfP3rs(cr-_%vs>*3nbG9DD\OV/=pCVfidl0q5&b8:x:8UãU"v.%C#'\cBZY28HdMOi5cxWA-a_owbRecGKqãU"*c>&%m]:nJXVBj'BukK%o3UM'$WI_PMY\V8\la[\mRQFYd$G:Nv9'LFjUx8Q37CãU"(cr.l.LKc2V?OMdP=_,HiUZYE&$9TluRwh'q15eEfZ'RN1Nu70bY+YHX^U+(sQtãU"Ory/HW,Ve5Kj:GKr.g;ovf>MJc$zZo/RIFw7_zWL)h\Z*E3p):=RQIiN8Alg=2%ãU"8YB)X43#f7^vn#'YN9j]G#fJ4GU#O#6LMW]T.nuIG$0ON1c6Ef>eK'1wnlP1DMdJ>s%1rQ:dh%q9Sy_new>E^SwRwgXahx2&Jsa,ãU"/HM&BDm:CfZd-WJ77#('d516QJVYr(%Ir=H+9\^+W=KPV3kwXcZ7/(OC]jU.rZFãU"2bZ_f5HsU%CLgvJMDmUmrFB=]ZSnUq7u27Mh+k#xOe_P4oGsmCZBtXcJ/j=KSKgãU"_CTdEY/WF)l]%L_?_MD?wYH+Cv#[(egJAYTVwC*mr?B:Wb]btOf-bv9^l8wb:v=ãU"d1+\B\LC_FG>\tV\mQyL-ql==qQA9^Ap=LC,55cpPl^oJBs^DpYfS[6\maU-AL5lvAO_M/.tãU"T&^q[LY*l?N#sp:kRcvFstWI[teik89%G)]Ek8_7c]LKVxj^Ew&^s-3a\?9Y^qI=2>$tI1SIãU":?XVrOfG\=o^04=:vC>f5+R^l(x=7uJAb+S%7d;%&oNesE2VonH2(kãU"_$E]Ngpp#ak^1i$Hdz8GvO4;)y1Ivo_(;$%FR_-aY7WN7=CT8f518YM:mW8Nh3RãU"[zvUB%2xigYTVV/iRn6sZMYoD_<3n04E_%uI4(Jk5(fE=^LwNLIf&E/hmW74>8oãU".)p5Yc#*fmREHbWOT-8OnO#F#Pr3gb=X'Cf&1PCZQ\4Y.[Ng8#sJ?i?Pn1L]TJRãU"]IDug'NIHjc0WJ:uR.A0acdFs9-PcS$cSSH[X'cM.L6i3y>uF3\.bnei,PhiUv0ãU")t2Kcftp_DMV*l;[Bk^/vf6VPkkG2gsj7,t=M?=K(MvV\;e:-I-#B[-rNG[I6TlãU"FmOiOrw$rwk,H)n)AqNaaS_y(,H#O[sA+tB+7):$9#7TL-1[Xid5Es#l?lkiX#W5w5;a#Yr,ãU"UZP\s,1d/kS\W#GgYip2V,smDr+OivebJd]Hnp[N]W8[pjv'731ãU"TGf9:J'M0n,/QBO;nys*n#NZ;yGr2M'ah1%wFwN6WF;>MXl\>/K&MYYPLs'sy?qãU"mezr$BVuG0]-_Z;X[3E]CTRGiJjOBz/$9,gbje=OZ^q_:eIVTF,)d9eg\>VDjRvãU"x=X]qumfi5WU)-&p^9tTWB&LjeJ)WC[ynY73x$hr)P6uWW0DF*pX0Uk0'ãU"];Bm;8Kofr^/Gdg;'%Gl%h#S5e,qdQCnspJ#6?pUA2>]S7..61]Smcc/5/F>Z%AãU"Fvu94,^Xy/S[/f^)V?hY=yW?:DJ*r$A=A,Wnfn#3E/tiW)$Qt,sJPE*mgTTzTC>ãU"X)p58sB]QilE,6]/Bl5hd_Lc+&kgFy.Y5srA4(.5rQt#pkL0m#0H5jlC%5I5NpDJMãU"44$f.ku*F?%R_KT+Y=FVXGibw1k_oM3AJ8.TMO3;PFx&DB#5L'jF=;RTl++3%uaãU"U5nY6IN2A0dtD80?)KCG0dE7/EXmqV^bRbM+(A=,UTIYK5-Z11J;bPM-g7D*l6qãU"8+Q\+)B:j1tV+H1t+E,2rWc7T*hjoAboCIol4B)0b:_sYg%L%:q#[5;tD=/euNmãU"T[V3uIpK%Yo)dCSPDe/)x=rxUsTWcvGoBB5\D3/41%GeoSr15FwGOH-Cs68M-HbãU";s0(ai*\%Vt79VVZH\1wb_x+M]musser?5t5S5ak13&>P0^OT-.AbCA;=-eRyW/ãU"hEP\Qh7q\U-SeGL4L*[O2v7gb)GP3^N#v#wf)-%VTIv?<;PchxGq_sXfa.K7=9_ãU"ggK%OzAIgnr(%e89)h,tjl/T+.AC)bRv;TRr'*jtzVo^w/]^AP;1OBUS9DYYpFGãU"8YghK-,3rFqG&t70:DA2.WpFnTuBC_E?#O\owgU#)XRl)'b8?ke]e,Tu+^K\kb_ãU"^+H0EVb2;;U],xVp&r-S1k3-/SiX90+'*5TwmNsR'8i(ES?%R;BBYYAn'pk8a*dãU"4)^2Ri\fpHZ'j8,c7cr:V5*M/Ycti?_kk9TpF]+NT9kjGQ(H#[rrsk7;bW+.]UmãU"-I/m::INAitEOU90>h(VFII],>JL*zS=5Tx75m2w%_UuwaSE+PUGf^X#1[1Y(xY?wII9%GtYQ%'O;/G&,]R6[6#\?jCUãU"6_NV81Exi?FYuU?vg97Fx)bjnc]%SXEb#W+U8M)S3Y[TJx,TW+nA[oGMIo0ds40ãU"%>w%/4qãU"7b0K,3I4gVR.>zlZãU"uabSb#VW0UY;tifLrSK(a\0&T.-%->?i9$\<YlC+o2BGQ$J[dmjJ/EZBsHIEAj>3C%0a,Nk/FU#RQ^?MxZov$K9ãU"-)UcYSLqV4?Oe*-ItGg874H*i-*z:ab]mS=meDT9iw:A1H=Z>Jo8qk.X>&GQ_#JãU"3rMkhx.#W2#R#GGI[=e'\hbg+?d&Syv2rkUfjOo>iBcRZeO=%sãU".Lq?TihSBU>_;0pmm.ou)awCqfYE3:i>w2u1kPk<\XC7m;2][g)9g>%t)ZyNf:jm;J+jkG9I79100(AaãU"k);RK.60WTz2=r7nlv(BiI7oK#(/G.MyV7.k]SYãU"V%:o%b?s[PGn-sbNZ88H&_KB<5hpwe$>):?Wt&Gqr[ãU"5%B='t(3[M[fZ+=.kY>K)5jLe(r/p_PXGRJtV>Cc5R^UBNCEKHdOYFj6KXJAãU"%7cLB(v)1JbD]m.'U%\Y-b^G)8SfJ40/01154i\:Z1v030eKXNIl,mEm^wffk_x3-loV6F*u#YpRvL%4[>E9A*Qzsz6'<0kJ7W#PQ6PE#Z\'#8ux02.XIP')*x,6cQJX+8ãU"v+t[(kW9S*9_I.z$;XD6z+b4./we=Pid3CQC#pih*FgGggfUO^3M*l(u5cNvy7pãU"beTJDa=7JWGP7HIKhMc^''bq3O^CWfX?Nag^[OOL=''%ãU"jF:]-Evf=PYj^:Tu\]k8__$N_G*jgENC$d4RR.*l<*q(gV*(Wg2:>0k=E&8VE&CãU"1=nE#I4LrTwdHOBvRzuX_/xPJ5:d+b,$M0^%&>wB+nK8gUzIcsj]4a_$#0:o(b2ãU"c.7k#>2WYj%^-TRjTB&s\^rm'NL$ic4M-1?]_j/9PN((rT/F&kJJKCYOHW$p/4pãU"#,nj&Omu,F5ecG&hAud$yI='[u%-9ignjjM9FgBm*27amVWXmeU2p\S<75po>,hqJl:;mPbxIVo3ln1-aP4UP:YY+a4DZ&MbFãU"ruDtc=0JFtzNl\I^?BYlxL9%'bXW/goPjm5mi_Pr05tslheqc/wAfa.mpJXxUQCãU"$:GZ^'vm0s%DfO:ZT<7cr7^H&N8YeBRwgo02XXI8]:53lYC)R2%]PkR?Flu0rB,ãU"Mt%]SPqB:bf^YOt*[)H<6Ge>ed.t9nNME?m(1HzuZ&Sa]u<&c;_^68fE\o3G=Y&ãU";=RkW-IN8XiHd-Pr4AQW?B&([kH'/F3\<&y(EvOS$QHa8b\a,ME$(i&Z3V2yb&4ãU"JhH0E:/FWLSs,)nhpE^VP;bg)(%E7R\vfynpVls/N01#I&Z+vmB6f'N(.WK22sMU.;g;_7_FS_9]uSIbA[d;c&M2]O%EL]1o3>c%A?$lU7ãU"xgETaTU*Ej[IP7'i&o#G(0SpeE2Hqvi#.DcqRN%#G^6$B5q^o8rmPH/:V1/>OS/ãU"\aPId:\y9R(2fH'&gPN$Nw(=B_fCWqp\S5f[g1+ubLDVG_5%S%%wKAXxe0<1hIe%%%%e%ãU"(%%,%%%%V%uVSrRxufX':2%F%-)i9B7Ka3K+10B/xDpãU"f\5qq875C'E_%'dHk/TgpDY;s2N;uDN+#gup%()9%%%%-%7%-PMr+:w(&+%%%%eãU"(%%%,%%%%WuVS[rxufFs*2O.U1B^JTXgId%#&)\?hsD*A(IrdwoT=NSP)]cf=hPãU"HvQKkM7x>-8YmwV%77L76/A,CX>]xt+_,q9GvCgD8#V.Ksa:4/jfF$gq;lW65i7*N>RY$hAFB7:sD_=4Qj$T^#8)6q5G9h+AjãU"DI\)IFE$hmk8\Am4SmABm*Sw'\KQUywK5ID6W^Eo\=8>IrSLh2#$\Ihf8uE-kk&ãU"V8WYN-tC%%up(%)9%%%%-%%F-PM(P*2'^%%%%e%(%%,%%%%Y%uVSr7xufs'42gfãU"(1Z6(]56G?Do1%Yqb'Y.=YE9-a\;#Z^kGJ^j#Z\9%-]k6;nUo/TGoekmBN#lZ^-ãU".jr6&5V2-3jd'3';qi1N/]iX:)8rUM)ic/?CpR[9Ew(]_L]BNmCgD?yo,9]YjO.ãU"dwT#rGyc?ASv:+?2des+[rKB'byk1Airx5kRLN3r8$tl%(up(%)9%%%%-%%F-PMãU"QL9Uks%%%%e%(%%,%%%%Z%uVSrRxuf^7F3;eR5j$b8_yo-4#Mm>%e;;Qx%)'<ãU">]gIJ7(XIiGJSCCp7X-]fIrU%R&/qNE_HixNaVZfZ1*;)>h\YnNSj4Rwg:pYwLlãU"U(J-XddYM2ul:9TP=MUJOz&-67zo3M8yjfySa-uv,TP]B'2)#nC[mo;L)tH_x[$Dn?PM_^uSãU"Lxli>CMq4Oaso]pc'l35xX;RU8BfAXEQSzu&\=kC.zVyNQlgGld)*HYB0ãU"Jc/.ugNB:m:&KGi#GlD:+MGJ*&]4u%p()9%%%%-[%%-PsMmct+iH%%%%e(%%%,%%%%\uV%SrxuWãU"f^*9#'f5U]p$3.9)]]C'Y]gm0Z8'BK#:V'&W.NQ[w/g1/65ne'=gQQ4j]902:ZJãU"+#6DES&cNg-$r,5'Q+/?NrwhRr265F_Z.8X4\rqKiAm$xfQhfaz'0##nQes\hi+oC(VãU"&B'7AZO13F+>\nDD8alTRm8cSeY8x?J58Hr.<'D])y?:Zp9tk7imgimsu%RC]IT5>RgQKTFe)s$7[jk0C.1TQ;toaãU"_RS;b;H0i2Fo_Wlgl^6V$e%^57HFx_k&CF58[^HyY\^.$/*q1deMjhGrP),1HPCãU"/kPi1Qm#iaPXgdGP1:'H\mCzgKAw3S/RlS\ãEND SUBãSUB V5ãU"[QWaKQ>_i]F[Ri#EbBf)*v\w8W1mM_3Mkt^5&e_ukFDtU<1E?e.Xk9s];z^S-s.ãU",u%p()9%%%%-[%%-P^McVP+ts%%%%-)%%%,%%%%^uV%Srxu1:;:s(Y:DMme3%F0$NuFS;O_Q&=BM-9eYO=pm5_18N2l$UBãU"xYBtGNuh[OGkA(=nGL$zmnYhVxNjzQJ[v\D_b,-g-4_2:CFh5jLIZTqx^3oTkQhãU"^R8hi:4*n8?[CE%Z$BRK;EY#]\:BK%1+Yk0j3?->/^WkD*e)g58EBM;g6B4?us]ãU"LUz1-M[X8#dGo1?[ESi:h[YiQjeF(AKxFnBuGC;cãU"bzrZhS:>7$EmR%(jI^vCN2i^xqSr\9tugIbN'Ytq9\%c&up%()9%%%%-%7%-PMiãU"2^nfIX0=wH;p-j4b'Vir*7;5ãU"0:;E(QfiT+w1'$TQresmO=;X_S97*x'VLz[%pYl0Y$N7mVYRq_4q6'EJ1.8,qd2wdj^>4*5-ScgK_-9)v:XãU":^E3UnhbX8pWG$&rnE+ZDd6q[pNR4YIN*zGbl:sluUz^=(xn3%up&'%9%9%%%%-ãU"%7%-PMC/OYA't%%%'C'%%%+%%%%%%%%%&%E%%%%%%%%%rx%uSgn%up&'%9%9%%%ãU"%-%>Q1OMfujt9&*)%%&j2%%%,%%%%%%%%%&%E%%%%D&%%%rx%uSgf%xup&%'9%9ãU"%%%%-[%%-P.MDDO+I*5%(%3:%%%+%%%%%%%%%%%E#%%%n%*%%g&&Srx%uup&%'9ãU"%9%%%%-[%%-PdMOSU0ImP%1%us%%%0%%%%%%%%%%%E#%%%C%;%%x%jyzu%^ZSr%ãU"xuup%&'9%%9%%%%-%%-KPMn1-hIe%%%%e(%%%,%%%%%%%%%%%%E%%%*^f%%%VuVãU"S%rxuu%p&'9%%9%%%%-%%a-PM+Y:w(+%%%%e%(%%,%%%%%%%%%%%%E%%.%og%%%ãU"WuV%Srxu%up&'%9%9%%%%-%7%-PMi):$P&D%%%%e(%%%,%%%%%%%%%%%E%R%%DgãU"%%%Xu%VSrx%uup&%'9%9%%%%-[%%-PgM(*2)'^%%%%e(%%%,%%%%%%%%%%%E#%%ãU"%4&h%%Y%uVSr%xuup%&'9%%9%%%%-%%-0PMQ92Uks%%%%e(%%%,%%%%%%%%%%%%ãU"E%%%(>i%%%ZuVS%rxuu%p&'9%%9%%%%-%%a-PMAoqOV9%%%%e%(%%,%%%%%%%%%ãU"%%%E%%4%[i%%%[uV%Srxu%up&'%9%9%%%%-%7%-PM?mcti'H%%%%e(%%%,%%%%%ãU"%%%%%%E%R%%#j%%%\u%VSrx%uup&%'9%9%%%%-[%%-P#MpYv-AL%%%%e(%%%,%%ãU"%%%%%%%%%E[%%%4&k%%]%uVSr%xuup%&'9%%9%%%%-%%-0PMcV9Pts%%%%-)%%%ãU",%%%%%%%%%%%%E%%%*,l%%%^uVS%rxuu%p&'9%%9%%%%-%%a-PM<;JZ%1%&%%-%ãU")%%-%%%%%%%%%%%%E%%4%Km%%%VUu%VSrx%uup*%+%%%%%3%3+%b'%.%)o%%%%%ãEND SUBãV2ãV3ãV4ãV5ãCLOSE:IF S=195AND 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ãEdward L. Blake EDWARD BLAKE'S GRAPHICS LIBRARYblakee@cyanwerks.com 06-28-00 (19:51) QB, QBasic, PDS 377 17079 EBGRWIN.BAS ' 1995-1997 Edward L. Blake (blakee@cyanwerks.com)ã' Edward L. Blake's Graphics Libraryã' This Module contains routines for:ã' Primitive Scalable Vector Font Drawingã' Window Drawingã' Mouse Handlingã'ã' See LETTERS.BAS (done by the same author) for a demonstration of theã' font drawing.ã'ãDECLARE SUB TITLE (X1!, Y1!, X2!, Y2!, A$)ãDECLARE SUB WORD (A$, C!, X!, Y!, A!, SZ!)ãDECLARE SUB LETTER (A$, C!, X!, Y!, SZ!)ãDECLARE SUB WIN (X1!, Y1!, X2!, Y2!, A$)ãDECLARE SUB MOUSE (A!)ãDECLARE SUB TDSTUFF (X1!, Y1!, X2!, Y2!)ãDECLARE SUB PBUTTON (X1!, Y1!, X2!, Y2!)ã' $INCLUDE: 'QB.BI'ããSUB LETTER (A$, C, X, Y, SZ)ãA$ = UCASE$(A$)ãPA = XãPB = YãSELECT CASE A$ãCASE "A"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB)-(PA + 10 * SZ, PB + 10 * SZ), Cã LINE (PA + 10 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB + 10 * SZ)-(PA, PB + 10 * SZ), CãCASE "B"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB)-(PA + 5 * SZ, PB), Cã LINE (PA + 5 * SZ, PB)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA + 5 * SZ, PB + 10 * SZ)-(PA, PB + 10 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA, PB + 20 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "C"ã LINE (PA, PB + 5 * SZ)-(PA, PB + 15 * SZ), Cã LINE (PA, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 5 * SZ, PB)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA, PB + 5 * SZ)-(PA + 5 * SZ, PB), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "D"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB)-(PA + 5 * SZ, PB), Cã LINE (PA + 5 * SZ, PB)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA, PB + 20 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "E"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB)-(PA + 10 * SZ, PB), Cã LINE (PA + 5 * SZ, PB + 10 * SZ)-(PA, PB + 10 * SZ), Cã LINE (PA, PB + 20 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "F"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB)-(PA + 10 * SZ, PB), Cã LINE (PA + 5 * SZ, PB + 10 * SZ)-(PA, PB + 10 * SZ), CãCASE "G"ã LINE (PA, PB + 5 * SZ)-(PA, PB + 15 * SZ), Cã LINE (PA, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 5 * SZ, PB)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA, PB + 5 * SZ)-(PA + 5 * SZ, PB), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 15 * SZ), CãCASE "H"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB)-(PA + 10 * SZ, PB + 20 * SZ), Cã LINE (PA, PB + 10 * SZ)-(PA + 10 * SZ, PB + 10 * SZ), CãCASE "I"ã LINE (PA + 5 * SZ, PB)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "J"ã LINE (PA + 10 * SZ, PB + 1 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA, PB + 15 * SZ)-(PA, PB + 10 * SZ), CãCASE "K"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB + 10 * SZ)-(PA + 10 * SZ, PB), Cã LINE (PA, PB + 10 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "L"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB + 20 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "M"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB)-(PA + 10 * SZ, PB + 20 * SZ), Cã LINE (PA, PB)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA + 10 * SZ, PB)-(PA + 5 * SZ, PB + 10 * SZ), CãCASE "N"ã LINE (PA, PB)-(PA + 10 * SZ, PB + 20 * SZ), Cã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "O"ã LINE (PA, PB + 5 * SZ)-(PA, PB + 15 * SZ), Cã LINE (PA, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 5 * SZ, PB)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA, PB + 5 * SZ)-(PA + 5 * SZ, PB), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), CãCASE "P"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB)-(PA + 5 * SZ, PB), Cã LINE (PA + 5 * SZ, PB)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA, PB + 10 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), CãCASE "Q"ã LINE (PA, PB + 5 * SZ)-(PA, PB + 15 * SZ), Cã LINE (PA, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 5 * SZ, PB)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA, PB + 5 * SZ)-(PA + 5 * SZ, PB), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 5 * SZ, PB + 15 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "R"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB)-(PA + 5 * SZ, PB), Cã LINE (PA + 5 * SZ, PB)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA, PB + 10 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA, PB + 10 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "S"ã LINE (PA, PB + 5 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 5 * SZ, PB)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA, PB + 5 * SZ)-(PA + 5 * SZ, PB), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "T"ã LINE (PA + 5 * SZ, PB)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA, PB)-(PA + 10 * SZ, PB), CãCASE "U"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB)-(PA + 10 * SZ, PB + 20 * SZ), Cã LINE (PA, PB + 20 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "V"ã LINE (PA, PB)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB), CãCASE "W"ã LINE (PA, PB)-(PA + 3 * SZ, PB + 20 * SZ), Cã LINE (PA + 3 * SZ, PB + 20 * SZ)-(PA + 5 * SZ, PB), Cã LINE (PA + 5 * SZ, PB)-(PA + 8 * SZ, PB + 20 * SZ), Cã LINE (PA + 8 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB), CãCASE "X"ã LINE (PA, PB)-(PA + 10 * SZ, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB)-(PA, PB + 20 * SZ), CãCASE "Y"ã LINE (PA + 5 * SZ, PB + 10 * SZ)-(PA + 5, PB + 20 * SZ), Cã LINE (PA + 5 * SZ, PB + 10 * SZ)-(PA, PB), Cã LINE (PA + 5 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB), CãCASE "Z"ã LINE (PA, PB)-(PA + 10 * SZ, PB), Cã LINE (PA + 10 * SZ, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB + 20 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "'"ã LINE (PA + 9 * SZ, PB)-(PA + 5 * SZ, PB + 5 * SZ), CãCASE "1"ã LINE (PA + 0 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 0 * SZ), Cã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 0 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "2"ã LINE (PA + 0 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), Cã LINE (PA + 0 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 7 * SZ, PB + 0 * SZ), Cã LINE (PA + 7 * SZ, PB + 0 * SZ)-(PA + 3 * SZ, PB + 0 * SZ), Cã LINE (PA + 0 * SZ, PB + 3 * SZ)-(PA + 3 * SZ, PB + 0 * SZ), CãCASE "3"ã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 0 * SZ, PB + 2 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 0 * SZ, PB + 18 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "4"ã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 0 * SZ, PB + 10 * SZ), Cã LINE (PA + 0 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB + 10 * SZ), Cã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "5"ã LINE (PA + 0 * SZ, PB + 0 * SZ)-(PA + 10 * SZ, PB + 0 * SZ), Cã LINE (PA + 0 * SZ, PB + 0 * SZ)-(PA + 0 * SZ, PB + 10 * SZ), Cã LINE (PA + 0 * SZ, PB + 10 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA + 5 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 0 * SZ, PB + 17 * SZ), CãCASE "6"ã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 0 * SZ, PB + 15 * SZ), Cã LINE (PA + 5 * SZ, PB + 10 * SZ)-(PA + 0 * SZ, PB + 15 * SZ), Cã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 0 * SZ, PB + 15 * SZ), Cã LINE (PA + 5 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), CãCASE "7"ã LINE (PA + 0 * SZ, PB + 0 * SZ)-(PA + 10 * SZ, PB + 0 * SZ), Cã LINE (PA + 10 * SZ, PB + 0 * SZ)-(PA + 0 * SZ, PB + 20 * SZ), CãCASE "8"ã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 0 * SZ, PB + 5 * SZ), Cã LINE (PA + 0 * SZ, PB + 5 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 0 * SZ, PB + 15 * SZ), Cã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 0 * SZ, PB + 15 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "9"ã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 0 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 0 * SZ), Cã LINE (PA + 0 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 0 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), CãCASE "0"ã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA + 0 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 0 * SZ, PB + 15 * SZ)-(PA + 0 * SZ, PB + 5 * SZ), Cã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 0 * SZ, PB + 5 * SZ), Cã LINE (PA + 0 * SZ, PB + 15 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), CãCASE ","ã LINE (PA + 4 * SZ, PB + 20 * SZ)-(PA + 6 * SZ, PB + 15 * SZ), CãCASE "-"ã LINE (PA + 0 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB + 10 * SZ), CãCASE "."ã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "["ã LINE (PA + 2 * SZ, PB + 0 * SZ)-(PA + 2 * SZ, PB + 20 * SZ), Cã LINE (PA + 2 * SZ, PB + 0 * SZ)-(PA + 6 * SZ, PB + 0 * SZ), Cã LINE (PA + 2 * SZ, PB + 20 * SZ)-(PA + 6 * SZ, PB + 20 * SZ), CãCASE "]"ã LINE (PA + 6 * SZ, PB + 0 * SZ)-(PA + 6 * SZ, PB + 20 * SZ), Cã LINE (PA + 6 * SZ, PB + 0 * SZ)-(PA + 2 * SZ, PB + 0 * SZ), Cã LINE (PA + 6 * SZ, PB + 20 * SZ)-(PA + 2 * SZ, PB + 20 * SZ), CãCASE "{"ã LINE (PA + 0 * SZ, PB + 10 * SZ)-(PA + 3 * SZ, PB + 8 * SZ), Cã LINE (PA + 0 * SZ, PB + 10 * SZ)-(PA + 3 * SZ, PB + 12 * SZ), Cã LINE (PA + 2 * SZ, PB + 3 * SZ)-(PA + 3 * SZ, PB + 8 * SZ), Cã LINE (PA + 2 * SZ, PB + 17 * SZ)-(PA + 3 * SZ, PB + 12 * SZ), Cã LINE (PA + 2 * SZ, PB + 3 * SZ)-(PA + 4 * SZ, PB + 0 * SZ), Cã LINE (PA + 2 * SZ, PB + 17 * SZ)-(PA + 4 * SZ, PB + 20 * SZ), CãCASE "}"ã LINE (PA + 10 * SZ, PB + 10 * SZ)-(PA + 7 * SZ, PB + 12 * SZ), Cã LINE (PA + 10 * SZ, PB + 10 * SZ)-(PA + 7 * SZ, PB + 8 * SZ), Cã LINE (PA + 8 * SZ, PB + 17 * SZ)-(PA + 7 * SZ, PB + 12 * SZ), Cã LINE (PA + 8 * SZ, PB + 3 * SZ)-(PA + 7 * SZ, PB + 8 * SZ), Cã LINE (PA + 8 * SZ, PB + 17 * SZ)-(PA + 6 * SZ, PB + 20 * SZ), Cã LINE (PA + 8 * SZ, PB + 3 * SZ)-(PA + 6 * SZ, PB + 0 * SZ), CãCASE "<"ã LINE (PA + 0 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB + 0 * SZ), Cã LINE (PA + 0 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE ">"ã LINE (PA + 10 * SZ, PB + 10 * SZ)-(PA + 0 * SZ, PB + 0 * SZ), Cã LINE (PA + 10 * SZ, PB + 10 * SZ)-(PA + 0 * SZ, PB + 20 * SZ), CãCASE "|"ã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 5 * SZ, PB + 24 * SZ), CãCASE "`"ã LINE (PA + 0 * SZ, PB + 0 * SZ)-(PA + 5 * SZ, PB + 5 * SZ), CãCASE "!"ã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 5 * SZ, PB + 12 * SZ), Cã CIRCLE (PA + 5 * SZ, PB + 17 * SZ), 2, CãCASE "="ã LINE (PA + 0 * SZ, PB + 7 * SZ)-(PA + 9 * SZ, PB + 7 * SZ), Cã LINE (PA + 0 * SZ, PB + 13 * SZ)-(PA + 9 * SZ, PB + 13 * SZ), CãCASE "~"ã LINE (PA + 0 * SZ, PB + 3 * SZ)-(PA + 3 * SZ, PB + 0 * SZ), Cã LINE (PA + 3 * SZ, PB + 0 * SZ)-(PA + 6 * SZ, PB + 3 * SZ), Cã LINE (PA + 6 * SZ, PB + 3 * SZ)-(PA + 9 * SZ, PB + 0 * SZ), CãCASE "/"ã LINE (PA + 0 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 0 * SZ), CãCASE "^"ã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 0 * SZ, PB + 5 * SZ), Cã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), CãCASE "\"ã LINE (PA + 0 * SZ, PB + 0 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "+"ã LINE (PA + 0 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB + 10 * SZ), Cã LINE (PA + 5 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 15 * SZ), CãCASE "_"ã LINE (PA + 0 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE ":"ã CIRCLE (PA + 5 * SZ, PB + 3 * SZ), 2, Cã CIRCLE (PA + 5 * SZ, PB + 17 * SZ), 2, CãCASE ";"ã CIRCLE (PA + 5 * SZ, PB + 3 * SZ), 2, Cã LINE (PA + 4 * SZ, PB + 20 * SZ)-(PA + 6 * SZ, PB + 15 * SZ), CãCASE "?"ã CIRCLE (PA + 5 * SZ, PB + 3 * SZ), 5, C, 3 + 1.5, 3ã LINE (PA + 5 * SZ, PB + 8 * SZ)-(PA + 5 * SZ, PB + 12 * SZ), Cã CIRCLE (PA + 5 * SZ, PB + 17 * SZ), 2, CãCASE "#"ã LINE (PA + 3 * SZ, PB + 0 * SZ)-(PA + 3 * SZ, PB + 20 * SZ), Cã LINE (PA + 6 * SZ, PB + 20 * SZ)-(PA + 6 * SZ, PB + 0 * SZ), Cã LINE (PA + 10 * SZ, PB + 6 * SZ)-(PA + 0 * SZ, PB + 6 * SZ), Cã LINE (PA + 0 * SZ, PB + 12 * SZ)-(PA + 10 * SZ, PB + 12 * SZ), CãCASE "%"ã CIRCLE (PA + 3 * SZ, PB + 3 * SZ), 2, Cã LINE (PA + 0 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 0 * SZ), Cã CIRCLE (PA + 7 * SZ, PB + 17 * SZ), 2, CãCASE "("ã LINE (PA + 0 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 0 * SZ), Cã LINE (PA + 0 * SZ, PB + 5 * SZ)-(PA + 0 * SZ, PB + 15 * SZ), Cã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 0 * SZ, PB + 15 * SZ), CãCASE ")"ã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), CãCASE "$"ã LINE (PA, PB + 5 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA, PB + 15 * SZ)-(PA + 5 * SZ, PB + 17 * SZ), Cã LINE (PA + 5 * SZ, PB + 3 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA, PB + 5 * SZ)-(PA + 5 * SZ, PB + 3 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 17 * SZ), Cã LINE (PA + 5 * SZ, PB + 3 * SZ)-(PA + 5 * SZ, PB + 0 * SZ), Cã LINE (PA + 5 * SZ, PB + 17 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "*"ã LINE (PA + 0 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB + 10 * SZ), Cã LINE (PA + 0 * SZ, PB + 5 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA + 0 * SZ, PB + 15 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), CãCASE CHR$(34)ã LINE (PA + 3 * SZ, PB + 0 * SZ)-(PA + 3 * SZ, PB + 4 * SZ), Cã LINE (PA + 7 * SZ, PB + 4 * SZ)-(PA + 7 * SZ, PB + 0 * SZ), CãEND SELECTã'LINE (PA + 0 * SZ, PB + 0 * SZ)-(PA + 0 * SZ, PB + 0 * SZ), CãEND SUBããSUB WORD (Message$, TextColor, X, Y, LtrSep, Size)ãFOR i = 1 TO LEN(Message$)ãB$ = MID$(Message$, i, 1)ãLETTER B$, TextColor, (LtrSep * i) + X - LtrSep, Y, SizeãNEXT iãEND SUBããSUB MOUSE (A)ãDIM REGS AS RegTypeãREGS.ax = AãINTERRUPT 51, REGS, REGSãEND SUBããSUB PBUTTON (X1, Y1, X2, Y2)ãLINE (X1, Y1)-(X2, Y1), 0ãLINE (X1, Y1)-(X1, Y2), 0ãLINE (X1 + 1, Y1 + 1)-(X2 - 1, Y1 + 1), 8ãLINE (X1 + 1, Y1 + 1)-(X1 + 1, Y2 - 1), 8ãLINE (X2, Y1)-(X2, Y2), 15ãLINE (X1, Y2)-(X2, Y2), 15ãLINE (X2 - 1, Y1 + 1)-(X2 - 1, Y2 - 1), 15ãLINE (X1 + 1, Y2 - 1)-(X2 - 1, Y2 - 1), 15ãLINE (X1 + 2, Y1 + 2)-(X2 - 2, Y2 - 2), 7, BFãEND SUBããSUB TDSTUFF (X1, Y1, X2, Y2)ãLINE (X1, Y1)-(X2, Y1), 15ãLINE (X1, Y1)-(X1, Y2), 15ãLINE (X1 + 1, Y1 + 1)-(X2 - 1, Y1 + 1), 15ãLINE (X1 + 1, Y1 + 1)-(X1 + 1, Y2 - 1), 15ãLINE (X2, Y1)-(X2, Y2), 0ãLINE (X1, Y2)-(X2, Y2), 0ãLINE (X2 - 1, Y1 + 1)-(X2 - 1, Y2 - 1), 8ãLINE (X1 + 1, Y2 - 1)-(X2 - 1, Y2 - 1), 8ãLINE (X1 + 2, Y1 + 2)-(X2 - 2, Y2 - 2), 7, BFãEND SUBããSUB TITLE (X1, Y1, X2, Y2, A$)ãLINE (X1, Y1)-(X2, Y1), 15ãLINE (X1, Y1)-(X1, Y2), 15ãLINE (X1 + 1, Y1 + 1)-(X2 - 1, Y1 + 1), 15ãLINE (X1 + 1, Y1 + 1)-(X1 + 1, Y2 - 1), 15ãLINE (X2, Y1)-(X2, Y2), 0ãLINE (X1, Y2)-(X2, Y2), 0ãLINE (X2 - 1, Y1 + 1)-(X2 - 1, Y2 - 1), 8ãLINE (X1 + 1, Y2 - 1)-(X2 - 1, Y2 - 1), 8ãLINE (X1 + 2, Y1 + 2)-(X2 - 2, Y2 - 2), 1, BFãWORD A$, 0, X1 + 6, Y1 + 7, 7, .5ãWORD A$, 15, X1 + 4, Y1 + 5, 7, .5ãEND SUBããSUB WIN (X1, Y1, X2, Y2, A$)ãLINE (X1 + 10, Y1 + 10)-(X2 + 10, Y2 + 10), 0, BFãTDSTUFF X1, Y1, X2, Y2ãTITLE X1 + 4, Y1 + 4, X2 - 4, Y1 + 26, A$ãPBUTTON X1 + 4, Y1 + 28, X2 - 4, Y2 - 4ãEND SUBãEdward L. Blake USING VECTOR FONTS blakee@cyanwerks.com 06-28-00 (19:51) QB, QBasic, PDS 364 17022 LETTERS.BAS ' 1995-96 Edward Blake, Display Adjustable text, Usable in almostã' all the Graphics modes (blakee@cyanwerks.com)ã' Qbasic\Quick Basic 4.5ã' use the Word procedure for displaying a message, the Word procedureã' provides a interface with the letter procedure ,who accepts only oneã' character at a time. the Letter procedure is a large procedureã' It displays Uppercase letters, numbers.. all except Lowercase characters,ã' extended characters, @ and &ããDECLARE SUB WORD (Message$, TextColor!, X!, Y!, LtrSep!, Size!)ãDECLARE SUB LETTER (A$, C!, X!, Y!, SZ!)ãSCREEN 12ãWORD "ABCDEFGHIJKLMNOPQRSTUVWXYZ", 15, 1, 1, 12, 1ãWORD "`1234567890-=~!#$%^*()_+[]{};':" + CHR$(34) + ",./\<>?|", 15, 1, 25, 12, 1ãWORD "Normal size", 15, 1, 75, 12, 1ãWORD "Half size", 15, 1, 100, 7, .5ãWORD "a fourth of the size", 15, 1, 115, 4, .25ãWORD "Shadowed using two word calls", 8, 5, 130, 7, .5ãWORD "Shadowed using two word calls", 15, 1, 125, 7, .5ãWORD "Compressed Text", 1, 5, 150, 5, .5ãWORD "Stretched text", 9, 5, 175, 15, .5ãDO UNTIL INKEY$ <> ""ãFOR i = 1 TO 15ãWORD "Special effect.. Decompressing text", 10, 5, 200, i, .5ãT1 = TIMERãDOãIF TIMER > T1 + .01 THEN EXIT DOãIF TIMER < T1 - .01 THEN EXIT DOãLOOPãWORD "Special effect.. Decompressing text", 0, 5, 200, i, .5ãNEXT iãWORD "Special effect.. Decompressing text", 10, 5, 200, i, .5ãT1 = TIMERãDOãIF TIMER > T1 + 1 THEN EXIT DOãIF TIMER < T1 - 1 THEN EXIT DOãLOOPãWORD "Special effect.. Decompressing text", 0, 5, 200, i, .5ãFOR i = 15 TO 1 STEP -1ãWORD "Special effect.. Decompressing text", 10, 5, 200, i, .5ãT1 = TIMERãDOãIF TIMER > T1 + .01 THEN EXIT DOãIF TIMER < T1 - .01 THEN EXIT DOãLOOPãWORD "Special effect.. Decompressing text", 0, 5, 200, i, .5ãNEXT iãWORD "Special effect.. Decompressing text", 10, 5, 200, i, .5ãT1 = TIMERãDOãIF TIMER > T1 + 1 THEN EXIT DOãIF TIMER < T1 - 1 THEN EXIT DOãLOOPãWORD "Special effect.. Decompressing text", 0, 5, 200, i, .5ãWORD "Press any key to continue", 7, 5, 250, 7, .5ãLOOPããSUB LETTER (A$, C, X, Y, SZ)ãA$ = UCASE$(A$)ãPA = XãPB = YãSELECT CASE A$ãCASE "A"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB)-(PA + 10 * SZ, PB + 10 * SZ), Cã LINE (PA + 10 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB + 10 * SZ)-(PA, PB + 10 * SZ), CãCASE "B"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB)-(PA + 5 * SZ, PB), Cã LINE (PA + 5 * SZ, PB)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA + 5 * SZ, PB + 10 * SZ)-(PA, PB + 10 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA, PB + 20 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "C"ã LINE (PA, PB + 5 * SZ)-(PA, PB + 15 * SZ), Cã LINE (PA, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 5 * SZ, PB)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA, PB + 5 * SZ)-(PA + 5 * SZ, PB), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "D"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB)-(PA + 5 * SZ, PB), Cã LINE (PA + 5 * SZ, PB)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA, PB + 20 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "E"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB)-(PA + 10 * SZ, PB), Cã LINE (PA + 5 * SZ, PB + 10 * SZ)-(PA, PB + 10 * SZ), Cã LINE (PA, PB + 20 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "F"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB)-(PA + 10 * SZ, PB), Cã LINE (PA + 5 * SZ, PB + 10 * SZ)-(PA, PB + 10 * SZ), CãCASE "G"ã LINE (PA, PB + 5 * SZ)-(PA, PB + 15 * SZ), Cã LINE (PA, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 5 * SZ, PB)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA, PB + 5 * SZ)-(PA + 5 * SZ, PB), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 15 * SZ), CãCASE "H"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB)-(PA + 10 * SZ, PB + 20 * SZ), Cã LINE (PA, PB + 10 * SZ)-(PA + 10 * SZ, PB + 10 * SZ), CãCASE "I"ã LINE (PA + 5 * SZ, PB)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "J"ã LINE (PA + 10 * SZ, PB + 1 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA, PB + 15 * SZ)-(PA, PB + 10 * SZ), CãCASE "K"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB + 10 * SZ)-(PA + 10 * SZ, PB), Cã LINE (PA, PB + 10 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "L"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB + 20 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "M"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB)-(PA + 10 * SZ, PB + 20 * SZ), Cã LINE (PA, PB)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA + 10 * SZ, PB)-(PA + 5 * SZ, PB + 10 * SZ), CãCASE "N"ã LINE (PA, PB)-(PA + 10 * SZ, PB + 20 * SZ), Cã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "O"ã LINE (PA, PB + 5 * SZ)-(PA, PB + 15 * SZ), Cã LINE (PA, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 5 * SZ, PB)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA, PB + 5 * SZ)-(PA + 5 * SZ, PB), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), CãCASE "P"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB)-(PA + 5 * SZ, PB), Cã LINE (PA + 5 * SZ, PB)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA, PB + 10 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), CãCASE "Q"ã LINE (PA, PB + 5 * SZ)-(PA, PB + 15 * SZ), Cã LINE (PA, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 5 * SZ, PB)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA, PB + 5 * SZ)-(PA + 5 * SZ, PB), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 5 * SZ, PB + 15 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "R"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB)-(PA + 5 * SZ, PB), Cã LINE (PA + 5 * SZ, PB)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA, PB + 10 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA, PB + 10 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "S"ã LINE (PA, PB + 5 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 5 * SZ, PB)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA, PB + 5 * SZ)-(PA + 5 * SZ, PB), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "T"ã LINE (PA + 5 * SZ, PB)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA, PB)-(PA + 10 * SZ, PB), CãCASE "U"ã LINE (PA, PB)-(PA, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB)-(PA + 10 * SZ, PB + 20 * SZ), Cã LINE (PA, PB + 20 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "V"ã LINE (PA, PB)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB), CãCASE "W"ã LINE (PA, PB)-(PA + 3 * SZ, PB + 20 * SZ), Cã LINE (PA + 3 * SZ, PB + 20 * SZ)-(PA + 5 * SZ, PB), Cã LINE (PA + 5 * SZ, PB)-(PA + 8 * SZ, PB + 20 * SZ), Cã LINE (PA + 8 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB), CãCASE "X"ã LINE (PA, PB)-(PA + 10 * SZ, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB)-(PA, PB + 20 * SZ), CãCASE "Y"ã LINE (PA + 5 * SZ, PB + 10 * SZ)-(PA + 5, PB + 20 * SZ), Cã LINE (PA + 5 * SZ, PB + 10 * SZ)-(PA, PB), Cã LINE (PA + 5 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB), CãCASE "Z"ã LINE (PA, PB)-(PA + 10 * SZ, PB), Cã LINE (PA + 10 * SZ, PB)-(PA, PB + 20 * SZ), Cã LINE (PA, PB + 20 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "'"ã LINE (PA + 9 * SZ, PB)-(PA + 5 * SZ, PB + 5 * SZ), CãCASE "1"ã LINE (PA + 0 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 0 * SZ), Cã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 0 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "2"ã LINE (PA + 0 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), Cã LINE (PA + 0 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 7 * SZ, PB + 0 * SZ), Cã LINE (PA + 7 * SZ, PB + 0 * SZ)-(PA + 3 * SZ, PB + 0 * SZ), Cã LINE (PA + 0 * SZ, PB + 3 * SZ)-(PA + 3 * SZ, PB + 0 * SZ), CãCASE "3"ã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 0 * SZ, PB + 2 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 0 * SZ, PB + 18 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "4"ã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 0 * SZ, PB + 10 * SZ), Cã LINE (PA + 0 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB + 10 * SZ), Cã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "5"ã LINE (PA + 0 * SZ, PB + 0 * SZ)-(PA + 10 * SZ, PB + 0 * SZ), Cã LINE (PA + 0 * SZ, PB + 0 * SZ)-(PA + 0 * SZ, PB + 10 * SZ), Cã LINE (PA + 0 * SZ, PB + 10 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA + 5 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 0 * SZ, PB + 17 * SZ), CãCASE "6"ã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 0 * SZ, PB + 15 * SZ), Cã LINE (PA + 5 * SZ, PB + 10 * SZ)-(PA + 0 * SZ, PB + 15 * SZ), Cã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 0 * SZ, PB + 15 * SZ), Cã LINE (PA + 5 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), CãCASE "7"ã LINE (PA + 0 * SZ, PB + 0 * SZ)-(PA + 10 * SZ, PB + 0 * SZ), Cã LINE (PA + 10 * SZ, PB + 0 * SZ)-(PA + 0 * SZ, PB + 20 * SZ), CãCASE "8"ã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 0 * SZ, PB + 5 * SZ), Cã LINE (PA + 0 * SZ, PB + 5 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 0 * SZ, PB + 15 * SZ), Cã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 0 * SZ, PB + 15 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "9"ã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 0 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 0 * SZ), Cã LINE (PA + 0 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 0 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 10 * SZ), CãCASE "0"ã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 10 * SZ, PB + 5 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA + 0 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 0 * SZ, PB + 15 * SZ)-(PA + 0 * SZ, PB + 5 * SZ), Cã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 0 * SZ, PB + 5 * SZ), Cã LINE (PA + 0 * SZ, PB + 15 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), CãCASE ","ã LINE (PA + 4 * SZ, PB + 20 * SZ)-(PA + 6 * SZ, PB + 15 * SZ), CãCASE "-"ã LINE (PA + 0 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB + 10 * SZ), CãCASE "."ã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "["ã LINE (PA + 2 * SZ, PB + 0 * SZ)-(PA + 2 * SZ, PB + 20 * SZ), Cã LINE (PA + 2 * SZ, PB + 0 * SZ)-(PA + 6 * SZ, PB + 0 * SZ), Cã LINE (PA + 2 * SZ, PB + 20 * SZ)-(PA + 6 * SZ, PB + 20 * SZ), CãCASE "]"ã LINE (PA + 6 * SZ, PB + 0 * SZ)-(PA + 6 * SZ, PB + 20 * SZ), Cã LINE (PA + 6 * SZ, PB + 0 * SZ)-(PA + 2 * SZ, PB + 0 * SZ), Cã LINE (PA + 6 * SZ, PB + 20 * SZ)-(PA + 2 * SZ, PB + 20 * SZ), CãCASE "{"ã LINE (PA + 0 * SZ, PB + 10 * SZ)-(PA + 3 * SZ, PB + 8 * SZ), Cã LINE (PA + 0 * SZ, PB + 10 * SZ)-(PA + 3 * SZ, PB + 12 * SZ), Cã LINE (PA + 2 * SZ, PB + 3 * SZ)-(PA + 3 * SZ, PB + 8 * SZ), Cã LINE (PA + 2 * SZ, PB + 17 * SZ)-(PA + 3 * SZ, PB + 12 * SZ), Cã LINE (PA + 2 * SZ, PB + 3 * SZ)-(PA + 4 * SZ, PB + 0 * SZ), Cã LINE (PA + 2 * SZ, PB + 17 * SZ)-(PA + 4 * SZ, PB + 20 * SZ), CãCASE "}"ã LINE (PA + 10 * SZ, PB + 10 * SZ)-(PA + 7 * SZ, PB + 12 * SZ), Cã LINE (PA + 10 * SZ, PB + 10 * SZ)-(PA + 7 * SZ, PB + 8 * SZ), Cã LINE (PA + 8 * SZ, PB + 17 * SZ)-(PA + 7 * SZ, PB + 12 * SZ), Cã LINE (PA + 8 * SZ, PB + 3 * SZ)-(PA + 7 * SZ, PB + 8 * SZ), Cã LINE (PA + 8 * SZ, PB + 17 * SZ)-(PA + 6 * SZ, PB + 20 * SZ), Cã LINE (PA + 8 * SZ, PB + 3 * SZ)-(PA + 6 * SZ, PB + 0 * SZ), CãCASE "<"ã LINE (PA + 0 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB + 0 * SZ), Cã LINE (PA + 0 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE ">"ã LINE (PA + 10 * SZ, PB + 10 * SZ)-(PA + 0 * SZ, PB + 0 * SZ), Cã LINE (PA + 10 * SZ, PB + 10 * SZ)-(PA + 0 * SZ, PB + 20 * SZ), CãCASE "|"ã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 5 * SZ, PB + 24 * SZ), CãCASE "`"ã LINE (PA + 0 * SZ, PB + 0 * SZ)-(PA + 5 * SZ, PB + 5 * SZ), CãCASE "!"ã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 5 * SZ, PB + 12 * SZ), Cã CIRCLE (PA + 5 * SZ, PB + 17 * SZ), 2, CãCASE "="ã LINE (PA + 0 * SZ, PB + 7 * SZ)-(PA + 9 * SZ, PB + 7 * SZ), Cã LINE (PA + 0 * SZ, PB + 13 * SZ)-(PA + 9 * SZ, PB + 13 * SZ), CãCASE "~"ã LINE (PA + 0 * SZ, PB + 3 * SZ)-(PA + 3 * SZ, PB + 0 * SZ), Cã LINE (PA + 3 * SZ, PB + 0 * SZ)-(PA + 6 * SZ, PB + 3 * SZ), Cã LINE (PA + 6 * SZ, PB + 3 * SZ)-(PA + 9 * SZ, PB + 0 * SZ), CãCASE "/"ã LINE (PA + 0 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 0 * SZ), CãCASE "^"ã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 0 * SZ, PB + 5 * SZ), Cã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), CãCASE "\"ã LINE (PA + 0 * SZ, PB + 0 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE "+"ã LINE (PA + 0 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB + 10 * SZ), Cã LINE (PA + 5 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 15 * SZ), CãCASE "_"ã LINE (PA + 0 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 20 * SZ), CãCASE ":"ã CIRCLE (PA + 5 * SZ, PB + 3 * SZ), 2, Cã CIRCLE (PA + 5 * SZ, PB + 17 * SZ), 2, CãCASE ";"ã CIRCLE (PA + 5 * SZ, PB + 3 * SZ), 2, Cã LINE (PA + 4 * SZ, PB + 20 * SZ)-(PA + 6 * SZ, PB + 15 * SZ), CãCASE "?"ã CIRCLE (PA + 5 * SZ, PB + 3 * SZ), 5, C, 3 + 1.5, 3ã LINE (PA + 5 * SZ, PB + 8 * SZ)-(PA + 5 * SZ, PB + 12 * SZ), Cã CIRCLE (PA + 5 * SZ, PB + 17 * SZ), 2, CãCASE "#"ã LINE (PA + 3 * SZ, PB + 0 * SZ)-(PA + 3 * SZ, PB + 20 * SZ), Cã LINE (PA + 6 * SZ, PB + 20 * SZ)-(PA + 6 * SZ, PB + 0 * SZ), Cã LINE (PA + 10 * SZ, PB + 6 * SZ)-(PA + 0 * SZ, PB + 6 * SZ), Cã LINE (PA + 0 * SZ, PB + 12 * SZ)-(PA + 10 * SZ, PB + 12 * SZ), CãCASE "%"ã CIRCLE (PA + 3 * SZ, PB + 3 * SZ), 2, Cã LINE (PA + 0 * SZ, PB + 20 * SZ)-(PA + 10 * SZ, PB + 0 * SZ), Cã CIRCLE (PA + 7 * SZ, PB + 17 * SZ), 2, CãCASE "("ã LINE (PA + 0 * SZ, PB + 5 * SZ)-(PA + 5 * SZ, PB + 0 * SZ), Cã LINE (PA + 0 * SZ, PB + 5 * SZ)-(PA + 0 * SZ, PB + 15 * SZ), Cã LINE (PA + 5 * SZ, PB + 20 * SZ)-(PA + 0 * SZ, PB + 15 * SZ), CãCASE ")"ã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA + 5 * SZ, PB + 0 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), CãCASE "$"ã LINE (PA, PB + 5 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA, PB + 15 * SZ)-(PA + 5 * SZ, PB + 17 * SZ), Cã LINE (PA + 5 * SZ, PB + 3 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), Cã LINE (PA, PB + 5 * SZ)-(PA + 5 * SZ, PB + 3 * SZ), Cã LINE (PA + 10 * SZ, PB + 15 * SZ)-(PA + 5 * SZ, PB + 17 * SZ), Cã LINE (PA + 5 * SZ, PB + 3 * SZ)-(PA + 5 * SZ, PB + 0 * SZ), Cã LINE (PA + 5 * SZ, PB + 17 * SZ)-(PA + 5 * SZ, PB + 20 * SZ), CãCASE "*"ã LINE (PA + 0 * SZ, PB + 10 * SZ)-(PA + 10 * SZ, PB + 10 * SZ), Cã LINE (PA + 0 * SZ, PB + 5 * SZ)-(PA + 10 * SZ, PB + 15 * SZ), Cã LINE (PA + 0 * SZ, PB + 15 * SZ)-(PA + 10 * SZ, PB + 5 * SZ), CãCASE CHR$(34)ã LINE (PA + 3 * SZ, PB + 0 * SZ)-(PA + 3 * SZ, PB + 4 * SZ), Cã LINE (PA + 7 * SZ, PB + 4 * SZ)-(PA + 7 * SZ, PB + 0 * SZ), CãEND SELECTã'LINE (PA + 0 * SZ, PB + 0 * SZ)-(PA + 0 * SZ, PB + 0 * SZ), CãEND SUBããSUB WORD (Message$, TextColor, X, Y, LtrSep, Size)ãFOR i = 1 TO LEN(Message$)ãB$ = MID$(Message$, i, 1)ãLETTER B$, TextColor, (LtrSep * i) + X - LtrSep, Y, SizeãNEXT iãEND SUBãErez Shinan 3D MAP ALGORITHM shinnan@zahav.net.il 07-22-00 (15:33) QB, QBasic, PDS 115 3249 3DMAP.BAS 'Üßßßß ÜßßÜÜ Üßßßß ÛßßßÛ ÜßßßÜ Û Û ßÛß ÛÜ Û ÜßßßÜ ÛÜ Ûã'ÛÜÜÜ Û Û ÛÜÜÜ Üß ßÜÜ ÛÜÜÜÛ Û ÛßÜ Û ÛÜÜÜÛ ÛßÜ Ûã'Û ÛßßßÜ Û Üß ßÜ Û Û Û Û ßÜÛ Û Û Û ßÜÛã'ßÜÜÜÜ Û Û ßÜÜÜÜ ÛÜÜÜÛ ßÜÜÜß Û Û ÜÛÜ Û ßÛ Û Û Û ßÛãã' /ã'<<<<<<<<-------------------------------------------================<ã' \ãã'ßßÛ Üßß ÛßÜ Ûßß ÜßÜ Üßß ßÛß Û Û ÜßÜ ÜßÜ Üßßã' Û Ûß Û Û ßß ßßÜ Û Û Ûß Û ÝÜÞ ÛßÛ ÛÜß Ûßã'ÛÜÜ ßÜÜ ÛÜß ÜÜÛ ßÜß Û Û ÞßÝ Û Û Û Û ßÜÜããã'Made by Erez Shinan 21-07-00 / 22-07-00ã'Email: erezshn@hotmail.comãã'To run press Shift + F5ããã'This is a very easy 3D map algorithem.ãã'You can change and use this program as much as you want,ã'but if you use it in one of your programs please mention my name.ãã'If you know how to "hide" the black points that occur on certainã'rotation angles please email me.ãã'If you have questions or answers email me to: erezshn@hotmail.comããDEFINT A-ZãSCREEN 13ãDIM Enlargement AS SINGLEãRANDOMIZE TIMERãHDiff = 10 'Height differences when smoothingãSmoothAmount = 5 'Smoothing amountãHWater = 5 'Water height: 1 to 15ãlx = 1: hx = 100 'Borders of ...ãly = 1: hy = 100 '... the mapãEnlargement = 1 'In how much to enlarge the mapããDIM P(lx TO hx, ly TO hy) AS INTEGER 'If error accurs here use /AH on command-lineãDIM sP(lx TO hx, ly TO hy) AS INTEGER 'or decrease the values of 'hx' & 'hy'.ãã'Random pointsãFOR x = lx TO hxãFOR y = ly TO hyãP(x, y) = ((RND * 256))ãNEXT y, xããFOR x = lx TO hxãFOR y = ly TO hyãsP(x, y) = P(x, y)ãNEXT y, xããã'SmoothãFOR c = 1 TO SmoothAmountãPRINT "Smooth:"; c; "/"; SmoothAmountãFOR x = lx TO hxãFOR y = ly TO hyã cur = sP(x, y)ã IF x = lx OR y = ly THEN p1 = cur ELSE p1 = sP(x - 1, y - 1)ã IF y = ly THEN p2 = cur ELSE p2 = sP(x, y - 1)ã IF y = ly OR x = hx THEN p3 = cur ELSE p3 = sP(x + 1, y - 1)ã IF x = lx THEN p4 = cur ELSE p4 = sP(x - 1, y)ã IF x = hx THEN p6 = cur ELSE p6 = sP(x + 1, y)ã IF x = lx OR y = hy THEN p7 = cur ELSE p7 = sP(x - 1, y + 1)ã IF y = hy THEN p8 = cur ELSE p8 = sP(x, y + 1)ã IF y = hy OR x = hx THEN p9 = cur ELSE p9 = sP(x + 1, y + 1)ã P(x, y) = (cur * HDiff + p1 + p2 + p3 + p4 + p6 + p7 + p8 + p9) \ (8 + HDiff)ãNEXT y, xããFOR x = lx TO hxãFOR y = ly TO hyã sP(x, y) = P(x, y)ã NEXT y, xãNEXT cãããblue = 40: green = 0: red = 0ãFOR c = 1 TO HWaterãPALETTE c, 65536 * (blue + c) + 256 * green + redãNEXT cããFOR c = HWater + 1 TO 15ãblue = 0: green = c * 4 + 3: red = 0ãPALETTE c, 65536 * blue + 256 * green + redãNEXT cããCLSããFOR x = lx TO hxãFOR y = ly TO hyãLINE (x * Enlargement, y * Enlargement)-((x + Enlargement - 1) * Enlargement, (y + Enlargement - 1) * Enlargement), P(x, y) \ 16, BFãNEXT y, xãDOãINPUT "Rotation"; RotationAngleãRotation# = RotationAngle * ATN(1) / 45ãCLSããDIM h AS SINGLEããRCOS# = COS(Rotation#)ãRSIN# = SIN(Rotation#)ãya = (255 * RSIN#) / 4ãh = yaããFOR y = ly TO hyãh = h + RCOS#ãFOR x = lx TO hxã y2 = h - (P(x, y) \ 4) * RSIN#ã LINE (x * Enlargement, y2 * Enlargement)-((x + Enlargement * 2 - 1) * Enlargement, (y2 + Enlargement * 2 - 1) * Enlargement), P(x, y) \ 16, BFãNEXT x, yãLOOPãLithumn MOSAIC ALGORITHM lithprod@earthlink.net 08-07-00 (11:55) QB, QBasic, PDS 36 985 MOSAIC.BAS '-----------------------------ã'Title: Mosaic Algorithmã'Programmer: Lithumm (webmaster@qblithumm.cjb.net)ã'Website: qblithumm.cjb.netã'Date: 8-6-2000 (8-7-2000 GMT)ã'Time: 23:13:52 (07:13:52 GMT)ã'Programmed in: QB 4.5ã'-----------------------------ãDECLARE SUB mosaic (size%, x, y, xx, yy)ãã'example to go along with programãSCREEN 13ãFOR i = 1 TO 255ã CIRCLE (160, 100), i, iã CIRCLE (161, 100), i, iãNEXT iããmosaic 3, 1, 1, 160, 100ãmosaic 3, 160, 100, 320, 200ããSUB mosaic (size%, x, y, xx, yy)ããFOR xsize = x TO xx STEP size% 'only gets the part asked forã FOR ysize = y TO yy STEP size%ã p = POINT(xsize, ysize) 'gets the color of the pixelã FOR xblock = xsize - 1 TO xsize + size% - 1'starts a loop to fill inã FOR yblock = ysize - 1 TO ysize + size% - 1ã IF (xsize + size%) - 1 > xx THEN EXIT FORã IF (ysize + size%) - 1 > yy THEN EXIT FORã PSET (xblock, yblock), pã NEXT yblockã NEXT xblockã NEXT ysizeãNEXT xsizeããEND SUBãJacob Wieles ELLIPSES j.wieles@hccnet.nl 08-15-00 (15:47) QB, QBasic, PDS, PB 173 3872 ELLIPSE.BAS 'programma : ELLIPSE.BAS (15-08-2000)ã'auteur : Jacob Wielesã' Playing with sine and cosine and find oval shapesã'basic : PowerBASIC en Q(uick)Basicãããdim col(15),x0(15),y0(15),x1(15),y1(15)ãdim sides(15),oval(15)ãrestore sidedataãfor i=0 to 9ãread sides(i)ãnext iãrestore ovaldataãfor i=0 to 9ãread oval(i)ãnext iãscreen 12ãxm=point(0)ãym=point(1)ãasp=ym/xmãradius=xm/2-2ãwindow(-xm,ym)-(xm-1,-(ym-1))ã'Find out on which basic the program runsã out &H3C7,15ã cr=inp(&H3C9)ã cg=inp(&H3C9)ã cb=inp(&H3C9)ã' if cr=42 then the program runs on PowerBasicã' if cr=63 then the program runs on Q(uick)Basicã timedivisor=10'=====================>> For PowerBASICã if cr=63 then timedivisor=.8'=========>> For Q(uick)BASICã'The value for the timedivisor are found for a Pentium 100 PCã'For an other PC maybe you must change this valueã'To prevent flickering monitor and SetUpDrawSpeedã t!=timerã wp&=0ã do while timer< t!+1ã wp&=wp&+1ã loopãDrawLoop&=wp&/timedivisorããgosub SetupColorãRunFlag=1ãTS$=" Key for stop. "ãpi#=4*atn(1)ãsteps=120ãfor picture=0 to 9ãn=sides(picture)ãf=oval(picture)ãlocate 1,1ãprint TS$ãlocate 1,60ãprint picture+1;"from 10"ã'********************************************>> Draw pictureãfor k=0 to stepsã anglek=k*2*pi#/stepsã for i=0 to nã col=col(i+1)ã anglei=i*2*pi#/nã x1(i)=x0(i)ã y1(i)=y0(i)ã x0=radius*cos(anglek)*cos(anglei)ã y0=radius*cos(anglek)*sin(anglei)ã x1=radius*cos(anglek-f*anglei)ã y1=radius*sin(anglek-f*anglei)ã x0(i)=x0+x1ã y0(i)=asp*(y0+y1)ã if i<>0 then'***********>> draw polygonã line-(x0(i),y0(i)),colã elseã pset(x0(i),y0(i))ã end ifã next iã if k<>0 thenã for t=0 to n'***********>> connect angular pointsã line(x1(t),y1(t))-(x0(t),y0(t)),14ã next tã for w&=0 to DrawLoop&:next w&ã inv$=inkey$ã if inv$<>"" then gosub KeyNextã if RunFlag=0 then goto QuitProgã end ifãnext kã'********************************************>> Line up ellipseãfor k=0 to stepsã anglek=k*2*pi#/stepsã for i=0 to nã x1(i)=x0(i)ã y1(i)=y0(i)ã anglei=i*2*pi#/nã x0=radius*cos(anglek)*cos(anglei)ã y0=radius*cos(anglek)*sin(anglei)ã x1=radius*cos(anglek-f*anglei)ã y1=radius*sin(anglek-f*anglei)ã x0(i)=x0+x1ã y0(i)=asp*(y0+y1)ã next iã for t=0 to nã line(x1(t),y1(t))-(x0(t),y0(t)),14ã next tãnext kãwhile inkey$<>"":wendãt!=timerãwhile timer< t!+2:wendãif k=steps+1 and inkey$<>"" thenã gosub KeyNextãend ifã'********************************************>> Remove pictureãfor k=0 to stepsã anglek=k*2*pi#/stepsã for i=0 to nã col=0ã anglei=i*2*pi#/nã x1(i)=x0(i)ã y1(i)=y0(i)ã x0=radius*cos(anglek)*cos(anglei)ã y0=radius*cos(anglek)*sin(anglei)ã x1=radius*cos(anglek-f*anglei)ã y1=radius*sin(anglek-f*anglei)ã x0(i)=x0+x1ã y0(i)=asp*(y0+y1)ã if i<>0 thenã line-(x0(i),y0(i)),colã elseã pset(x0(i),y0(i))ã end ifã next iã if k<>0 thenã for t=0 to nã line(x1(t),y1(t))-(x0(t),y0(t)),colã next tã for w&=0 to DrawLoop&:next w&ã inv$=inkey$ã if inv$<>"" then gosub KeyNextã if RunFlag=0 then goto QuitProgã end ifãnext kãnext pictureãQuitProg:ãclsãscreen 0ãprint" Hit a key for the source."ãendããSetupColor:ãrestore SetupColorDataãfor i=0 to 15ã read col(i)ãnext iãreturnãããKeyNext:ã while inkey$<>"":wendã RunFlag=1ã locate 1,1ã print" Key for go on. Esc for end."ã doã keyhit$=inkey$ã loop until keyhit$<>""ã if keyhit$=CHR$(27) then RunFlag=0ã locate 1,1ã print TS$ãreturnããSetupColorData:ãdata 0,9,10,11,12,13,2,3ãdata 4,5,6,9,10,11,12,14ããsidedata:ãdata 6,6,7,7,7,8,8,9,10,12ãovaldata:ãdata 2,4,2,3,5,2,6,2,2,2ãJacob Wieles FAN SHAPE j.wieles@hccnet.nl 08-15-00 (15:47) QB, QBasic, PDS, PB 121 2477 FANSHAPE.BAS'program : FANSHAPE.BAS (15-08-2000)ã'ã'auteur : Jacob Wielesã'basics ? : POWER and Q(UICK)ã'ãdim DrawCol(15)ãYes=1ãNo=0ãscreen 12ã'Find out on which basic the program runsã out &H3C7,15ã cr=inp(&H3C9)ã cg=inp(&H3C9)ã cb=inp(&H3C9)ã' if cr=42 then the program runs on PowerBasicã' if cr=63 then the program runs on Q(uick)Basicã timedivisor=100'=====================>> For PowerBASICã if cr=63 then timedivisor=8'=========>> For Q(uick)BASICã'The value for the timedivisor are found for a Pentium 100 PCã'For an other PC maybe you must change this valueã'To prevent flickering monitor and SetUpDrawSpeedã t!=timerã wp&=0ã do while timer< t!+1ã wp&=wp&+1ã loopãDrawLoop&=wp&/timedivisorããgosub SetUpColorãxm=point(0)ãym=point(1)ãasp=ym/xmãpi=4*atn(1)ãts$=" Hit a key for stop. "ãwindow (-XM,+YM)-(XM-1,-YM+1)ãSteps = 960ãRadius0=.6*XMãRadius1=.3*XMãLineColor=Yesãrestore FanShapeDataãfor fan=1 to 12ã read FanAngle,var0,var1ã RunFlag=1ã locate 1,1ã print ts$;" ";fan;"from 12"ã ColorYesNo:ã for count=0 to Steps-1ã Angle0=count*2*pi/Stepsã Angle1=FanAngle*Angle0ã X0=Radius0*COS(Angle0)ã Y0=Radius0*SIN(Angle0*VAR0)ã X1=Radius1*COS(Angle1)ã Y1=Radius1*SIN(Angle1+Angle0*VAR1)ã x=X0+X1ã y=asp*(Y0+Y1)ã if LineColor=Yes thenã Drawcol=DrawCol(1+count mod 2+fan mod 10)ã elseã DrawCol=0ã end ifã if count=0 thenã PSET (x,y)ã elseã line-(x,y),DrawColã for w&=0 to DrawLoop&:next w&ã end ifã inv$ = INKEY$ã if inv$<>"" then gosub KeyNextã if RunFlag=0 then goto QuitProgã next countã if LineColor=Yes thenã w!=timerã while timer""ã if keyhit$=CHR$(27) then RunFlag=0ã locate 1,1ã print TS$ãreturnããSetupColorData:ãdata 0,12,14,13,10,12,14,13ãdata 9,14,13,10,12,14,13,10ããFanShapedata:ãdata 486,1,1ãdata 485,1,2ãdata 484,1,3ãdata 486,2,1ãdata 485,2,2ãdata 483,2,3ãdata 486,3,1ãdata 485,3,2ãdata 484,3,3ãdata 475,1,-1ãdata 474,1,-2ãdata 473,1,-3ãJacob Wieles GO ROUND j.wieles@hccnet.nl 08-15-00 (15:47) QB, QBasic, PDS, PB 119 2680 GOROUND.BAS 'program : GOROUND.BAS (15-08-2000)ã'auteur : Jacob.Wielesã' Playing with sine and cosine and find ??????????????ã'basic : PowerBASIC en Q(uick)Basicãããdefint x,yãdefdbl a,pãdim col(15),x0(15),y0(15),x1(15),y1(15)ãscreen 12ãxm=point(0)ãym=point(1)ãwindow(-xm,-ym)-(xm-1,ym-1)ã'Find out on which basic the program runsã out &H3C7,15ã cr=inp(&H3C9)ã cg=inp(&H3C9)ã cb=inp(&H3C9)ã' if cr=42 then the program runs on PowerBasicã' if cr=63 then the program runs on Q(uick)Basicã timedivisor=100'=====================>> For PowerBASICã if cr=63 then timedivisor=8'=========>> For Q(uick)BASICã'The value for the timedivisor are found for a Pentium 100 PCã'For an other PC maybe you must change this valueã'To prevent flickering monitor and SetUpDrawSpeedã t!=timerã wp&=0ã do while timer< t!+1ã wp&=wp&+1ã loopãDrawLoop&=wp&/timedivisorãgosub SetupColorãradius=138ãpi=4*atn(1)ãTS$=" Key for stop. "ãrestore ShapeDataãfor picture=1 to 7ã Runflag=1ã clsã read varx1,varx2,vary1,vary2ã locate 1,1ã print TS$ã locate 1,60ã print picture;"from 7"ã k=0ã doã k=k+1ã if k=121 then k=1ã anglek=k*2*pi/120ã for i=0 to 10ã x1(i)=x0(i)ã y1(i)=y0(i)ã col=i+1ã anglei=i*2*pi/5ã angleki=anglek+angleiã x0=radius*2*cos(angleki)*cos(angleki/2)ã y0=radius*1.3*sin(angleki)ã x1=radius*varx1*sin(angleki*varx2)ã y1=radius*vary1*cos(angleki*vary2)ã x0(i)=x0+x1ã y0(i)=y0+y1ã if i<>0 thenã line-(x0(i),y0(i)),col(col)ã elseã pset(x0(i),y0(i)),col(col)ã end ifã next iã if k<>1 thenã for t=0 to 10ã line(x1(t),y1(t))-(x0(t),y0(t)),14ã next tã for w&=0 to DrawLoop&:next w&ã inv$=inkey$ã if inv$<>"" then gosub KeyNextã if RunFlag=0 then goto QuitProgã if RunFlag=2 then exit doã end ifã loopãnext pictureããQuitProg:ãclsãscreen 0ãprint" Hit a key for the source."ãendããSetupColor:ãrestore SetupColorDataãfor i=0 to 15ã read col(i)ãnext iãreturnããKeyNext:ãwhile inkey$<>"":wendãRunFlag=1ãlocate 1,1ãprint" Key for go on. Esc for end. Enter for next."ãdoã keyhit$=inkey$ãloop until keyhit$<>""ãif keyhit$=chr$(27) then RunFlag=0ãif keyhit$=chr$(13) then Runflag=2ãlocate 1,1ãprint TS$ãreturnããSetupColorData:ãdata 0,9,10,11,12,13,9,10ãdata 11,12,13,9,10,11,12,13ããShapeData:ãdata 0.300,1.5,0.300,1.5ãdata 0.250,0.5,0.300,0.5ãdata 1.500,0.5,0.750,1.0ãdata 0.500,1.0,0.375,0.5ãdata 0.300,1.5,0.375,3.0ãdata 0.300,0.5,0.300,1.0ãdata 0.750,1.5,0.250,1.5ãJacob Wieles MASKS j.wieles@hccnet.nl 08-15-00 (15:47) QB, QBasic, PDS, PB 99 2205 MASKS.BAS 'programma : MASKS.BAS (15-08-2000)ã' : Playing with sine and cosine and find masksã'ã'auteur : Jacob Wielesã'basics ? : PowerBASIC and Q(uick)BASICããdefint b-zãdefdbl a,pãColOn=1ãColOff=0ãscreen 12ã'Find out on which basic the program runsã out &H3C7,15ã cr=inp(&H3C9)ã cg=inp(&H3C9)ã cb=inp(&H3C9)ã' if cr=42 then the program runs on PowerBasicã' if cr=63 then the program runs on Q(uick)Basicã timedivisor=100'=====================>> For PowerBASICã if cr=63 then timedivisor=8'=========>> For Q(uick)BASICã'The value for the timedivisor are found for a Pentium 100 PCã'For an other PC maybe you must change this valueã'To prevent flickering monitor and SetUpDrawSpeedã t!=timerã wp&=0ã do while timer< t!+1ã wp&=wp&+1ã loopãDrawLoop&=wp&/timedivisorãTS$=" Key for stop. "ãXM=point(0)ãYM=point(1)ãpi=4*atn(1)ãwindow (-XM,-YM)-(XM-1,YM-1)ãRadius=(YM-4)/2ãTotalMask=12ãRunFlag=1ãrestore ShapeMaskNumbãfor Mask=1 to TotalMaskã read ShapeNumberã SidePolygon=720/ShapeNumberã locate 1,60ã print Mask;"from";TotalMaskã DrawColor=ColOnã gosub DrawMaskã t!=timerã while timer< t!+2:wendã DrawColor=ColOffã gosub DrawMaskãnext MaskãQuitProg:ãclsãscreen 0ãprint" Hit a key for the source."ãendããDrawMask:ã locate 1,1ã print TS$ã for DrawStep=0 to 720ã Angle=DrawStep*2*pi/720ã Angle2=ShapeNumber*Angleã R1=Radius*sin(Angle2+Angle)ã X1=Radius*cos(Angle2-Angle)ã Y1=R1*sin(Angle)ã X=X1+Radius*cos(Angle)ã Y=Y1+Radius*sin(Angle2-Angle)ã col=14-DrawStep mod SidePolygonã if DrawColor=ColOff then col=0ã if DrawStep=0 thenã pset (X,Y)ã elseã line -(X,Y),colã for w&=0 to DrawLoop&:next w&ã end ifã inv$=inkey$ã if inv$<>"" then gosub KeyNextã if RunFlag=0 then goto QuitProgã next DrawStepãreturnããKeyNext:ãRunFlag=1ãlocate 1,1ãprint" Key for go on."ãlocate 2,1ãprint" Esc for end. "ãdoãkeyhit$=inkey$ãloop until keyhit$<>""ãif keyhit$=CHR$(27) then RunFlag=0ãlocate 1,1ãprint TS$ãlocate 2,1ãprint string$(14," ")ãreturnããShapeMaskNumb:ãdata 120,121,122,142,146,178,179,180,181,182,238,242ãJacob Wieles USING DRAW AND VARPTR$ j.wieles@hccnet.nl 08-15-00 (15:47) QB, QBasic, PDS, PB 89 2311 VARPDRAW.BAS'program : VARPDRAW.BAS (15-08-2000)ã'auteur : Jacob Wielesã' Playing with DRAW and VARPTR$ã'basic : PowerBASIC en Q(uick)Basicã' : If you have the two basics then you find a differendã' moire pattern on the same pictures.ã' : With PowerBasic the looks betterããdefint a-zãscreen 12ã'Find out on which basic the program runsã out &H3C7,15ã cr=inp(&H3C9)ã cg=inp(&H3C9)ã cb=inp(&H3C9)ã' if cr=42 then the program runs on PowerBasicã' if cr=63 then the program runs on Q(uick)Basicã timedivisor=100'=====================>> For PowerBASICã if cr=63 then timedivisor=8'=========>> For Q(uick)BASICã'The value for the timedivisor are found for a Pentium 100 PCã'For an other PC maybe you must change this valueã'To prevent flickering monitor and SetUpDrawSpeedã t!=timerã wp&=0ã do while timer< t!+1ã wp&=wp&+1ã loopãDrawLoop&=wp&/timedivisorããxm=point(0)ãym=point(1)ãwindow (xm-1,ym-1)-(-xm,-ym)ãfor i=1 to 90ã pset(0,70)ã X=3*i-10ã Y=2*i-30ã angle=i-30ã linecol=i mod 5 + 10ã gosub DrawPicture1ã for w&=0 to DrawLoop&:next w&ã angle=-angleã gosub DrawPicture1ã for w&=0 to DrawLoop&:next w&ãnext iãlocate 1,1ãprint" Hit a key for next."ãhitkey$=input$(1)ãclsãfor i=1 to 80ã pset(0,0)ã X=i*3-30ã Y=i*2ã angle=iã linecol=i mod 5 + 10ã gosub DrawPicture2ã for w&=0 to DrawLoop&:next w&ã angle=-angleã gosub DrawPicture2ã for w&=0 to DrawLoop&:next w&ãnext iãwhile inkey$<>"":wendãlocate 1,1ãprint" Hit a key for end."ãhitkey$=input$(1)ãQuitProg:ãclsãscreen 0ãprint" Hit a key for the source."ãendããDrawPicture1:ã draw"TA="+VARPTR$(angle)+"C="+VARPTR$(linecol)ã draw"M+="+VARPTR$(X)+",+="+VARPTR$(Y)ã draw"M-="+VARPTR$(X)+",+="+VARPTR$(Y)ã draw"M-="+VARPTR$(X)+",-="+VARPTR$(Y)ã draw"M+="+VARPTR$(X)+",-="+VARPTR$(Y)ãreturnããDrawPicture2:ã draw"TA="+VARPTR$(angle)+"C="+VARPTR$(linecol)ã draw"M+="+VARPTR$(X)+",+="+VARPTR$(Y)ã draw"M-="+VARPTR$(X)+",+="+VARPTR$(Y)ã draw"M-="+VARPTR$(X)+",-="+VARPTR$(Y)ã draw"M+="+VARPTR$(X)+",-="+VARPTR$(Y)ã draw"M+="+VARPTR$(X)+",-="+VARPTR$(Y)ã draw"M-="+VARPTR$(X)+",-="+VARPTR$(Y)ã draw"M-="+VARPTR$(X)+",+="+VARPTR$(Y)ã draw"M+="+VARPTR$(X)+",+="+VARPTR$(Y)ãreturnãTom Shearer VORTEX GRAPHICAL DEMO shearer@bencombegables.freeserv09-09-00 (15:43) QB, QBasic, PDS 551 36406 VORTEX.BAS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"VORTEX.ZIP",4^6:Z&=27065:?STRING$(50,177);ãU"%up()%9%%%R-%#?mNNFL<;)['%%%,-%%%1%I%%E>MAC4GA.WS1;0B.y3T=je^5LãU"l[dDK%VV/d1+gyiscnRT1*+o:'7/twt/L81r1\?&$BiXF5:'_7$vdzzWD*Gmb$GãU"B_Q2DL31;:BkdFQ%6wn4K2f,sE%;Qdd60^+bsLbSm#P/)(_H7L)KC*Fx8\pExZrãU"uA,6;GuHjoTo)jBI+%J[HH3d3.N+YZuuX92;D42-&5Z'oOAaIF]T$svt[<ãU"T'ADf0+H%'4pq/J#s=m-5dZ*ML=*(5JPAb61E52Vv3(JFnKi?,Gss\#]9iV5<#1,ANpWziF9UkaCSPN:eicUr8A-tF+f,C[*_IwS#$N6qIb&d_tiãU"8D$iLj,7UV6v^V=H_ThN+4J_BYy<=0u2YVVZ_?9Wb)xKdlZãU"V/Gg]Jq4t6BWo1DsQ-%7VhC_g''hf6fsxpKN2Sz'9;\Gii=CZJy*e^E98vrC(r48k0?GG8bDA(KmHnLDoRNN'YX91b/[%%.s%%%ãU"/%.%%%t#wyj'#Sgx%NfLVjoOz+mgZ0)\L?'D,uP-%POzPD,23\g5d)*$%%MEEE(ãU"oaQ^'$1hs(hg%X#1vna&$MME^'Q^&n13Hp1a.FzTp^$lW:JxP2JOhF#MqrFM&DDãU"nuXtx+X+wPN>luDtq6=s(kNUIdr&N8rVujwE$\\\wBp2\c7Nx_TiP.NfLZ&.LrnãU"n(sNLd&-GH>:f;.ERDpof7]_aZS7Hap<-tG:r$qnJg2u8tVRh6l#?1>vfO=zcMxãU"ms^rPq.Nv^i$nNu$jVD7ZxwT>f8^Muud(7sNHf.MZjr$nSMQ$rm4dqY?vpXd>ImãU"6H%l3D_tCaY:[(,3elX8>Xq*>fVW46HmlV4FflS*24Sk\WG52deRej\>WW1#F*ok^Wu&k.$[Nv1/7v0FWwvkNXTK85NjatIeeR./5+GY:BsãU"t&Kc0U)uX)78eWrZ9FcV.&7^d-SiV,%sa7pT2)ril(i9vsZ$O0ilEBcNLncudn8ãU"9w1q)?6h7b,MuPffhdYWD6n/MUDLmptOpw*Grh.KOehlFm3AQ0uhf0X>Id&bPJWãU"KBQp'lAr/>X/uFIT-/xIKP>&7o?i9*pxuq^9GH9P:nPC$HZB,a]ãU"qx0;;('Y-1?MZAB7Ji?4>jJz=%5fD+/XR\X,qC+Q(i,rKiNMN95gJPS,?i,5wilãU"tsd'fYfTl9pãU"r;cpF\#l8wi2rtx9pHj#DMjMBJeHQJHIs36t'l_'ug0T?Jmn,hHYcT-nZdPCJABãU"U:/n'_R(tJ]'v#aga;Aqja9^0]MA^N2AAO5k5d\KsvQx'?GH;\veFMNxDPv])'MãU"jT#%=&>#>k-0XrN0$i,Pie,8qh,AOcrV-Rh+>ThEXCJJt2lmvyiC.IdKEx,MLGaãU"47M=+Xt''Xvyc;T^200iYD2IcNK>-=MR;bJ(FogQ>(m8YQm/VbY0/%fC(4&G=W^ãU"N8#O./5E9>(IQn-(;u>q*us%'l:T=DVO^U#l&YFFKNCLf+HsSroY$#YX$6M8St9ãU"7Sa_7zcG_SLxjPaLo'BLDGEqc]]4%7Re5>83SjPX=9YVQTq?$0dCF8P.r[MJ1>IãU"2njSn,SiDmR+Ru]rJu-4eE0)1otC%#0/W9S/qYtSp'WE8btknrtItjgYB[pbIMYc,Uj^;J:(+SnãU"97lane&5>D>dCT:X;,ZC%.aZ#=.A&f<(44f^o.q;A_Z9Far^*W3E.712r=)Q]DXãU"\gAQnmTI);;FzXd2mu=nHGFI++45m;j61k5(Y2:KLf=-A;Oquw1KUhF-ãU"19gU9a=>T\dU&7S*bso'uAc;4d9&?9;T9,o_bdEp5L8wF/Z7D_ZoL.j4=:+(jH\ãU"6GLC#yrraMV;i$3J7768<,1)lR2%cãU"*u*0Yd>H;HGm.VMShi_o+m6b)t-XqHutGOyZA97gB;ASs3(LGOhhf#Rl3:BgC%IãU"ak4-7[B$y+k7c9mth*?BT$ãU"jg??R%ij?V;ez0_*ID5M9UrGQhEGbfif-Te1vUB0#S(ss=2Y#1*TUD--%^K+SvGãU"9;GSs_?WFW]=dAK[]iEi-,qp8oQ)Yfu0xLZZ4BZbTmjo-Qn$z1TP0VkXuhRmf5LãU"*HEtb[<;q*7jQHotz$7^27YrW)pfkVF66XiEHuc^[*O,G\k(6ZCPM-mv;)]tQwGãU"DG._uDGOh3>Ok#1Uk>F/wzoi.'<)%[K'uYQ4f%fqMN,aaxPEm8EeHqV2<_$spT?ãU";$KjrK&t/a1Pej>ri4]ax2)_;T?r6te:0#i8p0ia*f;;rpMIEZ_.).qr7*Y?T5BãU"*Z,b^cL[Q%]C?HfweH^-k6_?g(mU+UxP?_3/>g9#G)g:w_F6JQO%K%*ceal1sVdãU"0j23TJd/Od9&iem0dDg^S^>iHg&ZsxRu.I[BX0NiM7GTXzF;3viCAZ'rQ>[eS,6ãU"b[E2*Ol&+31oH0'/.5H+;-W476AFiZXpWEk7JDYr;X?r*$;Tr#$P.670H(Klj(jqZt_UVd?54Q:D_j>]\O\pX6YP6_8Oqm^H?A/n(&g#YCq?'ãU"R5X.Gnn(98ThYHuAiWz$7Y7TECUnTX(&[c8SM7HNs50Yy>cJpvauQ%XVZ$vS=#]ãU"z?KtpX);kvi(_%;.x5R>_#XWYsDNXMCp6daNuqpFjZgz4ccet+ZqcYBq3VFVlFXKJb2ãU"VJC*P\+0,->),FH)0g]20imzQiKta$YFRO+T[R>Xe\u7Dq&8(6<^:3pu4'L9s7%ãU"]me_nO'XfanX#Z5BbAJ1#^7?=iH^QdxS)tnMfk39V,NqWc/HPkMp,Gm]MsMkxShãU"JD>_]Qq5X*0smbUXuHg.Nd5)R9:b'1/ãU"p69c72+XGKoFHCKpHK>K:YHSGjO8jUk_2Uvy=ccN%2I)8G:(M;*3H[/GUT7m=iJ?nHmX'ZPOlrq1nãU"t/*uM36Cc/xJ]'#]Z)03]2\e-MKY%Xhub?cVY8uWCd4RHiV;,ãU"r8ouAr6N3KC2JX,ISMp+FasGKQS,p4SJd/;s9F?4,p\m?L36,TXTfMkFYk>I+^eãU"V7ie54]#QEnpSjQXu#q[5Z[F.-nRdumh?=?;+nn[JlRBeY6]i:77c+0lX5O'.WZãU"(M7&Md.gFksil^,m:n>Q;>C.=uF#]P2,U&t\K-\XUW)=KFW&Q4T1rss?G1gf$J[ãU"ZNQ80jA=N$4Hk]NQ_dQZRM]/WFism-]dMJFX0k&*1B7R?KcS&*JãU"a'm'b1;)fp*?tPZ.LWU*ICH>i3>jq[62]hY:NM%f5yn;$V2S(Jsp=Q/*:b9UzZ,rDO+rF0Oc<^_]KiY8D/F*(&c[gãU"Aj;9r*e-d\TT(7JTKdB8\Y_?\G-axKMb6P%piqEJjY#aeKU$q24/wNd2),L&S)[ãU"3n5'HHUVi(vKIzMg%=+XhNMkL%8oJ,Vu5RD5pV-ThRJrl^P_GãU"Rx3k&FeVU[lU1L(]Dyb)OI5.6n&N(<9TxCO6,db6Y>6G9K_CF8^-MJG$$6&aF_^ãU")Ow5W(+\lY('6fn]#/-uj17K;Sv%WHG62ILuRqW=VH>?udzO,EjZ)(^D8P_k%$]ãU"J\?qM'g<#JALSc=hq,0\g:I?3B)m9c3l^QKs3/Hn^#2smY:.0afKC;D?:tYJ=X^ãU"ab%d4ID1k5o96Z&_:UK<)i)+en'Wen,mqgZu09&cOK\'h:SX#2nR8:ktDH>oY0CãU"^>*;pD)>HX_$WR,U56?9f)q)qV<((f0a*DgiFvgNIZ2O\Q8#ra^0Rs43(WwKNd_ãU"a(s%RPpc)goDqT9TbFO(J2?Ro-:aU.;n^-i^7ch6.T(,+R$5VMxf6a(DU(i5QL(ãU"rIL]oMe](7JUY8U*7i$SJ8jAl0;&gLãU"3U.UNfVPt7Pdpq]*MI;QR1&FlM[oU,xpP\8jvtQZsQjUn]2vg1[FyqRV$d9KiVBãU"lgZw'_A6w+1CTC;[4$[f:7V$Zv0qK3e/W-3/Av.aj$q0_eTZ<=Zsy84hs[qYtk4ãU"QM'S,q3/fRetDeTS,G^_j03QaSMElq1/>NaR2_fEMpsf;cs3m*cS.'b5gTNZ\Q_ãU"?4MC>1Rio\Y8R-q1.d:R1r98m.55KY&VKW8kTUiãU"t8ur4tgc4gYqg=Mxf'#zZq.aGKGS,S1OLpa62lDCrHtTXPW;Dgg()KV4VZso64jãU"BTEsfEVFP<%-^3dX<(5FzDL8j]\in_=$lq0]x&)^%,;\C37N;48?\#7LDA#eLd]ãU"8X]WiB#-L#Se%'$9,7\1cstXA7MKTLLM/H4u;4civ14I^/f^Fd/nVdYBV:#A,aHkF:zS*3Dp-T7ZA,pj^&'Pr$\i)84KS_*[IkãU"Q%]4(]9Ng9]dil*FI)+p.*R:E\i_K)fS4SH)y.5TCCN'nk&8N>QGp5>tKDq'Cz_ãU"St.Trs0,FusH;KxipY3,:6_UP#FYa5UVEUk5VI+D'FEBaq^1J^Xpo*\T.\mvJ98ãU"j=kz#v#DOd#$E%$6b4mJ*)#Qn5ZG=g5Pe;BGE+n\$lKtj+q_7H^E[trhVm^Z9psãU"we,E,QNpA)89etG*UYxKYJ-f.:P2;noiKmFBL;7ãU"u*VV^IK-8k_7puj&7JhãU"azqIwugAmvlw?P(PhG&hTf7t-R3aECtPXeiP8oUmoph4Hn#=+h]9&XthEp2TD95ãU"0HG&SZ)Vsm4+#J-KPDb=5JhO>qL7*0W]TY\Oq5=EX4LG$0x)$96]&PB.84=q#E5ãU"1RjvivQE7b&jhseeRjZftVL(9prLd4VuaRWLBHXrC^Dn=dw=Z4(dHdW\cpwEtbUc<-6,9F4K>0lzu=pthYCRC;>fDw5R+k$B-8Wq>iLA^R2g$nn>lPAGux>J9YXnz4t;67VyO_xt[n>0r1La2/C8eN8xgs]<#L\.L\?/\,t[c2b(r2LtW8I#4R6K+5TS>K]]kr$y5YGFpbFc*n2GuNXnrW#d7As;P+umqV=LiFZ)J9+>8&#U5JHMImT,/DãU"78Qj1koa>Bh.HluE]?-A<+?A7Mm6-qK9qp=paGw98Bt*cX98$hqn[d)(*.=[VBpãU"rn5K(pfBfH^jt3nv0v,R,oMg<>IJ3-h(O[b#K]b>;TQ9'R#+*0yWOY.c,gM1h2,ãU"XS.+(+(Y0.]6VIR=%VA6=-4X_lsTUY.Mg7IB;%)K,bI%lrqac$9iFuCpM.75u[$ãU"N(Z%ht(Wd%?LCdFr8'4I84$WzYHHctD;R\AiL<[56ltn90$TFb4FI;#A'WgI^ReãU"7.DHU]f%p8c$>.iPTm>IBx%B*NP?ckKqWZi8(%)'(07QTTqWfb'8-7$O,3h(C&MuTUEw/B7lnlpTk.'^ST^/,,aSkãU"RV+Ui]N<;vuX?Ng,+I3O*mgfXukJ/Fk,6+VQ_2b+h]rUqãU"t1[=nOxa]'vUdh\V3pGt?w'OIgTQrp5O;;\OTpZ4pRF_?lPZpW-n9vEjFTJi0NfãU"lSd<';3UgW=/iXRO(NuLF65uhG101FA9]/Fhq6ãU"J)0hJUK#w$N_^%%j5o5ii\&q]+1c]sT=,ph=x<(oibmII(QNFk*h%GDlzE-UQLbãU"*?vjkeo7YvubAON)^qNw8qmrCH=dve8%DyC.I0SQ-cis]^i9O\=e0CBS0d_KXLEãU"evSHEnCRiQ\[QINkUhkm:R^Olqhp%=5y%Il]V7U0qi\stilWsH-7_?5]ELAM40MãU"M3^J_<6+Smi=Z.+VSGrbQhsh>J_O6gV%Oh*;*_u1Se0gqXCOD;sOtoQMgW%xu;0ãU"OYhr35^jxqqDOWT\46DUX5rCi2'=yA.ee>mYVaErKY%2?1=OB<0i3JYnJ])of9cãU"#ihsjg6wvXA>X;:J.hacE07q5_87c6g5zA]$Cv5uU]Sh<3:V[f6Qah5H:AS>T?\ãU"<[Z2Iu?7wsPoTu,aX$EaRk&3B$0'B7_umgg3iP.FFa1F,qm;Q)UbDO*bdgQZSghãU"ZUA.#rt';Tq*\;3Ww=9%lW347UaXAGue#Ta59vV4?1$AWO=T5>%tT$$S:YZK+utUb->'%oP80]Qw$ãU"RzEM+1Y#bg?uy;4,slmZn$?n_Un%AgP+psgzwoNa4ePrVJ&SKsuuRCgp+&4H;'NãU"+aqP4U,J3ndro/KT)wJ,(m,QZk-a$.U=FhGg'/eLeeHW,qZ\MOy:pSt>]AJPe8gRbGl&j7ãU"WJ;\mPx3]r$&%qfAh%wug._\iGAFqiH>0F'9cd9ca'%_yOF^Kj\>^K2yEg6dP.vZdX(no9,us&vM7fW^$:OY>qi$I1eu>iãU"KK/(,a]$80qJ\lOSZz'=flpFZ)(]>rm-5rPWeJHp't;f9=KXR=k6S7nbVhxmtãU"^<.'Xa//:ogq<)wrcãU"*mr_ICXq>t_-6rIzO&IayRh^k5-qwt4]A221xT>5R#9\^I6VLl[bAc>0H$^^T?BQd9%w^vEMZ3]ãU">=2r;?EVCUQww[j7W_,yZs1iKkahh%YM1QZ&##Rx:?uc>FA]r7r&LeRIyZbGM8cãU"i5U+KlaiUT3*^c&nnM&XQj97xLOgmh?c/'\hH*#=MqYn=Xrve8mo'wh^ãU"Yu8V?T<2o_I(]&GpcS/7V+%L$ejm6.d2U>\->/tdZr=v5#.daDBgrBD;o6T=_gRãU"8/sMsKCO,q/]^?8u'bGafWk(:ZjpKonasNX]4&KEM+d5*19XLZPn'r$i0qovhAuãU"au>[Yfo6P#$USITuV=.aJOd1=,>F<8&Tm3hcLOPC8vlXTL8ZwHiãU"n'KYLBLiZ8>Lfu6TQQfr?KLc$%6hfl,],+cQU'B3Vwg2%cZlh'_'bRAI7eo=0ãU"M45eC/*0,?iVfueJb?ahZ$kVmC6SgtgãU"&6SIxFc2L;G0fZ;'^&jBx<)9(n<3i8v&2xv8p2\q(0]])L#W&:0&*]*%vqMr4u+ãU"cZx):.n]T*af3OBY#^YKGpO^6;R9D:2JX8iHz%&4Ok&-bs[HKT7buoYhHQ*sxruãU"(VNT6\qw-A7JKgS,cLsBpsZ)fk9L4eaZE)P(=TZT<>TD_-Gnr*q\hnA_K]r%\FãU":97[m:$jVrj]Ls^Bm$4o63Y]2ld4BMpPO:VmPFd5GKF7L%EsY;TGU&=#duSVEAdãU"C<)Gt(VU;q6Q^V1,3CZfS2:kfG,ma(?FZcd');$sV%e9e*/>hGVJG\p]M#QtãU"HbL'KkBQDa-va?t=a:uzfuOivtqnh7Zk7rQ6.LNMlv3Ir2Z(vAutS+1AYdL.EJMãU"dy2:TvEZc1fgJ3TcZk-dO\$+D8uLOy5:qG#NWUi.%K4f,glH93E&g^4L+-[Cht,'OW[8-2GB8[9$(7k=(CpU)%qItvi>epBTi,ãEND SUBãSUB V2ãU"_TfQ't*J+[qu)cp$NwFi[V%D(a1t*LV^3ntCA>R?G#aKrk^8+dgp&fL=^N*6igwãU"A]2UhVo+d.2cT/R.FZ.fQ2Wipop86(jg7YxmN8BmgK)xzS0Hn+o4^PJ9BYi/('KãU";?%l1_DaD:/.#s5Im&%&nCIUO-1&>/Zc64G3h-f.S><#,DlqK*(\O&J.RS.W.9MãU"N%zON&hjL?8oT,^g>W_XR7sDP$hL+%sm49H$nn4$^bC-Ca3U]NRuJpr$e9#w$MvãU"bA\sc6MZuEdBDSU<2:AdTNKpI,/2fcr(amfG,]d6$ONu*QbMk$iDboc6Auk4u4;ãU".\9B46m6s3nBq&b\lZPYG6Mvz/%rUD9nDu(_$N:EXc1HEX\Cwz-%2,gf8\/ku?gãU"FbtRDoegbkK8QmZXGiRW(wrtwqF5K'_#Nt#XãU"gC2RiF-0RTdNY$aS3U]+9&3Bp_C]p]oB$-;fFkFEZ2)ER(&p/Tsoqh9q0R#Mw&YãU"niW1laMeZ.aMXM.-h-M<:%t(u&dy&2ond+Yvrpjv#e:04x8H$ih?wwN,o8_r)eVãU"iwl3#p*Ne:bssrJEraqR2#W=$k'<#dByiS4Ei89k?joEi0.+fYp(PCk9hgu1vs*ãU"TcnR2uYBbMF6QNGufT0#>jof$;E;(dC,KCPWY/B.Ti,RrE8(,Ra8q]jEN,x*YCoãU"'2P%3u$;n.4sN&i].UzZ8/o8-xWhF>?h;H<:kIl\gFb9O:0L3C=S>h2/C:?MXAXãU"dw^fqnL%ST^=12=DZTFNiPH$'5P9cd)Dv4G_Exvh37eZ(Yw+1Xu6[pGv[=8ETxxãU"OXsHDAE],$KF1q_Doc%q3%eo(cM4.4^G[erc70R8M_++[6LwM;rtxidh:*=Li*XidYi#J[J;A6S.:,ZuS.>EpA$TB(hãU"lZ-9Gw%R:e)V9R,v(?p;nx&OT=Soe^klZldNx1xvERbPH=]-*#P,9ãU"xOj4a97$Cj+rALV\EVfrmJr^_I,+ZYFGh;oNCH><:q'[e=D8X5Jq_ceXidD.3/fãU"2Td174:pos;XmmFle2sd]9'*Xmfs)R%cenfW8EX&GWYp?8Yo.<86T/lD6ri4pt/ãU">HZrd5k>6DXOU>E=bLa^E9g8qITuIw9.i&r2q?taxrVN8V0TOFlãU".^3^anNV3-B.PY>l88WO_d\b-fn%K)Bed]UG(2sZa)7\/96f#jtDXk^]D;PAd/?'NIgna7(/>Mn*^TI4WoJwfpm>QtpWM#W^ceVFZW0XMp/U03Dji,=m>8#:._VtSeH^:=RpHãU"B4nHaJh26(,AR<*bL;6Q.<8=tdO/k.4fT]71[b'QfZqX9bb1XAX)-OGG2i.qU?Mk,<>[_T?KPZ0KC^p]1vPHX\i3nW\3n(io^dvMTLtPãU"zn*TY$lrt7^=oBsk?rk/_ast>gsbU8d_]P-qZH_b\vZ%dC.KãU"Ztg(xpqCVNPR2O]0B$siãU"WpRG=BTXufD*5vuk^;5mj_Z>,cdF=2%br:QRAAQLV>pHeLF>YMw;6_mãU"xTZJV)uOkHkXc,99m,n;2iwU;LPLb7W.78p)b\f(ZspãU"dZ1c\x08d1iYRdRc-r[Hj>1<.9nNq-9TV+ea:bvjLiY8jdat$6vstuBd+cRewmGãU";e^5G#8TJTgaT?6JaJko\4qN1KM/5ifOXX[HU%2<7pwXneLn_4''<6Oda6[S]yvãU"0Y;'[hL0&Cl4Zu?ZY?XwLo;BT0G>PR\>DdMWj5[d]aRIV#l52-smmAaO6QdQZIyãU"QRA4j'wUG5F(C'&9[bpR*7qB[0/n:%8iN.:XN$gOMe6nOt$7Bv,3_']2r#k9XGPãU"URbIB9EmVc&fR0;:YGo>m2e:(ssVS.SQ%%Y[3=(m1lqP%[&r(ir/*vKB(RsAudrãU"KK597kLZiZJM>9ubb[*0d^$WFq3koq8Ti*AtO*7qgK3h+dRsvm:^axO:>1,*(NGãU"&;l2=tL/2r92A.W]HZT/eR*-MKQn/0QoRuNc1*fVOO(Zb*H[mO=Yedg,nz_\3qcãU"L#+jcs<=LW+2Y.L9H93;OrNn-qaXuOqTwX_>(Y/q%3W;^#T3SYVBJ6[mBn66v]aãU"(376x_:4=d6P0fD9Ulh5p]N$MLp-ro8mFbPc8N*;t'+>nm3gd#/nS#x-bXN6EoZãU"4[E%.^]m;kYr29vplqh>\eTnv#8%6N,;Y_xW37$0r'PD_G0RW6-5Stm_['IP^L=&\V#9E=wq-t1xNoãU"8rI2a6k3ryArR8O5g*O;JTkj]?^+Ko7b;U96q-?etU$Bqm:D)W.1.B?k.c0yT)CãU";0;US;Mw[v(f)W7%9v)dO*don%F;%4#-4(b;BU+A%$1OdqNMZdFmBfbp07bwsx$ãU"Ft(OK6pnNgiqXEJjBBl;gBjD.PHN9dBFpYHuJjG?T6n]=2O^Yt[*DN0LxJqv2[PãU"sZ4Z04=lpurL_&IyNW616N7ãU"bjYuCNb4xC9_vJ+dlOca:TK%X+Qnsu(3bR&US;-?9hLJ:ZsXq91/Wb\a\\Y'PW%ãU"H,5EFi/KBquUK\P>QjgLI)Nmp,;rTãU"qJ0p+=,aW7Tr99onHVCh4pe8ecIS,'0TRby'9D:q+^1IkC$:WsKLu#r#0KDict.9g\bCn3)QhpTT6X4IN>ãU".B\2Ia(6\Y-]NuB&e$-D$LE-]f]urAU1CW55&v7SV_g_/J?JT)P;Zt;P,LK_Im8ãU"q]]heQUya1(10xNR>$7&Rfu_Hka+RQ:7\]oA_r+Y#%Vve4)%.sEM]QQuVU.U<7vb0_r&KnNwdYãU"AB4dLF7QCPb>D;JNF:SI5&awh;*-LR6Kh]DR8yDOs&vsmag0F*al&1&kV%KlãU"_rs:*?k/HY=IKiZ8qd5[8Sr%8,$>j,w^GKf=LGi5Gj2Jg932t>7i:T9_N&#V\SrãU"o8^6k5UBAYuhPdtc7U^)/[NR9ksada'Ka3SwiNut%$Irdd_n_p2hiãU"nTFJeueYK$9SH%/10dy5DP\ZPmv'J7EIPpa+Z:EY0FP<*P^(SsWãU"P,eR'woZ6M8B9Gzs](:fbiru(q6/Je>OtY*1].T#3G4kiDd0'Kcl,9ihrãU"UpB'f'nEBefR_Q**ãU"4N>=taVFD8/9OqXTU%MrouV;;;X;=(#=.uYF1URn-[17Y-3Y&m$jAWPU_3fd'u\ãU"gl^hf,E*la8BHGdqPtF#\dKsP[HBs<'Noj\W?qSepf*+M.4h3C89v5I\K^^']r/)7)e)f9-9?kF72m:t920&[?a0+8Fk6-*18w-v3O()gSt0uN'k,#+a8yY*)ad4jn)m6#acT)&Yu,eNO^h:D3D]]VF5JK9C>_m4SãU"Ws_30TAVLL+wX1gBi:OK99tcPXM1bB)\(j?(a2rUCyC2W3ay)'CPj-K-Aj07kipãU"vjN9EC?BsONtOjx,w/z,tsjc^&.Y--pGrxg3GUG,/>QX+8btC6KmpS5kGk4mxVCãU"W59Q'(dips4K?Db9Ap_FgcZ8[QZs,rnhsHjclc9Wp[ww%Td8%m#YIkjp=TãU"VkW_[UU*#9z$;_HDSlcX<1n+58RR0jQmB7Ocq^$>9XFH*ZD:/[M+WAi8haY71s-ãU"pUD#FA>'jIYNX$q&crRe/YtntTON98XH7?rpD4sww7qQeL^oYlp6tZLk&j:[7mRãU"h,uBW,+9\2fp5s^a-in0C+bo74(&UI&=xzPEA)&z5MvI'q.Lvj3-Kb]SKkY:7yQãU"sI?qS81QVKd%;LXC\i;eR?/vBV2+^;kXUwf-*dyysxMme]n>#)4-d[+#uqmKK$\ãU"?zWimh*u02-qP,VWV8cpNrqv?jCDpbf7)vKT>6kDAaY>cXul=NlVylZpfTrn&(.ãU"qT&w8(9Y8R\/6;)[;C;$/n*U\Th8cuI\nc.ãU"x9qs)8?Hl#aB_CmG\%B7Fi>py+elI0.]mihciJ,vqROt)USi>:bqZ2pU8%:3xh&ãU"7-2lIGL%EqN2WNN*9^rAUq7'?J7,Q:6L$nH#ãU"o<^O,yq/0uhX(\*Td+(7v9&LgAO*rCIn02Q4ko:(VO<$f1s)lItb=z0WxYDdCjAãU"vI-n[;?Vgauh4=?d2DvV$8_O7CIlMe%cj)k4?m&Mcuq43JqqGLBvwz[B'u=se;:ãU"=W(-VI9_(cOY>.#;D_=[eoVH5,fUBFUq0&qxSE8h.Ow:+AY$Sp6Sc_f&pvN#8ruãU"+MD)JV4m-nL0/s#O67,ANWB8bpfxi<4i<#\ASB(D'*_p;I2&rSJF:nAr]dVz$pcãU"UCP(-uf3nc-M&H%:OMHMm0\KSO,_T9P=D0j9g>57<5ywsi4hxdY%DMcj\_TCC<-ãU"N:uj[/aN7toO1hivA-%qbHGd]Nb]Jvj4A$/:7Gz5+/>(HY#428z)$8ZTJ?wfmwtãU"vwklHpcBWeGcAiZY76>Tg5g,lp3UX47&L^U^a5SLtB&R[t?3fKO_COc:PonjCwHãU"H:bzx[ZvKOz^zvsVt).dO&akxcVyzZ&fx>dIgK+-)oU:mEb8GeH\kO.7')y_V*DãU"[O+V.EK>Z]_<9jf^*5eGn*YoPO:h6r$\h7u(Fldmkh>FymH^oQIV3QY+4<)\R\UãU"o(;t3Xq*/rlãU"1.B5D;)i3E%FXGi:1h8q.T56n.zV.q&=UrP(5H&SZ:-N%ROSzsVIZn-s8=(P1njãU"XD,kl'jUJD=ncgA^4'Kg=^^+_vw>fm'bbO2Ypft'm-DKAL_r=BFn:5.*.M2hP.LãU"dARZ%:Ccxk%Lz,5z/[9Mi+l:sFDFU^Wq97[pCLl%.tCZ28=$,MNu8uqgUr38LSN.z.,kpRzD/$X6s&naV0bEDUZ;,dE_>geQC8TtvNUn+r&ãU"]BdncJl)+\5i;:ZkdS9O#99&n-O7+Q,LFAb6FV]S)hPCO/.i>y1+IbbPDhV:<(A>okYXRcbsk.S$x%%JB>n4&IãU"+p'9(f.I'?s%Lsuv^#ht^x$DItcK.(_.2dsvGK/3&'%IT;tYj1b2icNn0kE/;+nãU")/.lgyCR*[:+SKym^(KP><'=fL:&,FLAz(dPi(]a(:wVc;?i'/AOmV]soVUXnlMãU"^9?tw)Q[L(q?Z'F?3yN7T3,eXbLBG9g8Y;i>fJf)*;-S5YJ7a*sQlrbvNBSyHqTãU"M0k<2)0j(6PG$,;E\=HM+\UukDI_d,,H^Dig&mNg$Rtsr9r,:t,iXHlZWR8FfpsãU"l0$&-.^Dan$>6G%hx8vsC'AB1BSD]r,irVfT/JM&D^2czkFmBvfcU'n397ty(SdãU"%_KnYh4Y,&w;2cd:R[6HgJPWiah1G=/pQs)o(]?k&['=NY*y)ac>t#?F=H^pit6ãU"aZqsOVKMn4CUzbJd]Q-dq4eSU%gf,SrWDDP-kD^d;f9<+qs$>h#rhstq6q.[wz9%d^ãU"rQJV^[2CDvN+B4k2fYP)+C&nw_^>)r]5ogwW;XfU.Nl7cyD%SPRBQAR6mkKK^XtãU"Ln>$jD6N]lVvqvXi3%*B2wRzu5u2l3_w.Zdfon^n=t]'F;7/)3RTGoPZu%Srw;Q7Z_KE7(%vu>JDo;dãU"yrc7CW>Ll5*3b'KsB_Nq1:QAn3-i*4[VBh<%/%/PZKAh;5yY,&ZfhFujP&psF*wãU">MDFA)3y.xn)9mRq6kkdj4XMni^6)wlofeiWL#^z%p<;jVm5S(gn+D_nf;J4xqeS>*/5p]94z)^r*HZ[<(.<'Lz%#_#pHQQJ.ãU"R],M[.'b'Rm][&csJqu#0Vi?4K^oYP(5rmalHX$lMb+)8TymaDQ,rd\FdFi3QV2ãU"AhjbYBsM[ZadS(lw.z8y57?=Z.x-TaZl5*0,g#dbMgãU"tTb_loFF?#X:fnIkh+9h$n:>r_:9okRGb<:&?Veh%HuS^M%uVct0I[xNOQjUkj-ãU"L]'d0Bwlm]vKNhy#vp+6-G4Ca/T4epNKt+dm[KSK)fQgpnNOWbi8.qKKeiQ:6>=ãU"lX38FTCzDf_yAfLtUaLfd'NLVi4Ee3$%2Zrgl_B.9xvbyQ^jy^mcK-n3ard*r?9ãU";5i.98i+bTUjV^sdhJzC8.D*uLIcom6W3\ggqPVKdo5k)%uI5Inqi0q:Pn&_dK(ãU"rvs6%d%=?16gP[1u9c^+4jssqS[o;63Lp(X66Od_CA-:5NY0s';FG'ppf7YcELtãU"sZ^T\nqMImAbP6$XlQ+=ncc^wu+)7^X,sd=d,%Z#-?WfKnKYxvoONcm7?^3.id^ãU"b(&qAd#Niqx'*UwtCdUDb(-^2$R;o3293Zg--pgni5'.b)QP(zhPfA(8>J;PC<[ãU"tnH>rH3+i>$>Y:1m,#jdq/z;=FtPh-.uBwV]Q9j)R6k;sn0;:Y2v%rDWq7eTVO[59326oczTUPLWhsLxkfWPn8Nt3xT4i/<)8ãU"PINzZ7uOl_^fT1GXr#:=c-i=f\?2..FI6L)/,r4yV#9<'4vYbk3$pVDB'uvYq/DFU/vIB#R[16)Vz/,CT+k0frh3Yb0(?JHãU"sao+U*\j;\/)YD(SI0VtHKM*IYS(4.P3hQ:gK3$oe]D'qH>=3c(E;AATb+eUGn;ãU"qxgKvi3WS*.9ek/&IZ>WkFKTy,t]mr\VdIIA>d:>zu(o]vWwãU"=A/&-ri:*M%IFJ$<<6Sg5S+$8$<:Hab0Qg+o9*T#PlEsUTZ4t8AU?Gps24/s+mxãU"LL[q=(qKYzD;EXyzzeeRCvl$RIC.?zzc3ogãU"3Q?;sw,pDe3p^iDu'$=-H3IQR)?B(Cx#RQhc'r0&(1]#aI&5J\;Jt2+f,lQ5h;G7-%&))5Ct\:+MSQ\V?Qv.&-t#sH#md^mOhm2^pb%2;[H4amW9LpeQ88qoJ&B9(MIAfJ^RQdS)mD4xiBWm&ãU"1(h/&8SiC$a7>xV'Hl$Z#IBbP^q^NcB#=Y:2C<ãU"[./[.NB.N-Jy\-IGbHW='hxL]hRk*??=nl%td3LE4q(i>O$HxR&0,#472pa)tNSCgfmAC&YW7/rJ[)%:ãU"Mdw.>2ijU:XlR6BãU"LMGz%Qn.6_$n3-o*a=_u=(IT^$<^jiJt<.[*'Cx\Lz\YnYt*(Fai%7O0%S9kfF]ãU",K_IcfqY_&bf*8&D7twGE&U\-8:HD3zZnZ;]]/3tlO$i\5qPIpGtmplBV/eG)IiãU"79zH>,^Jo+'X(:H.]nbS%pr%2j+,,h9PX1LkmYV_]l$T[_&Cr&T,k3I?i^4o]m8ãU"pm\SeHrtlL1g&mRY)*/P*tT'pA<3a2'q.N#(Z0\#J*S,yoRxq#-\sr#PhQ?t2NVãU"XMg,(U52UnLVd)wfu./e)\p#u.P)49CPZpHve&g\e(4*1wETpLJ?MDX2IHa,mx8ãU";o24[i&-7UY'FrvZ]xj'nto^Dsdma\A9Sphl&$$P#=XZsM<:=OQTVz=]5\n&^AmãU":]?a2#WuB'TH%o^\LOBc)zr/c*pbyK+Y$d>%oKJ#2el;V_>c9(X(M:FopoN[3K3ãU"aW,1.G-j5K:k\mI&:2[t'0'&/ipfO)t_=G/^DLyb&VC)PBhl):3>NXYJ?M#r\_5ãU"6r3FfMu7&i?GBH.G(Z:cFPNipV)zwWXNQqkCefNãU"BT4Xl&e(]IEYu7M+.1S+=n)57-:(W^Ut*M(xhc>yO9+]%6Yr)+k,Y--P^aw2=i6y;g^R*;r5KD_&hLJãU"8b8:HiZmQL1B&xEiPIl0-lGvZ3WiK:1Ge-pZ5a3/aXCJ;vhmdZI6NJ$M:J\+d-?umbMj)Ig1\JgH)#)h7JC>3-i:?;gRJ#A?ãU"1f;nNxb8%tM-ltG)_$f3FtpJl)i['p5=j\6%#xd)=.GvyMi_wF.RzHP&E>xp7d1ãU"a+WF:.G._4+^f\Ylks06gA;6LeN)Tqz8qsLKuRgRfppQ0FkaR1HED2^YZ*?eIQU.G:P3PV'RãU"v#^'rBr.>Ezu:f0^TN:bwt8#Lx#oKj\?8_OFRQiSSJU,l4C6bgS#*0>,4g2LiW.ãU"\*GcZP)=ljBcmrbJB_?[7kDJaxS5icO'Be]qV-tj'9-6a9:Cw,?+ir:$Ofg%pl%ãU"ZF/&H0dJi2Up=+KYd>%WJZ%c;IH.)3/U[\:7O>&via?(zur<9N9X$NNfDwR2ySvãU"z]xCu8+2\t*'(Urj/+5+gSLp*xOd_\VA?#,:12oRX*$It>#NOTU(j_6l?J4xqY'ãU"JISf&I&bT^X4i^r-D&1W_V((BmG)),#N>8R=T0^8p)).k8m)7q.-h-a33sãU"e5g$ej=2,iE0hePF'5TUzeQxa*:gKE.5h8U(X45uFd(T$d,1OH$[:r)$-9X5;_+ãU"sd,tPvO-#BP^pGR--2,n8AdYrgfC;WUcA,KhDxI34rV)Za7tF2>erMjk1lP*(bsãU"%I&>-P)fD_K..;EpP^cU/7;Q^,,,9'ee>)GhpyB>#ZOo#kP9she2BF'SEGZ((LfãU"&<=_Y0Y\/%Mnxy3$Xvte=kK#XMEE:ij([_?=9N7N?LE<55cUs6.4fK[DUq+rCjsãU"B)6)Z2ItzO3?a)'NwnvRiP>7U\V%Hk=w,wf&fN6x%_l/o+FM$5\1DHC'FnwQm%WãU"Nov$s068?:s;j(QeKs-0k_>5&\ItARJ'dn%ZqEYãU">J(^[crUg48;Im^/B+)Iz22LRybNBFlGWi3K;'_1Ge'YFPUOM<#&a<3>to>;KãEND SUBãSUB V3ãU"B1t+O#a>%5m3mSkKrXYqUd'9VAlar_]Fr#\0ktrk?Hbt+hPrhS72wAa?[maJjn6ãU"TN_aQ.QfZVBCW.A3E=4Ynr2mZ5z5>Mw]+.0*Y-FU>Xn;=g(Cc8(,NsJy&S;K21XãU"*nW:hUmO0t=Vsn#Hl=MO3Yo'a+fns8p3o-R%gFCfgAi3p3e?f95TZx%fa3Z(5jZãU"t<>0LK%FA#xW$gS0tScN-Q?=)>98%1;^q'O5NOgLr6]Rbj$q;6)V:9MWJxfqk]=,:w34dTh/qd6eN76(jWjko_#PãU"BEYk&l[_QJ=nMN;kXF#:]/>SEa\\JU%K)8mV(?c8R;X.T-ZoGC.RG.<9v01]FEQãU">,u5KVB9/\'\22kPl;qtH*[a1eA?^Plgd(%BHe'O:n*U^F=%;U7F3n.[Pf#7fqw?%V*3]CdX+'9YzRlmVw%aãU"OUC>])N2J(n(28:tK4XtZ_mUB-'Ce9boU9+FjbT)GMAJT\O+Yj:W/K)e:01['4$ãU"LJ+dC]FV's2#[k=MVK]sp:c%pk2Z%G>-^o&FQH\)_8M=%I[U%/g4h-XpU=VlbjcãU"YnO:#5?l'.6jibfLI+ES(h%:$ãU"ybg-4DosKsW&k\;6t$cwv'cX0O-K=JI/C2g)UVm_gIgf>r7kSA75FC3C%#f']WKãU"v-HsS.d=o_FCaVM2*10TQ^eJ-Q%i0%y)Vn;8Jq/8qOc'g_Yh%noãU"#EWq$-:qQ?%YKc.L$6I?gM5mB2)4Q*HUgcTPuq%%6ajtlZãU"TSPS8B&.[F,5(c6CLd10OG:aT0:sXwImEMFdL,.k=)AHkl1Pq7$Q/o.ba%:]cqnãU">OL'Un[)&-v)yma]O:4&wy[JLR\JK+V]0NA(6f1ãU"=Vl_tS\kIdui(MB<4>-R6SwIF$Mu7H[oCBZu8ltj53(2-l$,X&:,2?U7.232cHqãU"G5b\2m.:a[YQ+Fki.<\>+Cg.t:Z+*XI.bj^\H?1_OãU"rkP\mf*#[b]g_I5EdmEfeh4%oEg$gX<,HbRb#[=gESEQXtt,ep6#?=ODFRgh%5cãU"9_vpAY:$6=/5i:TcB,emypmmIxfJj?%fZn/AX+M-t[H^iW=*pOi*BS(7>ãU"Y[4B.]3SeI^VEi/2ahF0_UeU01laFjhciKJ$Po6sIJXs+/3v>n$\S,_eBãU"E_1Rnm^u<9l&ml1L9m>Fk)jc.GjK[1R4b4i-O%6bwSZ9TsUc7[\j9,-E1%g%=J%ãU"Z.^&n?u[m(#O>J$*6aVZLL&Joj8:kX/PLCdnMBv=Qas$5EuI3rls.>>PY>t?kgOãU";5vQ4iNC/f$0hb=%aTJP(kHa(RETWHs=fm/rEJ&3eB8+&g24d_%?[N$v%/l+%&VãU"*j8magac:=Vo^0o2=2Cu[?$%Vnehn/&Vi)j[ZtIz7;WE5PCEUV6bSJ]3zIgQHp_ãU"ur+&.q75e^M)f$>DuK6)QU>#P0C-F:TNCdmhRv4hS\\/<MMUo$[p-IA3f1$.GC\D?6Is3+\,e3(EC=T]G2PW+_ãU"w?tMG)TNpH_:7D,B>S[6$_T;[\7S:tr:+C.1;O,tR>mCq5UW/5Bue)1GpgãU"f1=]4C%x7_JhJ:a=&0kEK_v>iKc,s)#kA8>q09Plh.tF3r0u.s*OxSu58XXk>\rAqkA)ãU"FJmauQB^X;&%FoGdVA7^jb=1x#uAtC&amP+6S9af<#A$yrZ0#%V4:Da;6=kq;zHãU"G=XqUu?^n76/N^Z[?4B5dPC(GY'LM'Wm>UW/BC$Eqn%+%2ieZeXv;XiPMDI;V/,XSE7grUR$J*)P#SdYOiFh)cOaL%&i0/0I$P5Eg5A6O%kgWXTICoãU"p&wIT/]f&XAbKI(e6cO9Y_h/fa?fQ2p;R*8k:Xg>/(FhãU"]KKk)bS-i3v-Cbd(v.U5V3.B?X^=i[Y-XiEe[L(6#?ou8Z<-:jP7\$0f$La:UYFãU"Lf9V)^H#jfka=eH>FD2a1p,[%/+,g_:q$.hM2yojA6,42EP$u1F5'1.?<*KD64JãU";G+5;I^A]qNuni=(0:&SCglRN\'=eP&2)Qk*?Va99D((F6RLr*Q+\N>H*spk=r7ãU";DfSZ'e.J_WK0#>+fgSu^\=jYm+f^VD*6>,RR1A>%]LJI)?Yefg9c49=#Kh9[abãU"CW[WL7]a\1KFiA7.qiM]dIekuF65#5f]/a+%WV_jY=uqO)-W$YH/:1lJ_ZxbOW6l4E06N$bf4]OL8uwGEg/pyJBQ^JrRãU"$C$#C=3r[Cj\iJnf)^)][uG1^1wIIDW('i_N#11bg)s,(UrKtI.:>U>>%9;uYc9ãU"u3]%3khZ5Kd:B=ijS.4YGN-&k#00=E>6afm$VfNL;s(I[I(%kkO)Xhqo\mUF]lk1#\3E3ãU"/E#KjVP(Uk5w:na#]^ho:#D;;7B+8up<3Y2aif]Q:V/$/]CHBO<&T%h,\1vWd:aãU"NZ76pE&%LgEIe0>QVg\?XM8F#*UH$.r9ISDJ:7:80gDV)h(:bREbj__PWL;+YKdãU"KB%6czR'k&[>>wxxQqenA1'$1?'HJWo_-M.;:-eaWFD[K9Ij]2LecPjKQEV0cs0ãU"ioeVh^85'GA%]^$uW8&cXQ-pbbLgXS)+6MA/d[RX_\[F.J>?H[HG3[JgSBlQ%g*ãU"pxa1lK9H&'uJl)D?\/R.(-2n'dC+8gj41z5RVhe<=r9TJKY.IJZ$H#w7n5-=71%ãU"+7*k'GtPT-m[RwbBb.^)q*;VL3;.Z&X-:2QCh0DU]Dne12j^V2b_U'=L1&*[PyKãU"5^KC.-P-e]H$1hLVetC9dZHK>8dOJiYF):=Z.8gE&E:W%:W]'[9tVY?Xt?Q\#?\,[Np>AAQfbX6K.5%KqXOl34N8jVG-9we),jq';TN7LVRFLi.I2JBBApeHD89V6mgj=9ECmoIp13i$Q]iW:5q.2)>'k(Os]0YTk?tCjmbke*8UYH6LQqf%ãU"51+^90+LpfinA;jTRY>JZ=_o+veW/;Vi>Y6Vijt:Jdt#ãU"uzVfbXZ9IJAKc(28)6jK.8lW6ijS)5#p;xA,'zfSY8(Dk[4_*[c^0'2O(p*DMnTãU"//62)5JIKcZ)zdr1W6/(gn+VeorgLtfo06Yu-di\#\MoKsIS'g/Aw%G#(=T3HVQãU"#Cc+1X+m%;$9d8bow;#5P>#=LAQ5,D/DZ,fD'Vq:(j%3:?*JKij3*usB*D1mkx1ãU"T.7.mOWg-UqmkuuEUGW1$IC87Q/,5f\_ZXu*lgcR]+o]>A1V^hkP>bwSsi=tj>dãU".6Yg(RBT_IiTB2HYmFN]gr+0$07SU-6d$-bHVH?-*EbjVzWV=[4JZpgVmo2/W7lãU"vs&^FFE.og;\g=;]2/*&0gNF_b6)H]Dclt/S6]1-?B.=%+w+oM8cdO:QX1I<]1?ãU"7:cMZ2N4O-0FyAOaF87-EkA[XS0GCV>b*/]Z^_G&6pbUWw?vtn6o=0fh9-iGn>YãU"Zu1(%6lsTO(?jL62$n.N5k?1dLQ7agBeCEu('(hw>8-jja5HVE#$.>,/-^<2e,NãU"/.=GjO>P)k_doChBmtaAeOtk,[L]rWhjnM4M]47'H(RPyE2R9b*P>gjT'ãU"TRc%NX/p6&IJzPAcP5J\QC/X'w(,/[00/e&>q&I)Y-0z[:+E<)v_G]1PMYC=RwRãU"t7P3^Y%s,oAjh63=Bj9t'TH4km2zc/GplLE?HOI0ETaO,tsgY*ag.M*f1]GWbc>ãU"Gn\Y,Q2hA*TK3Po*jJUwng'GIW5$(ãU"$&5W,/feMMU>&RU.j4r\sK&Inqx*S#%O.6]1YB\iM6K9<:kO,Uk1-irdT(K;f&4ãU"JWqe=hrWaY65B)w-.%;UI'/rR07ib2S11B(ãU"1o$(9rLq5M5I>vq'4'A['3bwmEc?e%)I8*klU=?/j,ah.#rZ2U2;$VAHn*i3)Z_ãU"OQ%oM/)l^&Gk]Wf?ikFXWKIa'V&BS+^sDa7u1;YTBjN=BR%i[S8ntKE7\7G/GsoãU"SkBJhql1]88c'_dIN>?8(HjFuC;Ih:mHlWYQlO;hi,T20pO_&$Qfso%:gV4HEj%ãU"WsnmiW7X%W:RUp[SZ%g1kA0lZdx.%>ROJ;W1#2mL]e'IGWfOxjkj7us=ME\'AnXãU"EYeGT+?>I&Eos%EjH/'P*fZ/TVgPA21,cS7umoW6a]pA)[q[Rk-?1wg%hC(?&qãU")$ni?/Z^[1n^7x5mx1$w?h#)d=v9jI9r?nnh0#X[7i#rG3?lJwldPvQM/TD#ãU"==E4HP>CKK0xSf96F9W6i3:B)/qHw3%o)rg%=qBhxe>_Er.^\JY_9GdJ.sv]jBMãU"nGWTHXN8g#<38y&0U2kW,1._TFKe^b:F(w(BHjTKU&h*D]mO]uA9=%q-(br$UEwN&bP&m]>1R-BH]V>.<='*#7[N\GãU"6a810c3RqI*K&5004p#W+/KB4$k-.yPS3qXJqiTZHkFU^ODem:()A#0o%AV0A[vãU"a:\Hp#iLLu\E+ix1xo4%]_LnO]A8>QAHx#oqZ(dIgVãU"dxYfY6J,'J$G\N:&]5.8si%5;R/I%w-6c=[gtsIlV06jSg&;4-S/Hw?N$Av0;s>ãU"QG,EqP>*x_2fKgW*x\dpPLo,I_]p:iPUi$Y34Bw3o\oz\an5k5eYtzNhoRFlqAJãU"hZZ(-GAF%bb-j.2Nr+w1-rj?-N?cuX_%eXT^Zod>M2i#M037qGGVE82J#ZvN:EuãU"wy(U&veãU"[i9T>-/r5d0WOs>YPPFa_RlpWJk5&6Yo'Z%S4fN5><]8ZEArHq)qU.n2KOA;U+tãU"lrLEVn3)8pahxhI7FfqSfvg-SZ;+H('PS[;)B/NRsD0j4Fh[Q:'=dgeJ6;qLR*[;fX-%u5]YzUuk%a:(;LL9gb/VY7$OYBj$/9^ãU".ouc)8p'qOtaRBX',H(h:G']-JIs(Qrb6e^>$R6U//xg6/'*MW#%Pfz6Wv6g/vLãU"1<;y,cED*>;9km05:AUtK7^$qX96%ny<9K;a*Ti9625Iez*U%Hitlm(:k<(,CtIãU"EEwn/fl2-6#iX<;Zr[M9>xmd/lJhLD1uL5HFC1Dk6YT7V;L+pK0^C6]7G?AA%l>ãU">$gXORYZWwo*mkXu9p954scq(xj$xFw%dup(%)9%%[%-%D\?NN_JdP2b%(%%w%.ãU"%%1#%%%EM>AC4)G.VSh10B6dyv>[Ik5M^GcxUXYi?-]JZnop%wC-]AFm^WW9XgpãU"Y9.QZiRm(LfVZ+s-dh###7S_xIt)0Hmb$lfoe\XEGH5ueV%uA[e'w9=3?a*mn)<ãU"?Bf(ICCVni%'RppC$UP7'A#>ADl?#i\-&tXkmnsj%q.'d$n*dbR]F%iX8bz9g$*ãU"Hc;eRy;j9asHjB(+,]7E2$GLAu*sy[wup9K5C%_Cm+NApec/o>_l2qektuMZNpLãU"Gd7lnxn=*06-bgsch1bTI:>6Bs:hU6(]cmQ^+t-;k)X(S^-8Fg]i2eUv4]8f)+mãU"<<\KZiWEfIphK3ehejGpfg8'R^c_[c?ivHtWIqZb\f]Xi(j9$7JAn6\ZGiP8Dk_ãU"_fmY7=4r0yiBfdA0BX6cM4G5G/aXE#;Mqbl%]3]]BjfuEW_,/iKFKEvBvn9\=M5ãU"]I?s\JYUKzwbSCh&=Vb<$h&C:&k(]TG;_Uag\3/]hn)45IO.,;[m,dIM5VnQq-=ãU"ak;+fvk&f^/Vp7f(6^Ddn#d$FznnOLl?Uk\9,3sX5>]T1cT\0ThWe1cJf[cj#MsãU"VTJYsO3o6BC;NB.0]h5VB?9lLboIdW]4<>MF/J2r9Lh9b.vw^z208ãU"t4M7iGxmcrWJ7iqR%kwnnY()[^;Nvt\p$q3O6AN22cbS]?bi'9jSbQCp:f)LKuoãU"B0&lY1WqM[b$V^fv:GUV\o=3_&FMJ:gl$NHHPY,C(DfvsFv9tNA?:t_e2JT9^:mãU"*s\aMPQED8li]nqhrD/#oqz8\H(P=VGQwq#;p2qe5XRvGB/h:i.*;U'*w4P(fXWãU".h)CrUnqg^h/A^fkKc)D%q:dC3#3%etO8A.*\?Jj+f9q1>2u9-*F]mi-GgfVd8RãU"xD_Pd,brVdba&fZgZ2yBH]Q&GãU"liBCj:7R'0;(#Z8Yc#e6ZR&R=*(o+']\up%()9%%%%-%)6?NN+:tt^'6%%%%]&%ãU"%%/%%%MA403D<4SCMGCl^%fp(VR5khPWuVhugg(wp%C99/^*p;nXK,r?$lg5DH5AZ2]Tu>Chp*S0rMT7eY?h]16ZeNt9[G4mlN,&ãU"%us>;[>Tttu<99_L0W7Oq5bXdkk_=i1eO,emU77RWis3DWPw,44$ãU"j:mM4i'k-^5qGpX[IJtS3LD;-3PtJdc1:ZKtimXY-xsdGPf/=,r4E'0n:5\BCN-ãU"jg0u%p&'9%%9%%[%-%#\?NNFlL;)[%'%%,%-%%1%%%%%%%%%&[%E%/&P%%%L%E>ãU"AMC4G.IWS10&Bup&%'9%9%%%%-1%4>N4N'Y961b/%7%.s%%%/%%%%%%%%%%%E4%ãU"/P1#(%%%%twyj&'Sgx&%up&%'9%9%%%%-4%D?N4N_dP)2b(%%%w.%%%1%%%%%%%ãU"%%&%E4%/PBA3%%EM>AC4)G.VS210Bu%p&'9%%9%%#%-%6&?NN:]tt^6%%%%]%&%ãU"%/%%%%%%%%%&[%E%/5PS6%L%A4023<4S2CGCu%p*+%%%%%)[%)%][%%%8&7%%%%ãU"%ãEND SUBãV2ãV3ãCLOSE:IF S=55AND 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ãJoshua Foster MATRIX DROP-SCREEN EMULATOR joshua_70448@ureach.com 09-10-00 (14:49) QB, QBasic, PDS 237 15652 MATRIX.BAS ' Matrix Drop-Screen Emulator 1.1ã' (c)2000 Joshua Fosterã' This is freeware. It may be distributed freely,ã' but no copyright notice may be removed or alteredã'ã' Description:ã' This is my attempt at making a program that has the same effectã' as that screen on "The Matrix" where the letters are falling. Iã' started on this in keyboarding class (boring), but it's developedã' quite nicely. Anyway, I put options in it so you can fiddle aroundã' with the max number of streams, auto-erase, speed, and character type.ã' I think the most realistic (and set to default) is 50 streams, no auto-ã' erase, speed 3, and binary character type. Well, good luck, and ifã' you have any questions/comments, email me at joshua_70448@ureach.comã'ã' Works with: QB 4.0 and QBasicã' QBasic note: Remove line 11ã'ã' Inputs:ã' In QB, accepts parameters (type ? for a parameter for details)ã' In QBasic, or if no parameters are given, asks for optionsã'ã' Outputs:ã' Noneã'ã' Side Effects:ã' Noneã'ã' Other Notes:ã' Speed doesn't generally change from machine to machine, or withã' number of streams.ã'ã' Version Differences:ã' 1.0 to 1.1ã' - Released publiclyã' - Added optionsã' - Added help screenã' - Timing bug fixedã' - Added use of command parameters (QB only)ãã0 DarkGreen = 2: LightGreen = 10 'Set up global color variablesã10 SCREEN 0: WIDTH 80, 50: COLOR 15, 0: TOTALSTREAMS = 0: CLS 'Set the screen to mode 0, 80x50, colors 15 and 0, and cleared, and also sets the stream counter to 0ã11 GOTO 300 'This checks the COMMAND$ parameters. If you're using QBasic, delete this line.ã12 COLOR 14: PRINT "Matrix Drop-Screen Emulator 1.1"ã13 PRINT "By Joshua Foster (joshua_70448_2)"ã14 PRINT "Email: joshua_70448@ureach.com Homepage: http://all.at/joshua"ã15 COLOR 15: INPUT "Enter max number of streams (1-80, default 50): ", NumberOfStreams 'This sets the maximum number of streams to NumberOfStreamsã16 IF NumberOfStreams < 1 OR NumberOfStreams > 80 THEN NumberOfStreams = 50 'If the number is out of range, set it to 50 (default)ã17 PRINT "Auto-erase streams? (Y/N)"ã18 a$ = "": WHILE a$ <> "Y" AND a$ <> "N": a$ = UCASE$(INKEY$): WENDã19 IF a$ = "Y" THEN AutoEraseStreams = 0 ELSE AutoEraseStreams = 1 'This asks whether or not to auto-erase streams, and sets AutoEraseStreams accordinglyã20 PRINT "Select speed: Fastest "; 'Lines 20-36 set the time delay amountã21 COLOR 4: PRINT "(1)";ã22 COLOR 15: PRINT ", ";ã23 COLOR 12: PRINT "(2)";ã24 COLOR 15: PRINT ", ";ã25 COLOR 14: PRINT "(3)";ã26 COLOR 15: PRINT ", ";ã27 COLOR 10: PRINT "(4)";ã28 COLOR 15: PRINT ", ";ã29 COLOR 2: PRINT "(5)";ã30 COLOR 15: PRINT " Slowest"ã31 a$ = "": WHILE a$ <> "1" AND a$ <> "2" AND a$ <> "3" AND a$ <> "4" AND a$ <> "5": a$ = INKEY$: WENDã32 IF a$ = "1" THEN TimeDelay = .05ã33 IF a$ = "2" THEN TimeDelay = .1ã34 IF a$ = "3" THEN TimeDelay = .15ã35 IF a$ = "4" THEN TimeDelay = .2ã36 IF a$ = "5" THEN TimeDelay = .25ã37 PRINT "(B)inary or (R)andom Characters?" 'Lines 37-39 ask whether to use binary or random characters, and sets CharacterMode$ accordinglyã38 a$ = "": WHILE a$ <> "B" AND a$ <> "R": a$ = UCASE$(INKEY$): WENDã39 CharacterMode$ = a$ã41 CLSã45 REDIM STREAMCOLS(NumberOfStreams) AS INTEGER 'Lines 45-49 DIMension arrays to hold the stream columns, rows, alive/dead status, death row, and delay to eraseã46 REDIM STREAMROWS(NumberOfStreams) AS INTEGERã47 REDIM STREAMALIVE(NumberOfStreams) AS INTEGERã48 REDIM STREAMROWDEAD(NumberOfStreams) AS INTEGERã49 REDIM STREAMERASEDELAY(NumberOfStreams) AS INTEGERã50 FOR a = 1 TO NumberOfStreams 'Lines 50-70 set the STREAMALIVE array's values to 0ã60 STREAMALIVE(a) = 0ã70 NEXT aã80 STARTTIME = TIMER 'This sets the variable STARTTIME to the TIMER value when the rendering loop startsã85 IF TOTALSTREAMS = NumberOfStreams THEN 140 'If the max number of streams has been met, don't start another oneã90 TOTALSTREAMS = TOTALSTREAMS + 1 'Increment the stream counterã91 TEMP = 0 'Lines 91-94 search for the first dead stream array positionã92 FOR a = 1 TO NumberOfStreamsã93 IF STREAMALIVE(a) = 0 AND TEMP = 0 THEN TEMP = aã94 NEXT aã100 STREAMALIVE(TEMP) = 1 'The new stream is aliveã110 STREAMROWS(TEMP) = 1 'The new stream starts on the first rowã120 STREAMCOLS(TEMP) = INT(RND * 79) + 1 'The new stream starts on a random column (1-80)ã121 FOR a = 1 TO NumberOfStreams 'Lines 121-124 check to make sure that no other stream shares this column, and if so, sets a new numberã122 IF STREAMALIVE(a) > 0 AND STREAMALIVE(a) < 3 THEN 123 ELSE 124ã123 IF STREAMCOLS(TEMP) = STREAMCOLS(a) AND TEMP <> a THEN 120ã124 NEXT aã130 STREAMROWDEAD(TEMP) = INT(RND * 39) + 11 'The new stream dies on this rowã135 STREAMERASEDELAY = INT(RND * 20) + 10 'The new stream starts auto-erasing after this many loopsã140 FOR a = 1 TO NumberOfStreams 'This starts the rendering loopã150 IF STREAMALIVE(a) = 1 THEN 160 ELSE 260 'If the stream is alive, keep going, otherwise skip the draw sequenceã160 LOCATE STREAMROWS(a), STREAMCOLS(a) 'Set the cursor to the stream's old row and columnã170 TEMPCHAR = SCREEN(STREAMROWS(a), STREAMCOLS(a)) 'Read what the character at the old position isã180 COLOR DarkGreen 'Set the current color to dark greenã190 PRINT CHR$(TEMPCHAR) 'Print the character in dark greenã200 STREAMROWS(a) = STREAMROWS(a) + 1 'Advance the stream one row downã210 LOCATE STREAMROWS(a), STREAMCOLS(a) 'Set the cursor to the stream's new row and columnã220 COLOR LightGreen 'Set the current color to light greenã230 IF CharacterMode$ = "B" THEN PRINT CHR$(INT(RND * 2) + 48); ELSE PRINT CHR$(INT(RND * 221) + 32); 'Draw a new character, either a 1 or 0, or a random characterã240 IF STREAMROWS(a) = STREAMROWDEAD(a) THEN 250 ELSE 260 'If this stream dies on this row, go ahead, otherwise skip the dying sequenceã250 IF AutoEraseStreams = 1 THEN STREAMALIVE(a) = 0 ELSE STREAMALIVE(a) = 2 'If auto-erasing is disabled, kill the stream completely, otherwise put it in wait modeã251 IF AutoEraseStreams = 1 THEN TOTALSTREAMS = TOTALSTREAMS - 1 'If auto-erasing is disabled, decrement the stream counterã252 LOCATE STREAMROWS(a), STREAMCOLS(a) 'Set the cursor to the stream's current row and columnã253 TEMPCHAR = SCREEN(STREAMROWS(a), STREAMCOLS(a)) 'Read what the character at the current position isã254 COLOR DarkGreen 'Set the current color to dark greenã255 PRINT CHR$(TEMPCHAR); 'Print the character in darkã260 IF STREAMALIVE(a) = 2 THEN 261 ELSE 270 'If the stream's in wait mode, go ahead, otherwise skip to 270ã261 STREAMERASEDELAY(a) = STREAMERASEDELAY(a) - 1 'Decrease the wait counterã262 IF STREAMERASEDELAY(a) > 0 THEN 270 'If the wait counter is still more than 0, go to 270ã263 STREAMALIVE(a) = 3: STREAMERASEDELAY(a) = 1 'Put this stream in erase mode, and set the erase delay to a row counterã270 IF STREAMALIVE(a) = 3 THEN 271 ELSE 280 'If the stream's in erase mode, go ahead, otherwise skip to 280ã271 LOCATE STREAMERASEDELAY(a), STREAMCOLS(a) 'Set the cursor to the current row and columnã272 PRINT " "; 'Erase the characterã273 STREAMERASEDELAY(a) = STREAMERASEDELAY(a) + 1 'Increase the row counterã274 IF STREAMERASEDELAY(a) = STREAMROWDEAD(a) + 1 THEN STREAMALIVE(a) = 0 'If the stream is completely erased, kill the stream completelyã275 IF STREAMERASEDELAY(a) = STREAMROWDEAD(a) + 1 THEN TOTALSTREAMS = TOTALSTREAMS - 1 'If the stream is completely erased, decrement the stream counterã280 NEXT aã281 IF INKEY$ <> "" THEN END 'If a key is pressed, end the programã282 IF TIMER < STARTTIME + TimeDelay THEN 283 ELSE 80 'If the rendering loop was faster than the current speed, go ahead, otherwise go to 80ã283 DEF SEG = 0 'Lines 283-285 wait until 1/19 of a second has passedã284 POKE (1132), 0ã285 WHILE PEEK(1132) < 1: WENDã286 IF TIMER < STARTTIME + TimeDelay THEN 284 ELSE 80 'If the timer is still less than it should be, go to the wait loop againã287 DEF SEG 'Reset the memory segment pointerã290 GOTO 80ã300 IF COMMAND$ = "" THEN 12 'If the command parameter variable is empty, ask for optionsã301 IF COMMAND$ = "?" THEN 580 'If the command parameter is ?, draw the help optionsã305 ON ERROR GOTO 550 'If there is an error, go to line 550ã310 a$ = COMMAND$ 'Set the command parameter to a$ã' Okay, here's the hard part. We've been given a single string like this:ã' 50,N,3,Bã' We've got to turn that into separate values. The following code will chopã' the above string into separate strings. If there's an easier way to doingã' this, *please* tell me!ã315 REDIM COMMANDSTARTS(4) AS INTEGER 'Lines 315-320 DIMension arrays to hold the starts of each parameter, the ends, and the valuesã316 REDIM COMMANDENDS(4) AS INTEGERã320 REDIM COMMANDVALUES(4) AS STRINGã330 COMMANDSTARTS(1) = 1 'Set the start of the first param to the first characterã340 CURRENTARRAY = 1 'Set the current param counter to 1ã350 CURRENTPOS = 1 'Set the position within the string to 1ã360 IF MID$(a$, CURRENTPOS, 1) = "," THEN 370 ELSE 400 'If the current character is a comma, set some arrays, otherwise go to line 400ã370 COMMANDENDS(CURRENTARRAY) = CURRENTPOS - 1 'The end of the previous command is one character before the commaã380 CURRENTARRAY = CURRENTARRAY + 1 'Advance the current param counterã390 COMMANDSTARTS(CURRENTARRAY) = CURRENTPOS + 1 'The start of the next command is one character after the commaã400 CURRENTPOS = CURRENTPOS + 1 'Advance the position within the stringã410 IF CURRENTPOS > LEN(a$) THEN 420 ELSE 360 'If we've reached the end of the string, end this loop, otherwise start the loop againã420 COMMANDENDS(4) = LEN(a$) 'Set the end of the last param to the length of the stringã430 FOR a = 1 TO 4 'Lines 430-450 set the param values array to the characters specified by the end and start arraysã440 COMMANDVALUES(a) = MID$(a$, COMMANDSTARTS(a), (COMMANDENDS(a) - COMMANDSTARTS(a)) + 1)ã450 NEXT aã460 NumberOfStreams = VAL(COMMANDVALUES(1)) 'Set the NumberOfStreams variable to the first paramã465 IF COMMANDVALUES(1) = "" OR (NumberOfStreams < 1 OR NumberOfStreams > 80) THEN NumberOfStreams = 50 'If the value is invalid, set it to 50 (default)ã470 IF UCASE$(COMMANDVALUES(2)) = "Y" THEN AutoEraseStreams = 1 'Lines 470 and 471 set AutoEraseStreams according to the second paramã471 IF UCASE$(COMMANDVALUES(2)) = "N" THEN AutoEraseStreams = 2ã472 IF COMMANDVALUES(2) = "" OR AutoEraseStreams = 0 THEN AutoEraseStreams = 2 'If the value is invalid, set it to no (default)ã473 AutoEraseStreams = AutoEraseStreams - 1 'Adjust the AutoEraseStreams variable so it works correctlyã480 IF COMMANDVALUES(3) = "1" THEN TimeDelay = .05 'Lines 480-520 set TimeDelay according to the third paramã490 IF COMMANDVALUES(3) = "2" THEN TimeDelay = .1ã500 IF COMMANDVALUES(3) = "3" THEN TimeDelay = .15ã510 IF COMMANDVALUES(3) = "4" THEN TimeDelay = .2ã520 IF COMMANDVALUES(3) = "5" THEN TimeDelay = .25ã525 IF COMMANDVALUES(3) = "" OR TimeDelay = 0 THEN TimeDelay = .15 'If the value is invalid, set it to 3 (default)ã530 CharacterMode$ = UCASE$(COMMANDVALUES(4)) 'Set the CharacterMode$ variable to the fourth paramã535 IF CharacterMode$ <> "B" AND CharacterMode$ <> "R" THEN CharacterMode$ = "B" 'If the value is invalid, set it to B (default)ã540 GOTO 41 'Go back to the program using these new valuesã550 RESUME 560 'Resume the program on the next lineã560 PRINT "Error in interpreting command parameters. Please enter manually." 'Explain what happened (Usually this is because there aren't enough parameters)ã570 GOTO 12 'Go back to the program, but ask for optionsã580 SCREEN 0: WIDTH 80, 25: COLOR 15, 0: CLS 'Set up the screen to the default settingsã590 PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" 'Lines 590-810 write the help screen out, which is accessed with "matrix ?"ã600 PRINT "º ";ã601 COLOR 14: PRINT "Matrix Drop-Screen Emulator 1.1 Help";ã602 COLOR 15: PRINT " º"ã620 PRINT "ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¶"ã630 PRINT "ºYou can use this program with the command parameters, or you can edit the º"ã640 PRINT "ºoptions within the program. These options are: º"ã650 PRINT "º";ã655 COLOR 12: PRINT "* Maximum Number of Streams (1-80, 50 default)";ã656 COLOR 15: PRINT " º"ã660 PRINT "º";ã665 COLOR 9: PRINT "* Auto-Erase Streams (Y/N, N default)";ã667 COLOR 15: PRINT " º"ã670 PRINT "º";ã675 COLOR 10: PRINT "* Speed (fastest 1-5 slowest, 3 default)";ã676 COLOR 15: PRINT " º"ã680 PRINT "º";ã685 COLOR 11: PRINT "* (B)inary or (R)andom Characters (B/R, B default)";ã686 COLOR 15: PRINT " º"ã690 PRINT "ºTo use these within the program, just follow the on-screen instructions given º"ã700 PRINT "ºwhen you start the program with no parameters. To use these as command para- º"ã710 PRINT "ºmeters, use them in the following format: º"ã720 PRINT "º";ã725 COLOR 7: PRINT "MATRIX M,A,S,C";ã726 COLOR 15: PRINT " º";ã730 PRINT "ºWhere ";ã731 COLOR 7: PRINT "M";ã732 COLOR 15: PRINT " is maximum number of streams, ";ã733 COLOR 7: PRINT "A";ã734 COLOR 15: PRINT " is auto-erase streams, ";ã735 COLOR 7: PRINT "S";ã736 COLOR 15: PRINT " is speed, andº"ã740 PRINT "º";ã741 COLOR 7: PRINT "C";ã742 COLOR 15: PRINT " is character type. If you leave out a value, the default is assumed. You º"ã750 PRINT "ºmust put commas in, regardless of whether or not there's a value. Example: º"ã760 PRINT "º";ã765 COLOR 7: PRINT "MATRIX ,,,";ã766 COLOR 15: PRINT " º"ã770 PRINT "ºThis assumes all defaults (";ã771 COLOR 7: PRINT "50";ã772 COLOR 15: PRINT ",";ã773 COLOR 7: PRINT "N";ã774 COLOR 15: PRINT ",";ã775 COLOR 7: PRINT "3";ã776 COLOR 15: PRINT ",";ã777 COLOR 7: PRINT "B";ã778 COLOR 15: PRINT "). º"ã780 PRINT "ºTo access this help screen, type ";ã781 COLOR 7: PRINT "?";ã782 COLOR 15: PRINT ", with nothing else. Example: º"ã790 PRINT "º";ã795 COLOR 7: PRINT "MATRIX ?";ã796 COLOR 15: PRINT " º"ã797 PRINT "º";ã798 COLOR 14: PRINT "Matrix Drop-Screen Emulator 1.1";ã799 COLOR 15: PRINT " º"ã800 PRINT "º";ã805 COLOR 14: PRINT "(c)2000 Joshua Foster joshua_70448@ureach.com http://all.at/joshua";ã806 COLOR 15: PRINT " º"ã810 PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼"ãSam Thursfield VFONT 3.1 sam.thursfield@btinternet.com 10-14-00 (07:43) QB, QBasic, PDS 684 45125 VFONT31.BAS ' vFont 3.1 for QBãDEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2ãSUB V1:OPEN "O",1,"VFONT31.ZIP",4^6:Z&=33593:?STRING$(50,177);ãU"%up()#9%%O#-%mG.NMZl1\S9-%%%,G%%%0%#%%i4M50D;JCS5=kC^hH8ZA#:9#0ãU"#$Ek05j)*0R3eSAAA2p#Qa/Sf:gWwTUju.baI()lK(58OY3fs0A*M^P+CF97?ijãU"2mxRer57+3E8DV80t+3kjWKXlp6yw[Z$?R'+um:jbT,8WdLW^ZcWxKoq\$UKHd?ãU"ae>EN)sVXaN$nnI8:dGSh_eEwwDb:kMaDr+dX[F1FTF_3FtJ*VWPwF-;;#L7VY'ãU"px>^CuP4e-\HpuoL7t?*LErqF=4Qb'sxp+,pTm?#4M:aAf[+i\tAl7KbHVpg,0FãU"L1&Q:?c_Osm.Jqdh(nC_upo5tuC0j874pJyG+TLZ9uxp[kbAtuj&vR=PuMsc?\fãU"TSVS&^A3TfeKN%x_4;=$DrfMt\Z/yXA?jJjJp6AvhRjomj55Qx9H]xAb.^jUAqFãU"pHPa4ãU"y*o9jgSWwooD';12%lu:xRhwWkm-Bhb)5=L?e8ãU"8iFiQlbMgsFIpIk$\Tb&C^t_v9w,6E4_cu,&xj:cVuOb?;gOjKa*q,cbAey?+3udi5>*N4_LihoN;.sB)XkiNQgTyMãU"bPwLA4^1cb+n8,N8,ePK/7JD8f'r%b62SYwHDI\r]Es_uj#pqpãU"uEw.am5B8sdPFMiU?/%j])0.r8#mN&jbXbkD4d:;wLx$>XKdSA8WuBk>gGN8(KtãU"7LnbqV_G#Fcnq2(P%00m9^J4b7trB%uKN#TrsaPjANUP$=MeSe0D9>z;d-Q\M%)ãU"B#V/7]n8k^aJSnFO/SIVQwx$H.14xdufQ8oou$SV4[Vm4]qTvo=.eg$auq)PJF=ãU"H1he#S*-0jTMVvQky^qyRxt>B(NY%Zx#V^NZm9lYrA?v7=o>cxUQN7EN#b8YYE#J5J4,v+c4iB]m0hAAw*2U%NyqFs%[ICO:&ilcod^S(c.:A3$H6*4s:RGtYNuCãU"n^QWDcf9QELg6)H[$DsR7.x39NQ60>Hekc6^d^g_b]8)yoxT/7>FHuvou(NunEWãU"86#qDW,tk:_2E6HtLX9WQ>Omj-fx3JIZ>MUr+/x0O_utD4>HAO+ljLP$\N*Kt]kãU"i]Vno/p*fJ$(Qd2,3\Fks:uwHEw_TNjVoIxq-<<.?P]fBlHA_>NYK_-V%eN'NnXãU"D.nfmz)t(r%6)tiK1#(Sb*wGZGpvLW8YGd.A2ejYTCd>;kmuRxC46GV>_6#u.iWwD]N_9IRuFx7f;i+NãU"\x90^0Do5(AasFkd(sWfT8lSvdVq&lU$9h$-Xfk#uO]xwx(v>FHv6mvhHx$ãU"kuHJS-sxf$M\+jf8FNNN+VcMs#xzNnCBC8_0LãU":rV&rqn,<]T?>?GQ$f_T6/tV)lruYu(vtYAXhb/xj$$FG\wTbkw.k$X5tqfB97iãU"6,UpCdX[:ueITppd\xcHO6T-/P;vMce(yfkj(-g*oxVsd'pãU"Db.ORQ*BR],ajbE>bxa.OxQmA0?q-;7n^cqA*HpwZA8o)XbZQav.x91RuXO6GFV;ixp]DrpfP>%,TU]WjQYx=si^7fkNXSMILw8+tsTu%p()9.%%O-.%rPS:NiC9%LQ'%+%ãU"6(%%%0%%.%r:g28>B]LS10BS4xT=BSe5LFl[D]Kk5o#%Qh#7(zyyu*fUk5^/%ynãU"e<(:5J4T7FY,CXF'O[2w=R]>X56G4Q-p_txt0U<#_=vl8'593,2:EeN;;[[3alZãU"p5n3ktpBj5q>4F5RXba\uR)R#Ag1hYQsp,>)*DkHs3-7]M)lZ'u,H$nhkjRkzqOãU"g#7HkQ_KdWiLCkNQS8*9b-8Oi$XAHHJQ#]jT$SL7btg3ILPEtc$T-(_dVMA4>/UãU"aUXL;eXN/\P2amKN4fWlF%,c-^BGzBX-oYuB*9ãU"simK.Nh4+#HRn1:C/]$3^Vddnn+KSgb&S-?Asrqy[^a*PDhk%07$TAC5H7M:B[?ãU"#W:Vok38:TYYfH*H5IH_)D+;Z2B8]I2*SSkkBeX?hPY0515Ni9-(NS'A&q)B6]?ãU"7]2u1.7mvF1UVMMn3Vf*FLXqh5,U.OT*$%hgwd4>0qr:fq?>C>e.&rIn-6VfKncãU",RG#l]o6v^YjH=rd^gg_71a9S32cvb.Lza,6HP-eKgQuU>SbEdm0B'beWwrO&hwãU"LtRd#-6bM+G[gW-V]/kAkrE#XM];js)as8w$9sVDKc\0s1Gu;Th[4v.)OqLvM)zãU"I(^rq^]&)?EE.[]1SW8W?IG3v$F$6F6-lk:[4+SqdvI#c..)kdbIk2a-M<^vOSlãU"BNJYq3^[8>W]*HL?9)=<^mUk::gN_*wWW&(yhzJ)ãU"xs3h+'jlpCvW(I8Ii(yJwWlb2W0%4ttA%Fr;+jW3tfg?Uu4)Kcq^MzMlC;1(uu6ãU"6MsM*_ut]'IvdPL+14ti*/l#,qnqG(%SdJ*fxdNO+&RMC*[Bl[kMuanMt%i0sr>ãU"3wh+R8zR&J(R<4g>XNObeMo)6<%_]/q*)*mt=1)df/FdPdDwHN)0zlhhfTlWãU"A4E]>=8jO2cIQ4ALW3iABm=j;.8Hk[W*2ejp2-p]-z?qNQ,8;gãU"_Bp5u-GL9:GfP>m[^7(XD5?U^AL36AXb^,WHs)Hf2yvxI^ihw,-gGL(XUlvBD>.ãU"7sM]2u\kJO-j\1Ux7vTxl8w^]-nM(juaP=TQZH1NNu?1GbUG[[4-Ypu;G;byubeãU"0,bukX?u'706^;UnAeBq<=R_j&Kf2_bNnMlw]y,%g;wOoA,xgVqiH[rM^hPBmFUãU"95?8Xk[nm5H9vtGpS$$'%?VL0Xa8]k1/2Dq[7G4eY(h#lpv5&Q.?kHqh\3u_VG)AVu%*>KNTey8cl9z#Tw3PSNc3Vt*0;s4UF,tFRw+wxYCrhC?Q4dyYãU"e6WTW&KvlUk:rgVi$)Eoku#jkB/y^)U+,?qM8o7s+juh;1MhhOwKgoglr0=TQHljf;Zd[J)=hi-o^w<1qhA2s9+H-QU_KS7yR$kãU"9.3B$Ho8nh+jux^ãU"vsWwYrvY'^TPWxLM%ott*s97.Tyuw3/H(EhYP9*[w*TqyO25b(0D^C:%R*YG,I3ãU"a6$X/%=2ll8ZNQcD8UwJ#dHZE8gC=T;d6AZxQ=kCl+0#G?wdfbRG.]kT&bH_#&XoxãU"l]bgoM.wX'WXprxNEoPkx.r2twEa'x?J+0/DzD?F%h&i-cPF5O7pWEw=yJQErSKãU"1P+2mt4u#]oxQiP8(\u8?GVpVE:kp[o3iC'Ku-HFk(\.kkJ]kD-#qRV;^T.U$#7ãU"bx+ruSu)91WZG#lQwTtd,SoC'[-;*1O,]m,8cDKPc-Y?PE/?hSgKKK\odl?w,hcãU"H]pI=]#v5>DTuLiAN&Wbb(eZM,+.pc^:2raPp'ppGs=uKxnM-q2]x16>8cTli4UãU"tV]K?Ebc87'QBxr7oxtan7CF0Y>ZLVU\p,w6/M5IoFUD1Ljb9GGmF.Cf:*jNx5YãU"SDnWwyZYJMSp%jBxaP>ebh5Rt8My;qBA566HGru9Z#mQxGNwmSkM=V[J3*Ldyj2ãU";c),B:phs\+I($\%tRd+EBBp-midD2:DhcVrbtj9bJ:9xP^TcEolk=ãU",MWG$xN,to88jP]Kz]D?^M\$WMm\NfGc:+FvwN%8#rTDoS>Qfmqh_Pt$vxSa/l0xhj3pE.vbB$6xCN9QeTqD)LaBãU"BY[Z(sIBXp;SIaSW-oqN941c,xTJf#x7b49OM&b#pNkTXXDFJFBN0Y2luL.B.>HãU"lvul89(^H2Bk$X\u^Z](KZX_Fco8uKãU"Hn%tMqfyqJDcuF-hkdikjH/xqIUlujd.Dvbks>r>NVZCuC0)xZ4l8oH7g*Iosd\wSNãU"34w;<\bOfL\pvt7xH&]h8c0Zr$/JcdnIeijrW8%$8CUYEA$cdaBN#s]di(FGwjVãU";N1u4ofr'ZRdHnUr8b?w7l]8S$lNkwnZCwCjH:8Yp-idTix6P88mnK#rj>hx5&lãU"nS?jPiN3r4A>kNV.vxJZmãU"=KIrxjkurkFg-rG.dwQZvN.rIBSHk7LdqWv,hIt-LV^^CFlvfwV\W$x,bxcv$y7ãU"-FhdxVktnJoHcHRmJY&w^n:d[jNHNx2#0fR_N[pHThL]NbQU>&,p-[CboU;dcd0ãU"IpQv#851#rPIcXS;YNãU"d]S=S6uxtYrg\):Wp&skgmicQ8ubW4.s3'hZu_ZNRixAw;kmQm^ãU"VAB]ãU"S5V=CffM<[+4X:#xK<ãU"'&A3VjJD$1alntyah63:tvZKV3-,^c,_N;'%vTRxO.$n8RO;)sQ(-xdZ(.^SVT&ãU"8g&z.Y_f6$0chj#0Hanhnc$-DW$7+ãU"\wYJ70eV]Q6C;v=OGm]Yf1W.5/*:DFu4q:n7[Zst1-U+.KKCs>$odfw1P_-*Wxa\$tA2T,_QNg\6m\cQ($P7Xj0_H<_GoxctiZ69%=LNnGc>QjN_A5-TwãU"Vo=V;x9*vL>\)y=zmhfs,S9w^^L#X?L?2Tf[<))Y8\j=C5N=L$RX3QP,HqFMu&r7,hãU"btL*7r0cagt\g^r:Pqad][/=n(tqZYqp%rvNBj7Sl7aNbe6M?7HfQl:eod>YF6fãU"<>(h:bJWB#h$\N4MgfF\u2r+6oKHpQ^L0-2\CHjgu^48n/5Iey_e$YzkU?V$iãU"phr%BRdS41b\]1c=wAu,FvjKtQcQbtcIW3i3-tFb0-jkdqj==3+k9PFrZTsK^ZQãU"UpsmggvE46pXoPae]kF%H[-^jTpB]UM;OFlY1Z+B>6C5AM;XV874Y:Fsdz^rE5pãU"$T:pemY5P^K\J+s3$2LKaCS2Qsk2mEYb^h(v/\EN,F6YL?HKGBb'%Ag(6sIbs6WãU"X^S>cj-VN#,oLrM$%.oxVplYU8RNrYEKdK1+og5?d+fRrjqf#ap=^uix0vO,q?bãU"5EU&9nGTi%Hq\)B$\]x>$w^joG>q<+7\W-^9)/jTqH;B1rn%iHrtM,c_[2AqKw%ãU",xWYnjFnj$gHsE+x0-\Xm(P=x4qrwHpB7(m.gi0/TViY>%x,w0TxH79m(Snj7ZCãU"^LZEtL&T8*r3$Fa3SR]_*lCxW$PFK^Y/Nq(S1j0F?I&9qLK.RlveyphNZhFEEF7ãU".mC&HtQ:^-;0t%7Si]sE_;Yk)6C41cta8WqhN/abk)4<,?i.YB4\W#BEu?18L,<ãU"Y>uds^5B+?uRdN3^FZKxj%,lbRjRb-'?xspN%CH54n)cNqD?Wp[\8mcdmutPp;qãU"jda:EW\&[N]?RYEjL%FEZjHl%P?u\Roia<1>Q8Z_Ro$[:jhHnnej1LL_;Z:PUV9ãU"tBlwwnihn=WxI;BTseo$)>N*pX?ãU"JG+HqB^\QVPCh39FJc:ho0-\;f'hMP-Y&m+^0jAj21d0k0#>KH,5SU9-\bxCaVMãU"et>5Cs5T]Md(knK^TjQ.d's]?G(UNi,o2^?QI5HfR]fU?Nu$7QuBxAo<ZVRmmb6fs)JN%[=H#K[IhE7ztsGef25ZW8sjDK.q2q0qk+0v=XPfqe#>;x$ãU"ieT8Kh4_m6kSs:oDYBrK[7HDItno#D1fbEIis;$.3&E1k6&(zBR648k%$6bZ2eBãU"_Ybih]Qx>1oVxc2ZbuZ0EN[#qi>CN\iFqbx0jx?TB;jPS8ZW$w,udtxGE*92tZb1o03%0FhxãU"%tPr'L5.Hh/dMX-)udu)RRH%x?MYoaxMP:JS,c]kxMk6V&>E9CSi?IBC]cXsfpoãU"X0qPlT:(D]j)$VpH'GR:wrHrJ9wbi*MsKZAxnr9gwbiM\sKZb;Nfw*%up()#9%%ãU"O#-%g/73NFx&3e9-%%%,G%%%/%#%%g8)>BV[LS5=CWfh8ZaAB:#(00+,?F+G?4pãU"A?]H19f2>j6:Y8a^uTp]#M%Cq*f2[[?41a=B/mCdkgR18Tf#&iZY=^?TgY?n+JOãU"C^[Glp'H?XWpL(yYNFG]^sFg?i'q64ld$zpGHhzDuh8xwo=^pBupVxlExACvV\,ãU"hiswpZLtpt'LfUJJ0_,;RvtPt.tjL-b3N;H]EPSeGxTWwL-BCVg,H8FA&eUP#2'ãU".xg>rwu%HkIlvou58]40qdC\leG.R;v[uXopFLu(b61?(p7n*-#L$lM-\z;h,)iãU"*eufe2<8VX(oML?if%\A:heaM^bm3d)gj\M,P:qnãU"n8OR+#1W6u_ccK>x=DaP]VxrTw6dXCY7U9EWh(*dfsaIbJN>MEg[WKE^f'Tw?p:ãU"VTs#M&jl0:DTk,3&MK,ll-%PcpSZRGZy^q:<1P=RDPea>M$%HN4,Xt;ãU"fS4?D,p2^8x\0NtU^,A'hl322tp)+\0q4iojMgn#4-_tk?itc[;m?MrxFr,^uLXãU".x>WE6+dVM5u$EuLt4ecRk*mWO^#8*-X,KDH4y58sKbt6_h8AS#(vc%I)iK'ãU"cN0Tj5&3>s=uZ^VL:]e.qsE#k_1A,e_V?U\,-xWKW&(DutR:sa$v&)J5vG5r0nVãU"))W+C,pu=^XBrxkKrv^NO^[NU9sVx952'hzNtH^N,]8CweXtlJigYw\iE%ubcQqãU"*wTK\=Ur8o';po4e9HB&>5FVrup\=oãU"jMnA^7^hhFNxcecnglP1ogHPOT7GxDB]TaD_,qZR\2SGxXJ+e5emv'[]F&JqJYcãU"#UsWrtO0mIHBTn]#[][dpDZW+sy9i_?]W&d/#R148GLs(f7dLZ6)fO$[xItR1sQãU"IsZmEu8Gl8-6ãU"xmXUgl-pgJtnbTJhd0mqu\Bw5wqNCVw)nOlrjrt70H+wdsGN*;eUP79,Q1[Y(dS;+lCICãU"DymO99e)n,Pc45H81^aSY\=gbheeEu8nv7/n:nQ'$^xiPk2cWãU"'#3n]Ng4^,wDcjb$)tctEbbW8XwpTI=DORu&;>xu3blT#BX>.ZhgrrtrwK$M8HlãU"w2V+HYx\J3utDBWHAC.l[BhjZ#]#_Jfw'cN$x&bwkxrNQkAo+?q8Wq4#.mYaox,[SSu2j_N;NDãU"F:<\xRocsUhr):arP.WC3l0H&%gu]I=i8*V\f2^kx=_ãU"wk9]qPlJ2n'oiKox[B3)bNZ$[n1qRVx7Djwcqmt(\Z(txMluvS8;s6]\dc8FuB$].VJlj1OH%c:;pF\hxa\r+(kJ2ãU"ZMU4rxzVM+HugBJ&/5AV*XWWD$N]vO7W]x/HV?oe1enS-u$nGLM4n[;NjoPMQj7ãU"Tlu#Uk#.naKg%+)Qab(rx5+xVf*rZg*+Ah5lkfXWT2qHRc_x:RdDrvtJq8ho6>hãU"#u8QCxj.rV^X[ãU"pP[D6XSsA?'au+j]HhfqItFkãU"w(ayU3w8Z.xKJM>*jLqH^N?GrSMhD'z]XzhtmnRYZuToSXNfdf\XrR>ptQotsxrãU"V-P/1AKXBWpnf_WtIvC<6N2xs#,BtJNmPN:\.0#T36xzpk&w\3MLDC<'Ajx=Ynr49^1KQW0]pEo$n^vZ*Whi\6nrw#lf(E_9x,)LojrZ84tOz/2Nvl:ãEND SUBãSUB V2ãU"DJ,giAcwJudqb7bF1$CIoBm?B>e9;1b46lkhHo.kmT_r4ESh^wf5LxjZ(H8j0r4ãU"QdPF#fgPLG:t$GQ8^J.RFE'k.J>l0[NCWu0Y>G*uj^GDw^DsVOw3lq$_Gjn]s+ZãU":#?dlr[Di;Z:lgX4+HQTx<-WYhGvn5RjJ]M=gNPu'^uxt_o^_fxFN<=HL_fYR:R+^d[.nuãU"=8K7f:cFBvaki_-Xws8:or6_.9PE:H]-DZq=tiuK-5g$u<1X\$cmU0u<,\uRWn3ãU"NVfUa(kox;uK[52AxY.Oq*9l%8hGkXYn7g7#dPUwm_-xXq>fxHGXO6_[''$A<2aãU"H?EZmd/u0aVC&-B-0NtSv-n5U:nfjo(N4iOj5qZãU".f]aSj_c%KS>N%/H)41zs#tNZeD/s$7Tt3rZYf2eD2fShysMs.#*51hG8./[6ZdãU"Fjm<#yRt+UGcH_R'fbG%KaYr#^*8w5DGFi>biãU"X,;$Q7Tp9JsfA1],Le\LtxRduxn^uzpW]BmG^$8sJAb)3Dqk*/nLtA_5gkxvGwuãU"'h2SFtGCk6Wh8plhph?VBUK.Ch*N\%OHo>KduuVs7I7]Lu/229zgH#x(7uVãU"rx%$;NtvuX#xdV+V%9rw>sLB(?ãU"^8;_lw0Wxt=vh7ACi#JnGGjx4.[N6UQx97Ya98[WxV]n=ZqtTUP$ez=5\#:Ew=AãU"]c8\Mu]>'x'SjXf4aBxyfQ?l^c.KlTst3)]N1ocwtt_s%jxEfu>tw-tx_kXzItbãU"cI7-4mJN$c%x7dY8MLa)F^^?*sGe*kn^Odxpc9]Z]tTF*XKxtPbNE72]COPs:^nãU"HhFpZd=riF8G\Mi?H38/HCuq$&q<8]x^2&vZ/JN<.Bi'S]FFBvS=cs82uWtfiNbãU"*rW7OAxsboxBkdroNRxU>?pqQuwjO9l&s=,Svd<^d%Bt#dc/NkU0j)$xBmw1l[&ãU"7D,E=.?p2O[Y3][frQzXxt(bwHa)3R;1_JU$;Z(Ag\idW'HrvDfkueHC33eJ(+bãU"Vd?e:yfkU69=sddhJ0$x2]cUN*4+>.x$ANl<'l*NFq>?\&gn\X2s2$wn+wk%Ps0ãU"Y)Xx]YYR9NZSZxrr)Aa_Y>&RxdaVHPvKe/ãU"DrfOsKKQ+t-:a4rOx;1c&4g[9rPuswpB0l\Pl0r2/?lu4b$TXqN,M^-\8jtr<(uãU"bj#rfxt*KorJqPchH[UZ&0)v_t.*vtfwx5Hr0xd)N,sTrFs,8Z$:xV>$UqkZ.VbãU"lUklNthI)f'uSs>r/N$4:it,BV[LS10BM4a*>BSe9SV-:nF2[XQp%pQRO;k<$_KX43XVI>ãU"-%J+B$4;i[Z7.#3/yPuAcmAGO2Orvt7^mbD1T=.I6E(O+bf;LSãU"0ktt-Nu_A9Z(d4E1NCl[J\uu[#-Tw^k?N*q^oDcl$dJgqRDm=4ThnDkV\zY;]X-ãU"pS0Rba$n4968ESJ4=M3h=-hw(MHW^%%Nwj*5t:VJ]tãU"J7$U8zP6\W,^.FV(aUZimszt^gOY8RkXiPh[GmWgãU"j;3Cp[udVSIZLxlj2fl*Fj4bY#r7*34Kg8+N:/a2$i;DP42kHkohmF#Eq?l4?u6ãU"'-dh-Di2YCd3ZV\tXFW8Cx?U>Ab9$oE,R*j_It\+];Z2(+6k9B$-Sc%W:DPBu5KãU"Sml\6tE8fEWx/64bp$P09\_pX&F4J2is(QxHXV&m:Q$lnEtBal_2<3$5arDJ1TfãU"fr)-1NZMx3NIl^Az>8YW$g,8GLR3+[L0'$Bat:rA#v*HR9cnAtUh_'rf4T]*u^OãU"\knrPtOw_IbJ8H?>nHl?\$5turMd9UN]S36O+#7Frh#VlAImZJu2=AHZj%#>VZ2XlMp&$Bh\ãU"6I%SGT21LbV2=pwbNfNR#YaX)$R7.;x.FBUCu1(*%O;0Lv=O/nA29q+Voki7dYgãU"H0GX$-2XknUkn1/2.1HZM6#9i=XQxSSBBq6,:u<8vP-8wSHe,cTU;U)ãU"wQj_jXF)K=y7W%#)N/0x?DZ1;h.lU4c##budv1I]wHZWxDYGlt.HaOxCub*U\]&ãU".j_Ukve))_87v&KFHpda-Z>.5IGBjRrtj**3Nf0;)eA6Bl<;nVqemc5i6uKr(auãU"D*)AE-IGr[.Y0Z?%=uM]xF42_#=PELC%Mk4=.SnuHw.0tLMpãU"8kPp>tCc(];.g>Dl2XBNKCdtl^0(Bl;2+x2htqR;o8-\7_T%pi[muK32$?=>.>pãU">RVt%:FUycR06=8FbMU'$4F7hY+RNx,[GHLwWrF94vxh9?8uMãU"VC5ITkJ.vt)Tx$$E^(xqI\8Ij>l>VFtFSysUd*xA>V$l5$Gy3C[%jmWY]r>?hJ=ãU"kpWZt7PQ6ZMO.xB+MNWa]c7gCCZ5vX]9qpfKuqkK5tpa(kW8QG7Lo[6Q:?2wWB3ãU"avZ;=?UlY=%wkZut9.>Gc3i89N?]+2uJKY$V%um<;&U5pnMrAj]khNu-ikFIpf]ãU"Z[*=Mhee:Dq9z;dO%vC%ESTc9cA^>$E3s:Cj=\QtIi3J&_^$fcUl$v:cDHvh5]bãU"EVcZ8iRkJQF8nP)X<0j2Is]EW31qb-H8huk9CZDtBPuxPmX;(sx.T%jrNj+C9xMãU"zWN=uohpxHTmhfXHt(x=rCx,sMhOeLdTc3Ym+DYRLn2b2JJc=3^SBJw[dYc8->mH^/OQKTL2YJf9N:.)V?ox8kP?QOldJPa:c=d:q?dJBpãU"&u0x$O?,Sx*Fba/tpdQm(ie+rmW'(7m;dxsKpd:X?TR/3:'qM+JPNP6uj:rrfmDj(xK;T8FR]q&in2Qi3^H?'l8-uu4ãU"9xUN6L_GNB\Wsro(tKxB]lFrW&stF8ldh(h]f>.fwOW%o6UnN;J'Qa8v8,4$:^QãU"?hN1N$vW7SKD;Ns>uxsfpDHxtJ=qHbNxNf4Ql7K3uVD]c?FcwX#qDl-$(AjGM+(ãU"X&6didR$\kn4tqvHrw4=x9i+wWow&O7HGx1LMk#cP_N:CtFF?dU[[9#pixVP8tGãU"Yfq?dw8BixI\8qsvmX3LgGZo2D7xq89Uo;xmU\)k6h>NB;C>$FHZ=cxsz=68xdkãU"r3Zm1qSViu_6GLM)zk?Z*i&T]ci(Kuh*I#N8n[e%D]Jt6n3,3jiw.<]dT???i6FãU"l8N=;^/c$>IwiPEDYhn<0xkDm554BxAHux#Y89wbijuu8f0G'Rb5m=joP>Lg(^DãU"2TrDKmt&^kg0u/Oe\U%LLes>mg0r)mS?h'?^(3fjchRD0G;46qzBYsQ#vchãU"xo>lV9N*H?82.3?Ijx+6jT]e-<5f0POH:f]HchuStTMg(KFuq.,Soa$ou0a?fsLãU"-oBilZ(8TcbUODU[uP0ns+tpB9lD?#\Eh\ZqN,hCVNi[>QhBW8V1ir1k(7Hu_F-ãU"UTg]D*iaDXd1uZg^.cjvExZ:w8:cwdN_LdmvnNFA2N]xbnPV&[wlWSnMH?g7v-NãU"Tv&66xdx.Y.x#ztK,er8NP6sitNhm%Dup(%)9%%&O-%EAqSNAW3*=CCj3S1;0B^bK]#p)$JJA'XJ[rp#<*6^Z#>FiOUZAqn]/3K\FJTog,/^>p66hj4/ãU"D[Pp.M^V$Z*T3_G4$R=:BZb0VGVaJQ1hB=j;MCMlH>/\6-?YmfuOK30>v5j_-FSãU"x)tR1sW'18D22[jj8De]2c\pIF*Y^SbvIKE$pF)?a9=AjHV#jC7H[)<%Dd;CxACãU"M'mg>Eq4=UWG1PHg^]gtodARE'V6>IYl514mDd?e?4HDMej#v][$To,d79ek6d/HfT8]FfN>MUGi3*oLy%[;&ZmiUP'0SH-q7h;0?pQ5IE2Z3ãU"R%cY%269-5SUATs/tD[Jk09-JI&1q2#lF5T;b%;5%%h2GWUH.6XfN%5Eo6p&Mp(ãU"]&-glHRrf-GlegSe/e$B;3Ms>[?8NmqQ8[f_[pa*Yt':#daVX2sgK5:=Qf&u-)OãU"0q*;2$HAnA)D8Bx.EUl6u9GCO+h0Hx4P:;S8\'=&%oG^#AA,]=*;4QpCZcb:EfgãU"-o6Elg+D6;5>?U#j5cHJM[Fhm0*8Mox6>A838RXP%hOkiVBoL[SYF)E*4^ZoGkOãU"JPXCxn*S3Se(SzE[>fV:K'lAuos+FO4$#,>NQ+qqVz>C-liw^2ml2B;M-H0>^o[ãU"i-D[Q+]:r?V]\utGdZFIA$w)JxyO*_2ZtaãU"1MA7MmWLMw>jr]4G7YIs[]FaR$Vo5q66>XBpf'cTSrdmEMm6*SRh:qR,^#Oau:#Ei[qq5Xj]QDjlk&sqH9J\'ãU"_%)'tlR)eoIh+xmKg-^LnL0NuLKU8o=TjIooA'B$lfmD_)UQJQt6VYN]:3r'g9ãU"2l4XfR[IvmUR/>Ft$EsyEQn>75?pu+Rs9+$6sYo7O\pIBPI0=S\Jbe$1&SdB0$lãU"WGZdb_;sPko;'G%-d11gXXL5$>eY\*pliPO85CCnQAcCr)=\]Gvsbe(Gjf#n^L+ãU"Z:WVZDH)n%&6H1LNJCuF[Lb_V/.m(sG%D%1?4H&m0QeZTV)f>H/kX;[hH*l[tlFãU"5MN1D^uX1YBE=06l6OA$i\,JGC\(T+4;)0'pA-g5:*i#wzuNK&$&U6t[Rf,'avp0v(1i'p]fnxt-KM0^eU#(c8CM>EdrBgsN&jãU"Sl>KaEaz:^]fqsbVT2K*A5WH/TS%##2*xEãU"FaY*YHm>?KqPT6=6745)u';O*U4I]UH&3w8FNv;KR3+ivDDcSH0&5/DR4NTs&4,ozOxS0RENRGtL48<.i9CCT*v)]v5z&?[iK2uBs.Y2nH>huX4_7[BCGrEJeVny-#,yp,pmp;sDG7_0u.Vp^g??L/tL2Y.IBUxSãU"?eNBD/VF1[F+M'*e/g\/KKEQFnpEAw's:1oH-('Z[4BQ.7vvQl]6(tf&yg,3#*:ãU"MC-ZnP[(_zi3Gs/mE8P3eUTlYjuhooYxLO:ItMk)q[4'_4z^D1IS7pN2phq8wn[6g6b/E37w+Z(3)0Zf([s_Rjlizkxo3VãU"-D93pG&BL,O7e/,DRktwZeojD$VM.NS^SI?^EA1keFIAZ#$g_^3D;iJG/JaVJc?]=2YC7R4jl=XHkãU"_>H]<&ft,]Gh-.b*xJM9%ceC(YtO5tYB6Z5?:P_rH7U+<7R6G-iNkãU"rMkTMhkHg<:AqinXwx\l0pT4%#d(X0E.nnzIb%1dIR(iV4e%Y8FexLySgr'8RLYãU"gFe6?C.tkHwqe9aP')VF[\%8-V;'A+ZL+RR0Gnb%^u=J0$P%k0auZICWeSPA>aKJlOx.BWjeGIY7Q4ãU"TV*#6HR%a)fR$:r+hZAk/8N4SjHhu>UcJSnJ7)2V7l[5gf/C-V;(?G)w;+;ãU"YnIJYlD,68iTV'[ãU"k=ret*SlL^=Wdss/:5j'9T'bs.8r_c7s]LY'lY<*;>-/>ãU"6ãU"7j,sjo3n\nB/C+Cj#TED5R3,%'WxAkuA'N6Q,TX/Vk*^?[k_=2u#/GjMC+.6If/ãU"YOpAx^nz&4_n-/lYi9Q_(^30wB9d5drSxhnVHkYgBxtq[N8FV&pFz6F]7Hk4J/VãU"_1Y%?SP&ot=)3B7Cm,TAiNWhpy%25SNUM3[[=?ZD9L[EZPNVao)YZ,rLOn*cZ3ãU"%3EMUu?DBUU3_'6:M&;V(34ru7Tv4oYZjL8lpAJr)b]gK[Gn\ckGwTd>W\?g:Wdf22tO[z2gK=e3=ãU"l:t7P6>;;DN1wza3[O0^h+$kx5(HS^.*M]7&%[KAn,oWco%l^O$1ko(d>U9jzHIãU"'ARcxq?amAz>#M&OIs&dCKE?nmEw%)x[;oc+?;*)H$.b)o4r#-L0_k42fXq5/D9ãU"g;l5CAuxchWlS8z=cSbl#ykxlBZM*x4huC7.Z.X9=trbiBcWGA=7CFdMju3hf]MirN$p0rU_OkgTroQãU"y\sm4ooj^?%:qD=+XRjv94a7Xiat^$Qrvwb&P*gM04Ai/$t,LqjE+%x7X[tmB\rãU"pUhJL)[odtNWRcs$G[N=yVWr>R8JS29eS%%bivqYr'^_$Q9mPHhL01n^;/=oLsaãU"J5z<$fL#Lq?7PwiakDx:A%.0sV<%]ER)M;)Xfi>t=kG&.8#F&tbgT?e:']Pl1e&)>[vIfd,M;Wntq_;a;y;vYB3ãU"aaR2R]?3:Q-R:H=ãU"XkIEHOFSqL,,LKRA'aX_[K1$.SIL)E1f4T9)[MbkIl=0JYC=FQQ_j7Gm*JF*[7/ãU"kV[Jw7S5:%3zn)Wgose4Nh5#%;rn-[_7b_+HuI5P)f1;\JF\sMi0_24#+4JLgw_ãU"RU5NeyauFLxN\ui_W?$qZ;tjZHo:WR[4eX^F;CZ/R=E$a?;K5fAHL%^d\*;0b'cãU"T[MiHd-b4HJk0h.VlJ:ti,1lS2y1l_ZhskJf/1j[#u,'o[xyQkj*Tnq3?4_m,m>iyG2,EH4Yv(I0[91s8KaãU"w:EJ$?j&7iOP.f694Ik8(%JS4$5?M/K\.bjfWo,A0C&BB\]slqx#/B0]#8NTHRVãU"%#Z1*(KwG;h_?9%Ky[ysXvHG)oTc_[bS3k#)c0z29wa;nPRu7IX;F64bLuBTPdjãU"Ei6F+m..dq0PL^p.G\F4whq%:nsk,Ng]uw]IVlSQphyn]6SI%4)Axc,Lfv5I.ovãU"AmFjha:n3$o&4E[>az,9NKQ/\m8-[SCJM/;Nwf2*Dz(5=b>*DMUctgrYJ3pIj07ãU"3Bmc))rHgnC,2ex7Rbe1gIJM7:16%8]A8es)U:;N^_XlB8RC$akNFn#%HDTBE%MãU"wLmo'O*9gY7Lr__)ZbeH)K,weTA_YKKTsgdE%-TquWj<7)KdQnA#j\If9J5'4qR<3mJ=QB^Zer60rhOLvI(&oQl>'(jqRãU"mZ&+Mew93GU?J7oVU^YLK#e6#Ru1d=P3Zo>'4'ZgeD0(Uaj_WH9N%',:X7Jm\t&ãU"1sLu\GDv$Q2RE?b4v[AGmgA+LAEKTEDuN>fcdb344sDE2O-q?E+CZC8aom9.1-hãU"1(_u:qPiIAz7Qt.VbLzocO^%'HI*z4*%]9$i_)^.F%4/WSgãU"yuJoK=*5y-(qke&^B/oG_Cd+gFI#U3UUGDi^AG5l&8Eu6BBd[)1Eu734*N8j5V*(0?ãU";KG'tH[p.v#ãU"%J\P&.2fcFAuH1h0aH%$E(hL(af.AI:TmpWQ>nhj,wK+Y:Ht9,j+LYjHyu,r;3lãU"&_xIQOlWUU%>J5'Y#W0?kl*r-nT]2H(ja-kDjT'LIT9q8p*qi^W61t<ãU"l7N8*-9zNr&)nRH-S.)Qn/c%Q6v;))KaK7k:Ot=5in68/zJ:1Ho7pW9.PHKKOq%ãU"(Cl=Cl*$j,YEiSVy\A0vNA2qIM$\Va3--i(<:Qc,[t=P)C5$1xARgQm3CY*rqX\ãU"&L*i88cd=)C:f_8EX3,6,5%72NfAEPEu$83cIPoArT7Ih_ibX)PT<(2I*aN6fkoãU"8;d/.R[?Hpk6TD8u5$h/0jC[*%&J45D4Q-e0d>Z$>W/9JuZucGl2fHo>u=;rZjtãU"(T6d(R3*va0shRj1pXrPJb(\/1,Ug^#%/#^Yw#kI^t#-$vda6>12%8omB[0f3WLãU"e8gk*Aad;^nfsvhz(8u,TdREknUs#71/gqj*d?esBU%GrSãU"AT&\5._1DHW(]mcGPV0\65[G?.MTL^l2:EneCJ')3BjcVw.hPiEm-I]+moq].AMxFj#-h1K$)PdnUnI]v%NdD(/l8*ayR^L_Fp>CJz5;+*YbZi-r8.;4sI.RãU"Ydcyn6z>teKz$P:S^+rFviP<7U06u&)uW#p$u;,RQ$v_]c\8M(a-o,/YqUD+SwLI(2[DO>LGf_#PremBUJ%JYE?QIw3&i$(^16V5xlj))ãU"-q507eKiG^rT4P72VxXnU_UheZlQn\8wn_sq$;1SvW^aM-/\;x6cFHTt1s>E8fw[)CuRWbMtãU"g3Y[\E1_pHZl7-cR7&,)(dU&C7H^fDkr5\Qs,=G8C,ab/Ea2fYNW:BF'(OH%zOpãU"dWbh3DFCãU"w^ls#;^r/2Gx.'w]$WMz\#f+KBVjE\Q*Fo(s-RZ#BA^nfI$1nU0..&BQ;VjV*DDãU"kMZ\hu1*IOPG=uznoB6v%vED4Il5mb$8P:G51j50+5:)[*+<_cMX\['ILh:XmDvãU">X9:Hx:7_F/ClKkn+4'uU5rW^h.N7^o$FP*l>XWMrE%K#'db;tu17$mwpLlP=aRãU"Q#X:>Bf^\I#yX,gK\EshsqD221D]5AOO%2h&:'meãU"0:#W5kl_SFSH(S*F=jk07^7AkB+R2#dnHN)QAI8c$MC/[I)Y/3R=WBck%$EwS']ãU"DHl$dH7rX:hSSpIur*_mtctnh$#llr#HutrNwc,0EbW;wW,/8zZGM9&j&]dlYT5ãU"J,x[9Po&THfE,KM$?&jihwdAFYwXdt%o.sOc4v%QS5<07J7's9Fk;$t95&ZuS4vãU"vcxdjc)vKoV(RomzT(BsUQGP4I7zHAM)x\?u[4P0a+LNm^12x&.M<&iM&Q_j6M4ãU"cq5s]8=GkapvA#k.:(4N+5A8HBL/7bpt#9S1lf+R*wPLJ-drXKuoor?wB);nqFrãU"DJ4o6;qS?#H?Hq*KHGZ#;)JTD,G#.oY\w'^]4YO3IvpDnPmIFhrTw\etxc(s0-;ãU":bpw+'+c'OQ]5g[&ng$h(&=SV(fZoW%H?Mt.#p.nHcG0cMFu7'pqRRj6x=$rw?rãU"%M',/7\x4fw^7i25Ij>TxyHr6n[s(isj-iNKurkiP^]xG_w=Kp8o*#_<2cXp3=XãU"\p\=\.LL$H^gH+4HX[%dWbea;i.TO]SM;sf5N.VMaR\Ia.,SEPFWw4_r+OItv4/ãU"7=9a*&6#4Qb:vfh,a08l[cheJw-&KF$f\JUNHnB*_A1KXl\T6pmx6uxW)(NxWNaãU"oj-ttlm^UrlXjJdS89etrdC23TnzP]OPc%ffbH]xjxSv(?i&a&T6)7U0x%4bDD$ãU"SP2B<72qZ8\A]0jPJ5PnIAOi4wz9npS$i-Rd'oI/8B>*+E+b))/R9$Af&lGbq8qãU"TFn)B,ztRn54X,Y_c\/XL-F_Tb%v=8<*hP3b&D54B1&OeND<7+3x9La+qL50SRxuPbKkc*j1LA,BHUiTtGv/ãU"=Rfl*3X.o9D,J7?3^D&(oW0n6tUjds.H=kgp/2uOsxm#;Pd$wfbR$S6k[f&5_kEãU"2QDVsd^^jL,rY,Cw^-;2)iqq)$(.b/&\17mts(lF5YM*G.h\EZ[wXFouXp\]d63ãU"'Ju*8.,B&m]sdHb7Mo&_pN888#3QdQFhGQ9Wvv'68I]r0T#>)WjJJfsBe-4L3pFãU"u;&VJW*Ln]WHg[BP?vTdrq::qXa(wne0x2.nO_w.k-mx[\X'pVc+?w>lXI9XK62ãU"Ua72/7a[fX5DD-F\N9'goUcu]q_u=)lTJo#dfargEVQdrrUqa4l2qM1Mj$1Fir3ãU"a^?*0_DZ4xa?b'clN3-8SqZcj_[;0:El2mMelCãU"sU\YqCO+HsR?>0Wx+Al0Gff[4e;uVf(..81Tr\I1A3^MjBZOfO*(.^mJ%i(?+()ãU"G3[>\m'TtXj,RDO[qsHKBW=>a&VzE+*mabPbgyãU",x9RVa^'SeKj^8UP#9Kap8U0x41gYO8RCB(lAj[Rv8gpdq74aCx%\[E+22LLxpnãU"MBN./?h)\dX7S8+FtxB46VwziTvxgb9,m.kGn=/fkP8(v>LW7i'r'Xz8L;rS7KSãU"(jrCf1v8jt/8TSe4lnKPgjoxA)r7E?)7ts4Z)c%/8MpWIFf2M-w*+Ln;P2j'^8YãU"./lZKg%fjEJY(o32Wb_e'PB;d+aWr/c]>X-6Tos8A'WsOI/UBE4W#l9%k1d?gw$ãU"v^u-f*$u>/x=I50VQ/q.U9das:G9KHL+5xPChDB=xCj-z?Aj[QQ4QI?We:RHwb&ãU"m[\\-cUx1T_QxZOq[n8-ix*dYLA.w=5sxAãU"8'=wX*umVbXx:fuNhj/kJb<=AyPi/,ZwãU"\ErtbQx5-oMKNU(D3)=AA$k$gDimquH^rPgPq4.OJ=aTiXqt)ia:kZ+=^>B)\\3ãU"b(-5'fxGA8Ehrt22kGQ?JtcOUs-E0d1n=]UVf2_;/3UWkt4)$ãU"9ix*S'QHx]?1h$[\cAxRxg$^>^>[r8Kul2TdH?2XAZ6,NF#kHX5jw'^LD>)U<85ãU"KH9hHOvP]M*PQ?*kNxhpLãU"dUS.O2,4rsExthSqkx<\Ec8xlQ-h-WW]?6jix:Af;jS8;mWwR^u*c2eA3E6IAD:ãU"(KXb3-c4i'#'n^QS$9NPo:^Pxtc;4KE9#<4l:Cs]bWs>=lh'>vwd&ãU"or'qLBvv4j?*adxMR:Xaq8UmDMtXYMdJStl]k\TMhgzcexAlEJS]k80r>ukTf8XXR0dgjbiMAsKZx.nr9wVbiMs.KZxnXrsxp&N&up%()9%(%OãU"-%(IXSN1;q>u&Q/%%%VP%%%0%%%&%kts%yXVS[gfx^j?TA[?CjVz$wV3^&YFPMXãU"(7f58Ls1-)j)136Y,6xSH>3bi%1,^idZ3.TEQ\io8?/SVFãU"WMYxqqXuRacMsK-Qg4\0l4PT$(#=bsFJ].6LLeg*2aju)*YKb%&03HZ_9=a%U8S,rZw)p%9q.V6>EI*E$vLS-w'tFejHãU"6.JklgoF&5wxtcttZsf]:2kuRyVMFUt%)FgX7\uTIYSU\f=71mRaO.J8F'Ff1iYãU"*4)1A3QAm+H?-5BkL+kp9Yrl$c6(C86*uUkoWYFE[/ULqI->rtZMubcrb/YB[X'ãU"k\9%B](fSE6L(ANwK63Y?hZQ(WVk\q'gPSE;PNOh6_\AiJX%=/Y]DtfIH7Opa1)ãU"AQi]cp=)d>1v7BdrQ=h^$m#85J2?lq#R-%McBS%pHV0(MeP63B&cg&)-xkX*];,ãU";nP<<3YAjXh^Rg%cov[C'mMI?ti4q:dAFvUaz;?9UAs9,F(u>MSP,S%sa6V&,u=ãU"yrr$c_mU$0i__l9:RI6x'A2^%rGH$7)XD/^pDZu1ugmsA>a5gHS&U4K=Kb30rW8ãU"KQj$+UPhjdp_I?d'Q(S=opuq_xPP5II;xri_ab,NKSsCQ&rkbA/Sxv-K=:XJgRpãU"N)F\aE_beiG(S.SN?-S)5*=Z\:^0k%[AJ$8f*^gRM#9Hze$Y)-MGt^]eNuLTX-/ãU"iIW>Dk9z8?M_66d$Z9*Ogspn?P?O\3.XwSf:KZ^:Vf)*>HQx53]M-^DQhZ=0]Y8ãU":Y=sl6rc8&#DZ,X&pA1]%\uPt&cPE4\7SjXlT'ck(j(8a,EJ_gK;Hfa9/C_QHn7ãU"j=denW*.o[qQn3$wCX.2UloDbkxjL7sV+Q.M;L_R]8BWBCg?V_4A^TuXW?LZksoãU"#pX5qTr:)([s)SSlVGg?^aa.35ZAGBS)y).)1\ZO7;toAaaqb5Q>cS(of1P=*EjãU"fbyun&&Mu4S&&ikOPVlQcROI&q)SO6t4QBQN6LlYPUkR-j[BHX/(2B#>*/fEC8mãU"RZ8,vD*'4M:MR',$auO;IjH*=OZ&_V^kUElgpCp-wVK/9/bPO=Wg,Rbj(/^SM=xãU"%#OuyNR8%AjoLI2$R5^DKjwIT&U_y^]i0HAqyc/H$^*xgNqnYs'B]HiY>ãU"_Pc3'F;C/XlOBDJ'aCw%)igS*7UQcYPX3^I7j(9is0n4OZiame-be8o7&iqOZ+6ãU"O6M/4)Oyd1.lom*#Cq.>hk0L2I^MuPj_gg[24WCY\b5bnWBw\MJak_gI#8(ZH[1ãU"KT7(D:$VTeGW0BUrA2x*d=R=5yd/=8nlsIg3tc4<)R,B,zWv/^F%Fu,fIs-sKR;ãU"rIz,=B$KCN8eWVWZSo5$8<\8^g0g.G+c0%*(VF9#.u_8ny;yQA+%_cMae5/sFNzãU"hEcadU7i%s[9>(C-#qyodTM'1^#ghA-85Ex-rk>^V8V5mC=,S#T)xIJdlVggC9aãU"c+aSei'*+\AcbeppkJC,adrva5UhP3D8^IxsTjolC8UYz4'o<'8kY'f1yn-6JYIj_%fwRJ3T&3GZdE?_?f2bi]62VTe1EnWS;WHq>Hx&Q]vFãU"]+4QMcV/.qOG+hjC]QZd#7&_Dy8\Q(%&9m&m%:VL,Nd)00Z/ãU"hBE,>=q&#NEp3ijI_r0D80u$flPvy*jL2<<%yQ5<*&rc)NBQgS*GMzZQ^4m?1F^ãU"b0lZT2CLYnwZeR(mmW$ecr+qRX:>&MWeM;yc(M'AY?i:I9hiSAVmxJ4[u,HB:QN1m;0oG,[;J.Y#e.wf%lVv5wF]s'lb-hãU"3g64_-jj4UrZO&bUROTiPg(X1E35AT6zADL7dzT6%/hnG\F1ãU";:9w]l-dIzS6+JHHs[$(jMTl)Ao-\L3]EG*#U9MccNS3YzTVq*z>.7B\i\QFEBOãU"U_^6N;[i]]R+XZ]RRHcx4/SPH4cLP)K>.KXi:1o?O?A8=e+wsU.Ztkx69(F_V7/ãU"GID=s$0[K0Z2U[qJj1P?1Vt;\2)w^2kIVsGYFn5c^EcK7t<#u8PA-l^qxMS$WS]ãU"#,PhbBXSCi^3Bb)jh.Ub)Qq>Bud#Y8\1YeZo$xU&M4q(/Waa4?tIjGHtsvWI]#%TUTTFt^AãU">?k].fcx7&tjNZu4H?'oIp\VitV78#G;&t*oc:n=^9dff8fMJP*7h,OzFz%%YclãU"kjyFJi&f#>vwGQqxNo?M,8\gd2Sfg^Ozo%uE+5[->V_n-W+YR1=Ax^rcjGrZBj2d%myJ/RMQPH\kSãU"wwnTjF(vZN(,1nJw6LJzFH\R&FhUKv)s]$?x-sS%8_[AeUf?GYG>bHWh.AnX;SxãU"%%up(%)9%%&O-%j\qSNV&-*d)%.%%1%=%%0#%%%%%ktsy%XVSiRth>'rdBT1=6xãU"'>9v4tFPhQ&iJ6LbfM6=uIKI6*([yj^g,LceI+Q+K.dB%)OsdXbghQs3#Zo^'F9ãU"L]/it1p0h8,%vC?5mh3%Sef*a;YBqb?oWrs.umqu0Xdpqq*Xp_Cwq_a08m2FEBS;X/d?=Cw#5M;-qV10P$NCV_>W&dgãU"lx[u6%v,5sbHM$X2q'^#oaCj.VM2ue?ch6$#6Qsjq#mN92*-vWtLh^MWgJ=OzBCãU"[LQb%'bh1N$,p\kRJC)X-Y[9g[)UJ:1WwZmAR^6,L^&:$EOwfZnJj#F8v^QJc=.ãU"<'oUq3aLun?E3[iBky.tu'c-4&_$mCJ(s0#)OO[y$i,?(6d)[c&tkXi.,-ãU"RX[sm)Bh54*&/UQ8T0)#,B'C[GX43^pxy:4<>vUuz3+D0C5^3j\z=h2D-&3:Y*nãU"06+]?d.tI[fQ([jFH-S^KBL_*m]gYcf/ngUPm\>VK/zD$];ow8CMsVcadAgbN1aãU"XoOS;=5Q3c\4N>'/(.<[v7^jD$1H5;EYIIvD4b,,7Ne=PE=sv2W=.'.F?rt2Wo(bQ2/^K$lPy9VdrtWf't_qr(X<$Fr$UNKãU"l:4t:.9E^>72tC9UiWiBeJjWXjo]u):4TtDw(4fT*#+avTMyDjuOBBypMX4qy4yãU"a,pGW(W$qyjT1m1Pcm$onS;U,)x?AH:TNbo]tlCw%+dXibk-sI/Q2$*J/DX-W7NlhjãU"f,74cst*gLO0?mT76%$,=D3'[z6-gGamJYAp(ZD(5h(%CwN5=p'$=3S/_mE/KUHãU"s)y_lAC9BXsn1CssW6v-qZH-9Pmw.g#4AkD#Vk-FZKgke7NzdRajE5Ve;rpj>VUãU"PE:ww=289on[=cnS_C',K^4c$UY>I'XWZY5a6f%>0OR5SG^W')\F,C11p-6DYFpãU")]oTHP$U2\%:R0C(4CF#\D?qpRc?WXcBwd/LQ$?uG&,,H=m39.imk%0BFlABk=^%ãU"LdDp4sd^mNpTt;bZa7GT]Pj476[%XNZ13uscQL5s*K*3pYyLa+mnL)O?<%36KtB1qv>\0*BBPbgJ5tZ9iKMl^'x$&E;l2HDãU"j<#*Z0I&o*P#=O:2jZTh$A09(rEOz-XEBlO\CE2?Hye3,tISzg3Bih)z3(o#vDcãU"ElBT0Ls,C(P%u;\urXJ&DF2-C?HcSo/b$KfNkpUD5Kd7m2B$&JSiZ\%4hc<0iZQãU"FfW\C.bpaEFr#KC%Xw+sK[;U>hoZx^hTTN3-9DwK>E=rXSlTc&a(JUK-4W3#z,$ãU"(aL>$5*d>$xJ8lFVNuSu[$'t-bUia2(0#,%j$nZ7q3cQ)v#\nvjni1hp43/PID6gãU"PBmiHneTA\HS0jW[WI.e9%fftn*w<661VRbbC$SeY2*GcAuT=HEcmsbKV2?.k+ãU"i1?4h_#A.SWT;/a_omegQ)a]7.cW$JQ^3VxM\NA&&q\qRP5/*3:I5QQ8eCBoãU"=.fAG5aSjVseJ1fJ1',E^n^;D:8;nG#X2_ZApU\R>NV0S>AsCA6G[#$$PV2e7:?ãU"w-b%qW5rbbYrqK0VSrhV&W'\[LWl,L8wP>dgW9=*DYNLM&U)'5mxrI<$y1fk&a)ãU"qEzV\f5^Ijs?l1XDJ>X9YrU^,3&uHmb839a]\1'uTup%()9%%%%-%:N>wM4c3W(&ãU"O8%%&Cz%%%1%%%&%kts%yjit%SgfxTNafAl[1ex1xdF]*%nllw1sãU"^^sYpYX>BI,4+4-:Q*F]mbLH2ZãU"ZRT9bi$mUi)/NJ5=5[;BD(IcPgWL#UGJ)(Y'F.t(b?Bx^+';,'P3ZSm0xh[;lDgãU"kt/J7SUYN)VJ:']Dn5+9K8,SWHQ0bp?3l0WU[bjTS1]W8aSS.-/MASLLK&ot9>(ãU"l]aH;e_qpeJs_CfSL0q1qh+RuHA0n$CE6iV(rq_4&H,bmH+ClPOvMp(Ab*jPW)]ãU"ZL:[&j0Dbv16rWYV-x]QM2H>XTlAWRf*TBo?]>5'&Gu0Xjd2+/%iO%,kV&)j4W5.?Y?Q)e3&:tãU">mkFiimn06#.h9RefGB-**^/^GVjl\2Z4r^Kh-4f=wmBgkR9R:*bYoo-aPXXf98ãU"9ZW:-(X(#+e5QsE7FpPJw^e[WDoHmYue:ãU"JkuTX9ITS3%E=x3_T2a>Im^A5uW98:_mt4VgUWi*N?VG2TDLyqA?:XL+7GNo,3:ãU"p1[=W1kk:dfm+UU1C&TAZ9FBQH>\rgRPDãU"1]nyUunX7Cm60]f6/YRJEIA>rY)3ZbJQ3b[=ZboqKjhzS1arRZGm7x3nLcTBXpmãU".B]Ce(5DF39,Iu37(J&ky\ivD+=g(eV1EsJOOc9jk]xhu%kQ#,:[OPbMVM-[WF0ãU"XYuAJ%D]JTbPnS.X+7R1bRyS]rT(IM[SK0X76In%MOFxhUBHPgNs67\tcoln2kqãU";Db'UD/BWS],V'ku1j8Oq]BYOvHr*g;UC>#lmmFm_F(Dk39a/T>NJBwnfno:[v:ãU"e7+l,PN[*FUaiG/$_>-5eRXlCG4('KgC\H*=%Zv]AoZ9W0pYKVaYacQ-wI.g2iKpM48&(fSx21)%ds,mo1CK?ãU"wC74-k)x:$%dP.#kbe8Dhm,nV/INhJ'bclNZ[D_kx.KX3lvpBJ='xU$4t<-oCk6ãU"'5PWwMkznU3sCFY10p-e'WAO)P8yXvy4[dAzPF\BjNDt70X.oS-)dzU#.(LRt(ZãU"U4l-#\HAu,ifm9eUxUkmBVRXX5O7.T[/4.ãU"N:GAnHLi/S+qiSYhMa7oqsMX/wgoncl9aK3u6ktNxYgB;W+mDDZ-?>?(0]SG.:$ãU"mIz\D.5#n;)U?K%82o1i3CK=i$>lCL&Ib%tfQM8?o64:/HQ8u1:n35'%ADrMVeDãU"LSKY*u/nd(Ui+=5A.jAPwGU?8?fYBWJqW^M\oHXqjPyO<9$Y3pS>c?Don_=/?(VãU"m79,C,VSas1]XN[CjZS>NxRi7GPRSdZ[C2UR$Jp?&GC*5Dj(QCf4NI$mZQ0]E[YãU"qS-HMG2*3>Uf&:?PjU/L1RQzJOwaDtsn%ZM*s=^5Bp3f)Q4^7L/^=rCa1soli?:ãU"_-tDRm/^hkY(>'FZ=)nApK(SkfyH&]H(oXMUe6KodpAjBkH\h)qLC>\HzCNeJ?,ãU"TfIq*5p'xCPz[TeXjDM.5f['=q%<./tMIA)<9kM(qPGSFeK2Yu#E4hYZSbUleL8ãU")VI049[VR3+qr0CvhjQ'W%ZyBf;>;b.;K,E+cvj)<+N[+s*q[0'(A:#KPvwJ6T9ãU"kF-4Lg^-lXn%2Cv(?h[Nmwgsxa:au3E?Xmoww7You'oPKIvw)M5&Of>tT'dU\/qãU"/Ly++$mL?MeWe$]TtAa,F?-;PIG_&q;w&&%%KE'?^BhMM-sdtoh$W+1YT*$awfpxm]_*faioEbãU"AUmZ/Gtre(ni07J=6Fa&jV&7-O6il'5W8H.6G0IMIJ8E1XHTf;)%9+e*=UHdU$#Kajn#Dbu&_QJ+f[>T'B0EL#EMB/L'#4g-XBCMãU"Q,M2&KUEQI6JJygG5SIR,5>._w#7%8:[_#t%p],=Dd_b?buD^fE;imiGfE.0J,5ãU"2Ic%t.JE[QSh,gq6b:TabuS1(pW[:urhnO-o1P#0Ij1u=c[o%)hXH4CqbjBb6%RI(za5'ãU"jlm'YGkAGZO?^+>4Y14&=m-&Gj7m>\?euTIFZx[l,f$(UP^^J2jsWHP+nL3W6Pi5pqOv]t^>tMcOnQnH&4vS'(a/w0?/oqH*F%h/:1Wp+IAãU"FkUe_e^b7GORtJaUtX-t-DeTMLgt^kTu-B9u/$Z5Y]/\-lvG9p(MO;DX[o8In1bs;;jrO*RMN9ãU"w8/e%ZwNDrdF=&W;GU.I)\OQ#I=spUW6O%gQZ.,Z'\]O?6=siiWIl9(E,OGRT<1$a?;VbCwMma#VAb/jEtgyR+4J]zr$%Md%OcJ)ZP\:7H?ãU"uf^J)zG'Q+.0aREi+d-,+i\ZCAoZdVI8tuPZ(gIeT('ktbpaR$js\\2OT1tt)^kãU"s5GY55-:dh((6=xZZUbNJfsG<2VG=Nfh_Tg&hPWU;ftAfBkdS_\ELk_hvk_%DDUrt8568f^px617vLSãU"=l'[2kUd1)e11Qf%?ydAZ_$:]lFdLYs<,<=FSZK\g'1RVtb5K(57TWrjpwCTqUGãU"k4:?W>dKTcEI:+^(ceC%k5Da:/fm*$^0d-gOj'c_l8D)c/m'*:a'd-Y9L)c$9\$ãU"#OC9(ãU"qtrmR81_KYEl1_90PRuxJNJlf6&.as9)*Np6\ps,3]_FE6/TGvK+.jaAk^(ãU"tU,js%SfDaatlY5B<%NkL'P#\vuf*Hnu:#:+$FKhE9%M-./)#utA-$G7VN/$_bkãU"TRBX'umX$^,H)&UW:lGGmPZCptdK;d_J7YG5F5?TG##')N;m3FqYãU"^J*&PJ_k%\JPWI4&jwO3L(gB],044WgR2K;v;2T1v>\66yj?asl1+o1NpCN^M1De2C^$9iq?m8CãU"<>7L.L/k]ZBSTF['A6,gl,NHhPvub]vBJ30DUhfMmem%wt_L?=_3l(Hc[I2r$85ãU"6to7+Vbc)6L6CG%HX71fs5P+S-E=29VE^Z*Uu2A29:5$:s'Ky.feyvhEIv&QI#t%4k'daq,r(Tq.XM')e>LrZ8-VWmanFE/+XH[,tãU"FUHON.zvcpJI>Q>7d7LSnR[%ocIJj$+$4$,_G(QNSiL_[a]bhC2cF3:K2Phj=smãU"*l(Bc&5m.p,e]0/ByAnJxs[LdIb9B4Rj\:[.rZ+ecmlkZ01ZG^-+MRnok3HzãU"%O3(_NuLnntbr?x6k$,X'q3L%n8;f;+B,e4yr3(AvWn(-PGMkl\qRVA2hlX.jR2ãU"C-K#mO3TK-Kg7[Y2/oZuoQWj'fNju#2p+][N*MY]_4q)cIOSa=;5rA(8q[NãU"fS3_0$3JRm/\7XkAdvezYQA&yYNbu^qtBxA=F\KYb>;qu0SR051El>7,r=fgwloãU"aQhkD^2Wf\H8n;aioxd;h**Wx7()WC-eQ=IkGK_E0VMD=b'dbMV]l1T6fP_^\DxãU"OIdV6pdOXAs\aRD#5c]^%dez\q956J>;.x&9^&Wz9#0B9EwVo8(p^tM&p*4l-BQãU"gn0(?VID4=HtB03nyJ$HdYgi_mJ2q.Dy)tPvx>8u*9lVAc3o1]/*Wf[?0O[,B;WãU"f)4>_,Kc>_?gPd>D-O5i&Z/0QH-?ãU"'20]R:i%I'BI?xfeR7/G[db^:eKYQATg(#6g3B,L\tF?Z1Y:fBlr2j4SuZ1<,U3ãU"J*&QTFmHj]o9tVIm*ju6sZQY:edI7#Kez]1ãU"x2pJãU"kSptO(fJ1wIY=djQ6?tjDk:B#0vR:)#N:\8h]1]X/v.]N'Re[HT[AIC5J9w%e_SãU"mTDtm#RAwL$lU3I2C-/g6Njg.eFxiUL5E#dxp]LT]wC^5&vMLbd#cFXj,Pecn*AãU"*YToGr(^;=QnJ]p60a+Iac[kY]C>n%1,>M#nPl)INC#EHZ=b\RN^76Al6dbg^%_ãU"Zhn2v5K<2l%]3^CcyI:V*Xj:l>]-#ZqJpPUr,S_9H0Z#.o*p>%n4-FZkK9hz,pvãU"PL'OrXfGbCo.\asjpV0d6&hQdR'lX%R\cZM\G=Uto:\#WV%9%%%%-%(mGNMAZl\S&9-%%%ãU",G%%%0%%%%%%%%%%%E%%%%%%#%%i4M50D;JCS5=&Cup&%'>%9%%%%-.%rPS:NiCãU"9%LQ'%+%6(%%%0%%%%%%%%%&%E#%%%b%-%%rJ:g8>AB]S1)0Bup%&'>%%9%%%#-ãU"%($RRMuv84W*-%%%,G%%%-%%%%%%%%%%%%E%%%'a/%%Ly78=LS5=C%up&'%>%9%ãU"%%%-%(B]S25=Cu%p&ãU"'>%%9%%%%-%g\/3NF(x3e9%-%%,%G%%/%%%%%%%%%%%%E%%%%EA%I%g8>&BV[S2ãU"5=Cu%p&'>%%9%%[%-%BA\OMHN$BhR%-%%,%G%%.%%%%%%%%%%%%E%%(%+I%I%q8ãU"=D4BS5)=Cup%&'>%%9%%%#-%?PdSN+1>#Mt&.%%/(%%%1%%%%%%%%%&%%E%%%%+ãU"R%%Cr:g8)>BV[LS10B%up&'%>%9%%%%-%:K>wM&HW^<%n-%%%,G%%%0%%%%%%%%ãU"%%%E%%%%PT#%%y7282:VIWS5=&Cup&%'>%9%%%%-.%EqSUNA3**=CCj3S1)0Bup%&'>%%9%%%#-%AbJLM%%9%%%%-%I&XSNãU";Dq>uQ%/%%V%P%%0%%%%%%%%%&%%E%%4%;'%(%%kt%syXV%Sgfx%up&'%>%9%%%ãU"%-%(jqSN*V-*d%).%%%1=%%%0%%%%%%%%%&%E%I%%<2.%%%k%tsyX%VSit%hup&ãU"%'>%9%%%%-d%N>wRMc3W((O8%(%Cz%%%1%%%%%%%%%&%E#%%%iA;%%%%ktsy%jiãU"tS%gfxu%p*+%%%%%2[%2%X%'%%i&O%%%%%ãEND SUBãV2ãV3ãV4ãCLOSE:IF S=184AND 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ãJacob Wieles SCREEN 12 CHARACTERS j.wieles@hccnet.nl 10-15-00 (10:29) QB, QBasic, PDS, PB 176 4007 CHAR-12.BAS 'Programma : CHAR-12.BAS (14-10-2000)ã'Auteur : Jacob Wielesã'Taal : PowerBASIC and Q(uick)Basicã'Configuratie : screen 12ã'ã' : In screen 12 the characters from ascii 32 to 122ã' are one by one printed on locate 1,1, set inã' array kr which are stored in array krv(.,.).ã' Gosub PutWords takes one by one the charactersã' from a Chars$, find the ASCII code of eachã' character, takes the array from krv(.,.), makesã' a GET array and PUT that array elsewhere on theã' screen.ããdefint A-Zãxl = 8ãyl = 16ãyes=1ãno=0ãdm=2+(xl/8)*2*ylãdim kr(dm-1), krv(32 to 122, dm-1)ãpi#=4*atn(1)ãscreen 12ã'To prevent flickering monitorã t!=timerã wp&=0ã do while timer< t!+1ã wp&=wp&+1ã loopã'Find out on which basic the program runsã out &H3C7,15ã cr=inp(&H3C9)ã cg=inp(&H3C9)ã cb=inp(&H3C9)ã if cr=42 then PowerBasic=yesã if cr=63 then PowerBasic=noããcolor 10ã'==================> Get characters 32 to 122ãfor j = 32 to 122ã locate 1, 1ã print CHR$(j)ã x = 0ã y = 0ã GET (x, y)-(xl - 1, yl - 1), krã for l = 0 to dm-1ã krv(j,l) = kr(l)ã next lãnext jãlocate 1, 1ãprint " "ãlocate 3, 1ãprint " The characters 32 to 122 are takingãlocate 5,1ãprint" from screen 12 and set in array krv."ãlocate 7,1ãwhile inkey$<>"":wendãprint " Hit a key for demo 1."ãkeyhit$ = input$(1)ã'=======================> Demo 1ãclsãx=640-8ãy=480-16ãchars$="O"ãgosub PutWordsãwords1$="The characters, taken from array krv, can PUT on anny"ãwords2$="pixel in the area 0,0 - 632,464. (640-8 and 480-16)"ãfor count=0 to 13ã Chars$=words1$ã y=count*yl*2ã x=count*15ã gosub PutWordsã Chars$=words2$ã y=16+count*yl*2ã gosub PutWordsãnext countãChars$="Hit a key for demo 2."ãx=320-(len(Chars$)*8)/2ãy=464ãgosub PutWordsãwhile inkey$<>"":wendãhitakey$=input$(1)ãclsã'=======================> Demo 2ãline (110,240)-(155,240),13ãChars$="Start"ãx=112ãy=222ãgosub PutWordsãfor count=32 to 122ã x=320-220*cos((count-32)*2*pi#/90)ã y=240+220*sin(pi#+(count-32)*2*pi#/90)ã for i=0 to dm-1ã kr(i)=krv(count,i)ã next iã PUT (x,y),kr,PSETãnext countãwhile inkey$<>"":wendãprint "Hit a key for demo 3."ãhitakey$=input$(1)ãclsãwindow (-320,-240)-(319,239)ãfor count=32 to 122ã x=-220*cos((count-32)*2*pi#/90)ã y=220*sin((count-32)*2*pi#/90)ã if PowerBasic=no then y=y-16ã for i=0 to dm-1ã kr(i)=krv(count,i)ã next iã PUT (x,y),kr,PSETãnext countãlocate 10,25ãprint"The screen is set to window"ãlocate 11,25ãprint"(-320,-240)-(319,239)"ãlocate 13,25ãprint"If the charaters are normal"ãlocate 14,25ãprint"then you run the program with"ãlocate 15,25ãprint"PowerBASIC else with Q(uick)BASIC."ãlocate 17,25ãprint"Hit a key for what you see with"ãlocate 18,25ãprint"the other basic."ãcolor 13ãlocate 20,25ãprint"Without 2 small program steps the"ãlocate 21,25ãprint"charaters in Q(uick)BASIC are"ãlocate 22,25ãprint"16 pixels higher."ãwhile inkey$<>"":wendãhitakey$=input$(1)ãclsã'=================================>> The other basicãfor count=32 to 122ã x=-220*cos((count-32)*2*pi#/90)ã y=220*sin((count-32)*2*pi#/90)ã if PowerBasic=no then y=y-16ã for i=0 to 1ã kr(i)=krv(count,i)ã next iã for i=2 to dm-1ã kr(i)=krv(count,dm-1-(i-2))ã next iã PUT (x,y),kr,PSETãnext countãwhile inkey$<>"":wendãprint"Thanks for running. Hit a key for end."ãhitakey$=input$(1)ãclsãscreen 0ã'To prevent flickering monitorã t!=timerã wp&=0ã do while timer< t!+1ã wp&=wp&+1ã loopãprint "Hit a key for the source."ãendããPutWords:ãxp=xãyp=yãfor l=1 to LEN(Chars$)ã k=ASC(MID$(Chars$,l,1))ã'====> set single character from array krv(.,.) in array kr(.)ã for i=0 to dm-1ã kr(i)=krv(k,i)ã next iã'====> doneã PUT (xp,yp),kr,PSETã xp=xp+xlãnext lãreturnãJacob Wieles GALTON BOARD j.wieles@hccnet.nl 10-15-00 (10:29) QB, QBasic, PDS, PB 440 11276 GALTON-E.BAS'program : GALTON-E.BAS (14-10-2000)ã'author : Jacob Wielesã'configuration : VGA (color)ã'which basic : Q(uick)Basic and PowerBASICãã' Running this program you can play with a manipulated GALTON-BOARD.ã' You have to make a choice between boards with 1 up to and includingã' 9 rows of pins.ã' Around each pin a small blade will swiffel from the positionã' (top-left / bottom-right) to (top-right / bottom-left) - or theã' reverse move - after a ball passed the blade.ã' The pins are numbered from the top to the bottom and from left toã' the right.ã' After drawing the pictures used by the program, the program will askã' for the number of rows with pins.ã' Next you must make a choice how the position of the blade-settingã' must be on the pins.ã'ã' With the board on the screen you can make a choice for changing theã' blade-setting or not.ã' If so you can turn on, or fix, or turn on and fix the blade-setting.ã'ã' On each board the number of falling balls are chosen so that - whenã' no blades are fixed - a binomial distribution appears in the cups.ã' The program finished with a binomial table up to 12th power.ã'ããgosub CheckingVGAã'Find out on which basic the program runsã out &H3C7,15ã cr=inp(&H3C9)ã cg=inp(&H3C9)ã cb=inp(&H3C9)ã' if cr=42 then the program runs on PowerBasicã' if cr=63 then the program runs on Q(uick)Basicã timedivisor!=5'=====================>> For PowerBASICã if cr=63 then timedivisor!=.25'=========>> For Q(uick)BASICã'The value for the timedivisor if found for a Pentium 100 PCã'For an other PC maybe you must change this valueã DrawLoop&=wp&/timedivisor!ããXM=320ãXH=30:YH=30 'array for a pin with bladeãXL=8:YL=16 'dimention of a characterããdm=2+INT((XH+7)/8)*2*(YH+1)-1ãdmk=2+INT((9+7)/8)*2*9-1ãdim L0%(dm),L1%(dm),L2%(dm) 'blades leftup>>rightdownãdim R0%(dm),R1%(dm),R2%(dm) 'blades rightup>>leftdownãdim K1%(dmk),K2%(dmk) 'ballsãdim coeff(12) 'binomial tableãgosub MakingThingsããdoã while inkey$<>"":wendã AnOther=0ã DelayFlag=0ã locate 13,1ã print" Hit key (1, 2,... or 9) to select number of rows with pins. ";ã doã inv=instr("123456789",input$(1))ã loop while inv=0ã NmbRows=invã print NmbRowsã NmbPins=((NmbRows+1)*NmbRows)/2 'number pinsã dim PL(NmbPins),PV(NmbPins),Cup(NmbRows+1)ã locate 15,1ã print" There are";NmbPins;"pins."ã printã print" You must make a choice for the blade-setting from:"ã printã print" A. Determination random."ã print" B. All blades: top right bottom left."ã print" C. All blades: top left bottom right."ã printã print" Your choice is (A or B or C) ?";ã doã inv=INSTR("ABC",ucase$(input$(1)))ã loop while inv=0ã select case invã case 1ã randomize timerã for I=1 to NmbPinsã PL(I)=INT(RND+.5)ã next Iã case 2ã for I=1 to NmbPinsã PL(I)=0ã next Iã case 3ã for I=1 to NmbPinsã PL(I)=1ã next Iã end selectã clsã doã gosub DrawBoardã YouLike$=" Do you like to change a blade-setting Y/N ? "ã if Change=1 thenã YouLike$=" Do you like to change an other blade-setting (Y/N) ? "ã end ifã locate 1,1:print YouLike$ã doã Change=INSTR("YN",ucase$(input$(1)))ã loop while Change=0ã if Change=1 thenã locate 1,1ã print" Turn on, Fix position or Both. Hit: (T, F or B) ? ";ã doã inv=INSTR("TFB",ucase$(input$(1)))ã loop while inv=0ã select case invã case 1ã Choice$=" for Turn on : "ã gosub ChangeBladeSettingã if PL(KP)=1 thenã PL(KP)=0ã elseã PL(KP)=1ã end ifã case 2ã Choice$=" for Fix position : "ã gosub ChangeBladeSettingã PV(KP)=1ã case 3ã Choice$=" for Turn on : "ã gosub ChangeBladeSettingã if PL(KP)=1 thenã PL(KP)=0ã elseã PL(KP)=1ã end ifã Choice$=" for Fix position : "ã gosub ChangeBladeSettingã PV(KP)=1ã end selectã end ifã loop until Change=2ã NmbBalls=2^NmbRows 'Number falling ballsã locate 1,1:print" There are";NmbBalls;"balls to fall.";ã print" Do you want a DrawDelay (Y/N) ?"ã doã inv=INSTR("YN",ucase$(input$(1)))ã loop while inv=0ã if inv=1 thenã DelayFlag=1ã end ifã locate 1,1:print space$(78)ã locate 1,1: print" Stop with Enter. "ã gosub FallingBallsã ERASE PL,PV,Cupã locate 3,1:print" There are";K-1;"fallen balls. "ã locate 1,1:print" Do you want to play with an other board (Y/N) ?"ã doã AnOther=instr("YN",ucase$(input$(1)))ã loop while AnOther=0ã if AnOther=1 then clsãloop while AnOther=1ãclsãgosub TableLayoutããfor power=0 to 12ã Coeff(power)=1ã for j=1 to power-1ã if power<2 then j=power-1ã numerator=powerã for TermNum=1 to j-1ã numerator=numerator*(power-TermNum)ã next TermNumã denominator=1ã for TermDenom=1 to jã denominator=denominator*TermDenomã next TermDenomã Coeff(j)=numerator/denominatorã next jã locate power+5,4:print powerã locate power+5,10:print power+1ã locate power+5,40-2*powerã ct=0ã color 10ã for p=0 to powerã print using "####";Coeff(p);ã ct=ct+Coeff(p)ã next pã color 14ã locate power+5,72ã print using "####";ctãnext powerãcolor 10ãlocate 19,18ãprint"=> Blaise Pascal's **";ãcolor 12ãprint" triangulus mathematicus ";ãcolor 10ãprint"** <="ãcolor 12ãlocate 21,1ãprint" Hit a key for end program."ãhitkey$=input$(1)ãscreen 0ãt!=timerãwhile timer> END <<===========================ãDrawBoard:ã NP=0:P=1ã for I=1 to NmbRowsã NP=NP+1ã for J=1 to NPã X=XM-(XH/2+(I-1)*(XH+4))ã if PL(P)=1 thenã put(X+(J-1)*2*(XH+4),I*(YH+4)),L0%,psetã elseã put (X+(J-1)*2*(XH+4),I*(YH+4)),R0%,psetã end ifã P=P+1ã next Jã next Iã XBB=XM-NmbRows*(XH+4)-XLã YH2=2*(YH)ã YBB=(NmbRows+1)*(YH+4)ã line (XBB,YBB)-(XBB,YBB+YH2),13ã line -STEP(2*(NmbRows*(XH+4)+XL),0),13ã line -STEP(0,-YH2),13ã lstep!=(NmbRows-1)/2ã for count!=-lstep! to lstep!ã X=XM-count!*2*(XH+4)ã line(X,YBB)-(X,YBB+YH2),13ã next count!ãreturnããChangeBladeSetting:ã wronginputcolor=14ã doã locate 1,1:print space$(78)ã locate 1,1ã print" Put in a number from ";ã color wronginputcolorã print"(1 up to";NmbPins;") ";ã color 14ã print Choice$;ã count=0ã blade$=""ã doã doã inv$=input$(1)ã loop while instr("0123456789"+chr$(13),inv$)=0ã blade$=blade$+inv$ã count=count+1ã print inv$;ã loop while not (count>3 or inv$=chr$(13))ã kp=val(blade$)ã if kp<1 or kp>NmbPins then wronginputcolor=12ã loop while kp<1 or kp>NmbPinsã color 14ã locate 1,1ã print space$(78)ãreturnããFallingBalls:ã for K=1 to NmbBallsã locate 3,1ã print" Ball #";K;"from";NmbBalls;"falls now."ã PO=1:BT=0:EP=1ã put(XM-4,5),K1%,psetã gosub DrawDelayã put(XM-4,5),K2%,psetã for I=0 to NmbRows-1 'number rowsã SK=PL(PO)ã BT=BT+1:EP=EP+Iã gosub FallSingleBallã if stfl=2 then exit forã if SK=1 thenã PL(PO)=0ã elseã PL(PO)=1ã end ifã gosub ChangePositionã if I=NmbRows-1 thenã Y=Y+YH+8ã X=X-4ã if SK=1 then X=X+XH+8ã put(X,Y),K1%,psetã gosub DrawDelayã put(X,Y),K2%,psetã end ifã PO=PO+BT+SKã next Iã if stfl=2 then exit forã WB=PO-(EP+BT)ã Cup(WB)=Cup(WB)+1ã RG=(Y/YL)+3ã KOL=(X+SK*XH)/XLã KL=KOL-4ã if WB=0 thenã KL=KOL-1ã elseã if WB=NmbRows then KL=KOL-4ã end ifã locate RG,KL:print Cup(WB);ã next KãreturnããChangePosition:ã X=XM-(XH/2+I*(XH+4))+(PO-EP)*2*(XH+4)ã Y=(I+1)*(YH+4)ã if PV(PO)=1 thenã PL(PO)=SKã elseã if SK=1 thenã put(X,Y),R0%,psetã elseã put(X,Y),L0%,psetã end ifã end ifãreturnããFallSingleBall:ã X=XM-(XH/2+I*(XH+4))+(PO-EP)*2*(XH+4)ã Y=(I+1)*(YH+4)ã stfl=0ã if SK=1 thenã put(X,Y),L1%,psetã gosub DrawDelayã put(X,Y),L2%,psetã elseã put(X,Y),R1%,psetã gosub DrawDelayã put(X,Y),R2%,psetã end ifã gosub DrawDelayã do while inkey$=chr$(13)ã locate 1,1:print" Continue with Enter. End with Escape."ã doã stfl=instr(chr$(13)+chr$(27),input$(1))ã loop while stfl=0ã loopã if stfl<>2 thenã locate 1,1:print" Stop with Enter. "ã if SK=1 thenã put(X,Y),L0%,psetã elseã put(X,Y),R0%,psetã end ifã end ifãreturnããDrawDelay:ã if DelayFlag=1 thenã for w&=0 to Drawloop&:next w&ã end ifãreturnããMakingThings:ã'pins and blades without a ballã line(208,16)-(208+XH,16+YH),10 'Position blade LUp >> RBottomã line(400,16+YH)-(400+XH,16),10 'Position blade RUp >> LBottomã circle(208+XH/2,16+YH/2),2,12 'pinã circle(400+XH/2,16+YH/2),2,12 'pinã circle(XM,16+YH/2),4,14 'Ballã paint(XM,16+YH/2),3,14ã get(208,16)-(208+XH,16+YH),L0%ã get(400,16)-(400+XH,16+YH),R0%ã get(XM-4,12+YH/2)-(XM+4,20+YH/2),K1% 'Ballã get(110,1)-(118,9),K2% 'Ball removedãã'blade with ball in the middleã put(208,48),L0%,psetã put(400,48),R0%,psetã circle(208+XH/2,48+YH/2-6),4,14ã paint(208+XH/2,48+YH/2-6),3,14ã circle(400+XH/2,48+YH/2-6),4,14ã paint(400+XH/2,48+YH/2-6),3,14ã get(208,48)-(208+XH,48+YH),L1%ã get(400,48)-(400+XH,48+YH),R1%ãã'blade with ball on the lower endã put(208,80),L0%,psetã put(400,80),R0%,psetã circle(208+XH-4,80+YH-9),4,14ã paint(208+XH-4,80+YH-9),3,14ã circle(400+4,80+YH-9),4,14ã paint(400+4,80+YH-9),3,14ã get(208,80)-(208+XH,80+YH),L2%ã get(400,80)-(400+XH,80+YH),R2%ã locate 9,1ã print" The pins with blades and balls";ã print" as used in the program."ã DelayFlag=1ã for i=2 to 61ã put(i*10,150),K1%,psetã gosub DrawDelayã next iãreturnããTableLayout:ã locate 2,3:print"power"ã locate 3,3:print"rows"ã locate 2,10:print"terms"ã locate 3,10:print"cups"ã locate 2,37:print"coefficients"ã locate 3,37:print"balls in cups"ã locate 3,72:print"balls"ã line(1.5*xl,2*yl)-(70*xl,2*yl),10ã line(1.5*xl,3*yl+5)-(77*xl,3*yl+5),10ã line(1.5*xl,yl)-(1.5*xl,17*yl),10ã line(8*xl,yl)-(8*xl,17*yl),10ã line(14.9*xl,yl)-(14.9*xl,19*yl),10ã line(70*xl,yl)-(70*xl,19*yl),10ã line(77*xl,yl)-(77*xl,17*yl),10ãreturnããCheckingVGA:ã on error goto NoVGAã screen 12ã'To prevent flickering monitorã t!=timerã wp&=0ã do while timer< t!+1ã wp&=wp&+1ã loopã Leave$=" Thanks for running. Hit a key for the source."ã'backgroundã out &H3C8,0ã out &H3C9,0 'redã out &H3C9,0 'greenã out &H3C9,35 'blueã color 14ãon error goto 0ãreturnãNoVGA:ã clsã Leave$=" Hit a key for the source."ã print" Screen 12 not possible.":printã print" Hit a key to leave this programma."ã printã HitKey$=input$(1)ãresume EndProgãAntoni Gual GUI SCROLLBOX agual@eic.ictnet.es 10-24-00 (22:30) QB, PDS 875 28599 SCROLLBX.BAS'---------------------------------------------------------------------------ã'GUIScrollBox.BAS By Antoni Gual agual@eic.ictnet.esã'---------------------------------------------------------------------------ã'To scroll or not to scroll...ã'Well, a scroller is a vey useful component to implementã' file viewersã' menusã' list boxesã' checklistsã' drop down listsã'---------------------------------------------------------------------------ã'This is my contribution to scrollers.ã'ã'þ It can scroll:ã' - Fixed length strings in arrays and filesã' - Variable length strings in arrays and filesã' (String arrays won't work in PDS)ã' - Any UDT's in arrays and files (using a trick by Ethan Winer)ã'þ Can scroll several windows at the same time, with different types of dataã' in each window.ã'þ This is as close I can imagine to using objects in QBã'þ The text files have no size limit, and are no previously indexed, so theã' display is inmediate. (and slow)ã'þ UDT format and display format is passed as parameters, no need to alterã' the routine to display different UDT's.(also slow)ã'þ No mouse support at the momentã'---------------------------------------------------------------------------ããDEFINT A-Zã'$INCLUDE: 'QB.BI'ãDECLARE SUB InitGUI () 'ãDECLARE SUB VIDEOPrintSO (r, c, sg, ofs&, start, lng, NC, atr) 'prints a str by seg &offsãDECLARE SUB VIDEOBox (r AS ANY, atr, bor) 'box border routineãDECLARE SUB VIDEOFillSq (r, c, nr, NC, car, atr) 'fills a rect in screenãDECLARE SUB VIDEORect (func, R1, C1, nr, NC, atr, car) 'changes atrib of a rectãCONST vrrecolor = 1, vrscroll = 2, vrfill = 3ãDECLARE FUNCTION GUIScrollBox% (N, comm, value) 'This is!ãDECLARE FUNCTION StrCenter$ (b$, l%, char%) 'center a string in a stringãDECLARE SUB LINEbINPUT (f%, a$) 'backwards LINE INPUTãDECLARE SUB VIDEOScroll (R1, C1, nr, NC, lines%) 'Scroll a windowãã'------------------------useful functions-----------------------------------ã'$DYNAMIC$ã'-------------------------keys----------------------------------------------ãCONST KHOME = -&H47, kctlhome = -&H77ãCONST kend = -&H4F, kctlend = -&H75ãCONST kpgup = -&H49, KCTLpgup = -&H84ãCONST kpgdn = -&H51, kCTLpgdn = -&H76ããCONST KLEFT = -&H4B, kCTLleft = -&H73ãCONST KRIGHT = -&H4D, kCTLright = -&H74ãCONST kup = -&H48ãCONST kdown = -&H50ããCONST kinsert = -&H52ãCONST kdelete = -&H53ããCONST kenter = &HD, kctlenter = &HAããCONST kesc = &H1BãCONST ktab = &H9, kctltab = -&HFãCONST kbsp = &H8, kctlbsp = &H7FãCONST kspc = &H20ããDIM SHARED KEYCODEãã'----------------------gui------------------------------------------------ãTYPE rectã R1 AS INTEGER 'top left row (including frame)ã nr AS INTEGER 'number of rows (including frame)ã C1 AS INTEGER 'top left col (including frame)ã NC AS INTEGER 'number of cols (including frame)ãEND TYPEãDIM SHARED rtemp AS rectãDIM SHARED borders(0) AS STRING * 6: borders(0) = "Ä³Ú¿ÀÙ"ãDIM SHARED kolors(6, 6)ãDIM SHARED REGS AS REGTYPEã'---------------------scroller "object"-------------------------------------ãTYPE scrollertypeã 'window parms (four first make a rect, don't move or modify them!)ã R1 AS INTEGER 'top left row (including frame)ã nr AS INTEGER 'number of rows (including frame)ã C1 AS INTEGER 'top left col (including frame)ã NC AS INTEGER 'number of cols (including frame)ã title AS STRING * 30ã atr AS INTEGERã 'scroller paramsã typ AS INTEGERã ã 'displayed array statusã sg AS INTEGER 'segment of the array to scroll or file numberã of AS LONG ' array offset of the first row to displayã ' file offset of first row to displayã WDTH AS INTEGER 'width of each row (very important except typ=1)ã nlin AS LONG 'number of valid linesã STARTC AS INTEGER 'first column to displayã 'current status ------- following data can not be initializedã toplin AS LONG 'ordinal of the line in top of the scrollerã sel AS LONG 'ordinal of the line currently highlightedã status AS INTEGER '0 not initã txtfptr AS LONG 'a text file needs pointer:ã 'if negative is topleft ptrã 'if positive is bottomright ptrãEND TYPEãã'scroller type constantsãCONST ScTypCLSF = 5, ScTypVLSF = 6, ScTypUDTF = 7ãCONST ScTypUNDA = 0, ScTypCLSA = 1, ScTypUDTA = 2, ScTypVLSA = 3ããã'these constants are useful to pass format to UDT scrollersãCONST scint = 1, sclong = 2, scsingle = 3, scdouble = 4, scstring = 5ãããDIM sC(1 TO 10) AS scrollertypeãDIM SHARED sctemp AS scrollertypeãDIM SHARED scst$(1 TO 10)ã'------------------------screen----------------------------------------------ãTYPE screentypeã nr AS INTEGER 'num of colsã NC AS INTEGER 'num of rowsã bytesline AS INTEGER 'bytes to skip to go to same column in next lineã mouseRscale AS INTEGER 'value to divide mouse pos to have rowsã mouseCscale AS INTEGERã pagenr AS INTEGER 'current pageã sg AS INTEGER 'segment of the display bufferã of AS LONG 'offset of the cuurent pageã pal AS INTEGERãEND TYPEãDIM SHARED skreen AS screentypeããã'create some test arrays------------------------------------------ããTYPE UDTTYPEã NAM AS STRING * 20ã AGE AS INTEGERã CREDIT AS SINGLEã destination AS STRING * 15ãEND TYPEãCONST udtreclen = 20 + 2 + 4 + 15ãããREDIM txt(1 TO 800) AS STRING * 76 'these arrays contain the items to scrollãREDIM tx$(1 TO 800) 'and are not shared by the scroller routines!ãREDIM clients(1 TO 50) AS UDTTYPEããã'use program listing to build fixed and variable length string arrays to testãOPEN "scrollbx.bas" FOR INPUT AS #1ãt = 0ãWHILE ((t < 800) AND (NOT EOF(1)))ã t = t + 1ã LINE INPUT #1, tx$(t)ã LSET txt(t) = tx$(t)ãWENDãCLOSE 1ãã'build EXAMPLEs of an array of UDT, a file of UDT and a fixed length sting fileãããf = FREEFILE: OPEN "udtfile.agv" FOR RANDOM AS #f LEN = udtreclenãFORM$ = "\ \ ### ######.# \ \"ãlen1 = LEN(FORM$)ãf1 = FREEFILE: OPEN "udtfile1.agv" FOR OUTPUT AS #f1 LEN = LEN(FORM$)ãi = 1ãFOR ii = 0 TO 1ãRESTORE CLISTãFOR iii = 1 TO 25ã READ clients(i).NAM, clients(i).AGE, clients(i).CREDIT, clients(i).destinationã PUT #f, , clients(i)ã PRINT #f1, USING FORM$; clients(i).NAM; clients(i).AGE; clients(i).CREDIT; clients(i).destination;ã i = i + 1ãNEXTãNEXTãCLOSE f, f1ãããCLIST:ãDATA John Doe,56,545.3, New York CityãDATA Patti Smith,43,456.34 , LondonãDATA Steven Spielberg, 61,345.3, MadridãDATA Pepe Garcia,21,123323.2, BarcelonaãDATA Nancy Davolio,34,45.78,MarrakechããDATA Francisco Garcia,37,45.34, Tel-AvivãDATA Nigel Cozens,34,5678.2, BeijingãDATA Marcos Regueiro,24,-234.43, TokioãDATA William Clinton,52,45.34,Los AngelesãDATA Agnes Agboton,37,456.9,Porto NovoããDATA Flora Franquet,23,4156.9 ,LisbonãDATA Peter Rawlins,21,4156.93, La HabanaãDATA Antoni Villalta,45,23.2, HoustonãDATA Carlos Indalecio,35,341.2, TegucigalpaãDATA Uma Thurman,47,-2354.3, Mauritius IslandsããDATA Jordi Pujol,65,357.5,CanberraãDATA Jean-Pierre Palacios,34,65.45,BangkokãDATA Eudald Carbonell,53,3121.1,DamascusãDATA Jack Daniels,35,343.1,AnchorageãDATA Cristina Sopena ,76,678.54,AmsterdamããDATA Miguel Lopez,56,345.2,RomeãDATA Ana Maria Sanchez,32,4567.4,BudapestãDATA Antoni Gual,45,2323.2,RawalpindiãDATA Teresa Lluis,37,48754.1,JohannesburgãDATA Pilar Pallares,67,384.17,Dakarããããããã'init screen and screen values array -----------------------------------------ãCONST palettenr = 3ãInitGUIãã'use sctemp to init scroller's parameters------------------------------------ãã'init a text file scrollerã' needs an open file number to be passed to itãã'title and typeãsctemp.title = "Text File Scroller": sctemp.typ = ScTypVLSFã'window size and posãsctemp.nr = 14: sctemp.NC = 35: sctemp.R1 = 1: sctemp.C1 = 1ã'ptr to fileãf = FREEFILE: OPEN "scrollbx.bas" FOR INPUT AS #fãsctemp.sg = f: sctemp.of = 1: sctemp.WDTH = 0: sctemp.nlin = tãnum1 = GUIScrollBox(0, 1, 0)ãã'init a constant length string array scrollerãsctemp.title = "Fixed Length String Array": sctemp.typ = ScTypCLSAãsctemp.nlin = t: sctemp.nr = 14: sctemp.NC = 35: sctemp.R1 = 17: sctemp.C1 = 2ãsctemp.sg = VARSEG(txt(1)): sctemp.of = VARPTR(txt(1)): sctemp.WDTH = LEN(txt(1))ãnum2 = GUIScrollBox(0, 1, 0)ãã'init a variable length string array scrollerãsctemp.title = "Variable Length String Array": sctemp.typ = ScTypVLSAãsctemp.nr = 14: sctemp.NC = 35: sctemp.R1 = 33: sctemp.C1 = 3ãsctemp.sg = VARSEG(tx$(1)): sctemp.of = VARPTR(tx$(1))ãnum3 = GUIScrollBox(0, 1, 0)ããã'init a record array scrollerãsctemp.title = "Record Array": sctemp.typ = ScTypUDTAãsctemp.nr = 14: sctemp.C1 = 38: sctemp.R1 = 1: sctemp.NC = 38ãsctemp.nlin = 50ãsctemp.sg = VARSEG(clients(1)): sctemp.of = VARPTR(clients(1)):ãsctemp.WDTH = udtreclenãnum4 = GUIScrollBox(0, 1, 0)ãã'records need a more init: you must pass the UDT def and the display formatã'encoded in a string.ããb$ = "\ \ ":ã'first field is a string has 20 ch. will be displayed USING B$ãscst$(num4) = CHR$(scstring) + CHR$(20) + CHR$(LEN(b$)) + b$ããb$ = "### "ã'second field is an INT will be displayed USING B$ãscst$(num4) = scst$(num4) + CHR$(scint) + CHR$(LEN(b$)) + b$ããb$ = "######.## "ã'third field is a SINGLE will be displayed USING B$ãscst$(num4) = scst$(num4) + CHR$(scsingle) + CHR$(LEN(b$)) + b$ããb$ = "\ \":ã'LAST field is a string has 15ch. will be displayed USING B$ãscst$(num4) = scst$(num4) + CHR$(scstring) + CHR$(15) + CHR$(LEN(b$)) + b$ãdummy = GUIScrollBox(num4, 5, 0)ãããã'init a record file scroller(needs an open file number to be passed to it)ãã'header and typeãsctemp.title = "Record file": sctemp.typ = ScTypUDTFãã'window and posãsctemp.C1 = 39: sctemp.R1 = 17: sctemp.NC = 37ãã'file: always open files to scoll as binariesãf = FREEFILE: OPEN "udtfile.agv" FOR BINARY AS #fãsctemp.sg = f: sctemp.of = 1: sctemp.WDTH = udtreclenãã'initãnum5 = GUIScrollBox(0, 1, 0)ãã'reuse the format description we've buildãscst$(num5) = scst$(num4)ãã'displayãdummy = GUIScrollBox(num5, 5, 0)ããã'init a fixed length string file scroller(needs an open file number to be passed to it)ãã'header and typeãsctemp.title = "Fixed Length string file": sctemp.typ = ScTypCLSFãã'window and posãsctemp.C1 = 40: sctemp.R1 = 33: sctemp.NC = 37ãã'file: always open files to scoll as binariesãf = FREEFILE: OPEN "udtfile1.agv" FOR BINARY AS #f LEN = len1ãsctemp.sg = f: sctemp.of = 1: sctemp.WDTH = len1ã'initãnum6 = GUIScrollBox(0, 1, 0)ãã'---------------------------------------------------------------------------ãããLOCATE 50, 1: PRINT "Up/Dn PgUp/PgDn Home/End scroll, Tab/Sh+Tab change win, Enter select, Esc quit";ãwin = 1ãã'main loop-------------------------------------------------------------------ãDOã k$ = INKEY$ã IF LEN(k$) THENã KEYCODE = ASC(RIGHT$(k$, 1)): IF ASC(k$) = 0 THEN KEYCODE = -KEYCODEã ELSEã KEYCODE = 0ã END IFã SELECT CASE KEYCODEã CASE ktab: win = win + 1: KEYCODE = 0ã CASE kctltab: win = win - 1: KEYCODE = 0ã END SELECTã IF win > 6 THEN win = 1ã IF win < 1 THEN win = 6ãã selected = GUIScrollBox(win, 0, 0) 'call scroller to do the work!ãLOOP UNTIL selectedãCLOSEã'display results-------------------------------------------------------------ãCLOSEãSELECT CASE winãCASE 1ã a$ = "Text File"ãCASE 2ã a$ = "Fixed length text Array"ãCASE 3ã a$ = "Dynamic string Array"ãCASE 4ã a$ = "UDT Array"ãCASE 5ã a$ = "UDT File"ãCASE 6ã a$ = "Fixed length text file"ããEND SELECTãSELECT CASE selectedãCASE &H8000ã b$ = "escape on"ãCASE IS < 0ã b$ = "space on line " + STR$(-selected) + " of"ãCASE IS > 0ã b$ = "ENTER on line " + STR$(selected) + " of"ãEND SELECTãCOLOR 2, 0: CLS : PRINT "You hit " + b$; " window "; a$ãENDããã'----------------------error handling--------------------------------------ãdiskreadyerror: errata% = ERR: RESUME NEXTãã'----------------------DATA-------------------------------------------------ãborders:ãDATA "±±±±±±"ãDATA "Ä³Ú¿ÀÙ"ãDATA "ÍºÉ»È¼"ãDATA "-|++++"ãDATA "@@@"ããcolors:ã'0= normal textã'1= active cursorã'2= inactive cursorã'3= title,window header,hilighted menu itemã'4= boxesã'back/foreã' 0 1 2 3 4 5 6ãDATA &h30,&h1F,&h3F,&h4F,&h10,&h00,&h00ãDATA &h70,&h2F,&h73,&h4F,&h12,&h00,&h00ãDATA &h17,&h4F,&h1C,&h3F,&h17,&h00,&h00ããFUNCTION GUIScrollBox% (N%, comm%, value%)ã 'scrolls a fixed length string array passed as a parameterã 'all init params must be passed in the sctemp scrollertype variableã 'r1,c1,nr,cr,seg,ofs,wdth,nlin,startc must be passedã 'n=num of box to scrollã 'comm=0 move cursor returns key pressedã 'comm=1 create, without saving bg, returns scroller numã 'comm=2 create, saving bg ,returns scroller numã 'comm=3 focus offã 'comm=4 focus onã 'comm=5 redrawã 'comm=6 killã 'value not usedã 'returnsã ' the line number if enter pressed,ã ' minus line number if space pressed (can be used externaly to mark a line)ã ' &h8000 if escape pressedã '------------------------------------------------------------------------ã SHARED sC() AS scrollertypeã DIM oldsel AS LONG, oldtop AS LONGã STATIC oldnum, RS, cs, buf$, l$ã IF RS = 0 THEN l$ = SPACE$(5)ã IF N THEN IF sC(N).R1 = 0 THEN EXIT FUNCTIONã SELECT CASE commã CASE 3ã VIDEORect vrrecolor, sC(N).R1 + 1 + sC(N).sel - sC(N).toplin, sC(N).C1 + 1, 1, sC(N).NC, kolors(2, 0), 0ã CASE 4ã VIDEORect vrrecolor, sC(N).R1 + 1 + sC(N).sel - sC(N).toplin, sC(N).C1 + 1, 1, sC(N).NC, kolors(1, 0), 0ã CASE 0ã IF N% <> oldnum THENã 'call recursively GUIScrollBox to change cursors to indicate focus changeã FOR i = 1 TO UBOUND(sC, 1)ã IF i <> N% THENã dummy = GUIScrollBox(i, 3, 0)ã ELSEã dummy = GUIScrollBox(i, 4, 0)ã END IFã NEXTã END IFã IF KEYCODE = 0 THEN EXIT FUNCTIONã IF N% <> oldnum THEN : RS = sC(N).R1 + 1: cs = sC(N).C1 + 1: buf$ = SPACE$(sC(N).NC)ã ã 'do movesã oldnum = Nã oldsel = sC(N).selã oldtop = sC(N).toplinã SELECT CASE KEYCODEã CASE kupã KEYCODE = 0ã IF sC(N).sel > 1 THEN sC(N).sel = sC(N).sel - 1ã IF sC(N).sel < sC(N).toplin THEN sC(N).toplin = sC(N).selã scroll = sC(N).toplin - oldtopã CASE kdownã KEYCODE = 0ã IF sC(N).sel < sC(N).nlin THEN sC(N).sel = sC(N).sel + 1ã IF sC(N).sel > (sC(N).toplin + (sC(N).nr - 1)) THEN sC(N).toplin = sC(N).sel - sC(N).nr + 1ã scroll = sC(N).toplin - oldtopã CASE kpgupã KEYCODE = 0ã sC(N).toplin = sC(N).toplin - sC(N).nr: sC(N).sel = sC(N).sel - sC(N).nrã IF sC(N).toplin < 1 THEN sC(N).toplin = 1ã IF sC(N).sel < 1 THEN sC(N).sel = 1ã scroll = sC(N).toplin - oldtopã CASE kpgdnã KEYCODE = 0ã sC(N).toplin = sC(N).toplin + sC(N).nr: sC(N).sel = sC(N).sel + sC(N).nrã IF sC(N).toplin >= sC(N).nlin - sC(N).nr + 1 THEN sC(N).toplin = sC(N).nlin - sC(N).nr + 1ã IF sC(N).toplin < 0 THEN sC(N).toplin = 0ã IF sC(N).sel >= sC(N).nlin THEN sC(N).sel = sC(N).nlinã scroll = sC(N).toplin - oldtopã 'CASE KLEFTã ' KEYCODE = 0ã ' IF SC(N).STARTC > 0 THEN SC(N).STARTC = SC(N).STARTC - 1ã 'CASE KRIGHTã ' KEYCODE = 0ã ' IF SC(N).STARTC < SC(N).WDTH - SC(N).NC - 1 THEN SC(N).STARTC = SC(N).STARTC + 1ã CASE KHOMEã KEYCODE = 0ã sC(N).toplin = 1: sC(N).sel = 1ã scroll = sC(N).nr: extra = 1ã CASE kendã KEYCODE = 0ã sC(N).sel = sC(N).nlin: sC(N).toplin = sC(N).sel - sC(N).nr + 1ã IF sC(N).toplin < 1 THEN sC(N).toplin = 1ã scroll = -sC(N).nr: extra = 1ã CASE kenterã KEYCODE = 0ã GUIScrollBox = sC(N).sel: EXIT FUNCTIONã CASE kspcã KEYCODE = 0ã GUIScrollBox = -sC(N).sel: EXIT FUNCTIONã CASE kescã KEYCODE = 0: GUIScrollBox = &H8000: EXIT FUNCTIONã END SELECTã 'scroll = sc(n).toplin - oldtopã IF ABS(scroll) > sC(N).nr THEN scroll = SGN(scroll) * sC(N).nrã GOSUB ScrllBxRedrawã CASE 1, 2 'CREATE NEW SCROLLERã 'find a free entry in the sc arrayã i = 0ã DOã i = i + 1: IF i > UBOUND(sC, 1) THEN EXIT FUNCTIONã LOOP UNTIL sC(i).R1 = 0ã N = iã 'copy window and parameters to the sc arrayã LSET sC(N) = sctempã 'init status valuesã IF sC(N).typ = ScTypVLSF THENã sC(N).txtfptr = sC(N).ofã sC(N).nlin = LOF(sC(N).sg)ã END IFã sC(N).sel = 1: sC(N).toplin = 1: buf$ = SPACE$(sC(N).NC)ã sC(N).status = 1: sC(N).STARTC = 0ã RS = sC(N).R1 + 1: cs = sC(N).C1 + 1ã 'draw borderã LSET rtemp = sC(N)ã VIDEOBox rtemp, kolors(4, 0), 0ã 'headerã b$ = StrCenter$(sC(N).title, sC(N).NC, 32)ã VIDEOPrintSO sC(N).R1, sC(N).C1 + 1, VARSEG(b$), 0, CLNG(SADD(b$)), LEN(b$), sC(N).NC, kolors(3, 0)ã 'redraw interiorã scroll = sC(N).nr: GOSUB ScrllBxRedrawã 'return index of box createdã GUIScrollBox% = Nã CASE 5 'RESETã 'reset statusã sC(N).sel = 1: sC(N).toplin = 1: buf$ = SPACE$(sC(N).NC)ã RS = sC(N).R1 + 1: cs = sC(N).C1 + 1ã 'redrawã scroll = sC(N).nr: GOSUB ScrllBxRedrawã CASE 6 'KILLã sC(N).R1 = 0ã 'if it's a get-put window, put back the background, else do nothingã END SELECTãEXIT FUNCTIONãã'this scrolls the box, by calling apropriate line routineãScrllBxRedraw:ã VIDEORect vrrecolor, RS + oldsel - oldtop, cs, 1, sC(N).NC, kolors(0, 0), 0ã IF scroll THENã VIDEORect vrscroll, sC(N).R1, sC(N).C1, sC(N).nr, sC(N).NC, scroll, 0ã IF scroll > 0 THENã t1 = sC(N).nr - scroll: t2 = sC(N).nr - 1: st = 1ã ELSEã t1 = -scroll - 1: t2 = 0: st = -1ã END IFã FOR t = t1 TO t2 STEP stã SELECT CASE sC(N).typã CASE -1: GOSUB emptylineã CASE ScTypCLSF, ScTypCLSA: GOSUB ConStrArrayLineã CASE ScTypVLSF: GOSUB VarStrFileLineã CASE ScTypUDTA, ScTypUDTF, 5: GOSUB UDTArrayLineã CASE ScTypVLSA: GOSUB VarStrArrayLineã END SELECTã VIDEOPrintSO RS + t, cs, sg1, temp2&, sC(N).STARTC, l1, sC(N).NC, kolors(0, 0)ã NEXTã END IFã 'LOCATE sC(N).R1, sC(N).C1ã 'RSET l$ = STR$(sC(N).sel): PRINT l$;ã VIDEORect vrrecolor, RS + sC(N).sel - sC(N).toplin, cs, 1, sC(N).NC, kolors(1, 0), 0ã oldtop = sC(N).toplin: oldsel = sC(N).selãRETURNãã'these are the subs that build the lines sent to screenããUDTArrayLine:ã 'DEV\NUL formatting trick courtesy of Ethan Winer's ibookã temp2& = sC(N).of& + (sC(N).toplin + t - 1) * sC(N).WDTHã sg& = sC(N).sgã IF sC(N).typ = ScTypUDTF THENã b$ = SPACE$(sC(N).WDTH)ã SEEK sC(N).sg, temp2&ã GET #sC(N).sg, , b$ã temp2& = SADD(b$)ã sg& = VARSEG(b$)ã END IFã i = 1: LSET buf$ = "": bufptr = 1ã WHILE i < LEN(scst$(N))ã d = ASC(MID$(scst$(N), i)): i = i + 1ã IF d = 5 THEN sz = ASC(MID$(scst$(N), i)): i = i + 1ã scrlen = ASC(MID$(scst$(N), i)): i = i + 1ã FORM$ = MID$(scst$(N), i, scrlen)ã null = FREEFILE: OPEN "\DEV\NUL" FOR RANDOM AS null LEN = 255ã DEF SEG = sg&ã SELECT CASE dã CASE 1: sz = 2: PRINT #null, USING FORM$; CVI(CHR$(PEEK(temp2&)) + CHR$(PEEK(temp2& + 1)))ã CASE 2: sz = 4: PRINT #null, USING FORM$; CVL(CHR$(PEEK(temp2&)) + CHR$(PEEK(temp2& + 1)) + CHR$(PEEK(temp2& + 2)) + CHR$(PEEK(temp2& + 3)))ã CASE 3: sz = 4: PRINT #null, USING FORM$; CVS(CHR$(PEEK(temp2&)) + CHR$(PEEK(temp2& + 1)) + CHR$(PEEK(temp2& + 2)) + CHR$(PEEK(temp2& + 3)))ã CASE 4: sz = 8: d$ = SPACE$(sz)ã FOR j = 1 TO sz: MID$(d$, j, 1) = CHR$(PEEK(temp2& + j - 1)): NEXTã PRINT #null, USING FORM$; CVD(d$)ã CASE 5: d$ = SPACE$(sz)ã FOR j = 1 TO sz: MID$(d$, j, 1) = CHR$(PEEK(temp2& + j - 1)): NEXTã PRINT #null, USING FORM$; d$ã END SELECTã LINE INPUT #null, c$ã CLOSE null 'flush would be enough but QB does'nt have itã MID$(buf$, bufptr, scrlen) = c$: bufptr = bufptr + scrlenã temp2& = temp2& + szã i = i + scrlenã WENDã sg1 = VARSEG(buf$): temp2& = SADD(buf$): l1 = LEN(buf$)ã ãRETURNããã'I think it will not work in PDSãVarStrArrayLine:ã temp& = sC(N).of + (sC(N).toplin + t - 1) * 4ã DEF SEG = sC(N).sgã l1 = PEEK(temp&) + 256& * PEEK(temp& + 1)ã temp2& = PEEK(temp& + 2) + 256& * PEEK(temp& + 3)ã DEF SEGã sg1 = sC(N).sgãRETURNããemptyline:ã LSET buf$ = ""ã sg1 = VARSEG(buf$): temp2& = SADD(buf$): l1 = LEN(buf$)ãRETURNããConStrArrayLine:ã temp2& = sC(N).of& + CLNG(sC(N).toplin + t - 1) * sC(N).WDTHã sg1 = sC(N).sg: l1 = sC(N).WDTHã IF sC(N).typ = ScTypCLSF THENã b$ = SPACE$(sC(N).WDTH)ã SEEK #sC(N).sg, temp2&: GET #sC(N).sg, , b$ã temp2& = SADD(b$): sg1 = VARSEG(b$)ã END IFãRETURNããVarStrFileLine:ãIF scroll > 0 THENã IF extra = 1 THEN extra = 0: sC(N).txtfptr = 1ã IF sC(N).txtfptr < 0 THENã FOR ii = 1 TO sC(N).nrã IF SEEK(sC(N).sg) = LOF(sC(N).sg) THEN sC(N).txtfptr = LOF(sC(N).sg): RETURNã LINE INPUT #sC(N).sg, b$: sC(N).txtfptr = SEEK(sC(N).sg)ã NEXTã END IFã SEEK sC(N).sg, sC(N).txtfptr:ã IF NOT EOF(sC(N).sg) THENã LINE INPUT #sC(N).sg, b$ã sC(N).txtfptr = SEEK(sC(N).sg)ã END IFã sg1 = VARSEG(b$): temp2& = SADD(b$): l1 = LEN(b$)ã ELSEã IF extra = 1 THEN extra = 0: sC(N).txtfptr = -LOF(sC(N).sg)ã IF sC(N).txtfptr > 0 THENã FOR ii = 1 TO sC(N).nrã IF SEEK(sC(N).sg) < sC(N).of THEN sC(N).txtfptr = -sC(N).of: RETURNã LINEbINPUT sC(N).sg, b$: sC(N).txtfptr = -SEEK(sC(N).sg)ã NEXTã END IFã SEEK sC(N).sg, -sC(N).txtfptr: LINEbINPUT sC(N).sg, b$ã sC(N).txtfptr = -SEEK(sC(N).sg)ã sg1 = VARSEG(b$): temp2& = SADD(b$): l1 = LEN(b$)ãEND IFãRETURNããEND FUNCTIONããREM $STATICãSUB InitGUIã'simply sets screen to 80 x 50, init some variables, reads colorsãCOLOR 15, 0: WIDTH , 50: CLSãskreen.NC = 80ãskreen.nr = 50ãskreen.bytesline = 160ãskreen.pagenr = 0ãskreen.sg = &HB800ãskreen.pal = 0ãDEF SEG = &H40ãskreen.of = 256& * PEEK(&H4F) + PEEK(&H4E)ãDEF SEGãã'DetectWinTempããRESTORE colorsãFOR j = 1 TO 3ã FOR i = 0 TO 6ã READ kolors(i, j)ã NEXTãNEXTããFOR i = 0 TO 6ã kolors(i, 0) = kolors(i, palettenr)ãNEXTããEND SUBããSUB LINEbINPUT (f, a$)ã'returns previous line in a text file and set cursor at beggining of returnedã'line. If length of line >constant lol, it will hook to the current line..ã'used by the text file scroller to scroll backãCONST lol = 300ãtmp& = SEEK(f)ãIF tmp& = 1 THEN EXIT SUBãtmp1& = tmp& - lolãIF tmp1& < 1 THEN tmp1& = 1ãSEEK f, tmp1&ãDOã tmp1& = SEEK(f)ã LINE INPUT #f, a$ãLOOP UNTIL SEEK(f) >= tmp&ãSEEK f, tmp1&ããEND SUBããSUB scrllBxIdeasã' headersã'ok standard attributesã' move keys loop outsideã' mouseã'ok make scroll faster by using int 10Hã' scrollbarã'ok find a scroll mode for text files where speed is not dependant onã' how far pointer is on textã'ok implement scroll of text mode files window by windowã' files should not need nr of lines parameterã' provide a solution for arrays/files not filling the windowã' maybe we could implement buffered line input?ã' expand tabsãã'ok unlimited text filesã'ok option udtã'ok option records fileã'ok option variable length stringã' use array descriptors to avoid passing width and nlin paramsãEND SUBããFUNCTION StrCenter$ (b$, l, char)ã'makes a string of length l, fills int with char and centers b$ on itãc$ = LTRIM$(RTRIM$(b$))ãtemp = (l - LEN(c$) + 1) \ 2ãIF temp < 0 THENã StrCenter$ = MID$(c$, -temp)ãELSEã a$ = STRING$(l, char)ã MID$(a$, temp) = c$ã StrCenter$ = a$ãEND IFãa$ = "": c$ = ""ãEND FUNCTIONããSUB VIDEOBox (r AS rect, atr%, bor%)ã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã' Draws the menu-window borderã'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄã'top lineãVIDEORect vrfill, r.R1, r.C1 + 1, 1, r.NC, atr%, ASC(MID$(borders(bor%), 1, 1))ã'bottom lineãVIDEORect vrfill, r.R1 + r.nr + 1, r.C1 + 1, 1, r.NC, atr%, ASC(MID$(borders(bor%), 1, 1))ã'left lineãVIDEORect vrfill, r.R1 + 1, r.C1, r.nr, 1, atr%, ASC(MID$(borders(bor%), 2, 1))ã'right lineãVIDEORect vrfill, r.R1 + 1, r.C1 + r.NC + 1, r.nr, 1, atr%, ASC(MID$(borders(bor%), 2, 1))ãVIDEORect vrfill, r.R1, r.C1, 1, 1, atr%, ASC(MID$(borders(bor%), 3, 1))ãVIDEORect vrfill, r.R1, r.C1 + r.NC + 1, 1, 1, atr%, ASC(MID$(borders(bor%), 4, 1))ãVIDEORect vrfill, r.R1 + r.nr + 1, r.C1, 1, 1, atr%, ASC(MID$(borders(bor%), 5, 1))ãVIDEORect vrfill, r.R1 + r.nr + 1, r.C1 + r.NC + 1, 1, 1, atr%, ASC(MID$(borders(bor%), 6, 1))ããEND SUBããSUB VIDEOGETPUT (a%(), page, R1, C1, nr, NC, ORD)ã'THIS IS A GET-PUT FOR SCREEN 0ã'----------------------------------------------------------------------------ã'order 1 save screen to arrayã' 0 put array to screen, PRESERVING ITã' -1 put to screen and erase arrayã'You can specify r1, c1 when putting.ã'array has to be dynamic, as it will be redimmedããSELECT CASE ORDãCASE 1: 'GETã IF nr = 0 OR NC = 0 THEN EXIT SUBã size = NC * nr * 2 \ 2 + 1ã REDIM a%(0 TO size)ã aseg = VARSEG(a%(0))ã DEF SEG = VARSEG(a%(0)): i = VARPTR(a%(0)):ã POKE i, R1: i = i + 1: POKE i, C1: i = i + 1ã POKE i, nr: i = i + 1: POKE i, NC: i = i + 1ã PTR1 = skreen.ofã FOR j = 0 TO nr - 1ã ptr = PTR1ã FOR k = 0 TO NC - 1ã DEF SEG = TXTsCRNSEGã b = PEEK(ptr): ptr = ptr + 1ã c = PEEK(ptr): ptr = ptr + 1ã DEF SEG = asegã POKE i, b: i = i + 1ã POKE i, c: i = i + 1ã NEXTã PTR1 = PTR1 + scr.maxc * 2ã NEXTã DEF SEGãCASE -1, 0: 'PUTã IF UBOUND(a%, 1) < 2 THEN EXIT SUBã aseg = VARSEG(a%(0))ã DEF SEG = aseg: i = VARPTR(a%(0))ã R11 = PEEK(i): i = i + 1: C11 = PEEK(i): i = i + 1ã nr = PEEK(i): i = i + 1: NC = PEEK(i): i = i + 1ã IF R1 = 0 THEN R1 = R11ã IF C1 = 0 THEN C1 = C11ã PTR1 = skreen.ofã FOR j = 0 TO nr - 1ã ptr = PTR1ã FOR k = 0 TO NC - 1ã DEF SEG = VARSEG(a%(0))ã b = PEEK(i): i = i + 1ã c = PEEK(i): i = i + 1ã DEF SEG = TXTsCRNSEGã POKE ptr, b: ptr = ptr + 1ã POKE ptr, c: ptr = ptr + 1ã NEXTã PTR1 = PTR1 + scr.maxc * 2ã NEXTã DEF SEGã IF ORD = -1 THEN REDIM a%(0)ãEND SELECTãããEND SUBããSUB VIDEOPrintSO (r, c, sg, of&, start, lng, NC, atr) STATICã'prints directly to screen from a mem position, aligning to left and paddingã'right with spaces. Writes to the current pageã'---------------------------------------------------------------------------ã'Needs skreen UDT to be initializedã'r,c start row and column, nc number of columnsã'sg, of& start mem position, lng mem lengthã'atr attribute to useã'---------------------------------------------------------------------------ã tmp4 = atrã seg2 = skreen.sgã seg1 = sgã tmp2& = of& + startã tmp1& = skreen.of + 2 * (skreen.NC * (r - 1) + (c - 1))ã IF NC > lng - start THEN tmp5 = lng - start ELSE tmp5 = NCã FOR i = 1 TO tmp5ã DEF SEG = seg1: tmp3 = PEEK(tmp2&)ã DEF SEG = seg2: POKE tmp1&, tmp3ã tmp1& = tmp1& + 1: POKE tmp1&, tmp4ã tmp1& = tmp1& + 1: tmp2& = tmp2& + 1ã NEXTã IF NC THENã DEF SEG = seg2ã FOR i = lng + 1 TO NCã POKE tmp1&, 32: tmp1& = tmp1& + 1ã POKE tmp1&, tmp4: tmp1& = tmp1& + 1ã NEXTã END IFã DEF SEGãEND SUBããSUB VIDEORect (func, R1, C1, nr, NC, atr, car)ã'scrolls, fills or changes atribute of a rectangular area of screenã'----------------------------------------------------------------------------ãCONST Byte = 256&ãSELECT CASE funcã CASE vrscroll 'scrollã lines = atrã IF ABS(lines) > NC - 2 THEN lines = 0ã REGS.bx = Byte * kolors(0, 0)ã REGS.cx = Byte * R1 + C1ã REGS.dx = Byte * (R1 + nr - 1) + (C1 + NC - 1)ãã SELECT CASE SGN(lines)ã CASE 0: REGS.ax = &H600ã CASE 1: REGS.ax = Byte * 6 + ABS(lines)ã CASE -1: REGS.ax = Byte * 7 + ABS(lines)ã END SELECTã CALL interrupt(&H10, REGS, REGS)ã ã CASE vrfill, vrrecolor 'fill, change atributeã tmp2& = skreen.of + 2 * (skreen.NC * (R1 - 1) + (C1 - 1))ã tmp1& = tmp2&ã DEF SEG = skreen.sgã FOR j = 1 TO nrã FOR i = 1 TO NCã IF func = vrfill THEN POKE tmp1&, carã tmp1& = tmp1& + 1: POKE tmp1&, atr: tmp1& = tmp1& + 1ã NEXTã tmp2& = tmp2& + skreen.bytesline: tmp1& = tmp2&ã NEXTã DEF SEGã END SELECTãEND SUBãAntoni Gual FAST JPEG VIEWER FOR SVGA agual@eic.ictnet.es 12-24-99 (15:48) QB,PDS 1487 42644 Jpegv4.bas '===========================================================================ã' Subject: FAST JPEG VIEWER FOR SVGA Date: 12-24-99 (15:48) ã' Author: Antoni Gual Code: QB, PDS ã' Origin: agual@eic.ictnet.es Packet: GRAPHICS.ABCã'===========================================================================ãDECLARE SUB svgappgrey (x%, y%, lum%)ãDECLARE SUB SVGAGetData ()ãDECLARE FUNCTION SVGASelectMode% ()ãDECLARE SUB SVGAPPixel (x%, y%, r%, g%, b%)ãDECLARE SUB JPEGViewParms ()ãDECLARE FUNCTION NxtBit% ()ãDECLARE SUB JPEGGetParms (jfile%)ãDECLARE FUNCTION filesel$ (prompt$, match%, ext$)ãDECLARE SUB JPEGGet8x8 (vector%(), HuffDcNum%, HuffACNum%, quantNum%, dcCoef%, viw%)ãDECLARE SUB SelectVGAMode (rb%, gg%)ãDECLARE FUNCTION JPEGGetByte% ()ãDECLARE FUNCTION SVGASetMode% (MODE%)ãDECLARE SUB SVGAPrint (cad$, x%, y%, r%, g%, b%)ãDECLARE SUB JPEGPut (jfile%, x0%, y0%)ãã'............................................................................ã'FAST! JPEG Viewer for SVGA by Antoni Gualã'ã'Original program by Dmitry Brantã'ã'IMPORTANT:ã' -This program will run only if you have a SVGA card VESA compatible with atã' least 0.5 Mb memory.ã' -Some resolutions available in your video card could need scan fequenciesã' out of the range of your monitor. Try using uour card's software to reduceã' the refresh frequency of the image.ã' -Some old cards are VESA 1.0 compatible. They use propietary hicolor modesã' different than standard VESA 1.2 and 2, so the colors displayed could notã' be very real. In these cases you could try the 8 pixel modes..ãã'The ABC packets give me oportunity of learning about new issues in programmingã'by analyzing the work of other people.ã'When the issue is as complicated as is the JPG format, the snippets must beã'exceptionally well coded and self-explaining, as Dmitry's was.Thanks, Dmitry!ã'Well, to get rid of the bugs I've created, I also had to read a lot ofã'format specs for JPEG found in www.wotsit.com...ãã'Why I send a recoding of the same program? Well, here are the features:ã'ã'- No libraries, only interrupt calls. Not a line of assembler!.ã' It can be run in QBasic, if previously source is processedã' with the interrupt translator by Mark Andryk (in INTERRUPT.ABC).ã'ã'- Auto detects suitable SVGA modes.ã' As most SVGA cards achieve their higher resolutions using 8 bits/pixel andã' a palette (as Mode 13), these modes are available.ã' In these modes, the user has two options, display black/ and white orã' approximative color.ã'ã'- Displays color in all 15,16,24 and 32 bits direct color VESA modes.ã'ã'- Uses 8bits modes to display fast the monochrome images or aproximative color.ã'ã'- Displays the JPEG file parameters.ã'ã'- "User friendly" file selection. The same old routine...ã'ã'- Auto-centers the image, even if thatïs bigger than the chosen screen.ã'ã'- The parts of the image not displayed are skipped fast.ã'ã'- Is 10 times faster than the original program!ã' I achieved a x3 increase of speed using the usual optimization techniques..ã' I saw the program spent a 80% of his time calculating the DCT, so Iã' implemented the Loeffler-Ligtenbert-Moschytz algorythm I found in the Netã' (I simply translated from Pascal, I was unable to find the theory behind it.)ã' There's another algorythm still faster, the Arai-Agui-Nakajima that couldã' improve the speed a further 20%...ã' After it I've substituted the ASM VESA library of the original proogramã' with BAsic routines, so I lost a 20%-30% in speed.ã' The program, when compiled, is still 5 times slower than Paint Shop Pro 4.ã' I think one of the main reasons is the lack of bit shift instructionsã' in QB.ã'............................................................................ã' If you want to make it faster:ã' Time spent in each phase:ã' -44% getting data from file and doing Huffman decodingã' -30% calculating IDCT'sã' -20% putting pixels on SVGA screenã' - 6% in the main JPEGPut (generation of color components, interlacing)ã'ã' -Implement the Arai-Agui-Nakajima inverse DCTã' -Translate it to PowerBasic or to Turbo Pascal ;)ã'ã'............................................................................ã'Enjoy,and tell me about!ã'ã'Antoni agual@eic.ictnet.esã'ã'.............................................................................ããã'$INCLUDE: 'qb.bi'ããDEFINT A-ZãCONST TOTALBUF = 2000ãCONST dc = 0, AC = 1ããCONST VESAOK = &H4FãTYPE vesainfoblockã VESASignature AS STRING * 4ã VESAVersion AS INTEGERã OEMStringPtr AS LONGã Capabilities AS STRING * 4ã VIDEOMODEPTR AS LONGã TotalMemory AS INTEGERã Reserved AS STRING * 236ã'we manage this partã modeord AS INTEGERã modemax AS INTEGERã bytespixel AS INTEGERã Xres AS INTEGERã yres AS INTEGERã bytesrow AS LONGã bpp AS INTEGERã winsize AS LONGã winseg AS INTEGERã bw AS INTEGERãEND TYPEããTYPE vesaModeinfoBlockã Modeattributes AS INTEGERã WinAAttributes AS STRING * 1ã WinBAttributes AS STRING * 1ã WinGranularity AS INTEGERã winsize AS INTEGERã winAsegment AS INTEGERã WinBSegment AS INTEGERã WinFuncPtr AS LONGã Bytesperscanline AS INTEGERã Xres AS INTEGERã yres AS INTEGERã XCharSize AS STRING * 1ã YCharSize AS STRING * 1ã NumberOfPlanes AS STRING * 1ã bpp AS STRING * 1ã NumberOfBanks AS STRING * 1ã MemoryModel AS STRING * 1ã BankSize AS STRING * 1ã NumPages AS STRING * 1ã Rsvd AS STRING * 1ã RedMaskSize AS STRING * 1ã RedFieldPosition AS STRING * 1ã GreenMaskSize AS STRING * 1ã GreenFieldPosition AS STRING * 1ã BlueMaskSize AS STRING * 1ã BlueFieldPosition AS STRING * 1ã RsvdMaskSize AS STRING * 1ã DirectColorModeInfo AS STRING * 1ã Reserved AS STRING * 216ã 'we manage this partã MODENUM AS INTEGERã order AS INTEGERãEND TYPEãããããTYPE JpegType 'some type definitions (for coherence)ã jfifmajor AS STRING * 1ã jfifMinor AS STRING * 1ã densunits AS STRING * 1ã Xdens AS INTEGERã ydens AS INTEGERã ThWidth AS STRING * 1ã Theigth AS STRING * 1ã rows AS INTEGER 'image heightã cols AS INTEGER 'image widthã samplesy AS INTEGER 'sampling ratiosã samplescbcr AS INTEGERã qty AS INTEGER 'quantization table numbersã qtcbr AS INTEGERã HDCTY AS INTEGER 'huffman table numbersã HDCTCBR AS INTEGERã HaCTY AS INTEGERã HaCTCBR AS INTEGERã numcomp AS INTEGER 'number of componentsã restart AS INTEGERãEND TYPEããTYPE HuffmanEntry 'a type for huffman tablesã Index AS INTEGERã Code AS INTEGERã Length AS INTEGERãEND TYPEããTYPE zigzagtypeã xp AS INTEGERã yp AS INTEGERãEND TYPEãã'a few global variablesããDIM SHARED curByte, curbits, jfileãDIM buf$, ptr, endptr, find$: find$ = CHR$(255) + CHR$(0)ããREDIM SHARED display(0) AS vesaModeinfoBlockãDIM SHARED vesainfo AS vesainfoblockãDIM SHARED regs AS RegTypeXãDIM SHARED image AS JpegTypeãDIM SHARED imgcomment$ãDIM SHARED HuffTbl(0 TO 1, 0 TO 1, 0 TO 255) AS HuffmanEntryãDIM SHARED quant(0 TO 1, 0 TO 7, 0 TO 7) '2 quantization tables (Y, CbCr)ãDIM SHARED errata, sg, ofãã'-------------------init tablesãã'*** typical 2^ table...ãDIM SHARED pwrsof2(-1 TO 15), bit1(-1 TO 15)' AS LONG:ãRESTORE BITSãFOR i = -1 TO 15: READ pwrsof2(i)ãIF i = 15 THEN EXIT FORãbit1(i) = (NOT (pwrsof2(i) - 1) - 1): NEXTãbit1(15) = &H8001ãã'*** program gets zigzag values from an array, faster than read it each timeãDIM SHARED zz(0 TO 63) AS zigzagtypeãRESTORE zig2: FOR i = 0 TO 63: READ zz(i).xp, zz(i).yp: NEXTãã'locate charmap in bios (SVGAPrint)ã regs.AX = &H1130ã regs.bx = 6 * 256ã CALL INTERRUPTX(&H10, regs, regs)ã sg = regs.ESã of = regs.bpããã'--------- A demonstration ----------ããSCREEN 0: CLSãSVGAGetDataããDOã ã SCREEN 7: WIDTH 80, 50: CLSã f$ = filesel("Select a JPEG file to view", 1, "jpg")ã jfile = 1ã OPEN f$ FOR BINARY AS #jfileã endptr = TOTALBUF: buf$ = SPACE$(endptr): ptr = endptr + 1ã JPEGGetParms jfileã JPEGViewParmsã a$ = UCASE$(INKEY$)ã IF a$ = "Y" THENã SCREEN 0: WIDTH , 50: CLSã fail = SVGASelectModeã ã y0 = ((display(vesainfo.modeord).yres - image.rows) \ 16) * 8ã x0 = ((display(vesainfo.modeord).Xres - image.cols) \ 16) * 8ã IF y0 < 0 THENã SVGAPrint "The centered image is bigger than the screen", 16, 0, 255, 255, 255ã SVGAPrint "JPEG images must be decoded from the beggining", 32, 0, 255, 255, 255ã SVGAPrint "Be patient until image starts to show.", 48, 0, 255, 255, 255ã SVGAPrint "Please wait....or press Escape to exit.", 64, 0, 255, 255, 255ã END IFã time! = TIMERã JPEGPut jfile, x0, y0ã CLOSE #jfileã time! = TIMER - time!ã BEEP: r$ = INPUT$(1)ã SVGAPrint "Time: " + STR$(time!) + " sec.", 90, 0, 255, 255, 255ã DO: r$ = INKEY$: LOOP UNTIL LEN(r$)ã a = SVGASetMode(3)ã ã ELSEã CLOSE #jfileã END IFã SCREEN 0, , 0, 0: WIDTH , 50ã CLS : LOCATE 25, 1: PRINT "Another File? [Y/N].."ã r$ = UCASE$(INPUT$(1))ã ãLOOP UNTIL r$ = "N"ãENDã'--------- End of Demo ----------ãã'error handlersããFileSelError: errata = ERR: RESUME NEXTãããANYERROR: SCREEN 7: CLS : CLOSE : RESUMEããJPEGGetErrors:ã SCREEN 7: CLSã CLOSEã SELECT CASE ERRã CASE 99: PRINT "Not a Valid JPEG/JFIF file"ã CASE 100: PRINT "Only 8x8 samples supported"ã CASE 101: PRINT "Arithmetic coding not supported"ã CASE 102: PRINT "End of Image Found"ã CASE 103: PRINT "Error Getting SoS marker"ã CASE 104: PRINT "Unexpected file format"ã CASE 105: PRINT "16 bits Quantization tables not supported"ã CASE 106: PRINT "Not a JFIF format"ã CASE ELSE: PRINT "Error "; ERR; "While getting JPEG parameters"ã END SELECTãENDããã'------------data------------------ããBITS:ãDATA 0,1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384,-32768ãããzig2: 'Zigzag patterns for reordering quantization tables and vectorsãDATA 0,0ãZigzagPositions:ãDATA 0,1,1,0ãDATA 2,0,1,1,0,2ãDATA 0,3,1,2,2,1,3,0ãDATA 4,0,3,1,2,2,1,3,0,4ãDATA 0,5,1,4,2,3,3,2,4,1,5,0ãDATA 6,0,5,1,4,2,3,3,2,4,1,5,0,6ãDATA 0,7,1,6,2,5,3,4,4,3,5,2,6,1,7,0ãDATA 7,1,6,2,5,3,4,4,3,5,2,6,1,7ãDATA 2,7,3,6,4,5,5,4,6,3,7,2ãDATA 7,3,6,4,5,5,4,6,3,7ãDATA 4,7,5,6,6,5,7,4ãDATA 7,5,6,6,5,7ãDATA 6,7,7,6ãDATA 7,7ããFUNCTION filesel$ (prompt$, match%, ext$) 'User friendly file selectorã'............................................................................ã'SELF-CONTAINED FILE SELECTOR FUNCTION by Antoni Gual (agual@eic.ictnet.es)ã'ã'params: prompt$>> the prompt ttat is displayedã' match% >> on input: 1=> filename must exist 0=> must not existã' on output:1=> filename does exist 0=> does not existã' ext$ >> default extensionã'ã'--to use it copy this function to your programã'--add:ã'ã' '$INCLUDE 'QB.BI'ã' DIM SHARED errata as INTEGERã'ã'--AT THE START OF YOUR PROGRAM ANDã'ã' FileSelError:errata=err:resume nextã'ã'--AFTER THE END OF THE MAIN PROGRAMã'WARNING: This function changes the default dir to where the file is.ã'............................................................................ã 'error messagesã CONST pak$ = ". Press a key.."ã CONST pnf$ = "Path not Found"ã CONST ddne$ = "Drive does not Exist"ã CONST dnr$ = "Drive not ready. [Retry/Abort]"ã CONST fdne$ = "File not found"ã CONST ifn$ = "Invalid File Name"ã CONST idn$ = "Invalid Drive Name"ã CONST pfe$ = "Path-file error"ã ff$ = ""ã filnum = FREEFILEã 'screen reset, start error handlerã VIEW PRINT: COLOR 7, 0: CLSã ON ERROR GOTO FileSelErrorã GOSUB viewfiles: GOTO asknameãã DOã GOSUB viewfilesã 'ã 'UNCOMMENT NEXT LINE IF YOU DON'T HAVE interruptx ACCESS!!ã 'GOTO ASKPATHã 'ãaskdrive:ã COLOR 15, 4: CLSã GOSUB question: INPUT "Drive [Enter:Current]>", drive$ã 'if no input, go ask pathã IF LEN(drive$) THENãR3: IF LEN(drive$) > 2 THEN ERROR 64: GOTO BADDRIVEã DRIV% = ASC(UCASE$(drive$)) - 65ã IF DRIV% < 0 OR DRIV% > 23 THEN ERROR 64: GOTO BADDRIVEã regs.AX = &HE00: regs.dx = DRIV%ã CALL INTERRUPTX(&H21, regs, regs)ã 'probably the drive we asked for does'nt existã regs.AX = &H1900ã CALL INTERRUPTX(&H21, regs, regs)ã IF (regs.AX AND &HFF) <> DRIV% THEN ERROR 68ãBADDRIVE: SELECT CASE errataã CASE 64:ã msgerr$ = idn$ + pak$: GOSUB errmsg: GOTO askdriveã CASE 68: msgerr$ = ddne$ + pak$: GOSUB errmsg: GOTO askdriveã CASE 71: msgerr$ = dnr$: GOSUB errmsg: IF a$ = "R" THEN GOTO R3 ELSE GOTO askdriveã END SELECTã GOSUB viewfilesã END IFããaskpath:ã 'what is in? Here we trap the no disk errorã COLOR 14, 4: CLSãR4: IF errata = 71 THEN msgerr$ = dnr$: GOSUB errmsg: IF a$ = "R" THEN GOTO R4 ELSE GOTO askdriveã GOSUB question: INPUT "Path [Enter:Current]>", path$ã 'if no input go ask filenameã IF LEN(path$) THENãr1: CHDIR path$ã IF errata = 53 OR errata = 76 THEN msgerr$ = pnf$ + pak$: GOSUB errmsg: GOTO askpathã IF errata = 71 THEN msgerr$ = dnr$: GOSUB errmsg: IF a$ = "R" THEN GOTO r1 ELSE GOTO askdriveã GOSUB viewfilesã END IFãaskname:ã COLOR 7, 4: CLSã GOSUB question: INPUT "File [Enter:New path]>", name$ã IF LEN(name$) = 0 GOTO r6ã IF LEN(ext$) THENã temp = INSTR(name$, ".")ã IF temp THENã name$ = LEFT$(name$, temp - 1) + "." + ext$ã ELSEã name$ = name$ + "." + ext$ã END IFã END IFã 'does it exist?ãR2: OPEN name$ FOR INPUT AS #filnumã SELECT CASE errataã CASE 76: msgerr$ = pnf$ + pak$: GOSUB errmsg: GOTO asknameã CASE 53:ã IF match = 1 THENã LOCATE 2, 1: msgerr$ = fdne + pak$: GOSUB errmsg: GOTO asknameã ELSEã ff$ = " NOT ": GOTO outofthereã END IFã CASE 64: LOCATE 2, 1: msgerr$ = ifn$ + pak$: GOSUB errmsg: GOTO asknameã CASE 71: msgerr$ = dnr$: GOSUB errmsg: IF a$ = "R" THEN GOTO R2 ELSE GOTO askdriveã CASE 75: msgerr$ = pfe$ + pak$: GOSUB errmsg: GOTO asknameã END SELECTãr5: CLOSE #filnumãr6:ã LOOP UNTIL LEN(name$)ããoutofthere:ã 'file exists: returnã msgerr$ = "File " + UCASE$(name$) + ff$ + " found.." + pak$: GOSUB errmsgã VIEW PRINT: COLOR 7, 0: CLSã IF LEN(ff$) THEN match% = 0 ELSE match = 1ã filesel$ = name$ã ON ERROR GOTO 0ãEXIT FUNCTIONããviewfiles:ã VIEW PRINT 3 TO 25: COLOR 7, 0: CLS :ã 'IF LEN(ext$) THEN a$ = "*." + ext$ ELSE a$ = ""ã FILES 'a$ã VIEW PRINT 1 TO 2:ãRETURNããquestion:ã LOCATE 1, 1: PRINT SPACE$(80): LOCATE 1, 1: PRINT prompt$ + "? -->Select ";ãRETURNããerrmsg:ã LOCATE 2, 1: PRINT msgerr$: a$ = UCASE$(INPUT$(1)): LOCATE 2, 1: PRINT SPACE$(80)ã errata = 0ãRETURNããEND FUNCTIONããSUB ideasã' arreglar bug: a veces no empieza la imagen en su sitioã' arreglar bug: los REDIM de Get8X8 no son aceptados por QBasicã' arreglar bug. Texto timer a veces no sale en su sitioã' arreglar bug: por qu‚ color 255,255,255 de letras es amarillo y no blanco?ãã' eliminar array de resoluciones VESA,ocupa espacio in£tilmenteã' al proponer resoluciones, separar las de true/hicolor de las de paletaã' probar en 8 bits un color de 6*7*6, a ver si es mas realã' decodificar a temporal y presentar imagen en pantalla con zoom y encuadreã' funciona el rat¢n en VESA?ã' a¤adir gif ,tiff, pcx, bmp. de otros autores!ãEND SUBããSUB JPEGGet8x8 (vector(), HuffDcNum, HuffACNum, quantNum, dcCoef, viw) STATICã'reads file ,decodes, and returns a 8x8 block of a component (Y, Cb or cr)ã'erase arraysãCONST FIX029 = 2446&ãCONST FIX039 = 3196&ãCONST FIX054 = 4433&ãCONST FIX076 = 6270&ãCONST FIX089 = 7373&ãCONST FIX117 = 9633&ãCONST FIX150 = 12299&ãCONST FIX184 = 15137&ãCONST FIX196 = 16069&ãCONST FIX205 = 16819&ãCONST FIX256 = 20995&ãCONST FIX307 = 25172&ãCONST constbits = 13ãCONST PASS1BITS = 1ãREDIM vector(0 TO 7, 0 TO 7)ãDIM z1 AS LONG, z2 AS LONG, z3 AS LONG, z4 AS LONG, z5 AS LONGãDIM tmp0 AS LONG, tmp1 AS LONG, tmp2 AS LONG, tmp3 AS LONG, tmp4 AS LONGãDIM tmp5 AS LONG, tmp6 AS LONG, tmp7 AS LONG, tmp8 AS LONG, tmp9 AS LONGãDIM tmp10 AS LONG, tmp11 AS LONG, tmp12 AS LONG, tmp13 AS LONGã'GOTO dct 'test onlyã'Get the DC coefficientãhnum = HuffDcNum: tk = 0: GOSUB dekode1ãcat = dekode: GOSUB getnbits1: dcCoef = dcCoef + getnbitsãvector(0, 0) = dcCoefãã'Get AC CoefficientsãK = 1: hnum = HuffACNum: tk = 1ãDOã GOSUB dekode1ã SELECT CASE dekodeã CASE 0 'EOB Encounteredã EXIT DOã CASE 3270 'ZRL encountered 15*256+0ã K = K + 16ã CASE ELSEã K = K + dekode \ 16ã cat = dekode AND 15: GOSUB getnbits1ã 'zigzag!ã vector(zz(K).xp, zz(K).yp) = getnbitsã K = K + 1ã END SELECTãLOOP UNTIL K > 63ãã'end of file reading, the next section can be skipped if this block is not toã'be displayed!ã'EXIT SUB 'test onlyãdct:ãIF NOT viw THEN EXIT SUBãããx1& = 8& * pwrsof2(constbits + PASS1BITS)ãx2& = pwrsof2(constbits)ãx = pwrsof2(constbits - PASS1BITS)ãFOR u = 7 TO 0 STEP -1ã ã ã IF (vector(1, u) OR vector(2, u) OR vector(3, u) OR vector(4, u) OR vector(5, u) OR vector(6, u) OR vector(7, u)) = 0 THENã dcval& = vector(0, u) * quant(quantNum, 0, u) * pwrsof2(PASS1BITS)ã vector(0, u) = dcval&ã vector(1, u) = dcval&ã vector(2, u) = dcval&ã vector(3, u) = dcval&ã vector(4, u) = dcval&ã vector(5, u) = dcval&ã vector(6, u) = dcval&ã vector(7, u) = dcval&ã ã ELSEã ' { Even part: reverse the even part of the forward DCT. }ã '{ The rotator is sqrt(2)*c(-6). }ãã z2 = vector(2, u) * quant(quantNum, 2, u)ã z3 = vector(6, u) * quant(quantNum, 6, u)ãã z1 = (z2 + z3) * FIX054ã tmp2 = z1 + (z3 * -FIX184)ã tmp3 = z1 + (z2 * FIX076)ã z2 = vector(0, u) * quant(quantNum, 0, u)ã z3 = vector(4, u) * quant(quantNum, 4, u)ãã tmp0 = x2& * (z2 + z3)ã tmp1 = x2& * (z2 - z3)ãã tmp10 = tmp0 + tmp3ã tmp13 = tmp0 - tmp3ã tmp11 = tmp1 + tmp2ã tmp12 = tmp1 - tmp2ãã' { Odd part per figure 8; the matrix is unitary and hence itsã' transpose is its inverse. i0..i3 are y7,y5,y3,y1 respectively. }ãã tmp0 = vector(7, u) * quant(quantNum, 7, u)ã tmp1 = vector(5, u) * quant(quantNum, 5, u)ã tmp2 = vector(3, u) * quant(quantNum, 3, u)ã tmp3 = vector(1, u) * quant(quantNum, 1, u)ãã z1 = tmp0 + tmp3ã z2 = tmp1 + tmp2ã z3 = tmp0 + tmp2ã z4 = tmp1 + tmp3ã z5 = (z3 + z4) * FIX117ã tmp0 = tmp0 * FIX029 ' { sqrt(2) * (-c1+c3+c5-c7) }ã tmp1 = tmp1 * FIX205 ' { sqrt(2) * ( c1+c3-c5+c7) }ã tmp2 = tmp2 * FIX307 '; { sqrt(2) * ( c1+c3+c5-c7) }ã tmp3 = tmp3 * FIX150 '; { sqrt(2) * ( c1+c3-c5-c7) }ã z1 = z1 * -FIX089 ' ; { sqrt(2) * (c7-c3) }ã z2 = z2 * -FIX256 ' { sqrt(2) * (-c1-c3) }ã z3 = z3 * -FIX196 ' { sqrt(2) * (-c3-c5) }ã z4 = z4 * -FIX039 ' { sqrt(2) * (c5-c3) }ã z3 = z3 + z5ã z4 = z4 + z5ãã tmp0 = tmp0 + z1 + z3ã tmp1 = tmp1 + z2 + z4ã tmp2 = tmp2 + z2 + z3ã tmp3 = tmp3 + z1 + z4ãã ' { Final output stage: inputs are tmp10..tmp13, tmp0..tmp3 }ãã ã vector(0, u) = (tmp10 + tmp3) \ xã vector(7, u) = (tmp10 - tmp3) \ xã vector(1, u) = (tmp11 + tmp2) \ xã vector(6, u) = (tmp11 - tmp2) \ xã vector(2, u) = (tmp12 + tmp1) \ xã vector(5, u) = (tmp12 - tmp1) \ xã vector(3, u) = (tmp13 + tmp0) \ xã vector(4, u) = (tmp13 - tmp0) \ xãã END IFãNEXTã' { Pass 2: process rows from work array, store into output array. }ã' { Note that we must descale the results by a factor of 8 == 2**3, }ã' { and also undo the PASS1ããFOR v = 0 TO 7ãã' { Even part: reverse the even part of the forward DCT. }ã' { The rotator is sqrt(2)*c(-6). }ãã z2 = vector(v, 2)ã z3 = vector(v, 6)ãã z1 = (z2 + z3) * FIX054ã tmp2 = z1 + (z3 * -FIX184)ã tmp3 = z1 + (z2 * FIX076)ã tmp0 = x2& * (vector(v, 0) + vector(v, 4))ã tmp1 = x2& * (vector(v, 0) - vector(v, 4))ãã tmp10 = tmp0 + tmp3ã tmp13 = tmp0 - tmp3ã tmp11 = tmp1 + tmp2ã tmp12 = tmp1 - tmp2ãã '{ Odd part per figure 8; the matrix is unitary and hence itsã ' transpose is its inverse. i0..i3 are y7,y5,y3,y1 respectively. }ãã tmp0 = vector(v, 7)ã tmp1 = vector(v, 5)ã tmp2 = vector(v, 3)ã tmp3 = vector(v, 1)ãã z1 = tmp0 + tmp3ã z2 = tmp1 + tmp2ã z3 = tmp0 + tmp2ã z4 = tmp1 + tmp3ã z5 = (z3 + z4) * FIX117ã tmp0 = tmp0 * FIX029ã tmp1 = tmp1 * FIX205' { sqrt(2) * ( c1+c3-c5+c7) }ã tmp2 = tmp2 * FIX307ã tmp3 = tmp3 * FIX150' { sqrt(2) * ( c1+c3-c5-c7) }ã z1 = z1 * -FIX089ã z2 = z2 * -FIX256 '; { sqrt(2) * (-c1-c3) }ã z3 = z3 * -FIX196ã z4 = z4 * -FIX039 ' ; { sqrt(2) * (c5-c3) }ã z3 = z3 + z5ã z4 = z4 + z5ãã tmp0 = tmp0 + z1 + z3ã tmp1 = tmp1 + z2 + z4ã tmp2 = tmp2 + z2 + z3ã tmp3 = tmp3 + z1 + z4ãã '{ Final output stage: inputs are tmp10..tmp13, tmp0..tmp3 }ã ã vector(v, 0) = (tmp10 + tmp3) \ x1&ã vector(v, 7) = (tmp10 - tmp3) \ x1&ã vector(v, 1) = (tmp11 + tmp2) \ x1&ã vector(v, 6) = (tmp11 - tmp2) \ x1&ã vector(v, 2) = (tmp12 + tmp1) \ x1&ã vector(v, 5) = (tmp12 - tmp1) \ x1&ã vector(v, 3) = (tmp13 + tmp0) \ x1&ã vector(v, 4) = (tmp13 - tmp0) \ x1&ãNEXTããEXIT SUBããã'--------------subroutines-------------------------ããdekode1:ãcurVal = 0ãmf = -1: i = 0ãFOR l = 1 TO 16 'cycle through 16 possible Huffman lengthsã GOSUB nextbit1: IF nextbit THEN curVal = curVal OR pwrsof2(16 - l)ã DO UNTIL i > 255 'look for a match in the Huffman tableã IF HuffTbl(tk, hnum, i).Length > l THEN EXIT DOã IF HuffTbl(tk, hnum, i).Index = curVal THEN mf = i: EXIT DOã i = i + 1ã LOOPã IF mf > -1 THEN EXIT FORãNEXT lãIF i = 256 THEN ERROR 110ãdekode = HuffTbl(tk, hnum, mf).Code 'return the appropriate codeãRETURNããgetnbits1:ãtemp0 = 0: c1 = cat - 1ãFOR i = c1 TO 0 STEP -1: GOSUB nextbit1: IF nextbit THEN temp0 = temp0 OR pwrsof2(i)ãNEXTãIF temp0 AND pwrsof2(c1) THEN getnbits = temp0 ELSE getnbits = bit1(cat) + temp0ãRETURNããnextbit1:ãIF curbits < 0 THEN curbits = 7: curByte = JPEGGetByteãnextbit = curByte AND pwrsof2(curbits)ãcurbits = curbits - 1ãRETURNããEND SUBããFUNCTION JPEGGetByte STATICã'***buffered, all file access goes thru itã'gets a single byte from file. At reading, it converts the pairs FF 00 to 00'sããSHARED buf$, ptr, endptr, find$ãIF ptr > endptr THENã GET #jfile, , buf$: ptr = SADD(buf$): endptr = TOTALBUF + ptr - 1ã i0 = INSTR(buf$, find$)ã IF PEEK(endptr) = 255 THEN endptr = endptr - 1: SEEK #jfile, SEEK(jfile) - 1ã DO WHILE i0 > 0 AND i0 < endptrã MID$(buf$, i0 + 1) = MID$(buf$, i0 + 2): endptr = endptr - 1ã i0 = INSTR(i0 + 1, buf$, find$)ã LOOPãEND IFãJPEGGetByte = PEEK(ptr): ptr = ptr + 1ãEND FUNCTIONããSUB JPEGGetParms (jfile)ãDIM HuffAmount(1 TO 16)ãDIM GETword AS LONGã'ON ERROR GOTO JPEGGetErrorsãQTables = 0 'Initialize some checkpoint variablesãACTables = 0ãdctables = 0ãimage.restart = GETwordãSEEK jfile, 1ãGOSUB getword1ãIF GETword <> 65496 THEN ERROR 99ãDO 'Primary control loop for markersã IF JPEGGetByte = 255 THEN 'Marker Foundã d = JPEGGetByteã SELECT CASE d 'which one is it?ã CASE &HC0, &HC1 'SOF0ã 'get image attributesã GOSUB getword1:ã temp4& = GETword 'Length of segmentã temp0 = JPEGGetByte 'Data precisionã IF temp0 <> 8 THEN ERROR 100 'we do not support 12 or 16-bit samplesã GOSUB getword1: image.rows = GETword:ã GOSUB getword1: image.cols = GETword:ã temp0 = JPEGGetByte 'Number of componentsã FOR i = 1 TO temp0ã id = JPEGGetByteã SELECT CASE idã CASE 1ã temp1 = JPEGGetByteã image.samplesy = (temp1 AND 15) * (temp1 \ 16)ã image.qty = JPEGGetByteã CASE 2, 3ã temp1 = JPEGGetByteã image.samplescbcr = (temp1 AND 15) * (temp1 \ 16)ã image.qtcbr = JPEGGetByteã END SELECTã NEXT iã CASE &HC9 'SOF9ã ERROR 101ã CASE &HC4 'DHTã IF ACTables < 2 OR dctables < 2 THENã 'get huffman tablesã GOSUB getword1ã l0 = GETwordã c0 = 2ã DOã temp0 = JPEGGetByte: c0 = c0 + 1ã t0 = (temp0 AND 16) \ 16ã temp0 = temp0 AND 15ã total = 0ã FOR i = 1 TO 16ã temp1 = JPEGGetByte: c0 = c0 + 1ã total = total + temp1ã HuffAmount(i) = temp1ã NEXT iã FOR i = 0 TO total - 1ã HuffTbl(t0, temp0, i).Code = JPEGGetByte: c0 = c0 + 1ã NEXT iã curnum& = 0ã curIndex = -1ã FOR i = 1 TO 16ã FOR j = 1 TO HuffAmount(i)ã curIndex = curIndex + 1ã tmp& = curnum& * pwrsof2(16 - i)ã IF tmp& < 32768 THENã HuffTbl(t0, temp0, curIndex).Index = tmp&ã ELSEã HuffTbl(t0, temp0, curIndex).Index = tmp& - 65536ã END IFã HuffTbl(t0, temp0, curIndex).Length = iã curnum& = curnum& + 1ã NEXT jã curnum& = curnum& * 2ã NEXT iã IF t0 THEN ACTables = ACTables + 1 ELSE dctables = dctables + 1ã LOOP UNTIL c0 >= l0ã END IFã CASE &HCC 'DACã ERROR 101ã CASE &HD8 'SOIã CASE &HD9 'EOIã ERROR 102ã CASE &HDA 'SOSã 'get SOSã GOSUB getword1ã temp4& = GETwordã temp0 = JPEGGetByteã IF temp0 <> 1 AND temp0 <> 3 THEN GetSOS = 0: EXIT SUBã image.numcomp = temp0ã FOR i = 1 TO temp0ã temp1 = JPEGGetByteã SELECT CASE temp1ã CASE 1ã temp2 = JPEGGetByteã image.HaCTY = temp2 AND 15ã image.HDCTY = temp2 \ 16ã CASE 2, 3ã temp2 = JPEGGetByteã image.HaCTCBR = temp2 AND 15ã image.HDCTCBR = temp2 \ 16ã CASE ELSEã ERROR 103ã END SELECTã NEXT iã num = 3: GOSUB getstringã IF (dctables = 2 AND ACTables = 2 AND QTables = 2) OR image.numcomp = 1 THENã ON ERROR GOTO 0: EXIT SUB 'Go on to secondary control loopã ELSEã ERROR 104ã END IFã CASE &HDD 'DRIã GOSUB getword1:ã temp0 = GETwordã GOSUB getword1ã image.restart = GETwordã CASE &HDB 'DQTã IF QTables < 2 THENã GOSUB getword1: l0 = GETwordã c0 = 2ã DOã temp0 = JPEGGetByte: c0 = c0 + 1ã IF temp0 AND &HF0 THEN ERROR 105ã temp0 = temp0 AND 15ã xp = 0: yp = 0ã FOR i = 0 TO 63ã quant(temp0, zz(i).xp, zz(i).yp) = JPEGGetByte: c0 = c0 + 1ã NEXT iã QTables = QTables + 1ã LOOP UNTIL c0 >= l0ã END IFã CASE &HE0 'APP0ã GOSUB getword1ã l& = GETwordã num = 5: GOSUB getstringã IF getstr$ <> ("JFIF" + CHR$(0)) THEN ERROR 106ã image.jfifmajor = CHR$(JPEGGetByte)ã image.jfifMinor = CHR$(JPEGGetByte)ã image.densunits = CHR$(JPEGGetByte)ã image.Xdens = GETwordã image.ydens = GETwordã image.ThWidth = CHR$(JPEGGetByte)ã image.Theigth = CHR$(JPEGGetByte)ã CASE &HFE 'COMã GOSUB getword1: num = GETword - 2:ã GOSUB getstring: imgcomment$ = getstr$ã END SELECTã END IFã IF LEN(INKEY$) THEN EXIT SUBãLOOPãON ERROR GOTO 0ãEXIT SUBããã'------subroutines-------------------ãã'not intel byte order!!ãgetword1:ãtemp9 = JPEGGetByteãGETword = 256& * temp9 OR JPEGGetByteãRETURNããgetstring:ãgetstr$ = SPACE$(num)ãFOR i = 1 TO numã MID$(getstr$, i, 1) = CHR$(JPEGGetByte)ãNEXTãRETURNãããEND SUBããSUB JPEGPut (jfile, x0, y0)ã'Routine that decodes the file and puts it into the screenããDIM YVector1(0 TO 7, 0 TO 7) '4 vectors for Y attributeãDIM YVector2(0 TO 7, 0 TO 7)ãDIM YVector3(0 TO 7, 0 TO 7)ãDIM YVector4(0 TO 7, 0 TO 7)ãDIM CbVector(0 TO 7, 0 TO 7) '1 vector for Cb attributeãDIM CrVector(0 TO 7, 0 TO 7) '1 vector for Cr attributeãDIM mcu AS LONGãlastj = -1ãã'We initialize the dc coefficients as they are accumulativeãdcY = 0: dcCb = 0: dcCr = 0ããxindex = 0: yindex = 0ãcurbits = 7: curByte = JPEGGetByteãmcu = 0: lastj = -1ããSELECT CASE image.numcompãã'Y-Cb-Cr color imageãCASE 3ã SELECT CASE image.samplesyã CASE 4ã DOã viw = -1ã xi0 = xindex + x0ã IF xi0 >= vesainfo.Xres THENã viw = 0ã ELSEIF xi0 < 0 THENã viw = 0ã ELSEIF (yindex + y0) < 0 THENã viw = 0ã END IFã JPEGGet8x8 YVector1(), image.HDCTY, image.HaCTY, image.qty, dcY, viwã JPEGGet8x8 YVector2(), image.HDCTY, image.HaCTY, image.qty, dcY, viwã JPEGGet8x8 YVector3(), image.HDCTY, image.HaCTY, image.qty, dcY, viwã JPEGGet8x8 YVector4(), image.HDCTY, image.HaCTY, image.qty, dcY, viwã JPEGGet8x8 CbVector(), image.HDCTCBR, image.HaCTCBR, image.qtcbr, dcCb, viwã JPEGGet8x8 CrVector(), image.HDCTCBR, image.HaCTCBR, image.qtcbr, dcCr, viwã IF viw THENã FOR i = 0 TO 7ã yi = yindex + i: IF yi >= image.rows THEN EXIT FORã I2 = i \ 2ã FOR j = 0 TO 7ã xj = xindex + j: IF xj >= image.cols THEN EXIT FORã y = YVector1(i, j) + 128ã IF vesainfo.bw THENã IF y < 0 THENã y = 0ã ELSEIF y > 255 THENã y = 255ã END IFã svgappgrey xj + x0, yi + y0, yã ELSEã j2 = j \ 2ã GOSUB ToRGBã SVGAPPixel xj + x0, yi + y0, r, g, bã END IFã NEXT jã NEXT iã FOR i = 0 TO 7ã yi = yindex + i: IF yi >= image.rows THEN EXIT FORã I2 = i \ 2ã FOR j = 8 TO 15ã xj = xindex + j: IF xj >= image.cols THEN EXIT FORã y = YVector2(i, j - 8) + 128ã IF vesainfo.bw THENã IF y < 0 THENã y = 0ã ELSEIF y > 255 THENã y = 255ã END IFã svgappgrey xj + x0, yi + y0, yã ELSEã j2 = j \ 2ã GOSUB ToRGBã SVGAPPixel xj + x0, yi + y0, r, g, bã END IFã NEXT jã NEXT iã FOR i = 8 TO 15ã I2 = i \ 2ã yi = yindex + i: IF yi >= image.rows THEN EXIT FORã FOR j = 0 TO 7ã xj = xindex + j: IF xj >= image.cols THEN EXIT FORã y = YVector3(i - 8, j) + 128ã IF vesainfo.bw THENã IF y < 0 THENã y = 0ã ELSEIF y > 255 THENã y = 255ã END IFã ã svgappgrey xj + x0, yi + y0, yã ELSEã j2 = j \ 2ã GOSUB ToRGBã SVGAPPixel xj + x0, yi + y0, r, g, bã END IFã NEXT jã NEXT iã FOR i = 8 TO 15ã I2 = i \ 2ã yi = yindex + i: IF yi >= image.rows THEN EXIT FORã FOR j = 8 TO 15ã xj = xindex + j: IF xj >= image.cols THEN EXIT FORã y = YVector4(i - 8, j - 8) + 128ã IF vesainfo.bw THENã IF y < 0 THENã y = 0ã ELSEIF y > 255 THENã y = 255ã END IFã ã svgappgrey xj + x0, yi + y0, yã ELSEã j2 = j \ 2ã GOSUB ToRGBã SVGAPPixel xj + x0, yi + y0, r, g, bã END IFã NEXT jã NEXT iã END IFã mcu = mcu + 1: IF image.restart THEN IF image.restart = mcu THEN GOSUB rstrtã xindex = xindex + 16ã IF xindex >= image.cols THEN xindex = 0: yindex = yindex + 16ã IF LEN(INKEY$) THEN EXIT DOã LOOP UNTIL yindex >= image.rows OR yindex + y0 >= vesainfo.yresãã 'next case not tested (never found an image with this structure)ã CASE 2ã DOã viw = -1ã xi0 = xindex + x0ã IF xi0 >= vesainfo.Xres THENã viw = 0ã ELSEIF xi0 < 0 THENã viw = 0ã ELSEIF (yindex + y0) < 0 THENã viw = 0ã END IFã JPEGGet8x8 YVector1(), image.HDCTY, image.HaCTY, image.qty, dcY, viwã JPEGGet8x8 YVector2(), image.HDCTY, image.HaCTY, image.qty, dcY, viwã JPEGGet8x8 CbVector(), image.HDCTCBR, image.HaCTCBR, image.qtcbr, dcCb, viwã JPEGGet8x8 CrVector(), image.HDCTCBR, image.HaCTCBR, image.qtcbr, dcCr, viwã IF viw THENã FOR i = 0 TO 7ã yi = yindex + i: IF yi >= image.rows THEN EXIT FORã I2 = i \ 2ã FOR j = 0 TO 7ã xj = xindex + j: IF xj >= image.cols THEN EXIT FORã y = YVector1(i, j) + 128ã IF vesainfo.bw THENã IF y < 0 THENã y = 0ã ELSEIF y > 255 THENã y = 255ã END IFã ã svgappgrey xj + x0, yi + y0, yã ELSEã j2 = j \ 2ã GOSUB ToRGBã SVGAPPixel xj + x0, yi + y0, r, g, bã END IFã NEXT jã NEXT iã FOR i = 0 TO 7ã yi = yindex + i: IF yi >= image.rows THEN EXIT FORã I2 = i \ 2ã FOR j = 8 TO 15ã xj = xindex + j: IF xj >= image.cols THEN EXIT FORã y = YVector2(i, j - 8) + 128ã IF vesainfo.bw THENã IF y < 0 THENã y = 0ã ELSEIF y > 255 THENã y = 255ã END IFã ã svgappgrey xj + x0, yi + y0, yã ELSEã j2 = j \ 2ã GOSUB ToRGBã SVGAPPixel xj + x0, yi + y0, r, g, bã END IFã NEXT jã NEXT iã END IFã mcu = mcu + 1: IF image.restart THEN IF image.restart = mcu THEN GOSUB rstrtã xindex = xindex + 16ã IF xindex >= image.cols THEN xindex = 0: yindex = yindex + 8ã IF LEN(INKEY$) THEN EXIT DOã LOOP UNTIL yindex >= image.rows OR yindex + y0 >= vesainfo.yresã ã CASE 1ã DOã viw = -1ã xi0 = xindex + x0ã IF xi0 >= vesainfo.Xres THENã viw = 0ã ELSEIF xi0 < 0 THENã viw = 0ã ELSEIF (yindex + y0) < 0 THENã viw = 0ã END IFã JPEGGet8x8 YVector1(), image.HDCTY, image.HaCTY, image.qty, dcY, viwã JPEGGet8x8 CbVector(), image.HDCTCBR, image.HaCTCBR, image.qtcbr, dcCb, viwã JPEGGet8x8 CrVector(), image.HDCTCBR, image.HaCTCBR, image.qtcbr, dcCr, viwã IF viw THENã FOR i = 0 TO 7ã yi = yindex + i: IF yi >= image.rows THEN EXIT FORã I2 = i \ 2ã FOR j = 0 TO 7ã xj = xindex + j: IF xj >= image.cols THEN EXIT FORã y = YVector1(i, j) + 128ã IF vesainfo.bw THENã IF y < 0 THENã y = 0ã ELSEIF y > 255 THENã y = 255ã END IFã svgappgrey xj + x0, yi + y0, yã ELSEã j2 = j \ 2ã GOSUB ToRGBã SVGAPPixel xj + x0, yi + y0, r, g, bã END IFã NEXT jã NEXT iã END IFã mcu = mcu + 1: IF image.restart THEN IF image.restart = mcu THEN GOSUB rstrtã xindex = xindex + 8ã IF xindex >= image.cols THEN xindex = 0: yindex = yindex + 8ã IF LEN(INKEY$) THEN EXIT DOã LOOP UNTIL yindex >= image.rows OR (yindex + y0) >= vesainfo.yresã END SELECTãã'monochrome imageãCASE 1ã DOã viw = -1ã xi0 = xindex + x0ã IF xi0 >= vesainfo.Xres THENã viw = 0ã ELSEIF xi0 < 0 THENã viw = 0ã ELSEIF (yindex + y0) < 0 THENã viw = 0ã END IFã JPEGGet8x8 YVector1(), image.HDCTY, image.HaCTY, image.qty, dcY, viwã IF viw THENã FOR i = 0 TO 7ã yi = yindex + i: IF yi >= image.rows THEN EXIT FORã FOR j = 0 TO 7ã xj = xindex + j: IF xj >= image.cols THEN EXIT FORã y = YVector1(i, j) + 128ã IF y < 0 THENã y = 0ã ELSEIF y > 255 THENã y = 255ã END IFã svgappgrey xj + x0, yi + y0, yã NEXT jã NEXT iã END IFã mcu = mcu + 1: IF image.restart THEN IF image.restart = mcu THEN GOSUB rstrtã xindex = xindex + 8ã IF xindex >= image.cols THEN xindex = 0: yindex = yindex + 8ã IF LEN(INKEY$) THEN EXIT DOã LOOP UNTIL yindex >= image.rows OR yindex + y0 >= vesainfo.yresãEND SELECTãON ERROR GOTO 0ãEXIT SUBããrstrt:ãcurByte = JPEGGetByte: curByte = JPEGGetByte: curByte = JPEGGetByte: curbits = 7ãdcY = 0: dcCb = 0: dcCr = 0: mcu = 0ãRETURNãããToRGB:ãIF j2 <> lastj THENã cb128 = CbVector(I2, j2)ã cr128 = CrVector(I2, j2)ã r1 = 140& * cr128 \ 100ã g1 = (34 * cb128 + 71 * cr128) \ 100ã b1 = 177& * cb128 \ 100ã lastj = j2ãEND IFãr = y + r1ãg = y - g1ãb = y + b1ãIF r > 255 THENã r = 255ãELSEIF r < 0 THENã r = 0ãEND IFãIF g > 255 THENã g = 255ãELSEIF g < 0 THENã g = 0ãEND IFãIF b > 255 THENã b = 255ãELSEIF b < 0 THENã b = 0ãEND IFãRETURNããEND SUBããSUB JPEGViewParmsã SHARED f$ã CLSã PRINT "Parameters of this JPEG File"ã PRINTã PRINT "File Name : "; f$ã PRINT "File Size : "; LOF(jfile); " bytes"ã PRINT "Comment : "; imgcomment$ã PRINT "JFIF Version : "; ASC(image.jfifmajor); "."; ASC(image.jfifMinor)ã PRINT "Rows X Cols : "; image.rows; " x "; image.cols; " pixel"ã SELECT CASE ASC(image.densunits)ã CASE 0: unit$ = " ratio"ã CASE 1: unit$ = " dots/inch"ã CASE 2: unit$ = " dots/cm"ã END SELECTã PRINT "Density X/Y: "; image.Xdens; "/"; image.ydens; unit$ã IF image.restart THENã PRINT "Restart each : "; image.restart; " blocks"ã ELSEã PRINT "No Restart marks in this file"ã END IFã PRINT "Thumbnail w x h : "; ASC(image.ThWidth); " x "; ASC(image.Theigth)ã ã IF image.numcomp = 3 THEN a$ = " Color Y + Cb + Cr" ELSE a$ = " Black & White"ã PRINT "Color components : "; a$ã PRINT "Num of samples Y: "; image.samplesy; : LOCATE , 50: PRINT "CbCr: "; image.samplescbcrã PRINTã PRINT "Quantization tables Y: "; image.qty + 1; : LOCATE , 50: PRINT "Cbcr: "; image.qtcbr - image.qtyã PRINT "Huffman tables DC Y: "; image.HDCTY + 1; : LOCATE , 50: PRINT "CbCr: "; image.HDCTCBR - image.HDCTYã PRINT "Huffman tables aC Y: "; image.HaCTY + 1; : LOCATE , 50: PRINT "CbCr: "; image.HaCTCBR - image.HaCTYã PRINTã LOCATE 25, 1: PRINT "View It? [Y/N]...";ã SLEEPãEND SUBããSUB SVGAGetDataãREDIM modenums(70)ãregs.AX = &H4F00ãregs.ES = VARSEG(vesainfo)ãregs.DI = VARPTR(vesainfo)ãCALL INTERRUPTX(&H10, regs, regs)ãIF regs.AX <> VESAOK THEN PRINT "SORRY...VESA CARD NOT DETECTED": ENDãã'get mode numbers stringãa$ = MKL$(vesainfo.VIDEOMODEPTR)ãDEF SEG = CVI(RIGHT$(a$, 2))ãptr1 = CVI(LEFT$(a$, 2))ãi = 0ãDO UNTIL md& = 65535ã modenums(i) = md&ã i = i + 1ã temp = PEEK(ptr1)ã ptr1 = ptr1 + 1ã md& = PEEK(ptr1) * 256& + tempã ptr1 = ptr1 + 1ãLOOPãDEF SEGãvesainfo.modemax = i - 1ãã'get info about all modesãREDIM display(1 TO vesainfo.modemax) AS vesaModeinfoBlockãFOR i = 1 TO vesainfo.modemaxã regs.AX = &H4F01ã regs.cx = modenums(i)ã regs.ES = VARSEG(display(i))ã regs.DI = VARPTR(display(i))ã CALL INTERRUPTX(&H10, regs, regs)ã display(i).MODENUM = modenums(i)ãNEXTãERASE modenumsããEND SUBããSUB svgappgrey (x, y, lum) STATICãIF y <> lasty THEN lasty = y: off1& = vesainfo.bytesrow * yãoffset& = off1& + xãbank = offset& \ vesainfo.winsizeãoffset& = offset& MOD vesainfo.winsizeãIF bank <> curbank THENã curbank = bankã regs.AX = &H4F05ã regs.bx = 0ã regs.dx = curbankã CALL INTERRUPTX(&H10, regs, regs)ãEND IFããDEF SEG = vesainfo.winsegãPOKE offset&, lumãDEF SEGãEND SUBããSUB SVGAPPixel (x, y, r, g, b) STATICã'sets a pixel in SVGA screenãIF y <> lasty THEN lasty = y: off1& = vesainfo.bytesrow * yãoffset& = off1& + x * vesainfo.bytespixelãbank = offset& \ vesainfo.winsizeãoffset& = offset& MOD vesainfo.winsizeãIF bank <> curbank THENã SWAP curbank, bankã GOSUB switchbankãEND IFããSELECT CASE vesainfo.bppãCASE 32:ã DEF SEG = vesainfo.winsegã POKE offset& + 2, rã POKE offset& + 1, gã POKE offset&, bã DEF SEGãCASE 16:ã temp& = (b \ 8) OR ((g * 8) AND &H7E0) OR (256& * r AND &HF800)ã b1 = VARPTR(temp&): a = PEEK(b1): a1 = PEEK(b1 + 1)ã DEF SEG = vesainfo.winseg: POKE offset&, a: POKE offset& + 1, a1: DEF SEGãCASE 24:ã 'need to test for window boundary because 65536 (window size)is not divisibleã ' by 3ã DEF SEG = vesainfo.winsegã POKE offset&, bã IF offset& = 65535 THEN curbank = curbank + 1: GOSUB switchbank: offset& = -1ã POKE offset& + 1, gã IF offset& = 65534 THEN curbank = curbank + 1: GOSUB switchbank: offset& = -2ã POKE offset& + 2, rã DEF SEGããCASE 8:ã tp1 = (r AND &HE0) OR ((g \ 8) AND &H1C) OR (b \ 64)ã DEF SEG = vesainfo.winseg: POKE offset&, tp1: DEF SEGãCASE 15:ã temp& = (b \ 8) OR ((g * 4) AND &H7E0) OR (128& * r AND &H7C00)ã b1 = VARPTR(temp&): a = PEEK(b1): a1 = PEEK(b1 + 1)ã DEF SEG = vesainfo.winseg: POKE offset&, a: POKE offset& + 1, a1: DEF SEGãEND SELECTãEXIT SUBãswitchbank:ã regs.AX = &H4F05ã regs.bx = 0ã regs.dx = curbankã CALL INTERRUPTX(&H10, regs, regs)ãRETURNããEND SUBããSUB SVGAPrint (cad$, y, x, r, g, b)ã'printing in SVGAã x0 = x: grey = (r + g + b) \ 3ã FOR i = 1 TO LEN(cad$) 'for each char in stringã a = ASC(MID$(cad$, i)) * 16 + ofã x0 = x0 + 8ã FOR j = 0 TO 15 'for each scan line in character mapã DEF SEG = sg: b = PEEK(a + j): DEF SEGã IF b THENã yj = y + jã FOR K = 0 TO 7 'for each bit in scan lineã IF pwrsof2(K) AND b THENã IF vesainfo.bw = 1 THENã svgappgrey x0 - K, yj, greyã ELSEã SVGAPPixel x0 - K, yj, r, g, bã END IFã END IFã NEXTã END IFã NEXTã NEXTã ãEND SUBããFUNCTION SVGASelectMode%ãSHARED f$, jfileãCLSãFOR i = 1 TO vesainfo.modemax: display(i).order = 0: NEXTãPRINT "The file "; jfile; " is "; image.cols; " X "; image.rowsãPRINTãPRINT "Suitable SVGA VESA modes:"ãj = 1ãFOR i = 1 TO vesainfo.modemaxã IF display(i).Modeattributes AND 1 THENã SELECT CASE ASC(display(i).MemoryModel)ã CASE 4ã display(i).order = jã PRINT USING "##.- MODE \ \H #### x #### x ## "; j; HEX$(display(i).MODENUM); display(i).Xres; display(i).yres; ASC(display(i).bpp)ã j = j + 1ã CASE 6ã IF image.numcomp > 1 THEN 'not color modes for monochrome imagesã display(i).order = jã PRINT USING "##.- MODE \ \H #### x #### x ## "; j; HEX$(display(i).MODENUM); display(i).Xres; display(i).yres; ASC(display(i).bpp)ã j = j + 1ã END IFãã END SELECTã END IFãNEXTãj = j - 1ãDOãINPUT "Select a mode"; KãLOOP UNTIL K > 0 AND K <= jãj = 0ãDOãj = j + 1ãLOOP UNTIL display(j).order = Kãvesainfo.modeord = jãvesainfo.Xres = display(j).Xresãvesainfo.yres = display(j).yresãvesainfo.bytesrow = display(j).Bytesperscanlineãvesainfo.bpp = ASC(display(j).bpp)ãSELECT CASE vesainfo.bppãCASE 8: temp = 1ãCASE 15, 16: temp = 2ãCASE 24: temp = 3ãCASE 32: temp = 4ããEND SELECTãvesainfo.bytespixel = tempãvesainfo.winsize = 1024& * display(j).winsizeãvesainfo.winseg = display(j).winAsegmentãvesainfo.bw = 0ãããIF (ASC(display(j).bpp) = 8) AND (image.numcomp > 1) THENã INPUT "(B)lack & white /Approximative (C)olor: ", b$ã a = SVGASetMode(display(j).MODENUM)ã IF UCASE$(b$) = "B" THENã GOSUB setgreypal: vesainfo.bw = -1ã ELSEã GOSUB setaproxpalã END IFãELSEIF image.numcomp = 1 THENã a = SVGASetMode(display(j).MODENUM)ã GOSUB setgreypal: vesainfo.bw = -1ããELSEã a = SVGASetMode(display(j).MODENUM)ãEND IFãEXIT FUNCTIONããsetgreypal:ãOUT &H3C8, 0 'create the grayscale paletteãFOR I1 = 0 TO 255: OUT &H3C9, I1 \ 4: OUT &H3C9, I1 \ 4: OUT &H3C9, I1 \ 4: NEXTãRETURNãããsetaproxpal:ã'create approximative color paletteãOUT &H3C8, 0ãFOR I1 = 0 TO 7ã FOR J1 = 0 TO 7ã FOR K1 = 0 TO 4ã OUT &H3C9, I1 * 8ã OUT &H3C9, J1 * 8ã OUT &H3C9, K1 * 16ã NEXTã NEXTãNEXTãRETURNããEND FUNCTIONãã' Sets an SVGA mode.ãFUNCTION SVGASetMode (MODE)ããregs.AX = &H4F02 'Set the mode.ãregs.bx = MODEãCALL INTERRUPTX(&H10, regs, regs)ãIF regs.AX <> &H4F THEN SVGASetMode = 0: EXIT FUNCTIONãregs.AX = &H4F07 'Set the top of the screen.ãregs.bx = 0ãregs.dx = 0ãregs.cx = 0ãCALL INTERRUPTX(&H10, regs, regs)ããããSVGASetMode = 1ãEND FUNCTIONãGerald Wykoff Control Limits Graphic 06-10-01 ( : ) QB, Qbasic 454 14122 Xlimitx.bas ' Subject: Control Limits Graphic Date: 6-10-1 (18:22) ã' Author: Gerald L. Wykoff Code: QB, QBasicã' Origin: wykoff@mbawiz.comã'ãREM Evaluating a series of data and imposing an Upper Control Limit andãREM a Lower Control Limit is very useful for evaluating the acceptableãREM consistency of production or sales performance. This utilityãREM calculates and the plots on a graph the data for up to 20 entries.ãCLSãSCREEN 9ãCOLOR 14, 8ãDEFLNG A-ZãLINE (5, 5)-(630, 5), 12ãLINE -(630, 338), 12ãLINE -(5, 338), 12ãLINE -(5, 5), 12ãLINE (4, 4)-(631, 4), 3ãLINE -(631, 339), 3ãLINE -(4, 339), 3ãLINE -(4, 4), 3ãPRINTãPRINTãPRINT " The graphic display ranges are optimized to"ãPRINT " accommodate numbers consisting of 1-digit or 3-digits"ãPRINT " (both types BEFORE any decimal."ãPRINT " This utility is an auxiliary graphic device to"ãPRINT " give you a grasp or quick impression of your data. For"ãPRINT " that reason - ease and quick results - data can only be"ãPRINT " entered from the keyboard. "ãPRINT " The graphic will trace a single list (sales volume,"ãPRINT " profits, dividends, etc. If this is a control limit,"ãPRINT " sampling or quality control type problem i.e., X number"ãPRINT " of defects per N hours of processing, or X number of de-"ãPRINT " fective boards per N cord deliveries, etc., then you'll be"ãPRINT " prompted for the total sample taken so the program, based"ãPRINT " on the range and volatilty of your entries, can also calcu-"ãPRINT " late and draw on the screen an Upper Control Limit and a"ãPRINT " Lower Control Limit (LCL) to warn of problems."ãPRINTãCOLOR 7ãPRINTãPRINT " Type in a title name for the graphics display"ãINPUT " that you'll be creating "; namer$ãPRINTãCOLOR 15ãPRINT " To Continue, Tap Any Key"ãDO WHILE INKEY$ = ""ãLOOPã105ãCLSãSCREEN 9ãCOLOR 14, 8ãLINE (5, 5)-(630, 5), 12ãLINE -(630, 338), 12ãLINE -(5, 338), 12ãLINE -(5, 5), 12ãLINE (4, 4)-(631, 4), 3ãLINE -(631, 339), 3ãLINE -(4, 339), 3ãLINE -(4, 4), 3ãPRINTãPRINTãPRINT " DATA ENTRY FOR GRAPHIC"ãINPUT " What's total for Item 1"; de1ãINPUT " What's total for Item 2"; de2ãINPUT " What's total for Item 3"; de3ãINPUT " What's total for Item 4"; de4ãINPUT " What's total for Item 5"; de5ãINPUT " What's total for Item 6"; de6ãINPUT " What's total for Item 7"; de7ãINPUT " What's total for Item 8"; de8ãINPUT " What's total for Item 9"; de9ãINPUT " What's total for Item 10"; de10ãINPUT " What's total for Item 11"; de11ãINPUT " What's total for Item 12"; de12ãPRINTãCOLOR 10ãINPUT " What is the biggest Item number you entered above "; biggestãPRINTãINPUT " What is the smallest Item number you entered above "; smallestãPRINTãPRINTãsum = de1 + de2 + de3 + de4 + de5 + de6 + de7 + de8 + de9 + de10 + de11 + de12ãmean = sum / 12ãsd = (biggest - smallest) / 4ãPRINT "MEAN is "; meanãPRINT "STANDARD DEVIATION is "; sdãUCL! = mean + (3 * sd)ãLCL! = mean - (3 * sd)ãPRINT " The upper control limit is "; UCL!ãPRINT " The lower control limit is "; LCL!ãPRINTãCOLOR 10ãPRINT " Tap Any Key to Continue"ãDO WHILE INKEY$ = ""ãLOOPãCLSãCOLOR 14, 8ã'LNG A-ZãLINE (5, 5)-(630, 5), 12ãLINE -(630, 338), 12ãLINE -(5, 338), 12ãLINE -(5, 5), 12ãLINE (4, 4)-(631, 4), 3ãLINE -(631, 339), 3ãLINE -(4, 339), 3ãLINE -(4, 4), 3ãPRINTãPRINTãPRINT " What size and range of data do you want displayed?"ãPRINTãCOLOR 15ãPRINT " (1) Display data 0 - 10 Range (1-digit entries)"ãPRINT " (2) Display data 0 - 1000 Range (2-digit entries)"ãINPUT " Make a Selection (1 or 2) "; range$ãIF range$ = "2" THEN GOTO 600 ELSE GOTO 400ã 'specs for the vertical lines (lines are X,Y)ã400ãCLSãSCREEN 12ã'DEFSNG A-ZãLINE (100, 375)-(475, 375), 5 ' bottom line of graphãLINE (100, 376)-(475, 376), 5ãLINE (100, 75)-(100, 376), 5 'this is vertical line of graphãLINE (101, 75)-(101, 376), 5ã'ãLOCATE 11, 60ãCOLOR 11ãPRINT "UCL & LCL!"ãLOCATE , 60ãCOLOR 15ãPRINT "Shown by"ãLOCATE , 60ãPRINT "White LineS"ã' horizontal line separation is 30ãLINE (100, 345)-(475, 345), 7 ' this is an add-on init.lineãLINE (100, 315)-(475, 315), 7 ' this is an add-on init.lineãLINE (100, 285)-(475, 285), 7 ' this is an add-on init.lineãLINE (100, 255)-(475, 255), 7 ' this is an add-on init.lineãLINE (100, 225)-(475, 225), 7 ' this is an add-on init.lineãLINE (100, 195)-(465, 195), 7 ' this is an add-on init.lineãLINE (100, 165)-(465, 165), 7 ' this is an add-on init.lineãLINE (100, 135)-(475, 135), 7 ' this is an add-on init.lineãLINE (100, 105)-(475, 105), 7 ' this is an add-on init.lineãLOCATE 2, 3ãCOLOR 14ãPRINT "INCIDENTS"ãLOCATE 3, 28: PRINT "CONTROL LIMIT ANALYSIS FOR "; namer$ãLOCATE 3, 3: PRINT "RANGE 0 - 10"ãLOCATE 25, 13ãCOLOR 15ãPRINT TAB(13); "0"; TAB(17); "1"; TAB(21); "2"; TAB(24); "3"; TAB(28); "4"; TAB(32); "5"; TAB(36); "6"; TAB(39); "7"; TAB(43); "8"; TAB(46); "9"; TAB(50); "10"; TAB(54); "11"; TAB(58); "12"ãLOCATE 26, 25ãCOLOR 5ãPRINT "NUMBER OF ENTRIES SUBMITTED FOR THIS ANALYSIS"ãLOCATE 24, 8ãCOLOR 14ãPRINT "0"ãLOCATE 22, 8ãPRINT "1"ãLOCATE 20, 8ãPRINT "2"ãLOCATE 18, 8ãPRINT "3"ãLOCATE 16, 8ãPRINT "4"ãLOCATE 14, 10ãPRINT "5"ãLOCATE 13, 8ãPRINT "6"ãLOCATE 11, 8ãPRINT "7"ãLOCATE 9, 8ãPRINT "8"ãLOCATE 7, 8ãPRINT "9"ãLOCATE 5, 8ãPRINT "10"ãã' THIS SETS UP THE VERTICAL LINESãLINE (130, 75)-(130, 375), 7 '1ãLINE (160, 75)-(160, 375), 7 '2ãLINE (190, 75)-(190, 375), 7 '3ãLINE (220, 75)-(220, 375), 7 '4ãLINE (250, 75)-(250, 375), 7 '5ãLINE (280, 75)-(280, 375), 7 '6ãLINE (310, 75)-(310, 375), 7 '7ãLINE (340, 75)-(340, 375), 7 '8 30 separation factorãLINE (370, 75)-(370, 375), 7 '9ãLINE (400, 75)-(400, 375), 7 '10ãLINE (430, 75)-(430, 375), 7 '11ãLINE (460, 75)-(460, 375), 7 '12ã' this section computes the traceline pointsã'ã'ã'ãUCL! = UCL! * .08 'these are set in arbitraily now and mustãLCL! = UCL! * .15 'be accommodated before finalizationã'ã'ã188 ãDEFLNG A-Zãhora = 375ã' sets up the horizontal tracesãhor1! = 375 - (de1 * 30)ãup1! = hor1! - (UCL! * 30)ãlow1! = hor1! + (LCL! * 30)ãhor2! = 375 - (de2 * 30)ãup2! = hor2! - (UCL! * 30)ãlow2! = hor2! + (LCL! * 30)ãhor3! = 375 - (de3 * 30)ãup3! = hor3! - (UCL! * 30)ãlow3! = hor3! + (LCL! * 30)ãhor4! = 375 - (de4 * 30)ãup4! = hor4! - (UCL! * 30)ãlow4! = hor4! + (LCL! * 30)ãhor5! = 375 - (de5 * 30)ãup5! = hor5! - (UCL! * 30)ãlow5! = hor5! + (LCL! * 30)ãhor6! = 375 - (de6 * 30)ãup6! = hor6! - (UCL! * 30)ãlow6! = hor6! + (LCL! * 30)ãhor7! = 375 - (de7 * 30)ãup7! = hor7! - (UCL! * 30)ãlow7! = hor7! + (LCL! * 30)ãhor8! = 375 - (de8 * 30)ãup8! = hor8! - (UCL! * 30)ãlow8! = hor8! + (LCL! * 30)ãhor9! = 375 - (de9 * 30)ãup9! = hor9! - (UCL! * 30)ãlow9! = hor9! + (LCL! * 30)ãhor10! = 375 - (de10 * 30)ãup10! = hor10! - (UCL! * 30)ãlow10! = hor10! + (LCL! * 30)ãhor11! = 375 - (de11 * 30)ãup11! = hor11! - (UCL! * 30)ãlow11! = hor11! + (LCL! * 30)ãhor12! = 375 - (de12 * 30)ãup12! = hor12! - (UCL! * 30)ãlow12! = hor12! + (LCL! * 30)ãã'ãã' this section sets up the raw entry number traceã177ãLINE (100, 375)-(130, hor1!), 13ãLINE (130, hor1!)-(160, hor2!), 13ãLINE (160, hor2!)-(190, hor3!), 13ãLINE (190, hor3!)-(220, hor4!), 13ãLINE (220, hor4!)-(250, hor5!), 13ãLINE (250, hor5!)-(280, hor6!), 13ãLINE (280, hor6!)-(310, hor7!), 13ãLINE (310, hor7!)-(340, hor8!), 13ãLINE (340, hor8!)-(370, hor9!), 13ãLINE (370, hor9!)-(400, hor10!), 13ãLINE (400, hor10!)-(430, hor11!), 13ãLINE (430, hor11!)-(460, hor12!), 13ã166 ' this section draws the UCL! trace lineãLINE (100, 375)-(130, up1!), 15ãLINE (130, up1!)-(160, up2!), 15ãLINE (160, up2!)-(190, up3!), 15ãLINE (190, up3!)-(220, up4!), 15ãLINE (220, up4!)-(250, up5!), 15ãLINE (250, up5!)-(280, up6!), 15ãLINE (280, up6!)-(310, up7!), 15ãLINE (310, up7!)-(340, up8!), 15ãLINE (340, up8!)-(370, up9!), 15ãLINE (370, up9!)-(400, up10!), 15ãLINE (400, up10!)-(430, up11!), 15ãLINE (430, up11!)-(460, up12!), 15ã155 ' ' this section draws the LCL trace lineãLINE (100, 375)-(130, low1!), 15ãLINE (130, low1!)-(160, low2!), 15ãLINE (160, low2!)-(190, low3!), 15ãLINE (190, low3!)-(220, low4!), 15ãLINE (220, low4!)-(250, low5!), 15ãLINE (250, low5!)-(280, low6!), 15ãLINE (280, low6!)-(310, low7!), 15ãLINE (310, low7!)-(340, low8!), 15ãLINE (340, low8!)-(370, low9!), 15ãLINE (370, low9!)-(400, low10!), 15ãLINE (400, low10!)-(430, low11!), 15ãLINE (430, low11!)-(460, low12!), 15ããENDãã' THIS IS FOR GRAPH SHOWING 0 TO 100(100, 200 . . .800,900, ETC)ã600ãCLSãSCREEN 12ã'DEFLNG A-ZãLINE (100, 375)-(475, 375), 5 ' bottom line of graphãLINE (100, 376)-(475, 376), 5ãLINE (100, 75)-(100, 376), 5 'this is vertical line of graphãLINE (101, 75)-(101, 376), 5ã'ãLOCATE 11, 60ãCOLOR 11ãPRINT "UCL! & LCL"ãCOLOR 15ãLOCATE , 60ãPRINT "Shown by"ãLOCATE , 60ãPRINT "White LineS"ã' horizontal line separation is 30ãLINE (100, 345)-(475, 345), 11 ' this is an add-on init.lineãLINE (100, 315)-(475, 315), 11 ' this is an add-on init.lineãLINE (100, 285)-(475, 285), 11 ' this is an add-on init.lineãLINE (100, 255)-(475, 255), 11 ' this is an add-on init.lineãLINE (100, 225)-(475, 225), 11 ' this is an add-on init.lineãLINE (100, 195)-(465, 195), 11 ' this is an add-on init.lineãLINE (100, 165)-(465, 165), 11 ' this is an add-on init.lineãLINE (100, 135)-(475, 135), 11 ' this is an add-on init.lineãLINE (100, 105)-(475, 105), 11 ' this is an add-on init.lineã ' this section shows graph for 3-digit entries to 1000ãLOCATE 3, 3ãCOLOR 14ãPRINT "INCIDENTS"ãLOCATE 3, 28: PRINT "CONTROL LIMIT ANALYSIS FOR "; namer$ãLOCATE 4, 3: PRINT "RANGE 0-1000"ãLOCATE 25, 13ãCOLOR 15ãPRINT TAB(13); "0"; TAB(17); "1"; TAB(21); "2"; TAB(24); "3"; TAB(28); "4"; TAB(32); "5"; TAB(36); "6"; TAB(39); "7"; TAB(43); "8"; TAB(46); "9"; TAB(50); "10"; TAB(54); "11"; TAB(58); "12"ãLOCATE 26, 15ãCOLOR 5ãPRINT "NUMBER OF ENTRIES SUBMITTED FOR ANALYSIS"ãLOCATE 24, 8ãCOLOR 14ãPRINT "0"ãLOCATE 22, 8ãPRINT "100"ãLOCATE 20, 8ãPRINT "200"ãLOCATE 18, 8ãPRINT "300"ãLOCATE 16, 8ãPRINT "400"ãLOCATE 15, 8ãPRINT "500"ãLOCATE 13, 8ãPRINT "600"ãLOCATE 11, 8ãPRINT "700"ãLOCATE 9, 8ãPRINT "800"ãLOCATE 7, 8ãPRINT "900"ãLOCATE 5, 8ãPRINT "1000"ãã' THIS SETS UP THE VERTICAL LINESãLINE (130, 75)-(130, 375), 11 '1ãLINE (160, 75)-(160, 375), 11 '2ãLINE (190, 75)-(190, 375), 11 '3ãLINE (220, 75)-(220, 375), 11 '4ãLINE (250, 75)-(250, 375), 11 '5ãLINE (280, 75)-(280, 375), 11 '6ãLINE (310, 75)-(310, 375), 11 '7ãLINE (340, 75)-(340, 375), 11 '8 30 separation factorãLINE (370, 75)-(370, 375), 11 '9ãLINE (400, 75)-(400, 375), 11 '10ãLINE (430, 75)-(430, 375), 11 '11ãLINE (460, 75)-(460, 375), 11 '12ã' this section draws the tracelineã'ã'ã'ã'UCL = UCL * .1 'these are set in arbitraily now and mustã'LCL = LCL * .15 'be accommodated before finalizationã'ã888ãDEFLNG A-Zã'ãhora = 375ãhor1! = 375 - (de1 * .3)ãup1! = hor1! - (UCL! * .3)ãlow1! = hor1! + (LCL! * .3)ãhor2! = 375 - (de2 * .3)ãup2! = hor2! - (UCL! * .3)ãlow2! = hor2! + (LCL! * .3)ãhor3! = 375 - (de3 * .3)ãup3! = hor3! - (UCL! * .3)ãlow3! = hor3! + (LCL! * .3)ãhor4! = 375 - (de4 * .3)ãup4! = hor4! - (UCL! * .3)ãlow4! = hor4! + (LCL! * .3)ãhor5! = 375 - (de5 * .3)ãup5! = hor5! - (UCL! * .3)ãlow5! = hor5! + (LCL! * .3)ãhor6! = 375 - (de6 * .3)ãup6! = hor6! - (UCL! * .3)ãlow6! = hor6! + (LCL! * .3)ãhor7! = 375 - (de7 * .3)ãup7! = hor7! - (UCL! * .3)ãlow7! = hor7! + (LCL! * .3)ãhor8! = 375 - (de8 * .3)ãup8! = hor8! - (UCL! * .3)ãlow8! = hor8! + (LCL! * .3)ãhor9! = 375 - (de9 * .3)ãup9! = hor9! - (UCL! * .3)ãlow9! = hor9! + (LCL! * .3)ãhor10! = 375 - (de10 * .3)ãup10! = hor10! - (UCL! * .3)ãlow10! = hor10! + (LCL! * .3)ãhor11! = 375 - (de11 * .3)ãup11! = hor11! - (UCL! * .3)ãlow11! = hor11! + (LCL! * .3)ãhor12! = 375 - (de12 * .3)ãup12! = hor12! - (UCL! * .3)ãlow12! = hor12! + (LCL! * .3)ã777 'this section draws the white LCL trace linesãLINE (100, 375)-(130, low1!), 15ãLINE (130, low1!)-(160, low2!), 15ãLINE (160, low2!)-(190, low3!), 15ãLINE (190, low3!)-(220, low4!), 15ãLINE (220, low4!)-(250, low5!), 15ãLINE (250, low5!)-(280, low6!), 15ãLINE (280, low6!)-(310, low7!), 15ãLINE (310, low7!)-(340, low8!), 15ãLINE (340, low8!)-(370, low9!), 15ãLINE (370, low9!)-(400, low10!), 15ãLINE (400, low10!)-(430, low11!), 15ãLINE (430, low11!)-(460, low12!), 15ã666 'this section draws the yellow UCL trace linesãLINE (100, 375)-(130, up1!), 14ãLINE (130, up1!)-(160, up2!), 14ãLINE (160, up2!)-(190, up3!), 14ãLINE (190, up3!)-(220, up4!), 14ãLINE (220, up4!)-(250, up5!), 14ãLINE (250, up5!)-(280, up6!), 14ãLINE (280, up6!)-(310, up7!), 14ãLINE (310, up7!)-(340, up8!), 14ãLINE (340, up8!)-(370, up9!), 14ãLINE (370, up9!)-(400, up10!), 14ãLINE (400, up10!)-(430, up11!), 14ãLINE (430, up11!)-(460, up12!), 14ã555 ' this section sets up the red RAW DTAT trace lineãLINE (100, 375)-(130, hor1!), 5ãLINE (130, hor1!)-(160, hor2!), 5ãLINE (160, hor2!)-(190, hor3!), 5ãLINE (190, hor3!)-(220, hor4!), 5ãLINE (220, hor4!)-(250, hor5!), 5ãLINE (250, hor5!)-(280, hor6!), 5ãLINE (280, hor6!)-(310, hor7!), 5ãLINE (310, hor7!)-(340, hor8!), 5ãLINE (340, hor8!)-(370, hor9!), 5ãLINE (370, hor9!)-(400, hor10!), 5ãLINE (400, hor10!)-(430, hor11!), 5ãLINE (430, hor11!)-(460, hor12!), 5ãããENDãããGerald Wykoff Statistical Sampling 07-01-01 ( : ) QB, Qbasic 429 13319 Xsamplx.bas ' Subject: Statistics: Sampling Date: 7-1-01 ã' Author: Gerald L. Wykoff Code: QB, QBasicã' Origin: wykoff@mbawiz.comCLSãSCREEN 9ãCOLOR 10, 1ãPRINTãPRINTãPRINTãPRINT " SAMPLING DISPLAY (WITH CONTROL LIMITS)"ãPRINTãCOLOR 15ãPRINT " This graphic display is optimized to display the number"ãPRINT " of Incidents (plus Upper and Lower Control Limits) per Sample."ãPRINT " It accommodate numbers with 1- OR 3-digits (BEFORE any"ãPRINT " decimal) whether manually entered OR called up from an"ãPRINT " existing data file. No setup exists for 2-digit numbers."ãPRINT " The program will accept entries for 12 Samplings"ãPRINT " with Incident totals (up to 10 incidents per Sample for"ãPRINT " 1-digit numbers and up to 1000 incidents per Sample for"ãPRINT " 3-digit numbers samples taken. If you have less than 12"ãPRINT " samples, simply enter zeroes (0) to complete the data"ãPRINT " entry routine."ãCOLOR 14ãPRINTãPRINT " Type in a title name for the graphics display"ãINPUT " that you'll be creating "; namer$ãPRINTãPRINTãCOLOR 15ãPRINT " Do you wish to call up an (1) existing file or (2) type in the data?"ãINPUT " Please Make Your Selection (1 or 2) "; what$ãIF what$ = "1" THEN GOTO 95 ELSE GOTO 105 'call up an existing statements fileã95ãPRINTãPRINTãPRINTãINPUT " Type in the path/name of the data file "; file$ãOPEN file$ FOR INPUT AS #1ãINPUT #1, item1, item2, item3, item4, item5, item6, item7, item8, item9, item10, item11, item12ãd1 = item1: PRINT TAB(30); d1ãd2 = item2: PRINT TAB(30); d2ãd3 = item3: PRINT TAB(30); d3ãd4 = item4: PRINT TAB(30); d4ãd5 = item5: PRINT TAB(30); d5ãd6 = item6: PRINT TAB(30); d6ãd7 = item7: PRINT TAB(30); d7ãd8 = item8: PRINT TAB(30); d8ãd9 = item9: PRINT TAB(30); d9ãd10 = item10: PRINT TAB(30); d10ãd11 = item11: PRINT TAB(30); d11ãd12 = item12: PRINT TAB(30); d12ãGOTO 200ãPRINTãPRINTãPRINTãPRINTãCOLOR 15ãPRINT " To Continue, Tap Any Key"ãDO: LOOP UNTIL INKEY$ <> ""ã'ã105ãCLSãSCREEN 9ãCOLOR 10, 9ãDEFLNG A-ZãPRINTãPRINTãPRINTãPRINT " DATA ENTRY FOR GRAPHIC"ãINPUT " How many Incidents in Item 1"; de1ãINPUT " How many Incidents in Item 2"; de2ãINPUT " How many Incidents in Item 3"; de3ãINPUT " How many Incidents in Item 4"; de4ãINPUT " How many Incidents in Item 5"; de5ãINPUT " How many Incidents in Item 6"; de6ãINPUT " How many Incidents in Item 7"; de7ãINPUT " How many Incidents in Item 8"; de8ãINPUT " How many Incidents in Item 9"; de9ãINPUT " How many Incidents in Item 10"; de10ãINPUT " How many Incidents in Item 11"; de11ãINPUT " How many Incidents in Item 12"; de12ã200ãPRINTãPRINTãPRINT "What size and range of data do you want displayed?"ãPRINTãPRINT " (1) Display data 0 - 10 Range (1-digit entries)"ãPRINT " (2) Display data 0 - 1000 Range (2-digit entries)"ãINPUT " Make a Selection (1 or 2) "; Range$ãIF Range$ = "2" THEN GOTO 600 ELSE GOTO 400ã 'specs for the vertical lines (lines are X,Y)ã400ãCLSãSCREEN 12ãDEFLNG A-ZãLINE (100, 375)-(475, 375), 5 ' bottom line of graphãLINE (100, 376)-(475, 376), 5ãLINE (100, 75)-(100, 376), 5 'this is vertical line of graphãLINE (101, 75)-(101, 376), 5ã'ãLOCATE 11, 60ãCOLOR 9ãPRINT "UCL & LCL"ãLOCATE , 60ãPRINT "OF SAMPLE"ãCOLOR 15ãLOCATE , 60ãPRINT "Shown by"ãLOCATE , 60ãPRINT "White LineS"ã' horizontal line separation is 30ãLINE (100, 345)-(475, 345), 11 ' this is an add-on init.lineãLINE (100, 315)-(475, 315), 11 ' this is an add-on init.lineãLINE (100, 285)-(475, 285), 11 ' this is an add-on init.lineãLINE (100, 255)-(475, 255), 11 ' this is an add-on init.lineãLINE (100, 225)-(475, 225), 11 ' this is an add-on init.lineãLINE (100, 195)-(465, 195), 11 ' this is an add-on init.lineãLINE (100, 165)-(465, 165), 11 ' this is an add-on init.lineãLINE (100, 135)-(475, 135), 11 ' this is an add-on init.lineãLINE (100, 105)-(475, 105), 11 ' this is an add-on init.lineãLOCATE 2, 3ãCOLOR 14ãPRINT "INCIDENTS"ãLOCATE 3, 28: PRINT "SAMPLING ANALYSIS FOR "; namer$ãLOCATE 3, 3: PRINT "RANGE 0 - 10"ãLOCATE 25, 13ãCOLOR 15ãPRINT TAB(13); "0"; TAB(17); "1"; TAB(21); "2"; TAB(24); "3"; TAB(28); "4"; TAB(32); "5"; TAB(36); "6"; TAB(39); "7"; TAB(43); "8"; TAB(46); "9"; TAB(50); "10"; TAB(54); "11"; TAB(58); "12"ãLOCATE 26, 25ãCOLOR 5ãPRINT "NUMBER OF SAMPLES TAKEN FOR THIS ANALYSIS"ãLOCATE 24, 8ãCOLOR 14ãPRINT "0"ãLOCATE 22, 8ãPRINT "1"ãLOCATE 20, 8ãPRINT "2"ãLOCATE 18, 8ãPRINT "3"ãLOCATE 16, 8ãPRINT "4"ãLOCATE 14, 8ãPRINT "5"ãLOCATE 13, 8ãPRINT "6"ãLOCATE 11, 8ãPRINT "7"ãLOCATE 9, 8ãPRINT "8"ãLOCATE 7, 8ãPRINT "9"ãLOCATE 5, 8ãPRINT "10"ãã' THIS SETS UP THE VERTICAL LINESãLINE (130, 75)-(130, 375), 11 '1ãLINE (160, 75)-(160, 375), 11 '2ãLINE (190, 75)-(190, 375), 11 '3ãLINE (220, 75)-(220, 375), 11 '4ãLINE (250, 75)-(250, 375), 11 '5ãLINE (280, 75)-(280, 375), 11 '6ãLINE (310, 75)-(310, 375), 11 '7ãLINE (340, 75)-(340, 375), 11 '8 30 separation factorãLINE (370, 75)-(370, 375), 11 '9ãLINE (400, 75)-(400, 375), 11 '10ãLINE (430, 75)-(430, 375), 11 '11ãLINE (460, 75)-(460, 375), 11 '12ã' this section computes the traceline pointsãhora = 375ã'ã'ã'ãUCL = 2.1 'these are set in arbitraily now and mustãLCL = 1.5 'be accommodated before finalizationã'ã'ã ' sets up the horizontal tracesãhor1! = 375 - (de1 * 30)ãup1! = (hor1! - (UCL * 30))ãlow1! = hor1! + (LCL * 30)ãhor2! = 375 - (de2 * 30)ãup2! = (hor2! - (UCL * 30))ãlow2! = hor2! + (LCL * 30)ãhor3! = 375 - (de3 * 30)ãup3! = (hor3! - (UCL * 30))ãlow3! = hor3! + (LCL * 30)ãhor4! = 375 - (de4 * 30)ãup4! = hor4! - (UCL * 30)ãlow4! = hor4! + (LCL * 30)ãhor5! = 375 - (de5 * 30)ãup5! = hor5! - (UCL * 30)ãlow5! = hor5! + (LCL * 30)ãhor6! = 375 - (de6 * 30)ãup6! = hor6! - (UCL * 30)ãlow6! = hor6! + (LCL * 30)ãhor7! = 375 - (de7 * 30)ãup7! = hor7! - (UCL * 30)ãlow7! = hor7! + (LCL * 30)ãhor8! = 375 - (de8 * 30)ãup8! = hor8! - (UCL * 30)ãlow8! = hor8! + (LCL * 30)ãhor9! = 375 - (de9 * 30)ãup9! = hor9! - (UCL * 30)ãlow9! = hor9! + (LCL * 30)ãhor10! = 375 - (de10 * 30)ãup10! = hor10! - (UCL * 30)ãlow10! = hor10! + (LCL * 30)ãhor11! = 375 - (de11 * 30)ãup11! = hor11! - (UCL * 30)ãlow11! = hor11! + (LCL * 30)ãhor12! = 375 - (de12 * 30)ãup12! = hor12! - (UCL * 30)ãlow12! = hor12! + (LCL * 30)ãã' ãã' this section sets up the y-position traceããLINE (100, 375)-(130, hor1!), 14ãLINE (130, hor1!)-(160, hor2!), 14ãLINE (160, hor2!)-(190, hor3!), 14ãLINE (190, hor3!)-(220, hor4!), 14ãLINE (220, hor4!)-(250, hor5!), 14ãLINE (250, hor5!)-(280, hor6!), 14ãLINE (280, hor6!)-(310, hor7!), 14ãLINE (310, hor7!)-(340, hor8!), 14ãLINE (340, hor8!)-(370, hor9!), 14ãLINE (370, hor9!)-(400, hor10!), 14ãLINE (400, hor10!)-(430, hor11!), 14ãLINE (430, hor11!)-(460, hor12!), 14ã' this section draws the UCL trace lineãLINE (100, 375)-(130, up1!), 15ãLINE (130, up1!)-(160, up2!), 15ãLINE (160, up2!)-(190, up3!), 15ãLINE (190, up3!)-(220, up4!), 15ãLINE (220, up4!)-(250, up5!), 15ãLINE (250, up5!)-(280, up6!), 15ãLINE (280, up6!)-(310, up7!), 15ãLINE (310, up7!)-(340, up8!), 15ãLINE (340, up8!)-(370, up9!), 15ãLINE (370, up9!)-(400, up10!), 15ãLINE (400, up10!)-(430, up11!), 15ãLINE (430, up11!)-(460, up12!), 15ã' ' this section draws the LCL trace lineãLINE (100, 375)-(130, low1!), 15ãLINE (130, low1!)-(160, low2!), 15ãLINE (160, low2!)-(190, low3!), 15ãLINE (190, low3!)-(220, low4!), 15ãLINE (220, low4!)-(250, low5!), 15ãLINE (250, low5!)-(280, low6!), 15ãLINE (280, low6!)-(310, low7!), 15ãLINE (310, low7!)-(340, low8!), 15ãLINE (340, low8!)-(370, low9!), 15ãLINE (370, low9!)-(400, low10!), 15ãLINE (400, low10!)-(430, low11!), 15ãLINE (430, low11!)-(460, low12!), 15ããENDãã' THIS IS FOR GRAPH SHOWING 0 TO 100(100, 200 . . .800,900, ETC)ã600ãCLSãSCREEN 12ãDEFLNG A-ZãLINE (100, 375)-(475, 375), 5 ' bottom line of graphãLINE (100, 376)-(475, 376), 5ãLINE (100, 75)-(100, 376), 5 'this is vertical line of graphãLINE (101, 75)-(101, 376), 5ã'ãLOCATE 11, 60ãCOLOR 9ãPRINT "UCL & LCL"ãLOCATE , 60ãPRINT "OF SAMPLE"ãCOLOR 15ãLOCATE , 60ãPRINT "Shown by"ãLOCATE , 60ãPRINT "White LineS"ã' horizontal line separation is 30ãLINE (100, 345)-(475, 345), 11 ' this is an add-on init.lineãLINE (100, 315)-(475, 315), 11 ' this is an add-on init.lineãLINE (100, 285)-(475, 285), 11 ' this is an add-on init.lineãLINE (100, 255)-(475, 255), 11 ' this is an add-on init.lineãLINE (100, 225)-(475, 225), 11 ' this is an add-on init.lineãLINE (100, 195)-(465, 195), 11 ' this is an add-on init.lineãLINE (100, 165)-(465, 165), 11 ' this is an add-on init.lineãLINE (100, 135)-(475, 135), 11 ' this is an add-on init.lineãLINE (100, 105)-(475, 105), 11 ' this is an add-on init.lineã ' this section shows graph for 3-digit entries to 1000ãLOCATE 3, 3ãCOLOR 14ãPRINT "INCIDENTS"ãLOCATE 3, 28: PRINT "SAMPLING ANALYSIS FOR "; namer$ãLOCATE 4, 3: PRINT "RANGE 0-1000"ãLOCATE 25, 13ãCOLOR 15ãPRINT TAB(13); "0"; TAB(17); "1"; TAB(21); "2"; TAB(24); "3"; TAB(28); "4"; TAB(32); "5"; TAB(36); "6"; TAB(39); "7"; TAB(43); "8"; TAB(46); "9"; TAB(50); "10"; TAB(54); "11"; TAB(58); "12"ãLOCATE 26, 15ãCOLOR 5ãPRINT "NUMBER OF SAMPLES TAKEN FOR ANALYSIS"ãLOCATE 24, 8ãCOLOR 14ãPRINT "0"ãLOCATE 22, 8ãPRINT "100"ãLOCATE 20, 8ãPRINT "200"ãLOCATE 18, 8ãPRINT "300"ãLOCATE 16, 8ãPRINT "400"ãLOCATE 15, 8ãPRINT "500"ãLOCATE 13, 8ãPRINT "600"ãLOCATE 11, 8ãPRINT "700"ãLOCATE 9, 8ãPRINT "800"ãLOCATE 7, 8ãPRINT "900"ãLOCATE 5, 8ãPRINT "1000"ãã' THIS SETS UP THE VERTICAL LINESãLINE (130, 75)-(130, 375), 11 '1ãLINE (160, 75)-(160, 375), 11 '2ãLINE (190, 75)-(190, 375), 11 '3ãLINE (220, 75)-(220, 375), 11 '4ãLINE (250, 75)-(250, 375), 11 '5ãLINE (280, 75)-(280, 375), 11 '6ãLINE (310, 75)-(310, 375), 11 '7ãLINE (340, 75)-(340, 375), 11 '8 30 separation factorãLINE (370, 75)-(370, 375), 11 '9ãLINE (400, 75)-(400, 375), 11 '10ãLINE (430, 75)-(430, 375), 11 '11ãLINE (460, 75)-(460, 375), 11 '12ã' this section draws the tracelineã'ã'ã'ãUCL = 50.1 'these are set in arbitraily now and mustãLCL = 18.5 'be accommodated before finalizationã'ã'ã'ãhora = 375ãhor1! = 375 - (de1 * .3)ãup1! = hor1! - (UCL * .3)ãlow1! = hor1! + (LCL * .3)ãhor2! = 375 - (it2 * .3)ãup2! = hor2! - (UCL * .3)ãlow2! = hor2! + (LCL * .3)ãhor3! = 375 - (de3 * .3)ãup3! = hor3! - (UCL * .3)ãlow3! = hor3! + (LCL * .3)ãhor4! = 375 - (de4 * .3)ãup4! = hor4! - (UCL * .3)ãlow4! = hor4! + (LCL * .3)ãhor5! = 375 - (de5 * .3)ãup5! = hor5! - (UCL * .3)ãlow5! = hor5! + (LCL * .3)ãhor6! = 375 - (de6 * .3)ãup6! = hor6! - (UCL * .3)ãlow6! = hor6! + (LCL * .3)ãhor7! = 375 - (de7 * .3)ãup7! = hor7! - (UCL * .3)ãlow7! = hor7! + (LCL * .3)ãhor8! = 375 - (de8 * .3)ãup8! = hor8! - (UCL * .3)ãlow8! = hor8! + (LCL * .3)ãhor9! = 375 - (de9 * .3)ãup9! = hor9! - (UCL * .3)ãlow9! = hor9! + (LCL * .3)ãhor10! = 375 - (de10 * .3)ãup10! = hor10! - (UCL * .3)ãlow10! = hor10! + (LCL * .3)ãhor11! = 375 - (de11 * .3)ãup11! = hor11! - (UCL * .3)ãlow11! = hor11! + (LCL * .3)ãhor12! = 375 - (de12 * .3)ãup12! = hor12! - (UCL * .3)ãlow12! = hor12! + (LCL * .3)ã 'this section draws the LCL trace linesãLINE (100, 375)-(130, low1!), 11ãLINE (130, low1!)-(160, low2!), 14ãLINE (160, low2!)-(190, low3!), 14ãLINE (190, low3!)-(220, low4!), 14ãLINE (220, low4!)-(250, low5!), 14ãLINE (250, low5!)-(280, low6!), 14ãLINE (280, low6!)-(310, low7!), 14ãLINE (310, low7!)-(340, low8!), 14ãLINE (340, low8!)-(370, low9!), 14ãLINE (370, low9!)-(400, low10!), 14ãLINE (400, low10!)-(430, low11!), 14ãLINE (430, low11!)-(460, low12!), 14ã 'this section draws the UCL trace linesãLINE (100, 375)-(130, up1!), 15ãLINE (130, up1!)-(160, up2!), 15ãLINE (160, up2!)-(190, up3!), 15ãLINE (190, up3!)-(220, up4!), 15ãLINE (220, up4!)-(250, up5!), 15ãLINE (250, up5!)-(280, up6!), 15ãLINE (280, up6!)-(310, up7!), 15ãLINE (310, up7!)-(340, up8!), 15ãLINE (340, up8!)-(370, up9!), 15ãLINE (370, up9!)-(400, up10!), 15ãLINE (400, up10!)-(430, up11!), 15ãLINE (430, up11!)-(460, up12!), 15ã ' this section sets up the x-position traceãLINE (100, 375)-(130, hor1!), 13ãLINE (130, hor1!)-(160, hor2!), 13ãLINE (160, hor2!)-(190, hor3!), 13ãLINE (190, hor3!)-(220, hor4!), 13ãLINE (220, hor4!)-(250, hor5!), 13ãLINE (250, hor5!)-(280, hor6!), 13ãLINE (280, hor6!)-(310, hor7!), 13ãLINE (310, hor7!)-(340, hor8!), 13ãLINE (340, hor8!)-(370, hor9!), 13ãLINE (370, hor9!)-(400, hor10!), 13ãLINE (400, hor10!)-(430, hor11!), 13ãLINE (430, hor11!)-(460, hor12!), 13ãããENDãããGerald Wykoff Paired Variable Graphic 07-01-01 ( : ) QB, Qbasic 243 8006 Xpairs.bas ' Subject: Paired Variables Graphic Date: 7-1-01 ã' Author: Gerald L. Wykoff Code: QB, QBasicã' Origin: wykoff@mbawiz.comã25ãDECLARE SUB GRAPH (GOODS(), DAYS%, XPOS%, YPOS%, NORMA%, COL.GRAPH%)ãREM PROGRAM 8.4ãREM GraphãCOMMON SHARED XVAR$, YVAR$ãCLSãSCREEN 9ãCOLOR 10, 1ãLINE (5, 5)-(630, 5), 12ãLINE -(630, 338), 12ãLINE -(5, 338), 12ãLINE -(5, 5), 12ãLINE (4, 4)-(631, 4), 3ãLINE -(631, 339), 3ãLINE -(4, 339), 3ãLINE -(4, 4), 3ãPRINTãPRINTãPRINT " GRAPH COMPARING PAIRED VARIABLES."ãCOLOR 11ãPRINT " (c) 2000 Gerald L. Wykoff . . .written for www.mbawiz.com"ãPRINTãPRINTãCOLOR 15ãPRINT " This visual presents a relative display of the data"ãPRINT " in paired variables. For that reason, try to keep the"ãPRINT " entries disciplined i.e., NUMBERS WITH SAME DIGIT TOTALS"ãPRINT " IN BOTH LISTS. The graphic does not accept keyboard"ãPRINT " data entries .. . you can only call up data from a perma-"ãPRINT " nent Paired Sequential file."ãPRINT " Because the display is relative, there is no limit on the"ãPRINT " size of the number - although smaller numbers mean less typing."ãPRINTãPRINTãCOLOR 14ãINPUT " What is the name/title for the X Variable "; XVAR$ãPRINTãINPUT " What is the name/title for the Y Variable "; YVAR$ãPRINTã ' call up an existing statements fileãPRINTãPRINTã200ãINPUT " What's the name/path of the file you want "; file$ãOPEN file$ FOR INPUT AS #1ã' start getting the data converteãcounter = 1ãDO UNTIL EOF(1)ãINPUT #1, d1, d2, d3, d4, d5, d6, d7, d8, d9, d10, d11, d12, e1, e2, e3, e4, e5, e6, e7, e8, e9, e10, e11, e12ãFOR i = 1 TO 1000ã NEXTã counter = counter + 1ãLOOPãCLSãSCREEN 9ãCOLOR 14, 8ãLINE (5, 5)-(630, 5), 12ãLINE -(630, 338), 12ãLINE -(5, 338), 12ãLINE -(5, 5), 12ãLINE (4, 4)-(631, 4), 3ãLINE -(631, 339), 3ãLINE -(4, 339), 3ãLINE -(4, 4), 3ãPRINTãPRINTãPRINT TAB(30); "X", "Y"ãPRINT TAB(30); d1, e1ãPRINT TAB(30); d2, e2ãPRINT TAB(30); d3, e3ãPRINT TAB(30); d4, e4ãPRINT TAB(30); d5, e5ãPRINT TAB(30); d6, e6ãPRINT TAB(30); d7, e7ãPRINT TAB(30); d8, e8ãPRINT TAB(30); d9, e9ãPRINT TAB(30); d10, e10ãPRINT TAB(30); d11, e11ãPRINT TAB(30); d12, e12ãPRINTãPRINTãPRINT " View the X Variable data above. Since the graph shows relative"ãINPUT " data, to maintain consistency, type in the highest value "; nuvalãDIM QUANTITY1(12)ãQUANTITY1(1) = d1ãQUANTITY1(2) = d2ãQUANTITY1(3) = d3ãQUANTITY1(4) = d4ãQUANTITY1(5) = d5ãQUANTITY1(6) = d6ãQUANTITY1(7) = d7ãQUANTITY1(8) = d8ãQUANTITY1(9) = d9ãQUANTITY1(10) = d10ãQUANTITY1(11) = d11ãQUANTITY1(12) = d12ã 'ãDIM QUANTITY2(12)ãQUANTITY2(1) = e1ãQUANTITY2(1) = nuvalãQUANTITY2(2) = e2ãQUANTITY2(3) = e3ãQUANTITY2(4) = e4ãQUANTITY2(5) = e5ãQUANTITY2(6) = e6ãQUANTITY2(7) = e7ãQUANTITY2(8) = e8ãQUANTITY2(9) = e9ãQUANTITY2(10) = e10ãQUANTITY2(11) = e11ãQUANTITY2(12) = e12ã'ã SCREEN 12ã CLSã 'ã ' declare two different arraysã 'ã ã 'ãã ' Note: bottom of top two charts is 145 and disance from 0-10ã ' is 100 counts....bottom of bottom chart is 310 and distanceã 'is again 100 counts ....vertical speacing note vipã ' two different set of dataã ' this line controls the dark blue bars on #1 & #3ã DATA quantity1(1), quantity1(2), quantity1(3), quantity1(4), quantity1(5), quantity1(6), quantity1(7), quantity1(8), quantity1(9), quantity1(10), quantity1(11), quantity1(12)ã ' this data line controls silver bars on the #2 and #3ã DATA quantity2(1), quantity2(2), quantity2(3), quantity2(4), quantity2(5), quantity2(6), quantity2(7), quantity2(8), quantity2(9), quantity2(10), quantity2(11), quantity2(12)ãã TIMES% = 12 'was 15ã LABEL% = 80ã ' to set color on bars, use last digit in CALL GRAPH commandsã' line sets bottomfor graf #1&bar color last digitã CALL GRAPH(QUANTITY1(), TIMES%, 45, 145, LABEL%, 1) 'was 1, 80, LABEL%, 1ã ' this adjusts the graf bars on the 3 chartsã 'ã ' call subprogram with different parametersã ' three different graphs will be displayedã ' 'this line sets bottom on graf #2ã CALL GRAPH(QUANTITY2(), TIMES%, 330, 145, LABEL%, 8) 'was 430, 135 280, 170, LABEL%, 2ã ' this line sets bar on bottom most graph(bar color last digit)ã CALL GRAPH(QUANTITY1(), TIMES%, 200, 310, 80, 1) 'was 200, 300, 80, 1ã' this line sets bars on bottom most graph(bar color is last digit)ã CALL GRAPH(QUANTITY2(), TIMES%, 200, 310, 80, 8) 'was 200, 300, 80, 2ãPRINTãPRINTãPRINTãPRINTãPRINTãPRINTãPRINTãPRINTãPRINTãINPUT " Would you like to (1) Repeat, or (2) Quit (1 or 2) "; ask17$ãIF ask17$ = "1" THEN GOTO 750 ELSE GOTO 1200ã750ãCLOSE #1ãGOTO 25ã1200ãCLOSE #1ãENDãã SUB GRAPH (GOODS(), DAYS%, XPOS%, YPOS%, NORMA%, COL.GRAPH%)ãã DIM NORM(DAYS%)ã PMAX = GOODS(1)ã FOR NUMBER.OF.ELEMENT = 2 TO DAYS%ã IF GOODS(NUMBER.OF.ELEMENT) > PMAX THENã PMAX = GOODS(NUMBER.OF.ELEMENT)ã END IFã NEXT NUMBER.OF.ELEMENTã LINE (XPOS%, YPOS%)-(XPOS% + 150, YPOS%), COL.GRAPH% 'was 187ã FOR NUMBER.OF.ELEMENT = 1 TO DAYS%ã NORM(NUMBER.OF.ELEMENT) = GOODS(NUMBER.OF.ELEMENT) / PMAX * NORMA%ã ZPOS% = XPOS% + 20 * (NUMBER.OF.ELEMENT - 1)ã LINE (ZPOS%, YPOS%)-(ZPOS% + 10, YPOS% - NORM(NUMBER.OF.ELEMENT)), COL.GRAPH%, BF 'was 7, not 10ã NEXT NUMBER.OF.ELEMENTã LOCATE 3, 12ã COLOR 14ã PRINT TAB(15); XVAR$; TAB(45); YVAR$ã LOCATE 14, 15ã PRINT "COMPARISON BETWEEN X AND Y VARIABLES"ã COLOR 5ã LOCATE 11, 6ã PRINT "1 2 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5 6 7 8 9 10 11 12"ã LOCATE 21, 26ã PRINT "1 2 3 4 5 6 7 8 9 10 11 12"ã COLOR 14ã LOCATE 23, 5ã PRINT "These three charts offer a relative presentation of the"ã LOCATE 24, 5ã PRINT "relationship between the Paired Variables - a view that is"ã LOCATE 25, 5ã PRINT "often not evident when looking at strict numbers. Ignore"ã LOCATE 26, 5ã PRINT "column 1 in Charts 2 & 3 (it's the height limiter which assures"ã LOCATE , 5ã PRINT "the relative bar height consistency for all three charts."ã 'COLOR 15ã LINE (42, 50)-(42, 145), 11 'left vertical lineã LINE (41, 50)-(41, 145), 11 'line doublesã ' bottom most vertical lineã LINE (42, 145)-(600, 145), 11ã LINE (42, 146)-(600, 146), 11ã 'ã LINE (200, 210)-(200, 310), 11 ' bottom vertical for bottom graphã LINE (199, 210)-(199, 311), 11 ' doubles bot-bot vertical lineã 'ã LINE (199, 310)-(450, 310), 11 'bottom horizontal lineã LINE (199, 311)-(449, 311), 11ã 'ã ' places index numbers for top two chartsã LOCATE 5, 3ã PRINT "10"ã LOCATE 6, 4ã PRINT "|"ã LOCATE 7, 4ã PRINT "|"ã LOCATE 8, 4ã PRINT "|"ã LOCATE 9, 4ã PRINT "|"ã LOCATE 10, 4ã PRINT "0"ã ' this places index numbers on bottom chartã LOCATE 15, 23ã PRINT "10"ã LOCATE 16, 24ã PRINT "|"ã LOCATE 17, 24ã PRINT "|"ã LOCATE 18, 24ã PRINT "|"ã LOCATE 19, 24ã PRINT "|"ã LOCATE 20, 24ã PRINT "0"ãã END SUBããGerald Wykoff Ogive Chart Graphic 07-01-01 ( : ) QB, Qbasic 188 5908 Xolgivx.bas ' Subject: Ogive Chart Graphic Date: 7-1-01 ã' Author: Gerald L. Wykoff Code: QB, QBasicã' Origin: wykoff@mbawiz.comDECLARE SUB greenbox ()ãCOMMON SHARED il!, sum, namer$ãCOMMON SHARED vera, ver1, ver2, ver3, ver4, ver5, ver6ãCOMMON SHARED hor1, hor2, hor3, hor4, hor5, hor6ãCLSãSCREEN 12ãCALL greenboxãCOLOR 14ãLOCATE 5, 20: PRINT "THE OGIVE CHART (CUMULATIVE TOTAL DATA)"ãLOCATE 8, 10ãPRINT "This display displays a cumulative or running total for the"ãLOCATE , 10: PRINT "observations that you enter for each event. It best accom-"ãLOCATE , 10: PRINT "modates 2 digit numbers (BEFORE any decimal)."ãPRINTãPRINTãLOCATE 20, 15: PRINT "Type in a name/title that will identify"ãLOCATE , 20ãINPUT "this particular chart project "; namer$ã105ãLOCATE 25, 30ãCOLOR 15ãPRINT "To Continue, Tap Any Key"ãDO: LOOP UNTIL INKEY$ <> ""ã'ãCLSãSCREEN 9ãCOLOR 10, 9ãDEFLNG A-ZãLOCATE 3, 15: PRINT "DATA ENTRY FOR GRAPHIC"ãINPUT " What's the Total Incidents in Item 1"; it1ãINPUT " What's the Total Incidents in Item 2"; it2ãINPUT " What's the Total Incidents in Item 3"; it3ãINPUT " What's the Total Incidents in Item 4"; it4ãINPUT " What's the Total Incidents in Item 5"; it5ãINPUT " What's the Total Incidents in Item 6"; it6ãINPUT " What's the Total Incidents in Item 7"; it7ãINPUT " What's the Total Incidents in Item 8"; it8ãINPUT " What's the Total Incidents in Item 9"; it9ãINPUT " What's the Total Incidents in Item 10"; it10ãINPUT " What's the Total Incidents in Item 11"; it11ãINPUT " What's the Total Incidents in Item 12"; it12ã'ã 'specs for the vertical lines (lines are X,Y)ãCLSãSCREEN 12ãDEFLNG A-ZãLINE (100, 375)-(475, 375), 5 ' bottom line of graphãLINE (100, 376)-(475, 376), 5ãLINE (100, 75)-(100, 376), 5 'this is vertical line of graphãLINE (101, 75)-(101, 376), 5ã'ãLOCATE 11, 60ãCOLOR 9ãPRINT "CUMULATIVE"ãLOCATE , 60ãPRINT "TRACKING"ãCOLOR 15ãLOCATE , 60ãPRINT "Shown by"ãLOCATE , 60ãPRINT "White Line"ã' horizontal line separation is 30ãLINE (100, 345)-(475, 345), 10 ' this is an add-on init.lineãLINE (100, 315)-(475, 315), 10 ' this is an add-on init.lineãLINE (100, 285)-(475, 285), 10 ' this is an add-on init.lineãLINE (100, 255)-(475, 255), 10 ' this is an add-on init.lineãLINE (100, 225)-(475, 225), 10 ' this is an add-on init.lineãLINE (100, 195)-(465, 195), 10 ' this is an add-on init.lineãLINE (100, 165)-(465, 165), 10 ' this is an add-on init.lineãLINE (100, 135)-(475, 135), 10 ' this is an add-on init.lineãLINE (100, 105)-(475, 105), 10 ' this is an add-on init.lineãããLOCATE 3, 20ãCOLOR 14ãPRINT "CUMULATIVE RUNNING TOTAL "; namer$ãLOCATE 25, 13ãCOLOR 15ãPRINT TAB(13); "0"; TAB(17); "1"; TAB(21); "2"; TAB(24); "3"; TAB(28); "4"; TAB(32); "5"; TAB(36); "6"; TAB(39); "7"; TAB(43); "8"; TAB(46); "9"; TAB(50); "10"; TAB(54); "11"; TAB(58); "12"ã'LOCATE 26, 15ãCOLOR 5ãPRINT " Cumulative Running Totals"ãLOCATE 24, 8ãCOLOR 14ãPRINT "0"ãLOCATE 22, 8ãPRINT "100"ãLOCATE 20, 8ãPRINT "200"ãLOCATE 18, 8ãPRINT "300"ãLOCATE 16, 8ãPRINT "400"ãLOCATE 14, 8ãPRINT "500"ãLOCATE 13, 8ãPRINT "600"ãLOCATE 11, 8ãPRINT "700"ãLOCATE 9, 8ãPRINT "800"ãLOCATE 7, 8ãPRINT "900"ãLOCATE 5, 8ãPRINT "1000"ãã' THIS SETS UP THE VERTICAL LINESãLINE (130, 75)-(130, 375), 10 '1ãLINE (160, 75)-(160, 375), 10 '2ãLINE (190, 75)-(190, 375), 10 '3ãLINE (220, 75)-(220, 375), 10 '4ãLINE (250, 75)-(250, 375), 10 '5ãLINE (280, 75)-(280, 375), 10 '6ãLINE (310, 75)-(310, 375), 10 '7ãLINE (340, 75)-(340, 375), 10 '8 30 separation factorãLINE (370, 75)-(370, 375), 10 '9ãLINE (400, 75)-(400, 375), 10 '10ãLINE (430, 75)-(430, 375), 10 '11ãLINE (460, 75)-(460, 375), 10 '12ã' this section draws the tracelineãhora = 375ãhor1! = 375 - (it1 * .4)ãhor2! = hor1! - (it2 * .4)ãhor3! = hor2! - (it3 * .4)ãhor4! = hor3! - (it4 * .4)ãhor5! = hor4! - (it5 * .4)ãhor6! = hor5! - (it6 * .4)ãhor7! = hor6! - (it7 * .4)ãhor8! = hor7! - (it8 * .4)ãhor9! = hor8! - (it9 * .4)ãhor10! = hor9! - (it10 * .4)ãhor11! = hor10! - (it11 * .4)ãhor12! = hor11! - (it12 * .4)ã' this section sets up the x-position traceããLINE (100, 375)-(130, hor1!), 15ãLINE (130, hor1!)-(160, hor2!), 15ãLINE (160, hor2!)-(190, hor3!), 15ãLINE (190, hor3!)-(220, hor4!), 15ãLINE (220, hor4!)-(250, hor5!), 15ãLINE (250, hor5!)-(280, hor6!), 15ãLINE (280, hor6!)-(310, hor7!), 15ãLINE (310, hor7!)-(340, hor8!), 15ãLINE (340, hor8!)-(370, hor9!), 15ãLINE (370, hor9!)-(400, hor10!), 15ãLINE (400, hor10!)-(430, hor11!), 15ãLINE (430, hor11!)-(460, hor12!), 15ããENDããDEFSNG A-ZãSUB greenboxãSOUND 150, 5ãLINE (10, 15)-(630, 470), 2, BFãLINE (8, 13)-(633, 470), 6, BãLINE (10, 15)-(630, 467), 6, BãLINE (12, 17)-(627, 465), 7, BããEND SUBããSUB initialãSCREEN 12ãLOCATE 11, 60ãCOLOR 9ãPRINT "CUMULATIVE"ãLOCATE , 60ãPRINT "TRACKING"ãCOLOR 15ãLOCATE , 60ãPRINT "Shown by"ãLOCATE , 60ãPRINT "White Line"ã' horizontal line separation is 30ãLINE (100, 345)-(450, 345), 10 ' this is an add-on init.lineãLINE (100, 315)-(450, 315), 10 ' this is an add-on init.lineãLINE (100, 285)-(450, 285), 10 ' this is an add-on init.lineãLINE (100, 255)-(450, 255), 10 ' this is an add-on init.lineãLINE (100, 225)-(450, 225), 10 ' this is an add-on init.lineãLINE (100, 195)-(450, 195), 10 ' this is an add-on init.lineãLINE (100, 165)-(450, 165), 10 ' this is an add-on init.lineãLINE (100, 135)-(450, 135), 10 ' this is an add-on init.lineãLINE (100, 105)-(450, 105), 10 ' this is an add-on init.lineã' in line above, it's important to use only first three digitsããEND SUBããGerald Wykoff Moving Average Graphic 06-10-01 ( : ) QB, Qbasic 386 9726 Xmovavx.bas ' Subject: MOVING AVERAGE GRAPHIC DISPLAY Date: 6-10-1 (18:22)ã' Author: Gerald L. Wykoff Code: QB, QBasicã' Origin: wykoff@mbawiz.comã'ãREM this is a moving average utility that translates data entriesãREM into a graphics presentationããDECLARE SUB index ()ãCLSãSCREEN 9ãCOLOR 15, 5ãDEFDBL A-ZãPRINTãPRINTãPRINT " MOVING AVERAGE COMPUTATION AND GRAPHIC DISPLAY"ãCOLOR 11ãPRINT " (c) 2000 Gerald Wykoff......Written for www.mbawiz.com"ãPRINTãPRINTãCOLOR 14ãPRINT " The graphics are set up to deal only with 3-digit"ãPRINT " numbers BEFORE the decimal, and any number of digits"ãPRINT " AFTER the decimal."ãPRINT " If you don't need all 12 data entries, tap the ENTER"ãPRINT " key to finish out the routine. Also, when you call up"ãPRINT " various averages, you'll often see 0's at the end of the"ãPRINT " column: this is normal because of the run-out-of-data,"ãPRINT " depicted by the line's drop-and-up spike at the end."ãPRINTãPRINTãCOLOR 15ãINPUT " Enter project name for data series "; title$ãPRINTãPRINTãPRINT " Do you wish to call up an (1) existing file or (2) type in the data?"ãINPUT " Please Make Your Selection (1 or 2) "; what$ãIF what$ = "1" THEN GOTO 95 ELSE GOTO 100ã ' call up an existing statements fileã95ãPRINTãPRINTãPRINTãINPUT " Type in the path/name of the data file "; file$ãOPEN file$ FOR INPUT AS #1ãINPUT #1, item1, item2, item3, item4, item5, item6, item7, item8, item9, item10, item11, item12ãd1 = item1ãd2 = item2ãd3 = item3ãd4 = item4ãd5 = item5ãd6 = item6ãd7 = item7ãd8 = item8ãd9 = item9ãd10 = item10ãd11 = item11ãd12 = item12ã'ãGOTO 200ã100ãPRINTãPRINTãPRINTãPRINTãINPUT " Enter data 1"; d1ãINPUT " Enter data 2"; d2ãINPUT " Enter data 3"; d3ãINPUT " Enter data 4"; d4ãINPUT " Enter data 5"; d5ãINPUT " Enter data 6"; d6ãINPUT " Enter data 7"; d7ãINPUT " Enter data 8"; d8ãINPUT " Enter data 9"; d9ãINPUT " Enter data 10"; d10ãINPUT " Enter data 11"; d11ãINPUT " Enter data 12"; d12ãPRINTã200ãCLSãCOLOR 14, 1ãPRINTãPRINTãPRINTãPRINT TAB(30); d1ãPRINT TAB(30); d2ãPRINT TAB(30); d3ãPRINT TAB(30); d4ãPRINT TAB(30); d5ãPRINT TAB(30); d6ãPRINT TAB(30); d7ãPRINT TAB(30); d8ãPRINT TAB(30); d9ãPRINT TAB(30); d10ãPRINT TAB(30); d11ãPRINT TAB(30); d12ãPRINTãPRINTã' Ask for the highest and lowest entries in the data seriesãINPUT " What is the lowest data total in the series"; lo1: PRINTãPRINTãINPUT " What is the highest data total in the series"; hi1: PRINTã'ãCLSãSCREEN 9ãCOLOR 10, 9'ãINPUT " Which moving average do you want to calculate: 2,3,4 or 5 years"; avãPRINTãPRINT " Keep your data entries to 3 or less digits BEFORE any necessary"ãPRINT " decimals - if you require decimals for more accurate analysis."ãCLSãPRINT " Below are listed the sequential averages based on"ãPRINT " the data entries (first to last) that you made."ãSELECT CASE avã CASE 2ãPRINT " TWO-YEAR MOVING AVERAGES FOR: "; title$ãY2$ = " TWO-YEAR MOVING AVERAGE"ãg1 = (d1 + d2) / 2ãPRINT g1ãPRINTãg2 = (d2 + d3) / 2ãPRINT g2ãPRINTãg3 = (d3 + d4) / 2ãPRINT g3ãPRINTãg4 = (d4 + d5) / 2ãPRINT g4ãPRINTãg5 = (d5 + d6) / 2ãPRINT g5ãPRINTãg6 = (d6 + d7) / 2ãPRINT g6ãPRINTãg7 = (d7 + d8) / 2ãPRINT g7ãPRINTãg8 = (d8 + d9) / 2ãPRINT g8ãPRINTãg9 = (d9 + d10) / 2ãPRINT g9ãPRINTãg10 = (d10 + d11) / 2ãPRINT g10ãg11 = (d11 + d12) / 2ãPRINT g11ãPRINTãPRINTãPRINT " Press any key to continue"ãDO WHILE INKEY$ = ""ãLOOPãCLSãCASE 3ãPRINT " THREE-YEAR MOVING AVERAGES FOR: "; title$ãY3$ = " THREE-YEAR MOVING AVERAGE"ãPRINTãg1 = (d1 + d2 + d3) / 3ãPRINT USING "#####.#"; g1ãPRINTãg2 = (d2 + d3 + d4) / 3ãPRINT USING "#####.#"; g2ãPRINTãg3 = (d3 + d4 + d5) / 3ãPRINT USING "#####.#"; g3ãPRINTãg4 = (d4 + d5 + d6) / 3ãPRINT USING "#####.#"; g4ãPRINTãg5 = (d5 + d6 + d7) / 3ãPRINT USING "#####.#"; g5ãPRINTãg6 = (d6 + d7 + d8) / 3ãPRINT USING "#####.#"; g6ãPRINTãg7 = (d7 + d8 + d9) / 3ãPRINT USING "#####.#"; g7ãPRINTãg8 = (d8 + d9 + d10) / 3ãPRINT USING "#####.#"; g8ãPRINTãg9 = (d9 + d10 + d11) / 3ãPRINT USING "#####.#"; g9ãPRINTãg10 = (d10 + d11 + d12) / 3ãPRINT USING "#####.#"; g11ãPRINTãPRINT " Press any key to continue"ãDO WHILE INKEY$ = ""ãLOOPãCLSãCASE 4ãPRINT " FOUR-YEAR MOVING AVERAGES FOR: "; title$ãY4$ = " FOUR-YEAR MOVING AVERAGE"ãPRINTãg1 = (d1 + d2 + d3 + d4) / 4ãPRINT USING "#####.#"; g1ãPRINTãg2 = (d2 + d3 + d4 + d5) / 4ãPRINT USING "#####.#"; g2ãPRINTãg3 = (d3 + d4 + d5 + d6) / 4ãPRINT USING "#####.#"; g3ãPRINTãg4 = (d4 + d5 + d6 + d7) / 4ãPRINT USING "#####.#"; g4ãPRINTãg5 = (d5 + d6 + d7 + d8) / 4ãPRINT USING "#####.#"; g5ãPRINTãg6 = (d6 + d7 + d8 + d9) / 4ãPRINT USING "#####.#"; g6ãPRINTãg7 = (d7 + d8 + d9 + d10) / 4ãPRINT USING "#####.#"; g7ãPRINTãg8 = (d8 + d9 + d10 + d11) / 4ãPRINT USING "#####.#"; g8ãPRINTãg9 = (d9 + d10 + d11 + d12) / 4ãPRINT USING "#####.#"; g9ãPRINTãPRINT " Press any key to continue"ãDO WHILE INKEY$ = ""ãLOOPãCLSã'ã CASE 5ãPRINT " FIVE-YEAR MOVING AVERAGES FOR: "; title$ãY5$ = " FIVE-YEAR MOVING AVERAGE"ãPRINTãg1 = (d1 + d2 + d3 + d4 + d5) / 5ãPRINT USING "#####.#"; g1ãPRINTãg2 = (d2 + d3 + d4 + d5 + d6) / 5ãPRINT USING "#####.#"; g2ãPRINTãg3 = (d3 + d4 + d5 + d6 + d7) / 5ãPRINT USING "#####.#"; g3ãPRINTãg4 = (d4 + d5 + d6 + d7 + d8) / 5ãPRINT USING "#####.#"; g4ãPRINTãg5 = (d5 + d6 + d7 + d8 + d9) / 5ãPRINT USING "#####.#"; g5ãPRINTãg6 = (d6 + d7 + d8 + d9 + d10) / 5ãPRINT USING "#####.#"; g6ãPRINTãg7 = (d7 + d8 + d9 + d10 + d11) / 5ãPRINT USING "#####.#"; g7ãPRINTãg8 = (d8 + d9 + d10 + d11 + d12) / 5ãPRINT USING "#####.#"; g7ããEND SELECTãPRINTãCLSã' this section calculates the trace line set pointsãset1! = 365 - (g1 * .32)ãset2! = 365 - (g2 * .32)ãset3! = 365 - (g3 * .32)ãset4! = 365 - (g4 * .32)ãset5! = 365 - (g5 * .32)ãset6! = 365 - (g6 * .32)ãset7! = 365 - (g7 * .32)ãset8! = 365 - (g8 * .32)ãset9! = 365 - (g9 * .32)ãset10! = 365 - (g10 * .32)ãset11! = 365 - (g11 * .32)ã'ãCLSãSCREEN 12ã' this section draws the ordinal lines V and HãLINE (100, 365)-(550, 365), 10 'horizontal line at base of graphãLINE (100, 364)-(550, 364), 10ãLINE (100, 25)-(100, 365), 10 'ordinal VERTICAL LINE ON GRAPHãLINE (99, 25)-(99, 365), 10ã ã ' THESE ARE THE VERTICAL LINESsãLINE (140, 25)-(140, 365), 8 ' vert 2ãLINE (180, 25)-(180, 365), 8 'vert3ãLINE (220, 25)-(220, 365), 8 'vert4ãLINE (260, 25)-(260, 365), 8 'vert5ãLINE (300, 25)-(300, 365), 8 'vert6 ... 40 separation on linesãLINE (340, 25)-(340, 365), 8 'vert7ãLINE (380, 25)-(380, 365), 8 ' vert 8ãLINE (420, 25)-(420, 365), 8 'vert9ãLINE (460, 25)-(460, 365), 8 'vert10ãLINE (500, 25)-(500, 365), 8ãLINE (540, 25)-(540, 365), 15ã ' now starting from the bottom up FOR HORIZONTAL LINESã LINE (100, 333)-(550, 333), 8ã LINE (100, 301)-(550, 301), 8ã LINE (100, 269)-(550, 269), 8ã LINE (100, 236)-(550, 236), 8 ' 32 separation between linesã LINE (100, 204)-(550, 204), 8 ' on horizontal basesã LINE (100, 172)-(550, 172), 8 ' bottom starts at 332ã LINE (100, 140)-(550, 140), 8 ' 10 is the total entryã LINE (100, 108)-(550, 108), 8ã LINE (100, 76)-(550, 76), 8ã LINE (100, 44)-(550, 44), 8ã 'ãPRINT "DATA 2,3,4 AND 5 YEAR MOVING AVERAGES "ãPRINTãPRINT USING "###.#"; hi1ãPRINTãPRINT USING "###.#"; hi1 * .9ãPRINTãPRINT USING "###.#"; hi1 * .8ãPRINTãPRINT USING "###.#"; hi1 * .7ãPRINTãPRINT USING "###.#"; hi1 * .6ãPRINTãPRINT USING "###.#"; hi1 * .5ãPRINTãPRINT USING "###.#"; hi1 * .4ãPRINTãPRINT USING "###.#"; hi1 * .3ãPRINTãPRINT USING "###.#"; hi1 * .2ãPRINTãPRINT USING "###.#"; hi1 * .1ãPRINTãPRINT " 0"ãCOLOR 10ãPRINT TAB(13); "0"; TAB(19); "1"; TAB(24); "2"; TAB(28); "3"; TAB(33); "4"; TAB(38); "5"; TAB(43); "6"; TAB(48); "7"; TAB(53); "8"; TAB(58); "9"; TAB(63); "10"; TAB(68); "11"ãPRINTãPRINT " DATA INTERVALS"ããã' this section draws the traceline 2,3,4,5 yearsãLINE (100, 365)-(140, set1!), 5ãDELAY 1ãLINE (140, set1!)-(180, set2!), 5ãDELAY 1ãLINE (180, set2!)-(220, set3!), 5ãDELAY 1ãLINE (220, set3!)-(260, set4!), 5ãDELAY 1ãLINE (260, set4!)-(300, set5!), 5ãDELAY 1ãLINE (300, set5!)-(340, set6!), 5ãDELAY 1ãLINE (340, set6!)-(380, set7!), 5ãDELAY 1ãLINE (380, set7!)-(420, set8!), 5ãDELAY 1ãLINE (420, set8!)-(460, set9!), 5ãDELAY 1ãLINE (460, set9!)-(500, set10!), 5ãDELAY 1ãLINE (500, set10!)-(540, set11!), 5ãDELAY 1ãLINE (500, set11!)-(580, set12!), 5ããENDãDEFSNG A-ZããSUB indexãPRINT "DATA "ãPRINTãPRINT USING "###.#"; hi1ãPRINTãPRINT USING "###.#"; hi1 * .9ãPRINTãPRINT USING "###.#"; hi1 * .8ãPRINTãPRINT USING "###.#"; hi1 * .7ãPRINTãPRINT USING "###.#"; hi1 * .6ãPRINTãPRINT USING "###.#"; hi1 * .5ãPRINTãPRINT USING "###.#"; hi1 * .4ãPRINTãPRINT USING "###.#"; hi1 * .3ãPRINTãPRINT USING "###.#"; hi1 * .2ãPRINTãPRINT USING "###.#"; hi1 * .1ãPRINTãPRINT USING "###.#"; lo1ãEND SUBããGerald Wykoff Base Line Comparison 07-01-01 ( : ) QB, Qbasic 137 5075 Xbasis.bas ' Subject: Base Line Comparison Date: 7-1-01 ã' Author: Gerald L. Wykoff Code: QB, QBasicã' Origin: wykoff@mbawiz.comCLSãSCREEN 9ãCOLOR 14, 9ãLINE (5, 5)-(630, 5), 12ãLINE -(630, 338), 12ãLINE -(5, 338), 12ãLINE -(5, 5), 12ãLINE (4, 4)-(631, 4), 3ãLINE -(631, 339), 3ãLINE -(4, 339), 3ãLINE -(4, 4), 3ãLOCATE 10, 15ã'GOTO 50ãPRINT "This utility will draw your intended baseline and then trace a"ãPRINT "line of subsequent results."ãlocate 15, 15ãPRINT "Use only first 3 digits on next two queries."ãLOCATE 17, 16ãINPUT " What was the initial investment "; initãdot1 = 290 - (init * .28)ãLOCATE , 15ãINPUT " 2. What is the portfolio value for Period 2"; now2ãnu2 = 290 - (now2 * .28)ãLOCATE , 15ãINPUT " 3. What is the portfolio value for Period 3"; now3ãnu3 = 290 - (now3 * .28)ãLOCATE , 15ãINPUT " 4. What is the portfolio value for Period 4"; now4ãnu4 = 290 - (now4 * .28)ãLOCATE , 15ãINPUT " 5. What is the portfolio value for Period 5"; now5ãnu5 = 290 - (now5 * .28)ãLOCATE , 15ãINPUT " 6. What is the portfolio value for Period 6"; now6ãnu6 = 290 - (now6 * .28)ãLOCATE , 15ãINPUT " 7. What is the portfolio value for Period 7"; now7ãnu7 = 290 - (now7 * .28)ãLOCATE , 15ãINPUT " 8. What is the portfolio value for Period 8"; now8ãnu8 = 290 - (now8 * .28)ãLOCATE , 15ãINPUT " 9. What is the portfolio value for Period 9"; now9ãnu9 = 290 - (now9 * .28)ãLOCATE , 15ãINPUT " 10. What is the portfolio value for Period 10"; now10ãnu10 = 290 - (now10 * .28)ãLOCATE , 15ãINPUT " 11. What is the portfolio value for Period 11"; now11ãnu11 = 290 - (now11 * .28)ãLOCATE , 15ãINPUT " 12. What is the portfolio value for Period 12"; now12ãnu12 = 290 - (now12 * .28)ãLOCATE , 15ã50ãCLSãPRINTãSCREEN 9ãCOLOR 10, 1ãã' LINES ARE X,Y X-LEFT TO RIGHT Y-TOP TO BOTTOMãLINE (180, dot1)-(510, dot1)ãCOLOR 14ãLINE (180, dot1)-(210, nu2) 'to Period 2ãLINE (210, nu2)-(240, nu3) 'to Period 3ãLINE (240, nu3)-(270, nu4) 'to Period 4ãLINE (270, nu4)-(300, nu5) 'to period 4ãLINE (300, nu5)-(330, nu6) 'to period 5ãLINE (330, nu6)-(360, nu7) 'to period 6ãLINE (360, nu7)-(390, nu8) 'to period 7ãLINE (390, nu8)-(420, nu9) 'to period 8ãLINE (420, nu9)-(450, nu10) 'to period 9ãLINE (450, nu10)-(480, nu11) 'to period 10ãLINE (480, nu11)-(510, nu12) ' to period 11ã'LINE (510, nu12)-(540, nu12) ' to period 12ãCOLOR 15ãLINE (180, 290)-(510, 290), 10ãLINE (180, 290)-(180, 25), 10ã ' these are vertical time period linesãCOLOR 15ãLINE (210, 290)-(210, 25), 15 '2ãLINE (240, 290)-(240, 25), 15 '3 vertical lines are 30 separated, tooãLINE (270, 290)-(270, 25), 15 '4ãLINE (300, 290)-(300, 25), 15 '5ãLINE (330, 290)-(330, 25), 15'....................6 (DIFF IS 40)ãLINE (360, 290)-(360, 25), 15 '7ãLINE (390, 290)-(390, 25), 15 '8ãLINE (420, 290)-(420, 25), 15 '9ãLINE (450, 290)-(450, 25), 15 '10ãLINE (480, 290)-(480, 25), 15 '11ãLINE (510, 289)-(510, 25), 15 '12ãCOLOR 15ãLOCATE 22, 10ãPRINT TAB(23); "1"; TAB(27); "2"; TAB(31); "3"; TAB(34); "4"; TAB(38); "5"; TAB(42); "6"; TAB(46); "7"; TAB(49); "8"; TAB(53); "9"; TAB(56); "10"; TAB(60); "11"; TAB(64); "12"ãLOCATE 21, 17: PRINT "0"ãLOCATE 19, 17: PRINT "100"ãLOCATE 17, 17: PRINT "200"ãLOCATE 15, 17: PRINT "300"ãLOCATE 13, 17: PRINT "400"ãLOCATE 11, 17: PRINT "500"ãLOCATE 9, 17: PRINT "600"ãLOCATE 7, 17: PRINT "700"ãLOCATE 5, 17: PRINT "800"ãLOCATE 3, 17: PRINT "900"ãLOCATE 24, 30: PRINT "TIME INTERVALS"ãLOCATE 11, 4: PRINT "VALUE"ãLOCATE , 4: PRINT "CHANGE"ãLOCATE 12, 4: PRINT "IN 000's"ã ' these are test lines on horizontalã' LINES ARE X,Y X-LEFT TO RIGHT Y-TOP TO BOTTOMã' y axisãLINE (180, 249)-(510, 249), 3ãLINE (180, 219)-(510, 219), 3ãLINE (180, 191)-(510, 191), 3 'HORIZONTAL LINES HAVE 30 SEPARATIONSãLINE (180, 162)-(510, 162), 3 ' THUS ALL NUMBERS ARE TIMES .28ãLINE (180, 134)-(510, 134), 3 ' AND ARE 251 + (X * .28)ãLINE (180, 110)-(510, 110), 3 ' 600 BECAUSE 251 = ZERO (0) BASE LINEãLINE (180, 80)-(510, 80), 3 '700ãLINE (180, 51)-(510, 51), 3 '800ãLINE (180, 25)-(510, 25), 3 '900ãã'init will be : input (251 + )ã'inititial value line isãLINE (180, init)-(500, init), 10ã' current (NOW) value line is (180,init)-(ããã' this bar chart is set up this wayã ' vertical lines are 24 apart at .24,starting at 180ã ' horizotal lines are 28 separates at .28, starting at 251ã ' thus the 100 vallue for vertical lines is .24+ 180ã ' and the 100 value for horizontal lines is .28 - 251(btoom line)ã 'to position '328" on a horizontal line would be 328*.24 -251ã COLOR 14ããGerald Wykoff 6 value relative Graphic 07-01-01 ( : ) QB, Qbasic 152 3413 X6val.bas DECLARE SUB GRAPH ()ã' Subject:6-Value Relative Graphic Date: 7-1-01 ã' Author: Gerald L. Wykoff Code: QB, QBasicã' Origin: wykoff@mbawiz.comDECLARE SUB GRAPH ()ã'******** bar chart ********ãCLSãSCREEN 9ãCOLOR 14, 9ãLINE (5, 5)-(630, 5), 12ãLINE -(630, 338), 12ãLINE -(5, 338), 12ãLINE -(5, 5), 12ãLINE (4, 4)-(631, 4), 3ãLINE -(631, 339), 3ãLINE -(4, 339), 3ãLINE -(4, 4), 3ã25ã REM PROGRAM 8.1ã REM Graphã CLSã DIM dd(6)ã DEFLNG A-Zã 'LOCATE 13, 35ã SCREEN 9ã PRINTã PRINTã PRINTã PRINTã COLOR 14, 1ã PRINT " 6-VALUE HISTOGRAM"ã COLOR 11ã PRINT " (c) 2000 Gerald L. Wykoff . . .written for www.mbawiz.com"ã PRINTã COLOR 14ã PRINTã PRINT " This short utility will accommodate 6 entries"ã PRINT " for a quick display of relative values. Since"ã PRINT " the display is relative, it will accept pretty"ã PRINT " much any numbers from high to low."ã PRINTã PRINTã COLOR 15ã PRINT " Tap Any Key to Continue"ã DO WHILE INKEY$ = ""ã LOOPã CLSã SCREEN 1ã ' call subprogramã 'ã CALL GRAPHãLOCATE 21, 3ãINPUT "(1) Repeat, or (2) Quit (1 or 2) "; ask3$ãIF ask3$ = "1" THEN GOTO 25 ELSE GOTO 1200ã1200ãENDããDEFSNG A-Zã SUB GRAPHã 'ã ' declare arraysã 'ã DIM GOODS(6), NORM(6)ã 'ã ' assign values to the GOODS arrayã SCREEN 9ã PRINTã PRINTã PRINTã PRINTã i = 1ã FOR NUMBER.OF.ELEMENT = 1 TO 6 '15ã INPUT " Enter a Value"; GOODS(NUMBER.OF.ELEMENT) '"TYPE VALUE"ã i = i + 1ã NEXT NUMBER.OF.ELEMENTã SCREEN 1ã CLSã 'ã ' define the horizontal position of the graphã 'ã XPOS% = 100 '50ã 'ã ' define the vertical position of the graphã 'ã YPOS% = 120ã 'ã ' define the color of the graphã 'ã COL.GRAPH% = 2ã 'ã ' declare NORMA% - the maximum height of the graphã 'ã NORMA% = 100ã 'ã ' select max valueã 'ã PMAX = GOODS(1)ã FOR DAY% = 2 TO 6ã IF GOODS(DAY%) > PMAX THENã PMAX = GOODS(DAY%)ã END IFã NEXT DAY%ã 'ã ' draw horizontal lineã LINE (XPOS%, YPOS%)-(XPOS% + 75, YPOS%), COL.GRAPH% '150ã 'ã ' this is the average line, on Y row 120ã LINE (100, 122)-(175, 122), 11ã LINE (98, 35)-(98, 122), 11ã 'ã ' normalise values to 100ã ' draw graphãã 'ã FOR DAY% = 1 TO 6ã NORM(DAY%) = GOODS(DAY%) / PMAX * NORMA%ã ZPOS% = XPOS% + 10 * (DAY% - 1)ã LINE (ZPOS%, YPOS%)-(ZPOS% + 7, YPOS% - NORM(DAY%)), COL.GRAPH%, BFã NEXT DAY%ãLOCATE 3, 10ãPRINT "HI"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "lO"ãLOCATE 17, 13ãCOLOR 1ãPRINT "1......6"ãã END SUBããGerald Wykoff Graphic. 15 components 07-01-01 ( : ) QB, Qbasic 138 3342 X15val.bas DECLARE SUB graph ()ã' Subject: Graphic, 15 Components Date: 7-1-01 ã' Author: Gerald L. Wykoff Code: QB, QBasicã' Origin: wykoff@mbawiz.comDECLARE SUB graph ()ã'*********bar chart********ãSCREEN 9ãCOLOR 14, 8ãLINE (5, 5)-(630, 5), 12ãLINE -(630, 338), 12ãLINE -(5, 338), 12ãLINE -(5, 5), 12ãLINE (4, 4)-(631, 4), 3ãLINE -(631, 339), 3ãLINE -(4, 339), 3ãLINE -(4, 4), 3ã25ã REM PROGRAM 8.1ã REM Graphã CLSã SCREEN 9ã COLOR 14, 1ã PRINTã PRINTã PRINTã PRINT " HISTOGRAM CHART"ã COLOR 11ã PRINT " (c) 2000 Gerald L. Wykoff . . .written for www.mbawiz.com"ã PRINTã PRINTã COLOR 15ã PRINT " This Program Draws a Relative Value Histrogram"ã PRINTã COLOR 14ã PRINT " It will accept data up to 15 values"ã PRINT " If you have fewer values, finish the routine with zeroes"ã PRINTã PRINT " Note: The chart features a relative display of the data"ã PRINT " between the lowest and highest value."ã PRINTã PRINTã PRINTã PRINTã COLOR 11ã PRINT " Tap Any Key to Continue"ã DO WHILE INKEY$ = ""ã LOOPã 'ã ' call subprogramã 'ã SCREEN 1ã CALL graphã LOCATE 22, 10ã INPUT " (1) Repeat, or (2) Quit "; ask7$ã IF ask7$ = "1" THEN GOTO 25 ELSE GOTO 1200ã1200ãã ENDãã SUB graphã SCREEN 9ã ' declare arraysã 'ã DIM GOODS(15), NORM(15)ã 'ã ' assign values to the GOODS arrayã 'ã PRINTã PRINTã PRINTã PRINTã PRINTã COLOR 14ã i = 1ã FOR NUMBER.OF.ELEMENT = 1 TO 15ã PRINT iã INPUT " Type in the Value "; GOODS(NUMBER.OF.ELEMENT)ã i = i + 1ã NEXT NUMBER.OF.ELEMENTã CLSã SCREEN 1ã 'ã ' define the horizontal position of the graphã 'ã XPOS% = 50ã LINE (40, 120)-(230, 120), 14ã ' define the vertical position of the graphã 'ã YPOS% = 120ã LINE (40, 25)-(40, 120), 14ã ' define the color of the graphã 'ã COL.GRAPH% = 2ã 'ã ' declare NORMA% - the maximum height of the graphã 'ã NORMA% = 100ã 'ã ' select max valueã 'ã PMAX = GOODS(1)ã FOR DAY% = 2 TO 15ã IF GOODS(DAY%) > PMAX THENã PMAX = GOODS(DAY%)ã END IFã NEXT DAY%ã 'ã ' draw horizontal lineã 'ã LINE (XPOS%, YPOS%)-(XPOS% + 150, YPOS%), COL.GRAPH%ã 'ã ' normalise values to 100ã ' draw graphã 'ã FOR DAY% = 1 TO 15ã NORM(DAY%) = GOODS(DAY%) / PMAX * NORMA%ã ZPOS% = XPOS% + 10 * (DAY% - 1)ã LINE (ZPOS%, YPOS%)-(ZPOS% + 7, YPOS% - NORM(DAY%)), COL.GRAPH%, BFã NEXT DAY%ã LOCATE 17, 7ãPRINT "0.................15"ãLOCATE 3, 3ãPRINT "HI"ãPRINT " |"ãPRINT " |"ãPRINT " |"ãPRINT " |"ãPRINT " |"ãPRINT " |"ãPRINT " |"ãPRINT " |"ãPRINT " |"ãPRINT " |"ãPRINT " |"ãLOCATE 15, 4ãPRINT "LO"ãã END SUBããGerald Wykoff Trace Light Rays thru Crystal wykoff@mbawiz.com 07-01-01 ( : ) QB, Qbasic 347 10097 Raytrace.bas' Subject: Optical Ray Tracing Utility Date: 7-1-01 ã' Author: Gerald L. Wykoff Code: QB, QBasicã' Origin: wykoff@mbawiz.comãREM ----------------------------------------------------------------ãCLSã145 REM THIS PROGRAM MATHEMATICALLY TRACES THE PATH OFã150 REM LIGHT RAYS INTO AND OUT OF VARIOUS GEMSTONE CRYSTALSã151 PRINTã152 PRINTã153 PRINT " THE LIGHT RAY TRACING PROGRAM"ã161 PRINTã162 PRINTã168 PRINT " This program, using your input, will mathematically"ã169 PRINT " trace the path of light rays entering and exiting"ã170 PRINT " various gem profiles, using your angle and RI inputs."ã171 PRINTã172 PRINTã173 PRINTã175 PRINT " TIP: Sreen pauses are programmed in to allow"ã176 PRINT " you sufficient reading, thinking and response time."ã177 PRINT " When ready to proceed, just tap the spacebar."ã178 SLEEPã179 PRINTã190 PRINTã191 DATA iolite, 40.4, variable, 1.71ã192 DATA kornerupine, 36.5, variable, 1.66ã193 DATA actinolite, 38.2, variable, 1.61ã194 DATA amblygonite, 38.1, variable, 1.61ã195 DATA andalusite, 37.5, variable, 1.63ã196 DATA cassiterite, 30.1, variable, 1.99ã197 DATA apatite, 37.4, variable, 1.63ã198 DATA apophylite, 40.3, variable, 1.53ã199 DATA augelite, 39.3, variable, 1.57ã200 DATA celestite, 38.1, variable, 1.62ã201 DATA axinite, 36.3, variable, 1.67ã202 DATA barite, 37.4, nonvariable, 1.63ã203 DATA benitoite, 34.4, variable, 1.75ã204 DATA beryl, 39.1, variable, 1.57ã205 DATA berylonite, 40.1, variable, 1.55ã206 DATA brazilianite, 38.4, variable, 1.59ã207 DATA calcite, 42.1, variable, 1.48ã208 DATA chrysoberyl, 34.5, variable, 1.74ã209 DATA corundum, 34.3, variable, 1.76ã210 DATA crocoite, 29.3, variable, 2.31ã211 DATA danburite, 37.5, variable, 1.63ã212 DATA datolite, 37.5, variable, 1.62ã213 DATA diamond, 24.2, nonvariable, 2.42ã214 DATA diopside, 36.6, nonvariable, 1.68ã215 DATA dioptase, 37.2, variable, 1.64ã216 DATA enstatite, 37.1, variable, 1.65ã217 DATA epidote, 35.2, nonvariable, 1.75ã218 DATA euclase, 37.2, variable, 1.65ã219 DATA feldspar, 41.1, variable, 1.51ã220 DATA fluorite, 44.1, nonvariable, 1.43ã221 DATA almandite, 33.4, nonvariable, 1.81ã222 DATA andradite, 31.5, nonvariable, 1.89ã223 DATA grossularite, 35.1, nonvariable, 1.73ã224 DATA pyrope, 34.5, nonvariable, 1.74ã225 DATA rhodolite, 34.3, nonvariable, 1.74ã226 DATA spessartite, 34.4, nonvariable, 1.89ã227 DATA uvarovite, 32.3, nonvariable, 1.87ã228 DATA kyanite, 35.4, variable, 1.71ã229 DATA opal, 43.3, nonvariable, 1.45ã230 DATA peridot, 40.1, variable, 1.55ã231 DATA phenakite, 37.1, variable, 1.65ã232 DATA pollucite, 38.1, nonvariable, 1.52ã233 DATA prehnite, 38.1, variable, 1.61ã234 DATA proustite, 21.1, variable, 2.79ã235 DATA quartz, 40.2, variable, 1.54ã236 DATA rhodochrosite, 38.4, variable, 1.59ã237 DATA rutile, 22.3, variable, 2.61ã238 DATA scapolite, 39.5, variable, 1.56ã239 DATA scheelite, 38.1, nonvariable, 1.91ã240 DATA sphalerite, 24.9, variable, 2.36ã241 DATA sphene, 32.1, variable, 1.88ã242 DATA spinel, 35.5, nonvariable, 1.72ã243 DATA spodumene, 37.3, variable, 1.65ã244 DATA topaz, 38.2, variable, 1.65ã245 DATA tourmaline, 38.3, variable, 1.61ã246 DATA zircon, 30.1, variable, 1.99ã247 DATA zoisite, 35.1, variable, 1.74ã248 DATA tanzanite, 35.1, variable, 1.74ã249 DATA demantoid, 32.1, nonvariable, 1.88ã250 DATA yag, 33.1, nonvariable, 1.83ã251 DATA cz, 27.7, variable, 2.15ã252 DATA ggg, 30.5, nonvariable, 1.97ã253 DATA strontium titanate, 24.5, nonvariable, 2.41ã254 DATA lithium niobate, 26.9, variable, 2.21ã255 DATA bowenite, 39.8, nonvariable, 1.56ã256 DATA amazonite, 41.1, variable, 1.51ã257 DATA idocrase, 36.1, variable, 1.71ã258 DATA end$, end, end$, endã259 PRINTã260 PRINTã261 PRINT "Please use LOWER CASE TYPE (NO CAPS) to answer ALL questions"ã262 PRINT "Wrong name, spelling or a capital letter terminates program."ãPRINTãPRINTãRepeatGem:ãINPUT " Which gemstone type do you wish to analyze"; stone$ãDOã READ gems$, z, v$, Nã IF gems$ = stone$ THEN EXIT DOãLOOPãCLSãPRINTãPRINTãPRINTãPRINT " The gemstone that you selected, "; gems$; ", has"ãPRINT " a "; v$; " refractive index. For DR stones the"ãPRINT " lowest index"; N; "is cited here. The critical angle"ãPRINT " angle"; z; "is obviously computed from the R.I. figure."ãPRINTãPRINTãPRINTãPRINT " To continue, tap the spacebar."ãDOã z$ = INKEY$ãLOOP UNTIL z$ = " "ãPRINTãPRINTãPRINTãPRINTãPRINTãPRINTãINPUT " What is the culet or main pavilion angle we are dealing with"; qãPRINTãCLSãD = q + zãE = q - zãPRINTãPRINTãPRINTãPRINTãINPUT " What is the crown main angle"; rãPRINTãPRINTãCLSãF = r + zãg = r - zãPRINTãPRINTãPRINTãPRINTãPRINTãCLSãPRINTãPRINTãPRINT " Summarizing this project, the traced ray is for a "; gems$;ãPRINT " whose critical angle is "; z; " degrees, with a"ãPRINT " pavilion main angle of "; q; " degrees, and a crown main"ãPRINT " angle of "; r; " degrees."ãPRINTãPRINTãPRINT " The pavilion ray exit range for a CA of "; z; " degrees"ãPRINT " runs from "; INT(D); "to "; INT(E);ãPRINTãPRINTãPRINTãPRINT " The crown's ray exit range for a CA of "; z; " degrees "ãPRINT " runs from "; INT(F); "to "; INT(g);ãPRINTãDOã z$ = INKEY$ãLOOP UNTIL z$ = " "ãCLSãPRINTãPRINTãPRINTãPRINTãPRINT " Enter a 2-digit number for light ray entry angle,"ãINPUT " 90 or 01-89"; aaã IF aa < 90 THEN GOTO EnterRayãPRINTãCLSãPRINTãEnterRay:ãREM THIS SECTION DEALS WITH ENTERING RAY'S DEFLECTIONãPRINTãdegrees = ATN(1) / 45ãi = SIN(aa * degrees)ãPRINTãPRINTãPRINT " For a gem crystal with a refractive index of"; N; "and"ãPRINT " with a light ray entering at an angle of"; aa; " degrees,"ãPRINT " refraction, according to Snell's Law, will bend or deflect"ãPRINT " the light ray to a new path direction of ";ãx = i / NãPRINT USING "##.#"; INT(ATN(x / SQR(1 - x * x)) / degrees);ãPRINT " degrees as it approaches the first pavilion facet."ã'PRINT " Therefore the path of the light ray as it approaches the 1st"ã'PRINT " facet will be"; a - INT(ATN(x / SQR(1 - x * x)) / degrees); "degrees."ãPRINTãPRINTãENDããPRINTãINPUT " Does the design have an odd or even number of pavilion mains (o or e)"; j$ãIF j$ = "o" THEN GOTO rotatedãPRINTãNotRotated:ãCLSãPRINTãPRINTãB = 2 * qãPRINT " The path of the light ray after it bounces off the first"ãPRINT " facet is"; B; "degrees."ãPRINTãPRINTãPRINTãC = 180 - (4 * q)ãPRINTãPRINTãPRINT " The path of the light ray as it traces from the pavilion"ãPRINT " to the crown, after bouncing off the 2nd facet is"; C; "degrees."ãPRINTãPRINTãGOTO emergingãããPRINTãrotated:ãCLSãPRINTãPRINTãINPUT " How much is third facet rotated relative to second facet"; T2ãB = 2 * qãPRINTãCLSãPRINTãPRINTãPRINTãPRINT " The path of the light ray after it bounces off the first"ãPRINT " facet is"; B; "degrees."ãPRINTãC = 180 - (4 * q)ãPRINTãPRINTãPRINT " The path of the light ray after it bounces off the second"ãPRINT " facet is"; C; "degrees."ãPRINTãPRINTãIf2Rotated:ãPRINTãCLSãPRINTãPRINT " What is the degree of rotation of the second facet"ãINPUT " relative to the first facet"; Tã' when the second facet is rotated relative to the first facetãm = (B - C) * 90ãD = (B - T) / mãPRINTãCLSãPRINTãPRINTãPRINT "The path of the light ray after it strikes a rotated 2nd facet"ãPRINT " is"; DãPRINTãCLSãRotat3Same:ãPRINTãPRINTãREM WHEN 3RD FACET AT SAME ANGLE (A) AND DIRECTLY OPPOSITE 2ND FACETãE = 180 - D - 2 * aãPRINTãPRINTãPRINT " The path of the light ray after boucing off the 3rd facet"ãPRINT " is"; E; " degrees."ãPRINTãREM 3RD FACET AT SAME ANGLEL (A) BUT ROTATED (T2) RELATIVE TO 2ND FACETãRotat3Diff:ãCLSãPRINTãPRINTãINPUT " How many degrees rotation between 2nd and 3rd facet"; T2ãm = (D - E) * 90ãF = (D - T2) / mãPRINTãPRINTãPRINT " The path of the light ray as it emerges from the pavilion"ãPRINT " and encounters crown main facet is"; F; " degrees."ãPRINTãPRINTãDOã z$ = INKEY$ãLOOP UNTIL z$ = " "ãPRINTãPRINTãemerging:ãREM THIS SECTION DEALS WITH EXITING RAYSãPRINTãdegrees = ATN(1) / 45ãPRINTãPRINTãPRINTã j = SIN(C * degrees)ã r = (1 / N)ã x = j / rãPRINT " The path of the light ray as it emerges from the gem"ãPRINT " is"; INT(ATN(x / SQR(1 - x * x)) / degrees); "degrees."ãending:ãENDã ãããããã ã ã' IF A < e OR A > d THEN GOTO 1515ã'PRINT "The light ray angle beng tested, "; LR; "degrees, fell"ã'PRINT "inside this gem type's critical angle at Pavilion Facet #2"ã'PRINT "so it exited the gemstone AND was lost."ã'PRINTã'PRINTã'INPUT "Care to enter another light ray angle (y OR n)"; B$ã' IF B$ = "y" THEN GOTO XXXãããã REM THIS SECTION CHECKS RAY AGAINST CA ON FACET #1ã'B = p$ * 2ã' IF B < (270 + p$) - (90 - CA) GOTO 1525ã'PRINT "The original light ray you specified, "; LR; "degrees, fell"ã'PRINT " within this gem type's critical angle range at Pavilion"ã'PRINT " Facet #1 so it exited the gemstone AND was lost. "ã'PRINTã'PRINTã'INPUT "Care to enter another light ray angle (y OR n)"; B$ã' IF B$ = "y" THEN GOTO XXXããã REM THIS SECTION DEALS WITH LIGHT RAY AT FACET #2ã'PRINT "The light ray enters the gem crystal without refraction, reflects"ã'PRINT " off Pavilion Angle #1, whose angle is "; p$; " and follows"ã'PRINT " a path of "; B; "degrees" toward Pavilion Angle #2 which is"ã'PRINT " directly opposite and possesses the same culet angle."ã'PRINTã'PRINTã'C = 180 - 2 * Bã'PRINT " The light ray reflects off Pavilion Facet #2 and follows a"ã'PRINT " path of "; C; "degrees"ã'ã REM THIS SECTION DEALS WITH LIGHT RAY AT FACET #3 (CROWNã'PRINTããGerakd Wykoff Color Text Box wykoff@mbawiz.com 07-01-01 ( : ) QB, Qbasic 23 631 Lines.bas ' Subject: Color Text Box Date: 7-1-01 ã' Author: Gerald L. Wykoff Code: QB, QBasicã' Origin: wykoff@mbawiz.comãCOLOR 14, 8ãREM This short utility will draw a textbox on the screen as a backgroundãREM for text display. Obviously, the color mixture can be changed byãREM typing in different color code numbers.ã'ã'ã'ãCLSãSCREEN 9ãCOLOR 14, 9ãLINE (5, 5)-(630, 5), 12ãLINE -(630, 338), 12ãLINE -(5, 338), 12ãLINE -(5, 5), 12ãLINE (4, 4)-(631, 4), 3ãLINE -(631, 339), 3ãLINE -(4, 339), 3ãLINE -(4, 4), 3ãWHILE INKEY$ = "": WENDããGerakd Wykoff Greek's Golden Rect, proport. wykoff@mbawiz.com 07-01-01 ( : ) QB, Qbasic 131 2834 golden.bas ' Subject: Greek Golden Rectangle Date: 7-1-01 ã' Author: Gerald L. Wykoff Code: QB, QBasicã' Origin: wykoff@mbawiz.comCLSãPRINTãPRINTãREM THIS PROGRAM WILL CALCULATE THE GREEK'S GOLDENãREM RECTANGLE PROPORTION.ãPRINTãPRINTãPRINTãPRINTãPRINTãPRINTãPRINTãPRINTãPRINTãPRINTãPRINT " THIS SHORT PROGRAM WILL PROVIDE THE DIMENSIONS"ãPRINT " FOR THE FAMOUS 'GOLDEN RECTANGLE' DEVELOPED BY"ãPRINT " THE ANCIENT GREEKS.. THE PROPORTION IS STILL"ãPRINT " REGARDED AS THE WORLD'S MOST ESTHETIC AND"ãPRINT " SATISFACTORY RECTANGULAR SHAPE."ãPRINTãPRINTãPRINT " To continue, tap the spacebar."ãDOã c$ = INKEY$ãLOOP UNTIL c$ = " "ãPRINTãPRINTãCLSãPRINTãPRINTãPRINTãPRINTãPRINTãPRINTãRESTART:ãPRINTãPRINTãPRINT " You already have one of the dimensions, so which"ãPRINT " other dimension do you now seek: length (l) or width (w)?"ãINPUT " Please answer with 'l' or 'w' key"; A$ã IF A$ = "l" THEN GOTO lengthã IF A$ = "w" THEN GOTO 193ã116 PRINTãlength:ãPRINTãPRINTãPRINTãCLSãPRINTãPRINTãPRINTãPRINTãPRINTã120 INPUT " What is the millimeter width of the proposed gemcut design"; Aã125 G = A * 1.618ã126 PRINTã127 PRINTãCLSãPRINTãPRINTãPRINTãPRINTãPRINTãPRINTã130 PRINT " If the width of the design is "; A; " millimeters, the"ã135 PRINT " length would need to be ";ãPRINT USING " ##.#"; G;ãPRINT " millimeters. This measurement"; A; "X";ãPRINT USING " ##.#"; G;ãPRINT " would conform to the dimensions of the Golden Rectangle."ãPRINTãPRINTãPRINT " To continue, tap the space bar."ãDOã w$ = INKEY$ãLOOP UNTIL w$ = " "ãGOTO queryãPRINTãPRINTã193 PRINTãPRINTãCLSãPRINTãPRINTãPRINTãPRINTãPRINTãPRINTãINPUT " What is the millimeter length of the proposed gemcut design"; GãA = G / 1.618ãPRINTãPRINTãPRINT " If the length of the design is"; G; "millimeters, the"ãPRINT " width would need to be";ãPRINT USING " ##.#"; A;ãPRINT " millimeters. This";ãPRINT " measurement"; G; " X";ãPRINT USING "##.#"; A;ãPRINT " would conform to the dimensions of the Golden Rectangle."ãPRINTãPRINTãPRINT " To continue, tap the space bar."ãDOã w$ = INKEY$ãLOOP UNTIL w$ = " "ãGOTO queryãquery:ãPRINTãINPUT "Would you like to see this proportion drawn on screen (y or n)"; c$ã IF c$ = "y" THEN GOTO Rectangle ELSE ENDãRectangle:ãCLSãSCREEN 12ãLINE (50, 190)-(250, 324), 15, BFãPRINTãPRINTãPRINT " To continue, tap the space bar."ãDOã w$ = INKEY$ãLOOP UNTIL w$ = " "ãPRINTãPRINTãCLSãPRINTãINPUT " Would you like to work out another Golden Rectangle problem (y or n)"; c$ã IF c$ = "y" THEN GOTO RESTART ELSE ENDãENDããAntoni Gual Dithered Spheres agual@eic.ictnet.es 07-01-01 ( : ) QB Qbasic 143 4509 BALLZ2.bas '********************************************************************ãDECLARE SUB drawsphere3 (x%, y%, r%, clr%)ãDECLARE SUB drawsphere (x%, y%, r%, clr%, scrang!, vertang!)ãã'Here's a little QBASIC sub to draw spheres, randomly dithered for aã'random direction lighting effect.ã'by Antoni Gual agual@eic.ictnet.es 5/2001ãããCONST pi = 3.141592ãRANDOMIZE TIMERãã'using screen 12 for this demo, should also work in screen 13ãSCREEN 12: mx = 640: my = 480: ml = 30: mr = 80: numclr% = 4ã'SCREEN 13: mx = 320: my = 200: ml = 24: mr = 50:numclr% = 4 ãã'let's define a color range of 4 shades, so in screen 12 we can haveã'4 different ball colorsãclrng% = 4ã'define color ranges, darkest color must have the lowest palette nrãã'range of colors used by red ballsãPALETTE 0, &H5ãPALETTE 1, &H10ãPALETTE 2, &H20ãPALETTE 3, &H30ãã'range of colors used by green ballsãPALETTE 4, &H500ãPALETTE 5, &H1000ãPALETTE 6, &H2000ãPALETTE 7, &H3000ãã'range of colors used by blue ballsãPALETTE 8, &H50000ãPALETTE 9, &H100000ãPALETTE 10, &H200000ãPALETTE 11, &H300000ãã'range of colors used by white ballsãPALETTE 12, &H50505ãPALETTE 13, &H101010ãPALETTE 14, &H202020ãPALETTE 15, &H303030ãã'demo startãCLSãp$ = SPACE$(79)ãLOCATE ml, 1: PRINT p$;ãLOCATE ml, 1: PRINT "Press a key to draw some randomly lit balls..Another key to stop";ãa$ = INPUT$(1)ãDOã x% = RND * mxã y% = RND * myã r% = RND * mr + (mr \ 8)ã c% = INT(RND * numclr%) * clrng% 'we must pass the lowest PALETTE nr of rangeã a = RND * pi * 2ã b = RND * piã drawsphere x%, y%, r%, c%, a, bãLOOP UNTIL LEN(INKEY$)ãLOCATE ml, 1: PRINT p$;ãLOCATE ml, 1: PRINT "If light source is at the top we can do it faster.. Press a key!";ãa$ = INPUT$(1)ãDOã x% = RND * mxã y% = RND * myã r% = RND * mr + (mr / 8)ã c% = INT(RND * numclr%) * clrng%ã drawsphere3 x%, y%, r%, c%ãLOOP UNTIL LEN(INKEY$)ãLOCATE ml - 1, 1: PRINT "End of Balls demo, by Antoni Gual agual@eic.ictnet.es";ããSUB drawsphere (x%, y%, r%, clr%, scrang, vertang)ã'3d shadowed sphere drawing using dithering and a range of color paletteã'by Antoni Gual agual@eic.ictnet.es 5/2001ã'inputs;ã'x%, y% position on screenã'r% radiusã'clr% base color (the darkest one in range, it must be the lower palette nr)ã'scrang in radians direction of the light sourceã'vertang in radians angle of the light source to a line perpendicular to screenã'Also the shared clrng% must be set to the width of a color rangeã'----------------------------------------------------------------------------ãSHARED clrng%ãclr1% = clr% + 1ãr2% = r% * r%ãclrng1 = (clrng% - 1) / 10000!ãr1! = 100 / CSNG(r%)ãtemp! = SIN(vertang) * 100ãx1% = CINT(COS(scrang) * temp!)ãy1% = CINT(SIN(scrang) * temp!)ãz1% = CINT(COS(vertang) * 100)ãFOR i% = -r% TO r%ã i2% = i% * i%ã i1% = i% * r1!ã 'constant 10900 should be 10000, but because of rounding errors, 900 mustã 'be added to avoid breaking the program by trying SQR of a negative numberã 'the added 900 causes the black dots in the brightest part of the ballã 'if someone knows how to avoid this correction, please email me.ã i12% = 11000 - i1% * i1%ã a% = SQR(r2% - i2%)ã FOR j% = -a% TO a%ã j1% = j% * r1!ã k1% = SQR(i12% - j1% * j1%)ã c! = clrng1 * (x1% * i1% + j1% * y1% + k1% * z1%)ã ccc% = clr1% + INT(c!) + (RND > (c! - INT(c!)))ã 'comment out next line for backlight effectã IF ccc% < clr% THEN ccc% = clr%ã PSET (x% + i%, y% + j%), ccc%ãNEXT j%, i%ãEND SUBããSUB drawsphere3 (x%, y%, r%, clr%)ã'3d shadowed sphere drawing using dithering and a range of color paletteã'Special case: Light source is supposed to be in front of the screenã'by Antoni Gual agual@eic.ictnet.es 5/2001ã'inputs;ã'x%, y% position on screenã'r% radiusã'clr% base color (the darkest one in range, it must be the lower palette nr)ã'Also the shared clrng% must be set to the width of a color rangeã'----------------------------------------------------------------------------ã'it puts some white spots at the border of some balls, I can't avoid them!ããSHARED clrng%ãclr1% = clrng% + clr% - 1ãr2% = r% * r%: r3 = (clrng% - 1) / r%ãFOR i% = 0 TO r%ã i2% = i% * i%ã a% = CINT(SQR(r2% - i2%))ã tmp% = x% + i%: tmp1% = x% - i%ã FOR j% = -a% TO a%ã c = r3 * SQR(j% * j% + i2%)ã cc% = clr1% - INT(c) + (RND < c - INT(c))ã PSET (tmp%, y% + j%), cc%ã ã PSET (tmp1%, y% + j%), cc%ã ã NEXTãNEXTããEND SUBããGerald Wykoff Gemstone Graphic wykoff@mbawiz.com 07-01-01 ( : ) QB Qbasic 404 7400 animate.bas ' Subject: Animated Gemstone Graphic Date: 7-1-01 ã' Author: Gerald L. Wykoff Code: QB, QBasicã' Origin: wykoff@mbawiz.comãCLSãSCREEN 9ããPRINTãPRINTãPRINTãPRINT " EXPLANATION OF THE PROGRAM"ãPRINT " FOR RAYTRACING ILLUSTRATIONS"ãPRINTãPRINTãPRINTãPRINT " This short program draws various angled gem design"ãPRINT " profiles in animated sequence."ãPRINTãPRINT " To activate the program, tap the spacebar when asked"ãPRINT " or when there is an obvious pause. The program will"ãPRINT " proceed on its own after each tap of the spacebar."ãPRINTãPRINTãPRINTãPRINT " To continue, tap the spacebar."ãDOã t$ = INKEY$ãLOOP UNTIL t$ = " "ãPRINTãCLSãSCREEN 12ãPRINTãREM SECTION ONE SETS UP QUADRANT IDENFICATIONã' next 4 lines position quadrant lettersãLOCATE 19, 65ã PRINT "D"ãLOCATE 25, 65ã PRINT "C"ãLOCATE 19, 25ã PRINT "A"ãLOCATE 25, 25ã PRINT "B"ãSLEEP 1ããREM SECTION TWO DRAW BASIC REFERENCE LINESã' BASE-bottom line for baseãLINE (150, 450)-(600, 450), 4ã' TABLE-top line for table lineãLINE (300, 300)-(400, 300)ã' GIRDLE-middle line is girdle lineãLINE (150, 350)-(600, 350), 4ã' VERTICAL-establishes 90-degreeãLINE (350, 450)-(350, 260), 4ãSLEEP 1ããã'REM SECTION THREE DRAW ACTUAL ANGLE LINESã' PAVILION-next line draws left sideãLINE (350, 450)-(250, 350)ã' PAVILION- next line draws right sideãLINE (350, 450)-(450, 350)ã' CROWN-next line draws left sideãLINE (250, 350)-(300, 300)ã' CROWN-next line draws right sideãLINE (450, 350)-(400, 300)ãSLEEP 1ããLOCATE 1, 1ãPRINT "To continue,"ãPRINT "tap the spacebar."ãDOã a$ = INKEY$ãLOOP UNTIL a$ = " "ãGOTO PavLinesãPRINTãSLEEP 1ããPavLines:ã'PAVILIONãLINE (350, 450)-(245, 350)ãLINE (350, 450)-(455, 350)ã'CROWNãLINE (245, 350)-(300, 300)ãLINE (455, 350)-(400, 300)ãSLEEP 1ãã'PAVILIONãLINE (350, 450)-(240, 350)ãLINE (350, 450)-(460, 350)ã'CROWNãLINE (240, 350)-(300, 300)ãLINE (460, 350)-(400, 300)ãSLEEP 1ãã'PAVILIONãLINE (350, 450)-(235, 350)ãLINE (350, 450)-(465, 350)ã'CROWNãLINE (235, 350)-(300, 300)ãLINE (465, 350)-(400, 300)ãSLEEP 1ãã'PAVILINãLINE (350, 450)-(230, 350)ãLINE (350, 450)-(470, 350)ã'CROWNãLINE (230, 350)-(300, 300)ãLINE (470, 350)-(400, 300)ãSLEEP 1ãã'PAVILIONãLINE (350, 450)-(225, 350)ãLINE (350, 450)-(475, 350)ã'CROWNãLINE (225, 350)-(300, 300)ãLINE (475, 350)-(400, 300)ãSLEEP 1ãã'PAVILIONãLINE (350, 450)-(220, 350)ãLINE (350, 450)-(480, 350)ã'CROWNãLINE (220, 350)-(300, 300)ãLINE (480, 350)-(400, 300)ãSLEEP 1ãã'PAVILIONãLINE (350, 450)-(215, 350)ãLINE (350, 450)-(485, 350)ã'CROWNãLINE (215, 350)-(300, 300)ãLINE (485, 350)-(400, 300)ãSLEEP 1ãã'PAVILIONãLINE (350, 450)-(210, 350)ãLINE (350, 450)-(490, 350)ã'CROWNãLINE (210, 350)-(300, 300)ãLINE (490, 350)-(400, 300)ãSLEEP 1ãã'PAVILIONãLINE (350, 450)-(205, 350)ãLINE (350, 450)-(495, 350)ã'CROWNãLINE (205, 350)-(300, 300)ãLINE (495, 350)-(400, 300)ãSLEEP 1ãã'PAVILIONãLINE (350, 450)-(200, 350)ãLINE (350, 450)-(500, 350)ã'CROWNãLINE (200, 350)-(300, 300)ãLINE (500, 350)-(400, 300)ãSLEEP 1ãã'PAVILIONãLINE (350, 450)-(195, 350)ãLINE (350, 450)-(505, 350)ã'CROWNãLINE (195, 350)-(300, 300)ãLINE (505, 350)-(400, 300)ãSLEEP 1ãã'PAVILIONãLINE (350, 450)-(190, 350)ãLINE (350, 450)-(510, 350)ã'CROWNãLINE (190, 350)-(300, 300)ãLINE (510, 350)-(400, 300)ãSLEEP 1ãã'PAVILIONãLINE (350, 450)-(185, 350)ãLINE (350, 450)-(515, 350)ã'CROWNãLINE (185, 350)-(300, 300)ãLINE (515, 350)-(400, 300)ãSLEEP 1ãã'PAVILIONãLINE (350, 450)-(180, 350)ãLINE (350, 450)-(520, 350)ã'CROWNãLINE (180, 350)-(300, 300)ãLINE (520, 350)-(400, 300)ãSLEEP 1ãã'PAVILIONãLINE (350, 450)-(175, 350)ãLINE (350, 450)-(525, 350)ã'CROWNãLINE (175, 350)-(300, 300)ãLINE (525, 350)-(400, 300)ãSLEEP 1ãã 'PAVILIONãLINE (350, 450)-(170, 350)ãLINE (350, 450)-(530, 350)ã'CROWNãLINE (170, 350)-(300, 300)ãLINE (530, 350)-(400, 300)ãSLEEP 1ããCLSãSCREEN 12ãREM SECTION ONE SETS UP QUADRANT IDENFICATIONã' next 4 lines position quadrant lettersãLOCATE 19, 65ã PRINT "D"ãLOCATE 25, 65ã PRINT "C"ãLOCATE 19, 25ã PRINT "A"ãLOCATE 25, 25ã PRINT "B"ããREM SECTION TWO DRAW BASIC REFERENCE LINESã' BASE-bottom line for baseãLINE (150, 450)-(600, 450), 4ã' TABLE-top line for table lineãLINE (300, 300)-(400, 300)ã' GIRDLE-middle line is girdle lineãLINE (150, 350)-(600, 350), 4ã' VERTICAL-establishes 90-degreeãLINE (350, 450)-(350, 260), 4ããã'REM SECTION THREE DRAW ACTUAL ANGLE LINESã' PAVILION-next line draws left sideãLINE (350, 450)-(250, 350)ã' PAVILION- next line draws right sideãLINE (350, 450)-(450, 350)ã' CROWN-next line draws left sideãLINE (250, 350)-(300, 300)ã' CROWN-next line draws right sideãLINE (450, 350)-(400, 300)ããLOCATE 1, 1ãSLEEP 1ããã' SHORTENS CULET DEPTHã' PAVILIONãLINE (350, 445)-(250, 350)ãLINE (350, 445)-(450, 350)ãSLEEP 1ãã'PAVILIONãLINE (350, 440)-(250, 350)ãLINE (350, 440)-(450, 350)ãSLEEP 1ãã'PAVILIONãLINE (350, 435)-(250, 350)ãLINE (350, 435)-(450, 350)ãSLEEP 1ãã'PAVILIONãLINE (350, 430)-(250, 350)ãLINE (350, 430)-(450, 350)ãSLEEP 1ãã'PAVILIONãLINE (350, 425)-(250, 350)ãLINE (350, 425)-(450, 350)ãSLEEP 1ãã'PAVILIONãLINE (350, 420)-(250, 350)ãLINE (350, 420)-(450, 350)ãSLEEP 1ãã'PAVILIONãLINE (350, 415)-(250, 350)ãLINE (350, 415)-(450, 350)ãSLEEP 1ãã'PAVILIONãLINE (350, 455)-(250, 350)ãLINE (350, 455)-(450, 350)ãSLEEP 1ãã'PAVILIONãLINE (350, 460)-(250, 350)ãLINE (350, 460)-(450, 350)ãSLEEP 3ããããTheCrown:ããREM CROWN ANGLE CHANGESããfixit:ããã'#1ã'crownã'table top lineãLINE (295, 290)-(405, 290), 3ããLINE (250, 350)-(295, 290), 3ãLINE (450, 350)-(405, 290), 3ãSLEEP 1ãã' #2ã'CROWNã' TABLE-top line for table lineãLINE (298, 295)-(402, 295), 4ããLINE (250, 350)-(298, 295), 4ãLINE (450, 350)-(402, 295), 4ãSLEEP 1ããã' #3ã'table top lineãLINE (300, 300)-(400, 300)ããLINE (250, 350)-(300, 300)ãLINE (450, 350)-(400, 300)ãSLEEP 1ãã' #4ã'CROWNã' TABLE-top line for table lineãLINE (305, 305)-(395, 305), 3ããLINE (250, 350)-(305, 305), 3ãLINE (450, 350)-(395, 305), 3ãSLEEP 1ãã' #5ã'CROWNã' TABLE-top line for table lineãLINE (305, 310)-(395, 310), 4ããLINE (250, 350)-(305, 310), 4ãLINE (450, 350)-(395, 310), 4ãSLEEP 1ãã' #6ãã'CROWN -- okã' TABLE-top line for table lineãLINE (307, 315)-(393, 315)ããLINE (250, 350)-(307, 315)ãLINE (450, 350)-(393, 315)ãSLEEP 1ãã'#7ã'CROWNã' TABLE-top line for table lineãLINE (310, 320)-(390, 320), 3ããLINE (250, 350)-(310, 320), 3ãLINE (450, 350)-(390, 320), 3ãSLEEP 1ãã' #8ã'CROWNã' TABLE-top line for table lineãLINE (315, 323)-(385, 323)ããLINE (250, 350)-(315, 323)ããLINE (450, 350)-(385, 323)ãSLEEP 1ãã' #9ã'CROWNã' TABLE-top line for table lineãLINE (319, 328)-(381, 328), 3ããLINE (250, 350)-(319, 328), 3ãLINE (450, 350)-(381, 328), 3ãSLEEP 1ããã' #10ã'CROWNã' TABLE-top line for table lineãLINE (320, 332)-(380, 332), 4ããLINE (250, 350)-(320, 332), 4ãLINE (450, 350)-(380, 332), 4ãSLEEP 1ãã' #11ã'CROWNã' TABLE-top line for table lineãLINE (319, 336)-(381, 336)ããLINE (250, 350)-(319, 336)ãLINE (450, 350)-(381, 336)ãDOã r$ = INKEY$ãLOOP UNTIL r$ = " "ããENDããGerald Wykoff Comparative Graphics wykoff@mbawiz.com 07-01-01 ( : ) QB Qbasic 264 8240 3grafsx.bas ' Subject: Comparitive Graphics Date: 7-1-01 ã' Author: Gerald L. Wykoff Code: QB, QBasicã' Origin: wykoff@mbawiz.comã'ãREM Author's Note: This quick graphic is useful for comparingãREM paired variables. I've set it up for manual input althoughãREM it is equally as simple to drop in an OPEN code with a pairedãREM data file.ãDECLARE SUB GRAPH (goods(), DAYS%, XPOS%, YPOS%, NORMA%, COL.GRAPH%) 'goods() deleted after quantityãREM PROGRAM 8.4ãREM GraphãCOMMON SHARED XVAR$, YVAR$, goods()ãDIM goods(100)ãCLSãSCREEN 9ãCOLOR 10, 1ãLINE (5, 5)-(630, 5), 12ãLINE -(630, 338), 12ãLINE -(5, 338), 12ãLINE -(5, 5), 12ãLINE (4, 4)-(631, 4), 3ãLINE -(631, 339), 3ãLINE -(4, 339), 3ãLINE -(4, 4), 3ãPRINTãPRINTãPRINT " GRAPH COMPARING PAIRED VARIABLES."ãCOLOR 11ãPRINT " (c) 2000 Gerald L. Wykoff . . . written for www.mbawiz.com"ãCOLOR 10ãPRINTãCOLOR 15ãPRINT " This visual display presents a relative display of the"ãPRINT " data in paired variables. For that reason, try to keep"ãPRINT " your entries disciplined i.e., the same number of digits"ãPRINT " BEFORE any decimals. The graphic does not accept keyboard"ãPRINT " data entries .. . you can only call up data from a perma-"ãPRINT " nent Paired Sequential file."ãPRINTãPRINTãCOLOR 14ãINPUT " What is the name/title for the X Variable "; XVAR$ãPRINTãINPUT " What is the name/title for the Y Variable "; YVAR$ãPRINTã ' call up an existing statements fileãPRINTãPRINTãPRINTãPRINTãPRINTã200ãINPUT " What's the name/path of the file you want "; file$ãOPEN file$ FOR INPUT AS #1ã' start getting the data converteãcounter = 1ãDO UNTIL EOF(1)ã INPUT #1, d1, d2, d3, d4, d5, d6, d7, d8, d9, d10, d11, d12, e1, e2, e3, e4, e5, e6, e7, e8, e9, e10, e11, e12ãFOR I = 1 TO 1000ã NEXTã counter = counter + 1ãLOOPãCLSãSCREEN 9ãCOLOR 14, 8ãLINE (5, 5)-(630, 5), 12ãLINE -(630, 338), 12ãLINE -(5, 338), 12ãLINE -(5, 5), 12ãLINE (4, 4)-(631, 4), 3ãLINE -(631, 339), 3ãLINE -(4, 339), 3ãLINE -(4, 4), 3ãPRINTãPRINTãPRINT TAB(30); "X", "Y"ãPRINT TAB(30); d1, e1ãPRINT TAB(30); d2, e2ãPRINT TAB(30); d3, e3ãPRINT TAB(30); d4, e4ãPRINT TAB(30); d5, e5ãPRINT TAB(30); d6, e6ãPRINT TAB(30); d7, e7ãPRINT TAB(30); d8, e8ãPRINT TAB(30); d9, e9ãPRINT TAB(30); d10, e10ãPRINT TAB(30); d11, e11ãPRINT TAB(30); d12, e12ãPRINTãPRINTãPRINT " View the X Variable data above. Since the graphs show relative"ãINPUT " data, to maintain consistency type in the highest value "; nuvalãDIM QUANTITY1(12)ãQUANTITY1(1) = d1ãQUANTITY1(2) = d2ãQUANTITY1(3) = d3ãQUANTITY1(4) = d4ãQUANTITY1(5) = d5ãQUANTITY1(6) = d6ãQUANTITY1(7) = d7ãQUANTITY1(8) = d8ãQUANTITY1(9) = d9ãQUANTITY1(10) = d10ãQUANTITY1(11) = d11ãQUANTITY1(12) = d12ã 'ãDIM QUANTITY2(12)ãQUANTITY2(1) = e1ãQUANTITY2(1) = nuvalãQUANTITY2(2) = e2ãQUANTITY2(3) = e3ãQUANTITY2(4) = e4ãQUANTITY2(5) = e5ãQUANTITY2(6) = e6ãQUANTITY2(7) = e7ãQUANTITY2(8) = e8ãQUANTITY2(9) = e9ãQUANTITY2(10) = e10ãQUANTITY2(11) = e11ãQUANTITY2(12) = e12ã'ã SCREEN 12ã CLSã 'ã ' declare two different arraysã 'ãã 'ãã ' Note: bottom of top two charts is 145 and disance from 0-10ã ' is 100 counts....bottom of bottom chart is 310 and distanceã 'is again 100 counts ....vertical speacing note vipã ' two different set of dataã ' this line controls the dark blue bars on #1 & #3ãã TIMES% = 12 'was 15ã LABEL% = 80ã ' to set color on bars, use last digit in CALL GRAPH commandsã' line sets bottomfor graf #1&bar color last digitã CALL GRAPH(QUANTITY1(), TIMES%, 45, 145, LABEL%, 1) 'was 1, 80, LABEL%, 1ã ' this adjusts the graf bars on the 3 chartsã 'ã ' call subprogram with different parametersã ' three different graphs will be displayedã ' 'this line sets bottom on graf #2ã CALL GRAPH(QUANTITY2(), TIMES%, 330, 145, LABEL%, 8) 'was 430, 135 280, 170, LABEL%, 2ã ' this line sets bar on bottom most graph(bar color last digit)ã CALL GRAPH(QUANTITY1(), TIMES%, 200, 310, 80, 1) 'was 200, 300, 80, 1ã' this line sets bars on bottom most graph(bar color is last digit)ã CALL GRAPH(QUANTITY2(), TIMES%, 200, 310, 80, 8) 'was 200, 300, 80, 2ã1200ãENDããSUB Draw.3DBox (X%, Y%, XX%, YY%, C%, C2%, BC%, Solid%, Indent)ãChar1$ = "Ú"ãCharHoz$ = "Ä"ãChar2$ = "¿"ãCharVert$ = "³"ãChar3$ = "À"ãChar4$ = "Ù"ããCOLOR C%, BC%ãA = (XX% - X%) - 1ãIF Indent THENã COLOR C2%ã LOCATE Y%, X%: PRINT Char1$; STRING$(A, CharHoz$);ã COLOR C%: PRINT Char2$ãELSEã LOCATE Y%, X%: PRINT Char1$; STRING$(A, CharHoz$);ã COLOR C2%: PRINT Char2$ãEND IFãFOR I = Y% + 1 TO YY% - 1ã IF Indent THEN COLOR C2% ELSE COLOR C%ã LOCATE I, X%: PRINT CharVert$;ã IF Solid% THEN PRINT SPACE$(A);ã IF Indent THEN COLOR C% ELSE COLOR C2%ã LOCATE I, XX%: PRINT CharVert$;ãNEXT IãLOCATE YY%, X%ãIF Indent THEN COLOR C2% ELSE COLOR C%ãPRINT Char3$;ãIF Indent THEN COLOR C% ELSE COLOR C2%ãPRINT STRING$(A, CharHoz$); Char4$;ãããEND SUBãã SUB GRAPH (QUANTITY1(), DAYS%, XPOS%, YPOS%, NORMA%, COL.GRAPH%)ã DIM NORM(DAYS%)ã PMAX = goods(1)ã FOR NUMBER.OF.ELEMENT = 2 TO DAYS%ã IF goods(NUMBER.OF.ELEMENT) > PMAX THENã PMAX = goods(NUMBER.OF.ELEMENT)ã END IFã NEXT NUMBER.OF.ELEMENTã LINE (XPOS%, YPOS%)-(XPOS% + 150, YPOS%), COL.GRAPH% 'was 187ã FOR NUMBER.OF.ELEMENT = 1 TO DAYS%ã NORM(NUMBER.OF.ELEMENT) = goods(NUMBER.OF.ELEMENT) / PMAX * NORMA%ã ZPOS% = XPOS% + 20 * (NUMBER.OF.ELEMENT - 1)ã LINE (ZPOS%, YPOS%)-(ZPOS% + 10, YPOS% - NORM(NUMBER.OF.ELEMENT)), COL.GRAPH%, BF 'was 7, not 10ã NEXT NUMBER.OF.ELEMENTã LOCATE 3, 12ã COLOR 14ã PRINT TAB(15); XVAR$; TAB(45); YVAR$ã LOCATE 14, 15ã PRINT "COMPARISON BETWEEN X AND Y VARIABLES"ã COLOR 5ã LOCATE 11, 6ã PRINT "1 2 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5 6 7 8 9 10 11 12"ã LOCATE 21, 26ã PRINT "1 2 3 4 5 6 7 8 9 10 11 12"ã COLOR 14ã LOCATE 23, 5ã PRINT "These three charts offer a relative presentation of the"ã LOCATE 24, 5ã PRINT "relationship between the Paired Variables - a view that is"ã LOCATE 25, 5ã PRINT "often not evident when looking at strict numbers. Ignore"ã LOCATE 26, 5ã PRINT "Chart 2's column 1 (it's a height limiter to assure the"ã LOCATE , 5ã PRINT "relative bar height consistency for all three charts."ã 'COLOR 15ã LINE (42, 50)-(42, 145), 11 'left vertical lineã LINE (41, 50)-(41, 145), 11 'line doublesã ' bottom most vertical lineã LINE (42, 145)-(600, 145), 11ã LINE (42, 146)-(600, 146), 11ã 'ã LINE (200, 210)-(200, 310), 11 ' bottom vertical for bottom graphã LINE (199, 210)-(199, 311), 11 ' doubles bot-bot vertical lineã 'ã LINE (199, 310)-(450, 310), 11 'bottom horizontal lineã LINE (199, 311)-(449, 311), 11ã 'ã ' places index numbers for top two chartsã LOCATE 5, 3ã PRINT "10"ã LOCATE 6, 4ã PRINT "|"ã LOCATE 7, 4ã PRINT "|"ã LOCATE 8, 4ã PRINT "|"ã LOCATE 9, 4ã PRINT "|"ã LOCATE 10, 4ã PRINT "0"ã ' this places index numbers on bottom chartã LOCATE 15, 23ã PRINT "10"ã LOCATE 16, 24ã PRINT "|"ã LOCATE 17, 24ã PRINT "|"ã LOCATE 18, 24ã PRINT "|"ã LOCATE 19, 24ã PRINT "|"ã LOCATE 20, 24ã PRINT "0"ãã END SUBããKrisjan Allikas GrayScale Krisjan.Allikas@mail.ee 07-14-01 ( : ) PB, QB 71 2064 Gryscale.bas' ************************************************************ã' * Graphics Program, Using GrayScale, 2001, Est *ã' * Programmed By Kristjan Allikas, Kristjan.Allikas@mail.ee *ã' ************************************************************ã'-----------------------------------------------------------------------------ãDECLARE SUB ShmText (Text$, Row%, Clm%, Speed!, Mode%)ãDECLARE SUB Dors (Speed!, Stp%)ãDECLARE SUB Delay (Sec!)ã'*****************************************************************************ãRANDOMIZE TIMERãSCREEN 13 '320x200x256ããDors .01, 1 'Sub for making BordersããShmText "GrayScale", 5, 5, .01, 1ãShmText "By", 7, 4, .01, 1ãShmText "Kristjan Allikas", 7, 7, .01, 1ãShmText "Kristjan.Allikas@mail.ee", 9, 4, .01, 1ãShmText "Press Any Key", 21, 4, .01, 1ããDO: LOOP UNTIL INKEY$ <> "" 'Press Any KeyããShmText "Press Any Key", 21, 4, .01, 2ããDelay .5ããShmText "GrayScale", 5, 5, .01, 2ãShmText "By Kristjan Allikas", 7, 4, .01, 2ãShmText "Kristjan.Allikas@mail.ee", 9, 4, .01, 2ã'-----------------------------------------------------------------------------ãSCREEN 0: CLS : WIDTH 80, 25ãPRINT "GrayScale"ãPRINT "By Kristjan Allikas / Kristjan.Allikas@mail.ee"ãSYSTEMããSUB Delay (Sec!)ãsss! = TIMER + Sec!ãDO UNTIL TIMER >= sss!ãLOOPãEND SUBããSUB Dors (Speed!, Stp%)ãFOR i = 0 TO 15 STEP Stp%ãLINE (i, i)-(319 - i, i), 31 - i '16 + IãLINE (i, 199 - i)-(319 - i, 199 - i), 31 - i ' 16 + IãLINE (i, i)-(i, 199 - i), 31 - i ' 16 + IãLINE (319 - i, i)-(319 - i, 199 - i), 31 - i ' 16 + IãDelay Speed!ãNEXT iããEND SUBããSUB ShmText (Text$, Row%, Clm%, Speed!, Mode%)ãIF Mode% = 1 THEN GOSUB Up:ãIF Mode% = 2 THEN GOSUB Down:ãGOSUB E:ãUp:ã FOR i = 16 TO 31ã LOCATE Row%, Clm%: COLOR i: PRINT Text$ã Delay Speed!ã NEXT iãRETURNãDown:ã FOR i = 1 TO 16ã LOCATE Row%, Clm%: COLOR 32 - i: PRINT Text$ã Delay Speed!ã NEXT iãRETURNã ãE: END SUBããAntoni Gual calculate mileage agual@eic.ictnet.es 07-15-01 ( : ) QB 330 10231 ballz31.bas DECLARE FUNCTION timecalc% (res AS ANY, t1 AS ANY, t2 AS ANY, sb%)ãDECLARE SUB timeget (t AS ANY)ãDECLARE SUB drawsphere (X%, Y%, r%, clr%, lightdir!, lightazi!, northdir!, northazi!, dir!)ãã'Here's a little QBASIC sub to draw spheres, randomly dithered for aã'random direction lighting effect.ã'by Antoni Gual agual@eic.ictnet.es 5/2001ã'4/6/01 poked to screen 13,form factor corr,8clrs range, 9 colors,avoidedã'black dots on topã'8/7/01 added screen buffer,pole orientation,removed INT aprox, stripped ballã'9/7/01 removed link error (was static buffer),overflow at very close ballsã'removed negative SQR correction (a% must be INT , not CINT)ã'12/7/01 added CPU speed compensation using laptimerã'next: add spin, texture (earth)ãã'from laptimer library by Antoni Gual---------------ãã'this variable type keeps time readings (In PowerBasic we could use a QuadWord)TYPE timetypeãTYPE timetypeã tick AS LONG 'clock ticks (54.9254 msec) elapsed from midnightã pit AS LONG 'PIT counts (0,8381 æsec) from last tickãEND TYPEãã'some constants you can't touch!ãCONST clockfreq# = 1193181.666# 'PIT clock frequency ticks/secãCONST pitdivisor# = 65536# 'PIT divisorãCONST tick4sec# = clockfreq# / pitdivisor 'HzãCONST mili# = clockfreq# / 1000ãã'end of laptimer library header---------------ãDIM tim AS timetype, oldtim AS timetype, diftim AS timetypeããCONST pi = 3.141592ã ãRANDOMIZE TIMERã ãREDIM buffer(-8 TO 31999) AS INTEGERãbuffseg& = VARSEG(buffer(-8)) + 1ãbuffoff% = 0ã'buffseg& = &HA000ã'buffoff% = 0 ããDIM SHARED RAND(0 TO 63): FOR I = 1 TO 63: RAND(I) = RND: NEXTããSCREEN 13 'QUICKBASICãmx = 320: my = 200: ml = 24: mr = 50: numclr% = 8ãscrrel! = 1.6666666# * 200 / 300ã'let's define a color range of 8 shades, so in screen 13 we can haveã'32 different ball colorsãclrng% = 8ã'define color ranges, darkest color must have the lowest palette nrã'GOTO endpalã'range of colors used by red ballsãPALETTE 1, &H4ãPALETTE 2, &H10ãPALETTE 3, &H18ãPALETTE 4, &H20ãPALETTE 5, &H28ãPALETTE 6, &H30ãPALETTE 7, &H38ãPALETTE 8, &H3Fã'range of colors used by green ballsãPALETTE 9, &H400ãPALETTE 10, &H1000ãPALETTE 11, &H1800ãPALETTE 12, &H2000ãPALETTE 13, &H2800ãPALETTE 14, &H3000ãPALETTE 15, &H3800ãPALETTE 16, &H3F00ã'range of colors used by blue ballsãPALETTE 17, &H40000ãPALETTE 18, &H100000ãPALETTE 19, &H180000ãPALETTE 20, &H200000ãPALETTE 21, &H280000ãPALETTE 22, &H300000ãPALETTE 23, &H380000ãPALETTE 24, &H3F0000ã'range of colors used by white ballsãPALETTE 25, &H40404ãPALETTE 26, &H101010ãPALETTE 27, &H181818ãPALETTE 28, &H202020ãPALETTE 29, &H282828ãPALETTE 30, &H303030ãPALETTE 31, &H383838ãPALETTE 32, &H3F3F3Fãã'range of colors used by ?ãPALETTE 33, &H80800ãPALETTE 34, &H101000ãPALETTE 35, &H181800ãPALETTE 36, &H202000ãPALETTE 37, &H282800ãPALETTE 38, &H303000ãPALETTE 39, &H383800ãPALETTE 40, &H3F3F00ãã'range of colors used by ?ãPALETTE 41, &H80008ãPALETTE 42, &H100010ãPALETTE 43, &H180018ãPALETTE 44, &H200020ãPALETTE 45, &H280028ãPALETTE 46, &H300030ãPALETTE 47, &H380038ãPALETTE 48, &H3F003Fãã'range of colors used by ?ãPALETTE 49, &H808ãPALETTE 50, &H1010ãPALETTE 51, &H1818ãPALETTE 52, &H2020ãPALETTE 53, &H2828ãPALETTE 54, &H3030ãPALETTE 55, &H3838ãPALETTE 56, &H3F3Fãã'range of colors used by ?ãPALETTE 57, &H80804ãPALETTE 58, &H101008ãPALETTE 59, &H18180CãPALETTE 60, &H202010ãPALETTE 61, &H282814ãPALETTE 62, &H303018ãPALETTE 63, &H38381CãPALETTE 64, &H3F3F20ãããPALETTE 65, &H40808ãPALETTE 66, &H81010ãPALETTE 67, &HC1818ãPALETTE 68, &H102020ãPALETTE 69, &H142828ãPALETTE 70, &H183030ãPALETTE 71, &H1C3838ãPALETTE 72, &H203F3Fããendpal:ã'demo startãCLSãr% = 1ãc = .1ãd = .2ãt! = TIMERãfrm% = 0ãtimeget timãDOã REDIM buffer(-8 TO 31999) AS INTEGERã buffer(-2) = 2560 '320*8ã buffer(-1) = 200ãã X% = 160ã Y% = 100ã r% = 100ã c% = 1ã a = a - t& * .0001: IF a < 0 THEN a = a + 2 * piã b = b - t& * .0002: IF b < 0 THEN b = b + 2 * piãã c = c + t& * .00004: IF c > 2 * pi THEN c = c - 2 * piã d = d + t& * .00005: IF d > 2 * pi THEN d = d - 2 * piãã drawsphere X%, Y%, r%, c%, a, b, c, d, eã 'WAIT &H3DA, 8ã PUT (0, 0), buffer(-2), PSETã LSET oldtim = tim: timeget timã dummy = timecalc(diftim, tim, oldtim, 1)ã t& = (pitdivisor# * diftim.tick + diftim.pit) / mili#ã LOCATE 1, 1: PRINT t&ãfrm% = frm% + 1ãLOOP UNTIL LEN(INKEY$)ããPRINT frm% / (TIMER - t!)ãa$ = INPUT$(1)ããSUB drawsphere (X%, Y%, r%, clr%, lightdir, lightazi, northdir, northazi, dir)ã'3d shadowed sphere drawing using dithering and a range of color paletteã'by Antoni Gual agual@eic.ictnet.es 5/2001ã'ã'INPUTS:ã'x%, y% position on screenã'r% radiusã'clr% base color (the darkest one in range, it must be the lower palette nr)ã'scrang in radians direction of the light sourceã'vertang in radians angle of the light source to a line perpendicular to screenã'ã'FOLLOWING SHARED VARIABLES THAT MUST BE INITIALIZED BEFORE CALLING THIS ROUTINE:ã'clrng% must be set to the width of a color rangeã'scrrel! IS the screen shape factor(1.6666*200/320 for SCR 13)ã'buffseg& SEGMENT of screen buffer. If drawing directly to screen set to &HA000ã'buffoff% OFFSET from start of buffer, set to 0 for screen and 4 for PUT arrayã'----------------------------------------------------------------------------ãSHARED clrng%, buffseg&, buffoff%, scrrel!ã r2& = CLNG(r%) * r%ã temp! = SIN(northazi)ã xn! = COS(northdir) * temp!ã yn! = SIN(northdir) * temp!ã zn! = COS(northazi)ãã temp! = SIN(lightazi)ã xl! = COS(lightdir) * temp!ã yl! = SIN(lightdir) * temp!ã zl! = COS(lightazi)ã tp! = 1! / CSNG(r%) / scrrel!ã FOR J% = -r% TO r%ã YJ% = Y% + J%ã IF YJ% >= 0 AND YJ% < 200 THENã DEF SEG = buffseg& + 20 * YJ%ã j1! = J% / CSNG(r%)ã J12! = 1 - j1! * j1!ã tp1! = j1! * yl!ã tp2! = j1! * yn!ã a% = INT(SQR(r2& - J% * J%) * scrrel!)ã FOR I% = -a% TO a%ã XI% = X% + I%ã IF XI% >= 0 AND XI% < 320 THENã I1! = I% * tp!ã k1! = SQR(J12! - I1! * I1!)ã c! = clrng% * (xl! * I1! + tp1! + k1! * zl!)ã clr% = INT(16 * (1 - (xn! * I1! + tp2! + k1! * zn!))) AND &HFFF8ã ccc% = clr% OR INT(c!)ã IF RND < (c! - INT(c!)) THEN ccc% = ccc% + 1ã IF ccc% <= clr% THEN ccc% = clr% + 1ã POKE XI%, ccc%ã END IFã NEXTã END IFã NEXTãEND SUBããFUNCTION timecalc% (res AS timetype, t1 AS timetype, t2 AS timetype, sb%)ã'adds or substracts two times in timetype formatã'---------------------------------------------------------------------------ã'INPUT: a,b = times in TimeType. For subst, a must be later than bã' sb% operation to perform 0 add | 1 substract | 2 comparationã'OUTPUT: res= for add result MOD 1 dayã' for subst: if a>b res= a-b |if b>a res=(a+1day)-bã' for compare: nothingã' Timecalc%ã' add 1 if if res>1dayã' substraction 1 if b>aã' compare 1 if b>aã'DEPENDENCIES: Noneã'---------------------------------------------------------------------------ã'By Antoni Gual agual@eic.ictnet.es 13/1/2001ã'---------------------------------------------------------------------------ãã'if sb%=0 res =a + b if res>1day Timecalc%=1, res =res MOD 1 dayã'if sb%=1 res =a - b if b>a Timecalc%>1, res= (a+1day)-bã'if sb%=2 if b>a Timecalc =1ãCONST ticks4day& = tick4sec# * 3600 * 24 'ticksãDIM t3 AS timetype, t4 AS timetypeãSELECT CASE sb%ãCASE 2ã IF t2.tick > t1.tick THENã timecalc% = 1: EXIT FUNCTIONã ELSEIF t2.tick = t1.tick THENã IF t2.pit >= t1.pit THEN timecalc% = 1: EXIT FUNCTIONã END IFã timecalc% = 0ãCASE 1ã sb% = 0ã LSET t3 = t1: LSET t4 = t2ã IF t4.tick > t3.tick THENã t3.tick = t3.tick + ticks4day&ã sb% = 1ã ELSEIF t4.tick = t3.tick THENã IF t4.pit > t3.pit THEN timecalc% = 1: t3.tick = t3.tick + ticks4day&ã END IFã res.pit = t3.pit - t4.pitã IF res.pit < 0 THEN pastmidnight% = 1: res.pit = 65536 - res.pitã res.tick = t3.tick - t4.tickãCASE 0ã a& = CLNG(t1.pit) + t2.pitã carry% = c& \ 65536ã IF carry THEN a& = a& MOD 65536ã res.pit = a&ã res.tick = t1.tick + t2.tick + carryã IF res.tick \ ticks4day& THEN timecalc% = 1: res.tick = res.tick \ ticks4day&ããEND SELECTããEND FUNCTIONããSUB timeget (t AS timetype) STATICã'Reads hardware time. Should be a function, but QB can't return a UDTã'---------------------------------------------------------------------------ã'INPUT: nothingã'OUTPUT: t= current time in TimeType formatã'DEPENDENCIES: Noneã'---------------------------------------------------------------------------ã'By Antoni Gual agual@eic.ictnet.es 13/1/2001ã'---------------------------------------------------------------------------ã 'reinit timer so we can assume we read lo byte first and then hi byteã IF NOT tinit% THENã OUT &H43, &H34ã OUT &H40, 0ã OUT &H40, 0ã tinit% = -1ã END IFã ã DEF SEG = &H40ã 'read bios tick counterã GOSUB TimeGetRdTick1ã SWAP b2&, b&ã ã 'get PIT counter for channel 0 and negate it as it counts bacwards)ã OUT &H43, &H0: t0% = INP(&H40): t1% = INP(&H40)ã a& = 65536 - (256& * t1% + t0%)ãã 'get bios tick counter againã GOSUB TimeGetRdTick1ã ã 'if lobite of bios tick changed, decide which value to displayã IF (b2& <> b&) THEN IF (a& AND &H8000&) THEN SWAP b2&, b&ãã 'fill structureã t.tick = b&ã t.pit = a&ãEXIT SUBãã'read BIOS tick counterããTimeGetRdTick1:ã t5% = PEEK(&H6F): t4% = PEEK(&H6E): t3% = PEEK(&H6D): t2% = PEEK(&H6C)ã b& = 256& * (t3% + 256& * (t4% + 256& * t5%)) + t2%ã RETURNãEND SUBããAntoni Gual String Simulation agual@eic.ictnet.es 10-00-01 ( : ) Qbasic, QB, PDS 63 2043 String.bas 'string simulation by Antoni Gual (agual@eic.ictnet.es) October 2001ã'a QBasic-QB4.5-PDS programãTYPE ptypeã x AS SINGLEã y AS SINGLEã vx AS SINGLEã vy AS SINGLEãEND TYPEãSCREEN 13ãCONST slen = 31ãCONST gravity = .1ãCONST scryscale = 2ãCONST scrxscale = 5ãCONST damping = .999ãCONST k = 2 * gravityãDIM a(slen + 1) AS ptype, b(slen + 1) AS ptypeãFOR i = 0 TO slen: a(i).y = i: a(i).x = i / 5: NEXTãDOãã 'draw new pos of stringã PSET (a(0).x * scrxscale + 160, a(0).y * scryscale)ã FOR i = 1 TO slen: LINE -(a(i).x * scrxscale + 160, a(i).y * scryscale): NEXTã 'ãFOR i = 1 TO slen - 1ã 'calculate elongations ath both sides of pointã XVector1 = a(i - 1).x - a(i).xã YVector1 = a(i - 1).y - a(i).yã Mag1 = SQR(XVector1 * XVector1 + YVector1 * YVector1)ã Ext1 = Mag1 - 1ã XVector2 = a(i + 1).x - a(i).xã YVector2 = a(i + 1).y - a(i).yã Mag2 = SQR(XVector2 * XVector2 + YVector2 * YVector2)ã Ext2 = Mag2 - 1ã ã 'calculate dynamics of pointã xv = (XVector1 / Mag1 * Ext1) + (XVector2 / Mag2 * Ext2)ã yv = (YVector1 / Mag1 * Ext1) + (YVector2 / Mag2 * Ext2) + gravityã b(i).vx = a(i).vx * damping + (xv * k)ã b(i).vy = a(i).vy * damping + (yv * k)ãã b(i).x = a(i).x + b(i).vxã b(i).y = a(i).y + b(i).vyãNEXTã 'point at the tip of the string has only one neighbor..ã XVector1 = a(i - 1).x - a(i).xã YVector1 = a(i - 1).y - a(i).yã Mag1 = SQR(XVector1 * XVector1 + YVector1 * YVector1)ã Ext1 = Mag1 - 1ã xv = (XVector1 / Mag1 * Ext1)ã yv = (YVector1 / Mag1 * Ext1) + gravityã b(i).vx = a(i).vx * damping + (xv * k)ã b(i).vy = a(i).vy * damping + (yv * k)ã b(i).x = a(i).x + b(i).vxã b(i).y = a(i).y + b(i).vyã 'erase former stringã WAIT &H3DA, 8ã PSET (a(0).x * scrscale + 160, a(0).y * scrscale), 0ã FOR i = 1 TO slen: LINE -(a(i).x * scrxscale + 160, a(i).y * scryscale), 0: NEXTã 'copy work array to normal arrayã FOR i = 0 TO slen: SWAP a(i), b(i): NEXTããLOOP UNTIL LEN(INKEY$)ããBernt Figaro Value out a JPEG file u19604345@telia.com 10-06-01 ( : ) qb,qbasic,pds 1 4621 Jpgsize.bas REM $DYNAMIC DECLARE SUB ReadImageInfo (sFileName AS STRING) REM ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ REM ³ Â ÚÄÄÄ¿ ÚÄÄÄ¿ ÚÄÄÄ¿ ÂÂ Â ÚÄÄÄ¿ ÚÄÄÄ¿ ÂÂ ÚÄÄÄ¿ ÚÄÄÄ¿ ³ REM ³Â ³ ÃÄÄÄÙ ³ ÃÄ¿ ÃÄ´ ³³ ³ Â ÃÄ´ ÀÄÄÄ¿ ³³ ÚÄÅÄÙ ÃÄ´ ³ REM ³ÀÄÄÄÙ Á ÀÄÄÄÙ Á ÁÁ ÀÄÄÄÙ ÀÄÄÄÙ ÀÄÄÄÙ ÁÁ ÀÄÄÄÙ ÀÄÄÄÙ ³ REM ³ÚÄÄ¿ ¿ Ú ³ REM ³ÃÄÄÁ¿ ÀÄÂÄÙ ³ REM ³ÀÄÄÄÙ Á ³ REM ³¿ Ú ÂÂ ÚÄÄÄ¿ ÚÄÄÄ¿ ÚÄÄÄ¿ ÚÄÄ¿ ÚÄÄÄ¿ Â Â ³ REM ³³ÚÄ¿³ ³³ ÚÄÅÄÙ ÃÄÄÄ´ ÃÄÄÂÙ ³ À¿ ÄÄ´ ÀÄÄÄ´ ³ REM ³ÀÙ ÀÙ ÁÁ ÀÄÄÄÙ Á Á Á ÀÙ ÀÄÄÄÙ ÀÄÄÄÙ Á ³ REM ³ÚÄÄ¿ ÚÄÄÄ¿ ÚÄÄÄ¿ Ú¿ Â ÚÄÂÄ¿ ÚÄÄÄ¿ ÂÂ ÚÄÄÄ¿ ÚÄÄÄ¿ ÚÄÄÄ¿ ÚÄÄÄ¿ ³ REM ³ÃÄÄÁ¿ ÃÄ´ ÃÄÄÂÙ ³ÀÄ¿³ ³ ÃÄ´ ³³ ³ ÃÄ¿ ÃÄÄÄ´ ÃÄÄÂÙ ³ ³ ³ REM ³ÀÄÄÄÙ ÀÄÄÄÙ Á ÀÙ Á ÀÙ Á Á ÁÁ ÀÄÄÄÙ Á Á Á ÀÙ ÀÄÄÄÙ ³ REM ³ÚÄÄÄ¿ ÚÄÄÂ¿ ÚÄÄÂ¿ Í» Í» ÚÄÄÂ¿ ÚÄÄÂ¿ ÚÄÄÄ» ³ REM ³ÚÄÄÄÙ ³ / ³ ³ / ³ º ÄÄÄ º ³ / ³ ÄÄÄ ³ / ³ ÀÄÄÄ¿ ³ REM ³ÀÄÄÄÙ ÀÁÄÄÙ ÀÁÄÄÙ ÍÊÍ ÍÊÍ ÀÁÄÄÙ ÀÁÄÄÙ ÈÄÄÄÙ ³ REM ³ÚÄÄÄ¿ ¿ Ú ÚÄÄÄ¿ ÚÄÄ¿ ÚÄÄÄ¿ Ú¿ Â ³ REM ³ÀÄÄÄ¿ ³ÚÄ¿³ ÃÄ´ ³ À¿ ÃÄ´ ³ÀÄ¿³ ³ REM ³ÀÄÄÄÙ ÀÙ ÀÙ ÀÄÄÄÙ ÀÄÄÄÙ ÀÄÄÄÙ Á ÀÙ ³ REM ³Â Â Í» ÚÄÄÄ¿ ÚÄÄÄ¿ ÚÄÄÂ¿ Â Â ÚÄÄÄ¿ Â Â ÚÄÄÄ» ÚÄÄ¿ÚÄÂÄ¿ ÚÄÄÄ¿ Â ÂÂ ÚÄÄÄ¿ ÚÄÄÄ¿ ÚÄÄÄ¿ Ú¿ Ú¿ ³ REM ³³ ³ º ÀÄÄÄ´ ÃÄÄÄ¿ ³ / ³ ÀÄÄÄ´ ÄÄ´ ÀÄÄÄ´ ÀÄÄÄ¿ ³ÀÄÙ ³ ÃÄ´ ³ Â ³³ ÃÄÄÄ´ ³ ³ ³ ³ÀÂÙ³ ³ REM ³ÀÄÄÄÙ ÍÊÍ Á ÀÄÄÄÙ ÀÁÄÄÙ Á ÀÄÄÄÙ Á ÈÄÄÄÙ ÀÄ Á ÀÄÄÄÙ ÀÄÄÄÙ ÁÁ Á Á oÀÄÄÄÙ ÀÄÄÄÙ Á Á ³ REM ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ REM This module will return height, width, color depth from JPEG DIM SHARED mWidth AS LONG DIM SHARED mHeight AS LONG DIM SHARED mDepth AS LONG REM Example COLOR 14 CLS LINE INPUT "Input Path and JPG filename "; MyFile$ ReadImageInfo MyFile$ PRINT "Info about "; MyFile$ PRINT USING "Depth ## colors : Width=#### pixels : Height =#### pixels"; mDepth; mWidth; mHeight SLEEP END SUB ReadImageInfo (sFileName AS STRING) REM This is the sub to call to retrieve information on a file. DIM iFN AS INTEGER DIM Ln& Buf$ = " " A$ = SPACE$(3) mWidth = 0 mHeight = 0 mDepth = 0 iFN = FREEFILE OPEN sFileName FOR BINARY AS iFN Ln& = LOF(1) FOR I& = 1 TO Ln& GET #iFN, I&, Buf$ GET #iFN, I&, A$ REM loop through looking for the byte sequence FF,D8,FF REM which marks the begining of a JPEG file IF A$ = CHR$(&HFF) + CHR$(&HD8) + CHR$(&HFF) THEN LinePos& = I&: EXIT FOR LinePos& = LinePos& = I& NEXT I& LinePos& = LinePos& + 2 FOR I& = LinePos& TO Ln& REM loop through the markers until we find the one REM starting with FF,C0 which is the block containing the REM image information GET #iFN, I&, Buf$ GET #iFN, I&, A$ REM loop until we find the beginning of the next marker IF ASC(Buf$) = &HFF AND ASC(MID$(A$, 2, 1)) <> &HFF THEN EXIT FOR LinePos& = LinePos& = I& NEXT I& REM move pointer up LinePos& = LinePos& + 1 FOR I& = LinePos& TO Ln& GET #iFN, I&, Buf$ GET #iFN, I&, A$ SELECT CASE ASC(Buf$) CASE &HC0 TO &HC3, &HC5 TO &HC7, &HC9 TO &HCB, &HCD TO &HCF REM we found the right block PRINT "Ok for this file" GOTO ValueIt CASE ELSE END SELECT LinePos& = I& NEXT I& CLOSE #iFN EXIT SUB ValueIt: REM If we've gotten this far it is a JPEG and we are ready REM to grab the information. REM get the height GET #iFN, LinePos& + 5, A$ mHeight = 256 * ASC(MID$(A$, 1, 1)) + ASC(MID$(A$, 2, 1)) GET #iFN, LinePos& + 7, A$ REM get the width mWidth = 256 * ASC(MID$(A$, 1, 1)) + ASC(MID$(A$, 2, 1)) REM get the color depth GET #iFN, LinePos& + 9, Buf$ mDepth = ASC(Buf$) * 8 END SUB ãKari Korkeila PB Mandelbrot kkorkeila@tosikiva.net 10-01-01 ( : ) PB 371 24491 FRACTALU.BAS'>>> Page 1 of FRACTALU.ZIP begins here. TYPE:BINAA TLEN:17610ã'-------------------------------------------------------------ã' 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,"FRACTALU.ZIP",4^6:?STRING$(50,177);ãU"%up()%9%%%R-%TY%[P&9;oJb%7%%w'%%%.%%%%kw%fhyS[nht>P$*ARIU1UNea3ãU"[]*1:>>%$KxWZ_&e;Wg4)gd_7u51/^b\BAmJjg=h-$Ro[[b)CeR&U*:T%L5H;OkãU"F/n55*W6mouR=U1+NW0+0GjH9Cd\]9+:H9(;uN?Uv#j6b'][%tsD*pd^xBBiq:vãU"r51'\v2Vbz4K.tmmWh#QfRDT/AIr9xS\Z4$7*K6Shu'n06)5;R9bBgn*/DproD2ãU"[gKm8v?k:SEMXO\EF5lK$B*E%mJIG9_s59p:2kOshjz+KgPCsXa1m2ZYyIPj[lFãU"suvuND>hlfW*,F:FbHU>?u,u%%up()%9%%%7-%CrITPY?%K/h%%%%s%%%%-%%%%ãU"kw%fhyS[whxG9EpGN%rnzu5A/Y.q?Ajj.VXW.6pmB1Ei[.A+2o42qAENl=u[^w#ãU"uuUw%UZ%wYmGwMaeCRA'J^i4'Ave%%%up(%)9%%%%-%A&H^PXF(eD9%g%%D%p&%ãU"1%%%%k%wfhy(fMVS[gfxekLrBTs]+ihYxCxO.vK]9BLCvVt^5Je9LfTo[IvpB:^ãU"u7O7:JJ[^:,pJtX6nwNq^\Z#%-watBeG75fV3iYoJV71Y#C\,i(S'nF73l't2OBãU"PfI5DRDq5r^[gd#ãU"8Zif>RzR\x$;3H1gZV5<4VSc6)V86pk\t-hdB9EU]l.cUa>Ng,w2pRS0irKV#)fãU"Mer>Lp>GWkHbFB>r3.\:8D(.'lpd4Y1sL>>6KOFD8exWunUCU&Q7/KFH73B,TQsãU"pk?.a4fHMweOG=O$l=k6rS'_5\=K._fLN#=9IUU#$b+*Ct'WHl8GS0quT>Jt[jhãU"P#aOu;6V4rtfrF8TdãU"#2icR54-v$;n=\3v7W-)VVX\-V/-a-JwOT%-zAL&pQEuu[&?d#7d+.h(T4TFHmGãU"hmKFZW]l7Ql1'Gb0iMPXRw2)pRqw_uZ8[up,d,%^ogKO9ga89sP=bU)-Jp5Lk:MãU"j4lBh>s:[Wc^6Om8R>fXnceNC3iO-=5aEUn/H)uY%44oL]Epf';rdRf-+1-3#]WãU"RapNfE>'lh0pA7GE%mXiB2>C+m#IZiitr*0cQQI5[6AJBioB:cqn6J0#\ãU"8mNm;TBNI4K-aqw\Dr8U(*du(IM4>#h$F_ypGYhSq%4JP[:>?ãU"[Xq8?MwFkIx\C(JX<;]#&Q'9gaU-58htw6>$p'$.Byp2sdqLi5=#UjJCk*,YHwfãU",GgWq=h4e7,T7$F31y8EgnjZhUl^Kjh6M%[oFjO1Ee0$E&Hv/X9/+_wyo:zWk8MãU"f*1Hg##F<*m+'/EyU_Z*_qPSJXgca>tGfeQaB;YkTGPw0dspiuT>>CQwãU"1iJzi)D4qDTW8/GW:ZS-\*HrdAR,E0I[RãU")x5sUR(V'23ãU"#3+Nf0IvIe):e1n&grn5A3Yo^t4W].I27ogW\PNT($npNf[ytjO'fBE9x?YEDAXãU"zfNCAOUscwEZV^MjB\/>(Z8W*UUh_9jnJicC-2Q9#?zl4n+J+:2y?T+ãU"A,*OC(A/O_1+?&phAZpnn#mC^I+u]H^OlKD#nlo6AX?wM1Gd.2;i]VFc=Dn[91#ãU"^IY#UhYI1T[g\uA8(WAgAhhu5%]=+]i7g:fa><^w1QL9&W[A9:nA,s-yh.:n?:+ãU"k*GnGp;M%LI#%')^9:nFW%aQ+,B-Zh6g;Fma8ttãU"n]7'KFR?$)aN[U=mZZEcbOk3/inIsXQy8dP[P_#]<#H?nu8n:91Z9ãU"(hSz^-)jvn$BZj5(FlS&$Nb:SRD_Py7&c3g2'WtLTX_)[+Pn\f6TQh-JfR%wOO6ãU"9j6UWc*GwQXw7Da%%g:W3%PE(c\maIqy-tN^\I:MCDL#?J&pkEDx^sSlC8.ãU"PtJ<1c^y0?TBI)X(U)A?IKf]Gb?WeQ(QUo+8U0d6IjW1df[FQt'f%W>j9#SãU"lbJj][l>0NJP9?M[LX1ycT/X-k:T1:p?ed.yT+e%4ZEUa$)QVG?jxe+1Q:N^1NrãU"Kk0VDib+waM-FU#mznaf\wzDO)#pNHV9Fdf1)iD8#);40AxQO1H(W6y+O;-_PRZãU"w*bFWvNA1bC-_,F#6GI4X9K.#rp_<^+VAI,pohCqTr-YQbU)gEM67K5#?5'GJWsãU"I$$qCjRXjOjF8XQ0*EKCQ'NUkIFi9ãU"ut[I&(7+2.+7%1-rSrAYBKzp%g2n?).R2fZ]MdgJ8L1'+$;>D(gGai-3O+%e0x/ãU"T:X5$E3%D^j(hZh5UWc6?HcfzQmPA'&6On3h3Oy9a&g8kJf\z>>09c2XB4xX'[dãU"nW.E(k7R+m-[94iWW'm(4j]qSwB;K?Sh1p_32PlB3aF%$7h06$U61/aRx2vUs1)ãU"0YY*NZUzv/AEW3)]a?3J3-y.DRX$^sM-5BA9/0rE6Uz>$lU4v\UVi1TU5qW=tl0ãU"7uSqxMt73V,6'cl0NO&\qIN5QuM4_zsYbttDUI8T,N6GXxQTF+EK5%?gpAi.pP%%bxLk4marjuQjGãU"7<2e7NZt6K4#\+[-[V#iKjgFuClf5aeI)0&GW%2j9.$ZG&ZN%W]S-qQsvPbmq\%ãU":M3$_fo#JzHE2:6i:IIPQu\,jl(qq[[/PEiMGDH.y)/awdD1wyAj7o*W'+;pA<=ãU"Ru^iDGADS#LDa,50u[b(]p4WGsGA)o*.Vi\M8('rMQjcSM^>A<^k1T5-=S;0K8[ãU"].DL)]qT2_Xn1/k\]]c%x8W=8j>:)T)ZC2xS;%O(,i47WLGVZrTG.b#[q,N73X4ãU"2(Sl*dHddiD=u//H7Ee2i.53Kq/&N'XYTQtYVmiY'Z#q&*7oL*XV.G&KXDY??k,ãU"=iUuO.1C-ckwGyxKT\_mS./ZM7a(3SckEfUa-<]s$tOV:md&)V**jEVMw,\p/OrãU">)7v2w8I'Hg4R1=6U^oCMv,mqW;M&OUNA^UAVR3yeg%M&,gXAt<]]QDiaj)onãU"9PJE>aJ;QoA1t-\ãU"[MzAI6Po1OGG-MLTRg\+[V'&(6>v]mVqHBs]in)4(5;2&ai7%qPjn5hSNc%79dhãU".4WVhN#Eqd#ao>RJS5(0e9/=k[,T\k>:FtisL(S$/3B$$F*I..4dGqC;6\k3cEdãU">$daN9%cuW+og%ZP/xr2M6wds8HãU"S*Eh^C5h,v)$2<+NEW>8uXgx9g#B=gW^Aj(h&u8cp+s7/\]q1\qo+_9x3;Pae]HãU"41mg>=aXM>q.CnYXQ=e7Q%L?trv+tMV8YC#ACv(+oYe:2MkUUY)GMc+9Xo^$mWTãU"ONãU"yJZ/]f.33Rbr;dmb-r,l>bu*/_^-*n+ShwãU"tAkou>0#)wKAT+$WrM*Q57qIATVzQnl6Cq/9m;V/B.'E4pdm5J&5C+v_GC9?0x]ãU"rsJ^2%xT]C0t5dBmZ?-x6-eZahayDiXI31U[K48Edt7Q?g72&,k)Pn4gp>r(P:qãU"0B2D^J-.FE9Z8CMi[X]U1US-[S/9#IV+Wv2vU3QI>'aKKaNdzuAX7eT:\#=ZFmNãU":PPYQ]xG/<_z*$Hh%Kn8hc8f6]GnbYmZ*q)g7RC(opOO#W)6qj'I3ljxtQSmYEIãU"UkEID,X'n5X?u2gYhgGBE7sRMLvL3NG$'9ds&cue^F;ZdCãU"l6HMW8pQ?xH\Io)'g*)r_j:E[Ky(&oJ'd+WVDL=o[2.u%7.H<9;P&wcTe7DnA0BãU"a\YH/3TyMS4?5+R8U>gO^hHp[Llw#+V_,bn5_M[0[i-(25fbYa/*J,LK#9D^+%?ãU"9'xHHF\[RZYsBMEK2($9_FZoB_7r&YF:k;1^lIg)Gg[tod&Fr5MVxOFn;NO6.^hãU"jV#_GlDMU5fr$tN9CB$+'h\6>jG&u82_J'ffr5(Tz(o#XsNeL\z>.jE5jrNv^a5ãU"XLq2Uh^ZXL(GR7j6%/qKInr*#9HSf)0fC0+b,S6,O0L'cS[jR'^y[jND'k=ZLx2ãU"#5OQG\T;([wkEn5)/.k55)h1%2\LM/*g5>MR)<.^H341xou=xog-fvW*%UxD4l%A1>:Aa2<ãU"ik<1evKC#dHm*RC$:VF(VAv.CTBO?&&PF9mV^NdExP\GxVu#N;d*5(QCeMk,4s*ãU"Zk>8Qm05IH:x1AiL.i8*.8CN-JsfSTLjob2\yDMUUZu(bo7+^SWE7.#<6?4S+G]ãU"]]aAkQ+;F2R,RGFnbo,L$4s1N^#RaVHg5+eDwO/V,HQ:BVLeA>pzF,1MfEWifxBãU"39/uSBL^K13a6uiiP0eF0.9Q]EX1f/=sWCT;pehc^i%.oKkM%+dTpQH+7qcmi3BãU"*&bq9DlZZ$b/Q[px_*M$*LZXTMqEhPrEhq]+zlvO$)cgM;FjcR=4X(Cq[Pg>s,OãU"MUSqXgKOVYgb/bQva:UlL^9j2Zpw0f8Kj[xU'Hk7'$2fe.TJC_x+,V]NNa&2'VvãU"dF5?cQY1M2HT]l=M$K=k\um6'BXWS0D%2(QuU,B'w-yFm*ZyAe'q[7yZ/ld;kOfãU"Yi4f-/-Y7NP\01u($<&XiTJFdRDzEqWFneKEbN4dU8R):+Kxbi]eaqEATXs$ZfNãU"bN+4Nx2dg6Q?1asU5tKkp:mkl0Mi]XlkqX4Y^$98[ffwL0,/lW?n$UB.peKP=R$ãU"G\$$7DaPC,*I64T?FN_dn'(D>xO])d%R>g2T-zn)HGh0b3t*>C:67ZV<:];IqHWãU"W]f+Dq/wvRcGY?kAcg?44AvPq#Y,FY0g[Myd1oA'N8]O>f1*c9]YO^Q\Ym?u86uãU"(Cl?F+V,JYt6uLi,;ZP1Q],\ClJ*ox)W8oVD.NLk=pb#kompb#e5\^M?LurY+Bc4-fw7uG[DZTw<^6?yOlvFhg>2ãU"Ex[wXHCtG,NIl'%XkeJsbR]*e$GWPNb'dSI\DVFCvNsl#x7=8ep1fjoZjcS6lt+ãU"qp$ruoSU25iYQ-_A'D/bj3Y*>r$H7Mh18852no,/^OCRn=?lNQ],_1VYc[J[+v8ãU"fJ-a-BD?c)HAFm,G]%hGMh0M/YcTC,S:]Xh:9ke)ZIdmhdMFWR'o\ekniC.UnZ.ãU"xP^P\A[[R%JFWq]oNbI67G-'TFo'NYEZcrYVOoKk07m(#Ie]%DxKN^U.gwj]cp#ãU"A6urSO*KkFaX;Q)N&/*w7*+S;&=&e$MU+_KP)tT,-aSIhCTCu1WqT'-s1:IN(P0ãU"=_)_cu11Ka>3l#9R1&Fm+B?sV;W9S^is1iZf%Kfs]ãU"5-<;1sp%J_za9Sa6huKYlZk=kTY6,A/RT#S#Inoi5kBn\Jg3AF856-Ra71o-hdGQ6(8wABW+P=Xm%&2t3t6ãU"9%g=;I)Z;C0;j90le'17EM>0:0#M4gk3Q&mcYV(11)h5E\sbIl31gYh?%3uEC?%ãU"k1Ey?Qe=glF?,X2qE=EEG1m\y%\H%X&QUH5mx_dGBE\IGe:.&[Q$RmAe48]vR]XãU"J^[Xp_[-o>%C',YL5?oAg?r%o:&l37Cac,[1KBJx'*<5'X5)8_sAF]4Bqx&L(*4(Mevxn75U)rgkdVS/.ffd6-KG4iwC9[pOs%qDw424j;n-LEC>r'ãU";=IaVWNHl7I/bG%;Chw'7AqEi#^cxCCZoynexV#t'h3p,ppE=ih)B:FqS4=bJggãU"eru:m+b*x]cNPV&gL-RwpXAx]7a3PuEKEIQnZkE=D1dn2rGuF0>8Webq*>j;*[pãU"KDYJ&-NvF3rpSWZ?C2eCKZm*RUi.3W,s-5FKGX?'IlVNJ$<(gsAh,tDOm[^<ãU"HF':=nLM28[:uIL:\FKm;,mT1uBjKxAI%BZd3Ji]l3;X0_'Nrw[:Y]E]CoG8Nz+h,%1;O=2hoIB$-wr;ocp6aAFkbawãU"Yf60dSt[;CE3]dGTRLEKkJ7,++CZA(1uCi*[(WnNa$oJc/(D/.6BZ^oTM$PRFATDdGZJdt+wãU"Nm-g([A;.[)B2/G?DLu'[B.%)%GH7>i9vG>.-WaF\%oQu2fb_Y0Xn$+JV+qI_10ãU"Q>_-];WNQwq=ad%lUb>iBRom$5Eh3MWQF9[S$C)L;),:q<8hj)6-uãU"jCd/g-7+dGH*YdqN]6v*(4AMMHS3.-^L[r2o48x&Rt$AiuS&.8o'UWSl:Xh/f8lãU"Y[sRj#IA24hejP&J.,xo*(xOe.k3An6q?:(o$:N0XD#D^LZxq_sniRRD#w11on6ãU"HD%UXy]UDJres1i9FL'9SAsOV;h*Cs5Mb]+H?l.%E\4zf+Sh,i+qJH,Cmna<=)8ãU"uE?=3dFPJd80YqsbfYHCw%U1:z224+*F>[D:nTt%$+hoQrU?U;)/;Zd6NRQ&0\eãU"C,C\7QpJD>-QgiJ&#-.b9M&Gkc6rSW]jP)wcV;kA*cYHdj[8A_-?p#F.:DRG]:8ãU"I=MPdW0L4s[V=$)I'%(gFEU71gL'jC\,dkAS[E'Nr^chq/$psW,qS/$&GaLi:8[ãU"S-.T5#r']%t(%5P[-Ui,\g%\bp9uKYPR1ZtPO5i.(Pc(LWi\z)-z8l(MwF1\#b0ãU"ABQbI2NPo[P6N*ih-M%4Q9ODKl>+kkhkFMC%3s_nE)c'P3eT(3q.V(=,Z:aDv>aãU"1f#T^eB04yPk53LBoXBcR\-O5+4jBAP6qbT=$-$SgURgKV.b\P<[hbRFOAiCJ2hz1R=RãU"CU6JBl\0ra1l>h]6:QGUOx6oIJ5qq>[F[N_g&p:)');8/,ftZNv?j#XVZG92f.uãU"hu2#O;j.AL1zwlLa$QUn\*h_K)pBve%i^S4v:UV3v7FO_Yd)s[ãU"L7G$fFH_Nz#ZG/LJ70-+nJl#v4GEo)S$aWAgjWs&SMvNu])w(Ys[F.Vbn0[RR5EãU"+A\Bn9t\=XAHq_JY;gK&s;[2%HnSbe-)Hb[,7hn1/6RhEIAX$mso$MUH-eJ)0v:ãU"\<,PtYC)%t&)SkygZG5Tk8AlKJqTf\9lxO8)lG=:IN91*.tO)w=:\uQ8rDb9N]MãU"7$AfsqrP+KoWMJ?qx-Eciz^tv9JNJpi46JJEiLpo9ma?NXVUR?W$^x,lK3t#qLeãU"B;$JVw=U^.QWAl9-9EGo5T>lQ+cncU$rJWlEWkc58:*wHM6K#kN-c-?vJKML:z4ãU"r_3i_*liW7OYz%Gk/t5y%mFB8,mQgS7\7nyE_q8yE=8VtGaQ)oUZv/Wk)v_O&=NãU"vT\iDstfV_eChMHM9k\dsWXI#xj*aF6dnm9o)];k37_n)oSW.%2lgqncHG42lswãU"3Fibr%B8>BV97Xl5bkH6PbC)3<-s-bBK7Nf7stDki2C%G)KLqrb>,_MuMJ;=gOgãU"'OMArttif$eC4n.)V;\bcnaVr7>-vJrmO>v8t.vO0oPhD]eGe/d)mO]/\WMWw2>ãU"%+XGivs$SdLPdS1>puz*[(K^t<0%q+z;k<,K?5#/RjpkN8i?ga$CBK+1xwUXnO*ãU"Cbf,ug+5AiaYpuI.MG>AVVRpl:)mSF9(3B*j=Ae,6+Zf^-4Dbc9EPiebsf#+s&XãU"^y^7nGZMhXa6B?3\QD^upE#Pv#VUmxsa.ENEaN4BgE+zLY?eZjrU0lCKrZ>e3*HOgno?[)s3=ltBãU"D\^C_Wu\l8d#_:Df>FyJ0mqnVsTt_e;fl7gOKJZ*Wux%>6'/j%/*2atM,9$&Z#HãU"-5<;.x)qP?qsa5H%5e:EMrwrAEZ#R\\oa.aaa,ãU"I$Mdl5d*QTOsXw+6_*FwVQ/nxdKr;k/lgavhNH*8n(3#S7%<[x[3;j>1?Mkg2XrãU"Tf0=&l_o-)QQvN?]BSECi(c(.;.Mi;&>UxI:1?xdagh+rmxFAeeq?h=<'1nJ:3J#tkDpcZ;lb/1tDKSi4a1ãU"4SNOv:TXQ&EMR[g;L.,\1HsG;D_\udZIg-.e4bgCUemNl?c5bePjUem/x+Or:>1ãU"LoG0RHc'Z]+Ce)bVU7B]lv:8^8X\'E\&dkNh&<<.r.k[Og9^+j'APCJB#pP?08[ãU"%4$oL]pMf-m<.-VwfQS?mj9v[Qr'#C1ule'XVT)ZmANa+*;Y+]f3QKVt#Q+jpSZãU"d*%tN-&LmeIt*dbn;1*2m=4fM/o:.s4%'vHWSjbOWvFJA:7%#Dh9ABdtCxveCH=ãU">eDuz9&qOOOouY;BWlpqJ.dbqxW;DxH>uhp#LlAnp0u;hieNA>g02#^saZkMJ%%ãU"/_H(Mf45DZrmn&Y)==ZEmJs.f3S7ghIsGsuuO1=)qA&:D29]F*txD7bcoH*n[PGãU"cFoKdh1IdMZm(rSDLwt$<(ZmzK*CqK:QjP/^.p0BEQ4Jlrv:73=mU=^$vD6FUO%ãU"YU;\wA17c0D_dI,:DI>-c*Ef+uV;i:nm#snE2GYq6SCHr:S(Hvjuk=7B:1A9a'/ãU"oii)F>RFaIIGr%^Jqn7o#(1j&N3vzcRVxT&,RL>3FtDy?*P=f1rK\:UYi##-9^[ãU"v96rVRUWIsK;q9#=KULyr>9qTbfQi)Ec8P/J]++h#Qwmcu*F]R10KS:mrUCQ:m>ãU"kAZj0pU>0kãU"[agqU=AkF]1o\+wj2NAsexB_I.%hYG2hk_h]p\Z,fTO6T1gW6K6Z:).?&5BLãU"pDfGb,FF24fdtwa4]N?%q1U-06iMYef)sZ>jf(gwDy1vu9MGVfrS\/2Z(ql%T:1ãU";LQTQ75ToK\#cN_LK81PTxHLtKZMxd,\5-Y:Q[Q8ZMF?hI8.m=kO#c]a7.cMVQZãU"E6#c-4>Uq_:jT690OQ1$4Kp_no^5zB'l*X*G^,vb-rs]Vf]#RmAWcov6\j*E/ITãU"uJObv)a[VrTHt&Hayk3M0R-9WE6[[mt2OC2RV.UM7'g.6OQ+\0yn6X6.?-tJDxLãEND SUBãSUB V2ãU"/iDtZTR_946xVDE;qa$w-c.-Xh+L84VU4nFmz>1E)b1eI-0%T$&E(kxr5WBg6_jãU":T]*tR7^8Ah#b1FHZ+vGU1:yQDUP6YsXG>ce/-^IKifa19pqU]V:>P^]q22_9(-ãU";\-BY9\F$nqwmpOIs:m7>I_T:0TBSDh?9vNtqW>S:e%fES%8yEGtmQuMB4Rg4%bãU"fHj_V;>-1EpNWhDG14Jnrfq\A0QP-hFU\V/TrrjG,Q.sbX5se2QA>:pGf6[3pjr#YNgvQfãU"(N:5#D_huY+4fgCOApwXO;Jk2vD&F[:qIfkA+Q3,mM5(LagNkJ%Xg*$\ji7S+^)ãU"UWq)+;'6s+)OI,7#asj6]ETJFCQ\uVDOhE__7cqR]BivH1CjY(pT#m3aLnlqLsD(I5bM%slkIfri*BcIyUCeãU"\w(go8[$o'lNkAOp]FP)r0]>mPf34eH*#MnwJmNM\>[uqE[7&_fU4Bh?:HHiBXRãU"AE4l$?12Cf($cqNDjciNNLg%jJWz\qvjt>$[$R,[wG?%'Q60=C#N#rY9jmE+eWlãU"mBVif:*2k])&#K?v:wcB?qH&O1tRgg%IT?8]a&ãU"eW0bv8IfSvZhUGLeXXGi\l9$+<'xM\Kg<>Y9U2CFGCAuWNb.gTWbxWQKo*QBMBmãU"zKj&v]w+e+Ob$Z,tsNWb1bTG^jZ^NSh]btU6m'a&*33rX9yMAHc:u&I\cLCLDfpãU"Fs3rc#6Dw#2S?FR#Ht,Q,W:)#BNCV]8d&#^JEP**s*3Q8fYvqE:Oa6+QZya4rkLãU"%SlLtzXrqpWtb'0RH10ChrO'x.06<1_aMwi$tD6h32_?W,ZggIBYpdKGcwNw?HuãU"$J\n$73u6t$cvmw3f7(bea?BSnfK=V=)?HbF=buahj('.AIncsc+UHU-3%W0?HJãU"ruWW2VP^WPk6Fn4)A+LYUBZ*V-0W7gjF6\i+kZi;^Im6$E.o97ScO:On19WJZ;nãU"$>X=Q;.Xsxt=m:gZjY3.ApS;3Wb'FTOBu<6AuNr>t1$Jsv$eGZLTQ#TZ&qXe,n9ãU"f6V_px?3CtWdEqZP=Z+/a_$$1rodLR#yhOX$xa[hC/oTcah+k1&MPzffXc97d#qãU"Lb'9HuE,(-HqMQFvKvWCpt]xS)V.jBPE*gA?'lKHRA=\gls(&dlKOIeOs9Vd7$<ãU"b5fK,Yegg^nR?BZNAm>:u0Kl1$?;S:S6B;WRz)ZtJj.=E\j+I9h;EOZH5KDtc,3Ut'yh#v1Bl=Vqtk.ZIxQ&0[ãU"ylXY,5F2(Q-%<.AN>g%_c%23:4X)1q\.O<##;OB&lCZz$.[cfq7HihradqO[MG&ãU"pvKtkU2D/*TM$b#]80493q..N?ql4mgaFEhW:CãU"FC>6A/^eV5WGMg;n8N6E(a_lE=TL]P*9Dz*[1zlT5ocEI7w-(uEIkc^]xy81Sq*atx?cneF:Xld\^]VuE)iGSzBh6%WpN/rUB4b1qlb;U7/Z:gkE6gJ5YUyWãU"vGLY'kx]:(o>T?]e$W*;Y-d97rE3F6I8.iCJ3Zb0(G&ISF/)ONa01a%iY0:\1GPãU"-^b)Hj,EKfnx*kH#47.'p77a'&nN=Y_(%IiDA1AZ1EY?NI)TZuDaA\'(gnHTxKtãU":+vmxvd0JKj9vS>mj3E^AcA*uXAQPMsjWm:P*:4l9/w/d8gHA\SC^b(QmlJL$^AA\SZxãU"J7fxy2/NXk3(0bP9N.31&DHWm0%0\l:]e7;^$aoRQ72pXKYn%OLIT'b+P>y-,u2ãU"V8Mxo+0OxQbOS4jNQaI-Z.p0?hJ0h\hQiPF8_.&4=,vI8Z;pW;N60D]n#qMIa:V8gbbgQ9OPãU"%0l29j\TFSUXKl/6,ãU"j12N:5\=.d6;+7C/^/JA_mWjCYHT<8sQU/9:4y>lL1I$7XfJ>Am8cAi7[v_QfS(ãU"05.G6^HxZhL?ZDB?g(>2s6Q%]Ibxz87/tK[tXg;5dnm9eTry=tZRAI1CXJHbk?nãU"0jU66Xlu1-#&U#MQDQPrGx>CAKN\;l/%4^)(xZ0A&X4n4&5OheuãU"=d*34v97MhVAhO<6;ãU"-b[Qko?'J>&X>Fr9B\ni38K60q2%g;2fxqhP[8LHB*8uxdQI*'D$m)Lbn(yNn=;ãU"CrM4j2u8%%rvT&A?FW:JOjn.[Obk2T0da8WytS7:N$*=V#ZLK+//I1+f3WsvdVPãU"t'D*,DRyEkH;+Z_&qsOF)EBI+A*3mW2&4[k2kjF#,>n_XV.Pt==5nfeXa_wZZ,cãU"lcKroQKHucnpp2XEFg]-go[mmB7I;85b.&MjzC(hLv:>8ln(C:VqK0x>OrlbO[HãU"-LRKb86a;+zNvNPqS5hXTI;L&W-'FT,q[aTF76KkQ>AN6g-g)cW0,fLkVW;'9IEãU"%*)DYVqwfJ]Hw[ãU"C=1nA3MwS'PSrjSjj,1g*CrZ=lN(Voa:2L?pEUn?V/7pFVNF0AA-w^6Kj6[>j=cãU"n:QpWk&9-W#6L=[FG_L5,QTy2E%PLDZHt-&0TLJ[0XuBh3juãU"kEH-HiV&%ll?E)AV<']qfl2oA\7tbk^X<3gQ8;tZlJX]OiJ\0xhmm0;/2?x%Uq[ãU"[10#$NaToPWicAG#T[)',*x&N.6w46<6$V?+WbT\W77N_Trj]9bmCteV7Lf.LD)ãU"tf*X:Z/r=s9ezD-0:[I<(B71kORdqNab1GaR9RQnXDQd$OuEWvRw^_8^4]WR+nxãU"73Zi<8S(x]dylxbXS)%/>='B\gtgA;.:Sg#Hrv2DeV26$**_c\s>vt7-WBlEQ[nn,r*fmãU"QW\'Z>E9,v#2lMuz*gCssQp%$+2,)AU9Jpw)P,OLãU"++%h(u$O.'.x$=uv4n.r,'XtzKv75lb]7lS$CeApJA)/kaJãU"hV&cEfYW+0l[^jV)ugb6e)fkqEX'o?DãU"ko&NYF_N9=c^r5U%UW/k_9^C6KVa9[XNYZ.+wap:&.vs1\$mvpN3ewrGsVXO>R_ãU"hl)tb7$-'JxRTLpK?%BLM'ZbVnR/t/c'RyoycHLs.k6[=eM[k9\P+DxN#=1dD[QãU"i8A=8tT>OnX/e71]03r'Jh%MmKY4GrKjBAN8k,dVllaslW%ISON%ZOgsS%)L'l^ãU"YkT7gFXA4b9vM*Dk4or;SMyR^=8o\Y>Va(XV%CGM6MR^+6tJ3db)e,D'Z4&3N6RãU"iXk&I1=Q%Nf=/#\V,Z.ahpmuIp.JFuwPY*pPKd)k.;7Cq^b;\AJB5'CWXE=UgqgãU"eUl_g+xkj8LER0P5ebji)DFeac]ff^U6Y9F-#^OcbR]OiJxF'u%o^NFuRwzZ3?QãU"Z+2_>Lj%.fu=m;GIT>ObgZ-vXp2B(V%Vd27j)chz3>.Cdf3XD4HonO/x3hTwI[FãU"W0m\IzQ:omhDR%&7sR>6[$Z_dwlvKbj8$*UV0,1;#dr%I[p$35o,sXT;1qihFYJãU"0^;$s+XeUH84DAo-]*bJ<0a[Q*vR5_$_sxHD%-w8cbpMc/%Ix4NsDxL=fqc3(S:ãU"T#=b)^YEX(R8\n+<\YUo^4'#7T74Gf,gF*GI?f]1&uW_FijoXbWb'%hwGphYs%KãU"2YhCVLZp*AF#>5bv;Glg*Jg8l5V4-5_9mWR3L1%'Hw_h#:_/c/pT-5^7U[tT)(ZãU"1u1&o?(Yz78)DwT(,>'b#pa(I^DLI6n&0=#WejgLj_X;z]rjN317(4gc1O&h],nãU"-SpfYVQ6sI7L==xS6XB3.JrW'gg=4G#:Idr5?7p+J]U)nKkSY)(u4kWu4msx1h3ãU"ToLazFDWjttZNv?VZ,;5_$3]\s7sPHJ:d15I8qK;&5xXpuf(b;i7;6>eUYNKON+ãU"OM3xRkSYX.\dMGisfMmuq)fdW.bRq;43?JRw.Cy_xSq7=ThPãU"Yes)CRfe5dxv5Lc9v/r&U\][#yHYl;Sao_MeDg[nVO+=cukYbAt-tneM']qh8YXãU"wbFv>b7QnwarmQx)k73T8SkAMqPNvw>I,YmZ%9wxQtL99g7(%44LA'>4r;f#I^2ãU"e<0(W0H8A-&w<:qdEU$5YSEU%VZDcv^#3TC98J>cT71jfi,P)Lo1z]7dhRN7GXxãU"g/ZU;EW#XT[/37FCZNFO'o's6mkEBi;OK3w?.Fue#=7UEa^\7L#i4P[RPPcXãU"*(ooOnpq'bbPrpSOJl26XC%3-cMCLm*p:L6N_S3XfPw]wN7ZZOEl6KY4)VpuUHKãU"cn.tCp7&UN=$id21K+^-U4UGDnBMWwmG]]TTnkk%fv?.kh4&Psah#eF_dVTd?0eãU"d+Ds/J&YR_7gPTkXVY$n_g0U69e?K/7#2D&78xg8>pH#G*%H'=tfI](Kd2rd=asvoldH[rbp?7%$AY&^5qY&^lãU"qc0sj=Hkm$7^D9+2X%brr11CZAK.kpa9']:ZfkZQBRz51J>XSq<*sx#7.gI_Cm=ãU"zyh%^=6OUiuH#fK*RGeX+mZ0MO[Jrlxq)oWSjeTyz5Vmfu$2mb3^]_HSGf[gv2*ãU"]N\I/(<,Zn7xkX#hi79E[o&nZ?p+Zqh3C?-lI1WF0K\k4aBhb]=iBHf\USRJP5<ãU"3URvbZIyGDQ%cn'wIXYZjSqiwcc78fst>HU.Z5F$?0ãU".s02Zh[mK60XEkQ)>xFq2a?,[D3kdK?OPrNx_zMoãU"cPypDvpdCkl\D=9wW+(%?^)n8nrWnFTmpdE,2=T>0#M31X:eMx(f6)T00XnjIu:ãU"[lki?l>q0$LSad+q687bJJs/.EM*mN^Iv1?TFCb9.#A,.WiAWY*u>m-mqo^]yECãU"O#vPbdi$xP#GQz)AObwP-\Uv1ki]?;$IoD-\9+zFp$F2mZ_]qaYq>8pIXOI8hayãU"p+J+qvuqiQs.'wZzu6+/H*ETpqdT1Vl_BeUT&a9=CpTVNbCLrt?sZ)Do2oKU:[eãU"u>voIjw944nx7ZR[;NW&U[SBkpoU*>Isd7c0fPNj&#ãU"33TvU8-$+vD,,mdoge)Ume/V.;:,X+]SzIXUfiRO\'F,vmisQ>Q#\P][fm_scC4ãU"P:-s,vmGqP6x1kF$Mqdm5j>7G1vP+Yx$N>53iFBih4za'eg6X\kMSt:ljM_3_C8ãU",TUwHnkQcxFbdA8X.lU9X[qzVãU"gAA67b>SY;W1[:awjHq,^sT.<_;XwG+BcB_zWkpx.WQ.ou\XiJhd0kD5p4CI_YRãU"5-iPp4U1-B4SfUMC&yyR-7CqEiWAwqaN87ZliUHWQPYS1kjy/Q*hkJ'?X[XVmBhãU"7U#fA$%zsBN%Nhw[mi.xS?F\vK0Yel(f:&M'WGV6Si#4SqT95%BcS_?n96j)APqãU"oXSSulC[gh&oCqC5/C*Cw8D=,JQzpQqB2&C8Ys8qD=r]/3+i)]baA*V[([D-/J;ãU"j8)RiBH]pB4o?$D;2$JYJ\Gze3aTSbeQQyeJn]I_DVbb+k)PcF,A7FWMS1d1/4ãU"W?^,;JWgSfgH2ovefCGFHF%AV.-=L-Lw?02qsA/'bcINKwWbN$-Z-c%nm.5KP<0ãU"J)RGnhWXd/Xl%Z,N3Q&2K+A1)tdfJkWVBRO'<$?17yr6*&FQ6oFt/G=jfB;D1rWãU"ittAS1vt[D.gSLMT?j3%Y8Ip#E#dHo9T'74vPmowb0J1w'mqT)LjSiB#rkfE<46ãU"7LB.)Nm0>21hv\#nNk>^rQR0?Frrs?tu[PJ1lxãU"5&AhOi#0^ShA3_iu]-#DnãU"cU,qkJ^nc(5u4K%zPa3JD=FlvNjbga4rl=iuXe]p^X34t=M0aBa>VMv1CnCNsHJãU"OXVv9hCnWx+#acZbrtie>.6tIc=2xoCvk$4V>5$YfJKzOJ7bC&J,_/wm$$-+Y<7cjXokbPX^l<9)2,gyTCflC4?GL$]vria5,$KT/%;iSIuNApEQ%+E;0JtoxIMI%yg+;q08Smz'Kk[hDxSu#ãU"DgkT3mdqE/nJ6oiX2&oup<1RtnE=(#TsfkxPH)c2P?p*2Mo$J[*v0=i4=JUB,\jãU"=#W8QuI[mL1Zxxep[9j;wvC9YL?\A[j4kY+2?D.bK2aj#ADk9Ohe2_&]4HrMtAlãU"=IHLjH+VkoO&&PRT;6XPPdRTd=[P[rBRpZjYdFTj2/xJ-W)*4yxpV99r$R1D&EBãU"^z:>YC&ch:KO7q7/N*6T&=S6uF6h1o1wG+b[r:%*ON?t(K1lzBn14;sWGveãU"LSU;RTOTfeB$GD\q/Hx(3b5KV,:m>Tk4l-%7?*[^kzKcf7%;j&O0?o]8]CH+Xq7ãU"r$&Lbkf4]UDB?/H3E2T)\tC5V1,8+&3I(O[dUs,Qdj[Q%ZJ\0Ft+lUe_'%expC6ãU"K=yT:9kV^>SZJhCY/goa06?1O2qu*eHiS:k/jN-*Rf]&mF)*4^R9V<0JA^L3qn4ãU"WNSmWG.C-^*Gv00%GHkcb+^G=dNhB5>]=#W;RG/h\3:7?j.HVqSqxxFx=ELrT+'ãU"d,E0SHo15^CKT*w/K4ElO]nQlZN(Ri]uM]kHaj>^Ba%&wuB<2*91YB_dnnP+HvFãU"h?(XXe95Mp9\/I'PxMo_.s2/:S>2wp8HOetL[0ncA-mKyMc>PiQXsbLSp]lV)Z4ãU"UH*F4%?4+'(+6BmGK41nsqGptM\^9lt$rBmP1t926_PtXTtE8baL%)Elon5H(JTãU"7/fihnlED%jOUaXv8wT)KB^xP,DJsW5a:.XCj2PsuWa;YXq;p<^d(y4BYC*4%>XãU"35O=k7)oSoPsCmKCtF0&-^'>9P%kP[%BNi,wIc2?e.-uJ?deBnaI%*<;A/hu(R?ãU"-SgiBUoJ.YEcK9/haiI21tpI:1IQ2P7+r=9.:Z%K1hHD:1IEL0Up$RZVM53017yãU"I2->> Page 1 of FRACTALU.ZIP ends here. Last page. TCHK:42ãRichard Kelly Graphics Tutor newson@37.com 11-01-01 ( : ) QB, Qbasic, PDS 439 23614 Texture.bas 'Tested to run in QB and FirstBASIC. It *should* run in PowerBASIC, too.ã'Written by Richard Kelly - Newson@37.comã'This is Public Domain.ã'Pre-release V0.89. Released on 12/13/2001ã'Category: Graphicsãã'This is basically an unfinished tutorial of how to make your graphics lookã'more professional. There are probably going to be five chapters in all *if*ã'I ever finish the thing.ãã'I have no idea whether this tutorial is any good, so please let me know.ãã'Please also let me know if there are any bugs in the code. There are no bugsã'I know of in this program, aside from *very* sloppy, redundant coding on myã'part. :-)ãã'I've only sent it to three people so far (the second person by accident).ãã'This was originally intended for a programmer who makes games for an 8-bitã'computer nicknamed the "CoCo 3". He wanted to see graphics for this 8-bitã'machine that were better than his. Who is this person? Well, his identityã'is for *him* to reveal to the public, not me. :-)ãã'Note to users: You can jump from one chapter to the next by pressing itsã'number. For example, press [2] to jump to Chapter Two. There are onlyã'three chapters right now.ããStart:ãRANDOMIZE TIMER: DIM L$(91): SCREEN 9, 0, 0, 0: COLOR 7, 0: T = 0: L$(0) = "BR0"ããLoop1:ãT = T + 1: READ L$(T): IF L$(T) <> "END" THEN GOTO Loop1ãGOTO Chap1ããMessage:ãHON = 0: FOR T = 1 TO LEN(A$): A = ASC(MID$(A$, T, 1)): A = A - 32: IF CSCR = 1 THEN CSCR = 0: CLS : Y = 0: X = 3ãIF MID$(A$, T, 1) = "[" THEN HON = 1ãIF HON THEN LINE (X - 1, Y - 1)-(X + 10, Y + 14), 7, BF: DRAW "BM" + STR$(X) + "," + STR$(Y) + ";C0;" + L$(A) ELSE DRAW "BM" + STR$(X) + "," + STR$(Y) + ";C7;" + L$(A)ãX = X + 12: IF X > 628 THEN X = 3: Y = Y + 18ãIF MID$(A$, T, 1) = "]" THEN HON = 0ãNEXT: RETURNããKRout:ãA$ = "Press [Esc] to end or any other key to continue.": Y = 335: GOSUB CenterãKLOOP:ãA$ = INKEY$: IF A$ = "" THEN GOTO KLOOP ELSE CSCR = 1: KA$ = A$: RETURNããCenter:ãX = 322: A = LEN(A$): A = A / 2: A = A * 12: X = X - A: IF CSCR = 1 THEN Y = 0: CLSãFOR T = 1 TO LEN(A$): A = ASC(MID$(A$, T, 1)): A = A - 32ãIF MID$(A$, T, 1) = "[" THEN HON = 1ãIF HON THEN LINE (X - 1, Y - 1)-(X + 10, Y + 14), 7, BF: DRAW "BM" + STR$(X) + "," + STR$(Y) + ";C0;" + L$(A) ELSE DRAW "BM" + STR$(X) + "," + STR$(Y) + ";C7;" + L$(A)ãX = X + 12: IF X > 628 THEN X = 3: Y = Y + 18ãIF MID$(A$, T, 1) = "]" THEN HON = 0ãNEXT: CSCR = 0: RETURNããChap1:ãA$ = "Welcome to Texture Tutor!": DRAW "C7": GOSUB CenterãX = 3: Y = 36: A$ = " This program will teach you how to improve the texture of the graphics you design. ": GOSUB MessageãA$ = "I took several sets of professionally designed graphics to examine carefully and ... through ": GOSUB MessageãA$ = "trial and error, eventuallyfigured out some of the ways of how the professionalsmade their graphics ": GOSUB MessageãA$ = "look as good as they did.": GOSUB Message: X = 3ãY = Y + 36: A$ = "The tutorial will be separated into three ^chapters^.References will be made to a number of PC ": GOSUB MessageãA$ = "games. Allgames are property of their respected publishers. Also, this ^tutorial^ has no warranty of any kind, ": GOSUB MessageãA$ = "and is hereby released to the Public Domain. This isversion 0.89.": GOSUB Message: GOSUB KRoutãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããA$ = "Chapter 1": GOSUB CenterãX = 3: Y = 36: A$ = " Let's say you have this friend named ^Juan Delson^ who's a graphics professional. He knows all the little tricks we'll discuss in this tutorial.": GOSUB MessageãY = Y + 36: X = 3: A$ = " Your first problem is smoothing the ^jagged edges^ of diagonal lines. Observe:": GOSUB MessageãSCREEN 9, 0, 1, 0: CLS : COLOR 7: X = 320: FOR Y = 160 TO 190 STEP 2: LINE (X, Y)-(330, Y + 1), 7, B: X = X - 1: NEXTãSCREEN 9, 0, 0, 0: GOSUB KRoutãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããSCREEN 9, 0, 1, 1: CSCR = 0: GOSUB KRout: SCREEN 9, 0, 0, 0ãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããA$ = " Juan Delson claims, ^Hey, I can fix that. No problem.^": GOSUB MessageãX = 3: Y = Y + 18: A$ = " You walk out of the room saying something like, ^Yeah, right. Whatever.^": GOSUB MessageãX = 3: Y = Y + 36: A$ = " Less than a minute later, you come back in the room. Juan's gone, but he left you with something onthe screen that caught your attention.": GOSUB MessageãSCREEN 9, 0, 1, 0: X = 319: FOR Y = 161 TO 191 STEP 2: PSET (X, Y), 8: X = X - 1: NEXTãSCREEN 9, 0, 0, 0: GOSUB KRoutãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããSCREEN 9, 0, 1, 1: CSCR = 0: GOSUB KRout: SCREEN 9, 0, 0, 0ãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããA$ = " How'd he do that? You tell a graphics utility to zoom in on the pixels. Here's what you discovered:": GOSUB MessageãSCREEN 9, 0, 1, 0: CLS : X = 300: FOR T = 75 TO 275 STEP 20: LINE (X, T)-(X + 8, T + 8), 8, BF: FOR XT = X TO 320 STEP 10ãLINE (XT + 10, T - 10)-(XT + 18, T - 2), 7, BF: LINE (XT + 10, T)-(XT + 18, T + 8), 7, BFãNEXT: X = X - 10: NEXT: SCREEN 9, 0, 0, 0: GOSUB KRoutãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããSCREEN 9, 0, 1, 1: CSCR = 0: GOSUB KRout: SCREEN 9, 0, 0, 0ãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããA$ = " Well ... YOU didn't add those little dark gray dots! You add these dots to another line which bendsevery FOUR pixels, like so:": GOSUB MessageãSCREEN 9, 0, 1, 0: X = 320: CLS : FOR Y = 111 TO 241 STEP 4: LINE (X, Y)-(330, Y + 3), 7, BF: X = X - 1: PSET (X, Y + 3), 8: NEXTãSCREEN 9, 0, 0, 0: GOSUB KRoutãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããSCREEN 9, 0, 1, 1: CSCR = 0: GOSUB KRout: SCREEN 9, 0, 0, 0ãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããA$ = " Oops. That doesn't quite work. Juan!!!": GOSUB MessageãSCREEN 9, 0, 1, 0: X = 320: FOR Y = 110 TO 240 STEP 4: X = X - 1: PSET (X, Y + 3), 8: NEXTãSCREEN 9, 0, 0, 0: GOSUB KRoutãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããSCREEN 9, 0, 1, 1: CSCR = 0: GOSUB KRout: SCREEN 9, 0, 0, 0ãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããA$ = " He says you needed TWO dark gray pixels added, not one. Like this:": GOSUB MessageãSCREEN 9, 0, 1, 0: CLS : X = 300: FOR T = 75 TO 275 STEP 40: LINE (X, T + 20)-(X + 8, T + 28), 8, BF: LINE (X, T + 10)-(X + 8, T + 18), 8, BF: FOR XT = X TO 320 STEP 10ãLINE (XT + 10, T - 10)-(XT + 18, T - 2), 7, BF: LINE (XT + 10, T)-(XT + 18, T + 8), 7, BF: LINE (XT + 10, T + 10)-(XT + 18, T + 18), 7, BF: LINE (XT + 10, T + 20)-(XT + 18, T + 28), 7, BFãNEXT: X = X - 10: NEXT: SCREEN 9, 0, 0, 0: GOSUB KRoutãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããSCREEN 9, 0, 1, 1: CSCR = 0: GOSUB KRout: SCREEN 9, 0, 0, 0ãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããA$ = " The ^dot amount^ will vary depending on how manypixels are drawn straight before the next ^bend^, he says.": GOSUB MessageãY = Y + 36: X = 3: A$ = " Now you ask him, ^Okay, how do you figure out the number of dark gray pixels, then?^ He jots down this equation:": GOSUB MessageãY = Y + 36: X = 3: A$ = "^X^ is number of pixels before the next bend.": GOSUB Message: X = 3ãY = Y + 36: A$ = "Divide X by two Add 0.5 to X": GOSUB MessageãY = Y + 18: X = 3: A$ = "Make X an integer (example is 6.5 equals 6).": GOSUB Message: GOSUB KRoutãA$ = " Juan continues by saying, ^Of course, when you make graphics, you'll deal with more than just black and white images. Since the background is black and ": GOSUB MessageãA$ = "the image light gray, I colored the dots dark gray because that was the shade of color in between the two. So, if it was a red object on a white ": GOSUB MessageãA$ = "background, you'd use a light red for the dot color. If your graphics mode doesn't support the color you're wanting, a shade of gray might do the trick. ": GOSUB MessageãA$ = "Adrian Carmack used this little 'gray dot trick' withsome images in Wolfenstein 3-D.^": GOSUB Message: GOSUB KRoutãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããChap2:ãA$ = "Chapter 2": GOSUB CenterãX = 3: Y = 36: A$ = " You've drawn this box, but you need to color it now. Right now, it looks like this:": GOSUB MessageãSCREEN 9, 0, 1, 0: CLSãLINE (310, 165)-(329, 179), 7, B: LINE (307, 162)-(332, 182), 7, BãLINE (308, 163)-(309, 164), 7: LINE (330, 164)-(331, 163), 7: LINE (309, 180)-(308, 181), 7: LINE (330, 180)-(331, 181), 7ãSCREEN 9, 0, 0, 0: GOSUB KRoutãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããSCREEN 9, 0, 1, 1: CSCR = 0: GOSUB KRout: SCREEN 9, 0, 0, 0ãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããA$ = " You first try filling it in with a lighter color, but it doesn't quite look right:": GOSUB MessageãSCREEN 9, 0, 1, 0: CLSãLINE (310, 165)-(329, 179), 8, B: LINE (307, 162)-(332, 182), 8, B: PAINT (308, 163), 7, 8: LINE (311, 166)-(328, 178), 7, BFãLINE (308, 163)-(309, 164), 8: LINE (330, 164)-(331, 163), 8: LINE (309, 180)-(308, 181), 8: LINE (330, 180)-(331, 181), 8ãSCREEN 9, 0, 0, 0: GOSUB KRoutãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããSCREEN 9, 0, 1, 1: CSCR = 0: GOSUB KRout: SCREEN 9, 0, 0, 0ãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããA$ = " Filling it in with a darker color doesn't seem to work either:": GOSUB MessageãSCREEN 9, 0, 1, 0: CLSãLINE (310, 165)-(329, 179), 15, B: LINE (307, 162)-(332, 182), 15, B: PAINT (308, 163), 8, 15: LINE (311, 166)-(328, 178), 8, BFãLINE (310, 165)-(329, 179), 7, B: LINE (307, 162)-(332, 182), 7, BãLINE (308, 163)-(309, 164), 7: LINE (330, 164)-(331, 163), 7: LINE (309, 180)-(308, 181), 7: LINE (330, 180)-(331, 181), 7ãSCREEN 9, 0, 0, 0: GOSUB KRoutãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããSCREEN 9, 0, 1, 1: CSCR = 0: GOSUB KRout: SCREEN 9, 0, 0, 0ãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããA$ = " You say to Juan, ^This is driving me nuts, man. Take a look at that. I can't even make a simple box": GOSUB Message: X = 3: Y = Y + 18ãA$ = "look professional. Instead, it looks like something out of a coloring book. It's ticking me off.^": GOSUB Message: X = 3: Y = Y + 16ãA$ = " ^Okay,^ he says. ^I can handle it. Do you mind if I erase the lines in the process?^": GOSUB Message: X = 3: Y = Y + 16ãA$ = " ^Yes, fine! I just need a break from it, okay? I need half an hour of rest and half a bag of chocolate chips.^": GOSUB Message: X = 3: Y = Y + 16ãA$ = " After you've ... ahem ... simmered down, you come back in the room and see the fix:": GOSUB MessageãSCREEN 9, 0, 1, 0: CLSãA = 307: B = 162: C = 332: D = 182ãFOR T = 1 TO 3: LINE (A, B)-(C, D), 15, B: LINE (A + 1, B + 1)-(C, D), 8, B: A = A + 1: B = B + 1: C = C - 1: D = D - 1: NEXTãLINE (A, B)-(C, D), 7, BFãSCREEN 9, 0, 0, 0: GOSUB KRoutãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããSCREEN 9, 0, 1, 1: CSCR = 0: GOSUB KRout: SCREEN 9, 0, 0, 0: COLOR 7: X = 3: Y = 0ãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããA$ = " Juan then says, ^I shade the areas according to the area of the picture that the source of light is": GOSUB Message: X = 3: Y = Y + 16ãA$ = "coming from. I prefer having the source of light come from the Top Left of the picture. The part of": GOSUB Message: X = 3: Y = Y + 16ãA$ = "the object that's pointed directly at the source of light is shaded the brightest, which is the box's top": GOSUB MessageãA$ = "left areas. The part of the object shaded the darkest is always pointed directly AWAY from the": GOSUB Message: X = 3: Y = Y + 16ãA$ = "light source. In this case, it was the bottom right areas of the box that were pointed most indirectly": GOSUB Message: X = 3: Y = Y + 16ãA$ = "from the source of light. Take a look at it again:^": GOSUB Message: GOSUB KRout: CLSãSCREEN 9, 0, 1, 1: CSCR = 0: GOSUB KRout: SCREEN 9, 0, 0, 0ãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããChap3:ãA$ = "Chapter 3": GOSUB CenterãX = 3: Y = 36: A$ = " You've enlarged the box, and given it a little more color. Now you want to give the box a ^rough^ texture. Here's what it looks like now:": GOSUB MessageããSCREEN 9, 0, 1, 0: CLSãA = 287: B = 152: C = 352: D = 212ãFOR T = 0 TO 4: LINE (A, B)-(C, D), 11, B: LINE (A + 1, B + 1)-(C, D), 9, B: A = A + 1: B = B + 1: C = C - 1: D = D - 1: NEXTãLINE (A, B)-(C, D), 7, BFãSCREEN 9, 0, 0, 0: GOSUB KRoutãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããCLS : SCREEN 9, 0, 1, 1: CSCR = 0: GOSUB KRout: SCREEN 9, 0, 0, 0: COLOR 7: X = 3: Y = 0ãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããA$ = "You try adding dots to it.": A = 287 + 5: B = 152 + 5: C = 352 - 5: D = 212 - 5: E = C - A: F = D - B: X = 3: Y = 0ãSCREEN 9, 0, 1, 0: FOR G = A + 2 TO C - 1 STEP 3: FOR H = B + 2 TO D - 1 STEP 3: PSET (G, H), 15: NEXT H, GãSCREEN 9, 0, 0, 0: GOSUB Message: GOSUB KRoutãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããCLS : SCREEN 9, 0, 1, 1: CSCR = 0: GOSUB KRout: SCREEN 9, 0, 0, 0: COLOR 7: X = 3: Y = 0ãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããA$ = "That doesn't quite do the trick. What about changingthe color?": A = 287 + 5: B = 152 + 5: C = 352 - 5: D = 212 - 5: E = C - A: F = D - B: X = 3: Y = 0ãSCREEN 9, 0, 1, 0: FOR G = A + 2 TO C - 1 STEP 3: FOR H = B + 2 TO D - 1 STEP 3: PSET (G, H), 8: NEXT H, GãSCREEN 9, 0, 0, 0: GOSUB Message: GOSUB KRoutãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããCLS : SCREEN 9, 0, 1, 1: CSCR = 0: GOSUB KRout: SCREEN 9, 0, 0, 0: COLOR 7: X = 3: Y = 0ãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããA$ = "Suppose we had both colors of dots and put them closer together ...": A = 287 + 5: B = 152 + 5: C = 352 - 5: D = 212 - 5: E = C - A: F = D - B: X = 3: Y = 0ãSCREEN 9, 0, 1, 0: LINE (A, B)-(C, D), 7, BF: FOR G = A TO C STEP 2: FOR H = B TO D STEP 2: PSET (G, H), 8: PSET (G + 1, H + 1), 15: NEXT H, GãSCREEN 9, 0, 0, 0: GOSUB Message: GOSUB KRoutãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããCLS : SCREEN 9, 0, 1, 1: CSCR = 0: GOSUB KRout: SCREEN 9, 0, 0, 0: COLOR 7: X = 3: Y = 0ãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããA$ = "Dang it, the pros always make it look so easy. I'd like to see Juan solve THIS problem.": A = 287 + 5: B = 152 + 5: C = 352 - 5: D = 212 - 5: E = C - A: F = D - B: X = 3: Y = 0ãSCREEN 9, 0, 1, 0: LINE (A, B)-(C, D), 7, BF: FOR T = 1 TO 50: G = INT(RND * (E - 6)) + A: H = INT(RND * (F - 6)) + B: I = 8: IF RND < .5 THEN I = 15ãLINE (G, H)-(G + 1, H + 1), I, B: NEXT TãFOR G = A + 1 TO C - 1: FOR H = B + 1 TO D - 1: I = INT(RND * 5): IF I > 1 THEN I = 7ãIF I = 0 THEN I = 8 ELSE IF I = 1 THEN I = 15ãIF I = 8 OR I = 15 THEN PSET (G, H), IãNEXT H, GãSCREEN 9, 0, 0, 0: GOSUB Message: GOSUB KRoutãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããCLS : SCREEN 9, 0, 1, 1: CSCR = 0: GOSUB KRout: SCREEN 9, 0, 0, 0: COLOR 7: X = 3: Y = 0ãIF KA$ = "1" THEN GOTO Chap1ãIF KA$ = "2" THEN GOTO Chap2ãIF KA$ = "3" THEN GOTO Chap3ãIF KA$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: COLOR 7, 0: END: RUNããA$ = "Juan says, ^Let's say that the color of the middle ofthe box is called the ^Base Color^. Now let's say": Y = 0: X = 3: GOSUB Message: Y = Y + 18: X = 3ãA$ = "^Dot 1^ is a little bit lighter than the Base Color, and ^Dot 2^ is a little bit darker. Remember, DON'T": GOSUB Message: Y = Y + 18: X = 3ãA$ = "follow a pattern when placing the dots, just put the dots in random places, using the colors Dot 1 and 2.": GOSUB Message: Y = Y + 18: X = 3ãA$ = "Also, precede the dots with randomly placed 2x2 boxesin the ^Dot 1^ or ^Dot 2^ colors.": GOSUB Message: CSCR = 0: GOSUB KRoutããã300 DATA"BR2R5F1L7G1R9D1L9D1R9G1L7D1R7G1L5D1R5G1L3;BD3;R3D1L3"ã310 DATA"BR0"ã320 DATA"BD4;R9D1L9;BD3;R9D1L9R2D2U9R1D9;BR3;U9R1D9"ã330 DATA"BR0"ã340 DATA"BR0"ã350 DATA"BR0"ã360 DATA"BR4;R3D1L3D1R3D1L3D1R2L1D1L2D1L1"ã370 DATA"BR6;G2D9F2R3U1L3U1L1U9R1U1R3U1L3"ã380 DATA"D1R3D1R1D9L1D1L3D1R3E2U9H2L2"ã390 DATA"BR0"ã400 DATA"BD6;R4U4R1D4R4D1L4D4L1U4L4"ã410 DATA"BD13BR5;U1L1D2L2"ã420 DATA"BD6BR1;R7D1L7"ã430 DATA"BD12BR4;D1R1U1"ã440 DATA"BR0"ã450 DATA"BR2;G2D9F2R5E2U9H2L5D1L1D1D9R1D1R5U1R1U9L1U1L5D1"ã460 DATA"BR5;D12R4D1L9U1R4U12G2R1D1L2"ã470 DATA"BD2;D1R1U2F1U2R5F2D3G7R7D1L9U1R1U1R1U1R1U1R1U1R1U1R1U1R1U1R1U3L1U1L4"ã480 DATA"BD2;D1R1U2F1U2R5F2D3G1D1F1D3G2L5H2U1R1D1R1D1R1R4U1R1U3L1U1L4U1R4U1R1U3L1U1L4"ã490 DATA"BR1;D2G1D4R6D6R1U6R2U1L2U6L1D6L5U3E1U2"ã500 DATA"R9D1L8D5R6F2D3G2L5H2U1R1D1R1D1R5U1R1U3L1U1L7U6"ã510 DATA"BR2;G2D9F2R5E2U3H2L5D1R5D1R1D3L1D1L5U1L1U9R1U1R4F2R1U1L1U1L1U1L4"ã520 DATA"R9D4G8D1L1U2R1U1R1U1R1U1R1U1R1U1R1U1R1U1R1U3L8"ã530 DATA"BD2;D3F1D1G1D3F2R5E2U3H1U1E1U3H2L5G1D4R1D3L1D3R1D1R5U1R1U3L1U1L4U1R4U1R1U3L1U1L5D1"ã540 DATA"BR2;R5F2D9G2L5H2U1R1D1R1D1R5U1R1U4L6H2U3E1R6D1R1D4L6U1L1U3R1"ã550 DATA"BD3BR4;R1D1L1;BD5;R1D1L1"ã560 DATA"BD3BR4;R1D1L1;BD5;R1D1L1D1L2"ã570 DATA"BD6;D1F1U3E1D5F1U7D3R6D1L5"ã580 DATA"BD4BR1;R7D1L7;BD3;R7D1L7"ã590 DATA"BD7;NR5;U1R6U3D7E1U5F1D3E1U1"ã600 DATA"BD2D1R1U1R1U1R5D1R1D3L1D1L3D3;BD3;D1R1U1;BU3;U2R2E2U3H2L5G1"ã610 DATA"BD7;D1F1R1G1R2G1D1E2D1G1R1G1E1U1R1U3F1D1U2D1L2R2U1L1R2U1G1U1D1R1U1R1U1L1U1R1U2D1R1U4"ã620 DATA"BD2;ND11;E2R5F2D11L1U6L7D6U11R1U1R5D1R1D4L6"ã630 DATA"D13R7E2U3H1U1E1U3H2L6D12R6U1R1U3L1U1L5U1R5U1R1U3L1U1L5"ã640 DATA"BR2;NR5;G2D9F2R5E2U1L1D1L1D1L5U1L1U9R1U1R5D1R1D1R1U1L1U1"ã650 DATA"D13R7E2U9H2L6D12R6U1R1U9L1U1L5"ã660 DATA"D13R9U1L8U5R4U1L4U5R8U1L8"ã670 DATA"D13R1U6R4U1L4U5R8U1L8"ã680 DATA"BR2;NR5;G2D9F2R5E2U1L1D1L1D1L5U1L1U9R1U1R5D1R1D1R1U1L1U1;BD11;U5L3U1R4D5"ã690 DATA"D13R1U6R7D6R1U13L1D6L7U6"ã700 DATA"R9D1L4D11R4D1L9U1R4U11L4"ã710 DATA"BD10;D1F2R5E2U11L1D11L1D1L5U1L1U2L1"ã720 DATA"D13R1U7F7R1U1L1U1L1U1L1U1L1U1L1U1L1U1R1U1R1U1R1U1R1U1R1U1R1U1L1G7U7"ã730 DATA"D13R9U1L8U12"ã740 DATA"ND13;R1F3R1E3R1D13L1U12D1L1D1L1D1L1D1L1U1L1U1L1U1L1U1D12"ã750 DATA"D13R1U13D2F6D1H5D1F6D2U13R1D13"ã760 DATA"BR2;G2D9F2R5E2U9H2L5D1L1D1D9R1D1R5U1R1U9L1U1L5D1"ã770 DATA"D13R1U6R6E2U3H2L6D6R6U1R1U3L1U1L5"ã780 DATA"BR2;G2D9F2R5E2U9H2L5D1L1D10R1D1R5U1R1U9L1U1L5D1;BD6BR2;R1G1R2G1R2G1R2G1R2G1R1"ã790 DATA"D13R1U6R6E2U3H2L6D6R6U1R1U3L1U1L5;BD6;R2G1R2G1R2G1R2G1R2G1R2D1L1"ã800 DATA"BR2;NR5;G2D3F2R4F2D1G2L3H2L1D1R1D1R1D1R5U1R1U1R1U3L1U1L1U1L5U1L1U3R1U1R4F2R1U1L1U1L1"ã810 DATA"R9D1L4D12L1U12L4"ã820 DATA"D11F2R5E2U11L1D11L1D1L5U1L1U11"ã830 DATA"D9F4R1E4U9L1D9L1D1L1D1L1D1L1U1L1U1L1U1L1U9"ã840 DATA"D13R1E3R1F3R1U13L1D12U1L1U1L1U1L1U1L1D1L1D1L1D1L1D1U12"ã850 DATA"NR1;D1R1D1L1D1R2G1R2G1R2G1R2G1R2G1R2G1R2G1R2G1R1D2L1U1;BL7;D1L1U2R1E1L2E1R2H1R2H1R2H1R2H1R2H1R2H1R2H1R1U2L1D1"ã860 DATA"D5F2R2D6R1U6R2E2U5L1D5L1D1L5U1L1U5"ã870 DATA"R9D1;NL9;L1D1G8D3R9U1L8U1E8U1G8"ã880 DATA"BR0"ã890 DATA"BR0"ã900 DATA"BR0"ã910 DATA"BR1;D3F1U4R1D5;BR3U5R1D4E1U3"ã920 DATA"BR0"ã930 DATA"BR0"ã940 DATA"BD6;ND7;E2R5F2D7L1U4L7D4U7R1U1R5D1R1D4L6"ã950 DATA"BD4;D9R7E2U1H1U1E1U1H2L6D8R6U1R1U1L1U1L5U1R5U1R1U1L1U1L5"ã960 DATA"BD4BR2;NR5;G2D5F2R5E2U1L1D1L1D1L5U1L1U5R1U1R5D1R1D1R1U1L1U1"ã970 DATA"BD4;D9R7E2U5H2L6D8R6U1R1U5L1U1L5"ã980 DATA"BD4;D9R9U1L8U3R4U1L4U3R8U1L8"ã990 DATA"BD4;D9R1U4R4U1L4U3R8U1L8"ã1000 DATA"BD4;BR2;NR5;G2D5F2R5E2U1L1D1L1D1L5U1L1U5R1U1R7L1U1;BD6;U1L3U1R4D2"ã1010 DATA"BD4;D9R1U4R7D4R1U9L1D4L7U4"ã1020 DATA"BD4;R9D1L4D7R4D1L9U1R4U7L4"ã1030 DATA"BD10;D1F2R5E2U7L1D7L1D1L5U1L1U1"ã1040 DATA"BD4;D9R1U5R2F5R1U1L1U1L1U1L1U1L1U1R1U1R1U1R1U1R1U1L1G5L2U5"ã1050 DATA"BD4;D9R9U1L8U8"ã1060 DATA"BD4;ND9;R1F3R1E3R1D9L1U8D1L1D1L1D1L1D1L1U1L1U1L1U1L1U1D8"ã1070 DATA"BD4;D9R1U9F6D1H5D1F6U9R1D9"ã1080 DATA"BD4BR2;G2D5F2R5E2U5H2L5D1L1D1D5R1D1R5U1R1U5L1U1L5D1"ã1090 DATA"BD4;D9R1U4R6E2U1H2L6D4R6U1R1U1L1U1L5"ã1100 DATA"BD4BR2;G2D5F2R5E2U5H2L5D1L1D6R1D1R5U1R1U5L1U1L5D1;BD2BR2;R1G1R2G1R2G1R2G1R2G1R1"ã1110 DATA"BD4;D9R1U4R6E2U1H2L6D4R6U1R1U1L1U1L5;BD4BR2;R2G1R2G1R2G1R2D1L1"ã1120 DATA"BD4BR2;NR6;D1L1D1L1D1R1D1R1D1R5D1R1D1L1D1L7F1R6E2U1H2L5U3R7"ã1130 DATA"BD4;R9D1L4D8L1U8L4"ã1140 DATA"BD4;D7F2R5E2U7L1D7L1D1L5U1L1U7"ã1150 DATA"BD4;D5F4R1E4U5L1D5L1D1L1D1L1D1L1U1L1U1L1U1L1U5"ã1160 DATA"BD4;D9R1E3R1F3R1U9L1D8U1L1U1L1U1L1U1L1D1L1D1L1D1L1D1U8"ã1170 DATA"BD4;NR1;D1R2G1R2G1R2G1R2G1R2G1R2G1R2G1R2G1R1L1U1;BL7;D1L1R1E1L2E1R2H1R2H1R2H1R2H1R2H1R2H1R2H1R1L1D1"ã1180 DATA"BD4;D3F2R2D4R1U4R2E2U3L1D3L1D1L5U1L1U3"ã1190 DATA"BD4;R9D1G7R7D1L9U1E7;NL7;R1G7"ã1200 DATA"END"ãã8999 END: RUNããGerald L. Wykoff Relative Value Histogram wykoff@mbawiz.com 10-01-01 ( : ) QB, Qbasic, PDS 137 3295 X15val.bas ' Subject: Graphic, 15 Components Date: 10-1-01 ã' Author: Gerald L. Wykoff Code: QB, QBasicã' Origin: wykoff@mbawiz.comãDECLARE SUB graph ()ãSCREEN 9ãCOLOR 14, 8ãLINE (5, 5)-(630, 5), 12ãLINE -(630, 338), 12ãLINE -(5, 338), 12ãLINE -(5, 5), 12ãLINE (4, 4)-(631, 4), 3ãLINE -(631, 339), 3ãLINE -(4, 339), 3ãLINE -(4, 4), 3ã25ã REM PROGRAM 8.1ã REM Graphã CLSã SCREEN 9ã COLOR 14, 1ã PRINTã PRINTã PRINTã PRINT " HISTOGRAM CHART"ã COLOR 11ã PRINT " (c) 2000 Gerald L. Wykoff . . .written for www.mbawiz.com"ã PRINTã PRINTã COLOR 15ã PRINT " This Program Draws a Relative Value Histrogram"ã PRINTã COLOR 14ã PRINT " It will accept data up to 15 values"ã PRINT " If you have fewer values, finish the routine with zeroes"ã PRINTã PRINT " Note: The chart features a relative display of the data"ã PRINT " between the lowest and highest value."ã PRINTã PRINTã PRINTã PRINTã COLOR 11ã PRINT " Tap Any Key to Continue"ã DO WHILE INKEY$ = ""ã LOOPã 'ã ' call subprogramã 'ã SCREEN 1ã CALL graphã LOCATE 22, 10ã INPUT " (1) Repeat, or (2) Quit "; ask7$ã IF ask7$ = "1" THEN GOTO 25 ELSE GOTO 1200ã1200ãã ENDãã SUB graphã SCREEN 9ã ' declare arraysã 'ã DIM GOODS(15), NORM(15)ã 'ã ' assign values to the GOODS arrayã 'ã PRINTã PRINTã PRINTã PRINTã PRINTã COLOR 14ã i = 1ã FOR NUMBER.OF.ELEMENT = 1 TO 15ã PRINT iã INPUT " Type in the Value "; GOODS(NUMBER.OF.ELEMENT)ã i = i + 1ã NEXT NUMBER.OF.ELEMENTã CLSã SCREEN 1ã 'ã ' define the horizontal position of the graphã 'ã XPOS% = 50ã LINE (40, 120)-(230, 120), 14ã ' define the vertical position of the graphã 'ã YPOS% = 120ã LINE (40, 25)-(40, 120), 14ã ' define the color of the graphã 'ã COL.GRAPH% = 2ã 'ã ' declare NORMA% - the maximum height of the graphã 'ã NORMA% = 100ã 'ã ' select max valueã 'ã PMAX = GOODS(1)ã FOR DAY% = 2 TO 15ã IF GOODS(DAY%) > PMAX THENã PMAX = GOODS(DAY%)ã END IFã NEXT DAY%ã 'ã ' draw horizontal lineã 'ã LINE (XPOS%, YPOS%)-(XPOS% + 150, YPOS%), COL.GRAPH%ã 'ã ' normalise values to 100ã ' draw graphã 'ã FOR DAY% = 1 TO 15ã NORM(DAY%) = GOODS(DAY%) / PMAX * NORMA%ã ZPOS% = XPOS% + 10 * (DAY% - 1)ã LINE (ZPOS%, YPOS%)-(ZPOS% + 7, YPOS% - NORM(DAY%)), COL.GRAPH%, BFã NEXT DAY%ã LOCATE 17, 7ãPRINT "0.................15"ãLOCATE 3, 3ãPRINT "HI"ãPRINT " |"ãPRINT " |"ãPRINT " |"ãPRINT " |"ãPRINT " |"ãPRINT " |"ãPRINT " |"ãPRINT " |"ãPRINT " |"ãPRINT " |"ãPRINT " |"ãLOCATE 15, 4ãPRINT "LO"ãã END SUBããGerald L. Wykoff 6-Value Relative Graph wykoff@mbawiz.com 10-01-01 ( : ) QB, Qbasic, PDS 150 3363 X6val.bas ' Subject:6-Value Relative Graphic Date: 10-1-01 ã' Author: Gerald L. Wykoff Code: QB, QBasicã' Origin: wykoff@mbawiz.comDECLARE SUB GRAPH ()ãCLSãSCREEN 9ãCOLOR 14, 9ãLINE (5, 5)-(630, 5), 12ãLINE -(630, 338), 12ãLINE -(5, 338), 12ãLINE -(5, 5), 12ãLINE (4, 4)-(631, 4), 3ãLINE -(631, 339), 3ãLINE -(4, 339), 3ãLINE -(4, 4), 3ã25ã REM PROGRAM 8.1ã REM Graphã CLSã DIM dd(6)ã DEFLNG A-Zã 'LOCATE 13, 35ã SCREEN 9ã PRINTã PRINTã PRINTã PRINTã COLOR 14, 1ã PRINT " 6-VALUE HISTOGRAM"ã COLOR 11ã PRINT " (c) 2000 Gerald L. Wykoff . . .written for www.mbawiz.com"ã PRINTã COLOR 14ã PRINTã PRINT " This short utility will accommodate 6 entries"ã PRINT " for a quick display of relative values. Since"ã PRINT " the display is relative, it will accept pretty"ã PRINT " much any numbers from high to low."ã PRINTã PRINTã COLOR 15ã PRINT " Tap Any Key to Continue"ã DO WHILE INKEY$ = ""ã LOOPã CLSã SCREEN 1ã ' call subprogramã 'ã CALL GRAPHãLOCATE 21, 3ãINPUT "(1) Repeat, or (2) Quit (1 or 2) "; ask3$ãIF ask3$ = "1" THEN GOTO 25 ELSE GOTO 1200ã1200ãENDããDEFSNG A-Zã SUB GRAPHã 'ã ' declare arraysã 'ã DIM GOODS(6), NORM(6)ã 'ã ' assign values to the GOODS arrayã SCREEN 9ã PRINTã PRINTã PRINTã PRINTã i = 1ã FOR NUMBER.OF.ELEMENT = 1 TO 6 '15ã INPUT " Enter a Value"; GOODS(NUMBER.OF.ELEMENT) '"TYPE VALUE"ã i = i + 1ã NEXT NUMBER.OF.ELEMENTã SCREEN 1ã CLSã 'ã ' define the horizontal position of the graphã 'ã XPOS% = 100 '50ã 'ã ' define the vertical position of the graphã 'ã YPOS% = 120ã 'ã ' define the color of the graphã 'ã COL.GRAPH% = 2ã 'ã ' declare NORMA% - the maximum height of the graphã 'ã NORMA% = 100ã 'ã ' select max valueã 'ã PMAX = GOODS(1)ã FOR DAY% = 2 TO 6ã IF GOODS(DAY%) > PMAX THENã PMAX = GOODS(DAY%)ã END IFã NEXT DAY%ã 'ã ' draw horizontal lineã LINE (XPOS%, YPOS%)-(XPOS% + 75, YPOS%), COL.GRAPH% '150ã 'ã ' this is the average line, on Y row 120ã LINE (100, 122)-(175, 122), 11ã LINE (98, 35)-(98, 122), 11ã 'ã ' normalise values to 100ã ' draw graphãã 'ã FOR DAY% = 1 TO 6ã NORM(DAY%) = GOODS(DAY%) / PMAX * NORMA%ã ZPOS% = XPOS% + 10 * (DAY% - 1)ã LINE (ZPOS%, YPOS%)-(ZPOS% + 7, YPOS% - NORM(DAY%)), COL.GRAPH%, BFã NEXT DAY%ãLOCATE 3, 10ãPRINT "HI"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "|"ãLOCATE , 10ãPRINT "lO"ãLOCATE 17, 13ãCOLOR 1ãPRINT "1......6"ãã END SUBããGerald L. Wykoff Normal Chart wykoff@mbawiz.com 10-01-01 ( : ) QB, Qbasic, PDS 85 3009 Xcogart.bas ' Subject: Date: 10-1-01 ã' Author: Gerald L. Wykoff Code: QB, QBasicã' Origin: wykoff@mbawiz.comCLSãREM This program draws a normal chart graphic that willãREM accommodate various numerical entries for display.ãSCREEN 9ãCOLOR 10, 9ãSCREEN 9ãLINE (5, 5)-(630, 5), 12ãLINE -(630, 338), 12ãLINE -(5, 338), 12ãLINE -(5, 5), 12ãLINE (4, 4)-(631, 4), 3ãLINE -(631, 339), 3ãLINE -(4, 339), 3ãLINE -(4, 4), 3ãPRINTãCLSãPRINTãSCREEN 9ãCOLOR 10, 8ã'ãLINE (175, 290)-(515, 290), 11 ' main horizontal line color 10ãLINE (175, 290)-(175, 38), 11 ' main vertical line color 10ã ' x = left to right y = up and downãCOLOR 15ã' spaceãLINE (210, 290)-(210, 38), 15 '1ãLINE (245, 290)-(245, 38), 15 '2 vertical lines are 35 separated, tooãLINE (280, 290)-(280, 38), 15 '3ãLINE (315, 290)-(315, 38), 15 '4ãLINE (345, 290)-(345, 38), 15 '5ãLINE (380, 290)-(380, 38), 15 '6ãLINE (415, 290)-(415, 38), 15 '7ãLINE (450, 290)-(450, 38), 15 '9ãLINE (485, 290)-(485, 38), 15 '9ãLINE (515, 290)-(515, 38), 15 '10ã'ãCOLOR 15ãLOCATE 22, 10ãPRINT TAB(23); "0"; TAB(27); "1"; TAB(31); "2"; TAB(35); "3"; TAB(40); "4"; TAB(44); "5"; TAB(49); "6"; TAB(53); "7"; TAB(57); "8"; TAB(61); "9"; TAB(64); "10"ã'LOCATE 21, 19: PRINT "0"ãLOCATE 20, 19: PRINT "1"ãLOCATE 18, 19: PRINT "2"ãLOCATE 16, 19: PRINT "3"ãLOCATE 14, 19: PRINT "4"ãLOCATE 12, 19: PRINT "5"ãLOCATE 10, 19: PRINT "6"ãLOCATE 9, 19: PRINT "7"ãLOCATE 7, 19: PRINT "8"ãLOCATE 5, 19: PRINT "9"ãLOCATE 3, 19: PRINT "10"ãCOLOR 14ãLOCATE 24, 37: PRINT "EAST-WEST (in 00's)"ãLOCATE 11, 4: PRINT "NORTH-"ãLOCATE 12, 4: PRINT "SOUTH"ãLOCATE 13, 4: PRINT "(in 00's)"ã ' these are test lines on horizontalã' LINES ARE X,Y X-LEFT TO RIGHT Y-TOP TO BOTTOMã' y axisãLINE (175, 250)-(515, 250), 15ãLINE (175, 225)-(515, 225), 15ãLINE (175, 200)-(515, 200), 15 'HORIZONTAL LINES HAVE 30 SEPARATIONSãLINE (175, 175)-(515, 175), 15ãLINE (175, 150)-(515, 150), 15 ' THUS ALL NUMBERS ARE TIMES .28ãLINE (175, 125)-(515, 125), 15 ' AND ARE 251 + (X * .28)ãLINE (175, 100)-(515, 100), 15 ' 600 BECAUSE 251 = ZERO (0) BASE LINEãLINE (175, 75)-(515, 75), 15 '700ãLINE (175, 50)-(515, 50), 15 '800ãLINE (175, 25)-(515, 25), 15 '900ãã'init will be : input (251 + )ã'inititial value line isã'LINE (180, 25)-(500, 25), 10ã' current (NOW) value line is (180,init)-(ããã' this bar chart is set up this wayã ' vertical lines are 24 apart at .24,starting at 180ã ' horizotal lines are 28 separates at .28, starting at 251ã ' thus the 100 vallue for vertical lines is .24+ 180ã ' and the 100 value for horizontal lines is .28 - 251(btoom line)ã 'to position '328" on a horizontal line would be 328*.24 -251ã COLOR 14ããGerald L. Wykoff Ogive Chart wykoff@mbawiz.com 10-01-01 ( : ) QB, Qbasic, PDS 188 5909 Xolgivx.bas ' Subject: Ogive Chart Graphic Date: 10-1-01 ã' Author: Gerald L. Wykoff Code: QB, QBasicã' Origin: wykoff@mbawiz.comDECLARE SUB greenbox ()ãCOMMON SHARED il!, sum, namer$ãCOMMON SHARED vera, ver1, ver2, ver3, ver4, ver5, ver6ãCOMMON SHARED hor1, hor2, hor3, hor4, hor5, hor6ãCLSãSCREEN 12ãCALL greenboxãCOLOR 14ãLOCATE 5, 20: PRINT "THE OGIVE CHART (CUMULATIVE TOTAL DATA)"ãLOCATE 8, 10ãPRINT "This display displays a cumulative or running total for the"ãLOCATE , 10: PRINT "observations that you enter for each event. It best accom-"ãLOCATE , 10: PRINT "modates 2 digit numbers (BEFORE any decimal)."ãPRINTãPRINTãLOCATE 20, 15: PRINT "Type in a name/title that will identify"ãLOCATE , 20ãINPUT "this particular chart project "; namer$ã105ãLOCATE 25, 30ãCOLOR 15ãPRINT "To Continue, Tap Any Key"ãDO: LOOP UNTIL INKEY$ <> ""ã'ãCLSãSCREEN 9ãCOLOR 10, 9ãDEFLNG A-ZãLOCATE 3, 15: PRINT "DATA ENTRY FOR GRAPHIC"ãINPUT " What's the Total Incidents in Item 1"; it1ãINPUT " What's the Total Incidents in Item 2"; it2ãINPUT " What's the Total Incidents in Item 3"; it3ãINPUT " What's the Total Incidents in Item 4"; it4ãINPUT " What's the Total Incidents in Item 5"; it5ãINPUT " What's the Total Incidents in Item 6"; it6ãINPUT " What's the Total Incidents in Item 7"; it7ãINPUT " What's the Total Incidents in Item 8"; it8ãINPUT " What's the Total Incidents in Item 9"; it9ãINPUT " What's the Total Incidents in Item 10"; it10ãINPUT " What's the Total Incidents in Item 11"; it11ãINPUT " What's the Total Incidents in Item 12"; it12ã'ã 'specs for the vertical lines (lines are X,Y)ãCLSãSCREEN 12ãDEFLNG A-ZãLINE (100, 375)-(475, 375), 5 ' bottom line of graphãLINE (100, 376)-(475, 376), 5ãLINE (100, 75)-(100, 376), 5 'this is vertical line of graphãLINE (101, 75)-(101, 376), 5ã'ãLOCATE 11, 60ãCOLOR 9ãPRINT "CUMULATIVE"ãLOCATE , 60ãPRINT "TRACKING"ãCOLOR 15ãLOCATE , 60ãPRINT "Shown by"ãLOCATE , 60ãPRINT "White Line"ã' horizontal line separation is 30ãLINE (100, 345)-(475, 345), 10 ' this is an add-on init.lineãLINE (100, 315)-(475, 315), 10 ' this is an add-on init.lineãLINE (100, 285)-(475, 285), 10 ' this is an add-on init.lineãLINE (100, 255)-(475, 255), 10 ' this is an add-on init.lineãLINE (100, 225)-(475, 225), 10 ' this is an add-on init.lineãLINE (100, 195)-(465, 195), 10 ' this is an add-on init.lineãLINE (100, 165)-(465, 165), 10 ' this is an add-on init.lineãLINE (100, 135)-(475, 135), 10 ' this is an add-on init.lineãLINE (100, 105)-(475, 105), 10 ' this is an add-on init.lineãããLOCATE 3, 20ãCOLOR 14ãPRINT "CUMULATIVE RUNNING TOTAL "; namer$ãLOCATE 25, 13ãCOLOR 15ãPRINT TAB(13); "0"; TAB(17); "1"; TAB(21); "2"; TAB(24); "3"; TAB(28); "4"; TAB(32); "5"; TAB(36); "6"; TAB(39); "7"; TAB(43); "8"; TAB(46); "9"; TAB(50); "10"; TAB(54); "11"; TAB(58); "12"ã'LOCATE 26, 15ãCOLOR 5ãPRINT " Cumulative Running Totals"ãLOCATE 24, 8ãCOLOR 14ãPRINT "0"ãLOCATE 22, 8ãPRINT "100"ãLOCATE 20, 8ãPRINT "200"ãLOCATE 18, 8ãPRINT "300"ãLOCATE 16, 8ãPRINT "400"ãLOCATE 14, 8ãPRINT "500"ãLOCATE 13, 8ãPRINT "600"ãLOCATE 11, 8ãPRINT "700"ãLOCATE 9, 8ãPRINT "800"ãLOCATE 7, 8ãPRINT "900"ãLOCATE 5, 8ãPRINT "1000"ãã' THIS SETS UP THE VERTICAL LINESãLINE (130, 75)-(130, 375), 10 '1ãLINE (160, 75)-(160, 375), 10 '2ãLINE (190, 75)-(190, 375), 10 '3ãLINE (220, 75)-(220, 375), 10 '4ãLINE (250, 75)-(250, 375), 10 '5ãLINE (280, 75)-(280, 375), 10 '6ãLINE (310, 75)-(310, 375), 10 '7ãLINE (340, 75)-(340, 375), 10 '8 30 separation factorãLINE (370, 75)-(370, 375), 10 '9ãLINE (400, 75)-(400, 375), 10 '10ãLINE (430, 75)-(430, 375), 10 '11ãLINE (460, 75)-(460, 375), 10 '12ã' this section draws the tracelineãhora = 375ãhor1! = 375 - (it1 * .4)ãhor2! = hor1! - (it2 * .4)ãhor3! = hor2! - (it3 * .4)ãhor4! = hor3! - (it4 * .4)ãhor5! = hor4! - (it5 * .4)ãhor6! = hor5! - (it6 * .4)ãhor7! = hor6! - (it7 * .4)ãhor8! = hor7! - (it8 * .4)ãhor9! = hor8! - (it9 * .4)ãhor10! = hor9! - (it10 * .4)ãhor11! = hor10! - (it11 * .4)ãhor12! = hor11! - (it12 * .4)ã' this section sets up the x-position traceããLINE (100, 375)-(130, hor1!), 15ãLINE (130, hor1!)-(160, hor2!), 15ãLINE (160, hor2!)-(190, hor3!), 15ãLINE (190, hor3!)-(220, hor4!), 15ãLINE (220, hor4!)-(250, hor5!), 15ãLINE (250, hor5!)-(280, hor6!), 15ãLINE (280, hor6!)-(310, hor7!), 15ãLINE (310, hor7!)-(340, hor8!), 15ãLINE (340, hor8!)-(370, hor9!), 15ãLINE (370, hor9!)-(400, hor10!), 15ãLINE (400, hor10!)-(430, hor11!), 15ãLINE (430, hor11!)-(460, hor12!), 15ããENDããDEFSNG A-ZãSUB greenboxãSOUND 150, 5ãLINE (10, 15)-(630, 470), 2, BFãLINE (8, 13)-(633, 470), 6, BãLINE (10, 15)-(630, 467), 6, BãLINE (12, 17)-(627, 465), 7, BããEND SUBããSUB initialãSCREEN 12ãLOCATE 11, 60ãCOLOR 9ãPRINT "CUMULATIVE"ãLOCATE , 60ãPRINT "TRACKING"ãCOLOR 15ãLOCATE , 60ãPRINT "Shown by"ãLOCATE , 60ãPRINT "White Line"ã' horizontal line separation is 30ãLINE (100, 345)-(450, 345), 10 ' this is an add-on init.lineãLINE (100, 315)-(450, 315), 10 ' this is an add-on init.lineãLINE (100, 285)-(450, 285), 10 ' this is an add-on init.lineãLINE (100, 255)-(450, 255), 10 ' this is an add-on init.lineãLINE (100, 225)-(450, 225), 10 ' this is an add-on init.lineãLINE (100, 195)-(450, 195), 10 ' this is an add-on init.lineãLINE (100, 165)-(450, 165), 10 ' this is an add-on init.lineãLINE (100, 135)-(450, 135), 10 ' this is an add-on init.lineãLINE (100, 105)-(450, 105), 10 ' this is an add-on init.lineã' in line above, it's important to use only first three digitsããEND SUBããGerald L. Wykoff Paired Variables wykoff@mbawiz.com 10-01-01 ( : ) QB, Qbasic, PDS 243 8007 Xpairs.bas ' Subject: Paired Variables Graphic Date: 10-1-01 ã' Author: Gerald L. Wykoff Code: QB, QBasicã' Origin: wykoff@mbawiz.comã25ãDECLARE SUB GRAPH (GOODS(), DAYS%, XPOS%, YPOS%, NORMA%, COL.GRAPH%)ãREM PROGRAM 8.4ãREM GraphãCOMMON SHARED XVAR$, YVAR$ãCLSãSCREEN 9ãCOLOR 10, 1ãLINE (5, 5)-(630, 5), 12ãLINE -(630, 338), 12ãLINE -(5, 338), 12ãLINE -(5, 5), 12ãLINE (4, 4)-(631, 4), 3ãLINE -(631, 339), 3ãLINE -(4, 339), 3ãLINE -(4, 4), 3ãPRINTãPRINTãPRINT " GRAPH COMPARING PAIRED VARIABLES."ãCOLOR 11ãPRINT " (c) 2000 Gerald L. Wykoff . . .written for www.mbawiz.com"ãPRINTãPRINTãCOLOR 15ãPRINT " This visual presents a relative display of the data"ãPRINT " in paired variables. For that reason, try to keep the"ãPRINT " entries disciplined i.e., NUMBERS WITH SAME DIGIT TOTALS"ãPRINT " IN BOTH LISTS. The graphic does not accept keyboard"ãPRINT " data entries .. . you can only call up data from a perma-"ãPRINT " nent Paired Sequential file."ãPRINT " Because the display is relative, there is no limit on the"ãPRINT " size of the number - although smaller numbers mean less typing."ãPRINTãPRINTãCOLOR 14ãINPUT " What is the name/title for the X Variable "; XVAR$ãPRINTãINPUT " What is the name/title for the Y Variable "; YVAR$ãPRINTã ' call up an existing statements fileãPRINTãPRINTã200ãINPUT " What's the name/path of the file you want "; file$ãOPEN file$ FOR INPUT AS #1ã' start getting the data converteãcounter = 1ãDO UNTIL EOF(1)ãINPUT #1, d1, d2, d3, d4, d5, d6, d7, d8, d9, d10, d11, d12, e1, e2, e3, e4, e5, e6, e7, e8, e9, e10, e11, e12ãFOR i = 1 TO 1000ã NEXTã counter = counter + 1ãLOOPãCLSãSCREEN 9ãCOLOR 14, 8ãLINE (5, 5)-(630, 5), 12ãLINE -(630, 338), 12ãLINE -(5, 338), 12ãLINE -(5, 5), 12ãLINE (4, 4)-(631, 4), 3ãLINE -(631, 339), 3ãLINE -(4, 339), 3ãLINE -(4, 4), 3ãPRINTãPRINTãPRINT TAB(30); "X", "Y"ãPRINT TAB(30); d1, e1ãPRINT TAB(30); d2, e2ãPRINT TAB(30); d3, e3ãPRINT TAB(30); d4, e4ãPRINT TAB(30); d5, e5ãPRINT TAB(30); d6, e6ãPRINT TAB(30); d7, e7ãPRINT TAB(30); d8, e8ãPRINT TAB(30); d9, e9ãPRINT TAB(30); d10, e10ãPRINT TAB(30); d11, e11ãPRINT TAB(30); d12, e12ãPRINTãPRINTãPRINT " View the X Variable data above. Since the graph shows relative"ãINPUT " data, to maintain consistency, type in the highest value "; nuvalãDIM QUANTITY1(12)ãQUANTITY1(1) = d1ãQUANTITY1(2) = d2ãQUANTITY1(3) = d3ãQUANTITY1(4) = d4ãQUANTITY1(5) = d5ãQUANTITY1(6) = d6ãQUANTITY1(7) = d7ãQUANTITY1(8) = d8ãQUANTITY1(9) = d9ãQUANTITY1(10) = d10ãQUANTITY1(11) = d11ãQUANTITY1(12) = d12ã 'ãDIM QUANTITY2(12)ãQUANTITY2(1) = e1ãQUANTITY2(1) = nuvalãQUANTITY2(2) = e2ãQUANTITY2(3) = e3ãQUANTITY2(4) = e4ãQUANTITY2(5) = e5ãQUANTITY2(6) = e6ãQUANTITY2(7) = e7ãQUANTITY2(8) = e8ãQUANTITY2(9) = e9ãQUANTITY2(10) = e10ãQUANTITY2(11) = e11ãQUANTITY2(12) = e12ã'ã SCREEN 12ã CLSã 'ã ' declare two different arraysã 'ã ã 'ãã ' Note: bottom of top two charts is 145 and disance from 0-10ã ' is 100 counts....bottom of bottom chart is 310 and distanceã 'is again 100 counts ....vertical speacing note vipã ' two different set of dataã ' this line controls the dark blue bars on #1 & #3ã DATA quantity1(1), quantity1(2), quantity1(3), quantity1(4), quantity1(5), quantity1(6), quantity1(7), quantity1(8), quantity1(9), quantity1(10), quantity1(11), quantity1(12)ã ' this data line controls silver bars on the #2 and #3ã DATA quantity2(1), quantity2(2), quantity2(3), quantity2(4), quantity2(5), quantity2(6), quantity2(7), quantity2(8), quantity2(9), quantity2(10), quantity2(11), quantity2(12)ãã TIMES% = 12 'was 15ã LABEL% = 80ã ' to set color on bars, use last digit in CALL GRAPH commandsã' line sets bottomfor graf #1&bar color last digitã CALL GRAPH(QUANTITY1(), TIMES%, 45, 145, LABEL%, 1) 'was 1, 80, LABEL%, 1ã ' this adjusts the graf bars on the 3 chartsã 'ã ' call subprogram with different parametersã ' three different graphs will be displayedã ' 'this line sets bottom on graf #2ã CALL GRAPH(QUANTITY2(), TIMES%, 330, 145, LABEL%, 8) 'was 430, 135 280, 170, LABEL%, 2ã ' this line sets bar on bottom most graph(bar color last digit)ã CALL GRAPH(QUANTITY1(), TIMES%, 200, 310, 80, 1) 'was 200, 300, 80, 1ã' this line sets bars on bottom most graph(bar color is last digit)ã CALL GRAPH(QUANTITY2(), TIMES%, 200, 310, 80, 8) 'was 200, 300, 80, 2ãPRINTãPRINTãPRINTãPRINTãPRINTãPRINTãPRINTãPRINTãPRINTãINPUT " Would you like to (1) Repeat, or (2) Quit (1 or 2) "; ask17$ãIF ask17$ = "1" THEN GOTO 750 ELSE GOTO 1200ã750ãCLOSE #1ãGOTO 25ã1200ãCLOSE #1ãENDãã SUB GRAPH (GOODS(), DAYS%, XPOS%, YPOS%, NORMA%, COL.GRAPH%)ãã DIM NORM(DAYS%)ã PMAX = GOODS(1)ã FOR NUMBER.OF.ELEMENT = 2 TO DAYS%ã IF GOODS(NUMBER.OF.ELEMENT) > PMAX THENã PMAX = GOODS(NUMBER.OF.ELEMENT)ã END IFã NEXT NUMBER.OF.ELEMENTã LINE (XPOS%, YPOS%)-(XPOS% + 150, YPOS%), COL.GRAPH% 'was 187ã FOR NUMBER.OF.ELEMENT = 1 TO DAYS%ã NORM(NUMBER.OF.ELEMENT) = GOODS(NUMBER.OF.ELEMENT) / PMAX * NORMA%ã ZPOS% = XPOS% + 20 * (NUMBER.OF.ELEMENT - 1)ã LINE (ZPOS%, YPOS%)-(ZPOS% + 10, YPOS% - NORM(NUMBER.OF.ELEMENT)), COL.GRAPH%, BF 'was 7, not 10ã NEXT NUMBER.OF.ELEMENTã LOCATE 3, 12ã COLOR 14ã PRINT TAB(15); XVAR$; TAB(45); YVAR$ã LOCATE 14, 15ã PRINT "COMPARISON BETWEEN X AND Y VARIABLES"ã COLOR 5ã LOCATE 11, 6ã PRINT "1 2 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5 6 7 8 9 10 11 12"ã LOCATE 21, 26ã PRINT "1 2 3 4 5 6 7 8 9 10 11 12"ã COLOR 14ã LOCATE 23, 5ã PRINT "These three charts offer a relative presentation of the"ã LOCATE 24, 5ã PRINT "relationship between the Paired Variables - a view that is"ã LOCATE 25, 5ã PRINT "often not evident when looking at strict numbers. Ignore"ã LOCATE 26, 5ã PRINT "column 1 in Charts 2 & 3 (it's the height limiter which assures"ã LOCATE , 5ã PRINT "the relative bar height consistency for all three charts."ã 'COLOR 15ã LINE (42, 50)-(42, 145), 11 'left vertical lineã LINE (41, 50)-(41, 145), 11 'line doublesã ' bottom most vertical lineã LINE (42, 145)-(600, 145), 11ã LINE (42, 146)-(600, 146), 11ã 'ã LINE (200, 210)-(200, 310), 11 ' bottom vertical for bottom graphã LINE (199, 210)-(199, 311), 11 ' doubles bot-bot vertical lineã 'ã LINE (199, 310)-(450, 310), 11 'bottom horizontal lineã LINE (199, 311)-(449, 311), 11ã 'ã ' places index numbers for top two chartsã LOCATE 5, 3ã PRINT "10"ã LOCATE 6, 4ã PRINT "|"ã LOCATE 7, 4ã PRINT "|"ã LOCATE 8, 4ã PRINT "|"ã LOCATE 9, 4ã PRINT "|"ã LOCATE 10, 4ã PRINT "0"ã ' this places index numbers on bottom chartã LOCATE 15, 23ã PRINT "10"ã LOCATE 16, 24ã PRINT "|"ã LOCATE 17, 24ã PRINT "|"ã LOCATE 18, 24ã PRINT "|"ã LOCATE 19, 24ã PRINT "|"ã LOCATE 20, 24ã PRINT "0"ãã END SUBããMario LaRosa Tile display for Mode 13 CMLAROSA73@aol.com 03-15-02 ( : ) QB,Qbasic,PDS 431 9123 qput.bas '''ã' Qput v1.5, a pure QB, (SCREEN 13) graphics routine that replaces PUTã'ã'ã' Brought to you by... MARIO SOFT.ã'ã' (C)opyright 2000ã'ã' Contact me at CMLAROSA73@aol.comã' If you have any questions or comments concerning these routines.ã'ã' THIS PROGRAM MAY BE DISTRIBUTED FREELY AS PUBLIC DOMAIN SOFTWAREã' AS LONG AS ANY PART OF THIS FILE IS NOT ALTERED IN ANY WAY.ã' IF YOU DO WISH TO USE THESE ROUTINES IN YOUR OWN PROGRAMSã' THEN PLEASE GIVE CREDIT TO THE AUTHOR... Mario LaRosa.ã'ã'''ã'$DYNAMICãDEFINT A-Zã'''ãCONST FALSE = 0ãCONST TRUE = NOT FALSEã'''ãCOMMON SHARED minXXwin, minYYwin, maxXXwin, maxYYwinã'''ãDECLARE SUB QPUT (TILES(), MASKS(), xx, yy, frame, mode$)ãDECLARE SUB QWIN (minXX, minYY, maxXX, maxYY)ã'ãDECLARE SUB Demo ()ã'ã''' Dimension TIL() array to hold -3- 20*20 tiles...ã'ãDIM SHARED TIL(0 TO 605) AS INTEGERã'ã''' Dimension MSK() array... (only needed if using "MASK-ON" & ã"MASK-OFF")ã'ãDIM SHARED MSK(0 TO UBOUND(TIL)) AS INTEGERã 'ã ''' Set default QWIN (window view) ...ã 'ã QWIN 0, 0, 319, 199ã 'ã ''' Draw and capture -3- 20*20, tiles...ã 'ã SCREEN 13ã 'ã FOR x = 0 TO 40 STEP 20ã col = col + 1ã LINE (x, 0)-(x + 19, 19), col, BFã LINE (x, 0)-(x + 19, 19), 15, Bã LINE (x + 5, 5)-(x + 14, 14), 0, BFã GET (x, 0)-(x + 19, 19), TIL(stp)ã stp = stp + 202ã NEXTã 'ã ''' Execute Demo sub for -3- 20*20 tiles...ã 'ã Demoã '''ã SYSTEMã '''ããSUB Demoã '''ã ''' DEMO 0ã '''ã DOã xx = INT(RND(1) * 341 + -20)ã yy = INT(RND(1) * 221 + -20)ã frame = INT(RND(1) * 3 + 1)ã QPUT TIL(), TIL(), xx, yy, frame, "SOLID"ã LOOP UNTIL LEN(INKEY$)ã '''ã ''' DEMO 1ã '''ã CLSã DOã xx = INT(RND(1) * 341 + -20)ã yy = INT(RND(1) * 221 + -20)ã frame = INT(RND(1) * 3 + 1)ã QPUT TIL(), TIL(), xx, yy, frame, "TRANSPARENT"ã LOOP UNTIL LEN(INKEY$)ã '''ã ''' DEMO 2ã '''ã DOã FOR z = 0 TO 19 STEP 1ã FOR yy = 0 TO 180 STEP 20ã FOR xx = -20 TO 300 STEP 20ã QPUT TIL(), TIL(), (xx + z), yy, 3, "SOLID"ã NEXTã NEXTã IF LEN(INKEY$) THEN EXIT DOã NEXTã LOOP UNTIL LEN(INKEY$)ã '''ã ''' DEMO 3ã '''ã DOã FOR z = 0 TO 19 STEP 1ã FOR yy = 0 TO 180 STEP 20ã FOR xx = -20 TO 300 STEP 20ã QPUT TIL(), TIL(), (xx + z), yy, 1, "SOLID"ã NEXTã IF yy > 89 AND yy < 111 THENã QPUT TIL(), TIL(), 150, 90, 2, "TRANSPARENT"ã END IFã NEXTã WAIT &H3DA, 8ã IF LEN(INKEY$) THEN EXIT DOã NEXTã LOOP UNTIL LEN(INKEY$)ã '''ã ''' DEMO 4ã '''ã DOã FOR z = 0 TO 19 STEP 2ã FOR yy = 0 TO 180 STEP 20ã FOR xx = -20 TO 300 STEP 20ã QPUT TIL(), TIL(), (xx + z), yy, 2, "SOLID"ã NEXTã IF yy > 89 AND yy < 111 THENã QPUT TIL(), TIL(), 150, 90, 1, "TRANSPARENT"ã END IFã NEXTã WAIT &H3DA, 8ã IF LEN(INKEY$) THEN EXIT DOã NEXTã LOOP UNTIL LEN(INKEY$)ã '''ã ''' DEMO 5ã '''ã QWIN 80, 50, 239, 149ã 'ã DOã FOR z = 0 TO 19 STEP 1ã FOR yy = 30 TO 170 STEP 20ã FOR xx = 60 TO 260 STEP 20ã QPUT TIL(), TIL(), (xx + z), yy, 1, "SOLID"ã NEXTã IF yy > 89 AND yy < 111 THENã QPUT TIL(), TIL(), 150, 90, 2, "TRANSPARENT"ã END IFã NEXTã WAIT &H3DA, 8ã IF LEN(INKEY$) THEN EXIT DOã NEXTã LOOP UNTIL LEN(INKEY$)ã '''ã ''' DEMO 6ã '''ã DOã FOR xx = 60 TO 260ã QPUT TIL(), MSK(), xx, 90, 3, "MASK-ON"ã WAIT &H3DA, 8ã QPUT TIL(), MSK(), xx, 90, 3, "MASK-OFF"ã IF LEN(INKEY$) THEN EXIT DOã NEXTã LOOP UNTIL LEN(INKEY$)ã 'ã QWIN 0, 0, 319, 199ã '''ã ''' DEMO 7ã '''ã LINE (0, 0)-(319, 200), 2, BFã DOã FOR xx = -20 TO 320ã QPUT TIL(), MSK(), xx, 90, 1, "MASK-ON"ã WAIT &H3DA, 8ã QPUT TIL(), MSK(), xx, 90, 1, "MASK-OFF"ã IF LEN(INKEY$) THEN EXIT DOã NEXTã LOOP UNTIL LEN(INKEY$)ã '''ã ''' DEMO 8ã '''ã LINE (0, 0)-(319, 200), 3, BFã DOã FOR xx = -20 TO 320 STEP 2ã QPUT TIL(), MSK(), xx, 90, 2, "MASK-ON"ã WAIT &H3DA, 8ã QPUT TIL(), MSK(), xx, 90, 2, "MASK-OFF"ã IF LEN(INKEY$) THEN EXIT DOã NEXTã LOOP UNTIL LEN(INKEY$)ã '''ã ''' DEMO 9ã '''ã LINE (0, 0)-(319, 200), 1, BFã DOã FOR xx = -20 TO 320 STEP 3ã QPUT TIL(), MSK(), xx, 90, 3, "MASK-ON"ã WAIT &H3DA, 8ã QPUT TIL(), MSK(), xx, 90, 3, "MASK-OFF"ã IF LEN(INKEY$) THEN EXIT DOã NEXTã LOOP UNTIL LEN(INKEY$)ã '''''' DEMO Aã '''ã FOR y = 0 TO 199ã IF y > 99 THENã C = C + -1ã ELSEã C = C + 1ã END IFã LINE (0, y)-(319, y), Cã NEXTã '''ã DIM xx(1 TO 3)ã DIM yy(1 TO 3)ã DIM XXstp(1 TO 3)ã DIM YYstp(1 TO 3)ã '''ã FOR x = 1 TO 3ã xx(x) = INT(RND * 320)ã yy(x) = INT(RND * 200)ã XXstp(x) = xã YYstp(x) = xã NEXTã '''ã DOã '''ã FOR x = 1 TO 3 STEP 1ã xx(x) = xx(x) + XXstp(x)ã yy(x) = yy(x) + YYstp(x)ã IF xx(x) > 319 OR xx(x) < -19 THEN XXstp(x) = -XXstp(x)ã IF yy(x) > 199 OR yy(x) < -19 THEN YYstp(x) = -YYstp(x)ã QPUT TIL(), MSK(), xx(x), yy(x), x, "MASK-ON"ã NEXTã '''ã WAIT &H3DA, 8ã '''ã FOR x = 3 TO 1 STEP -1ã QPUT TIL(), MSK(), xx(x), yy(x), x, "MASK-OFF"ã NEXTã LOOP UNTIL LEN(INKEY$)ã '''ãEND SUBããSUB QPUT (TILES(), MASKS(), xx, yy, frame, mode$)ã 'ã ''' Set original TILES() header data to QPUT format...ã 'ã IF frame THENã 'ã TILEwidth = TILES(0) \ 8ã TILEheight = TILES(1)ã TILEpixels = TILEwidth * TILEheightã TH = TILEheight - 1ã TW = TILEwidth - 1ã TF = frame - 1ã 'ã ''' Calculate TILES() integer & byte offsets.ã 'ã IF TILEpixels AND &H1 THENã ToffsBYT = ((4 * frame) + TF) + (TILEpixels * TF)ã ToffsINT = ((TILEpixels \ 2) + 3) * TFã ELSEã ToffsBYT = (4 * frame) + (TILEpixels * TF)ã ToffsINT = ((TILEpixels \ 2) + 2) * TFã END IFã '''ã 'ã ''' Exit routine if frame is out of range...ã ''' This is extremely important,ã ''' to prevent poking into undesired territory!ã 'ã IF ToffsINT < 0 OR ToffsINT > UBOUND(TILES) THEN EXIT SUBã 'ã ''' Set initial TILES() coordinates...ã 'ã xLEFT = xxã xRIGHT = xx + TWã yTOP = yyã yBOTTOM = yy + THã 'ã ''' Compare TILES() coordinates with QWIN coordinates...ã ''' If clipping is necessary, then clip accordingly.ã 'ã IF xLEFT < minXXwin THENã '''ã CLIP = TRUEã sum = minXXwin - xLEFTã IF sum < 0 THEN sum = -sumã IF sum > TW THEN EXIT SUBã '''ã xLEFT = minXXwinã CLIPoffsL = sumã CLIPadd = sumã '''ã END IFã '''ã IF xRIGHT > maxXXwin THENã '''ã CLIP = TRUEã sum = xRIGHT - maxXXwinã IF sum > TW THEN EXIT SUBã '''ã xRIGHT = maxXXwinã CLIPadd = sumã '''ã END IFã '''ã IF yTOP < minYYwin THENã '''ã CLIP = TRUEã sum = minYYwin - yTOPã IF sum < 0 THEN sum = -sumã IF sum > TH THEN EXIT SUBã '''ã yTOP = minYYwinã CLIPoffsT = sum * TILEwidthã '''ã END IFã '''ã IF yBOTTOM > maxYYwin THENã '''ã CLIP = TRUEã sum = yBOTTOM - maxYYwinã IF sum > TH THEN EXIT SUBã '''ã yBOTTOM = maxYYwinã '''ã END IFã 'ã ''' Pre-record TILES() segment...ã 'ã segTILES = VARSEG(TILES(0))ã 'ã ''' Assign TILES() PEEK/POKE offset...ã 'ã t = ToffsBYT + CLIPoffsL + CLIPoffsTã 'ã ''' Assign (video) PEEK/POKE offset...ã 'ã segADD = &HA000 + (yTOP * 20)ã 'ã ''' Blit TILE() as mode$...ã 'ã SELECT CASE mode$ã '''ã CASE "TRANSPARENT"ã '''ã FOR y = yTOP TO yBOTTOMã FOR x = xLEFT TO xRIGHTã DEF SEG = segTILESã colour = PEEK(t)ã IF colour THENã DEF SEG = segADDã POKE x, colourã END IFã t = t + 1ã NEXTã t = t + CLIPaddã segADD = segADD + 20ã NEXTã '''ã CASE "SOLID"ã 'ã ''' This routine will use QB's own PUT routine,ã ''' if no clipping was peformed...ã ''' (Increases routine speed!)ã 'ã IF CLIP THENã FOR y = yTOP TO yBOTTOMã FOR x = xLEFT TO xRIGHTã DEF SEG = segTILESã colour = PEEK(t)ã DEF SEG = segADDã POKE x, colourã t = t + 1ã NEXTã t = t + CLIPaddã segADD = segADD + 20ã NEXTã ELSEã PUT (xx, yy), TILES(ToffsINT), PSETã END IFã '''ã CASE "MASK-ON"ã '''ã 'ã ''' This routine will use QB's own GET routine,ã ''' for capturing the MASK()...ã ''' (Increases routine speed!)ã 'ã GET (xLEFT, yTOP)-(xRIGHT, yBOTTOM), MASKS(ToffsINT)ã 'ã FOR y = yTOP TO yBOTTOMã FOR x = xLEFT TO xRIGHTã DEF SEG = segTILESã colour = PEEK(t) IF colour THENã DEF SEG = segADDã POKE x, colourã END IFã t = t + 1ã NEXTã t = t + CLIPaddã segADD = segADD + 20ã NEXTã '''ã CASE "MASK-OFF"ã '''ã 'ã ''' This routine will use QB's own PUT routine,ã ''' to display a captured MASK()...ã ''' (Increases routine speed!)ã 'ã PUT (xLEFT, yTOP), MASKS(ToffsINT), PSETã '''ã END SELECTã 'ã END IFã '''ãEND SUBããREM $STATICãSUB QWIN (minXX, minYY, maxXX, maxYY)ã '''ã minXXwin = minXXã minYYwin = minYYã maxXXwin = maxXXã maxYYwin = maxYYã '''ã IF minXXwin < 0 THEN minXXwin = 0ã IF maxXXwin > 319 THEN maxXXwin = 319ã IF minYYwin < 0 THEN minYYwin = 0ã IF maxYYwin > 199 THEN maxYYwin = 199ã '''ãEND SUBãMario LaRosa Pixel Plotting for Mode 13 CMLAROSA73@aol.com 03-15-02 ( : ) QB,Qbasic,PDS 52 1142 qplot.bas QPLOT is 4 to 6 times faster than PSET, and twice as fast as poke, ãsince itãdoesn't use longs&, but uses integers% instead!ããMarioãã'''ã' Qplot v1.1, a pure QB pixel plotter, (SCREEN 13) that replaces PSETã'ã' Brought to you by... MARIO SOFT.ã'ã' (C)opyright 2000ã'ã' Contact me at CMLAROSA73@aol.comã' If you have any questions or comments concerning these routines.ã'ã' THIS PROGRAM MAY BE DISTRIBUTED FREELY AS PUBLIC DOMAIN SOFTWAREã' AS LONG AS ANY PART OF THIS FILE IS NOT ALTERED IN ANY WAY.ã' IF YOU DO WISH TO USE THESE ROUTINES IN YOUR OWN PROGRAMSã' THEN PLEASE GIVE CREDIT TO THE AUTHOR... Mario LaRosa.ã'ã'''ã'$DYNAMICãDEFINT A-Zã'ãSCREEN 13ã' Plot a blue pixel at center of screen.ãx = 159: y = 99: c = 1ã'ãDEF SEG = &HA000 + (y * 20)ãPOKE x, cã'ãSLEEPã'ãzzz! = TIMERã' Fill the screen with pixels.ãFOR c = 0 TO 255ã FOR y = 0 TO 199ã DEF SEG = &HA000 + (y * 20)ã FOR x = 0 TO 319ã POKE x, cã NEXTã NEXTãNEXTã'ãzzz! = TIMER - zzz!ãLOCATE 1, 1: PRINT zzz!; " Seconds"ãLOCATE 3, 1: PRINT 256 / zzz!; " FPS"ã'ãSLEEPã'ãSYSTEMãMario LaRosa Alpha-Blend for Mode 13 CMLAROSA73@aol.com 03-15-02 ( : ) QB,Qbasic,PDS 263 5029 qblend.bas '''ã' Qblend v1.1, a pure QB, (SCREEN 13) alpha-blending routine.ã'ã' Brought to you by... MARIO SOFT.ã'ã' (C)opyright 2001ã'ã' Contact me at CMLAROSA73@aol.comã' If you have any questions or comments concerning these routines.ã'ã' THIS PROGRAM MAY BE DISTRIBUTED FREELY AS PUBLIC DOMAIN SOFTWAREã' AS LONG AS ANY PART OF THIS FILE IS NOT ALTERED IN ANY WAY.ã' IF YOU DO WISH TO USE THESE ROUTINES IN YOUR OWN PROGRAMSã' THEN PLEASE GIVE CREDIT TO THE AUTHOR... Mario LaRosa.ã'ã' NOTE: The first time you run this program the QPALETTE subroutine ãwillã' create a look-up table for the alpha-blending. This may takeã' a while but, don't interrupt the program while it's in this ãprocess.ã' After that is completed the subroutine will capture theã' current palette and BSAVE it as default.pal, and also BSAVE theã' look-up table as default.lut, (this ensures a much faster ãstartupã' when the program is ran thereafter).ã'ã'$DYNAMICãDEFINT A-Zã'ãTYPE PALdataã Red AS INTEGERã Grn AS INTEGERã Blu AS INTEGERãEND TYPEã'ãDECLARE SUB QBOX (xx1, yy1, xx2, yy2, colour, mode$)ãDECLARE SUB QPALETTE (file$)ã'ãDIM SHARED QPAL(0 TO 255) AS PALdataã'ãDIM SHARED QLUTsegm(0 TO 255) AS LONGãDIM SHARED QLUTblend(0 TO 16447) AS INTEGERã'ã RANDOMIZE TIMERã 'ã SCREEN 13ã 'ã QPALETTE "default.pal"ã 'ã FOR t = 1 TO 5000ã x = INT(RND * 320)ã y = INT(RND * 200)ã DEF SEG = &HA000 + (y * 20)ã IF t AND &H1 THENã POKE x, INT(RND * 6) + 26ã ELSEã POKE x, INT(RND * 6) + 20ã END IFã NEXTã 'ã QBOX 89, 49, 229, 149, 1, "BLEND"ã 'ã SLEEPã 'ã SYSTEMããREM $STATICãSUB QBOX (xx1, yy1, xx2, yy2, colour, mode$)ã '''ã IF xx2 < xx1 THENã rec = xx2ã xx2 = xx1ã xx1 = recã END IFã 'ã IF yy2 < yy1 THENã rec = yy2ã yy2 = yy1ã yy1 = recã END IFã 'ã IF xx2 < 0 OR xx1 > 319 THEN EXIT SUBã IF yy2 < 0 OR yy1 > 199 THEN EXIT SUBã 'ã xLEFT = xx1ã xRIGHT = xx2ã yTOP = yy1ã yBOTTOM = yy2ã 'ã IF xLEFT < 0 THENã cLEFT = TRUEã xLEFT = 0ã END IFã 'ã IF xRIGHT > 319 THENã cRIGHT = TRUEã xRIGHT = 319ã END IFã 'ã IF yTOP < 0 THENã cTOP = TRUEã yTOP = 0ã END IFã 'ã IF yBOTTOM > 199 THENã cBOTTOM = TRUEã yBOTTOM = 199ã END IFã 'ã SELECT CASE mode$ã '''ã CASE "SOLID"ã '''ã FOR y = yTOP TO yBOTTOMã DEF SEG = &HA000 + (y * 20)ã FOR x = xLEFT TO xRIGHTã POKE x, colourã NEXTã NEXTã '''ã CASE "BLEND"ã '''ã 'ã qlb = VARSEG(QLUTblend(0))ã 'ã FOR y = yTOP TO yBOTTOMã DS = &HA000 + (y * 20)ã DEF SEG = DSã FOR x = xLEFT TO xRIGHTã 'ã c = PEEK(x)ã 'ã DEF SEG = qlbã 'ã IF c > colour THENã b = PEEK(QLUTsegm(colour) + (c - colour))ã ELSEã b = PEEK(QLUTsegm(c) + (colour - c))ã IF c = colour THEN b = colourã END IFã 'ã DEF SEG = DSã POKE x, bã 'ã NEXTã NEXTã '''ã CASE "TRANSPARENT"ã '''ã IF NOT cTOP THENã DEF SEG = &HA000 + (yTOP * 20)ã FOR x = xLEFT TO xRIGHTã POKE x, colourã NEXTã END IFã 'ã IF NOT cBOTTOM THENã DEF SEG = &HA000 + (yBOTTOM * 20)ã FOR x = xLEFT TO xRIGHTã POKE x, colourã NEXTã END IFã 'ã FOR y = yTOP TO yBOTTOMã DEF SEG = &HA000 + (y * 20)ã IF NOT cLEFT THEN POKE xLEFT, colourã IF NOT cRIGHT THEN POKE xRIGHT, colourã NEXTã 'ã END SELECTã '''ãEND SUBããSUB QPALETTE (file$)ã '''ã lut$ = MID$(file$, 1, LEN(file$) - 4) + ".lut"ã pal$ = MID$(file$, 1, LEN(file$) - 4) + ".pal"ã 'ã FileNum = FREEFILEã '''ã OPEN pal$ FOR BINARY AS FileNumã length& = LOF(1)ã CLOSE FileNumã 'ã DEF SEG = VARSEG(QPAL(0))ã 'ã IF length& THENã 'ã BLOAD pal$, 0ã 'ã OUT &H3C8, 0ã 'ã FOR x = 0 TO 255ã OUT &H3C9, QPAL(x).Redã OUT &H3C9, QPAL(x).Grnã OUT &H3C9, QPAL(x).Bluã NEXTã 'ã ELSEã 'ã OUT &H3C7, 0ã 'ã FOR x = 0 TO 255ã QPAL(x).Red = INP(&H3C9)ã QPAL(x).Grn = INP(&H3C9)ã QPAL(x).Blu = INP(&H3C9)ã NEXTã 'ã BSAVE pal$, 0, 1536ã 'ã END IFã 'ã FileNum = FREEFILEã '''ã OPEN lut$ FOR BINARY AS FileNumã length& = LOF(1)ã CLOSE FileNumã 'ã DEF SEG = VARSEG(QLUTblend(0))ã 'ã IF length& THENã 'ã BLOAD lut$, 0ã 'ã FOR p = 0 TO 255ã FOR b = incp TO 255ã incb& = incb& + 1ã NEXTã incp = incp + 1ã IF incp < 256 THEN QLUTsegm(incp) = incb&ã NEXTã 'ã ELSEã 'ã FOR p = 0 TO 255ã FOR b = incp TO 255ã max = 11907ã rt = (QPAL(p).Red + QPAL(b).Red) \ 2ã gt = (QPAL(p).Grn + QPAL(b).Grn) \ 2ã bt = (QPAL(p).Blu + QPAL(b).Blu) \ 2ã FOR c = 0 TO 255ã rd = rt - QPAL(c).Redã gd = gt - QPAL(c).Grnã bd = bt - QPAL(c).Bluã v = (rd * rd) + (gd * gd) + (bd * bd)ã IF v < max THENã max = vã tc = cã IF v = 0 THEN EXIT FORã END IFã NEXTã POKE incb&, tcã incb& = incb& + 1ã NEXTã incp = incp + 1ã IF incp < 256 THEN QLUTsegm(incp) = incb&ã NEXTã 'ã BSAVE lut$, 0, 32896ã 'ã END IFã '''ãEND SUBãAntoni Gual DISPLAY PARAMETERS OF SVGA MODEagual@eic.ictnet.es 03-15-02 ( : ) QB, Qbasic, PDS, PB 220 8002 viewsvga.bas'===========================================================================ã' Subject: DISPLAY PARAMETERS OF SVGA MODE Date: 11-10-99 (22:23) ã' Author: Antoni Gual Code: QB, PDS ã' Origin: agual@eic.ictnet.es Packet: GRAPHICS.ABCã'===========================================================================ã'This program will allow you to know the capabilities of your SVGA Vesa Cardã'Simply run it, it will check for available modes, after it will checkã'and display the parameters of each modeã'Based on Vesa standard 1.2,ã'I Hope it helps somebody..ã'NOTE: If your card have some memory sockets free, some modes will appearã'in the modes list and will not be available.It's normalã'Tell me about...ã'Antoni Gual agual@eic.ictnet.esãããDECLARE FUNCTION Binary$ (a$)ãDECLARE SUB Viewmodeinfo (i%)ãDECLARE FUNCTION GetVideoMode% ()ãDECLARE SUB ViewVESAParameters ()ãDEFINT A-ZããCONST VESAOK = &H4Fãã' CPU registers used for BIOS calls. These are also defined in QB.BI.ãTYPE RegTypeã AX AS INTEGERã BX AS INTEGERã cx AS INTEGERã DX AS INTEGERã BP AS INTEGERã SI AS INTEGERã DI AS INTEGERã FLAGS AS INTEGERã DS AS INTEGERã ES AS INTEGERãEND TYPEã ã' Type used by VESA function 00h, filled with info on the VESA.ãTYPE VGAInfoBlockã VESASignature AS STRING * 4ã VESAVersion AS INTEGERã OEMSTRINGPTR AS LONGã Capabilities AS LONGã VIDEOMODEPTR AS LONGã TotalMemory AS INTEGERã Reserved AS STRING * 236ãEND TYPEãã' Type used by VESA function 02h, filled with info on a screen mode.ãTYPE ModeinfoBlockã ModeAttributes AS INTEGERã WinaAttributes AS STRING * 1ã WinBAttributes AS STRING * 1ã Wingranularity AS INTEGERã Winsize AS INTEGERã WinASegment AS INTEGERã WinbSegment AS INTEGERã WinFuncPtr AS LONGã bytesperscanline AS INTEGERã Xresolution AS INTEGERã Yresolution AS INTEGERã Xcharsize AS STRING * 1ã Ycharsize AS STRING * 1ã NumberofPlanes AS STRING * 1ã bitsperpixel AS STRING * 1ã Numberofbanks AS STRING * 1ã MemoryModel AS STRING * 1ã Banksize AS STRING * 1ã numberofimagepages AS STRING * 1ã Rsvd AS STRING * 1ã Redmasksize AS STRING * 1ã redfieldposition AS STRING * 1ã greenmasksize AS STRING * 1ã greenfieldposition AS STRING * 1ã bluemasksize AS STRING * 1ã bluefieldposition AS STRING * 1ã Rsvdmasksize AS STRING * 1ã DirectColorModeInfo AS STRING * 1ã Reserved AS STRING * 216ãEND TYPEãããDIM SHARED Vgainfo AS VGAInfoBlockãDIM SHARED regs AS RegTypeãDIM SHARED modenums(130) AS INTEGERãREDIM SHARED modeinfo(0) AS ModeinfoBlockããã'-=-=-=-=-=-=-=-=-=-=-=-=-=-DEMO CODE STARTS HERE-=-=-=-=-=-=-=-=-=-=-=-=-=-ããSCREEN 0: CLSããregs.AX = &H4F00ãregs.ES = VARSEG(Vgainfo)ãregs.DI = VARPTR(Vgainfo)ãCALL INTERRUPTX(&H10, regs, regs)ãIF regs.AX <> VESAOK THEN PRINT "VESA CARD NOT DETECTED": ENDããa$ = MKL$(Vgainfo.VIDEOMODEPTR)ãDEF SEG = CVI(RIGHT$(a$, 2))ãptr = CVI(LEFT$(a$, 2))ãi = 0ãDO UNTIL md& = 65535ã modenums(i) = md&ã i = i + 1ã temp = PEEK(ptr)ã ptr = ptr + 1ã md& = PEEK(ptr) * 256& + tempã ptr = ptr + 1ã ãLOOPãmodenums(0) = i - 1ããViewVESAParametersãLOCATE 25, 1: PRINT "Press any Key to see each mode's values";ãr$ = INPUT$(1)ãREDIM modeinfo(modenums(0)) AS ModeinfoBlockãFOR i = 1 TO modenums(0)ã regs.AX = &H4F01ã regs.cx = modenums(i)ã regs.ES = VARSEG(modeinfo(i))ã regs.DI = VARPTR(modeinfo(i))ã CALL INTERRUPTX(&H10, regs, regs)ãNEXTããi = 1ãDOãã Viewmodeinfo iã LOCATE 25, 1: PRINT "Press left - right cursor keys to view new mode. ESC to exit";ã DO: r$ = INKEY$: LOOP UNTIL LEN(r$)ã IF ASC(r$) THEN ky = ASC(r$) ELSE ky = -ASC(RIGHT$(r$, 1))ã IF ky = -75 THEN IF i > 1 THEN i = i - 1ã IF ky = -77 THEN IF i < modenums(0) THEN i = i + 1ãLOOP UNTIL ky = 27ããEND 'Shut downããSUB Viewmodeinfo (i)ãCLSãPRINT "VESA Mode :"; HEX$(modenums(i));ãIF modeinfo(i).ModeAttributes AND 1 THEN PRINT " Available" ELSE PRINT " Not Available"ãmode = ASC(modeinfo(i).MemoryModel)ãSELECT CASE modeãCASE 0: PRINT "Text ",ãCASE 1: PRINT "CGA ",ãCASE 2: PRINT "Hercules ",ãCASE 3: PRINT "4 plane ",ãCASE 4: PRINT "Packed Pixel ",ãCASE 5: PRINT "Nonchain 4",ãCASE 6: PRINT "Direct Color ",ãCASE 7: PRINT "YUV ",ãCASE 8 TO 15: PRINT "VESA reserved ",ãCASE ELSE: PRINT "OEM Mode ",ãEND SELECTãPRINT modeinfo(i).Xresolution; " X "; modeinfo(i).Yresolution; " "; : IF mode = 0 THEN PRINT "Chars"; ELSE PRINT "pixels";ãPRINT ASC(modeinfo(i).bitsperpixel); "bits/pixel"; modeinfo(i).bytesperscanline; " bytes/line"ãPRINT "Bios Function 10H "; : IF modeinfo(i).ModeAttributes AND 4 THEN PRINT "supported" ELSE PRINT " not supported"ãPRINT "Mode"; : IF modeinfo(i).ModeAttributes AND 8 THEN PRINT "Color "; ELSE PRINT " Monochrome";ãIF modeinfo(i).ModeAttributes AND 16 THEN PRINT "Graphics" ELSE PRINT " Text"ãPRINT "Color Planes: "; ASC(modeinfo(i).NumberofPlanes)ãIF mode = 1 OR mode = 2 THEN PRINT "Banks: "; ASC(modeinfo(i).Numberofbanks); " of size "; ASC(modeinfo(i).Banksize)ãPRINT "Windows: Smallest size"; modeinfo(i).Wingranularity; "Kbytes Actual Size:"; modeinfo(i).WinsizeãPRINT "A: "; :ãLOCATE , 6: IF ASC(modeinfo(i).WinaAttributes) AND 1 THEN PRINT "Supported"; ELSE PRINT "Not supported";ãLOCATE , 20: IF ASC(modeinfo(i).WinaAttributes) AND 2 THEN PRINT "Readable"; ELSE PRINT "Not readable";ãLOCATE , 34: IF ASC(modeinfo(i).WinaAttributes) AND 4 THEN PRINT "Writeable"; ELSE PRINT "Not writeable";ãLOCATE , 50: PRINT " at Segment "; HEX$(modeinfo(i).WinASegment)ãPRINT "B: ";ãLOCATE , 6: IF ASC(modeinfo(i).WinBAttributes) AND 1 THEN PRINT "Supported"; ELSE PRINT "Not supported";ãLOCATE , 20: IF ASC(modeinfo(i).WinBAttributes) AND 2 THEN PRINT "Readable"; ELSE PRINT "Not readable";ãLOCATE , 34: IF ASC(modeinfo(i).WinBAttributes) AND 4 THEN PRINT "Writeable"; ELSE PRINT "Not writeable";ãLOCATE , 50: PRINT " at Segment "; HEX$(modeinfo(i).WinbSegment)ããPRINT "Pages "; ASC(modeinfo(i).numberofimagepages) + 1ãPRINT "Char size "; ASC(modeinfo(i).Xcharsize); " X "; ASC(modeinfo(i).Ycharsize)ããIF mode = 6 OR mode = 7 THENã color$ = STRING$(8 * (-INT(-(ASC(modeinfo(i).bitsperpixel) / 8))), "r")ã red$ = STRING$(ASC(modeinfo(i).Redmasksize), "R")ã MID$(color$, 1 + LEN(color$) - LEN(red$) - ASC(modeinfo(i).redfieldposition)) = red$ã green$ = STRING$(ASC(modeinfo(i).greenmasksize), "G")ã MID$(color$, 1 + LEN(color$) - LEN(green$) - ASC(modeinfo(i).greenfieldposition)) = green$ã blue$ = STRING$(ASC(modeinfo(i).bluemasksize), "B")ã MID$(color$, 1 + LEN(color$) - LEN(blue$) - ASC(modeinfo(i).bluefieldposition)) = blue$ã PRINT "Color: "; color$, "R=red G=green B=blue r=reserved"ã PRINT "Color Ramp "; : IF ASC(modeinfo(i).DirectColorModeInfo) AND 1 THEN PRINT "Programmable"; ELSE PRINT "Fixed";ã LOCATE , 40: PRINT "Reserved field "; : IF ASC(modeinfo(i).DirectColorModeInfo) AND 1 THEN PRINT "Writeable" ELSE PRINT "Not Writeable"ãEND IFãEND SUBãã' Detect to see if a VESA compatible graphics card is present.ãSUB ViewVESAParametersããPRINT Vgainfo.VESASignature;ãPRINT RTRIM$(STR$(Vgainfo.VESAVersion \ 256)); "."; LTRIM$(STR$(Vgainfo.VESAVersion AND 255))ããa$ = MKL$(Vgainfo.OEMSTRINGPTR)ãDEF SEG = CVI(RIGHT$(a$, 2))ãptr = CVI(LEFT$(a$, 2))ãB$ = ""ãDO UNTIL PEEK(ptr) = 0ãB$ = B$ + CHR$(PEEK(ptr))ãptr = ptr + 1ãLOOPãPRINT "OEM Signature: "; B$ããPRINT "Video modes supported by card (Memory installed may not be enough):"ããFOR j = 1 TO modenums(0): PRINT HEX$(modenums(j)), : NEXT: PRINTããdacsw% = Vgainfo.Capabilities AND 1ãIF dacsw% THEN PRINT "DAC is switchable" ELSE PRINT "DAC is fixed 6 bits/color"ãmem& = &H10000 * Vgainfo.TotalMemoryãPRINT "Total Memory"; mem&; " Bytes "; mem& / 1024 / 1024; "Megs"ãããEND SUBããAntoni Gual Mode 13 Text scaler & Clipper agual@eic.ictnet.es 06-16-02 ( : ) QB, PDS 147 4037 Scaltxt.bas DECLARE SUB TEXTZOOM (T$)ãDECLARE SUB fPRINT (T$, Xstartpos%, ystartpos%, colour%, scrxsize%, ScrYsize%, ChSpacing%, font%)ã'---------------------------------------------------------------------------ã'SCALTXT.BAS By Antoni Gual agual@eic.ictnet.es june-2002ã'Scales and clips text in screen 13ã'---------------------------------------------------------------------------ã'FEATURES:ã'Fast:ã' Proceeds line by line, not char by charã' All integer scaling routineã'It clips at borders: don't need to worry about text fitting or notã'Can draw to screen or to a buffer.ã'ã'The demo does a zoom by simply calling the routine many timesã'---------------------------------------------------------------------------ãã'$INCLUDE: 'QB.BI'ãDIM regs AS regtypexãDEFINT A-ZãREDIM BUFFER(-8 TO 31999) AS INTEGERãDIM ylut(199) AS INTEGERãã'init the buffer arrayãbseg = VARSEG(BUFFER(-8)) + 1ãBUFFER(-2) = 2560: BUFFER(-1) = 200ãã'make screen offset lutããtemp = bseg 'change to temp=&ah000 if you don't want to use screen buffersãFOR I = 0 TO 199ã ylut(I) = tempã temp = temp + 20ãNEXTããSCREEN 13ãCLSãDIM pwrsof2(15) AS INTEGERãFOR I = 0 TO 14: pwrsof2(I) = 2& ^ I: NEXT: pwrsof2(15) = -1ãããTEXTZOOM "what's up?"ãSLEEP 1ãTEXTZOOM "This is my text scaler- clipper routine "ãSLEEP 1ãTEXTZOOM "Use as you Want!"ãSLEEP 1ãTEXTZOOM "Have a good day"ããENDããSUB fPRINT (T$, Xstartpos, ystartpos, scrxsize, ScrYsize, ChSpacing, font, colour)ã'scales ROM font to a buffer or screenã'uses line lookup tableã'positions and sizes in pixels!ã'font numbers valid:ã' font 2: 14 pixel highã' font 3: 8 pixel highã' font 6: 16 pixel highãIF LEN(T$) = 0 THEN EXIT SUBãSHARED ylut() AS INTEGER, regs AS regtypex, pwrsof2() AS INTEGERãREDIM t1a&(LEN(T$)), ta(LEN(T$)), OA(LEN(T$)), EA(LEN(T$))ã'size of charsetãCONST chxsize = 8ããã' All integer routines, as fast as possibleãSTATIC Fontseg, fontoffset&, lf, chysizeã'locate charmap in biosã IF lf <> font THENã SELECT CASE font:ã CASE 2: chysize = 14ã CASE 3: chysize = 8ã CASE 6: chysize = 16ã CASE ELSE: EXIT SUBã END SELECTã regs.ax = &H1130ã regs.bx = font * 256ã CALL INTERRUPTX(&H10, regs, regs)ã Fontseg = regs.es '+ regs.bp \ 16ã fontoffset& = regs.bp'MOD 16ã lf = fontã END IFã OA(0) = Xstartpos - scrxsize - ChSpacingã 'arrays of pointers to byte chars byte patterns, and start and end colsã 'for each char in textãã FOR STRPTR = 1 TO LEN(T$)ã t1a&(STRPTR) = fontoffset& + ASC(MID$(T$, STRPTR)) * chysizeã OA(STRPTR) = OA(STRPTR - 1) + scrxsize + ChSpacingã EA(STRPTR) = OA(STRPTR) + scrxsize - 1ã IF (OA(STRPTR) > 320) OR (EA(STRPTR) < 0) THEN EA(STRPTR) = -32768ã NEXTã YEndPos = ystartpos + ScrYsize - 1ã YStep = chysize - 1: Xstep = chxsize - 1ã ã 'bresenham*2ã chbyteptr = -1ã Ycounter = 0ã FOR PIXELY = ystartpos TO YEndPosã ã WHILE Ycounter >= 0ã Ycounter = Ycounter - ScrYsize: chbyteptr = chbyteptr + 1ã DEF SEG = Fontsegã FOR STRPTR = 1 TO LEN(T$)ã IF EA(STRPTR) > -32768 THENã ta(STRPTR) = PEEK(t1a&(STRPTR) + chbyteptr)ã END IFã NEXTã WENDã ã Ycounter = Ycounter + chysizeã IF PIXELY < 200 AND PIXELY > 0 THENã DEF SEG = ylut(PIXELY)ã FOR STRPTR = 1 TO LEN(T$)ã IF EA(STRPTR) > -32768 THENã chbitptr = 8: XCounter = 0ã FOR PIXELX = OA(STRPTR) TO EA(STRPTR)ã WHILE XCounter >= 0ã XCounter = XCounter - scrxsize: chbitptr = chbitptr - 1ã WENDã XCounter = XCounter + chxsizeã IF PIXELX > 0 AND PIXELX < 320 THENã IF (ta(STRPTR) AND pwrsof2(chbitptr)) THEN POKE PIXELX, colourã END IFã NEXTã END IFã NEXTã END IFã NEXTã ERASE t1a&, ta, OA, EAãEND SUBããSUB TEXTZOOM (T$)ãSHARED BUFFER() AS INTEGERãFOR J! = 1 TO 500ã I = INT(EXP(J! / 100))ã CNT = CNT + 1ã fPRINT T$, 160& - I * LEN(T$) \ 2, 100 - I \ 2, I, I, -1, 6, 15ããPUT (0, 0), BUFFER(-2), PSETããREDIM BUFFER(-8 TO 31999) AS INTEGERãBUFFER(-2) = 2560: BUFFER(-1) = 200ãNEXTããEND SUBããDieter Folger Mode 12 Graphics Print folger@bnv-bamberg.de 06-15-02 ( : ) PB 38 2258 Pprint.bas '****************************************************************ã'due to some problems in the ABC Reader, the original code wasã'deleted from the 2002 2nd Quarter packet and was placed in aã'ZIP file then encoded in POSTITã'****************************************************************ããDEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4ãSUB V1:OPEN "O",1,"PPRINT.ZIP",4^6:?STRING$(50,177);ãU"%up()%9%%%%-%Zt0^Q[k+f2-)7%%W.%%%/%%%%uu%wnsy%SgfxJdz<>]Sm5wP]=ãU"Ng\%JZFFgfKp28ty,9:Ya]I7*IFcNbc%$F1T*Q6A:Q?B(8>N8O,a_-:NkcgEXHaãU"al7lg?=>hQ?LHF?z/^GU&PEK<[-BDe*vj8b&CAC_=Go30WJuakX#O*[[72aSM9m8RI/pER?h+McTD0B\)kRCI7OãU"h+Uz;>_[/WBjp&4,9t;pEQS6T9#ak)g:L579ãU"6Y4UEptkL]pM'>oA5b.DCQaD'9v(,/lEvlTJG^=SQnk=&f/M7WZ]a%Lk2K)]Dy)ãU"25mopqoc(c;H%*E1qfYRP[e)_Z;#a#vYjlKpe/Pz(L;'eSflr#3_(f-&W,0gY?gãU"17w5)M6SR_>]7lQV;SChJidliG2,sV43,'fN39[bh6K_+ctslx4aOx_9Ss>2$o/=ein>SK]L:RtVk6#:.DNe05HPv$JR-XZ(lãU"6HnR9FwL#LBbjzKw)3Zr&)e7f>C*EhaEWgs$Y.7Eod94Ww=(4.>jgzaPN-'YUp,e4508vãU"Yu\,Hq&jib%43rDR6mWVf7A>_N$6tl0/v<4$$_(jC,j7A(*>YRjUGM3?XWdz$:#ãU"UV[oS([GK7Lm$=T/2H%?TRVSmlEe.ZV?m[gd3v+V^sJ+pL,*E.sBg\bfNBs%We%ãU"_e)VP[#7i_t_?q2f_cSRw5XVqo6nN'-4Oq(IfpLuW\-xN%up&'%9%9%%%%-%7Zt^Q\[kf2%-)%%'W.%%%/%%%%%%%%%ãU"&%E%%%%%%%%%uu%wnsy%Sgfx%up*+%%%%%%&%&%%]%%%%U)%%%%%ãEND SUBãCLOSE:IF S=40AND B&=1150THEN?" :) 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\1150,219);:END SUBã'>>> Page 1 of PPRINT.ZIP ends here. Last page. TCHK:40ããNa Than Ashhanti Screen Mode 1 Colors na_th_an@hotmail.com 09-15-02 ( : ) QB, Qbasic, PDS, PB 27 511 1staat.bas ' CGA Testã' ¥e.ãã' Set up the correct GFX modeãSCREEN 1ãã' Set up the colour in their proper slots (to easily access them with OUTs)ãPALETTE 1, 1ãPALETTE 2, 2ãPALETTE 3, 3ãPALETTE 0, 0ãã' Now the OUTs...ãFOR i% = 0 TO 3ã OUT &H3C8, i%ã OUT &H3C9, i% * 16ã OUT &H3C9, i% * 16ã OUT &H3C9, 15 + i% * 16ãã ' Let's see itã LINE (0, i% * 32)-(319, i% * 32 + 31), i%, BFãNEXT i%ãã' Print any sillyness :)ãt$ = "* ANY PALETTE ON SCREEN 1 *"ãLOCATE 2, 20 - LEN(t$) \ 2: PRINT t$ããTom Nally 3D Wire Modeling steelweaver52@aol.com 12-15-02 ( : ) liberty 2343154800 HUMBLCAD.BAS'>>> Page 1 of HUMBLCAD.ZIP begins here. TYPE:BINAA TLEN:115471ã'-------------------------------------------------------------ã' 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,"HUMBLCAD.ZIP",4^6:?STRING$(50,177);ãU"%up()%9%%%%-%P*daR(N=>),%%%%[1%%%/%I%%%8)4FVZLS1z9rtb.>AlVhãU"Sk^v.%VqA8SufaWXr5Y>tV_%*JbN)o.7DG]8QmGVwZQuhfhbYM1gEBCvirk^voBãU"KL5HVvgMf8q28U_xX]'Yd&u%p()9%%%%-7%U8o7RPd&=i,6b]AY(#a/mf8c9HEDtZMr3%_oO32(\Do4QCzãU"mUbãU"qZQJsg^yWC3bQnC5&]^t]t>j4Q))AIhãU"$nyY%gdHCiEI_uHmA#z(BCl44[v[XAYI^,HnLBY(7fVB]JVXaGgjre?LpuykdcfãU",6[R#.T,0>OigvzhZne1QH+=T6qc=&DBb3dlLxcw?$1>c3nkv04pNvtu3m^YsEAãU"(Vuek:8?#uu<5ZPVfvkR8MA*t:]3$MBAsV5qvZInTL48IãU"eSm&+tIjY8lx924+39.^AbiJ;ml/GXIT_1&5B#Np>(QJ\Mq4gL7vaHdlK1,L8\uãU"].olh7$qgYE$q6LO%4US>MnM]kH_kI,ED+RF*,M^gh<-ZGU>b])olE89NeOKcLfKeQSO#$thnER_Ja)$]6LrGqVvãU"i4geWBuYR9%BF)JP8MokT*ue?%)mi0l_xh*El/ukT='.84sqAg1ZHCoE?xx+A\jãU"foQpc141DP%nh-RjYXt0av6tk_9PapT;tVov?mNAl:4tZjãU"dt_k,rh()-F-i\1dZGi\Crob\t9rUw,%up()%9%%%d-%I8doRw4=I(C%%%%[1%%ãU"%1%#%%n=)2;YZA?US1qb]W:H:BrB.Pn?\)K4oOTc]aH8MwheKãU"c8Y^8W,rfRqOa1;qa#X'dXrH+h'Qb\googo?t?th?roR=8u\j_fr$nC.2d4z1AiãU"#G1M$#/gZe2IplIFswL'A7Xc()XnD?6=54U[0[R:s'rEC7Uc)(.*Dz?;U#V6ZZrãU"m=]rA.IdDjHlkF&s;MZw4%up()%9%%%d-%48.oR]]4po$%%%%[1%%%1%#%%n=)2ãU";[\A?ZS1V#_U2?NoT*gP-GG.-SrI*MG2EGOld8=jfW>XH\nO6idLnSvQu=znthq[$mIcãU"sBVX+xNhJ_Hm]4U8RHv9pcBY,kq%7du8Q^qPcbwC4j>XKu58hMI4gVXnvWB#vA)ãU"oN(u%p()9%%%%-.%-ofpR9-#+Lu&%%%[U%%%/%%I%t191g>GSh1AmQ0$-)4KZ]pAp8=d_aYWLhfjh\MEUãU"cTXn$BJw4_6[Dh4:^6$+#AfdoTaUHn=IHK9fT7R?lueSf1tV8+M#N2=[qrN]Wy#ãU"P&ySs8?WxcB6,h:g;6\#?Y;]l2-wDãU"gA3m8nX&JnrGREia$^qDjkac*>0%XNhVkM3akgD^_>ah&2M[ygQu&AWZ7)B^]:3ãU"?EG(con6,t=4LS1>WbfTEr6=PtQXnc-lo=exãU"tMW(YjY]k8RS-nVSz6w:^.N)tM7$Vc?/C>M>NgO;TjW=.uUSdX3?AN/oq^Hv(djãU"dmHHhhSiPGhpouCof]FwYq&Pn+ãU"l5xY2v:A\prC;KX.I9KwSãU"HjF>wE\'ITTSbk]4]p(^splUrRvWZM[pDN^aS/N8XujQ/([44CJX3nPL3$inoqoãU"(JuP47w:.lx.Sxk)whxW^owf'_,up%()9%%%%-%)6lfRLA3Js'o&%%%[U%%%/%%ãU"%1t19hDH;S1V$<_ws8i5eDV62r>M;:zhkRaDvãU"gllQ<4DksmQ?qd3e/^xYH0JkzH8aH]SXF(Oi)axKW].SekZjq*,Qd;C'=DhW=_tãU"vjXDkC6W\,4c16J#s0i,?1h6?[htrLdwgR4CeTB76mAnI5<8=huDGY^def^de7iãU"wp$ceUzEsMBt3Uu(&/\c1vjTM%N-8mb0ppqf3-PjDct,rYD#ha,*N-_%5.NW&1rãU"Ug'nBu3>IDPf*$xa]waDCJO7x_d1[c=DN6HRRuco37G#ikgwOra*XKVn4vGNBl#IHVãU"#HO_WnF4IVLx;GN*$Sx]uDYBagg\Qeke.sOLdcx9Cx-Ek<^'Rd9%>n2'dbvNdWoãU"(n.4&2/'kurQtxY*eYji+j6Uy\Pru#k+v>y\?nZ6wTSWN\fhd&eT8?\74XD;+>:9\+WNDHb%(?PUXJx*XH&1NEa4FoW[;T1drPro&n)OpQpS%\Yy%]ãU"#oxvmF;E4xHQYw:#Zx.1NbSS498];>j3u2\/25=b*29ai'_+&w\P>&ghI;0Y\S'ãU"u,%udtLf_.[DXSn)r1j?c>&5:FhQ=MCYOK>;=NWx4=iCX(ucr*%*+>Psl,.H>NQãU"P7kvp]h4#(/_ZvzAOXMajp]*u$t0Rgo8;xw8[AUdT2;Vn)DAQn7k=_y*R3iVlI8ãU"gCC9zQ\uwx[Kfo;*%dm7ihG^:ILS^UTn.xp'Y#bgU$\2>fcT8db.$u4fFT]rX>4ãU"Z:gw)2[M_q)Gkr+8AiCY>jhVZ.1x)$UNRC$xCmx+xl(u%p()9%%%%-1%;og+Rk#ãU"5+w7&%%%[U%%%0%%I%t19Lq8=4LS1i>L1t46[^^.=(%$Lagqli7uwbhHNXãU"%Rut(CsQxk45tNG\0uun)pgL5;Co]2?wLBUCRJtdmZE2^nIKiL\U_Nw-I\VnVB7ãU"zhBd*(?7Jm:fxQRhYId(3N3o*wXRCetH7t6P'.X?U+TCjP>:Or'.\eWlnHW>Vk[ãU"Ns_'Ip6t&t=kXIFg-Asxpt0BqsEbjg?3vFXEQtw2nsguvRp]TKt*8(/JGN9ET/yãU"do?H:9d7\M6[w&Ok/pANe[TB6dEd-;DD==tZd4e[ig:.d1K6,bq(B:Nuk,Lst?.ãU"hN9yEp9]p8Kb;m2m;#UPIts^o.dV2x>uQ9^spC8H?)RIaVZOh^V60g28Yb./SncãU"xG8'QO3_#$s=bvTd(8?7Zo\k\1YfaTQM$lRlbm-Xq$Ht>/ubGg]+Ed68(orEsx0ãU"Ni+cXqrwHVYN_NX^)xt'r&up%()9%%%%-%'%rbREorrW&?&%%%[U%%%0%%%1t19ãU"u2>;HSh1W^W_L\KvtfK$xC#1W(i_HM%q#XWwjE-/n23H-Ct)ãU"8x\0wKH]T0de)ZQoj0qdVOX;nT5X#jp&Vsa]px)RG0cSHmx.mGR1^=Fxx5k5pVBãU"*xN3Flv#awn2nx*5sx'Olxbow+xl2u%p()9%%%%-:%d7f.Rz'4%%W'%%%[U%%%/ãU"%%I%t191uHASh1#?THj5>mK=[Qxng]bZ4F?EqHgwsdG?^f8R;_r%2CãU"nFd)*fkNFb?J(syk3\He2faNZajQn&%oQeGOio1[tQP=Y2nhk\.f./-x.12qI_%ãU"+GLM7+el9\oa1s(22$Nk-HmG0?'i8hãU"4Sx2>oj4,8*G0tX=DJbl\R_xehlJLZ[rHYILMuOs>pz;nK6ãU"5wCzZQLUil[F6MV)?rvpx(L[cOZtdgpbSPFDt;YYJBR7Zo(N$C?X3NLy)oJ.n,4ãU"n(VnJmGV=/N=oF&;&f9*WtLwi-e_-JSp0=akj=iV,)TkavUC2w?fWm;I23YN8qrãU"^PXpG^OlK0]e';c+wkkHUt8e,Cbu)07FJiEdVZfvR^^V)Ug5ujpC<5?v8Xkq8bNuc=48F3<6FpnfS'ZE5?>ldTlãU"2u^^fkdeD$x'SxV20wvPRsni&>up(%)9%%%%-%][)aRuZCbOY%%%%[%1%%/#%%%ãU"%284FUIUS1<>?fKb(/OU1YOJ1Z3,rrLoa&U6nbldY3698:ggN1.8\E]f1eWMy6aãU"+yCgA46/pXlL:fa?kL>2E?%QpbNKafsYb*LstPNbRb+WVqtOl=XeAãU"0nFaPNIQMku&mjrPRfrMlkF%pO,8Onk*VNbuLwWPX:p,U$m8f8X^U$2*HN%u%p(ãU")9%%%%-%%j)aCRcUX*ar%%%%[1%%%/%%L%%84&FUVSh1m)CH9V$HRY+hT3=y8M6mlvB(mG8;_X^eMe8C*Qa#<=;KqBrPmCL;uHSZ]Bi?P4ãU"aGJhrd$3M'[Q7w]61p5kt_;_4t748Z(Tt#VL;]r0T;?Cnp=AvuO/]sM0dl4.:>#SHãU"]FAD#5MK#BM_%mYt^'>rSKuO-,FWq/-S=]dF;#ki,:dZFDBrQ9nP;r1*g<>tqoRãU"Y\QclrN/&ycAxaCh[[]HAVaDj^MLm<[Pkdgx(%up()%9%%%ãU".-%P)RaRl;5Eiy%%%%[1%%%/%I%%%8)4FUXLS1mFNoa.EwYE4XYRx?uixT6hY6TlmD4X&NãU"&up%()9%%%%-%&^)aR7$D&]&\%%%%[1%%%/%%%M%84F#UYS1hyMaaHbqãU"U)H[wrL%JcDOWqM^CuZ8xDYQol9H=ZãU"<)p6rq2I6V_n^rSS3ot:bm_InCRQcqMo_ME6K:A1w;E-npSK%6M=Z8xg'gd]Kx%ãU"4up(%)9%%[%-%I%)aR#$u$jE%%%%[%1%%/#%%%%284FUI[S1<5?6bf+3;E5Lj#>ãU"+<4Cb.nI%pWWBrvTTpg['5QIM+,hjJIO[AJs5TTL^&U\p?BPYSnJ#-6hXmlHb&[ãU":]8Ia6N[cjZebF4OTyckD47;3WO46L=uD)EXbd8[7=4SZ)p2X_Jn2USpj2sG:8(ãU"n_Dd>R/Y$BmKV]#qGQqpf/bcY'tTPJus=HpV&hambnFzrg43%IrU.[bUKcpZT98ãU"lMfI(5[c#pBm$i2ZxE#n8Uuh#HXWC$A'=39WãU"$\#Y4U.PiD8E2_i8e;re:kn)G&,H1ZKN#/w'71e'gM$$UãU"9%ptfpQ9KfTBp[DYS>VTMMWEq>dYgHaMgu-i\$O]FL*-<:T,)Y\%%%%[1%%%/%%L%%84&FU]Sh12<ãU"p9pFO*CN2YXYM$UuXec#NSKfl2niDLu7=68.')RfdT4jUntnv>Iqt4%up()%9%%%%-%')ãU".aRX>7$?+%%%%[1%%%/%I%%%8)4FU^LS1='\+.+3)(IPV.Mq%RAvHdxwBUc8+m6LlxAafQdthLdvs=fvkE,FVTPFC_\vlmãU"t$s'x%up%()9%%%%-%%/)aRmqoO('D%%%%[1%%%/%%%M%84F#VUS1qh(=VHmn]G'HDrlWHn:*=i.7Ft]?0>ZJq_dr7.ju%dup(%)ãU"9%%%%-%5[)aR'W<90y%%%%[%1%%/#%%%%284FVIVS1<>?fKf(/RU5PTZ#.W3ER4ãU"atY&U]psbS;*G(Y/Cqg?%X+_H+othejkrWJfjV+a9V5Pb?'T5_ccrk5Ld,HtfYAãU"H?nM-ZbY_mnFV;^KP>Jqrq?YYDX,V.tGnm=smR>4&KXO[2XY.[/MJ=,N#k0tLD<ãU"Z(uzRALj:X]w7Y,rgxobh]^cONt>pnCA8fb>[])iXQ2d*xctSUK.sIe\]EpWFb7ãU".,#xTu%p()9%%%%-%%**agRH[/)_a%%%%[1%%%/%%L%%84&FVWSh1V8DOGI15'OXOC&p,rc9Ew2utãU"*Rh&s_c.o2mVevjmb?Yj>HwItA>Rn[l_vY]j^LX]p]DHSv$;W587IGIDsBjOwBRF?vJnG[GWV^+W+Tqv5]j8d?mkmu)ãU"o;cbF/?dIGaApmx)&Ma-VlX-hZUHsFQv1F-emJM,^./HOP[irN[RlCopLVsl5pxãU"N+%up()%9%%%%-%B*maRsP=h_Y%%%%[1%%%/%I%%%8)4FVYLS1%>^f469Gl]fS\?(+7NRoN[n'\BlIp8F88TAtt7WD^ZH[i8vTfJ>3ZWT4C8GJmx=tO?aM]X;JqjkTX^WXMC#B\Mm6*&M]crK1.QoS^'R5--&9E)2QDoT'Rs5-&9.E)Q;oq9E()djtHJ5-n>a*:#gw(=R_3,OEãU"tDS=5U?h7BsL_?43#=?WB]sQY7n7fu$g$hg:V\t3J2t,fQ=Y/MaUYFkeUmkSIQ:ãU"_J);%XC(wXYzL[(fj>7LVFE0ioCr4zC/)]yTt8bFoisheE0_T2MGT+hC2):yF:4ãU"kbtw$P4UA[$EjWY%4#dc=UhtV&V?D6]I/sKN5JY(pbZN)m6YIpjuh]O3)nQ3\7hãU"[24AW/'TgVE$g)MAM4BVqX;',wL02_[R[VBiJ+?Vxtp:M-V0ãU"H:KM2dVlIYS7V)Y0aio;t\g*gm1fDxKRKnya].6/#KOUld8wd2>Kk?_P3ml'VIMãU"27#WtBl=>5&ZlhnHO]'4U1\,;EFwcH0NK*Ph^*n5SpaE5r./Ph)=WbJqb1P;bvCãU"HFX3^txWu$'P9:L[j:yrkYC>IWM(jq=>;u]VFs\KO%f(vIqRy*T+<0)*TtJUs]OãU"220KI_)(AJc1R;un^I1HYYRSB?s^sG]ry]cKQDb/I=Cl$^8Wm4IQ':4H^S*0fU4;[M,KWg+&$jx8%cB+Dux5kMCf4h;g6_QgiãU"FW6=5L4)O;^l54B6EOlaX4*'ku:#:_Fp89t.#pu38XQ0KYt6AG]cPJ(H.%n5=R,ãU"oR;Y0$5]poi\dQctjJqy'Le*O0U7gKCxkFAU^G(%P3,?8DcaSW-G]S_yR'4B/8d7B;HH<]'IJo^ãU"[iZ+HE&rhUID*nURcXaG.=LCb29E8cY-CK,>R29Jj26\6,tb1HL;nqN^,ãU"2tC,IIq3$PP=i]8Mk4j)6Js*_G&JOq(U]QK7c;t^4LdI>gAy*M<,DjjnCHlP1Y.ãU"iB5tjDw1th;?C*>SySYyFFU[:8^+JTj(/ZiLv-c*&vX>yQ'WE*KMxJ_yEVEk9[/1WM*ãU":r$58N,Sike:UZ5x^/N3b*sdmcz_TH>-(V/?*ãU"7'u(zVWK\(fqAz2>nl&_Xb1SOQãU"S$GRb1WJH$NSqfj[%;JUEt'.OTwOrQiC\n5r/Y4Ukkn;Ts7r5n43zN#\v)\'9h^ãU"]vn=EX8:Y+*JG(Lk2U<(nfOO]O//5mjm:dRfEkaj3]bcVG=:hesQdQ[EFaU8[v=ãU":A0^mff(W0YcL*RBt^[?W?QVoIx_wu:N1=;%q#y[^6jZC(Jl/E)+%W$It?VrAjCãU"rUJt4+stnfHIR-utUkf9pc&KOd(9P%X(,kcLm3I[^\3%y2j:VqãU"cBQigqsL$o9V<'pKyf#U]p9cpc&OLd(9%NX(,c(xmkoãU"AyzKx)Uq/v*C3f#6Xu=TWb&jy(]t1oQ^hZy3tRyE^=kJ.YJ'BOsMJnMutOj#1CjU1[:s4XvdUSa46oN?Jq0MKyU7:^R\.ãU".SEnE;cj0*exqWhx2Z1/(Rar3r<17,uuaoEWSN4t_=V<(/RIqf/+R,UIFHYp;,oãU"K+xb$P]Erq;b3jo.gaM%4J3R$;._.6$_e$YG24Z)xiibRvhL_Qpe39R<_'CrpCKãU"qNg,4m)=r:\=o;k=C/uoTm=\Ef$[ew2]/yc$<[_ku/Q:2w1#'[A3af5(5i^4L^(qUãU"^?BdAvL\US.Yd+2=Mg*9AdRv=[2^ArUD]X=[CUsWRnaiG6RC+XN3hJ,i6\Fn1G5ãU"DldjRg:d&wi#U_(p]$S5hUzDh*O)TD5%i^'NY6K;U:O8tYIEmaXF-.1*=(aF+LW&&(sS>b%giQãU",VpJqN*+H2;E*R<+NVgjj,TnF_6tcwXhPE%(1EqK.MWsD5Sh:[+tJJUs+/[51gTãU"d/1=GfYdLi(_Cz'_R/5S)%/51sgTcUX>Mhqj7n4IiO.j:?0xf26a+Dn.1w?dK*0ãU"R\+]0c=nS3J>FUa'qdUa_:Asc=S+;d?=831:E;CQ3mj+Rs$m5+V[HC27R/FdK80ãU"3a,UYRFSjhqY$3:h5WKHWFm?;s3MBrGQ>r'NR7aRzXW036/=$Yr.VMV9AROVãU"1^uTZstcl7p^JV4?$XAttGVaD]Rd]s79pa(Y\MlyW/jE^fYhNarH*V'wUa\:*axãU"pKaI1>cBMeb._?>2>n'K]POi'y$jglDaR<30>S2X6%$RWVkg:&sjuC#tbX*hjlBãU".8+4=dXMlpo6dwk69t:Tc4x$,qavJf7.><1E+V>c_0\fb+vp,nJg1*Xu:0wv,V6ãU"IL*%c\od7LBVdGWTK;93uv2lKy[)A=<#gx>6<^yL+Il&O1/)4?UG_#o%-=Vf10)ãU"R9mCJnw38#o313h;Zy)HBxQoQOfbkD&>gKSJ2uiCem]ãU"Rfg/0B(:>HCs[#K03YM0n3-^5**_B]K\?S]mM8gz,M)UQ.la1WZhaQRxPssZp:qãU"5^?XDBw=s6mWS1>*EYV'Xkv^B5*$rMu=xw&;Yb7f,w\UX=b2/=+ãU"VT8[W+1G.:.bpV_veCo(\'\6sV]AN_%m;-:GMwI*pBRAric49$5MvAmh=cB84ObãU"\0#Wqb?xbT3FU#1(=+E^MH-Q:>F[Dc9kLfy:oCeK7krfuJ-Fn-Z^Q&;\Nebu7b>ãU"^ap'RKL5kcBW6np3StU:PxEllZs(Kn\w<:bwaPLk'%YrQ)rM5J]jfZoMCK.ckB^x6L\p1iE$K>;]lT+DQAAnveb]eãU"2/=ZYb2RX&:MixgK;Uk[;:yDMdBCw9NbG92/2nb8KFt4X'p6HhB1YbvBTh43XbbãU"HS.Q),2_Z?lHR6VA1*R:k['?_3NMinwGb:vqS'h8.e[8Ea-OeROohTvf0$2DaGhãU"u??D)&Sf7,8b1S/B-(U1t_?#$Z>YdBUUCtV&/WBotp(?HOd0,b[jQ[JX](1yky3q4?UM9eKf[jXc'(U7PU&R;h?sãU"D(=Yt:pXfGwvOXFt^7a#Q#Kl-,KzGr$ajAF.4C4%veYV7$hkKD/VIR>F?hX$l\gãU">rY,le]KE/CD6fy'uXHB)'24SNM^IM_J[rMvLxJ*UZ&kea)I?ncIlDLv48TXX'QãU"K^)g-dU]Z:JidNvLãU"r#fqVJUP,8?F]Dy(n[yt2&L4_j>H:W38R:M&iwY)I+40_DSl*RtNplp8In7S1oHãU"rIe#Wl5sUPbs9B0dSrR&n+%=7=aegfmQ0.V7T4[WY*k(>CkgG,vdmLT%4;3.N0:ãU"1Q:zRT[WYC*(R#/%SPf1UGU1>Mh:t3tY[R[mNKSuU=bs?V)gGD2Yf4/,=c[/Zf8ãU".tRKit'YnV-9^wxihyF>],,>h=?5Ah[?5Mpj?P7]E%JU-+p:RXvfh4o.7*+:EO=ãU"U%/d51Q:\<*+:RE=U%&/51Ks1wF<:4pg')R/51&=PU-s+:Y/g'R/)6GY.b9s>MjãU"A/51Q*:<*+]:E=U)%/51pS2iN-x2,R#8=)RM/?*P%fU-+'0:=)_R,=u;Z^gh(jPãU"fU7-+0:I=)R/2?*Pf[U-+0#:=)RS:Uql,^x0o7)+:EO=U%/d51Q:\<*+:cYS17-ãU"kB(m./1QfsU1&9#E=)RBT/1Q]:HXq_6nc5)APfUd-+,J6WO=YGZ:[tS-1/9\:UmãU";69YdU(mmR0k:GjX2Kxx*UI(,UGGMB9:1)xRPOfOvsi_JDP*m;1r=o&OJZf(($OãU"&1SkxW)=Jo#KZ5md&+[+L>u_b.acmG?8g3ft.585(qO>Y+chaaS=-jhE/W5lvefãU"(:/>qtyJqh6SH4U>yEn:AR[E0'I+\+MrE9,A/51y]JS1W8[V%U4=N$NfD=k%YK,ãU"#?:SRJPgw3_\6:Y(XlQ;q%fs5^Gk4IlKBFq+Zn&QFxrT6nC-kpf$0TGR2$9(1WBãU"eV)ROLG/M9.<,stb:s^p_f:2:EO:xY2iT^adcGp)di#[fdg\+*kQ0=VkkB1g+86ãU"'cxq1W7=1tW9Q7:EL=sb0M_EN\up.VX-Z.hj#+ãU"3^OE:3Kbj13(k#Cb>*5X:jN^1Z:9\/l+8?n]\SSAT,(k0DUeIM4D3;_E0-QT&HFãU"'me+<3XrFNpE0ganI1_&G>?=Qf:X1I2]%Us8efS(eGERgVDMdcJnzB6eJ-R0+NuãU"^>00]Ng(KiC=g)Rv9rYs&#rY\9IFBFj4(+,1.[1?+86r]bSMAFJ%D'-f\]_hLGiãU"Ysw9e/yb?=1_x9rGlQF9:1W-+1:E=o-h$GaEf%%+X1%hg'R/)%U)+H1+861cYS1ãU"_gd]Q:H?YDM$o8<2&*bPQ$(/Th\*L=-eX6R-XXteabl,Y0%*=aHU+,,0lP?oWM$ãU"lxOK71aHJEN0_IdL2*'I3eU&GS1;:j6GE4Rsk1VhJm9K-HRb?HiCwd)+^G]Y\ctãU"Rj<2f%ija,lp>YcsxEYF[ChU15O:jb/UvLU.-+HMk6)hTb]o4_ETpx/;_9HrCizãU"(RV/?'7d*+>oB%Jr,0$on<9F>-hA/51-U%RD5>Au$K;76C4j+(Y:f(dLU^jZfYaãU"^1TO6&xc>Ps^'lH=Xa7RQ\G%L'(?=)YRJtq4n(KK:l5IR>'uE[I=)RvNE/CãU"L1K.ffct(A8Ra+TUPO:b4Ei:tnqC$4NZ'R)s*;XU=(:3%P.1s1m>B7TUtiKUHEBãU"'+brnQ:,M2?%g4$-[fipPuuqZm]pb;4&'clm>-:x)?ER.%jhff05IDi3uhJ3uh1ãU"f)^bhh0J4u>,p]r*K5n%nZ13XZjDLmTn1(l1I&zd'<0+tYP:(M$w(<2%TlbqhAyãU"ML[y\f]s,]qJnXKt55?,>dEwW&3F1RIOKrbIh?^w6.UW&+4UuMPLK,2nrn6+f(/ãU"S[:S>RJmCTY>WzJ0uMf_c1uwDHZ_RMbNFxlGYIX>4Js;C&[=CA:;>35ZcOf(UGVãU"19_=3h&:X]N^U7>uQvHnE;$JV;Q<9/F#+HR2riEAv$T6031XO/5C1-+Rf,Usq'WãU")=)qR/i[m>Iu6I.UGp#1;VscjXD-#1K=Q]:z>uQC,v,<]-0Om+1'=n/*<>%1[%4ãU"q3_ipX,:YD#Xmxn1<,df?;XZbU;RO+4+&lE5ROY1#O$?RVFR8TiVkbHdrUR'.J1ãU"%1DN^c6?iDHc/.tefPe3>G[w1oVPq#i3Y_NI2:BV:KGDvKrRE,]'RA/51Q%fU-+':E=)qR/)G3YfmãU"d.$u/5(1QfU7-+:EI=)R/.51Qf[U-+H,$:TcJN[&/.51Qf[U-+:#E=)RA/51E51ãU"iHfA/51Q%fU-+':E=))R/51Wo6itQ$H,P%fU-+':E=))R/51\QfU1C_RT-?u89EãU"I=)R/d51Q:*d25+MR<1\-:x*u%p()9%%%%-%%^*aFRf2f*2m*%.%[;%%%0%%L%%ãU"84JFhCALS1'n1jBSMCx-t/xujuvh\B?p#HDq^n8wutrfq\%taGlxlJv?2qr*Z]u;u3sH+ãU"j^s,5+>0Zi#J<#p,sd2v&,=70'l.luuZkj.8p0FW<39,'SM&janr(MGM,\A&P8lãU"5WtmJ\/5[^cd(KhJ2R&p_kj)o'GPNv?_#YEnn:\)6mgVA+qt$([puno?cMZOdtSãU"%GK^K0DtXPc+_*hDNGj265?=jl1Q^wd)qYX.DWYeT5gt8542M/np-Ha$7N+D,#)ãU"+X?(M;P0[r)H]1<%lfrg<[t63YveCUzUGi?]QsP$]u&khPd&\EY*0Hi*Un$*xrTãU"-ZmB+1euYlP,j>XJmrLtIEHjgxQ>/UhMC)aO8M4_;sSmsl6Yv)C*iF)n>Pq)t*XãU"G,&r(dOFvO\kGiy\^:+.Gh)[zu]*^d]eES/Bep&Y&7x;O7VFEP^cS/7FP8NzAVOãU"q%L:PGu:%dJHO/_x#$5/UIa4coR$J&gP#Q*^sz^&6$A_1/%qQjt-3q4Eve8_x*IãU"GsqN$=Upq.0BN#d,M#&WQK-nL/AOy,rN^XDA/vvYAn^^dRvj'nu;>T$\6jsZ6uqãU",aAu,&M)=_xvHvMy(&M/6ZKVtYk+G7%^t-x7U+3sR]mKK+uKUKv+X>3dv4ve_8KãU"YK(Mr+q/&;t_Jtu0=a#d'_sq7nnQZl*u_DYriLx>MoB&5rjMOBObp1pR+j,47?lãU"JEcvVBq/mPV4jdfv;BU*H9NvSnX2Lr8lFdw?\Qa72#fMtC4GwEkY&noM+s=ãU"2l,:G6>qFJJt4H5pft8I8tFO$(jx5st8Us.NR^ACv^(n)?tu=yU4wPm;M?)bCX:ãU"Zb#(-=%]hIamM?BIKRaJ9uy%$]3BvvGwn85o_qWbAvVsFT5c1)*:'[\Y5*P]O$CãU"j>9jxb'YFjCz5k'G'ER(btNWKrn%oLiw]Yuv3QG\((rO]8V=t\1<#5eC;bMesx\ãU"*yjVY$(d6#1E4MsbxA,lfpEuQdnz7?FTFtkJxrwR0;k/s^k%5Wr8hn<4N^TW+-fãU"RkXO&gTj(?$]#zd>:C<;wPc_6VOGp]%1Jw&3,=+nycNkvXWxw8w7\lKRHfihUj)ãU",RDPUek4XNJHDn\x:?OWK^IdiJc#+G>tYSU$+JTFi0j?/Mr.UNi4R6MswD0dE/GãU"_]Y\STEQ5n[:R:),K>4c'>%kxivCYOWFcãU"qC9ufp90B]u9sWs2'Q7NLZR^)Jeistf_sDT9%rDY+d3i5LMCDiqvT6c$kwhcaNãU"^D;2s$Zc:kBR+:j$b=ix[&YQ.NeMg0gfjxQ>ne)Y$nsd*sdj<=j2IPSQR++)n]LãU"x96;[>ox_WIawVYnmwAXZ7+k^#FvYko$ITn]Y,qMY6=VlljBU3Y_-XeXavq7zu*ãU"/8dvu]-tsBOSd_ziuPnitMGdTg4JN=aLqNPUgNMZV_nVAWCmC]>2HxD/DQK&fk^ãU"M3)(+mdA,hdVmEYA7u[ks)#G:VMNM%Mi8Z4jXG]9MAEvOKMeuLnY9#?:zGSvUU>ãU"#)ahsE6WFD^6)M'qLV5lh6MuTat9s/eD-s)2[OlvCJ8tE4ZXdãU"t/_H1lWMlMGjkux5w7>;PGeI[A6&lvq\/n\5suow0ki'lTup%()9%%%%-%0-11RãU"M.ym=&_-%%&9N%%%1%%%Lx0>(sq9S/;0?AsYrtks12d^*gpQ0SeQj?JUX6UuMe%WYM4vGYBQ6IrjIpslãU"cZ9pu_s_)ZVYfju\vfNl/njiu_n^YnOk%56p-Co84h]=(D&\\IeVk[8SL\uW]9amb5/a?fY-KssOR?i%%'ns&.\&f0B=dO*CgpgMB&T;Ld)n^AdgDEcMs>XxE+bVtãU":2OJW8hg_6.oR1L/D0/IF?$wZ3Y7x.*(<0FR,yQ^p.Bf$BHx6qGEOs>/6\iUI)M/Kpc(>]S*8*7rN,4i:*4_Cx#ol7^x&ãU"n?]D4?U-tP-]1jMCIAsU*p)rE^4A44].ss-+E]s:2^mw$D)ocnBM-e0xSbNVMk/ãU"GF_%OkO\F'>eUC+AsGRHP]L^;[p^dpKNlZh&oEn7]jqJuvM/R,974dWJrQ%NR7+ãU"#rr.:^JEY%9nLGqP8H&n6Ow?Jh0g$+L]tRisR)=m1A:,-P5'BPp.NkV=uK-j2$;ãU"xAR'_/TDWn/i#J7C$KIG#u/=&t/Gt.gkH-/(xO>M9[PI'#PVhhj\*#wZrKSPzdbãU"#^9KrBeH75hauX9W1&/3e$0Dq,WAG*7UU;[=p#[goPFn&2XTrFKa[=;?Hb*Cz$OãU"N&aB0XUuNHd8c^M:bs-CNaQam/6j_c;CLSu*7av;b#/Xxe9-i_6J&(=:X2,)tXmãU"bJRd86%1P[J9/M(qUaSnt$XI?u#ue]RE&/T_s+Wp7DQm/e>3tn4>=GKFW+/cn,q'?*GEWIãU"Bt4h4s$6>OAd6h4v$6>Q'GYuPX>v*a#^VopksDmuUWAHVFHn.EiaRPX+e9;I%f/ãU"0(KmEk%5p5P\x?.[&s,:-6[>Qi&_ERQ%Z5M;#m6mYQPu3e=0\K+M/oyoh2/8I+NãU"HU-9:2_C'GC&>mPoC-7qLl6Cw)W]JP],9$#?2OMMpu=/1b;xW_u%VY,CucEn/9rãU"#;l-EMt5MYXVKD3CE[ntik-R'\CIY\9/=L(4hnb?g9znMSoyus7+nL:A,X)%s>-X\+-4<ãU"Uqv',8Dme(,umX3I%:NWaY.Kpr.%^;:UK=f0Qma_uWvmgIS^/.Y^&E[_KUC:WUIãU"I/Pve65^7W=4jH'=((r=.N+=^>h87n9M'H=g<1g[11*rihAãU"]%^ib0lZVM;Lp_58tTMAPqmTi:hc7u;BWKPn/pGsnGsQ+($%UwwZ$C3Pj*9S)[NLlD#d9SIF&c2ãU"1Qy:IM2s;oãU"'5k[KTC+c:Ms2s4d$O;]M2q;oT=SpksNcCVQa=:M%4IdNV&w+t78n2g2h\sqncPãU"MRcACi2ggp\-RqYswW-rbql3=f,MPQ'=]Gx[]q%vh*+Fp$hn^2M==VoQeT6Rjt;ãU";oYs^hf2A-B.CrM]xp_R\A>dLeGpcAoaS=4mM4=64LS723VdkT]ãU"IAn=U9h*aB9m%cgE?X6#]2,TON?1K0?9issZ4T4_%VH&?=RY#\'rXW$=HcHAUt2ãU"3uhd[Yu0A]$qY%vjnsdv^#oP48tcFhdu?wLptsDwiru#PphHeHdKZvoLvuhxrsZãU"f$H.<8Ku5uW8tZnndvi(dGNu5:o?dxm+l>(HlL4nMI-.p'juj8vuuVwui8vt\4VdPS4foL3ol#tF8v-zF;pSif0-jVdMz>Kha,$6.rDUN1r,]]ãU"j%Dc4L,/O#(ak:8,3iWg?d[r.Y?dU+KTTtX*xR6s8?rPrGtxsrlNxvKd\JzrWElãU"xEG&z$.gSzkn5i6uswGPlV#L3;(xRZ<\nctPldJM3rU]_LQ^gf%3?O=,'IIuz?bãU"naB^b,t1[St\AJM(HIFh:2ml(D=\pW.(WEJ5ubhopr$QdvGR?E<.B8QW6HkU6v^ãU"p2#87c-0^40*.PJ/$C#P,*l^8c/2j:%J]p=DF3Gxh>at0?oOTGfbS$$ugk_V#Vv]X0_3BakD1WMIWT82Ba>0ãU"]bZCn-/CMv3%(/mNãU"]$c0y+N+EkYdRM:SdwA6)owXmS?cMKKM=wqwUZ5P.i4JcMQ+ãU"=x4&QwjnIp42kV1HMo^ht.[UVed1=e*ãU"#%L^Zy#HF_C-b\1q/%HTYcA$rpp+29VF0*c2VFp=*2VE2JoFgSãU"=\AW3q)Myrv8RP/81q#P,h<8MYtvzONa#irpO/Q$+d](F4TG.tikb%A7HLo*a^rãU"thF(iSEI81ga[BVoLbUH3nDdL&eLCTU9ojãU"Ro%M$gnL[\A.J?V1a^C(L>*Z9I$)iAoXgSq/JgJxFA]4,#NfRv]+'F1;:Xt5filãU"0=T0G,lG;=cl/#uW5i/O#WAi<^(?^e3coF?kr1eYo6(mX]G;o0D9zLWFãU"DB7OfR[s>f3JK%mR^TH0D2*k'_mZN)l]o48DJ8_nu)e$<.#>QXc(U&0U*'gWãU"'tgQ\NAD*_E^U>(VULGfhM[-i.nd2EEd?QuACUl.RrpHVhF1zmY/GFfobaMAsoeãU"D82t2-yP.xZQM40=FcE+U0=$_3Uo0$_/aU0$_e=,5M[VvdGqvvth*_OqRT*f.yrãU"7tm_bp-^hcVW]hD&G_t$sJk8l)?Gr08t^x=]DTENPo:WPC2k8.eRrogQUM#?6,>F0RDUVx3^p/i0cMeVv-)BjxHp&^X-L<ãU"\b96g<W2mzV&u1n.,D,htV^ubP0_c:0IC6uT2K.H/KKd#fMarCãEND SUBãSUB V3ãU"L2z]bdsyZD+tr3iu^,jf(A\_R+QODhO40Kz2:s3vP1MG,pl%oQAoHIf-5E7pD\'ãU"%Ujmxc<0)uNc#iQsLN\;fkkG[B[2;fk6D^vtk$faX[k(nX,q,#sl?Y&b5??\RrlãU"/ulG3ttt2$Ku#mXK4<91fnHM5LGWiNDWg.GsLL>OH<_C#g*zy=RcTU4jT]Y4-V^ãU"iAlvbu4c4Z]IKswAQ#S5%<2RfXu%UI[PxuX%D=?R[$OpvUqOV_O(yF92bkT;cQUãU"MUzI*p\eDeU6CItNxyQR$u8[)O?/c-VRI8hzNB,nn/=jTfspZ0mJ5i4.(K+VJ7FãU"S6y22_dhzg,/d1PO\-=trOY>C7i_cmJT1/UFyl'tCmdW1YvV_%UãU"*CrK%#%oSkW0k-[xXK7ngLL3c0DHV>IZ9MHu-U;BPg>e/QCWF#Pmk^2_ssh$Jk8ãU"_F__cl/$W=[l/$oWcl/U#-DN;kHT23(\zb\<7B\r3v%k2rwfV4ddZkqwp/?;\*WãU"DqZdkI?Y2E^A4J,D\xE?Jw42P)oKDv==Erhx=+el1O1\s4KAd#ãU"yhjv^UN:kyFf'6_[Igc]eZA7Hae#H4aqN\txY9dCIDm;=juCaw:;UHkXncY?6F<ãU"H9NUQ,/:%s$+G%rfiNkU?6OEi7eiFjqPWe33fY[aP/IP[rehBgR5G?Zl,UPJrE5br['dAi.r/E-;yãU"+>o8E-sSiKf;60p'6mE5'+)bo=2UmC#&\ht+J3SmxUhPeC-+'0Xf5BWO)D0;W?PãU"F3SS;yE(ll'h)JH*40;rQku*diC/\j.c[9lHHgLxrHP-s,U3(bxU2db>_24uIb'ãU")dpL*mWZYMFUZ-uqS(AU[GxlQ,w9tWD)I])tf_k+=v:&h.PXhQ4VY#8WH'HC;q'TRq)v(BuL<5%Pb(*.pL*-c'L*'+L<[_;d>WDaR[ãU";;d(AAn'#/C+k>Cm-Q)z[cQo-;)24KAM]Hr]+BKYDWjX*6J0ZPDiFS(C*]28ãU"d2OT=_I6wlE'pTfDUpTtggd%2AqgW&r'wE>u/RSbLMg^l9*ea(\csvg_st.Ad'0x*.$Qm$KLdh*ãU"Y3$Q9PQe*PueIu/^njQF5JGrdNm\%.H=Mn-<_9n+N'uKyC=4v2a+Bsxcncm2wbkãU"(AsJBcw54oKs0M9oKb)vHo/B\2Hiofgfb>kãU".YlROXKX]8/i+tp(hNST5VwktF3v^.uVn8YYRvIW/]4+(%AWY\,RkHd237I+djlãU"MAQI%_&O?Z_p7>AM5/-nVAFX,Gb43U^i;X,mr,d:r[JRheu>HãU"5?+8VQFS>p'?4)(i.?T.YYv$oXSK^A+RYJ]tFW'dfeVhNw[)ICs%xcA2ãU"WInlHWfZVS^KPuh$[VaF7(jxk+A4.rp*p+>L4HiP*kA;AKkY*S[?;d]G8;-DpPMãU"AL/k69zNu_v8FH(t#-v2aB'sxcAar'd$UPVwkL4yha7Yv]Z:K-'r'rxT5grs.i.phNGP,Fv^DB/k](sY*]nU:?+7&9.j:rg3J]%7ONkãU"0R\lDV'i_3LjiLYK/ZH\+\FcjrTi5+Mj5nq/1(.dh)eM_Mw7>1ixEt[t-GK-',COF6=ZãU";]qctTdH^lZInk]r,OC%JDcj+&v^D.c_0sV5srt&7x(sV5srtfaDb)>jIuwH=M-ãU"M[8O\tO*US](De+o:k7wNHr#D?L8)NO8t6uK[yC4v]2aBs-LC-1t\dHr$Cpd$2RãU"9uI'FTJqprc(Iouw;MEmY>)#0Vcl_OjU2nNG:qb8wN:OYwtM'McU2go:7wFN:YwãU"6'Z4L2=iMRUTVwk7t3v^t.Vn8rYRvIMW]^rSp6.nDr(Hi&.oepP7=Z6.1Rp6%BdãU"1r.gH9D%1rgHA9D1\t&vIr]\hx(r^DPxbQ(BstB77d6Hr+)#m_c=p?R]>^l=?iHãU"lsHgO+uCME181a\&F&F>kuA05$uJY:2aPG0rUD#USQCFMM.8_M*ãU"HoH1aku9l(j,8[qltF.j,[+qltãU".0j,[q9ltqa:tcãU"9Vs;e:5ThnMGVHOqaC0x&fG7ZO+h[I5&eQZf-ro5r8BS^K(qR\TFe;M3RB5t;6HãU"U6S5NE&rilK2?tro#5fS;8vt5/45[OBw'kz?rBgDnRA.GR[hoLr/?uãU"g>7)KDz5Ef%>n&c6]JOSCa=459OHnM_r()kv-y/:yN$$8y?FFFwhDn]5#wCOFXDãU"Wsp4$d3SpX-K58g+a7xMN[&f0-cXN/&fOZXG%mlRc_xDmKE/JJuEU-Dt3s\ccicãU"DXPmQ^]:WkQqLA6zf.;F0(r*MJy:sh_Q9M.KLoNA(A8ãU"MP?a+&me]n(S.Em\a**;1nAT'9ZM2GMP?c+'*e]n''eEnJBCX/>q-U'OKCbJT9eãU"rA^8gMQ'27h12;wsQ:U%)y+we=RAgK7ZS)lbt,/3?l76KOv)Qgn]TC54?#=Nw\/ãU",][9byo%qjH>YdGPLM82YC/bPtMD7#bj=(mt6?ObBIdq^hhv.3+&\WE7NhE'x'uãU"p%()9%%%%-%0R)7RuYXQL&''%%%L0%%%.%%%Lg;36IfS72)>tzp,=TU99U#iB8GãU"%.5FdsRb/uk*9lb'7,)B9Jze0pOf6U8kl8zVbF2aoQk&O^t9a^<\wum-4XuocS&;ubU&H/ssQ?,1ze2Qm[N1QS5\Tk4N)4wk?JEs1DdzUãU"_8T95RA0Zi\B+6nTX^lHTm0sQW#9S2=k%WTehUMNlw/SjlGc8?040R.:(*6ThSPnqN4/*T1&O5I&S5P>.N3IU%Z5I'.K-1i09Y$5C&gQamãU"E%\5.Q'u2o;h9]7.)GM_B+3(+,tK77heH/7309)#gw-g%em.&%8-.F&/'FB=)eaãU"E%>)qF2sQON&Si%Q.x-8E&//F.#)qFSAO)&*Z&.KTVkBKV3M9*nILwv:.j>uws0x%'up(%)9%%#%-%i(u8RH;wRãU"UL%'%%]%/%%.%%%%g2;36gLS72>Jtz,>#8V5Kq^cxYdD5_fEnLba&e/5O/>-GpHãU"B.bc]UnnsZxjQ];+=Pr#Psvq,G?$$Wd,XvtvvV'_&&D'?N04dlvhb3U>EvA=6xUãU"qtVv_mB6dAVD8+Nr$.(SW-6k^,u2Vetqd)h/s4d^[No8n%Mv.nc\$T81#p[\Y*bp)T(ywM4s)Bg1b6_\ãU"h6-31C^2sw'+mJX59?/O(r%Nv/)khXc3%x#.D\v=N87iNR]qAoH'V*]cFR9._W#ãU"Q\:]u>M.:phv59_kPLZh2whcAj.oGIg6'D^:L:;2*incZ+Nq:IGM*Jn9ãU"-cC*n)^l/YbYA$/cxqX%%M,IMkP+WQJPj7aC+CGQK(d6fj%&WEJPXGa[$j&5KprãU">62qU]=NCbn's.unpbd,Fx*u%p()9%%%%-C%hx8gRu$-,Rt&%+%\-%%%.%%I%g;ãU"3A6hS7M2>tc9Tohp=YGHCB/-Wzc0dk?]>#6UT9>l4:6t(ãU"ILS)m6YDW+SXL,S9t/4%pgD8ãU"(ew(o)>ETM)-u\Ou,IfC&p\&vz%g/6tz)eS3mH_-qwV,$LtFTAGqVsy12Y9,hE]ãU"mt/bYE2/1255GdgE+GOG)9_SCa/;?_.w]2/QB]$?LHR])^_:?NfY+Q&4FT=EN1NãU"_>7\5Uj-A0#-kbiu2DGj5v32IlUYv2ucp_,)0SSDF<\bL)2ApR7U710).(hUXR(ãU"8U1\&Vq=WRQEND+KdEY_3Ih)7lqWnE9t9,dN]p+7$t=Qs0cTkHphuF\\l\Fao-DãU"vn6q%arTEsL%dup(%)9%%#%-%[Cz8RGT3NlJ%&%%L%+%%.%%%%g2;36iLS72>;tãU"cVsB;e5TKhnGVMHOiCZ0f/+8YmM=T5Xc,o*0OIp[PkwNG;Z='Z=F[p8aG#tkRrRãU"lWfz^u?KFnM[menQo6tH?2*\vfpW>/azWcTlf';cAOy=yujacEo$E+ARP#ICjx%ãU"6\iJ1.nv0\paq?f3%ni]7e04^&iRT.D^]L?vHX?MDd#1lZc/LãU"MCuCuatn0Rd>qr\OW-[%DUyo1_6KoJ[lU1/8LUui_rpWOiw[$(/L[yayU(l+#LcãU"$QK]-7n0+)Qe6liegtM2?q6qrps]4$)jD+)xWW^ti-HkEdAKVi$5*=u&9Z+*jhOãU"?JQ81e1^e;/_='^n%V(S^&I)DHwe(WfL(_S&J:G9+Nk1pTWn=#UkF8w*Aip6[svãU"7hj4MJTp_oa9PE45aBeE\e/-U,&$9oPcMWubu];je8L7OG+t)^IlPV/?T-gIk0TãU"CMdD+y?AL>dQniz8o4yi,]+ds0u%p()9%%%%-L%k(8FRsR.%:6+%(%U?%%ãU"%3%%I%h;>D2:y>2F4ASM72>t5'T=A.\1L\3YNg4BiQkFHb*r9f-j$779jT\XLR-ãU"=8Wm3d8xYJxZ8u176TV.ãU"-M.f'4^pm\t8g7DdXC+C'+XXr_k1YK^$7u]VFvNw9GBtFqiHgTVNp_^fnZWr+b,4nG;H.&f'?*Zr&qI.K;Rj8.u*09t8DLC^cXSLGlj9HGE5&g\GGãU".Cig\1wOCdqAY+m8k_OCyC#wpokKMl4KtIjY0:/J>SAbyãU",p[m_v0qJdw.)P,UMdS:NH)-(LS)*h1YwH;6,0G$GN=CoEs/PFmL+$dskj3eEfLãU"YnOWs>%.60JHBh<88dSd&:Az76r-16FGaQBWO\/]l#Or=3H_$qc\aDK^9vMQx2-v?a6X]X#Fuk2s3m^=+jq/ZCBKz?qeBãU"wP]_VdPkKGKRKJFwQvl8]S0Jryg?Y#RB5Pwf/qn##hL)QCZb2c.$SmN>6kehwV'ãU"\sS[p8JS:z7SK1M=Fp:p%s'p2H;6iSTk_Nw3*n2ug??hCA6tuS](GO\/0\>1:BLnWi[m]?_f53o2UESatrX=):VK'FFfI\rnP_:)x>A%-wYãU"CnUMrUL*[B]Wt/Swf9EkxJ)'v'_jC2\C'V8*#?k$U1W;9=ol=<)W&0]2QkKL8cmãU"i9tZ+q.a0*T2%uF%gDF]9It]t;+;NLQa6Po(6PgOYrQ?OK39:l0RW#3UBx[[280ãU"O;-8g8?9SQ#qq_yZF5>;,r<80^x.tJ,E%5Uo8eT*X]J#x.[bQ&&OQk'S56N5;TOãU"ZhB.>hGLgp'ãU"k?a=J_I,;v9gnk$?Sh&Aq]Wgp[\[QsN9;:FOaf.IG-A[yR>C/%7.y0^4MLLoTCLãU"WzQS9n%$LVs)/)W9gp/1r[F;7pdqec)7ZLV1#qSjjXg2'k9w%asQs4Y'7Aj8\%pãU"rJwU'-bN=$Tm9=Bd3G'\Pz%v#D(p:1J(PzC%u>73cSe>d.:_>5W(OQCkKãU"*/hiPp?uB:Q[/s3t;^LDMP+]2hU,Xhh=]j_G;^Y2-FN&i5(1fJ*rFX)rn_T4j8QãU"%>&-h[SQ:(8B:H;p/?yfL1;X$X?UPF]2ht]?nBKf:/P;qrf4cus25qZgZ\?lqMiãU"kiZrCc;.rvD%up()%9%%%[-%)2A7RQo'2mA'7%%]-%%%,%#%%r0J=S72h>tdJ,]ãU"LU5ajXPnFDu&8-]*BL/M)e/I5Q>W]^Rp,F5-rsu/txELB>oqYbe'WoKonjP[$-JãU"$UF4tuTtG52HD4cuXwc7tnE/8lhOzu\2$CoHfbpF=]o\uj=+eOGzFXnjNBD4Th/ãU"lxjBOzdtVv\QQ1d]Tljw;ee2d/E$>fQj?3tJ4=+bEzqJ9FVJGUvnQvJ[aflJx7WãU"WK\7Vsq;;e;>i;uQKSukLGlis=2Q+nyS2HLaPv?WBRiiilVau4J$c#COf+w%&-PAV=a:*t.vZW-S20U0);0&V,47e/+8P*75jãU"+35OjiHRtx?QuC+$A\Br2Kx58wO]lJ-?9$akMU4r=dfc\r);\UuK&I%NIPM&HV4ãU"&VgyKgih/LTe)*?VPZqTa*KI*dwJIt2fbA)2K=1]0:8c*B5$pomREtw>>uL8(#8fdFQYX[oF5;$vw5W4(O&P/S(G#1#T?%)>/w-7ãU",Iuz:Mw:]JNm0WePQvB7j5DG](fi*X]Ke_FMOliIH7Tj#gXjq/?r7?1JYT_drJqãU"I*Yio.3[QlO,bvfnkiX/u+_F&QqUBcMp(PN;;[F1lHIcsBIewq-0&Csi;ZIF&SsãU"ixH.rJ=3omCwtnncur>((W37$XWbWo]R#[hbds%\up(%)9%%%%-%n_N1RZd5\=_ãU"%&%%w%-%%/%%%%xMC>=4IVS72h>tdV+s;e9GShnGMVLOahCN)S4pxW?&rm[w?nEV9M,q+2W/gJ=2.$8b&^eifE7gL)X]*ãU"MBma(f+EH+wd<7-VDfSifdB5AaKsS=MbAdwhxHm.h8XF.w>^LSyTyPfVdq:;AHAãU"+Xt8u%p()9%%%%-L%^38XRcM8(sc)%+%5:%%%.%%#%xz%#UVS7M2>tgfFT\r<.go:t^pT[D[tHlTv=NPCGD>uX%(ãU"upAb58YNU%iZXxqO?>h8c7Ckp4Gj$zbn4YodVEV*AoLh7X?u,VZsmP545N2>cNhãU"niftN0HFWWAWaucH8wcONmNf&?v5t\pNFb#lSvpK3Uyc^K7YgAzLHb0lãU"TO.Dl5V9HV?^.AaOCh.Zu%?jMkpCI11$e(4ftxlnAG=:)Cl3y8:BX#Z2o=2:gprãU"g(CGH9x*PcvI=rknhuE0jeP(W\16N,K\kYM:uIMWHet&IKckSQel,VB]]q,xBsFãU"[dt8[bNYN?Zbc1hEW9J1o:.5s0:#I_4jwi+P0sd),a_vd4UjYgl:UBK7yBR'KQ$ãU"'M3R_'4%%g-S;uR%t\Nec,.+rHLRAfxtikC25eS7dL=&#;Aw&d*6*g/E&oG*5r-ãU"571oTQgC]Z6Q]R]sp>?ZU%1Ix*GBvc-B(:S7[kC.3syupWxya1ok]bNQ>+2&>F6ãU"7h+af_Oe_M-k)5,L0u5j'najscoiVCPMAãU"HzP=QO7%s9IR*CTkKbv;8J7P]OMa3FE2q%7I\0Z$Ous$0tWTrnrTQGBE?mR>Ue.\I2T1h+zB,SNjt.(+dq)ãU"fvE8LV8dhAoF?_T6-6[]K5D;5FqAfVX[pX\4$n;F)XTWq#0Nsg?G3'[n)gIN,X/ãU":\zbF%6VP?mnirnItG$C6-.66DG&R^piY2ZSmi-b)E7UyJF]s'-?G3&H5OQ7Qh4ãU"Mhs?_.Ft>,Y:A=<;Z&ub2J^8n&;_?V^;k1sB9]W_er>/2L1ICqFmSpXT\ts%(i?ãU"V?:OGTh[r9H5f]7f:JUj'4;$URLB_L7=d#';F#3bbHQ*'[)Ka.1U?'a8:A('[)KD.AS?'&z;3<1]ãU"Pm/CmXX$&X%,0Yk9]RA#*s/),PvZCAu5[CN?a,2XcYH.qF'v'Y-x-]O8];:9QH)ãU"e]UTY(PPHqaFqmY#-b_$1w#SN+)L-AD0kUWGU<9Q[NYA/DV/%PC8hg?GJ9.C)tuãU")sn3/:I#&LWT6YVO8AhgU8*9XqF9qVYiGI8Et0[iu53/*.F)Gk=9Q#:'s1=/:o%ILVT/h?ObagJ[c9n0/:V%=3xãU"MUHt[3nuu?^K']hAm;)mDF9CmxU]hfpVQcqn(RuufOoYS*jQL^4qV5xr6Y.i,pZãU"/0%'wDup%()9%%%%-%3Pl4R9v7t:%=&%%'l(%%%1%%%Ly4BCLhD14LS72>2ta.tãU"\RU9>%;ãU"FD91ãU"$O6%^g&h&_I9W%)vg0&UEom.W)(g%6h5K#9X)0Z?gw\O-+SeU1(2H.]GL\O5PQcãEND SUBãSUB V4ãU"8=G',O>1$amNFXa5kEpdOBC#31xEN&%up()%9%%%.-%_-A1R&4?G4t(%%%%9%%%ãU"/%I%%&0);;UVLS72>VtgD='TU5j9p&k4'u%^5JnGfZEehFVAqVfNTWXãU"Z.O^^#$XZF>L51PEN;NH1b;q-1ct2^n#[+qBoYK/7DCZiq*y$=[bPYV$,mq/-fmãU"YnTgHd=?ARKIm7]GS7NNaUN<;<:x3(^I3B35(gc2$)$Wt2#r[.LoyuljnLJF8[2G/X;f:z-R9R\O3&34dtY%nC5_D'aãU"n(9EGSeqIPvh\yd,Vl),r]CxB$t6c^?ath^;wB:*B7ãU"5ayL:bd=xyY4.^wG*ducxFm3C(gPSs^&zh(W2)\1OcRI>Dr1Y-bI#^$KGlpTx+FãU"Ea3N$cduNi7Rq$(k,g.14_xtEe=FG5U*jãU"'FYL[2jp6oZBKdpV1U1;&,Q]P.LQ,IPA:(B_+?b>as(VdKCZ5jKbZ5LN/bãU"hlY>qV6qNR9^6\8>5XDPJbstq2T);06^2XWX7Rx58i[MV(j):W7v&QKvG6iqDiPãU"XQ?U75*$j%JavG(onSEIHJsG2gQqy9U*UH+Yp&;#pFEdbgFEY.qpG>g)C&Y]N1's4Pq9+#&2ãU":KLZRORC#K:zbF-uiQNmgA45[oX.#-#Ugg7bY\z>F-XjiN[[5?Hq\9k-&(6K2H_ãU"S5-7\iJ#fOuRa7*3Kw-3aPyN7eeLxB7%&,4T^bf^ejpr\s5gGpLRYcCSn9Q,Z,uãU"leUzQ<[Q1+:2p&0U%-3B0/Rf?;RgA-<.^-#U4-'P5:,RYap)S<=P_\3SD?hn#7wãU"v_]MxwAk+yM^s(OiALL:<]b8YS#nB>]0*';W-28i$S](pE8El=:afJ0WU2,(+bqãU"*??Qp$/VnU:w'+b4q??Qjp/VB#938P_\316sH\R8XWãU"#npjd\mbfU]Xo(D>_^N.z>Y258-+WtDu%p()9%%%%-#%ve8mRLdH&oe'%%%_/%%ãU"%.%%L%&>td-VntNVIdMTUrTprVNg/*4ãU"M?0b4-[dHNF0nV2_tETa/n4j?S#6*3NC3krLuT+:CZ<82Dtvl?')]>Dp,D^:Vx0ãU"Hf7z^WL%fN'n$ZnEE:gLQvol5&BMxMh,9Lr?6=/u4\3CS3#l?tq=uMNVkJZ\HDjãU"oGXj4)4^*GmdO\E2kil)GfkBlriOmjL8$dkEjx4)%%%/%%%%mhmU#UVSC2GCdwM+N'%3#.k:0#1KJCA/Aah[?h_1v]>C_Q6m*N_XX'?Uz*SmP=JQdhU2Lgomqr1u),;)Z32jF?Ngkn<<ãU"?/Z&1Cd/uKn0t/pez*j8*r/P9J&T:gfGI^G>b8U^JEkFb(K;S#6YDtgU6%9PAWxãU"yW(yL+pWe1>\U;v?x\E;F_'IOrE*UuROYEw^llHT)r8(/S&+f4+(O[57qOlA4G%ãU"#ydv2Tg_?J2/(v*Ez_6d80hr1(AZj*K:ãU"LMw1Sx7?ECB#KI4LR2:VYR:Iss$'q4tIWM$E4+:OjrYkf-?m])qTr5WQjJPTWigãU"M[eQpjp$jnRH22$=g[w'%up()%9%%%%-%VWA4R0<9MHk&7%%R(%%%/%%%%mh%mUãU"UWLSCGCSdx4]]TU5e+.iD;P='$S4hKt.:3#Z0C'vmOIa_i+An=usdewvq'hXI:2ãU"nB,1rQoERthRRND0hs]Zb<qG5uq'eSecH,ãU"bMU0%WjO1V)RpX5^JqW]?f=:MqNv3>bBLHhalDiwBB[4ujy[*(pw'k-3ye.-46N(w%Vx4]PjwTãU"Tz/&4]==[A_9*TDE-Ws3A6]=1n7xf$'yH5AuP*94z,uwa*fCDcFgO/Nt'n:U8^wãU"UZ5qR1Dv8ngYHiBu9c>_Aqzc:hqjJqs94fQ2ODwP&mT954hC4:-J)7>N>]c2AhXãU"N6emu'Fj4/'fwfEF0lDQN>8cjs:W-dA>?L\$;]IV-TJHx][Nc04lC?2)/a//Je%ãU"H*i=;<>u7lA'P$VGD<;)8'19khirlYSta05KtC2-&Ys#vED/=U4H(*EPS0FP'uDãU"up%()9%%%%-%3Qb5RATUa16#i>ãU"NYF#e_+,4HtIZVcm+:aDOl:jXs1CqaPBnu9hlCDsnLe)BUQv^h^^^E*3:[;6Zj0ãU"*b:-R%H1e?Cg6=>hule_8qNH/_%(y1t3Ig&)[(349ejd'?M>He6=d_H%*?riz(-ãU"jC'\)^H0>T1RRY[$D:BH%i57T05]Bop^QdYgV-+=[sG52wdLkB_ãU"6qx8s_$=KW,#Iq\v?jD,bBZf\^*EnnQ[xh(gKJ#J4_MDsN#\&:r77mR4WST?;N#ãU"EuD)slN*jxs1k:qqbk'7Q*V0b9KEaVueB\9C8NLyq*m7BmpH_&7x)XU5UMNBfp:ãU";Da;q[tY\),rfsblY>;c#GZt:Tjm*&-d1P(F$6DE\gQ=,'Zb3_>VpN\nAVNvFsCãU"ydlglQK_K^061NU4XDTi/YR&TH90+=Yy9S0[jSBSxd*g=a-+g4uhK$4Pv3yzãU"D>biPTZd(Y.MK8m)'v2+DBa->]HxkI)[]]or%z%t#[8SjjCCq076[HS,joXFY12ndU,-ãU"N]v$Bp0eT%pqtcr0);I9s.)$a:1*V+#PE4=1^?)[$kXcrmWchr_E)zM(a:#7c;YãU"F>1GllDia4X(2CKB)Am[[IdãU"rJGd%JX[>'qãU"%r3nVX,WPu'9hWg=h8$D+71r3IH\m_^kãU"J*W]slsFDue+;4jXM-3CH&_Dx&29No\mG#b6>?6n9*Q5iF8&$oK1FIK/5oPbiNgãU"lpj>S-G^OZ6,F_LfCF7)6Bs425RA;CTB(hxQEaeSM:%>klAin-]/EZO2\+Z&A7.ãU"xJvqX4.+7_F1s,<0IIQ9PCsslPdTN'2Q?nY'*'*Y*xB&L(D7.g*Au\AP1mKF($TAF')SG>^ãU"h(W8X9r9#f&<&lU;'&28N(yqH1$sR)KlEP#MhR],VZ3.Fo(Q_?w;hX^m[irBX>YãU"sia$3'*CiLdzc/JGlWfaL$7Dth087.J-vd1:9S^::Wew0;ieA)046lH%4ph;L:%ãU"\iFSnAvDfp/?C;PUP3Ga_0hggJ'=W*niXPlxWt,XR<8tSp)[zdig-=1BUi4L=F;H.3#gK(=N;vPwZ96/(21F89B?*ps=+fPA=*5e\Z\QCLãU"ir,l5GNDotX,$4cSsB\:R?>Kjfki2qJmj-QZ++KQyos]po8st[1.._LQYmpe(>rãU"(h-P1Hs_GHN*N.(xUX63jauT/03r(mN&u%p()9%%%%-C%7W4:RXr)+]A'%%%\+%ãU"%%/%%%%mhm%UU[SMCGCd.yp>8RV57*NkNg*#eIvH\WPO&CEduZ(ot'\-hgIV\GbãU"PTgpaNH5[6jrS)S]af%XmhXVXeyJ>PV?)DH2P/CB+x?V0a8q++5P>9jXDW&%-R,ãU"UY+'CJb5[L,yM0Jlc7t-N\;b9%KIw19vy^*QCarP*Myk2Rxwt\AW9GsGIG\0*<\E_5i2&:%2^)DK==$IfYqU)?aM.2?W/>Me[l0)ãU"FZKWoS83Eaovo:q?A-*&(/R^rPuoXnq#>SGRF#0UX(nHKUDk,R)2)B;)5>,Xq]AãU"or8_L#Ab>hC?dS$j/STATctOO$0IaZHG72]dVmS&glO)_vQ)]52=X$dU/7;a*o5ãU"z:zw\iZcIIXnBWTaiS,PhKAHn.OC,G%deaxXmx+i>hS_Ti'T3X$>W%#_Kg=S^jcZjtt3$X*+3[7Fe<ãU"jo5i^,XF;XkwscA$#B%gIj8vN?eVIBlQgWZb^)Rq^LZBdD_rP:LHNdPgnQZb/eXãU".U5'JHgYVw9:1EHe*e\HB&8muH?fXVf(a=O9C3Mr[MaKeGin(cs*3AqNSgk'$F7ãU"-C*>PebuSE46r?)iO]__6u<ãU"[3feFwHT^Qe:E9nghg^jx6kRjNPVscab%e>$%+b0?Lg)8=w&jH,oWw.f<8B&Q069\7G]Z$gre_RDãU"%a:SNkVXR+3S+qC8G]K1oE/X*xCE_+'i#3uRGV=byK:OC&2,<2KR*6S*nZ;\VtmãU"aPAfg_XiJ.Eu;DbhRW_ah]gBAI/k19S+,-:4jjg_ibYPskVc>R%w8fN.'qDp-mpãU"2>d=USeF[v-X.2E&[$/%AU[b]NF7[,nTjcFgU?_<=9WQ[GBiLc%:R8R^K\=3d,mãU"n>K&'_[Ea-krQ#/([N.s[G%hNM2QnY8:-.Wq>e$WMNd^hx$l6wlTEO=l-)5::W#LFc30ULRKXPPglL]'sãU"z0<>(]0oD;PU1ExwI5nZUzrgX[%S3<*pIJuTp]TJrgy>aD.j'^SM0cFFb621/+#]4u%p()9%%%%-C%,)44RjS-+eQ&ãU"%+%-(%%%/%%%%mhm%UU]SMCGCdjx:=T7U160TIdiuU)?6=PvVU;c>Y'=J>d9DQlX^%ãU"72RI8Qs_x]wqt)tGo_en>;artK[q-pWjvOd9Ibk,/aMJ,t7'OI5Uj5t:1D:=FãU"IFoeM_9JQi*(f&xw5d*Ym>ExryzFpf/IIxP[qSN<+rqH?P4KJ8mF+ãU"]ihGed#aGDJD>(B\sWL=jIkvãU"If6:MFKNqWt]D=T7*IPJ9udf7ofhw64C^sFz^2#oj9A;hRNV=wV=o0QatPjg_3YãU"yiGoX(^'pA5D'oT1+nmhRkZ^$GU:bP]IiP9a+W8a3:?V4UagAsoãU"Ffp[Gt7g7XZXJk]-G$QFrD,.o*jr3Z;&K2]-W'1r^%-jb]]'QO\R%1ZY2l*ngIãU"mfsP\f^Z6OCKDQCJ7n,.5gVib(zãU"sfO8d=Tlw4Tvoiu_.FrxB1*DdD+CiIM;AW,%4?4YoO*rFEK+wtFkK']182YR;2kãU",(EH\y_BM*HnJãU"'V0Bhd30P84fAgn;5_knxjBGMe4P6bTEl\J3(f7wXoA)Tmcdt(,whSnZ(l(898<ãU"]kgb4gma7bKtF4(p7]biSb#r18\ZTgY]?;h0'Nn05,6CIjBL_L4N4MjZtpw?,FjãU"Rkk:cãU"m5FsRV:kI_[;rfM7P*-=uCL#fK\jF='J(BLlyD$SOC1TBfh5;z2EE41Q6sOw88dbr08i%PtPj'8X8NãU".#'[h#*uDDclSgScC$F]J?CCS2y]hgbI1Bjr6T/sM,bQtWlGQ67E[RxK9h1nv;rãU"uh[Tet66'9JdggR69cthT,\'DQIOKVL*OxWAEo6XZHqpHlGrO(RIqKfdXz/1qUCãU"]5kI9r:^2'HSXb105[^:KNV,quE8-ks5UKcwsNr&KR31Rav8S5l67)P4V56vUKDãU"<:9LoZwdURq.7af^)2SSZ#_H3]9>?K=,Ya&,Q&$-K'ML2h-CjO_X186%rF%j-]bãU"D\7dM*>QfL3$/,Q$*z8>F'0r2ZFF8^[ZRTIdXaRT\2A.Cqm/o-.%4O6*ãU"uSHbS)HY^onFjeGJCU?XrIt0&oIZQbGEuqP*Bi.,)Y])kA>BM,g44.ok?Ynpg(\ãU"=r)rDxjC3rs1[Q;Zl\\G&4sha/o-v]g+T=l<8KinabPp'77Xt$\=va(FZP+JSe1ãU"4Q6M/[a.A:Q:5%_\$5_eiM(:%6m&\DIh[Wb3tuc6C_c'C?qItbB'_OQ&W(i',uHãU">yD;y050cj'u0up%()9%%%%-%.W&4RUo/k^%+'%%%y*%%%/%%%%mhmU#VWSC2GCãU"dx:f=TUa558YFDo&x-Im(j7uDUp0Ih_$Fj&Q%19fomQDwLFI>$%1L#7CatwRZG?ãU"ee/qo&lqn$-PRsR-#+4r;_Zto\4&7YLrJ9-\sC8U+ZI1\-5(e[BSSeDoB.>dB46WhWJ9E&URn&)FS6+1E>HPGLDgpãU"cYsUTo<4-t\/o6gGYXoH'<>5GFA\b^\&l.J)+6V)D*z,*.N>+MeB#Qilc.Gt46;Ru(4QGJUCVqnA$$Of-XbãU"ktn>SlE#;Bci-NB(+*AA;je#7hGTE'ijkhuD3'tUF:v=aL33/]):^fE>bnt3#>F1-vGpl&\t:j_1fncn0[pG],7nrDEx(N0$q%UJmãU"ET?4g_FpFMJT;^$u,%up()%9%%%%-%Z(e4Rw41pq='7%%v)%%%/%%%%mh%mUVXLãU"SCGCSdxD=]TU55F8Id;^t=xTqMeINQ]'Y%j6,s(XR'&Q[9&fENP-wt3N$DX(ãU"m#uD11i.^hRZRFI>sRLnNU2\k3tVdC98YxãU"Uh-&J^3IjmLh7PHAZobjm]Lp%#BGg#t3o^LLy'x/ME,)aT^;xR7L.9c[_W3HSUhãU"'9[F.K4FoF2ljIkPp1kU74Q9B=dSX&>e#fRxFJh1mj,b9pI>)MLTl<\9.u3L2c&ãU"YAhU>r&e+Gu&aa%-_$?Z\(&x:Dor.0N>x;>:Cg_\0TRW,pgS9nfaN.ãU"CWS8G1D3>?G=_+d/9qO7k?P6s/)a?dj>[6*9;2%u5)8nQGU_nY0IqJQT*Uk%'PxãU"md,AEPT)s:A6-ulg=t.i^A;S83&]\?xdH=*wZ5J7gp+L0R/VQ>1PEsGW2?#'%Y)ãU":OB9nLKUH_;^xiVmD*?1TJmXZ,PDQ+29k=?/OR;nBx%di>do;=jwpEn+q7JTl.LãU"TD5r9v.rDmYE:ouxE%0cb6O)gmtycc+r(?>>Wa_.n,6ak]K1OeTV#ãU"J*JaKVN0iDdKAGY?.#Vf8pU44eze)K15bn4q81)QheoG:b,:+g#2IGJ/LyUt&M8ãU"E[o:s$Fgwx//B#W-]T8NKHY'X76%)#ZHC[Ze&h6mdL^]\;(]gQM)I*/ãU"LR69^A^5&Xoi?%*fmp\qRmhd#?r%'e7xR#l_=:h8_PKaU._C2[zKXN,]KRBãU"$U/uF_>M(_vY9M.Nq:#nF+*TL3u[o$84#)l+zO]9Yi,*jasQto]ãU"JE\-e\O%7[HX3[8WTXr=mG2kSV^^2YUVy3\[j:EhhU:d>nDim]?,k](hB5f5cf&ãU"kY4Ke4%8j3]S%BbrAB_Vw_coi+/Cb^qN)[T026'8+%o9C[?Ixld#*&#KGYmN5B7TrK].n3.1&>5vq-U:ySwBDR8[%?2_[V(]0==pxbFv%.up(%)9%%[%-%S_h4R=Ep?r=[&%%w%'%%/%ãU"%%%m%hmUVIZSCG_CdwF,9\U5970m3mDb4RqV*6TFf)TQrLR4HF%BqP$Y2wRgkmr'MDs;V'(W.vãU"o$HJ&7p9^5Se[NXP?MT/lLYvWjsRhpgGq9rpb<7*9A3G3P.cQ^v[3]/:P&iA<\;ãU"OV-J9M>9Cl-qN2%gpz07*62&WivS%Nc&u%p()9%%%%-O%Yi44R&uD(]_&%+%l'%ãU"%%/%%%%mhm%UV[SMCGCddwb>U7U1V*fad?lJAVat+M3)f1X+v3ONSheBbXxL[=WãU"zihpq*Xpn.?[f2]ãU"gA/;\.FOP\qKBE+*&Z9EN=+o7b2Q3jjJ1AG<9[oP6S19+2+=mtAUebIlo=j+Q4QeãU"[%hWrHxumI.\tLEPG1NS(BT(a'kUt9X0UUMZ+_\N6x%H?<*OHUd6oiw+)V4aHsqãU"141I?'5%U(l'Pt&q)tc^_-WYTZ5uOW>BE*Q&b8s7-=P'$=,Z\._:%;t$LM%\>%hICXãU":?cHussZ7ry)B]qI\GXD6Ly$6bsrB[n*jq+4_W.Z(rHKP)G.GB7p'px9,ciDR'fãU"R.KOG&[syH(siP_[_uy&M?ydLonfq&7o<>q(=rU>+Pn-Du/\Y%)pfgV^0g?6N\TãU"]cO[K^N4's:cg[:f%KJ[#IQ?aNZcuT]&43o1/0ka[uGZ3Gy'dl;A(dC9[9;b%41qJ(+.tedV');igrbW$0pisYofD4b%^9a(cRW0UccãU"$B&IGazn$fG4)U3]ORlBs]AnFlfF6aocL#*igCxXgBLtbV%aXyiM,6F%Dup(%)9ãU"%%#%-%k_=8RS]#b0=%%%%w%&%%/%%%%m%hmUVI]SCGhCd]*,=ZKo0RC4lAOy*:9ãU"Y1n<>pd_U9XME0HbBFU8f1m?WBnfYR/pd>D/UU/:W*/EF+/tVuemvAq/?$eFnefãU"^BuNlO5M_'(]6qy72a;7n-[hO;Iu&7SUiJG%dup(%)9%%#%-%I)c5RTTmME/er)ZJXhxZc_Fc/k='h\?Q;4u3cMbr3CWPoTz'bfp\>bl6GFmWOunãU"%m<:F_C\#YL]jtA6<0JCQKVw)9(z8w*QRNNCM)$Lo'.aPNl.T,'r8jcin:A>JovãU"ktPn\Rq.EplzbV,8/uCW^_w8#8SPmh[x6f,4gkbO_&]s+X[YwItoãU"?\PB>L6>[F*mrS8-SSw\2%TfK\]w=8L/u0r0NF]OMgihacvJ>ejOO;)$cjAU8LUãU"2cVZrTQ.Cy)JB=PD;02zQ)tNd&r6Q&XHKqlhEY5FW0:.t2OnP:)EBA>=8^wKrA,ãU"(avzFANsfXUPOHcOYCI,QJy$X[lG%;Iv+)is9^EL4k>ZkvG5?gzt(N4AãU"gSF%ZsaL<<_$^u57P'ls6-bf,r9>hk.mtqPg=8YN/TXS#&$-Fe5zXaQIOV[u3/ZãU"HZS9]rouS)P^uwOl23SrN88H(]f:=;t7p^97-thcPVM0A4GTYJg+)cUtFQoOxHKXPICYI4W/M=j]>iF_lQAwV_JL[*ãU"SC,N-/]x+/E10i2:qZfm\l-\Nqlfloe:s=L6enW(IKo$ryL7]gY,binZãU"_2g./B5UsP6gT6i^1b]5&Dlw].Y^F:+_'qU<;GZ*9wl\,3b\AQ*erqk,m\KQ*e9ãU"qU2u+HIB^tnXJo)orNQVcAmA\>R1,l[PvFR)&EyA>tA=6\yqH^9?GZTZ+Z?;AxSW3k7okoa#X.9LãU"OE%OVNl0t9E+&?Ut_>w/t%17n;'8_=Rv)+*<#)-BE2/Fi#9gAeWB\:'YAãU"94Zdr[JR7sN[+tI)2BEb[.p)tN8ho+5xveBg*L&J-&ks5oSU-?1hw>vTY0ZO3X:ãU"Zh5rl+:-SO1Xm\>'b>phIta2qplcl,%.qKDcYQq>bD]#4%a'<4-*SGhKoIo%R]nãU"3u-[mM\Xm0W]X7;WF=ab'I[p/U6?&&suPaW.P%tnlSj0V:xI?.(ax]s\1gne>*)ãU"*FOICiPA-5mp:tO7W*Emy-lfZ]tP?Sj+y;PcaLmj[0xZ]wGZ0rP5-VXrfe#lt3WãU"J\a)ck]SmbI=vR]__N;B-9v]g8zg[<#)t0]&84I*7lxO%QO3&mAcD#BbWA*'iXhãU"*V$v7cHbyl(yo=m[c^C&BbYI+oHqjw'H?9uIPMdUaY.u1T'$Pi?*ENPkkqy?;7UãU":(4-s\?]g\B+7f4&k1YXrV1tI(AU(mV1>gE;.O_Q)uUQPEVbh<=kZG?gZ++HUV(ãU"bh'Va,kAiup#8WJAyIuV#hZ9>AK;iRu5H/jjH:S[WuPXJrX)=7,-*3=%ecGE&9>ãU"wnH)\6sdUW6YJ+0;0s1N=G7BB-u,1UP$e^SY&#M>wIlL='_0hz7uECDK<*p(Di]ãU"V6HE)SI]ss==,s+,wJ0Z'H66A_0tkI>2'3V93:e_-B-r:'v3^>qjV#C*I]$]cpGãU"uVN^Gos(J3:85%zG8pa&lpv)-VvrB1..r]1U\b]h/b#C]GGDZ%,ciQIq:sS/d61ãU"4nPeMeVb=BioXNi:G:Ik3Q.^6lA^k>l\$+kPO_$=y*.+(OLm8ux0e5r^WmB\5,+ãU"nuRnrXS7>ZiPnEQ*.2?UBq4D[4htlL%b36LM_#EaEU:]kE1;>?iãU"g0G>mV[?CV/:^]O'#b_QOtSmb22h?PbMm(_.hJu[2=gSAjKJo)*cOI]PSFngSHQPcmRTXT&+QtStpO8[d[]+J-6?FOSLHiHhYM=cs$ãU"s(LB$hG54K[1zbf>Eo^qg^_lhR1o>2Oi*cg?e.dN]:/qVjS7Ly+eMPmd(7sxHS/ãU"+wsUcliY)NY2RjpXp;rsPZ%3ejA-$+ZAb:8,'E$s%Tb2Z>HkoyGuCi<,H:-cqY9DM]_Yf=[V/l9BPQ2+x;ii>%8P$Fa7ãU"3HN/VEi/V*mbj\alNCQ).2pxF_xOp#]*jFjHYoU\Aq3Z?D300x)0e2:NoU2X:$g:zRQJwRkd1jr)FhT:[>JJX'0uOZUJN*o=zu%ãU"bQV)a2ILQ:l)D].U([4YKn>>e>=wD72CllIc$_&qV$)p8db5IZ_g8dGKOBkvkEGv3QY+$*hkfiVCCSp\t/q+hN.ys&Du*/#JVlEv[AFHn(ãU"'ixEpwGSt_?QQ%FgA5/jwI_VW.^HVVMMWw1BiP7u:rNT4PJzb)8&;$dz8FuHcFjãU"IRK?.8L%b*HXdSMuIzBy)\f*s,fdt%oV\yWjCb+(CJVSzy4.h-TI]Ca9IrrIU:aãU"*2FE#TE85blX(^+D)9/ggg\RteVBf_wC-dpb4LiAViD'bx-LCyVgC8-DiN)/yusãU".?>K1aCdKuJplZC+oR.yqN/$6UZ*Yx:j1)\+bt-rVG)WcJ)U=sC(4%/Y\B:HBLTãU"Y<7nLPE)^JLcmO2CX.JCN,KH(h(I:G,N13MMAKTU#]oa.+dOb2SZ7d++N-1d]POãU"qEY(qZ(V\\:IZ#-*-Kpn,j24md>X]4b9wUe=2bChvGB*=?uBA'N+M_hR-8FChjrãU"PATL;QRy;OG>mjeIcM[b&=2)hu5.rGWrxiuEGlB2:[k5VLulY>5*^%ORd&)_8DaãU"5'#rFfD^ipG+U,O/:#Acj;P'IU=qRwm%O#xvPx>*q0J3$]-VXH:&Gm8:I%mujãU"M(7nj^/CUT$K2f)<_G5*[+p8Mv)V_J>=>>j749'XEPTQ(;uL6f&0JM+Z74T?/SgãU"^=.c4?siwhGm[UIq)lZF2QLzW#oTH/;]Y$58FRfjD7C8]X2QZ*P/3)Wmsgb.f2CãU"r,X]B'el(B=E8Uj;.X;ahWGal(4[Z0:Y-.]1N;WuyP270Qkam;A_26n4(&i]E%LãU"YD:WZ'X24i]ah+W1AXCraa^aG*#6VV2Pqi1WVr8bQ/UbQFhES[vi7Q1IP7enj&AãU"bdZ^5H5qJ0km,/$27#xlK;fR)Hgcg]K3&3Eh]I,70ZbjecLe8Su9e$V[Yspr9Jkm%&%hY+P9p/5Se33yw,.JwSãU"Nc/bCYSJ%<4F_#wXP*R1R_/LF#]83F.W^GwRV8&_LaW1*eo1i7+5EFB(aSxeS1DãU"(D(guZJAQY[lYi)Ep(e^iL=Cj:^7;WzM(1xC,;u((;Jf0rW,VJ=nI9?NKp8n8IQr*5NXO$<9i^j(W5y*fMc.DpQ]h1ãU"g^XVj5A^s(7,)GFS#5$tX?f1BsTZD1D1m4&w?R1MAq?;Nj6YP3mUgp$a#VDVtiZãU"(5jIurcTjV:(-S4T\5B)&5unjCaoQmf_ukTPaJ_S4EhAoJ^L5a>[B(;a/rY4S'-ãU"VKbDZ#pblceV>r;1E.?b(6g_vpAT4+91%;aXGMM#vda+93NrI8(qTC?qh2+5U&PãU"E.+uJSU&\RR4r3(qv[:stx'x(up%()9%%%%-%4Y74R'6$ie%q&%%&['ãU"%%%/%%%%mhmU#WUSCMGCd$7rs=UU1Tpd8I,h%)xo6fBm?j3:8CGUYc4ãU"%zGX.Gyihlpxvp77[r%(E3po(.9Q-=_SAirZJ\'')7uVLCx12G\Tqq+6)c#/K+YãU"F)HvKy_1A-(wf8_q*MI/Jb)'Ugz3g$lw'_h_xeQO\hc;q-TS]ap-')ãU"oxgopZjH0^mN.rtwpi?lFe%C=0,+k%,,T(,]lsBMo-o6XGi/o'u+up%()9ãU"%%%%-%1XF8R1$VR0%w*%%'I.%%%/%%%%mhmf#fxSCMGCd%7px\k457zo3xpZpLqãU"doE:nASp238[L1Var,OQ2\t#&tG8[Ab%x$tKb;404jAK;**i6gw-RnHb.4[kx9?ãU"Z-OFP_1*r&]gk/L>d3s-K6_?-eMh3H7+h0g4[oP#3&bjh#^MgE8lk9elud[#3&NwPAIL:gkmNa3fbx>ãU"Qk1&rmhwR'L[KEoql=e,Vz7nG6B-Yba]7dK-d8L;,)j=bq[sW2^[)gB\&o'W?WKãU"WCKme=s_P?eJ,)'u2gbx5;1aDsbP1]JN4s<7C\]3?l4>9GETte.FwoãU"R%RGBYGL0=Y&ob'Lb&8YG[IBa4A-:K1\Rb9Fz:&^=JIn2s[z1X-Q3Z;(-X#?epueaJo;KlpEu_BL?D3VO%uIJeLVg#^3kkv+WkaiF7FA:CsOhIHn(mHX5HZyR^Y'1Pm2RX.:gLuãU"blZeeb],y(b(]?NX&Gd-&zxE(JzWd%nNAl)/,C$feCH:/f8EdJ%9rt0oNQ>N#ynv/rãU"&uZ9LT7[h-x/;s]Hdm,,*E$wWk_Sm<)2j&#=qotlf\vpOjm5>UK7f=%;%G%j4Z)ãU"I1GD1x=uMMxiXud7?f&JA]Ka[##v^,c+g?R#g[B?bklhIZ^$-av]ZV9]Ao/pAa+ãU"'Z=(P.yHVAmHZSWJ4mrT(bQQT3wPb5uI[cudZK=:[e.[[Ke#[bUCPTVE>^]>pP;ãU"ttubq%s\i$em)Of<13dH4RVcN4>)u8';dYbr,U#BVX/bp=^k]Ym=$D][_Eal[Nn0XHTA#(3Y+$+Z'npD>c'akG3J?.rDdjUr2SWb&)sz:kR]*C3nUNx97re4.Njec8AhxGYT4Yt\0;MQ?DnK4=CãU"j4K=\gJOl_Ah<+[M0fPA8?$FqA$V[LJjNqpriHvMBPP#M'S[gpBV51fHOc2SCgDãU"sL5(%=3rDLs-dm3oV5G_o]O*%9(7vFyOr,J=cDk^D4'3*0>+HQ*qv#A[H^I_A4VãU"qA3g8pLj[sBu5lWA::982QMD=BLBGPXY0(KBcF6$:FF2ue][d$0/lUl3qc_6G(xãU"8Lt'M;[>JJCclk5,Ar?UVv*-Mu.C&?r>TYPlZãU"14+9/%curtf6#NndUh=mK4^4kKuJbB,*avIT$K;CnjGq?gKLzCmcF[GsT786YbvãU"Lz=4DGLbLSF.43hEnJr\wXf]oHP0Zc<26D4aq>Pbq,a=4sxLNGul#g[:WtC[hK#ãU"A$qGwb'/m_^v$RlY#;2Dlu[Nf=jz+WC=Q3]g^Ki_Ke5SWs9lãU"xw&lM,Ic&Bf\icoeK4hLddbg]HiVcR;d8UnZa9^?.lbhKa]\gWPYV,Oiu%FR%rCãU"Rw-2EL_l%oEfltJ#sJjf7u9Is2(PoX05pZ9O?Cv?0s;HBlX]^/2IJwb=uX5qMA3ãU";UX7<3kf?^wXSD's+=Sl2ulHPwINxQy6u0J09hTxj(2a*w\CfKBD4V\vYi2Le_BãU"9/M$bh:/ipKj''$f[m_ql5l=NG/hk2d#(].=74Z(26eHnSXW%vm(alIdWG>Y.%#HfBC/1irUQj6g38-I>6JBC?E]kd>/1lWT6_ãU"\8_V^,*ZuHlL$3BCpXfE[+G;-Zg'29:d'>((+nnQ>v7)jR7HAchwbJba^&1jCjsãU"GvM^o[HS97F8r^JF/t,\R]L>Mb*,C;F*vZR)Xf&5WPuRgGJ__XGboYv*bW#ãU"+CCup1j_q[9CAw./M:oTkH))F%e0Yjkh2BeH_;]axQ8h3k^^jPm]hZCp2KSB6(=ãU"c:On-)=ICNX?$Z7ahB(*f;3k1*xvXNePZ8(a&:>j?-Uhgn:3IO?Vje]gtaHãU"H/7gRM)YT&%mXP:CP.hOEdeW'vQmsu[VYjmYF1c]hJrbQ9pUQJOS=6upnbP%]Suzh>CuDSptq_uXKH]UFS/)gkoUJ>8kpll_d.7s*ãU"1Bx1_sIhK$bQwB[.dHw?B;ivFULaxElZx<%ORoM$+bYA$u4(+pI,OJF=E,pgfR(ãU"T6i(XV)7,OtE_cL5;-O=4hoQ_tA<_JYUSEQ,FC.(y.2Ztz0=4_pAik=MXfGd?>NãU"76fNuY[hT<^Jr(5j73wo^DQmg^N.Bi/F7L6pk^gfq,iwJ#MNo?itV5qL\XhbTk2ãU"u^c9baqJcKE4/3kAb]WKjYStkrjBg#[-ha6(juW%3^2Wd>]LR+V'ww1GG%suut^ãU"emJbrfdxKbzA&Lk8b$h]UP94mp13H-Q5?l;p5;4_39ood8_J0t:[nq^_S/qj)e\ãU"u]MEtj[FZkJdM,s<6[6Ij'<0W1&BaiLnO*G\xYniFw*cBD$9\:(&6CãU"?8h(0gf#ku/l*#cRKd?hVq=5HAdy+q#l.fh%sMdIT0\qb:h<*4g?9Ef^HnfBg'2ãU"ombk5.6+ky&yELZtsR*t6T&a_XRlv3n8A2a8jVG_G[>ua)Thm.z%I,0DugVqãU"xX7-a?1a6>W$PxrY:)&BLkki,=5SZ]WEOCJ3FT2pu/AE^Dq,eG=1+a1oYt0ãU"L9fBg4ooY?AH9a'.J*&7Jtc2Qvq5dIm8>iXILL;$7JyS'VRcFRtaw=?](G(>qG]ãU"MTV+^'H&axfs,e1PLuOQ2UHh8#m6e\L/8qpqTT#1^w_>6b57iK/31>us^2'YP3wãU"E6[:K+1*e9^3LFfd]dH.I:Sf/is0gvLfvz/-o;U,JVqV9YM3EB.=(w&r*=C(Hj$ãU"dX+QE&_DJ%'It)GCu3Je$kRIvA_sl+/l^kkXk8BQCug.2hHUBEAw7h,N+EVeH,rãU"MaEi7e=VI'Lj6J.j>.sHL[kCDn#[*_3B?xhs>W9PFD[)0lL_hee0a+-b=W-o_KMãU"QBa3Rri8DFYc88(l*\Wa44hjFI?wwrtP6\Gi&K#Hj'ctY,Oe8Wb2EPZI(vGk&QfbcpgsPY8kHvAqlVd&Jlbd&$;>.8a\RIu/83s7t4?LH[]/Y;wãU"_2'1$0R9v%/cQv+euR))MRzom($-f(Lqa+7mW_8GIwWkA2%qaCD#ib;5WC:a$cFãU"NQk^7bl(mCnyX$CXUDN)vP/HRz$&qDM_D*PnjiJI$dDPxLHhH]MOUl*t'#:$.,iãU"G7e4>,qoT&k%f$>:0idA)Sg.aGms/Grh7)oVgv[RA:\.M8H2/PJAJy--7M2$$6YãU"aTeieGagr/8qd.q7];,oHQ,T7adjTGCd;lBaf,ajo%6,/6#mat%;NP*^=?#l[=QãU"p:o$F%+o8.ae(ATbUY(RtXVWSQOlP4haK(2ãU"VQgSq[H#y-YU?*q;#3IeDV5B%W(zIOl9dza1;*;Nb5N/*,,9e/^BtMLV#oFI>1YãU"hG:^9lnj+fk;%y$&?9IDSNV't5;6POtT>xm;wCe:Js7eS&%&Xbn'\7bp(B'7Uy$ãU"a*mNmeJ\$<4&bqV\?*mg1pauceqfY#_H%9S9<;9B4mUL(Tp\)^D7fer$+4NãU"&/C:X(In'7pZB?Bfh7kH/C'5_$HLUe<.;ECM7.Bq26&6SYg>zy'=dL[dUl;9IT,Dw+x)ãU"P]4'ZM8AfeAz%ZxZAv'5_]Gn[mNQh:umJ?K.GS>'c+bpDhHAA/M<=VmMc4m-7SnãU"\sDY1.5X*-k4O/\=$<-GGGbhkxU49Lu*xJO'/>tgeRqa/f*^E.*j??R,29TS*C4ILXfo^Xs.f(PãU"BG&+Pi[s.4mxepE_H[ZTL^Q#ZwBãU"tj]xoLIg^0]1I\UbnsL]h#^^vmxb#*mkGfBzH*jD_TQ0/mt7*9+Giu,ROToe(U6qaeoN//pIhDRkQ*qãU"8B+U_fr^k8f9Y+1q/kR)$uJH[PBbYPa,NhidQ7UP4W[]i:#E^/#27hP?B6;rU^LãU"8aFQ'x6M/T;*90>MZA*1enuB_:qt;r(jdd*q\wnvmkm1Oq=#qQTrLM1[d#AyKqmãU"Rqq$Zb4rWDg;y\JFjCs(nfPG8Y\LKsb/_V'hgOBbhYpDC's2q,#[zzwgj$cDK>4ãU"odK%2Y\)&hm1>xcYMi%yRv3'vyT:[%NR%hiWtaxvagj.iix(u^nja4G'\>M;fwgT#u8Iqbiq&pãU"gBtle88N%-3/PyN5Gom[h-]jR5BZTmUN8(SI,aGv:Dlbpg]7&>s,ZJDeC-kN0(hNfZ,oAZ%FW.VCqVXiTM.<5R9[w'A*26722eYn[LjXE_61GsI?KãU"qM*vhw,pWj,iNFlvMQ:/2Y[=p*fD4fRMQio>b.Wz/pV_]C,#P73Qm.7Z%'n9MMdãU"KqP+'O\01ig./ACr_-5IYw=miTnxN/YrUgY?;fQ8mYgx_mRuI69m]o5+D_I82]gãU"q#gkW_b)H>3NH9>f553:rvI6ãU":MQgsO/_cpuXieA4Ap)%=Zxc/Np\>>9KWrOE3iSZ2jeVECL-=4+_N8SO#;g=C>eãU"nO2MflRLT#wJnUhVBACOqEHJr[has\#:-SHybeBkUA9x7lRYQ)%mCfiK0mq>]K\ãU"0>9x1;0cypVCw&eG;IDmGog?BBgoTWBlkk#r035M4q7:Mo%bYUKkR+9afMFFw>(ãU"[UI(^U.ytiH9U5phc[nHUeKdAsTW*:)q*JGc#DH->#33aãU"Fo%/RI^jgbipDMH'P**k%5gev.I-H_,+lSGLPz]:[ox7D'YPJERR/OUn3-?U;KxãU"&Y5;J%$ldff;tY71mupgI2WQy-o#:/v(3HN0mãU"7It9#v>_aP8D.O]jKCJB0.kst__+,;$T=Vs?TJ4,G3qMZ[30rk*HSZKfwbsMWV5ãU".Jn-Wm5WQ:5]eIz*AdJ+8:U(oWbGnXALo,T%q7$7/S+St:W1cgA]kA7D&QI,hu3ãU"ujw+Yti1Cz>8hCJo<44s:LR%=-iL;&JNcFN28=L5;2WDXwjv\xAIP;:QbRr'tq^ãU"85&*Ehct=M.Xc<5Da,q2d##0=O<%yAl+Iu]rn?bSh.)RAZEd%w[BiMY\0lQan,PãU"%-=)A+Pjh%L5T\85i\9bKgSEM'R#)QNOGPQwXrMWT78lFK?)YC8lgqAmmRI9>crãU"5om8*;'dp,Z*/?f*7Fu#hEm+R%,lok5I<0<;GTKpX0m89vbcVD2)ZS-(=-J$Z26ãU"o%1lAWBrFRO?]q??+Dck'lq-UR%7QIQ?B[+q/500I/xF2(NEpR8G71vp926r),ZãU"%/=s0ZUpjpM2$I1LVf.PM7o9t%h)ME4X/cP_=40=V2.Z%(q:k$F3Igow6.'%B0=ãU";18oHUpREwQ3Ahk]9gR(,e^Wt[qirN4TM7Fj5>s):)t:g5T[3ED.$Jv07(NR$6=J#Kglq;4+QY0P0OZ<3ãU"/aC91/:SfP)1Oxeulr0/s,_[6&)aQ%0NmA=NOv[<$Fu)/o]%jTga#_KL<ãU"mM;[EyK*+_$e*fE4hoWa=QW8#GBG:ãU"^V>m_FO#*fm=m6bU=i*UbS_>o8xNlf.WxB\CP7iZ)&F]rrPm(A6XUi$[_A57?DqãU"8lC/Xy5%l,?/jEsyD7WMk)=+TUQ_5*U=SdW_bDUCq*)p29:U^,H<7JDVBG(-wnmãU"j&Q8[ZrBVDw7OMI:nknGisQuK1Bf&M]TCGR:BE2GS[UãU"bt#ces7;4Bv]XzLrOt/wPt^.k6.)U'IA,c[Q$]>?gL%RN3.)yKPAsaWYZH&p($BãU"hNrcXj*>+MlHa]OZ9.JãU"vq<[saP>iInCV&)XiY3,a,+t,1u^MKNf%lZ%mm^IugW(4l7nmYF).\v9I>,w*GiãU",#SeKHU\P665(IsD/up9u2+j2)ZBtb%u_Z']IFK=:qLAZ6CUMSFqL&H+)p6,*/RfVWs'Z.R%c-wwI7BãU"Y1M&leql5S1?kY^(+b0tgQ,;lV(o)7aMH,HIso+jykdhsAl)^c=Je+*$a[QIr<;ãU"'e2+0)WV_?\77%$ww.7l4%$<\3M?f^f6%_(u.:=7LlsqJãU";R#9q?RBAny?nN^[b.tEwjrQ5)>Ex=j'^G>*,^ymj'VonC/&U,KXn1_N1l+l#I;Z:Nom9E\meww$_bcK0kV>c6RKyPHm6[nrie4C^2w,QhKãU"9s#V%^&YFT2'r5aEHNROtRy*By3Fm6rDV/jZ6.U0G2y(*a^k[I/YB41XH&h:vJQãU"+'7+sQGByOP/-&?+]e\&']R(+]m-mPevlGTOlYhx8^EoIPcax87o6mERInw+6f2ãU"z;iELA5U>$>YlOT_Ik8_r8j3n&XA2RL*rI8-Lq'aQ/hpVDI.hPb&VãU"lA2sk>)&\eYc1:2.Jve[)^=BPFIndhwo,I_3hO':ER(.P=cr/:U'&5=<&MVw$)UãU"(fPI=kCutUim%Z.L0EEu>T^oz'J)A4qvdPo8v+c7I=8CQVC]e3O+%g,^F&6o=b6J\qHm^n4vD$bSxB\(YJW()2](B>e5R$/D,ãU"E#h3DH*9=bWLk4iEJTo)hib$oX^dtD5*nO7+2uuIveU5OUd30q\H+VztG^UjaLtãU"JdqyRZv3Z#WUR'hc%G]gGDvX]0blMA2f0w0\\pAA?xC[eW66bDhC5>#9NE7UHT)ãU"8q=f#R9u\>J&mRtdg1iJLaXRQVw'Ac9.(p\]O+w5poEI68E8lgRN7RDJ$[&BoqfãU"x$qI$6J;3,6lNSV$'_KNSp'-O;BNeAG8x$L95HV0pQ>DcCT_8WZZt[UcPvbP=neãU"TZL9(ISj9fL&40=RO5dgS;WJ0xqke&iCg0?7,2L:IM'd4I8qBXI<\.b-r%&[,O1ãU"7/FPSkq6+>,*d8hBocsRroi.=HN]rV_fHf3TFGR7aE7buI+xT8j6]i*-G:8maVOãU"g4iJ.K[d3p;p-m*HLL%P/HRc]RPc+\0y,nuKGhT4jfS(4nzhR#,JKpJx#/f3e]s[OT0ãU"iFEBr1mAw4N+$XsTNYK>gZ,Ju]R7kdH,traon<6'FE?)TajãU"u9d-q-So'HUw5:D?#?=$p+#)w/8[HmBc$+D3S3HmN[.hA^n5NEs1aO>7,PYptzoãU"N=-P/d(/7Bu2A$Al*G8<5p-bm]3Ur^J:MIXFE46Y)oG25v8:O=oph44'>d^gX94ãU"=JmKO\JBU_Cy#6I:62f31*'im\n''A?U\ZB5p-9E0\5i+x656A$Az;#Netp_:6)M#kWS#1=#n^g(LSm0/K,$BX&4)=oi6P,r?n.Zs(g)jm%#2KtzTX4ãU"8&i:Sa-C-5-BUm'4e2n5N=TqCt60H&ãU"06#Knkm[6r,;8i,j5]q6w-=eQ;4g9OM:;gF.:>('gKq/do+)XqwQqLsT-dK_oV>%2_'JO\j4)8+Wl.%00n2gqFAoid,XwnUP^jãU"0wi#jw/S95=;_Sez,80jDNZW(b&iRBB\1mC;;tGV_*%F453uSH'Va]-LlvGQ(wHãU"c?,M51oTzMK3OLNoxJ()IVq=v*oe:*/2S>bYxB^y>_/4m4zgADKLV,dEUEB=5>LãU"aT?(AMXJDFmx9?84;e;.\'l(F4&aRe4;tMVw9W85j2W,TOB8EBu0,h7n9+>727gãU"Am5,WD[5G#cf=gfax_N;gbC'n$sLIXVtN1OOX>zsJ[#I'R7qãU"rhZ1I=K5G,xBT0mOjnBrA(-FãU"A,+PSUwd=%IZC.d_sdORVl&oEJ%7,:fWMu9D3Y8dX?&n[O_)4p3GTv<[ãU"mbQ=VV4C?+6Q]Wb,ANiWgGaZR$WQ0?Y\%^C,Q4\((a(LT)3.lP2^a8fC#>Xih4+ãU"1)%k;:XqY9YpSK8)0=6rp'D1#k+O.,PQV3BK$DN728pbs3SnD;./]?,.LTwsmA%ãU"1SZDSH6n^M73T#c*/7qJ%Q(i,V>m[msM/_E&W7oãU"imIQ>:dfdGv#t&RQ*+T[gEG>nmApsrb#'Oyop4A297B4g)dE50f9SLLGKTfn>h8ãU"n/^hM5lw%iW'P:q[[2uJLlsPnSQpspNYr&>9s&OzTA;V6ZWB7Ua%[XZvs\ZcB+\ãU"92l<'*M8Cjol8YR?Bo_p7d)[IuH89giFJIez(0#K193b]\L\ITãU"K[>?q;/_1#Is,oO:]tn\HzAGh0-R7pãU"UHIwG35Qbj8SnwX_ScLq0E$f?#v#0S#;b*CL?zh[%R.jEibGe?go/D5:su;hS1PãU".nub?$K8q9:D2L2+8K5%+*P^O;Ec8d50pF2ksBJ6O5Mm?Y\t&TSd:#RXUnUOk_aãU"6+SM:-u&jU+5)?%>$k'AErx3hR2*Eypt4]%4##71nX?t.QWqw='b/QW'/&QHfPwv11nGãU":2,88+#_Tx?ZhhM_0Uf2<'#wl*cC<^0Y6V\]LãU"(E/8kn,mvQW#JD5s;KcF[xzbf#:KXj/C4&&Bl^l+Ovi[a>m^V]fk8r-_W+3^Lj5ãU"s)HM05_A,bdQam?R]aKea>wH7PjB64t^w_1u=dYlv5x/N+Rbdv-c&$lI.1]LyYyãU"hl0;iLLtB\^Q$uidi'0DX+BS-+o,_ILnG)#fFW?E[Zt>l,'7rb1#n,)'j>7z_\OãU"Cvmpc#H8jA'mf[E%1d;y5o;V*C^uNRknKF>QBOiXnS5TãU"aN$;koXELI_sGO%#C.(;^/*cBd:SU#A_T\u(>buCve%ãU"MQLpD#4R:[fT-g/q;5iLUr)gT$)l+soAiVUaDeTj)*U:Oo6$r)$E%a2D;T?p+yOãU"xnOu8o/F*6S*St5P[9xpJOf3'R+VkUkJ:UmJa=HDbsViM4=fF746F384Td,+\^TãU"ZRmI_uD4oQ8O=KG#hHuHf5$Y^/.r#gkx1XBa?F2#1)]a,KP7pD'GX\7*O[HL\*UãU")tP6Mr>c'K8Ne.zS](%mur\2rHfh*/f]$C0('xNBt0Hq&h(9?WAcJ;9^6rC?ZPGDM)Lc_Qw7ãU"HVW7$66SJ?V.8GIUWux8-VmM'Z;_HrOcN(UPzXwQ%6u4QfNd4CxxR?$8P1pZdCSãU">5-OofS()lcMUe/#/YkKiLãU"[DYqLO*UzuQ2$RUk83OtTNYpL'IUrusb'uOI]PDTjMw:,(Lo4b0VyDyw,(]Lsb0A^yOx^ãU",xr>u8EsZ'^RFsm7CkVhg1398KB'C\ZXLO:-gãU"WWi6L*s8qLq9g)25o]t6dd\)*^3iL9Rm8\joNSg5(2NS:\+a+M&C+sNyN[GA#ZqãU"QMZrtCFk]nc\M^_mP%Ax4J/h.*P52gS*_CXHAmp<1A:IrW,o,c8*kjm0p^ppG$WT;N[bD5bp'55AVXWLiixpH,IãU"2kYU/2K1OAzBPZ7Bee7aOPWRplM_p]3*IkFU:Vx_\h4#FC^0hBjS>6#6n=IC47ZãU"xOr-HViw%JLiyWmRZlO;M7(V;yLKgloS\uH,ãU"JMdlWaOW8%yEv&NT]0<,lYQjqkR,=9Y/*rArcP([m^+e2O^&Tq3Z2m0U9N2I^?rãU"[P_cZ[_f8R,[F.>PNuplcnqp#b3g2U7ygR#4=IMqK_,drRTkux#kz^wfciyj^vtãU"'TB_zn54X&aV;pY#ZSTn,8*AD2+/hpRNJxFI*FfavGRLeU(&JR[)H=\ACem#NP8ãU"=+qw=W6go,1d)A[/%Yq).Vs'2?#TUkcL.LOhfd-_Hr9bl00C?\S89RJVTSF/m9tãU"#8JfiTC=G[(s09ãU"MWjuYqgUXMY1di0%kh5?n5N=&cT.Qv][n#d+J+Egj[pG#n;&rI6-2?[9dDiSBlKãU"$V:]JXc,=&wWtXMLl/$2cypY-JJ+itV4%1PMtwU3jgEn+?o0n'?0=3S\;awoGKUãU"Nkgj1'n+uXl)&p8'kcrb0\%>B;X0)Mi97PUigKNP$MiQ#jEq(DcbxA?WdVlhFnFãU"bjLLQIbXeUZ'FNxDZ_%Cj2dof;GHQLrDZ3cuiHI9By<_Z,nT,q)yQh)6086osoOcsjq:_F^tt.%h806WY(RY+DnOW(+14/z3DIo]*,2ãU"zMGhKUmhT+6pWJWIvN&uRwkB%SDbTUo;Xc&t#2bzQtYdfv_GpWo+V[)8>t5*i6g^X,ãU"O/aX'mr\k<)r)'oJd<-6Pv]L6_1ãU"x#%bZJ-7$O;FqN;r?u=/A;:#Qxl%1$FJ<$Yle-PPeb$8o*E4m/lDIUqQdY8YW&dãU"6wV1[4M<\\U^R1Qe-[]F?D3/r^eH_*7v6o?*V$fKMFWXeWkh8+c[U7WTjMCKr;ãU"'Q)bO4j+WVn'uX,C95JoW-d&)W#tNiM\(+*kIHx:Xb1#a-PXdvIv,ZJcSJ0r0vzãU"4i'IV<8PC,VZ]*[=SZ'?QL)qQ,>BF8S/QDDM>G=c0Cm#3r+PC=3y>I(=XS:CX*lãU"OEI4*3J?'8E]PCIww+iO/O7m<=hAãU"':t,\o]9H_s_NlW_wJDFt^ea7fza?24RF<.1\28^?0,mK\Sgn/upej'+?[R];ebãU"s0o>Zj7_NH]r'G\uV'5C,zgvLH*2\x?(T>eTq,2Pf?KCh.R1jqJr07iX53x\4]pãU"w5)bA[8e_3-h?1Cd[.jO$?/.1rvC?.1rCvySUmFzmma5wD3NN(u=H5DF7PU'De2ãU"x:F^=Q4l&ih1-^0jQlyuV>5C+r,-db:/^1=P(8sYh9Ez&cB^P2j#l:0:pr5v*>u1ZBQ0Ue:6g1DiãU")7,sPi=(p1V)mi#li;&VS''o$Z;0V'O7p$[U0>W_(C9\aoNhsbEX__)\hHXli2bãU"8VG1lcmGJJ1kY)f1v9CPXauNOun?Usnc2MJx;Zhd/ftCgh.nnKldok+XUGmYDkJãU"m_mJj&5eSLh+:2Ic2F^D*;Q#h;EbFH9M8-YSMX5YR3k-Q0RoIXZ5Fuc7%+0HR%PãU":3(8(rP>,(&*YM(>X[6F5D,((Vh]N\F##?hQK^m3pFln^8I9Bnl$OsO-#mwJ#9%zM:9EVJpy?]a;z1xC>R2xar0n&rJ6ãU"E,so]2dFjYJAW)R9_,lVeY^46J&V'#9]WalfmP-Z(WDãU"0nEA*/$xuSIHw:qlQ=j3dy&6:nG((mtH'ld27Q\4AehS<:M&,]Gf44a)jB&/I,kãU"hI+bHztmb8Tnw;]9lt&63of[7&9\o48Qk(O9]>iGOB'bP?UJSj4ãU"d1ugPK^aoC21q%O5Te,5tMRbA.zt76JuuH;h\RmDnqp%2r/\_FbFRj_yUI(bVLj[7Qncxk0lNs2vSeãU"Zvlhydz32^;38=.T3;G0aE/GjPG[dA);tosOn6XOndz6MpyyS^UcJszcXpUOCJ\ãU"pFXsB2rfW7r#juXJ(ptwrkdGãU"Q&mkF5]le(r[+dr;:+>f7L?Tx04%0'O2CwwdB:/d2pNnVcowN.3[6]g_v==t[RrNKW[;[\TUV)C*0Jo#LrK_zJnlSLbR;E(keDIf2L_fmãU"myn9OE3E/>XAeuKc-ODJ\_x;&]TZsqrN1Xhf-asKP]Cu^eVWRSCQGlG-0Y:(r7T#aB5S6#(obEra%S#Ubg[ãU"Y,:Z7Z/X>0SrQP*;342F[Q<'SSbvZqx6rK)DwU'cJu*ChQksHLb-1SJS*f/_r=3ãU"Vfa-4OjRT8N*89E;qnFqtL_7DpCUWWe/ln1M>%*CeLbHk4I3WI71sLERj/ZO]uSãU":g<993(1fF'f90d1DBVHfFdyfFh6YIpP'V]Sr]s28m--1nK.ezMjMV]d6$rCU7DãU"V/YOMj>G=pZ.xI,87O.[2R.jUT6H/POotp39VE(ãU"[3(2A=)pgLlk<_AopUE1M$a^;jNf0hJ7Gt$rFeqbcb^cO3(Xgk,eMl&bxph]ei.ãU"xXp0xK7AzozDYJ75Hhjd3rVE?.L9l4%HBuZqq*0zikq:.10GhwDD?d0[lM[=mrNãU"S0'wD[l=C\($Un_M:D1uMGdIX-I+Sh1GkFd6jYXWj24%.kb3_vs\KGk/0E<9LmzwUOVglp$#':*h,Z5Q&*g#[#hãU"#^7.H(\62l/0xjoCz59*yN:jG''&ttUSOk3YnXH]B$'_2DsC^WhRCUshb(>N$]SãEND SUBãSUB V7ãU"S$<\o\:Om20$kuoBXCGZKC%R(g.N0Cj9&ZjLY+Qb%Q6tipsvR&6Bb7ãU"M=FOM&0mt85iV$oOa;0hLGcccO:trw;s\DqM?B,Hu\;D*AgRmU*?qCi7G)]D(JEãU"QbP4c.XKj4I1&veYfdEG>LS4csVzHkaWI,g\27.a+Icg_b:Uhs$Of[KUOCp#][YãU"ZP*WTvQTtNf(3%kQ]PV76fãU"C:,a3tUtd.grHUJdFNm^orkvl^.nrdrhufaOk]vF$3+VTZ$03oeBNVkZ2FlP%nXãU"$s$]J]BL'QNJdy5K)]cfMBLAFBVNB[rlDw\PBbIoNdMeivB.xHUPD5cow6nZnVxãU"q37]Okjt0lF=4RL2q6cRLsz+ebAu\2Jo3+qUTLdpCQebrybm'y^YRnm$cgbHgKbãU"sh:YIsa2HcbD7Zsw2r>Nga4UXLxWj_sbx$K]CW(oduwrbT7(XzNOH+;.zb0T=;OãU":OnKJZ-,e,4w*6f+f#'=Jjd*e.vsycr8]K+X8.UyjxnT[Cwvm[>Ix(2*j1s*'TkãU"QgV7jBC:PoA#+2JP7-SZ?uwF-ZWAR[0YyG9t2r'0QWf>_&0#_U;^=r%G&0WpWPyV1#l/'&Oo#Lk9(3)U5xz:+8RMneqqP.+ãU"6)3%R$aPrI'dx)^O29CuI=W?7ãU"8a;EaEGXu<6T#/rFa].GF<_S/0%0y/VUA5:=4Z\nfCDE.ozRP/J_;)u'EEAC'>uãU"lNO.Ysu5C?DagByap1m;e&kgHL8HL4We&%U$jc(Yc+wLV.O>I06G9$*D%nB/jACãU"VB+_Q)u+dYTed[a8Xt&yeSrHi8SY$d[(,C-9Rh-3YR23>GdvY+76$deGUDb;_odãU"U;[WIX#SxxDa_Ieg0l:6,ymb-)$SB4dWxãU"z;;?kF;fRAD90Wo/9cglZq.H<._mM#[xO)b(=>lWOz;qRSHE\v7$19bTCuvfhwqãU"$9u502n.t[vpsGpt-n0FY>BR*x<4,T(&r)OGhyec-Z10mrbH9nYzT#;oH>;s<,fãU"La94$n?fYLQcK2tL[crb0nKm;;J>;;4^S)cpuDHvk44eftjc^Mbfnq:b_tZ#nEZ+4VXTD[m^9KWX4b-q6m)XIOD;ib/2mzd+'GxU^%:yRXZ6hZjgR32-^r3:7hhKGãU"LPpAMI'Q2:K%s[BhLRZd_DH_aHmWFMgflmr3sZ^g$Mkxst8I$LPk'IC.z(6kHoqãU"Y=LbPccaO?LãU":?DBWTW?6hrY\jZ\WJvBD=_(U?0.[Gn#?gY%7Aufb=tv3mJo/afN1>aãU"4bS#VB/3Fw[dg6pe4rXMI,f8%MIf\LMu12yJG^9r\Q&Eb]lS+vJP9k3,>gNvNB#ãU"ZwmnT=h%5PSppCZ9CjM0Xz=8R9Tg]DD6A\;1l-ir/FyZPN$NEOT5BlMN8>c%)&%ãU"zM>_Gjg5Ps5M45xvZZhpXa^LUO00]2E>BDq.>'-#%:5jn0m8BpW8&.p=F=pwNTUãU":)Tx1ottEa(^$V-/)-C&yj?gpTo:R4-[?:&Xq<^q:ãU";\,KvGZnNp0C9AhDpbpsT#UYA2A%lzJOW,uMJZe:jH_>YT[3jZ3_'i:/CCyDN$DãU"&6F*u:Yn0?gIN(ZOeN>DI&:mMt;>h*Sji<5-Pi_8CZ^Q.1L+=?aaO3H59c5^p\\ãU"Dbm^ju$e0c$C#vW7NM?AnuA0j[A>#X*=H1Q*_TS8AX#/O%S;UVp5D)YTgj22:uUrpAirC[*m]f?tãU"5X,qK:MN4JYHht_2g:FUD[sfG%6Dafk<56/vV[8m4ksxdZmrgrN$X=]7]mf(<&$ãU"vDKTxs^V%-cW+rsr7U*MRoRsUaAFgTH0/D0[CLz>Sp4k'D*q5kajaehh:;-ceiCj%W]KV\s='j3%OMJlmfr)ãU"Zn0#ZQQ^kVp'0tvQdFzyQ_V5=*W1Ct?WZd3[8[Mo>,_7Ntek8GmWAXGT+B-,*l:ãU";U%(.Q'gjZ\)WkQX8#KaK1+gWV:Yacf\+\9me\Th??PNMKTCp:ZUMF=%BWcp]VmãU"36BnW=/4,s-bIfKN''.R4r0(c#LGl)'eyBU[L55tfl;AzZ4F(./UDEF3]69cw_>,/0CHJVWQKq#M=(x30/062L03:(wa_ãU"HGPkSViNii)y?9ZK7oNVs)D3T>gOH')nD(T&UjNOZFktPB>o9_y#$Hm))iE$sMwãU">Y$RZ]7.5BB33[vAYPs=.yY5*fm9KZ^&p9Nl5Y*>YPB:BW+2/otP]16;Kni9cwv5,0<^6:5ãU"xms^=As1Dd[/9^Tj8U71;ngatXcãU"76nje8FoCtkZAiU*86.hDM'=M02jlsE/O%YPh3_/p>v&)^2rpoF_fB'4)8w\n;nãU"\b9m['W?(L9V'\8'\6vgdtV.o#/,bW?LU$J+hEp6OX]wDrdW1D(E#Jhbq:>db&^ãU"coS#y)^-_NaakrGQLjc<'VDFxLAbW)=9=Q(gX^nmZ<,;%B_XQfbUtl-]Grs/\/toLKUd=myJ,#b/o,J+ZqgãU"gC)2V#:IZ[pwEtF#.+q=oq+,bP^D;^ZV-haE'Nt%2ãU"Ca-#5h1Lfloo)Ie*7KO#N;d*NJk=y3M:Oz1i;\gZv).&1gWTxbRg9o4YwcKE0lve9F?ãU"t>G^;xpcW*mx>w(NfUs.E.FTV$DHWIWX,XL:k'8&E2.A(m&s*XXK-Mq#5T;TJZ:ãU"^,ae>8WV5amaUYk>*X:\.n27goAgd$?a56u6.mkfm_l#rqCuT%)DzI6K97KCW36ãU"c0d:AY15RWd=?R^y<1XEQ#tGbCf/B)==dE)IF?$0c&w$EN[[=fv%13kO*0MMWi:ãU"[Pa=dD-y[SBR7C_^sjiYMW(jzp>,>RuO--G.9iG8x]m=KX?=DbWko5BU\ChjXe5ãU"Bd;xE;d;f3souhm7aIB%:6Em]NiR8X8BqãU"ecx_CYr0X#Ndrq44-#1GdmrI#Ro^Ap0p%3U'?>H_K+txNT;hZ='oV'=](')2+YiãU"J_gr>;Ed#1R[GFjXiFwe,]-+>qi\fwYn^09ue#Fymc\;WIrt3rtXaG12J[EOI\RãU"PSqUHWY&P>(P>^.zKl+;N0,+MuP-NJF>2J0Bt6lRfkua#0wIZqN\Z6O$aq'1o.,ãU"tIL)2U$uhA9HgOU$Z3dAqbEVsed094$n]jdOrU*j;IL.7d1\.>V_:]'%z$eoLlPãU"\h74X_g=Z5*;]K=)74)#&m0(D(>B9=xLD=*;&$?a1>Y5&=k5M$[3MDgE\,+,*(qãU"ew=>#GkKt9*BSdYlPPK;%kJM.Ec>)Kkr3bqigQS3o(g,+[_f%0LU9;k9(>\byXKãU"+\0^Ik7Y8#Rs%#uneS-*FWUGENM2jeDXjf7.4vCuoQwFAUm;pME=,(-4ãU"pTP,/pg70eDEhYdaDE*XghbCHI&rn+gDT8u0PO1DM.COaqwu.j123#BA0R0g(<'G++JVut5zJYuãU"H&3;FPMo_fNg\+,r2o]&b):NakAcL7k.g#&pBCTU<&XLRLY^()Sxh=M+ct4J,1kãU"[dK2Q++[x\yC?Qq45va&=e>hB5L8JeS<,,2BMbmGFdriS+.loQ)hFJIG5wrUDw4ãU"z5G(eXHj63+pMkm>*OP/ZAbSs(^26WZI.2hMtb]9fLQY8qrB&_X0ARN/E5kiur/K6h:0Ic>AI6keHWS,=oIqmp;V>UfneWS4#-]h\aTtfwgDV'<,q'8cdjãU"G-FP(,F%8Weg#l]e_^4LnW\5K=:<_q;NkFS#X3N2>I\Dq+Gf52NqDme4xW6ZqAdãU"Raa4q)Xpc<,C9b?OM;hsa]h$s4K=C\Y^=_;bD+ODJ<]/'(x^Fd%OBaT*STBiD?EãU"fp(#Y>I0,&n3bae.'sw?/44#HZpY*]kG07Y*Msa*Q#ZV*5gD,(3;2EEqFISgd;JãU"cLvIN:.?Uu)Q]/MZlsVSFV7+AYdX+N0Lrw[i,o%/(Qc;g084stRpãU"-P,dQ>-A3nSWd_%,yNahLjTQ0dLj#s8J9aq:)cãU"-Li#HJ/m+/eRD<2<>/Uyp0\)c?qM7[IFbi/cLoI]9f2]kpnE.n*Pm6K&S8I&HwPãU"CFM;k,oM0N3\g&M.>iX6GKCMNI9Hhyoz,qwqSs+0h0ii6wvV>C?I7KãU")Z0q':;y#5d';z8(4IOOZE\vOjdb8j_(Z3Ge9NqKK3DRoM1d%s?HhVt-K'eqhtZOaI%#mf5:i4PAnUcãU":KNJjK$4-du5t17KVnbxK(GN_go[O=PbYhyRW_AsTRq[>yr7)ITPsdaBnG-(8Y5ãU"&y-j#&MO.bo:-GDdIT&)TgNK#I,dfzTaYGvrJF)51nu\.)LjL.9&Ip_*Vrbn587ãU"kJ')uOe5HC3_Xr(b1VnIOeGBac&_8#86eKOR<26GS$Wi8E)cm(Qx?.1B;$+5LLsãU":-T8k/.iF]P57cO66PE7TJw4Tb]HYNeyC:%IZh^%mn8t6ick4*(Uyq$-hWws)+>ãU"./NTAdkdQ*\2<'_S\%^R='HXaLEwLLI(:2%cpQ*t.0QvbtXJoTS]GlqIk?J;]pQãU"*_\B=^e%hTL]#X.[>1nYL2]&y**pZ][_Q;Ku'J%$N>dN&&tbãU"Vq'_G#M=yBkkE#*m1aE+I.baVmL&d)N*oG(*W3^bgJ_GdVg)e69R=3GX=L&bSbXãU"3OOq&Zghd);:i$czVijC+QV+A#zN05iI<\J#,,5+3w:-G\dVYWsvi,TCUjG#YZ+ãU"3w_RM#V'KWd+G7UT,wC_Fl4p%#uiTUuZ8glmYf^Z8Qhp5Jro.$:mIQ9,-o'O)p]ãU"iF5epQ2LZ/d7eug(TN8UbF)pQQtJGGsh#2Qt>aY7j,?XGmkMv5mp+aW98q\i(:KãU"iJ$,_m3Q\I,[<;J\bB1oIV;K6hn-B,;caEm]QIRlc65^OGQbUB*m]gbI\3ImtE$ãU"GmNjIV,^UM]8.^R1fI%,ubn5OAuh\kh*7R+eYOUr?irDWAI,UG^jX/^ob-;vr_cN0:tDVYrTjp;gQoN6nO8bAMaVi;\KC$iQ6W,dUf?B_L:UQq5T[77u,4?:];G^oãU"kgpWRM,UWN-4DsFliB77j(k+96tp+9v?v'mdRvQãU"eNW1chL7>_M\Mo%dRv1\9iVq0-i#u1HYRt.p9VZnq]u-(i#yH)YrtpF9#Zq4]wsãU"iNJzjpG8FvJqDBMW\vZnfBNrwJbnãU"OQ.\&\pf8LGLynai$>\Kar$K-*xKp\:G%2S2oN7KERP::>]V)y$5ar62]P5JLxi[96=PãU"6*S%v8SBv.tãU"WD3[zq$Rpb:W:cKU5XYEKmJ&KãU"baHbUr&P:Op,/DD=Wi<;8vRa&8y9'c3^=A7sF3=8%5dE&2j^+tsGlJ6dR(rVj#,ãU"ibIEMM^o-=iV8EPwq[vkb1#,UkS,x?j+zWq&t%2Pq4/.%wR=hUwd-)CD(U_P/I^ãU",2.OqNrqJ:oAo2DMgqYtiEFFqP98>QcE%tPC;uHdCPYnAT\?atagg^/m'ho1zj]ãU"(bcfa7*DD-s<_VOIzvaB/^8M'eF^TDY?G2%1:#1BY]>HXAFe[+)O#>og*F)eu_tãU"fJ8F1OO*lJ4G3'=,1-cdUq=-.d]tr:c;;Mk]g2,S\qS\oWVT,p#9;,Ho0t$jtM)ãU"]--;o0uE1o9/P2Q,/^e\jbIJãU"*:GF7cbs-0o(>94FeHK0$tjo&7Ncrm?X6d?b,Q7h#aZdZr8R*lp.[53)p47[ãU"W:km1[+:5kOJb>Fd681J%fthFq.qQN5.4$lHkY2,ifp]aW<4$j,O1WbsOB;1V1zSY1j%d?/h)6wYVs9%?[ãU"*gw(tSju4n8o_TRn8qQjoJ_t,I)'hop.IfIT7a7m^M5^Gce3-ZCzPfKe'tKad6DI=Jlke%%en\W=,Edah-O7i5laEãU"F]]L5^pUiJ54z^1Lc3Eeo=\it\z_]Lj#b-WZ5(L(4tH>\UãU"BoQ&p,$Y&0j:t?&2D:,-xCFCGj+LA$E[I(&9R^\jqmfZ$\baB7F[f$EWaan+rL>ãU"(g30qr>jM*KZS2;89qs&>L[r+0NHwKR'lAwuJs*BfcU)xKZF/$9^KdI9aA3HOSAãU"=$XCh]xb=Fz1DA3GeOfdYC4dfcplNHuBYfK-]e1.fuLSiKkd>dx52>$.<7HFo5MãU"<-&oln:fW,?qGIXQI[jRIfti'?mKd'AdsY*mJ#N2l/%TY69Hidt#63ST?*h(vkaãU"J)7uXZ'.Zdzjpr./;:Z;tiTv%.$_>gfkTL7kkCGS2rRR^.DrQoe+KM*6poKi;G6QG[F>plãU"Sf.HRn,1N^(FI^W)c59BuD?c*um[]w'*lfsv^N#>XãU".bk;rfJaDzcN8X%ypQQ^,O.v)U%P]CW6#vEt?a18]ãU"ld]0oZH8n]lEjVwe\$$B#Xsdr^eOBGU/;atQ+j<%oT>gi^0Z/t]LGtdKar)d7h(ãU"PAf,[rGAqik%-F$-q6F.&/?L]*eG\f=2cK]:P$USU(ãU"HUo&is$K:V$M:\/8KNVsE#3R2qeTVLd^LPghbZgik]$tmmV$kHZ34$ma&HGvH<9ãU"\Y\.*(&bbPUw]#GID#-e)zG$u=jn#i92yebhSd'By=r0l;$l9j(/R4*/x+Q_^L:ãU"%arej>*a-M/0'D2]9Un?Qh5_rlBIG59E8kWse4VV.bg^''/Otz80k<8mwGI:R'zãU"LlOGr3Agk(^/V_*jL[,.NFcxrRFT9_H/sJ=*V7L]Rfe;%%lYj44>%V'^wiG&:;KãU"lWhj.J=u)FrcQl#]:mF=G3m3[P7*enzS&$t55E?[WMR.Hl)[=:jqo\eFNzx+YD;ãU"U6BDvPkg=]\LJUFq&Re]?VSKN:3[&'&S,enS#8^YspHmWwS(o)b%;B>eHrhU]N0ãU"b]#u]H\boNH[ahyCs0/4m0\]+AZ9Xd6)PoQ]bkQ]*:W-I9xmS'Iv?'CY.#JG+[wãU"IP8H1gu37t4o#o%kic16;;<>,'ckB6aKrEv6uj5D8Mog)sy(X2Lid*X4PVmiCLZãU"al6KN=%V0-:e&0-jfG&).CnrnWZ:DCY(TPi3#($1jKJBHc_%OVGN+KQj\g._+2.c1u=T)$uc%;s-W1PGãU"[>M1/=JC$qAGq)nI2DT&/rKE:B9rP%BLS=pY_HAB$AbT&gXT<]+?5,;PFls&#LHãU"I$M*Jv?cE:>$Y28)nW1G]V%$CwN(ttjFsV7k_/\Fj:HE^9De?VDb)B#e7s.%yMSb>h(:/''RiAb[I1aZãU"5guD2/dYdCs'eR&ZaJ=L)XH74e2u2Pbfop+#vO(r]).wQvJSlTr#9'BWRYrD+TdãU"hV;&S/CWD1HjwER%'s.KAe5VfmXf).#376;7Xh0veBtm.KFb;/?ãU"Y8+^$HbBmW:)$4A^g0H76l6jZg2sl3V2b9q.skg^$KZU)+Hdh,O:RAa2u>IjZl8Ws+Bja*FPrãU"UE.f9uO]l6eC^fbOQ^9lV+Z03q+[C1LAd#c^tFs[)d;Nb:3x\'owDLGgA8JJjkmãU"hrhE/JTlPXKic8fo*E4fpuKcmW#csxB&ZMTHvrK\$\55SIs8:Q-_N#t]eqJXfZ6ãU"bxfx^j>M2UsFhhJaQWKy\u'/r*sbRaoM>ãU">]I36MeMpc$5Bef)]i95eW;DJesJ;rvCaXB54?#dwK2<'x:zAN)EZ3fs(5Q%*RJ7ãU"FcArusapnKn/i7i<_YZnY9Y,DPa(iPoH2vt+dCUrQ8&tqJk.]zcnV9rTx=AX-TZãU"c^C/)1rzT[ZXi_SKI.H3L=N][N[3dhlY$:n#O#sNZ&X.:=v.,/psm8.mYAy4PPJãU"BkD2)G29#7Y'-)&93aOw\BNT5X8bnmEM,.8+fNr'RrH$A>n0hd/ZForH[6%#NidãU"t)LI%9H]Mc1\zYEll#Hx3BLZx2X;u8gXWkLrKrQwv,T3qP9e\NJ%^\PS<4A\ql)ãU"#Mz]eUqf9t0b2^0;XnIX1ochf_W\ooxX:&p*e\tãU"B65jpndt,UW7dT8]$U:A*lQb.UDWqL-v/y)q(kUtD'7M6X]Zmr[3]PkDWW(_Q9%ãU"LX-QiN9PV:orIr-9)0/+BB%6m]=mNPM6MbD<-#RISNMa=_f/c#],rSo7vO:nIzJãU"?QH9YME6b'CGa\Ms+)H'-r07]=^c?a-r6CU8G<6c7NXM=NtKv7ltIhssUZrtv#/ãU"Ywdb$CU9DY.KXi.Ez-.wMc_;&p.k'.ut65(Y0aq^<\BKDa278;((x2,ep6>kG#fãU")QKgl#M=A],_%Uk;Rmjc,%*g9R6IL=_ycr06^.1K##*Kbp^aXduUVm.$X68fW?;ãU"uRQoZ=E60V8YkZ92+,^NN*'*VOG:'M]:ZYofInzW*PrgD(':LObP,td16K?:l*1ãU"KV<6^IUhn#hLygCyf3u2Th]21ypPA>lx5/3ma(4Oj%(00VvP1[71*/.'iSGka=0ãU"b1+ecuH.N>+Zf0Tla9jh\s7#f?/J$HjY/4atDbn92/_:c=R/-g3-n1STV%YbA+9ãU">*yu5NAN2uu*F2RnGD%yC^dQW0\c3]rl-%eLeiYvK2G+-?n6MHU/50/Z_JGP2Q^av*Z_#>[s.+=\_cãU"WjYBIRrlT',EtPE]mCVj?])hnG%t]lj3NAQuAE5:JOH/bAq,y9rE/B8f$kjN%.3ãU"(dY+$bHD)j%/+?Yel-d7a[Qt&*NhPVHA7cpTt>v/G$LnqG$_iFaj&,[=('lA?78ãU"Rt92WeDDF?\CKYf]]'CyuiKãU";h5O;#WNXedkoKk7nJ4EF5PP5tnPvk$r4]pumqR]k:1YNsuQ3A8Y$Rsk]3x5JdIãU"UTT>UKNu?EL&LxIGm8o1Gd.Ob&fIh+K/?7#ij;RWYdg3I9sod?GT.7m]1r+S%\mãU"oU>pWCWDl.s\U.zNTpdTtqtPhCAr&m\mR1Ncs/TEr8^%z1P33#ZcRIJC951Yf#UãU"1nex>uJp^pu0L&wuYgvB-NNE4KE%S1',AoP1U'cZ/O.L7NL0GkLUq*deQ>rc3kIãU"1m_1gbBPrGo%+Q(\$M&4Rn0uc,.&a(mM#o8OyM/lZ-OARTh+%EC$[N\,tEF-J&CãU"-k9Is.99O(]X3]Eds%lGs],$?AgfnsrTQ1':dQBFErZUC[1O0kDLrI;7ãU"XQ(;14$E5*_(ST<,x[C34$(xDF-8d0C]EBv_\iHJlpP\SV])lT]j)tBovq#<]R/sfqP#Y>)UãU"$E3%'OK9=fFP>o%dcqE,Eh)vQ0k_NaWaKa7HvGD\ERW[gHV6CKqGNV8Nud*HhrxKãU"XvZqwXRT>qh=lIxB*ri6pHM>Z6.scxrn6D#>rbk3qg-:c*1[;^d-FR]]0^S%X^eãU"iYn%N/*wmf;7?/egPuuDjx[7r1Q%piIq>rHQSE/+Lm:p8P:9T-d6(&%.WkIN$7lãU"Xl4&Kl^73EiVNsJwZfp35/FJ((UotOd#;_P,M0zGLtX;bb/VãU"Dy,msqQm[euzJp0AQ7Ay;opBLwDZWs0k&uL8pxreNusugadPWwVH.cX^d6rDMsSãU"QwSNF6qujdb5w?ukhTp\.8u7dDOpQ08NGuxhnSpd>wuQPPjNtNrdHãU"QnQ.NQwtnN5Lv&DNf)dsOx6-6N8JIJS2zJ/=wds&T'i3X&^7f%mXR3Jhz4yrQ^>ãU"d\_KdO-[E&M8%w.e<1>_CE4,brM766N^]]b6PXNc2'lG$ZfQwIBph_;sOjTp9JSãU"),-JQ3BuH14jf7m'ApQ5h3[wqQG1c^ãU"[/e-zvsZkj_odrtgW_nvFPvvzjb^v]uqJFkb?\PXdKVFvQ<^wDSXUjuC\weylL'ãU"*^Qb7[Un+=f$d(#N=N+6Ez9\6p(FL=8(p5\94C+]JOJ85qglrvYF4+Ec='Xn&.)ãU"j6HhFRtluX8unHfptNf/eAll%t/6Ts2pa%ãU"j2);sofOD4:Pc;jzV1=&e&#v=+:OU3d$Y=5uRY&(urJwpsK34?vi^rroB$L;jb4ãU"t>>[Ff>vn^rr%#TJT99M(.-lbh_=&f?MZs?AuVvQ&;-D8[Y.fV+NLn^F(\&DoIUãU"PwH)X+.JpQsXV-.-wIl.avT5>0l4Z0x3)hW+Lqo+u7vZMxu^YTLHnu7vjrcSREOYyii26)UA$(tfDd*DUVv5g3YK^6[ieiYsfb/D4Eq*(mI?QC1Sip5_ãU"c5#w=)%^Plg')&8[%gi$wgSzw.-;qK.dJ7>c&19,%,6u13w,iCav_g],%0?#9V4Xd>N1vw:jx<](.(kV/u'[ãU"LAVkc%[IejEI*/zXn.\xIJSg/gqg&fvu%O5M;iTOZIqtgWt7?T$pagj):1l0PedãU"k84e)Qh+=zK&A9a>h(i,v$ttEvXP5.w)_uvd(drHNu.?mPhp;t>6TDNM']n,_vPãU"+Z+N3aV^4)L2Lc?#Ws($9Gwmn$qhJ7&bT1zgi(4p6jsub/RhLãU"rj9Fash3l\>7df6OJ(QC%GAgkfYqm:y=w-#o,xIj90p1qmD+CSbxO#FmCdD>^0Dc48fJãU"I:^kvl9?$D>I63v(X8FfR^'l1_k=afW?a25blqEjO*R9d?$.gk*7a+.Hh<9Bj\hãU"&[1(rYA;3znk3-?c(\hGfwaw*z(sI(O+3>Kpr7e'7E9I=)KGjvkMMt(:E/KiMnoãU"Ak+.#wOLaEHW4gd-PIPaPb::-97%BXSr/OBgb>-BQG7-C_89Z3NK]?TsTA=BwQpãU"/27-_bQs]Vvo<#H8w;9n-,B.tG$n.(cGãU"^p.TUw6eKT(\m2[B'fi-h+A1;o$'pF>Sr]nmFjMFk:S;;n:w#+E$6]aD(IRXG7SãU"E8>$TDt3[lCf,C*55e.gJTEBpYH)/%Y)6.z3dIxz6RdcPMFSE5;z+aQ8f7B[S_CãU"t.Az&ai]mul/T0z%5Z0+NK*4OG>'K3YRCz*tt##Lia'Qm&&]b;F3R.F^shotzVBãU"NqFf&>6.vmk.i\j06vTLJrva(n;'rAD9QfP1?A[^-ImBLãU"Ic5Ns2-vs8WFM:aJ]Tv/JtQ5A8\1[h]h6^,JvMS;ZO,NA+bVR\?ctFaBE(AO&B#ãU"=5WJ/t2q/JSZfLot-%=pYOmZG[tEjMR%<'>=W38q_Er]3qG8^hrx'd$yp8h9OedãU"&,7,Cu:RDhId+&?)NAd<+r.ghh58F142GGk2ovs(75tJp&D+3ACN(hLb_vP35c-JYLj)YlI?g)KHqMchc8g.=LkmãU"rEXE5.6^+OC&7bh,)Dk.+t2'?Ld^\V-oJE0A7O9;OYag19h/RQ4f'*T_4BL.+GuãU"wc$o\#\FRwgK4W-N$#vmLjt*9;H\0wf;KkZ[<+SXcou$C6G4]')i&66YcCil_V[ãU"uJqj3r=#^5dD3#LUUoVo*V;>]Lt1BSw8VVDb4J,kyg&\es18X'neR=E1KS5z6zfo'6DVk%tCDol*2al$T&F*uo17*6+AA5FãU"Dz^wf1Fl870UQra0)?z80UmMV71*:z>U,)2LãU"Z+Pj^;XRTH=Q-3\;rxqQf/8R7d^wn&YT\f≤ãU"<:N$n9KT'#bPm%$syoa?ih2%fri5*Ge)C34N9rIe+J,>9bD2U-7+#_('T>j0=V)ãU"Z1?Z%3(-Ri;xK:l,o0c[KS]OoE$abenY%teg6h56,]A7zIg^/rFv=*yI+XC+4E?ãU"Sb0:.Z::\Yqo)BP5y)3ZF9BRUN6PA.L7gDagbkHtRTGM^S(<8LXCS+jddC?wc/UãU"2_.17.)OvMzM*=UZPpj>S/M7EAR'-no=X;0qFp#m2[39Q-$RKeN%iFP%&(-V<.VãU"e9t':.H7RQ<6>lxiF(]Ya.^x:TZpTR9=0Ax'n7*U5V)x/iO0j5K&JB=2IL/C?HRãU"IaOT.[Ti(s6U3p=2A8.uZfA]$PN&)BktZDBS7h6f:+yX?r_O$&My?P8\Cjfp*x[ãU"O(KcYL/CP/ky*%9Gc\5ZuGu-ToIK=)S)Tgr;5V%wq73c/(:evOMi/iWg4f^v-^QãU"jj^HQDj;ãU"(C_eKn%,9%<;kW_]\bS\zkp.KnM=+jE+2Dj$+Q7jmE:2RWM1c0rsUE^/]R'<\JjãU"y67NGsLr.a\)$#k?,k?qS)?CqfX4[IKjlkRSg>VUjiqA/5(1dj5ctAR#o9xN?n5ãU"kD:ta#l<5-e,Z/(TwWgu99^kjDj[Xr\susv7Wh,%-4U$gWslC6[sOX&n:c%>\+9ãU"1\>H8HT[zTq0B'F:U91[4x.?P0Vft;SRuIoUUjcv[3<_i#UKG1TVSVetEtPVWK<ãU"5I\L(+hP4.s00A1?V1q8+8/$N^;5zB7b;(z<%mvr7]y4D6X8>1XcY_-,6I_CQMslPJU$KSn%b,od8&X+Ye&M^H+v[yK-T7g+;:%&-/ãU"IaLmMRmY4eMhr,lZ=9\U3zBew1rj/YEjF/NvN)3UvlqVr*Do2JW8sU=?kQakH>eãU"K_(:W1Q6AzejnQ&X%*1igNQ']e?;P308y[L5))Swf6kn=(U2]0bv+nE%vf/O[/7ãU"4RiZq%LWOz4lF[^5y4C)#4.5dek_2BrdO',7U7aY217qn:t<#QRKpUWDlF=Ml6:ãU"]l'QcU$E4PbM_SsMb&CR*_\x)Ap='C$['*OG3ywDj(ypk.auo5yF'R\d)s#YuT-ãU"$aMLka&Io$E)P7iZT[5EVTfm5Y9o^]B12.x14#7i;+=gLNt[\XK\l;OZ&84^?,oãU"a-g'rTm?CL>8xE21On8o/XwX[XE5S*l.R_3uj^O*u6\Bh?#R%)D^n:[ZBy%jL4=ãU"PjtxIp(SJT^oVSO2vx%NPdOAv+N&0?fB]zW$*t41B[^R]$:Basch-qhsx(n#TunãU"h^k-$^d8^D_4UdC$^6Xp)Df'd+NF5A,Ygkv)cUZJnxZ_FM=Z,P58+y.A/7Fj#KfãU"[0B=$Y-Js*Uwx+#B-=7(x[TJXj8EY-1-SaEpkzNn)Q:4w&jS#YbJ.V$C4_ddãU"ii%$zaOp9aejpNAR/rszy(P/uNo%(l>\)Fk.XZI-$hrP?toF_Iga^K-]K^ciYMzãU"XAel&G:BCyLN)[mbh_Z=xml&pLtmPE0.lE7yt>o?[H_PudFLf3BPKY%^m%o<-l1ãU"4=cL-3\jw8R&\f?VbR7oIty%\4wQ&j6N,_1DaPgcL=IeTSZPE<(BJ-p?ja>E+:CãU"O?_4^QduhEOE\YelwOr-eKA,o^j%a)R6-u%(1Wf\?OCLYãU"y/wDs0=t?H#Uo%cUlU8m0nQV+BI?N[7W\nn+wY[KL+65oo^[%VOya9Ygt<%r>ydãU"OVWZvj3j#3[SFLkDC\7x&&=HY/$(Hn\s'#6nxa%nZam<74$MMu9pin7,,DMGWJSãU":g,.MN)LMZM&.q]]^1a8k*2V3rCkD3^=gFD75#62-oD-ãU"<3D=.3lnLhxwVke\xDMlIs\Ev%3xClrF8fm(\l/RDT*5tK_TX?f?phvPUt'Iev?ãU"Hb>.qf9[\b0/H\K\QDdT:-v:uFYE:MMw*e2[vZY1eYhYL;W932dn\^ZLl5=%*34ãU"lhFBY,RnbUYFu(a4Wrir+1=>3j':/[=A8bY9>J%;TH:XPby$/*f69cY+-8My/D:ãU"(S=1*YH3hu&:akB\c7V#S8DZ(kp#&hkQl?B9$?u]9N=LDUjSk:G?E6:qr.]%Ax?ãU"Yu2m[5#^v&'ha8HiãU"Q?C$BIEfm6#Orpnkk3K&,TC\6LZ\+5gKg^1qrZ&fCAm&hVWT&hNWO'R,G.sKi:VãU"V#/EOP8?2ZV)iiS*[asP35cI4'_Np7+s[,22-43VlYMSC6HHDt%fGXh?RtEvN%wãU"iVU,ruie#N*h4SiM)AuEf'xsk6?)+e5_P>n6G:pX6^fjm*cAA4n=e#8uu&NGb$ZãU"K+PZIIOiA$rD3Gwd+.28-vP=G9X]LG9(8b-XrTCej8^C]rk4u[L7A4ioD5Ku?0,ãU"e*ikB_(h_\G'*3kPLdSG/8]*;)BZU_H3taE6TQur&+D7m8wAlQly(uEJDZ:O9aXãU"4\,l/Wy.J_YO4St7BZBAzmY$t\%_K*ngRlNIB5B$RWJRcamkrW%++s/Z+Gbe_&6Z&$C-R>AaZVf$&;^AMRBLaãU"(^3KHW=GYPe$A>hreo<>icLZLb-rJrE#%0HQC'eH\n6RmL+6GEC'j38lL#+n$RnãU"U/('3,'VJ[&OU4E/8^F>0:)7DIO4_QCYoEoQI<;g,J0q%:tCh>\I3]k#Pf,n5$3ãU">n3njx,Jey$u&%QN7+rRp;(Q8Wr6T0tNXYf9e8u3TxB7Qjr4^Wa>R=[Dd7.wBvjãU"w)3k3Gaeqj1>G.ol/_[H1w4dLGis'3L3e+'d9phmlc5Q[8VrN+0T%(7Qv.JI+B_ãU"g(;A%g.?k9=4RMj)[?*pl1Fk-bsvm'QBKIp0#HrCu\x+g>&QuZ%'NFgXLR/vf)QãU"8fp;0PNstcI)))$u/3#emEy3X$wE)s7Tr.&JJ?qTbBuBs;nb.N5i$'d)\%Mox*>ãU"G.6F:r>'uYR<%=Vsh\ZamI.,fl[IN?kahA9/EhEx%=TS]OwRc*'6mjTmPP$R0axill,u]%l+1hABãU"PQ%;F/7ne*Cd:(4PF/XY#bUh%S40Q1JBe10>Q/t,&&r%Oy^0%N9aTTDU(O6cB;KãU"$lE%oX:V7)yhbOn%2,u26JCuVQ;F.KyiQdNOãU"uaY\]*-(&&,sn>LV4^&D.N.$bTwjf9D9+V0e',r?l[>-HEVE7M/oO0ePSIhX3zcãU"JEVKpxG*T+oa0OC?8W)x1lJNb('w&1TJ#etSA*qn\%8KF[1d?8Zs5LGãU";n/^X%oN:(JRo$t&U3XfaEa?88U#]x$QC#h%bZ$Y%9kB^sW)oT$H>RXUd/M_NtyãU"MthB/3D$s.?+)2h*+3+mH00nsX%RVJ30T]tF:Q*F[st8a4>p$''M_,X.Haxq^&?ãU"&1.K5_eRD%boMwbp?1552MdmUC^#WzP7L^mco2:>OhOfVT6.d.T9Ao3U1%E]bVRãU">kKq+x9=S9mIKn[ntYR.x5KlJHfHCãU"Mwx3sM4\>e%8)-Ba4g'_]g,2C74I&CE-o\_3BKkpN$I5p)P#V^rG%bY>m/A[oZpãU"&s;iuW>z^AXQ(fuq1DMB-0/vLK0IqA[SmaRJ^Z2__^Nakp*AAk=46kVGcSwH7G#ãU",M/nqt9(I$AU%9,s92xK1&cMJyw[gp:kg1pne8-=3b:UyrQ;$Ll>h[bZ,tC]nRdãU"j^&=V9-s7T3gN5G&+oEQlb+H^;)>:2C-u;qQ^eRhbHiE6*ilU5y7C,V3>qYeECAãU";n)cLQFqKZ\)vZ&_)o;>tA\Aa>/9K#C6gL6&]_=,8Z8w6X]ru&sBOqsd-QK_D0F95o5d&3J2R)Pm/*GO?0jSeRãU"rGe.fVce.Wqr.:SSLc/f?5I?wkd*FN*U4[[R[\tI3s>'o;?ek#qtSR$,2lVr_R#ãU"ATTKSC)RQ_/f*Ka;9U9RXXmfYdnQdn-c_22y+07Arw,CeGDgB2q,*;iF_&$mK7uãU"jrQ4CgLQ)^=*=DM,312U<2r'GL%eZl,Ka,N-;eeqoC%rBL=9]P+]n8M2d';XQP-ãU"oNqXq_&lM98MT;8OY%7A&K+<);HePgHgQ&w>Jmh6;J\vkgIy8b1B:yS7GW?v'ADãU";3g\TzpZFmkGnhW\8B$Q'CObm*gU8XMYi%9Y6*LQWax)wz2fRZLc*'Ym[:8IãU"5rdp7^EFMg(vUK/\FEVi*/A*>/^[G--$Gw[SyO-hdeu2(=(U^)(_Q=))Tg3'cD(ãU"C[QyZeJq($ZJl*bnX*Y$<&OkZjOD9KpX.Vl\F^q'?'_=_<%t0Kx10YjJ6E?[j+TãU"-0Rg#4;n]bT38wFr6.RjGvR>P]2F+TVs(SU>\?r'8m^.uuZ)4ãU"-FW*Ze'1BT;aF*FO-\7nk,)O*s#]Ud$4ZnUK^**(rPJvSzcCr6Pd#OmQ/-^^yItãU"e(=w_U=E:J+k-p)q=SFX&?9B61*shGEãU";=cL6Gi8Mr[/aDUaR7CH\F7=eGIqC#<10O&+Q5iSW2A%&5(YBLkB2Y=/WJq1#P[.O)lV5fSM3E(0g;YBLkFRW:P88MulFC7/&XGF\sãU"iQkmD\u0Rjsm>lJx*Nx\0]7i;Ho54ElS\e8NIvHcFtJ$wvy6D\tTB6>]ãU"HFLf-v^lA]uipBfQ8mt(ãU".P:\M?tC-u1E]D0JLVQb#u:7IBxGdP;6*MH6:a1CTWBQ9r,/K-X%8?XZ5jEcjN?ãU".Ag]DhM('-NXj?OBPxL1[0I==Pev%fT#^jy_:xO8B;kQ$#$:91xC]v%H'x(s&9sãU"cEN=ePt]djzvAZkWTlkdNFloTL]P/Aa.6tf$.'.''-.c:H)u10Pk7dm5MBf]yg%ãU"2knlB.C5.HezZR#V&)xwfTOF,j2-(j\DAC[Nq/kN=vBrCouqHF?YhEPEqL:U,nBãU">iC]0lGdwQC,3PWZbpv;eJMP>1WM==W=3K]=^?P3cH+[s51%+NcaZKG+UK&0*)gãU"\rrTcSWKrDGpk-tN6wuk\%_2c=$dgQ_ip?up8q0eR.:iiKRfxIIa?DVJY:PxBp\ãU"S:0Dm$aJ'rt#'sq4u$^Uj[crsn,>h>F-naViZA\Dy>x:dnxju:Cxwuu(.aLDn>NãU"oh6++f3ka$exGhs?Q2vil_B33ltwyp&<7Dxb&x-,3PTT*Uqxb>MvN+D*7,ZE$^NãU"5'oil$LfP4_[L2<52tPBU$A>HF(mC(4s-Mr]/b[_v)ZuF$NdQk=t[HEV#&;Kp0iãU"$p]TQ(X=JS.B9g6j.PYV(FIsVCJn^sn\ZorLDqeBo4M#QtrbP['X;E*MU:[rsxpãU"Z9ox#*Am2$fsOKOurãU"Oja(c:2gI=9gmJh(0KSCnq%-7O+Z,YTN\f4AL1e=:i^ZjnN\A#q0VNP6lDCb>x9BNPAp'1WbHw[pIPJ3Ib'k.PL?J9k,%JoEjg5nãU"caHa\Z#MIm35DK'/3oapQ*BDIYS;Gsqcnkcs_YR5.4kRDk9Tu^wxãU"U/4OD?#$iN0E>s+>pp+n4EQ5Q]6jS+)jG_Ix.3syfcq\6)1Ce5<6a-ãU"6_\OvNX5kDkRNRRQ&br_ZcZw$HCw0aãEND SUBãSUB V9ãU">&]iQ^:mKha;B154)T\T42.J*Uu.(=e=y/>9HB.&[tHpUTJ8$nuNHv4u(hN?a#lb,+uzfb:=P8n_Nk-CuKoE^;Obpn.RgYnechW\g<*$KGa-*6_QiT1.s(ODãU"AROd(jI9jD-c^t]%;tfR5KsQppj2q-ãU"O:8[0ocT1T7CGD0W=IE0>Uuk0SHnoeiW<_#\.H%]TzPJjYe[S;5t(ãU"TW.KiXTEjT/uG,Y74*As*%qFBQj9wo7$4uqzF_H%UOi';j?bBTr2%x5)],ndPi9ãU"t4.&iNF:08$L]hipR&k4Z0lm.nFW=*7K1Pj*(IdSiXtHB3l]H^Vp4&ZLl\,?brcãU"^()iuSb0e.dE7$n=KB_*A?BjrH$^Fzk?-XK.HNDU>_N_,T$Xi7,Lu6kfyDcwo^uãU"ZrDNve?L;wo$SP#2t5?0rnKe9?[UvL_Or/ialqT6OshAnj,Z0ts;;Z;lFf&,L-3ãU"]ycHKNIjrs.Rq)FjrX4aPL]fYM)ZurLV/NSSlBu\n7PCdzt5(kE3'1OQWi'i^OSãU"r0^9(V)dmV%:RA4.R[qoH7B:&0ft;;(z^V7[ft*(Fc654PbQ3[6A&*XCB=r:zSjãU",j*+)Fmvd5:as?$^UENI^F.Mh>:&oh__OW.3H\W'qbvaeKYwBYV;M[E/_[kgucAãU"RJ:E[58X'<38Ws(cvg?JB^*EZve8D/V-^-k&WQJ?ZqgRn,.E0r/[DT+zd.0J\K^ãU"fA4nn2qla*+3X1]0oq3vRG#J;1G%r,L_[lnuv2NXl%bN#.]d[4VMfJyFYB+85ucãU"?/M(\GOC>X_c,yPetInE<.aMDI1akd?46H/#\-IHQch*_.7/ãU"do'QJ0UH&w$nmTL0;2&wV#H)M+IKF/?+ln;k;93Omokn+X[j-_n[V7,cuSQSX1HãU"NfeJfM5:Wj6i&:d:A6-v3(G+P)a9)l2nx,'xeh;'E^T,jr=[X$UX&FQD,-?j]OpãU"Ci(=pqf/Q&8P.(<.#^Pz&_.C&=92J&%9^?elZpjqC(pU(HSWHH=ui?R^,ZVStPqãU"A:.[v4yN&3Dc4G=*[A/JJC^t:hKX4.Oq%l.3bJ9bAEiBmxSBq-:Y[XzMw%6OyE1ãU"1b7._)PLZoik3$geu6HA_UPZt*oM<7oXXQ/tx1S2hIUjUL(J\uf\>6*$%9cp)>RãU"9VDS)N5ãU"QOj&[,uJ(bC1LQ-YyF09JXGy1\NlbeA6cBZEx;O2PwA=,3M1>xfR=\^LUn._Q8rãU"a$7M38I/j/U9TIZK0^l_NP2FF;O2x8$widE-D2-3qt>-FEbSh$(kgdHbE+i:=z?ãU";9-$oD#3mlq>t,&o.8TU.stSP$:81GQzs6iF'ãU"S=>(4/ZaBQ#ZBOjf>^uhLMuK*ZoGk\B'U8;CCmxk0\cDl(iSY1]1K1vVnatEQ]DãU"Lk)sJ_JI0CL5EB$8HA(8^4)]h6ktJv$s)iH&i]9VSRENSV>njdwnC'VdcTW%_(3ãU"Mdkb^?xu#dTg;YPr^d7wZp$xDr^47w?HxKQS&sb=giU-N.dd\ghV(maSU>mS\fFãU"9v4&ZVNe]&s'1&tSY\U8iA.4GfgLHdbFIE>2X0LmY)?M*a9'.>$DA*&7r25i%ZsUNdCY/[T6/b#oãU"b=uNK2Pusk?viL]Zk,>o5Gj5m]2t#k-y$;bN-GP0U9cBlTJL=J#DiCC)/4?I(&pãU"_u.r=Y=^LB$S$U+pe&66EãU"%B2lVNid71^NRm4BW2;9jOqan&BoEMko>aqvh^lXUUCrSV(V*(jA5ca*,o3dZ#fãU"UJngJ#hK5KqD?g&sm5:Q,9fWt;lN9/+H5SKPsgM$4frI%uMiI$J_eqYKNIes$GU/QJ*%4[W#571It*UbGlIa5H2ve6YB6(fhãU"lYVL#=TjcA2KyRWf#1rixXPcFP/ogpt^COcJApz/L9s%mNbT?xZAuVãU"L^FYKJH_s$SB#HnTzrg4GGUE7KIt)d<5q9TpF.9;WL3lJ1/>)/l\*HLmO:&O&M%Q+?D0NQJFF#I6-54ãU"A'iQ/=s-d*#bP\H6Iz-<3Jikcok3p;&oP0e6^/tjcPx9Zt%7r093Oy)d6e_,R<_ãU"h&1*I%c+HUSoea+&yfGm8,)KBSKPJ1&rBJGa;i;qA\UIj0ãU"a(O?KG:VnfSijH)4jYCZV7Fo)5-ahMjN9*v?B_\0[4.-9GQbp5?9eJ36EKWEMB^ãU"#EfY:33&YI04&ymomV4:8t64Leb>$2r\c]]Y+H82rSQD[J\t*8_QniaEP%uThiP/PC?Pjd*+u2Qfok=1A(5*2T'L\D\r-x20NbEU/Pid:R[prrPãU"^G=4\\3/6pGuPNg1^C:r\\iP4-N[\%hr]UxZhsdtZ0+/;gJfzZo,HQ(Jz='%F'9FpHuKBc,P%+jLKOS3nV4zf1=Xt%k\ZdpPRãU"O:q*K%zn*-;li7a/[HAI>WpyG^&\WfnK*HkaH)>5971y#Gcp%=XHkj87e*2?HH]ãU"gH3oQ:EU0Lj1ZVkZI,C*BZAJ\qPeE6nA4_r7I,[vb)94#BZas,%W/4(CiC(8ii*ãU"dU*Fwg-7Pie6*d+jZ&P6N)jfK$2-2o,Oy5'hinL$t,sR3b/=FQkAw)kuY*-eBoXãU"5jE+bezLjfG6.AC]Sg366LdE(YTA$&ja3Ns5lQiZp9fSO1hzJ2ãU"]qSoVRAc;=Wf/k%'83'IYm=lU).Q^YWJ.*aB(ITr0=Honr[Tt9+R:rQ8$+^3_2kãU"IWpdyqq\+CCi'i\GOsjDJCjtE&2ãU"?>0NM*Yn.<[5+LMTKSMWTcV4+72MT2n4'Ip0JnrM9GvYJOi(,,-TGdr&dkNn3IsãU"]]un3Vl1*Kb.nJ$QsdBLg1+NQzeJJ),>kW#x0r7U.7^1JN-kM;D/soyxE$jK>*kãU"XmVO6Xx8_h1/nIi$O^cuu\UpRO;:mDNEd,TKq]xkXXPMG=FkK7f'N^.O)6-5#Y:39ãU"P)C==7Hu:\0%)mv$_F9xAZZID2nAfEZblHPn\kNgaReCbj(<_BH0t\ol+1v(RzDãU"Uf-z'%Ab850a9/Y[S<[PpAQJN0Z=#_,9d&+<[4^Kt5mtrxQT$WK?\Z3bC-s]7EmãU"(H^r,FN7gH0-Rtw:YTbSZP>U*.>tZOvCEtJMK8VcVW[;*iO5*3EAt;%bxpQ)d-U]8CbvU]0mWãU"hIfdBri?ZMkj4hnZA&Vr^Y%I7B?,3/g:whDiA]qQad\IKrzY]p1m%A-iN(>\U6&/f9-;.,9OeãU",e^[Kq&=l]Z5ppC_L]Q?&LrR=&mr#RY]N((/=B#pc)JJJF4KI>6-?$_U%H4o/aAwkGRY<:1V&]NpiiY_7_s8]KrjuãU"kIWR/+zI]K:'YOt_apIbP5Njp>(>mUg;>>49U5FMHNUL6lc6vj=9YUe2%bXK%_qãU"Kf7C\eYzJiB;O=:W+ãU"bvD-[;.)O_RQ*(b66t)pqy/r5pXt4JaH.z6CqF&Xdw[egTIe$CYmE3s?%u^lvVtãU"vbtv0k/AJ.M?PlqfiT1r'Z[X6-lf1kD_FoTq^onf:W#>M(qA\h(BBI9mkq80uj*ãU"^Yv=gd<[pM2'x;88li&GjzW[op+RmJ]ipq;NL2_UkD3op(0>H\s6GIrãU"B&?SX')AK,\ZL,m,/ag_kb(sjZGs%%:6jVKOc[&;NikwYd,jvi_[wG\FT5h:SuCãU"Ni(n;rxGKOq5\YBp$4K)BX-X/)0zZDWmpZaãU"vP-tf2;eo#Tsb*[>S?a(F9(:rY$bs4GBtãU"sxjs^MZd;yO;F5-EE3Xtdg[Tv*ljSFG#a7i<6[=XAf_YI2yKrS>tnt1;X[GXDV.ãU"mV]OBh5deU0vBeWvpaL1i_[(#KKFg5mPgji=UG496I4>q9Z<0-A[00w;\WFKwdRãU"cS]ro*+VsC,QR&:WW9]USu8=OIidwM1_;;=R'f]qU[<8Po7>v-Ju>L4t.G35e8CãU"Fp;>wm\cq5E,.=\1KQ/G]NCGt-K:lC7oZ-bBUA&#po\o$SBh&[l031_92%>cs%'gZ3W48Mc\k'_uPc\'$>eE#mirv)L3hb;6G0H>:Z/UrHwbXKzDZKd>_4m^7+3ãU"E$3cGfEjqEnxLg]x3DJ[S8DHaT;(uc[$I,_8^#nf*pg=3J+taun=[X%i35D'D&;ãU"9B<1iPt.B>o)>-ix#zX/5Yg;;.fuahHf_P45LOJ4PEFpN_JQ#zSOLtDeDY0qu6d,]jHaG[Q3]O%DDZ^B\(_ãU"agoX1MyRkX?4<98QVTEJ*KbHH:hUnOU44h0i#jI*Y>GEIG*ncnY'TQkB*.0VsoG)UG76I:m+tbwlcL'wWK7w_..Iat_lfhH&GZ/\M,ãU"?oC\#e==NP3:bpQ2'y]t1:J>fGk)rrZxIaS1P<1Pbo1Glv0IMt#nV]N$x1.aR,sh6z%4M&K8gaxãU"+t9Nh>i%#PaXZ.:d*jadE>?WHO5;]S#y%jtZ1=0u;(ãU"H$g]y-xil\FDmL[YVYVlBIau4&kX2sKuOc<&d&ãU"/gn^]Jd.0Wq>_Iq1h9)#J$hz42mO9#h&Qhdyr'MCPW_aa,gRG,-WgUaolTgGl'CãU"IWP6DxD-zZvUdlQXQp>aq9XXdTU.;iP26w$*hT\EdqXNOvHfH_v#*,>2^V7%^$+ãU"#q0Ye8ExiL*K]Rc^jJRJJWjMcGP^O>/Z^R;^mAqh#>6X8ikUk6hãU"^p%RlFqS(^bpPB3kw*[Ncmlk/r=r4)ãU"1[?=.LhY,0Fh-Ye&i^3X:,gxU.^3vcg($apvFQ,S=T\%VtDLX=11;CJ34J$VL9?ãU"RTeXpa/,.Iy+D)zdT^vvS56nBCZNHW*^b'PgicRec;6va[m?UH(k1?I)PEf2f$ok0Hh]SiEAqk0Hx]7'jcthG\beSiGAs^8-(^7+jsãU"tXMX^2^0r0j\$c[uC]+550dhmZ[vg]n(fN?-5'Vh;>miuUJblB[1HC>P=BviA8MãU">b6&MXZ5Q1X>u^+QHu&5&aJNC^?eU.M_e0kU-yQWDG$8clV#:Ii:I1=N5a-r&sWãU"$R[D*X^Bi*(n-sWU>>.#4_Bu9K^d?a3ZfHD)CaNc$w-LRK-?AJps[)&pyvV'^zxãU"t=s:F.MBJw0I]w-DC<-6I,?>kvCW18H/m4,+hI/Dh%36KI3h[^ZOkgo[v2?o1s6ãU"1.;V_.7$U)>p>B$Js$e3\l%n\rh,xQW$Gi427Aj]kQ\c/H:NkPVj'B7D3\vl]tiãU"p7emCIH)tbtY&+F$U3z2XUnVh?-.NQ+?j#LVO^EG[M6A=1/99EtcX]U\aVGnmR_ãU"b];10in#T)]T-7<0j69W[EgWpaj\P.DVQ.fWwsQ#EzKQGl+b*r7y94Td>#n?toqV?XQ\4uqb?C\+FDlZQ\#3_B^ãU"dY[<2uD&IWQnLtM,R(w8g9g^]iKtGRLjj(ceIC%+5;KabHRx._hIãU"clK0#sl*e^%KX<,3i(B-a-?K0K7QmMPHi=C.b.W*[rnGCo^EX%Mdq7cu;$/W<+VãU"?\#x)R\am#&Hq?UqrCR6I#*llmf2-\#,vab0NR2D_oD^u2[Tu,l]neBNg>#0&9HãU"10=97a>G2-kx=[V?A69DB%3b2Df4-Cd,1X)ZXqOq,B:+&3B;(r0+gFbF(ãU"7pãU"DnT0O^xI5m=MNdt9XfU;sT7$pYtQ&QIKD\7kbveJ7/UXX>WF?LeH[FWl<2cH-2\ãU"vV/ho]Lp(w91>F+oIuv,#dN]ZQ[9H8:/fG*S%72*I6\+*0%MaG,<,&6yLM/-:KtEsfH$I*8/h_37113F-^/yc/ãU"(5c.t2.V&-0C97jA^4f$:RfQq8SK6hau_P^EMw5c/0Ch-+pWFMXHDDG5KKLHV_TãU"hudK(3F'N##<)JE3/m+bAi#ufbn067(?h-TSj=wX\g\k-dWMTwbWf6wts(60qh;ãU"eQ3K?7D>UU6mum.UC;#JJJp_Kxf6RoW[vwAmumKcIfe4-;u38j8CFsRBM^gB\F9ãU"ajD\G9C9GuA.']4>C9GuJ4GG>N/fqw1MmYG9WYo-)NSI#Gi-IjsvãU"Q+fT+>>D9R1nlXMgD5&wd'(Y_UwW-xa;>o^V0A7M4UG[XbX\WZ^1yI]4e(qãU"5dhdwhWXPV$QJG:kAT4E'zsOu4#R&VEK-IxUJ94sa1k*oOp/0om=b,ocXZiHR$wX=#<:'PFBBu.0T:gmN[P4fj\dEaD-P>1fo_N-A7+.zkHCM)oGãU"wPkZ,lN&vVM8V%hY&W?>TK0hOF[?d1GaHGlj-r6a2f.9C[<+/n[NA5+YECP^)[tãU"4rgAI?I/YsAE=JdxW$81X6z1sD31$F>:EXcA,''Xfd2L*l:5W6[h5ZO-6RQ3$qhãU"[Z;>F-,pNB5J34QA=.[\J'&B[I+.AKãU"FPZ#:8J42g%sH00(QHL7\:U?)T\413BoGu>B?)mu>;QKfeFlL=&$rãU"89PUS1DKLm#>E25E0gv#9$.]5>3YCY]GUAvK*a(-Pp7HLGV6YjSl_^,)P4b-RK)ãU"G2U;fR:m]NFzPKR9gWX0(XgEwTtlJ5tz-,Jq=c/Da+1/n_mC[+a-aTkU5j##kt<ãU"_M;\3m:Ui86TD/9uux:L\Os_<0LUpcUO]c<2v/BY:qVNvh]UMR*f6-NHgH6P?iIãU"FbO1CIs)j0?1N%$=UnM>-JOq\M&?Yukv^r?gZj%sVotJA\LRPhKU3hF\q;U3HP_Th*QRR3fF_G(sãU"^aWR+3EVU,',u;&TRlk(3El2qIi?PGr^VuL;ZXZ#g^B#2)[,FlLthEFE,afkX2.ãU"opj*4d+2:Ry9dVG,2x\lyUQ.-(\Q/$lgBDEO%4,U\W^6K(1JGzTtwhk&M]2hKHEPDVDIqW-Z*3u:j%5YXyN$tSpOCr^cKPDãU"H_b*hLXnGz'dlzjOTP^9M-K1Fivwye,Evqtatv,'%DzzDkEv?qZZrtK[d&znj]?ãU"RPCGG)&#dZ3\4BWY$*/5d[nU.3Xm'%;q,Me)]%[&9d'7T_&M[ãU"R2kZHH2,4Dl><]X>l#c[XcSV]]:JlJjMc,Gpa_#+Z.=uh#Em?UUi+M_^R1Svvr=ãU"$hVvgljG^/uO&VMQ7hL%hY.;KCt6pQwElOaZ_M6o_PH)3V\BKle^WMnJC&gT(ypaãU"_9;i?'Wd)YjdEf;rI(H,;_VWT9^lghB3OL+aH(r>m5$EVhlqy]PN[>=w6PV+[PvãU"WP:nq.WptQ2#ly(vDWnqCuPBkb\[k5B:Hw=idFpmpDPG>lj%cDnAV0yp,o:lCm<ãU"'II+HH0&57q$,eU%C[/$LU%lMD<[DD3meCaLI-)6U%y5MEpF^+ya_KMu_QhI\edãU"IU5t:WQ:-+eo1zP572](jv3U6akD*CN)I\eBde5rPzP7H\lB'IQBhAdlAKSm0a%ãU"hE1sg0E?BA)=:oXha&>(*CPNY5Q=[]Z([\F/p*iP#5++3()>ij6L>=/4ZBV('DXãU"bcA\f9dC_%+EkBE3$VF3]xj%:SrGxF\3/w2IyO%3wwB\T\TFR+\iM1CDno;PãU"R4#515cK64XpeU#bR#zv^k]X?U>2GX%HMv,?7'&(81]*G>9jbp:jx8Vpbt>hXslãU"9L8CeZ]ldD&VD?brkg?>,Day-&G_:AiAw^[=OYiqV'*]DQQ?PSãU"'2K+&SVh;Y?>dSAmL;s>MwM_1qp4V])hH)?+o]PP1?6n'&-6os:YcE(IP?Jvj9>ãU"L;85HHslQY.<0HGr(Zb[+LqbTDEnBDM8w_K(/2,=4V/&l30*hlT+jdãU"jkp,D0p.6+FPr\55l7tmgFHof2'UE$o(o2O?aA%Sh2-cQ+0?1,1;>LT-,xQ?q\bãU"'^?5]uXY(6+[e88G[uF84Jv87gcZm'FMGHPK?U(2SnSgd_^l/YD1pTOgUMh-8KUD6S5#ran;OãU"Di-EKcJVeaVayNK2wB#cQs'aIHVk3zLpr0LK$5mVqFd6ls-Hdd+550-6Hd=H)mFãU"_nW)6aRZ983jN=GKY]cD]$PZMW4joljR?2,Wrc,]9;(ãU"sRY&Z)kY(q?\qA/jI=4i%0^GUãEND SUBãSUB VAãU"BGU,n\\A.1h3gRH1k][=Ku;;M%Hlf1&M0[X#lj1M.0[eX=d8-o,qfdSut0fDWo<ãU"pB2^;$ygGXM0r(.X[p,BYH7aMW?eH,)tX9ro\Gu;D:icnNKOyq2s[sHT;#ESlyNãU"AWj$:whBkk'13+o3)e6tdgY[W,$'38j^k/'MtD^;'(UWRW3K\[KrK:KYyW,isZjãU"pl/4Lbtl842^c5A$oSB;'g'5&w?GE5>e-X27)bãU"uelEU9.]uG*jAAdV_)E*,.5J1Q=:mvnm+5eZbAiCX$BXH&G+/a6wm[gYJoihs>O6h%$N(*(CNyk$?Ua[\O1BI.lAZãU"f11UFe6wgBV9QOcãU",oQ*Ne4]Ri>+Sr1ZTe)$j#aLm1Adn$,h=yLVaitCsC6wec$KVE\r,r(y9cL,EO5ãU";D05+axVj_^QqI/2FG9.I5Ci2E[=_Z.7vMZx,,6R+u*%&L+Nho3qKQ8[.LxC6C)ãU"IG[?c0A/dDXmb]Z;^CMIon8(t>jmepBRN#oXXnD$WZH3R5<(mfuK08TC0+NmYCV0Xm.Jko-DD2uJLA\?76Im2#7in4yY;+HZ#4#ãU"9s)-nN01^.^IY6]%p4Z(ImKA%t/*];D8&k;bJNQS=ENLT<\qF)oHJ-DSghJeOZ_):glHD*wVNbkxp.$ZQ)B*lfZX2PHqu*.bãU">%r^O;UFUU&lP3,UtRt>TE(g1Yi*xp&B872PjkY7$Eaj;ãU"Qm1HmLWxww%x:CxE:6.W80M_ZIDQ6ZO0VBH3%pS4cP0SjQUjP$2]4Cmi=JAQl8bãU"74%\zxqJ5J/(R>iRG_o(xI9V*_j6mhm_Z_nk$?Lr]Cuwf-6?pB$D4kF0LZkZV=/ãU"sbPZ3?lk7X&mq4+0n+sYB5Zp>Z%63]L)ãU"HVp?uf;77FE;(I:7O+K5WlvBecq$Fq6QMu9Hi<44?XDT5mYV.52UD>KM;4Y$lãU"<^Ab(_M8k]jhc[ZL2Zi\MT%D.VEMM;5MF*u5G['d9^F*iHd;H(umU.u4v/\DfKhãU"M+aqC&1)M#%K=M1-eD\aLjP[eV1e\\VG,=t^e_(&OD%5$q$q6g%M3=kf>^-EaZDãU"k#8die094$0eUDO,9iho$A-itLZi\MXaDaAa*?^XZ9t*iHOkivqTi'uxFQ7QN7O&><#d=LMT=-wc8\*\t+>DXppfPrE#>VãU"K26Z1-sXGe6x)P/H2j]3I&Ww,]M%7>rC.$6>RaYuk2=TvtCaacj_VGE?9_sNT:aãU"?)xOt4QiJVxJ['Q3gX2)LCtA+pLbJ3]dCt[A#ipH=*pCRto;x\J_BFnxwDIa768ãU"O4uQ9L/C(953)'njBJ^JkEicyY0I^0wfkOkGBHa_k5W//cAZnFr*NK-jNQ68HfmoãU"DYa3S.EfdoD7'Q86rj/oV7c?RKb'La_q;)c.mu4w+K,rDQ5Kt*DbC>';bcRmKs&ãU"DxA$S(z2$csAlacRiFPãU"X+J%QDM(tM:\c3#UG-y.Wg:3YLA'k=h_O;e4[AmZ74:cãU"a+unio=OI77e'ncRsqJt1Ieh3u%,v4fV]F2IL-ALU,IaeBaSI2bN2u1WS\0O0=aãU"XJ;EcL=]*$$66(rR9<&OD=g7D),MBSEIgio9Ro8)b(3,WZQB(5awD6:W;f$/syKãU"&RUWVcE'-*-I*t3d8_p^]ie;Y(.o\_jQVqimR$Ns)o)BCunI4ZV6\+\,CLD#:.QãU"H*uSL:39TU8z;X;zQAu1ãU"Pk):asV:QgJ,)tM^M(z2CYRcqm7:;]\AiUlnF1,t&e'0#oIt^Vvh0>;lT&u:VcIãU"Pc^lY6%7SqOhd_P)nxyKJg=8ci(8psgr;*#:I4sT&tf-.,PJ1:DD62,fsR#uãU"F^C4n%/pYmY9j)vw=0)quS.;bq&mf[iU/%1ER7LHg0Ws)];gg]SMg\^bLIMR0<)ãU"rd\2fQj1u9t2g1Hub>1fMHLXmbs#TRiD/k+p/q%LmCH)q9FG]-n4IãU"wly(%)e1:fU%;B'Dw%w\1H6357O6h_GYA-J6BG[#abcX>T'ch&1#Q.ãU"$(8_Xbdm?Aq[8mQ6Q:#y)#DZg_ip^*=];H8[]vkXX.fic$$CL7YU/&bDTtb.yG]ãU"YEk9TTdmdc(FNst.s#0C]ck:4J&WZe$BM5F)Nx#k&w$HEO-N_W1C7.3:^#rvElgãU"hLJCPbm*Fv1rHF[r7zX.X6<;V./U4ag$;^3nFOeU6t\B[VCqo]*S^U#PPE1_R\KãU"Aj_6RaHCD$E2RAF,RUTSIkAZ+8iH,(qp]2EFlZxNBXV6wtC^eA7\)XnEL&XtRJpãU"LC'AQ*$ãU"cns<:SA[8(9A_JBANJjãU"ijPDUN8-lk(wXzN'MhsA(h_8l,we]SPgC]4g^ZkE#-nPa[8td\%)ILV9rX]I=0DãU"BnD(wPJm3^:LW>9]c+m%msZBMHbU8k_tf])F8)6$8a1iIhbDakWXI'\;^J&c-SQogl^6;,e+YB;ckP?ãU"iDQIyW?:*/\R_Z\?A:Y;*tHtp*>gq6f*>>UTQGhd_Rmb*:F*mc1$&V8GQIC-rgSãU"g:O=3G_-YonYi=1g_=70&Lx(_*6nCYHg%%('a,PfXjRKQV=uf*T[TN8;:1Rb3YfãU"Q_/UTUgpu^5-MMyM,gdTH3:.S,=.rdgs.H2?O&2Nn\TL#7l127V]GI6-TGlS4le9:)1\rd8a^q^Wj;?$m[:?e0?VDu]p_gJMãU"8T4C??1d>h+EA11*m/rG[[>P9[JJ13##7)cqQ-6Bgyp9Znol7oãU"Iydx*qvPd=;svd&NlQ/]%Pb8:S:Orja8=EN%jKMHV-v&3[n.\Y4OvXu*[E3.dV%ãU"*)+f:),#rQ$\5;\aRUX0*QvvFZH7\M7lZWvH6h/Fgc8b=4JuH;rq**TJ7Yzt2t1ãU"\o:sDip0>Kt/]<1,LBOwPY:ZVTBi)y&gzngZmh.\i4a&0WSLRAK\nh:HW9V0W$NãU"-uZIW.3ED$t]ikjqu,rvi8[fq3OMt(48Cp-r]Sn-Bv/SQT?+iPkeE-2cR2S&2p>ãU"eiRORT]60(Fh49#*\.jhE^JbV'1O9D9mU_&#^](-S2:bQBR]EmDgtM5)+)ec;5KãU"$,&0=b$E-Jc*f^W1H'S%H1Q:PH*(7fQOA]n$pRIh_Yk\M<%dFr*y9y%FZ6?zR/'*yJ/>ziP#+yJ59,DV6e;.\2rIuXkb.p:VtUN0PGW8F/\C'uJsCur5\]q#f7asr71HsDr5dNup3,U,_M5gS:#WU,R'IXbNYãU">r[9OhJ^zcOWQ=v[d(5O>#tM+Z2N'&LNen\YgTf^kk]3DqGZ/-*PIou%ROD/zrif??XX5=SqEy>KãU"afd;wES6&gq0BMtKfotP+^c=+(Cv(L3qMcfY2u&'9[Qk^]oeFoK)\>7k;xM.RXgãU"><*?.7MuVEX;K^#M^H:sl$=ALUlCi:DH_LJxU;>%YT.+IH,a'fFjb&_C;MrJZlSãU"Mo6I*6Rt5l/Q:$Hvd\p4w2-][^0n.uthx4GLrUlYPkq#a[r&Guwsdt2._$42l+%ãU"8ubIGT7u+7mtthY4k-YMmR\=H5uX9X,FLqcjkQxjv]A&%5\dOt,-JXXUuvw(jiLãU";:k9mUr'E7N(rA>KQ)8tDX2?AYZlX;u1VXRvp.?,8xkn^ex$T&yxM,FpY(r\NvqãU"6jv*3ZIw:tFE?lp*+wDA-05DA0c,o+p6sp\#]ud1GKEC#j;QF1#TENj:Rc[;;*7(Cm)xq$hnZgãU";rH9&O[kqFe%iUR&_aT?UL=aSaDn.<$Pl:,E.;e==Ju]&0O#qSDUrp+$ZU)p+nL461Y>UX$Q:ucTãU"l[7S[WS=L=D#._$F.i:g+6ra''Zv$a+A:vLCjL3.=,q36R%EoxKSzv_SdiiK$vVãU"E1oF%Y)a8IfF.(rF'B+BVaUW#>oCSOahBWsL'7/^dHFZGI3a+$lZdBAPsYb+a*cãU"TK7RlNV#wYb+]*]VyGRUZO,#O^fA%Ar4iU&gMrBea8t4\x6Hdokwl:*XSbxU-o8ãU"n(v).i(4YZzgs?Y]Vmy]q5xCFYM1ysSD6ywZnv/N0)zsax)d-]zHGS>6$\xQZD9ãU"up\p0^&#bV=>whBES1cC,HE^tinMJz'C5PA<3'\2aHYZKfn7w9O%&G#nbkqjBZZ*ãU";BH-d'[Nq4nIX*1>_\-PmWD8=W?+0*a#;OlSO-ãU"?_n1I;;^]^_JO3P)Ta^&q\xc8943C'D1*+8biG,3OjU[-9nFUEdHVwf14wVSq*BãU"Ke+1Wp]xc9ecXwcuf/=e)ZatilX9?ppl$>o9,QhXE)h^0%Oj\k87u<\F)*>A.YCãU"-;'5Tim,X95#V+'D\/%c'LPXH=UQ7J6,WO'\54LuW2c':w)p0A/#:/%kW,D04)MãU"I.PbETs$W[^kRtr6m,4BZT,Rkm4uqP/Q/nRK)MnqZlLZ5Y;1TMb?h,vlãU":-T(,$2yDlM#DUQ=\;L55]'rNZ;)2K2r:(7Q)sAW6qLD)a:;#DTãU"eZ84OL*hZ#b-9EIu.jJ1?^)>-t7>82q9c/(5=s<:42Mz=7+:EAR]SQzj<)%(i\%ãU"z*uLuIhKZ;O6=WiCJU-EF/X&W\EGOp]?aoJ*BmHj$j9jqkoEJ\1i%9B.LV&(es.ãU"EwCf&)QjtP40BpTD4)8YbuG*TL)u.1=KJyQNbrUI-TtsW+^SIDpB4bZm46Xg7XQãU"s&'X78tRbuDc\j1'ScK&6c/ixOYqnf<29Zn+YL,.kevVk2)spQGSG-U7J6PhsN/ãU"bnL]2\#SfiYs$^S8N0Fj/I6pIvQv]1[I/(/;?',b;(oeK-;LLGhA4WQ6tQqDr4PãU"tBMNdu2R:dr2:.TcIPwmNjjusm:'C1.&Bzbf5Fo87KUmqJb3vAD=?#=h?fR7>UZãU"Z,I8EMp;XQ65a\V5p;5.jckWwiiTIXfJ'nU6IQ1%vRKclWlTcbgrpOFiD0s1neXãU"C%wy8I_N/^+R\;XwalkS(UHj]_a\6=3v+CFN?75u9w_UuvnVb/Wa&\6,1:^Mv_,ãU"W,YD\_+^G>#t,7Qn);?U2K'BO0RgD()$=uK+neB;WVDj3l;X;UzYSQA/F/>b.hWãU"#cXU8dLf%Y1i1/N$s''I<+8K52U)aãU"TQa(q4ws4^Q*r/r/Tv/q_RN3,?JYa2PYFd52b;4z$P/B;sTRB6eyZ9hQVqcR9WDãU"&OR5LcC+#S??KHsj5Y]UiXiA9[8xo?s;:fm;Ieu2+cd7^k,uV%siVK8my7qOW.4ãU"5w,5CxxQm&8ZFAjJsIS&<91P:BWOD?2,*]6c]MSMEqnJ8Gcf$]vQ=tYR%KT#3JZãU"nff,Vv'4,)J,A;pphl-u\Tn>Re'=kkht7gn?3e:<ãU"DlCUA'^wfWbN\h5z;gx]s&oA]/VQJ>%Gt,C5DH>SVF*i?'.5TV2k8D0I7$gtDEKãU"%B5nuãU"(/2qiY7+J#I+r]%skx^k:H3RAiW[DegcAhVf37j6C3H*Yq?iro.xk20&gSH3B;vãU"A/E(,Yf5;ZI6v[+3<$ZcfLO9#n^'t[/V':>qp4rr*X7mC(sW4W.3m]8_0h$]u?=ãU"9I5Mijij=p_DX%fS1UZxy+[w#6uuE[k0?_$$sla9GMmmhn(ibpxZ8\1f7M)nA]*W=vGBLãU"00sY6)-W7Uwf7j(azLQb.Z:Bf*4E;.n99JvSoi5-X#[w:&+8RHO/5$p2ãU"DGZLEjN(H#/(UWp=l:n#nAYuE4ox2jIS6P<^/b59?dJiX.hAH9od2gpGmAw?;u;ãU"a%H];\%O7R$Aak3A(HTwGSaKVIEP)5uZb5Pf5P=oM?u%u>)X0CRIhI\>Hm[9]*pãU"uKsEatK%-a(KsZshNSg\GCM(iX[Z.Vs(d&yKoD'FuGr=>T.k2?BRK*^2ArenG8mãU"A#/PR:%?*k5Z^3Y:8jGB3?]0=KM:T^7nGWTMC=PhpvB>j\AZBDtx,r1uS)fcL'uãU"Q*L$mH*^MEj\n;0?7RAsZNE7l,L=dVG>_XrbNUXPl%cH9_ejvHG7ANbX,4UvGb*ãU"/AOL/J%:TãU"%iMIrdC*g(o.0?lA3N7lOqN,U8XxgXlpO6fD6Do.9[;ãU"qZpnnqWQET(lt/Abfmqpxqnu$hX;lRhn'4dWU8Hj]9):gXSYKush$ZZ_fff(4nxãU"L3>SlnN;sroog1virnN8XaUVNF0PdN-3s?ce)2f':cMu\u5277rboh;tAt,I$P=ãU"dWq-L66d.(=rtnT8q(XdeK2.vZlH#VHoN\k8J-WatKvo^uZst0(ãU"P+Y$Zvp8>k=8S8lVXU8rVMrm=Zur(X.=88INUQ\scwndKpT&NW0>fãU"#fGcL7>Hqi%u25wPqP^:'r7N4xTu*+KMKJ:$eI]JtfjD6wqbnTXsdVwv#RaD^dDãU"TS8eL3N2Z63*3oIfXB'hlRXSzx15;?U8&>P,t#fi.,wd+IP=GFr#/9BmWLTiS4(ãU"r($o0=?4r(nOze)/Y$;m=G)wc$)M(O;>Vn$)0t60D;o4;$9O2QA0(3'*+fxãU"l+2of2(?wf$>9I&?EawhL^uV1MRF$c_.x)M0D9w49]Ae2RRvh'w_l)UU:,DQe4BãU"/r3N4qEy);n;kLYzp]]QvlU=u._ZiUvHBjklafTFpg9A-=YoF5Ic\#p[?fh;>++ãU"3,#$?oI&fLN-3r86BouJC$j;x9%BIc%2p[?Me;>'r+J64KuA#*-]8*sDBGclFw0qMso_]$>I[)_emM7,ãU"P&'Bo\a^,S1j;h//,DFqSSgg\G#4RBc-j)ãU"^*o(jZMe3e5EedwGx_.6e/1?^clK\l$L3eeO9QU$)?aWnHcc*tsIaRe(g_-L*Jr5I3bxTEfn8QURt-WEUsY58CVãU"YsZA$KKrQ]N3cPnS3c3sh[w^dbviS7WkuKBMEhP[=5cl5S[COxT[A^djvg/6XYCãU"nLsjA$Kkr6eN7yPmS7cKt>\ApdrJ$*J79r/rvA?8\Y*?O:(%r%Wekt_;LSY\9r#i4$2QH#fkI5_k3\dw(R3fV-^-MDxVp&73^\AwxIãU"m6hSo30O2MFYChFc>LKItFQn%w-(xw4.un^SBne<>N8^':uCQ9A3N%EMo3+UB.;]i%k_CoVg5EGQ=Z?eE0giRuY&pmZãU"T.Jrql+4_PHYquYn)_B-#xBqh)EAw##vRlHJG._WnnA%4Z-CU;=ZgCyha#g[zZNRãU"H(+#:&TnVd&1_G&V=#AEkHh2CS?6^_+k,Mhw\Th/404:(H6?W&%UG3q+>aJ0M$AãU"68jSC%9M0sz3X'NWãU"'7Jy_7NlJF#^M'P/JyyP8U\^Ype^rj\bKKN[.gpmI/&]*X5/Nm<<B6#8(7'O%EHãU"DOOK_(o&D(wfrF3QTlh57Yb,#bYI51%[_:Z00u:]iFTLh\+c6eO/[4zhu%bBSqtldgZYKI?,JO\Gqo+vRuY0)oãU"G9ItH)O\Ij/A[>HZLE<9We#Wl_RSE&MG$]L^iz$X$$?5t&u8==7bmT%zZv_\KkoãU"Jr&CfKgZwCIJ&[/3[-Za'M=&14azF017zfiJRoHFh=>h\vpxvSbIrJoU$ITZ$&sãU"7vx?a;+xL2V/CQ,pE2B$%V\G+.>'8*a21mF*Jn,9,]mDr&-Q$(oH?q^&_\-^)>$ãU"S[JA)+aI2WAkFf]7:Im_-CbXc=EhPv.7RrRCRIpZ6WKq:H-&j>>:JT5Nf&U3aYxãU"S4(x>J#e/OVJ5MSn*_-GdQbPr=J%Df>E*imzorjpV+(tT_VZYiYu\9Z-?3fJ%'0ãU"LhjsCEr\%='L:MLFghm/nlFH]aB5%8r6qTIa2^2ii_>Gc-YFX)m8gqC=1/)4q:[ãU"N&9VjRn59SSlW#%sl_7MTs_:;_nGpTj-B6//\1#ft;T2Vr,i>2#0(n_h^L)=L)]ãU"q($EfPsJ$Ys2BLM1v\-a-6$RRrju2.FU;Ni%wKc*m[.npg(mL_)Za57OWsh7lz9ãU">RVv_Y,'Oq-2fQyi\fGc]k45p6/SS6%nUUWJ[[]]p0v>vZKBb(B3?n.2c)'ya$4ãU"AK'\oM&N6r7SND]?T;SH%weKH:/hI+^^cp+i(FUKBSH%eK*?QrXC0w,b*F1+A_bãU"$06]YR7a\NwWxQ4+N$:&;t(Hbs11\BoWi,KC5Dc+FcMh]MM(HrB;(3.U>m2krAnãU"#lnEDf;y-8-%,v0?fRWsEQ-W:Pm5o.'fS\dl#q0)mEf]cTia+Fmp>S?JkMvqR=cãU"J\OkF&:;hDa?FPIYiDi$iD$ViDZiZN1KG)?6[5e(YS;*TTWW[ACl4$&1Nw3'?-OãU"8l1t5f7;?O#6\1#I/Y]rUk8fw,?J_l:W72$G,9JlFi1q_(\y0<]N(+p:?%lzo.1NMZkNY.F74,b4,I]sc7Lj782L$^_t6blnãU"XfJnYJVvtGuJSCLAx2auA$sBHWL-I,K.jx]DQHjoWdMIox$,(&,_ociNM1kYE?[ãU"xRgb(LOS*\w_(W7oD8VBY+Cb3jEj4GR(MV1<)q5)+omdkfZHaX:Na'IN0t2y%upãU"A0Xbs[DrWo6m>ux]iL5KtLBCbwI/NstTO'NO5^qZPeh3w9(y:5OS$h,%0=V)xcTãU"MLX-tWDdca-VC.e5F5ok*t_.U5CU#%lgmo]$J]:)L1lsi.HkF$*wm5YLsZF0hZ)t;(r*j)z7s=(_%q3a??=SGl&K2-ãU"#B?cFR&^-]Y]+7nux>Q.f^%OXh#2?eC=Jv4'=^Lp68DYI9ER,J_H7FmN>,\+Ni=ãU"$/?&r+LR/q7tQfbr*L0g/>ZmãU"u6#iDn[/=BrT[(FL;mQ)Gl_4Ha\XeNAZ/c&rX:57S;e(Y<[Rq(evaEFIGnds[uLãU"T^ksgJQ3WU_>ot94XQ/zfEDvNsk3W9GEao)?&\^kekSOWpceg&OJV*:T3ESN=QVãU"7J6V7$3LWF#IUaSG7w$3S[cw)$7[s/KDQS6mi5IM*TWf1-\^tpqq0t?*f.20=,RfL[%LNBRãU"]$5P&H>'j-l/1*%U5-%T.\kQF6FkjBr=\0ãU"&WHV5yeCMu_xua8ccgqltGEUxrjysuDTvtYCQ^UR-U.LuZhfOuj&56$/.we7#yuãU"Y%\qw_kL.6XUnxLh,*BK7u5wF-tgql(ll3V/PE4)C1A0u.Feoj(is67%Ee-5eo<ãU")h3w5F4]0y>We'K68W)6(kYl,))hd5,l;IS*P+-d#(KI4/aqpDVcDo>Tc6/L2z/ãU"OKfs]Z7bDc>;#1Zv$%3?56NKD5JVgfIrNmmoGav>=HD#(hZKFZch^KHnRpw;1wRãU"1\0iuN)CEtv%)6)V0mm)MXeEAAFR4hbd9p,L'S5M\6X:\MXkGwdWTM/6N>i'.W_ãU"KOiq*l2ft]rMQu]0;u%q$=1GRMXiE/#zC[ByucdsE,V^wS;wdtv.lAJjr%;aTY0ãU"t'[(8G-dIu'hhO4BrxsoDp%F5C)'I9W?GKB\((iRf7W+P=964EX0rLYiW=JPW^O]KcE]K#hqc:u-&r:<8Z=>N:Hd67^nãU"_r?.UjUDieZKiVOL[=1+*OiA6pNUhIRoRxEkOsKl(S6WepIp_PYnkN9#+o,xmY7s(EjRCOG;';ObJOe?k:>6$x1nCZ_Y+QGm[\k)rYieh:c$s,ãU"RAi>C+6B#%%Im%%%2%#%%x8JGy>F24ABSM723db,T3]L]=L>5oxpd2oy0vj\d#+GbãU":K'2;-QEcBTq/1\g/SN9+_KbMEhDP4DVEmrHff#NoWDmmp]*txurpsD8tZEDvdLãU"lnnv(u8vfTjtXKx3.tMrntMnNIK[/DducnpDxuslX7ZusãU"qcjo:Nwl^tnmpd:%qrHNrgtN7uPt>s<#a4H\x>Kui4t.wttJnc(.+Mjl_?xnTDNãU"87.7r+7xD?(8bdsdv^T0nDZ1^ojqxp.hw\r\V(wFtN4D'F4ãU"d\YTg'R#r,8Co-$0cr^(pTrNDVmZ)UTHV/is/2lk_*,:w#Aiwh.o?c.co&Le5Uf+1Kl[Q-3\p2#H$'&$uW32YWbs_DTaff1Xx7aJj)ãU"fKpNR_>f6IdrUh[Ak6GyP:#U%k<:m;(s,T5EiI&nvAYUm^v5ow^/M>a=^.M^V5HãU"kG)ub'lYr_W:4Gn2*:4_V]*/LD<8=qtIRsIpSZAZqpld/Ub9L[2e\\^q>JffYgfãU"-D,.d00pD0A20O&U;G]<[w.N&xkfO$7##h4Vl*JAS-3mpA-]2C?')ZSZqDq(lkWãU"a_Bo06DAUoS#S'ld(it/8MSAK$6TmrC-f*0XMUãU"XS87=eGeY7O,$]rp;XZW(G$ãU"&_oa6P^>D6Rv6/g[iYa#a4CCUR*=%-.$(['\\^jE=tC:F^,9T=12O\PsyFw6Zf:ãU"_E&hk&R=7B.$[G6>%D=C$>7?g/\M-tcjC]blrjYt1M=82b&T>l+af'ãU"dBS^D$dH/7O9Mh8fPJFeUZGãU"'RQF^mFC6jKCmt\_L5V_H,EIjX<5v0hEH8APb;j-o$h1*Fi$m=-npNUl1S-htfIW4SA5BWnmZ.7ãU"WBcZnJHW>1i>f6_X;'v>b+GW-9KTvfKn0BF/k=&rB6O&DYudk&L?S\O_IWv7^*CãU"WSIE'DiBT'$d/Yt4,]XqbZ)gluR8AIHu;gl,98'F^O96F5mY]57r1Mm&ph9Y*LzãU"JCLiB1b83Mj&7HR8(f5/#q*ToA7uPi83b('RY.^t%%2YIWMfoD1=MMrQVbKUA>uãU"euO:tB_1Ji*b[ThYJ41dH>W$X=D+'$MvsI&L8fac/A/cMz*oQAc2ot-:5UxQ\wHãU"2N[Vf:/#S=f94l4']oi'=3YbE'qjXV#KM=T;TJS5zhM\r*l=UPnJjO#vG%N&By)ãU"&SNE=d>WVd9d^4\S4UeL):Ki>b9X0iI9nj\c\=9rjPmhTr\ak87MrF.r-vI6DsdãU"5u$rapb-7gH+#XK*fMgOC-qquBoM\71MM)[hgbTcXpãU"4ZtuG(Y_]nff1lX[YJjo&k_V,7pde2hVmIl0iq,_$TnC;c],+/Zp?4s([f*nV3NãU"*/f;1FvKG(SS14CWSo9d6XzKxXmr=;bj/^$V#]0#N'?:_f#S$aCya_0B$T,rf(cãU"c(x%]LnZWTf6ll7[nGW2TD\<#)alg3qw#S#$JRz[TMBmAU)Qews.o(br*<5u(JDãU"icf$iquE.>iecp_p^O]nOJU%Hw[jTI^2ãU">PrJ8^hamn.V#IpAGs>ItZ6.fCI$V)IeF#ElRlo.$(;7kM<-,D(0Ln%GkKWbãU"BG0ni<4fMueV*]/BqG;/$:b27t8OMuD5kPq_vVa2k*1sMa#t:E&5?s+r[.pK:/ADuPA#ia,VWP8LOãU"aY7*Q-YBm>85s\qKVUfd>Zwf&pJjw?L:JE_69YSZdãU"7DP.kuh[G8..hp1A:*$xO*+B9z0]mLW9J1Q6i99._P(C6;,?im6nãU"$1YcWluU6xRJ307Rz3XgPKGyL:68YG(2r3r0/\#fd,tc*nvELv$2Y2t$h:$\f5LãU"5IRl0/tuz9T$=jGD#e2o'B?38YNe:'lOYK*3h7?.ZrL\K6A]pbNKQh<;nZKVT;#ãU"2QpsG<$dmC,O8v[bj_=VG5/ZS\oJ/rbq:%7n2_dmk##V/#*(g,\&au?/b\O0VK^ãU"TV2EanYzc'nY465>xb5=&6-*W*t3*Zq\=<>JI/aN_$O1$vh1jH]h0S?HZKWDI+FãU"DHF]Uown,ohY4^pW)d$#3['bKSfhUD[AxXEdZ'tm1zY$kr+01HpP]m?j>\m,4O?ãU"LdZ'BOSE=A=7Gw=jIb8S]%V+Y/JYm[SP][pMeB4ANl7FCMnckQgTP0mG]r7U7baãU":Q_p9Ha+B4L+ZNE6$k3nX_l\4:R-==.b]]]M%0+'CzH4/+IdQTGBfc>46O+kD9UiB*ãU".NzIdd,4JmlIuzf(C5XW+%0mi7#Fni1+pIqIuDHDMCP$97iIW3jig5zL.nYãU"jMp5$w'9DMLA\>.Y;P4C:;1,05g2PipUVhEK8Z)bZh%yFh*:tpsz_Yh>CmY0tGW;;dãU";/3EwWjE>xx/9)zCBEAfd*JGJW2So[OLjl.d(vt=gIukd1%-f>zAYF)4IyNU_1OãU"r0m/1-xWC?JIUJ_Or0Cl1-x.W?#I4_H(*3D.U5ecnEYB?n-4.yNU5JcvS7mtV8^ãU"3;7Mp\P\cVd&c4l/*/KOc_09q4yF>N$i8[8Pt9v5eMpPH,brR*Rc,l*^/K;lJ*/ãU"K]H_09G12'C_YX'G9(SlL(#fH7lCs5E7p-qLBI1)_=*DCW*UfVM'2[PoVI)s+/UãU"E7YO&B;=-R?FaC[W(&^[VoeLe\mVM0bUSu^)r-Jtm>)F+17w2J*Sk&q;x)&ZQKFãU"#k)*t;E)1pTE+1pT5#>e/*LYR:0_:*O7QP/y/'2*S8+)c2AT^=GWP4'Tp^g+J1MãU"l13SuY-ICh03u5c,Ih/03uIE,Ih013u3WMYngjk7MvW1ugRN=v%Wu7=-C5&z\y?ãU"F0F4cKZzU_>A8c2GTn)T?8E.W;ScKz)>w1F:J>N##OhmHk*nUC75w_;AvsUSYc+ãU">P[81F^;9#S)Ih-v[LZJVA+;G4PWfqjqZoKEkdkw/f>fBGa5kMM_k*W&E/DB8YWãU"XtYrQc7WRSMe6LGCYlt#b3ypE:y7z%J$+e&db3x5pZy7Ax]jTnh%XY>cR*&XodjãU"M;]U,?D.r'^)1t6[KGtp';8W&4oWqJIg=*n52hqpf0/cIXIjhr;aACfJsev5wW^ãU"7a+9T(h2]Hw2-Nj%$q_P;wx[wYYM9O,)v[YuU(VNx$7U)4#5pux_6SY:h*F1$k$ãU"]ME/XWA#b;R]$K5^]BNW?AH'YK%]BxK%]B8q+#_KZ-[Et5H>hpEDYXfY%XfDo%U09c=21ex#hobo[GC0VE+mvãU"H&SmT9pc\5)9Q*Guk7iT^1S?a'']Fm*.sy7-AUJT?l';9[v[*Q*'#OCHDc?vQ[*k,H\YM&_JtijWJ_G];;p=-t9G*tF)G$8;/VvL+ucãU".*6$QP'24nQ:+:YK9dDP/9%rMcX2uUju5Kip.67Nsqs9cD*%<*okbp=A41voK9YãU"yDfSs;GaF,t\tN1Pce#iw]Kgoq$kOlj$A5R/'w]:aCuB<2CuB>Heq$uk-ZHW^H<ãU"n6DDUdkfP]8gHV99GVsLe(;kSoRNMM\G2X4c8TgB]GEweXIM9\2Kh4cZK+TDCKpãU"4c]^gx]o'xe>N1yZ*%%enN9)Y*%eSHNMWA*%exLNcX*7%eRN3MY*%i9(&e&z-%MãU"EBQ_##0%MV2T1#0.%M\J4kuz7GcBgpB1j%coE7t1LgdoK:;9>R1'oc;+O>R'bo%ãU";CB>R'o<=eQ\d:uQs;nLi%%J]f4$NPDha4xp7OAwf,?tQKwt+tQKpw,tQoKW4oiãU"*tt2?o:K'ux$o:EK1DFOxt/8kPxBth/8PxPBt/8kPxBtlYlJt;wj[,0a6PvmG1nãU"X(;PvW7,zX;8Pv'1GdW;PFv31DKa;]ws:,DK;0]wq2aJK;](wy2z9K;]w]+2*Ka;]w3=2.J;9]w;2a:J;]awC2ãU".9I;]w]K2zIa;]wS:2DI;9]w[2a:I;]awc2.9H;]wd?x%LWqAqnQ1oP81139DGgãU"?eu3oP81D39Dgf?euo)P8%WB04q2mExt9[Y+W..4q2E=xt9Y7+W>4nu&AU#cU2aãU"m1oDBaOK0>S6:bTl[,Ym4gj(jcsJ,#K#iIpQ(s&$t-aTwCzszs<2U.+jp%hCDGY8u=m4ZF9qBtHRi$uk3[h'B&2S9Edfh%]*vM$v5:MãU"5#k7Lc/Nh[IRsMxUqq/*h-'a7Tkrq7wePI)qE0J>y/25]4+y#E9nn'P<.E9nãU"'cxLfqMFKiN^EX;$Fx7-$M-wN8EwPI)fq,Lq&+>sq$r8y_X?wuj]8w$wq]Kgqs$ãU"kOjH$k_DfuBHafq$Aboq$k1ZZH^8rM&s*nF_cNhj#Qm/pBu#o4[fw-^'XuãU"KPG%Btnb>Fd=#/SMM^Xu+uP7xUx'ZK9d;z#>r(MM2xELjuM=3^%EUNSkB5%LYjPãU"QkBw&6*nF)cnhR#Pm/pKuA9'[fw-^9$u7/&agMdGVCz_79gr^O9%QsX5CHp#y:IãU"T+uw8jYy_x]^A^sjEe2zx3iN9Dg9six4xt'zjOunSd,:x_HxMcwRkZxvBof:y9rãU"d.4m/uFxDxLuJb9wtf_RaxlDN=DSO3iN=CDS3'AsNdV0[w_iFgrHz+P>GrKr$ccãU"\QI7C3X(,Np;8CX)pu9I8$uw3EnsEXPSkFw%H*nIGc8p%':%JNdc-l*7mxw3CjrãU"EX5SkFM%<*nIDcnkpbwZtr1bcV?iw]Kgoq$kOQj$ASZG9X$;V]8H;f]8H/^BNlSãU"m_w]:aFuBtHRi$ZkSjF]]=?qauxiaeOr_k&>M%*I.LcN+hrLm:]pu#\Ydf;=.^XãU"u%'/7s4MxU'1u_?gKr\cN_QS8C<8pg8^Ikuw.2jnEWZSk>HBcFC17cNh&tLm]GpãU"uYy7af;.$^VuZ%.7sM:dV;s__?grI^yDQnS8CH)ps8IekuMG/9^D82[cnhr^5-,ãU".HMM?M)OSZDcnh,7Km1mKr^c1IkP+siw&?dJsNCXJ5kwrãU"fUmsu,biJz$=tr4Y2rzQeHr4Yr_zQerK4YrznQer4(YrPecYvp#PnkJ80'BNl:cãU"FuBYHTivkA1mZlH^0bP,tg:aKPc_>iR.4\+8\ZioP:[FKUc%obb4ohP:)fX[>H+;BAf(QP=plc5m;'khãU"IW[F(Pq7OijP:kqohkSF>'hWIW\R_xp6>*#+x#fjo,1IKo^H0*S+8ZN#5-4EIo+h$kF>Ie3(hCjp#nk5JRonr7Kgqs$kOjE$AeRnj]kIrjF]+ZZH^#rP(l^7nRuxK9uHSE]MdZx\W[->Oll^7YRI$*Nl^7RFuu/uj3u7x2Yx2ãU"5qY.>MnD5CHb4Fdi#7JwMUS:wPefM$kSB>rV72gjh3w0Ruiu_NQ[E9d]#D[-nKxãU"1$-:MMAdS;5cN0Ad;58YDk4m1grHb[u(wZhAj7azPcAsdYxUacAdYcxUcAsdYxUãU"acAdYcxUcAsdYxUacAdYcxUcAsdYxUacAdYcxUcAsdYxUacAdYcxUcA^d/iC0r,[mlr4[ud(ksu8,kw&mHww'4ExO6LNN&_PN9Wc98PAdnãU"/iCX+:]DU=G^h/Bk4=$$kF*r^,[mrqBHuRi$klSjF]T1Zi03w(_?fYFpuJ*f9OVVSk>(]ãU"q1Tm.H^X%/w(a1IcNPRm2i_=uw&E4ZIVIXvw&7M9OfS5Xk>j7x(5I1qcNP8i?YJãEND SUBãSUB VCãU"V0qu*N*RIq/-MM],z#C7oSD#ndqua[/V8JKmMnjNbqxkM(cSrjF]leUdf0^2NO(ELUdf/V2NS/f2NSS^#w+nm[u2Ua>qBtHRãU"i$ZkSjF9]O;KXer0qSxh+2iTwNG*ayEuuw&Ea\yEuwZ&EaymEuw&6EayEsuw&E*ãU"ayEuuw&Ea\yEuw?&Ea/%5McXB3O-c&NP?_KZJGqiu*hJm:EIw(2,:)'C4:2)laBãU"njmj:aAyEuMi'/::N:ScnOPQ)CR8mu_(\;R]Ug^kB(**0sWJru+6:OQr5OkB*&*ãU"0[&HCH:;+RQ)Mpd&*.e/8ouY+>OQUrOknC:*pk8K^uTkGoxQ>)e]gh5nYI7OkHcãU"(:pzq)mLOg_zgbtgyS%*5Gox-r&1nedx6)>-R,tjJ7:j6qnYICj38sqaF-o:'.4ãU"gPP;;cnnz-&)R.xww=G-;KXqr4Y0&*jUc^hO/p;;;GhhQg3J-MN&6*./8W_6n0,ãU"::Kqlr4Y&^*jU^9hO/;k;;c8kzQ))m.xw';1::KXqrbY9&*qxPM(1:O&w]Kcgq$ãU"kZOj$ApaI9XD$V2NCSf2N^S^#w_+m[uf2a>qqBHRiu$kSjY&rv8uNo$\qVNubh>ãU"nMw$tvdx6w\FdYKrmvZ(7?xrPn7rEwVTN;3gx,%up&'%9%9%%%%-%%P*aRb(N>)ãU"',%%%%[1%%%/%%%%%%%%%%%E%*/P%%I%%%8)4FVZLS1GS21.%I%t19Lh>=4LS1D;HS1)ãU"%%M%84F#UZS1)%%M%84F#U[S1)3,Y\%%%%[1%%%/%%%%%%%%%%%RE%/P'D#%%M%84ãU"F#U]S1)7$?+%%%%[1%%%/%%%%%%%%%%%RE%/P&OãU"A%%M%84F#U^S1)D=4m42=64S2723u%p&'9%%9%%%%-%h*02RSB#EGc[&%%<%+%%/ãU"%%%%%%%%%&[%E%/2P1*%I%g;3&6UVS272>u%p&'9%%9%%[%-%R^)7RYZXQL'%'%ãU"%L%0%%.%%%%%%%%%&[%E%//PC,%I%g;3A6fS7)2>up%&'9%%9%%%.-%iuA8RHw,ãU"RUL'%%%]/%%%.%%%%%%%%%&%RE%/P)l.%%Lg;36IgS72&>up&%'9%9%%%%-C%hxãU"8gRu$-,Rt&%+%\-%%%.%%%%%%%%%&%Ej%/Pd&0%%g2;36hLS72>%up&'%9%9%%%ãU"%-%/[z8RbG3Nl&J&%%%L+%%%.%%%%%%%%%&%E%E/P23#%%g;)36iS272>u%p&'9ãU"%%9%%#%-%k_(8Rs(R.:6#+%%U%?%%3%%%%%%%%%&[%E%/5P(4%I%h;>D2:y>2F4ãU"AS272>u%p&'9%%9%%%%-%)*27RQ,o2mA['%%]%-%%,%%%%%%%%%&[%E%/5Pe:%IãU"%r0=LS72>%up&'%9%9%%%%-%1nN1RBZ5\='_&%%%w-%%%/%%%%%%%%%&%E%E/PRãU"=#%%xC2>=4VLS72>%up&'%9%9%%%%-%2^38R6cM8s&c)%%'5:%%%.%%%%%%%%%&ãU"%E%E/P$?%%%xz&%UVS272>u%p&'9%%9%%[%-%P_l4Rv+7t:=[&%%l%(%%1%%%%%ãU"%%%%&[%E%/5PoC%I%y4BJChD1J4S72&>up&%'9%9%%%%-C%_-1dR&4G-4t(%%%%ãU"9%%%/%%%%%%%%%&%E4%/P]AE%%&20;;UIVS72&>up&%'9%9%%%%-#%ve8mRLdH&ãU"oe'%%%_/%%%.%%%%%%%%%&%EO%/P*AI%%&M><0=LS72>%up&'%9%9%%%%-%1-J8ãU"RskY%5%G'%%%>)%%%/%%%%%%%%%&%E%W/P;K%%%mh%mUUVLSCGC%up&'%9%9%%%ãU"%-%.VW4R:0+6B#%%ImãU"%%%2%%%%%%%%%&%RE%/P(=e&%1x8GyM>F4AJBS72&3up*%+%%%%%i%i+%r3%7%%ãU"-&%%%%ãEND SUBãV2ãV3ãV4ãV5ãV6ãV7ãV8ãV9ãVAãVBãVCãCLOSE:IF S=163AND B&=115471THEN?" :) 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\115471,219);:END SUBã'>>> Page 1 of HUMBLCAD.ZIP ends here. Last page. TCHK:163ãMario LaRosa Mode 13 Page Flipping ESmemberNEMESIS@aol.com 12-15-02 ( : ) Qbasic,QB,PDS 75 2304 pageflip.bas' Qpage v1.1, two pure QB, (SCREEN 13) page flipping routines.ã'ã' Brought to you by... MARIO SOFT.ã'ã' (C)opyright 2000ã'ã' Contact me at ESmemberNEMESIS@aol.com ã' If you have any questions or comments concerning these routines.ã'ã' THIS PROGRAM MAY BE DISTRIBUTED FREELY AS PUBLIC DOMAIN SOFTWAREã' AS LONG AS ANY PART OF THIS FILE IS NOT ALTERED IN ANY WAY.ã' IF YOU DO WISH TO USE THESE ROUTINES IN YOUR OWN PROGRAMSã' THEN PLEASE GIVE CREDIT TO THE AUTHOR... Mario LaRosa.ã'ã'''ã'$DYNAMIC 'Make all arrays dynamic.ã'ãDEFINT A-Z 'Default all variables as integers.ã'ãCONST VIDEO = &HA000 'Address to the VIDEO screen.ã'ãDIM SHARED PAGE(0) 'Create the PAGE array.ã'ãSCREEN 13 'Activate the VIDEO screen.ã'ãREDIM PAGE(0 TO 31999) 'Resize the PAGE array to 64K.ã'ãcolour = 1 'Fill the PAGE array with blue pixels.ãFOR y = 0 TO 199ã DEF SEG = VARSEG(PAGE(0)) + (y * 20)ã FOR x = 0 TO 319ã POKE x, colourã NEXTãNEXTã'ã' '*** Flipping method 1 using BLOAD/BSAVE ã***ã'ãDEF SEG = VARSEG(PAGE(0)) 'Copy the PAGE array to the VIDEO ãaddress.ãBSAVE "page.tmp", 0, 64000 '(Works best if a disk-cache is active.)ãDEF SEG = VIDEOãBLOAD "page.tmp", 0ã'ã'ã'ãSLEEP 'Wait for a user keypress.ã'ãREDIM PAGE(0 TO 32001) 'Resize the PAGE array to 64K + 4bytes.ã'ãPAGE(0) = 320 * 8 'Set the 4byte GET/PUT header for ã320X200.ãPAGE(1) = 200ã'ãcolour = 2 'Fill the PAGE array with green pixels.ãFOR y = 0 TO 199ã DEF SEG = VARSEG(PAGE(0)) + (y * 20)ã FOR x = (0 + 4) TO (319 + 4) 'Add 4bytes to point above the GET/PUT ãheader.ã POKE x, colourã NEXTãNEXTã'ã' '*** Flipping method 2 using PUT ***ã'ãPUT (0, 0), PAGE, PSET 'Copy the PAGE array to the VIDEO ãaddress.ã' '(This is the more commonly used method.)ã'ã'ãSLEEP 'Wait for a user keypress.ã'ãKILL "page.tmp" 'Erase the temporary PAGE array file.ã'ãSYSTEM 'End the program.ã