'===========================================================================
' Subject: ENCODE BINARY -> BASIC             Date: 05-26-98 (17:00)       
'  Author: Leandro Pardini                    Code: QB, QBasic, PDS        
'  Origin: lpardini@cefex.com               Packet: BINARY.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"ENCODE.ZIP",4^6:Z&=9432:?STRING$(50,177);
U"%up()%9%'%I-%g-B:Ifu3bj-?#%%R;%%%/%%%%js%htij%SgfxKfb<Bf[]bXpxd
U"xI$<4K)n#WQ5ASIX*$#Zn1^J_(+sTHGOAc(/#k\*B/uBDOlY.(gnMk)a<'B[)Wq
U"hzti%u$&pQV&%zh*e)VZSvH>uoRVRt>R'^sd<&fm5EgM&j6DgU4)F#o(2p7=\p&
U"*aaal^ox&^\rU*wEPEfNnVa*kCFYn;cNQjAUo&qge=E_;L'OQ%0J=IeZ3:AIluD
U"w/hQ:kvFBo(NP6^G/s5+[*FAp-mZ*oVFAi:>F=p*Nb3D3ufGUl1k^?/\I[Pu-h_
U"o)?H0H$-RVb2CQRKAlZSI;j?W7:u3bMo\T3:+EA=Ha:2#,;ke%[pCbxq*o:FgWS
U"T^RcH&jK^aOx]^w]iRCueFi=vS'%=f--=JkeReL)sF3UJM=-YIQM+qL.a42e*)^
U"e)XHoV4:*W8#?<m\Iw&[ZJ?906E6b#(j*Gu5,;vd%CLHJlD0Fs-EA&lfSpvCe_;
U"4FJ)bfWDRkElh*=JR7IV;Z.ZCi/MH05:n3evZ3\d%u9sV6aC-L6KZEO4,OKeY&8
U"5DR$S8K[4>UIc-+mqQdde)ODkE/8=Q%$#$Wb,DH0&#V)O:R-;>/cR+;=2(s%D#'
U"gg?>22E?FiX>jv6^2ImdTWL0+\dN#)VGUI-pU7:Ar;E$YAaledYv^-^=;f]R>S7
U"^+/]:1bK^%8HTGQc:h^Xkof;2$/%u;0=jN#A$Cp:sOCN[+moda#m_GNATXJ%(cO
U"8DLU6wYkPdWJ52:Cy964qg+c$uW6N.S-fr5>X#M6oM(G3Xpo:FO<=^+Folw$jq:
U"b^9YX;hrlgRY0i'Sl-15n'o<%0'd#/&bJP>/&P2<D3EWo+1qrpLR9Umf1fW3<4q
U"<X$tFeYgg1tU6*n+'q0\zhEWj*X*.i(xj#_p;e6fI]X<VW3CKR*4:-cVdl_,[qm
U"NFvo\4cxSCT0c]'kR9r5*2pZ24v8>b>nKs?ANMaM#BCCY&vYRyg1gHD\j5u]*:A
U"cL:fW\N-evpq&z(D4[dGJsohuZ06Xx?j58V(4A[([?gDTY>r\fmjud>P(OD8McR
U".5DlfrC+jVXmK1%/ULFAi8]%:5QhR4hM72dgTu.uHsnnkn>d(I/o:I_6T%O;\Vs
U"h5ZgfFljJuV]RlK(CR3Tj6-#;C>64;*n#A(ioOo*4oLVTv?_A=Nm4qoCHeTSPLG
U"NdE?%ISPexu&DiIC6\BIl3ZQRC#7Er0sD^YfgPhE6,T=4;pule[SI4A<GW9c2GZ
U"M7Up^uH6:=%a\lNcc\$hs6$e[nd<uwn-(sn4,v9$cwt9]?nvE/4nTBh*XB'Mp[v
U"ZKGAKu,e:kUD4ULZpJ>>_]k>\Z%87bJK5)Q+#NxCMN5nPx6i*5f:MK^F8r)+]pp
U"GUh2ToT]h;Qr1:F>DE2#WjxHj.e&D;(a.erftX*-v6qtFL]N;U8K<APpc+yK8#X
U"C163^0h(R#q<e_-=NTFeNQ^T=gd>=)j&MRO7fHj,X,9UT)9d8pbR9*;9du9Pxn_
U"::QJIE&e/bN>_XsD*uBXW:w%Zb\xuUj&#'OW1b_)TOlFqxb1bVadM/[YH[q*3e#
U"*puI-t'rgGlwWGK>kmS--Lf2K9Iau,Pe0VR]j)Kw5a96]iMrQ'0^)'W==kC)>CY
U"r0?S>HuX+QhI\=-&CUNWcJ>p^QxS)DL95HG[cg#;]aY,;qQH+Q6e%fgW2?Be6w_
U"D4^12U[\>2MQ9h2P7(&Dx&:W/IzPeWO?GHJ.Y[YU+I6cV<L=v_8Tqfq'Pd2cpD5
U"fe?tRZ%WqCSGRrvj=T2oylC-1YEn+.=]Y2:5X3^FK9+(=AF39A\&UH]DgsU?f/M
U"XLDoo$]O&)_F5lXpK16,UhhJK[]L<Hi:'E2V>nY%=D5MF63]jL<$B$tE6Z/CN<i
U")1t]SXeT:-X'9A;R/v-msh+#CgSJl6&qQCR+fPeTRv7fZrJ-jPk58'q/?vO(eXg
U"x-B4XUNAnIM[obC'8XQ#wj[iH\nEU7V5ur7nE$r;W6bqu>.+xG-,<P7F&WaAl'4
U"u(ds8PZPq$i\_dGo7.P/2bVe]Fe'n%2-AgOz;&o'd:21#)RAK#QI(Vjp+OqToRU
U"I>=14X'5W,u:=^Fv<(JMBI3/O+i-IR_fa47/lT_GEC,x^UtNLRq?m3IDMEZ[^%W
U"qSM(&u_(-(Dmw15sP40qKHDkZMw)+os^\1Lci+)i3JV95+^w[)=6;?0:tmVF-9H
U")hMqVE?0G[MZ(8+N=_EFuSvZQn3WQV92?Z15%Yb,.S3gb%ABBfiZ;F#,I;Sx;[5
U"8Ti8NZOj8^bxUl*gD&PhW>PAN&uUI)#uCf%Ji<e)/hb5h/4L$5N;o_Hjr+W:>T&
U"v]6D4FKo(?6'M*KeAEo+\a&sF5-4TWmkI5&jN/6DxZ^774$_6sRZcK1#+,tRG2B
U"jLtEFM?4anr1[jjqeF=NvcW99A^])bP;5Z-m*Dsjh1Vy2?_L=3E4v,.m7),1:bQ
U"Uk=)qHrxuu,+:#tdhPm\*_h06.<M;RTDDPd>MB;?MVad\*1XkA$;w;tDjG4L:W-
U"<oV<PBo$?vHXa4(0nwr;q>;2H2t?eY/C+TwrW//%O>;WpXqqS?.AxAyA.g^d.8$
U"CmZDkl:W\fTdThRg&S_mWI$do_<EWST(-QcN<K_dfEBq71*oDU'P]Mxk_2:yhjE
U"'xlxr$&#hof:.J/:a.)NK*,mZ&?f$&83e\VEFo#nT-p1f5.rfXLv/5i=Ebpp]j1
U"=V)a[+fQXKP_*^[c12z[;bc-;PAY5qL:g+:zJ$r?V<>I^ij(6%KqOM03Ow&-^My
U"zDRfODvc,zno12?Ka5_/<LdSK)^\)sc23eo%VE=bsX*K]f2Z69K9/0N_TNYs0OV
U"L^J3XgC<U(+[R/\;(xZ0>)%INLHv.?/XGERb;SDnBGTK76wB9s?$lE<^V.M-)sV
U"()6RV$;AQob*#Jlb3MJ$q-OPL=W]6jVH0a=^eT4JsqOf&i>>meN:Zpq>ULWUj<4
U"nPzP2[+<p<-eep9)^CMiv&xMsYoCL\ouM&=%MnA*AkSyYH$^$hpWKDOvCV6e,u%
U"_.WkeD=(nTeo=Wv>>-i2XJ's&9csB/U6MEeYB%_4S*hOzpr?7=?GIUm[q<\2N;z
U"hBwQ*+[ss?-3JOmHo:/Tpp2db$z7JWxxu>6SU6O6wf1R2JBGpPfksZEcddN+o+7
U"C_]]S)8JXwY/-\-qBhO1_9quDEuf+\S;Jtt;&cS-Ufok)E6uE2D0uCvPESrGpG5
U"VYQ4tsa6hSup#det-3(j-_$+xL,>9N^j-dg3SMNEF;F[j1MsVxQTKV>jLK,bpge
U"28;7qu18RFS^I-WV?^r>G[#&]av:^XJ'&AXc[$AO)-%pAd[#tOa;44]6=RWE[XY
U"(]$nEe_/XU$#4Wc=^<BLh2aYqqWXL,j5Qhj(Hb2)VDofW<D-H&**EZ.zN?^D(Uk
U"0KX*V&]\B:fiV*H9vl-Qt[pLH)BYYvwQc;Tv$-CtM2<dLb47EEWtL<6#rN#=Mex
U"&/X.O(9-Fg4[J>Lc<]NJOr6arJkdrER[N1G$wcHiXZ_,PG#]1xh$=PJ:5=4z(md
U"Ywe9tcghBp(9:bJZD%*2/;cxv\w=SlXLcqt-x5k[nTcq$Pw%^QiINR+B\lMoYoi
U"W5u6T&&&-P?RJ8+.&ZWUyACsusGRIYs/O(TNu]vQ&q5i36]#VtuqF$tI/WFMLNW
U"$+t6hOPGeOv:3GaunY[q&BXXwottfXJCA?^X.+fncMLU9r$?m_%IsyD'NN#HtMp
U"c.4mDT0(BdW(I\4Z,shF?/AF1ak(21o9ydJ+yNb9'J(;+CkZ5?wiX4K:lNDKWs.
U"a?JxY)mY2>t'4cV83_[7GybLatWc[b&dGoRB'8>4-POdmXk(Z/-neP#URFr#Thw
U"-pkNV1Idu<Rt-1=)a-vBQa5VD_fA[m5I[c6%-2(YOfF(].RLIS>q:qNvV2mgf9r
U"Zvhsf)ZK]0)adBsFr7DHZniA,I>sx$mx9w:a6:oNG.TCuF([aR%,wwpA^?R2N/k
U"*f3z;pa;$umCJ9=6S3,YI7F06^9CudlY=5H/6kI[HW#l<(;.EhFP)Kh$=^77YZ*
U",;p&F?$,grE3\c$2-XIV?5B)cW$F?=vp.pBE/?gAZcrATB)ce+3PV+Bg#aAd,x_
U"r1EBLFbLLMG_m3,2YvTX6uC2fdc]qm+_Fn8S9Z&#Vqhm>Lpzh)$2\dC<#)&ASdY
U"^a1-Ze\)'H\'Gz\4lYQJ#UhujWKNg7dY_%z-%)sX8k])FZ:Oo=2R^bEz%[_;Gv5
U"]O=G=q2E1D/z]Ugt(VL9H=jWIK=3E^<jv]';0bM.DV.B[4M7>F\];<)=9^3d0UH
U"pQgVjSt*egAu#BuA\yBBi'Yc9<aJP8q/?v8\(Y7P*1LiGH98u9sk-S125#V)Pr=
U"dk3'lCV;h?I6r0O92'2ePWA>R>K.ZfYWi'+u\\BU_7T:p0Du5PVlc732T.9jBJF
U"[y1[lIk:nqHl-)a&x5o>1$cB'mKE>r>&-)O<k%R0Iu_vb:;(>A47%X71hyetocJ
U"GDQNQkWFC;&V[6bRj^c=sN(M&#Tjw>LFrOcn+jvVS+T*Z^i_=;g1H+6U9Bnr-&i
U"0fT*M$_:*48'>IZ[sOC[P#nqDGJf;sIY?O\C\7h6BO3\ka'-WG-J[qft/jTPW'1
U"#<jhn#Iqg7CCd5GajMxOBpmtw?[87wu20bao*u\LK>dqTsdsa?_'#quOQf0lsXy
U"Sxi,ww4LDyGDlE0s7[c?$7jdgUq&c$(*NV4hK_G'nWu=)VVB4sgBqp[FR#?v9rA
U"Cgi'ZO,Q/,369(2o$I]27.pXLc-#XTsLLIlAnV44CKQ+(Y+Y/zQcVlC_S>9(]R1
U";a.*wqIin9+PY)WW5%'VjY/ke46%'kA]6pZqzOj2XV$c#.MuHw^iM&7-7HN\Yl1
U"oY]6KLNvXCiC_L]/8ybBMMNXOs6PCUSNb0P'\7;\m<j#po[cw?Nnq'3?vqU+r%F
U"lp*M1I94^%m^q,2(&oXs8#^v^9AhWl&/bvYHZeR1v>,&[n[\yn.:$a=2=b>Zc'3
U"01bghsyol%V)P6,v$^HbkiOUS[FB)Yf-8^.e7$,C,ZCHo(Lu'M^+v5Y*hH1nSil
U"eVuq(a?m+\IiG)s+%J^9F\*mlpXE/CB1kI+is=oS^<i7)Xr68$pjtEA;NG.>QbT
U"($YM+CY$mb<%k76=%1w]iq4i*6bKH9jlR3Yt)mZh$q[Rr6\mq[0>L:uW0%4Wpr)
U"2lRW+VxNolwKivNx^%S0*unF+;S0;Q+.J[u2JJXDB:d$F>U6J/M<13>+a2a1Pb6
U"bAUC03DR_aT+\W8.B7T0XL$Qc;..2mZ>GMYOiGcG.MBlq,%J02C:&Qmp,V>L]K9
U"kmHKemuekMZI3kk'])#7'6gHiVJ3AGjc/i5\*>LxU)Y4N.MZD&\2h>9A#ABb-CY
U"jM:&qN1s2Q\->1,2XZA(Zn^R9dw3D9,BGg42^4JbiBHHR94Yp(i100wU9d^U0,5
U"C7<WH,Hla2gu.?u9XaP-E98k,T*cEj1h;;NobX?HnLMD=lK3)07uoa9GqJsxxef
U"GiDTrl#Bq,m6y,7/&1A_Eo7&<129t.dlMvg.gqDmt,[6gjjQ<%=Z?KJ$nOBd8jY
U"Vqwho#48lYXF5#C/D%XSQ2&GQj;Qo>9AdE;U525W8MtBwG8dri1MPf/)a&\w)0t
U"*yo%:WxQSYo/raRZ07;-QZMG1p0L)%_O.>a:0Q4Z=yK.m:Yy2&*ykmqyq'K57Ht
U"+:>uW7z)lg1?6jeC#*f&W/Q'y3I;*;eXczZJTr6P1zu^letfcj0F4FYcBU(dPPE
U"q2)l&CyLi0O7I'fC'Xx(=5S$c9p7DD#c/%hm38vf*2:dpciJYpnQF7cek0QXN&i
U"H'PPnI&(+d'TBO\sCKrU^4lk$+%WM,<*84p[kUPJ^Pm[NxWPdgkel,dlh*(fY]e
U"rgiEwx):W\D<[]RBO4GH)Qc7krlsC3hMG2T#u;C?C15xsQT4?hJ-ADGZ&Ldg9FY
U"Rn/PSkh0FL7,HN(UG;Q(/M*=8J;<hXY)F<e0K5FNpjzkhWo%FKWmpL[sl*Y(W>h
U"s>Mm7)wD7\tZkH;>&PhXXXinf&3KkJ]TP1V/Hf5=I'JBBY;AU3B:x3c#oj'>Yf,
U"ixgvz3^h6sU&\(n4THCw>\fECAN(C$6]b,2f]]mtfSdEoUnm^wu5Lbq;d?t(XP(
U"kM;[a4<\k[19U=R0p9QY.Al6_em,eIs=/PLY3UG]eS9Dk42au<GqWRs,[0%E)zj
U";g\_x)^P>QT]PMBW8y*g70(p0PcuPT?DtHNJ6x;SQ-grh7I^#&1KM$B.%Ju?9Ic
U"<sKA-;zedmc9YFXmLrQW^-#?=81xRqK,Q=U3>utv/Xm9(A=C$8-+g]&%\o8;=js
U"(:Ez..)a\8Wg?iKLF;Ez1o$,,sxql??l;8/RJ2[Pf*h/P$hk&:T4,[A&Mv:3QST
U"]($GT=2N\uYk;Req]e5,OR>7ZH'M*LZ/Wt;v.pws7EgnIOR.AEr#+aocNc;*Z[<
U"*\[23X7[zLhL/%hh:yE=-XSu.Hp\q(Z5,La[d[]C\RF-'0\?tO%AN0]IT)ouUNa
U"L^(#F3d$Oy=:_MV=o[FZtFE2]z4=YLXf1gK-9<$QdTTT6$3'4=z,Hd>G=<\%E(B
U"cNRJ=XPk#j8mqJ2n^--MQ:B4^QAkM)trfqe:FJbB<'fqqwST,tDQOLmcUzZCmGA
U"L6KP0E,pL=W<BYM6bXJ&?ciU3li;tf4tHASctB+Vt6WPkdb#t]U_P_;E_BEKh:6
U"PMYf4Sa)e_u?pz%TK[*Vn3<8cD5Y4U$IDw,4;X)_Jxf:bhSf0[i7L9&lbrN(q=f
U"g/$L]%VHnf$'*jDuACGS7\H?k2uwZ6T(7HSjU=[AW.IX);&x_EOW&t9YVYR-=9W
U"b/3CVw55jj.Q[>%-m7jeD$^i6((4dICG[Cm+8R>jm7?WlmbOlc:6]qfk^u=GDZ$
U"D\m>3Zxec^C[+L^zza,jP1im7+*vm^ke9l(NCChO]h(4L1*W:sG+vbz4:jAc,CF
U"ir&9?$uZ\Q?YTA0aR$(71ccjg7=NR)#xN'UhcIpW:4fB/Tb4TGalGLJMci8Wqv/
U"=$j^-cot-*?UdRO_]S6<i9r6\7O%y?E<sIOa^&As_K-kf*[rT8b?%.Agv+Us8AX
U"\IlaQ#gF[W6An0\q,]s%g6]d]BR5(h;'.L*)lo+iD39[;wxB^lkNO*=jjm0'')n
U"SW?^*[Z\h,[=ZGDzn:>S^ge+'C9g#W4fQb=[XGO&=Bk9TGgjUaP1aa,f=N^rE)9
U"(/'Lt*pG&8T-CeYI],na/#':A*GRS.cbX-)=VtpZZ;;gHSr-Vq%\$)UKW8+6Li$
U"m,EGSdpN%]EUGIqZO+[I%2#aNYn;(eH\rjEVS]$*cQ_F&-G:^^k5W+<h'PC%'$E
U"z#Zuc.+;kR-i7]o^yGT&#HOu#8wkcqaE+v.ac\,nnTPEv6[,ws1jFs1Q]\m3)dD
U"IXB'<^p*Rb=*=<IJl&G'Y:6U&_eZ4WX_j\LwA-%YfS(snU^B_S13+w^(tXr&(tb
U"#Bm^P^jAB,0C/:QI^0J;wC5>#:M]<(H]Tj3W'm*YQn&*p.\'>BkECfBo9SO$84]
U"6pnQBdaSsg]+q)q-SEF\8+jQflctF2^t(uSi)DI=f$L2C6t_(GX<Wgzm+:a=b-9
U"GMZQD(n%ck&s5OnGm+MlSpLveO0,h[,T&g8&%KvVMNic9hUJ*57YB68c[cuHk^(
U"m>kz?.d+A\o;9X^.S-(e]_s-krkGxAsGoqMH,jj&;Joc8(=s$g#WWoHuz+zSS^B
U"fzWnWsm\oA:/Teg<FTlc\<HaeGS5g;1ab28P_DYt,W<;JJEw,R?A,qthpa7ZbnC
U"1/C=:u)3+mLe+&(Uj]Hh1H;q-PEPvss]mk7+>v#8GTKNEyMY(bR)=2?>E%2:z4C
U"<%s<[n?n.;t&3G9mktUIn,t8P22:Vrkiu[L2?^<Cy\71s6<qAl%vRZc7d?_)3l3
U"&/TUZs=(roj.lrl=(c>X)G^S)TL$+GunZmsO#'FFrgn[AQmVlz=d=<D4QAQt8K9
U"4d[aDCnjSH.3;fcXppIes17o8tOaN;KB>a#YG7^JYCoh]7C0]6#+6j(Ixb$=]O5
U"3(Nu;IeeM8G<xu<AxT5*7r$y,),xsk&J\q/ymEBV:j(I?=6%>?Y/1n32l+'^E.5
U"qnQS&KIGC.VCxd-&=8ClBQb.+B2-Lb\ABXdTu8R,ias3k^GL_k<8K.QXG#R/>I'
U"3o'Z]&9pFM<Zq>$I^n7C6[F38w*YNoTtAZ&_gdD>[r1?>hfLE[Oh+V[Hn=kbj/h
U"ub>lp7La($M,'L<-2i?j[$PJe=s6AG3BF]\)'Q=hpyq]sN%n;4:NM^IZ?)U99R:
U")GIdK^gH7'J,d2/J84G\IJ9jo%qgq5#N9?FJTOJ5zuNql2n,g\;<QTxg0dtJ(>4
U"a=hu5y*t+q8ln&Mfwk[I65V.n5V^p*p;MpsS>uxt\<p=VVB$$2-<7uD<c3Z?N?*
U"+Q#JLyOo6-]+&mo+#'.=G1.s]f4LN9bR*uL^UHW3pnz5cfbN5xB<f.^xb'FJsSM
U"Zq?3Jsn)(j&uW,[$H>IVw-.*k#O6:sMpynsr'7fSK)u&N&up%()9%%'%-%:v-:I
U"$W2IL%U&%%%P'%%%0%%%%xufs%nxmS#qsld,$8s(mV1?p,bgBai;AQ.XxT\U4ou
U"xyb-9rU]<wS7j_2yiB?11WX<96%'-Qmqu*7ql0pp+P/p<?7VpH%n3gi9ct*:g/E
U"3PZ41QZ)aP>Q(bJQLgx5JZlIDgBi4.P5eO3&1V.:MQR<hD(ksI3;Y(ZJ\]fSgUi
U"w,hRvg1RZdntEMsg#^pOZ&6VW/cY7a0+'(55:]5K2%_'(43u5+.;I24LD[-*eDw
U"mH&WICA0('pd/[xl#S&&s_pF?O_38J%QJJ]61_(7[Qe#Lh_^<##sQ'/9)C^I6.q
U"%XA4WSVELe3=#5oN#SZf<+6b5r'iM\;vSdX?q82<9*ztPZ9fi#qo]K&/dk7aO*'
U"^:?r,0dQfd1,WFH;EXU_a<f^NbR5Oo;z)(K(u%p()9%%'%-^%ky84It(V(>1%%(
U"%A%%%%/%%%%jsh%tijS#nsnZ8EtFpRRoEX-^^/pmROGE]Hxu)7zUMXCuO&:?(K[
U"7>T-uG,TEaE2hj''Lysr_M(q_(N%_f.Jqu)kqiq#DN^bgfM-igmO/MmiMfmb(Mk
U"pfb5f'/2m<tDE.n*y(%%up(%)9%'#%-%4,-:It,s*<+[&%%#%&%%0%%%%j%slqn
U"%xmSqIsll$7Vt<e:1Tpm0r4^./'G'$H.-fyHMKG_>gV=npQ,GNnl(f86$KW3RmQ
U"%nhnmLXIR(b#8\T*3l^DA0gOZv>##cDZ7,AQM<Hm=x4]\(AkrmdOLA/Yc8)T*4o
U"S+clP;f^RJ,gmIYm^R=i).3.?<svK$H-,*Iapj:3*g60T$U/QnK2j?hppYJ.xgV
U"X1[kGuoeNM[SteRbT1>U#4'lY#Ic:du+H/_iUs4WQ%_)Bqja#:N?;0e9&*Zxl]P
U"K?*U]vleB.78]+xVKr^+9>Fuqo4KK0s1F?x(LceQ=r\69)]V(OP[]:qA#*_N5KL
U"T#DLfM^wdr98Zin;1ar2%up()%9%'%#-%r'T6IMN'QAY&.%%E(%%%0%%%%fg%hq
U"tl%tSnrgl<bT%s'f1PUL#gfgA'jMW1[aJd=2[gaOfWosa77TfdV4o92ZdR4Xb8u
U"S(md=Gvm#eA98Ls4]>W+ZUw5KW[KqpsGViq$ai+]Z(:ZbyZbnZ;7ZiZQ*QA21>W
U"J.#z8k&,.byC\rSWX$.Z/Nj\C]M*yKr7=_K776y2k^.$vOHUeC*%i$lZ<#6:aXl
U"vfGD[Due2&sTz:Jne?.:RzXhzZvTb;Vm)G3NV1CwgycJKpOf2ONGwSiLg7mC3w,
U"'nTL^rlWd%dc\D[PoNRAXv56gK0o:<uD+?tq956n_2^>Is]>30$#kyH>8c_CY6.
U"_=-c\LBr84^#BE9iI2nhkmD>CW8N;&?kFmN$?;k)N(#]s[2OD1hMuGHxo/2$=t]
U"'#YMcVkT)l4k,w%%up(%)9%'#%-%)#8M%A3a2:u%)%%s%.%%/%%%%x%xjwn%kSk
U"tas6z8)>*\5pca##i$'?b)'7a)eTuGA0aFRl.2?[sICWE?&Z3BXi3OP7Cf8b3(5
U"Q1B:ZGaD0IFR,#2?_3WINIq9aDY':>S[fHgpBnJM),ZlciwhTAHhGgaM[+Tv^r_
U"IyIha=OB'r$Rd[C8\#rz=_j#S4nfBAW=Bx%?s'ov6G;+tQ;*k/I2n-%E:x<v/z5
U"s&D7/XO=Q&n5T>leO1yIAOjXE[+:198J>5K)jt.Hpn%il_3C6m:75shOt&4F^EU
U"_Xk:7?P^oZ2?A;cGYzm2x-98qtYk'Zd$UjI3TRb'*jYkRA(2_m#veoe1HWH6VYN
U"%mT1u2F3..^3]-If?vPs+$kVcoF^UHD(bHN8MfzXJ..AtrV:nN5q>y.(sU+?p2=
U":vodayYabIGmH?nS_1/tmjAh&_2DKXW#;IK(fL3&9MznYIY?>,;kw(?kJR+J9;b
U"-M/vRsh.jFsb'#s?SL8ds?4TB>/B+MA%R6>%aT8oqxi2LGA7syWv^m<Odk%4X\>
U"7ukw3->_Hw?2heU4B5#f9%s.KCDUhAC)Jl.&0K&bsAmcw,1(ULladHik#MA:A<[
U">?0^+/qo/scX:%r5zGwY*%IUU+6llf5W(Rm/h=#^M#;cu]:G'SzFo03x<6vV)[D
U"?5RPm=<:Ru$Ji,ITT&G'*qHZO\Xi?)'M)M:[[kN>Y9vn%nXhe2V3>Joxo-6JudJ
U",g:lWP'd,%_75rD,k.\bz/[Td$ev.7pfTG8\r-5TxzRjCxJ8k+kJ#u5w95U_mkf
U"9ZtW[ZH4+W.(t(iuUt-9oRQih]]\y9$UNCXoa<sUR#DZz+v*(d3JZG6o,3uEU*h
U"?8jZ>lAfkq-Y7#nZ$fCNujf?Kj0nW8E\pQ33WGY&C(8rHA,9#[Aq_V#-HW1B*0n
U"=uX%j:4,;*QjUptz=H:(,^RURqd<XFsLyvJXPew<+_2<kwIpusIHU.uXch^JT$P
U"M_]LrvJIaq5a3^P#taa1f#UD9=rT?V:$]?lXED^LJj#6UvP6IBv$$]#lk]vv>YM
U"Hmx.#y*S%Q19Z%>t?p9ol6Z4p;u\rcF1#a6<t3<RL]F?0t1hEtGK_ufoAk,k:y^
U"(>V;Tq3/)T^LAYDYRs1=;nCEl0[X%Yn\9-OeWV9SYM:I]P;%>33S.aH-fVED>/v
U"iyc8JVQ2Z;<Qbh.SUD<)2Lf&62-ZL+j8gSK95e'\h57ms_0jrrle#7)$i\VXV'i
U"L*.1rGGHX)9Vbl[18z96SRb#cPq6ffp[k2T^gWsY&k\UgTZnKk.uCQTu=O=N'aX
U"*1yAZot5F0YH^9c0;4nBMG]uaa1**^\)w9Q[gUq]vd3$I5Km*J]I=KyOG8(Bj59
U"2VdJ*#$ZHPk0g)>(]9Qp8?wfjN-GU3JOSP0fG%d$+TFjbRI$9fe8?c,[^s%,up&
U"%'9%9%%'%-g%g-:dIfub)j-?%.%R;%%%/%%%%%%%%%&%E%%%%%%%%%j%shti%jS
U"gf%xup&%'9%9%%'%-d%v-:4IW2I'LU&%%%P'%%%0%%%%%%%%%&%E#%%%U%?%%x%
U"ufsn%xmSq%slup%&'9%%9%'%.-%kyT8It(.V>1%.%%A%%%%/%%%%%%%%%&%%E%%
U"%'X#%%%jsht%ijSn%snup%&'9%%9%'%I-%4-B:Its'*<+&7%%#&%%%0%%%%%%%%
U"%&%%E%%%&8A%%%jslq%nxmS%qslu%p&'9%%9%'%%-%rb'6IM,NQAY#&%%E%(%%0
U"%%%%%%%%%%%%E%%(%gB%%%fgh%qtlt%Snrl%up&'%9%9%%'%-%&)8M%PAa2:%u)
U"%%%s.%%%/%%%%%%%%%%%E%7%%nC%%%xx%jwnk%Skts%up*+%%%%%%+%+%%x&%%&
U"<H%%%%%%%
END SUB
CLOSE:IF S=148AND 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
