\ Launch the MemoPad application:
needs ids
needs core-ext
create DmSearchStateType 16 allot
variable cardnum
2variable localid
18 constant cmdPBsize
: launchmemo ( -- )
\ Find the MemoPad application:
localid >abs cardnum >abs true
[ID] memo [ID] appl
DmSearchStateType >abs true
DmGetNextDatabaseByTypeCreator throw
\ Allocate a system-owned dynamic region:
cmdPBsize s>d MemPtrNew 2>r
0 2r@ MemPtrSetOwner throw
\ Launch the app:
2r> 0 localid 2@ cardnum @
SysUIAppSwitch throw ;