26 lines
537 B
Text
26 lines
537 B
Text
;***************************************************************
|
|
;*
|
|
;* IMSS Sample
|
|
;*
|
|
;* (c) 2023 by Linder Hard- und Software
|
|
;*
|
|
;* GPL v2.0 Only
|
|
;*
|
|
;*
|
|
;***************************************************************
|
|
|
|
EnableExplicit
|
|
|
|
Define MyUUID.s
|
|
XIncludeFile "imss.pbi"
|
|
|
|
MyUUID = imss::Create()
|
|
|
|
Debug "Database Created:"+MyUUID
|
|
|
|
imss::Save(MyUUID, "TestName", "TestValue")
|
|
Debug "Test:"+imss::Get(MyUUID, "TestName")
|
|
imss::Del(MyUUID, "TestName")
|
|
Debug "Test:"+imss::Get(MyUUID, "TestName")
|
|
imss::Kill(MyUUID)
|
|
Debug "Killed"
|