Category : Music and Digitized Voice
Archive   : COMPOSER.ZIP
Filename : 3PART.BAS

ÿ
­ AêZ:É Ý:— SEG
Ä •Z† MUSIC$(,È),DIR$(–),DTA(),DIRLIST(>),SORT(Ó),BLANK()lÈ :À:¿ ,,|# è: o“(…"first part";A1$ª2…"second part";A2$½<‹ A2$ç"" Í PÔF…"third part";A3$ïPº A1$é".mus" ‚ … AS #Z‹ A2$ç"" Í ‰ xdº A2$é".mus" ‚ … AS #Fn‹ A3$èæ"" Í º A3$é".mus" ‚ … AS #Px þ
‚:Ù********************************************************¦ŒVOICEç:MEASUREçµ–±é Ó ÿ£()Ç  ° … #,NOTE$Ѫ Ì
é´²:MEASUREçMEASUREêü¾‹ A2$ç"" Í h
<È:Ù********************************************************RÒVOICEç:MEASUREçpÜ° … #,DUMMY$:… #,DUMMY$æ±é Ó ÿ£()‘ð ° … #,NOTE$›ú Ì
³
²:MEASUREçMEASUREêó
:Ù********************************************************
‹ A3$ç"" Í h
"
VOICEç:MEASUREç:,
° … #,DUMMY$:… #,DUMMY$I6
±é Ó ÿ£()[@
° … #,NOTE$eJ
 Ì
}T
²:MEASUREçMEASUREê´^
:Ù***********************************************ðh
MAXçMEASURE:‘ "Measures: ";MEASURE;:‘" Tempo: ";TEMPO$r
…"Where do you want to start";STARTA|
…"Where do you want to end";MUSICENDXƒ
…"Tempo";NEWTEMPO$„
‹ NEWTEMPO$èæ"" Í TEMPO$çNEWTEMPO$§…
þ“ "t"éTEMPO$,"t"éTEMPO$,"t"éTEMPO$dž
‹ MUSICENDç Í MUSICENDçMAXä
‚ COUNTçSTART Ì MUSICENDš
þ“ MUSIC$(,COUNT),MUSIC$(,COUNT),MUSIC$(,COUNT)'¤
ƒ COUNTN®
…"Do you want to play it again";A$X¯
 zj³
:ÙGOSUB 3000¸
‹ Ø("Yy",A$)èæ Í ‰ h
:¡ ‰ (ÆÂ
:Ù***********************************************Ì
‹ ÿ‚(NOTE$,)ç"$" Í NEWMEASUREç:NOTE$çÿ(NOTE$,ÿ’(NOTE$)ê)=Ö
MUSIC$(VOICE,MEASURE)çMUSIC$(VOICE,MEASURE)éNOTE$qà
‹ NEWMEASUREç Í MEASUREçMEASUREé:NEWMEASUREçwê
Ž®ô
:Ù***********************************************¾þ
…#,TIMESIGÏ° …#,TEMPO$â° … #,KEYSIG$è&Ž÷è‚ Xç Ì ="ò‡ Z$:˜ Ú(DIRLIST())éX,ÿ”("&h"éZ$):ƒ X1ó‚ Xç Ì ÒYô‡ Z$:˜ Ú(SORT())éX,ÿ”("&h"éZ$):ƒ Xƒü„ 55,8b,ec,8b,56,08,89,d3,83,c3,1e,b4¡„ 1a,cd,21,8b,6e,06,8b,56Ì„ 01'************** change from 1 to 2ó„ b4,4e,cd,21,3d,12,00,74,1c,83,c5 $„ 03'**************** change from 3 to 4,.„ 8b,7eY8„ 01'**************** change from 1 to 2tB„ 8b,f3,b9,08,00,ac,3cžL„ 2e,74,04,aa,49,eb,f7,b0,20,f3,aa,b4­V„ 4f,eb,dd¿`„ 5d,ca,04,00ÉjDIRçØt‚ Xç Ì dò~DIR$(X)ç" "é""øˆƒ’DIR$()ç"*.MUS"éÿ–()&œAçÚ(DIRLIST())>¦³ A(DTA(),DIR$())F°Xçmº±é (DIR$(X)èæ" ") î (Xèçd)ÄDIRçDIRé:XçXé’β:DIR$()ç""߈ :Ù****************************sort directory ************************** SORTçÚ(SORT()):³ SORT(DIR$(),DIR)UÎ :Ù*********************************************************************tØ À:COLç:ROWç:COLLENGTHç
„⠂ Xç Ì DIRœì Ê ROW,COL:‘ DIR$(X)ªö ROWçROWéÔ
‹ (X ó COLLENGTH)ç Í COLçCOLé:ROWçÚ

ƒú
Ê COLLENGTHé,:‘ Ö(P,Í);
ŽK·:Ù***************** prepare to ask for more selections *************8d¸‚ XçCOLLENGTHé Ì {ÂÊ X,:‘ Ö(O," ");Ìƒ•ÖÊ COLLENGTHé,ÙÛ‹ Ø("Yy",A$)ç Í »:A1$ç"":A2$ç"":A3$ç"":¥ MUSIC$:† MUSIC$(,È)ßàŽ ˆ„ 55,fc,8b,ec,8b,5e,06,8b,07,8b,5e,083’„ e8,0e,00,00,00,00,00,00,00,00,00,00]œ„ 00,00,00,00,00,5d,89,5e,00,89,46,02‡¦„ 89,46,04,8b,46,04,d1,e8,89,46,04,85±°„ c0,75,03,e9,99,00,8b,46,02,2b,46,04Ûº„ 89,46,06,c7,46,08,00,00,8b,46,08,89 Ä„ 46,0a,8b,46,0a,03,46,04,89,46,0c,8b/ É„ 46,0a,be,03,00,f7,e6,03,46,00,8b,f0Y ΄ 8a,1c,80,fb,00,74,57,8b,ce,8b,74,01ƒ Ø„ 8b,46,0c,bf,03,00,f7,e7,03,46,00,8b­ â„ f8,8a,3d,80,ff,00,74,19,8b,d7,8b,7d× ì„ 01,ac,3a,05,72,34,77,0b,fe,cb,74,2e
!ö„ fe,cf,74,03,47,eb,ee,8b,fa,8b,f1,8a+!„ 04,8a,25,88,05,88,24,8b,44,01,8b,5dU!
„ 01,89,45,01,89,5c,01,8b,46,0a,2b,46!„ 04,89,46,0a,83,7e,0a,00,7f,8c,ff,46©!„ 08,8b,46,08,3b,46,06,77,03,e9,78,ffÄ!(„ e9,58,ff,5d,ca,04,00"n:Ù*********************** blank window *************************8;"o„ b8,00,06,b9,00,0e,ba,1e,18,b7,07,cd,10,cbm"p‚ Xç Ì 
:‡ A$:˜ Ú(BLANK())éX,ÿ”("&h"éA$):ƒƒ"q— SEGç ¸:Açÿ—()¢"r— SEG:˜ Ú(BLANK())é
,A:Ž¸"zAçÚ(BLANK()):³ AÌ"ŽÊ COLLENGTHé,#˜‹ Ø("Yy",A$)ç Í »:A1$ç"":A2$ç"":A3$ç"":¥ MUSIC$:† MUSIC$(,È)#¢Ž