gistfile1.txt

Function CS_SIMPLE_KEY_VALUE(Action, Array, Key, Value)

If Action _EQC 'set' Then

	Swap @FM With @VM In Value

	ArrayCount = DCOUNT(Array,@FM)
	
	For i = 1 To ArrayCount
	
		If Array<i,1> = Key Then
			Array<i> = Key : @VM : Value
			Return '' 
		End
	
	Next i
	
	Array<ArrayCount + 1> = Key : @VM : Value
	
	Return ''

End

If Action _EQC 'get' Then

	ArrayCount = DCOUNT(Array,@FM)
	
	For i = 1 To ArrayCount
	
		If Array<i,1> = Key Then
			Entry = Array<i>
			Entry = Entry[Len(Key)+2,Len(Entry)]
			
			Swap @VM With @FM In Entry
			Return Entry
		End
	
	Next i
	
	Return ''

End