IntyBASIC Rough Song - You Cleared It!

[First Spear]

Enjoy.

 

 

 

clearedit.rom

 
	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 , "Cleared it!"	
	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 41 Color 4 , "(PSG+ECS) "
	Else
		Print At 41 Color 4 , "(PSG only)"
	End If

	Wait
	Play Full
	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 217 Color (Rand and 7) , "Bye."
        For spinWait = 0 to 5
        	Wait
		Next
        Play Off
	 

	MyMusic:

	Data 5
	Music  	B4   	,	B3   	,	B4   		
	Music  	 S   	,	 S   	,	 S   		
	Music  	 S   	,	G3   	,	 S   		
	Music  	 S   	,	 S   	,	 S   		
	Music  	C5   	,	A3   	,	C5   		
	Music  	 S   	,	 S   	,	 S   		
	Music  	B4   	,	B3   	,	B4   		
	Music  	 S   	,	 S   	,	 S   		
	Music  	A4   	,	C4   	,	A4   		
	Music  	 S   	,	 S   	,	 S   		
	Music  	 S   	,	C4   	,	 S   		
	Music  	 S   	,	 S   	,	 S   		
	Music  	E5   	,	C4   	,	E5   		
	Music  	 S   	,	 S   	,	 S   		
	Music  	D5   	,	C4   	,	D5   		
	Music  	C5   	,	 S   	,	C5   		
	Music  	B4   	,	B3   	,	B4   		
	Music  	 S   	,	 S   	,	 S   		
	Music  	D5   	,	B3   	,	D5   		
	Music  	 S   	,	 S   	,	 S   		
	Music  	E5   	,	A3   	,	E5   		
	Music  	 S   	,	 S   	,	 S   		
	Music  	F5#  	,	A3   	,	F5#  		
	Music  	 S   	,	 S   	,	 S   		
	Music  	G5   	,	G3   	,	G5   		
	Music  	D5   	,	 S   	,	D5   		
	Music  	F5#  	,	 S   	,	F5#  		
	Music  	 S   	,	 S   	,	 S   		
	Music  	G5   	,	 -   	,	G5   		
	Music  	 S   	,	 -   	,	 S   		
	Music  	 S   	,	 -   	,	 S   		
	Music  	 S   	,	 -   	,	 S   		
	Music	 Stop