Include "bass.bb"

Graphics 800,300, 32, 2
SetBuffer BackBuffer()
BASS_Init(-1,44100,0,0,BASS_NULL)

Type Music
	Field BBS_H
	Field Name$
End Type

Ordn$ = "H:\Other\Music\"

Dir = ReadDir(Ordn$)

MaxNum = 0
lchan = 0
Repeat
	File$ = NextFile(Dir)
	If File$ = ""
		Exit
	EndIf
	
	If File$ <> "." And File$ <> ".."
		If Lower(Right(File$, 3)) = "mp3"
			M.Music = New Music
			M\Name$ = File$
			M\BBS_H = BASS_StreamCreateFile(BASS_False, Ordn$+"\"+File$, 0, 0, BASS_SAMPLE_FLOAT)
			MaxNum = MaxNum + 1
		EndIf
	EndIf
Forever


While Not KeyHit(1)
	Cls
	
	If KeyHit(17)
		MusicPos = MusicPos-1
		If MusicPos < 0 MusicPos = 0
	EndIf
	If KeyHit(31)
		MusicPos = MusicPos+1
		If MusicPos => MaxNum MusicPos = MaxNum-1
	EndIf
	
	For M.Music = Each Music
		If A = MusicPos
			Color 255, 255, 255
			Text 0, 150, M\Name$, 0, 1
			If KeyHit(28)
				If lchan <> 0
					Bass_ChannelPause(lchan)
				EndIf
				BASS_ChannelPlay(M\BBS_H, True)
				lchan = M\BBS_H
			EndIf
		Else
			Color 127, 127, 127
			Text 0, 150+(A-MusicPos)*15, M\Name$, 0, 1
		EndIf
		A = A + 1
	Next
	A = 0
	Flip
Wend

BASS_Free()
End