'=========================================================================== ' Subject: CHARACTER SETS LIBRARY Date: 06-22-97 (19:23) ' Author: Nigel Traves Code: QB, QBasic, PDS ' Origin: FidoNet QUIK_BAS Echo Packet: LIBRARY.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"CHARSET.ZIP",4^6:Z&=7067:?STRING$(50,177); U"%up()%9%%%7-%A]9TGTK2&DM*.%%B?%%%0%%%%hm%fwxj%ySgfOxF'*)>rk9hM^ U"cx:U:>/7Y9r6 U"GvkX%,DD^T'b4lr9^YQ?7/u%kU$2$uqiYi?9oUEO),4e&RF-u7CixG8?+s:4Jm> U"F$9sXo;59F'>WXm-9t)SX$DVE1IB8=g&un/1;ON$M/&It=Ag\S&I U".L1V,[Rr,q-3:4FoaeXpGKi6C5M$/.)/\bdpIK'p3r,vEL*pFB8G%V.rjoK4/61 U"WA&6Oud/\ev(<;:a;CiAvhL]Z,k/r>C2\U[^_g?tcWjS2]2r6Q.'3_]e%g3OPj)NQ4?+pg.)=x$W)MKwb8s?%lrVe%f,&fiBXHQPcM U"h,tXI%Xs\&U[_.tb#XzlH];jW5DOaw*]>Y91O+n=*1?gU$jm4Ngp:M_V$-'hNo8 U"v4%QT*=hvTpd^S'ilI6+zT$7oVU\dp7pYQVUdmy6o,oR:at)6&qqkD([BE_Ht2[ U"jQE#6O)i^4QML7c_ky\d?hc^1wKh429CXE+?RC6fbPMu?'^T5= U"H%DkRpcl2havv?u&C(_r_I-D U"+S[^H(/)0+vtSetQ>eoJsM.RMKbk$bIw*$X'86JlgTvve1iy_ohLSul.i]n>lFi U"zG:L8:5+U871N\\=$fxrY=5mZeT/ua36:Lf1Q^W)FU;JdUi,gKmAA\2QPyIuaRb U"f<_]wdIeZk]DZVjtb7IcJ\&8fR'0trKqc_HV?s2V%:baR8RsZ%(q):x>&/Lb/7= U"?nW&mUldMK$CAnxIv56(Z8eQJ+:sl2L_7Qag&//JDCqvWOf2JubiT[:iX$SvQs7 U"pgGE.rmUkzuNe7C(H67nv669vczHdHEK5=t U"imH'u:^^'9>tKut*F*1]T]o[bl\;4oswpo;,D*qdkAzgcgkw$fRI)(:vY[:nIPg U"NO[ri^nJ$b=[^oX--CXu;VXj(dQ?f5Rmm<8BJKS-r,-x(u%p()9%%%%-a%-]TXG U"77h)XW,%(%/J%%%/%%%%hmf%wxjy[SgnF2(<>#7\7wC4Ex05TY5to(8i)j)$qRE U"fDoo/&e2ncaiCF6v6c-Y>X:jQphNQg$nIgt U"a$FUg\>NwoZ2uVjxHl\d2\+BpUFqaKg_D$k&6VUVbuNUh;Kroz\h5H]S9&$\ U"#s9)MeF+F(C1Ctxk;2QGd$;hk_l]9+*/C%2JL)fj[f^(gZGebtRZoU_pVDd.5=% U"P^G1dt,FYWf$E'F#vEXg/Qz/X2SzAJ8G'$OD6+C4$VfT? U">f,>7^;73Ed3IV]Slt?NG]_8'; U"+n:ykADhY7+n[.M[7%+J:uLtrxu.UlbpO+B#SXx81RQ9OPpF7,_];wV=z-sIhL6epkF=Q.k#v%1X=k5)9:C+WIp* U"h*'Pne/A_WVVcqZi>+QxP/cVKJA_uOgsVFi/Pg1p&0('6[%3d%KHAH[(,W,=+M< U"6>XF.gz7$.1P*RHdt+?k]L(u6$IQ\[eX2af+EJ[-pM7&y]4CNLm>] U"/7[i:C>k1V0t+1)FZg):%>>ybSG&E84GC9sB-;Dq980OdO, U"p/2wlqs>rPeZrF7=-38LLBIi>MRF3Z0qpxj2vsN0G7K6\1A6/dqeP+YxBU%zKI- U"N5)(488OnP3JM9g3jCP6f4bKGA4t,yDOhUy-_8;]3:MReAhRF*#S)v U"ufLD>_[hs2tCo045Nn/cg]iB-qte:pY4Vx0oa+5L?W U"Wu8K:e\UU.DT$gf'q*UF1v5V2lf:9HlM+;V]0s3^I3)&76o2Tp>t8U6wV/n9SIt U"h4n?AY9m$g\+HfbQM&qI[n:yb9I=/<:iduZC*H55Ome U"t7-/9HQ%43=ymZR\L/P0p4/ U"BD(EENY*0a#w__JP4MnuZ5l>x^e=h6KNoHl6\i_PlE=0BX00oERN(uBkV U"G'JkYY,G,OgD_CeyHd8&o-karjJq^601jb4nh'.N'BH?5Z(it>fd\;fi3ksJeI- U"&EN):Q:J7oBG0oVu1-h,SrdM*BMh+%(L86[STjXo:Yl4(N>e*Kk](=274j*hW U"ovH(W7.n5W'alkU2]^Y$\/dGCYld#6W=H]^Z>6tDfZCV7#O;)Fb/VA[DJSzaVci U"UGVt;OYta8lctrZ5pjopHVB3(Y>8I?3Qi20QA=c+/uL#nAjlZfZ$&?4*o74gnjG U"sle*U[DH-hrI(.:N$tc#[=XmpSlrT_d)1^Wj7m>B1Y^k-jx'u%p()9%%%%-a%h] U"TFGwgZ(Lv)%(%C:%%%1%%%%yjx%yxjy%xSgfOx.gN)Bj[=Z#xplWXRCa$R=7(Xr U"STi+Y2>5ak/&#pKfd3\=lA24GCr&*R9,jymCdI$X,A#o=9#Zz7SdY.B[1p#0'*yvh U"#O&qcu5_\#Yc%f-9)l,NFfv>G)Y-73fE*HZx,*&Cda8q*$4To5q,fi\29g63sxs U"_kLviAuE5eeW%kicUKS;SM]&]6s1?nS2?S+Dk70ZqCV[cQ$/Ev(\pMq<&/;K]ej U"Yl8BOF&MX.A#nESe7wfnqLUhMJDJs]xr4Q88KL'xfn=O>jQSYMlentRE;-,Cj^FSG#scCpD7eKz5,$O0KqG2q].JKoenJ&ooj],r U"N-/B*Agt2j-Snl'=O&lauT=0=>EkR?1w4YaUf]?:tWuVg\[Y#q#3Z/5#%W5gh3/I^*u#K)+^v,1A5]r##1 U"?fRRK49k20CU.Z64-d;T;+miDo\NSvJ,v<2:^I3Lv&18ExS\'rrmzS)9Z1h1,dq U"of:D%6h.L#XzZuGnHl5lnur-g3LtXv<_H;%Kc^z5k^^jifK/+H.,rqpN\?aY2Y8 U"P3Fzl/z+w2Y_gNhp2oC$Yl7h]%aBi:R(NSb'M)()^bH\Z%-gERVC,VojwQdYAQG U"ct=JVmQa0:0GickhNZCY2mAriSURj=pl0($U*&A4Oe9fzoWGqOH<$%'c,Jt'K_J U",Fc\;kwDigFPacHJ\s8UmG]i:bC0WG;iknD/\x?#2kXPZa$43$+pgbJvI3bH,xo U"ss.U;&KM_UTw;p%fl^u4AmdRhSZ+qPZ2aD,#Qd^Y7CAx0.<\t;1nwmzT?;(R))6[((N#^FL1Lf_V1E*D+rs7Y$p)Y4hsi-o5NYHh2?:r&s)Af96oT%up()%9%%%.-%b]9TG^X,gKw-.%%%<%%%/%%%%wj%firj.Sy' U"yVL'X^HT16MU\oxPj^-W60iSIf.x9L^b;/nHa4T$UPu16)=?Reo\spwduqwsGI4 U"wq;o#+g)k$A>7Er5]k$JZx#<6]C)=zh.4a5NkfLfJDAtRKZngfxvmDqE[gg5RA& U"DYJ4oG)Lf'q&Z-[lZL5&H?8D.kc/\sF/1*1\o,-oSDtTKPWcR;b&S(;+f.U[2Q> U"D2B54DxfY+^xN%,RjMk&)Th-FlcQEO:N];Zm6F&V*DgY#^tVyTWUiaD\HGDMOmC U"3OCqIF+;\9NBTJ5^.I(jij=Q6fRu,'VEOW]';,hVE-p;Gf/KjEBTP%k1K$q4iZ2 U"g3.w$ULY7ZS\Hf>B#5#4u#D_B\i,s7(oJ/wHBY+jQUN2R?N\I<7On.oN>Mqq\(Rd\mudw6n)q'>c6*$Z1u:ZWWAM/ouJAZY^'af<*]E)$gStDN( U"g'cyVZ9*0PucdKWJ*mi6>9<33<^+YCVNZV:15Z#gRxhW^;9r'Tj^Roq=L;90>fn U"MDeaH]7<^j*[JX2al-dL(kqg-J5p-FE\*9uU;L??k,cb8ATbQi]3ODl$I+nclAF U"&BM((NDmO$Li)nsp2=K#l>REdU-y=\OmhHH*gPLMFKRo*h76/M*T60h]'Nt2k:H U"d>sYvMma(b[wdNnWAYjRC?xJ8g=Oq-keQoLWFOu_7BuYJWJQl$)ei-b7d*-tf%+ U"^Z[/uKjCw3Q1o8h4#T6i0)O5fvnYNtLA4Z_;vl;AjJWtpXqQLR=%bRDm.&g$FP( U"unRq[CL^4bbs(5gH5U\JPaJ_9s)vFGmIfW&zy<7O7jp'sC-1GSowbu]Vb5>q%&;aJhT_% U"rYLGGKsxmD#$+x/SjTHPdx2#ERIOyaZ%:XZ+2/$t+ZMpCeE>LG)CT:;f:.mn&R] U"k3w:YY1z$Q4Ddf47SI\Ie8_SN]AGYjP0n2&<]3+,[>ug^[FRDng75^NB,$Q?PU\ U"Gf_-8Fr-okv>hQUmprV=Q/H#-h^12KT[O7)QOwT U"VJhihBfM2a?c'c/yhRbtZspGrD+)Xu(NMYjX9,_M]Z-,2QK=B%2Hr2WB/0dsU'DjQmTTB-[P]jgb;cF;ZN< U"WeMb^/=Z=TkOdFBwpJ=AO_oT:)U)8ukTjBFjLMYHOVmPmUxEv4jY*lnDc)M+nhd U"6uxM>ECN_]^3jihi)K:fAbPZ>B,L[O$FX?t]?p^OGfq\Q+\7W03M*/#LM[tM+eT;b9.yZKWZe1boum,;.$FAhteOYEaItK929h)5iI]Eg,lvWiZly+B5q'PeFA7a(]s'It\Td[T U"mTu#*n+EHcvZYbh_VnPlXA)kW4&\ll49jTQYL+&F()FnG9RQ[>'fu6?v*g?Zoc_ U"?Gkl\5UqQp.o516YQRR#5-[heE'UXW^LF]FL.3W629yDvEHGKd)X7+f706[XN6( U"ps;WGJW$d$+Hg?EVt]w*60(btzPT'^gw_I+0lwP# U"QE+T0c]=c,7%AjTWd%:GZ?08-X[2SVC*j?3j==uoA'b^\wOtL4GOx#8,4f_(U_G U"oy0qNS:d6'=bUfw^DEI\VuDABz.2^x]90hAq'07OV?Cfw[r^61i[5tzsRwrPlWJ U").ns%<)%x[C$oT]'x,up%&'9%%9%%%7-%A]9TGTK2&DM*.%%B?%%%0%%%%%%%%% U"&%%E%%%%%%%%%hmfw%xjyS%gfxu%p&'9%%9%%[%-%-a]TG7N7hXW#,%%/%J%%/% U"%%%%%%%%&%%E%%(%v*%%%hmf%wxjy%Sgnu%p&'9%%9%%[%-%ha]TGwCgZLv#)%% U"C%:%%1%%%%%%%%%&%%E%%(%&2%%%yjx%yxjy%xSgf%xup&%'9%9%%%%-^%b]TFG U"^Xg'Kw-%(%%<%%%/%%%%%%%%%&%E%%%%M%7%%w%jfir#jSy'%yup*%+%%%%%)%) U"+%\%%(%q?%%%%% END SUB CLOSE:IF S=175AND 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