'=========================================================================== ' Subject: TRUE RAYTRACER Date: 09-30-98 (22:23) ' Author: Daniel Davies Code: QB, QBasic, PDS ' Origin: ia53@rapid.co.uk Packet: GRAPHICS.ABC '=========================================================================== DEFINT 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