'=========================================================================== ' Subject: SCREEN BUFFER FILE READER Date: 03-16-00 (22:33) ' Author: Viktor Rootselainen Code: QB, PDS ' Origin: viktor.rootselainen@pp.inet.fi Packet: TEXT.ABC '=========================================================================== ' Screen Buffer File Reader DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"SREAD.ZIP",4^6:Z&=8580:?STRING$(50,177); U"%up()%9%%%R-%il&>M.w8l+e-%%%*=%%%.%%%%xw%jfiS[gfxVh'*BS.o7M34zu U"VS7RVK?L$a[<1QnkO.1ho3#;Q7X-,.TW%-u>pRAn*ltyuqfnm>V)Qj_H,SX5Lfl U"bwu42vjuXt2Vwb4rPPLc\m19>(=7Dl;v^N3C^0:M;LWLt>b#nJ)x,7-6Qp[+s-o U"&rgN;PKYF\1Agjvi*q*T-mv791Q339Pbxd_CP;KC6YLs-W=CvLYcs-Er4)^$YLt U"K'GE436n7G>K-+C6,DVixxa[K#yR%iK$o;L'ZKlL72:P1\T:OD7E6+3tg7^3MGP U"(98&Qkr)h;W?Jk0d<,0cB#Rmq,ki5kuHi5jmw-K_/EPGmZBGTpi(v)6t%(nRq/3 U"4IFbr\yt+ahX0ViNXnBW,r16ji<8eoly\9(DvUlV\/ZAA?l:supO$i4tfs8G[(M:xA;j*=-v U"AB=f5mp\Meh1v&+5Tfm\D_rTlqcu**6q7ZH:[?D\mhgI:x1HVt\-26j4nlFCp,0 U"eJNso-9Zh=A#w^m)Um?;^OlRRd/*#6qI<[$SarA#(cR21kmN>7Ea[mx\lP^.CBs U"qCNgu<4If(*M:g\F.mi_3YNc#U2/E;nd1cS$vU+g5_R_X56d3YH+_lq#/32(\CS U"w(4&9CkDV\#Sh0cQ0,'qn'HC.y&D5hLWAT*a,TY4CZrIJmx[y]4,-tn?cJ/YoLZ U"JoW[/pzI0SC0?bk-P4Is'wfTGwh3pSRIlkn'LL;6u:3+7\H4$0ts?=cnS[SpAp> U"\'BeZYFP;S7[Lu'Pq1r*uOAmDNqs<)h/WN$TuhH'KK<=QB+2gnf]BFOIu.m2XUH U"1-6SfFk7$i.E#cV_AmQ?GR U"EEX3O/XUr7V81P79Rq4Y$^XJ%hYqLXprTt1NR(A[Vbt9>Oe(^fXBefQa(3^uD+v U"aL^K668rG&hHn(^[OCvFsT(OK(>__KQ,+k5aUIMoUBTyps*q=2dZWl59?4i5OT7 U"9G&&[uAj;%]%qBc;]2N?u?5-:=+[ejr5iG4[sOdoWZ\Q+mC.QSAs\*X_CmKboMd U"l7Up%7v;anGPK2AsY5baPhFh:-]vDW=x,)+j^_%\t*X_*E>>uK U"28JZYDK\O=*6B=mjSDN*011H(H/6R_L8.(iWs8?q=pZ1_,fSv$-u;MSMNHBXkJ-w2JC U"nmIUTwx7tG?mvXAF,q-TSd_bn3;FwEi)7Wpa6Dp'>7k&%i U"qx1sdWovaMrq=m>ooCrnsQg2\(QXJl?>0wfZXA67E$V.sDjLym4u)ModF(?oq).0T](rcz0W%?m:_R7gm_, U",1O\;5OM)93-*vBmPJGmdx?e_l=+ZafY-'[r6'8.>s>iHM4C6**$*js;T(T4rW< U"wT,n6u/7ZH]U];EIdSuZ;j7yzo-:?6Ov[sju,O:WC$#FMxxsrMni>RA U"SCh-jSSL;ClmHCT_H\%f0N-6:n2g+ArJ)%0wsFG(jlSbC5y:#>HM8AIY\PP%Sk^ U"y#KcqKWMiVaA4gRj\noaG]%#N:$WpIF]i',fd(VPg&1W2;Ud? U"XSvcYee%+g9QnIA+c:[O9r_+S2R:Dh>9T<$g'i8SuM*MY;p7-h;;r4f*VWPm3Ut U"-uGSrO?FTQ9KIo4QGTykN0Aq7BN&q[+$mp'7fSjYpSCcxZ^Q9plx;+7I^26knj; U"B/l>?Z,;KpMO>.^5yJB+-r(JYDWZFu\'J[k+6&ZXx?Y4krW(EBID_53Q^mXnN$k U";=GtR1PjmE^zA?YriB^0LE+h^G)qw]D3'UMDIr$Nqu+Zs-1_laKXw4X+^w6'cLa U"xneA+EbEWDG) U"Z-89^S+z1y_&j\vW=8jX^Yo3#7B\p/nE;\xayDiWXnDg%m7o6]8HAK$&772qy3V U"lA$-J:yn$8J\NU12oxzjD,00u;1WZT1dE?'k^Jbxp0gL<,FxJmbN:9X>G/u'L,. U"H4Bt*(KM,pNq6GA*]K^V8mN8mylfqnW>N4Ydm U"TL_:L6T]L#DjqO%g3Kod/tz=duNtp)I5:$M9(k4p U"';a/iMjE'gA&$vS\j.IRKi-d'BQ,R_#>Ff:-wd+[\-g8>\^U.O5p8SEHLkSC6Ra U"(N,Yx*u%p()9%%%%-O%(o>gMv*5&ZC.%(%O?%%%/%%%%hfu%xhwS[fxr.e(v>TI U"]7M5POuV8N*OjZa6As(HTA4Vi=#E,M#l&S-^Ho6 U"MCF6;\rv5x^:q?uKX;Opkg[kHB\U<\rHGhlN1(h.wiTcZJd89St,a_n/( U",'Yavk8Ytcr;,.a$;_SFM&)5_&sw9*m9k]j/$6IxZIRNzV5Svv%G6/YThPQM^2O U";sB-u^n1?dM:KSQ,^Gi.spSjAS.SRsKP(^JbhhJ]^gQQDQauvdWEF[P:BduLjP^e>d+Kxb4xLUc3BO)HV[U_Uq&+SCy319]h=ME:q+0 U"5iHE53Qc;Z_7>Q.i^*Bv=IIAO3mOitF2I/wKr U",)%NE7shGcNwj^2yG,N9;red;AMig?3+Jmn6A,*iskB#Wq?T(h_+h#X-\f22GGA U"a(FWB&c'V*%X^uP2v4%U#.wyi,f%zf9h83W'i?q2D/o]3E_n'u'oT=KBtRog)U9 U".>TN9o5tfpxnd&faF2[2[.q)gr?FWu7UPT.X_]:ZX,a;?mYFxI^R$-a7uto)K]q;7'AtPbeyi0?c20+k^_?jLNCC;3KIVFv(B?L#H*aLe8yzVeC U"^NW:JHkZ;NfLO7]Wh9W'hDGN3t2rP7*MK4f;S*v%>Dd=Q96X=G,oW%SmeTJb3'? U"D_?N#xN;-o;$EvFoG=?>Lkx[i)]n?8LR;c40*S.=r$IMUk\\BDryT^pCnSr]?^d U"'('fjFY-9B(&&'qG.vnGqW?%#=M9Nyb#Y-)hFkC*4?g%nfq U"J'qvY/8-y$qp5VrtDMDF%hE=/>sXDn9Qr:ePgV/95sYsK&zxEMHrw8;%rT*=gr%-Jv2k*Ci[5h$C4vfeD0Mq3z?n(;t5ir4RfHVj U"5'8j0*hW&8LX:_NJdEAn[YiIV2b&KF9c[&4Q(v1[D.>/C1c0;$(]zLZ83,5KQ%J U"H3s=I5h%DUU+$?g=RnF7=0gYjVAC-7gghGcS:VtK-M%p0YpO:#A/rYY>MG<^Ib9 U"04Iq=*iuHq=JVT#83R_%b/q&/Bu#V>,k],r2%3Ee]Y>K4dlFWPP/D4=-Qe335aB U"ndg%+RXjL-VGtBLaS4^L/zyJTP,)5qfVjv75dhkGf\hYhV0VZ5\$]h1v;^bgRlb U"#OV3w2SKX8A>eG*w1Stgnf3ee_7JQQguAPv&[2O9.9.N'[JNRH8&^W-]X]hbk8d U"ur&]YZhhpZxa[snbT#pMNSb6ernmi=_Y>s't1;2G#&wsucFX$wlWg:W/X]_uld1 U"tLDqbW#-w36%0iQWak:4XW56TqN^?pto-]^-EN<#oPijg0#r%ZutVXUUIr#DZ*: U"Z[ttnijcJI>o0651>U8-g]&w^4k.94y/]gh57F2>:NcS'J$9v_*cgd]>8lum=e[ U"css;+_[\q(jx\)]]['E-=3B0[Z0^VddDdR2)Lc;>>.Csm?(+*\QYkKm+j+^)avS U"R$ueI=#3(Q_d;hZsKOsA*PAvg[n:eqM>7_[/_Aye,5dWAFZ-rI^>znqZkjKyITX U"bnTaqX$#^LaRjVxiMj;v1r/Dh*+tVd[h)c<1RpHHxC,f-Ym/GbvzW[^04]oHQN' U"iqj6/Pu4L>ppLo4%Bh+=sJjN8p%JOdrtsnI9g:)<7#4?>JmZ$zVKuK6X+p'477x U"1TSQHiPL(0B&c+7sbL?\+<:k$wcCKspJs)8&b<^]6)MLE0M?fh:]?R91ki0TVM)XkTlNXBg\FRz:Vw1i_Ca'/Dfu1I]Is:p39me3_gQu%gT#/f=Y U"%4IMYNLe;1Xp5B[D=dEqW\/AY6=3.>(YsvAhb=4R\]QUu)lj>j]Suoj'GdC5NA&73ss(V.NaF,=rbTS>K4RWA^pm3xl%*lwI[VbGKzOV-5F U"l3JDW/\S*?<+5t,;Jbu^*:..sIT0Li:EDHIhl'9k:,ms9>AOQh-O_c/b_E%P(if U"$%?17/06+;rLrIh*?\u.#(Q$h]RW+TZ\PgXeP))4P\)0o9n6tr4 U"RRl1hQ'[6l:]v=;MF'0sAG['%%P%'%%/%%%%h%fuxh%wShtar U"FuH&:8f98mr-F;*FBf[':qWag%od%5#aM)*x2MXg:ScisroVsY,F[t50EG,uo;N U"DQ#J-nS7c:/Rl^^2;Bwo.jy'/7b*5kY7BFI;_%MnNTRNQ:(>7\rXJXt;554ts=' U"p2/aa\b02S/Tf7Q;56U>N7lD;Ggu_=M&Li^k;$Hwnp[iH9=axHzJ/\ZSEiGIUSX U"f5l2/>PYGuBtpgrWh76EJ+6KA0]uk/g?AT0sm,*K=t*l;B-D4D\5c67[(>D4f.e U"Lh^ptfm>Dr.;%5LlCHklfKr;$R9Q_s4n%OlNc(p*Jntb]c'qz*2l.6nq-\\l-o& U"zITs:Z?.>zqb6a:Um^C<1$ln-:*Aoh4qBcJG\GZ16560fpGzmg$(vEaTexfktLO U"mx+;*Iv%7LB/eU(e6:%U^U'FYn&e2QX\Ac]3[i^YUGO+'g;RE,EUU^y^PD$V1 U"ke(oWN<^C(MR2d%Hl.%+%YS%%%/%%%%hfu%xhwS[xhwf,iXt#TR:#6;dVZRP;&71OdQ U"&SI2v;ti7O444]t,I&c U"-xgxVQwXJ851?[B?[S4uNFJEVkBglJJdkB2N\1K>gq0HbYFo%cAitEYpg/weZby2-cMizfu>.jAalfC+I'8W'5lJ3Todea5sxa5rVkaGkNm:Zmv-R8D>8bnk3v>,V+fFi8Gq U"0hG>H18PX%[0Q*k_PReJHP7F<[Ru2M7(s93^ysB74E[sx=)^82,EoT&c8MP+;xMZSHRITBwP&u1R<9QL3zZkeZmGV81.^R?-x=XQn%*jXJL7T3uVT U"JnK1IkM6e_Kr[+9P,XLlin-4LRM1$+kGf87h\bdbMX+WUkM<HH)20$wAX]M#a U"h8hf)UDA?o8f78fUu.P*H>HcXG=;N5S&:WS9*EfOnfu6mkL7lurdK5=b?VHcvkC U"4Zp^6jjLuHF8.$+08:1[Go7+S\$<7aHHn:uo?/61\tc?h4=kC7b)o)l\nNWXhPktxw?K3uFZtn#0N U"U,n#DasR#X83<7-ux7n4FQ;H^mHVURkhhBw_XN#1S8>^v\p4FruVDjv]4E?XPkk U"ce9=^,1bzjje6YT&c,FHa[\L(\utHs;.9>P+wYqjnKdISMRToTD9joFxl/9g,wN U"xyAdYxdciN3W66AXxBu=?c-?gzD'kN'b^z=X)1_1*L(Rny3SFMz47Vb7n5sj+m< U"M_xzZ._C8DF.W4e:JD;KZ4h^jloxz)]6jEQY5^d?%W7Duth:Wp]gpxBiGsMr+B$ U"Z],nk=[=7X5I#IXbcPlAHiM%KWnP U"QsgQxzA85gVgEM%UM6T#nl^XD;8QW?.(O:A7-Rbk]yucJ9\$(lt_^\BnfB?]AS= U"t_QCqW>v;2GbmsVKkk:oqQ6imk2pE4VX?>MPNIbsRHpbbrpkaP U"p+<;.?s%VM0fGJ(q6&'?GAxrpW&k8NY+?P_C+Zf3B*KcReKVYm=Af8j U"VDVgTnPnTPl8GKWH'C6j(NnWs&3k8Dqr7?B?31w2sC>_vWpKx7pDNUXK$1NNW4Y U"(HfxBCe#nnG)Vz'v%mUh5lXp$nHMiI\0)U+Zd+]v*ndiq/nq2Gg/Zi_YbLLgYNN U"syChuXFjloq_$pF6n?r:8[#7J:#N-'u1?&uFfCJdHt, U"MN[jqKlCnTLZ,TuWCHYqLN^n*YnWuhRD;fQ%au2gd07UkzT^3KIm_UuvdHszhD4 U"KVio8XMgXc&I\DEr]fWCl]IDKK-KQWsF$e^4XHraR(LQqL8MZ=Tq[tPrSH2Ha2< U"Azf.2e61JLbGL?\G$A]#envm3'/VtBuS#'TAJTG2XMPO)X0V>B5[0eq.vYf5bBr U"\B*KFH$fBu23dqw% U"v//xJ;ahAf%yd3CwR[z.IuivkaIFY(RoKx^A7qRaef7=,%ko>To;W03Cgaw=C;G U"xNb2G-kp/ZpOoCncP,-)s$WYHQcLg;hj;gehY%NCW5;,qicjW[gg$G]\lV0F7u8 U"Njtitl^:0LE24rjNjx(?T;Z\rQO.iWThl55;+WUx5O[ei>BGfUYhRJ*#[\g[I5p U"HH-r.7$27#mb.+Y6#JnmRsF$)-hkxl?b$VsZS4YL/#gKL/rq2?'P=ngk*La1EH8 U"N'l,Sq/O'txe\TZ4xF7rTfeS;tp)9)v$oMo1PQ3O>dL>GrMZ2KYImkI$REVOTv#Ru[*2rH,cG]a>)fuGn>?%1>ml7+5&;Sd.We%7%O U"q)UnMdof2Obg.-89-=u>3MkTlVe\t>UX:Gyq)4D/FO13/sd.kOepJ?(>lNbKAUZ U"(0;%:uCQru.8b=Eml;ogL:M.lX'8+t3K,ZPvI\cnRXo+f0&5]b6*.]d^U'*qUULJ< U"9?b8=\jYrThWxThLP.$dj8a4:ETG,hREvlz=e%c[73Z_$\%HDls;>\5#_HBSUqb U"bP%qZsV3b*:TIH79Z^iXvH8Uy2gg)jA0MWTPH#k(W8cT6ZkpR(DB6o0oSr)=pUXh*(a*uXG;WCl\H'a.-vKjLm4-8Ei^.Y U"BJEhs4Et_\SCY6#?3o:sMTiThpFnAGM^\%a7.w3nZWR\&N%up%()9%%%%-%=F(K U"Ks_Xsn%S%%%%^%%%%0%%%%rfpj%xhwS%gfyP7nQGz-IHZv%msQM7sSK(;AH2onA U"Wl+\pG/s7:/sJW5+5+(Nx^UFzrn(%%up(%)9%%%%-%zDv>M%J]?u\[&%%#%'%%/ U"%%%%w%jfir#jSy'(y\wr,:UU596#uDEWxI_/7\ZW^ U"l5nMS*dK'D&lm'%R;24)3Sfs7QJV*[lD?nbxs>,^$ U"Z0#btK0sEmzu>VAK4v=sRdMJSAE8qB[:VDnUT#.;7);_N7_S]'^L8\?$#,1Y?Oa U":]<,UfbB9YjBd8HwK-'TL+BR(lBOl4fI,Yh8[K.tu*gim25u+HlPDdWfTNQNLZO U"7z3-dUc5s7j,s+C-2j/NZh;I$HGC#V'$1cf[Lk/M,G$nj&F_npTGs6o7eS_3+kX U"pA5KX2l/(k*q2xz>QdTW['b>?I4;v1M9LH\Q/Pt4QFZ$f'oY=ERx=eYM&TxawhL U"&:=DQmkJhSlrIB;L\h$o5\0R<0VtR(cg#Yj*0mnoQYE1SvAFt$P4]Vq*NCM.w8l+e-%%%*=%%%.%%%%%%%%%&%%E%%%%% U"%%%%xwjf%iSgf%xup&%'9%9%%%%-O%(o>gMv*5&ZC.%(%O?%%%/%%%%%%%%%&%E U"%%%%8%.%%h%fuxh%wSfx%rup&%'9%9%%%%-O%,o>=MF0s%AG'%+%P'%%%/%%%%% U"%%%%%%E#%%%(%7%%h%fuxh%wSht%rup&%'9%9%%%%-L%oq>(MR2d%Hl.%+%YS%% U"%/%%%%%%%%%%%E#%%%r%9%%h%fuxh%wSxh%wup&%'9%9%%%%-m%F(KmK_Xs'nS% U"%%%^%%%%0%%%%%%%%%&%E%%%%7%C%%r%fpjx%hwSg%fyup%&'9%%9%%%#-%zvJ> U"M%]1?u\&7%%#'%%%/%%%%%%%%%&%%E%%%&8C%%%wjfi%rjSy&'yup%*+%%%%%+% U"%+%u&%%%CE%%%%% END SUB CLOSE:IF S=182AND 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