OPTION EXPLICIT


' Change these constants to control how the program actually runs.
'
' USE_FLAC_DONE:
'
' 0 = Automatically advance the FLAC track every 90 seconds
' 1 = Use the FLAC "done" interrupt to advance the track
'
' USE_SELECT_CASE:
'
' 0 = Use a series of IF-THEN statements to assign FLAC filename
' 1 = Use a SELECT CASE block to assign FLAC filename
'
' ACTUALLY_PLAY:
'
' 0 = Skip the PLAY FLAC command
' (really only useful when USE_FLAC_DONE = 0
' 1 = Issue the PLAY FLAC command


CONST USE_FLAC_DONE = 0
CONST USE_SELECT_CASE = 1
CONST ACTUALLY_PLAY = 1


' Delare all variables appropriately

DIM TSEC AS INTEGER
DIM TFLAC AS INTEGER

DIM FLAC_PLAYING AS INTEGER
DIM FLAC_TRACK AS INTEGER
DIM FLAC_FILE$ AS STRING
DIM TEST_STRING$ AS STRING

DIM SHOW_DEBUG AS INTEGER


' Reset the Console printing interval to 0 (zero)

TSEC = 0
TFLAC = 0


' Reset the FLAC playlist variables

FLAC_PLAYING = 0
FLAC_TRACK = 0


' Reset the extra debugging flag

SHOW_DEBUG = 0


' Reset the TIMER to 0 (zero), and wait for a bit to gurantee
' that it will be >0 when the main loop starts

TIMER = 0
PAUSE 5


' --- MAIN LOOP ---

DO


' If the TIMER goes past the pre-determined printing interval,
' then print its current value to the Console, and calcualte
' the next trigger value (i.e. 5 seconds hence)

IF Timer > TSEC THEN
TSEC = TIMER + 5000
PRINT "TIMER: "; STR$(TIMER)
PRINT "TRACK: "; STR$(FLAC_TRACK)
PRINT "FILE: "; FLAC_FILE$
PRINT "TEST: "; TEST_STRING$
PRINT
END IF


' If we're in timed track mode (rather than using the DONE interrupt),
' then we have some work to do here

if USE_FLAC_DONE = 0 THEN

' If the TIMER goes past the pre-determined track interval,
' then reset the playing flag (to force a track change), and
' calculate the next trigger value (i.e., 90 seconds hence)

IF TIMER > TFLAC THEN
'Only show the debug info at the Track 1 -> Track 2 transition
IF (TFLAC > 80000) AND (TFLAC < 100000) THEN
SHOW_DEBUG = 1
END IF
TFLAC = TIMER + 90000
FLAC_PLAYING = 0
END IF

END IF


' Only process the FLAC playlist if nothing is currently playing

IF FLAC_PLAYING = 0 THEN

' Print some debug info to show how key variables behave

IF SHOW_DEBUG = 1 THEN
PRINT " DEBUG 1 - TRACK: "; STR$(FLAC_TRACK)
PRINT " DEBUG 1 - FILE: "; FLAC_FILE$
PRINT " DEBUG 1 - TEST: "; TEST_STRING$
END IF


' Advance the track number; wrap it around to 1 at the end

FLAC_TRACK = FLAC_TRACK + 1
IF FLAC_TRACK > 2 THEN
FLAC_TRACK = 1
END IF


' Print some debug info to show how key variables behave

IF SHOW_DEBUG = 1 THEN
PRINT " DEBUG 2 - TRACK: "; STR$(FLAC_TRACK)
PRINT " DEBUG 2 - FILE: "; FLAC_FILE$
PRINT " DEBUG 2 - TEST: "; TEST_STRING$
END IF


' Based on the track number, assign an actual filename to play
'
' NOTE: The exact method used to traslate the track number
' into a filename, depends on how one of our constants is set.
' We will either use (the nicer) SELECT-CASE method, or instead,
' use a series of IF-THEN's.

IF USE_SELECT_CASE = 1 THEN

SELECT CASE FLAC_TRACK

CASE 1

FLAC_FILE$ = "\111.FLAC"
TEST_STRING$ = "TRACK ONE"

CASE 2

FLAC_FILE$ = "\125.FLAC"
TEST_STRING$ = "TRACK TWO"

CASE ELSE

FLAC_FILE$ = ""
TEST STRING = "NO TRACK"

END SELECT

ELSE

FLAC_FILE$ = ""
TEST_STRING$ = "NO TRACK"

IF FLAC_TRACK = 1 THEN
FLAC_FILE$ = "\111.FLAC"
TEST_STRING$ = "TRACK ONE"
END IF

IF FLAC_TRACK = 2 THEN
FLAC_FILE$ = "\125.FLAC"
TEST_STRING$ = "TRACK TWO"
END IF

END IF


' Print some debug info to show how key variables behave

IF SHOW_DEBUG = 1 THEN
PRINT " DEBUG 3 - TRACK: "; STR$(FLAC_TRACK)
PRINT " DEBUG 3 - FILE: "; FLAC_FILE$
PRINT " DEBUG 3 - TEST: "; TEST_STRING$
END IF


' Only process the filename if it is valid

IF FLAC_FILE$ <> "" THEN

' Set the flag to indicate that we're busy playing tunes

FLAC_PLAYING = 1

' Play the file (either with, or with the interrupt feature,
' depending on the mode selected by our constants).

if USE_FLAC_DONE = 1 THEN

' Only issue the PLAY command, if our constants tell us to

IF ACTUALLY_PLAY = 1 THEN
PLAY FLAC FLAC_FILE$, INT_FLAC_DONE
END IF

ELSE

' Only issue the PLAY command, if our constants tell us to

IF ACTUALLY_PLAY = 1 THEN
PLAY FLAC FLAC_FILE$
END IF

END IF

' Print to the Console, the name of what we are playing

PRINT "Playing: ";FLAC_FILE$

END IF

' Print some debug info to show how key variables behave

IF SHOW_DEBUG = 1 THEN
PRINT " DEBUG 4 - TRACK: "; STR$(FLAC_TRACK)
PRINT " DEBUG 4 - FILE: "; FLAC_FILE$
PRINT " DEBUG 4 - TEST: "; TEST_STRING$
SHOW_DEBUG = 0
END IF

end if


' Automatically quit after 5 minutes (300,000ms)

LOOP UNTIL TIMER > 300000


' --- END of MAIN LOOP ---


' Ensure current track is stopped (no harm if it already is)

PLAY STOP


' INTERRUPT - Triggers when FLAC playback is complete

SUB INT_FLAC_DONE


' Update the flag to show that we are no longer busy

FLAC_PLAYING = 0

SHOW_DEBUG = 1

' Give a nod to the Console

PRINT "FLAC DONE!"


END SUB



END