home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / sample.pas < prev    next >
Pascal/Delphi Source File  |  1994-03-30  |  765b  |  29 lines
  1. {(C) 1994 - Shryke & Deliverance}
  2. {$M 4000,0,0}     {Compiling directives ... Required!}
  3. {$A+,G+}          {Same here!}
  4.  
  5. Program SampleGusModPlayer;
  6.  
  7. Uses Crt,
  8.      Gustp7;  {You change this weither your using Tp6 or Tp7!!}
  9.  
  10. Var
  11.     Modfilename : String;
  12.  
  13. begin
  14.         If ParamCount <> 1 then
  15.         Begin
  16.          Textcolor(7);
  17.          Writeln('Syntax: Sample <Name of Mod>');
  18.          Halt;
  19.         end;
  20.         Modfilename:= Paramstr(1);
  21.         Writeln('Playing ',paramstr(1));
  22.         PlayGusmod(modfilename);                {This Starts the Mod playing...}
  23.         Writeln;
  24.         Write('Press <ENTER> to stop ...');
  25.         Readln;
  26.         EndPlay;                                {This Stops the Mod playing...}
  27.         
  28. end.
  29.