IntyBASIC Rough Song: Frenetic Bonus

[First Spear]

A little something produced about 20 minutes ago. Free for anyone to take+use for whatever project they have. I thought it sounds like something that might show after a level/board is cleared, or maybe on a loop (modified slightly from this) when time is running low in a clock-based game. Enjoy.

 

 

songproto-BonusFrenetic1.bin

songproto-BonusFrenetic1.cfg

songproto-BonusFrenetic1.bas

 

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 , "Frenetic" 
Print At  41 Color 7 , "Bonus" 
Print At 141 Color 5  , "Start: Top side" 
Print At 161 Color 6  , "Exit: Bottom side" 
 
MusicPage = MusicPage 
ecsCheck = peek($4000)
Poke $4000 , ecsCheck + 1
If Peek($4000) = ecsCheck + 1 then
     Print At 101 Color 4 , "PSG+ECS" 
Else
     Print At 101 Color 4 , "PSG only" 
End If
Wait
Play Simple
Wait : Wait
Goto PlayLoop
 
 
PlayLoop:
     Wait
     If Cont.B0 Then Wait : Play Off : Wait : Play MusicInit : Play FrenBonus
     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
    Goto ExitThis
 
 


MusicInit:
Data 5


		Music      - ,  -   
		Music      - ,  -   
		Music      - ,  -   
		Music      - ,  -   
		Music Stop

FrenBonus:
Data 5


  		Music      G3#X  ,  -           
  		Music      S     ,  -           
  		Music      F3#   ,  -           
  		Music      F3#   ,  C3#W        
  		Music      G3#   ,  B2X         
  		Music      S     ,  S           
  		Music      F3#   ,  C3W         
  		Music      F3#   ,  -           
  		Music      G3#   ,  -           
  		Music      S     ,  -           
  		Music      F3#   ,  C3#         
  		Music      F3#   ,  -           
  		Music      A3#   ,  B2          
  		Music      S     ,  S           
  		Music      F3#   ,  C3#         
  		Music      F3#   ,  -           
  		Music      G3#   ,  -           
  		Music      S     ,  -           
  		Music      F3#   ,  -           
  		Music      F3#   ,  C3#         
  		Music      G3#   ,  B2          
  		Music      C3#   ,  S           
  		Music      F3#   ,  C3#         
  		Music      F3#   ,  G3#         
  		Music      D3    ,  S           
  		Music      -     ,  S           
  		Music      F3#   ,  D3          
  		Music      F3#   ,  A3W         
  		Music      A3    ,  -           
  		Music      -     ,  -           
  		Music      G3    ,  -           
		Music      S    ,  -   
		Music      S    ,  -   
		Music      S    ,  -   
		Music      S    ,  -   

Music Repeat

 

 

(Yes, I'm back, kind-of)