Sorry your browser is not supported!

function _music_loader(1)

` go to the music folder
SET DIR Path$(3)

` create a list of files in there
perform checklist for files

` start the variable at the beginning
mp3=1

` find the first file
find first

` begin the sequence to load the music files in
for track=1 to checklist quantity()-1

	` set the global variable with the file name
	music_playlist$(mp3)=get file name$()

	` set a local variable to be used in this function
	filename$=get file name$()

	` load the music file into the system
	load music filename$,mp3

	` find the next file
	find next

	` increase the track number by one
	mp3=mp3+1

` repeat the sequence (until no more files remain)
next track

` set the global variable to the total amount of songs for the randomized player
music_handling(1)=mp3

` go back to the root folder before ending the function
SET DIR Path$(1)

endfunction

perform checklist for files
num=checklist quantity()

for x=1 to num
   if rev=30 then cls
   if x=1 then find first else find next
   name$=get file name$()
   if right$(name$,4)=".mid"
      print "Loading: "+name$
      load music ""+name$, 1
      loop music 1
      suspend for key
   else
      print name$+" was not a .mid"
   endif
inc rev
next x


end