'===========================================================================
' Subject: Beetles Yellow Submarine  Saver    Date: 06-11-03 (  :  )       
'  Author: Dieter Folger                      Code: RQ                     
'  Origin: ba2049@bnv-bamberg.de            Packet: RAPIDQ.ABC
'===========================================================================
'>>> Page 1 of YELLSUB.ZIP begins here. TYPE:BINAA TLEN:6815
'-------------------------------------------------------------
'                  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,"YELLSUB.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%%-%%%nYS#>7^#_'%%%B,%%%0%.%%(j%qqxz%gSgf^xtyX)>jU5hM^
U"cx]ZyrC\y[6%NSsD<;tSIJLwa=_UO4cZ=85??2/9k)ZoPh;^(PySi<UGYug7tuo
U"V4LduxdLf0m'F[BlDlRQJIVn)+Olw1;MVcK%)baFK)S/3Ews'<gHmg=*_qQ[sH/
U"RIkui3D3^Vi=8^t'/Ap0ihX[7O)ROk6gdw[V._KQJ(9'+VHXL5WcY4IMAGhYO_x
U"S2:d8N5eaW=A/RMeIS*=7m3qd'XjhO/A3>b9ir%92Kbi(uZjl<CNop(NbGLF3Q=
U"7I<>%YRxJt;Fmdd1aI]0Cj5&EZc%AEV::)]oLXa:(,'X>/bY:H/<EhfoS:Kw57^
U"nR(m(sH7ih0XqElRI8B&D';^5e\><tuRpd/pSfG^Eit\LRKcF(^#*?D$=,hGFug
U"GdWPt$OPf4=Rr]Vl/t?PS0yojHQ%.?.9o.ZQ'1BC*lSerg&P4MSq0hU]^;v[;)B
U":.#y]8awGv)MC$t4Lr7c%8e_N#r[;$LUD7]wi>*[XNt5#%UQcTB'1k>RWxS+ff&
U"a&BG]$3f4SUB69d?N,-oXa_IDxjC5DI_Atr?'<p3^19/wzJk_+Syq-+IR$isH1_
U"JzYeR0'][]/VIJA2ea6ce:eTT\XqDO'0thaKrk'qD4%0BO/Izp[[,fF\,N&g_1+
U"/bVEiXtW1H*3XVN\HiN.D[^Y$yeUnS-E_r'(8Obg9b--Tv(R=M&BCCamH\i\%Cn
U"51cg,:58V>iA\)[ouZ8L+ukp._8HPKsk>uWp5re^8Fvj&[*^e\M.*7QN&<1q#ii
U"0F)DIk^A)\9O5:,:0H1.n5>Po#GkjLzs:=,D;?#]M3tr#j;jsIIGeN/)iFIssW6
U"y4cmhD'9Plr=8b-9z>mw(N^.O57#\oVTE2#D2t;9>h>cKbp&1*pp(Lt?B6Bw;4m
U"0j)tL#Uejxo+Z_/Fo3[W'K39e>Bds#+Ow%u%p()9%%%%-#%%%Y4SfD?%#S0%(%u
U"^%%%.%%(%(xz%gUSgRruf)EH:#&gCNTf.w[-?a$m4)ce<;M%eNvY)af*BXi&)VQ
U"A2'mg764tOWfS4Jo<.A'In?5FS\Wmj>Mbp3Y4'1M$Ze#JgjetAbskqiT_z&'eGV
U"GE?e-7pd>mTneBTdX5.]R(cIXtjthL_?tv7DNl5KNBw#h;$1MhA1D_M4bU94Agl
U"s\XVNG<5g#nMGS_%<_*HL1.%+>7+((P%.)QPEw2_0QMI8i-_G?:EX_SQIE8S-\0
U"C6.ES/AFc(?<A\g&S(Ju(<?C.%6&9f&n=Gnf)ETAB7;Gd)D)l=)DSnUI9KP?DgS
U"e,4eWA=-^;M<^k*AS]_-8]&W41.#A6e,1imSaW)o\g^6o8m%.MPe/zeKF^&I*MA
U"Za3xPOl4P<eQD6F&3u5&,E'M/Pn,EndICs\en5u^YOY-LqK0?_HhUdND3JF,h5%
U"#H4-qS#)g6cIf?]o/l-Xi%Gi7HLic_Q.1HaEQalXS1.WS(IHFsk#m''M#(ju.C;
U"XEq2[SKu#,Pn$%Y/G.9rIQnbQ&J-OJZ)?%1+N*2X7qi#IrGH,_JJGJO7wR4*Ifi
U"Mh,kR,T5i?Tt7ey2pL\i7iuK-3,ZBuI%HpDHM.s]4/dsv\(lqaJ7tV5(B)fvLLQ
U"sr)=lUnXBnd3;nu4];6aihF7nL#06n+T#w39$+4cw7WsaIVT\IkFe#3YrIInQHM
U"?LHj=Ip0vo#SRVBVjBHfQX^x7Gr_n/aWnL#qFtKA/CQO9KcCyG_H9o;pOo0_Wh'
U"'F,#A]%f&9*)kZ],C^xeE7fk#^<AP4nGcD<W7);o0ciF0a8I&TFdRELjkQeRE9w
U"0[(BpP]5*oX41RX:qy8Q=%5:&31/M;V2iRo:-&H:.y?:R/+g1/cT/'c(P:Iw^y_
U"Ark*i;^WABIFC]/TXH;PXG18LUiep^(mt'[?i4WEHDr+;*JOR?Ii)D_GxYAc%eB
U"a']ll2K;7CrC?hJ?2>V<b101yD6/nj<6Y.q%wQcKYuS8pSblrrJlR890=[rs_Al
U"T?sTKF(Y8;ienw[^C1N,9ZJRQ+2h-#vZmls)AT:jUcAkhY1)6d]pfKUR1o3Q8S+
U"(CvfanMLE\q6??I?uda+%bP3;HGb78Z58P5[B0Z55o(^3a6*cO'C-P7Nab+AOJ/
U"MY0\eoJ,)SGP>I+cUpNmHJOhz87[SYa81J,(1zQ\B-siL5NHE)[XCWZnxNM_\*&
U"MUI)&bxMW^(jiCB<6H?T_FlswAS6SPQ,f4(N'Zg3iuZP\Mwb.HrnY.'EL-B,fc*
U"CV32BvNh35m$-$rLaK(Oyy[g9UtNLdDlO:pESivQDFWF\L3:cL3C3Da\8XfLMHj
U"Gpq3NS#>(.x<XTox]81\Ga%bSCog<M9Ee4Cx7v5>(<)1a>)oqp?7N:E\L0Pj\d1
U"RsDR\:Z)%M9dtp_<H,%g4Lf[XS\d:A2TQcn6oGybgJ^<g\n/T$EBj>m<ZFobqr;
U"'R>)Jj.tr8,%0\vutT'$Q[QPvlfy;:=g0lH=(3cE&GD3/rVo$Yx0#,(8Q#9%D$o
U"ZCh$l?6Wg+AMttQ>&N7Jqk83XVoZ\5^bvS&G\Fy#J>t=^K'UaZ$>3RtS4j*3(?6
U"J:A0d$G%;z:jRZ9%#OVm/Esdr,pqKb2V?\G\Xn$sffR:x,E>sD+B'cW$pIx$Z<4
U"+xx[mT)L^ZcGYrI88PhtOPd?qUeLb'jE>]1kCS>eU18>]&9*7Z0/ip2oV*Y^lex
U"FqUM3m=ME0,G[JX,eE[w(QIo-9/E[5=;u8QPPjE]h3Bg51^d<:fAP'()+o*oJRM
U"RR6pQ*+a:eAGU$ENWUl3AV9rFj\\?\W:PTmXgB5cN1OhMG'(QNco\59&+cjQPyN
U"My+SZoJ47u=7V;U:5Aa-?+e=&sbZ^LWjVd:i?g61VD\?z*N;K8e^dAWUAwY4K3.
U"zFLC&&&MZAUY;8Zc'#_XWCnx+d;hOU-Y-$6=lS3Tdtu<(D^n4tGwnY1nFr\EULu
U"SD1KhiEJ96Cf'V,[OR)QQB4Z->NqBPO'In--3r8A,x[5\,y=eN]qrkZep3+u+;s
U"vTWTtD+>?t9\LPi#a'cRTD=ga>:j8xdQV+hidO;2nmKsa+LvMy/*=/xQ9_&UEjZ
U"v7QChkbHVlgOxgQ+JXDYImD=^gSvp'0^cnR&3MT7/M%L.B>:kZ3$3*ecO$KxueZ
U"'+bL=bEUHC;c(OcA7s2CeEe[QC8%X%8iR-\JqK;(Y6ccnTaY&hd#hNDZNdv0>.h
U"Nz*(%Z_:J;BNX_MJ(4ENkFqOqv*H8/wA\^pY&K,cC3lGn28l6S$(koK)#k\nE-c
U"P4/jCN6qrj*LGwcu2bqNggXlqlNfu=LtkJ<?/<mYtoQ%IlYdHVVr4mZo-[r_+E3
U"+qf8J8V2__4CC,AjGQ1*pY=B6=(,gbY>CK'uYGl)iVz5,(S[iR;6_):yti]aalm
U"=ma?rrrek/k%XP<Z.*WjDS-OOhC];]\.0\IaC3&j[&#Ct1lAQm\Xx.iG6\M$\:h
U"cE;'V<0[#zlNIw1IiQp8GXhWX#iKhD&48$B/nLkDPLMxHZi/X_Kc?zE3[Mqln&_
U"6]aA2pWE5j^TZq(#%r8NoeJF\3]utYgoWU+mZe+Bad+B-'UG$FGLKsYMP=rEJiG
U"JuN^_DDR2lX-yfhO]NjP\.RRiX][Uf1VApIE?\A-x&x.0f]:l;nudt\B?S_O'T(
U"3f%B[RfQoJpiLLhf<e+'C)^A,,D.\uK\D51'pjDEWnl=($][pxpfgrLkHRM9HEq
U"v0%tJli)6rxy\rVAZ^HoBWhG)_l=>2\Y+lN.#i]F\,[J0>9jmHngJkrwmoX0P^=
U"Z#PGVKFr1[1IfyEq$wN1t6Ja:u,...eNCWJ1Mjxx;,E=Tn$PZgia0B.swDVorTR
U"<mq4zqZ&V_'Q:?,T]F%/\M0w^)hNQ6<,2&cTlL)Pxx%l00xOxG^x=Qwk4q?/(sS
U"0/o1rP1*(n#5F5o'\vqHmbhAUj[WC$4ls%0U;^\OzUv,o7+c#V)%LqiJnrJBMk1
U"Zudsd+l'<)XJMpM<l3As<L6gh&szf*\S94ZwFDfJfrrFLUJ]\J0^^bfO\j\hW#G
U";;)3DlI\K>1gwTP7],Z;\b,l-/fO&Xial]WV;cJv%8VHpA$UN\Vkmb:[Dm:PjDJ
U"^7X*ko'V%3l)pHt-of^t#qv;F>c>>YQ4B-Kbpm[ZLCnm5/lN;Bh=u?L6=7Y3eVS
U"AX?h$UWf6$ppYT1T>dbYH(&:5U$dtsIg6Y7hZUrm#%llvpiZ\)c9n1?H0Oz34VQ
U"nK?wkIQzDEW+>LkG^dPH.\f^?'ZjGD(G',Wbe'HlkglQHkQYL;Fq&P[bWgW'd_,
U"X=XQSztc/'\bF3yfj>hrJNhmf'$so<3j[.h#S^Ti76qf^8?Lph#XJ>f=$cYl^n7
U"Yoo6XRJXrwAdO<mRTaM>>0vA2d;ZH>aUGhA'DRr6A-2<Fw'i2ZGy#?<G[uu9LUP
U"f<h1flXx]>#iWAgS)uffs1*8sqG8wJ[HW1q5r<Pcegmsb)Iq9HphR22mg64sTRY
U"NtP+#jH38=,WJLn/DgZb-:pp^Pk+K\ZrFip0Ju>(8'sOpj?&U>D;e04?x4M\4P/
U";e1:>eJvh;AnOjj13C2jED31sU=3EXq*A#t31Y;ELLbe5IiO1dBKUaM=wZ:tLRx
U"6W'ZYN%up()%9%%%%-%%%nYSN.5%q&0.%%u^%%%.%.%%(x%zgVS[gruf5jH:#n6
U"?#X*;EN#^T\BsU,'O0+0LeNdvYaDJQ3u%KQhc+0%qXx-R7q$n06m[%p3_nO(;4+
U"K?XRI9kC+1JZFAhJ4A5$-#KnL^H$[]S9P4'9AiQ7X&hpl;$1RCF$wz%lV_X8qI6
U"?(cXpXHutGlwR=Jkfu8*=*c9h-rX8Khpa]mCrVOCf^ih.#ME.^d4gnc4Bev6e=&
U"1QneiJ7c=)o71Nc=+V]PXZ)[-i*=n$>2I:B?.#XAbmY]VK#]Rs71?##.4n_5m=H
U"O1sa_-aj=]B%h:NsF[-]x+TKW7#MHf10j)XK[7I3b1n+jr^E.'r17wZlKVa02^a
U"XejIIta_OS[iS\:uj#(Vj)L#9nG>+7%n7SXL:jsi21?RHr[KR[nOoBRy7+6A,gI
U"dnmQkqIaMl0A#hJ=Va\MHKqQXUIoR(T;SGakd.(kO'S*r&HwI?[tF4KRi/ns.mO
U"dGDagGqJS91(5$=om.iI;yIIacY+H^j7Or[F_=-b,G:nYAH0Z_shcn5mo.OGXlF
U"IqnQ9(JMJ3Z-?13>wa70JiXm8iiC5&zpI.(n_3zAomCH*O?3zoC7RT5_Y&2*n:I
U"J^gakQ(Zkhn.M:.iM(Z3vo+moc,Za8_ucL:%AR:7DMacCc]&8[(MrKl;$IC2$S;
U"Cf_jlrHUS>CpZDcVi+)VCN4T7aq?>k#nZ/kh1^+tku>2)k,FEr\:co*kOO'Ouk>
U"TwQ\>>$_DI%tzS8'/wK6&w1zEe8(Hcl1G%97ufv:$mh/gF,#a]&pIIK8#S[AE[t
U"/(_R'B$m54&^5$(+FR7yRwMo<-OKd*KVr-Qm>a0+&*%#Tm)WSw\g'VE6MZ:OJ%>
U"Dm:_#ngQ.5Vh?qgxx]s6c1f_og*CP1nTyw^lHu6Fsc$D6+,&,]l36r4BmVBiqFV
U"ie_-<%We_R\7Bw(htJq67Ul5DJHi>CK'*limbVQ_GRF.KppBw5,slooo*Nn;lU)
U"J#D$R+c8?xS.6;9b0K.LD8XqiuFFtwcUm0-oNYVKwL9.E54=tnhCRs5GE^&V&gx
U"'$/ppu44CDMf\]x34muMNA0(e4G9QfXdrF?GLkn7Lklj*GINxziNG2CM#+\-B,9
U"j/pSbD(/4WzlY:V(#KS8z#YWD6TqppD[L797[trNoq?D\0,mXA)Y24?TQG)5<&8
U"^XIgeY.zZO,vx5$N9ZDQmie:67x.SH8T=-t+_:C^Qzu):3'\]mxSGNl2$)f:MfS
U"]K02.c=Pi?>>>nP>]E7=_B_V%&[,,t:Vtm9Dg&N#(G-F.[V6kv;QQLhVc1%81Y]
U"fO>$.68(PwFxyhywQiCmg9S]B$S_A\#\Mi6+rVta5sv>81UcHqeu&aY^k\27HTn
U"t)^i6VJ>$YR[sif/&AG[jFDA&SP4R;ngA#BAo\]=D1q\f\;9/4%C[bRL1^luSN.
U"t47BNAX4cB+%CmYqX%QAvUGT\)s=b2_2^TN^?QvA#>i\1gWV'G1SOC_Lj1-BP%J
U"7)PM,U<sg<*I2KVe\V20e3B/GNnN&Biep(VYYlmt-cRfK$>0;'Eu%\r?hkQ%=\q
U"#pxo)VjCA#N>4hr,n;ImR,*sb8(c+LkS3aMgJJOuy+MWvzShe#&k:-.Bd2je#S3
U"1Z+=%wckgyHL6\9QB#CJSKGEwGSNUE?uwqJaNUFSH^,AmCr?<G$e=empr337=Gc
U"b['V<XfHbho<:ne[$LkCh6=9A*+0Q#?DDD+NvoxBe7u*'['o[F+8)5P*)V;/IV1
U"a/7]A68[B>>e2?LC'8en<eArkbO)/((j-&Ou1K$10qW3[X6sQD/&jzThe,gqVXm
U"88?3Lf,uIX)a0hXUQX+kpG+IIa_bxQBmhv_Pkf#n=Mm=si#w[L0kqxtykoohE:z
U"2Z.NS=62O=hWF5OwoGP#%5j5&,uZZZZVz&XV>$w_G8llSYY4^iW$DT(mex4V2%U
U"k=^LQ[pv%Ha*]Ix*f;d$AVEr21DN?rrW*D?pv?$ftLP+z_f[t:T>f3f;vBX$,:6
U"oM3rEKuG[/5xAPeJGqu$7N%8v6%9SN?\B,AeU(3Y0=dgb5.&Abq:-,,&'VrTp\y
U"P.=;57jrhwD^<Gmj,s9ei9(qV9L1]h=$G1rH^;#k:F[GMt/S]_Dt2Q4yz>r\)gk
U"p0+HuR)Xbp-*q\LN.nBHrMSg]bS'Zk>>h-T1fUoen8Ye.AE^86D^yQR\N?$Bwj#
U"aP-0ff]P$)cW:0E2oXj64Q6NAir*4XmPD?pwYunU[Oq\Dd4ke9L;Dq0P%E>W2Kb
U"z<Ju4VDNl<$C3JE.Nl;#:fNNxgLf(3f(['KBDlGL7ntdXgAU330g-Y^oDfr>N(w
U"D:DZ6]&_FlZrl$uq4EE+r0ksT96sc]5yL_RrUX[2uL\^(WvE-LQ6lk:Nw7CAEKh
U"_#G^a8*-Sp&rViE*W5v1'QV=f/jZFgnEZ$rdmg^mAe)DX[ah,;wL/WPQQ5/ao\/
U"[^c,=<\s/ANB_#h.=7aeR4gUhju(FI:Nf<W$AoFR^rD4&A9nXIzZjt*tixxN/u4
U"ZC3.NfR#Br?O54nMcUt-V0Z0Tg'w\J4gW[?A>6'8AZ-8sNh\+l&6EebLhwx'ENf
U"Fn]kpkEbZ,m6JmP\X\>HrCDqmMxvVKUw1Bm9$gI\,gh0Wza_WkuX>14l1dI?z7t
U"sL3'.u4*5<pl0TxuZLbm6_FPPA&++Mu82)i7]p\4C^t*R4Xt+hY*Vqf7#aVcWrn
U"hb-JJtcO?6D:JCK*9*8H;UY1dbTq';lDL&9.=$kK_TpSdAboF<egQYG4YKVl8WZ
U"qGu-rZix:)Ra#*=e)N9X\8r5olV>3l+rg$kN-*/)Lu'hGl?QSI$8a5clc^WGFmP
U"fe2X=hp,&T_iK8#l&n0007t\LtYnk&%gSFu+m5ZV&lhp&4fvPGg'phX3[<'l4td
U"wr$f#Pj)0#0G)?+fo4pdk.-J#L3[n,T.Ud>wBio_^2gpdH[/>2t.2=?\dq;5PTq
U"R#k,L_%N^62.o/D1Wrrx%x4kltrE2X;vLtRogpP0Y-\gi,h#k_$vB_&F:bHDI3S
U"QDYi3-ZNJY0g>/icNZ\=(W;Z0I<V;JDLFW,PeinFzbma2$[Vq<bJqwxc]qlwH$l
U"8AJJh+zlDMDVt=4gLxxkVt._)L<N0B'3wz)6y?/tl0=DuZ3NUtnBpQ;tGdgQh0v
U"A32+xy=Q:wv8AqPpUdk\,3I>S0KL9=X%PqtPPzLYaX.V4MZvsR.F)vG+Eb&Ae+_
U"?7[..2U#[DCcHaPIp$*3#($1)ClnJ&9A_OD4LjH5\_xgB>2L&)5Q0VZ?^U?,'1t
U"3W#lef_Qt*t79tfb#KTXO#3NNcIR7bH^cDNYD2galwrmN23Vz%0'lfYLW-k:q/o
U"I^5qXp=Hh/SHW#DEsYD0DtaMQ974hsqB\r4DW$JeA'2,]zb9xSV<6jWfnkv^COB
U"^/+dMiHJK954[)Pb'%z^d5/GH_+E+f8$Mftz(AxrW.vCUZa:j3Q9Is8D\w+RTTO
U".Q)XZhBEtd8tGNeg;z,CWoaw[=/R,bXR4r#.6Qsm?UJLmLfXq\G7L/2AnmrX$_n
U"bcZI/NczFu=sLZ.[rT2RF+,f8JX(acG:errHscGnm0&pMZjSQ3&;NivDD6hAHrI
U"FjPh233\h<-/pq8q>d?ht-WUiUG+++M$D?4pmNv8qOM^[rr9N/rs^dge,Hr\[#)
U"&K>Nx8HqWF78MS,cZ]w<'k_]z41'w0up%&'9%%9%%%%-%%%nYS#>7^#_'%%%B,%
U"%%0%%%%%%%%%&%%E%%%%%%%%&(jqq%xzgS%gfxu%p&'9%%9%%%%-%%^%YSf&D?#
U"S#0%%u%^%%.%%%%%%%%%%%%E%%%%4(%(%(xz%gUSg%ruup%&'9%%9%%%%-%%%nY
U"SN.5%q&0.%%u^%%%.%%%%%%%%%%%%E%%%&33%%&(xzg%VSgr%uup*%+%%%%%(%(
U"(%v%%+%[>%%%%%
END SUB
CLOSE:IF S=27AND B&=6815THEN?" :) 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\6815,219);:END SUB
'>>> Page 1 of YELLSUB.ZIP ends here. Last page. TCHK:27
