******************************************************************
*** ***
*** comp.binaries.cbm is a moderated binaries- ***
*** only newsgroup (no discussion or ***
*** crossposting allowed) for Commodore 8-bits ***
*** ***
*** For information on comp.binaries.cbm visit ***
*** http://www.floodgap.com/comp.binaries.cbm/ ***
*** ***
*** This file is available via mailing list at ***
*** http://lists.trikaliotis.net/listinfo/comp-binaries-cbm/ ***
*** to list subscribers ***
*** Allow time for submission to be received ***
*** ***
******************************************************************

* One from the Vault is a collection of frequently requested, useful or just
plain interesting past posts sent to comp.binaries.cbm, as archived by the
moderators. If you have a request, please send it to the address in the
headers. In addition to being selected and reposted by moderation staff,
some of these postings are regularly posted on Mondays and Fridays on a
rotating schedule.

Take care when replying to these messages, as many were posted years ago.

From: Larry Anderson <foxnhareANTI@SPAMbigvalley.net>
Reply-to: foxnhareANTI@SPAMbigvalley.net
X-Original-Posting-Date: Mon, 24 Dec 2001 20:23:37 -0800

[ This is a post I found going through my old E-mail that I'm not sure if
it was posted or not, so here it is (possibly again). To those posts that
really did slip through the cracks, apologies to the senders! -- Cameron
Kaiser, moderator emeritus ]

Here is one of the best examples of SID Music with BASIC, the
Entertainer. This 6.5k program builds a massive array for it's music
(takes a couple minutes!) and then procedes to play a very nice
rendition of Scott Joplin's the Entertainer with various instruments.

[Section: 1/1 File: entertainer.prg UULite v3.0]
[Original File Size: 6400]

