# 13apr23 Software Lab. Alexander Burger

(ifn (info "fifo/beat")
   (de heartbeat ())

   (de heartbeat @
      (unless (assoc -54321 *Run)
         (task -54321 0 (heartbeat))
         (finish (out "fifo/beat" (pr *Pid))) )
      (out "fifo/beat"
         (pr
            (cons
               *Pid
               (+ (* 86400 (date T)) (time T) 300)  # Busy period 5 minutes
               (rest) ) ) ) ) )

(de nobeat ()
   (task -54321) )