'=========================================================================== ' Subject: FERN FRACTAL Date: 09-30-96 (19:42) ' Author: Erika Schulze Code: PB ' Origin: 100775.2275@CompuServa.Com Packet: GRAPHICS.ABC '=========================================================================== ' 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