'=========================================================================== ' 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+Tu%p()9%%%%-g%owk:E'Q>(bL%%%%c&%%%1%%(%(jq.qt&V%[ U"SnhgtD^*+3&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(>8cZjQrCjPi$^tJ'sB U"apxJ'X/MX6n+JqxAt[Q#16UADbB/8u=2O]QCbMxY;\\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$%=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]Xdd3VN^=88eY8+)p2S2wi%fR%n-Ydb':C9gEo)e*'=a<A>,dm/yWsK*lLa>ptZAP<]UV%]cI^H*nN4k,b+:,Kt6f'Ry:r%E U"N%^5cKQAMnqEK>:t8:3sRCf8ZjNF+jrQSG3*Vv:QRspFP;Vp-SR5B 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)Yc[X4CZBu'Ik5H74B+ll;NuD:(C3bQ-j_/-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$p8DUtE3>Fo5i)-HZ?=XuRD5)aK\c9kWE8;Fm%;6;Ypui%QU^ktK&_E U"sy:97EY\:pMm+wmIgG,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_DbdNC%&OmaB_1R0u=YQ7;#u\T1hz6]nNT[2^c6FdIweIz1g,fg(]L3&c&0pq<^jsEWmfP U"NX)]qJDn&A&_GFY+PR=qGNTjv:Er46R'bI7cCblbj]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.0GMIR3>AM U";DDwhxnlr2O:(^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:oA8SWAN/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.>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#tyQdYZJuMB7[[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_?;)gp4_#H\bFr4F4Q7),y2gU9h$)cS)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>=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+BT,LX5 U"q%r;z0SF)oh^-RaUt(Z_]mE2uTV'.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*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]L;^^#MxYWVgHSq>gOR*e3Q8wCg.x0Q*D+ouDsQMpLZ[m U"ki*^*Id#DMo)gZ[f$lle(aG,Mca<(j2.B U"Jl?Q#d+WZEa'*2jKHE^9BvKF5VwKcLr26Ozc^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]bC8AdKWNIG?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._,-u>3\J+?uuLi U"e6*=eFJ3jq*86udtP494s)WiimDCGf,Bjc4\faadBZ8C-rk?YZ.ABtHmYl#b#2_ U"q>0Ka\'#B+c]0d.+4eoz$xg$xHK.x&wd?1--ZUoEBzU9O8?#]mUD$_scMK\scJpqtht5KdLK+=j7:I6USX*I&,X*& U"RR6[45RdDp4-0YML]Gh#&,-,1-0 U"pM$eKiJ_Q_XaJq,7t6X$DcFbfGeX-/T0[Zx7I.7F-ZZ1V/SM?zWa_R&>0; U"T?9U]5_R[&R6[UZR4,Rp-0Y;g#i?-\'53U=UP5,41oUU9F0]Ylw3-0XpmeKOiJ U"Q_4Xaq,_;lXT\m)LF:8-mI6$Tdr\%d2&5g$u+0bis8p U"\;(pZo\4q5lsJLTOE*YoS_.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>eLiBFz2SJXvhe,6Yb-TwG+mjlTY2N(R7Ha>eG6p U"l&i'GQEQZi1RYC:WThj^PC:hb(G'8bYo:5rGJpo5P2RxaC8)wFBiaia01DPSJ3W U"&6Y2Q;9K8Y_:j4is?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[9( U"wET(V2cb$iM]1+Mb;g.uJu,%V3,>mQg_w'_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%$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