' Open serial port

OPEN "COM1:9600" AS #1

CGMP3.SelectSD

PAUSE 500

CGMP3.Rndm

END



' Play Next song

SUB CGMP3.PlayNext

CGMP3.Cmd(&h01, &h0000)

END SUB



' Play Previous song

SUB CGMP3.PlayPrevious

CGMP3.Cmd(&h02, &h0000)

END SUB



' Play indexed song in the root directory

' sel - index to song 1-2999

SUB CGMP3.PlayRootDirSong(sel AS INTEGER)

CGMP3.Cmd(&h03, sel)

END SUB



' Increase Volume

SUB CGMP3.VolUp

CGMP3.Cmd(&h04, &h0000)

END SUB



' Decrease Volume

SUB CGMP3.VolDn

CGMP3.Cmd(&h05, &h0000)

END SUB



' Specify volume 0 to 30

SUB CGMP3.Volume(vol AS INTEGER)

CGMP3.Cmd(&h06, vol)

END SUB



' Specify EQ

' 0 - Normal

' 1 - Pop

' 2 - Rock

' 3 - Jazz

' 4 - Classical

' 5 - Bass

SUB CGMP3.EQ(eq AS INTEGER)

CGMP3.Cmd(&h07, eq)

END SUB



' Repeat specified Track

' track - index to song 1-2999

SUB CGMP3.RepeatTrack(track AS INTEGER)

CGMP3.Cmd(&h08, track)

END SUB



' Select USB for playback

SUB CGMP3.SelectUSB

CGMP3.Cmd(&h09, &h01)

END SUB



' Select SD for playback

SUB CGMP3.SelectSD

CGMP3.Cmd(&h09, &h02)

END SUB



' Reset

SUB CGMP3.Reset

CGMP3.Cmd(&h0C, &h02)

END SUB



' Play

SUB CGMP3.Play

CGMP3.Cmd(&h0D, &h02)

END SUB



' Pause

SUB CGMP3.Pause

CGMP3.Cmd(&h0E, &h02)

END SUB



' Play specified Track in Folder

' fold - index to folder 1-99

' track - index to song 1-255

SUB CGMP3.PlayFoldTrack(fold AS INTEGER, track AS INTEGER)

CGMP3.Cmd(&h0F, (fold*256)+track)

END SUB



' Stop

SUB CGMP3.Stop

CGMP3.Cmd(&h16, &h00)

END SUB



' Random Play

SUB CGMP3.Rndm

CGMP3.Cmd(&h18, &h00)

END SUB



SUB CGMP3.Cmd(commd AS INTEGER, dat AS INTEGER)

LOCAL INTEGER dath

LOCAL INTEGER datl

dath = dat >> 8

datl = dat AND &hFF

PRINT #1,CHR$(&h7E);CHR$(&hFF);CHR$(&h06);CHR$(commd);CHR$(&h00);CHR$(dath);CHR$(datl);CHR$(&hEF);

END SUB