Dave Stevens of SIT asked about talking Mail-11 over DecNet; I sent him an
earlier version of the following code, but thought that the tidied-up version
might be of general interest.  Caveat: beware of giving NetMbx privilege, or,
alternatively, never believe a 'From: ' field. ** Phil.

(Philip Taylor; CHAA006%UK.AC.RHBNC.VAXB@AC.UK - temporarily on AcsNet)

        program test
        implicit integer (A-Z)
        character null, obj27
        character * 132 buffer
        parameter (mask = '10000000'X)
        null = char(0)
        obj27 = char(27)
        open (unit=1, file='SYS$NODE::"MAIL=/' // null // null
     &                          // null // obj27 // '"',
     &          status='unknown', carriagecontrol='list')
        call enquire ('From', buffer, length)
        write (1, 1000) buffer (1:length)
        call enquire ('To', buffer, length)
        write (1, 1000) buffer (1:length)
        read (1,  2000) length, buffer
        read (buffer(1:4), 9000) status
        if (.not. status)
     &  then
            call lib$signal (%val (status .and. .not. mask))
            if ((status .and. '0FFF0000'X ) .eq. '007E0000'X)
     &      then
                 do while (buffer .ne. null)
                 read (1, 2000) length, buffer
                 if (buffer .ne. null)
     &                  write (6, 6000) buffer (1:length)
                 end do
            end if
        else
            write (1, 1000) null
            call enquire ('Original', buffer, length)
            write (1, 1000) buffer (1:length)
            call enquire ('Subject', buffer, length)
            write (1, 1000) buffer (1:length)
            call enquire ('Filename', buffer, length)
            open (unit=2, file=buffer(1:length), status='old')
            end of file = .false.
            do  while (.not. end of file)
                read (2, 2000, end=10) length, buffer
                write (1, 1000) buffer (1:length)
            end do
 0010       end of file = .true.
            close (2)
            write (1, 1000) null
            read (1,  2000) length, buffer
            read (buffer(1:4), 9000) status
            if (.not. status)
     &      then
                if ((status .and. '0FFF0000'X ) .eq. '007E0000'X)
     &          then
                     do while (buffer .ne. null)
                     read (1, 2000) length, buffer
                     if (buffer .ne. null)
     &                  write (6, 6000) buffer (1:length)
                     end do
                end if
            end if
        end if
        close (1)
 1000   format (A)
 2000   format (Q, A)
 6000   format (1H , A)
 9000   format (A4)
        end

        subroutine enquire (prompt, buffer, length)
        implicit integer (A-Z)
        character * (*) prompt, buffer
        call cli$get_value (prompt, buffer, length)
        return
        end

define verb sm
        synonym sendmail
        image sys$login:sendmail
        parameter p1, label=filename, prompt="Filename", value(required)
        qualifier to, value(required)
        qualifier from, value(required)
        qualifier original, value(required)
        qualifier subject, value(required)