Path: utzoo!attcan!uunet!husc6!mailrus!ames!pasteur!agate!saturn!ssyx!koreth From: koreth@ssyx.ucsc.edu (Steven Grimm) Newsgroups: comp.binaries.atari.st Subject: v02i060: staccato -- Music program part01/06 Keywords: arc, uuencode, medium, high Message-ID: <4764@saturn.ucsc.edu> Date: 7 Sep 88 18:45:34 GMT Sender: usenet@saturn.ucsc.edu Lines: 268 Approved: koreth@ssyx.ucsc.edu Submitted-by: uunet!mcvax!philmds!leo (Leo de Wit) Posting-number: Volume 2, Issue 60 Archive-name: staccato/part01 Hi Steven, The following program, STaccato, is for music lovers. You can play tunes, guess tunes, sing along with tunes and compose your own tunes. The first part, doc.arc, should be uudecoded and unarced first, so you can get the proper installation instructions from readme.doc. This program will run best in medium resolution, although the songs should be able to be played in each resolution. For correspondence conceirning this program (bugs, questions etc.) try L. J. M. de Wit Nachtegaallaan 7 5731XP Mierlo Holland e-mail: ..!mcvax!philmds!leo (or perhaps ..!hp4nl!philmds!leo) Enjoy! Part 1 of 5, doc.arc ------------------------- S t a r t s h e r e ------------------------------ begin 640 doc.arc M&@A#3TU03U-%+D1/0P 1!L "01XY,EH"HY ,#10$# @"4H8>D R #&% M2I@Q8\+0>;,0H8&! A44I! &!!PY;\[("=,&A)@\()B4H4BF#(@K:>@L5%*' M#=($ MRI,I14!0J>*DR!0069Y4D8*8B1$=@5M LD 6$@(J:*!Z#"-'YALS5[,RI/,P MHE(R;\;4:5,FJ<2^;D"@">.&#)LRHQ;]K >0.W*8C3@>G4V1I< MJ1B7<(;F*6H29''AE'7><0<7&+\!L(=,:&!GTP3403@&%*5 M849>=+C0&0+?010>"*V5 0<=P9F1QF]ND 3<!5E70UTE%<'BP$%M-1P;GQADS+S4&AA4HA]=Z !';$I9=GPC&C:[BQ M6"1$+O+E'!RDV2BG'',$AH*@K+'QE'-$*D8%%"#\%@89/;((PA@C197">%?L M)M-]=8"@PF!5,$&$"B# AN==9 @H9V!Y,41%$$,,$0053[@ A11'I&875B[! M)AMM25V5!QPNB=9$%8]MFEL23C04!!-,@! $%% PD82R5"3QA!.O!I:$??BQ MR,8=008G)@@N?/M8J#):6 8><@;5:+'4@@ @7'(5#%Q\M*[*FZ;U&8LLO,T^ M&ZUH2*TWAXV]IB$'F!/)D4<*W:WZU!AK('7&>@&#.]6,900V:&GKP=G??,G= M%I&G**'0,!' K3$1'!?.2.#.,IF;[+(=0]LT5DVZ]'!<-UL8:DQ%RG$DM@S^ M)/.K("3A"''4\3ENP9'9\)-FEL2;46VC MO%ZP)X^1\LHF8CY %OE&E%OO,8$X%4@E-5Q43%4MN=[6<@&YG54AZ\D7;2"@ MH/9^W=*!MZ<@E)'A[WX!@12"T(06/,"BGFO5V!*0TOF8A5:8:HXJ-'0Z.KB!I2(@33F M66$.=Q.<,^R)92V$RWO,DYL2'HP.$OM@1Q!4!Z:1*0;JHP$0J8/#S#G./$4" M 1O=>!R_\.5(^ G.IVX4LH:E486]HHC\!L<:GAD.#7A+I*?4 Y& M0O%78?Q)#>5D%&4R$RJ8P9P!PL R%+SA1;@AU,I41:,S' X%1@5!#-@RN6>6 MH04,/>#@RM"&-(CA9/R)SUK88QRP]C0PZ2NK&]+0AOC0@"W%(\VEW"HGL;)J M3R#B2GQPP!;_G0$-=.#KF*R25_[((3XQL$%21P6),&=C%M$(<,#"V( ,;"L(Q45'PJ&P (BL* (+# " M"X[ @B"P0 @L& ,+R,"",K#@H6=@01A88-_X% N[XFL84LSP&QL>$V]\LXFT MJK1!NO9MNB@QZ=#"J2'BN,'"Z>,4;\;0+=3X;E4:8L[E7.#,N.\X<;&ZT2!.+ MN-=WD?2>-#B>*=1-@V4X01Z#-:+%U8;&R1YM<-J9Z, \TF5$@E@K8\A3UC!W M/$9(7W2=,Y3W?#+.JPX*6^ 6&&J;P=K9FL.*TRS?^K4YJD2[KT![8TX*GC9U M=,@#H'SD$C&1@2WC*=:@5#01:>90!.C\S1G" U!&@DQ2NM>X&9<0B M Y-?C+(;MRDO*POMZ:_>.Q0:0\B:(&CG+?N75P(A-YEEV+A21FXA8Y>N.K+* M6HGS=.3/?8D.OJM-N8%CW&J)"+=LX)-V1)[PH@=G.:4)C\4SAV&I,'#(+V1H M<-3P%@8]Y;!TL$G54P-.CVS=.42_D7.#/0 9>XH[H;(MULM&\I8U[ 1,.,%S MH!I %!#')=>)[AWFFY RL)GQ-0KX6'4=0#)U)#2'!:!5) ] ZYFR#(7E(0@4 MWQ*UXRTWL6'-*4&OP?B(&01?D/1S3']*TO\S)6E8YGK^?O(^N>6;M!MWO9LY@W^S3U /[5L"_R7)(^V M62+QMKGM_NG]%5R/_.[7V*:^^.7I!GJJBRUD)AH-4U9DX!LN068OAQVLI"?Q MP7_^)P1L@6NQ=WKK=T'J,G8#X(#% 0)#$(&PQWN05QP6* 3&)1J"%W^)TEV8 MHCXCPQ=S8 8HX5@HX3N>8B>Y\1$/P1N=H15 M01HHP7_[]$$-$X2TD3V!X7[$=W)K%A_R97L"9Q0]R"(EEA2+HX;=]6BQ)(>8 MQTLI@(?'-Q7WM4%60A'74A.WD5;]XP)G,!YA8 (GX -0Z# FERG:@VM!4"0? MZ'VZD0:AEU * G4L$73@)$A7N#APB#D(D 0$1U!%0E+SL1[\@A)2)'ZSI$O4 M5SGO(6+(T094A"HH%T90L7,=$1$5]4,HP#"JD7#<@B.!48S'>(CG!W"(8RF+ M4QV+(U?QU3(=L4F#J!I^(6('0V.%R(?,%$[)<8S!L0?QT0?QL06)V 4HYTJY MP6WOM&AY('ZJ\P*,]%0\!16T='"BH8&%HB #69!,PR^G)(T+N3GTI"D7=GIL MH7X-),/ 1+2AB6S<1U6@0)MI#XXP%Y_Q4NX=AWU)B)!1 :W1F5XL(R?A),@ M83&Y$2$G8UMMN5H@ 1S84&^.YF[2052&-XUG MQ(9:^5?CT02$&39:T5TR86C:,P=UX2D>908)DW-F$-D M89_*@9^H84#[.17]:0:9PQ,,@ +^:$, R5*+@Q(Z M0IKJ4Y[$*5]UE #&UQ$K(%8=84 $BFC_.">J,H5UYWMB17N_$S(/>IPCZ7YN M"(\[J2![!US3M6QZ%%W")&)$Q"U6P9!IQ@2Y62I!MR*]V1N_"3*U2!1(AQUW M-S-YQQ9,X *;-'&N\088R 2;!';FMCL*P@0BL$D:QW%-Z1);JA0_:A0MZG F M :/ -*/6I" V.H3TE&9/L*,3&$\P":2I(:3%1*3#!X*J@G^M8W=!PAU(H2E. MT%-L@1X!XAPD=3AM9*,&1$2^%Q&ZQ)*7$B,'IQ4]-0>*5R.TT9QD5RV*M"?L M<4I*07ZJ\00M$*9+0A%A6!OC87ZB 5W2)9BB9(HQ$1@PT )EB0(.:H'DF:"E M>%@LDSY)6:'79Y\9FFCPQ*$2:'HN(:)R %>C)UUR<*+HJ*>H.J;UEZA2<:92 ME8AKBJ,S204[*GV..*=N6:=D=*=R4J1788:.LBH@85%9H21K*E?SX6"! 9V_ M$RH=89UM ):V1XF-$P,R .;='UYY$,$! M<1UAHDO8M!QV*3CNM$HRPAUNVQ\0T6ER(G==FK%X>ZT2"'U6U'#UQZU$DV91 ML*-V8%8;5:XK>J[:QA[5861>^:_?.%:4LE$HIBJ]Z2B!$;K>B"EL$05KP )L M8([D04LF Y5K:Q7OU4Y)PJZ3>U8KTA(O(A4H($6!\2%F5P:3BZ>&=#+%;W& MD[UIN#G[]'6_0QPM!*'J D1P%QCANR*U\13\<7(FE1RC1CD9Q3\GI2#N68R;E#%W(AIDZK@V82?T07_<,<(224O*N[[:&Q^+ M5"P2Z%BHEK\3D693L*/ZYF,Q[)OH"BS"(IRJ<8)9EVOQ-@>;]"^>F4,=(59WC([VWZIWOBKIYO*_?JUQ# MNJX]LRT_=B&GEQ?E0SDV7'^A4AN+]E0):14EU&NQE&X)53D;5!QA0%*BBT3Z M]IJ81YG X1+)3(TWHC8GZ,*#!D% M) -0FP/^QLXPQT+)02E\46EBD(M_ZQ$@02E"QQU!D 4M, .XF@,Q +,>917N MP2IIT([U[-!\UQ!=F4!D0&H.YK#C0002T1&B!C.+TY4D]09KL'K+%,8 M^&T=JM+0N>F?YU#_59CUK;;[-_% M\I1J'D1V?M8$(@1Z3E]\WM_G].=TON9D L-#<.AA/N9[+N<2Y[U%)>ADTN8, M*>D&D.@%=^9C-;]U_NAW[L>>#NJV>&>87NK'<>H@8.AQWN>+_E&M[NBO3N@< MZ.EB/I._':!@/@"G11$R;A?IF&*SKNC8+NZ-KNFYWG\;*.M*5>V('NY6(;\K MM^VKB[[CN[]?NOL'O#P3E_R7GD6Y0+ 'ABAJ"IFH%$E MK$J0^)H)1]LIGBUKWB U 2$EEQ2X$3LH1RW$0NQ0E?A=C $U+U!%I!&T! M^[ DL+%(P;!EH LG6(V*3 M8Q>T<@(V7_M-(3NUXO$/\MT:5O^?;R''SD0V>/R?A%%^83L>0=+D5O7$7B)3 M??SO%B."7BPU3F/LK46GMD$C/2-5 A%58?\SLUOX%"=./]OJ)L&H5 XI4O0\8E@Y.$Q02QS,=X3,MXW>?<@:!(34XI4N/KK(967E1L=X3/'%TGVAF\(8QK!/)Q$PB%T509Z/I-1 M>Q7<6RU0$7+.H3QG%*1D.%?8)G$[DBH1PIB@DGWHCQ4+_BMSV*T9/KK]"LV" M3-BB7G:'QBTXWBAF=$+.;!W5 A4X?ZY9J170W%K-$6$]WQS@=LH877X;/?$SQZ$ :\3@=PQ -_K550N>8Q )6#X@9Z$ :\3@8RX)#!HP=AP.MTD/(\\-=:!95K/@,*Y'%NH =A,/"ASNT_!,,Q )4= M'SQZ$ 8#'^H!OU,Q )4='SQZ$ 8#'^H(KU50V?'!HP=A,/"A'O!D%@-0V?'! MHP=AP.LDS@-U(0EB375@:\3@=PQ -_K1;_+N@Q )6#X@9Z M$ :>_NL#,)-IEF9I1@)T $<\\->E0B2!WH4Q )6#X@9Z$ :\3@# MX@9Z$ 8#'^H!OU/;5^>#X@9Z$ 8#'^H(7RI$$NA=."ANH =A,/"A'O!DMGUU M/BANH =AP.LRP0-_K550N>8#C61N,/"ASNT_!,,Q )5K/M!(Y@8#'^H!OU,Q M )5K/M!(Y@8#'^H(KU50N>8#C61N,/"A'O!D%@-0N>8#C61NP.LDS@-U(0EB375@:\+A,\\-=J\>^"/M!(Y@:>_NL#,)-IEF9I1@(RP0-_ M72I$$NA=.-!(Y@8#'^K<_D,PO'UU/M!(Y@8#'^H!OU/;5^<#C61N,/"ACO"E M0B2!WH4#C61N,/"A'O!DMGUU/M!(Y@:\K@-\D/(\\$V799K<@N/(H^?VPM<) M^2"_LQ5DT%)-32LGP#\RHB '@\G#;_$$S*3"13!L25-'04*JG#YF2,'#AN#(04@8Y( M-W/81"Q#!D0:-Q)!%'%SADV:.6A F'DC!P0=-"W=E(F) P>,'#!F8"2( 4H0 M*51 S- !(@E0.F'8"*63YHT;C#L'0)'R9$@1(E6D%-&1MP6D!&,A#0B3 H21 M-'+FQ*Q3A^68-RQ!Q&4#(L^;.E7-I&%39@X(NU:Q+J2R(_53$% _LREZ)HV= MEI[K$,Z(, @3)C% M(WG%-"Z"QZ?#F%=;BB9MVLQ'DNE!'%=1/8R<,6ALEP:!POX8%W30 0<(>&@F M5W#^L0#"5O^EX,).!E"1GVFQT42;?JFI]X9<;]QQU!E2C;9??W)I=E]^M\V1 MPFX$&3 $$D] D803U2EFA!1!.#'%<\,5=V..4]10XP _ZFC#D$Y@AP05350Q M!700.O&7%4\PL41U(.!XQ),]0E+ %$\D2441-/:X4)A;UD@ 0S@ZJ064O$6H MFG]HG&#:<<$-I^!QR?48AAM%.5<=1&Z4U!)+I-%!% AN=/@@;P.,T=@0MAIUVW&68Z6QE1,:6$$HJ^&*,,RHXW1 *-O&$%F=1H:"41%!I M)0L0:CF%@F ZL26Y5+0YQ9L04FJIHB#\FE^AS+YH[%3(1N88CCK.H&"10?[+ M[Q1'MMLKO/(&:RVV:-VK:;*F)?DBDU-H!NB98I*9JV)E--;$&[?Q%^MEKS9F M*7[R+12?%$;"A(5M18K0$AU!C+!IL?/AN*JRGE4>9^!A.C;$&JD:5??&L(9M1 MAQLAX"40;P8AI!!##D&4% @5800:"%-404-#051/+D1/0P#_"0 )!%]DI$/ M_1( P-% 0$ 2E##T@&0("80B7,F#%AZ+Q1>-! P(L*"%(( P*.G#=GY(1I M T),'A!,RDPD4P;$E31T%"JIP^9DC!PX;@R$%(&.2#=SV$0L0P9$&C<2011Q M((FS=BPK Q MZF:JG#81T[QQ@W'G "A/IDQ)(B0)DR14DA29HL-O"T@-QD)"0 5KQX\A1X* M^N8."(YPA.8Y>J9CFC!N)NX%<0=-FC%1X:0I,Z;,'!!OS(!H4V?.Z\]RROB% M4T:.W39$7?A]>=6JZ]L>08HDF>=-'1 0W33.B#!("I1/Z91Q8W7BE+UGYKR@ M4D>K>BBS:]]&X;M-Z#(I=AH0\GT*Z<]O,<4:3%&A8,0;;*R1PASHS;&#('>T%*9%?5[44')2CGH0"F7*<]&*,1Y;A$%95O=!1';+- M16)SG;XFEU1EF$E:"D=BY=>PHX(*@A-/I 4:C#&Y6>UETHWD @A#4$BK;SZN M1B(;38]2!9DQ#/-$$8%,4X0(13PQ1HV0#'%$$%8DY M<<1"5)Q%11%$;$?0 (\](!D"4] !L(G194820T$,,4005#SA A12S&P2=DZ- ML<9_J\$4ZX1N',R0A!&]X9>H -^V;E0<3<6&C,Y%)&P<=QQMP-D'=QK)';$M)*,^TTU#/+/9&2@T_5'AF*%IX$>1#- MT9*DK*$64U(5G\0@4[>9\1%)' U::''CQ33H'&NP$*EU+H9!9GD@K)&:9Q[> M0>WD+S+5TL"'5W64B3"5T48+G@,Y1KZJ4]A6$4WHC% 8WXU1]1H@H+L:\@BR M[<9(+:%0[*8#U\U@5>CV7D8>F1-D@!C=%W_&\98E#\+YR G4U(20M"5,P2Q# M* )NJK*8I=WI,VXH%1O@\"+YY6$.]8/$ )*@&]#!H0ZCL\SLUK 5\= E*620 MPYA:(@3;@>Y5$-A2(_N-H7O?P\VS+!.7JDCL+9XAW]H0!\ RU*LE<[B@ M>$C"F3O,33B%>Y5M7I"\4)F)-N(AP\&R@#LE10^+FZF#&*12ON+\JBK!@98< MGC61@<$!1K%S51E]>!+OO>9J AJ?95Z3-?+ S38-(P\*[!+&,5:1>5Q;DEV@ MN#,AF@]]"S21_XIH%#I$SPRV(Z0;X8BW.9K(>[5BI ;YZ 8:@2 (;& 0&:L" MFS?4BC0O.,..;/4?CD!+*Y+TFVVN.+UB<8A-6NQ+X:10!2R#,K$/(.=*W9"KEN5X<3 M! >"G\&+>";EEV*Q"EOA\QRE=/.UAX3M8$$(E2M!=!O0O6AW%A(6Q8HS&S?4 M9D#-J=9P,#,=%W8Q6*Z)B11>5@4I."%0]RP.'4) +Z)15#,<8A!R6N,V6-TF M#&*XG.BHA15RDM.2+C(3'.@RE1I.Q@FL^B8(PAE(?2T,8^FL5E70*3K>.454 MXXFD+'FT,H$4[C ,*<(Q9:8]GD$B 3^K3$L,)0=1X08.147!4P,WK]U$!#9! M\@X$B\*?*@TL#(O<3>S&293AU.I6?A-3D 1F&6V.Y$&@4]):HYHE8V6L&=P[2DT7\#E/3E!2LP,BG [A"34U467V]@5L6O8Z2 M6AE*$VE%0SHCHH%]:S*$%!3F[DD)8V38J.)@$0F=2F.G=CQ4'4E M1H<[Q(L\BW5#+2/HEZG2DBE5]4N?%C,8KE(3 6&UC.>X5I0WH'6<@?*O;YCR M'7G"]38X$FV$\OHQOI+!K[1DD5-\9!OD=P1S<1 M">]J,]ZM)1F'*(<1E0AYI/4N50Y6!<^MTCGEE,-1$;F7E\8J@BKN:^%@^MPR M'&P(.5S-$Y8028_P" 0;I4)'/YH4KI&5).WST&NL[!V 139O#DWMR4V6%3V)@1Y1:'8;1%W#V/#V.+%J:.@ZEUN\)C$]@F".M\9 M5GJ>R)\YI["MM&1Y Z.3G?"D)S[YZ03(#4*E[=P&/ /J+6^@+ B<0D(DSX$M M3M*P5$@KE>TZ$G%)\I#G^#+E")XH#'D@BNUB&A-T[N4$,?%<2UZ$_3H1_A!;A/"4&N^Q?<-:T;W4.MP1YF/?&&W M(1K8*J3_>(Z%&M'IH5 MW$T?,:6>DE4P>GB79E=.N#0[WS60BGAHZ6)47%71.G.MP]_"I1VV;=L0=$2# ML=\E3IV(0R?LPO@0'IF!)G,I5FIB@@(QN( .+K@#!C*!2 Q4":';\'XV M$^F;W[OY=TL"OI=Q&^$H[LU2V=G;U[D79]!<39%.#N# M%\N#)M=!7Z^'7^$Q'OM5%"D(8,*T,R$S,H&!3#.3!4_0427#!$;058\A 9*1 M =2%:UC&V.@0@^V&FG7+I\B1:LD3W/E(F^V>H]B0LQ23\YB)9ZB>R 0'&: M.$DA@&_0,1^#,")#,B:#,BJ3A!J$!+HS5NT1 H1H$ BA$/VT6A,! A6!$1H end ------------------------- E n d s h e r e ------------------------------