Protocols for Robotic Telescope Networks

Algorithm 6

proc notice_parser { longs }{

 set pkt_type   [lindex $longs 0]

 set burst_ra   [expr [lindex $longs 7]*0.0001]

 set burst_dec  [expr [lindex $longs 8]*0.0001]

 return [list $pkt_type $burst_ra $burst_dec]

}

vwait forever