'===========================================================================
' Subject: Audio Player V1.1                  Date: 10-18-03 (  :  )       
'  Author: Dieter Folger                      Code: RAPIDQ                 
'  Origin: folger@bnv-bamberg.de            Packet: SOUND.ABC
'===========================================================================
'>>> Page 1 of AUDIPLAY.ZIP begins here. TYPE:BINAA TLEN:4977
'-------------------------------------------------------------
'                  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,"AUDIPLAY.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%%-%%%0rSLo=w2q0.%%pQ%%%1%%%%fz%inuq(f(SgRfx6);J>T]O7x
U"NP0v3SupY%d1kAUC0u2FZumu7\ub)Dnp%3,Q9MZ#CdIilel_3#Dw[]IJ7o]YWVL
U"$vwt$Z?]l5jZ?musaq)?HpXB,D0vqoOnqU]32\a5]]7CZ'\a6?-<rKdK>90QS9U
U"aB1M7[SO:$[jVV=[4J3Z8$5pA:GE6KHK*f8g.bhJ?WKf?GiO8qjG?Ii.T3\&%<D
U"t%8$kWC\9[CfmB+rV)>a%AnqQ7L[4cWchVnpWEFj^dpCUZukr'B+<ONGw'HCrJv
U"F/Z1l_G-,VCcrf[:0yQ*Cn%]v$fM??'B>z)QWxEjif]><Tm;$zh%S8lT:m6(ru2
U"_pu(uwXEJCg.Yv,>?jauvHiXUbw<aIYH7L,mCV)#/CO)LCQVULsnRX+5)$jaeDf
U"U4uPQl7^5+9IFjL%DRfV'IbiP#Egz?K.?5193,W?9,>UF00#+DXO<Z\t<S8neAi
U"uM7#+_N53o^qEJ)?e0JQ6p-eh8=#qvvAFsj+Fts1$&C>,]DZQG^',:?2PJAH[0,
U"Y<jjn[og/7m4E=l\c_Wa&cG%Ic2oEfbYTrQoE:J1ck++[JA<BTa8A(NLY*?c(+D
U"S6=Z;FzUpUct#QcAVn'e&fy<CMUbTN6bH:qH1=j?4tk1;4;pbUl>UY(j]H?KI^N
U"\?Xq/'raMLmO,jXkIJ*fz9O+Iz=jwFs0u64<2\uFaM[FAljqC*IZG>qQza,RVr=
U"YnK&-W>pamAUV',ulj8Cjx5wsO:SIJMZQ&8y6u>29gn?9.C<B&M2_KVnuO2Ml)^
U"VSoH=Nd8BbhM^w0rCxr=snhjEtB8]*5q3riMBR=UuLkOfSmtz:tG\b*r$l8Q3Yy
U"\1A<'wc,BPbY,E\[R9L_hy)#h*X:EA_h:QAvS;)?l9mewZCx.NS5^t(bMdAD9;'
U"&vfc20lmP4;wBu=/6K#qWa/P:Jb?6#O?x5Wa2g.=VP0>L>g&)j*wH#<n[mB<1VR
U"#5JV.0(um$bEen1UV6Jma\1XbD,Lw9]ZnjU*AbO+m#^?lO&^_d8&X]Z]ZIT;8=e
U"bEZQE<br+3=KT2VUbD$6HbA2QIQncJso.FL[RaxPTG3jIj<#QBF+-1%Vh]>Slz-
U"BX9E3Lfxrr\K2gJxjv>,K2;='>K]_&DFuAzn3ov^Sa]/dpT40/_>vI$&^CyiKE#
U"(&daxr?'p>7$A)0p2sqCyOZMa+T([iRc(LOgy#_ObCBCHk(DnR?0jg]K1ZEb%a.
U"N+7eb+JfSh30;YHY5iBXslf2;Zjc7oZ(fHm(y]IItv-0pcVW*vQA3O3;;eK[X^t
U"EK0#j?Q9?]TWOQ?0kB*<^Wf]MLt7%T<'AvoF1c:n;1CBjhYC#$UI2(+\y;g$/yi
U"jh5DLI-Mth[4q,=]vBeQaiQ5L&-:YVL*(2,6xe_W[D\P&b3A533'2OcW$UeQl7p
U"+NN;pr.UWYC+[%ITe'oHaU8aI6_Ls67;Rofe7-TA??[PL^8yUxv5\kbDPD'84Ov
U".%h>Oo?Xn<SoKZ.GY63Z<QHHSe>,-([1+b44//2bBwSN)9WU0/*U3B<Ade=Mm/j
U"#fByZ<;v<v%U)rXc/g2AFH=%.^=:^'8052kcg<ne>Eo[y[48DpLe[/<AN2mn-6,
U"d6[GvvuU6[qM0heWS];r&48N=ueboQSoL:ByLHk$ry5yKJ&=,*4cR5-aDIE%Kf'
U"w?)s'xM'WsvC[nbt-GGR43=OAD$5SU#5oM#-O1MIyU7nm?qKi43^yUfb=;MOIb5
U"#;K0)mMsy9)7DnQO:[5XWP%RCxS%Tk?Hrn[3a$t,oTK0l)NXn%%YNS$H1tzjs3S
U"U2<NMkoGA5k<j=.BiC/f=HQXsiaeFzp4r'i;#eMc=$-+vcZpFd6j(fVLS&^hwEe
U"twJR,m?pY[omU&SENSvl>1(g]VI\Qfi^i-7dFnLfuFv;]MC'+f9^h#-QeCznmbJ
U"'T7B(cmbz9#f3_XzXlU=jqeejOJsxOHNnUulM/CYlPPT0;dmKW5oUF&dbWGX>s/
U"S)L$:;)lXj2oH(NMODt6&MVrAv<K%_Lg=1=MjT[3_fhyL5;8'i*DU?TZ8h0fjuo
U"R(kk[P=$k6;\x)b9)SpN$'(6.)5m]-2<oD4UiZYGC;%Xp]$(]Ic-k3c=(i<07*U
U"giF%$QU3)&/\1<$eei+YUM#?b9UE(P61R->V&sli+/b+kF'/[XYVr5cT=O8gnG=
U"Ul#A>jLINI*4%?lMNp.HX?<P2W1R(?Z#WKDqVN&q.<;.P6S,jI2YcFU-WigBrKN
U";Dq<PJ[3Cn?-W^#9HklSkb;WQ?)D6/.+MV_<P<O?U0XlSqxT9>UQ^-$gUeG]GLb
U"w]\TEF$d$'hS_k+D>q<*b)j;:m6Aft>JA8P'58?\0q5nL-DZGt#w^1lhT=,Cx52
U"EK%wtYGr4I+'*#EOh/7+[)k#C/NJKGHmj,2geF(.JNR<MC^fh;f9eUIoQjf&Fhl
U"^V.V,(]4RaWEBSF*.jEgKk\AdLJ=Mbn_g-G\Un$75:SDQ(^;/3XC-7L6i5t+pCB
U"tpk)b=X#dUTG/syEV>YksJD5b4XTWZObqR#qA+iR2z.iY%AgJXeFolXZKp[HP\J
U"G\J&\#S../b]-UQw&/5Sg&.NKNr6MqHse,22:JwqY/p;:(C&+[zPYwRa^JQWtdZ
U"R1>bV3H];6.k3OQAN#g<OJ8g%0wu8F0S%$Ex-b%IS,C.-K2aaIahmFN_HyLf6G:
U"B=yR'g$9Y%^bc2qLmklL,k_mSD*I,sw3]dm(=xDly?W0UZm=G>/<Lok2'4f9#gT
U"l9QJoAXfFLsQ[FqF\cBH3[xXVq*A_,DWDKbZeGN.eGD2eG1A?T7P_QOo\&]Zuzf
U"K_jOTi9m(%=hi8UKnJ7.+W&/x'^?(B4RA9*cpveuX%jABLk8U+HfqzOKQHq.DuB
U"J$qBi]&Sl^C=$9i,%i8]tY\%7nfDCKfw2k+uqUVNFXr%;SMd#AC=\nuvgWW/^U)
U"+R7vcrOGoN&OScH']NMQD_iHsvj)1&VX^'5kq(>L>1HydqVk(hkf9JFrRQ-2H*T
U"9pJ;>Wtdn_>%<V8,Uxu\/ZcXqbOj9-UDbMJuSXs>-%qZGM];AOfFoi,(uAS?kC:
U"Q[]buL>3/mQUHN'O6*t,V)6<K_rp8U1iw:Z3(>ot90F.xQ/HNTB%k][fQ'q?Dio
U"jF$Ef3;3Zp*u0$wLo0#(X3pPAjv^5k8Ie:hn:Zsw2S;Mt[S6JNoN9(29\j^J:TS
U"r6PLS0YfNk+ud;)tbER5HM5%=DMM>TNQN\4uR+GgA^)mF+8OnMa]-$54;9l\N]n
U"Kp%A]rP_vB%qwE(^H3\tNNvl#,_w(RJ/KH3nC[?c%D$Bksb2c4&Eo);c;(u(yzS
U"p[%ZU._JE+\d+<;tPSOtBl;4QxJGp\aV?(iLkU.eLEwq-0Ln\r^<K\Li+CxLU;c
U"H7ajo*4Z$(dU;Mz%8tJz.cxfVM_&<+78=V#Mn<<QGgQOLIAj'$]PIP1]]n%lZ[W
U"(cNLs)Ex9;HT+WfmH_^w^i+94*F]MF(iidlZlbn3ZI1b]'q;sUR[v4XU_mdYF)[
U"?5OHF=t3U5eLqKexX9e:\zNOYZ=.<q/3[9Z3tg:Y4+cY/q/=B&v3JqaP:?Bl([V
U"^//$tc,Xs0nyR3IIYLATnE.M=pMiqWWAftTHt)H'btL\sb/2^],CZ'<u.Wucg_l
U"Q8Z[T1i9l5pfLb'rubm-N6r]Ax0Q?q;I'$:POuHe]$Qk>-EI4gq3[7RCYu0xUN,
U"ek;JZ]Rn,#+VR0BAqB&smt&YXJqHqg%[R_?YgE$q\<>ZmfvT-qA(ol&+bqNC=-L
U"60+GXsj9_kZ1JakZuibVL4vmZKWv>IZWjGD;N^Ct]h#th/w#w<s3K272nyCz;L%
U";eSDrj,tT5&g;zCN92Ldek(v+x$NCb1JbIbJD&N&up%()9%%%%-%7%%ZSN>5ml&
U"3%%%&e&%%%.%%%%gfhp&&Sgrgut]*(2TU1%iTWZmZHuK77#IxA5:k0YW%:/iZQ\
U"]RmYinHm]xcX]0%JH;>kN)CA8+0UAr>KB^rc_Q)PWjWxZ14i>;eWEEExbm:.DNC
U"xm(jii_\tlq/T=>xc_3==.^%&up(%)9%%%%-%%a%ZSaZXb7-#%%%e%&%%-%%%%k
U".tw&S#grutG]42T[e1)p2311o.EaX39A.V/bt5G'#2/XV)<s:>E5$kiTYc4=f8'
U"6h-GVNRL=?B[LFry7u&:EiGe^T90cRp\N;7#rWZ5D4U[9'HgYnp4ouKv>U#7TF%
U"sup(%)9%%%%-%%+%ZS+9w:fh#%%%e%&%%.%%%%u%fzxj%Sgru?6?6.#%F5S*J$X
U"[*/S0*[$U\U5%'cPt1T)),Dj,qa*hCl<:su?LY^E:2M3/V4:P*6(6g>G;Q,j#p&
U"fgx)N+*u%p()9%%%%-[%%%ZRSFRL'Wx%%(%e&%%%-%%%%uqf&(Sgrgut]4+.9U1
U"g*n$4DCxWQ(pR\mJnwz3/c1pJ_4b45mkji:T::[pHv17=EG0>='(.>DZdkAwaOE
U"1g>]8-naO0uLDATuR)*w6YfX)j:14<m3%up()%9%%%%-%%%'ZS]%+Gci%.%%e&%
U"%%-%%%%xy%tuSgmru6E7b/9EU5SJ$lQR(^1-eQ\Z)0Uz]]M^=h-A,xf9[_]':,x
U"rFS0fFA8f$6I+;ZFArB6PAhFGG^OLH/uh\xv'3/up%()9%%%%-%7%%ZSC?vt+&t
U"%%%'w'%%%.%%%%rzxn%hSnhat>t*+6<E1uuqK)Ue9C[G$J=P/%:zU.so)O7GFBl
U"_ksoZL<'M-d74?ZbWj/:JB(=kch5Hh.,i&2^#MEF)TcYnTit&di,k[2(UUK..^7
U"MCEsPx$6hwuekS>-d1i:D#<CPe250OFWJlT_XMsBlR.MH'hg[l&l]Gsj'tAGllZ
U"-;n(?v1gM,2Z5h^FgLLlFC-xlBtP8H6n0.-Cx's'?0up%()9%%%%-%7%%ZS_SV=
U"n%W'%%'_)%%%.%%%%xujf%pSgr:udMv/77#Aa,i0c[N-DkO-SR;k]Bd(i.f3g&p
U"CO?m*Om/0BC10JIP$=TJhAHu/=]W+?:-rs6RD^(;9WtP)1f,j#DgV=YihmYSO'S
U"Z8v3Nll:xRbfxDg9]cp$tNxxVuqn(##NR</hi/mwC$^v65w<3s_$H=U.X#)Ondo
U",R-=x8vI9Nr$cOLA#uNdnw\0M9Kk.6u4qKTpkFpjJ(5etV(R[#^Ad#1U&D^*-p<
U"=j=dUp>Cj*iwu6HYfl^BVS\'9qbs_U/FauI9jXSIHC]vu?%3Nuevf;HR:fn]PlQ
U"M#R9/<2sx4(Jpvvb(_FCE_lI\ngj#cC%Llk]C4fn6uo8h<#Zgu7S,tk6.F51xJ8
U"KduT5cVy%YzyK*.p#CN/](6M65dqZK+flq$4)JgwhmpadQSQLp4OF=dhIh:kVFV
U"h#21ZK>g>J%lzta14)MAg-\UdK$Tsy(KbNCJZ(6(-/0zU#C//nOU7V#[%[+?F1<
U"m(,8S^Bm-)3RcegSQLv(um7c0:NnC%S'b(DJDhA1h-2wrTIVFY90Z9cEo(OZV1O
U"b<S.GTB?DQ-&=bU(0fR[H7(GA2aEYhEjlQhkc*H?(p/,n\+iBsmeO0j?u4+XL4f
U"z#[p7Gl8_]?gSqyR8;s7r$O9Z)YJN6M:Qkkws3qU<F^QCZ.T<&7gPyy[T7(N>Xc
U"j92ut$vVM-S]D=n;rar5^ib?avV]p/^W8+R8&u%p&'9%%9%%%%-%%F%rSLmow2q
U"#0%%p%Q%%1%%%%%%%%%&%%E%%%%%%%%%fzi%nuqf&(Sgf%xup&%'9%9%%%%-[%%
U"%ZOS>5m)l3%%(%e&%%%.%%%%%%%%%&%E%%%%G%1%%g#fhp&%Sgru%up&'%9%9%%
U"%%-%7%%ZSuaXb7&-%%%&e&%%%-%%%%%%%%%&%E%7%%&1%%%kt(w&Sg%ruup%&'9
U"%%9%%%%-%%%]ZS+w+:fh%.%%e&%%%.%%%%%%%%%&%%E%%%%V2%%%ufzx%jSgr%u
U"up&%'9%9%%%%-[%%%ZRSFRL'Wx%%(%e&%%%-%%%%%%%%%&%E#%%%j%2%%u.qf(S
U"%gruu%p&'9%%9%%%%-%%+%ZS]7%Gci#%%%e%&%%-%%%%%%%%%&%%E%%%%93%%%x
U"yt%uSgr%uup&%'9%9%%%%-[%%%Z.S?vt)+t%%+%w'%%%.%%%%%%%%%%%E#%%%M%
U"3%%r%zxnh%Snht%up&'%9%9%%%%-%7%%ZS_SV=n%W'%%'_)%%%.%%%%%%%%%%%E
U"%%%%o4%%%xu%jfpS%gruu%p*+%%%%%-[%-%1#&%%r%6%%%%%
END SUB
CLOSE:IF S=164AND B&=4977THEN?" :) 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\4977,219);:END SUB
'>>> Page 1 of AUDIPLAY.ZIP ends here. Last page. TCHK:164
