@program	prog_code,prog_name

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

prog_code:
 lea		freredeath(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

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


freredeath:
		dc.b	12,2,14,2,15,2,12,2,12,2,14,2,15,2,12,2
		dc.b	15,2,17,2,19,1,99,16,15,2,17,2,19,1,99,16
		dc.b	19,4,20,4,19,4,17,4,15,2,12,2,19,4,20,4,19,4,17,4,15,2,12,2
		dc.b	12,2,7,2,12,1,99,16,12,2,7,2,12,1
		dc.b	255
prog_name:	dc.b	"Brother John (minor key)",0

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

	reloc_open
	add_library	soundlib		; add the soundlib
	reloc_close
	end