'===========================================================================
' 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:>/7Y<Rsi,,<P&eUCL.m[se9-sM<W(F5Z%?h/iY,pPF;5O2V%]]#zuZ>9r6
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<DeX5B)'5S67\-&UxUHaW^
U"&EQ]J;&REXfNMpathBshOEc8rzk9Gz%G9YIdSp?\2YKfr,tWYII>/&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?tcWj<R%D.ao1<cvA.B?:2o27
U"/9e^p*lllEl]E9r[PHP'G1O'CkscO8?*rWqtQ&9s[_G]fA5SCN56oNO/suo;S+L
U"MP]3odJO8?p%6u]rMqqON_d#];5t*rwSxAYidlkH06iuQfdvQ(X4+U)WINL6y0=
U".2<>S2]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+?RC6<m*&I/8=g]U8'Q=HguBEVm[a
U"-Chl/UH,T8#XKdceZ?h'[.D0u5-)OlD/lY?+Tf5Q%#%01&+iXNhhkZcG[3/ze(;
U"p(*.Oazu\0;xa#jXyw\'/z?W13dJU*JR[96u&:SGzeJ3N+ti#I#+y$:?;9h5K^0
U"1i$tGKDzIz<W?[M)^e4v2UCZi:n<QJ?_D8-a<Ua__*/:hVyd=aeh01N;W%&jQf]
U"#*I=5M^4WBUU^v-zcR0gJJWQ0wo)aZCNnnWSDDYIL-.baLj+s%4'%J[)fDAg(nS
U"B=woNQ8i;AC_pABL;\#B_Eijglyg*]*2t_jCOf5)90Z_eYB69jr9Y+'^.e*Nj,D
U"G,X<iSbkK=><i%\yI\gj^/XjHqS_vbI.Flc;sM1cqD_]2Lt%QY,>fbPMu?'^T5=
U"<hFsfqq&B0=8Yqhl%a+96m&IU)UGpMhsG,d3tT]lLGX'L*scUOD*BT+^SKUf8&o
U"\zxst4j;W$UpdB5.jo9Y?#5s'YlKhf+o/.kmI1HDC3b);keje0Cfr/Hk:[iq6W=
U"EJ7s9/JJu:6K]#oI'C*CJqA*fh(G+ZQr9Us[Ai>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(H67nv669vczHdH<I*1;CD9I+Nc&xt&LPHdf=^Ia1v>EK5=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/&e2nc<YOtg<f]-il1]U]J)vMLm^IpNE+:LacVvIf>a<ZXXXHE_clB*uNtj
U"mfjTu+q09*i'18On&Ma[8RPE11ulrFppWMBHhu>iCF6v6c-Y>X:jQphNQg$nIgt
U"a$FUg\>NwoZ2uVjxHl\d2\+BpUFq<d>aKg_D$k&6VUVbuNUh;Kroz\h5H]S9&$\
U"#s9)MeF+F(C1Ctxk;2QGd$;hk_l]9+*/C%2JL)fj[f^(gZGebtRZoU_pVDd.5=%
U"P<d8U4QTJ+N2lou9vU>^G1dt,FYWf$E'F#vEXg/Qz/X2SzAJ8G'$OD6+C4$VfT?
U">f,>7^;7<usP;(i$g<5ug?5472A7zZr%EORfDN4%'K-+RIIo)ciO_W^-x'KU3Gg
U"Ewk-7oB7<$p8.k0'Q?$LRl?0.1eEvh;BrXv,^l]\3wQk>3Ed3IV]Slt?NG]_8';
U"+n:ykADhY7+n[.M[7%+J:uLtrxu.UlbpO+B#S<t-*)gm8g5G_(P+81$%q/Y#+oW
U"*RN*2zrFg&86.Uy?W_OEc4m6XZ/iw'h[MX4%[OuXD\dA'uEP<aT(Et6xM^w%1E+
U"tAf.E]eI3I5=jT&oDtlLO8ukn/g*^OEC=j0oX9kl]TVF2Au2Ad<'Bq6-xpt)3.u
U"W(B7-erkhYSo;\-^ttj03PSC'dKx'eokA&_CnF3;aXp0/EU5sxY=AZf#)0TO[uN
U"J(]fC%Q\yw5kd&fV8CDFPA4ZX3[GviRg\5s.MTpju,4)iLt-<nsjN\?_j<'v/AA
U"Pw5.lhu=[Mm>Xx81RQ9OPpF7,_];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]4CN<XVQ*Tc+(>Lm>]
U"/7[i:C>k1V0<x1+F#6(gbJl:/m>t+1)FZg):%>>ybSG&E84GC9sB-;Dq980OdO,
U"p/2wlqs>rPeZrF7=-38LLBIi>MRF3Z0qpxj2vsN0G7K6\1A6/dqeP+YxBU%zKI-
U"N5)(4<PZJt\n4_HSQ[XH't#wmJc9]nV\1Y*?%o^\ToKSW38u+QsI?WF7NP8\hXn
U"S78hE?B&qF4Lo6,5oY:t+t,8xxSz/4Q>88OnP3J<u:)E)^D<$jOWN2BYC'hhJ*f
U"c'K8F&a82B)#rkf/9v7Df:lhRGP:F6i0r9ek*sMDxFn,kuThjvUxahFd(6hYz,W
U"'=I1LW)sI:]P[pNqJDi+T?RGxZ'D)b\1M+B5L%A[Y%gdM%7a;I-L9Vxu28YlgD^
U",it\KMmBrF+6PlH*YIuCvI=\_XK+^*AfAf'r,Q*mBHX9$DPcA$:X:[x+x4(,q5E
U"4>M9g3<vB:<^9,Q&kLeVYnL2>jCP6f4bKGA4t,yDOhUy-_8;]3:MReAhRF*#S)v
U"u<?+VuE+pQ&?Rs1=PN1m\>fLD>_[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&<du(34vUkZG:V,KRstsQ.2CK2\C;I/UmEJqQV6l-b9tki
U"Ii%Mrbvf?qV+Qk39M]L->qI[n:yb9I=/<:i<wS=/:EbgsC6fL;%>duZC*H55Ome
U"t7-/9HQ%43=<UyqSCr6MPgI(<0&h8cfkc=Bgnb=p_RJb<\IVhbVil-EwGJe^%L4
U"71Q<bR\R0A7E]b\wN&xJS:vDO=YL'OP6ah9cAlRN_9IK<LuYpB$WKv2**Akb2WV
U"^Y&^]JIV7Bb$nDKEyMurf*)%A^*QECdfJ?2WP\k,'^VI\*7KrJ^9PZwAZEcvRYb
U"<&e5*=rI5N#oZ?c]/b]eJ3%KW<Zs0JStL?bkojwMAljR0]aTe5>ymZR\L/P0p4/
U"BD(EENY*0a#w__JP4MnuZ5<B*$O>l>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+%(L8<F*r<v9QZXAUj73AQt:0?bznAU(105
U",,tO_FTg)[Gwf5IXc]ciE4Mo*lf=Fg1lzY>6[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\=lA2<Z1\9iiD-Pr6a6Q+n;dedmWFVNkV2Z6h$HCVL$YP
U"K?&A\$:\.H:f2k5]=.sTMF0r-GzPq7%1_H-]?\_1X2;-^V&oR1(l_(_22ka4J/5
U"WK%b+_dG/i(5/#EZ(;Hd>4GCr&*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>jQSYMlentR<X7kNW;v
U"hMACr$d.oG&3A$2mO>E;-,Cj^FSG#scCpD7eKz5,$O0KqG2q].JKoenJ&ooj],r
U"N-/B*Agt2j-Snl'=O&lauT=0=>EkR?1w4Y<BA8<YvwIILGs=VYuNY,*6vso]%(L
U"=JkFJh1e4r>aUf]?:tWuVg\[Y#q#3Z/5#%W5gh3/I^*<JvQ0cqa;BSUpZL<o8W4
U":2SwRUao9.I.S[1S\_S-=\EeJS,_IkJWScI5#J?o7;'X/If-zXg4oa=JWSeIE#J
U"?n7:yXgniamg__e6d8sa2Av)K39V%3jJOPf,.x513^j[:4OJ;]37sjJSdIS=JSb
U"$I-J(cb.g__DEq]qDPC^gAYB'Z4'.C#p=fK7Dk:Q1q&/V.*B?nYhUa0Mb-P)%We
U"<%'3/U))Op'q1&/y%.M%o/K))OtF'3'o/z';&)/z%I^%_/a1.Om/fa0O7%/=-%N
U"32tO%H%Az^+&%1+O98%Am/=YK$U;dop,+a#3h.:4V+X'iXU=6j+A.Z'c9K%m_hx
U"VOX&-R&RVQmA/AT1R5k27#yl:2]X#7;RZ&+'Cgc]GqMV\_>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]<EWdV;3cX;N_F;HjGPrJKk5smPRkL9/j,S\E2j
U"<J5:7SHoHI'L&o:0]Qrr^IT]>%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;1<q$XfL<hbkzE
U"cG>nwmzT?;(R))6[((N#^FL1Lf_V1E*D+rs7Y$p)Y4hsi-o5NYHh2?:r&s)Af<G
U"FmrhVe#m,>96oT%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\<N
U"g/*d4[AI8_+q97:u8cK649HmiD9T6N-OUlN+EwGlsBhJquyF=hU0hopsv\hMt%a
U"9S+fE_W&l$Gj9^/9V6xxGl,$Ke=&Lr#z,G8)))uR/]?Xi)vU%g^Ahq5a).J&V'b
U"wsUqNao=ls[a>(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<?jY[
U"/L11yK=8t5oXEosk4h&Lh=zF=xDPSfKN-Ac8+Rr[$CeW6UXRw2uEc'xxagg&33=
U"dCBiqSXgtkLja5Gp)^*D%55.hNqVD)5EeU2QZJ.;]3lfIlc:-Q3#w_E]#a[1uv$
U"4GS1Ad^crIdx/]?^5[1)[ZN1/7noF<+K$Ioh-yNO)VY\fS4f?YCBq\Dmyp$Nc:4
U"(q.z'3=g/R;FV5wUjX+%M?qc+lJ?<aqxS-(X94]=cF=q-O;\hI:>>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<B'/.8^'*w#N]wJ7X'-*?7epEhw<YKM[D]=9I
U"'Vpwqoebmg72g3?AsY5NP\G[hh^p?/Vh*$.L[mAtm0s23:CKWMkPAzOtyn'8hcS
U"Nl_tbYZK/[&_E+)*R^Xh3SHdW2Tji,[4h&^,#*4Zw^Qs.D#GN>^12KT[O7)QOwT
U"VJhihBfM2a?c'c/yhRbtZspGrD<P9Xm.B5W'a1W_L9cHGLU3$0c^tIF#1.eqDl5
U"['G8B':\SgYb&eKMRZZ8zBUrIqW'x%=F$ArEqHG?enhOI^1&rIHYl-VD.Ut?N^$
U"PStF0\G6NcFB>+)Xu(NMYjX9,_M]Z-,2QK=<o+_]]7Vr45YKX^V6Kee-agn0ivZ
U"]s>B%2Hr2WB/0dsU'DjQmTTB-[P]jg<N=a?DD?Fg1RUH0A94BnVYK#>b;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^OG<FAlFXxU3GuMuJFW1eaJuk
U"bo$hi,VMr2pR=PlCB1(0-)F:1/f$F,wK-q%d2pbwz)Zr\V/Qj\Cdh34_O9-puG6
U"carobF%,Itx&*gRI<F;P5PG+*+NK,OgpYN3b_h3FR.xCL<BDT5ff_d%zRGTmKFS
U"cq-\4Ibc\x*/;V5u6WjNhX>fq\Q+\7W03M*/#LM[tM+eT;b9.yZKWZe1boum,<Y
U"&Wp\#KnBCYfBf41c2h<e5$-K9tY31Dwa1\kl.uKi$lHbV5$ABV8s<QfX8kuooP]
U"w:^BKP1Df\aK]c.s4C09ZpmkLA-^.([5n[u<)c2/kiyjEdKT.+=K%a^W_f91(N=
U"m2.4KO>;.$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<tBWpc/fKWTnu?blHJ3p6[FHnY1O:
U"#4qp-#ea%WZhXm3rMfUkG#t4JB1C/X8+$^_MizNgY_,V6nrN(K,T\b]^>+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
