( alarms day 17.05.2001 )

needs lcode: lcodes

api: AlmSetAlarm
api: AlmGetAlarm
api: SysCurAppDatabase

: SetAlarm ( ref time -- err )
     rvarw rvar 
     SysCurAppDatabase throw
     r> wr> swap
     2swap 0 
     AlmSetAlarm 
;