AZ: : SEG Z MUSIC$(,),DIR$(),DTA(),DIRLIST(>),SORT(),BLANK()l :: ,,|# : o("first part";A1$2"second part";A2$< A2$"" PF"third part";A3$P A1$".mus" AS #Z A2$"" xd A2$".mus" AS #Fn A3$"" A3$".mus" AS #Px :********************************************************VOICE:MEASURE () #,NOTE$ :MEASUREMEASURE A2$"" h<:********************************************************RVOICE:MEASUREp #,DUMMY$: #,DUMMY$ () #,NOTE$ :MEASUREMEASURE:******************************************************** A3$"" h"VOICE:MEASURE:, #,DUMMY$: #,DUMMY$I6 ()[@ #,NOTE$eJ }T:MEASUREMEASURE^:***********************************************hMAXMEASURE: "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$ MUSICEND MUSICENDMAX COUNTSTART 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 MEASUREMEASURE:NEWMEASUREw:***********************************************#,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,3cL 2e,74,04,aa,49,eb,f7,b0,20,f3,aa,b4V 4f,eb,dd` 5d,ca,04,00jDIRt X d~DIR$(X)" """DIR$()"*.MUS"()&A(DIRLIST())> A(DTA(),DIR$())FXm (DIR$(X)" ") (Xd)DIRDIR:XX:DIR$()"" :****************************sort directory ************************** SORT(SORT()): SORT(DIR$(),DIR)U :*********************************************************************t :COL:ROW:COLLENGTH  X DIR ROW,COL: DIR$(X) ROWROW (X COLLENGTH) COLCOL:ROW  COLLENGTH,: (P,); K :***************** prepare to ask for more selections *************8d XCOLLENGTH { 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$(,)#