'=========================================================================== ' Subject: WAVE VARIOUS FLAGS ON SCREEN Date: 10-02-99 (21:10) ' Author: Aaron Severn Code: QB, PDS ' Origin: rlsevern@idirect.com Packet: GRAPHICS.ABC '=========================================================================== ' Waves various flags on the screen. Flags are 16 colour bitmaps. ' Uses 640x480x256 resolution. DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"FLAGS.ZIP",4^6:Z&=6883:?STRING$(50,177); U"%up()%9%%%I-%(n/&HeR?rEH%.%%UL%%%,%%%%zx%fSgr4ufgV+3;U1Uj\=+� U"],=$0Y1j_sHT.Uxt]YfYsrMGEr>;N1r-rUgBsjMi2S,HlqhMq$RWi5c'r>m\laStlWgDE\5-H U"f?Zuca#$Ck\Gnd#Z9M]Jzd0EtrDn(\ofdZ$UwdO^0B=u#$up0r(\\%up()%9%%% U"I-%7rS&H2y*f/o'.%%UL%%%+%%%%zp%SgrucfSV+'SU5+)/6KZ_b*I$YG\o\CT$ U"XsGuCB+frOc()ID3gXh^AUp=:nhlg8Q5F9J?29?mw=r-:)Yu^n$PD=\D8rveO0$ U"-Mtdtvgl3fxpIwlvID8g3lW\kId]#id5(KYRLbcQ/DmHW6DlKoVQD+jPV\l(RIT U"wMj#ZXTaUU];ki,m-MQ6Y#7YWQ1j1UE'OCc7UW==4?E31m$=gp[M]kn1CeQfGRh U"7pM#Cg#A6->20h0\aa)8SX++emYgU>gA_lBA0?OMC1:K?FSp78I[#s;*m831W:m U"Fg/>Kf=X3^mrjgeA_6H].F8yI+-=[=.'G(X-LY-NO2xW5i#.0v[C]$FH13225,rF5_.'2hu^ApGASwJ-a^,UIml+)$b#4w?A' U"-H)k+/\V'OGKGcUu_KGGS9m0,?=A.*i-bbYijP\0*jZ;UR)-7iJQW2tL8shq[^1 U"w_5P[':y?-Mxma(\.CUsMAo9v>e U"'h%+Wc5iecXi>^A()J4.>WH(+p>f23Ncn:7y*F1<1M<.;\M*/?3hML9+H[1f&rl U"eg+V1DSg=D>xg.K5Y\^p5=kp^ U"m'tXu2]MlAveta^prQlOr,7DN>gGCY0e*t^I/vCu)cXsV_*EMsIScq3B,0T*rGw37tp?u0xW[0q$#M8F1Lg3a/n U"T<0)5Sh8uvxW'E/f]833v>mlL,IE*C^[C;S3zIJ\(CO_ao2Tv37Fu8EJju4]h7: U"j&,\Oeer%c,$ie'HF^(dGTP]:cWu/baVou\9u0xES5(gOa U"&%up()%9%%%#-%wpA&Hyg0;kU%.%%UL%%%.%%%%ny.fq(S[grufEFp6Q[V1+IV? U"Vw^m>UYQa&H;E5O'1,E/xip\(*zKBw3xTMJ.iuhfYF7BU4VA0Dc5dZ,(Rj1$o64uNSF6hJM4w?Xw-OJPDQ.OkLlL?XOlOJz(rk U"IEkM9bK=',U=1U+R:/%U=1+5R:/U#=1+R*:/U=d1+R:&/U=1U+Rj>'\0up%()9% U"%%%-%3^m&H.atoB&t&%%&UL%%%/%%%%hfsf%ifSgRrufi1VESEU5UBJ>xp^;oB^ U"K$#;^h9PzU0zN2Y4y?M2Cy+)*5k%k6+CK5*4,VgNumjM,OtZwjvyb;sWrHF]Db. U"drMwuH/w>3QN>o-vV9n>bVNY3&V4X5._H[$#tkT;,86C2eL+%'Jr.[Vq1oe#4U1709.V+uehXB9VotBX1b,'ma3$uve1 U"W'k<;[(B6q:C'kj%+Cy,OgGt&=H+[L\?gKrITZ&Pr-DNGu:H*shtqlo^^7I3tCxg8'>o%/quUEIEymSN U".G$o,L)(NQ-=%;auW89';6t28O$uf][eg43RKfM.=6Ii[(%.nXomh1I%B^/.g1] U"4eab7my*J[;7Cu*2szG(4BWf;FtR)^acf.jteGH&OdgDeS]XICIvu;o;_(aOeO%-Syt)m)MAbO\b+;e_fKH0wk9G;-)35Yq.j#X9)9BJ U":/f5^S3;2'o:'S*P63HFEG\#G*5:K+[N$;WHZ$Awn7OMA&Mon85+9W,9^JEA<,( U"\4(Wl''*SYLu)ryA6#%&VQK.tJ$0]27F#D*B/u>_(*OB*bPmYCP<6Nr#6cvJ4tgv6T3W,N]kTGvx:Z>Vfb6K(dKT2Ct(ljiZREc.K0ND9>Z:V00, U"FSD2NZ%98KddI%U,y2Mj'1fSA)n$SBcg^A1M+hl1EYPT*_C'edz)PQgy:DiFoAC U"S-kW+>UlI%-St(N&nc$c>+./MQ8x$/C2bAzP0uS*,iK_Bih=&Dj/J#2>rb*+Q&y U"1'deG-n/6r)7H?v/S6]Su5TVmH*B;]ah#YJbC7h#kQw?S-4hrq6LF=xtF0b/P U"3YGv?Bch3iU\hj&hCW*P\sTvbM>&> U"W>r*YMYB=&T^Y75PcoSLTni?v6=eZxV$oThN&S_Rb&>\]#_\nnu2eqVH9=dLOdp U"(&XU,.*9zYkWFc$kzqhuI/<'X;2,IW_?dL-&k\uzXi:t;U*]9i#scy#-v.AH.N+ U"PtnI4i:MiEus39R3dJrhREpXkxFM,=N>OUcEuXbYOb1KKQf_>'ZV'i(uhK\.>2&D*+^7xGB/5+G^ia=kMxBJT?SV?,b9,D2w%L1rPC-AQx**;UpB.a;7.k0B+quF+*2cmDy U"1)bP>d?Li)Dw=uYntp8-J2[zn$T*QHxqZC+G2oeAR320Au/ff$8Xp>r_K4LG>]A U"<7Kk/ZgiS&ftZWE]BA<.wMf)7VpLMk'j$1&jnzw]TKJ.muL%:h>.oK&wU7n.SB](H+$Hs,h2P).EeqhpEU^ZNM4GHHaX;'?Q[r8OAPWb U"L);GZ(eHHE(j*KbRo'gR.U$.n-7b0'tlehV2]Wlus,5,j$'dwMMW#/Z[mK]'g#) U"94LB,PosvvZhH6#4&dU=\?$i<]fL4wleS%naA),U_;:MON#cm3xaSEuKQb#\40, U"C8GhLr1Sn?GT.Ap*LkDBB]lIuMFmm+kq)\T(*B6oyb93pmPHonu*HCFV$H U"hKTMvN($UJ/fb>FJwsL2-c9(U+n^26dtFpSxf-)+>NrbXgSxN\Cf.:v]pqPV#6N U"9V#XfStMn,HU8hltTYb?JkZu=l;B#'HO[oyC^hAMMzIqC)\zQS2]rrxT'.F-F/h U"nUDC9v8^r#y?AT^xw'Bz*r+Qisoq91)RR+Ld'n3bvZRbAKMD/]R;GGqulAgDXWr U"Haq]o:zght\?q=DL?\if9rNQ\ha7UCd)+3hC&J;P.TJz)*4 U"(-9EK$eGZm#c#E,eXQbR'Nq)I$P(Dyu%ZMbt=?H1m%%0hcZ$)2s;*JdP.$44wi* U"5lr-y6fQN[p:q2IN;SDp#3Myy,gnyM4MmF]+U6DPNtJsOiP.\%(l?o'gC^Mh7f_ U"n6,EPv^'VOl2F+/s2J]Mu2psU6h$LCNED'FN<_2-T;Fvl]9'[Y5:e+e9NDp<'k) U"jV/E+$j?tc1jI,7&Ubk;4Ws:jVg0\r_0EaT8y'[\DJO>2H1s0akS*SR2^BCW_9^ U"o/WKRC:m^kQWw]#(['Q0Y_7E<$$Ff]e>j.>KU,Zs\/fZTe=%8A>q6+ U"9JQcuBFqGlDy/;cOHg[rsbsV*rfF#/TXBTIeFQANHUX#Fs+6b-dl(_%9GgRV//e U"$JU_Z01AEU7-=M.BPmg5/fI,yFE4[tJ#p7)%v=XMr]6K]EXX9&8Od<>7o*8GMPP U"3l:Ad?8IG,Wi8H_laB.b9];$pZB9vRENur^:n]vs$AJwV/&[GJmF:h?FL#vSmYJ U"+>]RL],h$_u/k\cuD6gV8Ke++61o[ujCkb#fP/jyX%EzChiNH>Z#RI3XHr1fwCh U")IYJci1()6.ur:Qc.rFpdXWm.Ig^EP1:mgghjvV%Cn^S.$F5YB$Evu-S^[=wgwGf7?WHc^V?)g^L7=RR/-)A%BZt,k]itLn: U"*x)z-oRCq\fGptlr88quxg?n1,KtKGC'pu)Sk8,n>#.lvlOcQY_mVANhD6YTWe) U"t,WV[9s+<+K0V)2j,QlXh9pAjye2Cpt(C-T8L6HiS#cDVt]kDh00:nsG2iEaPD: U":'jRRo5Bm1a\$q>P%tP\7Mh]o9Gm[e_+\=qiT*NIsKX^$rr:nEYI?o=VNkdAEAu U"c'aXuU50:Tj=j-v$4hjTUoBtqf*0:Xvh0VpQZ[ujAMuNk8)iM]ct(n(w+.6#Y;EBEk;>+N^< U"lrtJ72q?pbBD]a0g#?A?NpcQPvW6hime$Gpvm&yn]B6R#m(aLo_p6P?>[.(huoo U"J2lFn&NH38]X&YEC5vl2OjhW?wLU2*9WT;Q??=A]x.y*MAy5RiPv5\p[0lU]_ib U"%0M9u_x'Nq.W?S<^Zfc16KnR23IL&(P/ajy98#Rpo'dt)DcPY&Nkp%]1xvNq&S) U"LjMw3kgc&>KO+yB*Cq>?*v6&Q=7mbJ4ch0AVo8UN)ZfKr.73_-E2nWa]+MEf>f^ U"Ff,,PA([+'Z:I&>oUn*^sd^gN;WB$/7GjY#DU U"l0W;1Fr*tS*cm0gF#-m7$uAM';f.Ys-ZvLcTZd=UrlsfWX,wGzCtqZ>_qbPM3Lp U"lkTfU>\Ct81bW6.\09mw)VXDa;1;+$tKTG9z0uO U"6oXQRjn)BY\\cmxK77YYxggnETKOPr<,aCx*ViB&=V.xk$5+8iG U"/Sm5g+ U"MWG7[G,0$Q)QZq3l\HLtjTpQgV\uTa3]#dQMa=zeik#-0:SJIefcZM=pIBrK_3p U"oFSl<[MRqY.4>&^3:w=c8)n_>%uxu%p&'9%%9%%#%-%(Dn&HesRrEH#%%%U%L%% U",%%%%%%%%%%%%E%%%%%%%%%zxf%Sgru%up&'%9%9%%%%-%27r&HW2yf/%o'%%&U U"L%%%+%%%%%%%%%%%E%7%%m%%%%zp%Sgru%up&'%9%9%%%%-%31r&H,m[My'x%%% U"&UL%%%.%%%%%%%%%%%E%.%%1(%%%of%ufsS%gruu%p&'9%%9%%%%-%w)p&HyGg; U"kU#%%%U%L%%.%%%%%%%%%%%%E%%(%W)%%%nyf(q(Sg%ruup%&'9%%9%%%I-%6p\ U"&HT/4-%T%.%%UL%%%/%%%%%%%%%%%%E%%%%Z*%%%kwfs%hjSg%ruup%&'9%%9%% U"%R-%^m&&Hat/oBt&.%%UL%%%/%%%%%%%%%%%%E%%%'[*%%%hfsf%ifSg%ruup%& U"'9%%9%%%#-%3\/'HwB4:IO&.%%UL%%%0%%%%%%%%%%%%E%%%'(,%%%gfmf%rfxS U"%gruu%p&'9%%9%%#%-%yH&cIIPR;-h#4%%o%P%%-%%%%%%%%%&%%E%%(%'.%%%k U"qf%lSgf%xup*%+%%%%%-%-+%/&%%%<>%%%%% END SUB CLOSE:IF S=173AND 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