\ ButtonSync ST 2001-06-12

needs ids
needs launchcodes

17 constant CmdSyncRequestRemote

2variable dbID
variable cardNo
create stateInfo 32 allot

: hotsyncid ( -- err )
  dbID >abs cardNo >abs true [ID] sync
  [ID] appl stateInfo >abs true
  DmGetNextDatabaseByTypeCreator ;

: launch ( -- )
  0. CmdSyncRequestRemote dbID 2@ cardNo @
  sysUIAppSwitch throw ;

: go ( -- )
  hotsyncid throw launch throw ;