'=========================================================================== ' Subject: CUSTOM PALETTE MAKER Date: 11-15-98 (22:32) ' Author: Frank Rompella Code: QB, QBasic, PDS ' Origin: frankrm@jps.net Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"MAKEPAL.ZIP",4^6:Z&=7536:?STRING$(50,177); U"%up()%9%%%#-%Vr8#J4';Yfc77%%dh%%%1%%%%rf%pjRu%fqSg7fxfaqV?:np7Y2UlfOc)SHJu-h-mf*$^9OJ1d?1pP-86#hS6)xw/fv U"c7':Fq.6q6qQK*/[r-gI7]cdF[U:3JvV2cm;\#GR?9+g_o'a?jTZ4HM/aJOkzTd U"1PQxMw&0,DTOrz[U0=lSzUj%/[E=$O\OG;W:as08.'9$c+Yc:MXfb%_zHGY?tO0 U"VaQ>hp85U+)A1N$C)sILa+g\0vaGmA&jij7<3.DB0CFBGfWtqT],/_cW6J\HoW* U"$fI(F1h./&Fzg0AFC'8]5UI&O%0Cno&h20-V84+;o((lTXO4+5=DCsQ#GV+Lr)U<:[5c4?^(/f9:(P=NI;SJ.au\3pQo- U"Ez6I%oFtJv*nTR?/0KG*P^[uP;3.\H70:Ar4tn3AmfY1Zpmfnzh*]JII#E>QEJ4 U"^eK*_88b-sHi5(E.0GMud[PndBf)5u-SY%)Q_,[-oa<)&:90\MR=6;4.WyuG>>C U"BIzL4pTkp>Q*6Y]WfR+Kk/&0sy7QQqHkjiD4P'a,P;UPjZ9+)];sD.u[ANVq_Pw U"-dvH]3?qbZUKP-L%Ec+9+6X+MsoDIegKOt#$LWG(^(c7)vJQiwc6S0MwtRJQ3F:(mdI_\IMMm0b;q+b.B1 U"Hix6+V9_X=/x2BV(2Q*u<7a':/yt'_Ht/=h\UqBW3-d&rFxuVYV3e_4uqk+#]57 U"/4Pn>[VXsjGBJR$ZhTj-XtQ6L,(Okz3oo?#.FOMt:DQpOKGQUd407g,s01EZcsQ U"6T\gt3vW=zWR)i2kf^*Ti:]>V62$,j,U7d'-[[\p'lILE>USI='89N?ka/Cwi3y U"\o/8u.6gDuo]?7\'(5rF7h.D7DTcMTN*01+0Tz't=)'.R;_kZ0KwO+:,P%Bhe9% U"QWg'X9u*/d=?+R(z%[)Jj:STV4x(btlNqE-$+jb(FR3w6C4Do66#'JvXF3_;j9= U"K8.YGj.YF0.D6os?\R'];X?[;((^>G\Jo+AoB(u9s4MmE;*^o24i8XP6?7axr])U=Uu; U"PdW8\JTpIJgN2HnpCMMz_FCX)NGwT4\eL97CxKeivNQ;DyMF56$9.SE5ivN-(?? U"?G(NO6$s[G%-SjYh.9xZIya:rIO*M;/t: U")R,*[Bh3t*4z7C+^N5NkNq-Iv<^#LfT7%BmIb&HfXd>,MLxpJ9YGQ_Jnd0.h+n, U"(0.#525o:/[ugN>[ML[/\Ec=6KWq?:o/x/5d-coUaExRs?Rb_sV;lQfRwaC4>+4 U"S8388=tFf(JDTY^4.1fWphVqKoa?p.'W/3+ZkF2pO%C>W$b?_'nM*sJ>H U"'7$s1#ut$fApF'M;to9oxB+NG:r>aMdXw)*;j*l1FW8=i9eO2?i.*EersIL>wjHC5eq3d6%$#aEf\FbbLYn,IfQp U"c75]s5qpzk#GkNPP$86AB+B#00&G3.VZN+3yQVN4n9hlz%e;CPP1cXAs>mkRViHw6;*OE3FL^\kh U"RU?D84NI4aCh,,a\G3:GxAGma<,99W,Y8,6:jRj;xsfgKYP8GK?[HaqYJzMCv#Q U"^OHB&sxJ2*Tu+Cykn9gU#/VN;/(E8u30Kc-JkloZfKMR3Cih-G:gF%O>9Z?vw%2 U"QSIg2p0;cEa(euR.UCed]Q&:jI8\.uiV;hor)toxEWdCH+6LLxsJEAw-/oUIe$C U"H'#Ax3[t4K\]pq_DRkTJcE_4,vP5 U"w#R=8[od,>yc&Y$,%n*tMN.Ho/&IA%(Yw%0FaO3(\Ir,,:Q;T?rZYLW;i7D:+L U"Pl7E%4WeXrXO5?w/GK)?9uS/Npuoqk4.F5B4X$&bK$RX;OT&Z#FoTWjHtq,WL5S U"^cYv1ZSJ\B#7890qHy*:TGZ:<6/<<-Kg^PJVew,?ZH+kl4YMAEEn1F[0eEq/*p' U"DZ+Ab?g=*Wbl#>FLga^A6\VPIQ^RP3+%a6)Nc$%Z-pEOgkbg[#XNkcJJgYcPeYhfs<_LERdt9B(7%(FtIKSUDR6].'u84]3#,O U"0)C>zZ^EtL5> U"FZ(;78;u4_cyI29M;Zs2-b)CM4#XtdrC3.0U=C&$F&,NilR)4.,>?DCx?I>pCSc U",hxe26CW9z+._SBG:C;iOQCFoBGxgL$p#d/YC^M(m4v U"$Fp3\XGN/5w,[.]gg>]#d(GUH2%o)ol(bm]\kidu2lQNGRO5cBQA%k\0Li<7dkE U":+KB')juu'C$FH_3igxKf=(aV6i'g5g^gmhmwf_eVN&S0bD1A9q,NU4EBQ4UcRi U"&VldD-K6SwN#$x1#\=F-qNf(x#X+]Vh1p,AXgyimdXa].kM&[?TO(u?QZt$RUPf U"o)cXBpkyaqney2hSpL;ltN]C^e]rQycrIBCg)QkU]#K1'mmK6Pi. U"0;=l^QE*FePQbD U"msViK*o3_W$AB8n8iEv):]):#[tJ^_b>E-w15R$4,Ol(u85k>&x&W=#&lQ7wcwh6uT8JHLgYtn0_kI?SNMtP]b=3W\C$0,/om U"0iJb1o_e?E?>&KE5P8V4A(uNXtQn?J1uc%7,C1hcpX61-PGW+e_EZy>B_TLT,uN U"Q>OA(hr$^B;bFlVa47]G?nBE=;v^HTEOJYAu>rJB/\Jd7.-QamKgjR(8^s#>0i^ U"))-adKEq\bM5=9sDji:D3igi?RWI6=i)vhEEV/lS>ogEE_-h:YCp>qd U"7FQBrPg2_+[_I:k]s,rZL0*vHkb]lhtyR$tUJ>HZZm]Gp#v'xq7JgmK8gfv$&*fneMru8=.30B*PBH#U0=1#Sr4A?uP9h0AKj U";Nh:4o,[g,iH4\u22,;fk7Vbq)dqTM$puW$G1F\aL\;F9dM\^>DQmKiT[:ndUvF U"Si0tp..'kIjR:D;Gb=MK*2:=Vu>M[:9W.VL$L,4PE0\VG/$etrB)6K)#4UThP64Zvz U"J3Ws=Dg6a6'cEXy%aNp/??iLQja8D1.D*E=F><1*bD($vZH6w6ibfr56:GR0?-v U"rqBwqS1u\nsV)pTx#-:iAk-mD8=:as>0p'^/q%XYYPCZ(3nQeAhfZ:nbSF^^%Vn U"?c3g_,\TYAKMnM/ednS6YKa9d2[#%%Ih/,5J:&cTRqbR5yCwoFFBqAUTZW'Wl?v U"xQdI6UAbr?66RnlW*eXd(8UD1z#I:UkshWpGnJlu:q4QjJB?Wz[_eGG^igNc;cv U"tecon5'fUlUnGuegSDp5=1l1e+B(G09C(m5Oh1P.r]m6NK3oKIU%J#_1i+>./^7Ht<6p&U7*Ise3C%I/C]S9B0W+tlq>gB8,y=1K U"emMqWcUsR%m1(^gT-I/<*W8$6,N7a5oh\o6xG1g)'(huR;oI),(t.i U".2_j4Uhd$T-A8es3e/D$Ko'SkQ3T8Wm0V)=d2/,y(a4;prVOI+HgCR%]0^I_YXsr(h U"JXi$$JhE+_cUFzWE&L6Kb.XX?'7&iwkI4(uteQI^Zt'#qSv[=Xs>D6FNMSDKPXP U"zIXgMX#[rf8)p/[2RfB#MaXsBH[4\_*Xg?4MYj5Us$hI#pPg-YwB&uSs]&b_k\3 U"ZqZiV]651_p:aAFkmbdR7%V,HSa4hKeFC8uEkc'7sY95K?T.Hu&4lhJ-)]5l8rQ U"*'=3)X6$=4?CD^ti)#It-oG3?#S,d9l.%WZ6n^B:/UjEQoulsCl0om=zY.M&NOXM7_h^kJij U"Y%?N_NwZ#=A,gUw9+8r-buY=_kR3*h=F U"D\suy7GS?,ZhBWS;/5Mu3LNx)2a39iL1j(qGpW_Sg6fN0DOCBCh+XrW%GFg;6br U"U.7RSV#Nn&*oqbt\0_h_>kCm1D.Z6pvU,H(4*,*rd%up()% U"9%%%#-%ErS#Jh?(.=X*7%%P1%%%/%%%%uf%xyjq%SufqLb%(a[BF1t2nyF8Oc5/ U"eElnQagqvUC1Yb=QX.T+\WFnXnp4Ndpj<<6(*X.3dN6MNBsimsvrNWNdNpVN>?( U"XXCPh6MNt6]gnQt42I=T=+Ve6T;iH0L0j+=n;[p^9n;q5]36r)x*+%<[01#55tj U"(1?QCm4.%:mTTj\j,=[ich96Z+ix630;l?l9Q5wl%dK.E&m<[j(+['gBq?1mXW* U"BOB##[V.1=OlS.W9hL&O83DO2'vVtb:b#U(I?LAmaw$i&ac(;]CpDpkYB2$TZWE U"9$k$nBC*QGI7GP-Y1[HU,K;6/,''F'_1W-&XYx)#3x&Ng)M/^ndc5^)3XQeWJwI0X3wa7ZC.Mpu.OjcU_[]MC?&SKD2C U"gOlEs2()09Z*C_S-kuo1r_SJA7O'HE.:3^%+8JC$RE,OFuiW/h3?fOp,&*rF U"6>cJ&sxCz]k>q?&twcthnVVZhH)37pco?Nk>Tf^B:r<[fs,>:r[ U"'qcH%^LpyjxACN=?9j2bcsJv6Kt)K4RIufbd/jy,Om_\C#P]=%/UN,:\R#.7t$2 U"*2:[Lj\?E?LIJ\UVaY4L4\6g%=3+[N>6Y%oK6]m6Mr1CFQjqiUSgiP/Huq145BF U"s9(_;+57C:PL4jY?ddLy>+6k[m:L?)nuGsZprT2$9CsO[%&l[:V5q#;#Oqj^&9O U"7kM(+,74C4xI-Z=6:N6CjYV/u6JXF+mFdV)bJn;98DkoTk$8K<DNQg5bgNd-eb5<+]3epqxEBrXj[trZhiNSyM(M.3zF\llx([ U":sbkg4r__Mm*C6OCn,W/$lrrn(2w*wH^hZ&HEHQrdBBAknr^tp(HIMX=L] U"ms%d,bC/lX_nvpFEvh_:uOp$csoavRW3sWni(zqpb6eoi(r6T&?U+osf;R>8OT' U"3GQOfvZP7o8vsb7vSptjuf[7^G>kjMF+hH-t7>bH#Pe[Hr#)v9>l(\_S4fkHzH; U"x%flM-^Z46,oz)iErEf_&=t:,w:2V*L2[XgC?JeYarqY&OF/ti'BH%pQGSn9?dJmg_7%C=^]C U"Y.ajEg]kRuDVfqV[eoiFc[eKwrd[i^>we=>DXqNMWLMB,Jtf[#Zbg-ODk;k2qMb U"IMyM-d_/dXVf]B$:S-HuVv^if;];n6ljK$6Fc[2hPyMWxR>rxp%Ff<=&pNfx2&S U"u)Cr,6vF#suc0T2l\a#R26/sq9uG?Ny3JCh>hfMUC*UI$,*'s#wZXTI4X%FZViK U"Pys5MU7f[QMMOgpoWMUJO]i0^LV*2RyEKH#S:XU&N[:X5X4LODuu%QOE9(ykvN_ U"_7wbV\L]zmmn&**co'_%'CyB(ve93C[pki^\J#Hya=E]?XU0Q-26jEQEONDq]hT U"^e1+&Rdu%p()9%%%%-X%Z5I[Jjrj'UD)%%%?0%%%,%%%%wlg%SufqCZepE%HV1( U"0p_ZxsJ]yv_iMoaM;scM'1O);xTn;#'br>ZPb9r>ef U"-1bVVe8-W-?kzV-+^u^M<=y+7oRCnhVcqTXC$S8XF(4i,jXHdbU6-H?>zZR7T+ZS3?0i,Dx\ U"K&p->n,xk/mS>W3V3Ida3V*fAY_G/uand%PqIw4&YJpszBPZaETwYLQ6)o6T4PJcA*5-.la8Vrl$iM U"[Em>;yN$^PvHEm;FYhacpEOn0uXF$*$pCQess,h2-:-a&c]18.Jt#vB$N[Qlh[r U":dx#80$t[9,h,ks:A9Vhq3OKQ;x)+p&2MzTM\r3RuK+M=ZaL$T\-cUmNo U"Xp^e^1\0$]f;Z^hBqYZ(*I)/D:G)#3#G^*92qfI5XH0RLTsQ,lA=B/Eg2+?e=?a U"9)L$l^E0Z&8%?,V;r$QRfv3UdSM,#Dr8R^EhjG=sYllHmu1'<'dxw#*U8VnD]*8 U"J6Ks-;m.$m>XUpirq(eLxE3lKRb\7aAb^*iV?+ER*$6mqgAq U"4r1As4*Qa#ML;zYLb0E4ohdmK*kB6s$kl9x\d9$hLEVFgvFtQnlZj:7]iGcD'f$ U"vI8eHiV$16lmlGCpaq,V$6bpb^anuH7._g&Lz6/Px2X%oC>'FmTMC[WM,a^3p(3 U"%xMfd9\DvU'dkdpqFSJHJu:onK<6OMS9dx<'8*]CTs2F]'JT(QBmpaO5MN,4Etl U"[PlABr)%vBn.DMiz\ U"Zad;4f]xpWev7c_K2y]%nE*[[rl7j\giwI*lCI6D^xri7aYk+?(p[r#p+x3iisS U":qb:AYLosN?b(]ci/3vPLJb0GAK&%m+(P?8kDsI_\5gkC?HZII\VQCBmq9WOaHv U"p1iYLuWob3nVw6TVf#5QW=-cs1Fa*dUmPE^DBdc[$EMnYHG7RIdwo^KU=i(IV1r U"^1LUto#HA\fuH^t5JP4s]0'>8ivW6wq-o]ee=*IA.:+mI4O9Nu%p&'9%%9%%%%- U"%V_r#J4g'Yfc[7%%d%h%%1%%%%%%%%%&%%E%%%%%%%%%rfp%jRuf%qSgf%xup&% U"'9%9%%%%-I%Er#4Jh?.&=X*%+%P1%%%/%%%%%%%%%&%E%%%%9%8%%u%fxyj%qSu U"f%qup&%'9%9%%%%-X%Z5I[Jjrj'UD)%%%?0%%%,%%%%%%%%%&%E#%%%>%=%%w%l U"gSu%fqup%*+%%%%%(%.(%v%7%%,A%%%%% END SUB CLOSE:IF S=49AND 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