\ 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 ;