'=========================================================================== ' Subject: SPHERE FIGHTER Date: 03-08-96 (08:33) ' Author: Mike Hulme & Co. Code: QB, QBasic, PDS ' Origin: aa521@freenet.toronto.on.ca Packet: GAMES.ABC '=========================================================================== '[--------------- PRODUCT OF >>>>>>> MAVERICK PROGRAMMING ---------------] ' [.................... Sphere Fighter, Version 1.7 ....................] ' [............... *NOT RECOMMENDED FOR WINDOWS* ...............] ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' Requirements: ' 1. 10k free memory (WOW, that's a lot!) ***SEE  *** ' 2. VGA or MCGA adapter (SCREEN 13) ' 3. Mouse (one button only) ' 4. uses Sound Card for SFX and MUSIC!! ' 5. 386 PC or higher recommended ' a. To adjust Computer's speed, use > (slow game down), or < (faster) ' 6. *WARNING* This program pushes computer memory to the limit... DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"SPFIGHT.ZIP",4^6:Z&=14325:?STRING$(50,177); U"%up()%9%%%.-%Gf/7Esz7>[=Xd%%vc%%%1%%%%xu%mwkn%yjSgRfxfLq*FSAZKa U"THFh3uQen U"3fv8a;?tX4$6HBNBl$u$Jr3WGoPBAhX,lD(sq>Mi7iAq$TIdC7^EVR7hOW5Gj1?]3]z;vJ_7H?%$IFhwLs.G: U"Iq*WlYnB)IbV_LJxhOFkfsg]AU'KTLuD;O/OVfb*zIjL>/Z,bdz9%*07Qi_.H/J U"Lq'5Rmk:9dVJ]0)ka#k>AM2IRCpa,t[3GWLCQe^JXzz_nB,C5tjVW*z#UGs?Qx)1;:Vx;,NXneo4YkU9W5e_fBOsO#]>ut_)XEs2p\LR8Wa$,P*le1_mBSCrFjX^4D39^Dcwt U"jhVkk2lljD0pW]CEoGy]JxYB=0,B$RpptH?K709abhY]G3<2&v2X._:m$[cB3W9 U",I0dqEV]v,l8%P#EpUL?+i8ipE?ii75QujUiY:aeK2%H3$BAd70h'hE[k[V#LSH U"1Ad]*^uE6^&:tu,UBk;8nY+tJ6qn4UiI;:aq8FB%GIwTbV0RxgA&]'Rb&6;Rsi,q(4c U"^V^Q-NBJm5cYDGY9hAtGHmBb)lreUE%GW0nJGIG[4t[W#1nOfE;0-/+fZK(\[km2K>AlH1SOc2+N\ib U"i9AX#fxT)1,k62rbb8mS=f]y)0sVZ8=;7d+z1>,c]SLP1&2No;=e:b(.pZVQatV U"WeGFhGbewI;J5&3oXqID;76X^(iDnKG8]qvA=-o9>S$n)W35(;A,3cjC<\pLbpV U"^TFjVrT)Il/^(JUH,LnR*2x4oGl7?j_pfd=6bUfH;zA4L:Q\QT9jQsG5>eiWZ5: U"Sqiu7C'm_kLQLN$XNZW.sK]T,6b[Hi2=KNs6_,^cMXe.Pe)9_HH:kHPu3jAF/9c U"6gCrLYqTR2rK:\jUn$j1Dx0R0PP8m>G='qPUe9hHkl_q(Ypp*&a2LMHgJG.vJa8 U"5a66Gcsu6Z]ufVBg^p4i>HZ(EYUdJ\ZM)O(gNVJBpcfNiN4k'K_xw&:K-]X25TC U"T8-5#(VtW' U"]t3hhbe*ECnLcmhH6^lNWskUJ/N(n6(Qp9I=,nf1fSS%0e-Kb3lrY]X4uHHGAW1HoeLY*RZjVb] U"B?qMfD-#/'BQjQ^ec,i-V=:q45CZ'GFtz4Xo$QN.)nDqWtfln?hZDWc54:&ecOM U">iaV%BMDPO=;#SJqA8ri(Q=NP/TEB%2he(fS:l&50I[j0pM\Tx6K+Fe<4%30FoD U"Z0PemM$J.0]TcKFuo4'\X[1ld&\/ocmc;cb\DT6cG[ugk?:>BN(>,2TuGpoo?At U"LfL8\;FGvf_6*Fppk7GFj+ernrjEC7:kFWYQ U"q5NoTL]p%dFNmp.k,sfEM[vzihNX924b1/;6CvSegrKmNb'KZrvBQ8co,9]$=G-RbCE#83uRgo4o\A/V,#0d?I4TI=&NQjSXfH U"*.mamJYN5EP\Y(EdA+*61%nvM05o>RFa7'l0hke^b[&t.[,CDf9m;7ibSP[u7e; U"86bt/6vgF6w:.+RsUH$s75gY0_KR6.gkgx$;ldrI=SusNQ;nDq*8?w<3irv%;0i U"[gX4ksrWck;Oxi_bT#:ClS2PWv\Bqt.V_/cF6[Z/?>x2m<8-+$Wng,Dg)1eH)cO U"INmkq2DP5-GotgOI.9LTOvg?9Lmp&)l-b]30cd^jCSscG1$aNlK/04d8ovT]jY' U"cG'>rgFKK2e6D.h/pEg+.W?rxbUKKV7j]nG528Guj7HukLqd6:W8g:-U)$H'(Is U"^G?VwQb)#VJ7>-H6UqY5pw&-?CArJhTPT9FfKOUCs#-x=wlA,eob[/.[JXhpU*FJ1[IrcnKVg/<9 U"l4h$$1Yc43s*%PpEbZcg1^UP%kDN\dHj4oTpEK2sy0Oe>yJ,Wi\\q=v+01#vU>R U"8[,=O^69=;kImcQP_M381xk[w)lIN]P<[g=# U"<$heq0Qpg]1[BluY[+W#uq//#&:q]pQ;g[[yY8Y#>_G,n(a#E.1=drrB8Lm:DwB U"=K:^eOF5x+4,.1#dh2v>dY-yVkVN1hAf^[IIM]Y$k#[r%-=UR=u9T._G**x^a*Q U"u/43Q025=rR'3ya'f;WgHHBF7u$7NVBdpW,^bePnIX$dI8a3Wn;r$XC$ZcZ:..C U"r%vO3GJUjx?qWsxw=dm-LMJ[BsoZ6jOV^cYVWqQ5ApA1.2g7t8XX[g,JC5TTw5o U"O[[z8'6z]FuH^eu.F-6]^ZI^nlg6*x_tSKW?ffK4HJ%+YD,Ilvp+%pH9)Qm4dD;1s&F_mrTHEd U"xYjNM+oK'HLU%kGQ&d]9'5_Z(>l\BWp(*+:r:Z^q.IvT59j$TFV:7BMFnpgoYlD U"NBVBgU/=8c-_^veF%^BcP37:m:408k;TAFDQ\0XF6P=t($2f(1iFo=a/$Iv1*Nh U"-](=/\7^h=aA2Lyzf+HoROdrVaZ9ARvRd:2hKy%xI;p3(0IlnQzY:q3/e./%W,e U"b#SJDCOdRP&d9vl/QZt-7q6(ZYKfa'[:m)sUg4g$A+81&tXPpj7nJ,92ERq'CRVb#Gk4O$B/FphX,a8'71.q U"eQFUFjZ=X^5\vs_,[3GI+h1eV$4KOu>f_Q:J56i'E+^D5Et2wI]8:=Xr2_EMKK+ U"7e78OV(BPn2R:8]jYHlRNj(3R>5BU'\K4$HoG79%X-5HGW14Q^FK22Q8a./Lq59 U"^l7mQ6b&A12yg+#0dKGK?uO%g,)15A#&ihu)F,,bG+J$\)2V8K;W#U,u-nV U"5$V'R]1Cr1XyYhof^:k3HJ-qrIw[8RFOjZcET4QTUvc.Tk6V(z/yYe> U">TDWfl)k82jnR&R6%R4E9a=.WDb U"YwR'\z9a>v&Yz:*->S(#Ol*;-Z\zC^m*y[XOqWVAtOx3Mg[rfDW7DHaQRUWPAe) U"PzK;(baH?#',>C-Cz6UDEPyV0Pi/,pJ]j=%AUgMRZP.e U",sALK/Lx7Er/tlWe/UC:;e)Y\FoUde6IDcUqxoTKCGW[(LwC;MpWQkU^U>Kw1v/ U".DF*^n/8JlPl#\f^l9[Brl:-6*y/J7'GQn?fn^N6h$Fkf+Op':kddL?gjg$lsS< U"$^^Ft%Qaf0N$F]ggd\?BQ&mtYD9tA?NjJ:)w<6Q1vDJnixSb&Fx0D>luA)AX#c: U"OY'etqp8&BIR9>UdpYBBYa3k)s$1To:IovWt$DpU<5<64eh^FFU2MjC$04$A*d; U"iIeEXBcEaBs47F/K05U8m_(75^ U"?lQ?=n8T6H^AXv2E84Y\d+SE9ZLgG(Q0haq#f3F\DLiJ1%AA:rE,+Gd8R7*p5sN U"85L35hDPA=$^#IIZ;[*WKA1X#4*IWriqH:gH=%\PHJ??EJ>uPJW:E]:-, U"$[WorR)&La:V[HY#Xm)/[o*%5Bp1jvotoPvY;a#0,?DEV3>Hx)UMbuGMmVK>pD5 U"Xy#el1EeoGlg1':C>5]t]I^#+&YbK5&#^Cm\Uyciw/W44>J0)K1Wv7cpW*I1EbC^uB1Y,zAAx#XzX#C>p' U"]:mHgYrWoAggIZgmyd?*^tD:4f39>_)3^D5.VQJ51B.qTAumjD$Qh4eG:u9:/sd U"pGs+miLFudh7VPiIU('g2MnVS*R;a8H7rO]-_%J^sElG6f7T=HKpD0K82gaxdJh U"rL[FH;:/GAfr/(r2Y=h]ja5oJEGvj(Q*0[dS3tP)Oy3eI U"X%o,lR>^U+XP>8;vxcGsP;tLi_gK_+7qnETeYq\-v:O=%h\>A3?_y3A-Zttk$?y U"^g3ty5S&qFNGg;>D<3f>pPI9OX\;:Y>2Y&)>wXf<&^ST4F=8K[Cf7>A+uGGH*mQu(J)1)2eT.-5bQ-(6\X8SUB^Ja-1K9 U"2].j/y%M=?H.?O8uk'*RK[Ri8(z1e,-GKSEeRM4O7IBF]/>a7f7dqiB>]ALJ#)[ U"pRhd=YCbSiog1\+vs'GHT7N)+1aCq+0N-r+BN.HaDLu]JN9&5US&#ddlW#18\.& U"7J;gm2FQqH:;pe'*[Px0&#Dw0E8u;Erj/I)tiHyakPn;$%Cd4gmnF+o%8bGjQar._ U"$CPya%H+Ho^BhkO9^fp$se40CQ;dhqjK5s#$k_Fe\Sbc6SZF-$J[A3DIy\vbKK& U"dp=vSJK]WV[/K=p-Q>.MYxLg=;2ILds\qhhR=>nMAY2buSaDVbGj^a]A)q1T.=T U")>*:6+,;^S>DT(W;o65e5rV#KtefXYElVlZ^0ob>VTsnQq_2umIR&-5NpX)JR(: U"L%hqx1a&1.,'P+^>/[,S?g7Yu9&7+sBVPEt>$Vzy5??lp536Q2tSWoPUMkTB'_w U"JMe0g5';-[F)g*;Z*asNMWT:POmZ1KS(GaZM&%6$Yq1s]4:Yqk+m#fVX(o8:wqw U"IEUY[BXT0^UJ<=c1^J>/:2Lm.9,AfB_v1Aq(zpFL7bnw#SD+)m'Evq+o<^IsEjx U"/bFTgTcb]Bq3Vc+Hp_)CSNhysyn7y#AC1cU;2UYfLiFY$FY*M7L(7t^gYH8:#:T U"wN^M?Dskj,9YN$u&1DG>EFX\WKpbpb]SXau\Hh]ajd5KTNrx/W6'bIP8vwIT*xn U"qEpa>,87+sx#PnD$9wm?[iOgd&jV&g1*KMslZ%nOH U"(d]qE7rM%otus1ZP=\r_hB84(KBqaIT(NWd_zLq]8/[4wk=p8&qO8zpa)?9xRZbG<,7R7> U"peIA3Cq.TvE$cBUps(?-:]S6)#S$FD]UBVV2Q7f&jRaI4$[>;^g3&kbcBGk4]<0 U"mZ[]]&Pu7Y%l]SL\w>6AZLTcpcP_Gs% U":+8)T7?;ZU^(AULi08]UuB11fUL=f\LA[US#*e?+lt23=4LLz_niPgTut;8Yj*v U",ec:SQH5W(GhL/4A\_s;$gG-t]LLQ,6_K6o$B+i_$72rkXN_]k/gjJ<]D'Ntz&/ U"SQ23'Q[ZH-$iK+*cH4$jfZpGBle*r^4m]U8OtV'5vOPjtdeasDGRw>\Tp^?Y\6TX U"4XY0IR0:Kcu$'=rL#f\lSknHHi+(S^.(DAPqV\sM%I37wg5FUgz3:eOeGk17[:] U"'C(O]fM)>&'Qx'[Tb+81oRvo=o9Ji8Mln*\zjI[=-9;iCRf#sADN,z4;D;fNdx0 U"v/RPNV=Gx_p:g^IcBp[R7,a5GoFesu7OCWoi\NlB-7SfZOmUt7[KB/i%?([ZuKc U"pz'$j?M.JR)H$4QpK%Ew9RFn^79J4:%[Y<1yWet2qjCnaJ_-=osMOQx^*tYx.Cv U"akrTT4MT=,0;cjlFRWeBIS3PJ_WM^.b9.7tl+rK3)(dqz:?GS:;U%$jm)$Yl9b) U"*3\WUhPXV&kEcMhP,0or4[l5)(q]NU99Bk\E/,K=V-YdZ$^g9F\jG:GK6^+:&fLfJ7fZlubJwAH,,3\\'w)S+HuV0R.*^VjF3xPvd U"vr7I[a?U%%8)-8R%Sw*V_4)1hSL__mDu2x6Y-9.7RP0soQLAjV^Ellft4A[LTqt U"/hrmoShHw?Y2(cyu U">5>[g5*?boWgPo#>S\+*P;hAgC#O**;_kg-dTF?sf+,#]XQfGti>7-/9=l(2toyKkl>AHm8ifiIrAaU+0h&6kv9D U"Et%WA(t'/1*:1='C:<-4ZzU0:vsmDWcmSE(AFcdP.%RW U"p0(d'vhQm+qW>eX.C\j7(wj]PvQ^&mQ#]Wm0d;t?2d7R&A:AWL-+Fs^Z3waA*mP U"(2//Dv?[hif%Jdyt]>[w[0^IKM(yyVa7wmWi?U^q:5Md3GqIp2Qs2$SfwloZ U"AURhVDn*i.3*c((.\c_dZr4O$17/#0LEf:13%i6.%l.0:)4PU:F6bB&d]FK++kW U"#ew%.JJ5;,3Mn+bZ*\Nb3s^.aiBnHwj8'YuBLRt%B>omdNwPd_Pv.^\\:D_npb\ U"uWHSn3o&C/zw8x'&HoLu[Ke##4_cV\meLZxvE:xWUKr*yuu'FF.o4efW)CU^7g% U"Q.)hFl;c?ejI/HqP[EY&*I'_%p;mC6iZTFNbOH#pOAHl6mcnZI)ENRaUWF%6%T( U"SIxCxlZ84EB$P=S<4QYYd1aAB^KW^%RLOAIVZ5G:KocAw^m_,kuqnHFu;xvq\Tg U"Nwk)]1rdk0wVma8xD3SXZ6SB12W]:a9im(Iw4-7O&*UPg)Q1..X0uH$FXF1aEXx U".GjgI'wD'F+4i]3'\'uI#n(85[%Fxl=0bG,Z7<2u,1:1,gh+yt=U)0X].()4.m,)^ U"d+Cx'GODw0$oFo'E29+r=4^ZL[i)yo'k-ln,XVj3.?1g(iWc475Vn(6cWPR;YS3 U"(/?4S?su69dRZtiV><7Oo'ORmM\U=kFWe0SO010)ojc-L']rMY$&iYm=m#k42-F U">X/=V^%G8S]YxlIDj;#8K8MOBG2R]=\=Q##2ar\)&'szP_)tEUez\1b=HHE([UNcId*jT%W>*'sG$4.,++#haOi1:GOaPW/FGUDOOF'.JGQPF:iV;Q#9RX U"pTG,^%Fc[P,*q1'-2F:GZtZw4+nf#o+dUI(mM9g5Ok.'E*OH)IG;=J9NPQQ.=_I U"f]2E#xmS*mbKj-X$DUpNaJVv3,4.4&,(a?7UW'-$jdIzeA=j1*1/(Y#*d5gy*1S U"z+:3;Gk]HSq7wAXxB[Aszsy%7N_yKjO)sOD$\.8GGp6MAzg>XdLn<;0R:dcO5DD U"9ODI,d8FO?^j)>jIs(PO%0D_=Uadk]# U"6'tS/0*[h]ab*jj,6Gx5*xPFZk9(-dR-Xh0BYr2aYNXai=2h(4+aj;.5?5F6hzi U"bt9;FpZmd+b07L0nB-&?o4%/_S3gEC U"^RSV^UMl>9ufnPMJFRlA/-X>1o?&\()0UHV>v[XvW5pJ9C_]:\*GF'CFkw%AoS7 U"IbE>6Vb^V7#TkvkInSYD[ekD8<;>\K05N=J':6wC/&Q U"goM1K9m(OXyKJ)oqtGnXwI.,)G**Es+c3bn;#q\j\'ZNP(-*pq3XNj.tT8_s:M*N\NDYXVplukkwr]5n?GOB9Y/wt9tJo37Puq0 U":i[X(&_JwWqg3;65NQ>M(gjgt6-:z?AMH0WQhg7tB=dsc7ui2)YRWnfh?nR\[2< U"k;^<5Bi4>+3N+n\a.oGcfdy5f)Fx#Fz$ U")7G%MQe/L*byic83<4cSs<4/'$?s%G&JvErZi6])+>apGTBH.1-RDU_j5;<<-Hg U"?q7kqC3\x:m1diygf)T^neyX4o*7#^3W^UvLWJ5U#B5K+Mr()_D*jAfQMltkTm+ U"W/.nPqdJ23yC(X>$J3HcN23ES^K2Vi:a'#[4UK.QB:8tlG\buAL<2MAl;vPb-nG U"&hzA>p+R]FAcO2$h=bRK5IDt U"6BChKal0F2#$Vlsv;);W1EJ'RbtU1j(,4x7qNh%z:b06,e5HiG^RLT%=bk%Q-0> U"O4/FREn&TGxf%B>D?Z&8jfU/3Yy$yIPu=&e9H*BK+';.2wIUn<1(Z6.n;i>VvJz0p$r,jr,^7hR;P72iI5$ U"0.a^mu>Q)\?=Vu.ak7D3?V%9$;$hfI(]^mzo_:*(suO$uyJK'5ipI0'J4Dc%FO$ U"=6%]J5%0dw)*.obh^o8]quiTC#VF%/Nvoi&dt4y$Oc'mxaWv8n;AnMp9hVnW8LK U"1zUK#ZDm9iexEr1d(801(b8iqW%V7#DRIn2P$4+8]Lmh]Ha&Ema^(f1J3qCoEj1 U"7qgJV1^\QIIu+'$uGmWOZHYGsrb,[J7aK%TETdoa)PBBBB1w^AXvH*_Op(6QRER U"hDU%Zh$Y4uP*BhMHu?CJ'eS$QkYdcVsDU.j$Fe_JxgnTbx:J>ez'a9/a(Y'rg+p U"_oy2b^/:/SL>UY4hLHcW_Y=ZjmE1WRODJEQBxH_Mva4HCl5n1^=&nVFc$^=/jVbrU]$PJIO&HsKP*B\ll3AtFoq?Rh./T2o\^m=h U"e)#qIzY4Vo//6]4$WgL(%+pZ*D.K;m):y^AuN4;(kVQ-t)O=:XsXQ400gecI8&\ U"jSw+,h?rZ8]IyK^F%17km).>IQ-5P])ez8o#Nnk%*mBSS=YC4$Y>^nM:lsXE:b# U",o&nTQ[^UA1(;)HDxMEF+$*KbEB;wi:mbOuS;^WZb5oN*(-_PG6?,>*4n1=2RW[kdaJK-g'*6X$=8'W.kX+I:#\mS&nZZk1\AdOE6f END SUB SUB V2 U"e5pF=TY0)247LY7E).FD9WNL9OB:4aMTbh[iadY'T2$we4'*odu#*+ps..yAntrY;[M U"Hi,ea:,yo8o5:yblQzwifzf;UJ,ZD;;U1Fm/K8?5m1I5?,j/MPg^-(k97t^M*O> U"z6r/mT=(HJFL$M U"FrhM2qJV3f[Bb>XVNqj4-hY,7ai'PKln7-pQo_I>G^GcP\s_IVC%9dq(0X>mg&* U"(a=d.8n&FP+SF,iJOM9RwFk3?$%ERt(WV#8<8BrJNI>.YaUkk#l9?LmDc%dRCD; U"xMPA*+VGGojHMq#-0LrY54&5b/1mlR_1_zQAHp+U7wRj?uM9n5U#$uN2 U"6kBJF?$VP-V0bS566?wBO4kE>S(>qEfGCm<#qC(KM0Q$.jWjhes%)#CLP.q84hG U"mMZU,dPdgQd$(I(C%%W5S<-5&i#.0dr&y4R+y9J8O4-'Kl9O,XM7GJ&O$zo#5B\ U">k#?nlk_5>o$7Y:kF>;mSlG4d:p&,W.alS0bJ>GD69?5C^e[M8g-0gC\roC=,G6 U"+oHik:.ok)?DqZZ$69JfK.ui1JEZ>Lel0:Zc#N6a-1KKwi&2&k^7zm+VytNG_),p%GZ1Ad&:HL2Ujxa8jy9l44h$1Yoc U"3s*'=owQ3*aemf%Iq=Mdye%3_O4R%6J[2)l3Z,7#J/Q%R2*[rna2=D4yLqOQ.Ym U"5WKgURiAnjah0b50a.pP)9ayr\aGi/'MY$(W>:1+G%LO(okM%&quWC&;y8n1Qr1 U"9dXIG6%^Gf7Rra+mX(gl0F\zo/FDs?>8/,naG9?.^18%jOmnkwF9+I/#LQNLc2E U"Za98f.nY%j=$=.tkU.uErkp5sz.-Qq7d-=)7di$IpT8t(o1JT(Vexn%pIz70d^+ U"#C^8w-dZReq6-TBjXbSj:IGMN&bS]./b]'-#R89:Gd'/4JEq,6W+LMx1=>U7811 U"0az.*K=t,2Pb(.#:QuF=cNXL-&r);id>jPpC)a.5qV8=rHO7[ve]V2ts#FM:ue' U"EHeGSIr&APFx[vPh\fC.kiG*7aaM#3i$=BES.kgGiY[jhe+CA'=)hkl,0bjkxAD#rG8,X,FH)JW2#D-M^(MG=bp;MtiVtCetqKL8?6h>qioad*w9cTa U"g+;[UN&YNs^>'tGfLs(?4hiWQbBH^OQHX/[qPO]nfx,KG9iE&IO79u+m)igB6K7 U";,$IWi(g(I](r$u6L.=(caw^.M/o'qK17wsv7<./Q)e&Ep,PB?tX65K)Czu-5Y8 U"L^IW1nEf>9A+mYrsOEl5BYYdJ3#9AzpBYk[U#0%d?4T2I=N19\nJmj3K(_9sQ3c U"9Dw,w6\735d<4F3FBNI#Lehgpc-:h2u#+vC?(=e3^8rqXrud7pA:2wAfv<^$=xJ U"OE^J&\ZuG/YjD\ATg8/&f$K'eM6#;)f.uglL^[g.]/0GnV$[4(tSEDajEDI4T37hrESBOVBB#6HUR7K#'IZ^CQu4%&2fw=W?Z?8Y U"QYSR>5#NhdoA9^TQQHUccTkt)kgG?]g\X*oE&p=kHqBe:er=9lp=a$Yk-1H;(*0 U",&*(gn:aBA2R^U/E/No(\q2;HK<&DN-om'KSwu$[Rtb U"ST-*T+S^r02uLnQO)E;P4V*,QL/kj\08#<^rtvpwcgf8vpsF(9=5DamnM'p1M8W U"&_Lp/0r(8oGIDHlP\s_?[pB-qs+GnNW2KcA&9r\g61bs7uC+15'1Lfhu^c/76iX U"&3CIOi[Aqx$:rlg>1S6^$pe6fjS?F,P?M9lY'avkoW)K/egB^MKv?gu-6&GLvQy]Ut838o)\=Ca U"&,w'rt#/v4KHjLHHj%1Sz,Hp$v9Xf/r1ZT=+U*)*A&=g U"kj7,q;>;hBJumS:QZ\eA$fKjF,G?gT=Sr$ZAu5bM4hV*s=utfew*WV>o9C0=k)U U"CZM\?ZU9uIKEu.7\zySTr-y.x5YzU82Vu4E08l-$qUlYY8=%_pyN8^V3Bl5f=Bw U"jSYhT%>dP'^Iwwa2XdirU\1v44jAy9+UxI:Vyrl+o6B^cgMNGn2nrryFhDh[VJS U"f=jEj.)4:&\niO/;GMNPPSRj]LbEMi]/-EK9c]P_C6K/#8PbBVut]B2b2VpncUY U"]wLdTmTZVW%neV]ULdmX(vINqI&x]kVw,ujur6qFFF8DnmaJLPWa81Qo]WCmlyr U"bt]a]B#6b^qSvFJbILoHq9Stpi]FLtm3]Xma*JbLo(T%#dTV:.m>+JL_EJbPIJA U"j8&1iNUP'[FRLL(W/C=I'HW[iVO6g1fOT U"2W_*B#lPm5.Hgq'^#hv3CM$0mTXI:sMX3uxuWR58uoK_vb\0[DNsq?>q U"Bymq4S^p$o7=oPa)A's5F#;dK>av1DmH1+LOG+Z)B]^T_MQPFjp]5bCo;rH5vS.8r$Cq%(mzEy/:YU#LySn'h^jzu1yO)q&;ra^q5:JXbf*8- U"X#32XN1LH:RZrE:i)'j,=a U"6&D&2XD$^%fh:ngWge;[lsxMV/ZKgI=]+np/V+Rb.0H%k[5aJDlmmGCRAW_l(,_ U".%AE$2+yH&OqvPY+&q1yJR(zBPMy5oy7^u.1Mc3-z]e6QL]tsO8fS0.+aHcB]y^]tsE#OfT-y_*>Ve.QRq-a0Q&W75/1gRIuJ4=1K4 U"M(4N3h9/LYx\cIq\Ku+/ICiUPO7pO':e]\k$.+*6EdYhkFfpWsJO5.C_S?JubJN U"Kn-qcnLp-hNIX^hn-1^hvf'vTbJOMVIXnnju[U4/2g?qcZg33LdgcGNHYmFboUK U"-PJS' U"ilcJ9]i_Z1KA7uR(Uf8qDGk_+j2j\Mp2T30kh3,tsScqe*&t3\LfKV56/i-Xr7. U"hdPH(NJr&5m7Gm3.Bi&%AMoj4CI%7?'ojRo7&pT_Ow;7P&A/tbqer1Kct+0mCTY U"0>q0[*cs;b9^lMBZ[px#0p&Z9ja6],ZX\sqH#Cn9W#]p70mP;:r\S4sR3nqqaxv U"VLJJhUu+.aMkWvR8g1k/GOp7W:kf;^U'AWT[0tkHv$DTku'x&up%()9%%%%-%,x U"%HEhX#c[&M&%%%w.%%%-%%%%knlV%SifyE^df='=E1jNpdIVLAoZ/UUPlnH%^x[ U"SNmJ;/5z\Y&i\5#5NllHlcjD=-ulzd[d_nn,c[TJTj$^)BbA$r(L8vYKrMb)Jya U"EU<[x(N0&NlxgaT:]J:&3_+W.MVV[g[x^P0VTD^OY\%/vP#/8gries0(EK'08<* U"cA2$&d7P6Kus7L0Lxxl_sh6(D#>vJr-b.8Tjup%()9%%%%-%-&%HEj*F]t&P&%%%s.%%%-%%%%knlW%SifyE^dVa'bO1TiL;CHx.YjjgmSkiKiKab>xUDJ32aIsgSoF9XyahvuS^E%:6jQd&Fq U"pO_YId?>X;pie,bgg)j35+fZNjEcYv^(,MI U"J;J9B1nfS6;0bhg'>t#K9mM_c%rbbD%dup&%'9%9%%%%-C%Gf7(Esz>+[=X%:%v U"c%%%1%%%%%%%%%&%E%%%%%%%%%x%umwk%nyjS%gfxu%p&'9%%9%%#%-%xB%HEXV U"#c[M%&%%w%.%%-%%%%%%%%%&%%E%%+%gX%%%knl%VSif%yup&%'9%9%%%%-=%&% U"HRE*F]*tP&%%%s.%%%-%%%%%%%%%&%E#%%%a%Z%%k%nlWS%ifyu%p*+%%%%%(#% U"(%u%%%%^%\%%%%% END SUB V2 CLOSE:IF S=223AND 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