Jump to content
IGNORED

IntyBASIC Rough Song - Thin Ice Theme


Recommended Posts

 

Mode 0,1,0,1,0
Wait
Border 1,0
Scroll 4,4,0
For borderNew=0 to 200 Step 20 : Poke $200+borderNew, $2000: Poke $213+borderNew, $2000 : Next borderNew
Wait
Wait
Print At 21 Color 7 , "Thin Ice Theme"
Print At 141 Color 5 , "Restart: Top side"
Print At 161 Color 6 , "Exit: Bottom side"



ecsCheck = peek($4000)
Poke $4000 , ecsCheck + 1
If Peek($4000) = ecsCheck + 1 then
Print At 81 Color 4 , "(PSG+ECS) "
Else
Print At 81 Color 4 , "(PSG only)"
End If

Wait
Play Full
Wait
Play ThinIceTheme
Wait
Goto PlayLoop


PlayLoop:
Wait
If Cont.B0 Then Wait : Play Off : Wait : Play ThinIceTheme
If Cont.B1 Then Goto ExitThis
If Cont.B2 Then Goto ExitThis
Wait
Goto PlayLoop

ExitThis:
Wait
Print At 213 Color (Rand and 7) , "Bye."
For spinWait = 0 to 5
Wait
Next
Play Off


ThinIceTheme:

Data 6

Music E2 , E2
Music - , -
Music - , -
Music - , -
Music - , -
Music - , -
Music G5 , C4
Music S , S
Music E5 , E4
Music F5 , S
Music G5 , G3
Music S , S
Music A5 , E4
Music S , S
Music C6 , C4
Music S , S
Music A5 , E4
Music S , S
Music G5 , G3
Music S , S
Music A5 , E4
Music S , S
Music B5 , B3
Music S , S
Music G5 , F4
Music S , S
Music D5 , G3
Music S , S
Music E5 , F4
Music S , S
Music G5 , B3
Music S , S
Music S , F4
Music S , S
Music S , G3
Music S , S
Music G5 , F4
Music A5 , -
Music B5 , B3
Music S , S
Music S , F4
Music S , S
Music C6 , G3
Music S , S
Music D6 , F4
Music S , S
Music C6 , B3
Music S , S
Music B5 , F4
Music S , S
Music C6 , G3
Music S , S
Music B5 , F4
Music S , S
Music S , C4
Music S , S
Music E5 , E4
Music S , S
Music D5# , G3
Music S , S
Music E5 , E4
Music S , S
Music G5 , C4
Music S , S
Music S , E4
Music S , S
Music S , G3
Music S , S
Music G5 , E4
Music A5 , -
Music C6 , C4
Music S , S
Music G5 , E4
Music S , S
Music E6 , G3
Music S , S
Music C6 , E4
Music S , S
Music G5 , C4
Music S , S
Music F5# , E4
Music S , S
Music F5 , G3
Music S , S
Music E5 , E4
Music S , S
Music S , B3
Music S , S
Music S , F4
Music S , S
Music D5 , G3
Music S , S
Music E5 , F4
Music S , S
Music G5 , B3
Music S , S
Music S , F4
Music S , S
Music S , G3
Music S , S
Music G5 , F4
Music A5 , -
Music B5 , B3
Music S , S
Music S , F4
Music S , S
Music C6 , G3
Music S , S
Music D6 , F4
Music S , S
Music C6 , B3
Music S , S
Music B5 , F4
Music S , S
Music A5 , G3
Music S , S
Music B5 , F4
Music S , S
Music C6 , C4
Music S , S
Music S , E4
Music S , S
Music S , G3
Music S , S
Music S , E4
Music S , S
Music S , C4
Music S , S
Music S , E4
Music S , S
Music S , G3
Music S , S
Music S , E4
Music - , S
Music - , S
Music - , S
Music - , S
Music - , S
Music - , S
Music - , S
Music - , S
Music - , S
Music - , S
Music Repeat

 

 

 

Actually I don't think this is all that rough. The song is pretty short and 2 voices.
Enjoy.

post-31694-0-36169500-1489780516_thumb.jpg

songproto-thinicetheme.bas

 

songproto-thinicetheme.rom

 

Thanks.

Edited by First Spear
Link to comment
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...
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...