'=========================================================================== ' Subject: A TEXT VIEWER/LISTER FOR PB Date: 02-09-99 (18:21) ' Author: Hermann Seegert Code: PB ' Origin: Hermann.Seegert@t-online.de Packet: PB.ABC '=========================================================================== ' Load/Run under PowerBASIC to extract LISTINGS.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"LISTINGS.ZIP",4^6:Z&=11655:?STRING$(50,177); U"%up()%9%%%I-%b0[lK+I%Yy>17%%rE%%%1%%%%kn%qjhm%jpSgRfx&(*T=#lC7L U"4_&NMV/UM)wi U"Bmyc'2mYR6RRPHsVA U"$rBrRE'IFb$eHVGkbKixq?qqf$R36[ay5. U"'P*um;Q2gr2&]$JN2nog+M4YLhG,2I9Y>fW,&:5iHhnoB40toXvhW?:Vh( U"Ksv%'uVA+:T%Yf_hu9(aHM+DY?'FKI1X0;[q2<+eAhVN\hB2w)']q;80[7$Q26B U"YWOWkH:X8QLw-iDCwn>dUT+4p43F3aXm4+QZMJjQqXG0)\Eh8As>iBbOW,jUJ[h U"r-GtN_/>Z_w']w&[a$BF1WBnX3a,m=+Q,j7[OQ)DOl9RqA[i8Sx.'O:Zn^Y#>rn59LWC/>]<;>IoWMfiL7$$X+($4ENK/[BP U"D?m1DVCWaKCQe+ueIr_81//oHEAGc:HSu4)Qfbs:QXxmY&vj]#do)QxuNm-(8w] U"MH=,HZa#:z?:bj07_B5ascvbfiSO*0>CwD-7j$]e=9L=6Zw:fZ0-m5v,$5\Y;ii U"J*P\2KK9qZA6.,KfM[X1'FdTg33GBBU,CnoGFS#mhu8z%YKm\CV]62Fvv(;v%e5 U"95HAh_S0=mI3_is41%/6 U"$_Dq.&Ck$Rt3sk;c=tMWVEW3QY.V)Yl%cNQJ?4WEX=h01pUM7TppkFRj#r54\++ U"[o>LK\Vq\dqPe?Y3c27BMI;SMOV9uWqKY0MM+2/JR>K?FDiKV#;.VY)k#zm.rSJ U"ji74ZR8_2Yy2I9HF.]Y.vOY-ZzAPAX&/#?[q65A\P3&X4CVR6A:PI7'ck4<:F[; U"-05H98hIYe]i+6[5&tPw91i%,^yMW8oRY%wIM;'='sAHE8tGAJw5_r)$>(=/=:= U":y%*9^=SwvfLUC$QfH^8^=\SYE+H)FRU18RcKlgl[YN/'JfsVfV0gK$)_t:U[0) U",7YKss9t6q#Dl;*WIRmc'GFL#*y47Pk,==.kncw/5q[uRiSJy_)TYAb U"M,P'N&ZVK0s+>bsk?hy=F4G?%(Bn#Q3tCe?x38#qW U":-TP%-^'>0\j<)i$g%skV_VEVR0U%3N+>5Yw.iMeH?9-rdPxmou1%0bL5V$?[N; U"h$YjIsdJhcD\j3H2d U"lGp>pl78BplWvRv?6?#ujd0wVT]8^s)opT\YKSQj(9SWUdmL\8p%tEB\AdlM._h U"3Q7m$B5R#kHqeh^sO+(mUHnjGVoVQJqKUy=5ISNTYC.?j?y8khK]AkagHbF#4hl U"i3D4K,yd'0_;];>tj\?F+B-0s3W%)gGf*<1&q3A+bR22aF.+:&>W:=]j67/j%HmX/'cYc_15Ti;DWrRo\at(txim,R:9p7M U"h3U1NKbrdU&;:^Ud,)*d0WfO#H;d^F\dq/P$+5/2vWZuEcDIHXj?OO:]q\j]G2&mlD U"El;8cYR]1ig?7pW>R2'-;vvm\sim1A:A09>IB2,R]c+^>wo2%pH/T?tfOtArC5' U"%F1s);p$hOSLRRW_yH1lG##Xw0^k5'>WEDW9B90=2McoI3rhpi'm^lvF)$$RUrAE4fsNvl.U3T-i8%H,:dx0ABatVO0077P(EmM/hsFa U"6S^wAq;v*W)mLWoZ__sV47PsUjBBPR(/>O-+hZ\ZfsB>WhtGp:&d4Dx8&CXly4i U"onWvOJ0prpS,j^*>9$O;t,s>]SN26h U"C.'HX?DB6#6QqU2]rQ8T9hy#?JLU+HRiL'u,9jVBur^^AVtP:pQdZreoX5.D\=D U"l#Q;]dWPm5y?[(i)EYgE395HojNusKb&sVMU_a*S6X6ssUGao:MjnyaSf0EE-]W U"5-P1T-8R1\XG^2#,^S[/zY*q84h(*SR.GqIjd$2Ka;C#ui:0;5tc:33?uJRM'9' U"di3Is=6rJ-^PZi4gGr&R\8du*up[[^wZh+cHJ6zYKiR,P?+.<*qhib)9OOsw[([\B'#OUa*CHAg4>;KFJF&EFZ7K+eMR2t^c0bJW*3MI]\j'$3)> U"IINtaRsX)M4j(*aLy*&YaDezpMciSK%C#)HO>S$40C7:]dfj7q-G+vdTDCnk;69 U"c?#Nf*bw#P>'IMucC#AlM;zXHmOmZ1t,k*\iUoF_p\]5 U"-_YCPz2t\F5?\*Gij.0X1bG=iglJM%yXYqhIop4PaT:R\H^l%IP5hF$M7])74,R U")F61I(UrvL U"<)Wn%-;$.L\SJ7%z>^]^\TfPu/6VN2[1V]WCR9?]0Xe8$Xd3/z86n$+9e,Q]&ZOFKH9g5\TYpAVguTVha*e]se1'0]d8ueV08=Q_wi(Ij U"_L:Kxun-;+k(LYW/BFXj8 U"u&xF-Rwx:X'wNsND21Wb%lc^o\#N<%QPT[IVBE,IZ'uiCe8odB^30i3v\Ub';i:'3*QdOLmqJ=jWkFkN5Eo;Mzk1M$& U"ZWLWbefT.W?tgWo]YfSo5bnnPk6hvd)RX:>o$*wF):$0x^9EIki3NI5bLK#ujYq U"rM)d+sqX5\&K''?>zQ2D31-6fmc?_K6T]mCzgUf_?\Q%(R#=HB%T_\bD^n6m19H U"4E+xF?ud%gvq)V]tb,mEqa(7;hFmtp:fK&KTj,D>/G>i2s;=iG;gi5E?G>g,8)w U"yUYfludkE3M][AZ$HMRGu3%AdAZ.Cf*,h\J&*e4uWAmSYDP[keDb$pY?BAw;]GCY;A8l#gA===ZOu?UFG$n( U"dc1,rCyHO9ppypJ5u[wZ+gX)zFVc4JV0QQX%Rr6D]Q$:L/[XJ.*v:QuG(?lKRxL U"[9A)Ow'$h7TU%G5KA>rhRNA0p;&;n=u]1.:&XI_G U"^Zmq%&4V9O$T6,oRX:_6q)Yu&>HH=)(U8;DxJiU.j8_mJ43Vjj_9B.CA'd^c']H U"'/#?_32,+K>,%JL)J]7DiJkV.\FD*EQ?A<5iL^GuA,+Z6D^rCe[E1Zn0f*g.Z8k U"i7B*;ovjazq4\.(4[>p,'8EdMmMMh(Z2)Cv]-(LG81UF;rz%(H*]NU?6/Qt2T*C]8TaOMnfZ5)JNR=3'Ca U"m1F\>B.n61#Mh1DgTy*=uz^CP;-igDX8kO5KYgn?-D9:[X1ug6II6LlOnB%pafVuj*^j;n)&W U"+;8?0X2(TsB:+;JAY9YA=kpnpDR[lOCoT-Z&W(X-:SGh-A76RmpaMu1.jnm0i^b U"o^Ye)M6n4EE)N)s_pl^4o$bN837F+cT\(RY09.(cx8U82No]3rvNRWOB;fJwg;, U"(?whdug]5kJpNVmJubk.['m0\6+ScB/S3=k6Yur$Sk0H]aFC1JKu U":Gj%7*??hfLJl't7CYm*DM1ruQM-_==K>Q0p(b78D%W*dI_J:yUr=>?]hSx(,-Ccu635h.VBRH U"qic)i?uYg=I4b1lW;(xF8Rjpdu^[&[?)7;,ZmNp'sQi'ESv&E>fRu*KU U")Q_nRb=4?$qd3lj$JO#*SL950gkyME,IJLQV,4M%V5PDT;:?dhn38%WwiQhyv]7 U"oPO,j+iWC)CvvAK0fHbV?)O7(5%PJAnEV^.h2/;&M]=Eo3hq#B.p:^Oi^)YX.:- U"*]xtu0xQJ0Q5O6Jr#.a-Ly3RK[5UJq+OElEA0?ux+2;XV82_nrH\cuVc>>y?jqc U";a(faZUFZ&uphXEZIG$>VXAs)[[-IM67'[MeBHAE U";aZkZk.(MS,(p_W[p&Hlo6q1NWTQcfn)olFx:\:,*K-:J(W+\Q>6O]PsiM_BR(U U"W[OnIPWl]WsTo'D8%#G)RSieVcnifNMkG;5q8dX]cnN$cr>ELTbGBU>[m$>3?FJ U"$15FI(AK>.LjJKA9wA%KVWqnte]jb>2_,*zAmO9u*6)0f]Gt U"4PGkQeBjg4iCZI>'g3R(0W4a5RFaIEHJ,4Prkp=<'KXCLC]-qBIHow]T-:pl1UI U"Q;WpHPp6#ZP[[%W&3]&9e?E/GUglMr&CQ9e8g6]M$\k-dta/Y_sPBi7'[( U",+mHF+u\>4K%q,ek?t+p6&o6<>KAE^BASN(a^-k^H1*Z*qitLrSl^G20^;4t U"d;#ROeN,/^*HUt\ehHLUpKP)4D&%q8+i:qW[)oHJ&f:DE.]-ABammo.A-\[A$)= U"y+T$mWE.Dee)VGs:5inmM&5>&]7*rOLl>5K;qfS'C)Wl U"G9jYu'NrQ=f3m4l[^)f/C2L2HGIv291g U"YQ?65i+),&4+PP.2rS(n_K048FG=DL/yP:^:#eHxv7q2<5:D7cRBc.d;#D'q U"$68Zs:OwZUvNpo$xUm(h$qOoq<'QI3]qoGfLr4j U"i3T6J&,2FFbEAq=y>nD=;Ut5L3dpnkSaw9g7LllU7$X.#yll<4GSzm;9tL:61I$(I8EP^*\1Ys2$?071ek+*UTP*z1KMUUbcc$K;%?p.1&Z(Paw*NuV9\5BO-tJVm(_iBHL&DmUbNjVnfb5LK5xk:P*(u;_8Z6+lvw)Um$K=TFKEmut U"cwCoD;5>-onchMUzb3qkjSKM_QijV8YOZkuP\*LWt+&W%m9zk6%]Kb5??MB$n(f U"U7>OTL)lNnIpGPJsTMsIuK;ku02wg,*r6&%\k85j#HRbiX^iH5(dGAR*RMD-iLN U"nZfEHqfq+eFxQ0kCZ40V?'W\lpmdGM5t)JPe2Ao8&#].t?$6sG/vNfvc1^gc%nh U"lDC?xs#Bq-NtH>&p U"xK(,1*x_roijb.t_<_qdq8s/kT8l8*Nrs_+N%#OkZis+qlOllmp4leXIsu[Rl^9 U"hx0CZ3DwPpRI(]Qj,v*jt]JRtIjkrp4FS(G[]:NV.q,J].*zoQZHp*T2'r\XEXf U"KN7-z_$H.amlnvN8spuwrunvx6TTPFo_F6n;pgIsVcZ?b9DW&_H]Tn[Q<_=J1%. U"qR$S[1gwYx<_,aOGid%up()%9%%%%-%0^mnKYZ1VLZ8.%%dc%%%- U"%%%%qn%xySgRfxf*c9g?>5=K8xo^r)AM?e\R)MB<,x]G)wiVnhCNLs#]Fj U"?h4X.tGwfPZXwu(fu,Rvsnuo$=t[XX])tv1PW]9tT=m5nlWUEX5+UKX0QjiQr)XYQ6>SBK0(;1:kT9eY2roR([01P9*3i^0OpA/,0n)l U"Z6C7-Gc/[bN0^Qn[Z2VDi-44Odgg]pn'\QsbQgKa:J93?-*&$E$Y&B*_;c'6%A] U"hEP0FGiA4Tb2MQCFmqkdJ%m-94iaggJoMwV);53uBx4+$417u4VU9:Sx,tUmL,t U"Dk>o58?wsP19edx[C4OBPi:GBquI=xocb8.:&i;Ou,$mj)ne9V>V1u_o4HV=\;j U"F4)8T,8'TS'+,Sxi?o339t'Ni0-[Ay6kX)S>Uv.IUIJN8IzCFJ_C7tfpHCpggFK U"1(0pSW9>fl89>Y[\L1g;P/IV.jUnT7c-=5k>(>3a'/=J9/PB<*')(LS U"2&oTZhb0_cq30f[0)+UFRe/O/kJIcQFvZ/W4$T$I5x'fC+3HSP'C'kWoI[=UK)A U"X51lzY[si?1%Og=ENPQ,q?fW.RdiFeKW'6WQk8/O>W7vA+?4)%$JQB9-IV1KP*V U"O:(=$VMv4Ss&'Z212k%s$>3VbqI6E9NYR:QC'[^-23?P,t/Onow*UDYbFJuFf$b$#n_[(hujB)S0zg]B8DIo&0bWeRop,CJ&F+OTGN13)1SNifQeuY%lcM0u1EavzF.fU)1Cgk-XIOkz4:0pk]^757q4_HUu+Wmp=o#qSEd( U"KQl1+CVa.V>V(fJ_/ZWA=80EM[LL$&87't,lgqKm,iY24 U"EX*:7LUTN,a7;&V(E4M86]T;M2/$[;'J:B3rxeEd8k9J;xHmw#ByhWRGNQ3KVuU U"Y3L(ha7m?+h6O U"QXHmD8Es&vn(VA-uEVIiI[M.i%1HVsbSjl.q.OJsHRp[rq^dBUC'P)mG]tZh/jt U"9JCpmD2EMpg:4e.%ER6k[jy=O_)%0qQVnqrA2%_uP.q4slO7C9P18K8/?=P&hWb U"^B*mZib$;.G^JIP$wf(n:IQhnI<[1+*^mfY/>mHCIPO-;i[pGWsCPv5_s%.^8T7 U"tgk'n[e);fp$wF(ESMA+mEOU7Kc\BFf3-kgenp;DHzsX>je0b'YBo&4[Byp44im U"O2]L=#:%(JgaH:O:G(ceK7ZU)i4;f#^1O6'eD U"62_O-ge0b2Ms)B?4vSC3oILRTAUm4K-u2Yt#aF8,IBS&jEbd$(;z4r%4w5UBuDE U"/0iX;cV-*0vOcg+jL&$[+O?j(i(5y\4yM%m797DmqotP:e U"+]?fQRhR.x>cln,v)CfjVpraCL3=kv(#RC9+jlQ^qC)v+k.2wpC.^JX,MP.Y$'V*aL5'FE=S<,CC7\BKj. U"fMw1fTk+.PIP[fY9)r]Jge0NQcEu\:Eq_1:g#uDD]jT[qkolq%+AB#0%)(Tzg)i U"c6gjrnV((Hf9D=1u+f?6nWjE*=A.zbKi.CuppLU79ecWqwW8zb*eON(?CW[0.Cd U"0.V#VEZ=/tKCf=)KC(n$,f8?#NIWFlmllSr?T/IGo*fK2tDOsp09&dA)8%2nd=U U"s%V,)NNYoClUJ\s*98)A>\';fn7A\U)_dxKH+FR:f(\nfYOvF4g^8jg73o7>]*\ U"5wn/L<\fJ%%ns/$ow$UJh#Pi2Gh/uc(DwB3;>k-#q<:U U"??89.)HM4qc$ch-iq.:7N)5ZE$72\E?:344s U"of0g(8fUV*9aST%erB*SV)1TJ%hXYSu]Aa,C/l6eD9_,#^J)=^xl]?u6l)&\)ZL U"9'z<'REMSpnH'2+Wf9*WBRter&x(T+JsnCAQC%Ya(O+cg#94AnRO_+Wq2FENmUY U"0(ur;.%7+(PPf'DEYmHK8tCZPB2Xcq6h>=/\9_MVV;Ej:UUpYN.$jZEX'YS49,f U"w*,dOjkRhb7#4^=d3+i3L2Pa==oHOUtEl85%k&P=+A322_d2BjCc]=?#j?k9;rO U"ZBDo#c\CC8axw_xuJ/Z#ZBF^G471\o,sl[SiAYV[MT[tI'>FS>BG&?VI2vUe*;?hKDKu2RS+S]o+9:CUU&Y1sPa U"e,5g)-jH\=(ipBKjtxYTJ<>dEF]7)4v?1#7%GImCI5ch3pyqQkk91b\K3OJ7Rz+ U".CM;?&3_+Sf::f$MeLM%i;ok4\hho\mGa%?roOB^Y9OsDtP\Xd8beSGxKb;b0 U"'M1m(uIII2Of7nCE3AfzIk&+KZ*0N3/j(vQ4MU3339/zBH13^^b5,jZz[YW7cmu U"aDS/=.??t%vMuTj7$&B5Sw_(D[)$;>ccldL9U U"#UEs\PDh09>DZxKVrmI>)6Pe8PdR*DdQk[r?)r?r/Chtt(U2A3y(7l_?4q/n21C U"3J/[>2m+:eBN3*0^,:.T0=DEhB$,?8ghIYXnmfNMsFW6WDnd3X+N[I:*pyd:j[C U">ijx?epZqx[-3(t=MOc8NqEtA#%&JbsqX[Y&n2=bc9/tT*3%2gWAC7Q>hFyKbS9vO-OV[.3u9I2-9,yG U"BiISqSg$xbUYmY,8rWwW$RS1'ffAR>><[RN5\:BeZNU$1+QA]3V<.5mR5,;oc4# U"/(;mOWs6Vg/WS$>pN/,cK=\SlFSvsAi,,3fxo+^IE'Cj1-V$-$6b2BI'kUBgM+F END SUB SUB V2 U"C5OB4&9o4n8_*:Ja[kX=P?t2TPEg8-*N2?8N^bC=erJ+3kW]uO4=8-/p-T4uaOj0PSGMS=]?LD U"4wGRqEDtr96]OgWZ2/AfqPZ=N+JDj^O''?lk#C.DuJLEKhn10+M_49Wx4:eJFZK U"GJ&IUy^rdJns\TMdY#65YUrd],?K8lhos\rq\eW8J1Wy-hD>9(CJHmpv5xHhpQtZH2Yl=b>$ U"6yF651AgTfOy\+0FvG)A%1O]f?3.Dep?%r?Yx*qZ>'2+[mTMRXGVOooD*[Y9LQp U"r8Bb%9Fjx.q0Y?j^VI1e$fsKCrFm0u97EJ0tLUnXf(F;H+LQ6(x?Cv394Ilq\Pf U"UP#uruEAJ7S=>ILD>v]PDl_Pt1?mcI&%7^huT/oK*>uJ->ny_&6yLT08]w8HLV] U"f1>Xp$Pf<0m8c5aD/2=+/8Za^uK+4[d_d($%p^hsoU]p/DSkLtFYReq>&QAflcl U"%G:^tR_M)ICJ3'7l?rRzg>o]9hQfl_LqA93QhM3&IH#un7YM9fVn[KDz^eLOkp* U"%s742lzbo+uRgL*0C+JLUS'1f0eGeChT)eOzRxW;#bs#lI+:=6*0)hgfc,o7lbu U"+mYc;(0esr*1OS2[d:RTM1;-5'JBX_AE^]jm11hK&?P8ohj$gu?9]b0(.+\c_*]OY$ji>y(aAY;Tq U"r&d\fiY(COTBl+z5<_/-E_9/*8K\r(?vFLXs2((Yoj&-g+6)[tbxL#U;4v'y.b; U"NNc;P/i]u?Am=[dH7(1n1wWrc9u],M3WPr%Z3#Hb:dalD7.cuc9TuPlS$94h0[%*C(bQ_;5uY1sO5C^zI0Nr##Qj] U");ekghk0(V:?*r&c(cDlO_g2Ns31,9)r6uiI+HYAYu'%q(xX<.#EfGHQc=eW_Vc:<:d,X-*4gu_lR&*[./PzwD1-$A1 U"ei,ofBS\er1EWB]wao^d?^2Eeh,C%64\HNf$5GmPYN)FopZZ4o3jnNCa)F6em+X U"$6CK+d.[q$H,>N1&M>6$hXl+U9S4-a$(+,d U"h,*]9ncYWZL$NJImN4U76p=MCEE7ZX.Pzk$'41q(tGKT5pl+eN+I\3$L9qUSC*W U"gP-+WWwKj-sT%0O/QN/vN:t[+uCefefoZZVgzB/xk1uFhuW5en0+en41g U"d,Q8jtBa,?2B:An[:pBVKGi?:tgu))J4hrl9Qsli3EZcvmEb^T*(t:l^xLX[)Vb U"FcmmK%7HV]qx#vCW&mfC5nDIZ7tVN%(up&%'9%9%%%%-1%b0l7K+IY%y>1%+%rE U"%%%1%%%%%%%%%&%E%%%%%%%%%k%nqjh%mjpS%gfxu%p&'9%%9%%#%-%Q#rnKwhO U"RV&%1%%I%C%%/%%%%%%%%%&%%E%%%%h1%%%ljw%rfsS(y'yu%p&'9%%9%%%%-%0 U"[^nKYKZVLZ#8%%d%c%%-%%%%%%%%%&%%E%%%%=>%%%qnx%ySgf%xup*%+%%%%%( U"%((%w%%+%BQ%%%%% END SUB V2 CLOSE:IF S=97AND 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