'===========================================================================
' 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$<Ot#t[-Cr8El9^axdtN?^t\PefL1;HTKe'&C5U
U"66qyN1Oq37>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^mHs6<q4Z[qm/nGIi[wlnEX[=T
U">p:?sK]6K?]RdU5P4C;a?x*56j[wD[q2-</J+zA9j;:Kbg-C,tt[LOfP/xs/:M$
U"TlU\-5=-)s)u%p()9%%%%-#%%-b7M(2B';[+%+%c7%%%,%%%%xsl%SgfxN.'.BB
U"Sk5N9?Xw3U$[#eFK+,?fe]hYgNPb&[.-OBYXLbZ&O(Y6._OXI]glptO&SVMkvWm
U"wTV.#EETc,RtM400u48Ng2l^/7EsFYU^*ZFo.dh>C[+xm0m6rop)]/A,oDEk<0i
U"35QTsi\c$G06,XZqY<K\NRX>nEu5d[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<Z=XFr=UOwq-NagEh(K'/X^QS?-94Klow-<#A^Ypa
U"Nx:L&C#lXL[v+]:>#fPr&hqd7rmTL$U3x$A)l4xnDo.KFQ*,/khtJtkJ_\Vup%*
U"Fm(3REjtbW'_(K,S0mSt.Em+=]]fP(+R273+BLMjgR,t'W_R5,OGW$WuppphIVt
U"F0pT0+)<e),BfSTD(wT8NEBo-e3Y(7>ikrS#_9OV-#ZlEuXxATPA-jd87.LO?Y/
U"buvX-HH2%LMBkjX5FDd$n<Hp'WmwE:R6t0_fiB?6(.)&Q[gDhY:.:dWgj\);Q3A
U"6Rg1,Q;_l?Wxqm4Jef'b=\$[k:u(SGv]LWR7=L+#aQB/-gY$bBb#:gMuY;\Rb[5
U"txl#n=^kPMaDsva%4gG4(b.$:,)dCq=WEFs1:K0^/nHg]o+(&K)Q(ipL+q'?$1]
U"od6dPOLlhbASW5kt%emib?xgF#GwWm$mvNDq)-\B3k0m<i??uDapheFJTt]Y[1)
U"Uw25jUI5t3_2BNCAutU:K]EX2q]V<TJryo-w3WPwg[>sag<bo>*7/IGRTR^RCtq
U"gK%Dr)qXKytDB:KZ9DUVr3TL$M^h_1CQz<j]UxGAbOo3K\xJbHZTZnBGRx^>Ef1
U"<WP4?9M)%YBysYFV>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#Lb3MQ0P<mV2lG39%Iv5[D(%?
U"9iGnuUg(HrgqA=RtyA[k^O#?2N0&,]d$R$bHlZIMJt1zYUoeQSEN/P,z2i#u%25
U"u<tiYWwH1)W'/Y>1T^/-O;((3<PcVng+D#$;a]h=gxVu=#6.3.Yq;J-JZ>-N1tZ
U"(IR<EfaXO<sR7O-s4W(cOjuaWGYfK.EnyP<.7Fejcs\VC<8&rg.G&[3%WGdc1Su
U"Ztdg#dIV:\pX69s(m-r=vK(f2^#iM/j^HYFKdb4(fq*]#UI/eovfMViN_5\GM,S
U"AZ0(iANZVTQFXi1O+CBr/bViR9u/1woq;aNmsTGl2lAXSP[:&0W&;,Tn$d7.cth
U"gXsJ]&k#c:y6%qb8#J#1f/i4&^T=3n$K>.%Z$-Ulal(O1(_>I&[2&7z#m/C2W.F
U"S:/%]M*Xr-**vY5mu#U^;hOt823\0hwe24;IJM7ecC],6I=9.2ML(A2Xs<WlFcT
U"BYE%5_T/hXBB0XEF63J_$AG<Kk4(G2S5b4GFpP^>2[z)_rFXXdOrPA,'[a5wN5o
U"e/bLJa*tUgdpo9=ixMeRN^mB[xq<M8&412dZy1\y;U7]+k=Td9Oawe?amMq8GX,
U"i=$;I4XY1<0Bf+.4\/62;P6nwWC)OVaRtRr;?O&444hl<i3+np_cNmvH]jk^j0h
U":V4z$=&aAZToav3GNm?$w=l_7/Tk7wcDOujE53#fdDEF:,U6VLO&G;*mw^/d<V2
U"NL:wdTev_ZG^-A*)EX75JP=jqhZ.TauNX7fDJwEM,H-cS_,H[moveutfYxtTxef
U"a9rwGVHvw>If;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<zqlsdtalHcOuqDe(f.Xl0lGV-nV.s4#t.gj
U"eYzRX7Sn)$9Yr]7]lq8mqu#LRXb5x$iu^_rRotnH>#Ltcb>Lf_\.g0lr2BF%bCe
U"I#nKCbjLIb$slX07XH3P+JzODb>KjSp1oQFe*)a[qf$EVBdxos>RVWqKgtZeh+>
U"5:$RD;9<sbIB4$P9U0DTcpvct[sjst4Km$^.A>:#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"23u<K]egmNBxZ84ngKUJlgONKh0l+glr^fsMM&#-945s5S<7oC+U5m49S*$6EQ\
U"WEgsB:S_ul]Z[bi/g4_p\XVk142l/GOGFoQ5a)/-IuEa\LgTX9,l0dhW^?eO?=O
U":oTZrSV4:abQ2gdQV\5Lu*1i*>E<da>iQgn&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'Q<g<Ga?_i.73+skL^0n9Heahag5T,3^
U"7LL$iOxJm6H>Qe8gL'9OL8HP6=*(5Lr+-*5&&s9<iHHtqA%N^>XJd]k;&IOPY[8
U"cTXP^5Agar'OFP>DER2<HIetjBX</]TmY6gJN=coITH0w_?Yu_1&P4$EjVV:?*.
U"=PY:$FaK&onfcTAo(GP)%?qjQ]:My$wgFYuNUtITpi6TOB%;CYfWW0Z*6UBoDTo
U"6V($Ne#hDiVZd?S0S&pP,[9BiPJxN5rFexSB?dEG>Li;NiKCoB<FvXB8cMpdKGA
U"^8'-ArMd<38k3*T26,lQrC3\H/RrqB)?[g<8]?=%u/2kG*/>Z]1C6K.Q(E<k(fa
U"u2Y],2gf4S3d]PgsqO$*Uc^nHQ%H2LsCdlQP\=2lkE(U#s;/M$Q*>G;9Z?*We^R
U"m*t%[*>W+cH26x(GQZ+Q+G0%,6RDdnku*Su]$E^HKiV=n[Me$tBH4UL<x7Gh9?o
U":xlb$KgOe9*i*1=P+1I1ze_I.GQnsV(a5gAJVC:bu0sfB-WY^B7d=\GuYBN^Y-W
U"T\6iIW?LHfYG\,Kk42AmYS-VN;?fGNM:J>Mr]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*<rCfy
U"2zDA=G.n*'1K),s]0Utp$>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)#<a^Ka+M[ziYzTSTFY08&-ip\A3Ufl^35]&S#0r;XL[iu&=c)IYM*6S[Thqa
U"E-5c<lW0?-?JsVfjQMpQEN(K_42XJtqZAHm*N,HUnu$Tm7P&W6%IO1scEpW<gpT
U"Q_(=OJ;Zq-q3Op4csW[xFQ[C[vYdNwr$H0Rp[,QDOn4e-4J8;1GNFYF6nm;A#k.
U"]:8(er,PDfu6Cd5uCd6]cGdomq-A$^3p-&xlh>ri$kIT2il)^W\zuqrW6fXJX:g
U"6kLZ;LImTZ+uuWDh6uuWDhu6uWDch6S8fpwzAjzOJV\qZ7v6t66,I#4_(M<jM*X
U"l$k2DL%ry1]rL;._s=Jl0H)HU]+UFQkjjN[hc.Fn8v62]\c7HXb*uC*X>PccP71
U"F>:TnB4BOB3K2Lfn$bJRtak><SY&g3<gb%#Hu%nr_]><s7,Kl$I=<sA=C3\Z\_h
U"VH\5<\PSJ2ICsBbmY(;f8H)c[ryVaiti9W,z<X[%PKmRhHY.GVaN%catlklbv?k
U"#[L#s0pr25kA-D0HHs<3V9I%*?iE5vF$V_\',k&Bab/w#Wg\hTP&ji&%:h[#6)c
U"'QFCdvJ9-p%wh>qn?t%<$+mQ<KVl]HLXEJAfU^pt31\S>Sn*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_''<zAf'<6kL&,4jAyT<YOpIWJq'L0C]BfXGWBzRxbJ
U"^[DBp=PV>JgU+gWS>B8;#j9rh=BR+rnQTf'R_]1[zmOOaG<BCe&^CsgJ=4;-/(f
U"<3G(fCcz^]RL/vM;sZl1NePf;_zS;)aSUJuG.4j>Qe)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#87tsdG8<KutFic&RoJNS3^0l5*gd
U"(9<aHohg/5:rl;)4F/iv-qN2v;4ljKH\,A&Ntvi#b4&qm/9SPG$0CQmtTNs-)s;
U"H,l)=o$/Qx_iwE*Qw1cVU/na)ilC]:;8&BceKyJlKnIT*vnkGZ,ohUxag1PkK6c
U":crm>N^d2cttlBKR=J0Kff>tiCenvIaVCctEW9>t2+BLk,H.Wo:Lji>?^NFMe$t
U"-fn[78<=*8:*g=4?OY2?x%fb$+qF\1YZEh?FnW<F1_rf3#eQvu*+9A<]PdTK)sa
U"\*-WlbHv%ixKYl*,vPZ5n;vx*O2cjnmsj$Rx[OKJYalAb4_x]]b9w_\KoNLXN^H
U"v5WbcP(^nGtYv%vK_YgsRHqlN1^_4zlCN:]l?+Sr9r$CCSiGvWb5cnntq#6].nk
U"tjG$B0#<Mw(9d^P>c>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<UqA&M;]zIIg<MM4o*K2]i6%m]c[l;w=IPNV-B^bpKatA
U"<'unSZjSDj]i3mls0sqA:YJc=nK]OFacDTHDkh]a6NG:azou^';qb+uS0sqA^+R
U"8[Kf2U)U?*+kAZPNp;K9k3cug2Q.q5c>__6Lk2$W[wiEBd>4pNK+-/vzKke(Orm
U"eI'3.PKK6c(#$v;kIg8nY[+iBdtcrm:>tHMf(9reG[GZ&?VPqi*GI3e3tkK>kkP
U"im%$$CEQ62veknfJ6W[koD<aLhLI&EnzCQBM(;l8G)i\Dbf\b&P<VrvA'X.D9ym
U"y78tW8>]'Owia'=\_m+/xKko4gMmtVq0rs0YCcDk)$DB4:$'jS;s1Ln=lNvn\t_
U"%]$#Yd<bUYgY[*:payni,]>%fd8?TaAJ5z,kHh0q1dO*+hGgn3Gu%XBYckBxOSD
U"RRap^n;Na:Ba6CGGtgq9z+-,K+^(jP7pd8Anw$l[*dl7Yp4-TNS[1S5\bOWA^mO
U"4Jt*K?4K37gmAccMDdhhMw(y4hQH:+,Q7s(<D/[Kh(b8B+%'O<iDvib4P70wnAN
U"uVh(b/p5O6JJNvZ-&by.n(MtxerWBSvfMhyh72h?AF?L3lSp$VpelXFs,+[AdsY
U"s%vh$_rNuXb:qwMbVO=uh+.h?R8$NSZ-d5ao.ivH:HQW)moM_W2T6YJLcPnK8)C
U"d+V1b=ErZ880nLuLLME9\K0Ji+Y&$,J/Saa9fden)Hg=Z0c&QP&pg\/c89[5ndt
U"u.U*<%cqWxT8/tD6g%Pp)I.fk6Um+Ev0RShtO5/)X9*R)DRj[7?A.WOy.<tirJJ
U"T]C/=scr)noTGvTehXfa?c>]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<r2sExlJnunMYl(<o<ZX%4
U"N[>+b?gk#&UFxohP6px'$uw(.g=<<tl^3oJmo2XuxPV<B6Sp*uSaXKhAMbeSv]%
U"z(OKwdvzFbW8p0n/zzSE-cdo4Wj3m9B>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[ODlW<UGTyb*r;Mt
U".xaetmelR[Ho[k?O?nx<0fx*L?wN;VE>o?0oj4Kuko?Ohx>cXYZ/ONt>ojeO0Rf
U"ccRA$?cjQmLpmsDI21huqXl0j9re3LBn]C\.3Qxux4B6UC^#<?f#m=L1/2r2B&L
U"kO[oWYWJS>=*X2uX]&IHBj;YieQI4BC::Gh_qsKt_cMYDJBD[LHbq<U:JxAztjI
U"o(hl#:<\%#JxjdhGeEOsl%cyhB=HZJHXU(*Sm16vAK=$lSuR;,PR(%m\;^.uMNO
U"MO7[E-/rNz1n?Nt'aZIi]us(a<AJ8yZ=pc\#n?cv$Cb+rhmPMe\Pl3b*Ih,pm2r
U"fngqY1x7vKJ,Zu%O#vXuSURtHrG0^qoZZD<chCZNa%CFY6[lVFSegfN;nw6g.&d
U"bO4Sfn\9]j-:3rF.EklmSU6d7Z<-xfK;<=aF?&/ng+$k>fhlzIckn=Ago8Tt]Rr
U",;'pPTGvj<pNmJ/blJ0m+yhW0k?B;NDt^FapPnJ]r<(*LHPooEcmRE'J4,<x+q7
U"rs3JRqPub.$amuXlU<ngQw[hLXnmjqO\JICi4Y6mic2&om[AWmh175ihGC3n$Ao
U";FH%G5hiAWDoO3cdr1RrRLjO#)?qaxaqccjmx\ovVJCap3sfLzb&Pb^7BV>ao\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<z(L]
U"Uof:^b[vu-_&q>#-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"KLfLzXJ<T#y8Tn^$iJhS^jimVi(?cjN=d&JZzdj36N>Mwm0&iwPrsO9f&PQt6Ox
U"]u2c7MZ^MKPC[R.AJuSqED$X-$.5RNi)e\fXE&g:kJBkNsIA%VKI,d5C2*<W20]
U":VVV4qw&oHz\r'oDq.Tg\DITgxULwyqc,em6_Rz(Lc]G'q$tf1P8,vAMONa3Y[t
U"q;uO)i>gJ:sx=N&dooJ#cUtx;wgCP-1PUcrovA1CP7<r^7uy;.*O0oDtQwX%xO:
U"(SO&;;t=7F_Av,DFu[<6OVOiI)X:(N+tLqCg)U6[Jph3&?'^0G9('zDi1'cw=\:
U"Cxt(EZzs3-/.=_sAi)CAH(:Lg6H_uG2nTg4v_oE+g=l\+rlVDjR]5g',HUi%k;j
U"bdWP'L'L#;CJrGfe(AJfUWZ\>#WBi9'(-2AB=v_w6Mk$;slkrmkqBD7UwJ>IfYE
U"]p)u&;LPD,vLcQ*?*5B4d4C^G1HrSXV;W>e;*r0g+U:w3ATk>,cYYA4#+e5N13q
U"Anm<P_fCD0ItA>]C)sWFmls9P^PqROY'/zl*t8SK:F,K,C*F8U7ZVB+F_Gk*.uC
U"W23:A6frf#J979dp?*wxWEOVar*57Z,l?Q]e^.<G,OAVZ;eSuxfs,Uh-^6A2P(I
U"b2yJ=^<vkliC67GbI\Z#tS3PF?IoV<]2kW/b+,PEhG>6_R+F?[tbEG]sUf[KlvU
U"p,<_L_.Tc[7](N,DXhZL);-KmLB4nl[F<lh%q1z-;p'NL0,WwXam4]\]uyF8HB2
U"_<(392gDxQw9FSaQ.5t-&,o]cX.D5[wLFuC>t*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-w5<B[y#v_FhX]td*=.U27x4=WMhheM/dk%xNd:qd
U"nUw\ja35hai:&q[q8]g.BT1G15>JjzKPvSexG8f<inoEXG[gX2r.BeJ'$=$-JPd
U"+e8hNcKlET)xCM*;6bmQ0Q)+^>[pNA4n:FW:j)[6brPRdUcg[82iJy3c,,laG()
U"&Z8undE6t/3zKtQ*m.pZ\(hdRcCRDXSBtxNeuIUL#[KJLJP[ctZY\Lsd<JNbZ^'
U"t/wTBep<;KYthS#\w?niZL+Ifx2Ew9)pkBkgGn*Vl/8pU$xwjQBGE/<Zh.k*sDk
U"lgt$+mpAbv(uQRtbt(K0%^,y>1QW#EkN&0K1S[(cP/)K(=-pryRU#Txp6-W6Aiw
U"Z#q.\,V/6?Z.Vo>xqq_JKA<Z#Dq?oTZ=e>KZRKnJj<PLXt9u\cRoRSqyFc_yhd%
U"89Ks:.yXS#GoiuxSQN^s%wsOzCUt/uOy:KXR/+W7s&h,A7C-6<U$\OoS*tX\(7&
U"D_K0PJ7<^BawoeQ*wuLMsH3f-hi=D#Wir0p/Ln*uxNXlHf(JH)42M>$6>OsL6>l
U"Gf,rgGiX6;\)J\jsXZ/t-vW2W#&7Sq52h]V^Rp)]nv,ns=<o/q]W$TF_A8-5\#z
U"l-SiX]Ho%hAL2p,0]DZ5L2eA-rSB,xMO7sEaQUjy$EO$*+?eDbzPr&r$L)$vkAq
U";gx$S]Kn?cJ/vTY6^1js4Mv0a+KCSwS_1oN54KcB-M\\I&lNc:*w9'*G&ar<k59
U":X](%/4ca&$Py)Z)juWN4S7#,h.JS.EqQsK8S*G0fiZof-_%K%/J]4+$G4*GL^&
U"NbeB]0GY>Q>(;0r:p^1K6^d$ixkrvO([WK'E&4aK$id92Ha)*mMPV[CQUh-PBMQ
U">R]TPP0iW+WWa*9YC\kcTk'YS-f.=G6U>uYdE,<gjPA'9=9EvhBA-Ecs0Xga;[)
U"guN/2_8L6qTaRi\f6M*ufpJw__hjv0CY/G1B]]PNpUAbV8V8=V4T7J+?KLgle.;
U"r'c?f/-*ajjR?AvP^n5El,A39vz0G)2Z-=Ojb?;K\5H*CKhyT]24V%l%fw.Cp,C
U"q=^RZdSP%#H4EM,T)eujKm4pzcS#_GlPSVqX8wG:VH,Z<YhK>(Lr*f(Yo\QO1g)
U"+Lo8<IOrFh5Wp[9o/2GZw_e81#+SJv]xP'l19_oo3f&IBlCZm3Oc?r273Qx.,:i
U"=<>Kiw)>?Q8G7zUXfmu^v$sX<Nm;Rqf8&q3lf)h3_2LZq=fKws3xw7l/:pHl0-(
U"6g&.>K4Kjd/QSc&)bL_$q9tD.dN;n8j1cNZJT<tO9^XIbg<.%t<0SPXdLT:Dh0f
U"ynR<0D/F5kl6Drv;H63H.NIVk,m%T4h#K;yA5*_r,*v_VE,geDwz:Pn(7nibDgg
U"tMf$q]PSoVexF[Iu0.Pi9.Cf>luRufi>nDS>.[HO-&0U,7;\;p:f0ftci.t.]S1
U">DbZS2qKl<CMQWNMzrP17ftk'9$c%o.7ZwHSJlqln-lx=n3oo3wu^.d2NdO\jho
U"8gQ++.SvNZS2+v-ZrrlFgG\d-2XxkKXw5^M0%T_YuwR$pUD9.]6vZJ_Y$3MTqaK
U"#=kA?yWnGTG+r8]gl;qzv]g-nGcPm0[(H*(E-+]wzu\&\iFI6U%\tqOGL=8AD.l
U"mo.AkB6a0\1)**$;jn,b,$kS)H^Yn$A$-Le6*kgQ?E#pn:5Un#WFb-f9cAqF:7=
U"-q#?ba\wVtpk,q#_i:,s'Z]4:=^Pg6+<YDsn6<wj(>B,+;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<i-gtc&Aqy:Rh1:]W+';6F_9k<m51C*M1+iRrf:p?n5'?Rnzn?&0pB?=
U"/r8zu3pY7N*Ql<j=]Cf)Ncfo*RmOIlA-YV8BY/F5+gKsTpF8g-#:s+Z2=jE8A)k
U"AGwDiJZW4bb'\7uj[BL%9HET2-EIf1ua;AjrcMo#SDfoaP/orBA&b>%YKD^fL;Q
U"Y?.YOE^lDfe9:0p*T*+h[a5MGu0,k#;jFCy:aQ;d$F)*3>8c?E_35?;s]0l0Yar
U"q7'%e<QgD]?F:S+UY-AkjjU)JlaqC/1YkdXoG12SVNdWi?MFL3qmG[]O>xV7oAu
U"X+=<95OQs+69<y)s4<6m\W26<5lm]&]18rWJ]\c=E>JzA\8ATKbCPoZK0D5U9od
U"<]M8U/4ObeRf06^Xv(Y$Y[+eS+hBKFY2o]MF51fI09MXNTK9)*I<b2bFS8.I*\T
U"?+GBnGi+qDgrHr=);V/,YYQ'jaCC;^Jq(Xu5W;G-HbUXnM?R2%lMkS-LV=.WgEQ
U"6,7GEaT++IhUXUQg>a,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)p<Q:-,,h+juOgvSt
U"24USAqG*VmfVH]bGhfe_0^ZI6$Y^q2C]q\+Mhk=/C)]CWu(vC1ZT8kEwgg-MGp\
U"4$x[32zL-]lM[kO5^*#b&uDZqFo#1bMNi,ddz3uE:>RIJh:L2eG>+x]t?)Vh6o)
U"6P]WAZ24XW8K2&UlD1XkrG4k:5TBQ4ns=]C7jR:oS$m\rtC1U=23jNE$jJ]qE:i
U"py;]RCRHx-[cLR<AyWCie\%V1:a,Hi()x6Jov_WR=I_IHT*\,V(tN=lL<z_eQQ;
U"0ar8]dq>$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*J<jRg=#Ym%WPIT7ZVu.Z_4
U"[.P'AZ^St,+oUmbV<A5kkb*=(xSRb0dNV%+wW=CTD.dnfv(neVntfnl,G5GP[lJ
U"[M7sCo'U5%I-P03fY:sQX.\rt5b;=ms^7NqL-Vp_eUhMb/?=gQ/nMDHe0BSU<fA
U"dYqFr6rB/wYS,t7,,n)hshtQQs3L,<akniTC)+FG9$)<b0<_8>6;6G??<3R7<Gm
U"IR:.oPckR-L;sEuYhh0Y)EI6IWP3nt)CJ2]/gtlV#b(sw5?K<16k7E$fN&\R*q9
U".5LLLbMY6MGn0%]+t9'd'b:%]jcZ3X<i#'uSVqqmKccj<J'As%fO%]o,*D,#5Dd
U"tl,6dwL/pF\qD;nZo#1LeM5ALbInz>qmeSHi9lJ\?;46c=Ve,>5;s]FmYrGp=r:
U"i&PrZjePPz<Vd;VRi0np_%PgOK_h4k%.0$L1bLhqT8PuAGP**lK;2H'V&u3#^gC
U"pnuXD-euP[iv-usb_O/gj.XHZgqIJdX&%P^#1GTuhV^&)A]TX,PaMIMD3gRh;;;
U".n0%D($XHPDg']6K^AXf;&$$IDb4:;Lqa?-Jgk0/UlY(GXoOL%n$$W32&IqLz7I
U"6;NUF](X&Q^+;E6_QYLNb>\7YS&94S\U0]s,PDQ8y?b(>6Udre_d94)HN4wTRgO
U"ptg:*3=?hG:[j0UB=UTNtB,/LtKldzqa4Ilu<x3BCG3x&eRvgeNZV;x)$ZnxZ_F
U"[%+Q2Od#'jCxC3^KhZA#eZMGz[sK=8-?5-&I^VF(8+8&0B^,QhNAJ0&F-HeFGn(
U"S%#pM%&d9It)v/PnMfO3_4gm7u;f./5<FD5tK].+R2=B:/D$L2Qn17\<TX)G3Kd
U"=dV>#'>cl*GQbY/A,O*8b3n(:='TY:2Gn\_a']YE=JJ>Z)]:F44p_QoprG).AFS
U"IzheUz)NJC5+?3K^uS)5R%A<qZ86PZ7vJ=u)6KYYx4R;l5D_PBO'O(Y'1tg3OZ(
U">Y>=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=doPChOjAB<M+kX4*tWqrI
U"WY:[r*#/gfE)\X-G4t>3blnVPl$iEk3)r3uXS2>QLd]^rpY3a2=^hhV]ipp=App
U"W=jVfFo+]hqYG(0j65FJ^O><s19$BmCstiUvXz&5JWV^GHrWRj[gN-V$fdwF/Je
U"bz_i_m50WPm:n\1Qb,ui4ieD2Wc&09d.5H]2*G*w/nFL,cm.7Mb8uhIMpmNuQl=
U"lbrTKTl08*'HTipKHTcmP.qimh.?&5H_G8QG_NTXq^BUW#r6k%ktq'61+KkX*um
U"ju=bi*O6:#9EYKEHzG[,8Lew7K%JMnK;NZ&Ns6E\2\I2>1Er\:78IA^RK1<7-c>
U">iRVal,H]Sw0sY)q_Yu;Uk^t]VDz(1UYpPQ<QE\PQIc2ZgYmYH>Xfxlt\#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"$[IfnAw<y8Q696Db(6E9S:gg=$-yodR*c0Jdl;m4g=zyKJIfdGCW^14WnQc*LTw
U"aI=fn%<rMOn;l.EO%5-Y6eA%T)hj((I:5>uN<od*n'[P$?ok>;JU.Hxwvo>$U(?
U"g5kmc<:rHeUSqD8$X]rl\_J?gH>qniaEd7t(rCWPU<j-41F_\pPzmFEC&C>;G0L
U"p2p(6Zq_N.sb3Tn.jLx)n8x[5(3WK]?rWUVJ_fvcKiJnvtsIA,MNNb<G9>cCbO0
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%<up&%'9%9%%%%-#%%-b#MuHq&q8&%(%d'%%%+%%%%%%%%
U"%&%E%%%%%%%%%x%slSg%nup&%'9%9%%%%-#%%-b7M(2B';[+%+%c7%%%,%%%%%%
U"%%%&%E%%%%\%&%%x%slSg%fxup%&'9%%9%%%%-%%-ebMp\,^f)6#%%yR%%%0%%%
U"%%%%%%%%%E%%%&a,%%%xfru%qjVS%xslu%p&'9%%9%%%%-%%^-bM,YzBj\%>%%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
