'=========================================================================== ' Subject: 3D SVGA STAR SIMULATION Date: 06-13-97 (11:17) ' Author: Stephan Ferraro Code: PB ' Origin: saf@club-internet.fr Packet: LIBRARY.ABC '=========================================================================== ' This program requires the Zephyr Software's SuperVGA Library for PowerBASIC ' Warning: this link (and file name) may change without notice: ' http://www.zephyrsoftware.com/download/svgapb25.zip 'Run/load this snippet under PowerBASIC to extract STAR3D.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"STAR3D.ZIP",4^6:Z&=21996:?STRING$(50,177); U"%up()%9%%%R-%=iBDGZe3SD.t[%%Nm%%%-%%%%uw(n%Suph'e6_<_HP/DCKL(ev U"W503NrLmN76:kp U"^'0&1U2R(*Uj0J:ojk?Csco U"?\+j\cGBacrbo?6hJ4]al_v>gwZjSURZyixRN(mp\wxo[4rvk1=1=k1=1=lXUW$ U"aJ,5k/rbMsxG?Zdqt?r+qMNscn19x-Xp9d\jNe5o5wYjWqr8Qj8UWF U"t:WCh2SLtDAwZY_ve_a^wrI:rh*DT)sh5.k?(rN^0.]5S^wApCY#55FHX U"l_^K<--EGC]2aC_V9-5h6x7/:kKTySqtA.Jt;xi^.RE7V/1V1V/1V1V/1V1V/1V U"1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/ U"1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1 U"V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V/1V1V?[ U"xw60xxABWXDU%?t1$Pogkxi>fho[pbFXlZ0vl>hNnNbXXx[DubTK*sI?HwmAwt' U"$$I#vmbfD8kGbRx9cX(pQxh$HV-fw5&74J1Z.D.jcv+BTnvl2_Uyy[d-6hY$'7h U"DOcqY0cNMt4ef]Wua+_x#X$mR.GpsBa-oShsQ: U"b_plKdD-I5,s.HkMwNKqIzLeuYT*Hn=AiQL#Ws,crUmTXs-=s'Wp+5CERf_4AhK U"KB?u#uyWjCEJD]4I3bi1O7;#,%ESbY2>t5==l)EpOKHWeeZsC2u30m(p[WXdU5j U",C[#$J6-%Zdop]BrcI4:DZjBdtf[Iim5rciTdjweyylJ_r-#8VQm0k%[r%D][3f U"w80MZxtf_HjHYrkBZ>pF\1c?]QHlZl5Z)\_6\:$,ldBtHaIY#$eMAx-QoO^&n?GRDwhryA< U"$E32XB=xWbpqz3Ecn%4Bl#qX%DpxEqojIWdIVRhP,%Au.lLIaqsiFAkY*O;8nLr U"p22pOU6uUYT/1oe=L1ml/0ukMLucp3TmO4l]bTWffULYHb6arV\l2tq4b1u;E%a(oo#;8ypER8HzI>WUi4n'( U"W6H]Hk+Z^y[%*3:r[0Dy)FW^t[HNsts\%:a4GX(V['Yf':3h0bU19vR>B\iAa>q]N(#D2Qx+ef*JMWY=x8$%Q1LT0FTKuB0jjq\E,*#3dvy U"qe>sD+NN(EQjbdG%1B5'T(#dJ;bXt<>Nb\D%EM)mG_/rm;]N(,(g%ZB&w-J7lI; U"&+A_=Ifkz_&&LZiFtL?gy$m;'N,#AHya/f5wgs?#N=#Rct9+K&cpIq5ygFzEeo( U"?nHu%Uk-y>9O;W'H__t&5]S[Nbhx8E6]tWTAn0e3H?.[[APzP<^?SRrMD5P00OE U"/Ea7]j)%]LHne,x'M9pEzR8-msQ,OLs(u]h'JC5Y]zDZOt,SRS'78PS[XU( U",E1,d)[:4pnHsSUI2xK]HFssx_f20*SuP;n_OpZJ)BlI1R)+)S6+s*M7.o3KD/% U")gI2x<$YElax$COqQ6,+k8^D7P+Q9DfcPKR882ZH^sJLDQo_(:6nK6MfOH,xP]M U"$idHNaq[ktlX\Bj]5r*fi20/GmUI2aAHAJ:4Zde>oO2#lVTFpfWUSik?SG++>RA U"bb'7#%MA+=wE%e^PT#=2qS13ErYA&U.gYbK9gR:_H(t$Qn%eag.5[u)yhT'e5/8 U"tjK9#m/m(;kR=Nw5(+LO98XUKq)jPB.,[%zA'+H&Y84qDDnPIri9m/'KAh&HD(R U":-DU.[=ahO$_sR=H:ghg^$3T+KdKIrt9U-[LD(+^9mM,sInLLdwaHnV95d-RPO6Y2/L_DVl;9R+R+*JFqhQHCx9$(O&JU'QIy\ U"yT(>5)qOx3GtFdH]%CwP7 U"c(Lan/0BhCTu5K'$(.Y$,VIcGYKAi4TqHr_DM.phjIoWlR&#e%K;5=ScT-Aoh:R$rh40 U"12gT623UdS0P5'<4)Ol9PwJLq,zeHM^mA78dI.6:/oTX_FUTdSkl?&Ikb:*B'iHUk*Ht>QMn;T,SQn[0KOC*Ixt$]nVV/qH0fuN=U=Ef#zhW<)WV0:Cl_5 U"k=XD)j>fnkqQ,[i#7g1x&rw-EW9Td?,ER7^mbJR(hO.A]3oi4/TT,-sJ&'66Wa# U"94Q8)ug?%)^[icK4R=6:xu4]4lD;V*sB3Of9#_6pV+w40D8(*_R-H72p> U"9CVD1dLX=Hdb6lb?SWL1NnVwrN%TK2Gw/WOGXg:MH]ki'8OeI9W=-<$*5-.D^V8EtgKs(^'ufuot7'#3Kq\1_Yk8k U"1oFbrtH=_a3jM;$OJM1ZSOh:P0#%EfaRd4cC/'hN9%*9n>-J,m2 U"GM9(-#BcIR(9,OR7G'>t%5S?wZf9SV?6]ksVNe]92#B3n7WELgUYBsZZD^kb0Jd U"l0Z.GgCaoEF;lFrQ75%-f'i3(grm? U"MOf_dYCpGqUNrmu<>_cooT0&r^'?j.qf*M[ii.)_gx**Dp%*BTAPS2IQMs;97,bPYjf[b U"9D*+IRFmFNhBJsN#^=B=Ppg4]/pv.ilmZ7X0-O%(]P*D;awmi>gon5McGuomUs4 U"^>sQoLO'Ox';,]m'8ZRj7KmGlrZIlkh*,zr6Mg;>GN+O;s2<[G]t-952-ig[[gq U"g6BF+iN0:sPB/Q)4QwDQ*g$BFEU8+:j1[5/_*9Yg94*uorD7rEpG$iF0B''A#duB267YNrM2W2DK2:6+KcY;%)AX)H U"l-DZ\#0(dc(f_r8EADfrVkb3 U"Q]i;MnhS1)W3i]R75#2-GDEL7:II5G6\8LR,Q%FEP0$mM:=.+rHS\ig+IeaXnDm U"PRnIi3Q,T=m?kOFx0hCzP28bW#HBI5o,j^q%'837AY09%>dz.-U4wRSFkg'2^H9 U"DyLE<):P$9I(tOKO9Z1eOA2?rF,Jol(8fY-oV/9p%:qpF\A_1'8u[3b2sfK)rw_ U"%Af2LKh3wX&/d_waN#+M9]H+^AQ?S+aXr_k;GJmG=WxVU'A7qwc?inL\_(#'P\. U"X'Cg_(r-p^\11.#S_5xj$_,Xf_F+s);g/keli(Wl%,jd._wg4kwrZI(-Ymp.W1) U"NQ]Gu/9e;/SVJl,.sg0M3NspJS]U2U$T-+s&[qo&xK'3piU=A1Ja=;dOEv/Y_Dl U")N_R>:+H+5wI:H-6h&gXXZT'PT]iV:S^W4i;IFq&v0fk,V]/?rXrdgT$ej>G&=% U"9[,M&*j*g#-*p*G]z,d_,\FLugfXVP70>1IDU=E+]5]$u.k=)GWt$,WjGkt.q8R U"7=4:=:';CxbHG,WZ.Ve'KoT.=>N)F24(\b2I$cYej7^%))olh,4)4\5Y U"_Y$0'Ib^3+YDOq/,q]2'PR=IHodq#]2*%YR=2LISSL1$+A_*j#1cimh'BB7G8Jw U".h.>2ADQ3L]z22y2pF/Q3aF+?;/+C(r-I/(f'VMYo:U_\+H>[hG1.Ij)\n[<^jI U"X^4NUe*.0HuU7(Pp:0>RLEQM.RXHeGti8-OquH_f%BX9<76C+rgocu7J3_DtZ1Z U"2v8*Ko[&?3apBa]HlVUF3d9VcXV*).;>IjQKCqDoGq+tr0bUV-i9]ADR1^nI3^V U"S$[aQ()+LJt-SA*E?Aa[7uQ'?BM&mu,8*bG?hQL.5fpGF=q:e*(##vUs*VKb?Ed U"XT^G&z%u=70#5K>fU7q)p,T>kfc^kfYSs2BB3C'oN];Br.+24o6a.kXwB^,D)hB U"A^v?Ks>3GPX9>1qn%,0*/R:JJC/aV'4R]pY$Mb#IHV0;LCZWA,=3gnYb/D-6YgO U"($_+sY,1NoaJ=9*i=1TTtJ'+.HVAW.dyzc=6deH;c'^HFcts2qs%SqLWS7q)nX] U"+NsutT&OQLG_&*6<]>uUwn*s\\.8Ty=Y^GA?CcZ**F&H>i>K=?.3&iX+O(8eSHW U"3I)3>J&[(=Wum36-+3WYm21P16UwX^gq]Yr:f7=4^BKP,Y16 U"eIOB:)>X#]e^VC8M(AplW7Rj'9W:.aphC[Y+/ukFli=S7c>u0$iwYd96BGLb0&Z01:nTu0:E>K5[(k'+w5(_L+-5HgUpzCIRL$STl++=jfHvIFr+_%1Qk-_v9R4H&' U"hkSYNX17hQ=W#HRQSC\oQoIhue_?8BG23RTL1TqSD']D+JBFM,&;r=AGrbCVOI? U"aWwo*tMULdmPz1 U"-d[J$dq.\25RvL$?UFju-y,%)G_)]=8'=g8Lnh$T>C-ABLX8[QG%17[TvU1F U"ON-+(75i+o-Y1D-#=Jd-bYMf)G9hu'8+MiQ3bu>C_3(GE\/_1M1Rt2wG9ZX:A>a U"X25N9*=;X%G6di*;wGnNB\1t9hG50/y:Bnq/&6O%BXi4Lq(g:>#4LtyB. U"iOY(bzDpk4(C^m#cTx.#5DHlSvVSu)oi;bg2Lcb.qe9T36=CqnhB+G3cBA:IxI[ U"9ZW>8hf1ZoR2>BD>_)sR8\JLN%owDJ#64mkcxEdxHnDDNQx(+K-T4D_>J_:xq*,0P)(F U"?sjudC+jhBsuujdKP#*0Vn]*>Q:g[))H.(,R>.qR_H[:-&^PEfoAW#<:,zT>X1b0iT>opn_yO,'cE)X U"KQbsfpc4e'4cYha#%+$gj2;%wdS?WGO'v9tlP])X*H%YbG2aj-(n0p:Bfco1b,4 U"I=8Kk*pSZ>eKEW>Lx2Rh$0Ur[9GE$sumI5];BM*+h#oV(yA^JhnTns.M1GfHE1n U"Y)W3uHG)O-U-pu9;yE8:S6kSvHf#vH4O/gM/ERP^>O=2bF[Q070=o[/V_y6Tk4a U"qw<_R?*LU3?SaklkUC_Bw,&B#Wh8I1Wk5]7SVu$i.ld'#Oj[o6shB-8(YX8LN4] U":P1Q1>[H:e**hfVb9J<*Bgz2/gGYG>PfIlN^h(IiI8KU3T2>>r7h6>h6>5 U"wtjX[8>hJ0b/u;V7j/CKE^oDCw(Eh&P(kc4ytj8QfO/r18eP1KMej253vcb[ U"&WJMC?cB17'vh&[X8GCO=JD,.(:99>aQ8Iq8MeDRmp>hAY7EY:A;,H[XE##CoL>[02Vh-12ROF=^-,fBbaNaDXp\2r:u+Ig7d?\)s=<+BBq0IqYU^q\,7#//9g)v9TJ$ZyY4 U"6Pj79?HFIM7S>o(%MQP8Lk/hR8>H9[A]AeM]o1Cf6h:>1taH//lJ^:d U"p]]x;uVOxSc&83'#nf0E7HxMnmNX+VzharVM.hOannd'b;7pva#k7_(.UFVVmT+L%p U"jHFdF#3x]$Aev6_R_h9+hVnx4W47rrn U"MLsb-Ml4'TD=CVA#\ghVFBacK?%#WEN5MRI3JSW*aJMJbxwRHIz$BX5*&YTi$;1 U"leK2er-?_;Y1=zU+er0<7p+v<5lI7f/g?AS1T+b3YS0Yau99)eEQTF.)a U".6V+PJ6h%n>5Mc6=%IqLcP]\3.z6O#k(%\+0B:p;;N*joM22IarC6DY7k]5DVqA U"k-TMa5$,6ChG?JHm$Zm/r3*MU/\LIVSI_oL(EaNi=]ej)gSBcc&k?+..iH]sS#/ U"gvHY5ZvB''kb0/m+j\v]K;t>%g;E2fV2X:rt_b+[M^=NlBJ/$o=yAAO_9+v,;nJ U"m#_B'&G=D>mZJYN\PtjA=CB3EIkYd[1EG[7ZkFWMbZUW,_U5qe^i>95CX,Z_SOm U"(JP32YMb$?9]$e6'#,>qB-t:X4;;.nsVJQ$-N9Io(*/DhHKPw+/qIiTiJ%+[QasfS U"6&Za<.J/5mMiW;^._tkhjE$xglR;I_UX%YK&A:5lrf6IAD2G'L4h(%i'm1BhC1B U"7uT*9YPDA[[rGj*Co0g1.jDgGfGg/.=->JaKoCH1Xj,3QTXY;O'[gk0bt%W2g$4 U"$kts#&2[Y#=Uj9#IG_Nu]1aL=j>focc\GltG> U".XsSQ+EZG-DU.i[K+0GTvIJxtR#D/B;^g5K*^gV'L+Npb<>:ut7JiJ&wbM2'd#y U"7*ZS:7s]+9BUR5;;zk%S;T=2hg3^AiO6OcaGj$CjY&>BeSwK>7$.V'%,?P# U"?[41o(8Pe;ZhjJP%Jm:8P&]n($S.8S0MHOp/b78p/v)Qx>R%yI'w\&'X<9WA':i U"TUV=kN[^^$z''EJb7eArW?_W;$I U"$ExAqUG;E/QcXhp'FG=L$h$xa:+tq7ZSyoci$;t)s8Xzu/N4*k[Q\q]b=SW83v/T1=<2Q U"Gln3EfY;SQy U"IZ^nC/NEBCU;CUph<.wsBza3p\c-asMY6Tagy3xa08U.c=]H[t74GfwoYSbU3(# U".cS&ihqFnnYYH44+:$sD,H-hMV5+iKNyAYS?l[^IJBU.C U"wM7]KeNdcYP,K6YE9$R+3C0[om=DCxEWpT:N++PR3qjSarIr:-*u26At/,YRbqQoI-E^ U"^XrP'7\kSII3ugHc\+&p]#Eb2mB6aY$?F^Cj(A?vYrUD,rXF5E5VoKk&-bPKuN< U"nH;>GsLs/)vTIY:?6YyAdN'RSB&dw't'r*Lh(k=,LU*2G,?#%o61)g3 U"zJqEKC&8?N*RIn&T#x=X23N'SNg':3&'#9+8:bcYQ4j^QNSJH'ADu62aF$ U"\M9f;MqPm*Sr;j%bb7cB;LIQda$T8Z2?6K77$3S]/([g3nak%t66z<9>KEh=nyl U"Yt3$qd:\jDIGE4FoW;3dUjEd,WqNTlAN%#\7pW8K4F:T3p.cP8%Nv)z$##<%\;M U"2p=,4tIdB-8x%?Ih'NSTC-rQLbDo45JgspwD8H0tGXh6FFp-N(mml6'eJZ%PWb: U"qGTnf=]ZJ#MNFQGo,dyGxFV;1O0ZSUys9VEue(V=V>?YIO>q*uta^sDw::6REjQ U"l:uu(D*YI9'JDHzm^mS*$d+Xku?qTJt?/ao?n'/]3cv6p<94/VsbzKMq%Ya5=NcKxN=;bQZah0Zys9NmAo2Y+_XR END SUB SUB V2 U"?D1x1EnWE#7.s;d]H(;J*iz+b/Lx;?.q=lN&J+WFE-%hnV):9ZqOd/^4WFwx(+5 U"cS6aoR+1?XgvOe)X,f>vm(r)yNBNdq>2X]CD[;(8.\599,9<*jibU.cdR;kSQnh U"KZS:oL*O+&>IP,cAAq/f5X>NU)ZJ;5P/uSgb\'7A,6R_7-J7LUNKS\Oma_a)] U"F)]J%#&6&(BMrBa)PRjp)NOW*I>oDt6](A;E1zH*>w%7$j;]r;6qQhIpl#o23O) U"eJ^sXf8fdB^NEftIps^I:d6qaNG>')1g57:POZKB$5Z6XEwgRzE]s=9]iI U"Jm%%13n6B$taV93AQ:u2+d(j/E-cYQO/\/3Jx^[b-e\D_U;>=4$/B48tFcWo,]g U"kKEP.Z;XvInskRpsAMviLxD]2N#[g3M60JrGh0[6aB%N/_f>8+Z=W3X]\)^9_p] U"\kUKlKt<0w*6]8YQ,3r1Z8e%^qnfUF?GUZUMbR*'8S$SJ1ok1P8r>Cm7eGJA*BB U"AM8r-GkGbb>TJFnL7:a;sysPooulo:9H2/F;qOM)]kxC.RiG60ja#=VM2F,4tFtpUfv8FXqBdV/?#g5o)AR,:mJQ23 U"79L/kMhFMWI7c3(a2g(74C U"#gLXHasuQIboFLYZWqq0j,hnlu7>31[WfNCsh&b3S]XS^?T#5lTw)^i'Z/o^ U"]xSg](]e],8p?d47UQ*d&tLZ(Y3]F+sqYeU3YdXkK7C(Tl?oa=ki2waVZpzk'l= U":J07eS%B1DYL\xL]lQ$5v*NQ/dMlZE=#U#W%iqxCvoagRFI3n<:D7i:L9A,%BP= U"13:pIOqze)>akEft#G?o\)vR6ZAC\S#],5J::u>qYgZK%IEqA&\AA6sA(SqU?sN U"PaOC4XU\7B52PPP%XiL+jQF;df5C?Sr^o6T]0-oi?4f9g__)MT*0?^yFP\--#u-0'gXo3ibSH%'a:P;Bm3o0E#H;*^[0cw5YAM' U"71]DNHb1C+VMB/1?SJf;GV)+ra;R2Z]G/./LLf$Jc*LrkP*c*^LBKf'g;f1.Q%Q U"]-pRL)pQ)?6iTr%\brm;<>Y9:9605qnFmMAM\x_$'RR$Br[7V02h3XG$8K\TFY5 U"Yj;nJMm2F,D0CM%q,,(%-_LAV;oxK2'iWb_uE'Kf=M>f]&kCjR]35$[ZrT.eTh/ U"X=sZkhf2.tj*Un7&G[D6I[v[TJV#DbXYPd?N[ U"jLNwXGesCxiL:DJox>nw;9=?:N1^he_%6N_+( U"l0+?X=Jc'q'v_7KeRE-=lOn+,qYp.C,hA#0/EEe>^sgKFWN'QCmh=32]#DkD+V. U"a_;N-x?Jf$9s]3uaDoyK2B8_9'>QWo0?7Q+s&X:bJnA.#kE*l1^/83QCcgj]igj U",%kF]Zp8%B_[lkTIP9kw6O[:&-ap7vZWEKt+jhVEJ&ql#'_#i66^Va/dku+I5T_ U"Vt)s)hzR-3My74Qe7[\7fNa8a<>-0Dumn1O[_9($G+3KIl9IhL_D29XQ7m4acw$ U"dvfeLN\ehLnqGimtmbK_\uS6dvHO7qfF-83TNjw72^PB-J#[r_Tg0Or$)s>tM:4 U"1+)J/*JXtLqO'?>gn71j8ipWo;)=W'_]6ic]5ha,i\\k5&q#L/XwxAH/v/l/,43 U"U.=8lk7sv3V#V+R+U$R9l,Z\/X9iO/C:-(a[XU0iSF=5dY*-R4CfK)#G]=e7v=) U"VY+O8UjaK^9_o.MI=P<\Z&oRq%BWBQsU]GWr]Le:[0iMLQCm]*AzWI<+^G]rOjF U"Qp962L\OUP5Cep,f6X6Hl16k)Z?F5Zc/%e=lMNr\]]NZpWY&QWKou[T'A6;nfwp U"axu>Xrmr,nsFt6Wt=u7-t5Qx;fEP.QfmMOxNAG;cTLrry-SnB(KQJU_WnYlE-z_ U"kX:BV&U--Apm\4Ki*z]HZ6?dMB]\I7)B=+7mD#V-3rnqRSyhtaC,#9K'Ca&dB0V U"p-W09K2#24js4+$W9JP&$99&K;-8_%i.a_(PoagQ=VuCg2t U"jC*l6#o#I(rUd\uuT0XrZ/liy538*ZFAt[>=d*_G54$)]9H%$sh,V-sWP_OtjE+SNr#oGAks#GJs$Ymf=5ESKjb]iB79tZS_R:x+imzqS5IC0W U"Y=d3Jv7]CLNEWgUN^UI8 U")3RHt:CKcQ%SI12N_CC&wxad>vG]JdvsH%F-^Lu-=f0B)22&06SX?A\XUUK\tjcvj]fEF?xR*goGKIkRrMydy2p]<]0o\X7d(U?THc U"^Kk%eujta(6('3bWt^3^Lu]qpAZd#7p&um;VR4m3BPl2(3pFd4fv.&UN;]S,vW< U"uRrw;FIf-)4.+i]8E\YTv2HZ=eAWKLkpNr7B.>F,5%zqIP4UTC3I16FT*2M1^Ib U"Qvb(2bA30k]wsOSVWkKNS\yI#%ka10bqF^>'fLR9UZ6fle+r&Vb U"i0.#=iF_O=,L3Nj,5FBbhDJ7JE+7uNO4;SLkNZBH5Mc2DbLh87n_^=FhQ6.sf#G U"UtJ+EEssj)rB2#GVrGvUM%'cZX;7.thXhU;5TT;5)cYoSS#O'9UnKGDTcDC-A4V U"slf+##%Cg/k3_Ae/Pp?16?thekWVhtQQ(HiiES*;PB\a,tcIIR/x U"8e0Y0D5#>nH#+ug,fL0TcX>8/S%AIo5]jHpWLfQOp+v6JHr8c(XjtaOGOI'r$tm U"WPAfa^z+NoG/^2VL+D,cS[lkU;\N]nXFh*wKj*:f=CxIXsDtM,Gnw'_X%8ULRC# U"/'W:84HM,PrwVd,LxmZrJZeL1ALaRck0^dXA_0C&sN6IQ53#/'ho?uuKFE:.5\, U")XfdC/]46arJb5/KHOqmG$A]*?i?y+9$7HN)**p>5pdfC&>oiUhHa'/Iy8L/xcr U"iD.2'CioSG)1D[DOgfCIalK:n*S?Ice3cTC]%3EyMWUj3GXMT.u$FfP'glEk+Xm U"-0aXBxq_mbEeqf#lQ65d/2aFj0Sv8JMTyATl)%90#Yd;.#tS6sH;z?drGK$VJ*r U"r$+R.eCY;hO&7nfg5M\Z;*WopFqA\GHqKTMiar_fc$?=GsR#)4q'cTfSfpfKQ&+ U"=Yk\C+#uaLv?duV_<,V>UvMDC,vElTYa(03Z)kzP^cL_i3,h68lId9>w\E&U1_S U"=-4-4PIk?\a)ub:2Nwp$ U"[^MW<,&yyVC:eJKkn=auV:6Wv^)af-4\,l0:mrg<=7b1?7+9W*#>h5Hc)5o/*:h5];G7C(rxK3CA'y+%qmgb U"N:i/pa-1PeqxOL21ZW$A(Rv.ApC0MFXq0$XGcOD4^dE^(w$;Y\>A%XT?u>pe<4- U"XnH*rSUkldJ+[VZ-u(f(q3k?rHv?kT U"8^Hf3laA8Vcst$v6dp+T#7ft+]D>mk8#Hub7Crpk#a]qPd#ZqeuAB,CstOieeDK8q1[&#TE=C0#]70%'HGxn94V'5fW)gi8kL(tTkmE7ZquZJP.n4R;6:wJQfiG8i=;;C:f%CSWzYx%OR)TW3kiX\Pp$ae6oE8 U"')GMM[kk)TXm.]x4/&Iz]r3Cz(,gg>mkw96*1)w_vNJ3zS4HmfD=Ku[p3:nP=RV/'XhzCJ;YS18Kb+rx/ U"3lf78&3^lU[97=,ec')m/(i4b'aO8H\0R^#bD+]Q3f5'm4kPP7O*QW+NG,q=_H^ U"M%iAYH(76dhbQuAH#7P_WBu3Mu#BVCjMX6YuW%j-)i=E^o6loh-tS;5oZ=rv\,G U"*5LmuuA#uk6xli=;P'mR^pU?V]R:LMr^K1MzW2&1llp7D]EO?>UQMPR8;?Ru<6C U"q1K'NgImEGr$K#;q9oVtGIG.Oq,o1BRJI_uUeYuL;)cuh;8q];(Q5G-s[+48&sp U":fA#(SL'3C8*_&lF^nKYJUpT(S\eWnwbENL/wYE'i-CI;M]ICaIJK*K+9]u=6W5 U"eVCJTO$JVfZ]0%R/nf/(U;YTZ8A\Qy5a_u2/;J%AkSMnVo6[_ar#mrI0\mbuuDP U"wE[;/1.\jmfC=#m92VsP:3CoHj=BhZ[u>u)VQ)Z;0)6DAqRy+(H,(H7bvGo8dW>S7Vh3: U"%uYUaA:Z^I4dhYY-UWR<17QGL&J\Ps]lpUYg5z4nH1-WW.n=bmQjh$HV%h4l:/H U",S[pUD.N5F2PI_5RLJc1J=3$Ra,h^y#(o#r*W.hbmGhXX8rzWHMgFX)Xos;gSWg U"lTDx5[+A\TP%X?#-uG4#4/gqtBvY+UM8BESI7fJhoSN?X'+_h7&_3q%A]V1dxNt6PlTW?dXn/0OT= U"L3r9W]OK26:^?UIKTSx$2x%Un^u=T+:Nj6I.>n_MmYm5FMp[Rm:'GRGGO0b8bR6 U"[D5sf4x5/N<3F0M'wm>O/]h3fXMqE&6ilUtM7rwY U"MhtL*Xf(0LSe#%,il$=s5[%-o#mHa4c1\SUOjjjAaX3?p*?Co:g(T6d->z9bKpo U"P&gDS>[6PFa+*O?$3.p%;Q,OvqY:9*^?B6UcX),PfHfk#\-PXM*1c;^#^5Op?It U"4_hP?1)H0j:g>WDjwI28DbLf&8St=4b-??3%w?1sz^.Q%2xYV,-n:IegOMQ,.y. U"P5CUg+L$Eh.=23P^PMB3&MeKPKox3aW,VEfhm.l0[fKPo:=hajYbW&VLc#dP;qn U"##/,7pKF$b=z^V=W;If3&?%/:XG(VjUWR3/7)\*oLu=r;CRRz'dpbIreMf>DSc0 U"0g'm;,)*<)^/#SFQF;>l&O-*)ZtP5)xGl]/R[=-09=?+UGXCpBHE7k(ha(FATx< U"v>-3q7k,1?[&AjLSDIPDM]UjTJgrW2m+=E7,qmN<8H+/W:>gkr^?^'Om:O9mCK) U"9OAO3Ohd5lLs(?fW)ra_)TaNBRlf2&fyW*8o0MA(lqK(SXLcYjjsVX;5_JhC_0SS?c^l,5Y2yRN U"_Yd7:4,R)l%K-BJBQO.dX((sDu#7&0I+6wsiZqYlY,xp?xgv4?Wxw,rhNiv:4Qp U"dT8Ri/24eEcn'e4UyG[dsdBYEuJ-U_+Fi1N[8KIAI3 U"F3B83Eh-E?73qrXdJ.'+5aSjZWb]\GEx'51\_1ifDjI.A[qJ1?0$uf,e#zsOOw$ U"O&Vmy60Xzip/B%OwZP?x3'm<')5i33PT&e(+c-;M-9c&-MOd4AQ&i#753a:P/D_ U"mg6bAjFl)qvXH9,fO4=oGo;CMqghdum/=mb^o4;DxfTO-L3xDnUDvi/rDK=>KmZ U"l8M6m5Z\W6KRpGU5B)pF9(]+#Hl)'_Te#D7%^.cWVqS#)q2V(B#2oA,<0 U"7nHug0duy6(3$:Hk8-6uVSVfE:tZLfR_dCv(7-tPvS*a8 U"mRiG;]]/vI&C\JX4\1Lmy-e-fK2ERBW-gA%iHo_h4\Adc$QdIr3lb&b/%Gp**Xb U"'33iYwXrL9nRA#NAkZ.Vwf)5:8\fXt6R,3'Tsnks#&&tdjH]Cj1L0t'5aL2(ji. U"[F,>_=gIKMi.hup5aGO5r#,d_gJICW_#->rCoS1-J$1A'm.wG;2r(F><'S#%+EBpyTISS U"VPan$3#(5L;zm\SBtA\BdH#]QlS=%cV#)m?IF9AAPESKQVa&V)x]%ktH/R0GAOs U"4^i<)WNgNGD\oZBO$.TBG=*&[U>HJ^R#]]7xx4F\fczv1xBJxVX==H\vhWhcCF> U"slA1*H8?W#Dn\&nE5_v8URK^3^:zY2?B9X.p8(,6FSVV=UX?hm8SqW>V3 U"<,P&-U=^l[YxhB2RpX=Ihw.pOhP7ez^r=wnr*)u#z7W U"2*dMCuU#9rf5UWLpSeChQ\x/A?wD^>z]J.C8yRKRwD#y3FhF]f=91:P/k;sS<2r U"m6?HY&eJ_]FT,-n,mhM\5%j7&o)B17#$>K['2jt-82yI+\4tI.QBLkLp*oodsT2 U"%OCt[LiIWafgg9:58g4U+,KSwHO]16Dki*>g_=)E/?pmdl(Gt37Ysn?r'qNdPIMI[LSDn-b U"pT%dxW1ck[pxj&U$N?53M>R'lFS^F8sC\/r0EOWMNpU;V[p(vetw)C U";qi$3Mg2F?lGI\-=dh]E5Fl[3JM9KV=jeSr][b/PmK_6FsQq%66zO6Dv7<_Tep& U";[LaNIE70-Mkj6M22bx3lpdi=WIEKQVH?dydszg.#:S\WHVxzEZOBdTr?zNmCw< U"VnT6Aq\dW?o(U^BQkXHkIl+H*ASW3a&:IZ]-+ZxPmL$EubsftTVwKF/+dL\&VJMUX,%P^]2haee:D=?'6WCq69fVMc$FfrRZ2l> U"/.gEb2pMuJY.G#g>IpcVH:YjE$m*YN+0;)^:DR\IftlUL]%jJ-hH>->PPauq-%5 U"h6taqjWmpt(E?m>rq:DKJy-*5=_&:Lf[u^I\c]>&C,;E%9lpMVn$wE8UnhVDPK1 U"uB,=8i[pF6%14w.4q]>sX6-,f1Ro0cQf;>1lB1+P$xcH8#d[HZ*JNDc>q,]Lotl U"Z$0i'VWc/1YIl''pie*Dt1*3)8mtr/g.4/(0#BIPu8=$AcMvA+9o7rJe),C)Ah)]?/ U"7%^Z8Eip8806f[j3z*E=hhP%nT*SnI_DC9q7=tUo0dX5a>JL3Q\0fkD#G6%0h'OH=V;$DGU+*&wz.QvZ4,R'[[)do[f6\)^3DUqlti(jImk*qhQj$r U"B])SVXiO?1.0w\aYnK&cq-[B#;X71sUN2ExU#5(3y5bgcp4?eY6bb9r*x?VD(Sw U"5AF2t3UEAVBnpo2sEaXD6 U"bD&ak]LVZS/V0n-6rdxK21:Yt9n)#6ns#elKa9C U"+8.bD$gdAK=b:)1*OKLtTe28gML,8W,on0RWjrQH>mKKwrer(nCIpNlPsD[+0Rr U"G4HR'QWVJtYA:IPmH3FRJWaB53\jfJWE3j=8:p4\g<7UIo#Hcid.f;5Q4R7%>XQ U"T#/fn1.HOVoQ9O]m6icN8FW4wMECm-#rc\E*jz[>I>]_ig?095J+u<. U"tjX\QxiX?bIB1f:9W'E3?;8=qp-0ZZ5gXTl/bq$7>.)*'[Hvx://$QgQ#j'1F.6 U"&eTBwK&5QkM'5W;ya>310WO\mit;=0%2EXbh&,Mb=j>jS9m_'97B8oXJd&lQV*9W.iX-A%S\\ U"X(-r,G*&aR/Q+LRBBUaZ?uWm#KXa3ZV#g-=j\VJsX][194pV5u6kjnA6,mF.8ik U"lft0*g,P$3E1/0Xnlb5<A?&c_ZU.x-KJ0_okk)&SC2nEfbpO;e/w8pZgO3wa+WlgbUdA4ez U">$bB's9y+VG$ui^MVI)XIN U"]P2[#VO*['\=9052f7^UwUM]FhZW=_RG5u+lsuGd>4Nh<7^30ULOFAsY&F=dgj; U"eU/K0CV&I/v3[>:Wf/0QY[TKCF\_.RP:fQ5Ct,Hn]LnB83 U">2u&Q)sPY,':Sc$VODqZ[qK)T\?ylC%ACr04C/4iZYtVJ4S-Vw-8UMJot^)=)3x U"t.2x6m\\gU-6*bTKV2T[?E::Y.6ASq$8Oh:\7=:CfPqW]C1v;q+o-*)$?vOG:v) U"(v->n[O8MT[*7^hb<<'dm0^qIz7#jh*6>+s$]G9$h<7Bpb5?VKVcjS2_\Yjh=dLTp*EE\*-8V)w082/$ U"Yr&)WKYWXM-jv=LDZ9ts_.Phf;6s0oohQPDAt U"T2M*[/(nJ:NrCmx71>Y;X;Xw=D2JF>Y$fEsOvTM2Tto,Do.y)$iZdhNG$m=i4fH%Kal^WtcJ U"#z4fGYcCk(o:rJqbl'AwwYvNNk-4nS2,-iV5',/dMI2k7hkK9DpDpi]$3W\3]O] U"sEZkds%a$k'^jP;Pn'TSRB9pHuPs9'n U"K>SQm&A\4flj,UOtqhXvCZ985kF]TQyfPR?11Ro4Ag_R,#>h\h[sZ>u\E]K>>66 U"huy5cM9ux5n)aNZ)PqXxN$#MY;]RfB+lvN\JZjv'DDyjvh)DiCf:J<^KeOvvYk7 U"[#SkF81N*Yt'l>3-e2x1.zV4&.ykyk&&NOzDTOz.]\ak.v(O[)=%nJs.hiMdyDp U">DrN]d2QnX+OFIr,(hF$MJs6KhYc9lA*UuC?\Ke=k,RyJyNTuKjBPvJ#inlO7&Rs(XlV]kP$q.vL60IxRcH7&fN>6Ih1ls6PUA1eg:#2+$R^f6Ua72+vp=sw;J/6KRzUcNB U"#rkfE?/T0fSt+1i=hmhhEfqC;imA5ZQsCWi;4*2:cQx[Z5LtUJ5uGGGw%4up(%) U"9%%[%-%cGwDGUdnRE2#*%%D%4%%0%%%%x%yfwx%nrSgRfx.&;<>Smj5w]=hNgqU U"%BY3*(7aCOTN>5gOzuQ;2bfM^a^Bg&2O\;LYSwsj6V.XVQ]SKw^R0XlueElE0GS U"Zh*E9*d]Yy(PIxB?x#^Zy^'S;u0KUP,Tk:c\:[#8)U7?)e6A)QBUN/8yeIkAoc] U";,>?IuRLy*cs,8*ti](*Nth])3XW7>3ZoA4%RBG6uZxA9Vl283 U")X3Kh_MM6_;KK*R72Ue?3lpJAbAV4QU[3iV%?[YRtp>MFK*PV2=NUQz]o9H<*84 U"#/snX0f8Qx7OX0cu&&g\4zh&M-H;$#MABGP=yxcJ\(xm>?L:a..a[P'=:]%A.=_ U"girmT8RpoAlYY76/GqSpHs&M4Fbro6eQ^*sB:'Cqci(9Q1p_s/9%;Etmu8l\\JN U"T]h1:goTXGXifITrrg^kTlCE3u.H(PrN>$sH=3K>1j:?hs7+v#C50#(fu&\=/s2 U"o.o;LX1,yt*sWQL-WY11A.rS6NC7O3;9,9R/=gv17>b4iPft.T?dt=\6J/Zop> U"q:*ix-mXPmKm=7q)r5va/6Ns6*=;CIUNZ^AqHmt)4-g1diW?6/NIa7el'vg:C,[ U"[#JGv9&%Qs'QV?zRxF:cGA\_tp3#T U"&/^>pw%M,gLX/=A\JtoOA'CiqP*r)>u_I[Dc+rz-JQpNc;.j//,D-H U"&Ihbs55X2$%eJr$iDQbT6Wd^vol=C5wsHuYU-:-%pAD>c,2l U"2=Jf/2*)=?/TV(3_z2WQnc0.Zc$&ecQ)1TiKZmF4& U"H^(]/h6Ch2zdin8>Fq;^6k,Zcg-yj:*zp94R5]4E[5c=bu_2Hc$2)p=)&u?q,g\ U"]IhR(WgoQ^=]a5&W#K^'qqcNC[_-DRkqXa*.Y$^=CA[M1I+auKeYrXXs]DKkt44 U"2_+mENVI>SztWiMfREQ$V0KJQQcq;La/^$(0>X1^my>dU<*?O2t)+sq(:[[uRP& U"KQQ2aQZs%VI,74aJrIRckSE3P)B*rLiIbbo7]xuNC>BOTlKDBcsrQ\f5NA^>5]C U"Dr4+J+Z^3RA?V5::oJj'h>aq'AK[aHtI?xQ'VlG[J*6_tN]ck*:(1%v5tuHw[tX U"n4ufA8Q_P+DR8t*b-4rC*Q3TY8h.jKrbZ1jmRANP>lBd U"8'^N/f#.zelg4RVKv8dFdj/FtROvLmrGQCK*iROp1=Tn2YsAG%c^DHTsAnr+'VA U"./]Ku$'uBekul6CS8fstEulDE>QKo)uedl2oO=J2^l>wZQ^DyFS_c[oiAD(Yhqu U"a05MZRZ(&Oc+>^l:kNbEI^D/.;bT4ouyD;.,c%7Qa^Jj'qac:p#+EKSv]]o%z3g U">47pThqs_N;oXeFgj=$6<&)TDy(-Fw3bfxNbeXrNt5^\_o-:kdu%p&'9%%9%%[% U"-%=,iDGZPeSD.%t%%N'm%%-%%%%%%%%%%%%E%%%%%%%%%uwn&%Suh&'up&%'9%9 U"%%%%-j%cwD(GUnR,E2*%(%D4%%%0%%%%%%%%%&%E#%%%T%t%%x%yfwx%nrSg%fx U"up%*+%%%%%'%.'%>%.%%6z%%%%% END SUB V2 V3 CLOSE:IF S=166AND 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