Function PutDynamicStringArray(F_B,FA,F$)
	If FA>DynamicArrayCounter(F_B) Then
		ResizeBank(F_B,BankSize(F_B)+4)
		FA=DynamicArrayCounter(F_B)
	Else
		FreeBank(PeekInt(F_B,(FA Shl 2)))
	EndIf
	nb=CreateBank(4+Len(F$))
	PokeInt F_B,(FA Shl 2),nb
	PokeLongString(nb,0,f$)
	Return F_B
End Function
;+ PokeLongString