type SndBuf = string[32768];
type SndBufPtr = ^SndBuf;

procedure ReadSample(aFile:file;buf:SndBufPtr); external;
procedure PlaySample(buf:SndBufPtr;sampleRate:integer); external;
procedure SampleQStart(buf:SndBufPtr;loop:boolean;sampleRate:integer); external;
procedure SampleQStop; external;
function SampleQSize:integer; external;