'=========================================================================== ' Subject: SOUND GENERATOR LIBRARY Date: 05-02-97 (10:27) ' Author: Ernesto Mottola Code: QB, PDS, VBDOS ' Origin: e_mottola@bigfoot.com Packet: SOUND.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"SOUNDLAB.ZIP",4^6:Z&=16871:?STRING$(50,177); U"%up()%9%%%.-%AoeqGA]'Xz;_7%%'[%&%1%%%%xt%zsiq%fgSgRfxfL;:BT]?+a U"py0^d/YE'XY0pA$MLbX,lOk2[,Tlk*c#V;+>3CWH4V[:[/Orh]U-R<0Y[C;;W U"K5.4V7Fg,KAo;cQjH-g3%7_Eq7:0Z]?A0gtK[$i]zPgHVqS'#v?aF-Z?sqVW\Wo U"C#[bYF5>&i]4vA3NPzgK+(EeZ.Y)4f_KVh-u=:KJFFPEHEo5)HZ'1(LD U"H/f7Njukand?ttth9&P(L?'$G'Wxr\HtG U"vsEirQrP5<4=dm**-9n-Bv8/u*8.3vOdiQ?r3-[$fH5i[8V= U"nKAW%2NU#-:r:86oJc$jUE,PDaa-#wO,sS$j2Q\sH_Zb#H0[Y?k>%'iRO-D6O&FCw-H'L459b,lq;d4cfN]uzsjDUGG U")Fy_bscZrql$XrmhC]]sS1HY= U"]nV]cli8oq5obLBHTb6Obs[yCfI*.T8^EQ_ U"naq:VsP?Jnmn]TQ%KGq/(hKTlrd.9m%_2;EkIV49QH\fe&%]O*[(&rm&kYkoGRo U"fnqCT(Vb&t(\aD/R^(*[(S-FR=CmT>)k+\&?7a U"m(J2Mm,,OJlD&\%DF-nmAr0W81,S7&\K>?=x7kwB4(.daw[BTZ2=)k>a&KIZunZ(JPmb6PIl]a671 U";]Qeqv:#/_gU*8faOkgkH\?D>a7I-$]4YI_>f27v&MpSH>TIF5?a-n)\(Os)wcf U"Bdn]h+se%y$+WSjUXk.MCUFLU>KPquv$<2zy(hi8\0KI&8w5C$1J7[a?v1uZNNq U"\Y%r#bW'VhpBNgZQ$H/-(bNK9%XZ0%0,'Bi(M%ni(BisDsPb9:h97dUsb,OZx+'X]PTTg,w\AJP_47[2LUgRr0M:2ju7 U"cE?Pk*=wqSI+:wE6Z=z5S^Uo+5.&56M'w4$BX+%-XkdR,\oe5M%[N[#7)B:1.UL U"mXutKl$>ngU=UPoI;'TED_L'a>o'M&]Fh\$N/]JERSgkz=-);rx\X_/Jzd#Ls0_ U"D2mwHR?n,#yV2Z*u:=2EL7Y[;e8-?+k#Y_g2r6K(OuVITx??XLNy'UFjwZ\DU4Y U"iFkDW)nSQDa1Y\mjqz'?I['^]*mi:KF2]0l=;\]J]CV)BrhD1CaPgn;)0>[UBM2 U"G1kAW&c8p=%P)Kskr:FYskzY:-a/bFsk(CfzY[b0P=oM\bUwTKY%m/02[kEH71[ U"5%H72n[sHaL1[-b_%8?<&mVA=#Lrvt54QDOM'Dr8s#f3Ji/\=VcaSk(Ujz-[+vV U"=61G*qocT)r<\==rLe7[[/,8-#k9PY325rPuz?S?AYpkSA/GwKV;6D)jk0LWir_ U"r<>fYuJ.[Y=LaD27d]V*+[6FB+(hJ%Zal,2b8>//-%8Q\?4(Pm>63<9W7Vx*4g; U".=PO+2A3?#c_RPOU$mw5[s7QY%FaSch:gjZo)pIY-(Fuq&RCuD U"#5(ANl/9;[bmmlGUY9(xY$^Uk77A[\sx9UJMLY+TRt;e/+qO(RS U"1$9ssOjhsR\f1/lgRY+IuZE)ew+2cecuEVPALg?;]<.bKE\5 U"Gh?/lBt-^+\&FLss'7Iq(3r>Qc.Z'utqmtxH'qI?YL/hu%=y&uSL&N]hX-pclRi U"Q0MV-q%W&UwT*%if:[pF-rAw:JrZ/-A'I4:L2) U"*xn'GAj;,)[d&(PLrviF-o\iC-5hHPUI3G+[e8I-6B5bVWVmj;c(TLLRwh-EfHOlB#Cl;EsG$iR=R/lTA806*6,cVujTta$>q<,C?vs')L.e3;8h^%v+)?f0I]1OBaV3X? U"DBE3ut]Fsr=XsP)/qWRkmdv7.;^sdkg;Co9i-^sh1keOUP[b)uDG>7S7[RfA#.p U"n6m9#&FfmY8,;+W>=7[2=l45_8WkQe*^lf^(h/FVQ$'Ek%3/dbcp( U"HB8iHu55c]]W-\FhWU&Rb_]Jpc+2:iuhiKn(.N68H)j*='7i U"Jlx8,OR8\L-vKri#kj(Jj(/.tnb2-BA48Ei+yMuwr$P?]0kkD%KH8aT%RfIT^=\=3,V;Az17cFfkPiF>$uRu\r6%%1dg)njMWA;lxV$5bE>Ug=scBE,m.ossA#[;X#.L;u>61l U"uqY'Fc6MZ=Mr?R3,7WO.eu0f=aUL/lr<-3SQ.G U"2wFGS4MmM5fD)_x.IWn9X#bC,JNm9f)eSlWFuYr4Qnt7>wFrj(,b[kHC$RXpjuG U"4HLs#V.0a=S%a^(_n0a.?,34NPmk[M#'[dhYH?%nd'T:CRWw/N+45dT0 U"RiOrx'v+nVKTSicm:2\Ms*+)pkRzGiL?nDFEid6$f2^ U"TtR%selZWU$t=t U"&au5-4?f#9RA:?XoIUTT#WB)(;#O9GdCS:6kRf9HaFuNep7VsRW3t8cL:=YvY'C4Z9i^;hkleOh6B4Rxmr8^_gHLSW%Xv U"5*dWH-7qVYsEyQah?L:6=eLE2cMhW/t&vMqP2i>zYBiuCCW7SLAR%Q,*P=Wl*Il U"_)*\U5J]RIEk;d1S_Q47A_i(NB3fo$JlCsS-ghUmOr,7_3Gn/K4ZFQfs_xLGSs9 U"Rxmfwaw:3RMO:yF$t1Ub)j?cgutC$bw3nv,b40GIzjK07K>LLB-joBMKUFd;ybX U"%OgfMpHuU<5JIYa^4]%K^qGZE3[z[/xexj08?Q-8iiZ#q92A+;UaHoDcoMeLY U"ow3=okj&,/ad44i-oZRZ$1^DSW;PvMWjG;[e6xl8Ur40GT5+TNH+3j=U*]v'6r5 U"6ae-vb4m$9%3.1i/=W8n('4x-kL8>vt$V#NH?f5DTt#;r*8J>v=4Yh%+gi3UF3e U"uye(t^]c\-V;Rrt3>D09/Lkws_S+1(4kzSsaTYqb^NTtUN\[%Ep?hEDbOlUok4+ U"HU)*WqHgp#R9vy#4[Y+R4D[4yi0L?nfMLWH%h)Lc\$f2^tWvqlCTDi7&>=0aa]' U"wjf.GVfRpA:XoG[GP=GGHzaAT=-k2N_dG7^xWshHi$Q7X]hl1?XA;gpHEdZEWV9 U"=NHXlYBpjeLpr*GV1$5p&AttP>_Va;)l(IriuxK&1^SvtmRyC8u&0.5r(c8a4u] U"n4Hu(][IHY*TIFIY3Z7KdDn[H]sS#esp8Hs.:o0\b$55oTh*0)2;s&ieco$\u.G U"ENrDX#-'Pt/+bwEchkv<&N,4Ca_Obl*<(/GNIVR^9LgnQI#TcV&)h#v>=H<-5G6E&50Zv3 U".NVE,o^iO9iO+S.)t;t.eNehG**#[UJ2IVUbr(_D%/y5Q51EEMo? U"[WJvpv/6hU2'6$k)q?K>8f7bUs//f\TX.rUk+pNFe^/E.EmRM&P\r45MU2]jQ3;CZTBkqmr:- U"DVI8MTK&bgR?+:?a#:hkkF3-[QHHn,'%a43Uiw^&tv1Mq4tRPK%'KOl,skP8u^x5q:50BK_9(wb.>qm U"d4$6g3H('c+dsdr:tG;Q<)hcYBGoq3RV8YWYJAf^z0qNcW-%mEo#Hw;aQs9,NE^H+YL'0V:kowk/g%4qW(d058%IT6#e''Mg U",K:o.-.*BDtcHbb:dBIlt#as0Lu_[vA;W*J5XB]v.Uylwk,)YA_rJ\7qBL-90wOyV*fE_g#Lf]v U"Wwp]SL^aUtpz>9?miiV)Q/:\C)v(p;ec)XR&<;GV'4R:.4=,1A5a) U"lAVE?n*\LU2-+K84)rZiu?cv9XIjZvNc'?Ccm\BPviJWy-jY/t:9E+)S#/WaK8_ U"r(5s^]smPSeMpQ&JwCw/p-Kqd6e:A^&&MvC519R[2V05UE3HlWRfT_RO[s_.5mX U"7+mb\ZfSYpxcr,6r?g;-UNZ31<4nG%OEi$p$XpaE+Nq?t6qMD%2wvxrSbwN2_CT;-M=>1J24lT&Qx.rAc,; U":Ry$l2#I7iHa2AgWGW9PG,$ND>f>.$l5hPPrK95^7m1aQ^;odQvs3V^*1B[wGLQ U">0p/\c62?^[sLam+qjORkCwYmbBUWF%Gx->9)F2B)QFd=+SW%COAc7< U"9j3MdSzy9WOuwX9L[kHs3tAH5*cL+H0Q$Yt4TB%tkqm'GxRjbcbi7b6,IDZ77io U",KNs:ze):knHked(L3g5%.9fM4c,PJXS;+G-]Txy*rKFe(Pc7b>2A&/ZO2M7u[' U".Mg%/oy('N+fmRzRU\1^UXz6ETk0Vs*(&l_U6UbITT$tIVODn6^06l/WTSpAs*d U"QDIELYVJ7>7+vcZtFBC8.xs<*qGJsU5,k0O$)*XZ?dD%of50u=dPRn3.07ILkjB/&r.h$/*nsB$qaQr$->4FP+x/Wq=ZkP4PRkmPM>j3^*qeW0-EJWUt5\F;%Zs_dMc?,W U"Mgb=Iu$Br5MNFVWc5sC&S=S^%Tcv,koQlKK&NNun=YNv_=fOrk56'B;N1W:ua/' U"bEf34E3:]KH3P&0Qs2_6\*VsF?+?=:q5DcvsbP.Y)c7$S,CUsLE1$Lwv/E24NHD U"]79Fwd?ES&5_1e6\1C('iX5-k?D0)f1HF=DK1M;T$I94RF<22CiIY$LaZRLFPII U"Qi&]5c+#V[^)rJv//tFYR(rRe'_):,([DkF7?NYdQ0P8gGY$B U"Va],Dc;CzidpOs6d4HSF#<]6,UcCNu;^1_zkUG(xQgTRn,gUCS.aARU$B15eE%f U"$AY.S(%Z5A\KK5bEWMj>TB5vm'.R5:vdYSdXfmMkUMnu;vUu62:Mqo,';J45XwtFW1FOg2oPhRy(($P:lab1.=Jjhg2aI5 U"Ty$&>5cv6&uI-=sgZh'ErGv>mqMzg15qJ\w<>S(50j,#z\f*>xjBLapk6Cb^Mf' U"/wa(E3goqnF5?A,;\Ui0m5b3Zda.AQ.BVpr\1dYxUQ;pH2G6zeaw#peDfABAmNI1%iM;5P%^y0WObV:yr U"tng]QEE,oCr&naEv-/?srf$ U"/Mtkl<]BKFQG8+No-.UiTepdAXFE]dDIChm-(+KsO,9Qw4B)oN1Jp\ZeiYAZ)FE U"7EDTk29B.i U"unDepJ5b0?WJOuf;r<]+7qg0t9+IYZHJbZ-swP6BmAc(oTRZtlCmrw\CZX$==_b U"5_ohF^1>l2Sb4y%LgH6EULut&j*?,5d#:;9Kh[nCIPFhX*bC[A#r4--qRVu;PvC0TZW>Mi]K[*>A;xdNp^oJ=Tx=wM1EfkTCn U"_sjl#K>)N$'J;Q<:=5=H^$*,i9cf;g_2+Y.JGS$OEGn6E2tqd0C&C66RyN\2KU; U"Y)X:;M;669\&Z#NZkCxtFrtnwAf='To*luW9C<:$36;GVrQjn5nl49uPRcfR;iY U"bBIi)&wNYb>>lB0N+/>EycSD4c*+sS2Ds)tD:Lv-F8j>hB?awZROo.;4>gRa97U U"?^mG77]t_XZS'UG+dKj5'wPFe8x6Mr_UJ/Ser4e?L>\Yd6-l\1MA=V;kcIpbQ'D U"Z%UsS?pA%]]7zG?WIXbN5f,^hOaKwfW5&C^2/A;Wtrhe,46] U"S)mpzGWBs0p\*oQ[3.qu[dXU2kQxKc>]7m5z+JMLPu?K.FOKho?OpKN.,W$o]M# U"7G9[#gqWSI's>lwdL4>bf/Dl+=%Tq3mT%;rj?1Bk5WV#-4BxeVgCOBhp2yM;cBJ U":7u.cU*nwC^_[*p-QYX1WFX0WvE%RdAH#D?s8Kk-:w/Sv'sGkFBk>([m-.0&zYq U"6z=bmVArIMjW:tGX,>#a2:^fJb*KK$R*gM'a2Ww3q[pDZ1&:'lnT'GHP)E/GD*)q^>'-HpIuOD2e,Ya U"9-['.],$5DvTP7?4^6Ex=YEeCKEC#WVR9XBG=]?&8;f>2\7YWcKecN^2)gO$oUH U")28G&=&G-T6v3m4gMHG?mS/L(U+,DA+x3E&\n54iKnr3s=,786pw28i^B>'OfqE U"KCqjOnbuDsB4hzmM+OpI%\G#ci0/YaKZ75dD;p(zPhII(KqllaSlV72N=A0zxpI U"nT8=la-lOn(Ln5QTU1ZOF(&79POihCQ>z?*AWbjJ-UB1[alsE1S&w6FS%[/s_K< U"<&TVivSw<;^rI/Eg)/r4;8?iwgmwo<;Z+dOpV.rF46=ug$>]&(t^R#G9mVLOtSzo01-O>D_Nde U"#GKB&I32C%N=Nc5GA]Eo?x.7i)E4i7v='22EVJ>j+0p,deUJU+5<.3a:t8HDX1A U"q5()'_W*JfX5G%h86G:30A&cXZ+>KHiR\tB4WXzZ3+_7?WKhSgb^Nr9gLAqz02> U"OI,Q]LJ8W.NelmzP85PVV1^Y=[bc/+%i(eRk?:LyKN_[AXT9SHiT0,qB>eXChO# U"TS+UtG3PrEBaI\b$n=w:]eAJZ*LYVs7$s9nsT1*Fo'gIU=%+x%(E&V%SO[#fT<0 U"KdijVZ:t(h])=ds&g\j]^6kda(c7Ehln?Fx&;a>wt9CJuKTuopmoNrs4Vi%09%cZ U"]02O,)'[l:][4M;hQ$o,c2RrSd5E>^jnlEE;DdQiRoY&$.akyoHo$zDEHdM-Oz,=Y:Q04(dyb U"(#BQeL==ABI7:MWQBb2Al+u1?m_jdBX[an&y.INx0G:* U"aKaek%,dh8B(BcC0QJ>FC7o2]:0e$?+An$XAk/wEb#jl,%)ZVOuDU/3K=f4'd7Cu%i?dE+F&ZXG>MV_/e4D.g/ U"e4f%P-k5U/Q^mNngHs3D#x'lIa,-N',qY36ZV&ZJh<.SQW?70?;a;O.^R2k,W?5 U"0iNpqt_/kM*$i6x9Tg56o9RkG_0\f2j/Zd2&&Vzl3e7[GKx.kA8..Hi0+ZLgTY# U"qeo*?\&'lMD*l#b%2T1lZ1d^QaClf%jpFwX<.[HD8y8a%K3ptRm'XZ]7yPMAb7S U"'m/V)2QZwZi6pt>:KvQi&3GhX>c)u.vXO^,_IDx$J334ss)?(hVKb>)5-C<;+=c U"IUH5y\6PV0)tx5G.KJn%cCde$8B0,xrRK]$xsHgLgorFxm6bRYZWH2b%(y8cnTQ U",i-NX:xj-xE5'sw:59ET2updpLhzWUec6zJbo.1oL-rxG6bw:NoSfO8KnoqoIz) U"q,UMcBMUJ2Z4-F+CFC8E#che9T>C'p#iV;efYX97b>&r5p2ZQ^R/lWd+=1Q.C;J U"BC=Y]v_D4,W.9pA+I$,S0S7R29^,PMTCHxha:%kd\r6B\4X_A1SYCWkLc,K4>Nz U"V?8K.kHx_j3;fT]n:;bV.wsan;+hH4GE-=T5FDj>M3)ea7p.p\F;2FZ5V\F U"BIf)5csx48,ki3/_#A%A+#(h7V_lX:rqmtU.^g7k[8:OlD2dn+\[w/4p\c]G*QE U"f2E9s.WF#NdmSl7jOU)\$at-$RqjaAgK9r8LlW=q.mKL-E0T0in5O;NlCL52b#& U"_3eKwIkJ(Jj=D]FaPrL U"^0ooEH9\E'wlmnET2T2nJ/[kqP$aeP>\vLML/u*V^S_gUr7nd(XbV1C7=vOtSPh U"\lAXZ5JfwQ^NPPj'S&yx1Rl7>;1)bGf]i)V1[\A6/6t5x#b1p9,ms\f[jb3Do(h U"lJoAox6YA\C.RLpRb.JpkQW.n[/9Bwl:WeG)3J<^'QL(]aJO:bn%bLJ-X6UI;BZ U"p'$p>:AKCi>V?4:MEv:$GBz$3(a)gL2#Wt2*FXP5h(9rI6xe)tU+g^?V2I]8*HR#E7xhe1R&O\Ml+(*Os U"'/\mN^j^gj9M^<)ygW]Z[ogFjA7,2r0BHA<4,)e%kbJetF6Tl2B0pR=tK5_lo8q U"7Ix[nr5T4sL/nC1Oa.R?_bJUB,isy(bl$HAMk:u3H)5L#iLhc.'fq/QW0AL$kQC U"#Urr3CSSAW>is[V_YPj#/=0\zSU0U03mYQ?Ps(:d[rL7;r%po6?\Jph= U"FuYkh#CW?2.#GD<3#'F\b1kSL2d$vO;1NrI)m;.To\;a]as>=eX$eM1NxVfoCj[j U"q9TAC$k>$h4RhY.WlZhHrcnR2F_.k_ii)cCxx(G:gLYJRRfI8LA6amURK U"2V-+RuBvrCu<\F[CQQA[oL$#xO7J;WOQNPIF6F U"evKaS'1ro_gEZg)0s-<[ETSWFg/mCe.T%5$^R>qC]i5=fo6[wZi0(Y\'_i6pggo U"agZ(sv-360>6SOL>WPq$x(j*OArH_$PO(p4&b9rIe;:C1DS.1X'd8Wp6]UQ8XV6 U"%p?0kX4'nO0xLfGm=0PltQx3>Q:E\,EK(g2aC U"aK%YjbaHgv/o(b=]wcTh'KtjJmusTXqcUrwl\HfiA,+pf+9iJ+7WiMAxF^qm=wB U"6dQ,AgT^-8?788dWMgiI<[IgQBid_mtVP(HAkT]IuV/doX3URX^7MdkaV4G_9OY U"xh*Ui^sLrMB\9tZ>b?/K'rliael8biBb,s.8=6_+1L=K U"wq#)o;60&X)=TyAvxj#alA-jFRHqrSHbL/%GXq9U$#mf8&W#PEBA]R2*a6pMJs. U"a3YRk?Bt^K8Xsk;LLm)KC.8i$xEAx%X=_3>KR:b$jC*-5qL-z:m<[Q07DhYBNbE?UQ;3aiH1nQ#sfnmObaA> U"^6xcC+5^Mp\'5.+e.C=x2u5]bRKVk//H'MYmiUqqf6'7%f+G(jS?/)dFPHTfc2u U"V6+M:,AFSV5>[Jg>Q5(SSnicf9dqO1CNr>.S'tihnTBiVnpD=aO?]N:d6 U"J#_)GmuYFs-e0N)Y,na9kSI8Sc%,,RZ-rYU8JC:.&](#tMi?c+%d#,7K#1qavvW U"TR>cl4q?6D,u<9Fd+h+D=Lw6PrlD;#DWv:i-&;M-%>V3r=AH,(-iGg8(QJebIdh U"Qa3YW\J-Fg9FG&bPiLX3=Sl59h\4^qEYd%\])hFRwX..l?8L^pw-Le$;l'9^4#[ U"WL%EB^/WoC>7RUSZaIH4elk>q:tZ?El6X9/LcNk6&IDSpF[rr:q6R<>3_.,YZu. U"a)fbm/V'9J:=AX#Y0UV[i+ibilfS)Wpm.d$RJW1)6MDo5 U"dJ9X0FSnxb0]&Bk_NVj$C:'j*Ufe2z-u%Tm]mmTn<_,v3sd3Fj$WICZt4DJ_8fA U")eQdD[c\ybv7_'Q$AK9R6:8_M^OmIU+?2BbmkIddYwB6DzF7;]3W\TUQ*\u[P.a U"4PnkQef=\B*/)EIRg'tNsSF:j]s#Ol00[GMKMZgMU4SS0.Qn>\J,QB*9PD^gy=w U"(%ckdd(*qLg?k=BzhQ7-kK\GEHY8K(9#uY3WR+).jHSDtS U"%dx4S3+No3PY=<48ac.1?MMXT/7fyHZZCe5_ZpVv/LclB>a:4>,S[r7AiaCz='2 U"fbdc*wns\da()F1rJ#^M7Vp5oRZB>29$MKj]k6I_nOp(_rMcwGr73B5Xa4AC]%_ U"a5/wV.14;yYv4_hZ;f[6P U"31gfk3%pyrmd;maFAi47's.RT(L5._,slr0&NO;N3.q9Y:-YZ^KBZucP9MZ&&?h&,2_[iBk/sXhtDSq[P#EhF^>Ib4(29($Vq+kXUTF U"1BMgh3RAAB:*St(m0^4ckNA0]76-mk>_k#^a]X]11#D(3zk.=7glW3#=D'f64Xe U"BkydgU1=LSg65Ukcex&xHo_^ipEXM\?TlirXz_jc&pB]-\bfFpx1s_tDEXFN4Uj U"Gfiy/R^+(4T.oLl\%&<4ng31ZV]K6eI:QTa4-#*mDX?Q7U6][+J9]u2BSWJpe9Z U"jaSdq=)LPs3*:_'_qCOn4esH]]u#pn,j4dJ7)*(mB=[Cjaxf(8XT?#t],I+>q$N U"HIKB;akpDMv66(LqCEd&3Nsl[]blUc^6d#>TgQCG0qwhkdEl%0 U"EQzl^7-.O-Q&Y3vna?G'T[tb?8rZ2??CdC*$P40)1#p:1^OB:Z)HT?^gxFP2oLG U"&>bD0DHNH$'RG8x8x'_WJOt?+8U;)&O:1>WMuetE[1;gK%k9.o+a[M3M4=Rto;k U"\xPWJxF5\Lddbtlj&QCf3aY_4B+*n1e\ln2opnu$C?-1GXUR_X\BP+$J66g3C8U U"pCCS0V[jS_Po:OOLIIW<)/0lEo1y2fk?O-9QdY0wJn>i0Mm)Oe':-3X^dgo]W5f U"r&<Hy=nT%UBkATQ)?ldEhrz0n) U"dhT8)_]ef?L\b3#taLQT5v,/N*C1&.C?p>^0A9.SDf8FaEuD9_k'iT7xWW4[dDy U">SYkbGo(KEgraq'U.reF)CJ\G0=&f%xBiBY#t1j;CgywBfpddG.r8$G.rc^O2hT U":K**G4vZc3&6[&*7pHBz>q?a[)8w2I+\,?*KmeZ81pR<[5Dx'G[?y7r U"s:tJ$jh'NQ6'L4x']-Vxghxob+8^+>]VwwFI'(ciDp?Aindnn.4FxN=U'evG>p- U"p8Oo)nzi6R9Fpe6:6GPW8[K;Ev&]1u99.#Z'uea8UGJiSW#Zas0K7$36/9g.>u5 U"(o]aktX.J.gbSC1;oROSH3T-WkX/y]&RYF(IVVI:m)nLapCzh&1Ucdlv$_6C>Qd U"C6urxdT#4M^ U"I1(NH%f=z]Mz(n&/Ne^1TV,yNv)5&QSGk#ubq_jhvkRbV3e,FIbPFe'DV+&33CH U"Q]v-r2qW)Iv2;ED.w*fVKYg2t7(^)2j9%F&M8xXPCf%1&zK8#:)rE3cjQK:PK]FW/W'Mb6GZs U"./<'xuh:sj8-E=3ge]$RWODurGE/j$owNd.kx#+fNA2h#L^Hv_:[zxD%up()%9% U"%%.-%EoeqG(^&q5L+7%%33%%%0%%%%uq(f(xs%iSgfOx&%0,>[k5Wv]=NDgrvPd U"8f_m/yP9P%6Ul0V; U"-BZ,dzc>qViPvvj#>OO-F$UXAinffGK5L;0PWi.C1^3)f7.x,odAKs9ZlJ%^tf& U"6b*b*TLeOmW]y0AE&*Z'ifeml_h<7]na$jmG2+n\:>c*MQNn866kM0)'H<*D]oY6\+^I& U"ziDLpVVuo>mJ=DXFLc9-f)'ZtgoCFne<2\:Ay,IgfS233$?.3oguN]kG*>JLrB' U"[rxIYsT(G]^7hTWMFehM&x^70r7ua1o'UQ+GR_8[T9^#j,rSnV_?QX2761?1_Bs U"&;lwa(tRf;o(f U"CT)V&yO,x5TSa>:?S-RM_;bwH=hbZ5P87p)H(6,*>diFheX1isU(bSXDrR??mPIu>nyR,/G<% U"N=r\('bp0N_Rq$)fBQErKJ#w6o:_nxr;9LCuxo]?5D%$K7m0FYqfpA6McFyMb^E U"=%E^#kdrj>uA*xr/Y8xGS'GHC2.(s\Jyk9%3R:45/nA2p^ U"EaSk4a*;h\#^x>[pdh=.w8,05z(nq3['+$vo(R2Y8)Hn[s=;\.,c:v2%f)a'be] U"N:po-[4pjLZKb=$jcy?,Q&j($?LD'5SCLo.aPA6h]$ApzRa?R;67pZ[ZKy0q]OE U">+HvT]i6m#3d'[#rLU/8gsr([q?VP2C71R+#;35l;gWirIfIKd/W>E_i&/K0_)G U"Ifg?1$j(m2/Dei2ON5istzF_+OyZ-VR>\lQkYcrLOqV_QXfD95[ U"dPY=4S.$ZADZPV80HsZdlq.$l(^ACKeU:t56oNiNW7*m8yD+mg6^O8hmn:-?NuMiaW4T_QU6TaocMi8>xq0C8[N;Cjg4snXm.,H, U"AfO>EZ#4=eGfdz$jeL)b>=WiI5-DvU41P#:[Cm5iK7KO8Y:#.55M\JOHu#?pV;K U"IJ6n#4i\dzF[c,]_>]#LO/mx-2L+ejeHcnZ(CMGAHDt5Mu76wu32V(sg_U&;dsCJI^6gVk8 U"Jn.?eE2A\tskkdfAIO(;BNNVbm3H)NBWIOcXW0i>e$dtQh4ESMdQBN:h^x'%up( U")%9%%%.-%Pw8qGrU/Q&=%.%%k%%%%/%%%%xf%ruqj%Sxsi+0oVYq/5Q:q/C9m.e U"5BMJBvA83cs8x$D&Uegb?Qnj8\&?:B5wj3bXH//w%V3^;W3P5kM3b.*yL##=9=c U"#>A=k%>7cI'#YyYo,RYXbJY%Xp(U#Ej#ERD*lZw9%oW7pC9AXZJZxZP%_%up%&' U"9%%9%%%.-%AoeqGA]'Xz;_7%%'[%&%1%%%%%%%%%&%%E%%%%%%%%%xtzs%iqfg% U"Sgfx%up&'%9%9%%%%-%/EoqG5(^q5%L+%%'33%%%0%%%%%%%%%&%E%%%%e_%%%u U"q(f(xs%iSgf%xup&%'9%9%%%%-C%PwqFGrUQ(&=%%(%k%%%%/%%%%%%%%%&%E#% U"%%_%e%%x%fruq%jSxs%iup*%+%%%%%(%((%z%%%%Kf%%%%% END SUB V2 CLOSE:IF S=210AND 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