program medpas;

uses MedPlayer, Exec, DOS;

var
	err : Longint;
	mymod : Pointer;
	name : String;


begin
	name := ParamStr(1);
	writeln(name);
	MEDPlayerBase := OpenLibrary('medplayer.library',0);
	if MEDPlayerBase <> NIL then begin
		err := GetPlayer(0);
		Writeln(err);
		MyMod := LoadModule(@name[1]);
		PlayModule(MyMod);
		delay(10000);
		Writeln('stopping');
		StopPlayer;
		UnLoadModule(MyMod);
		FreePlayer;
		CloseLibrary(MEDPlayerBase);
	end;
end.