#!/usr/bin/tclsh


set datafile [lindex $argv 0]
set f [open $datafile]
while { [gets $f line ] >= 0 } {
    # throw away all the RP lines
    if { ([regexp  {^RP[.]*}  $line ]  == 0) && ([regexp {^EN[.]*} $line ] == 0 )  } {
	puts "$line"

   }
   
}

close $f

puts "RP  0  180    1 1001  -90.0  0.0  1.0  0.0  10000.0 0.00E+00"
puts "EN"




