Jump to content
Have You Played Atari Today?
2600|5200|7800|Lynx|Jaguar|Forums|Store
IGNORED

IntyBASIC Rough Song - Twinkle Me

First Spear

By First Spear
in Intellivision Programming

 Share

Recommended Posts

First Spear River Patroller

First Spear

Posted
Posted (edited)

Another rough song. Having fun with this stuff!

 

 

Polished for Mar-2016:


	Mode 0 , 0,0,0,0
	Wait
	Print At 0 Color 7 , "TwinkleMe2"
	Print At 80 Color 4  , "Press top side"
	Print At 100 Color 4 , "button to"
	Print At 120 Color 4 , "restart music."
	Print At 160 Color 1 , "Press bottom side "
	Print At 180 Color 1 , "button to exit."


	Wait
	Play Full
	Wait
    Play TwinkleMe2
    Wait
	Goto PlayLoop


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




TwinkleMe2:
	Data 12
	Music	-    	,	-    	,	-    		'		,			     	,	     	,
	Music	G4X   	,	C2Y   	,	-    		'		,			     	,	     	,
	Music	G4   	,	S    	,	-    		'		,			     	,	     	,
	Music	D5   	,	D2   	,	-    		'		,			     	,	     	,
	Music	D5   	,	C2   	,	-    		'		,			     	,	     	,
	Music	E5   	,	-    	,	-    		'		,			     	,	     	,
	Music	E5   	,	-    	,	-    		'		,			     	,	     	,
	Music	D5   	,	D2   	,	-    		'		,			     	,	     	,
	Music	S    	,	S    	,	-    		'		,			     	,	     	,
	Music	C5   	,	C2   	,	-    		'		,			     	,	     	,
	Music	C5   	,	S    	,	-    		'		,			     	,	     	,
	Music	B4   	,	D2   	,	-    		'		,			     	,	     	,
	Music	B4   	,	C2   	,	-    		'		,			     	,	     	,
	Music	A4   	,	-    	,	-    		'		,			     	,	     	,
	Music	A4   	,	-    	,	-    		'		,			     	,	     	,
	Music	G4   	,	D2   	,	-    		'		,			     	,	     	,
	Music	S    	,	S    	,	-    		'		,			     	,	     	,
	Music	D5   	,	C2   	,	-    		'		,			     	,	     	,
	Music	D5   	,	S    	,	-    		'		,			     	,	     	,
	Music	C5   	,	D2   	,	-    		'		,			     	,	     	,
	Music	C5   	,	C2   	,	-    		'		,			     	,	     	,
	Music	B4   	,	-    	,	-    		'		,			     	,	     	,
	Music	B4   	,	-    	,	-    		'		,			     	,	     	,
	Music	A4   	,	D2   	,	-    		'		,			     	,	     	,
	Music	S    	,	S    	,	-    		'		,			     	,	     	,
	Music	D5   	,	C2   	,	-    		'		,			     	,	     	,
	Music	D5   	,	S    	,	-    		'		,			     	,	     	,
	Music	C5   	,	D2   	,	-    		'		,			     	,	     	,
	Music	C5   	,	C2   	,	-    		'		,			     	,	     	,
	Music	B4   	,	-    	,	-    		'		,			     	,	     	,
	Music	B4   	,	-    	,	-    		'		,			     	,	     	,
	Music	A4   	,	D2   	,	-    		'		,			     	,	     	,
	Music	S    	,	D2   	,	-    		'		,			     	,	     	,
	Music	G4   	,	C2   	,	-    		'		,			     	,	     	,
	Music	G4   	,	S    	,	-    		'		,			     	,	     	,
	Music	D5   	,	D2   	,	-    		'		,			     	,	     	,
	Music	D5   	,	C2   	,	-    		'		,			     	,	     	,
	Music	E5   	,	-    	,	-    		'		,			     	,	     	,
	Music	E5   	,	-    	,	-    		'		,			     	,	     	,
	Music	D5   	,	D2   	,	-    		'		,			     	,	     	,
	Music	S    	,	S    	,	-    		'		,			     	,	     	,
	Music	C5   	,	C2   	,	-    		'		,			     	,	     	,
	Music	C5   	,	S    	,	-    		'		,			     	,	     	,
	Music	B4   	,	D2   	,	-    		'		,			     	,	     	,
	Music	B4   	,	C2   	,	-    		'		,			     	,	     	,
	Music	A4   	,	D2   	,	-    		'		,			     	,	     	,
	Music	A4   	,	C2   	,	-    		'		,			     	,	     	,
	Music	G4   	,	D2   	,	-    		'		,			     	,	     	,
	Music	S    	,	S    	,	-    		'		,			     	,	     	,
	Music	-    	,	-    	,	-    		'		,			     	,	     	,
	Music	 Stop

 

 

 

 

 

 

 


'Include "C:\Program Files( x86)\IntyBASIC\Constants.Bas"
Mode 0 , 0,0,0,0
Wait
Print At 0 Color 7  , "Press Side Button"
Print At 20 Color 7 , "to Exit"




