#!hs2
Var ($count, $Interval)
$count=100
$Interval=20

checknews

HamWaitIdle


# intervall for Newspulls
AtClear
AtAdd( checknews, "00:01", "23:59", "1111111", 1, true )
AtExecute
quit


sub checknews
$count=$count+1
if ( $count >$Interval )
 if( RasIsConnected )
  $count=0
  getnews()
 else
  print("no connection for pull")
 endif
endif
endsub

sub getnews
  HamNewsJobsClear
  HamNewsJobsPostDef
  HamNewsJobsStart
  HamMailExchange
  HamMessage (3,0) # remove if you do not use CopyIf
  HamNewsJobsPullDef
  HamNewsJobsStart
  HamWaitIdle
  runscript( "newmail.hsc" ,false)
  Execute ("CopyIf.exe", "", 1, true) # remove if you do not use CopyIf
  HamMessage (3,1) # remove if you do not use CopyIf
endsub
quit