Function PeekLongString$(buffer,position)		;->StringValue
	l=PeekInt(buffer,position)
	If l=0 Then Return ""
	position=position+4
	s$=""
	For n=0 To l-1
		s$=s$+Chr$(PeekByte(buffer,position))
		position=position+1
	Next
	Return s$
End Function