\ TestDmSetDatabaseInfo needs DataMgr needs zstrings needs core-ext 2variable dbID 2variable dbr 2variable LID : go false [id] DATA [id] Test z" Test DB" CreateDB z" Test DB" drop >abs cardnum @ DmFindDatabase dbID 2! dmModeReadWrite dbID 2@ cardnum @ DmOpenDatabase dbr 2! z" AppInfo data goes here" s>d 2dup 2>r rot >abs 0. ( setup for DmWrite ) 2r> dbr 2@ DmNewHandle 2dup 2>r MemHandleToLocalID LID 2! 0. 0. 0. LID >abs 0. 0. 0. 0. 0. 0. 0. dbID 2@ cardnum @ DmSetDatabaseInfo throw 2r> MemHandleLock 2dup 2>r DmWrite throw 2r> MemPtrUnlock throw dbr 2@ CloseDB ;