 unit LoadMods;


 interface

 uses
     NewTypes;

  procedure Sign_Sample(PTemp : pointer;Size : word);
  procedure UnDelta_Sample(PTemp : pointer;Size : word);
  procedure Undelta_16_8(PTemp : pointer;Size : word);
  procedure Scan_S3M_Pattern(PTemp : pointer;
  Patt_Size,Nombre_Instruments : word;
  var Error : byte;
  var NPistes : word;
  EData     : Track_Array_W;
  var Inst_Used : Inst_Array_Bool;
  Longueur_F : Inst_Array_D
  );
  procedure Scan_MOD_Pattern(PTemp : pointer;
  NPistes,Nombre_Instruments,Period_Min,Period_Max,Nombre_Motifs_Lus:word;
  var Inst_Used : Inst_Array_Bool;
  Octaves : Octave_Array;
  Longueur_F : Inst_Array_D);
  procedure Compress_MOD_Pattern(PointTemp,PCompress : pointer;NPistes:word;var CompSize : word);
  procedure Scan_MTM_Pattern(PTemp:pointer;Nombre_Instruments,NPistes:word;
  var Inst_Used : Inst_Array_Bool;
  Longueur_F : Inst_Array_D);
  procedure Compress_Scan_669_Pattern(PTemp,PCompress : pointer;Nombre_Instruments,NPistes:word;
  var Inst_Used : Inst_Array_Bool;
  Longueur_F : Inst_Array_D;
  var CompSize : word);
  procedure Compress_Scan_XM_Pattern(PTemp,PCompress : pointer;var CompSize : word;
  Patt_Max_Row,Nombre_Instruments,NPistes : word;
  var Inst_Used : Inst_Array_Bool;
  var Inst_Sample : Inst_Array_B;
  Longueur_F : Inst_Array_D);


 end.