[comp.sys.ibm.pc] Polyphonic Music

lee@minnow.UUCP (02/13/87)

This is the best example of polyphonic music for the IBM PC
that I've heard.  It was created by a program called
PIANOMAN.COM and PLAYRPNO.com .
I have a copy of these and if their is enough responce I 
will post them.
There is one catch though.  I have figured out how to 
generate each voice but can not get the program to combine
them.  If anyone knows how, please tell me.

---------------------- cut here ---------------------------
begin 644 python.arc
M&@A0651(3TXN0T]-``346A(``"(+1I*_18!*```,M`S4`A`+@"T,LI[<.@`+
M0#,(M`380B`+P"V'$'(1`*"K3P!:"9J%""0L"@!Q]G8%$[#H0:!A`@#`LF5N
MR*(#+V.:$Z*(V$YR81@,,!<F2LN<`*+D8A%`G+\LXNX!)<&/Z%&8`&@M$.D/
M&!T'2IDZA7H/JBY(`-`V`Y&L&:0FNT"0T`4"!!TT9=J4`6%&SILV=5]!&@"B
M"8@G()R`H`(B"XC!4!HO!H'D<&(0)Z8\'F`$!!/)22X?V3P$1&@I($I7`:'9
MU6`0=.<^9H#B[EXF:<24D4,G#P@A9=BP*1Q&SA@T+$"(\:WD#1HW(*"@2<,F
M#1S6;^K,"9,\!HX<,U(\;A`;F=L0/N"D">/F#8@V['F<YR77W((J`SH`"`!@
ME0']_/D'(`!7-#`@?@,*N%]__RU8X("(Y+=@!`<,2.&`(C@PX#T2\N=.A0M^
M.&`W#VS8(0`BA@@B?R0..`,!`YZ!0(PS+O@,!`/.`>."Y]3(7X\#/A-!CCO^
MZ",`0-HXY(*W%`G`&PD,".6`WD@PX#].^A/E@EH.V,\$5V:Y)7]=+OCE@$L4
M,.`E"JS9YH(N5#!@/&HN.,X"`]XYH#$7H%DG?VRZ.6"<80Y8)IEC`G#F@FD*
MNF"@<,K)Z)\`0`KHF_P1NB"=>>)IIZ?\\3E@DD8&N21_GHPPZI&D`B#D@*GJ
MET8`.NJW!0"-+J@@?Z]H,&"O^N6!*Z6[(GGD@Y,FV&"I#AJX("=UWIIK@,L:
M.R"R_"&8[(+`<NLK`,+6NBVS_&$+@+C\36MML\$.J^RJUSK+'Y9S4IKA@$5P
MH-\'`'"ZX+T+YEOHII2:V^V\3OK+GYX+B@H`OPH#P'"H?2Z(KKOL>FOBP/P!
MS)_`"W+(,0`>`P`R?R(O2.^"+2ZXRP<;J^SDJPO&&O*)*_-',ZJJRERO?CWT
M2^F%2L+:L[`1$TTN`(<*;>&*ZR**9H.W)@UUJTU'./+$`#@L;,H(P\MEHF`#
MD+.KIZ+=[MD18YVHNL4:_&W0<OOY[J=[5IPNL=5:"H"F0?NM:=@$=YHWD79G
MS.NW_%VL;MT6.ZENR2>?*SFE+?/W,N+C`I`Y`)M'GKC.:=N\]]WER@M`M\+"
M76VKYKHN=NH#0FLKQM3.3J#JI0C`.>T:@PN`MJ?S>*SJQ.,>]>[M.DXI[*HW
M^3/+);H,\\-.4S]@Z/SAXSOVE.N[H/<#2J_XZM_R:S[PBP](/O@:!BQ^]]_S
MM[[GU6M^/?WE._DY]P!XG_UF5KJ>\8])3JK2@'I1`O?5SR()M-*"&'@@"?%K
M<`#@@@H@=**+.8QB^[(<T`+XP(NUJF0"%*'Q,!0__I2@@SL*6@I->*22E>U^
M'^Q:Q=070Q+V3TJ),E<*RS:E\[TP9C)\(!&#J+J+16QG`+"9L.X7L1PRX@6_
MRQ[IC-8N*E+*BE@47>&*5C,#JI`_3RQ@%OT5-"<^[TA<<^,(Y0B`H,DN>.T3
MWAV7%CN^Z<Y<M@.`M/RXPO,E3UT'0U_S+O?')C*RD,!K'2'YJ#JVV:N%)A,?
MQ"Z)K_F9+6$%4UTB+6FXANU0BQ(#E0ZS^#A1,@X`93M;^&)&N(YALG*Q]%_^
M0+<_6.*,@%R\V<B@:+I/3B]H5C-5,)$VM*L=J6G)A"33WD8U5"IM>5G[92E!
M*+Q<ZJYIWB3C%H5'2FDV;8_,"Q[=7#DZ!FUSE9TKEN`D%3A,_4U2M40EUW+H
MO'C]ZI7]/%\B`VK+3K(2<[L$($'QM[U>+I289D0GY"2)NN7UL:+0JUVTE%>L
MC"ZH=UF<Z/!.I"Z/9HND;_2G\!9J4@A.CT4)O=XF1Q13!X9PEN-[X/T@QT.5
MYO&`_,+I`0=(TX;:%(%%M=Y1B2K.*)HQA?=3X`0;F-,?+DBJ_*'@@K1U07QF
M<(,+TIH8N<E-?HDKB5D\(29GZ"2U#NB(8D3K6)=GPQ/A4&_P[&D=?8C4!161
M?7Q%V8G^FDX7GBAE<A4L$'UZ1E1"M(N@/-R"KKA&2CU6>%Z4+'\H.]<T!K-Q
MD6UJ,>D8M+.MK+1..JTQ?;97=;62L8'D3R#M2*F2'LEO92L;%*&86PFUT4DT
M=%3QAEO8XKJV3K1M9ZO\5JQB81"#S6U0T*+;R`&ER$-06Q1_M(LBJ*4H:-?M
MKJ&8^%+'I@V*$6,C*B/6M))1%X^*U%6U%#3=^;[NMO9\[]*8:]\1ZG=Y?DLO
M)_^%R>..T+1M?6:BQ,H?!JNMJ0X6:]!Z^\U$+=1<Y@KH;Y6+WPIJ-*DP]?"S
MD#O2#TL3!ZIT<!7QFD,5D]C%[^1:V8J5PQS.6+J^K"C7XNBD:^XV;1<CVH8G
MY,QW!KG(>)NKD!L;W"0K5KY>`I.9I,PO^N88RBH:+RW=F>6QN<A)5KZQ=:&6
MS78^UZL.SE70TDPI&0D7`#!>D)L?9<\XK_E$$9OSI42<.^WY^:1W"UKRBA5>
MOPWQ1-SE;O(0&]@K8U?+'WW@BP;E50R"=$&3WNNE^9-I_ES3;YL&0*<!\&E[
MACK303MUCZ%F:"4B6LK;E;*PDI>\\(+SL">R]9:$A>`Q0YJXZOIQ.]6L/-N^
M^;_+S6]_]XKL#H\1C0,NZ+.SATQ*M4W!3\MV4Z%XS25W&\E2PW*?]ZOL0'-Y
MW``NM[C37=&..ANTG$MNYS"LNM@"8+;%3BF=MZS;\Z:-PGN]6)/WW+G7GL_`
MK:VMO@F.;N=6VJOOK2]&C^?K+L<ZRA5_]%[#JVO&"EB93?WX7D4>;FDWO%J)
M3&3$S\WR9+?[OL=>ML37[?)I1ZQD)4,X:D?F-@[Z?-MIB[!O'4WTGL_5X(#5
M<&.-O>^MGLC>G_M<\O`]]84#`,4_A[9FX=E@/+_8ZS%6I9A-N?6Q3_A$Q=JQ
M*H\,\G'"F\AS7+7N>*SMI=$=[@$';H+?.?:+3SF$849[M3HNS'43GM-@QG'?
MQ>OEL**4TI!W?.+NW$X]5ZK.8)?SN^&<><I/V_)^&W2UHKY+T8_0]!:__%*)
MGFA8E[CPB27ZX0&@ZLAGRJNUU[2DY=YT_N3>TZPV]>Y'^'M2!W_U96M]NVB=
M:S*3#=<9G^;:4NNDV2/<[0\&-HFOS^YUNSOFYF[VFTE.,DR63.35+J_1@5_W
M[+O_VR.$OSD3)?[>L]S*]6?X_6%N__RKWOO\IW_AI'%^]V3YE"+\,H",5W(`
MX`O:M"!\`#50Y(`C$X$A1(&LQ1\6V'A=-S(^AB.2EX'&%T(.=C;7U#3)<S;%
M(G4/V&?\DH*)]VL`L`\!4%'*)SPT^'(RF(,`"&G"D@$/)'\,R(/H=H/\081<
M%C1(^%]-LX3+-H0UB&4SAV[A92X*&%[<=84@DH`MN(#2MR`8F$\;B'UAN%H:
MN(4-V(5C^(4=*((?F'5F.(+84X*\QX`P6%$L.#(*\H)=6"Q-\PU1B&XI]RW"
M`H@5M89^8XCKAHAO(BQ.&'U8MR"**(BOE$B3F(0`<(G%PH@#HHG5PHF2&(B8
MF#+\`HIOQR^#R#FWLE!^8R[F@XJ5^$KF<ROW8V]<DV&/]%/Q]7;%,X4LUXJJ
M(X2[.(SRYXOR9$]6:$&*XGI9*"&WHH!-8RZ9QB]&*&H[<BNCIBZ6EXPC4XWA
M9(R#!S7F(HS56(S[%WT7!71MAS&#I#O`F$7"UE3BLHI[9W_F<C;QB'TK0X\5
MQD+EE8_NYR^W<C;K5W[MM(:MDDCJ@I!',DI.PI`>1REKV#2)%#$3F2@**9'.
MQUB;>'SPU9%O5I$:^6;F`I'VET@FJ7\J%X#_!UA:B'&%=X!H^)(<F(85*(%I
M4X9GLX'\HI,/N9$AF$]O&)1Q2#3\0H?MAX)].'JEMY0A=(?KUH2B6"PWZ(A3
M^81L.(-765%E\H-!"#4GF"B/^'=D>81;N5=CB6Y2J8,U.9;@B(ZJ0Y,%2'1G
M@X!T67U`R1\^.2!K.(%JB(9["8%YR7D>*($@V(9"B89(B7=VZ)1_]GKYM(>0
M&8=^F"B>^$^8*3R7*9AOMIEGZ"A665'A%8G\X9G#:(EG&32F:8J9>):?:7^;
M>7:'Z)&G>)H`=8U+9W6NN".PF)E,18M.8F^$A8OME(I'1V+_]8Z,*8?Z-XY@
M"2)O:8]QJ8S>Z(QW*8/2R)O+").(=SNC=C:6=VO=R(RN]XWGF'K.V7Y5&(S/
MZ5]8N9[EE0^8))\#0I]C5#4C69-<4X8`Z9>W4X87R7<G0F^,E3(#B9<R>'>Z
M:)QOUXZ<*9WCR9W;R5H'BIVJ<X]BPE@8>CMG$XT76DD96I83FD]-<X/\TC0E
M2F59F:(AY#?S%$)J)UF!PP`#\@(9,$*70*,+8J,#4H8+"34\"H:/]Z#\$:0&
MJ#QK:*2YR9=`>J,B&#'[A%?EM#"JE$-3FI6+$C0LNE<ONE=1BJ,Z6J1..J,U
MZJ1Z.:2O*:8]BJ8`D*1F2G0_6J8'Q:1R^J24\J5V^DY6&EH,F*58*F7U%'E!
M@Z=DNJ-C6BEA"@!*ZJ/YJ:9">I!-NF5Q:JAS2J2*^J97BJ?Y!*55*J5\FI4*
MJD^J9)^;>J>CBDET1*7UB4EEHRXY"F)P2BFOZF>A&6E38U0+@H2AM@35$CK"
MT@\`,"!2((IP18W!NB##^E;6&5XM`UY0TZS+0S-:FBA^VJ6!&BFK5X81@T$I
MI*V4@D&+)GBV9Y-SM888!(W46IY=N*7.FE3MZF=!TRK2^J<X:D^`TY+WE*V9
M=WOZ6E[@"GWKAD%E>#'FZE7H*J$'2Y;O&F(;]ZS5$Z]',J_LBJ_WVJ5#1:Y:
MAZU5]:C3]J];YG!KFD4%NV5UF5WJ.C)8>+(BF+)P:(*1&I-$=TU*NICL1ZE.
M5ZFZF#P+Q3H`H`JBF`,/%&J)Y+,#`K0#(K2$"`#5<*S\P0&BF*S8L[0#XK3"
M&H6W`CGKE)E9JT[%U2V%ZJA?>ZDC9'DW,D+RNB00NXX.]IU.HJ0ZFXO#^+;%
M^4I&>YSK2+0W*U"OA+>`IK<#PK>3B;6(6J=A&Z1!0[8@F+9DI+C8M[;45Z=]
MRXO*DTARVSF)5+>2&VQI`[C)`SG\P;D#RDX+`KJ,E4B.&Z%$R;82>KHBB$&L
MFT_<];IQ&+LGHKHV&[G7"5_A.C*4"[#Y5#F[*X*]2[).,KPP>S8`!%=G.C+%
MI+P8&X?->R*!J3_*&K(B.`\=4+T<FT_8J[W+*X+%E#R,ZIN3.;ZZ*[ULFDAE
MB(%!L[Y#Y[XC5#8L*Z+R"YU$5YFP"J`XN8[Z.T)EB+\+0JJ$N9QE:R.'.<`U
MZWD9RX`E@WH,^\"3:64.G)7F@H3)4Y5:R6=>N)9Y2X!?Z)5P&)YB*8H73)X#
M8L%#A\+1Q\&X.WLJO%<3/'OU*Z'-6'&R&96)\CG]JX[;VZ;V^[_5TC0"[&!#
MJ3,'3,3V&V<,C$D33'H:+,'B6I/F<HG\Z6_M0L4G4G.E*8IE6'.U>J2$19JM
M:;T+^DI8/$)G+$V)R,59O'EIK(2B6#9:#`"8VU@,2L<EU$-U7(;*R1];H%/%
M&XL#\L=6%32$#+-B;"YU?#%WO,B!3+X3[+D(S)P&*3]P>$U"%<'5(LE(F'PF
MG*MQG,(D?"(>.B!`^&4T['JGC&D]M,J("0`B?,*AG,JRO&75&,FB^\J8?$N>
MA,3^:,D=S'*2O*N69<6VNBVI]D!SK,AYO(Y0Y,@C5,?+K#I_\$#X:,S\4<T#
M$S307),H]$">U50II%[:+(+MA4FA-K"/?,S?*[F)5,[MW%A"]$#3.XS=VH6)
ME,Y=:"[BF[ZOU,]SVZ_SICKJ'-`]O+/_#$/MQ(VI5YTV?+]!G,.[M,/8YY\/
MVKY1S(!#?")%["I'S-%)O*]9V<`9S5"/B7J"5M*E#,H:C,$O[,$L/)F$!\)$
M&<LL'<S5^,)PK,$N/,HK/,(BEM(\/9@S+*(UW&4WK)823<8^[,PY>2(;B-%<
MF2@;W7X%;,27'-+E=<Y/S)2PBM*:;*&=R,9.?<5DK<;VE,;DUBZ=/%B)(L9J
M;9MC;;VJ>=9K'8I,/<=OG,$P.\?=7,9%V\Q[M<<GTL>"!,CDFTB'S%2&[&H#
MDLBJ\]?X>KF"K9()75&2[,L$9E!$N<N<C;MQD\M\?:0Y/<MHZ=,U^3FN;(VT
MO""KC6H`L-H.9M-F:<N?7-LP>\LEG=D@_<L?T\N]O=G`#-J;+-KC3"D"+,#'
M/4(I%*!.-L8]#)![?8G.K:HW?:0$>MU7%C3P'(>S)]F-+-C)S&%OUMUG4XWF
M[23H_4#)LZ79S-ZA2[[=W;FB/=\G\C^]9-];M@\G,"#Z#;/\W2[_?:0!OB`#
M3G0%SA^0H`4:T``*H`$GDN``<.!E(^&0L`5RF97UW)=/?9,7^)<R2+.4?-63
$;((:`((:
`
end
d
-- 
Gene Lee       UUCP: ...ihnp4!{meccts,dayton,rosevax}!ems!minnow!lee
UNISYS Corporation     ATT:  (612) 635-6334
If not for the courage of the fearless crew, the minnow would be lost.