sound.samples not 16 bit - PLEASE HELP!

BlitzMax Forums/BlitzMax Programming/sound.samples not 16 bit - PLEASE HELP!

This shows how to read 16bit samples from the sample data, if thats any help.
Strict
Local sample:TAudioSample=CreateAudioSample(10000, 44100, SF_MONO16BE)

Local AudioPtr:Short Ptr = Short Ptr(sample.samples)
Local av:Int
For Local i = 0 To 10000
	AudioPtr[i] = Sin(i*3.6)*5000
	av=AudioPtr[i]
	If av>32767 Then av:-65535		' signed shorts are not supported, so you'll need to handle it yourself
	Print av
Next

Local sound:TSound = LoadSound(sample)
Local channel:TChannel = CueSound(sound)
ResumeChannel channel
Input