BEGIN-------cut here-------CUT HERE-------PART 01/01
begin 644 entertainer.prg M`0@W"```F2*3(JK'*#$T*:K'*#$U."DZES4S,C@P+#8ZES4S,C@Q+#$Q.E1) M)+(B,#`P,#`P(@!4"`$`F2(3$1T='1W42$4@Q4Y415)404E.15(B`&@(`@"9 M(A$='1T='1T='1U"62(`@@@#`)DB$1T='1T=TT-/5%0@RD]03$E.(@##"`0` MF2(1'1T='1T=05)204Y'14U%3E01(CJ9(AT='1T='1T='4)9$2(ZF2(='1T= M'=))0TL@TU1%4DQ)3D<B`.D("`"9(AT='1T14$Q%05-%(%=!250@,R!-24X@ M,C4@4T5#+B(`&@D)`)DB$4-/1D9%12!"4D5!2R$@4T545$E.1R!54"`R,$L@ M0EE412!!4E)!61$B`#<)"@!3LC4T,C<R.H%,LE.D4ZHR-#J73"PP.H(`70D4 M`(9()2@R+#$R,#`I+$PE*#(L,3(P,"DL0R4H,BPQ,C`P*0!I"1X`AD91*#$Q M*0"%"2@`5B@P*;(Q-SI6*#$ILC8U.E8H,BFR,S,`D`DM`)=3JC,L.`"Q"3(` MEU.J.2PQ-#`ZEU.J,C(L,C0P.I=3JC(S+#(T-`#&"3P`@4FR,*0Q,3J'1E$H M22DZ@@#1"60`@4NR,*0R`-D);@!)LC``X0EX`(=.30#P"7D`F51))#J9(I$B M.P#^"8(`BTY-LC"G,C4P`!P*C`!70;)6*$LI.HM.3;,PITY-LJM.33I70;(Q M`#\*E@!$4B6R3DVM,3(X.D]#);(H3DVK,3(XK$12)2FM,38`6`J@`$Y4LDY- MJS$R.*Q$4B6K,3:L3T,E`&8*J@!&4K)&42A.5"D`=0JT`(M/0R6R-Z<R,#`` MCPJ^`(%*LC:D3T,EJ:LQ.D92LD92K3(Z@@"M"L@`2$8ELD92K3(U-CI,1B6R M1E*K2$8EK#(U-@#F"M(`BT12);(QIT@E*$LL22FR2$8E.DPE*$LL22FR3$8E M.D,E*$LL22FR5T$Z2;))JC$ZB3$R,``@"]P`@4JR,:1$4B6K,3I()2A++$DI MLDA&)3I,)2A++$DILDQ&)3I#)2A++$DILE=!.DFR2:HQ.H(`20OF`$@E*$LL M22FR2$8E.DPE*$LL22FR3$8E.D,E*$LL22FR5T&K,0!8"_``2;))JC$ZB3$R M,`!G"_H`BTFQ24VG24VR20!M"P0!@@!Z"RP!F2*1D9&1(CL`J@LN`9DB("`@ M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("(`V@LO`9DB M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("(`"@PP M`9DB("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("(` M'PST`9=3JC4L-C,ZEU.J-BPR-#``*PSY`9=3JC$P+#@`/PS^`9=3JC$R+#@Z MEU.J,3,L.0!5#`@"EU.J,3DL,3$Y.I=3JC(P+#<`8@P2`I=3JC(T+#,Q`&X, M'`*!2;(PI$E-`)@,)@*74RQ,)2@P+$DI.I=3JC<L3"4H,2Q)*3J74ZHQ-"Q, M)2@R+$DI`,0,,`*74ZHQ+$@E*#`L22DZEU.J."Q()2@Q+$DI.I=3JC$U+$@E M*#(L22D`\0PZ`I=3JC0L0R4H,"Q)*3J74ZHQ,2Q#)2@Q+$DI.I=3JC$X+$,E M*#(L22D`#PT[`HM)LC,Q,Z>74ZHQ,BPQ,3DZEU.J,3,L-3,`-`T\`HM)LC4W M,:>74ZHQ,BPU,SJ74ZHQ,RPU,SJ74ZHQ,"PV`&P-/0*+2;(X,C.GEU.J,3(L M,3`ZEU.J,3,L,38W.I=3JC$P+#`ZEU.J,C`L,C0P.I=3JC4L,34`<PU$`H)) M`)`-1@*9(DA)5"!!3ED@2T59(%1/(%)%4$5!5"(`HPU.`J%!)#J+022R(B*G M-3DP`+$-3P*+022R(A,BIX``T`U6`IDBD2`@("`@("`@("`@("`@("`@("`@ M()$B`-D-5P*)-3`P`/8-6`*#,S4Q,34L,S<R,#,L,SDT,34L-#$W-3D`$PYB M`H,T-#(T,BPT-C@W,RPT.38V,"PU,C8Q,P`P#FP"@S4U-S0Q+#4Y,#4V+#8R M-38W+#8V,C@X`%X.Z`.#(#,S."PS-#`L,S,V+#4X-2PS,S$L-3@S+#,R,BPS M,C0L,S(P+#4V.0"5#O(#@R`S,34L-38W+#,P-BPS,#@L,S`T+#4U,RPR.3DL M,CDW+#(Y-BPU-3$L+30Y-BPU.3D`O`[\`X,@,S(R+#,R,RPS,C0L-3DR+#,R M-"PU.3(L,S(T+#$V,38`ZPX&!(,@,S4R+#,U-"PS-34L,S4V+#,U,BPS-30L M-C$R+#,T-RPV,3`L,38S,@`2#Q`$@R`S,C(L,S(S+#,R-"PU.3(L,S(T+#4Y M,BPS,C0L,3@W,@!`#QH$@S,T-2PS-#,L,S0R+#,T-2PS-3(L-C$R+#,U-"PS M-3(L,S0U+#$V,S0`9P\N!(,@,S(R+#,R,RPS,C0L-3DR+#,R-"PU.3(L,S(T M+#$V,38`E@\X!(,@,S4R+#,U-"PS-34L,S4V+#,U,BPS-30L-C$R+#,T-RPV M,3`L,38S,@#;#T($@S,U,BPS-30L,S4V+#,U,BPS-30L-C$R+#,U,BPS-30L M,S4R+#,U-BPS-3(L,S4T+#8Q,BPS-3(L,S4T+#,U,@#]#TP$@S,U-BPS-3(L M,S4T+#8Q,BPS-#<L,S4T+#$W-C``,A!6!(,S-#`L,S0Q+#,T,BPU.3DL,S0U M+#4Y.2PS-#`L,S0Q+#,T,BPU.3DL,S0U+#4Y.0!C$&`$@S,T,"PS,S8L,S(W M+#,R.2PS,S$L,S,V+#,S."PS-#`L,S,X+#,S-BPS,S@`K!!J!(,S,C<L,S0P M+#,T,2PS-#,L,S0U+#,T,RPS-#`L,S0Q+#4Y.2PS-#4L-3DY+#,T,"PS-#$L M,S0R+#4Y.2PS-#4L-3DY`-H0=`2#,S0S+#,T-2PS-#8L,S0W+#8P,RPV,#,L M,S0U+#,T,BPS,S@L,3,V-P`/$7X$@S,T,"PS-#$L,S0R+#4Y.2PS-#4L-3DY M+#,T,"PS-#$L,S0R+#4Y.2PS-#4L-3DY`$`1B`2#,S0P+#,S-BPS,C<L,S(Y M+#,S,2PS,S8L,S,X+#,T,"PS,S@L,S,V+#,S.`"!$9($@R`Q,S8P("P@,S(W M("P@,S(V("P@,S(W("P@-3DR("P@,S(Y("P@-3DR("P@,S(Y("P@,S,V("P@ M,S(Y`+T1G`2#(#,R-RPS,S8L,S0P+#4Y.2PS-#`L,S,V+#,R-RPU.#4L-3DR M+#,T,"PU.30L,38Q-BPM-#0X`-@1I@2#,S0U+#,T-"PQ,3$S+#8P."PR,30V M`!82L`2#(#,T,2PS-#`L,3$P.2PV,#$L,3@X,BPS-#,L-3DT+#,T,RPU.30L M,S0S+#4Y-"PQ,3`T+#$Q,#D`5Q*Z!(,S-#`L,S0T+#,T-RPV,3(L,S4T+#,T M-RPS-3(L,3$Q,RPQ,3$T+#,T-2PS-#0L,3$Q,RPV,#@L,C$T-@"7$L0$@S,T M,2PS-#`L,3$P.2PV,#$L,3@X,BPS-#,L-3DT+#,T,RPU.30L,S0S+#4Y-"PQ M,3`T+#@U,RPS-#$`QQ+)!(,@,S0U+#8P."PU.3DL,S,V+#,S."PS-#`L-3DW M+"TT.#`L-C$S+"TT.#```!/.!(,U.3(L,S(Y+#4Y,BPS,CDL,S,V+#,R.2PS M,C<L,S,V+#,T,"PU.3DL,S0P+#,S-BPS,C<`(Q/8!(,U.#4L-3DR+#,T,"PU M.30L,3,V,"PV,#@L+30Q-@!=$^($@S4X,2PS,C0L-3@Q+#,R-"PU.#$L+3(U M-BPS,CDL,S,X+#,R.2PS,S8L,S,X+#,S-BPS,C0`EQ/L!(,U.#,L,S(V+#4X M,RPS,C8L-3@S+"TR-38L,S,V+#,T,"PS,S8L,S,X+#,T,"PS,S@L,S,V`-$3 M]@2#-3DT+#,S-RPU.30L,S,W+#4Y-"PM,C4V+#,T,2PS-#4L,S0Q+#,T,RPS M-#4L,S0S+#,T,0#[$P`%@S,U,BPS-3(L,3$R,"PV,#$L-3DY+#,R-RPS,C<L M-3@S+#4X,P`U%`H%@S4X,2PS,C0L-3@Q+#,R-"PU.#$L+3(U-BPS,CDL,S,X M+#,R.2PS,S8L,S,X+#,S-BPS,C0`;Q04!8,U.#,L,S(V+#4X,RPS,C8L-3@S M+"TR-38L,S,V+#,T,"PS,S8L,S,X+#,T,"PS,S@L,S,V`*@4'@6#,S(Y+#,R M."PS,CDL-3DY+#4Y-RPS,S8L,S0P+#,S.2PS-#`L-C`Q+#,U,BPS-#,L,S0P M`,L4*`6#-3DR+#4Y,BPS-#`L-3DT+#$S-C`L-C`X+"TT,38`TQ3/!X,@,``! M%=`'@R`S,S@L,S0P+#,S-BPU.#4L,S,Q+#4X,RPS,C(L,S(T+#,R,"PU-CD` M/!7:!X,@,S$U+#4V-RPS,#8L,S`X+#,P-"PU-3,L,CDY+#(Y-RPR.38L-34Q M+"TT.38L-3DY+#4W,0!^%>0'@R`U-C`L-38W+#4V-RPU-C<L-38U+#4W-BPU M-C0L-3<V+#4V-"PU-S8L-34Q+#4V-RPU-3$L-3<V+#4V-P"D%>X'@R`U-S$L M-38P+#4V-RPU-C<L-38W+#4V-2PU-S8L-38T`,T5^`>#-38S+#4V,BPU-C8L M-38R+#4V.2PU-S$L-38W+#4V.2PU-S$`#Q8""(,@-38P+#4V-RPU-C<L-38W M+#4V-2PU-S8L-38T+#4W-BPU-C0L-3<V+#4U,2PU-C<L-34Q+#4W-BPU-C<` M.18,"(,M-#DV+#4W-BPU.#`L-3<P+#4X,"PU-CDL-3@Q+#4V."PU.#$`6A86 M"(,U-C<L-3@P+#4V-RPU-S$L-3<V+#4V-RPU-C``G!8^"(,@,S,V+#,S."PS M,SDL-3DV+#,T,"PU.38L,S,V+#,S."PS,SDL-3DV+#,T,"PU.38L,S0P+#,S M-BPS,C<`MA9#"(,@,3`Y,RPQ,#DV+#$P.3(L,3`Y-0#@%D@(@R`U.38L,S0P M+#4Y-BPS,S8L,S,X+#,S.2PU.38L,S0P+#4Y-@`)%U((@S,T,RPS-#4L,S0V M+#,T,RPU.3DL-3DX+#,T-2PS,S8L,S,X`%`77`B#(#$S-34L,S,V+#,S."PS M,SDL-3DV+#,T,"PU.38L,S,V+#,S."PS,SDL-3DV+#,T,"PU.38L,S0P+#,S M-BPS,C<`:A=F"(,@,3`Y,RPQ,#DV+#$P.3(L,3`Y.`"0%W`(@R`U.#$L-3@Q M+#4W.2PU-SDL-3<V+#4W-BPU-S8L-3<V`+`7>@B#(#4X,BPU.#(L,S(U+#4X M,2PQ-C`T+"TT-#@`RQ>$"(,S-#$L,S0R+#$Q,#DL-C`Q+#(Q,S@`"AB."(,S M,S@L,S0P+#$Q,#8L-3DT+#$X-SDL,S0S+#4W,"PU-S@L-38W+#4V."PU-CDL M-3@Q+#4V,BPU.#$`4QB8"(,U-C0L-3<X+#4V."PU-S@L,3`Y,BPU.#`L-3@P M+#,T,2PS-#0L,3$P.2PU.3<L,C$S."PS,S@L,S0P+#$Q,#8L-3DT`(D8H@B# M,3@W.2PS-#,L-3<P+#4W."PU-C<L-38X+#,Q,RPS,#DL,S`X+#,P-BPX-#`L M,S,Q`+`8K`B#,S,V+#4Y,BPX-#(L-3@V+#4X-2PM-#@P+#4Y-RPM-#@P`/<8 MM@B#-38Y+#4V.2PU-SDL-3<Y+#4X,"PU-S8L-3@P+#4W-BPU.#(L-3@R+#,R M-2PU.#$L,S(T+#$P.3(L-3DR+"TT,S(`,1G`"(,U-S@L,S(Q+#4W."PS,C$L M-3<X+"TR-38L,S(Y+#,R-2PS,CDL,S,V+#,S."PS,S8L,S(Y`&L9R@B#-3@P M+#,R,RPU.#`L,S(S+#4X,"PM,C4V+#,S-BPS-#,L,S,V+#,S."PS-#`L,S,X M+#,S-@"E&=0(@S4X-RPS,S`L-3@W+#,S,"PU.#<L+3(U-BPS-#$L,S0U+#,T M,2PS-#,L,S0U+#,T,RPS-#$`SQG>"(,S,S8L,S,V+#$Q,#0L-3DR+#4Y,BPS M,C0L,S(T+#4X,"PU.#``"1KH"(,U-S@L,S(Q+#4W."PS,C$L-3<X+"TR-38L M,S(Y+#,R-2PS,CDL,S,V+#,S."PS,S8L,S(Y`$,:\@B#-3@P+#,R,RPU.#`L M,S(S+#4X,"PM,C4V+#,S-BPS-#,L,S,V+#,S."PS-#`L,S,X+#,S-@!P&OP( M@S,R.2PS,C@L,S(Y+#4X-2PU.#4L,S(Y+#4W-BPU.#`L-3<Y+#4X,`":&@8) M@S4X,BPU.#(L,S(U+#4X,2PS,C0L-3<V+#4V-RPU-C`L+30V-`"B&K<+@R`P M`-`:N`N#(#,S."PS-#`L,S,V+#4X-2PS,S$L-3@S+#,R,BPS,C0L,S(P+#4V M.0`+&\(+@R`S,34L-38W+#,P-BPS,#@L,S`T+#4U,RPR.3DL,CDW+#(Y-BPU M-3$L+30Y-BPU-C<L-3@S`$P;S`N#-38P+#4V-"PU-3$L-3<P+#4T.2PU-CDL M-30X+#4V-RPU-3$L-38T+#4U,2PU-C4L-30T+#4V-"PU-C0`<AO6"X,@-3@S M+#4V,"PU-C0L-34Q+#4W,"PU-#DL-38Y+#4T.`";&^`+@S4T-RPU-#8L-38R M+#4V,BPU-C8L-38W+#4U,2PU-3,L-34U`-P;Z@N#-38P+#4V-"PU-3$L-3<P M+#4T.2PU-CDL-30X+#4V-RPU-3$L-38T+#4U,2PU-C4L-30T+#4V-"PU-C0` M"AST"X,M-#DV+#4V,"PU-C<L-34T+#4V-RPU-3,L-38Y+#4U,BPU-C@L-34Q M`"<<_@N#-38W+#4U,2PU-C<L-38P+#4U,2PU-#0`.!PF#(,S-#`L,S0Q+#,T M,@"!'#`,@S4V,"PU-C<L-34Q+#4V-RPU-C`L-38W+#4U,2PU-C<L-30Y+#4V M.2PU.#$L-38X+#4V-"PU-C<L-34Q+#4V-RPU-C``DAPZ#(,U-C<L-34Q+#4V M-P"X'$0,@R`U-C`L-38W+#4V-"PU-C,L-38R+#4V-RPU-C(L-38Y`-X<3@R# M(#4V-RPU-C4L-38T+#4V,BPU-C`L-38W+#4U,2PU-C<`!!U8#(,@-38P+#4V M-RPU-3$L-38W+#4T.2PU-CDL-38U+#4V.``:'6(,@R`U-C0L-38W+#4V,"PU M-S``0!UL#(,@-38U+#4V-2PU-C8L-38V+#4V-RPU-C<L-38W+#4V-P!G'78, M@R`U-C(L-38R+#4V-RPU-C<L-38P+#4U,2PU-#0L+3$Y,@"4'8`,@S4T.2PU M-CDL-38P+#4V.2PU-30L,S,P+#,R.2PS,S`L,S,V+#4Y-`#9'8H,@S4T-BPU M-CDL-34S+#4V.2PU-3$L-3<P+#4V,BPU-S`L-34T+#4W,"PU-3$L-34R+#4U M,RPU-CDL-38R+#4V.0`;'I0,@S4V-"PU-S$L-38X+#4W,2PQ,#@Q+#4V-RPU M-C`L-30Y+#4V.2PU-C`L-38Y+#4U-"PU-S`L-38U+#4W,`!E'IX,@S4T-BPU M-CDL-34S+#4V.2PU-3$L-3<P+#4V,BPU-S`L-34T+#4W,"PU-3$L-34R+#(Y M-RPR.3,L,CDR+#(Y,"PQ,#4W`(P>J`R#-38P+#4V.2PU-C`L-38P+#4V-2PM M-#@P+#4T.2PM-#@P`,\>L@R#-38U+#4V-2PU-C8L-38V+#4V-RPU-C<L-3<V M+#4W-BPU-C(L-38R+#4V-RPU-C<L,3`W,BPU-#0L+30X,``4'[P,@S4T.2PU M-C4L-34S+#4V-2PU-#DL-38U+#4U,RPU-C4L-38P+#4V-"PU-3$L-38T+#4V M,"PU-C0L-34Q+#4V-`!0'\8,@S4U,2PU-C4L-34U+#4V-2PU-3$L-38U+#4U M-2PU-C4L-38S+#$P-S4L-38S+#4V-"PM,34S-@"5']`,@S4T.2PU-C4L-34S M+#4V-2PU-#DL-38U+#4U,RPU-C4L-38P+#4V-"PU-3$L-38T+#4V,"PU-C0L M-34Q+#4V-`#;']H,@S4T.2PU-#8L-30X+#4T.2PU-3$L-38W+#4V-BPU-C<L M-34S+#4T-BPU-3$L-34U+#4V,"PU-3$L-30T+"TT.#``XQ^?#X,@,`#P'X<3 MAB!.5B@S,BD`"2"($X4B3D]412!$4$\B.TY$+$Y0+$Y/`!@@C1.+3D2R,*<U M,#<P`"\@IA-.5K(Q,CBL3D2J,3:L3D^J3E``/""P$TY6*$DILDY6`$8@NA-) MLDFJ,0!0(,03B34P,#``72#.$X%*LC"D2:LQ`'\@TQ-!)++$*$Y6*$HI*3J+ MM"A.5BA**2FRJS&G-3`X,`"4(-03022RR2A!)"S#*$$D*:LQ*0"A(-@3F4$D MJB(L(CL`IR#B$X(````:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH: M&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH:
*&AH:&AH:&AH:&B`@
`
end
END-------cut here-------CUT HERE-------PART 01/01

01000011 01001111 01001101 01001101 01001111 01000100 01001111 01010010 01000101
Larry Anderson - Sysop of Silicon Realms BBS (209) 754-1363
300-14.4k bps
Set your 8-bit C= rigs to sail for http://www.portcommodore.com/ 01000011 01001111 01001101 01010000 01010101 01010100 01000101 01010010 01010011

--
Cameron Kaiser * ckaiser@floodgap.com * posting with a Commodore 128
Floodgap Systems: http://www.floodgap.com/
personal page: http://www.cameronkaiser.com/

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)