print $oh "$NO\n", events($@list), "\n$SEC1, $LONG, $LAT, $DEPTH, $GAP\n";