program Music;
var
	sidfile: incsid("sid/courier.sid","2");

@define useKernal 0


interrupt Raster1();
begin
	StartIRQ(@useKernal);
	call(SIDFILE_1_PLAY);
	CloseIRQ();
end;

begin
	InitSid(SIDFILE_1_INIT);
	setmemoryconfig(1,@useKernal,0);
	StartRasterChain(Raster1(),0,@useKernal);
	Loop();

end.