'===========================================================================
' Subject: RAPIDQ CD Player                   Date: 10-18-03 (  :  )       
'  Author: Dieter Folger                      Code: RAPIDQ                 
'  Origin: folger@bnv-bamberg.de            Packet: SOUND.ABC
'===========================================================================
'>>> Page 1 of CDPLAY.ZIP begins here. TYPE:BINAA TLEN:4610
'-------------------------------------------------------------
'                  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,"CDPLAY.ZIP",4^6:?STRING$(50,177);
U"%up()#9%%O%-%%%#&T2I35oQ%.%%e&%%%.%%%%jo%jhyS[gru.,]*.'dV9U8C(:
U"JlSDOt;^E8R,N;\/%BA)g%BA/N<0,g%-'0faT%C<9$lvYR#ftD^x,K22Q_+6t,*
U"#f($Y%gt5&^5'N[JoN-0O=2=0#6:RoG^5p/S5WV\awG$IqNT)-dLDVf.WVpHrTr
U"<nB<%$$TI./LTCDvk^$NZ%&up(%)9%%&O-%%%%&T2O;vu:#%%%e%&%%.%%%%u%f
U"zxj%Sgru?6?62%gF%jfZh1&Pp,uI#b#=)Lp%/SB#/q/9;/%eb8D/%aeU%j]vI3i
U"lm]MBH6VDQMtHgUKdk?1NhH-L(LtiNGTO?2O1O)k;BGh..F52IStiGhRw/.%q):
U"mWUdMJZuDQxx-Z6&u%p()9.%%O-%%%%&7TV$'*0M%%(%e&%%%-%%%%uqf&(Sgrg
U"ut]*+.<U94*H_SeTuyMPyK:RJo[t&9I-j//iEo:i-Q%IC/)fG4(>#7*q\ODUA+j
U"H?ut\Zu*lU52<-Ns5kqB^hNd7&jV?/&9>^#aWHGh()eT5'%VkwoE]kNtgu:t.sk
U"hv\:F%Ro3-'-v;q$&i1X7HXoQAuI,^l+u%p()9.%%O-%%%%&.Tq)G(w;%%(%e&%
U"%%-%%%%xyt%uSgrsu6G6%2gF%FjZh1q60)+5u+6(:h:B/P[i'PI.q'P1:'P:;'P
U"1&-kw7,,GsJL62^La;.Q>YN3^=*nQ84dPHfjcC7t9)D:[V'q:#GZ06LSe2[$c7(
U"^6oNiM)8&iJJnttTpudlkxL1%4up(%)9%%&O-%%[%&TjdC%)h[-%%x%E%%/%%%%
U"h%iuqf&(SgfOx&(<,>T]7]wCExeP5Y&_\B2Rsn3RYJK]*aa8ZAT8:$bSL;ZT1UV
U"X/a]aoqVHW(dA.mociu>jg2#eH3VqrH\EXhcvV2&MvL0hBF^X#xSn,[P-k\7<,X
U")#UCn;U%:Sg/N5](t(iNssJI/ZHI<FZ]oJcB=t]2)B-7ioj:\$E\Nds&.da)TB(
U"GmfsF5Lu(8wV>12j<bB]$e^d:#o8rR*=tHldK_B=a$LdWs;laHlR,ldF0XYsK^T
U"KR\1d8P>6*1*^C8)W&L'B3VX^Q=fx4FR(_N<ialY1ARB_R0>5c]15:.,2e:KWl8
U"w&GW=Z_guITp,(:n(MU2[Tht5t8Y.lfhR4]8#:ANJh=ykZr(T?eu2:Y13wesUgT
U"LZ1WT+Hh;\&ELJF8?k<\E3zic1VLpKdt)LnD1aY2#&Xf^3;k,QNrW30Cb*?THn.
U"D=0i-kA\smDClQq:yvWWONq=&sLXf;bO[_nI.0D5g]LqHUBG_-cm$#h$S*Z2pB&
U"+O%bK*BX7:qesI((7r?5(U1k8ci6x&wb$6j$)hda<-W?81uD(ccp&hdf;fllamo
U"<]/I,G_XJ8_zZ?G*a4CqIQc813jEmea)8ALz.>%uwu3#dAq.+jy7OJ\60svB<Ee
U"?O/PckHHtYC/Q]mmMf?9&Kl2sw/NPAmGrpE(B^p0-WG(p=7tuk+i\C.Zb)bh:cZ
U"1apCP+>ufpf+ZL9y\_G\'/tZQam3Bsnw&nn)Zmi=(H\h\Vah(xawS0^0N%P>FRS
U"Xp*?(X9)YWO=%(31>#?F/U3XnnUkTqa_<q*fL8>g7GF,G&L8J]=(ji)k:vc[TeP
U"Ll5X,<#A7I:k:Hhte?mKYF$?puR$qQNBm7Sv$3b1DP.90EYXGbAAb+i&GLQoNY+
U"gsa?_-ATUZYabh\]+D>94BE:21C89?sZR#1qNCTt0O>j_S3FG>GJCv56Qd/(hT>
U":eD+7dG6+DXRWJWiPUD[;8hq.$nS,/]RKm<g/Jy%h;pX)/KS+T?DN#-XcR,o\+n
U"+8PXl+0wJX>M3:;#d[,3#C9P,QLH_-ib5:QENrkcK$>LJ(;mIP4cP,i$kk-THHv
U"\]jq-(Uc?hdD$s*D;E:\eN_>JMg8x8/+zg0%WPQX;53PR75r[:.0irbWaCR])z-
U"D3*xQ6E<cOTjB4W#&1Xr10-h9,rU6<Sk=d$#=FG4Fqc53B)4mhkZH4=[>12_S^?
U"K%B05t=/zC&UOE;l,w*34Sw[hJoB4_3nW.j*$j;FyORO82,%NUv*>k/^D^WVvy%
U"c,(.z7lX+xE%+&Oa)cA7_8i09VkpZQWDa=*Q7$SN)I/c3\c;CR.0Y=Je6MdumY[
U"SI)-PTtD]BI5f\Er(s5a,$7T=#qDs;fCSR]3<4,_[]lAe%K&6Ac(#^gR=J4M:1-
U"[Ek3Npo'O*H4vbgME#(lL=wXnG-lW>?q,Y&:(Ur'gPD&+#=2TSXTR\^I<:>ABaU
U"M*.^#m:_5xS7\\LVP0vo0'h]8M,a,8HTu7+f;%=%eH2XSYUH\(]-05uOIVR&%gI
U"j^l_M>/RKe%WS_)ouYm7F3V1r41?#5I$1YF*1#)OylO2Apcto&*7+V2vc6Kr/c<
U"Ad1x]4&QAjN*>?w+JIyP$FeCp;ZFmDhs?d^QljWDG/;3OOOm62<%^/gfCA*bjcx
U"\QTd5UzQY9kFrTsg;(:AFu7UkS&^;g9Tu+8[t:HI^%EYB\FjFTHV4\ZElr%*f7u
U":ibuvbb;;]8;f';Z9WY:%7Ak&3S4gr1xzFdA-R\zXsWfltdhp$KE2wb?p%#E?G*
U"N*.ZIUO>a1(J%>o./)rKPxgqQFZ:->/;9rxsl?gn3z;Tab0c82e]:vc5AWfRAwF
U"QPl?Y[IvGE?u)#<3'*5',<Fo(9VoX8sW1dd3hn[#iz(5'?4a&*WDGNt5gv+.6t9
U".?$pL5ANP/ySyfvq1i7MN2y[aQX-3ctd$qvVJ=Vt]*/QE&bB8QhqRidrDg><N>y
U">9=1ak4)KG1Yl<x,Xr3MUyC/m2JFc#qX]^Hx>S7R7+K^w>xwRy_[ndOw)/$rBlG
U"qY#WI<^D#:];l:Zi+H:gK,0MDn])?[XAI[ja_5PW]pTYIrf?6x\jBw'kS5NXYS[
U"qxQND2ZUHJ$Cd4*:EYS(oIrf18/q)'gqFBBHm)^%4>PF2wY\+mN.B&=z:^6>Q^0
U"jyzkMAH+.ow#HZk*XLPiBJRWc)DkOBhmHmKpSs%l>w18Wd9iojAb13'VoRYc7s(
U"su95Dw_N4\/=JBjR6%mMQh=U7.F/CR;J76dY1\;%aMTmgsSh\V?g<+CnlVjeVQq
U"?c>K3lzcbNXN?U;(*N4u..,nbZtd0.h<q;58RVDTx*W\$<o..gT>D-s1gzFLs?B
U"5Hmyr79,E?UbIMYL=L5I%Zbde^_2v3,P4>tjS.(kEE4&D-YD&4E:2kaNOeq,0q2
U"ib4pVMY0;pEzu5NWD/A?3yi$;S;R[$V=tB3V[DC*08sr3*C4\4[Fpe[h9$?IpM4
U"O0yZCLf\P>5P-*:f/$oU9C='TXK>l>_3f:hNN(%mehWh/OuE+',_A[T.ZF%+eI;
U"SR]k.SDgF+H;o=G=;*e1?gXq1qL)%D%TRjSEM?jER1?iwg^SB+aou,kF5;qoROM
U"_2OuUu36oI.ZC$(e#S+fjbTlv+TB0l(c4>]UhH$56Q9d_W/rhNWAOO)3>T,,#[[
U"RHeL;48Od\4E_S[&n/hg(WOa;lKofSAyZ,ehF2OX++uk+*7PZ]nZP8N#&kjUi_J
U"wt_AmZWO7j4z3=kV495n'Ws)6O>F:)iumkSX%SlBVToq)+iZg6r54R7,%$1Tuji
U"\W'M\RT^)7:&UpP9jH6=bl5JccT<cVu)T^WkIkTq.eAhbp9wgS5X#;i*'q46r?n
U"Z<JEL,K_KiR)m)<b3o9p;J<rNxrLd;x<sEvD%up()#9%%O%-%%%[&T?/2O0V%.%
U"%e&%%%0%%%%kt(w&fw%iSgrputG*%2'F=>UZh7/:.lZ&db#=J)p%/)S2*KCU0*%
U"5o-4*J%E=O#,dKNh0t.kCI>&F6Ug^2YBtZI'1Q#s6qeHK&KwoMVto.URV+O)s]$
U"Y6%l-&VLksc_&BkN*r.%-O$IJDw3Q:hREA;59IVv2):RUN=]7Yd<lgk>+bNj\)?
U"0v7\%up()#9%%O%-%%%d&TRd4NH\%.%%e&%%%/%%%%wj&&nsi%Sgru;t^6.%hF=
U"j<hRM6l4M%bTVEQuAC*lG-'Y)&_&?*D?-'Y/9[+_XF?ifyZ]9Z-r=nHTuv*ZFps
U"-BD,C<.D>m$Z/'$Ag-ImNpcbQO??g=':Z;kRpC7F)==\$wgG^>t9-uO3x:eui4<
U"=3Q)T=xORfGXJP4_llc:Wit(J6O,V$-P03Xu%,vC%0up(%)9%%&O-%%[%&TvUbT
U"7_#%%%e%&%%-%%%%s(j'yS#grud,]6.h[F=jhbRMteLw*tFhR/jKm:AZ2AQ8)+]
U"::QL*3Q8)dI#g$+tY0IDS+]?YYh$m+TP*blTG8$g](?9aP0:1$(G0$%Ag-mLNpc
U"Q9O??=V':Zk,RpCFF)==$7wgG>St9M)L#NS]^\Nq30,fF1YU,G?qCu,?&CYc]nl
U"F4m+Krj$q_=Xs-xG8u%p()9.%%O-%%%%&1Tz71(he%%(%e&%%%-%%%%uwj&%Sgr
U"gu\]*%.(F9kUxRMgLEx&cKX+:^[tPU+-$/sC5?*&9)qd/%s55\4Uhq&72,B4FDh
U"Pml7xI41tG6H=S=2V*ZStC4XikV)SB3FL)e4P&c7oNc%d/&^Z[V)-O;^,'hbg-A
U"WVGtnSwCGlhm*XTG?]hCzE,zh_6i2L^7qI2uhjxm=35XHbX3N6o0U3tL0<w,N]*
U"u%p()9.%%O-%%%%&CTRQ<'mk&%+%w'%%%+%%%%hiS#nhtlba*s<%U9jD1RazW2C
U"2<lBw'cxAjXv>eHwtq(XWWUVrEBvDCr7a)d\1R*_-$j[v*0HkH*]hQF,2*f]+<.
U"T3:?#gGA^w+&2gcs.n%BFiw-fCC#SFS;A;zh<*[=fmm[2G2\5.<8U6g?Nf'>Prg
U"F\g37OI0dO3S4YbD-aSDbnnu/#mkTRGce/r;D1CU<2,(rfv?I)(Febr(K6)&]Q.
U"0S7MHf,3+ZK)GzX=m;-neVa^kWR,l_J)lk\$Pj6KAgh4iw1Zw*lqDiscWMt,sDQ
U"AX_+;_&M]]T_F/=OpGlY0D63=oDIhZyPX6vLUV>c_Y'45nZFd9f0v3hlf#(E\R8
U"WO1E'Ni3bCL=T\CJC8(ieLQAylr5.LW4Ce?2Nk<3\-;;-fLUT:0M*Smvt[s^GG=
U"oLG?LaKFA8%&up&%'9%9%%%%-%%%%&dT2I5)oQ%%(%e&%%%.%%%%%%%%%%%E%%%
U"%%%%%%j%ojhy%Sgru%up&'%9%9%%%%-%%%%&TR2;vu&:%%%&e&%%%.%%%%%%%%%
U"%%E%.%%x%%%%uf%zxjS%gruu%p&'9%%9%%%%-%%%%&TVT$'0M#%%%e%&%%-%%%%
U"%%%%%%%%E%%%%$&%%%uqf&(Sgr%uup&%'9%9%%%%-%%%%&.Tq)G(w;%%(%e&%%%
U"-%%%%%%%%%%%E[%%%X%&%%x%ytuS%gruu%p&'9%%9%%%%-%%[%&TjdC%)h[-%%x
U"%E%%/%%%%%%%%%&%%E%%(%#'%%%hiu.qf(S%gfxu%p&'9%%9%%%%-%%%%&T?N/O
U"0V#%%%e%&%%0%%%%%%%%%%%%E%%(%W0%%%ktw&&fwi%Sgru%up&'%9%9%%%%-%%
U"%%&TbRdNH&\%%%&e&%%%/%%%%%%%%%%%E%%%%]1%%%wj&&nsi%Sgru%up&'%9%9
U"%%%%-%%%%&TfvbT7&_%%%&e&%%%-%%%%%%%%%%%E%7%%f1%%%sj&'ySg%ruup%&
U"'9%%9%%%%-%%%I&Tz7.1he%.%%e&%%%-%%%%%%%%%%%%E%%%&r2%%#uwj%%Sgru
U"%up&'%9%9%%%%-%%%%&TeRQ<m%k&%%'w'%%%+%%%%%%%%%%%E%.%%.3%%%hi%Sn
U"ht%up*+%%%%%%/%/%%H'%%'B4%%%%%
END SUB
CLOSE:IF S=249AND B&=4610THEN?" :) 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\4610,219);:END SUB
'>>> Page 1 of CDPLAY.ZIP ends here. Last page. TCHK:249
