$! This file runs over DECnet. It lets you send messages to
$! people in which both the to and from address they'll see
$! can be anything you like. This procedure could cause some
$! problems if used maliciously since it implies that you can't
$! trust the "signature" on VAXmail any more than you can on DECmail
$! (which has a nodename/DMPM account and an extra option called XA or
$! ZA or some such thing that gets you direct into mumps from whence
$! you can play even worse tricks than these).
$!  The mailer can therefore be dangerous in this form. However, it
$! can also be quite useful in allowing programs to generate mail
$! possibly interfacing with the VMS mail protocol, without having
$! to talk to the mail utility. For VMS at least 4.3...
$!  By Brian Griffin
$read sys$command/prompt="Node: " node
$n:=#
$n[0,8]=0
$open/read/write f 'node'::"mail="
$read sys$command/prompt="From: " from
$write f from
$read sys$command/prompt="To: " to
$to := 'to'
$write f to
$write f n
$read f l
$l=f$message(l)
$write sys$output l
$read sys$command/prompt="To (for display): " to_display
$write f to_display
$l:
$read sys$command l/prompt="Text: "/end=end
$write f l
$goto l
$end:
$ write f n
$ close f
$exit