Function PeekShortString$(buffer,position)
	l=PeekShort(buffer,position)
	position=position+2
	For n=0 To l-1
		s$=s$+Chr$(PeekByte(buffer,position))
		position=position+1
	Next
	Return s$
End Function