'===========================================================================
' Subject: Rich Text Reader                   Date: 12-14-02 (  :  )       
'  Author: John Davidson                      Code: liberty                
'  Origin: johnshomeport@yahoo.com          Packet: TEXT.ABC
'===========================================================================
'>>> Page 1 of RTFREADM.ZIP begins here. TYPE:BINAA TLEN:3553
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"RTFREADM.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%I-%h]8CR>V08-X+%%%G7%%%2%%%%wyIkw40/3r4Sh10B6h&<>SRm5
U"w-kxx0]%E&<hVG8'<#yslOC9nAWqOcd6I->J\f0V-Ph-V?8Nw5F<\2muSCOFs3u
U"EeEeZ,lk[INt5&^81^Pl]nzkU:ZY:Cg1s(j5d/,*ni)a#+9Tb#:iI3g6^DMX)1j
U"X7:8M.<14l0ONt\HX&m&JHc=Q_AaTMXOb/eeE8=R^T*_3Lovo'W;U]>n=1O6j;L
U":b8')wtCu$Z>RWR5,x9(-,NAvI;U_6J3H)sntIbqg;EOp9vg)Yl&Tuc;6^q&K[k
U".wJ,NlbF9n7h#1l)QTw0(=v[&P<Cq7VzlS-^yyYTQNLC()jH9&DUpt<Fp=*r0iZ
U"p6Sq[baCiK0fEVxVTHt/-bCl&CX-cS*.RA.gvGf2CJeQa#9[g7F///*p:q(:;jZ
U")ifmAMA8c]t1QXX,Dra*=+:0VmnM#C<hl?/xt5qI%RD3FMjDr=T^9>lqEAcOo.G
U",aJaZ-01,:QCl'7WCh1xf%7,1<^bo#b#'dVR:eR#cB=[VU:(+_$[I'pf,k?2*C[
U"BwsaOPj%>)=V-PnOs]^tiwQQI90j+>^cfC2C)8s+c[KO%CBx1&+wMR#;E'<Q8Yx
U"8Ho1]nAxUg.-.ZN%1u=')B4]>r[[KV*[I+4\#1$f8FRm9/x(G)WD\$zQlGHz<**
U"VuMVJ8v:f0(2o>ROO:B$ZM/u3#.G$S=19s4JxTdz=ab?BCiB:/b9%H$Q8fG6EA8
U"1OsgI,P?O1]c2#=-Ls0-Px]IbHl^Ycq7_0C9:8rm\AmT<&IXY.ZqGI79i?t.Gf;
U"k&O=RD%vnwh<QQ0Gc_#<C2Z\0<R;L1;tB8VK%f8kbGxVpd.,4iCX6ZomRvLDZFM
U"Lwv^t+PjDHnktDkNG$&mwjOjElKqFjtpbrUbSABtN/dsjX1?(gE>7IuhV5erOEQ
U"g6kW(/7<hHdq\wshc4*XUz?%kidT9OXx0b(Ub1XD%)\ONQgNw%H,LE;5tI_mndu
U"/LO(#qN1ibJR)&ebN4?K4.$;\>QMWablF#foyD/._?0EthiC6u5*4d/%iJuxk&g
U":&L$pp)0X%ytzE[0LcFAf3.,b1Qf%Gv*LMA+%NZbyY3=/3YQUZZI>iDAFm^:J3$
U"P;^l-T.zs+BXq_[vg-IuJ]l>sL#8\jR<*r'qEw4gL7,cW?QR1)*=YQIYgVY>_Gq
U"L$QU&YKp&3,FC%OVL4nKM8PKW\Equ2-%.<SA8C.W&a,&=MmN6?m4jS?#[kgV#kw
U"$Wp&(+ysY3)L:P\0(:Oy<H)N(5ZHJ;U/'&W4wRcDrJ[k,Y)'5]UiNSI)fZ[/Epj
U"y_;hm]qJ&ltu$'8_MqiIf&pS;=FBt[0p2(:mPu,lolmk7Gt\USHuhB*V0$Q)')[
U"Wr.,b/1i,ijluxVXs?BljXI[Hht_NMzrz%=Pl=i,HgrH]RHo)C-+nK\T<$BIw6u
U"oFENZ]jV/4R=Be(B9*%FjgGSD5GW&%>VQeYl,e+y4INy]_Yt%Q1^t/Jr*T;[-:?
U"B>-Jqa<4>>ObnMeg0Y^,wzj$_PxREf+:;>w\8QD&HD%,pU_t/Zf;2(],zj7.Tax
U"#<rL$BFaG6fv8B00%+>^]$cZ'nj,U$>D5FckqVid)*z=_W)gG>p;rjncqLe5L.u
U".v0?DR'2042K?:YBFVbr70LVe,Pesa$>W=6:9at5=GXlv>;DKBbmNGm%84-jNEI
U"zLLA^pKD?TZLOeG[ZTR;/n#[+;^G:1,TelTVnO8]Efz]m.oOT_C-NB.fbvwFVW,
U"rl7EBfY4'\mD/iQ25(9&n5/D.nii2m7sDLNf\w\X?:HGMOm_aa)NN0rRkfN4Ef0
U"]4*=M$Ljh>7gvT2Vc^0$UmmlJ^GK7Dq+)bu;t?-M1YzKj3uZNd*B5,g?m.?=s-\
U"g>j5/dc>Ct<\$r^7HJH-Y1Wrg6N,XJ+G:RcuGF>Id=r6Vgv>_8h6Wm>>f.5:CYD
U"S4UaGa9Ns1NUWg9,jEOu[pK/LQO,>WM0;HCEk0LWTY1WhZHos42;p[NS]jtWB_9
U"WaPMB9z6IlG/o8,nbqSTdB+A=5ZEpr\#irs[E1cjUYofqxFpRQ$aHSu#$G)a4]]
U"i?bf^Fn<HjdVogt8rIJs#Jz)szq6PC&JmNmkZV3RJB8],1'xdm,g+GYhhqlf==I
U"ww*%up()%9%%%#-%a]/CR>2/dNE+%%%s4%%%2%I%%ACJ5w4023<4SMAC5Th&<>T
U"m[5W$a%r4Pe/e%9_D;Lbta_D5S4f4p2($50)Y8=MtX+RAAsow%WVqxLAFlo$-e-
U"X'e(K^#Q4$mJuB$=s_1i-fR9d+9gVllG_a+;>hSmtItZb]q*qBw=ifL)[]DIN-C
U"ObG*O/dsn-9UOvq-K:&uboO&\)n,P$+P#,s7s[Dtfv6HCn5o2.v>+IP%_b3V0tM
U"b.IR:^qllj[uem-84aRdi,XwGCNueQ%bi=+k5b#cqSUOat3(36HTAtH6mv27)=R
U"$,0/C](PHRUPl/nID[drO0lK]he31-&i9)=E'\30&?H4jw)KBb)%?&>g$8X7WXj
U"G:9]Pdj.8:LTTVd'QeOfZb%%BehhruU7a3SD\xRMD:rJODwyw4f;PrV)b#u;Zg$
U"P:'LeKYjQ>)+)E'nM7yNV-g/2(Pae#MUMbzq_D%9tU3GO+^:+RH8jMjHCuhH:[f
U"ll?e.2-l(X8=F51e3AnKm6q0ThqF=?B.Mu=$R8K#*<sya%QLsI_(X.9#XUp8rO3
U"+MTp$96*mGZl;RH;c0ouQ6X4,OiPV%MpC8cJ?V+Ue82j^5J=.-MHmef=t_GSYb^
U"+ii\74R>eg=_26kZm(3MG2^\k,1$+=fm9<5bNMi9;C2&H72f6LNsDU?u?('+i4o
U"lk[HD77'kA'Rfe.d#Gum7'2d6&WT)ps,JI_^.n_<h6v>S]WkIdA%LBU3xEnBo;)
U"G;UpAV?t[7;XFC?Bf>PJ?d1&:8\6YMyggxL29VH(nXC;RYLF/i0I]bJHVnBUeHh
U"?Nm$t0locjK_Vb&W$-[=?GC-9+lN6s'uk,BE)^F5REWwLOU,BDk\BTO$/#>^y(g
U"?OK$gkM$F1<B%gLWt8Zq1u#8EMS4sBK;6;wk6]Bp]s,]%I&jMBw)mD$o%zyq3&_
U"_I\p7EY$nz'19?39QSVXksST]J[_[L-cOV/PdwnY2^]XH0(\2f*E=F9;\fIN:a0
U"KYkG-p?LaB;oTm9()&n'n2N,tPPU*A)PPF'o(_])N)_&)EYaNQ+i/YO8bH-=iVs
U"km;S'LG(;oD8F5i(iU?Nt^cwbUmsV*7B<fc1i$]Wy;kgow-4jF]PAB+5\n(M&bU
U"YiwoPORmejK4vncE]W=a7P6bOa;cx51<)u:HIhJo?3>RTPl'=-Lc)r4Ke=26VoL
U"T'Vwo[Un4,w.V+deD;X1[%Y(qGsRAvC+dg]93/W1BQ*L]ID]C9ur]qbsC.Wsb;j
U"ra4\-Ax#oC4.;mS^gTaDW#e;\u2zE7c$-su1\V)+XnM#:VJ7Ljq.+MRlc<SDdur
U"Bo&f[5[rG=Yo=8Rk-;]bJB%]2U1=Bs-;BjTfIr5)B>&m5$wzAaX,;a*7xj,H]HN
U"2a?W.9&.NRhs:xIUp^QF(a42;9O.W>(Cf,RoK-3m[I*NSC'n<7=%A_;vAPVjl<=
U"=>4;'J6aQ97AQpM<T:O?AXPSAOpZr#*W+GmjR(&5p&:3aC2OmWulT/J/MS#>6$%
U"/E%9y]U9IAxszDIZr2fT$\ea%Ii:lbZX^AJ+=_.IFpDrpCdDw8OrWiKJMIPk70R
U"twU;81gwojW.$+wb#N5?Q*1D=j<m[L\>NH()EVY)5;mfNz.5i$-9KsC[d)=e$Hi
U"kX<+TRV1I?U7AZ-Uh0FyK\L&>dk*;&GHe'm'F3CU]9h,64Ad4$OyK1zU=DO3buS
U"aLTHOZ1.(krV\RFjT]1MMv*.-pRf]jG6GrogyMUtd:BZefj8,TSK=1'/Wu]ZC%e
U"R.V8)-.C7CS-7UAr[INV2#jl$oNE.Ug6D7WL.KUI/PG?_ZjY^W+>Ux62xC/IkAj
U")\z4ZN2E;9yZlOT0ufsCx^Yep^05z8rWgDv2Jzr7iJ*rT/%^)I0sJ3+_[bzECAs
U"[QHPz%.B%VIqmUn4U>fFb*??G\uj']:iJkphX[p4eFD.2??L?5<;iulluFRP</8
U"T93f-k18Bi+_tB#>nU)=#tJ/p)t(]KUt_WQ;5Nh/0>6+<ux(AE+O])S,vn'h4s\
U"X#F*Z\t79s+k3%L$EN8htU[p1ogn)yX\77;k:4Dw8H5e?[v>BxWdSzA2R5G(TOK
U"2OZ%uZKtcc>JvL4Y\TY,hk/#%/Cd?ewbQ:nO#J9tNl7t%4up&%';09%%%%-L%h]
U"CaR>V8(-X+%%%G7%%%2%%%%%%%%%&%E1%OP%%%%%w#ykw4D03r4LS10B%up&'%;
U"09%%%%-%1a]CR/>2dN&E+%%%s4%%%2%%%%%%%%%&%E%;OP-+I%%ACJ5w4023<4S
U"2AC5u%p*+%%%%%'#%'%E%%%%z%2%%%%%
END SUB
CLOSE:IF S=25AND B&=3553THEN?" :) 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\3553,219);:END SUB
'>>> Page 1 of RTFREADM.ZIP ends here. Last page. TCHK:25
