'===========================================================================
' Subject: DOS FONT EDITOR                    Date: 11-30-97 (09:24)       
'  Author: Davey W. Taylor                    Code: QB, PDS                
'  Origin: audio.squad@mailbox.swipnet.se   Packet: DOS.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"FONT.ZIP",4^6:Z&=10913:?STRING$(50,177);
U"%up()%9%%%R-%gcSdF%&03LJ*%%%%5%%%-%%%%ym%nsSkIsyD&*8:Hlj9WW>#6f
U"M2Db100EhhJ%ON')Q3)e4UE;sWfu_1;1gu4Q1o;6#+9e2CF0E6;zg^?b9FZpLSN
U"U0K<*c:qe1AU<3f\wTQ<FjXXP2$bT6pLJX?lW5\k>WIpfIt.7tLrkfGj-TGq-.P
U"nVDhpt$?#*AA1I^Y^Xb+v2M(ef$I&a(id+B'O7ivitpuq*0]t+ADt897qHHvw$v
U"DN]Vj:X;1quO.SnF?O(=4m=(UGY-L&ZTv9qH9s^NNeaCxK#Ns7s>^3[=(R0h;f*
U"r\\.or_=.43R-:mEhmES8mMxU=,u$atnH$H[\M=F3A0[.N:#Z3NS0^=JhX.5/A/
U"8CqR-Il;iM^\Y\B;s7ogHe.v9dfZ41;,#rvA6\(z>/23(;q&>h?H0e>\kP$&O0t
U"Eo^S[>FjO/75qG3YtM8bT15j.^c]tfw&kAfbh:3%;/>ukZl-LV67ocKCMwRM$4q
U"-TDUTgHPU2x\oD#Mi7s_r4hAKsdHKA,ZT]aGLGo+l^yY\sg2?'=Q(n,S\v:=U%;
U"phU)%UaseO8OY1:[V.+z5XO=W]m^tVjw=H+UUnbB^S,#Sir.=N]etJ40Wgg09M3
U"$5[Tt-Z(4D8Yg%Dpi?sk[YrpGk&ig:p\,BsXe9<QuAs)=.N(-/HxK)6m]nKC?_B
U";=nNfAW14kfN8.s'<&Z)iG1C<e26s5Ns*j?W>c[mX$_ZSh')f]kt8n?lB[BBAe?
U"hhfnuGoSQP>_.qof8kL3L[6%)b2bDWAbQ>WaGG<_JXX85/1ZYDVaVN=Lc#R$gE6
U"ctEj&]U=CnKe_TMIIp/hN]vueOuL[k)j<-32?ks7%)brSKlWxp_rR#hpVXn:MZl
U"lc,OKBSTV'f,[V5OCNS'.LIQu;_&t)WRWs3#MWW*a8oZcLE6UFTrNda]QrT(i*R
U"79YHDZq.O/Um(CP'wCI%,esbLe.%.auwG.X,Nl1ZTeX[r*]ho&_8naKsEPr:\:a
U"w^OB*9S]IklB3R?2d-%qXs9f$OAMS5kG6?]y)[yx]6sW8T)fOF,)5<N:zXt?)Dq
U":Cx?n[c8iY+I.W7qL\a4\RAx3TM)\WEG;/n$D;8Mx6#iItK^p<')s_PNQICIcP.
U"W/ldCcmpCRrj&6Q>>x7B.GF0'^/T^cxECGP_R*ONFW?f#^Zl,,na^RBGb5N1itj
U"kXC:D1$8r0&lW;?9fL;d*rf*eG8z\oWF/Td.6?QRgXGjhtb)^7GJcLX<lATq)5P
U"e)svD_1E&ou8[b,g3ha<?oE?Oi75KYY=)o^<#.(t*24dIVg#7O2$zzdZ$lL&:Gn
U"t=<hiP6.=AJk2:Swt2VTHCKRB)GU+v#.iU5VZ&E)ka2R*;xulhp$s(';'a[\aI/
U"c>m20FK5=\<ihwr1]fHstheH?88QD9mUgAVuG=#+HwpPe%;Fnh>KthhQ^E]a\wo
U"2uC*+3p^gX,k0TZIteLvNq]MfcTTZ#zlVj]o,e,D$bev$Z39)<5uSkK,rfx6Kj>
U"82fst&n>_GtT5c,^v]rG.4w#j[+ei8*IxI=1NtslGqS?/#RTJCT-9Q7SP6]7k&g
U"pAKd9.CK?gcDTqUupmVcfpNkpZP+x/3pRHE+Pj/I6]IK?9vVfdiRK2>K0>o#o29
U"Dj^+*MLf0b%-\CdsD?,e#NnV0+T=:vJK+yIcBbpXLlQllBri;KdxQs_^+GiT.bP
U"SoF0?#3vj'v<T0luHM6WA[wht%6Ua<080RhGJLV(-+xh]he%35P/^;^nDR,>Aq9
U"ptg<NLuP%04tPMZwLa2JzRZ$T/-X'Z]c$iC;&Nup(%)9%%[%-%*CzdFvZ/#*Y%*
U"%%%%5%%0%%%%i%nlny%fqSkIsyD&WH:\%p5%-;[VJICgwYo:A%<8A%1bI_)g'VG
U"m2bn)-6]u7b2/pB=FmKebT[-,'quo.pR3(T6To>M3dD\-#FQr77FYV5-o)R9/Yt
U"]4skcEtuv]m,c:wYlZ_FEjX\hBggeEGqu<Zh(>.7E=QH+N=tNsj>hZ[:equOI,=
U"^06unts.32d4*saziMD.Gl?e7:E%(SM&IN*]0y,diwMqjXY_CgpTFg'4v(e::[-
U",Um<H5F3Mcwl2DO:kOkRnPRnlltlHx3cZwaVkyW%0em_S.f3\RJnGY1bf/-n3d\
U"b&'kd$uh=rjaC?S/vu]=<):CHO&.t9xcc?cdp6qSUB/$0jI4]Wq7CAO2q(NG-wA
U"4)P4yLs8hhS8N?+Odl,TeF&x;XPn%-mv]]7.?jal=v.c]DYQ/k'S&Nx4E*9-/QY
U"7[NL5bi5UuFxWL[\c2j+N8+9f,Di>cH4Z4Wij?,,,FGp)WJbi2>T4Jd4<CN.S)f
U"O1o19EZc:CLBODgZm7;;L?Rx*K<qe_]gW&>qfsRnu?#j9J*O5-l0-%G:G'f)j5/
U".<_A]J.8'5A5U#8&?:^&;rkSd0POpsLqyzc<nGzGf;ti$oW9[l?RnU',Ac:7$*(
U"w;5M$WTL9,IP<7CIBZVozG^-wmID,zwfapRt[?Jg%c^qtK%Aa*how$&1TG<F6,'
U"6]wh)hiMJMYfs&kpd#kupM%en5IHmB2,kmKDX[L%9_lxZrxwum+Y.QFZ8rnssTk
U"J>SI<dnQ_u\B$o$+:oK7XXLyM##ojT$:ba699.hFV,NK-Y:tV^CeLz,f=F=Jt*>
U"3nFN2tM#(.6^)[Bw4>=Ul4P?k[&#4rX6dRlnvw'3m*e'0*D5QSqRmX:adkU=-u:
U"[n/EfptX7N?mFc0Xs5NfQ=ou)tC/'&T-;?kiumd:\u66#F??Vn'uqttXU%Lb^)9
U"nD>abRHa)HRcWcxS=Ip=AA^[2NI\T*'QGM'\L+S^4PS<5lD,bh7GvhZ2'wVZ,B8
U"d*MA[Vn8fZMebYK8eEUba10I\p\cqpP0r6$Z+:<:.H,kpnUTp,q40B-YDx*>Gwd
U".Rlns7dKn'twiDfBn=Id#Y$Pwb&V-16MEImKVSRr&^-[44Y,]sOt*A]sj4diCs*
U";r2o0OhIdXb7uRHhhsvDbm%-tXq.sPXnIQi6w#p2b]et;c:n6aPdb[Qw?1Kdg$U
U"YY?oNp7;#u)XITDV1L>gdFuB3MJgA9H9UbrxNq.mV_IXm6(A^UC?PPO,2i\ed;c
U"zjElPuVsawp<I*1V2\Gpr3jBFmb\MOVUI^Xq$WuRpPPa4='A8EQHqusPp0d#r'.
U"cH[7Rm&u46kMJ-uNq7\zRQQ9FFfb-dcFh[NltI5^hM4bwnl4mHtvHnHZd(m^&B\
U"k^aKq/>t_v'ieOYmPID;SM[CQB38KMh/NeXAF,ow=_DCNBv-%b$steLHk6su^a=
U"nmj^*fASDVzixzfDZ</cS+S81ZCNWB\[\M+zDtKQnRGprHqL^dPPHt8(c7:[BZR
U"Wc+EDVS28rxl^?634d2K^a8dJe\4^=cJ:9/_$<+3spUUZj(J/M3c8oJW<(-*w5L
U"kSA^4Ah[onD:bj+m+TTVus6O,ttWd&3&1gb;>Xuib'.0l?i:]WSAW#Ia]lbo\)e
U"51[TnPaYC>gN.R4Y]swVs;GHH&d;X:sbs[DskM[(+<7DgMNC<EqiV-VHktFHh(o
U".v]nGxg*HGqiECL#>rT[HG-HDP-Fh*-V<?m-,-3c000mm#O>JF_Bj\)XPU#jxhf
U"/%T0qZZhFHK^/ckt9lV:N]3L5)vS9<?,q4%up()%9%%%R-%A<[HGGp1Qh#,%%%W
U"D%%%1%%%%ji%nykt%sySgRfx>(ofxSE=;xG16x<8SIBh\^qOqOTKo>So/hG?.Hm
U"JTFGU[Gh,1;I&uBvdha^4.RI2T9*%RDY^ctTb(nkb$IXUd&)KH)J?p&rBIC,LYH
U"S>e)sXdJt1CcfEiVRE6>kDS?HW;jTF[-i-:=)C3+0t/#2L=Jp-2x%Zuu,:gpH%o
U"JK,OkncW0k6VBHucVRma]BGrh*KL5oQ-IcVoSb6R8h0janhq%5(PQb:4v$XP7KT
U"dbL;*<x&+Sc2S.Y>RqvoLgI*Cf_SmoM,&Rl:85<lc<qu8&.7lBI=S'F)xeN#=rb
U".QD$)l5I&>g2t9_iuj7'HnQ%o''ou.D^K;_LEw\uzV<Q'b'q,uS&a[J(>CK[(my
U"o>[bPw6o#F0Mn%7VjFL*h,o'O8wDht<qU#6\*o;U6rAU542q.Az_if7eQ7Sc3$3
U"B7X7v%8fAp>NpB[jEux1g8x<l_u^QkF^wesGVbK2#\_-Ek+k^N<w9W;HiN[*b56
U"4n;i<K7ujYHS[iXe4$KW%+8foUNOm]]qQxU&3d,f^f$wdj:B2KxoZ>?Z0QH2nSV
U"VRR03<JCvlvs3aoWX'QA?9W.rV1/t\54v_el8=<r-?6^s2hI:_=wSR*134<P;<a
U"8<P#jdeBluD%-6]h(\QDQ^7gk$1A)lsm<+f73NY\-kn7O/\=L6FT*Zd&36Q-Onq
U"<.(=?e.g43x<fG'[VW(L)rEfi<Y.CPciKsb\v8_f6AqKd/-rPQ6&%'i8Azo+?g8
U"MhU&wWZ/oI7?k+0gj1\W3MT,yu)Z7';QnYQGzYPJ(ujwo5:vKoJ*JhRf*X4$%e<
U"nG?'Ng3^5QA?LaXQihL,^/_WTSkmB<q6UEEN;$q&^*przLM:vtHu;xmiph%'Xr$
U"uQ&,MTiWf/AQB,sNjw.8cTGIpal;XL8<9x+OiU4XgqGOLRVr?p?t58#lF0/uc2p
U"hkSVmE/P#bEC-PCu6u>;\CuyZ2V+'f)fh;9nr38TI^X:2B[WA6XN+C^%AyzfV4p
U",^E'[kz/LgY1Pq.Uq3&=JS0IzI87[)9?orHV?cDaHs7n[K\1h)'BRPGm3[=a#Z.
U";VD(\lBV;bL)0/OW0/wrrhSehUi/g-[vG1A.W*,]E1w],4%-*2q_BuKk]V^Ue&9
U"Xvbe)u[%g31^[k9BhYkY#Gpcl'RnxXah=WMOeitv6niF;s2.#'\s7t(Fz?[EV5h
U"5jK,'4gMD1:n]eBjJmb9Xcal+:qEW7Dv=>^pey_[Qs;lHRV^.(w:yOT\8.fFo^o
U"n\4EmtHdNOMDqCZ)P..iq9*5vl<U&AVg66I]b0Iv>p(I=<-GqPb%u7d[$Yq>hYo
U"mpq?FkWY5sKa^VH]=BKUg_:Dyz;1Rc$5BU4vZp1Dq]4WWQ:7Kg,-+JVK<V0+Lg2
U"Rl1JpDFNd4LUBe;5y9^9^]Bh_jHu#;Y+1l+2u/^:oe:[?(x6+8rHFw$-2Zubi2y
U"o8aJa*lgh6c:/mM'0**]peL*CyODw;CHK,mPk(N_Sg,5<EyQ.qw/5=agN##Kk[i
U"hKe2Ql^FC>#2=H#vj.q./j9Jex]GX_Rnqdph.-nKg,Eece(Gb/yYY0e+K&i-uT#
U"DElIGsl?S%I0<xn\Q.HyIsqf,xbveH.L(>pM1IVVm6gJn1L4x(GaPnd&cC[yx<0
U"D8+k);<2[E6OiY.IH?L8m&c*=dTe[k\:DM+P?<.Z/Iw33AO&95&Y[Q'RDL^XqmE
U"[;NXr59uThHpNht%$xR+\30JdSA^)8Wv(oGJ#ro96wKye#zv]FsfV90DdV<CV<w
U"FT%yJOjuM3bVl=kk7aMicn#EKLj']?WN>Y$,$.jMHE/f-dBi,uq&3PF*pdaZU\I
U"OT,JE3YpcjK^qFDPeS4#HQ#2Lo8ex6Gib=%;^Q/X$f^_u6%XeFi'zt&)j#N]3.e
U"j#j3B$POndOM1?m$IuE6SEe9#;hOjEkY'KGj#r$\VD]I-HCkcm#:Bfb%B0[Rz#+
U"T>C$Db?*#5JxnY3O6iA<xO&Z_TKd.x^Lk5V-zl>^524;^mx(E?]DS>z?pJhL>*g
U"VJ>.sobs4[-.'$+[bVRQ[WSu$(*j,+#$L+9>*3*TBVWYGugMYPf#+*$++T+,-c]
U"enXGkl]uZ:gbjfO7H/nD;B1E;jEYwR[826x270uTNtZBWrk\g\w4.TBfY/?hFTt
U"S*\WU&Pq/G>py>JR0Iuab1[2cv#H[CXHE\XvOE^CoQGm%tt1]K&??A8;e.GAN\R
U"F(Vk_gpEFq9?Wvu44S+7V0XzP55V1QHN\6;gkSB5t0nL[,%7]&5Ecf2gWH<xx8e
U",LaqJjl%Yi&[GAUZ-;#IxE]j8<+3-Qpftb.7e2JA?.(Dq7/ejng\a%&4OCH==Xh
U"m=#s>_j]nvc^c<DI^JF=-o:*>+fvZ_il2C/oCKS>03:GNbjaTGTr1o4/*l;2V(X
U"CRSgKUW-lx&u%p()9%%%%-%%Nb\(HC[)&4g*%%%%5%%%.%%%%kqn%umSkIsyL&*
U"F9Hl+5gjU<o0)SQDKo0R)nAHM/o&ot05%9(L.(nrA0E90aE00F1*f1=?Xk/hMO+
U"kX/:)/BQxE&nRE#ak1+JmOfesy;Nz#s7o[K\Lz,,NY,N<mpvJlduFFVfKFr:?u0
U"f3tY,P.%.gmoW=^-qU7NN]j?*Tf]ITA=0Q*#)SNd.lqKVb=O\sC;FctprZZrp0F
U"YF0pUtN6sw4YFPw25SP/d3#75*x2D(%B24YuwkjDUlo8FWlPRkh>Z,*=Zk(+=,<
U"*A[44+(g9M&&K'\AB<6yW^ol^$&CZgZiuYTaX5=0NbdEN'ORvGc)LI(,IeV>U%5
U"v(t=iBivA/>-^W2h#qQ)]39X:gR:e47q)mujS<<%INpNJXR4h<qKn-/AxoVf?C?
U"nAjueOtEn(&XRdRor%y,3o-CEcG[#vL&uvGiJAcTKql:T\R]/MP0%Gm>N$GuWJJ
U"4jqIP?9q0H[Hk%;U?2gL/N6GzIcbV>UR).QU2k%Snr+/gnw;<(t<z.vzdr&>[Ni
U"XS:Y:],ZI\5gib-e?23)YSnS6Jz4'SP^8*'hntP^i=0R&H4CaWk)^^)Qs,sGXM\
U"m6sI8c:5I6m3(o*R5C5X+8&K1:ub1>DT'l[(4.,XBe<R'a(sF??8c_]rsIK_832
U"Or7muO(d3frn2Ugn<6oaPE&)6v[)zSRdhBBQOr0uL2?<pm$T(37aAf?mNl0Z27m
U"'W>i=*fr<Ht:1N*SW,d\rV^B#^ka%AduTo#9lW3vXCE04kjw7'AUP0*OEL'/:Mn
U"=6->n%HUJHX*Npj;Ao4xa/lZB=nz[GXyQY;+xqRsD06ZHL%C*$dBi^vywe3T((h
U":&'xKr)bA6c5[p;;.m?NZSdchMlrG-J5Oto).k\c07uf._\6z*1ztwvmJ,k3g%[
U"KKez<o0m7'5i\MtrDloo$u:]MboQ9S6^umm5jin0I5P:hV#;K[gRUL](e2bGg'%
U"E=0eJGQaS0_n&q;*4om-^Qtrrw&Yc=6s4/3_TjDBAh>MhsLh+Ccx8=rN$l%k&]p
U"v3QV8c20#'D_H'TIJ<'kOrXP5(aD.Dc40ct39d,n*$uU*n*:0Wub[k9PE7p>B=5
U"4w+&Bz\MTPd)M5eDEY3s(R2X90=GS+_xRWsx<I6KoIA)vH5t9],nv2bKv-iDoNM
U"+QeL]q?Dm1YXh0$V9Pl29TdiW6MSI=u$rqdnK2tbEs)b?7Zcrm9P,G*SiDEF:5.
U"Yx\N5,oghP$lF*AZ+Cx.g;oa];t.%H&HDgRV]h&I,;.>_/)c\j\L6eYs6b/=93u
U"[?\_<kV6;Cvrr,Y1Ukt(=XJvd,m[m<H.7/4d8L<;MMxLQuif8'Uh3TLZ,g>D:T1
U"?P.wqA$kLWZF-r<d;z,liha:$+_VT9S-DrxEWHHPbZhsk0NH0,NSLtsxp<^#96w
U"#GD6e/^h]wL;ScL*t6En^fKd_T>OU$H\,$A.StZs47NWD_oPB8tcMqYW8O>rWsS
U"*-v<T0wQ.s,.PHkM.rOUXbsUrh?hl#6LJ7YaZ$>X'&k^A?XUWd-)X),=7hxgO-D
U"VeFk_8-&Xkmld3\E743EEYR[R0>,?wcScB5y<=/04Wopf1*b;M/8jD5Qr43lp'3
U"u6:[D2b]Y*iM<ttQbhshbI(IYNZdTrN7'Hp3jd/3>zV,9w'J%h?_thaPIIVq'%f
U"ihN-%%d+pnN?Vg&5bTolIW/q?H]?tn4%z\yj9eJs<%up()%9%%%m-%248hF(h&o
U"4V'.%%$)%%%-%%%%kt%sySg.fxDx2,^ie^9L\j=4mbS[Zz#P:obg(Kb[008CnqU
U"YOfo#B9&n4S5<?E6rpl&46M,Dh?gJHO^pmJ_#?k.9Z%?HTDZe\\XY=8+ilM#SZp
U"LA(Er*napI(idn?%HH]b=/a,wk=;)QZ^5]giHB1,jPoi62[sCO7^)UoQb*j[OU$
U"j.w:dT-#.h6TACWat;uT=NJoeUI[k4ITb_j82uq%8tFLO3#KZ85a<a5rbKc2fHm
U"0-ApbDV%-aP0DAapi-sa>p*p9&pkb(XHgYXw/FX'qK(uZ]lXQ$qD^/,('#$7pU6
U"aP:*]EcQjjUAPejuIngv<++H6^ilc;pDIlcP%.D1wM'MpP-&&JP:F(dcAGa']:#
U"hK.D1Pw[sSUbrb\8qBFVA;Te\cQ42RU1>dMnSiTHFzZ4e>zt8f#\19W7nHVaGD*
U"gpj]E/OV'I'ImW2LmLgs(x(^M:hQqmwyeZ*kv0?4e<1eAoV]H=*G1i>G0PcuRGS
U"V0QaUIb,50-HZIAhO2$Z/mB)tR7MQ&*vmvQ$A&0RINC](JeQ<%)20bB]6NOdJbk
U"%UQev$)]0P>4Ss8=iq]CQN0o1Ucpixpj(-iMJUs*74nKkuOSN4ouPn,Ub2VYHR&
U"';aJsILSGpT[Wn$EXXQ%<vX(UMV$ZkES^bHS2G;3cUM*F6[AUYj&D6Z\M?Dg]^W
U";#;4jEfrAah.R+?bPIh3qRk]%Sw_9?-iZdu%p()9%%%%-O%M3jFF[Nz%1C'%%%m
U"*%%%1%%%%kts%yWht%rSgf^xlxT)=je58Ll[DPuM8lWCd9Y2qU-IgSZ\]AO*i<U
U"D$6sqwg&Or1#sn2l0<'Q+TwLeh:6G*EmX$9=6)IeX8g>\(1#7TZwc)4Fc5)RDFF
U"agUi\?t&_FnF)Ep,fl;x'mR6F91-1[xli[*\&O2w[O=hD<[6k1;M7HVwgVP1M>#
U")gQM4TcpE%)mmf(6,+#-$eO4.>Fw;G8Ru;.oQj:A[&pF#5jk1WSDRm1MlZg8_MA
U"r_'v#)M==^3B&?a)^tNIHEjzB;,j*1KH.oGm?0FYGG:u5-:p]_8]wEhchN>&1(H
U"Ybb_oED_UnsY=-pS3^JNs;&[BZLXQF[S?JTqsc_a?j(D7o;Y/4bc:M7*N^SCrIU
U"xJl3FY?tK/27z1^0C#*dT>eoWZ6_Org(]dm?WMn?/'J&u(_g4R.kLsD7(9,r0V-
U"JB6vm&e3OqlmiyJn<Tqdnu#ju'QaIzF3XdvM^9v;BOxd=FO#RIG>#+EqdoFp%WD
U"uEzik&(X]<4NgG47^pi7PGP8OMats7kJajJKd]$5UZx,(']9Qr'9[\=u*X<TVVv
U"i(FFD&OKtnu.'oiQ$tz%W[bEqH%q>\=&;);YKt3=YOhD<BL<?XX+ko\ZXodJK_-
U"U>tH6'qooqsMi4.=8]<om2otV1ClFP<,X_Xive0Aev\.1x:VBUlY6?kw1p4C0k_
U"Y,zv?8_Xu%p()9%%%%-L%:mcFF+3Z*g^%%+%)%%%%.%%%%wjx%jySg#fxx&ljmB
U"og.D#.%wuTq9KpCyl$^AjomzAE%PorTD%?1%%-or4AxQm\9IvAT[Rf<]$^QMMap
U"%u)7zulUA%%&DRLtx/tT-K5r]aEuLaTaKqTqM[KM7Tae[yT+WEcMKqTcE[;Qk=o
U"2_cT&UTf,rM^^Qv2.W:u(u7emMSUiV_pP3M12?JZkH2G2%%up(%)9%%#%-%YDid
U"FZ(oCGx%*%%%%5%%.%%%%y%mnhp%SksyDL&d:']k9D<g/N=-&L.GGETP^X9*9RH
U"M]Ps5F.dVL'R4W+=V[NHL$(+/bT$Jp0E\s>+%\QR=sFpZVcO?pgbp_oh#>GTTZO
U">$Xj\hQX5H1h2aArt#2uqEtANt$?A(X+;wpH\Ac%NQR*,A,kN9KPk0<j4IU0FPt
U"i'ZCIE$skE6=n=8w?*G1:RNo6ir^k)l6jreVdwug'8O4?1'Q.)tSU:?ZLGj(3MW
U"SnNU+^[feNZZdO;hm;GDg\XexZ)SgnYV$vE9nfZ\2bGe4frQm5,#_LnsG%:%9K)
U"xZe=[jF+TXHNsM3,%-g3_$<cIhUW<_bv:Y>KYY<k-p4=B/rXEY<D#Y1lXY&ow;=
U"=GW8ifzdNc'aB]i\lV#;(%PiL%a&6(c.H'5(Y51?7?VD[h&mxu2sL:W%V8%<6gu
U"_KMKq;JL#v(urr?am$dH'sCgggo'YE+[Wu,+kYK'\+WL&E\10Sr&Qy4KVjS<U:R
U"2Wh#[K<.H?Wk7iXE4vEf=cL33P[>1f-j1/7Q)RKWoVrLaYq%j=t62$a3A#nBxJT
U"EfEEK/-'U(k0*Sn3S6z4h'S^HO2%^:A9^V.LdIFd2DtZDS75qDSSQ^Q'Zom4kUH
U"U)Q72HKhKK'NZ'WT%AqfKe%u&'PcW=Y(tm9<fgxd:UC0LESLNF(,Ig*dfJd1?(p
U"cbn4QoIk9e[$xf<EM2^:%xJd)^$_]#w?D/5z3Ur#4?df5YUM$oa7p07mkx&kMQH
U"vaOOIWuC8KTt6qI+W[x\r8^,#TSHArK(o7JmcUthn)*3#-M)ENNCTF<e7T)$gG'
U"tUej^j./]c]bR-sDXho2buT0vZnr5r0UD4#C<[fRPs3(Rx#l\DQEWtu8fD$+%No
U".JJ)M=%dX1/Eg#Pl(qai,ZL1#Co%$MPT[lW[zof8A7OD._w=sl.Dj;?^NyyB,P5
U"S%aHHln+'Mn-uiv&<M^u4J0tmMAb.17)-oRH2DK.D9IbyO,;n3R%*Wl;X$8N<?f
U"<9O<'3%SadD/O_(n&q8H>omD[u%[x:x?n?EvlWIG.1+P^acnnZvqn$8\NZ0(Q?[
U"c*HIj<9S4.<']8/O$%^S%+<a[&6_YFEchdlfPVsQI>8<sfeL&N*a-cHF/z%raZ>
U"d.:57?k%3#x8u3'NopRLLFf=T?W'D;f=^Glldwbnn_9iS-^ZSI.[XEuoc)Gah?p
U"a-slDN;MauL[IxXKhzx)rY0)vd(kZ-Z*nIF5,x(^GodPmH\N+NV5M;JbP_,laB=
U"<qTMD=Pfvu/]eK&9*l\gK86f3UnWK+)bPbt(\U??6aol-pp59.19#tK8B,jfTP[
U"&k10i8tT#6NgndnpxawYP?$3&MOiTC/q3_u6&7tsNuuuslqr4m/dbDHMpFAH1II
U"tVH?&f-[*a3u3>D=BeuqNsI,2tVT$gOEs(epE68_nFxrYdgI0I#W*KIBb'1D'L4
U"tlKijNM*iIXfuYJJxf'[hz6V#2VzrjAd#lw61)<l^'Luw7cJ3Qm#b3*Okcd^G1*
U"PqvWudH/fR3tGO'.>OFcl47R\?TRr(Kt2a^e^u3rs]*ttg..X)ZYethhJ4QtszH
U"UF:e2Le(,&HtY2X$C>F/pJA&(W_KJdVX\tuPu\L'CrTg6>Or8XKQj$D/9kOwgFt
U"QTXnXLn/oZ8ZtTSD5$6KN*Tn30#9WVG%9Ol\Avi]:jed^G>QI=IV.1/bDHVZwhD
U"YNN/8yG54fWP+tB#bQ]jl#Ostjk/.ob=?J8u%p()9%%%%-I%n'dgFg(Z&#i*%%%
U"%5%%%0%%%%ijk%fzqy%SksyDL&d:%Hl9DjAQ9J+^V50u42[C0>&H.\Z)l7CgiyZ
U":T;'=/QO6FuDW2j;F?sYBr3+0GV&;f[gEj1;ai<-#'c:5s[hFXF\dpmq;sX7p\>
U"W8hH>e6Yosk^lDDjduDDSYP=RDFlT'z&)S_ezVI7j0n)vA,Y;4VAem^+<;1^.--
U"P8_j9T$U%RnbEYi0>ZEZlh'>>='h1rxGiFG8R'dBE-(4RA[IG-kfI&,igCYuwig
U"<g$on0VjhRkjT,</FYkD6s446U0hC5D.:cW+*#2^c[Ci,GPKGH<125TKTq[sf6D
U"^>l.m/%r2mYu6b8UyW_0UFd*bzNkc+_NkO#;r'*?kMpDAhL[EI;[b+)76w?5jiU
U"(rzooA1pztCc.bQNU37[K*,+L[B/-Iu'w..CzB$zPqayx9%,0rrEb52'KM:G$6'
U"f7=S-fn8a,ceJ%6^\eBa%=#8Lw3),%u8>L/BXW+OJ7m]&td7EgtqK7>5:4c#[>-
U"2-Y>J/Kp)*5$3l&(9j[-6jU8K&)R^QFO_[G6;tBf92_:O7O:n0&c/6Xcw'0DL++
U"e(8V2[*dhW48q;rH-%wQNaCC]vXVB(IW)-(&6,C%0.)iqf%?dh*py'jHZo5VQPV
U",*BjeR-am(Fo?Z8[uL'rcdTV3OlKXlO(jGuqs2KUn<6?oDE&Z)v['^zRdh4#QyQ
U"k0L\?i4+$TN(HcAFsmZjsL27pk'>i=P*rfJft1N7l'[P\_r^##HHL]Audds#Q9W
U"uv0XE04AkwcnfDl0*5OL'.M:n=6h-n;'pUH0/Zw+=_rfvI:tubInAzQ[crR;+x\
U"qsD0s<HD15A$db3]HxwleT(Nde&'xPU)b7?65[p0;DlKsJSdcMh,oGG*>Ot2o.+
U"9Fc7uf1N\69K*fsw[uJ,kK3%[KESz<o%t7'a<pM(qZDoo$fu]M^Xo9S6Y^mcqQi
U"n0IW5:hVjnk[gh\U](MebGg%'E=0^eGQKGc_n&mqB>o=m.Qtarw,Y9c9vB[U_TU
U"]ueCCWixo46>sss]1zlGW,-JUEo2DuWrS>0kL-06Fe0.?^/M,kW7MMMJwTwfaK%
U"DM+<i0;fM,VB7eVCxQUqU5oEfesa#EzVqo+x9fs>\c->[<29?uU7r\#hu44cv.o
U"dnTd8#w/f^a$DMRlhk,jG%QwZJ))nuY9NJ9\K7dE^y*=qm<x9fDu<dt0X/tc8SZ
U"ePvd:?u=Nq];ZxO,;BP_,9lB=<cqMD=GPvu/E]K&AX2PMfC52_]oic9ATN-_/PQ
U"\d-hf?UGj=:Gu0FYJ][T)=*bQ']oZ11xLSqjM7^xf=0AKI;1+iM&7s0vld?h<H4
END SUB
SUB V2
U"hNUn8\N2du?D-hFJVlim?E0.ga+1Tx79^rchh?SutvAN'nHGB.=mR<gs/f^upI_
U"$5QdBFLur)$)?'87LkLKZ#V(/x(IW.Ej7IFxXs0fbQu$Ws,IEclfj\dl5TjS]^U
U"kLv,-X8vm>b9X8[Ddj=G.dv>nL<SLJZ<N$pTv(d:6r(vae4C6ocv1EZG\N1i*'h
U"lP[h%ZL;]>:ThDQ>eQ(XpeNFS^[hpHl+.(i0qsx88-Tr_XuTJQMuU7:rct1Il[w
U"2PU?gJU,HZ?W%jPuMia/_$ES&6YN,9,>#gKH]p*43=qkNPnM<DQw08.T%khBLEQ
U",+0RCRABnaDvW+OJRQL.nPKb?i+9Vx6l+1Zh'ItghEnSAf-dQ/R:ZG2nMoS&E3p
U"O12.qN&%up&'%9%9%%%%-%3gcdF<%&3L&J*%%%%5%%%-%%%%%%%%%%%E%%%%%%%
U"%%ym%nsSk%syup%&'9%%9%%%7-%*zedFv/6#*Y*%%%%5%%%0%%%%%%%%%%%%E%%
U"%&p*%%%inln%yfqS%ksyu%p&'9%%9%%[%-%A&<HGGKpQh#%,%%W%D%%1%%%%%%%
U"%%&%%E%%%%y0%%%jin%ykts%ySgf%xup&%'9%9%%%%-%%Nb\(HC[)&4g*%%%%5%
U"%%.%%%%%%%%%%%E[%%%h%7%%k%qnum%Sksy%up&'%9%9%%%%-%624hF0(ho4%V'
U"%%&$)%%%-%%%%%%%%%&%E%.%%'=%%%kt%sySg%fxup%&'9%%9%%%R-%M38jF[N&
U"z1C'%%%m*%%%1%%%%%%%%%&%%E%%%'(?%%%ktsy%Whtr%Sgfx%up&'%9%9%%%%-
U"%2:mcFf+3Zg&^%%%')%%%%.%%%%%%%%%&%E%7%%pA%%%wj%xjyS%gfxu%p&'9%%
U"9%%#%-%YDidFZ(oCGx%*%%%%5%%.%%%%%%%%%%%%E%%+%&B%%%ymn%hpSk%syup
U"%&'9%%9%%%#-%n'JdFg(*Z#i*%%%%5%%%0%%%%%%%%%%%%E%%%%LH%%%ijkf%zq
U"yS%ksyu%p*+%%%%%.[%.%p#&%%c%M%%%%%
END SUB
V2
CLOSE:IF S=141AND 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
