SEQ22 Demo

    ReDim As SEQ_Database sFruits(any)
    Dim As SEQ_Database Fruit

    SEQ_DB_From_File( sFruits(), ".\Assets (v0x22)\Fruit.SEQ" )

    SEQ_Bubble_Sort(sFruits())

    SEQ_Echo  "--- Assets ---" & CRLF & _
    SEQ_DB_To_Raw( sFruits() )

    TextPlus_WaitKey()

    SEQ_Echo  "" & CRLF & "--- BinaryQuery() ---" & CRLF & _
    "carret" & ":" & SEQ_Database_Query(sFruits(),"carret").Value & CRLF & _
    "watermelon" & ":" & SEQ_Database_Query(sFruits(),"watermelon").Value & CRLF & _
    "brick" & ":" & SEQ_Database_Query(sFruits(),"brick").Value & CRLF

    TextPlus_WaitKey()

    SEQ_Database_Set(sFruits(),"brick","inbad")

    SEQ_Echo  "--- Added brick ---" & CRLF & _
    SEQ_DB_To_Raw( sFruits() )

    TextPlus_WaitKey()

    SEQ_Database_Delete( sFruits() , "lime" )

    SEQ_Echo  "--- Deleted lime ---" & CRLF & _
    "lime" & ":" & SEQ_Database_Query(sFruits(),"lime").Value & CRLF & _
    SEQ_DB_To_Raw( sFruits() )

    TextPlus_WaitKey()

    SEQ_Echo  "--- Exporting to SEQ File ---" & CRLF & _
    SEQ_DB_To_Raw( sFruits() )

    SEQ_DB_To_File( sFruits(), "./Assets (v0x22)/Fruit 2.SEQ" )

    TextPlus_WaitKey()

    end