'=========================================================================== ' Subject: STAR (TITLE) ZOOM Date: 04-07-97 (17:31) ' Author: Angelo Ken Pesce Code: QB, QBasic, PDS ' Origin: us0082@uniserv.uniplan.it Packet: GRAPHICS.ABC '=========================================================================== DEFINT 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