//###########################################################################
// Пример проигрывания модулей под Windows.Используется наиболее популярная
// система MIDAS. В данном случае MIDAS11.DLL. Только в её нужно внести
// небольшие изменения, заменив ненужные символы в названиях процедур
// на нули (Спасибо М.Шекеру за то, что у него хватило смелости сделать
// это :)
// Подробней об MIDAS на http://kalahari.ton.tut.fi/s2/midas/
// Подробней обо мне и моих прогах на www.chat.ru/~observer_page/
//###########################################################################
#pragma option w32
#parsecommandline TRUE
?include "WINDOWS.H--"
?include "midas.h--"

long module,playHandle;

byte str="Сейчас должна играть моя музыка.";
byte str2="WINDOWS больше не будет молчать!!! MIDAS + C-- = RULEZ!";

char *modname;

main()
{
  OemToCharA(#str,#str);
  OemToCharA(#str2,#str2);

  IF(PARAMCOUNT()==2)modname=PARAMSTR(1);
  ELSE modname="module.xm";
  MIDASstartup();
  MIDASinit();
  MIDASstartBackgroundPlay(0);

  module=MIDASloadModule(modname);
  IF(module>0){
    playHandle=MIDASplayModule(module,1);
    MessageBoxA(0,#str2,#str,MB_OK);
    MIDASstopModule(playHandle);
    MIDASfreeModule(module);
  }
  MIDASstopBackgroundPlay();
  MIDASclose();
}

