Jump to content
Sign in to follow this  
First Spear

IntyBASIC Rough Song - Bach Fuge in C-Dur BWV 953

Recommended Posts

It gets a bit out of tune, but is recognizable. Free for anyone to edit/use/enjoy.

 

 

post-31694-0-00256900-1458672666_thumb.jpg

songproto-bachfuguebvw953.bas

songproto-bachfuguebvw953.rom

	Include "constants.bas"
	CLS
	Mode 0 , 0,0,0,0
	Wait
	Print At 0 Color FG_YELLOW , "Bach Fuge in C-Dur, BWV 953"
	Print At 80 Color FG_TAN  , "Press top side"
	Print At 100 Color FG_TAN , "button to"
	Print At 120 Color FG_TAN , "restart music."
	Print At 160 Color FG_GREEN , "Press bottom side "
	Print At 180 Color FG_GREEN , "button to exit."


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




MyMusic:
	Data 4
	Music	-    	,	-    	,	-
	Music	C5Y   	,	-    	,	-
	Music	S    	,	-    	,	-
	Music	B4   	,	-    	,	-
	Music	S    	,	-    	,	-
	Music	C5   	,	-    	,	-
	Music	S    	,	-    	,	-
	Music	A4   	,	-    	,	-
	Music	S    	,	-    	,	-
	Music	C5   	,	-    	,	-
	Music	S    	,	-    	,	-
	Music	B4   	,	-    	,	-
	Music	S    	,	-    	,	-
	Music	C5   	,	-    	,	-
	Music	S    	,	-    	,	-
	Music	G4   	,	-    	,	-
	Music	S    	,	-    	,	-
	Music	C5   	,	-    	,	-
	Music	S    	,	-    	,	-
	Music	B4   	,	-    	,	-
	Music	S    	,	-    	,	-
	Music	C5   	,	-    	,	-
	Music	S    	,	-    	,	-
	Music	F4   	,	-    	,	-
	Music	S    	,	-    	,	-
	Music	C5   	,	-    	,	-
	Music	S    	,	-    	,	-
	Music	B4   	,	-    	,	-
	Music	S    	,	-    	,	-
	Music	C5   	,	-    	,	-
	Music	S    	,	-    	,	-
	Music	E4   	,	-    	,	-
	Music	S    	,	-    	,	-
	Music	C5   	,	G4Y   	,	-
	Music	S    	,	S    	,	-
	Music	B4   	,	F4#  	,	-
	Music	S    	,	S    	,	-
	Music	C5   	,	G4   	,	-
	Music	S    	,	S    	,	-
	Music	D4   	,	E4   	,	-
	Music	S    	,	S    	,	-
	Music	C5   	,	G4   	,	-
	Music	S    	,	S    	,	-
	Music	B4   	,	F4#  	,	-
	Music	S    	,	S    	,	-
	Music	A4   	,	G4   	,	-
	Music	S    	,	S    	,	-
	Music	B4   	,	D4   	,	-
	Music	S    	,	S    	,	-
	Music	C5   	,	G4   	,	-
	Music	S    	,	S    	,	-
	Music	A4   	,	F4#  	,	-
	Music	S    	,	S    	,	-
	Music	B4   	,	G4   	,	-
	Music	S    	,	S    	,	-
	Music	C5   	,	C4   	,	-
	Music	S    	,	S    	,	-
	Music	E5   	,	G4   	,	-
	Music	S    	,	S    	,	-
	Music	D5   	,	F4#  	,	-
	Music	S    	,	S    	,	-
	Music	C5   	,	G4   	,	-
	Music	S    	,	S    	,	-
	Music	B4   	,	B3   	,	-
	Music	S    	,	S    	,	-
	Music	S    	,	G4   	,	C4Y
	Music	S    	,	S    	,	S
	Music	S    	,	F4#  	,	B3
	Music	S    	,	S    	,	S
	Music	S    	,	G4   	,	C4
	Music	S    	,	S    	,	S
	Music	C5   	,	A3   	,	A3
	Music	S    	,	S    	,	S
	Music	S    	,	G4   	,	C4
	Music	S    	,	S    	,	S
	Music	S    	,	F4#  	,	B3
	Music	S    	,	S    	,	S
	Music	S    	,	E4   	,	C4
	Music	S    	,	S    	,	S
	Music	B4   	,	F4#  	,	G3
	Music	S    	,	S    	,	S
	Music	S    	,	G4   	,	C4
	Music	S    	,	S    	,	S
	Music	S    	,	E4   	,	B3
	Music	S    	,	S    	,	S
	Music	S    	,	F4#  	,	C4
	Music	S    	,	S    	,	S
	Music	E5   	,	G4   	,	F3
	Music	S    	,	S    	,	S
	Music	S    	,	A4   	,	C4
	Music	S    	,	S    	,	S
	Music	S    	,	G4   	,	B3
	Music	S    	,	S    	,	S
	Music	S    	,	F4   	,	C4
	Music	S    	,	S    	,	S
	Music	D5   	,	E4   	,	E3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	C4
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	B3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	C4
	Music	S    	,	S    	,	S
	Music	C5   	,	F4   	,	D3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	C4
	Music	S    	,	S    	,	S
	Music	A4   	,	S    	,	B3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	A3
	Music	S    	,	S    	,	S
	Music	D5   	,	E4   	,	B3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	C4
	Music	S    	,	S    	,	S
	Music	C5   	,	S    	,	A3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	B3
	Music	S    	,	S    	,	S
	Music	B4   	,	A4   	,	C3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	B3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	A3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	G3
	Music	S    	,	S    	,	S
	Music	C5   	,	G4   	,	A3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	B3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	G3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	A3
	Music	S    	,	S    	,	S
	Music	C5   	,	A4   	,	B2
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	A3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	G3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	F3#
	Music	S    	,	S    	,	S
	Music	C5   	,	D5   	,	G3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	A3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	F3#
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	G3
	Music	S    	,	S    	,	S
	Music	C5   	,	G4   	,	A2
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	G3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	F3#
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	E3
	Music	S    	,	S    	,	S
	Music	C5   	,	C5   	,	F3#
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	G3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	E3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	F3#
	Music	S    	,	S    	,	S
	Music	F5   	,	F4#  	,	G3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	F3#
	Music	S    	,	S    	,	S
	Music	D5   	,	S    	,	G3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	A3
	Music	S    	,	S    	,	S
	Music	G5   	,	B4   	,	B3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	G3
	Music	S    	,	S    	,	S
	Music	F5   	,	S    	,	A3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	B3
	Music	S    	,	S    	,	S
	Music	E5   	,	E4   	,	C4
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	S
	Music	C5   	,	S    	,	C3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	S
	Music	F5   	,	A4   	,	B2
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	S
	Music	E5   	,	S    	,	B3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	S
	Music	D5   	,	D4   	,	A3
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	S
	Music	B4   	,	S    	,	A2
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	S
	Music	S    	,	S    	,	S
	Music	E5   	,	-    	,	G2
	Music	S    	,	-    	,	S
	Music	S    	,	-    	,	S
	Music	S    	,	-    	,	S
	Music	D5   	,	-    	,	G3
	Music	S    	,	-    	,	S
	Music	S    	,	-    	,	S
	Music	S    	,	-    	,	S
	Music	C5   	,	-    	,	C3
	Music	S    	,	-    	,	S
	Music	S    	,	-    	,	S
	Music	S    	,	-    	,	S
	Music	S    	,	-    	,	S
	Music	S    	,	-    	,	S
	Music	S    	,	-    	,	S
	Music	S    	,	-    	,	S
	Music	S    	,	-    	,	S
	Music	S    	,	-    	,	S
	Music	S    	,	-    	,	S
	Music	S    	,	-    	,	S
	Music	 Stop

  • Like 1

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.

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