This is a submission from Medtronic, Inc., Minneapolis, MN.  It consists of 2
things:

  (1) A1NEWMSG, a program that displays how many unread ALL-IN-1 messages
      a user has.  This way, if there are no new messages to read, the user
      at VMS level doesn't need to get into ALL-IN-1.  This program was
      inspired by other programs like this that I've seen, but have never
      been able to get my hands on.  A special thanks to Roger Bruner for
      pointing me in the right direction.

      To use it, simply put the following in your LOGIN.COM file:
    
                            "$ RUN A1NEWMSG"

  (2) FTNLIB, a FORTRAN callable library.  Brief documentation for all of
      the subroutines is in FTNLIB.DOC.  This is an updated version of 
      FTNLIB that was last submitted at Anaheim, 1989.


Roger G. Ruckert
Senior Technical Analyst
Medtronic, Inc.
Mail Stop 111
7000 Central Ave.
Minneapolis, MN  55432

(612) 574-4742