$ set term/width=80
$ read sys$command/prompt="Send to node: " NODE
$ read sys$command/prompt="        To  : " TO
$ read sys$command/prompt="        From: " FROM
$ read sys$command/prompt="To (display): " TO_DISPLAY
$ read sys$command/prompt="    Subject : " SUBJECT
$ TO:='TO'
$ N:=#
$ N[0,8]=0
$ OPEN MAIL_FILE 'NODE'::"MAIL=" /READ/WRITE
$ WRITE MAIL_FILE FROM
$ WRITE MAIL_FILE TO  
$ WRITE MAIL_FILE N   
$ READ MAIL_FILE L   
$ WRITE MAIL_FILE TO_DISPLAY
$ WRITE MAIL_FILE SUBJECT
$ L=F$MESSAGE(L)
$ WRITE SYS$OUTPUT " "
$ WRITE SYS$OUTPUT "Enter your message below. Press CTRL/Z when complete, or CTRL/C to quit"
$ WRITE SYS$OUTPUT " "
$LOOP:
$ READ SYS$COMMAND LINE/PROMPT=""/end=END
$ WRITE MAIL_FILE LINE
$ GOTO LOOP
$ END:
$ WRITE MAIL_FILE N
$ CLOSE MAIL_FILE 
$EXIT
