
Sub Property_Demo ( )

	print ucwords( "apple gate" ):while inkey="":wend

	Dim As String Property_Echo : Property_Echo = EMPTY
	
	SimpleSleep ( VGA_Table ( ), "Property_Demo ( )", 15 )

	ReDim As Property_DB_Type sFruits( Any )
	
	Dim As Property_DB_Type Fruit

	Property_Show_Array_Bounds ( sFruits ( ) ) : SimpleSleep ( VGA_Table ( ), ESC ) : Property_Echo = EMPTY
	
	SimpleSleep ( VGA_Table ( ), ESC )
	
	Property_Database_Load ( sFruits ( ), "./Property/" & "Fruit" & Property_DB_EXT )
	
	Property_Echo = __Echo ( EMPTY, "Property_DB_Type :: Load ( )" )
		
	__Direct ( sFruits ( ), Property_Echo )

	__Bounds ( sFruits ( ), Property_Echo )

	SimpleSleep ( VGA_Table ( ), ESC )
		
	Property_Bubble_Sort ( sFruits ( ) )
	
	Property_Echo = __Echo ( EMPTY, "Property_DB_Type :: Bubble Sort ( )" )
	
	__Direct(sFruits ( ), Property_Echo)

	Property_Database_Save ( sFruits ( ), "./Property/" & "Fruit 23a" & Property_DB_EXT )

	__Bounds ( sFruits ( ), Property_Echo )
	
	Property_Echo = __Echo ( EMPTY, "Property_DB_Type :: Binary Query ( )" )
		
	__Tinker ( sFruits ( ), Property_Echo, "retrieve", "carret", EMPTY )
		
	__Tinker ( sFruits ( ), Property_Echo, "retrieve", "watermelon", EMPTY )

	__Tinker ( sFruits ( ), Property_Echo, "retrieve", "brick", EMPTY )
		
	__Direct(sFruits ( ), Property_Echo)

	__Bounds ( sFruits ( ), Property_Echo )
			
	__Tinker ( sFruits ( ), Property_Echo, "add", "brick", "inbad" )
	
	__Direct(sFruits ( ), Property_Echo)

	__Bounds ( sFruits ( ), Property_Echo )
	
	Property_Echo = __Echo ( EMPTY, "now" )

	__Tinker ( sFruits ( ), Property_Echo, "retrieve", "brick", EMPTY )
	
	__Direct(sFruits ( ), Property_Echo)

	__Bounds ( sFruits ( ), Property_Echo )
	
	__Tinker ( sFruits ( ), Property_Echo, "delete", "lime" )
	
	__Direct(sFruits ( ), Property_Echo)

	__Bounds ( sFruits ( ), Property_Echo )
	
	Property_Echo = __Echo ( EMPTY, "now" )
	
	__Tinker ( sFruits ( ), Property_Echo, "retrieve", "lime", EMPTY )

	__Direct(sFruits ( ), Property_Echo)

	__Bounds ( sFruits ( ), Property_Echo )
	
	Property_Database_Save ( sFruits ( ), "./Property/" & "Fruit 3" & Property_DB_EXT )

	Property_Show_Array_Bounds ( sFruits ( ) ) : SimpleSleep ( VGA_Table ( ), ESC ) : Property_Echo = EMPTY
	
End Sub
