; Interactive
; XMDUZ DUZ of who is sending or forwarding the message
; XMZ The message number
; (need not be supplied if XMTYPE="S" and
; XMINSTR("ADDR FLAGS")["R")
; XMTYPE S='Send to:'
; F='Forward to:'
; XMINSTR("SELF BSKT") Basket to deliver to if sender is recipient
; XMINSTR("SHARE DATE") Delete date if recipient is "SHARED,MAIL"
; XMINSTR("SHARE BSKT") Basket if recipient is "SHARED,MAIL"
; XMINSTR("TO PROMPT") Initial prompt to whom to send the message (default=XMDUZ)
; XMINSTR("FLAGS") Any or all or none of the following:
; (Necessary only if XMTYPE="S" and XMINSTR("ADDR FLAGS")["R")
; X Closed msg (may not be forwarded)
; C Confidential msg (surrogates may not read)
; XMINSTR("ADDR FLAGS") Any or all of the following:
; I Do not Initialize (kill) the ^TMP addressee global
; R Do not Restrict addressees
TOWHOM(XMDUZ,XMZ,XMTYPE,XMTO,XMINSTR,XMFULL)
; Silent
; XMDUZ (in) DUZ of who is sending or forwarding the message
; XMZ (in) The message number
; (need not be supplied if XMTYPE="S" and
; XMINSTR("ADDR FLAGS")["R")
; XMTYPE (in) S='Send to:'
; F='Forward to:'
; XMTO (in) ONE addressee
; XMINSTR("SELF BSKT") (in) Basket to deliver to if sender is recipient
; XMINSTR("SHARE DATE") (in) Delete date if recipient is "SHARED,MAIL"
; XMINSTR("SHARE BSKT") (in) Basket if recipient is "SHARED,MAIL"
; XMINSTR("FLAGS") (in) Any or all or none of the following:
; (Necessary only if XMTYPE="S" and XMINSTR("ADDR FLAGS")["R")
; X Closed msg (may not be forwarded)
; C Confidential msg (surrogates may not read)
; XMINSTR("ADDR FLAGS") Any or all of the following:
; I Do not Initialize (kill) the ^TMP addressee global
; R Do not Restrict addressees
; XMFULL (out) the full address