First Spear Posted April 21, 2017 Share Posted April 21, 2017 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,0WaitBorder 1,0Scroll 4,4,0For borderNew=0 to 200 Step 20 : Poke $200+borderNew, $2000: Poke $213+borderNew, $2000 : Next borderNewWaitWaitPrint 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 + 1If Peek($4000) = ecsCheck + 1 thenPrint At 81 Color 4 , "(PSG+ECS) "ElsePrint At 81 Color 4 , "(PSG only)"End IfWaitPlay FullWaitPlay PatternPlay04WaitGoto PlayLoopPlayLoop:WaitIf Cont.B0 Then Wait : Play Off : Wait : Play PatternPlay04If Cont.B1 Then Goto ExitThisIf Cont.B2 Then Goto ExitThisWaitGoto PlayLoopExitThis:WaitPrint At 213 Color (Rand and 7) , "Bye."For spinWait = 0 to 5WaitNextPlay OffPatternPlay04:Data 5Music - , - , -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 , C4YMusic A5 , C6 , C3Music A5 , C4 , SMusic C3 , C5 , C3Music S , C5 , SMusic A5 , S , SMusic A5 , S , SMusic A5 , S , SMusic S , S , SMusic A5 , S , SMusic A5 , C6 , SMusic C3 , C6 , SMusic A5 , S , SMusic A5 , C5 , SMusic S , C5 , SMusic C3 , S , SMusic A5 , C6 , C4Music A5 , C6 , SMusic A5 , C4 , C3Music C3 , C5 , C3Music S , C5 , SMusic A5 , S , SMusic A5 , S , SMusic A5 , S , SMusic S , S , SMusic A5 , S , SMusic A5 , C6 , SMusic C3 , C6 , SMusic A5 , S , SMusic A5 , C5 , SMusic S , C5 , SMusic C3 , S , SMusic A5 , C6 , C4Music A5 , C6 , C3Music A5 , C4 , SMusic C3 , C5 , SMusic S , C5 , SMusic A5 , S , SMusic A5 , S , SMusic A5 , S , SMusic S , S , SMusic A5 , S , SMusic A5 , C6 , SMusic C3 , C6 , SMusic A5 , S , SMusic A5 , C5 , SMusic S , C5 , SMusic C3 , S , SMusic A5 , C6 , C4Music A5 , C6 , SMusic A5 , C4 , C3Music C3 , C5 , C3Music S , C5 , SMusic A5 , S , SMusic A5 , S , SMusic A5 , S , SMusic S , S , SMusic A5 , S , SMusic A5 , C6 , SMusic C3 , C6 , SMusic A5 , S , SMusic A5 , C5 , SMusic S , C5 , SMusic C3 , S , SMusic A5 , C6 , C4Music A5 , C6 , C3Music A5 , C4 , SMusic C3 , C5 , G2Music S , C5 , SMusic A5 , S , SMusic A5 , S , SMusic A5 , S , SMusic S , S , SMusic A5 , S , SMusic A5 , C6 , SMusic C3 , C6 , SMusic A5 , S , SMusic A5 , C5 , SMusic S , C5 , SMusic C3 , S , SMusic A5 , C6 , C4Music A5 , C6 , SMusic A5 , C4 , C3Music C3 , C5 , C3Music S , C5 , SMusic A5 , S , SMusic A5 , S , SMusic A5 , S , SMusic S , S , SMusic A5 , S , SMusic A5 , C6 , SMusic C3 , C6 , SMusic A5 , S , SMusic A5 , C5 , SMusic S , C5 , SMusic C3 , S , SMusic A5 , C6 , C4Music A5 , C6 , C3Music A5 , C4 , SMusic C3 , C5 , SMusic S , C5 , SMusic A5 , S , SMusic A5 , S , SMusic A5 , S , SMusic S , S , SMusic A5 , S , SMusic A5 , C6 , SMusic C3 , C6 , SMusic A5 , S , SMusic A5 , C5 , SMusic S , C5 , SMusic C3 , S , SMusic A5 , C6 , SMusic A5 , C6 , SMusic A5 , C4 , SMusic C3 , C5 , SMusic S , C5 , SMusic A5 , S , SMusic A5 , S , SMusic A5 , S , SMusic S , S , SMusic S , S , SMusic S , S , SMusic S , S , SMusic Repeat patternplay04.bas 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.