'=========================================================================== ' Subject: FLAGDRAW (FLAG EDITOR/VIEWER) Date: 09-02-97 (15:36) ' Author: Davey W. Taylor Code: QB, QBasic, PDS ' Origin: audio.squad@mailbox.swipnet.se Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"FLAGDRAW.ZIP",4^6:Z&=9619:?STRING$(50,177); U"%up()%9%%%R-%eP%3Hng87aj67%%+h%%%-%%%%kq%flSgRfx&*$dAGB,Awt)3h_ U"1J#(7UOr'rVRN.S_UA'2MOxQMHHr^+Xc:0VPNdC.uYrnZLjc; U"r\=^ql'Q=kPtGKWR=/7:u;*#Df2U_8]:X+)BP:c7BI5dL&*)G;92C:=#ek:/;E. U"x02Ll*g/kgIMc11:^4SR5^\4XF4UM6u6'OKE&/_9B+?L)%e^2GohPT)KY0Fx3Z5 U"R-HckGoV8P6lXpB$ww'uF&K1w\?l'F/S3SIX)vXL6n4QgQ)2 U"5?>pJ6Yd6G8wlQ)9gch7[wG&%B(iHHOr)ax=/bHnAYI[+]]D_SdNanM%=s;6UBhr U"8Og4mVn\L[;XIT32uZqxAL2E%u%gO]hG[Zlmgh^+pYR=K7xVrD\75Rv76Z.GViUO%D?#BGtaU<(1Q9H5Q,K3n-$V/51rpvs& U"Dp?VUB3(2pj-o8xP]&PW\oR/k?2G,Q\Rtuq,\2*=AM;wY\qXvKuQM=j$FKsA U"CHSFm(elgc5vbe^Z2X;aKH2NJ2:R<>bu$/2DK]?F?37.&9spPq$V=YN- U"qYToGB_L6T__wv(VrTZx9l*?LAt+1J_yx/IARiRvi2=;EYhb[OHw'^U=[[Ez.mp U",G;dcMz;7cZApoza*b[O1tRz*N9-Y.e184P;0#J<2>5/mU1Li^1\06b7_SxRpO?REc;X9u=Hg(.Y.3=A?d%5l5V[tEn*VG&W>$k.I.%LtaJ=d9QuP U"QLf'rhbD8#2SO[6,=q()+h%9PVdd[Fq0uM(6pVj$x>SUFKj+w(ihFOK=j>/kw%X+L&er.)FNHJfwWZ U"esAX1/_HTEVN3XDFMAPq?HFJK7j^'>tFLfwc&DdTIHcZ:0HliPEkoV6)w2\<7Fo U"#u2n-YJ60/)1.*;2*aYt36\TmdKbZZUfR?HZ-ASy*_%NTNMIfW4_Hj_TCrTM%Jx U";U1NAZg'2PyW%G[Rt69?a_.AYTic7/RPA_lqij^W5K=OeSLZBFF%#PG\xpiQSMQ U"ZaHxYfe,A-F$=e#=fzwS2%B,p')1NU#cA5$[FBf>UxDm(8=(.D8de)&tE2_BVqm U"P[qsELMT+8v?DMAEDbbnu&,moK2Mgl?WT4[p8l[-p',x?wOEL0EKSJbb1nu,mdo U"Kl?&rUGSS1c6WoRWsf9Y3jO[S1f%/15z=]=O+*iSSg(OsOJIMrEL*Q8vGbA&h*a U"fu)DRAXJbMA.ihr9gE'M3hCVJK%$VzuS#DD64s4^BedF$]j:Bo+BH&k7D?eE[gJ_2*#]oB+^\oG+,r2FJRnqbY#FC+FjRnspI\V$?$H U"rTy$A6:;0]g4O>TuEr9&L*BO\)vCoLi#VUIAr9d2W;r,tI_[rD-_OmI5im7ykuPn1rC+IGEMbl]vdPn%X+3Iq&1mBO/ScBw_<6MDe,aebs5I%_8o/(=->?[w U"EW,T6DQP*?+J_1CyS$53$pUIq-+s/+:D#;ys]-6\j)i'iC^\B;S=u7-r-Lwt6uh U"Wi/e%X\2l_*.I8:'#UHHYL7MwDjTo0Z(LkEL/CrH.'RHn_^kH<;j:on0ZCv?%&6q]K#kQ63RGlK.=2B U"oVPo\A\,dneEx#ZHYaQovtYtMdT/tYP_Bg]Sbk2ULA+=V5>ae\r>xjuhgBpC3Q8 U"/Nr-DVgc#:$?E>U>=27,:BJN6Xn_CJA5C(K4g,LY7?rV-;RKU#pd9.BEcj/)M'N2 U"3:^nTxVcX+qHgULU;7nXK2Wxp;gj;Y\2aVnBC:2XB8:=dTXZ&dHhY2aIiM8]uJN U"E#p6GA+15Jq=2And[K#/;Wl>lxrlHsrDwVS#bxLr*+v,NW7--t,XUW\LQiAb.-J U"U16sZe\uJ93(tu09kmj)0>zFRbR9O:dW'[g':'OC=G_JIyY-TVa>y?\NE.\xx(% U"q:Zr2jZ](C6u6HWb3U$vay'('._t&v&j*^UD(06]:5O#.rXe4N0TouN8/w#Sx9? U"kkv:x?h7r0C9Mi,PJ&V0=#ic4hV_vWZ6Idc>E;Q&-gbq5N7EVlY&qSIF=-vYpx; U"2IUOOI06&).m,QOh>^)TYG7Kq)D&[WSEiZSmh-R7,tkUU/NT/,X_2vsnjj'J#1_G+%Vk&&cOY+L5Xy U"Apv7i;D87b;>Q1:oU1iTsn6jL:'ga>[Ci^z*SQ+dF:i[;2&2KA1utf:PLT'JpwZ'0bJsNP0mW6cD/3su3Lfif4g U"S5+w[QO%a=,tay>Df4mVDt'M/M4W#+#^EEx(oDav-pi]MO.iA[IEM)rE[jyKdK8 U"kOPk:88KfTd9H1mOpeqD_ljAMq=J.Nd3Wv;6mgPM)3,dq+dP&uyM/\DB8B:H0#R U"_(n#N^Y438,s4U8NNDuhK^Vk#0[OenJ3%1pE8be+,DnW,nG*b&a0#_dlo((p;gk U"m&yg,5?j[Y](VtOaY4UGdi%u?n_G;X\^HY50e+R#uQBe5Ha^L61hm2gLSKsP# U"[%=1tYlgD8ubo_'L'gSSFC*hV4-OKs7J(SO\j)xq;ug1LVScV*Od&w\C9mkeBeE U"bTC3cNZVQ%?&k'bw\q-hq*t^8*:ddbW8Z2:xgfYL:TD6sH)'l8-Ut8t9IA8(te- U"mAG7AI;qhp,i+8OKa\$_^H%6T(hqfrHf&T%/5oy/A=J%qMg)e\%I:wZ U":>4t;l6&JFKmu3S(HfO5?i+sq6gpx9[GbH660\CC<6>TnPIwA*/dW[5\=i+''f3 U"/Oo*$<9:rD,Qo?nW%hH>K1j2x6<*Y&IppRjd:D2csF4Qf8CU4v[9v/Hk)[BT'Zn U"kJ$6c,5Y3cXmhe2Bbapfs.N(]u]j'?$R,QQL)\z&B-G.N5vgm);ZuvEgUx2>8(T U"/J/UFZr/AE6:F;t80>Y:G(^WNwN-XDwY;?nthr_zN[UqJ#<+-fAUYHVp/n5R9,a U")OI9CwoBbo2gJT1kn\.)WnhXZOdg-TiSzHUYkX_u^PP U"B+lu2'_%LUvMp..Q:W8pc4x)g,h:-^DssdxW38on$vgSG[*\ZQI[%+)7j>Is5CQ-/]p8Y_8&xPB U"3>K=?M6h514>>(CaX*5#VW]ovumfI0GI:HdLJA\dTFZZm4*+M[?E82[ZK.*+pI. U"DTj1n['Gt&\,:(yD$bpIqWj&[\Yd>1UfC\wKf&d#rsgR^%Mfpfy>lW0G-]h1YYq U"e4\Ea64Hi#?\,tB8:zA:IX8a/rp5y>1*vGXx)aCt$jO,Rd2E3wC9\.[IcQsGmV#5#q-cS0tO?.ddBSQVMK]k];YLbbk4QNK0wi=zBx(og U"tD(hRn8*/-cHO*>:<%Wte#By&e2)UR'.HmVaq\+mj2DwgXEcGpp97S1LNv(5;5/ U"+)(SjkP#Am(wdk'YwJ,eSdiQXUssFRwR4NUWh0_4yopl%jOASY>u1gk&&QXTEga U"qm2p6mR*4\vLB$5t6Bx]m3C?\,]lf_mqS/Isj#l%Xr$l.rGGP5O[y\Pw#Cz<:&Z U"]arxS+=AQI#iHA7'L%6C8>yWn^Nqk21#^)kRH7INn6L^es/(&r6m4VonW>GpWOq U"lMIR4nn7&+OG*nE,r/d\4-JM(5n0i<%Ns:^:,=6\1bB/*KReg'fEu$DLhVeU05: U"?MqMxEP3]:1v:C?0l.14\*hL\]K5>)=j/mAj210+=OB7Ca$t,vh17?3TY$]_Ohr U"7D__^7hrF5Se,?D2q-4hi]oS%%%-%%%%jin%ySgfaxf?fb=[mkSNIWpB[r;g%F^c U"Ka.TlyF29zPgg:kI1BdRvSq1Z)acu*ulioeqT1Q7L42>B*ehEB U"L3+x/RK'Ks38U8Dblo8U_E]>]If\S^vU,:Z_rYg+r$uVvSi:]<<(uDh#HatTK1q U"cKf7r6A;MreI?T6>NUN$$#/%lqn3fZk3CF/g-?*d$.H&AtaD.ri<6\*6oeXnv%e U"0JO;o%mN_&[qQIe>IJjK&XZL3sXH6b]r>G1##pZo:0nOP]9C?FmWudJH^NpD5g>u_mbMejbd U"ZAc>DQox9m..$2hipBIu;qgji&-Q<\k\pL:._L8KNe.X6GZS(3+u:FRR%6-0),- U"AY7urInf+qsJc^)#ql5u_zn2s5)Q24apsUc#1zzV;)r)lRz8//K0t#=J)3Utu)) U"Pbe^7:*a-SB/'(:&o.keVHQIBRa%g+9W-Y7Ff%z/zLJ%EPIa9MHo.g'\M_7SsTk U"e$->TIwTVUP^U*5=afJ\ScjaQ4_3d'6FB>YUG7S3Upo3TXltzL8MqrgdT[HWgOc U"GYsoN]:&lomnTtqx;osbd_y.3CA79+%eC*nJcjR\l>F'==b29V=PeRSt8AQ7vScO]%GdfV>?m8W66c,wZ,r$]4qHcrfG6x)[CY:n?jtbL,_TTOLg;/(S U"6Sa7tiN'Qu.)L1#$C1o#n&?RuO'Ys35YZkI&fn7L=:x8kmE?A-Uu7 U"OSZ[p3qK/j&Y0ON^8/?l:d4E/YMMHi/PlhIiTcYoemw4\0[e2aIG3U:7L.P'dB, U"?/Mu^[0/X#u'&LCgcG9V(Y:ypLuC#4n>bH[Q/U$V;d9.0mH(=+vqW^n;fJ]R6y# U"US+n:1c+bPQh9x4o7zJAuo&XQa;LsaF^0j7:utHmz+c'6;5=eN:[I]tX22YpqKI U"mcoi0-.$BDYPQdp5&wNlp1yCv\7aMj(G$b.HB?ZOC1]^Sl]aXmu*UM+N0S+XDKE U"1xgB#Oo+ZVQ_Gi/m'o[]h$W\R8RbC3UoKAVObpsdYDKL.=a[rT;j6MxNtLME U"b2=e\*vwFI0\[zuK-HZ'SK0iw+JGICeB[X1IjM2&)tT>)N=B1MLNaDBhi&IBs'LR&GA,k.f*:c+u++PNsMlZ=QEDgxRf(G*9/& U"q4QHird(IDCrYs$?M*.(\4_ud8A,0mZ(7h=Z3f/:Y00I>A?'iZ7d:\S<^,.2n8p U"\[Iah^b7szbQtW8DfD8dl[^H6I^deH2>[Eeuf=i*5%K,P'42fr_VSFYN]#(K<,x U"k]nb0$'ZmZA,v5[iGO^jL4.$sha*mJ;^RCueeR765jC#)$S2a4XR$JO.\HOMe3j U".n]nlRmgG:V6V4_^5Xu%m^s[%'Wg^HIKLfaMHoKgw=KvHyp3ROqB]5u2D:Lk:n%sNFFPY-07fCxKU0Qe+-Pj]M^/(mU*:oP(l?Bn'M\6h5RwH&: U"WM>mcB,YLwMu_2xD)J*(li.rOGz2tuoR>d05eIG5M=0ppcgkH&-YMb=7L5UrmlC U".p8$PSYS'G,j2P3NWFp:kSwKte8)FdMS9jp$U1EV2L)t-=hNAi3pV^[DQNK0h9T U"3sfTlUg,eo9g6KCh1.C'[eif1X85grpXL_CL6.*PzYZRc_G/eDGp U"R,1HCiuTXFkYE?HDlb/wEGs',h1bO7k+JD42(]uSOWHJ3c;ZNF38VMe..lo*-td U"Q*]c-p'kr9,=E_)f*pZ;Oi*Eys)^damM\6>'-])/1VpfZ4fSDtdzh#-[n2kdJQq U":bee)p;;kH7=bF+T-.^T)q6%srHO06]k%X:R>jw>$VSfdO1'Q?k9VSYf?+4K*Ly U"1Mhq'BMt=4ZX?:SilQ0d=leqUE2qJ)UVxe\Q*Mcz6I\zrUY94DZ#vq8#b#twF:; U"&iKsFJG)+6UHkQKG8^(_tJ<[RtJbKxaPbimkm9>X/9n&)o.s(V^i&2q?dJE.u&d U"=TEi;cMSKMnUgM0uM:k+-&%PVEx;>[?noaA6_Lx4JrB*(Cq%,bTULVB'3#e#JMk U"V4hj3N#_wRRJ.p]GK23)jE]p[FLTUqM^V)(d8J:B+]^n#JQVtI^qxl%HT4Eu,cRGV#SK?&o'BV3s3 U"Y19l^/$iFUj=pAXw3)tou9fGnSs=d(M]d]Fr$Ld*uKT,LAAjPg0+2P2o27s,O;/ U"DWV1?g4oG>#=68h+v1EC%trI3,YAg7bd+a]0T5q*_$&cH=T3'h[W,PH5o^[^iFr U"bEDgV<]F/Rs$.sCS^gp7cLMIhl\e#ma/=<_KpRa0Hx6rSI\F&5$^W<83h?[*Pn6 U"-<2*dbs1%fwA2;I$=6\E_Z]Z;2I-8;6\$]JZBAS(3(g4qx&0ZThIH.Y,M_a7uH? U"[-loknl'7H(XsWdq\-Pl%F2]smrn]%dDB8t-OKfX_g[XmHFnDwbEshe_D:Ut.;B U"bX*u6e+?VuY]$/VleIqY.I]/bke*#Jdi_\gqS^5*];w7,V^kru?ZHtE[hM:s+\f U"]_0tS*QReVYL^T>XyqDocXYkNkI[E-uvvc^qfwXg:3d2guv2xwjEfKrXC,'9jNv U"ql*2\]2nlVtZt#Y;Q,Dg.PPsDha],zl)VWA*]Fc(*0XRHnbDnBz*IVxG8DGUy+R U"cr3/6bM9'o'pY0+.-FHT8n9>)3?R&>nAYkd'cd:7L.qq^'nJInu)&_hM3e(,\wD U"u%p()9%%%%-1%'%)4H.]+%V=%%+%f%%%%/%%.%x&j%ijsS#rfu29]7\VA1''5)5 U"5KM:ERBq.-u=*(:g%u%p()9%%%%-1%?g)+H/ns*.P%%(%<)%%%1%%%%gwn%yyfn U"%sSrfLutc,(7OE-5SBhagh,rl,.'D:s\#NR9[juCJ/f?(;^<0=\ajXmd.SM\Qo* U"VxBqk)J,%#.5.1,->-':UKH>'-C12?x0nY#ZU^A:M<73^4s=\ao>/1u\^ U"7*8qhtGx**Krn(.F2jYQAKa/GYr'qlErAp2MTu**anup%()9%%%%-%(0d*H/lFN U"A'G%%%%*)%%%.%%%%rxit%xSrf1ulbv+7;U-Oi.lc,+:Tb]xR2)Z9?]vEKhyHT9 U"'J6MJN-lIq;j,_^.82ZCw>+_kdyU?2/_=>L?$1HQ\/o*S[6EO/T0^Ze+^7uj%S6 U"e7KB$h-d5e-LUvXteK_&S8zSgn9U'S0E/KM;TNWr>IX7u%p()9%%%%-1%V:)sH'=;%_=%%+%e% U"%%%0%%%%ijs%rfwp%Srfub2]7\(V1%'%[[[+dMEeBIk-_84S&g%%up()%9%%%I- U"%s:d)HET,JH=%7%%e%%%%0%%%%kn%sqfs%iSrf:u2]70\V1(%'KKK#[MEeBBi-_ U"S8S&g%%up(%)9%%[%-%J\:)HL8A%o5[%%%e%%%%/%%%%k%wfsh%jSrf:u2]7K\V U"1q1K/rK)/oK%%%up(%)9%%%%-%M&;)H]1Y\4F[%%%e%%%%0%%%%n%hjqf%siSrd U"fu2]F7\V1M1112M//2Q%%Qq[%E%WFI9[Os2Oo0('?)%u%p()9%%%%-.%_;).H+M U"y&P5%%+%e%%%%0%%%%nwj%qfsi%Srfub2]7\1V1sKD/rK/&uK%%%up()%9%%%#- U"%z;I)HIl+KsF%7%%e%%%%/%%%%stCw&f(%Srfub2]7\LV1//M/211)2O%Q%q[E% U"%WF9[MOsOo80(?)%%up(%)9%%#%-%4A;)Hg&Zc)6[%%%e%%%%.%%%%x%ufns%Sr U"fub2]7\LV1//&/+&+7U=/q%%up(%)9%%#%-%XA;)Hm3$h+E[%%%e%%%%,%%%%z% U"xfSrdfu2]F7\V1&Q%[+%[+K[R5(;32Q?7EO/,\Pm23b9%)%up%()9%%%%-%*Ph) U"H^qFHN%g%%%'P%%%%1%%%%rnsn%kqfl%SrfuV23N5L8011)51g50EEOK\UE]9eO U"2WQ/OI[%p.O>R6QQ_9N9S_3Xv-*#gEx0\,Oc&nP0PP3FEU?g1+SDA&;%up%&'9% U"%9%%%R-%eP%3Hng87aj67%%+h%%%-%%%%%%%%%&%%E%%%%%%%%%kqfl%Sgfx%up U"&'%9%9%%%%-%(oP3H,B-Gk'[0%%'>S%%%-%%%%%%%%%&%E%%%%<7%%%ji%nySg% U"fxup%&'9%%9%%%I-%'%R)H.]%+V=%7%%f%%%%/%%%%%%%%%&%%E%%%%DC%%(x&j U"i%jsSr%fuup%&'9%%9%%%I-%?g7)H/n4s.P%.%%<)%%%1%%%%%%%%%%%%E%%%&. U"C%%%gwny%yfns%Srfu%up&'%9%9%%%%-%(0d*H/lFNA'G%%%%*)%%%.%%%%%%%% U"%%%E%%%%/D%%%rx%itxS%rfuu%p&'9%%9%%#%-%V\:)H'-=;_=[%%%e%%%%0%%% U"%%%%%%&%%E%%+%xD%%%ijs%rfwp%Srfu%up&'%9%9%%%%-%)s:)HkETJH%=%%%' U"e%%%%0%%%%%%%%%&%E%%%%eE%%%kn%sqfs%iSrf%uup&%'9%9%%%%-4%J:)4HLA U"%'o5%%+%e%%%%/%%%%%%%%%&%E#%%%P%E%%k%wfsh%jSrf%uup&%'9%9%%%%-.% U"M;)#H]Y\&4F%%+%e%%%%0%%%%%%%%%&%E[%%%2%E%%n%hjqf%siSr%fuup%&'9% U"%9%%%#-%_;#)H+M(yP5%7%%e%%%%0%%%%%%%%%&%%E%%%%(F%%%nwjq%fsiS%rf U"uu%p&'9%%9%%%%-%zA;)HI8lKsF[%%%e%%%%/%%%%%%%%%&%%E%%%%aF%%%stw/ U"&f(S%rfuu%p&'9%%9%%#%-%4A;)Hg&Zc)6[%%%e%%%%.%%%%%%%%%&%%E%%(%TF U"%%%xuf%nsSr%fuup%&'9%%9%%%I-%X;d)Hm$)h+E%7%%e%%%%,%%%%%%%%%&%%E U"%%%'6F%%%zxfS%rfuu%p&'9%%9%%[%-%P&h)Hq8FHNg[%%%P%%%%1%%%%%%%%%& U"%%E%%%%'G%%%rns%nkqf%lSrf%uup*%+%%%%%3%3%%4(%(%=G%%%%% END SUB CLOSE:IF S=97AND 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