Option Base 0
Option Default None
Option Explicit On

' On Key 3 doesn't seem to work on PicoMite.
' Option Break 4
' On Key 3, on_break

If InStr(MM.Device$, "PicoMite") Then Save "entertainer.bas"

Dim channel1%(256), channel2%(256), channel3%(256), channel4%(256)
Dim err$

Dim s$
Do
 Line Input "How many channels (1-4)? ", s$
 Print
 Select Case Val(s$)
   Case 1 To 4 : Exit Do
 End Select
Loop
Dim num_channels% = Val(s$)

music.parse(channel1%(), "qD4,qD#4")

music.parse(channel1%(), "qE4,1C5,qE4,1C5,qE4,qC5")
music.parse(channel1%(), "2C5,q-,qC5,qD5,qD#5")
music.parse(channel1%(), "qE5,qC5,qD5,qE5,qE5,qB5,1D5")
music.parse(channel1%(), "3C5,qD4,qD#4")

music.parse(channel1%(), "qE4,1C5,qE4,1C5,qE4,qC5")
music.parse(channel1%(), "3C5,qA5,qG4")
music.parse(channel1%(), "qF#4,qA5,qC5,qE5,qE5,qD5,qC5,qA5")
music.parse(channel1%(), "3D5,qD4,qD#4")

music.parse(channel1%(), "qE4,1C5,qE4,1C5,qE4,qC5")
music.parse(channel1%(), "2C5,q-,qC5,qD5,qD#5")
music.parse(channel1%(), "qE5,qC5,qD5,qE5,qE5,qB5,1D5")
music.parse(channel1%(), "2C5,qC5,q-,qC5,qD5")

music.parse(channel1%(), "qE5,qC5,qD5,qE5,qE5,qC5,qD5,qC5")
music.parse(channel1%(), "qE5,qC5,qD5,qE5,qE5,qC5,qD5,qC5")
music.parse(channel1%(), "qE5,qC5,qD5,qE5,qE5,qB5,1D5")
music.parse(channel1%(), "2C5,qC5,qE4,qF4,qF#4")

' ---

music.parse(channel1%(), "1G4,qA5,qG4,qG4,qE4,qF4,qF#4")
music.parse(channel1%(), "1G4,qA5,qG4,qG4,qE5,qC5,qG4")
music.parse(channel1%(), "qA5,qB5,qC5,qD5,qE5,qD5,qC5,qD5")
music.parse(channel1%(), "2G4,qG4,qE4,qF4,qF#4")

music.parse(channel1%(), "1G4,qA5,qG4,qG4,qE4,qF4,qF#4")
music.parse(channel1%(), "1G4,qA5,qG4,qG4,qG4,qA5,qA#5")
music.parse(channel1%(), "1B5,q-,1B5,qA5,qF#4,qD4")
'music.parse(channel1%(), "qB5,q-,qB5,q-,qB5,qA5,qF#4,qD4")
music.parse(channel1%(), "2G4,qG4,qE4,qF4,qF#4")

music.parse(channel1%(), "1G4,qA5,qG4,qG4,qE4,qF4,qF#4")
music.parse(channel1%(), "1G4,qA5,qG4,qG4,qE5,qC5,qG4")
music.parse(channel1%(), "qA5,qB5,qC5,qD5,qE5,qD5,qC5,qD5")
music.parse(channel1%(), "2C5,qC5,qG4,qF#4,qG4")

music.parse(channel1%(), "1C5,qA5,qC5,qC5,qA5,qC5,qA5")
music.parse(channel1%(), "qG4,qC5,qE5,qG5,qG5,qE5,qC5,qG4")
music.parse(channel1%(), "1A5,1C5,qE5,1D5,qD5")
music.parse(channel1%(), "3C5")

' Placeholder code until I've transcribed the notes for the other channels.
' Play the same music on each channel offset by 1 beat.
LongString Append channel2%(), Chr$(0) + Chr$(0)
LongString Append channel3%(), Chr$(0) + Chr$(0) + Chr$(0) + Chr$(0)
LongString Append channel4%(), Chr$(0) + Chr$(0) + Chr$(0) + Chr$(0) + Chr$(0) + Chr$(0)
Dim i%
For i% = 0 To LLen(channel1%()) - 1
 LongString Append channel2%(), Chr$(LGetByte(channel1%(), i%))
 LongString Append channel3%(), Chr$(LGetByte(channel1%(), i%))
 LongString Append channel4%(), Chr$(LGetByte(channel1%(), i%))
Next

' Terminate each channel with 255
LongString Append channel1%(), Chr$(&hFF)
LongString Append channel2%(), Chr$(&hFF)
LongString Append channel3%(), Chr$(&hFF)
LongString Append channel4%(), Chr$(&hFF)

' Pad each channel with 255 until reach 64-bit boundary and they are all the same length.
Dim count% = Max(LLen(channel1%()), LLen(channel2%()))
count% = Max(count%, LLen(channel3%()))
count% = Max(count%, LLen(channel4%()))
Do While count% Mod 8 > 0 : Inc count% : Loop
Do While LLen(channel1%()) < count% : LongString Append channel1%(), Chr$(&hFF) : Loop
Do While LLen(channel2%()) < count% : LongString Append channel2%(), Chr$(&hFF) : Loop
Do While LLen(channel3%()) < count% : LongString Append channel3%(), Chr$(&hFF) : Loop
Do While LLen(channel4%()) < count% : LongString Append channel4%(), Chr$(&hFF) : Loop

