#include <midiwrt/puredly.hpp>

DWORD PureDelay::readDelay(FileIO &musFile)
{
	BYTE valueByte;

  mCurrentTimeDelay=0L;
	while(TRUE)
	{
		if(!musFile.read(valueByte))return 0L;
		mCurrentTimeDelay=(mCurrentTimeDelay*128)+(valueByte&127);
    if(!(valueByte&128))break;
	}
  mDeltaTicks+=mCurrentTimeDelay;
  return mCurrentTimeDelay;
}