Jump to content
Sign in to follow this  
First Spear

IntyBASIC Rough Song - Arpeggios Collide

Recommended Posts

Sharing in case anyone finds the music bits useful.

 

post-31694-0-98785100-1441026944_thumb.jpg

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
  • Like 1

Share this post


Link to post
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...