' Combine the channels into a single music buffer.
Dim music%(1 + (count% / 2))
For i% = 0 To count% - 1
 LongString Append music%(), Chr$(LGetByte(channel1%(), i%))
 LongString Append music%(), Chr$(LGetByte(channel2%(), i%))
 LongString Append music%(), Chr$(LGetByte(channel3%(), i%))
 LongString Append music%(), Chr$(LGetByte(channel4%(), i%))
Next

' music.print_data(music%())

' Play music buffer via interrupt.
Dim music_ptr% = Peek(VarAddr music%()) + 8
SetTick 200, music.play_interrupt, 1
Do : Loop

End

Sub music.parse(buf%(), s$)
 Local s_idx% = 1
 Local ch$ = ","
 Do While ch$ = ","
   If music.parse_note%(s$, s_idx%, buf%()) <> 0 Then
     Error err$ + " : s_idx = " + Str$(s_idx%)
   EndIf
   Inc s_idx%
   ch$ = Mid$(s$, s_idx%, 1)
   Inc s_idx%
 Loop
End Sub

Sub on_break
 Play Stop
 Option Break 3
 End
End Sub

Function music.parse_note%(s$, s_idx%, buf%())
 music.parse_note% = -1
 Local ch$ = Mid$(s$, s_idx%, 1)

 ' Parse duration.
 Local duration!
 Select Case ch$
   Case "q": duration! = 0.5
   Case "1", "2", "3", "4": duration! = Val(ch$)
   Case Else
     err$ = "Syntax error: expected duration"
     Exit Function
 End Select

 Inc s_idx%
 ch$ = Mid$(s$, s_idx%, 1)

 ' Parse note.
 Local n% = 0 ' 0 = Rest, 1 = A0
 Select Case ch$
   Case "A" : n% = 1
   Case "B" : n% = 3
   Case "C" : n% = 4
   Case "D" : n% = 6
   Case "E" : n% = 8
   Case "F" : n% = 9
   Case "G" : n% = 11
   Case "-" : ' Do nothing
   Case Else
     err$ = "Syntax error: expected note"
     Exit Function
 End Select

 If n% = 0 Then
   LongString Append buf%(), Chr$(0)
   music.parse_note% = 0
   Exit Function
 EndIf

 Inc s_idx%
 ch$ = Mid$(s$, s_idx%, 1)

 ' Parse b or #.
 Local off% = 0
 Select Case ch$
   Case "b" : off% = -1
   Case "#" : off% = 1
 End Select
 If off% <> 0 Then
   Inc n%, off%
   Inc s_idx%
   ch$ = Mid$(s$, s_idx%, 1)
 EndIf

 ' Parse octave.
 If Not Instr("012345678", ch$) Then
   err$ = "Syntax error: expected octave"
   Exit Function
 EndIf
 Inc n%, 12 * Val(ch$)

 ' Write music data into buffer.
 Local i%
 For i% = 1 To 2 * duration!
   LongString Append buf%(), Chr$(n%)
 Next

 music.parse_note% = 0
End Function

Sub music.print_data(buf%())
 Local count% = 0, i%, p% = Peek(VarAddr buf%()) + 8
 Open "entertainer.inc" For Output As #1
 Print #1, "Data " Str$(LLen(buf%())) " ' Number of bytes of music data."
 For i% = 0 To LLen(buf%()) - 1 Step 8
   Print #1, Choice(count% = 0, "Data ", ", ");
   Print #1, "&h" Hex$(Peek(Integer p%), 16);
   Inc p%, 8
   Inc count%
   If count% = 4 Then Print #1 : count% = 0
 Next
 Close #1
End Sub

Sub music.play_interrupt()
 ' Play channel 1.
 Local n% = Peek(Byte music_ptr%)
 Select Case n%
   Case 0 : Play Sound 1, B, O
   Case 1 To 254 : Play Sound 1, B, S, 440 * 2^((n% - 49) / 12.0)
   Case 255 : Play Stop : End
 End Select
 Inc music_ptr%

 ' Play channel 2.
 If num_channels% > 1 Then
   n% = Peek(Byte music_ptr%)
   Select Case n%
       Case 0 : Play Sound 2, B, O
       Case 1 To 254 : Play Sound 2, B, S, 440 * 2^((n% - 49) / 12.0)
       Case 255 : Play Stop : End
   End Select
 EndIf
 Inc music_ptr%

 ' Play channel 3.
 If num_channels% > 2 Then
   n% = Peek(Byte music_ptr%)
   Select Case n%
       Case 0 : Play Sound 3, B, O
       Case 1 To 254 : Play Sound 3, B, S, 440 * 2^((n% - 49) / 12.0)
       Case 255 : Play Stop : End
   End Select
 EndIf
 Inc music_ptr%

 ' Play channel 4.
 If num_channels% > 3 Then
   n% = Peek(Byte music_ptr%)
   Select Case n%
       Case 0 : Play Sound 4, B, O
       Case 1 To 254 : Play Sound 4, B, S, 440 * 2^((n% - 49) / 12.0)
       Case 255 : Play Stop : End
   End Select
 EndIf
 Inc music_ptr%
End Sub

Option break 4
On key 3,myint
Do
Loop
Sub myint
Option break 3
End
End Sub

Save "break_bug.bas"

Option Break 4
On Key 3,myint
Do
Loop

Sub myint
Option Break 3
End
End Sub

' Save "break_bug.bas"

On Key 97,my_int
Print "Hello"
Do : Loop
End
Sub my_int
Print "World"
End Sub

On Key my_int
Print "Hello"
Do : Loop
End
Sub my_int
If Asc(Inkey$) = 97 Then Print "World"
End Sub

Play Sound 1,B,S,500:Play Sound 2,B,S,560:Play Sound 3,B,S,600