include "sndlib.h"
	include "tios.h"
	include "util.h"
	xdef _main
	xdef _comment
	xdef _ti89


;************** Start of Fargo program ***************

_main:
	lea		song(PC),a0		; Load song
	jsr		sndlib::PlaySong	; Call the player
	rts					; Exit

;*****************************************************


song		dc.l	$40000		; Tempo
		dc.b	26,8,27,8,28,8,36,4,28,8,36,4,28,8,36,8,36,2,99,8,36,8,38,8,39,8
		dc.b	40,8,36,8,38,8,40,8,40,8,35,8,38,4,36,2,99,4,26,8,27,8
		dc.b	28,8,36,4,28,8,36,4,28,8,36,8,36,2,99,4,33,8,31,8
		dc.b	30,8,33,8,36,8,40,8,40,8,38,8,36,8,33,8,38,2,99,4,26,8,27,8
		dc.b	28,8,36,4,28,8,36,4,28,8,36,8,36,2,99,8,36,8,38,8,39,8
		dc.b	40,8,36,8,38,8,40,8,40,8,35,8,38,4,36,2,99,4,26,8,27,8
		dc.b	40,8,36,8,38,8,40,8,40,8,36,8,38,8,36,8
		dc.b	40,8,36,8,38,8,40,8,40,8,36,8,38,8,36,8
		dc.b	40,8,36,8,38,8,40,8,40,8,35,8,38,4,36,2,99,4,26,8,27,8
		dc.b	43,4,45,8,43,8,43,8,40,8,41,8,42,8
		dc.b	43,4,45,8,43,8,43,8,40,8,36,8,31,8
		dc.b	33,8,35,8,36,8,38,8,40,8,38,8,36,8,38,8
		dc.b	31,8,40,8,41,8,43,8,45,8,43,8,40,8,41,8
		dc.b	43,4,45,8,43,8,43,8,40,8,41,8,42,8
		dc.b	43,4,45,8,43,8,43,8,43,8,45,8,46,8
		dc.b	47,8,47,4,47,8,47,8,45,8,42,8,38,8,43,2,99,8,40,8,41,8,42,8
		dc.b	43,4,45,8,43,8,43,8,40,8,41,8,42,8
		dc.b	43,4,45,8,43,8,43,8,40,8,36,8,31,8
		dc.b	33,8,35,8,36,8,38,8,40,8,38,8,36,8,38,8
		dc.b	36,2,255

_comment	dc.b	"Entertainer",0

;*************** End of Fargo program ****************

	
	end