define real dummy_time
define integer dummy_order
let dummy_time mod((lst[nrecord]+86400)-lst[1],86400)
let dummy_order nint(dummy_time|1800)
if (command.ne."SIGNAL") then
  @ p_signal
endif
say "Command is: BASELINE /ORDER "'dummy_order'
say "Removing baseline order "'dummy_order'" ..."
base /order dummy_order
say " "
del /var dummy_time dummy_order
!say "Command is: BASELINE /CORR"
!base /corr