Jump to content
Sign in to follow this  
First Spear

IntyBASIC Rough Song - Pattern Play 04

Recommended Posts

Playing with tone patterns. This kind of sounds like something in a game where the system has to "think" for a while, or maybe an alarm where time is almost up. Maybe. I can't mess with it anymore, so anyone that might find it useful, please enjoy.

 

 

 



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 , "PatternPlay04"
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 PatternPlay04
Wait
Goto PlayLoop


PlayLoop:
Wait
If Cont.B0 Then Wait : Play Off : Wait : Play PatternPlay04
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


PatternPlay04:

Data 5

Music - , - , -
Music - , - , -
Music - , - , -
Music - , - , -
Music - , - , -
Music - , - , -
Music A5Y , - , -
Music A5 , C6Y , -
Music C3 , C6 , -
Music A5 , S , -
Music A5 , C5 , -
Music S , C5 , -
Music C3 , S , -
Music A5 , C6 , -
Music A5 , C6 , -
Music A5 , C4 , -
Music C3 , C5 , -
Music S , C5 , -
Music A5 , S , -
Music A5 , S , -
Music A5 , S , -
Music S , S , -
Music A5 , S , -
Music A5 , C6 , -
Music C3 , C6 , -
Music A5 , S , -
Music A5 , C5 , -
Music S , C5 , -
Music C3 , S , -
Music A5 , C6 , -
Music A5 , C6 , -
Music A5 , C4 , -
Music C3 , C5 , -
Music S , C5 , -
Music A5 , S , -
Music A5 , S , -
Music A5 , S , -
Music S , S , -
Music A5 , S , -
Music A5 , C6 , -
Music C3 , C6 , -
Music A5 , S , -
Music A5 , C5 , -
Music S , C5 , -
Music C3 , S , -
Music A5 , C6 , -
Music A5 , C6 , -
Music A5 , C4 , -
Music C3 , C5 , -
Music S , C5 , -
Music A5 , S , -
Music A5 , S , -
Music A5 , S , -
Music S , S , -
Music A5 , S , -
Music A5 , C6 , -
Music C3 , C6 , -
Music A5 , S , -
Music A5 , C5 , -
Music S , C5 , -
Music C3 , S , -
Music A5 , C6 , -
Music A5 , C6 , -
Music A5 , C4 , -
Music C3 , C5 , -
Music S , C5 , -
Music A5 , S , -
Music A5 , S , -
Music A5 , S , -
Music S , S , -
Music A5 , S , -
Music A5 , C6 , -
Music C3 , C6 , -
Music A5 , S , -
Music A5 , C5 , -
Music S , C5 , -
Music C3 , S , -
Music A5 , C6 , C4Y
Music A5 , C6 , C3
Music A5 , C4 , S
Music C3 , C5 , C3
Music S , C5 , S
Music A5 , S , S
Music A5 , S , S
Music A5 , S , S
Music S , S , S
Music A5 , S , S
Music A5 , C6 , S
Music C3 , C6 , S
Music A5 , S , S
Music A5 , C5 , S
Music S , C5 , S
Music C3 , S , S
Music A5 , C6 , C4
Music A5 , C6 , S
Music A5 , C4 , C3
Music C3 , C5 , C3
Music S , C5 , S
Music A5 , S , S
Music A5 , S , S
Music A5 , S , S
Music S , S , S
Music A5 , S , S
Music A5 , C6 , S
Music C3 , C6 , S
Music A5 , S , S
Music A5 , C5 , S
Music S , C5 , S
Music C3 , S , S
Music A5 , C6 , C4
Music A5 , C6 , C3
Music A5 , C4 , S
Music C3 , C5 , S
Music S , C5 , S
Music A5 , S , S
Music A5 , S , S
Music A5 , S , S
Music S , S , S
Music A5 , S , S
Music A5 , C6 , S
Music C3 , C6 , S
Music A5 , S , S
Music A5 , C5 , S
Music S , C5 , S
Music C3 , S , S
Music A5 , C6 , C4
Music A5 , C6 , S
Music A5 , C4 , C3
Music C3 , C5 , C3
Music S , C5 , S
Music A5 , S , S
Music A5 , S , S
Music A5 , S , S
Music S , S , S
Music A5 , S , S
Music A5 , C6 , S
Music C3 , C6 , S
Music A5 , S , S
Music A5 , C5 , S
Music S , C5 , S
Music C3 , S , S
Music A5 , C6 , C4
Music A5 , C6 , C3
Music A5 , C4 , S
Music C3 , C5 , G2
Music S , C5 , S
Music A5 , S , S
Music A5 , S , S
Music A5 , S , S
Music S , S , S
Music A5 , S , S
Music A5 , C6 , S
Music C3 , C6 , S
Music A5 , S , S
Music A5 , C5 , S
Music S , C5 , S
Music C3 , S , S
Music A5 , C6 , C4
Music A5 , C6 , S
Music A5 , C4 , C3
Music C3 , C5 , C3
Music S , C5 , S
Music A5 , S , S
Music A5 , S , S
Music A5 , S , S
Music S , S , S
Music A5 , S , S
Music A5 , C6 , S
Music C3 , C6 , S
Music A5 , S , S
Music A5 , C5 , S
Music S , C5 , S
Music C3 , S , S
Music A5 , C6 , C4
Music A5 , C6 , C3
Music A5 , C4 , S
Music C3 , C5 , S
Music S , C5 , S
Music A5 , S , S
Music A5 , S , S
Music A5 , S , S
Music S , S , S
Music A5 , S , S
Music A5 , C6 , S
Music C3 , C6 , S
Music A5 , S , S
Music A5 , C5 , S
Music S , C5 , S
Music C3 , S , S
Music A5 , C6 , S
Music A5 , C6 , S
Music A5 , C4 , S
Music C3 , C5 , S
Music S , C5 , S
Music A5 , S , S
Music A5 , S , S
Music A5 , S , S
Music S , S , S
Music S , S , S
Music S , S , S
Music S , S , S



Music Repeat

 

 

patternplay04.bas

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...