Function PokeLongString(buffer,position,s$)
	PokeInt buffer,position,Len(s$)
	Position=Position+4
	For n=1 To Len(s$)
		PokeByte buffer,position,Asc(Mid$(s$,n,1))
		position=position+1
	Next
End Function