@program	prog_code,prog_name


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

prog_code:
 lea		entertainer(PC),a0		; a0 keeps track of song
 jsr		soundlib[play_song]		; call play_song from soundlib
						; plays to the end if you don't
						; press [q]

Exit:
 rts

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


entertainer:	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

prog_name:	dc.b	"Entertainer",0

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

	reloc_open
	add_library	soundlib
	reloc_close
	end