( callmemo DAY )

: CallMemo ( index pos -- )
   2>R
   0. S" Memo Pad" DROP >abs
   DmFindDatabase 
   [ 0x2 0x4 0x8 OR OR ] literal
   2
   18 allocate throw 
   DUP >abs 0 MemPtrSetOwner throw
   DUP 18 ERASE
   R> OVER 10 + W!
   R> OVER 8 + W!
   >abs RVAR SysAppLaunch DROP RDROP
;