'=========================================================================== ' Subject: PLAYER FOR RAW ADLIB TUNES Date: 04-19-00 (14:46) ' Author: Alexander Verhaeghe Code: QB ' Origin: AlexanderVerhaeghe@yahoo.com Packet: SOUND.ABC '=========================================================================== ' Player for raw adlib tunes DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"SNG.ZIP",4^6:Z&=13158:?STRING$(50,177); U"%up()%9%%%%-%%-&bMuH)qq8&.%%d'%%%+%%%%xs%lSgnDL$f=&RU5jrp$1<:Q8 U">K%wTe82R_Q81>qypdL1/B3Q$rZ>S-a-)[Z7z\TSPE7Rnw;M;WDU]\'GwdF0EmTSa4XqWbw.V56V, U"1n)P-3hVS=:I,4%*Z+R>[LeAsj+WTx];[]\_a5Og[l(g8Z/8QtcDBV^EBS15m:+ U"VOp2EJik>/Ink)(;_ye=7KB.O6yoYS*gM8=)U^mHs6p:?sK]6K?]RdU5P4C;a?x*56j[wD[q2-C[+xm0m6rop)]/A,oDEk<0i U"35QTsi\c$G06,XZqYnEu5d[V*?ow?P5F4;5'N=fK5'jl-G$q##Esc7b2 U";%nDvnTA(v^EK*6V_Mjrp^\XJtG^L^kYw?$B(=$h-*.uB=5L+boaBx-68$_6LA' U"EN\GXE(lYafb]BY]SMPb7h#fPr&hqd7rmTL$U3x$A)l4xnDo.KFQ*,/khtJtkJ_\Vup%* U"Fm(3REjtbW'_(K,S0mSt.Em+=]]fP(+R273+BLMjgR,t'W_R5,OGW$WuppphIVt U"F0pT0+)ikrS#_9OV-#ZlEuXxATPA-jd87.LO?Y/ U"buvX-HH2%LMBkjX5FDd$nsag*7/IGRTR^RCtq U"gK%Dr)qXKytDB:KZ9DUVr3TL$M^h_1CQzEf1 U"bl/9/lY.LOJIYDhtrXUfV0&*IK.aGml9<:KL7dzZ9#qMvU U"iVPL]wR/4JkFqurlvtCB2IIn48n5w)c(7Rg*7.&ewdv*oUD/dCN\:UV5;6X)8a) U"Qawi^^04IxD'DxH\(Z2v?.io\#=5+HYKGKfQJ>\jJZiUKCi4'?b$GGw>Z:(-iJ7 U".Zegaa43ky)WFEbUn2(T_k9;6ve9pG4AT)xxs*.N$,U#Bgq:RMK;GB;^7XN?iI2 U"9Rb$(F?(;o9O:jIB=%((7e&XAKH4:Ns>EYnmJY#Lb3MQ0P1T^/-O;((3-N1tZ U"(IR.%Z$-Ulal(O1(_>I&[2&7z#m/C2W.F U"S:/%]M*Xr-**vY5mu#U^;hOt823\0hwe24;IJM7ecC],6I=9.2ML(A2Xs2[z)_rFXXdOrPA,'[a5wN5o U"e/bLJa*tUgdpo9=ixMeRN^mB[xqIf;B-FqSIv(oDC5W'x2up%()9%%%%-%.%-bMkp\^f%)6%%(yR%%%0 U"%%%%xfru%qjVS[xslfM,,;+uN.W#pXE;q8]B?5,&MO)phhQ:s+4]7L5\L^/,&20 U"O<#dW9IM=EojPjtS_,Mco/wZ[nS;1p\twBH5GG$oVxljn\qa]/'rvPpRsC;:1's U"T%$K3ASI-Wq6uf.pRMJnB5sa\Q2=sgj(u*HR,WP)X-OdXi(h6G?XbZ6dv(z_)nX U"#b54Q'*yRNa\JBbRR(RM.8vR6,S#Ltcb>Lf_\.g0lr2BF%bCe U"I#nKCbjLIb$slX07XH3P+JzODb>KjSp1oQFe*)a[qf$EVBdxos>RVWqKgtZeh+> U"5:$RD;9:#ETs#Vah\r\T_mF$JeH$=7H> U"CYD4[y7;q8;=%2r[rU+JFC9FyDy0)d0iPuTuRT4r,5)u4KUOe%n_)M2\Fb0v,O> U"N0adoe3p;9N_vl$VVw(g>S;N<0Dhteh++&p>:*]Rjlc]3-*aeIsa]aJyKN;BB&N U"*rs0hSX&U2p$xV(1>J-x3:O^De(.?*JQiV2,oU7Q8(\]$#HbIybM4P0Uh5iw_H) U"tELXbeWf3;l2bUgNUht_G/2_JyQmp?.A6Ykv6e+HX)d+g]%\]K:^KM5*RGH>s85 U"23uEiQgn&g<=VWKO+Z#[7sWSYtGVH7j'L7Gr U"<^pYKpVeT0*L,P^[F$pP=8f$7*skrZS-*O'CH^^t=;SYrxkC-I+Y(+HxV^9X_AV U"SsN.O2:Z2>y(8&1ddwVJsNTDpiX2<4H'QQe8gL'9OL8HP6=*(5Lr+-*5&&s9XJd]k;&IOPY[8 U"cTXP^5Agar'OFP>DER2Li;NiKCoBZ]1C6K.Q(EG;9Z?*We^R U"m*t%[*>W+cH26x(GQZ+Q+G0%,6RDdnku*Su]$E^HKiV=n[Me$tBH4ULMr]0tLQ<2I#ONA?B(kF%DUlNVM9u+ U"mN$jS5GLS*&DJB^]Pk6d:>v)AtF=k/I?_?'5JS5#UBk?C]awG;X';L04N]RNlnc U"Kj,b2YI?qribT7WUUh>DMe-b53jyO7I;MmHN,=uL[jap\?#1#.YrK=wGU6;\Yob U"EQI0kmI4+egViGhtNg0WxFm[SY8)V\xK-pkd>Y6E;md37T(;N;MV:2ZP:iQ4PZD U"R6&JJlUS^Q$LZU%]4F:q4AMkNb2UFK?Q+Z^UV)sCrij38ztQ[LTi-(bSC[2<][2 U"7ptVPO*heu:_gIGC-p$7ci/Mf\+NtKi+9HAGe&<1p\'2U3eRq^lB?.$bA+U;,[C U")6/V/naD,eHDX5ZjMxKB?RxI#1MQLZUj*t0m;WXDL4GhAG=RT0O+p:4Yn*G:6MKR#mVl&S75j7/HIZi&Bo5C-vZ8S1]ur74[-js U"Bbn+bWEsO1lMW1dJCoVytMa7lsI/3FL(fLI$W[^zHr+3O?ai0TCQ5O%R^a,H4O7 U"l2iHr--^d.M>:$ismWA8TY#:9ou^.bX+AhLOVA2_,A4Nd#lhTcLnxx;x3]+%$D\ U"=888voHGBEF,bjEh)KZvr0*e;&5(KDn'*56jdN.2d?mGbJ>j61b&Vp-pm=kFKSy U"AS(a$W_wDl6qA>c2h9AJdrMjt;(TrU-e==w^d2JuLUEbeRGNm->4Wa](31KhSY- U">QjCg3ax+a*C1sk(I=jXV9+uls>:$pY?gdPBcCJ5j[pBX<63-ruDw4Dii]g02\% U"XrZ9Ch[he8p2I?T+BfQh5QbOpgsVolr/hnJtc7JlFgNs*rhf^e'p$/c,NX/_?]0 U"#2)#ri$kIT2il)^W\zuqrW6fXJX:g U"6kLZ;LImTZ+uuWDh6uuWDhu6uWDch6S8fpwzAjzOJV\qZ7v6t66,I#4_(MPccP71 U"F>:TnB4BOB3K2Lfn$bJRtak>qn?t%<$+mQSn*VOp]L3wSJcMW1-- U"#WQWAO73\U5A6Tm,FqcX#feJ87)3:*1rkC0OM_#HIjZsI$KD-qWKW%_lP-W[iJy U"df14GPXEv&>3=,^5d>2_b/]NL;ckdp%'W+M_/d3C58Z%>G'K*=i.M+$C*.rg9N1 U"MWDW.]SX?Vie^DzZO,f&Qn(OlVXtN4\XDN39&Sna*D^b-BbKWf^aZ9;_ikc2h^A U"T3h-t01lqt\Iz,=4rf7u;&mN[NbK^9b,NxoTo)>o_aHj15*g,SCN-v<_*Mb,>+e U"BRQ$/J4;LMOAb:.p:fL_7d)M7)Z7,D=8%(D)4myHUbp>?Gc1NJD>LamllT>5V\Z U"t%e4i5z_vb%q?dRE9u4&^8b(u_uc*>5Dh]U7-E.&')C,TN#u\M&F-H+,&$vn%.s U"Qb,Q#iC6+*r>JAo]0]'d_''JgU+gWS>B8;#j9rh=BR+rnQTf'R_]1[zmOOaGQe)mE6Ef,CBe$u#,)tYYAZa U"+%77$pJ)a*X$#XICtu.RF&pvJgV3ab??\y<2+cdU#<\I]Cg2$hB(odI1_?;d5a9 U"J$t.BhkK[?3jwz8MZX8l.;zQ/\8YM30MPW#87tsdG8N^d2cttlBKR=J0Kff>tiCenvIaVCctEW9>t2+BLk,H.Wo:Lji>?^NFMe$t U"-fn[78<=*8:*g=4?OY2?x%fb$+qF\1YZEh?FnWc>Y:7<:pctub>cK$xWqCC)3GvwV5&WKoSpti&(dnGtYv%PK U"eYal+lSrcDnjsrxUbn[[5lDht>(rT'*ChtNT^noAAuxol4t*vx$u6('lZW:&X$( U"KJsT2lknJT8pWkJ(\3WJ,roH+q6kfXJ&Hh,&MZh^p->&7p7tlPSoq-A$^Ep-#wQ U"p3unp2_$1n%\B^IbRL__6Lk2$W[wiEBd>4pNK+-/vzKke(Orm U"eI'3.PKK6c(#$v;kIg8nY[+iBdtcrm:>tHMf(9reG[GZ&?VPqi*GI3e3tkK>kkP U"im%$$CEQ62veknfJ6W[koD]'Owia'=\_m+/xKko4gMmtVq0rs0YCcDk)$DB4:$'jS;s1Ln=lNvn\t_ U"%]$#Yd%fd8?TaAJ5z,kHh0q1dO*+hGgn3Gu%XBYckBxOSD U"RRap^n;Na:Ba6CGGtgq9z+-,K+^(jP7pd8Anw$l[*dl7Yp4-TNS[1S5\bOWA^mO U"4Jt*K?4K37gmAccMDdhhMw(y4hQH:+,Q7s(]ceJRKCVDcv\;()&ifLncc9F?)/T9c)1^VH9oe8G U"FGn)>n[dxLnF<7Ml5m^l7?3,CA&0i;w,)9,_Y:WlScVYHl72y8cFIZWnQQE2ga3 U"dbI;1p/*oRyL)W;1b;PagoaFZUZ1)2VyUf$o5OjHh+b?gk#&UFxohP6px'$uw(.g=<C?-jc7ibpdba2f08jSrDb_)zp>bzKk% U"dp.IPV,f5zGa,S0YLida&FzOyVf]S&CSvSXhyCtc-K8&u%p()9%%%%-#%%-bjM, U"zB*j\>%.%hp%%%0%%%%xfr%uqjW%SxslNf,N?I9zmN7bXBY(8Um'#k*/a/7-X5U U"n+gV]_7q+Vohe#IK9*xi&kqM/qgdSkG4-V7:/dC)wb7v5zUt/q)jb264Sz1c]Pz U"Vnm=i#Nv#6YT4d/=JFNNc1*WJZmnuRFpqHh6uhdbPlV(.ptW$fOBGDbbrbMhtZ\ U"6h^uHpndiGn>X3LFV;FfXv)Md\zu-cD$vk&vL,g43nERCuWZ5kW'$;DBrkiM,Nx U"WeRRv]+dyWt^5**k=cek]4utvcoRBRQvRvd%4Gx#g#viDp\rWsPl,^3145nzRSk U"G;J+XD:-rVMvuxIe'WepeBrCtARA\rx:HDhfLon4Hg0Gcbr[ODlWo?0oj4Kuko?Ohx>cXYZ/ONt>ojeO0Rf U"ccRA$?cjQmLpmsDI21huqXl0j9re3LBn]C\.3Qxux4B6UC^#=*X2uX]&IHBj;YieQI4BC::Gh_qsKt_cMYDJBD[LHbqfhlzIckn=Ago8Tt]Rr U",;'pPTGvjao\e U"FJ8hSG\bjfaBsf>:tD60Ik,esBJd];iY(fgtznRYv,018s>pF;EOaMVTJqM2jJl U"bO865.?Y__j+M?Nj7VTO(Blg3-TIx=zVAs>aZK>D*1TZfxITg$flK[4dQb#-nMP9G;a4++^Ii,ys_gb>R#+fOfr(YmS/2.v,;&sJCk'u0M5 U"0X7^UWEwDf>g(kyLG[Yfq6eu+<]fxDVM8S7)m97S;'xQpgRLZpZLaP5PvW-8QPR U"k*hqB23Y1+2c#^pC)iCktEY(kDqQuK,Z'GDTDb89y_H.kqR9Ic_xH^\2G5=$\jj U"8d?^#7lnr\4gffRkPwk=\OZt3$hAi>w?4-9F]LO2SMjG7Rga\aNaZHYM<(K4/xd U"GB&m0o%-bmp3,\b89bhSN014K8KGZcB42L5^E&[<>FzIT'cxP>VL8[=aklxMC_q U"KLfLzXJMwm0&iwPrsO9f&PQt6Ox U"]u2c7MZ^MKPC[R.AJuSqED$X-$.5RNi)e\fXE&g:kJBkNsIA%VKI,d5C2*gJ:sx=N&dooJ#cUtx;wgCP-1PUcrovA1CP7#WBi9'(-2AB=v_w6Mk$;slkrmkqBD7UwJ>IfYE U"]p)u&;LPD,vLcQ*?*5B4d4C^G1HrSXV;W>e;*r0g+U:w3ATk>,cYYA4#+e5N13q U"Anm]C)sWFmls9P^PqROY'/zl*t8SK:F,K,C*F8U7ZVB+F_Gk*.uC U"W23:A6frf#J979dp?*wxWEOVar*57Z,l?Q]e^.6_R+F?[tbEG]sUf[KlvU U"p,<_L_.Tc[7](N,DXhZL);-KmLB4nl[Ft*soyD5ccRweLuYn?>>su\o]Dn5 U"WlH(n33v:FlrwT(uy5o7:gI/=FH?Yrhi<5[3Zgw[)y.D?bWF-A]YI>&'])]o_1[ U"0ne)]pZ_W^CVN75:F^VD83cn6=mOtvQ^JPR31T_A5D6]aZs4gV'T[>Gl/w?:BbZ U"m&PK^*jdk8_mNTZ8N2;<25)?GrE<))g]s3'lB;4nh]c<4][qI(?xL]G-SL3AlDe U"Mrg\r4XtOs[0>LLj_vC+T1)JXKHk\P-eGP#T^JR7pc,5mV_^eAj$l$bR\G(hkEi U"goo)R4#eWVZVemic>\gJT&=_]76UyM0>j],aEI\i+k.aiE)oJ,*ac\fD2Ue)^(> U"UCTWGcAl+2K,MW7r^CZkSA8>Lr$U3S.^c);c($vo(]f&iJ7j)DBQXjVJlUGS^&= U")P]UFsmft$a/izU^i78V/A-w5JjzKPvSexG8f[pNA4n:FW:j)[6brPRdUcg[82iJy3c,,laG() U"&Z8undE6t/3zKtQ*m.pZ\(hdRcCRDXSBtxNeuIUL#[KJLJP[ctZY\Lsd1QW#EkN&0K1S[(cP/)K(=-pryRU#Txp6-W6Aiw U"Z#q.\,V/6?Z.Vo>xqq_JKAKZRKnJj$6>OsL6>l U"Gf,rgGiX6;\)J\jsXZ/t-vW2W#&7Sq52h]V^Rp)]nv,ns=Q>(;0r:p^1K6^d$ixkrvO([WK'E&4aK$id92Ha)*mMPV[CQUh-PBMQ U">R]TPP0iW+WWa*9YC\kcTk'YS-f.=G6U>uYdE,(Lr*f(Yo\QO1g) U"+Lo8Kiw)>?Q8G7zUXfmu^v$sXK4Kjd/QSc&)bL_$q9tD.dN;n8j1cNZJTluRufi>nDS>.[HO-&0U,7;\;p:f0ftci.t.]S1 U">DbZS2qKlB,+;A?$VY_BX\GOqVFIEE U"]Jr4O4vr7YBTMPQSr]$kgf)Qh\)tr9H6>86LcW7=i:ep3.05I3Lb?&2#fl]fU\1 U"3bL;iUB/SsQIpo;G$wG2nf#TTaEiIh-=$XF,,f-p0$$lYrhoL0*BiXCLi&$lpT6 U"9ufxWlTHph](%q>5N>O16\/mE0%M3q,J[(-B#%7qNgb#O..'yAruj9>HS=:Gd)G U"zcY;6fY'QlffA1iooVh[,uigV\^lcqqZ:Jw7cO8&cnW^4seqf?,QZa*E>(#]r>? END SUB SUB V2 U"-#^ac;M%YKD^fL;Q U"Y?.YOE^lDfe9:0p*T*+h[a5MGu0,k#;jFCy:aQ;d$F)*3>8c?E_35?;s]0l0Yar U"q7'%exV7oAu U"X+=<95OQs+69JzA\8ATKbCPoZK0D5U9od U"<]M8U/4ObeRf06^Xv(Y$Y[+eS+hBKFY2o]MF51fI09MXNTK9)*Ia,W-CD)l7[kNXAG._c$[^#kk4kxSLmTfW),7+vVleSZi:v U"]'+?<%3PeQFy([z<%VG8#1bZXW.P;8$w:+%T,K]jU>kFD[Y$+FuB_duAq/r*\RE U"M%EEj2=Hg8K\XHC%ghf$6Rp_CO9P>2=a/S]=4*,$='Tcs_LVfn^EgrXJ55)*I2g U"FjF%Ph+aPQQ,8hBM[eEWjRc:G3J?,WqCA)8SS+DrKW]eM'N?h-jDIWqY;&3A;Pu U"?m_w#KP7X?)40B_H6RLP%>h:_-.Y3k=M]Eb4OOD-d9N-u[o_Yt\-Z6R%sHBT[5i U"=.T4;qT0rSHB;>dKR2bo/0(]S4b\%#Y[:/^3DeB9rY;WXR)pRIJh:L2eG>+x]t?)Vh6o) U"6P]WAZ24XW8K2&UlD1XkrG4k:5TBQ4ns=]C7jR:oS$m\rtC1U=23jNE$jJ]qE:i U"py;]RCRHx-[cLR$WpOOuwJJ*?n,kZHSw?SAca'KT?ELPYHTI'yOoSfwPDjp$,,QT$E;3R U"nL_WmPk$uKQNUo2>nGNgkJ3?D:IjW^Ae[u+7doXs5h1uo*26J*3V5ncP*0ffZ*1 U"j$v9NrB%50jYv)N,xOxB06^V,8U0tR/WLUI[[+v*ha0hCM=WWdZv5hdjV74VRU( U"9rpq94o*pxPXTao]<^g:V>;FZ4.>T>%3SW4idgecqAY70^R.5:qwtMuwNic=_)$ U"SUmAon*msC'u,8',eo:(I)oJG)S2A=Q.rCD[.*t5*J6;6G??<3R7qmeSHi9lJ\?;46c=Ve,>5;s]FmYrGp=r: U"i&PrZjePPz\7YS&94S\U0]s,PDQ8y?b(>6Udre_d94)HN4wTRgO U"ptg:*3=?hG:[j0UB=UTNtB,/LtKldzqa4Ilu#'>cl*GQbY/A,O*8b3n(:='TY:2Gn\_a']YE=JJ>Z)]:F44p_QoprG).AFS U"IzheUz)NJC5+?3K^uS)5R%AY>=44XiQR>I,o?3CR-TV-/42gGXiIkd<;mi433Qs]W&F#pF.>cErA[qI\Un'Zg U"9pM,za/GItN$v\Q[UeW8+3aYmlEhYPP,+U_UiB*i'(hPpX\U/;*L(bj:$Q11=?y U"a:D(%PklFAtRe7rG9OD4rtBA'D/o]20G#jtj:tObWHMd$e54Tfh,l04M\6;mZe- U"S:ZB5[dD?7tEa#H=)JFqtJ<#GH:lr&)Ab$&82&C-x=doPChOjAB3blnVPl$iEk3)r3uXS2>QLd]^rpY3a2=^hhV]ipp=App U"W=jVfFo+]hqYG(0j65FJ^O>1Er\:78IA^RK1<7-c> U">iRVal,H]Sw0sY)q_Yu;Uk^t]VDz(1UYpPQXfxlt\#8qHDK U"nag$ff#I<%xa,03L$oQHp>1&HDK><6NWWg7Gudl#qOaF_v?fr$hs76iw#4Hyojm U"kV0i.H0v,1&R-okTGk]]zej8e<5O45ZC06bt&,NgYQvE[&JWS:78ItPHl+VIPHz U"$[IfnAwuN;JU.Hxwvo>$U(? U"g5kmc<:rHeUSqD8$X]rl\_J?gH>qniaEd7t(rCWPU;G0L U"p2p(6Zq_N.sb3Tn.jLx)n8x[5(3WK]?rWUVJ_fvcKiJnvtsIA,MNNbcCbO0 U"6[]o2ol5oSra>;J=*z4;]+rKHr]lSRFg(*VW3$YHA._WiHW_*&\nLr]G_P5;\MO U"QRUt7T$jSS+)H3l^M4$(GaEJhTr[0pCR:_>gjFr=fehnfu3pIn*HTTR7_$IY96; U"V8icjJq6LV.af,TXw%%%h U"&p%%0%%%%%%%%%%%%E%%+%8=%%%xfr%uqjW%Sxsl%up*+%%%%%%)%)%'T%%%&DW U"%%%%% END SUB V2 CLOSE:IF S=124AND 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