: leave <file> <subject> <to> <section>
: -------------------------------------
:
: We assume we're at the function prompt
if !same $$ 5 badsyntax
pattern reset
pattern 0 "o:" ; : as in to:
send l\m
wait 120
if match -1 timeout
pattern 0 "ubject:"
send $3
send \m
wait 120
if match -1 timeout
pattern 0 "1:"
send $2
send \m
wait 120
if match -1 timeout
sendf $1
pattern 0 "option"
send \m
wait 120
if match -1 timeout
pattern 0 "unction:"
send s
send $4
send \m
wait 120
if match 0 end
: timeout
set timeout TRUE
: end
