'=========================================================================== ' Subject: VARIOUS STAR-LIKE EFFECTS Date: 02-05-96 (22:04) ' Author: Andrew Jones Code: QB, QBasic, PDS ' Origin: FidoNet QUIK_BAS Echo Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"STARS.ZIP",4^6:Z&=3473:?STRING$(50,177); U"%up()%9%%%%-%1UIdEz55$k>(%%%a.%%%1%%%%xy%fwkn%jqSg.fxdz;:>T[j9v U"=9?xZ-M2oGEwUN8+4fa+3/E57p39 U"Jg24>aGN%J$oY[f,a<0bkXOU5X-/P'uF*Ph$#$]J/N&_s'WtD?dp0\&S0WyMAXk U"N&4N;:kqq=k-ML[LWH$D6m+Z$^I*fVi4G(Im%U1KvG[*dX7kFCKTe#YbNA3pe%G U"vqH9.PaT(j-F6Xi;lK2(AaEgX_3f_*9A,*(gL9Rvm5L2IZc<_;u-U3[#FeOTerqIq;6(K#^pm^:;&+Fnj6u?)^BM U"jsMo%+KoF>r'*-3J2J/Odas0&T9J6*2QE=_)U2Nf+N(r:*.=s*8m&hsP+Me4cTB U"OYS'k(;^s7Eofg6?B,]%=b+tsc[YJ5n-*(/N=SVlgGnS$&wdj9v5WzH4NDTjyj? U"2VW[G.-Y2S%0$vuaMz;pXDd9yojdwSk:#23F6W.z#muUc7&ejF,o:H+RY(C[O4=^(wQYqv2dxrH-IxAx]&l#;dHjMF: U"\]u=;6u7bngOKL(bwpL<7jps3SvB^6R>b)jL3KKHxq9k&CbWJ,vv3toJN8hYh+L U";acr,VdF4*s&p$F*M><0T(O.^JzQrF5J4 U"*/;\KRl\==4[EeMLCs5wbxiv][vutB4,]DD$OcDxA=uI#:<87Y/,ru>\,0XJrk?Gn4$LN'DgV$RI,\:w24U.\gBXM,;=WZ%b7XBT[9LUJg2IF:Na'*=F9gLsr'Q/3Ef9E[W7/5B5^*K%]*?2ae U"BInfp?NWeCOlfmbFQ2B;z[;dC.Ip>K981Fr(iB2m=bRL%,YRi9QR>Y13[KtxA1mrH/hNeI/-Q4V)^\9Q^j<_F.:[ U"?fH:8Cx'Os:Dsh2*/njhAK(z]1ZD0qvf4\PAWhyZSXX6d9>i2_T;AM#n5ra*\tX$HY)7ymBo1fp+kWLJq)$4yA+&M+Y1n U"'T#dnlAROYCa32X].&^%(y%h6P(JcVuGNOTv&lJRH5[pS-+fZscmLtF.g-^,\PLJ6Ns>u\x;_i?Y9S&O U"O,uJ%Y7c?c2RCbd,8_a(1I:y(s8$LAM4_?QkSgw(a$2)V1Fc9Bc$] U"<+Z9BsZVFU(ft'i4+-Tw;]ejG's&#I/XRXvH&Eu)O9V4U.j0'6iufYeccU:q&d2 U"r*JGk/[O70,#Vp?RHwuSals:C(+Nre#JfDZ9SK'CoXJiEcPu=/$46i_I;CjZSI: U"JPzs.%PGJnI'I4HJutZ_%j9Gk&Tcl]b,].Z%,/yIOP;$Osa=R[a#6OC;i*IjN^4 U"d5Svb^Wbxeqb_L=B5A_JSU;ILT?atV>MT.?#WN=::rNH+jo9249ZWj%FfE^Hw(E U"i5xN3R\05G[:AKu_I3u_uo2eQoG6,PTrxY$3uvcK9s*RdhHFDp]*ccuF(dQ^XN(/zTh\cNP U"+;pdI6Rj%G*N5FH_mZCN#]rw5*&%d%up%()9%%%%-%'JhkE&6Iq&&m&%%%Q)%%% U"/%%%%gtzs%hjSgRfxfb98s\e45?6A)QQ' U"jLN:*-&B0+c3EOlmi5_:cD;,&\33$ U"%b8X8cT3E6P-77U\x3&uCDNAOa,qsR/E=tBbm)M].Q_2G/2WD8cB[IkC8&me8E' U"B_N'3NHea+<0ZTF-EkT-vJ,HQ3g(dfY?p8m*f9Ipqd'/hdPob*PB(.^oNok'7K% U"87^S':#u#B)&AV$]m;^bfq(O8oorWENKhE%RG1^*/WYIf/mnAD>izA2cVi[rbC# U"BKB\Ayjt5S\&lU$IO\&b&/Nv6d+V?RxN(hvBI_)jYa6&>cDd0w$Yu[&M?_3(bQ) U"4gECUoC-N%ig3JsOk8>FV?HT1jHyWH*3AQZ]x]K\8k_0k>D[J*#1>tu3Q,67vGt U"]0[\Yim.roO%a^QKx?>[(\11;/qJJN1dW#])UCErW?Y/8V:LW> U"DxWPVtRFgscm74Z(pVLRB)5yN0tOYefuL9fw-.2'Qz,.Q+GTS.tv&pMN>$5&,7RSJeGV,PU%,q?;^mTs*AirucPMYISOUR>)GYJa U"YW60Ba)V*Aq^p(N(sxr?1i?JcqbG\h&de]Z6aX<>VJA3]^T>94*#cG'pf#T?PGW U"(l0ug1ngsuDrQ0(Gq=MX^gtwT7r7$xRWRCmJ(qXxK[;%Y]nP=Xu1QGiQ3u\zKk( U"tN4vj<=2QV>qrB&jX3?UUX7\JHj:H?N0;mFT7F>;Ms53*3>5'FsHT6%W=X\47Vn U"oZ4R'nb)bfPdL-=ccrb]0KUo0g?V_ctg$h+Y,f8>+\GuQFw]tFh4lK.u+Q(ZfoF U".p9<^m4>?h[P?-bDIIeXH3bx/$YallO6O]d9UP3_P(*/?ZDOkGWYrklA( U"OP)u7S:[CUr-'aqKT[KfE7TCHuKGTg%6T[eQyo,F7lwOR/wLOO_laPkejAj&A&% U"u%p&'9%%9%%%%-%1#UdEzV5$k>%(%%a%.%%1%%%%%%%%%&%%E%%%%%%%%%xyf%w U"knj%qSgf%xup&%'9%9%%%%-+%lhk1Elhq(q9)%%%L5%%%.%%%%%%%%%&%E#%%%h U"%(%%x#yfw)%Sgfx%up&'%9%9%%%%-%'JhkE&6Iq&&m&%%%Q)%%%/%%%%%%%%%%% U"E%%%%O-%%%gt%zshj%Sgfx%up&'%9%9%%%%-%'NhkEtM9Mr&C&%%%)(%%%.%%%% U"%%%%%&%E%7%%i.%%%xu.wf(S%gfxu%p&'9%%9%%%%-%\#ikE,hVe21[%%%V%%%% U"+%%%%%%%%%&%%E%%(%Z0%%%wjf%irju%p*+%%%%%*%%*%9#&%%6%1%%%%% END SUB CLOSE:IF S=230AND 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