#!/usr/bin/expect
set env(TERM) no-resize-vt100
spawn telnet ssd.jpl.nasa.gov 6775
expect "Horizons> " { send "load vla-1\r" }
expect "Horizons> " { send page\r }
expect "Horizons> " { send 799\r }
expect -re ".*Select.*: $" { send e\r }
expect -re ".*Observe.*: $" { send o\r }
expect -re ".*Coordinate.*: $" { send 500@399\r }
expect -re ".*Starting.*: $" { send "1981-Mar-07 08:00\r" }
expect -re ".*Ending.*: $" { send "1981-Mar-07 17:00\r" }
expect -re ".*interval.*: $" { send 10m\r }
expect -re ".*Accept.*: $" { send y\r }
expect -re ".*Select.*: $" { send q\r }
exit 0