Function PokeShortString(buffer,position,s$)
	PokeShort buffer,position,Len(s$)
	Position=Position+2
	For n=1 To Len(s$)
		PokeByte buffer,position,Asc(Mid$(s$,n,1))
		position=position+1
	Next
End Function