Download filezillafor windows
'------------------------------------------------
' Read the music score data from lookup table TRACK_1
' The data format is time to play the note and the note's midi value READ_NOTE_DATA_FOR_CHANNEL1:
CHANNEL1_TIME_ON = Lread TRACK_1_DATA ' Read the NOTE_ON time (16-bits) TRACK_1_DATA = TRACK_1_DATA + 2 ' Increment to next part CHANNEL_1_NOTE = Lread TRACK_1_DATA ' Read the NOTE frequency data (8-bits) TRACK_1_DATA = TRACK_1_DATA + 2 ' Increment to next part Return '------------------------------------------------
' Read the music score data from lookup table TRACK_2
' The data format is time to play the note and the note's midi value READ_NOTE_DATA_FOR_CHANNEL2:
CHANNEL2_TIME_ON = Lread TRACK_2_DATA ' Read the NOTE_ON time (16-bits) TRACK_2_DATA = TRACK_2_DATA + 2 ' Increment to next part CHANNEL_2_NOTE = Lread TRACK_2_DATA ' Read the NOTE frequency data (8-bits) TRACK_2_DATA = TRACK_2_DATA + 2 ' Increment to next part Return '------------------------------------------------
' Read the music score data from lookup table TRACK_3
' The data format is time to play the note and the note's midi value READ_NOTE_DATA_FOR_CHANNEL3:
CHANNEL3_TIME_ON = Lread TRACK_3_DATA ' Read the NOTE_ON time (16-bits) TRACK_3_DATA = TRACK_3_DATA + 2 ' Increment to next part CHANNEL_3_NOTE = Lread TRACK_3_DATA ' Read the NOTE frequency data (8-bits) TRACK_3_DATA = TRACK_3_DATA + 2 ' Increment to next part Return '------------------------------------------------
' Take the midi note held in 'NOTE_DATA' previously read
' from the music score table for TRACK 1
' Convert this into a value for a given frequency using a lookup table
' And play the note on sound channel 1 PLAY_NOTE_1: NOTE_POINTER = NOTE_DATA
NOTE_POINTER = NOTE_POINTER + (CHANNEL_1_NOTE * 2)
NOTE_1_TO_PLAY = 0 ' Indicate we require a chime for this channel NOTE_1 = Lread NOTE_POINTER ' Read the NOTE to play Return '------------------------------------------------
' Take the midi note held in 'NOTE_DATA' previously read
' from the music score table for TRACK 2
' Convert this into a value for a given frequency using a lookup table
' And play the note on sound channel 2 PLAY_NOTE_2:
NOTE_POINTER = NOTE_DATA
NOTE_POINTER = NOTE_POINTER + (CHANNEL_2_NOTE * 2)
NOTE_2_TO_PLAY = 0 ' Indicate we require a chime for this channel NOTE_2 = Lread NOTE_POINTER ' Read the NOTE to play Return '------------------------------------------------
' Take the midi note held in 'NOTE_DATA' previously read
' from the music score table for TRACK 3
' Convert this into a value for a given frequency using a lookup table
' And play the note on sound channel 3 PLAY_NOTE_3: NOTE_POINTER = NOTE_DATA
NOTE_POINTER = NOTE_POINTER + (CHANNEL_3_NOTE * 2)
NOTE_3_TO_PLAY = 0 ' Indicate we require a chime for this channel NOTE_3 = Lread NOTE_POINTER ' Read the NOTE to play Return
