program Mplay;
uses Music, Util, Apricot;

var i: Integer;

begin
    if ParamCount < 1 then
        Die('specify a file');
    LoadMusic(ParamStr(1));
    musicPlaying := true;
    repeat until KeyPressed or NOT musicPlaying;
    StopMusic;
end.