First Spear Posted August 31, 2015 Share Posted August 31, 2015 Sharing in case anyone finds the music bits useful. Mode 0 , 0,0,0,0 Wait Print At 0 Color 7 , "Arpeggios Collide" Print At 80 Color 4 , "Press top side" Print At 100 Color 4 , "button to" Print At 120 Color 4 , "restart music." Print At 160 Color 1 , "Press bottom side " Print At 180 Color 1 , "button to exit." Wait Play Simple Wait Play MyMusic Wait Goto PlayLoop PlayLoop: Wait If Cont.B0 Then Wait : Play Off : Wait : Play MyMusic If Cont.B1 Then Goto ExitThis If Cont.B2 Then Goto ExitThis Wait Goto PlayLoop ExitThis: Wait Print At 235 Color (Rand and 7) , "Bye." For spinWait = 0 to 5 Wait Next Play Off MyMusic: Data 7 Music G3 , G4 Music C4 , C4 Music E4 , D3# Music G4 , G2 Music G3 , G3 Music C4 , C3 Music E4 , D2# Music G4 , G2 Music A3 , G4 Music C4 , A3# Music F4 , D3# Music A4 , G2 Music A3 , G3 Music C4 , A2# Music F4 , D2# Music A4 , G2 Music G3 , G4# Music C4 , C4 Music E4 , F3 Music G4 , G2# Music G3 , G3# Music C4 , C3 Music E4 , F2 Music G4 , G2# Music B3 , G4 Music D4 , B3 Music G4 , D3 Music B4 , G2 Music B3 , G3 Music D4 , B2 Music G4 , D2 Music B4 , G2 Music Repeat 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.