home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / MOD2.ZIP / MPLAY.PAS < prev    next >
Pascal/Delphi Source File  |  1995-05-20  |  595b  |  37 lines
  1.  Program MPlay;
  2.  
  3.  Uses Crt, Modules;
  4.  
  5.  Var
  6.   AnyModule: MODDataRec;
  7.  
  8.  Begin
  9.   WriteLn;
  10.  
  11.   If ParamCount < 1 Then
  12.   Begin
  13.    WriteLn('MODule Player');
  14.    WriteLn('Usage: MPLAY [module filename]');
  15.    WriteLn;
  16.    Halt(1);
  17.   End;
  18.  
  19.   LoadMOD(ParamStr(1), 0, AnyModule);
  20.   If ErrorInfo = 1 Then
  21.   Begin
  22.    WriteLn('Error loading module.');
  23.    WriteLn;
  24.    Halt(1);
  25.   End;
  26.  
  27.   WriteLn('Playing...');
  28.   PlayMOD(AnyModule);
  29.  
  30.   Repeat
  31.   Until (KeyPressed) OR ((AnyModule^.OrderLen = OrderPos) AND (Row = 64));
  32.  
  33.   WriteLn('Done!');
  34.   StopMOD;
  35.  
  36.   FreeMOD(AnyModule);
  37.  End.