First Spear Posted August 23, 2015 Share Posted August 23, 2015 (edited) Another rough song. Having fun with this stuff! Polished for Mar-2016: Mode 0 , 0,0,0,0 Wait Print At 0 Color 7 , "TwinkleMe2" 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 Full Wait Play TwinkleMe2 Wait Goto PlayLoop PlayLoop: Wait If Cont.B0 Then Wait : Play Off : Wait : Play TwinkleMe2 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 TwinkleMe2: Data 12 Music - , - , - ' , , , Music G4X , C2Y , - ' , , , Music G4 , S , - ' , , , Music D5 , D2 , - ' , , , Music D5 , C2 , - ' , , , Music E5 , - , - ' , , , Music E5 , - , - ' , , , Music D5 , D2 , - ' , , , Music S , S , - ' , , , Music C5 , C2 , - ' , , , Music C5 , S , - ' , , , Music B4 , D2 , - ' , , , Music B4 , C2 , - ' , , , Music A4 , - , - ' , , , Music A4 , - , - ' , , , Music G4 , D2 , - ' , , , Music S , S , - ' , , , Music D5 , C2 , - ' , , , Music D5 , S , - ' , , , Music C5 , D2 , - ' , , , Music C5 , C2 , - ' , , , Music B4 , - , - ' , , , Music B4 , - , - ' , , , Music A4 , D2 , - ' , , , Music S , S , - ' , , , Music D5 , C2 , - ' , , , Music D5 , S , - ' , , , Music C5 , D2 , - ' , , , Music C5 , C2 , - ' , , , Music B4 , - , - ' , , , Music B4 , - , - ' , , , Music A4 , D2 , - ' , , , Music S , D2 , - ' , , , Music G4 , C2 , - ' , , , Music G4 , S , - ' , , , Music D5 , D2 , - ' , , , Music D5 , C2 , - ' , , , Music E5 , - , - ' , , , Music E5 , - , - ' , , , Music D5 , D2 , - ' , , , Music S , S , - ' , , , Music C5 , C2 , - ' , , , Music C5 , S , - ' , , , Music B4 , D2 , - ' , , , Music B4 , C2 , - ' , , , Music A4 , D2 , - ' , , , Music A4 , C2 , - ' , , , Music G4 , D2 , - ' , , , Music S , S , - ' , , , Music - , - , - ' , , , Music Stop 'Include "C:\Program Files( x86)\IntyBASIC\Constants.Bas" Mode 0 , 0,0,0,0 Wait Print At 0 Color 7 , "Press Side Button" Print At 20 Color 7 , "to Exit" Wait Play Simple Wait Play TwinkleMe Wait Goto PlayLoop PlayLoop: Wait If Cont.B0 Then Goto ExitThis If Cont.B1 Then Goto ExitThis If Cont.B2 Then Goto ExitThis Wait Goto PlayLoop ExitThis: Wait Play Off TwinkleMe: Data 8 Music - , - , - Music - , - , - Music - , - , - Music - , - , - Music - , - , - Music G4 , C2 , - Music S , S , - Music G4 , S , - Music S , S , - Music D5 , D2 , - Music S , S , - Music D5 , C2 , - Music S , S , - Music E5 , - , - Music S , - , - Music E5 , - , - Music S , - , - Music D5 , D2 , - Music S , S , - Music S , S , - Music S , S , - Music C5 , C2 , - Music S , S , - Music C5 , S , - Music S , S , - Music B4 , D2 , - Music S , S , - Music B4 , C2 , - Music S , S , - Music A4 , - , - Music S , - , - Music A4 , - , - Music S , - , - Music G4 , D2 , - Music S , S , - Music S , S , - Music S , S , - Music D5 , C2 , - Music S , S , - Music D5 , S , - Music S , S , - Music C5 , D2 , - Music S , S , - Music C5 , C2 , - Music S , S , - Music B4 , - , - Music S , - , - Music B4 , - , - Music S , - , - Music A4 , D2 , - Music S , S , - Music S , S , - Music S , S , - Music D5 , C2 , - Music S , S , - Music D5 , S , - Music S , S , - Music C5 , D2 , - Music S , S , - Music C5 , C2 , - Music S , S , - Music B4 , - , - Music S , - , - Music B4 , - , - Music S , - , - Music A4 , D2 , - Music S , S , - Music S , D2 , - Music S , S , - Music G4 , C2 , - Music S , S , - Music G4 , S , - Music S , S , - Music D5 , D2 , - Music S , S , - Music D5 , C2 , - Music S , S , - Music E5 , - , - Music S , - , - Music E5 , - , - Music S , - , - Music D5 , D2 , - Music S , S , - Music S , S , - Music S , S , - Music C5 , C2 , - Music S , S , - Music C5 , S , - Music S , S , - Music B4 , D2 , - Music S , S , - Music B4 , C2 , - Music S , S , - Music A4 , D2 , - Music S , S , - Music A4 , C2 , - Music S , S , - Music G4 , A2 , - Music S , S , - Music S , S , - Music S , S , - Music - , - , - Music - , - , - Music - , - , - Music - , - , - Music Repeat Edited March 10, 2016 by First Spear 3 Quote Link to comment Share on other sites More sharing options...
First Spear Posted August 24, 2015 Author Share Posted August 24, 2015 Change line 39 to Music G4Y , C2W , - I think the sound is a little better for the "Y" instrument (flute). Another rough song. Having fun with this stuff! 'Include "C:\Program Files( x86)\IntyBASIC\Constants.Bas" Mode 0 , 0,0,0,0 Wait Print At 0 Color 7 , "Press Side Button" Print At 20 Color 7 , "to Exit" Wait Play Simple Wait Play TwinkleMe Wait Goto PlayLoop PlayLoop: Wait If Cont.B0 Then Goto ExitThis If Cont.B1 Then Goto ExitThis If Cont.B2 Then Goto ExitThis Wait Goto PlayLoop ExitThis: Wait Play Off TwinkleMe: Data 8 Music - , - , - Music - , - , - Music - , - , - Music - , - , - Music - , - , - Music G4 , C2 , - 'snip 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.