'===========================================================================
' Subject: LISTVIEW SAMPLE FOR PBDLL 5.0      Date: 08-18-98 (12:13)       
'  Author: Ralph Berger                       Code: PBDLL                  
'  Origin: rb@bergertime.de                 Packet: PBDLL.ABC
'===========================================================================
'Load/Run under PowerBASIC to extract LV.ZIP
DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"LV.ZIP",4^6:Z&=9937:?STRING$(50,177);
U"%up()%9%%%I-%vwKkE&)59wJ%%%%c&%%%/%%%%gq%zjV[%Snht)D^V3%'F9i>V1
U"^KLw<ztZ#)Y/1A\1pL328V6lqX?HFG,-.WUjBgNHAGFg0I<9I#$OigfHPDCs_fA
U"92U'(c)HZ-_K=&p+Z\&)tc$Qte*o7q2CD?^/<qo5.gNy7u6]DYo[<.^jm<b;#E0
U"xZecwV=RL$B+>+Tu%p()9%%%%-g%owk:E'Q>(bL%%%%c&%%%1%%(%(jq.qt&V%[
U"SnhgtD^*+3<E1Ii4$\Jpq(bE*2JMe_tY=$aTtCWQ\W0hx$)^;[HK^^l3E)PAG_m
U"^&'j//kBiTPBO#vI_49Dqw3jc),xV4N??w3HbsOe'k70jaI,K<#M?nsUV88;)NS
U"8CaaY4:mDc'8T7\YKY?0a,Z2xfe-Zss>&4dup%()9%%%%-%;+wkENq]?r'H%%%'
U"w'%%%.%%%%wjiX%WSnh1tdaV-';U1)UNM7nI8f;dol=j'1>^g+$s[^%/HHHg(IH
U"wG,K]wXEZMXu7X.&d[+%3cs7*fT3+oIjCNJnR8=X'sQ%j?AQb-0a_1Mb(;2yJNR
U"Rcu_RZ70Y4d3iJ7XYW(<MiKMtD'S6E\bjYYY;eEJ%aa'>>8cZjQrCjPi$^tJ'sB
U"apxJ'X/MX6n+JqxAt[Q#16UADbB/8u=2O]QCbMxY;\\<DG?7(VO#)r.)O<)?bII
U"VE,]px]W8bl'OHP2<Zo)J2=tfv4%up()%9%%%I-%jwokEcR1]6K%%%%c&%%%.%%
U"%%wj%iV[S#nhtDb^*3<%E1i4#Z0x0iBi[vIqcP[Ku2ncmV#2,ntG.CF>tn6(q1E
U"U.wo_cC&'ju8kBcT6OdGw**RwA^/(Q6q:9Q:.=3TQbd(gG0o0hGM1:V[4kJWGp2
U"2t^]jl]Z8R:w5cuZ_8qI<9r$_=THc;vD0O1lm5(YJ(u%p()9%%%%-g%Dwk(E\Ns
U",OJ%%+%w'%%%1%%%%uzw%uqjX%WSnh1tdaV-G;U1ATD9X=.:=oUl=:N&SSb4g^)
U"]I)trJk%kk+i5M8cY^39PZrMX7$*S%#(LP,DL=%f7+h]ImN,:ndU$7XV0r?[2qu
U"92ZYhqsjp)-d5DASUA+Gc1r**Tei#mvi%)d8>c?\/;7pRD;BQO.#[u$YmQ?Yg)=
U"LP:L2PpjeX2faL.v,v1Mu;M.]Gc:wT.q=Y,Ic^t=,h\/>)UI2ZDO.:&#sAW9n^.
U"kC9_mM(/:Cwas]#U^_2v?KLH^*ky?#Se6^l^b.'pdup%()9%%%%-%;zwkEk]SIL
U"&N%%%%c&%%%1%%%%uzwu%qjV[%Snht;D^*3&SE5ihVke_qw;.mYB'ZNBqYcPhUa
U"N)--<>[:^b4UQDka(O,,O2,HhFB^3'j//kBit)LeUw'e,V?Oy+Gt8syd,]&>y+D
U"CLZV'i6(j+Q.;>Vdq*W7Y_dTKDD0S7*XeFuQ<rrcd.&$tj46%FHpD=Wbmhc+vo+
U"u%p()9%%%%-m%n7G1IB0k'GN%%%%Z%%%%-%%%%rfp%jSgfUyB*Y[NmoBBBVZWXn
U"CER-)nwP.w:_I/AWZp]CWxDq2ACmJa7ZH'2%up%()9%%%%-%8HKJIGX5>$%=2%%
U"&;S%%%+%%%(q%SgRfxf);J>T]+7x$&'kB+ku,*0'h:vfVY=*7*^j%7\6]#(s'UC
U";UM3X#GAdJhqf\InwU]Ka0oDsKoSO$YS)od]Xdd3V<WZ?ab8Fdo^R_aZNU%/LST
U"Vx+=\k#3U[kV1H3XF;#Y-k-M&<Yd[5Mt'i2QhjuL4=&p*#79K:'D*/%=*T/)%Z5
U"'T>N^=88eY8+)p2S2wi%fR%n-Ydb':C9gEo)e*'=a<<iE'C?MrOGUiifO794nGs
U"eB2oDthXu(Pd?5[=B7+X3E2bn54gIt#k,>A>,dm/yWsK<RKCcq?Am;U,T'cd,J7
U"r4LL7Eg'%dEGvdf[Xd-GViN'8TaSbnqb=x<8xVe[%]xj?cq])54z;q*SLG)CT2F
U"IeG^UUK0e.:aGRajZYT#[omfh(;/HleXK1Ch%)P&tkHsK=me^OwfY#0Ljj?$Rd#
U"Ve#ME39[*4rJIcpB(6:k\>*lLa>ptZAP<]UV%]cI^H*nN4k,b+:,Kt6f'Ry:r%E
U"N%^5cKQAMnqEK>:t8:3sRCf8ZjNF+jrQSG3*Vv:QRspFP;Vp-SR5B<U$HmZ#P/>
U"]/4EsflVflEi2j&UD2u:^%1%.)v]KHml/j3^s]A8?8u:n=[v's)dhcdmHo;ICa8
U"LT?2a#S;U2f[WqNbwGCh$*Rnak:a)OJV;E%IXUK.C0D>(7Iu6h*Lsw>lp>DXCAF
U",L01I;qIC=&Md=l-nHuD2)j%#q?n-,R/ogJ2/ubJZ'VGoQV,=eS[CfQg:=R,h4h
U"-F7N)CW8?Eo+?QRCAGpC#Ii7*4Nioe1=bt:y98iB)Y<KI7ga:K\7U2YE4xSrZG-
U"0OLCTlE472H3VA5gLnJ/A1sk\ApcB$57JH(hJntCaaMkIm=ru-CpWe]Bn'Stg\Q
U"9Yu%>c[X4CZBu'Ik5H74B+ll;NuD:(C3bQ-j<c'Ptp/Sq:s34LjY+*03<6N6Jfs
U"0<CR7S'I$V;iJSu'2Gf5Lr7'$5[S;2k>_/-dr>lg=d&:jXzT*%&/s/bZ0ZQCDu&
U"Hz%XWKU:=XH#KrNJ$LvslHo[k$:9k[]bEZQ9G3_o22$#rOar?1pWoE1qEl+QdVI
U"\\w+n9L.1%=/O:c15MEO2I]+&.[zXs.6?,(E+yxJO]Z&/Q]jMB_OsqE1OGjqy?U
U"8Q/fI=C^#9BD9[kR9BKCQpcF6(Kl])T7cl2IiE0$p8DUt<Bj=liq+D#OimKCf2+
U"<W+-D].BG.3x*>E3>Fo5i)-HZ?=XuRD5)aK\c9kWE8;Fm%;6;Ypui%QU^ktK&_E
U"sy:97EY\:pMm+w<E.Bq7Tald9ES0BuFjHdP*./&>mIgG,gPo&K5[G#<*DOyWT)1
U">,?[7.0<[G[qm,\OAC[Uhz=Xbo$)RXgnaF=?SC./surP]N*LS[:J8+=F.$I_Wca
U"+i%DgMpJnnG.E\f,Uv8_m<>-1ijScTfAIV?LL$F+CpgM&6T(^DPt#bq_8TWr2p8
U"TZ1;DE#&N)C6-$/WlXUS[?s=JAL\Myr$FMQ.hI#S.#RQ4,4A,sJK_7S$=]JD.60
U"GX?olImdibMY=3dtnS72fOw\bPqGRT.d$UI#$sTSp_Db<XKx\znb#'*#K&K#uKo
U"2E+O3^reSl'g[-8PzX$,,s2m#=;B5FAbHI#;][A,DvA:x/)cVv;$.$UQ1U.n,o6
U"KZ',c4,hr#(c,#PVp[w'f+8fh'bnbIjcr)G^*M[R\Wc#-U7[HN5rd)HZ^&%[Fn?
U"ws?2M%s[caajSC;B:Fg]Zeu2^_3s[OA:[%jgT<Q>d<qqMfaQJg/hmpFxC:&Ww6R
U"eR^+L?[QVB+p:3<j&s\ZlneV/mEM3,\?/mcQc^#.'J8cIjt2vv(0I)El<;r<(IZ
U"0j(>NC%&OmaB_1R<UkT0dW9Wf'GGOYqq4nVv;wN*qI#HAu&nJktv<3[gu.[/^#u
U"GoPX?mjmW5Z*e:3$Mxo#pqVf2X.:\l\V6HA*uHxH=]g('RsdA8;si-mVh-3V;%b
U"TXl[xLAuqvn6ci0[E(.bV5&L%X:,<T_AS.sexOXw1*+uDit%ssEKkZamAIb25cp
U"J4AsC2Z>0u=YQ7;#u\T1hz6]nNT[2^c6FdIweIz1<C*33^]SJo6i*eL%by,Z;&$
U"S)lT#)>g,fg(]L3&c&0pq<<B;HW+[[kJGwgjE&hf2rNDaQYim83L])?9H=*#qsl
U"^*e1#29)nCCS]Ve<:kA4UGM'.XYq%OneaCkK66PAGbF(==)F]r$Mt?d$Y%-$W-D
U"%&H1Dl&=Q8q<Vo-MA_*Z'RhCM^p(W+/]/xG%W?;l\O6j/BhuD:mv9t>^jsEWmfP
U"NX)]qJDn&A&_GFY+PR=qGNTjv:Er46R'bI7<lOf>cCblbj]o&7[$7yvOqiJ](5I
U"GjjuIpogc^Kxz06&/x0JenA]afdG?-M^+y]P$sjQZSCwm#ill]af_3?EZp;sukB
U"0FHDXdnf/A-r$45s)'(Q&EN-OM-\?h;Y&>i:FZ.JtT7PFKI'P$D^nBXW4p3::k<
U"ecSR=L4(>&n,7f83akU9AxAHQ6GEr&[+/Iu15NS^#V;g*^.=??LCnZu(#_Kx,$1
U"4Zim[:;=k:2#GN<+x35>%p&J/nRlUDR=2$1MjvZHmN7>J/?M)s_D%X>0)bNw;+C
U"WSq5*i'QNu4Z4d.0GM<g.caAdd1[Y5qS=x/Z.LnuY*^lx32,d#^vN3ep>IR3>AM
U";DDwhx<m-6mj9lT:Bo&uUj50j5P&,-F?=4F\5R%.,#;8eDT0<4A,^)03-;\'_xw
U"g:5xOK_PuKH2n5__+LE0M=.^joAiGs<CMDR%)Vo/:T$VJ2rw?sEmCxJm)RR(v$J
U"hj*Lt1$kTjTl]L+Mix=v%dN]CbraR1X*Lla#pQ4p8b*F,X-2O_8J5hVd[,kW*7*
U">nlr2O:(^mi:GMDj<2S%(0Y0d^0f,6$FYB0.S2atXm^&IUcjr,=\0G)/,Z>*-ge
U"UM1/Vx89/f=,MCWxCs99M9AHq=(Km-ZxJfy^lZWMu[hVWf^F.^%./-3?agC,*nb
U"%6zDomr=S;GT7sHh4ZM#2iv6T]Te>32bVo8a1X,R^.k?AD%W97u>GjStA#)naa_
U",Mx+\vVY-rekedjCgAFJ?StJGScR[cq&?Oc[q-^fJ[yzsF\Pb=jf*Bk9(_)*c9x
U"\wO?#aZz9xL1oh2-%$6(cDu'M5I590p9>]:2DjPO4?f_?l5arU/drk1rbYG)jKQ
U"&F>C8/&,+om;s9^HfDEY[n1&v:oA8SWA<dxu8175nIm68qmTb5\St';,W5:M9$m
U"$tU_4j?s12YxlFLGot\LQspJl4UG:BY5eWTk/dXZ<HV(%e0H(/Q574W>N/k3C4s
U"W1Nl1xV*sWPmor;gFqG1fth7L9.9p0cEijEJrh[bg>y^c]TCuuNB&1tA;kn:15,
U")6WZL(>u],lF=3=A(-[nA[x7hH;LSXc1'kKlq^87]6XT9NAxGWN6>Dp\l3Oj\KF
U"$z3P=ws+jM$lGM'+;tO]4RrukIlgE161F?,fRlWp_ItrfPJ2.=2I<P,TydCLJlV
U"4TtX)9WJd7UT>.>tuV*NlLf-'oVAQPl67s]Oo;81bURD>bB=ORk9P4dtKJs<2xu
U"\DfQ3)%QC$8a8Xk2IQEE4NO]9IihRAl^.>i,soT\_>Emq\%TB?xgUunV4Gn[5mn
U"M^P$bAu7bGE:E^BM#t<rd1%BKW(7Ald%xL5hmP0L?B2jmvE(^M#k<w)W_H2+zJm
U"h[sjji.'z&?^]JrL^\^$SWIAVY-NX28[7XxwlU%yE)qy[AYq/&mah5MmZ0md?K]
U"j4^..qzdT/kXoGIdZy90W.Jj9VgQ-g>yQdYZJuMB7[[b-o^/:c^,T,6%SHm5NJp
U"XB2[HuSW\VQ-n$HG/[Jy&uTp+eZ:pE?1cQFt]/*58ZP]hZ&XKTCR&*IF)gFdl09
U"13AGxr'Euuo:rRel\5U7H_#k]/ZWAV,+PWZR_?]'x%FH%6NuSE^+=(3=Ms7CG_R
U"mu0=_o,fg_uxdQ(jN55TS#1GOR8.u6_?;)gp<wXt8a\hFRjlaXVw%WOo8e%Z?CU
U"jQ$$#V62JoJ3R<=[h.9aO^SbYp/hid1HpQhcp7%,hZS+LLk*O#Z:aI9v]G.8wDk
U"e1As*GhdZb8fftHrTRLJZBja7xO8Tm9>4_#H\bFr4F4Q7),y2gU9h$)c<Z*RT3D
U"_.%-_CDDa.-PZ4Jtb+g5udT1cpP-87Bk+wZeE$uJ#\R$>S)Pmd%pmZ\/=AZ?6W3
U"Tw].kB]-gri2o#4_->3m+%r7D#)Jxg:&rp';M$-Kb&Bqzqi'w2up%()9%%%%-%7
U"odIIN;R$W%)*%%'E?%%%1%%%%qnxyA%nj&%SwjxEF($>%#l5C4cmoQKTy/sCm2k
U"T0[GT%)D8GL%9'HsLGg5_/Cn;_SeHBUb3^v^Ee.ee]P6Q(=79k?%;i5)M&w0Hme
U"o$&JCSQ+V56pE26fv([.i5$i-+MXueEgGTWm4)1ex0nL7(+H.y%'LeL>=<UR79,
U"oq%/Y:h7c[HdNoh0Ty02Hc)(Vfi)EZkBq]QZtAWQbJi=o6*#^v3XQ>m'Lgr(?o)
U"^S7cZVooA(MV(K.tBAzTvBF,J8;5JY7bVGWSjfADoP;L;Tw6\3XR8nG4(G.96M2
U":p6F.$]Q;;H(<>l/Y*uasllujC/>Zl,h[fdPZQtj38ZukvAZRsa?jQoSbM7DRiH
U";B:ZCMc':[k#,9\&8*if;)]:,lKo_HImvqP'DStE2ZHO[U,)TrQU*_-Vs[R[Jg4
U"Gm%]=HMu#=1+q+<s6TR.z[pSFK\tY$+39%HF?+Of9XtCE_q\dfhs1)v?5=VQxBq
U"k5Zm9I&80_hVJzUnkA][h/I;nR<]v650DPb4d;e&&^<o\I0#q:0Oh*XPQ(o\ngI
U"x5/lIR7963x'bKx7Y9sN9zCvM+'.=%ci-jiZq:0kv;Kc[xl<i$s8]7jDm$cXc*W
U"h:sF'Q:QTXo\8bX/qM9FzC'$#Z*LF5Y,e$%PP[7qqphtqkwq7)3y1?FG>BT,LX5
U"q%r;z0SF)oh^-RaUt(Z_]mE<tL_2zdXBbd0*=3er6f/1G5juS(Q:5<,CESi6K^*
U"<Y,?2lD)K2xCAevY:26,*0HIF?U0EAXp01MhD+p2$[73;07-JuKZD+0p*3/h-Ra
U"uUXY_B]E<ViL2z8-Ibd0n*3erF6/1Gf5u],f)F]F2I7:koi:-JuE_G(a8]sBrBl
U"k%T^s6=%HF?kjv=X^:MaEK_RUmj+uZMWd)xb>2uTV'.lqSfmCCO2m^^A>uJmQcp
U"TAsHE;e(J)MSR(.CTcfm;[=9W%V/5().f#rF;guR[fgcPlUhRO>Dl5'LkgY5[\g
U"85f\'W'T1?Gf>HT\'Q5qr+;T;C%.AX6g+HGM?]_]EX<#L2tz8Qb.d0*3cer6/:1
U"G5u=s+)FOsEI78:ki:u-JE_cGh8]9GAUMQiUhV6%UxOr88gYG'GVFbYcQ(ow0)=
U"lGczcs1'HSG=V#zW^H.vOs/,_\]e_gMi-.-R,]6YnBPB[,l2Ww,f/8[l;O]vpD6
U"=7;)d*<LvnF1'8%<D*tQ_0Jyx3Tkln%Md>snNHU3X%-Dlsl;l[SEgBPCUhUBYvS
U"n8=M<:XvG;+Kep0cQpsUFfQ(/0hl&rm-X&rt2.UsTpNG0s=sHh_]^Zqk1xPO)*.
U"CM1.PZh^L(fFjNSEbhfZde94xp)Y=bAPz^M:2wE5(].&(bngr]x>\vb)c*(]*M.
U"QZ^rvkSDVw,I4N/&8yUbWW:l1n7%;eN(l9cTt.%mlEBbn9^>Hwh.1K8)n8\j^QN
U"C\+#Kt#SkT+a5'du9PqXqMH<*+l01l/sp>b3K*\?]VpAKc6=GWK:Y_8?If?FqL:
U"J&o?(MwbS^rN8N(h1?g[,*tnY$qGLF%MPs*c81Q,ITOeVTgqJ_uwWi>rEcc\?/E
U">DtmY:d03b;Z>./H2*b;V45X1na6KMUs*R>&*xPa=BIjfYHGXcJXvsXGbXtQ*Ur
U"J7;Nx&%up()%9%%%%-%TdKII);.yW7'7%%m*%%%0%%%%qn.xy%n(j&SwLhdc.,>
U"SU9c>XH^4$U4wnn=.<8ngXgGa/6P:E;3zAyyv?04m=egF[%T?7t'BU'5Cy'G7M^
U"Nr,nB8>1$DP-/DM:3#3NBYlOEV_ZF9&jT)A(;<\nu(Rh:DmLot01)X:e'ejrg'9
U"%BnMa<$pY*AfCwO8+HW(DfpwEAvsSF_dlm7YMZugQe8<N$<2$<09;]6/Zj-(r*;
U"<p$IbhEKYSk*b5OR$>]L;^^#MxYWVgHSq>gOR*e3Q8wCg.x0Q*D+ouDsQMpLZ[m
U"ki*^*<Oq>Id#DMo)gZ[f$lle(aG,Mc<rFS\Y8sZ(MQkm#*tWF4V7Vv9>a<(j2.B
U"Jl?Q#d+WZEa'*2jKHE^9Bv<BU.N&K4/rsb&<1]A%A\q;s.<q6/r)CmMoBB#)1UK
U"^rZttXfZ;Xt:A/idR7WuS31Hy<0eTq[<PRLswG>KF5VwKcLr26Ozc^gTRuTt-3O
U"N2$62]K9gfgCmA2j;nCYmWcJJutMu2t&&L7-GRTs'ptZ,cZ>v(7Mp3nj4p]S(e\
U"paY8lM^<=eq&ys-?pKa<;\n2i429-T^28XuuZNM:#T/z^v]_Z-ca'<>j;*R)\&d
U"gcT3o?=AIT>UV/l;m(q]bC8Ad<NdFhf\XgB?088Fn4(Ss/4A)Vvp7G*/=T\utm(
U"kY65llM[2DC1CtM\?8;ercSJl+KpO=&paK3=ANbq<E[85&7+>KWNIG<ZZD7#5+,
U"5>?b#0_tb]%S0LXJEXg#G]Zoj)3WCv\_1#IW;G'zp+Pnf>NiwaJ*-x:VK>eV1V5
U"AtWd?MN%%up(%)9%%%%-%sadIICgu,-][*%%q%A%%1%%%%q#nxy%.nj&S[ugwfJ
U"(r;*[j5CxVs#Uc%_uoN2d9A-(b)/,'Ygox#fj&z88u2*M)fus-&NDM(L-P3IABX
U"Z.J3%sedte;F&BAK\Wuzr\/Fj[&1NgbGcxG#fa&07ZRVpE5ElmjpIo&Mk#_\8h>
U"E5XuG',tA;?^C'eNGOD6W;o^z7%&7f#I;9-(ffL\oFp&cJOeGZI7C1+)US:ezI%
U"D)R[omRMDf\*Tsd;F([9OJV[99)H)\e/DR6s.d/H7x/P(mN/K)IXNDJeCGt\\zN
U"Bxa>e[Qa+eMeb&)^QaCe=eFBQav=p4r^\FLp:JmrKY07*.'h.G]asZHHp2DV:+T
U"w,Qzf)dAVh/NQ6a&tXPa3o<Qih/N^?s:w+bjDu9o.Q;wa3tg?iHnq*3%mf]eMFP
U"(+Kif'8.pY#C.KPPohIi6C)MHPr8j9l;iZ\0C.KVP7TJiXC.K^PS.mYzg.K_99P
U"7qkO'HnvihpFKd9nFMW>._,-u>3<hN)?joK8cls:B$4Y+unbsS76TQ>\J+?uuLi
U"e6*=eFJ3jq*86udtP494s)WiimDCGf,Bjc4\faadBZ8C-rk?YZ.ABtHmYl#b#2_
U"q>0Ka\'#B+c]0d.+4eoz$xg$xHK.x<W/o47ax/#fo2W8g;t6LbO>&wd?1--Z<xh
U"KXfB7n<*i6)R;oOGX;9/uMoJOg51?$,8.Z&%6j,0(U=/NZO0GJ4wUzI)h#BudQb
U"(HbnDVnl)gqC9E'306E\]M;XUl/^M)5/A+,It3i$DARfLr5e<.ibnUHS2Nf7LTd
U"+J78VM<?//>UoEBzU9O8?#]mUD$_scMK\scJpqtht5KdLK+=j7:I6USX*I&,X*&
U"RR6[45RdDp4-0YML]Gh#&,-,1-<D8WA+J=Y<d*#sqND(xF]eI?<#v)8FEd*x$>0
U"pM$eKiJ_Q_XaJq,7t6X$DcFbfGeX-/T<gn;>0[Zx7I.7F-ZZ1V/SM?zWa_R&>0;
U"T?9U]5_R<gzQp1r6DemZPos^B<s'F&K/$&N+-_%aA/iD'Gl9R.-^RSYI-GrYrR%
U"Zt'e2)WTd=G30zh>[&R6[UZR4,Rp-0Y;g#i?-\'53U=UP5,41oUU9F0]Ylw3-<x
U"#QnEY]t07LeO0WKX<eZaQrWAq*F6fIj^OnHMllLS1X/l8Xf=2]M.X&4&R6i[DRt
U"\Lp-0AYM$G2l#.-m,1<d0lW+JU=Yt*K#sNLc(x]eUI?#v])8EdX*b>0XpmeKOiJ
U"Q_4Xaq,_;l<E8)4P^Z[w<DAm[tY'_>XT\m)LF:8-mI6$Tdr\%d2&5g$u+0bis8p
U"\;(pZo\4q5lsJLTOE*YoS</\p=]vx$dcWHF>_.4%qalqkg$Ras^90D,j%cpCTjx
U"F_\CGK;X:m5fPN2Gkx_S4D,khv-FrW_OlsEDkbN6*LzB9:&$si__#ZC[:_4F^i#
U"k_?f>^5OJktqB;W>P[k(6f(Vh,82U[FKX]>eC7L_\gL?Ke)$B=c]>6o07D?lfsK
U"PzpQD<,:mmdLGl1Olx)lOmN8Y258$Sgvdeak,s'*Gv9CphbCPGhrY><M.p^c8v'
U"HA8lhDJ*5YvP>eLiBFz2SJXvh<Bg1wY/.<b>e,6Yb-TwG+mjlTY2N(R7Ha>eG6p
U"l&i'GQEQZi1RYC:WThj^PC:hb(G'8bYo:5rGJpo5P2RxaC8)wFBiaia01DPSJ3W
U"&6Y2Q;9K8Y_:j4i<OzVK>s?W<1o(jURr,5vVQ%b.uu/J\Mgu:cEF]e=A6qoF3-2
U"_yJ1SxF:UzPLI.DQV^_EpRO6YYI9Nvam6r3uSe:jzdY,]j3+ZPewo8Kx-#fvdUH
U"$?/5It*m3$Ud5u8f^dsgN^sy$L;K_:fsB^^+#s5C=bd$yH^(M.T17;h^Sy$6rm^
U"?BE8[:Zs*nb^&.6wVe+_UD<=?R=P==?TYQ_qf_T<VUJ71fZlZ?11+av2u%p()9%
U"%%%-g%2wk7ET/i+FG%%+%w'%%%0%%%%lwj%jsXW%Snht)daV3';U1j#d9.XI*K%
U"qFsU'=Ck]wD0mNA9%kkk++iitn*\o;.nvsm72:*<1^QC^0=(f/)$oICNGls>[9(
U"wET(V2cb$iM]1+Mb;g.uJu,%V3,<pJ=LO9/ZJk#96P;7i+>>mQg_w'<GjU<ZcZO
U"QgB1[X.81>_<IOikb^N'lsB&xaN'/M<Xf1oc)xp&Gj[GCT^c?;aHQ#%NB'Km&11
U"r?JV<?H^%V$)Mt.PDm%?3PjVE]rmNAXBkH%$dK*[Js$J2tf'v+up%()9%%%%-%;
U"rwkE)P'.5&K%%%%c&%%%0%%%%lwjj%sV[S#nhtD&^V3(#F1)f/+Oiu),J6z,mBx
U"5Vt.:bB'qlE0*9siH0?C8&\f+'^Ht)bL:O,3$CHgvQteD+5xERw.A/(Qi6:9E&R
U"VA/e(O.VkAO6AR96Fi11r7ik$?sv-+v6s3q/Tdp)N1'G.X,?sc1T_t(1x^qe0VL
U")[5du%p()9%%%%-g%?wkXE9:,-wG%%+%w'%%%/%%%%gqz%jXWS#nhtdnaVG;.U1
U"TD(9X*.CK%_AbZ8hhLj]epnr4:AlAAOAlh$a?(ft7sklaJ'b<.V)?KN/,iI=:Yk
U"w$(6szh9qN?10\7T;ef=-\:jFn0=rFOBCsIYC+cl1F*X0Piju=i5)8U>dG0#6W4
U">.;NQ0e*k&j.e;6qk'[ppNb%/$r^F's9Blx^o'/MX_6+Jq$xt;$o1-*U<#cf))N
U"RZ^XpH8cq12\i['S4YnC,om=P)NC72ba=>5#pNYkWBHr%$d*p[JQar*vow%,up(
U"%)9%%#%-%8GwkE1h-&.J[%%%w%'%%1#%%%(%jqqt&&XWS#nhtdnaVG;.U1TD:9X
U"ZD2/1tH)2tC%/=k]y2xrfAMT$$$:&$XTgJ\RSIo]Dquh2/NH?9o&b,hf4N(PRmj
U"Ln)v+'?\V6_OgV%<D]\LA+cC6lWz7E[R5U_RZ70V8:TaJ7HYW+:wi+JtVgT6=vV
U"j<+/;V8rN1L&ZVKQt#XSmh'/$^nFSsB,&xNS:/cX<o2m)xjp&j[:QCrc$?;HQR#
U"QB'_Glhi.zAV\_?L'#j,)rX,O&,O-3LVq,]rNAfXnH%>$c*[YJ=J2=tfv4%up&'
U"%9%9%%%%-%;vwkEh&)9w&J%%%%c&%%%/%%%%%%%%%&%E%%%%%%%%%gq%zjV[%Sn
U"ht%up&'%9%9%%%%-%;owkE,'Q>b&L%%%%c&%%%1%%%%%%%%%&%E%.%%r%.%%(j#
U"qqt&%V[Sn%htup%&'9%%9%%%I-%+wTkEq];?rH%7%%w'%%%.%%%%%%%%%%%%E%%
U"%%o&%%%wjiX%WSnh%tup&%'9%9%%%%-g%jwk=EcR])6K%%%%c&%%%.%%%%%%%%%
U"%%E%%%%e%'%%w%jiV[%Snht%up&'%9%9%%%%-%;DwkEA\NsO'J%%%'w'%%%1%%%
U"%%%%%%%%E%7%%\'%%%uz%wuqj%XWSn%htup%&'9%%9%%%I-%zwfkE]S5ILN%%%%
U"c&%%%1%%%%%%%%%&%%E%%%'W(%%%uzwu%qjV[%Snht%up&'%9%9%%%%-%=n7GI_
U"B0kG%N%%%%Z%%%%-%%%%%%%%%&%E%.%%V)%%%rf%pjSg%fyup%&'9%%9%%%.-%H
U"KfJIX5(>$=2.%%;S%%%+%%%%%%%%%&%%E%%%'O)%%(q%Sg%fxup%&'9%%9%%%%-
U"%odTII;R)$W)*7%%E?%%%1%%%%%%%%%%%%E%%%%77%%%qnxyA%nj&%Swjx%up&'
U"%9%9%%%%-%7TdII));yW&7'%%'m*%%%0%%%%%%%%%&%E%%%%e<%%%qn.xy%n(j&
U"Sw%hup&%'9%9%%%%-[%sdIFICu,,-]*%+%qA%%%1%%%%%%%%%%%E[%%%J%>%%q#
U"nxy%.nj&S%ugwu%p&'9%%9%%#%-%2,wkET]/iFG[%%%w%'%%0%%%%%%%%%%%%E%
U"%+%XD%%%lwj%jsXW%Snht%up&'%9%9%%%%-%;rwkE)P'.5&K%%%%c&%%%0%%%%%
U"%%%%%%E%7%%OE%%%lw%jjsV%[Snh%tup&%'9%9%%%%-g%?wkXE9:,-wG%%+%w'%
U"%%/%%%%%%%%%%%E#%%%J%F%%g%qzjX%WSnh%tup&%'9%9%%%%-g%8wkLE1-&,.J
U"%%+%w'%%%1%%%%%%%%%%%E#%%%##G%%(%jqqt&&XWS%nhtu%p*+%%%%%4%%4%t#
U"(%%;%H%%%%%
END SUB
CLOSE:IF S=171AND 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
