static OSErr ExtractULTInfo( PPInfoRec *info, Ptr AlienFile)
{
short i, maxInstru, tracksNo;
ULTForm ULTinfo;
/********************************/
/**** Header principal *****/
BlockMoveData( AlienFile, &ULTinfo, 49);
/*** Signature ***/
info->signature = 'ULT ';
/*** Internal name ***/
ULTinfo.name[ 31] = '\0';
pStrcpy( (unsigned char*) info->internalFileName, MYC2PStr( ULTinfo.name));
/*** Total Patterns ***/
info->totalPatterns = 0; //Tdecode16( &ITinfo.patNum);
/*** Partition Length ***/
info->partitionLength = 0; //Tdecode16( &ITinfo.orderNum);
/*** Total Instruments ***/
info->totalInstruments = 0;
/*** Tracks ***/
info->totalTracks = 0;
strcpy( info->formatDescription, "ULT Plug");
return noErr;
}
void CreateResult(Ptr aPtr)
{
MYC2PStr(aPtr);
DebugStr((unsigned char *) aPtr);
}