Wait
Play Simple
Wait
    Play TwinkleMe
    Wait
Goto PlayLoop




PlayLoop:
Wait
If Cont.B0 Then Goto ExitThis
        If Cont.B1 Then Goto ExitThis
If Cont.B2 Then Goto ExitThis
        Wait
Goto PlayLoop


ExitThis:
        Wait
Play Off








TwinkleMe:
Data 8
Music -   ,   - ,  -
Music -   ,   - ,  -
Music -   ,   - ,  -
Music -   ,   - ,  -
Music -   , -   , -  
Music G4  , C2  ,  -
Music S   , S   ,  -
Music G4  , S   ,  -
Music S   , S   ,  -
Music D5  , D2  ,  -
Music S   , S   ,  -
Music D5  , C2  ,  -
Music S   , S   ,  -
Music E5  , -   ,  -
Music S   , -   ,  -
Music E5  , -   ,  -
Music S   , -   ,  -
Music D5  , D2  ,  -
Music S   , S   ,  -
Music S   , S   ,  -
Music S   , S   ,  -
Music C5  , C2  ,  -
Music S   , S   ,  -
Music C5  , S   ,  -
Music S   , S   ,  -
Music B4  , D2  ,  -
Music S   , S   ,  -
Music B4  , C2  ,  -
Music S   , S   ,  -
Music A4  , -   ,  -
Music S   , -   ,  -
Music A4  , -   ,  -
Music S   , -   ,  -
Music G4  , D2  ,  -
Music S   , S   ,  -
Music S   , S   ,  -
Music S   , S   ,  -
Music D5  , C2  ,  -
Music S   , S   ,  -
Music D5  , S   ,  -
Music S   , S   ,  -
Music C5  , D2  ,  -
Music S   , S   ,  -
Music C5  , C2  ,  -
Music S   , S   ,  -
Music B4  , -   ,  -
Music S   , -   ,  -
Music B4  , -   ,  -
Music S   , -   ,  -
Music A4  , D2  ,  -
Music S   , S   ,  -
Music S   , S   ,  -
Music S   , S   ,  -
Music D5  , C2  ,  -
Music S   , S   ,  -
Music D5  , S   ,  -
Music S   , S   ,  -
Music C5  , D2  ,  -
Music S   , S   ,  -
Music C5  , C2  ,  -
Music S   , S   ,  -
Music B4  , -   ,  -
Music S   , -   ,  -
Music B4  , -   ,  -
Music S   , -   ,  -
Music A4  , D2  ,  -
Music S   , S   ,  -
Music S   , D2  ,  -
Music S   , S   ,  -
Music G4  , C2  ,  -
Music S   , S   ,  -
Music G4  , S   ,  -
Music S   , S   ,  -
Music D5  , D2  ,  -
Music S   , S   ,  -
Music D5  , C2  ,  -
Music S   , S   ,  -
Music E5  , -   ,  -
Music S   , -   ,  -
Music E5  , -   ,  -
Music S   , -   ,  -
Music D5  , D2  ,  -
Music S   , S   ,  -
Music S   , S   ,  -
Music S   , S   ,  -
Music C5  , C2  ,  -
Music S   , S   ,  -
Music C5  , S   ,  -
Music S   , S   ,  -
Music B4  , D2  ,  -
Music S   , S   ,  -
Music B4  , C2  ,  -
Music S   , S   ,  -
Music A4  , D2  ,  -
Music S   , S   ,  -
Music A4  , C2  ,  -
Music S   , S   ,  -
Music G4  , A2  ,  -
Music S   , S   ,  -
Music S   , S   ,  -
Music S   , S   ,  -
Music -   ,   - ,  -
Music -   ,   - ,  -
Music -   ,   - ,  -
Music -   ,   - ,  -
Music Repeat
Edited by First Spear
  • Like 3
Link to comment
Share on other sites
First Spear River Patroller

First Spear

Posted
  • Author
Posted

Change line 39 to

Music G4Y  , C2W  ,  -

I think the sound is a little better for the "Y" instrument (flute).

 

 

Another rough song. Having fun with this stuff!

 


'Include "C:\Program Files( x86)\IntyBASIC\Constants.Bas"
Mode 0 , 0,0,0,0
Wait
Print At 0 Color 7  , "Press Side Button"
Print At 20 Color 7 , "to Exit"




Wait
Play Simple
Wait
    Play TwinkleMe
    Wait
Goto PlayLoop




PlayLoop:
Wait
If Cont.B0 Then Goto ExitThis
        If Cont.B1 Then Goto ExitThis
If Cont.B2 Then Goto ExitThis
        Wait
Goto PlayLoop


ExitThis:
        Wait
Play Off








TwinkleMe:
Data 8
Music -   ,   - ,  -
Music -   ,   - ,  -
Music -   ,   - ,  -
Music -   ,   - ,  -
Music -   , -   , -  
Music G4  , C2  ,  -
'snip

 

Link to comment
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...
×
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
AtariAge
Forums
Store
General
Follow AtariAge

Copyright ©1998-2023 AtariAge

×
×
  • Create New...