[.Allied.Send_Mail]

       In this directory are a function and a subroutine which perform
       the same operation: one written in BASIC and the other in
       Fortran. What they both do is interface with DEC's unsupported
       (and undocumented) Callable MAIL Interface.  The Fortran version,
       written by Jim Geier of General Instrument, is the original work.
       The BASIC version, which I did, is a somewhat simpler paraphrase
       of Jim's work.  I've heard some rumors that the MAIL$_ functions
       were shipped with VMS V4.7, but really never looked or messed
       with it until V5.0-2.  My BASIC function (and Jim's subroutine)
       both worked under V5.0-2 and are working now under V5.1.

       After my (somewhat plaintive) cry for help with the Callable MAIL
       Interface was posted on DECUServe, as usual I received a great
       deal of help.  Jamie Hanrahan helped me to find out what I was
       doing wrong (to start with, I was using only the limited
       documentation posted on the Pageswapper Notes system), and then
       Jim sent me his subroutine that did just what I was trying to do.

       The only problem is, I don't have a Fortran compiler.  (By the
       way, this is a real problem to us - the SIG tape often has some
       really great widget, written in Fortran, but no object code.) But
       since I *REALLY* wanted to do this in BASIC anyway, I took Jim's
       function as a guide and reinvented this particular wheel.  And I
       have also included the .OBJ from our V3.3 BASIC compiler, for
       those of you lacking this basic necessity (pun intended) who
       would like to take my code for a test spin.

       Jim Geier gave me permission to include his code in this
       submission.  Thanks, Jim!



       Any questions, comments, etc., can be directed to me:

                        Alan Bruns, DP Manager
                          Allied Electronics
                          401 East 8th Street
                         Fort Worth, TX  76102
                         (817) 336-5401 x 253